|
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: 10650 (0x299a)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_01, UNKNOWN_TOKEN_08, UNKNOWN_TOKEN_11, UNKNOWN_TOKEN_1f, UNKNOWN_TOKEN_ca, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cc, UNKNOWN_TOKEN_cd, UNKNOWN_TOKEN_d4
Names: »SYSUS«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSUS«
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 UDSKRIV
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 DIM A_KTONR $ OF 8
00380 REAL TOT ( 2 ) , TOTAL ( 4 )
00390 INTEGER IDXPOS , HIGH , LOW , KREDIT , DEBET , LIN_T , MAX_LIN , T_IDX , K , NUL , F_IDX
00400 INTEGER SIDENR
00410 // Variable…til…filen…SYSPARA
00420 DIM SYSPARA $ OF 17
00430 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
00440 DIM DATAFL $ OF 8 , T_KODE $ OF 1
00450 // Variable…til…filen…@@PARAM
00460 DIM PARAM $ OF 17
00470 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 6
00480 REAL MOMS
00490 // Variable…til…filen…@@KONTO
00500 DIM KONTO $ OF 17
00510 DIM ST_DATO $ OF 6
00520 INTEGER N_FRIREC , N_MAXREC , ANT_PER , PER_NR
00530 DIM KTO_TYPE $ OF 1 , KTO_NAVN $ OF 40
00540 REAL KTO_PRIMO , KTO_ULTIMO
00550 INTEGER KTO_FP , KTO_SP
00560 // Variable…til…filen…@@KTOIDX
00570 DIM KTOIDX $ OF 17
00580 INTEGER I_H\JREC , I_MAXREC
00590 DIM KTONR $ OF 8
00600 INTEGER RECNR
00610 // Variable…til…filen…@@ST_KTO
00620 DIM ST_KTO $ OF 17
00630 DIM KASSE_KTO $ OF 8 , BANK_KTO $ OF 8 , GIRO_KTO $ OF 8
00640 DIM K_DIFF_KTO $ OF 8 , INDMOMS_KTO $ OF 8 , UDMOMS_KTO $ OF 8
00650 // Variable…til…filen…@@TRANS
00660 DIM TRANS $ OF 17
00670 INTEGER T_H\JREC , T_MAXREC
00680 DIM BKTONR $ OF 8 , BDATO $ OF 6 , BLGNR $ OF 5 , BTXT $ OF 20
00690 REAL BMOMS , BBEL\B
00700 INTEGER DK , NTRANS
00710 ENDPROC DIMENSIONER
00720
00730 PROC INITIER
00740 LET PRGFL $ := "DP2"
00750 LET PROGRAM $ := PRGFL $ + ":SYSU"
00760 LET TAL $ := "0123456789" ; NULR := 0 ; MAX_LIN := 51
00770 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
00780 LET SPC $ := "………………………………………………………………………………………………………………………"
00790 LET SPC $ := SPC $ + SPC $
00800 LET FALSE := 0 ; TRUE := 1 // boolske…variable
00810 LET KREDIT := - 1 ; DEBET := 1
00820 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
00830 EXEC OPENFIL ( SYSPARA $ , "R" )
00840 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
00850 EXEC TERMINAL_IDX
00860 CLOSE SYSPARA $
00870 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
00880 EXEC OPENFIL ( PARAM $ , "R" )
00890 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
00900 CLOSE PARAM $
00910 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
00920 LET KONTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KONTO"
00930 LET TRANS $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "TRANS"
00940 EXEC OPENFIL ( KTOIDX $ , "R" )
00950 EXEC OPENFIL ( KONTO $ , "R" )
00960 EXEC OPENFIL ( TRANS $ , "R" )
00970 ENDPROC INITIER
00980
00990 PROC TERMINAL_IDX
01000 LET PPAR := 5 ; RESRV := 0
01010 CALL :PRES"
01020 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
01030 ENDPROC TERMINAL_IDX
01040
01050 PROC OPENFIL ( FNAVN $ , WAY $ )
01060 REPEAT
01070 IF AY $ = "W" OR WAY $ = "w" THEN
01080 OPEN FNAVN $ , W
01090 ELSE
01100 OPEN FNAVN $ , R
01110 ENDIF
01120 IF ( FNAVN $ ) THEN
01130 PRINT "<SC0123>" ; CHR$ ( 7 )
01140 IF ( FNAVN $ ) = 6 THEN
01150 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…RETURN…***"
01160 INPUT "" : SVAR $
01170 ELSE
01180 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
01190 PRINT "<S>" ; FNAVN $ ; "…***"
01200 INPUT "" : SVAR $
01210 PRINT "<C0102>" ; SPC $
01220 ENDIF
01230 ENDIF
01240 UNTIL NOT ╱cd╱ ( FNAVN $ )
01250 ENDPROC OPENFIL
01260
01270 PROC TAL_CONTROL ( REF RST $ )
01280 LET J := 0 ; OK := TRUE
01290 FOR I := 1 TO ( RST $ ) DO
01300 IF RST $ ( I ) IN TAL $ + "." THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
01310 NEXT I
01320 IF = 0 THEN
01330 LET OK := FALSE
01340 ELSE
01350 LET RST $ := RST $ ( 1 : J )
01360 ENDIF
01370 ENDPROC TAL_CONTROL
01380
01390 PROC OVERSKRIFT ( ST $ , L )
01400 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
01410 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
01420 PRINT SYST_DAT $ ( 5 : 2 )
01430 CURSOR 36 - ╱cb╱ ( ST $ ) DIV 2 , L
01440 PRINT "***…" ; ST $ ; "…***"
01450 ENDPROC OVERSKRIFT
01460
01470 PROC SL_FEJLLINIE
01480 LET OK := TRUE
01490 PRINT "<C0102>" ; SPC $
01500 ENDPROC SL_FEJLLINIE
01510
01520 PROC FEJL ( ST $ )
01530 LET OK := FALSE
01540 CURSOR 36 - ╱cb╱ ( ST $ ) / 2 , 2
01550 PRINT "***…" + ST $ + "…***" ; CHR$ ( 7 )
01560 ENDPROC FEJL
01570
01580 PROC L[S_KONTO ( P )
01590 GET KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
01600 ENDPROC L[S_KONTO
01610
01620 PROC SKRIV_KONTO ( P )
01630 PUT KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
01640 ENDPROC SKRIV_KONTO
01650
01660 PROC L[S_TRANS ( P )
01670 GET TRANS $ , P : BKTONR $ , BDATO $ , BLGNR $ , BTXT $ , BMOMS , BBEL\B , DK , NTRANS
01680 ENDPROC L[S_TRANS
01690
01700 PROC ST_BGST ( REF RST $ )
01710 FOR I := 1 TO ( RST $ ) DO
01720 IF RST $ ( I ) =< "}" AND RST $ ( I ) >= "a" THEN LET RST $ ( I ) := CHR$ ( ╱cc╱ ( RST $ ( I ) ) - 32 )
01730 NEXT I
01740 ENDPROC ST_BGST
01750
01760 PROC FIND_KTO ( REF R_KTONR $ )
01770 LET OK := FALSE
01780 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
01790 LET LOW := 1 ; HIGH := I_H\JREC + 1 ; POS := 2
01800 IF IGH > 1 THEN
01810 REPEAT
01820 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
01830 GET KTOIDX $ , POS : KTONR $ , RECNR
01840 IF TONR $ > R_KTONR $ THEN
01850 LET HIGH := POS
01860 ELSE
01870 IF TONR $ < R_KTONR $ THEN
01880 LET LOW := POS
01890 ENDIF
01900 ENDIF
01910 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
01920 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
01930 ENDIF
01940 LET FIND_KTO := POS
01950 ENDPROC FIND_KTO
01960
02230 PROC UDSKRIV
02240 REPEAT
02250 EXEC OVERSKRIFT ( "Udskrivning…af…saldobalance" , 8 )
02260 EXEC PRINTRES ( "bred…EDB-liste" , 12 )
02270 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
02280 LET LIN_T := 100 ; SIDENR := 0 ; TOTAL ( 1 ) , TOTAL ( 2 ) , TOTAL ( 3 ) , TOTAL ( 4 ) := 0
02290 FOR IDXPOS := 2 TO _H\JREC DO
02300 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
02050 EXEC L[S_KONTO ( RECNR )
02060 IF TO_TYPE $ = "A" THEN
02070 EXEC SAMMENT[L
02080 EXEC SKRIV_LIN
02090 ENDIF
02100 NEXT IDXPOS
02110 IF LIN_T >< 100 THEN EXEC AFSLUT
02120 EXEC PRINTREL
02130 LET SVAR $ := "n"
02140 EDIT "<C2618>Flere…udskrifter…(j/n)?…" : SVAR $ ( 1 )
02150 UNTIL NOT "/" + SVAR $ + "/" IN "/J/j/"
02160 ENDPROC UDSKRIV
02170
02180 PROC SIDESKIFT
02190 IF IN_T >< 100 THEN
02200 EXEC SKRIV_STREG
02210 PRINT "<S>" ; TAB ( 15 ) ; "TRANSPORT" ; TAB ( 54 )
02220 PRINT "<S>" ; CHR$ ( TOTAL ( 1 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 2 ) , 9 , 2 )
02230 PRINT "……" ; CHR$ ( TOTAL ( 3 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 4 ) , 9 , 2 )
02240 LET LIN_T := LIN_T + 2
02250 EXEC NYSIDE
02260 PRINT "<S>" ; TAB ( 15 ) ; "TRANSPORT" ; TAB ( 54 )
02270 PRINT "<S>" ; CHR$ ( TOTAL ( 1 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 2 ) , 9 , 2 )
02280 PRINT "……" ; CHR$ ( TOTAL ( 3 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 4 ) , 9 , 2 )
02290 LET LIN_T := LIN_T + 1
02300 ELSE
02310 EXEC NYSIDE
02320 ENDIF
02330 ENDPROC SIDESKIFT
02340
02350 PROC NYSIDE
02360 FOR I := LIN_T TO AX_LIN DO PRINT
02630 LET LIN_T := 8 ; SIDENR := SIDENR + 1
02640 PRINT "<S>***…" ; SYST_NAVN $ ; "…***" ; TAB ( 73 )
02650 PRINT TAB ( 27 ) ; "SIDE:…" ; SIDENR
02660 PRINT
02670 PRINT "<S>Firmanavn:…" ; FIRMANAVN $ ; TAB ( 46 )
02680 PRINT "<S>***…BALANCE…***" ; TAB ( 24 ) ; "***…UDSKREVET…PR.…"
02690 PRINT SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ; SYST_DAT $ ( 5 : 2 ) ; "…***"
02700 PRINT
02710 PRINT "<S>" ; TAB ( 54 )
02460 PRINT TAB ( 7 ) ; "R…]…B…A…L…A…N…C…E" ; TAB ( 30 ) ; "S…A…L…D…O…B…A…L…A…N…C…E"
02470 PRINT "<S>KONTONR.………KONTONAVN" ; TAB ( 54 )
02480 PRINT "…………DEBET………………………KREDIT……………………DEBET………………………KREDIT"
02490 EXEC SKRIV_STREG
02500 ENDPROC NYSIDE
02510
02520 PROC SKRIV_LIN
02530 IF LIN_T + 5 > MAX_LIN THEN EXEC SIDESKIFT
02540 LET LIN_T := LIN_T + 1
02550 PRINT "<S>" ; KTONR $ ; TAB ( 15 ) ; KTO_NAVN $ ; TAB ( 54 )
02560 PRINT "<S>" ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; "……" ; CHR$ ( TOT ( 2 ) , 9 , 2 )
02570 LET TOTAL ( 1 ) := TOTAL ( 1 ) + TOT ( 1 ) ; TOTAL ( 2 ) := TOTAL ( 2 ) + TOT ( 2 )
02580 IF OT ( 1 ) > TOT ( 2 ) THEN
02590 PRINT "……" ; CHR$ ( TOT ( 1 ) - TOT ( 2 ) , 9 , 2 )
02600 LET TOTAL ( 3 ) := TOTAL ( 3 ) + TOT ( 1 ) - TOT ( 2 )
02610 ELSE
02620 IF OT ( 2 ) > TOT ( 1 ) THEN
02630 PRINT TAB ( 17 ) ; CHR$ ( TOT ( 2 ) - TOT ( 1 ) , 9 , 2 )
02640 LET TOTAL ( 4 ) := TOTAL ( 4 ) + TOT ( 2 ) - TOT ( 1 )
02650 ELSE
02660 PRINT
02670 ENDIF
02680 ENDIF
02690 ENDPROC SKRIV_LIN
02700
02710 PROC AFSLUT
02720 EXEC SKRIV_STREG
02730 PRINT "<S>" ; TAB ( 15 ) ; "BALANCE" ; TAB ( 54 )
02740 PRINT "<S>" ; CHR$ ( TOTAL ( 1 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 2 ) , 9 , 2 )
03010 PRINT "……" ; CHR$ ( TOTAL ( 3 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 4 ) , 9 , 2 )
02770 LET LIN_T := LIN_T + 2
02780 FOR I := LIN_T TO AX_LIN DO PRINT
02790 ENDPROC AFSLUT
02800
02810 PROC SAMMENT[L
02820 LET TOT ( 1 ) , TOT ( 2 ) := 0
02830 LET NTRANS := KTO_FP
02840 WHILE NTRANS > 0 DO
02850 EXEC L[S_TRANS ( NTRANS )
02860 IF K = DEBET THEN
02870 LET TOT ( 1 ) := TOT ( 1 ) + BBEL\B
02880 ELSE
02890 LET TOT ( 2 ) := TOT ( 2 ) + BBEL\B
02900 ENDIF
02910 ENDWHILE
02920 IF TO_PRIMO > 0 THEN
02930 LET TOT ( 1 ) := TOT ( 1 ) + KTO_PRIMO
02940 ELSE
02950 LET TOT ( 2 ) := TOT ( 2 ) + ABS ( KTO_PRIMO )
02960 ENDIF
02970 ENDPROC SAMMENT[L
02980
02990 PROC SKRIV_STREG
03000 PRINT "<S>----------------------------------------"
03010 PRINT "<S>----------------------------------------"
03020 PRINT "------------------------"
03030 ENDPROC SKRIV_STREG
09900 //
09901 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
09902 LET PRTNR $ := "1" ; OK := TRUE
09903 REPEAT
09904 CURSOR 21 , 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
03040 //
03050 PROC PRINTREL // RELEASE…PRINTER
03060 SELECT OUTPUT "T"
03070 ENDPROC PRINTREL
02640 PRINT "<S>***…" ; SYST_NAVN $ ; "…***" ; TAB ( 73 )
02640 PRINT "<SK>***…" ; SYST_NAVN $ ; "…***" ; TAB ( 73 )
02750 PRINT "<S>……" ; CHR$ ( TOTAL ( 3 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 4 ) , 9 , 2 )
03011 PRINT "<L>"
07967 ╱1f╱ ╱1f╱ MARAPDY:2PD ╱00╱ ╱00╱ ╱11╱ ╱00╱ R ╱00╱ ╱00╱ ╱01╱ ╱00╱ CHAIN GET ╱d4╱ ╱08╱ EXEC PRINTRES ( "smal…EDB-liste" , 12 )
02260 EXEC PRINTRES ( "EDB-liste" , 12 )
00760 LET TAL $ := "0123456789" ; NULR := 0 ; MAX_LIN := 72
02640 PRINT "<LS>***…" ; SYST_NAVN $ ; "…***" ; TAB ( 68 )
02650 PRINT "SIDE:…" ; SIDENR
02660 PRINT
02670 PRINT "<S>Firmanavn:…" ; FIRMANAVN $ ; TAB ( 30 )
02680 PRINT "<S>***…BALANCE…***" ; TAB ( 16 ) ; "***…UDSKREVET…PR.…"
02430 PRINT SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ; SYST_DAT $ ( 5 : 2 ) ; "…***"
02440 PRINT
02450 PRINT "<KS>" ; TAB ( 54 )
02370 LET LIN_T := 8 ; SIDENR := SIDENR + 1
02640 PRINT "<LIS>***…" ; SYST_NAVN $ ; "…***" ; TAB ( 68 )
01970 PROC UDSKRIV
01980 REPEAT
01990 EXEC OVERSKRIFT ( "Udskrivning…af…saldobalance" , 8 )
02260 EXEC PRINTRES ( "EDB-liste" , 12 )
02010 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
02020 LET LIN_T := 100 ; SIDENR := 0 ; TOTAL ( 1 ) , TOTAL ( 2 ) , TOTAL ( 3 ) , TOTAL ( 4 ) := 0
02030 FOR IDXPOS := 2 TO _H\JREC DO
02040 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
02420 PRINT "<S>***…BALANCE…PR.…"
02670 PRINT "<S>Firmanavn:…" ; FIRMANAVN $ ; TAB ( 42 )
02380 PRINT "<LIS>***…" ; SYST_NAVN $ ; "…***" ; TAB ( 62 )
02390 PRINT "SIDE:…" ; SIDENR
02400 PRINT
02670 PRINT "<S>Firmanavn:…" ; FIRMANAVN $ ; TAB ( 42 )
02410 PRINT "<S>Firmanavn:…" ; FIRMANAVN $ ; TAB ( 38 )
02760 PRINT "<LI>"
02000 EXEC PRINTRES ( "papir" , 12 )
09900 //
09901 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
09902 LET PRTNR $ := "1" ; OK := TRUE
09903 REPEAT
09904 CURSOR 15 , LINE
09905 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
09906 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
09907 CURSOR 1 , LINE
09908 PRINT "<Z>"
09909 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
09910 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
09911 INPUT "" : SVAR $
09912 SELECT OUTPUT "P" + PRTNR $
09913 IF ( "P" ) THEN
09914 CURSOR 12 , LINE
09915 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
09916 CURSOR 12 , LINE + 1
09917 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
09918 IF VAR $ = "J" OR SVAR $ = "j" THEN
09919 CURSOR 12 , LINE
09920 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
09921 PRINT "<SZ>"
09922 WHILE ╱cd╱ ( "P" ) DO
09923 LET SEK := ╱ca╱ ( 5 )
09924 SELECT OUTPUT "P" + PRTNR $
09925 ENDWHILE
09926 ELSE
09927 LET OK := FALSE
09928 ENDIF
09929 ENDIF
09930 CURSOR 1 , LINE
09931 PRINT "<Z>"
09932 PRINT "<SZ>"
09933 ENDPROC PRINTRES
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…0373 9961 00270 EXEC UDSKRIV
0x0366…0373 LineComal80 {
0x0366…0373 ptr = 0x9961 // 0x366 @0x0
0x0366…0373 lno = 0x010e // 0x368 @0x2
0x0366…0373 at0004 = ╱9d╱ EXEC ╱ // 0x36a @0x4
0x0366…0373 at0005 = ╱55╱U╱ // 0x36b @0x5
0x0366…0373 at0006 = ╱44╱D╱ // 0x36c @0x6
0x0366…0373 at0007 = ╱53╱S╱ // 0x36d @0x7
0x0366…0373 at0008 = ╱4b╱K╱ // 0x36e @0x8
0x0366…0373 at0009 = ╱52╱R╱ // 0x36f @0x9
0x0366…0373 at000a = ╱49╱I╱ // 0x370 @0xa
0x0366…0373 at000b = ╱56╱V╱ // 0x371 @0xb
0x0366…0373 at000c = EOL // 0x372 @0xc
0x0366…0373 }
0x0373…0381 996f 00280 CHAIN PROGRAM $
0x0373…0381 LineComal80 {
0x0373…0381 ptr = 0x996f // 0x373 @0x0
0x0373…0381 lno = 0x0118 // 0x375 @0x2
0x0373…0381 at0004 = ╱ac╱ CHAIN ╱ // 0x377 @0x4
0x0373…0381 at0005 = ╱50╱P╱ // 0x378 @0x5
0x0373…0381 at0006 = ╱52╱R╱ // 0x379 @0x6
0x0373…0381 at0007 = ╱4f╱O╱ // 0x37a @0x7
0x0373…0381 at0008 = ╱47╱G╱ // 0x37b @0x8
0x0373…0381 at0009 = ╱52╱R╱ // 0x37c @0x9
0x0373…0381 at000a = ╱41╱A╱ // 0x37d @0xa
0x0373…0381 at000b = ╱4d╱M╱ // 0x37e @0xb
0x0373…0381 at000c = ╱ef╱ $ ╱ // 0x37f @0xc
0x0373…0381 at000d = EOL // 0x380 @0xd
0x0373…0381 }
0x0381…03b4 99a2 00290 // ===========…Procedurer…starter…==============
0x0381…03b4 LineComal80 {
0x0381…03b4 ptr = 0x99a2 // 0x381 @0x0
0x0381…03b4 lno = 0x0122 // 0x383 @0x2
0x0381…03b4 at0004 = ╱89╱ // ╱ // 0x385 @0x4
0x0381…03b4 at0005 = ╱3d╱=╱ // 0x386 @0x5
0x0381…03b4 at0006 = ╱3d╱=╱ // 0x387 @0x6
0x0381…03b4 at0007 = ╱3d╱=╱ // 0x388 @0x7
0x0381…03b4 at0008 = ╱3d╱=╱ // 0x389 @0x8
0x0381…03b4 at0009 = ╱3d╱=╱ // 0x38a @0x9
0x0381…03b4 at000a = ╱3d╱=╱ // 0x38b @0xa
0x0381…03b4 at000b = ╱3d╱=╱ // 0x38c @0xb
0x0381…03b4 at000c = ╱3d╱=╱ // 0x38d @0xc
0x0381…03b4 at000d = ╱3d╱=╱ // 0x38e @0xd
0x0381…03b4 at000e = ╱3d╱=╱ // 0x38f @0xe
0x0381…03b4 at000f = ╱3d╱=╱ // 0x390 @0xf
0x0381…03b4 at0010 = ╱20╱…╱ // 0x391 @0x10
0x0381…03b4 at0011 = ╱50╱P╱ // 0x392 @0x11
0x0381…03b4 at0012 = ╱72╱r╱ // 0x393 @0x12
0x0381…03b4 at0013 = ╱6f╱o╱ // 0x394 @0x13
0x0381…03b4 at0014 = ╱63╱c╱ // 0x395 @0x14
0x0381…03b4 at0015 = ╱65╱e╱ // 0x396 @0x15
0x0381…03b4 at0016 = ╱64╱d╱ // 0x397 @0x16
0x0381…03b4 at0017 = ╱75╱u╱ // 0x398 @0x17
0x0381…03b4 at0018 = ╱72╱r╱ // 0x399 @0x18
0x0381…03b4 at0019 = ╱65╱e╱ // 0x39a @0x19
0x0381…03b4 at001a = ╱72╱r╱ // 0x39b @0x1a
0x0381…03b4 at001b = ╱20╱…╱ // 0x39c @0x1b
0x0381…03b4 at001c = ╱73╱s╱ // 0x39d @0x1c
0x0381…03b4 at001d = ╱74╱t╱ // 0x39e @0x1d
0x0381…03b4 at001e = ╱61╱a╱ // 0x39f @0x1e
0x0381…03b4 at001f = ╱72╱r╱ // 0x3a0 @0x1f
0x0381…03b4 at0020 = ╱74╱t╱ // 0x3a1 @0x20
0x0381…03b4 at0021 = ╱65╱e╱ // 0x3a2 @0x21
0x0381…03b4 at0022 = ╱72╱r╱ // 0x3a3 @0x22
0x0381…03b4 at0023 = ╱20╱…╱ // 0x3a4 @0x23
0x0381…03b4 at0024 = ╱3d╱=╱ // 0x3a5 @0x24
0x0381…03b4 at0025 = ╱3d╱=╱ // 0x3a6 @0x25
0x0381…03b4 at0026 = ╱3d╱=╱ // 0x3a7 @0x26
0x0381…03b4 at0027 = ╱3d╱=╱ // 0x3a8 @0x27
0x0381…03b4 at0028 = ╱3d╱=╱ // 0x3a9 @0x28
0x0381…03b4 at0029 = ╱3d╱=╱ // 0x3aa @0x29
0x0381…03b4 at002a = ╱3d╱=╱ // 0x3ab @0x2a
0x0381…03b4 at002b = ╱3d╱=╱ // 0x3ac @0x2b
0x0381…03b4 at002c = ╱3d╱=╱ // 0x3ad @0x2c
0x0381…03b4 at002d = ╱3d╱=╱ // 0x3ae @0x2d
0x0381…03b4 at002e = ╱3d╱=╱ // 0x3af @0x2e
0x0381…03b4 at002f = ╱3d╱=╱ // 0x3b0 @0x2f
0x0381…03b4 at0030 = ╱3d╱=╱ // 0x3b1 @0x30
0x0381…03b4 at0031 = ╱3d╱=╱ // 0x3b2 @0x31
0x0381…03b4 at0032 = EOL // 0x3b3 @0x32
0x0381…03b4 }
0x03b4…03c6 99b4 00300 PROC DIMENSIONER
0x03b4…03c6 LineComal80 {
0x03b4…03c6 ptr = 0x99b4 // 0x3b4 @0x0
0x03b4…03c6 lno = 0x012c // 0x3b6 @0x2
0x03b4…03c6 at0004 = ╱9e01╱ PROC ╱ // 0x3b8 @0x4
0x03b4…03c6 at0006 = ╱44╱D╱ // 0x3ba @0x6
0x03b4…03c6 at0007 = ╱49╱I╱ // 0x3bb @0x7
0x03b4…03c6 at0008 = ╱4d╱M╱ // 0x3bc @0x8
0x03b4…03c6 at0009 = ╱45╱E╱ // 0x3bd @0x9
0x03b4…03c6 at000a = ╱4e╱N╱ // 0x3be @0xa
0x03b4…03c6 at000b = ╱53╱S╱ // 0x3bf @0xb
0x03b4…03c6 at000c = ╱49╱I╱ // 0x3c0 @0xc
0x03b4…03c6 at000d = ╱4f╱O╱ // 0x3c1 @0xd
0x03b4…03c6 at000e = ╱4e╱N╱ // 0x3c2 @0xe
0x03b4…03c6 at000f = ╱45╱E╱ // 0x3c3 @0xf
0x03b4…03c6 at0010 = ╱52╱R╱ // 0x3c4 @0x10
0x03b4…03c6 at0011 = EOL // 0x3c5 @0x11
0x03b4…03c6 }
0x03c6…03dd 99cb 00310 // Standard…variable
0x03c6…03dd LineComal80 {
0x03c6…03dd ptr = 0x99cb // 0x3c6 @0x0
0x03c6…03dd lno = 0x0136 // 0x3c8 @0x2
0x03c6…03dd at0004 = ╱89╱ // ╱ // 0x3ca @0x4
0x03c6…03dd at0005 = ╱53╱S╱ // 0x3cb @0x5
0x03c6…03dd at0006 = ╱74╱t╱ // 0x3cc @0x6
0x03c6…03dd at0007 = ╱61╱a╱ // 0x3cd @0x7
0x03c6…03dd at0008 = ╱6e╱n╱ // 0x3ce @0x8
0x03c6…03dd at0009 = ╱64╱d╱ // 0x3cf @0x9
0x03c6…03dd at000a = ╱61╱a╱ // 0x3d0 @0xa
0x03c6…03dd at000b = ╱72╱r╱ // 0x3d1 @0xb
0x03c6…03dd at000c = ╱64╱d╱ // 0x3d2 @0xc
0x03c6…03dd at000d = ╱20╱…╱ // 0x3d3 @0xd
0x03c6…03dd at000e = ╱76╱v╱ // 0x3d4 @0xe
0x03c6…03dd at000f = ╱61╱a╱ // 0x3d5 @0xf
0x03c6…03dd at0010 = ╱72╱r╱ // 0x3d6 @0x10
0x03c6…03dd at0011 = ╱69╱i╱ // 0x3d7 @0x11
0x03c6…03dd at0012 = ╱61╱a╱ // 0x3d8 @0x12
0x03c6…03dd at0013 = ╱62╱b╱ // 0x3d9 @0x13
0x03c6…03dd at0014 = ╱6c╱l╱ // 0x3da @0x14
0x03c6…03dd at0015 = ╱65╱e╱ // 0x3db @0x15
0x03c6…03dd at0016 = EOL // 0x3dc @0x16
0x03c6…03dd }
0x03dd…041c 9a0a 00320 DIM SPC $ OF 80 , SVAR $ OF 10 , PRGFL $ OF 8 , ALFA $ OF 28 , TAL $ OF 10
0x03dd…041c LineComal80 {
0x03dd…041c ptr = 0x9a0a // 0x3dd @0x0
0x03dd…041c lno = 0x0140 // 0x3df @0x2
0x03dd…041c at0004 = ╱87╱ DIM ╱ // 0x3e1 @0x4
0x03dd…041c at0005 = ╱53╱S╱ // 0x3e2 @0x5
0x03dd…041c at0006 = ╱50╱P╱ // 0x3e3 @0x6
0x03dd…041c at0007 = ╱43╱C╱ // 0x3e4 @0x7
0x03dd…041c at0008 = ╱ef╱ $ ╱ // 0x3e5 @0x8
0x03dd…041c at0009 = ╱ba╱ OF ╱ // 0x3e6 @0x9
0x03dd…041c at000a = ╱38╱8╱ // 0x3e7 @0xa
0x03dd…041c at000b = ╱30╱0╱ // 0x3e8 @0xb
0x03dd…041c at000c = ╱f25000╱ // 0x3e9 @0xc
0x03dd…041c at000f = ╱ec╱ , ╱ // 0x3ec @0xf
0x03dd…041c at0010 = ╱53╱S╱ // 0x3ed @0x10
0x03dd…041c at0011 = ╱56╱V╱ // 0x3ee @0x11
0x03dd…041c at0012 = ╱41╱A╱ // 0x3ef @0x12
0x03dd…041c at0013 = ╱52╱R╱ // 0x3f0 @0x13
0x03dd…041c at0014 = ╱ef╱ $ ╱ // 0x3f1 @0x14
0x03dd…041c at0015 = ╱ba╱ OF ╱ // 0x3f2 @0x15
0x03dd…041c at0016 = ╱31╱1╱ // 0x3f3 @0x16
0x03dd…041c at0017 = ╱30╱0╱ // 0x3f4 @0x17
0x03dd…041c at0018 = ╱f20a00╱ // 0x3f5 @0x18
0x03dd…041c at001b = ╱ec╱ , ╱ // 0x3f8 @0x1b
0x03dd…041c at001c = ╱50╱P╱ // 0x3f9 @0x1c
0x03dd…041c at001d = ╱52╱R╱ // 0x3fa @0x1d
0x03dd…041c at001e = ╱47╱G╱ // 0x3fb @0x1e
0x03dd…041c at001f = ╱46╱F╱ // 0x3fc @0x1f
0x03dd…041c at0020 = ╱4c╱L╱ // 0x3fd @0x20
0x03dd…041c at0021 = ╱ef╱ $ ╱ // 0x3fe @0x21
0x03dd…041c at0022 = ╱ba╱ OF ╱ // 0x3ff @0x22
0x03dd…041c at0023 = ╱38╱8╱ // 0x400 @0x23
0x03dd…041c at0024 = ╱f20800╱ // 0x401 @0x24
0x03dd…041c at0027 = ╱ec╱ , ╱ // 0x404 @0x27
0x03dd…041c at0028 = ╱41╱A╱ // 0x405 @0x28
0x03dd…041c at0029 = ╱4c╱L╱ // 0x406 @0x29
0x03dd…041c at002a = ╱46╱F╱ // 0x407 @0x2a
0x03dd…041c at002b = ╱41╱A╱ // 0x408 @0x2b
0x03dd…041c at002c = ╱ef╱ $ ╱ // 0x409 @0x2c
0x03dd…041c at002d = ╱ba╱ OF ╱ // 0x40a @0x2d
0x03dd…041c at002e = ╱32╱2╱ // 0x40b @0x2e
0x03dd…041c at002f = ╱38╱8╱ // 0x40c @0x2f
0x03dd…041c at0030 = ╱f21c00╱ // 0x40d @0x30
0x03dd…041c at0033 = ╱ec╱ , ╱ // 0x410 @0x33
0x03dd…041c at0034 = ╱54╱T╱ // 0x411 @0x34
0x03dd…041c at0035 = ╱41╱A╱ // 0x412 @0x35
0x03dd…041c at0036 = ╱4c╱L╱ // 0x413 @0x36
0x03dd…041c at0037 = ╱ef╱ $ ╱ // 0x414 @0x37
0x03dd…041c at0038 = ╱ba╱ OF ╱ // 0x415 @0x38
0x03dd…041c at0039 = ╱31╱1╱ // 0x416 @0x39
0x03dd…041c at003a = ╱30╱0╱ // 0x417 @0x3a
0x03dd…041c at003b = ╱f20a00╱ // 0x418 @0x3b
0x03dd…041c at003e = EOL // 0x41b @0x3e
0x03dd…041c }
0x041c…043c 9a2a 00330 DIM PROGRAM $ OF 17 , PRTNR $ OF 1
0x041c…043c LineComal80 {
0x041c…043c ptr = 0x9a2a // 0x41c @0x0
0x041c…043c lno = 0x014a // 0x41e @0x2
0x041c…043c at0004 = ╱87╱ DIM ╱ // 0x420 @0x4
0x041c…043c at0005 = ╱50╱P╱ // 0x421 @0x5
0x041c…043c at0006 = ╱52╱R╱ // 0x422 @0x6
0x041c…043c at0007 = ╱4f╱O╱ // 0x423 @0x7
0x041c…043c at0008 = ╱47╱G╱ // 0x424 @0x8
0x041c…043c at0009 = ╱52╱R╱ // 0x425 @0x9
0x041c…043c at000a = ╱41╱A╱ // 0x426 @0xa
0x041c…043c at000b = ╱4d╱M╱ // 0x427 @0xb
0x041c…043c at000c = ╱ef╱ $ ╱ // 0x428 @0xc
0x041c…043c at000d = ╱ba╱ OF ╱ // 0x429 @0xd
0x041c…043c at000e = ╱31╱1╱ // 0x42a @0xe
0x041c…043c at000f = ╱37╱7╱ // 0x42b @0xf
0x041c…043c at0010 = ╱f21100╱ // 0x42c @0x10
0x041c…043c at0013 = ╱ec╱ , ╱ // 0x42f @0x13
0x041c…043c at0014 = ╱50╱P╱ // 0x430 @0x14
0x041c…043c at0015 = ╱52╱R╱ // 0x431 @0x15
0x041c…043c at0016 = ╱54╱T╱ // 0x432 @0x16
0x041c…043c at0017 = ╱4e╱N╱ // 0x433 @0x17
0x041c…043c at0018 = ╱52╱R╱ // 0x434 @0x18
0x041c…043c at0019 = ╱ef╱ $ ╱ // 0x435 @0x19
0x041c…043c at001a = ╱ba╱ OF ╱ // 0x436 @0x1a
0x041c…043c at001b = ╱31╱1╱ // 0x437 @0x1b
0x041c…043c at001c = ╱f20100╱ // 0x438 @0x1c
0x041c…043c at001f = EOL // 0x43b @0x1f
0x041c…043c }
0x043c…044c 9a3a 00340 REAL RESRV , PPAR
0x043c…044c LineComal80 {
0x043c…044c ptr = 0x9a3a // 0x43c @0x0
0x043c…044c lno = 0x0154 // 0x43e @0x2
0x043c…044c at0004 = ╱b3╱ REAL ╱ // 0x440 @0x4
0x043c…044c at0005 = ╱52╱R╱ // 0x441 @0x5
0x043c…044c at0006 = ╱45╱E╱ // 0x442 @0x6
0x043c…044c at0007 = ╱53╱S╱ // 0x443 @0x7
0x043c…044c at0008 = ╱52╱R╱ // 0x444 @0x8
0x043c…044c at0009 = ╱56╱V╱ // 0x445 @0x9
0x043c…044c at000a = ╱ec╱ , ╱ // 0x446 @0xa
0x043c…044c at000b = ╱50╱P╱ // 0x447 @0xb
0x043c…044c at000c = ╱50╱P╱ // 0x448 @0xc
0x043c…044c at000d = ╱41╱A╱ // 0x449 @0xd
0x043c…044c at000e = ╱52╱R╱ // 0x44a @0xe
0x043c…044c at000f = EOL // 0x44b @0xf
0x043c…044c }
0x044c…0463 9a51 00350 INTEGER OK , TRUE , FALSE , I , J
0x044c…0463 LineComal80 {
0x044c…0463 ptr = 0x9a51 // 0x44c @0x0
0x044c…0463 lno = 0x015e // 0x44e @0x2
0x044c…0463 at0004 = ╱b2╱ INTEGER ╱ // 0x450 @0x4
0x044c…0463 at0005 = ╱4f╱O╱ // 0x451 @0x5
0x044c…0463 at0006 = ╱4b╱K╱ // 0x452 @0x6
0x044c…0463 at0007 = ╱ec╱ , ╱ // 0x453 @0x7
0x044c…0463 at0008 = ╱54╱T╱ // 0x454 @0x8
0x044c…0463 at0009 = ╱52╱R╱ // 0x455 @0x9
0x044c…0463 at000a = ╱55╱U╱ // 0x456 @0xa
0x044c…0463 at000b = ╱45╱E╱ // 0x457 @0xb
0x044c…0463 at000c = ╱ec╱ , ╱ // 0x458 @0xc
0x044c…0463 at000d = ╱46╱F╱ // 0x459 @0xd
0x044c…0463 at000e = ╱41╱A╱ // 0x45a @0xe
0x044c…0463 at000f = ╱4c╱L╱ // 0x45b @0xf
0x044c…0463 at0010 = ╱53╱S╱ // 0x45c @0x10
0x044c…0463 at0011 = ╱45╱E╱ // 0x45d @0x11
0x044c…0463 at0012 = ╱ec╱ , ╱ // 0x45e @0x12
0x044c…0463 at0013 = ╱49╱I╱ // 0x45f @0x13
0x044c…0463 at0014 = ╱ec╱ , ╱ // 0x460 @0x14
0x044c…0463 at0015 = ╱4a╱J╱ // 0x461 @0x15
0x044c…0463 at0016 = EOL // 0x462 @0x16
0x044c…0463 }
0x0463…0477 9a65 00360 // Hj{lpevariable
0x0463…0477 LineComal80 {
0x0463…0477 ptr = 0x9a65 // 0x463 @0x0
0x0463…0477 lno = 0x0168 // 0x465 @0x2
0x0463…0477 at0004 = ╱89╱ // ╱ // 0x467 @0x4
0x0463…0477 at0005 = ╱48╱H╱ // 0x468 @0x5
0x0463…0477 at0006 = ╱6a╱j╱ // 0x469 @0x6
0x0463…0477 at0007 = ╱7b╱{╱ // 0x46a @0x7
0x0463…0477 at0008 = ╱6c╱l╱ // 0x46b @0x8
0x0463…0477 at0009 = ╱70╱p╱ // 0x46c @0x9
0x0463…0477 at000a = ╱65╱e╱ // 0x46d @0xa
0x0463…0477 at000b = ╱76╱v╱ // 0x46e @0xb
0x0463…0477 at000c = ╱61╱a╱ // 0x46f @0xc
0x0463…0477 at000d = ╱72╱r╱ // 0x470 @0xd
0x0463…0477 at000e = ╱69╱i╱ // 0x471 @0xe
0x0463…0477 at000f = ╱61╱a╱ // 0x472 @0xf
0x0463…0477 at0010 = ╱62╱b╱ // 0x473 @0x10
0x0463…0477 at0011 = ╱6c╱l╱ // 0x474 @0x11
0x0463…0477 at0012 = ╱65╱e╱ // 0x475 @0x12
0x0463…0477 at0013 = EOL // 0x476 @0x13
0x0463…0477 }
0x0477…048a 9a78 00370 DIM A_KTONR $ OF 8
0x0477…048a LineComal80 {
0x0477…048a ptr = 0x9a78 // 0x477 @0x0
0x0477…048a lno = 0x0172 // 0x479 @0x2
0x0477…048a at0004 = ╱87╱ DIM ╱ // 0x47b @0x4
0x0477…048a at0005 = ╱41╱A╱ // 0x47c @0x5
0x0477…048a at0006 = ╱5f╱_╱ // 0x47d @0x6
0x0477…048a at0007 = ╱4b╱K╱ // 0x47e @0x7
0x0477…048a at0008 = ╱54╱T╱ // 0x47f @0x8
0x0477…048a at0009 = ╱4f╱O╱ // 0x480 @0x9
0x0477…048a at000a = ╱4e╱N╱ // 0x481 @0xa
0x0477…048a at000b = ╱52╱R╱ // 0x482 @0xb
0x0477…048a at000c = ╱ef╱ $ ╱ // 0x483 @0xc
0x0477…048a at000d = ╱ba╱ OF ╱ // 0x484 @0xd
0x0477…048a at000e = ╱38╱8╱ // 0x485 @0xe
0x0477…048a at000f = ╱f20800╱ // 0x486 @0xf
0x0477…048a at0012 = EOL // 0x489 @0x12
0x0477…048a }
0x048a…04a5 9a93 00380 REAL TOT ( 2 ) , TOTAL ( 4 )
0x048a…04a5 LineComal80 {
0x048a…04a5 ptr = 0x9a93 // 0x48a @0x0
0x048a…04a5 lno = 0x017c // 0x48c @0x2
0x048a…04a5 at0004 = ╱b3╱ REAL ╱ // 0x48e @0x4
0x048a…04a5 at0005 = ╱54╱T╱ // 0x48f @0x5
0x048a…04a5 at0006 = ╱4f╱O╱ // 0x490 @0x6
0x048a…04a5 at0007 = ╱54╱T╱ // 0x491 @0x7
0x048a…04a5 at0008 = ╱ed╱ ( ╱ // 0x492 @0x8
0x048a…04a5 at0009 = ╱32╱2╱ // 0x493 @0x9
0x048a…04a5 at000a = ╱f20200╱ // 0x494 @0xa
0x048a…04a5 at000d = ╱ee╱ ) ╱ // 0x497 @0xd
0x048a…04a5 at000e = ╱ec╱ , ╱ // 0x498 @0xe
0x048a…04a5 at000f = ╱54╱T╱ // 0x499 @0xf
0x048a…04a5 at0010 = ╱4f╱O╱ // 0x49a @0x10
0x048a…04a5 at0011 = ╱54╱T╱ // 0x49b @0x11
0x048a…04a5 at0012 = ╱41╱A╱ // 0x49c @0x12
0x048a…04a5 at0013 = ╱4c╱L╱ // 0x49d @0x13
0x048a…04a5 at0014 = ╱ed╱ ( ╱ // 0x49e @0x14
0x048a…04a5 at0015 = ╱34╱4╱ // 0x49f @0x15
0x048a…04a5 at0016 = ╱f20400╱ // 0x4a0 @0x16
0x048a…04a5 at0019 = ╱ee╱ ) ╱ // 0x4a3 @0x19
0x048a…04a5 at001a = EOL // 0x4a4 @0x1a
0x048a…04a5 }
0x04a5…04e7 9ad5 00390 INTEGER IDXPOS , HIGH , LOW , KREDIT , DEBET , LIN_T , MAX_LIN , T_IDX , K , NUL , F_IDX
0x04a5…04e7 LineComal80 {
0x04a5…04e7 ptr = 0x9ad5 // 0x4a5 @0x0
0x04a5…04e7 lno = 0x0186 // 0x4a7 @0x2
0x04a5…04e7 at0004 = ╱b2╱ INTEGER ╱ // 0x4a9 @0x4
0x04a5…04e7 at0005 = ╱49╱I╱ // 0x4aa @0x5
0x04a5…04e7 at0006 = ╱44╱D╱ // 0x4ab @0x6
0x04a5…04e7 at0007 = ╱58╱X╱ // 0x4ac @0x7
0x04a5…04e7 at0008 = ╱50╱P╱ // 0x4ad @0x8
0x04a5…04e7 at0009 = ╱4f╱O╱ // 0x4ae @0x9
0x04a5…04e7 at000a = ╱53╱S╱ // 0x4af @0xa
0x04a5…04e7 at000b = ╱ec╱ , ╱ // 0x4b0 @0xb
0x04a5…04e7 at000c = ╱48╱H╱ // 0x4b1 @0xc
0x04a5…04e7 at000d = ╱49╱I╱ // 0x4b2 @0xd
0x04a5…04e7 at000e = ╱47╱G╱ // 0x4b3 @0xe
0x04a5…04e7 at000f = ╱48╱H╱ // 0x4b4 @0xf
0x04a5…04e7 at0010 = ╱ec╱ , ╱ // 0x4b5 @0x10
0x04a5…04e7 at0011 = ╱4c╱L╱ // 0x4b6 @0x11
0x04a5…04e7 at0012 = ╱4f╱O╱ // 0x4b7 @0x12
0x04a5…04e7 at0013 = ╱57╱W╱ // 0x4b8 @0x13
0x04a5…04e7 at0014 = ╱ec╱ , ╱ // 0x4b9 @0x14
0x04a5…04e7 at0015 = ╱4b╱K╱ // 0x4ba @0x15
0x04a5…04e7 at0016 = ╱52╱R╱ // 0x4bb @0x16
0x04a5…04e7 at0017 = ╱45╱E╱ // 0x4bc @0x17
0x04a5…04e7 at0018 = ╱44╱D╱ // 0x4bd @0x18
0x04a5…04e7 at0019 = ╱49╱I╱ // 0x4be @0x19
0x04a5…04e7 at001a = ╱54╱T╱ // 0x4bf @0x1a
0x04a5…04e7 at001b = ╱ec╱ , ╱ // 0x4c0 @0x1b
0x04a5…04e7 at001c = ╱44╱D╱ // 0x4c1 @0x1c
0x04a5…04e7 at001d = ╱45╱E╱ // 0x4c2 @0x1d
0x04a5…04e7 at001e = ╱42╱B╱ // 0x4c3 @0x1e
0x04a5…04e7 at001f = ╱45╱E╱ // 0x4c4 @0x1f
0x04a5…04e7 at0020 = ╱54╱T╱ // 0x4c5 @0x20
0x04a5…04e7 at0021 = ╱ec╱ , ╱ // 0x4c6 @0x21
0x04a5…04e7 at0022 = ╱4c╱L╱ // 0x4c7 @0x22
0x04a5…04e7 at0023 = ╱49╱I╱ // 0x4c8 @0x23
0x04a5…04e7 at0024 = ╱4e╱N╱ // 0x4c9 @0x24
0x04a5…04e7 at0025 = ╱5f╱_╱ // 0x4ca @0x25
0x04a5…04e7 at0026 = ╱54╱T╱ // 0x4cb @0x26
0x04a5…04e7 at0027 = ╱ec╱ , ╱ // 0x4cc @0x27
0x04a5…04e7 at0028 = ╱4d╱M╱ // 0x4cd @0x28
0x04a5…04e7 at0029 = ╱41╱A╱ // 0x4ce @0x29
0x04a5…04e7 at002a = ╱58╱X╱ // 0x4cf @0x2a
0x04a5…04e7 at002b = ╱5f╱_╱ // 0x4d0 @0x2b
0x04a5…04e7 at002c = ╱4c╱L╱ // 0x4d1 @0x2c
0x04a5…04e7 at002d = ╱49╱I╱ // 0x4d2 @0x2d
0x04a5…04e7 at002e = ╱4e╱N╱ // 0x4d3 @0x2e
0x04a5…04e7 at002f = ╱ec╱ , ╱ // 0x4d4 @0x2f
0x04a5…04e7 at0030 = ╱54╱T╱ // 0x4d5 @0x30
0x04a5…04e7 at0031 = ╱5f╱_╱ // 0x4d6 @0x31
0x04a5…04e7 at0032 = ╱49╱I╱ // 0x4d7 @0x32
0x04a5…04e7 at0033 = ╱44╱D╱ // 0x4d8 @0x33
0x04a5…04e7 at0034 = ╱58╱X╱ // 0x4d9 @0x34
0x04a5…04e7 at0035 = ╱ec╱ , ╱ // 0x4da @0x35
0x04a5…04e7 at0036 = ╱4b╱K╱ // 0x4db @0x36
0x04a5…04e7 at0037 = ╱ec╱ , ╱ // 0x4dc @0x37
0x04a5…04e7 at0038 = ╱4e╱N╱ // 0x4dd @0x38
0x04a5…04e7 at0039 = ╱55╱U╱ // 0x4de @0x39
0x04a5…04e7 at003a = ╱4c╱L╱ // 0x4df @0x3a
0x04a5…04e7 at003b = ╱ec╱ , ╱ // 0x4e0 @0x3b
0x04a5…04e7 at003c = ╱46╱F╱ // 0x4e1 @0x3c
0x04a5…04e7 at003d = ╱5f╱_╱ // 0x4e2 @0x3d
0x04a5…04e7 at003e = ╱49╱I╱ // 0x4e3 @0x3e
0x04a5…04e7 at003f = ╱44╱D╱ // 0x4e4 @0x3f
0x04a5…04e7 at0040 = ╱58╱X╱ // 0x4e5 @0x40
0x04a5…04e7 at0041 = EOL // 0x4e6 @0x41
0x04a5…04e7 }
0x04e7…04f3 9ae1 00400 INTEGER SIDENR
0x04e7…04f3 LineComal80 {
0x04e7…04f3 ptr = 0x9ae1 // 0x4e7 @0x0
0x04e7…04f3 lno = 0x0190 // 0x4e9 @0x2
0x04e7…04f3 at0004 = ╱b2╱ INTEGER ╱ // 0x4eb @0x4
0x04e7…04f3 at0005 = ╱53╱S╱ // 0x4ec @0x5
0x04e7…04f3 at0006 = ╱49╱I╱ // 0x4ed @0x6
0x04e7…04f3 at0007 = ╱44╱D╱ // 0x4ee @0x7
0x04e7…04f3 at0008 = ╱45╱E╱ // 0x4ef @0x8
0x04e7…04f3 at0009 = ╱4e╱N╱ // 0x4f0 @0x9
0x04e7…04f3 at000a = ╱52╱R╱ // 0x4f1 @0xa
0x04e7…04f3 at000b = EOL // 0x4f2 @0xb
0x04e7…04f3 }
0x04f3…0513 9b01 00410 // Variable…til…filen…SYSPARA
0x04f3…0513 LineComal80 {
0x04f3…0513 ptr = 0x9b01 // 0x4f3 @0x0
0x04f3…0513 lno = 0x019a // 0x4f5 @0x2
0x04f3…0513 at0004 = ╱89╱ // ╱ // 0x4f7 @0x4
0x04f3…0513 at0005 = ╱56╱V╱ // 0x4f8 @0x5
0x04f3…0513 at0006 = ╱61╱a╱ // 0x4f9 @0x6
0x04f3…0513 at0007 = ╱72╱r╱ // 0x4fa @0x7
0x04f3…0513 at0008 = ╱69╱i╱ // 0x4fb @0x8
0x04f3…0513 at0009 = ╱61╱a╱ // 0x4fc @0x9
0x04f3…0513 at000a = ╱62╱b╱ // 0x4fd @0xa
0x04f3…0513 at000b = ╱6c╱l╱ // 0x4fe @0xb
0x04f3…0513 at000c = ╱65╱e╱ // 0x4ff @0xc
0x04f3…0513 at000d = ╱20╱…╱ // 0x500 @0xd
0x04f3…0513 at000e = ╱74╱t╱ // 0x501 @0xe
0x04f3…0513 at000f = ╱69╱i╱ // 0x502 @0xf
0x04f3…0513 at0010 = ╱6c╱l╱ // 0x503 @0x10
0x04f3…0513 at0011 = ╱20╱…╱ // 0x504 @0x11
0x04f3…0513 at0012 = ╱66╱f╱ // 0x505 @0x12
0x04f3…0513 at0013 = ╱69╱i╱ // 0x506 @0x13
0x04f3…0513 at0014 = ╱6c╱l╱ // 0x507 @0x14
0x04f3…0513 at0015 = ╱65╱e╱ // 0x508 @0x15
0x04f3…0513 at0016 = ╱6e╱n╱ // 0x509 @0x16
0x04f3…0513 at0017 = ╱20╱…╱ // 0x50a @0x17
0x04f3…0513 at0018 = ╱53╱S╱ // 0x50b @0x18
0x04f3…0513 at0019 = ╱59╱Y╱ // 0x50c @0x19
0x04f3…0513 at001a = ╱53╱S╱ // 0x50d @0x1a
0x04f3…0513 at001b = ╱50╱P╱ // 0x50e @0x1b
0x04f3…0513 at001c = ╱41╱A╱ // 0x50f @0x1c
0x04f3…0513 at001d = ╱52╱R╱ // 0x510 @0x1d
0x04f3…0513 at001e = ╱41╱A╱ // 0x511 @0x1e
0x04f3…0513 at001f = EOL // 0x512 @0x1f
0x04f3…0513 }
0x0513…0527 9b15 00420 DIM SYSPARA $ OF 17
0x0513…0527 LineComal80 {
0x0513…0527 ptr = 0x9b15 // 0x513 @0x0
0x0513…0527 lno = 0x01a4 // 0x515 @0x2
0x0513…0527 at0004 = ╱87╱ DIM ╱ // 0x517 @0x4
0x0513…0527 at0005 = ╱53╱S╱ // 0x518 @0x5
0x0513…0527 at0006 = ╱59╱Y╱ // 0x519 @0x6
0x0513…0527 at0007 = ╱53╱S╱ // 0x51a @0x7
0x0513…0527 at0008 = ╱50╱P╱ // 0x51b @0x8
0x0513…0527 at0009 = ╱41╱A╱ // 0x51c @0x9
0x0513…0527 at000a = ╱52╱R╱ // 0x51d @0xa
0x0513…0527 at000b = ╱41╱A╱ // 0x51e @0xb
0x0513…0527 at000c = ╱ef╱ $ ╱ // 0x51f @0xc
0x0513…0527 at000d = ╱ba╱ OF ╱ // 0x520 @0xd
0x0513…0527 at000e = ╱31╱1╱ // 0x521 @0xe
0x0513…0527 at000f = ╱37╱7╱ // 0x522 @0xf
0x0513…0527 at0010 = ╱f21100╱ // 0x523 @0x10
0x0513…0527 at0013 = EOL // 0x526 @0x13
0x0513…0527 }
0x0527…054a 9b38 00430 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
0x0527…054a LineComal80 {
0x0527…054a ptr = 0x9b38 // 0x527 @0x0
0x0527…054a lno = 0x01ae // 0x529 @0x2
0x0527…054a at0004 = ╱87╱ DIM ╱ // 0x52b @0x4
0x0527…054a at0005 = ╱53╱S╱ // 0x52c @0x5
0x0527…054a at0006 = ╱59╱Y╱ // 0x52d @0x6
0x0527…054a at0007 = ╱53╱S╱ // 0x52e @0x7
0x0527…054a at0008 = ╱54╱T╱ // 0x52f @0x8
0x0527…054a at0009 = ╱5f╱_╱ // 0x530 @0x9
0x0527…054a at000a = ╱4e╱N╱ // 0x531 @0xa
0x0527…054a at000b = ╱41╱A╱ // 0x532 @0xb
0x0527…054a at000c = ╱56╱V╱ // 0x533 @0xc
0x0527…054a at000d = ╱4e╱N╱ // 0x534 @0xd
0x0527…054a at000e = ╱ef╱ $ ╱ // 0x535 @0xe
0x0527…054a at000f = ╱ba╱ OF ╱ // 0x536 @0xf
0x0527…054a at0010 = ╱33╱3╱ // 0x537 @0x10
0x0527…054a at0011 = ╱30╱0╱ // 0x538 @0x11
0x0527…054a at0012 = ╱f21e00╱ // 0x539 @0x12
0x0527…054a at0015 = ╱ec╱ , ╱ // 0x53c @0x15
0x0527…054a at0016 = ╱53╱S╱ // 0x53d @0x16
0x0527…054a at0017 = ╱5f╱_╱ // 0x53e @0x17
0x0527…054a at0018 = ╱4b╱K╱ // 0x53f @0x18
0x0527…054a at0019 = ╱4f╱O╱ // 0x540 @0x19
0x0527…054a at001a = ╱44╱D╱ // 0x541 @0x1a
0x0527…054a at001b = ╱45╱E╱ // 0x542 @0x1b
0x0527…054a at001c = ╱ef╱ $ ╱ // 0x543 @0x1c
0x0527…054a at001d = ╱ba╱ OF ╱ // 0x544 @0x1d
0x0527…054a at001e = ╱31╱1╱ // 0x545 @0x1e
0x0527…054a at001f = ╱f20100╱ // 0x546 @0x1f
0x0527…054a at0022 = EOL // 0x549 @0x22
0x0527…054a }
0x054a…0569 9b57 00440 DIM DATAFL $ OF 8 , T_KODE $ OF 1
0x054a…0569 LineComal80 {
0x054a…0569 ptr = 0x9b57 // 0x54a @0x0
0x054a…0569 lno = 0x01b8 // 0x54c @0x2
0x054a…0569 at0004 = ╱87╱ DIM ╱ // 0x54e @0x4
0x054a…0569 at0005 = ╱44╱D╱ // 0x54f @0x5
0x054a…0569 at0006 = ╱41╱A╱ // 0x550 @0x6
0x054a…0569 at0007 = ╱54╱T╱ // 0x551 @0x7
0x054a…0569 at0008 = ╱41╱A╱ // 0x552 @0x8
0x054a…0569 at0009 = ╱46╱F╱ // 0x553 @0x9
0x054a…0569 at000a = ╱4c╱L╱ // 0x554 @0xa
0x054a…0569 at000b = ╱ef╱ $ ╱ // 0x555 @0xb
0x054a…0569 at000c = ╱ba╱ OF ╱ // 0x556 @0xc
0x054a…0569 at000d = ╱38╱8╱ // 0x557 @0xd
0x054a…0569 at000e = ╱f20800╱ // 0x558 @0xe
0x054a…0569 at0011 = ╱ec╱ , ╱ // 0x55b @0x11
0x054a…0569 at0012 = ╱54╱T╱ // 0x55c @0x12
0x054a…0569 at0013 = ╱5f╱_╱ // 0x55d @0x13
0x054a…0569 at0014 = ╱4b╱K╱ // 0x55e @0x14
0x054a…0569 at0015 = ╱4f╱O╱ // 0x55f @0x15
0x054a…0569 at0016 = ╱44╱D╱ // 0x560 @0x16
0x054a…0569 at0017 = ╱45╱E╱ // 0x561 @0x17
0x054a…0569 at0018 = ╱ef╱ $ ╱ // 0x562 @0x18
0x054a…0569 at0019 = ╱ba╱ OF ╱ // 0x563 @0x19
0x054a…0569 at001a = ╱31╱1╱ // 0x564 @0x1a
0x054a…0569 at001b = ╱f20100╱ // 0x565 @0x1b
0x054a…0569 at001e = EOL // 0x568 @0x1e
0x054a…0569 }
0x0569…0589 9b77 00450 // Variable…til…filen…@@PARAM
0x0569…0589 LineComal80 {
0x0569…0589 ptr = 0x9b77 // 0x569 @0x0
0x0569…0589 lno = 0x01c2 // 0x56b @0x2
0x0569…0589 at0004 = ╱89╱ // ╱ // 0x56d @0x4
0x0569…0589 at0005 = ╱56╱V╱ // 0x56e @0x5
0x0569…0589 at0006 = ╱61╱a╱ // 0x56f @0x6
0x0569…0589 at0007 = ╱72╱r╱ // 0x570 @0x7
0x0569…0589 at0008 = ╱69╱i╱ // 0x571 @0x8
0x0569…0589 at0009 = ╱61╱a╱ // 0x572 @0x9
0x0569…0589 at000a = ╱62╱b╱ // 0x573 @0xa
0x0569…0589 at000b = ╱6c╱l╱ // 0x574 @0xb
0x0569…0589 at000c = ╱65╱e╱ // 0x575 @0xc
0x0569…0589 at000d = ╱20╱…╱ // 0x576 @0xd
0x0569…0589 at000e = ╱74╱t╱ // 0x577 @0xe
0x0569…0589 at000f = ╱69╱i╱ // 0x578 @0xf
0x0569…0589 at0010 = ╱6c╱l╱ // 0x579 @0x10
0x0569…0589 at0011 = ╱20╱…╱ // 0x57a @0x11
0x0569…0589 at0012 = ╱66╱f╱ // 0x57b @0x12
0x0569…0589 at0013 = ╱69╱i╱ // 0x57c @0x13
0x0569…0589 at0014 = ╱6c╱l╱ // 0x57d @0x14
0x0569…0589 at0015 = ╱65╱e╱ // 0x57e @0x15
0x0569…0589 at0016 = ╱6e╱n╱ // 0x57f @0x16
0x0569…0589 at0017 = ╱20╱…╱ // 0x580 @0x17
0x0569…0589 at0018 = ╱40╱@╱ // 0x581 @0x18
0x0569…0589 at0019 = ╱40╱@╱ // 0x582 @0x19
0x0569…0589 at001a = ╱50╱P╱ // 0x583 @0x1a
0x0569…0589 at001b = ╱41╱A╱ // 0x584 @0x1b
0x0569…0589 at001c = ╱52╱R╱ // 0x585 @0x1c
0x0569…0589 at001d = ╱41╱A╱ // 0x586 @0x1d
0x0569…0589 at001e = ╱4d╱M╱ // 0x587 @0x1e
0x0569…0589 at001f = EOL // 0x588 @0x1f
0x0569…0589 }
0x0589…059b 9b89 00460 DIM PARAM $ OF 17
0x0589…059b LineComal80 {
0x0589…059b ptr = 0x9b89 // 0x589 @0x0
0x0589…059b lno = 0x01cc // 0x58b @0x2
0x0589…059b at0004 = ╱87╱ DIM ╱ // 0x58d @0x4
0x0589…059b at0005 = ╱50╱P╱ // 0x58e @0x5
0x0589…059b at0006 = ╱41╱A╱ // 0x58f @0x6
0x0589…059b at0007 = ╱52╱R╱ // 0x590 @0x7
0x0589…059b at0008 = ╱41╱A╱ // 0x591 @0x8
0x0589…059b at0009 = ╱4d╱M╱ // 0x592 @0x9
0x0589…059b at000a = ╱ef╱ $ ╱ // 0x593 @0xa
0x0589…059b at000b = ╱ba╱ OF ╱ // 0x594 @0xb
0x0589…059b at000c = ╱31╱1╱ // 0x595 @0xc
0x0589…059b at000d = ╱37╱7╱ // 0x596 @0xd
0x0589…059b at000e = ╱f21100╱ // 0x597 @0xe
0x0589…059b at0011 = EOL // 0x59a @0x11
0x0589…059b }
0x059b…05c0 9bae 00470 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 6
0x059b…05c0 LineComal80 {
0x059b…05c0 ptr = 0x9bae // 0x59b @0x0
0x059b…05c0 lno = 0x01d6 // 0x59d @0x2
0x059b…05c0 at0004 = ╱87╱ DIM ╱ // 0x59f @0x4
0x059b…05c0 at0005 = ╱46╱F╱ // 0x5a0 @0x5
0x059b…05c0 at0006 = ╱49╱I╱ // 0x5a1 @0x6
0x059b…05c0 at0007 = ╱52╱R╱ // 0x5a2 @0x7
0x059b…05c0 at0008 = ╱4d╱M╱ // 0x5a3 @0x8
0x059b…05c0 at0009 = ╱41╱A╱ // 0x5a4 @0x9
0x059b…05c0 at000a = ╱4e╱N╱ // 0x5a5 @0xa
0x059b…05c0 at000b = ╱41╱A╱ // 0x5a6 @0xb
0x059b…05c0 at000c = ╱56╱V╱ // 0x5a7 @0xc
0x059b…05c0 at000d = ╱4e╱N╱ // 0x5a8 @0xd
0x059b…05c0 at000e = ╱ef╱ $ ╱ // 0x5a9 @0xe
0x059b…05c0 at000f = ╱ba╱ OF ╱ // 0x5aa @0xf
0x059b…05c0 at0010 = ╱33╱3╱ // 0x5ab @0x10
0x059b…05c0 at0011 = ╱30╱0╱ // 0x5ac @0x11
0x059b…05c0 at0012 = ╱f21e00╱ // 0x5ad @0x12
0x059b…05c0 at0015 = ╱ec╱ , ╱ // 0x5b0 @0x15
0x059b…05c0 at0016 = ╱53╱S╱ // 0x5b1 @0x16
0x059b…05c0 at0017 = ╱59╱Y╱ // 0x5b2 @0x17
0x059b…05c0 at0018 = ╱53╱S╱ // 0x5b3 @0x18
0x059b…05c0 at0019 = ╱54╱T╱ // 0x5b4 @0x19
0x059b…05c0 at001a = ╱5f╱_╱ // 0x5b5 @0x1a
0x059b…05c0 at001b = ╱44╱D╱ // 0x5b6 @0x1b
0x059b…05c0 at001c = ╱41╱A╱ // 0x5b7 @0x1c
0x059b…05c0 at001d = ╱54╱T╱ // 0x5b8 @0x1d
0x059b…05c0 at001e = ╱ef╱ $ ╱ // 0x5b9 @0x1e
0x059b…05c0 at001f = ╱ba╱ OF ╱ // 0x5ba @0x1f
0x059b…05c0 at0020 = ╱36╱6╱ // 0x5bb @0x20
0x059b…05c0 at0021 = ╱f20600╱ // 0x5bc @0x21
0x059b…05c0 at0024 = EOL // 0x5bf @0x24
0x059b…05c0 }
0x05c0…05ca 9bb8 00480 REAL MOMS
0x05c0…05ca LineComal80 {
0x05c0…05ca ptr = 0x9bb8 // 0x5c0 @0x0
0x05c0…05ca lno = 0x01e0 // 0x5c2 @0x2
0x05c0…05ca at0004 = ╱b3╱ REAL ╱ // 0x5c4 @0x4
0x05c0…05ca at0005 = ╱4d╱M╱ // 0x5c5 @0x5
0x05c0…05ca at0006 = ╱4f╱O╱ // 0x5c6 @0x6
0x05c0…05ca at0007 = ╱4d╱M╱ // 0x5c7 @0x7
0x05c0…05ca at0008 = ╱53╱S╱ // 0x5c8 @0x8
0x05c0…05ca at0009 = EOL // 0x5c9 @0x9
0x05c0…05ca }
0x05ca…05ea 9bd8 00490 // Variable…til…filen…@@KONTO
0x05ca…05ea LineComal80 {
0x05ca…05ea ptr = 0x9bd8 // 0x5ca @0x0
0x05ca…05ea lno = 0x01ea // 0x5cc @0x2
0x05ca…05ea at0004 = ╱89╱ // ╱ // 0x5ce @0x4
0x05ca…05ea at0005 = ╱56╱V╱ // 0x5cf @0x5
0x05ca…05ea at0006 = ╱61╱a╱ // 0x5d0 @0x6
0x05ca…05ea at0007 = ╱72╱r╱ // 0x5d1 @0x7
0x05ca…05ea at0008 = ╱69╱i╱ // 0x5d2 @0x8
0x05ca…05ea at0009 = ╱61╱a╱ // 0x5d3 @0x9
0x05ca…05ea at000a = ╱62╱b╱ // 0x5d4 @0xa
0x05ca…05ea at000b = ╱6c╱l╱ // 0x5d5 @0xb
0x05ca…05ea at000c = ╱65╱e╱ // 0x5d6 @0xc
0x05ca…05ea at000d = ╱20╱…╱ // 0x5d7 @0xd
0x05ca…05ea at000e = ╱74╱t╱ // 0x5d8 @0xe
0x05ca…05ea at000f = ╱69╱i╱ // 0x5d9 @0xf
0x05ca…05ea at0010 = ╱6c╱l╱ // 0x5da @0x10
0x05ca…05ea at0011 = ╱20╱…╱ // 0x5db @0x11
0x05ca…05ea at0012 = ╱66╱f╱ // 0x5dc @0x12
0x05ca…05ea at0013 = ╱69╱i╱ // 0x5dd @0x13
0x05ca…05ea at0014 = ╱6c╱l╱ // 0x5de @0x14
0x05ca…05ea at0015 = ╱65╱e╱ // 0x5df @0x15
0x05ca…05ea at0016 = ╱6e╱n╱ // 0x5e0 @0x16
0x05ca…05ea at0017 = ╱20╱…╱ // 0x5e1 @0x17
0x05ca…05ea at0018 = ╱40╱@╱ // 0x5e2 @0x18
0x05ca…05ea at0019 = ╱40╱@╱ // 0x5e3 @0x19
0x05ca…05ea at001a = ╱4b╱K╱ // 0x5e4 @0x1a
0x05ca…05ea at001b = ╱4f╱O╱ // 0x5e5 @0x1b
0x05ca…05ea at001c = ╱4e╱N╱ // 0x5e6 @0x1c
0x05ca…05ea at001d = ╱54╱T╱ // 0x5e7 @0x1d
0x05ca…05ea at001e = ╱4f╱O╱ // 0x5e8 @0x1e
0x05ca…05ea at001f = EOL // 0x5e9 @0x1f
0x05ca…05ea }
0x05ea…05fc 9bea 00500 DIM KONTO $ OF 17
0x05ea…05fc LineComal80 {
0x05ea…05fc ptr = 0x9bea // 0x5ea @0x0
0x05ea…05fc lno = 0x01f4 // 0x5ec @0x2
0x05ea…05fc at0004 = ╱87╱ DIM ╱ // 0x5ee @0x4
0x05ea…05fc at0005 = ╱4b╱K╱ // 0x5ef @0x5
0x05ea…05fc at0006 = ╱4f╱O╱ // 0x5f0 @0x6
0x05ea…05fc at0007 = ╱4e╱N╱ // 0x5f1 @0x7
0x05ea…05fc at0008 = ╱54╱T╱ // 0x5f2 @0x8
0x05ea…05fc at0009 = ╱4f╱O╱ // 0x5f3 @0x9
0x05ea…05fc at000a = ╱ef╱ $ ╱ // 0x5f4 @0xa
0x05ea…05fc at000b = ╱ba╱ OF ╱ // 0x5f5 @0xb
0x05ea…05fc at000c = ╱31╱1╱ // 0x5f6 @0xc
0x05ea…05fc at000d = ╱37╱7╱ // 0x5f7 @0xd
0x05ea…05fc at000e = ╱f21100╱ // 0x5f8 @0xe
0x05ea…05fc at0011 = EOL // 0x5fb @0x11
0x05ea…05fc }
0x05fc…060f 9bfd 00510 DIM ST_DATO $ OF 6
0x05fc…060f LineComal80 {
0x05fc…060f ptr = 0x9bfd // 0x5fc @0x0
0x05fc…060f lno = 0x01fe // 0x5fe @0x2
0x05fc…060f at0004 = ╱87╱ DIM ╱ // 0x600 @0x4
0x05fc…060f at0005 = ╱53╱S╱ // 0x601 @0x5
0x05fc…060f at0006 = ╱54╱T╱ // 0x602 @0x6
0x05fc…060f at0007 = ╱5f╱_╱ // 0x603 @0x7
0x05fc…060f at0008 = ╱44╱D╱ // 0x604 @0x8
0x05fc…060f at0009 = ╱41╱A╱ // 0x605 @0x9
0x05fc…060f at000a = ╱54╱T╱ // 0x606 @0xa
0x05fc…060f at000b = ╱4f╱O╱ // 0x607 @0xb
0x05fc…060f at000c = ╱ef╱ $ ╱ // 0x608 @0xc
0x05fc…060f at000d = ╱ba╱ OF ╱ // 0x609 @0xd
0x05fc…060f at000e = ╱36╱6╱ // 0x60a @0xe
0x05fc…060f at000f = ╱f20600╱ // 0x60b @0xf
0x05fc…060f at0012 = EOL // 0x60e @0x12
0x05fc…060f }
0x060f…0635 9c23 00520 INTEGER N_FRIREC , N_MAXREC , ANT_PER , PER_NR
0x060f…0635 LineComal80 {
0x060f…0635 ptr = 0x9c23 // 0x60f @0x0
0x060f…0635 lno = 0x0208 // 0x611 @0x2
0x060f…0635 at0004 = ╱b2╱ INTEGER ╱ // 0x613 @0x4
0x060f…0635 at0005 = ╱4e╱N╱ // 0x614 @0x5
0x060f…0635 at0006 = ╱5f╱_╱ // 0x615 @0x6
0x060f…0635 at0007 = ╱46╱F╱ // 0x616 @0x7
0x060f…0635 at0008 = ╱52╱R╱ // 0x617 @0x8
0x060f…0635 at0009 = ╱49╱I╱ // 0x618 @0x9
0x060f…0635 at000a = ╱52╱R╱ // 0x619 @0xa
0x060f…0635 at000b = ╱45╱E╱ // 0x61a @0xb
0x060f…0635 at000c = ╱43╱C╱ // 0x61b @0xc
0x060f…0635 at000d = ╱ec╱ , ╱ // 0x61c @0xd
0x060f…0635 at000e = ╱4e╱N╱ // 0x61d @0xe
0x060f…0635 at000f = ╱5f╱_╱ // 0x61e @0xf
0x060f…0635 at0010 = ╱4d╱M╱ // 0x61f @0x10
0x060f…0635 at0011 = ╱41╱A╱ // 0x620 @0x11
0x060f…0635 at0012 = ╱58╱X╱ // 0x621 @0x12
0x060f…0635 at0013 = ╱52╱R╱ // 0x622 @0x13
0x060f…0635 at0014 = ╱45╱E╱ // 0x623 @0x14
0x060f…0635 at0015 = ╱43╱C╱ // 0x624 @0x15
0x060f…0635 at0016 = ╱ec╱ , ╱ // 0x625 @0x16
0x060f…0635 at0017 = ╱41╱A╱ // 0x626 @0x17
0x060f…0635 at0018 = ╱4e╱N╱ // 0x627 @0x18
0x060f…0635 at0019 = ╱54╱T╱ // 0x628 @0x19
0x060f…0635 at001a = ╱5f╱_╱ // 0x629 @0x1a
0x060f…0635 at001b = ╱50╱P╱ // 0x62a @0x1b
0x060f…0635 at001c = ╱45╱E╱ // 0x62b @0x1c
0x060f…0635 at001d = ╱52╱R╱ // 0x62c @0x1d
0x060f…0635 at001e = ╱ec╱ , ╱ // 0x62d @0x1e
0x060f…0635 at001f = ╱50╱P╱ // 0x62e @0x1f
0x060f…0635 at0020 = ╱45╱E╱ // 0x62f @0x20
0x060f…0635 at0021 = ╱52╱R╱ // 0x630 @0x21
0x060f…0635 at0022 = ╱5f╱_╱ // 0x631 @0x22
0x060f…0635 at0023 = ╱4e╱N╱ // 0x632 @0x23
0x060f…0635 at0024 = ╱52╱R╱ // 0x633 @0x24
0x060f…0635 at0025 = EOL // 0x634 @0x25
0x060f…0635 }
0x0635…0659 9c47 00530 DIM KTO_TYPE $ OF 1 , KTO_NAVN $ OF 40
0x0635…0659 LineComal80 {
0x0635…0659 ptr = 0x9c47 // 0x635 @0x0
0x0635…0659 lno = 0x0212 // 0x637 @0x2
0x0635…0659 at0004 = ╱87╱ DIM ╱ // 0x639 @0x4
0x0635…0659 at0005 = ╱4b╱K╱ // 0x63a @0x5
0x0635…0659 at0006 = ╱54╱T╱ // 0x63b @0x6
0x0635…0659 at0007 = ╱4f╱O╱ // 0x63c @0x7
0x0635…0659 at0008 = ╱5f╱_╱ // 0x63d @0x8
0x0635…0659 at0009 = ╱54╱T╱ // 0x63e @0x9
0x0635…0659 at000a = ╱59╱Y╱ // 0x63f @0xa
0x0635…0659 at000b = ╱50╱P╱ // 0x640 @0xb
0x0635…0659 at000c = ╱45╱E╱ // 0x641 @0xc
0x0635…0659 at000d = ╱ef╱ $ ╱ // 0x642 @0xd
0x0635…0659 at000e = ╱ba╱ OF ╱ // 0x643 @0xe
0x0635…0659 at000f = ╱31╱1╱ // 0x644 @0xf
0x0635…0659 at0010 = ╱f20100╱ // 0x645 @0x10
0x0635…0659 at0013 = ╱ec╱ , ╱ // 0x648 @0x13
0x0635…0659 at0014 = ╱4b╱K╱ // 0x649 @0x14
0x0635…0659 at0015 = ╱54╱T╱ // 0x64a @0x15
0x0635…0659 at0016 = ╱4f╱O╱ // 0x64b @0x16
0x0635…0659 at0017 = ╱5f╱_╱ // 0x64c @0x17
0x0635…0659 at0018 = ╱4e╱N╱ // 0x64d @0x18
0x0635…0659 at0019 = ╱41╱A╱ // 0x64e @0x19
0x0635…0659 at001a = ╱56╱V╱ // 0x64f @0x1a
0x0635…0659 at001b = ╱4e╱N╱ // 0x650 @0x1b
0x0635…0659 at001c = ╱ef╱ $ ╱ // 0x651 @0x1c
0x0635…0659 at001d = ╱ba╱ OF ╱ // 0x652 @0x1d
0x0635…0659 at001e = ╱34╱4╱ // 0x653 @0x1e
0x0635…0659 at001f = ╱30╱0╱ // 0x654 @0x1f
0x0635…0659 at0020 = ╱f22800╱ // 0x655 @0x20
0x0635…0659 at0023 = EOL // 0x658 @0x23
0x0635…0659 }
0x0659…0673 9c61 00540 REAL KTO_PRIMO , KTO_ULTIMO
0x0659…0673 LineComal80 {
0x0659…0673 ptr = 0x9c61 // 0x659 @0x0
0x0659…0673 lno = 0x021c // 0x65b @0x2
0x0659…0673 at0004 = ╱b3╱ REAL ╱ // 0x65d @0x4
0x0659…0673 at0005 = ╱4b╱K╱ // 0x65e @0x5
0x0659…0673 at0006 = ╱54╱T╱ // 0x65f @0x6
0x0659…0673 at0007 = ╱4f╱O╱ // 0x660 @0x7
0x0659…0673 at0008 = ╱5f╱_╱ // 0x661 @0x8
0x0659…0673 at0009 = ╱50╱P╱ // 0x662 @0x9
0x0659…0673 at000a = ╱52╱R╱ // 0x663 @0xa
0x0659…0673 at000b = ╱49╱I╱ // 0x664 @0xb
0x0659…0673 at000c = ╱4d╱M╱ // 0x665 @0xc
0x0659…0673 at000d = ╱4f╱O╱ // 0x666 @0xd
0x0659…0673 at000e = ╱ec╱ , ╱ // 0x667 @0xe
0x0659…0673 at000f = ╱4b╱K╱ // 0x668 @0xf
0x0659…0673 at0010 = ╱54╱T╱ // 0x669 @0x10
0x0659…0673 at0011 = ╱4f╱O╱ // 0x66a @0x11
0x0659…0673 at0012 = ╱5f╱_╱ // 0x66b @0x12
0x0659…0673 at0013 = ╱55╱U╱ // 0x66c @0x13
0x0659…0673 at0014 = ╱4c╱L╱ // 0x66d @0x14
0x0659…0673 at0015 = ╱54╱T╱ // 0x66e @0x15
0x0659…0673 at0016 = ╱49╱I╱ // 0x66f @0x16
0x0659…0673 at0017 = ╱4d╱M╱ // 0x670 @0x17
0x0659…0673 at0018 = ╱4f╱O╱ // 0x671 @0x18
0x0659…0673 at0019 = EOL // 0x672 @0x19
0x0659…0673 }
0x0673…0686 9c74 00550 INTEGER KTO_FP , KTO_SP
0x0673…0686 LineComal80 {
0x0673…0686 ptr = 0x9c74 // 0x673 @0x0
0x0673…0686 lno = 0x0226 // 0x675 @0x2
0x0673…0686 at0004 = ╱b2╱ INTEGER ╱ // 0x677 @0x4
0x0673…0686 at0005 = ╱4b╱K╱ // 0x678 @0x5
0x0673…0686 at0006 = ╱54╱T╱ // 0x679 @0x6
0x0673…0686 at0007 = ╱4f╱O╱ // 0x67a @0x7
0x0673…0686 at0008 = ╱5f╱_╱ // 0x67b @0x8
0x0673…0686 at0009 = ╱46╱F╱ // 0x67c @0x9
0x0673…0686 at000a = ╱50╱P╱ // 0x67d @0xa
0x0673…0686 at000b = ╱ec╱ , ╱ // 0x67e @0xb
0x0673…0686 at000c = ╱4b╱K╱ // 0x67f @0xc
0x0673…0686 at000d = ╱54╱T╱ // 0x680 @0xd
0x0673…0686 at000e = ╱4f╱O╱ // 0x681 @0xe
0x0673…0686 at000f = ╱5f╱_╱ // 0x682 @0xf
0x0673…0686 at0010 = ╱53╱S╱ // 0x683 @0x10
0x0673…0686 at0011 = ╱50╱P╱ // 0x684 @0x11
0x0673…0686 at0012 = EOL // 0x685 @0x12
0x0673…0686 }
0x0686…06a7 9c95 00560 // Variable…til…filen…@@KTOIDX
0x0686…06a7 LineComal80 {
0x0686…06a7 ptr = 0x9c95 // 0x686 @0x0
0x0686…06a7 lno = 0x0230 // 0x688 @0x2
0x0686…06a7 at0004 = ╱89╱ // ╱ // 0x68a @0x4
0x0686…06a7 at0005 = ╱56╱V╱ // 0x68b @0x5
0x0686…06a7 at0006 = ╱61╱a╱ // 0x68c @0x6
0x0686…06a7 at0007 = ╱72╱r╱ // 0x68d @0x7
0x0686…06a7 at0008 = ╱69╱i╱ // 0x68e @0x8
0x0686…06a7 at0009 = ╱61╱a╱ // 0x68f @0x9
0x0686…06a7 at000a = ╱62╱b╱ // 0x690 @0xa
0x0686…06a7 at000b = ╱6c╱l╱ // 0x691 @0xb
0x0686…06a7 at000c = ╱65╱e╱ // 0x692 @0xc
0x0686…06a7 at000d = ╱20╱…╱ // 0x693 @0xd
0x0686…06a7 at000e = ╱74╱t╱ // 0x694 @0xe
0x0686…06a7 at000f = ╱69╱i╱ // 0x695 @0xf
0x0686…06a7 at0010 = ╱6c╱l╱ // 0x696 @0x10
0x0686…06a7 at0011 = ╱20╱…╱ // 0x697 @0x11
0x0686…06a7 at0012 = ╱66╱f╱ // 0x698 @0x12
0x0686…06a7 at0013 = ╱69╱i╱ // 0x699 @0x13
0x0686…06a7 at0014 = ╱6c╱l╱ // 0x69a @0x14
0x0686…06a7 at0015 = ╱65╱e╱ // 0x69b @0x15
0x0686…06a7 at0016 = ╱6e╱n╱ // 0x69c @0x16
0x0686…06a7 at0017 = ╱20╱…╱ // 0x69d @0x17
0x0686…06a7 at0018 = ╱40╱@╱ // 0x69e @0x18
0x0686…06a7 at0019 = ╱40╱@╱ // 0x69f @0x19
0x0686…06a7 at001a = ╱4b╱K╱ // 0x6a0 @0x1a
0x0686…06a7 at001b = ╱54╱T╱ // 0x6a1 @0x1b
0x0686…06a7 at001c = ╱4f╱O╱ // 0x6a2 @0x1c
0x0686…06a7 at001d = ╱49╱I╱ // 0x6a3 @0x1d
0x0686…06a7 at001e = ╱44╱D╱ // 0x6a4 @0x1e
0x0686…06a7 at001f = ╱58╱X╱ // 0x6a5 @0x1f
0x0686…06a7 at0020 = EOL // 0x6a6 @0x20
0x0686…06a7 }
0x06a7…06ba 9ca8 00570 DIM KTOIDX $ OF 17
0x06a7…06ba LineComal80 {
0x06a7…06ba ptr = 0x9ca8 // 0x6a7 @0x0
0x06a7…06ba lno = 0x023a // 0x6a9 @0x2
0x06a7…06ba at0004 = ╱87╱ DIM ╱ // 0x6ab @0x4
0x06a7…06ba at0005 = ╱4b╱K╱ // 0x6ac @0x5
0x06a7…06ba at0006 = ╱54╱T╱ // 0x6ad @0x6
0x06a7…06ba at0007 = ╱4f╱O╱ // 0x6ae @0x7
0x06a7…06ba at0008 = ╱49╱I╱ // 0x6af @0x8
0x06a7…06ba at0009 = ╱44╱D╱ // 0x6b0 @0x9
0x06a7…06ba at000a = ╱58╱X╱ // 0x6b1 @0xa
0x06a7…06ba at000b = ╱ef╱ $ ╱ // 0x6b2 @0xb
0x06a7…06ba at000c = ╱ba╱ OF ╱ // 0x6b3 @0xc
0x06a7…06ba at000d = ╱31╱1╱ // 0x6b4 @0xd
0x06a7…06ba at000e = ╱37╱7╱ // 0x6b5 @0xe
0x06a7…06ba at000f = ╱f21100╱ // 0x6b6 @0xf
0x06a7…06ba at0012 = EOL // 0x6b9 @0x12
0x06a7…06ba }
0x06ba…06d1 9cbf 00580 INTEGER I_H\JREC , I_MAXREC
0x06ba…06d1 LineComal80 {
0x06ba…06d1 ptr = 0x9cbf // 0x6ba @0x0
0x06ba…06d1 lno = 0x0244 // 0x6bc @0x2
0x06ba…06d1 at0004 = ╱b2╱ INTEGER ╱ // 0x6be @0x4
0x06ba…06d1 at0005 = ╱49╱I╱ // 0x6bf @0x5
0x06ba…06d1 at0006 = ╱5f╱_╱ // 0x6c0 @0x6
0x06ba…06d1 at0007 = ╱48╱H╱ // 0x6c1 @0x7
0x06ba…06d1 at0008 = ╱5c╱\╱ // 0x6c2 @0x8
0x06ba…06d1 at0009 = ╱4a╱J╱ // 0x6c3 @0x9
0x06ba…06d1 at000a = ╱52╱R╱ // 0x6c4 @0xa
0x06ba…06d1 at000b = ╱45╱E╱ // 0x6c5 @0xb
0x06ba…06d1 at000c = ╱43╱C╱ // 0x6c6 @0xc
0x06ba…06d1 at000d = ╱ec╱ , ╱ // 0x6c7 @0xd
0x06ba…06d1 at000e = ╱49╱I╱ // 0x6c8 @0xe
0x06ba…06d1 at000f = ╱5f╱_╱ // 0x6c9 @0xf
0x06ba…06d1 at0010 = ╱4d╱M╱ // 0x6ca @0x10
0x06ba…06d1 at0011 = ╱41╱A╱ // 0x6cb @0x11
0x06ba…06d1 at0012 = ╱58╱X╱ // 0x6cc @0x12
0x06ba…06d1 at0013 = ╱52╱R╱ // 0x6cd @0x13
0x06ba…06d1 at0014 = ╱45╱E╱ // 0x6ce @0x14
0x06ba…06d1 at0015 = ╱43╱C╱ // 0x6cf @0x15
0x06ba…06d1 at0016 = EOL // 0x6d0 @0x16
0x06ba…06d1 }
0x06d1…06e2 9cd0 00590 DIM KTONR $ OF 8
0x06d1…06e2 LineComal80 {
0x06d1…06e2 ptr = 0x9cd0 // 0x6d1 @0x0
0x06d1…06e2 lno = 0x024e // 0x6d3 @0x2
0x06d1…06e2 at0004 = ╱87╱ DIM ╱ // 0x6d5 @0x4
0x06d1…06e2 at0005 = ╱4b╱K╱ // 0x6d6 @0x5
0x06d1…06e2 at0006 = ╱54╱T╱ // 0x6d7 @0x6
0x06d1…06e2 at0007 = ╱4f╱O╱ // 0x6d8 @0x7
0x06d1…06e2 at0008 = ╱4e╱N╱ // 0x6d9 @0x8
0x06d1…06e2 at0009 = ╱52╱R╱ // 0x6da @0x9
0x06d1…06e2 at000a = ╱ef╱ $ ╱ // 0x6db @0xa
0x06d1…06e2 at000b = ╱ba╱ OF ╱ // 0x6dc @0xb
0x06d1…06e2 at000c = ╱38╱8╱ // 0x6dd @0xc
0x06d1…06e2 at000d = ╱f20800╱ // 0x6de @0xd
0x06d1…06e2 at0010 = EOL // 0x6e1 @0x10
0x06d1…06e2 }
0x06e2…06ed 9cdb 00600 INTEGER RECNR
0x06e2…06ed LineComal80 {
0x06e2…06ed ptr = 0x9cdb // 0x6e2 @0x0
0x06e2…06ed lno = 0x0258 // 0x6e4 @0x2
0x06e2…06ed at0004 = ╱b2╱ INTEGER ╱ // 0x6e6 @0x4
0x06e2…06ed at0005 = ╱52╱R╱ // 0x6e7 @0x5
0x06e2…06ed at0006 = ╱45╱E╱ // 0x6e8 @0x6
0x06e2…06ed at0007 = ╱43╱C╱ // 0x6e9 @0x7
0x06e2…06ed at0008 = ╱4e╱N╱ // 0x6ea @0x8
0x06e2…06ed at0009 = ╱52╱R╱ // 0x6eb @0x9
0x06e2…06ed at000a = EOL // 0x6ec @0xa
0x06e2…06ed }
0x06ed…070e 9cfc 00610 // Variable…til…filen…@@ST_KTO
0x06ed…070e LineComal80 {
0x06ed…070e ptr = 0x9cfc // 0x6ed @0x0
0x06ed…070e lno = 0x0262 // 0x6ef @0x2
0x06ed…070e at0004 = ╱89╱ // ╱ // 0x6f1 @0x4
0x06ed…070e at0005 = ╱56╱V╱ // 0x6f2 @0x5
0x06ed…070e at0006 = ╱61╱a╱ // 0x6f3 @0x6
0x06ed…070e at0007 = ╱72╱r╱ // 0x6f4 @0x7
0x06ed…070e at0008 = ╱69╱i╱ // 0x6f5 @0x8
0x06ed…070e at0009 = ╱61╱a╱ // 0x6f6 @0x9
0x06ed…070e at000a = ╱62╱b╱ // 0x6f7 @0xa
0x06ed…070e at000b = ╱6c╱l╱ // 0x6f8 @0xb
0x06ed…070e at000c = ╱65╱e╱ // 0x6f9 @0xc
0x06ed…070e at000d = ╱20╱…╱ // 0x6fa @0xd
0x06ed…070e at000e = ╱74╱t╱ // 0x6fb @0xe
0x06ed…070e at000f = ╱69╱i╱ // 0x6fc @0xf
0x06ed…070e at0010 = ╱6c╱l╱ // 0x6fd @0x10
0x06ed…070e at0011 = ╱20╱…╱ // 0x6fe @0x11
0x06ed…070e at0012 = ╱66╱f╱ // 0x6ff @0x12
0x06ed…070e at0013 = ╱69╱i╱ // 0x700 @0x13
0x06ed…070e at0014 = ╱6c╱l╱ // 0x701 @0x14
0x06ed…070e at0015 = ╱65╱e╱ // 0x702 @0x15
0x06ed…070e at0016 = ╱6e╱n╱ // 0x703 @0x16
0x06ed…070e at0017 = ╱20╱…╱ // 0x704 @0x17
0x06ed…070e at0018 = ╱40╱@╱ // 0x705 @0x18
0x06ed…070e at0019 = ╱40╱@╱ // 0x706 @0x19
0x06ed…070e at001a = ╱53╱S╱ // 0x707 @0x1a
0x06ed…070e at001b = ╱54╱T╱ // 0x708 @0x1b
0x06ed…070e at001c = ╱5f╱_╱ // 0x709 @0x1c
0x06ed…070e at001d = ╱4b╱K╱ // 0x70a @0x1d
0x06ed…070e at001e = ╱54╱T╱ // 0x70b @0x1e
0x06ed…070e at001f = ╱4f╱O╱ // 0x70c @0x1f
0x06ed…070e at0020 = EOL // 0x70d @0x20
0x06ed…070e }
0x070e…0721 9d0f 00620 DIM ST_KTO $ OF 17
0x070e…0721 LineComal80 {
0x070e…0721 ptr = 0x9d0f // 0x70e @0x0
0x070e…0721 lno = 0x026c // 0x710 @0x2
0x070e…0721 at0004 = ╱87╱ DIM ╱ // 0x712 @0x4
0x070e…0721 at0005 = ╱53╱S╱ // 0x713 @0x5
0x070e…0721 at0006 = ╱54╱T╱ // 0x714 @0x6
0x070e…0721 at0007 = ╱5f╱_╱ // 0x715 @0x7
0x070e…0721 at0008 = ╱4b╱K╱ // 0x716 @0x8
0x070e…0721 at0009 = ╱54╱T╱ // 0x717 @0x9
0x070e…0721 at000a = ╱4f╱O╱ // 0x718 @0xa
0x070e…0721 at000b = ╱ef╱ $ ╱ // 0x719 @0xb
0x070e…0721 at000c = ╱ba╱ OF ╱ // 0x71a @0xc
0x070e…0721 at000d = ╱31╱1╱ // 0x71b @0xd
0x070e…0721 at000e = ╱37╱7╱ // 0x71c @0xe
0x070e…0721 at000f = ╱f21100╱ // 0x71d @0xf
0x070e…0721 at0012 = EOL // 0x720 @0x12
0x070e…0721 }
0x0721…0754 9d42 00630 DIM KASSE_KTO $ OF 8 , BANK_KTO $ OF 8 , GIRO_KTO $ OF 8
0x0721…0754 LineComal80 {
0x0721…0754 ptr = 0x9d42 // 0x721 @0x0
0x0721…0754 lno = 0x0276 // 0x723 @0x2
0x0721…0754 at0004 = ╱87╱ DIM ╱ // 0x725 @0x4
0x0721…0754 at0005 = ╱4b╱K╱ // 0x726 @0x5
0x0721…0754 at0006 = ╱41╱A╱ // 0x727 @0x6
0x0721…0754 at0007 = ╱53╱S╱ // 0x728 @0x7
0x0721…0754 at0008 = ╱53╱S╱ // 0x729 @0x8
0x0721…0754 at0009 = ╱45╱E╱ // 0x72a @0x9
0x0721…0754 at000a = ╱5f╱_╱ // 0x72b @0xa
0x0721…0754 at000b = ╱4b╱K╱ // 0x72c @0xb
0x0721…0754 at000c = ╱54╱T╱ // 0x72d @0xc
0x0721…0754 at000d = ╱4f╱O╱ // 0x72e @0xd
0x0721…0754 at000e = ╱ef╱ $ ╱ // 0x72f @0xe
0x0721…0754 at000f = ╱ba╱ OF ╱ // 0x730 @0xf
0x0721…0754 at0010 = ╱38╱8╱ // 0x731 @0x10
0x0721…0754 at0011 = ╱f20800╱ // 0x732 @0x11
0x0721…0754 at0014 = ╱ec╱ , ╱ // 0x735 @0x14
0x0721…0754 at0015 = ╱42╱B╱ // 0x736 @0x15
0x0721…0754 at0016 = ╱41╱A╱ // 0x737 @0x16
0x0721…0754 at0017 = ╱4e╱N╱ // 0x738 @0x17
0x0721…0754 at0018 = ╱4b╱K╱ // 0x739 @0x18
0x0721…0754 at0019 = ╱5f╱_╱ // 0x73a @0x19
0x0721…0754 at001a = ╱4b╱K╱ // 0x73b @0x1a
0x0721…0754 at001b = ╱54╱T╱ // 0x73c @0x1b
0x0721…0754 at001c = ╱4f╱O╱ // 0x73d @0x1c
0x0721…0754 at001d = ╱ef╱ $ ╱ // 0x73e @0x1d
0x0721…0754 at001e = ╱ba╱ OF ╱ // 0x73f @0x1e
0x0721…0754 at001f = ╱38╱8╱ // 0x740 @0x1f
0x0721…0754 at0020 = ╱f20800╱ // 0x741 @0x20
0x0721…0754 at0023 = ╱ec╱ , ╱ // 0x744 @0x23
0x0721…0754 at0024 = ╱47╱G╱ // 0x745 @0x24
0x0721…0754 at0025 = ╱49╱I╱ // 0x746 @0x25
0x0721…0754 at0026 = ╱52╱R╱ // 0x747 @0x26
0x0721…0754 at0027 = ╱4f╱O╱ // 0x748 @0x27
0x0721…0754 at0028 = ╱5f╱_╱ // 0x749 @0x28
0x0721…0754 at0029 = ╱4b╱K╱ // 0x74a @0x29
0x0721…0754 at002a = ╱54╱T╱ // 0x74b @0x2a
0x0721…0754 at002b = ╱4f╱O╱ // 0x74c @0x2b
0x0721…0754 at002c = ╱ef╱ $ ╱ // 0x74d @0x2c
0x0721…0754 at002d = ╱ba╱ OF ╱ // 0x74e @0x2d
0x0721…0754 at002e = ╱38╱8╱ // 0x74f @0x2e
0x0721…0754 at002f = ╱f20800╱ // 0x750 @0x2f
0x0721…0754 at0032 = EOL // 0x753 @0x32
0x0721…0754 }
0x0754…078d 9d7b 00640 DIM K_DIFF_KTO $ OF 8 , INDMOMS_KTO $ OF 8 , UDMOMS_KTO $ OF 8
0x0754…078d LineComal80 {
0x0754…078d ptr = 0x9d7b // 0x754 @0x0
0x0754…078d lno = 0x0280 // 0x756 @0x2
0x0754…078d at0004 = ╱87╱ DIM ╱ // 0x758 @0x4
0x0754…078d at0005 = ╱4b╱K╱ // 0x759 @0x5
0x0754…078d at0006 = ╱5f╱_╱ // 0x75a @0x6
0x0754…078d at0007 = ╱44╱D╱ // 0x75b @0x7
0x0754…078d at0008 = ╱49╱I╱ // 0x75c @0x8
0x0754…078d at0009 = ╱46╱F╱ // 0x75d @0x9
0x0754…078d at000a = ╱46╱F╱ // 0x75e @0xa
0x0754…078d at000b = ╱5f╱_╱ // 0x75f @0xb
0x0754…078d at000c = ╱4b╱K╱ // 0x760 @0xc
0x0754…078d at000d = ╱54╱T╱ // 0x761 @0xd
0x0754…078d at000e = ╱4f╱O╱ // 0x762 @0xe
0x0754…078d at000f = ╱ef╱ $ ╱ // 0x763 @0xf
0x0754…078d at0010 = ╱ba╱ OF ╱ // 0x764 @0x10
0x0754…078d at0011 = ╱38╱8╱ // 0x765 @0x11
0x0754…078d at0012 = ╱f20800╱ // 0x766 @0x12
0x0754…078d at0015 = ╱ec╱ , ╱ // 0x769 @0x15
0x0754…078d at0016 = ╱49╱I╱ // 0x76a @0x16
0x0754…078d at0017 = ╱4e╱N╱ // 0x76b @0x17
0x0754…078d at0018 = ╱44╱D╱ // 0x76c @0x18
0x0754…078d at0019 = ╱4d╱M╱ // 0x76d @0x19
0x0754…078d at001a = ╱4f╱O╱ // 0x76e @0x1a
0x0754…078d at001b = ╱4d╱M╱ // 0x76f @0x1b
0x0754…078d at001c = ╱53╱S╱ // 0x770 @0x1c
0x0754…078d at001d = ╱5f╱_╱ // 0x771 @0x1d
0x0754…078d at001e = ╱4b╱K╱ // 0x772 @0x1e
0x0754…078d at001f = ╱54╱T╱ // 0x773 @0x1f
0x0754…078d at0020 = ╱4f╱O╱ // 0x774 @0x20
0x0754…078d at0021 = ╱ef╱ $ ╱ // 0x775 @0x21
0x0754…078d at0022 = ╱ba╱ OF ╱ // 0x776 @0x22
0x0754…078d at0023 = ╱38╱8╱ // 0x777 @0x23
0x0754…078d at0024 = ╱f20800╱ // 0x778 @0x24
0x0754…078d at0027 = ╱ec╱ , ╱ // 0x77b @0x27
0x0754…078d at0028 = ╱55╱U╱ // 0x77c @0x28
0x0754…078d at0029 = ╱44╱D╱ // 0x77d @0x29
0x0754…078d at002a = ╱4d╱M╱ // 0x77e @0x2a
0x0754…078d at002b = ╱4f╱O╱ // 0x77f @0x2b
0x0754…078d at002c = ╱4d╱M╱ // 0x780 @0x2c
0x0754…078d at002d = ╱53╱S╱ // 0x781 @0x2d
0x0754…078d at002e = ╱5f╱_╱ // 0x782 @0x2e
0x0754…078d at002f = ╱4b╱K╱ // 0x783 @0x2f
0x0754…078d at0030 = ╱54╱T╱ // 0x784 @0x30
0x0754…078d at0031 = ╱4f╱O╱ // 0x785 @0x31
0x0754…078d at0032 = ╱ef╱ $ ╱ // 0x786 @0x32
0x0754…078d at0033 = ╱ba╱ OF ╱ // 0x787 @0x33
0x0754…078d at0034 = ╱38╱8╱ // 0x788 @0x34
0x0754…078d at0035 = ╱f20800╱ // 0x789 @0x35
0x0754…078d at0038 = EOL // 0x78c @0x38
0x0754…078d }
0x078d…07ad 9d9b 00650 // Variable…til…filen…@@TRANS
0x078d…07ad LineComal80 {
0x078d…07ad ptr = 0x9d9b // 0x78d @0x0
0x078d…07ad lno = 0x028a // 0x78f @0x2
0x078d…07ad at0004 = ╱89╱ // ╱ // 0x791 @0x4
0x078d…07ad at0005 = ╱56╱V╱ // 0x792 @0x5
0x078d…07ad at0006 = ╱61╱a╱ // 0x793 @0x6
0x078d…07ad at0007 = ╱72╱r╱ // 0x794 @0x7
0x078d…07ad at0008 = ╱69╱i╱ // 0x795 @0x8
0x078d…07ad at0009 = ╱61╱a╱ // 0x796 @0x9
0x078d…07ad at000a = ╱62╱b╱ // 0x797 @0xa
0x078d…07ad at000b = ╱6c╱l╱ // 0x798 @0xb
0x078d…07ad at000c = ╱65╱e╱ // 0x799 @0xc
0x078d…07ad at000d = ╱20╱…╱ // 0x79a @0xd
0x078d…07ad at000e = ╱74╱t╱ // 0x79b @0xe
0x078d…07ad at000f = ╱69╱i╱ // 0x79c @0xf
0x078d…07ad at0010 = ╱6c╱l╱ // 0x79d @0x10
0x078d…07ad at0011 = ╱20╱…╱ // 0x79e @0x11
0x078d…07ad at0012 = ╱66╱f╱ // 0x79f @0x12
0x078d…07ad at0013 = ╱69╱i╱ // 0x7a0 @0x13
0x078d…07ad at0014 = ╱6c╱l╱ // 0x7a1 @0x14
0x078d…07ad at0015 = ╱65╱e╱ // 0x7a2 @0x15
0x078d…07ad at0016 = ╱6e╱n╱ // 0x7a3 @0x16
0x078d…07ad at0017 = ╱20╱…╱ // 0x7a4 @0x17
0x078d…07ad at0018 = ╱40╱@╱ // 0x7a5 @0x18
0x078d…07ad at0019 = ╱40╱@╱ // 0x7a6 @0x19
0x078d…07ad at001a = ╱54╱T╱ // 0x7a7 @0x1a
0x078d…07ad at001b = ╱52╱R╱ // 0x7a8 @0x1b
0x078d…07ad at001c = ╱41╱A╱ // 0x7a9 @0x1c
0x078d…07ad at001d = ╱4e╱N╱ // 0x7aa @0x1d
0x078d…07ad at001e = ╱53╱S╱ // 0x7ab @0x1e
0x078d…07ad at001f = EOL // 0x7ac @0x1f
0x078d…07ad }
0x07ad…07bf 9dad 00660 DIM TRANS $ OF 17
0x07ad…07bf LineComal80 {
0x07ad…07bf ptr = 0x9dad // 0x7ad @0x0
0x07ad…07bf lno = 0x0294 // 0x7af @0x2
0x07ad…07bf at0004 = ╱87╱ DIM ╱ // 0x7b1 @0x4
0x07ad…07bf at0005 = ╱54╱T╱ // 0x7b2 @0x5
0x07ad…07bf at0006 = ╱52╱R╱ // 0x7b3 @0x6
0x07ad…07bf at0007 = ╱41╱A╱ // 0x7b4 @0x7
0x07ad…07bf at0008 = ╱4e╱N╱ // 0x7b5 @0x8
0x07ad…07bf at0009 = ╱53╱S╱ // 0x7b6 @0x9
0x07ad…07bf at000a = ╱ef╱ $ ╱ // 0x7b7 @0xa
0x07ad…07bf at000b = ╱ba╱ OF ╱ // 0x7b8 @0xb
0x07ad…07bf at000c = ╱31╱1╱ // 0x7b9 @0xc
0x07ad…07bf at000d = ╱37╱7╱ // 0x7ba @0xd
0x07ad…07bf at000e = ╱f21100╱ // 0x7bb @0xe
0x07ad…07bf at0011 = EOL // 0x7be @0x11
0x07ad…07bf }
0x07bf…07d6 9dc4 00670 INTEGER T_H\JREC , T_MAXREC
0x07bf…07d6 LineComal80 {
0x07bf…07d6 ptr = 0x9dc4 // 0x7bf @0x0
0x07bf…07d6 lno = 0x029e // 0x7c1 @0x2
0x07bf…07d6 at0004 = ╱b2╱ INTEGER ╱ // 0x7c3 @0x4
0x07bf…07d6 at0005 = ╱54╱T╱ // 0x7c4 @0x5
0x07bf…07d6 at0006 = ╱5f╱_╱ // 0x7c5 @0x6
0x07bf…07d6 at0007 = ╱48╱H╱ // 0x7c6 @0x7
0x07bf…07d6 at0008 = ╱5c╱\╱ // 0x7c7 @0x8
0x07bf…07d6 at0009 = ╱4a╱J╱ // 0x7c8 @0x9
0x07bf…07d6 at000a = ╱52╱R╱ // 0x7c9 @0xa
0x07bf…07d6 at000b = ╱45╱E╱ // 0x7ca @0xb
0x07bf…07d6 at000c = ╱43╱C╱ // 0x7cb @0xc
0x07bf…07d6 at000d = ╱ec╱ , ╱ // 0x7cc @0xd
0x07bf…07d6 at000e = ╱54╱T╱ // 0x7cd @0xe
0x07bf…07d6 at000f = ╱5f╱_╱ // 0x7ce @0xf
0x07bf…07d6 at0010 = ╱4d╱M╱ // 0x7cf @0x10
0x07bf…07d6 at0011 = ╱41╱A╱ // 0x7d0 @0x11
0x07bf…07d6 at0012 = ╱58╱X╱ // 0x7d1 @0x12
0x07bf…07d6 at0013 = ╱52╱R╱ // 0x7d2 @0x13
0x07bf…07d6 at0014 = ╱45╱E╱ // 0x7d3 @0x14
0x07bf…07d6 at0015 = ╱43╱C╱ // 0x7d4 @0x15
0x07bf…07d6 at0016 = EOL // 0x7d5 @0x16
0x07bf…07d6 }
0x07d6…080c 9dfa 00680 DIM BKTONR $ OF 8 , BDATO $ OF 6 , BLGNR $ OF 5 , BTXT $ OF 20
0x07d6…080c LineComal80 {
0x07d6…080c ptr = 0x9dfa // 0x7d6 @0x0
0x07d6…080c lno = 0x02a8 // 0x7d8 @0x2
0x07d6…080c at0004 = ╱87╱ DIM ╱ // 0x7da @0x4
0x07d6…080c at0005 = ╱42╱B╱ // 0x7db @0x5
0x07d6…080c at0006 = ╱4b╱K╱ // 0x7dc @0x6
0x07d6…080c at0007 = ╱54╱T╱ // 0x7dd @0x7
0x07d6…080c at0008 = ╱4f╱O╱ // 0x7de @0x8
0x07d6…080c at0009 = ╱4e╱N╱ // 0x7df @0x9
0x07d6…080c at000a = ╱52╱R╱ // 0x7e0 @0xa
0x07d6…080c at000b = ╱ef╱ $ ╱ // 0x7e1 @0xb
0x07d6…080c at000c = ╱ba╱ OF ╱ // 0x7e2 @0xc
0x07d6…080c at000d = ╱38╱8╱ // 0x7e3 @0xd
0x07d6…080c at000e = ╱f20800╱ // 0x7e4 @0xe
0x07d6…080c at0011 = ╱ec╱ , ╱ // 0x7e7 @0x11
0x07d6…080c at0012 = ╱42╱B╱ // 0x7e8 @0x12
0x07d6…080c at0013 = ╱44╱D╱ // 0x7e9 @0x13
0x07d6…080c at0014 = ╱41╱A╱ // 0x7ea @0x14
0x07d6…080c at0015 = ╱54╱T╱ // 0x7eb @0x15
0x07d6…080c at0016 = ╱4f╱O╱ // 0x7ec @0x16
0x07d6…080c at0017 = ╱ef╱ $ ╱ // 0x7ed @0x17
0x07d6…080c at0018 = ╱ba╱ OF ╱ // 0x7ee @0x18
0x07d6…080c at0019 = ╱36╱6╱ // 0x7ef @0x19
0x07d6…080c at001a = ╱f20600╱ // 0x7f0 @0x1a
0x07d6…080c at001d = ╱ec╱ , ╱ // 0x7f3 @0x1d
0x07d6…080c at001e = ╱42╱B╱ // 0x7f4 @0x1e
0x07d6…080c at001f = ╱4c╱L╱ // 0x7f5 @0x1f
0x07d6…080c at0020 = ╱47╱G╱ // 0x7f6 @0x20
0x07d6…080c at0021 = ╱4e╱N╱ // 0x7f7 @0x21
0x07d6…080c at0022 = ╱52╱R╱ // 0x7f8 @0x22
0x07d6…080c at0023 = ╱ef╱ $ ╱ // 0x7f9 @0x23
0x07d6…080c at0024 = ╱ba╱ OF ╱ // 0x7fa @0x24
0x07d6…080c at0025 = ╱35╱5╱ // 0x7fb @0x25
0x07d6…080c at0026 = ╱f20500╱ // 0x7fc @0x26
0x07d6…080c at0029 = ╱ec╱ , ╱ // 0x7ff @0x29
0x07d6…080c at002a = ╱42╱B╱ // 0x800 @0x2a
0x07d6…080c at002b = ╱54╱T╱ // 0x801 @0x2b
0x07d6…080c at002c = ╱58╱X╱ // 0x802 @0x2c
0x07d6…080c at002d = ╱54╱T╱ // 0x803 @0x2d
0x07d6…080c at002e = ╱ef╱ $ ╱ // 0x804 @0x2e
0x07d6…080c at002f = ╱ba╱ OF ╱ // 0x805 @0x2f
0x07d6…080c at0030 = ╱32╱2╱ // 0x806 @0x30
0x07d6…080c at0031 = ╱30╱0╱ // 0x807 @0x31
0x07d6…080c at0032 = ╱f21400╱ // 0x808 @0x32
0x07d6…080c at0035 = EOL // 0x80b @0x35
0x07d6…080c }
0x080c…081e 9e0c 00690 REAL BMOMS , BBEL\B
0x080c…081e LineComal80 {
0x080c…081e ptr = 0x9e0c // 0x80c @0x0
0x080c…081e lno = 0x02b2 // 0x80e @0x2
0x080c…081e at0004 = ╱b3╱ REAL ╱ // 0x810 @0x4
0x080c…081e at0005 = ╱42╱B╱ // 0x811 @0x5
0x080c…081e at0006 = ╱4d╱M╱ // 0x812 @0x6
0x080c…081e at0007 = ╱4f╱O╱ // 0x813 @0x7
0x080c…081e at0008 = ╱4d╱M╱ // 0x814 @0x8
0x080c…081e at0009 = ╱53╱S╱ // 0x815 @0x9
0x080c…081e at000a = ╱ec╱ , ╱ // 0x816 @0xa
0x080c…081e at000b = ╱42╱B╱ // 0x817 @0xb
0x080c…081e at000c = ╱42╱B╱ // 0x818 @0xc
0x080c…081e at000d = ╱45╱E╱ // 0x819 @0xd
0x080c…081e at000e = ╱4c╱L╱ // 0x81a @0xe
0x080c…081e at000f = ╱5c╱\╱ // 0x81b @0xf
0x080c…081e at0010 = ╱42╱B╱ // 0x81c @0x10
0x080c…081e at0011 = EOL // 0x81d @0x11
0x080c…081e }
0x081e…082d 9e1b 00700 INTEGER DK , NTRANS
0x081e…082d LineComal80 {
0x081e…082d ptr = 0x9e1b // 0x81e @0x0
0x081e…082d lno = 0x02bc // 0x820 @0x2
0x081e…082d at0004 = ╱b2╱ INTEGER ╱ // 0x822 @0x4
0x081e…082d at0005 = ╱44╱D╱ // 0x823 @0x5
0x081e…082d at0006 = ╱4b╱K╱ // 0x824 @0x6
0x081e…082d at0007 = ╱ec╱ , ╱ // 0x825 @0x7
0x081e…082d at0008 = ╱4e╱N╱ // 0x826 @0x8
0x081e…082d at0009 = ╱54╱T╱ // 0x827 @0x9
0x081e…082d at000a = ╱52╱R╱ // 0x828 @0xa
0x081e…082d at000b = ╱41╱A╱ // 0x829 @0xb
0x081e…082d at000c = ╱4e╱N╱ // 0x82a @0xc
0x081e…082d at000d = ╱53╱S╱ // 0x82b @0xd
0x081e…082d at000e = EOL // 0x82c @0xe
0x081e…082d }
0x082d…083e 9e2c 00710 ENDPROC DIMENSIONER
0x082d…083e LineComal80 {
0x082d…083e ptr = 0x9e2c // 0x82d @0x0
0x082d…083e lno = 0x02c6 // 0x82f @0x2
0x082d…083e at0004 = ╱9f╱ ENDPROC ╱ // 0x831 @0x4
0x082d…083e at0005 = ╱44╱D╱ // 0x832 @0x5
0x082d…083e at0006 = ╱49╱I╱ // 0x833 @0x6
0x082d…083e at0007 = ╱4d╱M╱ // 0x834 @0x7
0x082d…083e at0008 = ╱45╱E╱ // 0x835 @0x8
0x082d…083e at0009 = ╱4e╱N╱ // 0x836 @0x9
0x082d…083e at000a = ╱53╱S╱ // 0x837 @0xa
0x082d…083e at000b = ╱49╱I╱ // 0x838 @0xb
0x082d…083e at000c = ╱4f╱O╱ // 0x839 @0xc
0x082d…083e at000d = ╱4e╱N╱ // 0x83a @0xd
0x082d…083e at000e = ╱45╱E╱ // 0x83b @0xe
0x082d…083e at000f = ╱52╱R╱ // 0x83c @0xf
0x082d…083e at0010 = EOL // 0x83d @0x10
0x082d…083e }
0x083e…0843 9e31 00720
0x083e…0843 LineComal80 {
0x083e…0843 ptr = 0x9e31 // 0x83e @0x0
0x083e…0843 lno = 0x02d0 // 0x840 @0x2
0x083e…0843 at0004 = EOL // 0x842 @0x4
0x083e…0843 }
0x0843…0851 9e3f 00730 PROC INITIER
0x0843…0851 LineComal80 {
0x0843…0851 ptr = 0x9e3f // 0x843 @0x0
0x0843…0851 lno = 0x02da // 0x845 @0x2
0x0843…0851 at0004 = ╱9e02╱ PROC ╱ // 0x847 @0x4
0x0843…0851 at0006 = ╱49╱I╱ // 0x849 @0x6
0x0843…0851 at0007 = ╱4e╱N╱ // 0x84a @0x7
0x0843…0851 at0008 = ╱49╱I╱ // 0x84b @0x8
0x0843…0851 at0009 = ╱54╱T╱ // 0x84c @0x9
0x0843…0851 at000a = ╱49╱I╱ // 0x84d @0xa
0x0843…0851 at000b = ╱45╱E╱ // 0x84e @0xb
0x0843…0851 at000c = ╱52╱R╱ // 0x84f @0xc
0x0843…0851 at000d = EOL // 0x850 @0xd
0x0843…0851 }
0x0851…0863 9e51 00740 LET PRGFL $ := "DP2"
0x0851…0863 LineComal80 {
0x0851…0863 ptr = 0x9e51 // 0x851 @0x0
0x0851…0863 lno = 0x02e4 // 0x853 @0x2
0x0851…0863 at0004 = ╱86╱ LET ╱ // 0x855 @0x4
0x0851…0863 at0005 = ╱50╱P╱ // 0x856 @0x5
0x0851…0863 at0006 = ╱52╱R╱ // 0x857 @0x6
0x0851…0863 at0007 = ╱47╱G╱ // 0x858 @0x7
0x0851…0863 at0008 = ╱46╱F╱ // 0x859 @0x8
0x0851…0863 at0009 = ╱4c╱L╱ // 0x85a @0x9
0x0851…0863 at000a = ╱ef╱ $ ╱ // 0x85b @0xa
0x0851…0863 at000b = ╱f0╱ := ╱ // 0x85c @0xb
0x0851…0863 at000c = ╱22╱"╱ // 0x85d @0xc
0x0851…0863 at000d = ╱44╱D╱ // 0x85e @0xd
0x0851…0863 at000e = ╱50╱P╱ // 0x85f @0xe
0x0851…0863 at000f = ╱32╱2╱ // 0x860 @0xf
0x0851…0863 at0010 = ╱22╱"╱ // 0x861 @0x10
0x0851…0863 at0011 = EOL // 0x862 @0x11
0x0851…0863 }
0x0863…0880 b8c3 00750 LET PROGRAM $ := PRGFL $ + ":SYSU"
0x0863…0880 LineComal80 {
0x0863…0880 ptr = 0xb8c3 // 0x863 @0x0
0x0863…0880 lno = 0x02ee // 0x865 @0x2
0x0863…0880 at0004 = ╱86╱ LET ╱ // 0x867 @0x4
0x0863…0880 at0005 = ╱50╱P╱ // 0x868 @0x5
0x0863…0880 at0006 = ╱52╱R╱ // 0x869 @0x6
0x0863…0880 at0007 = ╱4f╱O╱ // 0x86a @0x7
0x0863…0880 at0008 = ╱47╱G╱ // 0x86b @0x8
0x0863…0880 at0009 = ╱52╱R╱ // 0x86c @0x9
0x0863…0880 at000a = ╱41╱A╱ // 0x86d @0xa
0x0863…0880 at000b = ╱4d╱M╱ // 0x86e @0xb
0x0863…0880 at000c = ╱ef╱ $ ╱ // 0x86f @0xc
0x0863…0880 at000d = ╱f0╱ := ╱ // 0x870 @0xd
0x0863…0880 at000e = ╱50╱P╱ // 0x871 @0xe
0x0863…0880 at000f = ╱52╱R╱ // 0x872 @0xf
0x0863…0880 at0010 = ╱47╱G╱ // 0x873 @0x10
0x0863…0880 at0011 = ╱46╱F╱ // 0x874 @0x11
0x0863…0880 at0012 = ╱4c╱L╱ // 0x875 @0x12
0x0863…0880 at0013 = ╱ef╱ $ ╱ // 0x876 @0x13
0x0863…0880 at0014 = ╱eb╱ + ╱ // 0x877 @0x14
0x0863…0880 at0015 = ╱22╱"╱ // 0x878 @0x15
0x0863…0880 at0016 = ╱3a╱:╱ // 0x879 @0x16
0x0863…0880 at0017 = ╱53╱S╱ // 0x87a @0x17
0x0863…0880 at0018 = ╱59╱Y╱ // 0x87b @0x18
0x0863…0880 at0019 = ╱53╱S╱ // 0x87c @0x19
0x0863…0880 at001a = ╱55╱U╱ // 0x87d @0x1a
0x0863…0880 at001b = ╱22╱"╱ // 0x87e @0x1b
0x0863…0880 at001c = EOL // 0x87f @0x1c
0x0863…0880 }
0x0880…08af 9e9d 00760 LET TAL $ := "0123456789" ; NULR := 0 ; MAX_LIN := 51
0x0880…08af LineComal80 {
0x0880…08af ptr = 0x9e9d // 0x880 @0x0
0x0880…08af lno = 0x02f8 // 0x882 @0x2
0x0880…08af at0004 = ╱86╱ LET ╱ // 0x884 @0x4
0x0880…08af at0005 = ╱54╱T╱ // 0x885 @0x5
0x0880…08af at0006 = ╱41╱A╱ // 0x886 @0x6
0x0880…08af at0007 = ╱4c╱L╱ // 0x887 @0x7
0x0880…08af at0008 = ╱ef╱ $ ╱ // 0x888 @0x8
0x0880…08af at0009 = ╱f0╱ := ╱ // 0x889 @0x9
0x0880…08af at000a = ╱22╱"╱ // 0x88a @0xa
0x0880…08af at000b = ╱30╱0╱ // 0x88b @0xb
0x0880…08af at000c = ╱31╱1╱ // 0x88c @0xc
0x0880…08af at000d = ╱32╱2╱ // 0x88d @0xd
0x0880…08af at000e = ╱33╱3╱ // 0x88e @0xe
0x0880…08af at000f = ╱34╱4╱ // 0x88f @0xf
0x0880…08af at0010 = ╱35╱5╱ // 0x890 @0x10
0x0880…08af at0011 = ╱36╱6╱ // 0x891 @0x11
0x0880…08af at0012 = ╱37╱7╱ // 0x892 @0x12
0x0880…08af at0013 = ╱38╱8╱ // 0x893 @0x13
0x0880…08af at0014 = ╱39╱9╱ // 0x894 @0x14
0x0880…08af at0015 = ╱22╱"╱ // 0x895 @0x15
0x0880…08af at0016 = ╱ea╱ ; ╱ // 0x896 @0x16
0x0880…08af at0017 = ╱4e╱N╱ // 0x897 @0x17
0x0880…08af at0018 = ╱55╱U╱ // 0x898 @0x18
0x0880…08af at0019 = ╱4c╱L╱ // 0x899 @0x19
0x0880…08af at001a = ╱52╱R╱ // 0x89a @0x1a
0x0880…08af at001b = ╱f0╱ := ╱ // 0x89b @0x1b
0x0880…08af at001c = ╱30╱0╱ // 0x89c @0x1c
0x0880…08af at001d = ╱f20000╱ // 0x89d @0x1d
0x0880…08af at0020 = ╱ea╱ ; ╱ // 0x8a0 @0x20
0x0880…08af at0021 = ╱4d╱M╱ // 0x8a1 @0x21
0x0880…08af at0022 = ╱41╱A╱ // 0x8a2 @0x22
0x0880…08af at0023 = ╱58╱X╱ // 0x8a3 @0x23
0x0880…08af at0024 = ╱5f╱_╱ // 0x8a4 @0x24
0x0880…08af at0025 = ╱4c╱L╱ // 0x8a5 @0x25
0x0880…08af at0026 = ╱49╱I╱ // 0x8a6 @0x26
0x0880…08af at0027 = ╱4e╱N╱ // 0x8a7 @0x27
0x0880…08af at0028 = ╱f0╱ := ╱ // 0x8a8 @0x28
0x0880…08af at0029 = ╱35╱5╱ // 0x8a9 @0x29
0x0880…08af at002a = ╱31╱1╱ // 0x8aa @0x2a
0x0880…08af at002b = ╱f23300╱ // 0x8ab @0x2b
0x0880…08af at002e = EOL // 0x8ae @0x2e
0x0880…08af }
0x08af…08d7 9ec5 00770 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
0x08af…08d7 LineComal80 {
0x08af…08d7 ptr = 0x9ec5 // 0x8af @0x0
0x08af…08d7 lno = 0x0302 // 0x8b1 @0x2
0x08af…08d7 at0004 = ╱b400╱ FOR ╱ // 0x8b3 @0x4
0x08af…08d7 at0006 = ╱49╱I╱ // 0x8b5 @0x6
0x08af…08d7 at0007 = ╱f0╱ := ╱ // 0x8b6 @0x7
0x08af…08d7 at0008 = ╱cc╱ // 0x8b7 @0x8
0x08af…08d7 at0009 = ╱ed╱ ( ╱ // 0x8b8 @0x9
0x08af…08d7 at000a = ╱22╱"╱ // 0x8b9 @0xa
0x08af…08d7 at000b = ╱41╱A╱ // 0x8ba @0xb
0x08af…08d7 at000c = ╱22╱"╱ // 0x8bb @0xc
0x08af…08d7 at000d = ╱ee╱ ) ╱ // 0x8bc @0xd
0x08af…08d7 at000e = ╱b7cc╱ TO ╱ // 0x8bd @0xe
0x08af…08d7 at0010 = ╱ed╱ ( ╱ // 0x8bf @0x10
0x08af…08d7 at0011 = ╱22╱"╱ // 0x8c0 @0x11
0x08af…08d7 at0012 = ╱5d╱]╱ // 0x8c1 @0x12
0x08af…08d7 at0013 = ╱22╱"╱ // 0x8c2 @0x13
0x08af…08d7 at0014 = ╱ee╱ ) ╱ // 0x8c3 @0x14
0x08af…08d7 at0015 = ╱bb╱ DO ╱ // 0x8c4 @0x15
0x08af…08d7 at0016 = ╱86╱ LET ╱ // 0x8c5 @0x16
0x08af…08d7 at0017 = ╱41╱A╱ // 0x8c6 @0x17
0x08af…08d7 at0018 = ╱4c╱L╱ // 0x8c7 @0x18
0x08af…08d7 at0019 = ╱46╱F╱ // 0x8c8 @0x19
0x08af…08d7 at001a = ╱41╱A╱ // 0x8c9 @0x1a
0x08af…08d7 at001b = ╱ef╱ $ ╱ // 0x8ca @0x1b
0x08af…08d7 at001c = ╱f0╱ := ╱ // 0x8cb @0x1c
0x08af…08d7 at001d = ╱41╱A╱ // 0x8cc @0x1d
0x08af…08d7 at001e = ╱4c╱L╱ // 0x8cd @0x1e
0x08af…08d7 at001f = ╱46╱F╱ // 0x8ce @0x1f
0x08af…08d7 at0020 = ╱41╱A╱ // 0x8cf @0x20
0x08af…08d7 at0021 = ╱ef╱ $ ╱ // 0x8d0 @0x21
0x08af…08d7 at0022 = ╱eb╱ + ╱ // 0x8d1 @0x22
0x08af…08d7 at0023 = ╱d0╱ CHR$ ╱ // 0x8d2 @0x23
0x08af…08d7 at0024 = ╱ed╱ ( ╱ // 0x8d3 @0x24
0x08af…08d7 at0025 = ╱49╱I╱ // 0x8d4 @0x25
0x08af…08d7 at0026 = ╱ee╱ ) ╱ // 0x8d5 @0x26
0x08af…08d7 at0027 = EOL // 0x8d6 @0x27
0x08af…08d7 }
0x08d7…0911 9eff 00780 LET SPC $ := "………………………………………………………………………………………………………………………"
0x08d7…0911 LineComal80 {
0x08d7…0911 ptr = 0x9eff // 0x8d7 @0x0
0x08d7…0911 lno = 0x030c // 0x8d9 @0x2
0x08d7…0911 at0004 = ╱86╱ LET ╱ // 0x8db @0x4
0x08d7…0911 at0005 = ╱53╱S╱ // 0x8dc @0x5
0x08d7…0911 at0006 = ╱50╱P╱ // 0x8dd @0x6
0x08d7…0911 at0007 = ╱43╱C╱ // 0x8de @0x7
0x08d7…0911 at0008 = ╱ef╱ $ ╱ // 0x8df @0x8
0x08d7…0911 at0009 = ╱f0╱ := ╱ // 0x8e0 @0x9
0x08d7…0911 at000a = ╱22╱"╱ // 0x8e1 @0xa
0x08d7…0911 at000b = ╱20╱…╱ // 0x8e2 @0xb
0x08d7…0911 at000c = ╱20╱…╱ // 0x8e3 @0xc
0x08d7…0911 at000d = ╱20╱…╱ // 0x8e4 @0xd
0x08d7…0911 at000e = ╱20╱…╱ // 0x8e5 @0xe
0x08d7…0911 at000f = ╱20╱…╱ // 0x8e6 @0xf
0x08d7…0911 at0010 = ╱20╱…╱ // 0x8e7 @0x10
0x08d7…0911 at0011 = ╱20╱…╱ // 0x8e8 @0x11
0x08d7…0911 at0012 = ╱20╱…╱ // 0x8e9 @0x12
0x08d7…0911 at0013 = ╱20╱…╱ // 0x8ea @0x13
0x08d7…0911 at0014 = ╱20╱…╱ // 0x8eb @0x14
0x08d7…0911 at0015 = ╱20╱…╱ // 0x8ec @0x15
0x08d7…0911 at0016 = ╱20╱…╱ // 0x8ed @0x16
0x08d7…0911 at0017 = ╱20╱…╱ // 0x8ee @0x17
0x08d7…0911 at0018 = ╱20╱…╱ // 0x8ef @0x18
0x08d7…0911 at0019 = ╱20╱…╱ // 0x8f0 @0x19
0x08d7…0911 at001a = ╱20╱…╱ // 0x8f1 @0x1a
0x08d7…0911 at001b = ╱20╱…╱ // 0x8f2 @0x1b
0x08d7…0911 at001c = ╱20╱…╱ // 0x8f3 @0x1c
0x08d7…0911 at001d = ╱20╱…╱ // 0x8f4 @0x1d
0x08d7…0911 at001e = ╱20╱…╱ // 0x8f5 @0x1e
0x08d7…0911 at001f = ╱20╱…╱ // 0x8f6 @0x1f
0x08d7…0911 at0020 = ╱20╱…╱ // 0x8f7 @0x20
0x08d7…0911 at0021 = ╱20╱…╱ // 0x8f8 @0x21
0x08d7…0911 at0022 = ╱20╱…╱ // 0x8f9 @0x22
0x08d7…0911 at0023 = ╱20╱…╱ // 0x8fa @0x23
0x08d7…0911 at0024 = ╱20╱…╱ // 0x8fb @0x24
0x08d7…0911 at0025 = ╱20╱…╱ // 0x8fc @0x25
0x08d7…0911 at0026 = ╱20╱…╱ // 0x8fd @0x26
0x08d7…0911 at0027 = ╱20╱…╱ // 0x8fe @0x27
0x08d7…0911 at0028 = ╱20╱…╱ // 0x8ff @0x28
0x08d7…0911 at0029 = ╱20╱…╱ // 0x900 @0x29
0x08d7…0911 at002a = ╱20╱…╱ // 0x901 @0x2a
0x08d7…0911 at002b = ╱20╱…╱ // 0x902 @0x2b
0x08d7…0911 at002c = ╱20╱…╱ // 0x903 @0x2c
0x08d7…0911 at002d = ╱20╱…╱ // 0x904 @0x2d
0x08d7…0911 at002e = ╱20╱…╱ // 0x905 @0x2e
0x08d7…0911 at002f = ╱20╱…╱ // 0x906 @0x2f
0x08d7…0911 at0030 = ╱20╱…╱ // 0x907 @0x30
0x08d7…0911 at0031 = ╱20╱…╱ // 0x908 @0x31
0x08d7…0911 at0032 = ╱20╱…╱ // 0x909 @0x32
0x08d7…0911 at0033 = ╱20╱…╱ // 0x90a @0x33
0x08d7…0911 at0034 = ╱20╱…╱ // 0x90b @0x34
0x08d7…0911 at0035 = ╱20╱…╱ // 0x90c @0x35
0x08d7…0911 at0036 = ╱20╱…╱ // 0x90d @0x36
0x08d7…0911 at0037 = ╱20╱…╱ // 0x90e @0x37
0x08d7…0911 at0038 = ╱22╱"╱ // 0x90f @0x38
0x08d7…0911 at0039 = EOL // 0x910 @0x39
0x08d7…0911 }
0x0911…0925 9f13 00790 LET SPC $ := SPC $ + SPC $
0x0911…0925 LineComal80 {
0x0911…0925 ptr = 0x9f13 // 0x911 @0x0
0x0911…0925 lno = 0x0316 // 0x913 @0x2
0x0911…0925 at0004 = ╱86╱ LET ╱ // 0x915 @0x4
0x0911…0925 at0005 = ╱53╱S╱ // 0x916 @0x5
0x0911…0925 at0006 = ╱50╱P╱ // 0x917 @0x6
0x0911…0925 at0007 = ╱43╱C╱ // 0x918 @0x7
0x0911…0925 at0008 = ╱ef╱ $ ╱ // 0x919 @0x8
0x0911…0925 at0009 = ╱f0╱ := ╱ // 0x91a @0x9
0x0911…0925 at000a = ╱53╱S╱ // 0x91b @0xa
0x0911…0925 at000b = ╱50╱P╱ // 0x91c @0xb
0x0911…0925 at000c = ╱43╱C╱ // 0x91d @0xc
0x0911…0925 at000d = ╱ef╱ $ ╱ // 0x91e @0xd
0x0911…0925 at000e = ╱eb╱ + ╱ // 0x91f @0xe
0x0911…0925 at000f = ╱53╱S╱ // 0x920 @0xf
0x0911…0925 at0010 = ╱50╱P╱ // 0x921 @0x10
0x0911…0925 at0011 = ╱43╱C╱ // 0x922 @0x11
0x0911…0925 at0012 = ╱ef╱ $ ╱ // 0x923 @0x12
0x0911…0925 at0013 = EOL // 0x924 @0x13
0x0911…0925 }
0x0925…0950 9f3e 00800 LET FALSE := 0 ; TRUE := 1 // boolske…variable
0x0925…0950 LineComal80 {
0x0925…0950 ptr = 0x9f3e // 0x925 @0x0
0x0925…0950 lno = 0x0320 // 0x927 @0x2
0x0925…0950 at0004 = ╱86╱ LET ╱ // 0x929 @0x4
0x0925…0950 at0005 = ╱46╱F╱ // 0x92a @0x5
0x0925…0950 at0006 = ╱41╱A╱ // 0x92b @0x6
0x0925…0950 at0007 = ╱4c╱L╱ // 0x92c @0x7
0x0925…0950 at0008 = ╱53╱S╱ // 0x92d @0x8
0x0925…0950 at0009 = ╱45╱E╱ // 0x92e @0x9
0x0925…0950 at000a = ╱f0╱ := ╱ // 0x92f @0xa
0x0925…0950 at000b = ╱30╱0╱ // 0x930 @0xb
0x0925…0950 at000c = ╱f20000╱ // 0x931 @0xc
0x0925…0950 at000f = ╱ea╱ ; ╱ // 0x934 @0xf
0x0925…0950 at0010 = ╱54╱T╱ // 0x935 @0x10
0x0925…0950 at0011 = ╱52╱R╱ // 0x936 @0x11
0x0925…0950 at0012 = ╱55╱U╱ // 0x937 @0x12
0x0925…0950 at0013 = ╱45╱E╱ // 0x938 @0x13
0x0925…0950 at0014 = ╱f0╱ := ╱ // 0x939 @0x14
0x0925…0950 at0015 = ╱31╱1╱ // 0x93a @0x15
0x0925…0950 at0016 = ╱f20100╱ // 0x93b @0x16
0x0925…0950 at0019 = ╱89╱ // ╱ // 0x93e @0x19
0x0925…0950 at001a = ╱62╱b╱ // 0x93f @0x1a
0x0925…0950 at001b = ╱6f╱o╱ // 0x940 @0x1b
0x0925…0950 at001c = ╱6f╱o╱ // 0x941 @0x1c
0x0925…0950 at001d = ╱6c╱l╱ // 0x942 @0x1d
0x0925…0950 at001e = ╱73╱s╱ // 0x943 @0x1e
0x0925…0950 at001f = ╱6b╱k╱ // 0x944 @0x1f
0x0925…0950 at0020 = ╱65╱e╱ // 0x945 @0x20
0x0925…0950 at0021 = ╱20╱…╱ // 0x946 @0x21
0x0925…0950 at0022 = ╱76╱v╱ // 0x947 @0x22
0x0925…0950 at0023 = ╱61╱a╱ // 0x948 @0x23
0x0925…0950 at0024 = ╱72╱r╱ // 0x949 @0x24
0x0925…0950 at0025 = ╱69╱i╱ // 0x94a @0x25
0x0925…0950 at0026 = ╱61╱a╱ // 0x94b @0x26
0x0925…0950 at0027 = ╱62╱b╱ // 0x94c @0x27
0x0925…0950 at0028 = ╱6c╱l╱ // 0x94d @0x28
0x0925…0950 at0029 = ╱65╱e╱ // 0x94e @0x29
0x0925…0950 at002a = EOL // 0x94f @0x2a
0x0925…0950 }
0x0950…096d 9f5b 00810 LET KREDIT := - 1 ; DEBET := 1
0x0950…096d LineComal80 {
0x0950…096d ptr = 0x9f5b // 0x950 @0x0
0x0950…096d lno = 0x032a // 0x952 @0x2
0x0950…096d at0004 = ╱86╱ LET ╱ // 0x954 @0x4
0x0950…096d at0005 = ╱4b╱K╱ // 0x955 @0x5
0x0950…096d at0006 = ╱52╱R╱ // 0x956 @0x6
0x0950…096d at0007 = ╱45╱E╱ // 0x957 @0x7
0x0950…096d at0008 = ╱44╱D╱ // 0x958 @0x8
0x0950…096d at0009 = ╱49╱I╱ // 0x959 @0x9
0x0950…096d at000a = ╱54╱T╱ // 0x95a @0xa
0x0950…096d at000b = ╱f0╱ := ╱ // 0x95b @0xb
0x0950…096d at000c = ╱de╱ - ╱ // 0x95c @0xc
0x0950…096d at000d = ╱31╱1╱ // 0x95d @0xd
0x0950…096d at000e = ╱f20100╱ // 0x95e @0xe
0x0950…096d at0011 = ╱ea╱ ; ╱ // 0x961 @0x11
0x0950…096d at0012 = ╱44╱D╱ // 0x962 @0x12
0x0950…096d at0013 = ╱45╱E╱ // 0x963 @0x13
0x0950…096d at0014 = ╱42╱B╱ // 0x964 @0x14
0x0950…096d at0015 = ╱45╱E╱ // 0x965 @0x15
0x0950…096d at0016 = ╱54╱T╱ // 0x966 @0x16
0x0950…096d at0017 = ╱f0╱ := ╱ // 0x967 @0x17
0x0950…096d at0018 = ╱31╱1╱ // 0x968 @0x18
0x0950…096d at0019 = ╱f20100╱ // 0x969 @0x19
0x0950…096d at001c = EOL // 0x96c @0x1c
0x0950…096d }
0x096d…098d 9f7b 00820 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
0x096d…098d LineComal80 {
0x096d…098d ptr = 0x9f7b // 0x96d @0x0
0x096d…098d lno = 0x0334 // 0x96f @0x2
0x096d…098d at0004 = ╱86╱ LET ╱ // 0x971 @0x4
0x096d…098d at0005 = ╱53╱S╱ // 0x972 @0x5
0x096d…098d at0006 = ╱59╱Y╱ // 0x973 @0x6
0x096d…098d at0007 = ╱53╱S╱ // 0x974 @0x7
0x096d…098d at0008 = ╱50╱P╱ // 0x975 @0x8
0x096d…098d at0009 = ╱41╱A╱ // 0x976 @0x9
0x096d…098d at000a = ╱52╱R╱ // 0x977 @0xa
0x096d…098d at000b = ╱41╱A╱ // 0x978 @0xb
0x096d…098d at000c = ╱ef╱ $ ╱ // 0x979 @0xc
0x096d…098d at000d = ╱f0╱ := ╱ // 0x97a @0xd
0x096d…098d at000e = ╱50╱P╱ // 0x97b @0xe
0x096d…098d at000f = ╱52╱R╱ // 0x97c @0xf
0x096d…098d at0010 = ╱47╱G╱ // 0x97d @0x10
0x096d…098d at0011 = ╱46╱F╱ // 0x97e @0x11
0x096d…098d at0012 = ╱4c╱L╱ // 0x97f @0x12
0x096d…098d at0013 = ╱ef╱ $ ╱ // 0x980 @0x13
0x096d…098d at0014 = ╱eb╱ + ╱ // 0x981 @0x14
0x096d…098d at0015 = ╱22╱"╱ // 0x982 @0x15
0x096d…098d at0016 = ╱3a╱:╱ // 0x983 @0x16
0x096d…098d at0017 = ╱53╱S╱ // 0x984 @0x17
0x096d…098d at0018 = ╱59╱Y╱ // 0x985 @0x18
0x096d…098d at0019 = ╱53╱S╱ // 0x986 @0x19
0x096d…098d at001a = ╱50╱P╱ // 0x987 @0x1a
0x096d…098d at001b = ╱41╱A╱ // 0x988 @0x1b
0x096d…098d at001c = ╱52╱R╱ // 0x989 @0x1c
0x096d…098d at001d = ╱41╱A╱ // 0x98a @0x1d
0x096d…098d at001e = ╱22╱"╱ // 0x98b @0x1e
0x096d…098d at001f = EOL // 0x98c @0x1f
0x096d…098d }
0x098d…09a8 9f96 00830 EXEC OPENFIL ( SYSPARA $ , "R" )
0x098d…09a8 LineComal80 {
0x098d…09a8 ptr = 0x9f96 // 0x98d @0x0
0x098d…09a8 lno = 0x033e // 0x98f @0x2
0x098d…09a8 at0004 = ╱9d╱ EXEC ╱ // 0x991 @0x4
0x098d…09a8 at0005 = ╱4f╱O╱ // 0x992 @0x5
0x098d…09a8 at0006 = ╱50╱P╱ // 0x993 @0x6
0x098d…09a8 at0007 = ╱45╱E╱ // 0x994 @0x7
0x098d…09a8 at0008 = ╱4e╱N╱ // 0x995 @0x8
0x098d…09a8 at0009 = ╱46╱F╱ // 0x996 @0x9
0x098d…09a8 at000a = ╱49╱I╱ // 0x997 @0xa
0x098d…09a8 at000b = ╱4c╱L╱ // 0x998 @0xb
0x098d…09a8 at000c = ╱ed╱ ( ╱ // 0x999 @0xc
0x098d…09a8 at000d = ╱53╱S╱ // 0x99a @0xd
0x098d…09a8 at000e = ╱59╱Y╱ // 0x99b @0xe
0x098d…09a8 at000f = ╱53╱S╱ // 0x99c @0xf
0x098d…09a8 at0010 = ╱50╱P╱ // 0x99d @0x10
0x098d…09a8 at0011 = ╱41╱A╱ // 0x99e @0x11
0x098d…09a8 at0012 = ╱52╱R╱ // 0x99f @0x12
0x098d…09a8 at0013 = ╱41╱A╱ // 0x9a0 @0x13
0x098d…09a8 at0014 = ╱ef╱ $ ╱ // 0x9a1 @0x14
0x098d…09a8 at0015 = ╱ec╱ , ╱ // 0x9a2 @0x15
0x098d…09a8 at0016 = ╱22╱"╱ // 0x9a3 @0x16
0x098d…09a8 at0017 = ╱52╱R╱ // 0x9a4 @0x17
0x098d…09a8 at0018 = ╱22╱"╱ // 0x9a5 @0x18
0x098d…09a8 at0019 = ╱ee╱ ) ╱ // 0x9a6 @0x19
0x098d…09a8 at001a = EOL // 0x9a7 @0x1a
0x098d…09a8 }
0x09a8…09ce 9fbc 00840 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
0x09a8…09ce LineComal80 {
0x09a8…09ce ptr = 0x9fbc // 0x9a8 @0x0
0x09a8…09ce lno = 0x0348 // 0x9aa @0x2
0x09a8…09ce at0004 = ╱a9╱ GET ╱ // 0x9ac @0x4
0x09a8…09ce at0005 = ╱53╱S╱ // 0x9ad @0x5
0x09a8…09ce at0006 = ╱59╱Y╱ // 0x9ae @0x6
0x09a8…09ce at0007 = ╱53╱S╱ // 0x9af @0x7
0x09a8…09ce at0008 = ╱50╱P╱ // 0x9b0 @0x8
0x09a8…09ce at0009 = ╱41╱A╱ // 0x9b1 @0x9
0x09a8…09ce at000a = ╱52╱R╱ // 0x9b2 @0xa
0x09a8…09ce at000b = ╱41╱A╱ // 0x9b3 @0xb
0x09a8…09ce at000c = ╱ef╱ $ ╱ // 0x9b4 @0xc
0x09a8…09ce at000d = ╱ec╱ , ╱ // 0x9b5 @0xd
0x09a8…09ce at000e = ╱31╱1╱ // 0x9b6 @0xe
0x09a8…09ce at000f = ╱f20100╱ // 0x9b7 @0xf
0x09a8…09ce at0012 = ╱f1╱ : ╱ // 0x9ba @0x12
0x09a8…09ce at0013 = ╱53╱S╱ // 0x9bb @0x13
0x09a8…09ce at0014 = ╱59╱Y╱ // 0x9bc @0x14
0x09a8…09ce at0015 = ╱53╱S╱ // 0x9bd @0x15
0x09a8…09ce at0016 = ╱54╱T╱ // 0x9be @0x16
0x09a8…09ce at0017 = ╱5f╱_╱ // 0x9bf @0x17
0x09a8…09ce at0018 = ╱4e╱N╱ // 0x9c0 @0x18
0x09a8…09ce at0019 = ╱41╱A╱ // 0x9c1 @0x19
0x09a8…09ce at001a = ╱56╱V╱ // 0x9c2 @0x1a
0x09a8…09ce at001b = ╱4e╱N╱ // 0x9c3 @0x1b
0x09a8…09ce at001c = ╱ef╱ $ ╱ // 0x9c4 @0x1c
0x09a8…09ce at001d = ╱ec╱ , ╱ // 0x9c5 @0x1d
0x09a8…09ce at001e = ╱53╱S╱ // 0x9c6 @0x1e
0x09a8…09ce at001f = ╱5f╱_╱ // 0x9c7 @0x1f
0x09a8…09ce at0020 = ╱4b╱K╱ // 0x9c8 @0x20
0x09a8…09ce at0021 = ╱4f╱O╱ // 0x9c9 @0x21
0x09a8…09ce at0022 = ╱44╱D╱ // 0x9ca @0x22
0x09a8…09ce at0023 = ╱45╱E╱ // 0x9cb @0x23
0x09a8…09ce at0024 = ╱ef╱ $ ╱ // 0x9cc @0x24
0x09a8…09ce at0025 = EOL // 0x9cd @0x25
0x09a8…09ce }
0x09ce…09e0 9fce 00850 EXEC TERMINAL_IDX
0x09ce…09e0 LineComal80 {
0x09ce…09e0 ptr = 0x9fce // 0x9ce @0x0
0x09ce…09e0 lno = 0x0352 // 0x9d0 @0x2
0x09ce…09e0 at0004 = ╱9d╱ EXEC ╱ // 0x9d2 @0x4
0x09ce…09e0 at0005 = ╱54╱T╱ // 0x9d3 @0x5
0x09ce…09e0 at0006 = ╱45╱E╱ // 0x9d4 @0x6
0x09ce…09e0 at0007 = ╱52╱R╱ // 0x9d5 @0x7
0x09ce…09e0 at0008 = ╱4d╱M╱ // 0x9d6 @0x8
0x09ce…09e0 at0009 = ╱49╱I╱ // 0x9d7 @0x9
0x09ce…09e0 at000a = ╱4e╱N╱ // 0x9d8 @0xa
0x09ce…09e0 at000b = ╱41╱A╱ // 0x9d9 @0xb
0x09ce…09e0 at000c = ╱4c╱L╱ // 0x9da @0xc
0x09ce…09e0 at000d = ╱5f╱_╱ // 0x9db @0xd
0x09ce…09e0 at000e = ╱49╱I╱ // 0x9dc @0xe
0x09ce…09e0 at000f = ╱44╱D╱ // 0x9dd @0xf
0x09ce…09e0 at0010 = ╱58╱X╱ // 0x9de @0x10
0x09ce…09e0 at0011 = EOL // 0x9df @0x11
0x09ce…09e0 }
0x09e0…09ee 9fdc 00860 CLOSE SYSPARA $
0x09e0…09ee LineComal80 {
0x09e0…09ee ptr = 0x9fdc // 0x9e0 @0x0
0x09e0…09ee lno = 0x035c // 0x9e2 @0x2
0x09e0…09ee at0004 = ╱a8╱ CLOSE ╱ // 0x9e4 @0x4
0x09e0…09ee at0005 = ╱53╱S╱ // 0x9e5 @0x5
0x09e0…09ee at0006 = ╱59╱Y╱ // 0x9e6 @0x6
0x09e0…09ee at0007 = ╱53╱S╱ // 0x9e7 @0x7
0x09e0…09ee at0008 = ╱50╱P╱ // 0x9e8 @0x8
0x09e0…09ee at0009 = ╱41╱A╱ // 0x9e9 @0x9
0x09e0…09ee at000a = ╱52╱R╱ // 0x9ea @0xa
0x09e0…09ee at000b = ╱41╱A╱ // 0x9eb @0xb
0x09e0…09ee at000c = ╱ef╱ $ ╱ // 0x9ec @0xc
0x09e0…09ee at000d = EOL // 0x9ed @0xd
0x09e0…09ee }
0x09ee…0a1e a00c 00870 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
0x09ee…0a1e LineComal80 {
0x09ee…0a1e ptr = 0xa00c // 0x9ee @0x0
0x09ee…0a1e lno = 0x0366 // 0x9f0 @0x2
0x09ee…0a1e at0004 = ╱86╱ LET ╱ // 0x9f2 @0x4
0x09ee…0a1e at0005 = ╱50╱P╱ // 0x9f3 @0x5
0x09ee…0a1e at0006 = ╱41╱A╱ // 0x9f4 @0x6
0x09ee…0a1e at0007 = ╱52╱R╱ // 0x9f5 @0x7
0x09ee…0a1e at0008 = ╱41╱A╱ // 0x9f6 @0x8
0x09ee…0a1e at0009 = ╱4d╱M╱ // 0x9f7 @0x9
0x09ee…0a1e at000a = ╱ef╱ $ ╱ // 0x9f8 @0xa
0x09ee…0a1e at000b = ╱f0╱ := ╱ // 0x9f9 @0xb
0x09ee…0a1e at000c = ╱44╱D╱ // 0x9fa @0xc
0x09ee…0a1e at000d = ╱41╱A╱ // 0x9fb @0xd
0x09ee…0a1e at000e = ╱54╱T╱ // 0x9fc @0xe
0x09ee…0a1e at000f = ╱41╱A╱ // 0x9fd @0xf
0x09ee…0a1e at0010 = ╱46╱F╱ // 0x9fe @0x10
0x09ee…0a1e at0011 = ╱4c╱L╱ // 0x9ff @0x11
0x09ee…0a1e at0012 = ╱ef╱ $ ╱ // 0xa00 @0x12
0x09ee…0a1e at0013 = ╱eb╱ + ╱ // 0xa01 @0x13
0x09ee…0a1e at0014 = ╱22╱"╱ // 0xa02 @0x14
0x09ee…0a1e at0015 = ╱3a╱:╱ // 0xa03 @0x15
0x09ee…0a1e at0016 = ╱22╱"╱ // 0xa04 @0x16
0x09ee…0a1e at0017 = ╱eb╱ + ╱ // 0xa05 @0x17
0x09ee…0a1e at0018 = ╱53╱S╱ // 0xa06 @0x18
0x09ee…0a1e at0019 = ╱5f╱_╱ // 0xa07 @0x19
0x09ee…0a1e at001a = ╱4b╱K╱ // 0xa08 @0x1a
0x09ee…0a1e at001b = ╱4f╱O╱ // 0xa09 @0x1b
0x09ee…0a1e at001c = ╱44╱D╱ // 0xa0a @0x1c
0x09ee…0a1e at001d = ╱45╱E╱ // 0xa0b @0x1d
0x09ee…0a1e at001e = ╱ef╱ $ ╱ // 0xa0c @0x1e
0x09ee…0a1e at001f = ╱eb╱ + ╱ // 0xa0d @0x1f
0x09ee…0a1e at0020 = ╱54╱T╱ // 0xa0e @0x20
0x09ee…0a1e at0021 = ╱5f╱_╱ // 0xa0f @0x21
0x09ee…0a1e at0022 = ╱4b╱K╱ // 0xa10 @0x22
0x09ee…0a1e at0023 = ╱4f╱O╱ // 0xa11 @0x23
0x09ee…0a1e at0024 = ╱44╱D╱ // 0xa12 @0x24
0x09ee…0a1e at0025 = ╱45╱E╱ // 0xa13 @0x25
0x09ee…0a1e at0026 = ╱ef╱ $ ╱ // 0xa14 @0x26
0x09ee…0a1e at0027 = ╱eb╱ + ╱ // 0xa15 @0x27
0x09ee…0a1e at0028 = ╱22╱"╱ // 0xa16 @0x28
0x09ee…0a1e at0029 = ╱50╱P╱ // 0xa17 @0x29
0x09ee…0a1e at002a = ╱41╱A╱ // 0xa18 @0x2a
0x09ee…0a1e at002b = ╱52╱R╱ // 0xa19 @0x2b
0x09ee…0a1e at002c = ╱41╱A╱ // 0xa1a @0x2c
0x09ee…0a1e at002d = ╱4d╱M╱ // 0xa1b @0x2d
0x09ee…0a1e at002e = ╱22╱"╱ // 0xa1c @0x2e
0x09ee…0a1e at002f = EOL // 0xa1d @0x2f
0x09ee…0a1e }
0x0a1e…0a37 a025 00880 EXEC OPENFIL ( PARAM $ , "R" )
0x0a1e…0a37 LineComal80 {
0x0a1e…0a37 ptr = 0xa025 // 0xa1e @0x0
0x0a1e…0a37 lno = 0x0370 // 0xa20 @0x2
0x0a1e…0a37 at0004 = ╱9d╱ EXEC ╱ // 0xa22 @0x4
0x0a1e…0a37 at0005 = ╱4f╱O╱ // 0xa23 @0x5
0x0a1e…0a37 at0006 = ╱50╱P╱ // 0xa24 @0x6
0x0a1e…0a37 at0007 = ╱45╱E╱ // 0xa25 @0x7
0x0a1e…0a37 at0008 = ╱4e╱N╱ // 0xa26 @0x8
0x0a1e…0a37 at0009 = ╱46╱F╱ // 0xa27 @0x9
0x0a1e…0a37 at000a = ╱49╱I╱ // 0xa28 @0xa
0x0a1e…0a37 at000b = ╱4c╱L╱ // 0xa29 @0xb
0x0a1e…0a37 at000c = ╱ed╱ ( ╱ // 0xa2a @0xc
0x0a1e…0a37 at000d = ╱50╱P╱ // 0xa2b @0xd
0x0a1e…0a37 at000e = ╱41╱A╱ // 0xa2c @0xe
0x0a1e…0a37 at000f = ╱52╱R╱ // 0xa2d @0xf
0x0a1e…0a37 at0010 = ╱41╱A╱ // 0xa2e @0x10
0x0a1e…0a37 at0011 = ╱4d╱M╱ // 0xa2f @0x11
0x0a1e…0a37 at0012 = ╱ef╱ $ ╱ // 0xa30 @0x12
0x0a1e…0a37 at0013 = ╱ec╱ , ╱ // 0xa31 @0x13
0x0a1e…0a37 at0014 = ╱22╱"╱ // 0xa32 @0x14
0x0a1e…0a37 at0015 = ╱52╱R╱ // 0xa33 @0x15
0x0a1e…0a37 at0016 = ╱22╱"╱ // 0xa34 @0x16
0x0a1e…0a37 at0017 = ╱ee╱ ) ╱ // 0xa35 @0x17
0x0a1e…0a37 at0018 = EOL // 0xa36 @0x18
0x0a1e…0a37 }
0x0a37…0a62 a050 00890 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
0x0a37…0a62 LineComal80 {
0x0a37…0a62 ptr = 0xa050 // 0xa37 @0x0
0x0a37…0a62 lno = 0x037a // 0xa39 @0x2
0x0a37…0a62 at0004 = ╱a9╱ GET ╱ // 0xa3b @0x4
0x0a37…0a62 at0005 = ╱50╱P╱ // 0xa3c @0x5
0x0a37…0a62 at0006 = ╱41╱A╱ // 0xa3d @0x6
0x0a37…0a62 at0007 = ╱52╱R╱ // 0xa3e @0x7
0x0a37…0a62 at0008 = ╱41╱A╱ // 0xa3f @0x8
0x0a37…0a62 at0009 = ╱4d╱M╱ // 0xa40 @0x9
0x0a37…0a62 at000a = ╱ef╱ $ ╱ // 0xa41 @0xa
0x0a37…0a62 at000b = ╱ec╱ , ╱ // 0xa42 @0xb
0x0a37…0a62 at000c = ╱31╱1╱ // 0xa43 @0xc
0x0a37…0a62 at000d = ╱f20100╱ // 0xa44 @0xd
0x0a37…0a62 at0010 = ╱f1╱ : ╱ // 0xa47 @0x10
0x0a37…0a62 at0011 = ╱46╱F╱ // 0xa48 @0x11
0x0a37…0a62 at0012 = ╱49╱I╱ // 0xa49 @0x12
0x0a37…0a62 at0013 = ╱52╱R╱ // 0xa4a @0x13
0x0a37…0a62 at0014 = ╱4d╱M╱ // 0xa4b @0x14
0x0a37…0a62 at0015 = ╱41╱A╱ // 0xa4c @0x15
0x0a37…0a62 at0016 = ╱4e╱N╱ // 0xa4d @0x16
0x0a37…0a62 at0017 = ╱41╱A╱ // 0xa4e @0x17
0x0a37…0a62 at0018 = ╱56╱V╱ // 0xa4f @0x18
0x0a37…0a62 at0019 = ╱4e╱N╱ // 0xa50 @0x19
0x0a37…0a62 at001a = ╱ef╱ $ ╱ // 0xa51 @0x1a
0x0a37…0a62 at001b = ╱ec╱ , ╱ // 0xa52 @0x1b
0x0a37…0a62 at001c = ╱53╱S╱ // 0xa53 @0x1c
0x0a37…0a62 at001d = ╱59╱Y╱ // 0xa54 @0x1d
0x0a37…0a62 at001e = ╱53╱S╱ // 0xa55 @0x1e
0x0a37…0a62 at001f = ╱54╱T╱ // 0xa56 @0x1f
0x0a37…0a62 at0020 = ╱5f╱_╱ // 0xa57 @0x20
0x0a37…0a62 at0021 = ╱44╱D╱ // 0xa58 @0x21
0x0a37…0a62 at0022 = ╱41╱A╱ // 0xa59 @0x22
0x0a37…0a62 at0023 = ╱54╱T╱ // 0xa5a @0x23
0x0a37…0a62 at0024 = ╱ef╱ $ ╱ // 0xa5b @0x24
0x0a37…0a62 at0025 = ╱ec╱ , ╱ // 0xa5c @0x25
0x0a37…0a62 at0026 = ╱4d╱M╱ // 0xa5d @0x26
0x0a37…0a62 at0027 = ╱4f╱O╱ // 0xa5e @0x27
0x0a37…0a62 at0028 = ╱4d╱M╱ // 0xa5f @0x28
0x0a37…0a62 at0029 = ╱53╱S╱ // 0xa60 @0x29
0x0a37…0a62 at002a = EOL // 0xa61 @0x2a
0x0a37…0a62 }
0x0a62…0a6e a05c 00900 CLOSE PARAM $
0x0a62…0a6e LineComal80 {
0x0a62…0a6e ptr = 0xa05c // 0xa62 @0x0
0x0a62…0a6e lno = 0x0384 // 0xa64 @0x2
0x0a62…0a6e at0004 = ╱a8╱ CLOSE ╱ // 0xa66 @0x4
0x0a62…0a6e at0005 = ╱50╱P╱ // 0xa67 @0x5
0x0a62…0a6e at0006 = ╱41╱A╱ // 0xa68 @0x6
0x0a62…0a6e at0007 = ╱52╱R╱ // 0xa69 @0x7
0x0a62…0a6e at0008 = ╱41╱A╱ // 0xa6a @0x8
0x0a62…0a6e at0009 = ╱4d╱M╱ // 0xa6b @0x9
0x0a62…0a6e at000a = ╱ef╱ $ ╱ // 0xa6c @0xa
0x0a62…0a6e at000b = EOL // 0xa6d @0xb
0x0a62…0a6e }
0x0a6e…0aa0 a08e 00910 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
0x0a6e…0aa0 LineComal80 {
0x0a6e…0aa0 ptr = 0xa08e // 0xa6e @0x0
0x0a6e…0aa0 lno = 0x038e // 0xa70 @0x2
0x0a6e…0aa0 at0004 = ╱86╱ LET ╱ // 0xa72 @0x4
0x0a6e…0aa0 at0005 = ╱4b╱K╱ // 0xa73 @0x5
0x0a6e…0aa0 at0006 = ╱54╱T╱ // 0xa74 @0x6
0x0a6e…0aa0 at0007 = ╱4f╱O╱ // 0xa75 @0x7
0x0a6e…0aa0 at0008 = ╱49╱I╱ // 0xa76 @0x8
0x0a6e…0aa0 at0009 = ╱44╱D╱ // 0xa77 @0x9
0x0a6e…0aa0 at000a = ╱58╱X╱ // 0xa78 @0xa
0x0a6e…0aa0 at000b = ╱ef╱ $ ╱ // 0xa79 @0xb
0x0a6e…0aa0 at000c = ╱f0╱ := ╱ // 0xa7a @0xc
0x0a6e…0aa0 at000d = ╱44╱D╱ // 0xa7b @0xd
0x0a6e…0aa0 at000e = ╱41╱A╱ // 0xa7c @0xe
0x0a6e…0aa0 at000f = ╱54╱T╱ // 0xa7d @0xf
0x0a6e…0aa0 at0010 = ╱41╱A╱ // 0xa7e @0x10
0x0a6e…0aa0 at0011 = ╱46╱F╱ // 0xa7f @0x11
0x0a6e…0aa0 at0012 = ╱4c╱L╱ // 0xa80 @0x12
0x0a6e…0aa0 at0013 = ╱ef╱ $ ╱ // 0xa81 @0x13
0x0a6e…0aa0 at0014 = ╱eb╱ + ╱ // 0xa82 @0x14
0x0a6e…0aa0 at0015 = ╱22╱"╱ // 0xa83 @0x15
0x0a6e…0aa0 at0016 = ╱3a╱:╱ // 0xa84 @0x16
0x0a6e…0aa0 at0017 = ╱22╱"╱ // 0xa85 @0x17
0x0a6e…0aa0 at0018 = ╱eb╱ + ╱ // 0xa86 @0x18
0x0a6e…0aa0 at0019 = ╱53╱S╱ // 0xa87 @0x19
0x0a6e…0aa0 at001a = ╱5f╱_╱ // 0xa88 @0x1a
0x0a6e…0aa0 at001b = ╱4b╱K╱ // 0xa89 @0x1b
0x0a6e…0aa0 at001c = ╱4f╱O╱ // 0xa8a @0x1c
0x0a6e…0aa0 at001d = ╱44╱D╱ // 0xa8b @0x1d
0x0a6e…0aa0 at001e = ╱45╱E╱ // 0xa8c @0x1e
0x0a6e…0aa0 at001f = ╱ef╱ $ ╱ // 0xa8d @0x1f
0x0a6e…0aa0 at0020 = ╱eb╱ + ╱ // 0xa8e @0x20
0x0a6e…0aa0 at0021 = ╱54╱T╱ // 0xa8f @0x21
0x0a6e…0aa0 at0022 = ╱5f╱_╱ // 0xa90 @0x22
0x0a6e…0aa0 at0023 = ╱4b╱K╱ // 0xa91 @0x23
0x0a6e…0aa0 at0024 = ╱4f╱O╱ // 0xa92 @0x24
0x0a6e…0aa0 at0025 = ╱44╱D╱ // 0xa93 @0x25
0x0a6e…0aa0 at0026 = ╱45╱E╱ // 0xa94 @0x26
0x0a6e…0aa0 at0027 = ╱ef╱ $ ╱ // 0xa95 @0x27
0x0a6e…0aa0 at0028 = ╱eb╱ + ╱ // 0xa96 @0x28
0x0a6e…0aa0 at0029 = ╱22╱"╱ // 0xa97 @0x29
0x0a6e…0aa0 at002a = ╱4b╱K╱ // 0xa98 @0x2a
0x0a6e…0aa0 at002b = ╱54╱T╱ // 0xa99 @0x2b
0x0a6e…0aa0 at002c = ╱4f╱O╱ // 0xa9a @0x2c
0x0a6e…0aa0 at002d = ╱49╱I╱ // 0xa9b @0x2d
0x0a6e…0aa0 at002e = ╱44╱D╱ // 0xa9c @0x2e
0x0a6e…0aa0 at002f = ╱58╱X╱ // 0xa9d @0x2f
0x0a6e…0aa0 at0030 = ╱22╱"╱ // 0xa9e @0x30
0x0a6e…0aa0 at0031 = EOL // 0xa9f @0x31
0x0a6e…0aa0 }
0x0aa0…0ad0 a0be 00920 LET KONTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KONTO"
0x0aa0…0ad0 LineComal80 {
0x0aa0…0ad0 ptr = 0xa0be // 0xaa0 @0x0
0x0aa0…0ad0 lno = 0x0398 // 0xaa2 @0x2
0x0aa0…0ad0 at0004 = ╱86╱ LET ╱ // 0xaa4 @0x4
0x0aa0…0ad0 at0005 = ╱4b╱K╱ // 0xaa5 @0x5
0x0aa0…0ad0 at0006 = ╱4f╱O╱ // 0xaa6 @0x6
0x0aa0…0ad0 at0007 = ╱4e╱N╱ // 0xaa7 @0x7
0x0aa0…0ad0 at0008 = ╱54╱T╱ // 0xaa8 @0x8
0x0aa0…0ad0 at0009 = ╱4f╱O╱ // 0xaa9 @0x9
0x0aa0…0ad0 at000a = ╱ef╱ $ ╱ // 0xaaa @0xa
0x0aa0…0ad0 at000b = ╱f0╱ := ╱ // 0xaab @0xb
0x0aa0…0ad0 at000c = ╱44╱D╱ // 0xaac @0xc
0x0aa0…0ad0 at000d = ╱41╱A╱ // 0xaad @0xd
0x0aa0…0ad0 at000e = ╱54╱T╱ // 0xaae @0xe
0x0aa0…0ad0 at000f = ╱41╱A╱ // 0xaaf @0xf
0x0aa0…0ad0 at0010 = ╱46╱F╱ // 0xab0 @0x10
0x0aa0…0ad0 at0011 = ╱4c╱L╱ // 0xab1 @0x11
0x0aa0…0ad0 at0012 = ╱ef╱ $ ╱ // 0xab2 @0x12
0x0aa0…0ad0 at0013 = ╱eb╱ + ╱ // 0xab3 @0x13
0x0aa0…0ad0 at0014 = ╱22╱"╱ // 0xab4 @0x14
0x0aa0…0ad0 at0015 = ╱3a╱:╱ // 0xab5 @0x15
0x0aa0…0ad0 at0016 = ╱22╱"╱ // 0xab6 @0x16
0x0aa0…0ad0 at0017 = ╱eb╱ + ╱ // 0xab7 @0x17
0x0aa0…0ad0 at0018 = ╱53╱S╱ // 0xab8 @0x18
0x0aa0…0ad0 at0019 = ╱5f╱_╱ // 0xab9 @0x19
0x0aa0…0ad0 at001a = ╱4b╱K╱ // 0xaba @0x1a
0x0aa0…0ad0 at001b = ╱4f╱O╱ // 0xabb @0x1b
0x0aa0…0ad0 at001c = ╱44╱D╱ // 0xabc @0x1c
0x0aa0…0ad0 at001d = ╱45╱E╱ // 0xabd @0x1d
0x0aa0…0ad0 at001e = ╱ef╱ $ ╱ // 0xabe @0x1e
0x0aa0…0ad0 at001f = ╱eb╱ + ╱ // 0xabf @0x1f
0x0aa0…0ad0 at0020 = ╱54╱T╱ // 0xac0 @0x20
0x0aa0…0ad0 at0021 = ╱5f╱_╱ // 0xac1 @0x21
0x0aa0…0ad0 at0022 = ╱4b╱K╱ // 0xac2 @0x22
0x0aa0…0ad0 at0023 = ╱4f╱O╱ // 0xac3 @0x23
0x0aa0…0ad0 at0024 = ╱44╱D╱ // 0xac4 @0x24
0x0aa0…0ad0 at0025 = ╱45╱E╱ // 0xac5 @0x25
0x0aa0…0ad0 at0026 = ╱ef╱ $ ╱ // 0xac6 @0x26
0x0aa0…0ad0 at0027 = ╱eb╱ + ╱ // 0xac7 @0x27
0x0aa0…0ad0 at0028 = ╱22╱"╱ // 0xac8 @0x28
0x0aa0…0ad0 at0029 = ╱4b╱K╱ // 0xac9 @0x29
0x0aa0…0ad0 at002a = ╱4f╱O╱ // 0xaca @0x2a
0x0aa0…0ad0 at002b = ╱4e╱N╱ // 0xacb @0x2b
0x0aa0…0ad0 at002c = ╱54╱T╱ // 0xacc @0x2c
0x0aa0…0ad0 at002d = ╱4f╱O╱ // 0xacd @0x2d
0x0aa0…0ad0 at002e = ╱22╱"╱ // 0xace @0x2e
0x0aa0…0ad0 at002f = EOL // 0xacf @0x2f
0x0aa0…0ad0 }
0x0ad0…0b00 a0ee 00930 LET TRANS $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "TRANS"
0x0ad0…0b00 LineComal80 {
0x0ad0…0b00 ptr = 0xa0ee // 0xad0 @0x0
0x0ad0…0b00 lno = 0x03a2 // 0xad2 @0x2
0x0ad0…0b00 at0004 = ╱86╱ LET ╱ // 0xad4 @0x4
0x0ad0…0b00 at0005 = ╱54╱T╱ // 0xad5 @0x5
0x0ad0…0b00 at0006 = ╱52╱R╱ // 0xad6 @0x6
0x0ad0…0b00 at0007 = ╱41╱A╱ // 0xad7 @0x7
0x0ad0…0b00 at0008 = ╱4e╱N╱ // 0xad8 @0x8
0x0ad0…0b00 at0009 = ╱53╱S╱ // 0xad9 @0x9
0x0ad0…0b00 at000a = ╱ef╱ $ ╱ // 0xada @0xa
0x0ad0…0b00 at000b = ╱f0╱ := ╱ // 0xadb @0xb
0x0ad0…0b00 at000c = ╱44╱D╱ // 0xadc @0xc
0x0ad0…0b00 at000d = ╱41╱A╱ // 0xadd @0xd
0x0ad0…0b00 at000e = ╱54╱T╱ // 0xade @0xe
0x0ad0…0b00 at000f = ╱41╱A╱ // 0xadf @0xf
0x0ad0…0b00 at0010 = ╱46╱F╱ // 0xae0 @0x10
0x0ad0…0b00 at0011 = ╱4c╱L╱ // 0xae1 @0x11
0x0ad0…0b00 at0012 = ╱ef╱ $ ╱ // 0xae2 @0x12
0x0ad0…0b00 at0013 = ╱eb╱ + ╱ // 0xae3 @0x13
0x0ad0…0b00 at0014 = ╱22╱"╱ // 0xae4 @0x14
0x0ad0…0b00 at0015 = ╱3a╱:╱ // 0xae5 @0x15
0x0ad0…0b00 at0016 = ╱22╱"╱ // 0xae6 @0x16
0x0ad0…0b00 at0017 = ╱eb╱ + ╱ // 0xae7 @0x17
0x0ad0…0b00 at0018 = ╱53╱S╱ // 0xae8 @0x18
0x0ad0…0b00 at0019 = ╱5f╱_╱ // 0xae9 @0x19
0x0ad0…0b00 at001a = ╱4b╱K╱ // 0xaea @0x1a
0x0ad0…0b00 at001b = ╱4f╱O╱ // 0xaeb @0x1b
0x0ad0…0b00 at001c = ╱44╱D╱ // 0xaec @0x1c
0x0ad0…0b00 at001d = ╱45╱E╱ // 0xaed @0x1d
0x0ad0…0b00 at001e = ╱ef╱ $ ╱ // 0xaee @0x1e
0x0ad0…0b00 at001f = ╱eb╱ + ╱ // 0xaef @0x1f
0x0ad0…0b00 at0020 = ╱54╱T╱ // 0xaf0 @0x20
0x0ad0…0b00 at0021 = ╱5f╱_╱ // 0xaf1 @0x21
0x0ad0…0b00 at0022 = ╱4b╱K╱ // 0xaf2 @0x22
0x0ad0…0b00 at0023 = ╱4f╱O╱ // 0xaf3 @0x23
0x0ad0…0b00 at0024 = ╱44╱D╱ // 0xaf4 @0x24
0x0ad0…0b00 at0025 = ╱45╱E╱ // 0xaf5 @0x25
0x0ad0…0b00 at0026 = ╱ef╱ $ ╱ // 0xaf6 @0x26
0x0ad0…0b00 at0027 = ╱eb╱ + ╱ // 0xaf7 @0x27
0x0ad0…0b00 at0028 = ╱22╱"╱ // 0xaf8 @0x28
0x0ad0…0b00 at0029 = ╱54╱T╱ // 0xaf9 @0x29
0x0ad0…0b00 at002a = ╱52╱R╱ // 0xafa @0x2a
0x0ad0…0b00 at002b = ╱41╱A╱ // 0xafb @0x2b
0x0ad0…0b00 at002c = ╱4e╱N╱ // 0xafc @0x2c
0x0ad0…0b00 at002d = ╱53╱S╱ // 0xafd @0x2d
0x0ad0…0b00 at002e = ╱22╱"╱ // 0xafe @0x2e
0x0ad0…0b00 at002f = EOL // 0xaff @0x2f
0x0ad0…0b00 }
0x0b00…0b1a a108 00940 EXEC OPENFIL ( KTOIDX $ , "R" )
0x0b00…0b1a LineComal80 {
0x0b00…0b1a ptr = 0xa108 // 0xb00 @0x0
0x0b00…0b1a lno = 0x03ac // 0xb02 @0x2
0x0b00…0b1a at0004 = ╱9d╱ EXEC ╱ // 0xb04 @0x4
0x0b00…0b1a at0005 = ╱4f╱O╱ // 0xb05 @0x5
0x0b00…0b1a at0006 = ╱50╱P╱ // 0xb06 @0x6
0x0b00…0b1a at0007 = ╱45╱E╱ // 0xb07 @0x7
0x0b00…0b1a at0008 = ╱4e╱N╱ // 0xb08 @0x8
0x0b00…0b1a at0009 = ╱46╱F╱ // 0xb09 @0x9
0x0b00…0b1a at000a = ╱49╱I╱ // 0xb0a @0xa
0x0b00…0b1a at000b = ╱4c╱L╱ // 0xb0b @0xb
0x0b00…0b1a at000c = ╱ed╱ ( ╱ // 0xb0c @0xc
0x0b00…0b1a at000d = ╱4b╱K╱ // 0xb0d @0xd
0x0b00…0b1a at000e = ╱54╱T╱ // 0xb0e @0xe
0x0b00…0b1a at000f = ╱4f╱O╱ // 0xb0f @0xf
0x0b00…0b1a at0010 = ╱49╱I╱ // 0xb10 @0x10
0x0b00…0b1a at0011 = ╱44╱D╱ // 0xb11 @0x11
0x0b00…0b1a at0012 = ╱58╱X╱ // 0xb12 @0x12
0x0b00…0b1a at0013 = ╱ef╱ $ ╱ // 0xb13 @0x13
0x0b00…0b1a at0014 = ╱ec╱ , ╱ // 0xb14 @0x14
0x0b00…0b1a at0015 = ╱22╱"╱ // 0xb15 @0x15
0x0b00…0b1a at0016 = ╱52╱R╱ // 0xb16 @0x16
0x0b00…0b1a at0017 = ╱22╱"╱ // 0xb17 @0x17
0x0b00…0b1a at0018 = ╱ee╱ ) ╱ // 0xb18 @0x18
0x0b00…0b1a at0019 = EOL // 0xb19 @0x19
0x0b00…0b1a }
0x0b1a…0b33 a121 00950 EXEC OPENFIL ( KONTO $ , "R" )
0x0b1a…0b33 LineComal80 {
0x0b1a…0b33 ptr = 0xa121 // 0xb1a @0x0
0x0b1a…0b33 lno = 0x03b6 // 0xb1c @0x2
0x0b1a…0b33 at0004 = ╱9d╱ EXEC ╱ // 0xb1e @0x4
0x0b1a…0b33 at0005 = ╱4f╱O╱ // 0xb1f @0x5
0x0b1a…0b33 at0006 = ╱50╱P╱ // 0xb20 @0x6
0x0b1a…0b33 at0007 = ╱45╱E╱ // 0xb21 @0x7
0x0b1a…0b33 at0008 = ╱4e╱N╱ // 0xb22 @0x8
0x0b1a…0b33 at0009 = ╱46╱F╱ // 0xb23 @0x9
0x0b1a…0b33 at000a = ╱49╱I╱ // 0xb24 @0xa
0x0b1a…0b33 at000b = ╱4c╱L╱ // 0xb25 @0xb
0x0b1a…0b33 at000c = ╱ed╱ ( ╱ // 0xb26 @0xc
0x0b1a…0b33 at000d = ╱4b╱K╱ // 0xb27 @0xd
0x0b1a…0b33 at000e = ╱4f╱O╱ // 0xb28 @0xe
0x0b1a…0b33 at000f = ╱4e╱N╱ // 0xb29 @0xf
0x0b1a…0b33 at0010 = ╱54╱T╱ // 0xb2a @0x10
0x0b1a…0b33 at0011 = ╱4f╱O╱ // 0xb2b @0x11
0x0b1a…0b33 at0012 = ╱ef╱ $ ╱ // 0xb2c @0x12
0x0b1a…0b33 at0013 = ╱ec╱ , ╱ // 0xb2d @0x13
0x0b1a…0b33 at0014 = ╱22╱"╱ // 0xb2e @0x14
0x0b1a…0b33 at0015 = ╱52╱R╱ // 0xb2f @0x15
0x0b1a…0b33 at0016 = ╱22╱"╱ // 0xb30 @0x16
0x0b1a…0b33 at0017 = ╱ee╱ ) ╱ // 0xb31 @0x17
0x0b1a…0b33 at0018 = EOL // 0xb32 @0x18
0x0b1a…0b33 }
0x0b33…0b4c a13a 00960 EXEC OPENFIL ( TRANS $ , "R" )
0x0b33…0b4c LineComal80 {
0x0b33…0b4c ptr = 0xa13a // 0xb33 @0x0
0x0b33…0b4c lno = 0x03c0 // 0xb35 @0x2
0x0b33…0b4c at0004 = ╱9d╱ EXEC ╱ // 0xb37 @0x4
0x0b33…0b4c at0005 = ╱4f╱O╱ // 0xb38 @0x5
0x0b33…0b4c at0006 = ╱50╱P╱ // 0xb39 @0x6
0x0b33…0b4c at0007 = ╱45╱E╱ // 0xb3a @0x7
0x0b33…0b4c at0008 = ╱4e╱N╱ // 0xb3b @0x8
0x0b33…0b4c at0009 = ╱46╱F╱ // 0xb3c @0x9
0x0b33…0b4c at000a = ╱49╱I╱ // 0xb3d @0xa
0x0b33…0b4c at000b = ╱4c╱L╱ // 0xb3e @0xb
0x0b33…0b4c at000c = ╱ed╱ ( ╱ // 0xb3f @0xc
0x0b33…0b4c at000d = ╱54╱T╱ // 0xb40 @0xd
0x0b33…0b4c at000e = ╱52╱R╱ // 0xb41 @0xe
0x0b33…0b4c at000f = ╱41╱A╱ // 0xb42 @0xf
0x0b33…0b4c at0010 = ╱4e╱N╱ // 0xb43 @0x10
0x0b33…0b4c at0011 = ╱53╱S╱ // 0xb44 @0x11
0x0b33…0b4c at0012 = ╱ef╱ $ ╱ // 0xb45 @0x12
0x0b33…0b4c at0013 = ╱ec╱ , ╱ // 0xb46 @0x13
0x0b33…0b4c at0014 = ╱22╱"╱ // 0xb47 @0x14
0x0b33…0b4c at0015 = ╱52╱R╱ // 0xb48 @0x15
0x0b33…0b4c at0016 = ╱22╱"╱ // 0xb49 @0x16
0x0b33…0b4c at0017 = ╱ee╱ ) ╱ // 0xb4a @0x17
0x0b33…0b4c at0018 = EOL // 0xb4b @0x18
0x0b33…0b4c }
0x0b4c…0b59 a147 00970 ENDPROC INITIER
0x0b4c…0b59 LineComal80 {
0x0b4c…0b59 ptr = 0xa147 // 0xb4c @0x0
0x0b4c…0b59 lno = 0x03ca // 0xb4e @0x2
0x0b4c…0b59 at0004 = ╱9f╱ ENDPROC ╱ // 0xb50 @0x4
0x0b4c…0b59 at0005 = ╱49╱I╱ // 0xb51 @0x5
0x0b4c…0b59 at0006 = ╱4e╱N╱ // 0xb52 @0x6
0x0b4c…0b59 at0007 = ╱49╱I╱ // 0xb53 @0x7
0x0b4c…0b59 at0008 = ╱54╱T╱ // 0xb54 @0x8
0x0b4c…0b59 at0009 = ╱49╱I╱ // 0xb55 @0x9
0x0b4c…0b59 at000a = ╱45╱E╱ // 0xb56 @0xa
0x0b4c…0b59 at000b = ╱52╱R╱ // 0xb57 @0xb
0x0b4c…0b59 at000c = EOL // 0xb58 @0xc
0x0b4c…0b59 }
0x0b59…0b5e a14c 00980
0x0b59…0b5e LineComal80 {
0x0b59…0b5e ptr = 0xa14c // 0xb59 @0x0
0x0b59…0b5e lno = 0x03d4 // 0xb5b @0x2
0x0b59…0b5e at0004 = EOL // 0xb5d @0x4
0x0b59…0b5e }
0x0b5e…0b71 a15f 00990 PROC TERMINAL_IDX
0x0b5e…0b71 LineComal80 {
0x0b5e…0b71 ptr = 0xa15f // 0xb5e @0x0
0x0b5e…0b71 lno = 0x03de // 0xb60 @0x2
0x0b5e…0b71 at0004 = ╱9e03╱ PROC ╱ // 0xb62 @0x4
0x0b5e…0b71 at0006 = ╱54╱T╱ // 0xb64 @0x6
0x0b5e…0b71 at0007 = ╱45╱E╱ // 0xb65 @0x7
0x0b5e…0b71 at0008 = ╱52╱R╱ // 0xb66 @0x8
0x0b5e…0b71 at0009 = ╱4d╱M╱ // 0xb67 @0x9
0x0b5e…0b71 at000a = ╱49╱I╱ // 0xb68 @0xa
0x0b5e…0b71 at000b = ╱4e╱N╱ // 0xb69 @0xb
0x0b5e…0b71 at000c = ╱41╱A╱ // 0xb6a @0xc
0x0b5e…0b71 at000d = ╱4c╱L╱ // 0xb6b @0xd
0x0b5e…0b71 at000e = ╱5f╱_╱ // 0xb6c @0xe
0x0b5e…0b71 at000f = ╱49╱I╱ // 0xb6d @0xf
0x0b5e…0b71 at0010 = ╱44╱D╱ // 0xb6e @0x10
0x0b5e…0b71 at0011 = ╱58╱X╱ // 0xb6f @0x11
0x0b5e…0b71 at0012 = EOL // 0xb70 @0x12
0x0b5e…0b71 }
0x0b71…0b8b a179 01000 LET PPAR := 5 ; RESRV := 0
0x0b71…0b8b LineComal80 {
0x0b71…0b8b ptr = 0xa179 // 0xb71 @0x0
0x0b71…0b8b lno = 0x03e8 // 0xb73 @0x2
0x0b71…0b8b at0004 = ╱86╱ LET ╱ // 0xb75 @0x4
0x0b71…0b8b at0005 = ╱50╱P╱ // 0xb76 @0x5
0x0b71…0b8b at0006 = ╱50╱P╱ // 0xb77 @0x6
0x0b71…0b8b at0007 = ╱41╱A╱ // 0xb78 @0x7
0x0b71…0b8b at0008 = ╱52╱R╱ // 0xb79 @0x8
0x0b71…0b8b at0009 = ╱f0╱ := ╱ // 0xb7a @0x9
0x0b71…0b8b at000a = ╱35╱5╱ // 0xb7b @0xa
0x0b71…0b8b at000b = ╱f20500╱ // 0xb7c @0xb
0x0b71…0b8b at000e = ╱ea╱ ; ╱ // 0xb7f @0xe
0x0b71…0b8b at000f = ╱52╱R╱ // 0xb80 @0xf
0x0b71…0b8b at0010 = ╱45╱E╱ // 0xb81 @0x10
0x0b71…0b8b at0011 = ╱53╱S╱ // 0xb82 @0x11
0x0b71…0b8b at0012 = ╱52╱R╱ // 0xb83 @0x12
0x0b71…0b8b at0013 = ╱56╱V╱ // 0xb84 @0x13
0x0b71…0b8b at0014 = ╱f0╱ := ╱ // 0xb85 @0x14
0x0b71…0b8b at0015 = ╱30╱0╱ // 0xb86 @0x15
0x0b71…0b8b at0016 = ╱f20000╱ // 0xb87 @0x16
0x0b71…0b8b at0019 = EOL // 0xb8a @0x19
0x0b71…0b8b }
0x0b8b…0b9d a18b 01010 CALL :PRES"
0x0b8b…0b9d LineComal80 {
0x0b8b…0b9d ptr = 0xa18b // 0xb8b @0x0
0x0b8b…0b9d lno = 0x03f2 // 0xb8d @0x2
0x0b8b…0b9d at0004 = ╱ad00╱ CALL ╱ // 0xb8f @0x4
0x0b8b…0b9d at0006 = ╱fe22444445╱ // 0xb91 @0x6
0x0b8b…0b9d at000b = ╱3a╱:╱ // 0xb96 @0xb
0x0b8b…0b9d at000c = ╱50╱P╱ // 0xb97 @0xc
0x0b8b…0b9d at000d = ╱52╱R╱ // 0xb98 @0xd
0x0b8b…0b9d at000e = ╱45╱E╱ // 0xb99 @0xe
0x0b8b…0b9d at000f = ╱53╱S╱ // 0xb9a @0xf
0x0b8b…0b9d at0010 = ╱22╱"╱ // 0xb9b @0x10
0x0b8b…0b9d at0011 = EOL // 0xb9c @0x11
0x0b8b…0b9d }
0x0b9d…0bc6 a1b4 01020 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
0x0b9d…0bc6 LineComal80 {
0x0b9d…0bc6 ptr = 0xa1b4 // 0xb9d @0x0
0x0b9d…0bc6 lno = 0x03fc // 0xb9f @0x2
0x0b9d…0bc6 at0004 = ╱a9╱ GET ╱ // 0xba1 @0x4
0x0b9d…0bc6 at0005 = ╱53╱S╱ // 0xba2 @0x5
0x0b9d…0bc6 at0006 = ╱59╱Y╱ // 0xba3 @0x6
0x0b9d…0bc6 at0007 = ╱53╱S╱ // 0xba4 @0x7
0x0b9d…0bc6 at0008 = ╱50╱P╱ // 0xba5 @0x8
0x0b9d…0bc6 at0009 = ╱41╱A╱ // 0xba6 @0x9
0x0b9d…0bc6 at000a = ╱52╱R╱ // 0xba7 @0xa
0x0b9d…0bc6 at000b = ╱41╱A╱ // 0xba8 @0xb
0x0b9d…0bc6 at000c = ╱ef╱ $ ╱ // 0xba9 @0xc
0x0b9d…0bc6 at000d = ╱ec╱ , ╱ // 0xbaa @0xd
0x0b9d…0bc6 at000e = ╱31╱1╱ // 0xbab @0xe
0x0b9d…0bc6 at000f = ╱f20100╱ // 0xbac @0xf
0x0b9d…0bc6 at0012 = ╱e5╱ + ╱ // 0xbaf @0x12
0x0b9d…0bc6 at0013 = ╱52╱R╱ // 0xbb0 @0x13
0x0b9d…0bc6 at0014 = ╱45╱E╱ // 0xbb1 @0x14
0x0b9d…0bc6 at0015 = ╱53╱S╱ // 0xbb2 @0x15
0x0b9d…0bc6 at0016 = ╱52╱R╱ // 0xbb3 @0x16
0x0b9d…0bc6 at0017 = ╱56╱V╱ // 0xbb4 @0x17
0x0b9d…0bc6 at0018 = ╱f1╱ : ╱ // 0xbb5 @0x18
0x0b9d…0bc6 at0019 = ╱44╱D╱ // 0xbb6 @0x19
0x0b9d…0bc6 at001a = ╱41╱A╱ // 0xbb7 @0x1a
0x0b9d…0bc6 at001b = ╱54╱T╱ // 0xbb8 @0x1b
0x0b9d…0bc6 at001c = ╱41╱A╱ // 0xbb9 @0x1c
0x0b9d…0bc6 at001d = ╱46╱F╱ // 0xbba @0x1d
0x0b9d…0bc6 at001e = ╱4c╱L╱ // 0xbbb @0x1e
0x0b9d…0bc6 at001f = ╱ef╱ $ ╱ // 0xbbc @0x1f
0x0b9d…0bc6 at0020 = ╱ec╱ , ╱ // 0xbbd @0x20
0x0b9d…0bc6 at0021 = ╱54╱T╱ // 0xbbe @0x21
0x0b9d…0bc6 at0022 = ╱5f╱_╱ // 0xbbf @0x22
0x0b9d…0bc6 at0023 = ╱4b╱K╱ // 0xbc0 @0x23
0x0b9d…0bc6 at0024 = ╱4f╱O╱ // 0xbc1 @0x24
0x0b9d…0bc6 at0025 = ╱44╱D╱ // 0xbc2 @0x25
0x0b9d…0bc6 at0026 = ╱45╱E╱ // 0xbc3 @0x26
0x0b9d…0bc6 at0027 = ╱ef╱ $ ╱ // 0xbc4 @0x27
0x0b9d…0bc6 at0028 = EOL // 0xbc5 @0x28
0x0b9d…0bc6 }
0x0bc6…0bd8 a1c6 01030 ENDPROC TERMINAL_IDX
0x0bc6…0bd8 LineComal80 {
0x0bc6…0bd8 ptr = 0xa1c6 // 0xbc6 @0x0
0x0bc6…0bd8 lno = 0x0406 // 0xbc8 @0x2
0x0bc6…0bd8 at0004 = ╱9f╱ ENDPROC ╱ // 0xbca @0x4
0x0bc6…0bd8 at0005 = ╱54╱T╱ // 0xbcb @0x5
0x0bc6…0bd8 at0006 = ╱45╱E╱ // 0xbcc @0x6
0x0bc6…0bd8 at0007 = ╱52╱R╱ // 0xbcd @0x7
0x0bc6…0bd8 at0008 = ╱4d╱M╱ // 0xbce @0x8
0x0bc6…0bd8 at0009 = ╱49╱I╱ // 0xbcf @0x9
0x0bc6…0bd8 at000a = ╱4e╱N╱ // 0xbd0 @0xa
0x0bc6…0bd8 at000b = ╱41╱A╱ // 0xbd1 @0xb
0x0bc6…0bd8 at000c = ╱4c╱L╱ // 0xbd2 @0xc
0x0bc6…0bd8 at000d = ╱5f╱_╱ // 0xbd3 @0xd
0x0bc6…0bd8 at000e = ╱49╱I╱ // 0xbd4 @0xe
0x0bc6…0bd8 at000f = ╱44╱D╱ // 0xbd5 @0xf
0x0bc6…0bd8 at0010 = ╱58╱X╱ // 0xbd6 @0x10
0x0bc6…0bd8 at0011 = EOL // 0xbd7 @0x11
0x0bc6…0bd8 }
0x0bd8…0bdd a1cb 01040
0x0bd8…0bdd LineComal80 {
0x0bd8…0bdd ptr = 0xa1cb // 0xbd8 @0x0
0x0bd8…0bdd lno = 0x0410 // 0xbda @0x2
0x0bd8…0bdd at0004 = EOL // 0xbdc @0x4
0x0bd8…0bdd }
0x0bdd…0bf8 a1e6 01050 PROC OPENFIL ( FNAVN $ , WAY $ )
0x0bdd…0bf8 LineComal80 {
0x0bdd…0bf8 ptr = 0xa1e6 // 0xbdd @0x0
0x0bdd…0bf8 lno = 0x041a // 0xbdf @0x2
0x0bdd…0bf8 at0004 = ╱9e04╱ PROC ╱ // 0xbe1 @0x4
0x0bdd…0bf8 at0006 = ╱4f╱O╱ // 0xbe3 @0x6
0x0bdd…0bf8 at0007 = ╱50╱P╱ // 0xbe4 @0x7
0x0bdd…0bf8 at0008 = ╱45╱E╱ // 0xbe5 @0x8
0x0bdd…0bf8 at0009 = ╱4e╱N╱ // 0xbe6 @0x9
0x0bdd…0bf8 at000a = ╱46╱F╱ // 0xbe7 @0xa
0x0bdd…0bf8 at000b = ╱49╱I╱ // 0xbe8 @0xb
0x0bdd…0bf8 at000c = ╱4c╱L╱ // 0xbe9 @0xc
0x0bdd…0bf8 at000d = ╱ed╱ ( ╱ // 0xbea @0xd
0x0bdd…0bf8 at000e = ╱46╱F╱ // 0xbeb @0xe
0x0bdd…0bf8 at000f = ╱4e╱N╱ // 0xbec @0xf
0x0bdd…0bf8 at0010 = ╱41╱A╱ // 0xbed @0x10
0x0bdd…0bf8 at0011 = ╱56╱V╱ // 0xbee @0x11
0x0bdd…0bf8 at0012 = ╱4e╱N╱ // 0xbef @0x12
0x0bdd…0bf8 at0013 = ╱ef╱ $ ╱ // 0xbf0 @0x13
0x0bdd…0bf8 at0014 = ╱ec╱ , ╱ // 0xbf1 @0x14
0x0bdd…0bf8 at0015 = ╱57╱W╱ // 0xbf2 @0x15
0x0bdd…0bf8 at0016 = ╱41╱A╱ // 0xbf3 @0x16
0x0bdd…0bf8 at0017 = ╱59╱Y╱ // 0xbf4 @0x17
0x0bdd…0bf8 at0018 = ╱ef╱ $ ╱ // 0xbf5 @0x18
0x0bdd…0bf8 at0019 = ╱ee╱ ) ╱ // 0xbf6 @0x19
0x0bdd…0bf8 at001a = EOL // 0xbf7 @0x1a
0x0bdd…0bf8 }
0x0bf8…0bff a1ed 01060 REPEAT
0x0bf8…0bff LineComal80 {
0x0bf8…0bff ptr = 0xa1ed // 0xbf8 @0x0
0x0bf8…0bff lno = 0x0424 // 0xbfa @0x2
0x0bf8…0bff at0004 = ╱9705╱ REPEAT ╱ // 0xbfc @0x4
0x0bf8…0bff at0006 = EOL // 0xbfe @0x6
0x0bf8…0bff }
0x0bff…0c18 a206 01070 IF AY $ = "W" OR WAY $ = "w" THEN
0x0bff…0c18 LineComal80 {
0x0bff…0c18 ptr = 0xa206 // 0xbff @0x0
0x0bff…0c18 lno = 0x042e // 0xc01 @0x2
0x0bff…0c18 at0004 = ╱9b0657╱ IF ╱ // 0xc03 @0x4
0x0bff…0c18 at0007 = ╱41╱A╱ // 0xc06 @0x7
0x0bff…0c18 at0008 = ╱59╱Y╱ // 0xc07 @0x8
0x0bff…0c18 at0009 = ╱ef╱ $ ╱ // 0xc08 @0x9
0x0bff…0c18 at000a = ╱df╱ = ╱ // 0xc09 @0xa
0x0bff…0c18 at000b = ╱22╱"╱ // 0xc0a @0xb
0x0bff…0c18 at000c = ╱57╱W╱ // 0xc0b @0xc
0x0bff…0c18 at000d = ╱22╱"╱ // 0xc0c @0xd
0x0bff…0c18 at000e = ╱d8╱ OR ╱ // 0xc0d @0xe
0x0bff…0c18 at000f = ╱57╱W╱ // 0xc0e @0xf
0x0bff…0c18 at0010 = ╱41╱A╱ // 0xc0f @0x10
0x0bff…0c18 at0011 = ╱59╱Y╱ // 0xc10 @0x11
0x0bff…0c18 at0012 = ╱ef╱ $ ╱ // 0xc11 @0x12
0x0bff…0c18 at0013 = ╱df╱ = ╱ // 0xc12 @0x13
0x0bff…0c18 at0014 = ╱22╱"╱ // 0xc13 @0x14
0x0bff…0c18 at0015 = ╱77╱w╱ // 0xc14 @0x15
0x0bff…0c18 at0016 = ╱22╱"╱ // 0xc15 @0x16
0x0bff…0c18 at0017 = ╱b5╱ THEN ╱ // 0xc16 @0x17
0x0bff…0c18 at0018 = EOL // 0xc17 @0x18
0x0bff…0c18 }
0x0c18…0c26 a214 01080 OPEN FNAVN $ , W
0x0c18…0c26 LineComal80 {
0x0c18…0c26 ptr = 0xa214 // 0xc18 @0x0
0x0c18…0c26 lno = 0x0438 // 0xc1a @0x2
0x0c18…0c26 at0004 = ╱a7╱ OPEN ╱ // 0xc1c @0x4
0x0c18…0c26 at0005 = ╱46╱F╱ // 0xc1d @0x5
0x0c18…0c26 at0006 = ╱4e╱N╱ // 0xc1e @0x6
0x0c18…0c26 at0007 = ╱41╱A╱ // 0xc1f @0x7
0x0c18…0c26 at0008 = ╱56╱V╱ // 0xc20 @0x8
0x0c18…0c26 at0009 = ╱4e╱N╱ // 0xc21 @0x9
0x0c18…0c26 at000a = ╱ef╱ $ ╱ // 0xc22 @0xa
0x0c18…0c26 at000b = ╱ec╱ , ╱ // 0xc23 @0xb
0x0c18…0c26 at000c = ╱57╱W╱ // 0xc24 @0xc
0x0c18…0c26 at000d = EOL // 0xc25 @0xd
0x0c18…0c26 }
0x0c26…0c2d a21b 01090 ELSE
0x0c26…0c2d LineComal80 {
0x0c26…0c2d ptr = 0xa21b // 0xc26 @0x0
0x0c26…0c2d lno = 0x0442 // 0xc28 @0x2
0x0c26…0c2d at0004 = ╱9a07╱ ELSE ╱ // 0xc2a @0x4
0x0c26…0c2d at0006 = EOL // 0xc2c @0x6
0x0c26…0c2d }
0x0c2d…0c3b a229 01100 OPEN FNAVN $ , R
0x0c2d…0c3b LineComal80 {
0x0c2d…0c3b ptr = 0xa229 // 0xc2d @0x0
0x0c2d…0c3b lno = 0x044c // 0xc2f @0x2
0x0c2d…0c3b at0004 = ╱a7╱ OPEN ╱ // 0xc31 @0x4
0x0c2d…0c3b at0005 = ╱46╱F╱ // 0xc32 @0x5
0x0c2d…0c3b at0006 = ╱4e╱N╱ // 0xc33 @0x6
0x0c2d…0c3b at0007 = ╱41╱A╱ // 0xc34 @0x7
0x0c2d…0c3b at0008 = ╱56╱V╱ // 0xc35 @0x8
0x0c2d…0c3b at0009 = ╱4e╱N╱ // 0xc36 @0x9
0x0c2d…0c3b at000a = ╱ef╱ $ ╱ // 0xc37 @0xa
0x0c2d…0c3b at000b = ╱ec╱ , ╱ // 0xc38 @0xb
0x0c2d…0c3b at000c = ╱52╱R╱ // 0xc39 @0xc
0x0c2d…0c3b at000d = EOL // 0xc3a @0xd
0x0c2d…0c3b }
0x0c3b…0c41 a22f 01110 ENDIF
0x0c3b…0c41 LineComal80 {
0x0c3b…0c41 ptr = 0xa22f // 0xc3b @0x0
0x0c3b…0c41 lno = 0x0456 // 0xc3d @0x2
0x0c3b…0c41 at0004 = ╱9c╱ ENDIF ╱ // 0xc3f @0x4
0x0c3b…0c41 at0005 = EOL // 0xc40 @0x5
0x0c3b…0c41 }
0x0c41…0c52 a240 01120 IF ( FNAVN $ ) THEN
0x0c41…0c52 LineComal80 {
0x0c41…0c52 ptr = 0xa240 // 0xc41 @0x0
0x0c41…0c52 lno = 0x0460 // 0xc43 @0x2
0x0c41…0c52 at0004 = ╱9b08cd╱ IF ╱ // 0xc45 @0x4
0x0c41…0c52 at0007 = ╱ed╱ ( ╱ // 0xc48 @0x7
0x0c41…0c52 at0008 = ╱46╱F╱ // 0xc49 @0x8
0x0c41…0c52 at0009 = ╱4e╱N╱ // 0xc4a @0x9
0x0c41…0c52 at000a = ╱41╱A╱ // 0xc4b @0xa
0x0c41…0c52 at000b = ╱56╱V╱ // 0xc4c @0xb
0x0c41…0c52 at000c = ╱4e╱N╱ // 0xc4d @0xc
0x0c41…0c52 at000d = ╱ef╱ $ ╱ // 0xc4e @0xd
0x0c41…0c52 at000e = ╱ee╱ ) ╱ // 0xc4f @0xe
0x0c41…0c52 at000f = ╱b5╱ THEN ╱ // 0xc50 @0xf
0x0c41…0c52 at0010 = EOL // 0xc51 @0x10
0x0c41…0c52 }
0x0c52…0c6a a258 01130 PRINT "<SC0123>" ; CHR$ ( 7 )
0x0c52…0c6a LineComal80 {
0x0c52…0c6a ptr = 0xa258 // 0xc52 @0x0
0x0c52…0c6a lno = 0x046a // 0xc54 @0x2
0x0c52…0c6a at0004 = ╱92╱ PRINT ╱ // 0xc56 @0x4
0x0c52…0c6a at0005 = ╱22╱"╱ // 0xc57 @0x5
0x0c52…0c6a at0006 = ╱3c╱<╱ // 0xc58 @0x6
0x0c52…0c6a at0007 = ╱53╱S╱ // 0xc59 @0x7
0x0c52…0c6a at0008 = ╱43╱C╱ // 0xc5a @0x8
0x0c52…0c6a at0009 = ╱30╱0╱ // 0xc5b @0x9
0x0c52…0c6a at000a = ╱31╱1╱ // 0xc5c @0xa
0x0c52…0c6a at000b = ╱32╱2╱ // 0xc5d @0xb
0x0c52…0c6a at000c = ╱33╱3╱ // 0xc5e @0xc
0x0c52…0c6a at000d = ╱3e╱>╱ // 0xc5f @0xd
0x0c52…0c6a at000e = ╱22╱"╱ // 0xc60 @0xe
0x0c52…0c6a at000f = ╱ea╱ ; ╱ // 0xc61 @0xf
0x0c52…0c6a at0010 = ╱d0╱ CHR$ ╱ // 0xc62 @0x10
0x0c52…0c6a at0011 = ╱ed╱ ( ╱ // 0xc63 @0x11
0x0c52…0c6a at0012 = ╱37╱7╱ // 0xc64 @0x12
0x0c52…0c6a at0013 = ╱f20700╱ // 0xc65 @0x13
0x0c52…0c6a at0016 = ╱ee╱ ) ╱ // 0xc68 @0x16
0x0c52…0c6a at0017 = EOL // 0xc69 @0x17
0x0c52…0c6a }
0x0c6a…0c80 a26e 01140 IF ( FNAVN $ ) = 6 THEN
0x0c6a…0c80 LineComal80 {
0x0c6a…0c80 ptr = 0xa26e // 0xc6a @0x0
0x0c6a…0c80 lno = 0x0474 // 0xc6c @0x2
0x0c6a…0c80 at0004 = ╱9b09cd╱ IF ╱ // 0xc6e @0x4
0x0c6a…0c80 at0007 = ╱ed╱ ( ╱ // 0xc71 @0x7
0x0c6a…0c80 at0008 = ╱46╱F╱ // 0xc72 @0x8
0x0c6a…0c80 at0009 = ╱4e╱N╱ // 0xc73 @0x9
0x0c6a…0c80 at000a = ╱41╱A╱ // 0xc74 @0xa
0x0c6a…0c80 at000b = ╱56╱V╱ // 0xc75 @0xb
0x0c6a…0c80 at000c = ╱4e╱N╱ // 0xc76 @0xc
0x0c6a…0c80 at000d = ╱ef╱ $ ╱ // 0xc77 @0xd
0x0c6a…0c80 at000e = ╱ee╱ ) ╱ // 0xc78 @0xe
0x0c6a…0c80 at000f = ╱df╱ = ╱ // 0xc79 @0xf
0x0c6a…0c80 at0010 = ╱36╱6╱ // 0xc7a @0x10
0x0c6a…0c80 at0011 = ╱f20600╱ // 0xc7b @0x11
0x0c6a…0c80 at0014 = ╱b5╱ THEN ╱ // 0xc7e @0x14
0x0c6a…0c80 at0015 = EOL // 0xc7f @0x15
0x0c6a…0c80 }
0x0c80…0cc3 a2b1 01150 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…RETURN…***"
0x0c80…0cc3 LineComal80 {
0x0c80…0cc3 ptr = 0xa2b1 // 0xc80 @0x0
0x0c80…0cc3 lno = 0x047e // 0xc82 @0x2
0x0c80…0cc3 at0004 = ╱92╱ PRINT ╱ // 0xc84 @0x4
0x0c80…0cc3 at0005 = ╱22╱"╱ // 0xc85 @0x5
0x0c80…0cc3 at0006 = ╱3c╱<╱ // 0xc86 @0x6
0x0c80…0cc3 at0007 = ╱53╱S╱ // 0xc87 @0x7
0x0c80…0cc3 at0008 = ╱43╱C╱ // 0xc88 @0x8
0x0c80…0cc3 at0009 = ╱31╱1╱ // 0xc89 @0x9
0x0c80…0cc3 at000a = ╱36╱6╱ // 0xc8a @0xa
0x0c80…0cc3 at000b = ╱30╱0╱ // 0xc8b @0xb
0x0c80…0cc3 at000c = ╱32╱2╱ // 0xc8c @0xc
0x0c80…0cc3 at000d = ╱3e╱>╱ // 0xc8d @0xd
0x0c80…0cc3 at000e = ╱2a╱*╱ // 0xc8e @0xe
0x0c80…0cc3 at000f = ╱2a╱*╱ // 0xc8f @0xf
0x0c80…0cc3 at0010 = ╱2a╱*╱ // 0xc90 @0x10
0x0c80…0cc3 at0011 = ╱20╱…╱ // 0xc91 @0x11
0x0c80…0cc3 at0012 = ╱46╱F╱ // 0xc92 @0x12
0x0c80…0cc3 at0013 = ╱65╱e╱ // 0xc93 @0x13
0x0c80…0cc3 at0014 = ╱6a╱j╱ // 0xc94 @0x14
0x0c80…0cc3 at0015 = ╱6c╱l╱ // 0xc95 @0x15
0x0c80…0cc3 at0016 = ╱20╱…╱ // 0xc96 @0x16
0x0c80…0cc3 at0017 = ╱6e╱n╱ // 0xc97 @0x17
0x0c80…0cc3 at0018 = ╱72╱r╱ // 0xc98 @0x18
0x0c80…0cc3 at0019 = ╱2e╱.╱ // 0xc99 @0x19
0x0c80…0cc3 at001a = ╱20╱…╱ // 0xc9a @0x1a
0x0c80…0cc3 at001b = ╱36╱6╱ // 0xc9b @0x1b
0x0c80…0cc3 at001c = ╱20╱…╱ // 0xc9c @0x1c
0x0c80…0cc3 at001d = ╱2d╱-╱ // 0xc9d @0x1d
0x0c80…0cc3 at001e = ╱20╱…╱ // 0xc9e @0x1e
0x0c80…0cc3 at001f = ╱69╱i╱ // 0xc9f @0x1f
0x0c80…0cc3 at0020 = ╱6e╱n╱ // 0xca0 @0x20
0x0c80…0cc3 at0021 = ╱64╱d╱ // 0xca1 @0x21
0x0c80…0cc3 at0022 = ╱73╱s╱ // 0xca2 @0x22
0x0c80…0cc3 at0023 = ╱7b╱{╱ // 0xca3 @0x23
0x0c80…0cc3 at0024 = ╱74╱t╱ // 0xca4 @0x24
0x0c80…0cc3 at0025 = ╱20╱…╱ // 0xca5 @0x25
0x0c80…0cc3 at0026 = ╱64╱d╱ // 0xca6 @0x26
0x0c80…0cc3 at0027 = ╱69╱i╱ // 0xca7 @0x27
0x0c80…0cc3 at0028 = ╱73╱s╱ // 0xca8 @0x28
0x0c80…0cc3 at0029 = ╱6b╱k╱ // 0xca9 @0x29
0x0c80…0cc3 at002a = ╱65╱e╱ // 0xcaa @0x2a
0x0c80…0cc3 at002b = ╱74╱t╱ // 0xcab @0x2b
0x0c80…0cc3 at002c = ╱74╱t╱ // 0xcac @0x2c
0x0c80…0cc3 at002d = ╱65╱e╱ // 0xcad @0x2d
0x0c80…0cc3 at002e = ╱20╱…╱ // 0xcae @0x2e
0x0c80…0cc3 at002f = ╱6f╱o╱ // 0xcaf @0x2f
0x0c80…0cc3 at0030 = ╱67╱g╱ // 0xcb0 @0x30
0x0c80…0cc3 at0031 = ╱20╱…╱ // 0xcb1 @0x31
0x0c80…0cc3 at0032 = ╱74╱t╱ // 0xcb2 @0x32
0x0c80…0cc3 at0033 = ╱72╱r╱ // 0xcb3 @0x33
0x0c80…0cc3 at0034 = ╱79╱y╱ // 0xcb4 @0x34
0x0c80…0cc3 at0035 = ╱6b╱k╱ // 0xcb5 @0x35
0x0c80…0cc3 at0036 = ╱20╱…╱ // 0xcb6 @0x36
0x0c80…0cc3 at0037 = ╱52╱R╱ // 0xcb7 @0x37
0x0c80…0cc3 at0038 = ╱45╱E╱ // 0xcb8 @0x38
0x0c80…0cc3 at0039 = ╱54╱T╱ // 0xcb9 @0x39
0x0c80…0cc3 at003a = ╱55╱U╱ // 0xcba @0x3a
0x0c80…0cc3 at003b = ╱52╱R╱ // 0xcbb @0x3b
0x0c80…0cc3 at003c = ╱4e╱N╱ // 0xcbc @0x3c
0x0c80…0cc3 at003d = ╱20╱…╱ // 0xcbd @0x3d
0x0c80…0cc3 at003e = ╱2a╱*╱ // 0xcbe @0x3e
0x0c80…0cc3 at003f = ╱2a╱*╱ // 0xcbf @0x3f
0x0c80…0cc3 at0040 = ╱2a╱*╱ // 0xcc0 @0x40
0x0c80…0cc3 at0041 = ╱22╱"╱ // 0xcc1 @0x41
0x0c80…0cc3 at0042 = EOL // 0xcc2 @0x42
0x0c80…0cc3 }
0x0cc3…0cd1 a2bf 01160 INPUT "" : SVAR $
0x0cc3…0cd1 LineComal80 {
0x0cc3…0cd1 ptr = 0xa2bf // 0xcc3 @0x0
0x0cc3…0cd1 lno = 0x0488 // 0xcc5 @0x2
0x0cc3…0cd1 at0004 = ╱91╱ INPUT ╱ // 0xcc7 @0x4
0x0cc3…0cd1 at0005 = ╱22╱"╱ // 0xcc8 @0x5
0x0cc3…0cd1 at0006 = ╱22╱"╱ // 0xcc9 @0x6
0x0cc3…0cd1 at0007 = ╱f1╱ : ╱ // 0xcca @0x7
0x0cc3…0cd1 at0008 = ╱53╱S╱ // 0xccb @0x8
0x0cc3…0cd1 at0009 = ╱56╱V╱ // 0xccc @0x9
0x0cc3…0cd1 at000a = ╱41╱A╱ // 0xccd @0xa
0x0cc3…0cd1 at000b = ╱52╱R╱ // 0xcce @0xb
0x0cc3…0cd1 at000c = ╱ef╱ $ ╱ // 0xccf @0xc
0x0cc3…0cd1 at000d = EOL // 0xcd0 @0xd
0x0cc3…0cd1 }
0x0cd1…0cd8 a2c6 01170 ELSE
0x0cd1…0cd8 LineComal80 {
0x0cd1…0cd8 ptr = 0xa2c6 // 0xcd1 @0x0
0x0cd1…0cd8 lno = 0x0492 // 0xcd3 @0x2
0x0cd1…0cd8 at0004 = ╱9a0a╱ ELSE ╱ // 0xcd5 @0x4
0x0cd1…0cd8 at0006 = EOL // 0xcd7 @0x6
0x0cd1…0cd8 }
0x0cd8…0d19 a307 01180 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
0x0cd8…0d19 LineComal80 {
0x0cd8…0d19 ptr = 0xa307 // 0xcd8 @0x0
0x0cd8…0d19 lno = 0x049c // 0xcda @0x2
0x0cd8…0d19 at0004 = ╱92╱ PRINT ╱ // 0xcdc @0x4
0x0cd8…0d19 at0005 = ╱22╱"╱ // 0xcdd @0x5
0x0cd8…0d19 at0006 = ╱3c╱<╱ // 0xcde @0x6
0x0cd8…0d19 at0007 = ╱53╱S╱ // 0xcdf @0x7
0x0cd8…0d19 at0008 = ╱43╱C╱ // 0xce0 @0x8
0x0cd8…0d19 at0009 = ╱31╱1╱ // 0xce1 @0x9
0x0cd8…0d19 at000a = ╱38╱8╱ // 0xce2 @0xa
0x0cd8…0d19 at000b = ╱30╱0╱ // 0xce3 @0xb
0x0cd8…0d19 at000c = ╱32╱2╱ // 0xce4 @0xc
0x0cd8…0d19 at000d = ╱3e╱>╱ // 0xce5 @0xd
0x0cd8…0d19 at000e = ╱2a╱*╱ // 0xce6 @0xe
0x0cd8…0d19 at000f = ╱2a╱*╱ // 0xce7 @0xf
0x0cd8…0d19 at0010 = ╱2a╱*╱ // 0xce8 @0x10
0x0cd8…0d19 at0011 = ╱20╱…╱ // 0xce9 @0x11
0x0cd8…0d19 at0012 = ╱46╱F╱ // 0xcea @0x12
0x0cd8…0d19 at0013 = ╱65╱e╱ // 0xceb @0x13
0x0cd8…0d19 at0014 = ╱6a╱j╱ // 0xcec @0x14
0x0cd8…0d19 at0015 = ╱6c╱l╱ // 0xced @0x15
0x0cd8…0d19 at0016 = ╱20╱…╱ // 0xcee @0x16
0x0cd8…0d19 at0017 = ╱6e╱n╱ // 0xcef @0x17
0x0cd8…0d19 at0018 = ╱72╱r╱ // 0xcf0 @0x18
0x0cd8…0d19 at0019 = ╱2e╱.╱ // 0xcf1 @0x19
0x0cd8…0d19 at001a = ╱20╱…╱ // 0xcf2 @0x1a
0x0cd8…0d19 at001b = ╱22╱"╱ // 0xcf3 @0x1b
0x0cd8…0d19 at001c = ╱ea╱ ; ╱ // 0xcf4 @0x1c
0x0cd8…0d19 at001d = ╱d0╱ CHR$ ╱ // 0xcf5 @0x1d
0x0cd8…0d19 at001e = ╱ed╱ ( ╱ // 0xcf6 @0x1e
0x0cd8…0d19 at001f = ╱cd╱ // 0xcf7 @0x1f
0x0cd8…0d19 at0020 = ╱ed╱ ( ╱ // 0xcf8 @0x20
0x0cd8…0d19 at0021 = ╱46╱F╱ // 0xcf9 @0x21
0x0cd8…0d19 at0022 = ╱4e╱N╱ // 0xcfa @0x22
0x0cd8…0d19 at0023 = ╱41╱A╱ // 0xcfb @0x23
0x0cd8…0d19 at0024 = ╱56╱V╱ // 0xcfc @0x24
0x0cd8…0d19 at0025 = ╱4e╱N╱ // 0xcfd @0x25
0x0cd8…0d19 at0026 = ╱ef╱ $ ╱ // 0xcfe @0x26
0x0cd8…0d19 at0027 = ╱ee╱ ) ╱ // 0xcff @0x27
0x0cd8…0d19 at0028 = ╱ec╱ , ╱ // 0xd00 @0x28
0x0cd8…0d19 at0029 = ╱32╱2╱ // 0xd01 @0x29
0x0cd8…0d19 at002a = ╱f20200╱ // 0xd02 @0x2a
0x0cd8…0d19 at002d = ╱ee╱ ) ╱ // 0xd05 @0x2d
0x0cd8…0d19 at002e = ╱ea╱ ; ╱ // 0xd06 @0x2e
0x0cd8…0d19 at002f = ╱22╱"╱ // 0xd07 @0x2f
0x0cd8…0d19 at0030 = ╱20╱…╱ // 0xd08 @0x30
0x0cd8…0d19 at0031 = ╱76╱v╱ // 0xd09 @0x31
0x0cd8…0d19 at0032 = ╱65╱e╱ // 0xd0a @0x32
0x0cd8…0d19 at0033 = ╱64╱d╱ // 0xd0b @0x33
0x0cd8…0d19 at0034 = ╱20╱…╱ // 0xd0c @0x34
0x0cd8…0d19 at0035 = ╱7d╱}╱ // 0xd0d @0x35
0x0cd8…0d19 at0036 = ╱62╱b╱ // 0xd0e @0x36
0x0cd8…0d19 at0037 = ╱6e╱n╱ // 0xd0f @0x37
0x0cd8…0d19 at0038 = ╱69╱i╱ // 0xd10 @0x38
0x0cd8…0d19 at0039 = ╱6e╱n╱ // 0xd11 @0x39
0x0cd8…0d19 at003a = ╱67╱g╱ // 0xd12 @0x3a
0x0cd8…0d19 at003b = ╱20╱…╱ // 0xd13 @0x3b
0x0cd8…0d19 at003c = ╱61╱a╱ // 0xd14 @0x3c
0x0cd8…0d19 at003d = ╱66╱f╱ // 0xd15 @0x3d
0x0cd8…0d19 at003e = ╱20╱…╱ // 0xd16 @0x3e
0x0cd8…0d19 at003f = ╱22╱"╱ // 0xd17 @0x3f
0x0cd8…0d19 at0040 = EOL // 0xd18 @0x40
0x0cd8…0d19 }
0x0d19…0d32 a320 01190 PRINT "<S>" ; FNAVN $ ; "…***"
0x0d19…0d32 LineComal80 {
0x0d19…0d32 ptr = 0xa320 // 0xd19 @0x0
0x0d19…0d32 lno = 0x04a6 // 0xd1b @0x2
0x0d19…0d32 at0004 = ╱92╱ PRINT ╱ // 0xd1d @0x4
0x0d19…0d32 at0005 = ╱22╱"╱ // 0xd1e @0x5
0x0d19…0d32 at0006 = ╱3c╱<╱ // 0xd1f @0x6
0x0d19…0d32 at0007 = ╱53╱S╱ // 0xd20 @0x7
0x0d19…0d32 at0008 = ╱3e╱>╱ // 0xd21 @0x8
0x0d19…0d32 at0009 = ╱22╱"╱ // 0xd22 @0x9
0x0d19…0d32 at000a = ╱ea╱ ; ╱ // 0xd23 @0xa
0x0d19…0d32 at000b = ╱46╱F╱ // 0xd24 @0xb
0x0d19…0d32 at000c = ╱4e╱N╱ // 0xd25 @0xc
0x0d19…0d32 at000d = ╱41╱A╱ // 0xd26 @0xd
0x0d19…0d32 at000e = ╱56╱V╱ // 0xd27 @0xe
0x0d19…0d32 at000f = ╱4e╱N╱ // 0xd28 @0xf
0x0d19…0d32 at0010 = ╱ef╱ $ ╱ // 0xd29 @0x10
0x0d19…0d32 at0011 = ╱ea╱ ; ╱ // 0xd2a @0x11
0x0d19…0d32 at0012 = ╱22╱"╱ // 0xd2b @0x12
0x0d19…0d32 at0013 = ╱20╱…╱ // 0xd2c @0x13
0x0d19…0d32 at0014 = ╱2a╱*╱ // 0xd2d @0x14
0x0d19…0d32 at0015 = ╱2a╱*╱ // 0xd2e @0x15
0x0d19…0d32 at0016 = ╱2a╱*╱ // 0xd2f @0x16
0x0d19…0d32 at0017 = ╱22╱"╱ // 0xd30 @0x17
0x0d19…0d32 at0018 = EOL // 0xd31 @0x18
0x0d19…0d32 }
0x0d32…0d40 a32e 01200 INPUT "" : SVAR $
0x0d32…0d40 LineComal80 {
0x0d32…0d40 ptr = 0xa32e // 0xd32 @0x0
0x0d32…0d40 lno = 0x04b0 // 0xd34 @0x2
0x0d32…0d40 at0004 = ╱91╱ INPUT ╱ // 0xd36 @0x4
0x0d32…0d40 at0005 = ╱22╱"╱ // 0xd37 @0x5
0x0d32…0d40 at0006 = ╱22╱"╱ // 0xd38 @0x6
0x0d32…0d40 at0007 = ╱f1╱ : ╱ // 0xd39 @0x7
0x0d32…0d40 at0008 = ╱53╱S╱ // 0xd3a @0x8
0x0d32…0d40 at0009 = ╱56╱V╱ // 0xd3b @0x9
0x0d32…0d40 at000a = ╱41╱A╱ // 0xd3c @0xa
0x0d32…0d40 at000b = ╱52╱R╱ // 0xd3d @0xb
0x0d32…0d40 at000c = ╱ef╱ $ ╱ // 0xd3e @0xc
0x0d32…0d40 at000d = EOL // 0xd3f @0xd
0x0d32…0d40 }
0x0d40…0d54 a342 01210 PRINT "<C0102>" ; SPC $
0x0d40…0d54 LineComal80 {
0x0d40…0d54 ptr = 0xa342 // 0xd40 @0x0
0x0d40…0d54 lno = 0x04ba // 0xd42 @0x2
0x0d40…0d54 at0004 = ╱92╱ PRINT ╱ // 0xd44 @0x4
0x0d40…0d54 at0005 = ╱22╱"╱ // 0xd45 @0x5
0x0d40…0d54 at0006 = ╱3c╱<╱ // 0xd46 @0x6
0x0d40…0d54 at0007 = ╱43╱C╱ // 0xd47 @0x7
0x0d40…0d54 at0008 = ╱30╱0╱ // 0xd48 @0x8
0x0d40…0d54 at0009 = ╱31╱1╱ // 0xd49 @0x9
0x0d40…0d54 at000a = ╱30╱0╱ // 0xd4a @0xa
0x0d40…0d54 at000b = ╱32╱2╱ // 0xd4b @0xb
0x0d40…0d54 at000c = ╱3e╱>╱ // 0xd4c @0xc
0x0d40…0d54 at000d = ╱22╱"╱ // 0xd4d @0xd
0x0d40…0d54 at000e = ╱ea╱ ; ╱ // 0xd4e @0xe
0x0d40…0d54 at000f = ╱53╱S╱ // 0xd4f @0xf
0x0d40…0d54 at0010 = ╱50╱P╱ // 0xd50 @0x10
0x0d40…0d54 at0011 = ╱43╱C╱ // 0xd51 @0x11
0x0d40…0d54 at0012 = ╱ef╱ $ ╱ // 0xd52 @0x12
0x0d40…0d54 at0013 = EOL // 0xd53 @0x13
0x0d40…0d54 }
0x0d54…0d5a a348 01220 ENDIF
0x0d54…0d5a LineComal80 {
0x0d54…0d5a ptr = 0xa348 // 0xd54 @0x0
0x0d54…0d5a lno = 0x04c4 // 0xd56 @0x2
0x0d54…0d5a at0004 = ╱9c╱ ENDIF ╱ // 0xd58 @0x4
0x0d54…0d5a at0005 = EOL // 0xd59 @0x5
0x0d54…0d5a }
0x0d5a…0d60 a34e 01230 ENDIF
0x0d5a…0d60 LineComal80 {
0x0d5a…0d60 ptr = 0xa34e // 0xd5a @0x0
0x0d5a…0d60 lno = 0x04ce // 0xd5c @0x2
0x0d5a…0d60 at0004 = ╱9c╱ ENDIF ╱ // 0xd5e @0x4
0x0d5a…0d60 at0005 = EOL // 0xd5f @0x5
0x0d5a…0d60 }
0x0d60…0d70 a35e 01240 UNTIL NOT ╱cd╱ ( FNAVN $ )
0x0d60…0d70 LineComal80 {
0x0d60…0d70 ptr = 0xa35e // 0xd60 @0x0
0x0d60…0d70 lno = 0x04d8 // 0xd62 @0x2
0x0d60…0d70 at0004 = ╱98╱ UNTIL ╱ // 0xd64 @0x4
0x0d60…0d70 at0005 = ╱d7╱ NOT ╱ // 0xd65 @0x5
0x0d60…0d70 at0006 = ╱cd╱ // 0xd66 @0x6
0x0d60…0d70 at0007 = ╱ed╱ ( ╱ // 0xd67 @0x7
0x0d60…0d70 at0008 = ╱46╱F╱ // 0xd68 @0x8
0x0d60…0d70 at0009 = ╱4e╱N╱ // 0xd69 @0x9
0x0d60…0d70 at000a = ╱41╱A╱ // 0xd6a @0xa
0x0d60…0d70 at000b = ╱56╱V╱ // 0xd6b @0xb
0x0d60…0d70 at000c = ╱4e╱N╱ // 0xd6c @0xc
0x0d60…0d70 at000d = ╱ef╱ $ ╱ // 0xd6d @0xd
0x0d60…0d70 at000e = ╱ee╱ ) ╱ // 0xd6e @0xe
0x0d60…0d70 at000f = EOL // 0xd6f @0xf
0x0d60…0d70 }
0x0d70…0d7d a36b 01250 ENDPROC OPENFIL
0x0d70…0d7d LineComal80 {
0x0d70…0d7d ptr = 0xa36b // 0xd70 @0x0
0x0d70…0d7d lno = 0x04e2 // 0xd72 @0x2
0x0d70…0d7d at0004 = ╱9f╱ ENDPROC ╱ // 0xd74 @0x4
0x0d70…0d7d at0005 = ╱4f╱O╱ // 0xd75 @0x5
0x0d70…0d7d at0006 = ╱50╱P╱ // 0xd76 @0x6
0x0d70…0d7d at0007 = ╱45╱E╱ // 0xd77 @0x7
0x0d70…0d7d at0008 = ╱4e╱N╱ // 0xd78 @0x8
0x0d70…0d7d at0009 = ╱46╱F╱ // 0xd79 @0x9
0x0d70…0d7d at000a = ╱49╱I╱ // 0xd7a @0xa
0x0d70…0d7d at000b = ╱4c╱L╱ // 0xd7b @0xb
0x0d70…0d7d at000c = EOL // 0xd7c @0xc
0x0d70…0d7d }
0x0d7d…0d82 a370 01260
0x0d7d…0d82 LineComal80 {
0x0d7d…0d82 ptr = 0xa370 // 0xd7d @0x0
0x0d7d…0d82 lno = 0x04ec // 0xd7f @0x2
0x0d7d…0d82 at0004 = EOL // 0xd81 @0x4
0x0d7d…0d82 }
0x0d82…0d9b a389 01270 PROC TAL_CONTROL ( REF RST $ )
0x0d82…0d9b LineComal80 {
0x0d82…0d9b ptr = 0xa389 // 0xd82 @0x0
0x0d82…0d9b lno = 0x04f6 // 0xd84 @0x2
0x0d82…0d9b at0004 = ╱9e0b╱ PROC ╱ // 0xd86 @0x4
0x0d82…0d9b at0006 = ╱54╱T╱ // 0xd88 @0x6
0x0d82…0d9b at0007 = ╱41╱A╱ // 0xd89 @0x7
0x0d82…0d9b at0008 = ╱4c╱L╱ // 0xd8a @0x8
0x0d82…0d9b at0009 = ╱5f╱_╱ // 0xd8b @0x9
0x0d82…0d9b at000a = ╱43╱C╱ // 0xd8c @0xa
0x0d82…0d9b at000b = ╱4f╱O╱ // 0xd8d @0xb
0x0d82…0d9b at000c = ╱4e╱N╱ // 0xd8e @0xc
0x0d82…0d9b at000d = ╱54╱T╱ // 0xd8f @0xd
0x0d82…0d9b at000e = ╱52╱R╱ // 0xd90 @0xe
0x0d82…0d9b at000f = ╱4f╱O╱ // 0xd91 @0xf
0x0d82…0d9b at0010 = ╱4c╱L╱ // 0xd92 @0x10
0x0d82…0d9b at0011 = ╱ed╱ ( ╱ // 0xd93 @0x11
0x0d82…0d9b at0012 = ╱b6╱ REF ╱ // 0xd94 @0x12
0x0d82…0d9b at0013 = ╱52╱R╱ // 0xd95 @0x13
0x0d82…0d9b at0014 = ╱53╱S╱ // 0xd96 @0x14
0x0d82…0d9b at0015 = ╱54╱T╱ // 0xd97 @0x15
0x0d82…0d9b at0016 = ╱ef╱ $ ╱ // 0xd98 @0x16
0x0d82…0d9b at0017 = ╱ee╱ ) ╱ // 0xd99 @0x17
0x0d82…0d9b at0018 = EOL // 0xd9a @0x18
0x0d82…0d9b }
0x0d9b…0daf a39d 01280 LET J := 0 ; OK := TRUE
0x0d9b…0daf LineComal80 {
0x0d9b…0daf ptr = 0xa39d // 0xd9b @0x0
0x0d9b…0daf lno = 0x0500 // 0xd9d @0x2
0x0d9b…0daf at0004 = ╱86╱ LET ╱ // 0xd9f @0x4
0x0d9b…0daf at0005 = ╱4a╱J╱ // 0xda0 @0x5
0x0d9b…0daf at0006 = ╱f0╱ := ╱ // 0xda1 @0x6
0x0d9b…0daf at0007 = ╱30╱0╱ // 0xda2 @0x7
0x0d9b…0daf at0008 = ╱f20000╱ // 0xda3 @0x8
0x0d9b…0daf at000b = ╱ea╱ ; ╱ // 0xda6 @0xb
0x0d9b…0daf at000c = ╱4f╱O╱ // 0xda7 @0xc
0x0d9b…0daf at000d = ╱4b╱K╱ // 0xda8 @0xd
0x0d9b…0daf at000e = ╱f0╱ := ╱ // 0xda9 @0xe
0x0d9b…0daf at000f = ╱54╱T╱ // 0xdaa @0xf
0x0d9b…0daf at0010 = ╱52╱R╱ // 0xdab @0x10
0x0d9b…0daf at0011 = ╱55╱U╱ // 0xdac @0x11
0x0d9b…0daf at0012 = ╱45╱E╱ // 0xdad @0x12
0x0d9b…0daf at0013 = EOL // 0xdae @0x13
0x0d9b…0daf }
0x0daf…0dc5 a3b3 01290 FOR I := 1 TO ( RST $ ) DO
0x0daf…0dc5 LineComal80 {
0x0daf…0dc5 ptr = 0xa3b3 // 0xdaf @0x0
0x0daf…0dc5 lno = 0x050a // 0xdb1 @0x2
0x0daf…0dc5 at0004 = ╱830c╱ FOR ╱ // 0xdb3 @0x4
0x0daf…0dc5 at0006 = ╱49╱I╱ // 0xdb5 @0x6
0x0daf…0dc5 at0007 = ╱f0╱ := ╱ // 0xdb6 @0x7
0x0daf…0dc5 at0008 = ╱31╱1╱ // 0xdb7 @0x8
0x0daf…0dc5 at0009 = ╱f20100╱ // 0xdb8 @0x9
0x0daf…0dc5 at000c = ╱b7cb╱ TO ╱ // 0xdbb @0xc
0x0daf…0dc5 at000e = ╱ed╱ ( ╱ // 0xdbd @0xe
0x0daf…0dc5 at000f = ╱52╱R╱ // 0xdbe @0xf
0x0daf…0dc5 at0010 = ╱53╱S╱ // 0xdbf @0x10
0x0daf…0dc5 at0011 = ╱54╱T╱ // 0xdc0 @0x11
0x0daf…0dc5 at0012 = ╱ef╱ $ ╱ // 0xdc1 @0x12
0x0daf…0dc5 at0013 = ╱ee╱ ) ╱ // 0xdc2 @0x13
0x0daf…0dc5 at0014 = ╱bb╱ DO ╱ // 0xdc3 @0x14
0x0daf…0dc5 at0015 = EOL // 0xdc4 @0x15
0x0daf…0dc5 }
0x0dc5…0df6 a3e4 01300 IF RST $ ( I ) IN TAL $ + "." THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
0x0dc5…0df6 LineComal80 {
0x0dc5…0df6 ptr = 0xa3e4 // 0xdc5 @0x0
0x0dc5…0df6 lno = 0x0514 // 0xdc7 @0x2
0x0dc5…0df6 at0004 = ╱8200╱ IF ╱ // 0xdc9 @0x4
0x0dc5…0df6 at0006 = ╱52╱R╱ // 0xdcb @0x6
0x0dc5…0df6 at0007 = ╱53╱S╱ // 0xdcc @0x7
0x0dc5…0df6 at0008 = ╱54╱T╱ // 0xdcd @0x8
0x0dc5…0df6 at0009 = ╱ef╱ $ ╱ // 0xdce @0x9
0x0dc5…0df6 at000a = ╱ed╱ ( ╱ // 0xdcf @0xa
0x0dc5…0df6 at000b = ╱49╱I╱ // 0xdd0 @0xb
0x0dc5…0df6 at000c = ╱ee╱ ) ╱ // 0xdd1 @0xc
0x0dc5…0df6 at000d = ╱dc╱ IN ╱ // 0xdd2 @0xd
0x0dc5…0df6 at000e = ╱54╱T╱ // 0xdd3 @0xe
0x0dc5…0df6 at000f = ╱41╱A╱ // 0xdd4 @0xf
0x0dc5…0df6 at0010 = ╱4c╱L╱ // 0xdd5 @0x10
0x0dc5…0df6 at0011 = ╱ef╱ $ ╱ // 0xdd6 @0x11
0x0dc5…0df6 at0012 = ╱eb╱ + ╱ // 0xdd7 @0x12
0x0dc5…0df6 at0013 = ╱22╱"╱ // 0xdd8 @0x13
0x0dc5…0df6 at0014 = ╱2e╱.╱ // 0xdd9 @0x14
0x0dc5…0df6 at0015 = ╱22╱"╱ // 0xdda @0x15
0x0dc5…0df6 at0016 = ╱b5╱ THEN ╱ // 0xddb @0x16
0x0dc5…0df6 at0017 = ╱86╱ LET ╱ // 0xddc @0x17
0x0dc5…0df6 at0018 = ╱4a╱J╱ // 0xddd @0x18
0x0dc5…0df6 at0019 = ╱f0╱ := ╱ // 0xdde @0x19
0x0dc5…0df6 at001a = ╱4a╱J╱ // 0xddf @0x1a
0x0dc5…0df6 at001b = ╱e5╱ + ╱ // 0xde0 @0x1b
0x0dc5…0df6 at001c = ╱31╱1╱ // 0xde1 @0x1c
0x0dc5…0df6 at001d = ╱f20100╱ // 0xde2 @0x1d
0x0dc5…0df6 at0020 = ╱ea╱ ; ╱ // 0xde5 @0x20
0x0dc5…0df6 at0021 = ╱52╱R╱ // 0xde6 @0x21
0x0dc5…0df6 at0022 = ╱53╱S╱ // 0xde7 @0x22
0x0dc5…0df6 at0023 = ╱54╱T╱ // 0xde8 @0x23
0x0dc5…0df6 at0024 = ╱ef╱ $ ╱ // 0xde9 @0x24
0x0dc5…0df6 at0025 = ╱ed╱ ( ╱ // 0xdea @0x25
0x0dc5…0df6 at0026 = ╱4a╱J╱ // 0xdeb @0x26
0x0dc5…0df6 at0027 = ╱ee╱ ) ╱ // 0xdec @0x27
0x0dc5…0df6 at0028 = ╱f0╱ := ╱ // 0xded @0x28
0x0dc5…0df6 at0029 = ╱52╱R╱ // 0xdee @0x29
0x0dc5…0df6 at002a = ╱53╱S╱ // 0xdef @0x2a
0x0dc5…0df6 at002b = ╱54╱T╱ // 0xdf0 @0x2b
0x0dc5…0df6 at002c = ╱ef╱ $ ╱ // 0xdf1 @0x2c
0x0dc5…0df6 at002d = ╱ed╱ ( ╱ // 0xdf2 @0x2d
0x0dc5…0df6 at002e = ╱49╱I╱ // 0xdf3 @0x2e
0x0dc5…0df6 at002f = ╱ee╱ ) ╱ // 0xdf4 @0x2f
0x0dc5…0df6 at0030 = EOL // 0xdf5 @0x30
0x0dc5…0df6 }
0x0df6…0dfd a3eb 01310 NEXT I
0x0df6…0dfd LineComal80 {
0x0df6…0dfd ptr = 0xa3eb // 0xdf6 @0x0
0x0df6…0dfd lno = 0x051e // 0xdf8 @0x2
0x0df6…0dfd at0004 = ╱84╱ NEXT ╱ // 0xdfa @0x4
0x0df6…0dfd at0005 = ╱49╱I╱ // 0xdfb @0x5
0x0df6…0dfd at0006 = EOL // 0xdfc @0x6
0x0df6…0dfd }
0x0dfd…0e0b a3f9 01320 IF = 0 THEN
0x0dfd…0e0b LineComal80 {
0x0dfd…0e0b ptr = 0xa3f9 // 0xdfd @0x0
0x0dfd…0e0b lno = 0x0528 // 0xdff @0x2
0x0dfd…0e0b at0004 = ╱9b0d4a╱ IF ╱ // 0xe01 @0x4
0x0dfd…0e0b at0007 = ╱df╱ = ╱ // 0xe04 @0x7
0x0dfd…0e0b at0008 = ╱30╱0╱ // 0xe05 @0x8
0x0dfd…0e0b at0009 = ╱f20000╱ // 0xe06 @0x9
0x0dfd…0e0b at000c = ╱b5╱ THEN ╱ // 0xe09 @0xc
0x0dfd…0e0b at000d = EOL // 0xe0a @0xd
0x0dfd…0e0b }
0x0e0b…0e19 a407 01330 LET OK := FALSE
0x0e0b…0e19 LineComal80 {
0x0e0b…0e19 ptr = 0xa407 // 0xe0b @0x0
0x0e0b…0e19 lno = 0x0532 // 0xe0d @0x2
0x0e0b…0e19 at0004 = ╱86╱ LET ╱ // 0xe0f @0x4
0x0e0b…0e19 at0005 = ╱4f╱O╱ // 0xe10 @0x5
0x0e0b…0e19 at0006 = ╱4b╱K╱ // 0xe11 @0x6
0x0e0b…0e19 at0007 = ╱f0╱ := ╱ // 0xe12 @0x7
0x0e0b…0e19 at0008 = ╱46╱F╱ // 0xe13 @0x8
0x0e0b…0e19 at0009 = ╱41╱A╱ // 0xe14 @0x9
0x0e0b…0e19 at000a = ╱4c╱L╱ // 0xe15 @0xa
0x0e0b…0e19 at000b = ╱53╱S╱ // 0xe16 @0xb
0x0e0b…0e19 at000c = ╱45╱E╱ // 0xe17 @0xc
0x0e0b…0e19 at000d = EOL // 0xe18 @0xd
0x0e0b…0e19 }
0x0e19…0e20 a40e 01340 ELSE
0x0e19…0e20 LineComal80 {
0x0e19…0e20 ptr = 0xa40e // 0xe19 @0x0
0x0e19…0e20 lno = 0x053c // 0xe1b @0x2
0x0e19…0e20 at0004 = ╱9a0e╱ ELSE ╱ // 0xe1d @0x4
0x0e19…0e20 at0006 = EOL // 0xe1f @0x6
0x0e19…0e20 }
0x0e20…0e37 a425 01350 LET RST $ := RST $ ( 1 : J )
0x0e20…0e37 LineComal80 {
0x0e20…0e37 ptr = 0xa425 // 0xe20 @0x0
0x0e20…0e37 lno = 0x0546 // 0xe22 @0x2
0x0e20…0e37 at0004 = ╱86╱ LET ╱ // 0xe24 @0x4
0x0e20…0e37 at0005 = ╱52╱R╱ // 0xe25 @0x5
0x0e20…0e37 at0006 = ╱53╱S╱ // 0xe26 @0x6
0x0e20…0e37 at0007 = ╱54╱T╱ // 0xe27 @0x7
0x0e20…0e37 at0008 = ╱ef╱ $ ╱ // 0xe28 @0x8
0x0e20…0e37 at0009 = ╱f0╱ := ╱ // 0xe29 @0x9
0x0e20…0e37 at000a = ╱52╱R╱ // 0xe2a @0xa
0x0e20…0e37 at000b = ╱53╱S╱ // 0xe2b @0xb
0x0e20…0e37 at000c = ╱54╱T╱ // 0xe2c @0xc
0x0e20…0e37 at000d = ╱ef╱ $ ╱ // 0xe2d @0xd
0x0e20…0e37 at000e = ╱ed╱ ( ╱ // 0xe2e @0xe
0x0e20…0e37 at000f = ╱31╱1╱ // 0xe2f @0xf
0x0e20…0e37 at0010 = ╱f20100╱ // 0xe30 @0x10
0x0e20…0e37 at0013 = ╱f1╱ : ╱ // 0xe33 @0x13
0x0e20…0e37 at0014 = ╱4a╱J╱ // 0xe34 @0x14
0x0e20…0e37 at0015 = ╱ee╱ ) ╱ // 0xe35 @0x15
0x0e20…0e37 at0016 = EOL // 0xe36 @0x16
0x0e20…0e37 }
0x0e37…0e3d a42b 01360 ENDIF
0x0e37…0e3d LineComal80 {
0x0e37…0e3d ptr = 0xa42b // 0xe37 @0x0
0x0e37…0e3d lno = 0x0550 // 0xe39 @0x2
0x0e37…0e3d at0004 = ╱9c╱ ENDIF ╱ // 0xe3b @0x4
0x0e37…0e3d at0005 = EOL // 0xe3c @0x5
0x0e37…0e3d }
0x0e3d…0e4e a43c 01370 ENDPROC TAL_CONTROL
0x0e3d…0e4e LineComal80 {
0x0e3d…0e4e ptr = 0xa43c // 0xe3d @0x0
0x0e3d…0e4e lno = 0x055a // 0xe3f @0x2
0x0e3d…0e4e at0004 = ╱9f╱ ENDPROC ╱ // 0xe41 @0x4
0x0e3d…0e4e at0005 = ╱54╱T╱ // 0xe42 @0x5
0x0e3d…0e4e at0006 = ╱41╱A╱ // 0xe43 @0x6
0x0e3d…0e4e at0007 = ╱4c╱L╱ // 0xe44 @0x7
0x0e3d…0e4e at0008 = ╱5f╱_╱ // 0xe45 @0x8
0x0e3d…0e4e at0009 = ╱43╱C╱ // 0xe46 @0x9
0x0e3d…0e4e at000a = ╱4f╱O╱ // 0xe47 @0xa
0x0e3d…0e4e at000b = ╱4e╱N╱ // 0xe48 @0xb
0x0e3d…0e4e at000c = ╱54╱T╱ // 0xe49 @0xc
0x0e3d…0e4e at000d = ╱52╱R╱ // 0xe4a @0xd
0x0e3d…0e4e at000e = ╱4f╱O╱ // 0xe4b @0xe
0x0e3d…0e4e at000f = ╱4c╱L╱ // 0xe4c @0xf
0x0e3d…0e4e at0010 = EOL // 0xe4d @0x10
0x0e3d…0e4e }
0x0e4e…0e53 a441 01380
0x0e4e…0e53 LineComal80 {
0x0e4e…0e53 ptr = 0xa441 // 0xe4e @0x0
0x0e4e…0e53 lno = 0x0564 // 0xe50 @0x2
0x0e4e…0e53 at0004 = EOL // 0xe52 @0x4
0x0e4e…0e53 }
0x0e53…0e6b a459 01390 PROC OVERSKRIFT ( ST $ , L )
0x0e53…0e6b LineComal80 {
0x0e53…0e6b ptr = 0xa459 // 0xe53 @0x0
0x0e53…0e6b lno = 0x056e // 0xe55 @0x2
0x0e53…0e6b at0004 = ╱9e0f╱ PROC ╱ // 0xe57 @0x4
0x0e53…0e6b at0006 = ╱4f╱O╱ // 0xe59 @0x6
0x0e53…0e6b at0007 = ╱56╱V╱ // 0xe5a @0x7
0x0e53…0e6b at0008 = ╱45╱E╱ // 0xe5b @0x8
0x0e53…0e6b at0009 = ╱52╱R╱ // 0xe5c @0x9
0x0e53…0e6b at000a = ╱53╱S╱ // 0xe5d @0xa
0x0e53…0e6b at000b = ╱4b╱K╱ // 0xe5e @0xb
0x0e53…0e6b at000c = ╱52╱R╱ // 0xe5f @0xc
0x0e53…0e6b at000d = ╱49╱I╱ // 0xe60 @0xd
0x0e53…0e6b at000e = ╱46╱F╱ // 0xe61 @0xe
0x0e53…0e6b at000f = ╱54╱T╱ // 0xe62 @0xf
0x0e53…0e6b at0010 = ╱ed╱ ( ╱ // 0xe63 @0x10
0x0e53…0e6b at0011 = ╱53╱S╱ // 0xe64 @0x11
0x0e53…0e6b at0012 = ╱54╱T╱ // 0xe65 @0x12
0x0e53…0e6b at0013 = ╱ef╱ $ ╱ // 0xe66 @0x13
0x0e53…0e6b at0014 = ╱ec╱ , ╱ // 0xe67 @0x14
0x0e53…0e6b at0015 = ╱4c╱L╱ // 0xe68 @0x15
0x0e53…0e6b at0016 = ╱ee╱ ) ╱ // 0xe69 @0x16
0x0e53…0e6b at0017 = EOL // 0xe6a @0x17
0x0e53…0e6b }
0x0e6b…0e91 a47f 01400 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
0x0e6b…0e91 LineComal80 {
0x0e6b…0e91 ptr = 0xa47f // 0xe6b @0x0
0x0e6b…0e91 lno = 0x0578 // 0xe6d @0x2
0x0e6b…0e91 at0004 = ╱92╱ PRINT ╱ // 0xe6f @0x4
0x0e6b…0e91 at0005 = ╱22╱"╱ // 0xe70 @0x5
0x0e6b…0e91 at0006 = ╱3c╱<╱ // 0xe71 @0x6
0x0e6b…0e91 at0007 = ╱58╱X╱ // 0xe72 @0x7
0x0e6b…0e91 at0008 = ╱43╱C╱ // 0xe73 @0x8
0x0e6b…0e91 at0009 = ╱30╱0╱ // 0xe74 @0x9
0x0e6b…0e91 at000a = ╱31╱1╱ // 0xe75 @0xa
0x0e6b…0e91 at000b = ╱30╱0╱ // 0xe76 @0xb
0x0e6b…0e91 at000c = ╱31╱1╱ // 0xe77 @0xc
0x0e6b…0e91 at000d = ╱3e╱>╱ // 0xe78 @0xd
0x0e6b…0e91 at000e = ╱46╱F╱ // 0xe79 @0xe
0x0e6b…0e91 at000f = ╱69╱i╱ // 0xe7a @0xf
0x0e6b…0e91 at0010 = ╱72╱r╱ // 0xe7b @0x10
0x0e6b…0e91 at0011 = ╱6d╱m╱ // 0xe7c @0x11
0x0e6b…0e91 at0012 = ╱61╱a╱ // 0xe7d @0x12
0x0e6b…0e91 at0013 = ╱6e╱n╱ // 0xe7e @0x13
0x0e6b…0e91 at0014 = ╱61╱a╱ // 0xe7f @0x14
0x0e6b…0e91 at0015 = ╱76╱v╱ // 0xe80 @0x15
0x0e6b…0e91 at0016 = ╱6e╱n╱ // 0xe81 @0x16
0x0e6b…0e91 at0017 = ╱3a╱:╱ // 0xe82 @0x17
0x0e6b…0e91 at0018 = ╱20╱…╱ // 0xe83 @0x18
0x0e6b…0e91 at0019 = ╱22╱"╱ // 0xe84 @0x19
0x0e6b…0e91 at001a = ╱ea╱ ; ╱ // 0xe85 @0x1a
0x0e6b…0e91 at001b = ╱46╱F╱ // 0xe86 @0x1b
0x0e6b…0e91 at001c = ╱49╱I╱ // 0xe87 @0x1c
0x0e6b…0e91 at001d = ╱52╱R╱ // 0xe88 @0x1d
0x0e6b…0e91 at001e = ╱4d╱M╱ // 0xe89 @0x1e
0x0e6b…0e91 at001f = ╱41╱A╱ // 0xe8a @0x1f
0x0e6b…0e91 at0020 = ╱4e╱N╱ // 0xe8b @0x20
0x0e6b…0e91 at0021 = ╱41╱A╱ // 0xe8c @0x21
0x0e6b…0e91 at0022 = ╱56╱V╱ // 0xe8d @0x22
0x0e6b…0e91 at0023 = ╱4e╱N╱ // 0xe8e @0x23
0x0e6b…0e91 at0024 = ╱ef╱ $ ╱ // 0xe8f @0x24
0x0e6b…0e91 at0025 = EOL // 0xe90 @0x25
0x0e6b…0e91 }
0x0e91…0ed9 a4c7 01410 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
0x0e91…0ed9 LineComal80 {
0x0e91…0ed9 ptr = 0xa4c7 // 0xe91 @0x0
0x0e91…0ed9 lno = 0x0582 // 0xe93 @0x2
0x0e91…0ed9 at0004 = ╱92╱ PRINT ╱ // 0xe95 @0x4
0x0e91…0ed9 at0005 = ╱22╱"╱ // 0xe96 @0x5
0x0e91…0ed9 at0006 = ╱3c╱<╱ // 0xe97 @0x6
0x0e91…0ed9 at0007 = ╱53╱S╱ // 0xe98 @0x7
0x0e91…0ed9 at0008 = ╱43╱C╱ // 0xe99 @0x8
0x0e91…0ed9 at0009 = ╱36╱6╱ // 0xe9a @0x9
0x0e91…0ed9 at000a = ╱35╱5╱ // 0xe9b @0xa
0x0e91…0ed9 at000b = ╱30╱0╱ // 0xe9c @0xb
0x0e91…0ed9 at000c = ╱31╱1╱ // 0xe9d @0xc
0x0e91…0ed9 at000d = ╱3e╱>╱ // 0xe9e @0xd
0x0e91…0ed9 at000e = ╱44╱D╱ // 0xe9f @0xe
0x0e91…0ed9 at000f = ╱61╱a╱ // 0xea0 @0xf
0x0e91…0ed9 at0010 = ╱74╱t╱ // 0xea1 @0x10
0x0e91…0ed9 at0011 = ╱6f╱o╱ // 0xea2 @0x11
0x0e91…0ed9 at0012 = ╱3a╱:╱ // 0xea3 @0x12
0x0e91…0ed9 at0013 = ╱20╱…╱ // 0xea4 @0x13
0x0e91…0ed9 at0014 = ╱22╱"╱ // 0xea5 @0x14
0x0e91…0ed9 at0015 = ╱ea╱ ; ╱ // 0xea6 @0x15
0x0e91…0ed9 at0016 = ╱53╱S╱ // 0xea7 @0x16
0x0e91…0ed9 at0017 = ╱59╱Y╱ // 0xea8 @0x17
0x0e91…0ed9 at0018 = ╱53╱S╱ // 0xea9 @0x18
0x0e91…0ed9 at0019 = ╱54╱T╱ // 0xeaa @0x19
0x0e91…0ed9 at001a = ╱5f╱_╱ // 0xeab @0x1a
0x0e91…0ed9 at001b = ╱44╱D╱ // 0xeac @0x1b
0x0e91…0ed9 at001c = ╱41╱A╱ // 0xead @0x1c
0x0e91…0ed9 at001d = ╱54╱T╱ // 0xeae @0x1d
0x0e91…0ed9 at001e = ╱ef╱ $ ╱ // 0xeaf @0x1e
0x0e91…0ed9 at001f = ╱ed╱ ( ╱ // 0xeb0 @0x1f
0x0e91…0ed9 at0020 = ╱31╱1╱ // 0xeb1 @0x20
0x0e91…0ed9 at0021 = ╱f20100╱ // 0xeb2 @0x21
0x0e91…0ed9 at0024 = ╱f1╱ : ╱ // 0xeb5 @0x24
0x0e91…0ed9 at0025 = ╱32╱2╱ // 0xeb6 @0x25
0x0e91…0ed9 at0026 = ╱f20200╱ // 0xeb7 @0x26
0x0e91…0ed9 at0029 = ╱ee╱ ) ╱ // 0xeba @0x29
0x0e91…0ed9 at002a = ╱ea╱ ; ╱ // 0xebb @0x2a
0x0e91…0ed9 at002b = ╱22╱"╱ // 0xebc @0x2b
0x0e91…0ed9 at002c = ╱2e╱.╱ // 0xebd @0x2c
0x0e91…0ed9 at002d = ╱22╱"╱ // 0xebe @0x2d
0x0e91…0ed9 at002e = ╱ea╱ ; ╱ // 0xebf @0x2e
0x0e91…0ed9 at002f = ╱53╱S╱ // 0xec0 @0x2f
0x0e91…0ed9 at0030 = ╱59╱Y╱ // 0xec1 @0x30
0x0e91…0ed9 at0031 = ╱53╱S╱ // 0xec2 @0x31
0x0e91…0ed9 at0032 = ╱54╱T╱ // 0xec3 @0x32
0x0e91…0ed9 at0033 = ╱5f╱_╱ // 0xec4 @0x33
0x0e91…0ed9 at0034 = ╱44╱D╱ // 0xec5 @0x34
0x0e91…0ed9 at0035 = ╱41╱A╱ // 0xec6 @0x35
0x0e91…0ed9 at0036 = ╱54╱T╱ // 0xec7 @0x36
0x0e91…0ed9 at0037 = ╱ef╱ $ ╱ // 0xec8 @0x37
0x0e91…0ed9 at0038 = ╱ed╱ ( ╱ // 0xec9 @0x38
0x0e91…0ed9 at0039 = ╱33╱3╱ // 0xeca @0x39
0x0e91…0ed9 at003a = ╱f20300╱ // 0xecb @0x3a
0x0e91…0ed9 at003d = ╱f1╱ : ╱ // 0xece @0x3d
0x0e91…0ed9 at003e = ╱32╱2╱ // 0xecf @0x3e
0x0e91…0ed9 at003f = ╱f20200╱ // 0xed0 @0x3f
0x0e91…0ed9 at0042 = ╱ee╱ ) ╱ // 0xed3 @0x42
0x0e91…0ed9 at0043 = ╱ea╱ ; ╱ // 0xed4 @0x43
0x0e91…0ed9 at0044 = ╱22╱"╱ // 0xed5 @0x44
0x0e91…0ed9 at0045 = ╱2e╱.╱ // 0xed6 @0x45
0x0e91…0ed9 at0046 = ╱22╱"╱ // 0xed7 @0x46
0x0e91…0ed9 at0047 = EOL // 0xed8 @0x47
0x0e91…0ed9 }
0x0ed9…0ef3 a4e1 01420 PRINT SYST_DAT $ ( 5 : 2 )
0x0ed9…0ef3 LineComal80 {
0x0ed9…0ef3 ptr = 0xa4e1 // 0xed9 @0x0
0x0ed9…0ef3 lno = 0x058c // 0xedb @0x2
0x0ed9…0ef3 at0004 = ╱92╱ PRINT ╱ // 0xedd @0x4
0x0ed9…0ef3 at0005 = ╱53╱S╱ // 0xede @0x5
0x0ed9…0ef3 at0006 = ╱59╱Y╱ // 0xedf @0x6
0x0ed9…0ef3 at0007 = ╱53╱S╱ // 0xee0 @0x7
0x0ed9…0ef3 at0008 = ╱54╱T╱ // 0xee1 @0x8
0x0ed9…0ef3 at0009 = ╱5f╱_╱ // 0xee2 @0x9
0x0ed9…0ef3 at000a = ╱44╱D╱ // 0xee3 @0xa
0x0ed9…0ef3 at000b = ╱41╱A╱ // 0xee4 @0xb
0x0ed9…0ef3 at000c = ╱54╱T╱ // 0xee5 @0xc
0x0ed9…0ef3 at000d = ╱ef╱ $ ╱ // 0xee6 @0xd
0x0ed9…0ef3 at000e = ╱ed╱ ( ╱ // 0xee7 @0xe
0x0ed9…0ef3 at000f = ╱35╱5╱ // 0xee8 @0xf
0x0ed9…0ef3 at0010 = ╱f20500╱ // 0xee9 @0x10
0x0ed9…0ef3 at0013 = ╱f1╱ : ╱ // 0xeec @0x13
0x0ed9…0ef3 at0014 = ╱32╱2╱ // 0xeed @0x14
0x0ed9…0ef3 at0015 = ╱f20200╱ // 0xeee @0x15
0x0ed9…0ef3 at0018 = ╱ee╱ ) ╱ // 0xef1 @0x18
0x0ed9…0ef3 at0019 = EOL // 0xef2 @0x19
0x0ed9…0ef3 }
0x0ef3…0f0c a4fa 01430 CURSOR 36 - ╱cb╱ ( ST $ ) DIV 2 , L
0x0ef3…0f0c LineComal80 {
0x0ef3…0f0c ptr = 0xa4fa // 0xef3 @0x0
0x0ef3…0f0c lno = 0x0596 // 0xef5 @0x2
0x0ef3…0f0c at0004 = ╱a1╱ CURSOR ╱ // 0xef7 @0x4
0x0ef3…0f0c at0005 = ╱33╱3╱ // 0xef8 @0x5
0x0ef3…0f0c at0006 = ╱36╱6╱ // 0xef9 @0x6
0x0ef3…0f0c at0007 = ╱f22400╱ // 0xefa @0x7
0x0ef3…0f0c at000a = ╱e6╱ - ╱ // 0xefd @0xa
0x0ef3…0f0c at000b = ╱cb╱ // 0xefe @0xb
0x0ef3…0f0c at000c = ╱ed╱ ( ╱ // 0xeff @0xc
0x0ef3…0f0c at000d = ╱53╱S╱ // 0xf00 @0xd
0x0ef3…0f0c at000e = ╱54╱T╱ // 0xf01 @0xe
0x0ef3…0f0c at000f = ╱ef╱ $ ╱ // 0xf02 @0xf
0x0ef3…0f0c at0010 = ╱ee╱ ) ╱ // 0xf03 @0x10
0x0ef3…0f0c at0011 = ╱da╱ DIV ╱ // 0xf04 @0x11
0x0ef3…0f0c at0012 = ╱32╱2╱ // 0xf05 @0x12
0x0ef3…0f0c at0013 = ╱f20200╱ // 0xf06 @0x13
0x0ef3…0f0c at0016 = ╱ec╱ , ╱ // 0xf09 @0x16
0x0ef3…0f0c at0017 = ╱4c╱L╱ // 0xf0a @0x17
0x0ef3…0f0c at0018 = EOL // 0xf0b @0x18
0x0ef3…0f0c }
0x0f0c…0f23 a511 01440 PRINT "***…" ; ST $ ; "…***"
0x0f0c…0f23 LineComal80 {
0x0f0c…0f23 ptr = 0xa511 // 0xf0c @0x0
0x0f0c…0f23 lno = 0x05a0 // 0xf0e @0x2
0x0f0c…0f23 at0004 = ╱92╱ PRINT ╱ // 0xf10 @0x4
0x0f0c…0f23 at0005 = ╱22╱"╱ // 0xf11 @0x5
0x0f0c…0f23 at0006 = ╱2a╱*╱ // 0xf12 @0x6
0x0f0c…0f23 at0007 = ╱2a╱*╱ // 0xf13 @0x7
0x0f0c…0f23 at0008 = ╱2a╱*╱ // 0xf14 @0x8
0x0f0c…0f23 at0009 = ╱20╱…╱ // 0xf15 @0x9
0x0f0c…0f23 at000a = ╱22╱"╱ // 0xf16 @0xa
0x0f0c…0f23 at000b = ╱ea╱ ; ╱ // 0xf17 @0xb
0x0f0c…0f23 at000c = ╱53╱S╱ // 0xf18 @0xc
0x0f0c…0f23 at000d = ╱54╱T╱ // 0xf19 @0xd
0x0f0c…0f23 at000e = ╱ef╱ $ ╱ // 0xf1a @0xe
0x0f0c…0f23 at000f = ╱ea╱ ; ╱ // 0xf1b @0xf
0x0f0c…0f23 at0010 = ╱22╱"╱ // 0xf1c @0x10
0x0f0c…0f23 at0011 = ╱20╱…╱ // 0xf1d @0x11
0x0f0c…0f23 at0012 = ╱2a╱*╱ // 0xf1e @0x12
0x0f0c…0f23 at0013 = ╱2a╱*╱ // 0xf1f @0x13
0x0f0c…0f23 at0014 = ╱2a╱*╱ // 0xf20 @0x14
0x0f0c…0f23 at0015 = ╱22╱"╱ // 0xf21 @0x15
0x0f0c…0f23 at0016 = EOL // 0xf22 @0x16
0x0f0c…0f23 }
0x0f23…0f33 a521 01450 ENDPROC OVERSKRIFT
0x0f23…0f33 LineComal80 {
0x0f23…0f33 ptr = 0xa521 // 0xf23 @0x0
0x0f23…0f33 lno = 0x05aa // 0xf25 @0x2
0x0f23…0f33 at0004 = ╱9f╱ ENDPROC ╱ // 0xf27 @0x4
0x0f23…0f33 at0005 = ╱4f╱O╱ // 0xf28 @0x5
0x0f23…0f33 at0006 = ╱56╱V╱ // 0xf29 @0x6
0x0f23…0f33 at0007 = ╱45╱E╱ // 0xf2a @0x7
0x0f23…0f33 at0008 = ╱52╱R╱ // 0xf2b @0x8
0x0f23…0f33 at0009 = ╱53╱S╱ // 0xf2c @0x9
0x0f23…0f33 at000a = ╱4b╱K╱ // 0xf2d @0xa
0x0f23…0f33 at000b = ╱52╱R╱ // 0xf2e @0xb
0x0f23…0f33 at000c = ╱49╱I╱ // 0xf2f @0xc
0x0f23…0f33 at000d = ╱46╱F╱ // 0xf30 @0xd
0x0f23…0f33 at000e = ╱54╱T╱ // 0xf31 @0xe
0x0f23…0f33 at000f = EOL // 0xf32 @0xf
0x0f23…0f33 }
0x0f33…0f38 a526 01460
0x0f33…0f38 LineComal80 {
0x0f33…0f38 ptr = 0xa526 // 0xf33 @0x0
0x0f33…0f38 lno = 0x05b4 // 0xf35 @0x2
0x0f33…0f38 at0004 = EOL // 0xf37 @0x4
0x0f33…0f38 }
0x0f38…0f4b a539 01470 PROC SL_FEJLLINIE
0x0f38…0f4b LineComal80 {
0x0f38…0f4b ptr = 0xa539 // 0xf38 @0x0
0x0f38…0f4b lno = 0x05be // 0xf3a @0x2
0x0f38…0f4b at0004 = ╱9e10╱ PROC ╱ // 0xf3c @0x4
0x0f38…0f4b at0006 = ╱53╱S╱ // 0xf3e @0x6
0x0f38…0f4b at0007 = ╱4c╱L╱ // 0xf3f @0x7
0x0f38…0f4b at0008 = ╱5f╱_╱ // 0xf40 @0x8
0x0f38…0f4b at0009 = ╱46╱F╱ // 0xf41 @0x9
0x0f38…0f4b at000a = ╱45╱E╱ // 0xf42 @0xa
0x0f38…0f4b at000b = ╱4a╱J╱ // 0xf43 @0xb
0x0f38…0f4b at000c = ╱4c╱L╱ // 0xf44 @0xc
0x0f38…0f4b at000d = ╱4c╱L╱ // 0xf45 @0xd
0x0f38…0f4b at000e = ╱49╱I╱ // 0xf46 @0xe
0x0f38…0f4b at000f = ╱4e╱N╱ // 0xf47 @0xf
0x0f38…0f4b at0010 = ╱49╱I╱ // 0xf48 @0x10
0x0f38…0f4b at0011 = ╱45╱E╱ // 0xf49 @0x11
0x0f38…0f4b at0012 = EOL // 0xf4a @0x12
0x0f38…0f4b }
0x0f4b…0f58 a546 01480 LET OK := TRUE
0x0f4b…0f58 LineComal80 {
0x0f4b…0f58 ptr = 0xa546 // 0xf4b @0x0
0x0f4b…0f58 lno = 0x05c8 // 0xf4d @0x2
0x0f4b…0f58 at0004 = ╱86╱ LET ╱ // 0xf4f @0x4
0x0f4b…0f58 at0005 = ╱4f╱O╱ // 0xf50 @0x5
0x0f4b…0f58 at0006 = ╱4b╱K╱ // 0xf51 @0x6
0x0f4b…0f58 at0007 = ╱f0╱ := ╱ // 0xf52 @0x7
0x0f4b…0f58 at0008 = ╱54╱T╱ // 0xf53 @0x8
0x0f4b…0f58 at0009 = ╱52╱R╱ // 0xf54 @0x9
0x0f4b…0f58 at000a = ╱55╱U╱ // 0xf55 @0xa
0x0f4b…0f58 at000b = ╱45╱E╱ // 0xf56 @0xb
0x0f4b…0f58 at000c = EOL // 0xf57 @0xc
0x0f4b…0f58 }
0x0f58…0f6c a55a 01490 PRINT "<C0102>" ; SPC $
0x0f58…0f6c LineComal80 {
0x0f58…0f6c ptr = 0xa55a // 0xf58 @0x0
0x0f58…0f6c lno = 0x05d2 // 0xf5a @0x2
0x0f58…0f6c at0004 = ╱92╱ PRINT ╱ // 0xf5c @0x4
0x0f58…0f6c at0005 = ╱22╱"╱ // 0xf5d @0x5
0x0f58…0f6c at0006 = ╱3c╱<╱ // 0xf5e @0x6
0x0f58…0f6c at0007 = ╱43╱C╱ // 0xf5f @0x7
0x0f58…0f6c at0008 = ╱30╱0╱ // 0xf60 @0x8
0x0f58…0f6c at0009 = ╱31╱1╱ // 0xf61 @0x9
0x0f58…0f6c at000a = ╱30╱0╱ // 0xf62 @0xa
0x0f58…0f6c at000b = ╱32╱2╱ // 0xf63 @0xb
0x0f58…0f6c at000c = ╱3e╱>╱ // 0xf64 @0xc
0x0f58…0f6c at000d = ╱22╱"╱ // 0xf65 @0xd
0x0f58…0f6c at000e = ╱ea╱ ; ╱ // 0xf66 @0xe
0x0f58…0f6c at000f = ╱53╱S╱ // 0xf67 @0xf
0x0f58…0f6c at0010 = ╱50╱P╱ // 0xf68 @0x10
0x0f58…0f6c at0011 = ╱43╱C╱ // 0xf69 @0x11
0x0f58…0f6c at0012 = ╱ef╱ $ ╱ // 0xf6a @0x12
0x0f58…0f6c at0013 = EOL // 0xf6b @0x13
0x0f58…0f6c }
0x0f6c…0f7e a56c 01500 ENDPROC SL_FEJLLINIE
0x0f6c…0f7e LineComal80 {
0x0f6c…0f7e ptr = 0xa56c // 0xf6c @0x0
0x0f6c…0f7e lno = 0x05dc // 0xf6e @0x2
0x0f6c…0f7e at0004 = ╱9f╱ ENDPROC ╱ // 0xf70 @0x4
0x0f6c…0f7e at0005 = ╱53╱S╱ // 0xf71 @0x5
0x0f6c…0f7e at0006 = ╱4c╱L╱ // 0xf72 @0x6
0x0f6c…0f7e at0007 = ╱5f╱_╱ // 0xf73 @0x7
0x0f6c…0f7e at0008 = ╱46╱F╱ // 0xf74 @0x8
0x0f6c…0f7e at0009 = ╱45╱E╱ // 0xf75 @0x9
0x0f6c…0f7e at000a = ╱4a╱J╱ // 0xf76 @0xa
0x0f6c…0f7e at000b = ╱4c╱L╱ // 0xf77 @0xb
0x0f6c…0f7e at000c = ╱4c╱L╱ // 0xf78 @0xc
0x0f6c…0f7e at000d = ╱49╱I╱ // 0xf79 @0xd
0x0f6c…0f7e at000e = ╱4e╱N╱ // 0xf7a @0xe
0x0f6c…0f7e at000f = ╱49╱I╱ // 0xf7b @0xf
0x0f6c…0f7e at0010 = ╱45╱E╱ // 0xf7c @0x10
0x0f6c…0f7e at0011 = EOL // 0xf7d @0x11
0x0f6c…0f7e }
0x0f7e…0f83 a571 01510
0x0f7e…0f83 LineComal80 {
0x0f7e…0f83 ptr = 0xa571 // 0xf7e @0x0
0x0f7e…0f83 lno = 0x05e6 // 0xf80 @0x2
0x0f7e…0f83 at0004 = EOL // 0xf82 @0x4
0x0f7e…0f83 }
0x0f83…0f93 a581 01520 PROC FEJL ( ST $ )
0x0f83…0f93 LineComal80 {
0x0f83…0f93 ptr = 0xa581 // 0xf83 @0x0
0x0f83…0f93 lno = 0x05f0 // 0xf85 @0x2
0x0f83…0f93 at0004 = ╱9e11╱ PROC ╱ // 0xf87 @0x4
0x0f83…0f93 at0006 = ╱46╱F╱ // 0xf89 @0x6
0x0f83…0f93 at0007 = ╱45╱E╱ // 0xf8a @0x7
0x0f83…0f93 at0008 = ╱4a╱J╱ // 0xf8b @0x8
0x0f83…0f93 at0009 = ╱4c╱L╱ // 0xf8c @0x9
0x0f83…0f93 at000a = ╱ed╱ ( ╱ // 0xf8d @0xa
0x0f83…0f93 at000b = ╱53╱S╱ // 0xf8e @0xb
0x0f83…0f93 at000c = ╱54╱T╱ // 0xf8f @0xc
0x0f83…0f93 at000d = ╱ef╱ $ ╱ // 0xf90 @0xd
0x0f83…0f93 at000e = ╱ee╱ ) ╱ // 0xf91 @0xe
0x0f83…0f93 at000f = EOL // 0xf92 @0xf
0x0f83…0f93 }
0x0f93…0fa1 a58f 01530 LET OK := FALSE
0x0f93…0fa1 LineComal80 {
0x0f93…0fa1 ptr = 0xa58f // 0xf93 @0x0
0x0f93…0fa1 lno = 0x05fa // 0xf95 @0x2
0x0f93…0fa1 at0004 = ╱86╱ LET ╱ // 0xf97 @0x4
0x0f93…0fa1 at0005 = ╱4f╱O╱ // 0xf98 @0x5
0x0f93…0fa1 at0006 = ╱4b╱K╱ // 0xf99 @0x6
0x0f93…0fa1 at0007 = ╱f0╱ := ╱ // 0xf9a @0x7
0x0f93…0fa1 at0008 = ╱46╱F╱ // 0xf9b @0x8
0x0f93…0fa1 at0009 = ╱41╱A╱ // 0xf9c @0x9
0x0f93…0fa1 at000a = ╱4c╱L╱ // 0xf9d @0xa
0x0f93…0fa1 at000b = ╱53╱S╱ // 0xf9e @0xb
0x0f93…0fa1 at000c = ╱45╱E╱ // 0xf9f @0xc
0x0f93…0fa1 at000d = EOL // 0xfa0 @0xd
0x0f93…0fa1 }
0x0fa1…0fbd a5ab 01540 CURSOR 36 - ╱cb╱ ( ST $ ) / 2 , 2
0x0fa1…0fbd LineComal80 {
0x0fa1…0fbd ptr = 0xa5ab // 0xfa1 @0x0
0x0fa1…0fbd lno = 0x0604 // 0xfa3 @0x2
0x0fa1…0fbd at0004 = ╱a1╱ CURSOR ╱ // 0xfa5 @0x4
0x0fa1…0fbd at0005 = ╱33╱3╱ // 0xfa6 @0x5
0x0fa1…0fbd at0006 = ╱36╱6╱ // 0xfa7 @0x6
0x0fa1…0fbd at0007 = ╱f22400╱ // 0xfa8 @0x7
0x0fa1…0fbd at000a = ╱e6╱ - ╱ // 0xfab @0xa
0x0fa1…0fbd at000b = ╱cb╱ // 0xfac @0xb
0x0fa1…0fbd at000c = ╱ed╱ ( ╱ // 0xfad @0xc
0x0fa1…0fbd at000d = ╱53╱S╱ // 0xfae @0xd
0x0fa1…0fbd at000e = ╱54╱T╱ // 0xfaf @0xe
0x0fa1…0fbd at000f = ╱ef╱ $ ╱ // 0xfb0 @0xf
0x0fa1…0fbd at0010 = ╱ee╱ ) ╱ // 0xfb1 @0x10
0x0fa1…0fbd at0011 = ╱e8╱ / ╱ // 0xfb2 @0x11
0x0fa1…0fbd at0012 = ╱32╱2╱ // 0xfb3 @0x12
0x0fa1…0fbd at0013 = ╱f20200╱ // 0xfb4 @0x13
0x0fa1…0fbd at0016 = ╱ec╱ , ╱ // 0xfb7 @0x16
0x0fa1…0fbd at0017 = ╱32╱2╱ // 0xfb8 @0x17
0x0fa1…0fbd at0018 = ╱f20200╱ // 0xfb9 @0x18
0x0fa1…0fbd at001b = EOL // 0xfbc @0x1b
0x0fa1…0fbd }
0x0fbd…0fdc a5ca 01550 PRINT "***…" + ST $ + "…***" ; CHR$ ( 7 )
0x0fbd…0fdc LineComal80 {
0x0fbd…0fdc ptr = 0xa5ca // 0xfbd @0x0
0x0fbd…0fdc lno = 0x060e // 0xfbf @0x2
0x0fbd…0fdc at0004 = ╱92╱ PRINT ╱ // 0xfc1 @0x4
0x0fbd…0fdc at0005 = ╱22╱"╱ // 0xfc2 @0x5
0x0fbd…0fdc at0006 = ╱2a╱*╱ // 0xfc3 @0x6
0x0fbd…0fdc at0007 = ╱2a╱*╱ // 0xfc4 @0x7
0x0fbd…0fdc at0008 = ╱2a╱*╱ // 0xfc5 @0x8
0x0fbd…0fdc at0009 = ╱20╱…╱ // 0xfc6 @0x9
0x0fbd…0fdc at000a = ╱22╱"╱ // 0xfc7 @0xa
0x0fbd…0fdc at000b = ╱eb╱ + ╱ // 0xfc8 @0xb
0x0fbd…0fdc at000c = ╱53╱S╱ // 0xfc9 @0xc
0x0fbd…0fdc at000d = ╱54╱T╱ // 0xfca @0xd
0x0fbd…0fdc at000e = ╱ef╱ $ ╱ // 0xfcb @0xe
0x0fbd…0fdc at000f = ╱eb╱ + ╱ // 0xfcc @0xf
0x0fbd…0fdc at0010 = ╱22╱"╱ // 0xfcd @0x10
0x0fbd…0fdc at0011 = ╱20╱…╱ // 0xfce @0x11
0x0fbd…0fdc at0012 = ╱2a╱*╱ // 0xfcf @0x12
0x0fbd…0fdc at0013 = ╱2a╱*╱ // 0xfd0 @0x13
0x0fbd…0fdc at0014 = ╱2a╱*╱ // 0xfd1 @0x14
0x0fbd…0fdc at0015 = ╱22╱"╱ // 0xfd2 @0x15
0x0fbd…0fdc at0016 = ╱ea╱ ; ╱ // 0xfd3 @0x16
0x0fbd…0fdc at0017 = ╱d0╱ CHR$ ╱ // 0xfd4 @0x17
0x0fbd…0fdc at0018 = ╱ed╱ ( ╱ // 0xfd5 @0x18
0x0fbd…0fdc at0019 = ╱37╱7╱ // 0xfd6 @0x19
0x0fbd…0fdc at001a = ╱f20700╱ // 0xfd7 @0x1a
0x0fbd…0fdc at001d = ╱ee╱ ) ╱ // 0xfda @0x1d
0x0fbd…0fdc at001e = EOL // 0xfdb @0x1e
0x0fbd…0fdc }
0x0fdc…0fe6 a5d4 01560 ENDPROC FEJL
0x0fdc…0fe6 LineComal80 {
0x0fdc…0fe6 ptr = 0xa5d4 // 0xfdc @0x0
0x0fdc…0fe6 lno = 0x0618 // 0xfde @0x2
0x0fdc…0fe6 at0004 = ╱9f╱ ENDPROC ╱ // 0xfe0 @0x4
0x0fdc…0fe6 at0005 = ╱46╱F╱ // 0xfe1 @0x5
0x0fdc…0fe6 at0006 = ╱45╱E╱ // 0xfe2 @0x6
0x0fdc…0fe6 at0007 = ╱4a╱J╱ // 0xfe3 @0x7
0x0fdc…0fe6 at0008 = ╱4c╱L╱ // 0xfe4 @0x8
0x0fdc…0fe6 at0009 = EOL // 0xfe5 @0x9
0x0fdc…0fe6 }
0x0fe6…0feb a5d9 01570
0x0fe6…0feb LineComal80 {
0x0fe6…0feb ptr = 0xa5d9 // 0xfe6 @0x0
0x0fe6…0feb lno = 0x0622 // 0xfe8 @0x2
0x0fe6…0feb at0004 = EOL // 0xfea @0x4
0x0fe6…0feb }
0x0feb…0ffe a5ec 01580 PROC L[S_KONTO ( P )
0x0feb…0ffe LineComal80 {
0x0feb…0ffe ptr = 0xa5ec // 0xfeb @0x0
0x0feb…0ffe lno = 0x062c // 0xfed @0x2
0x0feb…0ffe at0004 = ╱9e12╱ PROC ╱ // 0xfef @0x4
0x0feb…0ffe at0006 = ╱4c╱L╱ // 0xff1 @0x6
0x0feb…0ffe at0007 = ╱5b╱[╱ // 0xff2 @0x7
0x0feb…0ffe at0008 = ╱53╱S╱ // 0xff3 @0x8
0x0feb…0ffe at0009 = ╱5f╱_╱ // 0xff4 @0x9
0x0feb…0ffe at000a = ╱4b╱K╱ // 0xff5 @0xa
0x0feb…0ffe at000b = ╱4f╱O╱ // 0xff6 @0xb
0x0feb…0ffe at000c = ╱4e╱N╱ // 0xff7 @0xc
0x0feb…0ffe at000d = ╱54╱T╱ // 0xff8 @0xd
0x0feb…0ffe at000e = ╱4f╱O╱ // 0xff9 @0xe
0x0feb…0ffe at000f = ╱ed╱ ( ╱ // 0xffa @0xf
0x0feb…0ffe at0010 = ╱50╱P╱ // 0xffb @0x10
0x0feb…0ffe at0011 = ╱ee╱ ) ╱ // 0xffc @0x11
0x0feb…0ffe at0012 = EOL // 0xffd @0x12
0x0feb…0ffe }
0x0ffe…1043 a631 01590 GET KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
0x0ffe…1043 LineComal80 {
0x0ffe…1043 ptr = 0xa631 // 0xffe @0x0
0x0ffe…1043 lno = 0x0636 // 0x1000 @0x2
0x0ffe…1043 at0004 = ╱a9╱ GET ╱ // 0x1002 @0x4
0x0ffe…1043 at0005 = ╱4b╱K╱ // 0x1003 @0x5
0x0ffe…1043 at0006 = ╱4f╱O╱ // 0x1004 @0x6
0x0ffe…1043 at0007 = ╱4e╱N╱ // 0x1005 @0x7
0x0ffe…1043 at0008 = ╱54╱T╱ // 0x1006 @0x8
0x0ffe…1043 at0009 = ╱4f╱O╱ // 0x1007 @0x9
0x0ffe…1043 at000a = ╱ef╱ $ ╱ // 0x1008 @0xa
0x0ffe…1043 at000b = ╱ec╱ , ╱ // 0x1009 @0xb
0x0ffe…1043 at000c = ╱50╱P╱ // 0x100a @0xc
0x0ffe…1043 at000d = ╱f1╱ : ╱ // 0x100b @0xd
0x0ffe…1043 at000e = ╱4b╱K╱ // 0x100c @0xe
0x0ffe…1043 at000f = ╱54╱T╱ // 0x100d @0xf
0x0ffe…1043 at0010 = ╱4f╱O╱ // 0x100e @0x10
0x0ffe…1043 at0011 = ╱5f╱_╱ // 0x100f @0x11
0x0ffe…1043 at0012 = ╱54╱T╱ // 0x1010 @0x12
0x0ffe…1043 at0013 = ╱59╱Y╱ // 0x1011 @0x13
0x0ffe…1043 at0014 = ╱50╱P╱ // 0x1012 @0x14
0x0ffe…1043 at0015 = ╱45╱E╱ // 0x1013 @0x15
0x0ffe…1043 at0016 = ╱ef╱ $ ╱ // 0x1014 @0x16
0x0ffe…1043 at0017 = ╱ec╱ , ╱ // 0x1015 @0x17
0x0ffe…1043 at0018 = ╱4b╱K╱ // 0x1016 @0x18
0x0ffe…1043 at0019 = ╱54╱T╱ // 0x1017 @0x19
0x0ffe…1043 at001a = ╱4f╱O╱ // 0x1018 @0x1a
0x0ffe…1043 at001b = ╱5f╱_╱ // 0x1019 @0x1b
0x0ffe…1043 at001c = ╱4e╱N╱ // 0x101a @0x1c
0x0ffe…1043 at001d = ╱41╱A╱ // 0x101b @0x1d
0x0ffe…1043 at001e = ╱56╱V╱ // 0x101c @0x1e
0x0ffe…1043 at001f = ╱4e╱N╱ // 0x101d @0x1f
0x0ffe…1043 at0020 = ╱ef╱ $ ╱ // 0x101e @0x20
0x0ffe…1043 at0021 = ╱ec╱ , ╱ // 0x101f @0x21
0x0ffe…1043 at0022 = ╱4b╱K╱ // 0x1020 @0x22
0x0ffe…1043 at0023 = ╱54╱T╱ // 0x1021 @0x23
0x0ffe…1043 at0024 = ╱4f╱O╱ // 0x1022 @0x24
0x0ffe…1043 at0025 = ╱5f╱_╱ // 0x1023 @0x25
0x0ffe…1043 at0026 = ╱50╱P╱ // 0x1024 @0x26
0x0ffe…1043 at0027 = ╱52╱R╱ // 0x1025 @0x27
0x0ffe…1043 at0028 = ╱49╱I╱ // 0x1026 @0x28
0x0ffe…1043 at0029 = ╱4d╱M╱ // 0x1027 @0x29
0x0ffe…1043 at002a = ╱4f╱O╱ // 0x1028 @0x2a
0x0ffe…1043 at002b = ╱ec╱ , ╱ // 0x1029 @0x2b
0x0ffe…1043 at002c = ╱4b╱K╱ // 0x102a @0x2c
0x0ffe…1043 at002d = ╱54╱T╱ // 0x102b @0x2d
0x0ffe…1043 at002e = ╱4f╱O╱ // 0x102c @0x2e
0x0ffe…1043 at002f = ╱5f╱_╱ // 0x102d @0x2f
0x0ffe…1043 at0030 = ╱55╱U╱ // 0x102e @0x30
0x0ffe…1043 at0031 = ╱4c╱L╱ // 0x102f @0x31
0x0ffe…1043 at0032 = ╱54╱T╱ // 0x1030 @0x32
0x0ffe…1043 at0033 = ╱49╱I╱ // 0x1031 @0x33
0x0ffe…1043 at0034 = ╱4d╱M╱ // 0x1032 @0x34
0x0ffe…1043 at0035 = ╱4f╱O╱ // 0x1033 @0x35
0x0ffe…1043 at0036 = ╱ec╱ , ╱ // 0x1034 @0x36
0x0ffe…1043 at0037 = ╱4b╱K╱ // 0x1035 @0x37
0x0ffe…1043 at0038 = ╱54╱T╱ // 0x1036 @0x38
0x0ffe…1043 at0039 = ╱4f╱O╱ // 0x1037 @0x39
0x0ffe…1043 at003a = ╱5f╱_╱ // 0x1038 @0x3a
0x0ffe…1043 at003b = ╱46╱F╱ // 0x1039 @0x3b
0x0ffe…1043 at003c = ╱50╱P╱ // 0x103a @0x3c
0x0ffe…1043 at003d = ╱ec╱ , ╱ // 0x103b @0x3d
0x0ffe…1043 at003e = ╱4b╱K╱ // 0x103c @0x3e
0x0ffe…1043 at003f = ╱54╱T╱ // 0x103d @0x3f
0x0ffe…1043 at0040 = ╱4f╱O╱ // 0x103e @0x40
0x0ffe…1043 at0041 = ╱5f╱_╱ // 0x103f @0x41
0x0ffe…1043 at0042 = ╱53╱S╱ // 0x1040 @0x42
0x0ffe…1043 at0043 = ╱50╱P╱ // 0x1041 @0x43
0x0ffe…1043 at0044 = EOL // 0x1042 @0x44
0x0ffe…1043 }
0x1043…1052 a640 01600 ENDPROC L[S_KONTO
0x1043…1052 LineComal80 {
0x1043…1052 ptr = 0xa640 // 0x1043 @0x0
0x1043…1052 lno = 0x0640 // 0x1045 @0x2
0x1043…1052 at0004 = ╱9f╱ ENDPROC ╱ // 0x1047 @0x4
0x1043…1052 at0005 = ╱4c╱L╱ // 0x1048 @0x5
0x1043…1052 at0006 = ╱5b╱[╱ // 0x1049 @0x6
0x1043…1052 at0007 = ╱53╱S╱ // 0x104a @0x7
0x1043…1052 at0008 = ╱5f╱_╱ // 0x104b @0x8
0x1043…1052 at0009 = ╱4b╱K╱ // 0x104c @0x9
0x1043…1052 at000a = ╱4f╱O╱ // 0x104d @0xa
0x1043…1052 at000b = ╱4e╱N╱ // 0x104e @0xb
0x1043…1052 at000c = ╱54╱T╱ // 0x104f @0xc
0x1043…1052 at000d = ╱4f╱O╱ // 0x1050 @0xd
0x1043…1052 at000e = EOL // 0x1051 @0xe
0x1043…1052 }
0x1052…1057 a645 01610
0x1052…1057 LineComal80 {
0x1052…1057 ptr = 0xa645 // 0x1052 @0x0
0x1052…1057 lno = 0x064a // 0x1054 @0x2
0x1052…1057 at0004 = EOL // 0x1056 @0x4
0x1052…1057 }
0x1057…106c a65a 01620 PROC SKRIV_KONTO ( P )
0x1057…106c LineComal80 {
0x1057…106c ptr = 0xa65a // 0x1057 @0x0
0x1057…106c lno = 0x0654 // 0x1059 @0x2
0x1057…106c at0004 = ╱9e13╱ PROC ╱ // 0x105b @0x4
0x1057…106c at0006 = ╱53╱S╱ // 0x105d @0x6
0x1057…106c at0007 = ╱4b╱K╱ // 0x105e @0x7
0x1057…106c at0008 = ╱52╱R╱ // 0x105f @0x8
0x1057…106c at0009 = ╱49╱I╱ // 0x1060 @0x9
0x1057…106c at000a = ╱56╱V╱ // 0x1061 @0xa
0x1057…106c at000b = ╱5f╱_╱ // 0x1062 @0xb
0x1057…106c at000c = ╱4b╱K╱ // 0x1063 @0xc
0x1057…106c at000d = ╱4f╱O╱ // 0x1064 @0xd
0x1057…106c at000e = ╱4e╱N╱ // 0x1065 @0xe
0x1057…106c at000f = ╱54╱T╱ // 0x1066 @0xf
0x1057…106c at0010 = ╱4f╱O╱ // 0x1067 @0x10
0x1057…106c at0011 = ╱ed╱ ( ╱ // 0x1068 @0x11
0x1057…106c at0012 = ╱50╱P╱ // 0x1069 @0x12
0x1057…106c at0013 = ╱ee╱ ) ╱ // 0x106a @0x13
0x1057…106c at0014 = EOL // 0x106b @0x14
0x1057…106c }
0x106c…10b1 a69f 01630 PUT KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
0x106c…10b1 LineComal80 {
0x106c…10b1 ptr = 0xa69f // 0x106c @0x0
0x106c…10b1 lno = 0x065e // 0x106e @0x2
0x106c…10b1 at0004 = ╱aa╱ PUT ╱ // 0x1070 @0x4
0x106c…10b1 at0005 = ╱4b╱K╱ // 0x1071 @0x5
0x106c…10b1 at0006 = ╱4f╱O╱ // 0x1072 @0x6
0x106c…10b1 at0007 = ╱4e╱N╱ // 0x1073 @0x7
0x106c…10b1 at0008 = ╱54╱T╱ // 0x1074 @0x8
0x106c…10b1 at0009 = ╱4f╱O╱ // 0x1075 @0x9
0x106c…10b1 at000a = ╱ef╱ $ ╱ // 0x1076 @0xa
0x106c…10b1 at000b = ╱ec╱ , ╱ // 0x1077 @0xb
0x106c…10b1 at000c = ╱50╱P╱ // 0x1078 @0xc
0x106c…10b1 at000d = ╱f1╱ : ╱ // 0x1079 @0xd
0x106c…10b1 at000e = ╱4b╱K╱ // 0x107a @0xe
0x106c…10b1 at000f = ╱54╱T╱ // 0x107b @0xf
0x106c…10b1 at0010 = ╱4f╱O╱ // 0x107c @0x10
0x106c…10b1 at0011 = ╱5f╱_╱ // 0x107d @0x11
0x106c…10b1 at0012 = ╱54╱T╱ // 0x107e @0x12
0x106c…10b1 at0013 = ╱59╱Y╱ // 0x107f @0x13
0x106c…10b1 at0014 = ╱50╱P╱ // 0x1080 @0x14
0x106c…10b1 at0015 = ╱45╱E╱ // 0x1081 @0x15
0x106c…10b1 at0016 = ╱ef╱ $ ╱ // 0x1082 @0x16
0x106c…10b1 at0017 = ╱ec╱ , ╱ // 0x1083 @0x17
0x106c…10b1 at0018 = ╱4b╱K╱ // 0x1084 @0x18
0x106c…10b1 at0019 = ╱54╱T╱ // 0x1085 @0x19
0x106c…10b1 at001a = ╱4f╱O╱ // 0x1086 @0x1a
0x106c…10b1 at001b = ╱5f╱_╱ // 0x1087 @0x1b
0x106c…10b1 at001c = ╱4e╱N╱ // 0x1088 @0x1c
0x106c…10b1 at001d = ╱41╱A╱ // 0x1089 @0x1d
0x106c…10b1 at001e = ╱56╱V╱ // 0x108a @0x1e
0x106c…10b1 at001f = ╱4e╱N╱ // 0x108b @0x1f
0x106c…10b1 at0020 = ╱ef╱ $ ╱ // 0x108c @0x20
0x106c…10b1 at0021 = ╱ec╱ , ╱ // 0x108d @0x21
0x106c…10b1 at0022 = ╱4b╱K╱ // 0x108e @0x22
0x106c…10b1 at0023 = ╱54╱T╱ // 0x108f @0x23
0x106c…10b1 at0024 = ╱4f╱O╱ // 0x1090 @0x24
0x106c…10b1 at0025 = ╱5f╱_╱ // 0x1091 @0x25
0x106c…10b1 at0026 = ╱50╱P╱ // 0x1092 @0x26
0x106c…10b1 at0027 = ╱52╱R╱ // 0x1093 @0x27
0x106c…10b1 at0028 = ╱49╱I╱ // 0x1094 @0x28
0x106c…10b1 at0029 = ╱4d╱M╱ // 0x1095 @0x29
0x106c…10b1 at002a = ╱4f╱O╱ // 0x1096 @0x2a
0x106c…10b1 at002b = ╱ec╱ , ╱ // 0x1097 @0x2b
0x106c…10b1 at002c = ╱4b╱K╱ // 0x1098 @0x2c
0x106c…10b1 at002d = ╱54╱T╱ // 0x1099 @0x2d
0x106c…10b1 at002e = ╱4f╱O╱ // 0x109a @0x2e
0x106c…10b1 at002f = ╱5f╱_╱ // 0x109b @0x2f
0x106c…10b1 at0030 = ╱55╱U╱ // 0x109c @0x30
0x106c…10b1 at0031 = ╱4c╱L╱ // 0x109d @0x31
0x106c…10b1 at0032 = ╱54╱T╱ // 0x109e @0x32
0x106c…10b1 at0033 = ╱49╱I╱ // 0x109f @0x33
0x106c…10b1 at0034 = ╱4d╱M╱ // 0x10a0 @0x34
0x106c…10b1 at0035 = ╱4f╱O╱ // 0x10a1 @0x35
0x106c…10b1 at0036 = ╱ec╱ , ╱ // 0x10a2 @0x36
0x106c…10b1 at0037 = ╱4b╱K╱ // 0x10a3 @0x37
0x106c…10b1 at0038 = ╱54╱T╱ // 0x10a4 @0x38
0x106c…10b1 at0039 = ╱4f╱O╱ // 0x10a5 @0x39
0x106c…10b1 at003a = ╱5f╱_╱ // 0x10a6 @0x3a
0x106c…10b1 at003b = ╱46╱F╱ // 0x10a7 @0x3b
0x106c…10b1 at003c = ╱50╱P╱ // 0x10a8 @0x3c
0x106c…10b1 at003d = ╱ec╱ , ╱ // 0x10a9 @0x3d
0x106c…10b1 at003e = ╱4b╱K╱ // 0x10aa @0x3e
0x106c…10b1 at003f = ╱54╱T╱ // 0x10ab @0x3f
0x106c…10b1 at0040 = ╱4f╱O╱ // 0x10ac @0x40
0x106c…10b1 at0041 = ╱5f╱_╱ // 0x10ad @0x41
0x106c…10b1 at0042 = ╱53╱S╱ // 0x10ae @0x42
0x106c…10b1 at0043 = ╱50╱P╱ // 0x10af @0x43
0x106c…10b1 at0044 = EOL // 0x10b0 @0x44
0x106c…10b1 }
0x10b1…10c2 a6b0 01640 ENDPROC SKRIV_KONTO
0x10b1…10c2 LineComal80 {
0x10b1…10c2 ptr = 0xa6b0 // 0x10b1 @0x0
0x10b1…10c2 lno = 0x0668 // 0x10b3 @0x2
0x10b1…10c2 at0004 = ╱9f╱ ENDPROC ╱ // 0x10b5 @0x4
0x10b1…10c2 at0005 = ╱53╱S╱ // 0x10b6 @0x5
0x10b1…10c2 at0006 = ╱4b╱K╱ // 0x10b7 @0x6
0x10b1…10c2 at0007 = ╱52╱R╱ // 0x10b8 @0x7
0x10b1…10c2 at0008 = ╱49╱I╱ // 0x10b9 @0x8
0x10b1…10c2 at0009 = ╱56╱V╱ // 0x10ba @0x9
0x10b1…10c2 at000a = ╱5f╱_╱ // 0x10bb @0xa
0x10b1…10c2 at000b = ╱4b╱K╱ // 0x10bc @0xb
0x10b1…10c2 at000c = ╱4f╱O╱ // 0x10bd @0xc
0x10b1…10c2 at000d = ╱4e╱N╱ // 0x10be @0xd
0x10b1…10c2 at000e = ╱54╱T╱ // 0x10bf @0xe
0x10b1…10c2 at000f = ╱4f╱O╱ // 0x10c0 @0xf
0x10b1…10c2 at0010 = EOL // 0x10c1 @0x10
0x10b1…10c2 }
0x10c2…10c7 a6b5 01650
0x10c2…10c7 LineComal80 {
0x10c2…10c7 ptr = 0xa6b5 // 0x10c2 @0x0
0x10c2…10c7 lno = 0x0672 // 0x10c4 @0x2
0x10c2…10c7 at0004 = EOL // 0x10c6 @0x4
0x10c2…10c7 }
0x10c7…10da a6c8 01660 PROC L[S_TRANS ( P )
0x10c7…10da LineComal80 {
0x10c7…10da ptr = 0xa6c8 // 0x10c7 @0x0
0x10c7…10da lno = 0x067c // 0x10c9 @0x2
0x10c7…10da at0004 = ╱9e14╱ PROC ╱ // 0x10cb @0x4
0x10c7…10da at0006 = ╱4c╱L╱ // 0x10cd @0x6
0x10c7…10da at0007 = ╱5b╱[╱ // 0x10ce @0x7
0x10c7…10da at0008 = ╱53╱S╱ // 0x10cf @0x8
0x10c7…10da at0009 = ╱5f╱_╱ // 0x10d0 @0x9
0x10c7…10da at000a = ╱54╱T╱ // 0x10d1 @0xa
0x10c7…10da at000b = ╱52╱R╱ // 0x10d2 @0xb
0x10c7…10da at000c = ╱41╱A╱ // 0x10d3 @0xc
0x10c7…10da at000d = ╱4e╱N╱ // 0x10d4 @0xd
0x10c7…10da at000e = ╱53╱S╱ // 0x10d5 @0xe
0x10c7…10da at000f = ╱ed╱ ( ╱ // 0x10d6 @0xf
0x10c7…10da at0010 = ╱50╱P╱ // 0x10d7 @0x10
0x10c7…10da at0011 = ╱ee╱ ) ╱ // 0x10d8 @0x11
0x10c7…10da at0012 = EOL // 0x10d9 @0x12
0x10c7…10da }
0x10da…111b a709 01670 GET TRANS $ , P : BKTONR $ , BDATO $ , BLGNR $ , BTXT $ , BMOMS , BBEL\B , DK , NTRANS
0x10da…111b LineComal80 {
0x10da…111b ptr = 0xa709 // 0x10da @0x0
0x10da…111b lno = 0x0686 // 0x10dc @0x2
0x10da…111b at0004 = ╱a9╱ GET ╱ // 0x10de @0x4
0x10da…111b at0005 = ╱54╱T╱ // 0x10df @0x5
0x10da…111b at0006 = ╱52╱R╱ // 0x10e0 @0x6
0x10da…111b at0007 = ╱41╱A╱ // 0x10e1 @0x7
0x10da…111b at0008 = ╱4e╱N╱ // 0x10e2 @0x8
0x10da…111b at0009 = ╱53╱S╱ // 0x10e3 @0x9
0x10da…111b at000a = ╱ef╱ $ ╱ // 0x10e4 @0xa
0x10da…111b at000b = ╱ec╱ , ╱ // 0x10e5 @0xb
0x10da…111b at000c = ╱50╱P╱ // 0x10e6 @0xc
0x10da…111b at000d = ╱f1╱ : ╱ // 0x10e7 @0xd
0x10da…111b at000e = ╱42╱B╱ // 0x10e8 @0xe
0x10da…111b at000f = ╱4b╱K╱ // 0x10e9 @0xf
0x10da…111b at0010 = ╱54╱T╱ // 0x10ea @0x10
0x10da…111b at0011 = ╱4f╱O╱ // 0x10eb @0x11
0x10da…111b at0012 = ╱4e╱N╱ // 0x10ec @0x12
0x10da…111b at0013 = ╱52╱R╱ // 0x10ed @0x13
0x10da…111b at0014 = ╱ef╱ $ ╱ // 0x10ee @0x14
0x10da…111b at0015 = ╱ec╱ , ╱ // 0x10ef @0x15
0x10da…111b at0016 = ╱42╱B╱ // 0x10f0 @0x16
0x10da…111b at0017 = ╱44╱D╱ // 0x10f1 @0x17
0x10da…111b at0018 = ╱41╱A╱ // 0x10f2 @0x18
0x10da…111b at0019 = ╱54╱T╱ // 0x10f3 @0x19
0x10da…111b at001a = ╱4f╱O╱ // 0x10f4 @0x1a
0x10da…111b at001b = ╱ef╱ $ ╱ // 0x10f5 @0x1b
0x10da…111b at001c = ╱ec╱ , ╱ // 0x10f6 @0x1c
0x10da…111b at001d = ╱42╱B╱ // 0x10f7 @0x1d
0x10da…111b at001e = ╱4c╱L╱ // 0x10f8 @0x1e
0x10da…111b at001f = ╱47╱G╱ // 0x10f9 @0x1f
0x10da…111b at0020 = ╱4e╱N╱ // 0x10fa @0x20
0x10da…111b at0021 = ╱52╱R╱ // 0x10fb @0x21
0x10da…111b at0022 = ╱ef╱ $ ╱ // 0x10fc @0x22
0x10da…111b at0023 = ╱ec╱ , ╱ // 0x10fd @0x23
0x10da…111b at0024 = ╱42╱B╱ // 0x10fe @0x24
0x10da…111b at0025 = ╱54╱T╱ // 0x10ff @0x25
0x10da…111b at0026 = ╱58╱X╱ // 0x1100 @0x26
0x10da…111b at0027 = ╱54╱T╱ // 0x1101 @0x27
0x10da…111b at0028 = ╱ef╱ $ ╱ // 0x1102 @0x28
0x10da…111b at0029 = ╱ec╱ , ╱ // 0x1103 @0x29
0x10da…111b at002a = ╱42╱B╱ // 0x1104 @0x2a
0x10da…111b at002b = ╱4d╱M╱ // 0x1105 @0x2b
0x10da…111b at002c = ╱4f╱O╱ // 0x1106 @0x2c
0x10da…111b at002d = ╱4d╱M╱ // 0x1107 @0x2d
0x10da…111b at002e = ╱53╱S╱ // 0x1108 @0x2e
0x10da…111b at002f = ╱ec╱ , ╱ // 0x1109 @0x2f
0x10da…111b at0030 = ╱42╱B╱ // 0x110a @0x30
0x10da…111b at0031 = ╱42╱B╱ // 0x110b @0x31
0x10da…111b at0032 = ╱45╱E╱ // 0x110c @0x32
0x10da…111b at0033 = ╱4c╱L╱ // 0x110d @0x33
0x10da…111b at0034 = ╱5c╱\╱ // 0x110e @0x34
0x10da…111b at0035 = ╱42╱B╱ // 0x110f @0x35
0x10da…111b at0036 = ╱ec╱ , ╱ // 0x1110 @0x36
0x10da…111b at0037 = ╱44╱D╱ // 0x1111 @0x37
0x10da…111b at0038 = ╱4b╱K╱ // 0x1112 @0x38
0x10da…111b at0039 = ╱ec╱ , ╱ // 0x1113 @0x39
0x10da…111b at003a = ╱4e╱N╱ // 0x1114 @0x3a
0x10da…111b at003b = ╱54╱T╱ // 0x1115 @0x3b
0x10da…111b at003c = ╱52╱R╱ // 0x1116 @0x3c
0x10da…111b at003d = ╱41╱A╱ // 0x1117 @0x3d
0x10da…111b at003e = ╱4e╱N╱ // 0x1118 @0x3e
0x10da…111b at003f = ╱53╱S╱ // 0x1119 @0x3f
0x10da…111b at0040 = EOL // 0x111a @0x40
0x10da…111b }
0x111b…112a a718 01680 ENDPROC L[S_TRANS
0x111b…112a LineComal80 {
0x111b…112a ptr = 0xa718 // 0x111b @0x0
0x111b…112a lno = 0x0690 // 0x111d @0x2
0x111b…112a at0004 = ╱9f╱ ENDPROC ╱ // 0x111f @0x4
0x111b…112a at0005 = ╱4c╱L╱ // 0x1120 @0x5
0x111b…112a at0006 = ╱5b╱[╱ // 0x1121 @0x6
0x111b…112a at0007 = ╱53╱S╱ // 0x1122 @0x7
0x111b…112a at0008 = ╱5f╱_╱ // 0x1123 @0x8
0x111b…112a at0009 = ╱54╱T╱ // 0x1124 @0x9
0x111b…112a at000a = ╱52╱R╱ // 0x1125 @0xa
0x111b…112a at000b = ╱41╱A╱ // 0x1126 @0xb
0x111b…112a at000c = ╱4e╱N╱ // 0x1127 @0xc
0x111b…112a at000d = ╱53╱S╱ // 0x1128 @0xd
0x111b…112a at000e = EOL // 0x1129 @0xe
0x111b…112a }
0x112a…112f a71d 01690
0x112a…112f LineComal80 {
0x112a…112f ptr = 0xa71d // 0x112a @0x0
0x112a…112f lno = 0x069a // 0x112c @0x2
0x112a…112f at0004 = EOL // 0x112e @0x4
0x112a…112f }
0x112f…1144 a732 01700 PROC ST_BGST ( REF RST $ )
0x112f…1144 LineComal80 {
0x112f…1144 ptr = 0xa732 // 0x112f @0x0
0x112f…1144 lno = 0x06a4 // 0x1131 @0x2
0x112f…1144 at0004 = ╱9e15╱ PROC ╱ // 0x1133 @0x4
0x112f…1144 at0006 = ╱53╱S╱ // 0x1135 @0x6
0x112f…1144 at0007 = ╱54╱T╱ // 0x1136 @0x7
0x112f…1144 at0008 = ╱5f╱_╱ // 0x1137 @0x8
0x112f…1144 at0009 = ╱42╱B╱ // 0x1138 @0x9
0x112f…1144 at000a = ╱47╱G╱ // 0x1139 @0xa
0x112f…1144 at000b = ╱53╱S╱ // 0x113a @0xb
0x112f…1144 at000c = ╱54╱T╱ // 0x113b @0xc
0x112f…1144 at000d = ╱ed╱ ( ╱ // 0x113c @0xd
0x112f…1144 at000e = ╱b6╱ REF ╱ // 0x113d @0xe
0x112f…1144 at000f = ╱52╱R╱ // 0x113e @0xf
0x112f…1144 at0010 = ╱53╱S╱ // 0x113f @0x10
0x112f…1144 at0011 = ╱54╱T╱ // 0x1140 @0x11
0x112f…1144 at0012 = ╱ef╱ $ ╱ // 0x1141 @0x12
0x112f…1144 at0013 = ╱ee╱ ) ╱ // 0x1142 @0x13
0x112f…1144 at0014 = EOL // 0x1143 @0x14
0x112f…1144 }
0x1144…115a a748 01710 FOR I := 1 TO ( RST $ ) DO
0x1144…115a LineComal80 {
0x1144…115a ptr = 0xa748 // 0x1144 @0x0
0x1144…115a lno = 0x06ae // 0x1146 @0x2
0x1144…115a at0004 = ╱8316╱ FOR ╱ // 0x1148 @0x4
0x1144…115a at0006 = ╱49╱I╱ // 0x114a @0x6
0x1144…115a at0007 = ╱f0╱ := ╱ // 0x114b @0x7
0x1144…115a at0008 = ╱31╱1╱ // 0x114c @0x8
0x1144…115a at0009 = ╱f20100╱ // 0x114d @0x9
0x1144…115a at000c = ╱b7cb╱ TO ╱ // 0x1150 @0xc
0x1144…115a at000e = ╱ed╱ ( ╱ // 0x1152 @0xe
0x1144…115a at000f = ╱52╱R╱ // 0x1153 @0xf
0x1144…115a at0010 = ╱53╱S╱ // 0x1154 @0x10
0x1144…115a at0011 = ╱54╱T╱ // 0x1155 @0x11
0x1144…115a at0012 = ╱ef╱ $ ╱ // 0x1156 @0x12
0x1144…115a at0013 = ╱ee╱ ) ╱ // 0x1157 @0x13
0x1144…115a at0014 = ╱bb╱ DO ╱ // 0x1158 @0x14
0x1144…115a at0015 = EOL // 0x1159 @0x15
0x1144…115a }
0x115a…1195 a783 01720 IF RST $ ( I ) =< "}" AND RST $ ( I ) >= "a" THEN LET RST $ ( I ) := CHR$ ( ╱cc╱ ( RST $ ( I ) ) - 32 )
0x115a…1195 LineComal80 {
0x115a…1195 ptr = 0xa783 // 0x115a @0x0
0x115a…1195 lno = 0x06b8 // 0x115c @0x2
0x115a…1195 at0004 = ╱8200╱ IF ╱ // 0x115e @0x4
0x115a…1195 at0006 = ╱52╱R╱ // 0x1160 @0x6
0x115a…1195 at0007 = ╱53╱S╱ // 0x1161 @0x7
0x115a…1195 at0008 = ╱54╱T╱ // 0x1162 @0x8
0x115a…1195 at0009 = ╱ef╱ $ ╱ // 0x1163 @0x9
0x115a…1195 at000a = ╱ed╱ ( ╱ // 0x1164 @0xa
0x115a…1195 at000b = ╱49╱I╱ // 0x1165 @0xb
0x115a…1195 at000c = ╱ee╱ ) ╱ // 0x1166 @0xc
0x115a…1195 at000d = ╱e2╱ =< ╱ // 0x1167 @0xd
0x115a…1195 at000e = ╱22╱"╱ // 0x1168 @0xe
0x115a…1195 at000f = ╱7d╱}╱ // 0x1169 @0xf
0x115a…1195 at0010 = ╱22╱"╱ // 0x116a @0x10
0x115a…1195 at0011 = ╱d9╱ AND ╱ // 0x116b @0x11
0x115a…1195 at0012 = ╱52╱R╱ // 0x116c @0x12
0x115a…1195 at0013 = ╱53╱S╱ // 0x116d @0x13
0x115a…1195 at0014 = ╱54╱T╱ // 0x116e @0x14
0x115a…1195 at0015 = ╱ef╱ $ ╱ // 0x116f @0x15
0x115a…1195 at0016 = ╱ed╱ ( ╱ // 0x1170 @0x16
0x115a…1195 at0017 = ╱49╱I╱ // 0x1171 @0x17
0x115a…1195 at0018 = ╱ee╱ ) ╱ // 0x1172 @0x18
0x115a…1195 at0019 = ╱e3╱ >= ╱ // 0x1173 @0x19
0x115a…1195 at001a = ╱22╱"╱ // 0x1174 @0x1a
0x115a…1195 at001b = ╱61╱a╱ // 0x1175 @0x1b
0x115a…1195 at001c = ╱22╱"╱ // 0x1176 @0x1c
0x115a…1195 at001d = ╱b5╱ THEN ╱ // 0x1177 @0x1d
0x115a…1195 at001e = ╱86╱ LET ╱ // 0x1178 @0x1e
0x115a…1195 at001f = ╱52╱R╱ // 0x1179 @0x1f
0x115a…1195 at0020 = ╱53╱S╱ // 0x117a @0x20
0x115a…1195 at0021 = ╱54╱T╱ // 0x117b @0x21
0x115a…1195 at0022 = ╱ef╱ $ ╱ // 0x117c @0x22
0x115a…1195 at0023 = ╱ed╱ ( ╱ // 0x117d @0x23
0x115a…1195 at0024 = ╱49╱I╱ // 0x117e @0x24
0x115a…1195 at0025 = ╱ee╱ ) ╱ // 0x117f @0x25
0x115a…1195 at0026 = ╱f0╱ := ╱ // 0x1180 @0x26
0x115a…1195 at0027 = ╱d0╱ CHR$ ╱ // 0x1181 @0x27
0x115a…1195 at0028 = ╱ed╱ ( ╱ // 0x1182 @0x28
0x115a…1195 at0029 = ╱cc╱ // 0x1183 @0x29
0x115a…1195 at002a = ╱ed╱ ( ╱ // 0x1184 @0x2a
0x115a…1195 at002b = ╱52╱R╱ // 0x1185 @0x2b
0x115a…1195 at002c = ╱53╱S╱ // 0x1186 @0x2c
0x115a…1195 at002d = ╱54╱T╱ // 0x1187 @0x2d
0x115a…1195 at002e = ╱ef╱ $ ╱ // 0x1188 @0x2e
0x115a…1195 at002f = ╱ed╱ ( ╱ // 0x1189 @0x2f
0x115a…1195 at0030 = ╱49╱I╱ // 0x118a @0x30
0x115a…1195 at0031 = ╱ee╱ ) ╱ // 0x118b @0x31
0x115a…1195 at0032 = ╱ee╱ ) ╱ // 0x118c @0x32
0x115a…1195 at0033 = ╱e6╱ - ╱ // 0x118d @0x33
0x115a…1195 at0034 = ╱33╱3╱ // 0x118e @0x34
0x115a…1195 at0035 = ╱32╱2╱ // 0x118f @0x35
0x115a…1195 at0036 = ╱f22000╱ // 0x1190 @0x36
0x115a…1195 at0039 = ╱ee╱ ) ╱ // 0x1193 @0x39
0x115a…1195 at003a = EOL // 0x1194 @0x3a
0x115a…1195 }
0x1195…119c a78a 01730 NEXT I
0x1195…119c LineComal80 {
0x1195…119c ptr = 0xa78a // 0x1195 @0x0
0x1195…119c lno = 0x06c2 // 0x1197 @0x2
0x1195…119c at0004 = ╱84╱ NEXT ╱ // 0x1199 @0x4
0x1195…119c at0005 = ╱49╱I╱ // 0x119a @0x5
0x1195…119c at0006 = EOL // 0x119b @0x6
0x1195…119c }
0x119c…11a9 a797 01740 ENDPROC ST_BGST
0x119c…11a9 LineComal80 {
0x119c…11a9 ptr = 0xa797 // 0x119c @0x0
0x119c…11a9 lno = 0x06cc // 0x119e @0x2
0x119c…11a9 at0004 = ╱9f╱ ENDPROC ╱ // 0x11a0 @0x4
0x119c…11a9 at0005 = ╱53╱S╱ // 0x11a1 @0x5
0x119c…11a9 at0006 = ╱54╱T╱ // 0x11a2 @0x6
0x119c…11a9 at0007 = ╱5f╱_╱ // 0x11a3 @0x7
0x119c…11a9 at0008 = ╱42╱B╱ // 0x11a4 @0x8
0x119c…11a9 at0009 = ╱47╱G╱ // 0x11a5 @0x9
0x119c…11a9 at000a = ╱53╱S╱ // 0x11a6 @0xa
0x119c…11a9 at000b = ╱54╱T╱ // 0x11a7 @0xb
0x119c…11a9 at000c = EOL // 0x11a8 @0xc
0x119c…11a9 }
0x11a9…11ae a79c 01750
0x11a9…11ae LineComal80 {
0x11a9…11ae ptr = 0xa79c // 0x11a9 @0x0
0x11a9…11ae lno = 0x06d6 // 0x11ab @0x2
0x11a9…11ae at0004 = EOL // 0x11ad @0x4
0x11a9…11ae }
0x11ae…11c8 a7b6 01760 PROC FIND_KTO ( REF R_KTONR $ )
0x11ae…11c8 LineComal80 {
0x11ae…11c8 ptr = 0xa7b6 // 0x11ae @0x0
0x11ae…11c8 lno = 0x06e0 // 0x11b0 @0x2
0x11ae…11c8 at0004 = ╱9e17╱ PROC ╱ // 0x11b2 @0x4
0x11ae…11c8 at0006 = ╱46╱F╱ // 0x11b4 @0x6
0x11ae…11c8 at0007 = ╱49╱I╱ // 0x11b5 @0x7
0x11ae…11c8 at0008 = ╱4e╱N╱ // 0x11b6 @0x8
0x11ae…11c8 at0009 = ╱44╱D╱ // 0x11b7 @0x9
0x11ae…11c8 at000a = ╱5f╱_╱ // 0x11b8 @0xa
0x11ae…11c8 at000b = ╱4b╱K╱ // 0x11b9 @0xb
0x11ae…11c8 at000c = ╱54╱T╱ // 0x11ba @0xc
0x11ae…11c8 at000d = ╱4f╱O╱ // 0x11bb @0xd
0x11ae…11c8 at000e = ╱ed╱ ( ╱ // 0x11bc @0xe
0x11ae…11c8 at000f = ╱b6╱ REF ╱ // 0x11bd @0xf
0x11ae…11c8 at0010 = ╱52╱R╱ // 0x11be @0x10
0x11ae…11c8 at0011 = ╱5f╱_╱ // 0x11bf @0x11
0x11ae…11c8 at0012 = ╱4b╱K╱ // 0x11c0 @0x12
0x11ae…11c8 at0013 = ╱54╱T╱ // 0x11c1 @0x13
0x11ae…11c8 at0014 = ╱4f╱O╱ // 0x11c2 @0x14
0x11ae…11c8 at0015 = ╱4e╱N╱ // 0x11c3 @0x15
0x11ae…11c8 at0016 = ╱52╱R╱ // 0x11c4 @0x16
0x11ae…11c8 at0017 = ╱ef╱ $ ╱ // 0x11c5 @0x17
0x11ae…11c8 at0018 = ╱ee╱ ) ╱ // 0x11c6 @0x18
0x11ae…11c8 at0019 = EOL // 0x11c7 @0x19
0x11ae…11c8 }
0x11c8…11d6 a7c4 01770 LET OK := FALSE
0x11c8…11d6 LineComal80 {
0x11c8…11d6 ptr = 0xa7c4 // 0x11c8 @0x0
0x11c8…11d6 lno = 0x06ea // 0x11ca @0x2
0x11c8…11d6 at0004 = ╱86╱ LET ╱ // 0x11cc @0x4
0x11c8…11d6 at0005 = ╱4f╱O╱ // 0x11cd @0x5
0x11c8…11d6 at0006 = ╱4b╱K╱ // 0x11ce @0x6
0x11c8…11d6 at0007 = ╱f0╱ := ╱ // 0x11cf @0x7
0x11c8…11d6 at0008 = ╱46╱F╱ // 0x11d0 @0x8
0x11c8…11d6 at0009 = ╱41╱A╱ // 0x11d1 @0x9
0x11c8…11d6 at000a = ╱4c╱L╱ // 0x11d2 @0xa
0x11c8…11d6 at000b = ╱53╱S╱ // 0x11d3 @0xb
0x11c8…11d6 at000c = ╱45╱E╱ // 0x11d4 @0xc
0x11c8…11d6 at000d = EOL // 0x11d5 @0xd
0x11c8…11d6 }
0x11d6…11fa a7e8 01780 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
0x11d6…11fa LineComal80 {
0x11d6…11fa ptr = 0xa7e8 // 0x11d6 @0x0
0x11d6…11fa lno = 0x06f4 // 0x11d8 @0x2
0x11d6…11fa at0004 = ╱a9╱ GET ╱ // 0x11da @0x4
0x11d6…11fa at0005 = ╱4b╱K╱ // 0x11db @0x5
0x11d6…11fa at0006 = ╱54╱T╱ // 0x11dc @0x6
0x11d6…11fa at0007 = ╱4f╱O╱ // 0x11dd @0x7
0x11d6…11fa at0008 = ╱49╱I╱ // 0x11de @0x8
0x11d6…11fa at0009 = ╱44╱D╱ // 0x11df @0x9
0x11d6…11fa at000a = ╱58╱X╱ // 0x11e0 @0xa
0x11d6…11fa at000b = ╱ef╱ $ ╱ // 0x11e1 @0xb
0x11d6…11fa at000c = ╱ec╱ , ╱ // 0x11e2 @0xc
0x11d6…11fa at000d = ╱31╱1╱ // 0x11e3 @0xd
0x11d6…11fa at000e = ╱f20100╱ // 0x11e4 @0xe
0x11d6…11fa at0011 = ╱f1╱ : ╱ // 0x11e7 @0x11
0x11d6…11fa at0012 = ╱49╱I╱ // 0x11e8 @0x12
0x11d6…11fa at0013 = ╱5f╱_╱ // 0x11e9 @0x13
0x11d6…11fa at0014 = ╱48╱H╱ // 0x11ea @0x14
0x11d6…11fa at0015 = ╱5c╱\╱ // 0x11eb @0x15
0x11d6…11fa at0016 = ╱4a╱J╱ // 0x11ec @0x16
0x11d6…11fa at0017 = ╱52╱R╱ // 0x11ed @0x17
0x11d6…11fa at0018 = ╱45╱E╱ // 0x11ee @0x18
0x11d6…11fa at0019 = ╱43╱C╱ // 0x11ef @0x19
0x11d6…11fa at001a = ╱ec╱ , ╱ // 0x11f0 @0x1a
0x11d6…11fa at001b = ╱49╱I╱ // 0x11f1 @0x1b
0x11d6…11fa at001c = ╱5f╱_╱ // 0x11f2 @0x1c
0x11d6…11fa at001d = ╱4d╱M╱ // 0x11f3 @0x1d
0x11d6…11fa at001e = ╱41╱A╱ // 0x11f4 @0x1e
0x11d6…11fa at001f = ╱58╱X╱ // 0x11f5 @0x1f
0x11d6…11fa at0020 = ╱52╱R╱ // 0x11f6 @0x20
0x11d6…11fa at0021 = ╱45╱E╱ // 0x11f7 @0x21
0x11d6…11fa at0022 = ╱43╱C╱ // 0x11f8 @0x22
0x11d6…11fa at0023 = EOL // 0x11f9 @0x23
0x11d6…11fa }
0x11fa…1224 a812 01790 LET LOW := 1 ; HIGH := I_H\JREC + 1 ; POS := 2
0x11fa…1224 LineComal80 {
0x11fa…1224 ptr = 0xa812 // 0x11fa @0x0
0x11fa…1224 lno = 0x06fe // 0x11fc @0x2
0x11fa…1224 at0004 = ╱86╱ LET ╱ // 0x11fe @0x4
0x11fa…1224 at0005 = ╱4c╱L╱ // 0x11ff @0x5
0x11fa…1224 at0006 = ╱4f╱O╱ // 0x1200 @0x6
0x11fa…1224 at0007 = ╱57╱W╱ // 0x1201 @0x7
0x11fa…1224 at0008 = ╱f0╱ := ╱ // 0x1202 @0x8
0x11fa…1224 at0009 = ╱31╱1╱ // 0x1203 @0x9
0x11fa…1224 at000a = ╱f20100╱ // 0x1204 @0xa
0x11fa…1224 at000d = ╱ea╱ ; ╱ // 0x1207 @0xd
0x11fa…1224 at000e = ╱48╱H╱ // 0x1208 @0xe
0x11fa…1224 at000f = ╱49╱I╱ // 0x1209 @0xf
0x11fa…1224 at0010 = ╱47╱G╱ // 0x120a @0x10
0x11fa…1224 at0011 = ╱48╱H╱ // 0x120b @0x11
0x11fa…1224 at0012 = ╱f0╱ := ╱ // 0x120c @0x12
0x11fa…1224 at0013 = ╱49╱I╱ // 0x120d @0x13
0x11fa…1224 at0014 = ╱5f╱_╱ // 0x120e @0x14
0x11fa…1224 at0015 = ╱48╱H╱ // 0x120f @0x15
0x11fa…1224 at0016 = ╱5c╱\╱ // 0x1210 @0x16
0x11fa…1224 at0017 = ╱4a╱J╱ // 0x1211 @0x17
0x11fa…1224 at0018 = ╱52╱R╱ // 0x1212 @0x18
0x11fa…1224 at0019 = ╱45╱E╱ // 0x1213 @0x19
0x11fa…1224 at001a = ╱43╱C╱ // 0x1214 @0x1a
0x11fa…1224 at001b = ╱e5╱ + ╱ // 0x1215 @0x1b
0x11fa…1224 at001c = ╱31╱1╱ // 0x1216 @0x1c
0x11fa…1224 at001d = ╱f20100╱ // 0x1217 @0x1d
0x11fa…1224 at0020 = ╱ea╱ ; ╱ // 0x121a @0x20
0x11fa…1224 at0021 = ╱50╱P╱ // 0x121b @0x21
0x11fa…1224 at0022 = ╱4f╱O╱ // 0x121c @0x22
0x11fa…1224 at0023 = ╱53╱S╱ // 0x121d @0x23
0x11fa…1224 at0024 = ╱f0╱ := ╱ // 0x121e @0x24
0x11fa…1224 at0025 = ╱32╱2╱ // 0x121f @0x25
0x11fa…1224 at0026 = ╱f20200╱ // 0x1220 @0x26
0x11fa…1224 at0029 = EOL // 0x1223 @0x29
0x11fa…1224 }
0x1224…1235 a823 01800 IF IGH > 1 THEN
0x1224…1235 LineComal80 {
0x1224…1235 ptr = 0xa823 // 0x1224 @0x0
0x1224…1235 lno = 0x0708 // 0x1226 @0x2
0x1224…1235 at0004 = ╱9b1848╱ IF ╱ // 0x1228 @0x4
0x1224…1235 at0007 = ╱49╱I╱ // 0x122b @0x7
0x1224…1235 at0008 = ╱47╱G╱ // 0x122c @0x8
0x1224…1235 at0009 = ╱48╱H╱ // 0x122d @0x9
0x1224…1235 at000a = ╱e1╱ > ╱ // 0x122e @0xa
0x1224…1235 at000b = ╱31╱1╱ // 0x122f @0xb
0x1224…1235 at000c = ╱f20100╱ // 0x1230 @0xc
0x1224…1235 at000f = ╱b5╱ THEN ╱ // 0x1233 @0xf
0x1224…1235 at0010 = EOL // 0x1234 @0x10
0x1224…1235 }
0x1235…123c a82a 01810 REPEAT
0x1235…123c LineComal80 {
0x1235…123c ptr = 0xa82a // 0x1235 @0x0
0x1235…123c lno = 0x0712 // 0x1237 @0x2
0x1235…123c at0004 = ╱9719╱ REPEAT ╱ // 0x1239 @0x4
0x1235…123c at0006 = EOL // 0x123b @0x6
0x1235…123c }
0x123c…1268 a856 01820 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
0x123c…1268 LineComal80 {
0x123c…1268 ptr = 0xa856 // 0x123c @0x0
0x123c…1268 lno = 0x071c // 0x123e @0x2
0x123c…1268 at0004 = ╱86╱ LET ╱ // 0x1240 @0x4
0x123c…1268 at0005 = ╱50╱P╱ // 0x1241 @0x5
0x123c…1268 at0006 = ╱4f╱O╱ // 0x1242 @0x6
0x123c…1268 at0007 = ╱53╱S╱ // 0x1243 @0x7
0x123c…1268 at0008 = ╱f0╱ := ╱ // 0x1244 @0x8
0x123c…1268 at0009 = ╱c6╱ INT ╱ // 0x1245 @0x9
0x123c…1268 at000a = ╱ed╱ ( ╱ // 0x1246 @0xa
0x123c…1268 at000b = ╱ed╱ ( ╱ // 0x1247 @0xb
0x123c…1268 at000c = ╱48╱H╱ // 0x1248 @0xc
0x123c…1268 at000d = ╱49╱I╱ // 0x1249 @0xd
0x123c…1268 at000e = ╱47╱G╱ // 0x124a @0xe
0x123c…1268 at000f = ╱48╱H╱ // 0x124b @0xf
0x123c…1268 at0010 = ╱e6╱ - ╱ // 0x124c @0x10
0x123c…1268 at0011 = ╱4c╱L╱ // 0x124d @0x11
0x123c…1268 at0012 = ╱4f╱O╱ // 0x124e @0x12
0x123c…1268 at0013 = ╱57╱W╱ // 0x124f @0x13
0x123c…1268 at0014 = ╱ee╱ ) ╱ // 0x1250 @0x14
0x123c…1268 at0015 = ╱e8╱ / ╱ // 0x1251 @0x15
0x123c…1268 at0016 = ╱32╱2╱ // 0x1252 @0x16
0x123c…1268 at0017 = ╱f20200╱ // 0x1253 @0x17
0x123c…1268 at001a = ╱e5╱ + ╱ // 0x1256 @0x1a
0x123c…1268 at001b = ╱2e╱.╱ // 0x1257 @0x1b
0x123c…1268 at001c = ╱35╱5╱ // 0x1258 @0x1c
0x123c…1268 at001d = ╱f88000000000000005╱ // 0x1259 @0x1d
0x123c…1268 at0026 = ╱ee╱ ) ╱ // 0x1262 @0x26
0x123c…1268 at0027 = ╱e5╱ + ╱ // 0x1263 @0x27
0x123c…1268 at0028 = ╱4c╱L╱ // 0x1264 @0x28
0x123c…1268 at0029 = ╱4f╱O╱ // 0x1265 @0x29
0x123c…1268 at002a = ╱57╱W╱ // 0x1266 @0x2a
0x123c…1268 at002b = EOL // 0x1267 @0x2b
0x123c…1268 }
0x1268…1286 a874 01830 GET KTOIDX $ , POS : KTONR $ , RECNR
0x1268…1286 LineComal80 {
0x1268…1286 ptr = 0xa874 // 0x1268 @0x0
0x1268…1286 lno = 0x0726 // 0x126a @0x2
0x1268…1286 at0004 = ╱a9╱ GET ╱ // 0x126c @0x4
0x1268…1286 at0005 = ╱4b╱K╱ // 0x126d @0x5
0x1268…1286 at0006 = ╱54╱T╱ // 0x126e @0x6
0x1268…1286 at0007 = ╱4f╱O╱ // 0x126f @0x7
0x1268…1286 at0008 = ╱49╱I╱ // 0x1270 @0x8
0x1268…1286 at0009 = ╱44╱D╱ // 0x1271 @0x9
0x1268…1286 at000a = ╱58╱X╱ // 0x1272 @0xa
0x1268…1286 at000b = ╱ef╱ $ ╱ // 0x1273 @0xb
0x1268…1286 at000c = ╱ec╱ , ╱ // 0x1274 @0xc
0x1268…1286 at000d = ╱50╱P╱ // 0x1275 @0xd
0x1268…1286 at000e = ╱4f╱O╱ // 0x1276 @0xe
0x1268…1286 at000f = ╱53╱S╱ // 0x1277 @0xf
0x1268…1286 at0010 = ╱f1╱ : ╱ // 0x1278 @0x10
0x1268…1286 at0011 = ╱4b╱K╱ // 0x1279 @0x11
0x1268…1286 at0012 = ╱54╱T╱ // 0x127a @0x12
0x1268…1286 at0013 = ╱4f╱O╱ // 0x127b @0x13
0x1268…1286 at0014 = ╱4e╱N╱ // 0x127c @0x14
0x1268…1286 at0015 = ╱52╱R╱ // 0x127d @0x15
0x1268…1286 at0016 = ╱ef╱ $ ╱ // 0x127e @0x16
0x1268…1286 at0017 = ╱ec╱ , ╱ // 0x127f @0x17
0x1268…1286 at0018 = ╱52╱R╱ // 0x1280 @0x18
0x1268…1286 at0019 = ╱45╱E╱ // 0x1281 @0x19
0x1268…1286 at001a = ╱43╱C╱ // 0x1282 @0x1a
0x1268…1286 at001b = ╱4e╱N╱ // 0x1283 @0x1b
0x1268…1286 at001c = ╱52╱R╱ // 0x1284 @0x1c
0x1268…1286 at001d = EOL // 0x1285 @0x1d
0x1268…1286 }
0x1286…129d a88b 01840 IF TONR $ > R_KTONR $ THEN
0x1286…129d LineComal80 {
0x1286…129d ptr = 0xa88b // 0x1286 @0x0
0x1286…129d lno = 0x0730 // 0x1288 @0x2
0x1286…129d at0004 = ╱9b1a4b╱ IF ╱ // 0x128a @0x4
0x1286…129d at0007 = ╱54╱T╱ // 0x128d @0x7
0x1286…129d at0008 = ╱4f╱O╱ // 0x128e @0x8
0x1286…129d at0009 = ╱4e╱N╱ // 0x128f @0x9
0x1286…129d at000a = ╱52╱R╱ // 0x1290 @0xa
0x1286…129d at000b = ╱ef╱ $ ╱ // 0x1291 @0xb
0x1286…129d at000c = ╱e1╱ > ╱ // 0x1292 @0xc
0x1286…129d at000d = ╱52╱R╱ // 0x1293 @0xd
0x1286…129d at000e = ╱5f╱_╱ // 0x1294 @0xe
0x1286…129d at000f = ╱4b╱K╱ // 0x1295 @0xf
0x1286…129d at0010 = ╱54╱T╱ // 0x1296 @0x10
0x1286…129d at0011 = ╱4f╱O╱ // 0x1297 @0x11
0x1286…129d at0012 = ╱4e╱N╱ // 0x1298 @0x12
0x1286…129d at0013 = ╱52╱R╱ // 0x1299 @0x13
0x1286…129d at0014 = ╱ef╱ $ ╱ // 0x129a @0x14
0x1286…129d at0015 = ╱b5╱ THEN ╱ // 0x129b @0x15
0x1286…129d at0016 = EOL // 0x129c @0x16
0x1286…129d }
0x129d…12ab a899 01850 LET HIGH := POS
0x129d…12ab LineComal80 {
0x129d…12ab ptr = 0xa899 // 0x129d @0x0
0x129d…12ab lno = 0x073a // 0x129f @0x2
0x129d…12ab at0004 = ╱86╱ LET ╱ // 0x12a1 @0x4
0x129d…12ab at0005 = ╱48╱H╱ // 0x12a2 @0x5
0x129d…12ab at0006 = ╱49╱I╱ // 0x12a3 @0x6
0x129d…12ab at0007 = ╱47╱G╱ // 0x12a4 @0x7
0x129d…12ab at0008 = ╱48╱H╱ // 0x12a5 @0x8
0x129d…12ab at0009 = ╱f0╱ := ╱ // 0x12a6 @0x9
0x129d…12ab at000a = ╱50╱P╱ // 0x12a7 @0xa
0x129d…12ab at000b = ╱4f╱O╱ // 0x12a8 @0xb
0x129d…12ab at000c = ╱53╱S╱ // 0x12a9 @0xc
0x129d…12ab at000d = EOL // 0x12aa @0xd
0x129d…12ab }
0x12ab…12b2 a8a0 01860 ELSE
0x12ab…12b2 LineComal80 {
0x12ab…12b2 ptr = 0xa8a0 // 0x12ab @0x0
0x12ab…12b2 lno = 0x0744 // 0x12ad @0x2
0x12ab…12b2 at0004 = ╱9a1b╱ ELSE ╱ // 0x12af @0x4
0x12ab…12b2 at0006 = EOL // 0x12b1 @0x6
0x12ab…12b2 }
0x12b2…12c9 a8b7 01870 IF TONR $ < R_KTONR $ THEN
0x12b2…12c9 LineComal80 {
0x12b2…12c9 ptr = 0xa8b7 // 0x12b2 @0x0
0x12b2…12c9 lno = 0x074e // 0x12b4 @0x2
0x12b2…12c9 at0004 = ╱9b1c4b╱ IF ╱ // 0x12b6 @0x4
0x12b2…12c9 at0007 = ╱54╱T╱ // 0x12b9 @0x7
0x12b2…12c9 at0008 = ╱4f╱O╱ // 0x12ba @0x8
0x12b2…12c9 at0009 = ╱4e╱N╱ // 0x12bb @0x9
0x12b2…12c9 at000a = ╱52╱R╱ // 0x12bc @0xa
0x12b2…12c9 at000b = ╱ef╱ $ ╱ // 0x12bd @0xb
0x12b2…12c9 at000c = ╱e0╱ < ╱ // 0x12be @0xc
0x12b2…12c9 at000d = ╱52╱R╱ // 0x12bf @0xd
0x12b2…12c9 at000e = ╱5f╱_╱ // 0x12c0 @0xe
0x12b2…12c9 at000f = ╱4b╱K╱ // 0x12c1 @0xf
0x12b2…12c9 at0010 = ╱54╱T╱ // 0x12c2 @0x10
0x12b2…12c9 at0011 = ╱4f╱O╱ // 0x12c3 @0x11
0x12b2…12c9 at0012 = ╱4e╱N╱ // 0x12c4 @0x12
0x12b2…12c9 at0013 = ╱52╱R╱ // 0x12c5 @0x13
0x12b2…12c9 at0014 = ╱ef╱ $ ╱ // 0x12c6 @0x14
0x12b2…12c9 at0015 = ╱b5╱ THEN ╱ // 0x12c7 @0x15
0x12b2…12c9 at0016 = EOL // 0x12c8 @0x16
0x12b2…12c9 }
0x12c9…12d6 a8c4 01880 LET LOW := POS
0x12c9…12d6 LineComal80 {
0x12c9…12d6 ptr = 0xa8c4 // 0x12c9 @0x0
0x12c9…12d6 lno = 0x0758 // 0x12cb @0x2
0x12c9…12d6 at0004 = ╱86╱ LET ╱ // 0x12cd @0x4
0x12c9…12d6 at0005 = ╱4c╱L╱ // 0x12ce @0x5
0x12c9…12d6 at0006 = ╱4f╱O╱ // 0x12cf @0x6
0x12c9…12d6 at0007 = ╱57╱W╱ // 0x12d0 @0x7
0x12c9…12d6 at0008 = ╱f0╱ := ╱ // 0x12d1 @0x8
0x12c9…12d6 at0009 = ╱50╱P╱ // 0x12d2 @0x9
0x12c9…12d6 at000a = ╱4f╱O╱ // 0x12d3 @0xa
0x12c9…12d6 at000b = ╱53╱S╱ // 0x12d4 @0xb
0x12c9…12d6 at000c = EOL // 0x12d5 @0xc
0x12c9…12d6 }
0x12d6…12dc a8ca 01890 ENDIF
0x12d6…12dc LineComal80 {
0x12d6…12dc ptr = 0xa8ca // 0x12d6 @0x0
0x12d6…12dc lno = 0x0762 // 0x12d8 @0x2
0x12d6…12dc at0004 = ╱9c╱ ENDIF ╱ // 0x12da @0x4
0x12d6…12dc at0005 = EOL // 0x12db @0x5
0x12d6…12dc }
0x12dc…12e2 a8d0 01900 ENDIF
0x12dc…12e2 LineComal80 {
0x12dc…12e2 ptr = 0xa8d0 // 0x12dc @0x0
0x12dc…12e2 lno = 0x076c // 0x12de @0x2
0x12dc…12e2 at0004 = ╱9c╱ ENDIF ╱ // 0x12e0 @0x4
0x12dc…12e2 at0005 = EOL // 0x12e1 @0x5
0x12dc…12e2 }
0x12e2…1305 a8f3 01910 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
0x12e2…1305 LineComal80 {
0x12e2…1305 ptr = 0xa8f3 // 0x12e2 @0x0
0x12e2…1305 lno = 0x0776 // 0x12e4 @0x2
0x12e2…1305 at0004 = ╱98╱ UNTIL ╱ // 0x12e6 @0x4
0x12e2…1305 at0005 = ╱48╱H╱ // 0x12e7 @0x5
0x12e2…1305 at0006 = ╱49╱I╱ // 0x12e8 @0x6
0x12e2…1305 at0007 = ╱47╱G╱ // 0x12e9 @0x7
0x12e2…1305 at0008 = ╱48╱H╱ // 0x12ea @0x8
0x12e2…1305 at0009 = ╱e6╱ - ╱ // 0x12eb @0x9
0x12e2…1305 at000a = ╱4c╱L╱ // 0x12ec @0xa
0x12e2…1305 at000b = ╱4f╱O╱ // 0x12ed @0xb
0x12e2…1305 at000c = ╱57╱W╱ // 0x12ee @0xc
0x12e2…1305 at000d = ╱e2╱ =< ╱ // 0x12ef @0xd
0x12e2…1305 at000e = ╱31╱1╱ // 0x12f0 @0xe
0x12e2…1305 at000f = ╱f20100╱ // 0x12f1 @0xf
0x12e2…1305 at0012 = ╱d8╱ OR ╱ // 0x12f4 @0x12
0x12e2…1305 at0013 = ╱52╱R╱ // 0x12f5 @0x13
0x12e2…1305 at0014 = ╱5f╱_╱ // 0x12f6 @0x14
0x12e2…1305 at0015 = ╱4b╱K╱ // 0x12f7 @0x15
0x12e2…1305 at0016 = ╱54╱T╱ // 0x12f8 @0x16
0x12e2…1305 at0017 = ╱4f╱O╱ // 0x12f9 @0x17
0x12e2…1305 at0018 = ╱4e╱N╱ // 0x12fa @0x18
0x12e2…1305 at0019 = ╱52╱R╱ // 0x12fb @0x19
0x12e2…1305 at001a = ╱ef╱ $ ╱ // 0x12fc @0x1a
0x12e2…1305 at001b = ╱df╱ = ╱ // 0x12fd @0x1b
0x12e2…1305 at001c = ╱4b╱K╱ // 0x12fe @0x1c
0x12e2…1305 at001d = ╱54╱T╱ // 0x12ff @0x1d
0x12e2…1305 at001e = ╱4f╱O╱ // 0x1300 @0x1e
0x12e2…1305 at001f = ╱4e╱N╱ // 0x1301 @0x1f
0x12e2…1305 at0020 = ╱52╱R╱ // 0x1302 @0x20
0x12e2…1305 at0021 = ╱ef╱ $ ╱ // 0x1303 @0x21
0x12e2…1305 at0022 = EOL // 0x1304 @0x22
0x12e2…1305 }
0x1305…1324 a912 01920 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
0x1305…1324 LineComal80 {
0x1305…1324 ptr = 0xa912 // 0x1305 @0x0
0x1305…1324 lno = 0x0780 // 0x1307 @0x2
0x1305…1324 at0004 = ╱8200╱ IF ╱ // 0x1309 @0x4
0x1305…1324 at0006 = ╱4b╱K╱ // 0x130b @0x6
0x1305…1324 at0007 = ╱54╱T╱ // 0x130c @0x7
0x1305…1324 at0008 = ╱4f╱O╱ // 0x130d @0x8
0x1305…1324 at0009 = ╱4e╱N╱ // 0x130e @0x9
0x1305…1324 at000a = ╱52╱R╱ // 0x130f @0xa
0x1305…1324 at000b = ╱ef╱ $ ╱ // 0x1310 @0xb
0x1305…1324 at000c = ╱df╱ = ╱ // 0x1311 @0xc
0x1305…1324 at000d = ╱52╱R╱ // 0x1312 @0xd
0x1305…1324 at000e = ╱5f╱_╱ // 0x1313 @0xe
0x1305…1324 at000f = ╱4b╱K╱ // 0x1314 @0xf
0x1305…1324 at0010 = ╱54╱T╱ // 0x1315 @0x10
0x1305…1324 at0011 = ╱4f╱O╱ // 0x1316 @0x11
0x1305…1324 at0012 = ╱4e╱N╱ // 0x1317 @0x12
0x1305…1324 at0013 = ╱52╱R╱ // 0x1318 @0x13
0x1305…1324 at0014 = ╱ef╱ $ ╱ // 0x1319 @0x14
0x1305…1324 at0015 = ╱b5╱ THEN ╱ // 0x131a @0x15
0x1305…1324 at0016 = ╱86╱ LET ╱ // 0x131b @0x16
0x1305…1324 at0017 = ╱4f╱O╱ // 0x131c @0x17
0x1305…1324 at0018 = ╱4b╱K╱ // 0x131d @0x18
0x1305…1324 at0019 = ╱f0╱ := ╱ // 0x131e @0x19
0x1305…1324 at001a = ╱54╱T╱ // 0x131f @0x1a
0x1305…1324 at001b = ╱52╱R╱ // 0x1320 @0x1b
0x1305…1324 at001c = ╱55╱U╱ // 0x1321 @0x1c
0x1305…1324 at001d = ╱45╱E╱ // 0x1322 @0x1d
0x1305…1324 at001e = EOL // 0x1323 @0x1e
0x1305…1324 }
0x1324…132a a918 01930 ENDIF
0x1324…132a LineComal80 {
0x1324…132a ptr = 0xa918 // 0x1324 @0x0
0x1324…132a lno = 0x078a // 0x1326 @0x2
0x1324…132a at0004 = ╱9c╱ ENDIF ╱ // 0x1328 @0x4
0x1324…132a at0005 = EOL // 0x1329 @0x5
0x1324…132a }
0x132a…133c a92a 01940 LET FIND_KTO := POS
0x132a…133c LineComal80 {
0x132a…133c ptr = 0xa92a // 0x132a @0x0
0x132a…133c lno = 0x0794 // 0x132c @0x2
0x132a…133c at0004 = ╱86╱ LET ╱ // 0x132e @0x4
0x132a…133c at0005 = ╱46╱F╱ // 0x132f @0x5
0x132a…133c at0006 = ╱49╱I╱ // 0x1330 @0x6
0x132a…133c at0007 = ╱4e╱N╱ // 0x1331 @0x7
0x132a…133c at0008 = ╱44╱D╱ // 0x1332 @0x8
0x132a…133c at0009 = ╱5f╱_╱ // 0x1333 @0x9
0x132a…133c at000a = ╱4b╱K╱ // 0x1334 @0xa
0x132a…133c at000b = ╱54╱T╱ // 0x1335 @0xb
0x132a…133c at000c = ╱4f╱O╱ // 0x1336 @0xc
0x132a…133c at000d = ╱f0╱ := ╱ // 0x1337 @0xd
0x132a…133c at000e = ╱50╱P╱ // 0x1338 @0xe
0x132a…133c at000f = ╱4f╱O╱ // 0x1339 @0xf
0x132a…133c at0010 = ╱53╱S╱ // 0x133a @0x10
0x132a…133c at0011 = EOL // 0x133b @0x11
0x132a…133c }
0x133c…134a a938 01950 ENDPROC FIND_KTO
0x133c…134a LineComal80 {
0x133c…134a ptr = 0xa938 // 0x133c @0x0
0x133c…134a lno = 0x079e // 0x133e @0x2
0x133c…134a at0004 = ╱9f╱ ENDPROC ╱ // 0x1340 @0x4
0x133c…134a at0005 = ╱46╱F╱ // 0x1341 @0x5
0x133c…134a at0006 = ╱49╱I╱ // 0x1342 @0x6
0x133c…134a at0007 = ╱4e╱N╱ // 0x1343 @0x7
0x133c…134a at0008 = ╱44╱D╱ // 0x1344 @0x8
0x133c…134a at0009 = ╱5f╱_╱ // 0x1345 @0x9
0x133c…134a at000a = ╱4b╱K╱ // 0x1346 @0xa
0x133c…134a at000b = ╱54╱T╱ // 0x1347 @0xb
0x133c…134a at000c = ╱4f╱O╱ // 0x1348 @0xc
0x133c…134a at000d = EOL // 0x1349 @0xd
0x133c…134a }
0x134a…134f ba57 01960
0x134a…134f LineComal80 {
0x134a…134f ptr = 0xba57 // 0x134a @0x0
0x134a…134f lno = 0x07a8 // 0x134c @0x2
0x134a…134f at0004 = EOL // 0x134e @0x4
0x134a…134f }
0x134f…135d a94b 02230 PROC UDSKRIV
0x134f…135d LineComal80 {
0x134f…135d ptr = 0xa94b // 0x134f @0x0
0x134f…135d lno = 0x08b6 // 0x1351 @0x2
0x134f…135d at0004 = ╱9e1d╱ PROC ╱ // 0x1353 @0x4
0x134f…135d at0006 = ╱55╱U╱ // 0x1355 @0x6
0x134f…135d at0007 = ╱44╱D╱ // 0x1356 @0x7
0x134f…135d at0008 = ╱53╱S╱ // 0x1357 @0x8
0x134f…135d at0009 = ╱4b╱K╱ // 0x1358 @0x9
0x134f…135d at000a = ╱52╱R╱ // 0x1359 @0xa
0x134f…135d at000b = ╱49╱I╱ // 0x135a @0xb
0x134f…135d at000c = ╱56╱V╱ // 0x135b @0xc
0x134f…135d at000d = EOL // 0x135c @0xd
0x134f…135d }
0x135d…1364 a952 02240 REPEAT
0x135d…1364 LineComal80 {
0x135d…1364 ptr = 0xa952 // 0x135d @0x0
0x135d…1364 lno = 0x08c0 // 0x135f @0x2
0x135d…1364 at0004 = ╱971e╱ REPEAT ╱ // 0x1361 @0x4
0x135d…1364 at0006 = EOL // 0x1363 @0x6
0x135d…1364 }
0x1364…1398 b8a2 02250 EXEC OVERSKRIFT ( "Udskrivning…af…saldobalance" , 8 )
0x1364…1398 LineComal80 {
0x1364…1398 ptr = 0xb8a2 // 0x1364 @0x0
0x1364…1398 lno = 0x08ca // 0x1366 @0x2
0x1364…1398 at0004 = ╱9d╱ EXEC ╱ // 0x1368 @0x4
0x1364…1398 at0005 = ╱4f╱O╱ // 0x1369 @0x5
0x1364…1398 at0006 = ╱56╱V╱ // 0x136a @0x6
0x1364…1398 at0007 = ╱45╱E╱ // 0x136b @0x7
0x1364…1398 at0008 = ╱52╱R╱ // 0x136c @0x8
0x1364…1398 at0009 = ╱53╱S╱ // 0x136d @0x9
0x1364…1398 at000a = ╱4b╱K╱ // 0x136e @0xa
0x1364…1398 at000b = ╱52╱R╱ // 0x136f @0xb
0x1364…1398 at000c = ╱49╱I╱ // 0x1370 @0xc
0x1364…1398 at000d = ╱46╱F╱ // 0x1371 @0xd
0x1364…1398 at000e = ╱54╱T╱ // 0x1372 @0xe
0x1364…1398 at000f = ╱ed╱ ( ╱ // 0x1373 @0xf
0x1364…1398 at0010 = ╱22╱"╱ // 0x1374 @0x10
0x1364…1398 at0011 = ╱55╱U╱ // 0x1375 @0x11
0x1364…1398 at0012 = ╱64╱d╱ // 0x1376 @0x12
0x1364…1398 at0013 = ╱73╱s╱ // 0x1377 @0x13
0x1364…1398 at0014 = ╱6b╱k╱ // 0x1378 @0x14
0x1364…1398 at0015 = ╱72╱r╱ // 0x1379 @0x15
0x1364…1398 at0016 = ╱69╱i╱ // 0x137a @0x16
0x1364…1398 at0017 = ╱76╱v╱ // 0x137b @0x17
0x1364…1398 at0018 = ╱6e╱n╱ // 0x137c @0x18
0x1364…1398 at0019 = ╱69╱i╱ // 0x137d @0x19
0x1364…1398 at001a = ╱6e╱n╱ // 0x137e @0x1a
0x1364…1398 at001b = ╱67╱g╱ // 0x137f @0x1b
0x1364…1398 at001c = ╱20╱…╱ // 0x1380 @0x1c
0x1364…1398 at001d = ╱61╱a╱ // 0x1381 @0x1d
0x1364…1398 at001e = ╱66╱f╱ // 0x1382 @0x1e
0x1364…1398 at001f = ╱20╱…╱ // 0x1383 @0x1f
0x1364…1398 at0020 = ╱73╱s╱ // 0x1384 @0x20
0x1364…1398 at0021 = ╱61╱a╱ // 0x1385 @0x21
0x1364…1398 at0022 = ╱6c╱l╱ // 0x1386 @0x22
0x1364…1398 at0023 = ╱64╱d╱ // 0x1387 @0x23
0x1364…1398 at0024 = ╱6f╱o╱ // 0x1388 @0x24
0x1364…1398 at0025 = ╱62╱b╱ // 0x1389 @0x25
0x1364…1398 at0026 = ╱61╱a╱ // 0x138a @0x26
0x1364…1398 at0027 = ╱6c╱l╱ // 0x138b @0x27
0x1364…1398 at0028 = ╱61╱a╱ // 0x138c @0x28
0x1364…1398 at0029 = ╱6e╱n╱ // 0x138d @0x29
0x1364…1398 at002a = ╱63╱c╱ // 0x138e @0x2a
0x1364…1398 at002b = ╱65╱e╱ // 0x138f @0x2b
0x1364…1398 at002c = ╱22╱"╱ // 0x1390 @0x2c
0x1364…1398 at002d = ╱ec╱ , ╱ // 0x1391 @0x2d
0x1364…1398 at002e = ╱38╱8╱ // 0x1392 @0x2e
0x1364…1398 at002f = ╱f20800╱ // 0x1393 @0x2f
0x1364…1398 at0032 = ╱ee╱ ) ╱ // 0x1396 @0x32
0x1364…1398 at0033 = EOL // 0x1397 @0x33
0x1364…1398 }
0x1398…13be a9ac 02260 EXEC PRINTRES ( "bred…EDB-liste" , 12 )
0x1398…13be LineComal80 {
0x1398…13be ptr = 0xa9ac // 0x1398 @0x0
0x1398…13be lno = 0x08d4 // 0x139a @0x2
0x1398…13be at0004 = ╱9d╱ EXEC ╱ // 0x139c @0x4
0x1398…13be at0005 = ╱50╱P╱ // 0x139d @0x5
0x1398…13be at0006 = ╱52╱R╱ // 0x139e @0x6
0x1398…13be at0007 = ╱49╱I╱ // 0x139f @0x7
0x1398…13be at0008 = ╱4e╱N╱ // 0x13a0 @0x8
0x1398…13be at0009 = ╱54╱T╱ // 0x13a1 @0x9
0x1398…13be at000a = ╱52╱R╱ // 0x13a2 @0xa
0x1398…13be at000b = ╱45╱E╱ // 0x13a3 @0xb
0x1398…13be at000c = ╱53╱S╱ // 0x13a4 @0xc
0x1398…13be at000d = ╱ed╱ ( ╱ // 0x13a5 @0xd
0x1398…13be at000e = ╱22╱"╱ // 0x13a6 @0xe
0x1398…13be at000f = ╱62╱b╱ // 0x13a7 @0xf
0x1398…13be at0010 = ╱72╱r╱ // 0x13a8 @0x10
0x1398…13be at0011 = ╱65╱e╱ // 0x13a9 @0x11
0x1398…13be at0012 = ╱64╱d╱ // 0x13aa @0x12
0x1398…13be at0013 = ╱20╱…╱ // 0x13ab @0x13
0x1398…13be at0014 = ╱45╱E╱ // 0x13ac @0x14
0x1398…13be at0015 = ╱44╱D╱ // 0x13ad @0x15
0x1398…13be at0016 = ╱42╱B╱ // 0x13ae @0x16
0x1398…13be at0017 = ╱2d╱-╱ // 0x13af @0x17
0x1398…13be at0018 = ╱6c╱l╱ // 0x13b0 @0x18
0x1398…13be at0019 = ╱69╱i╱ // 0x13b1 @0x19
0x1398…13be at001a = ╱73╱s╱ // 0x13b2 @0x1a
0x1398…13be at001b = ╱74╱t╱ // 0x13b3 @0x1b
0x1398…13be at001c = ╱65╱e╱ // 0x13b4 @0x1c
0x1398…13be at001d = ╱22╱"╱ // 0x13b5 @0x1d
0x1398…13be at001e = ╱ec╱ , ╱ // 0x13b6 @0x1e
0x1398…13be at001f = ╱31╱1╱ // 0x13b7 @0x1f
0x1398…13be at0020 = ╱32╱2╱ // 0x13b8 @0x20
0x1398…13be at0021 = ╱f20c00╱ // 0x13b9 @0x21
0x1398…13be at0024 = ╱ee╱ ) ╱ // 0x13bc @0x24
0x1398…13be at0025 = EOL // 0x13bd @0x25
0x1398…13be }
0x13be…13e2 a9d0 02270 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
0x13be…13e2 LineComal80 {
0x13be…13e2 ptr = 0xa9d0 // 0x13be @0x0
0x13be…13e2 lno = 0x08de // 0x13c0 @0x2
0x13be…13e2 at0004 = ╱a9╱ GET ╱ // 0x13c2 @0x4
0x13be…13e2 at0005 = ╱4b╱K╱ // 0x13c3 @0x5
0x13be…13e2 at0006 = ╱54╱T╱ // 0x13c4 @0x6
0x13be…13e2 at0007 = ╱4f╱O╱ // 0x13c5 @0x7
0x13be…13e2 at0008 = ╱49╱I╱ // 0x13c6 @0x8
0x13be…13e2 at0009 = ╱44╱D╱ // 0x13c7 @0x9
0x13be…13e2 at000a = ╱58╱X╱ // 0x13c8 @0xa
0x13be…13e2 at000b = ╱ef╱ $ ╱ // 0x13c9 @0xb
0x13be…13e2 at000c = ╱ec╱ , ╱ // 0x13ca @0xc
0x13be…13e2 at000d = ╱31╱1╱ // 0x13cb @0xd
0x13be…13e2 at000e = ╱f20100╱ // 0x13cc @0xe
0x13be…13e2 at0011 = ╱f1╱ : ╱ // 0x13cf @0x11
0x13be…13e2 at0012 = ╱49╱I╱ // 0x13d0 @0x12
0x13be…13e2 at0013 = ╱5f╱_╱ // 0x13d1 @0x13
0x13be…13e2 at0014 = ╱48╱H╱ // 0x13d2 @0x14
0x13be…13e2 at0015 = ╱5c╱\╱ // 0x13d3 @0x15
0x13be…13e2 at0016 = ╱4a╱J╱ // 0x13d4 @0x16
0x13be…13e2 at0017 = ╱52╱R╱ // 0x13d5 @0x17
0x13be…13e2 at0018 = ╱45╱E╱ // 0x13d6 @0x18
0x13be…13e2 at0019 = ╱43╱C╱ // 0x13d7 @0x19
0x13be…13e2 at001a = ╱ec╱ , ╱ // 0x13d8 @0x1a
0x13be…13e2 at001b = ╱49╱I╱ // 0x13d9 @0x1b
0x13be…13e2 at001c = ╱5f╱_╱ // 0x13da @0x1c
0x13be…13e2 at001d = ╱4d╱M╱ // 0x13db @0x1d
0x13be…13e2 at001e = ╱41╱A╱ // 0x13dc @0x1e
0x13be…13e2 at001f = ╱58╱X╱ // 0x13dd @0x1f
0x13be…13e2 at0020 = ╱52╱R╱ // 0x13de @0x20
0x13be…13e2 at0021 = ╱45╱E╱ // 0x13df @0x21
0x13be…13e2 at0022 = ╱43╱C╱ // 0x13e0 @0x22
0x13be…13e2 at0023 = EOL // 0x13e1 @0x23
0x13be…13e2 }
0x13e2…1435 aa23 02280 LET LIN_T := 100 ; SIDENR := 0 ; TOTAL ( 1 ) , TOTAL ( 2 ) , TOTAL ( 3 ) , TOTAL ( 4 ) := 0
0x13e2…1435 LineComal80 {
0x13e2…1435 ptr = 0xaa23 // 0x13e2 @0x0
0x13e2…1435 lno = 0x08e8 // 0x13e4 @0x2
0x13e2…1435 at0004 = ╱86╱ LET ╱ // 0x13e6 @0x4
0x13e2…1435 at0005 = ╱4c╱L╱ // 0x13e7 @0x5
0x13e2…1435 at0006 = ╱49╱I╱ // 0x13e8 @0x6
0x13e2…1435 at0007 = ╱4e╱N╱ // 0x13e9 @0x7
0x13e2…1435 at0008 = ╱5f╱_╱ // 0x13ea @0x8
0x13e2…1435 at0009 = ╱54╱T╱ // 0x13eb @0x9
0x13e2…1435 at000a = ╱f0╱ := ╱ // 0x13ec @0xa
0x13e2…1435 at000b = ╱31╱1╱ // 0x13ed @0xb
0x13e2…1435 at000c = ╱30╱0╱ // 0x13ee @0xc
0x13e2…1435 at000d = ╱30╱0╱ // 0x13ef @0xd
0x13e2…1435 at000e = ╱f26400╱ // 0x13f0 @0xe
0x13e2…1435 at0011 = ╱ea╱ ; ╱ // 0x13f3 @0x11
0x13e2…1435 at0012 = ╱53╱S╱ // 0x13f4 @0x12
0x13e2…1435 at0013 = ╱49╱I╱ // 0x13f5 @0x13
0x13e2…1435 at0014 = ╱44╱D╱ // 0x13f6 @0x14
0x13e2…1435 at0015 = ╱45╱E╱ // 0x13f7 @0x15
0x13e2…1435 at0016 = ╱4e╱N╱ // 0x13f8 @0x16
0x13e2…1435 at0017 = ╱52╱R╱ // 0x13f9 @0x17
0x13e2…1435 at0018 = ╱f0╱ := ╱ // 0x13fa @0x18
0x13e2…1435 at0019 = ╱30╱0╱ // 0x13fb @0x19
0x13e2…1435 at001a = ╱f20000╱ // 0x13fc @0x1a
0x13e2…1435 at001d = ╱ea╱ ; ╱ // 0x13ff @0x1d
0x13e2…1435 at001e = ╱54╱T╱ // 0x1400 @0x1e
0x13e2…1435 at001f = ╱4f╱O╱ // 0x1401 @0x1f
0x13e2…1435 at0020 = ╱54╱T╱ // 0x1402 @0x20
0x13e2…1435 at0021 = ╱41╱A╱ // 0x1403 @0x21
0x13e2…1435 at0022 = ╱4c╱L╱ // 0x1404 @0x22
0x13e2…1435 at0023 = ╱ed╱ ( ╱ // 0x1405 @0x23
0x13e2…1435 at0024 = ╱31╱1╱ // 0x1406 @0x24
0x13e2…1435 at0025 = ╱f20100╱ // 0x1407 @0x25
0x13e2…1435 at0028 = ╱ee╱ ) ╱ // 0x140a @0x28
0x13e2…1435 at0029 = ╱ec╱ , ╱ // 0x140b @0x29
0x13e2…1435 at002a = ╱54╱T╱ // 0x140c @0x2a
0x13e2…1435 at002b = ╱4f╱O╱ // 0x140d @0x2b
0x13e2…1435 at002c = ╱54╱T╱ // 0x140e @0x2c
0x13e2…1435 at002d = ╱41╱A╱ // 0x140f @0x2d
0x13e2…1435 at002e = ╱4c╱L╱ // 0x1410 @0x2e
0x13e2…1435 at002f = ╱ed╱ ( ╱ // 0x1411 @0x2f
0x13e2…1435 at0030 = ╱32╱2╱ // 0x1412 @0x30
0x13e2…1435 at0031 = ╱f20200╱ // 0x1413 @0x31
0x13e2…1435 at0034 = ╱ee╱ ) ╱ // 0x1416 @0x34
0x13e2…1435 at0035 = ╱ec╱ , ╱ // 0x1417 @0x35
0x13e2…1435 at0036 = ╱54╱T╱ // 0x1418 @0x36
0x13e2…1435 at0037 = ╱4f╱O╱ // 0x1419 @0x37
0x13e2…1435 at0038 = ╱54╱T╱ // 0x141a @0x38
0x13e2…1435 at0039 = ╱41╱A╱ // 0x141b @0x39
0x13e2…1435 at003a = ╱4c╱L╱ // 0x141c @0x3a
0x13e2…1435 at003b = ╱ed╱ ( ╱ // 0x141d @0x3b
0x13e2…1435 at003c = ╱33╱3╱ // 0x141e @0x3c
0x13e2…1435 at003d = ╱f20300╱ // 0x141f @0x3d
0x13e2…1435 at0040 = ╱ee╱ ) ╱ // 0x1422 @0x40
0x13e2…1435 at0041 = ╱ec╱ , ╱ // 0x1423 @0x41
0x13e2…1435 at0042 = ╱54╱T╱ // 0x1424 @0x42
0x13e2…1435 at0043 = ╱4f╱O╱ // 0x1425 @0x43
0x13e2…1435 at0044 = ╱54╱T╱ // 0x1426 @0x44
0x13e2…1435 at0045 = ╱41╱A╱ // 0x1427 @0x45
0x13e2…1435 at0046 = ╱4c╱L╱ // 0x1428 @0x46
0x13e2…1435 at0047 = ╱ed╱ ( ╱ // 0x1429 @0x47
0x13e2…1435 at0048 = ╱34╱4╱ // 0x142a @0x48
0x13e2…1435 at0049 = ╱f20400╱ // 0x142b @0x49
0x13e2…1435 at004c = ╱ee╱ ) ╱ // 0x142e @0x4c
0x13e2…1435 at004d = ╱f0╱ := ╱ // 0x142f @0x4d
0x13e2…1435 at004e = ╱30╱0╱ // 0x1430 @0x4e
0x13e2…1435 at004f = ╱f20000╱ // 0x1431 @0x4f
0x13e2…1435 at0052 = EOL // 0x1434 @0x52
0x13e2…1435 }
0x1435…1451 aa3f 02290 FOR IDXPOS := 2 TO _H\JREC DO
0x1435…1451 LineComal80 {
0x1435…1451 ptr = 0xaa3f // 0x1435 @0x0
0x1435…1451 lno = 0x08f2 // 0x1437 @0x2
0x1435…1451 at0004 = ╱831f╱ FOR ╱ // 0x1439 @0x4
0x1435…1451 at0006 = ╱49╱I╱ // 0x143b @0x6
0x1435…1451 at0007 = ╱44╱D╱ // 0x143c @0x7
0x1435…1451 at0008 = ╱58╱X╱ // 0x143d @0x8
0x1435…1451 at0009 = ╱50╱P╱ // 0x143e @0x9
0x1435…1451 at000a = ╱4f╱O╱ // 0x143f @0xa
0x1435…1451 at000b = ╱53╱S╱ // 0x1440 @0xb
0x1435…1451 at000c = ╱f0╱ := ╱ // 0x1441 @0xc
0x1435…1451 at000d = ╱32╱2╱ // 0x1442 @0xd
0x1435…1451 at000e = ╱f20200╱ // 0x1443 @0xe
0x1435…1451 at0011 = ╱b749╱ TO ╱ // 0x1446 @0x11
0x1435…1451 at0013 = ╱5f╱_╱ // 0x1448 @0x13
0x1435…1451 at0014 = ╱48╱H╱ // 0x1449 @0x14
0x1435…1451 at0015 = ╱5c╱\╱ // 0x144a @0x15
0x1435…1451 at0016 = ╱4a╱J╱ // 0x144b @0x16
0x1435…1451 at0017 = ╱52╱R╱ // 0x144c @0x17
0x1435…1451 at0018 = ╱45╱E╱ // 0x144d @0x18
0x1435…1451 at0019 = ╱43╱C╱ // 0x144e @0x19
0x1435…1451 at001a = ╱bb╱ DO ╱ // 0x144f @0x1a
0x1435…1451 at001b = EOL // 0x1450 @0x1b
0x1435…1451 }
0x1451…1472 aa60 02300 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
0x1451…1472 LineComal80 {
0x1451…1472 ptr = 0xaa60 // 0x1451 @0x0
0x1451…1472 lno = 0x08fc // 0x1453 @0x2
0x1451…1472 at0004 = ╱a9╱ GET ╱ // 0x1455 @0x4
0x1451…1472 at0005 = ╱4b╱K╱ // 0x1456 @0x5
0x1451…1472 at0006 = ╱54╱T╱ // 0x1457 @0x6
0x1451…1472 at0007 = ╱4f╱O╱ // 0x1458 @0x7
0x1451…1472 at0008 = ╱49╱I╱ // 0x1459 @0x8
0x1451…1472 at0009 = ╱44╱D╱ // 0x145a @0x9
0x1451…1472 at000a = ╱58╱X╱ // 0x145b @0xa
0x1451…1472 at000b = ╱ef╱ $ ╱ // 0x145c @0xb
0x1451…1472 at000c = ╱ec╱ , ╱ // 0x145d @0xc
0x1451…1472 at000d = ╱49╱I╱ // 0x145e @0xd
0x1451…1472 at000e = ╱44╱D╱ // 0x145f @0xe
0x1451…1472 at000f = ╱58╱X╱ // 0x1460 @0xf
0x1451…1472 at0010 = ╱50╱P╱ // 0x1461 @0x10
0x1451…1472 at0011 = ╱4f╱O╱ // 0x1462 @0x11
0x1451…1472 at0012 = ╱53╱S╱ // 0x1463 @0x12
0x1451…1472 at0013 = ╱f1╱ : ╱ // 0x1464 @0x13
0x1451…1472 at0014 = ╱4b╱K╱ // 0x1465 @0x14
0x1451…1472 at0015 = ╱54╱T╱ // 0x1466 @0x15
0x1451…1472 at0016 = ╱4f╱O╱ // 0x1467 @0x16
0x1451…1472 at0017 = ╱4e╱N╱ // 0x1468 @0x17
0x1451…1472 at0018 = ╱52╱R╱ // 0x1469 @0x18
0x1451…1472 at0019 = ╱ef╱ $ ╱ // 0x146a @0x19
0x1451…1472 at001a = ╱ec╱ , ╱ // 0x146b @0x1a
0x1451…1472 at001b = ╱52╱R╱ // 0x146c @0x1b
0x1451…1472 at001c = ╱45╱E╱ // 0x146d @0x1c
0x1451…1472 at001d = ╱43╱C╱ // 0x146e @0x1d
0x1451…1472 at001e = ╱4e╱N╱ // 0x146f @0x1e
0x1451…1472 at001f = ╱52╱R╱ // 0x1470 @0x1f
0x1451…1472 at0020 = EOL // 0x1471 @0x20
0x1451…1472 }
0x1472…1488 aa76 02050 EXEC L[S_KONTO ( RECNR )
0x1472…1488 LineComal80 {
0x1472…1488 ptr = 0xaa76 // 0x1472 @0x0
0x1472…1488 lno = 0x0802 // 0x1474 @0x2
0x1472…1488 at0004 = ╱9d╱ EXEC ╱ // 0x1476 @0x4
0x1472…1488 at0005 = ╱4c╱L╱ // 0x1477 @0x5
0x1472…1488 at0006 = ╱5b╱[╱ // 0x1478 @0x6
0x1472…1488 at0007 = ╱53╱S╱ // 0x1479 @0x7
0x1472…1488 at0008 = ╱5f╱_╱ // 0x147a @0x8
0x1472…1488 at0009 = ╱4b╱K╱ // 0x147b @0x9
0x1472…1488 at000a = ╱4f╱O╱ // 0x147c @0xa
0x1472…1488 at000b = ╱4e╱N╱ // 0x147d @0xb
0x1472…1488 at000c = ╱54╱T╱ // 0x147e @0xc
0x1472…1488 at000d = ╱4f╱O╱ // 0x147f @0xd
0x1472…1488 at000e = ╱ed╱ ( ╱ // 0x1480 @0xe
0x1472…1488 at000f = ╱52╱R╱ // 0x1481 @0xf
0x1472…1488 at0010 = ╱45╱E╱ // 0x1482 @0x10
0x1472…1488 at0011 = ╱43╱C╱ // 0x1483 @0x11
0x1472…1488 at0012 = ╱4e╱N╱ // 0x1484 @0x12
0x1472…1488 at0013 = ╱52╱R╱ // 0x1485 @0x13
0x1472…1488 at0014 = ╱ee╱ ) ╱ // 0x1486 @0x14
0x1472…1488 at0015 = EOL // 0x1487 @0x15
0x1472…1488 }
0x1488…149d aa8b 02060 IF TO_TYPE $ = "A" THEN
0x1488…149d LineComal80 {
0x1488…149d ptr = 0xaa8b // 0x1488 @0x0
0x1488…149d lno = 0x080c // 0x148a @0x2
0x1488…149d at0004 = ╱9b204b╱ IF ╱ // 0x148c @0x4
0x1488…149d at0007 = ╱54╱T╱ // 0x148f @0x7
0x1488…149d at0008 = ╱4f╱O╱ // 0x1490 @0x8
0x1488…149d at0009 = ╱5f╱_╱ // 0x1491 @0x9
0x1488…149d at000a = ╱54╱T╱ // 0x1492 @0xa
0x1488…149d at000b = ╱59╱Y╱ // 0x1493 @0xb
0x1488…149d at000c = ╱50╱P╱ // 0x1494 @0xc
0x1488…149d at000d = ╱45╱E╱ // 0x1495 @0xd
0x1488…149d at000e = ╱ef╱ $ ╱ // 0x1496 @0xe
0x1488…149d at000f = ╱df╱ = ╱ // 0x1497 @0xf
0x1488…149d at0010 = ╱22╱"╱ // 0x1498 @0x10
0x1488…149d at0011 = ╱41╱A╱ // 0x1499 @0x11
0x1488…149d at0012 = ╱22╱"╱ // 0x149a @0x12
0x1488…149d at0013 = ╱b5╱ THEN ╱ // 0x149b @0x13
0x1488…149d at0014 = EOL // 0x149c @0x14
0x1488…149d }
0x149d…14ac aa9a 02070 EXEC SAMMENT[L
0x149d…14ac LineComal80 {
0x149d…14ac ptr = 0xaa9a // 0x149d @0x0
0x149d…14ac lno = 0x0816 // 0x149f @0x2
0x149d…14ac at0004 = ╱9d╱ EXEC ╱ // 0x14a1 @0x4
0x149d…14ac at0005 = ╱53╱S╱ // 0x14a2 @0x5
0x149d…14ac at0006 = ╱41╱A╱ // 0x14a3 @0x6
0x149d…14ac at0007 = ╱4d╱M╱ // 0x14a4 @0x7
0x149d…14ac at0008 = ╱4d╱M╱ // 0x14a5 @0x8
0x149d…14ac at0009 = ╱45╱E╱ // 0x14a6 @0x9
0x149d…14ac at000a = ╱4e╱N╱ // 0x14a7 @0xa
0x149d…14ac at000b = ╱54╱T╱ // 0x14a8 @0xb
0x149d…14ac at000c = ╱5b╱[╱ // 0x14a9 @0xc
0x149d…14ac at000d = ╱4c╱L╱ // 0x14aa @0xd
0x149d…14ac at000e = EOL // 0x14ab @0xe
0x149d…14ac }
0x14ac…14bb aaa9 02080 EXEC SKRIV_LIN
0x14ac…14bb LineComal80 {
0x14ac…14bb ptr = 0xaaa9 // 0x14ac @0x0
0x14ac…14bb lno = 0x0820 // 0x14ae @0x2
0x14ac…14bb at0004 = ╱9d╱ EXEC ╱ // 0x14b0 @0x4
0x14ac…14bb at0005 = ╱53╱S╱ // 0x14b1 @0x5
0x14ac…14bb at0006 = ╱4b╱K╱ // 0x14b2 @0x6
0x14ac…14bb at0007 = ╱52╱R╱ // 0x14b3 @0x7
0x14ac…14bb at0008 = ╱49╱I╱ // 0x14b4 @0x8
0x14ac…14bb at0009 = ╱56╱V╱ // 0x14b5 @0x9
0x14ac…14bb at000a = ╱5f╱_╱ // 0x14b6 @0xa
0x14ac…14bb at000b = ╱4c╱L╱ // 0x14b7 @0xb
0x14ac…14bb at000c = ╱49╱I╱ // 0x14b8 @0xc
0x14ac…14bb at000d = ╱4e╱N╱ // 0x14b9 @0xd
0x14ac…14bb at000e = EOL // 0x14ba @0xe
0x14ac…14bb }
0x14bb…14c1 aaaf 02090 ENDIF
0x14bb…14c1 LineComal80 {
0x14bb…14c1 ptr = 0xaaaf // 0x14bb @0x0
0x14bb…14c1 lno = 0x082a // 0x14bd @0x2
0x14bb…14c1 at0004 = ╱9c╱ ENDIF ╱ // 0x14bf @0x4
0x14bb…14c1 at0005 = EOL // 0x14c0 @0x5
0x14bb…14c1 }
0x14c1…14cd (69,) aabb 02100 NEXT IDXPOS
0x14c1…14cd LineComal80 {
0x14c1…14cd ptr = 0xaabb // 0x14c1 @0x0
0x14c1…14cd lno = 0x0834 // 0x14c3 @0x2
0x14c1…14cd at0004 = ╱84╱ NEXT ╱ // 0x14c5 @0x4
0x14c1…14cd at0005 = ╱49╱I╱ // 0x14c6 @0x5
0x14c1…14cd at0006 = ╱44╱D╱ // 0x14c7 @0x6
0x14c1…14cd at0007 = ╱58╱X╱ // 0x14c8 @0x7
0x14c1…14cd at0008 = ╱50╱P╱ // 0x14c9 @0x8
0x14c1…14cd at0009 = ╱4f╱O╱ // 0x14ca @0x9
0x14c1…14cd at000a = ╱53╱S╱ // 0x14cb @0xa
0x14c1…14cd at000b = EOL // 0x14cc @0xb
0x14c1…14cd }
0x14cd…14e8 aad6 02110 IF LIN_T >< 100 THEN EXEC AFSLUT
0x14cd…14e8 LineComal80 {
0x14cd…14e8 ptr = 0xaad6 // 0x14cd @0x0
0x14cd…14e8 lno = 0x083e // 0x14cf @0x2
0x14cd…14e8 at0004 = ╱8200╱ IF ╱ // 0x14d1 @0x4
0x14cd…14e8 at0006 = ╱4c╱L╱ // 0x14d3 @0x6
0x14cd…14e8 at0007 = ╱49╱I╱ // 0x14d4 @0x7
0x14cd…14e8 at0008 = ╱4e╱N╱ // 0x14d5 @0x8
0x14cd…14e8 at0009 = ╱5f╱_╱ // 0x14d6 @0x9
0x14cd…14e8 at000a = ╱54╱T╱ // 0x14d7 @0xa
0x14cd…14e8 at000b = ╱e4╱ >< ╱ // 0x14d8 @0xb
0x14cd…14e8 at000c = ╱31╱1╱ // 0x14d9 @0xc
0x14cd…14e8 at000d = ╱30╱0╱ // 0x14da @0xd
0x14cd…14e8 at000e = ╱30╱0╱ // 0x14db @0xe
0x14cd…14e8 at000f = ╱f26400╱ // 0x14dc @0xf
0x14cd…14e8 at0012 = ╱b5╱ THEN ╱ // 0x14df @0x12
0x14cd…14e8 at0013 = ╱9d╱ EXEC ╱ // 0x14e0 @0x13
0x14cd…14e8 at0014 = ╱41╱A╱ // 0x14e1 @0x14
0x14cd…14e8 at0015 = ╱46╱F╱ // 0x14e2 @0x15
0x14cd…14e8 at0016 = ╱53╱S╱ // 0x14e3 @0x16
0x14cd…14e8 at0017 = ╱4c╱L╱ // 0x14e4 @0x17
0x14cd…14e8 at0018 = ╱55╱U╱ // 0x14e5 @0x18
0x14cd…14e8 at0019 = ╱54╱T╱ // 0x14e6 @0x19
0x14cd…14e8 at001a = EOL // 0x14e7 @0x1a
0x14cd…14e8 }
0x14e8…14f6 aae4 02120 EXEC PRINTREL
0x14e8…14f6 LineComal80 {
0x14e8…14f6 ptr = 0xaae4 // 0x14e8 @0x0
0x14e8…14f6 lno = 0x0848 // 0x14ea @0x2
0x14e8…14f6 at0004 = ╱9d╱ EXEC ╱ // 0x14ec @0x4
0x14e8…14f6 at0005 = ╱50╱P╱ // 0x14ed @0x5
0x14e8…14f6 at0006 = ╱52╱R╱ // 0x14ee @0x6
0x14e8…14f6 at0007 = ╱49╱I╱ // 0x14ef @0x7
0x14e8…14f6 at0008 = ╱4e╱N╱ // 0x14f0 @0x8
0x14e8…14f6 at0009 = ╱54╱T╱ // 0x14f1 @0x9
0x14e8…14f6 at000a = ╱52╱R╱ // 0x14f2 @0xa
0x14e8…14f6 at000b = ╱45╱E╱ // 0x14f3 @0xb
0x14e8…14f6 at000c = ╱4c╱L╱ // 0x14f4 @0xc
0x14e8…14f6 at000d = EOL // 0x14f5 @0xd
0x14e8…14f6 }
0x14f6…1505 aaf3 02130 LET SVAR $ := "n"
0x14f6…1505 LineComal80 {
0x14f6…1505 ptr = 0xaaf3 // 0x14f6 @0x0
0x14f6…1505 lno = 0x0852 // 0x14f8 @0x2
0x14f6…1505 at0004 = ╱86╱ LET ╱ // 0x14fa @0x4
0x14f6…1505 at0005 = ╱53╱S╱ // 0x14fb @0x5
0x14f6…1505 at0006 = ╱56╱V╱ // 0x14fc @0x6
0x14f6…1505 at0007 = ╱41╱A╱ // 0x14fd @0x7
0x14f6…1505 at0008 = ╱52╱R╱ // 0x14fe @0x8
0x14f6…1505 at0009 = ╱ef╱ $ ╱ // 0x14ff @0x9
0x14f6…1505 at000a = ╱f0╱ := ╱ // 0x1500 @0xa
0x14f6…1505 at000b = ╱22╱"╱ // 0x1501 @0xb
0x14f6…1505 at000c = ╱6e╱n╱ // 0x1502 @0xc
0x14f6…1505 at000d = ╱22╱"╱ // 0x1503 @0xd
0x14f6…1505 at000e = EOL // 0x1504 @0xe
0x14f6…1505 }
0x1505…1538 ab26 02140 EDIT "<C2618>Flere…udskrifter…(j/n)?…" : SVAR $ ( 1 )
0x1505…1538 LineComal80 {
0x1505…1538 ptr = 0xab26 // 0x1505 @0x0
0x1505…1538 lno = 0x085c // 0x1507 @0x2
0x1505…1538 at0004 = ╱b1╱ EDIT ╱ // 0x1509 @0x4
0x1505…1538 at0005 = ╱22╱"╱ // 0x150a @0x5
0x1505…1538 at0006 = ╱3c╱<╱ // 0x150b @0x6
0x1505…1538 at0007 = ╱43╱C╱ // 0x150c @0x7
0x1505…1538 at0008 = ╱32╱2╱ // 0x150d @0x8
0x1505…1538 at0009 = ╱36╱6╱ // 0x150e @0x9
0x1505…1538 at000a = ╱31╱1╱ // 0x150f @0xa
0x1505…1538 at000b = ╱38╱8╱ // 0x1510 @0xb
0x1505…1538 at000c = ╱3e╱>╱ // 0x1511 @0xc
0x1505…1538 at000d = ╱46╱F╱ // 0x1512 @0xd
0x1505…1538 at000e = ╱6c╱l╱ // 0x1513 @0xe
0x1505…1538 at000f = ╱65╱e╱ // 0x1514 @0xf
0x1505…1538 at0010 = ╱72╱r╱ // 0x1515 @0x10
0x1505…1538 at0011 = ╱65╱e╱ // 0x1516 @0x11
0x1505…1538 at0012 = ╱20╱…╱ // 0x1517 @0x12
0x1505…1538 at0013 = ╱75╱u╱ // 0x1518 @0x13
0x1505…1538 at0014 = ╱64╱d╱ // 0x1519 @0x14
0x1505…1538 at0015 = ╱73╱s╱ // 0x151a @0x15
0x1505…1538 at0016 = ╱6b╱k╱ // 0x151b @0x16
0x1505…1538 at0017 = ╱72╱r╱ // 0x151c @0x17
0x1505…1538 at0018 = ╱69╱i╱ // 0x151d @0x18
0x1505…1538 at0019 = ╱66╱f╱ // 0x151e @0x19
0x1505…1538 at001a = ╱74╱t╱ // 0x151f @0x1a
0x1505…1538 at001b = ╱65╱e╱ // 0x1520 @0x1b
0x1505…1538 at001c = ╱72╱r╱ // 0x1521 @0x1c
0x1505…1538 at001d = ╱20╱…╱ // 0x1522 @0x1d
0x1505…1538 at001e = ╱28╱(╱ // 0x1523 @0x1e
0x1505…1538 at001f = ╱6a╱j╱ // 0x1524 @0x1f
0x1505…1538 at0020 = ╱2f╱/╱ // 0x1525 @0x20
0x1505…1538 at0021 = ╱6e╱n╱ // 0x1526 @0x21
0x1505…1538 at0022 = ╱29╱)╱ // 0x1527 @0x22
0x1505…1538 at0023 = ╱3f╱?╱ // 0x1528 @0x23
0x1505…1538 at0024 = ╱20╱…╱ // 0x1529 @0x24
0x1505…1538 at0025 = ╱22╱"╱ // 0x152a @0x25
0x1505…1538 at0026 = ╱f1╱ : ╱ // 0x152b @0x26
0x1505…1538 at0027 = ╱53╱S╱ // 0x152c @0x27
0x1505…1538 at0028 = ╱56╱V╱ // 0x152d @0x28
0x1505…1538 at0029 = ╱41╱A╱ // 0x152e @0x29
0x1505…1538 at002a = ╱52╱R╱ // 0x152f @0x2a
0x1505…1538 at002b = ╱ef╱ $ ╱ // 0x1530 @0x2b
0x1505…1538 at002c = ╱ed╱ ( ╱ // 0x1531 @0x2c
0x1505…1538 at002d = ╱31╱1╱ // 0x1532 @0x2d
0x1505…1538 at002e = ╱f20100╱ // 0x1533 @0x2e
0x1505…1538 at0031 = ╱ee╱ ) ╱ // 0x1536 @0x31
0x1505…1538 at0032 = EOL // 0x1537 @0x32
0x1505…1538 }
0x1538…1554 ab42 02150 UNTIL NOT "/" + SVAR $ + "/" IN "/J/j/"
0x1538…1554 LineComal80 {
0x1538…1554 ptr = 0xab42 // 0x1538 @0x0
0x1538…1554 lno = 0x0866 // 0x153a @0x2
0x1538…1554 at0004 = ╱98╱ UNTIL ╱ // 0x153c @0x4
0x1538…1554 at0005 = ╱d7╱ NOT ╱ // 0x153d @0x5
0x1538…1554 at0006 = ╱22╱"╱ // 0x153e @0x6
0x1538…1554 at0007 = ╱2f╱/╱ // 0x153f @0x7
0x1538…1554 at0008 = ╱22╱"╱ // 0x1540 @0x8
0x1538…1554 at0009 = ╱eb╱ + ╱ // 0x1541 @0x9
0x1538…1554 at000a = ╱53╱S╱ // 0x1542 @0xa
0x1538…1554 at000b = ╱56╱V╱ // 0x1543 @0xb
0x1538…1554 at000c = ╱41╱A╱ // 0x1544 @0xc
0x1538…1554 at000d = ╱52╱R╱ // 0x1545 @0xd
0x1538…1554 at000e = ╱ef╱ $ ╱ // 0x1546 @0xe
0x1538…1554 at000f = ╱eb╱ + ╱ // 0x1547 @0xf
0x1538…1554 at0010 = ╱22╱"╱ // 0x1548 @0x10
0x1538…1554 at0011 = ╱2f╱/╱ // 0x1549 @0x11
0x1538…1554 at0012 = ╱22╱"╱ // 0x154a @0x12
0x1538…1554 at0013 = ╱dc╱ IN ╱ // 0x154b @0x13
0x1538…1554 at0014 = ╱22╱"╱ // 0x154c @0x14
0x1538…1554 at0015 = ╱2f╱/╱ // 0x154d @0x15
0x1538…1554 at0016 = ╱4a╱J╱ // 0x154e @0x16
0x1538…1554 at0017 = ╱2f╱/╱ // 0x154f @0x17
0x1538…1554 at0018 = ╱6a╱j╱ // 0x1550 @0x18
0x1538…1554 at0019 = ╱2f╱/╱ // 0x1551 @0x19
0x1538…1554 at001a = ╱22╱"╱ // 0x1552 @0x1a
0x1538…1554 at001b = EOL // 0x1553 @0x1b
0x1538…1554 }
0x1554…1561 ab4f 02160 ENDPROC UDSKRIV
0x1554…1561 LineComal80 {
0x1554…1561 ptr = 0xab4f // 0x1554 @0x0
0x1554…1561 lno = 0x0870 // 0x1556 @0x2
0x1554…1561 at0004 = ╱9f╱ ENDPROC ╱ // 0x1558 @0x4
0x1554…1561 at0005 = ╱55╱U╱ // 0x1559 @0x5
0x1554…1561 at0006 = ╱44╱D╱ // 0x155a @0x6
0x1554…1561 at0007 = ╱53╱S╱ // 0x155b @0x7
0x1554…1561 at0008 = ╱4b╱K╱ // 0x155c @0x8
0x1554…1561 at0009 = ╱52╱R╱ // 0x155d @0x9
0x1554…1561 at000a = ╱49╱I╱ // 0x155e @0xa
0x1554…1561 at000b = ╱56╱V╱ // 0x155f @0xb
0x1554…1561 at000c = EOL // 0x1560 @0xc
0x1554…1561 }
0x1561…1566 ab54 02170
0x1561…1566 LineComal80 {
0x1561…1566 ptr = 0xab54 // 0x1561 @0x0
0x1561…1566 lno = 0x087a // 0x1563 @0x2
0x1561…1566 at0004 = EOL // 0x1565 @0x4
0x1561…1566 }
0x1566…1576 ab64 02180 PROC SIDESKIFT
0x1566…1576 LineComal80 {
0x1566…1576 ptr = 0xab64 // 0x1566 @0x0
0x1566…1576 lno = 0x0884 // 0x1568 @0x2
0x1566…1576 at0004 = ╱9e21╱ PROC ╱ // 0x156a @0x4
0x1566…1576 at0006 = ╱53╱S╱ // 0x156c @0x6
0x1566…1576 at0007 = ╱49╱I╱ // 0x156d @0x7
0x1566…1576 at0008 = ╱44╱D╱ // 0x156e @0x8
0x1566…1576 at0009 = ╱45╱E╱ // 0x156f @0x9
0x1566…1576 at000a = ╱53╱S╱ // 0x1570 @0xa
0x1566…1576 at000b = ╱4b╱K╱ // 0x1571 @0xb
0x1566…1576 at000c = ╱49╱I╱ // 0x1572 @0xc
0x1566…1576 at000d = ╱46╱F╱ // 0x1573 @0xd
0x1566…1576 at000e = ╱54╱T╱ // 0x1574 @0xe
0x1566…1576 at000f = EOL // 0x1575 @0xf
0x1566…1576 }
0x1576…158a ab78 02190 IF IN_T >< 100 THEN
0x1576…158a LineComal80 {
0x1576…158a ptr = 0xab78 // 0x1576 @0x0
0x1576…158a lno = 0x088e // 0x1578 @0x2
0x1576…158a at0004 = ╱9b224c╱ IF ╱ // 0x157a @0x4
0x1576…158a at0007 = ╱49╱I╱ // 0x157d @0x7
0x1576…158a at0008 = ╱4e╱N╱ // 0x157e @0x8
0x1576…158a at0009 = ╱5f╱_╱ // 0x157f @0x9
0x1576…158a at000a = ╱54╱T╱ // 0x1580 @0xa
0x1576…158a at000b = ╱e4╱ >< ╱ // 0x1581 @0xb
0x1576…158a at000c = ╱31╱1╱ // 0x1582 @0xc
0x1576…158a at000d = ╱30╱0╱ // 0x1583 @0xd
0x1576…158a at000e = ╱30╱0╱ // 0x1584 @0xe
0x1576…158a at000f = ╱f26400╱ // 0x1585 @0xf
0x1576…158a at0012 = ╱b5╱ THEN ╱ // 0x1588 @0x12
0x1576…158a at0013 = EOL // 0x1589 @0x13
0x1576…158a }
0x158a…159b ab89 02200 EXEC SKRIV_STREG
0x158a…159b LineComal80 {
0x158a…159b ptr = 0xab89 // 0x158a @0x0
0x158a…159b lno = 0x0898 // 0x158c @0x2
0x158a…159b at0004 = ╱9d╱ EXEC ╱ // 0x158e @0x4
0x158a…159b at0005 = ╱53╱S╱ // 0x158f @0x5
0x158a…159b at0006 = ╱4b╱K╱ // 0x1590 @0x6
0x158a…159b at0007 = ╱52╱R╱ // 0x1591 @0x7
0x158a…159b at0008 = ╱49╱I╱ // 0x1592 @0x8
0x158a…159b at0009 = ╱56╱V╱ // 0x1593 @0x9
0x158a…159b at000a = ╱5f╱_╱ // 0x1594 @0xa
0x158a…159b at000b = ╱53╱S╱ // 0x1595 @0xb
0x158a…159b at000c = ╱54╱T╱ // 0x1596 @0xc
0x158a…159b at000d = ╱52╱R╱ // 0x1597 @0xd
0x158a…159b at000e = ╱45╱E╱ // 0x1598 @0xe
0x158a…159b at000f = ╱47╱G╱ // 0x1599 @0xf
0x158a…159b at0010 = EOL // 0x159a @0x10
0x158a…159b }
0x159b…15c4 abb2 02210 PRINT "<S>" ; TAB ( 15 ) ; "TRANSPORT" ; TAB ( 54 )
0x159b…15c4 LineComal80 {
0x159b…15c4 ptr = 0xabb2 // 0x159b @0x0
0x159b…15c4 lno = 0x08a2 // 0x159d @0x2
0x159b…15c4 at0004 = ╱92╱ PRINT ╱ // 0x159f @0x4
0x159b…15c4 at0005 = ╱22╱"╱ // 0x15a0 @0x5
0x159b…15c4 at0006 = ╱3c╱<╱ // 0x15a1 @0x6
0x159b…15c4 at0007 = ╱53╱S╱ // 0x15a2 @0x7
0x159b…15c4 at0008 = ╱3e╱>╱ // 0x15a3 @0x8
0x159b…15c4 at0009 = ╱22╱"╱ // 0x15a4 @0x9
0x159b…15c4 at000a = ╱ea╱ ; ╱ // 0x15a5 @0xa
0x159b…15c4 at000b = ╱d2╱ TAB ╱ // 0x15a6 @0xb
0x159b…15c4 at000c = ╱ed╱ ( ╱ // 0x15a7 @0xc
0x159b…15c4 at000d = ╱31╱1╱ // 0x15a8 @0xd
0x159b…15c4 at000e = ╱35╱5╱ // 0x15a9 @0xe
0x159b…15c4 at000f = ╱f20f00╱ // 0x15aa @0xf
0x159b…15c4 at0012 = ╱ee╱ ) ╱ // 0x15ad @0x12
0x159b…15c4 at0013 = ╱ea╱ ; ╱ // 0x15ae @0x13
0x159b…15c4 at0014 = ╱22╱"╱ // 0x15af @0x14
0x159b…15c4 at0015 = ╱54╱T╱ // 0x15b0 @0x15
0x159b…15c4 at0016 = ╱52╱R╱ // 0x15b1 @0x16
0x159b…15c4 at0017 = ╱41╱A╱ // 0x15b2 @0x17
0x159b…15c4 at0018 = ╱4e╱N╱ // 0x15b3 @0x18
0x159b…15c4 at0019 = ╱53╱S╱ // 0x15b4 @0x19
0x159b…15c4 at001a = ╱50╱P╱ // 0x15b5 @0x1a
0x159b…15c4 at001b = ╱4f╱O╱ // 0x15b6 @0x1b
0x159b…15c4 at001c = ╱52╱R╱ // 0x15b7 @0x1c
0x159b…15c4 at001d = ╱54╱T╱ // 0x15b8 @0x1d
0x159b…15c4 at001e = ╱22╱"╱ // 0x15b9 @0x1e
0x159b…15c4 at001f = ╱ea╱ ; ╱ // 0x15ba @0x1f
0x159b…15c4 at0020 = ╱d2╱ TAB ╱ // 0x15bb @0x20
0x159b…15c4 at0021 = ╱ed╱ ( ╱ // 0x15bc @0x21
0x159b…15c4 at0022 = ╱35╱5╱ // 0x15bd @0x22
0x159b…15c4 at0023 = ╱34╱4╱ // 0x15be @0x23
0x159b…15c4 at0024 = ╱f23600╱ // 0x15bf @0x24
0x159b…15c4 at0027 = ╱ee╱ ) ╱ // 0x15c2 @0x27
0x159b…15c4 at0028 = EOL // 0x15c3 @0x28
0x159b…15c4 }
0x15c4…1606 abf4 02220 PRINT "<S>" ; CHR$ ( TOTAL ( 1 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 2 ) , 9 , 2 )
0x15c4…1606 LineComal80 {
0x15c4…1606 ptr = 0xabf4 // 0x15c4 @0x0
0x15c4…1606 lno = 0x08ac // 0x15c6 @0x2
0x15c4…1606 at0004 = ╱92╱ PRINT ╱ // 0x15c8 @0x4
0x15c4…1606 at0005 = ╱22╱"╱ // 0x15c9 @0x5
0x15c4…1606 at0006 = ╱3c╱<╱ // 0x15ca @0x6
0x15c4…1606 at0007 = ╱53╱S╱ // 0x15cb @0x7
0x15c4…1606 at0008 = ╱3e╱>╱ // 0x15cc @0x8
0x15c4…1606 at0009 = ╱22╱"╱ // 0x15cd @0x9
0x15c4…1606 at000a = ╱ea╱ ; ╱ // 0x15ce @0xa
0x15c4…1606 at000b = ╱d0╱ CHR$ ╱ // 0x15cf @0xb
0x15c4…1606 at000c = ╱ed╱ ( ╱ // 0x15d0 @0xc
0x15c4…1606 at000d = ╱54╱T╱ // 0x15d1 @0xd
0x15c4…1606 at000e = ╱4f╱O╱ // 0x15d2 @0xe
0x15c4…1606 at000f = ╱54╱T╱ // 0x15d3 @0xf
0x15c4…1606 at0010 = ╱41╱A╱ // 0x15d4 @0x10
0x15c4…1606 at0011 = ╱4c╱L╱ // 0x15d5 @0x11
0x15c4…1606 at0012 = ╱ed╱ ( ╱ // 0x15d6 @0x12
0x15c4…1606 at0013 = ╱31╱1╱ // 0x15d7 @0x13
0x15c4…1606 at0014 = ╱f20100╱ // 0x15d8 @0x14
0x15c4…1606 at0017 = ╱ee╱ ) ╱ // 0x15db @0x17
0x15c4…1606 at0018 = ╱ec╱ , ╱ // 0x15dc @0x18
0x15c4…1606 at0019 = ╱39╱9╱ // 0x15dd @0x19
0x15c4…1606 at001a = ╱f20900╱ // 0x15de @0x1a
0x15c4…1606 at001d = ╱ec╱ , ╱ // 0x15e1 @0x1d
0x15c4…1606 at001e = ╱32╱2╱ // 0x15e2 @0x1e
0x15c4…1606 at001f = ╱f20200╱ // 0x15e3 @0x1f
0x15c4…1606 at0022 = ╱ee╱ ) ╱ // 0x15e6 @0x22
0x15c4…1606 at0023 = ╱ea╱ ; ╱ // 0x15e7 @0x23
0x15c4…1606 at0024 = ╱22╱"╱ // 0x15e8 @0x24
0x15c4…1606 at0025 = ╱20╱…╱ // 0x15e9 @0x25
0x15c4…1606 at0026 = ╱20╱…╱ // 0x15ea @0x26
0x15c4…1606 at0027 = ╱22╱"╱ // 0x15eb @0x27
0x15c4…1606 at0028 = ╱ea╱ ; ╱ // 0x15ec @0x28
0x15c4…1606 at0029 = ╱d0╱ CHR$ ╱ // 0x15ed @0x29
0x15c4…1606 at002a = ╱ed╱ ( ╱ // 0x15ee @0x2a
0x15c4…1606 at002b = ╱54╱T╱ // 0x15ef @0x2b
0x15c4…1606 at002c = ╱4f╱O╱ // 0x15f0 @0x2c
0x15c4…1606 at002d = ╱54╱T╱ // 0x15f1 @0x2d
0x15c4…1606 at002e = ╱41╱A╱ // 0x15f2 @0x2e
0x15c4…1606 at002f = ╱4c╱L╱ // 0x15f3 @0x2f
0x15c4…1606 at0030 = ╱ed╱ ( ╱ // 0x15f4 @0x30
0x15c4…1606 at0031 = ╱32╱2╱ // 0x15f5 @0x31
0x15c4…1606 at0032 = ╱f20200╱ // 0x15f6 @0x32
0x15c4…1606 at0035 = ╱ee╱ ) ╱ // 0x15f9 @0x35
0x15c4…1606 at0036 = ╱ec╱ , ╱ // 0x15fa @0x36
0x15c4…1606 at0037 = ╱39╱9╱ // 0x15fb @0x37
0x15c4…1606 at0038 = ╱f20900╱ // 0x15fc @0x38
0x15c4…1606 at003b = ╱ec╱ , ╱ // 0x15ff @0x3b
0x15c4…1606 at003c = ╱32╱2╱ // 0x1600 @0x3c
0x15c4…1606 at003d = ╱f20200╱ // 0x1601 @0x3d
0x15c4…1606 at0040 = ╱ee╱ ) ╱ // 0x1604 @0x40
0x15c4…1606 at0041 = EOL // 0x1605 @0x41
0x15c4…1606 }
0x1606…1647 ac35 02230 PRINT "……" ; CHR$ ( TOTAL ( 3 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 4 ) , 9 , 2 )
0x1606…1647 LineComal80 {
0x1606…1647 ptr = 0xac35 // 0x1606 @0x0
0x1606…1647 lno = 0x08b6 // 0x1608 @0x2
0x1606…1647 at0004 = ╱92╱ PRINT ╱ // 0x160a @0x4
0x1606…1647 at0005 = ╱22╱"╱ // 0x160b @0x5
0x1606…1647 at0006 = ╱20╱…╱ // 0x160c @0x6
0x1606…1647 at0007 = ╱20╱…╱ // 0x160d @0x7
0x1606…1647 at0008 = ╱22╱"╱ // 0x160e @0x8
0x1606…1647 at0009 = ╱ea╱ ; ╱ // 0x160f @0x9
0x1606…1647 at000a = ╱d0╱ CHR$ ╱ // 0x1610 @0xa
0x1606…1647 at000b = ╱ed╱ ( ╱ // 0x1611 @0xb
0x1606…1647 at000c = ╱54╱T╱ // 0x1612 @0xc
0x1606…1647 at000d = ╱4f╱O╱ // 0x1613 @0xd
0x1606…1647 at000e = ╱54╱T╱ // 0x1614 @0xe
0x1606…1647 at000f = ╱41╱A╱ // 0x1615 @0xf
0x1606…1647 at0010 = ╱4c╱L╱ // 0x1616 @0x10
0x1606…1647 at0011 = ╱ed╱ ( ╱ // 0x1617 @0x11
0x1606…1647 at0012 = ╱33╱3╱ // 0x1618 @0x12
0x1606…1647 at0013 = ╱f20300╱ // 0x1619 @0x13
0x1606…1647 at0016 = ╱ee╱ ) ╱ // 0x161c @0x16
0x1606…1647 at0017 = ╱ec╱ , ╱ // 0x161d @0x17
0x1606…1647 at0018 = ╱39╱9╱ // 0x161e @0x18
0x1606…1647 at0019 = ╱f20900╱ // 0x161f @0x19
0x1606…1647 at001c = ╱ec╱ , ╱ // 0x1622 @0x1c
0x1606…1647 at001d = ╱32╱2╱ // 0x1623 @0x1d
0x1606…1647 at001e = ╱f20200╱ // 0x1624 @0x1e
0x1606…1647 at0021 = ╱ee╱ ) ╱ // 0x1627 @0x21
0x1606…1647 at0022 = ╱ea╱ ; ╱ // 0x1628 @0x22
0x1606…1647 at0023 = ╱22╱"╱ // 0x1629 @0x23
0x1606…1647 at0024 = ╱20╱…╱ // 0x162a @0x24
0x1606…1647 at0025 = ╱20╱…╱ // 0x162b @0x25
0x1606…1647 at0026 = ╱22╱"╱ // 0x162c @0x26
0x1606…1647 at0027 = ╱ea╱ ; ╱ // 0x162d @0x27
0x1606…1647 at0028 = ╱d0╱ CHR$ ╱ // 0x162e @0x28
0x1606…1647 at0029 = ╱ed╱ ( ╱ // 0x162f @0x29
0x1606…1647 at002a = ╱54╱T╱ // 0x1630 @0x2a
0x1606…1647 at002b = ╱4f╱O╱ // 0x1631 @0x2b
0x1606…1647 at002c = ╱54╱T╱ // 0x1632 @0x2c
0x1606…1647 at002d = ╱41╱A╱ // 0x1633 @0x2d
0x1606…1647 at002e = ╱4c╱L╱ // 0x1634 @0x2e
0x1606…1647 at002f = ╱ed╱ ( ╱ // 0x1635 @0x2f
0x1606…1647 at0030 = ╱34╱4╱ // 0x1636 @0x30
0x1606…1647 at0031 = ╱f20400╱ // 0x1637 @0x31
0x1606…1647 at0034 = ╱ee╱ ) ╱ // 0x163a @0x34
0x1606…1647 at0035 = ╱ec╱ , ╱ // 0x163b @0x35
0x1606…1647 at0036 = ╱39╱9╱ // 0x163c @0x36
0x1606…1647 at0037 = ╱f20900╱ // 0x163d @0x37
0x1606…1647 at003a = ╱ec╱ , ╱ // 0x1640 @0x3a
0x1606…1647 at003b = ╱32╱2╱ // 0x1641 @0x3b
0x1606…1647 at003c = ╱f20200╱ // 0x1642 @0x3c
0x1606…1647 at003f = ╱ee╱ ) ╱ // 0x1645 @0x3f
0x1606…1647 at0040 = EOL // 0x1646 @0x40
0x1606…1647 }
0x1647…165d ac4b 02240 LET LIN_T := LIN_T + 2
0x1647…165d LineComal80 {
0x1647…165d ptr = 0xac4b // 0x1647 @0x0
0x1647…165d lno = 0x08c0 // 0x1649 @0x2
0x1647…165d at0004 = ╱86╱ LET ╱ // 0x164b @0x4
0x1647…165d at0005 = ╱4c╱L╱ // 0x164c @0x5
0x1647…165d at0006 = ╱49╱I╱ // 0x164d @0x6
0x1647…165d at0007 = ╱4e╱N╱ // 0x164e @0x7
0x1647…165d at0008 = ╱5f╱_╱ // 0x164f @0x8
0x1647…165d at0009 = ╱54╱T╱ // 0x1650 @0x9
0x1647…165d at000a = ╱f0╱ := ╱ // 0x1651 @0xa
0x1647…165d at000b = ╱4c╱L╱ // 0x1652 @0xb
0x1647…165d at000c = ╱49╱I╱ // 0x1653 @0xc
0x1647…165d at000d = ╱4e╱N╱ // 0x1654 @0xd
0x1647…165d at000e = ╱5f╱_╱ // 0x1655 @0xe
0x1647…165d at000f = ╱54╱T╱ // 0x1656 @0xf
0x1647…165d at0010 = ╱e5╱ + ╱ // 0x1657 @0x10
0x1647…165d at0011 = ╱32╱2╱ // 0x1658 @0x11
0x1647…165d at0012 = ╱f20200╱ // 0x1659 @0x12
0x1647…165d at0015 = EOL // 0x165c @0x15
0x1647…165d }
0x165d…1669 ac57 02250 EXEC NYSIDE
0x165d…1669 LineComal80 {
0x165d…1669 ptr = 0xac57 // 0x165d @0x0
0x165d…1669 lno = 0x08ca // 0x165f @0x2
0x165d…1669 at0004 = ╱9d╱ EXEC ╱ // 0x1661 @0x4
0x165d…1669 at0005 = ╱4e╱N╱ // 0x1662 @0x5
0x165d…1669 at0006 = ╱59╱Y╱ // 0x1663 @0x6
0x165d…1669 at0007 = ╱53╱S╱ // 0x1664 @0x7
0x165d…1669 at0008 = ╱49╱I╱ // 0x1665 @0x8
0x165d…1669 at0009 = ╱44╱D╱ // 0x1666 @0x9
0x165d…1669 at000a = ╱45╱E╱ // 0x1667 @0xa
0x165d…1669 at000b = EOL // 0x1668 @0xb
0x165d…1669 }
0x1669…1692 ac80 02260 PRINT "<S>" ; TAB ( 15 ) ; "TRANSPORT" ; TAB ( 54 )
0x1669…1692 LineComal80 {
0x1669…1692 ptr = 0xac80 // 0x1669 @0x0
0x1669…1692 lno = 0x08d4 // 0x166b @0x2
0x1669…1692 at0004 = ╱92╱ PRINT ╱ // 0x166d @0x4
0x1669…1692 at0005 = ╱22╱"╱ // 0x166e @0x5
0x1669…1692 at0006 = ╱3c╱<╱ // 0x166f @0x6
0x1669…1692 at0007 = ╱53╱S╱ // 0x1670 @0x7
0x1669…1692 at0008 = ╱3e╱>╱ // 0x1671 @0x8
0x1669…1692 at0009 = ╱22╱"╱ // 0x1672 @0x9
0x1669…1692 at000a = ╱ea╱ ; ╱ // 0x1673 @0xa
0x1669…1692 at000b = ╱d2╱ TAB ╱ // 0x1674 @0xb
0x1669…1692 at000c = ╱ed╱ ( ╱ // 0x1675 @0xc
0x1669…1692 at000d = ╱31╱1╱ // 0x1676 @0xd
0x1669…1692 at000e = ╱35╱5╱ // 0x1677 @0xe
0x1669…1692 at000f = ╱f20f00╱ // 0x1678 @0xf
0x1669…1692 at0012 = ╱ee╱ ) ╱ // 0x167b @0x12
0x1669…1692 at0013 = ╱ea╱ ; ╱ // 0x167c @0x13
0x1669…1692 at0014 = ╱22╱"╱ // 0x167d @0x14
0x1669…1692 at0015 = ╱54╱T╱ // 0x167e @0x15
0x1669…1692 at0016 = ╱52╱R╱ // 0x167f @0x16
0x1669…1692 at0017 = ╱41╱A╱ // 0x1680 @0x17
0x1669…1692 at0018 = ╱4e╱N╱ // 0x1681 @0x18
0x1669…1692 at0019 = ╱53╱S╱ // 0x1682 @0x19
0x1669…1692 at001a = ╱50╱P╱ // 0x1683 @0x1a
0x1669…1692 at001b = ╱4f╱O╱ // 0x1684 @0x1b
0x1669…1692 at001c = ╱52╱R╱ // 0x1685 @0x1c
0x1669…1692 at001d = ╱54╱T╱ // 0x1686 @0x1d
0x1669…1692 at001e = ╱22╱"╱ // 0x1687 @0x1e
0x1669…1692 at001f = ╱ea╱ ; ╱ // 0x1688 @0x1f
0x1669…1692 at0020 = ╱d2╱ TAB ╱ // 0x1689 @0x20
0x1669…1692 at0021 = ╱ed╱ ( ╱ // 0x168a @0x21
0x1669…1692 at0022 = ╱35╱5╱ // 0x168b @0x22
0x1669…1692 at0023 = ╱34╱4╱ // 0x168c @0x23
0x1669…1692 at0024 = ╱f23600╱ // 0x168d @0x24
0x1669…1692 at0027 = ╱ee╱ ) ╱ // 0x1690 @0x27
0x1669…1692 at0028 = EOL // 0x1691 @0x28
0x1669…1692 }
0x1692…16d4 acc2 02270 PRINT "<S>" ; CHR$ ( TOTAL ( 1 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 2 ) , 9 , 2 )
0x1692…16d4 LineComal80 {
0x1692…16d4 ptr = 0xacc2 // 0x1692 @0x0
0x1692…16d4 lno = 0x08de // 0x1694 @0x2
0x1692…16d4 at0004 = ╱92╱ PRINT ╱ // 0x1696 @0x4
0x1692…16d4 at0005 = ╱22╱"╱ // 0x1697 @0x5
0x1692…16d4 at0006 = ╱3c╱<╱ // 0x1698 @0x6
0x1692…16d4 at0007 = ╱53╱S╱ // 0x1699 @0x7
0x1692…16d4 at0008 = ╱3e╱>╱ // 0x169a @0x8
0x1692…16d4 at0009 = ╱22╱"╱ // 0x169b @0x9
0x1692…16d4 at000a = ╱ea╱ ; ╱ // 0x169c @0xa
0x1692…16d4 at000b = ╱d0╱ CHR$ ╱ // 0x169d @0xb
0x1692…16d4 at000c = ╱ed╱ ( ╱ // 0x169e @0xc
0x1692…16d4 at000d = ╱54╱T╱ // 0x169f @0xd
0x1692…16d4 at000e = ╱4f╱O╱ // 0x16a0 @0xe
0x1692…16d4 at000f = ╱54╱T╱ // 0x16a1 @0xf
0x1692…16d4 at0010 = ╱41╱A╱ // 0x16a2 @0x10
0x1692…16d4 at0011 = ╱4c╱L╱ // 0x16a3 @0x11
0x1692…16d4 at0012 = ╱ed╱ ( ╱ // 0x16a4 @0x12
0x1692…16d4 at0013 = ╱31╱1╱ // 0x16a5 @0x13
0x1692…16d4 at0014 = ╱f20100╱ // 0x16a6 @0x14
0x1692…16d4 at0017 = ╱ee╱ ) ╱ // 0x16a9 @0x17
0x1692…16d4 at0018 = ╱ec╱ , ╱ // 0x16aa @0x18
0x1692…16d4 at0019 = ╱39╱9╱ // 0x16ab @0x19
0x1692…16d4 at001a = ╱f20900╱ // 0x16ac @0x1a
0x1692…16d4 at001d = ╱ec╱ , ╱ // 0x16af @0x1d
0x1692…16d4 at001e = ╱32╱2╱ // 0x16b0 @0x1e
0x1692…16d4 at001f = ╱f20200╱ // 0x16b1 @0x1f
0x1692…16d4 at0022 = ╱ee╱ ) ╱ // 0x16b4 @0x22
0x1692…16d4 at0023 = ╱ea╱ ; ╱ // 0x16b5 @0x23
0x1692…16d4 at0024 = ╱22╱"╱ // 0x16b6 @0x24
0x1692…16d4 at0025 = ╱20╱…╱ // 0x16b7 @0x25
0x1692…16d4 at0026 = ╱20╱…╱ // 0x16b8 @0x26
0x1692…16d4 at0027 = ╱22╱"╱ // 0x16b9 @0x27
0x1692…16d4 at0028 = ╱ea╱ ; ╱ // 0x16ba @0x28
0x1692…16d4 at0029 = ╱d0╱ CHR$ ╱ // 0x16bb @0x29
0x1692…16d4 at002a = ╱ed╱ ( ╱ // 0x16bc @0x2a
0x1692…16d4 at002b = ╱54╱T╱ // 0x16bd @0x2b
0x1692…16d4 at002c = ╱4f╱O╱ // 0x16be @0x2c
0x1692…16d4 at002d = ╱54╱T╱ // 0x16bf @0x2d
0x1692…16d4 at002e = ╱41╱A╱ // 0x16c0 @0x2e
0x1692…16d4 at002f = ╱4c╱L╱ // 0x16c1 @0x2f
0x1692…16d4 at0030 = ╱ed╱ ( ╱ // 0x16c2 @0x30
0x1692…16d4 at0031 = ╱32╱2╱ // 0x16c3 @0x31
0x1692…16d4 at0032 = ╱f20200╱ // 0x16c4 @0x32
0x1692…16d4 at0035 = ╱ee╱ ) ╱ // 0x16c7 @0x35
0x1692…16d4 at0036 = ╱ec╱ , ╱ // 0x16c8 @0x36
0x1692…16d4 at0037 = ╱39╱9╱ // 0x16c9 @0x37
0x1692…16d4 at0038 = ╱f20900╱ // 0x16ca @0x38
0x1692…16d4 at003b = ╱ec╱ , ╱ // 0x16cd @0x3b
0x1692…16d4 at003c = ╱32╱2╱ // 0x16ce @0x3c
0x1692…16d4 at003d = ╱f20200╱ // 0x16cf @0x3d
0x1692…16d4 at0040 = ╱ee╱ ) ╱ // 0x16d2 @0x40
0x1692…16d4 at0041 = EOL // 0x16d3 @0x41
0x1692…16d4 }
0x16d4…1715 ad03 02280 PRINT "……" ; CHR$ ( TOTAL ( 3 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 4 ) , 9 , 2 )
0x16d4…1715 LineComal80 {
0x16d4…1715 ptr = 0xad03 // 0x16d4 @0x0
0x16d4…1715 lno = 0x08e8 // 0x16d6 @0x2
0x16d4…1715 at0004 = ╱92╱ PRINT ╱ // 0x16d8 @0x4
0x16d4…1715 at0005 = ╱22╱"╱ // 0x16d9 @0x5
0x16d4…1715 at0006 = ╱20╱…╱ // 0x16da @0x6
0x16d4…1715 at0007 = ╱20╱…╱ // 0x16db @0x7
0x16d4…1715 at0008 = ╱22╱"╱ // 0x16dc @0x8
0x16d4…1715 at0009 = ╱ea╱ ; ╱ // 0x16dd @0x9
0x16d4…1715 at000a = ╱d0╱ CHR$ ╱ // 0x16de @0xa
0x16d4…1715 at000b = ╱ed╱ ( ╱ // 0x16df @0xb
0x16d4…1715 at000c = ╱54╱T╱ // 0x16e0 @0xc
0x16d4…1715 at000d = ╱4f╱O╱ // 0x16e1 @0xd
0x16d4…1715 at000e = ╱54╱T╱ // 0x16e2 @0xe
0x16d4…1715 at000f = ╱41╱A╱ // 0x16e3 @0xf
0x16d4…1715 at0010 = ╱4c╱L╱ // 0x16e4 @0x10
0x16d4…1715 at0011 = ╱ed╱ ( ╱ // 0x16e5 @0x11
0x16d4…1715 at0012 = ╱33╱3╱ // 0x16e6 @0x12
0x16d4…1715 at0013 = ╱f20300╱ // 0x16e7 @0x13
0x16d4…1715 at0016 = ╱ee╱ ) ╱ // 0x16ea @0x16
0x16d4…1715 at0017 = ╱ec╱ , ╱ // 0x16eb @0x17
0x16d4…1715 at0018 = ╱39╱9╱ // 0x16ec @0x18
0x16d4…1715 at0019 = ╱f20900╱ // 0x16ed @0x19
0x16d4…1715 at001c = ╱ec╱ , ╱ // 0x16f0 @0x1c
0x16d4…1715 at001d = ╱32╱2╱ // 0x16f1 @0x1d
0x16d4…1715 at001e = ╱f20200╱ // 0x16f2 @0x1e
0x16d4…1715 at0021 = ╱ee╱ ) ╱ // 0x16f5 @0x21
0x16d4…1715 at0022 = ╱ea╱ ; ╱ // 0x16f6 @0x22
0x16d4…1715 at0023 = ╱22╱"╱ // 0x16f7 @0x23
0x16d4…1715 at0024 = ╱20╱…╱ // 0x16f8 @0x24
0x16d4…1715 at0025 = ╱20╱…╱ // 0x16f9 @0x25
0x16d4…1715 at0026 = ╱22╱"╱ // 0x16fa @0x26
0x16d4…1715 at0027 = ╱ea╱ ; ╱ // 0x16fb @0x27
0x16d4…1715 at0028 = ╱d0╱ CHR$ ╱ // 0x16fc @0x28
0x16d4…1715 at0029 = ╱ed╱ ( ╱ // 0x16fd @0x29
0x16d4…1715 at002a = ╱54╱T╱ // 0x16fe @0x2a
0x16d4…1715 at002b = ╱4f╱O╱ // 0x16ff @0x2b
0x16d4…1715 at002c = ╱54╱T╱ // 0x1700 @0x2c
0x16d4…1715 at002d = ╱41╱A╱ // 0x1701 @0x2d
0x16d4…1715 at002e = ╱4c╱L╱ // 0x1702 @0x2e
0x16d4…1715 at002f = ╱ed╱ ( ╱ // 0x1703 @0x2f
0x16d4…1715 at0030 = ╱34╱4╱ // 0x1704 @0x30
0x16d4…1715 at0031 = ╱f20400╱ // 0x1705 @0x31
0x16d4…1715 at0034 = ╱ee╱ ) ╱ // 0x1708 @0x34
0x16d4…1715 at0035 = ╱ec╱ , ╱ // 0x1709 @0x35
0x16d4…1715 at0036 = ╱39╱9╱ // 0x170a @0x36
0x16d4…1715 at0037 = ╱f20900╱ // 0x170b @0x37
0x16d4…1715 at003a = ╱ec╱ , ╱ // 0x170e @0x3a
0x16d4…1715 at003b = ╱32╱2╱ // 0x170f @0x3b
0x16d4…1715 at003c = ╱f20200╱ // 0x1710 @0x3c
0x16d4…1715 at003f = ╱ee╱ ) ╱ // 0x1713 @0x3f
0x16d4…1715 at0040 = EOL // 0x1714 @0x40
0x16d4…1715 }
0x1715…172b ad19 02290 LET LIN_T := LIN_T + 1
0x1715…172b LineComal80 {
0x1715…172b ptr = 0xad19 // 0x1715 @0x0
0x1715…172b lno = 0x08f2 // 0x1717 @0x2
0x1715…172b at0004 = ╱86╱ LET ╱ // 0x1719 @0x4
0x1715…172b at0005 = ╱4c╱L╱ // 0x171a @0x5
0x1715…172b at0006 = ╱49╱I╱ // 0x171b @0x6
0x1715…172b at0007 = ╱4e╱N╱ // 0x171c @0x7
0x1715…172b at0008 = ╱5f╱_╱ // 0x171d @0x8
0x1715…172b at0009 = ╱54╱T╱ // 0x171e @0x9
0x1715…172b at000a = ╱f0╱ := ╱ // 0x171f @0xa
0x1715…172b at000b = ╱4c╱L╱ // 0x1720 @0xb
0x1715…172b at000c = ╱49╱I╱ // 0x1721 @0xc
0x1715…172b at000d = ╱4e╱N╱ // 0x1722 @0xd
0x1715…172b at000e = ╱5f╱_╱ // 0x1723 @0xe
0x1715…172b at000f = ╱54╱T╱ // 0x1724 @0xf
0x1715…172b at0010 = ╱e5╱ + ╱ // 0x1725 @0x10
0x1715…172b at0011 = ╱31╱1╱ // 0x1726 @0x11
0x1715…172b at0012 = ╱f20100╱ // 0x1727 @0x12
0x1715…172b at0015 = EOL // 0x172a @0x15
0x1715…172b }
0x172b…1732 ad20 02300 ELSE
0x172b…1732 LineComal80 {
0x172b…1732 ptr = 0xad20 // 0x172b @0x0
0x172b…1732 lno = 0x08fc // 0x172d @0x2
0x172b…1732 at0004 = ╱9a23╱ ELSE ╱ // 0x172f @0x4
0x172b…1732 at0006 = EOL // 0x1731 @0x6
0x172b…1732 }
0x1732…173e ad2c 02310 EXEC NYSIDE
0x1732…173e LineComal80 {
0x1732…173e ptr = 0xad2c // 0x1732 @0x0
0x1732…173e lno = 0x0906 // 0x1734 @0x2
0x1732…173e at0004 = ╱9d╱ EXEC ╱ // 0x1736 @0x4
0x1732…173e at0005 = ╱4e╱N╱ // 0x1737 @0x5
0x1732…173e at0006 = ╱59╱Y╱ // 0x1738 @0x6
0x1732…173e at0007 = ╱53╱S╱ // 0x1739 @0x7
0x1732…173e at0008 = ╱49╱I╱ // 0x173a @0x8
0x1732…173e at0009 = ╱44╱D╱ // 0x173b @0x9
0x1732…173e at000a = ╱45╱E╱ // 0x173c @0xa
0x1732…173e at000b = EOL // 0x173d @0xb
0x1732…173e }
0x173e…1744 ad32 02320 ENDIF
0x173e…1744 LineComal80 {
0x173e…1744 ptr = 0xad32 // 0x173e @0x0
0x173e…1744 lno = 0x0910 // 0x1740 @0x2
0x173e…1744 at0004 = ╱9c╱ ENDIF ╱ // 0x1742 @0x4
0x173e…1744 at0005 = EOL // 0x1743 @0x5
0x173e…1744 }
0x1744…1753 ad41 02330 ENDPROC SIDESKIFT
0x1744…1753 LineComal80 {
0x1744…1753 ptr = 0xad41 // 0x1744 @0x0
0x1744…1753 lno = 0x091a // 0x1746 @0x2
0x1744…1753 at0004 = ╱9f╱ ENDPROC ╱ // 0x1748 @0x4
0x1744…1753 at0005 = ╱53╱S╱ // 0x1749 @0x5
0x1744…1753 at0006 = ╱49╱I╱ // 0x174a @0x6
0x1744…1753 at0007 = ╱44╱D╱ // 0x174b @0x7
0x1744…1753 at0008 = ╱45╱E╱ // 0x174c @0x8
0x1744…1753 at0009 = ╱53╱S╱ // 0x174d @0x9
0x1744…1753 at000a = ╱4b╱K╱ // 0x174e @0xa
0x1744…1753 at000b = ╱49╱I╱ // 0x174f @0xb
0x1744…1753 at000c = ╱46╱F╱ // 0x1750 @0xc
0x1744…1753 at000d = ╱54╱T╱ // 0x1751 @0xd
0x1744…1753 at000e = EOL // 0x1752 @0xe
0x1744…1753 }
0x1753…1758 ad46 02340
0x1753…1758 LineComal80 {
0x1753…1758 ptr = 0xad46 // 0x1753 @0x0
0x1753…1758 lno = 0x0924 // 0x1755 @0x2
0x1753…1758 at0004 = EOL // 0x1757 @0x4
0x1753…1758 }
0x1758…1765 ad53 02350 PROC NYSIDE
0x1758…1765 LineComal80 {
0x1758…1765 ptr = 0xad53 // 0x1758 @0x0
0x1758…1765 lno = 0x092e // 0x175a @0x2
0x1758…1765 at0004 = ╱9e24╱ PROC ╱ // 0x175c @0x4
0x1758…1765 at0006 = ╱4e╱N╱ // 0x175e @0x6
0x1758…1765 at0007 = ╱59╱Y╱ // 0x175f @0x7
0x1758…1765 at0008 = ╱53╱S╱ // 0x1760 @0x8
0x1758…1765 at0009 = ╱49╱I╱ // 0x1761 @0x9
0x1758…1765 at000a = ╱44╱D╱ // 0x1762 @0xa
0x1758…1765 at000b = ╱45╱E╱ // 0x1763 @0xb
0x1758…1765 at000c = EOL // 0x1764 @0xc
0x1758…1765 }
0x1765…177d ba08 02360 FOR I := LIN_T TO AX_LIN DO PRINT
0x1765…177d LineComal80 {
0x1765…177d ptr = 0xba08 // 0x1765 @0x0
0x1765…177d lno = 0x0938 // 0x1767 @0x2
0x1765…177d at0004 = ╱b400╱ FOR ╱ // 0x1769 @0x4
0x1765…177d at0006 = ╱49╱I╱ // 0x176b @0x6
0x1765…177d at0007 = ╱f0╱ := ╱ // 0x176c @0x7
0x1765…177d at0008 = ╱4c╱L╱ // 0x176d @0x8
0x1765…177d at0009 = ╱49╱I╱ // 0x176e @0x9
0x1765…177d at000a = ╱4e╱N╱ // 0x176f @0xa
0x1765…177d at000b = ╱5f╱_╱ // 0x1770 @0xb
0x1765…177d at000c = ╱54╱T╱ // 0x1771 @0xc
0x1765…177d at000d = ╱b74d╱ TO ╱ // 0x1772 @0xd
0x1765…177d at000f = ╱41╱A╱ // 0x1774 @0xf
0x1765…177d at0010 = ╱58╱X╱ // 0x1775 @0x10
0x1765…177d at0011 = ╱5f╱_╱ // 0x1776 @0x11
0x1765…177d at0012 = ╱4c╱L╱ // 0x1777 @0x12
0x1765…177d at0013 = ╱49╱I╱ // 0x1778 @0x13
0x1765…177d at0014 = ╱4e╱N╱ // 0x1779 @0x14
0x1765…177d at0015 = ╱bb╱ DO ╱ // 0x177a @0x15
0x1765…177d at0016 = ╱92╱ PRINT ╱ // 0x177b @0x16
0x1765…177d at0017 = EOL // 0x177c @0x17
0x1765…177d }
0x177d…17a0 b8f2 02630 LET LIN_T := 8 ; SIDENR := SIDENR + 1
0x177d…17a0 LineComal80 {
0x177d…17a0 ptr = 0xb8f2 // 0x177d @0x0
0x177d…17a0 lno = 0x0a46 // 0x177f @0x2
0x177d…17a0 at0004 = ╱86╱ LET ╱ // 0x1781 @0x4
0x177d…17a0 at0005 = ╱4c╱L╱ // 0x1782 @0x5
0x177d…17a0 at0006 = ╱49╱I╱ // 0x1783 @0x6
0x177d…17a0 at0007 = ╱4e╱N╱ // 0x1784 @0x7
0x177d…17a0 at0008 = ╱5f╱_╱ // 0x1785 @0x8
0x177d…17a0 at0009 = ╱54╱T╱ // 0x1786 @0x9
0x177d…17a0 at000a = ╱f0╱ := ╱ // 0x1787 @0xa
0x177d…17a0 at000b = ╱38╱8╱ // 0x1788 @0xb
0x177d…17a0 at000c = ╱f20800╱ // 0x1789 @0xc
0x177d…17a0 at000f = ╱ea╱ ; ╱ // 0x178c @0xf
0x177d…17a0 at0010 = ╱53╱S╱ // 0x178d @0x10
0x177d…17a0 at0011 = ╱49╱I╱ // 0x178e @0x11
0x177d…17a0 at0012 = ╱44╱D╱ // 0x178f @0x12
0x177d…17a0 at0013 = ╱45╱E╱ // 0x1790 @0x13
0x177d…17a0 at0014 = ╱4e╱N╱ // 0x1791 @0x14
0x177d…17a0 at0015 = ╱52╱R╱ // 0x1792 @0x15
0x177d…17a0 at0016 = ╱f0╱ := ╱ // 0x1793 @0x16
0x177d…17a0 at0017 = ╱53╱S╱ // 0x1794 @0x17
0x177d…17a0 at0018 = ╱49╱I╱ // 0x1795 @0x18
0x177d…17a0 at0019 = ╱44╱D╱ // 0x1796 @0x19
0x177d…17a0 at001a = ╱45╱E╱ // 0x1797 @0x1a
0x177d…17a0 at001b = ╱4e╱N╱ // 0x1798 @0x1b
0x177d…17a0 at001c = ╱52╱R╱ // 0x1799 @0x1c
0x177d…17a0 at001d = ╱e5╱ + ╱ // 0x179a @0x1d
0x177d…17a0 at001e = ╱31╱1╱ // 0x179b @0x1e
0x177d…17a0 at001f = ╱f20100╱ // 0x179c @0x1f
0x177d…17a0 at0022 = EOL // 0x179f @0x22
0x177d…17a0 }
0x17a0…17ca adb8 02640 PRINT "<S>***…" ; SYST_NAVN $ ; "…***" ; TAB ( 73 )
0x17a0…17ca LineComal80 {
0x17a0…17ca ptr = 0xadb8 // 0x17a0 @0x0
0x17a0…17ca lno = 0x0a50 // 0x17a2 @0x2
0x17a0…17ca at0004 = ╱92╱ PRINT ╱ // 0x17a4 @0x4
0x17a0…17ca at0005 = ╱22╱"╱ // 0x17a5 @0x5
0x17a0…17ca at0006 = ╱3c╱<╱ // 0x17a6 @0x6
0x17a0…17ca at0007 = ╱53╱S╱ // 0x17a7 @0x7
0x17a0…17ca at0008 = ╱3e╱>╱ // 0x17a8 @0x8
0x17a0…17ca at0009 = ╱2a╱*╱ // 0x17a9 @0x9
0x17a0…17ca at000a = ╱2a╱*╱ // 0x17aa @0xa
0x17a0…17ca at000b = ╱2a╱*╱ // 0x17ab @0xb
0x17a0…17ca at000c = ╱20╱…╱ // 0x17ac @0xc
0x17a0…17ca at000d = ╱22╱"╱ // 0x17ad @0xd
0x17a0…17ca at000e = ╱ea╱ ; ╱ // 0x17ae @0xe
0x17a0…17ca at000f = ╱53╱S╱ // 0x17af @0xf
0x17a0…17ca at0010 = ╱59╱Y╱ // 0x17b0 @0x10
0x17a0…17ca at0011 = ╱53╱S╱ // 0x17b1 @0x11
0x17a0…17ca at0012 = ╱54╱T╱ // 0x17b2 @0x12
0x17a0…17ca at0013 = ╱5f╱_╱ // 0x17b3 @0x13
0x17a0…17ca at0014 = ╱4e╱N╱ // 0x17b4 @0x14
0x17a0…17ca at0015 = ╱41╱A╱ // 0x17b5 @0x15
0x17a0…17ca at0016 = ╱56╱V╱ // 0x17b6 @0x16
0x17a0…17ca at0017 = ╱4e╱N╱ // 0x17b7 @0x17
0x17a0…17ca at0018 = ╱ef╱ $ ╱ // 0x17b8 @0x18
0x17a0…17ca at0019 = ╱ea╱ ; ╱ // 0x17b9 @0x19
0x17a0…17ca at001a = ╱22╱"╱ // 0x17ba @0x1a
0x17a0…17ca at001b = ╱20╱…╱ // 0x17bb @0x1b
0x17a0…17ca at001c = ╱2a╱*╱ // 0x17bc @0x1c
0x17a0…17ca at001d = ╱2a╱*╱ // 0x17bd @0x1d
0x17a0…17ca at001e = ╱2a╱*╱ // 0x17be @0x1e
0x17a0…17ca at001f = ╱22╱"╱ // 0x17bf @0x1f
0x17a0…17ca at0020 = ╱ea╱ ; ╱ // 0x17c0 @0x20
0x17a0…17ca at0021 = ╱d2╱ TAB ╱ // 0x17c1 @0x21
0x17a0…17ca at0022 = ╱ed╱ ( ╱ // 0x17c2 @0x22
0x17a0…17ca at0023 = ╱37╱7╱ // 0x17c3 @0x23
0x17a0…17ca at0024 = ╱33╱3╱ // 0x17c4 @0x24
0x17a0…17ca at0025 = ╱f24900╱ // 0x17c5 @0x25
0x17a0…17ca at0028 = ╱ee╱ ) ╱ // 0x17c8 @0x28
0x17a0…17ca at0029 = EOL // 0x17c9 @0x29
0x17a0…17ca }
0x17ca…17e8 add6 02650 PRINT TAB ( 27 ) ; "SIDE:…" ; SIDENR
0x17ca…17e8 LineComal80 {
0x17ca…17e8 ptr = 0xadd6 // 0x17ca @0x0
0x17ca…17e8 lno = 0x0a5a // 0x17cc @0x2
0x17ca…17e8 at0004 = ╱92╱ PRINT ╱ // 0x17ce @0x4
0x17ca…17e8 at0005 = ╱d2╱ TAB ╱ // 0x17cf @0x5
0x17ca…17e8 at0006 = ╱ed╱ ( ╱ // 0x17d0 @0x6
0x17ca…17e8 at0007 = ╱32╱2╱ // 0x17d1 @0x7
0x17ca…17e8 at0008 = ╱37╱7╱ // 0x17d2 @0x8
0x17ca…17e8 at0009 = ╱f21b00╱ // 0x17d3 @0x9
0x17ca…17e8 at000c = ╱ee╱ ) ╱ // 0x17d6 @0xc
0x17ca…17e8 at000d = ╱ea╱ ; ╱ // 0x17d7 @0xd
0x17ca…17e8 at000e = ╱22╱"╱ // 0x17d8 @0xe
0x17ca…17e8 at000f = ╱53╱S╱ // 0x17d9 @0xf
0x17ca…17e8 at0010 = ╱49╱I╱ // 0x17da @0x10
0x17ca…17e8 at0011 = ╱44╱D╱ // 0x17db @0x11
0x17ca…17e8 at0012 = ╱45╱E╱ // 0x17dc @0x12
0x17ca…17e8 at0013 = ╱3a╱:╱ // 0x17dd @0x13
0x17ca…17e8 at0014 = ╱20╱…╱ // 0x17de @0x14
0x17ca…17e8 at0015 = ╱22╱"╱ // 0x17df @0x15
0x17ca…17e8 at0016 = ╱ea╱ ; ╱ // 0x17e0 @0x16
0x17ca…17e8 at0017 = ╱53╱S╱ // 0x17e1 @0x17
0x17ca…17e8 at0018 = ╱49╱I╱ // 0x17e2 @0x18
0x17ca…17e8 at0019 = ╱44╱D╱ // 0x17e3 @0x19
0x17ca…17e8 at001a = ╱45╱E╱ // 0x17e4 @0x1a
0x17ca…17e8 at001b = ╱4e╱N╱ // 0x17e5 @0x1b
0x17ca…17e8 at001c = ╱52╱R╱ // 0x17e6 @0x1c
0x17ca…17e8 at001d = EOL // 0x17e7 @0x1d
0x17ca…17e8 }
0x17e8…17ee addc 02660 PRINT
0x17e8…17ee LineComal80 {
0x17e8…17ee ptr = 0xaddc // 0x17e8 @0x0
0x17e8…17ee lno = 0x0a64 // 0x17ea @0x2
0x17e8…17ee at0004 = ╱92╱ PRINT ╱ // 0x17ec @0x4
0x17e8…17ee at0005 = EOL // 0x17ed @0x5
0x17e8…17ee }
0x17ee…1818 ae06 02670 PRINT "<S>Firmanavn:…" ; FIRMANAVN $ ; TAB ( 46 )
0x17ee…1818 LineComal80 {
0x17ee…1818 ptr = 0xae06 // 0x17ee @0x0
0x17ee…1818 lno = 0x0a6e // 0x17f0 @0x2
0x17ee…1818 at0004 = ╱92╱ PRINT ╱ // 0x17f2 @0x4
0x17ee…1818 at0005 = ╱22╱"╱ // 0x17f3 @0x5
0x17ee…1818 at0006 = ╱3c╱<╱ // 0x17f4 @0x6
0x17ee…1818 at0007 = ╱53╱S╱ // 0x17f5 @0x7
0x17ee…1818 at0008 = ╱3e╱>╱ // 0x17f6 @0x8
0x17ee…1818 at0009 = ╱46╱F╱ // 0x17f7 @0x9
0x17ee…1818 at000a = ╱69╱i╱ // 0x17f8 @0xa
0x17ee…1818 at000b = ╱72╱r╱ // 0x17f9 @0xb
0x17ee…1818 at000c = ╱6d╱m╱ // 0x17fa @0xc
0x17ee…1818 at000d = ╱61╱a╱ // 0x17fb @0xd
0x17ee…1818 at000e = ╱6e╱n╱ // 0x17fc @0xe
0x17ee…1818 at000f = ╱61╱a╱ // 0x17fd @0xf
0x17ee…1818 at0010 = ╱76╱v╱ // 0x17fe @0x10
0x17ee…1818 at0011 = ╱6e╱n╱ // 0x17ff @0x11
0x17ee…1818 at0012 = ╱3a╱:╱ // 0x1800 @0x12
0x17ee…1818 at0013 = ╱20╱…╱ // 0x1801 @0x13
0x17ee…1818 at0014 = ╱22╱"╱ // 0x1802 @0x14
0x17ee…1818 at0015 = ╱ea╱ ; ╱ // 0x1803 @0x15
0x17ee…1818 at0016 = ╱46╱F╱ // 0x1804 @0x16
0x17ee…1818 at0017 = ╱49╱I╱ // 0x1805 @0x17
0x17ee…1818 at0018 = ╱52╱R╱ // 0x1806 @0x18
0x17ee…1818 at0019 = ╱4d╱M╱ // 0x1807 @0x19
0x17ee…1818 at001a = ╱41╱A╱ // 0x1808 @0x1a
0x17ee…1818 at001b = ╱4e╱N╱ // 0x1809 @0x1b
0x17ee…1818 at001c = ╱41╱A╱ // 0x180a @0x1c
0x17ee…1818 at001d = ╱56╱V╱ // 0x180b @0x1d
0x17ee…1818 at001e = ╱4e╱N╱ // 0x180c @0x1e
0x17ee…1818 at001f = ╱ef╱ $ ╱ // 0x180d @0x1f
0x17ee…1818 at0020 = ╱ea╱ ; ╱ // 0x180e @0x20
0x17ee…1818 at0021 = ╱d2╱ TAB ╱ // 0x180f @0x21
0x17ee…1818 at0022 = ╱ed╱ ( ╱ // 0x1810 @0x22
0x17ee…1818 at0023 = ╱34╱4╱ // 0x1811 @0x23
0x17ee…1818 at0024 = ╱36╱6╱ // 0x1812 @0x24
0x17ee…1818 at0025 = ╱f22e00╱ // 0x1813 @0x25
0x17ee…1818 at0028 = ╱ee╱ ) ╱ // 0x1816 @0x28
0x17ee…1818 at0029 = EOL // 0x1817 @0x29
0x17ee…1818 }
0x1818…1850 ae3e 02680 PRINT "<S>***…BALANCE…***" ; TAB ( 24 ) ; "***…UDSKREVET…PR.…"
0x1818…1850 LineComal80 {
0x1818…1850 ptr = 0xae3e // 0x1818 @0x0
0x1818…1850 lno = 0x0a78 // 0x181a @0x2
0x1818…1850 at0004 = ╱92╱ PRINT ╱ // 0x181c @0x4
0x1818…1850 at0005 = ╱22╱"╱ // 0x181d @0x5
0x1818…1850 at0006 = ╱3c╱<╱ // 0x181e @0x6
0x1818…1850 at0007 = ╱53╱S╱ // 0x181f @0x7
0x1818…1850 at0008 = ╱3e╱>╱ // 0x1820 @0x8
0x1818…1850 at0009 = ╱2a╱*╱ // 0x1821 @0x9
0x1818…1850 at000a = ╱2a╱*╱ // 0x1822 @0xa
0x1818…1850 at000b = ╱2a╱*╱ // 0x1823 @0xb
0x1818…1850 at000c = ╱20╱…╱ // 0x1824 @0xc
0x1818…1850 at000d = ╱42╱B╱ // 0x1825 @0xd
0x1818…1850 at000e = ╱41╱A╱ // 0x1826 @0xe
0x1818…1850 at000f = ╱4c╱L╱ // 0x1827 @0xf
0x1818…1850 at0010 = ╱41╱A╱ // 0x1828 @0x10
0x1818…1850 at0011 = ╱4e╱N╱ // 0x1829 @0x11
0x1818…1850 at0012 = ╱43╱C╱ // 0x182a @0x12
0x1818…1850 at0013 = ╱45╱E╱ // 0x182b @0x13
0x1818…1850 at0014 = ╱20╱…╱ // 0x182c @0x14
0x1818…1850 at0015 = ╱2a╱*╱ // 0x182d @0x15
0x1818…1850 at0016 = ╱2a╱*╱ // 0x182e @0x16
0x1818…1850 at0017 = ╱2a╱*╱ // 0x182f @0x17
0x1818…1850 at0018 = ╱22╱"╱ // 0x1830 @0x18
0x1818…1850 at0019 = ╱ea╱ ; ╱ // 0x1831 @0x19
0x1818…1850 at001a = ╱d2╱ TAB ╱ // 0x1832 @0x1a
0x1818…1850 at001b = ╱ed╱ ( ╱ // 0x1833 @0x1b
0x1818…1850 at001c = ╱32╱2╱ // 0x1834 @0x1c
0x1818…1850 at001d = ╱34╱4╱ // 0x1835 @0x1d
0x1818…1850 at001e = ╱f21800╱ // 0x1836 @0x1e
0x1818…1850 at0021 = ╱ee╱ ) ╱ // 0x1839 @0x21
0x1818…1850 at0022 = ╱ea╱ ; ╱ // 0x183a @0x22
0x1818…1850 at0023 = ╱22╱"╱ // 0x183b @0x23
0x1818…1850 at0024 = ╱2a╱*╱ // 0x183c @0x24
0x1818…1850 at0025 = ╱2a╱*╱ // 0x183d @0x25
0x1818…1850 at0026 = ╱2a╱*╱ // 0x183e @0x26
0x1818…1850 at0027 = ╱20╱…╱ // 0x183f @0x27
0x1818…1850 at0028 = ╱55╱U╱ // 0x1840 @0x28
0x1818…1850 at0029 = ╱44╱D╱ // 0x1841 @0x29
0x1818…1850 at002a = ╱53╱S╱ // 0x1842 @0x2a
0x1818…1850 at002b = ╱4b╱K╱ // 0x1843 @0x2b
0x1818…1850 at002c = ╱52╱R╱ // 0x1844 @0x2c
0x1818…1850 at002d = ╱45╱E╱ // 0x1845 @0x2d
0x1818…1850 at002e = ╱56╱V╱ // 0x1846 @0x2e
0x1818…1850 at002f = ╱45╱E╱ // 0x1847 @0x2f
0x1818…1850 at0030 = ╱54╱T╱ // 0x1848 @0x30
0x1818…1850 at0031 = ╱20╱…╱ // 0x1849 @0x31
0x1818…1850 at0032 = ╱50╱P╱ // 0x184a @0x32
0x1818…1850 at0033 = ╱52╱R╱ // 0x184b @0x33
0x1818…1850 at0034 = ╱2e╱.╱ // 0x184c @0x34
0x1818…1850 at0035 = ╱20╱…╱ // 0x184d @0x35
0x1818…1850 at0036 = ╱22╱"╱ // 0x184e @0x36
0x1818…1850 at0037 = EOL // 0x184f @0x37
0x1818…1850 }
0x1850…18a3 ae91 02690 PRINT SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ; SYST_DAT $ ( 5 : 2 ) ; "…***"
0x1850…18a3 LineComal80 {
0x1850…18a3 ptr = 0xae91 // 0x1850 @0x0
0x1850…18a3 lno = 0x0a82 // 0x1852 @0x2
0x1850…18a3 at0004 = ╱92╱ PRINT ╱ // 0x1854 @0x4
0x1850…18a3 at0005 = ╱53╱S╱ // 0x1855 @0x5
0x1850…18a3 at0006 = ╱59╱Y╱ // 0x1856 @0x6
0x1850…18a3 at0007 = ╱53╱S╱ // 0x1857 @0x7
0x1850…18a3 at0008 = ╱54╱T╱ // 0x1858 @0x8
0x1850…18a3 at0009 = ╱5f╱_╱ // 0x1859 @0x9
0x1850…18a3 at000a = ╱44╱D╱ // 0x185a @0xa
0x1850…18a3 at000b = ╱41╱A╱ // 0x185b @0xb
0x1850…18a3 at000c = ╱54╱T╱ // 0x185c @0xc
0x1850…18a3 at000d = ╱ef╱ $ ╱ // 0x185d @0xd
0x1850…18a3 at000e = ╱ed╱ ( ╱ // 0x185e @0xe
0x1850…18a3 at000f = ╱31╱1╱ // 0x185f @0xf
0x1850…18a3 at0010 = ╱f20100╱ // 0x1860 @0x10
0x1850…18a3 at0013 = ╱f1╱ : ╱ // 0x1863 @0x13
0x1850…18a3 at0014 = ╱32╱2╱ // 0x1864 @0x14
0x1850…18a3 at0015 = ╱f20200╱ // 0x1865 @0x15
0x1850…18a3 at0018 = ╱ee╱ ) ╱ // 0x1868 @0x18
0x1850…18a3 at0019 = ╱ea╱ ; ╱ // 0x1869 @0x19
0x1850…18a3 at001a = ╱22╱"╱ // 0x186a @0x1a
0x1850…18a3 at001b = ╱2e╱.╱ // 0x186b @0x1b
0x1850…18a3 at001c = ╱22╱"╱ // 0x186c @0x1c
0x1850…18a3 at001d = ╱ea╱ ; ╱ // 0x186d @0x1d
0x1850…18a3 at001e = ╱53╱S╱ // 0x186e @0x1e
0x1850…18a3 at001f = ╱59╱Y╱ // 0x186f @0x1f
0x1850…18a3 at0020 = ╱53╱S╱ // 0x1870 @0x20
0x1850…18a3 at0021 = ╱54╱T╱ // 0x1871 @0x21
0x1850…18a3 at0022 = ╱5f╱_╱ // 0x1872 @0x22
0x1850…18a3 at0023 = ╱44╱D╱ // 0x1873 @0x23
0x1850…18a3 at0024 = ╱41╱A╱ // 0x1874 @0x24
0x1850…18a3 at0025 = ╱54╱T╱ // 0x1875 @0x25
0x1850…18a3 at0026 = ╱ef╱ $ ╱ // 0x1876 @0x26
0x1850…18a3 at0027 = ╱ed╱ ( ╱ // 0x1877 @0x27
0x1850…18a3 at0028 = ╱33╱3╱ // 0x1878 @0x28
0x1850…18a3 at0029 = ╱f20300╱ // 0x1879 @0x29
0x1850…18a3 at002c = ╱f1╱ : ╱ // 0x187c @0x2c
0x1850…18a3 at002d = ╱32╱2╱ // 0x187d @0x2d
0x1850…18a3 at002e = ╱f20200╱ // 0x187e @0x2e
0x1850…18a3 at0031 = ╱ee╱ ) ╱ // 0x1881 @0x31
0x1850…18a3 at0032 = ╱ea╱ ; ╱ // 0x1882 @0x32
0x1850…18a3 at0033 = ╱22╱"╱ // 0x1883 @0x33
0x1850…18a3 at0034 = ╱2e╱.╱ // 0x1884 @0x34
0x1850…18a3 at0035 = ╱22╱"╱ // 0x1885 @0x35
0x1850…18a3 at0036 = ╱ea╱ ; ╱ // 0x1886 @0x36
0x1850…18a3 at0037 = ╱53╱S╱ // 0x1887 @0x37
0x1850…18a3 at0038 = ╱59╱Y╱ // 0x1888 @0x38
0x1850…18a3 at0039 = ╱53╱S╱ // 0x1889 @0x39
0x1850…18a3 at003a = ╱54╱T╱ // 0x188a @0x3a
0x1850…18a3 at003b = ╱5f╱_╱ // 0x188b @0x3b
0x1850…18a3 at003c = ╱44╱D╱ // 0x188c @0x3c
0x1850…18a3 at003d = ╱41╱A╱ // 0x188d @0x3d
0x1850…18a3 at003e = ╱54╱T╱ // 0x188e @0x3e
0x1850…18a3 at003f = ╱ef╱ $ ╱ // 0x188f @0x3f
0x1850…18a3 at0040 = ╱ed╱ ( ╱ // 0x1890 @0x40
0x1850…18a3 at0041 = ╱35╱5╱ // 0x1891 @0x41
0x1850…18a3 at0042 = ╱f20500╱ // 0x1892 @0x42
0x1850…18a3 at0045 = ╱f1╱ : ╱ // 0x1895 @0x45
0x1850…18a3 at0046 = ╱32╱2╱ // 0x1896 @0x46
0x1850…18a3 at0047 = ╱f20200╱ // 0x1897 @0x47
0x1850…18a3 at004a = ╱ee╱ ) ╱ // 0x189a @0x4a
0x1850…18a3 at004b = ╱ea╱ ; ╱ // 0x189b @0x4b
0x1850…18a3 at004c = ╱22╱"╱ // 0x189c @0x4c
0x1850…18a3 at004d = ╱20╱…╱ // 0x189d @0x4d
0x1850…18a3 at004e = ╱2a╱*╱ // 0x189e @0x4e
0x1850…18a3 at004f = ╱2a╱*╱ // 0x189f @0x4f
0x1850…18a3 at0050 = ╱2a╱*╱ // 0x18a0 @0x50
0x1850…18a3 at0051 = ╱22╱"╱ // 0x18a1 @0x51
0x1850…18a3 at0052 = EOL // 0x18a2 @0x52
0x1850…18a3 }
0x18a3…18a9 ae97 02700 PRINT
0x18a3…18a9 LineComal80 {
0x18a3…18a9 ptr = 0xae97 // 0x18a3 @0x0
0x18a3…18a9 lno = 0x0a8c // 0x18a5 @0x2
0x18a3…18a9 at0004 = ╱92╱ PRINT ╱ // 0x18a7 @0x4
0x18a3…18a9 at0005 = EOL // 0x18a8 @0x5
0x18a3…18a9 }
0x18a9…18bd aeab 02710 PRINT "<S>" ; TAB ( 54 )
0x18a9…18bd LineComal80 {
0x18a9…18bd ptr = 0xaeab // 0x18a9 @0x0
0x18a9…18bd lno = 0x0a96 // 0x18ab @0x2
0x18a9…18bd at0004 = ╱92╱ PRINT ╱ // 0x18ad @0x4
0x18a9…18bd at0005 = ╱22╱"╱ // 0x18ae @0x5
0x18a9…18bd at0006 = ╱3c╱<╱ // 0x18af @0x6
0x18a9…18bd at0007 = ╱53╱S╱ // 0x18b0 @0x7
0x18a9…18bd at0008 = ╱3e╱>╱ // 0x18b1 @0x8
0x18a9…18bd at0009 = ╱22╱"╱ // 0x18b2 @0x9
0x18a9…18bd at000a = ╱ea╱ ; ╱ // 0x18b3 @0xa
0x18a9…18bd at000b = ╱d2╱ TAB ╱ // 0x18b4 @0xb
0x18a9…18bd at000c = ╱ed╱ ( ╱ // 0x18b5 @0xc
0x18a9…18bd at000d = ╱35╱5╱ // 0x18b6 @0xd
0x18a9…18bd at000e = ╱34╱4╱ // 0x18b7 @0xe
0x18a9…18bd at000f = ╱f23600╱ // 0x18b8 @0xf
0x18a9…18bd at0012 = ╱ee╱ ) ╱ // 0x18bb @0x12
0x18a9…18bd at0013 = EOL // 0x18bc @0x13
0x18a9…18bd }
0x18bd…1901 aeef 02460 PRINT TAB ( 7 ) ; "R…]…B…A…L…A…N…C…E" ; TAB ( 30 ) ; "S…A…L…D…O…B…A…L…A…N…C…E"
0x18bd…1901 LineComal80 {
0x18bd…1901 ptr = 0xaeef // 0x18bd @0x0
0x18bd…1901 lno = 0x099c // 0x18bf @0x2
0x18bd…1901 at0004 = ╱92╱ PRINT ╱ // 0x18c1 @0x4
0x18bd…1901 at0005 = ╱d2╱ TAB ╱ // 0x18c2 @0x5
0x18bd…1901 at0006 = ╱ed╱ ( ╱ // 0x18c3 @0x6
0x18bd…1901 at0007 = ╱37╱7╱ // 0x18c4 @0x7
0x18bd…1901 at0008 = ╱f20700╱ // 0x18c5 @0x8
0x18bd…1901 at000b = ╱ee╱ ) ╱ // 0x18c8 @0xb
0x18bd…1901 at000c = ╱ea╱ ; ╱ // 0x18c9 @0xc
0x18bd…1901 at000d = ╱22╱"╱ // 0x18ca @0xd
0x18bd…1901 at000e = ╱52╱R╱ // 0x18cb @0xe
0x18bd…1901 at000f = ╱20╱…╱ // 0x18cc @0xf
0x18bd…1901 at0010 = ╱5d╱]╱ // 0x18cd @0x10
0x18bd…1901 at0011 = ╱20╱…╱ // 0x18ce @0x11
0x18bd…1901 at0012 = ╱42╱B╱ // 0x18cf @0x12
0x18bd…1901 at0013 = ╱20╱…╱ // 0x18d0 @0x13
0x18bd…1901 at0014 = ╱41╱A╱ // 0x18d1 @0x14
0x18bd…1901 at0015 = ╱20╱…╱ // 0x18d2 @0x15
0x18bd…1901 at0016 = ╱4c╱L╱ // 0x18d3 @0x16
0x18bd…1901 at0017 = ╱20╱…╱ // 0x18d4 @0x17
0x18bd…1901 at0018 = ╱41╱A╱ // 0x18d5 @0x18
0x18bd…1901 at0019 = ╱20╱…╱ // 0x18d6 @0x19
0x18bd…1901 at001a = ╱4e╱N╱ // 0x18d7 @0x1a
0x18bd…1901 at001b = ╱20╱…╱ // 0x18d8 @0x1b
0x18bd…1901 at001c = ╱43╱C╱ // 0x18d9 @0x1c
0x18bd…1901 at001d = ╱20╱…╱ // 0x18da @0x1d
0x18bd…1901 at001e = ╱45╱E╱ // 0x18db @0x1e
0x18bd…1901 at001f = ╱22╱"╱ // 0x18dc @0x1f
0x18bd…1901 at0020 = ╱ea╱ ; ╱ // 0x18dd @0x20
0x18bd…1901 at0021 = ╱d2╱ TAB ╱ // 0x18de @0x21
0x18bd…1901 at0022 = ╱ed╱ ( ╱ // 0x18df @0x22
0x18bd…1901 at0023 = ╱33╱3╱ // 0x18e0 @0x23
0x18bd…1901 at0024 = ╱30╱0╱ // 0x18e1 @0x24
0x18bd…1901 at0025 = ╱f21e00╱ // 0x18e2 @0x25
0x18bd…1901 at0028 = ╱ee╱ ) ╱ // 0x18e5 @0x28
0x18bd…1901 at0029 = ╱ea╱ ; ╱ // 0x18e6 @0x29
0x18bd…1901 at002a = ╱22╱"╱ // 0x18e7 @0x2a
0x18bd…1901 at002b = ╱53╱S╱ // 0x18e8 @0x2b
0x18bd…1901 at002c = ╱20╱…╱ // 0x18e9 @0x2c
0x18bd…1901 at002d = ╱41╱A╱ // 0x18ea @0x2d
0x18bd…1901 at002e = ╱20╱…╱ // 0x18eb @0x2e
0x18bd…1901 at002f = ╱4c╱L╱ // 0x18ec @0x2f
0x18bd…1901 at0030 = ╱20╱…╱ // 0x18ed @0x30
0x18bd…1901 at0031 = ╱44╱D╱ // 0x18ee @0x31
0x18bd…1901 at0032 = ╱20╱…╱ // 0x18ef @0x32
0x18bd…1901 at0033 = ╱4f╱O╱ // 0x18f0 @0x33
0x18bd…1901 at0034 = ╱20╱…╱ // 0x18f1 @0x34
0x18bd…1901 at0035 = ╱42╱B╱ // 0x18f2 @0x35
0x18bd…1901 at0036 = ╱20╱…╱ // 0x18f3 @0x36
0x18bd…1901 at0037 = ╱41╱A╱ // 0x18f4 @0x37
0x18bd…1901 at0038 = ╱20╱…╱ // 0x18f5 @0x38
0x18bd…1901 at0039 = ╱4c╱L╱ // 0x18f6 @0x39
0x18bd…1901 at003a = ╱20╱…╱ // 0x18f7 @0x3a
0x18bd…1901 at003b = ╱41╱A╱ // 0x18f8 @0x3b
0x18bd…1901 at003c = ╱20╱…╱ // 0x18f9 @0x3c
0x18bd…1901 at003d = ╱4e╱N╱ // 0x18fa @0x3d
0x18bd…1901 at003e = ╱20╱…╱ // 0x18fb @0x3e
0x18bd…1901 at003f = ╱43╱C╱ // 0x18fc @0x3f
0x18bd…1901 at0040 = ╱20╱…╱ // 0x18fd @0x40
0x18bd…1901 at0041 = ╱45╱E╱ // 0x18fe @0x41
0x18bd…1901 at0042 = ╱22╱"╱ // 0x18ff @0x42
0x18bd…1901 at0043 = EOL // 0x1900 @0x43
0x18bd…1901 }
0x1901…1929 af17 02470 PRINT "<S>KONTONR.………KONTONAVN" ; TAB ( 54 )
0x1901…1929 LineComal80 {
0x1901…1929 ptr = 0xaf17 // 0x1901 @0x0
0x1901…1929 lno = 0x09a6 // 0x1903 @0x2
0x1901…1929 at0004 = ╱92╱ PRINT ╱ // 0x1905 @0x4
0x1901…1929 at0005 = ╱22╱"╱ // 0x1906 @0x5
0x1901…1929 at0006 = ╱3c╱<╱ // 0x1907 @0x6
0x1901…1929 at0007 = ╱53╱S╱ // 0x1908 @0x7
0x1901…1929 at0008 = ╱3e╱>╱ // 0x1909 @0x8
0x1901…1929 at0009 = ╱4b╱K╱ // 0x190a @0x9
0x1901…1929 at000a = ╱4f╱O╱ // 0x190b @0xa
0x1901…1929 at000b = ╱4e╱N╱ // 0x190c @0xb
0x1901…1929 at000c = ╱54╱T╱ // 0x190d @0xc
0x1901…1929 at000d = ╱4f╱O╱ // 0x190e @0xd
0x1901…1929 at000e = ╱4e╱N╱ // 0x190f @0xe
0x1901…1929 at000f = ╱52╱R╱ // 0x1910 @0xf
0x1901…1929 at0010 = ╱2e╱.╱ // 0x1911 @0x10
0x1901…1929 at0011 = ╱20╱…╱ // 0x1912 @0x11
0x1901…1929 at0012 = ╱20╱…╱ // 0x1913 @0x12
0x1901…1929 at0013 = ╱20╱…╱ // 0x1914 @0x13
0x1901…1929 at0014 = ╱4b╱K╱ // 0x1915 @0x14
0x1901…1929 at0015 = ╱4f╱O╱ // 0x1916 @0x15
0x1901…1929 at0016 = ╱4e╱N╱ // 0x1917 @0x16
0x1901…1929 at0017 = ╱54╱T╱ // 0x1918 @0x17
0x1901…1929 at0018 = ╱4f╱O╱ // 0x1919 @0x18
0x1901…1929 at0019 = ╱4e╱N╱ // 0x191a @0x19
0x1901…1929 at001a = ╱41╱A╱ // 0x191b @0x1a
0x1901…1929 at001b = ╱56╱V╱ // 0x191c @0x1b
0x1901…1929 at001c = ╱4e╱N╱ // 0x191d @0x1c
0x1901…1929 at001d = ╱22╱"╱ // 0x191e @0x1d
0x1901…1929 at001e = ╱ea╱ ; ╱ // 0x191f @0x1e
0x1901…1929 at001f = ╱d2╱ TAB ╱ // 0x1920 @0x1f
0x1901…1929 at0020 = ╱ed╱ ( ╱ // 0x1921 @0x20
0x1901…1929 at0021 = ╱35╱5╱ // 0x1922 @0x21
0x1901…1929 at0022 = ╱34╱4╱ // 0x1923 @0x22
0x1901…1929 at0023 = ╱f23600╱ // 0x1924 @0x23
0x1901…1929 at0026 = ╱ee╱ ) ╱ // 0x1927 @0x26
0x1901…1929 at0027 = EOL // 0x1928 @0x27
0x1901…1929 }
0x1929…1965 af53 02480 PRINT "…………DEBET………………………KREDIT……………………DEBET………………………KREDIT"
0x1929…1965 LineComal80 {
0x1929…1965 ptr = 0xaf53 // 0x1929 @0x0
0x1929…1965 lno = 0x09b0 // 0x192b @0x2
0x1929…1965 at0004 = ╱92╱ PRINT ╱ // 0x192d @0x4
0x1929…1965 at0005 = ╱22╱"╱ // 0x192e @0x5
0x1929…1965 at0006 = ╱20╱…╱ // 0x192f @0x6
0x1929…1965 at0007 = ╱20╱…╱ // 0x1930 @0x7
0x1929…1965 at0008 = ╱20╱…╱ // 0x1931 @0x8
0x1929…1965 at0009 = ╱20╱…╱ // 0x1932 @0x9
0x1929…1965 at000a = ╱44╱D╱ // 0x1933 @0xa
0x1929…1965 at000b = ╱45╱E╱ // 0x1934 @0xb
0x1929…1965 at000c = ╱42╱B╱ // 0x1935 @0xc
0x1929…1965 at000d = ╱45╱E╱ // 0x1936 @0xd
0x1929…1965 at000e = ╱54╱T╱ // 0x1937 @0xe
0x1929…1965 at000f = ╱20╱…╱ // 0x1938 @0xf
0x1929…1965 at0010 = ╱20╱…╱ // 0x1939 @0x10
0x1929…1965 at0011 = ╱20╱…╱ // 0x193a @0x11
0x1929…1965 at0012 = ╱20╱…╱ // 0x193b @0x12
0x1929…1965 at0013 = ╱20╱…╱ // 0x193c @0x13
0x1929…1965 at0014 = ╱20╱…╱ // 0x193d @0x14
0x1929…1965 at0015 = ╱20╱…╱ // 0x193e @0x15
0x1929…1965 at0016 = ╱20╱…╱ // 0x193f @0x16
0x1929…1965 at0017 = ╱20╱…╱ // 0x1940 @0x17
0x1929…1965 at0018 = ╱4b╱K╱ // 0x1941 @0x18
0x1929…1965 at0019 = ╱52╱R╱ // 0x1942 @0x19
0x1929…1965 at001a = ╱45╱E╱ // 0x1943 @0x1a
0x1929…1965 at001b = ╱44╱D╱ // 0x1944 @0x1b
0x1929…1965 at001c = ╱49╱I╱ // 0x1945 @0x1c
0x1929…1965 at001d = ╱54╱T╱ // 0x1946 @0x1d
0x1929…1965 at001e = ╱20╱…╱ // 0x1947 @0x1e
0x1929…1965 at001f = ╱20╱…╱ // 0x1948 @0x1f
0x1929…1965 at0020 = ╱20╱…╱ // 0x1949 @0x20
0x1929…1965 at0021 = ╱20╱…╱ // 0x194a @0x21
0x1929…1965 at0022 = ╱20╱…╱ // 0x194b @0x22
0x1929…1965 at0023 = ╱20╱…╱ // 0x194c @0x23
0x1929…1965 at0024 = ╱20╱…╱ // 0x194d @0x24
0x1929…1965 at0025 = ╱20╱…╱ // 0x194e @0x25
0x1929…1965 at0026 = ╱44╱D╱ // 0x194f @0x26
0x1929…1965 at0027 = ╱45╱E╱ // 0x1950 @0x27
0x1929…1965 at0028 = ╱42╱B╱ // 0x1951 @0x28
0x1929…1965 at0029 = ╱45╱E╱ // 0x1952 @0x29
0x1929…1965 at002a = ╱54╱T╱ // 0x1953 @0x2a
0x1929…1965 at002b = ╱20╱…╱ // 0x1954 @0x2b
0x1929…1965 at002c = ╱20╱…╱ // 0x1955 @0x2c
0x1929…1965 at002d = ╱20╱…╱ // 0x1956 @0x2d
0x1929…1965 at002e = ╱20╱…╱ // 0x1957 @0x2e
0x1929…1965 at002f = ╱20╱…╱ // 0x1958 @0x2f
0x1929…1965 at0030 = ╱20╱…╱ // 0x1959 @0x30
0x1929…1965 at0031 = ╱20╱…╱ // 0x195a @0x31
0x1929…1965 at0032 = ╱20╱…╱ // 0x195b @0x32
0x1929…1965 at0033 = ╱20╱…╱ // 0x195c @0x33
0x1929…1965 at0034 = ╱4b╱K╱ // 0x195d @0x34
0x1929…1965 at0035 = ╱52╱R╱ // 0x195e @0x35
0x1929…1965 at0036 = ╱45╱E╱ // 0x195f @0x36
0x1929…1965 at0037 = ╱44╱D╱ // 0x1960 @0x37
0x1929…1965 at0038 = ╱49╱I╱ // 0x1961 @0x38
0x1929…1965 at0039 = ╱54╱T╱ // 0x1962 @0x39
0x1929…1965 at003a = ╱22╱"╱ // 0x1963 @0x3a
0x1929…1965 at003b = EOL // 0x1964 @0x3b
0x1929…1965 }
0x1965…1976 af64 02490 EXEC SKRIV_STREG
0x1965…1976 LineComal80 {
0x1965…1976 ptr = 0xaf64 // 0x1965 @0x0
0x1965…1976 lno = 0x09ba // 0x1967 @0x2
0x1965…1976 at0004 = ╱9d╱ EXEC ╱ // 0x1969 @0x4
0x1965…1976 at0005 = ╱53╱S╱ // 0x196a @0x5
0x1965…1976 at0006 = ╱4b╱K╱ // 0x196b @0x6
0x1965…1976 at0007 = ╱52╱R╱ // 0x196c @0x7
0x1965…1976 at0008 = ╱49╱I╱ // 0x196d @0x8
0x1965…1976 at0009 = ╱56╱V╱ // 0x196e @0x9
0x1965…1976 at000a = ╱5f╱_╱ // 0x196f @0xa
0x1965…1976 at000b = ╱53╱S╱ // 0x1970 @0xb
0x1965…1976 at000c = ╱54╱T╱ // 0x1971 @0xc
0x1965…1976 at000d = ╱52╱R╱ // 0x1972 @0xd
0x1965…1976 at000e = ╱45╱E╱ // 0x1973 @0xe
0x1965…1976 at000f = ╱47╱G╱ // 0x1974 @0xf
0x1965…1976 at0010 = EOL // 0x1975 @0x10
0x1965…1976 }
0x1976…1982 af70 02500 ENDPROC NYSIDE
0x1976…1982 LineComal80 {
0x1976…1982 ptr = 0xaf70 // 0x1976 @0x0
0x1976…1982 lno = 0x09c4 // 0x1978 @0x2
0x1976…1982 at0004 = ╱9f╱ ENDPROC ╱ // 0x197a @0x4
0x1976…1982 at0005 = ╱4e╱N╱ // 0x197b @0x5
0x1976…1982 at0006 = ╱59╱Y╱ // 0x197c @0x6
0x1976…1982 at0007 = ╱53╱S╱ // 0x197d @0x7
0x1976…1982 at0008 = ╱49╱I╱ // 0x197e @0x8
0x1976…1982 at0009 = ╱44╱D╱ // 0x197f @0x9
0x1976…1982 at000a = ╱45╱E╱ // 0x1980 @0xa
0x1976…1982 at000b = EOL // 0x1981 @0xb
0x1976…1982 }
0x1982…1987 af75 02510
0x1982…1987 LineComal80 {
0x1982…1987 ptr = 0xaf75 // 0x1982 @0x0
0x1982…1987 lno = 0x09ce // 0x1984 @0x2
0x1982…1987 at0004 = EOL // 0x1986 @0x4
0x1982…1987 }
0x1987…1997 af85 02520 PROC SKRIV_LIN
0x1987…1997 LineComal80 {
0x1987…1997 ptr = 0xaf85 // 0x1987 @0x0
0x1987…1997 lno = 0x09d8 // 0x1989 @0x2
0x1987…1997 at0004 = ╱9e25╱ PROC ╱ // 0x198b @0x4
0x1987…1997 at0006 = ╱53╱S╱ // 0x198d @0x6
0x1987…1997 at0007 = ╱4b╱K╱ // 0x198e @0x7
0x1987…1997 at0008 = ╱52╱R╱ // 0x198f @0x8
0x1987…1997 at0009 = ╱49╱I╱ // 0x1990 @0x9
0x1987…1997 at000a = ╱56╱V╱ // 0x1991 @0xa
0x1987…1997 at000b = ╱5f╱_╱ // 0x1992 @0xb
0x1987…1997 at000c = ╱4c╱L╱ // 0x1993 @0xc
0x1987…1997 at000d = ╱49╱I╱ // 0x1994 @0xd
0x1987…1997 at000e = ╱4e╱N╱ // 0x1995 @0xe
0x1987…1997 at000f = EOL // 0x1996 @0xf
0x1987…1997 }
0x1997…19bb afa9 02530 IF LIN_T + 5 > MAX_LIN THEN EXEC SIDESKIFT
0x1997…19bb LineComal80 {
0x1997…19bb ptr = 0xafa9 // 0x1997 @0x0
0x1997…19bb lno = 0x09e2 // 0x1999 @0x2
0x1997…19bb at0004 = ╱8200╱ IF ╱ // 0x199b @0x4
0x1997…19bb at0006 = ╱4c╱L╱ // 0x199d @0x6
0x1997…19bb at0007 = ╱49╱I╱ // 0x199e @0x7
0x1997…19bb at0008 = ╱4e╱N╱ // 0x199f @0x8
0x1997…19bb at0009 = ╱5f╱_╱ // 0x19a0 @0x9
0x1997…19bb at000a = ╱54╱T╱ // 0x19a1 @0xa
0x1997…19bb at000b = ╱e5╱ + ╱ // 0x19a2 @0xb
0x1997…19bb at000c = ╱35╱5╱ // 0x19a3 @0xc
0x1997…19bb at000d = ╱f20500╱ // 0x19a4 @0xd
0x1997…19bb at0010 = ╱e1╱ > ╱ // 0x19a7 @0x10
0x1997…19bb at0011 = ╱4d╱M╱ // 0x19a8 @0x11
0x1997…19bb at0012 = ╱41╱A╱ // 0x19a9 @0x12
0x1997…19bb at0013 = ╱58╱X╱ // 0x19aa @0x13
0x1997…19bb at0014 = ╱5f╱_╱ // 0x19ab @0x14
0x1997…19bb at0015 = ╱4c╱L╱ // 0x19ac @0x15
0x1997…19bb at0016 = ╱49╱I╱ // 0x19ad @0x16
0x1997…19bb at0017 = ╱4e╱N╱ // 0x19ae @0x17
0x1997…19bb at0018 = ╱b5╱ THEN ╱ // 0x19af @0x18
0x1997…19bb at0019 = ╱9d╱ EXEC ╱ // 0x19b0 @0x19
0x1997…19bb at001a = ╱53╱S╱ // 0x19b1 @0x1a
0x1997…19bb at001b = ╱49╱I╱ // 0x19b2 @0x1b
0x1997…19bb at001c = ╱44╱D╱ // 0x19b3 @0x1c
0x1997…19bb at001d = ╱45╱E╱ // 0x19b4 @0x1d
0x1997…19bb at001e = ╱53╱S╱ // 0x19b5 @0x1e
0x1997…19bb at001f = ╱4b╱K╱ // 0x19b6 @0x1f
0x1997…19bb at0020 = ╱49╱I╱ // 0x19b7 @0x20
0x1997…19bb at0021 = ╱46╱F╱ // 0x19b8 @0x21
0x1997…19bb at0022 = ╱54╱T╱ // 0x19b9 @0x22
0x1997…19bb at0023 = EOL // 0x19ba @0x23
0x1997…19bb }
0x19bb…19d1 afbf 02540 LET LIN_T := LIN_T + 1
0x19bb…19d1 LineComal80 {
0x19bb…19d1 ptr = 0xafbf // 0x19bb @0x0
0x19bb…19d1 lno = 0x09ec // 0x19bd @0x2
0x19bb…19d1 at0004 = ╱86╱ LET ╱ // 0x19bf @0x4
0x19bb…19d1 at0005 = ╱4c╱L╱ // 0x19c0 @0x5
0x19bb…19d1 at0006 = ╱49╱I╱ // 0x19c1 @0x6
0x19bb…19d1 at0007 = ╱4e╱N╱ // 0x19c2 @0x7
0x19bb…19d1 at0008 = ╱5f╱_╱ // 0x19c3 @0x8
0x19bb…19d1 at0009 = ╱54╱T╱ // 0x19c4 @0x9
0x19bb…19d1 at000a = ╱f0╱ := ╱ // 0x19c5 @0xa
0x19bb…19d1 at000b = ╱4c╱L╱ // 0x19c6 @0xb
0x19bb…19d1 at000c = ╱49╱I╱ // 0x19c7 @0xc
0x19bb…19d1 at000d = ╱4e╱N╱ // 0x19c8 @0xd
0x19bb…19d1 at000e = ╱5f╱_╱ // 0x19c9 @0xe
0x19bb…19d1 at000f = ╱54╱T╱ // 0x19ca @0xf
0x19bb…19d1 at0010 = ╱e5╱ + ╱ // 0x19cb @0x10
0x19bb…19d1 at0011 = ╱31╱1╱ // 0x19cc @0x11
0x19bb…19d1 at0012 = ╱f20100╱ // 0x19cd @0x12
0x19bb…19d1 at0015 = EOL // 0x19d0 @0x15
0x19bb…19d1 }
0x19d1…19ff afed 02550 PRINT "<S>" ; KTONR $ ; TAB ( 15 ) ; KTO_NAVN $ ; TAB ( 54 )
0x19d1…19ff LineComal80 {
0x19d1…19ff ptr = 0xafed // 0x19d1 @0x0
0x19d1…19ff lno = 0x09f6 // 0x19d3 @0x2
0x19d1…19ff at0004 = ╱92╱ PRINT ╱ // 0x19d5 @0x4
0x19d1…19ff at0005 = ╱22╱"╱ // 0x19d6 @0x5
0x19d1…19ff at0006 = ╱3c╱<╱ // 0x19d7 @0x6
0x19d1…19ff at0007 = ╱53╱S╱ // 0x19d8 @0x7
0x19d1…19ff at0008 = ╱3e╱>╱ // 0x19d9 @0x8
0x19d1…19ff at0009 = ╱22╱"╱ // 0x19da @0x9
0x19d1…19ff at000a = ╱ea╱ ; ╱ // 0x19db @0xa
0x19d1…19ff at000b = ╱4b╱K╱ // 0x19dc @0xb
0x19d1…19ff at000c = ╱54╱T╱ // 0x19dd @0xc
0x19d1…19ff at000d = ╱4f╱O╱ // 0x19de @0xd
0x19d1…19ff at000e = ╱4e╱N╱ // 0x19df @0xe
0x19d1…19ff at000f = ╱52╱R╱ // 0x19e0 @0xf
0x19d1…19ff at0010 = ╱ef╱ $ ╱ // 0x19e1 @0x10
0x19d1…19ff at0011 = ╱ea╱ ; ╱ // 0x19e2 @0x11
0x19d1…19ff at0012 = ╱d2╱ TAB ╱ // 0x19e3 @0x12
0x19d1…19ff at0013 = ╱ed╱ ( ╱ // 0x19e4 @0x13
0x19d1…19ff at0014 = ╱31╱1╱ // 0x19e5 @0x14
0x19d1…19ff at0015 = ╱35╱5╱ // 0x19e6 @0x15
0x19d1…19ff at0016 = ╱f20f00╱ // 0x19e7 @0x16
0x19d1…19ff at0019 = ╱ee╱ ) ╱ // 0x19ea @0x19
0x19d1…19ff at001a = ╱ea╱ ; ╱ // 0x19eb @0x1a
0x19d1…19ff at001b = ╱4b╱K╱ // 0x19ec @0x1b
0x19d1…19ff at001c = ╱54╱T╱ // 0x19ed @0x1c
0x19d1…19ff at001d = ╱4f╱O╱ // 0x19ee @0x1d
0x19d1…19ff at001e = ╱5f╱_╱ // 0x19ef @0x1e
0x19d1…19ff at001f = ╱4e╱N╱ // 0x19f0 @0x1f
0x19d1…19ff at0020 = ╱41╱A╱ // 0x19f1 @0x20
0x19d1…19ff at0021 = ╱56╱V╱ // 0x19f2 @0x21
0x19d1…19ff at0022 = ╱4e╱N╱ // 0x19f3 @0x22
0x19d1…19ff at0023 = ╱ef╱ $ ╱ // 0x19f4 @0x23
0x19d1…19ff at0024 = ╱ea╱ ; ╱ // 0x19f5 @0x24
0x19d1…19ff at0025 = ╱d2╱ TAB ╱ // 0x19f6 @0x25
0x19d1…19ff at0026 = ╱ed╱ ( ╱ // 0x19f7 @0x26
0x19d1…19ff at0027 = ╱35╱5╱ // 0x19f8 @0x27
0x19d1…19ff at0028 = ╱34╱4╱ // 0x19f9 @0x28
0x19d1…19ff at0029 = ╱f23600╱ // 0x19fa @0x29
0x19d1…19ff at002c = ╱ee╱ ) ╱ // 0x19fd @0x2c
0x19d1…19ff at002d = EOL // 0x19fe @0x2d
0x19d1…19ff }
0x19ff…1a3d b02b 02560 PRINT "<S>" ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; "……" ; CHR$ ( TOT ( 2 ) , 9 , 2 )
0x19ff…1a3d LineComal80 {
0x19ff…1a3d ptr = 0xb02b // 0x19ff @0x0
0x19ff…1a3d lno = 0x0a00 // 0x1a01 @0x2
0x19ff…1a3d at0004 = ╱92╱ PRINT ╱ // 0x1a03 @0x4
0x19ff…1a3d at0005 = ╱22╱"╱ // 0x1a04 @0x5
0x19ff…1a3d at0006 = ╱3c╱<╱ // 0x1a05 @0x6
0x19ff…1a3d at0007 = ╱53╱S╱ // 0x1a06 @0x7
0x19ff…1a3d at0008 = ╱3e╱>╱ // 0x1a07 @0x8
0x19ff…1a3d at0009 = ╱22╱"╱ // 0x1a08 @0x9
0x19ff…1a3d at000a = ╱ea╱ ; ╱ // 0x1a09 @0xa
0x19ff…1a3d at000b = ╱d0╱ CHR$ ╱ // 0x1a0a @0xb
0x19ff…1a3d at000c = ╱ed╱ ( ╱ // 0x1a0b @0xc
0x19ff…1a3d at000d = ╱54╱T╱ // 0x1a0c @0xd
0x19ff…1a3d at000e = ╱4f╱O╱ // 0x1a0d @0xe
0x19ff…1a3d at000f = ╱54╱T╱ // 0x1a0e @0xf
0x19ff…1a3d at0010 = ╱ed╱ ( ╱ // 0x1a0f @0x10
0x19ff…1a3d at0011 = ╱31╱1╱ // 0x1a10 @0x11
0x19ff…1a3d at0012 = ╱f20100╱ // 0x1a11 @0x12
0x19ff…1a3d at0015 = ╱ee╱ ) ╱ // 0x1a14 @0x15
0x19ff…1a3d at0016 = ╱ec╱ , ╱ // 0x1a15 @0x16
0x19ff…1a3d at0017 = ╱39╱9╱ // 0x1a16 @0x17
0x19ff…1a3d at0018 = ╱f20900╱ // 0x1a17 @0x18
0x19ff…1a3d at001b = ╱ec╱ , ╱ // 0x1a1a @0x1b
0x19ff…1a3d at001c = ╱32╱2╱ // 0x1a1b @0x1c
0x19ff…1a3d at001d = ╱f20200╱ // 0x1a1c @0x1d
0x19ff…1a3d at0020 = ╱ee╱ ) ╱ // 0x1a1f @0x20
0x19ff…1a3d at0021 = ╱ea╱ ; ╱ // 0x1a20 @0x21
0x19ff…1a3d at0022 = ╱22╱"╱ // 0x1a21 @0x22
0x19ff…1a3d at0023 = ╱20╱…╱ // 0x1a22 @0x23
0x19ff…1a3d at0024 = ╱20╱…╱ // 0x1a23 @0x24
0x19ff…1a3d at0025 = ╱22╱"╱ // 0x1a24 @0x25
0x19ff…1a3d at0026 = ╱ea╱ ; ╱ // 0x1a25 @0x26
0x19ff…1a3d at0027 = ╱d0╱ CHR$ ╱ // 0x1a26 @0x27
0x19ff…1a3d at0028 = ╱ed╱ ( ╱ // 0x1a27 @0x28
0x19ff…1a3d at0029 = ╱54╱T╱ // 0x1a28 @0x29
0x19ff…1a3d at002a = ╱4f╱O╱ // 0x1a29 @0x2a
0x19ff…1a3d at002b = ╱54╱T╱ // 0x1a2a @0x2b
0x19ff…1a3d at002c = ╱ed╱ ( ╱ // 0x1a2b @0x2c
0x19ff…1a3d at002d = ╱32╱2╱ // 0x1a2c @0x2d
0x19ff…1a3d at002e = ╱f20200╱ // 0x1a2d @0x2e
0x19ff…1a3d at0031 = ╱ee╱ ) ╱ // 0x1a30 @0x31
0x19ff…1a3d at0032 = ╱ec╱ , ╱ // 0x1a31 @0x32
0x19ff…1a3d at0033 = ╱39╱9╱ // 0x1a32 @0x33
0x19ff…1a3d at0034 = ╱f20900╱ // 0x1a33 @0x34
0x19ff…1a3d at0037 = ╱ec╱ , ╱ // 0x1a36 @0x37
0x19ff…1a3d at0038 = ╱32╱2╱ // 0x1a37 @0x38
0x19ff…1a3d at0039 = ╱f20200╱ // 0x1a38 @0x39
0x19ff…1a3d at003c = ╱ee╱ ) ╱ // 0x1a3b @0x3c
0x19ff…1a3d at003d = EOL // 0x1a3c @0x3d
0x19ff…1a3d }
0x1a3d…1a86 b074 02570 LET TOTAL ( 1 ) := TOTAL ( 1 ) + TOT ( 1 ) ; TOTAL ( 2 ) := TOTAL ( 2 ) + TOT ( 2 )
0x1a3d…1a86 LineComal80 {
0x1a3d…1a86 ptr = 0xb074 // 0x1a3d @0x0
0x1a3d…1a86 lno = 0x0a0a // 0x1a3f @0x2
0x1a3d…1a86 at0004 = ╱86╱ LET ╱ // 0x1a41 @0x4
0x1a3d…1a86 at0005 = ╱54╱T╱ // 0x1a42 @0x5
0x1a3d…1a86 at0006 = ╱4f╱O╱ // 0x1a43 @0x6
0x1a3d…1a86 at0007 = ╱54╱T╱ // 0x1a44 @0x7
0x1a3d…1a86 at0008 = ╱41╱A╱ // 0x1a45 @0x8
0x1a3d…1a86 at0009 = ╱4c╱L╱ // 0x1a46 @0x9
0x1a3d…1a86 at000a = ╱ed╱ ( ╱ // 0x1a47 @0xa
0x1a3d…1a86 at000b = ╱31╱1╱ // 0x1a48 @0xb
0x1a3d…1a86 at000c = ╱f20100╱ // 0x1a49 @0xc
0x1a3d…1a86 at000f = ╱ee╱ ) ╱ // 0x1a4c @0xf
0x1a3d…1a86 at0010 = ╱f0╱ := ╱ // 0x1a4d @0x10
0x1a3d…1a86 at0011 = ╱54╱T╱ // 0x1a4e @0x11
0x1a3d…1a86 at0012 = ╱4f╱O╱ // 0x1a4f @0x12
0x1a3d…1a86 at0013 = ╱54╱T╱ // 0x1a50 @0x13
0x1a3d…1a86 at0014 = ╱41╱A╱ // 0x1a51 @0x14
0x1a3d…1a86 at0015 = ╱4c╱L╱ // 0x1a52 @0x15
0x1a3d…1a86 at0016 = ╱ed╱ ( ╱ // 0x1a53 @0x16
0x1a3d…1a86 at0017 = ╱31╱1╱ // 0x1a54 @0x17
0x1a3d…1a86 at0018 = ╱f20100╱ // 0x1a55 @0x18
0x1a3d…1a86 at001b = ╱ee╱ ) ╱ // 0x1a58 @0x1b
0x1a3d…1a86 at001c = ╱e5╱ + ╱ // 0x1a59 @0x1c
0x1a3d…1a86 at001d = ╱54╱T╱ // 0x1a5a @0x1d
0x1a3d…1a86 at001e = ╱4f╱O╱ // 0x1a5b @0x1e
0x1a3d…1a86 at001f = ╱54╱T╱ // 0x1a5c @0x1f
0x1a3d…1a86 at0020 = ╱ed╱ ( ╱ // 0x1a5d @0x20
0x1a3d…1a86 at0021 = ╱31╱1╱ // 0x1a5e @0x21
0x1a3d…1a86 at0022 = ╱f20100╱ // 0x1a5f @0x22
0x1a3d…1a86 at0025 = ╱ee╱ ) ╱ // 0x1a62 @0x25
0x1a3d…1a86 at0026 = ╱ea╱ ; ╱ // 0x1a63 @0x26
0x1a3d…1a86 at0027 = ╱54╱T╱ // 0x1a64 @0x27
0x1a3d…1a86 at0028 = ╱4f╱O╱ // 0x1a65 @0x28
0x1a3d…1a86 at0029 = ╱54╱T╱ // 0x1a66 @0x29
0x1a3d…1a86 at002a = ╱41╱A╱ // 0x1a67 @0x2a
0x1a3d…1a86 at002b = ╱4c╱L╱ // 0x1a68 @0x2b
0x1a3d…1a86 at002c = ╱ed╱ ( ╱ // 0x1a69 @0x2c
0x1a3d…1a86 at002d = ╱32╱2╱ // 0x1a6a @0x2d
0x1a3d…1a86 at002e = ╱f20200╱ // 0x1a6b @0x2e
0x1a3d…1a86 at0031 = ╱ee╱ ) ╱ // 0x1a6e @0x31
0x1a3d…1a86 at0032 = ╱f0╱ := ╱ // 0x1a6f @0x32
0x1a3d…1a86 at0033 = ╱54╱T╱ // 0x1a70 @0x33
0x1a3d…1a86 at0034 = ╱4f╱O╱ // 0x1a71 @0x34
0x1a3d…1a86 at0035 = ╱54╱T╱ // 0x1a72 @0x35
0x1a3d…1a86 at0036 = ╱41╱A╱ // 0x1a73 @0x36
0x1a3d…1a86 at0037 = ╱4c╱L╱ // 0x1a74 @0x37
0x1a3d…1a86 at0038 = ╱ed╱ ( ╱ // 0x1a75 @0x38
0x1a3d…1a86 at0039 = ╱32╱2╱ // 0x1a76 @0x39
0x1a3d…1a86 at003a = ╱f20200╱ // 0x1a77 @0x3a
0x1a3d…1a86 at003d = ╱ee╱ ) ╱ // 0x1a7a @0x3d
0x1a3d…1a86 at003e = ╱e5╱ + ╱ // 0x1a7b @0x3e
0x1a3d…1a86 at003f = ╱54╱T╱ // 0x1a7c @0x3f
0x1a3d…1a86 at0040 = ╱4f╱O╱ // 0x1a7d @0x40
0x1a3d…1a86 at0041 = ╱54╱T╱ // 0x1a7e @0x41
0x1a3d…1a86 at0042 = ╱ed╱ ( ╱ // 0x1a7f @0x42
0x1a3d…1a86 at0043 = ╱32╱2╱ // 0x1a80 @0x43
0x1a3d…1a86 at0044 = ╱f20200╱ // 0x1a81 @0x44
0x1a3d…1a86 at0047 = ╱ee╱ ) ╱ // 0x1a84 @0x47
0x1a3d…1a86 at0048 = EOL // 0x1a85 @0x48
0x1a3d…1a86 }
0x1a86…1aa1 b08f 02580 IF OT ( 1 ) > TOT ( 2 ) THEN
0x1a86…1aa1 LineComal80 {
0x1a86…1aa1 ptr = 0xb08f // 0x1a86 @0x0
0x1a86…1aa1 lno = 0x0a14 // 0x1a88 @0x2
0x1a86…1aa1 at0004 = ╱9b2654╱ IF ╱ // 0x1a8a @0x4
0x1a86…1aa1 at0007 = ╱4f╱O╱ // 0x1a8d @0x7
0x1a86…1aa1 at0008 = ╱54╱T╱ // 0x1a8e @0x8
0x1a86…1aa1 at0009 = ╱ed╱ ( ╱ // 0x1a8f @0x9
0x1a86…1aa1 at000a = ╱31╱1╱ // 0x1a90 @0xa
0x1a86…1aa1 at000b = ╱f20100╱ // 0x1a91 @0xb
0x1a86…1aa1 at000e = ╱ee╱ ) ╱ // 0x1a94 @0xe
0x1a86…1aa1 at000f = ╱e1╱ > ╱ // 0x1a95 @0xf
0x1a86…1aa1 at0010 = ╱54╱T╱ // 0x1a96 @0x10
0x1a86…1aa1 at0011 = ╱4f╱O╱ // 0x1a97 @0x11
0x1a86…1aa1 at0012 = ╱54╱T╱ // 0x1a98 @0x12
0x1a86…1aa1 at0013 = ╱ed╱ ( ╱ // 0x1a99 @0x13
0x1a86…1aa1 at0014 = ╱32╱2╱ // 0x1a9a @0x14
0x1a86…1aa1 at0015 = ╱f20200╱ // 0x1a9b @0x15
0x1a86…1aa1 at0018 = ╱ee╱ ) ╱ // 0x1a9e @0x18
0x1a86…1aa1 at0019 = ╱b5╱ THEN ╱ // 0x1a9f @0x19
0x1a86…1aa1 at001a = EOL // 0x1aa0 @0x1a
0x1a86…1aa1 }
0x1aa1…1acc b0ba 02590 PRINT "……" ; CHR$ ( TOT ( 1 ) - TOT ( 2 ) , 9 , 2 )
0x1aa1…1acc LineComal80 {
0x1aa1…1acc ptr = 0xb0ba // 0x1aa1 @0x0
0x1aa1…1acc lno = 0x0a1e // 0x1aa3 @0x2
0x1aa1…1acc at0004 = ╱92╱ PRINT ╱ // 0x1aa5 @0x4
0x1aa1…1acc at0005 = ╱22╱"╱ // 0x1aa6 @0x5
0x1aa1…1acc at0006 = ╱20╱…╱ // 0x1aa7 @0x6
0x1aa1…1acc at0007 = ╱20╱…╱ // 0x1aa8 @0x7
0x1aa1…1acc at0008 = ╱22╱"╱ // 0x1aa9 @0x8
0x1aa1…1acc at0009 = ╱ea╱ ; ╱ // 0x1aaa @0x9
0x1aa1…1acc at000a = ╱d0╱ CHR$ ╱ // 0x1aab @0xa
0x1aa1…1acc at000b = ╱ed╱ ( ╱ // 0x1aac @0xb
0x1aa1…1acc at000c = ╱54╱T╱ // 0x1aad @0xc
0x1aa1…1acc at000d = ╱4f╱O╱ // 0x1aae @0xd
0x1aa1…1acc at000e = ╱54╱T╱ // 0x1aaf @0xe
0x1aa1…1acc at000f = ╱ed╱ ( ╱ // 0x1ab0 @0xf
0x1aa1…1acc at0010 = ╱31╱1╱ // 0x1ab1 @0x10
0x1aa1…1acc at0011 = ╱f20100╱ // 0x1ab2 @0x11
0x1aa1…1acc at0014 = ╱ee╱ ) ╱ // 0x1ab5 @0x14
0x1aa1…1acc at0015 = ╱e6╱ - ╱ // 0x1ab6 @0x15
0x1aa1…1acc at0016 = ╱54╱T╱ // 0x1ab7 @0x16
0x1aa1…1acc at0017 = ╱4f╱O╱ // 0x1ab8 @0x17
0x1aa1…1acc at0018 = ╱54╱T╱ // 0x1ab9 @0x18
0x1aa1…1acc at0019 = ╱ed╱ ( ╱ // 0x1aba @0x19
0x1aa1…1acc at001a = ╱32╱2╱ // 0x1abb @0x1a
0x1aa1…1acc at001b = ╱f20200╱ // 0x1abc @0x1b
0x1aa1…1acc at001e = ╱ee╱ ) ╱ // 0x1abf @0x1e
0x1aa1…1acc at001f = ╱ec╱ , ╱ // 0x1ac0 @0x1f
0x1aa1…1acc at0020 = ╱39╱9╱ // 0x1ac1 @0x20
0x1aa1…1acc at0021 = ╱f20900╱ // 0x1ac2 @0x21
0x1aa1…1acc at0024 = ╱ec╱ , ╱ // 0x1ac5 @0x24
0x1aa1…1acc at0025 = ╱32╱2╱ // 0x1ac6 @0x25
0x1aa1…1acc at0026 = ╱f20200╱ // 0x1ac7 @0x26
0x1aa1…1acc at0029 = ╱ee╱ ) ╱ // 0x1aca @0x29
0x1aa1…1acc at002a = EOL // 0x1acb @0x2a
0x1aa1…1acc }
0x1acc…1afd b0eb 02600 LET TOTAL ( 3 ) := TOTAL ( 3 ) + TOT ( 1 ) - TOT ( 2 )
0x1acc…1afd LineComal80 {
0x1acc…1afd ptr = 0xb0eb // 0x1acc @0x0
0x1acc…1afd lno = 0x0a28 // 0x1ace @0x2
0x1acc…1afd at0004 = ╱86╱ LET ╱ // 0x1ad0 @0x4
0x1acc…1afd at0005 = ╱54╱T╱ // 0x1ad1 @0x5
0x1acc…1afd at0006 = ╱4f╱O╱ // 0x1ad2 @0x6
0x1acc…1afd at0007 = ╱54╱T╱ // 0x1ad3 @0x7
0x1acc…1afd at0008 = ╱41╱A╱ // 0x1ad4 @0x8
0x1acc…1afd at0009 = ╱4c╱L╱ // 0x1ad5 @0x9
0x1acc…1afd at000a = ╱ed╱ ( ╱ // 0x1ad6 @0xa
0x1acc…1afd at000b = ╱33╱3╱ // 0x1ad7 @0xb
0x1acc…1afd at000c = ╱f20300╱ // 0x1ad8 @0xc
0x1acc…1afd at000f = ╱ee╱ ) ╱ // 0x1adb @0xf
0x1acc…1afd at0010 = ╱f0╱ := ╱ // 0x1adc @0x10
0x1acc…1afd at0011 = ╱54╱T╱ // 0x1add @0x11
0x1acc…1afd at0012 = ╱4f╱O╱ // 0x1ade @0x12
0x1acc…1afd at0013 = ╱54╱T╱ // 0x1adf @0x13
0x1acc…1afd at0014 = ╱41╱A╱ // 0x1ae0 @0x14
0x1acc…1afd at0015 = ╱4c╱L╱ // 0x1ae1 @0x15
0x1acc…1afd at0016 = ╱ed╱ ( ╱ // 0x1ae2 @0x16
0x1acc…1afd at0017 = ╱33╱3╱ // 0x1ae3 @0x17
0x1acc…1afd at0018 = ╱f20300╱ // 0x1ae4 @0x18
0x1acc…1afd at001b = ╱ee╱ ) ╱ // 0x1ae7 @0x1b
0x1acc…1afd at001c = ╱e5╱ + ╱ // 0x1ae8 @0x1c
0x1acc…1afd at001d = ╱54╱T╱ // 0x1ae9 @0x1d
0x1acc…1afd at001e = ╱4f╱O╱ // 0x1aea @0x1e
0x1acc…1afd at001f = ╱54╱T╱ // 0x1aeb @0x1f
0x1acc…1afd at0020 = ╱ed╱ ( ╱ // 0x1aec @0x20
0x1acc…1afd at0021 = ╱31╱1╱ // 0x1aed @0x21
0x1acc…1afd at0022 = ╱f20100╱ // 0x1aee @0x22
0x1acc…1afd at0025 = ╱ee╱ ) ╱ // 0x1af1 @0x25
0x1acc…1afd at0026 = ╱e6╱ - ╱ // 0x1af2 @0x26
0x1acc…1afd at0027 = ╱54╱T╱ // 0x1af3 @0x27
0x1acc…1afd at0028 = ╱4f╱O╱ // 0x1af4 @0x28
0x1acc…1afd at0029 = ╱54╱T╱ // 0x1af5 @0x29
0x1acc…1afd at002a = ╱ed╱ ( ╱ // 0x1af6 @0x2a
0x1acc…1afd at002b = ╱32╱2╱ // 0x1af7 @0x2b
0x1acc…1afd at002c = ╱f20200╱ // 0x1af8 @0x2c
0x1acc…1afd at002f = ╱ee╱ ) ╱ // 0x1afb @0x2f
0x1acc…1afd at0030 = EOL // 0x1afc @0x30
0x1acc…1afd }
0x1afd…1b04 b0f2 02610 ELSE
0x1afd…1b04 LineComal80 {
0x1afd…1b04 ptr = 0xb0f2 // 0x1afd @0x0
0x1afd…1b04 lno = 0x0a32 // 0x1aff @0x2
0x1afd…1b04 at0004 = ╱9a27╱ ELSE ╱ // 0x1b01 @0x4
0x1afd…1b04 at0006 = EOL // 0x1b03 @0x6
0x1afd…1b04 }
0x1b04…1b1f b10d 02620 IF OT ( 2 ) > TOT ( 1 ) THEN
0x1b04…1b1f LineComal80 {
0x1b04…1b1f ptr = 0xb10d // 0x1b04 @0x0
0x1b04…1b1f lno = 0x0a3c // 0x1b06 @0x2
0x1b04…1b1f at0004 = ╱9b2854╱ IF ╱ // 0x1b08 @0x4
0x1b04…1b1f at0007 = ╱4f╱O╱ // 0x1b0b @0x7
0x1b04…1b1f at0008 = ╱54╱T╱ // 0x1b0c @0x8
0x1b04…1b1f at0009 = ╱ed╱ ( ╱ // 0x1b0d @0x9
0x1b04…1b1f at000a = ╱32╱2╱ // 0x1b0e @0xa
0x1b04…1b1f at000b = ╱f20200╱ // 0x1b0f @0xb
0x1b04…1b1f at000e = ╱ee╱ ) ╱ // 0x1b12 @0xe
0x1b04…1b1f at000f = ╱e1╱ > ╱ // 0x1b13 @0xf
0x1b04…1b1f at0010 = ╱54╱T╱ // 0x1b14 @0x10
0x1b04…1b1f at0011 = ╱4f╱O╱ // 0x1b15 @0x11
0x1b04…1b1f at0012 = ╱54╱T╱ // 0x1b16 @0x12
0x1b04…1b1f at0013 = ╱ed╱ ( ╱ // 0x1b17 @0x13
0x1b04…1b1f at0014 = ╱31╱1╱ // 0x1b18 @0x14
0x1b04…1b1f at0015 = ╱f20100╱ // 0x1b19 @0x15
0x1b04…1b1f at0018 = ╱ee╱ ) ╱ // 0x1b1c @0x18
0x1b04…1b1f at0019 = ╱b5╱ THEN ╱ // 0x1b1d @0x19
0x1b04…1b1f at001a = EOL // 0x1b1e @0x1a
0x1b04…1b1f }
0x1b1f…1b4e b13c 02630 PRINT TAB ( 17 ) ; CHR$ ( TOT ( 2 ) - TOT ( 1 ) , 9 , 2 )
0x1b1f…1b4e LineComal80 {
0x1b1f…1b4e ptr = 0xb13c // 0x1b1f @0x0
0x1b1f…1b4e lno = 0x0a46 // 0x1b21 @0x2
0x1b1f…1b4e at0004 = ╱92╱ PRINT ╱ // 0x1b23 @0x4
0x1b1f…1b4e at0005 = ╱d2╱ TAB ╱ // 0x1b24 @0x5
0x1b1f…1b4e at0006 = ╱ed╱ ( ╱ // 0x1b25 @0x6
0x1b1f…1b4e at0007 = ╱31╱1╱ // 0x1b26 @0x7
0x1b1f…1b4e at0008 = ╱37╱7╱ // 0x1b27 @0x8
0x1b1f…1b4e at0009 = ╱f21100╱ // 0x1b28 @0x9
0x1b1f…1b4e at000c = ╱ee╱ ) ╱ // 0x1b2b @0xc
0x1b1f…1b4e at000d = ╱ea╱ ; ╱ // 0x1b2c @0xd
0x1b1f…1b4e at000e = ╱d0╱ CHR$ ╱ // 0x1b2d @0xe
0x1b1f…1b4e at000f = ╱ed╱ ( ╱ // 0x1b2e @0xf
0x1b1f…1b4e at0010 = ╱54╱T╱ // 0x1b2f @0x10
0x1b1f…1b4e at0011 = ╱4f╱O╱ // 0x1b30 @0x11
0x1b1f…1b4e at0012 = ╱54╱T╱ // 0x1b31 @0x12
0x1b1f…1b4e at0013 = ╱ed╱ ( ╱ // 0x1b32 @0x13
0x1b1f…1b4e at0014 = ╱32╱2╱ // 0x1b33 @0x14
0x1b1f…1b4e at0015 = ╱f20200╱ // 0x1b34 @0x15
0x1b1f…1b4e at0018 = ╱ee╱ ) ╱ // 0x1b37 @0x18
0x1b1f…1b4e at0019 = ╱e6╱ - ╱ // 0x1b38 @0x19
0x1b1f…1b4e at001a = ╱54╱T╱ // 0x1b39 @0x1a
0x1b1f…1b4e at001b = ╱4f╱O╱ // 0x1b3a @0x1b
0x1b1f…1b4e at001c = ╱54╱T╱ // 0x1b3b @0x1c
0x1b1f…1b4e at001d = ╱ed╱ ( ╱ // 0x1b3c @0x1d
0x1b1f…1b4e at001e = ╱31╱1╱ // 0x1b3d @0x1e
0x1b1f…1b4e at001f = ╱f20100╱ // 0x1b3e @0x1f
0x1b1f…1b4e at0022 = ╱ee╱ ) ╱ // 0x1b41 @0x22
0x1b1f…1b4e at0023 = ╱ec╱ , ╱ // 0x1b42 @0x23
0x1b1f…1b4e at0024 = ╱39╱9╱ // 0x1b43 @0x24
0x1b1f…1b4e at0025 = ╱f20900╱ // 0x1b44 @0x25
0x1b1f…1b4e at0028 = ╱ec╱ , ╱ // 0x1b47 @0x28
0x1b1f…1b4e at0029 = ╱32╱2╱ // 0x1b48 @0x29
0x1b1f…1b4e at002a = ╱f20200╱ // 0x1b49 @0x2a
0x1b1f…1b4e at002d = ╱ee╱ ) ╱ // 0x1b4c @0x2d
0x1b1f…1b4e at002e = EOL // 0x1b4d @0x2e
0x1b1f…1b4e }
0x1b4e…1b7f b16d 02640 LET TOTAL ( 4 ) := TOTAL ( 4 ) + TOT ( 2 ) - TOT ( 1 )
0x1b4e…1b7f LineComal80 {
0x1b4e…1b7f ptr = 0xb16d // 0x1b4e @0x0
0x1b4e…1b7f lno = 0x0a50 // 0x1b50 @0x2
0x1b4e…1b7f at0004 = ╱86╱ LET ╱ // 0x1b52 @0x4
0x1b4e…1b7f at0005 = ╱54╱T╱ // 0x1b53 @0x5
0x1b4e…1b7f at0006 = ╱4f╱O╱ // 0x1b54 @0x6
0x1b4e…1b7f at0007 = ╱54╱T╱ // 0x1b55 @0x7
0x1b4e…1b7f at0008 = ╱41╱A╱ // 0x1b56 @0x8
0x1b4e…1b7f at0009 = ╱4c╱L╱ // 0x1b57 @0x9
0x1b4e…1b7f at000a = ╱ed╱ ( ╱ // 0x1b58 @0xa
0x1b4e…1b7f at000b = ╱34╱4╱ // 0x1b59 @0xb
0x1b4e…1b7f at000c = ╱f20400╱ // 0x1b5a @0xc
0x1b4e…1b7f at000f = ╱ee╱ ) ╱ // 0x1b5d @0xf
0x1b4e…1b7f at0010 = ╱f0╱ := ╱ // 0x1b5e @0x10
0x1b4e…1b7f at0011 = ╱54╱T╱ // 0x1b5f @0x11
0x1b4e…1b7f at0012 = ╱4f╱O╱ // 0x1b60 @0x12
0x1b4e…1b7f at0013 = ╱54╱T╱ // 0x1b61 @0x13
0x1b4e…1b7f at0014 = ╱41╱A╱ // 0x1b62 @0x14
0x1b4e…1b7f at0015 = ╱4c╱L╱ // 0x1b63 @0x15
0x1b4e…1b7f at0016 = ╱ed╱ ( ╱ // 0x1b64 @0x16
0x1b4e…1b7f at0017 = ╱34╱4╱ // 0x1b65 @0x17
0x1b4e…1b7f at0018 = ╱f20400╱ // 0x1b66 @0x18
0x1b4e…1b7f at001b = ╱ee╱ ) ╱ // 0x1b69 @0x1b
0x1b4e…1b7f at001c = ╱e5╱ + ╱ // 0x1b6a @0x1c
0x1b4e…1b7f at001d = ╱54╱T╱ // 0x1b6b @0x1d
0x1b4e…1b7f at001e = ╱4f╱O╱ // 0x1b6c @0x1e
0x1b4e…1b7f at001f = ╱54╱T╱ // 0x1b6d @0x1f
0x1b4e…1b7f at0020 = ╱ed╱ ( ╱ // 0x1b6e @0x20
0x1b4e…1b7f at0021 = ╱32╱2╱ // 0x1b6f @0x21
0x1b4e…1b7f at0022 = ╱f20200╱ // 0x1b70 @0x22
0x1b4e…1b7f at0025 = ╱ee╱ ) ╱ // 0x1b73 @0x25
0x1b4e…1b7f at0026 = ╱e6╱ - ╱ // 0x1b74 @0x26
0x1b4e…1b7f at0027 = ╱54╱T╱ // 0x1b75 @0x27
0x1b4e…1b7f at0028 = ╱4f╱O╱ // 0x1b76 @0x28
0x1b4e…1b7f at0029 = ╱54╱T╱ // 0x1b77 @0x29
0x1b4e…1b7f at002a = ╱ed╱ ( ╱ // 0x1b78 @0x2a
0x1b4e…1b7f at002b = ╱31╱1╱ // 0x1b79 @0x2b
0x1b4e…1b7f at002c = ╱f20100╱ // 0x1b7a @0x2c
0x1b4e…1b7f at002f = ╱ee╱ ) ╱ // 0x1b7d @0x2f
0x1b4e…1b7f at0030 = EOL // 0x1b7e @0x30
0x1b4e…1b7f }
0x1b7f…1b86 b174 02650 ELSE
0x1b7f…1b86 LineComal80 {
0x1b7f…1b86 ptr = 0xb174 // 0x1b7f @0x0
0x1b7f…1b86 lno = 0x0a5a // 0x1b81 @0x2
0x1b7f…1b86 at0004 = ╱9a29╱ ELSE ╱ // 0x1b83 @0x4
0x1b7f…1b86 at0006 = EOL // 0x1b85 @0x6
0x1b7f…1b86 }
0x1b86…1b8c b17a 02660 PRINT
0x1b86…1b8c LineComal80 {
0x1b86…1b8c ptr = 0xb17a // 0x1b86 @0x0
0x1b86…1b8c lno = 0x0a64 // 0x1b88 @0x2
0x1b86…1b8c at0004 = ╱92╱ PRINT ╱ // 0x1b8a @0x4
0x1b86…1b8c at0005 = EOL // 0x1b8b @0x5
0x1b86…1b8c }
0x1b8c…1b92 b180 02670 ENDIF
0x1b8c…1b92 LineComal80 {
0x1b8c…1b92 ptr = 0xb180 // 0x1b8c @0x0
0x1b8c…1b92 lno = 0x0a6e // 0x1b8e @0x2
0x1b8c…1b92 at0004 = ╱9c╱ ENDIF ╱ // 0x1b90 @0x4
0x1b8c…1b92 at0005 = EOL // 0x1b91 @0x5
0x1b8c…1b92 }
0x1b92…1b98 b186 02680 ENDIF
0x1b92…1b98 LineComal80 {
0x1b92…1b98 ptr = 0xb186 // 0x1b92 @0x0
0x1b92…1b98 lno = 0x0a78 // 0x1b94 @0x2
0x1b92…1b98 at0004 = ╱9c╱ ENDIF ╱ // 0x1b96 @0x4
0x1b92…1b98 at0005 = EOL // 0x1b97 @0x5
0x1b92…1b98 }
0x1b98…1ba7 b195 02690 ENDPROC SKRIV_LIN
0x1b98…1ba7 LineComal80 {
0x1b98…1ba7 ptr = 0xb195 // 0x1b98 @0x0
0x1b98…1ba7 lno = 0x0a82 // 0x1b9a @0x2
0x1b98…1ba7 at0004 = ╱9f╱ ENDPROC ╱ // 0x1b9c @0x4
0x1b98…1ba7 at0005 = ╱53╱S╱ // 0x1b9d @0x5
0x1b98…1ba7 at0006 = ╱4b╱K╱ // 0x1b9e @0x6
0x1b98…1ba7 at0007 = ╱52╱R╱ // 0x1b9f @0x7
0x1b98…1ba7 at0008 = ╱49╱I╱ // 0x1ba0 @0x8
0x1b98…1ba7 at0009 = ╱56╱V╱ // 0x1ba1 @0x9
0x1b98…1ba7 at000a = ╱5f╱_╱ // 0x1ba2 @0xa
0x1b98…1ba7 at000b = ╱4c╱L╱ // 0x1ba3 @0xb
0x1b98…1ba7 at000c = ╱49╱I╱ // 0x1ba4 @0xc
0x1b98…1ba7 at000d = ╱4e╱N╱ // 0x1ba5 @0xd
0x1b98…1ba7 at000e = EOL // 0x1ba6 @0xe
0x1b98…1ba7 }
0x1ba7…1bac b19a 02700
0x1ba7…1bac LineComal80 {
0x1ba7…1bac ptr = 0xb19a // 0x1ba7 @0x0
0x1ba7…1bac lno = 0x0a8c // 0x1ba9 @0x2
0x1ba7…1bac at0004 = EOL // 0x1bab @0x4
0x1ba7…1bac }
0x1bac…1bb9 (92,) b1a7 02710 PROC AFSLUT
0x1bac…1bb9 LineComal80 {
0x1bac…1bb9 ptr = 0xb1a7 // 0x1bac @0x0
0x1bac…1bb9 lno = 0x0a96 // 0x1bae @0x2
0x1bac…1bb9 at0004 = ╱9e2a╱ PROC ╱ // 0x1bb0 @0x4
0x1bac…1bb9 at0006 = ╱41╱A╱ // 0x1bb2 @0x6
0x1bac…1bb9 at0007 = ╱46╱F╱ // 0x1bb3 @0x7
0x1bac…1bb9 at0008 = ╱53╱S╱ // 0x1bb4 @0x8
0x1bac…1bb9 at0009 = ╱4c╱L╱ // 0x1bb5 @0x9
0x1bac…1bb9 at000a = ╱55╱U╱ // 0x1bb6 @0xa
0x1bac…1bb9 at000b = ╱54╱T╱ // 0x1bb7 @0xb
0x1bac…1bb9 at000c = EOL // 0x1bb8 @0xc
0x1bac…1bb9 }
0x1bb9…1bca b1b8 02720 EXEC SKRIV_STREG
0x1bb9…1bca LineComal80 {
0x1bb9…1bca ptr = 0xb1b8 // 0x1bb9 @0x0
0x1bb9…1bca lno = 0x0aa0 // 0x1bbb @0x2
0x1bb9…1bca at0004 = ╱9d╱ EXEC ╱ // 0x1bbd @0x4
0x1bb9…1bca at0005 = ╱53╱S╱ // 0x1bbe @0x5
0x1bb9…1bca at0006 = ╱4b╱K╱ // 0x1bbf @0x6
0x1bb9…1bca at0007 = ╱52╱R╱ // 0x1bc0 @0x7
0x1bb9…1bca at0008 = ╱49╱I╱ // 0x1bc1 @0x8
0x1bb9…1bca at0009 = ╱56╱V╱ // 0x1bc2 @0x9
0x1bb9…1bca at000a = ╱5f╱_╱ // 0x1bc3 @0xa
0x1bb9…1bca at000b = ╱53╱S╱ // 0x1bc4 @0xb
0x1bb9…1bca at000c = ╱54╱T╱ // 0x1bc5 @0xc
0x1bb9…1bca at000d = ╱52╱R╱ // 0x1bc6 @0xd
0x1bb9…1bca at000e = ╱45╱E╱ // 0x1bc7 @0xe
0x1bb9…1bca at000f = ╱47╱G╱ // 0x1bc8 @0xf
0x1bb9…1bca at0010 = EOL // 0x1bc9 @0x10
0x1bb9…1bca }
0x1bca…1bf1 b1df 02730 PRINT "<S>" ; TAB ( 15 ) ; "BALANCE" ; TAB ( 54 )
0x1bca…1bf1 LineComal80 {
0x1bca…1bf1 ptr = 0xb1df // 0x1bca @0x0
0x1bca…1bf1 lno = 0x0aaa // 0x1bcc @0x2
0x1bca…1bf1 at0004 = ╱92╱ PRINT ╱ // 0x1bce @0x4
0x1bca…1bf1 at0005 = ╱22╱"╱ // 0x1bcf @0x5
0x1bca…1bf1 at0006 = ╱3c╱<╱ // 0x1bd0 @0x6
0x1bca…1bf1 at0007 = ╱53╱S╱ // 0x1bd1 @0x7
0x1bca…1bf1 at0008 = ╱3e╱>╱ // 0x1bd2 @0x8
0x1bca…1bf1 at0009 = ╱22╱"╱ // 0x1bd3 @0x9
0x1bca…1bf1 at000a = ╱ea╱ ; ╱ // 0x1bd4 @0xa
0x1bca…1bf1 at000b = ╱d2╱ TAB ╱ // 0x1bd5 @0xb
0x1bca…1bf1 at000c = ╱ed╱ ( ╱ // 0x1bd6 @0xc
0x1bca…1bf1 at000d = ╱31╱1╱ // 0x1bd7 @0xd
0x1bca…1bf1 at000e = ╱35╱5╱ // 0x1bd8 @0xe
0x1bca…1bf1 at000f = ╱f20f00╱ // 0x1bd9 @0xf
0x1bca…1bf1 at0012 = ╱ee╱ ) ╱ // 0x1bdc @0x12
0x1bca…1bf1 at0013 = ╱ea╱ ; ╱ // 0x1bdd @0x13
0x1bca…1bf1 at0014 = ╱22╱"╱ // 0x1bde @0x14
0x1bca…1bf1 at0015 = ╱42╱B╱ // 0x1bdf @0x15
0x1bca…1bf1 at0016 = ╱41╱A╱ // 0x1be0 @0x16
0x1bca…1bf1 at0017 = ╱4c╱L╱ // 0x1be1 @0x17
0x1bca…1bf1 at0018 = ╱41╱A╱ // 0x1be2 @0x18
0x1bca…1bf1 at0019 = ╱4e╱N╱ // 0x1be3 @0x19
0x1bca…1bf1 at001a = ╱43╱C╱ // 0x1be4 @0x1a
0x1bca…1bf1 at001b = ╱45╱E╱ // 0x1be5 @0x1b
0x1bca…1bf1 at001c = ╱22╱"╱ // 0x1be6 @0x1c
0x1bca…1bf1 at001d = ╱ea╱ ; ╱ // 0x1be7 @0x1d
0x1bca…1bf1 at001e = ╱d2╱ TAB ╱ // 0x1be8 @0x1e
0x1bca…1bf1 at001f = ╱ed╱ ( ╱ // 0x1be9 @0x1f
0x1bca…1bf1 at0020 = ╱35╱5╱ // 0x1bea @0x20
0x1bca…1bf1 at0021 = ╱34╱4╱ // 0x1beb @0x21
0x1bca…1bf1 at0022 = ╱f23600╱ // 0x1bec @0x22
0x1bca…1bf1 at0025 = ╱ee╱ ) ╱ // 0x1bef @0x25
0x1bca…1bf1 at0026 = EOL // 0x1bf0 @0x26
0x1bca…1bf1 }
0x1bf1…1c33 b813 02740 PRINT "<S>" ; CHR$ ( TOTAL ( 1 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 2 ) , 9 , 2 )
0x1bf1…1c33 LineComal80 {
0x1bf1…1c33 ptr = 0xb813 // 0x1bf1 @0x0
0x1bf1…1c33 lno = 0x0ab4 // 0x1bf3 @0x2
0x1bf1…1c33 at0004 = ╱92╱ PRINT ╱ // 0x1bf5 @0x4
0x1bf1…1c33 at0005 = ╱22╱"╱ // 0x1bf6 @0x5
0x1bf1…1c33 at0006 = ╱3c╱<╱ // 0x1bf7 @0x6
0x1bf1…1c33 at0007 = ╱53╱S╱ // 0x1bf8 @0x7
0x1bf1…1c33 at0008 = ╱3e╱>╱ // 0x1bf9 @0x8
0x1bf1…1c33 at0009 = ╱22╱"╱ // 0x1bfa @0x9
0x1bf1…1c33 at000a = ╱ea╱ ; ╱ // 0x1bfb @0xa
0x1bf1…1c33 at000b = ╱d0╱ CHR$ ╱ // 0x1bfc @0xb
0x1bf1…1c33 at000c = ╱ed╱ ( ╱ // 0x1bfd @0xc
0x1bf1…1c33 at000d = ╱54╱T╱ // 0x1bfe @0xd
0x1bf1…1c33 at000e = ╱4f╱O╱ // 0x1bff @0xe
0x1bf1…1c33 at000f = ╱54╱T╱ // 0x1c00 @0xf
0x1bf1…1c33 at0010 = ╱41╱A╱ // 0x1c01 @0x10
0x1bf1…1c33 at0011 = ╱4c╱L╱ // 0x1c02 @0x11
0x1bf1…1c33 at0012 = ╱ed╱ ( ╱ // 0x1c03 @0x12
0x1bf1…1c33 at0013 = ╱31╱1╱ // 0x1c04 @0x13
0x1bf1…1c33 at0014 = ╱f20100╱ // 0x1c05 @0x14
0x1bf1…1c33 at0017 = ╱ee╱ ) ╱ // 0x1c08 @0x17
0x1bf1…1c33 at0018 = ╱ec╱ , ╱ // 0x1c09 @0x18
0x1bf1…1c33 at0019 = ╱39╱9╱ // 0x1c0a @0x19
0x1bf1…1c33 at001a = ╱f20900╱ // 0x1c0b @0x1a
0x1bf1…1c33 at001d = ╱ec╱ , ╱ // 0x1c0e @0x1d
0x1bf1…1c33 at001e = ╱32╱2╱ // 0x1c0f @0x1e
0x1bf1…1c33 at001f = ╱f20200╱ // 0x1c10 @0x1f
0x1bf1…1c33 at0022 = ╱ee╱ ) ╱ // 0x1c13 @0x22
0x1bf1…1c33 at0023 = ╱ea╱ ; ╱ // 0x1c14 @0x23
0x1bf1…1c33 at0024 = ╱22╱"╱ // 0x1c15 @0x24
0x1bf1…1c33 at0025 = ╱20╱…╱ // 0x1c16 @0x25
0x1bf1…1c33 at0026 = ╱20╱…╱ // 0x1c17 @0x26
0x1bf1…1c33 at0027 = ╱22╱"╱ // 0x1c18 @0x27
0x1bf1…1c33 at0028 = ╱ea╱ ; ╱ // 0x1c19 @0x28
0x1bf1…1c33 at0029 = ╱d0╱ CHR$ ╱ // 0x1c1a @0x29
0x1bf1…1c33 at002a = ╱ed╱ ( ╱ // 0x1c1b @0x2a
0x1bf1…1c33 at002b = ╱54╱T╱ // 0x1c1c @0x2b
0x1bf1…1c33 at002c = ╱4f╱O╱ // 0x1c1d @0x2c
0x1bf1…1c33 at002d = ╱54╱T╱ // 0x1c1e @0x2d
0x1bf1…1c33 at002e = ╱41╱A╱ // 0x1c1f @0x2e
0x1bf1…1c33 at002f = ╱4c╱L╱ // 0x1c20 @0x2f
0x1bf1…1c33 at0030 = ╱ed╱ ( ╱ // 0x1c21 @0x30
0x1bf1…1c33 at0031 = ╱32╱2╱ // 0x1c22 @0x31
0x1bf1…1c33 at0032 = ╱f20200╱ // 0x1c23 @0x32
0x1bf1…1c33 at0035 = ╱ee╱ ) ╱ // 0x1c26 @0x35
0x1bf1…1c33 at0036 = ╱ec╱ , ╱ // 0x1c27 @0x36
0x1bf1…1c33 at0037 = ╱39╱9╱ // 0x1c28 @0x37
0x1bf1…1c33 at0038 = ╱f20900╱ // 0x1c29 @0x38
0x1bf1…1c33 at003b = ╱ec╱ , ╱ // 0x1c2c @0x3b
0x1bf1…1c33 at003c = ╱32╱2╱ // 0x1c2d @0x3c
0x1bf1…1c33 at003d = ╱f20200╱ // 0x1c2e @0x3d
0x1bf1…1c33 at0040 = ╱ee╱ ) ╱ // 0x1c31 @0x40
0x1bf1…1c33 at0041 = EOL // 0x1c32 @0x41
0x1bf1…1c33 }
0x1c33…1c74 b262 03010 PRINT "……" ; CHR$ ( TOTAL ( 3 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 4 ) , 9 , 2 )
0x1c33…1c74 LineComal80 {
0x1c33…1c74 ptr = 0xb262 // 0x1c33 @0x0
0x1c33…1c74 lno = 0x0bc2 // 0x1c35 @0x2
0x1c33…1c74 at0004 = ╱92╱ PRINT ╱ // 0x1c37 @0x4
0x1c33…1c74 at0005 = ╱22╱"╱ // 0x1c38 @0x5
0x1c33…1c74 at0006 = ╱20╱…╱ // 0x1c39 @0x6
0x1c33…1c74 at0007 = ╱20╱…╱ // 0x1c3a @0x7
0x1c33…1c74 at0008 = ╱22╱"╱ // 0x1c3b @0x8
0x1c33…1c74 at0009 = ╱ea╱ ; ╱ // 0x1c3c @0x9
0x1c33…1c74 at000a = ╱d0╱ CHR$ ╱ // 0x1c3d @0xa
0x1c33…1c74 at000b = ╱ed╱ ( ╱ // 0x1c3e @0xb
0x1c33…1c74 at000c = ╱54╱T╱ // 0x1c3f @0xc
0x1c33…1c74 at000d = ╱4f╱O╱ // 0x1c40 @0xd
0x1c33…1c74 at000e = ╱54╱T╱ // 0x1c41 @0xe
0x1c33…1c74 at000f = ╱41╱A╱ // 0x1c42 @0xf
0x1c33…1c74 at0010 = ╱4c╱L╱ // 0x1c43 @0x10
0x1c33…1c74 at0011 = ╱ed╱ ( ╱ // 0x1c44 @0x11
0x1c33…1c74 at0012 = ╱33╱3╱ // 0x1c45 @0x12
0x1c33…1c74 at0013 = ╱f20300╱ // 0x1c46 @0x13
0x1c33…1c74 at0016 = ╱ee╱ ) ╱ // 0x1c49 @0x16
0x1c33…1c74 at0017 = ╱ec╱ , ╱ // 0x1c4a @0x17
0x1c33…1c74 at0018 = ╱39╱9╱ // 0x1c4b @0x18
0x1c33…1c74 at0019 = ╱f20900╱ // 0x1c4c @0x19
0x1c33…1c74 at001c = ╱ec╱ , ╱ // 0x1c4f @0x1c
0x1c33…1c74 at001d = ╱32╱2╱ // 0x1c50 @0x1d
0x1c33…1c74 at001e = ╱f20200╱ // 0x1c51 @0x1e
0x1c33…1c74 at0021 = ╱ee╱ ) ╱ // 0x1c54 @0x21
0x1c33…1c74 at0022 = ╱ea╱ ; ╱ // 0x1c55 @0x22
0x1c33…1c74 at0023 = ╱22╱"╱ // 0x1c56 @0x23
0x1c33…1c74 at0024 = ╱20╱…╱ // 0x1c57 @0x24
0x1c33…1c74 at0025 = ╱20╱…╱ // 0x1c58 @0x25
0x1c33…1c74 at0026 = ╱22╱"╱ // 0x1c59 @0x26
0x1c33…1c74 at0027 = ╱ea╱ ; ╱ // 0x1c5a @0x27
0x1c33…1c74 at0028 = ╱d0╱ CHR$ ╱ // 0x1c5b @0x28
0x1c33…1c74 at0029 = ╱ed╱ ( ╱ // 0x1c5c @0x29
0x1c33…1c74 at002a = ╱54╱T╱ // 0x1c5d @0x2a
0x1c33…1c74 at002b = ╱4f╱O╱ // 0x1c5e @0x2b
0x1c33…1c74 at002c = ╱54╱T╱ // 0x1c5f @0x2c
0x1c33…1c74 at002d = ╱41╱A╱ // 0x1c60 @0x2d
0x1c33…1c74 at002e = ╱4c╱L╱ // 0x1c61 @0x2e
0x1c33…1c74 at002f = ╱ed╱ ( ╱ // 0x1c62 @0x2f
0x1c33…1c74 at0030 = ╱34╱4╱ // 0x1c63 @0x30
0x1c33…1c74 at0031 = ╱f20400╱ // 0x1c64 @0x31
0x1c33…1c74 at0034 = ╱ee╱ ) ╱ // 0x1c67 @0x34
0x1c33…1c74 at0035 = ╱ec╱ , ╱ // 0x1c68 @0x35
0x1c33…1c74 at0036 = ╱39╱9╱ // 0x1c69 @0x36
0x1c33…1c74 at0037 = ╱f20900╱ // 0x1c6a @0x37
0x1c33…1c74 at003a = ╱ec╱ , ╱ // 0x1c6d @0x3a
0x1c33…1c74 at003b = ╱32╱2╱ // 0x1c6e @0x3b
0x1c33…1c74 at003c = ╱f20200╱ // 0x1c6f @0x3c
0x1c33…1c74 at003f = ╱ee╱ ) ╱ // 0x1c72 @0x3f
0x1c33…1c74 at0040 = EOL // 0x1c73 @0x40
0x1c33…1c74 }
0x1c74…1c8a b278 02770 LET LIN_T := LIN_T + 2
0x1c74…1c8a LineComal80 {
0x1c74…1c8a ptr = 0xb278 // 0x1c74 @0x0
0x1c74…1c8a lno = 0x0ad2 // 0x1c76 @0x2
0x1c74…1c8a at0004 = ╱86╱ LET ╱ // 0x1c78 @0x4
0x1c74…1c8a at0005 = ╱4c╱L╱ // 0x1c79 @0x5
0x1c74…1c8a at0006 = ╱49╱I╱ // 0x1c7a @0x6
0x1c74…1c8a at0007 = ╱4e╱N╱ // 0x1c7b @0x7
0x1c74…1c8a at0008 = ╱5f╱_╱ // 0x1c7c @0x8
0x1c74…1c8a at0009 = ╱54╱T╱ // 0x1c7d @0x9
0x1c74…1c8a at000a = ╱f0╱ := ╱ // 0x1c7e @0xa
0x1c74…1c8a at000b = ╱4c╱L╱ // 0x1c7f @0xb
0x1c74…1c8a at000c = ╱49╱I╱ // 0x1c80 @0xc
0x1c74…1c8a at000d = ╱4e╱N╱ // 0x1c81 @0xd
0x1c74…1c8a at000e = ╱5f╱_╱ // 0x1c82 @0xe
0x1c74…1c8a at000f = ╱54╱T╱ // 0x1c83 @0xf
0x1c74…1c8a at0010 = ╱e5╱ + ╱ // 0x1c84 @0x10
0x1c74…1c8a at0011 = ╱32╱2╱ // 0x1c85 @0x11
0x1c74…1c8a at0012 = ╱f20200╱ // 0x1c86 @0x12
0x1c74…1c8a at0015 = EOL // 0x1c89 @0x15
0x1c74…1c8a }
0x1c8a…1ca2 b290 02780 FOR I := LIN_T TO AX_LIN DO PRINT
0x1c8a…1ca2 LineComal80 {
0x1c8a…1ca2 ptr = 0xb290 // 0x1c8a @0x0
0x1c8a…1ca2 lno = 0x0adc // 0x1c8c @0x2
0x1c8a…1ca2 at0004 = ╱b400╱ FOR ╱ // 0x1c8e @0x4
0x1c8a…1ca2 at0006 = ╱49╱I╱ // 0x1c90 @0x6
0x1c8a…1ca2 at0007 = ╱f0╱ := ╱ // 0x1c91 @0x7
0x1c8a…1ca2 at0008 = ╱4c╱L╱ // 0x1c92 @0x8
0x1c8a…1ca2 at0009 = ╱49╱I╱ // 0x1c93 @0x9
0x1c8a…1ca2 at000a = ╱4e╱N╱ // 0x1c94 @0xa
0x1c8a…1ca2 at000b = ╱5f╱_╱ // 0x1c95 @0xb
0x1c8a…1ca2 at000c = ╱54╱T╱ // 0x1c96 @0xc
0x1c8a…1ca2 at000d = ╱b74d╱ TO ╱ // 0x1c97 @0xd
0x1c8a…1ca2 at000f = ╱41╱A╱ // 0x1c99 @0xf
0x1c8a…1ca2 at0010 = ╱58╱X╱ // 0x1c9a @0x10
0x1c8a…1ca2 at0011 = ╱5f╱_╱ // 0x1c9b @0x11
0x1c8a…1ca2 at0012 = ╱4c╱L╱ // 0x1c9c @0x12
0x1c8a…1ca2 at0013 = ╱49╱I╱ // 0x1c9d @0x13
0x1c8a…1ca2 at0014 = ╱4e╱N╱ // 0x1c9e @0x14
0x1c8a…1ca2 at0015 = ╱bb╱ DO ╱ // 0x1c9f @0x15
0x1c8a…1ca2 at0016 = ╱92╱ PRINT ╱ // 0x1ca0 @0x16
0x1c8a…1ca2 at0017 = EOL // 0x1ca1 @0x17
0x1c8a…1ca2 }
0x1ca2…1cae b29c 02790 ENDPROC AFSLUT
0x1ca2…1cae LineComal80 {
0x1ca2…1cae ptr = 0xb29c // 0x1ca2 @0x0
0x1ca2…1cae lno = 0x0ae6 // 0x1ca4 @0x2
0x1ca2…1cae at0004 = ╱9f╱ ENDPROC ╱ // 0x1ca6 @0x4
0x1ca2…1cae at0005 = ╱41╱A╱ // 0x1ca7 @0x5
0x1ca2…1cae at0006 = ╱46╱F╱ // 0x1ca8 @0x6
0x1ca2…1cae at0007 = ╱53╱S╱ // 0x1ca9 @0x7
0x1ca2…1cae at0008 = ╱4c╱L╱ // 0x1caa @0x8
0x1ca2…1cae at0009 = ╱55╱U╱ // 0x1cab @0x9
0x1ca2…1cae at000a = ╱54╱T╱ // 0x1cac @0xa
0x1ca2…1cae at000b = EOL // 0x1cad @0xb
0x1ca2…1cae }
0x1cae…1cb3 b2a1 02800
0x1cae…1cb3 LineComal80 {
0x1cae…1cb3 ptr = 0xb2a1 // 0x1cae @0x0
0x1cae…1cb3 lno = 0x0af0 // 0x1cb0 @0x2
0x1cae…1cb3 at0004 = EOL // 0x1cb2 @0x4
0x1cae…1cb3 }
0x1cb3…1cc3 b2b1 02810 PROC SAMMENT[L
0x1cb3…1cc3 LineComal80 {
0x1cb3…1cc3 ptr = 0xb2b1 // 0x1cb3 @0x0
0x1cb3…1cc3 lno = 0x0afa // 0x1cb5 @0x2
0x1cb3…1cc3 at0004 = ╱9e2b╱ PROC ╱ // 0x1cb7 @0x4
0x1cb3…1cc3 at0006 = ╱53╱S╱ // 0x1cb9 @0x6
0x1cb3…1cc3 at0007 = ╱41╱A╱ // 0x1cba @0x7
0x1cb3…1cc3 at0008 = ╱4d╱M╱ // 0x1cbb @0x8
0x1cb3…1cc3 at0009 = ╱4d╱M╱ // 0x1cbc @0x9
0x1cb3…1cc3 at000a = ╱45╱E╱ // 0x1cbd @0xa
0x1cb3…1cc3 at000b = ╱4e╱N╱ // 0x1cbe @0xb
0x1cb3…1cc3 at000c = ╱54╱T╱ // 0x1cbf @0xc
0x1cb3…1cc3 at000d = ╱5b╱[╱ // 0x1cc0 @0xd
0x1cb3…1cc3 at000e = ╱4c╱L╱ // 0x1cc1 @0xe
0x1cb3…1cc3 at000f = EOL // 0x1cc2 @0xf
0x1cb3…1cc3 }
0x1cc3…1ce1 b2cf 02820 LET TOT ( 1 ) , TOT ( 2 ) := 0
0x1cc3…1ce1 LineComal80 {
0x1cc3…1ce1 ptr = 0xb2cf // 0x1cc3 @0x0
0x1cc3…1ce1 lno = 0x0b04 // 0x1cc5 @0x2
0x1cc3…1ce1 at0004 = ╱86╱ LET ╱ // 0x1cc7 @0x4
0x1cc3…1ce1 at0005 = ╱54╱T╱ // 0x1cc8 @0x5
0x1cc3…1ce1 at0006 = ╱4f╱O╱ // 0x1cc9 @0x6
0x1cc3…1ce1 at0007 = ╱54╱T╱ // 0x1cca @0x7
0x1cc3…1ce1 at0008 = ╱ed╱ ( ╱ // 0x1ccb @0x8
0x1cc3…1ce1 at0009 = ╱31╱1╱ // 0x1ccc @0x9
0x1cc3…1ce1 at000a = ╱f20100╱ // 0x1ccd @0xa
0x1cc3…1ce1 at000d = ╱ee╱ ) ╱ // 0x1cd0 @0xd
0x1cc3…1ce1 at000e = ╱ec╱ , ╱ // 0x1cd1 @0xe
0x1cc3…1ce1 at000f = ╱54╱T╱ // 0x1cd2 @0xf
0x1cc3…1ce1 at0010 = ╱4f╱O╱ // 0x1cd3 @0x10
0x1cc3…1ce1 at0011 = ╱54╱T╱ // 0x1cd4 @0x11
0x1cc3…1ce1 at0012 = ╱ed╱ ( ╱ // 0x1cd5 @0x12
0x1cc3…1ce1 at0013 = ╱32╱2╱ // 0x1cd6 @0x13
0x1cc3…1ce1 at0014 = ╱f20200╱ // 0x1cd7 @0x14
0x1cc3…1ce1 at0017 = ╱ee╱ ) ╱ // 0x1cda @0x17
0x1cc3…1ce1 at0018 = ╱f0╱ := ╱ // 0x1cdb @0x18
0x1cc3…1ce1 at0019 = ╱30╱0╱ // 0x1cdc @0x19
0x1cc3…1ce1 at001a = ╱f20000╱ // 0x1cdd @0x1a
0x1cc3…1ce1 at001d = EOL // 0x1ce0 @0x1d
0x1cc3…1ce1 }
0x1ce1…1cf4 b2e2 02830 LET NTRANS := KTO_FP
0x1ce1…1cf4 LineComal80 {
0x1ce1…1cf4 ptr = 0xb2e2 // 0x1ce1 @0x0
0x1ce1…1cf4 lno = 0x0b0e // 0x1ce3 @0x2
0x1ce1…1cf4 at0004 = ╱86╱ LET ╱ // 0x1ce5 @0x4
0x1ce1…1cf4 at0005 = ╱4e╱N╱ // 0x1ce6 @0x5
0x1ce1…1cf4 at0006 = ╱54╱T╱ // 0x1ce7 @0x6
0x1ce1…1cf4 at0007 = ╱52╱R╱ // 0x1ce8 @0x7
0x1ce1…1cf4 at0008 = ╱41╱A╱ // 0x1ce9 @0x8
0x1ce1…1cf4 at0009 = ╱4e╱N╱ // 0x1cea @0x9
0x1ce1…1cf4 at000a = ╱53╱S╱ // 0x1ceb @0xa
0x1ce1…1cf4 at000b = ╱f0╱ := ╱ // 0x1cec @0xb
0x1ce1…1cf4 at000c = ╱4b╱K╱ // 0x1ced @0xc
0x1ce1…1cf4 at000d = ╱54╱T╱ // 0x1cee @0xd
0x1ce1…1cf4 at000e = ╱4f╱O╱ // 0x1cef @0xe
0x1ce1…1cf4 at000f = ╱5f╱_╱ // 0x1cf0 @0xf
0x1ce1…1cf4 at0010 = ╱46╱F╱ // 0x1cf1 @0x10
0x1ce1…1cf4 at0011 = ╱50╱P╱ // 0x1cf2 @0x11
0x1ce1…1cf4 at0012 = EOL // 0x1cf3 @0x12
0x1ce1…1cf4 }
0x1cf4…1d07 b2f5 02840 WHILE NTRANS > 0 DO
0x1cf4…1d07 LineComal80 {
0x1cf4…1d07 ptr = 0xb2f5 // 0x1cf4 @0x0
0x1cf4…1d07 lno = 0x0b18 // 0x1cf6 @0x2
0x1cf4…1d07 at0004 = ╱932c╱ WHILE ╱ // 0x1cf8 @0x4
0x1cf4…1d07 at0006 = ╱4e╱N╱ // 0x1cfa @0x6
0x1cf4…1d07 at0007 = ╱54╱T╱ // 0x1cfb @0x7
0x1cf4…1d07 at0008 = ╱52╱R╱ // 0x1cfc @0x8
0x1cf4…1d07 at0009 = ╱41╱A╱ // 0x1cfd @0x9
0x1cf4…1d07 at000a = ╱4e╱N╱ // 0x1cfe @0xa
0x1cf4…1d07 at000b = ╱53╱S╱ // 0x1cff @0xb
0x1cf4…1d07 at000c = ╱e1╱ > ╱ // 0x1d00 @0xc
0x1cf4…1d07 at000d = ╱30╱0╱ // 0x1d01 @0xd
0x1cf4…1d07 at000e = ╱f20000╱ // 0x1d02 @0xe
0x1cf4…1d07 at0011 = ╱bb╱ DO ╱ // 0x1d05 @0x11
0x1cf4…1d07 at0012 = EOL // 0x1d06 @0x12
0x1cf4…1d07 }
0x1d07…1d1e b30c 02850 EXEC L[S_TRANS ( NTRANS )
0x1d07…1d1e LineComal80 {
0x1d07…1d1e ptr = 0xb30c // 0x1d07 @0x0
0x1d07…1d1e lno = 0x0b22 // 0x1d09 @0x2
0x1d07…1d1e at0004 = ╱9d╱ EXEC ╱ // 0x1d0b @0x4
0x1d07…1d1e at0005 = ╱4c╱L╱ // 0x1d0c @0x5
0x1d07…1d1e at0006 = ╱5b╱[╱ // 0x1d0d @0x6
0x1d07…1d1e at0007 = ╱53╱S╱ // 0x1d0e @0x7
0x1d07…1d1e at0008 = ╱5f╱_╱ // 0x1d0f @0x8
0x1d07…1d1e at0009 = ╱54╱T╱ // 0x1d10 @0x9
0x1d07…1d1e at000a = ╱52╱R╱ // 0x1d11 @0xa
0x1d07…1d1e at000b = ╱41╱A╱ // 0x1d12 @0xb
0x1d07…1d1e at000c = ╱4e╱N╱ // 0x1d13 @0xc
0x1d07…1d1e at000d = ╱53╱S╱ // 0x1d14 @0xd
0x1d07…1d1e at000e = ╱ed╱ ( ╱ // 0x1d15 @0xe
0x1d07…1d1e at000f = ╱4e╱N╱ // 0x1d16 @0xf
0x1d07…1d1e at0010 = ╱54╱T╱ // 0x1d17 @0x10
0x1d07…1d1e at0011 = ╱52╱R╱ // 0x1d18 @0x11
0x1d07…1d1e at0012 = ╱41╱A╱ // 0x1d19 @0x12
0x1d07…1d1e at0013 = ╱4e╱N╱ // 0x1d1a @0x13
0x1d07…1d1e at0014 = ╱53╱S╱ // 0x1d1b @0x14
0x1d07…1d1e at0015 = ╱ee╱ ) ╱ // 0x1d1c @0x15
0x1d07…1d1e at0016 = EOL // 0x1d1d @0x16
0x1d07…1d1e }
0x1d1e…1d2e b31c 02860 IF K = DEBET THEN
0x1d1e…1d2e LineComal80 {
0x1d1e…1d2e ptr = 0xb31c // 0x1d1e @0x0
0x1d1e…1d2e lno = 0x0b2c // 0x1d20 @0x2
0x1d1e…1d2e at0004 = ╱9b2d44╱ IF ╱ // 0x1d22 @0x4
0x1d1e…1d2e at0007 = ╱4b╱K╱ // 0x1d25 @0x7
0x1d1e…1d2e at0008 = ╱df╱ = ╱ // 0x1d26 @0x8
0x1d1e…1d2e at0009 = ╱44╱D╱ // 0x1d27 @0x9
0x1d1e…1d2e at000a = ╱45╱E╱ // 0x1d28 @0xa
0x1d1e…1d2e at000b = ╱42╱B╱ // 0x1d29 @0xb
0x1d1e…1d2e at000c = ╱45╱E╱ // 0x1d2a @0xc
0x1d1e…1d2e at000d = ╱54╱T╱ // 0x1d2b @0xd
0x1d1e…1d2e at000e = ╱b5╱ THEN ╱ // 0x1d2c @0xe
0x1d1e…1d2e at000f = EOL // 0x1d2d @0xf
0x1d1e…1d2e }
0x1d2e…1d4e b33c 02870 LET TOT ( 1 ) := TOT ( 1 ) + BBEL\B
0x1d2e…1d4e LineComal80 {
0x1d2e…1d4e ptr = 0xb33c // 0x1d2e @0x0
0x1d2e…1d4e lno = 0x0b36 // 0x1d30 @0x2
0x1d2e…1d4e at0004 = ╱86╱ LET ╱ // 0x1d32 @0x4
0x1d2e…1d4e at0005 = ╱54╱T╱ // 0x1d33 @0x5
0x1d2e…1d4e at0006 = ╱4f╱O╱ // 0x1d34 @0x6
0x1d2e…1d4e at0007 = ╱54╱T╱ // 0x1d35 @0x7
0x1d2e…1d4e at0008 = ╱ed╱ ( ╱ // 0x1d36 @0x8
0x1d2e…1d4e at0009 = ╱31╱1╱ // 0x1d37 @0x9
0x1d2e…1d4e at000a = ╱f20100╱ // 0x1d38 @0xa
0x1d2e…1d4e at000d = ╱ee╱ ) ╱ // 0x1d3b @0xd
0x1d2e…1d4e at000e = ╱f0╱ := ╱ // 0x1d3c @0xe
0x1d2e…1d4e at000f = ╱54╱T╱ // 0x1d3d @0xf
0x1d2e…1d4e at0010 = ╱4f╱O╱ // 0x1d3e @0x10
0x1d2e…1d4e at0011 = ╱54╱T╱ // 0x1d3f @0x11
0x1d2e…1d4e at0012 = ╱ed╱ ( ╱ // 0x1d40 @0x12
0x1d2e…1d4e at0013 = ╱31╱1╱ // 0x1d41 @0x13
0x1d2e…1d4e at0014 = ╱f20100╱ // 0x1d42 @0x14
0x1d2e…1d4e at0017 = ╱ee╱ ) ╱ // 0x1d45 @0x17
0x1d2e…1d4e at0018 = ╱e5╱ + ╱ // 0x1d46 @0x18
0x1d2e…1d4e at0019 = ╱42╱B╱ // 0x1d47 @0x19
0x1d2e…1d4e at001a = ╱42╱B╱ // 0x1d48 @0x1a
0x1d2e…1d4e at001b = ╱45╱E╱ // 0x1d49 @0x1b
0x1d2e…1d4e at001c = ╱4c╱L╱ // 0x1d4a @0x1c
0x1d2e…1d4e at001d = ╱5c╱\╱ // 0x1d4b @0x1d
0x1d2e…1d4e at001e = ╱42╱B╱ // 0x1d4c @0x1e
0x1d2e…1d4e at001f = EOL // 0x1d4d @0x1f
0x1d2e…1d4e }
0x1d4e…1d55 b343 02880 ELSE
0x1d4e…1d55 LineComal80 {
0x1d4e…1d55 ptr = 0xb343 // 0x1d4e @0x0
0x1d4e…1d55 lno = 0x0b40 // 0x1d50 @0x2
0x1d4e…1d55 at0004 = ╱9a2e╱ ELSE ╱ // 0x1d52 @0x4
0x1d4e…1d55 at0006 = EOL // 0x1d54 @0x6
0x1d4e…1d55 }
0x1d55…1d75 b363 02890 LET TOT ( 2 ) := TOT ( 2 ) + BBEL\B
0x1d55…1d75 LineComal80 {
0x1d55…1d75 ptr = 0xb363 // 0x1d55 @0x0
0x1d55…1d75 lno = 0x0b4a // 0x1d57 @0x2
0x1d55…1d75 at0004 = ╱86╱ LET ╱ // 0x1d59 @0x4
0x1d55…1d75 at0005 = ╱54╱T╱ // 0x1d5a @0x5
0x1d55…1d75 at0006 = ╱4f╱O╱ // 0x1d5b @0x6
0x1d55…1d75 at0007 = ╱54╱T╱ // 0x1d5c @0x7
0x1d55…1d75 at0008 = ╱ed╱ ( ╱ // 0x1d5d @0x8
0x1d55…1d75 at0009 = ╱32╱2╱ // 0x1d5e @0x9
0x1d55…1d75 at000a = ╱f20200╱ // 0x1d5f @0xa
0x1d55…1d75 at000d = ╱ee╱ ) ╱ // 0x1d62 @0xd
0x1d55…1d75 at000e = ╱f0╱ := ╱ // 0x1d63 @0xe
0x1d55…1d75 at000f = ╱54╱T╱ // 0x1d64 @0xf
0x1d55…1d75 at0010 = ╱4f╱O╱ // 0x1d65 @0x10
0x1d55…1d75 at0011 = ╱54╱T╱ // 0x1d66 @0x11
0x1d55…1d75 at0012 = ╱ed╱ ( ╱ // 0x1d67 @0x12
0x1d55…1d75 at0013 = ╱32╱2╱ // 0x1d68 @0x13
0x1d55…1d75 at0014 = ╱f20200╱ // 0x1d69 @0x14
0x1d55…1d75 at0017 = ╱ee╱ ) ╱ // 0x1d6c @0x17
0x1d55…1d75 at0018 = ╱e5╱ + ╱ // 0x1d6d @0x18
0x1d55…1d75 at0019 = ╱42╱B╱ // 0x1d6e @0x19
0x1d55…1d75 at001a = ╱42╱B╱ // 0x1d6f @0x1a
0x1d55…1d75 at001b = ╱45╱E╱ // 0x1d70 @0x1b
0x1d55…1d75 at001c = ╱4c╱L╱ // 0x1d71 @0x1c
0x1d55…1d75 at001d = ╱5c╱\╱ // 0x1d72 @0x1d
0x1d55…1d75 at001e = ╱42╱B╱ // 0x1d73 @0x1e
0x1d55…1d75 at001f = EOL // 0x1d74 @0x1f
0x1d55…1d75 }
0x1d75…1d7b b369 02900 ENDIF
0x1d75…1d7b LineComal80 {
0x1d75…1d7b ptr = 0xb369 // 0x1d75 @0x0
0x1d75…1d7b lno = 0x0b54 // 0x1d77 @0x2
0x1d75…1d7b at0004 = ╱9c╱ ENDIF ╱ // 0x1d79 @0x4
0x1d75…1d7b at0005 = EOL // 0x1d7a @0x5
0x1d75…1d7b }
0x1d7b…1d81 b36f 02910 ENDWHILE
0x1d7b…1d81 LineComal80 {
0x1d7b…1d81 ptr = 0xb36f // 0x1d7b @0x0
0x1d7b…1d81 lno = 0x0b5e // 0x1d7d @0x2
0x1d7b…1d81 at0004 = ╱94╱ ENDWHILE ╱ // 0x1d7f @0x4
0x1d7b…1d81 at0005 = EOL // 0x1d80 @0x5
0x1d7b…1d81 }
0x1d81…1d97 b385 02920 IF TO_PRIMO > 0 THEN
0x1d81…1d97 LineComal80 {
0x1d81…1d97 ptr = 0xb385 // 0x1d81 @0x0
0x1d81…1d97 lno = 0x0b68 // 0x1d83 @0x2
0x1d81…1d97 at0004 = ╱9b2f4b╱ IF ╱ // 0x1d85 @0x4
0x1d81…1d97 at0007 = ╱54╱T╱ // 0x1d88 @0x7
0x1d81…1d97 at0008 = ╱4f╱O╱ // 0x1d89 @0x8
0x1d81…1d97 at0009 = ╱5f╱_╱ // 0x1d8a @0x9
0x1d81…1d97 at000a = ╱50╱P╱ // 0x1d8b @0xa
0x1d81…1d97 at000b = ╱52╱R╱ // 0x1d8c @0xb
0x1d81…1d97 at000c = ╱49╱I╱ // 0x1d8d @0xc
0x1d81…1d97 at000d = ╱4d╱M╱ // 0x1d8e @0xd
0x1d81…1d97 at000e = ╱4f╱O╱ // 0x1d8f @0xe
0x1d81…1d97 at000f = ╱e1╱ > ╱ // 0x1d90 @0xf
0x1d81…1d97 at0010 = ╱30╱0╱ // 0x1d91 @0x10
0x1d81…1d97 at0011 = ╱f20000╱ // 0x1d92 @0x11
0x1d81…1d97 at0014 = ╱b5╱ THEN ╱ // 0x1d95 @0x14
0x1d81…1d97 at0015 = EOL // 0x1d96 @0x15
0x1d81…1d97 }
0x1d97…1dba b3a8 02930 LET TOT ( 1 ) := TOT ( 1 ) + KTO_PRIMO
0x1d97…1dba LineComal80 {
0x1d97…1dba ptr = 0xb3a8 // 0x1d97 @0x0
0x1d97…1dba lno = 0x0b72 // 0x1d99 @0x2
0x1d97…1dba at0004 = ╱86╱ LET ╱ // 0x1d9b @0x4
0x1d97…1dba at0005 = ╱54╱T╱ // 0x1d9c @0x5
0x1d97…1dba at0006 = ╱4f╱O╱ // 0x1d9d @0x6
0x1d97…1dba at0007 = ╱54╱T╱ // 0x1d9e @0x7
0x1d97…1dba at0008 = ╱ed╱ ( ╱ // 0x1d9f @0x8
0x1d97…1dba at0009 = ╱31╱1╱ // 0x1da0 @0x9
0x1d97…1dba at000a = ╱f20100╱ // 0x1da1 @0xa
0x1d97…1dba at000d = ╱ee╱ ) ╱ // 0x1da4 @0xd
0x1d97…1dba at000e = ╱f0╱ := ╱ // 0x1da5 @0xe
0x1d97…1dba at000f = ╱54╱T╱ // 0x1da6 @0xf
0x1d97…1dba at0010 = ╱4f╱O╱ // 0x1da7 @0x10
0x1d97…1dba at0011 = ╱54╱T╱ // 0x1da8 @0x11
0x1d97…1dba at0012 = ╱ed╱ ( ╱ // 0x1da9 @0x12
0x1d97…1dba at0013 = ╱31╱1╱ // 0x1daa @0x13
0x1d97…1dba at0014 = ╱f20100╱ // 0x1dab @0x14
0x1d97…1dba at0017 = ╱ee╱ ) ╱ // 0x1dae @0x17
0x1d97…1dba at0018 = ╱e5╱ + ╱ // 0x1daf @0x18
0x1d97…1dba at0019 = ╱4b╱K╱ // 0x1db0 @0x19
0x1d97…1dba at001a = ╱54╱T╱ // 0x1db1 @0x1a
0x1d97…1dba at001b = ╱4f╱O╱ // 0x1db2 @0x1b
0x1d97…1dba at001c = ╱5f╱_╱ // 0x1db3 @0x1c
0x1d97…1dba at001d = ╱50╱P╱ // 0x1db4 @0x1d
0x1d97…1dba at001e = ╱52╱R╱ // 0x1db5 @0x1e
0x1d97…1dba at001f = ╱49╱I╱ // 0x1db6 @0x1f
0x1d97…1dba at0020 = ╱4d╱M╱ // 0x1db7 @0x20
0x1d97…1dba at0021 = ╱4f╱O╱ // 0x1db8 @0x21
0x1d97…1dba at0022 = EOL // 0x1db9 @0x22
0x1d97…1dba }
0x1dba…1dc1 b3af 02940 ELSE
0x1dba…1dc1 LineComal80 {
0x1dba…1dc1 ptr = 0xb3af // 0x1dba @0x0
0x1dba…1dc1 lno = 0x0b7c // 0x1dbc @0x2
0x1dba…1dc1 at0004 = ╱9a30╱ ELSE ╱ // 0x1dbe @0x4
0x1dba…1dc1 at0006 = EOL // 0x1dc0 @0x6
0x1dba…1dc1 }
0x1dc1…1de7 b3d5 02950 LET TOT ( 2 ) := TOT ( 2 ) + ABS ( KTO_PRIMO )
0x1dc1…1de7 LineComal80 {
0x1dc1…1de7 ptr = 0xb3d5 // 0x1dc1 @0x0
0x1dc1…1de7 lno = 0x0b86 // 0x1dc3 @0x2
0x1dc1…1de7 at0004 = ╱86╱ LET ╱ // 0x1dc5 @0x4
0x1dc1…1de7 at0005 = ╱54╱T╱ // 0x1dc6 @0x5
0x1dc1…1de7 at0006 = ╱4f╱O╱ // 0x1dc7 @0x6
0x1dc1…1de7 at0007 = ╱54╱T╱ // 0x1dc8 @0x7
0x1dc1…1de7 at0008 = ╱ed╱ ( ╱ // 0x1dc9 @0x8
0x1dc1…1de7 at0009 = ╱32╱2╱ // 0x1dca @0x9
0x1dc1…1de7 at000a = ╱f20200╱ // 0x1dcb @0xa
0x1dc1…1de7 at000d = ╱ee╱ ) ╱ // 0x1dce @0xd
0x1dc1…1de7 at000e = ╱f0╱ := ╱ // 0x1dcf @0xe
0x1dc1…1de7 at000f = ╱54╱T╱ // 0x1dd0 @0xf
0x1dc1…1de7 at0010 = ╱4f╱O╱ // 0x1dd1 @0x10
0x1dc1…1de7 at0011 = ╱54╱T╱ // 0x1dd2 @0x11
0x1dc1…1de7 at0012 = ╱ed╱ ( ╱ // 0x1dd3 @0x12
0x1dc1…1de7 at0013 = ╱32╱2╱ // 0x1dd4 @0x13
0x1dc1…1de7 at0014 = ╱f20200╱ // 0x1dd5 @0x14
0x1dc1…1de7 at0017 = ╱ee╱ ) ╱ // 0x1dd8 @0x17
0x1dc1…1de7 at0018 = ╱e5╱ + ╱ // 0x1dd9 @0x18
0x1dc1…1de7 at0019 = ╱c4╱ ABS ╱ // 0x1dda @0x19
0x1dc1…1de7 at001a = ╱ed╱ ( ╱ // 0x1ddb @0x1a
0x1dc1…1de7 at001b = ╱4b╱K╱ // 0x1ddc @0x1b
0x1dc1…1de7 at001c = ╱54╱T╱ // 0x1ddd @0x1c
0x1dc1…1de7 at001d = ╱4f╱O╱ // 0x1dde @0x1d
0x1dc1…1de7 at001e = ╱5f╱_╱ // 0x1ddf @0x1e
0x1dc1…1de7 at001f = ╱50╱P╱ // 0x1de0 @0x1f
0x1dc1…1de7 at0020 = ╱52╱R╱ // 0x1de1 @0x20
0x1dc1…1de7 at0021 = ╱49╱I╱ // 0x1de2 @0x21
0x1dc1…1de7 at0022 = ╱4d╱M╱ // 0x1de3 @0x22
0x1dc1…1de7 at0023 = ╱4f╱O╱ // 0x1de4 @0x23
0x1dc1…1de7 at0024 = ╱ee╱ ) ╱ // 0x1de5 @0x24
0x1dc1…1de7 at0025 = EOL // 0x1de6 @0x25
0x1dc1…1de7 }
0x1de7…1ded b3db 02960 ENDIF
0x1de7…1ded LineComal80 {
0x1de7…1ded ptr = 0xb3db // 0x1de7 @0x0
0x1de7…1ded lno = 0x0b90 // 0x1de9 @0x2
0x1de7…1ded at0004 = ╱9c╱ ENDIF ╱ // 0x1deb @0x4
0x1de7…1ded at0005 = EOL // 0x1dec @0x5
0x1de7…1ded }
0x1ded…1dfc b3ea 02970 ENDPROC SAMMENT[L
0x1ded…1dfc LineComal80 {
0x1ded…1dfc ptr = 0xb3ea // 0x1ded @0x0
0x1ded…1dfc lno = 0x0b9a // 0x1def @0x2
0x1ded…1dfc at0004 = ╱9f╱ ENDPROC ╱ // 0x1df1 @0x4
0x1ded…1dfc at0005 = ╱53╱S╱ // 0x1df2 @0x5
0x1ded…1dfc at0006 = ╱41╱A╱ // 0x1df3 @0x6
0x1ded…1dfc at0007 = ╱4d╱M╱ // 0x1df4 @0x7
0x1ded…1dfc at0008 = ╱4d╱M╱ // 0x1df5 @0x8
0x1ded…1dfc at0009 = ╱45╱E╱ // 0x1df6 @0x9
0x1ded…1dfc at000a = ╱4e╱N╱ // 0x1df7 @0xa
0x1ded…1dfc at000b = ╱54╱T╱ // 0x1df8 @0xb
0x1ded…1dfc at000c = ╱5b╱[╱ // 0x1df9 @0xc
0x1ded…1dfc at000d = ╱4c╱L╱ // 0x1dfa @0xd
0x1ded…1dfc at000e = EOL // 0x1dfb @0xe
0x1ded…1dfc }
0x1dfc…1e01 b3ef 02980
0x1dfc…1e01 LineComal80 {
0x1dfc…1e01 ptr = 0xb3ef // 0x1dfc @0x0
0x1dfc…1e01 lno = 0x0ba4 // 0x1dfe @0x2
0x1dfc…1e01 at0004 = EOL // 0x1e00 @0x4
0x1dfc…1e01 }
0x1e01…1e13 b401 02990 PROC SKRIV_STREG
0x1e01…1e13 LineComal80 {
0x1e01…1e13 ptr = 0xb401 // 0x1e01 @0x0
0x1e01…1e13 lno = 0x0bae // 0x1e03 @0x2
0x1e01…1e13 at0004 = ╱9e31╱ PROC ╱ // 0x1e05 @0x4
0x1e01…1e13 at0006 = ╱53╱S╱ // 0x1e07 @0x6
0x1e01…1e13 at0007 = ╱4b╱K╱ // 0x1e08 @0x7
0x1e01…1e13 at0008 = ╱52╱R╱ // 0x1e09 @0x8
0x1e01…1e13 at0009 = ╱49╱I╱ // 0x1e0a @0x9
0x1e01…1e13 at000a = ╱56╱V╱ // 0x1e0b @0xa
0x1e01…1e13 at000b = ╱5f╱_╱ // 0x1e0c @0xb
0x1e01…1e13 at000c = ╱53╱S╱ // 0x1e0d @0xc
0x1e01…1e13 at000d = ╱54╱T╱ // 0x1e0e @0xd
0x1e01…1e13 at000e = ╱52╱R╱ // 0x1e0f @0xe
0x1e01…1e13 at000f = ╱45╱E╱ // 0x1e10 @0xf
0x1e01…1e13 at0010 = ╱47╱G╱ // 0x1e11 @0x10
0x1e01…1e13 at0011 = EOL // 0x1e12 @0x11
0x1e01…1e13 }
0x1e13…1e46 b434 03000 PRINT "<S>----------------------------------------"
0x1e13…1e46 LineComal80 {
0x1e13…1e46 ptr = 0xb434 // 0x1e13 @0x0
0x1e13…1e46 lno = 0x0bb8 // 0x1e15 @0x2
0x1e13…1e46 at0004 = ╱92╱ PRINT ╱ // 0x1e17 @0x4
0x1e13…1e46 at0005 = ╱22╱"╱ // 0x1e18 @0x5
0x1e13…1e46 at0006 = ╱3c╱<╱ // 0x1e19 @0x6
0x1e13…1e46 at0007 = ╱53╱S╱ // 0x1e1a @0x7
0x1e13…1e46 at0008 = ╱3e╱>╱ // 0x1e1b @0x8
0x1e13…1e46 at0009 = ╱2d╱-╱ // 0x1e1c @0x9
0x1e13…1e46 at000a = ╱2d╱-╱ // 0x1e1d @0xa
0x1e13…1e46 at000b = ╱2d╱-╱ // 0x1e1e @0xb
0x1e13…1e46 at000c = ╱2d╱-╱ // 0x1e1f @0xc
0x1e13…1e46 at000d = ╱2d╱-╱ // 0x1e20 @0xd
0x1e13…1e46 at000e = ╱2d╱-╱ // 0x1e21 @0xe
0x1e13…1e46 at000f = ╱2d╱-╱ // 0x1e22 @0xf
0x1e13…1e46 at0010 = ╱2d╱-╱ // 0x1e23 @0x10
0x1e13…1e46 at0011 = ╱2d╱-╱ // 0x1e24 @0x11
0x1e13…1e46 at0012 = ╱2d╱-╱ // 0x1e25 @0x12
0x1e13…1e46 at0013 = ╱2d╱-╱ // 0x1e26 @0x13
0x1e13…1e46 at0014 = ╱2d╱-╱ // 0x1e27 @0x14
0x1e13…1e46 at0015 = ╱2d╱-╱ // 0x1e28 @0x15
0x1e13…1e46 at0016 = ╱2d╱-╱ // 0x1e29 @0x16
0x1e13…1e46 at0017 = ╱2d╱-╱ // 0x1e2a @0x17
0x1e13…1e46 at0018 = ╱2d╱-╱ // 0x1e2b @0x18
0x1e13…1e46 at0019 = ╱2d╱-╱ // 0x1e2c @0x19
0x1e13…1e46 at001a = ╱2d╱-╱ // 0x1e2d @0x1a
0x1e13…1e46 at001b = ╱2d╱-╱ // 0x1e2e @0x1b
0x1e13…1e46 at001c = ╱2d╱-╱ // 0x1e2f @0x1c
0x1e13…1e46 at001d = ╱2d╱-╱ // 0x1e30 @0x1d
0x1e13…1e46 at001e = ╱2d╱-╱ // 0x1e31 @0x1e
0x1e13…1e46 at001f = ╱2d╱-╱ // 0x1e32 @0x1f
0x1e13…1e46 at0020 = ╱2d╱-╱ // 0x1e33 @0x20
0x1e13…1e46 at0021 = ╱2d╱-╱ // 0x1e34 @0x21
0x1e13…1e46 at0022 = ╱2d╱-╱ // 0x1e35 @0x22
0x1e13…1e46 at0023 = ╱2d╱-╱ // 0x1e36 @0x23
0x1e13…1e46 at0024 = ╱2d╱-╱ // 0x1e37 @0x24
0x1e13…1e46 at0025 = ╱2d╱-╱ // 0x1e38 @0x25
0x1e13…1e46 at0026 = ╱2d╱-╱ // 0x1e39 @0x26
0x1e13…1e46 at0027 = ╱2d╱-╱ // 0x1e3a @0x27
0x1e13…1e46 at0028 = ╱2d╱-╱ // 0x1e3b @0x28
0x1e13…1e46 at0029 = ╱2d╱-╱ // 0x1e3c @0x29
0x1e13…1e46 at002a = ╱2d╱-╱ // 0x1e3d @0x2a
0x1e13…1e46 at002b = ╱2d╱-╱ // 0x1e3e @0x2b
0x1e13…1e46 at002c = ╱2d╱-╱ // 0x1e3f @0x2c
0x1e13…1e46 at002d = ╱2d╱-╱ // 0x1e40 @0x2d
0x1e13…1e46 at002e = ╱2d╱-╱ // 0x1e41 @0x2e
0x1e13…1e46 at002f = ╱2d╱-╱ // 0x1e42 @0x2f
0x1e13…1e46 at0030 = ╱2d╱-╱ // 0x1e43 @0x30
0x1e13…1e46 at0031 = ╱22╱"╱ // 0x1e44 @0x31
0x1e13…1e46 at0032 = EOL // 0x1e45 @0x32
0x1e13…1e46 }
0x1e46…1e79 b467 03010 PRINT "<S>----------------------------------------"
0x1e46…1e79 LineComal80 {
0x1e46…1e79 ptr = 0xb467 // 0x1e46 @0x0
0x1e46…1e79 lno = 0x0bc2 // 0x1e48 @0x2
0x1e46…1e79 at0004 = ╱92╱ PRINT ╱ // 0x1e4a @0x4
0x1e46…1e79 at0005 = ╱22╱"╱ // 0x1e4b @0x5
0x1e46…1e79 at0006 = ╱3c╱<╱ // 0x1e4c @0x6
0x1e46…1e79 at0007 = ╱53╱S╱ // 0x1e4d @0x7
0x1e46…1e79 at0008 = ╱3e╱>╱ // 0x1e4e @0x8
0x1e46…1e79 at0009 = ╱2d╱-╱ // 0x1e4f @0x9
0x1e46…1e79 at000a = ╱2d╱-╱ // 0x1e50 @0xa
0x1e46…1e79 at000b = ╱2d╱-╱ // 0x1e51 @0xb
0x1e46…1e79 at000c = ╱2d╱-╱ // 0x1e52 @0xc
0x1e46…1e79 at000d = ╱2d╱-╱ // 0x1e53 @0xd
0x1e46…1e79 at000e = ╱2d╱-╱ // 0x1e54 @0xe
0x1e46…1e79 at000f = ╱2d╱-╱ // 0x1e55 @0xf
0x1e46…1e79 at0010 = ╱2d╱-╱ // 0x1e56 @0x10
0x1e46…1e79 at0011 = ╱2d╱-╱ // 0x1e57 @0x11
0x1e46…1e79 at0012 = ╱2d╱-╱ // 0x1e58 @0x12
0x1e46…1e79 at0013 = ╱2d╱-╱ // 0x1e59 @0x13
0x1e46…1e79 at0014 = ╱2d╱-╱ // 0x1e5a @0x14
0x1e46…1e79 at0015 = ╱2d╱-╱ // 0x1e5b @0x15
0x1e46…1e79 at0016 = ╱2d╱-╱ // 0x1e5c @0x16
0x1e46…1e79 at0017 = ╱2d╱-╱ // 0x1e5d @0x17
0x1e46…1e79 at0018 = ╱2d╱-╱ // 0x1e5e @0x18
0x1e46…1e79 at0019 = ╱2d╱-╱ // 0x1e5f @0x19
0x1e46…1e79 at001a = ╱2d╱-╱ // 0x1e60 @0x1a
0x1e46…1e79 at001b = ╱2d╱-╱ // 0x1e61 @0x1b
0x1e46…1e79 at001c = ╱2d╱-╱ // 0x1e62 @0x1c
0x1e46…1e79 at001d = ╱2d╱-╱ // 0x1e63 @0x1d
0x1e46…1e79 at001e = ╱2d╱-╱ // 0x1e64 @0x1e
0x1e46…1e79 at001f = ╱2d╱-╱ // 0x1e65 @0x1f
0x1e46…1e79 at0020 = ╱2d╱-╱ // 0x1e66 @0x20
0x1e46…1e79 at0021 = ╱2d╱-╱ // 0x1e67 @0x21
0x1e46…1e79 at0022 = ╱2d╱-╱ // 0x1e68 @0x22
0x1e46…1e79 at0023 = ╱2d╱-╱ // 0x1e69 @0x23
0x1e46…1e79 at0024 = ╱2d╱-╱ // 0x1e6a @0x24
0x1e46…1e79 at0025 = ╱2d╱-╱ // 0x1e6b @0x25
0x1e46…1e79 at0026 = ╱2d╱-╱ // 0x1e6c @0x26
0x1e46…1e79 at0027 = ╱2d╱-╱ // 0x1e6d @0x27
0x1e46…1e79 at0028 = ╱2d╱-╱ // 0x1e6e @0x28
0x1e46…1e79 at0029 = ╱2d╱-╱ // 0x1e6f @0x29
0x1e46…1e79 at002a = ╱2d╱-╱ // 0x1e70 @0x2a
0x1e46…1e79 at002b = ╱2d╱-╱ // 0x1e71 @0x2b
0x1e46…1e79 at002c = ╱2d╱-╱ // 0x1e72 @0x2c
0x1e46…1e79 at002d = ╱2d╱-╱ // 0x1e73 @0x2d
0x1e46…1e79 at002e = ╱2d╱-╱ // 0x1e74 @0x2e
0x1e46…1e79 at002f = ╱2d╱-╱ // 0x1e75 @0x2f
0x1e46…1e79 at0030 = ╱2d╱-╱ // 0x1e76 @0x30
0x1e46…1e79 at0031 = ╱22╱"╱ // 0x1e77 @0x31
0x1e46…1e79 at0032 = EOL // 0x1e78 @0x32
0x1e46…1e79 }
0x1e79…1e99 b487 03020 PRINT "------------------------"
0x1e79…1e99 LineComal80 {
0x1e79…1e99 ptr = 0xb487 // 0x1e79 @0x0
0x1e79…1e99 lno = 0x0bcc // 0x1e7b @0x2
0x1e79…1e99 at0004 = ╱92╱ PRINT ╱ // 0x1e7d @0x4
0x1e79…1e99 at0005 = ╱22╱"╱ // 0x1e7e @0x5
0x1e79…1e99 at0006 = ╱2d╱-╱ // 0x1e7f @0x6
0x1e79…1e99 at0007 = ╱2d╱-╱ // 0x1e80 @0x7
0x1e79…1e99 at0008 = ╱2d╱-╱ // 0x1e81 @0x8
0x1e79…1e99 at0009 = ╱2d╱-╱ // 0x1e82 @0x9
0x1e79…1e99 at000a = ╱2d╱-╱ // 0x1e83 @0xa
0x1e79…1e99 at000b = ╱2d╱-╱ // 0x1e84 @0xb
0x1e79…1e99 at000c = ╱2d╱-╱ // 0x1e85 @0xc
0x1e79…1e99 at000d = ╱2d╱-╱ // 0x1e86 @0xd
0x1e79…1e99 at000e = ╱2d╱-╱ // 0x1e87 @0xe
0x1e79…1e99 at000f = ╱2d╱-╱ // 0x1e88 @0xf
0x1e79…1e99 at0010 = ╱2d╱-╱ // 0x1e89 @0x10
0x1e79…1e99 at0011 = ╱2d╱-╱ // 0x1e8a @0x11
0x1e79…1e99 at0012 = ╱2d╱-╱ // 0x1e8b @0x12
0x1e79…1e99 at0013 = ╱2d╱-╱ // 0x1e8c @0x13
0x1e79…1e99 at0014 = ╱2d╱-╱ // 0x1e8d @0x14
0x1e79…1e99 at0015 = ╱2d╱-╱ // 0x1e8e @0x15
0x1e79…1e99 at0016 = ╱2d╱-╱ // 0x1e8f @0x16
0x1e79…1e99 at0017 = ╱2d╱-╱ // 0x1e90 @0x17
0x1e79…1e99 at0018 = ╱2d╱-╱ // 0x1e91 @0x18
0x1e79…1e99 at0019 = ╱2d╱-╱ // 0x1e92 @0x19
0x1e79…1e99 at001a = ╱2d╱-╱ // 0x1e93 @0x1a
0x1e79…1e99 at001b = ╱2d╱-╱ // 0x1e94 @0x1b
0x1e79…1e99 at001c = ╱2d╱-╱ // 0x1e95 @0x1c
0x1e79…1e99 at001d = ╱2d╱-╱ // 0x1e96 @0x1d
0x1e79…1e99 at001e = ╱22╱"╱ // 0x1e97 @0x1e
0x1e79…1e99 at001f = EOL // 0x1e98 @0x1f
0x1e79…1e99 }
0x1e99…1eaa b782 03030 ENDPROC SKRIV_STREG
0x1e99…1eaa LineComal80 {
0x1e99…1eaa ptr = 0xb782 // 0x1e99 @0x0
0x1e99…1eaa lno = 0x0bd6 // 0x1e9b @0x2
0x1e99…1eaa at0004 = ╱9f╱ ENDPROC ╱ // 0x1e9d @0x4
0x1e99…1eaa at0005 = ╱53╱S╱ // 0x1e9e @0x5
0x1e99…1eaa at0006 = ╱4b╱K╱ // 0x1e9f @0x6
0x1e99…1eaa at0007 = ╱52╱R╱ // 0x1ea0 @0x7
0x1e99…1eaa at0008 = ╱49╱I╱ // 0x1ea1 @0x8
0x1e99…1eaa at0009 = ╱56╱V╱ // 0x1ea2 @0x9
0x1e99…1eaa at000a = ╱5f╱_╱ // 0x1ea3 @0xa
0x1e99…1eaa at000b = ╱53╱S╱ // 0x1ea4 @0xb
0x1e99…1eaa at000c = ╱54╱T╱ // 0x1ea5 @0xc
0x1e99…1eaa at000d = ╱52╱R╱ // 0x1ea6 @0xd
0x1e99…1eaa at000e = ╱45╱E╱ // 0x1ea7 @0xe
0x1e99…1eaa at000f = ╱47╱G╱ // 0x1ea8 @0xf
0x1e99…1eaa at0010 = EOL // 0x1ea9 @0x10
0x1e99…1eaa }
0x1eaa…1eb0 b49e 09900 //
0x1eaa…1eb0 LineComal80 {
0x1eaa…1eb0 ptr = 0xb49e // 0x1eaa @0x0
0x1eaa…1eb0 lno = 0x26ac // 0x1eac @0x2
0x1eaa…1eb0 at0004 = ╱89╱ // ╱ // 0x1eae @0x4
0x1eaa…1eb0 at0005 = EOL // 0x1eaf @0x5
0x1eaa…1eb0 }
0x1eb0…1ee3 b4d1 09901 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
0x1eb0…1ee3 LineComal80 {
0x1eb0…1ee3 ptr = 0xb4d1 // 0x1eb0 @0x0
0x1eb0…1ee3 lno = 0x26ad // 0x1eb2 @0x2
0x1eb0…1ee3 at0004 = ╱9e32╱ PROC ╱ // 0x1eb4 @0x4
0x1eb0…1ee3 at0006 = ╱50╱P╱ // 0x1eb6 @0x6
0x1eb0…1ee3 at0007 = ╱52╱R╱ // 0x1eb7 @0x7
0x1eb0…1ee3 at0008 = ╱49╱I╱ // 0x1eb8 @0x8
0x1eb0…1ee3 at0009 = ╱4e╱N╱ // 0x1eb9 @0x9
0x1eb0…1ee3 at000a = ╱54╱T╱ // 0x1eba @0xa
0x1eb0…1ee3 at000b = ╱52╱R╱ // 0x1ebb @0xb
0x1eb0…1ee3 at000c = ╱45╱E╱ // 0x1ebc @0xc
0x1eb0…1ee3 at000d = ╱53╱S╱ // 0x1ebd @0xd
0x1eb0…1ee3 at000e = ╱ed╱ ( ╱ // 0x1ebe @0xe
0x1eb0…1ee3 at000f = ╱50╱P╱ // 0x1ebf @0xf
0x1eb0…1ee3 at0010 = ╱41╱A╱ // 0x1ec0 @0x10
0x1eb0…1ee3 at0011 = ╱47╱G╱ // 0x1ec1 @0x11
0x1eb0…1ee3 at0012 = ╱45╱E╱ // 0x1ec2 @0x12
0x1eb0…1ee3 at0013 = ╱54╱T╱ // 0x1ec3 @0x13
0x1eb0…1ee3 at0014 = ╱59╱Y╱ // 0x1ec4 @0x14
0x1eb0…1ee3 at0015 = ╱50╱P╱ // 0x1ec5 @0x15
0x1eb0…1ee3 at0016 = ╱45╱E╱ // 0x1ec6 @0x16
0x1eb0…1ee3 at0017 = ╱ef╱ $ ╱ // 0x1ec7 @0x17
0x1eb0…1ee3 at0018 = ╱ec╱ , ╱ // 0x1ec8 @0x18
0x1eb0…1ee3 at0019 = ╱4c╱L╱ // 0x1ec9 @0x19
0x1eb0…1ee3 at001a = ╱49╱I╱ // 0x1eca @0x1a
0x1eb0…1ee3 at001b = ╱4e╱N╱ // 0x1ecb @0x1b
0x1eb0…1ee3 at001c = ╱45╱E╱ // 0x1ecc @0x1c
0x1eb0…1ee3 at001d = ╱ee╱ ) ╱ // 0x1ecd @0x1d
0x1eb0…1ee3 at001e = ╱89╱ // ╱ // 0x1ece @0x1e
0x1eb0…1ee3 at001f = ╱50╱P╱ // 0x1ecf @0x1f
0x1eb0…1ee3 at0020 = ╱52╱R╱ // 0x1ed0 @0x20
0x1eb0…1ee3 at0021 = ╱49╱I╱ // 0x1ed1 @0x21
0x1eb0…1ee3 at0022 = ╱4e╱N╱ // 0x1ed2 @0x22
0x1eb0…1ee3 at0023 = ╱54╱T╱ // 0x1ed3 @0x23
0x1eb0…1ee3 at0024 = ╱45╱E╱ // 0x1ed4 @0x24
0x1eb0…1ee3 at0025 = ╱52╱R╱ // 0x1ed5 @0x25
0x1eb0…1ee3 at0026 = ╱20╱…╱ // 0x1ed6 @0x26
0x1eb0…1ee3 at0027 = ╱52╱R╱ // 0x1ed7 @0x27
0x1eb0…1ee3 at0028 = ╱45╱E╱ // 0x1ed8 @0x28
0x1eb0…1ee3 at0029 = ╱53╱S╱ // 0x1ed9 @0x29
0x1eb0…1ee3 at002a = ╱45╱E╱ // 0x1eda @0x2a
0x1eb0…1ee3 at002b = ╱52╱R╱ // 0x1edb @0x2b
0x1eb0…1ee3 at002c = ╱56╱V╱ // 0x1edc @0x2c
0x1eb0…1ee3 at002d = ╱41╱A╱ // 0x1edd @0x2d
0x1eb0…1ee3 at002e = ╱54╱T╱ // 0x1ede @0x2e
0x1eb0…1ee3 at002f = ╱49╱I╱ // 0x1edf @0x2f
0x1eb0…1ee3 at0030 = ╱4f╱O╱ // 0x1ee0 @0x30
0x1eb0…1ee3 at0031 = ╱4e╱N╱ // 0x1ee1 @0x31
0x1eb0…1ee3 at0032 = EOL // 0x1ee2 @0x32
0x1eb0…1ee3 }
0x1ee3…1efb b4e9 09902 LET PRTNR $ := "1" ; OK := TRUE
0x1ee3…1efb LineComal80 {
0x1ee3…1efb ptr = 0xb4e9 // 0x1ee3 @0x0
0x1ee3…1efb lno = 0x26ae // 0x1ee5 @0x2
0x1ee3…1efb at0004 = ╱86╱ LET ╱ // 0x1ee7 @0x4
0x1ee3…1efb at0005 = ╱50╱P╱ // 0x1ee8 @0x5
0x1ee3…1efb at0006 = ╱52╱R╱ // 0x1ee9 @0x6
0x1ee3…1efb at0007 = ╱54╱T╱ // 0x1eea @0x7
0x1ee3…1efb at0008 = ╱4e╱N╱ // 0x1eeb @0x8
0x1ee3…1efb at0009 = ╱52╱R╱ // 0x1eec @0x9
0x1ee3…1efb at000a = ╱ef╱ $ ╱ // 0x1eed @0xa
0x1ee3…1efb at000b = ╱f0╱ := ╱ // 0x1eee @0xb
0x1ee3…1efb at000c = ╱22╱"╱ // 0x1eef @0xc
0x1ee3…1efb at000d = ╱31╱1╱ // 0x1ef0 @0xd
0x1ee3…1efb at000e = ╱22╱"╱ // 0x1ef1 @0xe
0x1ee3…1efb at000f = ╱ea╱ ; ╱ // 0x1ef2 @0xf
0x1ee3…1efb at0010 = ╱4f╱O╱ // 0x1ef3 @0x10
0x1ee3…1efb at0011 = ╱4b╱K╱ // 0x1ef4 @0x11
0x1ee3…1efb at0012 = ╱f0╱ := ╱ // 0x1ef5 @0x12
0x1ee3…1efb at0013 = ╱54╱T╱ // 0x1ef6 @0x13
0x1ee3…1efb at0014 = ╱52╱R╱ // 0x1ef7 @0x14
0x1ee3…1efb at0015 = ╱55╱U╱ // 0x1ef8 @0x15
0x1ee3…1efb at0016 = ╱45╱E╱ // 0x1ef9 @0x16
0x1ee3…1efb at0017 = EOL // 0x1efa @0x17
0x1ee3…1efb }
0x1efb…1f02 (103,) b4f0 09903 REPEAT
0x1efb…1f02 LineComal80 {
0x1efb…1f02 ptr = 0xb4f0 // 0x1efb @0x0
0x1efb…1f02 lno = 0x26af // 0x1efd @0x2
0x1efb…1f02 at0004 = ╱9733╱ REPEAT ╱ // 0x1eff @0x4
0x1efb…1f02 at0006 = EOL // 0x1f01 @0x6
0x1efb…1f02 }
0x1f02…1f12 b500 09904 CURSOR 21 , LINE
0x1f02…1f12 LineComal80 {
0x1f02…1f12 ptr = 0xb500 // 0x1f02 @0x0
0x1f02…1f12 lno = 0x26b0 // 0x1f04 @0x2
0x1f02…1f12 at0004 = ╱a1╱ CURSOR ╱ // 0x1f06 @0x4
0x1f02…1f12 at0005 = ╱32╱2╱ // 0x1f07 @0x5
0x1f02…1f12 at0006 = ╱31╱1╱ // 0x1f08 @0x6
0x1f02…1f12 at0007 = ╱f21500╱ // 0x1f09 @0x7
0x1f02…1f12 at000a = ╱ec╱ , ╱ // 0x1f0c @0xa
0x1f02…1f12 at000b = ╱4c╱L╱ // 0x1f0d @0xb
0x1f02…1f12 at000c = ╱49╱I╱ // 0x1f0e @0xc
0x1f02…1f12 at000d = ╱4e╱N╱ // 0x1f0f @0xd
0x1f02…1f12 at000e = ╱45╱E╱ // 0x1f10 @0xe
0x1f02…1f12 at000f = EOL // 0x1f11 @0xf
0x1f02…1f12 }
0x1f12…1f4b b539 09905 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
0x1f12…1f4b LineComal80 {
0x1f12…1f4b ptr = 0xb539 // 0x1f12 @0x0
0x1f12…1f4b lno = 0x26b1 // 0x1f14 @0x2
0x1f12…1f4b at0004 = ╱b1╱ EDIT ╱ // 0x1f16 @0x4
0x1f12…1f4b at0005 = ╱22╱"╱ // 0x1f17 @0x5
0x1f12…1f4b at0006 = ╱3c╱<╱ // 0x1f18 @0x6
0x1f12…1f4b at0007 = ╱5a╱Z╱ // 0x1f19 @0x7
0x1f12…1f4b at0008 = ╱3e╱>╱ // 0x1f1a @0x8
0x1f12…1f4b at0009 = ╱55╱U╱ // 0x1f1b @0x9
0x1f12…1f4b at000a = ╱64╱d╱ // 0x1f1c @0xa
0x1f12…1f4b at000b = ╱73╱s╱ // 0x1f1d @0xb
0x1f12…1f4b at000c = ╱6b╱k╱ // 0x1f1e @0xc
0x1f12…1f4b at000d = ╱72╱r╱ // 0x1f1f @0xd
0x1f12…1f4b at000e = ╱69╱i╱ // 0x1f20 @0xe
0x1f12…1f4b at000f = ╱76╱v╱ // 0x1f21 @0xf
0x1f12…1f4b at0010 = ╱6e╱n╱ // 0x1f22 @0x10
0x1f12…1f4b at0011 = ╱69╱i╱ // 0x1f23 @0x11
0x1f12…1f4b at0012 = ╱6e╱n╱ // 0x1f24 @0x12
0x1f12…1f4b at0013 = ╱67╱g╱ // 0x1f25 @0x13
0x1f12…1f4b at0014 = ╱20╱…╱ // 0x1f26 @0x14
0x1f12…1f4b at0015 = ╱70╱p╱ // 0x1f27 @0x15
0x1f12…1f4b at0016 = ╱7d╱}╱ // 0x1f28 @0x16
0x1f12…1f4b at0017 = ╱20╱…╱ // 0x1f29 @0x17
0x1f12…1f4b at0018 = ╱70╱p╱ // 0x1f2a @0x18
0x1f12…1f4b at0019 = ╱72╱r╱ // 0x1f2b @0x19
0x1f12…1f4b at001a = ╱69╱i╱ // 0x1f2c @0x1a
0x1f12…1f4b at001b = ╱6e╱n╱ // 0x1f2d @0x1b
0x1f12…1f4b at001c = ╱74╱t╱ // 0x1f2e @0x1c
0x1f12…1f4b at001d = ╱65╱e╱ // 0x1f2f @0x1d
0x1f12…1f4b at001e = ╱72╱r╱ // 0x1f30 @0x1e
0x1f12…1f4b at001f = ╱20╱…╱ // 0x1f31 @0x1f
0x1f12…1f4b at0020 = ╱6e╱n╱ // 0x1f32 @0x20
0x1f12…1f4b at0021 = ╱72╱r╱ // 0x1f33 @0x21
0x1f12…1f4b at0022 = ╱2e╱.╱ // 0x1f34 @0x22
0x1f12…1f4b at0023 = ╱20╱…╱ // 0x1f35 @0x23
0x1f12…1f4b at0024 = ╱3f╱?╱ // 0x1f36 @0x24
0x1f12…1f4b at0025 = ╱20╱…╱ // 0x1f37 @0x25
0x1f12…1f4b at0026 = ╱28╱(╱ // 0x1f38 @0x26
0x1f12…1f4b at0027 = ╱31╱1╱ // 0x1f39 @0x27
0x1f12…1f4b at0028 = ╱2f╱/╱ // 0x1f3a @0x28
0x1f12…1f4b at0029 = ╱32╱2╱ // 0x1f3b @0x29
0x1f12…1f4b at002a = ╱2f╱/╱ // 0x1f3c @0x2a
0x1f12…1f4b at002b = ╱33╱3╱ // 0x1f3d @0x2b
0x1f12…1f4b at002c = ╱2f╱/╱ // 0x1f3e @0x2c
0x1f12…1f4b at002d = ╱34╱4╱ // 0x1f3f @0x2d
0x1f12…1f4b at002e = ╱29╱)╱ // 0x1f40 @0x2e
0x1f12…1f4b at002f = ╱20╱…╱ // 0x1f41 @0x2f
0x1f12…1f4b at0030 = ╱22╱"╱ // 0x1f42 @0x30
0x1f12…1f4b at0031 = ╱f1╱ : ╱ // 0x1f43 @0x31
0x1f12…1f4b at0032 = ╱50╱P╱ // 0x1f44 @0x32
0x1f12…1f4b at0033 = ╱52╱R╱ // 0x1f45 @0x33
0x1f12…1f4b at0034 = ╱54╱T╱ // 0x1f46 @0x34
0x1f12…1f4b at0035 = ╱4e╱N╱ // 0x1f47 @0x35
0x1f12…1f4b at0036 = ╱52╱R╱ // 0x1f48 @0x36
0x1f12…1f4b at0037 = ╱ef╱ $ ╱ // 0x1f49 @0x37
0x1f12…1f4b at0038 = EOL // 0x1f4a @0x38
0x1f12…1f4b }
0x1f4b…1f6b b559 09906 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
0x1f4b…1f6b LineComal80 {
0x1f4b…1f6b ptr = 0xb559 // 0x1f4b @0x0
0x1f4b…1f6b lno = 0x26b2 // 0x1f4d @0x2
0x1f4b…1f6b at0004 = ╱98╱ UNTIL ╱ // 0x1f4f @0x4
0x1f4b…1f6b at0005 = ╱22╱"╱ // 0x1f50 @0x5
0x1f4b…1f6b at0006 = ╱2f╱/╱ // 0x1f51 @0x6
0x1f4b…1f6b at0007 = ╱22╱"╱ // 0x1f52 @0x7
0x1f4b…1f6b at0008 = ╱eb╱ + ╱ // 0x1f53 @0x8
0x1f4b…1f6b at0009 = ╱50╱P╱ // 0x1f54 @0x9
0x1f4b…1f6b at000a = ╱52╱R╱ // 0x1f55 @0xa
0x1f4b…1f6b at000b = ╱54╱T╱ // 0x1f56 @0xb
0x1f4b…1f6b at000c = ╱4e╱N╱ // 0x1f57 @0xc
0x1f4b…1f6b at000d = ╱52╱R╱ // 0x1f58 @0xd
0x1f4b…1f6b at000e = ╱ef╱ $ ╱ // 0x1f59 @0xe
0x1f4b…1f6b at000f = ╱eb╱ + ╱ // 0x1f5a @0xf
0x1f4b…1f6b at0010 = ╱22╱"╱ // 0x1f5b @0x10
0x1f4b…1f6b at0011 = ╱2f╱/╱ // 0x1f5c @0x11
0x1f4b…1f6b at0012 = ╱22╱"╱ // 0x1f5d @0x12
0x1f4b…1f6b at0013 = ╱dc╱ IN ╱ // 0x1f5e @0x13
0x1f4b…1f6b at0014 = ╱22╱"╱ // 0x1f5f @0x14
0x1f4b…1f6b at0015 = ╱2f╱/╱ // 0x1f60 @0x15
0x1f4b…1f6b at0016 = ╱31╱1╱ // 0x1f61 @0x16
0x1f4b…1f6b at0017 = ╱2f╱/╱ // 0x1f62 @0x17
0x1f4b…1f6b at0018 = ╱32╱2╱ // 0x1f63 @0x18
0x1f4b…1f6b at0019 = ╱2f╱/╱ // 0x1f64 @0x19
0x1f4b…1f6b at001a = ╱33╱3╱ // 0x1f65 @0x1a
0x1f4b…1f6b at001b = ╱2f╱/╱ // 0x1f66 @0x1b
0x1f4b…1f6b at001c = ╱34╱4╱ // 0x1f67 @0x1c
0x1f4b…1f6b at001d = ╱2f╱/╱ // 0x1f68 @0x1d
0x1f4b…1f6b at001e = ╱22╱"╱ // 0x1f69 @0x1e
0x1f4b…1f6b at001f = EOL // 0x1f6a @0x1f
0x1f4b…1f6b }
0x1f6b…1f8f b57d 09907 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
0x1f6b…1f8f LineComal80 {
0x1f6b…1f8f ptr = 0xb57d // 0x1f6b @0x0
0x1f6b…1f8f lno = 0x26b3 // 0x1f6d @0x2
0x1f6b…1f8f at0004 = ╱a1╱ CURSOR ╱ // 0x1f6f @0x4
0x1f6b…1f8f at0005 = ╱ed╱ ( ╱ // 0x1f70 @0x5
0x1f6b…1f8f at0006 = ╱33╱3╱ // 0x1f71 @0x6
0x1f6b…1f8f at0007 = ╱39╱9╱ // 0x1f72 @0x7
0x1f6b…1f8f at0008 = ╱f22700╱ // 0x1f73 @0x8
0x1f6b…1f8f at000b = ╱e6╱ - ╱ // 0x1f76 @0xb
0x1f6b…1f8f at000c = ╱cb╱ // 0x1f77 @0xc
0x1f6b…1f8f at000d = ╱ed╱ ( ╱ // 0x1f78 @0xd
0x1f6b…1f8f at000e = ╱50╱P╱ // 0x1f79 @0xe
0x1f6b…1f8f at000f = ╱41╱A╱ // 0x1f7a @0xf
0x1f6b…1f8f at0010 = ╱47╱G╱ // 0x1f7b @0x10
0x1f6b…1f8f at0011 = ╱45╱E╱ // 0x1f7c @0x11
0x1f6b…1f8f at0012 = ╱54╱T╱ // 0x1f7d @0x12
0x1f6b…1f8f at0013 = ╱59╱Y╱ // 0x1f7e @0x13
0x1f6b…1f8f at0014 = ╱50╱P╱ // 0x1f7f @0x14
0x1f6b…1f8f at0015 = ╱45╱E╱ // 0x1f80 @0x15
0x1f6b…1f8f at0016 = ╱ef╱ $ ╱ // 0x1f81 @0x16
0x1f6b…1f8f at0017 = ╱ee╱ ) ╱ // 0x1f82 @0x17
0x1f6b…1f8f at0018 = ╱ee╱ ) ╱ // 0x1f83 @0x18
0x1f6b…1f8f at0019 = ╱da╱ DIV ╱ // 0x1f84 @0x19
0x1f6b…1f8f at001a = ╱32╱2╱ // 0x1f85 @0x1a
0x1f6b…1f8f at001b = ╱f20200╱ // 0x1f86 @0x1b
0x1f6b…1f8f at001e = ╱ec╱ , ╱ // 0x1f89 @0x1e
0x1f6b…1f8f at001f = ╱4c╱L╱ // 0x1f8a @0x1f
0x1f6b…1f8f at0020 = ╱49╱I╱ // 0x1f8b @0x20
0x1f6b…1f8f at0021 = ╱4e╱N╱ // 0x1f8c @0x21
0x1f6b…1f8f at0022 = ╱45╱E╱ // 0x1f8d @0x22
0x1f6b…1f8f at0023 = EOL // 0x1f8e @0x23
0x1f6b…1f8f }
0x1f8f…1fcf b5bd 09908 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
0x1f8f…1fcf LineComal80 {
0x1f8f…1fcf ptr = 0xb5bd // 0x1f8f @0x0
0x1f8f…1fcf lno = 0x26b4 // 0x1f91 @0x2
0x1f8f…1fcf at0004 = ╱92╱ PRINT ╱ // 0x1f93 @0x4
0x1f8f…1fcf at0005 = ╱22╱"╱ // 0x1f94 @0x5
0x1f8f…1fcf at0006 = ╱3c╱<╱ // 0x1f95 @0x6
0x1f8f…1fcf at0007 = ╱53╱S╱ // 0x1f96 @0x7
0x1f8f…1fcf at0008 = ╱5a╱Z╱ // 0x1f97 @0x8
0x1f8f…1fcf at0009 = ╱3e╱>╱ // 0x1f98 @0x9
0x1f8f…1fcf at000a = ╱20╱…╱ // 0x1f99 @0xa
0x1f8f…1fcf at000b = ╱20╱…╱ // 0x1f9a @0xb
0x1f8f…1fcf at000c = ╱20╱…╱ // 0x1f9b @0xc
0x1f8f…1fcf at000d = ╱20╱…╱ // 0x1f9c @0xd
0x1f8f…1fcf at000e = ╱20╱…╱ // 0x1f9d @0xe
0x1f8f…1fcf at000f = ╱4d╱M╱ // 0x1f9e @0xf
0x1f8f…1fcf at0010 = ╱6f╱o╱ // 0x1f9f @0x10
0x1f8f…1fcf at0011 = ╱6e╱n╱ // 0x1fa0 @0x11
0x1f8f…1fcf at0012 = ╱74╱t╱ // 0x1fa1 @0x12
0x1f8f…1fcf at0013 = ╱65╱e╱ // 0x1fa2 @0x13
0x1f8f…1fcf at0014 = ╱72╱r╱ // 0x1fa3 @0x14
0x1f8f…1fcf at0015 = ╱20╱…╱ // 0x1fa4 @0x15
0x1f8f…1fcf at0016 = ╱22╱"╱ // 0x1fa5 @0x16
0x1f8f…1fcf at0017 = ╱ea╱ ; ╱ // 0x1fa6 @0x17
0x1f8f…1fcf at0018 = ╱50╱P╱ // 0x1fa7 @0x18
0x1f8f…1fcf at0019 = ╱41╱A╱ // 0x1fa8 @0x19
0x1f8f…1fcf at001a = ╱47╱G╱ // 0x1fa9 @0x1a
0x1f8f…1fcf at001b = ╱45╱E╱ // 0x1faa @0x1b
0x1f8f…1fcf at001c = ╱54╱T╱ // 0x1fab @0x1c
0x1f8f…1fcf at001d = ╱59╱Y╱ // 0x1fac @0x1d
0x1f8f…1fcf at001e = ╱50╱P╱ // 0x1fad @0x1e
0x1f8f…1fcf at001f = ╱45╱E╱ // 0x1fae @0x1f
0x1f8f…1fcf at0020 = ╱ef╱ $ ╱ // 0x1faf @0x20
0x1f8f…1fcf at0021 = ╱ea╱ ; ╱ // 0x1fb0 @0x21
0x1f8f…1fcf at0022 = ╱22╱"╱ // 0x1fb1 @0x22
0x1f8f…1fcf at0023 = ╱20╱…╱ // 0x1fb2 @0x23
0x1f8f…1fcf at0024 = ╱69╱i╱ // 0x1fb3 @0x24
0x1f8f…1fcf at0025 = ╱20╱…╱ // 0x1fb4 @0x25
0x1f8f…1fcf at0026 = ╱70╱p╱ // 0x1fb5 @0x26
0x1f8f…1fcf at0027 = ╱72╱r╱ // 0x1fb6 @0x27
0x1f8f…1fcf at0028 = ╱69╱i╱ // 0x1fb7 @0x28
0x1f8f…1fcf at0029 = ╱6e╱n╱ // 0x1fb8 @0x29
0x1f8f…1fcf at002a = ╱74╱t╱ // 0x1fb9 @0x2a
0x1f8f…1fcf at002b = ╱65╱e╱ // 0x1fba @0x2b
0x1f8f…1fcf at002c = ╱72╱r╱ // 0x1fbb @0x2c
0x1f8f…1fcf at002d = ╱65╱e╱ // 0x1fbc @0x2d
0x1f8f…1fcf at002e = ╱6e╱n╱ // 0x1fbd @0x2e
0x1f8f…1fcf at002f = ╱20╱…╱ // 0x1fbe @0x2f
0x1f8f…1fcf at0030 = ╱2d╱-╱ // 0x1fbf @0x30
0x1f8f…1fcf at0031 = ╱20╱…╱ // 0x1fc0 @0x31
0x1f8f…1fcf at0032 = ╱74╱t╱ // 0x1fc1 @0x32
0x1f8f…1fcf at0033 = ╱72╱r╱ // 0x1fc2 @0x33
0x1f8f…1fcf at0034 = ╱79╱y╱ // 0x1fc3 @0x34
0x1f8f…1fcf at0035 = ╱6b╱k╱ // 0x1fc4 @0x35
0x1f8f…1fcf at0036 = ╱20╱…╱ // 0x1fc5 @0x36
0x1f8f…1fcf at0037 = ╱52╱R╱ // 0x1fc6 @0x37
0x1f8f…1fcf at0038 = ╱45╱E╱ // 0x1fc7 @0x38
0x1f8f…1fcf at0039 = ╱54╱T╱ // 0x1fc8 @0x39
0x1f8f…1fcf at003a = ╱55╱U╱ // 0x1fc9 @0x3a
0x1f8f…1fcf at003b = ╱52╱R╱ // 0x1fca @0x3b
0x1f8f…1fcf at003c = ╱4e╱N╱ // 0x1fcb @0x3c
0x1f8f…1fcf at003d = ╱20╱…╱ // 0x1fcc @0x3d
0x1f8f…1fcf at003e = ╱22╱"╱ // 0x1fcd @0x3e
0x1f8f…1fcf at003f = EOL // 0x1fce @0x3f
0x1f8f…1fcf }
0x1fcf…1fdd b5cb 09909 INPUT "" : SVAR $
0x1fcf…1fdd LineComal80 {
0x1fcf…1fdd ptr = 0xb5cb // 0x1fcf @0x0
0x1fcf…1fdd lno = 0x26b5 // 0x1fd1 @0x2
0x1fcf…1fdd at0004 = ╱91╱ INPUT ╱ // 0x1fd3 @0x4
0x1fcf…1fdd at0005 = ╱22╱"╱ // 0x1fd4 @0x5
0x1fcf…1fdd at0006 = ╱22╱"╱ // 0x1fd5 @0x6
0x1fcf…1fdd at0007 = ╱f1╱ : ╱ // 0x1fd6 @0x7
0x1fcf…1fdd at0008 = ╱53╱S╱ // 0x1fd7 @0x8
0x1fcf…1fdd at0009 = ╱56╱V╱ // 0x1fd8 @0x9
0x1fcf…1fdd at000a = ╱41╱A╱ // 0x1fd9 @0xa
0x1fcf…1fdd at000b = ╱52╱R╱ // 0x1fda @0xb
0x1fcf…1fdd at000c = ╱ef╱ $ ╱ // 0x1fdb @0xc
0x1fcf…1fdd at000d = EOL // 0x1fdc @0xd
0x1fcf…1fdd }
0x1fdd…1fed b5db 09910 SELECT OUTPUT "P" + PRTNR $
0x1fdd…1fed LineComal80 {
0x1fdd…1fed ptr = 0xb5db // 0x1fdd @0x0
0x1fdd…1fed lno = 0x26b6 // 0x1fdf @0x2
0x1fdd…1fed at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x1fe1 @0x4
0x1fdd…1fed at0005 = ╱22╱"╱ // 0x1fe2 @0x5
0x1fdd…1fed at0006 = ╱50╱P╱ // 0x1fe3 @0x6
0x1fdd…1fed at0007 = ╱22╱"╱ // 0x1fe4 @0x7
0x1fdd…1fed at0008 = ╱eb╱ + ╱ // 0x1fe5 @0x8
0x1fdd…1fed at0009 = ╱50╱P╱ // 0x1fe6 @0x9
0x1fdd…1fed at000a = ╱52╱R╱ // 0x1fe7 @0xa
0x1fdd…1fed at000b = ╱54╱T╱ // 0x1fe8 @0xb
0x1fdd…1fed at000c = ╱4e╱N╱ // 0x1fe9 @0xc
0x1fdd…1fed at000d = ╱52╱R╱ // 0x1fea @0xd
0x1fdd…1fed at000e = ╱ef╱ $ ╱ // 0x1feb @0xe
0x1fdd…1fed at000f = EOL // 0x1fec @0xf
0x1fdd…1fed }
0x1fed…1ffb b5e9 09911 IF ( "P" ) THEN
0x1fed…1ffb LineComal80 {
0x1fed…1ffb ptr = 0xb5e9 // 0x1fed @0x0
0x1fed…1ffb lno = 0x26b7 // 0x1fef @0x2
0x1fed…1ffb at0004 = ╱9b34cd╱ IF ╱ // 0x1ff1 @0x4
0x1fed…1ffb at0007 = ╱ed╱ ( ╱ // 0x1ff4 @0x7
0x1fed…1ffb at0008 = ╱22╱"╱ // 0x1ff5 @0x8
0x1fed…1ffb at0009 = ╱50╱P╱ // 0x1ff6 @0x9
0x1fed…1ffb at000a = ╱22╱"╱ // 0x1ff7 @0xa
0x1fed…1ffb at000b = ╱ee╱ ) ╱ // 0x1ff8 @0xb
0x1fed…1ffb at000c = ╱b5╱ THEN ╱ // 0x1ff9 @0xc
0x1fed…1ffb at000d = EOL // 0x1ffa @0xd
0x1fed…1ffb }
0x1ffb…200b b5f9 09912 CURSOR 12 , LINE
0x1ffb…200b LineComal80 {
0x1ffb…200b ptr = 0xb5f9 // 0x1ffb @0x0
0x1ffb…200b lno = 0x26b8 // 0x1ffd @0x2
0x1ffb…200b at0004 = ╱a1╱ CURSOR ╱ // 0x1fff @0x4
0x1ffb…200b at0005 = ╱31╱1╱ // 0x2000 @0x5
0x1ffb…200b at0006 = ╱32╱2╱ // 0x2001 @0x6
0x1ffb…200b at0007 = ╱f20c00╱ // 0x2002 @0x7
0x1ffb…200b at000a = ╱ec╱ , ╱ // 0x2005 @0xa
0x1ffb…200b at000b = ╱4c╱L╱ // 0x2006 @0xb
0x1ffb…200b at000c = ╱49╱I╱ // 0x2007 @0xc
0x1ffb…200b at000d = ╱4e╱N╱ // 0x2008 @0xd
0x1ffb…200b at000e = ╱45╱E╱ // 0x2009 @0xe
0x1ffb…200b at000f = EOL // 0x200a @0xf
0x1ffb…200b }
0x200b…2042 b630 09913 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
0x200b…2042 LineComal80 {
0x200b…2042 ptr = 0xb630 // 0x200b @0x0
0x200b…2042 lno = 0x26b9 // 0x200d @0x2
0x200b…2042 at0004 = ╱92╱ PRINT ╱ // 0x200f @0x4
0x200b…2042 at0005 = ╱22╱"╱ // 0x2010 @0x5
0x200b…2042 at0006 = ╱3c╱<╱ // 0x2011 @0x6
0x200b…2042 at0007 = ╱53╱S╱ // 0x2012 @0x7
0x200b…2042 at0008 = ╱5a╱Z╱ // 0x2013 @0x8
0x200b…2042 at0009 = ╱3e╱>╱ // 0x2014 @0x9
0x200b…2042 at000a = ╱50╱P╱ // 0x2015 @0xa
0x200b…2042 at000b = ╱72╱r╱ // 0x2016 @0xb
0x200b…2042 at000c = ╱69╱i╱ // 0x2017 @0xc
0x200b…2042 at000d = ╱6e╱n╱ // 0x2018 @0xd
0x200b…2042 at000e = ╱74╱t╱ // 0x2019 @0xe
0x200b…2042 at000f = ╱65╱e╱ // 0x201a @0xf
0x200b…2042 at0010 = ╱72╱r╱ // 0x201b @0x10
0x200b…2042 at0011 = ╱65╱e╱ // 0x201c @0x11
0x200b…2042 at0012 = ╱6e╱n╱ // 0x201d @0x12
0x200b…2042 at0013 = ╱20╱…╱ // 0x201e @0x13
0x200b…2042 at0014 = ╱65╱e╱ // 0x201f @0x14
0x200b…2042 at0015 = ╱72╱r╱ // 0x2020 @0x15
0x200b…2042 at0016 = ╱20╱…╱ // 0x2021 @0x16
0x200b…2042 at0017 = ╱72╱r╱ // 0x2022 @0x17
0x200b…2042 at0018 = ╱65╱e╱ // 0x2023 @0x18
0x200b…2042 at0019 = ╱73╱s╱ // 0x2024 @0x19
0x200b…2042 at001a = ╱65╱e╱ // 0x2025 @0x1a
0x200b…2042 at001b = ╱72╱r╱ // 0x2026 @0x1b
0x200b…2042 at001c = ╱76╱v╱ // 0x2027 @0x1c
0x200b…2042 at001d = ╱65╱e╱ // 0x2028 @0x1d
0x200b…2042 at001e = ╱72╱r╱ // 0x2029 @0x1e
0x200b…2042 at001f = ╱65╱e╱ // 0x202a @0x1f
0x200b…2042 at0020 = ╱74╱t╱ // 0x202b @0x20
0x200b…2042 at0021 = ╱20╱…╱ // 0x202c @0x21
0x200b…2042 at0022 = ╱61╱a╱ // 0x202d @0x22
0x200b…2042 at0023 = ╱66╱f╱ // 0x202e @0x23
0x200b…2042 at0024 = ╱20╱…╱ // 0x202f @0x24
0x200b…2042 at0025 = ╱65╱e╱ // 0x2030 @0x25
0x200b…2042 at0026 = ╱6e╱n╱ // 0x2031 @0x26
0x200b…2042 at0027 = ╱20╱…╱ // 0x2032 @0x27
0x200b…2042 at0028 = ╱61╱a╱ // 0x2033 @0x28
0x200b…2042 at0029 = ╱6e╱n╱ // 0x2034 @0x29
0x200b…2042 at002a = ╱64╱d╱ // 0x2035 @0x2a
0x200b…2042 at002b = ╱65╱e╱ // 0x2036 @0x2b
0x200b…2042 at002c = ╱6e╱n╱ // 0x2037 @0x2c
0x200b…2042 at002d = ╱20╱…╱ // 0x2038 @0x2d
0x200b…2042 at002e = ╱62╱b╱ // 0x2039 @0x2e
0x200b…2042 at002f = ╱72╱r╱ // 0x203a @0x2f
0x200b…2042 at0030 = ╱75╱u╱ // 0x203b @0x30
0x200b…2042 at0031 = ╱67╱g╱ // 0x203c @0x31
0x200b…2042 at0032 = ╱65╱e╱ // 0x203d @0x32
0x200b…2042 at0033 = ╱72╱r╱ // 0x203e @0x33
0x200b…2042 at0034 = ╱2c╱,╱ // 0x203f @0x34
0x200b…2042 at0035 = ╱22╱"╱ // 0x2040 @0x35
0x200b…2042 at0036 = EOL // 0x2041 @0x36
0x200b…2042 }
0x2042…2057 b645 09914 CURSOR 12 , LINE + 1
0x2042…2057 LineComal80 {
0x2042…2057 ptr = 0xb645 // 0x2042 @0x0
0x2042…2057 lno = 0x26ba // 0x2044 @0x2
0x2042…2057 at0004 = ╱a1╱ CURSOR ╱ // 0x2046 @0x4
0x2042…2057 at0005 = ╱31╱1╱ // 0x2047 @0x5
0x2042…2057 at0006 = ╱32╱2╱ // 0x2048 @0x6
0x2042…2057 at0007 = ╱f20c00╱ // 0x2049 @0x7
0x2042…2057 at000a = ╱ec╱ , ╱ // 0x204c @0xa
0x2042…2057 at000b = ╱4c╱L╱ // 0x204d @0xb
0x2042…2057 at000c = ╱49╱I╱ // 0x204e @0xc
0x2042…2057 at000d = ╱4e╱N╱ // 0x204f @0xd
0x2042…2057 at000e = ╱45╱E╱ // 0x2050 @0xe
0x2042…2057 at000f = ╱e5╱ + ╱ // 0x2051 @0xf
0x2042…2057 at0010 = ╱31╱1╱ // 0x2052 @0x10
0x2042…2057 at0011 = ╱f20100╱ // 0x2053 @0x11
0x2042…2057 at0014 = EOL // 0x2056 @0x14
0x2042…2057 }
0x2057…2098 b686 09915 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
0x2057…2098 LineComal80 {
0x2057…2098 ptr = 0xb686 // 0x2057 @0x0
0x2057…2098 lno = 0x26bb // 0x2059 @0x2
0x2057…2098 at0004 = ╱91╱ INPUT ╱ // 0x205b @0x4
0x2057…2098 at0005 = ╱22╱"╱ // 0x205c @0x5
0x2057…2098 at0006 = ╱3c╱<╱ // 0x205d @0x6
0x2057…2098 at0007 = ╱53╱S╱ // 0x205e @0x7
0x2057…2098 at0008 = ╱5a╱Z╱ // 0x205f @0x8
0x2057…2098 at0009 = ╱3e╱>╱ // 0x2060 @0x9
0x2057…2098 at000a = ╱53╱S╱ // 0x2061 @0xa
0x2057…2098 at000b = ╱6b╱k╱ // 0x2062 @0xb
0x2057…2098 at000c = ╱61╱a╱ // 0x2063 @0xc
0x2057…2098 at000d = ╱6c╱l╱ // 0x2064 @0xd
0x2057…2098 at000e = ╱20╱…╱ // 0x2065 @0xe
0x2057…2098 at000f = ╱64╱d╱ // 0x2066 @0xf
0x2057…2098 at0010 = ╱65╱e╱ // 0x2067 @0x10
0x2057…2098 at0011 = ╱72╱r╱ // 0x2068 @0x11
0x2057…2098 at0012 = ╱20╱…╱ // 0x2069 @0x12
0x2057…2098 at0013 = ╱76╱v╱ // 0x206a @0x13
0x2057…2098 at0014 = ╱65╱e╱ // 0x206b @0x14
0x2057…2098 at0015 = ╱6e╱n╱ // 0x206c @0x15
0x2057…2098 at0016 = ╱74╱t╱ // 0x206d @0x16
0x2057…2098 at0017 = ╱65╱e╱ // 0x206e @0x17
0x2057…2098 at0018 = ╱73╱s╱ // 0x206f @0x18
0x2057…2098 at0019 = ╱20╱…╱ // 0x2070 @0x19
0x2057…2098 at001a = ╱70╱p╱ // 0x2071 @0x1a
0x2057…2098 at001b = ╱7d╱}╱ // 0x2072 @0x1b
0x2057…2098 at001c = ╱20╱…╱ // 0x2073 @0x1c
0x2057…2098 at001d = ╱61╱a╱ // 0x2074 @0x1d
0x2057…2098 at001e = ╱74╱t╱ // 0x2075 @0x1e
0x2057…2098 at001f = ╱20╱…╱ // 0x2076 @0x1f
0x2057…2098 at0020 = ╱64╱d╱ // 0x2077 @0x20
0x2057…2098 at0021 = ╱65╱e╱ // 0x2078 @0x21
0x2057…2098 at0022 = ╱6e╱n╱ // 0x2079 @0x22
0x2057…2098 at0023 = ╱20╱…╱ // 0x207a @0x23
0x2057…2098 at0024 = ╱62╱b╱ // 0x207b @0x24
0x2057…2098 at0025 = ╱6c╱l╱ // 0x207c @0x25
0x2057…2098 at0026 = ╱69╱i╱ // 0x207d @0x26
0x2057…2098 at0027 = ╱76╱v╱ // 0x207e @0x27
0x2057…2098 at0028 = ╱65╱e╱ // 0x207f @0x28
0x2057…2098 at0029 = ╱72╱r╱ // 0x2080 @0x29
0x2057…2098 at002a = ╱20╱…╱ // 0x2081 @0x2a
0x2057…2098 at002b = ╱6c╱l╱ // 0x2082 @0x2b
0x2057…2098 at002c = ╱65╱e╱ // 0x2083 @0x2c
0x2057…2098 at002d = ╱64╱d╱ // 0x2084 @0x2d
0x2057…2098 at002e = ╱69╱i╱ // 0x2085 @0x2e
0x2057…2098 at002f = ╱67╱g╱ // 0x2086 @0x2f
0x2057…2098 at0030 = ╱20╱…╱ // 0x2087 @0x30
0x2057…2098 at0031 = ╱3f╱?╱ // 0x2088 @0x31
0x2057…2098 at0032 = ╱20╱…╱ // 0x2089 @0x32
0x2057…2098 at0033 = ╱28╱(╱ // 0x208a @0x33
0x2057…2098 at0034 = ╱6a╱j╱ // 0x208b @0x34
0x2057…2098 at0035 = ╱2f╱/╱ // 0x208c @0x35
0x2057…2098 at0036 = ╱6e╱n╱ // 0x208d @0x36
0x2057…2098 at0037 = ╱29╱)╱ // 0x208e @0x37
0x2057…2098 at0038 = ╱20╱…╱ // 0x208f @0x38
0x2057…2098 at0039 = ╱22╱"╱ // 0x2090 @0x39
0x2057…2098 at003a = ╱f1╱ : ╱ // 0x2091 @0x3a
0x2057…2098 at003b = ╱53╱S╱ // 0x2092 @0x3b
0x2057…2098 at003c = ╱56╱V╱ // 0x2093 @0x3c
0x2057…2098 at003d = ╱41╱A╱ // 0x2094 @0x3d
0x2057…2098 at003e = ╱52╱R╱ // 0x2095 @0x3e
0x2057…2098 at003f = ╱ef╱ $ ╱ // 0x2096 @0x3f
0x2057…2098 at0040 = EOL // 0x2097 @0x40
0x2057…2098 }
0x2098…20b3 b6a1 09916 IF VAR $ = "J" OR SVAR $ = "j" THEN
0x2098…20b3 LineComal80 {
0x2098…20b3 ptr = 0xb6a1 // 0x2098 @0x0
0x2098…20b3 lno = 0x26bc // 0x209a @0x2
0x2098…20b3 at0004 = ╱9b3553╱ IF ╱ // 0x209c @0x4
0x2098…20b3 at0007 = ╱56╱V╱ // 0x209f @0x7
0x2098…20b3 at0008 = ╱41╱A╱ // 0x20a0 @0x8
0x2098…20b3 at0009 = ╱52╱R╱ // 0x20a1 @0x9
0x2098…20b3 at000a = ╱ef╱ $ ╱ // 0x20a2 @0xa
0x2098…20b3 at000b = ╱df╱ = ╱ // 0x20a3 @0xb
0x2098…20b3 at000c = ╱22╱"╱ // 0x20a4 @0xc
0x2098…20b3 at000d = ╱4a╱J╱ // 0x20a5 @0xd
0x2098…20b3 at000e = ╱22╱"╱ // 0x20a6 @0xe
0x2098…20b3 at000f = ╱d8╱ OR ╱ // 0x20a7 @0xf
0x2098…20b3 at0010 = ╱53╱S╱ // 0x20a8 @0x10
0x2098…20b3 at0011 = ╱56╱V╱ // 0x20a9 @0x11
0x2098…20b3 at0012 = ╱41╱A╱ // 0x20aa @0x12
0x2098…20b3 at0013 = ╱52╱R╱ // 0x20ab @0x13
0x2098…20b3 at0014 = ╱ef╱ $ ╱ // 0x20ac @0x14
0x2098…20b3 at0015 = ╱df╱ = ╱ // 0x20ad @0x15
0x2098…20b3 at0016 = ╱22╱"╱ // 0x20ae @0x16
0x2098…20b3 at0017 = ╱6a╱j╱ // 0x20af @0x17
0x2098…20b3 at0018 = ╱22╱"╱ // 0x20b0 @0x18
0x2098…20b3 at0019 = ╱b5╱ THEN ╱ // 0x20b1 @0x19
0x2098…20b3 at001a = EOL // 0x20b2 @0x1a
0x2098…20b3 }
0x20b3…20c3 b6b1 09917 CURSOR 12 , LINE
0x20b3…20c3 LineComal80 {
0x20b3…20c3 ptr = 0xb6b1 // 0x20b3 @0x0
0x20b3…20c3 lno = 0x26bd // 0x20b5 @0x2
0x20b3…20c3 at0004 = ╱a1╱ CURSOR ╱ // 0x20b7 @0x4
0x20b3…20c3 at0005 = ╱31╱1╱ // 0x20b8 @0x5
0x20b3…20c3 at0006 = ╱32╱2╱ // 0x20b9 @0x6
0x20b3…20c3 at0007 = ╱f20c00╱ // 0x20ba @0x7
0x20b3…20c3 at000a = ╱ec╱ , ╱ // 0x20bd @0xa
0x20b3…20c3 at000b = ╱4c╱L╱ // 0x20be @0xb
0x20b3…20c3 at000c = ╱49╱I╱ // 0x20bf @0xc
0x20b3…20c3 at000d = ╱4e╱N╱ // 0x20c0 @0xd
0x20b3…20c3 at000e = ╱45╱E╱ // 0x20c1 @0xe
0x20b3…20c3 at000f = EOL // 0x20c2 @0xf
0x20b3…20c3 }
0x20c3…20fe b6ec 09918 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
0x20c3…20fe LineComal80 {
0x20c3…20fe ptr = 0xb6ec // 0x20c3 @0x0
0x20c3…20fe lno = 0x26be // 0x20c5 @0x2
0x20c3…20fe at0004 = ╱92╱ PRINT ╱ // 0x20c7 @0x4
0x20c3…20fe at0005 = ╱22╱"╱ // 0x20c8 @0x5
0x20c3…20fe at0006 = ╱3c╱<╱ // 0x20c9 @0x6
0x20c3…20fe at0007 = ╱5a╱Z╱ // 0x20ca @0x7
0x20c3…20fe at0008 = ╱3e╱>╱ // 0x20cb @0x8
0x20c3…20fe at0009 = ╱20╱…╱ // 0x20cc @0x9
0x20c3…20fe at000a = ╱20╱…╱ // 0x20cd @0xa
0x20c3…20fe at000b = ╱20╱…╱ // 0x20ce @0xb
0x20c3…20fe at000c = ╱20╱…╱ // 0x20cf @0xc
0x20c3…20fe at000d = ╱20╱…╱ // 0x20d0 @0xd
0x20c3…20fe at000e = ╱44╱D╱ // 0x20d1 @0xe
0x20c3…20fe at000f = ╱65╱e╱ // 0x20d2 @0xf
0x20c3…20fe at0010 = ╱72╱r╱ // 0x20d3 @0x10
0x20c3…20fe at0011 = ╱20╱…╱ // 0x20d4 @0x11
0x20c3…20fe at0012 = ╱76╱v╱ // 0x20d5 @0x12
0x20c3…20fe at0013 = ╱65╱e╱ // 0x20d6 @0x13
0x20c3…20fe at0014 = ╱6e╱n╱ // 0x20d7 @0x14
0x20c3…20fe at0015 = ╱74╱t╱ // 0x20d8 @0x15
0x20c3…20fe at0016 = ╱65╱e╱ // 0x20d9 @0x16
0x20c3…20fe at0017 = ╱73╱s╱ // 0x20da @0x17
0x20c3…20fe at0018 = ╱20╱…╱ // 0x20db @0x18
0x20c3…20fe at0019 = ╱70╱p╱ // 0x20dc @0x19
0x20c3…20fe at001a = ╱7d╱}╱ // 0x20dd @0x1a
0x20c3…20fe at001b = ╱20╱…╱ // 0x20de @0x1b
0x20c3…20fe at001c = ╱61╱a╱ // 0x20df @0x1c
0x20c3…20fe at001d = ╱74╱t╱ // 0x20e0 @0x1d
0x20c3…20fe at001e = ╱20╱…╱ // 0x20e1 @0x1e
0x20c3…20fe at001f = ╱70╱p╱ // 0x20e2 @0x1f
0x20c3…20fe at0020 = ╱72╱r╱ // 0x20e3 @0x20
0x20c3…20fe at0021 = ╱69╱i╱ // 0x20e4 @0x21
0x20c3…20fe at0022 = ╱6e╱n╱ // 0x20e5 @0x22
0x20c3…20fe at0023 = ╱74╱t╱ // 0x20e6 @0x23
0x20c3…20fe at0024 = ╱65╱e╱ // 0x20e7 @0x24
0x20c3…20fe at0025 = ╱72╱r╱ // 0x20e8 @0x25
0x20c3…20fe at0026 = ╱65╱e╱ // 0x20e9 @0x26
0x20c3…20fe at0027 = ╱6e╱n╱ // 0x20ea @0x27
0x20c3…20fe at0028 = ╱20╱…╱ // 0x20eb @0x28
0x20c3…20fe at0029 = ╱62╱b╱ // 0x20ec @0x29
0x20c3…20fe at002a = ╱6c╱l╱ // 0x20ed @0x2a
0x20c3…20fe at002b = ╱69╱i╱ // 0x20ee @0x2b
0x20c3…20fe at002c = ╱76╱v╱ // 0x20ef @0x2c
0x20c3…20fe at002d = ╱65╱e╱ // 0x20f0 @0x2d
0x20c3…20fe at002e = ╱72╱r╱ // 0x20f1 @0x2e
0x20c3…20fe at002f = ╱20╱…╱ // 0x20f2 @0x2f
0x20c3…20fe at0030 = ╱6c╱l╱ // 0x20f3 @0x30
0x20c3…20fe at0031 = ╱65╱e╱ // 0x20f4 @0x31
0x20c3…20fe at0032 = ╱64╱d╱ // 0x20f5 @0x32
0x20c3…20fe at0033 = ╱69╱i╱ // 0x20f6 @0x33
0x20c3…20fe at0034 = ╱67╱g╱ // 0x20f7 @0x34
0x20c3…20fe at0035 = ╱2e╱.╱ // 0x20f8 @0x35
0x20c3…20fe at0036 = ╱2e╱.╱ // 0x20f9 @0x36
0x20c3…20fe at0037 = ╱2e╱.╱ // 0x20fa @0x37
0x20c3…20fe at0038 = ╱2e╱.╱ // 0x20fb @0x38
0x20c3…20fe at0039 = ╱22╱"╱ // 0x20fc @0x39
0x20c3…20fe at003a = EOL // 0x20fd @0x3a
0x20c3…20fe }
0x20fe…210a b6f8 09919 PRINT "<SZ>"
0x20fe…210a LineComal80 {
0x20fe…210a ptr = 0xb6f8 // 0x20fe @0x0
0x20fe…210a lno = 0x26bf // 0x2100 @0x2
0x20fe…210a at0004 = ╱92╱ PRINT ╱ // 0x2102 @0x4
0x20fe…210a at0005 = ╱22╱"╱ // 0x2103 @0x5
0x20fe…210a at0006 = ╱3c╱<╱ // 0x2104 @0x6
0x20fe…210a at0007 = ╱53╱S╱ // 0x2105 @0x7
0x20fe…210a at0008 = ╱5a╱Z╱ // 0x2106 @0x8
0x20fe…210a at0009 = ╱3e╱>╱ // 0x2107 @0x9
0x20fe…210a at000a = ╱22╱"╱ // 0x2108 @0xa
0x20fe…210a at000b = EOL // 0x2109 @0xb
0x20fe…210a }
0x210a…2118 b706 09920 WHILE ╱cd╱ ( "P" ) DO
0x210a…2118 LineComal80 {
0x210a…2118 ptr = 0xb706 // 0x210a @0x0
0x210a…2118 lno = 0x26c0 // 0x210c @0x2
0x210a…2118 at0004 = ╱9336╱ WHILE ╱ // 0x210e @0x4
0x210a…2118 at0006 = ╱cd╱ // 0x2110 @0x6
0x210a…2118 at0007 = ╱ed╱ ( ╱ // 0x2111 @0x7
0x210a…2118 at0008 = ╱22╱"╱ // 0x2112 @0x8
0x210a…2118 at0009 = ╱50╱P╱ // 0x2113 @0x9
0x210a…2118 at000a = ╱22╱"╱ // 0x2114 @0xa
0x210a…2118 at000b = ╱ee╱ ) ╱ // 0x2115 @0xb
0x210a…2118 at000c = ╱bb╱ DO ╱ // 0x2116 @0xc
0x210a…2118 at000d = EOL // 0x2117 @0xd
0x210a…2118 }
0x2118…2129 b717 09921 LET SEK := ╱ca╱ ( 5 )
0x2118…2129 LineComal80 {
0x2118…2129 ptr = 0xb717 // 0x2118 @0x0
0x2118…2129 lno = 0x26c1 // 0x211a @0x2
0x2118…2129 at0004 = ╱86╱ LET ╱ // 0x211c @0x4
0x2118…2129 at0005 = ╱53╱S╱ // 0x211d @0x5
0x2118…2129 at0006 = ╱45╱E╱ // 0x211e @0x6
0x2118…2129 at0007 = ╱4b╱K╱ // 0x211f @0x7
0x2118…2129 at0008 = ╱f0╱ := ╱ // 0x2120 @0x8
0x2118…2129 at0009 = ╱ca╱ // 0x2121 @0x9
0x2118…2129 at000a = ╱ed╱ ( ╱ // 0x2122 @0xa
0x2118…2129 at000b = ╱35╱5╱ // 0x2123 @0xb
0x2118…2129 at000c = ╱f20500╱ // 0x2124 @0xc
0x2118…2129 at000f = ╱ee╱ ) ╱ // 0x2127 @0xf
0x2118…2129 at0010 = EOL // 0x2128 @0x10
0x2118…2129 }
0x2129…2139 b727 09922 SELECT OUTPUT "P" + PRTNR $
0x2129…2139 LineComal80 {
0x2129…2139 ptr = 0xb727 // 0x2129 @0x0
0x2129…2139 lno = 0x26c2 // 0x212b @0x2
0x2129…2139 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x212d @0x4
0x2129…2139 at0005 = ╱22╱"╱ // 0x212e @0x5
0x2129…2139 at0006 = ╱50╱P╱ // 0x212f @0x6
0x2129…2139 at0007 = ╱22╱"╱ // 0x2130 @0x7
0x2129…2139 at0008 = ╱eb╱ + ╱ // 0x2131 @0x8
0x2129…2139 at0009 = ╱50╱P╱ // 0x2132 @0x9
0x2129…2139 at000a = ╱52╱R╱ // 0x2133 @0xa
0x2129…2139 at000b = ╱54╱T╱ // 0x2134 @0xb
0x2129…2139 at000c = ╱4e╱N╱ // 0x2135 @0xc
0x2129…2139 at000d = ╱52╱R╱ // 0x2136 @0xd
0x2129…2139 at000e = ╱ef╱ $ ╱ // 0x2137 @0xe
0x2129…2139 at000f = EOL // 0x2138 @0xf
0x2129…2139 }
0x2139…213f b72d 09923 ENDWHILE
0x2139…213f LineComal80 {
0x2139…213f ptr = 0xb72d // 0x2139 @0x0
0x2139…213f lno = 0x26c3 // 0x213b @0x2
0x2139…213f at0004 = ╱94╱ ENDWHILE ╱ // 0x213d @0x4
0x2139…213f at0005 = EOL // 0x213e @0x5
0x2139…213f }
0x213f…2146 b734 09924 ELSE
0x213f…2146 LineComal80 {
0x213f…2146 ptr = 0xb734 // 0x213f @0x0
0x213f…2146 lno = 0x26c4 // 0x2141 @0x2
0x213f…2146 at0004 = ╱9a37╱ ELSE ╱ // 0x2143 @0x4
0x213f…2146 at0006 = EOL // 0x2145 @0x6
0x213f…2146 }
0x2146…2154 b742 09925 LET OK := FALSE
0x2146…2154 LineComal80 {
0x2146…2154 ptr = 0xb742 // 0x2146 @0x0
0x2146…2154 lno = 0x26c5 // 0x2148 @0x2
0x2146…2154 at0004 = ╱86╱ LET ╱ // 0x214a @0x4
0x2146…2154 at0005 = ╱4f╱O╱ // 0x214b @0x5
0x2146…2154 at0006 = ╱4b╱K╱ // 0x214c @0x6
0x2146…2154 at0007 = ╱f0╱ := ╱ // 0x214d @0x7
0x2146…2154 at0008 = ╱46╱F╱ // 0x214e @0x8
0x2146…2154 at0009 = ╱41╱A╱ // 0x214f @0x9
0x2146…2154 at000a = ╱4c╱L╱ // 0x2150 @0xa
0x2146…2154 at000b = ╱53╱S╱ // 0x2151 @0xb
0x2146…2154 at000c = ╱45╱E╱ // 0x2152 @0xc
0x2146…2154 at000d = EOL // 0x2153 @0xd
0x2146…2154 }
0x2154…215a b748 09926 ENDIF
0x2154…215a LineComal80 {
0x2154…215a ptr = 0xb748 // 0x2154 @0x0
0x2154…215a lno = 0x26c6 // 0x2156 @0x2
0x2154…215a at0004 = ╱9c╱ ENDIF ╱ // 0x2158 @0x4
0x2154…215a at0005 = EOL // 0x2159 @0x5
0x2154…215a }
0x215a…2160 b74e 09927 ENDIF
0x215a…2160 LineComal80 {
0x215a…2160 ptr = 0xb74e // 0x215a @0x0
0x215a…2160 lno = 0x26c7 // 0x215c @0x2
0x215a…2160 at0004 = ╱9c╱ ENDIF ╱ // 0x215e @0x4
0x215a…2160 at0005 = EOL // 0x215f @0x5
0x215a…2160 }
0x2160…216f b75d 09928 CURSOR 1 , LINE
0x2160…216f LineComal80 {
0x2160…216f ptr = 0xb75d // 0x2160 @0x0
0x2160…216f lno = 0x26c8 // 0x2162 @0x2
0x2160…216f at0004 = ╱a1╱ CURSOR ╱ // 0x2164 @0x4
0x2160…216f at0005 = ╱31╱1╱ // 0x2165 @0x5
0x2160…216f at0006 = ╱f20100╱ // 0x2166 @0x6
0x2160…216f at0009 = ╱ec╱ , ╱ // 0x2169 @0x9
0x2160…216f at000a = ╱4c╱L╱ // 0x216a @0xa
0x2160…216f at000b = ╱49╱I╱ // 0x216b @0xb
0x2160…216f at000c = ╱4e╱N╱ // 0x216c @0xc
0x2160…216f at000d = ╱45╱E╱ // 0x216d @0xd
0x2160…216f at000e = EOL // 0x216e @0xe
0x2160…216f }
0x216f…217a b768 09929 PRINT "<Z>"
0x216f…217a LineComal80 {
0x216f…217a ptr = 0xb768 // 0x216f @0x0
0x216f…217a lno = 0x26c9 // 0x2171 @0x2
0x216f…217a at0004 = ╱92╱ PRINT ╱ // 0x2173 @0x4
0x216f…217a at0005 = ╱22╱"╱ // 0x2174 @0x5
0x216f…217a at0006 = ╱3c╱<╱ // 0x2175 @0x6
0x216f…217a at0007 = ╱5a╱Z╱ // 0x2176 @0x7
0x216f…217a at0008 = ╱3e╱>╱ // 0x2177 @0x8
0x216f…217a at0009 = ╱22╱"╱ // 0x2178 @0x9
0x216f…217a at000a = EOL // 0x2179 @0xa
0x216f…217a }
0x217a…2186 b774 09930 PRINT "<SZ>"
0x217a…2186 LineComal80 {
0x217a…2186 ptr = 0xb774 // 0x217a @0x0
0x217a…2186 lno = 0x26ca // 0x217c @0x2
0x217a…2186 at0004 = ╱92╱ PRINT ╱ // 0x217e @0x4
0x217a…2186 at0005 = ╱22╱"╱ // 0x217f @0x5
0x217a…2186 at0006 = ╱3c╱<╱ // 0x2180 @0x6
0x217a…2186 at0007 = ╱53╱S╱ // 0x2181 @0x7
0x217a…2186 at0008 = ╱5a╱Z╱ // 0x2182 @0x8
0x217a…2186 at0009 = ╱3e╱>╱ // 0x2183 @0x9
0x217a…2186 at000a = ╱22╱"╱ // 0x2184 @0xa
0x217a…2186 at000b = EOL // 0x2185 @0xb
0x217a…2186 }
0x2186…2194 b782 09931 ENDPROC PRINTRES
0x2186…2194 LineComal80 {
0x2186…2194 ptr = 0xb782 // 0x2186 @0x0
0x2186…2194 lno = 0x26cb // 0x2188 @0x2
0x2186…2194 at0004 = ╱9f╱ ENDPROC ╱ // 0x218a @0x4
0x2186…2194 at0005 = ╱50╱P╱ // 0x218b @0x5
0x2186…2194 at0006 = ╱52╱R╱ // 0x218c @0x6
0x2186…2194 at0007 = ╱49╱I╱ // 0x218d @0x7
0x2186…2194 at0008 = ╱4e╱N╱ // 0x218e @0x8
0x2186…2194 at0009 = ╱54╱T╱ // 0x218f @0x9
0x2186…2194 at000a = ╱52╱R╱ // 0x2190 @0xa
0x2186…2194 at000b = ╱45╱E╱ // 0x2191 @0xb
0x2186…2194 at000c = ╱53╱S╱ // 0x2192 @0xc
0x2186…2194 at000d = EOL // 0x2193 @0xd
0x2186…2194 }
0x2194…219a b788 03040 //
0x2194…219a LineComal80 {
0x2194…219a ptr = 0xb788 // 0x2194 @0x0
0x2194…219a lno = 0x0be0 // 0x2196 @0x2
0x2194…219a at0004 = ╱89╱ // ╱ // 0x2198 @0x4
0x2194…219a at0005 = EOL // 0x2199 @0x5
0x2194…219a }
0x219a…21b9 b7a7 03050 PROC PRINTREL // RELEASE…PRINTER
0x219a…21b9 LineComal80 {
0x219a…21b9 ptr = 0xb7a7 // 0x219a @0x0
0x219a…21b9 lno = 0x0bea // 0x219c @0x2
0x219a…21b9 at0004 = ╱9e38╱ PROC ╱ // 0x219e @0x4
0x219a…21b9 at0006 = ╱50╱P╱ // 0x21a0 @0x6
0x219a…21b9 at0007 = ╱52╱R╱ // 0x21a1 @0x7
0x219a…21b9 at0008 = ╱49╱I╱ // 0x21a2 @0x8
0x219a…21b9 at0009 = ╱4e╱N╱ // 0x21a3 @0x9
0x219a…21b9 at000a = ╱54╱T╱ // 0x21a4 @0xa
0x219a…21b9 at000b = ╱52╱R╱ // 0x21a5 @0xb
0x219a…21b9 at000c = ╱45╱E╱ // 0x21a6 @0xc
0x219a…21b9 at000d = ╱4c╱L╱ // 0x21a7 @0xd
0x219a…21b9 at000e = ╱89╱ // ╱ // 0x21a8 @0xe
0x219a…21b9 at000f = ╱52╱R╱ // 0x21a9 @0xf
0x219a…21b9 at0010 = ╱45╱E╱ // 0x21aa @0x10
0x219a…21b9 at0011 = ╱4c╱L╱ // 0x21ab @0x11
0x219a…21b9 at0012 = ╱45╱E╱ // 0x21ac @0x12
0x219a…21b9 at0013 = ╱41╱A╱ // 0x21ad @0x13
0x219a…21b9 at0014 = ╱53╱S╱ // 0x21ae @0x14
0x219a…21b9 at0015 = ╱45╱E╱ // 0x21af @0x15
0x219a…21b9 at0016 = ╱20╱…╱ // 0x21b0 @0x16
0x219a…21b9 at0017 = ╱50╱P╱ // 0x21b1 @0x17
0x219a…21b9 at0018 = ╱52╱R╱ // 0x21b2 @0x18
0x219a…21b9 at0019 = ╱49╱I╱ // 0x21b3 @0x19
0x219a…21b9 at001a = ╱4e╱N╱ // 0x21b4 @0x1a
0x219a…21b9 at001b = ╱54╱T╱ // 0x21b5 @0x1b
0x219a…21b9 at001c = ╱45╱E╱ // 0x21b6 @0x1c
0x219a…21b9 at001d = ╱52╱R╱ // 0x21b7 @0x1d
0x219a…21b9 at001e = EOL // 0x21b8 @0x1e
0x219a…21b9 }
0x21b9…21c2 b7b0 03060 SELECT OUTPUT "T"
0x21b9…21c2 LineComal80 {
0x21b9…21c2 ptr = 0xb7b0 // 0x21b9 @0x0
0x21b9…21c2 lno = 0x0bf4 // 0x21bb @0x2
0x21b9…21c2 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x21bd @0x4
0x21b9…21c2 at0005 = ╱22╱"╱ // 0x21be @0x5
0x21b9…21c2 at0006 = ╱54╱T╱ // 0x21bf @0x6
0x21b9…21c2 at0007 = ╱22╱"╱ // 0x21c0 @0x7
0x21b9…21c2 at0008 = EOL // 0x21c1 @0x8
0x21b9…21c2 }
0x21c2…21d0 bc7e 03070 ENDPROC PRINTREL
0x21c2…21d0 LineComal80 {
0x21c2…21d0 ptr = 0xbc7e // 0x21c2 @0x0
0x21c2…21d0 lno = 0x0bfe // 0x21c4 @0x2
0x21c2…21d0 at0004 = ╱9f╱ ENDPROC ╱ // 0x21c6 @0x4
0x21c2…21d0 at0005 = ╱50╱P╱ // 0x21c7 @0x5
0x21c2…21d0 at0006 = ╱52╱R╱ // 0x21c8 @0x6
0x21c2…21d0 at0007 = ╱49╱I╱ // 0x21c9 @0x7
0x21c2…21d0 at0008 = ╱4e╱N╱ // 0x21ca @0x8
0x21c2…21d0 at0009 = ╱54╱T╱ // 0x21cb @0x9
0x21c2…21d0 at000a = ╱52╱R╱ // 0x21cc @0xa
0x21c2…21d0 at000b = ╱45╱E╱ // 0x21cd @0xb
0x21c2…21d0 at000c = ╱4c╱L╱ // 0x21ce @0xc
0x21c2…21d0 at000d = EOL // 0x21cf @0xd
0x21c2…21d0 }
0x21d0…21fa adb8 02640 PRINT "<S>***…" ; SYST_NAVN $ ; "…***" ; TAB ( 73 )
0x21d0…21fa LineComal80 {
0x21d0…21fa ptr = 0xadb8 // 0x21d0 @0x0
0x21d0…21fa lno = 0x0a50 // 0x21d2 @0x2
0x21d0…21fa at0004 = ╱92╱ PRINT ╱ // 0x21d4 @0x4
0x21d0…21fa at0005 = ╱22╱"╱ // 0x21d5 @0x5
0x21d0…21fa at0006 = ╱3c╱<╱ // 0x21d6 @0x6
0x21d0…21fa at0007 = ╱53╱S╱ // 0x21d7 @0x7
0x21d0…21fa at0008 = ╱3e╱>╱ // 0x21d8 @0x8
0x21d0…21fa at0009 = ╱2a╱*╱ // 0x21d9 @0x9
0x21d0…21fa at000a = ╱2a╱*╱ // 0x21da @0xa
0x21d0…21fa at000b = ╱2a╱*╱ // 0x21db @0xb
0x21d0…21fa at000c = ╱20╱…╱ // 0x21dc @0xc
0x21d0…21fa at000d = ╱22╱"╱ // 0x21dd @0xd
0x21d0…21fa at000e = ╱ea╱ ; ╱ // 0x21de @0xe
0x21d0…21fa at000f = ╱53╱S╱ // 0x21df @0xf
0x21d0…21fa at0010 = ╱59╱Y╱ // 0x21e0 @0x10
0x21d0…21fa at0011 = ╱53╱S╱ // 0x21e1 @0x11
0x21d0…21fa at0012 = ╱54╱T╱ // 0x21e2 @0x12
0x21d0…21fa at0013 = ╱5f╱_╱ // 0x21e3 @0x13
0x21d0…21fa at0014 = ╱4e╱N╱ // 0x21e4 @0x14
0x21d0…21fa at0015 = ╱41╱A╱ // 0x21e5 @0x15
0x21d0…21fa at0016 = ╱56╱V╱ // 0x21e6 @0x16
0x21d0…21fa at0017 = ╱4e╱N╱ // 0x21e7 @0x17
0x21d0…21fa at0018 = ╱ef╱ $ ╱ // 0x21e8 @0x18
0x21d0…21fa at0019 = ╱ea╱ ; ╱ // 0x21e9 @0x19
0x21d0…21fa at001a = ╱22╱"╱ // 0x21ea @0x1a
0x21d0…21fa at001b = ╱20╱…╱ // 0x21eb @0x1b
0x21d0…21fa at001c = ╱2a╱*╱ // 0x21ec @0x1c
0x21d0…21fa at001d = ╱2a╱*╱ // 0x21ed @0x1d
0x21d0…21fa at001e = ╱2a╱*╱ // 0x21ee @0x1e
0x21d0…21fa at001f = ╱22╱"╱ // 0x21ef @0x1f
0x21d0…21fa at0020 = ╱ea╱ ; ╱ // 0x21f0 @0x20
0x21d0…21fa at0021 = ╱d2╱ TAB ╱ // 0x21f1 @0x21
0x21d0…21fa at0022 = ╱ed╱ ( ╱ // 0x21f2 @0x22
0x21d0…21fa at0023 = ╱37╱7╱ // 0x21f3 @0x23
0x21d0…21fa at0024 = ╱33╱3╱ // 0x21f4 @0x24
0x21d0…21fa at0025 = ╱f24900╱ // 0x21f5 @0x25
0x21d0…21fa at0028 = ╱ee╱ ) ╱ // 0x21f8 @0x28
0x21d0…21fa at0029 = EOL // 0x21f9 @0x29
0x21d0…21fa }
0x21fa…2225 adb8 02640 PRINT "<SK>***…" ; SYST_NAVN $ ; "…***" ; TAB ( 73 )
0x21fa…2225 LineComal80 {
0x21fa…2225 ptr = 0xadb8 // 0x21fa @0x0
0x21fa…2225 lno = 0x0a50 // 0x21fc @0x2
0x21fa…2225 at0004 = ╱92╱ PRINT ╱ // 0x21fe @0x4
0x21fa…2225 at0005 = ╱22╱"╱ // 0x21ff @0x5
0x21fa…2225 at0006 = ╱3c╱<╱ // 0x2200 @0x6
0x21fa…2225 at0007 = ╱53╱S╱ // 0x2201 @0x7
0x21fa…2225 at0008 = ╱4b╱K╱ // 0x2202 @0x8
0x21fa…2225 at0009 = ╱3e╱>╱ // 0x2203 @0x9
0x21fa…2225 at000a = ╱2a╱*╱ // 0x2204 @0xa
0x21fa…2225 at000b = ╱2a╱*╱ // 0x2205 @0xb
0x21fa…2225 at000c = ╱2a╱*╱ // 0x2206 @0xc
0x21fa…2225 at000d = ╱20╱…╱ // 0x2207 @0xd
0x21fa…2225 at000e = ╱22╱"╱ // 0x2208 @0xe
0x21fa…2225 at000f = ╱ea╱ ; ╱ // 0x2209 @0xf
0x21fa…2225 at0010 = ╱53╱S╱ // 0x220a @0x10
0x21fa…2225 at0011 = ╱59╱Y╱ // 0x220b @0x11
0x21fa…2225 at0012 = ╱53╱S╱ // 0x220c @0x12
0x21fa…2225 at0013 = ╱54╱T╱ // 0x220d @0x13
0x21fa…2225 at0014 = ╱5f╱_╱ // 0x220e @0x14
0x21fa…2225 at0015 = ╱4e╱N╱ // 0x220f @0x15
0x21fa…2225 at0016 = ╱41╱A╱ // 0x2210 @0x16
0x21fa…2225 at0017 = ╱56╱V╱ // 0x2211 @0x17
0x21fa…2225 at0018 = ╱4e╱N╱ // 0x2212 @0x18
0x21fa…2225 at0019 = ╱ef╱ $ ╱ // 0x2213 @0x19
0x21fa…2225 at001a = ╱ea╱ ; ╱ // 0x2214 @0x1a
0x21fa…2225 at001b = ╱22╱"╱ // 0x2215 @0x1b
0x21fa…2225 at001c = ╱20╱…╱ // 0x2216 @0x1c
0x21fa…2225 at001d = ╱2a╱*╱ // 0x2217 @0x1d
0x21fa…2225 at001e = ╱2a╱*╱ // 0x2218 @0x1e
0x21fa…2225 at001f = ╱2a╱*╱ // 0x2219 @0x1f
0x21fa…2225 at0020 = ╱22╱"╱ // 0x221a @0x20
0x21fa…2225 at0021 = ╱ea╱ ; ╱ // 0x221b @0x21
0x21fa…2225 at0022 = ╱d2╱ TAB ╱ // 0x221c @0x22
0x21fa…2225 at0023 = ╱ed╱ ( ╱ // 0x221d @0x23
0x21fa…2225 at0024 = ╱37╱7╱ // 0x221e @0x24
0x21fa…2225 at0025 = ╱33╱3╱ // 0x221f @0x25
0x21fa…2225 at0026 = ╱f24900╱ // 0x2220 @0x26
0x21fa…2225 at0029 = ╱ee╱ ) ╱ // 0x2223 @0x29
0x21fa…2225 at002a = EOL // 0x2224 @0x2a
0x21fa…2225 }
0x2225…2269 bc55 02750 PRINT "<S>……" ; CHR$ ( TOTAL ( 3 ) , 9 , 2 ) ; "……" ; CHR$ ( TOTAL ( 4 ) , 9 , 2 )
0x2225…2269 LineComal80 {
0x2225…2269 ptr = 0xbc55 // 0x2225 @0x0
0x2225…2269 lno = 0x0abe // 0x2227 @0x2
0x2225…2269 at0004 = ╱92╱ PRINT ╱ // 0x2229 @0x4
0x2225…2269 at0005 = ╱22╱"╱ // 0x222a @0x5
0x2225…2269 at0006 = ╱3c╱<╱ // 0x222b @0x6
0x2225…2269 at0007 = ╱53╱S╱ // 0x222c @0x7
0x2225…2269 at0008 = ╱3e╱>╱ // 0x222d @0x8
0x2225…2269 at0009 = ╱20╱…╱ // 0x222e @0x9
0x2225…2269 at000a = ╱20╱…╱ // 0x222f @0xa
0x2225…2269 at000b = ╱22╱"╱ // 0x2230 @0xb
0x2225…2269 at000c = ╱ea╱ ; ╱ // 0x2231 @0xc
0x2225…2269 at000d = ╱d0╱ CHR$ ╱ // 0x2232 @0xd
0x2225…2269 at000e = ╱ed╱ ( ╱ // 0x2233 @0xe
0x2225…2269 at000f = ╱54╱T╱ // 0x2234 @0xf
0x2225…2269 at0010 = ╱4f╱O╱ // 0x2235 @0x10
0x2225…2269 at0011 = ╱54╱T╱ // 0x2236 @0x11
0x2225…2269 at0012 = ╱41╱A╱ // 0x2237 @0x12
0x2225…2269 at0013 = ╱4c╱L╱ // 0x2238 @0x13
0x2225…2269 at0014 = ╱ed╱ ( ╱ // 0x2239 @0x14
0x2225…2269 at0015 = ╱33╱3╱ // 0x223a @0x15
0x2225…2269 at0016 = ╱f20300╱ // 0x223b @0x16
0x2225…2269 at0019 = ╱ee╱ ) ╱ // 0x223e @0x19
0x2225…2269 at001a = ╱ec╱ , ╱ // 0x223f @0x1a
0x2225…2269 at001b = ╱39╱9╱ // 0x2240 @0x1b
0x2225…2269 at001c = ╱f20900╱ // 0x2241 @0x1c
0x2225…2269 at001f = ╱ec╱ , ╱ // 0x2244 @0x1f
0x2225…2269 at0020 = ╱32╱2╱ // 0x2245 @0x20
0x2225…2269 at0021 = ╱f20200╱ // 0x2246 @0x21
0x2225…2269 at0024 = ╱ee╱ ) ╱ // 0x2249 @0x24
0x2225…2269 at0025 = ╱ea╱ ; ╱ // 0x224a @0x25
0x2225…2269 at0026 = ╱22╱"╱ // 0x224b @0x26
0x2225…2269 at0027 = ╱20╱…╱ // 0x224c @0x27
0x2225…2269 at0028 = ╱20╱…╱ // 0x224d @0x28
0x2225…2269 at0029 = ╱22╱"╱ // 0x224e @0x29
0x2225…2269 at002a = ╱ea╱ ; ╱ // 0x224f @0x2a
0x2225…2269 at002b = ╱d0╱ CHR$ ╱ // 0x2250 @0x2b
0x2225…2269 at002c = ╱ed╱ ( ╱ // 0x2251 @0x2c
0x2225…2269 at002d = ╱54╱T╱ // 0x2252 @0x2d
0x2225…2269 at002e = ╱4f╱O╱ // 0x2253 @0x2e
0x2225…2269 at002f = ╱54╱T╱ // 0x2254 @0x2f
0x2225…2269 at0030 = ╱41╱A╱ // 0x2255 @0x30
0x2225…2269 at0031 = ╱4c╱L╱ // 0x2256 @0x31
0x2225…2269 at0032 = ╱ed╱ ( ╱ // 0x2257 @0x32
0x2225…2269 at0033 = ╱34╱4╱ // 0x2258 @0x33
0x2225…2269 at0034 = ╱f20400╱ // 0x2259 @0x34
0x2225…2269 at0037 = ╱ee╱ ) ╱ // 0x225c @0x37
0x2225…2269 at0038 = ╱ec╱ , ╱ // 0x225d @0x38
0x2225…2269 at0039 = ╱39╱9╱ // 0x225e @0x39
0x2225…2269 at003a = ╱f20900╱ // 0x225f @0x3a
0x2225…2269 at003d = ╱ec╱ , ╱ // 0x2262 @0x3d
0x2225…2269 at003e = ╱32╱2╱ // 0x2263 @0x3e
0x2225…2269 at003f = ╱f20200╱ // 0x2264 @0x3f
0x2225…2269 at0042 = ╱ee╱ ) ╱ // 0x2267 @0x42
0x2225…2269 at0043 = EOL // 0x2268 @0x43
0x2225…2269 }
0x2269…2274 b262 03011 PRINT "<L>"
0x2269…2274 LineComal80 {
0x2269…2274 ptr = 0xb262 // 0x2269 @0x0
0x2269…2274 lno = 0x0bc3 // 0x226b @0x2
0x2269…2274 at0004 = ╱92╱ PRINT ╱ // 0x226d @0x4
0x2269…2274 at0005 = ╱22╱"╱ // 0x226e @0x5
0x2269…2274 at0006 = ╱3c╱<╱ // 0x226f @0x6
0x2269…2274 at0007 = ╱4c╱L╱ // 0x2270 @0x7
0x2269…2274 at0008 = ╱3e╱>╱ // 0x2271 @0x8
0x2269…2274 at0009 = ╱22╱"╱ // 0x2272 @0x9
0x2269…2274 at000a = EOL // 0x2273 @0xa
0x2269…2274 }
0x2274…22b4 1f1f 07967 ╱1f╱ ╱1f╱ MARAPDY:2PD ╱00╱ ╱00╱ ╱11╱ ╱00╱ R ╱00╱ ╱00╱ ╱01╱ ╱00╱ CHAIN GET ╱d4╱ ╱08╱ EXEC PRINTRES ( "smal…EDB-liste" , 12 )
0x2274…22b4 LineComal80 {
0x2274…22b4 ptr = 0x1f1f // 0x2274 @0x0
0x2274…22b4 lno = 0x1f1f // 0x2276 @0x2
0x2274…22b4 at0004 = ╱1f╱ // 0x2278 @0x4
0x2274…22b4 at0005 = ╱1f╱ // 0x2279 @0x5
0x2274…22b4 at0006 = ╱4d╱M╱ // 0x227a @0x6
0x2274…22b4 at0007 = ╱41╱A╱ // 0x227b @0x7
0x2274…22b4 at0008 = ╱52╱R╱ // 0x227c @0x8
0x2274…22b4 at0009 = ╱41╱A╱ // 0x227d @0x9
0x2274…22b4 at000a = ╱50╱P╱ // 0x227e @0xa
0x2274…22b4 at000b = ╱44╱D╱ // 0x227f @0xb
0x2274…22b4 at000c = ╱59╱Y╱ // 0x2280 @0xc
0x2274…22b4 at000d = ╱3a╱:╱ // 0x2281 @0xd
0x2274…22b4 at000e = ╱32╱2╱ // 0x2282 @0xe
0x2274…22b4 at000f = ╱50╱P╱ // 0x2283 @0xf
0x2274…22b4 at0010 = ╱44╱D╱ // 0x2284 @0x10
0x2274…22b4 at0011 = ╱00╱ // 0x2285 @0x11
0x2274…22b4 at0012 = ╱00╱ // 0x2286 @0x12
0x2274…22b4 at0013 = ╱11╱ // 0x2287 @0x13
0x2274…22b4 at0014 = ╱00╱ // 0x2288 @0x14
0x2274…22b4 at0015 = ╱52╱R╱ // 0x2289 @0x15
0x2274…22b4 at0016 = ╱00╱ // 0x228a @0x16
0x2274…22b4 at0017 = ╱00╱ // 0x228b @0x17
0x2274…22b4 at0018 = ╱01╱ // 0x228c @0x18
0x2274…22b4 at0019 = ╱00╱ // 0x228d @0x19
0x2274…22b4 at001a = ╱ac╱ CHAIN ╱ // 0x228e @0x1a
0x2274…22b4 at001b = ╱a9╱ GET ╱ // 0x228f @0x1b
0x2274…22b4 at001c = ╱d4╱ // 0x2290 @0x1c
0x2274…22b4 at001d = ╱08╱ // 0x2291 @0x1d
0x2274…22b4 at001e = ╱9d╱ EXEC ╱ // 0x2292 @0x1e
0x2274…22b4 at001f = ╱50╱P╱ // 0x2293 @0x1f
0x2274…22b4 at0020 = ╱52╱R╱ // 0x2294 @0x20
0x2274…22b4 at0021 = ╱49╱I╱ // 0x2295 @0x21
0x2274…22b4 at0022 = ╱4e╱N╱ // 0x2296 @0x22
0x2274…22b4 at0023 = ╱54╱T╱ // 0x2297 @0x23
0x2274…22b4 at0024 = ╱52╱R╱ // 0x2298 @0x24
0x2274…22b4 at0025 = ╱45╱E╱ // 0x2299 @0x25
0x2274…22b4 at0026 = ╱53╱S╱ // 0x229a @0x26
0x2274…22b4 at0027 = ╱ed╱ ( ╱ // 0x229b @0x27
0x2274…22b4 at0028 = ╱22╱"╱ // 0x229c @0x28
0x2274…22b4 at0029 = ╱73╱s╱ // 0x229d @0x29
0x2274…22b4 at002a = ╱6d╱m╱ // 0x229e @0x2a
0x2274…22b4 at002b = ╱61╱a╱ // 0x229f @0x2b
0x2274…22b4 at002c = ╱6c╱l╱ // 0x22a0 @0x2c
0x2274…22b4 at002d = ╱20╱…╱ // 0x22a1 @0x2d
0x2274…22b4 at002e = ╱45╱E╱ // 0x22a2 @0x2e
0x2274…22b4 at002f = ╱44╱D╱ // 0x22a3 @0x2f
0x2274…22b4 at0030 = ╱42╱B╱ // 0x22a4 @0x30
0x2274…22b4 at0031 = ╱2d╱-╱ // 0x22a5 @0x31
0x2274…22b4 at0032 = ╱6c╱l╱ // 0x22a6 @0x32
0x2274…22b4 at0033 = ╱69╱i╱ // 0x22a7 @0x33
0x2274…22b4 at0034 = ╱73╱s╱ // 0x22a8 @0x34
0x2274…22b4 at0035 = ╱74╱t╱ // 0x22a9 @0x35
0x2274…22b4 at0036 = ╱65╱e╱ // 0x22aa @0x36
0x2274…22b4 at0037 = ╱22╱"╱ // 0x22ab @0x37
0x2274…22b4 at0038 = ╱ec╱ , ╱ // 0x22ac @0x38
0x2274…22b4 at0039 = ╱31╱1╱ // 0x22ad @0x39
0x2274…22b4 at003a = ╱32╱2╱ // 0x22ae @0x3a
0x2274…22b4 at003b = ╱f20c00╱ // 0x22af @0x3b
0x2274…22b4 at003e = ╱ee╱ ) ╱ // 0x22b2 @0x3e
0x2274…22b4 at003f = EOL // 0x22b3 @0x3f
0x2274…22b4 }
0x22b4…22d5 a9ac 02260 EXEC PRINTRES ( "EDB-liste" , 12 )
0x22b4…22d5 LineComal80 {
0x22b4…22d5 ptr = 0xa9ac // 0x22b4 @0x0
0x22b4…22d5 lno = 0x08d4 // 0x22b6 @0x2
0x22b4…22d5 at0004 = ╱9d╱ EXEC ╱ // 0x22b8 @0x4
0x22b4…22d5 at0005 = ╱50╱P╱ // 0x22b9 @0x5
0x22b4…22d5 at0006 = ╱52╱R╱ // 0x22ba @0x6
0x22b4…22d5 at0007 = ╱49╱I╱ // 0x22bb @0x7
0x22b4…22d5 at0008 = ╱4e╱N╱ // 0x22bc @0x8
0x22b4…22d5 at0009 = ╱54╱T╱ // 0x22bd @0x9
0x22b4…22d5 at000a = ╱52╱R╱ // 0x22be @0xa
0x22b4…22d5 at000b = ╱45╱E╱ // 0x22bf @0xb
0x22b4…22d5 at000c = ╱53╱S╱ // 0x22c0 @0xc
0x22b4…22d5 at000d = ╱ed╱ ( ╱ // 0x22c1 @0xd
0x22b4…22d5 at000e = ╱22╱"╱ // 0x22c2 @0xe
0x22b4…22d5 at000f = ╱45╱E╱ // 0x22c3 @0xf
0x22b4…22d5 at0010 = ╱44╱D╱ // 0x22c4 @0x10
0x22b4…22d5 at0011 = ╱42╱B╱ // 0x22c5 @0x11
0x22b4…22d5 at0012 = ╱2d╱-╱ // 0x22c6 @0x12
0x22b4…22d5 at0013 = ╱6c╱l╱ // 0x22c7 @0x13
0x22b4…22d5 at0014 = ╱69╱i╱ // 0x22c8 @0x14
0x22b4…22d5 at0015 = ╱73╱s╱ // 0x22c9 @0x15
0x22b4…22d5 at0016 = ╱74╱t╱ // 0x22ca @0x16
0x22b4…22d5 at0017 = ╱65╱e╱ // 0x22cb @0x17
0x22b4…22d5 at0018 = ╱22╱"╱ // 0x22cc @0x18
0x22b4…22d5 at0019 = ╱ec╱ , ╱ // 0x22cd @0x19
0x22b4…22d5 at001a = ╱31╱1╱ // 0x22ce @0x1a
0x22b4…22d5 at001b = ╱32╱2╱ // 0x22cf @0x1b
0x22b4…22d5 at001c = ╱f20c00╱ // 0x22d0 @0x1c
0x22b4…22d5 at001f = ╱ee╱ ) ╱ // 0x22d3 @0x1f
0x22b4…22d5 at0020 = EOL // 0x22d4 @0x20
0x22b4…22d5 }
0x22d5…2304 9e9d 00760 LET TAL $ := "0123456789" ; NULR := 0 ; MAX_LIN := 72
0x22d5…2304 LineComal80 {
0x22d5…2304 ptr = 0x9e9d // 0x22d5 @0x0
0x22d5…2304 lno = 0x02f8 // 0x22d7 @0x2
0x22d5…2304 at0004 = ╱86╱ LET ╱ // 0x22d9 @0x4
0x22d5…2304 at0005 = ╱54╱T╱ // 0x22da @0x5
0x22d5…2304 at0006 = ╱41╱A╱ // 0x22db @0x6
0x22d5…2304 at0007 = ╱4c╱L╱ // 0x22dc @0x7
0x22d5…2304 at0008 = ╱ef╱ $ ╱ // 0x22dd @0x8
0x22d5…2304 at0009 = ╱f0╱ := ╱ // 0x22de @0x9
0x22d5…2304 at000a = ╱22╱"╱ // 0x22df @0xa
0x22d5…2304 at000b = ╱30╱0╱ // 0x22e0 @0xb
0x22d5…2304 at000c = ╱31╱1╱ // 0x22e1 @0xc
0x22d5…2304 at000d = ╱32╱2╱ // 0x22e2 @0xd
0x22d5…2304 at000e = ╱33╱3╱ // 0x22e3 @0xe
0x22d5…2304 at000f = ╱34╱4╱ // 0x22e4 @0xf
0x22d5…2304 at0010 = ╱35╱5╱ // 0x22e5 @0x10
0x22d5…2304 at0011 = ╱36╱6╱ // 0x22e6 @0x11
0x22d5…2304 at0012 = ╱37╱7╱ // 0x22e7 @0x12
0x22d5…2304 at0013 = ╱38╱8╱ // 0x22e8 @0x13
0x22d5…2304 at0014 = ╱39╱9╱ // 0x22e9 @0x14
0x22d5…2304 at0015 = ╱22╱"╱ // 0x22ea @0x15
0x22d5…2304 at0016 = ╱ea╱ ; ╱ // 0x22eb @0x16
0x22d5…2304 at0017 = ╱4e╱N╱ // 0x22ec @0x17
0x22d5…2304 at0018 = ╱55╱U╱ // 0x22ed @0x18
0x22d5…2304 at0019 = ╱4c╱L╱ // 0x22ee @0x19
0x22d5…2304 at001a = ╱52╱R╱ // 0x22ef @0x1a
0x22d5…2304 at001b = ╱f0╱ := ╱ // 0x22f0 @0x1b
0x22d5…2304 at001c = ╱30╱0╱ // 0x22f1 @0x1c
0x22d5…2304 at001d = ╱f20000╱ // 0x22f2 @0x1d
0x22d5…2304 at0020 = ╱ea╱ ; ╱ // 0x22f5 @0x20
0x22d5…2304 at0021 = ╱4d╱M╱ // 0x22f6 @0x21
0x22d5…2304 at0022 = ╱41╱A╱ // 0x22f7 @0x22
0x22d5…2304 at0023 = ╱58╱X╱ // 0x22f8 @0x23
0x22d5…2304 at0024 = ╱5f╱_╱ // 0x22f9 @0x24
0x22d5…2304 at0025 = ╱4c╱L╱ // 0x22fa @0x25
0x22d5…2304 at0026 = ╱49╱I╱ // 0x22fb @0x26
0x22d5…2304 at0027 = ╱4e╱N╱ // 0x22fc @0x27
0x22d5…2304 at0028 = ╱f0╱ := ╱ // 0x22fd @0x28
0x22d5…2304 at0029 = ╱37╱7╱ // 0x22fe @0x29
0x22d5…2304 at002a = ╱32╱2╱ // 0x22ff @0x2a
0x22d5…2304 at002b = ╱f24800╱ // 0x2300 @0x2b
0x22d5…2304 at002e = EOL // 0x2303 @0x2e
0x22d5…2304 }
0x2304…232f b91d 02640 PRINT "<LS>***…" ; SYST_NAVN $ ; "…***" ; TAB ( 68 )
0x2304…232f LineComal80 {
0x2304…232f ptr = 0xb91d // 0x2304 @0x0
0x2304…232f lno = 0x0a50 // 0x2306 @0x2
0x2304…232f at0004 = ╱92╱ PRINT ╱ // 0x2308 @0x4
0x2304…232f at0005 = ╱22╱"╱ // 0x2309 @0x5
0x2304…232f at0006 = ╱3c╱<╱ // 0x230a @0x6
0x2304…232f at0007 = ╱4c╱L╱ // 0x230b @0x7
0x2304…232f at0008 = ╱53╱S╱ // 0x230c @0x8
0x2304…232f at0009 = ╱3e╱>╱ // 0x230d @0x9
0x2304…232f at000a = ╱2a╱*╱ // 0x230e @0xa
0x2304…232f at000b = ╱2a╱*╱ // 0x230f @0xb
0x2304…232f at000c = ╱2a╱*╱ // 0x2310 @0xc
0x2304…232f at000d = ╱20╱…╱ // 0x2311 @0xd
0x2304…232f at000e = ╱22╱"╱ // 0x2312 @0xe
0x2304…232f at000f = ╱ea╱ ; ╱ // 0x2313 @0xf
0x2304…232f at0010 = ╱53╱S╱ // 0x2314 @0x10
0x2304…232f at0011 = ╱59╱Y╱ // 0x2315 @0x11
0x2304…232f at0012 = ╱53╱S╱ // 0x2316 @0x12
0x2304…232f at0013 = ╱54╱T╱ // 0x2317 @0x13
0x2304…232f at0014 = ╱5f╱_╱ // 0x2318 @0x14
0x2304…232f at0015 = ╱4e╱N╱ // 0x2319 @0x15
0x2304…232f at0016 = ╱41╱A╱ // 0x231a @0x16
0x2304…232f at0017 = ╱56╱V╱ // 0x231b @0x17
0x2304…232f at0018 = ╱4e╱N╱ // 0x231c @0x18
0x2304…232f at0019 = ╱ef╱ $ ╱ // 0x231d @0x19
0x2304…232f at001a = ╱ea╱ ; ╱ // 0x231e @0x1a
0x2304…232f at001b = ╱22╱"╱ // 0x231f @0x1b
0x2304…232f at001c = ╱20╱…╱ // 0x2320 @0x1c
0x2304…232f at001d = ╱2a╱*╱ // 0x2321 @0x1d
0x2304…232f at001e = ╱2a╱*╱ // 0x2322 @0x1e
0x2304…232f at001f = ╱2a╱*╱ // 0x2323 @0x1f
0x2304…232f at0020 = ╱22╱"╱ // 0x2324 @0x20
0x2304…232f at0021 = ╱ea╱ ; ╱ // 0x2325 @0x21
0x2304…232f at0022 = ╱d2╱ TAB ╱ // 0x2326 @0x22
0x2304…232f at0023 = ╱ed╱ ( ╱ // 0x2327 @0x23
0x2304…232f at0024 = ╱36╱6╱ // 0x2328 @0x24
0x2304…232f at0025 = ╱38╱8╱ // 0x2329 @0x25
0x2304…232f at0026 = ╱f24400╱ // 0x232a @0x26
0x2304…232f at0029 = ╱ee╱ ) ╱ // 0x232d @0x29
0x2304…232f at002a = EOL // 0x232e @0x2a
0x2304…232f }
0x232f…2344 b932 02650 PRINT "SIDE:…" ; SIDENR
0x232f…2344 LineComal80 {
0x232f…2344 ptr = 0xb932 // 0x232f @0x0
0x232f…2344 lno = 0x0a5a // 0x2331 @0x2
0x232f…2344 at0004 = ╱92╱ PRINT ╱ // 0x2333 @0x4
0x232f…2344 at0005 = ╱22╱"╱ // 0x2334 @0x5
0x232f…2344 at0006 = ╱53╱S╱ // 0x2335 @0x6
0x232f…2344 at0007 = ╱49╱I╱ // 0x2336 @0x7
0x232f…2344 at0008 = ╱44╱D╱ // 0x2337 @0x8
0x232f…2344 at0009 = ╱45╱E╱ // 0x2338 @0x9
0x232f…2344 at000a = ╱3a╱:╱ // 0x2339 @0xa
0x232f…2344 at000b = ╱20╱…╱ // 0x233a @0xb
0x232f…2344 at000c = ╱22╱"╱ // 0x233b @0xc
0x232f…2344 at000d = ╱ea╱ ; ╱ // 0x233c @0xd
0x232f…2344 at000e = ╱53╱S╱ // 0x233d @0xe
0x232f…2344 at000f = ╱49╱I╱ // 0x233e @0xf
0x232f…2344 at0010 = ╱44╱D╱ // 0x233f @0x10
0x232f…2344 at0011 = ╱45╱E╱ // 0x2340 @0x11
0x232f…2344 at0012 = ╱4e╱N╱ // 0x2341 @0x12
0x232f…2344 at0013 = ╱52╱R╱ // 0x2342 @0x13
0x232f…2344 at0014 = EOL // 0x2343 @0x14
0x232f…2344 }
0x2344…234a bb90 02660 PRINT
0x2344…234a LineComal80 {
0x2344…234a ptr = 0xbb90 // 0x2344 @0x0
0x2344…234a lno = 0x0a64 // 0x2346 @0x2
0x2344…234a at0004 = ╱92╱ PRINT ╱ // 0x2348 @0x4
0x2344…234a at0005 = EOL // 0x2349 @0x5
0x2344…234a }
0x234a…2374 bb75 02670 PRINT "<S>Firmanavn:…" ; FIRMANAVN $ ; TAB ( 30 )
0x234a…2374 LineComal80 {
0x234a…2374 ptr = 0xbb75 // 0x234a @0x0
0x234a…2374 lno = 0x0a6e // 0x234c @0x2
0x234a…2374 at0004 = ╱92╱ PRINT ╱ // 0x234e @0x4
0x234a…2374 at0005 = ╱22╱"╱ // 0x234f @0x5
0x234a…2374 at0006 = ╱3c╱<╱ // 0x2350 @0x6
0x234a…2374 at0007 = ╱53╱S╱ // 0x2351 @0x7
0x234a…2374 at0008 = ╱3e╱>╱ // 0x2352 @0x8
0x234a…2374 at0009 = ╱46╱F╱ // 0x2353 @0x9
0x234a…2374 at000a = ╱69╱i╱ // 0x2354 @0xa
0x234a…2374 at000b = ╱72╱r╱ // 0x2355 @0xb
0x234a…2374 at000c = ╱6d╱m╱ // 0x2356 @0xc
0x234a…2374 at000d = ╱61╱a╱ // 0x2357 @0xd
0x234a…2374 at000e = ╱6e╱n╱ // 0x2358 @0xe
0x234a…2374 at000f = ╱61╱a╱ // 0x2359 @0xf
0x234a…2374 at0010 = ╱76╱v╱ // 0x235a @0x10
0x234a…2374 at0011 = ╱6e╱n╱ // 0x235b @0x11
0x234a…2374 at0012 = ╱3a╱:╱ // 0x235c @0x12
0x234a…2374 at0013 = ╱20╱…╱ // 0x235d @0x13
0x234a…2374 at0014 = ╱22╱"╱ // 0x235e @0x14
0x234a…2374 at0015 = ╱ea╱ ; ╱ // 0x235f @0x15
0x234a…2374 at0016 = ╱46╱F╱ // 0x2360 @0x16
0x234a…2374 at0017 = ╱49╱I╱ // 0x2361 @0x17
0x234a…2374 at0018 = ╱52╱R╱ // 0x2362 @0x18
0x234a…2374 at0019 = ╱4d╱M╱ // 0x2363 @0x19
0x234a…2374 at001a = ╱41╱A╱ // 0x2364 @0x1a
0x234a…2374 at001b = ╱4e╱N╱ // 0x2365 @0x1b
0x234a…2374 at001c = ╱41╱A╱ // 0x2366 @0x1c
0x234a…2374 at001d = ╱56╱V╱ // 0x2367 @0x1d
0x234a…2374 at001e = ╱4e╱N╱ // 0x2368 @0x1e
0x234a…2374 at001f = ╱ef╱ $ ╱ // 0x2369 @0x1f
0x234a…2374 at0020 = ╱ea╱ ; ╱ // 0x236a @0x20
0x234a…2374 at0021 = ╱d2╱ TAB ╱ // 0x236b @0x21
0x234a…2374 at0022 = ╱ed╱ ( ╱ // 0x236c @0x22
0x234a…2374 at0023 = ╱33╱3╱ // 0x236d @0x23
0x234a…2374 at0024 = ╱30╱0╱ // 0x236e @0x24
0x234a…2374 at0025 = ╱f21e00╱ // 0x236f @0x25
0x234a…2374 at0028 = ╱ee╱ ) ╱ // 0x2372 @0x28
0x234a…2374 at0029 = EOL // 0x2373 @0x29
0x234a…2374 }
0x2374…23ac b99a 02680 PRINT "<S>***…BALANCE…***" ; TAB ( 16 ) ; "***…UDSKREVET…PR.…"
0x2374…23ac LineComal80 {
0x2374…23ac ptr = 0xb99a // 0x2374 @0x0
0x2374…23ac lno = 0x0a78 // 0x2376 @0x2
0x2374…23ac at0004 = ╱92╱ PRINT ╱ // 0x2378 @0x4
0x2374…23ac at0005 = ╱22╱"╱ // 0x2379 @0x5
0x2374…23ac at0006 = ╱3c╱<╱ // 0x237a @0x6
0x2374…23ac at0007 = ╱53╱S╱ // 0x237b @0x7
0x2374…23ac at0008 = ╱3e╱>╱ // 0x237c @0x8
0x2374…23ac at0009 = ╱2a╱*╱ // 0x237d @0x9
0x2374…23ac at000a = ╱2a╱*╱ // 0x237e @0xa
0x2374…23ac at000b = ╱2a╱*╱ // 0x237f @0xb
0x2374…23ac at000c = ╱20╱…╱ // 0x2380 @0xc
0x2374…23ac at000d = ╱42╱B╱ // 0x2381 @0xd
0x2374…23ac at000e = ╱41╱A╱ // 0x2382 @0xe
0x2374…23ac at000f = ╱4c╱L╱ // 0x2383 @0xf
0x2374…23ac at0010 = ╱41╱A╱ // 0x2384 @0x10
0x2374…23ac at0011 = ╱4e╱N╱ // 0x2385 @0x11
0x2374…23ac at0012 = ╱43╱C╱ // 0x2386 @0x12
0x2374…23ac at0013 = ╱45╱E╱ // 0x2387 @0x13
0x2374…23ac at0014 = ╱20╱…╱ // 0x2388 @0x14
0x2374…23ac at0015 = ╱2a╱*╱ // 0x2389 @0x15
0x2374…23ac at0016 = ╱2a╱*╱ // 0x238a @0x16
0x2374…23ac at0017 = ╱2a╱*╱ // 0x238b @0x17
0x2374…23ac at0018 = ╱22╱"╱ // 0x238c @0x18
0x2374…23ac at0019 = ╱ea╱ ; ╱ // 0x238d @0x19
0x2374…23ac at001a = ╱d2╱ TAB ╱ // 0x238e @0x1a
0x2374…23ac at001b = ╱ed╱ ( ╱ // 0x238f @0x1b
0x2374…23ac at001c = ╱31╱1╱ // 0x2390 @0x1c
0x2374…23ac at001d = ╱36╱6╱ // 0x2391 @0x1d
0x2374…23ac at001e = ╱f21000╱ // 0x2392 @0x1e
0x2374…23ac at0021 = ╱ee╱ ) ╱ // 0x2395 @0x21
0x2374…23ac at0022 = ╱ea╱ ; ╱ // 0x2396 @0x22
0x2374…23ac at0023 = ╱22╱"╱ // 0x2397 @0x23
0x2374…23ac at0024 = ╱2a╱*╱ // 0x2398 @0x24
0x2374…23ac at0025 = ╱2a╱*╱ // 0x2399 @0x25
0x2374…23ac at0026 = ╱2a╱*╱ // 0x239a @0x26
0x2374…23ac at0027 = ╱20╱…╱ // 0x239b @0x27
0x2374…23ac at0028 = ╱55╱U╱ // 0x239c @0x28
0x2374…23ac at0029 = ╱44╱D╱ // 0x239d @0x29
0x2374…23ac at002a = ╱53╱S╱ // 0x239e @0x2a
0x2374…23ac at002b = ╱4b╱K╱ // 0x239f @0x2b
0x2374…23ac at002c = ╱52╱R╱ // 0x23a0 @0x2c
0x2374…23ac at002d = ╱45╱E╱ // 0x23a1 @0x2d
0x2374…23ac at002e = ╱56╱V╱ // 0x23a2 @0x2e
0x2374…23ac at002f = ╱45╱E╱ // 0x23a3 @0x2f
0x2374…23ac at0030 = ╱54╱T╱ // 0x23a4 @0x30
0x2374…23ac at0031 = ╱20╱…╱ // 0x23a5 @0x31
0x2374…23ac at0032 = ╱50╱P╱ // 0x23a6 @0x32
0x2374…23ac at0033 = ╱52╱R╱ // 0x23a7 @0x33
0x2374…23ac at0034 = ╱2e╱.╱ // 0x23a8 @0x34
0x2374…23ac at0035 = ╱20╱…╱ // 0x23a9 @0x35
0x2374…23ac at0036 = ╱22╱"╱ // 0x23aa @0x36
0x2374…23ac at0037 = EOL // 0x23ab @0x37
0x2374…23ac }
0x23ac…23ff b9ed 02430 PRINT SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ; SYST_DAT $ ( 5 : 2 ) ; "…***"
0x23ac…23ff LineComal80 {
0x23ac…23ff ptr = 0xb9ed // 0x23ac @0x0
0x23ac…23ff lno = 0x097e // 0x23ae @0x2
0x23ac…23ff at0004 = ╱92╱ PRINT ╱ // 0x23b0 @0x4
0x23ac…23ff at0005 = ╱53╱S╱ // 0x23b1 @0x5
0x23ac…23ff at0006 = ╱59╱Y╱ // 0x23b2 @0x6
0x23ac…23ff at0007 = ╱53╱S╱ // 0x23b3 @0x7
0x23ac…23ff at0008 = ╱54╱T╱ // 0x23b4 @0x8
0x23ac…23ff at0009 = ╱5f╱_╱ // 0x23b5 @0x9
0x23ac…23ff at000a = ╱44╱D╱ // 0x23b6 @0xa
0x23ac…23ff at000b = ╱41╱A╱ // 0x23b7 @0xb
0x23ac…23ff at000c = ╱54╱T╱ // 0x23b8 @0xc
0x23ac…23ff at000d = ╱ef╱ $ ╱ // 0x23b9 @0xd
0x23ac…23ff at000e = ╱ed╱ ( ╱ // 0x23ba @0xe
0x23ac…23ff at000f = ╱31╱1╱ // 0x23bb @0xf
0x23ac…23ff at0010 = ╱f20100╱ // 0x23bc @0x10
0x23ac…23ff at0013 = ╱f1╱ : ╱ // 0x23bf @0x13
0x23ac…23ff at0014 = ╱32╱2╱ // 0x23c0 @0x14
0x23ac…23ff at0015 = ╱f20200╱ // 0x23c1 @0x15
0x23ac…23ff at0018 = ╱ee╱ ) ╱ // 0x23c4 @0x18
0x23ac…23ff at0019 = ╱ea╱ ; ╱ // 0x23c5 @0x19
0x23ac…23ff at001a = ╱22╱"╱ // 0x23c6 @0x1a
0x23ac…23ff at001b = ╱2e╱.╱ // 0x23c7 @0x1b
0x23ac…23ff at001c = ╱22╱"╱ // 0x23c8 @0x1c
0x23ac…23ff at001d = ╱ea╱ ; ╱ // 0x23c9 @0x1d
0x23ac…23ff at001e = ╱53╱S╱ // 0x23ca @0x1e
0x23ac…23ff at001f = ╱59╱Y╱ // 0x23cb @0x1f
0x23ac…23ff at0020 = ╱53╱S╱ // 0x23cc @0x20
0x23ac…23ff at0021 = ╱54╱T╱ // 0x23cd @0x21
0x23ac…23ff at0022 = ╱5f╱_╱ // 0x23ce @0x22
0x23ac…23ff at0023 = ╱44╱D╱ // 0x23cf @0x23
0x23ac…23ff at0024 = ╱41╱A╱ // 0x23d0 @0x24
0x23ac…23ff at0025 = ╱54╱T╱ // 0x23d1 @0x25
0x23ac…23ff at0026 = ╱ef╱ $ ╱ // 0x23d2 @0x26
0x23ac…23ff at0027 = ╱ed╱ ( ╱ // 0x23d3 @0x27
0x23ac…23ff at0028 = ╱33╱3╱ // 0x23d4 @0x28
0x23ac…23ff at0029 = ╱f20300╱ // 0x23d5 @0x29
0x23ac…23ff at002c = ╱f1╱ : ╱ // 0x23d8 @0x2c
0x23ac…23ff at002d = ╱32╱2╱ // 0x23d9 @0x2d
0x23ac…23ff at002e = ╱f20200╱ // 0x23da @0x2e
0x23ac…23ff at0031 = ╱ee╱ ) ╱ // 0x23dd @0x31
0x23ac…23ff at0032 = ╱ea╱ ; ╱ // 0x23de @0x32
0x23ac…23ff at0033 = ╱22╱"╱ // 0x23df @0x33
0x23ac…23ff at0034 = ╱2e╱.╱ // 0x23e0 @0x34
0x23ac…23ff at0035 = ╱22╱"╱ // 0x23e1 @0x35
0x23ac…23ff at0036 = ╱ea╱ ; ╱ // 0x23e2 @0x36
0x23ac…23ff at0037 = ╱53╱S╱ // 0x23e3 @0x37
0x23ac…23ff at0038 = ╱59╱Y╱ // 0x23e4 @0x38
0x23ac…23ff at0039 = ╱53╱S╱ // 0x23e5 @0x39
0x23ac…23ff at003a = ╱54╱T╱ // 0x23e6 @0x3a
0x23ac…23ff at003b = ╱5f╱_╱ // 0x23e7 @0x3b
0x23ac…23ff at003c = ╱44╱D╱ // 0x23e8 @0x3c
0x23ac…23ff at003d = ╱41╱A╱ // 0x23e9 @0x3d
0x23ac…23ff at003e = ╱54╱T╱ // 0x23ea @0x3e
0x23ac…23ff at003f = ╱ef╱ $ ╱ // 0x23eb @0x3f
0x23ac…23ff at0040 = ╱ed╱ ( ╱ // 0x23ec @0x40
0x23ac…23ff at0041 = ╱35╱5╱ // 0x23ed @0x41
0x23ac…23ff at0042 = ╱f20500╱ // 0x23ee @0x42
0x23ac…23ff at0045 = ╱f1╱ : ╱ // 0x23f1 @0x45
0x23ac…23ff at0046 = ╱32╱2╱ // 0x23f2 @0x46
0x23ac…23ff at0047 = ╱f20200╱ // 0x23f3 @0x47
0x23ac…23ff at004a = ╱ee╱ ) ╱ // 0x23f6 @0x4a
0x23ac…23ff at004b = ╱ea╱ ; ╱ // 0x23f7 @0x4b
0x23ac…23ff at004c = ╱22╱"╱ // 0x23f8 @0x4c
0x23ac…23ff at004d = ╱20╱…╱ // 0x23f9 @0x4d
0x23ac…23ff at004e = ╱2a╱*╱ // 0x23fa @0x4e
0x23ac…23ff at004f = ╱2a╱*╱ // 0x23fb @0x4f
0x23ac…23ff at0050 = ╱2a╱*╱ // 0x23fc @0x50
0x23ac…23ff at0051 = ╱22╱"╱ // 0x23fd @0x51
0x23ac…23ff at0052 = EOL // 0x23fe @0x52
0x23ac…23ff }
0x23ff…2405 b9f3 02440 PRINT
0x23ff…2405 LineComal80 {
0x23ff…2405 ptr = 0xb9f3 // 0x23ff @0x0
0x23ff…2405 lno = 0x0988 // 0x2401 @0x2
0x23ff…2405 at0004 = ╱92╱ PRINT ╱ // 0x2403 @0x4
0x23ff…2405 at0005 = EOL // 0x2404 @0x5
0x23ff…2405 }
0x2405…241a aeab 02450 PRINT "<KS>" ; TAB ( 54 )
0x2405…241a LineComal80 {
0x2405…241a ptr = 0xaeab // 0x2405 @0x0
0x2405…241a lno = 0x0992 // 0x2407 @0x2
0x2405…241a at0004 = ╱92╱ PRINT ╱ // 0x2409 @0x4
0x2405…241a at0005 = ╱22╱"╱ // 0x240a @0x5
0x2405…241a at0006 = ╱3c╱<╱ // 0x240b @0x6
0x2405…241a at0007 = ╱4b╱K╱ // 0x240c @0x7
0x2405…241a at0008 = ╱53╱S╱ // 0x240d @0x8
0x2405…241a at0009 = ╱3e╱>╱ // 0x240e @0x9
0x2405…241a at000a = ╱22╱"╱ // 0x240f @0xa
0x2405…241a at000b = ╱ea╱ ; ╱ // 0x2410 @0xb
0x2405…241a at000c = ╱d2╱ TAB ╱ // 0x2411 @0xc
0x2405…241a at000d = ╱ed╱ ( ╱ // 0x2412 @0xd
0x2405…241a at000e = ╱35╱5╱ // 0x2413 @0xe
0x2405…241a at000f = ╱34╱4╱ // 0x2414 @0xf
0x2405…241a at0010 = ╱f23600╱ // 0x2415 @0x10
0x2405…241a at0013 = ╱ee╱ ) ╱ // 0x2418 @0x13
0x2405…241a at0014 = EOL // 0x2419 @0x14
0x2405…241a }
0x241a…243d bbba 02370 LET LIN_T := 8 ; SIDENR := SIDENR + 1
0x241a…243d LineComal80 {
0x241a…243d ptr = 0xbbba // 0x241a @0x0
0x241a…243d lno = 0x0942 // 0x241c @0x2
0x241a…243d at0004 = ╱86╱ LET ╱ // 0x241e @0x4
0x241a…243d at0005 = ╱4c╱L╱ // 0x241f @0x5
0x241a…243d at0006 = ╱49╱I╱ // 0x2420 @0x6
0x241a…243d at0007 = ╱4e╱N╱ // 0x2421 @0x7
0x241a…243d at0008 = ╱5f╱_╱ // 0x2422 @0x8
0x241a…243d at0009 = ╱54╱T╱ // 0x2423 @0x9
0x241a…243d at000a = ╱f0╱ := ╱ // 0x2424 @0xa
0x241a…243d at000b = ╱38╱8╱ // 0x2425 @0xb
0x241a…243d at000c = ╱f20800╱ // 0x2426 @0xc
0x241a…243d at000f = ╱ea╱ ; ╱ // 0x2429 @0xf
0x241a…243d at0010 = ╱53╱S╱ // 0x242a @0x10
0x241a…243d at0011 = ╱49╱I╱ // 0x242b @0x11
0x241a…243d at0012 = ╱44╱D╱ // 0x242c @0x12
0x241a…243d at0013 = ╱45╱E╱ // 0x242d @0x13
0x241a…243d at0014 = ╱4e╱N╱ // 0x242e @0x14
0x241a…243d at0015 = ╱52╱R╱ // 0x242f @0x15
0x241a…243d at0016 = ╱f0╱ := ╱ // 0x2430 @0x16
0x241a…243d at0017 = ╱53╱S╱ // 0x2431 @0x17
0x241a…243d at0018 = ╱49╱I╱ // 0x2432 @0x18
0x241a…243d at0019 = ╱44╱D╱ // 0x2433 @0x19
0x241a…243d at001a = ╱45╱E╱ // 0x2434 @0x1a
0x241a…243d at001b = ╱4e╱N╱ // 0x2435 @0x1b
0x241a…243d at001c = ╱52╱R╱ // 0x2436 @0x1c
0x241a…243d at001d = ╱e5╱ + ╱ // 0x2437 @0x1d
0x241a…243d at001e = ╱31╱1╱ // 0x2438 @0x1e
0x241a…243d at001f = ╱f20100╱ // 0x2439 @0x1f
0x241a…243d at0022 = EOL // 0x243c @0x22
0x241a…243d }
0x243d…2469 b91d 02640 PRINT "<LIS>***…" ; SYST_NAVN $ ; "…***" ; TAB ( 68 )
0x243d…2469 LineComal80 {
0x243d…2469 ptr = 0xb91d // 0x243d @0x0
0x243d…2469 lno = 0x0a50 // 0x243f @0x2
0x243d…2469 at0004 = ╱92╱ PRINT ╱ // 0x2441 @0x4
0x243d…2469 at0005 = ╱22╱"╱ // 0x2442 @0x5
0x243d…2469 at0006 = ╱3c╱<╱ // 0x2443 @0x6
0x243d…2469 at0007 = ╱4c╱L╱ // 0x2444 @0x7
0x243d…2469 at0008 = ╱49╱I╱ // 0x2445 @0x8
0x243d…2469 at0009 = ╱53╱S╱ // 0x2446 @0x9
0x243d…2469 at000a = ╱3e╱>╱ // 0x2447 @0xa
0x243d…2469 at000b = ╱2a╱*╱ // 0x2448 @0xb
0x243d…2469 at000c = ╱2a╱*╱ // 0x2449 @0xc
0x243d…2469 at000d = ╱2a╱*╱ // 0x244a @0xd
0x243d…2469 at000e = ╱20╱…╱ // 0x244b @0xe
0x243d…2469 at000f = ╱22╱"╱ // 0x244c @0xf
0x243d…2469 at0010 = ╱ea╱ ; ╱ // 0x244d @0x10
0x243d…2469 at0011 = ╱53╱S╱ // 0x244e @0x11
0x243d…2469 at0012 = ╱59╱Y╱ // 0x244f @0x12
0x243d…2469 at0013 = ╱53╱S╱ // 0x2450 @0x13
0x243d…2469 at0014 = ╱54╱T╱ // 0x2451 @0x14
0x243d…2469 at0015 = ╱5f╱_╱ // 0x2452 @0x15
0x243d…2469 at0016 = ╱4e╱N╱ // 0x2453 @0x16
0x243d…2469 at0017 = ╱41╱A╱ // 0x2454 @0x17
0x243d…2469 at0018 = ╱56╱V╱ // 0x2455 @0x18
0x243d…2469 at0019 = ╱4e╱N╱ // 0x2456 @0x19
0x243d…2469 at001a = ╱ef╱ $ ╱ // 0x2457 @0x1a
0x243d…2469 at001b = ╱ea╱ ; ╱ // 0x2458 @0x1b
0x243d…2469 at001c = ╱22╱"╱ // 0x2459 @0x1c
0x243d…2469 at001d = ╱20╱…╱ // 0x245a @0x1d
0x243d…2469 at001e = ╱2a╱*╱ // 0x245b @0x1e
0x243d…2469 at001f = ╱2a╱*╱ // 0x245c @0x1f
0x243d…2469 at0020 = ╱2a╱*╱ // 0x245d @0x20
0x243d…2469 at0021 = ╱22╱"╱ // 0x245e @0x21
0x243d…2469 at0022 = ╱ea╱ ; ╱ // 0x245f @0x22
0x243d…2469 at0023 = ╱d2╱ TAB ╱ // 0x2460 @0x23
0x243d…2469 at0024 = ╱ed╱ ( ╱ // 0x2461 @0x24
0x243d…2469 at0025 = ╱36╱6╱ // 0x2462 @0x25
0x243d…2469 at0026 = ╱38╱8╱ // 0x2463 @0x26
0x243d…2469 at0027 = ╱f24400╱ // 0x2464 @0x27
0x243d…2469 at002a = ╱ee╱ ) ╱ // 0x2467 @0x2a
0x243d…2469 at002b = EOL // 0x2468 @0x2b
0x243d…2469 }
0x2469…2477 ba65 01970 PROC UDSKRIV
0x2469…2477 LineComal80 {
0x2469…2477 ptr = 0xba65 // 0x2469 @0x0
0x2469…2477 lno = 0x07b2 // 0x246b @0x2
0x2469…2477 at0004 = ╱9e1d╱ PROC ╱ // 0x246d @0x4
0x2469…2477 at0006 = ╱55╱U╱ // 0x246f @0x6
0x2469…2477 at0007 = ╱44╱D╱ // 0x2470 @0x7
0x2469…2477 at0008 = ╱53╱S╱ // 0x2471 @0x8
0x2469…2477 at0009 = ╱4b╱K╱ // 0x2472 @0x9
0x2469…2477 at000a = ╱52╱R╱ // 0x2473 @0xa
0x2469…2477 at000b = ╱49╱I╱ // 0x2474 @0xb
0x2469…2477 at000c = ╱56╱V╱ // 0x2475 @0xc
0x2469…2477 at000d = EOL // 0x2476 @0xd
0x2469…2477 }
0x2477…247e ba6c 01980 REPEAT
0x2477…247e LineComal80 {
0x2477…247e ptr = 0xba6c // 0x2477 @0x0
0x2477…247e lno = 0x07bc // 0x2479 @0x2
0x2477…247e at0004 = ╱971e╱ REPEAT ╱ // 0x247b @0x4
0x2477…247e at0006 = EOL // 0x247d @0x6
0x2477…247e }
0x247e…24b2 bc61 01990 EXEC OVERSKRIFT ( "Udskrivning…af…saldobalance" , 8 )
0x247e…24b2 LineComal80 {
0x247e…24b2 ptr = 0xbc61 // 0x247e @0x0
0x247e…24b2 lno = 0x07c6 // 0x2480 @0x2
0x247e…24b2 at0004 = ╱9d╱ EXEC ╱ // 0x2482 @0x4
0x247e…24b2 at0005 = ╱4f╱O╱ // 0x2483 @0x5
0x247e…24b2 at0006 = ╱56╱V╱ // 0x2484 @0x6
0x247e…24b2 at0007 = ╱45╱E╱ // 0x2485 @0x7
0x247e…24b2 at0008 = ╱52╱R╱ // 0x2486 @0x8
0x247e…24b2 at0009 = ╱53╱S╱ // 0x2487 @0x9
0x247e…24b2 at000a = ╱4b╱K╱ // 0x2488 @0xa
0x247e…24b2 at000b = ╱52╱R╱ // 0x2489 @0xb
0x247e…24b2 at000c = ╱49╱I╱ // 0x248a @0xc
0x247e…24b2 at000d = ╱46╱F╱ // 0x248b @0xd
0x247e…24b2 at000e = ╱54╱T╱ // 0x248c @0xe
0x247e…24b2 at000f = ╱ed╱ ( ╱ // 0x248d @0xf
0x247e…24b2 at0010 = ╱22╱"╱ // 0x248e @0x10
0x247e…24b2 at0011 = ╱55╱U╱ // 0x248f @0x11
0x247e…24b2 at0012 = ╱64╱d╱ // 0x2490 @0x12
0x247e…24b2 at0013 = ╱73╱s╱ // 0x2491 @0x13
0x247e…24b2 at0014 = ╱6b╱k╱ // 0x2492 @0x14
0x247e…24b2 at0015 = ╱72╱r╱ // 0x2493 @0x15
0x247e…24b2 at0016 = ╱69╱i╱ // 0x2494 @0x16
0x247e…24b2 at0017 = ╱76╱v╱ // 0x2495 @0x17
0x247e…24b2 at0018 = ╱6e╱n╱ // 0x2496 @0x18
0x247e…24b2 at0019 = ╱69╱i╱ // 0x2497 @0x19
0x247e…24b2 at001a = ╱6e╱n╱ // 0x2498 @0x1a
0x247e…24b2 at001b = ╱67╱g╱ // 0x2499 @0x1b
0x247e…24b2 at001c = ╱20╱…╱ // 0x249a @0x1c
0x247e…24b2 at001d = ╱61╱a╱ // 0x249b @0x1d
0x247e…24b2 at001e = ╱66╱f╱ // 0x249c @0x1e
0x247e…24b2 at001f = ╱20╱…╱ // 0x249d @0x1f
0x247e…24b2 at0020 = ╱73╱s╱ // 0x249e @0x20
0x247e…24b2 at0021 = ╱61╱a╱ // 0x249f @0x21
0x247e…24b2 at0022 = ╱6c╱l╱ // 0x24a0 @0x22
0x247e…24b2 at0023 = ╱64╱d╱ // 0x24a1 @0x23
0x247e…24b2 at0024 = ╱6f╱o╱ // 0x24a2 @0x24
0x247e…24b2 at0025 = ╱62╱b╱ // 0x24a3 @0x25
0x247e…24b2 at0026 = ╱61╱a╱ // 0x24a4 @0x26
0x247e…24b2 at0027 = ╱6c╱l╱ // 0x24a5 @0x27
0x247e…24b2 at0028 = ╱61╱a╱ // 0x24a6 @0x28
0x247e…24b2 at0029 = ╱6e╱n╱ // 0x24a7 @0x29
0x247e…24b2 at002a = ╱63╱c╱ // 0x24a8 @0x2a
0x247e…24b2 at002b = ╱65╱e╱ // 0x24a9 @0x2b
0x247e…24b2 at002c = ╱22╱"╱ // 0x24aa @0x2c
0x247e…24b2 at002d = ╱ec╱ , ╱ // 0x24ab @0x2d
0x247e…24b2 at002e = ╱38╱8╱ // 0x24ac @0x2e
0x247e…24b2 at002f = ╱f20800╱ // 0x24ad @0x2f
0x247e…24b2 at0032 = ╱ee╱ ) ╱ // 0x24b0 @0x32
0x247e…24b2 at0033 = EOL // 0x24b1 @0x33
0x247e…24b2 }
0x24b2…24d3 (122,) bac1 02260 EXEC PRINTRES ( "EDB-liste" , 12 )
0x24b2…24d3 LineComal80 {
0x24b2…24d3 ptr = 0xbac1 // 0x24b2 @0x0
0x24b2…24d3 lno = 0x08d4 // 0x24b4 @0x2
0x24b2…24d3 at0004 = ╱9d╱ EXEC ╱ // 0x24b6 @0x4
0x24b2…24d3 at0005 = ╱50╱P╱ // 0x24b7 @0x5
0x24b2…24d3 at0006 = ╱52╱R╱ // 0x24b8 @0x6
0x24b2…24d3 at0007 = ╱49╱I╱ // 0x24b9 @0x7
0x24b2…24d3 at0008 = ╱4e╱N╱ // 0x24ba @0x8
0x24b2…24d3 at0009 = ╱54╱T╱ // 0x24bb @0x9
0x24b2…24d3 at000a = ╱52╱R╱ // 0x24bc @0xa
0x24b2…24d3 at000b = ╱45╱E╱ // 0x24bd @0xb
0x24b2…24d3 at000c = ╱53╱S╱ // 0x24be @0xc
0x24b2…24d3 at000d = ╱ed╱ ( ╱ // 0x24bf @0xd
0x24b2…24d3 at000e = ╱22╱"╱ // 0x24c0 @0xe
0x24b2…24d3 at000f = ╱45╱E╱ // 0x24c1 @0xf
0x24b2…24d3 at0010 = ╱44╱D╱ // 0x24c2 @0x10
0x24b2…24d3 at0011 = ╱42╱B╱ // 0x24c3 @0x11
0x24b2…24d3 at0012 = ╱2d╱-╱ // 0x24c4 @0x12
0x24b2…24d3 at0013 = ╱6c╱l╱ // 0x24c5 @0x13
0x24b2…24d3 at0014 = ╱69╱i╱ // 0x24c6 @0x14
0x24b2…24d3 at0015 = ╱73╱s╱ // 0x24c7 @0x15
0x24b2…24d3 at0016 = ╱74╱t╱ // 0x24c8 @0x16
0x24b2…24d3 at0017 = ╱65╱e╱ // 0x24c9 @0x17
0x24b2…24d3 at0018 = ╱22╱"╱ // 0x24ca @0x18
0x24b2…24d3 at0019 = ╱ec╱ , ╱ // 0x24cb @0x19
0x24b2…24d3 at001a = ╱31╱1╱ // 0x24cc @0x1a
0x24b2…24d3 at001b = ╱32╱2╱ // 0x24cd @0x1b
0x24b2…24d3 at001c = ╱f20c00╱ // 0x24ce @0x1c
0x24b2…24d3 at001f = ╱ee╱ ) ╱ // 0x24d1 @0x1f
0x24b2…24d3 at0020 = EOL // 0x24d2 @0x20
0x24b2…24d3 }
0x24d3…24f7 bae5 02010 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
0x24d3…24f7 LineComal80 {
0x24d3…24f7 ptr = 0xbae5 // 0x24d3 @0x0
0x24d3…24f7 lno = 0x07da // 0x24d5 @0x2
0x24d3…24f7 at0004 = ╱a9╱ GET ╱ // 0x24d7 @0x4
0x24d3…24f7 at0005 = ╱4b╱K╱ // 0x24d8 @0x5
0x24d3…24f7 at0006 = ╱54╱T╱ // 0x24d9 @0x6
0x24d3…24f7 at0007 = ╱4f╱O╱ // 0x24da @0x7
0x24d3…24f7 at0008 = ╱49╱I╱ // 0x24db @0x8
0x24d3…24f7 at0009 = ╱44╱D╱ // 0x24dc @0x9
0x24d3…24f7 at000a = ╱58╱X╱ // 0x24dd @0xa
0x24d3…24f7 at000b = ╱ef╱ $ ╱ // 0x24de @0xb
0x24d3…24f7 at000c = ╱ec╱ , ╱ // 0x24df @0xc
0x24d3…24f7 at000d = ╱31╱1╱ // 0x24e0 @0xd
0x24d3…24f7 at000e = ╱f20100╱ // 0x24e1 @0xe
0x24d3…24f7 at0011 = ╱f1╱ : ╱ // 0x24e4 @0x11
0x24d3…24f7 at0012 = ╱49╱I╱ // 0x24e5 @0x12
0x24d3…24f7 at0013 = ╱5f╱_╱ // 0x24e6 @0x13
0x24d3…24f7 at0014 = ╱48╱H╱ // 0x24e7 @0x14
0x24d3…24f7 at0015 = ╱5c╱\╱ // 0x24e8 @0x15
0x24d3…24f7 at0016 = ╱4a╱J╱ // 0x24e9 @0x16
0x24d3…24f7 at0017 = ╱52╱R╱ // 0x24ea @0x17
0x24d3…24f7 at0018 = ╱45╱E╱ // 0x24eb @0x18
0x24d3…24f7 at0019 = ╱43╱C╱ // 0x24ec @0x19
0x24d3…24f7 at001a = ╱ec╱ , ╱ // 0x24ed @0x1a
0x24d3…24f7 at001b = ╱49╱I╱ // 0x24ee @0x1b
0x24d3…24f7 at001c = ╱5f╱_╱ // 0x24ef @0x1c
0x24d3…24f7 at001d = ╱4d╱M╱ // 0x24f0 @0x1d
0x24d3…24f7 at001e = ╱41╱A╱ // 0x24f1 @0x1e
0x24d3…24f7 at001f = ╱58╱X╱ // 0x24f2 @0x1f
0x24d3…24f7 at0020 = ╱52╱R╱ // 0x24f3 @0x20
0x24d3…24f7 at0021 = ╱45╱E╱ // 0x24f4 @0x21
0x24d3…24f7 at0022 = ╱43╱C╱ // 0x24f5 @0x22
0x24d3…24f7 at0023 = EOL // 0x24f6 @0x23
0x24d3…24f7 }
0x24f7…254a bb38 02020 LET LIN_T := 100 ; SIDENR := 0 ; TOTAL ( 1 ) , TOTAL ( 2 ) , TOTAL ( 3 ) , TOTAL ( 4 ) := 0
0x24f7…254a LineComal80 {
0x24f7…254a ptr = 0xbb38 // 0x24f7 @0x0
0x24f7…254a lno = 0x07e4 // 0x24f9 @0x2
0x24f7…254a at0004 = ╱86╱ LET ╱ // 0x24fb @0x4
0x24f7…254a at0005 = ╱4c╱L╱ // 0x24fc @0x5
0x24f7…254a at0006 = ╱49╱I╱ // 0x24fd @0x6
0x24f7…254a at0007 = ╱4e╱N╱ // 0x24fe @0x7
0x24f7…254a at0008 = ╱5f╱_╱ // 0x24ff @0x8
0x24f7…254a at0009 = ╱54╱T╱ // 0x2500 @0x9
0x24f7…254a at000a = ╱f0╱ := ╱ // 0x2501 @0xa
0x24f7…254a at000b = ╱31╱1╱ // 0x2502 @0xb
0x24f7…254a at000c = ╱30╱0╱ // 0x2503 @0xc
0x24f7…254a at000d = ╱30╱0╱ // 0x2504 @0xd
0x24f7…254a at000e = ╱f26400╱ // 0x2505 @0xe
0x24f7…254a at0011 = ╱ea╱ ; ╱ // 0x2508 @0x11
0x24f7…254a at0012 = ╱53╱S╱ // 0x2509 @0x12
0x24f7…254a at0013 = ╱49╱I╱ // 0x250a @0x13
0x24f7…254a at0014 = ╱44╱D╱ // 0x250b @0x14
0x24f7…254a at0015 = ╱45╱E╱ // 0x250c @0x15
0x24f7…254a at0016 = ╱4e╱N╱ // 0x250d @0x16
0x24f7…254a at0017 = ╱52╱R╱ // 0x250e @0x17
0x24f7…254a at0018 = ╱f0╱ := ╱ // 0x250f @0x18
0x24f7…254a at0019 = ╱30╱0╱ // 0x2510 @0x19
0x24f7…254a at001a = ╱f20000╱ // 0x2511 @0x1a
0x24f7…254a at001d = ╱ea╱ ; ╱ // 0x2514 @0x1d
0x24f7…254a at001e = ╱54╱T╱ // 0x2515 @0x1e
0x24f7…254a at001f = ╱4f╱O╱ // 0x2516 @0x1f
0x24f7…254a at0020 = ╱54╱T╱ // 0x2517 @0x20
0x24f7…254a at0021 = ╱41╱A╱ // 0x2518 @0x21
0x24f7…254a at0022 = ╱4c╱L╱ // 0x2519 @0x22
0x24f7…254a at0023 = ╱ed╱ ( ╱ // 0x251a @0x23
0x24f7…254a at0024 = ╱31╱1╱ // 0x251b @0x24
0x24f7…254a at0025 = ╱f20100╱ // 0x251c @0x25
0x24f7…254a at0028 = ╱ee╱ ) ╱ // 0x251f @0x28
0x24f7…254a at0029 = ╱ec╱ , ╱ // 0x2520 @0x29
0x24f7…254a at002a = ╱54╱T╱ // 0x2521 @0x2a
0x24f7…254a at002b = ╱4f╱O╱ // 0x2522 @0x2b
0x24f7…254a at002c = ╱54╱T╱ // 0x2523 @0x2c
0x24f7…254a at002d = ╱41╱A╱ // 0x2524 @0x2d
0x24f7…254a at002e = ╱4c╱L╱ // 0x2525 @0x2e
0x24f7…254a at002f = ╱ed╱ ( ╱ // 0x2526 @0x2f
0x24f7…254a at0030 = ╱32╱2╱ // 0x2527 @0x30
0x24f7…254a at0031 = ╱f20200╱ // 0x2528 @0x31
0x24f7…254a at0034 = ╱ee╱ ) ╱ // 0x252b @0x34
0x24f7…254a at0035 = ╱ec╱ , ╱ // 0x252c @0x35
0x24f7…254a at0036 = ╱54╱T╱ // 0x252d @0x36
0x24f7…254a at0037 = ╱4f╱O╱ // 0x252e @0x37
0x24f7…254a at0038 = ╱54╱T╱ // 0x252f @0x38
0x24f7…254a at0039 = ╱41╱A╱ // 0x2530 @0x39
0x24f7…254a at003a = ╱4c╱L╱ // 0x2531 @0x3a
0x24f7…254a at003b = ╱ed╱ ( ╱ // 0x2532 @0x3b
0x24f7…254a at003c = ╱33╱3╱ // 0x2533 @0x3c
0x24f7…254a at003d = ╱f20300╱ // 0x2534 @0x3d
0x24f7…254a at0040 = ╱ee╱ ) ╱ // 0x2537 @0x40
0x24f7…254a at0041 = ╱ec╱ , ╱ // 0x2538 @0x41
0x24f7…254a at0042 = ╱54╱T╱ // 0x2539 @0x42
0x24f7…254a at0043 = ╱4f╱O╱ // 0x253a @0x43
0x24f7…254a at0044 = ╱54╱T╱ // 0x253b @0x44
0x24f7…254a at0045 = ╱41╱A╱ // 0x253c @0x45
0x24f7…254a at0046 = ╱4c╱L╱ // 0x253d @0x46
0x24f7…254a at0047 = ╱ed╱ ( ╱ // 0x253e @0x47
0x24f7…254a at0048 = ╱34╱4╱ // 0x253f @0x48
0x24f7…254a at0049 = ╱f20400╱ // 0x2540 @0x49
0x24f7…254a at004c = ╱ee╱ ) ╱ // 0x2543 @0x4c
0x24f7…254a at004d = ╱f0╱ := ╱ // 0x2544 @0x4d
0x24f7…254a at004e = ╱30╱0╱ // 0x2545 @0x4e
0x24f7…254a at004f = ╱f20000╱ // 0x2546 @0x4f
0x24f7…254a at0052 = EOL // 0x2549 @0x52
0x24f7…254a }
0x254a…2566 bb54 02030 FOR IDXPOS := 2 TO _H\JREC DO
0x254a…2566 LineComal80 {
0x254a…2566 ptr = 0xbb54 // 0x254a @0x0
0x254a…2566 lno = 0x07ee // 0x254c @0x2
0x254a…2566 at0004 = ╱831f╱ FOR ╱ // 0x254e @0x4
0x254a…2566 at0006 = ╱49╱I╱ // 0x2550 @0x6
0x254a…2566 at0007 = ╱44╱D╱ // 0x2551 @0x7
0x254a…2566 at0008 = ╱58╱X╱ // 0x2552 @0x8
0x254a…2566 at0009 = ╱50╱P╱ // 0x2553 @0x9
0x254a…2566 at000a = ╱4f╱O╱ // 0x2554 @0xa
0x254a…2566 at000b = ╱53╱S╱ // 0x2555 @0xb
0x254a…2566 at000c = ╱f0╱ := ╱ // 0x2556 @0xc
0x254a…2566 at000d = ╱32╱2╱ // 0x2557 @0xd
0x254a…2566 at000e = ╱f20200╱ // 0x2558 @0xe
0x254a…2566 at0011 = ╱b749╱ TO ╱ // 0x255b @0x11
0x254a…2566 at0013 = ╱5f╱_╱ // 0x255d @0x13
0x254a…2566 at0014 = ╱48╱H╱ // 0x255e @0x14
0x254a…2566 at0015 = ╱5c╱\╱ // 0x255f @0x15
0x254a…2566 at0016 = ╱4a╱J╱ // 0x2560 @0x16
0x254a…2566 at0017 = ╱52╱R╱ // 0x2561 @0x17
0x254a…2566 at0018 = ╱45╱E╱ // 0x2562 @0x18
0x254a…2566 at0019 = ╱43╱C╱ // 0x2563 @0x19
0x254a…2566 at001a = ╱bb╱ DO ╱ // 0x2564 @0x1a
0x254a…2566 at001b = EOL // 0x2565 @0x1b
0x254a…2566 }
0x2566…2587 aa60 02040 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
0x2566…2587 LineComal80 {
0x2566…2587 ptr = 0xaa60 // 0x2566 @0x0
0x2566…2587 lno = 0x07f8 // 0x2568 @0x2
0x2566…2587 at0004 = ╱a9╱ GET ╱ // 0x256a @0x4
0x2566…2587 at0005 = ╱4b╱K╱ // 0x256b @0x5
0x2566…2587 at0006 = ╱54╱T╱ // 0x256c @0x6
0x2566…2587 at0007 = ╱4f╱O╱ // 0x256d @0x7
0x2566…2587 at0008 = ╱49╱I╱ // 0x256e @0x8
0x2566…2587 at0009 = ╱44╱D╱ // 0x256f @0x9
0x2566…2587 at000a = ╱58╱X╱ // 0x2570 @0xa
0x2566…2587 at000b = ╱ef╱ $ ╱ // 0x2571 @0xb
0x2566…2587 at000c = ╱ec╱ , ╱ // 0x2572 @0xc
0x2566…2587 at000d = ╱49╱I╱ // 0x2573 @0xd
0x2566…2587 at000e = ╱44╱D╱ // 0x2574 @0xe
0x2566…2587 at000f = ╱58╱X╱ // 0x2575 @0xf
0x2566…2587 at0010 = ╱50╱P╱ // 0x2576 @0x10
0x2566…2587 at0011 = ╱4f╱O╱ // 0x2577 @0x11
0x2566…2587 at0012 = ╱53╱S╱ // 0x2578 @0x12
0x2566…2587 at0013 = ╱f1╱ : ╱ // 0x2579 @0x13
0x2566…2587 at0014 = ╱4b╱K╱ // 0x257a @0x14
0x2566…2587 at0015 = ╱54╱T╱ // 0x257b @0x15
0x2566…2587 at0016 = ╱4f╱O╱ // 0x257c @0x16
0x2566…2587 at0017 = ╱4e╱N╱ // 0x257d @0x17
0x2566…2587 at0018 = ╱52╱R╱ // 0x257e @0x18
0x2566…2587 at0019 = ╱ef╱ $ ╱ // 0x257f @0x19
0x2566…2587 at001a = ╱ec╱ , ╱ // 0x2580 @0x1a
0x2566…2587 at001b = ╱52╱R╱ // 0x2581 @0x1b
0x2566…2587 at001c = ╱45╱E╱ // 0x2582 @0x1c
0x2566…2587 at001d = ╱43╱C╱ // 0x2583 @0x1d
0x2566…2587 at001e = ╱4e╱N╱ // 0x2584 @0x1e
0x2566…2587 at001f = ╱52╱R╱ // 0x2585 @0x1f
0x2566…2587 at0020 = EOL // 0x2586 @0x20
0x2566…2587 }
0x2587…25a2 b99a 02420 PRINT "<S>***…BALANCE…PR.…"
0x2587…25a2 LineComal80 {
0x2587…25a2 ptr = 0xb99a // 0x2587 @0x0
0x2587…25a2 lno = 0x0974 // 0x2589 @0x2
0x2587…25a2 at0004 = ╱92╱ PRINT ╱ // 0x258b @0x4
0x2587…25a2 at0005 = ╱22╱"╱ // 0x258c @0x5
0x2587…25a2 at0006 = ╱3c╱<╱ // 0x258d @0x6
0x2587…25a2 at0007 = ╱53╱S╱ // 0x258e @0x7
0x2587…25a2 at0008 = ╱3e╱>╱ // 0x258f @0x8
0x2587…25a2 at0009 = ╱2a╱*╱ // 0x2590 @0x9
0x2587…25a2 at000a = ╱2a╱*╱ // 0x2591 @0xa
0x2587…25a2 at000b = ╱2a╱*╱ // 0x2592 @0xb
0x2587…25a2 at000c = ╱20╱…╱ // 0x2593 @0xc
0x2587…25a2 at000d = ╱42╱B╱ // 0x2594 @0xd
0x2587…25a2 at000e = ╱41╱A╱ // 0x2595 @0xe
0x2587…25a2 at000f = ╱4c╱L╱ // 0x2596 @0xf
0x2587…25a2 at0010 = ╱41╱A╱ // 0x2597 @0x10
0x2587…25a2 at0011 = ╱4e╱N╱ // 0x2598 @0x11
0x2587…25a2 at0012 = ╱43╱C╱ // 0x2599 @0x12
0x2587…25a2 at0013 = ╱45╱E╱ // 0x259a @0x13
0x2587…25a2 at0014 = ╱20╱…╱ // 0x259b @0x14
0x2587…25a2 at0015 = ╱50╱P╱ // 0x259c @0x15
0x2587…25a2 at0016 = ╱52╱R╱ // 0x259d @0x16
0x2587…25a2 at0017 = ╱2e╱.╱ // 0x259e @0x17
0x2587…25a2 at0018 = ╱20╱…╱ // 0x259f @0x18
0x2587…25a2 at0019 = ╱22╱"╱ // 0x25a0 @0x19
0x2587…25a2 at001a = EOL // 0x25a1 @0x1a
0x2587…25a2 }
0x25a2…25cc bb75 02670 PRINT "<S>Firmanavn:…" ; FIRMANAVN $ ; TAB ( 42 )
0x25a2…25cc LineComal80 {
0x25a2…25cc ptr = 0xbb75 // 0x25a2 @0x0
0x25a2…25cc lno = 0x0a6e // 0x25a4 @0x2
0x25a2…25cc at0004 = ╱92╱ PRINT ╱ // 0x25a6 @0x4
0x25a2…25cc at0005 = ╱22╱"╱ // 0x25a7 @0x5
0x25a2…25cc at0006 = ╱3c╱<╱ // 0x25a8 @0x6
0x25a2…25cc at0007 = ╱53╱S╱ // 0x25a9 @0x7
0x25a2…25cc at0008 = ╱3e╱>╱ // 0x25aa @0x8
0x25a2…25cc at0009 = ╱46╱F╱ // 0x25ab @0x9
0x25a2…25cc at000a = ╱69╱i╱ // 0x25ac @0xa
0x25a2…25cc at000b = ╱72╱r╱ // 0x25ad @0xb
0x25a2…25cc at000c = ╱6d╱m╱ // 0x25ae @0xc
0x25a2…25cc at000d = ╱61╱a╱ // 0x25af @0xd
0x25a2…25cc at000e = ╱6e╱n╱ // 0x25b0 @0xe
0x25a2…25cc at000f = ╱61╱a╱ // 0x25b1 @0xf
0x25a2…25cc at0010 = ╱76╱v╱ // 0x25b2 @0x10
0x25a2…25cc at0011 = ╱6e╱n╱ // 0x25b3 @0x11
0x25a2…25cc at0012 = ╱3a╱:╱ // 0x25b4 @0x12
0x25a2…25cc at0013 = ╱20╱…╱ // 0x25b5 @0x13
0x25a2…25cc at0014 = ╱22╱"╱ // 0x25b6 @0x14
0x25a2…25cc at0015 = ╱ea╱ ; ╱ // 0x25b7 @0x15
0x25a2…25cc at0016 = ╱46╱F╱ // 0x25b8 @0x16
0x25a2…25cc at0017 = ╱49╱I╱ // 0x25b9 @0x17
0x25a2…25cc at0018 = ╱52╱R╱ // 0x25ba @0x18
0x25a2…25cc at0019 = ╱4d╱M╱ // 0x25bb @0x19
0x25a2…25cc at001a = ╱41╱A╱ // 0x25bc @0x1a
0x25a2…25cc at001b = ╱4e╱N╱ // 0x25bd @0x1b
0x25a2…25cc at001c = ╱41╱A╱ // 0x25be @0x1c
0x25a2…25cc at001d = ╱56╱V╱ // 0x25bf @0x1d
0x25a2…25cc at001e = ╱4e╱N╱ // 0x25c0 @0x1e
0x25a2…25cc at001f = ╱ef╱ $ ╱ // 0x25c1 @0x1f
0x25a2…25cc at0020 = ╱ea╱ ; ╱ // 0x25c2 @0x20
0x25a2…25cc at0021 = ╱d2╱ TAB ╱ // 0x25c3 @0x21
0x25a2…25cc at0022 = ╱ed╱ ( ╱ // 0x25c4 @0x22
0x25a2…25cc at0023 = ╱34╱4╱ // 0x25c5 @0x23
0x25a2…25cc at0024 = ╱32╱2╱ // 0x25c6 @0x24
0x25a2…25cc at0025 = ╱f22a00╱ // 0x25c7 @0x25
0x25a2…25cc at0028 = ╱ee╱ ) ╱ // 0x25ca @0x28
0x25a2…25cc at0029 = EOL // 0x25cb @0x29
0x25a2…25cc }
0x25cc…25f8 bbe6 02380 PRINT "<LIS>***…" ; SYST_NAVN $ ; "…***" ; TAB ( 62 )
0x25cc…25f8 LineComal80 {
0x25cc…25f8 ptr = 0xbbe6 // 0x25cc @0x0
0x25cc…25f8 lno = 0x094c // 0x25ce @0x2
0x25cc…25f8 at0004 = ╱92╱ PRINT ╱ // 0x25d0 @0x4
0x25cc…25f8 at0005 = ╱22╱"╱ // 0x25d1 @0x5
0x25cc…25f8 at0006 = ╱3c╱<╱ // 0x25d2 @0x6
0x25cc…25f8 at0007 = ╱4c╱L╱ // 0x25d3 @0x7
0x25cc…25f8 at0008 = ╱49╱I╱ // 0x25d4 @0x8
0x25cc…25f8 at0009 = ╱53╱S╱ // 0x25d5 @0x9
0x25cc…25f8 at000a = ╱3e╱>╱ // 0x25d6 @0xa
0x25cc…25f8 at000b = ╱2a╱*╱ // 0x25d7 @0xb
0x25cc…25f8 at000c = ╱2a╱*╱ // 0x25d8 @0xc
0x25cc…25f8 at000d = ╱2a╱*╱ // 0x25d9 @0xd
0x25cc…25f8 at000e = ╱20╱…╱ // 0x25da @0xe
0x25cc…25f8 at000f = ╱22╱"╱ // 0x25db @0xf
0x25cc…25f8 at0010 = ╱ea╱ ; ╱ // 0x25dc @0x10
0x25cc…25f8 at0011 = ╱53╱S╱ // 0x25dd @0x11
0x25cc…25f8 at0012 = ╱59╱Y╱ // 0x25de @0x12
0x25cc…25f8 at0013 = ╱53╱S╱ // 0x25df @0x13
0x25cc…25f8 at0014 = ╱54╱T╱ // 0x25e0 @0x14
0x25cc…25f8 at0015 = ╱5f╱_╱ // 0x25e1 @0x15
0x25cc…25f8 at0016 = ╱4e╱N╱ // 0x25e2 @0x16
0x25cc…25f8 at0017 = ╱41╱A╱ // 0x25e3 @0x17
0x25cc…25f8 at0018 = ╱56╱V╱ // 0x25e4 @0x18
0x25cc…25f8 at0019 = ╱4e╱N╱ // 0x25e5 @0x19
0x25cc…25f8 at001a = ╱ef╱ $ ╱ // 0x25e6 @0x1a
0x25cc…25f8 at001b = ╱ea╱ ; ╱ // 0x25e7 @0x1b
0x25cc…25f8 at001c = ╱22╱"╱ // 0x25e8 @0x1c
0x25cc…25f8 at001d = ╱20╱…╱ // 0x25e9 @0x1d
0x25cc…25f8 at001e = ╱2a╱*╱ // 0x25ea @0x1e
0x25cc…25f8 at001f = ╱2a╱*╱ // 0x25eb @0x1f
0x25cc…25f8 at0020 = ╱2a╱*╱ // 0x25ec @0x20
0x25cc…25f8 at0021 = ╱22╱"╱ // 0x25ed @0x21
0x25cc…25f8 at0022 = ╱ea╱ ; ╱ // 0x25ee @0x22
0x25cc…25f8 at0023 = ╱d2╱ TAB ╱ // 0x25ef @0x23
0x25cc…25f8 at0024 = ╱ed╱ ( ╱ // 0x25f0 @0x24
0x25cc…25f8 at0025 = ╱36╱6╱ // 0x25f1 @0x25
0x25cc…25f8 at0026 = ╱32╱2╱ // 0x25f2 @0x26
0x25cc…25f8 at0027 = ╱f23e00╱ // 0x25f3 @0x27
0x25cc…25f8 at002a = ╱ee╱ ) ╱ // 0x25f6 @0x2a
0x25cc…25f8 at002b = EOL // 0x25f7 @0x2b
0x25cc…25f8 }
0x25f8…260d bbfb 02390 PRINT "SIDE:…" ; SIDENR
0x25f8…260d LineComal80 {
0x25f8…260d ptr = 0xbbfb // 0x25f8 @0x0
0x25f8…260d lno = 0x0956 // 0x25fa @0x2
0x25f8…260d at0004 = ╱92╱ PRINT ╱ // 0x25fc @0x4
0x25f8…260d at0005 = ╱22╱"╱ // 0x25fd @0x5
0x25f8…260d at0006 = ╱53╱S╱ // 0x25fe @0x6
0x25f8…260d at0007 = ╱49╱I╱ // 0x25ff @0x7
0x25f8…260d at0008 = ╱44╱D╱ // 0x2600 @0x8
0x25f8…260d at0009 = ╱45╱E╱ // 0x2601 @0x9
0x25f8…260d at000a = ╱3a╱:╱ // 0x2602 @0xa
0x25f8…260d at000b = ╱20╱…╱ // 0x2603 @0xb
0x25f8…260d at000c = ╱22╱"╱ // 0x2604 @0xc
0x25f8…260d at000d = ╱ea╱ ; ╱ // 0x2605 @0xd
0x25f8…260d at000e = ╱53╱S╱ // 0x2606 @0xe
0x25f8…260d at000f = ╱49╱I╱ // 0x2607 @0xf
0x25f8…260d at0010 = ╱44╱D╱ // 0x2608 @0x10
0x25f8…260d at0011 = ╱45╱E╱ // 0x2609 @0x11
0x25f8…260d at0012 = ╱4e╱N╱ // 0x260a @0x12
0x25f8…260d at0013 = ╱52╱R╱ // 0x260b @0x13
0x25f8…260d at0014 = EOL // 0x260c @0x14
0x25f8…260d }
0x260d…2613 bc2b 02400 PRINT
0x260d…2613 LineComal80 {
0x260d…2613 ptr = 0xbc2b // 0x260d @0x0
0x260d…2613 lno = 0x0960 // 0x260f @0x2
0x260d…2613 at0004 = ╱92╱ PRINT ╱ // 0x2611 @0x4
0x260d…2613 at0005 = EOL // 0x2612 @0x5
0x260d…2613 }
0x2613…263d bb75 02670 PRINT "<S>Firmanavn:…" ; FIRMANAVN $ ; TAB ( 42 )
0x2613…263d LineComal80 {
0x2613…263d ptr = 0xbb75 // 0x2613 @0x0
0x2613…263d lno = 0x0a6e // 0x2615 @0x2
0x2613…263d at0004 = ╱92╱ PRINT ╱ // 0x2617 @0x4
0x2613…263d at0005 = ╱22╱"╱ // 0x2618 @0x5
0x2613…263d at0006 = ╱3c╱<╱ // 0x2619 @0x6
0x2613…263d at0007 = ╱53╱S╱ // 0x261a @0x7
0x2613…263d at0008 = ╱3e╱>╱ // 0x261b @0x8
0x2613…263d at0009 = ╱46╱F╱ // 0x261c @0x9
0x2613…263d at000a = ╱69╱i╱ // 0x261d @0xa
0x2613…263d at000b = ╱72╱r╱ // 0x261e @0xb
0x2613…263d at000c = ╱6d╱m╱ // 0x261f @0xc
0x2613…263d at000d = ╱61╱a╱ // 0x2620 @0xd
0x2613…263d at000e = ╱6e╱n╱ // 0x2621 @0xe
0x2613…263d at000f = ╱61╱a╱ // 0x2622 @0xf
0x2613…263d at0010 = ╱76╱v╱ // 0x2623 @0x10
0x2613…263d at0011 = ╱6e╱n╱ // 0x2624 @0x11
0x2613…263d at0012 = ╱3a╱:╱ // 0x2625 @0x12
0x2613…263d at0013 = ╱20╱…╱ // 0x2626 @0x13
0x2613…263d at0014 = ╱22╱"╱ // 0x2627 @0x14
0x2613…263d at0015 = ╱ea╱ ; ╱ // 0x2628 @0x15
0x2613…263d at0016 = ╱46╱F╱ // 0x2629 @0x16
0x2613…263d at0017 = ╱49╱I╱ // 0x262a @0x17
0x2613…263d at0018 = ╱52╱R╱ // 0x262b @0x18
0x2613…263d at0019 = ╱4d╱M╱ // 0x262c @0x19
0x2613…263d at001a = ╱41╱A╱ // 0x262d @0x1a
0x2613…263d at001b = ╱4e╱N╱ // 0x262e @0x1b
0x2613…263d at001c = ╱41╱A╱ // 0x262f @0x1c
0x2613…263d at001d = ╱56╱V╱ // 0x2630 @0x1d
0x2613…263d at001e = ╱4e╱N╱ // 0x2631 @0x1e
0x2613…263d at001f = ╱ef╱ $ ╱ // 0x2632 @0x1f
0x2613…263d at0020 = ╱ea╱ ; ╱ // 0x2633 @0x20
0x2613…263d at0021 = ╱d2╱ TAB ╱ // 0x2634 @0x21
0x2613…263d at0022 = ╱ed╱ ( ╱ // 0x2635 @0x22
0x2613…263d at0023 = ╱34╱4╱ // 0x2636 @0x23
0x2613…263d at0024 = ╱32╱2╱ // 0x2637 @0x24
0x2613…263d at0025 = ╱f22a00╱ // 0x2638 @0x25
0x2613…263d at0028 = ╱ee╱ ) ╱ // 0x263b @0x28
0x2613…263d at0029 = EOL // 0x263c @0x29
0x2613…263d }
0x263d…2667 bb75 02410 PRINT "<S>Firmanavn:…" ; FIRMANAVN $ ; TAB ( 38 )
0x263d…2667 LineComal80 {
0x263d…2667 ptr = 0xbb75 // 0x263d @0x0
0x263d…2667 lno = 0x096a // 0x263f @0x2
0x263d…2667 at0004 = ╱92╱ PRINT ╱ // 0x2641 @0x4
0x263d…2667 at0005 = ╱22╱"╱ // 0x2642 @0x5
0x263d…2667 at0006 = ╱3c╱<╱ // 0x2643 @0x6
0x263d…2667 at0007 = ╱53╱S╱ // 0x2644 @0x7
0x263d…2667 at0008 = ╱3e╱>╱ // 0x2645 @0x8
0x263d…2667 at0009 = ╱46╱F╱ // 0x2646 @0x9
0x263d…2667 at000a = ╱69╱i╱ // 0x2647 @0xa
0x263d…2667 at000b = ╱72╱r╱ // 0x2648 @0xb
0x263d…2667 at000c = ╱6d╱m╱ // 0x2649 @0xc
0x263d…2667 at000d = ╱61╱a╱ // 0x264a @0xd
0x263d…2667 at000e = ╱6e╱n╱ // 0x264b @0xe
0x263d…2667 at000f = ╱61╱a╱ // 0x264c @0xf
0x263d…2667 at0010 = ╱76╱v╱ // 0x264d @0x10
0x263d…2667 at0011 = ╱6e╱n╱ // 0x264e @0x11
0x263d…2667 at0012 = ╱3a╱:╱ // 0x264f @0x12
0x263d…2667 at0013 = ╱20╱…╱ // 0x2650 @0x13
0x263d…2667 at0014 = ╱22╱"╱ // 0x2651 @0x14
0x263d…2667 at0015 = ╱ea╱ ; ╱ // 0x2652 @0x15
0x263d…2667 at0016 = ╱46╱F╱ // 0x2653 @0x16
0x263d…2667 at0017 = ╱49╱I╱ // 0x2654 @0x17
0x263d…2667 at0018 = ╱52╱R╱ // 0x2655 @0x18
0x263d…2667 at0019 = ╱4d╱M╱ // 0x2656 @0x19
0x263d…2667 at001a = ╱41╱A╱ // 0x2657 @0x1a
0x263d…2667 at001b = ╱4e╱N╱ // 0x2658 @0x1b
0x263d…2667 at001c = ╱41╱A╱ // 0x2659 @0x1c
0x263d…2667 at001d = ╱56╱V╱ // 0x265a @0x1d
0x263d…2667 at001e = ╱4e╱N╱ // 0x265b @0x1e
0x263d…2667 at001f = ╱ef╱ $ ╱ // 0x265c @0x1f
0x263d…2667 at0020 = ╱ea╱ ; ╱ // 0x265d @0x20
0x263d…2667 at0021 = ╱d2╱ TAB ╱ // 0x265e @0x21
0x263d…2667 at0022 = ╱ed╱ ( ╱ // 0x265f @0x22
0x263d…2667 at0023 = ╱33╱3╱ // 0x2660 @0x23
0x263d…2667 at0024 = ╱38╱8╱ // 0x2661 @0x24
0x263d…2667 at0025 = ╱f22600╱ // 0x2662 @0x25
0x263d…2667 at0028 = ╱ee╱ ) ╱ // 0x2665 @0x28
0x263d…2667 at0029 = EOL // 0x2666 @0x29
0x263d…2667 }
0x2667…2673 b262 02760 PRINT "<LI>"
0x2667…2673 LineComal80 {
0x2667…2673 ptr = 0xb262 // 0x2667 @0x0
0x2667…2673 lno = 0x0ac8 // 0x2669 @0x2
0x2667…2673 at0004 = ╱92╱ PRINT ╱ // 0x266b @0x4
0x2667…2673 at0005 = ╱22╱"╱ // 0x266c @0x5
0x2667…2673 at0006 = ╱3c╱<╱ // 0x266d @0x6
0x2667…2673 at0007 = ╱4c╱L╱ // 0x266e @0x7
0x2667…2673 at0008 = ╱49╱I╱ // 0x266f @0x8
0x2667…2673 at0009 = ╱3e╱>╱ // 0x2670 @0x9
0x2667…2673 at000a = ╱22╱"╱ // 0x2671 @0xa
0x2667…2673 at000b = EOL // 0x2672 @0xb
0x2667…2673 }
0x2673…2690 bac1 02000 EXEC PRINTRES ( "papir" , 12 )
0x2673…2690 LineComal80 {
0x2673…2690 ptr = 0xbac1 // 0x2673 @0x0
0x2673…2690 lno = 0x07d0 // 0x2675 @0x2
0x2673…2690 at0004 = ╱9d╱ EXEC ╱ // 0x2677 @0x4
0x2673…2690 at0005 = ╱50╱P╱ // 0x2678 @0x5
0x2673…2690 at0006 = ╱52╱R╱ // 0x2679 @0x6
0x2673…2690 at0007 = ╱49╱I╱ // 0x267a @0x7
0x2673…2690 at0008 = ╱4e╱N╱ // 0x267b @0x8
0x2673…2690 at0009 = ╱54╱T╱ // 0x267c @0x9
0x2673…2690 at000a = ╱52╱R╱ // 0x267d @0xa
0x2673…2690 at000b = ╱45╱E╱ // 0x267e @0xb
0x2673…2690 at000c = ╱53╱S╱ // 0x267f @0xc
0x2673…2690 at000d = ╱ed╱ ( ╱ // 0x2680 @0xd
0x2673…2690 at000e = ╱22╱"╱ // 0x2681 @0xe
0x2673…2690 at000f = ╱70╱p╱ // 0x2682 @0xf
0x2673…2690 at0010 = ╱61╱a╱ // 0x2683 @0x10
0x2673…2690 at0011 = ╱70╱p╱ // 0x2684 @0x11
0x2673…2690 at0012 = ╱69╱i╱ // 0x2685 @0x12
0x2673…2690 at0013 = ╱72╱r╱ // 0x2686 @0x13
0x2673…2690 at0014 = ╱22╱"╱ // 0x2687 @0x14
0x2673…2690 at0015 = ╱ec╱ , ╱ // 0x2688 @0x15
0x2673…2690 at0016 = ╱31╱1╱ // 0x2689 @0x16
0x2673…2690 at0017 = ╱32╱2╱ // 0x268a @0x17
0x2673…2690 at0018 = ╱f20c00╱ // 0x268b @0x18
0x2673…2690 at001b = ╱ee╱ ) ╱ // 0x268e @0x1b
0x2673…2690 at001c = EOL // 0x268f @0x1c
0x2673…2690 }
0x2690…2696 bc84 09900 //
0x2690…2696 LineComal80 {
0x2690…2696 ptr = 0xbc84 // 0x2690 @0x0
0x2690…2696 lno = 0x26ac // 0x2692 @0x2
0x2690…2696 at0004 = ╱89╱ // ╱ // 0x2694 @0x4
0x2690…2696 at0005 = EOL // 0x2695 @0x5
0x2690…2696 }
0x2696…26c9 bcb7 09901 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
0x2696…26c9 LineComal80 {
0x2696…26c9 ptr = 0xbcb7 // 0x2696 @0x0
0x2696…26c9 lno = 0x26ad // 0x2698 @0x2
0x2696…26c9 at0004 = ╱9e00╱ PROC ╱ // 0x269a @0x4
0x2696…26c9 at0006 = ╱50╱P╱ // 0x269c @0x6
0x2696…26c9 at0007 = ╱52╱R╱ // 0x269d @0x7
0x2696…26c9 at0008 = ╱49╱I╱ // 0x269e @0x8
0x2696…26c9 at0009 = ╱4e╱N╱ // 0x269f @0x9
0x2696…26c9 at000a = ╱54╱T╱ // 0x26a0 @0xa
0x2696…26c9 at000b = ╱52╱R╱ // 0x26a1 @0xb
0x2696…26c9 at000c = ╱45╱E╱ // 0x26a2 @0xc
0x2696…26c9 at000d = ╱53╱S╱ // 0x26a3 @0xd
0x2696…26c9 at000e = ╱ed╱ ( ╱ // 0x26a4 @0xe
0x2696…26c9 at000f = ╱50╱P╱ // 0x26a5 @0xf
0x2696…26c9 at0010 = ╱41╱A╱ // 0x26a6 @0x10
0x2696…26c9 at0011 = ╱47╱G╱ // 0x26a7 @0x11
0x2696…26c9 at0012 = ╱45╱E╱ // 0x26a8 @0x12
0x2696…26c9 at0013 = ╱54╱T╱ // 0x26a9 @0x13
0x2696…26c9 at0014 = ╱59╱Y╱ // 0x26aa @0x14
0x2696…26c9 at0015 = ╱50╱P╱ // 0x26ab @0x15
0x2696…26c9 at0016 = ╱45╱E╱ // 0x26ac @0x16
0x2696…26c9 at0017 = ╱ef╱ $ ╱ // 0x26ad @0x17
0x2696…26c9 at0018 = ╱ec╱ , ╱ // 0x26ae @0x18
0x2696…26c9 at0019 = ╱4c╱L╱ // 0x26af @0x19
0x2696…26c9 at001a = ╱49╱I╱ // 0x26b0 @0x1a
0x2696…26c9 at001b = ╱4e╱N╱ // 0x26b1 @0x1b
0x2696…26c9 at001c = ╱45╱E╱ // 0x26b2 @0x1c
0x2696…26c9 at001d = ╱ee╱ ) ╱ // 0x26b3 @0x1d
0x2696…26c9 at001e = ╱89╱ // ╱ // 0x26b4 @0x1e
0x2696…26c9 at001f = ╱50╱P╱ // 0x26b5 @0x1f
0x2696…26c9 at0020 = ╱52╱R╱ // 0x26b6 @0x20
0x2696…26c9 at0021 = ╱49╱I╱ // 0x26b7 @0x21
0x2696…26c9 at0022 = ╱4e╱N╱ // 0x26b8 @0x22
0x2696…26c9 at0023 = ╱54╱T╱ // 0x26b9 @0x23
0x2696…26c9 at0024 = ╱45╱E╱ // 0x26ba @0x24
0x2696…26c9 at0025 = ╱52╱R╱ // 0x26bb @0x25
0x2696…26c9 at0026 = ╱20╱…╱ // 0x26bc @0x26
0x2696…26c9 at0027 = ╱52╱R╱ // 0x26bd @0x27
0x2696…26c9 at0028 = ╱45╱E╱ // 0x26be @0x28
0x2696…26c9 at0029 = ╱53╱S╱ // 0x26bf @0x29
0x2696…26c9 at002a = ╱45╱E╱ // 0x26c0 @0x2a
0x2696…26c9 at002b = ╱52╱R╱ // 0x26c1 @0x2b
0x2696…26c9 at002c = ╱56╱V╱ // 0x26c2 @0x2c
0x2696…26c9 at002d = ╱41╱A╱ // 0x26c3 @0x2d
0x2696…26c9 at002e = ╱54╱T╱ // 0x26c4 @0x2e
0x2696…26c9 at002f = ╱49╱I╱ // 0x26c5 @0x2f
0x2696…26c9 at0030 = ╱4f╱O╱ // 0x26c6 @0x30
0x2696…26c9 at0031 = ╱4e╱N╱ // 0x26c7 @0x31
0x2696…26c9 at0032 = EOL // 0x26c8 @0x32
0x2696…26c9 }
0x26c9…26e1 bccf 09902 LET PRTNR $ := "1" ; OK := TRUE
0x26c9…26e1 LineComal80 {
0x26c9…26e1 ptr = 0xbccf // 0x26c9 @0x0
0x26c9…26e1 lno = 0x26ae // 0x26cb @0x2
0x26c9…26e1 at0004 = ╱86╱ LET ╱ // 0x26cd @0x4
0x26c9…26e1 at0005 = ╱50╱P╱ // 0x26ce @0x5
0x26c9…26e1 at0006 = ╱52╱R╱ // 0x26cf @0x6
0x26c9…26e1 at0007 = ╱54╱T╱ // 0x26d0 @0x7
0x26c9…26e1 at0008 = ╱4e╱N╱ // 0x26d1 @0x8
0x26c9…26e1 at0009 = ╱52╱R╱ // 0x26d2 @0x9
0x26c9…26e1 at000a = ╱ef╱ $ ╱ // 0x26d3 @0xa
0x26c9…26e1 at000b = ╱f0╱ := ╱ // 0x26d4 @0xb
0x26c9…26e1 at000c = ╱22╱"╱ // 0x26d5 @0xc
0x26c9…26e1 at000d = ╱31╱1╱ // 0x26d6 @0xd
0x26c9…26e1 at000e = ╱22╱"╱ // 0x26d7 @0xe
0x26c9…26e1 at000f = ╱ea╱ ; ╱ // 0x26d8 @0xf
0x26c9…26e1 at0010 = ╱4f╱O╱ // 0x26d9 @0x10
0x26c9…26e1 at0011 = ╱4b╱K╱ // 0x26da @0x11
0x26c9…26e1 at0012 = ╱f0╱ := ╱ // 0x26db @0x12
0x26c9…26e1 at0013 = ╱54╱T╱ // 0x26dc @0x13
0x26c9…26e1 at0014 = ╱52╱R╱ // 0x26dd @0x14
0x26c9…26e1 at0015 = ╱55╱U╱ // 0x26de @0x15
0x26c9…26e1 at0016 = ╱45╱E╱ // 0x26df @0x16
0x26c9…26e1 at0017 = EOL // 0x26e0 @0x17
0x26c9…26e1 }
0x26e1…26e8 bcd6 09903 REPEAT
0x26e1…26e8 LineComal80 {
0x26e1…26e8 ptr = 0xbcd6 // 0x26e1 @0x0
0x26e1…26e8 lno = 0x26af // 0x26e3 @0x2
0x26e1…26e8 at0004 = ╱9700╱ REPEAT ╱ // 0x26e5 @0x4
0x26e1…26e8 at0006 = EOL // 0x26e7 @0x6
0x26e1…26e8 }
0x26e8…26f8 bce6 09904 CURSOR 15 , LINE
0x26e8…26f8 LineComal80 {
0x26e8…26f8 ptr = 0xbce6 // 0x26e8 @0x0
0x26e8…26f8 lno = 0x26b0 // 0x26ea @0x2
0x26e8…26f8 at0004 = ╱a1╱ CURSOR ╱ // 0x26ec @0x4
0x26e8…26f8 at0005 = ╱31╱1╱ // 0x26ed @0x5
0x26e8…26f8 at0006 = ╱35╱5╱ // 0x26ee @0x6
0x26e8…26f8 at0007 = ╱f20f00╱ // 0x26ef @0x7
0x26e8…26f8 at000a = ╱ec╱ , ╱ // 0x26f2 @0xa
0x26e8…26f8 at000b = ╱4c╱L╱ // 0x26f3 @0xb
0x26e8…26f8 at000c = ╱49╱I╱ // 0x26f4 @0xc
0x26e8…26f8 at000d = ╱4e╱N╱ // 0x26f5 @0xd
0x26e8…26f8 at000e = ╱45╱E╱ // 0x26f6 @0xe
0x26e8…26f8 at000f = EOL // 0x26f7 @0xf
0x26e8…26f8 }
0x26f8…2731 bd1f 09905 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
0x26f8…2731 LineComal80 {
0x26f8…2731 ptr = 0xbd1f // 0x26f8 @0x0
0x26f8…2731 lno = 0x26b1 // 0x26fa @0x2
0x26f8…2731 at0004 = ╱b1╱ EDIT ╱ // 0x26fc @0x4
0x26f8…2731 at0005 = ╱22╱"╱ // 0x26fd @0x5
0x26f8…2731 at0006 = ╱3c╱<╱ // 0x26fe @0x6
0x26f8…2731 at0007 = ╱5a╱Z╱ // 0x26ff @0x7
0x26f8…2731 at0008 = ╱3e╱>╱ // 0x2700 @0x8
0x26f8…2731 at0009 = ╱55╱U╱ // 0x2701 @0x9
0x26f8…2731 at000a = ╱64╱d╱ // 0x2702 @0xa
0x26f8…2731 at000b = ╱73╱s╱ // 0x2703 @0xb
0x26f8…2731 at000c = ╱6b╱k╱ // 0x2704 @0xc
0x26f8…2731 at000d = ╱72╱r╱ // 0x2705 @0xd
0x26f8…2731 at000e = ╱69╱i╱ // 0x2706 @0xe
0x26f8…2731 at000f = ╱76╱v╱ // 0x2707 @0xf
0x26f8…2731 at0010 = ╱6e╱n╱ // 0x2708 @0x10
0x26f8…2731 at0011 = ╱69╱i╱ // 0x2709 @0x11
0x26f8…2731 at0012 = ╱6e╱n╱ // 0x270a @0x12
0x26f8…2731 at0013 = ╱67╱g╱ // 0x270b @0x13
0x26f8…2731 at0014 = ╱20╱…╱ // 0x270c @0x14
0x26f8…2731 at0015 = ╱70╱p╱ // 0x270d @0x15
0x26f8…2731 at0016 = ╱7d╱}╱ // 0x270e @0x16
0x26f8…2731 at0017 = ╱20╱…╱ // 0x270f @0x17
0x26f8…2731 at0018 = ╱70╱p╱ // 0x2710 @0x18
0x26f8…2731 at0019 = ╱72╱r╱ // 0x2711 @0x19
0x26f8…2731 at001a = ╱69╱i╱ // 0x2712 @0x1a
0x26f8…2731 at001b = ╱6e╱n╱ // 0x2713 @0x1b
0x26f8…2731 at001c = ╱74╱t╱ // 0x2714 @0x1c
0x26f8…2731 at001d = ╱65╱e╱ // 0x2715 @0x1d
0x26f8…2731 at001e = ╱72╱r╱ // 0x2716 @0x1e
0x26f8…2731 at001f = ╱20╱…╱ // 0x2717 @0x1f
0x26f8…2731 at0020 = ╱6e╱n╱ // 0x2718 @0x20
0x26f8…2731 at0021 = ╱72╱r╱ // 0x2719 @0x21
0x26f8…2731 at0022 = ╱2e╱.╱ // 0x271a @0x22
0x26f8…2731 at0023 = ╱20╱…╱ // 0x271b @0x23
0x26f8…2731 at0024 = ╱3f╱?╱ // 0x271c @0x24
0x26f8…2731 at0025 = ╱20╱…╱ // 0x271d @0x25
0x26f8…2731 at0026 = ╱28╱(╱ // 0x271e @0x26
0x26f8…2731 at0027 = ╱31╱1╱ // 0x271f @0x27
0x26f8…2731 at0028 = ╱2f╱/╱ // 0x2720 @0x28
0x26f8…2731 at0029 = ╱32╱2╱ // 0x2721 @0x29
0x26f8…2731 at002a = ╱2f╱/╱ // 0x2722 @0x2a
0x26f8…2731 at002b = ╱33╱3╱ // 0x2723 @0x2b
0x26f8…2731 at002c = ╱2f╱/╱ // 0x2724 @0x2c
0x26f8…2731 at002d = ╱34╱4╱ // 0x2725 @0x2d
0x26f8…2731 at002e = ╱29╱)╱ // 0x2726 @0x2e
0x26f8…2731 at002f = ╱20╱…╱ // 0x2727 @0x2f
0x26f8…2731 at0030 = ╱22╱"╱ // 0x2728 @0x30
0x26f8…2731 at0031 = ╱f1╱ : ╱ // 0x2729 @0x31
0x26f8…2731 at0032 = ╱50╱P╱ // 0x272a @0x32
0x26f8…2731 at0033 = ╱52╱R╱ // 0x272b @0x33
0x26f8…2731 at0034 = ╱54╱T╱ // 0x272c @0x34
0x26f8…2731 at0035 = ╱4e╱N╱ // 0x272d @0x35
0x26f8…2731 at0036 = ╱52╱R╱ // 0x272e @0x36
0x26f8…2731 at0037 = ╱ef╱ $ ╱ // 0x272f @0x37
0x26f8…2731 at0038 = EOL // 0x2730 @0x38
0x26f8…2731 }
0x2731…2751 bd3f 09906 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
0x2731…2751 LineComal80 {
0x2731…2751 ptr = 0xbd3f // 0x2731 @0x0
0x2731…2751 lno = 0x26b2 // 0x2733 @0x2
0x2731…2751 at0004 = ╱98╱ UNTIL ╱ // 0x2735 @0x4
0x2731…2751 at0005 = ╱22╱"╱ // 0x2736 @0x5
0x2731…2751 at0006 = ╱2f╱/╱ // 0x2737 @0x6
0x2731…2751 at0007 = ╱22╱"╱ // 0x2738 @0x7
0x2731…2751 at0008 = ╱eb╱ + ╱ // 0x2739 @0x8
0x2731…2751 at0009 = ╱50╱P╱ // 0x273a @0x9
0x2731…2751 at000a = ╱52╱R╱ // 0x273b @0xa
0x2731…2751 at000b = ╱54╱T╱ // 0x273c @0xb
0x2731…2751 at000c = ╱4e╱N╱ // 0x273d @0xc
0x2731…2751 at000d = ╱52╱R╱ // 0x273e @0xd
0x2731…2751 at000e = ╱ef╱ $ ╱ // 0x273f @0xe
0x2731…2751 at000f = ╱eb╱ + ╱ // 0x2740 @0xf
0x2731…2751 at0010 = ╱22╱"╱ // 0x2741 @0x10
0x2731…2751 at0011 = ╱2f╱/╱ // 0x2742 @0x11
0x2731…2751 at0012 = ╱22╱"╱ // 0x2743 @0x12
0x2731…2751 at0013 = ╱dc╱ IN ╱ // 0x2744 @0x13
0x2731…2751 at0014 = ╱22╱"╱ // 0x2745 @0x14
0x2731…2751 at0015 = ╱2f╱/╱ // 0x2746 @0x15
0x2731…2751 at0016 = ╱31╱1╱ // 0x2747 @0x16
0x2731…2751 at0017 = ╱2f╱/╱ // 0x2748 @0x17
0x2731…2751 at0018 = ╱32╱2╱ // 0x2749 @0x18
0x2731…2751 at0019 = ╱2f╱/╱ // 0x274a @0x19
0x2731…2751 at001a = ╱33╱3╱ // 0x274b @0x1a
0x2731…2751 at001b = ╱2f╱/╱ // 0x274c @0x1b
0x2731…2751 at001c = ╱34╱4╱ // 0x274d @0x1c
0x2731…2751 at001d = ╱2f╱/╱ // 0x274e @0x1d
0x2731…2751 at001e = ╱22╱"╱ // 0x274f @0x1e
0x2731…2751 at001f = EOL // 0x2750 @0x1f
0x2731…2751 }
0x2751…2760 bd4e 09907 CURSOR 1 , LINE
0x2751…2760 LineComal80 {
0x2751…2760 ptr = 0xbd4e // 0x2751 @0x0
0x2751…2760 lno = 0x26b3 // 0x2753 @0x2
0x2751…2760 at0004 = ╱a1╱ CURSOR ╱ // 0x2755 @0x4
0x2751…2760 at0005 = ╱31╱1╱ // 0x2756 @0x5
0x2751…2760 at0006 = ╱f20100╱ // 0x2757 @0x6
0x2751…2760 at0009 = ╱ec╱ , ╱ // 0x275a @0x9
0x2751…2760 at000a = ╱4c╱L╱ // 0x275b @0xa
0x2751…2760 at000b = ╱49╱I╱ // 0x275c @0xb
0x2751…2760 at000c = ╱4e╱N╱ // 0x275d @0xc
0x2751…2760 at000d = ╱45╱E╱ // 0x275e @0xd
0x2751…2760 at000e = EOL // 0x275f @0xe
0x2751…2760 }
0x2760…276b bd59 09908 PRINT "<Z>"
0x2760…276b LineComal80 {
0x2760…276b ptr = 0xbd59 // 0x2760 @0x0
0x2760…276b lno = 0x26b4 // 0x2762 @0x2
0x2760…276b at0004 = ╱92╱ PRINT ╱ // 0x2764 @0x4
0x2760…276b at0005 = ╱22╱"╱ // 0x2765 @0x5
0x2760…276b at0006 = ╱3c╱<╱ // 0x2766 @0x6
0x2760…276b at0007 = ╱5a╱Z╱ // 0x2767 @0x7
0x2760…276b at0008 = ╱3e╱>╱ // 0x2768 @0x8
0x2760…276b at0009 = ╱22╱"╱ // 0x2769 @0x9
0x2760…276b at000a = EOL // 0x276a @0xa
0x2760…276b }
0x276b…278f bd7d 09909 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
0x276b…278f LineComal80 {
0x276b…278f ptr = 0xbd7d // 0x276b @0x0
0x276b…278f lno = 0x26b5 // 0x276d @0x2
0x276b…278f at0004 = ╱a1╱ CURSOR ╱ // 0x276f @0x4
0x276b…278f at0005 = ╱ed╱ ( ╱ // 0x2770 @0x5
0x276b…278f at0006 = ╱33╱3╱ // 0x2771 @0x6
0x276b…278f at0007 = ╱39╱9╱ // 0x2772 @0x7
0x276b…278f at0008 = ╱f22700╱ // 0x2773 @0x8
0x276b…278f at000b = ╱e6╱ - ╱ // 0x2776 @0xb
0x276b…278f at000c = ╱cb╱ // 0x2777 @0xc
0x276b…278f at000d = ╱ed╱ ( ╱ // 0x2778 @0xd
0x276b…278f at000e = ╱50╱P╱ // 0x2779 @0xe
0x276b…278f at000f = ╱41╱A╱ // 0x277a @0xf
0x276b…278f at0010 = ╱47╱G╱ // 0x277b @0x10
0x276b…278f at0011 = ╱45╱E╱ // 0x277c @0x11
0x276b…278f at0012 = ╱54╱T╱ // 0x277d @0x12
0x276b…278f at0013 = ╱59╱Y╱ // 0x277e @0x13
0x276b…278f at0014 = ╱50╱P╱ // 0x277f @0x14
0x276b…278f at0015 = ╱45╱E╱ // 0x2780 @0x15
0x276b…278f at0016 = ╱ef╱ $ ╱ // 0x2781 @0x16
0x276b…278f at0017 = ╱ee╱ ) ╱ // 0x2782 @0x17
0x276b…278f at0018 = ╱ee╱ ) ╱ // 0x2783 @0x18
0x276b…278f at0019 = ╱da╱ DIV ╱ // 0x2784 @0x19
0x276b…278f at001a = ╱32╱2╱ // 0x2785 @0x1a
0x276b…278f at001b = ╱f20200╱ // 0x2786 @0x1b
0x276b…278f at001e = ╱ec╱ , ╱ // 0x2789 @0x1e
0x276b…278f at001f = ╱4c╱L╱ // 0x278a @0x1f
0x276b…278f at0020 = ╱49╱I╱ // 0x278b @0x20
0x276b…278f at0021 = ╱4e╱N╱ // 0x278c @0x21
0x276b…278f at0022 = ╱45╱E╱ // 0x278d @0x22
0x276b…278f at0023 = EOL // 0x278e @0x23
0x276b…278f }
0x278f…27cf bdbd 09910 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
0x278f…27cf LineComal80 {
0x278f…27cf ptr = 0xbdbd // 0x278f @0x0
0x278f…27cf lno = 0x26b6 // 0x2791 @0x2
0x278f…27cf at0004 = ╱92╱ PRINT ╱ // 0x2793 @0x4
0x278f…27cf at0005 = ╱22╱"╱ // 0x2794 @0x5
0x278f…27cf at0006 = ╱3c╱<╱ // 0x2795 @0x6
0x278f…27cf at0007 = ╱53╱S╱ // 0x2796 @0x7
0x278f…27cf at0008 = ╱5a╱Z╱ // 0x2797 @0x8
0x278f…27cf at0009 = ╱3e╱>╱ // 0x2798 @0x9
0x278f…27cf at000a = ╱20╱…╱ // 0x2799 @0xa
0x278f…27cf at000b = ╱20╱…╱ // 0x279a @0xb
0x278f…27cf at000c = ╱20╱…╱ // 0x279b @0xc
0x278f…27cf at000d = ╱20╱…╱ // 0x279c @0xd
0x278f…27cf at000e = ╱20╱…╱ // 0x279d @0xe
0x278f…27cf at000f = ╱4d╱M╱ // 0x279e @0xf
0x278f…27cf at0010 = ╱6f╱o╱ // 0x279f @0x10
0x278f…27cf at0011 = ╱6e╱n╱ // 0x27a0 @0x11
0x278f…27cf at0012 = ╱74╱t╱ // 0x27a1 @0x12
0x278f…27cf at0013 = ╱65╱e╱ // 0x27a2 @0x13
0x278f…27cf at0014 = ╱72╱r╱ // 0x27a3 @0x14
0x278f…27cf at0015 = ╱20╱…╱ // 0x27a4 @0x15
0x278f…27cf at0016 = ╱22╱"╱ // 0x27a5 @0x16
0x278f…27cf at0017 = ╱ea╱ ; ╱ // 0x27a6 @0x17
0x278f…27cf at0018 = ╱50╱P╱ // 0x27a7 @0x18
0x278f…27cf at0019 = ╱41╱A╱ // 0x27a8 @0x19
0x278f…27cf at001a = ╱47╱G╱ // 0x27a9 @0x1a
0x278f…27cf at001b = ╱45╱E╱ // 0x27aa @0x1b
0x278f…27cf at001c = ╱54╱T╱ // 0x27ab @0x1c
0x278f…27cf at001d = ╱59╱Y╱ // 0x27ac @0x1d
0x278f…27cf at001e = ╱50╱P╱ // 0x27ad @0x1e
0x278f…27cf at001f = ╱45╱E╱ // 0x27ae @0x1f
0x278f…27cf at0020 = ╱ef╱ $ ╱ // 0x27af @0x20
0x278f…27cf at0021 = ╱ea╱ ; ╱ // 0x27b0 @0x21
0x278f…27cf at0022 = ╱22╱"╱ // 0x27b1 @0x22
0x278f…27cf at0023 = ╱20╱…╱ // 0x27b2 @0x23
0x278f…27cf at0024 = ╱69╱i╱ // 0x27b3 @0x24
0x278f…27cf at0025 = ╱20╱…╱ // 0x27b4 @0x25
0x278f…27cf at0026 = ╱70╱p╱ // 0x27b5 @0x26
0x278f…27cf at0027 = ╱72╱r╱ // 0x27b6 @0x27
0x278f…27cf at0028 = ╱69╱i╱ // 0x27b7 @0x28
0x278f…27cf at0029 = ╱6e╱n╱ // 0x27b8 @0x29
0x278f…27cf at002a = ╱74╱t╱ // 0x27b9 @0x2a
0x278f…27cf at002b = ╱65╱e╱ // 0x27ba @0x2b
0x278f…27cf at002c = ╱72╱r╱ // 0x27bb @0x2c
0x278f…27cf at002d = ╱65╱e╱ // 0x27bc @0x2d
0x278f…27cf at002e = ╱6e╱n╱ // 0x27bd @0x2e
0x278f…27cf at002f = ╱20╱…╱ // 0x27be @0x2f
0x278f…27cf at0030 = ╱2d╱-╱ // 0x27bf @0x30
0x278f…27cf at0031 = ╱20╱…╱ // 0x27c0 @0x31
0x278f…27cf at0032 = ╱74╱t╱ // 0x27c1 @0x32
0x278f…27cf at0033 = ╱72╱r╱ // 0x27c2 @0x33
0x278f…27cf at0034 = ╱79╱y╱ // 0x27c3 @0x34
0x278f…27cf at0035 = ╱6b╱k╱ // 0x27c4 @0x35
0x278f…27cf at0036 = ╱20╱…╱ // 0x27c5 @0x36
0x278f…27cf at0037 = ╱52╱R╱ // 0x27c6 @0x37
0x278f…27cf at0038 = ╱45╱E╱ // 0x27c7 @0x38
0x278f…27cf at0039 = ╱54╱T╱ // 0x27c8 @0x39
0x278f…27cf at003a = ╱55╱U╱ // 0x27c9 @0x3a
0x278f…27cf at003b = ╱52╱R╱ // 0x27ca @0x3b
0x278f…27cf at003c = ╱4e╱N╱ // 0x27cb @0x3c
0x278f…27cf at003d = ╱20╱…╱ // 0x27cc @0x3d
0x278f…27cf at003e = ╱22╱"╱ // 0x27cd @0x3e
0x278f…27cf at003f = EOL // 0x27ce @0x3f
0x278f…27cf }
0x27cf…27dd bdcb 09911 INPUT "" : SVAR $
0x27cf…27dd LineComal80 {
0x27cf…27dd ptr = 0xbdcb // 0x27cf @0x0
0x27cf…27dd lno = 0x26b7 // 0x27d1 @0x2
0x27cf…27dd at0004 = ╱91╱ INPUT ╱ // 0x27d3 @0x4
0x27cf…27dd at0005 = ╱22╱"╱ // 0x27d4 @0x5
0x27cf…27dd at0006 = ╱22╱"╱ // 0x27d5 @0x6
0x27cf…27dd at0007 = ╱f1╱ : ╱ // 0x27d6 @0x7
0x27cf…27dd at0008 = ╱53╱S╱ // 0x27d7 @0x8
0x27cf…27dd at0009 = ╱56╱V╱ // 0x27d8 @0x9
0x27cf…27dd at000a = ╱41╱A╱ // 0x27d9 @0xa
0x27cf…27dd at000b = ╱52╱R╱ // 0x27da @0xb
0x27cf…27dd at000c = ╱ef╱ $ ╱ // 0x27db @0xc
0x27cf…27dd at000d = EOL // 0x27dc @0xd
0x27cf…27dd }
0x27dd…27ed bddb 09912 SELECT OUTPUT "P" + PRTNR $
0x27dd…27ed LineComal80 {
0x27dd…27ed ptr = 0xbddb // 0x27dd @0x0
0x27dd…27ed lno = 0x26b8 // 0x27df @0x2
0x27dd…27ed at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x27e1 @0x4
0x27dd…27ed at0005 = ╱22╱"╱ // 0x27e2 @0x5
0x27dd…27ed at0006 = ╱50╱P╱ // 0x27e3 @0x6
0x27dd…27ed at0007 = ╱22╱"╱ // 0x27e4 @0x7
0x27dd…27ed at0008 = ╱eb╱ + ╱ // 0x27e5 @0x8
0x27dd…27ed at0009 = ╱50╱P╱ // 0x27e6 @0x9
0x27dd…27ed at000a = ╱52╱R╱ // 0x27e7 @0xa
0x27dd…27ed at000b = ╱54╱T╱ // 0x27e8 @0xb
0x27dd…27ed at000c = ╱4e╱N╱ // 0x27e9 @0xc
0x27dd…27ed at000d = ╱52╱R╱ // 0x27ea @0xd
0x27dd…27ed at000e = ╱ef╱ $ ╱ // 0x27eb @0xe
0x27dd…27ed at000f = EOL // 0x27ec @0xf
0x27dd…27ed }
0x27ed…27fb bde9 09913 IF ( "P" ) THEN
0x27ed…27fb LineComal80 {
0x27ed…27fb ptr = 0xbde9 // 0x27ed @0x0
0x27ed…27fb lno = 0x26b9 // 0x27ef @0x2
0x27ed…27fb at0004 = ╱9b00cd╱ IF ╱ // 0x27f1 @0x4
0x27ed…27fb at0007 = ╱ed╱ ( ╱ // 0x27f4 @0x7
0x27ed…27fb at0008 = ╱22╱"╱ // 0x27f5 @0x8
0x27ed…27fb at0009 = ╱50╱P╱ // 0x27f6 @0x9
0x27ed…27fb at000a = ╱22╱"╱ // 0x27f7 @0xa
0x27ed…27fb at000b = ╱ee╱ ) ╱ // 0x27f8 @0xb
0x27ed…27fb at000c = ╱b5╱ THEN ╱ // 0x27f9 @0xc
0x27ed…27fb at000d = EOL // 0x27fa @0xd
0x27ed…27fb }
0x27fb…280b bdf9 09914 CURSOR 12 , LINE
0x27fb…280b LineComal80 {
0x27fb…280b ptr = 0xbdf9 // 0x27fb @0x0
0x27fb…280b lno = 0x26ba // 0x27fd @0x2
0x27fb…280b at0004 = ╱a1╱ CURSOR ╱ // 0x27ff @0x4
0x27fb…280b at0005 = ╱31╱1╱ // 0x2800 @0x5
0x27fb…280b at0006 = ╱32╱2╱ // 0x2801 @0x6
0x27fb…280b at0007 = ╱f20c00╱ // 0x2802 @0x7
0x27fb…280b at000a = ╱ec╱ , ╱ // 0x2805 @0xa
0x27fb…280b at000b = ╱4c╱L╱ // 0x2806 @0xb
0x27fb…280b at000c = ╱49╱I╱ // 0x2807 @0xc
0x27fb…280b at000d = ╱4e╱N╱ // 0x2808 @0xd
0x27fb…280b at000e = ╱45╱E╱ // 0x2809 @0xe
0x27fb…280b at000f = EOL // 0x280a @0xf
0x27fb…280b }
0x280b…2842 be30 09915 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
0x280b…2842 LineComal80 {
0x280b…2842 ptr = 0xbe30 // 0x280b @0x0
0x280b…2842 lno = 0x26bb // 0x280d @0x2
0x280b…2842 at0004 = ╱92╱ PRINT ╱ // 0x280f @0x4
0x280b…2842 at0005 = ╱22╱"╱ // 0x2810 @0x5
0x280b…2842 at0006 = ╱3c╱<╱ // 0x2811 @0x6
0x280b…2842 at0007 = ╱53╱S╱ // 0x2812 @0x7
0x280b…2842 at0008 = ╱5a╱Z╱ // 0x2813 @0x8
0x280b…2842 at0009 = ╱3e╱>╱ // 0x2814 @0x9
0x280b…2842 at000a = ╱50╱P╱ // 0x2815 @0xa
0x280b…2842 at000b = ╱72╱r╱ // 0x2816 @0xb
0x280b…2842 at000c = ╱69╱i╱ // 0x2817 @0xc
0x280b…2842 at000d = ╱6e╱n╱ // 0x2818 @0xd
0x280b…2842 at000e = ╱74╱t╱ // 0x2819 @0xe
0x280b…2842 at000f = ╱65╱e╱ // 0x281a @0xf
0x280b…2842 at0010 = ╱72╱r╱ // 0x281b @0x10
0x280b…2842 at0011 = ╱65╱e╱ // 0x281c @0x11
0x280b…2842 at0012 = ╱6e╱n╱ // 0x281d @0x12
0x280b…2842 at0013 = ╱20╱…╱ // 0x281e @0x13
0x280b…2842 at0014 = ╱65╱e╱ // 0x281f @0x14
0x280b…2842 at0015 = ╱72╱r╱ // 0x2820 @0x15
0x280b…2842 at0016 = ╱20╱…╱ // 0x2821 @0x16
0x280b…2842 at0017 = ╱72╱r╱ // 0x2822 @0x17
0x280b…2842 at0018 = ╱65╱e╱ // 0x2823 @0x18
0x280b…2842 at0019 = ╱73╱s╱ // 0x2824 @0x19
0x280b…2842 at001a = ╱65╱e╱ // 0x2825 @0x1a
0x280b…2842 at001b = ╱72╱r╱ // 0x2826 @0x1b
0x280b…2842 at001c = ╱76╱v╱ // 0x2827 @0x1c
0x280b…2842 at001d = ╱65╱e╱ // 0x2828 @0x1d
0x280b…2842 at001e = ╱72╱r╱ // 0x2829 @0x1e
0x280b…2842 at001f = ╱65╱e╱ // 0x282a @0x1f
0x280b…2842 at0020 = ╱74╱t╱ // 0x282b @0x20
0x280b…2842 at0021 = ╱20╱…╱ // 0x282c @0x21
0x280b…2842 at0022 = ╱61╱a╱ // 0x282d @0x22
0x280b…2842 at0023 = ╱66╱f╱ // 0x282e @0x23
0x280b…2842 at0024 = ╱20╱…╱ // 0x282f @0x24
0x280b…2842 at0025 = ╱65╱e╱ // 0x2830 @0x25
0x280b…2842 at0026 = ╱6e╱n╱ // 0x2831 @0x26
0x280b…2842 at0027 = ╱20╱…╱ // 0x2832 @0x27
0x280b…2842 at0028 = ╱61╱a╱ // 0x2833 @0x28
0x280b…2842 at0029 = ╱6e╱n╱ // 0x2834 @0x29
0x280b…2842 at002a = ╱64╱d╱ // 0x2835 @0x2a
0x280b…2842 at002b = ╱65╱e╱ // 0x2836 @0x2b
0x280b…2842 at002c = ╱6e╱n╱ // 0x2837 @0x2c
0x280b…2842 at002d = ╱20╱…╱ // 0x2838 @0x2d
0x280b…2842 at002e = ╱62╱b╱ // 0x2839 @0x2e
0x280b…2842 at002f = ╱72╱r╱ // 0x283a @0x2f
0x280b…2842 at0030 = ╱75╱u╱ // 0x283b @0x30
0x280b…2842 at0031 = ╱67╱g╱ // 0x283c @0x31
0x280b…2842 at0032 = ╱65╱e╱ // 0x283d @0x32
0x280b…2842 at0033 = ╱72╱r╱ // 0x283e @0x33
0x280b…2842 at0034 = ╱2c╱,╱ // 0x283f @0x34
0x280b…2842 at0035 = ╱22╱"╱ // 0x2840 @0x35
0x280b…2842 at0036 = EOL // 0x2841 @0x36
0x280b…2842 }
0x2842…2857 be45 09916 CURSOR 12 , LINE + 1
0x2842…2857 LineComal80 {
0x2842…2857 ptr = 0xbe45 // 0x2842 @0x0
0x2842…2857 lno = 0x26bc // 0x2844 @0x2
0x2842…2857 at0004 = ╱a1╱ CURSOR ╱ // 0x2846 @0x4
0x2842…2857 at0005 = ╱31╱1╱ // 0x2847 @0x5
0x2842…2857 at0006 = ╱32╱2╱ // 0x2848 @0x6
0x2842…2857 at0007 = ╱f20c00╱ // 0x2849 @0x7
0x2842…2857 at000a = ╱ec╱ , ╱ // 0x284c @0xa
0x2842…2857 at000b = ╱4c╱L╱ // 0x284d @0xb
0x2842…2857 at000c = ╱49╱I╱ // 0x284e @0xc
0x2842…2857 at000d = ╱4e╱N╱ // 0x284f @0xd
0x2842…2857 at000e = ╱45╱E╱ // 0x2850 @0xe
0x2842…2857 at000f = ╱e5╱ + ╱ // 0x2851 @0xf
0x2842…2857 at0010 = ╱31╱1╱ // 0x2852 @0x10
0x2842…2857 at0011 = ╱f20100╱ // 0x2853 @0x11
0x2842…2857 at0014 = EOL // 0x2856 @0x14
0x2842…2857 }
0x2857…2898 be86 09917 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
0x2857…2898 LineComal80 {
0x2857…2898 ptr = 0xbe86 // 0x2857 @0x0
0x2857…2898 lno = 0x26bd // 0x2859 @0x2
0x2857…2898 at0004 = ╱91╱ INPUT ╱ // 0x285b @0x4
0x2857…2898 at0005 = ╱22╱"╱ // 0x285c @0x5
0x2857…2898 at0006 = ╱3c╱<╱ // 0x285d @0x6
0x2857…2898 at0007 = ╱53╱S╱ // 0x285e @0x7
0x2857…2898 at0008 = ╱5a╱Z╱ // 0x285f @0x8
0x2857…2898 at0009 = ╱3e╱>╱ // 0x2860 @0x9
0x2857…2898 at000a = ╱53╱S╱ // 0x2861 @0xa
0x2857…2898 at000b = ╱6b╱k╱ // 0x2862 @0xb
0x2857…2898 at000c = ╱61╱a╱ // 0x2863 @0xc
0x2857…2898 at000d = ╱6c╱l╱ // 0x2864 @0xd
0x2857…2898 at000e = ╱20╱…╱ // 0x2865 @0xe
0x2857…2898 at000f = ╱64╱d╱ // 0x2866 @0xf
0x2857…2898 at0010 = ╱65╱e╱ // 0x2867 @0x10
0x2857…2898 at0011 = ╱72╱r╱ // 0x2868 @0x11
0x2857…2898 at0012 = ╱20╱…╱ // 0x2869 @0x12
0x2857…2898 at0013 = ╱76╱v╱ // 0x286a @0x13
0x2857…2898 at0014 = ╱65╱e╱ // 0x286b @0x14
0x2857…2898 at0015 = ╱6e╱n╱ // 0x286c @0x15
0x2857…2898 at0016 = ╱74╱t╱ // 0x286d @0x16
0x2857…2898 at0017 = ╱65╱e╱ // 0x286e @0x17
0x2857…2898 at0018 = ╱73╱s╱ // 0x286f @0x18
0x2857…2898 at0019 = ╱20╱…╱ // 0x2870 @0x19
0x2857…2898 at001a = ╱70╱p╱ // 0x2871 @0x1a
0x2857…2898 at001b = ╱7d╱}╱ // 0x2872 @0x1b
0x2857…2898 at001c = ╱20╱…╱ // 0x2873 @0x1c
0x2857…2898 at001d = ╱61╱a╱ // 0x2874 @0x1d
0x2857…2898 at001e = ╱74╱t╱ // 0x2875 @0x1e
0x2857…2898 at001f = ╱20╱…╱ // 0x2876 @0x1f
0x2857…2898 at0020 = ╱64╱d╱ // 0x2877 @0x20
0x2857…2898 at0021 = ╱65╱e╱ // 0x2878 @0x21
0x2857…2898 at0022 = ╱6e╱n╱ // 0x2879 @0x22
0x2857…2898 at0023 = ╱20╱…╱ // 0x287a @0x23
0x2857…2898 at0024 = ╱62╱b╱ // 0x287b @0x24
0x2857…2898 at0025 = ╱6c╱l╱ // 0x287c @0x25
0x2857…2898 at0026 = ╱69╱i╱ // 0x287d @0x26
0x2857…2898 at0027 = ╱76╱v╱ // 0x287e @0x27
0x2857…2898 at0028 = ╱65╱e╱ // 0x287f @0x28
0x2857…2898 at0029 = ╱72╱r╱ // 0x2880 @0x29
0x2857…2898 at002a = ╱20╱…╱ // 0x2881 @0x2a
0x2857…2898 at002b = ╱6c╱l╱ // 0x2882 @0x2b
0x2857…2898 at002c = ╱65╱e╱ // 0x2883 @0x2c
0x2857…2898 at002d = ╱64╱d╱ // 0x2884 @0x2d
0x2857…2898 at002e = ╱69╱i╱ // 0x2885 @0x2e
0x2857…2898 at002f = ╱67╱g╱ // 0x2886 @0x2f
0x2857…2898 at0030 = ╱20╱…╱ // 0x2887 @0x30
0x2857…2898 at0031 = ╱3f╱?╱ // 0x2888 @0x31
0x2857…2898 at0032 = ╱20╱…╱ // 0x2889 @0x32
0x2857…2898 at0033 = ╱28╱(╱ // 0x288a @0x33
0x2857…2898 at0034 = ╱6a╱j╱ // 0x288b @0x34
0x2857…2898 at0035 = ╱2f╱/╱ // 0x288c @0x35
0x2857…2898 at0036 = ╱6e╱n╱ // 0x288d @0x36
0x2857…2898 at0037 = ╱29╱)╱ // 0x288e @0x37
0x2857…2898 at0038 = ╱20╱…╱ // 0x288f @0x38
0x2857…2898 at0039 = ╱22╱"╱ // 0x2890 @0x39
0x2857…2898 at003a = ╱f1╱ : ╱ // 0x2891 @0x3a
0x2857…2898 at003b = ╱53╱S╱ // 0x2892 @0x3b
0x2857…2898 at003c = ╱56╱V╱ // 0x2893 @0x3c
0x2857…2898 at003d = ╱41╱A╱ // 0x2894 @0x3d
0x2857…2898 at003e = ╱52╱R╱ // 0x2895 @0x3e
0x2857…2898 at003f = ╱ef╱ $ ╱ // 0x2896 @0x3f
0x2857…2898 at0040 = EOL // 0x2897 @0x40
0x2857…2898 }
0x2898…28b3 bea1 09918 IF VAR $ = "J" OR SVAR $ = "j" THEN
0x2898…28b3 LineComal80 {
0x2898…28b3 ptr = 0xbea1 // 0x2898 @0x0
0x2898…28b3 lno = 0x26be // 0x289a @0x2
0x2898…28b3 at0004 = ╱9b0053╱ IF ╱ // 0x289c @0x4
0x2898…28b3 at0007 = ╱56╱V╱ // 0x289f @0x7
0x2898…28b3 at0008 = ╱41╱A╱ // 0x28a0 @0x8
0x2898…28b3 at0009 = ╱52╱R╱ // 0x28a1 @0x9
0x2898…28b3 at000a = ╱ef╱ $ ╱ // 0x28a2 @0xa
0x2898…28b3 at000b = ╱df╱ = ╱ // 0x28a3 @0xb
0x2898…28b3 at000c = ╱22╱"╱ // 0x28a4 @0xc
0x2898…28b3 at000d = ╱4a╱J╱ // 0x28a5 @0xd
0x2898…28b3 at000e = ╱22╱"╱ // 0x28a6 @0xe
0x2898…28b3 at000f = ╱d8╱ OR ╱ // 0x28a7 @0xf
0x2898…28b3 at0010 = ╱53╱S╱ // 0x28a8 @0x10
0x2898…28b3 at0011 = ╱56╱V╱ // 0x28a9 @0x11
0x2898…28b3 at0012 = ╱41╱A╱ // 0x28aa @0x12
0x2898…28b3 at0013 = ╱52╱R╱ // 0x28ab @0x13
0x2898…28b3 at0014 = ╱ef╱ $ ╱ // 0x28ac @0x14
0x2898…28b3 at0015 = ╱df╱ = ╱ // 0x28ad @0x15
0x2898…28b3 at0016 = ╱22╱"╱ // 0x28ae @0x16
0x2898…28b3 at0017 = ╱6a╱j╱ // 0x28af @0x17
0x2898…28b3 at0018 = ╱22╱"╱ // 0x28b0 @0x18
0x2898…28b3 at0019 = ╱b5╱ THEN ╱ // 0x28b1 @0x19
0x2898…28b3 at001a = EOL // 0x28b2 @0x1a
0x2898…28b3 }
0x28b3…28c3 beb1 09919 CURSOR 12 , LINE
0x28b3…28c3 LineComal80 {
0x28b3…28c3 ptr = 0xbeb1 // 0x28b3 @0x0
0x28b3…28c3 lno = 0x26bf // 0x28b5 @0x2
0x28b3…28c3 at0004 = ╱a1╱ CURSOR ╱ // 0x28b7 @0x4
0x28b3…28c3 at0005 = ╱31╱1╱ // 0x28b8 @0x5
0x28b3…28c3 at0006 = ╱32╱2╱ // 0x28b9 @0x6
0x28b3…28c3 at0007 = ╱f20c00╱ // 0x28ba @0x7
0x28b3…28c3 at000a = ╱ec╱ , ╱ // 0x28bd @0xa
0x28b3…28c3 at000b = ╱4c╱L╱ // 0x28be @0xb
0x28b3…28c3 at000c = ╱49╱I╱ // 0x28bf @0xc
0x28b3…28c3 at000d = ╱4e╱N╱ // 0x28c0 @0xd
0x28b3…28c3 at000e = ╱45╱E╱ // 0x28c1 @0xe
0x28b3…28c3 at000f = EOL // 0x28c2 @0xf
0x28b3…28c3 }
0x28c3…28fe beec 09920 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
0x28c3…28fe LineComal80 {
0x28c3…28fe ptr = 0xbeec // 0x28c3 @0x0
0x28c3…28fe lno = 0x26c0 // 0x28c5 @0x2
0x28c3…28fe at0004 = ╱92╱ PRINT ╱ // 0x28c7 @0x4
0x28c3…28fe at0005 = ╱22╱"╱ // 0x28c8 @0x5
0x28c3…28fe at0006 = ╱3c╱<╱ // 0x28c9 @0x6
0x28c3…28fe at0007 = ╱5a╱Z╱ // 0x28ca @0x7
0x28c3…28fe at0008 = ╱3e╱>╱ // 0x28cb @0x8
0x28c3…28fe at0009 = ╱20╱…╱ // 0x28cc @0x9
0x28c3…28fe at000a = ╱20╱…╱ // 0x28cd @0xa
0x28c3…28fe at000b = ╱20╱…╱ // 0x28ce @0xb
0x28c3…28fe at000c = ╱20╱…╱ // 0x28cf @0xc
0x28c3…28fe at000d = ╱20╱…╱ // 0x28d0 @0xd
0x28c3…28fe at000e = ╱44╱D╱ // 0x28d1 @0xe
0x28c3…28fe at000f = ╱65╱e╱ // 0x28d2 @0xf
0x28c3…28fe at0010 = ╱72╱r╱ // 0x28d3 @0x10
0x28c3…28fe at0011 = ╱20╱…╱ // 0x28d4 @0x11
0x28c3…28fe at0012 = ╱76╱v╱ // 0x28d5 @0x12
0x28c3…28fe at0013 = ╱65╱e╱ // 0x28d6 @0x13
0x28c3…28fe at0014 = ╱6e╱n╱ // 0x28d7 @0x14
0x28c3…28fe at0015 = ╱74╱t╱ // 0x28d8 @0x15
0x28c3…28fe at0016 = ╱65╱e╱ // 0x28d9 @0x16
0x28c3…28fe at0017 = ╱73╱s╱ // 0x28da @0x17
0x28c3…28fe at0018 = ╱20╱…╱ // 0x28db @0x18
0x28c3…28fe at0019 = ╱70╱p╱ // 0x28dc @0x19
0x28c3…28fe at001a = ╱7d╱}╱ // 0x28dd @0x1a
0x28c3…28fe at001b = ╱20╱…╱ // 0x28de @0x1b
0x28c3…28fe at001c = ╱61╱a╱ // 0x28df @0x1c
0x28c3…28fe at001d = ╱74╱t╱ // 0x28e0 @0x1d
0x28c3…28fe at001e = ╱20╱…╱ // 0x28e1 @0x1e
0x28c3…28fe at001f = ╱70╱p╱ // 0x28e2 @0x1f
0x28c3…28fe at0020 = ╱72╱r╱ // 0x28e3 @0x20
0x28c3…28fe at0021 = ╱69╱i╱ // 0x28e4 @0x21
0x28c3…28fe at0022 = ╱6e╱n╱ // 0x28e5 @0x22
0x28c3…28fe at0023 = ╱74╱t╱ // 0x28e6 @0x23
0x28c3…28fe at0024 = ╱65╱e╱ // 0x28e7 @0x24
0x28c3…28fe at0025 = ╱72╱r╱ // 0x28e8 @0x25
0x28c3…28fe at0026 = ╱65╱e╱ // 0x28e9 @0x26
0x28c3…28fe at0027 = ╱6e╱n╱ // 0x28ea @0x27
0x28c3…28fe at0028 = ╱20╱…╱ // 0x28eb @0x28
0x28c3…28fe at0029 = ╱62╱b╱ // 0x28ec @0x29
0x28c3…28fe at002a = ╱6c╱l╱ // 0x28ed @0x2a
0x28c3…28fe at002b = ╱69╱i╱ // 0x28ee @0x2b
0x28c3…28fe at002c = ╱76╱v╱ // 0x28ef @0x2c
0x28c3…28fe at002d = ╱65╱e╱ // 0x28f0 @0x2d
0x28c3…28fe at002e = ╱72╱r╱ // 0x28f1 @0x2e
0x28c3…28fe at002f = ╱20╱…╱ // 0x28f2 @0x2f
0x28c3…28fe at0030 = ╱6c╱l╱ // 0x28f3 @0x30
0x28c3…28fe at0031 = ╱65╱e╱ // 0x28f4 @0x31
0x28c3…28fe at0032 = ╱64╱d╱ // 0x28f5 @0x32
0x28c3…28fe at0033 = ╱69╱i╱ // 0x28f6 @0x33
0x28c3…28fe at0034 = ╱67╱g╱ // 0x28f7 @0x34
0x28c3…28fe at0035 = ╱2e╱.╱ // 0x28f8 @0x35
0x28c3…28fe at0036 = ╱2e╱.╱ // 0x28f9 @0x36
0x28c3…28fe at0037 = ╱2e╱.╱ // 0x28fa @0x37
0x28c3…28fe at0038 = ╱2e╱.╱ // 0x28fb @0x38
0x28c3…28fe at0039 = ╱22╱"╱ // 0x28fc @0x39
0x28c3…28fe at003a = EOL // 0x28fd @0x3a
0x28c3…28fe }
0x28fe…290a bef8 09921 PRINT "<SZ>"
0x28fe…290a LineComal80 {
0x28fe…290a ptr = 0xbef8 // 0x28fe @0x0
0x28fe…290a lno = 0x26c1 // 0x2900 @0x2
0x28fe…290a at0004 = ╱92╱ PRINT ╱ // 0x2902 @0x4
0x28fe…290a at0005 = ╱22╱"╱ // 0x2903 @0x5
0x28fe…290a at0006 = ╱3c╱<╱ // 0x2904 @0x6
0x28fe…290a at0007 = ╱53╱S╱ // 0x2905 @0x7
0x28fe…290a at0008 = ╱5a╱Z╱ // 0x2906 @0x8
0x28fe…290a at0009 = ╱3e╱>╱ // 0x2907 @0x9
0x28fe…290a at000a = ╱22╱"╱ // 0x2908 @0xa
0x28fe…290a at000b = EOL // 0x2909 @0xb
0x28fe…290a }
0x290a…2918 bf06 09922 WHILE ╱cd╱ ( "P" ) DO
0x290a…2918 LineComal80 {
0x290a…2918 ptr = 0xbf06 // 0x290a @0x0
0x290a…2918 lno = 0x26c2 // 0x290c @0x2
0x290a…2918 at0004 = ╱9300╱ WHILE ╱ // 0x290e @0x4
0x290a…2918 at0006 = ╱cd╱ // 0x2910 @0x6
0x290a…2918 at0007 = ╱ed╱ ( ╱ // 0x2911 @0x7
0x290a…2918 at0008 = ╱22╱"╱ // 0x2912 @0x8
0x290a…2918 at0009 = ╱50╱P╱ // 0x2913 @0x9
0x290a…2918 at000a = ╱22╱"╱ // 0x2914 @0xa
0x290a…2918 at000b = ╱ee╱ ) ╱ // 0x2915 @0xb
0x290a…2918 at000c = ╱bb╱ DO ╱ // 0x2916 @0xc
0x290a…2918 at000d = EOL // 0x2917 @0xd
0x290a…2918 }
0x2918…2929 bf17 09923 LET SEK := ╱ca╱ ( 5 )
0x2918…2929 LineComal80 {
0x2918…2929 ptr = 0xbf17 // 0x2918 @0x0
0x2918…2929 lno = 0x26c3 // 0x291a @0x2
0x2918…2929 at0004 = ╱86╱ LET ╱ // 0x291c @0x4
0x2918…2929 at0005 = ╱53╱S╱ // 0x291d @0x5
0x2918…2929 at0006 = ╱45╱E╱ // 0x291e @0x6
0x2918…2929 at0007 = ╱4b╱K╱ // 0x291f @0x7
0x2918…2929 at0008 = ╱f0╱ := ╱ // 0x2920 @0x8
0x2918…2929 at0009 = ╱ca╱ // 0x2921 @0x9
0x2918…2929 at000a = ╱ed╱ ( ╱ // 0x2922 @0xa
0x2918…2929 at000b = ╱35╱5╱ // 0x2923 @0xb
0x2918…2929 at000c = ╱f20500╱ // 0x2924 @0xc
0x2918…2929 at000f = ╱ee╱ ) ╱ // 0x2927 @0xf
0x2918…2929 at0010 = EOL // 0x2928 @0x10
0x2918…2929 }
0x2929…2939 bf27 09924 SELECT OUTPUT "P" + PRTNR $
0x2929…2939 LineComal80 {
0x2929…2939 ptr = 0xbf27 // 0x2929 @0x0
0x2929…2939 lno = 0x26c4 // 0x292b @0x2
0x2929…2939 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x292d @0x4
0x2929…2939 at0005 = ╱22╱"╱ // 0x292e @0x5
0x2929…2939 at0006 = ╱50╱P╱ // 0x292f @0x6
0x2929…2939 at0007 = ╱22╱"╱ // 0x2930 @0x7
0x2929…2939 at0008 = ╱eb╱ + ╱ // 0x2931 @0x8
0x2929…2939 at0009 = ╱50╱P╱ // 0x2932 @0x9
0x2929…2939 at000a = ╱52╱R╱ // 0x2933 @0xa
0x2929…2939 at000b = ╱54╱T╱ // 0x2934 @0xb
0x2929…2939 at000c = ╱4e╱N╱ // 0x2935 @0xc
0x2929…2939 at000d = ╱52╱R╱ // 0x2936 @0xd
0x2929…2939 at000e = ╱ef╱ $ ╱ // 0x2937 @0xe
0x2929…2939 at000f = EOL // 0x2938 @0xf
0x2929…2939 }
0x2939…293f bf2d 09925 ENDWHILE
0x2939…293f LineComal80 {
0x2939…293f ptr = 0xbf2d // 0x2939 @0x0
0x2939…293f lno = 0x26c5 // 0x293b @0x2
0x2939…293f at0004 = ╱94╱ ENDWHILE ╱ // 0x293d @0x4
0x2939…293f at0005 = EOL // 0x293e @0x5
0x2939…293f }
0x293f…2946 bf34 09926 ELSE
0x293f…2946 LineComal80 {
0x293f…2946 ptr = 0xbf34 // 0x293f @0x0
0x293f…2946 lno = 0x26c6 // 0x2941 @0x2
0x293f…2946 at0004 = ╱9a00╱ ELSE ╱ // 0x2943 @0x4
0x293f…2946 at0006 = EOL // 0x2945 @0x6
0x293f…2946 }
0x2946…2954 bf42 09927 LET OK := FALSE
0x2946…2954 LineComal80 {
0x2946…2954 ptr = 0xbf42 // 0x2946 @0x0
0x2946…2954 lno = 0x26c7 // 0x2948 @0x2
0x2946…2954 at0004 = ╱86╱ LET ╱ // 0x294a @0x4
0x2946…2954 at0005 = ╱4f╱O╱ // 0x294b @0x5
0x2946…2954 at0006 = ╱4b╱K╱ // 0x294c @0x6
0x2946…2954 at0007 = ╱f0╱ := ╱ // 0x294d @0x7
0x2946…2954 at0008 = ╱46╱F╱ // 0x294e @0x8
0x2946…2954 at0009 = ╱41╱A╱ // 0x294f @0x9
0x2946…2954 at000a = ╱4c╱L╱ // 0x2950 @0xa
0x2946…2954 at000b = ╱53╱S╱ // 0x2951 @0xb
0x2946…2954 at000c = ╱45╱E╱ // 0x2952 @0xc
0x2946…2954 at000d = EOL // 0x2953 @0xd
0x2946…2954 }
0x2954…295a bf48 09928 ENDIF
0x2954…295a LineComal80 {
0x2954…295a ptr = 0xbf48 // 0x2954 @0x0
0x2954…295a lno = 0x26c8 // 0x2956 @0x2
0x2954…295a at0004 = ╱9c╱ ENDIF ╱ // 0x2958 @0x4
0x2954…295a at0005 = EOL // 0x2959 @0x5
0x2954…295a }
0x295a…2960 bf4e 09929 ENDIF
0x295a…2960 LineComal80 {
0x295a…2960 ptr = 0xbf4e // 0x295a @0x0
0x295a…2960 lno = 0x26c9 // 0x295c @0x2
0x295a…2960 at0004 = ╱9c╱ ENDIF ╱ // 0x295e @0x4
0x295a…2960 at0005 = EOL // 0x295f @0x5
0x295a…2960 }
0x2960…296f bf5d 09930 CURSOR 1 , LINE
0x2960…296f LineComal80 {
0x2960…296f ptr = 0xbf5d // 0x2960 @0x0
0x2960…296f lno = 0x26ca // 0x2962 @0x2
0x2960…296f at0004 = ╱a1╱ CURSOR ╱ // 0x2964 @0x4
0x2960…296f at0005 = ╱31╱1╱ // 0x2965 @0x5
0x2960…296f at0006 = ╱f20100╱ // 0x2966 @0x6
0x2960…296f at0009 = ╱ec╱ , ╱ // 0x2969 @0x9
0x2960…296f at000a = ╱4c╱L╱ // 0x296a @0xa
0x2960…296f at000b = ╱49╱I╱ // 0x296b @0xb
0x2960…296f at000c = ╱4e╱N╱ // 0x296c @0xc
0x2960…296f at000d = ╱45╱E╱ // 0x296d @0xd
0x2960…296f at000e = EOL // 0x296e @0xe
0x2960…296f }
0x296f…297a bf68 09931 PRINT "<Z>"
0x296f…297a LineComal80 {
0x296f…297a ptr = 0xbf68 // 0x296f @0x0
0x296f…297a lno = 0x26cb // 0x2971 @0x2
0x296f…297a at0004 = ╱92╱ PRINT ╱ // 0x2973 @0x4
0x296f…297a at0005 = ╱22╱"╱ // 0x2974 @0x5
0x296f…297a at0006 = ╱3c╱<╱ // 0x2975 @0x6
0x296f…297a at0007 = ╱5a╱Z╱ // 0x2976 @0x7
0x296f…297a at0008 = ╱3e╱>╱ // 0x2977 @0x8
0x296f…297a at0009 = ╱22╱"╱ // 0x2978 @0x9
0x296f…297a at000a = EOL // 0x2979 @0xa
0x296f…297a }
0x297a…2986 bf74 09932 PRINT "<SZ>"
0x297a…2986 LineComal80 {
0x297a…2986 ptr = 0xbf74 // 0x297a @0x0
0x297a…2986 lno = 0x26cc // 0x297c @0x2
0x297a…2986 at0004 = ╱92╱ PRINT ╱ // 0x297e @0x4
0x297a…2986 at0005 = ╱22╱"╱ // 0x297f @0x5
0x297a…2986 at0006 = ╱3c╱<╱ // 0x2980 @0x6
0x297a…2986 at0007 = ╱53╱S╱ // 0x2981 @0x7
0x297a…2986 at0008 = ╱5a╱Z╱ // 0x2982 @0x8
0x297a…2986 at0009 = ╱3e╱>╱ // 0x2983 @0x9
0x297a…2986 at000a = ╱22╱"╱ // 0x2984 @0xa
0x297a…2986 at000b = EOL // 0x2985 @0xb
0x297a…2986 }
0x2986…2994 0000 09933 ENDPROC PRINTRES
0x2986…2994 LineComal80 {
0x2986…2994 ptr = 0x0000 // 0x2986 @0x0
0x2986…2994 lno = 0x26cd // 0x2988 @0x2
0x2986…2994 at0004 = ╱9f╱ ENDPROC ╱ // 0x298a @0x4
0x2986…2994 at0005 = ╱50╱P╱ // 0x298b @0x5
0x2986…2994 at0006 = ╱52╱R╱ // 0x298c @0x6
0x2986…2994 at0007 = ╱49╱I╱ // 0x298d @0x7
0x2986…2994 at0008 = ╱4e╱N╱ // 0x298e @0x8
0x2986…2994 at0009 = ╱54╱T╱ // 0x298f @0x9
0x2986…2994 at000a = ╱52╱R╱ // 0x2990 @0xa
0x2986…2994 at000b = ╱45╱E╱ // 0x2991 @0xb
0x2986…2994 at000c = ╱53╱S╱ // 0x2992 @0xc
0x2986…2994 at000d = EOL // 0x2993 @0xd
0x2986…2994 }
0x2994…299a (139,) 95ee 38382 ╱00╱ ╱00╱
0x2994…299a LineComal80 {
0x2994…299a ptr = 0x95ee // 0x2994 @0x0
0x2994…299a lno = 0x95ee // 0x2996 @0x2
0x2994…299a at0004 = ╱00╱ // 0x2998 @0x4
0x2994…299a at0005 = ╱00╱ // 0x2999 @0x5
0x2994…299a }