|
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: 16886 (0x41f6)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_ca, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cc, UNKNOWN_TOKEN_cd
Names: »SYSKAY«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSKAY«
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 FUNKTIONSMENU
00280 // ===========…Procedurer…starter…==============
00290 PROC DIMENSIONER
00300 // Standard…variable
00310 DIM SPC $ OF 80 , SVAR $ OF 10 , PRGFL $ OF 8 , ALFA $ OF 28 , TAL $ OF 10
00320 DIM PROGRAM $ OF 17 , PRTNR $ OF 1
00330 REAL RESRV , PPAR
00340 INTEGER OK , TRUE , FALSE , I , J
00350 // Hj{lpevariable
00360 REAL TOT ( 6 )
00370 INTEGER HIGH , LOW , POS , KREDIT , DEBET , LIN_T , MAX_LIN , T_IDX , K
00380 // Variable…til…filen…SYSPARA
00390 DIM SYSPARA $ OF 17
00400 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
00410 DIM DATAFL $ OF 8 , T_KODE $ OF 1
00420 // Variable…til…filen…@@PARAM
00430 DIM PARAM $ OF 17
00440 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 6
00450 REAL MOMS
00460 // Variable…til…filen…@@KONTO
00470 DIM KONTO $ OF 17
00480 DIM ST_DATO $ OF 6
00490 INTEGER N_FRIREC , N_MAXREC , ANT_PER , PER_NR
00500 DIM KTO_TYPE $ OF 1 , KTO_NAVN $ OF 40
00510 REAL KTO_PRIMO , KTO_ULTIMO
00520 INTEGER KTO_FP , KTO_SP
00530 // Variable…til…filen…@@KTOIDX
00540 DIM KTOIDX $ OF 17
00550 INTEGER I_H\JREC , I_MAXREC
00560 DIM KTONR $ OF 8
00570 INTEGER RECNR
00580 // Variable…til…filen…@@ST_KTO
00590 DIM ST_KTO $ OF 17
00600 DIM KASSE_KTO $ OF 8 , BANK_KTO $ OF 8 , GIRO_KTO $ OF 8
00610 // Variable…til…filen…@@DG_POS
00620 DIM DG_POS $ OF 17
00630 DIM P_BDAT $ OF 6
00640 REAL P_DEB , P_KRED
00650 INTEGER P_H\JREC , P_MAXREC , S_NR_DG_POS
00660 DIM P_BKTO $ OF 8 , P_MKOD $ OF 1 , P_BNR $ OF 5 , P_TXT $ OF 20
00670 REAL P_BKR
00680 INTEGER P_DK
00690 ENDPROC DIMENSIONER
00700
00710 PROC INITIER
00720 LET PRGFL $ := "DP2"
00730 LET PROGRAM $ := PRGFL $ + ":SYSI"
00740 LET TAL $ := "0123456789"
00750 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
00760 LET SPC $ := "………………………………………………………………………………………………………………………"
00770 LET SPC $ := SPC $ + SPC $
00780 LET FALSE := 0 ; TRUE := 1 // boolske…variable
00790 LET KREDIT := - 1 ; DEBET := 1
00800 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
00810 EXEC OPENFIL ( SYSPARA $ , "R" )
00820 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
00830 EXEC TERMINAL_IDX
00840 CLOSE SYSPARA $
00850 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
00860 EXEC OPENFIL ( PARAM $ , "R" )
00870 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
00880 CLOSE PARAM $
00890 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
00900 LET KONTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KONTO"
00910 LET ST_KTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "ST_KTO"
00920 LET DG_POS $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "DG_POS"
00930 EXEC OPENFIL ( KTOIDX $ , "r" )
00940 EXEC OPENFIL ( KONTO $ , "R" )
00950 EXEC OPENFIL ( DG_POS $ , "W" )
00960 EXEC OPENFIL ( ST_KTO $ , "R" )
00970 GET ST_KTO $ , 1 : KASSE_KTO $
00980 GET ST_KTO $ , 2 : BANK_KTO $
00990 GET ST_KTO $ , 3 : GIRO_KTO $
01000 CLOSE ST_KTO $
01010 ENDPROC INITIER
01020
01030 PROC FUNKTIONSMENU
01040 REPEAT
01050 EXEC OVERSKRIFT ( "Konteringsark" , 6 )
01060 PRINT "<C2009>Indtastning…af…posteringer…………………………IP"
01070 PRINT "<C2011>Udskrivning…af…konteringskladde……………UK"
01080 PRINT "<C2013>Ret…posteringer………………………………………………………RP"
01090 PRINT "<C2015>Bogf|r…posteringer………………………………………………BP"
01100 PRINT "<C2018>Programfordeler…………………………………………………RETURN"
01110 LET SVAR $ := "……"
01120 REPEAT
01130 EDIT "<C2523>Indtast…funktionskode:…" : SVAR $ ( 1 : 2 )
01140 EXEC SL_FEJLLINIE
01150 IF SVAR $ IN "……" THEN EXIT
01160 IF "/" + SVAR $ ( 1 : 2 ) + "/" IN "/IP/ip/UK/uk/RP/rp/BP/bp/" THEN
01170 EXEC FEJL ( "Ulovlig…funktionskode:…'" + SVAR $ ( 1 : 2 ) + "'" )
01180 ENDIF
01190 UNTIL OK
01200 GET DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
01210 CASE SVAR $ ( 1 : 2 ) OF
01220 WHILE "IP" , "ip"
01230 IF _H\JREC > 1 AND P_BDAT $ >< SYST_DAT $ THEN
01240 PRINT "<XC1210>Du…er…begyndt…p}…en…ny…dato…siden…du…sidst…indtastede"
01250 PRINT "<C1211>posteringer…-…posteringerne…skal…bogf|res…f|r…du…kan…"
01260 PRINT "<C1212>indtaste…flere…posteringer."
01270 INPUT "<SC6523>Tryk…RETURN" : SVAR $
01280 ELSE
01290 EXEC INDTAST_POSTER
01300 ENDIF
01310 WHILE "UK" , "uk"
01320 EXEC UDSKRIV_POSTER
01330 WHILE "RP" , "rp"
01340 EXEC RET_POSTER
01350 WHILE "BP" , "bp"
01360 IF P_DEB >< P_KRED THEN EXEC FEJL ( "Ulovlig…bogf|ring…-…debet…<…>…kredit…" )
01370 IF _DEB = 0 AND P_KRED = 0 THEN
01380 EXEC FEJL ( "Ulovlig…bogf|ring…-…ingen…posteringer" )
01390 ENDIF
01400 IF OK THEN
01410 INPUT "<SC6524>Tryk…RETURN" : SVAR $
01420 ELSE
01430 LET PROGRAM $ := PRGFL $ + ":SYSBP"
01440 CHAIN PROGRAM $
01450 ENDIF
01460 OTHERWISE
01470 CHAIN PROGRAM $
01480 ENDCASE
01490 UNTIL FALSE
01500 ENDPROC FUNKTIONSMENU
01510
01520 PROC TERMINAL_IDX
01530 LET PPAR := 5 ; RESRV := 0
01540 CALL :PRES"
01550 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
01560 ENDPROC TERMINAL_IDX
01570
01580 PROC OPENFIL ( FNAVN $ , WAY $ )
01590 REPEAT
01600 IF AY $ = "W" OR WAY $ = "w" THEN
01610 OPEN FNAVN $ , W
01620 ELSE
01630 OPEN FNAVN $ , R
01640 ENDIF
01650 IF ( FNAVN $ ) THEN
01660 PRINT "<SC0123>" ; CHR$ ( 7 )
01670 IF ( FNAVN $ ) = 6 THEN
01680 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
01690 INPUT "" : SVAR $
01700 ELSE
01710 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
01720 PRINT "<S>" ; FNAVN $ ; "…***"
01730 INPUT "" : SVAR $
01740 PRINT "<C0102>" ; SPC $
01750 ENDIF
01760 ENDIF
01770 UNTIL NOT ╱cd╱ ( FNAVN $ )
01780 ENDPROC OPENFIL
01790
01800 PROC TAL_CONTROL ( REF RST $ )
01810 LET J := 0 ; OK := TRUE
01820 FOR I := 1 TO ( RST $ ) DO
01830 IF RST $ ( I ) IN TAL $ + "." THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
01840 NEXT I
01850 IF = 0 THEN
01860 LET OK := FALSE
01870 ELSE
01880 LET RST $ := RST $ ( 1 : J )
01890 ENDIF
01900 ENDPROC TAL_CONTROL
01910
01920 PROC DIV_POSHOVED
01930 EXEC OVERSKRIFT ( "INDTASTNING…AF…DIVERSE…POSTERINGER" , 4 )
01940 PRINT "<C0105>………BILAG……TEKST……………………………………………MOMS……KO"
01950 PRINT "<C0106>…………NR……………………………………………………………………KODE……NU"
01960 PRINT "<C0107>----------------------------------------"
01970 PRINT "<C4105>NTO-…………………DEBET………………KREDIT………………F/R/S…"
01980 PRINT "<C4106>MMER……………………………………………………………………………………………"
01990 PRINT "<C4107>----------------------------------------"
02000 ENDPROC DIV_POSHOVED
02010
02020 PROC OVERSKRIFT ( ST $ , L )
02030 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
02040 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
02050 PRINT SYST_DAT $ ( 5 : 2 )
02060 CURSOR 34 - INT ( ╱cb╱ ( ST $ ) / 2 ) , L
02070 PRINT "***…" ; ST $ ; "…***"
02080 ENDPROC OVERSKRIFT
02090
02100 PROC SL_FEJLLINIE
02110 LET OK := TRUE
02120 PRINT "<C0102>" ; SPC $
02130 ENDPROC SL_FEJLLINIE
02140
02150 PROC FEJL ( ST $ )
02160 LET OK := FALSE
02170 CURSOR 36 - ╱cb╱ ( ST $ ) / 2 , 2
02180 PRINT "***…" + ST $ + "…***" ; CHR$ ( 7 )
02190 ENDPROC FEJL
02200
02210 PROC RET_LINIER
02220 REPEAT
02230 PRINT "<SC0123>" ; SPC $ ( 1 : 78 )
02240 LET SVAR $ := "j"
02250 EDIT "<SC1723>Ok…(j)…eller…linienummer…der…skal…rettes?…" : SVAR $
02260 IF "/" + SVAR $ + "/" IN "/J/j/" THEN
02270 EXEC TAL_CONTROL ( SVAR $ )
02280 IF K THEN
02290 IF ( SVAR $ ) < P_H\JREC AND ASC ( SVAR $ ) > 0 THEN
02300 EXEC EDIT_LIN ( ASC ( SVAR $ ) )
02310 ENDIF
02320 ENDIF
02330 ENDIF
02340 UNTIL "/" + SVAR $ + "/" IN "/J/j/"
02350 ENDPROC RET_LINIER
02360
02370 PROC L[S_KONTO ( P )
02380 GET KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
02390 ENDPROC L[S_KONTO
02400
02410 PROC ST_BGST ( REF RST $ )
02420 FOR I := 1 TO ( RST $ ) DO
02430 IF RST $ ( I ) =< "}" AND RST $ ( I ) >= "a" THEN LET RST $ ( I ) := CHR$ ( ╱cc╱ ( RST $ ( I ) ) - 32 )
02440 NEXT I
02450 ENDPROC ST_BGST
02460
02470 PROC INDTAST_POSTER
02480 EXEC SKRIV_LINIER
02490 LET SVAR $ := "F"
02500 WHILE SVAR $ = "F" DO
02510 GET DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
02520 IF P_H\JREC = 1 THEN LET P_BDAT $ := SYST_DAT $ ; P_DEB , P_KRED := 0
02530 IF _H\JREC = P_MAXREC THEN
02540 EXEC FEJL ( "Der…kan…ikke…indtastes…flere…posteringer…f|r…bogf|ring" )
02550 INPUT "<SC6524>Tryk…RETURN" : SVAR $
02560 EXEC SL_FEJLLINIE
02570 EXIT
02580 ENDIF
02590 LET P_H\JREC := P_H\JREC + 1
02600 EXEC EDIT_LIN ( P_H\JREC - 1 )
02610 PUT DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
02620 IF P_H\JREC - 1 ) MOD 12 = 0 AND SVAR $ = "F" THEN
02630 EXEC RET_LINIER
02640 EXEC DIV_POSHOVED
02650 LET SVAR $ := "F"
02660 ENDIF
02670 ENDWHILE
02680 EXEC RET_LINIER
02690 ENDPROC INDTAST_POSTER
02700
02710 PROC SKRIV_LINIER
02720 GET DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
02730 EXEC DIV_POSHOVED
02740 FOR I := P_H\JREC - ( P_H\JREC - 1 ) MOD 12 TO _H\JREC - 1 DO
02750 IF > 0 THEN
02760 EXEC L[S_DG_POS ( I )
02770 EXEC SKRIV_LIN ( I )
02780 ENDIF
02790 NEXT I
02800 ENDPROC SKRIV_LINIER
02810
02820 PROC SKRIV_DG_POS ( P )
02830 PUT DG_POS $ , P + 1 : P_BKTO $ , P_MKOD $ , P_BNR $ , P_TXT $ , P_BKR , P_DK
02840 ENDPROC SKRIV_DG_POS
02850
02860 PROC L[S_DG_POS ( P )
02870 GET DG_POS $ , P + 1 : P_BKTO $ , P_MKOD $ , P_BNR $ , P_TXT $ , P_BKR , P_DK
02880 ENDPROC L[S_DG_POS
02890
02900 PROC SKRIV_LIN ( R_LIN )
02910 IF P_BNR $ = "*****" THEN EXIT
02920 LET R_SLIN := R_LIN MOD 12 + 7
02930 IF R_SLIN = 7 THEN LET R_SLIN := 12 + R_SLIN
02940 CURSOR 1 , R_SLIN
02950 PRINT CHR$ ( R_LIN , 2 )
02960 CURSOR 4 , R_SLIN
02970 PRINT P_BNR $
02980 CURSOR 11 , R_SLIN
02990 PRINT P_TXT $
03000 CURSOR 34 , R_SLIN
03010 PRINT P_MKOD $
03020 CURSOR 39 , R_SLIN
03030 PRINT P_BKTO $
03040 IF _DK = DEBET THEN
03050 CURSOR 49 , R_SLIN
03060 ELSE
03070 CURSOR 61 , R_SLIN
03080 ENDIF
03090 PRINT CHR$ ( P_BKR , 7 , 2 )
03100 ENDPROC SKRIV_LIN
03110
03120 PROC EDIT_LIN ( R_LIN )
03130 LET R_SLIN := R_LIN MOD 12 + 7
03140 IF R_SLIN = 7 THEN LET R_SLIN := R_SLIN + 12
03150 EXEC L[S_DG_POS ( R_LIN )
03160 IF _BNR $ = "*****" THEN
03170 LET P_BNR $ := "" ; P_TXT $ := "" ; P_MKOD $ := "" ; P_BKR := 0 ; P_DK := DEBET ; P_BKTO $ := ""
03180 ENDIF
03190 IF _DK = DEBET THEN
03200 LET P_DEB := P_DEB - P_BKR
03210 ELSE
03220 LET P_KRED := P_KRED - P_BKR
03230 ENDIF
03240 REPEAT
03250 EXEC SL_FEJLLINIE
03260 CURSOR 1 , R_SLIN
03270 PRINT CHR$ ( R_LIN , 2 )
03280 REPEAT
03290 CURSOR 4 , R_SLIN
03300 EDIT "" : P_BNR $
03310 EXEC SL_FEJLLINIE
03320 IF _BNR $ = "*****" OR "/" + P_BNR $ + "/" IN "/SLUT/slut/" THEN
03330 LET OK := TRUE
03340 ELSE
03350 EXEC TAL_CONTROL ( P_BNR $ )
03360 IF NOT OK THEN EXEC FEJL ( "Ulovlig…bilagsnummer" )
03370 ENDIF
03380 UNTIL OK
03390 CURSOR 4 , R_SLIN
03400 PRINT SPC $ ( 1 : 5 )
03410 CURSOR 4 , R_SLIN
03420 IF _BNR $ = "*****" OR "/" + P_BNR $ + "/" IN "/SLUT/slut/" THEN
03430 IF /" + P_BNR $ + "/" IN "/slut/SLUT/" THEN
03440 LET SVAR $ := "S" ; P_BNR $ := "*****" ; P_H\JREC := P_H\JREC - 1
03450 ENDIF
03460 PRINT SPC $ ( 1 : 76 )
03470 EXIT
03480 ELSE
03490 PRINT P_BNR $
03500 ENDIF
03510 CURSOR 11 , R_SLIN
03520 EDIT "" : P_TXT $
03530 REPEAT
03540 CURSOR 34 , R_SLIN
03550 EDIT "" : P_MKOD $
03560 EXEC SL_FEJLLINIE
03570 EXEC ST_BGST ( P_MKOD $ )
03580 IF P_MKOD $ IN "IU…" THEN
03590 EXEC FEJL ( "Ulovlig…momskode:…'" + P_MKOD $ + "'" )
03600 ENDIF
03610 UNTIL OK
03540 REPEAT
03550 CURSOR 39 , R_SLIN
03560 EDIT "" : P_BKTO $
03570 EXEC SL_FEJLLINIE
03580 LET IDXPOS := FIND_KTO ( P_BKTO $ )
03590 IF K THEN
03600 EXEC L[S_KONTO ( RECNR )
03610 IF TO_TYPE $ >< "A" THEN
03620 EXEC FEJL ( "Ulovlig…kontonr…-…kontotype…<…>…'A'" )
03630 ELSE
03720 IF _BKTO $ + "/" IN KASSE_KTO $ + "/" + BANK_KTO $ + "/" + GIRO_KTO $ + "/" THEN
03730 EXEC FEJL ( "Ulovlig…kontonr…-…konto…=…kasse/bank/giro" )
03740 ELSE
03640 PRINT "<C0102>" ; TAB ( 35 - ╱cb╱ ( KTO_NAVN $ ) / 2 ) ; "Konto:…" ; KTO_NAVN $
03760 ENDIF
03650 ENDIF
03660 ELSE
03670 EXEC FEJL ( "Ulovlig…kontonr…-…konto…findes…ikke" )
03680 ENDIF
03690 UNTIL OK
03700 REPEAT
03710 LET SVAR $ := CHR$ ( P_BKR , 7 , 2 )
03720 IF P_BKR = 0 THEN LET SVAR $ := ""
03730 IF _DK = KREDIT THEN
03740 CURSOR 61 , R_SLIN
03750 EDIT "" : SVAR $
03760 EXEC SL_FEJLLINIE
03770 EXEC TAL_CONTROL ( SVAR $ )
03780 IF NOT "." IN SVAR $ THEN LET SVAR $ := SVAR $ + "."
03790 LET P_BKR := INT ( 100 * ASC ( "0" + SVAR $ ) + 0.5 ) / 100
03800 CURSOR 61 , R_SLIN
03810 IF _BKR > 0 THEN
03820 PRINT CHR$ ( P_BKR , 7 , 2 )
03830 ELSE
03840 PRINT SPC $ ( 1 : 10 )
03850 ENDIF
03860 ELSE
03870 LET P_DK := DEBET
03880 CURSOR 49 , R_SLIN
03890 EDIT "" : SVAR $
03900 EXEC SL_FEJLLINIE
03910 EXEC TAL_CONTROL ( SVAR $ )
03920 IF NOT "." IN SVAR $ THEN LET SVAR $ := SVAR $ + "."
03930 LET P_BKR := INT ( 100 * ASC ( "0" + SVAR $ ) + .5 ) / 100
03940 CURSOR 49 , R_SLIN
03950 IF _BKR > 0 THEN
03960 PRINT CHR$ ( P_BKR , 7 , 2 )
03970 ELSE
03980 PRINT SPC $ ( 1 : 10 )
03990 ENDIF
04000 ENDIF
04010 IF P_BKR =< 0 THEN LET P_DK := P_DK * ( - 1 )
04020 UNTIL P_BKR > 0
04030 REPEAT
04040 LET SVAR $ := "f"
04050 CURSOR 77 , R_SLIN
04060 EDIT "" : SVAR $ ( 1 )
04070 EXEC ST_BGST ( SVAR $ )
04080 UNTIL "/" + SVAR $ + "/" IN "/F/S/R/"
04090 UNTIL SVAR $ IN "FS"
04100 IF _DK = DEBET THEN
04110 LET P_DEB := P_DEB + P_BKR
04120 ELSE
04130 LET P_KRED := P_KRED + P_BKR
04140 ENDIF
04150 EXEC SKRIV_DIFF
04160 PUT DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
04170 EXEC SKRIV_DG_POS ( R_LIN )
04180 EXEC SL_FEJLLINIE
04190 ENDPROC EDIT_LIN
04200
04210 PROC SKRIV_DIFF
04220 PRINT "<SC0120>" ; SPC $
04230 PRINT "<SC0121>" ; SPC $
04240 PRINT "<SC2220>Debet/kredit…total…………………" ; CHR$ ( P_DEB , 9 , 2 )
04250 PRINT CHR$ ( P_KRED , 9 , 2 )
04260 IF _DEB < P_KRED THEN
04270 PRINT "<SC2221>Difference………………………………………" ; CHR$ ( P_KRED - P_DEB , 9 , 2 )
04280 ELSE
04290 IF _KRED < P_DEB THEN
04300 PRINT "<SC2221>Difference"
04310 PRINT "<SC5921>" ; CHR$ ( P_DEB - P_KRED , 9 , 2 )
04320 ENDIF
04330 ENDIF
04340 ENDPROC SKRIV_DIFF
04350
04360 PROC RET_POSTER
04370 GET DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
04380 LET K := 0
04390 WHILE K < P_H\JREC - 1 DO
04400 IF ( K + 12 ) MOD 12 = 0 THEN EXEC DIV_POSHOVED
04410 LET K := K + 1
04420 EXEC L[S_DG_POS ( K )
04430 EXEC SKRIV_LIN ( K )
04440 IF K MOD 12 = 0 OR K = P_H\JREC - 1 THEN EXEC RET_LINIER
04450 ENDWHILE
04460 ENDPROC RET_POSTER
04470
04480 PROC UDSKRIV_POSTER
04490 EXEC OVERSKRIFT ( "Udskrivning…af…konteringskladde" , 7 )
04620 EXEC PRINTRES ( "smal…EDB-liste" , 12 )
04510 LET LIN_T := 100 ; MAX_LIN := 72
04520 GET DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
04530 LET P_DEB , P_KRED := 0
04540 FOR J := 1 TO _H\JREC - 1 DO
04550 EXEC L[S_DG_POS ( J )
04560 EXEC PRINT_LIN
04570 NEXT J
04580 IF LIN_T >< 100 THEN EXEC AFSLUT
04590 EXEC PRINTREL
04600 PUT DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
04610 ENDPROC UDSKRIV_POSTER
04620
04630 PROC SIDESKIFT
04640 FOR I := LIN_T TO AX_LIN DO PRINT
04650 LET LIN_T := 9
04660 PRINT "***…" ; SYST_NAVN $ ; "…***"
04670 PRINT
04680 PRINT "Firmanavn:…" ; FIRMANAVN $
04690 PRINT
04700 PRINT "<S>***…KONTERINGSKLADDE…PR.…" ; P_BDAT $ ( 1 : 2 ) ; "." ; P_BDAT $ ( 3 : 2 ) ; "."
04710 PRINT "<S>" ; P_BDAT $ ( 5 : 2 ) ; "…****…UDSKREVET…PR.…"
04720 PRINT SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ; SYST_DAT $ ( 5 : 2 ) ; "…***"
04730 PRINT
04860 PRINT "<S>BILAG……TEKST……………………………………………MK……KONTONR……………DEBET………"
04870 PRINT "…………KREDIT……"
04880 PRINT "<S>-----……--------------------……--……--------……----------"
04890 PRINT "……----------"
04900 IF _DEB > 0 OR P_KRED > 0 THEN
04910 PRINT TAB ( 8 ) ; "TRANSPORT" ; TAB ( 41 ) ; CHR$ ( P_DEB , 9 , 2 ) ; CHR$ ( P_KRED , 9 , 2 )
04920 LET LIN_T := LIN_T + 1
04930 ENDIF
04940 ENDPROC SIDESKIFT
04950
04960 PROC PRINT_LIN
04970 IF P_BNR $ = "*****" THEN EXIT
04980 IF IN_T + 5 > MAX_LIN THEN
04990 IF _DEB > 0 OR P_KRED > 0 THEN
05000 PRINT "<S>-----……--------------------……--……--------……----------……"
04890 PRINT "----------"
04900 PRINT TAB ( 9 ) ; "TRANSPORT" ; TAB ( 41 ) ; CHR$ ( P_DEB , 9 , 2 ) ; CHR$ ( P_KRED , 9 , 2 )
04910 LET LIN_T := LIN_T + 2
04920 ENDIF
04930 EXEC SIDESKIFT
04940 ENDIF
04950 LET LIN_T := LIN_T + 1
04960 PRINT "<S>" ; P_BNR $ ; TAB ( 11 ) ; P_TXT $ ; TAB ( 33 ) ; P_MKOD $ ; TAB ( 37 )
04970 PRINT "<S>" ; P_BKTO $ ; TAB ( 14 )
04980 IF _DK = DEBET THEN
04990 PRINT CHR$ ( P_BKR , 7 , 2 )
05000 LET P_DEB := P_DEB + P_BKR
05010 ELSE
05020 PRINT TAB ( 13 ) ; CHR$ ( P_BKR , 7 , 2 )
05030 LET P_KRED := P_KRED + P_BKR
05040 ENDIF
05050 ENDPROC PRINT_LIN
05060
05070 PROC AFSLUT
05080 LET LIN_T := LIN_T + 2
05210 PRINT "<S>-----……--------------------……--……--------……----------……"
05100 PRINT "----------"
05110 PRINT TAB ( 8 ) ; "DEBET/KREDIT…TOTAL" ; TAB ( 42 ) ; CHR$ ( P_DEB , 9 , 2 ) ;
05120 PRINT CHR$ ( P_KRED , 9 , 2 )
05130 IF _DEB > P_KRED THEN
05140 PRINT TAB ( 11 ) ; "DIFFERENCE" ; TAB ( 42 ) ; CHR$ ( P_DEB - P_KRED , 9 , 2 )
05150 LET LIN_T := LIN_T + 1
05160 ELSE
05170 IF _KRED > P_DEB THEN
05180 PRINT TAB ( 11 ) ; "DIFFERENCE" ; TAB ( 54 ) ; CHR$ ( P_KRED - P_DEB , 9 , 2 )
05190 LET LIN_T := LIN_T + 1
05200 ENDIF
05210 ENDIF
05220 FOR I := LIN_T TO AX_LIN DO PRINT
05230 ENDPROC AFSLUT
05240
05250 PROC FIND_KTO ( REF R_KTONR $ )
05260 LET OK := FALSE
05270 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
05280 LET LOW := 1 ; HIGH := I_H\JREC ; POS := 2
05290 IF IGH > 1 THEN
05300 REPEAT
05310 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
05320 GET KTOIDX $ , POS : KTONR $ , RECNR
05330 IF TONR $ > R_KTONR $ THEN
05340 LET HIGH := POS
05350 ELSE
05360 IF TONR $ < R_KTONR $ THEN
05370 LET LOW := POS
05380 ENDIF
05390 ENDIF
05400 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
05410 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
05420 GET KTOIDX $ , POS : KTONR $ , RECNR
05430 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
05440 ENDIF
05450 LET FIND_KTO := POS
05460 ENDPROC FIND_KTO
05470 //
05600 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
05610 LET PRTNR $ := "1" ; OK := TRUE
05620 REPEAT
05630 CURSOR 15 , LINE
05640 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
05650 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
05660 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
05670 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
05680 INPUT "" : SVAR $
05690 SELECT OUTPUT "P" + PRTNR $
05700 IF ( "P" ) THEN
05710 CURSOR 12 , LINE
05720 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
05730 CURSOR 12 , LINE + 1
05740 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
05750 IF VAR $ = "J" OR SVAR $ = "j" THEN
05760 CURSOR 12 , LINE
05770 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
05780 PRINT "<SZ>"
05790 WHILE ╱cd╱ ( "P" ) DO
05800 LET SEK := ╱ca╱ ( 5 )
05810 SELECT OUTPUT "P" + PRTNR $
05820 ENDWHILE
05830 ELSE
05840 LET OK := FALSE
05850 ENDIF
05860 ENDIF
05870 CURSOR 1 , LINE
05880 PRINT "<Z>"
05890 PRINT "<SZ>"
05900 ENDPROC PRINTRES
05480 //
05490 PROC PRINTREL // RELEASE…PRINTER
05500 SELECT OUTPUT "T"
05510 ENDPROC PRINTREL
01940 PRINT "<C0105>………BILAG……TEKST……………………………………………………………KO"
01950 PRINT "<C0106>…………NR……………………………………………………………………………………NU"
01960 PRINT "<C0107>----------------------------------------"
01970 PRINT "<C4105>NTO-…………………DEBET………………KREDIT………………F/R/S…"
01980 PRINT "<C4106>MMER……………………………………………………………………………………………"
01990 PRINT "<C4107>----------------------------------------"
02000 ENDPROC DIV_POSHOVED
02010
02020 PROC OVERSKRIFT ( ST $ , L )
02030 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
02040 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
02050 PRINT SYST_DAT $ ( 5 : 2 )
03530 LET P_MKOD $ := ""
04740 PRINT "<S>BILAG……TEKST………………………………………………………KONTONR……………DEBET………"
04750 PRINT "…………KREDIT……"
04760 PRINT "<S>-----……------------------------……--------……----------"
04770 PRINT "……----------"
04780 IF _DEB > 0 OR P_KRED > 0 THEN
04790 PRINT TAB ( 8 ) ; "TRANSPORT" ; TAB ( 41 ) ; CHR$ ( P_DEB , 9 , 2 ) ; CHR$ ( P_KRED , 9 , 2 )
04800 LET LIN_T := LIN_T + 1
04810 ENDIF
04820 ENDPROC SIDESKIFT
04830
04840 PROC PRINT_LIN
04850 IF P_BNR $ = "*****" THEN EXIT
04860 IF IN_T + 5 > MAX_LIN THEN
04870 IF _DEB > 0 OR P_KRED > 0 THEN
05000 PRINT "<S>-----……--------------------……--……--------……----------……"
04880 PRINT "<S>-----……------------------------……--------……----------……"
05090 PRINT "<S>-----……------------------------……--------……----------……"
04500 EXEC PRINTRES ( "papir" , 12 )
01430 LET PROGRAM $ := PRGFL $ + ":SYSBP" + S_KODE $
05520 //
05530 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
05540 LET PRTNR $ := "1" ; OK := TRUE
05550 REPEAT
05560 CURSOR 15 , LINE
05570 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
05580 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
05590 CURSOR 1 , LINE
05600 PRINT "<Z>"
05610 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
05620 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
05630 INPUT "" : SVAR $
05640 SELECT OUTPUT "P" + PRTNR $
05650 IF ( "P" ) THEN
05660 CURSOR 12 , LINE
05670 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
05680 CURSOR 12 , LINE + 1
05690 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
05700 IF VAR $ = "J" OR SVAR $ = "j" THEN
05710 CURSOR 12 , LINE
05720 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
05730 PRINT "<SZ>"
05740 WHILE ╱cd╱ ( "P" ) DO
05750 LET SEK := ╱ca╱ ( 5 )
05760 SELECT OUTPUT "P" + PRTNR $
05770 ENDWHILE
05780 ELSE
05790 LET OK := FALSE
05800 ENDIF
05810 ENDIF
05820 CURSOR 1 , LINE
05830 PRINT "<Z>"
05840 PRINT "<SZ>"
05850 ENDPROC PRINTRES
03270 PRINT "<Z>" ; CHR$ ( R_LIN , 2 )
04455 PUT DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
01995 EXEC SKRIV_DIFF
08000 PROC REMOVEBLANK ( REF [[ $ )
08010 LET J := 0
08020 FOR I := 1 TO ( [[ $ ) DO
08030 IF [[ $ ( I ) >< "…" THEN LET J := J + 1 ; [[ $ ( J ) := [[ $ ( I )
08040 NEXT I
08045 LET [[ $ := [[ $ ( 1 : J )
08050 ENDPROC REMOVEBLANK
03715 EXEC REMOVEBLANK ( SVAR $ )
02215 EXEC SKRIV_DIFF
02485 IF P_H\JREC > 1 THEN EXEC SKRIV_DIFF
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…0379 9967 00270 EXEC FUNKTIONSMENU
0x0366…0379 LineComal80 {
0x0366…0379 ptr = 0x9967 // 0x366 @0x0
0x0366…0379 lno = 0x010e // 0x368 @0x2
0x0366…0379 at0004 = ╱9d╱ EXEC ╱ // 0x36a @0x4
0x0366…0379 at0005 = ╱46╱F╱ // 0x36b @0x5
0x0366…0379 at0006 = ╱55╱U╱ // 0x36c @0x6
0x0366…0379 at0007 = ╱4e╱N╱ // 0x36d @0x7
0x0366…0379 at0008 = ╱4b╱K╱ // 0x36e @0x8
0x0366…0379 at0009 = ╱54╱T╱ // 0x36f @0x9
0x0366…0379 at000a = ╱49╱I╱ // 0x370 @0xa
0x0366…0379 at000b = ╱4f╱O╱ // 0x371 @0xb
0x0366…0379 at000c = ╱4e╱N╱ // 0x372 @0xc
0x0366…0379 at000d = ╱53╱S╱ // 0x373 @0xd
0x0366…0379 at000e = ╱4d╱M╱ // 0x374 @0xe
0x0366…0379 at000f = ╱45╱E╱ // 0x375 @0xf
0x0366…0379 at0010 = ╱4e╱N╱ // 0x376 @0x10
0x0366…0379 at0011 = ╱55╱U╱ // 0x377 @0x11
0x0366…0379 at0012 = EOL // 0x378 @0x12
0x0366…0379 }
0x0379…03ac 999a 00280 // ===========…Procedurer…starter…==============
0x0379…03ac LineComal80 {
0x0379…03ac ptr = 0x999a // 0x379 @0x0
0x0379…03ac lno = 0x0118 // 0x37b @0x2
0x0379…03ac at0004 = ╱89╱ // ╱ // 0x37d @0x4
0x0379…03ac at0005 = ╱3d╱=╱ // 0x37e @0x5
0x0379…03ac at0006 = ╱3d╱=╱ // 0x37f @0x6
0x0379…03ac at0007 = ╱3d╱=╱ // 0x380 @0x7
0x0379…03ac at0008 = ╱3d╱=╱ // 0x381 @0x8
0x0379…03ac at0009 = ╱3d╱=╱ // 0x382 @0x9
0x0379…03ac at000a = ╱3d╱=╱ // 0x383 @0xa
0x0379…03ac at000b = ╱3d╱=╱ // 0x384 @0xb
0x0379…03ac at000c = ╱3d╱=╱ // 0x385 @0xc
0x0379…03ac at000d = ╱3d╱=╱ // 0x386 @0xd
0x0379…03ac at000e = ╱3d╱=╱ // 0x387 @0xe
0x0379…03ac at000f = ╱3d╱=╱ // 0x388 @0xf
0x0379…03ac at0010 = ╱20╱…╱ // 0x389 @0x10
0x0379…03ac at0011 = ╱50╱P╱ // 0x38a @0x11
0x0379…03ac at0012 = ╱72╱r╱ // 0x38b @0x12
0x0379…03ac at0013 = ╱6f╱o╱ // 0x38c @0x13
0x0379…03ac at0014 = ╱63╱c╱ // 0x38d @0x14
0x0379…03ac at0015 = ╱65╱e╱ // 0x38e @0x15
0x0379…03ac at0016 = ╱64╱d╱ // 0x38f @0x16
0x0379…03ac at0017 = ╱75╱u╱ // 0x390 @0x17
0x0379…03ac at0018 = ╱72╱r╱ // 0x391 @0x18
0x0379…03ac at0019 = ╱65╱e╱ // 0x392 @0x19
0x0379…03ac at001a = ╱72╱r╱ // 0x393 @0x1a
0x0379…03ac at001b = ╱20╱…╱ // 0x394 @0x1b
0x0379…03ac at001c = ╱73╱s╱ // 0x395 @0x1c
0x0379…03ac at001d = ╱74╱t╱ // 0x396 @0x1d
0x0379…03ac at001e = ╱61╱a╱ // 0x397 @0x1e
0x0379…03ac at001f = ╱72╱r╱ // 0x398 @0x1f
0x0379…03ac at0020 = ╱74╱t╱ // 0x399 @0x20
0x0379…03ac at0021 = ╱65╱e╱ // 0x39a @0x21
0x0379…03ac at0022 = ╱72╱r╱ // 0x39b @0x22
0x0379…03ac at0023 = ╱20╱…╱ // 0x39c @0x23
0x0379…03ac at0024 = ╱3d╱=╱ // 0x39d @0x24
0x0379…03ac at0025 = ╱3d╱=╱ // 0x39e @0x25
0x0379…03ac at0026 = ╱3d╱=╱ // 0x39f @0x26
0x0379…03ac at0027 = ╱3d╱=╱ // 0x3a0 @0x27
0x0379…03ac at0028 = ╱3d╱=╱ // 0x3a1 @0x28
0x0379…03ac at0029 = ╱3d╱=╱ // 0x3a2 @0x29
0x0379…03ac at002a = ╱3d╱=╱ // 0x3a3 @0x2a
0x0379…03ac at002b = ╱3d╱=╱ // 0x3a4 @0x2b
0x0379…03ac at002c = ╱3d╱=╱ // 0x3a5 @0x2c
0x0379…03ac at002d = ╱3d╱=╱ // 0x3a6 @0x2d
0x0379…03ac at002e = ╱3d╱=╱ // 0x3a7 @0x2e
0x0379…03ac at002f = ╱3d╱=╱ // 0x3a8 @0x2f
0x0379…03ac at0030 = ╱3d╱=╱ // 0x3a9 @0x30
0x0379…03ac at0031 = ╱3d╱=╱ // 0x3aa @0x31
0x0379…03ac at0032 = EOL // 0x3ab @0x32
0x0379…03ac }
0x03ac…03be 99ac 00290 PROC DIMENSIONER
0x03ac…03be LineComal80 {
0x03ac…03be ptr = 0x99ac // 0x3ac @0x0
0x03ac…03be lno = 0x0122 // 0x3ae @0x2
0x03ac…03be at0004 = ╱9e01╱ PROC ╱ // 0x3b0 @0x4
0x03ac…03be at0006 = ╱44╱D╱ // 0x3b2 @0x6
0x03ac…03be at0007 = ╱49╱I╱ // 0x3b3 @0x7
0x03ac…03be at0008 = ╱4d╱M╱ // 0x3b4 @0x8
0x03ac…03be at0009 = ╱45╱E╱ // 0x3b5 @0x9
0x03ac…03be at000a = ╱4e╱N╱ // 0x3b6 @0xa
0x03ac…03be at000b = ╱53╱S╱ // 0x3b7 @0xb
0x03ac…03be at000c = ╱49╱I╱ // 0x3b8 @0xc
0x03ac…03be at000d = ╱4f╱O╱ // 0x3b9 @0xd
0x03ac…03be at000e = ╱4e╱N╱ // 0x3ba @0xe
0x03ac…03be at000f = ╱45╱E╱ // 0x3bb @0xf
0x03ac…03be at0010 = ╱52╱R╱ // 0x3bc @0x10
0x03ac…03be at0011 = EOL // 0x3bd @0x11
0x03ac…03be }
0x03be…03d5 99c3 00300 // Standard…variable
0x03be…03d5 LineComal80 {
0x03be…03d5 ptr = 0x99c3 // 0x3be @0x0
0x03be…03d5 lno = 0x012c // 0x3c0 @0x2
0x03be…03d5 at0004 = ╱89╱ // ╱ // 0x3c2 @0x4
0x03be…03d5 at0005 = ╱53╱S╱ // 0x3c3 @0x5
0x03be…03d5 at0006 = ╱74╱t╱ // 0x3c4 @0x6
0x03be…03d5 at0007 = ╱61╱a╱ // 0x3c5 @0x7
0x03be…03d5 at0008 = ╱6e╱n╱ // 0x3c6 @0x8
0x03be…03d5 at0009 = ╱64╱d╱ // 0x3c7 @0x9
0x03be…03d5 at000a = ╱61╱a╱ // 0x3c8 @0xa
0x03be…03d5 at000b = ╱72╱r╱ // 0x3c9 @0xb
0x03be…03d5 at000c = ╱64╱d╱ // 0x3ca @0xc
0x03be…03d5 at000d = ╱20╱…╱ // 0x3cb @0xd
0x03be…03d5 at000e = ╱76╱v╱ // 0x3cc @0xe
0x03be…03d5 at000f = ╱61╱a╱ // 0x3cd @0xf
0x03be…03d5 at0010 = ╱72╱r╱ // 0x3ce @0x10
0x03be…03d5 at0011 = ╱69╱i╱ // 0x3cf @0x11
0x03be…03d5 at0012 = ╱61╱a╱ // 0x3d0 @0x12
0x03be…03d5 at0013 = ╱62╱b╱ // 0x3d1 @0x13
0x03be…03d5 at0014 = ╱6c╱l╱ // 0x3d2 @0x14
0x03be…03d5 at0015 = ╱65╱e╱ // 0x3d3 @0x15
0x03be…03d5 at0016 = EOL // 0x3d4 @0x16
0x03be…03d5 }
0x03d5…0414 9a02 00310 DIM SPC $ OF 80 , SVAR $ OF 10 , PRGFL $ OF 8 , ALFA $ OF 28 , TAL $ OF 10
0x03d5…0414 LineComal80 {
0x03d5…0414 ptr = 0x9a02 // 0x3d5 @0x0
0x03d5…0414 lno = 0x0136 // 0x3d7 @0x2
0x03d5…0414 at0004 = ╱87╱ DIM ╱ // 0x3d9 @0x4
0x03d5…0414 at0005 = ╱53╱S╱ // 0x3da @0x5
0x03d5…0414 at0006 = ╱50╱P╱ // 0x3db @0x6
0x03d5…0414 at0007 = ╱43╱C╱ // 0x3dc @0x7
0x03d5…0414 at0008 = ╱ef╱ $ ╱ // 0x3dd @0x8
0x03d5…0414 at0009 = ╱ba╱ OF ╱ // 0x3de @0x9
0x03d5…0414 at000a = ╱38╱8╱ // 0x3df @0xa
0x03d5…0414 at000b = ╱30╱0╱ // 0x3e0 @0xb
0x03d5…0414 at000c = ╱f25000╱ // 0x3e1 @0xc
0x03d5…0414 at000f = ╱ec╱ , ╱ // 0x3e4 @0xf
0x03d5…0414 at0010 = ╱53╱S╱ // 0x3e5 @0x10
0x03d5…0414 at0011 = ╱56╱V╱ // 0x3e6 @0x11
0x03d5…0414 at0012 = ╱41╱A╱ // 0x3e7 @0x12
0x03d5…0414 at0013 = ╱52╱R╱ // 0x3e8 @0x13
0x03d5…0414 at0014 = ╱ef╱ $ ╱ // 0x3e9 @0x14
0x03d5…0414 at0015 = ╱ba╱ OF ╱ // 0x3ea @0x15
0x03d5…0414 at0016 = ╱31╱1╱ // 0x3eb @0x16
0x03d5…0414 at0017 = ╱30╱0╱ // 0x3ec @0x17
0x03d5…0414 at0018 = ╱f20a00╱ // 0x3ed @0x18
0x03d5…0414 at001b = ╱ec╱ , ╱ // 0x3f0 @0x1b
0x03d5…0414 at001c = ╱50╱P╱ // 0x3f1 @0x1c
0x03d5…0414 at001d = ╱52╱R╱ // 0x3f2 @0x1d
0x03d5…0414 at001e = ╱47╱G╱ // 0x3f3 @0x1e
0x03d5…0414 at001f = ╱46╱F╱ // 0x3f4 @0x1f
0x03d5…0414 at0020 = ╱4c╱L╱ // 0x3f5 @0x20
0x03d5…0414 at0021 = ╱ef╱ $ ╱ // 0x3f6 @0x21
0x03d5…0414 at0022 = ╱ba╱ OF ╱ // 0x3f7 @0x22
0x03d5…0414 at0023 = ╱38╱8╱ // 0x3f8 @0x23
0x03d5…0414 at0024 = ╱f20800╱ // 0x3f9 @0x24
0x03d5…0414 at0027 = ╱ec╱ , ╱ // 0x3fc @0x27
0x03d5…0414 at0028 = ╱41╱A╱ // 0x3fd @0x28
0x03d5…0414 at0029 = ╱4c╱L╱ // 0x3fe @0x29
0x03d5…0414 at002a = ╱46╱F╱ // 0x3ff @0x2a
0x03d5…0414 at002b = ╱41╱A╱ // 0x400 @0x2b
0x03d5…0414 at002c = ╱ef╱ $ ╱ // 0x401 @0x2c
0x03d5…0414 at002d = ╱ba╱ OF ╱ // 0x402 @0x2d
0x03d5…0414 at002e = ╱32╱2╱ // 0x403 @0x2e
0x03d5…0414 at002f = ╱38╱8╱ // 0x404 @0x2f
0x03d5…0414 at0030 = ╱f21c00╱ // 0x405 @0x30
0x03d5…0414 at0033 = ╱ec╱ , ╱ // 0x408 @0x33
0x03d5…0414 at0034 = ╱54╱T╱ // 0x409 @0x34
0x03d5…0414 at0035 = ╱41╱A╱ // 0x40a @0x35
0x03d5…0414 at0036 = ╱4c╱L╱ // 0x40b @0x36
0x03d5…0414 at0037 = ╱ef╱ $ ╱ // 0x40c @0x37
0x03d5…0414 at0038 = ╱ba╱ OF ╱ // 0x40d @0x38
0x03d5…0414 at0039 = ╱31╱1╱ // 0x40e @0x39
0x03d5…0414 at003a = ╱30╱0╱ // 0x40f @0x3a
0x03d5…0414 at003b = ╱f20a00╱ // 0x410 @0x3b
0x03d5…0414 at003e = EOL // 0x413 @0x3e
0x03d5…0414 }
0x0414…0434 9a22 00320 DIM PROGRAM $ OF 17 , PRTNR $ OF 1
0x0414…0434 LineComal80 {
0x0414…0434 ptr = 0x9a22 // 0x414 @0x0
0x0414…0434 lno = 0x0140 // 0x416 @0x2
0x0414…0434 at0004 = ╱87╱ DIM ╱ // 0x418 @0x4
0x0414…0434 at0005 = ╱50╱P╱ // 0x419 @0x5
0x0414…0434 at0006 = ╱52╱R╱ // 0x41a @0x6
0x0414…0434 at0007 = ╱4f╱O╱ // 0x41b @0x7
0x0414…0434 at0008 = ╱47╱G╱ // 0x41c @0x8
0x0414…0434 at0009 = ╱52╱R╱ // 0x41d @0x9
0x0414…0434 at000a = ╱41╱A╱ // 0x41e @0xa
0x0414…0434 at000b = ╱4d╱M╱ // 0x41f @0xb
0x0414…0434 at000c = ╱ef╱ $ ╱ // 0x420 @0xc
0x0414…0434 at000d = ╱ba╱ OF ╱ // 0x421 @0xd
0x0414…0434 at000e = ╱31╱1╱ // 0x422 @0xe
0x0414…0434 at000f = ╱37╱7╱ // 0x423 @0xf
0x0414…0434 at0010 = ╱f21100╱ // 0x424 @0x10
0x0414…0434 at0013 = ╱ec╱ , ╱ // 0x427 @0x13
0x0414…0434 at0014 = ╱50╱P╱ // 0x428 @0x14
0x0414…0434 at0015 = ╱52╱R╱ // 0x429 @0x15
0x0414…0434 at0016 = ╱54╱T╱ // 0x42a @0x16
0x0414…0434 at0017 = ╱4e╱N╱ // 0x42b @0x17
0x0414…0434 at0018 = ╱52╱R╱ // 0x42c @0x18
0x0414…0434 at0019 = ╱ef╱ $ ╱ // 0x42d @0x19
0x0414…0434 at001a = ╱ba╱ OF ╱ // 0x42e @0x1a
0x0414…0434 at001b = ╱31╱1╱ // 0x42f @0x1b
0x0414…0434 at001c = ╱f20100╱ // 0x430 @0x1c
0x0414…0434 at001f = EOL // 0x433 @0x1f
0x0414…0434 }
0x0434…0444 9a32 00330 REAL RESRV , PPAR
0x0434…0444 LineComal80 {
0x0434…0444 ptr = 0x9a32 // 0x434 @0x0
0x0434…0444 lno = 0x014a // 0x436 @0x2
0x0434…0444 at0004 = ╱b3╱ REAL ╱ // 0x438 @0x4
0x0434…0444 at0005 = ╱52╱R╱ // 0x439 @0x5
0x0434…0444 at0006 = ╱45╱E╱ // 0x43a @0x6
0x0434…0444 at0007 = ╱53╱S╱ // 0x43b @0x7
0x0434…0444 at0008 = ╱52╱R╱ // 0x43c @0x8
0x0434…0444 at0009 = ╱56╱V╱ // 0x43d @0x9
0x0434…0444 at000a = ╱ec╱ , ╱ // 0x43e @0xa
0x0434…0444 at000b = ╱50╱P╱ // 0x43f @0xb
0x0434…0444 at000c = ╱50╱P╱ // 0x440 @0xc
0x0434…0444 at000d = ╱41╱A╱ // 0x441 @0xd
0x0434…0444 at000e = ╱52╱R╱ // 0x442 @0xe
0x0434…0444 at000f = EOL // 0x443 @0xf
0x0434…0444 }
0x0444…045b 9a49 00340 INTEGER OK , TRUE , FALSE , I , J
0x0444…045b LineComal80 {
0x0444…045b ptr = 0x9a49 // 0x444 @0x0
0x0444…045b lno = 0x0154 // 0x446 @0x2
0x0444…045b at0004 = ╱b2╱ INTEGER ╱ // 0x448 @0x4
0x0444…045b at0005 = ╱4f╱O╱ // 0x449 @0x5
0x0444…045b at0006 = ╱4b╱K╱ // 0x44a @0x6
0x0444…045b at0007 = ╱ec╱ , ╱ // 0x44b @0x7
0x0444…045b at0008 = ╱54╱T╱ // 0x44c @0x8
0x0444…045b at0009 = ╱52╱R╱ // 0x44d @0x9
0x0444…045b at000a = ╱55╱U╱ // 0x44e @0xa
0x0444…045b at000b = ╱45╱E╱ // 0x44f @0xb
0x0444…045b at000c = ╱ec╱ , ╱ // 0x450 @0xc
0x0444…045b at000d = ╱46╱F╱ // 0x451 @0xd
0x0444…045b at000e = ╱41╱A╱ // 0x452 @0xe
0x0444…045b at000f = ╱4c╱L╱ // 0x453 @0xf
0x0444…045b at0010 = ╱53╱S╱ // 0x454 @0x10
0x0444…045b at0011 = ╱45╱E╱ // 0x455 @0x11
0x0444…045b at0012 = ╱ec╱ , ╱ // 0x456 @0x12
0x0444…045b at0013 = ╱49╱I╱ // 0x457 @0x13
0x0444…045b at0014 = ╱ec╱ , ╱ // 0x458 @0x14
0x0444…045b at0015 = ╱4a╱J╱ // 0x459 @0x15
0x0444…045b at0016 = EOL // 0x45a @0x16
0x0444…045b }
0x045b…046f 9a5d 00350 // Hj{lpevariable
0x045b…046f LineComal80 {
0x045b…046f ptr = 0x9a5d // 0x45b @0x0
0x045b…046f lno = 0x015e // 0x45d @0x2
0x045b…046f at0004 = ╱89╱ // ╱ // 0x45f @0x4
0x045b…046f at0005 = ╱48╱H╱ // 0x460 @0x5
0x045b…046f at0006 = ╱6a╱j╱ // 0x461 @0x6
0x045b…046f at0007 = ╱7b╱{╱ // 0x462 @0x7
0x045b…046f at0008 = ╱6c╱l╱ // 0x463 @0x8
0x045b…046f at0009 = ╱70╱p╱ // 0x464 @0x9
0x045b…046f at000a = ╱65╱e╱ // 0x465 @0xa
0x045b…046f at000b = ╱76╱v╱ // 0x466 @0xb
0x045b…046f at000c = ╱61╱a╱ // 0x467 @0xc
0x045b…046f at000d = ╱72╱r╱ // 0x468 @0xd
0x045b…046f at000e = ╱69╱i╱ // 0x469 @0xe
0x045b…046f at000f = ╱61╱a╱ // 0x46a @0xf
0x045b…046f at0010 = ╱62╱b╱ // 0x46b @0x10
0x045b…046f at0011 = ╱6c╱l╱ // 0x46c @0x11
0x045b…046f at0012 = ╱65╱e╱ // 0x46d @0x12
0x045b…046f at0013 = EOL // 0x46e @0x13
0x045b…046f }
0x046f…047e 9a6c 00360 REAL TOT ( 6 )
0x046f…047e LineComal80 {
0x046f…047e ptr = 0x9a6c // 0x46f @0x0
0x046f…047e lno = 0x0168 // 0x471 @0x2
0x046f…047e at0004 = ╱b3╱ REAL ╱ // 0x473 @0x4
0x046f…047e at0005 = ╱54╱T╱ // 0x474 @0x5
0x046f…047e at0006 = ╱4f╱O╱ // 0x475 @0x6
0x046f…047e at0007 = ╱54╱T╱ // 0x476 @0x7
0x046f…047e at0008 = ╱ed╱ ( ╱ // 0x477 @0x8
0x046f…047e at0009 = ╱36╱6╱ // 0x478 @0x9
0x046f…047e at000a = ╱f20600╱ // 0x479 @0xa
0x046f…047e at000d = ╱ee╱ ) ╱ // 0x47c @0xd
0x046f…047e at000e = EOL // 0x47d @0xe
0x046f…047e }
0x047e…04b3 9aa1 00370 INTEGER HIGH , LOW , POS , KREDIT , DEBET , LIN_T , MAX_LIN , T_IDX , K
0x047e…04b3 LineComal80 {
0x047e…04b3 ptr = 0x9aa1 // 0x47e @0x0
0x047e…04b3 lno = 0x0172 // 0x480 @0x2
0x047e…04b3 at0004 = ╱b2╱ INTEGER ╱ // 0x482 @0x4
0x047e…04b3 at0005 = ╱48╱H╱ // 0x483 @0x5
0x047e…04b3 at0006 = ╱49╱I╱ // 0x484 @0x6
0x047e…04b3 at0007 = ╱47╱G╱ // 0x485 @0x7
0x047e…04b3 at0008 = ╱48╱H╱ // 0x486 @0x8
0x047e…04b3 at0009 = ╱ec╱ , ╱ // 0x487 @0x9
0x047e…04b3 at000a = ╱4c╱L╱ // 0x488 @0xa
0x047e…04b3 at000b = ╱4f╱O╱ // 0x489 @0xb
0x047e…04b3 at000c = ╱57╱W╱ // 0x48a @0xc
0x047e…04b3 at000d = ╱ec╱ , ╱ // 0x48b @0xd
0x047e…04b3 at000e = ╱50╱P╱ // 0x48c @0xe
0x047e…04b3 at000f = ╱4f╱O╱ // 0x48d @0xf
0x047e…04b3 at0010 = ╱53╱S╱ // 0x48e @0x10
0x047e…04b3 at0011 = ╱ec╱ , ╱ // 0x48f @0x11
0x047e…04b3 at0012 = ╱4b╱K╱ // 0x490 @0x12
0x047e…04b3 at0013 = ╱52╱R╱ // 0x491 @0x13
0x047e…04b3 at0014 = ╱45╱E╱ // 0x492 @0x14
0x047e…04b3 at0015 = ╱44╱D╱ // 0x493 @0x15
0x047e…04b3 at0016 = ╱49╱I╱ // 0x494 @0x16
0x047e…04b3 at0017 = ╱54╱T╱ // 0x495 @0x17
0x047e…04b3 at0018 = ╱ec╱ , ╱ // 0x496 @0x18
0x047e…04b3 at0019 = ╱44╱D╱ // 0x497 @0x19
0x047e…04b3 at001a = ╱45╱E╱ // 0x498 @0x1a
0x047e…04b3 at001b = ╱42╱B╱ // 0x499 @0x1b
0x047e…04b3 at001c = ╱45╱E╱ // 0x49a @0x1c
0x047e…04b3 at001d = ╱54╱T╱ // 0x49b @0x1d
0x047e…04b3 at001e = ╱ec╱ , ╱ // 0x49c @0x1e
0x047e…04b3 at001f = ╱4c╱L╱ // 0x49d @0x1f
0x047e…04b3 at0020 = ╱49╱I╱ // 0x49e @0x20
0x047e…04b3 at0021 = ╱4e╱N╱ // 0x49f @0x21
0x047e…04b3 at0022 = ╱5f╱_╱ // 0x4a0 @0x22
0x047e…04b3 at0023 = ╱54╱T╱ // 0x4a1 @0x23
0x047e…04b3 at0024 = ╱ec╱ , ╱ // 0x4a2 @0x24
0x047e…04b3 at0025 = ╱4d╱M╱ // 0x4a3 @0x25
0x047e…04b3 at0026 = ╱41╱A╱ // 0x4a4 @0x26
0x047e…04b3 at0027 = ╱58╱X╱ // 0x4a5 @0x27
0x047e…04b3 at0028 = ╱5f╱_╱ // 0x4a6 @0x28
0x047e…04b3 at0029 = ╱4c╱L╱ // 0x4a7 @0x29
0x047e…04b3 at002a = ╱49╱I╱ // 0x4a8 @0x2a
0x047e…04b3 at002b = ╱4e╱N╱ // 0x4a9 @0x2b
0x047e…04b3 at002c = ╱ec╱ , ╱ // 0x4aa @0x2c
0x047e…04b3 at002d = ╱54╱T╱ // 0x4ab @0x2d
0x047e…04b3 at002e = ╱5f╱_╱ // 0x4ac @0x2e
0x047e…04b3 at002f = ╱49╱I╱ // 0x4ad @0x2f
0x047e…04b3 at0030 = ╱44╱D╱ // 0x4ae @0x30
0x047e…04b3 at0031 = ╱58╱X╱ // 0x4af @0x31
0x047e…04b3 at0032 = ╱ec╱ , ╱ // 0x4b0 @0x32
0x047e…04b3 at0033 = ╱4b╱K╱ // 0x4b1 @0x33
0x047e…04b3 at0034 = EOL // 0x4b2 @0x34
0x047e…04b3 }
0x04b3…04d3 9ac1 00380 // Variable…til…filen…SYSPARA
0x04b3…04d3 LineComal80 {
0x04b3…04d3 ptr = 0x9ac1 // 0x4b3 @0x0
0x04b3…04d3 lno = 0x017c // 0x4b5 @0x2
0x04b3…04d3 at0004 = ╱89╱ // ╱ // 0x4b7 @0x4
0x04b3…04d3 at0005 = ╱56╱V╱ // 0x4b8 @0x5
0x04b3…04d3 at0006 = ╱61╱a╱ // 0x4b9 @0x6
0x04b3…04d3 at0007 = ╱72╱r╱ // 0x4ba @0x7
0x04b3…04d3 at0008 = ╱69╱i╱ // 0x4bb @0x8
0x04b3…04d3 at0009 = ╱61╱a╱ // 0x4bc @0x9
0x04b3…04d3 at000a = ╱62╱b╱ // 0x4bd @0xa
0x04b3…04d3 at000b = ╱6c╱l╱ // 0x4be @0xb
0x04b3…04d3 at000c = ╱65╱e╱ // 0x4bf @0xc
0x04b3…04d3 at000d = ╱20╱…╱ // 0x4c0 @0xd
0x04b3…04d3 at000e = ╱74╱t╱ // 0x4c1 @0xe
0x04b3…04d3 at000f = ╱69╱i╱ // 0x4c2 @0xf
0x04b3…04d3 at0010 = ╱6c╱l╱ // 0x4c3 @0x10
0x04b3…04d3 at0011 = ╱20╱…╱ // 0x4c4 @0x11
0x04b3…04d3 at0012 = ╱66╱f╱ // 0x4c5 @0x12
0x04b3…04d3 at0013 = ╱69╱i╱ // 0x4c6 @0x13
0x04b3…04d3 at0014 = ╱6c╱l╱ // 0x4c7 @0x14
0x04b3…04d3 at0015 = ╱65╱e╱ // 0x4c8 @0x15
0x04b3…04d3 at0016 = ╱6e╱n╱ // 0x4c9 @0x16
0x04b3…04d3 at0017 = ╱20╱…╱ // 0x4ca @0x17
0x04b3…04d3 at0018 = ╱53╱S╱ // 0x4cb @0x18
0x04b3…04d3 at0019 = ╱59╱Y╱ // 0x4cc @0x19
0x04b3…04d3 at001a = ╱53╱S╱ // 0x4cd @0x1a
0x04b3…04d3 at001b = ╱50╱P╱ // 0x4ce @0x1b
0x04b3…04d3 at001c = ╱41╱A╱ // 0x4cf @0x1c
0x04b3…04d3 at001d = ╱52╱R╱ // 0x4d0 @0x1d
0x04b3…04d3 at001e = ╱41╱A╱ // 0x4d1 @0x1e
0x04b3…04d3 at001f = EOL // 0x4d2 @0x1f
0x04b3…04d3 }
0x04d3…04e7 9ad5 00390 DIM SYSPARA $ OF 17
0x04d3…04e7 LineComal80 {
0x04d3…04e7 ptr = 0x9ad5 // 0x4d3 @0x0
0x04d3…04e7 lno = 0x0186 // 0x4d5 @0x2
0x04d3…04e7 at0004 = ╱87╱ DIM ╱ // 0x4d7 @0x4
0x04d3…04e7 at0005 = ╱53╱S╱ // 0x4d8 @0x5
0x04d3…04e7 at0006 = ╱59╱Y╱ // 0x4d9 @0x6
0x04d3…04e7 at0007 = ╱53╱S╱ // 0x4da @0x7
0x04d3…04e7 at0008 = ╱50╱P╱ // 0x4db @0x8
0x04d3…04e7 at0009 = ╱41╱A╱ // 0x4dc @0x9
0x04d3…04e7 at000a = ╱52╱R╱ // 0x4dd @0xa
0x04d3…04e7 at000b = ╱41╱A╱ // 0x4de @0xb
0x04d3…04e7 at000c = ╱ef╱ $ ╱ // 0x4df @0xc
0x04d3…04e7 at000d = ╱ba╱ OF ╱ // 0x4e0 @0xd
0x04d3…04e7 at000e = ╱31╱1╱ // 0x4e1 @0xe
0x04d3…04e7 at000f = ╱37╱7╱ // 0x4e2 @0xf
0x04d3…04e7 at0010 = ╱f21100╱ // 0x4e3 @0x10
0x04d3…04e7 at0013 = EOL // 0x4e6 @0x13
0x04d3…04e7 }
0x04e7…050a 9af8 00400 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
0x04e7…050a LineComal80 {
0x04e7…050a ptr = 0x9af8 // 0x4e7 @0x0
0x04e7…050a lno = 0x0190 // 0x4e9 @0x2
0x04e7…050a at0004 = ╱87╱ DIM ╱ // 0x4eb @0x4
0x04e7…050a at0005 = ╱53╱S╱ // 0x4ec @0x5
0x04e7…050a at0006 = ╱59╱Y╱ // 0x4ed @0x6
0x04e7…050a at0007 = ╱53╱S╱ // 0x4ee @0x7
0x04e7…050a at0008 = ╱54╱T╱ // 0x4ef @0x8
0x04e7…050a at0009 = ╱5f╱_╱ // 0x4f0 @0x9
0x04e7…050a at000a = ╱4e╱N╱ // 0x4f1 @0xa
0x04e7…050a at000b = ╱41╱A╱ // 0x4f2 @0xb
0x04e7…050a at000c = ╱56╱V╱ // 0x4f3 @0xc
0x04e7…050a at000d = ╱4e╱N╱ // 0x4f4 @0xd
0x04e7…050a at000e = ╱ef╱ $ ╱ // 0x4f5 @0xe
0x04e7…050a at000f = ╱ba╱ OF ╱ // 0x4f6 @0xf
0x04e7…050a at0010 = ╱33╱3╱ // 0x4f7 @0x10
0x04e7…050a at0011 = ╱30╱0╱ // 0x4f8 @0x11
0x04e7…050a at0012 = ╱f21e00╱ // 0x4f9 @0x12
0x04e7…050a at0015 = ╱ec╱ , ╱ // 0x4fc @0x15
0x04e7…050a at0016 = ╱53╱S╱ // 0x4fd @0x16
0x04e7…050a at0017 = ╱5f╱_╱ // 0x4fe @0x17
0x04e7…050a at0018 = ╱4b╱K╱ // 0x4ff @0x18
0x04e7…050a at0019 = ╱4f╱O╱ // 0x500 @0x19
0x04e7…050a at001a = ╱44╱D╱ // 0x501 @0x1a
0x04e7…050a at001b = ╱45╱E╱ // 0x502 @0x1b
0x04e7…050a at001c = ╱ef╱ $ ╱ // 0x503 @0x1c
0x04e7…050a at001d = ╱ba╱ OF ╱ // 0x504 @0x1d
0x04e7…050a at001e = ╱31╱1╱ // 0x505 @0x1e
0x04e7…050a at001f = ╱f20100╱ // 0x506 @0x1f
0x04e7…050a at0022 = EOL // 0x509 @0x22
0x04e7…050a }
0x050a…0529 9b17 00410 DIM DATAFL $ OF 8 , T_KODE $ OF 1
0x050a…0529 LineComal80 {
0x050a…0529 ptr = 0x9b17 // 0x50a @0x0
0x050a…0529 lno = 0x019a // 0x50c @0x2
0x050a…0529 at0004 = ╱87╱ DIM ╱ // 0x50e @0x4
0x050a…0529 at0005 = ╱44╱D╱ // 0x50f @0x5
0x050a…0529 at0006 = ╱41╱A╱ // 0x510 @0x6
0x050a…0529 at0007 = ╱54╱T╱ // 0x511 @0x7
0x050a…0529 at0008 = ╱41╱A╱ // 0x512 @0x8
0x050a…0529 at0009 = ╱46╱F╱ // 0x513 @0x9
0x050a…0529 at000a = ╱4c╱L╱ // 0x514 @0xa
0x050a…0529 at000b = ╱ef╱ $ ╱ // 0x515 @0xb
0x050a…0529 at000c = ╱ba╱ OF ╱ // 0x516 @0xc
0x050a…0529 at000d = ╱38╱8╱ // 0x517 @0xd
0x050a…0529 at000e = ╱f20800╱ // 0x518 @0xe
0x050a…0529 at0011 = ╱ec╱ , ╱ // 0x51b @0x11
0x050a…0529 at0012 = ╱54╱T╱ // 0x51c @0x12
0x050a…0529 at0013 = ╱5f╱_╱ // 0x51d @0x13
0x050a…0529 at0014 = ╱4b╱K╱ // 0x51e @0x14
0x050a…0529 at0015 = ╱4f╱O╱ // 0x51f @0x15
0x050a…0529 at0016 = ╱44╱D╱ // 0x520 @0x16
0x050a…0529 at0017 = ╱45╱E╱ // 0x521 @0x17
0x050a…0529 at0018 = ╱ef╱ $ ╱ // 0x522 @0x18
0x050a…0529 at0019 = ╱ba╱ OF ╱ // 0x523 @0x19
0x050a…0529 at001a = ╱31╱1╱ // 0x524 @0x1a
0x050a…0529 at001b = ╱f20100╱ // 0x525 @0x1b
0x050a…0529 at001e = EOL // 0x528 @0x1e
0x050a…0529 }
0x0529…0549 9b37 00420 // Variable…til…filen…@@PARAM
0x0529…0549 LineComal80 {
0x0529…0549 ptr = 0x9b37 // 0x529 @0x0
0x0529…0549 lno = 0x01a4 // 0x52b @0x2
0x0529…0549 at0004 = ╱89╱ // ╱ // 0x52d @0x4
0x0529…0549 at0005 = ╱56╱V╱ // 0x52e @0x5
0x0529…0549 at0006 = ╱61╱a╱ // 0x52f @0x6
0x0529…0549 at0007 = ╱72╱r╱ // 0x530 @0x7
0x0529…0549 at0008 = ╱69╱i╱ // 0x531 @0x8
0x0529…0549 at0009 = ╱61╱a╱ // 0x532 @0x9
0x0529…0549 at000a = ╱62╱b╱ // 0x533 @0xa
0x0529…0549 at000b = ╱6c╱l╱ // 0x534 @0xb
0x0529…0549 at000c = ╱65╱e╱ // 0x535 @0xc
0x0529…0549 at000d = ╱20╱…╱ // 0x536 @0xd
0x0529…0549 at000e = ╱74╱t╱ // 0x537 @0xe
0x0529…0549 at000f = ╱69╱i╱ // 0x538 @0xf
0x0529…0549 at0010 = ╱6c╱l╱ // 0x539 @0x10
0x0529…0549 at0011 = ╱20╱…╱ // 0x53a @0x11
0x0529…0549 at0012 = ╱66╱f╱ // 0x53b @0x12
0x0529…0549 at0013 = ╱69╱i╱ // 0x53c @0x13
0x0529…0549 at0014 = ╱6c╱l╱ // 0x53d @0x14
0x0529…0549 at0015 = ╱65╱e╱ // 0x53e @0x15
0x0529…0549 at0016 = ╱6e╱n╱ // 0x53f @0x16
0x0529…0549 at0017 = ╱20╱…╱ // 0x540 @0x17
0x0529…0549 at0018 = ╱40╱@╱ // 0x541 @0x18
0x0529…0549 at0019 = ╱40╱@╱ // 0x542 @0x19
0x0529…0549 at001a = ╱50╱P╱ // 0x543 @0x1a
0x0529…0549 at001b = ╱41╱A╱ // 0x544 @0x1b
0x0529…0549 at001c = ╱52╱R╱ // 0x545 @0x1c
0x0529…0549 at001d = ╱41╱A╱ // 0x546 @0x1d
0x0529…0549 at001e = ╱4d╱M╱ // 0x547 @0x1e
0x0529…0549 at001f = EOL // 0x548 @0x1f
0x0529…0549 }
0x0549…055b 9b49 00430 DIM PARAM $ OF 17
0x0549…055b LineComal80 {
0x0549…055b ptr = 0x9b49 // 0x549 @0x0
0x0549…055b lno = 0x01ae // 0x54b @0x2
0x0549…055b at0004 = ╱87╱ DIM ╱ // 0x54d @0x4
0x0549…055b at0005 = ╱50╱P╱ // 0x54e @0x5
0x0549…055b at0006 = ╱41╱A╱ // 0x54f @0x6
0x0549…055b at0007 = ╱52╱R╱ // 0x550 @0x7
0x0549…055b at0008 = ╱41╱A╱ // 0x551 @0x8
0x0549…055b at0009 = ╱4d╱M╱ // 0x552 @0x9
0x0549…055b at000a = ╱ef╱ $ ╱ // 0x553 @0xa
0x0549…055b at000b = ╱ba╱ OF ╱ // 0x554 @0xb
0x0549…055b at000c = ╱31╱1╱ // 0x555 @0xc
0x0549…055b at000d = ╱37╱7╱ // 0x556 @0xd
0x0549…055b at000e = ╱f21100╱ // 0x557 @0xe
0x0549…055b at0011 = EOL // 0x55a @0x11
0x0549…055b }
0x055b…0580 9b6e 00440 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 6
0x055b…0580 LineComal80 {
0x055b…0580 ptr = 0x9b6e // 0x55b @0x0
0x055b…0580 lno = 0x01b8 // 0x55d @0x2
0x055b…0580 at0004 = ╱87╱ DIM ╱ // 0x55f @0x4
0x055b…0580 at0005 = ╱46╱F╱ // 0x560 @0x5
0x055b…0580 at0006 = ╱49╱I╱ // 0x561 @0x6
0x055b…0580 at0007 = ╱52╱R╱ // 0x562 @0x7
0x055b…0580 at0008 = ╱4d╱M╱ // 0x563 @0x8
0x055b…0580 at0009 = ╱41╱A╱ // 0x564 @0x9
0x055b…0580 at000a = ╱4e╱N╱ // 0x565 @0xa
0x055b…0580 at000b = ╱41╱A╱ // 0x566 @0xb
0x055b…0580 at000c = ╱56╱V╱ // 0x567 @0xc
0x055b…0580 at000d = ╱4e╱N╱ // 0x568 @0xd
0x055b…0580 at000e = ╱ef╱ $ ╱ // 0x569 @0xe
0x055b…0580 at000f = ╱ba╱ OF ╱ // 0x56a @0xf
0x055b…0580 at0010 = ╱33╱3╱ // 0x56b @0x10
0x055b…0580 at0011 = ╱30╱0╱ // 0x56c @0x11
0x055b…0580 at0012 = ╱f21e00╱ // 0x56d @0x12
0x055b…0580 at0015 = ╱ec╱ , ╱ // 0x570 @0x15
0x055b…0580 at0016 = ╱53╱S╱ // 0x571 @0x16
0x055b…0580 at0017 = ╱59╱Y╱ // 0x572 @0x17
0x055b…0580 at0018 = ╱53╱S╱ // 0x573 @0x18
0x055b…0580 at0019 = ╱54╱T╱ // 0x574 @0x19
0x055b…0580 at001a = ╱5f╱_╱ // 0x575 @0x1a
0x055b…0580 at001b = ╱44╱D╱ // 0x576 @0x1b
0x055b…0580 at001c = ╱41╱A╱ // 0x577 @0x1c
0x055b…0580 at001d = ╱54╱T╱ // 0x578 @0x1d
0x055b…0580 at001e = ╱ef╱ $ ╱ // 0x579 @0x1e
0x055b…0580 at001f = ╱ba╱ OF ╱ // 0x57a @0x1f
0x055b…0580 at0020 = ╱36╱6╱ // 0x57b @0x20
0x055b…0580 at0021 = ╱f20600╱ // 0x57c @0x21
0x055b…0580 at0024 = EOL // 0x57f @0x24
0x055b…0580 }
0x0580…058a 9b78 00450 REAL MOMS
0x0580…058a LineComal80 {
0x0580…058a ptr = 0x9b78 // 0x580 @0x0
0x0580…058a lno = 0x01c2 // 0x582 @0x2
0x0580…058a at0004 = ╱b3╱ REAL ╱ // 0x584 @0x4
0x0580…058a at0005 = ╱4d╱M╱ // 0x585 @0x5
0x0580…058a at0006 = ╱4f╱O╱ // 0x586 @0x6
0x0580…058a at0007 = ╱4d╱M╱ // 0x587 @0x7
0x0580…058a at0008 = ╱53╱S╱ // 0x588 @0x8
0x0580…058a at0009 = EOL // 0x589 @0x9
0x0580…058a }
0x058a…05aa 9b98 00460 // Variable…til…filen…@@KONTO
0x058a…05aa LineComal80 {
0x058a…05aa ptr = 0x9b98 // 0x58a @0x0
0x058a…05aa lno = 0x01cc // 0x58c @0x2
0x058a…05aa at0004 = ╱89╱ // ╱ // 0x58e @0x4
0x058a…05aa at0005 = ╱56╱V╱ // 0x58f @0x5
0x058a…05aa at0006 = ╱61╱a╱ // 0x590 @0x6
0x058a…05aa at0007 = ╱72╱r╱ // 0x591 @0x7
0x058a…05aa at0008 = ╱69╱i╱ // 0x592 @0x8
0x058a…05aa at0009 = ╱61╱a╱ // 0x593 @0x9
0x058a…05aa at000a = ╱62╱b╱ // 0x594 @0xa
0x058a…05aa at000b = ╱6c╱l╱ // 0x595 @0xb
0x058a…05aa at000c = ╱65╱e╱ // 0x596 @0xc
0x058a…05aa at000d = ╱20╱…╱ // 0x597 @0xd
0x058a…05aa at000e = ╱74╱t╱ // 0x598 @0xe
0x058a…05aa at000f = ╱69╱i╱ // 0x599 @0xf
0x058a…05aa at0010 = ╱6c╱l╱ // 0x59a @0x10
0x058a…05aa at0011 = ╱20╱…╱ // 0x59b @0x11
0x058a…05aa at0012 = ╱66╱f╱ // 0x59c @0x12
0x058a…05aa at0013 = ╱69╱i╱ // 0x59d @0x13
0x058a…05aa at0014 = ╱6c╱l╱ // 0x59e @0x14
0x058a…05aa at0015 = ╱65╱e╱ // 0x59f @0x15
0x058a…05aa at0016 = ╱6e╱n╱ // 0x5a0 @0x16
0x058a…05aa at0017 = ╱20╱…╱ // 0x5a1 @0x17
0x058a…05aa at0018 = ╱40╱@╱ // 0x5a2 @0x18
0x058a…05aa at0019 = ╱40╱@╱ // 0x5a3 @0x19
0x058a…05aa at001a = ╱4b╱K╱ // 0x5a4 @0x1a
0x058a…05aa at001b = ╱4f╱O╱ // 0x5a5 @0x1b
0x058a…05aa at001c = ╱4e╱N╱ // 0x5a6 @0x1c
0x058a…05aa at001d = ╱54╱T╱ // 0x5a7 @0x1d
0x058a…05aa at001e = ╱4f╱O╱ // 0x5a8 @0x1e
0x058a…05aa at001f = EOL // 0x5a9 @0x1f
0x058a…05aa }
0x05aa…05bc 9baa 00470 DIM KONTO $ OF 17
0x05aa…05bc LineComal80 {
0x05aa…05bc ptr = 0x9baa // 0x5aa @0x0
0x05aa…05bc lno = 0x01d6 // 0x5ac @0x2
0x05aa…05bc at0004 = ╱87╱ DIM ╱ // 0x5ae @0x4
0x05aa…05bc at0005 = ╱4b╱K╱ // 0x5af @0x5
0x05aa…05bc at0006 = ╱4f╱O╱ // 0x5b0 @0x6
0x05aa…05bc at0007 = ╱4e╱N╱ // 0x5b1 @0x7
0x05aa…05bc at0008 = ╱54╱T╱ // 0x5b2 @0x8
0x05aa…05bc at0009 = ╱4f╱O╱ // 0x5b3 @0x9
0x05aa…05bc at000a = ╱ef╱ $ ╱ // 0x5b4 @0xa
0x05aa…05bc at000b = ╱ba╱ OF ╱ // 0x5b5 @0xb
0x05aa…05bc at000c = ╱31╱1╱ // 0x5b6 @0xc
0x05aa…05bc at000d = ╱37╱7╱ // 0x5b7 @0xd
0x05aa…05bc at000e = ╱f21100╱ // 0x5b8 @0xe
0x05aa…05bc at0011 = EOL // 0x5bb @0x11
0x05aa…05bc }
0x05bc…05cf 9bbd 00480 DIM ST_DATO $ OF 6
0x05bc…05cf LineComal80 {
0x05bc…05cf ptr = 0x9bbd // 0x5bc @0x0
0x05bc…05cf lno = 0x01e0 // 0x5be @0x2
0x05bc…05cf at0004 = ╱87╱ DIM ╱ // 0x5c0 @0x4
0x05bc…05cf at0005 = ╱53╱S╱ // 0x5c1 @0x5
0x05bc…05cf at0006 = ╱54╱T╱ // 0x5c2 @0x6
0x05bc…05cf at0007 = ╱5f╱_╱ // 0x5c3 @0x7
0x05bc…05cf at0008 = ╱44╱D╱ // 0x5c4 @0x8
0x05bc…05cf at0009 = ╱41╱A╱ // 0x5c5 @0x9
0x05bc…05cf at000a = ╱54╱T╱ // 0x5c6 @0xa
0x05bc…05cf at000b = ╱4f╱O╱ // 0x5c7 @0xb
0x05bc…05cf at000c = ╱ef╱ $ ╱ // 0x5c8 @0xc
0x05bc…05cf at000d = ╱ba╱ OF ╱ // 0x5c9 @0xd
0x05bc…05cf at000e = ╱36╱6╱ // 0x5ca @0xe
0x05bc…05cf at000f = ╱f20600╱ // 0x5cb @0xf
0x05bc…05cf at0012 = EOL // 0x5ce @0x12
0x05bc…05cf }
0x05cf…05f5 9be3 00490 INTEGER N_FRIREC , N_MAXREC , ANT_PER , PER_NR
0x05cf…05f5 LineComal80 {
0x05cf…05f5 ptr = 0x9be3 // 0x5cf @0x0
0x05cf…05f5 lno = 0x01ea // 0x5d1 @0x2
0x05cf…05f5 at0004 = ╱b2╱ INTEGER ╱ // 0x5d3 @0x4
0x05cf…05f5 at0005 = ╱4e╱N╱ // 0x5d4 @0x5
0x05cf…05f5 at0006 = ╱5f╱_╱ // 0x5d5 @0x6
0x05cf…05f5 at0007 = ╱46╱F╱ // 0x5d6 @0x7
0x05cf…05f5 at0008 = ╱52╱R╱ // 0x5d7 @0x8
0x05cf…05f5 at0009 = ╱49╱I╱ // 0x5d8 @0x9
0x05cf…05f5 at000a = ╱52╱R╱ // 0x5d9 @0xa
0x05cf…05f5 at000b = ╱45╱E╱ // 0x5da @0xb
0x05cf…05f5 at000c = ╱43╱C╱ // 0x5db @0xc
0x05cf…05f5 at000d = ╱ec╱ , ╱ // 0x5dc @0xd
0x05cf…05f5 at000e = ╱4e╱N╱ // 0x5dd @0xe
0x05cf…05f5 at000f = ╱5f╱_╱ // 0x5de @0xf
0x05cf…05f5 at0010 = ╱4d╱M╱ // 0x5df @0x10
0x05cf…05f5 at0011 = ╱41╱A╱ // 0x5e0 @0x11
0x05cf…05f5 at0012 = ╱58╱X╱ // 0x5e1 @0x12
0x05cf…05f5 at0013 = ╱52╱R╱ // 0x5e2 @0x13
0x05cf…05f5 at0014 = ╱45╱E╱ // 0x5e3 @0x14
0x05cf…05f5 at0015 = ╱43╱C╱ // 0x5e4 @0x15
0x05cf…05f5 at0016 = ╱ec╱ , ╱ // 0x5e5 @0x16
0x05cf…05f5 at0017 = ╱41╱A╱ // 0x5e6 @0x17
0x05cf…05f5 at0018 = ╱4e╱N╱ // 0x5e7 @0x18
0x05cf…05f5 at0019 = ╱54╱T╱ // 0x5e8 @0x19
0x05cf…05f5 at001a = ╱5f╱_╱ // 0x5e9 @0x1a
0x05cf…05f5 at001b = ╱50╱P╱ // 0x5ea @0x1b
0x05cf…05f5 at001c = ╱45╱E╱ // 0x5eb @0x1c
0x05cf…05f5 at001d = ╱52╱R╱ // 0x5ec @0x1d
0x05cf…05f5 at001e = ╱ec╱ , ╱ // 0x5ed @0x1e
0x05cf…05f5 at001f = ╱50╱P╱ // 0x5ee @0x1f
0x05cf…05f5 at0020 = ╱45╱E╱ // 0x5ef @0x20
0x05cf…05f5 at0021 = ╱52╱R╱ // 0x5f0 @0x21
0x05cf…05f5 at0022 = ╱5f╱_╱ // 0x5f1 @0x22
0x05cf…05f5 at0023 = ╱4e╱N╱ // 0x5f2 @0x23
0x05cf…05f5 at0024 = ╱52╱R╱ // 0x5f3 @0x24
0x05cf…05f5 at0025 = EOL // 0x5f4 @0x25
0x05cf…05f5 }
0x05f5…0619 9c07 00500 DIM KTO_TYPE $ OF 1 , KTO_NAVN $ OF 40
0x05f5…0619 LineComal80 {
0x05f5…0619 ptr = 0x9c07 // 0x5f5 @0x0
0x05f5…0619 lno = 0x01f4 // 0x5f7 @0x2
0x05f5…0619 at0004 = ╱87╱ DIM ╱ // 0x5f9 @0x4
0x05f5…0619 at0005 = ╱4b╱K╱ // 0x5fa @0x5
0x05f5…0619 at0006 = ╱54╱T╱ // 0x5fb @0x6
0x05f5…0619 at0007 = ╱4f╱O╱ // 0x5fc @0x7
0x05f5…0619 at0008 = ╱5f╱_╱ // 0x5fd @0x8
0x05f5…0619 at0009 = ╱54╱T╱ // 0x5fe @0x9
0x05f5…0619 at000a = ╱59╱Y╱ // 0x5ff @0xa
0x05f5…0619 at000b = ╱50╱P╱ // 0x600 @0xb
0x05f5…0619 at000c = ╱45╱E╱ // 0x601 @0xc
0x05f5…0619 at000d = ╱ef╱ $ ╱ // 0x602 @0xd
0x05f5…0619 at000e = ╱ba╱ OF ╱ // 0x603 @0xe
0x05f5…0619 at000f = ╱31╱1╱ // 0x604 @0xf
0x05f5…0619 at0010 = ╱f20100╱ // 0x605 @0x10
0x05f5…0619 at0013 = ╱ec╱ , ╱ // 0x608 @0x13
0x05f5…0619 at0014 = ╱4b╱K╱ // 0x609 @0x14
0x05f5…0619 at0015 = ╱54╱T╱ // 0x60a @0x15
0x05f5…0619 at0016 = ╱4f╱O╱ // 0x60b @0x16
0x05f5…0619 at0017 = ╱5f╱_╱ // 0x60c @0x17
0x05f5…0619 at0018 = ╱4e╱N╱ // 0x60d @0x18
0x05f5…0619 at0019 = ╱41╱A╱ // 0x60e @0x19
0x05f5…0619 at001a = ╱56╱V╱ // 0x60f @0x1a
0x05f5…0619 at001b = ╱4e╱N╱ // 0x610 @0x1b
0x05f5…0619 at001c = ╱ef╱ $ ╱ // 0x611 @0x1c
0x05f5…0619 at001d = ╱ba╱ OF ╱ // 0x612 @0x1d
0x05f5…0619 at001e = ╱34╱4╱ // 0x613 @0x1e
0x05f5…0619 at001f = ╱30╱0╱ // 0x614 @0x1f
0x05f5…0619 at0020 = ╱f22800╱ // 0x615 @0x20
0x05f5…0619 at0023 = EOL // 0x618 @0x23
0x05f5…0619 }
0x0619…0633 9c21 00510 REAL KTO_PRIMO , KTO_ULTIMO
0x0619…0633 LineComal80 {
0x0619…0633 ptr = 0x9c21 // 0x619 @0x0
0x0619…0633 lno = 0x01fe // 0x61b @0x2
0x0619…0633 at0004 = ╱b3╱ REAL ╱ // 0x61d @0x4
0x0619…0633 at0005 = ╱4b╱K╱ // 0x61e @0x5
0x0619…0633 at0006 = ╱54╱T╱ // 0x61f @0x6
0x0619…0633 at0007 = ╱4f╱O╱ // 0x620 @0x7
0x0619…0633 at0008 = ╱5f╱_╱ // 0x621 @0x8
0x0619…0633 at0009 = ╱50╱P╱ // 0x622 @0x9
0x0619…0633 at000a = ╱52╱R╱ // 0x623 @0xa
0x0619…0633 at000b = ╱49╱I╱ // 0x624 @0xb
0x0619…0633 at000c = ╱4d╱M╱ // 0x625 @0xc
0x0619…0633 at000d = ╱4f╱O╱ // 0x626 @0xd
0x0619…0633 at000e = ╱ec╱ , ╱ // 0x627 @0xe
0x0619…0633 at000f = ╱4b╱K╱ // 0x628 @0xf
0x0619…0633 at0010 = ╱54╱T╱ // 0x629 @0x10
0x0619…0633 at0011 = ╱4f╱O╱ // 0x62a @0x11
0x0619…0633 at0012 = ╱5f╱_╱ // 0x62b @0x12
0x0619…0633 at0013 = ╱55╱U╱ // 0x62c @0x13
0x0619…0633 at0014 = ╱4c╱L╱ // 0x62d @0x14
0x0619…0633 at0015 = ╱54╱T╱ // 0x62e @0x15
0x0619…0633 at0016 = ╱49╱I╱ // 0x62f @0x16
0x0619…0633 at0017 = ╱4d╱M╱ // 0x630 @0x17
0x0619…0633 at0018 = ╱4f╱O╱ // 0x631 @0x18
0x0619…0633 at0019 = EOL // 0x632 @0x19
0x0619…0633 }
0x0633…0646 9c34 00520 INTEGER KTO_FP , KTO_SP
0x0633…0646 LineComal80 {
0x0633…0646 ptr = 0x9c34 // 0x633 @0x0
0x0633…0646 lno = 0x0208 // 0x635 @0x2
0x0633…0646 at0004 = ╱b2╱ INTEGER ╱ // 0x637 @0x4
0x0633…0646 at0005 = ╱4b╱K╱ // 0x638 @0x5
0x0633…0646 at0006 = ╱54╱T╱ // 0x639 @0x6
0x0633…0646 at0007 = ╱4f╱O╱ // 0x63a @0x7
0x0633…0646 at0008 = ╱5f╱_╱ // 0x63b @0x8
0x0633…0646 at0009 = ╱46╱F╱ // 0x63c @0x9
0x0633…0646 at000a = ╱50╱P╱ // 0x63d @0xa
0x0633…0646 at000b = ╱ec╱ , ╱ // 0x63e @0xb
0x0633…0646 at000c = ╱4b╱K╱ // 0x63f @0xc
0x0633…0646 at000d = ╱54╱T╱ // 0x640 @0xd
0x0633…0646 at000e = ╱4f╱O╱ // 0x641 @0xe
0x0633…0646 at000f = ╱5f╱_╱ // 0x642 @0xf
0x0633…0646 at0010 = ╱53╱S╱ // 0x643 @0x10
0x0633…0646 at0011 = ╱50╱P╱ // 0x644 @0x11
0x0633…0646 at0012 = EOL // 0x645 @0x12
0x0633…0646 }
0x0646…0667 9c55 00530 // Variable…til…filen…@@KTOIDX
0x0646…0667 LineComal80 {
0x0646…0667 ptr = 0x9c55 // 0x646 @0x0
0x0646…0667 lno = 0x0212 // 0x648 @0x2
0x0646…0667 at0004 = ╱89╱ // ╱ // 0x64a @0x4
0x0646…0667 at0005 = ╱56╱V╱ // 0x64b @0x5
0x0646…0667 at0006 = ╱61╱a╱ // 0x64c @0x6
0x0646…0667 at0007 = ╱72╱r╱ // 0x64d @0x7
0x0646…0667 at0008 = ╱69╱i╱ // 0x64e @0x8
0x0646…0667 at0009 = ╱61╱a╱ // 0x64f @0x9
0x0646…0667 at000a = ╱62╱b╱ // 0x650 @0xa
0x0646…0667 at000b = ╱6c╱l╱ // 0x651 @0xb
0x0646…0667 at000c = ╱65╱e╱ // 0x652 @0xc
0x0646…0667 at000d = ╱20╱…╱ // 0x653 @0xd
0x0646…0667 at000e = ╱74╱t╱ // 0x654 @0xe
0x0646…0667 at000f = ╱69╱i╱ // 0x655 @0xf
0x0646…0667 at0010 = ╱6c╱l╱ // 0x656 @0x10
0x0646…0667 at0011 = ╱20╱…╱ // 0x657 @0x11
0x0646…0667 at0012 = ╱66╱f╱ // 0x658 @0x12
0x0646…0667 at0013 = ╱69╱i╱ // 0x659 @0x13
0x0646…0667 at0014 = ╱6c╱l╱ // 0x65a @0x14
0x0646…0667 at0015 = ╱65╱e╱ // 0x65b @0x15
0x0646…0667 at0016 = ╱6e╱n╱ // 0x65c @0x16
0x0646…0667 at0017 = ╱20╱…╱ // 0x65d @0x17
0x0646…0667 at0018 = ╱40╱@╱ // 0x65e @0x18
0x0646…0667 at0019 = ╱40╱@╱ // 0x65f @0x19
0x0646…0667 at001a = ╱4b╱K╱ // 0x660 @0x1a
0x0646…0667 at001b = ╱54╱T╱ // 0x661 @0x1b
0x0646…0667 at001c = ╱4f╱O╱ // 0x662 @0x1c
0x0646…0667 at001d = ╱49╱I╱ // 0x663 @0x1d
0x0646…0667 at001e = ╱44╱D╱ // 0x664 @0x1e
0x0646…0667 at001f = ╱58╱X╱ // 0x665 @0x1f
0x0646…0667 at0020 = EOL // 0x666 @0x20
0x0646…0667 }
0x0667…067a 9c68 00540 DIM KTOIDX $ OF 17
0x0667…067a LineComal80 {
0x0667…067a ptr = 0x9c68 // 0x667 @0x0
0x0667…067a lno = 0x021c // 0x669 @0x2
0x0667…067a at0004 = ╱87╱ DIM ╱ // 0x66b @0x4
0x0667…067a at0005 = ╱4b╱K╱ // 0x66c @0x5
0x0667…067a at0006 = ╱54╱T╱ // 0x66d @0x6
0x0667…067a at0007 = ╱4f╱O╱ // 0x66e @0x7
0x0667…067a at0008 = ╱49╱I╱ // 0x66f @0x8
0x0667…067a at0009 = ╱44╱D╱ // 0x670 @0x9
0x0667…067a at000a = ╱58╱X╱ // 0x671 @0xa
0x0667…067a at000b = ╱ef╱ $ ╱ // 0x672 @0xb
0x0667…067a at000c = ╱ba╱ OF ╱ // 0x673 @0xc
0x0667…067a at000d = ╱31╱1╱ // 0x674 @0xd
0x0667…067a at000e = ╱37╱7╱ // 0x675 @0xe
0x0667…067a at000f = ╱f21100╱ // 0x676 @0xf
0x0667…067a at0012 = EOL // 0x679 @0x12
0x0667…067a }
0x067a…0691 9c7f 00550 INTEGER I_H\JREC , I_MAXREC
0x067a…0691 LineComal80 {
0x067a…0691 ptr = 0x9c7f // 0x67a @0x0
0x067a…0691 lno = 0x0226 // 0x67c @0x2
0x067a…0691 at0004 = ╱b2╱ INTEGER ╱ // 0x67e @0x4
0x067a…0691 at0005 = ╱49╱I╱ // 0x67f @0x5
0x067a…0691 at0006 = ╱5f╱_╱ // 0x680 @0x6
0x067a…0691 at0007 = ╱48╱H╱ // 0x681 @0x7
0x067a…0691 at0008 = ╱5c╱\╱ // 0x682 @0x8
0x067a…0691 at0009 = ╱4a╱J╱ // 0x683 @0x9
0x067a…0691 at000a = ╱52╱R╱ // 0x684 @0xa
0x067a…0691 at000b = ╱45╱E╱ // 0x685 @0xb
0x067a…0691 at000c = ╱43╱C╱ // 0x686 @0xc
0x067a…0691 at000d = ╱ec╱ , ╱ // 0x687 @0xd
0x067a…0691 at000e = ╱49╱I╱ // 0x688 @0xe
0x067a…0691 at000f = ╱5f╱_╱ // 0x689 @0xf
0x067a…0691 at0010 = ╱4d╱M╱ // 0x68a @0x10
0x067a…0691 at0011 = ╱41╱A╱ // 0x68b @0x11
0x067a…0691 at0012 = ╱58╱X╱ // 0x68c @0x12
0x067a…0691 at0013 = ╱52╱R╱ // 0x68d @0x13
0x067a…0691 at0014 = ╱45╱E╱ // 0x68e @0x14
0x067a…0691 at0015 = ╱43╱C╱ // 0x68f @0x15
0x067a…0691 at0016 = EOL // 0x690 @0x16
0x067a…0691 }
0x0691…06a2 9c90 00560 DIM KTONR $ OF 8
0x0691…06a2 LineComal80 {
0x0691…06a2 ptr = 0x9c90 // 0x691 @0x0
0x0691…06a2 lno = 0x0230 // 0x693 @0x2
0x0691…06a2 at0004 = ╱87╱ DIM ╱ // 0x695 @0x4
0x0691…06a2 at0005 = ╱4b╱K╱ // 0x696 @0x5
0x0691…06a2 at0006 = ╱54╱T╱ // 0x697 @0x6
0x0691…06a2 at0007 = ╱4f╱O╱ // 0x698 @0x7
0x0691…06a2 at0008 = ╱4e╱N╱ // 0x699 @0x8
0x0691…06a2 at0009 = ╱52╱R╱ // 0x69a @0x9
0x0691…06a2 at000a = ╱ef╱ $ ╱ // 0x69b @0xa
0x0691…06a2 at000b = ╱ba╱ OF ╱ // 0x69c @0xb
0x0691…06a2 at000c = ╱38╱8╱ // 0x69d @0xc
0x0691…06a2 at000d = ╱f20800╱ // 0x69e @0xd
0x0691…06a2 at0010 = EOL // 0x6a1 @0x10
0x0691…06a2 }
0x06a2…06ad 9c9b 00570 INTEGER RECNR
0x06a2…06ad LineComal80 {
0x06a2…06ad ptr = 0x9c9b // 0x6a2 @0x0
0x06a2…06ad lno = 0x023a // 0x6a4 @0x2
0x06a2…06ad at0004 = ╱b2╱ INTEGER ╱ // 0x6a6 @0x4
0x06a2…06ad at0005 = ╱52╱R╱ // 0x6a7 @0x5
0x06a2…06ad at0006 = ╱45╱E╱ // 0x6a8 @0x6
0x06a2…06ad at0007 = ╱43╱C╱ // 0x6a9 @0x7
0x06a2…06ad at0008 = ╱4e╱N╱ // 0x6aa @0x8
0x06a2…06ad at0009 = ╱52╱R╱ // 0x6ab @0x9
0x06a2…06ad at000a = EOL // 0x6ac @0xa
0x06a2…06ad }
0x06ad…06ce 9cbc 00580 // Variable…til…filen…@@ST_KTO
0x06ad…06ce LineComal80 {
0x06ad…06ce ptr = 0x9cbc // 0x6ad @0x0
0x06ad…06ce lno = 0x0244 // 0x6af @0x2
0x06ad…06ce at0004 = ╱89╱ // ╱ // 0x6b1 @0x4
0x06ad…06ce at0005 = ╱56╱V╱ // 0x6b2 @0x5
0x06ad…06ce at0006 = ╱61╱a╱ // 0x6b3 @0x6
0x06ad…06ce at0007 = ╱72╱r╱ // 0x6b4 @0x7
0x06ad…06ce at0008 = ╱69╱i╱ // 0x6b5 @0x8
0x06ad…06ce at0009 = ╱61╱a╱ // 0x6b6 @0x9
0x06ad…06ce at000a = ╱62╱b╱ // 0x6b7 @0xa
0x06ad…06ce at000b = ╱6c╱l╱ // 0x6b8 @0xb
0x06ad…06ce at000c = ╱65╱e╱ // 0x6b9 @0xc
0x06ad…06ce at000d = ╱20╱…╱ // 0x6ba @0xd
0x06ad…06ce at000e = ╱74╱t╱ // 0x6bb @0xe
0x06ad…06ce at000f = ╱69╱i╱ // 0x6bc @0xf
0x06ad…06ce at0010 = ╱6c╱l╱ // 0x6bd @0x10
0x06ad…06ce at0011 = ╱20╱…╱ // 0x6be @0x11
0x06ad…06ce at0012 = ╱66╱f╱ // 0x6bf @0x12
0x06ad…06ce at0013 = ╱69╱i╱ // 0x6c0 @0x13
0x06ad…06ce at0014 = ╱6c╱l╱ // 0x6c1 @0x14
0x06ad…06ce at0015 = ╱65╱e╱ // 0x6c2 @0x15
0x06ad…06ce at0016 = ╱6e╱n╱ // 0x6c3 @0x16
0x06ad…06ce at0017 = ╱20╱…╱ // 0x6c4 @0x17
0x06ad…06ce at0018 = ╱40╱@╱ // 0x6c5 @0x18
0x06ad…06ce at0019 = ╱40╱@╱ // 0x6c6 @0x19
0x06ad…06ce at001a = ╱53╱S╱ // 0x6c7 @0x1a
0x06ad…06ce at001b = ╱54╱T╱ // 0x6c8 @0x1b
0x06ad…06ce at001c = ╱5f╱_╱ // 0x6c9 @0x1c
0x06ad…06ce at001d = ╱4b╱K╱ // 0x6ca @0x1d
0x06ad…06ce at001e = ╱54╱T╱ // 0x6cb @0x1e
0x06ad…06ce at001f = ╱4f╱O╱ // 0x6cc @0x1f
0x06ad…06ce at0020 = EOL // 0x6cd @0x20
0x06ad…06ce }
0x06ce…06e1 9ccf 00590 DIM ST_KTO $ OF 17
0x06ce…06e1 LineComal80 {
0x06ce…06e1 ptr = 0x9ccf // 0x6ce @0x0
0x06ce…06e1 lno = 0x024e // 0x6d0 @0x2
0x06ce…06e1 at0004 = ╱87╱ DIM ╱ // 0x6d2 @0x4
0x06ce…06e1 at0005 = ╱53╱S╱ // 0x6d3 @0x5
0x06ce…06e1 at0006 = ╱54╱T╱ // 0x6d4 @0x6
0x06ce…06e1 at0007 = ╱5f╱_╱ // 0x6d5 @0x7
0x06ce…06e1 at0008 = ╱4b╱K╱ // 0x6d6 @0x8
0x06ce…06e1 at0009 = ╱54╱T╱ // 0x6d7 @0x9
0x06ce…06e1 at000a = ╱4f╱O╱ // 0x6d8 @0xa
0x06ce…06e1 at000b = ╱ef╱ $ ╱ // 0x6d9 @0xb
0x06ce…06e1 at000c = ╱ba╱ OF ╱ // 0x6da @0xc
0x06ce…06e1 at000d = ╱31╱1╱ // 0x6db @0xd
0x06ce…06e1 at000e = ╱37╱7╱ // 0x6dc @0xe
0x06ce…06e1 at000f = ╱f21100╱ // 0x6dd @0xf
0x06ce…06e1 at0012 = EOL // 0x6e0 @0x12
0x06ce…06e1 }
0x06e1…0714 9d02 00600 DIM KASSE_KTO $ OF 8 , BANK_KTO $ OF 8 , GIRO_KTO $ OF 8
0x06e1…0714 LineComal80 {
0x06e1…0714 ptr = 0x9d02 // 0x6e1 @0x0
0x06e1…0714 lno = 0x0258 // 0x6e3 @0x2
0x06e1…0714 at0004 = ╱87╱ DIM ╱ // 0x6e5 @0x4
0x06e1…0714 at0005 = ╱4b╱K╱ // 0x6e6 @0x5
0x06e1…0714 at0006 = ╱41╱A╱ // 0x6e7 @0x6
0x06e1…0714 at0007 = ╱53╱S╱ // 0x6e8 @0x7
0x06e1…0714 at0008 = ╱53╱S╱ // 0x6e9 @0x8
0x06e1…0714 at0009 = ╱45╱E╱ // 0x6ea @0x9
0x06e1…0714 at000a = ╱5f╱_╱ // 0x6eb @0xa
0x06e1…0714 at000b = ╱4b╱K╱ // 0x6ec @0xb
0x06e1…0714 at000c = ╱54╱T╱ // 0x6ed @0xc
0x06e1…0714 at000d = ╱4f╱O╱ // 0x6ee @0xd
0x06e1…0714 at000e = ╱ef╱ $ ╱ // 0x6ef @0xe
0x06e1…0714 at000f = ╱ba╱ OF ╱ // 0x6f0 @0xf
0x06e1…0714 at0010 = ╱38╱8╱ // 0x6f1 @0x10
0x06e1…0714 at0011 = ╱f20800╱ // 0x6f2 @0x11
0x06e1…0714 at0014 = ╱ec╱ , ╱ // 0x6f5 @0x14
0x06e1…0714 at0015 = ╱42╱B╱ // 0x6f6 @0x15
0x06e1…0714 at0016 = ╱41╱A╱ // 0x6f7 @0x16
0x06e1…0714 at0017 = ╱4e╱N╱ // 0x6f8 @0x17
0x06e1…0714 at0018 = ╱4b╱K╱ // 0x6f9 @0x18
0x06e1…0714 at0019 = ╱5f╱_╱ // 0x6fa @0x19
0x06e1…0714 at001a = ╱4b╱K╱ // 0x6fb @0x1a
0x06e1…0714 at001b = ╱54╱T╱ // 0x6fc @0x1b
0x06e1…0714 at001c = ╱4f╱O╱ // 0x6fd @0x1c
0x06e1…0714 at001d = ╱ef╱ $ ╱ // 0x6fe @0x1d
0x06e1…0714 at001e = ╱ba╱ OF ╱ // 0x6ff @0x1e
0x06e1…0714 at001f = ╱38╱8╱ // 0x700 @0x1f
0x06e1…0714 at0020 = ╱f20800╱ // 0x701 @0x20
0x06e1…0714 at0023 = ╱ec╱ , ╱ // 0x704 @0x23
0x06e1…0714 at0024 = ╱47╱G╱ // 0x705 @0x24
0x06e1…0714 at0025 = ╱49╱I╱ // 0x706 @0x25
0x06e1…0714 at0026 = ╱52╱R╱ // 0x707 @0x26
0x06e1…0714 at0027 = ╱4f╱O╱ // 0x708 @0x27
0x06e1…0714 at0028 = ╱5f╱_╱ // 0x709 @0x28
0x06e1…0714 at0029 = ╱4b╱K╱ // 0x70a @0x29
0x06e1…0714 at002a = ╱54╱T╱ // 0x70b @0x2a
0x06e1…0714 at002b = ╱4f╱O╱ // 0x70c @0x2b
0x06e1…0714 at002c = ╱ef╱ $ ╱ // 0x70d @0x2c
0x06e1…0714 at002d = ╱ba╱ OF ╱ // 0x70e @0x2d
0x06e1…0714 at002e = ╱38╱8╱ // 0x70f @0x2e
0x06e1…0714 at002f = ╱f20800╱ // 0x710 @0x2f
0x06e1…0714 at0032 = EOL // 0x713 @0x32
0x06e1…0714 }
0x0714…0735 9d23 00610 // Variable…til…filen…@@DG_POS
0x0714…0735 LineComal80 {
0x0714…0735 ptr = 0x9d23 // 0x714 @0x0
0x0714…0735 lno = 0x0262 // 0x716 @0x2
0x0714…0735 at0004 = ╱89╱ // ╱ // 0x718 @0x4
0x0714…0735 at0005 = ╱56╱V╱ // 0x719 @0x5
0x0714…0735 at0006 = ╱61╱a╱ // 0x71a @0x6
0x0714…0735 at0007 = ╱72╱r╱ // 0x71b @0x7
0x0714…0735 at0008 = ╱69╱i╱ // 0x71c @0x8
0x0714…0735 at0009 = ╱61╱a╱ // 0x71d @0x9
0x0714…0735 at000a = ╱62╱b╱ // 0x71e @0xa
0x0714…0735 at000b = ╱6c╱l╱ // 0x71f @0xb
0x0714…0735 at000c = ╱65╱e╱ // 0x720 @0xc
0x0714…0735 at000d = ╱20╱…╱ // 0x721 @0xd
0x0714…0735 at000e = ╱74╱t╱ // 0x722 @0xe
0x0714…0735 at000f = ╱69╱i╱ // 0x723 @0xf
0x0714…0735 at0010 = ╱6c╱l╱ // 0x724 @0x10
0x0714…0735 at0011 = ╱20╱…╱ // 0x725 @0x11
0x0714…0735 at0012 = ╱66╱f╱ // 0x726 @0x12
0x0714…0735 at0013 = ╱69╱i╱ // 0x727 @0x13
0x0714…0735 at0014 = ╱6c╱l╱ // 0x728 @0x14
0x0714…0735 at0015 = ╱65╱e╱ // 0x729 @0x15
0x0714…0735 at0016 = ╱6e╱n╱ // 0x72a @0x16
0x0714…0735 at0017 = ╱20╱…╱ // 0x72b @0x17
0x0714…0735 at0018 = ╱40╱@╱ // 0x72c @0x18
0x0714…0735 at0019 = ╱40╱@╱ // 0x72d @0x19
0x0714…0735 at001a = ╱44╱D╱ // 0x72e @0x1a
0x0714…0735 at001b = ╱47╱G╱ // 0x72f @0x1b
0x0714…0735 at001c = ╱5f╱_╱ // 0x730 @0x1c
0x0714…0735 at001d = ╱50╱P╱ // 0x731 @0x1d
0x0714…0735 at001e = ╱4f╱O╱ // 0x732 @0x1e
0x0714…0735 at001f = ╱53╱S╱ // 0x733 @0x1f
0x0714…0735 at0020 = EOL // 0x734 @0x20
0x0714…0735 }
0x0735…0748 9d36 00620 DIM DG_POS $ OF 17
0x0735…0748 LineComal80 {
0x0735…0748 ptr = 0x9d36 // 0x735 @0x0
0x0735…0748 lno = 0x026c // 0x737 @0x2
0x0735…0748 at0004 = ╱87╱ DIM ╱ // 0x739 @0x4
0x0735…0748 at0005 = ╱44╱D╱ // 0x73a @0x5
0x0735…0748 at0006 = ╱47╱G╱ // 0x73b @0x6
0x0735…0748 at0007 = ╱5f╱_╱ // 0x73c @0x7
0x0735…0748 at0008 = ╱50╱P╱ // 0x73d @0x8
0x0735…0748 at0009 = ╱4f╱O╱ // 0x73e @0x9
0x0735…0748 at000a = ╱53╱S╱ // 0x73f @0xa
0x0735…0748 at000b = ╱ef╱ $ ╱ // 0x740 @0xb
0x0735…0748 at000c = ╱ba╱ OF ╱ // 0x741 @0xc
0x0735…0748 at000d = ╱31╱1╱ // 0x742 @0xd
0x0735…0748 at000e = ╱37╱7╱ // 0x743 @0xe
0x0735…0748 at000f = ╱f21100╱ // 0x744 @0xf
0x0735…0748 at0012 = EOL // 0x747 @0x12
0x0735…0748 }
0x0748…075a 9d48 00630 DIM P_BDAT $ OF 6
0x0748…075a LineComal80 {
0x0748…075a ptr = 0x9d48 // 0x748 @0x0
0x0748…075a lno = 0x0276 // 0x74a @0x2
0x0748…075a at0004 = ╱87╱ DIM ╱ // 0x74c @0x4
0x0748…075a at0005 = ╱50╱P╱ // 0x74d @0x5
0x0748…075a at0006 = ╱5f╱_╱ // 0x74e @0x6
0x0748…075a at0007 = ╱42╱B╱ // 0x74f @0x7
0x0748…075a at0008 = ╱44╱D╱ // 0x750 @0x8
0x0748…075a at0009 = ╱41╱A╱ // 0x751 @0x9
0x0748…075a at000a = ╱54╱T╱ // 0x752 @0xa
0x0748…075a at000b = ╱ef╱ $ ╱ // 0x753 @0xb
0x0748…075a at000c = ╱ba╱ OF ╱ // 0x754 @0xc
0x0748…075a at000d = ╱36╱6╱ // 0x755 @0xd
0x0748…075a at000e = ╱f20600╱ // 0x756 @0xe
0x0748…075a at0011 = EOL // 0x759 @0x11
0x0748…075a }
0x075a…076c 9d5a 00640 REAL P_DEB , P_KRED
0x075a…076c LineComal80 {
0x075a…076c ptr = 0x9d5a // 0x75a @0x0
0x075a…076c lno = 0x0280 // 0x75c @0x2
0x075a…076c at0004 = ╱b3╱ REAL ╱ // 0x75e @0x4
0x075a…076c at0005 = ╱50╱P╱ // 0x75f @0x5
0x075a…076c at0006 = ╱5f╱_╱ // 0x760 @0x6
0x075a…076c at0007 = ╱44╱D╱ // 0x761 @0x7
0x075a…076c at0008 = ╱45╱E╱ // 0x762 @0x8
0x075a…076c at0009 = ╱42╱B╱ // 0x763 @0x9
0x075a…076c at000a = ╱ec╱ , ╱ // 0x764 @0xa
0x075a…076c at000b = ╱50╱P╱ // 0x765 @0xb
0x075a…076c at000c = ╱5f╱_╱ // 0x766 @0xc
0x075a…076c at000d = ╱4b╱K╱ // 0x767 @0xd
0x075a…076c at000e = ╱52╱R╱ // 0x768 @0xe
0x075a…076c at000f = ╱45╱E╱ // 0x769 @0xf
0x075a…076c at0010 = ╱44╱D╱ // 0x76a @0x10
0x075a…076c at0011 = EOL // 0x76b @0x11
0x075a…076c }
0x076c…078f 9d7d 00650 INTEGER P_H\JREC , P_MAXREC , S_NR_DG_POS
0x076c…078f LineComal80 {
0x076c…078f ptr = 0x9d7d // 0x76c @0x0
0x076c…078f lno = 0x028a // 0x76e @0x2
0x076c…078f at0004 = ╱b2╱ INTEGER ╱ // 0x770 @0x4
0x076c…078f at0005 = ╱50╱P╱ // 0x771 @0x5
0x076c…078f at0006 = ╱5f╱_╱ // 0x772 @0x6
0x076c…078f at0007 = ╱48╱H╱ // 0x773 @0x7
0x076c…078f at0008 = ╱5c╱\╱ // 0x774 @0x8
0x076c…078f at0009 = ╱4a╱J╱ // 0x775 @0x9
0x076c…078f at000a = ╱52╱R╱ // 0x776 @0xa
0x076c…078f at000b = ╱45╱E╱ // 0x777 @0xb
0x076c…078f at000c = ╱43╱C╱ // 0x778 @0xc
0x076c…078f at000d = ╱ec╱ , ╱ // 0x779 @0xd
0x076c…078f at000e = ╱50╱P╱ // 0x77a @0xe
0x076c…078f at000f = ╱5f╱_╱ // 0x77b @0xf
0x076c…078f at0010 = ╱4d╱M╱ // 0x77c @0x10
0x076c…078f at0011 = ╱41╱A╱ // 0x77d @0x11
0x076c…078f at0012 = ╱58╱X╱ // 0x77e @0x12
0x076c…078f at0013 = ╱52╱R╱ // 0x77f @0x13
0x076c…078f at0014 = ╱45╱E╱ // 0x780 @0x14
0x076c…078f at0015 = ╱43╱C╱ // 0x781 @0x15
0x076c…078f at0016 = ╱ec╱ , ╱ // 0x782 @0x16
0x076c…078f at0017 = ╱53╱S╱ // 0x783 @0x17
0x076c…078f at0018 = ╱5f╱_╱ // 0x784 @0x18
0x076c…078f at0019 = ╱4e╱N╱ // 0x785 @0x19
0x076c…078f at001a = ╱52╱R╱ // 0x786 @0x1a
0x076c…078f at001b = ╱5f╱_╱ // 0x787 @0x1b
0x076c…078f at001c = ╱44╱D╱ // 0x788 @0x1c
0x076c…078f at001d = ╱47╱G╱ // 0x789 @0x1d
0x076c…078f at001e = ╱5f╱_╱ // 0x78a @0x1e
0x076c…078f at001f = ╱50╱P╱ // 0x78b @0x1f
0x076c…078f at0020 = ╱4f╱O╱ // 0x78c @0x20
0x076c…078f at0021 = ╱53╱S╱ // 0x78d @0x21
0x076c…078f at0022 = EOL // 0x78e @0x22
0x076c…078f }
0x078f…07c7 9db5 00660 DIM P_BKTO $ OF 8 , P_MKOD $ OF 1 , P_BNR $ OF 5 , P_TXT $ OF 20
0x078f…07c7 LineComal80 {
0x078f…07c7 ptr = 0x9db5 // 0x78f @0x0
0x078f…07c7 lno = 0x0294 // 0x791 @0x2
0x078f…07c7 at0004 = ╱87╱ DIM ╱ // 0x793 @0x4
0x078f…07c7 at0005 = ╱50╱P╱ // 0x794 @0x5
0x078f…07c7 at0006 = ╱5f╱_╱ // 0x795 @0x6
0x078f…07c7 at0007 = ╱42╱B╱ // 0x796 @0x7
0x078f…07c7 at0008 = ╱4b╱K╱ // 0x797 @0x8
0x078f…07c7 at0009 = ╱54╱T╱ // 0x798 @0x9
0x078f…07c7 at000a = ╱4f╱O╱ // 0x799 @0xa
0x078f…07c7 at000b = ╱ef╱ $ ╱ // 0x79a @0xb
0x078f…07c7 at000c = ╱ba╱ OF ╱ // 0x79b @0xc
0x078f…07c7 at000d = ╱38╱8╱ // 0x79c @0xd
0x078f…07c7 at000e = ╱f20800╱ // 0x79d @0xe
0x078f…07c7 at0011 = ╱ec╱ , ╱ // 0x7a0 @0x11
0x078f…07c7 at0012 = ╱50╱P╱ // 0x7a1 @0x12
0x078f…07c7 at0013 = ╱5f╱_╱ // 0x7a2 @0x13
0x078f…07c7 at0014 = ╱4d╱M╱ // 0x7a3 @0x14
0x078f…07c7 at0015 = ╱4b╱K╱ // 0x7a4 @0x15
0x078f…07c7 at0016 = ╱4f╱O╱ // 0x7a5 @0x16
0x078f…07c7 at0017 = ╱44╱D╱ // 0x7a6 @0x17
0x078f…07c7 at0018 = ╱ef╱ $ ╱ // 0x7a7 @0x18
0x078f…07c7 at0019 = ╱ba╱ OF ╱ // 0x7a8 @0x19
0x078f…07c7 at001a = ╱31╱1╱ // 0x7a9 @0x1a
0x078f…07c7 at001b = ╱f20100╱ // 0x7aa @0x1b
0x078f…07c7 at001e = ╱ec╱ , ╱ // 0x7ad @0x1e
0x078f…07c7 at001f = ╱50╱P╱ // 0x7ae @0x1f
0x078f…07c7 at0020 = ╱5f╱_╱ // 0x7af @0x20
0x078f…07c7 at0021 = ╱42╱B╱ // 0x7b0 @0x21
0x078f…07c7 at0022 = ╱4e╱N╱ // 0x7b1 @0x22
0x078f…07c7 at0023 = ╱52╱R╱ // 0x7b2 @0x23
0x078f…07c7 at0024 = ╱ef╱ $ ╱ // 0x7b3 @0x24
0x078f…07c7 at0025 = ╱ba╱ OF ╱ // 0x7b4 @0x25
0x078f…07c7 at0026 = ╱35╱5╱ // 0x7b5 @0x26
0x078f…07c7 at0027 = ╱f20500╱ // 0x7b6 @0x27
0x078f…07c7 at002a = ╱ec╱ , ╱ // 0x7b9 @0x2a
0x078f…07c7 at002b = ╱50╱P╱ // 0x7ba @0x2b
0x078f…07c7 at002c = ╱5f╱_╱ // 0x7bb @0x2c
0x078f…07c7 at002d = ╱54╱T╱ // 0x7bc @0x2d
0x078f…07c7 at002e = ╱58╱X╱ // 0x7bd @0x2e
0x078f…07c7 at002f = ╱54╱T╱ // 0x7be @0x2f
0x078f…07c7 at0030 = ╱ef╱ $ ╱ // 0x7bf @0x30
0x078f…07c7 at0031 = ╱ba╱ OF ╱ // 0x7c0 @0x31
0x078f…07c7 at0032 = ╱32╱2╱ // 0x7c1 @0x32
0x078f…07c7 at0033 = ╱30╱0╱ // 0x7c2 @0x33
0x078f…07c7 at0034 = ╱f21400╱ // 0x7c3 @0x34
0x078f…07c7 at0037 = EOL // 0x7c6 @0x37
0x078f…07c7 }
0x07c7…07d2 9dc0 00670 REAL P_BKR
0x07c7…07d2 LineComal80 {
0x07c7…07d2 ptr = 0x9dc0 // 0x7c7 @0x0
0x07c7…07d2 lno = 0x029e // 0x7c9 @0x2
0x07c7…07d2 at0004 = ╱b3╱ REAL ╱ // 0x7cb @0x4
0x07c7…07d2 at0005 = ╱50╱P╱ // 0x7cc @0x5
0x07c7…07d2 at0006 = ╱5f╱_╱ // 0x7cd @0x6
0x07c7…07d2 at0007 = ╱42╱B╱ // 0x7ce @0x7
0x07c7…07d2 at0008 = ╱4b╱K╱ // 0x7cf @0x8
0x07c7…07d2 at0009 = ╱52╱R╱ // 0x7d0 @0x9
0x07c7…07d2 at000a = EOL // 0x7d1 @0xa
0x07c7…07d2 }
0x07d2…07dc (26,) 9dca 00680 INTEGER P_DK
0x07d2…07dc LineComal80 {
0x07d2…07dc ptr = 0x9dca // 0x7d2 @0x0
0x07d2…07dc lno = 0x02a8 // 0x7d4 @0x2
0x07d2…07dc at0004 = ╱b2╱ INTEGER ╱ // 0x7d6 @0x4
0x07d2…07dc at0005 = ╱50╱P╱ // 0x7d7 @0x5
0x07d2…07dc at0006 = ╱5f╱_╱ // 0x7d8 @0x6
0x07d2…07dc at0007 = ╱44╱D╱ // 0x7d9 @0x7
0x07d2…07dc at0008 = ╱4b╱K╱ // 0x7da @0x8
0x07d2…07dc at0009 = EOL // 0x7db @0x9
0x07d2…07dc }
0x07dc…07ed 9ddb 00690 ENDPROC DIMENSIONER
0x07dc…07ed LineComal80 {
0x07dc…07ed ptr = 0x9ddb // 0x7dc @0x0
0x07dc…07ed lno = 0x02b2 // 0x7de @0x2
0x07dc…07ed at0004 = ╱9f╱ ENDPROC ╱ // 0x7e0 @0x4
0x07dc…07ed at0005 = ╱44╱D╱ // 0x7e1 @0x5
0x07dc…07ed at0006 = ╱49╱I╱ // 0x7e2 @0x6
0x07dc…07ed at0007 = ╱4d╱M╱ // 0x7e3 @0x7
0x07dc…07ed at0008 = ╱45╱E╱ // 0x7e4 @0x8
0x07dc…07ed at0009 = ╱4e╱N╱ // 0x7e5 @0x9
0x07dc…07ed at000a = ╱53╱S╱ // 0x7e6 @0xa
0x07dc…07ed at000b = ╱49╱I╱ // 0x7e7 @0xb
0x07dc…07ed at000c = ╱4f╱O╱ // 0x7e8 @0xc
0x07dc…07ed at000d = ╱4e╱N╱ // 0x7e9 @0xd
0x07dc…07ed at000e = ╱45╱E╱ // 0x7ea @0xe
0x07dc…07ed at000f = ╱52╱R╱ // 0x7eb @0xf
0x07dc…07ed at0010 = EOL // 0x7ec @0x10
0x07dc…07ed }
0x07ed…07f2 9de0 00700
0x07ed…07f2 LineComal80 {
0x07ed…07f2 ptr = 0x9de0 // 0x7ed @0x0
0x07ed…07f2 lno = 0x02bc // 0x7ef @0x2
0x07ed…07f2 at0004 = EOL // 0x7f1 @0x4
0x07ed…07f2 }
0x07f2…0800 9dee 00710 PROC INITIER
0x07f2…0800 LineComal80 {
0x07f2…0800 ptr = 0x9dee // 0x7f2 @0x0
0x07f2…0800 lno = 0x02c6 // 0x7f4 @0x2
0x07f2…0800 at0004 = ╱9e02╱ PROC ╱ // 0x7f6 @0x4
0x07f2…0800 at0006 = ╱49╱I╱ // 0x7f8 @0x6
0x07f2…0800 at0007 = ╱4e╱N╱ // 0x7f9 @0x7
0x07f2…0800 at0008 = ╱49╱I╱ // 0x7fa @0x8
0x07f2…0800 at0009 = ╱54╱T╱ // 0x7fb @0x9
0x07f2…0800 at000a = ╱49╱I╱ // 0x7fc @0xa
0x07f2…0800 at000b = ╱45╱E╱ // 0x7fd @0xb
0x07f2…0800 at000c = ╱52╱R╱ // 0x7fe @0xc
0x07f2…0800 at000d = EOL // 0x7ff @0xd
0x07f2…0800 }
0x0800…0812 9e00 00720 LET PRGFL $ := "DP2"
0x0800…0812 LineComal80 {
0x0800…0812 ptr = 0x9e00 // 0x800 @0x0
0x0800…0812 lno = 0x02d0 // 0x802 @0x2
0x0800…0812 at0004 = ╱86╱ LET ╱ // 0x804 @0x4
0x0800…0812 at0005 = ╱50╱P╱ // 0x805 @0x5
0x0800…0812 at0006 = ╱52╱R╱ // 0x806 @0x6
0x0800…0812 at0007 = ╱47╱G╱ // 0x807 @0x7
0x0800…0812 at0008 = ╱46╱F╱ // 0x808 @0x8
0x0800…0812 at0009 = ╱4c╱L╱ // 0x809 @0x9
0x0800…0812 at000a = ╱ef╱ $ ╱ // 0x80a @0xa
0x0800…0812 at000b = ╱f0╱ := ╱ // 0x80b @0xb
0x0800…0812 at000c = ╱22╱"╱ // 0x80c @0xc
0x0800…0812 at000d = ╱44╱D╱ // 0x80d @0xd
0x0800…0812 at000e = ╱50╱P╱ // 0x80e @0xe
0x0800…0812 at000f = ╱32╱2╱ // 0x80f @0xf
0x0800…0812 at0010 = ╱22╱"╱ // 0x810 @0x10
0x0800…0812 at0011 = EOL // 0x811 @0x11
0x0800…0812 }
0x0812…082f 9e1d 00730 LET PROGRAM $ := PRGFL $ + ":SYSI"
0x0812…082f LineComal80 {
0x0812…082f ptr = 0x9e1d // 0x812 @0x0
0x0812…082f lno = 0x02da // 0x814 @0x2
0x0812…082f at0004 = ╱86╱ LET ╱ // 0x816 @0x4
0x0812…082f at0005 = ╱50╱P╱ // 0x817 @0x5
0x0812…082f at0006 = ╱52╱R╱ // 0x818 @0x6
0x0812…082f at0007 = ╱4f╱O╱ // 0x819 @0x7
0x0812…082f at0008 = ╱47╱G╱ // 0x81a @0x8
0x0812…082f at0009 = ╱52╱R╱ // 0x81b @0x9
0x0812…082f at000a = ╱41╱A╱ // 0x81c @0xa
0x0812…082f at000b = ╱4d╱M╱ // 0x81d @0xb
0x0812…082f at000c = ╱ef╱ $ ╱ // 0x81e @0xc
0x0812…082f at000d = ╱f0╱ := ╱ // 0x81f @0xd
0x0812…082f at000e = ╱50╱P╱ // 0x820 @0xe
0x0812…082f at000f = ╱52╱R╱ // 0x821 @0xf
0x0812…082f at0010 = ╱47╱G╱ // 0x822 @0x10
0x0812…082f at0011 = ╱46╱F╱ // 0x823 @0x11
0x0812…082f at0012 = ╱4c╱L╱ // 0x824 @0x12
0x0812…082f at0013 = ╱ef╱ $ ╱ // 0x825 @0x13
0x0812…082f at0014 = ╱eb╱ + ╱ // 0x826 @0x14
0x0812…082f at0015 = ╱22╱"╱ // 0x827 @0x15
0x0812…082f at0016 = ╱3a╱:╱ // 0x828 @0x16
0x0812…082f at0017 = ╱53╱S╱ // 0x829 @0x17
0x0812…082f at0018 = ╱59╱Y╱ // 0x82a @0x18
0x0812…082f at0019 = ╱53╱S╱ // 0x82b @0x19
0x0812…082f at001a = ╱49╱I╱ // 0x82c @0x1a
0x0812…082f at001b = ╱22╱"╱ // 0x82d @0x1b
0x0812…082f at001c = EOL // 0x82e @0x1c
0x0812…082f }
0x082f…0846 9e34 00740 LET TAL $ := "0123456789"
0x082f…0846 LineComal80 {
0x082f…0846 ptr = 0x9e34 // 0x82f @0x0
0x082f…0846 lno = 0x02e4 // 0x831 @0x2
0x082f…0846 at0004 = ╱86╱ LET ╱ // 0x833 @0x4
0x082f…0846 at0005 = ╱54╱T╱ // 0x834 @0x5
0x082f…0846 at0006 = ╱41╱A╱ // 0x835 @0x6
0x082f…0846 at0007 = ╱4c╱L╱ // 0x836 @0x7
0x082f…0846 at0008 = ╱ef╱ $ ╱ // 0x837 @0x8
0x082f…0846 at0009 = ╱f0╱ := ╱ // 0x838 @0x9
0x082f…0846 at000a = ╱22╱"╱ // 0x839 @0xa
0x082f…0846 at000b = ╱30╱0╱ // 0x83a @0xb
0x082f…0846 at000c = ╱31╱1╱ // 0x83b @0xc
0x082f…0846 at000d = ╱32╱2╱ // 0x83c @0xd
0x082f…0846 at000e = ╱33╱3╱ // 0x83d @0xe
0x082f…0846 at000f = ╱34╱4╱ // 0x83e @0xf
0x082f…0846 at0010 = ╱35╱5╱ // 0x83f @0x10
0x082f…0846 at0011 = ╱36╱6╱ // 0x840 @0x11
0x082f…0846 at0012 = ╱37╱7╱ // 0x841 @0x12
0x082f…0846 at0013 = ╱38╱8╱ // 0x842 @0x13
0x082f…0846 at0014 = ╱39╱9╱ // 0x843 @0x14
0x082f…0846 at0015 = ╱22╱"╱ // 0x844 @0x15
0x082f…0846 at0016 = EOL // 0x845 @0x16
0x082f…0846 }
0x0846…086e 9e5c 00750 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
0x0846…086e LineComal80 {
0x0846…086e ptr = 0x9e5c // 0x846 @0x0
0x0846…086e lno = 0x02ee // 0x848 @0x2
0x0846…086e at0004 = ╱b400╱ FOR ╱ // 0x84a @0x4
0x0846…086e at0006 = ╱49╱I╱ // 0x84c @0x6
0x0846…086e at0007 = ╱f0╱ := ╱ // 0x84d @0x7
0x0846…086e at0008 = ╱cc╱ // 0x84e @0x8
0x0846…086e at0009 = ╱ed╱ ( ╱ // 0x84f @0x9
0x0846…086e at000a = ╱22╱"╱ // 0x850 @0xa
0x0846…086e at000b = ╱41╱A╱ // 0x851 @0xb
0x0846…086e at000c = ╱22╱"╱ // 0x852 @0xc
0x0846…086e at000d = ╱ee╱ ) ╱ // 0x853 @0xd
0x0846…086e at000e = ╱b7cc╱ TO ╱ // 0x854 @0xe
0x0846…086e at0010 = ╱ed╱ ( ╱ // 0x856 @0x10
0x0846…086e at0011 = ╱22╱"╱ // 0x857 @0x11
0x0846…086e at0012 = ╱5d╱]╱ // 0x858 @0x12
0x0846…086e at0013 = ╱22╱"╱ // 0x859 @0x13
0x0846…086e at0014 = ╱ee╱ ) ╱ // 0x85a @0x14
0x0846…086e at0015 = ╱bb╱ DO ╱ // 0x85b @0x15
0x0846…086e at0016 = ╱86╱ LET ╱ // 0x85c @0x16
0x0846…086e at0017 = ╱41╱A╱ // 0x85d @0x17
0x0846…086e at0018 = ╱4c╱L╱ // 0x85e @0x18
0x0846…086e at0019 = ╱46╱F╱ // 0x85f @0x19
0x0846…086e at001a = ╱41╱A╱ // 0x860 @0x1a
0x0846…086e at001b = ╱ef╱ $ ╱ // 0x861 @0x1b
0x0846…086e at001c = ╱f0╱ := ╱ // 0x862 @0x1c
0x0846…086e at001d = ╱41╱A╱ // 0x863 @0x1d
0x0846…086e at001e = ╱4c╱L╱ // 0x864 @0x1e
0x0846…086e at001f = ╱46╱F╱ // 0x865 @0x1f
0x0846…086e at0020 = ╱41╱A╱ // 0x866 @0x20
0x0846…086e at0021 = ╱ef╱ $ ╱ // 0x867 @0x21
0x0846…086e at0022 = ╱eb╱ + ╱ // 0x868 @0x22
0x0846…086e at0023 = ╱d0╱ CHR$ ╱ // 0x869 @0x23
0x0846…086e at0024 = ╱ed╱ ( ╱ // 0x86a @0x24
0x0846…086e at0025 = ╱49╱I╱ // 0x86b @0x25
0x0846…086e at0026 = ╱ee╱ ) ╱ // 0x86c @0x26
0x0846…086e at0027 = EOL // 0x86d @0x27
0x0846…086e }
0x086e…08a8 9e96 00760 LET SPC $ := "………………………………………………………………………………………………………………………"
0x086e…08a8 LineComal80 {
0x086e…08a8 ptr = 0x9e96 // 0x86e @0x0
0x086e…08a8 lno = 0x02f8 // 0x870 @0x2
0x086e…08a8 at0004 = ╱86╱ LET ╱ // 0x872 @0x4
0x086e…08a8 at0005 = ╱53╱S╱ // 0x873 @0x5
0x086e…08a8 at0006 = ╱50╱P╱ // 0x874 @0x6
0x086e…08a8 at0007 = ╱43╱C╱ // 0x875 @0x7
0x086e…08a8 at0008 = ╱ef╱ $ ╱ // 0x876 @0x8
0x086e…08a8 at0009 = ╱f0╱ := ╱ // 0x877 @0x9
0x086e…08a8 at000a = ╱22╱"╱ // 0x878 @0xa
0x086e…08a8 at000b = ╱20╱…╱ // 0x879 @0xb
0x086e…08a8 at000c = ╱20╱…╱ // 0x87a @0xc
0x086e…08a8 at000d = ╱20╱…╱ // 0x87b @0xd
0x086e…08a8 at000e = ╱20╱…╱ // 0x87c @0xe
0x086e…08a8 at000f = ╱20╱…╱ // 0x87d @0xf
0x086e…08a8 at0010 = ╱20╱…╱ // 0x87e @0x10
0x086e…08a8 at0011 = ╱20╱…╱ // 0x87f @0x11
0x086e…08a8 at0012 = ╱20╱…╱ // 0x880 @0x12
0x086e…08a8 at0013 = ╱20╱…╱ // 0x881 @0x13
0x086e…08a8 at0014 = ╱20╱…╱ // 0x882 @0x14
0x086e…08a8 at0015 = ╱20╱…╱ // 0x883 @0x15
0x086e…08a8 at0016 = ╱20╱…╱ // 0x884 @0x16
0x086e…08a8 at0017 = ╱20╱…╱ // 0x885 @0x17
0x086e…08a8 at0018 = ╱20╱…╱ // 0x886 @0x18
0x086e…08a8 at0019 = ╱20╱…╱ // 0x887 @0x19
0x086e…08a8 at001a = ╱20╱…╱ // 0x888 @0x1a
0x086e…08a8 at001b = ╱20╱…╱ // 0x889 @0x1b
0x086e…08a8 at001c = ╱20╱…╱ // 0x88a @0x1c
0x086e…08a8 at001d = ╱20╱…╱ // 0x88b @0x1d
0x086e…08a8 at001e = ╱20╱…╱ // 0x88c @0x1e
0x086e…08a8 at001f = ╱20╱…╱ // 0x88d @0x1f
0x086e…08a8 at0020 = ╱20╱…╱ // 0x88e @0x20
0x086e…08a8 at0021 = ╱20╱…╱ // 0x88f @0x21
0x086e…08a8 at0022 = ╱20╱…╱ // 0x890 @0x22
0x086e…08a8 at0023 = ╱20╱…╱ // 0x891 @0x23
0x086e…08a8 at0024 = ╱20╱…╱ // 0x892 @0x24
0x086e…08a8 at0025 = ╱20╱…╱ // 0x893 @0x25
0x086e…08a8 at0026 = ╱20╱…╱ // 0x894 @0x26
0x086e…08a8 at0027 = ╱20╱…╱ // 0x895 @0x27
0x086e…08a8 at0028 = ╱20╱…╱ // 0x896 @0x28
0x086e…08a8 at0029 = ╱20╱…╱ // 0x897 @0x29
0x086e…08a8 at002a = ╱20╱…╱ // 0x898 @0x2a
0x086e…08a8 at002b = ╱20╱…╱ // 0x899 @0x2b
0x086e…08a8 at002c = ╱20╱…╱ // 0x89a @0x2c
0x086e…08a8 at002d = ╱20╱…╱ // 0x89b @0x2d
0x086e…08a8 at002e = ╱20╱…╱ // 0x89c @0x2e
0x086e…08a8 at002f = ╱20╱…╱ // 0x89d @0x2f
0x086e…08a8 at0030 = ╱20╱…╱ // 0x89e @0x30
0x086e…08a8 at0031 = ╱20╱…╱ // 0x89f @0x31
0x086e…08a8 at0032 = ╱20╱…╱ // 0x8a0 @0x32
0x086e…08a8 at0033 = ╱20╱…╱ // 0x8a1 @0x33
0x086e…08a8 at0034 = ╱20╱…╱ // 0x8a2 @0x34
0x086e…08a8 at0035 = ╱20╱…╱ // 0x8a3 @0x35
0x086e…08a8 at0036 = ╱20╱…╱ // 0x8a4 @0x36
0x086e…08a8 at0037 = ╱20╱…╱ // 0x8a5 @0x37
0x086e…08a8 at0038 = ╱22╱"╱ // 0x8a6 @0x38
0x086e…08a8 at0039 = EOL // 0x8a7 @0x39
0x086e…08a8 }
0x08a8…08bc 9eaa 00770 LET SPC $ := SPC $ + SPC $
0x08a8…08bc LineComal80 {
0x08a8…08bc ptr = 0x9eaa // 0x8a8 @0x0
0x08a8…08bc lno = 0x0302 // 0x8aa @0x2
0x08a8…08bc at0004 = ╱86╱ LET ╱ // 0x8ac @0x4
0x08a8…08bc at0005 = ╱53╱S╱ // 0x8ad @0x5
0x08a8…08bc at0006 = ╱50╱P╱ // 0x8ae @0x6
0x08a8…08bc at0007 = ╱43╱C╱ // 0x8af @0x7
0x08a8…08bc at0008 = ╱ef╱ $ ╱ // 0x8b0 @0x8
0x08a8…08bc at0009 = ╱f0╱ := ╱ // 0x8b1 @0x9
0x08a8…08bc at000a = ╱53╱S╱ // 0x8b2 @0xa
0x08a8…08bc at000b = ╱50╱P╱ // 0x8b3 @0xb
0x08a8…08bc at000c = ╱43╱C╱ // 0x8b4 @0xc
0x08a8…08bc at000d = ╱ef╱ $ ╱ // 0x8b5 @0xd
0x08a8…08bc at000e = ╱eb╱ + ╱ // 0x8b6 @0xe
0x08a8…08bc at000f = ╱53╱S╱ // 0x8b7 @0xf
0x08a8…08bc at0010 = ╱50╱P╱ // 0x8b8 @0x10
0x08a8…08bc at0011 = ╱43╱C╱ // 0x8b9 @0x11
0x08a8…08bc at0012 = ╱ef╱ $ ╱ // 0x8ba @0x12
0x08a8…08bc at0013 = EOL // 0x8bb @0x13
0x08a8…08bc }
0x08bc…08e7 9ed5 00780 LET FALSE := 0 ; TRUE := 1 // boolske…variable
0x08bc…08e7 LineComal80 {
0x08bc…08e7 ptr = 0x9ed5 // 0x8bc @0x0
0x08bc…08e7 lno = 0x030c // 0x8be @0x2
0x08bc…08e7 at0004 = ╱86╱ LET ╱ // 0x8c0 @0x4
0x08bc…08e7 at0005 = ╱46╱F╱ // 0x8c1 @0x5
0x08bc…08e7 at0006 = ╱41╱A╱ // 0x8c2 @0x6
0x08bc…08e7 at0007 = ╱4c╱L╱ // 0x8c3 @0x7
0x08bc…08e7 at0008 = ╱53╱S╱ // 0x8c4 @0x8
0x08bc…08e7 at0009 = ╱45╱E╱ // 0x8c5 @0x9
0x08bc…08e7 at000a = ╱f0╱ := ╱ // 0x8c6 @0xa
0x08bc…08e7 at000b = ╱30╱0╱ // 0x8c7 @0xb
0x08bc…08e7 at000c = ╱f20000╱ // 0x8c8 @0xc
0x08bc…08e7 at000f = ╱ea╱ ; ╱ // 0x8cb @0xf
0x08bc…08e7 at0010 = ╱54╱T╱ // 0x8cc @0x10
0x08bc…08e7 at0011 = ╱52╱R╱ // 0x8cd @0x11
0x08bc…08e7 at0012 = ╱55╱U╱ // 0x8ce @0x12
0x08bc…08e7 at0013 = ╱45╱E╱ // 0x8cf @0x13
0x08bc…08e7 at0014 = ╱f0╱ := ╱ // 0x8d0 @0x14
0x08bc…08e7 at0015 = ╱31╱1╱ // 0x8d1 @0x15
0x08bc…08e7 at0016 = ╱f20100╱ // 0x8d2 @0x16
0x08bc…08e7 at0019 = ╱89╱ // ╱ // 0x8d5 @0x19
0x08bc…08e7 at001a = ╱62╱b╱ // 0x8d6 @0x1a
0x08bc…08e7 at001b = ╱6f╱o╱ // 0x8d7 @0x1b
0x08bc…08e7 at001c = ╱6f╱o╱ // 0x8d8 @0x1c
0x08bc…08e7 at001d = ╱6c╱l╱ // 0x8d9 @0x1d
0x08bc…08e7 at001e = ╱73╱s╱ // 0x8da @0x1e
0x08bc…08e7 at001f = ╱6b╱k╱ // 0x8db @0x1f
0x08bc…08e7 at0020 = ╱65╱e╱ // 0x8dc @0x20
0x08bc…08e7 at0021 = ╱20╱…╱ // 0x8dd @0x21
0x08bc…08e7 at0022 = ╱76╱v╱ // 0x8de @0x22
0x08bc…08e7 at0023 = ╱61╱a╱ // 0x8df @0x23
0x08bc…08e7 at0024 = ╱72╱r╱ // 0x8e0 @0x24
0x08bc…08e7 at0025 = ╱69╱i╱ // 0x8e1 @0x25
0x08bc…08e7 at0026 = ╱61╱a╱ // 0x8e2 @0x26
0x08bc…08e7 at0027 = ╱62╱b╱ // 0x8e3 @0x27
0x08bc…08e7 at0028 = ╱6c╱l╱ // 0x8e4 @0x28
0x08bc…08e7 at0029 = ╱65╱e╱ // 0x8e5 @0x29
0x08bc…08e7 at002a = EOL // 0x8e6 @0x2a
0x08bc…08e7 }
0x08e7…0904 9ef2 00790 LET KREDIT := - 1 ; DEBET := 1
0x08e7…0904 LineComal80 {
0x08e7…0904 ptr = 0x9ef2 // 0x8e7 @0x0
0x08e7…0904 lno = 0x0316 // 0x8e9 @0x2
0x08e7…0904 at0004 = ╱86╱ LET ╱ // 0x8eb @0x4
0x08e7…0904 at0005 = ╱4b╱K╱ // 0x8ec @0x5
0x08e7…0904 at0006 = ╱52╱R╱ // 0x8ed @0x6
0x08e7…0904 at0007 = ╱45╱E╱ // 0x8ee @0x7
0x08e7…0904 at0008 = ╱44╱D╱ // 0x8ef @0x8
0x08e7…0904 at0009 = ╱49╱I╱ // 0x8f0 @0x9
0x08e7…0904 at000a = ╱54╱T╱ // 0x8f1 @0xa
0x08e7…0904 at000b = ╱f0╱ := ╱ // 0x8f2 @0xb
0x08e7…0904 at000c = ╱de╱ - ╱ // 0x8f3 @0xc
0x08e7…0904 at000d = ╱31╱1╱ // 0x8f4 @0xd
0x08e7…0904 at000e = ╱f20100╱ // 0x8f5 @0xe
0x08e7…0904 at0011 = ╱ea╱ ; ╱ // 0x8f8 @0x11
0x08e7…0904 at0012 = ╱44╱D╱ // 0x8f9 @0x12
0x08e7…0904 at0013 = ╱45╱E╱ // 0x8fa @0x13
0x08e7…0904 at0014 = ╱42╱B╱ // 0x8fb @0x14
0x08e7…0904 at0015 = ╱45╱E╱ // 0x8fc @0x15
0x08e7…0904 at0016 = ╱54╱T╱ // 0x8fd @0x16
0x08e7…0904 at0017 = ╱f0╱ := ╱ // 0x8fe @0x17
0x08e7…0904 at0018 = ╱31╱1╱ // 0x8ff @0x18
0x08e7…0904 at0019 = ╱f20100╱ // 0x900 @0x19
0x08e7…0904 at001c = EOL // 0x903 @0x1c
0x08e7…0904 }
0x0904…0924 9f12 00800 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
0x0904…0924 LineComal80 {
0x0904…0924 ptr = 0x9f12 // 0x904 @0x0
0x0904…0924 lno = 0x0320 // 0x906 @0x2
0x0904…0924 at0004 = ╱86╱ LET ╱ // 0x908 @0x4
0x0904…0924 at0005 = ╱53╱S╱ // 0x909 @0x5
0x0904…0924 at0006 = ╱59╱Y╱ // 0x90a @0x6
0x0904…0924 at0007 = ╱53╱S╱ // 0x90b @0x7
0x0904…0924 at0008 = ╱50╱P╱ // 0x90c @0x8
0x0904…0924 at0009 = ╱41╱A╱ // 0x90d @0x9
0x0904…0924 at000a = ╱52╱R╱ // 0x90e @0xa
0x0904…0924 at000b = ╱41╱A╱ // 0x90f @0xb
0x0904…0924 at000c = ╱ef╱ $ ╱ // 0x910 @0xc
0x0904…0924 at000d = ╱f0╱ := ╱ // 0x911 @0xd
0x0904…0924 at000e = ╱50╱P╱ // 0x912 @0xe
0x0904…0924 at000f = ╱52╱R╱ // 0x913 @0xf
0x0904…0924 at0010 = ╱47╱G╱ // 0x914 @0x10
0x0904…0924 at0011 = ╱46╱F╱ // 0x915 @0x11
0x0904…0924 at0012 = ╱4c╱L╱ // 0x916 @0x12
0x0904…0924 at0013 = ╱ef╱ $ ╱ // 0x917 @0x13
0x0904…0924 at0014 = ╱eb╱ + ╱ // 0x918 @0x14
0x0904…0924 at0015 = ╱22╱"╱ // 0x919 @0x15
0x0904…0924 at0016 = ╱3a╱:╱ // 0x91a @0x16
0x0904…0924 at0017 = ╱53╱S╱ // 0x91b @0x17
0x0904…0924 at0018 = ╱59╱Y╱ // 0x91c @0x18
0x0904…0924 at0019 = ╱53╱S╱ // 0x91d @0x19
0x0904…0924 at001a = ╱50╱P╱ // 0x91e @0x1a
0x0904…0924 at001b = ╱41╱A╱ // 0x91f @0x1b
0x0904…0924 at001c = ╱52╱R╱ // 0x920 @0x1c
0x0904…0924 at001d = ╱41╱A╱ // 0x921 @0x1d
0x0904…0924 at001e = ╱22╱"╱ // 0x922 @0x1e
0x0904…0924 at001f = EOL // 0x923 @0x1f
0x0904…0924 }
0x0924…093f 9f2d 00810 EXEC OPENFIL ( SYSPARA $ , "R" )
0x0924…093f LineComal80 {
0x0924…093f ptr = 0x9f2d // 0x924 @0x0
0x0924…093f lno = 0x032a // 0x926 @0x2
0x0924…093f at0004 = ╱9d╱ EXEC ╱ // 0x928 @0x4
0x0924…093f at0005 = ╱4f╱O╱ // 0x929 @0x5
0x0924…093f at0006 = ╱50╱P╱ // 0x92a @0x6
0x0924…093f at0007 = ╱45╱E╱ // 0x92b @0x7
0x0924…093f at0008 = ╱4e╱N╱ // 0x92c @0x8
0x0924…093f at0009 = ╱46╱F╱ // 0x92d @0x9
0x0924…093f at000a = ╱49╱I╱ // 0x92e @0xa
0x0924…093f at000b = ╱4c╱L╱ // 0x92f @0xb
0x0924…093f at000c = ╱ed╱ ( ╱ // 0x930 @0xc
0x0924…093f at000d = ╱53╱S╱ // 0x931 @0xd
0x0924…093f at000e = ╱59╱Y╱ // 0x932 @0xe
0x0924…093f at000f = ╱53╱S╱ // 0x933 @0xf
0x0924…093f at0010 = ╱50╱P╱ // 0x934 @0x10
0x0924…093f at0011 = ╱41╱A╱ // 0x935 @0x11
0x0924…093f at0012 = ╱52╱R╱ // 0x936 @0x12
0x0924…093f at0013 = ╱41╱A╱ // 0x937 @0x13
0x0924…093f at0014 = ╱ef╱ $ ╱ // 0x938 @0x14
0x0924…093f at0015 = ╱ec╱ , ╱ // 0x939 @0x15
0x0924…093f at0016 = ╱22╱"╱ // 0x93a @0x16
0x0924…093f at0017 = ╱52╱R╱ // 0x93b @0x17
0x0924…093f at0018 = ╱22╱"╱ // 0x93c @0x18
0x0924…093f at0019 = ╱ee╱ ) ╱ // 0x93d @0x19
0x0924…093f at001a = EOL // 0x93e @0x1a
0x0924…093f }
0x093f…0965 9f53 00820 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
0x093f…0965 LineComal80 {
0x093f…0965 ptr = 0x9f53 // 0x93f @0x0
0x093f…0965 lno = 0x0334 // 0x941 @0x2
0x093f…0965 at0004 = ╱a9╱ GET ╱ // 0x943 @0x4
0x093f…0965 at0005 = ╱53╱S╱ // 0x944 @0x5
0x093f…0965 at0006 = ╱59╱Y╱ // 0x945 @0x6
0x093f…0965 at0007 = ╱53╱S╱ // 0x946 @0x7
0x093f…0965 at0008 = ╱50╱P╱ // 0x947 @0x8
0x093f…0965 at0009 = ╱41╱A╱ // 0x948 @0x9
0x093f…0965 at000a = ╱52╱R╱ // 0x949 @0xa
0x093f…0965 at000b = ╱41╱A╱ // 0x94a @0xb
0x093f…0965 at000c = ╱ef╱ $ ╱ // 0x94b @0xc
0x093f…0965 at000d = ╱ec╱ , ╱ // 0x94c @0xd
0x093f…0965 at000e = ╱31╱1╱ // 0x94d @0xe
0x093f…0965 at000f = ╱f20100╱ // 0x94e @0xf
0x093f…0965 at0012 = ╱f1╱ : ╱ // 0x951 @0x12
0x093f…0965 at0013 = ╱53╱S╱ // 0x952 @0x13
0x093f…0965 at0014 = ╱59╱Y╱ // 0x953 @0x14
0x093f…0965 at0015 = ╱53╱S╱ // 0x954 @0x15
0x093f…0965 at0016 = ╱54╱T╱ // 0x955 @0x16
0x093f…0965 at0017 = ╱5f╱_╱ // 0x956 @0x17
0x093f…0965 at0018 = ╱4e╱N╱ // 0x957 @0x18
0x093f…0965 at0019 = ╱41╱A╱ // 0x958 @0x19
0x093f…0965 at001a = ╱56╱V╱ // 0x959 @0x1a
0x093f…0965 at001b = ╱4e╱N╱ // 0x95a @0x1b
0x093f…0965 at001c = ╱ef╱ $ ╱ // 0x95b @0x1c
0x093f…0965 at001d = ╱ec╱ , ╱ // 0x95c @0x1d
0x093f…0965 at001e = ╱53╱S╱ // 0x95d @0x1e
0x093f…0965 at001f = ╱5f╱_╱ // 0x95e @0x1f
0x093f…0965 at0020 = ╱4b╱K╱ // 0x95f @0x20
0x093f…0965 at0021 = ╱4f╱O╱ // 0x960 @0x21
0x093f…0965 at0022 = ╱44╱D╱ // 0x961 @0x22
0x093f…0965 at0023 = ╱45╱E╱ // 0x962 @0x23
0x093f…0965 at0024 = ╱ef╱ $ ╱ // 0x963 @0x24
0x093f…0965 at0025 = EOL // 0x964 @0x25
0x093f…0965 }
0x0965…0977 9f65 00830 EXEC TERMINAL_IDX
0x0965…0977 LineComal80 {
0x0965…0977 ptr = 0x9f65 // 0x965 @0x0
0x0965…0977 lno = 0x033e // 0x967 @0x2
0x0965…0977 at0004 = ╱9d╱ EXEC ╱ // 0x969 @0x4
0x0965…0977 at0005 = ╱54╱T╱ // 0x96a @0x5
0x0965…0977 at0006 = ╱45╱E╱ // 0x96b @0x6
0x0965…0977 at0007 = ╱52╱R╱ // 0x96c @0x7
0x0965…0977 at0008 = ╱4d╱M╱ // 0x96d @0x8
0x0965…0977 at0009 = ╱49╱I╱ // 0x96e @0x9
0x0965…0977 at000a = ╱4e╱N╱ // 0x96f @0xa
0x0965…0977 at000b = ╱41╱A╱ // 0x970 @0xb
0x0965…0977 at000c = ╱4c╱L╱ // 0x971 @0xc
0x0965…0977 at000d = ╱5f╱_╱ // 0x972 @0xd
0x0965…0977 at000e = ╱49╱I╱ // 0x973 @0xe
0x0965…0977 at000f = ╱44╱D╱ // 0x974 @0xf
0x0965…0977 at0010 = ╱58╱X╱ // 0x975 @0x10
0x0965…0977 at0011 = EOL // 0x976 @0x11
0x0965…0977 }
0x0977…0985 9f73 00840 CLOSE SYSPARA $
0x0977…0985 LineComal80 {
0x0977…0985 ptr = 0x9f73 // 0x977 @0x0
0x0977…0985 lno = 0x0348 // 0x979 @0x2
0x0977…0985 at0004 = ╱a8╱ CLOSE ╱ // 0x97b @0x4
0x0977…0985 at0005 = ╱53╱S╱ // 0x97c @0x5
0x0977…0985 at0006 = ╱59╱Y╱ // 0x97d @0x6
0x0977…0985 at0007 = ╱53╱S╱ // 0x97e @0x7
0x0977…0985 at0008 = ╱50╱P╱ // 0x97f @0x8
0x0977…0985 at0009 = ╱41╱A╱ // 0x980 @0x9
0x0977…0985 at000a = ╱52╱R╱ // 0x981 @0xa
0x0977…0985 at000b = ╱41╱A╱ // 0x982 @0xb
0x0977…0985 at000c = ╱ef╱ $ ╱ // 0x983 @0xc
0x0977…0985 at000d = EOL // 0x984 @0xd
0x0977…0985 }
0x0985…09b5 9fa3 00850 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
0x0985…09b5 LineComal80 {
0x0985…09b5 ptr = 0x9fa3 // 0x985 @0x0
0x0985…09b5 lno = 0x0352 // 0x987 @0x2
0x0985…09b5 at0004 = ╱86╱ LET ╱ // 0x989 @0x4
0x0985…09b5 at0005 = ╱50╱P╱ // 0x98a @0x5
0x0985…09b5 at0006 = ╱41╱A╱ // 0x98b @0x6
0x0985…09b5 at0007 = ╱52╱R╱ // 0x98c @0x7
0x0985…09b5 at0008 = ╱41╱A╱ // 0x98d @0x8
0x0985…09b5 at0009 = ╱4d╱M╱ // 0x98e @0x9
0x0985…09b5 at000a = ╱ef╱ $ ╱ // 0x98f @0xa
0x0985…09b5 at000b = ╱f0╱ := ╱ // 0x990 @0xb
0x0985…09b5 at000c = ╱44╱D╱ // 0x991 @0xc
0x0985…09b5 at000d = ╱41╱A╱ // 0x992 @0xd
0x0985…09b5 at000e = ╱54╱T╱ // 0x993 @0xe
0x0985…09b5 at000f = ╱41╱A╱ // 0x994 @0xf
0x0985…09b5 at0010 = ╱46╱F╱ // 0x995 @0x10
0x0985…09b5 at0011 = ╱4c╱L╱ // 0x996 @0x11
0x0985…09b5 at0012 = ╱ef╱ $ ╱ // 0x997 @0x12
0x0985…09b5 at0013 = ╱eb╱ + ╱ // 0x998 @0x13
0x0985…09b5 at0014 = ╱22╱"╱ // 0x999 @0x14
0x0985…09b5 at0015 = ╱3a╱:╱ // 0x99a @0x15
0x0985…09b5 at0016 = ╱22╱"╱ // 0x99b @0x16
0x0985…09b5 at0017 = ╱eb╱ + ╱ // 0x99c @0x17
0x0985…09b5 at0018 = ╱53╱S╱ // 0x99d @0x18
0x0985…09b5 at0019 = ╱5f╱_╱ // 0x99e @0x19
0x0985…09b5 at001a = ╱4b╱K╱ // 0x99f @0x1a
0x0985…09b5 at001b = ╱4f╱O╱ // 0x9a0 @0x1b
0x0985…09b5 at001c = ╱44╱D╱ // 0x9a1 @0x1c
0x0985…09b5 at001d = ╱45╱E╱ // 0x9a2 @0x1d
0x0985…09b5 at001e = ╱ef╱ $ ╱ // 0x9a3 @0x1e
0x0985…09b5 at001f = ╱eb╱ + ╱ // 0x9a4 @0x1f
0x0985…09b5 at0020 = ╱54╱T╱ // 0x9a5 @0x20
0x0985…09b5 at0021 = ╱5f╱_╱ // 0x9a6 @0x21
0x0985…09b5 at0022 = ╱4b╱K╱ // 0x9a7 @0x22
0x0985…09b5 at0023 = ╱4f╱O╱ // 0x9a8 @0x23
0x0985…09b5 at0024 = ╱44╱D╱ // 0x9a9 @0x24
0x0985…09b5 at0025 = ╱45╱E╱ // 0x9aa @0x25
0x0985…09b5 at0026 = ╱ef╱ $ ╱ // 0x9ab @0x26
0x0985…09b5 at0027 = ╱eb╱ + ╱ // 0x9ac @0x27
0x0985…09b5 at0028 = ╱22╱"╱ // 0x9ad @0x28
0x0985…09b5 at0029 = ╱50╱P╱ // 0x9ae @0x29
0x0985…09b5 at002a = ╱41╱A╱ // 0x9af @0x2a
0x0985…09b5 at002b = ╱52╱R╱ // 0x9b0 @0x2b
0x0985…09b5 at002c = ╱41╱A╱ // 0x9b1 @0x2c
0x0985…09b5 at002d = ╱4d╱M╱ // 0x9b2 @0x2d
0x0985…09b5 at002e = ╱22╱"╱ // 0x9b3 @0x2e
0x0985…09b5 at002f = EOL // 0x9b4 @0x2f
0x0985…09b5 }
0x09b5…09ce 9fbc 00860 EXEC OPENFIL ( PARAM $ , "R" )
0x09b5…09ce LineComal80 {
0x09b5…09ce ptr = 0x9fbc // 0x9b5 @0x0
0x09b5…09ce lno = 0x035c // 0x9b7 @0x2
0x09b5…09ce at0004 = ╱9d╱ EXEC ╱ // 0x9b9 @0x4
0x09b5…09ce at0005 = ╱4f╱O╱ // 0x9ba @0x5
0x09b5…09ce at0006 = ╱50╱P╱ // 0x9bb @0x6
0x09b5…09ce at0007 = ╱45╱E╱ // 0x9bc @0x7
0x09b5…09ce at0008 = ╱4e╱N╱ // 0x9bd @0x8
0x09b5…09ce at0009 = ╱46╱F╱ // 0x9be @0x9
0x09b5…09ce at000a = ╱49╱I╱ // 0x9bf @0xa
0x09b5…09ce at000b = ╱4c╱L╱ // 0x9c0 @0xb
0x09b5…09ce at000c = ╱ed╱ ( ╱ // 0x9c1 @0xc
0x09b5…09ce at000d = ╱50╱P╱ // 0x9c2 @0xd
0x09b5…09ce at000e = ╱41╱A╱ // 0x9c3 @0xe
0x09b5…09ce at000f = ╱52╱R╱ // 0x9c4 @0xf
0x09b5…09ce at0010 = ╱41╱A╱ // 0x9c5 @0x10
0x09b5…09ce at0011 = ╱4d╱M╱ // 0x9c6 @0x11
0x09b5…09ce at0012 = ╱ef╱ $ ╱ // 0x9c7 @0x12
0x09b5…09ce at0013 = ╱ec╱ , ╱ // 0x9c8 @0x13
0x09b5…09ce at0014 = ╱22╱"╱ // 0x9c9 @0x14
0x09b5…09ce at0015 = ╱52╱R╱ // 0x9ca @0x15
0x09b5…09ce at0016 = ╱22╱"╱ // 0x9cb @0x16
0x09b5…09ce at0017 = ╱ee╱ ) ╱ // 0x9cc @0x17
0x09b5…09ce at0018 = EOL // 0x9cd @0x18
0x09b5…09ce }
0x09ce…09f9 9fe7 00870 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
0x09ce…09f9 LineComal80 {
0x09ce…09f9 ptr = 0x9fe7 // 0x9ce @0x0
0x09ce…09f9 lno = 0x0366 // 0x9d0 @0x2
0x09ce…09f9 at0004 = ╱a9╱ GET ╱ // 0x9d2 @0x4
0x09ce…09f9 at0005 = ╱50╱P╱ // 0x9d3 @0x5
0x09ce…09f9 at0006 = ╱41╱A╱ // 0x9d4 @0x6
0x09ce…09f9 at0007 = ╱52╱R╱ // 0x9d5 @0x7
0x09ce…09f9 at0008 = ╱41╱A╱ // 0x9d6 @0x8
0x09ce…09f9 at0009 = ╱4d╱M╱ // 0x9d7 @0x9
0x09ce…09f9 at000a = ╱ef╱ $ ╱ // 0x9d8 @0xa
0x09ce…09f9 at000b = ╱ec╱ , ╱ // 0x9d9 @0xb
0x09ce…09f9 at000c = ╱31╱1╱ // 0x9da @0xc
0x09ce…09f9 at000d = ╱f20100╱ // 0x9db @0xd
0x09ce…09f9 at0010 = ╱f1╱ : ╱ // 0x9de @0x10
0x09ce…09f9 at0011 = ╱46╱F╱ // 0x9df @0x11
0x09ce…09f9 at0012 = ╱49╱I╱ // 0x9e0 @0x12
0x09ce…09f9 at0013 = ╱52╱R╱ // 0x9e1 @0x13
0x09ce…09f9 at0014 = ╱4d╱M╱ // 0x9e2 @0x14
0x09ce…09f9 at0015 = ╱41╱A╱ // 0x9e3 @0x15
0x09ce…09f9 at0016 = ╱4e╱N╱ // 0x9e4 @0x16
0x09ce…09f9 at0017 = ╱41╱A╱ // 0x9e5 @0x17
0x09ce…09f9 at0018 = ╱56╱V╱ // 0x9e6 @0x18
0x09ce…09f9 at0019 = ╱4e╱N╱ // 0x9e7 @0x19
0x09ce…09f9 at001a = ╱ef╱ $ ╱ // 0x9e8 @0x1a
0x09ce…09f9 at001b = ╱ec╱ , ╱ // 0x9e9 @0x1b
0x09ce…09f9 at001c = ╱53╱S╱ // 0x9ea @0x1c
0x09ce…09f9 at001d = ╱59╱Y╱ // 0x9eb @0x1d
0x09ce…09f9 at001e = ╱53╱S╱ // 0x9ec @0x1e
0x09ce…09f9 at001f = ╱54╱T╱ // 0x9ed @0x1f
0x09ce…09f9 at0020 = ╱5f╱_╱ // 0x9ee @0x20
0x09ce…09f9 at0021 = ╱44╱D╱ // 0x9ef @0x21
0x09ce…09f9 at0022 = ╱41╱A╱ // 0x9f0 @0x22
0x09ce…09f9 at0023 = ╱54╱T╱ // 0x9f1 @0x23
0x09ce…09f9 at0024 = ╱ef╱ $ ╱ // 0x9f2 @0x24
0x09ce…09f9 at0025 = ╱ec╱ , ╱ // 0x9f3 @0x25
0x09ce…09f9 at0026 = ╱4d╱M╱ // 0x9f4 @0x26
0x09ce…09f9 at0027 = ╱4f╱O╱ // 0x9f5 @0x27
0x09ce…09f9 at0028 = ╱4d╱M╱ // 0x9f6 @0x28
0x09ce…09f9 at0029 = ╱53╱S╱ // 0x9f7 @0x29
0x09ce…09f9 at002a = EOL // 0x9f8 @0x2a
0x09ce…09f9 }
0x09f9…0a05 9ff3 00880 CLOSE PARAM $
0x09f9…0a05 LineComal80 {
0x09f9…0a05 ptr = 0x9ff3 // 0x9f9 @0x0
0x09f9…0a05 lno = 0x0370 // 0x9fb @0x2
0x09f9…0a05 at0004 = ╱a8╱ CLOSE ╱ // 0x9fd @0x4
0x09f9…0a05 at0005 = ╱50╱P╱ // 0x9fe @0x5
0x09f9…0a05 at0006 = ╱41╱A╱ // 0x9ff @0x6
0x09f9…0a05 at0007 = ╱52╱R╱ // 0xa00 @0x7
0x09f9…0a05 at0008 = ╱41╱A╱ // 0xa01 @0x8
0x09f9…0a05 at0009 = ╱4d╱M╱ // 0xa02 @0x9
0x09f9…0a05 at000a = ╱ef╱ $ ╱ // 0xa03 @0xa
0x09f9…0a05 at000b = EOL // 0xa04 @0xb
0x09f9…0a05 }
0x0a05…0a37 a025 00890 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
0x0a05…0a37 LineComal80 {
0x0a05…0a37 ptr = 0xa025 // 0xa05 @0x0
0x0a05…0a37 lno = 0x037a // 0xa07 @0x2
0x0a05…0a37 at0004 = ╱86╱ LET ╱ // 0xa09 @0x4
0x0a05…0a37 at0005 = ╱4b╱K╱ // 0xa0a @0x5
0x0a05…0a37 at0006 = ╱54╱T╱ // 0xa0b @0x6
0x0a05…0a37 at0007 = ╱4f╱O╱ // 0xa0c @0x7
0x0a05…0a37 at0008 = ╱49╱I╱ // 0xa0d @0x8
0x0a05…0a37 at0009 = ╱44╱D╱ // 0xa0e @0x9
0x0a05…0a37 at000a = ╱58╱X╱ // 0xa0f @0xa
0x0a05…0a37 at000b = ╱ef╱ $ ╱ // 0xa10 @0xb
0x0a05…0a37 at000c = ╱f0╱ := ╱ // 0xa11 @0xc
0x0a05…0a37 at000d = ╱44╱D╱ // 0xa12 @0xd
0x0a05…0a37 at000e = ╱41╱A╱ // 0xa13 @0xe
0x0a05…0a37 at000f = ╱54╱T╱ // 0xa14 @0xf
0x0a05…0a37 at0010 = ╱41╱A╱ // 0xa15 @0x10
0x0a05…0a37 at0011 = ╱46╱F╱ // 0xa16 @0x11
0x0a05…0a37 at0012 = ╱4c╱L╱ // 0xa17 @0x12
0x0a05…0a37 at0013 = ╱ef╱ $ ╱ // 0xa18 @0x13
0x0a05…0a37 at0014 = ╱eb╱ + ╱ // 0xa19 @0x14
0x0a05…0a37 at0015 = ╱22╱"╱ // 0xa1a @0x15
0x0a05…0a37 at0016 = ╱3a╱:╱ // 0xa1b @0x16
0x0a05…0a37 at0017 = ╱22╱"╱ // 0xa1c @0x17
0x0a05…0a37 at0018 = ╱eb╱ + ╱ // 0xa1d @0x18
0x0a05…0a37 at0019 = ╱53╱S╱ // 0xa1e @0x19
0x0a05…0a37 at001a = ╱5f╱_╱ // 0xa1f @0x1a
0x0a05…0a37 at001b = ╱4b╱K╱ // 0xa20 @0x1b
0x0a05…0a37 at001c = ╱4f╱O╱ // 0xa21 @0x1c
0x0a05…0a37 at001d = ╱44╱D╱ // 0xa22 @0x1d
0x0a05…0a37 at001e = ╱45╱E╱ // 0xa23 @0x1e
0x0a05…0a37 at001f = ╱ef╱ $ ╱ // 0xa24 @0x1f
0x0a05…0a37 at0020 = ╱eb╱ + ╱ // 0xa25 @0x20
0x0a05…0a37 at0021 = ╱54╱T╱ // 0xa26 @0x21
0x0a05…0a37 at0022 = ╱5f╱_╱ // 0xa27 @0x22
0x0a05…0a37 at0023 = ╱4b╱K╱ // 0xa28 @0x23
0x0a05…0a37 at0024 = ╱4f╱O╱ // 0xa29 @0x24
0x0a05…0a37 at0025 = ╱44╱D╱ // 0xa2a @0x25
0x0a05…0a37 at0026 = ╱45╱E╱ // 0xa2b @0x26
0x0a05…0a37 at0027 = ╱ef╱ $ ╱ // 0xa2c @0x27
0x0a05…0a37 at0028 = ╱eb╱ + ╱ // 0xa2d @0x28
0x0a05…0a37 at0029 = ╱22╱"╱ // 0xa2e @0x29
0x0a05…0a37 at002a = ╱4b╱K╱ // 0xa2f @0x2a
0x0a05…0a37 at002b = ╱54╱T╱ // 0xa30 @0x2b
0x0a05…0a37 at002c = ╱4f╱O╱ // 0xa31 @0x2c
0x0a05…0a37 at002d = ╱49╱I╱ // 0xa32 @0x2d
0x0a05…0a37 at002e = ╱44╱D╱ // 0xa33 @0x2e
0x0a05…0a37 at002f = ╱58╱X╱ // 0xa34 @0x2f
0x0a05…0a37 at0030 = ╱22╱"╱ // 0xa35 @0x30
0x0a05…0a37 at0031 = EOL // 0xa36 @0x31
0x0a05…0a37 }
0x0a37…0a67 a055 00900 LET KONTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KONTO"
0x0a37…0a67 LineComal80 {
0x0a37…0a67 ptr = 0xa055 // 0xa37 @0x0
0x0a37…0a67 lno = 0x0384 // 0xa39 @0x2
0x0a37…0a67 at0004 = ╱86╱ LET ╱ // 0xa3b @0x4
0x0a37…0a67 at0005 = ╱4b╱K╱ // 0xa3c @0x5
0x0a37…0a67 at0006 = ╱4f╱O╱ // 0xa3d @0x6
0x0a37…0a67 at0007 = ╱4e╱N╱ // 0xa3e @0x7
0x0a37…0a67 at0008 = ╱54╱T╱ // 0xa3f @0x8
0x0a37…0a67 at0009 = ╱4f╱O╱ // 0xa40 @0x9
0x0a37…0a67 at000a = ╱ef╱ $ ╱ // 0xa41 @0xa
0x0a37…0a67 at000b = ╱f0╱ := ╱ // 0xa42 @0xb
0x0a37…0a67 at000c = ╱44╱D╱ // 0xa43 @0xc
0x0a37…0a67 at000d = ╱41╱A╱ // 0xa44 @0xd
0x0a37…0a67 at000e = ╱54╱T╱ // 0xa45 @0xe
0x0a37…0a67 at000f = ╱41╱A╱ // 0xa46 @0xf
0x0a37…0a67 at0010 = ╱46╱F╱ // 0xa47 @0x10
0x0a37…0a67 at0011 = ╱4c╱L╱ // 0xa48 @0x11
0x0a37…0a67 at0012 = ╱ef╱ $ ╱ // 0xa49 @0x12
0x0a37…0a67 at0013 = ╱eb╱ + ╱ // 0xa4a @0x13
0x0a37…0a67 at0014 = ╱22╱"╱ // 0xa4b @0x14
0x0a37…0a67 at0015 = ╱3a╱:╱ // 0xa4c @0x15
0x0a37…0a67 at0016 = ╱22╱"╱ // 0xa4d @0x16
0x0a37…0a67 at0017 = ╱eb╱ + ╱ // 0xa4e @0x17
0x0a37…0a67 at0018 = ╱53╱S╱ // 0xa4f @0x18
0x0a37…0a67 at0019 = ╱5f╱_╱ // 0xa50 @0x19
0x0a37…0a67 at001a = ╱4b╱K╱ // 0xa51 @0x1a
0x0a37…0a67 at001b = ╱4f╱O╱ // 0xa52 @0x1b
0x0a37…0a67 at001c = ╱44╱D╱ // 0xa53 @0x1c
0x0a37…0a67 at001d = ╱45╱E╱ // 0xa54 @0x1d
0x0a37…0a67 at001e = ╱ef╱ $ ╱ // 0xa55 @0x1e
0x0a37…0a67 at001f = ╱eb╱ + ╱ // 0xa56 @0x1f
0x0a37…0a67 at0020 = ╱54╱T╱ // 0xa57 @0x20
0x0a37…0a67 at0021 = ╱5f╱_╱ // 0xa58 @0x21
0x0a37…0a67 at0022 = ╱4b╱K╱ // 0xa59 @0x22
0x0a37…0a67 at0023 = ╱4f╱O╱ // 0xa5a @0x23
0x0a37…0a67 at0024 = ╱44╱D╱ // 0xa5b @0x24
0x0a37…0a67 at0025 = ╱45╱E╱ // 0xa5c @0x25
0x0a37…0a67 at0026 = ╱ef╱ $ ╱ // 0xa5d @0x26
0x0a37…0a67 at0027 = ╱eb╱ + ╱ // 0xa5e @0x27
0x0a37…0a67 at0028 = ╱22╱"╱ // 0xa5f @0x28
0x0a37…0a67 at0029 = ╱4b╱K╱ // 0xa60 @0x29
0x0a37…0a67 at002a = ╱4f╱O╱ // 0xa61 @0x2a
0x0a37…0a67 at002b = ╱4e╱N╱ // 0xa62 @0x2b
0x0a37…0a67 at002c = ╱54╱T╱ // 0xa63 @0x2c
0x0a37…0a67 at002d = ╱4f╱O╱ // 0xa64 @0x2d
0x0a37…0a67 at002e = ╱22╱"╱ // 0xa65 @0x2e
0x0a37…0a67 at002f = EOL // 0xa66 @0x2f
0x0a37…0a67 }
0x0a67…0a99 a087 00910 LET ST_KTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "ST_KTO"
0x0a67…0a99 LineComal80 {
0x0a67…0a99 ptr = 0xa087 // 0xa67 @0x0
0x0a67…0a99 lno = 0x038e // 0xa69 @0x2
0x0a67…0a99 at0004 = ╱86╱ LET ╱ // 0xa6b @0x4
0x0a67…0a99 at0005 = ╱53╱S╱ // 0xa6c @0x5
0x0a67…0a99 at0006 = ╱54╱T╱ // 0xa6d @0x6
0x0a67…0a99 at0007 = ╱5f╱_╱ // 0xa6e @0x7
0x0a67…0a99 at0008 = ╱4b╱K╱ // 0xa6f @0x8
0x0a67…0a99 at0009 = ╱54╱T╱ // 0xa70 @0x9
0x0a67…0a99 at000a = ╱4f╱O╱ // 0xa71 @0xa
0x0a67…0a99 at000b = ╱ef╱ $ ╱ // 0xa72 @0xb
0x0a67…0a99 at000c = ╱f0╱ := ╱ // 0xa73 @0xc
0x0a67…0a99 at000d = ╱44╱D╱ // 0xa74 @0xd
0x0a67…0a99 at000e = ╱41╱A╱ // 0xa75 @0xe
0x0a67…0a99 at000f = ╱54╱T╱ // 0xa76 @0xf
0x0a67…0a99 at0010 = ╱41╱A╱ // 0xa77 @0x10
0x0a67…0a99 at0011 = ╱46╱F╱ // 0xa78 @0x11
0x0a67…0a99 at0012 = ╱4c╱L╱ // 0xa79 @0x12
0x0a67…0a99 at0013 = ╱ef╱ $ ╱ // 0xa7a @0x13
0x0a67…0a99 at0014 = ╱eb╱ + ╱ // 0xa7b @0x14
0x0a67…0a99 at0015 = ╱22╱"╱ // 0xa7c @0x15
0x0a67…0a99 at0016 = ╱3a╱:╱ // 0xa7d @0x16
0x0a67…0a99 at0017 = ╱22╱"╱ // 0xa7e @0x17
0x0a67…0a99 at0018 = ╱eb╱ + ╱ // 0xa7f @0x18
0x0a67…0a99 at0019 = ╱53╱S╱ // 0xa80 @0x19
0x0a67…0a99 at001a = ╱5f╱_╱ // 0xa81 @0x1a
0x0a67…0a99 at001b = ╱4b╱K╱ // 0xa82 @0x1b
0x0a67…0a99 at001c = ╱4f╱O╱ // 0xa83 @0x1c
0x0a67…0a99 at001d = ╱44╱D╱ // 0xa84 @0x1d
0x0a67…0a99 at001e = ╱45╱E╱ // 0xa85 @0x1e
0x0a67…0a99 at001f = ╱ef╱ $ ╱ // 0xa86 @0x1f
0x0a67…0a99 at0020 = ╱eb╱ + ╱ // 0xa87 @0x20
0x0a67…0a99 at0021 = ╱54╱T╱ // 0xa88 @0x21
0x0a67…0a99 at0022 = ╱5f╱_╱ // 0xa89 @0x22
0x0a67…0a99 at0023 = ╱4b╱K╱ // 0xa8a @0x23
0x0a67…0a99 at0024 = ╱4f╱O╱ // 0xa8b @0x24
0x0a67…0a99 at0025 = ╱44╱D╱ // 0xa8c @0x25
0x0a67…0a99 at0026 = ╱45╱E╱ // 0xa8d @0x26
0x0a67…0a99 at0027 = ╱ef╱ $ ╱ // 0xa8e @0x27
0x0a67…0a99 at0028 = ╱eb╱ + ╱ // 0xa8f @0x28
0x0a67…0a99 at0029 = ╱22╱"╱ // 0xa90 @0x29
0x0a67…0a99 at002a = ╱53╱S╱ // 0xa91 @0x2a
0x0a67…0a99 at002b = ╱54╱T╱ // 0xa92 @0x2b
0x0a67…0a99 at002c = ╱5f╱_╱ // 0xa93 @0x2c
0x0a67…0a99 at002d = ╱4b╱K╱ // 0xa94 @0x2d
0x0a67…0a99 at002e = ╱54╱T╱ // 0xa95 @0x2e
0x0a67…0a99 at002f = ╱4f╱O╱ // 0xa96 @0x2f
0x0a67…0a99 at0030 = ╱22╱"╱ // 0xa97 @0x30
0x0a67…0a99 at0031 = EOL // 0xa98 @0x31
0x0a67…0a99 }
0x0a99…0acb a0b9 00920 LET DG_POS $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "DG_POS"
0x0a99…0acb LineComal80 {
0x0a99…0acb ptr = 0xa0b9 // 0xa99 @0x0
0x0a99…0acb lno = 0x0398 // 0xa9b @0x2
0x0a99…0acb at0004 = ╱86╱ LET ╱ // 0xa9d @0x4
0x0a99…0acb at0005 = ╱44╱D╱ // 0xa9e @0x5
0x0a99…0acb at0006 = ╱47╱G╱ // 0xa9f @0x6
0x0a99…0acb at0007 = ╱5f╱_╱ // 0xaa0 @0x7
0x0a99…0acb at0008 = ╱50╱P╱ // 0xaa1 @0x8
0x0a99…0acb at0009 = ╱4f╱O╱ // 0xaa2 @0x9
0x0a99…0acb at000a = ╱53╱S╱ // 0xaa3 @0xa
0x0a99…0acb at000b = ╱ef╱ $ ╱ // 0xaa4 @0xb
0x0a99…0acb at000c = ╱f0╱ := ╱ // 0xaa5 @0xc
0x0a99…0acb at000d = ╱44╱D╱ // 0xaa6 @0xd
0x0a99…0acb at000e = ╱41╱A╱ // 0xaa7 @0xe
0x0a99…0acb at000f = ╱54╱T╱ // 0xaa8 @0xf
0x0a99…0acb at0010 = ╱41╱A╱ // 0xaa9 @0x10
0x0a99…0acb at0011 = ╱46╱F╱ // 0xaaa @0x11
0x0a99…0acb at0012 = ╱4c╱L╱ // 0xaab @0x12
0x0a99…0acb at0013 = ╱ef╱ $ ╱ // 0xaac @0x13
0x0a99…0acb at0014 = ╱eb╱ + ╱ // 0xaad @0x14
0x0a99…0acb at0015 = ╱22╱"╱ // 0xaae @0x15
0x0a99…0acb at0016 = ╱3a╱:╱ // 0xaaf @0x16
0x0a99…0acb at0017 = ╱22╱"╱ // 0xab0 @0x17
0x0a99…0acb at0018 = ╱eb╱ + ╱ // 0xab1 @0x18
0x0a99…0acb at0019 = ╱53╱S╱ // 0xab2 @0x19
0x0a99…0acb at001a = ╱5f╱_╱ // 0xab3 @0x1a
0x0a99…0acb at001b = ╱4b╱K╱ // 0xab4 @0x1b
0x0a99…0acb at001c = ╱4f╱O╱ // 0xab5 @0x1c
0x0a99…0acb at001d = ╱44╱D╱ // 0xab6 @0x1d
0x0a99…0acb at001e = ╱45╱E╱ // 0xab7 @0x1e
0x0a99…0acb at001f = ╱ef╱ $ ╱ // 0xab8 @0x1f
0x0a99…0acb at0020 = ╱eb╱ + ╱ // 0xab9 @0x20
0x0a99…0acb at0021 = ╱54╱T╱ // 0xaba @0x21
0x0a99…0acb at0022 = ╱5f╱_╱ // 0xabb @0x22
0x0a99…0acb at0023 = ╱4b╱K╱ // 0xabc @0x23
0x0a99…0acb at0024 = ╱4f╱O╱ // 0xabd @0x24
0x0a99…0acb at0025 = ╱44╱D╱ // 0xabe @0x25
0x0a99…0acb at0026 = ╱45╱E╱ // 0xabf @0x26
0x0a99…0acb at0027 = ╱ef╱ $ ╱ // 0xac0 @0x27
0x0a99…0acb at0028 = ╱eb╱ + ╱ // 0xac1 @0x28
0x0a99…0acb at0029 = ╱22╱"╱ // 0xac2 @0x29
0x0a99…0acb at002a = ╱44╱D╱ // 0xac3 @0x2a
0x0a99…0acb at002b = ╱47╱G╱ // 0xac4 @0x2b
0x0a99…0acb at002c = ╱5f╱_╱ // 0xac5 @0x2c
0x0a99…0acb at002d = ╱50╱P╱ // 0xac6 @0x2d
0x0a99…0acb at002e = ╱4f╱O╱ // 0xac7 @0x2e
0x0a99…0acb at002f = ╱53╱S╱ // 0xac8 @0x2f
0x0a99…0acb at0030 = ╱22╱"╱ // 0xac9 @0x30
0x0a99…0acb at0031 = EOL // 0xaca @0x31
0x0a99…0acb }
0x0acb…0ae5 a0d3 00930 EXEC OPENFIL ( KTOIDX $ , "r" )
0x0acb…0ae5 LineComal80 {
0x0acb…0ae5 ptr = 0xa0d3 // 0xacb @0x0
0x0acb…0ae5 lno = 0x03a2 // 0xacd @0x2
0x0acb…0ae5 at0004 = ╱9d╱ EXEC ╱ // 0xacf @0x4
0x0acb…0ae5 at0005 = ╱4f╱O╱ // 0xad0 @0x5
0x0acb…0ae5 at0006 = ╱50╱P╱ // 0xad1 @0x6
0x0acb…0ae5 at0007 = ╱45╱E╱ // 0xad2 @0x7
0x0acb…0ae5 at0008 = ╱4e╱N╱ // 0xad3 @0x8
0x0acb…0ae5 at0009 = ╱46╱F╱ // 0xad4 @0x9
0x0acb…0ae5 at000a = ╱49╱I╱ // 0xad5 @0xa
0x0acb…0ae5 at000b = ╱4c╱L╱ // 0xad6 @0xb
0x0acb…0ae5 at000c = ╱ed╱ ( ╱ // 0xad7 @0xc
0x0acb…0ae5 at000d = ╱4b╱K╱ // 0xad8 @0xd
0x0acb…0ae5 at000e = ╱54╱T╱ // 0xad9 @0xe
0x0acb…0ae5 at000f = ╱4f╱O╱ // 0xada @0xf
0x0acb…0ae5 at0010 = ╱49╱I╱ // 0xadb @0x10
0x0acb…0ae5 at0011 = ╱44╱D╱ // 0xadc @0x11
0x0acb…0ae5 at0012 = ╱58╱X╱ // 0xadd @0x12
0x0acb…0ae5 at0013 = ╱ef╱ $ ╱ // 0xade @0x13
0x0acb…0ae5 at0014 = ╱ec╱ , ╱ // 0xadf @0x14
0x0acb…0ae5 at0015 = ╱22╱"╱ // 0xae0 @0x15
0x0acb…0ae5 at0016 = ╱72╱r╱ // 0xae1 @0x16
0x0acb…0ae5 at0017 = ╱22╱"╱ // 0xae2 @0x17
0x0acb…0ae5 at0018 = ╱ee╱ ) ╱ // 0xae3 @0x18
0x0acb…0ae5 at0019 = EOL // 0xae4 @0x19
0x0acb…0ae5 }
0x0ae5…0afe a0ec 00940 EXEC OPENFIL ( KONTO $ , "R" )
0x0ae5…0afe LineComal80 {
0x0ae5…0afe ptr = 0xa0ec // 0xae5 @0x0
0x0ae5…0afe lno = 0x03ac // 0xae7 @0x2
0x0ae5…0afe at0004 = ╱9d╱ EXEC ╱ // 0xae9 @0x4
0x0ae5…0afe at0005 = ╱4f╱O╱ // 0xaea @0x5
0x0ae5…0afe at0006 = ╱50╱P╱ // 0xaeb @0x6
0x0ae5…0afe at0007 = ╱45╱E╱ // 0xaec @0x7
0x0ae5…0afe at0008 = ╱4e╱N╱ // 0xaed @0x8
0x0ae5…0afe at0009 = ╱46╱F╱ // 0xaee @0x9
0x0ae5…0afe at000a = ╱49╱I╱ // 0xaef @0xa
0x0ae5…0afe at000b = ╱4c╱L╱ // 0xaf0 @0xb
0x0ae5…0afe at000c = ╱ed╱ ( ╱ // 0xaf1 @0xc
0x0ae5…0afe at000d = ╱4b╱K╱ // 0xaf2 @0xd
0x0ae5…0afe at000e = ╱4f╱O╱ // 0xaf3 @0xe
0x0ae5…0afe at000f = ╱4e╱N╱ // 0xaf4 @0xf
0x0ae5…0afe at0010 = ╱54╱T╱ // 0xaf5 @0x10
0x0ae5…0afe at0011 = ╱4f╱O╱ // 0xaf6 @0x11
0x0ae5…0afe at0012 = ╱ef╱ $ ╱ // 0xaf7 @0x12
0x0ae5…0afe at0013 = ╱ec╱ , ╱ // 0xaf8 @0x13
0x0ae5…0afe at0014 = ╱22╱"╱ // 0xaf9 @0x14
0x0ae5…0afe at0015 = ╱52╱R╱ // 0xafa @0x15
0x0ae5…0afe at0016 = ╱22╱"╱ // 0xafb @0x16
0x0ae5…0afe at0017 = ╱ee╱ ) ╱ // 0xafc @0x17
0x0ae5…0afe at0018 = EOL // 0xafd @0x18
0x0ae5…0afe }
0x0afe…0b18 a106 00950 EXEC OPENFIL ( DG_POS $ , "W" )
0x0afe…0b18 LineComal80 {
0x0afe…0b18 ptr = 0xa106 // 0xafe @0x0
0x0afe…0b18 lno = 0x03b6 // 0xb00 @0x2
0x0afe…0b18 at0004 = ╱9d╱ EXEC ╱ // 0xb02 @0x4
0x0afe…0b18 at0005 = ╱4f╱O╱ // 0xb03 @0x5
0x0afe…0b18 at0006 = ╱50╱P╱ // 0xb04 @0x6
0x0afe…0b18 at0007 = ╱45╱E╱ // 0xb05 @0x7
0x0afe…0b18 at0008 = ╱4e╱N╱ // 0xb06 @0x8
0x0afe…0b18 at0009 = ╱46╱F╱ // 0xb07 @0x9
0x0afe…0b18 at000a = ╱49╱I╱ // 0xb08 @0xa
0x0afe…0b18 at000b = ╱4c╱L╱ // 0xb09 @0xb
0x0afe…0b18 at000c = ╱ed╱ ( ╱ // 0xb0a @0xc
0x0afe…0b18 at000d = ╱44╱D╱ // 0xb0b @0xd
0x0afe…0b18 at000e = ╱47╱G╱ // 0xb0c @0xe
0x0afe…0b18 at000f = ╱5f╱_╱ // 0xb0d @0xf
0x0afe…0b18 at0010 = ╱50╱P╱ // 0xb0e @0x10
0x0afe…0b18 at0011 = ╱4f╱O╱ // 0xb0f @0x11
0x0afe…0b18 at0012 = ╱53╱S╱ // 0xb10 @0x12
0x0afe…0b18 at0013 = ╱ef╱ $ ╱ // 0xb11 @0x13
0x0afe…0b18 at0014 = ╱ec╱ , ╱ // 0xb12 @0x14
0x0afe…0b18 at0015 = ╱22╱"╱ // 0xb13 @0x15
0x0afe…0b18 at0016 = ╱57╱W╱ // 0xb14 @0x16
0x0afe…0b18 at0017 = ╱22╱"╱ // 0xb15 @0x17
0x0afe…0b18 at0018 = ╱ee╱ ) ╱ // 0xb16 @0x18
0x0afe…0b18 at0019 = EOL // 0xb17 @0x19
0x0afe…0b18 }
0x0b18…0b32 a120 00960 EXEC OPENFIL ( ST_KTO $ , "R" )
0x0b18…0b32 LineComal80 {
0x0b18…0b32 ptr = 0xa120 // 0xb18 @0x0
0x0b18…0b32 lno = 0x03c0 // 0xb1a @0x2
0x0b18…0b32 at0004 = ╱9d╱ EXEC ╱ // 0xb1c @0x4
0x0b18…0b32 at0005 = ╱4f╱O╱ // 0xb1d @0x5
0x0b18…0b32 at0006 = ╱50╱P╱ // 0xb1e @0x6
0x0b18…0b32 at0007 = ╱45╱E╱ // 0xb1f @0x7
0x0b18…0b32 at0008 = ╱4e╱N╱ // 0xb20 @0x8
0x0b18…0b32 at0009 = ╱46╱F╱ // 0xb21 @0x9
0x0b18…0b32 at000a = ╱49╱I╱ // 0xb22 @0xa
0x0b18…0b32 at000b = ╱4c╱L╱ // 0xb23 @0xb
0x0b18…0b32 at000c = ╱ed╱ ( ╱ // 0xb24 @0xc
0x0b18…0b32 at000d = ╱53╱S╱ // 0xb25 @0xd
0x0b18…0b32 at000e = ╱54╱T╱ // 0xb26 @0xe
0x0b18…0b32 at000f = ╱5f╱_╱ // 0xb27 @0xf
0x0b18…0b32 at0010 = ╱4b╱K╱ // 0xb28 @0x10
0x0b18…0b32 at0011 = ╱54╱T╱ // 0xb29 @0x11
0x0b18…0b32 at0012 = ╱4f╱O╱ // 0xb2a @0x12
0x0b18…0b32 at0013 = ╱ef╱ $ ╱ // 0xb2b @0x13
0x0b18…0b32 at0014 = ╱ec╱ , ╱ // 0xb2c @0x14
0x0b18…0b32 at0015 = ╱22╱"╱ // 0xb2d @0x15
0x0b18…0b32 at0016 = ╱52╱R╱ // 0xb2e @0x16
0x0b18…0b32 at0017 = ╱22╱"╱ // 0xb2f @0x17
0x0b18…0b32 at0018 = ╱ee╱ ) ╱ // 0xb30 @0x18
0x0b18…0b32 at0019 = EOL // 0xb31 @0x19
0x0b18…0b32 }
0x0b32…0b4f a13d 00970 GET ST_KTO $ , 1 : KASSE_KTO $
0x0b32…0b4f LineComal80 {
0x0b32…0b4f ptr = 0xa13d // 0xb32 @0x0
0x0b32…0b4f lno = 0x03ca // 0xb34 @0x2
0x0b32…0b4f at0004 = ╱a9╱ GET ╱ // 0xb36 @0x4
0x0b32…0b4f at0005 = ╱53╱S╱ // 0xb37 @0x5
0x0b32…0b4f at0006 = ╱54╱T╱ // 0xb38 @0x6
0x0b32…0b4f at0007 = ╱5f╱_╱ // 0xb39 @0x7
0x0b32…0b4f at0008 = ╱4b╱K╱ // 0xb3a @0x8
0x0b32…0b4f at0009 = ╱54╱T╱ // 0xb3b @0x9
0x0b32…0b4f at000a = ╱4f╱O╱ // 0xb3c @0xa
0x0b32…0b4f at000b = ╱ef╱ $ ╱ // 0xb3d @0xb
0x0b32…0b4f at000c = ╱ec╱ , ╱ // 0xb3e @0xc
0x0b32…0b4f at000d = ╱31╱1╱ // 0xb3f @0xd
0x0b32…0b4f at000e = ╱f20100╱ // 0xb40 @0xe
0x0b32…0b4f at0011 = ╱f1╱ : ╱ // 0xb43 @0x11
0x0b32…0b4f at0012 = ╱4b╱K╱ // 0xb44 @0x12
0x0b32…0b4f at0013 = ╱41╱A╱ // 0xb45 @0x13
0x0b32…0b4f at0014 = ╱53╱S╱ // 0xb46 @0x14
0x0b32…0b4f at0015 = ╱53╱S╱ // 0xb47 @0x15
0x0b32…0b4f at0016 = ╱45╱E╱ // 0xb48 @0x16
0x0b32…0b4f at0017 = ╱5f╱_╱ // 0xb49 @0x17
0x0b32…0b4f at0018 = ╱4b╱K╱ // 0xb4a @0x18
0x0b32…0b4f at0019 = ╱54╱T╱ // 0xb4b @0x19
0x0b32…0b4f at001a = ╱4f╱O╱ // 0xb4c @0x1a
0x0b32…0b4f at001b = ╱ef╱ $ ╱ // 0xb4d @0x1b
0x0b32…0b4f at001c = EOL // 0xb4e @0x1c
0x0b32…0b4f }
0x0b4f…0b6b a159 00980 GET ST_KTO $ , 2 : BANK_KTO $
0x0b4f…0b6b LineComal80 {
0x0b4f…0b6b ptr = 0xa159 // 0xb4f @0x0
0x0b4f…0b6b lno = 0x03d4 // 0xb51 @0x2
0x0b4f…0b6b at0004 = ╱a9╱ GET ╱ // 0xb53 @0x4
0x0b4f…0b6b at0005 = ╱53╱S╱ // 0xb54 @0x5
0x0b4f…0b6b at0006 = ╱54╱T╱ // 0xb55 @0x6
0x0b4f…0b6b at0007 = ╱5f╱_╱ // 0xb56 @0x7
0x0b4f…0b6b at0008 = ╱4b╱K╱ // 0xb57 @0x8
0x0b4f…0b6b at0009 = ╱54╱T╱ // 0xb58 @0x9
0x0b4f…0b6b at000a = ╱4f╱O╱ // 0xb59 @0xa
0x0b4f…0b6b at000b = ╱ef╱ $ ╱ // 0xb5a @0xb
0x0b4f…0b6b at000c = ╱ec╱ , ╱ // 0xb5b @0xc
0x0b4f…0b6b at000d = ╱32╱2╱ // 0xb5c @0xd
0x0b4f…0b6b at000e = ╱f20200╱ // 0xb5d @0xe
0x0b4f…0b6b at0011 = ╱f1╱ : ╱ // 0xb60 @0x11
0x0b4f…0b6b at0012 = ╱42╱B╱ // 0xb61 @0x12
0x0b4f…0b6b at0013 = ╱41╱A╱ // 0xb62 @0x13
0x0b4f…0b6b at0014 = ╱4e╱N╱ // 0xb63 @0x14
0x0b4f…0b6b at0015 = ╱4b╱K╱ // 0xb64 @0x15
0x0b4f…0b6b at0016 = ╱5f╱_╱ // 0xb65 @0x16
0x0b4f…0b6b at0017 = ╱4b╱K╱ // 0xb66 @0x17
0x0b4f…0b6b at0018 = ╱54╱T╱ // 0xb67 @0x18
0x0b4f…0b6b at0019 = ╱4f╱O╱ // 0xb68 @0x19
0x0b4f…0b6b at001a = ╱ef╱ $ ╱ // 0xb69 @0x1a
0x0b4f…0b6b at001b = EOL // 0xb6a @0x1b
0x0b4f…0b6b }
0x0b6b…0b87 a175 00990 GET ST_KTO $ , 3 : GIRO_KTO $
0x0b6b…0b87 LineComal80 {
0x0b6b…0b87 ptr = 0xa175 // 0xb6b @0x0
0x0b6b…0b87 lno = 0x03de // 0xb6d @0x2
0x0b6b…0b87 at0004 = ╱a9╱ GET ╱ // 0xb6f @0x4
0x0b6b…0b87 at0005 = ╱53╱S╱ // 0xb70 @0x5
0x0b6b…0b87 at0006 = ╱54╱T╱ // 0xb71 @0x6
0x0b6b…0b87 at0007 = ╱5f╱_╱ // 0xb72 @0x7
0x0b6b…0b87 at0008 = ╱4b╱K╱ // 0xb73 @0x8
0x0b6b…0b87 at0009 = ╱54╱T╱ // 0xb74 @0x9
0x0b6b…0b87 at000a = ╱4f╱O╱ // 0xb75 @0xa
0x0b6b…0b87 at000b = ╱ef╱ $ ╱ // 0xb76 @0xb
0x0b6b…0b87 at000c = ╱ec╱ , ╱ // 0xb77 @0xc
0x0b6b…0b87 at000d = ╱33╱3╱ // 0xb78 @0xd
0x0b6b…0b87 at000e = ╱f20300╱ // 0xb79 @0xe
0x0b6b…0b87 at0011 = ╱f1╱ : ╱ // 0xb7c @0x11
0x0b6b…0b87 at0012 = ╱47╱G╱ // 0xb7d @0x12
0x0b6b…0b87 at0013 = ╱49╱I╱ // 0xb7e @0x13
0x0b6b…0b87 at0014 = ╱52╱R╱ // 0xb7f @0x14
0x0b6b…0b87 at0015 = ╱4f╱O╱ // 0xb80 @0x15
0x0b6b…0b87 at0016 = ╱5f╱_╱ // 0xb81 @0x16
0x0b6b…0b87 at0017 = ╱4b╱K╱ // 0xb82 @0x17
0x0b6b…0b87 at0018 = ╱54╱T╱ // 0xb83 @0x18
0x0b6b…0b87 at0019 = ╱4f╱O╱ // 0xb84 @0x19
0x0b6b…0b87 at001a = ╱ef╱ $ ╱ // 0xb85 @0x1a
0x0b6b…0b87 at001b = EOL // 0xb86 @0x1b
0x0b6b…0b87 }
0x0b87…0b94 a182 01000 CLOSE ST_KTO $
0x0b87…0b94 LineComal80 {
0x0b87…0b94 ptr = 0xa182 // 0xb87 @0x0
0x0b87…0b94 lno = 0x03e8 // 0xb89 @0x2
0x0b87…0b94 at0004 = ╱a8╱ CLOSE ╱ // 0xb8b @0x4
0x0b87…0b94 at0005 = ╱53╱S╱ // 0xb8c @0x5
0x0b87…0b94 at0006 = ╱54╱T╱ // 0xb8d @0x6
0x0b87…0b94 at0007 = ╱5f╱_╱ // 0xb8e @0x7
0x0b87…0b94 at0008 = ╱4b╱K╱ // 0xb8f @0x8
0x0b87…0b94 at0009 = ╱54╱T╱ // 0xb90 @0x9
0x0b87…0b94 at000a = ╱4f╱O╱ // 0xb91 @0xa
0x0b87…0b94 at000b = ╱ef╱ $ ╱ // 0xb92 @0xb
0x0b87…0b94 at000c = EOL // 0xb93 @0xc
0x0b87…0b94 }
0x0b94…0ba1 a18f 01010 ENDPROC INITIER
0x0b94…0ba1 LineComal80 {
0x0b94…0ba1 ptr = 0xa18f // 0xb94 @0x0
0x0b94…0ba1 lno = 0x03f2 // 0xb96 @0x2
0x0b94…0ba1 at0004 = ╱9f╱ ENDPROC ╱ // 0xb98 @0x4
0x0b94…0ba1 at0005 = ╱49╱I╱ // 0xb99 @0x5
0x0b94…0ba1 at0006 = ╱4e╱N╱ // 0xb9a @0x6
0x0b94…0ba1 at0007 = ╱49╱I╱ // 0xb9b @0x7
0x0b94…0ba1 at0008 = ╱54╱T╱ // 0xb9c @0x8
0x0b94…0ba1 at0009 = ╱49╱I╱ // 0xb9d @0x9
0x0b94…0ba1 at000a = ╱45╱E╱ // 0xb9e @0xa
0x0b94…0ba1 at000b = ╱52╱R╱ // 0xb9f @0xb
0x0b94…0ba1 at000c = EOL // 0xba0 @0xc
0x0b94…0ba1 }
0x0ba1…0ba6 a194 01020
0x0ba1…0ba6 LineComal80 {
0x0ba1…0ba6 ptr = 0xa194 // 0xba1 @0x0
0x0ba1…0ba6 lno = 0x03fc // 0xba3 @0x2
0x0ba1…0ba6 at0004 = EOL // 0xba5 @0x4
0x0ba1…0ba6 }
0x0ba6…0bba a1a8 01030 PROC FUNKTIONSMENU
0x0ba6…0bba LineComal80 {
0x0ba6…0bba ptr = 0xa1a8 // 0xba6 @0x0
0x0ba6…0bba lno = 0x0406 // 0xba8 @0x2
0x0ba6…0bba at0004 = ╱9e03╱ PROC ╱ // 0xbaa @0x4
0x0ba6…0bba at0006 = ╱46╱F╱ // 0xbac @0x6
0x0ba6…0bba at0007 = ╱55╱U╱ // 0xbad @0x7
0x0ba6…0bba at0008 = ╱4e╱N╱ // 0xbae @0x8
0x0ba6…0bba at0009 = ╱4b╱K╱ // 0xbaf @0x9
0x0ba6…0bba at000a = ╱54╱T╱ // 0xbb0 @0xa
0x0ba6…0bba at000b = ╱49╱I╱ // 0xbb1 @0xb
0x0ba6…0bba at000c = ╱4f╱O╱ // 0xbb2 @0xc
0x0ba6…0bba at000d = ╱4e╱N╱ // 0xbb3 @0xd
0x0ba6…0bba at000e = ╱53╱S╱ // 0xbb4 @0xe
0x0ba6…0bba at000f = ╱4d╱M╱ // 0xbb5 @0xf
0x0ba6…0bba at0010 = ╱45╱E╱ // 0xbb6 @0x10
0x0ba6…0bba at0011 = ╱4e╱N╱ // 0xbb7 @0x11
0x0ba6…0bba at0012 = ╱55╱U╱ // 0xbb8 @0x12
0x0ba6…0bba at0013 = EOL // 0xbb9 @0x13
0x0ba6…0bba }
0x0bba…0bc1 a1af 01040 REPEAT
0x0bba…0bc1 LineComal80 {
0x0bba…0bc1 ptr = 0xa1af // 0xbba @0x0
0x0bba…0bc1 lno = 0x0410 // 0xbbc @0x2
0x0bba…0bc1 at0004 = ╱9704╱ REPEAT ╱ // 0xbbe @0x4
0x0bba…0bc1 at0006 = EOL // 0xbc0 @0x6
0x0bba…0bc1 }
0x0bc1…0be7 a1d5 01050 EXEC OVERSKRIFT ( "Konteringsark" , 6 )
0x0bc1…0be7 LineComal80 {
0x0bc1…0be7 ptr = 0xa1d5 // 0xbc1 @0x0
0x0bc1…0be7 lno = 0x041a // 0xbc3 @0x2
0x0bc1…0be7 at0004 = ╱9d╱ EXEC ╱ // 0xbc5 @0x4
0x0bc1…0be7 at0005 = ╱4f╱O╱ // 0xbc6 @0x5
0x0bc1…0be7 at0006 = ╱56╱V╱ // 0xbc7 @0x6
0x0bc1…0be7 at0007 = ╱45╱E╱ // 0xbc8 @0x7
0x0bc1…0be7 at0008 = ╱52╱R╱ // 0xbc9 @0x8
0x0bc1…0be7 at0009 = ╱53╱S╱ // 0xbca @0x9
0x0bc1…0be7 at000a = ╱4b╱K╱ // 0xbcb @0xa
0x0bc1…0be7 at000b = ╱52╱R╱ // 0xbcc @0xb
0x0bc1…0be7 at000c = ╱49╱I╱ // 0xbcd @0xc
0x0bc1…0be7 at000d = ╱46╱F╱ // 0xbce @0xd
0x0bc1…0be7 at000e = ╱54╱T╱ // 0xbcf @0xe
0x0bc1…0be7 at000f = ╱ed╱ ( ╱ // 0xbd0 @0xf
0x0bc1…0be7 at0010 = ╱22╱"╱ // 0xbd1 @0x10
0x0bc1…0be7 at0011 = ╱4b╱K╱ // 0xbd2 @0x11
0x0bc1…0be7 at0012 = ╱6f╱o╱ // 0xbd3 @0x12
0x0bc1…0be7 at0013 = ╱6e╱n╱ // 0xbd4 @0x13
0x0bc1…0be7 at0014 = ╱74╱t╱ // 0xbd5 @0x14
0x0bc1…0be7 at0015 = ╱65╱e╱ // 0xbd6 @0x15
0x0bc1…0be7 at0016 = ╱72╱r╱ // 0xbd7 @0x16
0x0bc1…0be7 at0017 = ╱69╱i╱ // 0xbd8 @0x17
0x0bc1…0be7 at0018 = ╱6e╱n╱ // 0xbd9 @0x18
0x0bc1…0be7 at0019 = ╱67╱g╱ // 0xbda @0x19
0x0bc1…0be7 at001a = ╱73╱s╱ // 0xbdb @0x1a
0x0bc1…0be7 at001b = ╱61╱a╱ // 0xbdc @0x1b
0x0bc1…0be7 at001c = ╱72╱r╱ // 0xbdd @0x1c
0x0bc1…0be7 at001d = ╱6b╱k╱ // 0xbde @0x1d
0x0bc1…0be7 at001e = ╱22╱"╱ // 0xbdf @0x1e
0x0bc1…0be7 at001f = ╱ec╱ , ╱ // 0xbe0 @0x1f
0x0bc1…0be7 at0020 = ╱36╱6╱ // 0xbe1 @0x20
0x0bc1…0be7 at0021 = ╱f20600╱ // 0xbe2 @0x21
0x0bc1…0be7 at0024 = ╱ee╱ ) ╱ // 0xbe5 @0x24
0x0bc1…0be7 at0025 = EOL // 0xbe6 @0x25
0x0bc1…0be7 }
0x0be7…0c1c a20a 01060 PRINT "<C2009>Indtastning…af…posteringer…………………………IP"
0x0be7…0c1c LineComal80 {
0x0be7…0c1c ptr = 0xa20a // 0xbe7 @0x0
0x0be7…0c1c lno = 0x0424 // 0xbe9 @0x2
0x0be7…0c1c at0004 = ╱92╱ PRINT ╱ // 0xbeb @0x4
0x0be7…0c1c at0005 = ╱22╱"╱ // 0xbec @0x5
0x0be7…0c1c at0006 = ╱3c╱<╱ // 0xbed @0x6
0x0be7…0c1c at0007 = ╱43╱C╱ // 0xbee @0x7
0x0be7…0c1c at0008 = ╱32╱2╱ // 0xbef @0x8
0x0be7…0c1c at0009 = ╱30╱0╱ // 0xbf0 @0x9
0x0be7…0c1c at000a = ╱30╱0╱ // 0xbf1 @0xa
0x0be7…0c1c at000b = ╱39╱9╱ // 0xbf2 @0xb
0x0be7…0c1c at000c = ╱3e╱>╱ // 0xbf3 @0xc
0x0be7…0c1c at000d = ╱49╱I╱ // 0xbf4 @0xd
0x0be7…0c1c at000e = ╱6e╱n╱ // 0xbf5 @0xe
0x0be7…0c1c at000f = ╱64╱d╱ // 0xbf6 @0xf
0x0be7…0c1c at0010 = ╱74╱t╱ // 0xbf7 @0x10
0x0be7…0c1c at0011 = ╱61╱a╱ // 0xbf8 @0x11
0x0be7…0c1c at0012 = ╱73╱s╱ // 0xbf9 @0x12
0x0be7…0c1c at0013 = ╱74╱t╱ // 0xbfa @0x13
0x0be7…0c1c at0014 = ╱6e╱n╱ // 0xbfb @0x14
0x0be7…0c1c at0015 = ╱69╱i╱ // 0xbfc @0x15
0x0be7…0c1c at0016 = ╱6e╱n╱ // 0xbfd @0x16
0x0be7…0c1c at0017 = ╱67╱g╱ // 0xbfe @0x17
0x0be7…0c1c at0018 = ╱20╱…╱ // 0xbff @0x18
0x0be7…0c1c at0019 = ╱61╱a╱ // 0xc00 @0x19
0x0be7…0c1c at001a = ╱66╱f╱ // 0xc01 @0x1a
0x0be7…0c1c at001b = ╱20╱…╱ // 0xc02 @0x1b
0x0be7…0c1c at001c = ╱70╱p╱ // 0xc03 @0x1c
0x0be7…0c1c at001d = ╱6f╱o╱ // 0xc04 @0x1d
0x0be7…0c1c at001e = ╱73╱s╱ // 0xc05 @0x1e
0x0be7…0c1c at001f = ╱74╱t╱ // 0xc06 @0x1f
0x0be7…0c1c at0020 = ╱65╱e╱ // 0xc07 @0x20
0x0be7…0c1c at0021 = ╱72╱r╱ // 0xc08 @0x21
0x0be7…0c1c at0022 = ╱69╱i╱ // 0xc09 @0x22
0x0be7…0c1c at0023 = ╱6e╱n╱ // 0xc0a @0x23
0x0be7…0c1c at0024 = ╱67╱g╱ // 0xc0b @0x24
0x0be7…0c1c at0025 = ╱65╱e╱ // 0xc0c @0x25
0x0be7…0c1c at0026 = ╱72╱r╱ // 0xc0d @0x26
0x0be7…0c1c at0027 = ╱20╱…╱ // 0xc0e @0x27
0x0be7…0c1c at0028 = ╱20╱…╱ // 0xc0f @0x28
0x0be7…0c1c at0029 = ╱20╱…╱ // 0xc10 @0x29
0x0be7…0c1c at002a = ╱20╱…╱ // 0xc11 @0x2a
0x0be7…0c1c at002b = ╱20╱…╱ // 0xc12 @0x2b
0x0be7…0c1c at002c = ╱20╱…╱ // 0xc13 @0x2c
0x0be7…0c1c at002d = ╱20╱…╱ // 0xc14 @0x2d
0x0be7…0c1c at002e = ╱20╱…╱ // 0xc15 @0x2e
0x0be7…0c1c at002f = ╱20╱…╱ // 0xc16 @0x2f
0x0be7…0c1c at0030 = ╱20╱…╱ // 0xc17 @0x30
0x0be7…0c1c at0031 = ╱49╱I╱ // 0xc18 @0x31
0x0be7…0c1c at0032 = ╱50╱P╱ // 0xc19 @0x32
0x0be7…0c1c at0033 = ╱22╱"╱ // 0xc1a @0x33
0x0be7…0c1c at0034 = EOL // 0xc1b @0x34
0x0be7…0c1c }
0x0c1c…0c51 a23f 01070 PRINT "<C2011>Udskrivning…af…konteringskladde……………UK"
0x0c1c…0c51 LineComal80 {
0x0c1c…0c51 ptr = 0xa23f // 0xc1c @0x0
0x0c1c…0c51 lno = 0x042e // 0xc1e @0x2
0x0c1c…0c51 at0004 = ╱92╱ PRINT ╱ // 0xc20 @0x4
0x0c1c…0c51 at0005 = ╱22╱"╱ // 0xc21 @0x5
0x0c1c…0c51 at0006 = ╱3c╱<╱ // 0xc22 @0x6
0x0c1c…0c51 at0007 = ╱43╱C╱ // 0xc23 @0x7
0x0c1c…0c51 at0008 = ╱32╱2╱ // 0xc24 @0x8
0x0c1c…0c51 at0009 = ╱30╱0╱ // 0xc25 @0x9
0x0c1c…0c51 at000a = ╱31╱1╱ // 0xc26 @0xa
0x0c1c…0c51 at000b = ╱31╱1╱ // 0xc27 @0xb
0x0c1c…0c51 at000c = ╱3e╱>╱ // 0xc28 @0xc
0x0c1c…0c51 at000d = ╱55╱U╱ // 0xc29 @0xd
0x0c1c…0c51 at000e = ╱64╱d╱ // 0xc2a @0xe
0x0c1c…0c51 at000f = ╱73╱s╱ // 0xc2b @0xf
0x0c1c…0c51 at0010 = ╱6b╱k╱ // 0xc2c @0x10
0x0c1c…0c51 at0011 = ╱72╱r╱ // 0xc2d @0x11
0x0c1c…0c51 at0012 = ╱69╱i╱ // 0xc2e @0x12
0x0c1c…0c51 at0013 = ╱76╱v╱ // 0xc2f @0x13
0x0c1c…0c51 at0014 = ╱6e╱n╱ // 0xc30 @0x14
0x0c1c…0c51 at0015 = ╱69╱i╱ // 0xc31 @0x15
0x0c1c…0c51 at0016 = ╱6e╱n╱ // 0xc32 @0x16
0x0c1c…0c51 at0017 = ╱67╱g╱ // 0xc33 @0x17
0x0c1c…0c51 at0018 = ╱20╱…╱ // 0xc34 @0x18
0x0c1c…0c51 at0019 = ╱61╱a╱ // 0xc35 @0x19
0x0c1c…0c51 at001a = ╱66╱f╱ // 0xc36 @0x1a
0x0c1c…0c51 at001b = ╱20╱…╱ // 0xc37 @0x1b
0x0c1c…0c51 at001c = ╱6b╱k╱ // 0xc38 @0x1c
0x0c1c…0c51 at001d = ╱6f╱o╱ // 0xc39 @0x1d
0x0c1c…0c51 at001e = ╱6e╱n╱ // 0xc3a @0x1e
0x0c1c…0c51 at001f = ╱74╱t╱ // 0xc3b @0x1f
0x0c1c…0c51 at0020 = ╱65╱e╱ // 0xc3c @0x20
0x0c1c…0c51 at0021 = ╱72╱r╱ // 0xc3d @0x21
0x0c1c…0c51 at0022 = ╱69╱i╱ // 0xc3e @0x22
0x0c1c…0c51 at0023 = ╱6e╱n╱ // 0xc3f @0x23
0x0c1c…0c51 at0024 = ╱67╱g╱ // 0xc40 @0x24
0x0c1c…0c51 at0025 = ╱73╱s╱ // 0xc41 @0x25
0x0c1c…0c51 at0026 = ╱6b╱k╱ // 0xc42 @0x26
0x0c1c…0c51 at0027 = ╱6c╱l╱ // 0xc43 @0x27
0x0c1c…0c51 at0028 = ╱61╱a╱ // 0xc44 @0x28
0x0c1c…0c51 at0029 = ╱64╱d╱ // 0xc45 @0x29
0x0c1c…0c51 at002a = ╱64╱d╱ // 0xc46 @0x2a
0x0c1c…0c51 at002b = ╱65╱e╱ // 0xc47 @0x2b
0x0c1c…0c51 at002c = ╱20╱…╱ // 0xc48 @0x2c
0x0c1c…0c51 at002d = ╱20╱…╱ // 0xc49 @0x2d
0x0c1c…0c51 at002e = ╱20╱…╱ // 0xc4a @0x2e
0x0c1c…0c51 at002f = ╱20╱…╱ // 0xc4b @0x2f
0x0c1c…0c51 at0030 = ╱20╱…╱ // 0xc4c @0x30
0x0c1c…0c51 at0031 = ╱55╱U╱ // 0xc4d @0x31
0x0c1c…0c51 at0032 = ╱4b╱K╱ // 0xc4e @0x32
0x0c1c…0c51 at0033 = ╱22╱"╱ // 0xc4f @0x33
0x0c1c…0c51 at0034 = EOL // 0xc50 @0x34
0x0c1c…0c51 }
0x0c51…0c86 a274 01080 PRINT "<C2013>Ret…posteringer………………………………………………………RP"
0x0c51…0c86 LineComal80 {
0x0c51…0c86 ptr = 0xa274 // 0xc51 @0x0
0x0c51…0c86 lno = 0x0438 // 0xc53 @0x2
0x0c51…0c86 at0004 = ╱92╱ PRINT ╱ // 0xc55 @0x4
0x0c51…0c86 at0005 = ╱22╱"╱ // 0xc56 @0x5
0x0c51…0c86 at0006 = ╱3c╱<╱ // 0xc57 @0x6
0x0c51…0c86 at0007 = ╱43╱C╱ // 0xc58 @0x7
0x0c51…0c86 at0008 = ╱32╱2╱ // 0xc59 @0x8
0x0c51…0c86 at0009 = ╱30╱0╱ // 0xc5a @0x9
0x0c51…0c86 at000a = ╱31╱1╱ // 0xc5b @0xa
0x0c51…0c86 at000b = ╱33╱3╱ // 0xc5c @0xb
0x0c51…0c86 at000c = ╱3e╱>╱ // 0xc5d @0xc
0x0c51…0c86 at000d = ╱52╱R╱ // 0xc5e @0xd
0x0c51…0c86 at000e = ╱65╱e╱ // 0xc5f @0xe
0x0c51…0c86 at000f = ╱74╱t╱ // 0xc60 @0xf
0x0c51…0c86 at0010 = ╱20╱…╱ // 0xc61 @0x10
0x0c51…0c86 at0011 = ╱70╱p╱ // 0xc62 @0x11
0x0c51…0c86 at0012 = ╱6f╱o╱ // 0xc63 @0x12
0x0c51…0c86 at0013 = ╱73╱s╱ // 0xc64 @0x13
0x0c51…0c86 at0014 = ╱74╱t╱ // 0xc65 @0x14
0x0c51…0c86 at0015 = ╱65╱e╱ // 0xc66 @0x15
0x0c51…0c86 at0016 = ╱72╱r╱ // 0xc67 @0x16
0x0c51…0c86 at0017 = ╱69╱i╱ // 0xc68 @0x17
0x0c51…0c86 at0018 = ╱6e╱n╱ // 0xc69 @0x18
0x0c51…0c86 at0019 = ╱67╱g╱ // 0xc6a @0x19
0x0c51…0c86 at001a = ╱65╱e╱ // 0xc6b @0x1a
0x0c51…0c86 at001b = ╱72╱r╱ // 0xc6c @0x1b
0x0c51…0c86 at001c = ╱20╱…╱ // 0xc6d @0x1c
0x0c51…0c86 at001d = ╱20╱…╱ // 0xc6e @0x1d
0x0c51…0c86 at001e = ╱20╱…╱ // 0xc6f @0x1e
0x0c51…0c86 at001f = ╱20╱…╱ // 0xc70 @0x1f
0x0c51…0c86 at0020 = ╱20╱…╱ // 0xc71 @0x20
0x0c51…0c86 at0021 = ╱20╱…╱ // 0xc72 @0x21
0x0c51…0c86 at0022 = ╱20╱…╱ // 0xc73 @0x22
0x0c51…0c86 at0023 = ╱20╱…╱ // 0xc74 @0x23
0x0c51…0c86 at0024 = ╱20╱…╱ // 0xc75 @0x24
0x0c51…0c86 at0025 = ╱20╱…╱ // 0xc76 @0x25
0x0c51…0c86 at0026 = ╱20╱…╱ // 0xc77 @0x26
0x0c51…0c86 at0027 = ╱20╱…╱ // 0xc78 @0x27
0x0c51…0c86 at0028 = ╱20╱…╱ // 0xc79 @0x28
0x0c51…0c86 at0029 = ╱20╱…╱ // 0xc7a @0x29
0x0c51…0c86 at002a = ╱20╱…╱ // 0xc7b @0x2a
0x0c51…0c86 at002b = ╱20╱…╱ // 0xc7c @0x2b
0x0c51…0c86 at002c = ╱20╱…╱ // 0xc7d @0x2c
0x0c51…0c86 at002d = ╱20╱…╱ // 0xc7e @0x2d
0x0c51…0c86 at002e = ╱20╱…╱ // 0xc7f @0x2e
0x0c51…0c86 at002f = ╱20╱…╱ // 0xc80 @0x2f
0x0c51…0c86 at0030 = ╱20╱…╱ // 0xc81 @0x30
0x0c51…0c86 at0031 = ╱52╱R╱ // 0xc82 @0x31
0x0c51…0c86 at0032 = ╱50╱P╱ // 0xc83 @0x32
0x0c51…0c86 at0033 = ╱22╱"╱ // 0xc84 @0x33
0x0c51…0c86 at0034 = EOL // 0xc85 @0x34
0x0c51…0c86 }
0x0c86…0cbb a2a9 01090 PRINT "<C2015>Bogf|r…posteringer………………………………………………BP"
0x0c86…0cbb LineComal80 {
0x0c86…0cbb ptr = 0xa2a9 // 0xc86 @0x0
0x0c86…0cbb lno = 0x0442 // 0xc88 @0x2
0x0c86…0cbb at0004 = ╱92╱ PRINT ╱ // 0xc8a @0x4
0x0c86…0cbb at0005 = ╱22╱"╱ // 0xc8b @0x5
0x0c86…0cbb at0006 = ╱3c╱<╱ // 0xc8c @0x6
0x0c86…0cbb at0007 = ╱43╱C╱ // 0xc8d @0x7
0x0c86…0cbb at0008 = ╱32╱2╱ // 0xc8e @0x8
0x0c86…0cbb at0009 = ╱30╱0╱ // 0xc8f @0x9
0x0c86…0cbb at000a = ╱31╱1╱ // 0xc90 @0xa
0x0c86…0cbb at000b = ╱35╱5╱ // 0xc91 @0xb
0x0c86…0cbb at000c = ╱3e╱>╱ // 0xc92 @0xc
0x0c86…0cbb at000d = ╱42╱B╱ // 0xc93 @0xd
0x0c86…0cbb at000e = ╱6f╱o╱ // 0xc94 @0xe
0x0c86…0cbb at000f = ╱67╱g╱ // 0xc95 @0xf
0x0c86…0cbb at0010 = ╱66╱f╱ // 0xc96 @0x10
0x0c86…0cbb at0011 = ╱7c╱|╱ // 0xc97 @0x11
0x0c86…0cbb at0012 = ╱72╱r╱ // 0xc98 @0x12
0x0c86…0cbb at0013 = ╱20╱…╱ // 0xc99 @0x13
0x0c86…0cbb at0014 = ╱70╱p╱ // 0xc9a @0x14
0x0c86…0cbb at0015 = ╱6f╱o╱ // 0xc9b @0x15
0x0c86…0cbb at0016 = ╱73╱s╱ // 0xc9c @0x16
0x0c86…0cbb at0017 = ╱74╱t╱ // 0xc9d @0x17
0x0c86…0cbb at0018 = ╱65╱e╱ // 0xc9e @0x18
0x0c86…0cbb at0019 = ╱72╱r╱ // 0xc9f @0x19
0x0c86…0cbb at001a = ╱69╱i╱ // 0xca0 @0x1a
0x0c86…0cbb at001b = ╱6e╱n╱ // 0xca1 @0x1b
0x0c86…0cbb at001c = ╱67╱g╱ // 0xca2 @0x1c
0x0c86…0cbb at001d = ╱65╱e╱ // 0xca3 @0x1d
0x0c86…0cbb at001e = ╱72╱r╱ // 0xca4 @0x1e
0x0c86…0cbb at001f = ╱20╱…╱ // 0xca5 @0x1f
0x0c86…0cbb at0020 = ╱20╱…╱ // 0xca6 @0x20
0x0c86…0cbb at0021 = ╱20╱…╱ // 0xca7 @0x21
0x0c86…0cbb at0022 = ╱20╱…╱ // 0xca8 @0x22
0x0c86…0cbb at0023 = ╱20╱…╱ // 0xca9 @0x23
0x0c86…0cbb at0024 = ╱20╱…╱ // 0xcaa @0x24
0x0c86…0cbb at0025 = ╱20╱…╱ // 0xcab @0x25
0x0c86…0cbb at0026 = ╱20╱…╱ // 0xcac @0x26
0x0c86…0cbb at0027 = ╱20╱…╱ // 0xcad @0x27
0x0c86…0cbb at0028 = ╱20╱…╱ // 0xcae @0x28
0x0c86…0cbb at0029 = ╱20╱…╱ // 0xcaf @0x29
0x0c86…0cbb at002a = ╱20╱…╱ // 0xcb0 @0x2a
0x0c86…0cbb at002b = ╱20╱…╱ // 0xcb1 @0x2b
0x0c86…0cbb at002c = ╱20╱…╱ // 0xcb2 @0x2c
0x0c86…0cbb at002d = ╱20╱…╱ // 0xcb3 @0x2d
0x0c86…0cbb at002e = ╱20╱…╱ // 0xcb4 @0x2e
0x0c86…0cbb at002f = ╱20╱…╱ // 0xcb5 @0x2f
0x0c86…0cbb at0030 = ╱20╱…╱ // 0xcb6 @0x30
0x0c86…0cbb at0031 = ╱42╱B╱ // 0xcb7 @0x31
0x0c86…0cbb at0032 = ╱50╱P╱ // 0xcb8 @0x32
0x0c86…0cbb at0033 = ╱22╱"╱ // 0xcb9 @0x33
0x0c86…0cbb at0034 = EOL // 0xcba @0x34
0x0c86…0cbb }
0x0cbb…0cf2 a2e0 01100 PRINT "<C2018>Programfordeler…………………………………………………RETURN"
0x0cbb…0cf2 LineComal80 {
0x0cbb…0cf2 ptr = 0xa2e0 // 0xcbb @0x0
0x0cbb…0cf2 lno = 0x044c // 0xcbd @0x2
0x0cbb…0cf2 at0004 = ╱92╱ PRINT ╱ // 0xcbf @0x4
0x0cbb…0cf2 at0005 = ╱22╱"╱ // 0xcc0 @0x5
0x0cbb…0cf2 at0006 = ╱3c╱<╱ // 0xcc1 @0x6
0x0cbb…0cf2 at0007 = ╱43╱C╱ // 0xcc2 @0x7
0x0cbb…0cf2 at0008 = ╱32╱2╱ // 0xcc3 @0x8
0x0cbb…0cf2 at0009 = ╱30╱0╱ // 0xcc4 @0x9
0x0cbb…0cf2 at000a = ╱31╱1╱ // 0xcc5 @0xa
0x0cbb…0cf2 at000b = ╱38╱8╱ // 0xcc6 @0xb
0x0cbb…0cf2 at000c = ╱3e╱>╱ // 0xcc7 @0xc
0x0cbb…0cf2 at000d = ╱50╱P╱ // 0xcc8 @0xd
0x0cbb…0cf2 at000e = ╱72╱r╱ // 0xcc9 @0xe
0x0cbb…0cf2 at000f = ╱6f╱o╱ // 0xcca @0xf
0x0cbb…0cf2 at0010 = ╱67╱g╱ // 0xccb @0x10
0x0cbb…0cf2 at0011 = ╱72╱r╱ // 0xccc @0x11
0x0cbb…0cf2 at0012 = ╱61╱a╱ // 0xccd @0x12
0x0cbb…0cf2 at0013 = ╱6d╱m╱ // 0xcce @0x13
0x0cbb…0cf2 at0014 = ╱66╱f╱ // 0xccf @0x14
0x0cbb…0cf2 at0015 = ╱6f╱o╱ // 0xcd0 @0x15
0x0cbb…0cf2 at0016 = ╱72╱r╱ // 0xcd1 @0x16
0x0cbb…0cf2 at0017 = ╱64╱d╱ // 0xcd2 @0x17
0x0cbb…0cf2 at0018 = ╱65╱e╱ // 0xcd3 @0x18
0x0cbb…0cf2 at0019 = ╱6c╱l╱ // 0xcd4 @0x19
0x0cbb…0cf2 at001a = ╱65╱e╱ // 0xcd5 @0x1a
0x0cbb…0cf2 at001b = ╱72╱r╱ // 0xcd6 @0x1b
0x0cbb…0cf2 at001c = ╱20╱…╱ // 0xcd7 @0x1c
0x0cbb…0cf2 at001d = ╱20╱…╱ // 0xcd8 @0x1d
0x0cbb…0cf2 at001e = ╱20╱…╱ // 0xcd9 @0x1e
0x0cbb…0cf2 at001f = ╱20╱…╱ // 0xcda @0x1f
0x0cbb…0cf2 at0020 = ╱20╱…╱ // 0xcdb @0x20
0x0cbb…0cf2 at0021 = ╱20╱…╱ // 0xcdc @0x21
0x0cbb…0cf2 at0022 = ╱20╱…╱ // 0xcdd @0x22
0x0cbb…0cf2 at0023 = ╱20╱…╱ // 0xcde @0x23
0x0cbb…0cf2 at0024 = ╱20╱…╱ // 0xcdf @0x24
0x0cbb…0cf2 at0025 = ╱20╱…╱ // 0xce0 @0x25
0x0cbb…0cf2 at0026 = ╱20╱…╱ // 0xce1 @0x26
0x0cbb…0cf2 at0027 = ╱20╱…╱ // 0xce2 @0x27
0x0cbb…0cf2 at0028 = ╱20╱…╱ // 0xce3 @0x28
0x0cbb…0cf2 at0029 = ╱20╱…╱ // 0xce4 @0x29
0x0cbb…0cf2 at002a = ╱20╱…╱ // 0xce5 @0x2a
0x0cbb…0cf2 at002b = ╱20╱…╱ // 0xce6 @0x2b
0x0cbb…0cf2 at002c = ╱20╱…╱ // 0xce7 @0x2c
0x0cbb…0cf2 at002d = ╱20╱…╱ // 0xce8 @0x2d
0x0cbb…0cf2 at002e = ╱20╱…╱ // 0xce9 @0x2e
0x0cbb…0cf2 at002f = ╱52╱R╱ // 0xcea @0x2f
0x0cbb…0cf2 at0030 = ╱45╱E╱ // 0xceb @0x30
0x0cbb…0cf2 at0031 = ╱54╱T╱ // 0xcec @0x31
0x0cbb…0cf2 at0032 = ╱55╱U╱ // 0xced @0x32
0x0cbb…0cf2 at0033 = ╱52╱R╱ // 0xcee @0x33
0x0cbb…0cf2 at0034 = ╱4e╱N╱ // 0xcef @0x34
0x0cbb…0cf2 at0035 = ╱22╱"╱ // 0xcf0 @0x35
0x0cbb…0cf2 at0036 = EOL // 0xcf1 @0x36
0x0cbb…0cf2 }
0x0cf2…0d02 a2f0 01110 LET SVAR $ := "……"
0x0cf2…0d02 LineComal80 {
0x0cf2…0d02 ptr = 0xa2f0 // 0xcf2 @0x0
0x0cf2…0d02 lno = 0x0456 // 0xcf4 @0x2
0x0cf2…0d02 at0004 = ╱86╱ LET ╱ // 0xcf6 @0x4
0x0cf2…0d02 at0005 = ╱53╱S╱ // 0xcf7 @0x5
0x0cf2…0d02 at0006 = ╱56╱V╱ // 0xcf8 @0x6
0x0cf2…0d02 at0007 = ╱41╱A╱ // 0xcf9 @0x7
0x0cf2…0d02 at0008 = ╱52╱R╱ // 0xcfa @0x8
0x0cf2…0d02 at0009 = ╱ef╱ $ ╱ // 0xcfb @0x9
0x0cf2…0d02 at000a = ╱f0╱ := ╱ // 0xcfc @0xa
0x0cf2…0d02 at000b = ╱22╱"╱ // 0xcfd @0xb
0x0cf2…0d02 at000c = ╱20╱…╱ // 0xcfe @0xc
0x0cf2…0d02 at000d = ╱20╱…╱ // 0xcff @0xd
0x0cf2…0d02 at000e = ╱22╱"╱ // 0xd00 @0xe
0x0cf2…0d02 at000f = EOL // 0xd01 @0xf
0x0cf2…0d02 }
0x0d02…0d09 a2f7 01120 REPEAT
0x0d02…0d09 LineComal80 {
0x0d02…0d09 ptr = 0xa2f7 // 0xd02 @0x0
0x0d02…0d09 lno = 0x0460 // 0xd04 @0x2
0x0d02…0d09 at0004 = ╱9705╱ REPEAT ╱ // 0xd06 @0x4
0x0d02…0d09 at0006 = EOL // 0xd08 @0x6
0x0d02…0d09 }
0x0d09…0d40 a32e 01130 EDIT "<C2523>Indtast…funktionskode:…" : SVAR $ ( 1 : 2 )
0x0d09…0d40 LineComal80 {
0x0d09…0d40 ptr = 0xa32e // 0xd09 @0x0
0x0d09…0d40 lno = 0x046a // 0xd0b @0x2
0x0d09…0d40 at0004 = ╱b1╱ EDIT ╱ // 0xd0d @0x4
0x0d09…0d40 at0005 = ╱22╱"╱ // 0xd0e @0x5
0x0d09…0d40 at0006 = ╱3c╱<╱ // 0xd0f @0x6
0x0d09…0d40 at0007 = ╱43╱C╱ // 0xd10 @0x7
0x0d09…0d40 at0008 = ╱32╱2╱ // 0xd11 @0x8
0x0d09…0d40 at0009 = ╱35╱5╱ // 0xd12 @0x9
0x0d09…0d40 at000a = ╱32╱2╱ // 0xd13 @0xa
0x0d09…0d40 at000b = ╱33╱3╱ // 0xd14 @0xb
0x0d09…0d40 at000c = ╱3e╱>╱ // 0xd15 @0xc
0x0d09…0d40 at000d = ╱49╱I╱ // 0xd16 @0xd
0x0d09…0d40 at000e = ╱6e╱n╱ // 0xd17 @0xe
0x0d09…0d40 at000f = ╱64╱d╱ // 0xd18 @0xf
0x0d09…0d40 at0010 = ╱74╱t╱ // 0xd19 @0x10
0x0d09…0d40 at0011 = ╱61╱a╱ // 0xd1a @0x11
0x0d09…0d40 at0012 = ╱73╱s╱ // 0xd1b @0x12
0x0d09…0d40 at0013 = ╱74╱t╱ // 0xd1c @0x13
0x0d09…0d40 at0014 = ╱20╱…╱ // 0xd1d @0x14
0x0d09…0d40 at0015 = ╱66╱f╱ // 0xd1e @0x15
0x0d09…0d40 at0016 = ╱75╱u╱ // 0xd1f @0x16
0x0d09…0d40 at0017 = ╱6e╱n╱ // 0xd20 @0x17
0x0d09…0d40 at0018 = ╱6b╱k╱ // 0xd21 @0x18
0x0d09…0d40 at0019 = ╱74╱t╱ // 0xd22 @0x19
0x0d09…0d40 at001a = ╱69╱i╱ // 0xd23 @0x1a
0x0d09…0d40 at001b = ╱6f╱o╱ // 0xd24 @0x1b
0x0d09…0d40 at001c = ╱6e╱n╱ // 0xd25 @0x1c
0x0d09…0d40 at001d = ╱73╱s╱ // 0xd26 @0x1d
0x0d09…0d40 at001e = ╱6b╱k╱ // 0xd27 @0x1e
0x0d09…0d40 at001f = ╱6f╱o╱ // 0xd28 @0x1f
0x0d09…0d40 at0020 = ╱64╱d╱ // 0xd29 @0x20
0x0d09…0d40 at0021 = ╱65╱e╱ // 0xd2a @0x21
0x0d09…0d40 at0022 = ╱3a╱:╱ // 0xd2b @0x22
0x0d09…0d40 at0023 = ╱20╱…╱ // 0xd2c @0x23
0x0d09…0d40 at0024 = ╱22╱"╱ // 0xd2d @0x24
0x0d09…0d40 at0025 = ╱f1╱ : ╱ // 0xd2e @0x25
0x0d09…0d40 at0026 = ╱53╱S╱ // 0xd2f @0x26
0x0d09…0d40 at0027 = ╱56╱V╱ // 0xd30 @0x27
0x0d09…0d40 at0028 = ╱41╱A╱ // 0xd31 @0x28
0x0d09…0d40 at0029 = ╱52╱R╱ // 0xd32 @0x29
0x0d09…0d40 at002a = ╱ef╱ $ ╱ // 0xd33 @0x2a
0x0d09…0d40 at002b = ╱ed╱ ( ╱ // 0xd34 @0x2b
0x0d09…0d40 at002c = ╱31╱1╱ // 0xd35 @0x2c
0x0d09…0d40 at002d = ╱f20100╱ // 0xd36 @0x2d
0x0d09…0d40 at0030 = ╱f1╱ : ╱ // 0xd39 @0x30
0x0d09…0d40 at0031 = ╱32╱2╱ // 0xd3a @0x31
0x0d09…0d40 at0032 = ╱f20200╱ // 0xd3b @0x32
0x0d09…0d40 at0035 = ╱ee╱ ) ╱ // 0xd3e @0x35
0x0d09…0d40 at0036 = EOL // 0xd3f @0x36
0x0d09…0d40 }
0x0d40…0d52 a340 01140 EXEC SL_FEJLLINIE
0x0d40…0d52 LineComal80 {
0x0d40…0d52 ptr = 0xa340 // 0xd40 @0x0
0x0d40…0d52 lno = 0x0474 // 0xd42 @0x2
0x0d40…0d52 at0004 = ╱9d╱ EXEC ╱ // 0xd44 @0x4
0x0d40…0d52 at0005 = ╱53╱S╱ // 0xd45 @0x5
0x0d40…0d52 at0006 = ╱4c╱L╱ // 0xd46 @0x6
0x0d40…0d52 at0007 = ╱5f╱_╱ // 0xd47 @0x7
0x0d40…0d52 at0008 = ╱46╱F╱ // 0xd48 @0x8
0x0d40…0d52 at0009 = ╱45╱E╱ // 0xd49 @0x9
0x0d40…0d52 at000a = ╱4a╱J╱ // 0xd4a @0xa
0x0d40…0d52 at000b = ╱4c╱L╱ // 0xd4b @0xb
0x0d40…0d52 at000c = ╱4c╱L╱ // 0xd4c @0xc
0x0d40…0d52 at000d = ╱49╱I╱ // 0xd4d @0xd
0x0d40…0d52 at000e = ╱4e╱N╱ // 0xd4e @0xe
0x0d40…0d52 at000f = ╱49╱I╱ // 0xd4f @0xf
0x0d40…0d52 at0010 = ╱45╱E╱ // 0xd50 @0x10
0x0d40…0d52 at0011 = EOL // 0xd51 @0x11
0x0d40…0d52 }
0x0d52…0d65 a353 01150 IF SVAR $ IN "……" THEN EXIT
0x0d52…0d65 LineComal80 {
0x0d52…0d65 ptr = 0xa353 // 0xd52 @0x0
0x0d52…0d65 lno = 0x047e // 0xd54 @0x2
0x0d52…0d65 at0004 = ╱8200╱ IF ╱ // 0xd56 @0x4
0x0d52…0d65 at0006 = ╱53╱S╱ // 0xd58 @0x6
0x0d52…0d65 at0007 = ╱56╱V╱ // 0xd59 @0x7
0x0d52…0d65 at0008 = ╱41╱A╱ // 0xd5a @0x8
0x0d52…0d65 at0009 = ╱52╱R╱ // 0xd5b @0x9
0x0d52…0d65 at000a = ╱ef╱ $ ╱ // 0xd5c @0xa
0x0d52…0d65 at000b = ╱dc╱ IN ╱ // 0xd5d @0xb
0x0d52…0d65 at000c = ╱22╱"╱ // 0xd5e @0xc
0x0d52…0d65 at000d = ╱20╱…╱ // 0xd5f @0xd
0x0d52…0d65 at000e = ╱20╱…╱ // 0xd60 @0xe
0x0d52…0d65 at000f = ╱22╱"╱ // 0xd61 @0xf
0x0d52…0d65 at0010 = ╱b5╱ THEN ╱ // 0xd62 @0x10
0x0d52…0d65 at0011 = ╱99╱ EXIT ╱ // 0xd63 @0x11
0x0d52…0d65 at0012 = EOL // 0xd64 @0x12
0x0d52…0d65 }
0x0d65…0da2 a390 01160 IF "/" + SVAR $ ( 1 : 2 ) + "/" IN "/IP/ip/UK/uk/RP/rp/BP/bp/" THEN
0x0d65…0da2 LineComal80 {
0x0d65…0da2 ptr = 0xa390 // 0xd65 @0x0
0x0d65…0da2 lno = 0x0488 // 0xd67 @0x2
0x0d65…0da2 at0004 = ╱9b06d7╱ IF ╱ // 0xd69 @0x4
0x0d65…0da2 at0007 = ╱22╱"╱ // 0xd6c @0x7
0x0d65…0da2 at0008 = ╱2f╱/╱ // 0xd6d @0x8
0x0d65…0da2 at0009 = ╱22╱"╱ // 0xd6e @0x9
0x0d65…0da2 at000a = ╱eb╱ + ╱ // 0xd6f @0xa
0x0d65…0da2 at000b = ╱53╱S╱ // 0xd70 @0xb
0x0d65…0da2 at000c = ╱56╱V╱ // 0xd71 @0xc
0x0d65…0da2 at000d = ╱41╱A╱ // 0xd72 @0xd
0x0d65…0da2 at000e = ╱52╱R╱ // 0xd73 @0xe
0x0d65…0da2 at000f = ╱ef╱ $ ╱ // 0xd74 @0xf
0x0d65…0da2 at0010 = ╱ed╱ ( ╱ // 0xd75 @0x10
0x0d65…0da2 at0011 = ╱31╱1╱ // 0xd76 @0x11
0x0d65…0da2 at0012 = ╱f20100╱ // 0xd77 @0x12
0x0d65…0da2 at0015 = ╱f1╱ : ╱ // 0xd7a @0x15
0x0d65…0da2 at0016 = ╱32╱2╱ // 0xd7b @0x16
0x0d65…0da2 at0017 = ╱f20200╱ // 0xd7c @0x17
0x0d65…0da2 at001a = ╱ee╱ ) ╱ // 0xd7f @0x1a
0x0d65…0da2 at001b = ╱eb╱ + ╱ // 0xd80 @0x1b
0x0d65…0da2 at001c = ╱22╱"╱ // 0xd81 @0x1c
0x0d65…0da2 at001d = ╱2f╱/╱ // 0xd82 @0x1d
0x0d65…0da2 at001e = ╱22╱"╱ // 0xd83 @0x1e
0x0d65…0da2 at001f = ╱dc╱ IN ╱ // 0xd84 @0x1f
0x0d65…0da2 at0020 = ╱22╱"╱ // 0xd85 @0x20
0x0d65…0da2 at0021 = ╱2f╱/╱ // 0xd86 @0x21
0x0d65…0da2 at0022 = ╱49╱I╱ // 0xd87 @0x22
0x0d65…0da2 at0023 = ╱50╱P╱ // 0xd88 @0x23
0x0d65…0da2 at0024 = ╱2f╱/╱ // 0xd89 @0x24
0x0d65…0da2 at0025 = ╱69╱i╱ // 0xd8a @0x25
0x0d65…0da2 at0026 = ╱70╱p╱ // 0xd8b @0x26
0x0d65…0da2 at0027 = ╱2f╱/╱ // 0xd8c @0x27
0x0d65…0da2 at0028 = ╱55╱U╱ // 0xd8d @0x28
0x0d65…0da2 at0029 = ╱4b╱K╱ // 0xd8e @0x29
0x0d65…0da2 at002a = ╱2f╱/╱ // 0xd8f @0x2a
0x0d65…0da2 at002b = ╱75╱u╱ // 0xd90 @0x2b
0x0d65…0da2 at002c = ╱6b╱k╱ // 0xd91 @0x2c
0x0d65…0da2 at002d = ╱2f╱/╱ // 0xd92 @0x2d
0x0d65…0da2 at002e = ╱52╱R╱ // 0xd93 @0x2e
0x0d65…0da2 at002f = ╱50╱P╱ // 0xd94 @0x2f
0x0d65…0da2 at0030 = ╱2f╱/╱ // 0xd95 @0x30
0x0d65…0da2 at0031 = ╱72╱r╱ // 0xd96 @0x31
0x0d65…0da2 at0032 = ╱70╱p╱ // 0xd97 @0x32
0x0d65…0da2 at0033 = ╱2f╱/╱ // 0xd98 @0x33
0x0d65…0da2 at0034 = ╱42╱B╱ // 0xd99 @0x34
0x0d65…0da2 at0035 = ╱50╱P╱ // 0xd9a @0x35
0x0d65…0da2 at0036 = ╱2f╱/╱ // 0xd9b @0x36
0x0d65…0da2 at0037 = ╱62╱b╱ // 0xd9c @0x37
0x0d65…0da2 at0038 = ╱70╱p╱ // 0xd9d @0x38
0x0d65…0da2 at0039 = ╱2f╱/╱ // 0xd9e @0x39
0x0d65…0da2 at003a = ╱22╱"╱ // 0xd9f @0x3a
0x0d65…0da2 at003b = ╱b5╱ THEN ╱ // 0xda0 @0x3b
0x0d65…0da2 at003c = EOL // 0xda1 @0x3c
0x0d65…0da2 }
0x0da2…0ddd a3cb 01170 EXEC FEJL ( "Ulovlig…funktionskode:…'" + SVAR $ ( 1 : 2 ) + "'" )
0x0da2…0ddd LineComal80 {
0x0da2…0ddd ptr = 0xa3cb // 0xda2 @0x0
0x0da2…0ddd lno = 0x0492 // 0xda4 @0x2
0x0da2…0ddd at0004 = ╱9d╱ EXEC ╱ // 0xda6 @0x4
0x0da2…0ddd at0005 = ╱46╱F╱ // 0xda7 @0x5
0x0da2…0ddd at0006 = ╱45╱E╱ // 0xda8 @0x6
0x0da2…0ddd at0007 = ╱4a╱J╱ // 0xda9 @0x7
0x0da2…0ddd at0008 = ╱4c╱L╱ // 0xdaa @0x8
0x0da2…0ddd at0009 = ╱ed╱ ( ╱ // 0xdab @0x9
0x0da2…0ddd at000a = ╱22╱"╱ // 0xdac @0xa
0x0da2…0ddd at000b = ╱55╱U╱ // 0xdad @0xb
0x0da2…0ddd at000c = ╱6c╱l╱ // 0xdae @0xc
0x0da2…0ddd at000d = ╱6f╱o╱ // 0xdaf @0xd
0x0da2…0ddd at000e = ╱76╱v╱ // 0xdb0 @0xe
0x0da2…0ddd at000f = ╱6c╱l╱ // 0xdb1 @0xf
0x0da2…0ddd at0010 = ╱69╱i╱ // 0xdb2 @0x10
0x0da2…0ddd at0011 = ╱67╱g╱ // 0xdb3 @0x11
0x0da2…0ddd at0012 = ╱20╱…╱ // 0xdb4 @0x12
0x0da2…0ddd at0013 = ╱66╱f╱ // 0xdb5 @0x13
0x0da2…0ddd at0014 = ╱75╱u╱ // 0xdb6 @0x14
0x0da2…0ddd at0015 = ╱6e╱n╱ // 0xdb7 @0x15
0x0da2…0ddd at0016 = ╱6b╱k╱ // 0xdb8 @0x16
0x0da2…0ddd at0017 = ╱74╱t╱ // 0xdb9 @0x17
0x0da2…0ddd at0018 = ╱69╱i╱ // 0xdba @0x18
0x0da2…0ddd at0019 = ╱6f╱o╱ // 0xdbb @0x19
0x0da2…0ddd at001a = ╱6e╱n╱ // 0xdbc @0x1a
0x0da2…0ddd at001b = ╱73╱s╱ // 0xdbd @0x1b
0x0da2…0ddd at001c = ╱6b╱k╱ // 0xdbe @0x1c
0x0da2…0ddd at001d = ╱6f╱o╱ // 0xdbf @0x1d
0x0da2…0ddd at001e = ╱64╱d╱ // 0xdc0 @0x1e
0x0da2…0ddd at001f = ╱65╱e╱ // 0xdc1 @0x1f
0x0da2…0ddd at0020 = ╱3a╱:╱ // 0xdc2 @0x20
0x0da2…0ddd at0021 = ╱20╱…╱ // 0xdc3 @0x21
0x0da2…0ddd at0022 = ╱27╱'╱ // 0xdc4 @0x22
0x0da2…0ddd at0023 = ╱22╱"╱ // 0xdc5 @0x23
0x0da2…0ddd at0024 = ╱eb╱ + ╱ // 0xdc6 @0x24
0x0da2…0ddd at0025 = ╱53╱S╱ // 0xdc7 @0x25
0x0da2…0ddd at0026 = ╱56╱V╱ // 0xdc8 @0x26
0x0da2…0ddd at0027 = ╱41╱A╱ // 0xdc9 @0x27
0x0da2…0ddd at0028 = ╱52╱R╱ // 0xdca @0x28
0x0da2…0ddd at0029 = ╱ef╱ $ ╱ // 0xdcb @0x29
0x0da2…0ddd at002a = ╱ed╱ ( ╱ // 0xdcc @0x2a
0x0da2…0ddd at002b = ╱31╱1╱ // 0xdcd @0x2b
0x0da2…0ddd at002c = ╱f20100╱ // 0xdce @0x2c
0x0da2…0ddd at002f = ╱f1╱ : ╱ // 0xdd1 @0x2f
0x0da2…0ddd at0030 = ╱32╱2╱ // 0xdd2 @0x30
0x0da2…0ddd at0031 = ╱f20200╱ // 0xdd3 @0x31
0x0da2…0ddd at0034 = ╱ee╱ ) ╱ // 0xdd6 @0x34
0x0da2…0ddd at0035 = ╱eb╱ + ╱ // 0xdd7 @0x35
0x0da2…0ddd at0036 = ╱22╱"╱ // 0xdd8 @0x36
0x0da2…0ddd at0037 = ╱27╱'╱ // 0xdd9 @0x37
0x0da2…0ddd at0038 = ╱22╱"╱ // 0xdda @0x38
0x0da2…0ddd at0039 = ╱ee╱ ) ╱ // 0xddb @0x39
0x0da2…0ddd at003a = EOL // 0xddc @0x3a
0x0da2…0ddd }
0x0ddd…0de3 a3d1 01180 ENDIF
0x0ddd…0de3 LineComal80 {
0x0ddd…0de3 ptr = 0xa3d1 // 0xddd @0x0
0x0ddd…0de3 lno = 0x049c // 0xddf @0x2
0x0ddd…0de3 at0004 = ╱9c╱ ENDIF ╱ // 0xde1 @0x4
0x0ddd…0de3 at0005 = EOL // 0xde2 @0x5
0x0ddd…0de3 }
0x0de3…0deb a3d9 01190 UNTIL OK
0x0de3…0deb LineComal80 {
0x0de3…0deb ptr = 0xa3d9 // 0xde3 @0x0
0x0de3…0deb lno = 0x04a6 // 0xde5 @0x2
0x0de3…0deb at0004 = ╱98╱ UNTIL ╱ // 0xde7 @0x4
0x0de3…0deb at0005 = ╱4f╱O╱ // 0xde8 @0x5
0x0de3…0deb at0006 = ╱4b╱K╱ // 0xde9 @0x6
0x0de3…0deb at0007 = EOL // 0xdea @0x7
0x0de3…0deb }
0x0deb…0e30 a41e 01200 GET DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
0x0deb…0e30 LineComal80 {
0x0deb…0e30 ptr = 0xa41e // 0xdeb @0x0
0x0deb…0e30 lno = 0x04b0 // 0xded @0x2
0x0deb…0e30 at0004 = ╱a9╱ GET ╱ // 0xdef @0x4
0x0deb…0e30 at0005 = ╱44╱D╱ // 0xdf0 @0x5
0x0deb…0e30 at0006 = ╱47╱G╱ // 0xdf1 @0x6
0x0deb…0e30 at0007 = ╱5f╱_╱ // 0xdf2 @0x7
0x0deb…0e30 at0008 = ╱50╱P╱ // 0xdf3 @0x8
0x0deb…0e30 at0009 = ╱4f╱O╱ // 0xdf4 @0x9
0x0deb…0e30 at000a = ╱53╱S╱ // 0xdf5 @0xa
0x0deb…0e30 at000b = ╱ef╱ $ ╱ // 0xdf6 @0xb
0x0deb…0e30 at000c = ╱ec╱ , ╱ // 0xdf7 @0xc
0x0deb…0e30 at000d = ╱31╱1╱ // 0xdf8 @0xd
0x0deb…0e30 at000e = ╱f20100╱ // 0xdf9 @0xe
0x0deb…0e30 at0011 = ╱f1╱ : ╱ // 0xdfc @0x11
0x0deb…0e30 at0012 = ╱50╱P╱ // 0xdfd @0x12
0x0deb…0e30 at0013 = ╱5f╱_╱ // 0xdfe @0x13
0x0deb…0e30 at0014 = ╱48╱H╱ // 0xdff @0x14
0x0deb…0e30 at0015 = ╱5c╱\╱ // 0xe00 @0x15
0x0deb…0e30 at0016 = ╱4a╱J╱ // 0xe01 @0x16
0x0deb…0e30 at0017 = ╱52╱R╱ // 0xe02 @0x17
0x0deb…0e30 at0018 = ╱45╱E╱ // 0xe03 @0x18
0x0deb…0e30 at0019 = ╱43╱C╱ // 0xe04 @0x19
0x0deb…0e30 at001a = ╱ec╱ , ╱ // 0xe05 @0x1a
0x0deb…0e30 at001b = ╱50╱P╱ // 0xe06 @0x1b
0x0deb…0e30 at001c = ╱5f╱_╱ // 0xe07 @0x1c
0x0deb…0e30 at001d = ╱4d╱M╱ // 0xe08 @0x1d
0x0deb…0e30 at001e = ╱41╱A╱ // 0xe09 @0x1e
0x0deb…0e30 at001f = ╱58╱X╱ // 0xe0a @0x1f
0x0deb…0e30 at0020 = ╱52╱R╱ // 0xe0b @0x20
0x0deb…0e30 at0021 = ╱45╱E╱ // 0xe0c @0x21
0x0deb…0e30 at0022 = ╱43╱C╱ // 0xe0d @0x22
0x0deb…0e30 at0023 = ╱ec╱ , ╱ // 0xe0e @0x23
0x0deb…0e30 at0024 = ╱53╱S╱ // 0xe0f @0x24
0x0deb…0e30 at0025 = ╱5f╱_╱ // 0xe10 @0x25
0x0deb…0e30 at0026 = ╱4e╱N╱ // 0xe11 @0x26
0x0deb…0e30 at0027 = ╱52╱R╱ // 0xe12 @0x27
0x0deb…0e30 at0028 = ╱5f╱_╱ // 0xe13 @0x28
0x0deb…0e30 at0029 = ╱44╱D╱ // 0xe14 @0x29
0x0deb…0e30 at002a = ╱47╱G╱ // 0xe15 @0x2a
0x0deb…0e30 at002b = ╱5f╱_╱ // 0xe16 @0x2b
0x0deb…0e30 at002c = ╱50╱P╱ // 0xe17 @0x2c
0x0deb…0e30 at002d = ╱4f╱O╱ // 0xe18 @0x2d
0x0deb…0e30 at002e = ╱53╱S╱ // 0xe19 @0x2e
0x0deb…0e30 at002f = ╱ec╱ , ╱ // 0xe1a @0x2f
0x0deb…0e30 at0030 = ╱50╱P╱ // 0xe1b @0x30
0x0deb…0e30 at0031 = ╱5f╱_╱ // 0xe1c @0x31
0x0deb…0e30 at0032 = ╱44╱D╱ // 0xe1d @0x32
0x0deb…0e30 at0033 = ╱45╱E╱ // 0xe1e @0x33
0x0deb…0e30 at0034 = ╱42╱B╱ // 0xe1f @0x34
0x0deb…0e30 at0035 = ╱ec╱ , ╱ // 0xe20 @0x35
0x0deb…0e30 at0036 = ╱50╱P╱ // 0xe21 @0x36
0x0deb…0e30 at0037 = ╱5f╱_╱ // 0xe22 @0x37
0x0deb…0e30 at0038 = ╱4b╱K╱ // 0xe23 @0x38
0x0deb…0e30 at0039 = ╱52╱R╱ // 0xe24 @0x39
0x0deb…0e30 at003a = ╱45╱E╱ // 0xe25 @0x3a
0x0deb…0e30 at003b = ╱44╱D╱ // 0xe26 @0x3b
0x0deb…0e30 at003c = ╱ec╱ , ╱ // 0xe27 @0x3c
0x0deb…0e30 at003d = ╱50╱P╱ // 0xe28 @0x3d
0x0deb…0e30 at003e = ╱5f╱_╱ // 0xe29 @0x3e
0x0deb…0e30 at003f = ╱42╱B╱ // 0xe2a @0x3f
0x0deb…0e30 at0040 = ╱44╱D╱ // 0xe2b @0x40
0x0deb…0e30 at0041 = ╱41╱A╱ // 0xe2c @0x41
0x0deb…0e30 at0042 = ╱54╱T╱ // 0xe2d @0x42
0x0deb…0e30 at0043 = ╱ef╱ $ ╱ // 0xe2e @0x43
0x0deb…0e30 at0044 = EOL // 0xe2f @0x44
0x0deb…0e30 }
0x0e30…0e49 a437 01210 CASE SVAR $ ( 1 : 2 ) OF
0x0e30…0e49 LineComal80 {
0x0e30…0e49 ptr = 0xa437 // 0xe30 @0x0
0x0e30…0e49 lno = 0x04ba // 0xe32 @0x2
0x0e30…0e49 at0004 = ╱a20700╱ CASE ╱ // 0xe34 @0x4
0x0e30…0e49 at0007 = ╱53╱S╱ // 0xe37 @0x7
0x0e30…0e49 at0008 = ╱56╱V╱ // 0xe38 @0x8
0x0e30…0e49 at0009 = ╱41╱A╱ // 0xe39 @0x9
0x0e30…0e49 at000a = ╱52╱R╱ // 0xe3a @0xa
0x0e30…0e49 at000b = ╱ef╱ $ ╱ // 0xe3b @0xb
0x0e30…0e49 at000c = ╱ed╱ ( ╱ // 0xe3c @0xc
0x0e30…0e49 at000d = ╱31╱1╱ // 0xe3d @0xd
0x0e30…0e49 at000e = ╱f20100╱ // 0xe3e @0xe
0x0e30…0e49 at0011 = ╱f1╱ : ╱ // 0xe41 @0x11
0x0e30…0e49 at0012 = ╱32╱2╱ // 0xe42 @0x12
0x0e30…0e49 at0013 = ╱f20200╱ // 0xe43 @0x13
0x0e30…0e49 at0016 = ╱ee╱ ) ╱ // 0xe46 @0x16
0x0e30…0e49 at0017 = ╱ba╱ OF ╱ // 0xe47 @0x17
0x0e30…0e49 at0018 = EOL // 0xe48 @0x18
0x0e30…0e49 }
0x0e49…0e5a a448 01220 WHILE "IP" , "ip"
0x0e49…0e5a LineComal80 {
0x0e49…0e5a ptr = 0xa448 // 0xe49 @0x0
0x0e49…0e5a lno = 0x04c4 // 0xe4b @0x2
0x0e49…0e5a at0004 = ╱a40800╱ WHILE ╱ // 0xe4d @0x4
0x0e49…0e5a at0007 = ╱22╱"╱ // 0xe50 @0x7
0x0e49…0e5a at0008 = ╱49╱I╱ // 0xe51 @0x8
0x0e49…0e5a at0009 = ╱50╱P╱ // 0xe52 @0x9
0x0e49…0e5a at000a = ╱22╱"╱ // 0xe53 @0xa
0x0e49…0e5a at000b = ╱ec╱ , ╱ // 0xe54 @0xb
0x0e49…0e5a at000c = ╱22╱"╱ // 0xe55 @0xc
0x0e49…0e5a at000d = ╱69╱i╱ // 0xe56 @0xd
0x0e49…0e5a at000e = ╱70╱p╱ // 0xe57 @0xe
0x0e49…0e5a at000f = ╱22╱"╱ // 0xe58 @0xf
0x0e49…0e5a at0010 = EOL // 0xe59 @0x10
0x0e49…0e5a }
0x0e5a…0e81 a46f 01230 IF _H\JREC > 1 AND P_BDAT $ >< SYST_DAT $ THEN
0x0e5a…0e81 LineComal80 {
0x0e5a…0e81 ptr = 0xa46f // 0xe5a @0x0
0x0e5a…0e81 lno = 0x04ce // 0xe5c @0x2
0x0e5a…0e81 at0004 = ╱9b0950╱ IF ╱ // 0xe5e @0x4
0x0e5a…0e81 at0007 = ╱5f╱_╱ // 0xe61 @0x7
0x0e5a…0e81 at0008 = ╱48╱H╱ // 0xe62 @0x8
0x0e5a…0e81 at0009 = ╱5c╱\╱ // 0xe63 @0x9
0x0e5a…0e81 at000a = ╱4a╱J╱ // 0xe64 @0xa
0x0e5a…0e81 at000b = ╱52╱R╱ // 0xe65 @0xb
0x0e5a…0e81 at000c = ╱45╱E╱ // 0xe66 @0xc
0x0e5a…0e81 at000d = ╱43╱C╱ // 0xe67 @0xd
0x0e5a…0e81 at000e = ╱e1╱ > ╱ // 0xe68 @0xe
0x0e5a…0e81 at000f = ╱31╱1╱ // 0xe69 @0xf
0x0e5a…0e81 at0010 = ╱f20100╱ // 0xe6a @0x10
0x0e5a…0e81 at0013 = ╱d9╱ AND ╱ // 0xe6d @0x13
0x0e5a…0e81 at0014 = ╱50╱P╱ // 0xe6e @0x14
0x0e5a…0e81 at0015 = ╱5f╱_╱ // 0xe6f @0x15
0x0e5a…0e81 at0016 = ╱42╱B╱ // 0xe70 @0x16
0x0e5a…0e81 at0017 = ╱44╱D╱ // 0xe71 @0x17
0x0e5a…0e81 at0018 = ╱41╱A╱ // 0xe72 @0x18
0x0e5a…0e81 at0019 = ╱54╱T╱ // 0xe73 @0x19
0x0e5a…0e81 at001a = ╱ef╱ $ ╱ // 0xe74 @0x1a
0x0e5a…0e81 at001b = ╱e4╱ >< ╱ // 0xe75 @0x1b
0x0e5a…0e81 at001c = ╱53╱S╱ // 0xe76 @0x1c
0x0e5a…0e81 at001d = ╱59╱Y╱ // 0xe77 @0x1d
0x0e5a…0e81 at001e = ╱53╱S╱ // 0xe78 @0x1e
0x0e5a…0e81 at001f = ╱54╱T╱ // 0xe79 @0x1f
0x0e5a…0e81 at0020 = ╱5f╱_╱ // 0xe7a @0x20
0x0e5a…0e81 at0021 = ╱44╱D╱ // 0xe7b @0x21
0x0e5a…0e81 at0022 = ╱41╱A╱ // 0xe7c @0x22
0x0e5a…0e81 at0023 = ╱54╱T╱ // 0xe7d @0x23
0x0e5a…0e81 at0024 = ╱ef╱ $ ╱ // 0xe7e @0x24
0x0e5a…0e81 at0025 = ╱b5╱ THEN ╱ // 0xe7f @0x25
0x0e5a…0e81 at0026 = EOL // 0xe80 @0x26
0x0e5a…0e81 }
0x0e81…0ec6 a4b4 01240 PRINT "<XC1210>Du…er…begyndt…p}…en…ny…dato…siden…du…sidst…indtastede"
0x0e81…0ec6 LineComal80 {
0x0e81…0ec6 ptr = 0xa4b4 // 0xe81 @0x0
0x0e81…0ec6 lno = 0x04d8 // 0xe83 @0x2
0x0e81…0ec6 at0004 = ╱92╱ PRINT ╱ // 0xe85 @0x4
0x0e81…0ec6 at0005 = ╱22╱"╱ // 0xe86 @0x5
0x0e81…0ec6 at0006 = ╱3c╱<╱ // 0xe87 @0x6
0x0e81…0ec6 at0007 = ╱58╱X╱ // 0xe88 @0x7
0x0e81…0ec6 at0008 = ╱43╱C╱ // 0xe89 @0x8
0x0e81…0ec6 at0009 = ╱31╱1╱ // 0xe8a @0x9
0x0e81…0ec6 at000a = ╱32╱2╱ // 0xe8b @0xa
0x0e81…0ec6 at000b = ╱31╱1╱ // 0xe8c @0xb
0x0e81…0ec6 at000c = ╱30╱0╱ // 0xe8d @0xc
0x0e81…0ec6 at000d = ╱3e╱>╱ // 0xe8e @0xd
0x0e81…0ec6 at000e = ╱44╱D╱ // 0xe8f @0xe
0x0e81…0ec6 at000f = ╱75╱u╱ // 0xe90 @0xf
0x0e81…0ec6 at0010 = ╱20╱…╱ // 0xe91 @0x10
0x0e81…0ec6 at0011 = ╱65╱e╱ // 0xe92 @0x11
0x0e81…0ec6 at0012 = ╱72╱r╱ // 0xe93 @0x12
0x0e81…0ec6 at0013 = ╱20╱…╱ // 0xe94 @0x13
0x0e81…0ec6 at0014 = ╱62╱b╱ // 0xe95 @0x14
0x0e81…0ec6 at0015 = ╱65╱e╱ // 0xe96 @0x15
0x0e81…0ec6 at0016 = ╱67╱g╱ // 0xe97 @0x16
0x0e81…0ec6 at0017 = ╱79╱y╱ // 0xe98 @0x17
0x0e81…0ec6 at0018 = ╱6e╱n╱ // 0xe99 @0x18
0x0e81…0ec6 at0019 = ╱64╱d╱ // 0xe9a @0x19
0x0e81…0ec6 at001a = ╱74╱t╱ // 0xe9b @0x1a
0x0e81…0ec6 at001b = ╱20╱…╱ // 0xe9c @0x1b
0x0e81…0ec6 at001c = ╱70╱p╱ // 0xe9d @0x1c
0x0e81…0ec6 at001d = ╱7d╱}╱ // 0xe9e @0x1d
0x0e81…0ec6 at001e = ╱20╱…╱ // 0xe9f @0x1e
0x0e81…0ec6 at001f = ╱65╱e╱ // 0xea0 @0x1f
0x0e81…0ec6 at0020 = ╱6e╱n╱ // 0xea1 @0x20
0x0e81…0ec6 at0021 = ╱20╱…╱ // 0xea2 @0x21
0x0e81…0ec6 at0022 = ╱6e╱n╱ // 0xea3 @0x22
0x0e81…0ec6 at0023 = ╱79╱y╱ // 0xea4 @0x23
0x0e81…0ec6 at0024 = ╱20╱…╱ // 0xea5 @0x24
0x0e81…0ec6 at0025 = ╱64╱d╱ // 0xea6 @0x25
0x0e81…0ec6 at0026 = ╱61╱a╱ // 0xea7 @0x26
0x0e81…0ec6 at0027 = ╱74╱t╱ // 0xea8 @0x27
0x0e81…0ec6 at0028 = ╱6f╱o╱ // 0xea9 @0x28
0x0e81…0ec6 at0029 = ╱20╱…╱ // 0xeaa @0x29
0x0e81…0ec6 at002a = ╱73╱s╱ // 0xeab @0x2a
0x0e81…0ec6 at002b = ╱69╱i╱ // 0xeac @0x2b
0x0e81…0ec6 at002c = ╱64╱d╱ // 0xead @0x2c
0x0e81…0ec6 at002d = ╱65╱e╱ // 0xeae @0x2d
0x0e81…0ec6 at002e = ╱6e╱n╱ // 0xeaf @0x2e
0x0e81…0ec6 at002f = ╱20╱…╱ // 0xeb0 @0x2f
0x0e81…0ec6 at0030 = ╱64╱d╱ // 0xeb1 @0x30
0x0e81…0ec6 at0031 = ╱75╱u╱ // 0xeb2 @0x31
0x0e81…0ec6 at0032 = ╱20╱…╱ // 0xeb3 @0x32
0x0e81…0ec6 at0033 = ╱73╱s╱ // 0xeb4 @0x33
0x0e81…0ec6 at0034 = ╱69╱i╱ // 0xeb5 @0x34
0x0e81…0ec6 at0035 = ╱64╱d╱ // 0xeb6 @0x35
0x0e81…0ec6 at0036 = ╱73╱s╱ // 0xeb7 @0x36
0x0e81…0ec6 at0037 = ╱74╱t╱ // 0xeb8 @0x37
0x0e81…0ec6 at0038 = ╱20╱…╱ // 0xeb9 @0x38
0x0e81…0ec6 at0039 = ╱69╱i╱ // 0xeba @0x39
0x0e81…0ec6 at003a = ╱6e╱n╱ // 0xebb @0x3a
0x0e81…0ec6 at003b = ╱64╱d╱ // 0xebc @0x3b
0x0e81…0ec6 at003c = ╱74╱t╱ // 0xebd @0x3c
0x0e81…0ec6 at003d = ╱61╱a╱ // 0xebe @0x3d
0x0e81…0ec6 at003e = ╱73╱s╱ // 0xebf @0x3e
0x0e81…0ec6 at003f = ╱74╱t╱ // 0xec0 @0x3f
0x0e81…0ec6 at0040 = ╱65╱e╱ // 0xec1 @0x40
0x0e81…0ec6 at0041 = ╱64╱d╱ // 0xec2 @0x41
0x0e81…0ec6 at0042 = ╱65╱e╱ // 0xec3 @0x42
0x0e81…0ec6 at0043 = ╱22╱"╱ // 0xec4 @0x43
0x0e81…0ec6 at0044 = EOL // 0xec5 @0x44
0x0e81…0ec6 }
0x0ec6…0f0a a4f8 01250 PRINT "<C1211>posteringer…-…posteringerne…skal…bogf|res…f|r…du…kan…"
0x0ec6…0f0a LineComal80 {
0x0ec6…0f0a ptr = 0xa4f8 // 0xec6 @0x0
0x0ec6…0f0a lno = 0x04e2 // 0xec8 @0x2
0x0ec6…0f0a at0004 = ╱92╱ PRINT ╱ // 0xeca @0x4
0x0ec6…0f0a at0005 = ╱22╱"╱ // 0xecb @0x5
0x0ec6…0f0a at0006 = ╱3c╱<╱ // 0xecc @0x6
0x0ec6…0f0a at0007 = ╱43╱C╱ // 0xecd @0x7
0x0ec6…0f0a at0008 = ╱31╱1╱ // 0xece @0x8
0x0ec6…0f0a at0009 = ╱32╱2╱ // 0xecf @0x9
0x0ec6…0f0a at000a = ╱31╱1╱ // 0xed0 @0xa
0x0ec6…0f0a at000b = ╱31╱1╱ // 0xed1 @0xb
0x0ec6…0f0a at000c = ╱3e╱>╱ // 0xed2 @0xc
0x0ec6…0f0a at000d = ╱70╱p╱ // 0xed3 @0xd
0x0ec6…0f0a at000e = ╱6f╱o╱ // 0xed4 @0xe
0x0ec6…0f0a at000f = ╱73╱s╱ // 0xed5 @0xf
0x0ec6…0f0a at0010 = ╱74╱t╱ // 0xed6 @0x10
0x0ec6…0f0a at0011 = ╱65╱e╱ // 0xed7 @0x11
0x0ec6…0f0a at0012 = ╱72╱r╱ // 0xed8 @0x12
0x0ec6…0f0a at0013 = ╱69╱i╱ // 0xed9 @0x13
0x0ec6…0f0a at0014 = ╱6e╱n╱ // 0xeda @0x14
0x0ec6…0f0a at0015 = ╱67╱g╱ // 0xedb @0x15
0x0ec6…0f0a at0016 = ╱65╱e╱ // 0xedc @0x16
0x0ec6…0f0a at0017 = ╱72╱r╱ // 0xedd @0x17
0x0ec6…0f0a at0018 = ╱20╱…╱ // 0xede @0x18
0x0ec6…0f0a at0019 = ╱2d╱-╱ // 0xedf @0x19
0x0ec6…0f0a at001a = ╱20╱…╱ // 0xee0 @0x1a
0x0ec6…0f0a at001b = ╱70╱p╱ // 0xee1 @0x1b
0x0ec6…0f0a at001c = ╱6f╱o╱ // 0xee2 @0x1c
0x0ec6…0f0a at001d = ╱73╱s╱ // 0xee3 @0x1d
0x0ec6…0f0a at001e = ╱74╱t╱ // 0xee4 @0x1e
0x0ec6…0f0a at001f = ╱65╱e╱ // 0xee5 @0x1f
0x0ec6…0f0a at0020 = ╱72╱r╱ // 0xee6 @0x20
0x0ec6…0f0a at0021 = ╱69╱i╱ // 0xee7 @0x21
0x0ec6…0f0a at0022 = ╱6e╱n╱ // 0xee8 @0x22
0x0ec6…0f0a at0023 = ╱67╱g╱ // 0xee9 @0x23
0x0ec6…0f0a at0024 = ╱65╱e╱ // 0xeea @0x24
0x0ec6…0f0a at0025 = ╱72╱r╱ // 0xeeb @0x25
0x0ec6…0f0a at0026 = ╱6e╱n╱ // 0xeec @0x26
0x0ec6…0f0a at0027 = ╱65╱e╱ // 0xeed @0x27
0x0ec6…0f0a at0028 = ╱20╱…╱ // 0xeee @0x28
0x0ec6…0f0a at0029 = ╱73╱s╱ // 0xeef @0x29
0x0ec6…0f0a at002a = ╱6b╱k╱ // 0xef0 @0x2a
0x0ec6…0f0a at002b = ╱61╱a╱ // 0xef1 @0x2b
0x0ec6…0f0a at002c = ╱6c╱l╱ // 0xef2 @0x2c
0x0ec6…0f0a at002d = ╱20╱…╱ // 0xef3 @0x2d
0x0ec6…0f0a at002e = ╱62╱b╱ // 0xef4 @0x2e
0x0ec6…0f0a at002f = ╱6f╱o╱ // 0xef5 @0x2f
0x0ec6…0f0a at0030 = ╱67╱g╱ // 0xef6 @0x30
0x0ec6…0f0a at0031 = ╱66╱f╱ // 0xef7 @0x31
0x0ec6…0f0a at0032 = ╱7c╱|╱ // 0xef8 @0x32
0x0ec6…0f0a at0033 = ╱72╱r╱ // 0xef9 @0x33
0x0ec6…0f0a at0034 = ╱65╱e╱ // 0xefa @0x34
0x0ec6…0f0a at0035 = ╱73╱s╱ // 0xefb @0x35
0x0ec6…0f0a at0036 = ╱20╱…╱ // 0xefc @0x36
0x0ec6…0f0a at0037 = ╱66╱f╱ // 0xefd @0x37
0x0ec6…0f0a at0038 = ╱7c╱|╱ // 0xefe @0x38
0x0ec6…0f0a at0039 = ╱72╱r╱ // 0xeff @0x39
0x0ec6…0f0a at003a = ╱20╱…╱ // 0xf00 @0x3a
0x0ec6…0f0a at003b = ╱64╱d╱ // 0xf01 @0x3b
0x0ec6…0f0a at003c = ╱75╱u╱ // 0xf02 @0x3c
0x0ec6…0f0a at003d = ╱20╱…╱ // 0xf03 @0x3d
0x0ec6…0f0a at003e = ╱6b╱k╱ // 0xf04 @0x3e
0x0ec6…0f0a at003f = ╱61╱a╱ // 0xf05 @0x3f
0x0ec6…0f0a at0040 = ╱6e╱n╱ // 0xf06 @0x40
0x0ec6…0f0a at0041 = ╱20╱…╱ // 0xf07 @0x41
0x0ec6…0f0a at0042 = ╱22╱"╱ // 0xf08 @0x42
0x0ec6…0f0a at0043 = EOL // 0xf09 @0x43
0x0ec6…0f0a }
0x0f0a…0f34 (50,) a522 01260 PRINT "<C1212>indtaste…flere…posteringer."
0x0f0a…0f34 LineComal80 {
0x0f0a…0f34 ptr = 0xa522 // 0xf0a @0x0
0x0f0a…0f34 lno = 0x04ec // 0xf0c @0x2
0x0f0a…0f34 at0004 = ╱92╱ PRINT ╱ // 0xf0e @0x4
0x0f0a…0f34 at0005 = ╱22╱"╱ // 0xf0f @0x5
0x0f0a…0f34 at0006 = ╱3c╱<╱ // 0xf10 @0x6
0x0f0a…0f34 at0007 = ╱43╱C╱ // 0xf11 @0x7
0x0f0a…0f34 at0008 = ╱31╱1╱ // 0xf12 @0x8
0x0f0a…0f34 at0009 = ╱32╱2╱ // 0xf13 @0x9
0x0f0a…0f34 at000a = ╱31╱1╱ // 0xf14 @0xa
0x0f0a…0f34 at000b = ╱32╱2╱ // 0xf15 @0xb
0x0f0a…0f34 at000c = ╱3e╱>╱ // 0xf16 @0xc
0x0f0a…0f34 at000d = ╱69╱i╱ // 0xf17 @0xd
0x0f0a…0f34 at000e = ╱6e╱n╱ // 0xf18 @0xe
0x0f0a…0f34 at000f = ╱64╱d╱ // 0xf19 @0xf
0x0f0a…0f34 at0010 = ╱74╱t╱ // 0xf1a @0x10
0x0f0a…0f34 at0011 = ╱61╱a╱ // 0xf1b @0x11
0x0f0a…0f34 at0012 = ╱73╱s╱ // 0xf1c @0x12
0x0f0a…0f34 at0013 = ╱74╱t╱ // 0xf1d @0x13
0x0f0a…0f34 at0014 = ╱65╱e╱ // 0xf1e @0x14
0x0f0a…0f34 at0015 = ╱20╱…╱ // 0xf1f @0x15
0x0f0a…0f34 at0016 = ╱66╱f╱ // 0xf20 @0x16
0x0f0a…0f34 at0017 = ╱6c╱l╱ // 0xf21 @0x17
0x0f0a…0f34 at0018 = ╱65╱e╱ // 0xf22 @0x18
0x0f0a…0f34 at0019 = ╱72╱r╱ // 0xf23 @0x19
0x0f0a…0f34 at001a = ╱65╱e╱ // 0xf24 @0x1a
0x0f0a…0f34 at001b = ╱20╱…╱ // 0xf25 @0x1b
0x0f0a…0f34 at001c = ╱70╱p╱ // 0xf26 @0x1c
0x0f0a…0f34 at001d = ╱6f╱o╱ // 0xf27 @0x1d
0x0f0a…0f34 at001e = ╱73╱s╱ // 0xf28 @0x1e
0x0f0a…0f34 at001f = ╱74╱t╱ // 0xf29 @0x1f
0x0f0a…0f34 at0020 = ╱65╱e╱ // 0xf2a @0x20
0x0f0a…0f34 at0021 = ╱72╱r╱ // 0xf2b @0x21
0x0f0a…0f34 at0022 = ╱69╱i╱ // 0xf2c @0x22
0x0f0a…0f34 at0023 = ╱6e╱n╱ // 0xf2d @0x23
0x0f0a…0f34 at0024 = ╱67╱g╱ // 0xf2e @0x24
0x0f0a…0f34 at0025 = ╱65╱e╱ // 0xf2f @0x25
0x0f0a…0f34 at0026 = ╱72╱r╱ // 0xf30 @0x26
0x0f0a…0f34 at0027 = ╱2e╱.╱ // 0xf31 @0x27
0x0f0a…0f34 at0028 = ╱22╱"╱ // 0xf32 @0x28
0x0f0a…0f34 at0029 = EOL // 0xf33 @0x29
0x0f0a…0f34 }
0x0f34…0f55 a543 01270 INPUT "<SC6523>Tryk…RETURN" : SVAR $
0x0f34…0f55 LineComal80 {
0x0f34…0f55 ptr = 0xa543 // 0xf34 @0x0
0x0f34…0f55 lno = 0x04f6 // 0xf36 @0x2
0x0f34…0f55 at0004 = ╱91╱ INPUT ╱ // 0xf38 @0x4
0x0f34…0f55 at0005 = ╱22╱"╱ // 0xf39 @0x5
0x0f34…0f55 at0006 = ╱3c╱<╱ // 0xf3a @0x6
0x0f34…0f55 at0007 = ╱53╱S╱ // 0xf3b @0x7
0x0f34…0f55 at0008 = ╱43╱C╱ // 0xf3c @0x8
0x0f34…0f55 at0009 = ╱36╱6╱ // 0xf3d @0x9
0x0f34…0f55 at000a = ╱35╱5╱ // 0xf3e @0xa
0x0f34…0f55 at000b = ╱32╱2╱ // 0xf3f @0xb
0x0f34…0f55 at000c = ╱33╱3╱ // 0xf40 @0xc
0x0f34…0f55 at000d = ╱3e╱>╱ // 0xf41 @0xd
0x0f34…0f55 at000e = ╱54╱T╱ // 0xf42 @0xe
0x0f34…0f55 at000f = ╱72╱r╱ // 0xf43 @0xf
0x0f34…0f55 at0010 = ╱79╱y╱ // 0xf44 @0x10
0x0f34…0f55 at0011 = ╱6b╱k╱ // 0xf45 @0x11
0x0f34…0f55 at0012 = ╱20╱…╱ // 0xf46 @0x12
0x0f34…0f55 at0013 = ╱52╱R╱ // 0xf47 @0x13
0x0f34…0f55 at0014 = ╱45╱E╱ // 0xf48 @0x14
0x0f34…0f55 at0015 = ╱54╱T╱ // 0xf49 @0x15
0x0f34…0f55 at0016 = ╱55╱U╱ // 0xf4a @0x16
0x0f34…0f55 at0017 = ╱52╱R╱ // 0xf4b @0x17
0x0f34…0f55 at0018 = ╱4e╱N╱ // 0xf4c @0x18
0x0f34…0f55 at0019 = ╱22╱"╱ // 0xf4d @0x19
0x0f34…0f55 at001a = ╱f1╱ : ╱ // 0xf4e @0x1a
0x0f34…0f55 at001b = ╱53╱S╱ // 0xf4f @0x1b
0x0f34…0f55 at001c = ╱56╱V╱ // 0xf50 @0x1c
0x0f34…0f55 at001d = ╱41╱A╱ // 0xf51 @0x1d
0x0f34…0f55 at001e = ╱52╱R╱ // 0xf52 @0x1e
0x0f34…0f55 at001f = ╱ef╱ $ ╱ // 0xf53 @0x1f
0x0f34…0f55 at0020 = EOL // 0xf54 @0x20
0x0f34…0f55 }
0x0f55…0f5c a54a 01280 ELSE
0x0f55…0f5c LineComal80 {
0x0f55…0f5c ptr = 0xa54a // 0xf55 @0x0
0x0f55…0f5c lno = 0x0500 // 0xf57 @0x2
0x0f55…0f5c at0004 = ╱9a0a╱ ELSE ╱ // 0xf59 @0x4
0x0f55…0f5c at0006 = EOL // 0xf5b @0x6
0x0f55…0f5c }
0x0f5c…0f70 a55e 01290 EXEC INDTAST_POSTER
0x0f5c…0f70 LineComal80 {
0x0f5c…0f70 ptr = 0xa55e // 0xf5c @0x0
0x0f5c…0f70 lno = 0x050a // 0xf5e @0x2
0x0f5c…0f70 at0004 = ╱9d╱ EXEC ╱ // 0xf60 @0x4
0x0f5c…0f70 at0005 = ╱49╱I╱ // 0xf61 @0x5
0x0f5c…0f70 at0006 = ╱4e╱N╱ // 0xf62 @0x6
0x0f5c…0f70 at0007 = ╱44╱D╱ // 0xf63 @0x7
0x0f5c…0f70 at0008 = ╱54╱T╱ // 0xf64 @0x8
0x0f5c…0f70 at0009 = ╱41╱A╱ // 0xf65 @0x9
0x0f5c…0f70 at000a = ╱53╱S╱ // 0xf66 @0xa
0x0f5c…0f70 at000b = ╱54╱T╱ // 0xf67 @0xb
0x0f5c…0f70 at000c = ╱5f╱_╱ // 0xf68 @0xc
0x0f5c…0f70 at000d = ╱50╱P╱ // 0xf69 @0xd
0x0f5c…0f70 at000e = ╱4f╱O╱ // 0xf6a @0xe
0x0f5c…0f70 at000f = ╱53╱S╱ // 0xf6b @0xf
0x0f5c…0f70 at0010 = ╱54╱T╱ // 0xf6c @0x10
0x0f5c…0f70 at0011 = ╱45╱E╱ // 0xf6d @0x11
0x0f5c…0f70 at0012 = ╱52╱R╱ // 0xf6e @0x12
0x0f5c…0f70 at0013 = EOL // 0xf6f @0x13
0x0f5c…0f70 }
0x0f70…0f76 a564 01300 ENDIF
0x0f70…0f76 LineComal80 {
0x0f70…0f76 ptr = 0xa564 // 0xf70 @0x0
0x0f70…0f76 lno = 0x0514 // 0xf72 @0x2
0x0f70…0f76 at0004 = ╱9c╱ ENDIF ╱ // 0xf74 @0x4
0x0f70…0f76 at0005 = EOL // 0xf75 @0x5
0x0f70…0f76 }
0x0f76…0f87 a575 01310 WHILE "UK" , "uk"
0x0f76…0f87 LineComal80 {
0x0f76…0f87 ptr = 0xa575 // 0xf76 @0x0
0x0f76…0f87 lno = 0x051e // 0xf78 @0x2
0x0f76…0f87 at0004 = ╱a40b00╱ WHILE ╱ // 0xf7a @0x4
0x0f76…0f87 at0007 = ╱22╱"╱ // 0xf7d @0x7
0x0f76…0f87 at0008 = ╱55╱U╱ // 0xf7e @0x8
0x0f76…0f87 at0009 = ╱4b╱K╱ // 0xf7f @0x9
0x0f76…0f87 at000a = ╱22╱"╱ // 0xf80 @0xa
0x0f76…0f87 at000b = ╱ec╱ , ╱ // 0xf81 @0xb
0x0f76…0f87 at000c = ╱22╱"╱ // 0xf82 @0xc
0x0f76…0f87 at000d = ╱75╱u╱ // 0xf83 @0xd
0x0f76…0f87 at000e = ╱6b╱k╱ // 0xf84 @0xe
0x0f76…0f87 at000f = ╱22╱"╱ // 0xf85 @0xf
0x0f76…0f87 at0010 = EOL // 0xf86 @0x10
0x0f76…0f87 }
0x0f87…0f9b a589 01320 EXEC UDSKRIV_POSTER
0x0f87…0f9b LineComal80 {
0x0f87…0f9b ptr = 0xa589 // 0xf87 @0x0
0x0f87…0f9b lno = 0x0528 // 0xf89 @0x2
0x0f87…0f9b at0004 = ╱9d╱ EXEC ╱ // 0xf8b @0x4
0x0f87…0f9b at0005 = ╱55╱U╱ // 0xf8c @0x5
0x0f87…0f9b at0006 = ╱44╱D╱ // 0xf8d @0x6
0x0f87…0f9b at0007 = ╱53╱S╱ // 0xf8e @0x7
0x0f87…0f9b at0008 = ╱4b╱K╱ // 0xf8f @0x8
0x0f87…0f9b at0009 = ╱52╱R╱ // 0xf90 @0x9
0x0f87…0f9b at000a = ╱49╱I╱ // 0xf91 @0xa
0x0f87…0f9b at000b = ╱56╱V╱ // 0xf92 @0xb
0x0f87…0f9b at000c = ╱5f╱_╱ // 0xf93 @0xc
0x0f87…0f9b at000d = ╱50╱P╱ // 0xf94 @0xd
0x0f87…0f9b at000e = ╱4f╱O╱ // 0xf95 @0xe
0x0f87…0f9b at000f = ╱53╱S╱ // 0xf96 @0xf
0x0f87…0f9b at0010 = ╱54╱T╱ // 0xf97 @0x10
0x0f87…0f9b at0011 = ╱45╱E╱ // 0xf98 @0x11
0x0f87…0f9b at0012 = ╱52╱R╱ // 0xf99 @0x12
0x0f87…0f9b at0013 = EOL // 0xf9a @0x13
0x0f87…0f9b }
0x0f9b…0fac a59a 01330 WHILE "RP" , "rp"
0x0f9b…0fac LineComal80 {
0x0f9b…0fac ptr = 0xa59a // 0xf9b @0x0
0x0f9b…0fac lno = 0x0532 // 0xf9d @0x2
0x0f9b…0fac at0004 = ╱a40c00╱ WHILE ╱ // 0xf9f @0x4
0x0f9b…0fac at0007 = ╱22╱"╱ // 0xfa2 @0x7
0x0f9b…0fac at0008 = ╱52╱R╱ // 0xfa3 @0x8
0x0f9b…0fac at0009 = ╱50╱P╱ // 0xfa4 @0x9
0x0f9b…0fac at000a = ╱22╱"╱ // 0xfa5 @0xa
0x0f9b…0fac at000b = ╱ec╱ , ╱ // 0xfa6 @0xb
0x0f9b…0fac at000c = ╱22╱"╱ // 0xfa7 @0xc
0x0f9b…0fac at000d = ╱72╱r╱ // 0xfa8 @0xd
0x0f9b…0fac at000e = ╱70╱p╱ // 0xfa9 @0xe
0x0f9b…0fac at000f = ╱22╱"╱ // 0xfaa @0xf
0x0f9b…0fac at0010 = EOL // 0xfab @0x10
0x0f9b…0fac }
0x0fac…0fbc a5aa 01340 EXEC RET_POSTER
0x0fac…0fbc LineComal80 {
0x0fac…0fbc ptr = 0xa5aa // 0xfac @0x0
0x0fac…0fbc lno = 0x053c // 0xfae @0x2
0x0fac…0fbc at0004 = ╱9d╱ EXEC ╱ // 0xfb0 @0x4
0x0fac…0fbc at0005 = ╱52╱R╱ // 0xfb1 @0x5
0x0fac…0fbc at0006 = ╱45╱E╱ // 0xfb2 @0x6
0x0fac…0fbc at0007 = ╱54╱T╱ // 0xfb3 @0x7
0x0fac…0fbc at0008 = ╱5f╱_╱ // 0xfb4 @0x8
0x0fac…0fbc at0009 = ╱50╱P╱ // 0xfb5 @0x9
0x0fac…0fbc at000a = ╱4f╱O╱ // 0xfb6 @0xa
0x0fac…0fbc at000b = ╱53╱S╱ // 0xfb7 @0xb
0x0fac…0fbc at000c = ╱54╱T╱ // 0xfb8 @0xc
0x0fac…0fbc at000d = ╱45╱E╱ // 0xfb9 @0xd
0x0fac…0fbc at000e = ╱52╱R╱ // 0xfba @0xe
0x0fac…0fbc at000f = EOL // 0xfbb @0xf
0x0fac…0fbc }
0x0fbc…0fcd a5bb 01350 WHILE "BP" , "bp"
0x0fbc…0fcd LineComal80 {
0x0fbc…0fcd ptr = 0xa5bb // 0xfbc @0x0
0x0fbc…0fcd lno = 0x0546 // 0xfbe @0x2
0x0fbc…0fcd at0004 = ╱a40d00╱ WHILE ╱ // 0xfc0 @0x4
0x0fbc…0fcd at0007 = ╱22╱"╱ // 0xfc3 @0x7
0x0fbc…0fcd at0008 = ╱42╱B╱ // 0xfc4 @0x8
0x0fbc…0fcd at0009 = ╱50╱P╱ // 0xfc5 @0x9
0x0fbc…0fcd at000a = ╱22╱"╱ // 0xfc6 @0xa
0x0fbc…0fcd at000b = ╱ec╱ , ╱ // 0xfc7 @0xb
0x0fbc…0fcd at000c = ╱22╱"╱ // 0xfc8 @0xc
0x0fbc…0fcd at000d = ╱62╱b╱ // 0xfc9 @0xd
0x0fbc…0fcd at000e = ╱70╱p╱ // 0xfca @0xe
0x0fbc…0fcd at000f = ╱22╱"╱ // 0xfcb @0xf
0x0fbc…0fcd at0010 = EOL // 0xfcc @0x10
0x0fbc…0fcd }
0x0fcd…100f a5fd 01360 IF P_DEB >< P_KRED THEN EXEC FEJL ( "Ulovlig…bogf|ring…-…debet…<…>…kredit…" )
0x0fcd…100f LineComal80 {
0x0fcd…100f ptr = 0xa5fd // 0xfcd @0x0
0x0fcd…100f lno = 0x0550 // 0xfcf @0x2
0x0fcd…100f at0004 = ╱8200╱ IF ╱ // 0xfd1 @0x4
0x0fcd…100f at0006 = ╱50╱P╱ // 0xfd3 @0x6
0x0fcd…100f at0007 = ╱5f╱_╱ // 0xfd4 @0x7
0x0fcd…100f at0008 = ╱44╱D╱ // 0xfd5 @0x8
0x0fcd…100f at0009 = ╱45╱E╱ // 0xfd6 @0x9
0x0fcd…100f at000a = ╱42╱B╱ // 0xfd7 @0xa
0x0fcd…100f at000b = ╱e4╱ >< ╱ // 0xfd8 @0xb
0x0fcd…100f at000c = ╱50╱P╱ // 0xfd9 @0xc
0x0fcd…100f at000d = ╱5f╱_╱ // 0xfda @0xd
0x0fcd…100f at000e = ╱4b╱K╱ // 0xfdb @0xe
0x0fcd…100f at000f = ╱52╱R╱ // 0xfdc @0xf
0x0fcd…100f at0010 = ╱45╱E╱ // 0xfdd @0x10
0x0fcd…100f at0011 = ╱44╱D╱ // 0xfde @0x11
0x0fcd…100f at0012 = ╱b5╱ THEN ╱ // 0xfdf @0x12
0x0fcd…100f at0013 = ╱9d╱ EXEC ╱ // 0xfe0 @0x13
0x0fcd…100f at0014 = ╱46╱F╱ // 0xfe1 @0x14
0x0fcd…100f at0015 = ╱45╱E╱ // 0xfe2 @0x15
0x0fcd…100f at0016 = ╱4a╱J╱ // 0xfe3 @0x16
0x0fcd…100f at0017 = ╱4c╱L╱ // 0xfe4 @0x17
0x0fcd…100f at0018 = ╱ed╱ ( ╱ // 0xfe5 @0x18
0x0fcd…100f at0019 = ╱22╱"╱ // 0xfe6 @0x19
0x0fcd…100f at001a = ╱55╱U╱ // 0xfe7 @0x1a
0x0fcd…100f at001b = ╱6c╱l╱ // 0xfe8 @0x1b
0x0fcd…100f at001c = ╱6f╱o╱ // 0xfe9 @0x1c
0x0fcd…100f at001d = ╱76╱v╱ // 0xfea @0x1d
0x0fcd…100f at001e = ╱6c╱l╱ // 0xfeb @0x1e
0x0fcd…100f at001f = ╱69╱i╱ // 0xfec @0x1f
0x0fcd…100f at0020 = ╱67╱g╱ // 0xfed @0x20
0x0fcd…100f at0021 = ╱20╱…╱ // 0xfee @0x21
0x0fcd…100f at0022 = ╱62╱b╱ // 0xfef @0x22
0x0fcd…100f at0023 = ╱6f╱o╱ // 0xff0 @0x23
0x0fcd…100f at0024 = ╱67╱g╱ // 0xff1 @0x24
0x0fcd…100f at0025 = ╱66╱f╱ // 0xff2 @0x25
0x0fcd…100f at0026 = ╱7c╱|╱ // 0xff3 @0x26
0x0fcd…100f at0027 = ╱72╱r╱ // 0xff4 @0x27
0x0fcd…100f at0028 = ╱69╱i╱ // 0xff5 @0x28
0x0fcd…100f at0029 = ╱6e╱n╱ // 0xff6 @0x29
0x0fcd…100f at002a = ╱67╱g╱ // 0xff7 @0x2a
0x0fcd…100f at002b = ╱20╱…╱ // 0xff8 @0x2b
0x0fcd…100f at002c = ╱2d╱-╱ // 0xff9 @0x2c
0x0fcd…100f at002d = ╱20╱…╱ // 0xffa @0x2d
0x0fcd…100f at002e = ╱64╱d╱ // 0xffb @0x2e
0x0fcd…100f at002f = ╱65╱e╱ // 0xffc @0x2f
0x0fcd…100f at0030 = ╱62╱b╱ // 0xffd @0x30
0x0fcd…100f at0031 = ╱65╱e╱ // 0xffe @0x31
0x0fcd…100f at0032 = ╱74╱t╱ // 0xfff @0x32
0x0fcd…100f at0033 = ╱20╱…╱ // 0x1000 @0x33
0x0fcd…100f at0034 = ╱3c╱<╱ // 0x1001 @0x34
0x0fcd…100f at0035 = ╱20╱…╱ // 0x1002 @0x35
0x0fcd…100f at0036 = ╱3e╱>╱ // 0x1003 @0x36
0x0fcd…100f at0037 = ╱20╱…╱ // 0x1004 @0x37
0x0fcd…100f at0038 = ╱6b╱k╱ // 0x1005 @0x38
0x0fcd…100f at0039 = ╱72╱r╱ // 0x1006 @0x39
0x0fcd…100f at003a = ╱65╱e╱ // 0x1007 @0x3a
0x0fcd…100f at003b = ╱64╱d╱ // 0x1008 @0x3b
0x0fcd…100f at003c = ╱69╱i╱ // 0x1009 @0x3c
0x0fcd…100f at003d = ╱74╱t╱ // 0x100a @0x3d
0x0fcd…100f at003e = ╱20╱…╱ // 0x100b @0x3e
0x0fcd…100f at003f = ╱22╱"╱ // 0x100c @0x3f
0x0fcd…100f at0040 = ╱ee╱ ) ╱ // 0x100d @0x40
0x0fcd…100f at0041 = EOL // 0x100e @0x41
0x0fcd…100f }
0x100f…102d a61b 01370 IF _DEB = 0 AND P_KRED = 0 THEN
0x100f…102d LineComal80 {
0x100f…102d ptr = 0xa61b // 0x100f @0x0
0x100f…102d lno = 0x055a // 0x1011 @0x2
0x100f…102d at0004 = ╱9b0e50╱ IF ╱ // 0x1013 @0x4
0x100f…102d at0007 = ╱5f╱_╱ // 0x1016 @0x7
0x100f…102d at0008 = ╱44╱D╱ // 0x1017 @0x8
0x100f…102d at0009 = ╱45╱E╱ // 0x1018 @0x9
0x100f…102d at000a = ╱42╱B╱ // 0x1019 @0xa
0x100f…102d at000b = ╱df╱ = ╱ // 0x101a @0xb
0x100f…102d at000c = ╱30╱0╱ // 0x101b @0xc
0x100f…102d at000d = ╱f20000╱ // 0x101c @0xd
0x100f…102d at0010 = ╱d9╱ AND ╱ // 0x101f @0x10
0x100f…102d at0011 = ╱50╱P╱ // 0x1020 @0x11
0x100f…102d at0012 = ╱5f╱_╱ // 0x1021 @0x12
0x100f…102d at0013 = ╱4b╱K╱ // 0x1022 @0x13
0x100f…102d at0014 = ╱52╱R╱ // 0x1023 @0x14
0x100f…102d at0015 = ╱45╱E╱ // 0x1024 @0x15
0x100f…102d at0016 = ╱44╱D╱ // 0x1025 @0x16
0x100f…102d at0017 = ╱df╱ = ╱ // 0x1026 @0x17
0x100f…102d at0018 = ╱30╱0╱ // 0x1027 @0x18
0x100f…102d at0019 = ╱f20000╱ // 0x1028 @0x19
0x100f…102d at001c = ╱b5╱ THEN ╱ // 0x102b @0x1c
0x100f…102d at001d = EOL // 0x102c @0x1d
0x100f…102d }
0x102d…1060 a64e 01380 EXEC FEJL ( "Ulovlig…bogf|ring…-…ingen…posteringer" )
0x102d…1060 LineComal80 {
0x102d…1060 ptr = 0xa64e // 0x102d @0x0
0x102d…1060 lno = 0x0564 // 0x102f @0x2
0x102d…1060 at0004 = ╱9d╱ EXEC ╱ // 0x1031 @0x4
0x102d…1060 at0005 = ╱46╱F╱ // 0x1032 @0x5
0x102d…1060 at0006 = ╱45╱E╱ // 0x1033 @0x6
0x102d…1060 at0007 = ╱4a╱J╱ // 0x1034 @0x7
0x102d…1060 at0008 = ╱4c╱L╱ // 0x1035 @0x8
0x102d…1060 at0009 = ╱ed╱ ( ╱ // 0x1036 @0x9
0x102d…1060 at000a = ╱22╱"╱ // 0x1037 @0xa
0x102d…1060 at000b = ╱55╱U╱ // 0x1038 @0xb
0x102d…1060 at000c = ╱6c╱l╱ // 0x1039 @0xc
0x102d…1060 at000d = ╱6f╱o╱ // 0x103a @0xd
0x102d…1060 at000e = ╱76╱v╱ // 0x103b @0xe
0x102d…1060 at000f = ╱6c╱l╱ // 0x103c @0xf
0x102d…1060 at0010 = ╱69╱i╱ // 0x103d @0x10
0x102d…1060 at0011 = ╱67╱g╱ // 0x103e @0x11
0x102d…1060 at0012 = ╱20╱…╱ // 0x103f @0x12
0x102d…1060 at0013 = ╱62╱b╱ // 0x1040 @0x13
0x102d…1060 at0014 = ╱6f╱o╱ // 0x1041 @0x14
0x102d…1060 at0015 = ╱67╱g╱ // 0x1042 @0x15
0x102d…1060 at0016 = ╱66╱f╱ // 0x1043 @0x16
0x102d…1060 at0017 = ╱7c╱|╱ // 0x1044 @0x17
0x102d…1060 at0018 = ╱72╱r╱ // 0x1045 @0x18
0x102d…1060 at0019 = ╱69╱i╱ // 0x1046 @0x19
0x102d…1060 at001a = ╱6e╱n╱ // 0x1047 @0x1a
0x102d…1060 at001b = ╱67╱g╱ // 0x1048 @0x1b
0x102d…1060 at001c = ╱20╱…╱ // 0x1049 @0x1c
0x102d…1060 at001d = ╱2d╱-╱ // 0x104a @0x1d
0x102d…1060 at001e = ╱20╱…╱ // 0x104b @0x1e
0x102d…1060 at001f = ╱69╱i╱ // 0x104c @0x1f
0x102d…1060 at0020 = ╱6e╱n╱ // 0x104d @0x20
0x102d…1060 at0021 = ╱67╱g╱ // 0x104e @0x21
0x102d…1060 at0022 = ╱65╱e╱ // 0x104f @0x22
0x102d…1060 at0023 = ╱6e╱n╱ // 0x1050 @0x23
0x102d…1060 at0024 = ╱20╱…╱ // 0x1051 @0x24
0x102d…1060 at0025 = ╱70╱p╱ // 0x1052 @0x25
0x102d…1060 at0026 = ╱6f╱o╱ // 0x1053 @0x26
0x102d…1060 at0027 = ╱73╱s╱ // 0x1054 @0x27
0x102d…1060 at0028 = ╱74╱t╱ // 0x1055 @0x28
0x102d…1060 at0029 = ╱65╱e╱ // 0x1056 @0x29
0x102d…1060 at002a = ╱72╱r╱ // 0x1057 @0x2a
0x102d…1060 at002b = ╱69╱i╱ // 0x1058 @0x2b
0x102d…1060 at002c = ╱6e╱n╱ // 0x1059 @0x2c
0x102d…1060 at002d = ╱67╱g╱ // 0x105a @0x2d
0x102d…1060 at002e = ╱65╱e╱ // 0x105b @0x2e
0x102d…1060 at002f = ╱72╱r╱ // 0x105c @0x2f
0x102d…1060 at0030 = ╱22╱"╱ // 0x105d @0x30
0x102d…1060 at0031 = ╱ee╱ ) ╱ // 0x105e @0x31
0x102d…1060 at0032 = EOL // 0x105f @0x32
0x102d…1060 }
0x1060…1066 a654 01390 ENDIF
0x1060…1066 LineComal80 {
0x1060…1066 ptr = 0xa654 // 0x1060 @0x0
0x1060…1066 lno = 0x056e // 0x1062 @0x2
0x1060…1066 at0004 = ╱9c╱ ENDIF ╱ // 0x1064 @0x4
0x1060…1066 at0005 = EOL // 0x1065 @0x5
0x1060…1066 }
0x1066…1071 a65f 01400 IF OK THEN
0x1066…1071 LineComal80 {
0x1066…1071 ptr = 0xa65f // 0x1066 @0x0
0x1066…1071 lno = 0x0578 // 0x1068 @0x2
0x1066…1071 at0004 = ╱9b0fd7╱ IF ╱ // 0x106a @0x4
0x1066…1071 at0007 = ╱4f╱O╱ // 0x106d @0x7
0x1066…1071 at0008 = ╱4b╱K╱ // 0x106e @0x8
0x1066…1071 at0009 = ╱b5╱ THEN ╱ // 0x106f @0x9
0x1066…1071 at000a = EOL // 0x1070 @0xa
0x1066…1071 }
0x1071…1092 a680 01410 INPUT "<SC6524>Tryk…RETURN" : SVAR $
0x1071…1092 LineComal80 {
0x1071…1092 ptr = 0xa680 // 0x1071 @0x0
0x1071…1092 lno = 0x0582 // 0x1073 @0x2
0x1071…1092 at0004 = ╱91╱ INPUT ╱ // 0x1075 @0x4
0x1071…1092 at0005 = ╱22╱"╱ // 0x1076 @0x5
0x1071…1092 at0006 = ╱3c╱<╱ // 0x1077 @0x6
0x1071…1092 at0007 = ╱53╱S╱ // 0x1078 @0x7
0x1071…1092 at0008 = ╱43╱C╱ // 0x1079 @0x8
0x1071…1092 at0009 = ╱36╱6╱ // 0x107a @0x9
0x1071…1092 at000a = ╱35╱5╱ // 0x107b @0xa
0x1071…1092 at000b = ╱32╱2╱ // 0x107c @0xb
0x1071…1092 at000c = ╱34╱4╱ // 0x107d @0xc
0x1071…1092 at000d = ╱3e╱>╱ // 0x107e @0xd
0x1071…1092 at000e = ╱54╱T╱ // 0x107f @0xe
0x1071…1092 at000f = ╱72╱r╱ // 0x1080 @0xf
0x1071…1092 at0010 = ╱79╱y╱ // 0x1081 @0x10
0x1071…1092 at0011 = ╱6b╱k╱ // 0x1082 @0x11
0x1071…1092 at0012 = ╱20╱…╱ // 0x1083 @0x12
0x1071…1092 at0013 = ╱52╱R╱ // 0x1084 @0x13
0x1071…1092 at0014 = ╱45╱E╱ // 0x1085 @0x14
0x1071…1092 at0015 = ╱54╱T╱ // 0x1086 @0x15
0x1071…1092 at0016 = ╱55╱U╱ // 0x1087 @0x16
0x1071…1092 at0017 = ╱52╱R╱ // 0x1088 @0x17
0x1071…1092 at0018 = ╱4e╱N╱ // 0x1089 @0x18
0x1071…1092 at0019 = ╱22╱"╱ // 0x108a @0x19
0x1071…1092 at001a = ╱f1╱ : ╱ // 0x108b @0x1a
0x1071…1092 at001b = ╱53╱S╱ // 0x108c @0x1b
0x1071…1092 at001c = ╱56╱V╱ // 0x108d @0x1c
0x1071…1092 at001d = ╱41╱A╱ // 0x108e @0x1d
0x1071…1092 at001e = ╱52╱R╱ // 0x108f @0x1e
0x1071…1092 at001f = ╱ef╱ $ ╱ // 0x1090 @0x1f
0x1071…1092 at0020 = EOL // 0x1091 @0x20
0x1071…1092 }
0x1092…1099 d36f 01420 ELSE
0x1092…1099 LineComal80 {
0x1092…1099 ptr = 0xd36f // 0x1092 @0x0
0x1092…1099 lno = 0x058c // 0x1094 @0x2
0x1092…1099 at0004 = ╱9a10╱ ELSE ╱ // 0x1096 @0x4
0x1092…1099 at0006 = EOL // 0x1098 @0x6
0x1092…1099 }
0x1099…10b7 a6a5 01430 LET PROGRAM $ := PRGFL $ + ":SYSBP"
0x1099…10b7 LineComal80 {
0x1099…10b7 ptr = 0xa6a5 // 0x1099 @0x0
0x1099…10b7 lno = 0x0596 // 0x109b @0x2
0x1099…10b7 at0004 = ╱86╱ LET ╱ // 0x109d @0x4
0x1099…10b7 at0005 = ╱50╱P╱ // 0x109e @0x5
0x1099…10b7 at0006 = ╱52╱R╱ // 0x109f @0x6
0x1099…10b7 at0007 = ╱4f╱O╱ // 0x10a0 @0x7
0x1099…10b7 at0008 = ╱47╱G╱ // 0x10a1 @0x8
0x1099…10b7 at0009 = ╱52╱R╱ // 0x10a2 @0x9
0x1099…10b7 at000a = ╱41╱A╱ // 0x10a3 @0xa
0x1099…10b7 at000b = ╱4d╱M╱ // 0x10a4 @0xb
0x1099…10b7 at000c = ╱ef╱ $ ╱ // 0x10a5 @0xc
0x1099…10b7 at000d = ╱f0╱ := ╱ // 0x10a6 @0xd
0x1099…10b7 at000e = ╱50╱P╱ // 0x10a7 @0xe
0x1099…10b7 at000f = ╱52╱R╱ // 0x10a8 @0xf
0x1099…10b7 at0010 = ╱47╱G╱ // 0x10a9 @0x10
0x1099…10b7 at0011 = ╱46╱F╱ // 0x10aa @0x11
0x1099…10b7 at0012 = ╱4c╱L╱ // 0x10ab @0x12
0x1099…10b7 at0013 = ╱ef╱ $ ╱ // 0x10ac @0x13
0x1099…10b7 at0014 = ╱eb╱ + ╱ // 0x10ad @0x14
0x1099…10b7 at0015 = ╱22╱"╱ // 0x10ae @0x15
0x1099…10b7 at0016 = ╱3a╱:╱ // 0x10af @0x16
0x1099…10b7 at0017 = ╱53╱S╱ // 0x10b0 @0x17
0x1099…10b7 at0018 = ╱59╱Y╱ // 0x10b1 @0x18
0x1099…10b7 at0019 = ╱53╱S╱ // 0x10b2 @0x19
0x1099…10b7 at001a = ╱42╱B╱ // 0x10b3 @0x1a
0x1099…10b7 at001b = ╱50╱P╱ // 0x10b4 @0x1b
0x1099…10b7 at001c = ╱22╱"╱ // 0x10b5 @0x1c
0x1099…10b7 at001d = EOL // 0x10b6 @0x1d
0x1099…10b7 }
0x10b7…10c5 a6b3 01440 CHAIN PROGRAM $
0x10b7…10c5 LineComal80 {
0x10b7…10c5 ptr = 0xa6b3 // 0x10b7 @0x0
0x10b7…10c5 lno = 0x05a0 // 0x10b9 @0x2
0x10b7…10c5 at0004 = ╱ac╱ CHAIN ╱ // 0x10bb @0x4
0x10b7…10c5 at0005 = ╱50╱P╱ // 0x10bc @0x5
0x10b7…10c5 at0006 = ╱52╱R╱ // 0x10bd @0x6
0x10b7…10c5 at0007 = ╱4f╱O╱ // 0x10be @0x7
0x10b7…10c5 at0008 = ╱47╱G╱ // 0x10bf @0x8
0x10b7…10c5 at0009 = ╱52╱R╱ // 0x10c0 @0x9
0x10b7…10c5 at000a = ╱41╱A╱ // 0x10c1 @0xa
0x10b7…10c5 at000b = ╱4d╱M╱ // 0x10c2 @0xb
0x10b7…10c5 at000c = ╱ef╱ $ ╱ // 0x10c3 @0xc
0x10b7…10c5 at000d = EOL // 0x10c4 @0xd
0x10b7…10c5 }
0x10c5…10cb a6b9 01450 ENDIF
0x10c5…10cb LineComal80 {
0x10c5…10cb ptr = 0xa6b9 // 0x10c5 @0x0
0x10c5…10cb lno = 0x05aa // 0x10c7 @0x2
0x10c5…10cb at0004 = ╱9c╱ ENDIF ╱ // 0x10c9 @0x4
0x10c5…10cb at0005 = EOL // 0x10ca @0x5
0x10c5…10cb }
0x10cb…10d2 a6c0 01460 OTHERWISE
0x10cb…10d2 LineComal80 {
0x10cb…10d2 ptr = 0xa6c0 // 0x10cb @0x0
0x10cb…10d2 lno = 0x05b4 // 0x10cd @0x2
0x10cb…10d2 at0004 = ╱9511╱ OTHERWISE ╱ // 0x10cf @0x4
0x10cb…10d2 at0006 = EOL // 0x10d1 @0x6
0x10cb…10d2 }
0x10d2…10e0 a6ce 01470 CHAIN PROGRAM $
0x10d2…10e0 LineComal80 {
0x10d2…10e0 ptr = 0xa6ce // 0x10d2 @0x0
0x10d2…10e0 lno = 0x05be // 0x10d4 @0x2
0x10d2…10e0 at0004 = ╱ac╱ CHAIN ╱ // 0x10d6 @0x4
0x10d2…10e0 at0005 = ╱50╱P╱ // 0x10d7 @0x5
0x10d2…10e0 at0006 = ╱52╱R╱ // 0x10d8 @0x6
0x10d2…10e0 at0007 = ╱4f╱O╱ // 0x10d9 @0x7
0x10d2…10e0 at0008 = ╱47╱G╱ // 0x10da @0x8
0x10d2…10e0 at0009 = ╱52╱R╱ // 0x10db @0x9
0x10d2…10e0 at000a = ╱41╱A╱ // 0x10dc @0xa
0x10d2…10e0 at000b = ╱4d╱M╱ // 0x10dd @0xb
0x10d2…10e0 at000c = ╱ef╱ $ ╱ // 0x10de @0xc
0x10d2…10e0 at000d = EOL // 0x10df @0xd
0x10d2…10e0 }
0x10e0…10e6 a6d4 01480 ENDCASE
0x10e0…10e6 LineComal80 {
0x10e0…10e6 ptr = 0xa6d4 // 0x10e0 @0x0
0x10e0…10e6 lno = 0x05c8 // 0x10e2 @0x2
0x10e0…10e6 at0004 = ╱a3╱ ENDCASE ╱ // 0x10e4 @0x4
0x10e0…10e6 at0005 = EOL // 0x10e5 @0x5
0x10e0…10e6 }
0x10e6…10f1 a6df 01490 UNTIL FALSE
0x10e6…10f1 LineComal80 {
0x10e6…10f1 ptr = 0xa6df // 0x10e6 @0x0
0x10e6…10f1 lno = 0x05d2 // 0x10e8 @0x2
0x10e6…10f1 at0004 = ╱98╱ UNTIL ╱ // 0x10ea @0x4
0x10e6…10f1 at0005 = ╱46╱F╱ // 0x10eb @0x5
0x10e6…10f1 at0006 = ╱41╱A╱ // 0x10ec @0x6
0x10e6…10f1 at0007 = ╱4c╱L╱ // 0x10ed @0x7
0x10e6…10f1 at0008 = ╱53╱S╱ // 0x10ee @0x8
0x10e6…10f1 at0009 = ╱45╱E╱ // 0x10ef @0x9
0x10e6…10f1 at000a = EOL // 0x10f0 @0xa
0x10e6…10f1 }
0x10f1…1104 a6f2 01500 ENDPROC FUNKTIONSMENU
0x10f1…1104 LineComal80 {
0x10f1…1104 ptr = 0xa6f2 // 0x10f1 @0x0
0x10f1…1104 lno = 0x05dc // 0x10f3 @0x2
0x10f1…1104 at0004 = ╱9f╱ ENDPROC ╱ // 0x10f5 @0x4
0x10f1…1104 at0005 = ╱46╱F╱ // 0x10f6 @0x5
0x10f1…1104 at0006 = ╱55╱U╱ // 0x10f7 @0x6
0x10f1…1104 at0007 = ╱4e╱N╱ // 0x10f8 @0x7
0x10f1…1104 at0008 = ╱4b╱K╱ // 0x10f9 @0x8
0x10f1…1104 at0009 = ╱54╱T╱ // 0x10fa @0x9
0x10f1…1104 at000a = ╱49╱I╱ // 0x10fb @0xa
0x10f1…1104 at000b = ╱4f╱O╱ // 0x10fc @0xb
0x10f1…1104 at000c = ╱4e╱N╱ // 0x10fd @0xc
0x10f1…1104 at000d = ╱53╱S╱ // 0x10fe @0xd
0x10f1…1104 at000e = ╱4d╱M╱ // 0x10ff @0xe
0x10f1…1104 at000f = ╱45╱E╱ // 0x1100 @0xf
0x10f1…1104 at0010 = ╱4e╱N╱ // 0x1101 @0x10
0x10f1…1104 at0011 = ╱55╱U╱ // 0x1102 @0x11
0x10f1…1104 at0012 = EOL // 0x1103 @0x12
0x10f1…1104 }
0x1104…1109 a6f7 01510
0x1104…1109 LineComal80 {
0x1104…1109 ptr = 0xa6f7 // 0x1104 @0x0
0x1104…1109 lno = 0x05e6 // 0x1106 @0x2
0x1104…1109 at0004 = EOL // 0x1108 @0x4
0x1104…1109 }
0x1109…111c a70a 01520 PROC TERMINAL_IDX
0x1109…111c LineComal80 {
0x1109…111c ptr = 0xa70a // 0x1109 @0x0
0x1109…111c lno = 0x05f0 // 0x110b @0x2
0x1109…111c at0004 = ╱9e12╱ PROC ╱ // 0x110d @0x4
0x1109…111c at0006 = ╱54╱T╱ // 0x110f @0x6
0x1109…111c at0007 = ╱45╱E╱ // 0x1110 @0x7
0x1109…111c at0008 = ╱52╱R╱ // 0x1111 @0x8
0x1109…111c at0009 = ╱4d╱M╱ // 0x1112 @0x9
0x1109…111c at000a = ╱49╱I╱ // 0x1113 @0xa
0x1109…111c at000b = ╱4e╱N╱ // 0x1114 @0xb
0x1109…111c at000c = ╱41╱A╱ // 0x1115 @0xc
0x1109…111c at000d = ╱4c╱L╱ // 0x1116 @0xd
0x1109…111c at000e = ╱5f╱_╱ // 0x1117 @0xe
0x1109…111c at000f = ╱49╱I╱ // 0x1118 @0xf
0x1109…111c at0010 = ╱44╱D╱ // 0x1119 @0x10
0x1109…111c at0011 = ╱58╱X╱ // 0x111a @0x11
0x1109…111c at0012 = EOL // 0x111b @0x12
0x1109…111c }
0x111c…1136 a724 01530 LET PPAR := 5 ; RESRV := 0
0x111c…1136 LineComal80 {
0x111c…1136 ptr = 0xa724 // 0x111c @0x0
0x111c…1136 lno = 0x05fa // 0x111e @0x2
0x111c…1136 at0004 = ╱86╱ LET ╱ // 0x1120 @0x4
0x111c…1136 at0005 = ╱50╱P╱ // 0x1121 @0x5
0x111c…1136 at0006 = ╱50╱P╱ // 0x1122 @0x6
0x111c…1136 at0007 = ╱41╱A╱ // 0x1123 @0x7
0x111c…1136 at0008 = ╱52╱R╱ // 0x1124 @0x8
0x111c…1136 at0009 = ╱f0╱ := ╱ // 0x1125 @0x9
0x111c…1136 at000a = ╱35╱5╱ // 0x1126 @0xa
0x111c…1136 at000b = ╱f20500╱ // 0x1127 @0xb
0x111c…1136 at000e = ╱ea╱ ; ╱ // 0x112a @0xe
0x111c…1136 at000f = ╱52╱R╱ // 0x112b @0xf
0x111c…1136 at0010 = ╱45╱E╱ // 0x112c @0x10
0x111c…1136 at0011 = ╱53╱S╱ // 0x112d @0x11
0x111c…1136 at0012 = ╱52╱R╱ // 0x112e @0x12
0x111c…1136 at0013 = ╱56╱V╱ // 0x112f @0x13
0x111c…1136 at0014 = ╱f0╱ := ╱ // 0x1130 @0x14
0x111c…1136 at0015 = ╱30╱0╱ // 0x1131 @0x15
0x111c…1136 at0016 = ╱f20000╱ // 0x1132 @0x16
0x111c…1136 at0019 = EOL // 0x1135 @0x19
0x111c…1136 }
0x1136…1148 a736 01540 CALL :PRES"
0x1136…1148 LineComal80 {
0x1136…1148 ptr = 0xa736 // 0x1136 @0x0
0x1136…1148 lno = 0x0604 // 0x1138 @0x2
0x1136…1148 at0004 = ╱ad00╱ CALL ╱ // 0x113a @0x4
0x1136…1148 at0006 = ╱fe22444445╱ // 0x113c @0x6
0x1136…1148 at000b = ╱3a╱:╱ // 0x1141 @0xb
0x1136…1148 at000c = ╱50╱P╱ // 0x1142 @0xc
0x1136…1148 at000d = ╱52╱R╱ // 0x1143 @0xd
0x1136…1148 at000e = ╱45╱E╱ // 0x1144 @0xe
0x1136…1148 at000f = ╱53╱S╱ // 0x1145 @0xf
0x1136…1148 at0010 = ╱22╱"╱ // 0x1146 @0x10
0x1136…1148 at0011 = EOL // 0x1147 @0x11
0x1136…1148 }
0x1148…1171 a75f 01550 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
0x1148…1171 LineComal80 {
0x1148…1171 ptr = 0xa75f // 0x1148 @0x0
0x1148…1171 lno = 0x060e // 0x114a @0x2
0x1148…1171 at0004 = ╱a9╱ GET ╱ // 0x114c @0x4
0x1148…1171 at0005 = ╱53╱S╱ // 0x114d @0x5
0x1148…1171 at0006 = ╱59╱Y╱ // 0x114e @0x6
0x1148…1171 at0007 = ╱53╱S╱ // 0x114f @0x7
0x1148…1171 at0008 = ╱50╱P╱ // 0x1150 @0x8
0x1148…1171 at0009 = ╱41╱A╱ // 0x1151 @0x9
0x1148…1171 at000a = ╱52╱R╱ // 0x1152 @0xa
0x1148…1171 at000b = ╱41╱A╱ // 0x1153 @0xb
0x1148…1171 at000c = ╱ef╱ $ ╱ // 0x1154 @0xc
0x1148…1171 at000d = ╱ec╱ , ╱ // 0x1155 @0xd
0x1148…1171 at000e = ╱31╱1╱ // 0x1156 @0xe
0x1148…1171 at000f = ╱f20100╱ // 0x1157 @0xf
0x1148…1171 at0012 = ╱e5╱ + ╱ // 0x115a @0x12
0x1148…1171 at0013 = ╱52╱R╱ // 0x115b @0x13
0x1148…1171 at0014 = ╱45╱E╱ // 0x115c @0x14
0x1148…1171 at0015 = ╱53╱S╱ // 0x115d @0x15
0x1148…1171 at0016 = ╱52╱R╱ // 0x115e @0x16
0x1148…1171 at0017 = ╱56╱V╱ // 0x115f @0x17
0x1148…1171 at0018 = ╱f1╱ : ╱ // 0x1160 @0x18
0x1148…1171 at0019 = ╱44╱D╱ // 0x1161 @0x19
0x1148…1171 at001a = ╱41╱A╱ // 0x1162 @0x1a
0x1148…1171 at001b = ╱54╱T╱ // 0x1163 @0x1b
0x1148…1171 at001c = ╱41╱A╱ // 0x1164 @0x1c
0x1148…1171 at001d = ╱46╱F╱ // 0x1165 @0x1d
0x1148…1171 at001e = ╱4c╱L╱ // 0x1166 @0x1e
0x1148…1171 at001f = ╱ef╱ $ ╱ // 0x1167 @0x1f
0x1148…1171 at0020 = ╱ec╱ , ╱ // 0x1168 @0x20
0x1148…1171 at0021 = ╱54╱T╱ // 0x1169 @0x21
0x1148…1171 at0022 = ╱5f╱_╱ // 0x116a @0x22
0x1148…1171 at0023 = ╱4b╱K╱ // 0x116b @0x23
0x1148…1171 at0024 = ╱4f╱O╱ // 0x116c @0x24
0x1148…1171 at0025 = ╱44╱D╱ // 0x116d @0x25
0x1148…1171 at0026 = ╱45╱E╱ // 0x116e @0x26
0x1148…1171 at0027 = ╱ef╱ $ ╱ // 0x116f @0x27
0x1148…1171 at0028 = EOL // 0x1170 @0x28
0x1148…1171 }
0x1171…1183 a771 01560 ENDPROC TERMINAL_IDX
0x1171…1183 LineComal80 {
0x1171…1183 ptr = 0xa771 // 0x1171 @0x0
0x1171…1183 lno = 0x0618 // 0x1173 @0x2
0x1171…1183 at0004 = ╱9f╱ ENDPROC ╱ // 0x1175 @0x4
0x1171…1183 at0005 = ╱54╱T╱ // 0x1176 @0x5
0x1171…1183 at0006 = ╱45╱E╱ // 0x1177 @0x6
0x1171…1183 at0007 = ╱52╱R╱ // 0x1178 @0x7
0x1171…1183 at0008 = ╱4d╱M╱ // 0x1179 @0x8
0x1171…1183 at0009 = ╱49╱I╱ // 0x117a @0x9
0x1171…1183 at000a = ╱4e╱N╱ // 0x117b @0xa
0x1171…1183 at000b = ╱41╱A╱ // 0x117c @0xb
0x1171…1183 at000c = ╱4c╱L╱ // 0x117d @0xc
0x1171…1183 at000d = ╱5f╱_╱ // 0x117e @0xd
0x1171…1183 at000e = ╱49╱I╱ // 0x117f @0xe
0x1171…1183 at000f = ╱44╱D╱ // 0x1180 @0xf
0x1171…1183 at0010 = ╱58╱X╱ // 0x1181 @0x10
0x1171…1183 at0011 = EOL // 0x1182 @0x11
0x1171…1183 }
0x1183…1188 a776 01570
0x1183…1188 LineComal80 {
0x1183…1188 ptr = 0xa776 // 0x1183 @0x0
0x1183…1188 lno = 0x0622 // 0x1185 @0x2
0x1183…1188 at0004 = EOL // 0x1187 @0x4
0x1183…1188 }
0x1188…11a3 a791 01580 PROC OPENFIL ( FNAVN $ , WAY $ )
0x1188…11a3 LineComal80 {
0x1188…11a3 ptr = 0xa791 // 0x1188 @0x0
0x1188…11a3 lno = 0x062c // 0x118a @0x2
0x1188…11a3 at0004 = ╱9e13╱ PROC ╱ // 0x118c @0x4
0x1188…11a3 at0006 = ╱4f╱O╱ // 0x118e @0x6
0x1188…11a3 at0007 = ╱50╱P╱ // 0x118f @0x7
0x1188…11a3 at0008 = ╱45╱E╱ // 0x1190 @0x8
0x1188…11a3 at0009 = ╱4e╱N╱ // 0x1191 @0x9
0x1188…11a3 at000a = ╱46╱F╱ // 0x1192 @0xa
0x1188…11a3 at000b = ╱49╱I╱ // 0x1193 @0xb
0x1188…11a3 at000c = ╱4c╱L╱ // 0x1194 @0xc
0x1188…11a3 at000d = ╱ed╱ ( ╱ // 0x1195 @0xd
0x1188…11a3 at000e = ╱46╱F╱ // 0x1196 @0xe
0x1188…11a3 at000f = ╱4e╱N╱ // 0x1197 @0xf
0x1188…11a3 at0010 = ╱41╱A╱ // 0x1198 @0x10
0x1188…11a3 at0011 = ╱56╱V╱ // 0x1199 @0x11
0x1188…11a3 at0012 = ╱4e╱N╱ // 0x119a @0x12
0x1188…11a3 at0013 = ╱ef╱ $ ╱ // 0x119b @0x13
0x1188…11a3 at0014 = ╱ec╱ , ╱ // 0x119c @0x14
0x1188…11a3 at0015 = ╱57╱W╱ // 0x119d @0x15
0x1188…11a3 at0016 = ╱41╱A╱ // 0x119e @0x16
0x1188…11a3 at0017 = ╱59╱Y╱ // 0x119f @0x17
0x1188…11a3 at0018 = ╱ef╱ $ ╱ // 0x11a0 @0x18
0x1188…11a3 at0019 = ╱ee╱ ) ╱ // 0x11a1 @0x19
0x1188…11a3 at001a = EOL // 0x11a2 @0x1a
0x1188…11a3 }
0x11a3…11aa a798 01590 REPEAT
0x11a3…11aa LineComal80 {
0x11a3…11aa ptr = 0xa798 // 0x11a3 @0x0
0x11a3…11aa lno = 0x0636 // 0x11a5 @0x2
0x11a3…11aa at0004 = ╱9714╱ REPEAT ╱ // 0x11a7 @0x4
0x11a3…11aa at0006 = EOL // 0x11a9 @0x6
0x11a3…11aa }
0x11aa…11c3 a7b1 01600 IF AY $ = "W" OR WAY $ = "w" THEN
0x11aa…11c3 LineComal80 {
0x11aa…11c3 ptr = 0xa7b1 // 0x11aa @0x0
0x11aa…11c3 lno = 0x0640 // 0x11ac @0x2
0x11aa…11c3 at0004 = ╱9b1557╱ IF ╱ // 0x11ae @0x4
0x11aa…11c3 at0007 = ╱41╱A╱ // 0x11b1 @0x7
0x11aa…11c3 at0008 = ╱59╱Y╱ // 0x11b2 @0x8
0x11aa…11c3 at0009 = ╱ef╱ $ ╱ // 0x11b3 @0x9
0x11aa…11c3 at000a = ╱df╱ = ╱ // 0x11b4 @0xa
0x11aa…11c3 at000b = ╱22╱"╱ // 0x11b5 @0xb
0x11aa…11c3 at000c = ╱57╱W╱ // 0x11b6 @0xc
0x11aa…11c3 at000d = ╱22╱"╱ // 0x11b7 @0xd
0x11aa…11c3 at000e = ╱d8╱ OR ╱ // 0x11b8 @0xe
0x11aa…11c3 at000f = ╱57╱W╱ // 0x11b9 @0xf
0x11aa…11c3 at0010 = ╱41╱A╱ // 0x11ba @0x10
0x11aa…11c3 at0011 = ╱59╱Y╱ // 0x11bb @0x11
0x11aa…11c3 at0012 = ╱ef╱ $ ╱ // 0x11bc @0x12
0x11aa…11c3 at0013 = ╱df╱ = ╱ // 0x11bd @0x13
0x11aa…11c3 at0014 = ╱22╱"╱ // 0x11be @0x14
0x11aa…11c3 at0015 = ╱77╱w╱ // 0x11bf @0x15
0x11aa…11c3 at0016 = ╱22╱"╱ // 0x11c0 @0x16
0x11aa…11c3 at0017 = ╱b5╱ THEN ╱ // 0x11c1 @0x17
0x11aa…11c3 at0018 = EOL // 0x11c2 @0x18
0x11aa…11c3 }
0x11c3…11d1 a7bf 01610 OPEN FNAVN $ , W
0x11c3…11d1 LineComal80 {
0x11c3…11d1 ptr = 0xa7bf // 0x11c3 @0x0
0x11c3…11d1 lno = 0x064a // 0x11c5 @0x2
0x11c3…11d1 at0004 = ╱a7╱ OPEN ╱ // 0x11c7 @0x4
0x11c3…11d1 at0005 = ╱46╱F╱ // 0x11c8 @0x5
0x11c3…11d1 at0006 = ╱4e╱N╱ // 0x11c9 @0x6
0x11c3…11d1 at0007 = ╱41╱A╱ // 0x11ca @0x7
0x11c3…11d1 at0008 = ╱56╱V╱ // 0x11cb @0x8
0x11c3…11d1 at0009 = ╱4e╱N╱ // 0x11cc @0x9
0x11c3…11d1 at000a = ╱ef╱ $ ╱ // 0x11cd @0xa
0x11c3…11d1 at000b = ╱ec╱ , ╱ // 0x11ce @0xb
0x11c3…11d1 at000c = ╱57╱W╱ // 0x11cf @0xc
0x11c3…11d1 at000d = EOL // 0x11d0 @0xd
0x11c3…11d1 }
0x11d1…11d8 a7c6 01620 ELSE
0x11d1…11d8 LineComal80 {
0x11d1…11d8 ptr = 0xa7c6 // 0x11d1 @0x0
0x11d1…11d8 lno = 0x0654 // 0x11d3 @0x2
0x11d1…11d8 at0004 = ╱9a16╱ ELSE ╱ // 0x11d5 @0x4
0x11d1…11d8 at0006 = EOL // 0x11d7 @0x6
0x11d1…11d8 }
0x11d8…11e6 a7d4 01630 OPEN FNAVN $ , R
0x11d8…11e6 LineComal80 {
0x11d8…11e6 ptr = 0xa7d4 // 0x11d8 @0x0
0x11d8…11e6 lno = 0x065e // 0x11da @0x2
0x11d8…11e6 at0004 = ╱a7╱ OPEN ╱ // 0x11dc @0x4
0x11d8…11e6 at0005 = ╱46╱F╱ // 0x11dd @0x5
0x11d8…11e6 at0006 = ╱4e╱N╱ // 0x11de @0x6
0x11d8…11e6 at0007 = ╱41╱A╱ // 0x11df @0x7
0x11d8…11e6 at0008 = ╱56╱V╱ // 0x11e0 @0x8
0x11d8…11e6 at0009 = ╱4e╱N╱ // 0x11e1 @0x9
0x11d8…11e6 at000a = ╱ef╱ $ ╱ // 0x11e2 @0xa
0x11d8…11e6 at000b = ╱ec╱ , ╱ // 0x11e3 @0xb
0x11d8…11e6 at000c = ╱52╱R╱ // 0x11e4 @0xc
0x11d8…11e6 at000d = EOL // 0x11e5 @0xd
0x11d8…11e6 }
0x11e6…11ec a7da 01640 ENDIF
0x11e6…11ec LineComal80 {
0x11e6…11ec ptr = 0xa7da // 0x11e6 @0x0
0x11e6…11ec lno = 0x0668 // 0x11e8 @0x2
0x11e6…11ec at0004 = ╱9c╱ ENDIF ╱ // 0x11ea @0x4
0x11e6…11ec at0005 = EOL // 0x11eb @0x5
0x11e6…11ec }
0x11ec…11fd a7eb 01650 IF ( FNAVN $ ) THEN
0x11ec…11fd LineComal80 {
0x11ec…11fd ptr = 0xa7eb // 0x11ec @0x0
0x11ec…11fd lno = 0x0672 // 0x11ee @0x2
0x11ec…11fd at0004 = ╱9b17cd╱ IF ╱ // 0x11f0 @0x4
0x11ec…11fd at0007 = ╱ed╱ ( ╱ // 0x11f3 @0x7
0x11ec…11fd at0008 = ╱46╱F╱ // 0x11f4 @0x8
0x11ec…11fd at0009 = ╱4e╱N╱ // 0x11f5 @0x9
0x11ec…11fd at000a = ╱41╱A╱ // 0x11f6 @0xa
0x11ec…11fd at000b = ╱56╱V╱ // 0x11f7 @0xb
0x11ec…11fd at000c = ╱4e╱N╱ // 0x11f8 @0xc
0x11ec…11fd at000d = ╱ef╱ $ ╱ // 0x11f9 @0xd
0x11ec…11fd at000e = ╱ee╱ ) ╱ // 0x11fa @0xe
0x11ec…11fd at000f = ╱b5╱ THEN ╱ // 0x11fb @0xf
0x11ec…11fd at0010 = EOL // 0x11fc @0x10
0x11ec…11fd }
0x11fd…1215 a803 01660 PRINT "<SC0123>" ; CHR$ ( 7 )
0x11fd…1215 LineComal80 {
0x11fd…1215 ptr = 0xa803 // 0x11fd @0x0
0x11fd…1215 lno = 0x067c // 0x11ff @0x2
0x11fd…1215 at0004 = ╱92╱ PRINT ╱ // 0x1201 @0x4
0x11fd…1215 at0005 = ╱22╱"╱ // 0x1202 @0x5
0x11fd…1215 at0006 = ╱3c╱<╱ // 0x1203 @0x6
0x11fd…1215 at0007 = ╱53╱S╱ // 0x1204 @0x7
0x11fd…1215 at0008 = ╱43╱C╱ // 0x1205 @0x8
0x11fd…1215 at0009 = ╱30╱0╱ // 0x1206 @0x9
0x11fd…1215 at000a = ╱31╱1╱ // 0x1207 @0xa
0x11fd…1215 at000b = ╱32╱2╱ // 0x1208 @0xb
0x11fd…1215 at000c = ╱33╱3╱ // 0x1209 @0xc
0x11fd…1215 at000d = ╱3e╱>╱ // 0x120a @0xd
0x11fd…1215 at000e = ╱22╱"╱ // 0x120b @0xe
0x11fd…1215 at000f = ╱ea╱ ; ╱ // 0x120c @0xf
0x11fd…1215 at0010 = ╱d0╱ CHR$ ╱ // 0x120d @0x10
0x11fd…1215 at0011 = ╱ed╱ ( ╱ // 0x120e @0x11
0x11fd…1215 at0012 = ╱37╱7╱ // 0x120f @0x12
0x11fd…1215 at0013 = ╱f20700╱ // 0x1210 @0x13
0x11fd…1215 at0016 = ╱ee╱ ) ╱ // 0x1213 @0x16
0x11fd…1215 at0017 = EOL // 0x1214 @0x17
0x11fd…1215 }
0x1215…122b a819 01670 IF ( FNAVN $ ) = 6 THEN
0x1215…122b LineComal80 {
0x1215…122b ptr = 0xa819 // 0x1215 @0x0
0x1215…122b lno = 0x0686 // 0x1217 @0x2
0x1215…122b at0004 = ╱9b18cd╱ IF ╱ // 0x1219 @0x4
0x1215…122b at0007 = ╱ed╱ ( ╱ // 0x121c @0x7
0x1215…122b at0008 = ╱46╱F╱ // 0x121d @0x8
0x1215…122b at0009 = ╱4e╱N╱ // 0x121e @0x9
0x1215…122b at000a = ╱41╱A╱ // 0x121f @0xa
0x1215…122b at000b = ╱56╱V╱ // 0x1220 @0xb
0x1215…122b at000c = ╱4e╱N╱ // 0x1221 @0xc
0x1215…122b at000d = ╱ef╱ $ ╱ // 0x1222 @0xd
0x1215…122b at000e = ╱ee╱ ) ╱ // 0x1223 @0xe
0x1215…122b at000f = ╱df╱ = ╱ // 0x1224 @0xf
0x1215…122b at0010 = ╱36╱6╱ // 0x1225 @0x10
0x1215…122b at0011 = ╱f20600╱ // 0x1226 @0x11
0x1215…122b at0014 = ╱b5╱ THEN ╱ // 0x1229 @0x14
0x1215…122b at0015 = EOL // 0x122a @0x15
0x1215…122b }
0x122b…1270 a85e 01680 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
0x122b…1270 LineComal80 {
0x122b…1270 ptr = 0xa85e // 0x122b @0x0
0x122b…1270 lno = 0x0690 // 0x122d @0x2
0x122b…1270 at0004 = ╱92╱ PRINT ╱ // 0x122f @0x4
0x122b…1270 at0005 = ╱22╱"╱ // 0x1230 @0x5
0x122b…1270 at0006 = ╱3c╱<╱ // 0x1231 @0x6
0x122b…1270 at0007 = ╱53╱S╱ // 0x1232 @0x7
0x122b…1270 at0008 = ╱43╱C╱ // 0x1233 @0x8
0x122b…1270 at0009 = ╱31╱1╱ // 0x1234 @0x9
0x122b…1270 at000a = ╱36╱6╱ // 0x1235 @0xa
0x122b…1270 at000b = ╱30╱0╱ // 0x1236 @0xb
0x122b…1270 at000c = ╱32╱2╱ // 0x1237 @0xc
0x122b…1270 at000d = ╱3e╱>╱ // 0x1238 @0xd
0x122b…1270 at000e = ╱2a╱*╱ // 0x1239 @0xe
0x122b…1270 at000f = ╱2a╱*╱ // 0x123a @0xf
0x122b…1270 at0010 = ╱2a╱*╱ // 0x123b @0x10
0x122b…1270 at0011 = ╱20╱…╱ // 0x123c @0x11
0x122b…1270 at0012 = ╱46╱F╱ // 0x123d @0x12
0x122b…1270 at0013 = ╱65╱e╱ // 0x123e @0x13
0x122b…1270 at0014 = ╱6a╱j╱ // 0x123f @0x14
0x122b…1270 at0015 = ╱6c╱l╱ // 0x1240 @0x15
0x122b…1270 at0016 = ╱20╱…╱ // 0x1241 @0x16
0x122b…1270 at0017 = ╱6e╱n╱ // 0x1242 @0x17
0x122b…1270 at0018 = ╱72╱r╱ // 0x1243 @0x18
0x122b…1270 at0019 = ╱2e╱.╱ // 0x1244 @0x19
0x122b…1270 at001a = ╱20╱…╱ // 0x1245 @0x1a
0x122b…1270 at001b = ╱36╱6╱ // 0x1246 @0x1b
0x122b…1270 at001c = ╱20╱…╱ // 0x1247 @0x1c
0x122b…1270 at001d = ╱2d╱-╱ // 0x1248 @0x1d
0x122b…1270 at001e = ╱20╱…╱ // 0x1249 @0x1e
0x122b…1270 at001f = ╱69╱i╱ // 0x124a @0x1f
0x122b…1270 at0020 = ╱6e╱n╱ // 0x124b @0x20
0x122b…1270 at0021 = ╱64╱d╱ // 0x124c @0x21
0x122b…1270 at0022 = ╱73╱s╱ // 0x124d @0x22
0x122b…1270 at0023 = ╱7b╱{╱ // 0x124e @0x23
0x122b…1270 at0024 = ╱74╱t╱ // 0x124f @0x24
0x122b…1270 at0025 = ╱20╱…╱ // 0x1250 @0x25
0x122b…1270 at0026 = ╱64╱d╱ // 0x1251 @0x26
0x122b…1270 at0027 = ╱69╱i╱ // 0x1252 @0x27
0x122b…1270 at0028 = ╱73╱s╱ // 0x1253 @0x28
0x122b…1270 at0029 = ╱6b╱k╱ // 0x1254 @0x29
0x122b…1270 at002a = ╱65╱e╱ // 0x1255 @0x2a
0x122b…1270 at002b = ╱74╱t╱ // 0x1256 @0x2b
0x122b…1270 at002c = ╱74╱t╱ // 0x1257 @0x2c
0x122b…1270 at002d = ╱65╱e╱ // 0x1258 @0x2d
0x122b…1270 at002e = ╱20╱…╱ // 0x1259 @0x2e
0x122b…1270 at002f = ╱6f╱o╱ // 0x125a @0x2f
0x122b…1270 at0030 = ╱67╱g╱ // 0x125b @0x30
0x122b…1270 at0031 = ╱20╱…╱ // 0x125c @0x31
0x122b…1270 at0032 = ╱74╱t╱ // 0x125d @0x32
0x122b…1270 at0033 = ╱72╱r╱ // 0x125e @0x33
0x122b…1270 at0034 = ╱79╱y╱ // 0x125f @0x34
0x122b…1270 at0035 = ╱6b╱k╱ // 0x1260 @0x35
0x122b…1270 at0036 = ╱20╱…╱ // 0x1261 @0x36
0x122b…1270 at0037 = ╱3c╱<╱ // 0x1262 @0x37
0x122b…1270 at0038 = ╱52╱R╱ // 0x1263 @0x38
0x122b…1270 at0039 = ╱45╱E╱ // 0x1264 @0x39
0x122b…1270 at003a = ╱54╱T╱ // 0x1265 @0x3a
0x122b…1270 at003b = ╱55╱U╱ // 0x1266 @0x3b
0x122b…1270 at003c = ╱52╱R╱ // 0x1267 @0x3c
0x122b…1270 at003d = ╱4e╱N╱ // 0x1268 @0x3d
0x122b…1270 at003e = ╱3e╱>╱ // 0x1269 @0x3e
0x122b…1270 at003f = ╱20╱…╱ // 0x126a @0x3f
0x122b…1270 at0040 = ╱2a╱*╱ // 0x126b @0x40
0x122b…1270 at0041 = ╱2a╱*╱ // 0x126c @0x41
0x122b…1270 at0042 = ╱2a╱*╱ // 0x126d @0x42
0x122b…1270 at0043 = ╱22╱"╱ // 0x126e @0x43
0x122b…1270 at0044 = EOL // 0x126f @0x44
0x122b…1270 }
0x1270…127e a86c 01690 INPUT "" : SVAR $
0x1270…127e LineComal80 {
0x1270…127e ptr = 0xa86c // 0x1270 @0x0
0x1270…127e lno = 0x069a // 0x1272 @0x2
0x1270…127e at0004 = ╱91╱ INPUT ╱ // 0x1274 @0x4
0x1270…127e at0005 = ╱22╱"╱ // 0x1275 @0x5
0x1270…127e at0006 = ╱22╱"╱ // 0x1276 @0x6
0x1270…127e at0007 = ╱f1╱ : ╱ // 0x1277 @0x7
0x1270…127e at0008 = ╱53╱S╱ // 0x1278 @0x8
0x1270…127e at0009 = ╱56╱V╱ // 0x1279 @0x9
0x1270…127e at000a = ╱41╱A╱ // 0x127a @0xa
0x1270…127e at000b = ╱52╱R╱ // 0x127b @0xb
0x1270…127e at000c = ╱ef╱ $ ╱ // 0x127c @0xc
0x1270…127e at000d = EOL // 0x127d @0xd
0x1270…127e }
0x127e…1285 a873 01700 ELSE
0x127e…1285 LineComal80 {
0x127e…1285 ptr = 0xa873 // 0x127e @0x0
0x127e…1285 lno = 0x06a4 // 0x1280 @0x2
0x127e…1285 at0004 = ╱9a19╱ ELSE ╱ // 0x1282 @0x4
0x127e…1285 at0006 = EOL // 0x1284 @0x6
0x127e…1285 }
0x1285…12c6 a8b4 01710 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
0x1285…12c6 LineComal80 {
0x1285…12c6 ptr = 0xa8b4 // 0x1285 @0x0
0x1285…12c6 lno = 0x06ae // 0x1287 @0x2
0x1285…12c6 at0004 = ╱92╱ PRINT ╱ // 0x1289 @0x4
0x1285…12c6 at0005 = ╱22╱"╱ // 0x128a @0x5
0x1285…12c6 at0006 = ╱3c╱<╱ // 0x128b @0x6
0x1285…12c6 at0007 = ╱53╱S╱ // 0x128c @0x7
0x1285…12c6 at0008 = ╱43╱C╱ // 0x128d @0x8
0x1285…12c6 at0009 = ╱31╱1╱ // 0x128e @0x9
0x1285…12c6 at000a = ╱38╱8╱ // 0x128f @0xa
0x1285…12c6 at000b = ╱30╱0╱ // 0x1290 @0xb
0x1285…12c6 at000c = ╱32╱2╱ // 0x1291 @0xc
0x1285…12c6 at000d = ╱3e╱>╱ // 0x1292 @0xd
0x1285…12c6 at000e = ╱2a╱*╱ // 0x1293 @0xe
0x1285…12c6 at000f = ╱2a╱*╱ // 0x1294 @0xf
0x1285…12c6 at0010 = ╱2a╱*╱ // 0x1295 @0x10
0x1285…12c6 at0011 = ╱20╱…╱ // 0x1296 @0x11
0x1285…12c6 at0012 = ╱46╱F╱ // 0x1297 @0x12
0x1285…12c6 at0013 = ╱65╱e╱ // 0x1298 @0x13
0x1285…12c6 at0014 = ╱6a╱j╱ // 0x1299 @0x14
0x1285…12c6 at0015 = ╱6c╱l╱ // 0x129a @0x15
0x1285…12c6 at0016 = ╱20╱…╱ // 0x129b @0x16
0x1285…12c6 at0017 = ╱6e╱n╱ // 0x129c @0x17
0x1285…12c6 at0018 = ╱72╱r╱ // 0x129d @0x18
0x1285…12c6 at0019 = ╱2e╱.╱ // 0x129e @0x19
0x1285…12c6 at001a = ╱20╱…╱ // 0x129f @0x1a
0x1285…12c6 at001b = ╱22╱"╱ // 0x12a0 @0x1b
0x1285…12c6 at001c = ╱ea╱ ; ╱ // 0x12a1 @0x1c
0x1285…12c6 at001d = ╱d0╱ CHR$ ╱ // 0x12a2 @0x1d
0x1285…12c6 at001e = ╱ed╱ ( ╱ // 0x12a3 @0x1e
0x1285…12c6 at001f = ╱cd╱ // 0x12a4 @0x1f
0x1285…12c6 at0020 = ╱ed╱ ( ╱ // 0x12a5 @0x20
0x1285…12c6 at0021 = ╱46╱F╱ // 0x12a6 @0x21
0x1285…12c6 at0022 = ╱4e╱N╱ // 0x12a7 @0x22
0x1285…12c6 at0023 = ╱41╱A╱ // 0x12a8 @0x23
0x1285…12c6 at0024 = ╱56╱V╱ // 0x12a9 @0x24
0x1285…12c6 at0025 = ╱4e╱N╱ // 0x12aa @0x25
0x1285…12c6 at0026 = ╱ef╱ $ ╱ // 0x12ab @0x26
0x1285…12c6 at0027 = ╱ee╱ ) ╱ // 0x12ac @0x27
0x1285…12c6 at0028 = ╱ec╱ , ╱ // 0x12ad @0x28
0x1285…12c6 at0029 = ╱32╱2╱ // 0x12ae @0x29
0x1285…12c6 at002a = ╱f20200╱ // 0x12af @0x2a
0x1285…12c6 at002d = ╱ee╱ ) ╱ // 0x12b2 @0x2d
0x1285…12c6 at002e = ╱ea╱ ; ╱ // 0x12b3 @0x2e
0x1285…12c6 at002f = ╱22╱"╱ // 0x12b4 @0x2f
0x1285…12c6 at0030 = ╱20╱…╱ // 0x12b5 @0x30
0x1285…12c6 at0031 = ╱76╱v╱ // 0x12b6 @0x31
0x1285…12c6 at0032 = ╱65╱e╱ // 0x12b7 @0x32
0x1285…12c6 at0033 = ╱64╱d╱ // 0x12b8 @0x33
0x1285…12c6 at0034 = ╱20╱…╱ // 0x12b9 @0x34
0x1285…12c6 at0035 = ╱7d╱}╱ // 0x12ba @0x35
0x1285…12c6 at0036 = ╱62╱b╱ // 0x12bb @0x36
0x1285…12c6 at0037 = ╱6e╱n╱ // 0x12bc @0x37
0x1285…12c6 at0038 = ╱69╱i╱ // 0x12bd @0x38
0x1285…12c6 at0039 = ╱6e╱n╱ // 0x12be @0x39
0x1285…12c6 at003a = ╱67╱g╱ // 0x12bf @0x3a
0x1285…12c6 at003b = ╱20╱…╱ // 0x12c0 @0x3b
0x1285…12c6 at003c = ╱61╱a╱ // 0x12c1 @0x3c
0x1285…12c6 at003d = ╱66╱f╱ // 0x12c2 @0x3d
0x1285…12c6 at003e = ╱20╱…╱ // 0x12c3 @0x3e
0x1285…12c6 at003f = ╱22╱"╱ // 0x12c4 @0x3f
0x1285…12c6 at0040 = EOL // 0x12c5 @0x40
0x1285…12c6 }
0x12c6…12df a8cd 01720 PRINT "<S>" ; FNAVN $ ; "…***"
0x12c6…12df LineComal80 {
0x12c6…12df ptr = 0xa8cd // 0x12c6 @0x0
0x12c6…12df lno = 0x06b8 // 0x12c8 @0x2
0x12c6…12df at0004 = ╱92╱ PRINT ╱ // 0x12ca @0x4
0x12c6…12df at0005 = ╱22╱"╱ // 0x12cb @0x5
0x12c6…12df at0006 = ╱3c╱<╱ // 0x12cc @0x6
0x12c6…12df at0007 = ╱53╱S╱ // 0x12cd @0x7
0x12c6…12df at0008 = ╱3e╱>╱ // 0x12ce @0x8
0x12c6…12df at0009 = ╱22╱"╱ // 0x12cf @0x9
0x12c6…12df at000a = ╱ea╱ ; ╱ // 0x12d0 @0xa
0x12c6…12df at000b = ╱46╱F╱ // 0x12d1 @0xb
0x12c6…12df at000c = ╱4e╱N╱ // 0x12d2 @0xc
0x12c6…12df at000d = ╱41╱A╱ // 0x12d3 @0xd
0x12c6…12df at000e = ╱56╱V╱ // 0x12d4 @0xe
0x12c6…12df at000f = ╱4e╱N╱ // 0x12d5 @0xf
0x12c6…12df at0010 = ╱ef╱ $ ╱ // 0x12d6 @0x10
0x12c6…12df at0011 = ╱ea╱ ; ╱ // 0x12d7 @0x11
0x12c6…12df at0012 = ╱22╱"╱ // 0x12d8 @0x12
0x12c6…12df at0013 = ╱20╱…╱ // 0x12d9 @0x13
0x12c6…12df at0014 = ╱2a╱*╱ // 0x12da @0x14
0x12c6…12df at0015 = ╱2a╱*╱ // 0x12db @0x15
0x12c6…12df at0016 = ╱2a╱*╱ // 0x12dc @0x16
0x12c6…12df at0017 = ╱22╱"╱ // 0x12dd @0x17
0x12c6…12df at0018 = EOL // 0x12de @0x18
0x12c6…12df }
0x12df…12ed a8db 01730 INPUT "" : SVAR $
0x12df…12ed LineComal80 {
0x12df…12ed ptr = 0xa8db // 0x12df @0x0
0x12df…12ed lno = 0x06c2 // 0x12e1 @0x2
0x12df…12ed at0004 = ╱91╱ INPUT ╱ // 0x12e3 @0x4
0x12df…12ed at0005 = ╱22╱"╱ // 0x12e4 @0x5
0x12df…12ed at0006 = ╱22╱"╱ // 0x12e5 @0x6
0x12df…12ed at0007 = ╱f1╱ : ╱ // 0x12e6 @0x7
0x12df…12ed at0008 = ╱53╱S╱ // 0x12e7 @0x8
0x12df…12ed at0009 = ╱56╱V╱ // 0x12e8 @0x9
0x12df…12ed at000a = ╱41╱A╱ // 0x12e9 @0xa
0x12df…12ed at000b = ╱52╱R╱ // 0x12ea @0xb
0x12df…12ed at000c = ╱ef╱ $ ╱ // 0x12eb @0xc
0x12df…12ed at000d = EOL // 0x12ec @0xd
0x12df…12ed }
0x12ed…1301 a8ef 01740 PRINT "<C0102>" ; SPC $
0x12ed…1301 LineComal80 {
0x12ed…1301 ptr = 0xa8ef // 0x12ed @0x0
0x12ed…1301 lno = 0x06cc // 0x12ef @0x2
0x12ed…1301 at0004 = ╱92╱ PRINT ╱ // 0x12f1 @0x4
0x12ed…1301 at0005 = ╱22╱"╱ // 0x12f2 @0x5
0x12ed…1301 at0006 = ╱3c╱<╱ // 0x12f3 @0x6
0x12ed…1301 at0007 = ╱43╱C╱ // 0x12f4 @0x7
0x12ed…1301 at0008 = ╱30╱0╱ // 0x12f5 @0x8
0x12ed…1301 at0009 = ╱31╱1╱ // 0x12f6 @0x9
0x12ed…1301 at000a = ╱30╱0╱ // 0x12f7 @0xa
0x12ed…1301 at000b = ╱32╱2╱ // 0x12f8 @0xb
0x12ed…1301 at000c = ╱3e╱>╱ // 0x12f9 @0xc
0x12ed…1301 at000d = ╱22╱"╱ // 0x12fa @0xd
0x12ed…1301 at000e = ╱ea╱ ; ╱ // 0x12fb @0xe
0x12ed…1301 at000f = ╱53╱S╱ // 0x12fc @0xf
0x12ed…1301 at0010 = ╱50╱P╱ // 0x12fd @0x10
0x12ed…1301 at0011 = ╱43╱C╱ // 0x12fe @0x11
0x12ed…1301 at0012 = ╱ef╱ $ ╱ // 0x12ff @0x12
0x12ed…1301 at0013 = EOL // 0x1300 @0x13
0x12ed…1301 }
0x1301…1307 a8f5 01750 ENDIF
0x1301…1307 LineComal80 {
0x1301…1307 ptr = 0xa8f5 // 0x1301 @0x0
0x1301…1307 lno = 0x06d6 // 0x1303 @0x2
0x1301…1307 at0004 = ╱9c╱ ENDIF ╱ // 0x1305 @0x4
0x1301…1307 at0005 = EOL // 0x1306 @0x5
0x1301…1307 }
0x1307…130d a8fb 01760 ENDIF
0x1307…130d LineComal80 {
0x1307…130d ptr = 0xa8fb // 0x1307 @0x0
0x1307…130d lno = 0x06e0 // 0x1309 @0x2
0x1307…130d at0004 = ╱9c╱ ENDIF ╱ // 0x130b @0x4
0x1307…130d at0005 = EOL // 0x130c @0x5
0x1307…130d }
0x130d…131d a90b 01770 UNTIL NOT ╱cd╱ ( FNAVN $ )
0x130d…131d LineComal80 {
0x130d…131d ptr = 0xa90b // 0x130d @0x0
0x130d…131d lno = 0x06ea // 0x130f @0x2
0x130d…131d at0004 = ╱98╱ UNTIL ╱ // 0x1311 @0x4
0x130d…131d at0005 = ╱d7╱ NOT ╱ // 0x1312 @0x5
0x130d…131d at0006 = ╱cd╱ // 0x1313 @0x6
0x130d…131d at0007 = ╱ed╱ ( ╱ // 0x1314 @0x7
0x130d…131d at0008 = ╱46╱F╱ // 0x1315 @0x8
0x130d…131d at0009 = ╱4e╱N╱ // 0x1316 @0x9
0x130d…131d at000a = ╱41╱A╱ // 0x1317 @0xa
0x130d…131d at000b = ╱56╱V╱ // 0x1318 @0xb
0x130d…131d at000c = ╱4e╱N╱ // 0x1319 @0xc
0x130d…131d at000d = ╱ef╱ $ ╱ // 0x131a @0xd
0x130d…131d at000e = ╱ee╱ ) ╱ // 0x131b @0xe
0x130d…131d at000f = EOL // 0x131c @0xf
0x130d…131d }
0x131d…132a a918 01780 ENDPROC OPENFIL
0x131d…132a LineComal80 {
0x131d…132a ptr = 0xa918 // 0x131d @0x0
0x131d…132a lno = 0x06f4 // 0x131f @0x2
0x131d…132a at0004 = ╱9f╱ ENDPROC ╱ // 0x1321 @0x4
0x131d…132a at0005 = ╱4f╱O╱ // 0x1322 @0x5
0x131d…132a at0006 = ╱50╱P╱ // 0x1323 @0x6
0x131d…132a at0007 = ╱45╱E╱ // 0x1324 @0x7
0x131d…132a at0008 = ╱4e╱N╱ // 0x1325 @0x8
0x131d…132a at0009 = ╱46╱F╱ // 0x1326 @0x9
0x131d…132a at000a = ╱49╱I╱ // 0x1327 @0xa
0x131d…132a at000b = ╱4c╱L╱ // 0x1328 @0xb
0x131d…132a at000c = EOL // 0x1329 @0xc
0x131d…132a }
0x132a…132f a91d 01790
0x132a…132f LineComal80 {
0x132a…132f ptr = 0xa91d // 0x132a @0x0
0x132a…132f lno = 0x06fe // 0x132c @0x2
0x132a…132f at0004 = EOL // 0x132e @0x4
0x132a…132f }
0x132f…1348 a936 01800 PROC TAL_CONTROL ( REF RST $ )
0x132f…1348 LineComal80 {
0x132f…1348 ptr = 0xa936 // 0x132f @0x0
0x132f…1348 lno = 0x0708 // 0x1331 @0x2
0x132f…1348 at0004 = ╱9e1a╱ PROC ╱ // 0x1333 @0x4
0x132f…1348 at0006 = ╱54╱T╱ // 0x1335 @0x6
0x132f…1348 at0007 = ╱41╱A╱ // 0x1336 @0x7
0x132f…1348 at0008 = ╱4c╱L╱ // 0x1337 @0x8
0x132f…1348 at0009 = ╱5f╱_╱ // 0x1338 @0x9
0x132f…1348 at000a = ╱43╱C╱ // 0x1339 @0xa
0x132f…1348 at000b = ╱4f╱O╱ // 0x133a @0xb
0x132f…1348 at000c = ╱4e╱N╱ // 0x133b @0xc
0x132f…1348 at000d = ╱54╱T╱ // 0x133c @0xd
0x132f…1348 at000e = ╱52╱R╱ // 0x133d @0xe
0x132f…1348 at000f = ╱4f╱O╱ // 0x133e @0xf
0x132f…1348 at0010 = ╱4c╱L╱ // 0x133f @0x10
0x132f…1348 at0011 = ╱ed╱ ( ╱ // 0x1340 @0x11
0x132f…1348 at0012 = ╱b6╱ REF ╱ // 0x1341 @0x12
0x132f…1348 at0013 = ╱52╱R╱ // 0x1342 @0x13
0x132f…1348 at0014 = ╱53╱S╱ // 0x1343 @0x14
0x132f…1348 at0015 = ╱54╱T╱ // 0x1344 @0x15
0x132f…1348 at0016 = ╱ef╱ $ ╱ // 0x1345 @0x16
0x132f…1348 at0017 = ╱ee╱ ) ╱ // 0x1346 @0x17
0x132f…1348 at0018 = EOL // 0x1347 @0x18
0x132f…1348 }
0x1348…135c a94a 01810 LET J := 0 ; OK := TRUE
0x1348…135c LineComal80 {
0x1348…135c ptr = 0xa94a // 0x1348 @0x0
0x1348…135c lno = 0x0712 // 0x134a @0x2
0x1348…135c at0004 = ╱86╱ LET ╱ // 0x134c @0x4
0x1348…135c at0005 = ╱4a╱J╱ // 0x134d @0x5
0x1348…135c at0006 = ╱f0╱ := ╱ // 0x134e @0x6
0x1348…135c at0007 = ╱30╱0╱ // 0x134f @0x7
0x1348…135c at0008 = ╱f20000╱ // 0x1350 @0x8
0x1348…135c at000b = ╱ea╱ ; ╱ // 0x1353 @0xb
0x1348…135c at000c = ╱4f╱O╱ // 0x1354 @0xc
0x1348…135c at000d = ╱4b╱K╱ // 0x1355 @0xd
0x1348…135c at000e = ╱f0╱ := ╱ // 0x1356 @0xe
0x1348…135c at000f = ╱54╱T╱ // 0x1357 @0xf
0x1348…135c at0010 = ╱52╱R╱ // 0x1358 @0x10
0x1348…135c at0011 = ╱55╱U╱ // 0x1359 @0x11
0x1348…135c at0012 = ╱45╱E╱ // 0x135a @0x12
0x1348…135c at0013 = EOL // 0x135b @0x13
0x1348…135c }
0x135c…1372 a960 01820 FOR I := 1 TO ( RST $ ) DO
0x135c…1372 LineComal80 {
0x135c…1372 ptr = 0xa960 // 0x135c @0x0
0x135c…1372 lno = 0x071c // 0x135e @0x2
0x135c…1372 at0004 = ╱831b╱ FOR ╱ // 0x1360 @0x4
0x135c…1372 at0006 = ╱49╱I╱ // 0x1362 @0x6
0x135c…1372 at0007 = ╱f0╱ := ╱ // 0x1363 @0x7
0x135c…1372 at0008 = ╱31╱1╱ // 0x1364 @0x8
0x135c…1372 at0009 = ╱f20100╱ // 0x1365 @0x9
0x135c…1372 at000c = ╱b7cb╱ TO ╱ // 0x1368 @0xc
0x135c…1372 at000e = ╱ed╱ ( ╱ // 0x136a @0xe
0x135c…1372 at000f = ╱52╱R╱ // 0x136b @0xf
0x135c…1372 at0010 = ╱53╱S╱ // 0x136c @0x10
0x135c…1372 at0011 = ╱54╱T╱ // 0x136d @0x11
0x135c…1372 at0012 = ╱ef╱ $ ╱ // 0x136e @0x12
0x135c…1372 at0013 = ╱ee╱ ) ╱ // 0x136f @0x13
0x135c…1372 at0014 = ╱bb╱ DO ╱ // 0x1370 @0x14
0x135c…1372 at0015 = EOL // 0x1371 @0x15
0x135c…1372 }
0x1372…13a3 a991 01830 IF RST $ ( I ) IN TAL $ + "." THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
0x1372…13a3 LineComal80 {
0x1372…13a3 ptr = 0xa991 // 0x1372 @0x0
0x1372…13a3 lno = 0x0726 // 0x1374 @0x2
0x1372…13a3 at0004 = ╱8200╱ IF ╱ // 0x1376 @0x4
0x1372…13a3 at0006 = ╱52╱R╱ // 0x1378 @0x6
0x1372…13a3 at0007 = ╱53╱S╱ // 0x1379 @0x7
0x1372…13a3 at0008 = ╱54╱T╱ // 0x137a @0x8
0x1372…13a3 at0009 = ╱ef╱ $ ╱ // 0x137b @0x9
0x1372…13a3 at000a = ╱ed╱ ( ╱ // 0x137c @0xa
0x1372…13a3 at000b = ╱49╱I╱ // 0x137d @0xb
0x1372…13a3 at000c = ╱ee╱ ) ╱ // 0x137e @0xc
0x1372…13a3 at000d = ╱dc╱ IN ╱ // 0x137f @0xd
0x1372…13a3 at000e = ╱54╱T╱ // 0x1380 @0xe
0x1372…13a3 at000f = ╱41╱A╱ // 0x1381 @0xf
0x1372…13a3 at0010 = ╱4c╱L╱ // 0x1382 @0x10
0x1372…13a3 at0011 = ╱ef╱ $ ╱ // 0x1383 @0x11
0x1372…13a3 at0012 = ╱eb╱ + ╱ // 0x1384 @0x12
0x1372…13a3 at0013 = ╱22╱"╱ // 0x1385 @0x13
0x1372…13a3 at0014 = ╱2e╱.╱ // 0x1386 @0x14
0x1372…13a3 at0015 = ╱22╱"╱ // 0x1387 @0x15
0x1372…13a3 at0016 = ╱b5╱ THEN ╱ // 0x1388 @0x16
0x1372…13a3 at0017 = ╱86╱ LET ╱ // 0x1389 @0x17
0x1372…13a3 at0018 = ╱4a╱J╱ // 0x138a @0x18
0x1372…13a3 at0019 = ╱f0╱ := ╱ // 0x138b @0x19
0x1372…13a3 at001a = ╱4a╱J╱ // 0x138c @0x1a
0x1372…13a3 at001b = ╱e5╱ + ╱ // 0x138d @0x1b
0x1372…13a3 at001c = ╱31╱1╱ // 0x138e @0x1c
0x1372…13a3 at001d = ╱f20100╱ // 0x138f @0x1d
0x1372…13a3 at0020 = ╱ea╱ ; ╱ // 0x1392 @0x20
0x1372…13a3 at0021 = ╱52╱R╱ // 0x1393 @0x21
0x1372…13a3 at0022 = ╱53╱S╱ // 0x1394 @0x22
0x1372…13a3 at0023 = ╱54╱T╱ // 0x1395 @0x23
0x1372…13a3 at0024 = ╱ef╱ $ ╱ // 0x1396 @0x24
0x1372…13a3 at0025 = ╱ed╱ ( ╱ // 0x1397 @0x25
0x1372…13a3 at0026 = ╱4a╱J╱ // 0x1398 @0x26
0x1372…13a3 at0027 = ╱ee╱ ) ╱ // 0x1399 @0x27
0x1372…13a3 at0028 = ╱f0╱ := ╱ // 0x139a @0x28
0x1372…13a3 at0029 = ╱52╱R╱ // 0x139b @0x29
0x1372…13a3 at002a = ╱53╱S╱ // 0x139c @0x2a
0x1372…13a3 at002b = ╱54╱T╱ // 0x139d @0x2b
0x1372…13a3 at002c = ╱ef╱ $ ╱ // 0x139e @0x2c
0x1372…13a3 at002d = ╱ed╱ ( ╱ // 0x139f @0x2d
0x1372…13a3 at002e = ╱49╱I╱ // 0x13a0 @0x2e
0x1372…13a3 at002f = ╱ee╱ ) ╱ // 0x13a1 @0x2f
0x1372…13a3 at0030 = EOL // 0x13a2 @0x30
0x1372…13a3 }
0x13a3…13aa a998 01840 NEXT I
0x13a3…13aa LineComal80 {
0x13a3…13aa ptr = 0xa998 // 0x13a3 @0x0
0x13a3…13aa lno = 0x0730 // 0x13a5 @0x2
0x13a3…13aa at0004 = ╱84╱ NEXT ╱ // 0x13a7 @0x4
0x13a3…13aa at0005 = ╱49╱I╱ // 0x13a8 @0x5
0x13a3…13aa at0006 = EOL // 0x13a9 @0x6
0x13a3…13aa }
0x13aa…13b8 a9a6 01850 IF = 0 THEN
0x13aa…13b8 LineComal80 {
0x13aa…13b8 ptr = 0xa9a6 // 0x13aa @0x0
0x13aa…13b8 lno = 0x073a // 0x13ac @0x2
0x13aa…13b8 at0004 = ╱9b1c4a╱ IF ╱ // 0x13ae @0x4
0x13aa…13b8 at0007 = ╱df╱ = ╱ // 0x13b1 @0x7
0x13aa…13b8 at0008 = ╱30╱0╱ // 0x13b2 @0x8
0x13aa…13b8 at0009 = ╱f20000╱ // 0x13b3 @0x9
0x13aa…13b8 at000c = ╱b5╱ THEN ╱ // 0x13b6 @0xc
0x13aa…13b8 at000d = EOL // 0x13b7 @0xd
0x13aa…13b8 }
0x13b8…13c6 a9b4 01860 LET OK := FALSE
0x13b8…13c6 LineComal80 {
0x13b8…13c6 ptr = 0xa9b4 // 0x13b8 @0x0
0x13b8…13c6 lno = 0x0744 // 0x13ba @0x2
0x13b8…13c6 at0004 = ╱86╱ LET ╱ // 0x13bc @0x4
0x13b8…13c6 at0005 = ╱4f╱O╱ // 0x13bd @0x5
0x13b8…13c6 at0006 = ╱4b╱K╱ // 0x13be @0x6
0x13b8…13c6 at0007 = ╱f0╱ := ╱ // 0x13bf @0x7
0x13b8…13c6 at0008 = ╱46╱F╱ // 0x13c0 @0x8
0x13b8…13c6 at0009 = ╱41╱A╱ // 0x13c1 @0x9
0x13b8…13c6 at000a = ╱4c╱L╱ // 0x13c2 @0xa
0x13b8…13c6 at000b = ╱53╱S╱ // 0x13c3 @0xb
0x13b8…13c6 at000c = ╱45╱E╱ // 0x13c4 @0xc
0x13b8…13c6 at000d = EOL // 0x13c5 @0xd
0x13b8…13c6 }
0x13c6…13cd a9bb 01870 ELSE
0x13c6…13cd LineComal80 {
0x13c6…13cd ptr = 0xa9bb // 0x13c6 @0x0
0x13c6…13cd lno = 0x074e // 0x13c8 @0x2
0x13c6…13cd at0004 = ╱9a1d╱ ELSE ╱ // 0x13ca @0x4
0x13c6…13cd at0006 = EOL // 0x13cc @0x6
0x13c6…13cd }
0x13cd…13e4 a9d2 01880 LET RST $ := RST $ ( 1 : J )
0x13cd…13e4 LineComal80 {
0x13cd…13e4 ptr = 0xa9d2 // 0x13cd @0x0
0x13cd…13e4 lno = 0x0758 // 0x13cf @0x2
0x13cd…13e4 at0004 = ╱86╱ LET ╱ // 0x13d1 @0x4
0x13cd…13e4 at0005 = ╱52╱R╱ // 0x13d2 @0x5
0x13cd…13e4 at0006 = ╱53╱S╱ // 0x13d3 @0x6
0x13cd…13e4 at0007 = ╱54╱T╱ // 0x13d4 @0x7
0x13cd…13e4 at0008 = ╱ef╱ $ ╱ // 0x13d5 @0x8
0x13cd…13e4 at0009 = ╱f0╱ := ╱ // 0x13d6 @0x9
0x13cd…13e4 at000a = ╱52╱R╱ // 0x13d7 @0xa
0x13cd…13e4 at000b = ╱53╱S╱ // 0x13d8 @0xb
0x13cd…13e4 at000c = ╱54╱T╱ // 0x13d9 @0xc
0x13cd…13e4 at000d = ╱ef╱ $ ╱ // 0x13da @0xd
0x13cd…13e4 at000e = ╱ed╱ ( ╱ // 0x13db @0xe
0x13cd…13e4 at000f = ╱31╱1╱ // 0x13dc @0xf
0x13cd…13e4 at0010 = ╱f20100╱ // 0x13dd @0x10
0x13cd…13e4 at0013 = ╱f1╱ : ╱ // 0x13e0 @0x13
0x13cd…13e4 at0014 = ╱4a╱J╱ // 0x13e1 @0x14
0x13cd…13e4 at0015 = ╱ee╱ ) ╱ // 0x13e2 @0x15
0x13cd…13e4 at0016 = EOL // 0x13e3 @0x16
0x13cd…13e4 }
0x13e4…13ea a9d8 01890 ENDIF
0x13e4…13ea LineComal80 {
0x13e4…13ea ptr = 0xa9d8 // 0x13e4 @0x0
0x13e4…13ea lno = 0x0762 // 0x13e6 @0x2
0x13e4…13ea at0004 = ╱9c╱ ENDIF ╱ // 0x13e8 @0x4
0x13e4…13ea at0005 = EOL // 0x13e9 @0x5
0x13e4…13ea }
0x13ea…13fb a9e9 01900 ENDPROC TAL_CONTROL
0x13ea…13fb LineComal80 {
0x13ea…13fb ptr = 0xa9e9 // 0x13ea @0x0
0x13ea…13fb lno = 0x076c // 0x13ec @0x2
0x13ea…13fb at0004 = ╱9f╱ ENDPROC ╱ // 0x13ee @0x4
0x13ea…13fb at0005 = ╱54╱T╱ // 0x13ef @0x5
0x13ea…13fb at0006 = ╱41╱A╱ // 0x13f0 @0x6
0x13ea…13fb at0007 = ╱4c╱L╱ // 0x13f1 @0x7
0x13ea…13fb at0008 = ╱5f╱_╱ // 0x13f2 @0x8
0x13ea…13fb at0009 = ╱43╱C╱ // 0x13f3 @0x9
0x13ea…13fb at000a = ╱4f╱O╱ // 0x13f4 @0xa
0x13ea…13fb at000b = ╱4e╱N╱ // 0x13f5 @0xb
0x13ea…13fb at000c = ╱54╱T╱ // 0x13f6 @0xc
0x13ea…13fb at000d = ╱52╱R╱ // 0x13f7 @0xd
0x13ea…13fb at000e = ╱4f╱O╱ // 0x13f8 @0xe
0x13ea…13fb at000f = ╱4c╱L╱ // 0x13f9 @0xf
0x13ea…13fb at0010 = EOL // 0x13fa @0x10
0x13ea…13fb }
0x13fb…1400 a9ee 01910
0x13fb…1400 LineComal80 {
0x13fb…1400 ptr = 0xa9ee // 0x13fb @0x0
0x13fb…1400 lno = 0x0776 // 0x13fd @0x2
0x13fb…1400 at0004 = EOL // 0x13ff @0x4
0x13fb…1400 }
0x1400…1413 aa01 01920 PROC DIV_POSHOVED
0x1400…1413 LineComal80 {
0x1400…1413 ptr = 0xaa01 // 0x1400 @0x0
0x1400…1413 lno = 0x0780 // 0x1402 @0x2
0x1400…1413 at0004 = ╱9e1e╱ PROC ╱ // 0x1404 @0x4
0x1400…1413 at0006 = ╱44╱D╱ // 0x1406 @0x6
0x1400…1413 at0007 = ╱49╱I╱ // 0x1407 @0x7
0x1400…1413 at0008 = ╱56╱V╱ // 0x1408 @0x8
0x1400…1413 at0009 = ╱5f╱_╱ // 0x1409 @0x9
0x1400…1413 at000a = ╱50╱P╱ // 0x140a @0xa
0x1400…1413 at000b = ╱4f╱O╱ // 0x140b @0xb
0x1400…1413 at000c = ╱53╱S╱ // 0x140c @0xc
0x1400…1413 at000d = ╱48╱H╱ // 0x140d @0xd
0x1400…1413 at000e = ╱4f╱O╱ // 0x140e @0xe
0x1400…1413 at000f = ╱56╱V╱ // 0x140f @0xf
0x1400…1413 at0010 = ╱45╱E╱ // 0x1410 @0x10
0x1400…1413 at0011 = ╱44╱D╱ // 0x1411 @0x11
0x1400…1413 at0012 = EOL // 0x1412 @0x12
0x1400…1413 }
0x1413…144e cede 01930 EXEC OVERSKRIFT ( "INDTASTNING…AF…DIVERSE…POSTERINGER" , 4 )
0x1413…144e LineComal80 {
0x1413…144e ptr = 0xcede // 0x1413 @0x0
0x1413…144e lno = 0x078a // 0x1415 @0x2
0x1413…144e at0004 = ╱9d╱ EXEC ╱ // 0x1417 @0x4
0x1413…144e at0005 = ╱4f╱O╱ // 0x1418 @0x5
0x1413…144e at0006 = ╱56╱V╱ // 0x1419 @0x6
0x1413…144e at0007 = ╱45╱E╱ // 0x141a @0x7
0x1413…144e at0008 = ╱52╱R╱ // 0x141b @0x8
0x1413…144e at0009 = ╱53╱S╱ // 0x141c @0x9
0x1413…144e at000a = ╱4b╱K╱ // 0x141d @0xa
0x1413…144e at000b = ╱52╱R╱ // 0x141e @0xb
0x1413…144e at000c = ╱49╱I╱ // 0x141f @0xc
0x1413…144e at000d = ╱46╱F╱ // 0x1420 @0xd
0x1413…144e at000e = ╱54╱T╱ // 0x1421 @0xe
0x1413…144e at000f = ╱ed╱ ( ╱ // 0x1422 @0xf
0x1413…144e at0010 = ╱22╱"╱ // 0x1423 @0x10
0x1413…144e at0011 = ╱49╱I╱ // 0x1424 @0x11
0x1413…144e at0012 = ╱4e╱N╱ // 0x1425 @0x12
0x1413…144e at0013 = ╱44╱D╱ // 0x1426 @0x13
0x1413…144e at0014 = ╱54╱T╱ // 0x1427 @0x14
0x1413…144e at0015 = ╱41╱A╱ // 0x1428 @0x15
0x1413…144e at0016 = ╱53╱S╱ // 0x1429 @0x16
0x1413…144e at0017 = ╱54╱T╱ // 0x142a @0x17
0x1413…144e at0018 = ╱4e╱N╱ // 0x142b @0x18
0x1413…144e at0019 = ╱49╱I╱ // 0x142c @0x19
0x1413…144e at001a = ╱4e╱N╱ // 0x142d @0x1a
0x1413…144e at001b = ╱47╱G╱ // 0x142e @0x1b
0x1413…144e at001c = ╱20╱…╱ // 0x142f @0x1c
0x1413…144e at001d = ╱41╱A╱ // 0x1430 @0x1d
0x1413…144e at001e = ╱46╱F╱ // 0x1431 @0x1e
0x1413…144e at001f = ╱20╱…╱ // 0x1432 @0x1f
0x1413…144e at0020 = ╱44╱D╱ // 0x1433 @0x20
0x1413…144e at0021 = ╱49╱I╱ // 0x1434 @0x21
0x1413…144e at0022 = ╱56╱V╱ // 0x1435 @0x22
0x1413…144e at0023 = ╱45╱E╱ // 0x1436 @0x23
0x1413…144e at0024 = ╱52╱R╱ // 0x1437 @0x24
0x1413…144e at0025 = ╱53╱S╱ // 0x1438 @0x25
0x1413…144e at0026 = ╱45╱E╱ // 0x1439 @0x26
0x1413…144e at0027 = ╱20╱…╱ // 0x143a @0x27
0x1413…144e at0028 = ╱50╱P╱ // 0x143b @0x28
0x1413…144e at0029 = ╱4f╱O╱ // 0x143c @0x29
0x1413…144e at002a = ╱53╱S╱ // 0x143d @0x2a
0x1413…144e at002b = ╱54╱T╱ // 0x143e @0x2b
0x1413…144e at002c = ╱45╱E╱ // 0x143f @0x2c
0x1413…144e at002d = ╱52╱R╱ // 0x1440 @0x2d
0x1413…144e at002e = ╱49╱I╱ // 0x1441 @0x2e
0x1413…144e at002f = ╱4e╱N╱ // 0x1442 @0x2f
0x1413…144e at0030 = ╱47╱G╱ // 0x1443 @0x30
0x1413…144e at0031 = ╱45╱E╱ // 0x1444 @0x31
0x1413…144e at0032 = ╱52╱R╱ // 0x1445 @0x32
0x1413…144e at0033 = ╱22╱"╱ // 0x1446 @0x33
0x1413…144e at0034 = ╱ec╱ , ╱ // 0x1447 @0x34
0x1413…144e at0035 = ╱34╱4╱ // 0x1448 @0x35
0x1413…144e at0036 = ╱f20400╱ // 0x1449 @0x36
0x1413…144e at0039 = ╱ee╱ ) ╱ // 0x144c @0x39
0x1413…144e at003a = EOL // 0x144d @0x3a
0x1413…144e }
0x144e…1485 aa73 01940 PRINT "<C0105>………BILAG……TEKST……………………………………………MOMS……KO"
0x144e…1485 LineComal80 {
0x144e…1485 ptr = 0xaa73 // 0x144e @0x0
0x144e…1485 lno = 0x0794 // 0x1450 @0x2
0x144e…1485 at0004 = ╱92╱ PRINT ╱ // 0x1452 @0x4
0x144e…1485 at0005 = ╱22╱"╱ // 0x1453 @0x5
0x144e…1485 at0006 = ╱3c╱<╱ // 0x1454 @0x6
0x144e…1485 at0007 = ╱43╱C╱ // 0x1455 @0x7
0x144e…1485 at0008 = ╱30╱0╱ // 0x1456 @0x8
0x144e…1485 at0009 = ╱31╱1╱ // 0x1457 @0x9
0x144e…1485 at000a = ╱30╱0╱ // 0x1458 @0xa
0x144e…1485 at000b = ╱35╱5╱ // 0x1459 @0xb
0x144e…1485 at000c = ╱3e╱>╱ // 0x145a @0xc
0x144e…1485 at000d = ╱20╱…╱ // 0x145b @0xd
0x144e…1485 at000e = ╱20╱…╱ // 0x145c @0xe
0x144e…1485 at000f = ╱20╱…╱ // 0x145d @0xf
0x144e…1485 at0010 = ╱42╱B╱ // 0x145e @0x10
0x144e…1485 at0011 = ╱49╱I╱ // 0x145f @0x11
0x144e…1485 at0012 = ╱4c╱L╱ // 0x1460 @0x12
0x144e…1485 at0013 = ╱41╱A╱ // 0x1461 @0x13
0x144e…1485 at0014 = ╱47╱G╱ // 0x1462 @0x14
0x144e…1485 at0015 = ╱20╱…╱ // 0x1463 @0x15
0x144e…1485 at0016 = ╱20╱…╱ // 0x1464 @0x16
0x144e…1485 at0017 = ╱54╱T╱ // 0x1465 @0x17
0x144e…1485 at0018 = ╱45╱E╱ // 0x1466 @0x18
0x144e…1485 at0019 = ╱4b╱K╱ // 0x1467 @0x19
0x144e…1485 at001a = ╱53╱S╱ // 0x1468 @0x1a
0x144e…1485 at001b = ╱54╱T╱ // 0x1469 @0x1b
0x144e…1485 at001c = ╱20╱…╱ // 0x146a @0x1c
0x144e…1485 at001d = ╱20╱…╱ // 0x146b @0x1d
0x144e…1485 at001e = ╱20╱…╱ // 0x146c @0x1e
0x144e…1485 at001f = ╱20╱…╱ // 0x146d @0x1f
0x144e…1485 at0020 = ╱20╱…╱ // 0x146e @0x20
0x144e…1485 at0021 = ╱20╱…╱ // 0x146f @0x21
0x144e…1485 at0022 = ╱20╱…╱ // 0x1470 @0x22
0x144e…1485 at0023 = ╱20╱…╱ // 0x1471 @0x23
0x144e…1485 at0024 = ╱20╱…╱ // 0x1472 @0x24
0x144e…1485 at0025 = ╱20╱…╱ // 0x1473 @0x25
0x144e…1485 at0026 = ╱20╱…╱ // 0x1474 @0x26
0x144e…1485 at0027 = ╱20╱…╱ // 0x1475 @0x27
0x144e…1485 at0028 = ╱20╱…╱ // 0x1476 @0x28
0x144e…1485 at0029 = ╱20╱…╱ // 0x1477 @0x29
0x144e…1485 at002a = ╱20╱…╱ // 0x1478 @0x2a
0x144e…1485 at002b = ╱20╱…╱ // 0x1479 @0x2b
0x144e…1485 at002c = ╱20╱…╱ // 0x147a @0x2c
0x144e…1485 at002d = ╱4d╱M╱ // 0x147b @0x2d
0x144e…1485 at002e = ╱4f╱O╱ // 0x147c @0x2e
0x144e…1485 at002f = ╱4d╱M╱ // 0x147d @0x2f
0x144e…1485 at0030 = ╱53╱S╱ // 0x147e @0x30
0x144e…1485 at0031 = ╱20╱…╱ // 0x147f @0x31
0x144e…1485 at0032 = ╱20╱…╱ // 0x1480 @0x32
0x144e…1485 at0033 = ╱4b╱K╱ // 0x1481 @0x33
0x144e…1485 at0034 = ╱4f╱O╱ // 0x1482 @0x34
0x144e…1485 at0035 = ╱22╱"╱ // 0x1483 @0x35
0x144e…1485 at0036 = EOL // 0x1484 @0x36
0x144e…1485 }
0x1485…14bc aaaa 01950 PRINT "<C0106>…………NR……………………………………………………………………KODE……NU"
0x1485…14bc LineComal80 {
0x1485…14bc ptr = 0xaaaa // 0x1485 @0x0
0x1485…14bc lno = 0x079e // 0x1487 @0x2
0x1485…14bc at0004 = ╱92╱ PRINT ╱ // 0x1489 @0x4
0x1485…14bc at0005 = ╱22╱"╱ // 0x148a @0x5
0x1485…14bc at0006 = ╱3c╱<╱ // 0x148b @0x6
0x1485…14bc at0007 = ╱43╱C╱ // 0x148c @0x7
0x1485…14bc at0008 = ╱30╱0╱ // 0x148d @0x8
0x1485…14bc at0009 = ╱31╱1╱ // 0x148e @0x9
0x1485…14bc at000a = ╱30╱0╱ // 0x148f @0xa
0x1485…14bc at000b = ╱36╱6╱ // 0x1490 @0xb
0x1485…14bc at000c = ╱3e╱>╱ // 0x1491 @0xc
0x1485…14bc at000d = ╱20╱…╱ // 0x1492 @0xd
0x1485…14bc at000e = ╱20╱…╱ // 0x1493 @0xe
0x1485…14bc at000f = ╱20╱…╱ // 0x1494 @0xf
0x1485…14bc at0010 = ╱20╱…╱ // 0x1495 @0x10
0x1485…14bc at0011 = ╱4e╱N╱ // 0x1496 @0x11
0x1485…14bc at0012 = ╱52╱R╱ // 0x1497 @0x12
0x1485…14bc at0013 = ╱20╱…╱ // 0x1498 @0x13
0x1485…14bc at0014 = ╱20╱…╱ // 0x1499 @0x14
0x1485…14bc at0015 = ╱20╱…╱ // 0x149a @0x15
0x1485…14bc at0016 = ╱20╱…╱ // 0x149b @0x16
0x1485…14bc at0017 = ╱20╱…╱ // 0x149c @0x17
0x1485…14bc at0018 = ╱20╱…╱ // 0x149d @0x18
0x1485…14bc at0019 = ╱20╱…╱ // 0x149e @0x19
0x1485…14bc at001a = ╱20╱…╱ // 0x149f @0x1a
0x1485…14bc at001b = ╱20╱…╱ // 0x14a0 @0x1b
0x1485…14bc at001c = ╱20╱…╱ // 0x14a1 @0x1c
0x1485…14bc at001d = ╱20╱…╱ // 0x14a2 @0x1d
0x1485…14bc at001e = ╱20╱…╱ // 0x14a3 @0x1e
0x1485…14bc at001f = ╱20╱…╱ // 0x14a4 @0x1f
0x1485…14bc at0020 = ╱20╱…╱ // 0x14a5 @0x20
0x1485…14bc at0021 = ╱20╱…╱ // 0x14a6 @0x21
0x1485…14bc at0022 = ╱20╱…╱ // 0x14a7 @0x22
0x1485…14bc at0023 = ╱20╱…╱ // 0x14a8 @0x23
0x1485…14bc at0024 = ╱20╱…╱ // 0x14a9 @0x24
0x1485…14bc at0025 = ╱20╱…╱ // 0x14aa @0x25
0x1485…14bc at0026 = ╱20╱…╱ // 0x14ab @0x26
0x1485…14bc at0027 = ╱20╱…╱ // 0x14ac @0x27
0x1485…14bc at0028 = ╱20╱…╱ // 0x14ad @0x28
0x1485…14bc at0029 = ╱20╱…╱ // 0x14ae @0x29
0x1485…14bc at002a = ╱20╱…╱ // 0x14af @0x2a
0x1485…14bc at002b = ╱20╱…╱ // 0x14b0 @0x2b
0x1485…14bc at002c = ╱20╱…╱ // 0x14b1 @0x2c
0x1485…14bc at002d = ╱4b╱K╱ // 0x14b2 @0x2d
0x1485…14bc at002e = ╱4f╱O╱ // 0x14b3 @0x2e
0x1485…14bc at002f = ╱44╱D╱ // 0x14b4 @0x2f
0x1485…14bc at0030 = ╱45╱E╱ // 0x14b5 @0x30
0x1485…14bc at0031 = ╱20╱…╱ // 0x14b6 @0x31
0x1485…14bc at0032 = ╱20╱…╱ // 0x14b7 @0x32
0x1485…14bc at0033 = ╱4e╱N╱ // 0x14b8 @0x33
0x1485…14bc at0034 = ╱55╱U╱ // 0x14b9 @0x34
0x1485…14bc at0035 = ╱22╱"╱ // 0x14ba @0x35
0x1485…14bc at0036 = EOL // 0x14bb @0x36
0x1485…14bc }
0x14bc…14f3 aae1 01960 PRINT "<C0107>----------------------------------------"
0x14bc…14f3 LineComal80 {
0x14bc…14f3 ptr = 0xaae1 // 0x14bc @0x0
0x14bc…14f3 lno = 0x07a8 // 0x14be @0x2
0x14bc…14f3 at0004 = ╱92╱ PRINT ╱ // 0x14c0 @0x4
0x14bc…14f3 at0005 = ╱22╱"╱ // 0x14c1 @0x5
0x14bc…14f3 at0006 = ╱3c╱<╱ // 0x14c2 @0x6
0x14bc…14f3 at0007 = ╱43╱C╱ // 0x14c3 @0x7
0x14bc…14f3 at0008 = ╱30╱0╱ // 0x14c4 @0x8
0x14bc…14f3 at0009 = ╱31╱1╱ // 0x14c5 @0x9
0x14bc…14f3 at000a = ╱30╱0╱ // 0x14c6 @0xa
0x14bc…14f3 at000b = ╱37╱7╱ // 0x14c7 @0xb
0x14bc…14f3 at000c = ╱3e╱>╱ // 0x14c8 @0xc
0x14bc…14f3 at000d = ╱2d╱-╱ // 0x14c9 @0xd
0x14bc…14f3 at000e = ╱2d╱-╱ // 0x14ca @0xe
0x14bc…14f3 at000f = ╱2d╱-╱ // 0x14cb @0xf
0x14bc…14f3 at0010 = ╱2d╱-╱ // 0x14cc @0x10
0x14bc…14f3 at0011 = ╱2d╱-╱ // 0x14cd @0x11
0x14bc…14f3 at0012 = ╱2d╱-╱ // 0x14ce @0x12
0x14bc…14f3 at0013 = ╱2d╱-╱ // 0x14cf @0x13
0x14bc…14f3 at0014 = ╱2d╱-╱ // 0x14d0 @0x14
0x14bc…14f3 at0015 = ╱2d╱-╱ // 0x14d1 @0x15
0x14bc…14f3 at0016 = ╱2d╱-╱ // 0x14d2 @0x16
0x14bc…14f3 at0017 = ╱2d╱-╱ // 0x14d3 @0x17
0x14bc…14f3 at0018 = ╱2d╱-╱ // 0x14d4 @0x18
0x14bc…14f3 at0019 = ╱2d╱-╱ // 0x14d5 @0x19
0x14bc…14f3 at001a = ╱2d╱-╱ // 0x14d6 @0x1a
0x14bc…14f3 at001b = ╱2d╱-╱ // 0x14d7 @0x1b
0x14bc…14f3 at001c = ╱2d╱-╱ // 0x14d8 @0x1c
0x14bc…14f3 at001d = ╱2d╱-╱ // 0x14d9 @0x1d
0x14bc…14f3 at001e = ╱2d╱-╱ // 0x14da @0x1e
0x14bc…14f3 at001f = ╱2d╱-╱ // 0x14db @0x1f
0x14bc…14f3 at0020 = ╱2d╱-╱ // 0x14dc @0x20
0x14bc…14f3 at0021 = ╱2d╱-╱ // 0x14dd @0x21
0x14bc…14f3 at0022 = ╱2d╱-╱ // 0x14de @0x22
0x14bc…14f3 at0023 = ╱2d╱-╱ // 0x14df @0x23
0x14bc…14f3 at0024 = ╱2d╱-╱ // 0x14e0 @0x24
0x14bc…14f3 at0025 = ╱2d╱-╱ // 0x14e1 @0x25
0x14bc…14f3 at0026 = ╱2d╱-╱ // 0x14e2 @0x26
0x14bc…14f3 at0027 = ╱2d╱-╱ // 0x14e3 @0x27
0x14bc…14f3 at0028 = ╱2d╱-╱ // 0x14e4 @0x28
0x14bc…14f3 at0029 = ╱2d╱-╱ // 0x14e5 @0x29
0x14bc…14f3 at002a = ╱2d╱-╱ // 0x14e6 @0x2a
0x14bc…14f3 at002b = ╱2d╱-╱ // 0x14e7 @0x2b
0x14bc…14f3 at002c = ╱2d╱-╱ // 0x14e8 @0x2c
0x14bc…14f3 at002d = ╱2d╱-╱ // 0x14e9 @0x2d
0x14bc…14f3 at002e = ╱2d╱-╱ // 0x14ea @0x2e
0x14bc…14f3 at002f = ╱2d╱-╱ // 0x14eb @0x2f
0x14bc…14f3 at0030 = ╱2d╱-╱ // 0x14ec @0x30
0x14bc…14f3 at0031 = ╱2d╱-╱ // 0x14ed @0x31
0x14bc…14f3 at0032 = ╱2d╱-╱ // 0x14ee @0x32
0x14bc…14f3 at0033 = ╱2d╱-╱ // 0x14ef @0x33
0x14bc…14f3 at0034 = ╱2d╱-╱ // 0x14f0 @0x34
0x14bc…14f3 at0035 = ╱22╱"╱ // 0x14f1 @0x35
0x14bc…14f3 at0036 = EOL // 0x14f2 @0x36
0x14bc…14f3 }
0x14f3…152a ab18 01970 PRINT "<C4105>NTO-…………………DEBET………………KREDIT………………F/R/S…"
0x14f3…152a LineComal80 {
0x14f3…152a ptr = 0xab18 // 0x14f3 @0x0
0x14f3…152a lno = 0x07b2 // 0x14f5 @0x2
0x14f3…152a at0004 = ╱92╱ PRINT ╱ // 0x14f7 @0x4
0x14f3…152a at0005 = ╱22╱"╱ // 0x14f8 @0x5
0x14f3…152a at0006 = ╱3c╱<╱ // 0x14f9 @0x6
0x14f3…152a at0007 = ╱43╱C╱ // 0x14fa @0x7
0x14f3…152a at0008 = ╱34╱4╱ // 0x14fb @0x8
0x14f3…152a at0009 = ╱31╱1╱ // 0x14fc @0x9
0x14f3…152a at000a = ╱30╱0╱ // 0x14fd @0xa
0x14f3…152a at000b = ╱35╱5╱ // 0x14fe @0xb
0x14f3…152a at000c = ╱3e╱>╱ // 0x14ff @0xc
0x14f3…152a at000d = ╱4e╱N╱ // 0x1500 @0xd
0x14f3…152a at000e = ╱54╱T╱ // 0x1501 @0xe
0x14f3…152a at000f = ╱4f╱O╱ // 0x1502 @0xf
0x14f3…152a at0010 = ╱2d╱-╱ // 0x1503 @0x10
0x14f3…152a at0011 = ╱20╱…╱ // 0x1504 @0x11
0x14f3…152a at0012 = ╱20╱…╱ // 0x1505 @0x12
0x14f3…152a at0013 = ╱20╱…╱ // 0x1506 @0x13
0x14f3…152a at0014 = ╱20╱…╱ // 0x1507 @0x14
0x14f3…152a at0015 = ╱20╱…╱ // 0x1508 @0x15
0x14f3…152a at0016 = ╱20╱…╱ // 0x1509 @0x16
0x14f3…152a at0017 = ╱20╱…╱ // 0x150a @0x17
0x14f3…152a at0018 = ╱44╱D╱ // 0x150b @0x18
0x14f3…152a at0019 = ╱45╱E╱ // 0x150c @0x19
0x14f3…152a at001a = ╱42╱B╱ // 0x150d @0x1a
0x14f3…152a at001b = ╱45╱E╱ // 0x150e @0x1b
0x14f3…152a at001c = ╱54╱T╱ // 0x150f @0x1c
0x14f3…152a at001d = ╱20╱…╱ // 0x1510 @0x1d
0x14f3…152a at001e = ╱20╱…╱ // 0x1511 @0x1e
0x14f3…152a at001f = ╱20╱…╱ // 0x1512 @0x1f
0x14f3…152a at0020 = ╱20╱…╱ // 0x1513 @0x20
0x14f3…152a at0021 = ╱20╱…╱ // 0x1514 @0x21
0x14f3…152a at0022 = ╱20╱…╱ // 0x1515 @0x22
0x14f3…152a at0023 = ╱4b╱K╱ // 0x1516 @0x23
0x14f3…152a at0024 = ╱52╱R╱ // 0x1517 @0x24
0x14f3…152a at0025 = ╱45╱E╱ // 0x1518 @0x25
0x14f3…152a at0026 = ╱44╱D╱ // 0x1519 @0x26
0x14f3…152a at0027 = ╱49╱I╱ // 0x151a @0x27
0x14f3…152a at0028 = ╱54╱T╱ // 0x151b @0x28
0x14f3…152a at0029 = ╱20╱…╱ // 0x151c @0x29
0x14f3…152a at002a = ╱20╱…╱ // 0x151d @0x2a
0x14f3…152a at002b = ╱20╱…╱ // 0x151e @0x2b
0x14f3…152a at002c = ╱20╱…╱ // 0x151f @0x2c
0x14f3…152a at002d = ╱20╱…╱ // 0x1520 @0x2d
0x14f3…152a at002e = ╱20╱…╱ // 0x1521 @0x2e
0x14f3…152a at002f = ╱46╱F╱ // 0x1522 @0x2f
0x14f3…152a at0030 = ╱2f╱/╱ // 0x1523 @0x30
0x14f3…152a at0031 = ╱52╱R╱ // 0x1524 @0x31
0x14f3…152a at0032 = ╱2f╱/╱ // 0x1525 @0x32
0x14f3…152a at0033 = ╱53╱S╱ // 0x1526 @0x33
0x14f3…152a at0034 = ╱20╱…╱ // 0x1527 @0x34
0x14f3…152a at0035 = ╱22╱"╱ // 0x1528 @0x35
0x14f3…152a at0036 = EOL // 0x1529 @0x36
0x14f3…152a }
0x152a…1560 ab4e 01980 PRINT "<C4106>MMER……………………………………………………………………………………………"
0x152a…1560 LineComal80 {
0x152a…1560 ptr = 0xab4e // 0x152a @0x0
0x152a…1560 lno = 0x07bc // 0x152c @0x2
0x152a…1560 at0004 = ╱92╱ PRINT ╱ // 0x152e @0x4
0x152a…1560 at0005 = ╱22╱"╱ // 0x152f @0x5
0x152a…1560 at0006 = ╱3c╱<╱ // 0x1530 @0x6
0x152a…1560 at0007 = ╱43╱C╱ // 0x1531 @0x7
0x152a…1560 at0008 = ╱34╱4╱ // 0x1532 @0x8
0x152a…1560 at0009 = ╱31╱1╱ // 0x1533 @0x9
0x152a…1560 at000a = ╱30╱0╱ // 0x1534 @0xa
0x152a…1560 at000b = ╱36╱6╱ // 0x1535 @0xb
0x152a…1560 at000c = ╱3e╱>╱ // 0x1536 @0xc
0x152a…1560 at000d = ╱4d╱M╱ // 0x1537 @0xd
0x152a…1560 at000e = ╱4d╱M╱ // 0x1538 @0xe
0x152a…1560 at000f = ╱45╱E╱ // 0x1539 @0xf
0x152a…1560 at0010 = ╱52╱R╱ // 0x153a @0x10
0x152a…1560 at0011 = ╱20╱…╱ // 0x153b @0x11
0x152a…1560 at0012 = ╱20╱…╱ // 0x153c @0x12
0x152a…1560 at0013 = ╱20╱…╱ // 0x153d @0x13
0x152a…1560 at0014 = ╱20╱…╱ // 0x153e @0x14
0x152a…1560 at0015 = ╱20╱…╱ // 0x153f @0x15
0x152a…1560 at0016 = ╱20╱…╱ // 0x1540 @0x16
0x152a…1560 at0017 = ╱20╱…╱ // 0x1541 @0x17
0x152a…1560 at0018 = ╱20╱…╱ // 0x1542 @0x18
0x152a…1560 at0019 = ╱20╱…╱ // 0x1543 @0x19
0x152a…1560 at001a = ╱20╱…╱ // 0x1544 @0x1a
0x152a…1560 at001b = ╱20╱…╱ // 0x1545 @0x1b
0x152a…1560 at001c = ╱20╱…╱ // 0x1546 @0x1c
0x152a…1560 at001d = ╱20╱…╱ // 0x1547 @0x1d
0x152a…1560 at001e = ╱20╱…╱ // 0x1548 @0x1e
0x152a…1560 at001f = ╱20╱…╱ // 0x1549 @0x1f
0x152a…1560 at0020 = ╱20╱…╱ // 0x154a @0x20
0x152a…1560 at0021 = ╱20╱…╱ // 0x154b @0x21
0x152a…1560 at0022 = ╱20╱…╱ // 0x154c @0x22
0x152a…1560 at0023 = ╱20╱…╱ // 0x154d @0x23
0x152a…1560 at0024 = ╱20╱…╱ // 0x154e @0x24
0x152a…1560 at0025 = ╱20╱…╱ // 0x154f @0x25
0x152a…1560 at0026 = ╱20╱…╱ // 0x1550 @0x26
0x152a…1560 at0027 = ╱20╱…╱ // 0x1551 @0x27
0x152a…1560 at0028 = ╱20╱…╱ // 0x1552 @0x28
0x152a…1560 at0029 = ╱20╱…╱ // 0x1553 @0x29
0x152a…1560 at002a = ╱20╱…╱ // 0x1554 @0x2a
0x152a…1560 at002b = ╱20╱…╱ // 0x1555 @0x2b
0x152a…1560 at002c = ╱20╱…╱ // 0x1556 @0x2c
0x152a…1560 at002d = ╱20╱…╱ // 0x1557 @0x2d
0x152a…1560 at002e = ╱20╱…╱ // 0x1558 @0x2e
0x152a…1560 at002f = ╱20╱…╱ // 0x1559 @0x2f
0x152a…1560 at0030 = ╱20╱…╱ // 0x155a @0x30
0x152a…1560 at0031 = ╱20╱…╱ // 0x155b @0x31
0x152a…1560 at0032 = ╱20╱…╱ // 0x155c @0x32
0x152a…1560 at0033 = ╱20╱…╱ // 0x155d @0x33
0x152a…1560 at0034 = ╱22╱"╱ // 0x155e @0x34
0x152a…1560 at0035 = EOL // 0x155f @0x35
0x152a…1560 }
0x1560…1597 ab85 01990 PRINT "<C4107>----------------------------------------"
0x1560…1597 LineComal80 {
0x1560…1597 ptr = 0xab85 // 0x1560 @0x0
0x1560…1597 lno = 0x07c6 // 0x1562 @0x2
0x1560…1597 at0004 = ╱92╱ PRINT ╱ // 0x1564 @0x4
0x1560…1597 at0005 = ╱22╱"╱ // 0x1565 @0x5
0x1560…1597 at0006 = ╱3c╱<╱ // 0x1566 @0x6
0x1560…1597 at0007 = ╱43╱C╱ // 0x1567 @0x7
0x1560…1597 at0008 = ╱34╱4╱ // 0x1568 @0x8
0x1560…1597 at0009 = ╱31╱1╱ // 0x1569 @0x9
0x1560…1597 at000a = ╱30╱0╱ // 0x156a @0xa
0x1560…1597 at000b = ╱37╱7╱ // 0x156b @0xb
0x1560…1597 at000c = ╱3e╱>╱ // 0x156c @0xc
0x1560…1597 at000d = ╱2d╱-╱ // 0x156d @0xd
0x1560…1597 at000e = ╱2d╱-╱ // 0x156e @0xe
0x1560…1597 at000f = ╱2d╱-╱ // 0x156f @0xf
0x1560…1597 at0010 = ╱2d╱-╱ // 0x1570 @0x10
0x1560…1597 at0011 = ╱2d╱-╱ // 0x1571 @0x11
0x1560…1597 at0012 = ╱2d╱-╱ // 0x1572 @0x12
0x1560…1597 at0013 = ╱2d╱-╱ // 0x1573 @0x13
0x1560…1597 at0014 = ╱2d╱-╱ // 0x1574 @0x14
0x1560…1597 at0015 = ╱2d╱-╱ // 0x1575 @0x15
0x1560…1597 at0016 = ╱2d╱-╱ // 0x1576 @0x16
0x1560…1597 at0017 = ╱2d╱-╱ // 0x1577 @0x17
0x1560…1597 at0018 = ╱2d╱-╱ // 0x1578 @0x18
0x1560…1597 at0019 = ╱2d╱-╱ // 0x1579 @0x19
0x1560…1597 at001a = ╱2d╱-╱ // 0x157a @0x1a
0x1560…1597 at001b = ╱2d╱-╱ // 0x157b @0x1b
0x1560…1597 at001c = ╱2d╱-╱ // 0x157c @0x1c
0x1560…1597 at001d = ╱2d╱-╱ // 0x157d @0x1d
0x1560…1597 at001e = ╱2d╱-╱ // 0x157e @0x1e
0x1560…1597 at001f = ╱2d╱-╱ // 0x157f @0x1f
0x1560…1597 at0020 = ╱2d╱-╱ // 0x1580 @0x20
0x1560…1597 at0021 = ╱2d╱-╱ // 0x1581 @0x21
0x1560…1597 at0022 = ╱2d╱-╱ // 0x1582 @0x22
0x1560…1597 at0023 = ╱2d╱-╱ // 0x1583 @0x23
0x1560…1597 at0024 = ╱2d╱-╱ // 0x1584 @0x24
0x1560…1597 at0025 = ╱2d╱-╱ // 0x1585 @0x25
0x1560…1597 at0026 = ╱2d╱-╱ // 0x1586 @0x26
0x1560…1597 at0027 = ╱2d╱-╱ // 0x1587 @0x27
0x1560…1597 at0028 = ╱2d╱-╱ // 0x1588 @0x28
0x1560…1597 at0029 = ╱2d╱-╱ // 0x1589 @0x29
0x1560…1597 at002a = ╱2d╱-╱ // 0x158a @0x2a
0x1560…1597 at002b = ╱2d╱-╱ // 0x158b @0x2b
0x1560…1597 at002c = ╱2d╱-╱ // 0x158c @0x2c
0x1560…1597 at002d = ╱2d╱-╱ // 0x158d @0x2d
0x1560…1597 at002e = ╱2d╱-╱ // 0x158e @0x2e
0x1560…1597 at002f = ╱2d╱-╱ // 0x158f @0x2f
0x1560…1597 at0030 = ╱2d╱-╱ // 0x1590 @0x30
0x1560…1597 at0031 = ╱2d╱-╱ // 0x1591 @0x31
0x1560…1597 at0032 = ╱2d╱-╱ // 0x1592 @0x32
0x1560…1597 at0033 = ╱2d╱-╱ // 0x1593 @0x33
0x1560…1597 at0034 = ╱2d╱-╱ // 0x1594 @0x34
0x1560…1597 at0035 = ╱22╱"╱ // 0x1595 @0x35
0x1560…1597 at0036 = EOL // 0x1596 @0x36
0x1560…1597 }
0x1597…15a9 ab97 02000 ENDPROC DIV_POSHOVED
0x1597…15a9 LineComal80 {
0x1597…15a9 ptr = 0xab97 // 0x1597 @0x0
0x1597…15a9 lno = 0x07d0 // 0x1599 @0x2
0x1597…15a9 at0004 = ╱9f╱ ENDPROC ╱ // 0x159b @0x4
0x1597…15a9 at0005 = ╱44╱D╱ // 0x159c @0x5
0x1597…15a9 at0006 = ╱49╱I╱ // 0x159d @0x6
0x1597…15a9 at0007 = ╱56╱V╱ // 0x159e @0x7
0x1597…15a9 at0008 = ╱5f╱_╱ // 0x159f @0x8
0x1597…15a9 at0009 = ╱50╱P╱ // 0x15a0 @0x9
0x1597…15a9 at000a = ╱4f╱O╱ // 0x15a1 @0xa
0x1597…15a9 at000b = ╱53╱S╱ // 0x15a2 @0xb
0x1597…15a9 at000c = ╱48╱H╱ // 0x15a3 @0xc
0x1597…15a9 at000d = ╱4f╱O╱ // 0x15a4 @0xd
0x1597…15a9 at000e = ╱56╱V╱ // 0x15a5 @0xe
0x1597…15a9 at000f = ╱45╱E╱ // 0x15a6 @0xf
0x1597…15a9 at0010 = ╱44╱D╱ // 0x15a7 @0x10
0x1597…15a9 at0011 = EOL // 0x15a8 @0x11
0x1597…15a9 }
0x15a9…15ae ab9c 02010
0x15a9…15ae LineComal80 {
0x15a9…15ae ptr = 0xab9c // 0x15a9 @0x0
0x15a9…15ae lno = 0x07da // 0x15ab @0x2
0x15a9…15ae at0004 = EOL // 0x15ad @0x4
0x15a9…15ae }
0x15ae…15c6 abb4 02020 PROC OVERSKRIFT ( ST $ , L )
0x15ae…15c6 LineComal80 {
0x15ae…15c6 ptr = 0xabb4 // 0x15ae @0x0
0x15ae…15c6 lno = 0x07e4 // 0x15b0 @0x2
0x15ae…15c6 at0004 = ╱9e00╱ PROC ╱ // 0x15b2 @0x4
0x15ae…15c6 at0006 = ╱4f╱O╱ // 0x15b4 @0x6
0x15ae…15c6 at0007 = ╱56╱V╱ // 0x15b5 @0x7
0x15ae…15c6 at0008 = ╱45╱E╱ // 0x15b6 @0x8
0x15ae…15c6 at0009 = ╱52╱R╱ // 0x15b7 @0x9
0x15ae…15c6 at000a = ╱53╱S╱ // 0x15b8 @0xa
0x15ae…15c6 at000b = ╱4b╱K╱ // 0x15b9 @0xb
0x15ae…15c6 at000c = ╱52╱R╱ // 0x15ba @0xc
0x15ae…15c6 at000d = ╱49╱I╱ // 0x15bb @0xd
0x15ae…15c6 at000e = ╱46╱F╱ // 0x15bc @0xe
0x15ae…15c6 at000f = ╱54╱T╱ // 0x15bd @0xf
0x15ae…15c6 at0010 = ╱ed╱ ( ╱ // 0x15be @0x10
0x15ae…15c6 at0011 = ╱53╱S╱ // 0x15bf @0x11
0x15ae…15c6 at0012 = ╱54╱T╱ // 0x15c0 @0x12
0x15ae…15c6 at0013 = ╱ef╱ $ ╱ // 0x15c1 @0x13
0x15ae…15c6 at0014 = ╱ec╱ , ╱ // 0x15c2 @0x14
0x15ae…15c6 at0015 = ╱4c╱L╱ // 0x15c3 @0x15
0x15ae…15c6 at0016 = ╱ee╱ ) ╱ // 0x15c4 @0x16
0x15ae…15c6 at0017 = EOL // 0x15c5 @0x17
0x15ae…15c6 }
0x15c6…15ec abda 02030 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
0x15c6…15ec LineComal80 {
0x15c6…15ec ptr = 0xabda // 0x15c6 @0x0
0x15c6…15ec lno = 0x07ee // 0x15c8 @0x2
0x15c6…15ec at0004 = ╱92╱ PRINT ╱ // 0x15ca @0x4
0x15c6…15ec at0005 = ╱22╱"╱ // 0x15cb @0x5
0x15c6…15ec at0006 = ╱3c╱<╱ // 0x15cc @0x6
0x15c6…15ec at0007 = ╱58╱X╱ // 0x15cd @0x7
0x15c6…15ec at0008 = ╱43╱C╱ // 0x15ce @0x8
0x15c6…15ec at0009 = ╱30╱0╱ // 0x15cf @0x9
0x15c6…15ec at000a = ╱31╱1╱ // 0x15d0 @0xa
0x15c6…15ec at000b = ╱30╱0╱ // 0x15d1 @0xb
0x15c6…15ec at000c = ╱31╱1╱ // 0x15d2 @0xc
0x15c6…15ec at000d = ╱3e╱>╱ // 0x15d3 @0xd
0x15c6…15ec at000e = ╱46╱F╱ // 0x15d4 @0xe
0x15c6…15ec at000f = ╱69╱i╱ // 0x15d5 @0xf
0x15c6…15ec at0010 = ╱72╱r╱ // 0x15d6 @0x10
0x15c6…15ec at0011 = ╱6d╱m╱ // 0x15d7 @0x11
0x15c6…15ec at0012 = ╱61╱a╱ // 0x15d8 @0x12
0x15c6…15ec at0013 = ╱6e╱n╱ // 0x15d9 @0x13
0x15c6…15ec at0014 = ╱61╱a╱ // 0x15da @0x14
0x15c6…15ec at0015 = ╱76╱v╱ // 0x15db @0x15
0x15c6…15ec at0016 = ╱6e╱n╱ // 0x15dc @0x16
0x15c6…15ec at0017 = ╱3a╱:╱ // 0x15dd @0x17
0x15c6…15ec at0018 = ╱20╱…╱ // 0x15de @0x18
0x15c6…15ec at0019 = ╱22╱"╱ // 0x15df @0x19
0x15c6…15ec at001a = ╱ea╱ ; ╱ // 0x15e0 @0x1a
0x15c6…15ec at001b = ╱46╱F╱ // 0x15e1 @0x1b
0x15c6…15ec at001c = ╱49╱I╱ // 0x15e2 @0x1c
0x15c6…15ec at001d = ╱52╱R╱ // 0x15e3 @0x1d
0x15c6…15ec at001e = ╱4d╱M╱ // 0x15e4 @0x1e
0x15c6…15ec at001f = ╱41╱A╱ // 0x15e5 @0x1f
0x15c6…15ec at0020 = ╱4e╱N╱ // 0x15e6 @0x20
0x15c6…15ec at0021 = ╱41╱A╱ // 0x15e7 @0x21
0x15c6…15ec at0022 = ╱56╱V╱ // 0x15e8 @0x22
0x15c6…15ec at0023 = ╱4e╱N╱ // 0x15e9 @0x23
0x15c6…15ec at0024 = ╱ef╱ $ ╱ // 0x15ea @0x24
0x15c6…15ec at0025 = EOL // 0x15eb @0x25
0x15c6…15ec }
0x15ec…1634 ac22 02040 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
0x15ec…1634 LineComal80 {
0x15ec…1634 ptr = 0xac22 // 0x15ec @0x0
0x15ec…1634 lno = 0x07f8 // 0x15ee @0x2
0x15ec…1634 at0004 = ╱92╱ PRINT ╱ // 0x15f0 @0x4
0x15ec…1634 at0005 = ╱22╱"╱ // 0x15f1 @0x5
0x15ec…1634 at0006 = ╱3c╱<╱ // 0x15f2 @0x6
0x15ec…1634 at0007 = ╱53╱S╱ // 0x15f3 @0x7
0x15ec…1634 at0008 = ╱43╱C╱ // 0x15f4 @0x8
0x15ec…1634 at0009 = ╱36╱6╱ // 0x15f5 @0x9
0x15ec…1634 at000a = ╱35╱5╱ // 0x15f6 @0xa
0x15ec…1634 at000b = ╱30╱0╱ // 0x15f7 @0xb
0x15ec…1634 at000c = ╱31╱1╱ // 0x15f8 @0xc
0x15ec…1634 at000d = ╱3e╱>╱ // 0x15f9 @0xd
0x15ec…1634 at000e = ╱44╱D╱ // 0x15fa @0xe
0x15ec…1634 at000f = ╱61╱a╱ // 0x15fb @0xf
0x15ec…1634 at0010 = ╱74╱t╱ // 0x15fc @0x10
0x15ec…1634 at0011 = ╱6f╱o╱ // 0x15fd @0x11
0x15ec…1634 at0012 = ╱3a╱:╱ // 0x15fe @0x12
0x15ec…1634 at0013 = ╱20╱…╱ // 0x15ff @0x13
0x15ec…1634 at0014 = ╱22╱"╱ // 0x1600 @0x14
0x15ec…1634 at0015 = ╱ea╱ ; ╱ // 0x1601 @0x15
0x15ec…1634 at0016 = ╱53╱S╱ // 0x1602 @0x16
0x15ec…1634 at0017 = ╱59╱Y╱ // 0x1603 @0x17
0x15ec…1634 at0018 = ╱53╱S╱ // 0x1604 @0x18
0x15ec…1634 at0019 = ╱54╱T╱ // 0x1605 @0x19
0x15ec…1634 at001a = ╱5f╱_╱ // 0x1606 @0x1a
0x15ec…1634 at001b = ╱44╱D╱ // 0x1607 @0x1b
0x15ec…1634 at001c = ╱41╱A╱ // 0x1608 @0x1c
0x15ec…1634 at001d = ╱54╱T╱ // 0x1609 @0x1d
0x15ec…1634 at001e = ╱ef╱ $ ╱ // 0x160a @0x1e
0x15ec…1634 at001f = ╱ed╱ ( ╱ // 0x160b @0x1f
0x15ec…1634 at0020 = ╱31╱1╱ // 0x160c @0x20
0x15ec…1634 at0021 = ╱f20100╱ // 0x160d @0x21
0x15ec…1634 at0024 = ╱f1╱ : ╱ // 0x1610 @0x24
0x15ec…1634 at0025 = ╱32╱2╱ // 0x1611 @0x25
0x15ec…1634 at0026 = ╱f20200╱ // 0x1612 @0x26
0x15ec…1634 at0029 = ╱ee╱ ) ╱ // 0x1615 @0x29
0x15ec…1634 at002a = ╱ea╱ ; ╱ // 0x1616 @0x2a
0x15ec…1634 at002b = ╱22╱"╱ // 0x1617 @0x2b
0x15ec…1634 at002c = ╱2e╱.╱ // 0x1618 @0x2c
0x15ec…1634 at002d = ╱22╱"╱ // 0x1619 @0x2d
0x15ec…1634 at002e = ╱ea╱ ; ╱ // 0x161a @0x2e
0x15ec…1634 at002f = ╱53╱S╱ // 0x161b @0x2f
0x15ec…1634 at0030 = ╱59╱Y╱ // 0x161c @0x30
0x15ec…1634 at0031 = ╱53╱S╱ // 0x161d @0x31
0x15ec…1634 at0032 = ╱54╱T╱ // 0x161e @0x32
0x15ec…1634 at0033 = ╱5f╱_╱ // 0x161f @0x33
0x15ec…1634 at0034 = ╱44╱D╱ // 0x1620 @0x34
0x15ec…1634 at0035 = ╱41╱A╱ // 0x1621 @0x35
0x15ec…1634 at0036 = ╱54╱T╱ // 0x1622 @0x36
0x15ec…1634 at0037 = ╱ef╱ $ ╱ // 0x1623 @0x37
0x15ec…1634 at0038 = ╱ed╱ ( ╱ // 0x1624 @0x38
0x15ec…1634 at0039 = ╱33╱3╱ // 0x1625 @0x39
0x15ec…1634 at003a = ╱f20300╱ // 0x1626 @0x3a
0x15ec…1634 at003d = ╱f1╱ : ╱ // 0x1629 @0x3d
0x15ec…1634 at003e = ╱32╱2╱ // 0x162a @0x3e
0x15ec…1634 at003f = ╱f20200╱ // 0x162b @0x3f
0x15ec…1634 at0042 = ╱ee╱ ) ╱ // 0x162e @0x42
0x15ec…1634 at0043 = ╱ea╱ ; ╱ // 0x162f @0x43
0x15ec…1634 at0044 = ╱22╱"╱ // 0x1630 @0x44
0x15ec…1634 at0045 = ╱2e╱.╱ // 0x1631 @0x45
0x15ec…1634 at0046 = ╱22╱"╱ // 0x1632 @0x46
0x15ec…1634 at0047 = EOL // 0x1633 @0x47
0x15ec…1634 }
0x1634…164e ac3c 02050 PRINT SYST_DAT $ ( 5 : 2 )
0x1634…164e LineComal80 {
0x1634…164e ptr = 0xac3c // 0x1634 @0x0
0x1634…164e lno = 0x0802 // 0x1636 @0x2
0x1634…164e at0004 = ╱92╱ PRINT ╱ // 0x1638 @0x4
0x1634…164e at0005 = ╱53╱S╱ // 0x1639 @0x5
0x1634…164e at0006 = ╱59╱Y╱ // 0x163a @0x6
0x1634…164e at0007 = ╱53╱S╱ // 0x163b @0x7
0x1634…164e at0008 = ╱54╱T╱ // 0x163c @0x8
0x1634…164e at0009 = ╱5f╱_╱ // 0x163d @0x9
0x1634…164e at000a = ╱44╱D╱ // 0x163e @0xa
0x1634…164e at000b = ╱41╱A╱ // 0x163f @0xb
0x1634…164e at000c = ╱54╱T╱ // 0x1640 @0xc
0x1634…164e at000d = ╱ef╱ $ ╱ // 0x1641 @0xd
0x1634…164e at000e = ╱ed╱ ( ╱ // 0x1642 @0xe
0x1634…164e at000f = ╱35╱5╱ // 0x1643 @0xf
0x1634…164e at0010 = ╱f20500╱ // 0x1644 @0x10
0x1634…164e at0013 = ╱f1╱ : ╱ // 0x1647 @0x13
0x1634…164e at0014 = ╱32╱2╱ // 0x1648 @0x14
0x1634…164e at0015 = ╱f20200╱ // 0x1649 @0x15
0x1634…164e at0018 = ╱ee╱ ) ╱ // 0x164c @0x18
0x1634…164e at0019 = EOL // 0x164d @0x19
0x1634…164e }
0x164e…166a ac58 02060 CURSOR 34 - INT ( ╱cb╱ ( ST $ ) / 2 ) , L
0x164e…166a LineComal80 {
0x164e…166a ptr = 0xac58 // 0x164e @0x0
0x164e…166a lno = 0x080c // 0x1650 @0x2
0x164e…166a at0004 = ╱a1╱ CURSOR ╱ // 0x1652 @0x4
0x164e…166a at0005 = ╱33╱3╱ // 0x1653 @0x5
0x164e…166a at0006 = ╱34╱4╱ // 0x1654 @0x6
0x164e…166a at0007 = ╱f22200╱ // 0x1655 @0x7
0x164e…166a at000a = ╱e6╱ - ╱ // 0x1658 @0xa
0x164e…166a at000b = ╱c6╱ INT ╱ // 0x1659 @0xb
0x164e…166a at000c = ╱ed╱ ( ╱ // 0x165a @0xc
0x164e…166a at000d = ╱cb╱ // 0x165b @0xd
0x164e…166a at000e = ╱ed╱ ( ╱ // 0x165c @0xe
0x164e…166a at000f = ╱53╱S╱ // 0x165d @0xf
0x164e…166a at0010 = ╱54╱T╱ // 0x165e @0x10
0x164e…166a at0011 = ╱ef╱ $ ╱ // 0x165f @0x11
0x164e…166a at0012 = ╱ee╱ ) ╱ // 0x1660 @0x12
0x164e…166a at0013 = ╱e8╱ / ╱ // 0x1661 @0x13
0x164e…166a at0014 = ╱32╱2╱ // 0x1662 @0x14
0x164e…166a at0015 = ╱f20200╱ // 0x1663 @0x15
0x164e…166a at0018 = ╱ee╱ ) ╱ // 0x1666 @0x18
0x164e…166a at0019 = ╱ec╱ , ╱ // 0x1667 @0x19
0x164e…166a at001a = ╱4c╱L╱ // 0x1668 @0x1a
0x164e…166a at001b = EOL // 0x1669 @0x1b
0x164e…166a }
0x166a…1681 ac6f 02070 PRINT "***…" ; ST $ ; "…***"
0x166a…1681 LineComal80 {
0x166a…1681 ptr = 0xac6f // 0x166a @0x0
0x166a…1681 lno = 0x0816 // 0x166c @0x2
0x166a…1681 at0004 = ╱92╱ PRINT ╱ // 0x166e @0x4
0x166a…1681 at0005 = ╱22╱"╱ // 0x166f @0x5
0x166a…1681 at0006 = ╱2a╱*╱ // 0x1670 @0x6
0x166a…1681 at0007 = ╱2a╱*╱ // 0x1671 @0x7
0x166a…1681 at0008 = ╱2a╱*╱ // 0x1672 @0x8
0x166a…1681 at0009 = ╱20╱…╱ // 0x1673 @0x9
0x166a…1681 at000a = ╱22╱"╱ // 0x1674 @0xa
0x166a…1681 at000b = ╱ea╱ ; ╱ // 0x1675 @0xb
0x166a…1681 at000c = ╱53╱S╱ // 0x1676 @0xc
0x166a…1681 at000d = ╱54╱T╱ // 0x1677 @0xd
0x166a…1681 at000e = ╱ef╱ $ ╱ // 0x1678 @0xe
0x166a…1681 at000f = ╱ea╱ ; ╱ // 0x1679 @0xf
0x166a…1681 at0010 = ╱22╱"╱ // 0x167a @0x10
0x166a…1681 at0011 = ╱20╱…╱ // 0x167b @0x11
0x166a…1681 at0012 = ╱2a╱*╱ // 0x167c @0x12
0x166a…1681 at0013 = ╱2a╱*╱ // 0x167d @0x13
0x166a…1681 at0014 = ╱2a╱*╱ // 0x167e @0x14
0x166a…1681 at0015 = ╱22╱"╱ // 0x167f @0x15
0x166a…1681 at0016 = EOL // 0x1680 @0x16
0x166a…1681 }
0x1681…1691 ac7f 02080 ENDPROC OVERSKRIFT
0x1681…1691 LineComal80 {
0x1681…1691 ptr = 0xac7f // 0x1681 @0x0
0x1681…1691 lno = 0x0820 // 0x1683 @0x2
0x1681…1691 at0004 = ╱9f╱ ENDPROC ╱ // 0x1685 @0x4
0x1681…1691 at0005 = ╱4f╱O╱ // 0x1686 @0x5
0x1681…1691 at0006 = ╱56╱V╱ // 0x1687 @0x6
0x1681…1691 at0007 = ╱45╱E╱ // 0x1688 @0x7
0x1681…1691 at0008 = ╱52╱R╱ // 0x1689 @0x8
0x1681…1691 at0009 = ╱53╱S╱ // 0x168a @0x9
0x1681…1691 at000a = ╱4b╱K╱ // 0x168b @0xa
0x1681…1691 at000b = ╱52╱R╱ // 0x168c @0xb
0x1681…1691 at000c = ╱49╱I╱ // 0x168d @0xc
0x1681…1691 at000d = ╱46╱F╱ // 0x168e @0xd
0x1681…1691 at000e = ╱54╱T╱ // 0x168f @0xe
0x1681…1691 at000f = EOL // 0x1690 @0xf
0x1681…1691 }
0x1691…1696 ac84 02090
0x1691…1696 LineComal80 {
0x1691…1696 ptr = 0xac84 // 0x1691 @0x0
0x1691…1696 lno = 0x082a // 0x1693 @0x2
0x1691…1696 at0004 = EOL // 0x1695 @0x4
0x1691…1696 }
0x1696…16a9 ac97 02100 PROC SL_FEJLLINIE
0x1696…16a9 LineComal80 {
0x1696…16a9 ptr = 0xac97 // 0x1696 @0x0
0x1696…16a9 lno = 0x0834 // 0x1698 @0x2
0x1696…16a9 at0004 = ╱9e20╱ PROC ╱ // 0x169a @0x4
0x1696…16a9 at0006 = ╱53╱S╱ // 0x169c @0x6
0x1696…16a9 at0007 = ╱4c╱L╱ // 0x169d @0x7
0x1696…16a9 at0008 = ╱5f╱_╱ // 0x169e @0x8
0x1696…16a9 at0009 = ╱46╱F╱ // 0x169f @0x9
0x1696…16a9 at000a = ╱45╱E╱ // 0x16a0 @0xa
0x1696…16a9 at000b = ╱4a╱J╱ // 0x16a1 @0xb
0x1696…16a9 at000c = ╱4c╱L╱ // 0x16a2 @0xc
0x1696…16a9 at000d = ╱4c╱L╱ // 0x16a3 @0xd
0x1696…16a9 at000e = ╱49╱I╱ // 0x16a4 @0xe
0x1696…16a9 at000f = ╱4e╱N╱ // 0x16a5 @0xf
0x1696…16a9 at0010 = ╱49╱I╱ // 0x16a6 @0x10
0x1696…16a9 at0011 = ╱45╱E╱ // 0x16a7 @0x11
0x1696…16a9 at0012 = EOL // 0x16a8 @0x12
0x1696…16a9 }
0x16a9…16b6 aca4 02110 LET OK := TRUE
0x16a9…16b6 LineComal80 {
0x16a9…16b6 ptr = 0xaca4 // 0x16a9 @0x0
0x16a9…16b6 lno = 0x083e // 0x16ab @0x2
0x16a9…16b6 at0004 = ╱86╱ LET ╱ // 0x16ad @0x4
0x16a9…16b6 at0005 = ╱4f╱O╱ // 0x16ae @0x5
0x16a9…16b6 at0006 = ╱4b╱K╱ // 0x16af @0x6
0x16a9…16b6 at0007 = ╱f0╱ := ╱ // 0x16b0 @0x7
0x16a9…16b6 at0008 = ╱54╱T╱ // 0x16b1 @0x8
0x16a9…16b6 at0009 = ╱52╱R╱ // 0x16b2 @0x9
0x16a9…16b6 at000a = ╱55╱U╱ // 0x16b3 @0xa
0x16a9…16b6 at000b = ╱45╱E╱ // 0x16b4 @0xb
0x16a9…16b6 at000c = EOL // 0x16b5 @0xc
0x16a9…16b6 }
0x16b6…16ca acb8 02120 PRINT "<C0102>" ; SPC $
0x16b6…16ca LineComal80 {
0x16b6…16ca ptr = 0xacb8 // 0x16b6 @0x0
0x16b6…16ca lno = 0x0848 // 0x16b8 @0x2
0x16b6…16ca at0004 = ╱92╱ PRINT ╱ // 0x16ba @0x4
0x16b6…16ca at0005 = ╱22╱"╱ // 0x16bb @0x5
0x16b6…16ca at0006 = ╱3c╱<╱ // 0x16bc @0x6
0x16b6…16ca at0007 = ╱43╱C╱ // 0x16bd @0x7
0x16b6…16ca at0008 = ╱30╱0╱ // 0x16be @0x8
0x16b6…16ca at0009 = ╱31╱1╱ // 0x16bf @0x9
0x16b6…16ca at000a = ╱30╱0╱ // 0x16c0 @0xa
0x16b6…16ca at000b = ╱32╱2╱ // 0x16c1 @0xb
0x16b6…16ca at000c = ╱3e╱>╱ // 0x16c2 @0xc
0x16b6…16ca at000d = ╱22╱"╱ // 0x16c3 @0xd
0x16b6…16ca at000e = ╱ea╱ ; ╱ // 0x16c4 @0xe
0x16b6…16ca at000f = ╱53╱S╱ // 0x16c5 @0xf
0x16b6…16ca at0010 = ╱50╱P╱ // 0x16c6 @0x10
0x16b6…16ca at0011 = ╱43╱C╱ // 0x16c7 @0x11
0x16b6…16ca at0012 = ╱ef╱ $ ╱ // 0x16c8 @0x12
0x16b6…16ca at0013 = EOL // 0x16c9 @0x13
0x16b6…16ca }
0x16ca…16dc acca 02130 ENDPROC SL_FEJLLINIE
0x16ca…16dc LineComal80 {
0x16ca…16dc ptr = 0xacca // 0x16ca @0x0
0x16ca…16dc lno = 0x0852 // 0x16cc @0x2
0x16ca…16dc at0004 = ╱9f╱ ENDPROC ╱ // 0x16ce @0x4
0x16ca…16dc at0005 = ╱53╱S╱ // 0x16cf @0x5
0x16ca…16dc at0006 = ╱4c╱L╱ // 0x16d0 @0x6
0x16ca…16dc at0007 = ╱5f╱_╱ // 0x16d1 @0x7
0x16ca…16dc at0008 = ╱46╱F╱ // 0x16d2 @0x8
0x16ca…16dc at0009 = ╱45╱E╱ // 0x16d3 @0x9
0x16ca…16dc at000a = ╱4a╱J╱ // 0x16d4 @0xa
0x16ca…16dc at000b = ╱4c╱L╱ // 0x16d5 @0xb
0x16ca…16dc at000c = ╱4c╱L╱ // 0x16d6 @0xc
0x16ca…16dc at000d = ╱49╱I╱ // 0x16d7 @0xd
0x16ca…16dc at000e = ╱4e╱N╱ // 0x16d8 @0xe
0x16ca…16dc at000f = ╱49╱I╱ // 0x16d9 @0xf
0x16ca…16dc at0010 = ╱45╱E╱ // 0x16da @0x10
0x16ca…16dc at0011 = EOL // 0x16db @0x11
0x16ca…16dc }
0x16dc…16e1 (76,) accf 02140
0x16dc…16e1 LineComal80 {
0x16dc…16e1 ptr = 0xaccf // 0x16dc @0x0
0x16dc…16e1 lno = 0x085c // 0x16de @0x2
0x16dc…16e1 at0004 = EOL // 0x16e0 @0x4
0x16dc…16e1 }
0x16e1…16f1 acdf 02150 PROC FEJL ( ST $ )
0x16e1…16f1 LineComal80 {
0x16e1…16f1 ptr = 0xacdf // 0x16e1 @0x0
0x16e1…16f1 lno = 0x0866 // 0x16e3 @0x2
0x16e1…16f1 at0004 = ╱9e21╱ PROC ╱ // 0x16e5 @0x4
0x16e1…16f1 at0006 = ╱46╱F╱ // 0x16e7 @0x6
0x16e1…16f1 at0007 = ╱45╱E╱ // 0x16e8 @0x7
0x16e1…16f1 at0008 = ╱4a╱J╱ // 0x16e9 @0x8
0x16e1…16f1 at0009 = ╱4c╱L╱ // 0x16ea @0x9
0x16e1…16f1 at000a = ╱ed╱ ( ╱ // 0x16eb @0xa
0x16e1…16f1 at000b = ╱53╱S╱ // 0x16ec @0xb
0x16e1…16f1 at000c = ╱54╱T╱ // 0x16ed @0xc
0x16e1…16f1 at000d = ╱ef╱ $ ╱ // 0x16ee @0xd
0x16e1…16f1 at000e = ╱ee╱ ) ╱ // 0x16ef @0xe
0x16e1…16f1 at000f = EOL // 0x16f0 @0xf
0x16e1…16f1 }
0x16f1…16ff aced 02160 LET OK := FALSE
0x16f1…16ff LineComal80 {
0x16f1…16ff ptr = 0xaced // 0x16f1 @0x0
0x16f1…16ff lno = 0x0870 // 0x16f3 @0x2
0x16f1…16ff at0004 = ╱86╱ LET ╱ // 0x16f5 @0x4
0x16f1…16ff at0005 = ╱4f╱O╱ // 0x16f6 @0x5
0x16f1…16ff at0006 = ╱4b╱K╱ // 0x16f7 @0x6
0x16f1…16ff at0007 = ╱f0╱ := ╱ // 0x16f8 @0x7
0x16f1…16ff at0008 = ╱46╱F╱ // 0x16f9 @0x8
0x16f1…16ff at0009 = ╱41╱A╱ // 0x16fa @0x9
0x16f1…16ff at000a = ╱4c╱L╱ // 0x16fb @0xa
0x16f1…16ff at000b = ╱53╱S╱ // 0x16fc @0xb
0x16f1…16ff at000c = ╱45╱E╱ // 0x16fd @0xc
0x16f1…16ff at000d = EOL // 0x16fe @0xd
0x16f1…16ff }
0x16ff…171b ad09 02170 CURSOR 36 - ╱cb╱ ( ST $ ) / 2 , 2
0x16ff…171b LineComal80 {
0x16ff…171b ptr = 0xad09 // 0x16ff @0x0
0x16ff…171b lno = 0x087a // 0x1701 @0x2
0x16ff…171b at0004 = ╱a1╱ CURSOR ╱ // 0x1703 @0x4
0x16ff…171b at0005 = ╱33╱3╱ // 0x1704 @0x5
0x16ff…171b at0006 = ╱36╱6╱ // 0x1705 @0x6
0x16ff…171b at0007 = ╱f22400╱ // 0x1706 @0x7
0x16ff…171b at000a = ╱e6╱ - ╱ // 0x1709 @0xa
0x16ff…171b at000b = ╱cb╱ // 0x170a @0xb
0x16ff…171b at000c = ╱ed╱ ( ╱ // 0x170b @0xc
0x16ff…171b at000d = ╱53╱S╱ // 0x170c @0xd
0x16ff…171b at000e = ╱54╱T╱ // 0x170d @0xe
0x16ff…171b at000f = ╱ef╱ $ ╱ // 0x170e @0xf
0x16ff…171b at0010 = ╱ee╱ ) ╱ // 0x170f @0x10
0x16ff…171b at0011 = ╱e8╱ / ╱ // 0x1710 @0x11
0x16ff…171b at0012 = ╱32╱2╱ // 0x1711 @0x12
0x16ff…171b at0013 = ╱f20200╱ // 0x1712 @0x13
0x16ff…171b at0016 = ╱ec╱ , ╱ // 0x1715 @0x16
0x16ff…171b at0017 = ╱32╱2╱ // 0x1716 @0x17
0x16ff…171b at0018 = ╱f20200╱ // 0x1717 @0x18
0x16ff…171b at001b = EOL // 0x171a @0x1b
0x16ff…171b }
0x171b…173a ad28 02180 PRINT "***…" + ST $ + "…***" ; CHR$ ( 7 )
0x171b…173a LineComal80 {
0x171b…173a ptr = 0xad28 // 0x171b @0x0
0x171b…173a lno = 0x0884 // 0x171d @0x2
0x171b…173a at0004 = ╱92╱ PRINT ╱ // 0x171f @0x4
0x171b…173a at0005 = ╱22╱"╱ // 0x1720 @0x5
0x171b…173a at0006 = ╱2a╱*╱ // 0x1721 @0x6
0x171b…173a at0007 = ╱2a╱*╱ // 0x1722 @0x7
0x171b…173a at0008 = ╱2a╱*╱ // 0x1723 @0x8
0x171b…173a at0009 = ╱20╱…╱ // 0x1724 @0x9
0x171b…173a at000a = ╱22╱"╱ // 0x1725 @0xa
0x171b…173a at000b = ╱eb╱ + ╱ // 0x1726 @0xb
0x171b…173a at000c = ╱53╱S╱ // 0x1727 @0xc
0x171b…173a at000d = ╱54╱T╱ // 0x1728 @0xd
0x171b…173a at000e = ╱ef╱ $ ╱ // 0x1729 @0xe
0x171b…173a at000f = ╱eb╱ + ╱ // 0x172a @0xf
0x171b…173a at0010 = ╱22╱"╱ // 0x172b @0x10
0x171b…173a at0011 = ╱20╱…╱ // 0x172c @0x11
0x171b…173a at0012 = ╱2a╱*╱ // 0x172d @0x12
0x171b…173a at0013 = ╱2a╱*╱ // 0x172e @0x13
0x171b…173a at0014 = ╱2a╱*╱ // 0x172f @0x14
0x171b…173a at0015 = ╱22╱"╱ // 0x1730 @0x15
0x171b…173a at0016 = ╱ea╱ ; ╱ // 0x1731 @0x16
0x171b…173a at0017 = ╱d0╱ CHR$ ╱ // 0x1732 @0x17
0x171b…173a at0018 = ╱ed╱ ( ╱ // 0x1733 @0x18
0x171b…173a at0019 = ╱37╱7╱ // 0x1734 @0x19
0x171b…173a at001a = ╱f20700╱ // 0x1735 @0x1a
0x171b…173a at001d = ╱ee╱ ) ╱ // 0x1738 @0x1d
0x171b…173a at001e = EOL // 0x1739 @0x1e
0x171b…173a }
0x173a…1744 ad32 02190 ENDPROC FEJL
0x173a…1744 LineComal80 {
0x173a…1744 ptr = 0xad32 // 0x173a @0x0
0x173a…1744 lno = 0x088e // 0x173c @0x2
0x173a…1744 at0004 = ╱9f╱ ENDPROC ╱ // 0x173e @0x4
0x173a…1744 at0005 = ╱46╱F╱ // 0x173f @0x5
0x173a…1744 at0006 = ╱45╱E╱ // 0x1740 @0x6
0x173a…1744 at0007 = ╱4a╱J╱ // 0x1741 @0x7
0x173a…1744 at0008 = ╱4c╱L╱ // 0x1742 @0x8
0x173a…1744 at0009 = EOL // 0x1743 @0x9
0x173a…1744 }
0x1744…1749 ad37 02200
0x1744…1749 LineComal80 {
0x1744…1749 ptr = 0xad37 // 0x1744 @0x0
0x1744…1749 lno = 0x0898 // 0x1746 @0x2
0x1744…1749 at0004 = EOL // 0x1748 @0x4
0x1744…1749 }
0x1749…175a d7ae 02210 PROC RET_LINIER
0x1749…175a LineComal80 {
0x1749…175a ptr = 0xd7ae // 0x1749 @0x0
0x1749…175a lno = 0x08a2 // 0x174b @0x2
0x1749…175a at0004 = ╱9e22╱ PROC ╱ // 0x174d @0x4
0x1749…175a at0006 = ╱52╱R╱ // 0x174f @0x6
0x1749…175a at0007 = ╱45╱E╱ // 0x1750 @0x7
0x1749…175a at0008 = ╱54╱T╱ // 0x1751 @0x8
0x1749…175a at0009 = ╱5f╱_╱ // 0x1752 @0x9
0x1749…175a at000a = ╱4c╱L╱ // 0x1753 @0xa
0x1749…175a at000b = ╱49╱I╱ // 0x1754 @0xb
0x1749…175a at000c = ╱4e╱N╱ // 0x1755 @0xc
0x1749…175a at000d = ╱49╱I╱ // 0x1756 @0xd
0x1749…175a at000e = ╱45╱E╱ // 0x1757 @0xe
0x1749…175a at000f = ╱52╱R╱ // 0x1758 @0xf
0x1749…175a at0010 = EOL // 0x1759 @0x10
0x1749…175a }
0x175a…1761 ad4f 02220 REPEAT
0x175a…1761 LineComal80 {
0x175a…1761 ptr = 0xad4f // 0x175a @0x0
0x175a…1761 lno = 0x08ac // 0x175c @0x2
0x175a…1761 at0004 = ╱9723╱ REPEAT ╱ // 0x175e @0x4
0x175a…1761 at0006 = EOL // 0x1760 @0x6
0x175a…1761 }
0x1761…1782 ad70 02230 PRINT "<SC0123>" ; SPC $ ( 1 : 78 )
0x1761…1782 LineComal80 {
0x1761…1782 ptr = 0xad70 // 0x1761 @0x0
0x1761…1782 lno = 0x08b6 // 0x1763 @0x2
0x1761…1782 at0004 = ╱92╱ PRINT ╱ // 0x1765 @0x4
0x1761…1782 at0005 = ╱22╱"╱ // 0x1766 @0x5
0x1761…1782 at0006 = ╱3c╱<╱ // 0x1767 @0x6
0x1761…1782 at0007 = ╱53╱S╱ // 0x1768 @0x7
0x1761…1782 at0008 = ╱43╱C╱ // 0x1769 @0x8
0x1761…1782 at0009 = ╱30╱0╱ // 0x176a @0x9
0x1761…1782 at000a = ╱31╱1╱ // 0x176b @0xa
0x1761…1782 at000b = ╱32╱2╱ // 0x176c @0xb
0x1761…1782 at000c = ╱33╱3╱ // 0x176d @0xc
0x1761…1782 at000d = ╱3e╱>╱ // 0x176e @0xd
0x1761…1782 at000e = ╱22╱"╱ // 0x176f @0xe
0x1761…1782 at000f = ╱ea╱ ; ╱ // 0x1770 @0xf
0x1761…1782 at0010 = ╱53╱S╱ // 0x1771 @0x10
0x1761…1782 at0011 = ╱50╱P╱ // 0x1772 @0x11
0x1761…1782 at0012 = ╱43╱C╱ // 0x1773 @0x12
0x1761…1782 at0013 = ╱ef╱ $ ╱ // 0x1774 @0x13
0x1761…1782 at0014 = ╱ed╱ ( ╱ // 0x1775 @0x14
0x1761…1782 at0015 = ╱31╱1╱ // 0x1776 @0x15
0x1761…1782 at0016 = ╱f20100╱ // 0x1777 @0x16
0x1761…1782 at0019 = ╱f1╱ : ╱ // 0x177a @0x19
0x1761…1782 at001a = ╱37╱7╱ // 0x177b @0x1a
0x1761…1782 at001b = ╱38╱8╱ // 0x177c @0x1b
0x1761…1782 at001c = ╱f24e00╱ // 0x177d @0x1c
0x1761…1782 at001f = ╱ee╱ ) ╱ // 0x1780 @0x1f
0x1761…1782 at0020 = EOL // 0x1781 @0x20
0x1761…1782 }
0x1782…1791 ad7f 02240 LET SVAR $ := "j"
0x1782…1791 LineComal80 {
0x1782…1791 ptr = 0xad7f // 0x1782 @0x0
0x1782…1791 lno = 0x08c0 // 0x1784 @0x2
0x1782…1791 at0004 = ╱86╱ LET ╱ // 0x1786 @0x4
0x1782…1791 at0005 = ╱53╱S╱ // 0x1787 @0x5
0x1782…1791 at0006 = ╱56╱V╱ // 0x1788 @0x6
0x1782…1791 at0007 = ╱41╱A╱ // 0x1789 @0x7
0x1782…1791 at0008 = ╱52╱R╱ // 0x178a @0x8
0x1782…1791 at0009 = ╱ef╱ $ ╱ // 0x178b @0x9
0x1782…1791 at000a = ╱f0╱ := ╱ // 0x178c @0xa
0x1782…1791 at000b = ╱22╱"╱ // 0x178d @0xb
0x1782…1791 at000c = ╱6a╱j╱ // 0x178e @0xc
0x1782…1791 at000d = ╱22╱"╱ // 0x178f @0xd
0x1782…1791 at000e = EOL // 0x1790 @0xe
0x1782…1791 }
0x1791…17d1 adbf 02250 EDIT "<SC1723>Ok…(j)…eller…linienummer…der…skal…rettes?…" : SVAR $
0x1791…17d1 LineComal80 {
0x1791…17d1 ptr = 0xadbf // 0x1791 @0x0
0x1791…17d1 lno = 0x08ca // 0x1793 @0x2
0x1791…17d1 at0004 = ╱b1╱ EDIT ╱ // 0x1795 @0x4
0x1791…17d1 at0005 = ╱22╱"╱ // 0x1796 @0x5
0x1791…17d1 at0006 = ╱3c╱<╱ // 0x1797 @0x6
0x1791…17d1 at0007 = ╱53╱S╱ // 0x1798 @0x7
0x1791…17d1 at0008 = ╱43╱C╱ // 0x1799 @0x8
0x1791…17d1 at0009 = ╱31╱1╱ // 0x179a @0x9
0x1791…17d1 at000a = ╱37╱7╱ // 0x179b @0xa
0x1791…17d1 at000b = ╱32╱2╱ // 0x179c @0xb
0x1791…17d1 at000c = ╱33╱3╱ // 0x179d @0xc
0x1791…17d1 at000d = ╱3e╱>╱ // 0x179e @0xd
0x1791…17d1 at000e = ╱4f╱O╱ // 0x179f @0xe
0x1791…17d1 at000f = ╱6b╱k╱ // 0x17a0 @0xf
0x1791…17d1 at0010 = ╱20╱…╱ // 0x17a1 @0x10
0x1791…17d1 at0011 = ╱28╱(╱ // 0x17a2 @0x11
0x1791…17d1 at0012 = ╱6a╱j╱ // 0x17a3 @0x12
0x1791…17d1 at0013 = ╱29╱)╱ // 0x17a4 @0x13
0x1791…17d1 at0014 = ╱20╱…╱ // 0x17a5 @0x14
0x1791…17d1 at0015 = ╱65╱e╱ // 0x17a6 @0x15
0x1791…17d1 at0016 = ╱6c╱l╱ // 0x17a7 @0x16
0x1791…17d1 at0017 = ╱6c╱l╱ // 0x17a8 @0x17
0x1791…17d1 at0018 = ╱65╱e╱ // 0x17a9 @0x18
0x1791…17d1 at0019 = ╱72╱r╱ // 0x17aa @0x19
0x1791…17d1 at001a = ╱20╱…╱ // 0x17ab @0x1a
0x1791…17d1 at001b = ╱6c╱l╱ // 0x17ac @0x1b
0x1791…17d1 at001c = ╱69╱i╱ // 0x17ad @0x1c
0x1791…17d1 at001d = ╱6e╱n╱ // 0x17ae @0x1d
0x1791…17d1 at001e = ╱69╱i╱ // 0x17af @0x1e
0x1791…17d1 at001f = ╱65╱e╱ // 0x17b0 @0x1f
0x1791…17d1 at0020 = ╱6e╱n╱ // 0x17b1 @0x20
0x1791…17d1 at0021 = ╱75╱u╱ // 0x17b2 @0x21
0x1791…17d1 at0022 = ╱6d╱m╱ // 0x17b3 @0x22
0x1791…17d1 at0023 = ╱6d╱m╱ // 0x17b4 @0x23
0x1791…17d1 at0024 = ╱65╱e╱ // 0x17b5 @0x24
0x1791…17d1 at0025 = ╱72╱r╱ // 0x17b6 @0x25
0x1791…17d1 at0026 = ╱20╱…╱ // 0x17b7 @0x26
0x1791…17d1 at0027 = ╱64╱d╱ // 0x17b8 @0x27
0x1791…17d1 at0028 = ╱65╱e╱ // 0x17b9 @0x28
0x1791…17d1 at0029 = ╱72╱r╱ // 0x17ba @0x29
0x1791…17d1 at002a = ╱20╱…╱ // 0x17bb @0x2a
0x1791…17d1 at002b = ╱73╱s╱ // 0x17bc @0x2b
0x1791…17d1 at002c = ╱6b╱k╱ // 0x17bd @0x2c
0x1791…17d1 at002d = ╱61╱a╱ // 0x17be @0x2d
0x1791…17d1 at002e = ╱6c╱l╱ // 0x17bf @0x2e
0x1791…17d1 at002f = ╱20╱…╱ // 0x17c0 @0x2f
0x1791…17d1 at0030 = ╱72╱r╱ // 0x17c1 @0x30
0x1791…17d1 at0031 = ╱65╱e╱ // 0x17c2 @0x31
0x1791…17d1 at0032 = ╱74╱t╱ // 0x17c3 @0x32
0x1791…17d1 at0033 = ╱74╱t╱ // 0x17c4 @0x33
0x1791…17d1 at0034 = ╱65╱e╱ // 0x17c5 @0x34
0x1791…17d1 at0035 = ╱73╱s╱ // 0x17c6 @0x35
0x1791…17d1 at0036 = ╱3f╱?╱ // 0x17c7 @0x36
0x1791…17d1 at0037 = ╱20╱…╱ // 0x17c8 @0x37
0x1791…17d1 at0038 = ╱22╱"╱ // 0x17c9 @0x38
0x1791…17d1 at0039 = ╱f1╱ : ╱ // 0x17ca @0x39
0x1791…17d1 at003a = ╱53╱S╱ // 0x17cb @0x3a
0x1791…17d1 at003b = ╱56╱V╱ // 0x17cc @0x3b
0x1791…17d1 at003c = ╱41╱A╱ // 0x17cd @0x3c
0x1791…17d1 at003d = ╱52╱R╱ // 0x17ce @0x3d
0x1791…17d1 at003e = ╱ef╱ $ ╱ // 0x17cf @0x3e
0x1791…17d1 at003f = EOL // 0x17d0 @0x3f
0x1791…17d1 }
0x17d1…17ef addd 02260 IF "/" + SVAR $ + "/" IN "/J/j/" THEN
0x17d1…17ef LineComal80 {
0x17d1…17ef ptr = 0xaddd // 0x17d1 @0x0
0x17d1…17ef lno = 0x08d4 // 0x17d3 @0x2
0x17d1…17ef at0004 = ╱9b24d7╱ IF ╱ // 0x17d5 @0x4
0x17d1…17ef at0007 = ╱22╱"╱ // 0x17d8 @0x7
0x17d1…17ef at0008 = ╱2f╱/╱ // 0x17d9 @0x8
0x17d1…17ef at0009 = ╱22╱"╱ // 0x17da @0x9
0x17d1…17ef at000a = ╱eb╱ + ╱ // 0x17db @0xa
0x17d1…17ef at000b = ╱53╱S╱ // 0x17dc @0xb
0x17d1…17ef at000c = ╱56╱V╱ // 0x17dd @0xc
0x17d1…17ef at000d = ╱41╱A╱ // 0x17de @0xd
0x17d1…17ef at000e = ╱52╱R╱ // 0x17df @0xe
0x17d1…17ef at000f = ╱ef╱ $ ╱ // 0x17e0 @0xf
0x17d1…17ef at0010 = ╱eb╱ + ╱ // 0x17e1 @0x10
0x17d1…17ef at0011 = ╱22╱"╱ // 0x17e2 @0x11
0x17d1…17ef at0012 = ╱2f╱/╱ // 0x17e3 @0x12
0x17d1…17ef at0013 = ╱22╱"╱ // 0x17e4 @0x13
0x17d1…17ef at0014 = ╱dc╱ IN ╱ // 0x17e5 @0x14
0x17d1…17ef at0015 = ╱22╱"╱ // 0x17e6 @0x15
0x17d1…17ef at0016 = ╱2f╱/╱ // 0x17e7 @0x16
0x17d1…17ef at0017 = ╱4a╱J╱ // 0x17e8 @0x17
0x17d1…17ef at0018 = ╱2f╱/╱ // 0x17e9 @0x18
0x17d1…17ef at0019 = ╱6a╱j╱ // 0x17ea @0x19
0x17d1…17ef at001a = ╱2f╱/╱ // 0x17eb @0x1a
0x17d1…17ef at001b = ╱22╱"╱ // 0x17ec @0x1b
0x17d1…17ef at001c = ╱b5╱ THEN ╱ // 0x17ed @0x1c
0x17d1…17ef at001d = EOL // 0x17ee @0x1d
0x17d1…17ef }
0x17ef…1807 adf5 02270 EXEC TAL_CONTROL ( SVAR $ )
0x17ef…1807 LineComal80 {
0x17ef…1807 ptr = 0xadf5 // 0x17ef @0x0
0x17ef…1807 lno = 0x08de // 0x17f1 @0x2
0x17ef…1807 at0004 = ╱9d╱ EXEC ╱ // 0x17f3 @0x4
0x17ef…1807 at0005 = ╱54╱T╱ // 0x17f4 @0x5
0x17ef…1807 at0006 = ╱41╱A╱ // 0x17f5 @0x6
0x17ef…1807 at0007 = ╱4c╱L╱ // 0x17f6 @0x7
0x17ef…1807 at0008 = ╱5f╱_╱ // 0x17f7 @0x8
0x17ef…1807 at0009 = ╱43╱C╱ // 0x17f8 @0x9
0x17ef…1807 at000a = ╱4f╱O╱ // 0x17f9 @0xa
0x17ef…1807 at000b = ╱4e╱N╱ // 0x17fa @0xb
0x17ef…1807 at000c = ╱54╱T╱ // 0x17fb @0xc
0x17ef…1807 at000d = ╱52╱R╱ // 0x17fc @0xd
0x17ef…1807 at000e = ╱4f╱O╱ // 0x17fd @0xe
0x17ef…1807 at000f = ╱4c╱L╱ // 0x17fe @0xf
0x17ef…1807 at0010 = ╱ed╱ ( ╱ // 0x17ff @0x10
0x17ef…1807 at0011 = ╱53╱S╱ // 0x1800 @0x11
0x17ef…1807 at0012 = ╱56╱V╱ // 0x1801 @0x12
0x17ef…1807 at0013 = ╱41╱A╱ // 0x1802 @0x13
0x17ef…1807 at0014 = ╱52╱R╱ // 0x1803 @0x14
0x17ef…1807 at0015 = ╱ef╱ $ ╱ // 0x1804 @0x15
0x17ef…1807 at0016 = ╱ee╱ ) ╱ // 0x1805 @0x16
0x17ef…1807 at0017 = EOL // 0x1806 @0x17
0x17ef…1807 }
0x1807…1811 adff 02280 IF K THEN
0x1807…1811 LineComal80 {
0x1807…1811 ptr = 0xadff // 0x1807 @0x0
0x1807…1811 lno = 0x08e8 // 0x1809 @0x2
0x1807…1811 at0004 = ╱9b254f╱ IF ╱ // 0x180b @0x4
0x1807…1811 at0007 = ╱4b╱K╱ // 0x180e @0x7
0x1807…1811 at0008 = ╱b5╱ THEN ╱ // 0x180f @0x8
0x1807…1811 at0009 = EOL // 0x1810 @0x9
0x1807…1811 }
0x1811…1838 ae26 02290 IF ( SVAR $ ) < P_H\JREC AND ASC ( SVAR $ ) > 0 THEN
0x1811…1838 LineComal80 {
0x1811…1838 ptr = 0xae26 // 0x1811 @0x0
0x1811…1838 lno = 0x08f2 // 0x1813 @0x2
0x1811…1838 at0004 = ╱9b26cf╱ IF ╱ // 0x1815 @0x4
0x1811…1838 at0007 = ╱ed╱ ( ╱ // 0x1818 @0x7
0x1811…1838 at0008 = ╱53╱S╱ // 0x1819 @0x8
0x1811…1838 at0009 = ╱56╱V╱ // 0x181a @0x9
0x1811…1838 at000a = ╱41╱A╱ // 0x181b @0xa
0x1811…1838 at000b = ╱52╱R╱ // 0x181c @0xb
0x1811…1838 at000c = ╱ef╱ $ ╱ // 0x181d @0xc
0x1811…1838 at000d = ╱ee╱ ) ╱ // 0x181e @0xd
0x1811…1838 at000e = ╱e0╱ < ╱ // 0x181f @0xe
0x1811…1838 at000f = ╱50╱P╱ // 0x1820 @0xf
0x1811…1838 at0010 = ╱5f╱_╱ // 0x1821 @0x10
0x1811…1838 at0011 = ╱48╱H╱ // 0x1822 @0x11
0x1811…1838 at0012 = ╱5c╱\╱ // 0x1823 @0x12
0x1811…1838 at0013 = ╱4a╱J╱ // 0x1824 @0x13
0x1811…1838 at0014 = ╱52╱R╱ // 0x1825 @0x14
0x1811…1838 at0015 = ╱45╱E╱ // 0x1826 @0x15
0x1811…1838 at0016 = ╱43╱C╱ // 0x1827 @0x16
0x1811…1838 at0017 = ╱d9╱ AND ╱ // 0x1828 @0x17
0x1811…1838 at0018 = ╱cf╱ ASC ╱ // 0x1829 @0x18
0x1811…1838 at0019 = ╱ed╱ ( ╱ // 0x182a @0x19
0x1811…1838 at001a = ╱53╱S╱ // 0x182b @0x1a
0x1811…1838 at001b = ╱56╱V╱ // 0x182c @0x1b
0x1811…1838 at001c = ╱41╱A╱ // 0x182d @0x1c
0x1811…1838 at001d = ╱52╱R╱ // 0x182e @0x1d
0x1811…1838 at001e = ╱ef╱ $ ╱ // 0x182f @0x1e
0x1811…1838 at001f = ╱ee╱ ) ╱ // 0x1830 @0x1f
0x1811…1838 at0020 = ╱e1╱ > ╱ // 0x1831 @0x20
0x1811…1838 at0021 = ╱30╱0╱ // 0x1832 @0x21
0x1811…1838 at0022 = ╱f20000╱ // 0x1833 @0x22
0x1811…1838 at0025 = ╱b5╱ THEN ╱ // 0x1836 @0x25
0x1811…1838 at0026 = EOL // 0x1837 @0x26
0x1811…1838 }
0x1838…1850 ae3e 02300 EXEC EDIT_LIN ( ASC ( SVAR $ ) )
0x1838…1850 LineComal80 {
0x1838…1850 ptr = 0xae3e // 0x1838 @0x0
0x1838…1850 lno = 0x08fc // 0x183a @0x2
0x1838…1850 at0004 = ╱9d╱ EXEC ╱ // 0x183c @0x4
0x1838…1850 at0005 = ╱45╱E╱ // 0x183d @0x5
0x1838…1850 at0006 = ╱44╱D╱ // 0x183e @0x6
0x1838…1850 at0007 = ╱49╱I╱ // 0x183f @0x7
0x1838…1850 at0008 = ╱54╱T╱ // 0x1840 @0x8
0x1838…1850 at0009 = ╱5f╱_╱ // 0x1841 @0x9
0x1838…1850 at000a = ╱4c╱L╱ // 0x1842 @0xa
0x1838…1850 at000b = ╱49╱I╱ // 0x1843 @0xb
0x1838…1850 at000c = ╱4e╱N╱ // 0x1844 @0xc
0x1838…1850 at000d = ╱ed╱ ( ╱ // 0x1845 @0xd
0x1838…1850 at000e = ╱cf╱ ASC ╱ // 0x1846 @0xe
0x1838…1850 at000f = ╱ed╱ ( ╱ // 0x1847 @0xf
0x1838…1850 at0010 = ╱53╱S╱ // 0x1848 @0x10
0x1838…1850 at0011 = ╱56╱V╱ // 0x1849 @0x11
0x1838…1850 at0012 = ╱41╱A╱ // 0x184a @0x12
0x1838…1850 at0013 = ╱52╱R╱ // 0x184b @0x13
0x1838…1850 at0014 = ╱ef╱ $ ╱ // 0x184c @0x14
0x1838…1850 at0015 = ╱ee╱ ) ╱ // 0x184d @0x15
0x1838…1850 at0016 = ╱ee╱ ) ╱ // 0x184e @0x16
0x1838…1850 at0017 = EOL // 0x184f @0x17
0x1838…1850 }
0x1850…1856 ae44 02310 ENDIF
0x1850…1856 LineComal80 {
0x1850…1856 ptr = 0xae44 // 0x1850 @0x0
0x1850…1856 lno = 0x0906 // 0x1852 @0x2
0x1850…1856 at0004 = ╱9c╱ ENDIF ╱ // 0x1854 @0x4
0x1850…1856 at0005 = EOL // 0x1855 @0x5
0x1850…1856 }
0x1856…185c ae4a 02320 ENDIF
0x1856…185c LineComal80 {
0x1856…185c ptr = 0xae4a // 0x1856 @0x0
0x1856…185c lno = 0x0910 // 0x1858 @0x2
0x1856…185c at0004 = ╱9c╱ ENDIF ╱ // 0x185a @0x4
0x1856…185c at0005 = EOL // 0x185b @0x5
0x1856…185c }
0x185c…1862 ae50 02330 ENDIF
0x185c…1862 LineComal80 {
0x185c…1862 ptr = 0xae50 // 0x185c @0x0
0x185c…1862 lno = 0x091a // 0x185e @0x2
0x185c…1862 at0004 = ╱9c╱ ENDIF ╱ // 0x1860 @0x4
0x185c…1862 at0005 = EOL // 0x1861 @0x5
0x185c…1862 }
0x1862…187d ae6b 02340 UNTIL "/" + SVAR $ + "/" IN "/J/j/"
0x1862…187d LineComal80 {
0x1862…187d ptr = 0xae6b // 0x1862 @0x0
0x1862…187d lno = 0x0924 // 0x1864 @0x2
0x1862…187d at0004 = ╱98╱ UNTIL ╱ // 0x1866 @0x4
0x1862…187d at0005 = ╱22╱"╱ // 0x1867 @0x5
0x1862…187d at0006 = ╱2f╱/╱ // 0x1868 @0x6
0x1862…187d at0007 = ╱22╱"╱ // 0x1869 @0x7
0x1862…187d at0008 = ╱eb╱ + ╱ // 0x186a @0x8
0x1862…187d at0009 = ╱53╱S╱ // 0x186b @0x9
0x1862…187d at000a = ╱56╱V╱ // 0x186c @0xa
0x1862…187d at000b = ╱41╱A╱ // 0x186d @0xb
0x1862…187d at000c = ╱52╱R╱ // 0x186e @0xc
0x1862…187d at000d = ╱ef╱ $ ╱ // 0x186f @0xd
0x1862…187d at000e = ╱eb╱ + ╱ // 0x1870 @0xe
0x1862…187d at000f = ╱22╱"╱ // 0x1871 @0xf
0x1862…187d at0010 = ╱2f╱/╱ // 0x1872 @0x10
0x1862…187d at0011 = ╱22╱"╱ // 0x1873 @0x11
0x1862…187d at0012 = ╱dc╱ IN ╱ // 0x1874 @0x12
0x1862…187d at0013 = ╱22╱"╱ // 0x1875 @0x13
0x1862…187d at0014 = ╱2f╱/╱ // 0x1876 @0x14
0x1862…187d at0015 = ╱4a╱J╱ // 0x1877 @0x15
0x1862…187d at0016 = ╱2f╱/╱ // 0x1878 @0x16
0x1862…187d at0017 = ╱6a╱j╱ // 0x1879 @0x17
0x1862…187d at0018 = ╱2f╱/╱ // 0x187a @0x18
0x1862…187d at0019 = ╱22╱"╱ // 0x187b @0x19
0x1862…187d at001a = EOL // 0x187c @0x1a
0x1862…187d }
0x187d…188d ae7b 02350 ENDPROC RET_LINIER
0x187d…188d LineComal80 {
0x187d…188d ptr = 0xae7b // 0x187d @0x0
0x187d…188d lno = 0x092e // 0x187f @0x2
0x187d…188d at0004 = ╱9f╱ ENDPROC ╱ // 0x1881 @0x4
0x187d…188d at0005 = ╱52╱R╱ // 0x1882 @0x5
0x187d…188d at0006 = ╱45╱E╱ // 0x1883 @0x6
0x187d…188d at0007 = ╱54╱T╱ // 0x1884 @0x7
0x187d…188d at0008 = ╱5f╱_╱ // 0x1885 @0x8
0x187d…188d at0009 = ╱4c╱L╱ // 0x1886 @0x9
0x187d…188d at000a = ╱49╱I╱ // 0x1887 @0xa
0x187d…188d at000b = ╱4e╱N╱ // 0x1888 @0xb
0x187d…188d at000c = ╱49╱I╱ // 0x1889 @0xc
0x187d…188d at000d = ╱45╱E╱ // 0x188a @0xd
0x187d…188d at000e = ╱52╱R╱ // 0x188b @0xe
0x187d…188d at000f = EOL // 0x188c @0xf
0x187d…188d }
0x188d…1892 ae80 02360
0x188d…1892 LineComal80 {
0x188d…1892 ptr = 0xae80 // 0x188d @0x0
0x188d…1892 lno = 0x0938 // 0x188f @0x2
0x188d…1892 at0004 = EOL // 0x1891 @0x4
0x188d…1892 }
0x1892…18a5 ae93 02370 PROC L[S_KONTO ( P )
0x1892…18a5 LineComal80 {
0x1892…18a5 ptr = 0xae93 // 0x1892 @0x0
0x1892…18a5 lno = 0x0942 // 0x1894 @0x2
0x1892…18a5 at0004 = ╱9e27╱ PROC ╱ // 0x1896 @0x4
0x1892…18a5 at0006 = ╱4c╱L╱ // 0x1898 @0x6
0x1892…18a5 at0007 = ╱5b╱[╱ // 0x1899 @0x7
0x1892…18a5 at0008 = ╱53╱S╱ // 0x189a @0x8
0x1892…18a5 at0009 = ╱5f╱_╱ // 0x189b @0x9
0x1892…18a5 at000a = ╱4b╱K╱ // 0x189c @0xa
0x1892…18a5 at000b = ╱4f╱O╱ // 0x189d @0xb
0x1892…18a5 at000c = ╱4e╱N╱ // 0x189e @0xc
0x1892…18a5 at000d = ╱54╱T╱ // 0x189f @0xd
0x1892…18a5 at000e = ╱4f╱O╱ // 0x18a0 @0xe
0x1892…18a5 at000f = ╱ed╱ ( ╱ // 0x18a1 @0xf
0x1892…18a5 at0010 = ╱50╱P╱ // 0x18a2 @0x10
0x1892…18a5 at0011 = ╱ee╱ ) ╱ // 0x18a3 @0x11
0x1892…18a5 at0012 = EOL // 0x18a4 @0x12
0x1892…18a5 }
0x18a5…18ea aed8 02380 GET KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
0x18a5…18ea LineComal80 {
0x18a5…18ea ptr = 0xaed8 // 0x18a5 @0x0
0x18a5…18ea lno = 0x094c // 0x18a7 @0x2
0x18a5…18ea at0004 = ╱a9╱ GET ╱ // 0x18a9 @0x4
0x18a5…18ea at0005 = ╱4b╱K╱ // 0x18aa @0x5
0x18a5…18ea at0006 = ╱4f╱O╱ // 0x18ab @0x6
0x18a5…18ea at0007 = ╱4e╱N╱ // 0x18ac @0x7
0x18a5…18ea at0008 = ╱54╱T╱ // 0x18ad @0x8
0x18a5…18ea at0009 = ╱4f╱O╱ // 0x18ae @0x9
0x18a5…18ea at000a = ╱ef╱ $ ╱ // 0x18af @0xa
0x18a5…18ea at000b = ╱ec╱ , ╱ // 0x18b0 @0xb
0x18a5…18ea at000c = ╱50╱P╱ // 0x18b1 @0xc
0x18a5…18ea at000d = ╱f1╱ : ╱ // 0x18b2 @0xd
0x18a5…18ea at000e = ╱4b╱K╱ // 0x18b3 @0xe
0x18a5…18ea at000f = ╱54╱T╱ // 0x18b4 @0xf
0x18a5…18ea at0010 = ╱4f╱O╱ // 0x18b5 @0x10
0x18a5…18ea at0011 = ╱5f╱_╱ // 0x18b6 @0x11
0x18a5…18ea at0012 = ╱54╱T╱ // 0x18b7 @0x12
0x18a5…18ea at0013 = ╱59╱Y╱ // 0x18b8 @0x13
0x18a5…18ea at0014 = ╱50╱P╱ // 0x18b9 @0x14
0x18a5…18ea at0015 = ╱45╱E╱ // 0x18ba @0x15
0x18a5…18ea at0016 = ╱ef╱ $ ╱ // 0x18bb @0x16
0x18a5…18ea at0017 = ╱ec╱ , ╱ // 0x18bc @0x17
0x18a5…18ea at0018 = ╱4b╱K╱ // 0x18bd @0x18
0x18a5…18ea at0019 = ╱54╱T╱ // 0x18be @0x19
0x18a5…18ea at001a = ╱4f╱O╱ // 0x18bf @0x1a
0x18a5…18ea at001b = ╱5f╱_╱ // 0x18c0 @0x1b
0x18a5…18ea at001c = ╱4e╱N╱ // 0x18c1 @0x1c
0x18a5…18ea at001d = ╱41╱A╱ // 0x18c2 @0x1d
0x18a5…18ea at001e = ╱56╱V╱ // 0x18c3 @0x1e
0x18a5…18ea at001f = ╱4e╱N╱ // 0x18c4 @0x1f
0x18a5…18ea at0020 = ╱ef╱ $ ╱ // 0x18c5 @0x20
0x18a5…18ea at0021 = ╱ec╱ , ╱ // 0x18c6 @0x21
0x18a5…18ea at0022 = ╱4b╱K╱ // 0x18c7 @0x22
0x18a5…18ea at0023 = ╱54╱T╱ // 0x18c8 @0x23
0x18a5…18ea at0024 = ╱4f╱O╱ // 0x18c9 @0x24
0x18a5…18ea at0025 = ╱5f╱_╱ // 0x18ca @0x25
0x18a5…18ea at0026 = ╱50╱P╱ // 0x18cb @0x26
0x18a5…18ea at0027 = ╱52╱R╱ // 0x18cc @0x27
0x18a5…18ea at0028 = ╱49╱I╱ // 0x18cd @0x28
0x18a5…18ea at0029 = ╱4d╱M╱ // 0x18ce @0x29
0x18a5…18ea at002a = ╱4f╱O╱ // 0x18cf @0x2a
0x18a5…18ea at002b = ╱ec╱ , ╱ // 0x18d0 @0x2b
0x18a5…18ea at002c = ╱4b╱K╱ // 0x18d1 @0x2c
0x18a5…18ea at002d = ╱54╱T╱ // 0x18d2 @0x2d
0x18a5…18ea at002e = ╱4f╱O╱ // 0x18d3 @0x2e
0x18a5…18ea at002f = ╱5f╱_╱ // 0x18d4 @0x2f
0x18a5…18ea at0030 = ╱55╱U╱ // 0x18d5 @0x30
0x18a5…18ea at0031 = ╱4c╱L╱ // 0x18d6 @0x31
0x18a5…18ea at0032 = ╱54╱T╱ // 0x18d7 @0x32
0x18a5…18ea at0033 = ╱49╱I╱ // 0x18d8 @0x33
0x18a5…18ea at0034 = ╱4d╱M╱ // 0x18d9 @0x34
0x18a5…18ea at0035 = ╱4f╱O╱ // 0x18da @0x35
0x18a5…18ea at0036 = ╱ec╱ , ╱ // 0x18db @0x36
0x18a5…18ea at0037 = ╱4b╱K╱ // 0x18dc @0x37
0x18a5…18ea at0038 = ╱54╱T╱ // 0x18dd @0x38
0x18a5…18ea at0039 = ╱4f╱O╱ // 0x18de @0x39
0x18a5…18ea at003a = ╱5f╱_╱ // 0x18df @0x3a
0x18a5…18ea at003b = ╱46╱F╱ // 0x18e0 @0x3b
0x18a5…18ea at003c = ╱50╱P╱ // 0x18e1 @0x3c
0x18a5…18ea at003d = ╱ec╱ , ╱ // 0x18e2 @0x3d
0x18a5…18ea at003e = ╱4b╱K╱ // 0x18e3 @0x3e
0x18a5…18ea at003f = ╱54╱T╱ // 0x18e4 @0x3f
0x18a5…18ea at0040 = ╱4f╱O╱ // 0x18e5 @0x40
0x18a5…18ea at0041 = ╱5f╱_╱ // 0x18e6 @0x41
0x18a5…18ea at0042 = ╱53╱S╱ // 0x18e7 @0x42
0x18a5…18ea at0043 = ╱50╱P╱ // 0x18e8 @0x43
0x18a5…18ea at0044 = EOL // 0x18e9 @0x44
0x18a5…18ea }
0x18ea…18f9 aee7 02390 ENDPROC L[S_KONTO
0x18ea…18f9 LineComal80 {
0x18ea…18f9 ptr = 0xaee7 // 0x18ea @0x0
0x18ea…18f9 lno = 0x0956 // 0x18ec @0x2
0x18ea…18f9 at0004 = ╱9f╱ ENDPROC ╱ // 0x18ee @0x4
0x18ea…18f9 at0005 = ╱4c╱L╱ // 0x18ef @0x5
0x18ea…18f9 at0006 = ╱5b╱[╱ // 0x18f0 @0x6
0x18ea…18f9 at0007 = ╱53╱S╱ // 0x18f1 @0x7
0x18ea…18f9 at0008 = ╱5f╱_╱ // 0x18f2 @0x8
0x18ea…18f9 at0009 = ╱4b╱K╱ // 0x18f3 @0x9
0x18ea…18f9 at000a = ╱4f╱O╱ // 0x18f4 @0xa
0x18ea…18f9 at000b = ╱4e╱N╱ // 0x18f5 @0xb
0x18ea…18f9 at000c = ╱54╱T╱ // 0x18f6 @0xc
0x18ea…18f9 at000d = ╱4f╱O╱ // 0x18f7 @0xd
0x18ea…18f9 at000e = EOL // 0x18f8 @0xe
0x18ea…18f9 }
0x18f9…18fe aeec 02400
0x18f9…18fe LineComal80 {
0x18f9…18fe ptr = 0xaeec // 0x18f9 @0x0
0x18f9…18fe lno = 0x0960 // 0x18fb @0x2
0x18f9…18fe at0004 = EOL // 0x18fd @0x4
0x18f9…18fe }
0x18fe…1913 af01 02410 PROC ST_BGST ( REF RST $ )
0x18fe…1913 LineComal80 {
0x18fe…1913 ptr = 0xaf01 // 0x18fe @0x0
0x18fe…1913 lno = 0x096a // 0x1900 @0x2
0x18fe…1913 at0004 = ╱9e28╱ PROC ╱ // 0x1902 @0x4
0x18fe…1913 at0006 = ╱53╱S╱ // 0x1904 @0x6
0x18fe…1913 at0007 = ╱54╱T╱ // 0x1905 @0x7
0x18fe…1913 at0008 = ╱5f╱_╱ // 0x1906 @0x8
0x18fe…1913 at0009 = ╱42╱B╱ // 0x1907 @0x9
0x18fe…1913 at000a = ╱47╱G╱ // 0x1908 @0xa
0x18fe…1913 at000b = ╱53╱S╱ // 0x1909 @0xb
0x18fe…1913 at000c = ╱54╱T╱ // 0x190a @0xc
0x18fe…1913 at000d = ╱ed╱ ( ╱ // 0x190b @0xd
0x18fe…1913 at000e = ╱b6╱ REF ╱ // 0x190c @0xe
0x18fe…1913 at000f = ╱52╱R╱ // 0x190d @0xf
0x18fe…1913 at0010 = ╱53╱S╱ // 0x190e @0x10
0x18fe…1913 at0011 = ╱54╱T╱ // 0x190f @0x11
0x18fe…1913 at0012 = ╱ef╱ $ ╱ // 0x1910 @0x12
0x18fe…1913 at0013 = ╱ee╱ ) ╱ // 0x1911 @0x13
0x18fe…1913 at0014 = EOL // 0x1912 @0x14
0x18fe…1913 }
0x1913…1929 af17 02420 FOR I := 1 TO ( RST $ ) DO
0x1913…1929 LineComal80 {
0x1913…1929 ptr = 0xaf17 // 0x1913 @0x0
0x1913…1929 lno = 0x0974 // 0x1915 @0x2
0x1913…1929 at0004 = ╱8329╱ FOR ╱ // 0x1917 @0x4
0x1913…1929 at0006 = ╱49╱I╱ // 0x1919 @0x6
0x1913…1929 at0007 = ╱f0╱ := ╱ // 0x191a @0x7
0x1913…1929 at0008 = ╱31╱1╱ // 0x191b @0x8
0x1913…1929 at0009 = ╱f20100╱ // 0x191c @0x9
0x1913…1929 at000c = ╱b7cb╱ TO ╱ // 0x191f @0xc
0x1913…1929 at000e = ╱ed╱ ( ╱ // 0x1921 @0xe
0x1913…1929 at000f = ╱52╱R╱ // 0x1922 @0xf
0x1913…1929 at0010 = ╱53╱S╱ // 0x1923 @0x10
0x1913…1929 at0011 = ╱54╱T╱ // 0x1924 @0x11
0x1913…1929 at0012 = ╱ef╱ $ ╱ // 0x1925 @0x12
0x1913…1929 at0013 = ╱ee╱ ) ╱ // 0x1926 @0x13
0x1913…1929 at0014 = ╱bb╱ DO ╱ // 0x1927 @0x14
0x1913…1929 at0015 = EOL // 0x1928 @0x15
0x1913…1929 }
0x1929…1964 af52 02430 IF RST $ ( I ) =< "}" AND RST $ ( I ) >= "a" THEN LET RST $ ( I ) := CHR$ ( ╱cc╱ ( RST $ ( I ) ) - 32 )
0x1929…1964 LineComal80 {
0x1929…1964 ptr = 0xaf52 // 0x1929 @0x0
0x1929…1964 lno = 0x097e // 0x192b @0x2
0x1929…1964 at0004 = ╱8200╱ IF ╱ // 0x192d @0x4
0x1929…1964 at0006 = ╱52╱R╱ // 0x192f @0x6
0x1929…1964 at0007 = ╱53╱S╱ // 0x1930 @0x7
0x1929…1964 at0008 = ╱54╱T╱ // 0x1931 @0x8
0x1929…1964 at0009 = ╱ef╱ $ ╱ // 0x1932 @0x9
0x1929…1964 at000a = ╱ed╱ ( ╱ // 0x1933 @0xa
0x1929…1964 at000b = ╱49╱I╱ // 0x1934 @0xb
0x1929…1964 at000c = ╱ee╱ ) ╱ // 0x1935 @0xc
0x1929…1964 at000d = ╱e2╱ =< ╱ // 0x1936 @0xd
0x1929…1964 at000e = ╱22╱"╱ // 0x1937 @0xe
0x1929…1964 at000f = ╱7d╱}╱ // 0x1938 @0xf
0x1929…1964 at0010 = ╱22╱"╱ // 0x1939 @0x10
0x1929…1964 at0011 = ╱d9╱ AND ╱ // 0x193a @0x11
0x1929…1964 at0012 = ╱52╱R╱ // 0x193b @0x12
0x1929…1964 at0013 = ╱53╱S╱ // 0x193c @0x13
0x1929…1964 at0014 = ╱54╱T╱ // 0x193d @0x14
0x1929…1964 at0015 = ╱ef╱ $ ╱ // 0x193e @0x15
0x1929…1964 at0016 = ╱ed╱ ( ╱ // 0x193f @0x16
0x1929…1964 at0017 = ╱49╱I╱ // 0x1940 @0x17
0x1929…1964 at0018 = ╱ee╱ ) ╱ // 0x1941 @0x18
0x1929…1964 at0019 = ╱e3╱ >= ╱ // 0x1942 @0x19
0x1929…1964 at001a = ╱22╱"╱ // 0x1943 @0x1a
0x1929…1964 at001b = ╱61╱a╱ // 0x1944 @0x1b
0x1929…1964 at001c = ╱22╱"╱ // 0x1945 @0x1c
0x1929…1964 at001d = ╱b5╱ THEN ╱ // 0x1946 @0x1d
0x1929…1964 at001e = ╱86╱ LET ╱ // 0x1947 @0x1e
0x1929…1964 at001f = ╱52╱R╱ // 0x1948 @0x1f
0x1929…1964 at0020 = ╱53╱S╱ // 0x1949 @0x20
0x1929…1964 at0021 = ╱54╱T╱ // 0x194a @0x21
0x1929…1964 at0022 = ╱ef╱ $ ╱ // 0x194b @0x22
0x1929…1964 at0023 = ╱ed╱ ( ╱ // 0x194c @0x23
0x1929…1964 at0024 = ╱49╱I╱ // 0x194d @0x24
0x1929…1964 at0025 = ╱ee╱ ) ╱ // 0x194e @0x25
0x1929…1964 at0026 = ╱f0╱ := ╱ // 0x194f @0x26
0x1929…1964 at0027 = ╱d0╱ CHR$ ╱ // 0x1950 @0x27
0x1929…1964 at0028 = ╱ed╱ ( ╱ // 0x1951 @0x28
0x1929…1964 at0029 = ╱cc╱ // 0x1952 @0x29
0x1929…1964 at002a = ╱ed╱ ( ╱ // 0x1953 @0x2a
0x1929…1964 at002b = ╱52╱R╱ // 0x1954 @0x2b
0x1929…1964 at002c = ╱53╱S╱ // 0x1955 @0x2c
0x1929…1964 at002d = ╱54╱T╱ // 0x1956 @0x2d
0x1929…1964 at002e = ╱ef╱ $ ╱ // 0x1957 @0x2e
0x1929…1964 at002f = ╱ed╱ ( ╱ // 0x1958 @0x2f
0x1929…1964 at0030 = ╱49╱I╱ // 0x1959 @0x30
0x1929…1964 at0031 = ╱ee╱ ) ╱ // 0x195a @0x31
0x1929…1964 at0032 = ╱ee╱ ) ╱ // 0x195b @0x32
0x1929…1964 at0033 = ╱e6╱ - ╱ // 0x195c @0x33
0x1929…1964 at0034 = ╱33╱3╱ // 0x195d @0x34
0x1929…1964 at0035 = ╱32╱2╱ // 0x195e @0x35
0x1929…1964 at0036 = ╱f22000╱ // 0x195f @0x36
0x1929…1964 at0039 = ╱ee╱ ) ╱ // 0x1962 @0x39
0x1929…1964 at003a = EOL // 0x1963 @0x3a
0x1929…1964 }
0x1964…196b af59 02440 NEXT I
0x1964…196b LineComal80 {
0x1964…196b ptr = 0xaf59 // 0x1964 @0x0
0x1964…196b lno = 0x0988 // 0x1966 @0x2
0x1964…196b at0004 = ╱84╱ NEXT ╱ // 0x1968 @0x4
0x1964…196b at0005 = ╱49╱I╱ // 0x1969 @0x5
0x1964…196b at0006 = EOL // 0x196a @0x6
0x1964…196b }
0x196b…1978 af66 02450 ENDPROC ST_BGST
0x196b…1978 LineComal80 {
0x196b…1978 ptr = 0xaf66 // 0x196b @0x0
0x196b…1978 lno = 0x0992 // 0x196d @0x2
0x196b…1978 at0004 = ╱9f╱ ENDPROC ╱ // 0x196f @0x4
0x196b…1978 at0005 = ╱53╱S╱ // 0x1970 @0x5
0x196b…1978 at0006 = ╱54╱T╱ // 0x1971 @0x6
0x196b…1978 at0007 = ╱5f╱_╱ // 0x1972 @0x7
0x196b…1978 at0008 = ╱42╱B╱ // 0x1973 @0x8
0x196b…1978 at0009 = ╱47╱G╱ // 0x1974 @0x9
0x196b…1978 at000a = ╱53╱S╱ // 0x1975 @0xa
0x196b…1978 at000b = ╱54╱T╱ // 0x1976 @0xb
0x196b…1978 at000c = EOL // 0x1977 @0xc
0x196b…1978 }
0x1978…197d af6b 02460
0x1978…197d LineComal80 {
0x1978…197d ptr = 0xaf6b // 0x1978 @0x0
0x1978…197d lno = 0x099c // 0x197a @0x2
0x1978…197d at0004 = EOL // 0x197c @0x4
0x1978…197d }
0x197d…1992 af80 02470 PROC INDTAST_POSTER
0x197d…1992 LineComal80 {
0x197d…1992 ptr = 0xaf80 // 0x197d @0x0
0x197d…1992 lno = 0x09a6 // 0x197f @0x2
0x197d…1992 at0004 = ╱9e2a╱ PROC ╱ // 0x1981 @0x4
0x197d…1992 at0006 = ╱49╱I╱ // 0x1983 @0x6
0x197d…1992 at0007 = ╱4e╱N╱ // 0x1984 @0x7
0x197d…1992 at0008 = ╱44╱D╱ // 0x1985 @0x8
0x197d…1992 at0009 = ╱54╱T╱ // 0x1986 @0x9
0x197d…1992 at000a = ╱41╱A╱ // 0x1987 @0xa
0x197d…1992 at000b = ╱53╱S╱ // 0x1988 @0xb
0x197d…1992 at000c = ╱54╱T╱ // 0x1989 @0xc
0x197d…1992 at000d = ╱5f╱_╱ // 0x198a @0xd
0x197d…1992 at000e = ╱50╱P╱ // 0x198b @0xe
0x197d…1992 at000f = ╱4f╱O╱ // 0x198c @0xf
0x197d…1992 at0010 = ╱53╱S╱ // 0x198d @0x10
0x197d…1992 at0011 = ╱54╱T╱ // 0x198e @0x11
0x197d…1992 at0012 = ╱45╱E╱ // 0x198f @0x12
0x197d…1992 at0013 = ╱52╱R╱ // 0x1990 @0x13
0x197d…1992 at0014 = EOL // 0x1991 @0x14
0x197d…1992 }
0x1992…19a4 d7be 02480 EXEC SKRIV_LINIER
0x1992…19a4 LineComal80 {
0x1992…19a4 ptr = 0xd7be // 0x1992 @0x0
0x1992…19a4 lno = 0x09b0 // 0x1994 @0x2
0x1992…19a4 at0004 = ╱9d╱ EXEC ╱ // 0x1996 @0x4
0x1992…19a4 at0005 = ╱53╱S╱ // 0x1997 @0x5
0x1992…19a4 at0006 = ╱4b╱K╱ // 0x1998 @0x6
0x1992…19a4 at0007 = ╱52╱R╱ // 0x1999 @0x7
0x1992…19a4 at0008 = ╱49╱I╱ // 0x199a @0x8
0x1992…19a4 at0009 = ╱56╱V╱ // 0x199b @0x9
0x1992…19a4 at000a = ╱5f╱_╱ // 0x199c @0xa
0x1992…19a4 at000b = ╱4c╱L╱ // 0x199d @0xb
0x1992…19a4 at000c = ╱49╱I╱ // 0x199e @0xc
0x1992…19a4 at000d = ╱4e╱N╱ // 0x199f @0xd
0x1992…19a4 at000e = ╱49╱I╱ // 0x19a0 @0xe
0x1992…19a4 at000f = ╱45╱E╱ // 0x19a1 @0xf
0x1992…19a4 at0010 = ╱52╱R╱ // 0x19a2 @0x10
0x1992…19a4 at0011 = EOL // 0x19a3 @0x11
0x1992…19a4 }
0x19a4…19b3 afa1 02490 LET SVAR $ := "F"
0x19a4…19b3 LineComal80 {
0x19a4…19b3 ptr = 0xafa1 // 0x19a4 @0x0
0x19a4…19b3 lno = 0x09ba // 0x19a6 @0x2
0x19a4…19b3 at0004 = ╱86╱ LET ╱ // 0x19a8 @0x4
0x19a4…19b3 at0005 = ╱53╱S╱ // 0x19a9 @0x5
0x19a4…19b3 at0006 = ╱56╱V╱ // 0x19aa @0x6
0x19a4…19b3 at0007 = ╱41╱A╱ // 0x19ab @0x7
0x19a4…19b3 at0008 = ╱52╱R╱ // 0x19ac @0x8
0x19a4…19b3 at0009 = ╱ef╱ $ ╱ // 0x19ad @0x9
0x19a4…19b3 at000a = ╱f0╱ := ╱ // 0x19ae @0xa
0x19a4…19b3 at000b = ╱22╱"╱ // 0x19af @0xb
0x19a4…19b3 at000c = ╱46╱F╱ // 0x19b0 @0xc
0x19a4…19b3 at000d = ╱22╱"╱ // 0x19b1 @0xd
0x19a4…19b3 at000e = EOL // 0x19b2 @0xe
0x19a4…19b3 }
0x19b3…19c4 afb2 02500 WHILE SVAR $ = "F" DO
0x19b3…19c4 LineComal80 {
0x19b3…19c4 ptr = 0xafb2 // 0x19b3 @0x0
0x19b3…19c4 lno = 0x09c4 // 0x19b5 @0x2
0x19b3…19c4 at0004 = ╱932b╱ WHILE ╱ // 0x19b7 @0x4
0x19b3…19c4 at0006 = ╱53╱S╱ // 0x19b9 @0x6
0x19b3…19c4 at0007 = ╱56╱V╱ // 0x19ba @0x7
0x19b3…19c4 at0008 = ╱41╱A╱ // 0x19bb @0x8
0x19b3…19c4 at0009 = ╱52╱R╱ // 0x19bc @0x9
0x19b3…19c4 at000a = ╱ef╱ $ ╱ // 0x19bd @0xa
0x19b3…19c4 at000b = ╱df╱ = ╱ // 0x19be @0xb
0x19b3…19c4 at000c = ╱22╱"╱ // 0x19bf @0xc
0x19b3…19c4 at000d = ╱46╱F╱ // 0x19c0 @0xd
0x19b3…19c4 at000e = ╱22╱"╱ // 0x19c1 @0xe
0x19b3…19c4 at000f = ╱bb╱ DO ╱ // 0x19c2 @0xf
0x19b3…19c4 at0010 = EOL // 0x19c3 @0x10
0x19b3…19c4 }
0x19c4…1a09 aff7 02510 GET DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
0x19c4…1a09 LineComal80 {
0x19c4…1a09 ptr = 0xaff7 // 0x19c4 @0x0
0x19c4…1a09 lno = 0x09ce // 0x19c6 @0x2
0x19c4…1a09 at0004 = ╱a9╱ GET ╱ // 0x19c8 @0x4
0x19c4…1a09 at0005 = ╱44╱D╱ // 0x19c9 @0x5
0x19c4…1a09 at0006 = ╱47╱G╱ // 0x19ca @0x6
0x19c4…1a09 at0007 = ╱5f╱_╱ // 0x19cb @0x7
0x19c4…1a09 at0008 = ╱50╱P╱ // 0x19cc @0x8
0x19c4…1a09 at0009 = ╱4f╱O╱ // 0x19cd @0x9
0x19c4…1a09 at000a = ╱53╱S╱ // 0x19ce @0xa
0x19c4…1a09 at000b = ╱ef╱ $ ╱ // 0x19cf @0xb
0x19c4…1a09 at000c = ╱ec╱ , ╱ // 0x19d0 @0xc
0x19c4…1a09 at000d = ╱31╱1╱ // 0x19d1 @0xd
0x19c4…1a09 at000e = ╱f20100╱ // 0x19d2 @0xe
0x19c4…1a09 at0011 = ╱f1╱ : ╱ // 0x19d5 @0x11
0x19c4…1a09 at0012 = ╱50╱P╱ // 0x19d6 @0x12
0x19c4…1a09 at0013 = ╱5f╱_╱ // 0x19d7 @0x13
0x19c4…1a09 at0014 = ╱48╱H╱ // 0x19d8 @0x14
0x19c4…1a09 at0015 = ╱5c╱\╱ // 0x19d9 @0x15
0x19c4…1a09 at0016 = ╱4a╱J╱ // 0x19da @0x16
0x19c4…1a09 at0017 = ╱52╱R╱ // 0x19db @0x17
0x19c4…1a09 at0018 = ╱45╱E╱ // 0x19dc @0x18
0x19c4…1a09 at0019 = ╱43╱C╱ // 0x19dd @0x19
0x19c4…1a09 at001a = ╱ec╱ , ╱ // 0x19de @0x1a
0x19c4…1a09 at001b = ╱50╱P╱ // 0x19df @0x1b
0x19c4…1a09 at001c = ╱5f╱_╱ // 0x19e0 @0x1c
0x19c4…1a09 at001d = ╱4d╱M╱ // 0x19e1 @0x1d
0x19c4…1a09 at001e = ╱41╱A╱ // 0x19e2 @0x1e
0x19c4…1a09 at001f = ╱58╱X╱ // 0x19e3 @0x1f
0x19c4…1a09 at0020 = ╱52╱R╱ // 0x19e4 @0x20
0x19c4…1a09 at0021 = ╱45╱E╱ // 0x19e5 @0x21
0x19c4…1a09 at0022 = ╱43╱C╱ // 0x19e6 @0x22
0x19c4…1a09 at0023 = ╱ec╱ , ╱ // 0x19e7 @0x23
0x19c4…1a09 at0024 = ╱53╱S╱ // 0x19e8 @0x24
0x19c4…1a09 at0025 = ╱5f╱_╱ // 0x19e9 @0x25
0x19c4…1a09 at0026 = ╱4e╱N╱ // 0x19ea @0x26
0x19c4…1a09 at0027 = ╱52╱R╱ // 0x19eb @0x27
0x19c4…1a09 at0028 = ╱5f╱_╱ // 0x19ec @0x28
0x19c4…1a09 at0029 = ╱44╱D╱ // 0x19ed @0x29
0x19c4…1a09 at002a = ╱47╱G╱ // 0x19ee @0x2a
0x19c4…1a09 at002b = ╱5f╱_╱ // 0x19ef @0x2b
0x19c4…1a09 at002c = ╱50╱P╱ // 0x19f0 @0x2c
0x19c4…1a09 at002d = ╱4f╱O╱ // 0x19f1 @0x2d
0x19c4…1a09 at002e = ╱53╱S╱ // 0x19f2 @0x2e
0x19c4…1a09 at002f = ╱ec╱ , ╱ // 0x19f3 @0x2f
0x19c4…1a09 at0030 = ╱50╱P╱ // 0x19f4 @0x30
0x19c4…1a09 at0031 = ╱5f╱_╱ // 0x19f5 @0x31
0x19c4…1a09 at0032 = ╱44╱D╱ // 0x19f6 @0x32
0x19c4…1a09 at0033 = ╱45╱E╱ // 0x19f7 @0x33
0x19c4…1a09 at0034 = ╱42╱B╱ // 0x19f8 @0x34
0x19c4…1a09 at0035 = ╱ec╱ , ╱ // 0x19f9 @0x35
0x19c4…1a09 at0036 = ╱50╱P╱ // 0x19fa @0x36
0x19c4…1a09 at0037 = ╱5f╱_╱ // 0x19fb @0x37
0x19c4…1a09 at0038 = ╱4b╱K╱ // 0x19fc @0x38
0x19c4…1a09 at0039 = ╱52╱R╱ // 0x19fd @0x39
0x19c4…1a09 at003a = ╱45╱E╱ // 0x19fe @0x3a
0x19c4…1a09 at003b = ╱44╱D╱ // 0x19ff @0x3b
0x19c4…1a09 at003c = ╱ec╱ , ╱ // 0x1a00 @0x3c
0x19c4…1a09 at003d = ╱50╱P╱ // 0x1a01 @0x3d
0x19c4…1a09 at003e = ╱5f╱_╱ // 0x1a02 @0x3e
0x19c4…1a09 at003f = ╱42╱B╱ // 0x1a03 @0x3f
0x19c4…1a09 at0040 = ╱44╱D╱ // 0x1a04 @0x40
0x19c4…1a09 at0041 = ╱41╱A╱ // 0x1a05 @0x41
0x19c4…1a09 at0042 = ╱54╱T╱ // 0x1a06 @0x42
0x19c4…1a09 at0043 = ╱ef╱ $ ╱ // 0x1a07 @0x43
0x19c4…1a09 at0044 = EOL // 0x1a08 @0x44
0x19c4…1a09 }
0x1a09…1a42 b030 02520 IF P_H\JREC = 1 THEN LET P_BDAT $ := SYST_DAT $ ; P_DEB , P_KRED := 0
0x1a09…1a42 LineComal80 {
0x1a09…1a42 ptr = 0xb030 // 0x1a09 @0x0
0x1a09…1a42 lno = 0x09d8 // 0x1a0b @0x2
0x1a09…1a42 at0004 = ╱8200╱ IF ╱ // 0x1a0d @0x4
0x1a09…1a42 at0006 = ╱50╱P╱ // 0x1a0f @0x6
0x1a09…1a42 at0007 = ╱5f╱_╱ // 0x1a10 @0x7
0x1a09…1a42 at0008 = ╱48╱H╱ // 0x1a11 @0x8
0x1a09…1a42 at0009 = ╱5c╱\╱ // 0x1a12 @0x9
0x1a09…1a42 at000a = ╱4a╱J╱ // 0x1a13 @0xa
0x1a09…1a42 at000b = ╱52╱R╱ // 0x1a14 @0xb
0x1a09…1a42 at000c = ╱45╱E╱ // 0x1a15 @0xc
0x1a09…1a42 at000d = ╱43╱C╱ // 0x1a16 @0xd
0x1a09…1a42 at000e = ╱df╱ = ╱ // 0x1a17 @0xe
0x1a09…1a42 at000f = ╱31╱1╱ // 0x1a18 @0xf
0x1a09…1a42 at0010 = ╱f20100╱ // 0x1a19 @0x10
0x1a09…1a42 at0013 = ╱b5╱ THEN ╱ // 0x1a1c @0x13
0x1a09…1a42 at0014 = ╱86╱ LET ╱ // 0x1a1d @0x14
0x1a09…1a42 at0015 = ╱50╱P╱ // 0x1a1e @0x15
0x1a09…1a42 at0016 = ╱5f╱_╱ // 0x1a1f @0x16
0x1a09…1a42 at0017 = ╱42╱B╱ // 0x1a20 @0x17
0x1a09…1a42 at0018 = ╱44╱D╱ // 0x1a21 @0x18
0x1a09…1a42 at0019 = ╱41╱A╱ // 0x1a22 @0x19
0x1a09…1a42 at001a = ╱54╱T╱ // 0x1a23 @0x1a
0x1a09…1a42 at001b = ╱ef╱ $ ╱ // 0x1a24 @0x1b
0x1a09…1a42 at001c = ╱f0╱ := ╱ // 0x1a25 @0x1c
0x1a09…1a42 at001d = ╱53╱S╱ // 0x1a26 @0x1d
0x1a09…1a42 at001e = ╱59╱Y╱ // 0x1a27 @0x1e
0x1a09…1a42 at001f = ╱53╱S╱ // 0x1a28 @0x1f
0x1a09…1a42 at0020 = ╱54╱T╱ // 0x1a29 @0x20
0x1a09…1a42 at0021 = ╱5f╱_╱ // 0x1a2a @0x21
0x1a09…1a42 at0022 = ╱44╱D╱ // 0x1a2b @0x22
0x1a09…1a42 at0023 = ╱41╱A╱ // 0x1a2c @0x23
0x1a09…1a42 at0024 = ╱54╱T╱ // 0x1a2d @0x24
0x1a09…1a42 at0025 = ╱ef╱ $ ╱ // 0x1a2e @0x25
0x1a09…1a42 at0026 = ╱ea╱ ; ╱ // 0x1a2f @0x26
0x1a09…1a42 at0027 = ╱50╱P╱ // 0x1a30 @0x27
0x1a09…1a42 at0028 = ╱5f╱_╱ // 0x1a31 @0x28
0x1a09…1a42 at0029 = ╱44╱D╱ // 0x1a32 @0x29
0x1a09…1a42 at002a = ╱45╱E╱ // 0x1a33 @0x2a
0x1a09…1a42 at002b = ╱42╱B╱ // 0x1a34 @0x2b
0x1a09…1a42 at002c = ╱ec╱ , ╱ // 0x1a35 @0x2c
0x1a09…1a42 at002d = ╱50╱P╱ // 0x1a36 @0x2d
0x1a09…1a42 at002e = ╱5f╱_╱ // 0x1a37 @0x2e
0x1a09…1a42 at002f = ╱4b╱K╱ // 0x1a38 @0x2f
0x1a09…1a42 at0030 = ╱52╱R╱ // 0x1a39 @0x30
0x1a09…1a42 at0031 = ╱45╱E╱ // 0x1a3a @0x31
0x1a09…1a42 at0032 = ╱44╱D╱ // 0x1a3b @0x32
0x1a09…1a42 at0033 = ╱f0╱ := ╱ // 0x1a3c @0x33
0x1a09…1a42 at0034 = ╱30╱0╱ // 0x1a3d @0x34
0x1a09…1a42 at0035 = ╱f20000╱ // 0x1a3e @0x35
0x1a09…1a42 at0038 = EOL // 0x1a41 @0x38
0x1a09…1a42 }
0x1a42…1a5b b049 02530 IF _H\JREC = P_MAXREC THEN
0x1a42…1a5b LineComal80 {
0x1a42…1a5b ptr = 0xb049 // 0x1a42 @0x0
0x1a42…1a5b lno = 0x09e2 // 0x1a44 @0x2
0x1a42…1a5b at0004 = ╱9b2c50╱ IF ╱ // 0x1a46 @0x4
0x1a42…1a5b at0007 = ╱5f╱_╱ // 0x1a49 @0x7
0x1a42…1a5b at0008 = ╱48╱H╱ // 0x1a4a @0x8
0x1a42…1a5b at0009 = ╱5c╱\╱ // 0x1a4b @0x9
0x1a42…1a5b at000a = ╱4a╱J╱ // 0x1a4c @0xa
0x1a42…1a5b at000b = ╱52╱R╱ // 0x1a4d @0xb
0x1a42…1a5b at000c = ╱45╱E╱ // 0x1a4e @0xc
0x1a42…1a5b at000d = ╱43╱C╱ // 0x1a4f @0xd
0x1a42…1a5b at000e = ╱df╱ = ╱ // 0x1a50 @0xe
0x1a42…1a5b at000f = ╱50╱P╱ // 0x1a51 @0xf
0x1a42…1a5b at0010 = ╱5f╱_╱ // 0x1a52 @0x10
0x1a42…1a5b at0011 = ╱4d╱M╱ // 0x1a53 @0x11
0x1a42…1a5b at0012 = ╱41╱A╱ // 0x1a54 @0x12
0x1a42…1a5b at0013 = ╱58╱X╱ // 0x1a55 @0x13
0x1a42…1a5b at0014 = ╱52╱R╱ // 0x1a56 @0x14
0x1a42…1a5b at0015 = ╱45╱E╱ // 0x1a57 @0x15
0x1a42…1a5b at0016 = ╱43╱C╱ // 0x1a58 @0x16
0x1a42…1a5b at0017 = ╱b5╱ THEN ╱ // 0x1a59 @0x17
0x1a42…1a5b at0018 = EOL // 0x1a5a @0x18
0x1a42…1a5b }
0x1a5b…1a9f b08d 02540 EXEC FEJL ( "Der…kan…ikke…indtastes…flere…posteringer…f|r…bogf|ring" )
0x1a5b…1a9f LineComal80 {
0x1a5b…1a9f ptr = 0xb08d // 0x1a5b @0x0
0x1a5b…1a9f lno = 0x09ec // 0x1a5d @0x2
0x1a5b…1a9f at0004 = ╱9d╱ EXEC ╱ // 0x1a5f @0x4
0x1a5b…1a9f at0005 = ╱46╱F╱ // 0x1a60 @0x5
0x1a5b…1a9f at0006 = ╱45╱E╱ // 0x1a61 @0x6
0x1a5b…1a9f at0007 = ╱4a╱J╱ // 0x1a62 @0x7
0x1a5b…1a9f at0008 = ╱4c╱L╱ // 0x1a63 @0x8
0x1a5b…1a9f at0009 = ╱ed╱ ( ╱ // 0x1a64 @0x9
0x1a5b…1a9f at000a = ╱22╱"╱ // 0x1a65 @0xa
0x1a5b…1a9f at000b = ╱44╱D╱ // 0x1a66 @0xb
0x1a5b…1a9f at000c = ╱65╱e╱ // 0x1a67 @0xc
0x1a5b…1a9f at000d = ╱72╱r╱ // 0x1a68 @0xd
0x1a5b…1a9f at000e = ╱20╱…╱ // 0x1a69 @0xe
0x1a5b…1a9f at000f = ╱6b╱k╱ // 0x1a6a @0xf
0x1a5b…1a9f at0010 = ╱61╱a╱ // 0x1a6b @0x10
0x1a5b…1a9f at0011 = ╱6e╱n╱ // 0x1a6c @0x11
0x1a5b…1a9f at0012 = ╱20╱…╱ // 0x1a6d @0x12
0x1a5b…1a9f at0013 = ╱69╱i╱ // 0x1a6e @0x13
0x1a5b…1a9f at0014 = ╱6b╱k╱ // 0x1a6f @0x14
0x1a5b…1a9f at0015 = ╱6b╱k╱ // 0x1a70 @0x15
0x1a5b…1a9f at0016 = ╱65╱e╱ // 0x1a71 @0x16
0x1a5b…1a9f at0017 = ╱20╱…╱ // 0x1a72 @0x17
0x1a5b…1a9f at0018 = ╱69╱i╱ // 0x1a73 @0x18
0x1a5b…1a9f at0019 = ╱6e╱n╱ // 0x1a74 @0x19
0x1a5b…1a9f at001a = ╱64╱d╱ // 0x1a75 @0x1a
0x1a5b…1a9f at001b = ╱74╱t╱ // 0x1a76 @0x1b
0x1a5b…1a9f at001c = ╱61╱a╱ // 0x1a77 @0x1c
0x1a5b…1a9f at001d = ╱73╱s╱ // 0x1a78 @0x1d
0x1a5b…1a9f at001e = ╱74╱t╱ // 0x1a79 @0x1e
0x1a5b…1a9f at001f = ╱65╱e╱ // 0x1a7a @0x1f
0x1a5b…1a9f at0020 = ╱73╱s╱ // 0x1a7b @0x20
0x1a5b…1a9f at0021 = ╱20╱…╱ // 0x1a7c @0x21
0x1a5b…1a9f at0022 = ╱66╱f╱ // 0x1a7d @0x22
0x1a5b…1a9f at0023 = ╱6c╱l╱ // 0x1a7e @0x23
0x1a5b…1a9f at0024 = ╱65╱e╱ // 0x1a7f @0x24
0x1a5b…1a9f at0025 = ╱72╱r╱ // 0x1a80 @0x25
0x1a5b…1a9f at0026 = ╱65╱e╱ // 0x1a81 @0x26
0x1a5b…1a9f at0027 = ╱20╱…╱ // 0x1a82 @0x27
0x1a5b…1a9f at0028 = ╱70╱p╱ // 0x1a83 @0x28
0x1a5b…1a9f at0029 = ╱6f╱o╱ // 0x1a84 @0x29
0x1a5b…1a9f at002a = ╱73╱s╱ // 0x1a85 @0x2a
0x1a5b…1a9f at002b = ╱74╱t╱ // 0x1a86 @0x2b
0x1a5b…1a9f at002c = ╱65╱e╱ // 0x1a87 @0x2c
0x1a5b…1a9f at002d = ╱72╱r╱ // 0x1a88 @0x2d
0x1a5b…1a9f at002e = ╱69╱i╱ // 0x1a89 @0x2e
0x1a5b…1a9f at002f = ╱6e╱n╱ // 0x1a8a @0x2f
0x1a5b…1a9f at0030 = ╱67╱g╱ // 0x1a8b @0x30
0x1a5b…1a9f at0031 = ╱65╱e╱ // 0x1a8c @0x31
0x1a5b…1a9f at0032 = ╱72╱r╱ // 0x1a8d @0x32
0x1a5b…1a9f at0033 = ╱20╱…╱ // 0x1a8e @0x33
0x1a5b…1a9f at0034 = ╱66╱f╱ // 0x1a8f @0x34
0x1a5b…1a9f at0035 = ╱7c╱|╱ // 0x1a90 @0x35
0x1a5b…1a9f at0036 = ╱72╱r╱ // 0x1a91 @0x36
0x1a5b…1a9f at0037 = ╱20╱…╱ // 0x1a92 @0x37
0x1a5b…1a9f at0038 = ╱62╱b╱ // 0x1a93 @0x38
0x1a5b…1a9f at0039 = ╱6f╱o╱ // 0x1a94 @0x39
0x1a5b…1a9f at003a = ╱67╱g╱ // 0x1a95 @0x3a
0x1a5b…1a9f at003b = ╱66╱f╱ // 0x1a96 @0x3b
0x1a5b…1a9f at003c = ╱7c╱|╱ // 0x1a97 @0x3c
0x1a5b…1a9f at003d = ╱72╱r╱ // 0x1a98 @0x3d
0x1a5b…1a9f at003e = ╱69╱i╱ // 0x1a99 @0x3e
0x1a5b…1a9f at003f = ╱6e╱n╱ // 0x1a9a @0x3f
0x1a5b…1a9f at0040 = ╱67╱g╱ // 0x1a9b @0x40
0x1a5b…1a9f at0041 = ╱22╱"╱ // 0x1a9c @0x41
0x1a5b…1a9f at0042 = ╱ee╱ ) ╱ // 0x1a9d @0x42
0x1a5b…1a9f at0043 = EOL // 0x1a9e @0x43
0x1a5b…1a9f }
0x1a9f…1ac0 b0ae 02550 INPUT "<SC6524>Tryk…RETURN" : SVAR $
0x1a9f…1ac0 LineComal80 {
0x1a9f…1ac0 ptr = 0xb0ae // 0x1a9f @0x0
0x1a9f…1ac0 lno = 0x09f6 // 0x1aa1 @0x2
0x1a9f…1ac0 at0004 = ╱91╱ INPUT ╱ // 0x1aa3 @0x4
0x1a9f…1ac0 at0005 = ╱22╱"╱ // 0x1aa4 @0x5
0x1a9f…1ac0 at0006 = ╱3c╱<╱ // 0x1aa5 @0x6
0x1a9f…1ac0 at0007 = ╱53╱S╱ // 0x1aa6 @0x7
0x1a9f…1ac0 at0008 = ╱43╱C╱ // 0x1aa7 @0x8
0x1a9f…1ac0 at0009 = ╱36╱6╱ // 0x1aa8 @0x9
0x1a9f…1ac0 at000a = ╱35╱5╱ // 0x1aa9 @0xa
0x1a9f…1ac0 at000b = ╱32╱2╱ // 0x1aaa @0xb
0x1a9f…1ac0 at000c = ╱34╱4╱ // 0x1aab @0xc
0x1a9f…1ac0 at000d = ╱3e╱>╱ // 0x1aac @0xd
0x1a9f…1ac0 at000e = ╱54╱T╱ // 0x1aad @0xe
0x1a9f…1ac0 at000f = ╱72╱r╱ // 0x1aae @0xf
0x1a9f…1ac0 at0010 = ╱79╱y╱ // 0x1aaf @0x10
0x1a9f…1ac0 at0011 = ╱6b╱k╱ // 0x1ab0 @0x11
0x1a9f…1ac0 at0012 = ╱20╱…╱ // 0x1ab1 @0x12
0x1a9f…1ac0 at0013 = ╱52╱R╱ // 0x1ab2 @0x13
0x1a9f…1ac0 at0014 = ╱45╱E╱ // 0x1ab3 @0x14
0x1a9f…1ac0 at0015 = ╱54╱T╱ // 0x1ab4 @0x15
0x1a9f…1ac0 at0016 = ╱55╱U╱ // 0x1ab5 @0x16
0x1a9f…1ac0 at0017 = ╱52╱R╱ // 0x1ab6 @0x17
0x1a9f…1ac0 at0018 = ╱4e╱N╱ // 0x1ab7 @0x18
0x1a9f…1ac0 at0019 = ╱22╱"╱ // 0x1ab8 @0x19
0x1a9f…1ac0 at001a = ╱f1╱ : ╱ // 0x1ab9 @0x1a
0x1a9f…1ac0 at001b = ╱53╱S╱ // 0x1aba @0x1b
0x1a9f…1ac0 at001c = ╱56╱V╱ // 0x1abb @0x1c
0x1a9f…1ac0 at001d = ╱41╱A╱ // 0x1abc @0x1d
0x1a9f…1ac0 at001e = ╱52╱R╱ // 0x1abd @0x1e
0x1a9f…1ac0 at001f = ╱ef╱ $ ╱ // 0x1abe @0x1f
0x1a9f…1ac0 at0020 = EOL // 0x1abf @0x20
0x1a9f…1ac0 }
0x1ac0…1ad2 b0c0 02560 EXEC SL_FEJLLINIE
0x1ac0…1ad2 LineComal80 {
0x1ac0…1ad2 ptr = 0xb0c0 // 0x1ac0 @0x0
0x1ac0…1ad2 lno = 0x0a00 // 0x1ac2 @0x2
0x1ac0…1ad2 at0004 = ╱9d╱ EXEC ╱ // 0x1ac4 @0x4
0x1ac0…1ad2 at0005 = ╱53╱S╱ // 0x1ac5 @0x5
0x1ac0…1ad2 at0006 = ╱4c╱L╱ // 0x1ac6 @0x6
0x1ac0…1ad2 at0007 = ╱5f╱_╱ // 0x1ac7 @0x7
0x1ac0…1ad2 at0008 = ╱46╱F╱ // 0x1ac8 @0x8
0x1ac0…1ad2 at0009 = ╱45╱E╱ // 0x1ac9 @0x9
0x1ac0…1ad2 at000a = ╱4a╱J╱ // 0x1aca @0xa
0x1ac0…1ad2 at000b = ╱4c╱L╱ // 0x1acb @0xb
0x1ac0…1ad2 at000c = ╱4c╱L╱ // 0x1acc @0xc
0x1ac0…1ad2 at000d = ╱49╱I╱ // 0x1acd @0xd
0x1ac0…1ad2 at000e = ╱4e╱N╱ // 0x1ace @0xe
0x1ac0…1ad2 at000f = ╱49╱I╱ // 0x1acf @0xf
0x1ac0…1ad2 at0010 = ╱45╱E╱ // 0x1ad0 @0x10
0x1ac0…1ad2 at0011 = EOL // 0x1ad1 @0x11
0x1ac0…1ad2 }
0x1ad2…1ad8 b0c6 02570 EXIT
0x1ad2…1ad8 LineComal80 {
0x1ad2…1ad8 ptr = 0xb0c6 // 0x1ad2 @0x0
0x1ad2…1ad8 lno = 0x0a0a // 0x1ad4 @0x2
0x1ad2…1ad8 at0004 = ╱99╱ EXIT ╱ // 0x1ad6 @0x4
0x1ad2…1ad8 at0005 = EOL // 0x1ad7 @0x5
0x1ad2…1ad8 }
0x1ad8…1ade b0cc 02580 ENDIF
0x1ad8…1ade LineComal80 {
0x1ad8…1ade ptr = 0xb0cc // 0x1ad8 @0x0
0x1ad8…1ade lno = 0x0a14 // 0x1ada @0x2
0x1ad8…1ade at0004 = ╱9c╱ ENDIF ╱ // 0x1adc @0x4
0x1ad8…1ade at0005 = EOL // 0x1add @0x5
0x1ad8…1ade }
0x1ade…1afa b0e8 02590 LET P_H\JREC := P_H\JREC + 1
0x1ade…1afa LineComal80 {
0x1ade…1afa ptr = 0xb0e8 // 0x1ade @0x0
0x1ade…1afa lno = 0x0a1e // 0x1ae0 @0x2
0x1ade…1afa at0004 = ╱86╱ LET ╱ // 0x1ae2 @0x4
0x1ade…1afa at0005 = ╱50╱P╱ // 0x1ae3 @0x5
0x1ade…1afa at0006 = ╱5f╱_╱ // 0x1ae4 @0x6
0x1ade…1afa at0007 = ╱48╱H╱ // 0x1ae5 @0x7
0x1ade…1afa at0008 = ╱5c╱\╱ // 0x1ae6 @0x8
0x1ade…1afa at0009 = ╱4a╱J╱ // 0x1ae7 @0x9
0x1ade…1afa at000a = ╱52╱R╱ // 0x1ae8 @0xa
0x1ade…1afa at000b = ╱45╱E╱ // 0x1ae9 @0xb
0x1ade…1afa at000c = ╱43╱C╱ // 0x1aea @0xc
0x1ade…1afa at000d = ╱f0╱ := ╱ // 0x1aeb @0xd
0x1ade…1afa at000e = ╱50╱P╱ // 0x1aec @0xe
0x1ade…1afa at000f = ╱5f╱_╱ // 0x1aed @0xf
0x1ade…1afa at0010 = ╱48╱H╱ // 0x1aee @0x10
0x1ade…1afa at0011 = ╱5c╱\╱ // 0x1aef @0x11
0x1ade…1afa at0012 = ╱4a╱J╱ // 0x1af0 @0x12
0x1ade…1afa at0013 = ╱52╱R╱ // 0x1af1 @0x13
0x1ade…1afa at0014 = ╱45╱E╱ // 0x1af2 @0x14
0x1ade…1afa at0015 = ╱43╱C╱ // 0x1af3 @0x15
0x1ade…1afa at0016 = ╱e5╱ + ╱ // 0x1af4 @0x16
0x1ade…1afa at0017 = ╱31╱1╱ // 0x1af5 @0x17
0x1ade…1afa at0018 = ╱f20100╱ // 0x1af6 @0x18
0x1ade…1afa at001b = EOL // 0x1af9 @0x1b
0x1ade…1afa }
0x1afa…1b17 b105 02600 EXEC EDIT_LIN ( P_H\JREC - 1 )
0x1afa…1b17 LineComal80 {
0x1afa…1b17 ptr = 0xb105 // 0x1afa @0x0
0x1afa…1b17 lno = 0x0a28 // 0x1afc @0x2
0x1afa…1b17 at0004 = ╱9d╱ EXEC ╱ // 0x1afe @0x4
0x1afa…1b17 at0005 = ╱45╱E╱ // 0x1aff @0x5
0x1afa…1b17 at0006 = ╱44╱D╱ // 0x1b00 @0x6
0x1afa…1b17 at0007 = ╱49╱I╱ // 0x1b01 @0x7
0x1afa…1b17 at0008 = ╱54╱T╱ // 0x1b02 @0x8
0x1afa…1b17 at0009 = ╱5f╱_╱ // 0x1b03 @0x9
0x1afa…1b17 at000a = ╱4c╱L╱ // 0x1b04 @0xa
0x1afa…1b17 at000b = ╱49╱I╱ // 0x1b05 @0xb
0x1afa…1b17 at000c = ╱4e╱N╱ // 0x1b06 @0xc
0x1afa…1b17 at000d = ╱ed╱ ( ╱ // 0x1b07 @0xd
0x1afa…1b17 at000e = ╱50╱P╱ // 0x1b08 @0xe
0x1afa…1b17 at000f = ╱5f╱_╱ // 0x1b09 @0xf
0x1afa…1b17 at0010 = ╱48╱H╱ // 0x1b0a @0x10
0x1afa…1b17 at0011 = ╱5c╱\╱ // 0x1b0b @0x11
0x1afa…1b17 at0012 = ╱4a╱J╱ // 0x1b0c @0x12
0x1afa…1b17 at0013 = ╱52╱R╱ // 0x1b0d @0x13
0x1afa…1b17 at0014 = ╱45╱E╱ // 0x1b0e @0x14
0x1afa…1b17 at0015 = ╱43╱C╱ // 0x1b0f @0x15
0x1afa…1b17 at0016 = ╱e6╱ - ╱ // 0x1b10 @0x16
0x1afa…1b17 at0017 = ╱31╱1╱ // 0x1b11 @0x17
0x1afa…1b17 at0018 = ╱f20100╱ // 0x1b12 @0x18
0x1afa…1b17 at001b = ╱ee╱ ) ╱ // 0x1b15 @0x1b
0x1afa…1b17 at001c = EOL // 0x1b16 @0x1c
0x1afa…1b17 }
0x1b17…1b5c b14a 02610 PUT DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
0x1b17…1b5c LineComal80 {
0x1b17…1b5c ptr = 0xb14a // 0x1b17 @0x0
0x1b17…1b5c lno = 0x0a32 // 0x1b19 @0x2
0x1b17…1b5c at0004 = ╱aa╱ PUT ╱ // 0x1b1b @0x4
0x1b17…1b5c at0005 = ╱44╱D╱ // 0x1b1c @0x5
0x1b17…1b5c at0006 = ╱47╱G╱ // 0x1b1d @0x6
0x1b17…1b5c at0007 = ╱5f╱_╱ // 0x1b1e @0x7
0x1b17…1b5c at0008 = ╱50╱P╱ // 0x1b1f @0x8
0x1b17…1b5c at0009 = ╱4f╱O╱ // 0x1b20 @0x9
0x1b17…1b5c at000a = ╱53╱S╱ // 0x1b21 @0xa
0x1b17…1b5c at000b = ╱ef╱ $ ╱ // 0x1b22 @0xb
0x1b17…1b5c at000c = ╱ec╱ , ╱ // 0x1b23 @0xc
0x1b17…1b5c at000d = ╱31╱1╱ // 0x1b24 @0xd
0x1b17…1b5c at000e = ╱f20100╱ // 0x1b25 @0xe
0x1b17…1b5c at0011 = ╱f1╱ : ╱ // 0x1b28 @0x11
0x1b17…1b5c at0012 = ╱50╱P╱ // 0x1b29 @0x12
0x1b17…1b5c at0013 = ╱5f╱_╱ // 0x1b2a @0x13
0x1b17…1b5c at0014 = ╱48╱H╱ // 0x1b2b @0x14
0x1b17…1b5c at0015 = ╱5c╱\╱ // 0x1b2c @0x15
0x1b17…1b5c at0016 = ╱4a╱J╱ // 0x1b2d @0x16
0x1b17…1b5c at0017 = ╱52╱R╱ // 0x1b2e @0x17
0x1b17…1b5c at0018 = ╱45╱E╱ // 0x1b2f @0x18
0x1b17…1b5c at0019 = ╱43╱C╱ // 0x1b30 @0x19
0x1b17…1b5c at001a = ╱ec╱ , ╱ // 0x1b31 @0x1a
0x1b17…1b5c at001b = ╱50╱P╱ // 0x1b32 @0x1b
0x1b17…1b5c at001c = ╱5f╱_╱ // 0x1b33 @0x1c
0x1b17…1b5c at001d = ╱4d╱M╱ // 0x1b34 @0x1d
0x1b17…1b5c at001e = ╱41╱A╱ // 0x1b35 @0x1e
0x1b17…1b5c at001f = ╱58╱X╱ // 0x1b36 @0x1f
0x1b17…1b5c at0020 = ╱52╱R╱ // 0x1b37 @0x20
0x1b17…1b5c at0021 = ╱45╱E╱ // 0x1b38 @0x21
0x1b17…1b5c at0022 = ╱43╱C╱ // 0x1b39 @0x22
0x1b17…1b5c at0023 = ╱ec╱ , ╱ // 0x1b3a @0x23
0x1b17…1b5c at0024 = ╱53╱S╱ // 0x1b3b @0x24
0x1b17…1b5c at0025 = ╱5f╱_╱ // 0x1b3c @0x25
0x1b17…1b5c at0026 = ╱4e╱N╱ // 0x1b3d @0x26
0x1b17…1b5c at0027 = ╱52╱R╱ // 0x1b3e @0x27
0x1b17…1b5c at0028 = ╱5f╱_╱ // 0x1b3f @0x28
0x1b17…1b5c at0029 = ╱44╱D╱ // 0x1b40 @0x29
0x1b17…1b5c at002a = ╱47╱G╱ // 0x1b41 @0x2a
0x1b17…1b5c at002b = ╱5f╱_╱ // 0x1b42 @0x2b
0x1b17…1b5c at002c = ╱50╱P╱ // 0x1b43 @0x2c
0x1b17…1b5c at002d = ╱4f╱O╱ // 0x1b44 @0x2d
0x1b17…1b5c at002e = ╱53╱S╱ // 0x1b45 @0x2e
0x1b17…1b5c at002f = ╱ec╱ , ╱ // 0x1b46 @0x2f
0x1b17…1b5c at0030 = ╱50╱P╱ // 0x1b47 @0x30
0x1b17…1b5c at0031 = ╱5f╱_╱ // 0x1b48 @0x31
0x1b17…1b5c at0032 = ╱44╱D╱ // 0x1b49 @0x32
0x1b17…1b5c at0033 = ╱45╱E╱ // 0x1b4a @0x33
0x1b17…1b5c at0034 = ╱42╱B╱ // 0x1b4b @0x34
0x1b17…1b5c at0035 = ╱ec╱ , ╱ // 0x1b4c @0x35
0x1b17…1b5c at0036 = ╱50╱P╱ // 0x1b4d @0x36
0x1b17…1b5c at0037 = ╱5f╱_╱ // 0x1b4e @0x37
0x1b17…1b5c at0038 = ╱4b╱K╱ // 0x1b4f @0x38
0x1b17…1b5c at0039 = ╱52╱R╱ // 0x1b50 @0x39
0x1b17…1b5c at003a = ╱45╱E╱ // 0x1b51 @0x3a
0x1b17…1b5c at003b = ╱44╱D╱ // 0x1b52 @0x3b
0x1b17…1b5c at003c = ╱ec╱ , ╱ // 0x1b53 @0x3c
0x1b17…1b5c at003d = ╱50╱P╱ // 0x1b54 @0x3d
0x1b17…1b5c at003e = ╱5f╱_╱ // 0x1b55 @0x3e
0x1b17…1b5c at003f = ╱42╱B╱ // 0x1b56 @0x3f
0x1b17…1b5c at0040 = ╱44╱D╱ // 0x1b57 @0x40
0x1b17…1b5c at0041 = ╱41╱A╱ // 0x1b58 @0x41
0x1b17…1b5c at0042 = ╱54╱T╱ // 0x1b59 @0x42
0x1b17…1b5c at0043 = ╱ef╱ $ ╱ // 0x1b5a @0x43
0x1b17…1b5c at0044 = EOL // 0x1b5b @0x44
0x1b17…1b5c }
0x1b5c…1b88 b176 02620 IF P_H\JREC - 1 ) MOD 12 = 0 AND SVAR $ = "F" THEN
0x1b5c…1b88 LineComal80 {
0x1b5c…1b88 ptr = 0xb176 // 0x1b5c @0x0
0x1b5c…1b88 lno = 0x0a3c // 0x1b5e @0x2
0x1b5c…1b88 at0004 = ╱9b2ded╱ IF ╱ // 0x1b60 @0x4
0x1b5c…1b88 at0007 = ╱50╱P╱ // 0x1b63 @0x7
0x1b5c…1b88 at0008 = ╱5f╱_╱ // 0x1b64 @0x8
0x1b5c…1b88 at0009 = ╱48╱H╱ // 0x1b65 @0x9
0x1b5c…1b88 at000a = ╱5c╱\╱ // 0x1b66 @0xa
0x1b5c…1b88 at000b = ╱4a╱J╱ // 0x1b67 @0xb
0x1b5c…1b88 at000c = ╱52╱R╱ // 0x1b68 @0xc
0x1b5c…1b88 at000d = ╱45╱E╱ // 0x1b69 @0xd
0x1b5c…1b88 at000e = ╱43╱C╱ // 0x1b6a @0xe
0x1b5c…1b88 at000f = ╱e6╱ - ╱ // 0x1b6b @0xf
0x1b5c…1b88 at0010 = ╱31╱1╱ // 0x1b6c @0x10
0x1b5c…1b88 at0011 = ╱f20100╱ // 0x1b6d @0x11
0x1b5c…1b88 at0014 = ╱ee╱ ) ╱ // 0x1b70 @0x14
0x1b5c…1b88 at0015 = ╱db╱ MOD ╱ // 0x1b71 @0x15
0x1b5c…1b88 at0016 = ╱31╱1╱ // 0x1b72 @0x16
0x1b5c…1b88 at0017 = ╱32╱2╱ // 0x1b73 @0x17
0x1b5c…1b88 at0018 = ╱f20c00╱ // 0x1b74 @0x18
0x1b5c…1b88 at001b = ╱df╱ = ╱ // 0x1b77 @0x1b
0x1b5c…1b88 at001c = ╱30╱0╱ // 0x1b78 @0x1c
0x1b5c…1b88 at001d = ╱f20000╱ // 0x1b79 @0x1d
0x1b5c…1b88 at0020 = ╱d9╱ AND ╱ // 0x1b7c @0x20
0x1b5c…1b88 at0021 = ╱53╱S╱ // 0x1b7d @0x21
0x1b5c…1b88 at0022 = ╱56╱V╱ // 0x1b7e @0x22
0x1b5c…1b88 at0023 = ╱41╱A╱ // 0x1b7f @0x23
0x1b5c…1b88 at0024 = ╱52╱R╱ // 0x1b80 @0x24
0x1b5c…1b88 at0025 = ╱ef╱ $ ╱ // 0x1b81 @0x25
0x1b5c…1b88 at0026 = ╱df╱ = ╱ // 0x1b82 @0x26
0x1b5c…1b88 at0027 = ╱22╱"╱ // 0x1b83 @0x27
0x1b5c…1b88 at0028 = ╱46╱F╱ // 0x1b84 @0x28
0x1b5c…1b88 at0029 = ╱22╱"╱ // 0x1b85 @0x29
0x1b5c…1b88 at002a = ╱b5╱ THEN ╱ // 0x1b86 @0x2a
0x1b5c…1b88 at002b = EOL // 0x1b87 @0x2b
0x1b5c…1b88 }
0x1b88…1b98 b186 02630 EXEC RET_LINIER
0x1b88…1b98 LineComal80 {
0x1b88…1b98 ptr = 0xb186 // 0x1b88 @0x0
0x1b88…1b98 lno = 0x0a46 // 0x1b8a @0x2
0x1b88…1b98 at0004 = ╱9d╱ EXEC ╱ // 0x1b8c @0x4
0x1b88…1b98 at0005 = ╱52╱R╱ // 0x1b8d @0x5
0x1b88…1b98 at0006 = ╱45╱E╱ // 0x1b8e @0x6
0x1b88…1b98 at0007 = ╱54╱T╱ // 0x1b8f @0x7
0x1b88…1b98 at0008 = ╱5f╱_╱ // 0x1b90 @0x8
0x1b88…1b98 at0009 = ╱4c╱L╱ // 0x1b91 @0x9
0x1b88…1b98 at000a = ╱49╱I╱ // 0x1b92 @0xa
0x1b88…1b98 at000b = ╱4e╱N╱ // 0x1b93 @0xb
0x1b88…1b98 at000c = ╱49╱I╱ // 0x1b94 @0xc
0x1b88…1b98 at000d = ╱45╱E╱ // 0x1b95 @0xd
0x1b88…1b98 at000e = ╱52╱R╱ // 0x1b96 @0xe
0x1b88…1b98 at000f = EOL // 0x1b97 @0xf
0x1b88…1b98 }
0x1b98…1baa b198 02640 EXEC DIV_POSHOVED
0x1b98…1baa LineComal80 {
0x1b98…1baa ptr = 0xb198 // 0x1b98 @0x0
0x1b98…1baa lno = 0x0a50 // 0x1b9a @0x2
0x1b98…1baa at0004 = ╱9d╱ EXEC ╱ // 0x1b9c @0x4
0x1b98…1baa at0005 = ╱44╱D╱ // 0x1b9d @0x5
0x1b98…1baa at0006 = ╱49╱I╱ // 0x1b9e @0x6
0x1b98…1baa at0007 = ╱56╱V╱ // 0x1b9f @0x7
0x1b98…1baa at0008 = ╱5f╱_╱ // 0x1ba0 @0x8
0x1b98…1baa at0009 = ╱50╱P╱ // 0x1ba1 @0x9
0x1b98…1baa at000a = ╱4f╱O╱ // 0x1ba2 @0xa
0x1b98…1baa at000b = ╱53╱S╱ // 0x1ba3 @0xb
0x1b98…1baa at000c = ╱48╱H╱ // 0x1ba4 @0xc
0x1b98…1baa at000d = ╱4f╱O╱ // 0x1ba5 @0xd
0x1b98…1baa at000e = ╱56╱V╱ // 0x1ba6 @0xe
0x1b98…1baa at000f = ╱45╱E╱ // 0x1ba7 @0xf
0x1b98…1baa at0010 = ╱44╱D╱ // 0x1ba8 @0x10
0x1b98…1baa at0011 = EOL // 0x1ba9 @0x11
0x1b98…1baa }
0x1baa…1bb9 b1a7 02650 LET SVAR $ := "F"
0x1baa…1bb9 LineComal80 {
0x1baa…1bb9 ptr = 0xb1a7 // 0x1baa @0x0
0x1baa…1bb9 lno = 0x0a5a // 0x1bac @0x2
0x1baa…1bb9 at0004 = ╱86╱ LET ╱ // 0x1bae @0x4
0x1baa…1bb9 at0005 = ╱53╱S╱ // 0x1baf @0x5
0x1baa…1bb9 at0006 = ╱56╱V╱ // 0x1bb0 @0x6
0x1baa…1bb9 at0007 = ╱41╱A╱ // 0x1bb1 @0x7
0x1baa…1bb9 at0008 = ╱52╱R╱ // 0x1bb2 @0x8
0x1baa…1bb9 at0009 = ╱ef╱ $ ╱ // 0x1bb3 @0x9
0x1baa…1bb9 at000a = ╱f0╱ := ╱ // 0x1bb4 @0xa
0x1baa…1bb9 at000b = ╱22╱"╱ // 0x1bb5 @0xb
0x1baa…1bb9 at000c = ╱46╱F╱ // 0x1bb6 @0xc
0x1baa…1bb9 at000d = ╱22╱"╱ // 0x1bb7 @0xd
0x1baa…1bb9 at000e = EOL // 0x1bb8 @0xe
0x1baa…1bb9 }
0x1bb9…1bbf b1ad 02660 ENDIF
0x1bb9…1bbf LineComal80 {
0x1bb9…1bbf ptr = 0xb1ad // 0x1bb9 @0x0
0x1bb9…1bbf lno = 0x0a64 // 0x1bbb @0x2
0x1bb9…1bbf at0004 = ╱9c╱ ENDIF ╱ // 0x1bbd @0x4
0x1bb9…1bbf at0005 = EOL // 0x1bbe @0x5
0x1bb9…1bbf }
0x1bbf…1bc5 b1b3 02670 ENDWHILE
0x1bbf…1bc5 LineComal80 {
0x1bbf…1bc5 ptr = 0xb1b3 // 0x1bbf @0x0
0x1bbf…1bc5 lno = 0x0a6e // 0x1bc1 @0x2
0x1bbf…1bc5 at0004 = ╱94╱ ENDWHILE ╱ // 0x1bc3 @0x4
0x1bbf…1bc5 at0005 = EOL // 0x1bc4 @0x5
0x1bbf…1bc5 }
0x1bc5…1bd5 b1c3 02680 EXEC RET_LINIER
0x1bc5…1bd5 LineComal80 {
0x1bc5…1bd5 ptr = 0xb1c3 // 0x1bc5 @0x0
0x1bc5…1bd5 lno = 0x0a78 // 0x1bc7 @0x2
0x1bc5…1bd5 at0004 = ╱9d╱ EXEC ╱ // 0x1bc9 @0x4
0x1bc5…1bd5 at0005 = ╱52╱R╱ // 0x1bca @0x5
0x1bc5…1bd5 at0006 = ╱45╱E╱ // 0x1bcb @0x6
0x1bc5…1bd5 at0007 = ╱54╱T╱ // 0x1bcc @0x7
0x1bc5…1bd5 at0008 = ╱5f╱_╱ // 0x1bcd @0x8
0x1bc5…1bd5 at0009 = ╱4c╱L╱ // 0x1bce @0x9
0x1bc5…1bd5 at000a = ╱49╱I╱ // 0x1bcf @0xa
0x1bc5…1bd5 at000b = ╱4e╱N╱ // 0x1bd0 @0xb
0x1bc5…1bd5 at000c = ╱49╱I╱ // 0x1bd1 @0xc
0x1bc5…1bd5 at000d = ╱45╱E╱ // 0x1bd2 @0xd
0x1bc5…1bd5 at000e = ╱52╱R╱ // 0x1bd3 @0xe
0x1bc5…1bd5 at000f = EOL // 0x1bd4 @0xf
0x1bc5…1bd5 }
0x1bd5…1be9 b1d7 02690 ENDPROC INDTAST_POSTER
0x1bd5…1be9 LineComal80 {
0x1bd5…1be9 ptr = 0xb1d7 // 0x1bd5 @0x0
0x1bd5…1be9 lno = 0x0a82 // 0x1bd7 @0x2
0x1bd5…1be9 at0004 = ╱9f╱ ENDPROC ╱ // 0x1bd9 @0x4
0x1bd5…1be9 at0005 = ╱49╱I╱ // 0x1bda @0x5
0x1bd5…1be9 at0006 = ╱4e╱N╱ // 0x1bdb @0x6
0x1bd5…1be9 at0007 = ╱44╱D╱ // 0x1bdc @0x7
0x1bd5…1be9 at0008 = ╱54╱T╱ // 0x1bdd @0x8
0x1bd5…1be9 at0009 = ╱41╱A╱ // 0x1bde @0x9
0x1bd5…1be9 at000a = ╱53╱S╱ // 0x1bdf @0xa
0x1bd5…1be9 at000b = ╱54╱T╱ // 0x1be0 @0xb
0x1bd5…1be9 at000c = ╱5f╱_╱ // 0x1be1 @0xc
0x1bd5…1be9 at000d = ╱50╱P╱ // 0x1be2 @0xd
0x1bd5…1be9 at000e = ╱4f╱O╱ // 0x1be3 @0xe
0x1bd5…1be9 at000f = ╱53╱S╱ // 0x1be4 @0xf
0x1bd5…1be9 at0010 = ╱54╱T╱ // 0x1be5 @0x10
0x1bd5…1be9 at0011 = ╱45╱E╱ // 0x1be6 @0x11
0x1bd5…1be9 at0012 = ╱52╱R╱ // 0x1be7 @0x12
0x1bd5…1be9 at0013 = EOL // 0x1be8 @0x13
0x1bd5…1be9 }
0x1be9…1bee b1dc 02700
0x1be9…1bee LineComal80 {
0x1be9…1bee ptr = 0xb1dc // 0x1be9 @0x0
0x1be9…1bee lno = 0x0a8c // 0x1beb @0x2
0x1be9…1bee at0004 = EOL // 0x1bed @0x4
0x1be9…1bee }
0x1bee…1c01 b1ef 02710 PROC SKRIV_LINIER
0x1bee…1c01 LineComal80 {
0x1bee…1c01 ptr = 0xb1ef // 0x1bee @0x0
0x1bee…1c01 lno = 0x0a96 // 0x1bf0 @0x2
0x1bee…1c01 at0004 = ╱9e2e╱ PROC ╱ // 0x1bf2 @0x4
0x1bee…1c01 at0006 = ╱53╱S╱ // 0x1bf4 @0x6
0x1bee…1c01 at0007 = ╱4b╱K╱ // 0x1bf5 @0x7
0x1bee…1c01 at0008 = ╱52╱R╱ // 0x1bf6 @0x8
0x1bee…1c01 at0009 = ╱49╱I╱ // 0x1bf7 @0x9
0x1bee…1c01 at000a = ╱56╱V╱ // 0x1bf8 @0xa
0x1bee…1c01 at000b = ╱5f╱_╱ // 0x1bf9 @0xb
0x1bee…1c01 at000c = ╱4c╱L╱ // 0x1bfa @0xc
0x1bee…1c01 at000d = ╱49╱I╱ // 0x1bfb @0xd
0x1bee…1c01 at000e = ╱4e╱N╱ // 0x1bfc @0xe
0x1bee…1c01 at000f = ╱49╱I╱ // 0x1bfd @0xf
0x1bee…1c01 at0010 = ╱45╱E╱ // 0x1bfe @0x10
0x1bee…1c01 at0011 = ╱52╱R╱ // 0x1bff @0x11
0x1bee…1c01 at0012 = EOL // 0x1c00 @0x12
0x1bee…1c01 }
0x1c01…1c46 b234 02720 GET DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
0x1c01…1c46 LineComal80 {
0x1c01…1c46 ptr = 0xb234 // 0x1c01 @0x0
0x1c01…1c46 lno = 0x0aa0 // 0x1c03 @0x2
0x1c01…1c46 at0004 = ╱a9╱ GET ╱ // 0x1c05 @0x4
0x1c01…1c46 at0005 = ╱44╱D╱ // 0x1c06 @0x5
0x1c01…1c46 at0006 = ╱47╱G╱ // 0x1c07 @0x6
0x1c01…1c46 at0007 = ╱5f╱_╱ // 0x1c08 @0x7
0x1c01…1c46 at0008 = ╱50╱P╱ // 0x1c09 @0x8
0x1c01…1c46 at0009 = ╱4f╱O╱ // 0x1c0a @0x9
0x1c01…1c46 at000a = ╱53╱S╱ // 0x1c0b @0xa
0x1c01…1c46 at000b = ╱ef╱ $ ╱ // 0x1c0c @0xb
0x1c01…1c46 at000c = ╱ec╱ , ╱ // 0x1c0d @0xc
0x1c01…1c46 at000d = ╱31╱1╱ // 0x1c0e @0xd
0x1c01…1c46 at000e = ╱f20100╱ // 0x1c0f @0xe
0x1c01…1c46 at0011 = ╱f1╱ : ╱ // 0x1c12 @0x11
0x1c01…1c46 at0012 = ╱50╱P╱ // 0x1c13 @0x12
0x1c01…1c46 at0013 = ╱5f╱_╱ // 0x1c14 @0x13
0x1c01…1c46 at0014 = ╱48╱H╱ // 0x1c15 @0x14
0x1c01…1c46 at0015 = ╱5c╱\╱ // 0x1c16 @0x15
0x1c01…1c46 at0016 = ╱4a╱J╱ // 0x1c17 @0x16
0x1c01…1c46 at0017 = ╱52╱R╱ // 0x1c18 @0x17
0x1c01…1c46 at0018 = ╱45╱E╱ // 0x1c19 @0x18
0x1c01…1c46 at0019 = ╱43╱C╱ // 0x1c1a @0x19
0x1c01…1c46 at001a = ╱ec╱ , ╱ // 0x1c1b @0x1a
0x1c01…1c46 at001b = ╱50╱P╱ // 0x1c1c @0x1b
0x1c01…1c46 at001c = ╱5f╱_╱ // 0x1c1d @0x1c
0x1c01…1c46 at001d = ╱4d╱M╱ // 0x1c1e @0x1d
0x1c01…1c46 at001e = ╱41╱A╱ // 0x1c1f @0x1e
0x1c01…1c46 at001f = ╱58╱X╱ // 0x1c20 @0x1f
0x1c01…1c46 at0020 = ╱52╱R╱ // 0x1c21 @0x20
0x1c01…1c46 at0021 = ╱45╱E╱ // 0x1c22 @0x21
0x1c01…1c46 at0022 = ╱43╱C╱ // 0x1c23 @0x22
0x1c01…1c46 at0023 = ╱ec╱ , ╱ // 0x1c24 @0x23
0x1c01…1c46 at0024 = ╱53╱S╱ // 0x1c25 @0x24
0x1c01…1c46 at0025 = ╱5f╱_╱ // 0x1c26 @0x25
0x1c01…1c46 at0026 = ╱4e╱N╱ // 0x1c27 @0x26
0x1c01…1c46 at0027 = ╱52╱R╱ // 0x1c28 @0x27
0x1c01…1c46 at0028 = ╱5f╱_╱ // 0x1c29 @0x28
0x1c01…1c46 at0029 = ╱44╱D╱ // 0x1c2a @0x29
0x1c01…1c46 at002a = ╱47╱G╱ // 0x1c2b @0x2a
0x1c01…1c46 at002b = ╱5f╱_╱ // 0x1c2c @0x2b
0x1c01…1c46 at002c = ╱50╱P╱ // 0x1c2d @0x2c
0x1c01…1c46 at002d = ╱4f╱O╱ // 0x1c2e @0x2d
0x1c01…1c46 at002e = ╱53╱S╱ // 0x1c2f @0x2e
0x1c01…1c46 at002f = ╱ec╱ , ╱ // 0x1c30 @0x2f
0x1c01…1c46 at0030 = ╱50╱P╱ // 0x1c31 @0x30
0x1c01…1c46 at0031 = ╱5f╱_╱ // 0x1c32 @0x31
0x1c01…1c46 at0032 = ╱44╱D╱ // 0x1c33 @0x32
0x1c01…1c46 at0033 = ╱45╱E╱ // 0x1c34 @0x33
0x1c01…1c46 at0034 = ╱42╱B╱ // 0x1c35 @0x34
0x1c01…1c46 at0035 = ╱ec╱ , ╱ // 0x1c36 @0x35
0x1c01…1c46 at0036 = ╱50╱P╱ // 0x1c37 @0x36
0x1c01…1c46 at0037 = ╱5f╱_╱ // 0x1c38 @0x37
0x1c01…1c46 at0038 = ╱4b╱K╱ // 0x1c39 @0x38
0x1c01…1c46 at0039 = ╱52╱R╱ // 0x1c3a @0x39
0x1c01…1c46 at003a = ╱45╱E╱ // 0x1c3b @0x3a
0x1c01…1c46 at003b = ╱44╱D╱ // 0x1c3c @0x3b
0x1c01…1c46 at003c = ╱ec╱ , ╱ // 0x1c3d @0x3c
0x1c01…1c46 at003d = ╱50╱P╱ // 0x1c3e @0x3d
0x1c01…1c46 at003e = ╱5f╱_╱ // 0x1c3f @0x3e
0x1c01…1c46 at003f = ╱42╱B╱ // 0x1c40 @0x3f
0x1c01…1c46 at0040 = ╱44╱D╱ // 0x1c41 @0x40
0x1c01…1c46 at0041 = ╱41╱A╱ // 0x1c42 @0x41
0x1c01…1c46 at0042 = ╱54╱T╱ // 0x1c43 @0x42
0x1c01…1c46 at0043 = ╱ef╱ $ ╱ // 0x1c44 @0x43
0x1c01…1c46 at0044 = EOL // 0x1c45 @0x44
0x1c01…1c46 }
0x1c46…1c58 (94,) b246 02730 EXEC DIV_POSHOVED
0x1c46…1c58 LineComal80 {
0x1c46…1c58 ptr = 0xb246 // 0x1c46 @0x0
0x1c46…1c58 lno = 0x0aaa // 0x1c48 @0x2
0x1c46…1c58 at0004 = ╱9d╱ EXEC ╱ // 0x1c4a @0x4
0x1c46…1c58 at0005 = ╱44╱D╱ // 0x1c4b @0x5
0x1c46…1c58 at0006 = ╱49╱I╱ // 0x1c4c @0x6
0x1c46…1c58 at0007 = ╱56╱V╱ // 0x1c4d @0x7
0x1c46…1c58 at0008 = ╱5f╱_╱ // 0x1c4e @0x8
0x1c46…1c58 at0009 = ╱50╱P╱ // 0x1c4f @0x9
0x1c46…1c58 at000a = ╱4f╱O╱ // 0x1c50 @0xa
0x1c46…1c58 at000b = ╱53╱S╱ // 0x1c51 @0xb
0x1c46…1c58 at000c = ╱48╱H╱ // 0x1c52 @0xc
0x1c46…1c58 at000d = ╱4f╱O╱ // 0x1c53 @0xd
0x1c46…1c58 at000e = ╱56╱V╱ // 0x1c54 @0xe
0x1c46…1c58 at000f = ╱45╱E╱ // 0x1c55 @0xf
0x1c46…1c58 at0010 = ╱44╱D╱ // 0x1c56 @0x10
0x1c46…1c58 at0011 = EOL // 0x1c57 @0x11
0x1c46…1c58 }
0x1c58…1c8e b27c 02740 FOR I := P_H\JREC - ( P_H\JREC - 1 ) MOD 12 TO _H\JREC - 1 DO
0x1c58…1c8e LineComal80 {
0x1c58…1c8e ptr = 0xb27c // 0x1c58 @0x0
0x1c58…1c8e lno = 0x0ab4 // 0x1c5a @0x2
0x1c58…1c8e at0004 = ╱832f╱ FOR ╱ // 0x1c5c @0x4
0x1c58…1c8e at0006 = ╱49╱I╱ // 0x1c5e @0x6
0x1c58…1c8e at0007 = ╱f0╱ := ╱ // 0x1c5f @0x7
0x1c58…1c8e at0008 = ╱50╱P╱ // 0x1c60 @0x8
0x1c58…1c8e at0009 = ╱5f╱_╱ // 0x1c61 @0x9
0x1c58…1c8e at000a = ╱48╱H╱ // 0x1c62 @0xa
0x1c58…1c8e at000b = ╱5c╱\╱ // 0x1c63 @0xb
0x1c58…1c8e at000c = ╱4a╱J╱ // 0x1c64 @0xc
0x1c58…1c8e at000d = ╱52╱R╱ // 0x1c65 @0xd
0x1c58…1c8e at000e = ╱45╱E╱ // 0x1c66 @0xe
0x1c58…1c8e at000f = ╱43╱C╱ // 0x1c67 @0xf
0x1c58…1c8e at0010 = ╱e6╱ - ╱ // 0x1c68 @0x10
0x1c58…1c8e at0011 = ╱ed╱ ( ╱ // 0x1c69 @0x11
0x1c58…1c8e at0012 = ╱50╱P╱ // 0x1c6a @0x12
0x1c58…1c8e at0013 = ╱5f╱_╱ // 0x1c6b @0x13
0x1c58…1c8e at0014 = ╱48╱H╱ // 0x1c6c @0x14
0x1c58…1c8e at0015 = ╱5c╱\╱ // 0x1c6d @0x15
0x1c58…1c8e at0016 = ╱4a╱J╱ // 0x1c6e @0x16
0x1c58…1c8e at0017 = ╱52╱R╱ // 0x1c6f @0x17
0x1c58…1c8e at0018 = ╱45╱E╱ // 0x1c70 @0x18
0x1c58…1c8e at0019 = ╱43╱C╱ // 0x1c71 @0x19
0x1c58…1c8e at001a = ╱e6╱ - ╱ // 0x1c72 @0x1a
0x1c58…1c8e at001b = ╱31╱1╱ // 0x1c73 @0x1b
0x1c58…1c8e at001c = ╱f20100╱ // 0x1c74 @0x1c
0x1c58…1c8e at001f = ╱ee╱ ) ╱ // 0x1c77 @0x1f
0x1c58…1c8e at0020 = ╱db╱ MOD ╱ // 0x1c78 @0x20
0x1c58…1c8e at0021 = ╱31╱1╱ // 0x1c79 @0x21
0x1c58…1c8e at0022 = ╱32╱2╱ // 0x1c7a @0x22
0x1c58…1c8e at0023 = ╱f20c00╱ // 0x1c7b @0x23
0x1c58…1c8e at0026 = ╱b750╱ TO ╱ // 0x1c7e @0x26
0x1c58…1c8e at0028 = ╱5f╱_╱ // 0x1c80 @0x28
0x1c58…1c8e at0029 = ╱48╱H╱ // 0x1c81 @0x29
0x1c58…1c8e at002a = ╱5c╱\╱ // 0x1c82 @0x2a
0x1c58…1c8e at002b = ╱4a╱J╱ // 0x1c83 @0x2b
0x1c58…1c8e at002c = ╱52╱R╱ // 0x1c84 @0x2c
0x1c58…1c8e at002d = ╱45╱E╱ // 0x1c85 @0x2d
0x1c58…1c8e at002e = ╱43╱C╱ // 0x1c86 @0x2e
0x1c58…1c8e at002f = ╱e6╱ - ╱ // 0x1c87 @0x2f
0x1c58…1c8e at0030 = ╱31╱1╱ // 0x1c88 @0x30
0x1c58…1c8e at0031 = ╱f20100╱ // 0x1c89 @0x31
0x1c58…1c8e at0034 = ╱bb╱ DO ╱ // 0x1c8c @0x34
0x1c58…1c8e at0035 = EOL // 0x1c8d @0x35
0x1c58…1c8e }
0x1c8e…1c9c b28a 02750 IF > 0 THEN
0x1c8e…1c9c LineComal80 {
0x1c8e…1c9c ptr = 0xb28a // 0x1c8e @0x0
0x1c8e…1c9c lno = 0x0abe // 0x1c90 @0x2
0x1c8e…1c9c at0004 = ╱9b3049╱ IF ╱ // 0x1c92 @0x4
0x1c8e…1c9c at0007 = ╱e1╱ > ╱ // 0x1c95 @0x7
0x1c8e…1c9c at0008 = ╱30╱0╱ // 0x1c96 @0x8
0x1c8e…1c9c at0009 = ╱f20000╱ // 0x1c97 @0x9
0x1c8e…1c9c at000c = ╱b5╱ THEN ╱ // 0x1c9a @0xc
0x1c8e…1c9c at000d = EOL // 0x1c9b @0xd
0x1c8e…1c9c }
0x1c9c…1caf b29d 02760 EXEC L[S_DG_POS ( I )
0x1c9c…1caf LineComal80 {
0x1c9c…1caf ptr = 0xb29d // 0x1c9c @0x0
0x1c9c…1caf lno = 0x0ac8 // 0x1c9e @0x2
0x1c9c…1caf at0004 = ╱9d╱ EXEC ╱ // 0x1ca0 @0x4
0x1c9c…1caf at0005 = ╱4c╱L╱ // 0x1ca1 @0x5
0x1c9c…1caf at0006 = ╱5b╱[╱ // 0x1ca2 @0x6
0x1c9c…1caf at0007 = ╱53╱S╱ // 0x1ca3 @0x7
0x1c9c…1caf at0008 = ╱5f╱_╱ // 0x1ca4 @0x8
0x1c9c…1caf at0009 = ╱44╱D╱ // 0x1ca5 @0x9
0x1c9c…1caf at000a = ╱47╱G╱ // 0x1ca6 @0xa
0x1c9c…1caf at000b = ╱5f╱_╱ // 0x1ca7 @0xb
0x1c9c…1caf at000c = ╱50╱P╱ // 0x1ca8 @0xc
0x1c9c…1caf at000d = ╱4f╱O╱ // 0x1ca9 @0xd
0x1c9c…1caf at000e = ╱53╱S╱ // 0x1caa @0xe
0x1c9c…1caf at000f = ╱ed╱ ( ╱ // 0x1cab @0xf
0x1c9c…1caf at0010 = ╱49╱I╱ // 0x1cac @0x10
0x1c9c…1caf at0011 = ╱ee╱ ) ╱ // 0x1cad @0x11
0x1c9c…1caf at0012 = EOL // 0x1cae @0x12
0x1c9c…1caf }
0x1caf…1cc1 b2af 02770 EXEC SKRIV_LIN ( I )
0x1caf…1cc1 LineComal80 {
0x1caf…1cc1 ptr = 0xb2af // 0x1caf @0x0
0x1caf…1cc1 lno = 0x0ad2 // 0x1cb1 @0x2
0x1caf…1cc1 at0004 = ╱9d╱ EXEC ╱ // 0x1cb3 @0x4
0x1caf…1cc1 at0005 = ╱53╱S╱ // 0x1cb4 @0x5
0x1caf…1cc1 at0006 = ╱4b╱K╱ // 0x1cb5 @0x6
0x1caf…1cc1 at0007 = ╱52╱R╱ // 0x1cb6 @0x7
0x1caf…1cc1 at0008 = ╱49╱I╱ // 0x1cb7 @0x8
0x1caf…1cc1 at0009 = ╱56╱V╱ // 0x1cb8 @0x9
0x1caf…1cc1 at000a = ╱5f╱_╱ // 0x1cb9 @0xa
0x1caf…1cc1 at000b = ╱4c╱L╱ // 0x1cba @0xb
0x1caf…1cc1 at000c = ╱49╱I╱ // 0x1cbb @0xc
0x1caf…1cc1 at000d = ╱4e╱N╱ // 0x1cbc @0xd
0x1caf…1cc1 at000e = ╱ed╱ ( ╱ // 0x1cbd @0xe
0x1caf…1cc1 at000f = ╱49╱I╱ // 0x1cbe @0xf
0x1caf…1cc1 at0010 = ╱ee╱ ) ╱ // 0x1cbf @0x10
0x1caf…1cc1 at0011 = EOL // 0x1cc0 @0x11
0x1caf…1cc1 }
0x1cc1…1cc7 b2b5 02780 ENDIF
0x1cc1…1cc7 LineComal80 {
0x1cc1…1cc7 ptr = 0xb2b5 // 0x1cc1 @0x0
0x1cc1…1cc7 lno = 0x0adc // 0x1cc3 @0x2
0x1cc1…1cc7 at0004 = ╱9c╱ ENDIF ╱ // 0x1cc5 @0x4
0x1cc1…1cc7 at0005 = EOL // 0x1cc6 @0x5
0x1cc1…1cc7 }
0x1cc7…1cce b2bc 02790 NEXT I
0x1cc7…1cce LineComal80 {
0x1cc7…1cce ptr = 0xb2bc // 0x1cc7 @0x0
0x1cc7…1cce lno = 0x0ae6 // 0x1cc9 @0x2
0x1cc7…1cce at0004 = ╱84╱ NEXT ╱ // 0x1ccb @0x4
0x1cc7…1cce at0005 = ╱49╱I╱ // 0x1ccc @0x5
0x1cc7…1cce at0006 = EOL // 0x1ccd @0x6
0x1cc7…1cce }
0x1cce…1ce0 b2ce 02800 ENDPROC SKRIV_LINIER
0x1cce…1ce0 LineComal80 {
0x1cce…1ce0 ptr = 0xb2ce // 0x1cce @0x0
0x1cce…1ce0 lno = 0x0af0 // 0x1cd0 @0x2
0x1cce…1ce0 at0004 = ╱9f╱ ENDPROC ╱ // 0x1cd2 @0x4
0x1cce…1ce0 at0005 = ╱53╱S╱ // 0x1cd3 @0x5
0x1cce…1ce0 at0006 = ╱4b╱K╱ // 0x1cd4 @0x6
0x1cce…1ce0 at0007 = ╱52╱R╱ // 0x1cd5 @0x7
0x1cce…1ce0 at0008 = ╱49╱I╱ // 0x1cd6 @0x8
0x1cce…1ce0 at0009 = ╱56╱V╱ // 0x1cd7 @0x9
0x1cce…1ce0 at000a = ╱5f╱_╱ // 0x1cd8 @0xa
0x1cce…1ce0 at000b = ╱4c╱L╱ // 0x1cd9 @0xb
0x1cce…1ce0 at000c = ╱49╱I╱ // 0x1cda @0xc
0x1cce…1ce0 at000d = ╱4e╱N╱ // 0x1cdb @0xd
0x1cce…1ce0 at000e = ╱49╱I╱ // 0x1cdc @0xe
0x1cce…1ce0 at000f = ╱45╱E╱ // 0x1cdd @0xf
0x1cce…1ce0 at0010 = ╱52╱R╱ // 0x1cde @0x10
0x1cce…1ce0 at0011 = EOL // 0x1cdf @0x11
0x1cce…1ce0 }
0x1ce0…1ce5 (96,) b2d3 02810
0x1ce0…1ce5 LineComal80 {
0x1ce0…1ce5 ptr = 0xb2d3 // 0x1ce0 @0x0
0x1ce0…1ce5 lno = 0x0afa // 0x1ce2 @0x2
0x1ce0…1ce5 at0004 = EOL // 0x1ce4 @0x4
0x1ce0…1ce5 }
0x1ce5…1cfb b2e9 02820 PROC SKRIV_DG_POS ( P )
0x1ce5…1cfb LineComal80 {
0x1ce5…1cfb ptr = 0xb2e9 // 0x1ce5 @0x0
0x1ce5…1cfb lno = 0x0b04 // 0x1ce7 @0x2
0x1ce5…1cfb at0004 = ╱9e31╱ PROC ╱ // 0x1ce9 @0x4
0x1ce5…1cfb at0006 = ╱53╱S╱ // 0x1ceb @0x6
0x1ce5…1cfb at0007 = ╱4b╱K╱ // 0x1cec @0x7
0x1ce5…1cfb at0008 = ╱52╱R╱ // 0x1ced @0x8
0x1ce5…1cfb at0009 = ╱49╱I╱ // 0x1cee @0x9
0x1ce5…1cfb at000a = ╱56╱V╱ // 0x1cef @0xa
0x1ce5…1cfb at000b = ╱5f╱_╱ // 0x1cf0 @0xb
0x1ce5…1cfb at000c = ╱44╱D╱ // 0x1cf1 @0xc
0x1ce5…1cfb at000d = ╱47╱G╱ // 0x1cf2 @0xd
0x1ce5…1cfb at000e = ╱5f╱_╱ // 0x1cf3 @0xe
0x1ce5…1cfb at000f = ╱50╱P╱ // 0x1cf4 @0xf
0x1ce5…1cfb at0010 = ╱4f╱O╱ // 0x1cf5 @0x10
0x1ce5…1cfb at0011 = ╱53╱S╱ // 0x1cf6 @0x11
0x1ce5…1cfb at0012 = ╱ed╱ ( ╱ // 0x1cf7 @0x12
0x1ce5…1cfb at0013 = ╱50╱P╱ // 0x1cf8 @0x13
0x1ce5…1cfb at0014 = ╱ee╱ ) ╱ // 0x1cf9 @0x14
0x1ce5…1cfb at0015 = EOL // 0x1cfa @0x15
0x1ce5…1cfb }
0x1cfb…1d38 b326 02830 PUT DG_POS $ , P + 1 : P_BKTO $ , P_MKOD $ , P_BNR $ , P_TXT $ , P_BKR , P_DK
0x1cfb…1d38 LineComal80 {
0x1cfb…1d38 ptr = 0xb326 // 0x1cfb @0x0
0x1cfb…1d38 lno = 0x0b0e // 0x1cfd @0x2
0x1cfb…1d38 at0004 = ╱aa╱ PUT ╱ // 0x1cff @0x4
0x1cfb…1d38 at0005 = ╱44╱D╱ // 0x1d00 @0x5
0x1cfb…1d38 at0006 = ╱47╱G╱ // 0x1d01 @0x6
0x1cfb…1d38 at0007 = ╱5f╱_╱ // 0x1d02 @0x7
0x1cfb…1d38 at0008 = ╱50╱P╱ // 0x1d03 @0x8
0x1cfb…1d38 at0009 = ╱4f╱O╱ // 0x1d04 @0x9
0x1cfb…1d38 at000a = ╱53╱S╱ // 0x1d05 @0xa
0x1cfb…1d38 at000b = ╱ef╱ $ ╱ // 0x1d06 @0xb
0x1cfb…1d38 at000c = ╱ec╱ , ╱ // 0x1d07 @0xc
0x1cfb…1d38 at000d = ╱50╱P╱ // 0x1d08 @0xd
0x1cfb…1d38 at000e = ╱e5╱ + ╱ // 0x1d09 @0xe
0x1cfb…1d38 at000f = ╱31╱1╱ // 0x1d0a @0xf
0x1cfb…1d38 at0010 = ╱f20100╱ // 0x1d0b @0x10
0x1cfb…1d38 at0013 = ╱f1╱ : ╱ // 0x1d0e @0x13
0x1cfb…1d38 at0014 = ╱50╱P╱ // 0x1d0f @0x14
0x1cfb…1d38 at0015 = ╱5f╱_╱ // 0x1d10 @0x15
0x1cfb…1d38 at0016 = ╱42╱B╱ // 0x1d11 @0x16
0x1cfb…1d38 at0017 = ╱4b╱K╱ // 0x1d12 @0x17
0x1cfb…1d38 at0018 = ╱54╱T╱ // 0x1d13 @0x18
0x1cfb…1d38 at0019 = ╱4f╱O╱ // 0x1d14 @0x19
0x1cfb…1d38 at001a = ╱ef╱ $ ╱ // 0x1d15 @0x1a
0x1cfb…1d38 at001b = ╱ec╱ , ╱ // 0x1d16 @0x1b
0x1cfb…1d38 at001c = ╱50╱P╱ // 0x1d17 @0x1c
0x1cfb…1d38 at001d = ╱5f╱_╱ // 0x1d18 @0x1d
0x1cfb…1d38 at001e = ╱4d╱M╱ // 0x1d19 @0x1e
0x1cfb…1d38 at001f = ╱4b╱K╱ // 0x1d1a @0x1f
0x1cfb…1d38 at0020 = ╱4f╱O╱ // 0x1d1b @0x20
0x1cfb…1d38 at0021 = ╱44╱D╱ // 0x1d1c @0x21
0x1cfb…1d38 at0022 = ╱ef╱ $ ╱ // 0x1d1d @0x22
0x1cfb…1d38 at0023 = ╱ec╱ , ╱ // 0x1d1e @0x23
0x1cfb…1d38 at0024 = ╱50╱P╱ // 0x1d1f @0x24
0x1cfb…1d38 at0025 = ╱5f╱_╱ // 0x1d20 @0x25
0x1cfb…1d38 at0026 = ╱42╱B╱ // 0x1d21 @0x26
0x1cfb…1d38 at0027 = ╱4e╱N╱ // 0x1d22 @0x27
0x1cfb…1d38 at0028 = ╱52╱R╱ // 0x1d23 @0x28
0x1cfb…1d38 at0029 = ╱ef╱ $ ╱ // 0x1d24 @0x29
0x1cfb…1d38 at002a = ╱ec╱ , ╱ // 0x1d25 @0x2a
0x1cfb…1d38 at002b = ╱50╱P╱ // 0x1d26 @0x2b
0x1cfb…1d38 at002c = ╱5f╱_╱ // 0x1d27 @0x2c
0x1cfb…1d38 at002d = ╱54╱T╱ // 0x1d28 @0x2d
0x1cfb…1d38 at002e = ╱58╱X╱ // 0x1d29 @0x2e
0x1cfb…1d38 at002f = ╱54╱T╱ // 0x1d2a @0x2f
0x1cfb…1d38 at0030 = ╱ef╱ $ ╱ // 0x1d2b @0x30
0x1cfb…1d38 at0031 = ╱ec╱ , ╱ // 0x1d2c @0x31
0x1cfb…1d38 at0032 = ╱50╱P╱ // 0x1d2d @0x32
0x1cfb…1d38 at0033 = ╱5f╱_╱ // 0x1d2e @0x33
0x1cfb…1d38 at0034 = ╱42╱B╱ // 0x1d2f @0x34
0x1cfb…1d38 at0035 = ╱4b╱K╱ // 0x1d30 @0x35
0x1cfb…1d38 at0036 = ╱52╱R╱ // 0x1d31 @0x36
0x1cfb…1d38 at0037 = ╱ec╱ , ╱ // 0x1d32 @0x37
0x1cfb…1d38 at0038 = ╱50╱P╱ // 0x1d33 @0x38
0x1cfb…1d38 at0039 = ╱5f╱_╱ // 0x1d34 @0x39
0x1cfb…1d38 at003a = ╱44╱D╱ // 0x1d35 @0x3a
0x1cfb…1d38 at003b = ╱4b╱K╱ // 0x1d36 @0x3b
0x1cfb…1d38 at003c = EOL // 0x1d37 @0x3c
0x1cfb…1d38 }
0x1d38…1d4a b338 02840 ENDPROC SKRIV_DG_POS
0x1d38…1d4a LineComal80 {
0x1d38…1d4a ptr = 0xb338 // 0x1d38 @0x0
0x1d38…1d4a lno = 0x0b18 // 0x1d3a @0x2
0x1d38…1d4a at0004 = ╱9f╱ ENDPROC ╱ // 0x1d3c @0x4
0x1d38…1d4a at0005 = ╱53╱S╱ // 0x1d3d @0x5
0x1d38…1d4a at0006 = ╱4b╱K╱ // 0x1d3e @0x6
0x1d38…1d4a at0007 = ╱52╱R╱ // 0x1d3f @0x7
0x1d38…1d4a at0008 = ╱49╱I╱ // 0x1d40 @0x8
0x1d38…1d4a at0009 = ╱56╱V╱ // 0x1d41 @0x9
0x1d38…1d4a at000a = ╱5f╱_╱ // 0x1d42 @0xa
0x1d38…1d4a at000b = ╱44╱D╱ // 0x1d43 @0xb
0x1d38…1d4a at000c = ╱47╱G╱ // 0x1d44 @0xc
0x1d38…1d4a at000d = ╱5f╱_╱ // 0x1d45 @0xd
0x1d38…1d4a at000e = ╱50╱P╱ // 0x1d46 @0xe
0x1d38…1d4a at000f = ╱4f╱O╱ // 0x1d47 @0xf
0x1d38…1d4a at0010 = ╱53╱S╱ // 0x1d48 @0x10
0x1d38…1d4a at0011 = EOL // 0x1d49 @0x11
0x1d38…1d4a }
0x1d4a…1d4f b33d 02850
0x1d4a…1d4f LineComal80 {
0x1d4a…1d4f ptr = 0xb33d // 0x1d4a @0x0
0x1d4a…1d4f lno = 0x0b22 // 0x1d4c @0x2
0x1d4a…1d4f at0004 = EOL // 0x1d4e @0x4
0x1d4a…1d4f }
0x1d4f…1d63 b351 02860 PROC L[S_DG_POS ( P )
0x1d4f…1d63 LineComal80 {
0x1d4f…1d63 ptr = 0xb351 // 0x1d4f @0x0
0x1d4f…1d63 lno = 0x0b2c // 0x1d51 @0x2
0x1d4f…1d63 at0004 = ╱9e32╱ PROC ╱ // 0x1d53 @0x4
0x1d4f…1d63 at0006 = ╱4c╱L╱ // 0x1d55 @0x6
0x1d4f…1d63 at0007 = ╱5b╱[╱ // 0x1d56 @0x7
0x1d4f…1d63 at0008 = ╱53╱S╱ // 0x1d57 @0x8
0x1d4f…1d63 at0009 = ╱5f╱_╱ // 0x1d58 @0x9
0x1d4f…1d63 at000a = ╱44╱D╱ // 0x1d59 @0xa
0x1d4f…1d63 at000b = ╱47╱G╱ // 0x1d5a @0xb
0x1d4f…1d63 at000c = ╱5f╱_╱ // 0x1d5b @0xc
0x1d4f…1d63 at000d = ╱50╱P╱ // 0x1d5c @0xd
0x1d4f…1d63 at000e = ╱4f╱O╱ // 0x1d5d @0xe
0x1d4f…1d63 at000f = ╱53╱S╱ // 0x1d5e @0xf
0x1d4f…1d63 at0010 = ╱ed╱ ( ╱ // 0x1d5f @0x10
0x1d4f…1d63 at0011 = ╱50╱P╱ // 0x1d60 @0x11
0x1d4f…1d63 at0012 = ╱ee╱ ) ╱ // 0x1d61 @0x12
0x1d4f…1d63 at0013 = EOL // 0x1d62 @0x13
0x1d4f…1d63 }
0x1d63…1da0 b38e 02870 GET DG_POS $ , P + 1 : P_BKTO $ , P_MKOD $ , P_BNR $ , P_TXT $ , P_BKR , P_DK
0x1d63…1da0 LineComal80 {
0x1d63…1da0 ptr = 0xb38e // 0x1d63 @0x0
0x1d63…1da0 lno = 0x0b36 // 0x1d65 @0x2
0x1d63…1da0 at0004 = ╱a9╱ GET ╱ // 0x1d67 @0x4
0x1d63…1da0 at0005 = ╱44╱D╱ // 0x1d68 @0x5
0x1d63…1da0 at0006 = ╱47╱G╱ // 0x1d69 @0x6
0x1d63…1da0 at0007 = ╱5f╱_╱ // 0x1d6a @0x7
0x1d63…1da0 at0008 = ╱50╱P╱ // 0x1d6b @0x8
0x1d63…1da0 at0009 = ╱4f╱O╱ // 0x1d6c @0x9
0x1d63…1da0 at000a = ╱53╱S╱ // 0x1d6d @0xa
0x1d63…1da0 at000b = ╱ef╱ $ ╱ // 0x1d6e @0xb
0x1d63…1da0 at000c = ╱ec╱ , ╱ // 0x1d6f @0xc
0x1d63…1da0 at000d = ╱50╱P╱ // 0x1d70 @0xd
0x1d63…1da0 at000e = ╱e5╱ + ╱ // 0x1d71 @0xe
0x1d63…1da0 at000f = ╱31╱1╱ // 0x1d72 @0xf
0x1d63…1da0 at0010 = ╱f20100╱ // 0x1d73 @0x10
0x1d63…1da0 at0013 = ╱f1╱ : ╱ // 0x1d76 @0x13
0x1d63…1da0 at0014 = ╱50╱P╱ // 0x1d77 @0x14
0x1d63…1da0 at0015 = ╱5f╱_╱ // 0x1d78 @0x15
0x1d63…1da0 at0016 = ╱42╱B╱ // 0x1d79 @0x16
0x1d63…1da0 at0017 = ╱4b╱K╱ // 0x1d7a @0x17
0x1d63…1da0 at0018 = ╱54╱T╱ // 0x1d7b @0x18
0x1d63…1da0 at0019 = ╱4f╱O╱ // 0x1d7c @0x19
0x1d63…1da0 at001a = ╱ef╱ $ ╱ // 0x1d7d @0x1a
0x1d63…1da0 at001b = ╱ec╱ , ╱ // 0x1d7e @0x1b
0x1d63…1da0 at001c = ╱50╱P╱ // 0x1d7f @0x1c
0x1d63…1da0 at001d = ╱5f╱_╱ // 0x1d80 @0x1d
0x1d63…1da0 at001e = ╱4d╱M╱ // 0x1d81 @0x1e
0x1d63…1da0 at001f = ╱4b╱K╱ // 0x1d82 @0x1f
0x1d63…1da0 at0020 = ╱4f╱O╱ // 0x1d83 @0x20
0x1d63…1da0 at0021 = ╱44╱D╱ // 0x1d84 @0x21
0x1d63…1da0 at0022 = ╱ef╱ $ ╱ // 0x1d85 @0x22
0x1d63…1da0 at0023 = ╱ec╱ , ╱ // 0x1d86 @0x23
0x1d63…1da0 at0024 = ╱50╱P╱ // 0x1d87 @0x24
0x1d63…1da0 at0025 = ╱5f╱_╱ // 0x1d88 @0x25
0x1d63…1da0 at0026 = ╱42╱B╱ // 0x1d89 @0x26
0x1d63…1da0 at0027 = ╱4e╱N╱ // 0x1d8a @0x27
0x1d63…1da0 at0028 = ╱52╱R╱ // 0x1d8b @0x28
0x1d63…1da0 at0029 = ╱ef╱ $ ╱ // 0x1d8c @0x29
0x1d63…1da0 at002a = ╱ec╱ , ╱ // 0x1d8d @0x2a
0x1d63…1da0 at002b = ╱50╱P╱ // 0x1d8e @0x2b
0x1d63…1da0 at002c = ╱5f╱_╱ // 0x1d8f @0x2c
0x1d63…1da0 at002d = ╱54╱T╱ // 0x1d90 @0x2d
0x1d63…1da0 at002e = ╱58╱X╱ // 0x1d91 @0x2e
0x1d63…1da0 at002f = ╱54╱T╱ // 0x1d92 @0x2f
0x1d63…1da0 at0030 = ╱ef╱ $ ╱ // 0x1d93 @0x30
0x1d63…1da0 at0031 = ╱ec╱ , ╱ // 0x1d94 @0x31
0x1d63…1da0 at0032 = ╱50╱P╱ // 0x1d95 @0x32
0x1d63…1da0 at0033 = ╱5f╱_╱ // 0x1d96 @0x33
0x1d63…1da0 at0034 = ╱42╱B╱ // 0x1d97 @0x34
0x1d63…1da0 at0035 = ╱4b╱K╱ // 0x1d98 @0x35
0x1d63…1da0 at0036 = ╱52╱R╱ // 0x1d99 @0x36
0x1d63…1da0 at0037 = ╱ec╱ , ╱ // 0x1d9a @0x37
0x1d63…1da0 at0038 = ╱50╱P╱ // 0x1d9b @0x38
0x1d63…1da0 at0039 = ╱5f╱_╱ // 0x1d9c @0x39
0x1d63…1da0 at003a = ╱44╱D╱ // 0x1d9d @0x3a
0x1d63…1da0 at003b = ╱4b╱K╱ // 0x1d9e @0x3b
0x1d63…1da0 at003c = EOL // 0x1d9f @0x3c
0x1d63…1da0 }
0x1da0…1db0 b39e 02880 ENDPROC L[S_DG_POS
0x1da0…1db0 LineComal80 {
0x1da0…1db0 ptr = 0xb39e // 0x1da0 @0x0
0x1da0…1db0 lno = 0x0b40 // 0x1da2 @0x2
0x1da0…1db0 at0004 = ╱9f╱ ENDPROC ╱ // 0x1da4 @0x4
0x1da0…1db0 at0005 = ╱4c╱L╱ // 0x1da5 @0x5
0x1da0…1db0 at0006 = ╱5b╱[╱ // 0x1da6 @0x6
0x1da0…1db0 at0007 = ╱53╱S╱ // 0x1da7 @0x7
0x1da0…1db0 at0008 = ╱5f╱_╱ // 0x1da8 @0x8
0x1da0…1db0 at0009 = ╱44╱D╱ // 0x1da9 @0x9
0x1da0…1db0 at000a = ╱47╱G╱ // 0x1daa @0xa
0x1da0…1db0 at000b = ╱5f╱_╱ // 0x1dab @0xb
0x1da0…1db0 at000c = ╱50╱P╱ // 0x1dac @0xc
0x1da0…1db0 at000d = ╱4f╱O╱ // 0x1dad @0xd
0x1da0…1db0 at000e = ╱53╱S╱ // 0x1dae @0xe
0x1da0…1db0 at000f = EOL // 0x1daf @0xf
0x1da0…1db0 }
0x1db0…1db5 b3a3 02890
0x1db0…1db5 LineComal80 {
0x1db0…1db5 ptr = 0xb3a3 // 0x1db0 @0x0
0x1db0…1db5 lno = 0x0b4a // 0x1db2 @0x2
0x1db0…1db5 at0004 = EOL // 0x1db4 @0x4
0x1db0…1db5 }
0x1db5…1dcc b3ba 02900 PROC SKRIV_LIN ( R_LIN )
0x1db5…1dcc LineComal80 {
0x1db5…1dcc ptr = 0xb3ba // 0x1db5 @0x0
0x1db5…1dcc lno = 0x0b54 // 0x1db7 @0x2
0x1db5…1dcc at0004 = ╱9e33╱ PROC ╱ // 0x1db9 @0x4
0x1db5…1dcc at0006 = ╱53╱S╱ // 0x1dbb @0x6
0x1db5…1dcc at0007 = ╱4b╱K╱ // 0x1dbc @0x7
0x1db5…1dcc at0008 = ╱52╱R╱ // 0x1dbd @0x8
0x1db5…1dcc at0009 = ╱49╱I╱ // 0x1dbe @0x9
0x1db5…1dcc at000a = ╱56╱V╱ // 0x1dbf @0xa
0x1db5…1dcc at000b = ╱5f╱_╱ // 0x1dc0 @0xb
0x1db5…1dcc at000c = ╱4c╱L╱ // 0x1dc1 @0xc
0x1db5…1dcc at000d = ╱49╱I╱ // 0x1dc2 @0xd
0x1db5…1dcc at000e = ╱4e╱N╱ // 0x1dc3 @0xe
0x1db5…1dcc at000f = ╱ed╱ ( ╱ // 0x1dc4 @0xf
0x1db5…1dcc at0010 = ╱52╱R╱ // 0x1dc5 @0x10
0x1db5…1dcc at0011 = ╱5f╱_╱ // 0x1dc6 @0x11
0x1db5…1dcc at0012 = ╱4c╱L╱ // 0x1dc7 @0x12
0x1db5…1dcc at0013 = ╱49╱I╱ // 0x1dc8 @0x13
0x1db5…1dcc at0014 = ╱4e╱N╱ // 0x1dc9 @0x14
0x1db5…1dcc at0015 = ╱ee╱ ) ╱ // 0x1dca @0x15
0x1db5…1dcc at0016 = EOL // 0x1dcb @0x16
0x1db5…1dcc }
0x1dcc…1de3 b3d1 02910 IF P_BNR $ = "*****" THEN EXIT
0x1dcc…1de3 LineComal80 {
0x1dcc…1de3 ptr = 0xb3d1 // 0x1dcc @0x0
0x1dcc…1de3 lno = 0x0b5e // 0x1dce @0x2
0x1dcc…1de3 at0004 = ╱8200╱ IF ╱ // 0x1dd0 @0x4
0x1dcc…1de3 at0006 = ╱50╱P╱ // 0x1dd2 @0x6
0x1dcc…1de3 at0007 = ╱5f╱_╱ // 0x1dd3 @0x7
0x1dcc…1de3 at0008 = ╱42╱B╱ // 0x1dd4 @0x8
0x1dcc…1de3 at0009 = ╱4e╱N╱ // 0x1dd5 @0x9
0x1dcc…1de3 at000a = ╱52╱R╱ // 0x1dd6 @0xa
0x1dcc…1de3 at000b = ╱ef╱ $ ╱ // 0x1dd7 @0xb
0x1dcc…1de3 at000c = ╱df╱ = ╱ // 0x1dd8 @0xc
0x1dcc…1de3 at000d = ╱22╱"╱ // 0x1dd9 @0xd
0x1dcc…1de3 at000e = ╱2a╱*╱ // 0x1dda @0xe
0x1dcc…1de3 at000f = ╱2a╱*╱ // 0x1ddb @0xf
0x1dcc…1de3 at0010 = ╱2a╱*╱ // 0x1ddc @0x10
0x1dcc…1de3 at0011 = ╱2a╱*╱ // 0x1ddd @0x11
0x1dcc…1de3 at0012 = ╱2a╱*╱ // 0x1dde @0x12
0x1dcc…1de3 at0013 = ╱22╱"╱ // 0x1ddf @0x13
0x1dcc…1de3 at0014 = ╱b5╱ THEN ╱ // 0x1de0 @0x14
0x1dcc…1de3 at0015 = ╱99╱ EXIT ╱ // 0x1de1 @0x15
0x1dcc…1de3 at0016 = EOL // 0x1de2 @0x16
0x1dcc…1de3 }
0x1de3…1e00 b3ee 02920 LET R_SLIN := R_LIN MOD 12 + 7
0x1de3…1e00 LineComal80 {
0x1de3…1e00 ptr = 0xb3ee // 0x1de3 @0x0
0x1de3…1e00 lno = 0x0b68 // 0x1de5 @0x2
0x1de3…1e00 at0004 = ╱86╱ LET ╱ // 0x1de7 @0x4
0x1de3…1e00 at0005 = ╱52╱R╱ // 0x1de8 @0x5
0x1de3…1e00 at0006 = ╱5f╱_╱ // 0x1de9 @0x6
0x1de3…1e00 at0007 = ╱53╱S╱ // 0x1dea @0x7
0x1de3…1e00 at0008 = ╱4c╱L╱ // 0x1deb @0x8
0x1de3…1e00 at0009 = ╱49╱I╱ // 0x1dec @0x9
0x1de3…1e00 at000a = ╱4e╱N╱ // 0x1ded @0xa
0x1de3…1e00 at000b = ╱f0╱ := ╱ // 0x1dee @0xb
0x1de3…1e00 at000c = ╱52╱R╱ // 0x1def @0xc
0x1de3…1e00 at000d = ╱5f╱_╱ // 0x1df0 @0xd
0x1de3…1e00 at000e = ╱4c╱L╱ // 0x1df1 @0xe
0x1de3…1e00 at000f = ╱49╱I╱ // 0x1df2 @0xf
0x1de3…1e00 at0010 = ╱4e╱N╱ // 0x1df3 @0x10
0x1de3…1e00 at0011 = ╱db╱ MOD ╱ // 0x1df4 @0x11
0x1de3…1e00 at0012 = ╱31╱1╱ // 0x1df5 @0x12
0x1de3…1e00 at0013 = ╱32╱2╱ // 0x1df6 @0x13
0x1de3…1e00 at0014 = ╱f20c00╱ // 0x1df7 @0x14
0x1de3…1e00 at0017 = ╱e5╱ + ╱ // 0x1dfa @0x17
0x1de3…1e00 at0018 = ╱37╱7╱ // 0x1dfb @0x18
0x1de3…1e00 at0019 = ╱f20700╱ // 0x1dfc @0x19
0x1de3…1e00 at001c = EOL // 0x1dff @0x1c
0x1de3…1e00 }
0x1e00…1e27 b415 02930 IF R_SLIN = 7 THEN LET R_SLIN := 12 + R_SLIN
0x1e00…1e27 LineComal80 {
0x1e00…1e27 ptr = 0xb415 // 0x1e00 @0x0
0x1e00…1e27 lno = 0x0b72 // 0x1e02 @0x2
0x1e00…1e27 at0004 = ╱8200╱ IF ╱ // 0x1e04 @0x4
0x1e00…1e27 at0006 = ╱52╱R╱ // 0x1e06 @0x6
0x1e00…1e27 at0007 = ╱5f╱_╱ // 0x1e07 @0x7
0x1e00…1e27 at0008 = ╱53╱S╱ // 0x1e08 @0x8
0x1e00…1e27 at0009 = ╱4c╱L╱ // 0x1e09 @0x9
0x1e00…1e27 at000a = ╱49╱I╱ // 0x1e0a @0xa
0x1e00…1e27 at000b = ╱4e╱N╱ // 0x1e0b @0xb
0x1e00…1e27 at000c = ╱df╱ = ╱ // 0x1e0c @0xc
0x1e00…1e27 at000d = ╱37╱7╱ // 0x1e0d @0xd
0x1e00…1e27 at000e = ╱f20700╱ // 0x1e0e @0xe
0x1e00…1e27 at0011 = ╱b5╱ THEN ╱ // 0x1e11 @0x11
0x1e00…1e27 at0012 = ╱86╱ LET ╱ // 0x1e12 @0x12
0x1e00…1e27 at0013 = ╱52╱R╱ // 0x1e13 @0x13
0x1e00…1e27 at0014 = ╱5f╱_╱ // 0x1e14 @0x14
0x1e00…1e27 at0015 = ╱53╱S╱ // 0x1e15 @0x15
0x1e00…1e27 at0016 = ╱4c╱L╱ // 0x1e16 @0x16
0x1e00…1e27 at0017 = ╱49╱I╱ // 0x1e17 @0x17
0x1e00…1e27 at0018 = ╱4e╱N╱ // 0x1e18 @0x18
0x1e00…1e27 at0019 = ╱f0╱ := ╱ // 0x1e19 @0x19
0x1e00…1e27 at001a = ╱31╱1╱ // 0x1e1a @0x1a
0x1e00…1e27 at001b = ╱32╱2╱ // 0x1e1b @0x1b
0x1e00…1e27 at001c = ╱f20c00╱ // 0x1e1c @0x1c
0x1e00…1e27 at001f = ╱e5╱ + ╱ // 0x1e1f @0x1f
0x1e00…1e27 at0020 = ╱52╱R╱ // 0x1e20 @0x20
0x1e00…1e27 at0021 = ╱5f╱_╱ // 0x1e21 @0x21
0x1e00…1e27 at0022 = ╱53╱S╱ // 0x1e22 @0x22
0x1e00…1e27 at0023 = ╱4c╱L╱ // 0x1e23 @0x23
0x1e00…1e27 at0024 = ╱49╱I╱ // 0x1e24 @0x24
0x1e00…1e27 at0025 = ╱4e╱N╱ // 0x1e25 @0x25
0x1e00…1e27 at0026 = EOL // 0x1e26 @0x26
0x1e00…1e27 }
0x1e27…1e38 b426 02940 CURSOR 1 , R_SLIN
0x1e27…1e38 LineComal80 {
0x1e27…1e38 ptr = 0xb426 // 0x1e27 @0x0
0x1e27…1e38 lno = 0x0b7c // 0x1e29 @0x2
0x1e27…1e38 at0004 = ╱a1╱ CURSOR ╱ // 0x1e2b @0x4
0x1e27…1e38 at0005 = ╱31╱1╱ // 0x1e2c @0x5
0x1e27…1e38 at0006 = ╱f20100╱ // 0x1e2d @0x6
0x1e27…1e38 at0009 = ╱ec╱ , ╱ // 0x1e30 @0x9
0x1e27…1e38 at000a = ╱52╱R╱ // 0x1e31 @0xa
0x1e27…1e38 at000b = ╱5f╱_╱ // 0x1e32 @0xb
0x1e27…1e38 at000c = ╱53╱S╱ // 0x1e33 @0xc
0x1e27…1e38 at000d = ╱4c╱L╱ // 0x1e34 @0xd
0x1e27…1e38 at000e = ╱49╱I╱ // 0x1e35 @0xe
0x1e27…1e38 at000f = ╱4e╱N╱ // 0x1e36 @0xf
0x1e27…1e38 at0010 = EOL // 0x1e37 @0x10
0x1e27…1e38 }
0x1e38…1e4b b439 02950 PRINT CHR$ ( R_LIN , 2 )
0x1e38…1e4b LineComal80 {
0x1e38…1e4b ptr = 0xb439 // 0x1e38 @0x0
0x1e38…1e4b lno = 0x0b86 // 0x1e3a @0x2
0x1e38…1e4b at0004 = ╱92╱ PRINT ╱ // 0x1e3c @0x4
0x1e38…1e4b at0005 = ╱d0╱ CHR$ ╱ // 0x1e3d @0x5
0x1e38…1e4b at0006 = ╱ed╱ ( ╱ // 0x1e3e @0x6
0x1e38…1e4b at0007 = ╱52╱R╱ // 0x1e3f @0x7
0x1e38…1e4b at0008 = ╱5f╱_╱ // 0x1e40 @0x8
0x1e38…1e4b at0009 = ╱4c╱L╱ // 0x1e41 @0x9
0x1e38…1e4b at000a = ╱49╱I╱ // 0x1e42 @0xa
0x1e38…1e4b at000b = ╱4e╱N╱ // 0x1e43 @0xb
0x1e38…1e4b at000c = ╱ec╱ , ╱ // 0x1e44 @0xc
0x1e38…1e4b at000d = ╱32╱2╱ // 0x1e45 @0xd
0x1e38…1e4b at000e = ╱f20200╱ // 0x1e46 @0xe
0x1e38…1e4b at0011 = ╱ee╱ ) ╱ // 0x1e49 @0x11
0x1e38…1e4b at0012 = EOL // 0x1e4a @0x12
0x1e38…1e4b }
0x1e4b…1e5c b44a 02960 CURSOR 4 , R_SLIN
0x1e4b…1e5c LineComal80 {
0x1e4b…1e5c ptr = 0xb44a // 0x1e4b @0x0
0x1e4b…1e5c lno = 0x0b90 // 0x1e4d @0x2
0x1e4b…1e5c at0004 = ╱a1╱ CURSOR ╱ // 0x1e4f @0x4
0x1e4b…1e5c at0005 = ╱34╱4╱ // 0x1e50 @0x5
0x1e4b…1e5c at0006 = ╱f20400╱ // 0x1e51 @0x6
0x1e4b…1e5c at0009 = ╱ec╱ , ╱ // 0x1e54 @0x9
0x1e4b…1e5c at000a = ╱52╱R╱ // 0x1e55 @0xa
0x1e4b…1e5c at000b = ╱5f╱_╱ // 0x1e56 @0xb
0x1e4b…1e5c at000c = ╱53╱S╱ // 0x1e57 @0xc
0x1e4b…1e5c at000d = ╱4c╱L╱ // 0x1e58 @0xd
0x1e4b…1e5c at000e = ╱49╱I╱ // 0x1e59 @0xe
0x1e4b…1e5c at000f = ╱4e╱N╱ // 0x1e5a @0xf
0x1e4b…1e5c at0010 = EOL // 0x1e5b @0x10
0x1e4b…1e5c }
0x1e5c…1e68 b456 02970 PRINT P_BNR $
0x1e5c…1e68 LineComal80 {
0x1e5c…1e68 ptr = 0xb456 // 0x1e5c @0x0
0x1e5c…1e68 lno = 0x0b9a // 0x1e5e @0x2
0x1e5c…1e68 at0004 = ╱92╱ PRINT ╱ // 0x1e60 @0x4
0x1e5c…1e68 at0005 = ╱50╱P╱ // 0x1e61 @0x5
0x1e5c…1e68 at0006 = ╱5f╱_╱ // 0x1e62 @0x6
0x1e5c…1e68 at0007 = ╱42╱B╱ // 0x1e63 @0x7
0x1e5c…1e68 at0008 = ╱4e╱N╱ // 0x1e64 @0x8
0x1e5c…1e68 at0009 = ╱52╱R╱ // 0x1e65 @0x9
0x1e5c…1e68 at000a = ╱ef╱ $ ╱ // 0x1e66 @0xa
0x1e5c…1e68 at000b = EOL // 0x1e67 @0xb
0x1e5c…1e68 }
0x1e68…1e7a b468 02980 CURSOR 11 , R_SLIN
0x1e68…1e7a LineComal80 {
0x1e68…1e7a ptr = 0xb468 // 0x1e68 @0x0
0x1e68…1e7a lno = 0x0ba4 // 0x1e6a @0x2
0x1e68…1e7a at0004 = ╱a1╱ CURSOR ╱ // 0x1e6c @0x4
0x1e68…1e7a at0005 = ╱31╱1╱ // 0x1e6d @0x5
0x1e68…1e7a at0006 = ╱31╱1╱ // 0x1e6e @0x6
0x1e68…1e7a at0007 = ╱f20b00╱ // 0x1e6f @0x7
0x1e68…1e7a at000a = ╱ec╱ , ╱ // 0x1e72 @0xa
0x1e68…1e7a at000b = ╱52╱R╱ // 0x1e73 @0xb
0x1e68…1e7a at000c = ╱5f╱_╱ // 0x1e74 @0xc
0x1e68…1e7a at000d = ╱53╱S╱ // 0x1e75 @0xd
0x1e68…1e7a at000e = ╱4c╱L╱ // 0x1e76 @0xe
0x1e68…1e7a at000f = ╱49╱I╱ // 0x1e77 @0xf
0x1e68…1e7a at0010 = ╱4e╱N╱ // 0x1e78 @0x10
0x1e68…1e7a at0011 = EOL // 0x1e79 @0x11
0x1e68…1e7a }
0x1e7a…1e86 b474 02990 PRINT P_TXT $
0x1e7a…1e86 LineComal80 {
0x1e7a…1e86 ptr = 0xb474 // 0x1e7a @0x0
0x1e7a…1e86 lno = 0x0bae // 0x1e7c @0x2
0x1e7a…1e86 at0004 = ╱92╱ PRINT ╱ // 0x1e7e @0x4
0x1e7a…1e86 at0005 = ╱50╱P╱ // 0x1e7f @0x5
0x1e7a…1e86 at0006 = ╱5f╱_╱ // 0x1e80 @0x6
0x1e7a…1e86 at0007 = ╱54╱T╱ // 0x1e81 @0x7
0x1e7a…1e86 at0008 = ╱58╱X╱ // 0x1e82 @0x8
0x1e7a…1e86 at0009 = ╱54╱T╱ // 0x1e83 @0x9
0x1e7a…1e86 at000a = ╱ef╱ $ ╱ // 0x1e84 @0xa
0x1e7a…1e86 at000b = EOL // 0x1e85 @0xb
0x1e7a…1e86 }
0x1e86…1e98 b486 03000 CURSOR 34 , R_SLIN
0x1e86…1e98 LineComal80 {
0x1e86…1e98 ptr = 0xb486 // 0x1e86 @0x0
0x1e86…1e98 lno = 0x0bb8 // 0x1e88 @0x2
0x1e86…1e98 at0004 = ╱a1╱ CURSOR ╱ // 0x1e8a @0x4
0x1e86…1e98 at0005 = ╱33╱3╱ // 0x1e8b @0x5
0x1e86…1e98 at0006 = ╱34╱4╱ // 0x1e8c @0x6
0x1e86…1e98 at0007 = ╱f22200╱ // 0x1e8d @0x7
0x1e86…1e98 at000a = ╱ec╱ , ╱ // 0x1e90 @0xa
0x1e86…1e98 at000b = ╱52╱R╱ // 0x1e91 @0xb
0x1e86…1e98 at000c = ╱5f╱_╱ // 0x1e92 @0xc
0x1e86…1e98 at000d = ╱53╱S╱ // 0x1e93 @0xd
0x1e86…1e98 at000e = ╱4c╱L╱ // 0x1e94 @0xe
0x1e86…1e98 at000f = ╱49╱I╱ // 0x1e95 @0xf
0x1e86…1e98 at0010 = ╱4e╱N╱ // 0x1e96 @0x10
0x1e86…1e98 at0011 = EOL // 0x1e97 @0x11
0x1e86…1e98 }
0x1e98…1ea5 b493 03010 PRINT P_MKOD $
0x1e98…1ea5 LineComal80 {
0x1e98…1ea5 ptr = 0xb493 // 0x1e98 @0x0
0x1e98…1ea5 lno = 0x0bc2 // 0x1e9a @0x2
0x1e98…1ea5 at0004 = ╱92╱ PRINT ╱ // 0x1e9c @0x4
0x1e98…1ea5 at0005 = ╱50╱P╱ // 0x1e9d @0x5
0x1e98…1ea5 at0006 = ╱5f╱_╱ // 0x1e9e @0x6
0x1e98…1ea5 at0007 = ╱4d╱M╱ // 0x1e9f @0x7
0x1e98…1ea5 at0008 = ╱4b╱K╱ // 0x1ea0 @0x8
0x1e98…1ea5 at0009 = ╱4f╱O╱ // 0x1ea1 @0x9
0x1e98…1ea5 at000a = ╱44╱D╱ // 0x1ea2 @0xa
0x1e98…1ea5 at000b = ╱ef╱ $ ╱ // 0x1ea3 @0xb
0x1e98…1ea5 at000c = EOL // 0x1ea4 @0xc
0x1e98…1ea5 }
0x1ea5…1eb7 b4a5 03020 CURSOR 39 , R_SLIN
0x1ea5…1eb7 LineComal80 {
0x1ea5…1eb7 ptr = 0xb4a5 // 0x1ea5 @0x0
0x1ea5…1eb7 lno = 0x0bcc // 0x1ea7 @0x2
0x1ea5…1eb7 at0004 = ╱a1╱ CURSOR ╱ // 0x1ea9 @0x4
0x1ea5…1eb7 at0005 = ╱33╱3╱ // 0x1eaa @0x5
0x1ea5…1eb7 at0006 = ╱39╱9╱ // 0x1eab @0x6
0x1ea5…1eb7 at0007 = ╱f22700╱ // 0x1eac @0x7
0x1ea5…1eb7 at000a = ╱ec╱ , ╱ // 0x1eaf @0xa
0x1ea5…1eb7 at000b = ╱52╱R╱ // 0x1eb0 @0xb
0x1ea5…1eb7 at000c = ╱5f╱_╱ // 0x1eb1 @0xc
0x1ea5…1eb7 at000d = ╱53╱S╱ // 0x1eb2 @0xd
0x1ea5…1eb7 at000e = ╱4c╱L╱ // 0x1eb3 @0xe
0x1ea5…1eb7 at000f = ╱49╱I╱ // 0x1eb4 @0xf
0x1ea5…1eb7 at0010 = ╱4e╱N╱ // 0x1eb5 @0x10
0x1ea5…1eb7 at0011 = EOL // 0x1eb6 @0x11
0x1ea5…1eb7 }
0x1eb7…1ec4 b4b2 03030 PRINT P_BKTO $
0x1eb7…1ec4 LineComal80 {
0x1eb7…1ec4 ptr = 0xb4b2 // 0x1eb7 @0x0
0x1eb7…1ec4 lno = 0x0bd6 // 0x1eb9 @0x2
0x1eb7…1ec4 at0004 = ╱92╱ PRINT ╱ // 0x1ebb @0x4
0x1eb7…1ec4 at0005 = ╱50╱P╱ // 0x1ebc @0x5
0x1eb7…1ec4 at0006 = ╱5f╱_╱ // 0x1ebd @0x6
0x1eb7…1ec4 at0007 = ╱42╱B╱ // 0x1ebe @0x7
0x1eb7…1ec4 at0008 = ╱4b╱K╱ // 0x1ebf @0x8
0x1eb7…1ec4 at0009 = ╱54╱T╱ // 0x1ec0 @0x9
0x1eb7…1ec4 at000a = ╱4f╱O╱ // 0x1ec1 @0xa
0x1eb7…1ec4 at000b = ╱ef╱ $ ╱ // 0x1ec2 @0xb
0x1eb7…1ec4 at000c = EOL // 0x1ec3 @0xc
0x1eb7…1ec4 }
0x1ec4…1ed6 b4c4 03040 IF _DK = DEBET THEN
0x1ec4…1ed6 LineComal80 {
0x1ec4…1ed6 ptr = 0xb4c4 // 0x1ec4 @0x0
0x1ec4…1ed6 lno = 0x0be0 // 0x1ec6 @0x2
0x1ec4…1ed6 at0004 = ╱9b3450╱ IF ╱ // 0x1ec8 @0x4
0x1ec4…1ed6 at0007 = ╱5f╱_╱ // 0x1ecb @0x7
0x1ec4…1ed6 at0008 = ╱44╱D╱ // 0x1ecc @0x8
0x1ec4…1ed6 at0009 = ╱4b╱K╱ // 0x1ecd @0x9
0x1ec4…1ed6 at000a = ╱df╱ = ╱ // 0x1ece @0xa
0x1ec4…1ed6 at000b = ╱44╱D╱ // 0x1ecf @0xb
0x1ec4…1ed6 at000c = ╱45╱E╱ // 0x1ed0 @0xc
0x1ec4…1ed6 at000d = ╱42╱B╱ // 0x1ed1 @0xd
0x1ec4…1ed6 at000e = ╱45╱E╱ // 0x1ed2 @0xe
0x1ec4…1ed6 at000f = ╱54╱T╱ // 0x1ed3 @0xf
0x1ec4…1ed6 at0010 = ╱b5╱ THEN ╱ // 0x1ed4 @0x10
0x1ec4…1ed6 at0011 = EOL // 0x1ed5 @0x11
0x1ec4…1ed6 }
0x1ed6…1ee8 b4d6 03050 CURSOR 49 , R_SLIN
0x1ed6…1ee8 LineComal80 {
0x1ed6…1ee8 ptr = 0xb4d6 // 0x1ed6 @0x0
0x1ed6…1ee8 lno = 0x0bea // 0x1ed8 @0x2
0x1ed6…1ee8 at0004 = ╱a1╱ CURSOR ╱ // 0x1eda @0x4
0x1ed6…1ee8 at0005 = ╱34╱4╱ // 0x1edb @0x5
0x1ed6…1ee8 at0006 = ╱39╱9╱ // 0x1edc @0x6
0x1ed6…1ee8 at0007 = ╱f23100╱ // 0x1edd @0x7
0x1ed6…1ee8 at000a = ╱ec╱ , ╱ // 0x1ee0 @0xa
0x1ed6…1ee8 at000b = ╱52╱R╱ // 0x1ee1 @0xb
0x1ed6…1ee8 at000c = ╱5f╱_╱ // 0x1ee2 @0xc
0x1ed6…1ee8 at000d = ╱53╱S╱ // 0x1ee3 @0xd
0x1ed6…1ee8 at000e = ╱4c╱L╱ // 0x1ee4 @0xe
0x1ed6…1ee8 at000f = ╱49╱I╱ // 0x1ee5 @0xf
0x1ed6…1ee8 at0010 = ╱4e╱N╱ // 0x1ee6 @0x10
0x1ed6…1ee8 at0011 = EOL // 0x1ee7 @0x11
0x1ed6…1ee8 }
0x1ee8…1eef b4dd 03060 ELSE
0x1ee8…1eef LineComal80 {
0x1ee8…1eef ptr = 0xb4dd // 0x1ee8 @0x0
0x1ee8…1eef lno = 0x0bf4 // 0x1eea @0x2
0x1ee8…1eef at0004 = ╱9a35╱ ELSE ╱ // 0x1eec @0x4
0x1ee8…1eef at0006 = EOL // 0x1eee @0x6
0x1ee8…1eef }
0x1eef…1f01 b4ef 03070 CURSOR 61 , R_SLIN
0x1eef…1f01 LineComal80 {
0x1eef…1f01 ptr = 0xb4ef // 0x1eef @0x0
0x1eef…1f01 lno = 0x0bfe // 0x1ef1 @0x2
0x1eef…1f01 at0004 = ╱a1╱ CURSOR ╱ // 0x1ef3 @0x4
0x1eef…1f01 at0005 = ╱36╱6╱ // 0x1ef4 @0x5
0x1eef…1f01 at0006 = ╱31╱1╱ // 0x1ef5 @0x6
0x1eef…1f01 at0007 = ╱f23d00╱ // 0x1ef6 @0x7
0x1eef…1f01 at000a = ╱ec╱ , ╱ // 0x1ef9 @0xa
0x1eef…1f01 at000b = ╱52╱R╱ // 0x1efa @0xb
0x1eef…1f01 at000c = ╱5f╱_╱ // 0x1efb @0xc
0x1eef…1f01 at000d = ╱53╱S╱ // 0x1efc @0xd
0x1eef…1f01 at000e = ╱4c╱L╱ // 0x1efd @0xe
0x1eef…1f01 at000f = ╱49╱I╱ // 0x1efe @0xf
0x1eef…1f01 at0010 = ╱4e╱N╱ // 0x1eff @0x10
0x1eef…1f01 at0011 = EOL // 0x1f00 @0x11
0x1eef…1f01 }
0x1f01…1f07 b4f5 03080 ENDIF
0x1f01…1f07 LineComal80 {
0x1f01…1f07 ptr = 0xb4f5 // 0x1f01 @0x0
0x1f01…1f07 lno = 0x0c08 // 0x1f03 @0x2
0x1f01…1f07 at0004 = ╱9c╱ ENDIF ╱ // 0x1f05 @0x4
0x1f01…1f07 at0005 = EOL // 0x1f06 @0x5
0x1f01…1f07 }
0x1f07…1f1f b50d 03090 PRINT CHR$ ( P_BKR , 7 , 2 )
0x1f07…1f1f LineComal80 {
0x1f07…1f1f ptr = 0xb50d // 0x1f07 @0x0
0x1f07…1f1f lno = 0x0c12 // 0x1f09 @0x2
0x1f07…1f1f at0004 = ╱92╱ PRINT ╱ // 0x1f0b @0x4
0x1f07…1f1f at0005 = ╱d0╱ CHR$ ╱ // 0x1f0c @0x5
0x1f07…1f1f at0006 = ╱ed╱ ( ╱ // 0x1f0d @0x6
0x1f07…1f1f at0007 = ╱50╱P╱ // 0x1f0e @0x7
0x1f07…1f1f at0008 = ╱5f╱_╱ // 0x1f0f @0x8
0x1f07…1f1f at0009 = ╱42╱B╱ // 0x1f10 @0x9
0x1f07…1f1f at000a = ╱4b╱K╱ // 0x1f11 @0xa
0x1f07…1f1f at000b = ╱52╱R╱ // 0x1f12 @0xb
0x1f07…1f1f at000c = ╱ec╱ , ╱ // 0x1f13 @0xc
0x1f07…1f1f at000d = ╱37╱7╱ // 0x1f14 @0xd
0x1f07…1f1f at000e = ╱f20700╱ // 0x1f15 @0xe
0x1f07…1f1f at0011 = ╱ec╱ , ╱ // 0x1f18 @0x11
0x1f07…1f1f at0012 = ╱32╱2╱ // 0x1f19 @0x12
0x1f07…1f1f at0013 = ╱f20200╱ // 0x1f1a @0x13
0x1f07…1f1f at0016 = ╱ee╱ ) ╱ // 0x1f1d @0x16
0x1f07…1f1f at0017 = EOL // 0x1f1e @0x17
0x1f07…1f1f }
0x1f1f…1f2e b51c 03100 ENDPROC SKRIV_LIN
0x1f1f…1f2e LineComal80 {
0x1f1f…1f2e ptr = 0xb51c // 0x1f1f @0x0
0x1f1f…1f2e lno = 0x0c1c // 0x1f21 @0x2
0x1f1f…1f2e at0004 = ╱9f╱ ENDPROC ╱ // 0x1f23 @0x4
0x1f1f…1f2e at0005 = ╱53╱S╱ // 0x1f24 @0x5
0x1f1f…1f2e at0006 = ╱4b╱K╱ // 0x1f25 @0x6
0x1f1f…1f2e at0007 = ╱52╱R╱ // 0x1f26 @0x7
0x1f1f…1f2e at0008 = ╱49╱I╱ // 0x1f27 @0x8
0x1f1f…1f2e at0009 = ╱56╱V╱ // 0x1f28 @0x9
0x1f1f…1f2e at000a = ╱5f╱_╱ // 0x1f29 @0xa
0x1f1f…1f2e at000b = ╱4c╱L╱ // 0x1f2a @0xb
0x1f1f…1f2e at000c = ╱49╱I╱ // 0x1f2b @0xc
0x1f1f…1f2e at000d = ╱4e╱N╱ // 0x1f2c @0xd
0x1f1f…1f2e at000e = EOL // 0x1f2d @0xe
0x1f1f…1f2e }
0x1f2e…1f33 b521 03110
0x1f2e…1f33 LineComal80 {
0x1f2e…1f33 ptr = 0xb521 // 0x1f2e @0x0
0x1f2e…1f33 lno = 0x0c26 // 0x1f30 @0x2
0x1f2e…1f33 at0004 = EOL // 0x1f32 @0x4
0x1f2e…1f33 }
0x1f33…1f49 b537 03120 PROC EDIT_LIN ( R_LIN )
0x1f33…1f49 LineComal80 {
0x1f33…1f49 ptr = 0xb537 // 0x1f33 @0x0
0x1f33…1f49 lno = 0x0c30 // 0x1f35 @0x2
0x1f33…1f49 at0004 = ╱9e36╱ PROC ╱ // 0x1f37 @0x4
0x1f33…1f49 at0006 = ╱45╱E╱ // 0x1f39 @0x6
0x1f33…1f49 at0007 = ╱44╱D╱ // 0x1f3a @0x7
0x1f33…1f49 at0008 = ╱49╱I╱ // 0x1f3b @0x8
0x1f33…1f49 at0009 = ╱54╱T╱ // 0x1f3c @0x9
0x1f33…1f49 at000a = ╱5f╱_╱ // 0x1f3d @0xa
0x1f33…1f49 at000b = ╱4c╱L╱ // 0x1f3e @0xb
0x1f33…1f49 at000c = ╱49╱I╱ // 0x1f3f @0xc
0x1f33…1f49 at000d = ╱4e╱N╱ // 0x1f40 @0xd
0x1f33…1f49 at000e = ╱ed╱ ( ╱ // 0x1f41 @0xe
0x1f33…1f49 at000f = ╱52╱R╱ // 0x1f42 @0xf
0x1f33…1f49 at0010 = ╱5f╱_╱ // 0x1f43 @0x10
0x1f33…1f49 at0011 = ╱4c╱L╱ // 0x1f44 @0x11
0x1f33…1f49 at0012 = ╱49╱I╱ // 0x1f45 @0x12
0x1f33…1f49 at0013 = ╱4e╱N╱ // 0x1f46 @0x13
0x1f33…1f49 at0014 = ╱ee╱ ) ╱ // 0x1f47 @0x14
0x1f33…1f49 at0015 = EOL // 0x1f48 @0x15
0x1f33…1f49 }
0x1f49…1f66 b554 03130 LET R_SLIN := R_LIN MOD 12 + 7
0x1f49…1f66 LineComal80 {
0x1f49…1f66 ptr = 0xb554 // 0x1f49 @0x0
0x1f49…1f66 lno = 0x0c3a // 0x1f4b @0x2
0x1f49…1f66 at0004 = ╱86╱ LET ╱ // 0x1f4d @0x4
0x1f49…1f66 at0005 = ╱52╱R╱ // 0x1f4e @0x5
0x1f49…1f66 at0006 = ╱5f╱_╱ // 0x1f4f @0x6
0x1f49…1f66 at0007 = ╱53╱S╱ // 0x1f50 @0x7
0x1f49…1f66 at0008 = ╱4c╱L╱ // 0x1f51 @0x8
0x1f49…1f66 at0009 = ╱49╱I╱ // 0x1f52 @0x9
0x1f49…1f66 at000a = ╱4e╱N╱ // 0x1f53 @0xa
0x1f49…1f66 at000b = ╱f0╱ := ╱ // 0x1f54 @0xb
0x1f49…1f66 at000c = ╱52╱R╱ // 0x1f55 @0xc
0x1f49…1f66 at000d = ╱5f╱_╱ // 0x1f56 @0xd
0x1f49…1f66 at000e = ╱4c╱L╱ // 0x1f57 @0xe
0x1f49…1f66 at000f = ╱49╱I╱ // 0x1f58 @0xf
0x1f49…1f66 at0010 = ╱4e╱N╱ // 0x1f59 @0x10
0x1f49…1f66 at0011 = ╱db╱ MOD ╱ // 0x1f5a @0x11
0x1f49…1f66 at0012 = ╱31╱1╱ // 0x1f5b @0x12
0x1f49…1f66 at0013 = ╱32╱2╱ // 0x1f5c @0x13
0x1f49…1f66 at0014 = ╱f20c00╱ // 0x1f5d @0x14
0x1f49…1f66 at0017 = ╱e5╱ + ╱ // 0x1f60 @0x17
0x1f49…1f66 at0018 = ╱37╱7╱ // 0x1f61 @0x18
0x1f49…1f66 at0019 = ╱f20700╱ // 0x1f62 @0x19
0x1f49…1f66 at001c = EOL // 0x1f65 @0x1c
0x1f49…1f66 }
0x1f66…1f8d b57b 03140 IF R_SLIN = 7 THEN LET R_SLIN := R_SLIN + 12
0x1f66…1f8d LineComal80 {
0x1f66…1f8d ptr = 0xb57b // 0x1f66 @0x0
0x1f66…1f8d lno = 0x0c44 // 0x1f68 @0x2
0x1f66…1f8d at0004 = ╱8200╱ IF ╱ // 0x1f6a @0x4
0x1f66…1f8d at0006 = ╱52╱R╱ // 0x1f6c @0x6
0x1f66…1f8d at0007 = ╱5f╱_╱ // 0x1f6d @0x7
0x1f66…1f8d at0008 = ╱53╱S╱ // 0x1f6e @0x8
0x1f66…1f8d at0009 = ╱4c╱L╱ // 0x1f6f @0x9
0x1f66…1f8d at000a = ╱49╱I╱ // 0x1f70 @0xa
0x1f66…1f8d at000b = ╱4e╱N╱ // 0x1f71 @0xb
0x1f66…1f8d at000c = ╱df╱ = ╱ // 0x1f72 @0xc
0x1f66…1f8d at000d = ╱37╱7╱ // 0x1f73 @0xd
0x1f66…1f8d at000e = ╱f20700╱ // 0x1f74 @0xe
0x1f66…1f8d at0011 = ╱b5╱ THEN ╱ // 0x1f77 @0x11
0x1f66…1f8d at0012 = ╱86╱ LET ╱ // 0x1f78 @0x12
0x1f66…1f8d at0013 = ╱52╱R╱ // 0x1f79 @0x13
0x1f66…1f8d at0014 = ╱5f╱_╱ // 0x1f7a @0x14
0x1f66…1f8d at0015 = ╱53╱S╱ // 0x1f7b @0x15
0x1f66…1f8d at0016 = ╱4c╱L╱ // 0x1f7c @0x16
0x1f66…1f8d at0017 = ╱49╱I╱ // 0x1f7d @0x17
0x1f66…1f8d at0018 = ╱4e╱N╱ // 0x1f7e @0x18
0x1f66…1f8d at0019 = ╱f0╱ := ╱ // 0x1f7f @0x19
0x1f66…1f8d at001a = ╱52╱R╱ // 0x1f80 @0x1a
0x1f66…1f8d at001b = ╱5f╱_╱ // 0x1f81 @0x1b
0x1f66…1f8d at001c = ╱53╱S╱ // 0x1f82 @0x1c
0x1f66…1f8d at001d = ╱4c╱L╱ // 0x1f83 @0x1d
0x1f66…1f8d at001e = ╱49╱I╱ // 0x1f84 @0x1e
0x1f66…1f8d at001f = ╱4e╱N╱ // 0x1f85 @0x1f
0x1f66…1f8d at0020 = ╱e5╱ + ╱ // 0x1f86 @0x20
0x1f66…1f8d at0021 = ╱31╱1╱ // 0x1f87 @0x21
0x1f66…1f8d at0022 = ╱32╱2╱ // 0x1f88 @0x22
0x1f66…1f8d at0023 = ╱f20c00╱ // 0x1f89 @0x23
0x1f66…1f8d at0026 = EOL // 0x1f8c @0x26
0x1f66…1f8d }
0x1f8d…1fa4 b592 03150 EXEC L[S_DG_POS ( R_LIN )
0x1f8d…1fa4 LineComal80 {
0x1f8d…1fa4 ptr = 0xb592 // 0x1f8d @0x0
0x1f8d…1fa4 lno = 0x0c4e // 0x1f8f @0x2
0x1f8d…1fa4 at0004 = ╱9d╱ EXEC ╱ // 0x1f91 @0x4
0x1f8d…1fa4 at0005 = ╱4c╱L╱ // 0x1f92 @0x5
0x1f8d…1fa4 at0006 = ╱5b╱[╱ // 0x1f93 @0x6
0x1f8d…1fa4 at0007 = ╱53╱S╱ // 0x1f94 @0x7
0x1f8d…1fa4 at0008 = ╱5f╱_╱ // 0x1f95 @0x8
0x1f8d…1fa4 at0009 = ╱44╱D╱ // 0x1f96 @0x9
0x1f8d…1fa4 at000a = ╱47╱G╱ // 0x1f97 @0xa
0x1f8d…1fa4 at000b = ╱5f╱_╱ // 0x1f98 @0xb
0x1f8d…1fa4 at000c = ╱50╱P╱ // 0x1f99 @0xc
0x1f8d…1fa4 at000d = ╱4f╱O╱ // 0x1f9a @0xd
0x1f8d…1fa4 at000e = ╱53╱S╱ // 0x1f9b @0xe
0x1f8d…1fa4 at000f = ╱ed╱ ( ╱ // 0x1f9c @0xf
0x1f8d…1fa4 at0010 = ╱52╱R╱ // 0x1f9d @0x10
0x1f8d…1fa4 at0011 = ╱5f╱_╱ // 0x1f9e @0x11
0x1f8d…1fa4 at0012 = ╱4c╱L╱ // 0x1f9f @0x12
0x1f8d…1fa4 at0013 = ╱49╱I╱ // 0x1fa0 @0x13
0x1f8d…1fa4 at0014 = ╱4e╱N╱ // 0x1fa1 @0x14
0x1f8d…1fa4 at0015 = ╱ee╱ ) ╱ // 0x1fa2 @0x15
0x1f8d…1fa4 at0016 = EOL // 0x1fa3 @0x16
0x1f8d…1fa4 }
0x1fa4…1fba b5a8 03160 IF _BNR $ = "*****" THEN
0x1fa4…1fba LineComal80 {
0x1fa4…1fba ptr = 0xb5a8 // 0x1fa4 @0x0
0x1fa4…1fba lno = 0x0c58 // 0x1fa6 @0x2
0x1fa4…1fba at0004 = ╱9b3750╱ IF ╱ // 0x1fa8 @0x4
0x1fa4…1fba at0007 = ╱5f╱_╱ // 0x1fab @0x7
0x1fa4…1fba at0008 = ╱42╱B╱ // 0x1fac @0x8
0x1fa4…1fba at0009 = ╱4e╱N╱ // 0x1fad @0x9
0x1fa4…1fba at000a = ╱52╱R╱ // 0x1fae @0xa
0x1fa4…1fba at000b = ╱ef╱ $ ╱ // 0x1faf @0xb
0x1fa4…1fba at000c = ╱df╱ = ╱ // 0x1fb0 @0xc
0x1fa4…1fba at000d = ╱22╱"╱ // 0x1fb1 @0xd
0x1fa4…1fba at000e = ╱2a╱*╱ // 0x1fb2 @0xe
0x1fa4…1fba at000f = ╱2a╱*╱ // 0x1fb3 @0xf
0x1fa4…1fba at0010 = ╱2a╱*╱ // 0x1fb4 @0x10
0x1fa4…1fba at0011 = ╱2a╱*╱ // 0x1fb5 @0x11
0x1fa4…1fba at0012 = ╱2a╱*╱ // 0x1fb6 @0x12
0x1fa4…1fba at0013 = ╱22╱"╱ // 0x1fb7 @0x13
0x1fa4…1fba at0014 = ╱b5╱ THEN ╱ // 0x1fb8 @0x14
0x1fa4…1fba at0015 = EOL // 0x1fb9 @0x15
0x1fa4…1fba }
0x1fba…1fff b5ed 03170 LET P_BNR $ := "" ; P_TXT $ := "" ; P_MKOD $ := "" ; P_BKR := 0 ; P_DK := DEBET ; P_BKTO $ := ""
0x1fba…1fff LineComal80 {
0x1fba…1fff ptr = 0xb5ed // 0x1fba @0x0
0x1fba…1fff lno = 0x0c62 // 0x1fbc @0x2
0x1fba…1fff at0004 = ╱86╱ LET ╱ // 0x1fbe @0x4
0x1fba…1fff at0005 = ╱50╱P╱ // 0x1fbf @0x5
0x1fba…1fff at0006 = ╱5f╱_╱ // 0x1fc0 @0x6
0x1fba…1fff at0007 = ╱42╱B╱ // 0x1fc1 @0x7
0x1fba…1fff at0008 = ╱4e╱N╱ // 0x1fc2 @0x8
0x1fba…1fff at0009 = ╱52╱R╱ // 0x1fc3 @0x9
0x1fba…1fff at000a = ╱ef╱ $ ╱ // 0x1fc4 @0xa
0x1fba…1fff at000b = ╱f0╱ := ╱ // 0x1fc5 @0xb
0x1fba…1fff at000c = ╱22╱"╱ // 0x1fc6 @0xc
0x1fba…1fff at000d = ╱22╱"╱ // 0x1fc7 @0xd
0x1fba…1fff at000e = ╱ea╱ ; ╱ // 0x1fc8 @0xe
0x1fba…1fff at000f = ╱50╱P╱ // 0x1fc9 @0xf
0x1fba…1fff at0010 = ╱5f╱_╱ // 0x1fca @0x10
0x1fba…1fff at0011 = ╱54╱T╱ // 0x1fcb @0x11
0x1fba…1fff at0012 = ╱58╱X╱ // 0x1fcc @0x12
0x1fba…1fff at0013 = ╱54╱T╱ // 0x1fcd @0x13
0x1fba…1fff at0014 = ╱ef╱ $ ╱ // 0x1fce @0x14
0x1fba…1fff at0015 = ╱f0╱ := ╱ // 0x1fcf @0x15
0x1fba…1fff at0016 = ╱22╱"╱ // 0x1fd0 @0x16
0x1fba…1fff at0017 = ╱22╱"╱ // 0x1fd1 @0x17
0x1fba…1fff at0018 = ╱ea╱ ; ╱ // 0x1fd2 @0x18
0x1fba…1fff at0019 = ╱50╱P╱ // 0x1fd3 @0x19
0x1fba…1fff at001a = ╱5f╱_╱ // 0x1fd4 @0x1a
0x1fba…1fff at001b = ╱4d╱M╱ // 0x1fd5 @0x1b
0x1fba…1fff at001c = ╱4b╱K╱ // 0x1fd6 @0x1c
0x1fba…1fff at001d = ╱4f╱O╱ // 0x1fd7 @0x1d
0x1fba…1fff at001e = ╱44╱D╱ // 0x1fd8 @0x1e
0x1fba…1fff at001f = ╱ef╱ $ ╱ // 0x1fd9 @0x1f
0x1fba…1fff at0020 = ╱f0╱ := ╱ // 0x1fda @0x20
0x1fba…1fff at0021 = ╱22╱"╱ // 0x1fdb @0x21
0x1fba…1fff at0022 = ╱22╱"╱ // 0x1fdc @0x22
0x1fba…1fff at0023 = ╱ea╱ ; ╱ // 0x1fdd @0x23
0x1fba…1fff at0024 = ╱50╱P╱ // 0x1fde @0x24
0x1fba…1fff at0025 = ╱5f╱_╱ // 0x1fdf @0x25
0x1fba…1fff at0026 = ╱42╱B╱ // 0x1fe0 @0x26
0x1fba…1fff at0027 = ╱4b╱K╱ // 0x1fe1 @0x27
0x1fba…1fff at0028 = ╱52╱R╱ // 0x1fe2 @0x28
0x1fba…1fff at0029 = ╱f0╱ := ╱ // 0x1fe3 @0x29
0x1fba…1fff at002a = ╱30╱0╱ // 0x1fe4 @0x2a
0x1fba…1fff at002b = ╱f20000╱ // 0x1fe5 @0x2b
0x1fba…1fff at002e = ╱ea╱ ; ╱ // 0x1fe8 @0x2e
0x1fba…1fff at002f = ╱50╱P╱ // 0x1fe9 @0x2f
0x1fba…1fff at0030 = ╱5f╱_╱ // 0x1fea @0x30
0x1fba…1fff at0031 = ╱44╱D╱ // 0x1feb @0x31
0x1fba…1fff at0032 = ╱4b╱K╱ // 0x1fec @0x32
0x1fba…1fff at0033 = ╱f0╱ := ╱ // 0x1fed @0x33
0x1fba…1fff at0034 = ╱44╱D╱ // 0x1fee @0x34
0x1fba…1fff at0035 = ╱45╱E╱ // 0x1fef @0x35
0x1fba…1fff at0036 = ╱42╱B╱ // 0x1ff0 @0x36
0x1fba…1fff at0037 = ╱45╱E╱ // 0x1ff1 @0x37
0x1fba…1fff at0038 = ╱54╱T╱ // 0x1ff2 @0x38
0x1fba…1fff at0039 = ╱ea╱ ; ╱ // 0x1ff3 @0x39
0x1fba…1fff at003a = ╱50╱P╱ // 0x1ff4 @0x3a
0x1fba…1fff at003b = ╱5f╱_╱ // 0x1ff5 @0x3b
0x1fba…1fff at003c = ╱42╱B╱ // 0x1ff6 @0x3c
0x1fba…1fff at003d = ╱4b╱K╱ // 0x1ff7 @0x3d
0x1fba…1fff at003e = ╱54╱T╱ // 0x1ff8 @0x3e
0x1fba…1fff at003f = ╱4f╱O╱ // 0x1ff9 @0x3f
0x1fba…1fff at0040 = ╱ef╱ $ ╱ // 0x1ffa @0x40
0x1fba…1fff at0041 = ╱f0╱ := ╱ // 0x1ffb @0x41
0x1fba…1fff at0042 = ╱22╱"╱ // 0x1ffc @0x42
0x1fba…1fff at0043 = ╱22╱"╱ // 0x1ffd @0x43
0x1fba…1fff at0044 = EOL // 0x1ffe @0x44
0x1fba…1fff }
0x1fff…2005 b5f3 03180 ENDIF
0x1fff…2005 LineComal80 {
0x1fff…2005 ptr = 0xb5f3 // 0x1fff @0x0
0x1fff…2005 lno = 0x0c6c // 0x2001 @0x2
0x1fff…2005 at0004 = ╱9c╱ ENDIF ╱ // 0x2003 @0x4
0x1fff…2005 at0005 = EOL // 0x2004 @0x5
0x1fff…2005 }
0x2005…2017 b605 03190 IF _DK = DEBET THEN
0x2005…2017 LineComal80 {
0x2005…2017 ptr = 0xb605 // 0x2005 @0x0
0x2005…2017 lno = 0x0c76 // 0x2007 @0x2
0x2005…2017 at0004 = ╱9b3850╱ IF ╱ // 0x2009 @0x4
0x2005…2017 at0007 = ╱5f╱_╱ // 0x200c @0x7
0x2005…2017 at0008 = ╱44╱D╱ // 0x200d @0x8
0x2005…2017 at0009 = ╱4b╱K╱ // 0x200e @0x9
0x2005…2017 at000a = ╱df╱ = ╱ // 0x200f @0xa
0x2005…2017 at000b = ╱44╱D╱ // 0x2010 @0xb
0x2005…2017 at000c = ╱45╱E╱ // 0x2011 @0xc
0x2005…2017 at000d = ╱42╱B╱ // 0x2012 @0xd
0x2005…2017 at000e = ╱45╱E╱ // 0x2013 @0xe
0x2005…2017 at000f = ╱54╱T╱ // 0x2014 @0xf
0x2005…2017 at0010 = ╱b5╱ THEN ╱ // 0x2015 @0x10
0x2005…2017 at0011 = EOL // 0x2016 @0x11
0x2005…2017 }
0x2017…202e b61c 03200 LET P_DEB := P_DEB - P_BKR
0x2017…202e LineComal80 {
0x2017…202e ptr = 0xb61c // 0x2017 @0x0
0x2017…202e lno = 0x0c80 // 0x2019 @0x2
0x2017…202e at0004 = ╱86╱ LET ╱ // 0x201b @0x4
0x2017…202e at0005 = ╱50╱P╱ // 0x201c @0x5
0x2017…202e at0006 = ╱5f╱_╱ // 0x201d @0x6
0x2017…202e at0007 = ╱44╱D╱ // 0x201e @0x7
0x2017…202e at0008 = ╱45╱E╱ // 0x201f @0x8
0x2017…202e at0009 = ╱42╱B╱ // 0x2020 @0x9
0x2017…202e at000a = ╱f0╱ := ╱ // 0x2021 @0xa
0x2017…202e at000b = ╱50╱P╱ // 0x2022 @0xb
0x2017…202e at000c = ╱5f╱_╱ // 0x2023 @0xc
0x2017…202e at000d = ╱44╱D╱ // 0x2024 @0xd
0x2017…202e at000e = ╱45╱E╱ // 0x2025 @0xe
0x2017…202e at000f = ╱42╱B╱ // 0x2026 @0xf
0x2017…202e at0010 = ╱e6╱ - ╱ // 0x2027 @0x10
0x2017…202e at0011 = ╱50╱P╱ // 0x2028 @0x11
0x2017…202e at0012 = ╱5f╱_╱ // 0x2029 @0x12
0x2017…202e at0013 = ╱42╱B╱ // 0x202a @0x13
0x2017…202e at0014 = ╱4b╱K╱ // 0x202b @0x14
0x2017…202e at0015 = ╱52╱R╱ // 0x202c @0x15
0x2017…202e at0016 = EOL // 0x202d @0x16
0x2017…202e }
0x202e…2035 b623 03210 ELSE
0x202e…2035 LineComal80 {
0x202e…2035 ptr = 0xb623 // 0x202e @0x0
0x202e…2035 lno = 0x0c8a // 0x2030 @0x2
0x202e…2035 at0004 = ╱9a39╱ ELSE ╱ // 0x2032 @0x4
0x202e…2035 at0006 = EOL // 0x2034 @0x6
0x202e…2035 }
0x2035…204e b63c 03220 LET P_KRED := P_KRED - P_BKR
0x2035…204e LineComal80 {
0x2035…204e ptr = 0xb63c // 0x2035 @0x0
0x2035…204e lno = 0x0c94 // 0x2037 @0x2
0x2035…204e at0004 = ╱86╱ LET ╱ // 0x2039 @0x4
0x2035…204e at0005 = ╱50╱P╱ // 0x203a @0x5
0x2035…204e at0006 = ╱5f╱_╱ // 0x203b @0x6
0x2035…204e at0007 = ╱4b╱K╱ // 0x203c @0x7
0x2035…204e at0008 = ╱52╱R╱ // 0x203d @0x8
0x2035…204e at0009 = ╱45╱E╱ // 0x203e @0x9
0x2035…204e at000a = ╱44╱D╱ // 0x203f @0xa
0x2035…204e at000b = ╱f0╱ := ╱ // 0x2040 @0xb
0x2035…204e at000c = ╱50╱P╱ // 0x2041 @0xc
0x2035…204e at000d = ╱5f╱_╱ // 0x2042 @0xd
0x2035…204e at000e = ╱4b╱K╱ // 0x2043 @0xe
0x2035…204e at000f = ╱52╱R╱ // 0x2044 @0xf
0x2035…204e at0010 = ╱45╱E╱ // 0x2045 @0x10
0x2035…204e at0011 = ╱44╱D╱ // 0x2046 @0x11
0x2035…204e at0012 = ╱e6╱ - ╱ // 0x2047 @0x12
0x2035…204e at0013 = ╱50╱P╱ // 0x2048 @0x13
0x2035…204e at0014 = ╱5f╱_╱ // 0x2049 @0x14
0x2035…204e at0015 = ╱42╱B╱ // 0x204a @0x15
0x2035…204e at0016 = ╱4b╱K╱ // 0x204b @0x16
0x2035…204e at0017 = ╱52╱R╱ // 0x204c @0x17
0x2035…204e at0018 = EOL // 0x204d @0x18
0x2035…204e }
0x204e…2054 b642 03230 ENDIF
0x204e…2054 LineComal80 {
0x204e…2054 ptr = 0xb642 // 0x204e @0x0
0x204e…2054 lno = 0x0c9e // 0x2050 @0x2
0x204e…2054 at0004 = ╱9c╱ ENDIF ╱ // 0x2052 @0x4
0x204e…2054 at0005 = EOL // 0x2053 @0x5
0x204e…2054 }
0x2054…205b b649 03240 REPEAT
0x2054…205b LineComal80 {
0x2054…205b ptr = 0xb649 // 0x2054 @0x0
0x2054…205b lno = 0x0ca8 // 0x2056 @0x2
0x2054…205b at0004 = ╱973a╱ REPEAT ╱ // 0x2058 @0x4
0x2054…205b at0006 = EOL // 0x205a @0x6
0x2054…205b }
0x205b…206d b65b 03250 EXEC SL_FEJLLINIE
0x205b…206d LineComal80 {
0x205b…206d ptr = 0xb65b // 0x205b @0x0
0x205b…206d lno = 0x0cb2 // 0x205d @0x2
0x205b…206d at0004 = ╱9d╱ EXEC ╱ // 0x205f @0x4
0x205b…206d at0005 = ╱53╱S╱ // 0x2060 @0x5
0x205b…206d at0006 = ╱4c╱L╱ // 0x2061 @0x6
0x205b…206d at0007 = ╱5f╱_╱ // 0x2062 @0x7
0x205b…206d at0008 = ╱46╱F╱ // 0x2063 @0x8
0x205b…206d at0009 = ╱45╱E╱ // 0x2064 @0x9
0x205b…206d at000a = ╱4a╱J╱ // 0x2065 @0xa
0x205b…206d at000b = ╱4c╱L╱ // 0x2066 @0xb
0x205b…206d at000c = ╱4c╱L╱ // 0x2067 @0xc
0x205b…206d at000d = ╱49╱I╱ // 0x2068 @0xd
0x205b…206d at000e = ╱4e╱N╱ // 0x2069 @0xe
0x205b…206d at000f = ╱49╱I╱ // 0x206a @0xf
0x205b…206d at0010 = ╱45╱E╱ // 0x206b @0x10
0x205b…206d at0011 = EOL // 0x206c @0x11
0x205b…206d }
0x206d…207e d699 03260 CURSOR 1 , R_SLIN
0x206d…207e LineComal80 {
0x206d…207e ptr = 0xd699 // 0x206d @0x0
0x206d…207e lno = 0x0cbc // 0x206f @0x2
0x206d…207e at0004 = ╱a1╱ CURSOR ╱ // 0x2071 @0x4
0x206d…207e at0005 = ╱31╱1╱ // 0x2072 @0x5
0x206d…207e at0006 = ╱f20100╱ // 0x2073 @0x6
0x206d…207e at0009 = ╱ec╱ , ╱ // 0x2076 @0x9
0x206d…207e at000a = ╱52╱R╱ // 0x2077 @0xa
0x206d…207e at000b = ╱5f╱_╱ // 0x2078 @0xb
0x206d…207e at000c = ╱53╱S╱ // 0x2079 @0xc
0x206d…207e at000d = ╱4c╱L╱ // 0x207a @0xd
0x206d…207e at000e = ╱49╱I╱ // 0x207b @0xe
0x206d…207e at000f = ╱4e╱N╱ // 0x207c @0xf
0x206d…207e at0010 = EOL // 0x207d @0x10
0x206d…207e }
0x207e…2091 b67f 03270 PRINT CHR$ ( R_LIN , 2 )
0x207e…2091 LineComal80 {
0x207e…2091 ptr = 0xb67f // 0x207e @0x0
0x207e…2091 lno = 0x0cc6 // 0x2080 @0x2
0x207e…2091 at0004 = ╱92╱ PRINT ╱ // 0x2082 @0x4
0x207e…2091 at0005 = ╱d0╱ CHR$ ╱ // 0x2083 @0x5
0x207e…2091 at0006 = ╱ed╱ ( ╱ // 0x2084 @0x6
0x207e…2091 at0007 = ╱52╱R╱ // 0x2085 @0x7
0x207e…2091 at0008 = ╱5f╱_╱ // 0x2086 @0x8
0x207e…2091 at0009 = ╱4c╱L╱ // 0x2087 @0x9
0x207e…2091 at000a = ╱49╱I╱ // 0x2088 @0xa
0x207e…2091 at000b = ╱4e╱N╱ // 0x2089 @0xb
0x207e…2091 at000c = ╱ec╱ , ╱ // 0x208a @0xc
0x207e…2091 at000d = ╱32╱2╱ // 0x208b @0xd
0x207e…2091 at000e = ╱f20200╱ // 0x208c @0xe
0x207e…2091 at0011 = ╱ee╱ ) ╱ // 0x208f @0x11
0x207e…2091 at0012 = EOL // 0x2090 @0x12
0x207e…2091 }
0x2091…2098 b686 03280 REPEAT
0x2091…2098 LineComal80 {
0x2091…2098 ptr = 0xb686 // 0x2091 @0x0
0x2091…2098 lno = 0x0cd0 // 0x2093 @0x2
0x2091…2098 at0004 = ╱973b╱ REPEAT ╱ // 0x2095 @0x4
0x2091…2098 at0006 = EOL // 0x2097 @0x6
0x2091…2098 }
0x2098…20a9 b697 03290 CURSOR 4 , R_SLIN
0x2098…20a9 LineComal80 {
0x2098…20a9 ptr = 0xb697 // 0x2098 @0x0
0x2098…20a9 lno = 0x0cda // 0x209a @0x2
0x2098…20a9 at0004 = ╱a1╱ CURSOR ╱ // 0x209c @0x4
0x2098…20a9 at0005 = ╱34╱4╱ // 0x209d @0x5
0x2098…20a9 at0006 = ╱f20400╱ // 0x209e @0x6
0x2098…20a9 at0009 = ╱ec╱ , ╱ // 0x20a1 @0x9
0x2098…20a9 at000a = ╱52╱R╱ // 0x20a2 @0xa
0x2098…20a9 at000b = ╱5f╱_╱ // 0x20a3 @0xb
0x2098…20a9 at000c = ╱53╱S╱ // 0x20a4 @0xc
0x2098…20a9 at000d = ╱4c╱L╱ // 0x20a5 @0xd
0x2098…20a9 at000e = ╱49╱I╱ // 0x20a6 @0xe
0x2098…20a9 at000f = ╱4e╱N╱ // 0x20a7 @0xf
0x2098…20a9 at0010 = EOL // 0x20a8 @0x10
0x2098…20a9 }
0x20a9…20b8 b6a6 03300 EDIT "" : P_BNR $
0x20a9…20b8 LineComal80 {
0x20a9…20b8 ptr = 0xb6a6 // 0x20a9 @0x0
0x20a9…20b8 lno = 0x0ce4 // 0x20ab @0x2
0x20a9…20b8 at0004 = ╱b1╱ EDIT ╱ // 0x20ad @0x4
0x20a9…20b8 at0005 = ╱22╱"╱ // 0x20ae @0x5
0x20a9…20b8 at0006 = ╱22╱"╱ // 0x20af @0x6
0x20a9…20b8 at0007 = ╱f1╱ : ╱ // 0x20b0 @0x7
0x20a9…20b8 at0008 = ╱50╱P╱ // 0x20b1 @0x8
0x20a9…20b8 at0009 = ╱5f╱_╱ // 0x20b2 @0x9
0x20a9…20b8 at000a = ╱42╱B╱ // 0x20b3 @0xa
0x20a9…20b8 at000b = ╱4e╱N╱ // 0x20b4 @0xb
0x20a9…20b8 at000c = ╱52╱R╱ // 0x20b5 @0xc
0x20a9…20b8 at000d = ╱ef╱ $ ╱ // 0x20b6 @0xd
0x20a9…20b8 at000e = EOL // 0x20b7 @0xe
0x20a9…20b8 }
0x20b8…20ca b6b8 03310 EXEC SL_FEJLLINIE
0x20b8…20ca LineComal80 {
0x20b8…20ca ptr = 0xb6b8 // 0x20b8 @0x0
0x20b8…20ca lno = 0x0cee // 0x20ba @0x2
0x20b8…20ca at0004 = ╱9d╱ EXEC ╱ // 0x20bc @0x4
0x20b8…20ca at0005 = ╱53╱S╱ // 0x20bd @0x5
0x20b8…20ca at0006 = ╱4c╱L╱ // 0x20be @0x6
0x20b8…20ca at0007 = ╱5f╱_╱ // 0x20bf @0x7
0x20b8…20ca at0008 = ╱46╱F╱ // 0x20c0 @0x8
0x20b8…20ca at0009 = ╱45╱E╱ // 0x20c1 @0x9
0x20b8…20ca at000a = ╱4a╱J╱ // 0x20c2 @0xa
0x20b8…20ca at000b = ╱4c╱L╱ // 0x20c3 @0xb
0x20b8…20ca at000c = ╱4c╱L╱ // 0x20c4 @0xc
0x20b8…20ca at000d = ╱49╱I╱ // 0x20c5 @0xd
0x20b8…20ca at000e = ╱4e╱N╱ // 0x20c6 @0xe
0x20b8…20ca at000f = ╱49╱I╱ // 0x20c7 @0xf
0x20b8…20ca at0010 = ╱45╱E╱ // 0x20c8 @0x10
0x20b8…20ca at0011 = EOL // 0x20c9 @0x11
0x20b8…20ca }
0x20ca…20fd b6eb 03320 IF _BNR $ = "*****" OR "/" + P_BNR $ + "/" IN "/SLUT/slut/" THEN
0x20ca…20fd LineComal80 {
0x20ca…20fd ptr = 0xb6eb // 0x20ca @0x0
0x20ca…20fd lno = 0x0cf8 // 0x20cc @0x2
0x20ca…20fd at0004 = ╱9b3c50╱ IF ╱ // 0x20ce @0x4
0x20ca…20fd at0007 = ╱5f╱_╱ // 0x20d1 @0x7
0x20ca…20fd at0008 = ╱42╱B╱ // 0x20d2 @0x8
0x20ca…20fd at0009 = ╱4e╱N╱ // 0x20d3 @0x9
0x20ca…20fd at000a = ╱52╱R╱ // 0x20d4 @0xa
0x20ca…20fd at000b = ╱ef╱ $ ╱ // 0x20d5 @0xb
0x20ca…20fd at000c = ╱df╱ = ╱ // 0x20d6 @0xc
0x20ca…20fd at000d = ╱22╱"╱ // 0x20d7 @0xd
0x20ca…20fd at000e = ╱2a╱*╱ // 0x20d8 @0xe
0x20ca…20fd at000f = ╱2a╱*╱ // 0x20d9 @0xf
0x20ca…20fd at0010 = ╱2a╱*╱ // 0x20da @0x10
0x20ca…20fd at0011 = ╱2a╱*╱ // 0x20db @0x11
0x20ca…20fd at0012 = ╱2a╱*╱ // 0x20dc @0x12
0x20ca…20fd at0013 = ╱22╱"╱ // 0x20dd @0x13
0x20ca…20fd at0014 = ╱d8╱ OR ╱ // 0x20de @0x14
0x20ca…20fd at0015 = ╱22╱"╱ // 0x20df @0x15
0x20ca…20fd at0016 = ╱2f╱/╱ // 0x20e0 @0x16
0x20ca…20fd at0017 = ╱22╱"╱ // 0x20e1 @0x17
0x20ca…20fd at0018 = ╱eb╱ + ╱ // 0x20e2 @0x18
0x20ca…20fd at0019 = ╱50╱P╱ // 0x20e3 @0x19
0x20ca…20fd at001a = ╱5f╱_╱ // 0x20e4 @0x1a
0x20ca…20fd at001b = ╱42╱B╱ // 0x20e5 @0x1b
0x20ca…20fd at001c = ╱4e╱N╱ // 0x20e6 @0x1c
0x20ca…20fd at001d = ╱52╱R╱ // 0x20e7 @0x1d
0x20ca…20fd at001e = ╱ef╱ $ ╱ // 0x20e8 @0x1e
0x20ca…20fd at001f = ╱eb╱ + ╱ // 0x20e9 @0x1f
0x20ca…20fd at0020 = ╱22╱"╱ // 0x20ea @0x20
0x20ca…20fd at0021 = ╱2f╱/╱ // 0x20eb @0x21
0x20ca…20fd at0022 = ╱22╱"╱ // 0x20ec @0x22
0x20ca…20fd at0023 = ╱dc╱ IN ╱ // 0x20ed @0x23
0x20ca…20fd at0024 = ╱22╱"╱ // 0x20ee @0x24
0x20ca…20fd at0025 = ╱2f╱/╱ // 0x20ef @0x25
0x20ca…20fd at0026 = ╱53╱S╱ // 0x20f0 @0x26
0x20ca…20fd at0027 = ╱4c╱L╱ // 0x20f1 @0x27
0x20ca…20fd at0028 = ╱55╱U╱ // 0x20f2 @0x28
0x20ca…20fd at0029 = ╱54╱T╱ // 0x20f3 @0x29
0x20ca…20fd at002a = ╱2f╱/╱ // 0x20f4 @0x2a
0x20ca…20fd at002b = ╱73╱s╱ // 0x20f5 @0x2b
0x20ca…20fd at002c = ╱6c╱l╱ // 0x20f6 @0x2c
0x20ca…20fd at002d = ╱75╱u╱ // 0x20f7 @0x2d
0x20ca…20fd at002e = ╱74╱t╱ // 0x20f8 @0x2e
0x20ca…20fd at002f = ╱2f╱/╱ // 0x20f9 @0x2f
0x20ca…20fd at0030 = ╱22╱"╱ // 0x20fa @0x30
0x20ca…20fd at0031 = ╱b5╱ THEN ╱ // 0x20fb @0x31
0x20ca…20fd at0032 = EOL // 0x20fc @0x32
0x20ca…20fd }
0x20fd…210a b6f8 03330 LET OK := TRUE
0x20fd…210a LineComal80 {
0x20fd…210a ptr = 0xb6f8 // 0x20fd @0x0
0x20fd…210a lno = 0x0d02 // 0x20ff @0x2
0x20fd…210a at0004 = ╱86╱ LET ╱ // 0x2101 @0x4
0x20fd…210a at0005 = ╱4f╱O╱ // 0x2102 @0x5
0x20fd…210a at0006 = ╱4b╱K╱ // 0x2103 @0x6
0x20fd…210a at0007 = ╱f0╱ := ╱ // 0x2104 @0x7
0x20fd…210a at0008 = ╱54╱T╱ // 0x2105 @0x8
0x20fd…210a at0009 = ╱52╱R╱ // 0x2106 @0x9
0x20fd…210a at000a = ╱55╱U╱ // 0x2107 @0xa
0x20fd…210a at000b = ╱45╱E╱ // 0x2108 @0xb
0x20fd…210a at000c = EOL // 0x2109 @0xc
0x20fd…210a }
0x210a…2111 b6ff 03340 ELSE
0x210a…2111 LineComal80 {
0x210a…2111 ptr = 0xb6ff // 0x210a @0x0
0x210a…2111 lno = 0x0d0c // 0x210c @0x2
0x210a…2111 at0004 = ╱9a3d╱ ELSE ╱ // 0x210e @0x4
0x210a…2111 at0006 = EOL // 0x2110 @0x6
0x210a…2111 }
0x2111…212a b718 03350 EXEC TAL_CONTROL ( P_BNR $ )
0x2111…212a LineComal80 {
0x2111…212a ptr = 0xb718 // 0x2111 @0x0
0x2111…212a lno = 0x0d16 // 0x2113 @0x2
0x2111…212a at0004 = ╱9d╱ EXEC ╱ // 0x2115 @0x4
0x2111…212a at0005 = ╱54╱T╱ // 0x2116 @0x5
0x2111…212a at0006 = ╱41╱A╱ // 0x2117 @0x6
0x2111…212a at0007 = ╱4c╱L╱ // 0x2118 @0x7
0x2111…212a at0008 = ╱5f╱_╱ // 0x2119 @0x8
0x2111…212a at0009 = ╱43╱C╱ // 0x211a @0x9
0x2111…212a at000a = ╱4f╱O╱ // 0x211b @0xa
0x2111…212a at000b = ╱4e╱N╱ // 0x211c @0xb
0x2111…212a at000c = ╱54╱T╱ // 0x211d @0xc
0x2111…212a at000d = ╱52╱R╱ // 0x211e @0xd
0x2111…212a at000e = ╱4f╱O╱ // 0x211f @0xe
0x2111…212a at000f = ╱4c╱L╱ // 0x2120 @0xf
0x2111…212a at0010 = ╱ed╱ ( ╱ // 0x2121 @0x10
0x2111…212a at0011 = ╱50╱P╱ // 0x2122 @0x11
0x2111…212a at0012 = ╱5f╱_╱ // 0x2123 @0x12
0x2111…212a at0013 = ╱42╱B╱ // 0x2124 @0x13
0x2111…212a at0014 = ╱4e╱N╱ // 0x2125 @0x14
0x2111…212a at0015 = ╱52╱R╱ // 0x2126 @0x15
0x2111…212a at0016 = ╱ef╱ $ ╱ // 0x2127 @0x16
0x2111…212a at0017 = ╱ee╱ ) ╱ // 0x2128 @0x17
0x2111…212a at0018 = EOL // 0x2129 @0x18
0x2111…212a }
0x212a…2152 b740 03360 IF NOT OK THEN EXEC FEJL ( "Ulovlig…bilagsnummer" )
0x212a…2152 LineComal80 {
0x212a…2152 ptr = 0xb740 // 0x212a @0x0
0x212a…2152 lno = 0x0d20 // 0x212c @0x2
0x212a…2152 at0004 = ╱8200╱ IF ╱ // 0x212e @0x4
0x212a…2152 at0006 = ╱d7╱ NOT ╱ // 0x2130 @0x6
0x212a…2152 at0007 = ╱4f╱O╱ // 0x2131 @0x7
0x212a…2152 at0008 = ╱4b╱K╱ // 0x2132 @0x8
0x212a…2152 at0009 = ╱b5╱ THEN ╱ // 0x2133 @0x9
0x212a…2152 at000a = ╱9d╱ EXEC ╱ // 0x2134 @0xa
0x212a…2152 at000b = ╱46╱F╱ // 0x2135 @0xb
0x212a…2152 at000c = ╱45╱E╱ // 0x2136 @0xc
0x212a…2152 at000d = ╱4a╱J╱ // 0x2137 @0xd
0x212a…2152 at000e = ╱4c╱L╱ // 0x2138 @0xe
0x212a…2152 at000f = ╱ed╱ ( ╱ // 0x2139 @0xf
0x212a…2152 at0010 = ╱22╱"╱ // 0x213a @0x10
0x212a…2152 at0011 = ╱55╱U╱ // 0x213b @0x11
0x212a…2152 at0012 = ╱6c╱l╱ // 0x213c @0x12
0x212a…2152 at0013 = ╱6f╱o╱ // 0x213d @0x13
0x212a…2152 at0014 = ╱76╱v╱ // 0x213e @0x14
0x212a…2152 at0015 = ╱6c╱l╱ // 0x213f @0x15
0x212a…2152 at0016 = ╱69╱i╱ // 0x2140 @0x16
0x212a…2152 at0017 = ╱67╱g╱ // 0x2141 @0x17
0x212a…2152 at0018 = ╱20╱…╱ // 0x2142 @0x18
0x212a…2152 at0019 = ╱62╱b╱ // 0x2143 @0x19
0x212a…2152 at001a = ╱69╱i╱ // 0x2144 @0x1a
0x212a…2152 at001b = ╱6c╱l╱ // 0x2145 @0x1b
0x212a…2152 at001c = ╱61╱a╱ // 0x2146 @0x1c
0x212a…2152 at001d = ╱67╱g╱ // 0x2147 @0x1d
0x212a…2152 at001e = ╱73╱s╱ // 0x2148 @0x1e
0x212a…2152 at001f = ╱6e╱n╱ // 0x2149 @0x1f
0x212a…2152 at0020 = ╱75╱u╱ // 0x214a @0x20
0x212a…2152 at0021 = ╱6d╱m╱ // 0x214b @0x21
0x212a…2152 at0022 = ╱6d╱m╱ // 0x214c @0x22
0x212a…2152 at0023 = ╱65╱e╱ // 0x214d @0x23
0x212a…2152 at0024 = ╱72╱r╱ // 0x214e @0x24
0x212a…2152 at0025 = ╱22╱"╱ // 0x214f @0x25
0x212a…2152 at0026 = ╱ee╱ ) ╱ // 0x2150 @0x26
0x212a…2152 at0027 = EOL // 0x2151 @0x27
0x212a…2152 }
0x2152…2158 b746 03370 ENDIF
0x2152…2158 LineComal80 {
0x2152…2158 ptr = 0xb746 // 0x2152 @0x0
0x2152…2158 lno = 0x0d2a // 0x2154 @0x2
0x2152…2158 at0004 = ╱9c╱ ENDIF ╱ // 0x2156 @0x4
0x2152…2158 at0005 = EOL // 0x2157 @0x5
0x2152…2158 }
0x2158…2160 b74e 03380 UNTIL OK
0x2158…2160 LineComal80 {
0x2158…2160 ptr = 0xb74e // 0x2158 @0x0
0x2158…2160 lno = 0x0d34 // 0x215a @0x2
0x2158…2160 at0004 = ╱98╱ UNTIL ╱ // 0x215c @0x4
0x2158…2160 at0005 = ╱4f╱O╱ // 0x215d @0x5
0x2158…2160 at0006 = ╱4b╱K╱ // 0x215e @0x6
0x2158…2160 at0007 = EOL // 0x215f @0x7
0x2158…2160 }
0x2160…2171 b75f 03390 CURSOR 4 , R_SLIN
0x2160…2171 LineComal80 {
0x2160…2171 ptr = 0xb75f // 0x2160 @0x0
0x2160…2171 lno = 0x0d3e // 0x2162 @0x2
0x2160…2171 at0004 = ╱a1╱ CURSOR ╱ // 0x2164 @0x4
0x2160…2171 at0005 = ╱34╱4╱ // 0x2165 @0x5
0x2160…2171 at0006 = ╱f20400╱ // 0x2166 @0x6
0x2160…2171 at0009 = ╱ec╱ , ╱ // 0x2169 @0x9
0x2160…2171 at000a = ╱52╱R╱ // 0x216a @0xa
0x2160…2171 at000b = ╱5f╱_╱ // 0x216b @0xb
0x2160…2171 at000c = ╱53╱S╱ // 0x216c @0xc
0x2160…2171 at000d = ╱4c╱L╱ // 0x216d @0xd
0x2160…2171 at000e = ╱49╱I╱ // 0x216e @0xe
0x2160…2171 at000f = ╱4e╱N╱ // 0x216f @0xf
0x2160…2171 at0010 = EOL // 0x2170 @0x10
0x2160…2171 }
0x2171…2186 b774 03400 PRINT SPC $ ( 1 : 5 )
0x2171…2186 LineComal80 {
0x2171…2186 ptr = 0xb774 // 0x2171 @0x0
0x2171…2186 lno = 0x0d48 // 0x2173 @0x2
0x2171…2186 at0004 = ╱92╱ PRINT ╱ // 0x2175 @0x4
0x2171…2186 at0005 = ╱53╱S╱ // 0x2176 @0x5
0x2171…2186 at0006 = ╱50╱P╱ // 0x2177 @0x6
0x2171…2186 at0007 = ╱43╱C╱ // 0x2178 @0x7
0x2171…2186 at0008 = ╱ef╱ $ ╱ // 0x2179 @0x8
0x2171…2186 at0009 = ╱ed╱ ( ╱ // 0x217a @0x9
0x2171…2186 at000a = ╱31╱1╱ // 0x217b @0xa
0x2171…2186 at000b = ╱f20100╱ // 0x217c @0xb
0x2171…2186 at000e = ╱f1╱ : ╱ // 0x217f @0xe
0x2171…2186 at000f = ╱35╱5╱ // 0x2180 @0xf
0x2171…2186 at0010 = ╱f20500╱ // 0x2181 @0x10
0x2171…2186 at0013 = ╱ee╱ ) ╱ // 0x2184 @0x13
0x2171…2186 at0014 = EOL // 0x2185 @0x14
0x2171…2186 }
0x2186…2197 b785 03410 CURSOR 4 , R_SLIN
0x2186…2197 LineComal80 {
0x2186…2197 ptr = 0xb785 // 0x2186 @0x0
0x2186…2197 lno = 0x0d52 // 0x2188 @0x2
0x2186…2197 at0004 = ╱a1╱ CURSOR ╱ // 0x218a @0x4
0x2186…2197 at0005 = ╱34╱4╱ // 0x218b @0x5
0x2186…2197 at0006 = ╱f20400╱ // 0x218c @0x6
0x2186…2197 at0009 = ╱ec╱ , ╱ // 0x218f @0x9
0x2186…2197 at000a = ╱52╱R╱ // 0x2190 @0xa
0x2186…2197 at000b = ╱5f╱_╱ // 0x2191 @0xb
0x2186…2197 at000c = ╱53╱S╱ // 0x2192 @0xc
0x2186…2197 at000d = ╱4c╱L╱ // 0x2193 @0xd
0x2186…2197 at000e = ╱49╱I╱ // 0x2194 @0xe
0x2186…2197 at000f = ╱4e╱N╱ // 0x2195 @0xf
0x2186…2197 at0010 = EOL // 0x2196 @0x10
0x2186…2197 }
0x2197…21ca b7b8 03420 IF _BNR $ = "*****" OR "/" + P_BNR $ + "/" IN "/SLUT/slut/" THEN
0x2197…21ca LineComal80 {
0x2197…21ca ptr = 0xb7b8 // 0x2197 @0x0
0x2197…21ca lno = 0x0d5c // 0x2199 @0x2
0x2197…21ca at0004 = ╱9b3e50╱ IF ╱ // 0x219b @0x4
0x2197…21ca at0007 = ╱5f╱_╱ // 0x219e @0x7
0x2197…21ca at0008 = ╱42╱B╱ // 0x219f @0x8
0x2197…21ca at0009 = ╱4e╱N╱ // 0x21a0 @0x9
0x2197…21ca at000a = ╱52╱R╱ // 0x21a1 @0xa
0x2197…21ca at000b = ╱ef╱ $ ╱ // 0x21a2 @0xb
0x2197…21ca at000c = ╱df╱ = ╱ // 0x21a3 @0xc
0x2197…21ca at000d = ╱22╱"╱ // 0x21a4 @0xd
0x2197…21ca at000e = ╱2a╱*╱ // 0x21a5 @0xe
0x2197…21ca at000f = ╱2a╱*╱ // 0x21a6 @0xf
0x2197…21ca at0010 = ╱2a╱*╱ // 0x21a7 @0x10
0x2197…21ca at0011 = ╱2a╱*╱ // 0x21a8 @0x11
0x2197…21ca at0012 = ╱2a╱*╱ // 0x21a9 @0x12
0x2197…21ca at0013 = ╱22╱"╱ // 0x21aa @0x13
0x2197…21ca at0014 = ╱d8╱ OR ╱ // 0x21ab @0x14
0x2197…21ca at0015 = ╱22╱"╱ // 0x21ac @0x15
0x2197…21ca at0016 = ╱2f╱/╱ // 0x21ad @0x16
0x2197…21ca at0017 = ╱22╱"╱ // 0x21ae @0x17
0x2197…21ca at0018 = ╱eb╱ + ╱ // 0x21af @0x18
0x2197…21ca at0019 = ╱50╱P╱ // 0x21b0 @0x19
0x2197…21ca at001a = ╱5f╱_╱ // 0x21b1 @0x1a
0x2197…21ca at001b = ╱42╱B╱ // 0x21b2 @0x1b
0x2197…21ca at001c = ╱4e╱N╱ // 0x21b3 @0x1c
0x2197…21ca at001d = ╱52╱R╱ // 0x21b4 @0x1d
0x2197…21ca at001e = ╱ef╱ $ ╱ // 0x21b5 @0x1e
0x2197…21ca at001f = ╱eb╱ + ╱ // 0x21b6 @0x1f
0x2197…21ca at0020 = ╱22╱"╱ // 0x21b7 @0x20
0x2197…21ca at0021 = ╱2f╱/╱ // 0x21b8 @0x21
0x2197…21ca at0022 = ╱22╱"╱ // 0x21b9 @0x22
0x2197…21ca at0023 = ╱dc╱ IN ╱ // 0x21ba @0x23
0x2197…21ca at0024 = ╱22╱"╱ // 0x21bb @0x24
0x2197…21ca at0025 = ╱2f╱/╱ // 0x21bc @0x25
0x2197…21ca at0026 = ╱53╱S╱ // 0x21bd @0x26
0x2197…21ca at0027 = ╱4c╱L╱ // 0x21be @0x27
0x2197…21ca at0028 = ╱55╱U╱ // 0x21bf @0x28
0x2197…21ca at0029 = ╱54╱T╱ // 0x21c0 @0x29
0x2197…21ca at002a = ╱2f╱/╱ // 0x21c1 @0x2a
0x2197…21ca at002b = ╱73╱s╱ // 0x21c2 @0x2b
0x2197…21ca at002c = ╱6c╱l╱ // 0x21c3 @0x2c
0x2197…21ca at002d = ╱75╱u╱ // 0x21c4 @0x2d
0x2197…21ca at002e = ╱74╱t╱ // 0x21c5 @0x2e
0x2197…21ca at002f = ╱2f╱/╱ // 0x21c6 @0x2f
0x2197…21ca at0030 = ╱22╱"╱ // 0x21c7 @0x30
0x2197…21ca at0031 = ╱b5╱ THEN ╱ // 0x21c8 @0x31
0x2197…21ca at0032 = EOL // 0x21c9 @0x32
0x2197…21ca }
0x21ca…21ee b7dc 03430 IF /" + P_BNR $ + "/" IN "/slut/SLUT/" THEN
0x21ca…21ee LineComal80 {
0x21ca…21ee ptr = 0xb7dc // 0x21ca @0x0
0x21ca…21ee lno = 0x0d66 // 0x21cc @0x2
0x21ca…21ee at0004 = ╱9b3f22╱ IF ╱ // 0x21ce @0x4
0x21ca…21ee at0007 = ╱2f╱/╱ // 0x21d1 @0x7
0x21ca…21ee at0008 = ╱22╱"╱ // 0x21d2 @0x8
0x21ca…21ee at0009 = ╱eb╱ + ╱ // 0x21d3 @0x9
0x21ca…21ee at000a = ╱50╱P╱ // 0x21d4 @0xa
0x21ca…21ee at000b = ╱5f╱_╱ // 0x21d5 @0xb
0x21ca…21ee at000c = ╱42╱B╱ // 0x21d6 @0xc
0x21ca…21ee at000d = ╱4e╱N╱ // 0x21d7 @0xd
0x21ca…21ee at000e = ╱52╱R╱ // 0x21d8 @0xe
0x21ca…21ee at000f = ╱ef╱ $ ╱ // 0x21d9 @0xf
0x21ca…21ee at0010 = ╱eb╱ + ╱ // 0x21da @0x10
0x21ca…21ee at0011 = ╱22╱"╱ // 0x21db @0x11
0x21ca…21ee at0012 = ╱2f╱/╱ // 0x21dc @0x12
0x21ca…21ee at0013 = ╱22╱"╱ // 0x21dd @0x13
0x21ca…21ee at0014 = ╱dc╱ IN ╱ // 0x21de @0x14
0x21ca…21ee at0015 = ╱22╱"╱ // 0x21df @0x15
0x21ca…21ee at0016 = ╱2f╱/╱ // 0x21e0 @0x16
0x21ca…21ee at0017 = ╱73╱s╱ // 0x21e1 @0x17
0x21ca…21ee at0018 = ╱6c╱l╱ // 0x21e2 @0x18
0x21ca…21ee at0019 = ╱75╱u╱ // 0x21e3 @0x19
0x21ca…21ee at001a = ╱74╱t╱ // 0x21e4 @0x1a
0x21ca…21ee at001b = ╱2f╱/╱ // 0x21e5 @0x1b
0x21ca…21ee at001c = ╱53╱S╱ // 0x21e6 @0x1c
0x21ca…21ee at001d = ╱4c╱L╱ // 0x21e7 @0x1d
0x21ca…21ee at001e = ╱55╱U╱ // 0x21e8 @0x1e
0x21ca…21ee at001f = ╱54╱T╱ // 0x21e9 @0x1f
0x21ca…21ee at0020 = ╱2f╱/╱ // 0x21ea @0x20
0x21ca…21ee at0021 = ╱22╱"╱ // 0x21eb @0x21
0x21ca…21ee at0022 = ╱b5╱ THEN ╱ // 0x21ec @0x22
0x21ca…21ee at0023 = EOL // 0x21ed @0x23
0x21ca…21ee }
0x21ee…2223 b811 03440 LET SVAR $ := "S" ; P_BNR $ := "*****" ; P_H\JREC := P_H\JREC - 1
0x21ee…2223 LineComal80 {
0x21ee…2223 ptr = 0xb811 // 0x21ee @0x0
0x21ee…2223 lno = 0x0d70 // 0x21f0 @0x2
0x21ee…2223 at0004 = ╱86╱ LET ╱ // 0x21f2 @0x4
0x21ee…2223 at0005 = ╱53╱S╱ // 0x21f3 @0x5
0x21ee…2223 at0006 = ╱56╱V╱ // 0x21f4 @0x6
0x21ee…2223 at0007 = ╱41╱A╱ // 0x21f5 @0x7
0x21ee…2223 at0008 = ╱52╱R╱ // 0x21f6 @0x8
0x21ee…2223 at0009 = ╱ef╱ $ ╱ // 0x21f7 @0x9
0x21ee…2223 at000a = ╱f0╱ := ╱ // 0x21f8 @0xa
0x21ee…2223 at000b = ╱22╱"╱ // 0x21f9 @0xb
0x21ee…2223 at000c = ╱53╱S╱ // 0x21fa @0xc
0x21ee…2223 at000d = ╱22╱"╱ // 0x21fb @0xd
0x21ee…2223 at000e = ╱ea╱ ; ╱ // 0x21fc @0xe
0x21ee…2223 at000f = ╱50╱P╱ // 0x21fd @0xf
0x21ee…2223 at0010 = ╱5f╱_╱ // 0x21fe @0x10
0x21ee…2223 at0011 = ╱42╱B╱ // 0x21ff @0x11
0x21ee…2223 at0012 = ╱4e╱N╱ // 0x2200 @0x12
0x21ee…2223 at0013 = ╱52╱R╱ // 0x2201 @0x13
0x21ee…2223 at0014 = ╱ef╱ $ ╱ // 0x2202 @0x14
0x21ee…2223 at0015 = ╱f0╱ := ╱ // 0x2203 @0x15
0x21ee…2223 at0016 = ╱22╱"╱ // 0x2204 @0x16
0x21ee…2223 at0017 = ╱2a╱*╱ // 0x2205 @0x17
0x21ee…2223 at0018 = ╱2a╱*╱ // 0x2206 @0x18
0x21ee…2223 at0019 = ╱2a╱*╱ // 0x2207 @0x19
0x21ee…2223 at001a = ╱2a╱*╱ // 0x2208 @0x1a
0x21ee…2223 at001b = ╱2a╱*╱ // 0x2209 @0x1b
0x21ee…2223 at001c = ╱22╱"╱ // 0x220a @0x1c
0x21ee…2223 at001d = ╱ea╱ ; ╱ // 0x220b @0x1d
0x21ee…2223 at001e = ╱50╱P╱ // 0x220c @0x1e
0x21ee…2223 at001f = ╱5f╱_╱ // 0x220d @0x1f
0x21ee…2223 at0020 = ╱48╱H╱ // 0x220e @0x20
0x21ee…2223 at0021 = ╱5c╱\╱ // 0x220f @0x21
0x21ee…2223 at0022 = ╱4a╱J╱ // 0x2210 @0x22
0x21ee…2223 at0023 = ╱52╱R╱ // 0x2211 @0x23
0x21ee…2223 at0024 = ╱45╱E╱ // 0x2212 @0x24
0x21ee…2223 at0025 = ╱43╱C╱ // 0x2213 @0x25
0x21ee…2223 at0026 = ╱f0╱ := ╱ // 0x2214 @0x26
0x21ee…2223 at0027 = ╱50╱P╱ // 0x2215 @0x27
0x21ee…2223 at0028 = ╱5f╱_╱ // 0x2216 @0x28
0x21ee…2223 at0029 = ╱48╱H╱ // 0x2217 @0x29
0x21ee…2223 at002a = ╱5c╱\╱ // 0x2218 @0x2a
0x21ee…2223 at002b = ╱4a╱J╱ // 0x2219 @0x2b
0x21ee…2223 at002c = ╱52╱R╱ // 0x221a @0x2c
0x21ee…2223 at002d = ╱45╱E╱ // 0x221b @0x2d
0x21ee…2223 at002e = ╱43╱C╱ // 0x221c @0x2e
0x21ee…2223 at002f = ╱e6╱ - ╱ // 0x221d @0x2f
0x21ee…2223 at0030 = ╱31╱1╱ // 0x221e @0x30
0x21ee…2223 at0031 = ╱f20100╱ // 0x221f @0x31
0x21ee…2223 at0034 = EOL // 0x2222 @0x34
0x21ee…2223 }
0x2223…2229 b817 03450 ENDIF
0x2223…2229 LineComal80 {
0x2223…2229 ptr = 0xb817 // 0x2223 @0x0
0x2223…2229 lno = 0x0d7a // 0x2225 @0x2
0x2223…2229 at0004 = ╱9c╱ ENDIF ╱ // 0x2227 @0x4
0x2223…2229 at0005 = EOL // 0x2228 @0x5
0x2223…2229 }
0x2229…223f b82d 03460 PRINT SPC $ ( 1 : 76 )
0x2229…223f LineComal80 {
0x2229…223f ptr = 0xb82d // 0x2229 @0x0
0x2229…223f lno = 0x0d84 // 0x222b @0x2
0x2229…223f at0004 = ╱92╱ PRINT ╱ // 0x222d @0x4
0x2229…223f at0005 = ╱53╱S╱ // 0x222e @0x5
0x2229…223f at0006 = ╱50╱P╱ // 0x222f @0x6
0x2229…223f at0007 = ╱43╱C╱ // 0x2230 @0x7
0x2229…223f at0008 = ╱ef╱ $ ╱ // 0x2231 @0x8
0x2229…223f at0009 = ╱ed╱ ( ╱ // 0x2232 @0x9
0x2229…223f at000a = ╱31╱1╱ // 0x2233 @0xa
0x2229…223f at000b = ╱f20100╱ // 0x2234 @0xb
0x2229…223f at000e = ╱f1╱ : ╱ // 0x2237 @0xe
0x2229…223f at000f = ╱37╱7╱ // 0x2238 @0xf
0x2229…223f at0010 = ╱36╱6╱ // 0x2239 @0x10
0x2229…223f at0011 = ╱f24c00╱ // 0x223a @0x11
0x2229…223f at0014 = ╱ee╱ ) ╱ // 0x223d @0x14
0x2229…223f at0015 = EOL // 0x223e @0x15
0x2229…223f }
0x223f…2245 b833 03470 EXIT
0x223f…2245 LineComal80 {
0x223f…2245 ptr = 0xb833 // 0x223f @0x0
0x223f…2245 lno = 0x0d8e // 0x2241 @0x2
0x223f…2245 at0004 = ╱99╱ EXIT ╱ // 0x2243 @0x4
0x223f…2245 at0005 = EOL // 0x2244 @0x5
0x223f…2245 }
0x2245…224c b83a 03480 ELSE
0x2245…224c LineComal80 {
0x2245…224c ptr = 0xb83a // 0x2245 @0x0
0x2245…224c lno = 0x0d98 // 0x2247 @0x2
0x2245…224c at0004 = ╱9a40╱ ELSE ╱ // 0x2249 @0x4
0x2245…224c at0006 = EOL // 0x224b @0x6
0x2245…224c }
0x224c…2258 b846 03490 PRINT P_BNR $
0x224c…2258 LineComal80 {
0x224c…2258 ptr = 0xb846 // 0x224c @0x0
0x224c…2258 lno = 0x0da2 // 0x224e @0x2
0x224c…2258 at0004 = ╱92╱ PRINT ╱ // 0x2250 @0x4
0x224c…2258 at0005 = ╱50╱P╱ // 0x2251 @0x5
0x224c…2258 at0006 = ╱5f╱_╱ // 0x2252 @0x6
0x224c…2258 at0007 = ╱42╱B╱ // 0x2253 @0x7
0x224c…2258 at0008 = ╱4e╱N╱ // 0x2254 @0x8
0x224c…2258 at0009 = ╱52╱R╱ // 0x2255 @0x9
0x224c…2258 at000a = ╱ef╱ $ ╱ // 0x2256 @0xa
0x224c…2258 at000b = EOL // 0x2257 @0xb
0x224c…2258 }
0x2258…225e b84c 03500 ENDIF
0x2258…225e LineComal80 {
0x2258…225e ptr = 0xb84c // 0x2258 @0x0
0x2258…225e lno = 0x0dac // 0x225a @0x2
0x2258…225e at0004 = ╱9c╱ ENDIF ╱ // 0x225c @0x4
0x2258…225e at0005 = EOL // 0x225d @0x5
0x2258…225e }
0x225e…2270 b85e 03510 CURSOR 11 , R_SLIN
0x225e…2270 LineComal80 {
0x225e…2270 ptr = 0xb85e // 0x225e @0x0
0x225e…2270 lno = 0x0db6 // 0x2260 @0x2
0x225e…2270 at0004 = ╱a1╱ CURSOR ╱ // 0x2262 @0x4
0x225e…2270 at0005 = ╱31╱1╱ // 0x2263 @0x5
0x225e…2270 at0006 = ╱31╱1╱ // 0x2264 @0x6
0x225e…2270 at0007 = ╱f20b00╱ // 0x2265 @0x7
0x225e…2270 at000a = ╱ec╱ , ╱ // 0x2268 @0xa
0x225e…2270 at000b = ╱52╱R╱ // 0x2269 @0xb
0x225e…2270 at000c = ╱5f╱_╱ // 0x226a @0xc
0x225e…2270 at000d = ╱53╱S╱ // 0x226b @0xd
0x225e…2270 at000e = ╱4c╱L╱ // 0x226c @0xe
0x225e…2270 at000f = ╱49╱I╱ // 0x226d @0xf
0x225e…2270 at0010 = ╱4e╱N╱ // 0x226e @0x10
0x225e…2270 at0011 = EOL // 0x226f @0x11
0x225e…2270 }
0x2270…227f d0de 03520 EDIT "" : P_TXT $
0x2270…227f LineComal80 {
0x2270…227f ptr = 0xd0de // 0x2270 @0x0
0x2270…227f lno = 0x0dc0 // 0x2272 @0x2
0x2270…227f at0004 = ╱b1╱ EDIT ╱ // 0x2274 @0x4
0x2270…227f at0005 = ╱22╱"╱ // 0x2275 @0x5
0x2270…227f at0006 = ╱22╱"╱ // 0x2276 @0x6
0x2270…227f at0007 = ╱f1╱ : ╱ // 0x2277 @0x7
0x2270…227f at0008 = ╱50╱P╱ // 0x2278 @0x8
0x2270…227f at0009 = ╱5f╱_╱ // 0x2279 @0x9
0x2270…227f at000a = ╱54╱T╱ // 0x227a @0xa
0x2270…227f at000b = ╱58╱X╱ // 0x227b @0xb
0x2270…227f at000c = ╱54╱T╱ // 0x227c @0xc
0x2270…227f at000d = ╱ef╱ $ ╱ // 0x227d @0xd
0x2270…227f at000e = EOL // 0x227e @0xe
0x2270…227f }
0x227f…2286 b874 03530 REPEAT
0x227f…2286 LineComal80 {
0x227f…2286 ptr = 0xb874 // 0x227f @0x0
0x227f…2286 lno = 0x0dca // 0x2281 @0x2
0x227f…2286 at0004 = ╱9700╱ REPEAT ╱ // 0x2283 @0x4
0x227f…2286 at0006 = EOL // 0x2285 @0x6
0x227f…2286 }
0x2286…2298 b886 03540 CURSOR 34 , R_SLIN
0x2286…2298 LineComal80 {
0x2286…2298 ptr = 0xb886 // 0x2286 @0x0
0x2286…2298 lno = 0x0dd4 // 0x2288 @0x2
0x2286…2298 at0004 = ╱a1╱ CURSOR ╱ // 0x228a @0x4
0x2286…2298 at0005 = ╱33╱3╱ // 0x228b @0x5
0x2286…2298 at0006 = ╱34╱4╱ // 0x228c @0x6
0x2286…2298 at0007 = ╱f22200╱ // 0x228d @0x7
0x2286…2298 at000a = ╱ec╱ , ╱ // 0x2290 @0xa
0x2286…2298 at000b = ╱52╱R╱ // 0x2291 @0xb
0x2286…2298 at000c = ╱5f╱_╱ // 0x2292 @0xc
0x2286…2298 at000d = ╱53╱S╱ // 0x2293 @0xd
0x2286…2298 at000e = ╱4c╱L╱ // 0x2294 @0xe
0x2286…2298 at000f = ╱49╱I╱ // 0x2295 @0xf
0x2286…2298 at0010 = ╱4e╱N╱ // 0x2296 @0x10
0x2286…2298 at0011 = EOL // 0x2297 @0x11
0x2286…2298 }
0x2298…22a8 b896 03550 EDIT "" : P_MKOD $
0x2298…22a8 LineComal80 {
0x2298…22a8 ptr = 0xb896 // 0x2298 @0x0
0x2298…22a8 lno = 0x0dde // 0x229a @0x2
0x2298…22a8 at0004 = ╱b1╱ EDIT ╱ // 0x229c @0x4
0x2298…22a8 at0005 = ╱22╱"╱ // 0x229d @0x5
0x2298…22a8 at0006 = ╱22╱"╱ // 0x229e @0x6
0x2298…22a8 at0007 = ╱f1╱ : ╱ // 0x229f @0x7
0x2298…22a8 at0008 = ╱50╱P╱ // 0x22a0 @0x8
0x2298…22a8 at0009 = ╱5f╱_╱ // 0x22a1 @0x9
0x2298…22a8 at000a = ╱4d╱M╱ // 0x22a2 @0xa
0x2298…22a8 at000b = ╱4b╱K╱ // 0x22a3 @0xb
0x2298…22a8 at000c = ╱4f╱O╱ // 0x22a4 @0xc
0x2298…22a8 at000d = ╱44╱D╱ // 0x22a5 @0xd
0x2298…22a8 at000e = ╱ef╱ $ ╱ // 0x22a6 @0xe
0x2298…22a8 at000f = EOL // 0x22a7 @0xf
0x2298…22a8 }
0x22a8…22ba b8a8 03560 EXEC SL_FEJLLINIE
0x22a8…22ba LineComal80 {
0x22a8…22ba ptr = 0xb8a8 // 0x22a8 @0x0
0x22a8…22ba lno = 0x0de8 // 0x22aa @0x2
0x22a8…22ba at0004 = ╱9d╱ EXEC ╱ // 0x22ac @0x4
0x22a8…22ba at0005 = ╱53╱S╱ // 0x22ad @0x5
0x22a8…22ba at0006 = ╱4c╱L╱ // 0x22ae @0x6
0x22a8…22ba at0007 = ╱5f╱_╱ // 0x22af @0x7
0x22a8…22ba at0008 = ╱46╱F╱ // 0x22b0 @0x8
0x22a8…22ba at0009 = ╱45╱E╱ // 0x22b1 @0x9
0x22a8…22ba at000a = ╱4a╱J╱ // 0x22b2 @0xa
0x22a8…22ba at000b = ╱4c╱L╱ // 0x22b3 @0xb
0x22a8…22ba at000c = ╱4c╱L╱ // 0x22b4 @0xc
0x22a8…22ba at000d = ╱49╱I╱ // 0x22b5 @0xd
0x22a8…22ba at000e = ╱4e╱N╱ // 0x22b6 @0xe
0x22a8…22ba at000f = ╱49╱I╱ // 0x22b7 @0xf
0x22a8…22ba at0010 = ╱45╱E╱ // 0x22b8 @0x10
0x22a8…22ba at0011 = EOL // 0x22b9 @0x11
0x22a8…22ba }
0x22ba…22d0 b8be 03570 EXEC ST_BGST ( P_MKOD $ )
0x22ba…22d0 LineComal80 {
0x22ba…22d0 ptr = 0xb8be // 0x22ba @0x0
0x22ba…22d0 lno = 0x0df2 // 0x22bc @0x2
0x22ba…22d0 at0004 = ╱9d╱ EXEC ╱ // 0x22be @0x4
0x22ba…22d0 at0005 = ╱53╱S╱ // 0x22bf @0x5
0x22ba…22d0 at0006 = ╱54╱T╱ // 0x22c0 @0x6
0x22ba…22d0 at0007 = ╱5f╱_╱ // 0x22c1 @0x7
0x22ba…22d0 at0008 = ╱42╱B╱ // 0x22c2 @0x8
0x22ba…22d0 at0009 = ╱47╱G╱ // 0x22c3 @0x9
0x22ba…22d0 at000a = ╱53╱S╱ // 0x22c4 @0xa
0x22ba…22d0 at000b = ╱54╱T╱ // 0x22c5 @0xb
0x22ba…22d0 at000c = ╱ed╱ ( ╱ // 0x22c6 @0xc
0x22ba…22d0 at000d = ╱50╱P╱ // 0x22c7 @0xd
0x22ba…22d0 at000e = ╱5f╱_╱ // 0x22c8 @0xe
0x22ba…22d0 at000f = ╱4d╱M╱ // 0x22c9 @0xf
0x22ba…22d0 at0010 = ╱4b╱K╱ // 0x22ca @0x10
0x22ba…22d0 at0011 = ╱4f╱O╱ // 0x22cb @0x11
0x22ba…22d0 at0012 = ╱44╱D╱ // 0x22cc @0x12
0x22ba…22d0 at0013 = ╱ef╱ $ ╱ // 0x22cd @0x13
0x22ba…22d0 at0014 = ╱ee╱ ) ╱ // 0x22ce @0x14
0x22ba…22d0 at0015 = EOL // 0x22cf @0x15
0x22ba…22d0 }
0x22d0…22e6 b8d4 03580 IF P_MKOD $ IN "IU…" THEN
0x22d0…22e6 LineComal80 {
0x22d0…22e6 ptr = 0xb8d4 // 0x22d0 @0x0
0x22d0…22e6 lno = 0x0dfc // 0x22d2 @0x2
0x22d0…22e6 at0004 = ╱9b00d7╱ IF ╱ // 0x22d4 @0x4
0x22d0…22e6 at0007 = ╱50╱P╱ // 0x22d7 @0x7
0x22d0…22e6 at0008 = ╱5f╱_╱ // 0x22d8 @0x8
0x22d0…22e6 at0009 = ╱4d╱M╱ // 0x22d9 @0x9
0x22d0…22e6 at000a = ╱4b╱K╱ // 0x22da @0xa
0x22d0…22e6 at000b = ╱4f╱O╱ // 0x22db @0xb
0x22d0…22e6 at000c = ╱44╱D╱ // 0x22dc @0xc
0x22d0…22e6 at000d = ╱ef╱ $ ╱ // 0x22dd @0xd
0x22d0…22e6 at000e = ╱dc╱ IN ╱ // 0x22de @0xe
0x22d0…22e6 at000f = ╱22╱"╱ // 0x22df @0xf
0x22d0…22e6 at0010 = ╱49╱I╱ // 0x22e0 @0x10
0x22d0…22e6 at0011 = ╱55╱U╱ // 0x22e1 @0x11
0x22d0…22e6 at0012 = ╱20╱…╱ // 0x22e2 @0x12
0x22d0…22e6 at0013 = ╱22╱"╱ // 0x22e3 @0x13
0x22d0…22e6 at0014 = ╱b5╱ THEN ╱ // 0x22e4 @0x14
0x22d0…22e6 at0015 = EOL // 0x22e5 @0x15
0x22d0…22e6 }
0x22e6…2313 b901 03590 EXEC FEJL ( "Ulovlig…momskode:…'" + P_MKOD $ + "'" )
0x22e6…2313 LineComal80 {
0x22e6…2313 ptr = 0xb901 // 0x22e6 @0x0
0x22e6…2313 lno = 0x0e06 // 0x22e8 @0x2
0x22e6…2313 at0004 = ╱9d╱ EXEC ╱ // 0x22ea @0x4
0x22e6…2313 at0005 = ╱46╱F╱ // 0x22eb @0x5
0x22e6…2313 at0006 = ╱45╱E╱ // 0x22ec @0x6
0x22e6…2313 at0007 = ╱4a╱J╱ // 0x22ed @0x7
0x22e6…2313 at0008 = ╱4c╱L╱ // 0x22ee @0x8
0x22e6…2313 at0009 = ╱ed╱ ( ╱ // 0x22ef @0x9
0x22e6…2313 at000a = ╱22╱"╱ // 0x22f0 @0xa
0x22e6…2313 at000b = ╱55╱U╱ // 0x22f1 @0xb
0x22e6…2313 at000c = ╱6c╱l╱ // 0x22f2 @0xc
0x22e6…2313 at000d = ╱6f╱o╱ // 0x22f3 @0xd
0x22e6…2313 at000e = ╱76╱v╱ // 0x22f4 @0xe
0x22e6…2313 at000f = ╱6c╱l╱ // 0x22f5 @0xf
0x22e6…2313 at0010 = ╱69╱i╱ // 0x22f6 @0x10
0x22e6…2313 at0011 = ╱67╱g╱ // 0x22f7 @0x11
0x22e6…2313 at0012 = ╱20╱…╱ // 0x22f8 @0x12
0x22e6…2313 at0013 = ╱6d╱m╱ // 0x22f9 @0x13
0x22e6…2313 at0014 = ╱6f╱o╱ // 0x22fa @0x14
0x22e6…2313 at0015 = ╱6d╱m╱ // 0x22fb @0x15
0x22e6…2313 at0016 = ╱73╱s╱ // 0x22fc @0x16
0x22e6…2313 at0017 = ╱6b╱k╱ // 0x22fd @0x17
0x22e6…2313 at0018 = ╱6f╱o╱ // 0x22fe @0x18
0x22e6…2313 at0019 = ╱64╱d╱ // 0x22ff @0x19
0x22e6…2313 at001a = ╱65╱e╱ // 0x2300 @0x1a
0x22e6…2313 at001b = ╱3a╱:╱ // 0x2301 @0x1b
0x22e6…2313 at001c = ╱20╱…╱ // 0x2302 @0x1c
0x22e6…2313 at001d = ╱27╱'╱ // 0x2303 @0x1d
0x22e6…2313 at001e = ╱22╱"╱ // 0x2304 @0x1e
0x22e6…2313 at001f = ╱eb╱ + ╱ // 0x2305 @0x1f
0x22e6…2313 at0020 = ╱50╱P╱ // 0x2306 @0x20
0x22e6…2313 at0021 = ╱5f╱_╱ // 0x2307 @0x21
0x22e6…2313 at0022 = ╱4d╱M╱ // 0x2308 @0x22
0x22e6…2313 at0023 = ╱4b╱K╱ // 0x2309 @0x23
0x22e6…2313 at0024 = ╱4f╱O╱ // 0x230a @0x24
0x22e6…2313 at0025 = ╱44╱D╱ // 0x230b @0x25
0x22e6…2313 at0026 = ╱ef╱ $ ╱ // 0x230c @0x26
0x22e6…2313 at0027 = ╱eb╱ + ╱ // 0x230d @0x27
0x22e6…2313 at0028 = ╱22╱"╱ // 0x230e @0x28
0x22e6…2313 at0029 = ╱27╱'╱ // 0x230f @0x29
0x22e6…2313 at002a = ╱22╱"╱ // 0x2310 @0x2a
0x22e6…2313 at002b = ╱ee╱ ) ╱ // 0x2311 @0x2b
0x22e6…2313 at002c = EOL // 0x2312 @0x2c
0x22e6…2313 }
0x2313…2319 b907 03600 ENDIF
0x2313…2319 LineComal80 {
0x2313…2319 ptr = 0xb907 // 0x2313 @0x0
0x2313…2319 lno = 0x0e10 // 0x2315 @0x2
0x2313…2319 at0004 = ╱9c╱ ENDIF ╱ // 0x2317 @0x4
0x2313…2319 at0005 = EOL // 0x2318 @0x5
0x2313…2319 }
0x2319…2321 b90f 03610 UNTIL OK
0x2319…2321 LineComal80 {
0x2319…2321 ptr = 0xb90f // 0x2319 @0x0
0x2319…2321 lno = 0x0e1a // 0x231b @0x2
0x2319…2321 at0004 = ╱98╱ UNTIL ╱ // 0x231d @0x4
0x2319…2321 at0005 = ╱4f╱O╱ // 0x231e @0x5
0x2319…2321 at0006 = ╱4b╱K╱ // 0x231f @0x6
0x2319…2321 at0007 = EOL // 0x2320 @0x7
0x2319…2321 }
0x2321…2328 b916 03540 REPEAT
0x2321…2328 LineComal80 {
0x2321…2328 ptr = 0xb916 // 0x2321 @0x0
0x2321…2328 lno = 0x0dd4 // 0x2323 @0x2
0x2321…2328 at0004 = ╱9741╱ REPEAT ╱ // 0x2325 @0x4
0x2321…2328 at0006 = EOL // 0x2327 @0x6
0x2321…2328 }
0x2328…233a b928 03550 CURSOR 39 , R_SLIN
0x2328…233a LineComal80 {
0x2328…233a ptr = 0xb928 // 0x2328 @0x0
0x2328…233a lno = 0x0dde // 0x232a @0x2
0x2328…233a at0004 = ╱a1╱ CURSOR ╱ // 0x232c @0x4
0x2328…233a at0005 = ╱33╱3╱ // 0x232d @0x5
0x2328…233a at0006 = ╱39╱9╱ // 0x232e @0x6
0x2328…233a at0007 = ╱f22700╱ // 0x232f @0x7
0x2328…233a at000a = ╱ec╱ , ╱ // 0x2332 @0xa
0x2328…233a at000b = ╱52╱R╱ // 0x2333 @0xb
0x2328…233a at000c = ╱5f╱_╱ // 0x2334 @0xc
0x2328…233a at000d = ╱53╱S╱ // 0x2335 @0xd
0x2328…233a at000e = ╱4c╱L╱ // 0x2336 @0xe
0x2328…233a at000f = ╱49╱I╱ // 0x2337 @0xf
0x2328…233a at0010 = ╱4e╱N╱ // 0x2338 @0x10
0x2328…233a at0011 = EOL // 0x2339 @0x11
0x2328…233a }
0x233a…234a b938 03560 EDIT "" : P_BKTO $
0x233a…234a LineComal80 {
0x233a…234a ptr = 0xb938 // 0x233a @0x0
0x233a…234a lno = 0x0de8 // 0x233c @0x2
0x233a…234a at0004 = ╱b1╱ EDIT ╱ // 0x233e @0x4
0x233a…234a at0005 = ╱22╱"╱ // 0x233f @0x5
0x233a…234a at0006 = ╱22╱"╱ // 0x2340 @0x6
0x233a…234a at0007 = ╱f1╱ : ╱ // 0x2341 @0x7
0x233a…234a at0008 = ╱50╱P╱ // 0x2342 @0x8
0x233a…234a at0009 = ╱5f╱_╱ // 0x2343 @0x9
0x233a…234a at000a = ╱42╱B╱ // 0x2344 @0xa
0x233a…234a at000b = ╱4b╱K╱ // 0x2345 @0xb
0x233a…234a at000c = ╱54╱T╱ // 0x2346 @0xc
0x233a…234a at000d = ╱4f╱O╱ // 0x2347 @0xd
0x233a…234a at000e = ╱ef╱ $ ╱ // 0x2348 @0xe
0x233a…234a at000f = EOL // 0x2349 @0xf
0x233a…234a }
0x234a…235c b94a 03570 EXEC SL_FEJLLINIE
0x234a…235c LineComal80 {
0x234a…235c ptr = 0xb94a // 0x234a @0x0
0x234a…235c lno = 0x0df2 // 0x234c @0x2
0x234a…235c at0004 = ╱9d╱ EXEC ╱ // 0x234e @0x4
0x234a…235c at0005 = ╱53╱S╱ // 0x234f @0x5
0x234a…235c at0006 = ╱4c╱L╱ // 0x2350 @0x6
0x234a…235c at0007 = ╱5f╱_╱ // 0x2351 @0x7
0x234a…235c at0008 = ╱46╱F╱ // 0x2352 @0x8
0x234a…235c at0009 = ╱45╱E╱ // 0x2353 @0x9
0x234a…235c at000a = ╱4a╱J╱ // 0x2354 @0xa
0x234a…235c at000b = ╱4c╱L╱ // 0x2355 @0xb
0x234a…235c at000c = ╱4c╱L╱ // 0x2356 @0xc
0x234a…235c at000d = ╱49╱I╱ // 0x2357 @0xd
0x234a…235c at000e = ╱4e╱N╱ // 0x2358 @0xe
0x234a…235c at000f = ╱49╱I╱ // 0x2359 @0xf
0x234a…235c at0010 = ╱45╱E╱ // 0x235a @0x10
0x234a…235c at0011 = EOL // 0x235b @0x11
0x234a…235c }
0x235c…237a b968 03580 LET IDXPOS := FIND_KTO ( P_BKTO $ )
0x235c…237a LineComal80 {
0x235c…237a ptr = 0xb968 // 0x235c @0x0
0x235c…237a lno = 0x0dfc // 0x235e @0x2
0x235c…237a at0004 = ╱86╱ LET ╱ // 0x2360 @0x4
0x235c…237a at0005 = ╱49╱I╱ // 0x2361 @0x5
0x235c…237a at0006 = ╱44╱D╱ // 0x2362 @0x6
0x235c…237a at0007 = ╱58╱X╱ // 0x2363 @0x7
0x235c…237a at0008 = ╱50╱P╱ // 0x2364 @0x8
0x235c…237a at0009 = ╱4f╱O╱ // 0x2365 @0x9
0x235c…237a at000a = ╱53╱S╱ // 0x2366 @0xa
0x235c…237a at000b = ╱f0╱ := ╱ // 0x2367 @0xb
0x235c…237a at000c = ╱46╱F╱ // 0x2368 @0xc
0x235c…237a at000d = ╱49╱I╱ // 0x2369 @0xd
0x235c…237a at000e = ╱4e╱N╱ // 0x236a @0xe
0x235c…237a at000f = ╱44╱D╱ // 0x236b @0xf
0x235c…237a at0010 = ╱5f╱_╱ // 0x236c @0x10
0x235c…237a at0011 = ╱4b╱K╱ // 0x236d @0x11
0x235c…237a at0012 = ╱54╱T╱ // 0x236e @0x12
0x235c…237a at0013 = ╱4f╱O╱ // 0x236f @0x13
0x235c…237a at0014 = ╱ed╱ ( ╱ // 0x2370 @0x14
0x235c…237a at0015 = ╱50╱P╱ // 0x2371 @0x15
0x235c…237a at0016 = ╱5f╱_╱ // 0x2372 @0x16
0x235c…237a at0017 = ╱42╱B╱ // 0x2373 @0x17
0x235c…237a at0018 = ╱4b╱K╱ // 0x2374 @0x18
0x235c…237a at0019 = ╱54╱T╱ // 0x2375 @0x19
0x235c…237a at001a = ╱4f╱O╱ // 0x2376 @0x1a
0x235c…237a at001b = ╱ef╱ $ ╱ // 0x2377 @0x1b
0x235c…237a at001c = ╱ee╱ ) ╱ // 0x2378 @0x1c
0x235c…237a at001d = EOL // 0x2379 @0x1d
0x235c…237a }
0x237a…2384 b972 03590 IF K THEN
0x237a…2384 LineComal80 {
0x237a…2384 ptr = 0xb972 // 0x237a @0x0
0x237a…2384 lno = 0x0e06 // 0x237c @0x2
0x237a…2384 at0004 = ╱9b424f╱ IF ╱ // 0x237e @0x4
0x237a…2384 at0007 = ╱4b╱K╱ // 0x2381 @0x7
0x237a…2384 at0008 = ╱b5╱ THEN ╱ // 0x2382 @0x8
0x237a…2384 at0009 = EOL // 0x2383 @0x9
0x237a…2384 }
0x2384…239a b988 03600 EXEC L[S_KONTO ( RECNR )
0x2384…239a LineComal80 {
0x2384…239a ptr = 0xb988 // 0x2384 @0x0
0x2384…239a lno = 0x0e10 // 0x2386 @0x2
0x2384…239a at0004 = ╱9d╱ EXEC ╱ // 0x2388 @0x4
0x2384…239a at0005 = ╱4c╱L╱ // 0x2389 @0x5
0x2384…239a at0006 = ╱5b╱[╱ // 0x238a @0x6
0x2384…239a at0007 = ╱53╱S╱ // 0x238b @0x7
0x2384…239a at0008 = ╱5f╱_╱ // 0x238c @0x8
0x2384…239a at0009 = ╱4b╱K╱ // 0x238d @0x9
0x2384…239a at000a = ╱4f╱O╱ // 0x238e @0xa
0x2384…239a at000b = ╱4e╱N╱ // 0x238f @0xb
0x2384…239a at000c = ╱54╱T╱ // 0x2390 @0xc
0x2384…239a at000d = ╱4f╱O╱ // 0x2391 @0xd
0x2384…239a at000e = ╱ed╱ ( ╱ // 0x2392 @0xe
0x2384…239a at000f = ╱52╱R╱ // 0x2393 @0xf
0x2384…239a at0010 = ╱45╱E╱ // 0x2394 @0x10
0x2384…239a at0011 = ╱43╱C╱ // 0x2395 @0x11
0x2384…239a at0012 = ╱4e╱N╱ // 0x2396 @0x12
0x2384…239a at0013 = ╱52╱R╱ // 0x2397 @0x13
0x2384…239a at0014 = ╱ee╱ ) ╱ // 0x2398 @0x14
0x2384…239a at0015 = EOL // 0x2399 @0x15
0x2384…239a }
0x239a…23af b99d 03610 IF TO_TYPE $ >< "A" THEN
0x239a…23af LineComal80 {
0x239a…23af ptr = 0xb99d // 0x239a @0x0
0x239a…23af lno = 0x0e1a // 0x239c @0x2
0x239a…23af at0004 = ╱9b434b╱ IF ╱ // 0x239e @0x4
0x239a…23af at0007 = ╱54╱T╱ // 0x23a1 @0x7
0x239a…23af at0008 = ╱4f╱O╱ // 0x23a2 @0x8
0x239a…23af at0009 = ╱5f╱_╱ // 0x23a3 @0x9
0x239a…23af at000a = ╱54╱T╱ // 0x23a4 @0xa
0x239a…23af at000b = ╱59╱Y╱ // 0x23a5 @0xb
0x239a…23af at000c = ╱50╱P╱ // 0x23a6 @0xc
0x239a…23af at000d = ╱45╱E╱ // 0x23a7 @0xd
0x239a…23af at000e = ╱ef╱ $ ╱ // 0x23a8 @0xe
0x239a…23af at000f = ╱e4╱ >< ╱ // 0x23a9 @0xf
0x239a…23af at0010 = ╱22╱"╱ // 0x23aa @0x10
0x239a…23af at0011 = ╱41╱A╱ // 0x23ab @0x11
0x239a…23af at0012 = ╱22╱"╱ // 0x23ac @0x12
0x239a…23af at0013 = ╱b5╱ THEN ╱ // 0x23ad @0x13
0x239a…23af at0014 = EOL // 0x23ae @0x14
0x239a…23af }
0x23af…23e0 b9ce 03620 EXEC FEJL ( "Ulovlig…kontonr…-…kontotype…<…>…'A'" )
0x23af…23e0 LineComal80 {
0x23af…23e0 ptr = 0xb9ce // 0x23af @0x0
0x23af…23e0 lno = 0x0e24 // 0x23b1 @0x2
0x23af…23e0 at0004 = ╱9d╱ EXEC ╱ // 0x23b3 @0x4
0x23af…23e0 at0005 = ╱46╱F╱ // 0x23b4 @0x5
0x23af…23e0 at0006 = ╱45╱E╱ // 0x23b5 @0x6
0x23af…23e0 at0007 = ╱4a╱J╱ // 0x23b6 @0x7
0x23af…23e0 at0008 = ╱4c╱L╱ // 0x23b7 @0x8
0x23af…23e0 at0009 = ╱ed╱ ( ╱ // 0x23b8 @0x9
0x23af…23e0 at000a = ╱22╱"╱ // 0x23b9 @0xa
0x23af…23e0 at000b = ╱55╱U╱ // 0x23ba @0xb
0x23af…23e0 at000c = ╱6c╱l╱ // 0x23bb @0xc
0x23af…23e0 at000d = ╱6f╱o╱ // 0x23bc @0xd
0x23af…23e0 at000e = ╱76╱v╱ // 0x23bd @0xe
0x23af…23e0 at000f = ╱6c╱l╱ // 0x23be @0xf
0x23af…23e0 at0010 = ╱69╱i╱ // 0x23bf @0x10
0x23af…23e0 at0011 = ╱67╱g╱ // 0x23c0 @0x11
0x23af…23e0 at0012 = ╱20╱…╱ // 0x23c1 @0x12
0x23af…23e0 at0013 = ╱6b╱k╱ // 0x23c2 @0x13
0x23af…23e0 at0014 = ╱6f╱o╱ // 0x23c3 @0x14
0x23af…23e0 at0015 = ╱6e╱n╱ // 0x23c4 @0x15
0x23af…23e0 at0016 = ╱74╱t╱ // 0x23c5 @0x16
0x23af…23e0 at0017 = ╱6f╱o╱ // 0x23c6 @0x17
0x23af…23e0 at0018 = ╱6e╱n╱ // 0x23c7 @0x18
0x23af…23e0 at0019 = ╱72╱r╱ // 0x23c8 @0x19
0x23af…23e0 at001a = ╱20╱…╱ // 0x23c9 @0x1a
0x23af…23e0 at001b = ╱2d╱-╱ // 0x23ca @0x1b
0x23af…23e0 at001c = ╱20╱…╱ // 0x23cb @0x1c
0x23af…23e0 at001d = ╱6b╱k╱ // 0x23cc @0x1d
0x23af…23e0 at001e = ╱6f╱o╱ // 0x23cd @0x1e
0x23af…23e0 at001f = ╱6e╱n╱ // 0x23ce @0x1f
0x23af…23e0 at0020 = ╱74╱t╱ // 0x23cf @0x20
0x23af…23e0 at0021 = ╱6f╱o╱ // 0x23d0 @0x21
0x23af…23e0 at0022 = ╱74╱t╱ // 0x23d1 @0x22
0x23af…23e0 at0023 = ╱79╱y╱ // 0x23d2 @0x23
0x23af…23e0 at0024 = ╱70╱p╱ // 0x23d3 @0x24
0x23af…23e0 at0025 = ╱65╱e╱ // 0x23d4 @0x25
0x23af…23e0 at0026 = ╱20╱…╱ // 0x23d5 @0x26
0x23af…23e0 at0027 = ╱3c╱<╱ // 0x23d6 @0x27
0x23af…23e0 at0028 = ╱20╱…╱ // 0x23d7 @0x28
0x23af…23e0 at0029 = ╱3e╱>╱ // 0x23d8 @0x29
0x23af…23e0 at002a = ╱20╱…╱ // 0x23d9 @0x2a
0x23af…23e0 at002b = ╱27╱'╱ // 0x23da @0x2b
0x23af…23e0 at002c = ╱41╱A╱ // 0x23db @0x2c
0x23af…23e0 at002d = ╱27╱'╱ // 0x23dc @0x2d
0x23af…23e0 at002e = ╱22╱"╱ // 0x23dd @0x2e
0x23af…23e0 at002f = ╱ee╱ ) ╱ // 0x23de @0x2f
0x23af…23e0 at0030 = EOL // 0x23df @0x30
0x23af…23e0 }
0x23e0…23e7 ba51 03630 ELSE
0x23e0…23e7 LineComal80 {
0x23e0…23e7 ptr = 0xba51 // 0x23e0 @0x0
0x23e0…23e7 lno = 0x0e2e // 0x23e2 @0x2
0x23e0…23e7 at0004 = ╱9a44╱ ELSE ╱ // 0x23e4 @0x4
0x23e0…23e7 at0006 = EOL // 0x23e6 @0x6
0x23e0…23e7 }
0x23e7…2425 ba13 03720 IF _BKTO $ + "/" IN KASSE_KTO $ + "/" + BANK_KTO $ + "/" + GIRO_KTO $ + "/" THEN
0x23e7…2425 LineComal80 {
0x23e7…2425 ptr = 0xba13 // 0x23e7 @0x0
0x23e7…2425 lno = 0x0e88 // 0x23e9 @0x2
0x23e7…2425 at0004 = ╱9b0050╱ IF ╱ // 0x23eb @0x4
0x23e7…2425 at0007 = ╱5f╱_╱ // 0x23ee @0x7
0x23e7…2425 at0008 = ╱42╱B╱ // 0x23ef @0x8
0x23e7…2425 at0009 = ╱4b╱K╱ // 0x23f0 @0x9
0x23e7…2425 at000a = ╱54╱T╱ // 0x23f1 @0xa
0x23e7…2425 at000b = ╱4f╱O╱ // 0x23f2 @0xb
0x23e7…2425 at000c = ╱ef╱ $ ╱ // 0x23f3 @0xc
0x23e7…2425 at000d = ╱eb╱ + ╱ // 0x23f4 @0xd
0x23e7…2425 at000e = ╱22╱"╱ // 0x23f5 @0xe
0x23e7…2425 at000f = ╱2f╱/╱ // 0x23f6 @0xf
0x23e7…2425 at0010 = ╱22╱"╱ // 0x23f7 @0x10
0x23e7…2425 at0011 = ╱dc╱ IN ╱ // 0x23f8 @0x11
0x23e7…2425 at0012 = ╱4b╱K╱ // 0x23f9 @0x12
0x23e7…2425 at0013 = ╱41╱A╱ // 0x23fa @0x13
0x23e7…2425 at0014 = ╱53╱S╱ // 0x23fb @0x14
0x23e7…2425 at0015 = ╱53╱S╱ // 0x23fc @0x15
0x23e7…2425 at0016 = ╱45╱E╱ // 0x23fd @0x16
0x23e7…2425 at0017 = ╱5f╱_╱ // 0x23fe @0x17
0x23e7…2425 at0018 = ╱4b╱K╱ // 0x23ff @0x18
0x23e7…2425 at0019 = ╱54╱T╱ // 0x2400 @0x19
0x23e7…2425 at001a = ╱4f╱O╱ // 0x2401 @0x1a
0x23e7…2425 at001b = ╱ef╱ $ ╱ // 0x2402 @0x1b
0x23e7…2425 at001c = ╱eb╱ + ╱ // 0x2403 @0x1c
0x23e7…2425 at001d = ╱22╱"╱ // 0x2404 @0x1d
0x23e7…2425 at001e = ╱2f╱/╱ // 0x2405 @0x1e
0x23e7…2425 at001f = ╱22╱"╱ // 0x2406 @0x1f
0x23e7…2425 at0020 = ╱eb╱ + ╱ // 0x2407 @0x20
0x23e7…2425 at0021 = ╱42╱B╱ // 0x2408 @0x21
0x23e7…2425 at0022 = ╱41╱A╱ // 0x2409 @0x22
0x23e7…2425 at0023 = ╱4e╱N╱ // 0x240a @0x23
0x23e7…2425 at0024 = ╱4b╱K╱ // 0x240b @0x24
0x23e7…2425 at0025 = ╱5f╱_╱ // 0x240c @0x25
0x23e7…2425 at0026 = ╱4b╱K╱ // 0x240d @0x26
0x23e7…2425 at0027 = ╱54╱T╱ // 0x240e @0x27
0x23e7…2425 at0028 = ╱4f╱O╱ // 0x240f @0x28
0x23e7…2425 at0029 = ╱ef╱ $ ╱ // 0x2410 @0x29
0x23e7…2425 at002a = ╱eb╱ + ╱ // 0x2411 @0x2a
0x23e7…2425 at002b = ╱22╱"╱ // 0x2412 @0x2b
0x23e7…2425 at002c = ╱2f╱/╱ // 0x2413 @0x2c
0x23e7…2425 at002d = ╱22╱"╱ // 0x2414 @0x2d
0x23e7…2425 at002e = ╱eb╱ + ╱ // 0x2415 @0x2e
0x23e7…2425 at002f = ╱47╱G╱ // 0x2416 @0x2f
0x23e7…2425 at0030 = ╱49╱I╱ // 0x2417 @0x30
0x23e7…2425 at0031 = ╱52╱R╱ // 0x2418 @0x31
0x23e7…2425 at0032 = ╱4f╱O╱ // 0x2419 @0x32
0x23e7…2425 at0033 = ╱5f╱_╱ // 0x241a @0x33
0x23e7…2425 at0034 = ╱4b╱K╱ // 0x241b @0x34
0x23e7…2425 at0035 = ╱54╱T╱ // 0x241c @0x35
0x23e7…2425 at0036 = ╱4f╱O╱ // 0x241d @0x36
0x23e7…2425 at0037 = ╱ef╱ $ ╱ // 0x241e @0x37
0x23e7…2425 at0038 = ╱eb╱ + ╱ // 0x241f @0x38
0x23e7…2425 at0039 = ╱22╱"╱ // 0x2420 @0x39
0x23e7…2425 at003a = ╱2f╱/╱ // 0x2421 @0x3a
0x23e7…2425 at003b = ╱22╱"╱ // 0x2422 @0x3b
0x23e7…2425 at003c = ╱b5╱ THEN ╱ // 0x2423 @0x3c
0x23e7…2425 at003d = EOL // 0x2424 @0x3d
0x23e7…2425 }
0x2425…245c ba4a 03730 EXEC FEJL ( "Ulovlig…kontonr…-…konto…=…kasse/bank/giro" )
0x2425…245c LineComal80 {
0x2425…245c ptr = 0xba4a // 0x2425 @0x0
0x2425…245c lno = 0x0e92 // 0x2427 @0x2
0x2425…245c at0004 = ╱9d╱ EXEC ╱ // 0x2429 @0x4
0x2425…245c at0005 = ╱46╱F╱ // 0x242a @0x5
0x2425…245c at0006 = ╱45╱E╱ // 0x242b @0x6
0x2425…245c at0007 = ╱4a╱J╱ // 0x242c @0x7
0x2425…245c at0008 = ╱4c╱L╱ // 0x242d @0x8
0x2425…245c at0009 = ╱ed╱ ( ╱ // 0x242e @0x9
0x2425…245c at000a = ╱22╱"╱ // 0x242f @0xa
0x2425…245c at000b = ╱55╱U╱ // 0x2430 @0xb
0x2425…245c at000c = ╱6c╱l╱ // 0x2431 @0xc
0x2425…245c at000d = ╱6f╱o╱ // 0x2432 @0xd
0x2425…245c at000e = ╱76╱v╱ // 0x2433 @0xe
0x2425…245c at000f = ╱6c╱l╱ // 0x2434 @0xf
0x2425…245c at0010 = ╱69╱i╱ // 0x2435 @0x10
0x2425…245c at0011 = ╱67╱g╱ // 0x2436 @0x11
0x2425…245c at0012 = ╱20╱…╱ // 0x2437 @0x12
0x2425…245c at0013 = ╱6b╱k╱ // 0x2438 @0x13
0x2425…245c at0014 = ╱6f╱o╱ // 0x2439 @0x14
0x2425…245c at0015 = ╱6e╱n╱ // 0x243a @0x15
0x2425…245c at0016 = ╱74╱t╱ // 0x243b @0x16
0x2425…245c at0017 = ╱6f╱o╱ // 0x243c @0x17
0x2425…245c at0018 = ╱6e╱n╱ // 0x243d @0x18
0x2425…245c at0019 = ╱72╱r╱ // 0x243e @0x19
0x2425…245c at001a = ╱20╱…╱ // 0x243f @0x1a
0x2425…245c at001b = ╱2d╱-╱ // 0x2440 @0x1b
0x2425…245c at001c = ╱20╱…╱ // 0x2441 @0x1c
0x2425…245c at001d = ╱6b╱k╱ // 0x2442 @0x1d
0x2425…245c at001e = ╱6f╱o╱ // 0x2443 @0x1e
0x2425…245c at001f = ╱6e╱n╱ // 0x2444 @0x1f
0x2425…245c at0020 = ╱74╱t╱ // 0x2445 @0x20
0x2425…245c at0021 = ╱6f╱o╱ // 0x2446 @0x21
0x2425…245c at0022 = ╱20╱…╱ // 0x2447 @0x22
0x2425…245c at0023 = ╱3d╱=╱ // 0x2448 @0x23
0x2425…245c at0024 = ╱20╱…╱ // 0x2449 @0x24
0x2425…245c at0025 = ╱6b╱k╱ // 0x244a @0x25
0x2425…245c at0026 = ╱61╱a╱ // 0x244b @0x26
0x2425…245c at0027 = ╱73╱s╱ // 0x244c @0x27
0x2425…245c at0028 = ╱73╱s╱ // 0x244d @0x28
0x2425…245c at0029 = ╱65╱e╱ // 0x244e @0x29
0x2425…245c at002a = ╱2f╱/╱ // 0x244f @0x2a
0x2425…245c at002b = ╱62╱b╱ // 0x2450 @0x2b
0x2425…245c at002c = ╱61╱a╱ // 0x2451 @0x2c
0x2425…245c at002d = ╱6e╱n╱ // 0x2452 @0x2d
0x2425…245c at002e = ╱6b╱k╱ // 0x2453 @0x2e
0x2425…245c at002f = ╱2f╱/╱ // 0x2454 @0x2f
0x2425…245c at0030 = ╱67╱g╱ // 0x2455 @0x30
0x2425…245c at0031 = ╱69╱i╱ // 0x2456 @0x31
0x2425…245c at0032 = ╱72╱r╱ // 0x2457 @0x32
0x2425…245c at0033 = ╱6f╱o╱ // 0x2458 @0x33
0x2425…245c at0034 = ╱22╱"╱ // 0x2459 @0x34
0x2425…245c at0035 = ╱ee╱ ) ╱ // 0x245a @0x35
0x2425…245c at0036 = EOL // 0x245b @0x36
0x2425…245c }
0x245c…2463 ba51 03740 ELSE
0x245c…2463 LineComal80 {
0x245c…2463 ptr = 0xba51 // 0x245c @0x0
0x245c…2463 lno = 0x0e9c // 0x245e @0x2
0x245c…2463 at0004 = ╱9a00╱ ELSE ╱ // 0x2460 @0x4
0x245c…2463 at0006 = EOL // 0x2462 @0x6
0x245c…2463 }
0x2463…24a1 ba95 03640 PRINT "<C0102>" ; TAB ( 35 - ╱cb╱ ( KTO_NAVN $ ) / 2 ) ; "Konto:…" ; KTO_NAVN $
0x2463…24a1 LineComal80 {
0x2463…24a1 ptr = 0xba95 // 0x2463 @0x0
0x2463…24a1 lno = 0x0e38 // 0x2465 @0x2
0x2463…24a1 at0004 = ╱92╱ PRINT ╱ // 0x2467 @0x4
0x2463…24a1 at0005 = ╱22╱"╱ // 0x2468 @0x5
0x2463…24a1 at0006 = ╱3c╱<╱ // 0x2469 @0x6
0x2463…24a1 at0007 = ╱43╱C╱ // 0x246a @0x7
0x2463…24a1 at0008 = ╱30╱0╱ // 0x246b @0x8
0x2463…24a1 at0009 = ╱31╱1╱ // 0x246c @0x9
0x2463…24a1 at000a = ╱30╱0╱ // 0x246d @0xa
0x2463…24a1 at000b = ╱32╱2╱ // 0x246e @0xb
0x2463…24a1 at000c = ╱3e╱>╱ // 0x246f @0xc
0x2463…24a1 at000d = ╱22╱"╱ // 0x2470 @0xd
0x2463…24a1 at000e = ╱ea╱ ; ╱ // 0x2471 @0xe
0x2463…24a1 at000f = ╱d2╱ TAB ╱ // 0x2472 @0xf
0x2463…24a1 at0010 = ╱ed╱ ( ╱ // 0x2473 @0x10
0x2463…24a1 at0011 = ╱33╱3╱ // 0x2474 @0x11
0x2463…24a1 at0012 = ╱35╱5╱ // 0x2475 @0x12
0x2463…24a1 at0013 = ╱f22300╱ // 0x2476 @0x13
0x2463…24a1 at0016 = ╱e6╱ - ╱ // 0x2479 @0x16
0x2463…24a1 at0017 = ╱cb╱ // 0x247a @0x17
0x2463…24a1 at0018 = ╱ed╱ ( ╱ // 0x247b @0x18
0x2463…24a1 at0019 = ╱4b╱K╱ // 0x247c @0x19
0x2463…24a1 at001a = ╱54╱T╱ // 0x247d @0x1a
0x2463…24a1 at001b = ╱4f╱O╱ // 0x247e @0x1b
0x2463…24a1 at001c = ╱5f╱_╱ // 0x247f @0x1c
0x2463…24a1 at001d = ╱4e╱N╱ // 0x2480 @0x1d
0x2463…24a1 at001e = ╱41╱A╱ // 0x2481 @0x1e
0x2463…24a1 at001f = ╱56╱V╱ // 0x2482 @0x1f
0x2463…24a1 at0020 = ╱4e╱N╱ // 0x2483 @0x20
0x2463…24a1 at0021 = ╱ef╱ $ ╱ // 0x2484 @0x21
0x2463…24a1 at0022 = ╱ee╱ ) ╱ // 0x2485 @0x22
0x2463…24a1 at0023 = ╱e8╱ / ╱ // 0x2486 @0x23
0x2463…24a1 at0024 = ╱32╱2╱ // 0x2487 @0x24
0x2463…24a1 at0025 = ╱f20200╱ // 0x2488 @0x25
0x2463…24a1 at0028 = ╱ee╱ ) ╱ // 0x248b @0x28
0x2463…24a1 at0029 = ╱ea╱ ; ╱ // 0x248c @0x29
0x2463…24a1 at002a = ╱22╱"╱ // 0x248d @0x2a
0x2463…24a1 at002b = ╱4b╱K╱ // 0x248e @0x2b
0x2463…24a1 at002c = ╱6f╱o╱ // 0x248f @0x2c
0x2463…24a1 at002d = ╱6e╱n╱ // 0x2490 @0x2d
0x2463…24a1 at002e = ╱74╱t╱ // 0x2491 @0x2e
0x2463…24a1 at002f = ╱6f╱o╱ // 0x2492 @0x2f
0x2463…24a1 at0030 = ╱3a╱:╱ // 0x2493 @0x30
0x2463…24a1 at0031 = ╱20╱…╱ // 0x2494 @0x31
0x2463…24a1 at0032 = ╱22╱"╱ // 0x2495 @0x32
0x2463…24a1 at0033 = ╱ea╱ ; ╱ // 0x2496 @0x33
0x2463…24a1 at0034 = ╱4b╱K╱ // 0x2497 @0x34
0x2463…24a1 at0035 = ╱54╱T╱ // 0x2498 @0x35
0x2463…24a1 at0036 = ╱4f╱O╱ // 0x2499 @0x36
0x2463…24a1 at0037 = ╱5f╱_╱ // 0x249a @0x37
0x2463…24a1 at0038 = ╱4e╱N╱ // 0x249b @0x38
0x2463…24a1 at0039 = ╱41╱A╱ // 0x249c @0x39
0x2463…24a1 at003a = ╱56╱V╱ // 0x249d @0x3a
0x2463…24a1 at003b = ╱4e╱N╱ // 0x249e @0x3b
0x2463…24a1 at003c = ╱ef╱ $ ╱ // 0x249f @0x3c
0x2463…24a1 at003d = EOL // 0x24a0 @0x3d
0x2463…24a1 }
0x24a1…24a7 ba95 03760 ENDIF
0x24a1…24a7 LineComal80 {
0x24a1…24a7 ptr = 0xba95 // 0x24a1 @0x0
0x24a1…24a7 lno = 0x0eb0 // 0x24a3 @0x2
0x24a1…24a7 at0004 = ╱9c╱ ENDIF ╱ // 0x24a5 @0x4
0x24a1…24a7 at0005 = EOL // 0x24a6 @0x5
0x24a1…24a7 }
0x24a7…24ad ba9b 03650 ENDIF
0x24a7…24ad LineComal80 {
0x24a7…24ad ptr = 0xba9b // 0x24a7 @0x0
0x24a7…24ad lno = 0x0e42 // 0x24a9 @0x2
0x24a7…24ad at0004 = ╱9c╱ ENDIF ╱ // 0x24ab @0x4
0x24a7…24ad at0005 = EOL // 0x24ac @0x5
0x24a7…24ad }
0x24ad…24b4 baa2 03660 ELSE
0x24ad…24b4 LineComal80 {
0x24ad…24b4 ptr = 0xbaa2 // 0x24ad @0x0
0x24ad…24b4 lno = 0x0e4c // 0x24af @0x2
0x24ad…24b4 at0004 = ╱9a45╱ ELSE ╱ // 0x24b1 @0x4
0x24ad…24b4 at0006 = EOL // 0x24b3 @0x6
0x24ad…24b4 }
0x24b4…24e5 bad3 03670 EXEC FEJL ( "Ulovlig…kontonr…-…konto…findes…ikke" )
0x24b4…24e5 LineComal80 {
0x24b4…24e5 ptr = 0xbad3 // 0x24b4 @0x0
0x24b4…24e5 lno = 0x0e56 // 0x24b6 @0x2
0x24b4…24e5 at0004 = ╱9d╱ EXEC ╱ // 0x24b8 @0x4
0x24b4…24e5 at0005 = ╱46╱F╱ // 0x24b9 @0x5
0x24b4…24e5 at0006 = ╱45╱E╱ // 0x24ba @0x6
0x24b4…24e5 at0007 = ╱4a╱J╱ // 0x24bb @0x7
0x24b4…24e5 at0008 = ╱4c╱L╱ // 0x24bc @0x8
0x24b4…24e5 at0009 = ╱ed╱ ( ╱ // 0x24bd @0x9
0x24b4…24e5 at000a = ╱22╱"╱ // 0x24be @0xa
0x24b4…24e5 at000b = ╱55╱U╱ // 0x24bf @0xb
0x24b4…24e5 at000c = ╱6c╱l╱ // 0x24c0 @0xc
0x24b4…24e5 at000d = ╱6f╱o╱ // 0x24c1 @0xd
0x24b4…24e5 at000e = ╱76╱v╱ // 0x24c2 @0xe
0x24b4…24e5 at000f = ╱6c╱l╱ // 0x24c3 @0xf
0x24b4…24e5 at0010 = ╱69╱i╱ // 0x24c4 @0x10
0x24b4…24e5 at0011 = ╱67╱g╱ // 0x24c5 @0x11
0x24b4…24e5 at0012 = ╱20╱…╱ // 0x24c6 @0x12
0x24b4…24e5 at0013 = ╱6b╱k╱ // 0x24c7 @0x13
0x24b4…24e5 at0014 = ╱6f╱o╱ // 0x24c8 @0x14
0x24b4…24e5 at0015 = ╱6e╱n╱ // 0x24c9 @0x15
0x24b4…24e5 at0016 = ╱74╱t╱ // 0x24ca @0x16
0x24b4…24e5 at0017 = ╱6f╱o╱ // 0x24cb @0x17
0x24b4…24e5 at0018 = ╱6e╱n╱ // 0x24cc @0x18
0x24b4…24e5 at0019 = ╱72╱r╱ // 0x24cd @0x19
0x24b4…24e5 at001a = ╱20╱…╱ // 0x24ce @0x1a
0x24b4…24e5 at001b = ╱2d╱-╱ // 0x24cf @0x1b
0x24b4…24e5 at001c = ╱20╱…╱ // 0x24d0 @0x1c
0x24b4…24e5 at001d = ╱6b╱k╱ // 0x24d1 @0x1d
0x24b4…24e5 at001e = ╱6f╱o╱ // 0x24d2 @0x1e
0x24b4…24e5 at001f = ╱6e╱n╱ // 0x24d3 @0x1f
0x24b4…24e5 at0020 = ╱74╱t╱ // 0x24d4 @0x20
0x24b4…24e5 at0021 = ╱6f╱o╱ // 0x24d5 @0x21
0x24b4…24e5 at0022 = ╱20╱…╱ // 0x24d6 @0x22
0x24b4…24e5 at0023 = ╱66╱f╱ // 0x24d7 @0x23
0x24b4…24e5 at0024 = ╱69╱i╱ // 0x24d8 @0x24
0x24b4…24e5 at0025 = ╱6e╱n╱ // 0x24d9 @0x25
0x24b4…24e5 at0026 = ╱64╱d╱ // 0x24da @0x26
0x24b4…24e5 at0027 = ╱65╱e╱ // 0x24db @0x27
0x24b4…24e5 at0028 = ╱73╱s╱ // 0x24dc @0x28
0x24b4…24e5 at0029 = ╱20╱…╱ // 0x24dd @0x29
0x24b4…24e5 at002a = ╱69╱i╱ // 0x24de @0x2a
0x24b4…24e5 at002b = ╱6b╱k╱ // 0x24df @0x2b
0x24b4…24e5 at002c = ╱6b╱k╱ // 0x24e0 @0x2c
0x24b4…24e5 at002d = ╱65╱e╱ // 0x24e1 @0x2d
0x24b4…24e5 at002e = ╱22╱"╱ // 0x24e2 @0x2e
0x24b4…24e5 at002f = ╱ee╱ ) ╱ // 0x24e3 @0x2f
0x24b4…24e5 at0030 = EOL // 0x24e4 @0x30
0x24b4…24e5 }
0x24e5…24eb bad9 03680 ENDIF
0x24e5…24eb LineComal80 {
0x24e5…24eb ptr = 0xbad9 // 0x24e5 @0x0
0x24e5…24eb lno = 0x0e60 // 0x24e7 @0x2
0x24e5…24eb at0004 = ╱9c╱ ENDIF ╱ // 0x24e9 @0x4
0x24e5…24eb at0005 = EOL // 0x24ea @0x5
0x24e5…24eb }
0x24eb…24f3 bae1 03690 UNTIL OK
0x24eb…24f3 LineComal80 {
0x24eb…24f3 ptr = 0xbae1 // 0x24eb @0x0
0x24eb…24f3 lno = 0x0e6a // 0x24ed @0x2
0x24eb…24f3 at0004 = ╱98╱ UNTIL ╱ // 0x24ef @0x4
0x24eb…24f3 at0005 = ╱4f╱O╱ // 0x24f0 @0x5
0x24eb…24f3 at0006 = ╱4b╱K╱ // 0x24f1 @0x6
0x24eb…24f3 at0007 = EOL // 0x24f2 @0x7
0x24eb…24f3 }
0x24f3…24fa bae8 03700 REPEAT
0x24f3…24fa LineComal80 {
0x24f3…24fa ptr = 0xbae8 // 0x24f3 @0x0
0x24f3…24fa lno = 0x0e74 // 0x24f5 @0x2
0x24f3…24fa at0004 = ╱9746╱ REPEAT ╱ // 0x24f7 @0x4
0x24f3…24fa at0006 = EOL // 0x24f9 @0x6
0x24f3…24fa }
0x24fa…2518 d796 03710 LET SVAR $ := CHR$ ( P_BKR , 7 , 2 )
0x24fa…2518 LineComal80 {
0x24fa…2518 ptr = 0xd796 // 0x24fa @0x0
0x24fa…2518 lno = 0x0e7e // 0x24fc @0x2
0x24fa…2518 at0004 = ╱86╱ LET ╱ // 0x24fe @0x4
0x24fa…2518 at0005 = ╱53╱S╱ // 0x24ff @0x5
0x24fa…2518 at0006 = ╱56╱V╱ // 0x2500 @0x6
0x24fa…2518 at0007 = ╱41╱A╱ // 0x2501 @0x7
0x24fa…2518 at0008 = ╱52╱R╱ // 0x2502 @0x8
0x24fa…2518 at0009 = ╱ef╱ $ ╱ // 0x2503 @0x9
0x24fa…2518 at000a = ╱f0╱ := ╱ // 0x2504 @0xa
0x24fa…2518 at000b = ╱d0╱ CHR$ ╱ // 0x2505 @0xb
0x24fa…2518 at000c = ╱ed╱ ( ╱ // 0x2506 @0xc
0x24fa…2518 at000d = ╱50╱P╱ // 0x2507 @0xd
0x24fa…2518 at000e = ╱5f╱_╱ // 0x2508 @0xe
0x24fa…2518 at000f = ╱42╱B╱ // 0x2509 @0xf
0x24fa…2518 at0010 = ╱4b╱K╱ // 0x250a @0x10
0x24fa…2518 at0011 = ╱52╱R╱ // 0x250b @0x11
0x24fa…2518 at0012 = ╱ec╱ , ╱ // 0x250c @0x12
0x24fa…2518 at0013 = ╱37╱7╱ // 0x250d @0x13
0x24fa…2518 at0014 = ╱f20700╱ // 0x250e @0x14
0x24fa…2518 at0017 = ╱ec╱ , ╱ // 0x2511 @0x17
0x24fa…2518 at0018 = ╱32╱2╱ // 0x2512 @0x18
0x24fa…2518 at0019 = ╱f20200╱ // 0x2513 @0x19
0x24fa…2518 at001c = ╱ee╱ ) ╱ // 0x2516 @0x1c
0x24fa…2518 at001d = EOL // 0x2517 @0x1d
0x24fa…2518 }
0x2518…2533 bb21 03720 IF P_BKR = 0 THEN LET SVAR $ := ""
0x2518…2533 LineComal80 {
0x2518…2533 ptr = 0xbb21 // 0x2518 @0x0
0x2518…2533 lno = 0x0e88 // 0x251a @0x2
0x2518…2533 at0004 = ╱8200╱ IF ╱ // 0x251c @0x4
0x2518…2533 at0006 = ╱50╱P╱ // 0x251e @0x6
0x2518…2533 at0007 = ╱5f╱_╱ // 0x251f @0x7
0x2518…2533 at0008 = ╱42╱B╱ // 0x2520 @0x8
0x2518…2533 at0009 = ╱4b╱K╱ // 0x2521 @0x9
0x2518…2533 at000a = ╱52╱R╱ // 0x2522 @0xa
0x2518…2533 at000b = ╱df╱ = ╱ // 0x2523 @0xb
0x2518…2533 at000c = ╱30╱0╱ // 0x2524 @0xc
0x2518…2533 at000d = ╱f20000╱ // 0x2525 @0xd
0x2518…2533 at0010 = ╱b5╱ THEN ╱ // 0x2528 @0x10
0x2518…2533 at0011 = ╱86╱ LET ╱ // 0x2529 @0x11
0x2518…2533 at0012 = ╱53╱S╱ // 0x252a @0x12
0x2518…2533 at0013 = ╱56╱V╱ // 0x252b @0x13
0x2518…2533 at0014 = ╱41╱A╱ // 0x252c @0x14
0x2518…2533 at0015 = ╱52╱R╱ // 0x252d @0x15
0x2518…2533 at0016 = ╱ef╱ $ ╱ // 0x252e @0x16
0x2518…2533 at0017 = ╱f0╱ := ╱ // 0x252f @0x17
0x2518…2533 at0018 = ╱22╱"╱ // 0x2530 @0x18
0x2518…2533 at0019 = ╱22╱"╱ // 0x2531 @0x19
0x2518…2533 at001a = EOL // 0x2532 @0x1a
0x2518…2533 }
0x2533…2546 bb34 03730 IF _DK = KREDIT THEN
0x2533…2546 LineComal80 {
0x2533…2546 ptr = 0xbb34 // 0x2533 @0x0
0x2533…2546 lno = 0x0e92 // 0x2535 @0x2
0x2533…2546 at0004 = ╱9b4750╱ IF ╱ // 0x2537 @0x4
0x2533…2546 at0007 = ╱5f╱_╱ // 0x253a @0x7
0x2533…2546 at0008 = ╱44╱D╱ // 0x253b @0x8
0x2533…2546 at0009 = ╱4b╱K╱ // 0x253c @0x9
0x2533…2546 at000a = ╱df╱ = ╱ // 0x253d @0xa
0x2533…2546 at000b = ╱4b╱K╱ // 0x253e @0xb
0x2533…2546 at000c = ╱52╱R╱ // 0x253f @0xc
0x2533…2546 at000d = ╱45╱E╱ // 0x2540 @0xd
0x2533…2546 at000e = ╱44╱D╱ // 0x2541 @0xe
0x2533…2546 at000f = ╱49╱I╱ // 0x2542 @0xf
0x2533…2546 at0010 = ╱54╱T╱ // 0x2543 @0x10
0x2533…2546 at0011 = ╱b5╱ THEN ╱ // 0x2544 @0x11
0x2533…2546 at0012 = EOL // 0x2545 @0x12
0x2533…2546 }
0x2546…2558 bb46 03740 CURSOR 61 , R_SLIN
0x2546…2558 LineComal80 {
0x2546…2558 ptr = 0xbb46 // 0x2546 @0x0
0x2546…2558 lno = 0x0e9c // 0x2548 @0x2
0x2546…2558 at0004 = ╱a1╱ CURSOR ╱ // 0x254a @0x4
0x2546…2558 at0005 = ╱36╱6╱ // 0x254b @0x5
0x2546…2558 at0006 = ╱31╱1╱ // 0x254c @0x6
0x2546…2558 at0007 = ╱f23d00╱ // 0x254d @0x7
0x2546…2558 at000a = ╱ec╱ , ╱ // 0x2550 @0xa
0x2546…2558 at000b = ╱52╱R╱ // 0x2551 @0xb
0x2546…2558 at000c = ╱5f╱_╱ // 0x2552 @0xc
0x2546…2558 at000d = ╱53╱S╱ // 0x2553 @0xd
0x2546…2558 at000e = ╱4c╱L╱ // 0x2554 @0xe
0x2546…2558 at000f = ╱49╱I╱ // 0x2555 @0xf
0x2546…2558 at0010 = ╱4e╱N╱ // 0x2556 @0x10
0x2546…2558 at0011 = EOL // 0x2557 @0x11
0x2546…2558 }
0x2558…2566 bb54 03750 EDIT "" : SVAR $
0x2558…2566 LineComal80 {
0x2558…2566 ptr = 0xbb54 // 0x2558 @0x0
0x2558…2566 lno = 0x0ea6 // 0x255a @0x2
0x2558…2566 at0004 = ╱b1╱ EDIT ╱ // 0x255c @0x4
0x2558…2566 at0005 = ╱22╱"╱ // 0x255d @0x5
0x2558…2566 at0006 = ╱22╱"╱ // 0x255e @0x6
0x2558…2566 at0007 = ╱f1╱ : ╱ // 0x255f @0x7
0x2558…2566 at0008 = ╱53╱S╱ // 0x2560 @0x8
0x2558…2566 at0009 = ╱56╱V╱ // 0x2561 @0x9
0x2558…2566 at000a = ╱41╱A╱ // 0x2562 @0xa
0x2558…2566 at000b = ╱52╱R╱ // 0x2563 @0xb
0x2558…2566 at000c = ╱ef╱ $ ╱ // 0x2564 @0xc
0x2558…2566 at000d = EOL // 0x2565 @0xd
0x2558…2566 }
0x2566…2578 bb66 03760 EXEC SL_FEJLLINIE
0x2566…2578 LineComal80 {
0x2566…2578 ptr = 0xbb66 // 0x2566 @0x0
0x2566…2578 lno = 0x0eb0 // 0x2568 @0x2
0x2566…2578 at0004 = ╱9d╱ EXEC ╱ // 0x256a @0x4
0x2566…2578 at0005 = ╱53╱S╱ // 0x256b @0x5
0x2566…2578 at0006 = ╱4c╱L╱ // 0x256c @0x6
0x2566…2578 at0007 = ╱5f╱_╱ // 0x256d @0x7
0x2566…2578 at0008 = ╱46╱F╱ // 0x256e @0x8
0x2566…2578 at0009 = ╱45╱E╱ // 0x256f @0x9
0x2566…2578 at000a = ╱4a╱J╱ // 0x2570 @0xa
0x2566…2578 at000b = ╱4c╱L╱ // 0x2571 @0xb
0x2566…2578 at000c = ╱4c╱L╱ // 0x2572 @0xc
0x2566…2578 at000d = ╱49╱I╱ // 0x2573 @0xd
0x2566…2578 at000e = ╱4e╱N╱ // 0x2574 @0xe
0x2566…2578 at000f = ╱49╱I╱ // 0x2575 @0xf
0x2566…2578 at0010 = ╱45╱E╱ // 0x2576 @0x10
0x2566…2578 at0011 = EOL // 0x2577 @0x11
0x2566…2578 }
0x2578…2590 bb7e 03770 EXEC TAL_CONTROL ( SVAR $ )
0x2578…2590 LineComal80 {
0x2578…2590 ptr = 0xbb7e // 0x2578 @0x0
0x2578…2590 lno = 0x0eba // 0x257a @0x2
0x2578…2590 at0004 = ╱9d╱ EXEC ╱ // 0x257c @0x4
0x2578…2590 at0005 = ╱54╱T╱ // 0x257d @0x5
0x2578…2590 at0006 = ╱41╱A╱ // 0x257e @0x6
0x2578…2590 at0007 = ╱4c╱L╱ // 0x257f @0x7
0x2578…2590 at0008 = ╱5f╱_╱ // 0x2580 @0x8
0x2578…2590 at0009 = ╱43╱C╱ // 0x2581 @0x9
0x2578…2590 at000a = ╱4f╱O╱ // 0x2582 @0xa
0x2578…2590 at000b = ╱4e╱N╱ // 0x2583 @0xb
0x2578…2590 at000c = ╱54╱T╱ // 0x2584 @0xc
0x2578…2590 at000d = ╱52╱R╱ // 0x2585 @0xd
0x2578…2590 at000e = ╱4f╱O╱ // 0x2586 @0xe
0x2578…2590 at000f = ╱4c╱L╱ // 0x2587 @0xf
0x2578…2590 at0010 = ╱ed╱ ( ╱ // 0x2588 @0x10
0x2578…2590 at0011 = ╱53╱S╱ // 0x2589 @0x11
0x2578…2590 at0012 = ╱56╱V╱ // 0x258a @0x12
0x2578…2590 at0013 = ╱41╱A╱ // 0x258b @0x13
0x2578…2590 at0014 = ╱52╱R╱ // 0x258c @0x14
0x2578…2590 at0015 = ╱ef╱ $ ╱ // 0x258d @0x15
0x2578…2590 at0016 = ╱ee╱ ) ╱ // 0x258e @0x16
0x2578…2590 at0017 = EOL // 0x258f @0x17
0x2578…2590 }
0x2590…25b2 bba0 03780 IF NOT "." IN SVAR $ THEN LET SVAR $ := SVAR $ + "."
0x2590…25b2 LineComal80 {
0x2590…25b2 ptr = 0xbba0 // 0x2590 @0x0
0x2590…25b2 lno = 0x0ec4 // 0x2592 @0x2
0x2590…25b2 at0004 = ╱8200╱ IF ╱ // 0x2594 @0x4
0x2590…25b2 at0006 = ╱d7╱ NOT ╱ // 0x2596 @0x6
0x2590…25b2 at0007 = ╱22╱"╱ // 0x2597 @0x7
0x2590…25b2 at0008 = ╱2e╱.╱ // 0x2598 @0x8
0x2590…25b2 at0009 = ╱22╱"╱ // 0x2599 @0x9
0x2590…25b2 at000a = ╱dc╱ IN ╱ // 0x259a @0xa
0x2590…25b2 at000b = ╱53╱S╱ // 0x259b @0xb
0x2590…25b2 at000c = ╱56╱V╱ // 0x259c @0xc
0x2590…25b2 at000d = ╱41╱A╱ // 0x259d @0xd
0x2590…25b2 at000e = ╱52╱R╱ // 0x259e @0xe
0x2590…25b2 at000f = ╱ef╱ $ ╱ // 0x259f @0xf
0x2590…25b2 at0010 = ╱b5╱ THEN ╱ // 0x25a0 @0x10
0x2590…25b2 at0011 = ╱86╱ LET ╱ // 0x25a1 @0x11
0x2590…25b2 at0012 = ╱53╱S╱ // 0x25a2 @0x12
0x2590…25b2 at0013 = ╱56╱V╱ // 0x25a3 @0x13
0x2590…25b2 at0014 = ╱41╱A╱ // 0x25a4 @0x14
0x2590…25b2 at0015 = ╱52╱R╱ // 0x25a5 @0x15
0x2590…25b2 at0016 = ╱ef╱ $ ╱ // 0x25a6 @0x16
0x2590…25b2 at0017 = ╱f0╱ := ╱ // 0x25a7 @0x17
0x2590…25b2 at0018 = ╱53╱S╱ // 0x25a8 @0x18
0x2590…25b2 at0019 = ╱56╱V╱ // 0x25a9 @0x19
0x2590…25b2 at001a = ╱41╱A╱ // 0x25aa @0x1a
0x2590…25b2 at001b = ╱52╱R╱ // 0x25ab @0x1b
0x2590…25b2 at001c = ╱ef╱ $ ╱ // 0x25ac @0x1c
0x2590…25b2 at001d = ╱eb╱ + ╱ // 0x25ad @0x1d
0x2590…25b2 at001e = ╱22╱"╱ // 0x25ae @0x1e
0x2590…25b2 at001f = ╱2e╱.╱ // 0x25af @0x1f
0x2590…25b2 at0020 = ╱22╱"╱ // 0x25b0 @0x20
0x2590…25b2 at0021 = EOL // 0x25b1 @0x21
0x2590…25b2 }
0x25b2…25e8 bbd6 03790 LET P_BKR := INT ( 100 * ASC ( "0" + SVAR $ ) + 0.5 ) / 100
0x25b2…25e8 LineComal80 {
0x25b2…25e8 ptr = 0xbbd6 // 0x25b2 @0x0
0x25b2…25e8 lno = 0x0ece // 0x25b4 @0x2
0x25b2…25e8 at0004 = ╱86╱ LET ╱ // 0x25b6 @0x4
0x25b2…25e8 at0005 = ╱50╱P╱ // 0x25b7 @0x5
0x25b2…25e8 at0006 = ╱5f╱_╱ // 0x25b8 @0x6
0x25b2…25e8 at0007 = ╱42╱B╱ // 0x25b9 @0x7
0x25b2…25e8 at0008 = ╱4b╱K╱ // 0x25ba @0x8
0x25b2…25e8 at0009 = ╱52╱R╱ // 0x25bb @0x9
0x25b2…25e8 at000a = ╱f0╱ := ╱ // 0x25bc @0xa
0x25b2…25e8 at000b = ╱c6╱ INT ╱ // 0x25bd @0xb
0x25b2…25e8 at000c = ╱ed╱ ( ╱ // 0x25be @0xc
0x25b2…25e8 at000d = ╱31╱1╱ // 0x25bf @0xd
0x25b2…25e8 at000e = ╱30╱0╱ // 0x25c0 @0xe
0x25b2…25e8 at000f = ╱30╱0╱ // 0x25c1 @0xf
0x25b2…25e8 at0010 = ╱f26400╱ // 0x25c2 @0x10
0x25b2…25e8 at0013 = ╱e7╱ * ╱ // 0x25c5 @0x13
0x25b2…25e8 at0014 = ╱cf╱ ASC ╱ // 0x25c6 @0x14
0x25b2…25e8 at0015 = ╱ed╱ ( ╱ // 0x25c7 @0x15
0x25b2…25e8 at0016 = ╱22╱"╱ // 0x25c8 @0x16
0x25b2…25e8 at0017 = ╱30╱0╱ // 0x25c9 @0x17
0x25b2…25e8 at0018 = ╱22╱"╱ // 0x25ca @0x18
0x25b2…25e8 at0019 = ╱eb╱ + ╱ // 0x25cb @0x19
0x25b2…25e8 at001a = ╱53╱S╱ // 0x25cc @0x1a
0x25b2…25e8 at001b = ╱56╱V╱ // 0x25cd @0x1b
0x25b2…25e8 at001c = ╱41╱A╱ // 0x25ce @0x1c
0x25b2…25e8 at001d = ╱52╱R╱ // 0x25cf @0x1d
0x25b2…25e8 at001e = ╱ef╱ $ ╱ // 0x25d0 @0x1e
0x25b2…25e8 at001f = ╱ee╱ ) ╱ // 0x25d1 @0x1f
0x25b2…25e8 at0020 = ╱e5╱ + ╱ // 0x25d2 @0x20
0x25b2…25e8 at0021 = ╱30╱0╱ // 0x25d3 @0x21
0x25b2…25e8 at0022 = ╱2e╱.╱ // 0x25d4 @0x22
0x25b2…25e8 at0023 = ╱35╱5╱ // 0x25d5 @0x23
0x25b2…25e8 at0024 = ╱f88000000000000005╱ // 0x25d6 @0x24
0x25b2…25e8 at002d = ╱ee╱ ) ╱ // 0x25df @0x2d
0x25b2…25e8 at002e = ╱e8╱ / ╱ // 0x25e0 @0x2e
0x25b2…25e8 at002f = ╱31╱1╱ // 0x25e1 @0x2f
0x25b2…25e8 at0030 = ╱30╱0╱ // 0x25e2 @0x30
0x25b2…25e8 at0031 = ╱30╱0╱ // 0x25e3 @0x31
0x25b2…25e8 at0032 = ╱f26400╱ // 0x25e4 @0x32
0x25b2…25e8 at0035 = EOL // 0x25e7 @0x35
0x25b2…25e8 }
0x25e8…25fa bbe8 03800 CURSOR 61 , R_SLIN
0x25e8…25fa LineComal80 {
0x25e8…25fa ptr = 0xbbe8 // 0x25e8 @0x0
0x25e8…25fa lno = 0x0ed8 // 0x25ea @0x2
0x25e8…25fa at0004 = ╱a1╱ CURSOR ╱ // 0x25ec @0x4
0x25e8…25fa at0005 = ╱36╱6╱ // 0x25ed @0x5
0x25e8…25fa at0006 = ╱31╱1╱ // 0x25ee @0x6
0x25e8…25fa at0007 = ╱f23d00╱ // 0x25ef @0x7
0x25e8…25fa at000a = ╱ec╱ , ╱ // 0x25f2 @0xa
0x25e8…25fa at000b = ╱52╱R╱ // 0x25f3 @0xb
0x25e8…25fa at000c = ╱5f╱_╱ // 0x25f4 @0xc
0x25e8…25fa at000d = ╱53╱S╱ // 0x25f5 @0xd
0x25e8…25fa at000e = ╱4c╱L╱ // 0x25f6 @0xe
0x25e8…25fa at000f = ╱49╱I╱ // 0x25f7 @0xf
0x25e8…25fa at0010 = ╱4e╱N╱ // 0x25f8 @0x10
0x25e8…25fa at0011 = EOL // 0x25f9 @0x11
0x25e8…25fa }
0x25fa…260c bbfa 03810 IF _BKR > 0 THEN
0x25fa…260c LineComal80 {
0x25fa…260c ptr = 0xbbfa // 0x25fa @0x0
0x25fa…260c lno = 0x0ee2 // 0x25fc @0x2
0x25fa…260c at0004 = ╱9b4850╱ IF ╱ // 0x25fe @0x4
0x25fa…260c at0007 = ╱5f╱_╱ // 0x2601 @0x7
0x25fa…260c at0008 = ╱42╱B╱ // 0x2602 @0x8
0x25fa…260c at0009 = ╱4b╱K╱ // 0x2603 @0x9
0x25fa…260c at000a = ╱52╱R╱ // 0x2604 @0xa
0x25fa…260c at000b = ╱e1╱ > ╱ // 0x2605 @0xb
0x25fa…260c at000c = ╱30╱0╱ // 0x2606 @0xc
0x25fa…260c at000d = ╱f20000╱ // 0x2607 @0xd
0x25fa…260c at0010 = ╱b5╱ THEN ╱ // 0x260a @0x10
0x25fa…260c at0011 = EOL // 0x260b @0x11
0x25fa…260c }
0x260c…2624 bc12 03820 PRINT CHR$ ( P_BKR , 7 , 2 )
0x260c…2624 LineComal80 {
0x260c…2624 ptr = 0xbc12 // 0x260c @0x0
0x260c…2624 lno = 0x0eec // 0x260e @0x2
0x260c…2624 at0004 = ╱92╱ PRINT ╱ // 0x2610 @0x4
0x260c…2624 at0005 = ╱d0╱ CHR$ ╱ // 0x2611 @0x5
0x260c…2624 at0006 = ╱ed╱ ( ╱ // 0x2612 @0x6
0x260c…2624 at0007 = ╱50╱P╱ // 0x2613 @0x7
0x260c…2624 at0008 = ╱5f╱_╱ // 0x2614 @0x8
0x260c…2624 at0009 = ╱42╱B╱ // 0x2615 @0x9
0x260c…2624 at000a = ╱4b╱K╱ // 0x2616 @0xa
0x260c…2624 at000b = ╱52╱R╱ // 0x2617 @0xb
0x260c…2624 at000c = ╱ec╱ , ╱ // 0x2618 @0xc
0x260c…2624 at000d = ╱37╱7╱ // 0x2619 @0xd
0x260c…2624 at000e = ╱f20700╱ // 0x261a @0xe
0x260c…2624 at0011 = ╱ec╱ , ╱ // 0x261d @0x11
0x260c…2624 at0012 = ╱32╱2╱ // 0x261e @0x12
0x260c…2624 at0013 = ╱f20200╱ // 0x261f @0x13
0x260c…2624 at0016 = ╱ee╱ ) ╱ // 0x2622 @0x16
0x260c…2624 at0017 = EOL // 0x2623 @0x17
0x260c…2624 }
0x2624…262b bc19 03830 ELSE
0x2624…262b LineComal80 {
0x2624…262b ptr = 0xbc19 // 0x2624 @0x0
0x2624…262b lno = 0x0ef6 // 0x2626 @0x2
0x2624…262b at0004 = ╱9a49╱ ELSE ╱ // 0x2628 @0x4
0x2624…262b at0006 = EOL // 0x262a @0x6
0x2624…262b }
0x262b…2641 bc2f 03840 PRINT SPC $ ( 1 : 10 )
0x262b…2641 LineComal80 {
0x262b…2641 ptr = 0xbc2f // 0x262b @0x0
0x262b…2641 lno = 0x0f00 // 0x262d @0x2
0x262b…2641 at0004 = ╱92╱ PRINT ╱ // 0x262f @0x4
0x262b…2641 at0005 = ╱53╱S╱ // 0x2630 @0x5
0x262b…2641 at0006 = ╱50╱P╱ // 0x2631 @0x6
0x262b…2641 at0007 = ╱43╱C╱ // 0x2632 @0x7
0x262b…2641 at0008 = ╱ef╱ $ ╱ // 0x2633 @0x8
0x262b…2641 at0009 = ╱ed╱ ( ╱ // 0x2634 @0x9
0x262b…2641 at000a = ╱31╱1╱ // 0x2635 @0xa
0x262b…2641 at000b = ╱f20100╱ // 0x2636 @0xb
0x262b…2641 at000e = ╱f1╱ : ╱ // 0x2639 @0xe
0x262b…2641 at000f = ╱31╱1╱ // 0x263a @0xf
0x262b…2641 at0010 = ╱30╱0╱ // 0x263b @0x10
0x262b…2641 at0011 = ╱f20a00╱ // 0x263c @0x11
0x262b…2641 at0014 = ╱ee╱ ) ╱ // 0x263f @0x14
0x262b…2641 at0015 = EOL // 0x2640 @0x15
0x262b…2641 }
0x2641…2647 bc35 03850 ENDIF
0x2641…2647 LineComal80 {
0x2641…2647 ptr = 0xbc35 // 0x2641 @0x0
0x2641…2647 lno = 0x0f0a // 0x2643 @0x2
0x2641…2647 at0004 = ╱9c╱ ENDIF ╱ // 0x2645 @0x4
0x2641…2647 at0005 = EOL // 0x2646 @0x5
0x2641…2647 }
0x2647…264e bc3c 03860 ELSE
0x2647…264e LineComal80 {
0x2647…264e ptr = 0xbc3c // 0x2647 @0x0
0x2647…264e lno = 0x0f14 // 0x2649 @0x2
0x2647…264e at0004 = ╱9a4a╱ ELSE ╱ // 0x264b @0x4
0x2647…264e at0006 = EOL // 0x264d @0x6
0x2647…264e }
0x264e…265e bc4c 03870 LET P_DK := DEBET
0x264e…265e LineComal80 {
0x264e…265e ptr = 0xbc4c // 0x264e @0x0
0x264e…265e lno = 0x0f1e // 0x2650 @0x2
0x264e…265e at0004 = ╱86╱ LET ╱ // 0x2652 @0x4
0x264e…265e at0005 = ╱50╱P╱ // 0x2653 @0x5
0x264e…265e at0006 = ╱5f╱_╱ // 0x2654 @0x6
0x264e…265e at0007 = ╱44╱D╱ // 0x2655 @0x7
0x264e…265e at0008 = ╱4b╱K╱ // 0x2656 @0x8
0x264e…265e at0009 = ╱f0╱ := ╱ // 0x2657 @0x9
0x264e…265e at000a = ╱44╱D╱ // 0x2658 @0xa
0x264e…265e at000b = ╱45╱E╱ // 0x2659 @0xb
0x264e…265e at000c = ╱42╱B╱ // 0x265a @0xc
0x264e…265e at000d = ╱45╱E╱ // 0x265b @0xd
0x264e…265e at000e = ╱54╱T╱ // 0x265c @0xe
0x264e…265e at000f = EOL // 0x265d @0xf
0x264e…265e }
0x265e…2670 bc5e 03880 CURSOR 49 , R_SLIN
0x265e…2670 LineComal80 {
0x265e…2670 ptr = 0xbc5e // 0x265e @0x0
0x265e…2670 lno = 0x0f28 // 0x2660 @0x2
0x265e…2670 at0004 = ╱a1╱ CURSOR ╱ // 0x2662 @0x4
0x265e…2670 at0005 = ╱34╱4╱ // 0x2663 @0x5
0x265e…2670 at0006 = ╱39╱9╱ // 0x2664 @0x6
0x265e…2670 at0007 = ╱f23100╱ // 0x2665 @0x7
0x265e…2670 at000a = ╱ec╱ , ╱ // 0x2668 @0xa
0x265e…2670 at000b = ╱52╱R╱ // 0x2669 @0xb
0x265e…2670 at000c = ╱5f╱_╱ // 0x266a @0xc
0x265e…2670 at000d = ╱53╱S╱ // 0x266b @0xd
0x265e…2670 at000e = ╱4c╱L╱ // 0x266c @0xe
0x265e…2670 at000f = ╱49╱I╱ // 0x266d @0xf
0x265e…2670 at0010 = ╱4e╱N╱ // 0x266e @0x10
0x265e…2670 at0011 = EOL // 0x266f @0x11
0x265e…2670 }
0x2670…267e bc6c 03890 EDIT "" : SVAR $
0x2670…267e LineComal80 {
0x2670…267e ptr = 0xbc6c // 0x2670 @0x0
0x2670…267e lno = 0x0f32 // 0x2672 @0x2
0x2670…267e at0004 = ╱b1╱ EDIT ╱ // 0x2674 @0x4
0x2670…267e at0005 = ╱22╱"╱ // 0x2675 @0x5
0x2670…267e at0006 = ╱22╱"╱ // 0x2676 @0x6
0x2670…267e at0007 = ╱f1╱ : ╱ // 0x2677 @0x7
0x2670…267e at0008 = ╱53╱S╱ // 0x2678 @0x8
0x2670…267e at0009 = ╱56╱V╱ // 0x2679 @0x9
0x2670…267e at000a = ╱41╱A╱ // 0x267a @0xa
0x2670…267e at000b = ╱52╱R╱ // 0x267b @0xb
0x2670…267e at000c = ╱ef╱ $ ╱ // 0x267c @0xc
0x2670…267e at000d = EOL // 0x267d @0xd
0x2670…267e }
0x267e…2690 bc7e 03900 EXEC SL_FEJLLINIE
0x267e…2690 LineComal80 {
0x267e…2690 ptr = 0xbc7e // 0x267e @0x0
0x267e…2690 lno = 0x0f3c // 0x2680 @0x2
0x267e…2690 at0004 = ╱9d╱ EXEC ╱ // 0x2682 @0x4
0x267e…2690 at0005 = ╱53╱S╱ // 0x2683 @0x5
0x267e…2690 at0006 = ╱4c╱L╱ // 0x2684 @0x6
0x267e…2690 at0007 = ╱5f╱_╱ // 0x2685 @0x7
0x267e…2690 at0008 = ╱46╱F╱ // 0x2686 @0x8
0x267e…2690 at0009 = ╱45╱E╱ // 0x2687 @0x9
0x267e…2690 at000a = ╱4a╱J╱ // 0x2688 @0xa
0x267e…2690 at000b = ╱4c╱L╱ // 0x2689 @0xb
0x267e…2690 at000c = ╱4c╱L╱ // 0x268a @0xc
0x267e…2690 at000d = ╱49╱I╱ // 0x268b @0xd
0x267e…2690 at000e = ╱4e╱N╱ // 0x268c @0xe
0x267e…2690 at000f = ╱49╱I╱ // 0x268d @0xf
0x267e…2690 at0010 = ╱45╱E╱ // 0x268e @0x10
0x267e…2690 at0011 = EOL // 0x268f @0x11
0x267e…2690 }
0x2690…26a8 bc96 03910 EXEC TAL_CONTROL ( SVAR $ )
0x2690…26a8 LineComal80 {
0x2690…26a8 ptr = 0xbc96 // 0x2690 @0x0
0x2690…26a8 lno = 0x0f46 // 0x2692 @0x2
0x2690…26a8 at0004 = ╱9d╱ EXEC ╱ // 0x2694 @0x4
0x2690…26a8 at0005 = ╱54╱T╱ // 0x2695 @0x5
0x2690…26a8 at0006 = ╱41╱A╱ // 0x2696 @0x6
0x2690…26a8 at0007 = ╱4c╱L╱ // 0x2697 @0x7
0x2690…26a8 at0008 = ╱5f╱_╱ // 0x2698 @0x8
0x2690…26a8 at0009 = ╱43╱C╱ // 0x2699 @0x9
0x2690…26a8 at000a = ╱4f╱O╱ // 0x269a @0xa
0x2690…26a8 at000b = ╱4e╱N╱ // 0x269b @0xb
0x2690…26a8 at000c = ╱54╱T╱ // 0x269c @0xc
0x2690…26a8 at000d = ╱52╱R╱ // 0x269d @0xd
0x2690…26a8 at000e = ╱4f╱O╱ // 0x269e @0xe
0x2690…26a8 at000f = ╱4c╱L╱ // 0x269f @0xf
0x2690…26a8 at0010 = ╱ed╱ ( ╱ // 0x26a0 @0x10
0x2690…26a8 at0011 = ╱53╱S╱ // 0x26a1 @0x11
0x2690…26a8 at0012 = ╱56╱V╱ // 0x26a2 @0x12
0x2690…26a8 at0013 = ╱41╱A╱ // 0x26a3 @0x13
0x2690…26a8 at0014 = ╱52╱R╱ // 0x26a4 @0x14
0x2690…26a8 at0015 = ╱ef╱ $ ╱ // 0x26a5 @0x15
0x2690…26a8 at0016 = ╱ee╱ ) ╱ // 0x26a6 @0x16
0x2690…26a8 at0017 = EOL // 0x26a7 @0x17
0x2690…26a8 }
0x26a8…26ca bcb8 03920 IF NOT "." IN SVAR $ THEN LET SVAR $ := SVAR $ + "."
0x26a8…26ca LineComal80 {
0x26a8…26ca ptr = 0xbcb8 // 0x26a8 @0x0
0x26a8…26ca lno = 0x0f50 // 0x26aa @0x2
0x26a8…26ca at0004 = ╱8200╱ IF ╱ // 0x26ac @0x4
0x26a8…26ca at0006 = ╱d7╱ NOT ╱ // 0x26ae @0x6
0x26a8…26ca at0007 = ╱22╱"╱ // 0x26af @0x7
0x26a8…26ca at0008 = ╱2e╱.╱ // 0x26b0 @0x8
0x26a8…26ca at0009 = ╱22╱"╱ // 0x26b1 @0x9
0x26a8…26ca at000a = ╱dc╱ IN ╱ // 0x26b2 @0xa
0x26a8…26ca at000b = ╱53╱S╱ // 0x26b3 @0xb
0x26a8…26ca at000c = ╱56╱V╱ // 0x26b4 @0xc
0x26a8…26ca at000d = ╱41╱A╱ // 0x26b5 @0xd
0x26a8…26ca at000e = ╱52╱R╱ // 0x26b6 @0xe
0x26a8…26ca at000f = ╱ef╱ $ ╱ // 0x26b7 @0xf
0x26a8…26ca at0010 = ╱b5╱ THEN ╱ // 0x26b8 @0x10
0x26a8…26ca at0011 = ╱86╱ LET ╱ // 0x26b9 @0x11
0x26a8…26ca at0012 = ╱53╱S╱ // 0x26ba @0x12
0x26a8…26ca at0013 = ╱56╱V╱ // 0x26bb @0x13
0x26a8…26ca at0014 = ╱41╱A╱ // 0x26bc @0x14
0x26a8…26ca at0015 = ╱52╱R╱ // 0x26bd @0x15
0x26a8…26ca at0016 = ╱ef╱ $ ╱ // 0x26be @0x16
0x26a8…26ca at0017 = ╱f0╱ := ╱ // 0x26bf @0x17
0x26a8…26ca at0018 = ╱53╱S╱ // 0x26c0 @0x18
0x26a8…26ca at0019 = ╱56╱V╱ // 0x26c1 @0x19
0x26a8…26ca at001a = ╱41╱A╱ // 0x26c2 @0x1a
0x26a8…26ca at001b = ╱52╱R╱ // 0x26c3 @0x1b
0x26a8…26ca at001c = ╱ef╱ $ ╱ // 0x26c4 @0x1c
0x26a8…26ca at001d = ╱eb╱ + ╱ // 0x26c5 @0x1d
0x26a8…26ca at001e = ╱22╱"╱ // 0x26c6 @0x1e
0x26a8…26ca at001f = ╱2e╱.╱ // 0x26c7 @0x1f
0x26a8…26ca at0020 = ╱22╱"╱ // 0x26c8 @0x20
0x26a8…26ca at0021 = EOL // 0x26c9 @0x21
0x26a8…26ca }
0x26ca…26ff bced 03930 LET P_BKR := INT ( 100 * ASC ( "0" + SVAR $ ) + .5 ) / 100
0x26ca…26ff LineComal80 {
0x26ca…26ff ptr = 0xbced // 0x26ca @0x0
0x26ca…26ff lno = 0x0f5a // 0x26cc @0x2
0x26ca…26ff at0004 = ╱86╱ LET ╱ // 0x26ce @0x4
0x26ca…26ff at0005 = ╱50╱P╱ // 0x26cf @0x5
0x26ca…26ff at0006 = ╱5f╱_╱ // 0x26d0 @0x6
0x26ca…26ff at0007 = ╱42╱B╱ // 0x26d1 @0x7
0x26ca…26ff at0008 = ╱4b╱K╱ // 0x26d2 @0x8
0x26ca…26ff at0009 = ╱52╱R╱ // 0x26d3 @0x9
0x26ca…26ff at000a = ╱f0╱ := ╱ // 0x26d4 @0xa
0x26ca…26ff at000b = ╱c6╱ INT ╱ // 0x26d5 @0xb
0x26ca…26ff at000c = ╱ed╱ ( ╱ // 0x26d6 @0xc
0x26ca…26ff at000d = ╱31╱1╱ // 0x26d7 @0xd
0x26ca…26ff at000e = ╱30╱0╱ // 0x26d8 @0xe
0x26ca…26ff at000f = ╱30╱0╱ // 0x26d9 @0xf
0x26ca…26ff at0010 = ╱f26400╱ // 0x26da @0x10
0x26ca…26ff at0013 = ╱e7╱ * ╱ // 0x26dd @0x13
0x26ca…26ff at0014 = ╱cf╱ ASC ╱ // 0x26de @0x14
0x26ca…26ff at0015 = ╱ed╱ ( ╱ // 0x26df @0x15
0x26ca…26ff at0016 = ╱22╱"╱ // 0x26e0 @0x16
0x26ca…26ff at0017 = ╱30╱0╱ // 0x26e1 @0x17
0x26ca…26ff at0018 = ╱22╱"╱ // 0x26e2 @0x18
0x26ca…26ff at0019 = ╱eb╱ + ╱ // 0x26e3 @0x19
0x26ca…26ff at001a = ╱53╱S╱ // 0x26e4 @0x1a
0x26ca…26ff at001b = ╱56╱V╱ // 0x26e5 @0x1b
0x26ca…26ff at001c = ╱41╱A╱ // 0x26e6 @0x1c
0x26ca…26ff at001d = ╱52╱R╱ // 0x26e7 @0x1d
0x26ca…26ff at001e = ╱ef╱ $ ╱ // 0x26e8 @0x1e
0x26ca…26ff at001f = ╱ee╱ ) ╱ // 0x26e9 @0x1f
0x26ca…26ff at0020 = ╱e5╱ + ╱ // 0x26ea @0x20
0x26ca…26ff at0021 = ╱2e╱.╱ // 0x26eb @0x21
0x26ca…26ff at0022 = ╱35╱5╱ // 0x26ec @0x22
0x26ca…26ff at0023 = ╱f88000000000000005╱ // 0x26ed @0x23
0x26ca…26ff at002c = ╱ee╱ ) ╱ // 0x26f6 @0x2c
0x26ca…26ff at002d = ╱e8╱ / ╱ // 0x26f7 @0x2d
0x26ca…26ff at002e = ╱31╱1╱ // 0x26f8 @0x2e
0x26ca…26ff at002f = ╱30╱0╱ // 0x26f9 @0x2f
0x26ca…26ff at0030 = ╱30╱0╱ // 0x26fa @0x30
0x26ca…26ff at0031 = ╱f26400╱ // 0x26fb @0x31
0x26ca…26ff at0034 = EOL // 0x26fe @0x34
0x26ca…26ff }
0x26ff…2711 bcff 03940 CURSOR 49 , R_SLIN
0x26ff…2711 LineComal80 {
0x26ff…2711 ptr = 0xbcff // 0x26ff @0x0
0x26ff…2711 lno = 0x0f64 // 0x2701 @0x2
0x26ff…2711 at0004 = ╱a1╱ CURSOR ╱ // 0x2703 @0x4
0x26ff…2711 at0005 = ╱34╱4╱ // 0x2704 @0x5
0x26ff…2711 at0006 = ╱39╱9╱ // 0x2705 @0x6
0x26ff…2711 at0007 = ╱f23100╱ // 0x2706 @0x7
0x26ff…2711 at000a = ╱ec╱ , ╱ // 0x2709 @0xa
0x26ff…2711 at000b = ╱52╱R╱ // 0x270a @0xb
0x26ff…2711 at000c = ╱5f╱_╱ // 0x270b @0xc
0x26ff…2711 at000d = ╱53╱S╱ // 0x270c @0xd
0x26ff…2711 at000e = ╱4c╱L╱ // 0x270d @0xe
0x26ff…2711 at000f = ╱49╱I╱ // 0x270e @0xf
0x26ff…2711 at0010 = ╱4e╱N╱ // 0x270f @0x10
0x26ff…2711 at0011 = EOL // 0x2710 @0x11
0x26ff…2711 }
0x2711…2723 bd11 03950 IF _BKR > 0 THEN
0x2711…2723 LineComal80 {
0x2711…2723 ptr = 0xbd11 // 0x2711 @0x0
0x2711…2723 lno = 0x0f6e // 0x2713 @0x2
0x2711…2723 at0004 = ╱9b4b50╱ IF ╱ // 0x2715 @0x4
0x2711…2723 at0007 = ╱5f╱_╱ // 0x2718 @0x7
0x2711…2723 at0008 = ╱42╱B╱ // 0x2719 @0x8
0x2711…2723 at0009 = ╱4b╱K╱ // 0x271a @0x9
0x2711…2723 at000a = ╱52╱R╱ // 0x271b @0xa
0x2711…2723 at000b = ╱e1╱ > ╱ // 0x271c @0xb
0x2711…2723 at000c = ╱30╱0╱ // 0x271d @0xc
0x2711…2723 at000d = ╱f20000╱ // 0x271e @0xd
0x2711…2723 at0010 = ╱b5╱ THEN ╱ // 0x2721 @0x10
0x2711…2723 at0011 = EOL // 0x2722 @0x11
0x2711…2723 }
0x2723…273b bd29 03960 PRINT CHR$ ( P_BKR , 7 , 2 )
0x2723…273b LineComal80 {
0x2723…273b ptr = 0xbd29 // 0x2723 @0x0
0x2723…273b lno = 0x0f78 // 0x2725 @0x2
0x2723…273b at0004 = ╱92╱ PRINT ╱ // 0x2727 @0x4
0x2723…273b at0005 = ╱d0╱ CHR$ ╱ // 0x2728 @0x5
0x2723…273b at0006 = ╱ed╱ ( ╱ // 0x2729 @0x6
0x2723…273b at0007 = ╱50╱P╱ // 0x272a @0x7
0x2723…273b at0008 = ╱5f╱_╱ // 0x272b @0x8
0x2723…273b at0009 = ╱42╱B╱ // 0x272c @0x9
0x2723…273b at000a = ╱4b╱K╱ // 0x272d @0xa
0x2723…273b at000b = ╱52╱R╱ // 0x272e @0xb
0x2723…273b at000c = ╱ec╱ , ╱ // 0x272f @0xc
0x2723…273b at000d = ╱37╱7╱ // 0x2730 @0xd
0x2723…273b at000e = ╱f20700╱ // 0x2731 @0xe
0x2723…273b at0011 = ╱ec╱ , ╱ // 0x2734 @0x11
0x2723…273b at0012 = ╱32╱2╱ // 0x2735 @0x12
0x2723…273b at0013 = ╱f20200╱ // 0x2736 @0x13
0x2723…273b at0016 = ╱ee╱ ) ╱ // 0x2739 @0x16
0x2723…273b at0017 = EOL // 0x273a @0x17
0x2723…273b }
0x273b…2742 bd30 03970 ELSE
0x273b…2742 LineComal80 {
0x273b…2742 ptr = 0xbd30 // 0x273b @0x0
0x273b…2742 lno = 0x0f82 // 0x273d @0x2
0x273b…2742 at0004 = ╱9a4c╱ ELSE ╱ // 0x273f @0x4
0x273b…2742 at0006 = EOL // 0x2741 @0x6
0x273b…2742 }
0x2742…2758 bd46 03980 PRINT SPC $ ( 1 : 10 )
0x2742…2758 LineComal80 {
0x2742…2758 ptr = 0xbd46 // 0x2742 @0x0
0x2742…2758 lno = 0x0f8c // 0x2744 @0x2
0x2742…2758 at0004 = ╱92╱ PRINT ╱ // 0x2746 @0x4
0x2742…2758 at0005 = ╱53╱S╱ // 0x2747 @0x5
0x2742…2758 at0006 = ╱50╱P╱ // 0x2748 @0x6
0x2742…2758 at0007 = ╱43╱C╱ // 0x2749 @0x7
0x2742…2758 at0008 = ╱ef╱ $ ╱ // 0x274a @0x8
0x2742…2758 at0009 = ╱ed╱ ( ╱ // 0x274b @0x9
0x2742…2758 at000a = ╱31╱1╱ // 0x274c @0xa
0x2742…2758 at000b = ╱f20100╱ // 0x274d @0xb
0x2742…2758 at000e = ╱f1╱ : ╱ // 0x2750 @0xe
0x2742…2758 at000f = ╱31╱1╱ // 0x2751 @0xf
0x2742…2758 at0010 = ╱30╱0╱ // 0x2752 @0x10
0x2742…2758 at0011 = ╱f20a00╱ // 0x2753 @0x11
0x2742…2758 at0014 = ╱ee╱ ) ╱ // 0x2756 @0x14
0x2742…2758 at0015 = EOL // 0x2757 @0x15
0x2742…2758 }
0x2758…275e bd4c 03990 ENDIF
0x2758…275e LineComal80 {
0x2758…275e ptr = 0xbd4c // 0x2758 @0x0
0x2758…275e lno = 0x0f96 // 0x275a @0x2
0x2758…275e at0004 = ╱9c╱ ENDIF ╱ // 0x275c @0x4
0x2758…275e at0005 = EOL // 0x275d @0x5
0x2758…275e }
0x275e…2764 bd52 04000 ENDIF
0x275e…2764 LineComal80 {
0x275e…2764 ptr = 0xbd52 // 0x275e @0x0
0x275e…2764 lno = 0x0fa0 // 0x2760 @0x2
0x275e…2764 at0004 = ╱9c╱ ENDIF ╱ // 0x2762 @0x4
0x275e…2764 at0005 = EOL // 0x2763 @0x5
0x275e…2764 }
0x2764…2788 bd76 04010 IF P_BKR =< 0 THEN LET P_DK := P_DK * ( - 1 )
0x2764…2788 LineComal80 {
0x2764…2788 ptr = 0xbd76 // 0x2764 @0x0
0x2764…2788 lno = 0x0faa // 0x2766 @0x2
0x2764…2788 at0004 = ╱8200╱ IF ╱ // 0x2768 @0x4
0x2764…2788 at0006 = ╱50╱P╱ // 0x276a @0x6
0x2764…2788 at0007 = ╱5f╱_╱ // 0x276b @0x7
0x2764…2788 at0008 = ╱42╱B╱ // 0x276c @0x8
0x2764…2788 at0009 = ╱4b╱K╱ // 0x276d @0x9
0x2764…2788 at000a = ╱52╱R╱ // 0x276e @0xa
0x2764…2788 at000b = ╱e2╱ =< ╱ // 0x276f @0xb
0x2764…2788 at000c = ╱30╱0╱ // 0x2770 @0xc
0x2764…2788 at000d = ╱f20000╱ // 0x2771 @0xd
0x2764…2788 at0010 = ╱b5╱ THEN ╱ // 0x2774 @0x10
0x2764…2788 at0011 = ╱86╱ LET ╱ // 0x2775 @0x11
0x2764…2788 at0012 = ╱50╱P╱ // 0x2776 @0x12
0x2764…2788 at0013 = ╱5f╱_╱ // 0x2777 @0x13
0x2764…2788 at0014 = ╱44╱D╱ // 0x2778 @0x14
0x2764…2788 at0015 = ╱4b╱K╱ // 0x2779 @0x15
0x2764…2788 at0016 = ╱f0╱ := ╱ // 0x277a @0x16
0x2764…2788 at0017 = ╱50╱P╱ // 0x277b @0x17
0x2764…2788 at0018 = ╱5f╱_╱ // 0x277c @0x18
0x2764…2788 at0019 = ╱44╱D╱ // 0x277d @0x19
0x2764…2788 at001a = ╱4b╱K╱ // 0x277e @0x1a
0x2764…2788 at001b = ╱e7╱ * ╱ // 0x277f @0x1b
0x2764…2788 at001c = ╱ed╱ ( ╱ // 0x2780 @0x1c
0x2764…2788 at001d = ╱de╱ - ╱ // 0x2781 @0x1d
0x2764…2788 at001e = ╱31╱1╱ // 0x2782 @0x1e
0x2764…2788 at001f = ╱f20100╱ // 0x2783 @0x1f
0x2764…2788 at0022 = ╱ee╱ ) ╱ // 0x2786 @0x22
0x2764…2788 at0023 = EOL // 0x2787 @0x23
0x2764…2788 }
0x2788…2798 bd86 04020 UNTIL P_BKR > 0
0x2788…2798 LineComal80 {
0x2788…2798 ptr = 0xbd86 // 0x2788 @0x0
0x2788…2798 lno = 0x0fb4 // 0x278a @0x2
0x2788…2798 at0004 = ╱98╱ UNTIL ╱ // 0x278c @0x4
0x2788…2798 at0005 = ╱50╱P╱ // 0x278d @0x5
0x2788…2798 at0006 = ╱5f╱_╱ // 0x278e @0x6
0x2788…2798 at0007 = ╱42╱B╱ // 0x278f @0x7
0x2788…2798 at0008 = ╱4b╱K╱ // 0x2790 @0x8
0x2788…2798 at0009 = ╱52╱R╱ // 0x2791 @0x9
0x2788…2798 at000a = ╱e1╱ > ╱ // 0x2792 @0xa
0x2788…2798 at000b = ╱30╱0╱ // 0x2793 @0xb
0x2788…2798 at000c = ╱f20000╱ // 0x2794 @0xc
0x2788…2798 at000f = EOL // 0x2797 @0xf
0x2788…2798 }
0x2798…279f bd8d 04030 REPEAT
0x2798…279f LineComal80 {
0x2798…279f ptr = 0xbd8d // 0x2798 @0x0
0x2798…279f lno = 0x0fbe // 0x279a @0x2
0x2798…279f at0004 = ╱974d╱ REPEAT ╱ // 0x279c @0x4
0x2798…279f at0006 = EOL // 0x279e @0x6
0x2798…279f }
0x279f…27ae bd9c 04040 LET SVAR $ := "f"
0x279f…27ae LineComal80 {
0x279f…27ae ptr = 0xbd9c // 0x279f @0x0
0x279f…27ae lno = 0x0fc8 // 0x27a1 @0x2
0x279f…27ae at0004 = ╱86╱ LET ╱ // 0x27a3 @0x4
0x279f…27ae at0005 = ╱53╱S╱ // 0x27a4 @0x5
0x279f…27ae at0006 = ╱56╱V╱ // 0x27a5 @0x6
0x279f…27ae at0007 = ╱41╱A╱ // 0x27a6 @0x7
0x279f…27ae at0008 = ╱52╱R╱ // 0x27a7 @0x8
0x279f…27ae at0009 = ╱ef╱ $ ╱ // 0x27a8 @0x9
0x279f…27ae at000a = ╱f0╱ := ╱ // 0x27a9 @0xa
0x279f…27ae at000b = ╱22╱"╱ // 0x27aa @0xb
0x279f…27ae at000c = ╱66╱f╱ // 0x27ab @0xc
0x279f…27ae at000d = ╱22╱"╱ // 0x27ac @0xd
0x279f…27ae at000e = EOL // 0x27ad @0xe
0x279f…27ae }
0x27ae…27c0 bdae 04050 CURSOR 77 , R_SLIN
0x27ae…27c0 LineComal80 {
0x27ae…27c0 ptr = 0xbdae // 0x27ae @0x0
0x27ae…27c0 lno = 0x0fd2 // 0x27b0 @0x2
0x27ae…27c0 at0004 = ╱a1╱ CURSOR ╱ // 0x27b2 @0x4
0x27ae…27c0 at0005 = ╱37╱7╱ // 0x27b3 @0x5
0x27ae…27c0 at0006 = ╱37╱7╱ // 0x27b4 @0x6
0x27ae…27c0 at0007 = ╱f24d00╱ // 0x27b5 @0x7
0x27ae…27c0 at000a = ╱ec╱ , ╱ // 0x27b8 @0xa
0x27ae…27c0 at000b = ╱52╱R╱ // 0x27b9 @0xb
0x27ae…27c0 at000c = ╱5f╱_╱ // 0x27ba @0xc
0x27ae…27c0 at000d = ╱53╱S╱ // 0x27bb @0xd
0x27ae…27c0 at000e = ╱4c╱L╱ // 0x27bc @0xe
0x27ae…27c0 at000f = ╱49╱I╱ // 0x27bd @0xf
0x27ae…27c0 at0010 = ╱4e╱N╱ // 0x27be @0x10
0x27ae…27c0 at0011 = EOL // 0x27bf @0x11
0x27ae…27c0 }
0x27c0…27d4 bdc2 04060 EDIT "" : SVAR $ ( 1 )
0x27c0…27d4 LineComal80 {
0x27c0…27d4 ptr = 0xbdc2 // 0x27c0 @0x0
0x27c0…27d4 lno = 0x0fdc // 0x27c2 @0x2
0x27c0…27d4 at0004 = ╱b1╱ EDIT ╱ // 0x27c4 @0x4
0x27c0…27d4 at0005 = ╱22╱"╱ // 0x27c5 @0x5
0x27c0…27d4 at0006 = ╱22╱"╱ // 0x27c6 @0x6
0x27c0…27d4 at0007 = ╱f1╱ : ╱ // 0x27c7 @0x7
0x27c0…27d4 at0008 = ╱53╱S╱ // 0x27c8 @0x8
0x27c0…27d4 at0009 = ╱56╱V╱ // 0x27c9 @0x9
0x27c0…27d4 at000a = ╱41╱A╱ // 0x27ca @0xa
0x27c0…27d4 at000b = ╱52╱R╱ // 0x27cb @0xb
0x27c0…27d4 at000c = ╱ef╱ $ ╱ // 0x27cc @0xc
0x27c0…27d4 at000d = ╱ed╱ ( ╱ // 0x27cd @0xd
0x27c0…27d4 at000e = ╱31╱1╱ // 0x27ce @0xe
0x27c0…27d4 at000f = ╱f20100╱ // 0x27cf @0xf
0x27c0…27d4 at0012 = ╱ee╱ ) ╱ // 0x27d2 @0x12
0x27c0…27d4 at0013 = EOL // 0x27d3 @0x13
0x27c0…27d4 }
0x27d4…27e8 bdd6 04070 EXEC ST_BGST ( SVAR $ )
0x27d4…27e8 LineComal80 {
0x27d4…27e8 ptr = 0xbdd6 // 0x27d4 @0x0
0x27d4…27e8 lno = 0x0fe6 // 0x27d6 @0x2
0x27d4…27e8 at0004 = ╱9d╱ EXEC ╱ // 0x27d8 @0x4
0x27d4…27e8 at0005 = ╱53╱S╱ // 0x27d9 @0x5
0x27d4…27e8 at0006 = ╱54╱T╱ // 0x27da @0x6
0x27d4…27e8 at0007 = ╱5f╱_╱ // 0x27db @0x7
0x27d4…27e8 at0008 = ╱42╱B╱ // 0x27dc @0x8
0x27d4…27e8 at0009 = ╱47╱G╱ // 0x27dd @0x9
0x27d4…27e8 at000a = ╱53╱S╱ // 0x27de @0xa
0x27d4…27e8 at000b = ╱54╱T╱ // 0x27df @0xb
0x27d4…27e8 at000c = ╱ed╱ ( ╱ // 0x27e0 @0xc
0x27d4…27e8 at000d = ╱53╱S╱ // 0x27e1 @0xd
0x27d4…27e8 at000e = ╱56╱V╱ // 0x27e2 @0xe
0x27d4…27e8 at000f = ╱41╱A╱ // 0x27e3 @0xf
0x27d4…27e8 at0010 = ╱52╱R╱ // 0x27e4 @0x10
0x27d4…27e8 at0011 = ╱ef╱ $ ╱ // 0x27e5 @0x11
0x27d4…27e8 at0012 = ╱ee╱ ) ╱ // 0x27e6 @0x12
0x27d4…27e8 at0013 = EOL // 0x27e7 @0x13
0x27d4…27e8 }
0x27e8…2805 bdf3 04080 UNTIL "/" + SVAR $ + "/" IN "/F/S/R/"
0x27e8…2805 LineComal80 {
0x27e8…2805 ptr = 0xbdf3 // 0x27e8 @0x0
0x27e8…2805 lno = 0x0ff0 // 0x27ea @0x2
0x27e8…2805 at0004 = ╱98╱ UNTIL ╱ // 0x27ec @0x4
0x27e8…2805 at0005 = ╱22╱"╱ // 0x27ed @0x5
0x27e8…2805 at0006 = ╱2f╱/╱ // 0x27ee @0x6
0x27e8…2805 at0007 = ╱22╱"╱ // 0x27ef @0x7
0x27e8…2805 at0008 = ╱eb╱ + ╱ // 0x27f0 @0x8
0x27e8…2805 at0009 = ╱53╱S╱ // 0x27f1 @0x9
0x27e8…2805 at000a = ╱56╱V╱ // 0x27f2 @0xa
0x27e8…2805 at000b = ╱41╱A╱ // 0x27f3 @0xb
0x27e8…2805 at000c = ╱52╱R╱ // 0x27f4 @0xc
0x27e8…2805 at000d = ╱ef╱ $ ╱ // 0x27f5 @0xd
0x27e8…2805 at000e = ╱eb╱ + ╱ // 0x27f6 @0xe
0x27e8…2805 at000f = ╱22╱"╱ // 0x27f7 @0xf
0x27e8…2805 at0010 = ╱2f╱/╱ // 0x27f8 @0x10
0x27e8…2805 at0011 = ╱22╱"╱ // 0x27f9 @0x11
0x27e8…2805 at0012 = ╱dc╱ IN ╱ // 0x27fa @0x12
0x27e8…2805 at0013 = ╱22╱"╱ // 0x27fb @0x13
0x27e8…2805 at0014 = ╱2f╱/╱ // 0x27fc @0x14
0x27e8…2805 at0015 = ╱46╱F╱ // 0x27fd @0x15
0x27e8…2805 at0016 = ╱2f╱/╱ // 0x27fe @0x16
0x27e8…2805 at0017 = ╱53╱S╱ // 0x27ff @0x17
0x27e8…2805 at0018 = ╱2f╱/╱ // 0x2800 @0x18
0x27e8…2805 at0019 = ╱52╱R╱ // 0x2801 @0x19
0x27e8…2805 at001a = ╱2f╱/╱ // 0x2802 @0x1a
0x27e8…2805 at001b = ╱22╱"╱ // 0x2803 @0x1b
0x27e8…2805 at001c = EOL // 0x2804 @0x1c
0x27e8…2805 }
0x2805…2815 be03 04090 UNTIL SVAR $ IN "FS"
0x2805…2815 LineComal80 {
0x2805…2815 ptr = 0xbe03 // 0x2805 @0x0
0x2805…2815 lno = 0x0ffa // 0x2807 @0x2
0x2805…2815 at0004 = ╱98╱ UNTIL ╱ // 0x2809 @0x4
0x2805…2815 at0005 = ╱53╱S╱ // 0x280a @0x5
0x2805…2815 at0006 = ╱56╱V╱ // 0x280b @0x6
0x2805…2815 at0007 = ╱41╱A╱ // 0x280c @0x7
0x2805…2815 at0008 = ╱52╱R╱ // 0x280d @0x8
0x2805…2815 at0009 = ╱ef╱ $ ╱ // 0x280e @0x9
0x2805…2815 at000a = ╱dc╱ IN ╱ // 0x280f @0xa
0x2805…2815 at000b = ╱22╱"╱ // 0x2810 @0xb
0x2805…2815 at000c = ╱46╱F╱ // 0x2811 @0xc
0x2805…2815 at000d = ╱53╱S╱ // 0x2812 @0xd
0x2805…2815 at000e = ╱22╱"╱ // 0x2813 @0xe
0x2805…2815 at000f = EOL // 0x2814 @0xf
0x2805…2815 }
0x2815…2827 be15 04100 IF _DK = DEBET THEN
0x2815…2827 LineComal80 {
0x2815…2827 ptr = 0xbe15 // 0x2815 @0x0
0x2815…2827 lno = 0x1004 // 0x2817 @0x2
0x2815…2827 at0004 = ╱9b4e50╱ IF ╱ // 0x2819 @0x4
0x2815…2827 at0007 = ╱5f╱_╱ // 0x281c @0x7
0x2815…2827 at0008 = ╱44╱D╱ // 0x281d @0x8
0x2815…2827 at0009 = ╱4b╱K╱ // 0x281e @0x9
0x2815…2827 at000a = ╱df╱ = ╱ // 0x281f @0xa
0x2815…2827 at000b = ╱44╱D╱ // 0x2820 @0xb
0x2815…2827 at000c = ╱45╱E╱ // 0x2821 @0xc
0x2815…2827 at000d = ╱42╱B╱ // 0x2822 @0xd
0x2815…2827 at000e = ╱45╱E╱ // 0x2823 @0xe
0x2815…2827 at000f = ╱54╱T╱ // 0x2824 @0xf
0x2815…2827 at0010 = ╱b5╱ THEN ╱ // 0x2825 @0x10
0x2815…2827 at0011 = EOL // 0x2826 @0x11
0x2815…2827 }
0x2827…283e be2c 04110 LET P_DEB := P_DEB + P_BKR
0x2827…283e LineComal80 {
0x2827…283e ptr = 0xbe2c // 0x2827 @0x0
0x2827…283e lno = 0x100e // 0x2829 @0x2
0x2827…283e at0004 = ╱86╱ LET ╱ // 0x282b @0x4
0x2827…283e at0005 = ╱50╱P╱ // 0x282c @0x5
0x2827…283e at0006 = ╱5f╱_╱ // 0x282d @0x6
0x2827…283e at0007 = ╱44╱D╱ // 0x282e @0x7
0x2827…283e at0008 = ╱45╱E╱ // 0x282f @0x8
0x2827…283e at0009 = ╱42╱B╱ // 0x2830 @0x9
0x2827…283e at000a = ╱f0╱ := ╱ // 0x2831 @0xa
0x2827…283e at000b = ╱50╱P╱ // 0x2832 @0xb
0x2827…283e at000c = ╱5f╱_╱ // 0x2833 @0xc
0x2827…283e at000d = ╱44╱D╱ // 0x2834 @0xd
0x2827…283e at000e = ╱45╱E╱ // 0x2835 @0xe
0x2827…283e at000f = ╱42╱B╱ // 0x2836 @0xf
0x2827…283e at0010 = ╱e5╱ + ╱ // 0x2837 @0x10
0x2827…283e at0011 = ╱50╱P╱ // 0x2838 @0x11
0x2827…283e at0012 = ╱5f╱_╱ // 0x2839 @0x12
0x2827…283e at0013 = ╱42╱B╱ // 0x283a @0x13
0x2827…283e at0014 = ╱4b╱K╱ // 0x283b @0x14
0x2827…283e at0015 = ╱52╱R╱ // 0x283c @0x15
0x2827…283e at0016 = EOL // 0x283d @0x16
0x2827…283e }
0x283e…2845 be33 04120 ELSE
0x283e…2845 LineComal80 {
0x283e…2845 ptr = 0xbe33 // 0x283e @0x0
0x283e…2845 lno = 0x1018 // 0x2840 @0x2
0x283e…2845 at0004 = ╱9a4f╱ ELSE ╱ // 0x2842 @0x4
0x283e…2845 at0006 = EOL // 0x2844 @0x6
0x283e…2845 }
0x2845…285e be4c 04130 LET P_KRED := P_KRED + P_BKR
0x2845…285e LineComal80 {
0x2845…285e ptr = 0xbe4c // 0x2845 @0x0
0x2845…285e lno = 0x1022 // 0x2847 @0x2
0x2845…285e at0004 = ╱86╱ LET ╱ // 0x2849 @0x4
0x2845…285e at0005 = ╱50╱P╱ // 0x284a @0x5
0x2845…285e at0006 = ╱5f╱_╱ // 0x284b @0x6
0x2845…285e at0007 = ╱4b╱K╱ // 0x284c @0x7
0x2845…285e at0008 = ╱52╱R╱ // 0x284d @0x8
0x2845…285e at0009 = ╱45╱E╱ // 0x284e @0x9
0x2845…285e at000a = ╱44╱D╱ // 0x284f @0xa
0x2845…285e at000b = ╱f0╱ := ╱ // 0x2850 @0xb
0x2845…285e at000c = ╱50╱P╱ // 0x2851 @0xc
0x2845…285e at000d = ╱5f╱_╱ // 0x2852 @0xd
0x2845…285e at000e = ╱4b╱K╱ // 0x2853 @0xe
0x2845…285e at000f = ╱52╱R╱ // 0x2854 @0xf
0x2845…285e at0010 = ╱45╱E╱ // 0x2855 @0x10
0x2845…285e at0011 = ╱44╱D╱ // 0x2856 @0x11
0x2845…285e at0012 = ╱e5╱ + ╱ // 0x2857 @0x12
0x2845…285e at0013 = ╱50╱P╱ // 0x2858 @0x13
0x2845…285e at0014 = ╱5f╱_╱ // 0x2859 @0x14
0x2845…285e at0015 = ╱42╱B╱ // 0x285a @0x15
0x2845…285e at0016 = ╱4b╱K╱ // 0x285b @0x16
0x2845…285e at0017 = ╱52╱R╱ // 0x285c @0x17
0x2845…285e at0018 = EOL // 0x285d @0x18
0x2845…285e }
0x285e…2864 be52 04140 ENDIF
0x285e…2864 LineComal80 {
0x285e…2864 ptr = 0xbe52 // 0x285e @0x0
0x285e…2864 lno = 0x102c // 0x2860 @0x2
0x285e…2864 at0004 = ╱9c╱ ENDIF ╱ // 0x2862 @0x4
0x285e…2864 at0005 = EOL // 0x2863 @0x5
0x285e…2864 }
0x2864…2874 be62 04150 EXEC SKRIV_DIFF
0x2864…2874 LineComal80 {
0x2864…2874 ptr = 0xbe62 // 0x2864 @0x0
0x2864…2874 lno = 0x1036 // 0x2866 @0x2
0x2864…2874 at0004 = ╱9d╱ EXEC ╱ // 0x2868 @0x4
0x2864…2874 at0005 = ╱53╱S╱ // 0x2869 @0x5
0x2864…2874 at0006 = ╱4b╱K╱ // 0x286a @0x6
0x2864…2874 at0007 = ╱52╱R╱ // 0x286b @0x7
0x2864…2874 at0008 = ╱49╱I╱ // 0x286c @0x8
0x2864…2874 at0009 = ╱56╱V╱ // 0x286d @0x9
0x2864…2874 at000a = ╱5f╱_╱ // 0x286e @0xa
0x2864…2874 at000b = ╱44╱D╱ // 0x286f @0xb
0x2864…2874 at000c = ╱49╱I╱ // 0x2870 @0xc
0x2864…2874 at000d = ╱46╱F╱ // 0x2871 @0xd
0x2864…2874 at000e = ╱46╱F╱ // 0x2872 @0xe
0x2864…2874 at000f = EOL // 0x2873 @0xf
0x2864…2874 }
0x2874…28b9 bea7 04160 PUT DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
0x2874…28b9 LineComal80 {
0x2874…28b9 ptr = 0xbea7 // 0x2874 @0x0
0x2874…28b9 lno = 0x1040 // 0x2876 @0x2
0x2874…28b9 at0004 = ╱aa╱ PUT ╱ // 0x2878 @0x4
0x2874…28b9 at0005 = ╱44╱D╱ // 0x2879 @0x5
0x2874…28b9 at0006 = ╱47╱G╱ // 0x287a @0x6
0x2874…28b9 at0007 = ╱5f╱_╱ // 0x287b @0x7
0x2874…28b9 at0008 = ╱50╱P╱ // 0x287c @0x8
0x2874…28b9 at0009 = ╱4f╱O╱ // 0x287d @0x9
0x2874…28b9 at000a = ╱53╱S╱ // 0x287e @0xa
0x2874…28b9 at000b = ╱ef╱ $ ╱ // 0x287f @0xb
0x2874…28b9 at000c = ╱ec╱ , ╱ // 0x2880 @0xc
0x2874…28b9 at000d = ╱31╱1╱ // 0x2881 @0xd
0x2874…28b9 at000e = ╱f20100╱ // 0x2882 @0xe
0x2874…28b9 at0011 = ╱f1╱ : ╱ // 0x2885 @0x11
0x2874…28b9 at0012 = ╱50╱P╱ // 0x2886 @0x12
0x2874…28b9 at0013 = ╱5f╱_╱ // 0x2887 @0x13
0x2874…28b9 at0014 = ╱48╱H╱ // 0x2888 @0x14
0x2874…28b9 at0015 = ╱5c╱\╱ // 0x2889 @0x15
0x2874…28b9 at0016 = ╱4a╱J╱ // 0x288a @0x16
0x2874…28b9 at0017 = ╱52╱R╱ // 0x288b @0x17
0x2874…28b9 at0018 = ╱45╱E╱ // 0x288c @0x18
0x2874…28b9 at0019 = ╱43╱C╱ // 0x288d @0x19
0x2874…28b9 at001a = ╱ec╱ , ╱ // 0x288e @0x1a
0x2874…28b9 at001b = ╱50╱P╱ // 0x288f @0x1b
0x2874…28b9 at001c = ╱5f╱_╱ // 0x2890 @0x1c
0x2874…28b9 at001d = ╱4d╱M╱ // 0x2891 @0x1d
0x2874…28b9 at001e = ╱41╱A╱ // 0x2892 @0x1e
0x2874…28b9 at001f = ╱58╱X╱ // 0x2893 @0x1f
0x2874…28b9 at0020 = ╱52╱R╱ // 0x2894 @0x20
0x2874…28b9 at0021 = ╱45╱E╱ // 0x2895 @0x21
0x2874…28b9 at0022 = ╱43╱C╱ // 0x2896 @0x22
0x2874…28b9 at0023 = ╱ec╱ , ╱ // 0x2897 @0x23
0x2874…28b9 at0024 = ╱53╱S╱ // 0x2898 @0x24
0x2874…28b9 at0025 = ╱5f╱_╱ // 0x2899 @0x25
0x2874…28b9 at0026 = ╱4e╱N╱ // 0x289a @0x26
0x2874…28b9 at0027 = ╱52╱R╱ // 0x289b @0x27
0x2874…28b9 at0028 = ╱5f╱_╱ // 0x289c @0x28
0x2874…28b9 at0029 = ╱44╱D╱ // 0x289d @0x29
0x2874…28b9 at002a = ╱47╱G╱ // 0x289e @0x2a
0x2874…28b9 at002b = ╱5f╱_╱ // 0x289f @0x2b
0x2874…28b9 at002c = ╱50╱P╱ // 0x28a0 @0x2c
0x2874…28b9 at002d = ╱4f╱O╱ // 0x28a1 @0x2d
0x2874…28b9 at002e = ╱53╱S╱ // 0x28a2 @0x2e
0x2874…28b9 at002f = ╱ec╱ , ╱ // 0x28a3 @0x2f
0x2874…28b9 at0030 = ╱50╱P╱ // 0x28a4 @0x30
0x2874…28b9 at0031 = ╱5f╱_╱ // 0x28a5 @0x31
0x2874…28b9 at0032 = ╱44╱D╱ // 0x28a6 @0x32
0x2874…28b9 at0033 = ╱45╱E╱ // 0x28a7 @0x33
0x2874…28b9 at0034 = ╱42╱B╱ // 0x28a8 @0x34
0x2874…28b9 at0035 = ╱ec╱ , ╱ // 0x28a9 @0x35
0x2874…28b9 at0036 = ╱50╱P╱ // 0x28aa @0x36
0x2874…28b9 at0037 = ╱5f╱_╱ // 0x28ab @0x37
0x2874…28b9 at0038 = ╱4b╱K╱ // 0x28ac @0x38
0x2874…28b9 at0039 = ╱52╱R╱ // 0x28ad @0x39
0x2874…28b9 at003a = ╱45╱E╱ // 0x28ae @0x3a
0x2874…28b9 at003b = ╱44╱D╱ // 0x28af @0x3b
0x2874…28b9 at003c = ╱ec╱ , ╱ // 0x28b0 @0x3c
0x2874…28b9 at003d = ╱50╱P╱ // 0x28b1 @0x3d
0x2874…28b9 at003e = ╱5f╱_╱ // 0x28b2 @0x3e
0x2874…28b9 at003f = ╱42╱B╱ // 0x28b3 @0x3f
0x2874…28b9 at0040 = ╱44╱D╱ // 0x28b4 @0x40
0x2874…28b9 at0041 = ╱41╱A╱ // 0x28b5 @0x41
0x2874…28b9 at0042 = ╱54╱T╱ // 0x28b6 @0x42
0x2874…28b9 at0043 = ╱ef╱ $ ╱ // 0x28b7 @0x43
0x2874…28b9 at0044 = EOL // 0x28b8 @0x44
0x2874…28b9 }
0x28b9…28d2 bec0 04170 EXEC SKRIV_DG_POS ( R_LIN )
0x28b9…28d2 LineComal80 {
0x28b9…28d2 ptr = 0xbec0 // 0x28b9 @0x0
0x28b9…28d2 lno = 0x104a // 0x28bb @0x2
0x28b9…28d2 at0004 = ╱9d╱ EXEC ╱ // 0x28bd @0x4
0x28b9…28d2 at0005 = ╱53╱S╱ // 0x28be @0x5
0x28b9…28d2 at0006 = ╱4b╱K╱ // 0x28bf @0x6
0x28b9…28d2 at0007 = ╱52╱R╱ // 0x28c0 @0x7
0x28b9…28d2 at0008 = ╱49╱I╱ // 0x28c1 @0x8
0x28b9…28d2 at0009 = ╱56╱V╱ // 0x28c2 @0x9
0x28b9…28d2 at000a = ╱5f╱_╱ // 0x28c3 @0xa
0x28b9…28d2 at000b = ╱44╱D╱ // 0x28c4 @0xb
0x28b9…28d2 at000c = ╱47╱G╱ // 0x28c5 @0xc
0x28b9…28d2 at000d = ╱5f╱_╱ // 0x28c6 @0xd
0x28b9…28d2 at000e = ╱50╱P╱ // 0x28c7 @0xe
0x28b9…28d2 at000f = ╱4f╱O╱ // 0x28c8 @0xf
0x28b9…28d2 at0010 = ╱53╱S╱ // 0x28c9 @0x10
0x28b9…28d2 at0011 = ╱ed╱ ( ╱ // 0x28ca @0x11
0x28b9…28d2 at0012 = ╱52╱R╱ // 0x28cb @0x12
0x28b9…28d2 at0013 = ╱5f╱_╱ // 0x28cc @0x13
0x28b9…28d2 at0014 = ╱4c╱L╱ // 0x28cd @0x14
0x28b9…28d2 at0015 = ╱49╱I╱ // 0x28ce @0x15
0x28b9…28d2 at0016 = ╱4e╱N╱ // 0x28cf @0x16
0x28b9…28d2 at0017 = ╱ee╱ ) ╱ // 0x28d0 @0x17
0x28b9…28d2 at0018 = EOL // 0x28d1 @0x18
0x28b9…28d2 }
0x28d2…28e4 bed2 04180 EXEC SL_FEJLLINIE
0x28d2…28e4 LineComal80 {
0x28d2…28e4 ptr = 0xbed2 // 0x28d2 @0x0
0x28d2…28e4 lno = 0x1054 // 0x28d4 @0x2
0x28d2…28e4 at0004 = ╱9d╱ EXEC ╱ // 0x28d6 @0x4
0x28d2…28e4 at0005 = ╱53╱S╱ // 0x28d7 @0x5
0x28d2…28e4 at0006 = ╱4c╱L╱ // 0x28d8 @0x6
0x28d2…28e4 at0007 = ╱5f╱_╱ // 0x28d9 @0x7
0x28d2…28e4 at0008 = ╱46╱F╱ // 0x28da @0x8
0x28d2…28e4 at0009 = ╱45╱E╱ // 0x28db @0x9
0x28d2…28e4 at000a = ╱4a╱J╱ // 0x28dc @0xa
0x28d2…28e4 at000b = ╱4c╱L╱ // 0x28dd @0xb
0x28d2…28e4 at000c = ╱4c╱L╱ // 0x28de @0xc
0x28d2…28e4 at000d = ╱49╱I╱ // 0x28df @0xd
0x28d2…28e4 at000e = ╱4e╱N╱ // 0x28e0 @0xe
0x28d2…28e4 at000f = ╱49╱I╱ // 0x28e1 @0xf
0x28d2…28e4 at0010 = ╱45╱E╱ // 0x28e2 @0x10
0x28d2…28e4 at0011 = EOL // 0x28e3 @0x11
0x28d2…28e4 }
0x28e4…28f2 bee0 04190 ENDPROC EDIT_LIN
0x28e4…28f2 LineComal80 {
0x28e4…28f2 ptr = 0xbee0 // 0x28e4 @0x0
0x28e4…28f2 lno = 0x105e // 0x28e6 @0x2
0x28e4…28f2 at0004 = ╱9f╱ ENDPROC ╱ // 0x28e8 @0x4
0x28e4…28f2 at0005 = ╱45╱E╱ // 0x28e9 @0x5
0x28e4…28f2 at0006 = ╱44╱D╱ // 0x28ea @0x6
0x28e4…28f2 at0007 = ╱49╱I╱ // 0x28eb @0x7
0x28e4…28f2 at0008 = ╱54╱T╱ // 0x28ec @0x8
0x28e4…28f2 at0009 = ╱5f╱_╱ // 0x28ed @0x9
0x28e4…28f2 at000a = ╱4c╱L╱ // 0x28ee @0xa
0x28e4…28f2 at000b = ╱49╱I╱ // 0x28ef @0xb
0x28e4…28f2 at000c = ╱4e╱N╱ // 0x28f0 @0xc
0x28e4…28f2 at000d = EOL // 0x28f1 @0xd
0x28e4…28f2 }
0x28f2…28f7 bee5 04200
0x28f2…28f7 LineComal80 {
0x28f2…28f7 ptr = 0xbee5 // 0x28f2 @0x0
0x28f2…28f7 lno = 0x1068 // 0x28f4 @0x2
0x28f2…28f7 at0004 = EOL // 0x28f6 @0x4
0x28f2…28f7 }
0x28f7…2908 bef6 04210 PROC SKRIV_DIFF
0x28f7…2908 LineComal80 {
0x28f7…2908 ptr = 0xbef6 // 0x28f7 @0x0
0x28f7…2908 lno = 0x1072 // 0x28f9 @0x2
0x28f7…2908 at0004 = ╱9e50╱ PROC ╱ // 0x28fb @0x4
0x28f7…2908 at0006 = ╱53╱S╱ // 0x28fd @0x6
0x28f7…2908 at0007 = ╱4b╱K╱ // 0x28fe @0x7
0x28f7…2908 at0008 = ╱52╱R╱ // 0x28ff @0x8
0x28f7…2908 at0009 = ╱49╱I╱ // 0x2900 @0x9
0x28f7…2908 at000a = ╱56╱V╱ // 0x2901 @0xa
0x28f7…2908 at000b = ╱5f╱_╱ // 0x2902 @0xb
0x28f7…2908 at000c = ╱44╱D╱ // 0x2903 @0xc
0x28f7…2908 at000d = ╱49╱I╱ // 0x2904 @0xd
0x28f7…2908 at000e = ╱46╱F╱ // 0x2905 @0xe
0x28f7…2908 at000f = ╱46╱F╱ // 0x2906 @0xf
0x28f7…2908 at0010 = EOL // 0x2907 @0x10
0x28f7…2908 }
0x2908…291d bf0b 04220 PRINT "<SC0120>" ; SPC $
0x2908…291d LineComal80 {
0x2908…291d ptr = 0xbf0b // 0x2908 @0x0
0x2908…291d lno = 0x107c // 0x290a @0x2
0x2908…291d at0004 = ╱92╱ PRINT ╱ // 0x290c @0x4
0x2908…291d at0005 = ╱22╱"╱ // 0x290d @0x5
0x2908…291d at0006 = ╱3c╱<╱ // 0x290e @0x6
0x2908…291d at0007 = ╱53╱S╱ // 0x290f @0x7
0x2908…291d at0008 = ╱43╱C╱ // 0x2910 @0x8
0x2908…291d at0009 = ╱30╱0╱ // 0x2911 @0x9
0x2908…291d at000a = ╱31╱1╱ // 0x2912 @0xa
0x2908…291d at000b = ╱32╱2╱ // 0x2913 @0xb
0x2908…291d at000c = ╱30╱0╱ // 0x2914 @0xc
0x2908…291d at000d = ╱3e╱>╱ // 0x2915 @0xd
0x2908…291d at000e = ╱22╱"╱ // 0x2916 @0xe
0x2908…291d at000f = ╱ea╱ ; ╱ // 0x2917 @0xf
0x2908…291d at0010 = ╱53╱S╱ // 0x2918 @0x10
0x2908…291d at0011 = ╱50╱P╱ // 0x2919 @0x11
0x2908…291d at0012 = ╱43╱C╱ // 0x291a @0x12
0x2908…291d at0013 = ╱ef╱ $ ╱ // 0x291b @0x13
0x2908…291d at0014 = EOL // 0x291c @0x14
0x2908…291d }
0x291d…2932 bf20 04230 PRINT "<SC0121>" ; SPC $
0x291d…2932 LineComal80 {
0x291d…2932 ptr = 0xbf20 // 0x291d @0x0
0x291d…2932 lno = 0x1086 // 0x291f @0x2
0x291d…2932 at0004 = ╱92╱ PRINT ╱ // 0x2921 @0x4
0x291d…2932 at0005 = ╱22╱"╱ // 0x2922 @0x5
0x291d…2932 at0006 = ╱3c╱<╱ // 0x2923 @0x6
0x291d…2932 at0007 = ╱53╱S╱ // 0x2924 @0x7
0x291d…2932 at0008 = ╱43╱C╱ // 0x2925 @0x8
0x291d…2932 at0009 = ╱30╱0╱ // 0x2926 @0x9
0x291d…2932 at000a = ╱31╱1╱ // 0x2927 @0xa
0x291d…2932 at000b = ╱32╱2╱ // 0x2928 @0xb
0x291d…2932 at000c = ╱31╱1╱ // 0x2929 @0xc
0x291d…2932 at000d = ╱3e╱>╱ // 0x292a @0xd
0x291d…2932 at000e = ╱22╱"╱ // 0x292b @0xe
0x291d…2932 at000f = ╱ea╱ ; ╱ // 0x292c @0xf
0x291d…2932 at0010 = ╱53╱S╱ // 0x292d @0x10
0x291d…2932 at0011 = ╱50╱P╱ // 0x292e @0x11
0x291d…2932 at0012 = ╱43╱C╱ // 0x292f @0x12
0x291d…2932 at0013 = ╱ef╱ $ ╱ // 0x2930 @0x13
0x291d…2932 at0014 = EOL // 0x2931 @0x14
0x291d…2932 }
0x2932…296e bf5c 04240 PRINT "<SC2220>Debet/kredit…total…………………" ; CHR$ ( P_DEB , 9 , 2 )
0x2932…296e LineComal80 {
0x2932…296e ptr = 0xbf5c // 0x2932 @0x0
0x2932…296e lno = 0x1090 // 0x2934 @0x2
0x2932…296e at0004 = ╱92╱ PRINT ╱ // 0x2936 @0x4
0x2932…296e at0005 = ╱22╱"╱ // 0x2937 @0x5
0x2932…296e at0006 = ╱3c╱<╱ // 0x2938 @0x6
0x2932…296e at0007 = ╱53╱S╱ // 0x2939 @0x7
0x2932…296e at0008 = ╱43╱C╱ // 0x293a @0x8
0x2932…296e at0009 = ╱32╱2╱ // 0x293b @0x9
0x2932…296e at000a = ╱32╱2╱ // 0x293c @0xa
0x2932…296e at000b = ╱32╱2╱ // 0x293d @0xb
0x2932…296e at000c = ╱30╱0╱ // 0x293e @0xc
0x2932…296e at000d = ╱3e╱>╱ // 0x293f @0xd
0x2932…296e at000e = ╱44╱D╱ // 0x2940 @0xe
0x2932…296e at000f = ╱65╱e╱ // 0x2941 @0xf
0x2932…296e at0010 = ╱62╱b╱ // 0x2942 @0x10
0x2932…296e at0011 = ╱65╱e╱ // 0x2943 @0x11
0x2932…296e at0012 = ╱74╱t╱ // 0x2944 @0x12
0x2932…296e at0013 = ╱2f╱/╱ // 0x2945 @0x13
0x2932…296e at0014 = ╱6b╱k╱ // 0x2946 @0x14
0x2932…296e at0015 = ╱72╱r╱ // 0x2947 @0x15
0x2932…296e at0016 = ╱65╱e╱ // 0x2948 @0x16
0x2932…296e at0017 = ╱64╱d╱ // 0x2949 @0x17
0x2932…296e at0018 = ╱69╱i╱ // 0x294a @0x18
0x2932…296e at0019 = ╱74╱t╱ // 0x294b @0x19
0x2932…296e at001a = ╱20╱…╱ // 0x294c @0x1a
0x2932…296e at001b = ╱74╱t╱ // 0x294d @0x1b
0x2932…296e at001c = ╱6f╱o╱ // 0x294e @0x1c
0x2932…296e at001d = ╱74╱t╱ // 0x294f @0x1d
0x2932…296e at001e = ╱61╱a╱ // 0x2950 @0x1e
0x2932…296e at001f = ╱6c╱l╱ // 0x2951 @0x1f
0x2932…296e at0020 = ╱20╱…╱ // 0x2952 @0x20
0x2932…296e at0021 = ╱20╱…╱ // 0x2953 @0x21
0x2932…296e at0022 = ╱20╱…╱ // 0x2954 @0x22
0x2932…296e at0023 = ╱20╱…╱ // 0x2955 @0x23
0x2932…296e at0024 = ╱20╱…╱ // 0x2956 @0x24
0x2932…296e at0025 = ╱20╱…╱ // 0x2957 @0x25
0x2932…296e at0026 = ╱20╱…╱ // 0x2958 @0x26
0x2932…296e at0027 = ╱22╱"╱ // 0x2959 @0x27
0x2932…296e at0028 = ╱ea╱ ; ╱ // 0x295a @0x28
0x2932…296e at0029 = ╱d0╱ CHR$ ╱ // 0x295b @0x29
0x2932…296e at002a = ╱ed╱ ( ╱ // 0x295c @0x2a
0x2932…296e at002b = ╱50╱P╱ // 0x295d @0x2b
0x2932…296e at002c = ╱5f╱_╱ // 0x295e @0x2c
0x2932…296e at002d = ╱44╱D╱ // 0x295f @0x2d
0x2932…296e at002e = ╱45╱E╱ // 0x2960 @0x2e
0x2932…296e at002f = ╱42╱B╱ // 0x2961 @0x2f
0x2932…296e at0030 = ╱ec╱ , ╱ // 0x2962 @0x30
0x2932…296e at0031 = ╱39╱9╱ // 0x2963 @0x31
0x2932…296e at0032 = ╱f20900╱ // 0x2964 @0x32
0x2932…296e at0035 = ╱ec╱ , ╱ // 0x2967 @0x35
0x2932…296e at0036 = ╱32╱2╱ // 0x2968 @0x36
0x2932…296e at0037 = ╱f20200╱ // 0x2969 @0x37
0x2932…296e at003a = ╱ee╱ ) ╱ // 0x296c @0x3a
0x2932…296e at003b = EOL // 0x296d @0x3b
0x2932…296e }
0x296e…2987 bf75 04250 PRINT CHR$ ( P_KRED , 9 , 2 )
0x296e…2987 LineComal80 {
0x296e…2987 ptr = 0xbf75 // 0x296e @0x0
0x296e…2987 lno = 0x109a // 0x2970 @0x2
0x296e…2987 at0004 = ╱92╱ PRINT ╱ // 0x2972 @0x4
0x296e…2987 at0005 = ╱d0╱ CHR$ ╱ // 0x2973 @0x5
0x296e…2987 at0006 = ╱ed╱ ( ╱ // 0x2974 @0x6
0x296e…2987 at0007 = ╱50╱P╱ // 0x2975 @0x7
0x296e…2987 at0008 = ╱5f╱_╱ // 0x2976 @0x8
0x296e…2987 at0009 = ╱4b╱K╱ // 0x2977 @0x9
0x296e…2987 at000a = ╱52╱R╱ // 0x2978 @0xa
0x296e…2987 at000b = ╱45╱E╱ // 0x2979 @0xb
0x296e…2987 at000c = ╱44╱D╱ // 0x297a @0xc
0x296e…2987 at000d = ╱ec╱ , ╱ // 0x297b @0xd
0x296e…2987 at000e = ╱39╱9╱ // 0x297c @0xe
0x296e…2987 at000f = ╱f20900╱ // 0x297d @0xf
0x296e…2987 at0012 = ╱ec╱ , ╱ // 0x2980 @0x12
0x296e…2987 at0013 = ╱32╱2╱ // 0x2981 @0x13
0x296e…2987 at0014 = ╱f20200╱ // 0x2982 @0x14
0x296e…2987 at0017 = ╱ee╱ ) ╱ // 0x2985 @0x17
0x296e…2987 at0018 = EOL // 0x2986 @0x18
0x296e…2987 }
0x2987…299b bf89 04260 IF _DEB < P_KRED THEN
0x2987…299b LineComal80 {
0x2987…299b ptr = 0xbf89 // 0x2987 @0x0
0x2987…299b lno = 0x10a4 // 0x2989 @0x2
0x2987…299b at0004 = ╱9b5150╱ IF ╱ // 0x298b @0x4
0x2987…299b at0007 = ╱5f╱_╱ // 0x298e @0x7
0x2987…299b at0008 = ╱44╱D╱ // 0x298f @0x8
0x2987…299b at0009 = ╱45╱E╱ // 0x2990 @0x9
0x2987…299b at000a = ╱42╱B╱ // 0x2991 @0xa
0x2987…299b at000b = ╱e0╱ < ╱ // 0x2992 @0xb
0x2987…299b at000c = ╱50╱P╱ // 0x2993 @0xc
0x2987…299b at000d = ╱5f╱_╱ // 0x2994 @0xd
0x2987…299b at000e = ╱4b╱K╱ // 0x2995 @0xe
0x2987…299b at000f = ╱52╱R╱ // 0x2996 @0xf
0x2987…299b at0010 = ╱45╱E╱ // 0x2997 @0x10
0x2987…299b at0011 = ╱44╱D╱ // 0x2998 @0x11
0x2987…299b at0012 = ╱b5╱ THEN ╱ // 0x2999 @0x12
0x2987…299b at0013 = EOL // 0x299a @0x13
0x2987…299b }
0x299b…29de bfcc 04270 PRINT "<SC2221>Difference………………………………………" ; CHR$ ( P_KRED - P_DEB , 9 , 2 )
0x299b…29de LineComal80 {
0x299b…29de ptr = 0xbfcc // 0x299b @0x0
0x299b…29de lno = 0x10ae // 0x299d @0x2
0x299b…29de at0004 = ╱92╱ PRINT ╱ // 0x299f @0x4
0x299b…29de at0005 = ╱22╱"╱ // 0x29a0 @0x5
0x299b…29de at0006 = ╱3c╱<╱ // 0x29a1 @0x6
0x299b…29de at0007 = ╱53╱S╱ // 0x29a2 @0x7
0x299b…29de at0008 = ╱43╱C╱ // 0x29a3 @0x8
0x299b…29de at0009 = ╱32╱2╱ // 0x29a4 @0x9
0x299b…29de at000a = ╱32╱2╱ // 0x29a5 @0xa
0x299b…29de at000b = ╱32╱2╱ // 0x29a6 @0xb
0x299b…29de at000c = ╱31╱1╱ // 0x29a7 @0xc
0x299b…29de at000d = ╱3e╱>╱ // 0x29a8 @0xd
0x299b…29de at000e = ╱44╱D╱ // 0x29a9 @0xe
0x299b…29de at000f = ╱69╱i╱ // 0x29aa @0xf
0x299b…29de at0010 = ╱66╱f╱ // 0x29ab @0x10
0x299b…29de at0011 = ╱66╱f╱ // 0x29ac @0x11
0x299b…29de at0012 = ╱65╱e╱ // 0x29ad @0x12
0x299b…29de at0013 = ╱72╱r╱ // 0x29ae @0x13
0x299b…29de at0014 = ╱65╱e╱ // 0x29af @0x14
0x299b…29de at0015 = ╱6e╱n╱ // 0x29b0 @0x15
0x299b…29de at0016 = ╱63╱c╱ // 0x29b1 @0x16
0x299b…29de at0017 = ╱65╱e╱ // 0x29b2 @0x17
0x299b…29de at0018 = ╱20╱…╱ // 0x29b3 @0x18
0x299b…29de at0019 = ╱20╱…╱ // 0x29b4 @0x19
0x299b…29de at001a = ╱20╱…╱ // 0x29b5 @0x1a
0x299b…29de at001b = ╱20╱…╱ // 0x29b6 @0x1b
0x299b…29de at001c = ╱20╱…╱ // 0x29b7 @0x1c
0x299b…29de at001d = ╱20╱…╱ // 0x29b8 @0x1d
0x299b…29de at001e = ╱20╱…╱ // 0x29b9 @0x1e
0x299b…29de at001f = ╱20╱…╱ // 0x29ba @0x1f
0x299b…29de at0020 = ╱20╱…╱ // 0x29bb @0x20
0x299b…29de at0021 = ╱20╱…╱ // 0x29bc @0x21
0x299b…29de at0022 = ╱20╱…╱ // 0x29bd @0x22
0x299b…29de at0023 = ╱20╱…╱ // 0x29be @0x23
0x299b…29de at0024 = ╱20╱…╱ // 0x29bf @0x24
0x299b…29de at0025 = ╱20╱…╱ // 0x29c0 @0x25
0x299b…29de at0026 = ╱20╱…╱ // 0x29c1 @0x26
0x299b…29de at0027 = ╱22╱"╱ // 0x29c2 @0x27
0x299b…29de at0028 = ╱ea╱ ; ╱ // 0x29c3 @0x28
0x299b…29de at0029 = ╱d0╱ CHR$ ╱ // 0x29c4 @0x29
0x299b…29de at002a = ╱ed╱ ( ╱ // 0x29c5 @0x2a
0x299b…29de at002b = ╱50╱P╱ // 0x29c6 @0x2b
0x299b…29de at002c = ╱5f╱_╱ // 0x29c7 @0x2c
0x299b…29de at002d = ╱4b╱K╱ // 0x29c8 @0x2d
0x299b…29de at002e = ╱52╱R╱ // 0x29c9 @0x2e
0x299b…29de at002f = ╱45╱E╱ // 0x29ca @0x2f
0x299b…29de at0030 = ╱44╱D╱ // 0x29cb @0x30
0x299b…29de at0031 = ╱e6╱ - ╱ // 0x29cc @0x31
0x299b…29de at0032 = ╱50╱P╱ // 0x29cd @0x32
0x299b…29de at0033 = ╱5f╱_╱ // 0x29ce @0x33
0x299b…29de at0034 = ╱44╱D╱ // 0x29cf @0x34
0x299b…29de at0035 = ╱45╱E╱ // 0x29d0 @0x35
0x299b…29de at0036 = ╱42╱B╱ // 0x29d1 @0x36
0x299b…29de at0037 = ╱ec╱ , ╱ // 0x29d2 @0x37
0x299b…29de at0038 = ╱39╱9╱ // 0x29d3 @0x38
0x299b…29de at0039 = ╱f20900╱ // 0x29d4 @0x39
0x299b…29de at003c = ╱ec╱ , ╱ // 0x29d7 @0x3c
0x299b…29de at003d = ╱32╱2╱ // 0x29d8 @0x3d
0x299b…29de at003e = ╱f20200╱ // 0x29d9 @0x3e
0x299b…29de at0041 = ╱ee╱ ) ╱ // 0x29dc @0x41
0x299b…29de at0042 = EOL // 0x29dd @0x42
0x299b…29de }
0x29de…29e5 bfd3 04280 ELSE
0x29de…29e5 LineComal80 {
0x29de…29e5 ptr = 0xbfd3 // 0x29de @0x0
0x29de…29e5 lno = 0x10b8 // 0x29e0 @0x2
0x29de…29e5 at0004 = ╱9a52╱ ELSE ╱ // 0x29e2 @0x4
0x29de…29e5 at0006 = EOL // 0x29e4 @0x6
0x29de…29e5 }
0x29e5…29f9 bfe7 04290 IF _KRED < P_DEB THEN
0x29e5…29f9 LineComal80 {
0x29e5…29f9 ptr = 0xbfe7 // 0x29e5 @0x0
0x29e5…29f9 lno = 0x10c2 // 0x29e7 @0x2
0x29e5…29f9 at0004 = ╱9b5350╱ IF ╱ // 0x29e9 @0x4
0x29e5…29f9 at0007 = ╱5f╱_╱ // 0x29ec @0x7
0x29e5…29f9 at0008 = ╱4b╱K╱ // 0x29ed @0x8
0x29e5…29f9 at0009 = ╱52╱R╱ // 0x29ee @0x9
0x29e5…29f9 at000a = ╱45╱E╱ // 0x29ef @0xa
0x29e5…29f9 at000b = ╱44╱D╱ // 0x29f0 @0xb
0x29e5…29f9 at000c = ╱e0╱ < ╱ // 0x29f1 @0xc
0x29e5…29f9 at000d = ╱50╱P╱ // 0x29f2 @0xd
0x29e5…29f9 at000e = ╱5f╱_╱ // 0x29f3 @0xe
0x29e5…29f9 at000f = ╱44╱D╱ // 0x29f4 @0xf
0x29e5…29f9 at0010 = ╱45╱E╱ // 0x29f5 @0x10
0x29e5…29f9 at0011 = ╱42╱B╱ // 0x29f6 @0x11
0x29e5…29f9 at0012 = ╱b5╱ THEN ╱ // 0x29f7 @0x12
0x29e5…29f9 at0013 = EOL // 0x29f8 @0x13
0x29e5…29f9 }
0x29f9…2a13 c001 04300 PRINT "<SC2221>Difference"
0x29f9…2a13 LineComal80 {
0x29f9…2a13 ptr = 0xc001 // 0x29f9 @0x0
0x29f9…2a13 lno = 0x10cc // 0x29fb @0x2
0x29f9…2a13 at0004 = ╱92╱ PRINT ╱ // 0x29fd @0x4
0x29f9…2a13 at0005 = ╱22╱"╱ // 0x29fe @0x5
0x29f9…2a13 at0006 = ╱3c╱<╱ // 0x29ff @0x6
0x29f9…2a13 at0007 = ╱53╱S╱ // 0x2a00 @0x7
0x29f9…2a13 at0008 = ╱43╱C╱ // 0x2a01 @0x8
0x29f9…2a13 at0009 = ╱32╱2╱ // 0x2a02 @0x9
0x29f9…2a13 at000a = ╱32╱2╱ // 0x2a03 @0xa
0x29f9…2a13 at000b = ╱32╱2╱ // 0x2a04 @0xb
0x29f9…2a13 at000c = ╱31╱1╱ // 0x2a05 @0xc
0x29f9…2a13 at000d = ╱3e╱>╱ // 0x2a06 @0xd
0x29f9…2a13 at000e = ╱44╱D╱ // 0x2a07 @0xe
0x29f9…2a13 at000f = ╱69╱i╱ // 0x2a08 @0xf
0x29f9…2a13 at0010 = ╱66╱f╱ // 0x2a09 @0x10
0x29f9…2a13 at0011 = ╱66╱f╱ // 0x2a0a @0x11
0x29f9…2a13 at0012 = ╱65╱e╱ // 0x2a0b @0x12
0x29f9…2a13 at0013 = ╱72╱r╱ // 0x2a0c @0x13
0x29f9…2a13 at0014 = ╱65╱e╱ // 0x2a0d @0x14
0x29f9…2a13 at0015 = ╱6e╱n╱ // 0x2a0e @0x15
0x29f9…2a13 at0016 = ╱63╱c╱ // 0x2a0f @0x16
0x29f9…2a13 at0017 = ╱65╱e╱ // 0x2a10 @0x17
0x29f9…2a13 at0018 = ╱22╱"╱ // 0x2a11 @0x18
0x29f9…2a13 at0019 = EOL // 0x2a12 @0x19
0x29f9…2a13 }
0x2a13…2a3d c02b 04310 PRINT "<SC5921>" ; CHR$ ( P_DEB - P_KRED , 9 , 2 )
0x2a13…2a3d LineComal80 {
0x2a13…2a3d ptr = 0xc02b // 0x2a13 @0x0
0x2a13…2a3d lno = 0x10d6 // 0x2a15 @0x2
0x2a13…2a3d at0004 = ╱92╱ PRINT ╱ // 0x2a17 @0x4
0x2a13…2a3d at0005 = ╱22╱"╱ // 0x2a18 @0x5
0x2a13…2a3d at0006 = ╱3c╱<╱ // 0x2a19 @0x6
0x2a13…2a3d at0007 = ╱53╱S╱ // 0x2a1a @0x7
0x2a13…2a3d at0008 = ╱43╱C╱ // 0x2a1b @0x8
0x2a13…2a3d at0009 = ╱35╱5╱ // 0x2a1c @0x9
0x2a13…2a3d at000a = ╱39╱9╱ // 0x2a1d @0xa
0x2a13…2a3d at000b = ╱32╱2╱ // 0x2a1e @0xb
0x2a13…2a3d at000c = ╱31╱1╱ // 0x2a1f @0xc
0x2a13…2a3d at000d = ╱3e╱>╱ // 0x2a20 @0xd
0x2a13…2a3d at000e = ╱22╱"╱ // 0x2a21 @0xe
0x2a13…2a3d at000f = ╱ea╱ ; ╱ // 0x2a22 @0xf
0x2a13…2a3d at0010 = ╱d0╱ CHR$ ╱ // 0x2a23 @0x10
0x2a13…2a3d at0011 = ╱ed╱ ( ╱ // 0x2a24 @0x11
0x2a13…2a3d at0012 = ╱50╱P╱ // 0x2a25 @0x12
0x2a13…2a3d at0013 = ╱5f╱_╱ // 0x2a26 @0x13
0x2a13…2a3d at0014 = ╱44╱D╱ // 0x2a27 @0x14
0x2a13…2a3d at0015 = ╱45╱E╱ // 0x2a28 @0x15
0x2a13…2a3d at0016 = ╱42╱B╱ // 0x2a29 @0x16
0x2a13…2a3d at0017 = ╱e6╱ - ╱ // 0x2a2a @0x17
0x2a13…2a3d at0018 = ╱50╱P╱ // 0x2a2b @0x18
0x2a13…2a3d at0019 = ╱5f╱_╱ // 0x2a2c @0x19
0x2a13…2a3d at001a = ╱4b╱K╱ // 0x2a2d @0x1a
0x2a13…2a3d at001b = ╱52╱R╱ // 0x2a2e @0x1b
0x2a13…2a3d at001c = ╱45╱E╱ // 0x2a2f @0x1c
0x2a13…2a3d at001d = ╱44╱D╱ // 0x2a30 @0x1d
0x2a13…2a3d at001e = ╱ec╱ , ╱ // 0x2a31 @0x1e
0x2a13…2a3d at001f = ╱39╱9╱ // 0x2a32 @0x1f
0x2a13…2a3d at0020 = ╱f20900╱ // 0x2a33 @0x20
0x2a13…2a3d at0023 = ╱ec╱ , ╱ // 0x2a36 @0x23
0x2a13…2a3d at0024 = ╱32╱2╱ // 0x2a37 @0x24
0x2a13…2a3d at0025 = ╱f20200╱ // 0x2a38 @0x25
0x2a13…2a3d at0028 = ╱ee╱ ) ╱ // 0x2a3b @0x28
0x2a13…2a3d at0029 = EOL // 0x2a3c @0x29
0x2a13…2a3d }
0x2a3d…2a43 c031 04320 ENDIF
0x2a3d…2a43 LineComal80 {
0x2a3d…2a43 ptr = 0xc031 // 0x2a3d @0x0
0x2a3d…2a43 lno = 0x10e0 // 0x2a3f @0x2
0x2a3d…2a43 at0004 = ╱9c╱ ENDIF ╱ // 0x2a41 @0x4
0x2a3d…2a43 at0005 = EOL // 0x2a42 @0x5
0x2a3d…2a43 }
0x2a43…2a49 c037 04330 ENDIF
0x2a43…2a49 LineComal80 {
0x2a43…2a49 ptr = 0xc037 // 0x2a43 @0x0
0x2a43…2a49 lno = 0x10ea // 0x2a45 @0x2
0x2a43…2a49 at0004 = ╱9c╱ ENDIF ╱ // 0x2a47 @0x4
0x2a43…2a49 at0005 = EOL // 0x2a48 @0x5
0x2a43…2a49 }
0x2a49…2a59 c047 04340 ENDPROC SKRIV_DIFF
0x2a49…2a59 LineComal80 {
0x2a49…2a59 ptr = 0xc047 // 0x2a49 @0x0
0x2a49…2a59 lno = 0x10f4 // 0x2a4b @0x2
0x2a49…2a59 at0004 = ╱9f╱ ENDPROC ╱ // 0x2a4d @0x4
0x2a49…2a59 at0005 = ╱53╱S╱ // 0x2a4e @0x5
0x2a49…2a59 at0006 = ╱4b╱K╱ // 0x2a4f @0x6
0x2a49…2a59 at0007 = ╱52╱R╱ // 0x2a50 @0x7
0x2a49…2a59 at0008 = ╱49╱I╱ // 0x2a51 @0x8
0x2a49…2a59 at0009 = ╱56╱V╱ // 0x2a52 @0x9
0x2a49…2a59 at000a = ╱5f╱_╱ // 0x2a53 @0xa
0x2a49…2a59 at000b = ╱44╱D╱ // 0x2a54 @0xb
0x2a49…2a59 at000c = ╱49╱I╱ // 0x2a55 @0xc
0x2a49…2a59 at000d = ╱46╱F╱ // 0x2a56 @0xd
0x2a49…2a59 at000e = ╱46╱F╱ // 0x2a57 @0xe
0x2a49…2a59 at000f = EOL // 0x2a58 @0xf
0x2a49…2a59 }
0x2a59…2a5e c04c 04350
0x2a59…2a5e LineComal80 {
0x2a59…2a5e ptr = 0xc04c // 0x2a59 @0x0
0x2a59…2a5e lno = 0x10fe // 0x2a5b @0x2
0x2a59…2a5e at0004 = EOL // 0x2a5d @0x4
0x2a59…2a5e }
0x2a5e…2a6f c05d 04360 PROC RET_POSTER
0x2a5e…2a6f LineComal80 {
0x2a5e…2a6f ptr = 0xc05d // 0x2a5e @0x0
0x2a5e…2a6f lno = 0x1108 // 0x2a60 @0x2
0x2a5e…2a6f at0004 = ╱9e54╱ PROC ╱ // 0x2a62 @0x4
0x2a5e…2a6f at0006 = ╱52╱R╱ // 0x2a64 @0x6
0x2a5e…2a6f at0007 = ╱45╱E╱ // 0x2a65 @0x7
0x2a5e…2a6f at0008 = ╱54╱T╱ // 0x2a66 @0x8
0x2a5e…2a6f at0009 = ╱5f╱_╱ // 0x2a67 @0x9
0x2a5e…2a6f at000a = ╱50╱P╱ // 0x2a68 @0xa
0x2a5e…2a6f at000b = ╱4f╱O╱ // 0x2a69 @0xb
0x2a5e…2a6f at000c = ╱53╱S╱ // 0x2a6a @0xc
0x2a5e…2a6f at000d = ╱54╱T╱ // 0x2a6b @0xd
0x2a5e…2a6f at000e = ╱45╱E╱ // 0x2a6c @0xe
0x2a5e…2a6f at000f = ╱52╱R╱ // 0x2a6d @0xf
0x2a5e…2a6f at0010 = EOL // 0x2a6e @0x10
0x2a5e…2a6f }
0x2a6f…2ab4 c0a2 04370 GET DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
0x2a6f…2ab4 LineComal80 {
0x2a6f…2ab4 ptr = 0xc0a2 // 0x2a6f @0x0
0x2a6f…2ab4 lno = 0x1112 // 0x2a71 @0x2
0x2a6f…2ab4 at0004 = ╱a9╱ GET ╱ // 0x2a73 @0x4
0x2a6f…2ab4 at0005 = ╱44╱D╱ // 0x2a74 @0x5
0x2a6f…2ab4 at0006 = ╱47╱G╱ // 0x2a75 @0x6
0x2a6f…2ab4 at0007 = ╱5f╱_╱ // 0x2a76 @0x7
0x2a6f…2ab4 at0008 = ╱50╱P╱ // 0x2a77 @0x8
0x2a6f…2ab4 at0009 = ╱4f╱O╱ // 0x2a78 @0x9
0x2a6f…2ab4 at000a = ╱53╱S╱ // 0x2a79 @0xa
0x2a6f…2ab4 at000b = ╱ef╱ $ ╱ // 0x2a7a @0xb
0x2a6f…2ab4 at000c = ╱ec╱ , ╱ // 0x2a7b @0xc
0x2a6f…2ab4 at000d = ╱31╱1╱ // 0x2a7c @0xd
0x2a6f…2ab4 at000e = ╱f20100╱ // 0x2a7d @0xe
0x2a6f…2ab4 at0011 = ╱f1╱ : ╱ // 0x2a80 @0x11
0x2a6f…2ab4 at0012 = ╱50╱P╱ // 0x2a81 @0x12
0x2a6f…2ab4 at0013 = ╱5f╱_╱ // 0x2a82 @0x13
0x2a6f…2ab4 at0014 = ╱48╱H╱ // 0x2a83 @0x14
0x2a6f…2ab4 at0015 = ╱5c╱\╱ // 0x2a84 @0x15
0x2a6f…2ab4 at0016 = ╱4a╱J╱ // 0x2a85 @0x16
0x2a6f…2ab4 at0017 = ╱52╱R╱ // 0x2a86 @0x17
0x2a6f…2ab4 at0018 = ╱45╱E╱ // 0x2a87 @0x18
0x2a6f…2ab4 at0019 = ╱43╱C╱ // 0x2a88 @0x19
0x2a6f…2ab4 at001a = ╱ec╱ , ╱ // 0x2a89 @0x1a
0x2a6f…2ab4 at001b = ╱50╱P╱ // 0x2a8a @0x1b
0x2a6f…2ab4 at001c = ╱5f╱_╱ // 0x2a8b @0x1c
0x2a6f…2ab4 at001d = ╱4d╱M╱ // 0x2a8c @0x1d
0x2a6f…2ab4 at001e = ╱41╱A╱ // 0x2a8d @0x1e
0x2a6f…2ab4 at001f = ╱58╱X╱ // 0x2a8e @0x1f
0x2a6f…2ab4 at0020 = ╱52╱R╱ // 0x2a8f @0x20
0x2a6f…2ab4 at0021 = ╱45╱E╱ // 0x2a90 @0x21
0x2a6f…2ab4 at0022 = ╱43╱C╱ // 0x2a91 @0x22
0x2a6f…2ab4 at0023 = ╱ec╱ , ╱ // 0x2a92 @0x23
0x2a6f…2ab4 at0024 = ╱53╱S╱ // 0x2a93 @0x24
0x2a6f…2ab4 at0025 = ╱5f╱_╱ // 0x2a94 @0x25
0x2a6f…2ab4 at0026 = ╱4e╱N╱ // 0x2a95 @0x26
0x2a6f…2ab4 at0027 = ╱52╱R╱ // 0x2a96 @0x27
0x2a6f…2ab4 at0028 = ╱5f╱_╱ // 0x2a97 @0x28
0x2a6f…2ab4 at0029 = ╱44╱D╱ // 0x2a98 @0x29
0x2a6f…2ab4 at002a = ╱47╱G╱ // 0x2a99 @0x2a
0x2a6f…2ab4 at002b = ╱5f╱_╱ // 0x2a9a @0x2b
0x2a6f…2ab4 at002c = ╱50╱P╱ // 0x2a9b @0x2c
0x2a6f…2ab4 at002d = ╱4f╱O╱ // 0x2a9c @0x2d
0x2a6f…2ab4 at002e = ╱53╱S╱ // 0x2a9d @0x2e
0x2a6f…2ab4 at002f = ╱ec╱ , ╱ // 0x2a9e @0x2f
0x2a6f…2ab4 at0030 = ╱50╱P╱ // 0x2a9f @0x30
0x2a6f…2ab4 at0031 = ╱5f╱_╱ // 0x2aa0 @0x31
0x2a6f…2ab4 at0032 = ╱44╱D╱ // 0x2aa1 @0x32
0x2a6f…2ab4 at0033 = ╱45╱E╱ // 0x2aa2 @0x33
0x2a6f…2ab4 at0034 = ╱42╱B╱ // 0x2aa3 @0x34
0x2a6f…2ab4 at0035 = ╱ec╱ , ╱ // 0x2aa4 @0x35
0x2a6f…2ab4 at0036 = ╱50╱P╱ // 0x2aa5 @0x36
0x2a6f…2ab4 at0037 = ╱5f╱_╱ // 0x2aa6 @0x37
0x2a6f…2ab4 at0038 = ╱4b╱K╱ // 0x2aa7 @0x38
0x2a6f…2ab4 at0039 = ╱52╱R╱ // 0x2aa8 @0x39
0x2a6f…2ab4 at003a = ╱45╱E╱ // 0x2aa9 @0x3a
0x2a6f…2ab4 at003b = ╱44╱D╱ // 0x2aaa @0x3b
0x2a6f…2ab4 at003c = ╱ec╱ , ╱ // 0x2aab @0x3c
0x2a6f…2ab4 at003d = ╱50╱P╱ // 0x2aac @0x3d
0x2a6f…2ab4 at003e = ╱5f╱_╱ // 0x2aad @0x3e
0x2a6f…2ab4 at003f = ╱42╱B╱ // 0x2aae @0x3f
0x2a6f…2ab4 at0040 = ╱44╱D╱ // 0x2aaf @0x40
0x2a6f…2ab4 at0041 = ╱41╱A╱ // 0x2ab0 @0x41
0x2a6f…2ab4 at0042 = ╱54╱T╱ // 0x2ab1 @0x42
0x2a6f…2ab4 at0043 = ╱ef╱ $ ╱ // 0x2ab2 @0x43
0x2a6f…2ab4 at0044 = EOL // 0x2ab3 @0x44
0x2a6f…2ab4 }
0x2ab4…2ac0 c0ae 04380 LET K := 0
0x2ab4…2ac0 LineComal80 {
0x2ab4…2ac0 ptr = 0xc0ae // 0x2ab4 @0x0
0x2ab4…2ac0 lno = 0x111c // 0x2ab6 @0x2
0x2ab4…2ac0 at0004 = ╱86╱ LET ╱ // 0x2ab8 @0x4
0x2ab4…2ac0 at0005 = ╱4b╱K╱ // 0x2ab9 @0x5
0x2ab4…2ac0 at0006 = ╱f0╱ := ╱ // 0x2aba @0x6
0x2ab4…2ac0 at0007 = ╱30╱0╱ // 0x2abb @0x7
0x2ab4…2ac0 at0008 = ╱f20000╱ // 0x2abc @0x8
0x2ab4…2ac0 at000b = EOL // 0x2abf @0xb
0x2ab4…2ac0 }
0x2ac0…2ad7 c0c5 04390 WHILE K < P_H\JREC - 1 DO
0x2ac0…2ad7 LineComal80 {
0x2ac0…2ad7 ptr = 0xc0c5 // 0x2ac0 @0x0
0x2ac0…2ad7 lno = 0x1126 // 0x2ac2 @0x2
0x2ac0…2ad7 at0004 = ╱9355╱ WHILE ╱ // 0x2ac4 @0x4
0x2ac0…2ad7 at0006 = ╱4b╱K╱ // 0x2ac6 @0x6
0x2ac0…2ad7 at0007 = ╱e0╱ < ╱ // 0x2ac7 @0x7
0x2ac0…2ad7 at0008 = ╱50╱P╱ // 0x2ac8 @0x8
0x2ac0…2ad7 at0009 = ╱5f╱_╱ // 0x2ac9 @0x9
0x2ac0…2ad7 at000a = ╱48╱H╱ // 0x2aca @0xa
0x2ac0…2ad7 at000b = ╱5c╱\╱ // 0x2acb @0xb
0x2ac0…2ad7 at000c = ╱4a╱J╱ // 0x2acc @0xc
0x2ac0…2ad7 at000d = ╱52╱R╱ // 0x2acd @0xd
0x2ac0…2ad7 at000e = ╱45╱E╱ // 0x2ace @0xe
0x2ac0…2ad7 at000f = ╱43╱C╱ // 0x2acf @0xf
0x2ac0…2ad7 at0010 = ╱e6╱ - ╱ // 0x2ad0 @0x10
0x2ac0…2ad7 at0011 = ╱31╱1╱ // 0x2ad1 @0x11
0x2ac0…2ad7 at0012 = ╱f20100╱ // 0x2ad2 @0x12
0x2ac0…2ad7 at0015 = ╱bb╱ DO ╱ // 0x2ad5 @0x15
0x2ac0…2ad7 at0016 = EOL // 0x2ad6 @0x16
0x2ac0…2ad7 }
0x2ad7…2b00 c0ee 04400 IF ( K + 12 ) MOD 12 = 0 THEN EXEC DIV_POSHOVED
0x2ad7…2b00 LineComal80 {
0x2ad7…2b00 ptr = 0xc0ee // 0x2ad7 @0x0
0x2ad7…2b00 lno = 0x1130 // 0x2ad9 @0x2
0x2ad7…2b00 at0004 = ╱8200╱ IF ╱ // 0x2adb @0x4
0x2ad7…2b00 at0006 = ╱ed╱ ( ╱ // 0x2add @0x6
0x2ad7…2b00 at0007 = ╱4b╱K╱ // 0x2ade @0x7
0x2ad7…2b00 at0008 = ╱e5╱ + ╱ // 0x2adf @0x8
0x2ad7…2b00 at0009 = ╱31╱1╱ // 0x2ae0 @0x9
0x2ad7…2b00 at000a = ╱32╱2╱ // 0x2ae1 @0xa
0x2ad7…2b00 at000b = ╱f20c00╱ // 0x2ae2 @0xb
0x2ad7…2b00 at000e = ╱ee╱ ) ╱ // 0x2ae5 @0xe
0x2ad7…2b00 at000f = ╱db╱ MOD ╱ // 0x2ae6 @0xf
0x2ad7…2b00 at0010 = ╱31╱1╱ // 0x2ae7 @0x10
0x2ad7…2b00 at0011 = ╱32╱2╱ // 0x2ae8 @0x11
0x2ad7…2b00 at0012 = ╱f20c00╱ // 0x2ae9 @0x12
0x2ad7…2b00 at0015 = ╱df╱ = ╱ // 0x2aec @0x15
0x2ad7…2b00 at0016 = ╱30╱0╱ // 0x2aed @0x16
0x2ad7…2b00 at0017 = ╱f20000╱ // 0x2aee @0x17
0x2ad7…2b00 at001a = ╱b5╱ THEN ╱ // 0x2af1 @0x1a
0x2ad7…2b00 at001b = ╱9d╱ EXEC ╱ // 0x2af2 @0x1b
0x2ad7…2b00 at001c = ╱44╱D╱ // 0x2af3 @0x1c
0x2ad7…2b00 at001d = ╱49╱I╱ // 0x2af4 @0x1d
0x2ad7…2b00 at001e = ╱56╱V╱ // 0x2af5 @0x1e
0x2ad7…2b00 at001f = ╱5f╱_╱ // 0x2af6 @0x1f
0x2ad7…2b00 at0020 = ╱50╱P╱ // 0x2af7 @0x20
0x2ad7…2b00 at0021 = ╱4f╱O╱ // 0x2af8 @0x21
0x2ad7…2b00 at0022 = ╱53╱S╱ // 0x2af9 @0x22
0x2ad7…2b00 at0023 = ╱48╱H╱ // 0x2afa @0x23
0x2ad7…2b00 at0024 = ╱4f╱O╱ // 0x2afb @0x24
0x2ad7…2b00 at0025 = ╱56╱V╱ // 0x2afc @0x25
0x2ad7…2b00 at0026 = ╱45╱E╱ // 0x2afd @0x26
0x2ad7…2b00 at0027 = ╱44╱D╱ // 0x2afe @0x27
0x2ad7…2b00 at0028 = EOL // 0x2aff @0x28
0x2ad7…2b00 }
0x2b00…2b0e c0fc 04410 LET K := K + 1
0x2b00…2b0e LineComal80 {
0x2b00…2b0e ptr = 0xc0fc // 0x2b00 @0x0
0x2b00…2b0e lno = 0x113a // 0x2b02 @0x2
0x2b00…2b0e at0004 = ╱86╱ LET ╱ // 0x2b04 @0x4
0x2b00…2b0e at0005 = ╱4b╱K╱ // 0x2b05 @0x5
0x2b00…2b0e at0006 = ╱f0╱ := ╱ // 0x2b06 @0x6
0x2b00…2b0e at0007 = ╱4b╱K╱ // 0x2b07 @0x7
0x2b00…2b0e at0008 = ╱e5╱ + ╱ // 0x2b08 @0x8
0x2b00…2b0e at0009 = ╱31╱1╱ // 0x2b09 @0x9
0x2b00…2b0e at000a = ╱f20100╱ // 0x2b0a @0xa
0x2b00…2b0e at000d = EOL // 0x2b0d @0xd
0x2b00…2b0e }
0x2b0e…2b21 c10f 04420 EXEC L[S_DG_POS ( K )
0x2b0e…2b21 LineComal80 {
0x2b0e…2b21 ptr = 0xc10f // 0x2b0e @0x0
0x2b0e…2b21 lno = 0x1144 // 0x2b10 @0x2
0x2b0e…2b21 at0004 = ╱9d╱ EXEC ╱ // 0x2b12 @0x4
0x2b0e…2b21 at0005 = ╱4c╱L╱ // 0x2b13 @0x5
0x2b0e…2b21 at0006 = ╱5b╱[╱ // 0x2b14 @0x6
0x2b0e…2b21 at0007 = ╱53╱S╱ // 0x2b15 @0x7
0x2b0e…2b21 at0008 = ╱5f╱_╱ // 0x2b16 @0x8
0x2b0e…2b21 at0009 = ╱44╱D╱ // 0x2b17 @0x9
0x2b0e…2b21 at000a = ╱47╱G╱ // 0x2b18 @0xa
0x2b0e…2b21 at000b = ╱5f╱_╱ // 0x2b19 @0xb
0x2b0e…2b21 at000c = ╱50╱P╱ // 0x2b1a @0xc
0x2b0e…2b21 at000d = ╱4f╱O╱ // 0x2b1b @0xd
0x2b0e…2b21 at000e = ╱53╱S╱ // 0x2b1c @0xe
0x2b0e…2b21 at000f = ╱ed╱ ( ╱ // 0x2b1d @0xf
0x2b0e…2b21 at0010 = ╱4b╱K╱ // 0x2b1e @0x10
0x2b0e…2b21 at0011 = ╱ee╱ ) ╱ // 0x2b1f @0x11
0x2b0e…2b21 at0012 = EOL // 0x2b20 @0x12
0x2b0e…2b21 }
0x2b21…2b33 c121 04430 EXEC SKRIV_LIN ( K )
0x2b21…2b33 LineComal80 {
0x2b21…2b33 ptr = 0xc121 // 0x2b21 @0x0
0x2b21…2b33 lno = 0x114e // 0x2b23 @0x2
0x2b21…2b33 at0004 = ╱9d╱ EXEC ╱ // 0x2b25 @0x4
0x2b21…2b33 at0005 = ╱53╱S╱ // 0x2b26 @0x5
0x2b21…2b33 at0006 = ╱4b╱K╱ // 0x2b27 @0x6
0x2b21…2b33 at0007 = ╱52╱R╱ // 0x2b28 @0x7
0x2b21…2b33 at0008 = ╱49╱I╱ // 0x2b29 @0x8
0x2b21…2b33 at0009 = ╱56╱V╱ // 0x2b2a @0x9
0x2b21…2b33 at000a = ╱5f╱_╱ // 0x2b2b @0xa
0x2b21…2b33 at000b = ╱4c╱L╱ // 0x2b2c @0xb
0x2b21…2b33 at000c = ╱49╱I╱ // 0x2b2d @0xc
0x2b21…2b33 at000d = ╱4e╱N╱ // 0x2b2e @0xd
0x2b21…2b33 at000e = ╱ed╱ ( ╱ // 0x2b2f @0xe
0x2b21…2b33 at000f = ╱4b╱K╱ // 0x2b30 @0xf
0x2b21…2b33 at0010 = ╱ee╱ ) ╱ // 0x2b31 @0x10
0x2b21…2b33 at0011 = EOL // 0x2b32 @0x11
0x2b21…2b33 }
0x2b33…2b62 c150 04440 IF K MOD 12 = 0 OR K = P_H\JREC - 1 THEN EXEC RET_LINIER
0x2b33…2b62 LineComal80 {
0x2b33…2b62 ptr = 0xc150 // 0x2b33 @0x0
0x2b33…2b62 lno = 0x1158 // 0x2b35 @0x2
0x2b33…2b62 at0004 = ╱8200╱ IF ╱ // 0x2b37 @0x4
0x2b33…2b62 at0006 = ╱4b╱K╱ // 0x2b39 @0x6
0x2b33…2b62 at0007 = ╱db╱ MOD ╱ // 0x2b3a @0x7
0x2b33…2b62 at0008 = ╱31╱1╱ // 0x2b3b @0x8
0x2b33…2b62 at0009 = ╱32╱2╱ // 0x2b3c @0x9
0x2b33…2b62 at000a = ╱f20c00╱ // 0x2b3d @0xa
0x2b33…2b62 at000d = ╱df╱ = ╱ // 0x2b40 @0xd
0x2b33…2b62 at000e = ╱30╱0╱ // 0x2b41 @0xe
0x2b33…2b62 at000f = ╱f20000╱ // 0x2b42 @0xf
0x2b33…2b62 at0012 = ╱d8╱ OR ╱ // 0x2b45 @0x12
0x2b33…2b62 at0013 = ╱4b╱K╱ // 0x2b46 @0x13
0x2b33…2b62 at0014 = ╱df╱ = ╱ // 0x2b47 @0x14
0x2b33…2b62 at0015 = ╱50╱P╱ // 0x2b48 @0x15
0x2b33…2b62 at0016 = ╱5f╱_╱ // 0x2b49 @0x16
0x2b33…2b62 at0017 = ╱48╱H╱ // 0x2b4a @0x17
0x2b33…2b62 at0018 = ╱5c╱\╱ // 0x2b4b @0x18
0x2b33…2b62 at0019 = ╱4a╱J╱ // 0x2b4c @0x19
0x2b33…2b62 at001a = ╱52╱R╱ // 0x2b4d @0x1a
0x2b33…2b62 at001b = ╱45╱E╱ // 0x2b4e @0x1b
0x2b33…2b62 at001c = ╱43╱C╱ // 0x2b4f @0x1c
0x2b33…2b62 at001d = ╱e6╱ - ╱ // 0x2b50 @0x1d
0x2b33…2b62 at001e = ╱31╱1╱ // 0x2b51 @0x1e
0x2b33…2b62 at001f = ╱f20100╱ // 0x2b52 @0x1f
0x2b33…2b62 at0022 = ╱b5╱ THEN ╱ // 0x2b55 @0x22
0x2b33…2b62 at0023 = ╱9d╱ EXEC ╱ // 0x2b56 @0x23
0x2b33…2b62 at0024 = ╱52╱R╱ // 0x2b57 @0x24
0x2b33…2b62 at0025 = ╱45╱E╱ // 0x2b58 @0x25
0x2b33…2b62 at0026 = ╱54╱T╱ // 0x2b59 @0x26
0x2b33…2b62 at0027 = ╱5f╱_╱ // 0x2b5a @0x27
0x2b33…2b62 at0028 = ╱4c╱L╱ // 0x2b5b @0x28
0x2b33…2b62 at0029 = ╱49╱I╱ // 0x2b5c @0x29
0x2b33…2b62 at002a = ╱4e╱N╱ // 0x2b5d @0x2a
0x2b33…2b62 at002b = ╱49╱I╱ // 0x2b5e @0x2b
0x2b33…2b62 at002c = ╱45╱E╱ // 0x2b5f @0x2c
0x2b33…2b62 at002d = ╱52╱R╱ // 0x2b60 @0x2d
0x2b33…2b62 at002e = EOL // 0x2b61 @0x2e
0x2b33…2b62 }
0x2b62…2b68 d6b2 04450 ENDWHILE
0x2b62…2b68 LineComal80 {
0x2b62…2b68 ptr = 0xd6b2 // 0x2b62 @0x0
0x2b62…2b68 lno = 0x1162 // 0x2b64 @0x2
0x2b62…2b68 at0004 = ╱94╱ ENDWHILE ╱ // 0x2b66 @0x4
0x2b62…2b68 at0005 = EOL // 0x2b67 @0x5
0x2b62…2b68 }
0x2b68…2b78 c166 04460 ENDPROC RET_POSTER
0x2b68…2b78 LineComal80 {
0x2b68…2b78 ptr = 0xc166 // 0x2b68 @0x0
0x2b68…2b78 lno = 0x116c // 0x2b6a @0x2
0x2b68…2b78 at0004 = ╱9f╱ ENDPROC ╱ // 0x2b6c @0x4
0x2b68…2b78 at0005 = ╱52╱R╱ // 0x2b6d @0x5
0x2b68…2b78 at0006 = ╱45╱E╱ // 0x2b6e @0x6
0x2b68…2b78 at0007 = ╱54╱T╱ // 0x2b6f @0x7
0x2b68…2b78 at0008 = ╱5f╱_╱ // 0x2b70 @0x8
0x2b68…2b78 at0009 = ╱50╱P╱ // 0x2b71 @0x9
0x2b68…2b78 at000a = ╱4f╱O╱ // 0x2b72 @0xa
0x2b68…2b78 at000b = ╱53╱S╱ // 0x2b73 @0xb
0x2b68…2b78 at000c = ╱54╱T╱ // 0x2b74 @0xc
0x2b68…2b78 at000d = ╱45╱E╱ // 0x2b75 @0xd
0x2b68…2b78 at000e = ╱52╱R╱ // 0x2b76 @0xe
0x2b68…2b78 at000f = EOL // 0x2b77 @0xf
0x2b68…2b78 }
0x2b78…2b7d c16b 04470
0x2b78…2b7d LineComal80 {
0x2b78…2b7d ptr = 0xc16b // 0x2b78 @0x0
0x2b78…2b7d lno = 0x1176 // 0x2b7a @0x2
0x2b78…2b7d at0004 = EOL // 0x2b7c @0x4
0x2b78…2b7d }
0x2b7d…2b92 c180 04480 PROC UDSKRIV_POSTER
0x2b7d…2b92 LineComal80 {
0x2b7d…2b92 ptr = 0xc180 // 0x2b7d @0x0
0x2b7d…2b92 lno = 0x1180 // 0x2b7f @0x2
0x2b7d…2b92 at0004 = ╱9e56╱ PROC ╱ // 0x2b81 @0x4
0x2b7d…2b92 at0006 = ╱55╱U╱ // 0x2b83 @0x6
0x2b7d…2b92 at0007 = ╱44╱D╱ // 0x2b84 @0x7
0x2b7d…2b92 at0008 = ╱53╱S╱ // 0x2b85 @0x8
0x2b7d…2b92 at0009 = ╱4b╱K╱ // 0x2b86 @0x9
0x2b7d…2b92 at000a = ╱52╱R╱ // 0x2b87 @0xa
0x2b7d…2b92 at000b = ╱49╱I╱ // 0x2b88 @0xb
0x2b7d…2b92 at000c = ╱56╱V╱ // 0x2b89 @0xc
0x2b7d…2b92 at000d = ╱5f╱_╱ // 0x2b8a @0xd
0x2b7d…2b92 at000e = ╱50╱P╱ // 0x2b8b @0xe
0x2b7d…2b92 at000f = ╱4f╱O╱ // 0x2b8c @0xf
0x2b7d…2b92 at0010 = ╱53╱S╱ // 0x2b8d @0x10
0x2b7d…2b92 at0011 = ╱54╱T╱ // 0x2b8e @0x11
0x2b7d…2b92 at0012 = ╱45╱E╱ // 0x2b8f @0x12
0x2b7d…2b92 at0013 = ╱52╱R╱ // 0x2b90 @0x13
0x2b7d…2b92 at0014 = EOL // 0x2b91 @0x14
0x2b7d…2b92 }
0x2b92…2bca d352 04490 EXEC OVERSKRIFT ( "Udskrivning…af…konteringskladde" , 7 )
0x2b92…2bca LineComal80 {
0x2b92…2bca ptr = 0xd352 // 0x2b92 @0x0
0x2b92…2bca lno = 0x118a // 0x2b94 @0x2
0x2b92…2bca at0004 = ╱9d╱ EXEC ╱ // 0x2b96 @0x4
0x2b92…2bca at0005 = ╱4f╱O╱ // 0x2b97 @0x5
0x2b92…2bca at0006 = ╱56╱V╱ // 0x2b98 @0x6
0x2b92…2bca at0007 = ╱45╱E╱ // 0x2b99 @0x7
0x2b92…2bca at0008 = ╱52╱R╱ // 0x2b9a @0x8
0x2b92…2bca at0009 = ╱53╱S╱ // 0x2b9b @0x9
0x2b92…2bca at000a = ╱4b╱K╱ // 0x2b9c @0xa
0x2b92…2bca at000b = ╱52╱R╱ // 0x2b9d @0xb
0x2b92…2bca at000c = ╱49╱I╱ // 0x2b9e @0xc
0x2b92…2bca at000d = ╱46╱F╱ // 0x2b9f @0xd
0x2b92…2bca at000e = ╱54╱T╱ // 0x2ba0 @0xe
0x2b92…2bca at000f = ╱ed╱ ( ╱ // 0x2ba1 @0xf
0x2b92…2bca at0010 = ╱22╱"╱ // 0x2ba2 @0x10
0x2b92…2bca at0011 = ╱55╱U╱ // 0x2ba3 @0x11
0x2b92…2bca at0012 = ╱64╱d╱ // 0x2ba4 @0x12
0x2b92…2bca at0013 = ╱73╱s╱ // 0x2ba5 @0x13
0x2b92…2bca at0014 = ╱6b╱k╱ // 0x2ba6 @0x14
0x2b92…2bca at0015 = ╱72╱r╱ // 0x2ba7 @0x15
0x2b92…2bca at0016 = ╱69╱i╱ // 0x2ba8 @0x16
0x2b92…2bca at0017 = ╱76╱v╱ // 0x2ba9 @0x17
0x2b92…2bca at0018 = ╱6e╱n╱ // 0x2baa @0x18
0x2b92…2bca at0019 = ╱69╱i╱ // 0x2bab @0x19
0x2b92…2bca at001a = ╱6e╱n╱ // 0x2bac @0x1a
0x2b92…2bca at001b = ╱67╱g╱ // 0x2bad @0x1b
0x2b92…2bca at001c = ╱20╱…╱ // 0x2bae @0x1c
0x2b92…2bca at001d = ╱61╱a╱ // 0x2baf @0x1d
0x2b92…2bca at001e = ╱66╱f╱ // 0x2bb0 @0x1e
0x2b92…2bca at001f = ╱20╱…╱ // 0x2bb1 @0x1f
0x2b92…2bca at0020 = ╱6b╱k╱ // 0x2bb2 @0x20
0x2b92…2bca at0021 = ╱6f╱o╱ // 0x2bb3 @0x21
0x2b92…2bca at0022 = ╱6e╱n╱ // 0x2bb4 @0x22
0x2b92…2bca at0023 = ╱74╱t╱ // 0x2bb5 @0x23
0x2b92…2bca at0024 = ╱65╱e╱ // 0x2bb6 @0x24
0x2b92…2bca at0025 = ╱72╱r╱ // 0x2bb7 @0x25
0x2b92…2bca at0026 = ╱69╱i╱ // 0x2bb8 @0x26
0x2b92…2bca at0027 = ╱6e╱n╱ // 0x2bb9 @0x27
0x2b92…2bca at0028 = ╱67╱g╱ // 0x2bba @0x28
0x2b92…2bca at0029 = ╱73╱s╱ // 0x2bbb @0x29
0x2b92…2bca at002a = ╱6b╱k╱ // 0x2bbc @0x2a
0x2b92…2bca at002b = ╱6c╱l╱ // 0x2bbd @0x2b
0x2b92…2bca at002c = ╱61╱a╱ // 0x2bbe @0x2c
0x2b92…2bca at002d = ╱64╱d╱ // 0x2bbf @0x2d
0x2b92…2bca at002e = ╱64╱d╱ // 0x2bc0 @0x2e
0x2b92…2bca at002f = ╱65╱e╱ // 0x2bc1 @0x2f
0x2b92…2bca at0030 = ╱22╱"╱ // 0x2bc2 @0x30
0x2b92…2bca at0031 = ╱ec╱ , ╱ // 0x2bc3 @0x31
0x2b92…2bca at0032 = ╱37╱7╱ // 0x2bc4 @0x32
0x2b92…2bca at0033 = ╱f20700╱ // 0x2bc5 @0x33
0x2b92…2bca at0036 = ╱ee╱ ) ╱ // 0x2bc8 @0x36
0x2b92…2bca at0037 = EOL // 0x2bc9 @0x37
0x2b92…2bca }
0x2bca…2bf0 c1de 04620 EXEC PRINTRES ( "smal…EDB-liste" , 12 )
0x2bca…2bf0 LineComal80 {
0x2bca…2bf0 ptr = 0xc1de // 0x2bca @0x0
0x2bca…2bf0 lno = 0x120c // 0x2bcc @0x2
0x2bca…2bf0 at0004 = ╱9d╱ EXEC ╱ // 0x2bce @0x4
0x2bca…2bf0 at0005 = ╱50╱P╱ // 0x2bcf @0x5
0x2bca…2bf0 at0006 = ╱52╱R╱ // 0x2bd0 @0x6
0x2bca…2bf0 at0007 = ╱49╱I╱ // 0x2bd1 @0x7
0x2bca…2bf0 at0008 = ╱4e╱N╱ // 0x2bd2 @0x8
0x2bca…2bf0 at0009 = ╱54╱T╱ // 0x2bd3 @0x9
0x2bca…2bf0 at000a = ╱52╱R╱ // 0x2bd4 @0xa
0x2bca…2bf0 at000b = ╱45╱E╱ // 0x2bd5 @0xb
0x2bca…2bf0 at000c = ╱53╱S╱ // 0x2bd6 @0xc
0x2bca…2bf0 at000d = ╱ed╱ ( ╱ // 0x2bd7 @0xd
0x2bca…2bf0 at000e = ╱22╱"╱ // 0x2bd8 @0xe
0x2bca…2bf0 at000f = ╱73╱s╱ // 0x2bd9 @0xf
0x2bca…2bf0 at0010 = ╱6d╱m╱ // 0x2bda @0x10
0x2bca…2bf0 at0011 = ╱61╱a╱ // 0x2bdb @0x11
0x2bca…2bf0 at0012 = ╱6c╱l╱ // 0x2bdc @0x12
0x2bca…2bf0 at0013 = ╱20╱…╱ // 0x2bdd @0x13
0x2bca…2bf0 at0014 = ╱45╱E╱ // 0x2bde @0x14
0x2bca…2bf0 at0015 = ╱44╱D╱ // 0x2bdf @0x15
0x2bca…2bf0 at0016 = ╱42╱B╱ // 0x2be0 @0x16
0x2bca…2bf0 at0017 = ╱2d╱-╱ // 0x2be1 @0x17
0x2bca…2bf0 at0018 = ╱6c╱l╱ // 0x2be2 @0x18
0x2bca…2bf0 at0019 = ╱69╱i╱ // 0x2be3 @0x19
0x2bca…2bf0 at001a = ╱73╱s╱ // 0x2be4 @0x1a
0x2bca…2bf0 at001b = ╱74╱t╱ // 0x2be5 @0x1b
0x2bca…2bf0 at001c = ╱65╱e╱ // 0x2be6 @0x1c
0x2bca…2bf0 at001d = ╱22╱"╱ // 0x2be7 @0x1d
0x2bca…2bf0 at001e = ╱ec╱ , ╱ // 0x2be8 @0x1e
0x2bca…2bf0 at001f = ╱31╱1╱ // 0x2be9 @0x1f
0x2bca…2bf0 at0020 = ╱32╱2╱ // 0x2bea @0x20
0x2bca…2bf0 at0021 = ╱f20c00╱ // 0x2beb @0x21
0x2bca…2bf0 at0024 = ╱ee╱ ) ╱ // 0x2bee @0x24
0x2bca…2bf0 at0025 = EOL // 0x2bef @0x25
0x2bca…2bf0 }
0x2bf0…2c10 c1fe 04510 LET LIN_T := 100 ; MAX_LIN := 72
0x2bf0…2c10 LineComal80 {
0x2bf0…2c10 ptr = 0xc1fe // 0x2bf0 @0x0
0x2bf0…2c10 lno = 0x119e // 0x2bf2 @0x2
0x2bf0…2c10 at0004 = ╱86╱ LET ╱ // 0x2bf4 @0x4
0x2bf0…2c10 at0005 = ╱4c╱L╱ // 0x2bf5 @0x5
0x2bf0…2c10 at0006 = ╱49╱I╱ // 0x2bf6 @0x6
0x2bf0…2c10 at0007 = ╱4e╱N╱ // 0x2bf7 @0x7
0x2bf0…2c10 at0008 = ╱5f╱_╱ // 0x2bf8 @0x8
0x2bf0…2c10 at0009 = ╱54╱T╱ // 0x2bf9 @0x9
0x2bf0…2c10 at000a = ╱f0╱ := ╱ // 0x2bfa @0xa
0x2bf0…2c10 at000b = ╱31╱1╱ // 0x2bfb @0xb
0x2bf0…2c10 at000c = ╱30╱0╱ // 0x2bfc @0xc
0x2bf0…2c10 at000d = ╱30╱0╱ // 0x2bfd @0xd
0x2bf0…2c10 at000e = ╱f26400╱ // 0x2bfe @0xe
0x2bf0…2c10 at0011 = ╱ea╱ ; ╱ // 0x2c01 @0x11
0x2bf0…2c10 at0012 = ╱4d╱M╱ // 0x2c02 @0x12
0x2bf0…2c10 at0013 = ╱41╱A╱ // 0x2c03 @0x13
0x2bf0…2c10 at0014 = ╱58╱X╱ // 0x2c04 @0x14
0x2bf0…2c10 at0015 = ╱5f╱_╱ // 0x2c05 @0x15
0x2bf0…2c10 at0016 = ╱4c╱L╱ // 0x2c06 @0x16
0x2bf0…2c10 at0017 = ╱49╱I╱ // 0x2c07 @0x17
0x2bf0…2c10 at0018 = ╱4e╱N╱ // 0x2c08 @0x18
0x2bf0…2c10 at0019 = ╱f0╱ := ╱ // 0x2c09 @0x19
0x2bf0…2c10 at001a = ╱37╱7╱ // 0x2c0a @0x1a
0x2bf0…2c10 at001b = ╱32╱2╱ // 0x2c0b @0x1b
0x2bf0…2c10 at001c = ╱f24800╱ // 0x2c0c @0x1c
0x2bf0…2c10 at001f = EOL // 0x2c0f @0x1f
0x2bf0…2c10 }
0x2c10…2c55 c243 04520 GET DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
0x2c10…2c55 LineComal80 {
0x2c10…2c55 ptr = 0xc243 // 0x2c10 @0x0
0x2c10…2c55 lno = 0x11a8 // 0x2c12 @0x2
0x2c10…2c55 at0004 = ╱a9╱ GET ╱ // 0x2c14 @0x4
0x2c10…2c55 at0005 = ╱44╱D╱ // 0x2c15 @0x5
0x2c10…2c55 at0006 = ╱47╱G╱ // 0x2c16 @0x6
0x2c10…2c55 at0007 = ╱5f╱_╱ // 0x2c17 @0x7
0x2c10…2c55 at0008 = ╱50╱P╱ // 0x2c18 @0x8
0x2c10…2c55 at0009 = ╱4f╱O╱ // 0x2c19 @0x9
0x2c10…2c55 at000a = ╱53╱S╱ // 0x2c1a @0xa
0x2c10…2c55 at000b = ╱ef╱ $ ╱ // 0x2c1b @0xb
0x2c10…2c55 at000c = ╱ec╱ , ╱ // 0x2c1c @0xc
0x2c10…2c55 at000d = ╱31╱1╱ // 0x2c1d @0xd
0x2c10…2c55 at000e = ╱f20100╱ // 0x2c1e @0xe
0x2c10…2c55 at0011 = ╱f1╱ : ╱ // 0x2c21 @0x11
0x2c10…2c55 at0012 = ╱50╱P╱ // 0x2c22 @0x12
0x2c10…2c55 at0013 = ╱5f╱_╱ // 0x2c23 @0x13
0x2c10…2c55 at0014 = ╱48╱H╱ // 0x2c24 @0x14
0x2c10…2c55 at0015 = ╱5c╱\╱ // 0x2c25 @0x15
0x2c10…2c55 at0016 = ╱4a╱J╱ // 0x2c26 @0x16
0x2c10…2c55 at0017 = ╱52╱R╱ // 0x2c27 @0x17
0x2c10…2c55 at0018 = ╱45╱E╱ // 0x2c28 @0x18
0x2c10…2c55 at0019 = ╱43╱C╱ // 0x2c29 @0x19
0x2c10…2c55 at001a = ╱ec╱ , ╱ // 0x2c2a @0x1a
0x2c10…2c55 at001b = ╱50╱P╱ // 0x2c2b @0x1b
0x2c10…2c55 at001c = ╱5f╱_╱ // 0x2c2c @0x1c
0x2c10…2c55 at001d = ╱4d╱M╱ // 0x2c2d @0x1d
0x2c10…2c55 at001e = ╱41╱A╱ // 0x2c2e @0x1e
0x2c10…2c55 at001f = ╱58╱X╱ // 0x2c2f @0x1f
0x2c10…2c55 at0020 = ╱52╱R╱ // 0x2c30 @0x20
0x2c10…2c55 at0021 = ╱45╱E╱ // 0x2c31 @0x21
0x2c10…2c55 at0022 = ╱43╱C╱ // 0x2c32 @0x22
0x2c10…2c55 at0023 = ╱ec╱ , ╱ // 0x2c33 @0x23
0x2c10…2c55 at0024 = ╱53╱S╱ // 0x2c34 @0x24
0x2c10…2c55 at0025 = ╱5f╱_╱ // 0x2c35 @0x25
0x2c10…2c55 at0026 = ╱4e╱N╱ // 0x2c36 @0x26
0x2c10…2c55 at0027 = ╱52╱R╱ // 0x2c37 @0x27
0x2c10…2c55 at0028 = ╱5f╱_╱ // 0x2c38 @0x28
0x2c10…2c55 at0029 = ╱44╱D╱ // 0x2c39 @0x29
0x2c10…2c55 at002a = ╱47╱G╱ // 0x2c3a @0x2a
0x2c10…2c55 at002b = ╱5f╱_╱ // 0x2c3b @0x2b
0x2c10…2c55 at002c = ╱50╱P╱ // 0x2c3c @0x2c
0x2c10…2c55 at002d = ╱4f╱O╱ // 0x2c3d @0x2d
0x2c10…2c55 at002e = ╱53╱S╱ // 0x2c3e @0x2e
0x2c10…2c55 at002f = ╱ec╱ , ╱ // 0x2c3f @0x2f
0x2c10…2c55 at0030 = ╱50╱P╱ // 0x2c40 @0x30
0x2c10…2c55 at0031 = ╱5f╱_╱ // 0x2c41 @0x31
0x2c10…2c55 at0032 = ╱44╱D╱ // 0x2c42 @0x32
0x2c10…2c55 at0033 = ╱45╱E╱ // 0x2c43 @0x33
0x2c10…2c55 at0034 = ╱42╱B╱ // 0x2c44 @0x34
0x2c10…2c55 at0035 = ╱ec╱ , ╱ // 0x2c45 @0x35
0x2c10…2c55 at0036 = ╱50╱P╱ // 0x2c46 @0x36
0x2c10…2c55 at0037 = ╱5f╱_╱ // 0x2c47 @0x37
0x2c10…2c55 at0038 = ╱4b╱K╱ // 0x2c48 @0x38
0x2c10…2c55 at0039 = ╱52╱R╱ // 0x2c49 @0x39
0x2c10…2c55 at003a = ╱45╱E╱ // 0x2c4a @0x3a
0x2c10…2c55 at003b = ╱44╱D╱ // 0x2c4b @0x3b
0x2c10…2c55 at003c = ╱ec╱ , ╱ // 0x2c4c @0x3c
0x2c10…2c55 at003d = ╱50╱P╱ // 0x2c4d @0x3d
0x2c10…2c55 at003e = ╱5f╱_╱ // 0x2c4e @0x3e
0x2c10…2c55 at003f = ╱42╱B╱ // 0x2c4f @0x3f
0x2c10…2c55 at0040 = ╱44╱D╱ // 0x2c50 @0x40
0x2c10…2c55 at0041 = ╱41╱A╱ // 0x2c51 @0x41
0x2c10…2c55 at0042 = ╱54╱T╱ // 0x2c52 @0x42
0x2c10…2c55 at0043 = ╱ef╱ $ ╱ // 0x2c53 @0x43
0x2c10…2c55 at0044 = EOL // 0x2c54 @0x44
0x2c10…2c55 }
0x2c55…2c6c c25a 04530 LET P_DEB , P_KRED := 0
0x2c55…2c6c LineComal80 {
0x2c55…2c6c ptr = 0xc25a // 0x2c55 @0x0
0x2c55…2c6c lno = 0x11b2 // 0x2c57 @0x2
0x2c55…2c6c at0004 = ╱86╱ LET ╱ // 0x2c59 @0x4
0x2c55…2c6c at0005 = ╱50╱P╱ // 0x2c5a @0x5
0x2c55…2c6c at0006 = ╱5f╱_╱ // 0x2c5b @0x6
0x2c55…2c6c at0007 = ╱44╱D╱ // 0x2c5c @0x7
0x2c55…2c6c at0008 = ╱45╱E╱ // 0x2c5d @0x8
0x2c55…2c6c at0009 = ╱42╱B╱ // 0x2c5e @0x9
0x2c55…2c6c at000a = ╱ec╱ , ╱ // 0x2c5f @0xa
0x2c55…2c6c at000b = ╱50╱P╱ // 0x2c60 @0xb
0x2c55…2c6c at000c = ╱5f╱_╱ // 0x2c61 @0xc
0x2c55…2c6c at000d = ╱4b╱K╱ // 0x2c62 @0xd
0x2c55…2c6c at000e = ╱52╱R╱ // 0x2c63 @0xe
0x2c55…2c6c at000f = ╱45╱E╱ // 0x2c64 @0xf
0x2c55…2c6c at0010 = ╱44╱D╱ // 0x2c65 @0x10
0x2c55…2c6c at0011 = ╱f0╱ := ╱ // 0x2c66 @0x11
0x2c55…2c6c at0012 = ╱30╱0╱ // 0x2c67 @0x12
0x2c55…2c6c at0013 = ╱f20000╱ // 0x2c68 @0x13
0x2c55…2c6c at0016 = EOL // 0x2c6b @0x16
0x2c55…2c6c }
0x2c6c…2c88 c276 04540 FOR J := 1 TO _H\JREC - 1 DO
0x2c6c…2c88 LineComal80 {
0x2c6c…2c88 ptr = 0xc276 // 0x2c6c @0x0
0x2c6c…2c88 lno = 0x11bc // 0x2c6e @0x2
0x2c6c…2c88 at0004 = ╱8357╱ FOR ╱ // 0x2c70 @0x4
0x2c6c…2c88 at0006 = ╱4a╱J╱ // 0x2c72 @0x6
0x2c6c…2c88 at0007 = ╱f0╱ := ╱ // 0x2c73 @0x7
0x2c6c…2c88 at0008 = ╱31╱1╱ // 0x2c74 @0x8
0x2c6c…2c88 at0009 = ╱f20100╱ // 0x2c75 @0x9
0x2c6c…2c88 at000c = ╱b750╱ TO ╱ // 0x2c78 @0xc
0x2c6c…2c88 at000e = ╱5f╱_╱ // 0x2c7a @0xe
0x2c6c…2c88 at000f = ╱48╱H╱ // 0x2c7b @0xf
0x2c6c…2c88 at0010 = ╱5c╱\╱ // 0x2c7c @0x10
0x2c6c…2c88 at0011 = ╱4a╱J╱ // 0x2c7d @0x11
0x2c6c…2c88 at0012 = ╱52╱R╱ // 0x2c7e @0x12
0x2c6c…2c88 at0013 = ╱45╱E╱ // 0x2c7f @0x13
0x2c6c…2c88 at0014 = ╱43╱C╱ // 0x2c80 @0x14
0x2c6c…2c88 at0015 = ╱e6╱ - ╱ // 0x2c81 @0x15
0x2c6c…2c88 at0016 = ╱31╱1╱ // 0x2c82 @0x16
0x2c6c…2c88 at0017 = ╱f20100╱ // 0x2c83 @0x17
0x2c6c…2c88 at001a = ╱bb╱ DO ╱ // 0x2c86 @0x1a
0x2c6c…2c88 at001b = EOL // 0x2c87 @0x1b
0x2c6c…2c88 }
0x2c88…2c9b c289 04550 EXEC L[S_DG_POS ( J )
0x2c88…2c9b LineComal80 {
0x2c88…2c9b ptr = 0xc289 // 0x2c88 @0x0
0x2c88…2c9b lno = 0x11c6 // 0x2c8a @0x2
0x2c88…2c9b at0004 = ╱9d╱ EXEC ╱ // 0x2c8c @0x4
0x2c88…2c9b at0005 = ╱4c╱L╱ // 0x2c8d @0x5
0x2c88…2c9b at0006 = ╱5b╱[╱ // 0x2c8e @0x6
0x2c88…2c9b at0007 = ╱53╱S╱ // 0x2c8f @0x7
0x2c88…2c9b at0008 = ╱5f╱_╱ // 0x2c90 @0x8
0x2c88…2c9b at0009 = ╱44╱D╱ // 0x2c91 @0x9
0x2c88…2c9b at000a = ╱47╱G╱ // 0x2c92 @0xa
0x2c88…2c9b at000b = ╱5f╱_╱ // 0x2c93 @0xb
0x2c88…2c9b at000c = ╱50╱P╱ // 0x2c94 @0xc
0x2c88…2c9b at000d = ╱4f╱O╱ // 0x2c95 @0xd
0x2c88…2c9b at000e = ╱53╱S╱ // 0x2c96 @0xe
0x2c88…2c9b at000f = ╱ed╱ ( ╱ // 0x2c97 @0xf
0x2c88…2c9b at0010 = ╱4a╱J╱ // 0x2c98 @0x10
0x2c88…2c9b at0011 = ╱ee╱ ) ╱ // 0x2c99 @0x11
0x2c88…2c9b at0012 = EOL // 0x2c9a @0x12
0x2c88…2c9b }
0x2c9b…2caa c298 04560 EXEC PRINT_LIN
0x2c9b…2caa LineComal80 {
0x2c9b…2caa ptr = 0xc298 // 0x2c9b @0x0
0x2c9b…2caa lno = 0x11d0 // 0x2c9d @0x2
0x2c9b…2caa at0004 = ╱9d╱ EXEC ╱ // 0x2c9f @0x4
0x2c9b…2caa at0005 = ╱50╱P╱ // 0x2ca0 @0x5
0x2c9b…2caa at0006 = ╱52╱R╱ // 0x2ca1 @0x6
0x2c9b…2caa at0007 = ╱49╱I╱ // 0x2ca2 @0x7
0x2c9b…2caa at0008 = ╱4e╱N╱ // 0x2ca3 @0x8
0x2c9b…2caa at0009 = ╱54╱T╱ // 0x2ca4 @0x9
0x2c9b…2caa at000a = ╱5f╱_╱ // 0x2ca5 @0xa
0x2c9b…2caa at000b = ╱4c╱L╱ // 0x2ca6 @0xb
0x2c9b…2caa at000c = ╱49╱I╱ // 0x2ca7 @0xc
0x2c9b…2caa at000d = ╱4e╱N╱ // 0x2ca8 @0xd
0x2c9b…2caa at000e = EOL // 0x2ca9 @0xe
0x2c9b…2caa }
0x2caa…2cb1 c29f 04570 NEXT J
0x2caa…2cb1 LineComal80 {
0x2caa…2cb1 ptr = 0xc29f // 0x2caa @0x0
0x2caa…2cb1 lno = 0x11da // 0x2cac @0x2
0x2caa…2cb1 at0004 = ╱84╱ NEXT ╱ // 0x2cae @0x4
0x2caa…2cb1 at0005 = ╱4a╱J╱ // 0x2caf @0x5
0x2caa…2cb1 at0006 = EOL // 0x2cb0 @0x6
0x2caa…2cb1 }
0x2cb1…2ccc c2ba 04580 IF LIN_T >< 100 THEN EXEC AFSLUT
0x2cb1…2ccc LineComal80 {
0x2cb1…2ccc ptr = 0xc2ba // 0x2cb1 @0x0
0x2cb1…2ccc lno = 0x11e4 // 0x2cb3 @0x2
0x2cb1…2ccc at0004 = ╱8200╱ IF ╱ // 0x2cb5 @0x4
0x2cb1…2ccc at0006 = ╱4c╱L╱ // 0x2cb7 @0x6
0x2cb1…2ccc at0007 = ╱49╱I╱ // 0x2cb8 @0x7
0x2cb1…2ccc at0008 = ╱4e╱N╱ // 0x2cb9 @0x8
0x2cb1…2ccc at0009 = ╱5f╱_╱ // 0x2cba @0x9
0x2cb1…2ccc at000a = ╱54╱T╱ // 0x2cbb @0xa
0x2cb1…2ccc at000b = ╱e4╱ >< ╱ // 0x2cbc @0xb
0x2cb1…2ccc at000c = ╱31╱1╱ // 0x2cbd @0xc
0x2cb1…2ccc at000d = ╱30╱0╱ // 0x2cbe @0xd
0x2cb1…2ccc at000e = ╱30╱0╱ // 0x2cbf @0xe
0x2cb1…2ccc at000f = ╱f26400╱ // 0x2cc0 @0xf
0x2cb1…2ccc at0012 = ╱b5╱ THEN ╱ // 0x2cc3 @0x12
0x2cb1…2ccc at0013 = ╱9d╱ EXEC ╱ // 0x2cc4 @0x13
0x2cb1…2ccc at0014 = ╱41╱A╱ // 0x2cc5 @0x14
0x2cb1…2ccc at0015 = ╱46╱F╱ // 0x2cc6 @0x15
0x2cb1…2ccc at0016 = ╱53╱S╱ // 0x2cc7 @0x16
0x2cb1…2ccc at0017 = ╱4c╱L╱ // 0x2cc8 @0x17
0x2cb1…2ccc at0018 = ╱55╱U╱ // 0x2cc9 @0x18
0x2cb1…2ccc at0019 = ╱54╱T╱ // 0x2cca @0x19
0x2cb1…2ccc at001a = EOL // 0x2ccb @0x1a
0x2cb1…2ccc }
0x2ccc…2cda c2c8 04590 EXEC PRINTREL
0x2ccc…2cda LineComal80 {
0x2ccc…2cda ptr = 0xc2c8 // 0x2ccc @0x0
0x2ccc…2cda lno = 0x11ee // 0x2cce @0x2
0x2ccc…2cda at0004 = ╱9d╱ EXEC ╱ // 0x2cd0 @0x4
0x2ccc…2cda at0005 = ╱50╱P╱ // 0x2cd1 @0x5
0x2ccc…2cda at0006 = ╱52╱R╱ // 0x2cd2 @0x6
0x2ccc…2cda at0007 = ╱49╱I╱ // 0x2cd3 @0x7
0x2ccc…2cda at0008 = ╱4e╱N╱ // 0x2cd4 @0x8
0x2ccc…2cda at0009 = ╱54╱T╱ // 0x2cd5 @0x9
0x2ccc…2cda at000a = ╱52╱R╱ // 0x2cd6 @0xa
0x2ccc…2cda at000b = ╱45╱E╱ // 0x2cd7 @0xb
0x2ccc…2cda at000c = ╱4c╱L╱ // 0x2cd8 @0xc
0x2ccc…2cda at000d = EOL // 0x2cd9 @0xd
0x2ccc…2cda }
0x2cda…2d1f c30d 04600 PUT DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
0x2cda…2d1f LineComal80 {
0x2cda…2d1f ptr = 0xc30d // 0x2cda @0x0
0x2cda…2d1f lno = 0x11f8 // 0x2cdc @0x2
0x2cda…2d1f at0004 = ╱aa╱ PUT ╱ // 0x2cde @0x4
0x2cda…2d1f at0005 = ╱44╱D╱ // 0x2cdf @0x5
0x2cda…2d1f at0006 = ╱47╱G╱ // 0x2ce0 @0x6
0x2cda…2d1f at0007 = ╱5f╱_╱ // 0x2ce1 @0x7
0x2cda…2d1f at0008 = ╱50╱P╱ // 0x2ce2 @0x8
0x2cda…2d1f at0009 = ╱4f╱O╱ // 0x2ce3 @0x9
0x2cda…2d1f at000a = ╱53╱S╱ // 0x2ce4 @0xa
0x2cda…2d1f at000b = ╱ef╱ $ ╱ // 0x2ce5 @0xb
0x2cda…2d1f at000c = ╱ec╱ , ╱ // 0x2ce6 @0xc
0x2cda…2d1f at000d = ╱31╱1╱ // 0x2ce7 @0xd
0x2cda…2d1f at000e = ╱f20100╱ // 0x2ce8 @0xe
0x2cda…2d1f at0011 = ╱f1╱ : ╱ // 0x2ceb @0x11
0x2cda…2d1f at0012 = ╱50╱P╱ // 0x2cec @0x12
0x2cda…2d1f at0013 = ╱5f╱_╱ // 0x2ced @0x13
0x2cda…2d1f at0014 = ╱48╱H╱ // 0x2cee @0x14
0x2cda…2d1f at0015 = ╱5c╱\╱ // 0x2cef @0x15
0x2cda…2d1f at0016 = ╱4a╱J╱ // 0x2cf0 @0x16
0x2cda…2d1f at0017 = ╱52╱R╱ // 0x2cf1 @0x17
0x2cda…2d1f at0018 = ╱45╱E╱ // 0x2cf2 @0x18
0x2cda…2d1f at0019 = ╱43╱C╱ // 0x2cf3 @0x19
0x2cda…2d1f at001a = ╱ec╱ , ╱ // 0x2cf4 @0x1a
0x2cda…2d1f at001b = ╱50╱P╱ // 0x2cf5 @0x1b
0x2cda…2d1f at001c = ╱5f╱_╱ // 0x2cf6 @0x1c
0x2cda…2d1f at001d = ╱4d╱M╱ // 0x2cf7 @0x1d
0x2cda…2d1f at001e = ╱41╱A╱ // 0x2cf8 @0x1e
0x2cda…2d1f at001f = ╱58╱X╱ // 0x2cf9 @0x1f
0x2cda…2d1f at0020 = ╱52╱R╱ // 0x2cfa @0x20
0x2cda…2d1f at0021 = ╱45╱E╱ // 0x2cfb @0x21
0x2cda…2d1f at0022 = ╱43╱C╱ // 0x2cfc @0x22
0x2cda…2d1f at0023 = ╱ec╱ , ╱ // 0x2cfd @0x23
0x2cda…2d1f at0024 = ╱53╱S╱ // 0x2cfe @0x24
0x2cda…2d1f at0025 = ╱5f╱_╱ // 0x2cff @0x25
0x2cda…2d1f at0026 = ╱4e╱N╱ // 0x2d00 @0x26
0x2cda…2d1f at0027 = ╱52╱R╱ // 0x2d01 @0x27
0x2cda…2d1f at0028 = ╱5f╱_╱ // 0x2d02 @0x28
0x2cda…2d1f at0029 = ╱44╱D╱ // 0x2d03 @0x29
0x2cda…2d1f at002a = ╱47╱G╱ // 0x2d04 @0x2a
0x2cda…2d1f at002b = ╱5f╱_╱ // 0x2d05 @0x2b
0x2cda…2d1f at002c = ╱50╱P╱ // 0x2d06 @0x2c
0x2cda…2d1f at002d = ╱4f╱O╱ // 0x2d07 @0x2d
0x2cda…2d1f at002e = ╱53╱S╱ // 0x2d08 @0x2e
0x2cda…2d1f at002f = ╱ec╱ , ╱ // 0x2d09 @0x2f
0x2cda…2d1f at0030 = ╱50╱P╱ // 0x2d0a @0x30
0x2cda…2d1f at0031 = ╱5f╱_╱ // 0x2d0b @0x31
0x2cda…2d1f at0032 = ╱44╱D╱ // 0x2d0c @0x32
0x2cda…2d1f at0033 = ╱45╱E╱ // 0x2d0d @0x33
0x2cda…2d1f at0034 = ╱42╱B╱ // 0x2d0e @0x34
0x2cda…2d1f at0035 = ╱ec╱ , ╱ // 0x2d0f @0x35
0x2cda…2d1f at0036 = ╱50╱P╱ // 0x2d10 @0x36
0x2cda…2d1f at0037 = ╱5f╱_╱ // 0x2d11 @0x37
0x2cda…2d1f at0038 = ╱4b╱K╱ // 0x2d12 @0x38
0x2cda…2d1f at0039 = ╱52╱R╱ // 0x2d13 @0x39
0x2cda…2d1f at003a = ╱45╱E╱ // 0x2d14 @0x3a
0x2cda…2d1f at003b = ╱44╱D╱ // 0x2d15 @0x3b
0x2cda…2d1f at003c = ╱ec╱ , ╱ // 0x2d16 @0x3c
0x2cda…2d1f at003d = ╱50╱P╱ // 0x2d17 @0x3d
0x2cda…2d1f at003e = ╱5f╱_╱ // 0x2d18 @0x3e
0x2cda…2d1f at003f = ╱42╱B╱ // 0x2d19 @0x3f
0x2cda…2d1f at0040 = ╱44╱D╱ // 0x2d1a @0x40
0x2cda…2d1f at0041 = ╱41╱A╱ // 0x2d1b @0x41
0x2cda…2d1f at0042 = ╱54╱T╱ // 0x2d1c @0x42
0x2cda…2d1f at0043 = ╱ef╱ $ ╱ // 0x2d1d @0x43
0x2cda…2d1f at0044 = EOL // 0x2d1e @0x44
0x2cda…2d1f }
0x2d1f…2d33 c321 04610 ENDPROC UDSKRIV_POSTER
0x2d1f…2d33 LineComal80 {
0x2d1f…2d33 ptr = 0xc321 // 0x2d1f @0x0
0x2d1f…2d33 lno = 0x1202 // 0x2d21 @0x2
0x2d1f…2d33 at0004 = ╱9f╱ ENDPROC ╱ // 0x2d23 @0x4
0x2d1f…2d33 at0005 = ╱55╱U╱ // 0x2d24 @0x5
0x2d1f…2d33 at0006 = ╱44╱D╱ // 0x2d25 @0x6
0x2d1f…2d33 at0007 = ╱53╱S╱ // 0x2d26 @0x7
0x2d1f…2d33 at0008 = ╱4b╱K╱ // 0x2d27 @0x8
0x2d1f…2d33 at0009 = ╱52╱R╱ // 0x2d28 @0x9
0x2d1f…2d33 at000a = ╱49╱I╱ // 0x2d29 @0xa
0x2d1f…2d33 at000b = ╱56╱V╱ // 0x2d2a @0xb
0x2d1f…2d33 at000c = ╱5f╱_╱ // 0x2d2b @0xc
0x2d1f…2d33 at000d = ╱50╱P╱ // 0x2d2c @0xd
0x2d1f…2d33 at000e = ╱4f╱O╱ // 0x2d2d @0xe
0x2d1f…2d33 at000f = ╱53╱S╱ // 0x2d2e @0xf
0x2d1f…2d33 at0010 = ╱54╱T╱ // 0x2d2f @0x10
0x2d1f…2d33 at0011 = ╱45╱E╱ // 0x2d30 @0x11
0x2d1f…2d33 at0012 = ╱52╱R╱ // 0x2d31 @0x12
0x2d1f…2d33 at0013 = EOL // 0x2d32 @0x13
0x2d1f…2d33 }
0x2d33…2d38 c326 04620
0x2d33…2d38 LineComal80 {
0x2d33…2d38 ptr = 0xc326 // 0x2d33 @0x0
0x2d33…2d38 lno = 0x120c // 0x2d35 @0x2
0x2d33…2d38 at0004 = EOL // 0x2d37 @0x4
0x2d33…2d38 }
0x2d38…2d48 c336 04630 PROC SIDESKIFT
0x2d38…2d48 LineComal80 {
0x2d38…2d48 ptr = 0xc336 // 0x2d38 @0x0
0x2d38…2d48 lno = 0x1216 // 0x2d3a @0x2
0x2d38…2d48 at0004 = ╱9e58╱ PROC ╱ // 0x2d3c @0x4
0x2d38…2d48 at0006 = ╱53╱S╱ // 0x2d3e @0x6
0x2d38…2d48 at0007 = ╱49╱I╱ // 0x2d3f @0x7
0x2d38…2d48 at0008 = ╱44╱D╱ // 0x2d40 @0x8
0x2d38…2d48 at0009 = ╱45╱E╱ // 0x2d41 @0x9
0x2d38…2d48 at000a = ╱53╱S╱ // 0x2d42 @0xa
0x2d38…2d48 at000b = ╱4b╱K╱ // 0x2d43 @0xb
0x2d38…2d48 at000c = ╱49╱I╱ // 0x2d44 @0xc
0x2d38…2d48 at000d = ╱46╱F╱ // 0x2d45 @0xd
0x2d38…2d48 at000e = ╱54╱T╱ // 0x2d46 @0xe
0x2d38…2d48 at000f = EOL // 0x2d47 @0xf
0x2d38…2d48 }
0x2d48…2d60 c34e 04640 FOR I := LIN_T TO AX_LIN DO PRINT
0x2d48…2d60 LineComal80 {
0x2d48…2d60 ptr = 0xc34e // 0x2d48 @0x0
0x2d48…2d60 lno = 0x1220 // 0x2d4a @0x2
0x2d48…2d60 at0004 = ╱b400╱ FOR ╱ // 0x2d4c @0x4
0x2d48…2d60 at0006 = ╱49╱I╱ // 0x2d4e @0x6
0x2d48…2d60 at0007 = ╱f0╱ := ╱ // 0x2d4f @0x7
0x2d48…2d60 at0008 = ╱4c╱L╱ // 0x2d50 @0x8
0x2d48…2d60 at0009 = ╱49╱I╱ // 0x2d51 @0x9
0x2d48…2d60 at000a = ╱4e╱N╱ // 0x2d52 @0xa
0x2d48…2d60 at000b = ╱5f╱_╱ // 0x2d53 @0xb
0x2d48…2d60 at000c = ╱54╱T╱ // 0x2d54 @0xc
0x2d48…2d60 at000d = ╱b74d╱ TO ╱ // 0x2d55 @0xd
0x2d48…2d60 at000f = ╱41╱A╱ // 0x2d57 @0xf
0x2d48…2d60 at0010 = ╱58╱X╱ // 0x2d58 @0x10
0x2d48…2d60 at0011 = ╱5f╱_╱ // 0x2d59 @0x11
0x2d48…2d60 at0012 = ╱4c╱L╱ // 0x2d5a @0x12
0x2d48…2d60 at0013 = ╱49╱I╱ // 0x2d5b @0x13
0x2d48…2d60 at0014 = ╱4e╱N╱ // 0x2d5c @0x14
0x2d48…2d60 at0015 = ╱bb╱ DO ╱ // 0x2d5d @0x15
0x2d48…2d60 at0016 = ╱92╱ PRINT ╱ // 0x2d5e @0x16
0x2d48…2d60 at0017 = EOL // 0x2d5f @0x17
0x2d48…2d60 }
0x2d60…2d70 c35e 04650 LET LIN_T := 9
0x2d60…2d70 LineComal80 {
0x2d60…2d70 ptr = 0xc35e // 0x2d60 @0x0
0x2d60…2d70 lno = 0x122a // 0x2d62 @0x2
0x2d60…2d70 at0004 = ╱86╱ LET ╱ // 0x2d64 @0x4
0x2d60…2d70 at0005 = ╱4c╱L╱ // 0x2d65 @0x5
0x2d60…2d70 at0006 = ╱49╱I╱ // 0x2d66 @0x6
0x2d60…2d70 at0007 = ╱4e╱N╱ // 0x2d67 @0x7
0x2d60…2d70 at0008 = ╱5f╱_╱ // 0x2d68 @0x8
0x2d60…2d70 at0009 = ╱54╱T╱ // 0x2d69 @0x9
0x2d60…2d70 at000a = ╱f0╱ := ╱ // 0x2d6a @0xa
0x2d60…2d70 at000b = ╱39╱9╱ // 0x2d6b @0xb
0x2d60…2d70 at000c = ╱f20900╱ // 0x2d6c @0xc
0x2d60…2d70 at000f = EOL // 0x2d6f @0xf
0x2d60…2d70 }
0x2d70…2d8e c37c 04660 PRINT "***…" ; SYST_NAVN $ ; "…***"
0x2d70…2d8e LineComal80 {
0x2d70…2d8e ptr = 0xc37c // 0x2d70 @0x0
0x2d70…2d8e lno = 0x1234 // 0x2d72 @0x2
0x2d70…2d8e at0004 = ╱92╱ PRINT ╱ // 0x2d74 @0x4
0x2d70…2d8e at0005 = ╱22╱"╱ // 0x2d75 @0x5
0x2d70…2d8e at0006 = ╱2a╱*╱ // 0x2d76 @0x6
0x2d70…2d8e at0007 = ╱2a╱*╱ // 0x2d77 @0x7
0x2d70…2d8e at0008 = ╱2a╱*╱ // 0x2d78 @0x8
0x2d70…2d8e at0009 = ╱20╱…╱ // 0x2d79 @0x9
0x2d70…2d8e at000a = ╱22╱"╱ // 0x2d7a @0xa
0x2d70…2d8e at000b = ╱ea╱ ; ╱ // 0x2d7b @0xb
0x2d70…2d8e at000c = ╱53╱S╱ // 0x2d7c @0xc
0x2d70…2d8e at000d = ╱59╱Y╱ // 0x2d7d @0xd
0x2d70…2d8e at000e = ╱53╱S╱ // 0x2d7e @0xe
0x2d70…2d8e at000f = ╱54╱T╱ // 0x2d7f @0xf
0x2d70…2d8e at0010 = ╱5f╱_╱ // 0x2d80 @0x10
0x2d70…2d8e at0011 = ╱4e╱N╱ // 0x2d81 @0x11
0x2d70…2d8e at0012 = ╱41╱A╱ // 0x2d82 @0x12
0x2d70…2d8e at0013 = ╱56╱V╱ // 0x2d83 @0x13
0x2d70…2d8e at0014 = ╱4e╱N╱ // 0x2d84 @0x14
0x2d70…2d8e at0015 = ╱ef╱ $ ╱ // 0x2d85 @0x15
0x2d70…2d8e at0016 = ╱ea╱ ; ╱ // 0x2d86 @0x16
0x2d70…2d8e at0017 = ╱22╱"╱ // 0x2d87 @0x17
0x2d70…2d8e at0018 = ╱20╱…╱ // 0x2d88 @0x18
0x2d70…2d8e at0019 = ╱2a╱*╱ // 0x2d89 @0x19
0x2d70…2d8e at001a = ╱2a╱*╱ // 0x2d8a @0x1a
0x2d70…2d8e at001b = ╱2a╱*╱ // 0x2d8b @0x1b
0x2d70…2d8e at001c = ╱22╱"╱ // 0x2d8c @0x1c
0x2d70…2d8e at001d = EOL // 0x2d8d @0x1d
0x2d70…2d8e }
0x2d8e…2d94 c382 04670 PRINT
0x2d8e…2d94 LineComal80 {
0x2d8e…2d94 ptr = 0xc382 // 0x2d8e @0x0
0x2d8e…2d94 lno = 0x123e // 0x2d90 @0x2
0x2d8e…2d94 at0004 = ╱92╱ PRINT ╱ // 0x2d92 @0x4
0x2d8e…2d94 at0005 = EOL // 0x2d93 @0x5
0x2d8e…2d94 }
0x2d94…2db2 c3a0 04680 PRINT "Firmanavn:…" ; FIRMANAVN $
0x2d94…2db2 LineComal80 {
0x2d94…2db2 ptr = 0xc3a0 // 0x2d94 @0x0
0x2d94…2db2 lno = 0x1248 // 0x2d96 @0x2
0x2d94…2db2 at0004 = ╱92╱ PRINT ╱ // 0x2d98 @0x4
0x2d94…2db2 at0005 = ╱22╱"╱ // 0x2d99 @0x5
0x2d94…2db2 at0006 = ╱46╱F╱ // 0x2d9a @0x6
0x2d94…2db2 at0007 = ╱69╱i╱ // 0x2d9b @0x7
0x2d94…2db2 at0008 = ╱72╱r╱ // 0x2d9c @0x8
0x2d94…2db2 at0009 = ╱6d╱m╱ // 0x2d9d @0x9
0x2d94…2db2 at000a = ╱61╱a╱ // 0x2d9e @0xa
0x2d94…2db2 at000b = ╱6e╱n╱ // 0x2d9f @0xb
0x2d94…2db2 at000c = ╱61╱a╱ // 0x2da0 @0xc
0x2d94…2db2 at000d = ╱76╱v╱ // 0x2da1 @0xd
0x2d94…2db2 at000e = ╱6e╱n╱ // 0x2da2 @0xe
0x2d94…2db2 at000f = ╱3a╱:╱ // 0x2da3 @0xf
0x2d94…2db2 at0010 = ╱20╱…╱ // 0x2da4 @0x10
0x2d94…2db2 at0011 = ╱22╱"╱ // 0x2da5 @0x11
0x2d94…2db2 at0012 = ╱ea╱ ; ╱ // 0x2da6 @0x12
0x2d94…2db2 at0013 = ╱46╱F╱ // 0x2da7 @0x13
0x2d94…2db2 at0014 = ╱49╱I╱ // 0x2da8 @0x14
0x2d94…2db2 at0015 = ╱52╱R╱ // 0x2da9 @0x15
0x2d94…2db2 at0016 = ╱4d╱M╱ // 0x2daa @0x16
0x2d94…2db2 at0017 = ╱41╱A╱ // 0x2dab @0x17
0x2d94…2db2 at0018 = ╱4e╱N╱ // 0x2dac @0x18
0x2d94…2db2 at0019 = ╱41╱A╱ // 0x2dad @0x19
0x2d94…2db2 at001a = ╱56╱V╱ // 0x2dae @0x1a
0x2d94…2db2 at001b = ╱4e╱N╱ // 0x2daf @0x1b
0x2d94…2db2 at001c = ╱ef╱ $ ╱ // 0x2db0 @0x1c
0x2d94…2db2 at001d = EOL // 0x2db1 @0x1d
0x2d94…2db2 }
0x2db2…2db8 c3a6 04690 PRINT
0x2db2…2db8 LineComal80 {
0x2db2…2db8 ptr = 0xc3a6 // 0x2db2 @0x0
0x2db2…2db8 lno = 0x1252 // 0x2db4 @0x2
0x2db2…2db8 at0004 = ╱92╱ PRINT ╱ // 0x2db6 @0x4
0x2db2…2db8 at0005 = EOL // 0x2db7 @0x5
0x2db2…2db8 }
0x2db8…2e0a (152,) c3f8 04700 PRINT "<S>***…KONTERINGSKLADDE…PR.…" ; P_BDAT $ ( 1 : 2 ) ; "." ; P_BDAT $ ( 3 : 2 ) ; "."
0x2db8…2e0a LineComal80 {
0x2db8…2e0a ptr = 0xc3f8 // 0x2db8 @0x0
0x2db8…2e0a lno = 0x125c // 0x2dba @0x2
0x2db8…2e0a at0004 = ╱92╱ PRINT ╱ // 0x2dbc @0x4
0x2db8…2e0a at0005 = ╱22╱"╱ // 0x2dbd @0x5
0x2db8…2e0a at0006 = ╱3c╱<╱ // 0x2dbe @0x6
0x2db8…2e0a at0007 = ╱53╱S╱ // 0x2dbf @0x7
0x2db8…2e0a at0008 = ╱3e╱>╱ // 0x2dc0 @0x8
0x2db8…2e0a at0009 = ╱2a╱*╱ // 0x2dc1 @0x9
0x2db8…2e0a at000a = ╱2a╱*╱ // 0x2dc2 @0xa
0x2db8…2e0a at000b = ╱2a╱*╱ // 0x2dc3 @0xb
0x2db8…2e0a at000c = ╱20╱…╱ // 0x2dc4 @0xc
0x2db8…2e0a at000d = ╱4b╱K╱ // 0x2dc5 @0xd
0x2db8…2e0a at000e = ╱4f╱O╱ // 0x2dc6 @0xe
0x2db8…2e0a at000f = ╱4e╱N╱ // 0x2dc7 @0xf
0x2db8…2e0a at0010 = ╱54╱T╱ // 0x2dc8 @0x10
0x2db8…2e0a at0011 = ╱45╱E╱ // 0x2dc9 @0x11
0x2db8…2e0a at0012 = ╱52╱R╱ // 0x2dca @0x12
0x2db8…2e0a at0013 = ╱49╱I╱ // 0x2dcb @0x13
0x2db8…2e0a at0014 = ╱4e╱N╱ // 0x2dcc @0x14
0x2db8…2e0a at0015 = ╱47╱G╱ // 0x2dcd @0x15
0x2db8…2e0a at0016 = ╱53╱S╱ // 0x2dce @0x16
0x2db8…2e0a at0017 = ╱4b╱K╱ // 0x2dcf @0x17
0x2db8…2e0a at0018 = ╱4c╱L╱ // 0x2dd0 @0x18
0x2db8…2e0a at0019 = ╱41╱A╱ // 0x2dd1 @0x19
0x2db8…2e0a at001a = ╱44╱D╱ // 0x2dd2 @0x1a
0x2db8…2e0a at001b = ╱44╱D╱ // 0x2dd3 @0x1b
0x2db8…2e0a at001c = ╱45╱E╱ // 0x2dd4 @0x1c
0x2db8…2e0a at001d = ╱20╱…╱ // 0x2dd5 @0x1d
0x2db8…2e0a at001e = ╱50╱P╱ // 0x2dd6 @0x1e
0x2db8…2e0a at001f = ╱52╱R╱ // 0x2dd7 @0x1f
0x2db8…2e0a at0020 = ╱2e╱.╱ // 0x2dd8 @0x20
0x2db8…2e0a at0021 = ╱20╱…╱ // 0x2dd9 @0x21
0x2db8…2e0a at0022 = ╱22╱"╱ // 0x2dda @0x22
0x2db8…2e0a at0023 = ╱ea╱ ; ╱ // 0x2ddb @0x23
0x2db8…2e0a at0024 = ╱50╱P╱ // 0x2ddc @0x24
0x2db8…2e0a at0025 = ╱5f╱_╱ // 0x2ddd @0x25
0x2db8…2e0a at0026 = ╱42╱B╱ // 0x2dde @0x26
0x2db8…2e0a at0027 = ╱44╱D╱ // 0x2ddf @0x27
0x2db8…2e0a at0028 = ╱41╱A╱ // 0x2de0 @0x28
0x2db8…2e0a at0029 = ╱54╱T╱ // 0x2de1 @0x29
0x2db8…2e0a at002a = ╱ef╱ $ ╱ // 0x2de2 @0x2a
0x2db8…2e0a at002b = ╱ed╱ ( ╱ // 0x2de3 @0x2b
0x2db8…2e0a at002c = ╱31╱1╱ // 0x2de4 @0x2c
0x2db8…2e0a at002d = ╱f20100╱ // 0x2de5 @0x2d
0x2db8…2e0a at0030 = ╱f1╱ : ╱ // 0x2de8 @0x30
0x2db8…2e0a at0031 = ╱32╱2╱ // 0x2de9 @0x31
0x2db8…2e0a at0032 = ╱f20200╱ // 0x2dea @0x32
0x2db8…2e0a at0035 = ╱ee╱ ) ╱ // 0x2ded @0x35
0x2db8…2e0a at0036 = ╱ea╱ ; ╱ // 0x2dee @0x36
0x2db8…2e0a at0037 = ╱22╱"╱ // 0x2def @0x37
0x2db8…2e0a at0038 = ╱2e╱.╱ // 0x2df0 @0x38
0x2db8…2e0a at0039 = ╱22╱"╱ // 0x2df1 @0x39
0x2db8…2e0a at003a = ╱ea╱ ; ╱ // 0x2df2 @0x3a
0x2db8…2e0a at003b = ╱50╱P╱ // 0x2df3 @0x3b
0x2db8…2e0a at003c = ╱5f╱_╱ // 0x2df4 @0x3c
0x2db8…2e0a at003d = ╱42╱B╱ // 0x2df5 @0x3d
0x2db8…2e0a at003e = ╱44╱D╱ // 0x2df6 @0x3e
0x2db8…2e0a at003f = ╱41╱A╱ // 0x2df7 @0x3f
0x2db8…2e0a at0040 = ╱54╱T╱ // 0x2df8 @0x40
0x2db8…2e0a at0041 = ╱ef╱ $ ╱ // 0x2df9 @0x41
0x2db8…2e0a at0042 = ╱ed╱ ( ╱ // 0x2dfa @0x42
0x2db8…2e0a at0043 = ╱33╱3╱ // 0x2dfb @0x43
0x2db8…2e0a at0044 = ╱f20300╱ // 0x2dfc @0x44
0x2db8…2e0a at0047 = ╱f1╱ : ╱ // 0x2dff @0x47
0x2db8…2e0a at0048 = ╱32╱2╱ // 0x2e00 @0x48
0x2db8…2e0a at0049 = ╱f20200╱ // 0x2e01 @0x49
0x2db8…2e0a at004c = ╱ee╱ ) ╱ // 0x2e04 @0x4c
0x2db8…2e0a at004d = ╱ea╱ ; ╱ // 0x2e05 @0x4d
0x2db8…2e0a at004e = ╱22╱"╱ // 0x2e06 @0x4e
0x2db8…2e0a at004f = ╱2e╱.╱ // 0x2e07 @0x4f
0x2db8…2e0a at0050 = ╱22╱"╱ // 0x2e08 @0x50
0x2db8…2e0a at0051 = EOL // 0x2e09 @0x51
0x2db8…2e0a }
0x2e0a…2e3f c42d 04710 PRINT "<S>" ; P_BDAT $ ( 5 : 2 ) ; "…****…UDSKREVET…PR.…"
0x2e0a…2e3f LineComal80 {
0x2e0a…2e3f ptr = 0xc42d // 0x2e0a @0x0
0x2e0a…2e3f lno = 0x1266 // 0x2e0c @0x2
0x2e0a…2e3f at0004 = ╱92╱ PRINT ╱ // 0x2e0e @0x4
0x2e0a…2e3f at0005 = ╱22╱"╱ // 0x2e0f @0x5
0x2e0a…2e3f at0006 = ╱3c╱<╱ // 0x2e10 @0x6
0x2e0a…2e3f at0007 = ╱53╱S╱ // 0x2e11 @0x7
0x2e0a…2e3f at0008 = ╱3e╱>╱ // 0x2e12 @0x8
0x2e0a…2e3f at0009 = ╱22╱"╱ // 0x2e13 @0x9
0x2e0a…2e3f at000a = ╱ea╱ ; ╱ // 0x2e14 @0xa
0x2e0a…2e3f at000b = ╱50╱P╱ // 0x2e15 @0xb
0x2e0a…2e3f at000c = ╱5f╱_╱ // 0x2e16 @0xc
0x2e0a…2e3f at000d = ╱42╱B╱ // 0x2e17 @0xd
0x2e0a…2e3f at000e = ╱44╱D╱ // 0x2e18 @0xe
0x2e0a…2e3f at000f = ╱41╱A╱ // 0x2e19 @0xf
0x2e0a…2e3f at0010 = ╱54╱T╱ // 0x2e1a @0x10
0x2e0a…2e3f at0011 = ╱ef╱ $ ╱ // 0x2e1b @0x11
0x2e0a…2e3f at0012 = ╱ed╱ ( ╱ // 0x2e1c @0x12
0x2e0a…2e3f at0013 = ╱35╱5╱ // 0x2e1d @0x13
0x2e0a…2e3f at0014 = ╱f20500╱ // 0x2e1e @0x14
0x2e0a…2e3f at0017 = ╱f1╱ : ╱ // 0x2e21 @0x17
0x2e0a…2e3f at0018 = ╱32╱2╱ // 0x2e22 @0x18
0x2e0a…2e3f at0019 = ╱f20200╱ // 0x2e23 @0x19
0x2e0a…2e3f at001c = ╱ee╱ ) ╱ // 0x2e26 @0x1c
0x2e0a…2e3f at001d = ╱ea╱ ; ╱ // 0x2e27 @0x1d
0x2e0a…2e3f at001e = ╱22╱"╱ // 0x2e28 @0x1e
0x2e0a…2e3f at001f = ╱20╱…╱ // 0x2e29 @0x1f
0x2e0a…2e3f at0020 = ╱2a╱*╱ // 0x2e2a @0x20
0x2e0a…2e3f at0021 = ╱2a╱*╱ // 0x2e2b @0x21
0x2e0a…2e3f at0022 = ╱2a╱*╱ // 0x2e2c @0x22
0x2e0a…2e3f at0023 = ╱2a╱*╱ // 0x2e2d @0x23
0x2e0a…2e3f at0024 = ╱20╱…╱ // 0x2e2e @0x24
0x2e0a…2e3f at0025 = ╱55╱U╱ // 0x2e2f @0x25
0x2e0a…2e3f at0026 = ╱44╱D╱ // 0x2e30 @0x26
0x2e0a…2e3f at0027 = ╱53╱S╱ // 0x2e31 @0x27
0x2e0a…2e3f at0028 = ╱4b╱K╱ // 0x2e32 @0x28
0x2e0a…2e3f at0029 = ╱52╱R╱ // 0x2e33 @0x29
0x2e0a…2e3f at002a = ╱45╱E╱ // 0x2e34 @0x2a
0x2e0a…2e3f at002b = ╱56╱V╱ // 0x2e35 @0x2b
0x2e0a…2e3f at002c = ╱45╱E╱ // 0x2e36 @0x2c
0x2e0a…2e3f at002d = ╱54╱T╱ // 0x2e37 @0x2d
0x2e0a…2e3f at002e = ╱20╱…╱ // 0x2e38 @0x2e
0x2e0a…2e3f at002f = ╱50╱P╱ // 0x2e39 @0x2f
0x2e0a…2e3f at0030 = ╱52╱R╱ // 0x2e3a @0x30
0x2e0a…2e3f at0031 = ╱2e╱.╱ // 0x2e3b @0x31
0x2e0a…2e3f at0032 = ╱20╱…╱ // 0x2e3c @0x32
0x2e0a…2e3f at0033 = ╱22╱"╱ // 0x2e3d @0x33
0x2e0a…2e3f at0034 = EOL // 0x2e3e @0x34
0x2e0a…2e3f }
0x2e3f…2e92 c480 04720 PRINT SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ; SYST_DAT $ ( 5 : 2 ) ; "…***"
0x2e3f…2e92 LineComal80 {
0x2e3f…2e92 ptr = 0xc480 // 0x2e3f @0x0
0x2e3f…2e92 lno = 0x1270 // 0x2e41 @0x2
0x2e3f…2e92 at0004 = ╱92╱ PRINT ╱ // 0x2e43 @0x4
0x2e3f…2e92 at0005 = ╱53╱S╱ // 0x2e44 @0x5
0x2e3f…2e92 at0006 = ╱59╱Y╱ // 0x2e45 @0x6
0x2e3f…2e92 at0007 = ╱53╱S╱ // 0x2e46 @0x7
0x2e3f…2e92 at0008 = ╱54╱T╱ // 0x2e47 @0x8
0x2e3f…2e92 at0009 = ╱5f╱_╱ // 0x2e48 @0x9
0x2e3f…2e92 at000a = ╱44╱D╱ // 0x2e49 @0xa
0x2e3f…2e92 at000b = ╱41╱A╱ // 0x2e4a @0xb
0x2e3f…2e92 at000c = ╱54╱T╱ // 0x2e4b @0xc
0x2e3f…2e92 at000d = ╱ef╱ $ ╱ // 0x2e4c @0xd
0x2e3f…2e92 at000e = ╱ed╱ ( ╱ // 0x2e4d @0xe
0x2e3f…2e92 at000f = ╱31╱1╱ // 0x2e4e @0xf
0x2e3f…2e92 at0010 = ╱f20100╱ // 0x2e4f @0x10
0x2e3f…2e92 at0013 = ╱f1╱ : ╱ // 0x2e52 @0x13
0x2e3f…2e92 at0014 = ╱32╱2╱ // 0x2e53 @0x14
0x2e3f…2e92 at0015 = ╱f20200╱ // 0x2e54 @0x15
0x2e3f…2e92 at0018 = ╱ee╱ ) ╱ // 0x2e57 @0x18
0x2e3f…2e92 at0019 = ╱ea╱ ; ╱ // 0x2e58 @0x19
0x2e3f…2e92 at001a = ╱22╱"╱ // 0x2e59 @0x1a
0x2e3f…2e92 at001b = ╱2e╱.╱ // 0x2e5a @0x1b
0x2e3f…2e92 at001c = ╱22╱"╱ // 0x2e5b @0x1c
0x2e3f…2e92 at001d = ╱ea╱ ; ╱ // 0x2e5c @0x1d
0x2e3f…2e92 at001e = ╱53╱S╱ // 0x2e5d @0x1e
0x2e3f…2e92 at001f = ╱59╱Y╱ // 0x2e5e @0x1f
0x2e3f…2e92 at0020 = ╱53╱S╱ // 0x2e5f @0x20
0x2e3f…2e92 at0021 = ╱54╱T╱ // 0x2e60 @0x21
0x2e3f…2e92 at0022 = ╱5f╱_╱ // 0x2e61 @0x22
0x2e3f…2e92 at0023 = ╱44╱D╱ // 0x2e62 @0x23
0x2e3f…2e92 at0024 = ╱41╱A╱ // 0x2e63 @0x24
0x2e3f…2e92 at0025 = ╱54╱T╱ // 0x2e64 @0x25
0x2e3f…2e92 at0026 = ╱ef╱ $ ╱ // 0x2e65 @0x26
0x2e3f…2e92 at0027 = ╱ed╱ ( ╱ // 0x2e66 @0x27
0x2e3f…2e92 at0028 = ╱33╱3╱ // 0x2e67 @0x28
0x2e3f…2e92 at0029 = ╱f20300╱ // 0x2e68 @0x29
0x2e3f…2e92 at002c = ╱f1╱ : ╱ // 0x2e6b @0x2c
0x2e3f…2e92 at002d = ╱32╱2╱ // 0x2e6c @0x2d
0x2e3f…2e92 at002e = ╱f20200╱ // 0x2e6d @0x2e
0x2e3f…2e92 at0031 = ╱ee╱ ) ╱ // 0x2e70 @0x31
0x2e3f…2e92 at0032 = ╱ea╱ ; ╱ // 0x2e71 @0x32
0x2e3f…2e92 at0033 = ╱22╱"╱ // 0x2e72 @0x33
0x2e3f…2e92 at0034 = ╱2e╱.╱ // 0x2e73 @0x34
0x2e3f…2e92 at0035 = ╱22╱"╱ // 0x2e74 @0x35
0x2e3f…2e92 at0036 = ╱ea╱ ; ╱ // 0x2e75 @0x36
0x2e3f…2e92 at0037 = ╱53╱S╱ // 0x2e76 @0x37
0x2e3f…2e92 at0038 = ╱59╱Y╱ // 0x2e77 @0x38
0x2e3f…2e92 at0039 = ╱53╱S╱ // 0x2e78 @0x39
0x2e3f…2e92 at003a = ╱54╱T╱ // 0x2e79 @0x3a
0x2e3f…2e92 at003b = ╱5f╱_╱ // 0x2e7a @0x3b
0x2e3f…2e92 at003c = ╱44╱D╱ // 0x2e7b @0x3c
0x2e3f…2e92 at003d = ╱41╱A╱ // 0x2e7c @0x3d
0x2e3f…2e92 at003e = ╱54╱T╱ // 0x2e7d @0x3e
0x2e3f…2e92 at003f = ╱ef╱ $ ╱ // 0x2e7e @0x3f
0x2e3f…2e92 at0040 = ╱ed╱ ( ╱ // 0x2e7f @0x40
0x2e3f…2e92 at0041 = ╱35╱5╱ // 0x2e80 @0x41
0x2e3f…2e92 at0042 = ╱f20500╱ // 0x2e81 @0x42
0x2e3f…2e92 at0045 = ╱f1╱ : ╱ // 0x2e84 @0x45
0x2e3f…2e92 at0046 = ╱32╱2╱ // 0x2e85 @0x46
0x2e3f…2e92 at0047 = ╱f20200╱ // 0x2e86 @0x47
0x2e3f…2e92 at004a = ╱ee╱ ) ╱ // 0x2e89 @0x4a
0x2e3f…2e92 at004b = ╱ea╱ ; ╱ // 0x2e8a @0x4b
0x2e3f…2e92 at004c = ╱22╱"╱ // 0x2e8b @0x4c
0x2e3f…2e92 at004d = ╱20╱…╱ // 0x2e8c @0x4d
0x2e3f…2e92 at004e = ╱2a╱*╱ // 0x2e8d @0x4e
0x2e3f…2e92 at004f = ╱2a╱*╱ // 0x2e8e @0x4f
0x2e3f…2e92 at0050 = ╱2a╱*╱ // 0x2e8f @0x50
0x2e3f…2e92 at0051 = ╱22╱"╱ // 0x2e90 @0x51
0x2e3f…2e92 at0052 = EOL // 0x2e91 @0x52
0x2e3f…2e92 }
0x2e92…2e98 d0ee 04730 PRINT
0x2e92…2e98 LineComal80 {
0x2e92…2e98 ptr = 0xd0ee // 0x2e92 @0x0
0x2e92…2e98 lno = 0x127a // 0x2e94 @0x2
0x2e92…2e98 at0004 = ╱92╱ PRINT ╱ // 0x2e96 @0x4
0x2e92…2e98 at0005 = EOL // 0x2e97 @0x5
0x2e92…2e98 }
0x2e98…2ed8 c4c6 04860 PRINT "<S>BILAG……TEKST……………………………………………MK……KONTONR……………DEBET………"
0x2e98…2ed8 LineComal80 {
0x2e98…2ed8 ptr = 0xc4c6 // 0x2e98 @0x0
0x2e98…2ed8 lno = 0x12fc // 0x2e9a @0x2
0x2e98…2ed8 at0004 = ╱92╱ PRINT ╱ // 0x2e9c @0x4
0x2e98…2ed8 at0005 = ╱22╱"╱ // 0x2e9d @0x5
0x2e98…2ed8 at0006 = ╱3c╱<╱ // 0x2e9e @0x6
0x2e98…2ed8 at0007 = ╱53╱S╱ // 0x2e9f @0x7
0x2e98…2ed8 at0008 = ╱3e╱>╱ // 0x2ea0 @0x8
0x2e98…2ed8 at0009 = ╱42╱B╱ // 0x2ea1 @0x9
0x2e98…2ed8 at000a = ╱49╱I╱ // 0x2ea2 @0xa
0x2e98…2ed8 at000b = ╱4c╱L╱ // 0x2ea3 @0xb
0x2e98…2ed8 at000c = ╱41╱A╱ // 0x2ea4 @0xc
0x2e98…2ed8 at000d = ╱47╱G╱ // 0x2ea5 @0xd
0x2e98…2ed8 at000e = ╱20╱…╱ // 0x2ea6 @0xe
0x2e98…2ed8 at000f = ╱20╱…╱ // 0x2ea7 @0xf
0x2e98…2ed8 at0010 = ╱54╱T╱ // 0x2ea8 @0x10
0x2e98…2ed8 at0011 = ╱45╱E╱ // 0x2ea9 @0x11
0x2e98…2ed8 at0012 = ╱4b╱K╱ // 0x2eaa @0x12
0x2e98…2ed8 at0013 = ╱53╱S╱ // 0x2eab @0x13
0x2e98…2ed8 at0014 = ╱54╱T╱ // 0x2eac @0x14
0x2e98…2ed8 at0015 = ╱20╱…╱ // 0x2ead @0x15
0x2e98…2ed8 at0016 = ╱20╱…╱ // 0x2eae @0x16
0x2e98…2ed8 at0017 = ╱20╱…╱ // 0x2eaf @0x17
0x2e98…2ed8 at0018 = ╱20╱…╱ // 0x2eb0 @0x18
0x2e98…2ed8 at0019 = ╱20╱…╱ // 0x2eb1 @0x19
0x2e98…2ed8 at001a = ╱20╱…╱ // 0x2eb2 @0x1a
0x2e98…2ed8 at001b = ╱20╱…╱ // 0x2eb3 @0x1b
0x2e98…2ed8 at001c = ╱20╱…╱ // 0x2eb4 @0x1c
0x2e98…2ed8 at001d = ╱20╱…╱ // 0x2eb5 @0x1d
0x2e98…2ed8 at001e = ╱20╱…╱ // 0x2eb6 @0x1e
0x2e98…2ed8 at001f = ╱20╱…╱ // 0x2eb7 @0x1f
0x2e98…2ed8 at0020 = ╱20╱…╱ // 0x2eb8 @0x20
0x2e98…2ed8 at0021 = ╱20╱…╱ // 0x2eb9 @0x21
0x2e98…2ed8 at0022 = ╱20╱…╱ // 0x2eba @0x22
0x2e98…2ed8 at0023 = ╱20╱…╱ // 0x2ebb @0x23
0x2e98…2ed8 at0024 = ╱20╱…╱ // 0x2ebc @0x24
0x2e98…2ed8 at0025 = ╱20╱…╱ // 0x2ebd @0x25
0x2e98…2ed8 at0026 = ╱4d╱M╱ // 0x2ebe @0x26
0x2e98…2ed8 at0027 = ╱4b╱K╱ // 0x2ebf @0x27
0x2e98…2ed8 at0028 = ╱20╱…╱ // 0x2ec0 @0x28
0x2e98…2ed8 at0029 = ╱20╱…╱ // 0x2ec1 @0x29
0x2e98…2ed8 at002a = ╱4b╱K╱ // 0x2ec2 @0x2a
0x2e98…2ed8 at002b = ╱4f╱O╱ // 0x2ec3 @0x2b
0x2e98…2ed8 at002c = ╱4e╱N╱ // 0x2ec4 @0x2c
0x2e98…2ed8 at002d = ╱54╱T╱ // 0x2ec5 @0x2d
0x2e98…2ed8 at002e = ╱4f╱O╱ // 0x2ec6 @0x2e
0x2e98…2ed8 at002f = ╱4e╱N╱ // 0x2ec7 @0x2f
0x2e98…2ed8 at0030 = ╱52╱R╱ // 0x2ec8 @0x30
0x2e98…2ed8 at0031 = ╱20╱…╱ // 0x2ec9 @0x31
0x2e98…2ed8 at0032 = ╱20╱…╱ // 0x2eca @0x32
0x2e98…2ed8 at0033 = ╱20╱…╱ // 0x2ecb @0x33
0x2e98…2ed8 at0034 = ╱20╱…╱ // 0x2ecc @0x34
0x2e98…2ed8 at0035 = ╱20╱…╱ // 0x2ecd @0x35
0x2e98…2ed8 at0036 = ╱44╱D╱ // 0x2ece @0x36
0x2e98…2ed8 at0037 = ╱45╱E╱ // 0x2ecf @0x37
0x2e98…2ed8 at0038 = ╱42╱B╱ // 0x2ed0 @0x38
0x2e98…2ed8 at0039 = ╱45╱E╱ // 0x2ed1 @0x39
0x2e98…2ed8 at003a = ╱54╱T╱ // 0x2ed2 @0x3a
0x2e98…2ed8 at003b = ╱20╱…╱ // 0x2ed3 @0x3b
0x2e98…2ed8 at003c = ╱20╱…╱ // 0x2ed4 @0x3c
0x2e98…2ed8 at003d = ╱20╱…╱ // 0x2ed5 @0x3d
0x2e98…2ed8 at003e = ╱22╱"╱ // 0x2ed6 @0x3e
0x2e98…2ed8 at003f = EOL // 0x2ed7 @0x3f
0x2e98…2ed8 }
0x2ed8…2eec c4da 04870 PRINT "…………KREDIT……"
0x2ed8…2eec LineComal80 {
0x2ed8…2eec ptr = 0xc4da // 0x2ed8 @0x0
0x2ed8…2eec lno = 0x1306 // 0x2eda @0x2
0x2ed8…2eec at0004 = ╱92╱ PRINT ╱ // 0x2edc @0x4
0x2ed8…2eec at0005 = ╱22╱"╱ // 0x2edd @0x5
0x2ed8…2eec at0006 = ╱20╱…╱ // 0x2ede @0x6
0x2ed8…2eec at0007 = ╱20╱…╱ // 0x2edf @0x7
0x2ed8…2eec at0008 = ╱20╱…╱ // 0x2ee0 @0x8
0x2ed8…2eec at0009 = ╱20╱…╱ // 0x2ee1 @0x9
0x2ed8…2eec at000a = ╱4b╱K╱ // 0x2ee2 @0xa
0x2ed8…2eec at000b = ╱52╱R╱ // 0x2ee3 @0xb
0x2ed8…2eec at000c = ╱45╱E╱ // 0x2ee4 @0xc
0x2ed8…2eec at000d = ╱44╱D╱ // 0x2ee5 @0xd
0x2ed8…2eec at000e = ╱49╱I╱ // 0x2ee6 @0xe
0x2ed8…2eec at000f = ╱54╱T╱ // 0x2ee7 @0xf
0x2ed8…2eec at0010 = ╱20╱…╱ // 0x2ee8 @0x10
0x2ed8…2eec at0011 = ╱20╱…╱ // 0x2ee9 @0x11
0x2ed8…2eec at0012 = ╱22╱"╱ // 0x2eea @0x12
0x2ed8…2eec at0013 = EOL // 0x2eeb @0x13
0x2ed8…2eec }
0x2eec…2f2c (156,) c51a 04880 PRINT "<S>-----……--------------------……--……--------……----------"
0x2eec…2f2c LineComal80 {
0x2eec…2f2c ptr = 0xc51a // 0x2eec @0x0
0x2eec…2f2c lno = 0x1310 // 0x2eee @0x2
0x2eec…2f2c at0004 = ╱92╱ PRINT ╱ // 0x2ef0 @0x4
0x2eec…2f2c at0005 = ╱22╱"╱ // 0x2ef1 @0x5
0x2eec…2f2c at0006 = ╱3c╱<╱ // 0x2ef2 @0x6
0x2eec…2f2c at0007 = ╱53╱S╱ // 0x2ef3 @0x7
0x2eec…2f2c at0008 = ╱3e╱>╱ // 0x2ef4 @0x8
0x2eec…2f2c at0009 = ╱2d╱-╱ // 0x2ef5 @0x9
0x2eec…2f2c at000a = ╱2d╱-╱ // 0x2ef6 @0xa
0x2eec…2f2c at000b = ╱2d╱-╱ // 0x2ef7 @0xb
0x2eec…2f2c at000c = ╱2d╱-╱ // 0x2ef8 @0xc
0x2eec…2f2c at000d = ╱2d╱-╱ // 0x2ef9 @0xd
0x2eec…2f2c at000e = ╱20╱…╱ // 0x2efa @0xe
0x2eec…2f2c at000f = ╱20╱…╱ // 0x2efb @0xf
0x2eec…2f2c at0010 = ╱2d╱-╱ // 0x2efc @0x10
0x2eec…2f2c at0011 = ╱2d╱-╱ // 0x2efd @0x11
0x2eec…2f2c at0012 = ╱2d╱-╱ // 0x2efe @0x12
0x2eec…2f2c at0013 = ╱2d╱-╱ // 0x2eff @0x13
0x2eec…2f2c at0014 = ╱2d╱-╱ // 0x2f00 @0x14
0x2eec…2f2c at0015 = ╱2d╱-╱ // 0x2f01 @0x15
0x2eec…2f2c at0016 = ╱2d╱-╱ // 0x2f02 @0x16
0x2eec…2f2c at0017 = ╱2d╱-╱ // 0x2f03 @0x17
0x2eec…2f2c at0018 = ╱2d╱-╱ // 0x2f04 @0x18
0x2eec…2f2c at0019 = ╱2d╱-╱ // 0x2f05 @0x19
0x2eec…2f2c at001a = ╱2d╱-╱ // 0x2f06 @0x1a
0x2eec…2f2c at001b = ╱2d╱-╱ // 0x2f07 @0x1b
0x2eec…2f2c at001c = ╱2d╱-╱ // 0x2f08 @0x1c
0x2eec…2f2c at001d = ╱2d╱-╱ // 0x2f09 @0x1d
0x2eec…2f2c at001e = ╱2d╱-╱ // 0x2f0a @0x1e
0x2eec…2f2c at001f = ╱2d╱-╱ // 0x2f0b @0x1f
0x2eec…2f2c at0020 = ╱2d╱-╱ // 0x2f0c @0x20
0x2eec…2f2c at0021 = ╱2d╱-╱ // 0x2f0d @0x21
0x2eec…2f2c at0022 = ╱2d╱-╱ // 0x2f0e @0x22
0x2eec…2f2c at0023 = ╱2d╱-╱ // 0x2f0f @0x23
0x2eec…2f2c at0024 = ╱20╱…╱ // 0x2f10 @0x24
0x2eec…2f2c at0025 = ╱20╱…╱ // 0x2f11 @0x25
0x2eec…2f2c at0026 = ╱2d╱-╱ // 0x2f12 @0x26
0x2eec…2f2c at0027 = ╱2d╱-╱ // 0x2f13 @0x27
0x2eec…2f2c at0028 = ╱20╱…╱ // 0x2f14 @0x28
0x2eec…2f2c at0029 = ╱20╱…╱ // 0x2f15 @0x29
0x2eec…2f2c at002a = ╱2d╱-╱ // 0x2f16 @0x2a
0x2eec…2f2c at002b = ╱2d╱-╱ // 0x2f17 @0x2b
0x2eec…2f2c at002c = ╱2d╱-╱ // 0x2f18 @0x2c
0x2eec…2f2c at002d = ╱2d╱-╱ // 0x2f19 @0x2d
0x2eec…2f2c at002e = ╱2d╱-╱ // 0x2f1a @0x2e
0x2eec…2f2c at002f = ╱2d╱-╱ // 0x2f1b @0x2f
0x2eec…2f2c at0030 = ╱2d╱-╱ // 0x2f1c @0x30
0x2eec…2f2c at0031 = ╱2d╱-╱ // 0x2f1d @0x31
0x2eec…2f2c at0032 = ╱20╱…╱ // 0x2f1e @0x32
0x2eec…2f2c at0033 = ╱20╱…╱ // 0x2f1f @0x33
0x2eec…2f2c at0034 = ╱2d╱-╱ // 0x2f20 @0x34
0x2eec…2f2c at0035 = ╱2d╱-╱ // 0x2f21 @0x35
0x2eec…2f2c at0036 = ╱2d╱-╱ // 0x2f22 @0x36
0x2eec…2f2c at0037 = ╱2d╱-╱ // 0x2f23 @0x37
0x2eec…2f2c at0038 = ╱2d╱-╱ // 0x2f24 @0x38
0x2eec…2f2c at0039 = ╱2d╱-╱ // 0x2f25 @0x39
0x2eec…2f2c at003a = ╱2d╱-╱ // 0x2f26 @0x3a
0x2eec…2f2c at003b = ╱2d╱-╱ // 0x2f27 @0x3b
0x2eec…2f2c at003c = ╱2d╱-╱ // 0x2f28 @0x3c
0x2eec…2f2c at003d = ╱2d╱-╱ // 0x2f29 @0x3d
0x2eec…2f2c at003e = ╱22╱"╱ // 0x2f2a @0x3e
0x2eec…2f2c at003f = EOL // 0x2f2b @0x3f
0x2eec…2f2c }
0x2f2c…2f40 c52e 04890 PRINT "……----------"
0x2f2c…2f40 LineComal80 {
0x2f2c…2f40 ptr = 0xc52e // 0x2f2c @0x0
0x2f2c…2f40 lno = 0x131a // 0x2f2e @0x2
0x2f2c…2f40 at0004 = ╱92╱ PRINT ╱ // 0x2f30 @0x4
0x2f2c…2f40 at0005 = ╱22╱"╱ // 0x2f31 @0x5
0x2f2c…2f40 at0006 = ╱20╱…╱ // 0x2f32 @0x6
0x2f2c…2f40 at0007 = ╱20╱…╱ // 0x2f33 @0x7
0x2f2c…2f40 at0008 = ╱2d╱-╱ // 0x2f34 @0x8
0x2f2c…2f40 at0009 = ╱2d╱-╱ // 0x2f35 @0x9
0x2f2c…2f40 at000a = ╱2d╱-╱ // 0x2f36 @0xa
0x2f2c…2f40 at000b = ╱2d╱-╱ // 0x2f37 @0xb
0x2f2c…2f40 at000c = ╱2d╱-╱ // 0x2f38 @0xc
0x2f2c…2f40 at000d = ╱2d╱-╱ // 0x2f39 @0xd
0x2f2c…2f40 at000e = ╱2d╱-╱ // 0x2f3a @0xe
0x2f2c…2f40 at000f = ╱2d╱-╱ // 0x2f3b @0xf
0x2f2c…2f40 at0010 = ╱2d╱-╱ // 0x2f3c @0x10
0x2f2c…2f40 at0011 = ╱2d╱-╱ // 0x2f3d @0x11
0x2f2c…2f40 at0012 = ╱22╱"╱ // 0x2f3e @0x12
0x2f2c…2f40 at0013 = EOL // 0x2f3f @0x13
0x2f2c…2f40 }
0x2f40…2f5e c54c 04900 IF _DEB > 0 OR P_KRED > 0 THEN
0x2f40…2f5e LineComal80 {
0x2f40…2f5e ptr = 0xc54c // 0x2f40 @0x0
0x2f40…2f5e lno = 0x1324 // 0x2f42 @0x2
0x2f40…2f5e at0004 = ╱9b0050╱ IF ╱ // 0x2f44 @0x4
0x2f40…2f5e at0007 = ╱5f╱_╱ // 0x2f47 @0x7
0x2f40…2f5e at0008 = ╱44╱D╱ // 0x2f48 @0x8
0x2f40…2f5e at0009 = ╱45╱E╱ // 0x2f49 @0x9
0x2f40…2f5e at000a = ╱42╱B╱ // 0x2f4a @0xa
0x2f40…2f5e at000b = ╱e1╱ > ╱ // 0x2f4b @0xb
0x2f40…2f5e at000c = ╱30╱0╱ // 0x2f4c @0xc
0x2f40…2f5e at000d = ╱f20000╱ // 0x2f4d @0xd
0x2f40…2f5e at0010 = ╱d8╱ OR ╱ // 0x2f50 @0x10
0x2f40…2f5e at0011 = ╱50╱P╱ // 0x2f51 @0x11
0x2f40…2f5e at0012 = ╱5f╱_╱ // 0x2f52 @0x12
0x2f40…2f5e at0013 = ╱4b╱K╱ // 0x2f53 @0x13
0x2f40…2f5e at0014 = ╱52╱R╱ // 0x2f54 @0x14
0x2f40…2f5e at0015 = ╱45╱E╱ // 0x2f55 @0x15
0x2f40…2f5e at0016 = ╱44╱D╱ // 0x2f56 @0x16
0x2f40…2f5e at0017 = ╱e1╱ > ╱ // 0x2f57 @0x17
0x2f40…2f5e at0018 = ╱30╱0╱ // 0x2f58 @0x18
0x2f40…2f5e at0019 = ╱f20000╱ // 0x2f59 @0x19
0x2f40…2f5e at001c = ╱b5╱ THEN ╱ // 0x2f5c @0x1c
0x2f40…2f5e at001d = EOL // 0x2f5d @0x1d
0x2f40…2f5e }
0x2f5e…2fa7 c595 04910 PRINT TAB ( 8 ) ; "TRANSPORT" ; TAB ( 41 ) ; CHR$ ( P_DEB , 9 , 2 ) ; CHR$ ( P_KRED , 9 , 2 )
0x2f5e…2fa7 LineComal80 {
0x2f5e…2fa7 ptr = 0xc595 // 0x2f5e @0x0
0x2f5e…2fa7 lno = 0x132e // 0x2f60 @0x2
0x2f5e…2fa7 at0004 = ╱92╱ PRINT ╱ // 0x2f62 @0x4
0x2f5e…2fa7 at0005 = ╱d2╱ TAB ╱ // 0x2f63 @0x5
0x2f5e…2fa7 at0006 = ╱ed╱ ( ╱ // 0x2f64 @0x6
0x2f5e…2fa7 at0007 = ╱38╱8╱ // 0x2f65 @0x7
0x2f5e…2fa7 at0008 = ╱f20800╱ // 0x2f66 @0x8
0x2f5e…2fa7 at000b = ╱ee╱ ) ╱ // 0x2f69 @0xb
0x2f5e…2fa7 at000c = ╱ea╱ ; ╱ // 0x2f6a @0xc
0x2f5e…2fa7 at000d = ╱22╱"╱ // 0x2f6b @0xd
0x2f5e…2fa7 at000e = ╱54╱T╱ // 0x2f6c @0xe
0x2f5e…2fa7 at000f = ╱52╱R╱ // 0x2f6d @0xf
0x2f5e…2fa7 at0010 = ╱41╱A╱ // 0x2f6e @0x10
0x2f5e…2fa7 at0011 = ╱4e╱N╱ // 0x2f6f @0x11
0x2f5e…2fa7 at0012 = ╱53╱S╱ // 0x2f70 @0x12
0x2f5e…2fa7 at0013 = ╱50╱P╱ // 0x2f71 @0x13
0x2f5e…2fa7 at0014 = ╱4f╱O╱ // 0x2f72 @0x14
0x2f5e…2fa7 at0015 = ╱52╱R╱ // 0x2f73 @0x15
0x2f5e…2fa7 at0016 = ╱54╱T╱ // 0x2f74 @0x16
0x2f5e…2fa7 at0017 = ╱22╱"╱ // 0x2f75 @0x17
0x2f5e…2fa7 at0018 = ╱ea╱ ; ╱ // 0x2f76 @0x18
0x2f5e…2fa7 at0019 = ╱d2╱ TAB ╱ // 0x2f77 @0x19
0x2f5e…2fa7 at001a = ╱ed╱ ( ╱ // 0x2f78 @0x1a
0x2f5e…2fa7 at001b = ╱34╱4╱ // 0x2f79 @0x1b
0x2f5e…2fa7 at001c = ╱31╱1╱ // 0x2f7a @0x1c
0x2f5e…2fa7 at001d = ╱f22900╱ // 0x2f7b @0x1d
0x2f5e…2fa7 at0020 = ╱ee╱ ) ╱ // 0x2f7e @0x20
0x2f5e…2fa7 at0021 = ╱ea╱ ; ╱ // 0x2f7f @0x21
0x2f5e…2fa7 at0022 = ╱d0╱ CHR$ ╱ // 0x2f80 @0x22
0x2f5e…2fa7 at0023 = ╱ed╱ ( ╱ // 0x2f81 @0x23
0x2f5e…2fa7 at0024 = ╱50╱P╱ // 0x2f82 @0x24
0x2f5e…2fa7 at0025 = ╱5f╱_╱ // 0x2f83 @0x25
0x2f5e…2fa7 at0026 = ╱44╱D╱ // 0x2f84 @0x26
0x2f5e…2fa7 at0027 = ╱45╱E╱ // 0x2f85 @0x27
0x2f5e…2fa7 at0028 = ╱42╱B╱ // 0x2f86 @0x28
0x2f5e…2fa7 at0029 = ╱ec╱ , ╱ // 0x2f87 @0x29
0x2f5e…2fa7 at002a = ╱39╱9╱ // 0x2f88 @0x2a
0x2f5e…2fa7 at002b = ╱f20900╱ // 0x2f89 @0x2b
0x2f5e…2fa7 at002e = ╱ec╱ , ╱ // 0x2f8c @0x2e
0x2f5e…2fa7 at002f = ╱32╱2╱ // 0x2f8d @0x2f
0x2f5e…2fa7 at0030 = ╱f20200╱ // 0x2f8e @0x30
0x2f5e…2fa7 at0033 = ╱ee╱ ) ╱ // 0x2f91 @0x33
0x2f5e…2fa7 at0034 = ╱ea╱ ; ╱ // 0x2f92 @0x34
0x2f5e…2fa7 at0035 = ╱d0╱ CHR$ ╱ // 0x2f93 @0x35
0x2f5e…2fa7 at0036 = ╱ed╱ ( ╱ // 0x2f94 @0x36
0x2f5e…2fa7 at0037 = ╱50╱P╱ // 0x2f95 @0x37
0x2f5e…2fa7 at0038 = ╱5f╱_╱ // 0x2f96 @0x38
0x2f5e…2fa7 at0039 = ╱4b╱K╱ // 0x2f97 @0x39
0x2f5e…2fa7 at003a = ╱52╱R╱ // 0x2f98 @0x3a
0x2f5e…2fa7 at003b = ╱45╱E╱ // 0x2f99 @0x3b
0x2f5e…2fa7 at003c = ╱44╱D╱ // 0x2f9a @0x3c
0x2f5e…2fa7 at003d = ╱ec╱ , ╱ // 0x2f9b @0x3d
0x2f5e…2fa7 at003e = ╱39╱9╱ // 0x2f9c @0x3e
0x2f5e…2fa7 at003f = ╱f20900╱ // 0x2f9d @0x3f
0x2f5e…2fa7 at0042 = ╱ec╱ , ╱ // 0x2fa0 @0x42
0x2f5e…2fa7 at0043 = ╱32╱2╱ // 0x2fa1 @0x43
0x2f5e…2fa7 at0044 = ╱f20200╱ // 0x2fa2 @0x44
0x2f5e…2fa7 at0047 = ╱ee╱ ) ╱ // 0x2fa5 @0x47
0x2f5e…2fa7 at0048 = EOL // 0x2fa6 @0x48
0x2f5e…2fa7 }
0x2fa7…2fbd c5ab 04920 LET LIN_T := LIN_T + 1
0x2fa7…2fbd LineComal80 {
0x2fa7…2fbd ptr = 0xc5ab // 0x2fa7 @0x0
0x2fa7…2fbd lno = 0x1338 // 0x2fa9 @0x2
0x2fa7…2fbd at0004 = ╱86╱ LET ╱ // 0x2fab @0x4
0x2fa7…2fbd at0005 = ╱4c╱L╱ // 0x2fac @0x5
0x2fa7…2fbd at0006 = ╱49╱I╱ // 0x2fad @0x6
0x2fa7…2fbd at0007 = ╱4e╱N╱ // 0x2fae @0x7
0x2fa7…2fbd at0008 = ╱5f╱_╱ // 0x2faf @0x8
0x2fa7…2fbd at0009 = ╱54╱T╱ // 0x2fb0 @0x9
0x2fa7…2fbd at000a = ╱f0╱ := ╱ // 0x2fb1 @0xa
0x2fa7…2fbd at000b = ╱4c╱L╱ // 0x2fb2 @0xb
0x2fa7…2fbd at000c = ╱49╱I╱ // 0x2fb3 @0xc
0x2fa7…2fbd at000d = ╱4e╱N╱ // 0x2fb4 @0xd
0x2fa7…2fbd at000e = ╱5f╱_╱ // 0x2fb5 @0xe
0x2fa7…2fbd at000f = ╱54╱T╱ // 0x2fb6 @0xf
0x2fa7…2fbd at0010 = ╱e5╱ + ╱ // 0x2fb7 @0x10
0x2fa7…2fbd at0011 = ╱31╱1╱ // 0x2fb8 @0x11
0x2fa7…2fbd at0012 = ╱f20100╱ // 0x2fb9 @0x12
0x2fa7…2fbd at0015 = EOL // 0x2fbc @0x15
0x2fa7…2fbd }
0x2fbd…2fc3 c5b1 04930 ENDIF
0x2fbd…2fc3 LineComal80 {
0x2fbd…2fc3 ptr = 0xc5b1 // 0x2fbd @0x0
0x2fbd…2fc3 lno = 0x1342 // 0x2fbf @0x2
0x2fbd…2fc3 at0004 = ╱9c╱ ENDIF ╱ // 0x2fc1 @0x4
0x2fbd…2fc3 at0005 = EOL // 0x2fc2 @0x5
0x2fbd…2fc3 }
0x2fc3…2fd2 c5c0 04940 ENDPROC SIDESKIFT
0x2fc3…2fd2 LineComal80 {
0x2fc3…2fd2 ptr = 0xc5c0 // 0x2fc3 @0x0
0x2fc3…2fd2 lno = 0x134c // 0x2fc5 @0x2
0x2fc3…2fd2 at0004 = ╱9f╱ ENDPROC ╱ // 0x2fc7 @0x4
0x2fc3…2fd2 at0005 = ╱53╱S╱ // 0x2fc8 @0x5
0x2fc3…2fd2 at0006 = ╱49╱I╱ // 0x2fc9 @0x6
0x2fc3…2fd2 at0007 = ╱44╱D╱ // 0x2fca @0x7
0x2fc3…2fd2 at0008 = ╱45╱E╱ // 0x2fcb @0x8
0x2fc3…2fd2 at0009 = ╱53╱S╱ // 0x2fcc @0x9
0x2fc3…2fd2 at000a = ╱4b╱K╱ // 0x2fcd @0xa
0x2fc3…2fd2 at000b = ╱49╱I╱ // 0x2fce @0xb
0x2fc3…2fd2 at000c = ╱46╱F╱ // 0x2fcf @0xc
0x2fc3…2fd2 at000d = ╱54╱T╱ // 0x2fd0 @0xd
0x2fc3…2fd2 at000e = EOL // 0x2fd1 @0xe
0x2fc3…2fd2 }
0x2fd2…2fd7 c5c5 04950
0x2fd2…2fd7 LineComal80 {
0x2fd2…2fd7 ptr = 0xc5c5 // 0x2fd2 @0x0
0x2fd2…2fd7 lno = 0x1356 // 0x2fd4 @0x2
0x2fd2…2fd7 at0004 = EOL // 0x2fd6 @0x4
0x2fd2…2fd7 }
0x2fd7…2fe7 c5d5 04960 PROC PRINT_LIN
0x2fd7…2fe7 LineComal80 {
0x2fd7…2fe7 ptr = 0xc5d5 // 0x2fd7 @0x0
0x2fd7…2fe7 lno = 0x1360 // 0x2fd9 @0x2
0x2fd7…2fe7 at0004 = ╱9e00╱ PROC ╱ // 0x2fdb @0x4
0x2fd7…2fe7 at0006 = ╱50╱P╱ // 0x2fdd @0x6
0x2fd7…2fe7 at0007 = ╱52╱R╱ // 0x2fde @0x7
0x2fd7…2fe7 at0008 = ╱49╱I╱ // 0x2fdf @0x8
0x2fd7…2fe7 at0009 = ╱4e╱N╱ // 0x2fe0 @0x9
0x2fd7…2fe7 at000a = ╱54╱T╱ // 0x2fe1 @0xa
0x2fd7…2fe7 at000b = ╱5f╱_╱ // 0x2fe2 @0xb
0x2fd7…2fe7 at000c = ╱4c╱L╱ // 0x2fe3 @0xc
0x2fd7…2fe7 at000d = ╱49╱I╱ // 0x2fe4 @0xd
0x2fd7…2fe7 at000e = ╱4e╱N╱ // 0x2fe5 @0xe
0x2fd7…2fe7 at000f = EOL // 0x2fe6 @0xf
0x2fd7…2fe7 }
0x2fe7…2ffe c5ec 04970 IF P_BNR $ = "*****" THEN EXIT
0x2fe7…2ffe LineComal80 {
0x2fe7…2ffe ptr = 0xc5ec // 0x2fe7 @0x0
0x2fe7…2ffe lno = 0x136a // 0x2fe9 @0x2
0x2fe7…2ffe at0004 = ╱8200╱ IF ╱ // 0x2feb @0x4
0x2fe7…2ffe at0006 = ╱50╱P╱ // 0x2fed @0x6
0x2fe7…2ffe at0007 = ╱5f╱_╱ // 0x2fee @0x7
0x2fe7…2ffe at0008 = ╱42╱B╱ // 0x2fef @0x8
0x2fe7…2ffe at0009 = ╱4e╱N╱ // 0x2ff0 @0x9
0x2fe7…2ffe at000a = ╱52╱R╱ // 0x2ff1 @0xa
0x2fe7…2ffe at000b = ╱ef╱ $ ╱ // 0x2ff2 @0xb
0x2fe7…2ffe at000c = ╱df╱ = ╱ // 0x2ff3 @0xc
0x2fe7…2ffe at000d = ╱22╱"╱ // 0x2ff4 @0xd
0x2fe7…2ffe at000e = ╱2a╱*╱ // 0x2ff5 @0xe
0x2fe7…2ffe at000f = ╱2a╱*╱ // 0x2ff6 @0xf
0x2fe7…2ffe at0010 = ╱2a╱*╱ // 0x2ff7 @0x10
0x2fe7…2ffe at0011 = ╱2a╱*╱ // 0x2ff8 @0x11
0x2fe7…2ffe at0012 = ╱2a╱*╱ // 0x2ff9 @0x12
0x2fe7…2ffe at0013 = ╱22╱"╱ // 0x2ffa @0x13
0x2fe7…2ffe at0014 = ╱b5╱ THEN ╱ // 0x2ffb @0x14
0x2fe7…2ffe at0015 = ╱99╱ EXIT ╱ // 0x2ffc @0x15
0x2fe7…2ffe at0016 = EOL // 0x2ffd @0x16
0x2fe7…2ffe }
0x2ffe…3018 c606 04980 IF IN_T + 5 > MAX_LIN THEN
0x2ffe…3018 LineComal80 {
0x2ffe…3018 ptr = 0xc606 // 0x2ffe @0x0
0x2ffe…3018 lno = 0x1374 // 0x3000 @0x2
0x2ffe…3018 at0004 = ╱9b004c╱ IF ╱ // 0x3002 @0x4
0x2ffe…3018 at0007 = ╱49╱I╱ // 0x3005 @0x7
0x2ffe…3018 at0008 = ╱4e╱N╱ // 0x3006 @0x8
0x2ffe…3018 at0009 = ╱5f╱_╱ // 0x3007 @0x9
0x2ffe…3018 at000a = ╱54╱T╱ // 0x3008 @0xa
0x2ffe…3018 at000b = ╱e5╱ + ╱ // 0x3009 @0xb
0x2ffe…3018 at000c = ╱35╱5╱ // 0x300a @0xc
0x2ffe…3018 at000d = ╱f20500╱ // 0x300b @0xd
0x2ffe…3018 at0010 = ╱e1╱ > ╱ // 0x300e @0x10
0x2ffe…3018 at0011 = ╱4d╱M╱ // 0x300f @0x11
0x2ffe…3018 at0012 = ╱41╱A╱ // 0x3010 @0x12
0x2ffe…3018 at0013 = ╱58╱X╱ // 0x3011 @0x13
0x2ffe…3018 at0014 = ╱5f╱_╱ // 0x3012 @0x14
0x2ffe…3018 at0015 = ╱4c╱L╱ // 0x3013 @0x15
0x2ffe…3018 at0016 = ╱49╱I╱ // 0x3014 @0x16
0x2ffe…3018 at0017 = ╱4e╱N╱ // 0x3015 @0x17
0x2ffe…3018 at0018 = ╱b5╱ THEN ╱ // 0x3016 @0x18
0x2ffe…3018 at0019 = EOL // 0x3017 @0x19
0x2ffe…3018 }
0x3018…3036 c624 04990 IF _DEB > 0 OR P_KRED > 0 THEN
0x3018…3036 LineComal80 {
0x3018…3036 ptr = 0xc624 // 0x3018 @0x0
0x3018…3036 lno = 0x137e // 0x301a @0x2
0x3018…3036 at0004 = ╱9b0050╱ IF ╱ // 0x301c @0x4
0x3018…3036 at0007 = ╱5f╱_╱ // 0x301f @0x7
0x3018…3036 at0008 = ╱44╱D╱ // 0x3020 @0x8
0x3018…3036 at0009 = ╱45╱E╱ // 0x3021 @0x9
0x3018…3036 at000a = ╱42╱B╱ // 0x3022 @0xa
0x3018…3036 at000b = ╱e1╱ > ╱ // 0x3023 @0xb
0x3018…3036 at000c = ╱30╱0╱ // 0x3024 @0xc
0x3018…3036 at000d = ╱f20000╱ // 0x3025 @0xd
0x3018…3036 at0010 = ╱d8╱ OR ╱ // 0x3028 @0x10
0x3018…3036 at0011 = ╱50╱P╱ // 0x3029 @0x11
0x3018…3036 at0012 = ╱5f╱_╱ // 0x302a @0x12
0x3018…3036 at0013 = ╱4b╱K╱ // 0x302b @0x13
0x3018…3036 at0014 = ╱52╱R╱ // 0x302c @0x14
0x3018…3036 at0015 = ╱45╱E╱ // 0x302d @0x15
0x3018…3036 at0016 = ╱44╱D╱ // 0x302e @0x16
0x3018…3036 at0017 = ╱e1╱ > ╱ // 0x302f @0x17
0x3018…3036 at0018 = ╱30╱0╱ // 0x3030 @0x18
0x3018…3036 at0019 = ╱f20000╱ // 0x3031 @0x19
0x3018…3036 at001c = ╱b5╱ THEN ╱ // 0x3034 @0x1c
0x3018…3036 at001d = EOL // 0x3035 @0x1d
0x3018…3036 }
0x3036…3078 c666 05000 PRINT "<S>-----……--------------------……--……--------……----------……"
0x3036…3078 LineComal80 {
0x3036…3078 ptr = 0xc666 // 0x3036 @0x0
0x3036…3078 lno = 0x1388 // 0x3038 @0x2
0x3036…3078 at0004 = ╱92╱ PRINT ╱ // 0x303a @0x4
0x3036…3078 at0005 = ╱22╱"╱ // 0x303b @0x5
0x3036…3078 at0006 = ╱3c╱<╱ // 0x303c @0x6
0x3036…3078 at0007 = ╱53╱S╱ // 0x303d @0x7
0x3036…3078 at0008 = ╱3e╱>╱ // 0x303e @0x8
0x3036…3078 at0009 = ╱2d╱-╱ // 0x303f @0x9
0x3036…3078 at000a = ╱2d╱-╱ // 0x3040 @0xa
0x3036…3078 at000b = ╱2d╱-╱ // 0x3041 @0xb
0x3036…3078 at000c = ╱2d╱-╱ // 0x3042 @0xc
0x3036…3078 at000d = ╱2d╱-╱ // 0x3043 @0xd
0x3036…3078 at000e = ╱20╱…╱ // 0x3044 @0xe
0x3036…3078 at000f = ╱20╱…╱ // 0x3045 @0xf
0x3036…3078 at0010 = ╱2d╱-╱ // 0x3046 @0x10
0x3036…3078 at0011 = ╱2d╱-╱ // 0x3047 @0x11
0x3036…3078 at0012 = ╱2d╱-╱ // 0x3048 @0x12
0x3036…3078 at0013 = ╱2d╱-╱ // 0x3049 @0x13
0x3036…3078 at0014 = ╱2d╱-╱ // 0x304a @0x14
0x3036…3078 at0015 = ╱2d╱-╱ // 0x304b @0x15
0x3036…3078 at0016 = ╱2d╱-╱ // 0x304c @0x16
0x3036…3078 at0017 = ╱2d╱-╱ // 0x304d @0x17
0x3036…3078 at0018 = ╱2d╱-╱ // 0x304e @0x18
0x3036…3078 at0019 = ╱2d╱-╱ // 0x304f @0x19
0x3036…3078 at001a = ╱2d╱-╱ // 0x3050 @0x1a
0x3036…3078 at001b = ╱2d╱-╱ // 0x3051 @0x1b
0x3036…3078 at001c = ╱2d╱-╱ // 0x3052 @0x1c
0x3036…3078 at001d = ╱2d╱-╱ // 0x3053 @0x1d
0x3036…3078 at001e = ╱2d╱-╱ // 0x3054 @0x1e
0x3036…3078 at001f = ╱2d╱-╱ // 0x3055 @0x1f
0x3036…3078 at0020 = ╱2d╱-╱ // 0x3056 @0x20
0x3036…3078 at0021 = ╱2d╱-╱ // 0x3057 @0x21
0x3036…3078 at0022 = ╱2d╱-╱ // 0x3058 @0x22
0x3036…3078 at0023 = ╱2d╱-╱ // 0x3059 @0x23
0x3036…3078 at0024 = ╱20╱…╱ // 0x305a @0x24
0x3036…3078 at0025 = ╱20╱…╱ // 0x305b @0x25
0x3036…3078 at0026 = ╱2d╱-╱ // 0x305c @0x26
0x3036…3078 at0027 = ╱2d╱-╱ // 0x305d @0x27
0x3036…3078 at0028 = ╱20╱…╱ // 0x305e @0x28
0x3036…3078 at0029 = ╱20╱…╱ // 0x305f @0x29
0x3036…3078 at002a = ╱2d╱-╱ // 0x3060 @0x2a
0x3036…3078 at002b = ╱2d╱-╱ // 0x3061 @0x2b
0x3036…3078 at002c = ╱2d╱-╱ // 0x3062 @0x2c
0x3036…3078 at002d = ╱2d╱-╱ // 0x3063 @0x2d
0x3036…3078 at002e = ╱2d╱-╱ // 0x3064 @0x2e
0x3036…3078 at002f = ╱2d╱-╱ // 0x3065 @0x2f
0x3036…3078 at0030 = ╱2d╱-╱ // 0x3066 @0x30
0x3036…3078 at0031 = ╱2d╱-╱ // 0x3067 @0x31
0x3036…3078 at0032 = ╱20╱…╱ // 0x3068 @0x32
0x3036…3078 at0033 = ╱20╱…╱ // 0x3069 @0x33
0x3036…3078 at0034 = ╱2d╱-╱ // 0x306a @0x34
0x3036…3078 at0035 = ╱2d╱-╱ // 0x306b @0x35
0x3036…3078 at0036 = ╱2d╱-╱ // 0x306c @0x36
0x3036…3078 at0037 = ╱2d╱-╱ // 0x306d @0x37
0x3036…3078 at0038 = ╱2d╱-╱ // 0x306e @0x38
0x3036…3078 at0039 = ╱2d╱-╱ // 0x306f @0x39
0x3036…3078 at003a = ╱2d╱-╱ // 0x3070 @0x3a
0x3036…3078 at003b = ╱2d╱-╱ // 0x3071 @0x3b
0x3036…3078 at003c = ╱2d╱-╱ // 0x3072 @0x3c
0x3036…3078 at003d = ╱2d╱-╱ // 0x3073 @0x3d
0x3036…3078 at003e = ╱20╱…╱ // 0x3074 @0x3e
0x3036…3078 at003f = ╱20╱…╱ // 0x3075 @0x3f
0x3036…3078 at0040 = ╱22╱"╱ // 0x3076 @0x40
0x3036…3078 at0041 = EOL // 0x3077 @0x41
0x3036…3078 }
0x3078…308a c678 04890 PRINT "----------"
0x3078…308a LineComal80 {
0x3078…308a ptr = 0xc678 // 0x3078 @0x0
0x3078…308a lno = 0x131a // 0x307a @0x2
0x3078…308a at0004 = ╱92╱ PRINT ╱ // 0x307c @0x4
0x3078…308a at0005 = ╱22╱"╱ // 0x307d @0x5
0x3078…308a at0006 = ╱2d╱-╱ // 0x307e @0x6
0x3078…308a at0007 = ╱2d╱-╱ // 0x307f @0x7
0x3078…308a at0008 = ╱2d╱-╱ // 0x3080 @0x8
0x3078…308a at0009 = ╱2d╱-╱ // 0x3081 @0x9
0x3078…308a at000a = ╱2d╱-╱ // 0x3082 @0xa
0x3078…308a at000b = ╱2d╱-╱ // 0x3083 @0xb
0x3078…308a at000c = ╱2d╱-╱ // 0x3084 @0xc
0x3078…308a at000d = ╱2d╱-╱ // 0x3085 @0xd
0x3078…308a at000e = ╱2d╱-╱ // 0x3086 @0xe
0x3078…308a at000f = ╱2d╱-╱ // 0x3087 @0xf
0x3078…308a at0010 = ╱22╱"╱ // 0x3088 @0x10
0x3078…308a at0011 = EOL // 0x3089 @0x11
0x3078…308a }
0x308a…30d3 c6c1 04900 PRINT TAB ( 9 ) ; "TRANSPORT" ; TAB ( 41 ) ; CHR$ ( P_DEB , 9 , 2 ) ; CHR$ ( P_KRED , 9 , 2 )
0x308a…30d3 LineComal80 {
0x308a…30d3 ptr = 0xc6c1 // 0x308a @0x0
0x308a…30d3 lno = 0x1324 // 0x308c @0x2
0x308a…30d3 at0004 = ╱92╱ PRINT ╱ // 0x308e @0x4
0x308a…30d3 at0005 = ╱d2╱ TAB ╱ // 0x308f @0x5
0x308a…30d3 at0006 = ╱ed╱ ( ╱ // 0x3090 @0x6
0x308a…30d3 at0007 = ╱39╱9╱ // 0x3091 @0x7
0x308a…30d3 at0008 = ╱f20900╱ // 0x3092 @0x8
0x308a…30d3 at000b = ╱ee╱ ) ╱ // 0x3095 @0xb
0x308a…30d3 at000c = ╱ea╱ ; ╱ // 0x3096 @0xc
0x308a…30d3 at000d = ╱22╱"╱ // 0x3097 @0xd
0x308a…30d3 at000e = ╱54╱T╱ // 0x3098 @0xe
0x308a…30d3 at000f = ╱52╱R╱ // 0x3099 @0xf
0x308a…30d3 at0010 = ╱41╱A╱ // 0x309a @0x10
0x308a…30d3 at0011 = ╱4e╱N╱ // 0x309b @0x11
0x308a…30d3 at0012 = ╱53╱S╱ // 0x309c @0x12
0x308a…30d3 at0013 = ╱50╱P╱ // 0x309d @0x13
0x308a…30d3 at0014 = ╱4f╱O╱ // 0x309e @0x14
0x308a…30d3 at0015 = ╱52╱R╱ // 0x309f @0x15
0x308a…30d3 at0016 = ╱54╱T╱ // 0x30a0 @0x16
0x308a…30d3 at0017 = ╱22╱"╱ // 0x30a1 @0x17
0x308a…30d3 at0018 = ╱ea╱ ; ╱ // 0x30a2 @0x18
0x308a…30d3 at0019 = ╱d2╱ TAB ╱ // 0x30a3 @0x19
0x308a…30d3 at001a = ╱ed╱ ( ╱ // 0x30a4 @0x1a
0x308a…30d3 at001b = ╱34╱4╱ // 0x30a5 @0x1b
0x308a…30d3 at001c = ╱31╱1╱ // 0x30a6 @0x1c
0x308a…30d3 at001d = ╱f22900╱ // 0x30a7 @0x1d
0x308a…30d3 at0020 = ╱ee╱ ) ╱ // 0x30aa @0x20
0x308a…30d3 at0021 = ╱ea╱ ; ╱ // 0x30ab @0x21
0x308a…30d3 at0022 = ╱d0╱ CHR$ ╱ // 0x30ac @0x22
0x308a…30d3 at0023 = ╱ed╱ ( ╱ // 0x30ad @0x23
0x308a…30d3 at0024 = ╱50╱P╱ // 0x30ae @0x24
0x308a…30d3 at0025 = ╱5f╱_╱ // 0x30af @0x25
0x308a…30d3 at0026 = ╱44╱D╱ // 0x30b0 @0x26
0x308a…30d3 at0027 = ╱45╱E╱ // 0x30b1 @0x27
0x308a…30d3 at0028 = ╱42╱B╱ // 0x30b2 @0x28
0x308a…30d3 at0029 = ╱ec╱ , ╱ // 0x30b3 @0x29
0x308a…30d3 at002a = ╱39╱9╱ // 0x30b4 @0x2a
0x308a…30d3 at002b = ╱f20900╱ // 0x30b5 @0x2b
0x308a…30d3 at002e = ╱ec╱ , ╱ // 0x30b8 @0x2e
0x308a…30d3 at002f = ╱32╱2╱ // 0x30b9 @0x2f
0x308a…30d3 at0030 = ╱f20200╱ // 0x30ba @0x30
0x308a…30d3 at0033 = ╱ee╱ ) ╱ // 0x30bd @0x33
0x308a…30d3 at0034 = ╱ea╱ ; ╱ // 0x30be @0x34
0x308a…30d3 at0035 = ╱d0╱ CHR$ ╱ // 0x30bf @0x35
0x308a…30d3 at0036 = ╱ed╱ ( ╱ // 0x30c0 @0x36
0x308a…30d3 at0037 = ╱50╱P╱ // 0x30c1 @0x37
0x308a…30d3 at0038 = ╱5f╱_╱ // 0x30c2 @0x38
0x308a…30d3 at0039 = ╱4b╱K╱ // 0x30c3 @0x39
0x308a…30d3 at003a = ╱52╱R╱ // 0x30c4 @0x3a
0x308a…30d3 at003b = ╱45╱E╱ // 0x30c5 @0x3b
0x308a…30d3 at003c = ╱44╱D╱ // 0x30c6 @0x3c
0x308a…30d3 at003d = ╱ec╱ , ╱ // 0x30c7 @0x3d
0x308a…30d3 at003e = ╱39╱9╱ // 0x30c8 @0x3e
0x308a…30d3 at003f = ╱f20900╱ // 0x30c9 @0x3f
0x308a…30d3 at0042 = ╱ec╱ , ╱ // 0x30cc @0x42
0x308a…30d3 at0043 = ╱32╱2╱ // 0x30cd @0x43
0x308a…30d3 at0044 = ╱f20200╱ // 0x30ce @0x44
0x308a…30d3 at0047 = ╱ee╱ ) ╱ // 0x30d1 @0x47
0x308a…30d3 at0048 = EOL // 0x30d2 @0x48
0x308a…30d3 }
0x30d3…30e9 c6d7 04910 LET LIN_T := LIN_T + 2
0x30d3…30e9 LineComal80 {
0x30d3…30e9 ptr = 0xc6d7 // 0x30d3 @0x0
0x30d3…30e9 lno = 0x132e // 0x30d5 @0x2
0x30d3…30e9 at0004 = ╱86╱ LET ╱ // 0x30d7 @0x4
0x30d3…30e9 at0005 = ╱4c╱L╱ // 0x30d8 @0x5
0x30d3…30e9 at0006 = ╱49╱I╱ // 0x30d9 @0x6
0x30d3…30e9 at0007 = ╱4e╱N╱ // 0x30da @0x7
0x30d3…30e9 at0008 = ╱5f╱_╱ // 0x30db @0x8
0x30d3…30e9 at0009 = ╱54╱T╱ // 0x30dc @0x9
0x30d3…30e9 at000a = ╱f0╱ := ╱ // 0x30dd @0xa
0x30d3…30e9 at000b = ╱4c╱L╱ // 0x30de @0xb
0x30d3…30e9 at000c = ╱49╱I╱ // 0x30df @0xc
0x30d3…30e9 at000d = ╱4e╱N╱ // 0x30e0 @0xd
0x30d3…30e9 at000e = ╱5f╱_╱ // 0x30e1 @0xe
0x30d3…30e9 at000f = ╱54╱T╱ // 0x30e2 @0xf
0x30d3…30e9 at0010 = ╱e5╱ + ╱ // 0x30e3 @0x10
0x30d3…30e9 at0011 = ╱32╱2╱ // 0x30e4 @0x11
0x30d3…30e9 at0012 = ╱f20200╱ // 0x30e5 @0x12
0x30d3…30e9 at0015 = EOL // 0x30e8 @0x15
0x30d3…30e9 }
0x30e9…30ef c6dd 04920 ENDIF
0x30e9…30ef LineComal80 {
0x30e9…30ef ptr = 0xc6dd // 0x30e9 @0x0
0x30e9…30ef lno = 0x1338 // 0x30eb @0x2
0x30e9…30ef at0004 = ╱9c╱ ENDIF ╱ // 0x30ed @0x4
0x30e9…30ef at0005 = EOL // 0x30ee @0x5
0x30e9…30ef }
0x30ef…30fe c6ec 04930 EXEC SIDESKIFT
0x30ef…30fe LineComal80 {
0x30ef…30fe ptr = 0xc6ec // 0x30ef @0x0
0x30ef…30fe lno = 0x1342 // 0x30f1 @0x2
0x30ef…30fe at0004 = ╱9d╱ EXEC ╱ // 0x30f3 @0x4
0x30ef…30fe at0005 = ╱53╱S╱ // 0x30f4 @0x5
0x30ef…30fe at0006 = ╱49╱I╱ // 0x30f5 @0x6
0x30ef…30fe at0007 = ╱44╱D╱ // 0x30f6 @0x7
0x30ef…30fe at0008 = ╱45╱E╱ // 0x30f7 @0x8
0x30ef…30fe at0009 = ╱53╱S╱ // 0x30f8 @0x9
0x30ef…30fe at000a = ╱4b╱K╱ // 0x30f9 @0xa
0x30ef…30fe at000b = ╱49╱I╱ // 0x30fa @0xb
0x30ef…30fe at000c = ╱46╱F╱ // 0x30fb @0xc
0x30ef…30fe at000d = ╱54╱T╱ // 0x30fc @0xd
0x30ef…30fe at000e = EOL // 0x30fd @0xe
0x30ef…30fe }
0x30fe…3104 c6f2 04940 ENDIF
0x30fe…3104 LineComal80 {
0x30fe…3104 ptr = 0xc6f2 // 0x30fe @0x0
0x30fe…3104 lno = 0x134c // 0x3100 @0x2
0x30fe…3104 at0004 = ╱9c╱ ENDIF ╱ // 0x3102 @0x4
0x30fe…3104 at0005 = EOL // 0x3103 @0x5
0x30fe…3104 }
0x3104…311a c708 04950 LET LIN_T := LIN_T + 1
0x3104…311a LineComal80 {
0x3104…311a ptr = 0xc708 // 0x3104 @0x0
0x3104…311a lno = 0x1356 // 0x3106 @0x2
0x3104…311a at0004 = ╱86╱ LET ╱ // 0x3108 @0x4
0x3104…311a at0005 = ╱4c╱L╱ // 0x3109 @0x5
0x3104…311a at0006 = ╱49╱I╱ // 0x310a @0x6
0x3104…311a at0007 = ╱4e╱N╱ // 0x310b @0x7
0x3104…311a at0008 = ╱5f╱_╱ // 0x310c @0x8
0x3104…311a at0009 = ╱54╱T╱ // 0x310d @0x9
0x3104…311a at000a = ╱f0╱ := ╱ // 0x310e @0xa
0x3104…311a at000b = ╱4c╱L╱ // 0x310f @0xb
0x3104…311a at000c = ╱49╱I╱ // 0x3110 @0xc
0x3104…311a at000d = ╱4e╱N╱ // 0x3111 @0xd
0x3104…311a at000e = ╱5f╱_╱ // 0x3112 @0xe
0x3104…311a at000f = ╱54╱T╱ // 0x3113 @0xf
0x3104…311a at0010 = ╱e5╱ + ╱ // 0x3114 @0x10
0x3104…311a at0011 = ╱31╱1╱ // 0x3115 @0x11
0x3104…311a at0012 = ╱f20100╱ // 0x3116 @0x12
0x3104…311a at0015 = EOL // 0x3119 @0x15
0x3104…311a }
0x311a…3156 c744 04960 PRINT "<S>" ; P_BNR $ ; TAB ( 11 ) ; P_TXT $ ; TAB ( 33 ) ; P_MKOD $ ; TAB ( 37 )
0x311a…3156 LineComal80 {
0x311a…3156 ptr = 0xc744 // 0x311a @0x0
0x311a…3156 lno = 0x1360 // 0x311c @0x2
0x311a…3156 at0004 = ╱92╱ PRINT ╱ // 0x311e @0x4
0x311a…3156 at0005 = ╱22╱"╱ // 0x311f @0x5
0x311a…3156 at0006 = ╱3c╱<╱ // 0x3120 @0x6
0x311a…3156 at0007 = ╱53╱S╱ // 0x3121 @0x7
0x311a…3156 at0008 = ╱3e╱>╱ // 0x3122 @0x8
0x311a…3156 at0009 = ╱22╱"╱ // 0x3123 @0x9
0x311a…3156 at000a = ╱ea╱ ; ╱ // 0x3124 @0xa
0x311a…3156 at000b = ╱50╱P╱ // 0x3125 @0xb
0x311a…3156 at000c = ╱5f╱_╱ // 0x3126 @0xc
0x311a…3156 at000d = ╱42╱B╱ // 0x3127 @0xd
0x311a…3156 at000e = ╱4e╱N╱ // 0x3128 @0xe
0x311a…3156 at000f = ╱52╱R╱ // 0x3129 @0xf
0x311a…3156 at0010 = ╱ef╱ $ ╱ // 0x312a @0x10
0x311a…3156 at0011 = ╱ea╱ ; ╱ // 0x312b @0x11
0x311a…3156 at0012 = ╱d2╱ TAB ╱ // 0x312c @0x12
0x311a…3156 at0013 = ╱ed╱ ( ╱ // 0x312d @0x13
0x311a…3156 at0014 = ╱31╱1╱ // 0x312e @0x14
0x311a…3156 at0015 = ╱31╱1╱ // 0x312f @0x15
0x311a…3156 at0016 = ╱f20b00╱ // 0x3130 @0x16
0x311a…3156 at0019 = ╱ee╱ ) ╱ // 0x3133 @0x19
0x311a…3156 at001a = ╱ea╱ ; ╱ // 0x3134 @0x1a
0x311a…3156 at001b = ╱50╱P╱ // 0x3135 @0x1b
0x311a…3156 at001c = ╱5f╱_╱ // 0x3136 @0x1c
0x311a…3156 at001d = ╱54╱T╱ // 0x3137 @0x1d
0x311a…3156 at001e = ╱58╱X╱ // 0x3138 @0x1e
0x311a…3156 at001f = ╱54╱T╱ // 0x3139 @0x1f
0x311a…3156 at0020 = ╱ef╱ $ ╱ // 0x313a @0x20
0x311a…3156 at0021 = ╱ea╱ ; ╱ // 0x313b @0x21
0x311a…3156 at0022 = ╱d2╱ TAB ╱ // 0x313c @0x22
0x311a…3156 at0023 = ╱ed╱ ( ╱ // 0x313d @0x23
0x311a…3156 at0024 = ╱33╱3╱ // 0x313e @0x24
0x311a…3156 at0025 = ╱33╱3╱ // 0x313f @0x25
0x311a…3156 at0026 = ╱f22100╱ // 0x3140 @0x26
0x311a…3156 at0029 = ╱ee╱ ) ╱ // 0x3143 @0x29
0x311a…3156 at002a = ╱ea╱ ; ╱ // 0x3144 @0x2a
0x311a…3156 at002b = ╱50╱P╱ // 0x3145 @0x2b
0x311a…3156 at002c = ╱5f╱_╱ // 0x3146 @0x2c
0x311a…3156 at002d = ╱4d╱M╱ // 0x3147 @0x2d
0x311a…3156 at002e = ╱4b╱K╱ // 0x3148 @0x2e
0x311a…3156 at002f = ╱4f╱O╱ // 0x3149 @0x2f
0x311a…3156 at0030 = ╱44╱D╱ // 0x314a @0x30
0x311a…3156 at0031 = ╱ef╱ $ ╱ // 0x314b @0x31
0x311a…3156 at0032 = ╱ea╱ ; ╱ // 0x314c @0x32
0x311a…3156 at0033 = ╱d2╱ TAB ╱ // 0x314d @0x33
0x311a…3156 at0034 = ╱ed╱ ( ╱ // 0x314e @0x34
0x311a…3156 at0035 = ╱33╱3╱ // 0x314f @0x35
0x311a…3156 at0036 = ╱37╱7╱ // 0x3150 @0x36
0x311a…3156 at0037 = ╱f22500╱ // 0x3151 @0x37
0x311a…3156 at003a = ╱ee╱ ) ╱ // 0x3154 @0x3a
0x311a…3156 at003b = EOL // 0x3155 @0x3b
0x311a…3156 }
0x3156…3172 c760 04970 PRINT "<S>" ; P_BKTO $ ; TAB ( 14 )
0x3156…3172 LineComal80 {
0x3156…3172 ptr = 0xc760 // 0x3156 @0x0
0x3156…3172 lno = 0x136a // 0x3158 @0x2
0x3156…3172 at0004 = ╱92╱ PRINT ╱ // 0x315a @0x4
0x3156…3172 at0005 = ╱22╱"╱ // 0x315b @0x5
0x3156…3172 at0006 = ╱3c╱<╱ // 0x315c @0x6
0x3156…3172 at0007 = ╱53╱S╱ // 0x315d @0x7
0x3156…3172 at0008 = ╱3e╱>╱ // 0x315e @0x8
0x3156…3172 at0009 = ╱22╱"╱ // 0x315f @0x9
0x3156…3172 at000a = ╱ea╱ ; ╱ // 0x3160 @0xa
0x3156…3172 at000b = ╱50╱P╱ // 0x3161 @0xb
0x3156…3172 at000c = ╱5f╱_╱ // 0x3162 @0xc
0x3156…3172 at000d = ╱42╱B╱ // 0x3163 @0xd
0x3156…3172 at000e = ╱4b╱K╱ // 0x3164 @0xe
0x3156…3172 at000f = ╱54╱T╱ // 0x3165 @0xf
0x3156…3172 at0010 = ╱4f╱O╱ // 0x3166 @0x10
0x3156…3172 at0011 = ╱ef╱ $ ╱ // 0x3167 @0x11
0x3156…3172 at0012 = ╱ea╱ ; ╱ // 0x3168 @0x12
0x3156…3172 at0013 = ╱d2╱ TAB ╱ // 0x3169 @0x13
0x3156…3172 at0014 = ╱ed╱ ( ╱ // 0x316a @0x14
0x3156…3172 at0015 = ╱31╱1╱ // 0x316b @0x15
0x3156…3172 at0016 = ╱34╱4╱ // 0x316c @0x16
0x3156…3172 at0017 = ╱f20e00╱ // 0x316d @0x17
0x3156…3172 at001a = ╱ee╱ ) ╱ // 0x3170 @0x1a
0x3156…3172 at001b = EOL // 0x3171 @0x1b
0x3156…3172 }
0x3172…3184 c772 04980 IF _DK = DEBET THEN
0x3172…3184 LineComal80 {
0x3172…3184 ptr = 0xc772 // 0x3172 @0x0
0x3172…3184 lno = 0x1374 // 0x3174 @0x2
0x3172…3184 at0004 = ╱9b5d50╱ IF ╱ // 0x3176 @0x4
0x3172…3184 at0007 = ╱5f╱_╱ // 0x3179 @0x7
0x3172…3184 at0008 = ╱44╱D╱ // 0x317a @0x8
0x3172…3184 at0009 = ╱4b╱K╱ // 0x317b @0x9
0x3172…3184 at000a = ╱df╱ = ╱ // 0x317c @0xa
0x3172…3184 at000b = ╱44╱D╱ // 0x317d @0xb
0x3172…3184 at000c = ╱45╱E╱ // 0x317e @0xc
0x3172…3184 at000d = ╱42╱B╱ // 0x317f @0xd
0x3172…3184 at000e = ╱45╱E╱ // 0x3180 @0xe
0x3172…3184 at000f = ╱54╱T╱ // 0x3181 @0xf
0x3172…3184 at0010 = ╱b5╱ THEN ╱ // 0x3182 @0x10
0x3172…3184 at0011 = EOL // 0x3183 @0x11
0x3172…3184 }
0x3184…319c c78a 04990 PRINT CHR$ ( P_BKR , 7 , 2 )
0x3184…319c LineComal80 {
0x3184…319c ptr = 0xc78a // 0x3184 @0x0
0x3184…319c lno = 0x137e // 0x3186 @0x2
0x3184…319c at0004 = ╱92╱ PRINT ╱ // 0x3188 @0x4
0x3184…319c at0005 = ╱d0╱ CHR$ ╱ // 0x3189 @0x5
0x3184…319c at0006 = ╱ed╱ ( ╱ // 0x318a @0x6
0x3184…319c at0007 = ╱50╱P╱ // 0x318b @0x7
0x3184…319c at0008 = ╱5f╱_╱ // 0x318c @0x8
0x3184…319c at0009 = ╱42╱B╱ // 0x318d @0x9
0x3184…319c at000a = ╱4b╱K╱ // 0x318e @0xa
0x3184…319c at000b = ╱52╱R╱ // 0x318f @0xb
0x3184…319c at000c = ╱ec╱ , ╱ // 0x3190 @0xc
0x3184…319c at000d = ╱37╱7╱ // 0x3191 @0xd
0x3184…319c at000e = ╱f20700╱ // 0x3192 @0xe
0x3184…319c at0011 = ╱ec╱ , ╱ // 0x3195 @0x11
0x3184…319c at0012 = ╱32╱2╱ // 0x3196 @0x12
0x3184…319c at0013 = ╱f20200╱ // 0x3197 @0x13
0x3184…319c at0016 = ╱ee╱ ) ╱ // 0x319a @0x16
0x3184…319c at0017 = EOL // 0x319b @0x17
0x3184…319c }
0x319c…31b3 c7a1 05000 LET P_DEB := P_DEB + P_BKR
0x319c…31b3 LineComal80 {
0x319c…31b3 ptr = 0xc7a1 // 0x319c @0x0
0x319c…31b3 lno = 0x1388 // 0x319e @0x2
0x319c…31b3 at0004 = ╱86╱ LET ╱ // 0x31a0 @0x4
0x319c…31b3 at0005 = ╱50╱P╱ // 0x31a1 @0x5
0x319c…31b3 at0006 = ╱5f╱_╱ // 0x31a2 @0x6
0x319c…31b3 at0007 = ╱44╱D╱ // 0x31a3 @0x7
0x319c…31b3 at0008 = ╱45╱E╱ // 0x31a4 @0x8
0x319c…31b3 at0009 = ╱42╱B╱ // 0x31a5 @0x9
0x319c…31b3 at000a = ╱f0╱ := ╱ // 0x31a6 @0xa
0x319c…31b3 at000b = ╱50╱P╱ // 0x31a7 @0xb
0x319c…31b3 at000c = ╱5f╱_╱ // 0x31a8 @0xc
0x319c…31b3 at000d = ╱44╱D╱ // 0x31a9 @0xd
0x319c…31b3 at000e = ╱45╱E╱ // 0x31aa @0xe
0x319c…31b3 at000f = ╱42╱B╱ // 0x31ab @0xf
0x319c…31b3 at0010 = ╱e5╱ + ╱ // 0x31ac @0x10
0x319c…31b3 at0011 = ╱50╱P╱ // 0x31ad @0x11
0x319c…31b3 at0012 = ╱5f╱_╱ // 0x31ae @0x12
0x319c…31b3 at0013 = ╱42╱B╱ // 0x31af @0x13
0x319c…31b3 at0014 = ╱4b╱K╱ // 0x31b0 @0x14
0x319c…31b3 at0015 = ╱52╱R╱ // 0x31b1 @0x15
0x319c…31b3 at0016 = EOL // 0x31b2 @0x16
0x319c…31b3 }
0x31b3…31ba c7a8 05010 ELSE
0x31b3…31ba LineComal80 {
0x31b3…31ba ptr = 0xc7a8 // 0x31b3 @0x0
0x31b3…31ba lno = 0x1392 // 0x31b5 @0x2
0x31b3…31ba at0004 = ╱9a5e╱ ELSE ╱ // 0x31b7 @0x4
0x31b3…31ba at0006 = EOL // 0x31b9 @0x6
0x31b3…31ba }
0x31ba…31db c7c9 05020 PRINT TAB ( 13 ) ; CHR$ ( P_BKR , 7 , 2 )
0x31ba…31db LineComal80 {
0x31ba…31db ptr = 0xc7c9 // 0x31ba @0x0
0x31ba…31db lno = 0x139c // 0x31bc @0x2
0x31ba…31db at0004 = ╱92╱ PRINT ╱ // 0x31be @0x4
0x31ba…31db at0005 = ╱d2╱ TAB ╱ // 0x31bf @0x5
0x31ba…31db at0006 = ╱ed╱ ( ╱ // 0x31c0 @0x6
0x31ba…31db at0007 = ╱31╱1╱ // 0x31c1 @0x7
0x31ba…31db at0008 = ╱33╱3╱ // 0x31c2 @0x8
0x31ba…31db at0009 = ╱f20d00╱ // 0x31c3 @0x9
0x31ba…31db at000c = ╱ee╱ ) ╱ // 0x31c6 @0xc
0x31ba…31db at000d = ╱ea╱ ; ╱ // 0x31c7 @0xd
0x31ba…31db at000e = ╱d0╱ CHR$ ╱ // 0x31c8 @0xe
0x31ba…31db at000f = ╱ed╱ ( ╱ // 0x31c9 @0xf
0x31ba…31db at0010 = ╱50╱P╱ // 0x31ca @0x10
0x31ba…31db at0011 = ╱5f╱_╱ // 0x31cb @0x11
0x31ba…31db at0012 = ╱42╱B╱ // 0x31cc @0x12
0x31ba…31db at0013 = ╱4b╱K╱ // 0x31cd @0x13
0x31ba…31db at0014 = ╱52╱R╱ // 0x31ce @0x14
0x31ba…31db at0015 = ╱ec╱ , ╱ // 0x31cf @0x15
0x31ba…31db at0016 = ╱37╱7╱ // 0x31d0 @0x16
0x31ba…31db at0017 = ╱f20700╱ // 0x31d1 @0x17
0x31ba…31db at001a = ╱ec╱ , ╱ // 0x31d4 @0x1a
0x31ba…31db at001b = ╱32╱2╱ // 0x31d5 @0x1b
0x31ba…31db at001c = ╱f20200╱ // 0x31d6 @0x1c
0x31ba…31db at001f = ╱ee╱ ) ╱ // 0x31d9 @0x1f
0x31ba…31db at0020 = EOL // 0x31da @0x20
0x31ba…31db }
0x31db…31f4 c7e2 05030 LET P_KRED := P_KRED + P_BKR
0x31db…31f4 LineComal80 {
0x31db…31f4 ptr = 0xc7e2 // 0x31db @0x0
0x31db…31f4 lno = 0x13a6 // 0x31dd @0x2
0x31db…31f4 at0004 = ╱86╱ LET ╱ // 0x31df @0x4
0x31db…31f4 at0005 = ╱50╱P╱ // 0x31e0 @0x5
0x31db…31f4 at0006 = ╱5f╱_╱ // 0x31e1 @0x6
0x31db…31f4 at0007 = ╱4b╱K╱ // 0x31e2 @0x7
0x31db…31f4 at0008 = ╱52╱R╱ // 0x31e3 @0x8
0x31db…31f4 at0009 = ╱45╱E╱ // 0x31e4 @0x9
0x31db…31f4 at000a = ╱44╱D╱ // 0x31e5 @0xa
0x31db…31f4 at000b = ╱f0╱ := ╱ // 0x31e6 @0xb
0x31db…31f4 at000c = ╱50╱P╱ // 0x31e7 @0xc
0x31db…31f4 at000d = ╱5f╱_╱ // 0x31e8 @0xd
0x31db…31f4 at000e = ╱4b╱K╱ // 0x31e9 @0xe
0x31db…31f4 at000f = ╱52╱R╱ // 0x31ea @0xf
0x31db…31f4 at0010 = ╱45╱E╱ // 0x31eb @0x10
0x31db…31f4 at0011 = ╱44╱D╱ // 0x31ec @0x11
0x31db…31f4 at0012 = ╱e5╱ + ╱ // 0x31ed @0x12
0x31db…31f4 at0013 = ╱50╱P╱ // 0x31ee @0x13
0x31db…31f4 at0014 = ╱5f╱_╱ // 0x31ef @0x14
0x31db…31f4 at0015 = ╱42╱B╱ // 0x31f0 @0x15
0x31db…31f4 at0016 = ╱4b╱K╱ // 0x31f1 @0x16
0x31db…31f4 at0017 = ╱52╱R╱ // 0x31f2 @0x17
0x31db…31f4 at0018 = EOL // 0x31f3 @0x18
0x31db…31f4 }
0x31f4…31fa c7e8 05040 ENDIF
0x31f4…31fa LineComal80 {
0x31f4…31fa ptr = 0xc7e8 // 0x31f4 @0x0
0x31f4…31fa lno = 0x13b0 // 0x31f6 @0x2
0x31f4…31fa at0004 = ╱9c╱ ENDIF ╱ // 0x31f8 @0x4
0x31f4…31fa at0005 = EOL // 0x31f9 @0x5
0x31f4…31fa }
0x31fa…3209 c7f7 05050 ENDPROC PRINT_LIN
0x31fa…3209 LineComal80 {
0x31fa…3209 ptr = 0xc7f7 // 0x31fa @0x0
0x31fa…3209 lno = 0x13ba // 0x31fc @0x2
0x31fa…3209 at0004 = ╱9f╱ ENDPROC ╱ // 0x31fe @0x4
0x31fa…3209 at0005 = ╱50╱P╱ // 0x31ff @0x5
0x31fa…3209 at0006 = ╱52╱R╱ // 0x3200 @0x6
0x31fa…3209 at0007 = ╱49╱I╱ // 0x3201 @0x7
0x31fa…3209 at0008 = ╱4e╱N╱ // 0x3202 @0x8
0x31fa…3209 at0009 = ╱54╱T╱ // 0x3203 @0x9
0x31fa…3209 at000a = ╱5f╱_╱ // 0x3204 @0xa
0x31fa…3209 at000b = ╱4c╱L╱ // 0x3205 @0xb
0x31fa…3209 at000c = ╱49╱I╱ // 0x3206 @0xc
0x31fa…3209 at000d = ╱4e╱N╱ // 0x3207 @0xd
0x31fa…3209 at000e = EOL // 0x3208 @0xe
0x31fa…3209 }
0x3209…320e c7fc 05060
0x3209…320e LineComal80 {
0x3209…320e ptr = 0xc7fc // 0x3209 @0x0
0x3209…320e lno = 0x13c4 // 0x320b @0x2
0x3209…320e at0004 = EOL // 0x320d @0x4
0x3209…320e }
0x320e…321b c809 05070 PROC AFSLUT
0x320e…321b LineComal80 {
0x320e…321b ptr = 0xc809 // 0x320e @0x0
0x320e…321b lno = 0x13ce // 0x3210 @0x2
0x320e…321b at0004 = ╱9e5f╱ PROC ╱ // 0x3212 @0x4
0x320e…321b at0006 = ╱41╱A╱ // 0x3214 @0x6
0x320e…321b at0007 = ╱46╱F╱ // 0x3215 @0x7
0x320e…321b at0008 = ╱53╱S╱ // 0x3216 @0x8
0x320e…321b at0009 = ╱4c╱L╱ // 0x3217 @0x9
0x320e…321b at000a = ╱55╱U╱ // 0x3218 @0xa
0x320e…321b at000b = ╱54╱T╱ // 0x3219 @0xb
0x320e…321b at000c = EOL // 0x321a @0xc
0x320e…321b }
0x321b…3231 d310 05080 LET LIN_T := LIN_T + 2
0x321b…3231 LineComal80 {
0x321b…3231 ptr = 0xd310 // 0x321b @0x0
0x321b…3231 lno = 0x13d8 // 0x321d @0x2
0x321b…3231 at0004 = ╱86╱ LET ╱ // 0x321f @0x4
0x321b…3231 at0005 = ╱4c╱L╱ // 0x3220 @0x5
0x321b…3231 at0006 = ╱49╱I╱ // 0x3221 @0x6
0x321b…3231 at0007 = ╱4e╱N╱ // 0x3222 @0x7
0x321b…3231 at0008 = ╱5f╱_╱ // 0x3223 @0x8
0x321b…3231 at0009 = ╱54╱T╱ // 0x3224 @0x9
0x321b…3231 at000a = ╱f0╱ := ╱ // 0x3225 @0xa
0x321b…3231 at000b = ╱4c╱L╱ // 0x3226 @0xb
0x321b…3231 at000c = ╱49╱I╱ // 0x3227 @0xc
0x321b…3231 at000d = ╱4e╱N╱ // 0x3228 @0xd
0x321b…3231 at000e = ╱5f╱_╱ // 0x3229 @0xe
0x321b…3231 at000f = ╱54╱T╱ // 0x322a @0xf
0x321b…3231 at0010 = ╱e5╱ + ╱ // 0x322b @0x10
0x321b…3231 at0011 = ╱32╱2╱ // 0x322c @0x11
0x321b…3231 at0012 = ╱f20200╱ // 0x322d @0x12
0x321b…3231 at0015 = EOL // 0x3230 @0x15
0x321b…3231 }
0x3231…3273 c861 05210 PRINT "<S>-----……--------------------……--……--------……----------……"
0x3231…3273 LineComal80 {
0x3231…3273 ptr = 0xc861 // 0x3231 @0x0
0x3231…3273 lno = 0x145a // 0x3233 @0x2
0x3231…3273 at0004 = ╱92╱ PRINT ╱ // 0x3235 @0x4
0x3231…3273 at0005 = ╱22╱"╱ // 0x3236 @0x5
0x3231…3273 at0006 = ╱3c╱<╱ // 0x3237 @0x6
0x3231…3273 at0007 = ╱53╱S╱ // 0x3238 @0x7
0x3231…3273 at0008 = ╱3e╱>╱ // 0x3239 @0x8
0x3231…3273 at0009 = ╱2d╱-╱ // 0x323a @0x9
0x3231…3273 at000a = ╱2d╱-╱ // 0x323b @0xa
0x3231…3273 at000b = ╱2d╱-╱ // 0x323c @0xb
0x3231…3273 at000c = ╱2d╱-╱ // 0x323d @0xc
0x3231…3273 at000d = ╱2d╱-╱ // 0x323e @0xd
0x3231…3273 at000e = ╱20╱…╱ // 0x323f @0xe
0x3231…3273 at000f = ╱20╱…╱ // 0x3240 @0xf
0x3231…3273 at0010 = ╱2d╱-╱ // 0x3241 @0x10
0x3231…3273 at0011 = ╱2d╱-╱ // 0x3242 @0x11
0x3231…3273 at0012 = ╱2d╱-╱ // 0x3243 @0x12
0x3231…3273 at0013 = ╱2d╱-╱ // 0x3244 @0x13
0x3231…3273 at0014 = ╱2d╱-╱ // 0x3245 @0x14
0x3231…3273 at0015 = ╱2d╱-╱ // 0x3246 @0x15
0x3231…3273 at0016 = ╱2d╱-╱ // 0x3247 @0x16
0x3231…3273 at0017 = ╱2d╱-╱ // 0x3248 @0x17
0x3231…3273 at0018 = ╱2d╱-╱ // 0x3249 @0x18
0x3231…3273 at0019 = ╱2d╱-╱ // 0x324a @0x19
0x3231…3273 at001a = ╱2d╱-╱ // 0x324b @0x1a
0x3231…3273 at001b = ╱2d╱-╱ // 0x324c @0x1b
0x3231…3273 at001c = ╱2d╱-╱ // 0x324d @0x1c
0x3231…3273 at001d = ╱2d╱-╱ // 0x324e @0x1d
0x3231…3273 at001e = ╱2d╱-╱ // 0x324f @0x1e
0x3231…3273 at001f = ╱2d╱-╱ // 0x3250 @0x1f
0x3231…3273 at0020 = ╱2d╱-╱ // 0x3251 @0x20
0x3231…3273 at0021 = ╱2d╱-╱ // 0x3252 @0x21
0x3231…3273 at0022 = ╱2d╱-╱ // 0x3253 @0x22
0x3231…3273 at0023 = ╱2d╱-╱ // 0x3254 @0x23
0x3231…3273 at0024 = ╱20╱…╱ // 0x3255 @0x24
0x3231…3273 at0025 = ╱20╱…╱ // 0x3256 @0x25
0x3231…3273 at0026 = ╱2d╱-╱ // 0x3257 @0x26
0x3231…3273 at0027 = ╱2d╱-╱ // 0x3258 @0x27
0x3231…3273 at0028 = ╱20╱…╱ // 0x3259 @0x28
0x3231…3273 at0029 = ╱20╱…╱ // 0x325a @0x29
0x3231…3273 at002a = ╱2d╱-╱ // 0x325b @0x2a
0x3231…3273 at002b = ╱2d╱-╱ // 0x325c @0x2b
0x3231…3273 at002c = ╱2d╱-╱ // 0x325d @0x2c
0x3231…3273 at002d = ╱2d╱-╱ // 0x325e @0x2d
0x3231…3273 at002e = ╱2d╱-╱ // 0x325f @0x2e
0x3231…3273 at002f = ╱2d╱-╱ // 0x3260 @0x2f
0x3231…3273 at0030 = ╱2d╱-╱ // 0x3261 @0x30
0x3231…3273 at0031 = ╱2d╱-╱ // 0x3262 @0x31
0x3231…3273 at0032 = ╱20╱…╱ // 0x3263 @0x32
0x3231…3273 at0033 = ╱20╱…╱ // 0x3264 @0x33
0x3231…3273 at0034 = ╱2d╱-╱ // 0x3265 @0x34
0x3231…3273 at0035 = ╱2d╱-╱ // 0x3266 @0x35
0x3231…3273 at0036 = ╱2d╱-╱ // 0x3267 @0x36
0x3231…3273 at0037 = ╱2d╱-╱ // 0x3268 @0x37
0x3231…3273 at0038 = ╱2d╱-╱ // 0x3269 @0x38
0x3231…3273 at0039 = ╱2d╱-╱ // 0x326a @0x39
0x3231…3273 at003a = ╱2d╱-╱ // 0x326b @0x3a
0x3231…3273 at003b = ╱2d╱-╱ // 0x326c @0x3b
0x3231…3273 at003c = ╱2d╱-╱ // 0x326d @0x3c
0x3231…3273 at003d = ╱2d╱-╱ // 0x326e @0x3d
0x3231…3273 at003e = ╱20╱…╱ // 0x326f @0x3e
0x3231…3273 at003f = ╱20╱…╱ // 0x3270 @0x3f
0x3231…3273 at0040 = ╱22╱"╱ // 0x3271 @0x40
0x3231…3273 at0041 = EOL // 0x3272 @0x41
0x3231…3273 }
0x3273…3285 c873 05100 PRINT "----------"
0x3273…3285 LineComal80 {
0x3273…3285 ptr = 0xc873 // 0x3273 @0x0
0x3273…3285 lno = 0x13ec // 0x3275 @0x2
0x3273…3285 at0004 = ╱92╱ PRINT ╱ // 0x3277 @0x4
0x3273…3285 at0005 = ╱22╱"╱ // 0x3278 @0x5
0x3273…3285 at0006 = ╱2d╱-╱ // 0x3279 @0x6
0x3273…3285 at0007 = ╱2d╱-╱ // 0x327a @0x7
0x3273…3285 at0008 = ╱2d╱-╱ // 0x327b @0x8
0x3273…3285 at0009 = ╱2d╱-╱ // 0x327c @0x9
0x3273…3285 at000a = ╱2d╱-╱ // 0x327d @0xa
0x3273…3285 at000b = ╱2d╱-╱ // 0x327e @0xb
0x3273…3285 at000c = ╱2d╱-╱ // 0x327f @0xc
0x3273…3285 at000d = ╱2d╱-╱ // 0x3280 @0xd
0x3273…3285 at000e = ╱2d╱-╱ // 0x3281 @0xe
0x3273…3285 at000f = ╱2d╱-╱ // 0x3282 @0xf
0x3273…3285 at0010 = ╱22╱"╱ // 0x3283 @0x10
0x3273…3285 at0011 = EOL // 0x3284 @0x11
0x3273…3285 }
0x3285…32c4 c8b2 05110 PRINT TAB ( 8 ) ; "DEBET/KREDIT…TOTAL" ; TAB ( 42 ) ; CHR$ ( P_DEB , 9 , 2 ) ;
0x3285…32c4 LineComal80 {
0x3285…32c4 ptr = 0xc8b2 // 0x3285 @0x0
0x3285…32c4 lno = 0x13f6 // 0x3287 @0x2
0x3285…32c4 at0004 = ╱92╱ PRINT ╱ // 0x3289 @0x4
0x3285…32c4 at0005 = ╱d2╱ TAB ╱ // 0x328a @0x5
0x3285…32c4 at0006 = ╱ed╱ ( ╱ // 0x328b @0x6
0x3285…32c4 at0007 = ╱38╱8╱ // 0x328c @0x7
0x3285…32c4 at0008 = ╱f20800╱ // 0x328d @0x8
0x3285…32c4 at000b = ╱ee╱ ) ╱ // 0x3290 @0xb
0x3285…32c4 at000c = ╱ea╱ ; ╱ // 0x3291 @0xc
0x3285…32c4 at000d = ╱22╱"╱ // 0x3292 @0xd
0x3285…32c4 at000e = ╱44╱D╱ // 0x3293 @0xe
0x3285…32c4 at000f = ╱45╱E╱ // 0x3294 @0xf
0x3285…32c4 at0010 = ╱42╱B╱ // 0x3295 @0x10
0x3285…32c4 at0011 = ╱45╱E╱ // 0x3296 @0x11
0x3285…32c4 at0012 = ╱54╱T╱ // 0x3297 @0x12
0x3285…32c4 at0013 = ╱2f╱/╱ // 0x3298 @0x13
0x3285…32c4 at0014 = ╱4b╱K╱ // 0x3299 @0x14
0x3285…32c4 at0015 = ╱52╱R╱ // 0x329a @0x15
0x3285…32c4 at0016 = ╱45╱E╱ // 0x329b @0x16
0x3285…32c4 at0017 = ╱44╱D╱ // 0x329c @0x17
0x3285…32c4 at0018 = ╱49╱I╱ // 0x329d @0x18
0x3285…32c4 at0019 = ╱54╱T╱ // 0x329e @0x19
0x3285…32c4 at001a = ╱20╱…╱ // 0x329f @0x1a
0x3285…32c4 at001b = ╱54╱T╱ // 0x32a0 @0x1b
0x3285…32c4 at001c = ╱4f╱O╱ // 0x32a1 @0x1c
0x3285…32c4 at001d = ╱54╱T╱ // 0x32a2 @0x1d
0x3285…32c4 at001e = ╱41╱A╱ // 0x32a3 @0x1e
0x3285…32c4 at001f = ╱4c╱L╱ // 0x32a4 @0x1f
0x3285…32c4 at0020 = ╱22╱"╱ // 0x32a5 @0x20
0x3285…32c4 at0021 = ╱ea╱ ; ╱ // 0x32a6 @0x21
0x3285…32c4 at0022 = ╱d2╱ TAB ╱ // 0x32a7 @0x22
0x3285…32c4 at0023 = ╱ed╱ ( ╱ // 0x32a8 @0x23
0x3285…32c4 at0024 = ╱34╱4╱ // 0x32a9 @0x24
0x3285…32c4 at0025 = ╱32╱2╱ // 0x32aa @0x25
0x3285…32c4 at0026 = ╱f22a00╱ // 0x32ab @0x26
0x3285…32c4 at0029 = ╱ee╱ ) ╱ // 0x32ae @0x29
0x3285…32c4 at002a = ╱ea╱ ; ╱ // 0x32af @0x2a
0x3285…32c4 at002b = ╱d0╱ CHR$ ╱ // 0x32b0 @0x2b
0x3285…32c4 at002c = ╱ed╱ ( ╱ // 0x32b1 @0x2c
0x3285…32c4 at002d = ╱50╱P╱ // 0x32b2 @0x2d
0x3285…32c4 at002e = ╱5f╱_╱ // 0x32b3 @0x2e
0x3285…32c4 at002f = ╱44╱D╱ // 0x32b4 @0x2f
0x3285…32c4 at0030 = ╱45╱E╱ // 0x32b5 @0x30
0x3285…32c4 at0031 = ╱42╱B╱ // 0x32b6 @0x31
0x3285…32c4 at0032 = ╱ec╱ , ╱ // 0x32b7 @0x32
0x3285…32c4 at0033 = ╱39╱9╱ // 0x32b8 @0x33
0x3285…32c4 at0034 = ╱f20900╱ // 0x32b9 @0x34
0x3285…32c4 at0037 = ╱ec╱ , ╱ // 0x32bc @0x37
0x3285…32c4 at0038 = ╱32╱2╱ // 0x32bd @0x38
0x3285…32c4 at0039 = ╱f20200╱ // 0x32be @0x39
0x3285…32c4 at003c = ╱ee╱ ) ╱ // 0x32c1 @0x3c
0x3285…32c4 at003d = ╱ea╱ ; ╱ // 0x32c2 @0x3d
0x3285…32c4 at003e = EOL // 0x32c3 @0x3e
0x3285…32c4 }
0x32c4…32dd c8cb 05120 PRINT CHR$ ( P_KRED , 9 , 2 )
0x32c4…32dd LineComal80 {
0x32c4…32dd ptr = 0xc8cb // 0x32c4 @0x0
0x32c4…32dd lno = 0x1400 // 0x32c6 @0x2
0x32c4…32dd at0004 = ╱92╱ PRINT ╱ // 0x32c8 @0x4
0x32c4…32dd at0005 = ╱d0╱ CHR$ ╱ // 0x32c9 @0x5
0x32c4…32dd at0006 = ╱ed╱ ( ╱ // 0x32ca @0x6
0x32c4…32dd at0007 = ╱50╱P╱ // 0x32cb @0x7
0x32c4…32dd at0008 = ╱5f╱_╱ // 0x32cc @0x8
0x32c4…32dd at0009 = ╱4b╱K╱ // 0x32cd @0x9
0x32c4…32dd at000a = ╱52╱R╱ // 0x32ce @0xa
0x32c4…32dd at000b = ╱45╱E╱ // 0x32cf @0xb
0x32c4…32dd at000c = ╱44╱D╱ // 0x32d0 @0xc
0x32c4…32dd at000d = ╱ec╱ , ╱ // 0x32d1 @0xd
0x32c4…32dd at000e = ╱39╱9╱ // 0x32d2 @0xe
0x32c4…32dd at000f = ╱f20900╱ // 0x32d3 @0xf
0x32c4…32dd at0012 = ╱ec╱ , ╱ // 0x32d6 @0x12
0x32c4…32dd at0013 = ╱32╱2╱ // 0x32d7 @0x13
0x32c4…32dd at0014 = ╱f20200╱ // 0x32d8 @0x14
0x32c4…32dd at0017 = ╱ee╱ ) ╱ // 0x32db @0x17
0x32c4…32dd at0018 = EOL // 0x32dc @0x18
0x32c4…32dd }
0x32dd…32f1 c8df 05130 IF _DEB > P_KRED THEN
0x32dd…32f1 LineComal80 {
0x32dd…32f1 ptr = 0xc8df // 0x32dd @0x0
0x32dd…32f1 lno = 0x140a // 0x32df @0x2
0x32dd…32f1 at0004 = ╱9b6050╱ IF ╱ // 0x32e1 @0x4
0x32dd…32f1 at0007 = ╱5f╱_╱ // 0x32e4 @0x7
0x32dd…32f1 at0008 = ╱44╱D╱ // 0x32e5 @0x8
0x32dd…32f1 at0009 = ╱45╱E╱ // 0x32e6 @0x9
0x32dd…32f1 at000a = ╱42╱B╱ // 0x32e7 @0xa
0x32dd…32f1 at000b = ╱e1╱ > ╱ // 0x32e8 @0xb
0x32dd…32f1 at000c = ╱50╱P╱ // 0x32e9 @0xc
0x32dd…32f1 at000d = ╱5f╱_╱ // 0x32ea @0xd
0x32dd…32f1 at000e = ╱4b╱K╱ // 0x32eb @0xe
0x32dd…32f1 at000f = ╱52╱R╱ // 0x32ec @0xf
0x32dd…32f1 at0010 = ╱45╱E╱ // 0x32ed @0x10
0x32dd…32f1 at0011 = ╱44╱D╱ // 0x32ee @0x11
0x32dd…32f1 at0012 = ╱b5╱ THEN ╱ // 0x32ef @0x12
0x32dd…32f1 at0013 = EOL // 0x32f0 @0x13
0x32dd…32f1 }
0x32f1…332f c91d 05140 PRINT TAB ( 11 ) ; "DIFFERENCE" ; TAB ( 42 ) ; CHR$ ( P_DEB - P_KRED , 9 , 2 )
0x32f1…332f LineComal80 {
0x32f1…332f ptr = 0xc91d // 0x32f1 @0x0
0x32f1…332f lno = 0x1414 // 0x32f3 @0x2
0x32f1…332f at0004 = ╱92╱ PRINT ╱ // 0x32f5 @0x4
0x32f1…332f at0005 = ╱d2╱ TAB ╱ // 0x32f6 @0x5
0x32f1…332f at0006 = ╱ed╱ ( ╱ // 0x32f7 @0x6
0x32f1…332f at0007 = ╱31╱1╱ // 0x32f8 @0x7
0x32f1…332f at0008 = ╱31╱1╱ // 0x32f9 @0x8
0x32f1…332f at0009 = ╱f20b00╱ // 0x32fa @0x9
0x32f1…332f at000c = ╱ee╱ ) ╱ // 0x32fd @0xc
0x32f1…332f at000d = ╱ea╱ ; ╱ // 0x32fe @0xd
0x32f1…332f at000e = ╱22╱"╱ // 0x32ff @0xe
0x32f1…332f at000f = ╱44╱D╱ // 0x3300 @0xf
0x32f1…332f at0010 = ╱49╱I╱ // 0x3301 @0x10
0x32f1…332f at0011 = ╱46╱F╱ // 0x3302 @0x11
0x32f1…332f at0012 = ╱46╱F╱ // 0x3303 @0x12
0x32f1…332f at0013 = ╱45╱E╱ // 0x3304 @0x13
0x32f1…332f at0014 = ╱52╱R╱ // 0x3305 @0x14
0x32f1…332f at0015 = ╱45╱E╱ // 0x3306 @0x15
0x32f1…332f at0016 = ╱4e╱N╱ // 0x3307 @0x16
0x32f1…332f at0017 = ╱43╱C╱ // 0x3308 @0x17
0x32f1…332f at0018 = ╱45╱E╱ // 0x3309 @0x18
0x32f1…332f at0019 = ╱22╱"╱ // 0x330a @0x19
0x32f1…332f at001a = ╱ea╱ ; ╱ // 0x330b @0x1a
0x32f1…332f at001b = ╱d2╱ TAB ╱ // 0x330c @0x1b
0x32f1…332f at001c = ╱ed╱ ( ╱ // 0x330d @0x1c
0x32f1…332f at001d = ╱34╱4╱ // 0x330e @0x1d
0x32f1…332f at001e = ╱32╱2╱ // 0x330f @0x1e
0x32f1…332f at001f = ╱f22a00╱ // 0x3310 @0x1f
0x32f1…332f at0022 = ╱ee╱ ) ╱ // 0x3313 @0x22
0x32f1…332f at0023 = ╱ea╱ ; ╱ // 0x3314 @0x23
0x32f1…332f at0024 = ╱d0╱ CHR$ ╱ // 0x3315 @0x24
0x32f1…332f at0025 = ╱ed╱ ( ╱ // 0x3316 @0x25
0x32f1…332f at0026 = ╱50╱P╱ // 0x3317 @0x26
0x32f1…332f at0027 = ╱5f╱_╱ // 0x3318 @0x27
0x32f1…332f at0028 = ╱44╱D╱ // 0x3319 @0x28
0x32f1…332f at0029 = ╱45╱E╱ // 0x331a @0x29
0x32f1…332f at002a = ╱42╱B╱ // 0x331b @0x2a
0x32f1…332f at002b = ╱e6╱ - ╱ // 0x331c @0x2b
0x32f1…332f at002c = ╱50╱P╱ // 0x331d @0x2c
0x32f1…332f at002d = ╱5f╱_╱ // 0x331e @0x2d
0x32f1…332f at002e = ╱4b╱K╱ // 0x331f @0x2e
0x32f1…332f at002f = ╱52╱R╱ // 0x3320 @0x2f
0x32f1…332f at0030 = ╱45╱E╱ // 0x3321 @0x30
0x32f1…332f at0031 = ╱44╱D╱ // 0x3322 @0x31
0x32f1…332f at0032 = ╱ec╱ , ╱ // 0x3323 @0x32
0x32f1…332f at0033 = ╱39╱9╱ // 0x3324 @0x33
0x32f1…332f at0034 = ╱f20900╱ // 0x3325 @0x34
0x32f1…332f at0037 = ╱ec╱ , ╱ // 0x3328 @0x37
0x32f1…332f at0038 = ╱32╱2╱ // 0x3329 @0x38
0x32f1…332f at0039 = ╱f20200╱ // 0x332a @0x39
0x32f1…332f at003c = ╱ee╱ ) ╱ // 0x332d @0x3c
0x32f1…332f at003d = EOL // 0x332e @0x3d
0x32f1…332f }
0x332f…3345 c933 05150 LET LIN_T := LIN_T + 1
0x332f…3345 LineComal80 {
0x332f…3345 ptr = 0xc933 // 0x332f @0x0
0x332f…3345 lno = 0x141e // 0x3331 @0x2
0x332f…3345 at0004 = ╱86╱ LET ╱ // 0x3333 @0x4
0x332f…3345 at0005 = ╱4c╱L╱ // 0x3334 @0x5
0x332f…3345 at0006 = ╱49╱I╱ // 0x3335 @0x6
0x332f…3345 at0007 = ╱4e╱N╱ // 0x3336 @0x7
0x332f…3345 at0008 = ╱5f╱_╱ // 0x3337 @0x8
0x332f…3345 at0009 = ╱54╱T╱ // 0x3338 @0x9
0x332f…3345 at000a = ╱f0╱ := ╱ // 0x3339 @0xa
0x332f…3345 at000b = ╱4c╱L╱ // 0x333a @0xb
0x332f…3345 at000c = ╱49╱I╱ // 0x333b @0xc
0x332f…3345 at000d = ╱4e╱N╱ // 0x333c @0xd
0x332f…3345 at000e = ╱5f╱_╱ // 0x333d @0xe
0x332f…3345 at000f = ╱54╱T╱ // 0x333e @0xf
0x332f…3345 at0010 = ╱e5╱ + ╱ // 0x333f @0x10
0x332f…3345 at0011 = ╱31╱1╱ // 0x3340 @0x11
0x332f…3345 at0012 = ╱f20100╱ // 0x3341 @0x12
0x332f…3345 at0015 = EOL // 0x3344 @0x15
0x332f…3345 }
0x3345…334c c93a 05160 ELSE
0x3345…334c LineComal80 {
0x3345…334c ptr = 0xc93a // 0x3345 @0x0
0x3345…334c lno = 0x1428 // 0x3347 @0x2
0x3345…334c at0004 = ╱9a61╱ ELSE ╱ // 0x3349 @0x4
0x3345…334c at0006 = EOL // 0x334b @0x6
0x3345…334c }
0x334c…3360 c94e 05170 IF _KRED > P_DEB THEN
0x334c…3360 LineComal80 {
0x334c…3360 ptr = 0xc94e // 0x334c @0x0
0x334c…3360 lno = 0x1432 // 0x334e @0x2
0x334c…3360 at0004 = ╱9b6250╱ IF ╱ // 0x3350 @0x4
0x334c…3360 at0007 = ╱5f╱_╱ // 0x3353 @0x7
0x334c…3360 at0008 = ╱4b╱K╱ // 0x3354 @0x8
0x334c…3360 at0009 = ╱52╱R╱ // 0x3355 @0x9
0x334c…3360 at000a = ╱45╱E╱ // 0x3356 @0xa
0x334c…3360 at000b = ╱44╱D╱ // 0x3357 @0xb
0x334c…3360 at000c = ╱e1╱ > ╱ // 0x3358 @0xc
0x334c…3360 at000d = ╱50╱P╱ // 0x3359 @0xd
0x334c…3360 at000e = ╱5f╱_╱ // 0x335a @0xe
0x334c…3360 at000f = ╱44╱D╱ // 0x335b @0xf
0x334c…3360 at0010 = ╱45╱E╱ // 0x335c @0x10
0x334c…3360 at0011 = ╱42╱B╱ // 0x335d @0x11
0x334c…3360 at0012 = ╱b5╱ THEN ╱ // 0x335e @0x12
0x334c…3360 at0013 = EOL // 0x335f @0x13
0x334c…3360 }
0x3360…339e c98c 05180 PRINT TAB ( 11 ) ; "DIFFERENCE" ; TAB ( 54 ) ; CHR$ ( P_KRED - P_DEB , 9 , 2 )
0x3360…339e LineComal80 {
0x3360…339e ptr = 0xc98c // 0x3360 @0x0
0x3360…339e lno = 0x143c // 0x3362 @0x2
0x3360…339e at0004 = ╱92╱ PRINT ╱ // 0x3364 @0x4
0x3360…339e at0005 = ╱d2╱ TAB ╱ // 0x3365 @0x5
0x3360…339e at0006 = ╱ed╱ ( ╱ // 0x3366 @0x6
0x3360…339e at0007 = ╱31╱1╱ // 0x3367 @0x7
0x3360…339e at0008 = ╱31╱1╱ // 0x3368 @0x8
0x3360…339e at0009 = ╱f20b00╱ // 0x3369 @0x9
0x3360…339e at000c = ╱ee╱ ) ╱ // 0x336c @0xc
0x3360…339e at000d = ╱ea╱ ; ╱ // 0x336d @0xd
0x3360…339e at000e = ╱22╱"╱ // 0x336e @0xe
0x3360…339e at000f = ╱44╱D╱ // 0x336f @0xf
0x3360…339e at0010 = ╱49╱I╱ // 0x3370 @0x10
0x3360…339e at0011 = ╱46╱F╱ // 0x3371 @0x11
0x3360…339e at0012 = ╱46╱F╱ // 0x3372 @0x12
0x3360…339e at0013 = ╱45╱E╱ // 0x3373 @0x13
0x3360…339e at0014 = ╱52╱R╱ // 0x3374 @0x14
0x3360…339e at0015 = ╱45╱E╱ // 0x3375 @0x15
0x3360…339e at0016 = ╱4e╱N╱ // 0x3376 @0x16
0x3360…339e at0017 = ╱43╱C╱ // 0x3377 @0x17
0x3360…339e at0018 = ╱45╱E╱ // 0x3378 @0x18
0x3360…339e at0019 = ╱22╱"╱ // 0x3379 @0x19
0x3360…339e at001a = ╱ea╱ ; ╱ // 0x337a @0x1a
0x3360…339e at001b = ╱d2╱ TAB ╱ // 0x337b @0x1b
0x3360…339e at001c = ╱ed╱ ( ╱ // 0x337c @0x1c
0x3360…339e at001d = ╱35╱5╱ // 0x337d @0x1d
0x3360…339e at001e = ╱34╱4╱ // 0x337e @0x1e
0x3360…339e at001f = ╱f23600╱ // 0x337f @0x1f
0x3360…339e at0022 = ╱ee╱ ) ╱ // 0x3382 @0x22
0x3360…339e at0023 = ╱ea╱ ; ╱ // 0x3383 @0x23
0x3360…339e at0024 = ╱d0╱ CHR$ ╱ // 0x3384 @0x24
0x3360…339e at0025 = ╱ed╱ ( ╱ // 0x3385 @0x25
0x3360…339e at0026 = ╱50╱P╱ // 0x3386 @0x26
0x3360…339e at0027 = ╱5f╱_╱ // 0x3387 @0x27
0x3360…339e at0028 = ╱4b╱K╱ // 0x3388 @0x28
0x3360…339e at0029 = ╱52╱R╱ // 0x3389 @0x29
0x3360…339e at002a = ╱45╱E╱ // 0x338a @0x2a
0x3360…339e at002b = ╱44╱D╱ // 0x338b @0x2b
0x3360…339e at002c = ╱e6╱ - ╱ // 0x338c @0x2c
0x3360…339e at002d = ╱50╱P╱ // 0x338d @0x2d
0x3360…339e at002e = ╱5f╱_╱ // 0x338e @0x2e
0x3360…339e at002f = ╱44╱D╱ // 0x338f @0x2f
0x3360…339e at0030 = ╱45╱E╱ // 0x3390 @0x30
0x3360…339e at0031 = ╱42╱B╱ // 0x3391 @0x31
0x3360…339e at0032 = ╱ec╱ , ╱ // 0x3392 @0x32
0x3360…339e at0033 = ╱39╱9╱ // 0x3393 @0x33
0x3360…339e at0034 = ╱f20900╱ // 0x3394 @0x34
0x3360…339e at0037 = ╱ec╱ , ╱ // 0x3397 @0x37
0x3360…339e at0038 = ╱32╱2╱ // 0x3398 @0x38
0x3360…339e at0039 = ╱f20200╱ // 0x3399 @0x39
0x3360…339e at003c = ╱ee╱ ) ╱ // 0x339c @0x3c
0x3360…339e at003d = EOL // 0x339d @0x3d
0x3360…339e }
0x339e…33b4 c9a2 05190 LET LIN_T := LIN_T + 1
0x339e…33b4 LineComal80 {
0x339e…33b4 ptr = 0xc9a2 // 0x339e @0x0
0x339e…33b4 lno = 0x1446 // 0x33a0 @0x2
0x339e…33b4 at0004 = ╱86╱ LET ╱ // 0x33a2 @0x4
0x339e…33b4 at0005 = ╱4c╱L╱ // 0x33a3 @0x5
0x339e…33b4 at0006 = ╱49╱I╱ // 0x33a4 @0x6
0x339e…33b4 at0007 = ╱4e╱N╱ // 0x33a5 @0x7
0x339e…33b4 at0008 = ╱5f╱_╱ // 0x33a6 @0x8
0x339e…33b4 at0009 = ╱54╱T╱ // 0x33a7 @0x9
0x339e…33b4 at000a = ╱f0╱ := ╱ // 0x33a8 @0xa
0x339e…33b4 at000b = ╱4c╱L╱ // 0x33a9 @0xb
0x339e…33b4 at000c = ╱49╱I╱ // 0x33aa @0xc
0x339e…33b4 at000d = ╱4e╱N╱ // 0x33ab @0xd
0x339e…33b4 at000e = ╱5f╱_╱ // 0x33ac @0xe
0x339e…33b4 at000f = ╱54╱T╱ // 0x33ad @0xf
0x339e…33b4 at0010 = ╱e5╱ + ╱ // 0x33ae @0x10
0x339e…33b4 at0011 = ╱31╱1╱ // 0x33af @0x11
0x339e…33b4 at0012 = ╱f20100╱ // 0x33b0 @0x12
0x339e…33b4 at0015 = EOL // 0x33b3 @0x15
0x339e…33b4 }
0x33b4…33ba c9a8 05200 ENDIF
0x33b4…33ba LineComal80 {
0x33b4…33ba ptr = 0xc9a8 // 0x33b4 @0x0
0x33b4…33ba lno = 0x1450 // 0x33b6 @0x2
0x33b4…33ba at0004 = ╱9c╱ ENDIF ╱ // 0x33b8 @0x4
0x33b4…33ba at0005 = EOL // 0x33b9 @0x5
0x33b4…33ba }
0x33ba…33c0 c9ae 05210 ENDIF
0x33ba…33c0 LineComal80 {
0x33ba…33c0 ptr = 0xc9ae // 0x33ba @0x0
0x33ba…33c0 lno = 0x145a // 0x33bc @0x2
0x33ba…33c0 at0004 = ╱9c╱ ENDIF ╱ // 0x33be @0x4
0x33ba…33c0 at0005 = EOL // 0x33bf @0x5
0x33ba…33c0 }
0x33c0…33d8 c9c6 05220 FOR I := LIN_T TO AX_LIN DO PRINT
0x33c0…33d8 LineComal80 {
0x33c0…33d8 ptr = 0xc9c6 // 0x33c0 @0x0
0x33c0…33d8 lno = 0x1464 // 0x33c2 @0x2
0x33c0…33d8 at0004 = ╱b400╱ FOR ╱ // 0x33c4 @0x4
0x33c0…33d8 at0006 = ╱49╱I╱ // 0x33c6 @0x6
0x33c0…33d8 at0007 = ╱f0╱ := ╱ // 0x33c7 @0x7
0x33c0…33d8 at0008 = ╱4c╱L╱ // 0x33c8 @0x8
0x33c0…33d8 at0009 = ╱49╱I╱ // 0x33c9 @0x9
0x33c0…33d8 at000a = ╱4e╱N╱ // 0x33ca @0xa
0x33c0…33d8 at000b = ╱5f╱_╱ // 0x33cb @0xb
0x33c0…33d8 at000c = ╱54╱T╱ // 0x33cc @0xc
0x33c0…33d8 at000d = ╱b74d╱ TO ╱ // 0x33cd @0xd
0x33c0…33d8 at000f = ╱41╱A╱ // 0x33cf @0xf
0x33c0…33d8 at0010 = ╱58╱X╱ // 0x33d0 @0x10
0x33c0…33d8 at0011 = ╱5f╱_╱ // 0x33d1 @0x11
0x33c0…33d8 at0012 = ╱4c╱L╱ // 0x33d2 @0x12
0x33c0…33d8 at0013 = ╱49╱I╱ // 0x33d3 @0x13
0x33c0…33d8 at0014 = ╱4e╱N╱ // 0x33d4 @0x14
0x33c0…33d8 at0015 = ╱bb╱ DO ╱ // 0x33d5 @0x15
0x33c0…33d8 at0016 = ╱92╱ PRINT ╱ // 0x33d6 @0x16
0x33c0…33d8 at0017 = EOL // 0x33d7 @0x17
0x33c0…33d8 }
0x33d8…33e4 c9d2 05230 ENDPROC AFSLUT
0x33d8…33e4 LineComal80 {
0x33d8…33e4 ptr = 0xc9d2 // 0x33d8 @0x0
0x33d8…33e4 lno = 0x146e // 0x33da @0x2
0x33d8…33e4 at0004 = ╱9f╱ ENDPROC ╱ // 0x33dc @0x4
0x33d8…33e4 at0005 = ╱41╱A╱ // 0x33dd @0x5
0x33d8…33e4 at0006 = ╱46╱F╱ // 0x33de @0x6
0x33d8…33e4 at0007 = ╱53╱S╱ // 0x33df @0x7
0x33d8…33e4 at0008 = ╱4c╱L╱ // 0x33e0 @0x8
0x33d8…33e4 at0009 = ╱55╱U╱ // 0x33e1 @0x9
0x33d8…33e4 at000a = ╱54╱T╱ // 0x33e2 @0xa
0x33d8…33e4 at000b = EOL // 0x33e3 @0xb
0x33d8…33e4 }
0x33e4…33e9 c9d7 05240
0x33e4…33e9 LineComal80 {
0x33e4…33e9 ptr = 0xc9d7 // 0x33e4 @0x0
0x33e4…33e9 lno = 0x1478 // 0x33e6 @0x2
0x33e4…33e9 at0004 = EOL // 0x33e8 @0x4
0x33e4…33e9 }
0x33e9…3403 c9f1 05250 PROC FIND_KTO ( REF R_KTONR $ )
0x33e9…3403 LineComal80 {
0x33e9…3403 ptr = 0xc9f1 // 0x33e9 @0x0
0x33e9…3403 lno = 0x1482 // 0x33eb @0x2
0x33e9…3403 at0004 = ╱9e63╱ PROC ╱ // 0x33ed @0x4
0x33e9…3403 at0006 = ╱46╱F╱ // 0x33ef @0x6
0x33e9…3403 at0007 = ╱49╱I╱ // 0x33f0 @0x7
0x33e9…3403 at0008 = ╱4e╱N╱ // 0x33f1 @0x8
0x33e9…3403 at0009 = ╱44╱D╱ // 0x33f2 @0x9
0x33e9…3403 at000a = ╱5f╱_╱ // 0x33f3 @0xa
0x33e9…3403 at000b = ╱4b╱K╱ // 0x33f4 @0xb
0x33e9…3403 at000c = ╱54╱T╱ // 0x33f5 @0xc
0x33e9…3403 at000d = ╱4f╱O╱ // 0x33f6 @0xd
0x33e9…3403 at000e = ╱ed╱ ( ╱ // 0x33f7 @0xe
0x33e9…3403 at000f = ╱b6╱ REF ╱ // 0x33f8 @0xf
0x33e9…3403 at0010 = ╱52╱R╱ // 0x33f9 @0x10
0x33e9…3403 at0011 = ╱5f╱_╱ // 0x33fa @0x11
0x33e9…3403 at0012 = ╱4b╱K╱ // 0x33fb @0x12
0x33e9…3403 at0013 = ╱54╱T╱ // 0x33fc @0x13
0x33e9…3403 at0014 = ╱4f╱O╱ // 0x33fd @0x14
0x33e9…3403 at0015 = ╱4e╱N╱ // 0x33fe @0x15
0x33e9…3403 at0016 = ╱52╱R╱ // 0x33ff @0x16
0x33e9…3403 at0017 = ╱ef╱ $ ╱ // 0x3400 @0x17
0x33e9…3403 at0018 = ╱ee╱ ) ╱ // 0x3401 @0x18
0x33e9…3403 at0019 = EOL // 0x3402 @0x19
0x33e9…3403 }
0x3403…3411 c9ff 05260 LET OK := FALSE
0x3403…3411 LineComal80 {
0x3403…3411 ptr = 0xc9ff // 0x3403 @0x0
0x3403…3411 lno = 0x148c // 0x3405 @0x2
0x3403…3411 at0004 = ╱86╱ LET ╱ // 0x3407 @0x4
0x3403…3411 at0005 = ╱4f╱O╱ // 0x3408 @0x5
0x3403…3411 at0006 = ╱4b╱K╱ // 0x3409 @0x6
0x3403…3411 at0007 = ╱f0╱ := ╱ // 0x340a @0x7
0x3403…3411 at0008 = ╱46╱F╱ // 0x340b @0x8
0x3403…3411 at0009 = ╱41╱A╱ // 0x340c @0x9
0x3403…3411 at000a = ╱4c╱L╱ // 0x340d @0xa
0x3403…3411 at000b = ╱53╱S╱ // 0x340e @0xb
0x3403…3411 at000c = ╱45╱E╱ // 0x340f @0xc
0x3403…3411 at000d = EOL // 0x3410 @0xd
0x3403…3411 }
0x3411…3435 ca23 05270 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
0x3411…3435 LineComal80 {
0x3411…3435 ptr = 0xca23 // 0x3411 @0x0
0x3411…3435 lno = 0x1496 // 0x3413 @0x2
0x3411…3435 at0004 = ╱a9╱ GET ╱ // 0x3415 @0x4
0x3411…3435 at0005 = ╱4b╱K╱ // 0x3416 @0x5
0x3411…3435 at0006 = ╱54╱T╱ // 0x3417 @0x6
0x3411…3435 at0007 = ╱4f╱O╱ // 0x3418 @0x7
0x3411…3435 at0008 = ╱49╱I╱ // 0x3419 @0x8
0x3411…3435 at0009 = ╱44╱D╱ // 0x341a @0x9
0x3411…3435 at000a = ╱58╱X╱ // 0x341b @0xa
0x3411…3435 at000b = ╱ef╱ $ ╱ // 0x341c @0xb
0x3411…3435 at000c = ╱ec╱ , ╱ // 0x341d @0xc
0x3411…3435 at000d = ╱31╱1╱ // 0x341e @0xd
0x3411…3435 at000e = ╱f20100╱ // 0x341f @0xe
0x3411…3435 at0011 = ╱f1╱ : ╱ // 0x3422 @0x11
0x3411…3435 at0012 = ╱49╱I╱ // 0x3423 @0x12
0x3411…3435 at0013 = ╱5f╱_╱ // 0x3424 @0x13
0x3411…3435 at0014 = ╱48╱H╱ // 0x3425 @0x14
0x3411…3435 at0015 = ╱5c╱\╱ // 0x3426 @0x15
0x3411…3435 at0016 = ╱4a╱J╱ // 0x3427 @0x16
0x3411…3435 at0017 = ╱52╱R╱ // 0x3428 @0x17
0x3411…3435 at0018 = ╱45╱E╱ // 0x3429 @0x18
0x3411…3435 at0019 = ╱43╱C╱ // 0x342a @0x19
0x3411…3435 at001a = ╱ec╱ , ╱ // 0x342b @0x1a
0x3411…3435 at001b = ╱49╱I╱ // 0x342c @0x1b
0x3411…3435 at001c = ╱5f╱_╱ // 0x342d @0x1c
0x3411…3435 at001d = ╱4d╱M╱ // 0x342e @0x1d
0x3411…3435 at001e = ╱41╱A╱ // 0x342f @0x1e
0x3411…3435 at001f = ╱58╱X╱ // 0x3430 @0x1f
0x3411…3435 at0020 = ╱52╱R╱ // 0x3431 @0x20
0x3411…3435 at0021 = ╱45╱E╱ // 0x3432 @0x21
0x3411…3435 at0022 = ╱43╱C╱ // 0x3433 @0x22
0x3411…3435 at0023 = EOL // 0x3434 @0x23
0x3411…3435 }
0x3435…345a ca48 05280 LET LOW := 1 ; HIGH := I_H\JREC ; POS := 2
0x3435…345a LineComal80 {
0x3435…345a ptr = 0xca48 // 0x3435 @0x0
0x3435…345a lno = 0x14a0 // 0x3437 @0x2
0x3435…345a at0004 = ╱86╱ LET ╱ // 0x3439 @0x4
0x3435…345a at0005 = ╱4c╱L╱ // 0x343a @0x5
0x3435…345a at0006 = ╱4f╱O╱ // 0x343b @0x6
0x3435…345a at0007 = ╱57╱W╱ // 0x343c @0x7
0x3435…345a at0008 = ╱f0╱ := ╱ // 0x343d @0x8
0x3435…345a at0009 = ╱31╱1╱ // 0x343e @0x9
0x3435…345a at000a = ╱f20100╱ // 0x343f @0xa
0x3435…345a at000d = ╱ea╱ ; ╱ // 0x3442 @0xd
0x3435…345a at000e = ╱48╱H╱ // 0x3443 @0xe
0x3435…345a at000f = ╱49╱I╱ // 0x3444 @0xf
0x3435…345a at0010 = ╱47╱G╱ // 0x3445 @0x10
0x3435…345a at0011 = ╱48╱H╱ // 0x3446 @0x11
0x3435…345a at0012 = ╱f0╱ := ╱ // 0x3447 @0x12
0x3435…345a at0013 = ╱49╱I╱ // 0x3448 @0x13
0x3435…345a at0014 = ╱5f╱_╱ // 0x3449 @0x14
0x3435…345a at0015 = ╱48╱H╱ // 0x344a @0x15
0x3435…345a at0016 = ╱5c╱\╱ // 0x344b @0x16
0x3435…345a at0017 = ╱4a╱J╱ // 0x344c @0x17
0x3435…345a at0018 = ╱52╱R╱ // 0x344d @0x18
0x3435…345a at0019 = ╱45╱E╱ // 0x344e @0x19
0x3435…345a at001a = ╱43╱C╱ // 0x344f @0x1a
0x3435…345a at001b = ╱ea╱ ; ╱ // 0x3450 @0x1b
0x3435…345a at001c = ╱50╱P╱ // 0x3451 @0x1c
0x3435…345a at001d = ╱4f╱O╱ // 0x3452 @0x1d
0x3435…345a at001e = ╱53╱S╱ // 0x3453 @0x1e
0x3435…345a at001f = ╱f0╱ := ╱ // 0x3454 @0x1f
0x3435…345a at0020 = ╱32╱2╱ // 0x3455 @0x20
0x3435…345a at0021 = ╱f20200╱ // 0x3456 @0x21
0x3435…345a at0024 = EOL // 0x3459 @0x24
0x3435…345a }
0x345a…346b ca59 05290 IF IGH > 1 THEN
0x345a…346b LineComal80 {
0x345a…346b ptr = 0xca59 // 0x345a @0x0
0x345a…346b lno = 0x14aa // 0x345c @0x2
0x345a…346b at0004 = ╱9b6448╱ IF ╱ // 0x345e @0x4
0x345a…346b at0007 = ╱49╱I╱ // 0x3461 @0x7
0x345a…346b at0008 = ╱47╱G╱ // 0x3462 @0x8
0x345a…346b at0009 = ╱48╱H╱ // 0x3463 @0x9
0x345a…346b at000a = ╱e1╱ > ╱ // 0x3464 @0xa
0x345a…346b at000b = ╱31╱1╱ // 0x3465 @0xb
0x345a…346b at000c = ╱f20100╱ // 0x3466 @0xc
0x345a…346b at000f = ╱b5╱ THEN ╱ // 0x3469 @0xf
0x345a…346b at0010 = EOL // 0x346a @0x10
0x345a…346b }
0x346b…3472 ca60 05300 REPEAT
0x346b…3472 LineComal80 {
0x346b…3472 ptr = 0xca60 // 0x346b @0x0
0x346b…3472 lno = 0x14b4 // 0x346d @0x2
0x346b…3472 at0004 = ╱9765╱ REPEAT ╱ // 0x346f @0x4
0x346b…3472 at0006 = EOL // 0x3471 @0x6
0x346b…3472 }
0x3472…349e ca8c 05310 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
0x3472…349e LineComal80 {
0x3472…349e ptr = 0xca8c // 0x3472 @0x0
0x3472…349e lno = 0x14be // 0x3474 @0x2
0x3472…349e at0004 = ╱86╱ LET ╱ // 0x3476 @0x4
0x3472…349e at0005 = ╱50╱P╱ // 0x3477 @0x5
0x3472…349e at0006 = ╱4f╱O╱ // 0x3478 @0x6
0x3472…349e at0007 = ╱53╱S╱ // 0x3479 @0x7
0x3472…349e at0008 = ╱f0╱ := ╱ // 0x347a @0x8
0x3472…349e at0009 = ╱c6╱ INT ╱ // 0x347b @0x9
0x3472…349e at000a = ╱ed╱ ( ╱ // 0x347c @0xa
0x3472…349e at000b = ╱ed╱ ( ╱ // 0x347d @0xb
0x3472…349e at000c = ╱48╱H╱ // 0x347e @0xc
0x3472…349e at000d = ╱49╱I╱ // 0x347f @0xd
0x3472…349e at000e = ╱47╱G╱ // 0x3480 @0xe
0x3472…349e at000f = ╱48╱H╱ // 0x3481 @0xf
0x3472…349e at0010 = ╱e6╱ - ╱ // 0x3482 @0x10
0x3472…349e at0011 = ╱4c╱L╱ // 0x3483 @0x11
0x3472…349e at0012 = ╱4f╱O╱ // 0x3484 @0x12
0x3472…349e at0013 = ╱57╱W╱ // 0x3485 @0x13
0x3472…349e at0014 = ╱ee╱ ) ╱ // 0x3486 @0x14
0x3472…349e at0015 = ╱e8╱ / ╱ // 0x3487 @0x15
0x3472…349e at0016 = ╱32╱2╱ // 0x3488 @0x16
0x3472…349e at0017 = ╱f20200╱ // 0x3489 @0x17
0x3472…349e at001a = ╱e5╱ + ╱ // 0x348c @0x1a
0x3472…349e at001b = ╱2e╱.╱ // 0x348d @0x1b
0x3472…349e at001c = ╱35╱5╱ // 0x348e @0x1c
0x3472…349e at001d = ╱f88000000000000005╱ // 0x348f @0x1d
0x3472…349e at0026 = ╱ee╱ ) ╱ // 0x3498 @0x26
0x3472…349e at0027 = ╱e5╱ + ╱ // 0x3499 @0x27
0x3472…349e at0028 = ╱4c╱L╱ // 0x349a @0x28
0x3472…349e at0029 = ╱4f╱O╱ // 0x349b @0x29
0x3472…349e at002a = ╱57╱W╱ // 0x349c @0x2a
0x3472…349e at002b = EOL // 0x349d @0x2b
0x3472…349e }
0x349e…34bc caaa 05320 GET KTOIDX $ , POS : KTONR $ , RECNR
0x349e…34bc LineComal80 {
0x349e…34bc ptr = 0xcaaa // 0x349e @0x0
0x349e…34bc lno = 0x14c8 // 0x34a0 @0x2
0x349e…34bc at0004 = ╱a9╱ GET ╱ // 0x34a2 @0x4
0x349e…34bc at0005 = ╱4b╱K╱ // 0x34a3 @0x5
0x349e…34bc at0006 = ╱54╱T╱ // 0x34a4 @0x6
0x349e…34bc at0007 = ╱4f╱O╱ // 0x34a5 @0x7
0x349e…34bc at0008 = ╱49╱I╱ // 0x34a6 @0x8
0x349e…34bc at0009 = ╱44╱D╱ // 0x34a7 @0x9
0x349e…34bc at000a = ╱58╱X╱ // 0x34a8 @0xa
0x349e…34bc at000b = ╱ef╱ $ ╱ // 0x34a9 @0xb
0x349e…34bc at000c = ╱ec╱ , ╱ // 0x34aa @0xc
0x349e…34bc at000d = ╱50╱P╱ // 0x34ab @0xd
0x349e…34bc at000e = ╱4f╱O╱ // 0x34ac @0xe
0x349e…34bc at000f = ╱53╱S╱ // 0x34ad @0xf
0x349e…34bc at0010 = ╱f1╱ : ╱ // 0x34ae @0x10
0x349e…34bc at0011 = ╱4b╱K╱ // 0x34af @0x11
0x349e…34bc at0012 = ╱54╱T╱ // 0x34b0 @0x12
0x349e…34bc at0013 = ╱4f╱O╱ // 0x34b1 @0x13
0x349e…34bc at0014 = ╱4e╱N╱ // 0x34b2 @0x14
0x349e…34bc at0015 = ╱52╱R╱ // 0x34b3 @0x15
0x349e…34bc at0016 = ╱ef╱ $ ╱ // 0x34b4 @0x16
0x349e…34bc at0017 = ╱ec╱ , ╱ // 0x34b5 @0x17
0x349e…34bc at0018 = ╱52╱R╱ // 0x34b6 @0x18
0x349e…34bc at0019 = ╱45╱E╱ // 0x34b7 @0x19
0x349e…34bc at001a = ╱43╱C╱ // 0x34b8 @0x1a
0x349e…34bc at001b = ╱4e╱N╱ // 0x34b9 @0x1b
0x349e…34bc at001c = ╱52╱R╱ // 0x34ba @0x1c
0x349e…34bc at001d = EOL // 0x34bb @0x1d
0x349e…34bc }
0x34bc…34d3 cac1 05330 IF TONR $ > R_KTONR $ THEN
0x34bc…34d3 LineComal80 {
0x34bc…34d3 ptr = 0xcac1 // 0x34bc @0x0
0x34bc…34d3 lno = 0x14d2 // 0x34be @0x2
0x34bc…34d3 at0004 = ╱9b664b╱ IF ╱ // 0x34c0 @0x4
0x34bc…34d3 at0007 = ╱54╱T╱ // 0x34c3 @0x7
0x34bc…34d3 at0008 = ╱4f╱O╱ // 0x34c4 @0x8
0x34bc…34d3 at0009 = ╱4e╱N╱ // 0x34c5 @0x9
0x34bc…34d3 at000a = ╱52╱R╱ // 0x34c6 @0xa
0x34bc…34d3 at000b = ╱ef╱ $ ╱ // 0x34c7 @0xb
0x34bc…34d3 at000c = ╱e1╱ > ╱ // 0x34c8 @0xc
0x34bc…34d3 at000d = ╱52╱R╱ // 0x34c9 @0xd
0x34bc…34d3 at000e = ╱5f╱_╱ // 0x34ca @0xe
0x34bc…34d3 at000f = ╱4b╱K╱ // 0x34cb @0xf
0x34bc…34d3 at0010 = ╱54╱T╱ // 0x34cc @0x10
0x34bc…34d3 at0011 = ╱4f╱O╱ // 0x34cd @0x11
0x34bc…34d3 at0012 = ╱4e╱N╱ // 0x34ce @0x12
0x34bc…34d3 at0013 = ╱52╱R╱ // 0x34cf @0x13
0x34bc…34d3 at0014 = ╱ef╱ $ ╱ // 0x34d0 @0x14
0x34bc…34d3 at0015 = ╱b5╱ THEN ╱ // 0x34d1 @0x15
0x34bc…34d3 at0016 = EOL // 0x34d2 @0x16
0x34bc…34d3 }
0x34d3…34e1 cacf 05340 LET HIGH := POS
0x34d3…34e1 LineComal80 {
0x34d3…34e1 ptr = 0xcacf // 0x34d3 @0x0
0x34d3…34e1 lno = 0x14dc // 0x34d5 @0x2
0x34d3…34e1 at0004 = ╱86╱ LET ╱ // 0x34d7 @0x4
0x34d3…34e1 at0005 = ╱48╱H╱ // 0x34d8 @0x5
0x34d3…34e1 at0006 = ╱49╱I╱ // 0x34d9 @0x6
0x34d3…34e1 at0007 = ╱47╱G╱ // 0x34da @0x7
0x34d3…34e1 at0008 = ╱48╱H╱ // 0x34db @0x8
0x34d3…34e1 at0009 = ╱f0╱ := ╱ // 0x34dc @0x9
0x34d3…34e1 at000a = ╱50╱P╱ // 0x34dd @0xa
0x34d3…34e1 at000b = ╱4f╱O╱ // 0x34de @0xb
0x34d3…34e1 at000c = ╱53╱S╱ // 0x34df @0xc
0x34d3…34e1 at000d = EOL // 0x34e0 @0xd
0x34d3…34e1 }
0x34e1…34e8 cad6 05350 ELSE
0x34e1…34e8 LineComal80 {
0x34e1…34e8 ptr = 0xcad6 // 0x34e1 @0x0
0x34e1…34e8 lno = 0x14e6 // 0x34e3 @0x2
0x34e1…34e8 at0004 = ╱9a67╱ ELSE ╱ // 0x34e5 @0x4
0x34e1…34e8 at0006 = EOL // 0x34e7 @0x6
0x34e1…34e8 }
0x34e8…34ff caed 05360 IF TONR $ < R_KTONR $ THEN
0x34e8…34ff LineComal80 {
0x34e8…34ff ptr = 0xcaed // 0x34e8 @0x0
0x34e8…34ff lno = 0x14f0 // 0x34ea @0x2
0x34e8…34ff at0004 = ╱9b684b╱ IF ╱ // 0x34ec @0x4
0x34e8…34ff at0007 = ╱54╱T╱ // 0x34ef @0x7
0x34e8…34ff at0008 = ╱4f╱O╱ // 0x34f0 @0x8
0x34e8…34ff at0009 = ╱4e╱N╱ // 0x34f1 @0x9
0x34e8…34ff at000a = ╱52╱R╱ // 0x34f2 @0xa
0x34e8…34ff at000b = ╱ef╱ $ ╱ // 0x34f3 @0xb
0x34e8…34ff at000c = ╱e0╱ < ╱ // 0x34f4 @0xc
0x34e8…34ff at000d = ╱52╱R╱ // 0x34f5 @0xd
0x34e8…34ff at000e = ╱5f╱_╱ // 0x34f6 @0xe
0x34e8…34ff at000f = ╱4b╱K╱ // 0x34f7 @0xf
0x34e8…34ff at0010 = ╱54╱T╱ // 0x34f8 @0x10
0x34e8…34ff at0011 = ╱4f╱O╱ // 0x34f9 @0x11
0x34e8…34ff at0012 = ╱4e╱N╱ // 0x34fa @0x12
0x34e8…34ff at0013 = ╱52╱R╱ // 0x34fb @0x13
0x34e8…34ff at0014 = ╱ef╱ $ ╱ // 0x34fc @0x14
0x34e8…34ff at0015 = ╱b5╱ THEN ╱ // 0x34fd @0x15
0x34e8…34ff at0016 = EOL // 0x34fe @0x16
0x34e8…34ff }
0x34ff…350c cafa 05370 LET LOW := POS
0x34ff…350c LineComal80 {
0x34ff…350c ptr = 0xcafa // 0x34ff @0x0
0x34ff…350c lno = 0x14fa // 0x3501 @0x2
0x34ff…350c at0004 = ╱86╱ LET ╱ // 0x3503 @0x4
0x34ff…350c at0005 = ╱4c╱L╱ // 0x3504 @0x5
0x34ff…350c at0006 = ╱4f╱O╱ // 0x3505 @0x6
0x34ff…350c at0007 = ╱57╱W╱ // 0x3506 @0x7
0x34ff…350c at0008 = ╱f0╱ := ╱ // 0x3507 @0x8
0x34ff…350c at0009 = ╱50╱P╱ // 0x3508 @0x9
0x34ff…350c at000a = ╱4f╱O╱ // 0x3509 @0xa
0x34ff…350c at000b = ╱53╱S╱ // 0x350a @0xb
0x34ff…350c at000c = EOL // 0x350b @0xc
0x34ff…350c }
0x350c…3512 cb00 05380 ENDIF
0x350c…3512 LineComal80 {
0x350c…3512 ptr = 0xcb00 // 0x350c @0x0
0x350c…3512 lno = 0x1504 // 0x350e @0x2
0x350c…3512 at0004 = ╱9c╱ ENDIF ╱ // 0x3510 @0x4
0x350c…3512 at0005 = EOL // 0x3511 @0x5
0x350c…3512 }
0x3512…3518 cb06 05390 ENDIF
0x3512…3518 LineComal80 {
0x3512…3518 ptr = 0xcb06 // 0x3512 @0x0
0x3512…3518 lno = 0x150e // 0x3514 @0x2
0x3512…3518 at0004 = ╱9c╱ ENDIF ╱ // 0x3516 @0x4
0x3512…3518 at0005 = EOL // 0x3517 @0x5
0x3512…3518 }
0x3518…353b cb29 05400 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
0x3518…353b LineComal80 {
0x3518…353b ptr = 0xcb29 // 0x3518 @0x0
0x3518…353b lno = 0x1518 // 0x351a @0x2
0x3518…353b at0004 = ╱98╱ UNTIL ╱ // 0x351c @0x4
0x3518…353b at0005 = ╱48╱H╱ // 0x351d @0x5
0x3518…353b at0006 = ╱49╱I╱ // 0x351e @0x6
0x3518…353b at0007 = ╱47╱G╱ // 0x351f @0x7
0x3518…353b at0008 = ╱48╱H╱ // 0x3520 @0x8
0x3518…353b at0009 = ╱e6╱ - ╱ // 0x3521 @0x9
0x3518…353b at000a = ╱4c╱L╱ // 0x3522 @0xa
0x3518…353b at000b = ╱4f╱O╱ // 0x3523 @0xb
0x3518…353b at000c = ╱57╱W╱ // 0x3524 @0xc
0x3518…353b at000d = ╱e2╱ =< ╱ // 0x3525 @0xd
0x3518…353b at000e = ╱31╱1╱ // 0x3526 @0xe
0x3518…353b at000f = ╱f20100╱ // 0x3527 @0xf
0x3518…353b at0012 = ╱d8╱ OR ╱ // 0x352a @0x12
0x3518…353b at0013 = ╱52╱R╱ // 0x352b @0x13
0x3518…353b at0014 = ╱5f╱_╱ // 0x352c @0x14
0x3518…353b at0015 = ╱4b╱K╱ // 0x352d @0x15
0x3518…353b at0016 = ╱54╱T╱ // 0x352e @0x16
0x3518…353b at0017 = ╱4f╱O╱ // 0x352f @0x17
0x3518…353b at0018 = ╱4e╱N╱ // 0x3530 @0x18
0x3518…353b at0019 = ╱52╱R╱ // 0x3531 @0x19
0x3518…353b at001a = ╱ef╱ $ ╱ // 0x3532 @0x1a
0x3518…353b at001b = ╱df╱ = ╱ // 0x3533 @0x1b
0x3518…353b at001c = ╱4b╱K╱ // 0x3534 @0x1c
0x3518…353b at001d = ╱54╱T╱ // 0x3535 @0x1d
0x3518…353b at001e = ╱4f╱O╱ // 0x3536 @0x1e
0x3518…353b at001f = ╱4e╱N╱ // 0x3537 @0x1f
0x3518…353b at0020 = ╱52╱R╱ // 0x3538 @0x20
0x3518…353b at0021 = ╱ef╱ $ ╱ // 0x3539 @0x21
0x3518…353b at0022 = EOL // 0x353a @0x22
0x3518…353b }
0x353b…3567 cb55 05410 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
0x353b…3567 LineComal80 {
0x353b…3567 ptr = 0xcb55 // 0x353b @0x0
0x353b…3567 lno = 0x1522 // 0x353d @0x2
0x353b…3567 at0004 = ╱86╱ LET ╱ // 0x353f @0x4
0x353b…3567 at0005 = ╱50╱P╱ // 0x3540 @0x5
0x353b…3567 at0006 = ╱4f╱O╱ // 0x3541 @0x6
0x353b…3567 at0007 = ╱53╱S╱ // 0x3542 @0x7
0x353b…3567 at0008 = ╱f0╱ := ╱ // 0x3543 @0x8
0x353b…3567 at0009 = ╱c6╱ INT ╱ // 0x3544 @0x9
0x353b…3567 at000a = ╱ed╱ ( ╱ // 0x3545 @0xa
0x353b…3567 at000b = ╱ed╱ ( ╱ // 0x3546 @0xb
0x353b…3567 at000c = ╱48╱H╱ // 0x3547 @0xc
0x353b…3567 at000d = ╱49╱I╱ // 0x3548 @0xd
0x353b…3567 at000e = ╱47╱G╱ // 0x3549 @0xe
0x353b…3567 at000f = ╱48╱H╱ // 0x354a @0xf
0x353b…3567 at0010 = ╱e6╱ - ╱ // 0x354b @0x10
0x353b…3567 at0011 = ╱4c╱L╱ // 0x354c @0x11
0x353b…3567 at0012 = ╱4f╱O╱ // 0x354d @0x12
0x353b…3567 at0013 = ╱57╱W╱ // 0x354e @0x13
0x353b…3567 at0014 = ╱ee╱ ) ╱ // 0x354f @0x14
0x353b…3567 at0015 = ╱e8╱ / ╱ // 0x3550 @0x15
0x353b…3567 at0016 = ╱32╱2╱ // 0x3551 @0x16
0x353b…3567 at0017 = ╱f20200╱ // 0x3552 @0x17
0x353b…3567 at001a = ╱e5╱ + ╱ // 0x3555 @0x1a
0x353b…3567 at001b = ╱2e╱.╱ // 0x3556 @0x1b
0x353b…3567 at001c = ╱35╱5╱ // 0x3557 @0x1c
0x353b…3567 at001d = ╱f88000000000000005╱ // 0x3558 @0x1d
0x353b…3567 at0026 = ╱ee╱ ) ╱ // 0x3561 @0x26
0x353b…3567 at0027 = ╱e5╱ + ╱ // 0x3562 @0x27
0x353b…3567 at0028 = ╱4c╱L╱ // 0x3563 @0x28
0x353b…3567 at0029 = ╱4f╱O╱ // 0x3564 @0x29
0x353b…3567 at002a = ╱57╱W╱ // 0x3565 @0x2a
0x353b…3567 at002b = EOL // 0x3566 @0x2b
0x353b…3567 }
0x3567…3585 cb73 05420 GET KTOIDX $ , POS : KTONR $ , RECNR
0x3567…3585 LineComal80 {
0x3567…3585 ptr = 0xcb73 // 0x3567 @0x0
0x3567…3585 lno = 0x152c // 0x3569 @0x2
0x3567…3585 at0004 = ╱a9╱ GET ╱ // 0x356b @0x4
0x3567…3585 at0005 = ╱4b╱K╱ // 0x356c @0x5
0x3567…3585 at0006 = ╱54╱T╱ // 0x356d @0x6
0x3567…3585 at0007 = ╱4f╱O╱ // 0x356e @0x7
0x3567…3585 at0008 = ╱49╱I╱ // 0x356f @0x8
0x3567…3585 at0009 = ╱44╱D╱ // 0x3570 @0x9
0x3567…3585 at000a = ╱58╱X╱ // 0x3571 @0xa
0x3567…3585 at000b = ╱ef╱ $ ╱ // 0x3572 @0xb
0x3567…3585 at000c = ╱ec╱ , ╱ // 0x3573 @0xc
0x3567…3585 at000d = ╱50╱P╱ // 0x3574 @0xd
0x3567…3585 at000e = ╱4f╱O╱ // 0x3575 @0xe
0x3567…3585 at000f = ╱53╱S╱ // 0x3576 @0xf
0x3567…3585 at0010 = ╱f1╱ : ╱ // 0x3577 @0x10
0x3567…3585 at0011 = ╱4b╱K╱ // 0x3578 @0x11
0x3567…3585 at0012 = ╱54╱T╱ // 0x3579 @0x12
0x3567…3585 at0013 = ╱4f╱O╱ // 0x357a @0x13
0x3567…3585 at0014 = ╱4e╱N╱ // 0x357b @0x14
0x3567…3585 at0015 = ╱52╱R╱ // 0x357c @0x15
0x3567…3585 at0016 = ╱ef╱ $ ╱ // 0x357d @0x16
0x3567…3585 at0017 = ╱ec╱ , ╱ // 0x357e @0x17
0x3567…3585 at0018 = ╱52╱R╱ // 0x357f @0x18
0x3567…3585 at0019 = ╱45╱E╱ // 0x3580 @0x19
0x3567…3585 at001a = ╱43╱C╱ // 0x3581 @0x1a
0x3567…3585 at001b = ╱4e╱N╱ // 0x3582 @0x1b
0x3567…3585 at001c = ╱52╱R╱ // 0x3583 @0x1c
0x3567…3585 at001d = EOL // 0x3584 @0x1d
0x3567…3585 }
0x3585…35a4 cb92 05430 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
0x3585…35a4 LineComal80 {
0x3585…35a4 ptr = 0xcb92 // 0x3585 @0x0
0x3585…35a4 lno = 0x1536 // 0x3587 @0x2
0x3585…35a4 at0004 = ╱8200╱ IF ╱ // 0x3589 @0x4
0x3585…35a4 at0006 = ╱4b╱K╱ // 0x358b @0x6
0x3585…35a4 at0007 = ╱54╱T╱ // 0x358c @0x7
0x3585…35a4 at0008 = ╱4f╱O╱ // 0x358d @0x8
0x3585…35a4 at0009 = ╱4e╱N╱ // 0x358e @0x9
0x3585…35a4 at000a = ╱52╱R╱ // 0x358f @0xa
0x3585…35a4 at000b = ╱ef╱ $ ╱ // 0x3590 @0xb
0x3585…35a4 at000c = ╱df╱ = ╱ // 0x3591 @0xc
0x3585…35a4 at000d = ╱52╱R╱ // 0x3592 @0xd
0x3585…35a4 at000e = ╱5f╱_╱ // 0x3593 @0xe
0x3585…35a4 at000f = ╱4b╱K╱ // 0x3594 @0xf
0x3585…35a4 at0010 = ╱54╱T╱ // 0x3595 @0x10
0x3585…35a4 at0011 = ╱4f╱O╱ // 0x3596 @0x11
0x3585…35a4 at0012 = ╱4e╱N╱ // 0x3597 @0x12
0x3585…35a4 at0013 = ╱52╱R╱ // 0x3598 @0x13
0x3585…35a4 at0014 = ╱ef╱ $ ╱ // 0x3599 @0x14
0x3585…35a4 at0015 = ╱b5╱ THEN ╱ // 0x359a @0x15
0x3585…35a4 at0016 = ╱86╱ LET ╱ // 0x359b @0x16
0x3585…35a4 at0017 = ╱4f╱O╱ // 0x359c @0x17
0x3585…35a4 at0018 = ╱4b╱K╱ // 0x359d @0x18
0x3585…35a4 at0019 = ╱f0╱ := ╱ // 0x359e @0x19
0x3585…35a4 at001a = ╱54╱T╱ // 0x359f @0x1a
0x3585…35a4 at001b = ╱52╱R╱ // 0x35a0 @0x1b
0x3585…35a4 at001c = ╱55╱U╱ // 0x35a1 @0x1c
0x3585…35a4 at001d = ╱45╱E╱ // 0x35a2 @0x1d
0x3585…35a4 at001e = EOL // 0x35a3 @0x1e
0x3585…35a4 }
0x35a4…35aa cb98 05440 ENDIF
0x35a4…35aa LineComal80 {
0x35a4…35aa ptr = 0xcb98 // 0x35a4 @0x0
0x35a4…35aa lno = 0x1540 // 0x35a6 @0x2
0x35a4…35aa at0004 = ╱9c╱ ENDIF ╱ // 0x35a8 @0x4
0x35a4…35aa at0005 = EOL // 0x35a9 @0x5
0x35a4…35aa }
0x35aa…35bc cbaa 05450 LET FIND_KTO := POS
0x35aa…35bc LineComal80 {
0x35aa…35bc ptr = 0xcbaa // 0x35aa @0x0
0x35aa…35bc lno = 0x154a // 0x35ac @0x2
0x35aa…35bc at0004 = ╱86╱ LET ╱ // 0x35ae @0x4
0x35aa…35bc at0005 = ╱46╱F╱ // 0x35af @0x5
0x35aa…35bc at0006 = ╱49╱I╱ // 0x35b0 @0x6
0x35aa…35bc at0007 = ╱4e╱N╱ // 0x35b1 @0x7
0x35aa…35bc at0008 = ╱44╱D╱ // 0x35b2 @0x8
0x35aa…35bc at0009 = ╱5f╱_╱ // 0x35b3 @0x9
0x35aa…35bc at000a = ╱4b╱K╱ // 0x35b4 @0xa
0x35aa…35bc at000b = ╱54╱T╱ // 0x35b5 @0xb
0x35aa…35bc at000c = ╱4f╱O╱ // 0x35b6 @0xc
0x35aa…35bc at000d = ╱f0╱ := ╱ // 0x35b7 @0xd
0x35aa…35bc at000e = ╱50╱P╱ // 0x35b8 @0xe
0x35aa…35bc at000f = ╱4f╱O╱ // 0x35b9 @0xf
0x35aa…35bc at0010 = ╱53╱S╱ // 0x35ba @0x10
0x35aa…35bc at0011 = EOL // 0x35bb @0x11
0x35aa…35bc }
0x35bc…35ca cbb8 05460 ENDPROC FIND_KTO
0x35bc…35ca LineComal80 {
0x35bc…35ca ptr = 0xcbb8 // 0x35bc @0x0
0x35bc…35ca lno = 0x1554 // 0x35be @0x2
0x35bc…35ca at0004 = ╱9f╱ ENDPROC ╱ // 0x35c0 @0x4
0x35bc…35ca at0005 = ╱46╱F╱ // 0x35c1 @0x5
0x35bc…35ca at0006 = ╱49╱I╱ // 0x35c2 @0x6
0x35bc…35ca at0007 = ╱4e╱N╱ // 0x35c3 @0x7
0x35bc…35ca at0008 = ╱44╱D╱ // 0x35c4 @0x8
0x35bc…35ca at0009 = ╱5f╱_╱ // 0x35c5 @0x9
0x35bc…35ca at000a = ╱4b╱K╱ // 0x35c6 @0xa
0x35bc…35ca at000b = ╱54╱T╱ // 0x35c7 @0xb
0x35bc…35ca at000c = ╱4f╱O╱ // 0x35c8 @0xc
0x35bc…35ca at000d = EOL // 0x35c9 @0xd
0x35bc…35ca }
0x35ca…35d0 cea2 05470 //
0x35ca…35d0 LineComal80 {
0x35ca…35d0 ptr = 0xcea2 // 0x35ca @0x0
0x35ca…35d0 lno = 0x155e // 0x35cc @0x2
0x35ca…35d0 at0004 = ╱89╱ // ╱ // 0x35ce @0x4
0x35ca…35d0 at0005 = EOL // 0x35cf @0x5
0x35ca…35d0 }
0x35d0…3603 cbf1 05600 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
0x35d0…3603 LineComal80 {
0x35d0…3603 ptr = 0xcbf1 // 0x35d0 @0x0
0x35d0…3603 lno = 0x15e0 // 0x35d2 @0x2
0x35d0…3603 at0004 = ╱9e00╱ PROC ╱ // 0x35d4 @0x4
0x35d0…3603 at0006 = ╱50╱P╱ // 0x35d6 @0x6
0x35d0…3603 at0007 = ╱52╱R╱ // 0x35d7 @0x7
0x35d0…3603 at0008 = ╱49╱I╱ // 0x35d8 @0x8
0x35d0…3603 at0009 = ╱4e╱N╱ // 0x35d9 @0x9
0x35d0…3603 at000a = ╱54╱T╱ // 0x35da @0xa
0x35d0…3603 at000b = ╱52╱R╱ // 0x35db @0xb
0x35d0…3603 at000c = ╱45╱E╱ // 0x35dc @0xc
0x35d0…3603 at000d = ╱53╱S╱ // 0x35dd @0xd
0x35d0…3603 at000e = ╱ed╱ ( ╱ // 0x35de @0xe
0x35d0…3603 at000f = ╱50╱P╱ // 0x35df @0xf
0x35d0…3603 at0010 = ╱41╱A╱ // 0x35e0 @0x10
0x35d0…3603 at0011 = ╱47╱G╱ // 0x35e1 @0x11
0x35d0…3603 at0012 = ╱45╱E╱ // 0x35e2 @0x12
0x35d0…3603 at0013 = ╱54╱T╱ // 0x35e3 @0x13
0x35d0…3603 at0014 = ╱59╱Y╱ // 0x35e4 @0x14
0x35d0…3603 at0015 = ╱50╱P╱ // 0x35e5 @0x15
0x35d0…3603 at0016 = ╱45╱E╱ // 0x35e6 @0x16
0x35d0…3603 at0017 = ╱ef╱ $ ╱ // 0x35e7 @0x17
0x35d0…3603 at0018 = ╱ec╱ , ╱ // 0x35e8 @0x18
0x35d0…3603 at0019 = ╱4c╱L╱ // 0x35e9 @0x19
0x35d0…3603 at001a = ╱49╱I╱ // 0x35ea @0x1a
0x35d0…3603 at001b = ╱4e╱N╱ // 0x35eb @0x1b
0x35d0…3603 at001c = ╱45╱E╱ // 0x35ec @0x1c
0x35d0…3603 at001d = ╱ee╱ ) ╱ // 0x35ed @0x1d
0x35d0…3603 at001e = ╱89╱ // ╱ // 0x35ee @0x1e
0x35d0…3603 at001f = ╱50╱P╱ // 0x35ef @0x1f
0x35d0…3603 at0020 = ╱52╱R╱ // 0x35f0 @0x20
0x35d0…3603 at0021 = ╱49╱I╱ // 0x35f1 @0x21
0x35d0…3603 at0022 = ╱4e╱N╱ // 0x35f2 @0x22
0x35d0…3603 at0023 = ╱54╱T╱ // 0x35f3 @0x23
0x35d0…3603 at0024 = ╱45╱E╱ // 0x35f4 @0x24
0x35d0…3603 at0025 = ╱52╱R╱ // 0x35f5 @0x25
0x35d0…3603 at0026 = ╱20╱…╱ // 0x35f6 @0x26
0x35d0…3603 at0027 = ╱52╱R╱ // 0x35f7 @0x27
0x35d0…3603 at0028 = ╱45╱E╱ // 0x35f8 @0x28
0x35d0…3603 at0029 = ╱53╱S╱ // 0x35f9 @0x29
0x35d0…3603 at002a = ╱45╱E╱ // 0x35fa @0x2a
0x35d0…3603 at002b = ╱52╱R╱ // 0x35fb @0x2b
0x35d0…3603 at002c = ╱56╱V╱ // 0x35fc @0x2c
0x35d0…3603 at002d = ╱41╱A╱ // 0x35fd @0x2d
0x35d0…3603 at002e = ╱54╱T╱ // 0x35fe @0x2e
0x35d0…3603 at002f = ╱49╱I╱ // 0x35ff @0x2f
0x35d0…3603 at0030 = ╱4f╱O╱ // 0x3600 @0x30
0x35d0…3603 at0031 = ╱4e╱N╱ // 0x3601 @0x31
0x35d0…3603 at0032 = EOL // 0x3602 @0x32
0x35d0…3603 }
0x3603…361b cc09 05610 LET PRTNR $ := "1" ; OK := TRUE
0x3603…361b LineComal80 {
0x3603…361b ptr = 0xcc09 // 0x3603 @0x0
0x3603…361b lno = 0x15ea // 0x3605 @0x2
0x3603…361b at0004 = ╱86╱ LET ╱ // 0x3607 @0x4
0x3603…361b at0005 = ╱50╱P╱ // 0x3608 @0x5
0x3603…361b at0006 = ╱52╱R╱ // 0x3609 @0x6
0x3603…361b at0007 = ╱54╱T╱ // 0x360a @0x7
0x3603…361b at0008 = ╱4e╱N╱ // 0x360b @0x8
0x3603…361b at0009 = ╱52╱R╱ // 0x360c @0x9
0x3603…361b at000a = ╱ef╱ $ ╱ // 0x360d @0xa
0x3603…361b at000b = ╱f0╱ := ╱ // 0x360e @0xb
0x3603…361b at000c = ╱22╱"╱ // 0x360f @0xc
0x3603…361b at000d = ╱31╱1╱ // 0x3610 @0xd
0x3603…361b at000e = ╱22╱"╱ // 0x3611 @0xe
0x3603…361b at000f = ╱ea╱ ; ╱ // 0x3612 @0xf
0x3603…361b at0010 = ╱4f╱O╱ // 0x3613 @0x10
0x3603…361b at0011 = ╱4b╱K╱ // 0x3614 @0x11
0x3603…361b at0012 = ╱f0╱ := ╱ // 0x3615 @0x12
0x3603…361b at0013 = ╱54╱T╱ // 0x3616 @0x13
0x3603…361b at0014 = ╱52╱R╱ // 0x3617 @0x14
0x3603…361b at0015 = ╱55╱U╱ // 0x3618 @0x15
0x3603…361b at0016 = ╱45╱E╱ // 0x3619 @0x16
0x3603…361b at0017 = EOL // 0x361a @0x17
0x3603…361b }
0x361b…3622 cc10 05620 REPEAT
0x361b…3622 LineComal80 {
0x361b…3622 ptr = 0xcc10 // 0x361b @0x0
0x361b…3622 lno = 0x15f4 // 0x361d @0x2
0x361b…3622 at0004 = ╱9700╱ REPEAT ╱ // 0x361f @0x4
0x361b…3622 at0006 = EOL // 0x3621 @0x6
0x361b…3622 }
0x3622…3632 cc20 05630 CURSOR 15 , LINE
0x3622…3632 LineComal80 {
0x3622…3632 ptr = 0xcc20 // 0x3622 @0x0
0x3622…3632 lno = 0x15fe // 0x3624 @0x2
0x3622…3632 at0004 = ╱a1╱ CURSOR ╱ // 0x3626 @0x4
0x3622…3632 at0005 = ╱31╱1╱ // 0x3627 @0x5
0x3622…3632 at0006 = ╱35╱5╱ // 0x3628 @0x6
0x3622…3632 at0007 = ╱f20f00╱ // 0x3629 @0x7
0x3622…3632 at000a = ╱ec╱ , ╱ // 0x362c @0xa
0x3622…3632 at000b = ╱4c╱L╱ // 0x362d @0xb
0x3622…3632 at000c = ╱49╱I╱ // 0x362e @0xc
0x3622…3632 at000d = ╱4e╱N╱ // 0x362f @0xd
0x3622…3632 at000e = ╱45╱E╱ // 0x3630 @0xe
0x3622…3632 at000f = EOL // 0x3631 @0xf
0x3622…3632 }
0x3632…366b cc59 05640 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
0x3632…366b LineComal80 {
0x3632…366b ptr = 0xcc59 // 0x3632 @0x0
0x3632…366b lno = 0x1608 // 0x3634 @0x2
0x3632…366b at0004 = ╱b1╱ EDIT ╱ // 0x3636 @0x4
0x3632…366b at0005 = ╱22╱"╱ // 0x3637 @0x5
0x3632…366b at0006 = ╱3c╱<╱ // 0x3638 @0x6
0x3632…366b at0007 = ╱5a╱Z╱ // 0x3639 @0x7
0x3632…366b at0008 = ╱3e╱>╱ // 0x363a @0x8
0x3632…366b at0009 = ╱55╱U╱ // 0x363b @0x9
0x3632…366b at000a = ╱64╱d╱ // 0x363c @0xa
0x3632…366b at000b = ╱73╱s╱ // 0x363d @0xb
0x3632…366b at000c = ╱6b╱k╱ // 0x363e @0xc
0x3632…366b at000d = ╱72╱r╱ // 0x363f @0xd
0x3632…366b at000e = ╱69╱i╱ // 0x3640 @0xe
0x3632…366b at000f = ╱76╱v╱ // 0x3641 @0xf
0x3632…366b at0010 = ╱6e╱n╱ // 0x3642 @0x10
0x3632…366b at0011 = ╱69╱i╱ // 0x3643 @0x11
0x3632…366b at0012 = ╱6e╱n╱ // 0x3644 @0x12
0x3632…366b at0013 = ╱67╱g╱ // 0x3645 @0x13
0x3632…366b at0014 = ╱20╱…╱ // 0x3646 @0x14
0x3632…366b at0015 = ╱70╱p╱ // 0x3647 @0x15
0x3632…366b at0016 = ╱7d╱}╱ // 0x3648 @0x16
0x3632…366b at0017 = ╱20╱…╱ // 0x3649 @0x17
0x3632…366b at0018 = ╱70╱p╱ // 0x364a @0x18
0x3632…366b at0019 = ╱72╱r╱ // 0x364b @0x19
0x3632…366b at001a = ╱69╱i╱ // 0x364c @0x1a
0x3632…366b at001b = ╱6e╱n╱ // 0x364d @0x1b
0x3632…366b at001c = ╱74╱t╱ // 0x364e @0x1c
0x3632…366b at001d = ╱65╱e╱ // 0x364f @0x1d
0x3632…366b at001e = ╱72╱r╱ // 0x3650 @0x1e
0x3632…366b at001f = ╱20╱…╱ // 0x3651 @0x1f
0x3632…366b at0020 = ╱6e╱n╱ // 0x3652 @0x20
0x3632…366b at0021 = ╱72╱r╱ // 0x3653 @0x21
0x3632…366b at0022 = ╱2e╱.╱ // 0x3654 @0x22
0x3632…366b at0023 = ╱20╱…╱ // 0x3655 @0x23
0x3632…366b at0024 = ╱3f╱?╱ // 0x3656 @0x24
0x3632…366b at0025 = ╱20╱…╱ // 0x3657 @0x25
0x3632…366b at0026 = ╱28╱(╱ // 0x3658 @0x26
0x3632…366b at0027 = ╱31╱1╱ // 0x3659 @0x27
0x3632…366b at0028 = ╱2f╱/╱ // 0x365a @0x28
0x3632…366b at0029 = ╱32╱2╱ // 0x365b @0x29
0x3632…366b at002a = ╱2f╱/╱ // 0x365c @0x2a
0x3632…366b at002b = ╱33╱3╱ // 0x365d @0x2b
0x3632…366b at002c = ╱2f╱/╱ // 0x365e @0x2c
0x3632…366b at002d = ╱34╱4╱ // 0x365f @0x2d
0x3632…366b at002e = ╱29╱)╱ // 0x3660 @0x2e
0x3632…366b at002f = ╱20╱…╱ // 0x3661 @0x2f
0x3632…366b at0030 = ╱22╱"╱ // 0x3662 @0x30
0x3632…366b at0031 = ╱f1╱ : ╱ // 0x3663 @0x31
0x3632…366b at0032 = ╱50╱P╱ // 0x3664 @0x32
0x3632…366b at0033 = ╱52╱R╱ // 0x3665 @0x33
0x3632…366b at0034 = ╱54╱T╱ // 0x3666 @0x34
0x3632…366b at0035 = ╱4e╱N╱ // 0x3667 @0x35
0x3632…366b at0036 = ╱52╱R╱ // 0x3668 @0x36
0x3632…366b at0037 = ╱ef╱ $ ╱ // 0x3669 @0x37
0x3632…366b at0038 = EOL // 0x366a @0x38
0x3632…366b }
0x366b…368b cc79 05650 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
0x366b…368b LineComal80 {
0x366b…368b ptr = 0xcc79 // 0x366b @0x0
0x366b…368b lno = 0x1612 // 0x366d @0x2
0x366b…368b at0004 = ╱98╱ UNTIL ╱ // 0x366f @0x4
0x366b…368b at0005 = ╱22╱"╱ // 0x3670 @0x5
0x366b…368b at0006 = ╱2f╱/╱ // 0x3671 @0x6
0x366b…368b at0007 = ╱22╱"╱ // 0x3672 @0x7
0x366b…368b at0008 = ╱eb╱ + ╱ // 0x3673 @0x8
0x366b…368b at0009 = ╱50╱P╱ // 0x3674 @0x9
0x366b…368b at000a = ╱52╱R╱ // 0x3675 @0xa
0x366b…368b at000b = ╱54╱T╱ // 0x3676 @0xb
0x366b…368b at000c = ╱4e╱N╱ // 0x3677 @0xc
0x366b…368b at000d = ╱52╱R╱ // 0x3678 @0xd
0x366b…368b at000e = ╱ef╱ $ ╱ // 0x3679 @0xe
0x366b…368b at000f = ╱eb╱ + ╱ // 0x367a @0xf
0x366b…368b at0010 = ╱22╱"╱ // 0x367b @0x10
0x366b…368b at0011 = ╱2f╱/╱ // 0x367c @0x11
0x366b…368b at0012 = ╱22╱"╱ // 0x367d @0x12
0x366b…368b at0013 = ╱dc╱ IN ╱ // 0x367e @0x13
0x366b…368b at0014 = ╱22╱"╱ // 0x367f @0x14
0x366b…368b at0015 = ╱2f╱/╱ // 0x3680 @0x15
0x366b…368b at0016 = ╱31╱1╱ // 0x3681 @0x16
0x366b…368b at0017 = ╱2f╱/╱ // 0x3682 @0x17
0x366b…368b at0018 = ╱32╱2╱ // 0x3683 @0x18
0x366b…368b at0019 = ╱2f╱/╱ // 0x3684 @0x19
0x366b…368b at001a = ╱33╱3╱ // 0x3685 @0x1a
0x366b…368b at001b = ╱2f╱/╱ // 0x3686 @0x1b
0x366b…368b at001c = ╱34╱4╱ // 0x3687 @0x1c
0x366b…368b at001d = ╱2f╱/╱ // 0x3688 @0x1d
0x366b…368b at001e = ╱22╱"╱ // 0x3689 @0x1e
0x366b…368b at001f = EOL // 0x368a @0x1f
0x366b…368b }
0x368b…36af cc9d 05660 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
0x368b…36af LineComal80 {
0x368b…36af ptr = 0xcc9d // 0x368b @0x0
0x368b…36af lno = 0x161c // 0x368d @0x2
0x368b…36af at0004 = ╱a1╱ CURSOR ╱ // 0x368f @0x4
0x368b…36af at0005 = ╱ed╱ ( ╱ // 0x3690 @0x5
0x368b…36af at0006 = ╱33╱3╱ // 0x3691 @0x6
0x368b…36af at0007 = ╱39╱9╱ // 0x3692 @0x7
0x368b…36af at0008 = ╱f22700╱ // 0x3693 @0x8
0x368b…36af at000b = ╱e6╱ - ╱ // 0x3696 @0xb
0x368b…36af at000c = ╱cb╱ // 0x3697 @0xc
0x368b…36af at000d = ╱ed╱ ( ╱ // 0x3698 @0xd
0x368b…36af at000e = ╱50╱P╱ // 0x3699 @0xe
0x368b…36af at000f = ╱41╱A╱ // 0x369a @0xf
0x368b…36af at0010 = ╱47╱G╱ // 0x369b @0x10
0x368b…36af at0011 = ╱45╱E╱ // 0x369c @0x11
0x368b…36af at0012 = ╱54╱T╱ // 0x369d @0x12
0x368b…36af at0013 = ╱59╱Y╱ // 0x369e @0x13
0x368b…36af at0014 = ╱50╱P╱ // 0x369f @0x14
0x368b…36af at0015 = ╱45╱E╱ // 0x36a0 @0x15
0x368b…36af at0016 = ╱ef╱ $ ╱ // 0x36a1 @0x16
0x368b…36af at0017 = ╱ee╱ ) ╱ // 0x36a2 @0x17
0x368b…36af at0018 = ╱ee╱ ) ╱ // 0x36a3 @0x18
0x368b…36af at0019 = ╱da╱ DIV ╱ // 0x36a4 @0x19
0x368b…36af at001a = ╱32╱2╱ // 0x36a5 @0x1a
0x368b…36af at001b = ╱f20200╱ // 0x36a6 @0x1b
0x368b…36af at001e = ╱ec╱ , ╱ // 0x36a9 @0x1e
0x368b…36af at001f = ╱4c╱L╱ // 0x36aa @0x1f
0x368b…36af at0020 = ╱49╱I╱ // 0x36ab @0x20
0x368b…36af at0021 = ╱4e╱N╱ // 0x36ac @0x21
0x368b…36af at0022 = ╱45╱E╱ // 0x36ad @0x22
0x368b…36af at0023 = EOL // 0x36ae @0x23
0x368b…36af }
0x36af…36ef ccdd 05670 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
0x36af…36ef LineComal80 {
0x36af…36ef ptr = 0xccdd // 0x36af @0x0
0x36af…36ef lno = 0x1626 // 0x36b1 @0x2
0x36af…36ef at0004 = ╱92╱ PRINT ╱ // 0x36b3 @0x4
0x36af…36ef at0005 = ╱22╱"╱ // 0x36b4 @0x5
0x36af…36ef at0006 = ╱3c╱<╱ // 0x36b5 @0x6
0x36af…36ef at0007 = ╱53╱S╱ // 0x36b6 @0x7
0x36af…36ef at0008 = ╱5a╱Z╱ // 0x36b7 @0x8
0x36af…36ef at0009 = ╱3e╱>╱ // 0x36b8 @0x9
0x36af…36ef at000a = ╱20╱…╱ // 0x36b9 @0xa
0x36af…36ef at000b = ╱20╱…╱ // 0x36ba @0xb
0x36af…36ef at000c = ╱20╱…╱ // 0x36bb @0xc
0x36af…36ef at000d = ╱20╱…╱ // 0x36bc @0xd
0x36af…36ef at000e = ╱20╱…╱ // 0x36bd @0xe
0x36af…36ef at000f = ╱4d╱M╱ // 0x36be @0xf
0x36af…36ef at0010 = ╱6f╱o╱ // 0x36bf @0x10
0x36af…36ef at0011 = ╱6e╱n╱ // 0x36c0 @0x11
0x36af…36ef at0012 = ╱74╱t╱ // 0x36c1 @0x12
0x36af…36ef at0013 = ╱65╱e╱ // 0x36c2 @0x13
0x36af…36ef at0014 = ╱72╱r╱ // 0x36c3 @0x14
0x36af…36ef at0015 = ╱20╱…╱ // 0x36c4 @0x15
0x36af…36ef at0016 = ╱22╱"╱ // 0x36c5 @0x16
0x36af…36ef at0017 = ╱ea╱ ; ╱ // 0x36c6 @0x17
0x36af…36ef at0018 = ╱50╱P╱ // 0x36c7 @0x18
0x36af…36ef at0019 = ╱41╱A╱ // 0x36c8 @0x19
0x36af…36ef at001a = ╱47╱G╱ // 0x36c9 @0x1a
0x36af…36ef at001b = ╱45╱E╱ // 0x36ca @0x1b
0x36af…36ef at001c = ╱54╱T╱ // 0x36cb @0x1c
0x36af…36ef at001d = ╱59╱Y╱ // 0x36cc @0x1d
0x36af…36ef at001e = ╱50╱P╱ // 0x36cd @0x1e
0x36af…36ef at001f = ╱45╱E╱ // 0x36ce @0x1f
0x36af…36ef at0020 = ╱ef╱ $ ╱ // 0x36cf @0x20
0x36af…36ef at0021 = ╱ea╱ ; ╱ // 0x36d0 @0x21
0x36af…36ef at0022 = ╱22╱"╱ // 0x36d1 @0x22
0x36af…36ef at0023 = ╱20╱…╱ // 0x36d2 @0x23
0x36af…36ef at0024 = ╱69╱i╱ // 0x36d3 @0x24
0x36af…36ef at0025 = ╱20╱…╱ // 0x36d4 @0x25
0x36af…36ef at0026 = ╱70╱p╱ // 0x36d5 @0x26
0x36af…36ef at0027 = ╱72╱r╱ // 0x36d6 @0x27
0x36af…36ef at0028 = ╱69╱i╱ // 0x36d7 @0x28
0x36af…36ef at0029 = ╱6e╱n╱ // 0x36d8 @0x29
0x36af…36ef at002a = ╱74╱t╱ // 0x36d9 @0x2a
0x36af…36ef at002b = ╱65╱e╱ // 0x36da @0x2b
0x36af…36ef at002c = ╱72╱r╱ // 0x36db @0x2c
0x36af…36ef at002d = ╱65╱e╱ // 0x36dc @0x2d
0x36af…36ef at002e = ╱6e╱n╱ // 0x36dd @0x2e
0x36af…36ef at002f = ╱20╱…╱ // 0x36de @0x2f
0x36af…36ef at0030 = ╱2d╱-╱ // 0x36df @0x30
0x36af…36ef at0031 = ╱20╱…╱ // 0x36e0 @0x31
0x36af…36ef at0032 = ╱74╱t╱ // 0x36e1 @0x32
0x36af…36ef at0033 = ╱72╱r╱ // 0x36e2 @0x33
0x36af…36ef at0034 = ╱79╱y╱ // 0x36e3 @0x34
0x36af…36ef at0035 = ╱6b╱k╱ // 0x36e4 @0x35
0x36af…36ef at0036 = ╱20╱…╱ // 0x36e5 @0x36
0x36af…36ef at0037 = ╱52╱R╱ // 0x36e6 @0x37
0x36af…36ef at0038 = ╱45╱E╱ // 0x36e7 @0x38
0x36af…36ef at0039 = ╱54╱T╱ // 0x36e8 @0x39
0x36af…36ef at003a = ╱55╱U╱ // 0x36e9 @0x3a
0x36af…36ef at003b = ╱52╱R╱ // 0x36ea @0x3b
0x36af…36ef at003c = ╱4e╱N╱ // 0x36eb @0x3c
0x36af…36ef at003d = ╱20╱…╱ // 0x36ec @0x3d
0x36af…36ef at003e = ╱22╱"╱ // 0x36ed @0x3e
0x36af…36ef at003f = EOL // 0x36ee @0x3f
0x36af…36ef }
0x36ef…36fd cceb 05680 INPUT "" : SVAR $
0x36ef…36fd LineComal80 {
0x36ef…36fd ptr = 0xcceb // 0x36ef @0x0
0x36ef…36fd lno = 0x1630 // 0x36f1 @0x2
0x36ef…36fd at0004 = ╱91╱ INPUT ╱ // 0x36f3 @0x4
0x36ef…36fd at0005 = ╱22╱"╱ // 0x36f4 @0x5
0x36ef…36fd at0006 = ╱22╱"╱ // 0x36f5 @0x6
0x36ef…36fd at0007 = ╱f1╱ : ╱ // 0x36f6 @0x7
0x36ef…36fd at0008 = ╱53╱S╱ // 0x36f7 @0x8
0x36ef…36fd at0009 = ╱56╱V╱ // 0x36f8 @0x9
0x36ef…36fd at000a = ╱41╱A╱ // 0x36f9 @0xa
0x36ef…36fd at000b = ╱52╱R╱ // 0x36fa @0xb
0x36ef…36fd at000c = ╱ef╱ $ ╱ // 0x36fb @0xc
0x36ef…36fd at000d = EOL // 0x36fc @0xd
0x36ef…36fd }
0x36fd…370d ccfb 05690 SELECT OUTPUT "P" + PRTNR $
0x36fd…370d LineComal80 {
0x36fd…370d ptr = 0xccfb // 0x36fd @0x0
0x36fd…370d lno = 0x163a // 0x36ff @0x2
0x36fd…370d at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x3701 @0x4
0x36fd…370d at0005 = ╱22╱"╱ // 0x3702 @0x5
0x36fd…370d at0006 = ╱50╱P╱ // 0x3703 @0x6
0x36fd…370d at0007 = ╱22╱"╱ // 0x3704 @0x7
0x36fd…370d at0008 = ╱eb╱ + ╱ // 0x3705 @0x8
0x36fd…370d at0009 = ╱50╱P╱ // 0x3706 @0x9
0x36fd…370d at000a = ╱52╱R╱ // 0x3707 @0xa
0x36fd…370d at000b = ╱54╱T╱ // 0x3708 @0xb
0x36fd…370d at000c = ╱4e╱N╱ // 0x3709 @0xc
0x36fd…370d at000d = ╱52╱R╱ // 0x370a @0xd
0x36fd…370d at000e = ╱ef╱ $ ╱ // 0x370b @0xe
0x36fd…370d at000f = EOL // 0x370c @0xf
0x36fd…370d }
0x370d…371b cd09 05700 IF ( "P" ) THEN
0x370d…371b LineComal80 {
0x370d…371b ptr = 0xcd09 // 0x370d @0x0
0x370d…371b lno = 0x1644 // 0x370f @0x2
0x370d…371b at0004 = ╱9b00cd╱ IF ╱ // 0x3711 @0x4
0x370d…371b at0007 = ╱ed╱ ( ╱ // 0x3714 @0x7
0x370d…371b at0008 = ╱22╱"╱ // 0x3715 @0x8
0x370d…371b at0009 = ╱50╱P╱ // 0x3716 @0x9
0x370d…371b at000a = ╱22╱"╱ // 0x3717 @0xa
0x370d…371b at000b = ╱ee╱ ) ╱ // 0x3718 @0xb
0x370d…371b at000c = ╱b5╱ THEN ╱ // 0x3719 @0xc
0x370d…371b at000d = EOL // 0x371a @0xd
0x370d…371b }
0x371b…372b cd19 05710 CURSOR 12 , LINE
0x371b…372b LineComal80 {
0x371b…372b ptr = 0xcd19 // 0x371b @0x0
0x371b…372b lno = 0x164e // 0x371d @0x2
0x371b…372b at0004 = ╱a1╱ CURSOR ╱ // 0x371f @0x4
0x371b…372b at0005 = ╱31╱1╱ // 0x3720 @0x5
0x371b…372b at0006 = ╱32╱2╱ // 0x3721 @0x6
0x371b…372b at0007 = ╱f20c00╱ // 0x3722 @0x7
0x371b…372b at000a = ╱ec╱ , ╱ // 0x3725 @0xa
0x371b…372b at000b = ╱4c╱L╱ // 0x3726 @0xb
0x371b…372b at000c = ╱49╱I╱ // 0x3727 @0xc
0x371b…372b at000d = ╱4e╱N╱ // 0x3728 @0xd
0x371b…372b at000e = ╱45╱E╱ // 0x3729 @0xe
0x371b…372b at000f = EOL // 0x372a @0xf
0x371b…372b }
0x372b…3762 cd50 05720 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
0x372b…3762 LineComal80 {
0x372b…3762 ptr = 0xcd50 // 0x372b @0x0
0x372b…3762 lno = 0x1658 // 0x372d @0x2
0x372b…3762 at0004 = ╱92╱ PRINT ╱ // 0x372f @0x4
0x372b…3762 at0005 = ╱22╱"╱ // 0x3730 @0x5
0x372b…3762 at0006 = ╱3c╱<╱ // 0x3731 @0x6
0x372b…3762 at0007 = ╱53╱S╱ // 0x3732 @0x7
0x372b…3762 at0008 = ╱5a╱Z╱ // 0x3733 @0x8
0x372b…3762 at0009 = ╱3e╱>╱ // 0x3734 @0x9
0x372b…3762 at000a = ╱50╱P╱ // 0x3735 @0xa
0x372b…3762 at000b = ╱72╱r╱ // 0x3736 @0xb
0x372b…3762 at000c = ╱69╱i╱ // 0x3737 @0xc
0x372b…3762 at000d = ╱6e╱n╱ // 0x3738 @0xd
0x372b…3762 at000e = ╱74╱t╱ // 0x3739 @0xe
0x372b…3762 at000f = ╱65╱e╱ // 0x373a @0xf
0x372b…3762 at0010 = ╱72╱r╱ // 0x373b @0x10
0x372b…3762 at0011 = ╱65╱e╱ // 0x373c @0x11
0x372b…3762 at0012 = ╱6e╱n╱ // 0x373d @0x12
0x372b…3762 at0013 = ╱20╱…╱ // 0x373e @0x13
0x372b…3762 at0014 = ╱65╱e╱ // 0x373f @0x14
0x372b…3762 at0015 = ╱72╱r╱ // 0x3740 @0x15
0x372b…3762 at0016 = ╱20╱…╱ // 0x3741 @0x16
0x372b…3762 at0017 = ╱72╱r╱ // 0x3742 @0x17
0x372b…3762 at0018 = ╱65╱e╱ // 0x3743 @0x18
0x372b…3762 at0019 = ╱73╱s╱ // 0x3744 @0x19
0x372b…3762 at001a = ╱65╱e╱ // 0x3745 @0x1a
0x372b…3762 at001b = ╱72╱r╱ // 0x3746 @0x1b
0x372b…3762 at001c = ╱76╱v╱ // 0x3747 @0x1c
0x372b…3762 at001d = ╱65╱e╱ // 0x3748 @0x1d
0x372b…3762 at001e = ╱72╱r╱ // 0x3749 @0x1e
0x372b…3762 at001f = ╱65╱e╱ // 0x374a @0x1f
0x372b…3762 at0020 = ╱74╱t╱ // 0x374b @0x20
0x372b…3762 at0021 = ╱20╱…╱ // 0x374c @0x21
0x372b…3762 at0022 = ╱61╱a╱ // 0x374d @0x22
0x372b…3762 at0023 = ╱66╱f╱ // 0x374e @0x23
0x372b…3762 at0024 = ╱20╱…╱ // 0x374f @0x24
0x372b…3762 at0025 = ╱65╱e╱ // 0x3750 @0x25
0x372b…3762 at0026 = ╱6e╱n╱ // 0x3751 @0x26
0x372b…3762 at0027 = ╱20╱…╱ // 0x3752 @0x27
0x372b…3762 at0028 = ╱61╱a╱ // 0x3753 @0x28
0x372b…3762 at0029 = ╱6e╱n╱ // 0x3754 @0x29
0x372b…3762 at002a = ╱64╱d╱ // 0x3755 @0x2a
0x372b…3762 at002b = ╱65╱e╱ // 0x3756 @0x2b
0x372b…3762 at002c = ╱6e╱n╱ // 0x3757 @0x2c
0x372b…3762 at002d = ╱20╱…╱ // 0x3758 @0x2d
0x372b…3762 at002e = ╱62╱b╱ // 0x3759 @0x2e
0x372b…3762 at002f = ╱72╱r╱ // 0x375a @0x2f
0x372b…3762 at0030 = ╱75╱u╱ // 0x375b @0x30
0x372b…3762 at0031 = ╱67╱g╱ // 0x375c @0x31
0x372b…3762 at0032 = ╱65╱e╱ // 0x375d @0x32
0x372b…3762 at0033 = ╱72╱r╱ // 0x375e @0x33
0x372b…3762 at0034 = ╱2c╱,╱ // 0x375f @0x34
0x372b…3762 at0035 = ╱22╱"╱ // 0x3760 @0x35
0x372b…3762 at0036 = EOL // 0x3761 @0x36
0x372b…3762 }
0x3762…3777 cd65 05730 CURSOR 12 , LINE + 1
0x3762…3777 LineComal80 {
0x3762…3777 ptr = 0xcd65 // 0x3762 @0x0
0x3762…3777 lno = 0x1662 // 0x3764 @0x2
0x3762…3777 at0004 = ╱a1╱ CURSOR ╱ // 0x3766 @0x4
0x3762…3777 at0005 = ╱31╱1╱ // 0x3767 @0x5
0x3762…3777 at0006 = ╱32╱2╱ // 0x3768 @0x6
0x3762…3777 at0007 = ╱f20c00╱ // 0x3769 @0x7
0x3762…3777 at000a = ╱ec╱ , ╱ // 0x376c @0xa
0x3762…3777 at000b = ╱4c╱L╱ // 0x376d @0xb
0x3762…3777 at000c = ╱49╱I╱ // 0x376e @0xc
0x3762…3777 at000d = ╱4e╱N╱ // 0x376f @0xd
0x3762…3777 at000e = ╱45╱E╱ // 0x3770 @0xe
0x3762…3777 at000f = ╱e5╱ + ╱ // 0x3771 @0xf
0x3762…3777 at0010 = ╱31╱1╱ // 0x3772 @0x10
0x3762…3777 at0011 = ╱f20100╱ // 0x3773 @0x11
0x3762…3777 at0014 = EOL // 0x3776 @0x14
0x3762…3777 }
0x3777…37b8 cda6 05740 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
0x3777…37b8 LineComal80 {
0x3777…37b8 ptr = 0xcda6 // 0x3777 @0x0
0x3777…37b8 lno = 0x166c // 0x3779 @0x2
0x3777…37b8 at0004 = ╱91╱ INPUT ╱ // 0x377b @0x4
0x3777…37b8 at0005 = ╱22╱"╱ // 0x377c @0x5
0x3777…37b8 at0006 = ╱3c╱<╱ // 0x377d @0x6
0x3777…37b8 at0007 = ╱53╱S╱ // 0x377e @0x7
0x3777…37b8 at0008 = ╱5a╱Z╱ // 0x377f @0x8
0x3777…37b8 at0009 = ╱3e╱>╱ // 0x3780 @0x9
0x3777…37b8 at000a = ╱53╱S╱ // 0x3781 @0xa
0x3777…37b8 at000b = ╱6b╱k╱ // 0x3782 @0xb
0x3777…37b8 at000c = ╱61╱a╱ // 0x3783 @0xc
0x3777…37b8 at000d = ╱6c╱l╱ // 0x3784 @0xd
0x3777…37b8 at000e = ╱20╱…╱ // 0x3785 @0xe
0x3777…37b8 at000f = ╱64╱d╱ // 0x3786 @0xf
0x3777…37b8 at0010 = ╱65╱e╱ // 0x3787 @0x10
0x3777…37b8 at0011 = ╱72╱r╱ // 0x3788 @0x11
0x3777…37b8 at0012 = ╱20╱…╱ // 0x3789 @0x12
0x3777…37b8 at0013 = ╱76╱v╱ // 0x378a @0x13
0x3777…37b8 at0014 = ╱65╱e╱ // 0x378b @0x14
0x3777…37b8 at0015 = ╱6e╱n╱ // 0x378c @0x15
0x3777…37b8 at0016 = ╱74╱t╱ // 0x378d @0x16
0x3777…37b8 at0017 = ╱65╱e╱ // 0x378e @0x17
0x3777…37b8 at0018 = ╱73╱s╱ // 0x378f @0x18
0x3777…37b8 at0019 = ╱20╱…╱ // 0x3790 @0x19
0x3777…37b8 at001a = ╱70╱p╱ // 0x3791 @0x1a
0x3777…37b8 at001b = ╱7d╱}╱ // 0x3792 @0x1b
0x3777…37b8 at001c = ╱20╱…╱ // 0x3793 @0x1c
0x3777…37b8 at001d = ╱61╱a╱ // 0x3794 @0x1d
0x3777…37b8 at001e = ╱74╱t╱ // 0x3795 @0x1e
0x3777…37b8 at001f = ╱20╱…╱ // 0x3796 @0x1f
0x3777…37b8 at0020 = ╱64╱d╱ // 0x3797 @0x20
0x3777…37b8 at0021 = ╱65╱e╱ // 0x3798 @0x21
0x3777…37b8 at0022 = ╱6e╱n╱ // 0x3799 @0x22
0x3777…37b8 at0023 = ╱20╱…╱ // 0x379a @0x23
0x3777…37b8 at0024 = ╱62╱b╱ // 0x379b @0x24
0x3777…37b8 at0025 = ╱6c╱l╱ // 0x379c @0x25
0x3777…37b8 at0026 = ╱69╱i╱ // 0x379d @0x26
0x3777…37b8 at0027 = ╱76╱v╱ // 0x379e @0x27
0x3777…37b8 at0028 = ╱65╱e╱ // 0x379f @0x28
0x3777…37b8 at0029 = ╱72╱r╱ // 0x37a0 @0x29
0x3777…37b8 at002a = ╱20╱…╱ // 0x37a1 @0x2a
0x3777…37b8 at002b = ╱6c╱l╱ // 0x37a2 @0x2b
0x3777…37b8 at002c = ╱65╱e╱ // 0x37a3 @0x2c
0x3777…37b8 at002d = ╱64╱d╱ // 0x37a4 @0x2d
0x3777…37b8 at002e = ╱69╱i╱ // 0x37a5 @0x2e
0x3777…37b8 at002f = ╱67╱g╱ // 0x37a6 @0x2f
0x3777…37b8 at0030 = ╱20╱…╱ // 0x37a7 @0x30
0x3777…37b8 at0031 = ╱3f╱?╱ // 0x37a8 @0x31
0x3777…37b8 at0032 = ╱20╱…╱ // 0x37a9 @0x32
0x3777…37b8 at0033 = ╱28╱(╱ // 0x37aa @0x33
0x3777…37b8 at0034 = ╱6a╱j╱ // 0x37ab @0x34
0x3777…37b8 at0035 = ╱2f╱/╱ // 0x37ac @0x35
0x3777…37b8 at0036 = ╱6e╱n╱ // 0x37ad @0x36
0x3777…37b8 at0037 = ╱29╱)╱ // 0x37ae @0x37
0x3777…37b8 at0038 = ╱20╱…╱ // 0x37af @0x38
0x3777…37b8 at0039 = ╱22╱"╱ // 0x37b0 @0x39
0x3777…37b8 at003a = ╱f1╱ : ╱ // 0x37b1 @0x3a
0x3777…37b8 at003b = ╱53╱S╱ // 0x37b2 @0x3b
0x3777…37b8 at003c = ╱56╱V╱ // 0x37b3 @0x3c
0x3777…37b8 at003d = ╱41╱A╱ // 0x37b4 @0x3d
0x3777…37b8 at003e = ╱52╱R╱ // 0x37b5 @0x3e
0x3777…37b8 at003f = ╱ef╱ $ ╱ // 0x37b6 @0x3f
0x3777…37b8 at0040 = EOL // 0x37b7 @0x40
0x3777…37b8 }
0x37b8…37d3 cdc1 05750 IF VAR $ = "J" OR SVAR $ = "j" THEN
0x37b8…37d3 LineComal80 {
0x37b8…37d3 ptr = 0xcdc1 // 0x37b8 @0x0
0x37b8…37d3 lno = 0x1676 // 0x37ba @0x2
0x37b8…37d3 at0004 = ╱9b0053╱ IF ╱ // 0x37bc @0x4
0x37b8…37d3 at0007 = ╱56╱V╱ // 0x37bf @0x7
0x37b8…37d3 at0008 = ╱41╱A╱ // 0x37c0 @0x8
0x37b8…37d3 at0009 = ╱52╱R╱ // 0x37c1 @0x9
0x37b8…37d3 at000a = ╱ef╱ $ ╱ // 0x37c2 @0xa
0x37b8…37d3 at000b = ╱df╱ = ╱ // 0x37c3 @0xb
0x37b8…37d3 at000c = ╱22╱"╱ // 0x37c4 @0xc
0x37b8…37d3 at000d = ╱4a╱J╱ // 0x37c5 @0xd
0x37b8…37d3 at000e = ╱22╱"╱ // 0x37c6 @0xe
0x37b8…37d3 at000f = ╱d8╱ OR ╱ // 0x37c7 @0xf
0x37b8…37d3 at0010 = ╱53╱S╱ // 0x37c8 @0x10
0x37b8…37d3 at0011 = ╱56╱V╱ // 0x37c9 @0x11
0x37b8…37d3 at0012 = ╱41╱A╱ // 0x37ca @0x12
0x37b8…37d3 at0013 = ╱52╱R╱ // 0x37cb @0x13
0x37b8…37d3 at0014 = ╱ef╱ $ ╱ // 0x37cc @0x14
0x37b8…37d3 at0015 = ╱df╱ = ╱ // 0x37cd @0x15
0x37b8…37d3 at0016 = ╱22╱"╱ // 0x37ce @0x16
0x37b8…37d3 at0017 = ╱6a╱j╱ // 0x37cf @0x17
0x37b8…37d3 at0018 = ╱22╱"╱ // 0x37d0 @0x18
0x37b8…37d3 at0019 = ╱b5╱ THEN ╱ // 0x37d1 @0x19
0x37b8…37d3 at001a = EOL // 0x37d2 @0x1a
0x37b8…37d3 }
0x37d3…37e3 cdd1 05760 CURSOR 12 , LINE
0x37d3…37e3 LineComal80 {
0x37d3…37e3 ptr = 0xcdd1 // 0x37d3 @0x0
0x37d3…37e3 lno = 0x1680 // 0x37d5 @0x2
0x37d3…37e3 at0004 = ╱a1╱ CURSOR ╱ // 0x37d7 @0x4
0x37d3…37e3 at0005 = ╱31╱1╱ // 0x37d8 @0x5
0x37d3…37e3 at0006 = ╱32╱2╱ // 0x37d9 @0x6
0x37d3…37e3 at0007 = ╱f20c00╱ // 0x37da @0x7
0x37d3…37e3 at000a = ╱ec╱ , ╱ // 0x37dd @0xa
0x37d3…37e3 at000b = ╱4c╱L╱ // 0x37de @0xb
0x37d3…37e3 at000c = ╱49╱I╱ // 0x37df @0xc
0x37d3…37e3 at000d = ╱4e╱N╱ // 0x37e0 @0xd
0x37d3…37e3 at000e = ╱45╱E╱ // 0x37e1 @0xe
0x37d3…37e3 at000f = EOL // 0x37e2 @0xf
0x37d3…37e3 }
0x37e3…381e ce0c 05770 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
0x37e3…381e LineComal80 {
0x37e3…381e ptr = 0xce0c // 0x37e3 @0x0
0x37e3…381e lno = 0x168a // 0x37e5 @0x2
0x37e3…381e at0004 = ╱92╱ PRINT ╱ // 0x37e7 @0x4
0x37e3…381e at0005 = ╱22╱"╱ // 0x37e8 @0x5
0x37e3…381e at0006 = ╱3c╱<╱ // 0x37e9 @0x6
0x37e3…381e at0007 = ╱5a╱Z╱ // 0x37ea @0x7
0x37e3…381e at0008 = ╱3e╱>╱ // 0x37eb @0x8
0x37e3…381e at0009 = ╱20╱…╱ // 0x37ec @0x9
0x37e3…381e at000a = ╱20╱…╱ // 0x37ed @0xa
0x37e3…381e at000b = ╱20╱…╱ // 0x37ee @0xb
0x37e3…381e at000c = ╱20╱…╱ // 0x37ef @0xc
0x37e3…381e at000d = ╱20╱…╱ // 0x37f0 @0xd
0x37e3…381e at000e = ╱44╱D╱ // 0x37f1 @0xe
0x37e3…381e at000f = ╱65╱e╱ // 0x37f2 @0xf
0x37e3…381e at0010 = ╱72╱r╱ // 0x37f3 @0x10
0x37e3…381e at0011 = ╱20╱…╱ // 0x37f4 @0x11
0x37e3…381e at0012 = ╱76╱v╱ // 0x37f5 @0x12
0x37e3…381e at0013 = ╱65╱e╱ // 0x37f6 @0x13
0x37e3…381e at0014 = ╱6e╱n╱ // 0x37f7 @0x14
0x37e3…381e at0015 = ╱74╱t╱ // 0x37f8 @0x15
0x37e3…381e at0016 = ╱65╱e╱ // 0x37f9 @0x16
0x37e3…381e at0017 = ╱73╱s╱ // 0x37fa @0x17
0x37e3…381e at0018 = ╱20╱…╱ // 0x37fb @0x18
0x37e3…381e at0019 = ╱70╱p╱ // 0x37fc @0x19
0x37e3…381e at001a = ╱7d╱}╱ // 0x37fd @0x1a
0x37e3…381e at001b = ╱20╱…╱ // 0x37fe @0x1b
0x37e3…381e at001c = ╱61╱a╱ // 0x37ff @0x1c
0x37e3…381e at001d = ╱74╱t╱ // 0x3800 @0x1d
0x37e3…381e at001e = ╱20╱…╱ // 0x3801 @0x1e
0x37e3…381e at001f = ╱70╱p╱ // 0x3802 @0x1f
0x37e3…381e at0020 = ╱72╱r╱ // 0x3803 @0x20
0x37e3…381e at0021 = ╱69╱i╱ // 0x3804 @0x21
0x37e3…381e at0022 = ╱6e╱n╱ // 0x3805 @0x22
0x37e3…381e at0023 = ╱74╱t╱ // 0x3806 @0x23
0x37e3…381e at0024 = ╱65╱e╱ // 0x3807 @0x24
0x37e3…381e at0025 = ╱72╱r╱ // 0x3808 @0x25
0x37e3…381e at0026 = ╱65╱e╱ // 0x3809 @0x26
0x37e3…381e at0027 = ╱6e╱n╱ // 0x380a @0x27
0x37e3…381e at0028 = ╱20╱…╱ // 0x380b @0x28
0x37e3…381e at0029 = ╱62╱b╱ // 0x380c @0x29
0x37e3…381e at002a = ╱6c╱l╱ // 0x380d @0x2a
0x37e3…381e at002b = ╱69╱i╱ // 0x380e @0x2b
0x37e3…381e at002c = ╱76╱v╱ // 0x380f @0x2c
0x37e3…381e at002d = ╱65╱e╱ // 0x3810 @0x2d
0x37e3…381e at002e = ╱72╱r╱ // 0x3811 @0x2e
0x37e3…381e at002f = ╱20╱…╱ // 0x3812 @0x2f
0x37e3…381e at0030 = ╱6c╱l╱ // 0x3813 @0x30
0x37e3…381e at0031 = ╱65╱e╱ // 0x3814 @0x31
0x37e3…381e at0032 = ╱64╱d╱ // 0x3815 @0x32
0x37e3…381e at0033 = ╱69╱i╱ // 0x3816 @0x33
0x37e3…381e at0034 = ╱67╱g╱ // 0x3817 @0x34
0x37e3…381e at0035 = ╱2e╱.╱ // 0x3818 @0x35
0x37e3…381e at0036 = ╱2e╱.╱ // 0x3819 @0x36
0x37e3…381e at0037 = ╱2e╱.╱ // 0x381a @0x37
0x37e3…381e at0038 = ╱2e╱.╱ // 0x381b @0x38
0x37e3…381e at0039 = ╱22╱"╱ // 0x381c @0x39
0x37e3…381e at003a = EOL // 0x381d @0x3a
0x37e3…381e }
0x381e…382a ce18 05780 PRINT "<SZ>"
0x381e…382a LineComal80 {
0x381e…382a ptr = 0xce18 // 0x381e @0x0
0x381e…382a lno = 0x1694 // 0x3820 @0x2
0x381e…382a at0004 = ╱92╱ PRINT ╱ // 0x3822 @0x4
0x381e…382a at0005 = ╱22╱"╱ // 0x3823 @0x5
0x381e…382a at0006 = ╱3c╱<╱ // 0x3824 @0x6
0x381e…382a at0007 = ╱53╱S╱ // 0x3825 @0x7
0x381e…382a at0008 = ╱5a╱Z╱ // 0x3826 @0x8
0x381e…382a at0009 = ╱3e╱>╱ // 0x3827 @0x9
0x381e…382a at000a = ╱22╱"╱ // 0x3828 @0xa
0x381e…382a at000b = EOL // 0x3829 @0xb
0x381e…382a }
0x382a…3838 ce26 05790 WHILE ╱cd╱ ( "P" ) DO
0x382a…3838 LineComal80 {
0x382a…3838 ptr = 0xce26 // 0x382a @0x0
0x382a…3838 lno = 0x169e // 0x382c @0x2
0x382a…3838 at0004 = ╱9300╱ WHILE ╱ // 0x382e @0x4
0x382a…3838 at0006 = ╱cd╱ // 0x3830 @0x6
0x382a…3838 at0007 = ╱ed╱ ( ╱ // 0x3831 @0x7
0x382a…3838 at0008 = ╱22╱"╱ // 0x3832 @0x8
0x382a…3838 at0009 = ╱50╱P╱ // 0x3833 @0x9
0x382a…3838 at000a = ╱22╱"╱ // 0x3834 @0xa
0x382a…3838 at000b = ╱ee╱ ) ╱ // 0x3835 @0xb
0x382a…3838 at000c = ╱bb╱ DO ╱ // 0x3836 @0xc
0x382a…3838 at000d = EOL // 0x3837 @0xd
0x382a…3838 }
0x3838…3849 ce37 05800 LET SEK := ╱ca╱ ( 5 )
0x3838…3849 LineComal80 {
0x3838…3849 ptr = 0xce37 // 0x3838 @0x0
0x3838…3849 lno = 0x16a8 // 0x383a @0x2
0x3838…3849 at0004 = ╱86╱ LET ╱ // 0x383c @0x4
0x3838…3849 at0005 = ╱53╱S╱ // 0x383d @0x5
0x3838…3849 at0006 = ╱45╱E╱ // 0x383e @0x6
0x3838…3849 at0007 = ╱4b╱K╱ // 0x383f @0x7
0x3838…3849 at0008 = ╱f0╱ := ╱ // 0x3840 @0x8
0x3838…3849 at0009 = ╱ca╱ // 0x3841 @0x9
0x3838…3849 at000a = ╱ed╱ ( ╱ // 0x3842 @0xa
0x3838…3849 at000b = ╱35╱5╱ // 0x3843 @0xb
0x3838…3849 at000c = ╱f20500╱ // 0x3844 @0xc
0x3838…3849 at000f = ╱ee╱ ) ╱ // 0x3847 @0xf
0x3838…3849 at0010 = EOL // 0x3848 @0x10
0x3838…3849 }
0x3849…3859 ce47 05810 SELECT OUTPUT "P" + PRTNR $
0x3849…3859 LineComal80 {
0x3849…3859 ptr = 0xce47 // 0x3849 @0x0
0x3849…3859 lno = 0x16b2 // 0x384b @0x2
0x3849…3859 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x384d @0x4
0x3849…3859 at0005 = ╱22╱"╱ // 0x384e @0x5
0x3849…3859 at0006 = ╱50╱P╱ // 0x384f @0x6
0x3849…3859 at0007 = ╱22╱"╱ // 0x3850 @0x7
0x3849…3859 at0008 = ╱eb╱ + ╱ // 0x3851 @0x8
0x3849…3859 at0009 = ╱50╱P╱ // 0x3852 @0x9
0x3849…3859 at000a = ╱52╱R╱ // 0x3853 @0xa
0x3849…3859 at000b = ╱54╱T╱ // 0x3854 @0xb
0x3849…3859 at000c = ╱4e╱N╱ // 0x3855 @0xc
0x3849…3859 at000d = ╱52╱R╱ // 0x3856 @0xd
0x3849…3859 at000e = ╱ef╱ $ ╱ // 0x3857 @0xe
0x3849…3859 at000f = EOL // 0x3858 @0xf
0x3849…3859 }
0x3859…385f ce4d 05820 ENDWHILE
0x3859…385f LineComal80 {
0x3859…385f ptr = 0xce4d // 0x3859 @0x0
0x3859…385f lno = 0x16bc // 0x385b @0x2
0x3859…385f at0004 = ╱94╱ ENDWHILE ╱ // 0x385d @0x4
0x3859…385f at0005 = EOL // 0x385e @0x5
0x3859…385f }
0x385f…3866 ce54 05830 ELSE
0x385f…3866 LineComal80 {
0x385f…3866 ptr = 0xce54 // 0x385f @0x0
0x385f…3866 lno = 0x16c6 // 0x3861 @0x2
0x385f…3866 at0004 = ╱9a00╱ ELSE ╱ // 0x3863 @0x4
0x385f…3866 at0006 = EOL // 0x3865 @0x6
0x385f…3866 }
0x3866…3874 ce62 05840 LET OK := FALSE
0x3866…3874 LineComal80 {
0x3866…3874 ptr = 0xce62 // 0x3866 @0x0
0x3866…3874 lno = 0x16d0 // 0x3868 @0x2
0x3866…3874 at0004 = ╱86╱ LET ╱ // 0x386a @0x4
0x3866…3874 at0005 = ╱4f╱O╱ // 0x386b @0x5
0x3866…3874 at0006 = ╱4b╱K╱ // 0x386c @0x6
0x3866…3874 at0007 = ╱f0╱ := ╱ // 0x386d @0x7
0x3866…3874 at0008 = ╱46╱F╱ // 0x386e @0x8
0x3866…3874 at0009 = ╱41╱A╱ // 0x386f @0x9
0x3866…3874 at000a = ╱4c╱L╱ // 0x3870 @0xa
0x3866…3874 at000b = ╱53╱S╱ // 0x3871 @0xb
0x3866…3874 at000c = ╱45╱E╱ // 0x3872 @0xc
0x3866…3874 at000d = EOL // 0x3873 @0xd
0x3866…3874 }
0x3874…387a ce68 05850 ENDIF
0x3874…387a LineComal80 {
0x3874…387a ptr = 0xce68 // 0x3874 @0x0
0x3874…387a lno = 0x16da // 0x3876 @0x2
0x3874…387a at0004 = ╱9c╱ ENDIF ╱ // 0x3878 @0x4
0x3874…387a at0005 = EOL // 0x3879 @0x5
0x3874…387a }
0x387a…3880 ce6e 05860 ENDIF
0x387a…3880 LineComal80 {
0x387a…3880 ptr = 0xce6e // 0x387a @0x0
0x387a…3880 lno = 0x16e4 // 0x387c @0x2
0x387a…3880 at0004 = ╱9c╱ ENDIF ╱ // 0x387e @0x4
0x387a…3880 at0005 = EOL // 0x387f @0x5
0x387a…3880 }
0x3880…388f ce7d 05870 CURSOR 1 , LINE
0x3880…388f LineComal80 {
0x3880…388f ptr = 0xce7d // 0x3880 @0x0
0x3880…388f lno = 0x16ee // 0x3882 @0x2
0x3880…388f at0004 = ╱a1╱ CURSOR ╱ // 0x3884 @0x4
0x3880…388f at0005 = ╱31╱1╱ // 0x3885 @0x5
0x3880…388f at0006 = ╱f20100╱ // 0x3886 @0x6
0x3880…388f at0009 = ╱ec╱ , ╱ // 0x3889 @0x9
0x3880…388f at000a = ╱4c╱L╱ // 0x388a @0xa
0x3880…388f at000b = ╱49╱I╱ // 0x388b @0xb
0x3880…388f at000c = ╱4e╱N╱ // 0x388c @0xc
0x3880…388f at000d = ╱45╱E╱ // 0x388d @0xd
0x3880…388f at000e = EOL // 0x388e @0xe
0x3880…388f }
0x388f…389a ce88 05880 PRINT "<Z>"
0x388f…389a LineComal80 {
0x388f…389a ptr = 0xce88 // 0x388f @0x0
0x388f…389a lno = 0x16f8 // 0x3891 @0x2
0x388f…389a at0004 = ╱92╱ PRINT ╱ // 0x3893 @0x4
0x388f…389a at0005 = ╱22╱"╱ // 0x3894 @0x5
0x388f…389a at0006 = ╱3c╱<╱ // 0x3895 @0x6
0x388f…389a at0007 = ╱5a╱Z╱ // 0x3896 @0x7
0x388f…389a at0008 = ╱3e╱>╱ // 0x3897 @0x8
0x388f…389a at0009 = ╱22╱"╱ // 0x3898 @0x9
0x388f…389a at000a = EOL // 0x3899 @0xa
0x388f…389a }
0x389a…38a6 ce94 05890 PRINT "<SZ>"
0x389a…38a6 LineComal80 {
0x389a…38a6 ptr = 0xce94 // 0x389a @0x0
0x389a…38a6 lno = 0x1702 // 0x389c @0x2
0x389a…38a6 at0004 = ╱92╱ PRINT ╱ // 0x389e @0x4
0x389a…38a6 at0005 = ╱22╱"╱ // 0x389f @0x5
0x389a…38a6 at0006 = ╱3c╱<╱ // 0x38a0 @0x6
0x389a…38a6 at0007 = ╱53╱S╱ // 0x38a1 @0x7
0x389a…38a6 at0008 = ╱5a╱Z╱ // 0x38a2 @0x8
0x389a…38a6 at0009 = ╱3e╱>╱ // 0x38a3 @0x9
0x389a…38a6 at000a = ╱22╱"╱ // 0x38a4 @0xa
0x389a…38a6 at000b = EOL // 0x38a5 @0xb
0x389a…38a6 }
0x38a6…38b4 cea2 05900 ENDPROC PRINTRES
0x38a6…38b4 LineComal80 {
0x38a6…38b4 ptr = 0xcea2 // 0x38a6 @0x0
0x38a6…38b4 lno = 0x170c // 0x38a8 @0x2
0x38a6…38b4 at0004 = ╱9f╱ ENDPROC ╱ // 0x38aa @0x4
0x38a6…38b4 at0005 = ╱50╱P╱ // 0x38ab @0x5
0x38a6…38b4 at0006 = ╱52╱R╱ // 0x38ac @0x6
0x38a6…38b4 at0007 = ╱49╱I╱ // 0x38ad @0x7
0x38a6…38b4 at0008 = ╱4e╱N╱ // 0x38ae @0x8
0x38a6…38b4 at0009 = ╱54╱T╱ // 0x38af @0x9
0x38a6…38b4 at000a = ╱52╱R╱ // 0x38b0 @0xa
0x38a6…38b4 at000b = ╱45╱E╱ // 0x38b1 @0xb
0x38a6…38b4 at000c = ╱53╱S╱ // 0x38b2 @0xc
0x38a6…38b4 at000d = EOL // 0x38b3 @0xd
0x38a6…38b4 }
0x38b4…38ba cea8 05480 //
0x38b4…38ba LineComal80 {
0x38b4…38ba ptr = 0xcea8 // 0x38b4 @0x0
0x38b4…38ba lno = 0x1568 // 0x38b6 @0x2
0x38b4…38ba at0004 = ╱89╱ // ╱ // 0x38b8 @0x4
0x38b4…38ba at0005 = EOL // 0x38b9 @0x5
0x38b4…38ba }
0x38ba…38d9 cec7 05490 PROC PRINTREL // RELEASE…PRINTER
0x38ba…38d9 LineComal80 {
0x38ba…38d9 ptr = 0xcec7 // 0x38ba @0x0
0x38ba…38d9 lno = 0x1572 // 0x38bc @0x2
0x38ba…38d9 at0004 = ╱9e69╱ PROC ╱ // 0x38be @0x4
0x38ba…38d9 at0006 = ╱50╱P╱ // 0x38c0 @0x6
0x38ba…38d9 at0007 = ╱52╱R╱ // 0x38c1 @0x7
0x38ba…38d9 at0008 = ╱49╱I╱ // 0x38c2 @0x8
0x38ba…38d9 at0009 = ╱4e╱N╱ // 0x38c3 @0x9
0x38ba…38d9 at000a = ╱54╱T╱ // 0x38c4 @0xa
0x38ba…38d9 at000b = ╱52╱R╱ // 0x38c5 @0xb
0x38ba…38d9 at000c = ╱45╱E╱ // 0x38c6 @0xc
0x38ba…38d9 at000d = ╱4c╱L╱ // 0x38c7 @0xd
0x38ba…38d9 at000e = ╱89╱ // ╱ // 0x38c8 @0xe
0x38ba…38d9 at000f = ╱52╱R╱ // 0x38c9 @0xf
0x38ba…38d9 at0010 = ╱45╱E╱ // 0x38ca @0x10
0x38ba…38d9 at0011 = ╱4c╱L╱ // 0x38cb @0x11
0x38ba…38d9 at0012 = ╱45╱E╱ // 0x38cc @0x12
0x38ba…38d9 at0013 = ╱41╱A╱ // 0x38cd @0x13
0x38ba…38d9 at0014 = ╱53╱S╱ // 0x38ce @0x14
0x38ba…38d9 at0015 = ╱45╱E╱ // 0x38cf @0x15
0x38ba…38d9 at0016 = ╱20╱…╱ // 0x38d0 @0x16
0x38ba…38d9 at0017 = ╱50╱P╱ // 0x38d1 @0x17
0x38ba…38d9 at0018 = ╱52╱R╱ // 0x38d2 @0x18
0x38ba…38d9 at0019 = ╱49╱I╱ // 0x38d3 @0x19
0x38ba…38d9 at001a = ╱4e╱N╱ // 0x38d4 @0x1a
0x38ba…38d9 at001b = ╱54╱T╱ // 0x38d5 @0x1b
0x38ba…38d9 at001c = ╱45╱E╱ // 0x38d6 @0x1c
0x38ba…38d9 at001d = ╱52╱R╱ // 0x38d7 @0x1d
0x38ba…38d9 at001e = EOL // 0x38d8 @0x1e
0x38ba…38d9 }
0x38d9…38e2 (189,) ced0 05500 SELECT OUTPUT "T"
0x38d9…38e2 LineComal80 {
0x38d9…38e2 ptr = 0xced0 // 0x38d9 @0x0
0x38d9…38e2 lno = 0x157c // 0x38db @0x2
0x38d9…38e2 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x38dd @0x4
0x38d9…38e2 at0005 = ╱22╱"╱ // 0x38de @0x5
0x38d9…38e2 at0006 = ╱54╱T╱ // 0x38df @0x6
0x38d9…38e2 at0007 = ╱22╱"╱ // 0x38e0 @0x7
0x38d9…38e2 at0008 = EOL // 0x38e1 @0x8
0x38d9…38e2 }
0x38e2…38f0 d395 05510 ENDPROC PRINTREL
0x38e2…38f0 LineComal80 {
0x38e2…38f0 ptr = 0xd395 // 0x38e2 @0x0
0x38e2…38f0 lno = 0x1586 // 0x38e4 @0x2
0x38e2…38f0 at0004 = ╱9f╱ ENDPROC ╱ // 0x38e6 @0x4
0x38e2…38f0 at0005 = ╱50╱P╱ // 0x38e7 @0x5
0x38e2…38f0 at0006 = ╱52╱R╱ // 0x38e8 @0x6
0x38e2…38f0 at0007 = ╱49╱I╱ // 0x38e9 @0x7
0x38e2…38f0 at0008 = ╱4e╱N╱ // 0x38ea @0x8
0x38e2…38f0 at0009 = ╱54╱T╱ // 0x38eb @0x9
0x38e2…38f0 at000a = ╱52╱R╱ // 0x38ec @0xa
0x38e2…38f0 at000b = ╱45╱E╱ // 0x38ed @0xb
0x38e2…38f0 at000c = ╱4c╱L╱ // 0x38ee @0xc
0x38e2…38f0 at000d = EOL // 0x38ef @0xd
0x38e2…38f0 }
0x38f0…3927 cf15 01940 PRINT "<C0105>………BILAG……TEKST……………………………………………………………KO"
0x38f0…3927 LineComal80 {
0x38f0…3927 ptr = 0xcf15 // 0x38f0 @0x0
0x38f0…3927 lno = 0x0794 // 0x38f2 @0x2
0x38f0…3927 at0004 = ╱92╱ PRINT ╱ // 0x38f4 @0x4
0x38f0…3927 at0005 = ╱22╱"╱ // 0x38f5 @0x5
0x38f0…3927 at0006 = ╱3c╱<╱ // 0x38f6 @0x6
0x38f0…3927 at0007 = ╱43╱C╱ // 0x38f7 @0x7
0x38f0…3927 at0008 = ╱30╱0╱ // 0x38f8 @0x8
0x38f0…3927 at0009 = ╱31╱1╱ // 0x38f9 @0x9
0x38f0…3927 at000a = ╱30╱0╱ // 0x38fa @0xa
0x38f0…3927 at000b = ╱35╱5╱ // 0x38fb @0xb
0x38f0…3927 at000c = ╱3e╱>╱ // 0x38fc @0xc
0x38f0…3927 at000d = ╱20╱…╱ // 0x38fd @0xd
0x38f0…3927 at000e = ╱20╱…╱ // 0x38fe @0xe
0x38f0…3927 at000f = ╱20╱…╱ // 0x38ff @0xf
0x38f0…3927 at0010 = ╱42╱B╱ // 0x3900 @0x10
0x38f0…3927 at0011 = ╱49╱I╱ // 0x3901 @0x11
0x38f0…3927 at0012 = ╱4c╱L╱ // 0x3902 @0x12
0x38f0…3927 at0013 = ╱41╱A╱ // 0x3903 @0x13
0x38f0…3927 at0014 = ╱47╱G╱ // 0x3904 @0x14
0x38f0…3927 at0015 = ╱20╱…╱ // 0x3905 @0x15
0x38f0…3927 at0016 = ╱20╱…╱ // 0x3906 @0x16
0x38f0…3927 at0017 = ╱54╱T╱ // 0x3907 @0x17
0x38f0…3927 at0018 = ╱45╱E╱ // 0x3908 @0x18
0x38f0…3927 at0019 = ╱4b╱K╱ // 0x3909 @0x19
0x38f0…3927 at001a = ╱53╱S╱ // 0x390a @0x1a
0x38f0…3927 at001b = ╱54╱T╱ // 0x390b @0x1b
0x38f0…3927 at001c = ╱20╱…╱ // 0x390c @0x1c
0x38f0…3927 at001d = ╱20╱…╱ // 0x390d @0x1d
0x38f0…3927 at001e = ╱20╱…╱ // 0x390e @0x1e
0x38f0…3927 at001f = ╱20╱…╱ // 0x390f @0x1f
0x38f0…3927 at0020 = ╱20╱…╱ // 0x3910 @0x20
0x38f0…3927 at0021 = ╱20╱…╱ // 0x3911 @0x21
0x38f0…3927 at0022 = ╱20╱…╱ // 0x3912 @0x22
0x38f0…3927 at0023 = ╱20╱…╱ // 0x3913 @0x23
0x38f0…3927 at0024 = ╱20╱…╱ // 0x3914 @0x24
0x38f0…3927 at0025 = ╱20╱…╱ // 0x3915 @0x25
0x38f0…3927 at0026 = ╱20╱…╱ // 0x3916 @0x26
0x38f0…3927 at0027 = ╱20╱…╱ // 0x3917 @0x27
0x38f0…3927 at0028 = ╱20╱…╱ // 0x3918 @0x28
0x38f0…3927 at0029 = ╱20╱…╱ // 0x3919 @0x29
0x38f0…3927 at002a = ╱20╱…╱ // 0x391a @0x2a
0x38f0…3927 at002b = ╱20╱…╱ // 0x391b @0x2b
0x38f0…3927 at002c = ╱20╱…╱ // 0x391c @0x2c
0x38f0…3927 at002d = ╱20╱…╱ // 0x391d @0x2d
0x38f0…3927 at002e = ╱20╱…╱ // 0x391e @0x2e
0x38f0…3927 at002f = ╱20╱…╱ // 0x391f @0x2f
0x38f0…3927 at0030 = ╱20╱…╱ // 0x3920 @0x30
0x38f0…3927 at0031 = ╱20╱…╱ // 0x3921 @0x31
0x38f0…3927 at0032 = ╱20╱…╱ // 0x3922 @0x32
0x38f0…3927 at0033 = ╱4b╱K╱ // 0x3923 @0x33
0x38f0…3927 at0034 = ╱4f╱O╱ // 0x3924 @0x34
0x38f0…3927 at0035 = ╱22╱"╱ // 0x3925 @0x35
0x38f0…3927 at0036 = EOL // 0x3926 @0x36
0x38f0…3927 }
0x3927…395e cf4c 01950 PRINT "<C0106>…………NR……………………………………………………………………………………NU"
0x3927…395e LineComal80 {
0x3927…395e ptr = 0xcf4c // 0x3927 @0x0
0x3927…395e lno = 0x079e // 0x3929 @0x2
0x3927…395e at0004 = ╱92╱ PRINT ╱ // 0x392b @0x4
0x3927…395e at0005 = ╱22╱"╱ // 0x392c @0x5
0x3927…395e at0006 = ╱3c╱<╱ // 0x392d @0x6
0x3927…395e at0007 = ╱43╱C╱ // 0x392e @0x7
0x3927…395e at0008 = ╱30╱0╱ // 0x392f @0x8
0x3927…395e at0009 = ╱31╱1╱ // 0x3930 @0x9
0x3927…395e at000a = ╱30╱0╱ // 0x3931 @0xa
0x3927…395e at000b = ╱36╱6╱ // 0x3932 @0xb
0x3927…395e at000c = ╱3e╱>╱ // 0x3933 @0xc
0x3927…395e at000d = ╱20╱…╱ // 0x3934 @0xd
0x3927…395e at000e = ╱20╱…╱ // 0x3935 @0xe
0x3927…395e at000f = ╱20╱…╱ // 0x3936 @0xf
0x3927…395e at0010 = ╱20╱…╱ // 0x3937 @0x10
0x3927…395e at0011 = ╱4e╱N╱ // 0x3938 @0x11
0x3927…395e at0012 = ╱52╱R╱ // 0x3939 @0x12
0x3927…395e at0013 = ╱20╱…╱ // 0x393a @0x13
0x3927…395e at0014 = ╱20╱…╱ // 0x393b @0x14
0x3927…395e at0015 = ╱20╱…╱ // 0x393c @0x15
0x3927…395e at0016 = ╱20╱…╱ // 0x393d @0x16
0x3927…395e at0017 = ╱20╱…╱ // 0x393e @0x17
0x3927…395e at0018 = ╱20╱…╱ // 0x393f @0x18
0x3927…395e at0019 = ╱20╱…╱ // 0x3940 @0x19
0x3927…395e at001a = ╱20╱…╱ // 0x3941 @0x1a
0x3927…395e at001b = ╱20╱…╱ // 0x3942 @0x1b
0x3927…395e at001c = ╱20╱…╱ // 0x3943 @0x1c
0x3927…395e at001d = ╱20╱…╱ // 0x3944 @0x1d
0x3927…395e at001e = ╱20╱…╱ // 0x3945 @0x1e
0x3927…395e at001f = ╱20╱…╱ // 0x3946 @0x1f
0x3927…395e at0020 = ╱20╱…╱ // 0x3947 @0x20
0x3927…395e at0021 = ╱20╱…╱ // 0x3948 @0x21
0x3927…395e at0022 = ╱20╱…╱ // 0x3949 @0x22
0x3927…395e at0023 = ╱20╱…╱ // 0x394a @0x23
0x3927…395e at0024 = ╱20╱…╱ // 0x394b @0x24
0x3927…395e at0025 = ╱20╱…╱ // 0x394c @0x25
0x3927…395e at0026 = ╱20╱…╱ // 0x394d @0x26
0x3927…395e at0027 = ╱20╱…╱ // 0x394e @0x27
0x3927…395e at0028 = ╱20╱…╱ // 0x394f @0x28
0x3927…395e at0029 = ╱20╱…╱ // 0x3950 @0x29
0x3927…395e at002a = ╱20╱…╱ // 0x3951 @0x2a
0x3927…395e at002b = ╱20╱…╱ // 0x3952 @0x2b
0x3927…395e at002c = ╱20╱…╱ // 0x3953 @0x2c
0x3927…395e at002d = ╱20╱…╱ // 0x3954 @0x2d
0x3927…395e at002e = ╱20╱…╱ // 0x3955 @0x2e
0x3927…395e at002f = ╱20╱…╱ // 0x3956 @0x2f
0x3927…395e at0030 = ╱20╱…╱ // 0x3957 @0x30
0x3927…395e at0031 = ╱20╱…╱ // 0x3958 @0x31
0x3927…395e at0032 = ╱20╱…╱ // 0x3959 @0x32
0x3927…395e at0033 = ╱4e╱N╱ // 0x395a @0x33
0x3927…395e at0034 = ╱55╱U╱ // 0x395b @0x34
0x3927…395e at0035 = ╱22╱"╱ // 0x395c @0x35
0x3927…395e at0036 = EOL // 0x395d @0x36
0x3927…395e }
0x395e…3995 cf83 01960 PRINT "<C0107>----------------------------------------"
0x395e…3995 LineComal80 {
0x395e…3995 ptr = 0xcf83 // 0x395e @0x0
0x395e…3995 lno = 0x07a8 // 0x3960 @0x2
0x395e…3995 at0004 = ╱92╱ PRINT ╱ // 0x3962 @0x4
0x395e…3995 at0005 = ╱22╱"╱ // 0x3963 @0x5
0x395e…3995 at0006 = ╱3c╱<╱ // 0x3964 @0x6
0x395e…3995 at0007 = ╱43╱C╱ // 0x3965 @0x7
0x395e…3995 at0008 = ╱30╱0╱ // 0x3966 @0x8
0x395e…3995 at0009 = ╱31╱1╱ // 0x3967 @0x9
0x395e…3995 at000a = ╱30╱0╱ // 0x3968 @0xa
0x395e…3995 at000b = ╱37╱7╱ // 0x3969 @0xb
0x395e…3995 at000c = ╱3e╱>╱ // 0x396a @0xc
0x395e…3995 at000d = ╱2d╱-╱ // 0x396b @0xd
0x395e…3995 at000e = ╱2d╱-╱ // 0x396c @0xe
0x395e…3995 at000f = ╱2d╱-╱ // 0x396d @0xf
0x395e…3995 at0010 = ╱2d╱-╱ // 0x396e @0x10
0x395e…3995 at0011 = ╱2d╱-╱ // 0x396f @0x11
0x395e…3995 at0012 = ╱2d╱-╱ // 0x3970 @0x12
0x395e…3995 at0013 = ╱2d╱-╱ // 0x3971 @0x13
0x395e…3995 at0014 = ╱2d╱-╱ // 0x3972 @0x14
0x395e…3995 at0015 = ╱2d╱-╱ // 0x3973 @0x15
0x395e…3995 at0016 = ╱2d╱-╱ // 0x3974 @0x16
0x395e…3995 at0017 = ╱2d╱-╱ // 0x3975 @0x17
0x395e…3995 at0018 = ╱2d╱-╱ // 0x3976 @0x18
0x395e…3995 at0019 = ╱2d╱-╱ // 0x3977 @0x19
0x395e…3995 at001a = ╱2d╱-╱ // 0x3978 @0x1a
0x395e…3995 at001b = ╱2d╱-╱ // 0x3979 @0x1b
0x395e…3995 at001c = ╱2d╱-╱ // 0x397a @0x1c
0x395e…3995 at001d = ╱2d╱-╱ // 0x397b @0x1d
0x395e…3995 at001e = ╱2d╱-╱ // 0x397c @0x1e
0x395e…3995 at001f = ╱2d╱-╱ // 0x397d @0x1f
0x395e…3995 at0020 = ╱2d╱-╱ // 0x397e @0x20
0x395e…3995 at0021 = ╱2d╱-╱ // 0x397f @0x21
0x395e…3995 at0022 = ╱2d╱-╱ // 0x3980 @0x22
0x395e…3995 at0023 = ╱2d╱-╱ // 0x3981 @0x23
0x395e…3995 at0024 = ╱2d╱-╱ // 0x3982 @0x24
0x395e…3995 at0025 = ╱2d╱-╱ // 0x3983 @0x25
0x395e…3995 at0026 = ╱2d╱-╱ // 0x3984 @0x26
0x395e…3995 at0027 = ╱2d╱-╱ // 0x3985 @0x27
0x395e…3995 at0028 = ╱2d╱-╱ // 0x3986 @0x28
0x395e…3995 at0029 = ╱2d╱-╱ // 0x3987 @0x29
0x395e…3995 at002a = ╱2d╱-╱ // 0x3988 @0x2a
0x395e…3995 at002b = ╱2d╱-╱ // 0x3989 @0x2b
0x395e…3995 at002c = ╱2d╱-╱ // 0x398a @0x2c
0x395e…3995 at002d = ╱2d╱-╱ // 0x398b @0x2d
0x395e…3995 at002e = ╱2d╱-╱ // 0x398c @0x2e
0x395e…3995 at002f = ╱2d╱-╱ // 0x398d @0x2f
0x395e…3995 at0030 = ╱2d╱-╱ // 0x398e @0x30
0x395e…3995 at0031 = ╱2d╱-╱ // 0x398f @0x31
0x395e…3995 at0032 = ╱2d╱-╱ // 0x3990 @0x32
0x395e…3995 at0033 = ╱2d╱-╱ // 0x3991 @0x33
0x395e…3995 at0034 = ╱2d╱-╱ // 0x3992 @0x34
0x395e…3995 at0035 = ╱22╱"╱ // 0x3993 @0x35
0x395e…3995 at0036 = EOL // 0x3994 @0x36
0x395e…3995 }
0x3995…39cc cfba 01970 PRINT "<C4105>NTO-…………………DEBET………………KREDIT………………F/R/S…"
0x3995…39cc LineComal80 {
0x3995…39cc ptr = 0xcfba // 0x3995 @0x0
0x3995…39cc lno = 0x07b2 // 0x3997 @0x2
0x3995…39cc at0004 = ╱92╱ PRINT ╱ // 0x3999 @0x4
0x3995…39cc at0005 = ╱22╱"╱ // 0x399a @0x5
0x3995…39cc at0006 = ╱3c╱<╱ // 0x399b @0x6
0x3995…39cc at0007 = ╱43╱C╱ // 0x399c @0x7
0x3995…39cc at0008 = ╱34╱4╱ // 0x399d @0x8
0x3995…39cc at0009 = ╱31╱1╱ // 0x399e @0x9
0x3995…39cc at000a = ╱30╱0╱ // 0x399f @0xa
0x3995…39cc at000b = ╱35╱5╱ // 0x39a0 @0xb
0x3995…39cc at000c = ╱3e╱>╱ // 0x39a1 @0xc
0x3995…39cc at000d = ╱4e╱N╱ // 0x39a2 @0xd
0x3995…39cc at000e = ╱54╱T╱ // 0x39a3 @0xe
0x3995…39cc at000f = ╱4f╱O╱ // 0x39a4 @0xf
0x3995…39cc at0010 = ╱2d╱-╱ // 0x39a5 @0x10
0x3995…39cc at0011 = ╱20╱…╱ // 0x39a6 @0x11
0x3995…39cc at0012 = ╱20╱…╱ // 0x39a7 @0x12
0x3995…39cc at0013 = ╱20╱…╱ // 0x39a8 @0x13
0x3995…39cc at0014 = ╱20╱…╱ // 0x39a9 @0x14
0x3995…39cc at0015 = ╱20╱…╱ // 0x39aa @0x15
0x3995…39cc at0016 = ╱20╱…╱ // 0x39ab @0x16
0x3995…39cc at0017 = ╱20╱…╱ // 0x39ac @0x17
0x3995…39cc at0018 = ╱44╱D╱ // 0x39ad @0x18
0x3995…39cc at0019 = ╱45╱E╱ // 0x39ae @0x19
0x3995…39cc at001a = ╱42╱B╱ // 0x39af @0x1a
0x3995…39cc at001b = ╱45╱E╱ // 0x39b0 @0x1b
0x3995…39cc at001c = ╱54╱T╱ // 0x39b1 @0x1c
0x3995…39cc at001d = ╱20╱…╱ // 0x39b2 @0x1d
0x3995…39cc at001e = ╱20╱…╱ // 0x39b3 @0x1e
0x3995…39cc at001f = ╱20╱…╱ // 0x39b4 @0x1f
0x3995…39cc at0020 = ╱20╱…╱ // 0x39b5 @0x20
0x3995…39cc at0021 = ╱20╱…╱ // 0x39b6 @0x21
0x3995…39cc at0022 = ╱20╱…╱ // 0x39b7 @0x22
0x3995…39cc at0023 = ╱4b╱K╱ // 0x39b8 @0x23
0x3995…39cc at0024 = ╱52╱R╱ // 0x39b9 @0x24
0x3995…39cc at0025 = ╱45╱E╱ // 0x39ba @0x25
0x3995…39cc at0026 = ╱44╱D╱ // 0x39bb @0x26
0x3995…39cc at0027 = ╱49╱I╱ // 0x39bc @0x27
0x3995…39cc at0028 = ╱54╱T╱ // 0x39bd @0x28
0x3995…39cc at0029 = ╱20╱…╱ // 0x39be @0x29
0x3995…39cc at002a = ╱20╱…╱ // 0x39bf @0x2a
0x3995…39cc at002b = ╱20╱…╱ // 0x39c0 @0x2b
0x3995…39cc at002c = ╱20╱…╱ // 0x39c1 @0x2c
0x3995…39cc at002d = ╱20╱…╱ // 0x39c2 @0x2d
0x3995…39cc at002e = ╱20╱…╱ // 0x39c3 @0x2e
0x3995…39cc at002f = ╱46╱F╱ // 0x39c4 @0x2f
0x3995…39cc at0030 = ╱2f╱/╱ // 0x39c5 @0x30
0x3995…39cc at0031 = ╱52╱R╱ // 0x39c6 @0x31
0x3995…39cc at0032 = ╱2f╱/╱ // 0x39c7 @0x32
0x3995…39cc at0033 = ╱53╱S╱ // 0x39c8 @0x33
0x3995…39cc at0034 = ╱20╱…╱ // 0x39c9 @0x34
0x3995…39cc at0035 = ╱22╱"╱ // 0x39ca @0x35
0x3995…39cc at0036 = EOL // 0x39cb @0x36
0x3995…39cc }
0x39cc…3a02 cff0 01980 PRINT "<C4106>MMER……………………………………………………………………………………………"
0x39cc…3a02 LineComal80 {
0x39cc…3a02 ptr = 0xcff0 // 0x39cc @0x0
0x39cc…3a02 lno = 0x07bc // 0x39ce @0x2
0x39cc…3a02 at0004 = ╱92╱ PRINT ╱ // 0x39d0 @0x4
0x39cc…3a02 at0005 = ╱22╱"╱ // 0x39d1 @0x5
0x39cc…3a02 at0006 = ╱3c╱<╱ // 0x39d2 @0x6
0x39cc…3a02 at0007 = ╱43╱C╱ // 0x39d3 @0x7
0x39cc…3a02 at0008 = ╱34╱4╱ // 0x39d4 @0x8
0x39cc…3a02 at0009 = ╱31╱1╱ // 0x39d5 @0x9
0x39cc…3a02 at000a = ╱30╱0╱ // 0x39d6 @0xa
0x39cc…3a02 at000b = ╱36╱6╱ // 0x39d7 @0xb
0x39cc…3a02 at000c = ╱3e╱>╱ // 0x39d8 @0xc
0x39cc…3a02 at000d = ╱4d╱M╱ // 0x39d9 @0xd
0x39cc…3a02 at000e = ╱4d╱M╱ // 0x39da @0xe
0x39cc…3a02 at000f = ╱45╱E╱ // 0x39db @0xf
0x39cc…3a02 at0010 = ╱52╱R╱ // 0x39dc @0x10
0x39cc…3a02 at0011 = ╱20╱…╱ // 0x39dd @0x11
0x39cc…3a02 at0012 = ╱20╱…╱ // 0x39de @0x12
0x39cc…3a02 at0013 = ╱20╱…╱ // 0x39df @0x13
0x39cc…3a02 at0014 = ╱20╱…╱ // 0x39e0 @0x14
0x39cc…3a02 at0015 = ╱20╱…╱ // 0x39e1 @0x15
0x39cc…3a02 at0016 = ╱20╱…╱ // 0x39e2 @0x16
0x39cc…3a02 at0017 = ╱20╱…╱ // 0x39e3 @0x17
0x39cc…3a02 at0018 = ╱20╱…╱ // 0x39e4 @0x18
0x39cc…3a02 at0019 = ╱20╱…╱ // 0x39e5 @0x19
0x39cc…3a02 at001a = ╱20╱…╱ // 0x39e6 @0x1a
0x39cc…3a02 at001b = ╱20╱…╱ // 0x39e7 @0x1b
0x39cc…3a02 at001c = ╱20╱…╱ // 0x39e8 @0x1c
0x39cc…3a02 at001d = ╱20╱…╱ // 0x39e9 @0x1d
0x39cc…3a02 at001e = ╱20╱…╱ // 0x39ea @0x1e
0x39cc…3a02 at001f = ╱20╱…╱ // 0x39eb @0x1f
0x39cc…3a02 at0020 = ╱20╱…╱ // 0x39ec @0x20
0x39cc…3a02 at0021 = ╱20╱…╱ // 0x39ed @0x21
0x39cc…3a02 at0022 = ╱20╱…╱ // 0x39ee @0x22
0x39cc…3a02 at0023 = ╱20╱…╱ // 0x39ef @0x23
0x39cc…3a02 at0024 = ╱20╱…╱ // 0x39f0 @0x24
0x39cc…3a02 at0025 = ╱20╱…╱ // 0x39f1 @0x25
0x39cc…3a02 at0026 = ╱20╱…╱ // 0x39f2 @0x26
0x39cc…3a02 at0027 = ╱20╱…╱ // 0x39f3 @0x27
0x39cc…3a02 at0028 = ╱20╱…╱ // 0x39f4 @0x28
0x39cc…3a02 at0029 = ╱20╱…╱ // 0x39f5 @0x29
0x39cc…3a02 at002a = ╱20╱…╱ // 0x39f6 @0x2a
0x39cc…3a02 at002b = ╱20╱…╱ // 0x39f7 @0x2b
0x39cc…3a02 at002c = ╱20╱…╱ // 0x39f8 @0x2c
0x39cc…3a02 at002d = ╱20╱…╱ // 0x39f9 @0x2d
0x39cc…3a02 at002e = ╱20╱…╱ // 0x39fa @0x2e
0x39cc…3a02 at002f = ╱20╱…╱ // 0x39fb @0x2f
0x39cc…3a02 at0030 = ╱20╱…╱ // 0x39fc @0x30
0x39cc…3a02 at0031 = ╱20╱…╱ // 0x39fd @0x31
0x39cc…3a02 at0032 = ╱20╱…╱ // 0x39fe @0x32
0x39cc…3a02 at0033 = ╱20╱…╱ // 0x39ff @0x33
0x39cc…3a02 at0034 = ╱22╱"╱ // 0x3a00 @0x34
0x39cc…3a02 at0035 = EOL // 0x3a01 @0x35
0x39cc…3a02 }
0x3a02…3a39 d027 01990 PRINT "<C4107>----------------------------------------"
0x3a02…3a39 LineComal80 {
0x3a02…3a39 ptr = 0xd027 // 0x3a02 @0x0
0x3a02…3a39 lno = 0x07c6 // 0x3a04 @0x2
0x3a02…3a39 at0004 = ╱92╱ PRINT ╱ // 0x3a06 @0x4
0x3a02…3a39 at0005 = ╱22╱"╱ // 0x3a07 @0x5
0x3a02…3a39 at0006 = ╱3c╱<╱ // 0x3a08 @0x6
0x3a02…3a39 at0007 = ╱43╱C╱ // 0x3a09 @0x7
0x3a02…3a39 at0008 = ╱34╱4╱ // 0x3a0a @0x8
0x3a02…3a39 at0009 = ╱31╱1╱ // 0x3a0b @0x9
0x3a02…3a39 at000a = ╱30╱0╱ // 0x3a0c @0xa
0x3a02…3a39 at000b = ╱37╱7╱ // 0x3a0d @0xb
0x3a02…3a39 at000c = ╱3e╱>╱ // 0x3a0e @0xc
0x3a02…3a39 at000d = ╱2d╱-╱ // 0x3a0f @0xd
0x3a02…3a39 at000e = ╱2d╱-╱ // 0x3a10 @0xe
0x3a02…3a39 at000f = ╱2d╱-╱ // 0x3a11 @0xf
0x3a02…3a39 at0010 = ╱2d╱-╱ // 0x3a12 @0x10
0x3a02…3a39 at0011 = ╱2d╱-╱ // 0x3a13 @0x11
0x3a02…3a39 at0012 = ╱2d╱-╱ // 0x3a14 @0x12
0x3a02…3a39 at0013 = ╱2d╱-╱ // 0x3a15 @0x13
0x3a02…3a39 at0014 = ╱2d╱-╱ // 0x3a16 @0x14
0x3a02…3a39 at0015 = ╱2d╱-╱ // 0x3a17 @0x15
0x3a02…3a39 at0016 = ╱2d╱-╱ // 0x3a18 @0x16
0x3a02…3a39 at0017 = ╱2d╱-╱ // 0x3a19 @0x17
0x3a02…3a39 at0018 = ╱2d╱-╱ // 0x3a1a @0x18
0x3a02…3a39 at0019 = ╱2d╱-╱ // 0x3a1b @0x19
0x3a02…3a39 at001a = ╱2d╱-╱ // 0x3a1c @0x1a
0x3a02…3a39 at001b = ╱2d╱-╱ // 0x3a1d @0x1b
0x3a02…3a39 at001c = ╱2d╱-╱ // 0x3a1e @0x1c
0x3a02…3a39 at001d = ╱2d╱-╱ // 0x3a1f @0x1d
0x3a02…3a39 at001e = ╱2d╱-╱ // 0x3a20 @0x1e
0x3a02…3a39 at001f = ╱2d╱-╱ // 0x3a21 @0x1f
0x3a02…3a39 at0020 = ╱2d╱-╱ // 0x3a22 @0x20
0x3a02…3a39 at0021 = ╱2d╱-╱ // 0x3a23 @0x21
0x3a02…3a39 at0022 = ╱2d╱-╱ // 0x3a24 @0x22
0x3a02…3a39 at0023 = ╱2d╱-╱ // 0x3a25 @0x23
0x3a02…3a39 at0024 = ╱2d╱-╱ // 0x3a26 @0x24
0x3a02…3a39 at0025 = ╱2d╱-╱ // 0x3a27 @0x25
0x3a02…3a39 at0026 = ╱2d╱-╱ // 0x3a28 @0x26
0x3a02…3a39 at0027 = ╱2d╱-╱ // 0x3a29 @0x27
0x3a02…3a39 at0028 = ╱2d╱-╱ // 0x3a2a @0x28
0x3a02…3a39 at0029 = ╱2d╱-╱ // 0x3a2b @0x29
0x3a02…3a39 at002a = ╱2d╱-╱ // 0x3a2c @0x2a
0x3a02…3a39 at002b = ╱2d╱-╱ // 0x3a2d @0x2b
0x3a02…3a39 at002c = ╱2d╱-╱ // 0x3a2e @0x2c
0x3a02…3a39 at002d = ╱2d╱-╱ // 0x3a2f @0x2d
0x3a02…3a39 at002e = ╱2d╱-╱ // 0x3a30 @0x2e
0x3a02…3a39 at002f = ╱2d╱-╱ // 0x3a31 @0x2f
0x3a02…3a39 at0030 = ╱2d╱-╱ // 0x3a32 @0x30
0x3a02…3a39 at0031 = ╱2d╱-╱ // 0x3a33 @0x31
0x3a02…3a39 at0032 = ╱2d╱-╱ // 0x3a34 @0x32
0x3a02…3a39 at0033 = ╱2d╱-╱ // 0x3a35 @0x33
0x3a02…3a39 at0034 = ╱2d╱-╱ // 0x3a36 @0x34
0x3a02…3a39 at0035 = ╱22╱"╱ // 0x3a37 @0x35
0x3a02…3a39 at0036 = EOL // 0x3a38 @0x36
0x3a02…3a39 }
0x3a39…3a4b d039 02000 ENDPROC DIV_POSHOVED
0x3a39…3a4b LineComal80 {
0x3a39…3a4b ptr = 0xd039 // 0x3a39 @0x0
0x3a39…3a4b lno = 0x07d0 // 0x3a3b @0x2
0x3a39…3a4b at0004 = ╱9f╱ ENDPROC ╱ // 0x3a3d @0x4
0x3a39…3a4b at0005 = ╱44╱D╱ // 0x3a3e @0x5
0x3a39…3a4b at0006 = ╱49╱I╱ // 0x3a3f @0x6
0x3a39…3a4b at0007 = ╱56╱V╱ // 0x3a40 @0x7
0x3a39…3a4b at0008 = ╱5f╱_╱ // 0x3a41 @0x8
0x3a39…3a4b at0009 = ╱50╱P╱ // 0x3a42 @0x9
0x3a39…3a4b at000a = ╱4f╱O╱ // 0x3a43 @0xa
0x3a39…3a4b at000b = ╱53╱S╱ // 0x3a44 @0xb
0x3a39…3a4b at000c = ╱48╱H╱ // 0x3a45 @0xc
0x3a39…3a4b at000d = ╱4f╱O╱ // 0x3a46 @0xd
0x3a39…3a4b at000e = ╱56╱V╱ // 0x3a47 @0xe
0x3a39…3a4b at000f = ╱45╱E╱ // 0x3a48 @0xf
0x3a39…3a4b at0010 = ╱44╱D╱ // 0x3a49 @0x10
0x3a39…3a4b at0011 = EOL // 0x3a4a @0x11
0x3a39…3a4b }
0x3a4b…3a50 d03e 02010
0x3a4b…3a50 LineComal80 {
0x3a4b…3a50 ptr = 0xd03e // 0x3a4b @0x0
0x3a4b…3a50 lno = 0x07da // 0x3a4d @0x2
0x3a4b…3a50 at0004 = EOL // 0x3a4f @0x4
0x3a4b…3a50 }
0x3a50…3a68 d056 02020 PROC OVERSKRIFT ( ST $ , L )
0x3a50…3a68 LineComal80 {
0x3a50…3a68 ptr = 0xd056 // 0x3a50 @0x0
0x3a50…3a68 lno = 0x07e4 // 0x3a52 @0x2
0x3a50…3a68 at0004 = ╱9e1f╱ PROC ╱ // 0x3a54 @0x4
0x3a50…3a68 at0006 = ╱4f╱O╱ // 0x3a56 @0x6
0x3a50…3a68 at0007 = ╱56╱V╱ // 0x3a57 @0x7
0x3a50…3a68 at0008 = ╱45╱E╱ // 0x3a58 @0x8
0x3a50…3a68 at0009 = ╱52╱R╱ // 0x3a59 @0x9
0x3a50…3a68 at000a = ╱53╱S╱ // 0x3a5a @0xa
0x3a50…3a68 at000b = ╱4b╱K╱ // 0x3a5b @0xb
0x3a50…3a68 at000c = ╱52╱R╱ // 0x3a5c @0xc
0x3a50…3a68 at000d = ╱49╱I╱ // 0x3a5d @0xd
0x3a50…3a68 at000e = ╱46╱F╱ // 0x3a5e @0xe
0x3a50…3a68 at000f = ╱54╱T╱ // 0x3a5f @0xf
0x3a50…3a68 at0010 = ╱ed╱ ( ╱ // 0x3a60 @0x10
0x3a50…3a68 at0011 = ╱53╱S╱ // 0x3a61 @0x11
0x3a50…3a68 at0012 = ╱54╱T╱ // 0x3a62 @0x12
0x3a50…3a68 at0013 = ╱ef╱ $ ╱ // 0x3a63 @0x13
0x3a50…3a68 at0014 = ╱ec╱ , ╱ // 0x3a64 @0x14
0x3a50…3a68 at0015 = ╱4c╱L╱ // 0x3a65 @0x15
0x3a50…3a68 at0016 = ╱ee╱ ) ╱ // 0x3a66 @0x16
0x3a50…3a68 at0017 = EOL // 0x3a67 @0x17
0x3a50…3a68 }
0x3a68…3a8e d07c 02030 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
0x3a68…3a8e LineComal80 {
0x3a68…3a8e ptr = 0xd07c // 0x3a68 @0x0
0x3a68…3a8e lno = 0x07ee // 0x3a6a @0x2
0x3a68…3a8e at0004 = ╱92╱ PRINT ╱ // 0x3a6c @0x4
0x3a68…3a8e at0005 = ╱22╱"╱ // 0x3a6d @0x5
0x3a68…3a8e at0006 = ╱3c╱<╱ // 0x3a6e @0x6
0x3a68…3a8e at0007 = ╱58╱X╱ // 0x3a6f @0x7
0x3a68…3a8e at0008 = ╱43╱C╱ // 0x3a70 @0x8
0x3a68…3a8e at0009 = ╱30╱0╱ // 0x3a71 @0x9
0x3a68…3a8e at000a = ╱31╱1╱ // 0x3a72 @0xa
0x3a68…3a8e at000b = ╱30╱0╱ // 0x3a73 @0xb
0x3a68…3a8e at000c = ╱31╱1╱ // 0x3a74 @0xc
0x3a68…3a8e at000d = ╱3e╱>╱ // 0x3a75 @0xd
0x3a68…3a8e at000e = ╱46╱F╱ // 0x3a76 @0xe
0x3a68…3a8e at000f = ╱69╱i╱ // 0x3a77 @0xf
0x3a68…3a8e at0010 = ╱72╱r╱ // 0x3a78 @0x10
0x3a68…3a8e at0011 = ╱6d╱m╱ // 0x3a79 @0x11
0x3a68…3a8e at0012 = ╱61╱a╱ // 0x3a7a @0x12
0x3a68…3a8e at0013 = ╱6e╱n╱ // 0x3a7b @0x13
0x3a68…3a8e at0014 = ╱61╱a╱ // 0x3a7c @0x14
0x3a68…3a8e at0015 = ╱76╱v╱ // 0x3a7d @0x15
0x3a68…3a8e at0016 = ╱6e╱n╱ // 0x3a7e @0x16
0x3a68…3a8e at0017 = ╱3a╱:╱ // 0x3a7f @0x17
0x3a68…3a8e at0018 = ╱20╱…╱ // 0x3a80 @0x18
0x3a68…3a8e at0019 = ╱22╱"╱ // 0x3a81 @0x19
0x3a68…3a8e at001a = ╱ea╱ ; ╱ // 0x3a82 @0x1a
0x3a68…3a8e at001b = ╱46╱F╱ // 0x3a83 @0x1b
0x3a68…3a8e at001c = ╱49╱I╱ // 0x3a84 @0x1c
0x3a68…3a8e at001d = ╱52╱R╱ // 0x3a85 @0x1d
0x3a68…3a8e at001e = ╱4d╱M╱ // 0x3a86 @0x1e
0x3a68…3a8e at001f = ╱41╱A╱ // 0x3a87 @0x1f
0x3a68…3a8e at0020 = ╱4e╱N╱ // 0x3a88 @0x20
0x3a68…3a8e at0021 = ╱41╱A╱ // 0x3a89 @0x21
0x3a68…3a8e at0022 = ╱56╱V╱ // 0x3a8a @0x22
0x3a68…3a8e at0023 = ╱4e╱N╱ // 0x3a8b @0x23
0x3a68…3a8e at0024 = ╱ef╱ $ ╱ // 0x3a8c @0x24
0x3a68…3a8e at0025 = EOL // 0x3a8d @0x25
0x3a68…3a8e }
0x3a8e…3ad6 d0c4 02040 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
0x3a8e…3ad6 LineComal80 {
0x3a8e…3ad6 ptr = 0xd0c4 // 0x3a8e @0x0
0x3a8e…3ad6 lno = 0x07f8 // 0x3a90 @0x2
0x3a8e…3ad6 at0004 = ╱92╱ PRINT ╱ // 0x3a92 @0x4
0x3a8e…3ad6 at0005 = ╱22╱"╱ // 0x3a93 @0x5
0x3a8e…3ad6 at0006 = ╱3c╱<╱ // 0x3a94 @0x6
0x3a8e…3ad6 at0007 = ╱53╱S╱ // 0x3a95 @0x7
0x3a8e…3ad6 at0008 = ╱43╱C╱ // 0x3a96 @0x8
0x3a8e…3ad6 at0009 = ╱36╱6╱ // 0x3a97 @0x9
0x3a8e…3ad6 at000a = ╱35╱5╱ // 0x3a98 @0xa
0x3a8e…3ad6 at000b = ╱30╱0╱ // 0x3a99 @0xb
0x3a8e…3ad6 at000c = ╱31╱1╱ // 0x3a9a @0xc
0x3a8e…3ad6 at000d = ╱3e╱>╱ // 0x3a9b @0xd
0x3a8e…3ad6 at000e = ╱44╱D╱ // 0x3a9c @0xe
0x3a8e…3ad6 at000f = ╱61╱a╱ // 0x3a9d @0xf
0x3a8e…3ad6 at0010 = ╱74╱t╱ // 0x3a9e @0x10
0x3a8e…3ad6 at0011 = ╱6f╱o╱ // 0x3a9f @0x11
0x3a8e…3ad6 at0012 = ╱3a╱:╱ // 0x3aa0 @0x12
0x3a8e…3ad6 at0013 = ╱20╱…╱ // 0x3aa1 @0x13
0x3a8e…3ad6 at0014 = ╱22╱"╱ // 0x3aa2 @0x14
0x3a8e…3ad6 at0015 = ╱ea╱ ; ╱ // 0x3aa3 @0x15
0x3a8e…3ad6 at0016 = ╱53╱S╱ // 0x3aa4 @0x16
0x3a8e…3ad6 at0017 = ╱59╱Y╱ // 0x3aa5 @0x17
0x3a8e…3ad6 at0018 = ╱53╱S╱ // 0x3aa6 @0x18
0x3a8e…3ad6 at0019 = ╱54╱T╱ // 0x3aa7 @0x19
0x3a8e…3ad6 at001a = ╱5f╱_╱ // 0x3aa8 @0x1a
0x3a8e…3ad6 at001b = ╱44╱D╱ // 0x3aa9 @0x1b
0x3a8e…3ad6 at001c = ╱41╱A╱ // 0x3aaa @0x1c
0x3a8e…3ad6 at001d = ╱54╱T╱ // 0x3aab @0x1d
0x3a8e…3ad6 at001e = ╱ef╱ $ ╱ // 0x3aac @0x1e
0x3a8e…3ad6 at001f = ╱ed╱ ( ╱ // 0x3aad @0x1f
0x3a8e…3ad6 at0020 = ╱31╱1╱ // 0x3aae @0x20
0x3a8e…3ad6 at0021 = ╱f20100╱ // 0x3aaf @0x21
0x3a8e…3ad6 at0024 = ╱f1╱ : ╱ // 0x3ab2 @0x24
0x3a8e…3ad6 at0025 = ╱32╱2╱ // 0x3ab3 @0x25
0x3a8e…3ad6 at0026 = ╱f20200╱ // 0x3ab4 @0x26
0x3a8e…3ad6 at0029 = ╱ee╱ ) ╱ // 0x3ab7 @0x29
0x3a8e…3ad6 at002a = ╱ea╱ ; ╱ // 0x3ab8 @0x2a
0x3a8e…3ad6 at002b = ╱22╱"╱ // 0x3ab9 @0x2b
0x3a8e…3ad6 at002c = ╱2e╱.╱ // 0x3aba @0x2c
0x3a8e…3ad6 at002d = ╱22╱"╱ // 0x3abb @0x2d
0x3a8e…3ad6 at002e = ╱ea╱ ; ╱ // 0x3abc @0x2e
0x3a8e…3ad6 at002f = ╱53╱S╱ // 0x3abd @0x2f
0x3a8e…3ad6 at0030 = ╱59╱Y╱ // 0x3abe @0x30
0x3a8e…3ad6 at0031 = ╱53╱S╱ // 0x3abf @0x31
0x3a8e…3ad6 at0032 = ╱54╱T╱ // 0x3ac0 @0x32
0x3a8e…3ad6 at0033 = ╱5f╱_╱ // 0x3ac1 @0x33
0x3a8e…3ad6 at0034 = ╱44╱D╱ // 0x3ac2 @0x34
0x3a8e…3ad6 at0035 = ╱41╱A╱ // 0x3ac3 @0x35
0x3a8e…3ad6 at0036 = ╱54╱T╱ // 0x3ac4 @0x36
0x3a8e…3ad6 at0037 = ╱ef╱ $ ╱ // 0x3ac5 @0x37
0x3a8e…3ad6 at0038 = ╱ed╱ ( ╱ // 0x3ac6 @0x38
0x3a8e…3ad6 at0039 = ╱33╱3╱ // 0x3ac7 @0x39
0x3a8e…3ad6 at003a = ╱f20300╱ // 0x3ac8 @0x3a
0x3a8e…3ad6 at003d = ╱f1╱ : ╱ // 0x3acb @0x3d
0x3a8e…3ad6 at003e = ╱32╱2╱ // 0x3acc @0x3e
0x3a8e…3ad6 at003f = ╱f20200╱ // 0x3acd @0x3f
0x3a8e…3ad6 at0042 = ╱ee╱ ) ╱ // 0x3ad0 @0x42
0x3a8e…3ad6 at0043 = ╱ea╱ ; ╱ // 0x3ad1 @0x43
0x3a8e…3ad6 at0044 = ╱22╱"╱ // 0x3ad2 @0x44
0x3a8e…3ad6 at0045 = ╱2e╱.╱ // 0x3ad3 @0x45
0x3a8e…3ad6 at0046 = ╱22╱"╱ // 0x3ad4 @0x46
0x3a8e…3ad6 at0047 = EOL // 0x3ad5 @0x47
0x3a8e…3ad6 }
0x3ad6…3af0 ac3c 02050 PRINT SYST_DAT $ ( 5 : 2 )
0x3ad6…3af0 LineComal80 {
0x3ad6…3af0 ptr = 0xac3c // 0x3ad6 @0x0
0x3ad6…3af0 lno = 0x0802 // 0x3ad8 @0x2
0x3ad6…3af0 at0004 = ╱92╱ PRINT ╱ // 0x3ada @0x4
0x3ad6…3af0 at0005 = ╱53╱S╱ // 0x3adb @0x5
0x3ad6…3af0 at0006 = ╱59╱Y╱ // 0x3adc @0x6
0x3ad6…3af0 at0007 = ╱53╱S╱ // 0x3add @0x7
0x3ad6…3af0 at0008 = ╱54╱T╱ // 0x3ade @0x8
0x3ad6…3af0 at0009 = ╱5f╱_╱ // 0x3adf @0x9
0x3ad6…3af0 at000a = ╱44╱D╱ // 0x3ae0 @0xa
0x3ad6…3af0 at000b = ╱41╱A╱ // 0x3ae1 @0xb
0x3ad6…3af0 at000c = ╱54╱T╱ // 0x3ae2 @0xc
0x3ad6…3af0 at000d = ╱ef╱ $ ╱ // 0x3ae3 @0xd
0x3ad6…3af0 at000e = ╱ed╱ ( ╱ // 0x3ae4 @0xe
0x3ad6…3af0 at000f = ╱35╱5╱ // 0x3ae5 @0xf
0x3ad6…3af0 at0010 = ╱f20500╱ // 0x3ae6 @0x10
0x3ad6…3af0 at0013 = ╱f1╱ : ╱ // 0x3ae9 @0x13
0x3ad6…3af0 at0014 = ╱32╱2╱ // 0x3aea @0x14
0x3ad6…3af0 at0015 = ╱f20200╱ // 0x3aeb @0x15
0x3ad6…3af0 at0018 = ╱ee╱ ) ╱ // 0x3aee @0x18
0x3ad6…3af0 at0019 = EOL // 0x3aef @0x19
0x3ad6…3af0 }
0x3af0…3b00 b90f 03530 LET P_MKOD $ := ""
0x3af0…3b00 LineComal80 {
0x3af0…3b00 ptr = 0xb90f // 0x3af0 @0x0
0x3af0…3b00 lno = 0x0dca // 0x3af2 @0x2
0x3af0…3b00 at0004 = ╱86╱ LET ╱ // 0x3af4 @0x4
0x3af0…3b00 at0005 = ╱50╱P╱ // 0x3af5 @0x5
0x3af0…3b00 at0006 = ╱5f╱_╱ // 0x3af6 @0x6
0x3af0…3b00 at0007 = ╱4d╱M╱ // 0x3af7 @0x7
0x3af0…3b00 at0008 = ╱4b╱K╱ // 0x3af8 @0x8
0x3af0…3b00 at0009 = ╱4f╱O╱ // 0x3af9 @0x9
0x3af0…3b00 at000a = ╱44╱D╱ // 0x3afa @0xa
0x3af0…3b00 at000b = ╱ef╱ $ ╱ // 0x3afb @0xb
0x3af0…3b00 at000c = ╱f0╱ := ╱ // 0x3afc @0xc
0x3af0…3b00 at000d = ╱22╱"╱ // 0x3afd @0xd
0x3af0…3b00 at000e = ╱22╱"╱ // 0x3afe @0xe
0x3af0…3b00 at000f = EOL // 0x3aff @0xf
0x3af0…3b00 }
0x3b00…3b40 d12e 04740 PRINT "<S>BILAG……TEKST………………………………………………………KONTONR……………DEBET………"
0x3b00…3b40 LineComal80 {
0x3b00…3b40 ptr = 0xd12e // 0x3b00 @0x0
0x3b00…3b40 lno = 0x1284 // 0x3b02 @0x2
0x3b00…3b40 at0004 = ╱92╱ PRINT ╱ // 0x3b04 @0x4
0x3b00…3b40 at0005 = ╱22╱"╱ // 0x3b05 @0x5
0x3b00…3b40 at0006 = ╱3c╱<╱ // 0x3b06 @0x6
0x3b00…3b40 at0007 = ╱53╱S╱ // 0x3b07 @0x7
0x3b00…3b40 at0008 = ╱3e╱>╱ // 0x3b08 @0x8
0x3b00…3b40 at0009 = ╱42╱B╱ // 0x3b09 @0x9
0x3b00…3b40 at000a = ╱49╱I╱ // 0x3b0a @0xa
0x3b00…3b40 at000b = ╱4c╱L╱ // 0x3b0b @0xb
0x3b00…3b40 at000c = ╱41╱A╱ // 0x3b0c @0xc
0x3b00…3b40 at000d = ╱47╱G╱ // 0x3b0d @0xd
0x3b00…3b40 at000e = ╱20╱…╱ // 0x3b0e @0xe
0x3b00…3b40 at000f = ╱20╱…╱ // 0x3b0f @0xf
0x3b00…3b40 at0010 = ╱54╱T╱ // 0x3b10 @0x10
0x3b00…3b40 at0011 = ╱45╱E╱ // 0x3b11 @0x11
0x3b00…3b40 at0012 = ╱4b╱K╱ // 0x3b12 @0x12
0x3b00…3b40 at0013 = ╱53╱S╱ // 0x3b13 @0x13
0x3b00…3b40 at0014 = ╱54╱T╱ // 0x3b14 @0x14
0x3b00…3b40 at0015 = ╱20╱…╱ // 0x3b15 @0x15
0x3b00…3b40 at0016 = ╱20╱…╱ // 0x3b16 @0x16
0x3b00…3b40 at0017 = ╱20╱…╱ // 0x3b17 @0x17
0x3b00…3b40 at0018 = ╱20╱…╱ // 0x3b18 @0x18
0x3b00…3b40 at0019 = ╱20╱…╱ // 0x3b19 @0x19
0x3b00…3b40 at001a = ╱20╱…╱ // 0x3b1a @0x1a
0x3b00…3b40 at001b = ╱20╱…╱ // 0x3b1b @0x1b
0x3b00…3b40 at001c = ╱20╱…╱ // 0x3b1c @0x1c
0x3b00…3b40 at001d = ╱20╱…╱ // 0x3b1d @0x1d
0x3b00…3b40 at001e = ╱20╱…╱ // 0x3b1e @0x1e
0x3b00…3b40 at001f = ╱20╱…╱ // 0x3b1f @0x1f
0x3b00…3b40 at0020 = ╱20╱…╱ // 0x3b20 @0x20
0x3b00…3b40 at0021 = ╱20╱…╱ // 0x3b21 @0x21
0x3b00…3b40 at0022 = ╱20╱…╱ // 0x3b22 @0x22
0x3b00…3b40 at0023 = ╱20╱…╱ // 0x3b23 @0x23
0x3b00…3b40 at0024 = ╱20╱…╱ // 0x3b24 @0x24
0x3b00…3b40 at0025 = ╱20╱…╱ // 0x3b25 @0x25
0x3b00…3b40 at0026 = ╱20╱…╱ // 0x3b26 @0x26
0x3b00…3b40 at0027 = ╱20╱…╱ // 0x3b27 @0x27
0x3b00…3b40 at0028 = ╱20╱…╱ // 0x3b28 @0x28
0x3b00…3b40 at0029 = ╱20╱…╱ // 0x3b29 @0x29
0x3b00…3b40 at002a = ╱4b╱K╱ // 0x3b2a @0x2a
0x3b00…3b40 at002b = ╱4f╱O╱ // 0x3b2b @0x2b
0x3b00…3b40 at002c = ╱4e╱N╱ // 0x3b2c @0x2c
0x3b00…3b40 at002d = ╱54╱T╱ // 0x3b2d @0x2d
0x3b00…3b40 at002e = ╱4f╱O╱ // 0x3b2e @0x2e
0x3b00…3b40 at002f = ╱4e╱N╱ // 0x3b2f @0x2f
0x3b00…3b40 at0030 = ╱52╱R╱ // 0x3b30 @0x30
0x3b00…3b40 at0031 = ╱20╱…╱ // 0x3b31 @0x31
0x3b00…3b40 at0032 = ╱20╱…╱ // 0x3b32 @0x32
0x3b00…3b40 at0033 = ╱20╱…╱ // 0x3b33 @0x33
0x3b00…3b40 at0034 = ╱20╱…╱ // 0x3b34 @0x34
0x3b00…3b40 at0035 = ╱20╱…╱ // 0x3b35 @0x35
0x3b00…3b40 at0036 = ╱44╱D╱ // 0x3b36 @0x36
0x3b00…3b40 at0037 = ╱45╱E╱ // 0x3b37 @0x37
0x3b00…3b40 at0038 = ╱42╱B╱ // 0x3b38 @0x38
0x3b00…3b40 at0039 = ╱45╱E╱ // 0x3b39 @0x39
0x3b00…3b40 at003a = ╱54╱T╱ // 0x3b3a @0x3a
0x3b00…3b40 at003b = ╱20╱…╱ // 0x3b3b @0x3b
0x3b00…3b40 at003c = ╱20╱…╱ // 0x3b3c @0x3c
0x3b00…3b40 at003d = ╱20╱…╱ // 0x3b3d @0x3d
0x3b00…3b40 at003e = ╱22╱"╱ // 0x3b3e @0x3e
0x3b00…3b40 at003f = EOL // 0x3b3f @0x3f
0x3b00…3b40 }
0x3b40…3b54 d142 04750 PRINT "…………KREDIT……"
0x3b40…3b54 LineComal80 {
0x3b40…3b54 ptr = 0xd142 // 0x3b40 @0x0
0x3b40…3b54 lno = 0x128e // 0x3b42 @0x2
0x3b40…3b54 at0004 = ╱92╱ PRINT ╱ // 0x3b44 @0x4
0x3b40…3b54 at0005 = ╱22╱"╱ // 0x3b45 @0x5
0x3b40…3b54 at0006 = ╱20╱…╱ // 0x3b46 @0x6
0x3b40…3b54 at0007 = ╱20╱…╱ // 0x3b47 @0x7
0x3b40…3b54 at0008 = ╱20╱…╱ // 0x3b48 @0x8
0x3b40…3b54 at0009 = ╱20╱…╱ // 0x3b49 @0x9
0x3b40…3b54 at000a = ╱4b╱K╱ // 0x3b4a @0xa
0x3b40…3b54 at000b = ╱52╱R╱ // 0x3b4b @0xb
0x3b40…3b54 at000c = ╱45╱E╱ // 0x3b4c @0xc
0x3b40…3b54 at000d = ╱44╱D╱ // 0x3b4d @0xd
0x3b40…3b54 at000e = ╱49╱I╱ // 0x3b4e @0xe
0x3b40…3b54 at000f = ╱54╱T╱ // 0x3b4f @0xf
0x3b40…3b54 at0010 = ╱20╱…╱ // 0x3b50 @0x10
0x3b40…3b54 at0011 = ╱20╱…╱ // 0x3b51 @0x11
0x3b40…3b54 at0012 = ╱22╱"╱ // 0x3b52 @0x12
0x3b40…3b54 at0013 = EOL // 0x3b53 @0x13
0x3b40…3b54 }
0x3b54…3b94 d182 04760 PRINT "<S>-----……------------------------……--------……----------"
0x3b54…3b94 LineComal80 {
0x3b54…3b94 ptr = 0xd182 // 0x3b54 @0x0
0x3b54…3b94 lno = 0x1298 // 0x3b56 @0x2
0x3b54…3b94 at0004 = ╱92╱ PRINT ╱ // 0x3b58 @0x4
0x3b54…3b94 at0005 = ╱22╱"╱ // 0x3b59 @0x5
0x3b54…3b94 at0006 = ╱3c╱<╱ // 0x3b5a @0x6
0x3b54…3b94 at0007 = ╱53╱S╱ // 0x3b5b @0x7
0x3b54…3b94 at0008 = ╱3e╱>╱ // 0x3b5c @0x8
0x3b54…3b94 at0009 = ╱2d╱-╱ // 0x3b5d @0x9
0x3b54…3b94 at000a = ╱2d╱-╱ // 0x3b5e @0xa
0x3b54…3b94 at000b = ╱2d╱-╱ // 0x3b5f @0xb
0x3b54…3b94 at000c = ╱2d╱-╱ // 0x3b60 @0xc
0x3b54…3b94 at000d = ╱2d╱-╱ // 0x3b61 @0xd
0x3b54…3b94 at000e = ╱20╱…╱ // 0x3b62 @0xe
0x3b54…3b94 at000f = ╱20╱…╱ // 0x3b63 @0xf
0x3b54…3b94 at0010 = ╱2d╱-╱ // 0x3b64 @0x10
0x3b54…3b94 at0011 = ╱2d╱-╱ // 0x3b65 @0x11
0x3b54…3b94 at0012 = ╱2d╱-╱ // 0x3b66 @0x12
0x3b54…3b94 at0013 = ╱2d╱-╱ // 0x3b67 @0x13
0x3b54…3b94 at0014 = ╱2d╱-╱ // 0x3b68 @0x14
0x3b54…3b94 at0015 = ╱2d╱-╱ // 0x3b69 @0x15
0x3b54…3b94 at0016 = ╱2d╱-╱ // 0x3b6a @0x16
0x3b54…3b94 at0017 = ╱2d╱-╱ // 0x3b6b @0x17
0x3b54…3b94 at0018 = ╱2d╱-╱ // 0x3b6c @0x18
0x3b54…3b94 at0019 = ╱2d╱-╱ // 0x3b6d @0x19
0x3b54…3b94 at001a = ╱2d╱-╱ // 0x3b6e @0x1a
0x3b54…3b94 at001b = ╱2d╱-╱ // 0x3b6f @0x1b
0x3b54…3b94 at001c = ╱2d╱-╱ // 0x3b70 @0x1c
0x3b54…3b94 at001d = ╱2d╱-╱ // 0x3b71 @0x1d
0x3b54…3b94 at001e = ╱2d╱-╱ // 0x3b72 @0x1e
0x3b54…3b94 at001f = ╱2d╱-╱ // 0x3b73 @0x1f
0x3b54…3b94 at0020 = ╱2d╱-╱ // 0x3b74 @0x20
0x3b54…3b94 at0021 = ╱2d╱-╱ // 0x3b75 @0x21
0x3b54…3b94 at0022 = ╱2d╱-╱ // 0x3b76 @0x22
0x3b54…3b94 at0023 = ╱2d╱-╱ // 0x3b77 @0x23
0x3b54…3b94 at0024 = ╱2d╱-╱ // 0x3b78 @0x24
0x3b54…3b94 at0025 = ╱2d╱-╱ // 0x3b79 @0x25
0x3b54…3b94 at0026 = ╱2d╱-╱ // 0x3b7a @0x26
0x3b54…3b94 at0027 = ╱2d╱-╱ // 0x3b7b @0x27
0x3b54…3b94 at0028 = ╱20╱…╱ // 0x3b7c @0x28
0x3b54…3b94 at0029 = ╱20╱…╱ // 0x3b7d @0x29
0x3b54…3b94 at002a = ╱2d╱-╱ // 0x3b7e @0x2a
0x3b54…3b94 at002b = ╱2d╱-╱ // 0x3b7f @0x2b
0x3b54…3b94 at002c = ╱2d╱-╱ // 0x3b80 @0x2c
0x3b54…3b94 at002d = ╱2d╱-╱ // 0x3b81 @0x2d
0x3b54…3b94 at002e = ╱2d╱-╱ // 0x3b82 @0x2e
0x3b54…3b94 at002f = ╱2d╱-╱ // 0x3b83 @0x2f
0x3b54…3b94 at0030 = ╱2d╱-╱ // 0x3b84 @0x30
0x3b54…3b94 at0031 = ╱2d╱-╱ // 0x3b85 @0x31
0x3b54…3b94 at0032 = ╱20╱…╱ // 0x3b86 @0x32
0x3b54…3b94 at0033 = ╱20╱…╱ // 0x3b87 @0x33
0x3b54…3b94 at0034 = ╱2d╱-╱ // 0x3b88 @0x34
0x3b54…3b94 at0035 = ╱2d╱-╱ // 0x3b89 @0x35
0x3b54…3b94 at0036 = ╱2d╱-╱ // 0x3b8a @0x36
0x3b54…3b94 at0037 = ╱2d╱-╱ // 0x3b8b @0x37
0x3b54…3b94 at0038 = ╱2d╱-╱ // 0x3b8c @0x38
0x3b54…3b94 at0039 = ╱2d╱-╱ // 0x3b8d @0x39
0x3b54…3b94 at003a = ╱2d╱-╱ // 0x3b8e @0x3a
0x3b54…3b94 at003b = ╱2d╱-╱ // 0x3b8f @0x3b
0x3b54…3b94 at003c = ╱2d╱-╱ // 0x3b90 @0x3c
0x3b54…3b94 at003d = ╱2d╱-╱ // 0x3b91 @0x3d
0x3b54…3b94 at003e = ╱22╱"╱ // 0x3b92 @0x3e
0x3b54…3b94 at003f = EOL // 0x3b93 @0x3f
0x3b54…3b94 }
0x3b94…3ba8 d196 04770 PRINT "……----------"
0x3b94…3ba8 LineComal80 {
0x3b94…3ba8 ptr = 0xd196 // 0x3b94 @0x0
0x3b94…3ba8 lno = 0x12a2 // 0x3b96 @0x2
0x3b94…3ba8 at0004 = ╱92╱ PRINT ╱ // 0x3b98 @0x4
0x3b94…3ba8 at0005 = ╱22╱"╱ // 0x3b99 @0x5
0x3b94…3ba8 at0006 = ╱20╱…╱ // 0x3b9a @0x6
0x3b94…3ba8 at0007 = ╱20╱…╱ // 0x3b9b @0x7
0x3b94…3ba8 at0008 = ╱2d╱-╱ // 0x3b9c @0x8
0x3b94…3ba8 at0009 = ╱2d╱-╱ // 0x3b9d @0x9
0x3b94…3ba8 at000a = ╱2d╱-╱ // 0x3b9e @0xa
0x3b94…3ba8 at000b = ╱2d╱-╱ // 0x3b9f @0xb
0x3b94…3ba8 at000c = ╱2d╱-╱ // 0x3ba0 @0xc
0x3b94…3ba8 at000d = ╱2d╱-╱ // 0x3ba1 @0xd
0x3b94…3ba8 at000e = ╱2d╱-╱ // 0x3ba2 @0xe
0x3b94…3ba8 at000f = ╱2d╱-╱ // 0x3ba3 @0xf
0x3b94…3ba8 at0010 = ╱2d╱-╱ // 0x3ba4 @0x10
0x3b94…3ba8 at0011 = ╱2d╱-╱ // 0x3ba5 @0x11
0x3b94…3ba8 at0012 = ╱22╱"╱ // 0x3ba6 @0x12
0x3b94…3ba8 at0013 = EOL // 0x3ba7 @0x13
0x3b94…3ba8 }
0x3ba8…3bc6 d1b4 04780 IF _DEB > 0 OR P_KRED > 0 THEN
0x3ba8…3bc6 LineComal80 {
0x3ba8…3bc6 ptr = 0xd1b4 // 0x3ba8 @0x0
0x3ba8…3bc6 lno = 0x12ac // 0x3baa @0x2
0x3ba8…3bc6 at0004 = ╱9b5950╱ IF ╱ // 0x3bac @0x4
0x3ba8…3bc6 at0007 = ╱5f╱_╱ // 0x3baf @0x7
0x3ba8…3bc6 at0008 = ╱44╱D╱ // 0x3bb0 @0x8
0x3ba8…3bc6 at0009 = ╱45╱E╱ // 0x3bb1 @0x9
0x3ba8…3bc6 at000a = ╱42╱B╱ // 0x3bb2 @0xa
0x3ba8…3bc6 at000b = ╱e1╱ > ╱ // 0x3bb3 @0xb
0x3ba8…3bc6 at000c = ╱30╱0╱ // 0x3bb4 @0xc
0x3ba8…3bc6 at000d = ╱f20000╱ // 0x3bb5 @0xd
0x3ba8…3bc6 at0010 = ╱d8╱ OR ╱ // 0x3bb8 @0x10
0x3ba8…3bc6 at0011 = ╱50╱P╱ // 0x3bb9 @0x11
0x3ba8…3bc6 at0012 = ╱5f╱_╱ // 0x3bba @0x12
0x3ba8…3bc6 at0013 = ╱4b╱K╱ // 0x3bbb @0x13
0x3ba8…3bc6 at0014 = ╱52╱R╱ // 0x3bbc @0x14
0x3ba8…3bc6 at0015 = ╱45╱E╱ // 0x3bbd @0x15
0x3ba8…3bc6 at0016 = ╱44╱D╱ // 0x3bbe @0x16
0x3ba8…3bc6 at0017 = ╱e1╱ > ╱ // 0x3bbf @0x17
0x3ba8…3bc6 at0018 = ╱30╱0╱ // 0x3bc0 @0x18
0x3ba8…3bc6 at0019 = ╱f20000╱ // 0x3bc1 @0x19
0x3ba8…3bc6 at001c = ╱b5╱ THEN ╱ // 0x3bc4 @0x1c
0x3ba8…3bc6 at001d = EOL // 0x3bc5 @0x1d
0x3ba8…3bc6 }
0x3bc6…3c0f d1fd 04790 PRINT TAB ( 8 ) ; "TRANSPORT" ; TAB ( 41 ) ; CHR$ ( P_DEB , 9 , 2 ) ; CHR$ ( P_KRED , 9 , 2 )
0x3bc6…3c0f LineComal80 {
0x3bc6…3c0f ptr = 0xd1fd // 0x3bc6 @0x0
0x3bc6…3c0f lno = 0x12b6 // 0x3bc8 @0x2
0x3bc6…3c0f at0004 = ╱92╱ PRINT ╱ // 0x3bca @0x4
0x3bc6…3c0f at0005 = ╱d2╱ TAB ╱ // 0x3bcb @0x5
0x3bc6…3c0f at0006 = ╱ed╱ ( ╱ // 0x3bcc @0x6
0x3bc6…3c0f at0007 = ╱38╱8╱ // 0x3bcd @0x7
0x3bc6…3c0f at0008 = ╱f20800╱ // 0x3bce @0x8
0x3bc6…3c0f at000b = ╱ee╱ ) ╱ // 0x3bd1 @0xb
0x3bc6…3c0f at000c = ╱ea╱ ; ╱ // 0x3bd2 @0xc
0x3bc6…3c0f at000d = ╱22╱"╱ // 0x3bd3 @0xd
0x3bc6…3c0f at000e = ╱54╱T╱ // 0x3bd4 @0xe
0x3bc6…3c0f at000f = ╱52╱R╱ // 0x3bd5 @0xf
0x3bc6…3c0f at0010 = ╱41╱A╱ // 0x3bd6 @0x10
0x3bc6…3c0f at0011 = ╱4e╱N╱ // 0x3bd7 @0x11
0x3bc6…3c0f at0012 = ╱53╱S╱ // 0x3bd8 @0x12
0x3bc6…3c0f at0013 = ╱50╱P╱ // 0x3bd9 @0x13
0x3bc6…3c0f at0014 = ╱4f╱O╱ // 0x3bda @0x14
0x3bc6…3c0f at0015 = ╱52╱R╱ // 0x3bdb @0x15
0x3bc6…3c0f at0016 = ╱54╱T╱ // 0x3bdc @0x16
0x3bc6…3c0f at0017 = ╱22╱"╱ // 0x3bdd @0x17
0x3bc6…3c0f at0018 = ╱ea╱ ; ╱ // 0x3bde @0x18
0x3bc6…3c0f at0019 = ╱d2╱ TAB ╱ // 0x3bdf @0x19
0x3bc6…3c0f at001a = ╱ed╱ ( ╱ // 0x3be0 @0x1a
0x3bc6…3c0f at001b = ╱34╱4╱ // 0x3be1 @0x1b
0x3bc6…3c0f at001c = ╱31╱1╱ // 0x3be2 @0x1c
0x3bc6…3c0f at001d = ╱f22900╱ // 0x3be3 @0x1d
0x3bc6…3c0f at0020 = ╱ee╱ ) ╱ // 0x3be6 @0x20
0x3bc6…3c0f at0021 = ╱ea╱ ; ╱ // 0x3be7 @0x21
0x3bc6…3c0f at0022 = ╱d0╱ CHR$ ╱ // 0x3be8 @0x22
0x3bc6…3c0f at0023 = ╱ed╱ ( ╱ // 0x3be9 @0x23
0x3bc6…3c0f at0024 = ╱50╱P╱ // 0x3bea @0x24
0x3bc6…3c0f at0025 = ╱5f╱_╱ // 0x3beb @0x25
0x3bc6…3c0f at0026 = ╱44╱D╱ // 0x3bec @0x26
0x3bc6…3c0f at0027 = ╱45╱E╱ // 0x3bed @0x27
0x3bc6…3c0f at0028 = ╱42╱B╱ // 0x3bee @0x28
0x3bc6…3c0f at0029 = ╱ec╱ , ╱ // 0x3bef @0x29
0x3bc6…3c0f at002a = ╱39╱9╱ // 0x3bf0 @0x2a
0x3bc6…3c0f at002b = ╱f20900╱ // 0x3bf1 @0x2b
0x3bc6…3c0f at002e = ╱ec╱ , ╱ // 0x3bf4 @0x2e
0x3bc6…3c0f at002f = ╱32╱2╱ // 0x3bf5 @0x2f
0x3bc6…3c0f at0030 = ╱f20200╱ // 0x3bf6 @0x30
0x3bc6…3c0f at0033 = ╱ee╱ ) ╱ // 0x3bf9 @0x33
0x3bc6…3c0f at0034 = ╱ea╱ ; ╱ // 0x3bfa @0x34
0x3bc6…3c0f at0035 = ╱d0╱ CHR$ ╱ // 0x3bfb @0x35
0x3bc6…3c0f at0036 = ╱ed╱ ( ╱ // 0x3bfc @0x36
0x3bc6…3c0f at0037 = ╱50╱P╱ // 0x3bfd @0x37
0x3bc6…3c0f at0038 = ╱5f╱_╱ // 0x3bfe @0x38
0x3bc6…3c0f at0039 = ╱4b╱K╱ // 0x3bff @0x39
0x3bc6…3c0f at003a = ╱52╱R╱ // 0x3c00 @0x3a
0x3bc6…3c0f at003b = ╱45╱E╱ // 0x3c01 @0x3b
0x3bc6…3c0f at003c = ╱44╱D╱ // 0x3c02 @0x3c
0x3bc6…3c0f at003d = ╱ec╱ , ╱ // 0x3c03 @0x3d
0x3bc6…3c0f at003e = ╱39╱9╱ // 0x3c04 @0x3e
0x3bc6…3c0f at003f = ╱f20900╱ // 0x3c05 @0x3f
0x3bc6…3c0f at0042 = ╱ec╱ , ╱ // 0x3c08 @0x42
0x3bc6…3c0f at0043 = ╱32╱2╱ // 0x3c09 @0x43
0x3bc6…3c0f at0044 = ╱f20200╱ // 0x3c0a @0x44
0x3bc6…3c0f at0047 = ╱ee╱ ) ╱ // 0x3c0d @0x47
0x3bc6…3c0f at0048 = EOL // 0x3c0e @0x48
0x3bc6…3c0f }
0x3c0f…3c25 d213 04800 LET LIN_T := LIN_T + 1
0x3c0f…3c25 LineComal80 {
0x3c0f…3c25 ptr = 0xd213 // 0x3c0f @0x0
0x3c0f…3c25 lno = 0x12c0 // 0x3c11 @0x2
0x3c0f…3c25 at0004 = ╱86╱ LET ╱ // 0x3c13 @0x4
0x3c0f…3c25 at0005 = ╱4c╱L╱ // 0x3c14 @0x5
0x3c0f…3c25 at0006 = ╱49╱I╱ // 0x3c15 @0x6
0x3c0f…3c25 at0007 = ╱4e╱N╱ // 0x3c16 @0x7
0x3c0f…3c25 at0008 = ╱5f╱_╱ // 0x3c17 @0x8
0x3c0f…3c25 at0009 = ╱54╱T╱ // 0x3c18 @0x9
0x3c0f…3c25 at000a = ╱f0╱ := ╱ // 0x3c19 @0xa
0x3c0f…3c25 at000b = ╱4c╱L╱ // 0x3c1a @0xb
0x3c0f…3c25 at000c = ╱49╱I╱ // 0x3c1b @0xc
0x3c0f…3c25 at000d = ╱4e╱N╱ // 0x3c1c @0xd
0x3c0f…3c25 at000e = ╱5f╱_╱ // 0x3c1d @0xe
0x3c0f…3c25 at000f = ╱54╱T╱ // 0x3c1e @0xf
0x3c0f…3c25 at0010 = ╱e5╱ + ╱ // 0x3c1f @0x10
0x3c0f…3c25 at0011 = ╱31╱1╱ // 0x3c20 @0x11
0x3c0f…3c25 at0012 = ╱f20100╱ // 0x3c21 @0x12
0x3c0f…3c25 at0015 = EOL // 0x3c24 @0x15
0x3c0f…3c25 }
0x3c25…3c2b d219 04810 ENDIF
0x3c25…3c2b LineComal80 {
0x3c25…3c2b ptr = 0xd219 // 0x3c25 @0x0
0x3c25…3c2b lno = 0x12ca // 0x3c27 @0x2
0x3c25…3c2b at0004 = ╱9c╱ ENDIF ╱ // 0x3c29 @0x4
0x3c25…3c2b at0005 = EOL // 0x3c2a @0x5
0x3c25…3c2b }
0x3c2b…3c3a d228 04820 ENDPROC SIDESKIFT
0x3c2b…3c3a LineComal80 {
0x3c2b…3c3a ptr = 0xd228 // 0x3c2b @0x0
0x3c2b…3c3a lno = 0x12d4 // 0x3c2d @0x2
0x3c2b…3c3a at0004 = ╱9f╱ ENDPROC ╱ // 0x3c2f @0x4
0x3c2b…3c3a at0005 = ╱53╱S╱ // 0x3c30 @0x5
0x3c2b…3c3a at0006 = ╱49╱I╱ // 0x3c31 @0x6
0x3c2b…3c3a at0007 = ╱44╱D╱ // 0x3c32 @0x7
0x3c2b…3c3a at0008 = ╱45╱E╱ // 0x3c33 @0x8
0x3c2b…3c3a at0009 = ╱53╱S╱ // 0x3c34 @0x9
0x3c2b…3c3a at000a = ╱4b╱K╱ // 0x3c35 @0xa
0x3c2b…3c3a at000b = ╱49╱I╱ // 0x3c36 @0xb
0x3c2b…3c3a at000c = ╱46╱F╱ // 0x3c37 @0xc
0x3c2b…3c3a at000d = ╱54╱T╱ // 0x3c38 @0xd
0x3c2b…3c3a at000e = EOL // 0x3c39 @0xe
0x3c2b…3c3a }
0x3c3a…3c3f d22d 04830
0x3c3a…3c3f LineComal80 {
0x3c3a…3c3f ptr = 0xd22d // 0x3c3a @0x0
0x3c3a…3c3f lno = 0x12de // 0x3c3c @0x2
0x3c3a…3c3f at0004 = EOL // 0x3c3e @0x4
0x3c3a…3c3f }
0x3c3f…3c4f d23d 04840 PROC PRINT_LIN
0x3c3f…3c4f LineComal80 {
0x3c3f…3c4f ptr = 0xd23d // 0x3c3f @0x0
0x3c3f…3c4f lno = 0x12e8 // 0x3c41 @0x2
0x3c3f…3c4f at0004 = ╱9e5a╱ PROC ╱ // 0x3c43 @0x4
0x3c3f…3c4f at0006 = ╱50╱P╱ // 0x3c45 @0x6
0x3c3f…3c4f at0007 = ╱52╱R╱ // 0x3c46 @0x7
0x3c3f…3c4f at0008 = ╱49╱I╱ // 0x3c47 @0x8
0x3c3f…3c4f at0009 = ╱4e╱N╱ // 0x3c48 @0x9
0x3c3f…3c4f at000a = ╱54╱T╱ // 0x3c49 @0xa
0x3c3f…3c4f at000b = ╱5f╱_╱ // 0x3c4a @0xb
0x3c3f…3c4f at000c = ╱4c╱L╱ // 0x3c4b @0xc
0x3c3f…3c4f at000d = ╱49╱I╱ // 0x3c4c @0xd
0x3c3f…3c4f at000e = ╱4e╱N╱ // 0x3c4d @0xe
0x3c3f…3c4f at000f = EOL // 0x3c4e @0xf
0x3c3f…3c4f }
0x3c4f…3c66 d254 04850 IF P_BNR $ = "*****" THEN EXIT
0x3c4f…3c66 LineComal80 {
0x3c4f…3c66 ptr = 0xd254 // 0x3c4f @0x0
0x3c4f…3c66 lno = 0x12f2 // 0x3c51 @0x2
0x3c4f…3c66 at0004 = ╱8200╱ IF ╱ // 0x3c53 @0x4
0x3c4f…3c66 at0006 = ╱50╱P╱ // 0x3c55 @0x6
0x3c4f…3c66 at0007 = ╱5f╱_╱ // 0x3c56 @0x7
0x3c4f…3c66 at0008 = ╱42╱B╱ // 0x3c57 @0x8
0x3c4f…3c66 at0009 = ╱4e╱N╱ // 0x3c58 @0x9
0x3c4f…3c66 at000a = ╱52╱R╱ // 0x3c59 @0xa
0x3c4f…3c66 at000b = ╱ef╱ $ ╱ // 0x3c5a @0xb
0x3c4f…3c66 at000c = ╱df╱ = ╱ // 0x3c5b @0xc
0x3c4f…3c66 at000d = ╱22╱"╱ // 0x3c5c @0xd
0x3c4f…3c66 at000e = ╱2a╱*╱ // 0x3c5d @0xe
0x3c4f…3c66 at000f = ╱2a╱*╱ // 0x3c5e @0xf
0x3c4f…3c66 at0010 = ╱2a╱*╱ // 0x3c5f @0x10
0x3c4f…3c66 at0011 = ╱2a╱*╱ // 0x3c60 @0x11
0x3c4f…3c66 at0012 = ╱2a╱*╱ // 0x3c61 @0x12
0x3c4f…3c66 at0013 = ╱22╱"╱ // 0x3c62 @0x13
0x3c4f…3c66 at0014 = ╱b5╱ THEN ╱ // 0x3c63 @0x14
0x3c4f…3c66 at0015 = ╱99╱ EXIT ╱ // 0x3c64 @0x15
0x3c4f…3c66 at0016 = EOL // 0x3c65 @0x16
0x3c4f…3c66 }
0x3c66…3c80 d26e 04860 IF IN_T + 5 > MAX_LIN THEN
0x3c66…3c80 LineComal80 {
0x3c66…3c80 ptr = 0xd26e // 0x3c66 @0x0
0x3c66…3c80 lno = 0x12fc // 0x3c68 @0x2
0x3c66…3c80 at0004 = ╱9b5b4c╱ IF ╱ // 0x3c6a @0x4
0x3c66…3c80 at0007 = ╱49╱I╱ // 0x3c6d @0x7
0x3c66…3c80 at0008 = ╱4e╱N╱ // 0x3c6e @0x8
0x3c66…3c80 at0009 = ╱5f╱_╱ // 0x3c6f @0x9
0x3c66…3c80 at000a = ╱54╱T╱ // 0x3c70 @0xa
0x3c66…3c80 at000b = ╱e5╱ + ╱ // 0x3c71 @0xb
0x3c66…3c80 at000c = ╱35╱5╱ // 0x3c72 @0xc
0x3c66…3c80 at000d = ╱f20500╱ // 0x3c73 @0xd
0x3c66…3c80 at0010 = ╱e1╱ > ╱ // 0x3c76 @0x10
0x3c66…3c80 at0011 = ╱4d╱M╱ // 0x3c77 @0x11
0x3c66…3c80 at0012 = ╱41╱A╱ // 0x3c78 @0x12
0x3c66…3c80 at0013 = ╱58╱X╱ // 0x3c79 @0x13
0x3c66…3c80 at0014 = ╱5f╱_╱ // 0x3c7a @0x14
0x3c66…3c80 at0015 = ╱4c╱L╱ // 0x3c7b @0x15
0x3c66…3c80 at0016 = ╱49╱I╱ // 0x3c7c @0x16
0x3c66…3c80 at0017 = ╱4e╱N╱ // 0x3c7d @0x17
0x3c66…3c80 at0018 = ╱b5╱ THEN ╱ // 0x3c7e @0x18
0x3c66…3c80 at0019 = EOL // 0x3c7f @0x19
0x3c66…3c80 }
0x3c80…3c9e d2ce 04870 IF _DEB > 0 OR P_KRED > 0 THEN
0x3c80…3c9e LineComal80 {
0x3c80…3c9e ptr = 0xd2ce // 0x3c80 @0x0
0x3c80…3c9e lno = 0x1306 // 0x3c82 @0x2
0x3c80…3c9e at0004 = ╱9b5c50╱ IF ╱ // 0x3c84 @0x4
0x3c80…3c9e at0007 = ╱5f╱_╱ // 0x3c87 @0x7
0x3c80…3c9e at0008 = ╱44╱D╱ // 0x3c88 @0x8
0x3c80…3c9e at0009 = ╱45╱E╱ // 0x3c89 @0x9
0x3c80…3c9e at000a = ╱42╱B╱ // 0x3c8a @0xa
0x3c80…3c9e at000b = ╱e1╱ > ╱ // 0x3c8b @0xb
0x3c80…3c9e at000c = ╱30╱0╱ // 0x3c8c @0xc
0x3c80…3c9e at000d = ╱f20000╱ // 0x3c8d @0xd
0x3c80…3c9e at0010 = ╱d8╱ OR ╱ // 0x3c90 @0x10
0x3c80…3c9e at0011 = ╱50╱P╱ // 0x3c91 @0x11
0x3c80…3c9e at0012 = ╱5f╱_╱ // 0x3c92 @0x12
0x3c80…3c9e at0013 = ╱4b╱K╱ // 0x3c93 @0x13
0x3c80…3c9e at0014 = ╱52╱R╱ // 0x3c94 @0x14
0x3c80…3c9e at0015 = ╱45╱E╱ // 0x3c95 @0x15
0x3c80…3c9e at0016 = ╱44╱D╱ // 0x3c96 @0x16
0x3c80…3c9e at0017 = ╱e1╱ > ╱ // 0x3c97 @0x17
0x3c80…3c9e at0018 = ╱30╱0╱ // 0x3c98 @0x18
0x3c80…3c9e at0019 = ╱f20000╱ // 0x3c99 @0x19
0x3c80…3c9e at001c = ╱b5╱ THEN ╱ // 0x3c9c @0x1c
0x3c80…3c9e at001d = EOL // 0x3c9d @0x1d
0x3c80…3c9e }
0x3c9e…3ce0 c666 05000 PRINT "<S>-----……--------------------……--……--------……----------……"
0x3c9e…3ce0 LineComal80 {
0x3c9e…3ce0 ptr = 0xc666 // 0x3c9e @0x0
0x3c9e…3ce0 lno = 0x1388 // 0x3ca0 @0x2
0x3c9e…3ce0 at0004 = ╱92╱ PRINT ╱ // 0x3ca2 @0x4
0x3c9e…3ce0 at0005 = ╱22╱"╱ // 0x3ca3 @0x5
0x3c9e…3ce0 at0006 = ╱3c╱<╱ // 0x3ca4 @0x6
0x3c9e…3ce0 at0007 = ╱53╱S╱ // 0x3ca5 @0x7
0x3c9e…3ce0 at0008 = ╱3e╱>╱ // 0x3ca6 @0x8
0x3c9e…3ce0 at0009 = ╱2d╱-╱ // 0x3ca7 @0x9
0x3c9e…3ce0 at000a = ╱2d╱-╱ // 0x3ca8 @0xa
0x3c9e…3ce0 at000b = ╱2d╱-╱ // 0x3ca9 @0xb
0x3c9e…3ce0 at000c = ╱2d╱-╱ // 0x3caa @0xc
0x3c9e…3ce0 at000d = ╱2d╱-╱ // 0x3cab @0xd
0x3c9e…3ce0 at000e = ╱20╱…╱ // 0x3cac @0xe
0x3c9e…3ce0 at000f = ╱20╱…╱ // 0x3cad @0xf
0x3c9e…3ce0 at0010 = ╱2d╱-╱ // 0x3cae @0x10
0x3c9e…3ce0 at0011 = ╱2d╱-╱ // 0x3caf @0x11
0x3c9e…3ce0 at0012 = ╱2d╱-╱ // 0x3cb0 @0x12
0x3c9e…3ce0 at0013 = ╱2d╱-╱ // 0x3cb1 @0x13
0x3c9e…3ce0 at0014 = ╱2d╱-╱ // 0x3cb2 @0x14
0x3c9e…3ce0 at0015 = ╱2d╱-╱ // 0x3cb3 @0x15
0x3c9e…3ce0 at0016 = ╱2d╱-╱ // 0x3cb4 @0x16
0x3c9e…3ce0 at0017 = ╱2d╱-╱ // 0x3cb5 @0x17
0x3c9e…3ce0 at0018 = ╱2d╱-╱ // 0x3cb6 @0x18
0x3c9e…3ce0 at0019 = ╱2d╱-╱ // 0x3cb7 @0x19
0x3c9e…3ce0 at001a = ╱2d╱-╱ // 0x3cb8 @0x1a
0x3c9e…3ce0 at001b = ╱2d╱-╱ // 0x3cb9 @0x1b
0x3c9e…3ce0 at001c = ╱2d╱-╱ // 0x3cba @0x1c
0x3c9e…3ce0 at001d = ╱2d╱-╱ // 0x3cbb @0x1d
0x3c9e…3ce0 at001e = ╱2d╱-╱ // 0x3cbc @0x1e
0x3c9e…3ce0 at001f = ╱2d╱-╱ // 0x3cbd @0x1f
0x3c9e…3ce0 at0020 = ╱2d╱-╱ // 0x3cbe @0x20
0x3c9e…3ce0 at0021 = ╱2d╱-╱ // 0x3cbf @0x21
0x3c9e…3ce0 at0022 = ╱2d╱-╱ // 0x3cc0 @0x22
0x3c9e…3ce0 at0023 = ╱2d╱-╱ // 0x3cc1 @0x23
0x3c9e…3ce0 at0024 = ╱20╱…╱ // 0x3cc2 @0x24
0x3c9e…3ce0 at0025 = ╱20╱…╱ // 0x3cc3 @0x25
0x3c9e…3ce0 at0026 = ╱2d╱-╱ // 0x3cc4 @0x26
0x3c9e…3ce0 at0027 = ╱2d╱-╱ // 0x3cc5 @0x27
0x3c9e…3ce0 at0028 = ╱20╱…╱ // 0x3cc6 @0x28
0x3c9e…3ce0 at0029 = ╱20╱…╱ // 0x3cc7 @0x29
0x3c9e…3ce0 at002a = ╱2d╱-╱ // 0x3cc8 @0x2a
0x3c9e…3ce0 at002b = ╱2d╱-╱ // 0x3cc9 @0x2b
0x3c9e…3ce0 at002c = ╱2d╱-╱ // 0x3cca @0x2c
0x3c9e…3ce0 at002d = ╱2d╱-╱ // 0x3ccb @0x2d
0x3c9e…3ce0 at002e = ╱2d╱-╱ // 0x3ccc @0x2e
0x3c9e…3ce0 at002f = ╱2d╱-╱ // 0x3ccd @0x2f
0x3c9e…3ce0 at0030 = ╱2d╱-╱ // 0x3cce @0x30
0x3c9e…3ce0 at0031 = ╱2d╱-╱ // 0x3ccf @0x31
0x3c9e…3ce0 at0032 = ╱20╱…╱ // 0x3cd0 @0x32
0x3c9e…3ce0 at0033 = ╱20╱…╱ // 0x3cd1 @0x33
0x3c9e…3ce0 at0034 = ╱2d╱-╱ // 0x3cd2 @0x34
0x3c9e…3ce0 at0035 = ╱2d╱-╱ // 0x3cd3 @0x35
0x3c9e…3ce0 at0036 = ╱2d╱-╱ // 0x3cd4 @0x36
0x3c9e…3ce0 at0037 = ╱2d╱-╱ // 0x3cd5 @0x37
0x3c9e…3ce0 at0038 = ╱2d╱-╱ // 0x3cd6 @0x38
0x3c9e…3ce0 at0039 = ╱2d╱-╱ // 0x3cd7 @0x39
0x3c9e…3ce0 at003a = ╱2d╱-╱ // 0x3cd8 @0x3a
0x3c9e…3ce0 at003b = ╱2d╱-╱ // 0x3cd9 @0x3b
0x3c9e…3ce0 at003c = ╱2d╱-╱ // 0x3cda @0x3c
0x3c9e…3ce0 at003d = ╱2d╱-╱ // 0x3cdb @0x3d
0x3c9e…3ce0 at003e = ╱20╱…╱ // 0x3cdc @0x3e
0x3c9e…3ce0 at003f = ╱20╱…╱ // 0x3cdd @0x3f
0x3c9e…3ce0 at0040 = ╱22╱"╱ // 0x3cde @0x40
0x3c9e…3ce0 at0041 = EOL // 0x3cdf @0x41
0x3c9e…3ce0 }
0x3ce0…3d22 c666 04880 PRINT "<S>-----……------------------------……--------……----------……"
0x3ce0…3d22 LineComal80 {
0x3ce0…3d22 ptr = 0xc666 // 0x3ce0 @0x0
0x3ce0…3d22 lno = 0x1310 // 0x3ce2 @0x2
0x3ce0…3d22 at0004 = ╱92╱ PRINT ╱ // 0x3ce4 @0x4
0x3ce0…3d22 at0005 = ╱22╱"╱ // 0x3ce5 @0x5
0x3ce0…3d22 at0006 = ╱3c╱<╱ // 0x3ce6 @0x6
0x3ce0…3d22 at0007 = ╱53╱S╱ // 0x3ce7 @0x7
0x3ce0…3d22 at0008 = ╱3e╱>╱ // 0x3ce8 @0x8
0x3ce0…3d22 at0009 = ╱2d╱-╱ // 0x3ce9 @0x9
0x3ce0…3d22 at000a = ╱2d╱-╱ // 0x3cea @0xa
0x3ce0…3d22 at000b = ╱2d╱-╱ // 0x3ceb @0xb
0x3ce0…3d22 at000c = ╱2d╱-╱ // 0x3cec @0xc
0x3ce0…3d22 at000d = ╱2d╱-╱ // 0x3ced @0xd
0x3ce0…3d22 at000e = ╱20╱…╱ // 0x3cee @0xe
0x3ce0…3d22 at000f = ╱20╱…╱ // 0x3cef @0xf
0x3ce0…3d22 at0010 = ╱2d╱-╱ // 0x3cf0 @0x10
0x3ce0…3d22 at0011 = ╱2d╱-╱ // 0x3cf1 @0x11
0x3ce0…3d22 at0012 = ╱2d╱-╱ // 0x3cf2 @0x12
0x3ce0…3d22 at0013 = ╱2d╱-╱ // 0x3cf3 @0x13
0x3ce0…3d22 at0014 = ╱2d╱-╱ // 0x3cf4 @0x14
0x3ce0…3d22 at0015 = ╱2d╱-╱ // 0x3cf5 @0x15
0x3ce0…3d22 at0016 = ╱2d╱-╱ // 0x3cf6 @0x16
0x3ce0…3d22 at0017 = ╱2d╱-╱ // 0x3cf7 @0x17
0x3ce0…3d22 at0018 = ╱2d╱-╱ // 0x3cf8 @0x18
0x3ce0…3d22 at0019 = ╱2d╱-╱ // 0x3cf9 @0x19
0x3ce0…3d22 at001a = ╱2d╱-╱ // 0x3cfa @0x1a
0x3ce0…3d22 at001b = ╱2d╱-╱ // 0x3cfb @0x1b
0x3ce0…3d22 at001c = ╱2d╱-╱ // 0x3cfc @0x1c
0x3ce0…3d22 at001d = ╱2d╱-╱ // 0x3cfd @0x1d
0x3ce0…3d22 at001e = ╱2d╱-╱ // 0x3cfe @0x1e
0x3ce0…3d22 at001f = ╱2d╱-╱ // 0x3cff @0x1f
0x3ce0…3d22 at0020 = ╱2d╱-╱ // 0x3d00 @0x20
0x3ce0…3d22 at0021 = ╱2d╱-╱ // 0x3d01 @0x21
0x3ce0…3d22 at0022 = ╱2d╱-╱ // 0x3d02 @0x22
0x3ce0…3d22 at0023 = ╱2d╱-╱ // 0x3d03 @0x23
0x3ce0…3d22 at0024 = ╱2d╱-╱ // 0x3d04 @0x24
0x3ce0…3d22 at0025 = ╱2d╱-╱ // 0x3d05 @0x25
0x3ce0…3d22 at0026 = ╱2d╱-╱ // 0x3d06 @0x26
0x3ce0…3d22 at0027 = ╱2d╱-╱ // 0x3d07 @0x27
0x3ce0…3d22 at0028 = ╱20╱…╱ // 0x3d08 @0x28
0x3ce0…3d22 at0029 = ╱20╱…╱ // 0x3d09 @0x29
0x3ce0…3d22 at002a = ╱2d╱-╱ // 0x3d0a @0x2a
0x3ce0…3d22 at002b = ╱2d╱-╱ // 0x3d0b @0x2b
0x3ce0…3d22 at002c = ╱2d╱-╱ // 0x3d0c @0x2c
0x3ce0…3d22 at002d = ╱2d╱-╱ // 0x3d0d @0x2d
0x3ce0…3d22 at002e = ╱2d╱-╱ // 0x3d0e @0x2e
0x3ce0…3d22 at002f = ╱2d╱-╱ // 0x3d0f @0x2f
0x3ce0…3d22 at0030 = ╱2d╱-╱ // 0x3d10 @0x30
0x3ce0…3d22 at0031 = ╱2d╱-╱ // 0x3d11 @0x31
0x3ce0…3d22 at0032 = ╱20╱…╱ // 0x3d12 @0x32
0x3ce0…3d22 at0033 = ╱20╱…╱ // 0x3d13 @0x33
0x3ce0…3d22 at0034 = ╱2d╱-╱ // 0x3d14 @0x34
0x3ce0…3d22 at0035 = ╱2d╱-╱ // 0x3d15 @0x35
0x3ce0…3d22 at0036 = ╱2d╱-╱ // 0x3d16 @0x36
0x3ce0…3d22 at0037 = ╱2d╱-╱ // 0x3d17 @0x37
0x3ce0…3d22 at0038 = ╱2d╱-╱ // 0x3d18 @0x38
0x3ce0…3d22 at0039 = ╱2d╱-╱ // 0x3d19 @0x39
0x3ce0…3d22 at003a = ╱2d╱-╱ // 0x3d1a @0x3a
0x3ce0…3d22 at003b = ╱2d╱-╱ // 0x3d1b @0x3b
0x3ce0…3d22 at003c = ╱2d╱-╱ // 0x3d1c @0x3c
0x3ce0…3d22 at003d = ╱2d╱-╱ // 0x3d1d @0x3d
0x3ce0…3d22 at003e = ╱20╱…╱ // 0x3d1e @0x3e
0x3ce0…3d22 at003f = ╱20╱…╱ // 0x3d1f @0x3f
0x3ce0…3d22 at0040 = ╱22╱"╱ // 0x3d20 @0x40
0x3ce0…3d22 at0041 = EOL // 0x3d21 @0x41
0x3ce0…3d22 }
0x3d22…3d64 c861 05090 PRINT "<S>-----……------------------------……--------……----------……"
0x3d22…3d64 LineComal80 {
0x3d22…3d64 ptr = 0xc861 // 0x3d22 @0x0
0x3d22…3d64 lno = 0x13e2 // 0x3d24 @0x2
0x3d22…3d64 at0004 = ╱92╱ PRINT ╱ // 0x3d26 @0x4
0x3d22…3d64 at0005 = ╱22╱"╱ // 0x3d27 @0x5
0x3d22…3d64 at0006 = ╱3c╱<╱ // 0x3d28 @0x6
0x3d22…3d64 at0007 = ╱53╱S╱ // 0x3d29 @0x7
0x3d22…3d64 at0008 = ╱3e╱>╱ // 0x3d2a @0x8
0x3d22…3d64 at0009 = ╱2d╱-╱ // 0x3d2b @0x9
0x3d22…3d64 at000a = ╱2d╱-╱ // 0x3d2c @0xa
0x3d22…3d64 at000b = ╱2d╱-╱ // 0x3d2d @0xb
0x3d22…3d64 at000c = ╱2d╱-╱ // 0x3d2e @0xc
0x3d22…3d64 at000d = ╱2d╱-╱ // 0x3d2f @0xd
0x3d22…3d64 at000e = ╱20╱…╱ // 0x3d30 @0xe
0x3d22…3d64 at000f = ╱20╱…╱ // 0x3d31 @0xf
0x3d22…3d64 at0010 = ╱2d╱-╱ // 0x3d32 @0x10
0x3d22…3d64 at0011 = ╱2d╱-╱ // 0x3d33 @0x11
0x3d22…3d64 at0012 = ╱2d╱-╱ // 0x3d34 @0x12
0x3d22…3d64 at0013 = ╱2d╱-╱ // 0x3d35 @0x13
0x3d22…3d64 at0014 = ╱2d╱-╱ // 0x3d36 @0x14
0x3d22…3d64 at0015 = ╱2d╱-╱ // 0x3d37 @0x15
0x3d22…3d64 at0016 = ╱2d╱-╱ // 0x3d38 @0x16
0x3d22…3d64 at0017 = ╱2d╱-╱ // 0x3d39 @0x17
0x3d22…3d64 at0018 = ╱2d╱-╱ // 0x3d3a @0x18
0x3d22…3d64 at0019 = ╱2d╱-╱ // 0x3d3b @0x19
0x3d22…3d64 at001a = ╱2d╱-╱ // 0x3d3c @0x1a
0x3d22…3d64 at001b = ╱2d╱-╱ // 0x3d3d @0x1b
0x3d22…3d64 at001c = ╱2d╱-╱ // 0x3d3e @0x1c
0x3d22…3d64 at001d = ╱2d╱-╱ // 0x3d3f @0x1d
0x3d22…3d64 at001e = ╱2d╱-╱ // 0x3d40 @0x1e
0x3d22…3d64 at001f = ╱2d╱-╱ // 0x3d41 @0x1f
0x3d22…3d64 at0020 = ╱2d╱-╱ // 0x3d42 @0x20
0x3d22…3d64 at0021 = ╱2d╱-╱ // 0x3d43 @0x21
0x3d22…3d64 at0022 = ╱2d╱-╱ // 0x3d44 @0x22
0x3d22…3d64 at0023 = ╱2d╱-╱ // 0x3d45 @0x23
0x3d22…3d64 at0024 = ╱2d╱-╱ // 0x3d46 @0x24
0x3d22…3d64 at0025 = ╱2d╱-╱ // 0x3d47 @0x25
0x3d22…3d64 at0026 = ╱2d╱-╱ // 0x3d48 @0x26
0x3d22…3d64 at0027 = ╱2d╱-╱ // 0x3d49 @0x27
0x3d22…3d64 at0028 = ╱20╱…╱ // 0x3d4a @0x28
0x3d22…3d64 at0029 = ╱20╱…╱ // 0x3d4b @0x29
0x3d22…3d64 at002a = ╱2d╱-╱ // 0x3d4c @0x2a
0x3d22…3d64 at002b = ╱2d╱-╱ // 0x3d4d @0x2b
0x3d22…3d64 at002c = ╱2d╱-╱ // 0x3d4e @0x2c
0x3d22…3d64 at002d = ╱2d╱-╱ // 0x3d4f @0x2d
0x3d22…3d64 at002e = ╱2d╱-╱ // 0x3d50 @0x2e
0x3d22…3d64 at002f = ╱2d╱-╱ // 0x3d51 @0x2f
0x3d22…3d64 at0030 = ╱2d╱-╱ // 0x3d52 @0x30
0x3d22…3d64 at0031 = ╱2d╱-╱ // 0x3d53 @0x31
0x3d22…3d64 at0032 = ╱20╱…╱ // 0x3d54 @0x32
0x3d22…3d64 at0033 = ╱20╱…╱ // 0x3d55 @0x33
0x3d22…3d64 at0034 = ╱2d╱-╱ // 0x3d56 @0x34
0x3d22…3d64 at0035 = ╱2d╱-╱ // 0x3d57 @0x35
0x3d22…3d64 at0036 = ╱2d╱-╱ // 0x3d58 @0x36
0x3d22…3d64 at0037 = ╱2d╱-╱ // 0x3d59 @0x37
0x3d22…3d64 at0038 = ╱2d╱-╱ // 0x3d5a @0x38
0x3d22…3d64 at0039 = ╱2d╱-╱ // 0x3d5b @0x39
0x3d22…3d64 at003a = ╱2d╱-╱ // 0x3d5c @0x3a
0x3d22…3d64 at003b = ╱2d╱-╱ // 0x3d5d @0x3b
0x3d22…3d64 at003c = ╱2d╱-╱ // 0x3d5e @0x3c
0x3d22…3d64 at003d = ╱2d╱-╱ // 0x3d5f @0x3d
0x3d22…3d64 at003e = ╱20╱…╱ // 0x3d60 @0x3e
0x3d22…3d64 at003f = ╱20╱…╱ // 0x3d61 @0x3f
0x3d22…3d64 at0040 = ╱22╱"╱ // 0x3d62 @0x40
0x3d22…3d64 at0041 = EOL // 0x3d63 @0x41
0x3d22…3d64 }
0x3d64…3d81 c1de 04500 EXEC PRINTRES ( "papir" , 12 )
0x3d64…3d81 LineComal80 {
0x3d64…3d81 ptr = 0xc1de // 0x3d64 @0x0
0x3d64…3d81 lno = 0x1194 // 0x3d66 @0x2
0x3d64…3d81 at0004 = ╱9d╱ EXEC ╱ // 0x3d68 @0x4
0x3d64…3d81 at0005 = ╱50╱P╱ // 0x3d69 @0x5
0x3d64…3d81 at0006 = ╱52╱R╱ // 0x3d6a @0x6
0x3d64…3d81 at0007 = ╱49╱I╱ // 0x3d6b @0x7
0x3d64…3d81 at0008 = ╱4e╱N╱ // 0x3d6c @0x8
0x3d64…3d81 at0009 = ╱54╱T╱ // 0x3d6d @0x9
0x3d64…3d81 at000a = ╱52╱R╱ // 0x3d6e @0xa
0x3d64…3d81 at000b = ╱45╱E╱ // 0x3d6f @0xb
0x3d64…3d81 at000c = ╱53╱S╱ // 0x3d70 @0xc
0x3d64…3d81 at000d = ╱ed╱ ( ╱ // 0x3d71 @0xd
0x3d64…3d81 at000e = ╱22╱"╱ // 0x3d72 @0xe
0x3d64…3d81 at000f = ╱70╱p╱ // 0x3d73 @0xf
0x3d64…3d81 at0010 = ╱61╱a╱ // 0x3d74 @0x10
0x3d64…3d81 at0011 = ╱70╱p╱ // 0x3d75 @0x11
0x3d64…3d81 at0012 = ╱69╱i╱ // 0x3d76 @0x12
0x3d64…3d81 at0013 = ╱72╱r╱ // 0x3d77 @0x13
0x3d64…3d81 at0014 = ╱22╱"╱ // 0x3d78 @0x14
0x3d64…3d81 at0015 = ╱ec╱ , ╱ // 0x3d79 @0x15
0x3d64…3d81 at0016 = ╱31╱1╱ // 0x3d7a @0x16
0x3d64…3d81 at0017 = ╱32╱2╱ // 0x3d7b @0x17
0x3d64…3d81 at0018 = ╱f20c00╱ // 0x3d7c @0x18
0x3d64…3d81 at001b = ╱ee╱ ) ╱ // 0x3d7f @0x1b
0x3d64…3d81 at001c = EOL // 0x3d80 @0x1c
0x3d64…3d81 }
0x3d81…3da7 a6a5 01430 LET PROGRAM $ := PRGFL $ + ":SYSBP" + S_KODE $
0x3d81…3da7 LineComal80 {
0x3d81…3da7 ptr = 0xa6a5 // 0x3d81 @0x0
0x3d81…3da7 lno = 0x0596 // 0x3d83 @0x2
0x3d81…3da7 at0004 = ╱86╱ LET ╱ // 0x3d85 @0x4
0x3d81…3da7 at0005 = ╱50╱P╱ // 0x3d86 @0x5
0x3d81…3da7 at0006 = ╱52╱R╱ // 0x3d87 @0x6
0x3d81…3da7 at0007 = ╱4f╱O╱ // 0x3d88 @0x7
0x3d81…3da7 at0008 = ╱47╱G╱ // 0x3d89 @0x8
0x3d81…3da7 at0009 = ╱52╱R╱ // 0x3d8a @0x9
0x3d81…3da7 at000a = ╱41╱A╱ // 0x3d8b @0xa
0x3d81…3da7 at000b = ╱4d╱M╱ // 0x3d8c @0xb
0x3d81…3da7 at000c = ╱ef╱ $ ╱ // 0x3d8d @0xc
0x3d81…3da7 at000d = ╱f0╱ := ╱ // 0x3d8e @0xd
0x3d81…3da7 at000e = ╱50╱P╱ // 0x3d8f @0xe
0x3d81…3da7 at000f = ╱52╱R╱ // 0x3d90 @0xf
0x3d81…3da7 at0010 = ╱47╱G╱ // 0x3d91 @0x10
0x3d81…3da7 at0011 = ╱46╱F╱ // 0x3d92 @0x11
0x3d81…3da7 at0012 = ╱4c╱L╱ // 0x3d93 @0x12
0x3d81…3da7 at0013 = ╱ef╱ $ ╱ // 0x3d94 @0x13
0x3d81…3da7 at0014 = ╱eb╱ + ╱ // 0x3d95 @0x14
0x3d81…3da7 at0015 = ╱22╱"╱ // 0x3d96 @0x15
0x3d81…3da7 at0016 = ╱3a╱:╱ // 0x3d97 @0x16
0x3d81…3da7 at0017 = ╱53╱S╱ // 0x3d98 @0x17
0x3d81…3da7 at0018 = ╱59╱Y╱ // 0x3d99 @0x18
0x3d81…3da7 at0019 = ╱53╱S╱ // 0x3d9a @0x19
0x3d81…3da7 at001a = ╱42╱B╱ // 0x3d9b @0x1a
0x3d81…3da7 at001b = ╱50╱P╱ // 0x3d9c @0x1b
0x3d81…3da7 at001c = ╱22╱"╱ // 0x3d9d @0x1c
0x3d81…3da7 at001d = ╱eb╱ + ╱ // 0x3d9e @0x1d
0x3d81…3da7 at001e = ╱53╱S╱ // 0x3d9f @0x1e
0x3d81…3da7 at001f = ╱5f╱_╱ // 0x3da0 @0x1f
0x3d81…3da7 at0020 = ╱4b╱K╱ // 0x3da1 @0x20
0x3d81…3da7 at0021 = ╱4f╱O╱ // 0x3da2 @0x21
0x3d81…3da7 at0022 = ╱44╱D╱ // 0x3da3 @0x22
0x3d81…3da7 at0023 = ╱45╱E╱ // 0x3da4 @0x23
0x3d81…3da7 at0024 = ╱ef╱ $ ╱ // 0x3da5 @0x24
0x3d81…3da7 at0025 = EOL // 0x3da6 @0x25
0x3d81…3da7 }
0x3da7…3dad d39b 05520 //
0x3da7…3dad LineComal80 {
0x3da7…3dad ptr = 0xd39b // 0x3da7 @0x0
0x3da7…3dad lno = 0x1590 // 0x3da9 @0x2
0x3da7…3dad at0004 = ╱89╱ // ╱ // 0x3dab @0x4
0x3da7…3dad at0005 = EOL // 0x3dac @0x5
0x3da7…3dad }
0x3dad…3de0 d3ce 05530 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
0x3dad…3de0 LineComal80 {
0x3dad…3de0 ptr = 0xd3ce // 0x3dad @0x0
0x3dad…3de0 lno = 0x159a // 0x3daf @0x2
0x3dad…3de0 at0004 = ╱9e6a╱ PROC ╱ // 0x3db1 @0x4
0x3dad…3de0 at0006 = ╱50╱P╱ // 0x3db3 @0x6
0x3dad…3de0 at0007 = ╱52╱R╱ // 0x3db4 @0x7
0x3dad…3de0 at0008 = ╱49╱I╱ // 0x3db5 @0x8
0x3dad…3de0 at0009 = ╱4e╱N╱ // 0x3db6 @0x9
0x3dad…3de0 at000a = ╱54╱T╱ // 0x3db7 @0xa
0x3dad…3de0 at000b = ╱52╱R╱ // 0x3db8 @0xb
0x3dad…3de0 at000c = ╱45╱E╱ // 0x3db9 @0xc
0x3dad…3de0 at000d = ╱53╱S╱ // 0x3dba @0xd
0x3dad…3de0 at000e = ╱ed╱ ( ╱ // 0x3dbb @0xe
0x3dad…3de0 at000f = ╱50╱P╱ // 0x3dbc @0xf
0x3dad…3de0 at0010 = ╱41╱A╱ // 0x3dbd @0x10
0x3dad…3de0 at0011 = ╱47╱G╱ // 0x3dbe @0x11
0x3dad…3de0 at0012 = ╱45╱E╱ // 0x3dbf @0x12
0x3dad…3de0 at0013 = ╱54╱T╱ // 0x3dc0 @0x13
0x3dad…3de0 at0014 = ╱59╱Y╱ // 0x3dc1 @0x14
0x3dad…3de0 at0015 = ╱50╱P╱ // 0x3dc2 @0x15
0x3dad…3de0 at0016 = ╱45╱E╱ // 0x3dc3 @0x16
0x3dad…3de0 at0017 = ╱ef╱ $ ╱ // 0x3dc4 @0x17
0x3dad…3de0 at0018 = ╱ec╱ , ╱ // 0x3dc5 @0x18
0x3dad…3de0 at0019 = ╱4c╱L╱ // 0x3dc6 @0x19
0x3dad…3de0 at001a = ╱49╱I╱ // 0x3dc7 @0x1a
0x3dad…3de0 at001b = ╱4e╱N╱ // 0x3dc8 @0x1b
0x3dad…3de0 at001c = ╱45╱E╱ // 0x3dc9 @0x1c
0x3dad…3de0 at001d = ╱ee╱ ) ╱ // 0x3dca @0x1d
0x3dad…3de0 at001e = ╱89╱ // ╱ // 0x3dcb @0x1e
0x3dad…3de0 at001f = ╱50╱P╱ // 0x3dcc @0x1f
0x3dad…3de0 at0020 = ╱52╱R╱ // 0x3dcd @0x20
0x3dad…3de0 at0021 = ╱49╱I╱ // 0x3dce @0x21
0x3dad…3de0 at0022 = ╱4e╱N╱ // 0x3dcf @0x22
0x3dad…3de0 at0023 = ╱54╱T╱ // 0x3dd0 @0x23
0x3dad…3de0 at0024 = ╱45╱E╱ // 0x3dd1 @0x24
0x3dad…3de0 at0025 = ╱52╱R╱ // 0x3dd2 @0x25
0x3dad…3de0 at0026 = ╱20╱…╱ // 0x3dd3 @0x26
0x3dad…3de0 at0027 = ╱52╱R╱ // 0x3dd4 @0x27
0x3dad…3de0 at0028 = ╱45╱E╱ // 0x3dd5 @0x28
0x3dad…3de0 at0029 = ╱53╱S╱ // 0x3dd6 @0x29
0x3dad…3de0 at002a = ╱45╱E╱ // 0x3dd7 @0x2a
0x3dad…3de0 at002b = ╱52╱R╱ // 0x3dd8 @0x2b
0x3dad…3de0 at002c = ╱56╱V╱ // 0x3dd9 @0x2c
0x3dad…3de0 at002d = ╱41╱A╱ // 0x3dda @0x2d
0x3dad…3de0 at002e = ╱54╱T╱ // 0x3ddb @0x2e
0x3dad…3de0 at002f = ╱49╱I╱ // 0x3ddc @0x2f
0x3dad…3de0 at0030 = ╱4f╱O╱ // 0x3ddd @0x30
0x3dad…3de0 at0031 = ╱4e╱N╱ // 0x3dde @0x31
0x3dad…3de0 at0032 = EOL // 0x3ddf @0x32
0x3dad…3de0 }
0x3de0…3df8 d3e6 05540 LET PRTNR $ := "1" ; OK := TRUE
0x3de0…3df8 LineComal80 {
0x3de0…3df8 ptr = 0xd3e6 // 0x3de0 @0x0
0x3de0…3df8 lno = 0x15a4 // 0x3de2 @0x2
0x3de0…3df8 at0004 = ╱86╱ LET ╱ // 0x3de4 @0x4
0x3de0…3df8 at0005 = ╱50╱P╱ // 0x3de5 @0x5
0x3de0…3df8 at0006 = ╱52╱R╱ // 0x3de6 @0x6
0x3de0…3df8 at0007 = ╱54╱T╱ // 0x3de7 @0x7
0x3de0…3df8 at0008 = ╱4e╱N╱ // 0x3de8 @0x8
0x3de0…3df8 at0009 = ╱52╱R╱ // 0x3de9 @0x9
0x3de0…3df8 at000a = ╱ef╱ $ ╱ // 0x3dea @0xa
0x3de0…3df8 at000b = ╱f0╱ := ╱ // 0x3deb @0xb
0x3de0…3df8 at000c = ╱22╱"╱ // 0x3dec @0xc
0x3de0…3df8 at000d = ╱31╱1╱ // 0x3ded @0xd
0x3de0…3df8 at000e = ╱22╱"╱ // 0x3dee @0xe
0x3de0…3df8 at000f = ╱ea╱ ; ╱ // 0x3def @0xf
0x3de0…3df8 at0010 = ╱4f╱O╱ // 0x3df0 @0x10
0x3de0…3df8 at0011 = ╱4b╱K╱ // 0x3df1 @0x11
0x3de0…3df8 at0012 = ╱f0╱ := ╱ // 0x3df2 @0x12
0x3de0…3df8 at0013 = ╱54╱T╱ // 0x3df3 @0x13
0x3de0…3df8 at0014 = ╱52╱R╱ // 0x3df4 @0x14
0x3de0…3df8 at0015 = ╱55╱U╱ // 0x3df5 @0x15
0x3de0…3df8 at0016 = ╱45╱E╱ // 0x3df6 @0x16
0x3de0…3df8 at0017 = EOL // 0x3df7 @0x17
0x3de0…3df8 }
0x3df8…3dff d3ed 05550 REPEAT
0x3df8…3dff LineComal80 {
0x3df8…3dff ptr = 0xd3ed // 0x3df8 @0x0
0x3df8…3dff lno = 0x15ae // 0x3dfa @0x2
0x3df8…3dff at0004 = ╱976b╱ REPEAT ╱ // 0x3dfc @0x4
0x3df8…3dff at0006 = EOL // 0x3dfe @0x6
0x3df8…3dff }
0x3dff…3e0f d3fd 05560 CURSOR 15 , LINE
0x3dff…3e0f LineComal80 {
0x3dff…3e0f ptr = 0xd3fd // 0x3dff @0x0
0x3dff…3e0f lno = 0x15b8 // 0x3e01 @0x2
0x3dff…3e0f at0004 = ╱a1╱ CURSOR ╱ // 0x3e03 @0x4
0x3dff…3e0f at0005 = ╱31╱1╱ // 0x3e04 @0x5
0x3dff…3e0f at0006 = ╱35╱5╱ // 0x3e05 @0x6
0x3dff…3e0f at0007 = ╱f20f00╱ // 0x3e06 @0x7
0x3dff…3e0f at000a = ╱ec╱ , ╱ // 0x3e09 @0xa
0x3dff…3e0f at000b = ╱4c╱L╱ // 0x3e0a @0xb
0x3dff…3e0f at000c = ╱49╱I╱ // 0x3e0b @0xc
0x3dff…3e0f at000d = ╱4e╱N╱ // 0x3e0c @0xd
0x3dff…3e0f at000e = ╱45╱E╱ // 0x3e0d @0xe
0x3dff…3e0f at000f = EOL // 0x3e0e @0xf
0x3dff…3e0f }
0x3e0f…3e48 d436 05570 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
0x3e0f…3e48 LineComal80 {
0x3e0f…3e48 ptr = 0xd436 // 0x3e0f @0x0
0x3e0f…3e48 lno = 0x15c2 // 0x3e11 @0x2
0x3e0f…3e48 at0004 = ╱b1╱ EDIT ╱ // 0x3e13 @0x4
0x3e0f…3e48 at0005 = ╱22╱"╱ // 0x3e14 @0x5
0x3e0f…3e48 at0006 = ╱3c╱<╱ // 0x3e15 @0x6
0x3e0f…3e48 at0007 = ╱5a╱Z╱ // 0x3e16 @0x7
0x3e0f…3e48 at0008 = ╱3e╱>╱ // 0x3e17 @0x8
0x3e0f…3e48 at0009 = ╱55╱U╱ // 0x3e18 @0x9
0x3e0f…3e48 at000a = ╱64╱d╱ // 0x3e19 @0xa
0x3e0f…3e48 at000b = ╱73╱s╱ // 0x3e1a @0xb
0x3e0f…3e48 at000c = ╱6b╱k╱ // 0x3e1b @0xc
0x3e0f…3e48 at000d = ╱72╱r╱ // 0x3e1c @0xd
0x3e0f…3e48 at000e = ╱69╱i╱ // 0x3e1d @0xe
0x3e0f…3e48 at000f = ╱76╱v╱ // 0x3e1e @0xf
0x3e0f…3e48 at0010 = ╱6e╱n╱ // 0x3e1f @0x10
0x3e0f…3e48 at0011 = ╱69╱i╱ // 0x3e20 @0x11
0x3e0f…3e48 at0012 = ╱6e╱n╱ // 0x3e21 @0x12
0x3e0f…3e48 at0013 = ╱67╱g╱ // 0x3e22 @0x13
0x3e0f…3e48 at0014 = ╱20╱…╱ // 0x3e23 @0x14
0x3e0f…3e48 at0015 = ╱70╱p╱ // 0x3e24 @0x15
0x3e0f…3e48 at0016 = ╱7d╱}╱ // 0x3e25 @0x16
0x3e0f…3e48 at0017 = ╱20╱…╱ // 0x3e26 @0x17
0x3e0f…3e48 at0018 = ╱70╱p╱ // 0x3e27 @0x18
0x3e0f…3e48 at0019 = ╱72╱r╱ // 0x3e28 @0x19
0x3e0f…3e48 at001a = ╱69╱i╱ // 0x3e29 @0x1a
0x3e0f…3e48 at001b = ╱6e╱n╱ // 0x3e2a @0x1b
0x3e0f…3e48 at001c = ╱74╱t╱ // 0x3e2b @0x1c
0x3e0f…3e48 at001d = ╱65╱e╱ // 0x3e2c @0x1d
0x3e0f…3e48 at001e = ╱72╱r╱ // 0x3e2d @0x1e
0x3e0f…3e48 at001f = ╱20╱…╱ // 0x3e2e @0x1f
0x3e0f…3e48 at0020 = ╱6e╱n╱ // 0x3e2f @0x20
0x3e0f…3e48 at0021 = ╱72╱r╱ // 0x3e30 @0x21
0x3e0f…3e48 at0022 = ╱2e╱.╱ // 0x3e31 @0x22
0x3e0f…3e48 at0023 = ╱20╱…╱ // 0x3e32 @0x23
0x3e0f…3e48 at0024 = ╱3f╱?╱ // 0x3e33 @0x24
0x3e0f…3e48 at0025 = ╱20╱…╱ // 0x3e34 @0x25
0x3e0f…3e48 at0026 = ╱28╱(╱ // 0x3e35 @0x26
0x3e0f…3e48 at0027 = ╱31╱1╱ // 0x3e36 @0x27
0x3e0f…3e48 at0028 = ╱2f╱/╱ // 0x3e37 @0x28
0x3e0f…3e48 at0029 = ╱32╱2╱ // 0x3e38 @0x29
0x3e0f…3e48 at002a = ╱2f╱/╱ // 0x3e39 @0x2a
0x3e0f…3e48 at002b = ╱33╱3╱ // 0x3e3a @0x2b
0x3e0f…3e48 at002c = ╱2f╱/╱ // 0x3e3b @0x2c
0x3e0f…3e48 at002d = ╱34╱4╱ // 0x3e3c @0x2d
0x3e0f…3e48 at002e = ╱29╱)╱ // 0x3e3d @0x2e
0x3e0f…3e48 at002f = ╱20╱…╱ // 0x3e3e @0x2f
0x3e0f…3e48 at0030 = ╱22╱"╱ // 0x3e3f @0x30
0x3e0f…3e48 at0031 = ╱f1╱ : ╱ // 0x3e40 @0x31
0x3e0f…3e48 at0032 = ╱50╱P╱ // 0x3e41 @0x32
0x3e0f…3e48 at0033 = ╱52╱R╱ // 0x3e42 @0x33
0x3e0f…3e48 at0034 = ╱54╱T╱ // 0x3e43 @0x34
0x3e0f…3e48 at0035 = ╱4e╱N╱ // 0x3e44 @0x35
0x3e0f…3e48 at0036 = ╱52╱R╱ // 0x3e45 @0x36
0x3e0f…3e48 at0037 = ╱ef╱ $ ╱ // 0x3e46 @0x37
0x3e0f…3e48 at0038 = EOL // 0x3e47 @0x38
0x3e0f…3e48 }
0x3e48…3e68 d456 05580 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
0x3e48…3e68 LineComal80 {
0x3e48…3e68 ptr = 0xd456 // 0x3e48 @0x0
0x3e48…3e68 lno = 0x15cc // 0x3e4a @0x2
0x3e48…3e68 at0004 = ╱98╱ UNTIL ╱ // 0x3e4c @0x4
0x3e48…3e68 at0005 = ╱22╱"╱ // 0x3e4d @0x5
0x3e48…3e68 at0006 = ╱2f╱/╱ // 0x3e4e @0x6
0x3e48…3e68 at0007 = ╱22╱"╱ // 0x3e4f @0x7
0x3e48…3e68 at0008 = ╱eb╱ + ╱ // 0x3e50 @0x8
0x3e48…3e68 at0009 = ╱50╱P╱ // 0x3e51 @0x9
0x3e48…3e68 at000a = ╱52╱R╱ // 0x3e52 @0xa
0x3e48…3e68 at000b = ╱54╱T╱ // 0x3e53 @0xb
0x3e48…3e68 at000c = ╱4e╱N╱ // 0x3e54 @0xc
0x3e48…3e68 at000d = ╱52╱R╱ // 0x3e55 @0xd
0x3e48…3e68 at000e = ╱ef╱ $ ╱ // 0x3e56 @0xe
0x3e48…3e68 at000f = ╱eb╱ + ╱ // 0x3e57 @0xf
0x3e48…3e68 at0010 = ╱22╱"╱ // 0x3e58 @0x10
0x3e48…3e68 at0011 = ╱2f╱/╱ // 0x3e59 @0x11
0x3e48…3e68 at0012 = ╱22╱"╱ // 0x3e5a @0x12
0x3e48…3e68 at0013 = ╱dc╱ IN ╱ // 0x3e5b @0x13
0x3e48…3e68 at0014 = ╱22╱"╱ // 0x3e5c @0x14
0x3e48…3e68 at0015 = ╱2f╱/╱ // 0x3e5d @0x15
0x3e48…3e68 at0016 = ╱31╱1╱ // 0x3e5e @0x16
0x3e48…3e68 at0017 = ╱2f╱/╱ // 0x3e5f @0x17
0x3e48…3e68 at0018 = ╱32╱2╱ // 0x3e60 @0x18
0x3e48…3e68 at0019 = ╱2f╱/╱ // 0x3e61 @0x19
0x3e48…3e68 at001a = ╱33╱3╱ // 0x3e62 @0x1a
0x3e48…3e68 at001b = ╱2f╱/╱ // 0x3e63 @0x1b
0x3e48…3e68 at001c = ╱34╱4╱ // 0x3e64 @0x1c
0x3e48…3e68 at001d = ╱2f╱/╱ // 0x3e65 @0x1d
0x3e48…3e68 at001e = ╱22╱"╱ // 0x3e66 @0x1e
0x3e48…3e68 at001f = EOL // 0x3e67 @0x1f
0x3e48…3e68 }
0x3e68…3e77 d465 05590 CURSOR 1 , LINE
0x3e68…3e77 LineComal80 {
0x3e68…3e77 ptr = 0xd465 // 0x3e68 @0x0
0x3e68…3e77 lno = 0x15d6 // 0x3e6a @0x2
0x3e68…3e77 at0004 = ╱a1╱ CURSOR ╱ // 0x3e6c @0x4
0x3e68…3e77 at0005 = ╱31╱1╱ // 0x3e6d @0x5
0x3e68…3e77 at0006 = ╱f20100╱ // 0x3e6e @0x6
0x3e68…3e77 at0009 = ╱ec╱ , ╱ // 0x3e71 @0x9
0x3e68…3e77 at000a = ╱4c╱L╱ // 0x3e72 @0xa
0x3e68…3e77 at000b = ╱49╱I╱ // 0x3e73 @0xb
0x3e68…3e77 at000c = ╱4e╱N╱ // 0x3e74 @0xc
0x3e68…3e77 at000d = ╱45╱E╱ // 0x3e75 @0xd
0x3e68…3e77 at000e = EOL // 0x3e76 @0xe
0x3e68…3e77 }
0x3e77…3e82 d470 05600 PRINT "<Z>"
0x3e77…3e82 LineComal80 {
0x3e77…3e82 ptr = 0xd470 // 0x3e77 @0x0
0x3e77…3e82 lno = 0x15e0 // 0x3e79 @0x2
0x3e77…3e82 at0004 = ╱92╱ PRINT ╱ // 0x3e7b @0x4
0x3e77…3e82 at0005 = ╱22╱"╱ // 0x3e7c @0x5
0x3e77…3e82 at0006 = ╱3c╱<╱ // 0x3e7d @0x6
0x3e77…3e82 at0007 = ╱5a╱Z╱ // 0x3e7e @0x7
0x3e77…3e82 at0008 = ╱3e╱>╱ // 0x3e7f @0x8
0x3e77…3e82 at0009 = ╱22╱"╱ // 0x3e80 @0x9
0x3e77…3e82 at000a = EOL // 0x3e81 @0xa
0x3e77…3e82 }
0x3e82…3ea6 d494 05610 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
0x3e82…3ea6 LineComal80 {
0x3e82…3ea6 ptr = 0xd494 // 0x3e82 @0x0
0x3e82…3ea6 lno = 0x15ea // 0x3e84 @0x2
0x3e82…3ea6 at0004 = ╱a1╱ CURSOR ╱ // 0x3e86 @0x4
0x3e82…3ea6 at0005 = ╱ed╱ ( ╱ // 0x3e87 @0x5
0x3e82…3ea6 at0006 = ╱33╱3╱ // 0x3e88 @0x6
0x3e82…3ea6 at0007 = ╱39╱9╱ // 0x3e89 @0x7
0x3e82…3ea6 at0008 = ╱f22700╱ // 0x3e8a @0x8
0x3e82…3ea6 at000b = ╱e6╱ - ╱ // 0x3e8d @0xb
0x3e82…3ea6 at000c = ╱cb╱ // 0x3e8e @0xc
0x3e82…3ea6 at000d = ╱ed╱ ( ╱ // 0x3e8f @0xd
0x3e82…3ea6 at000e = ╱50╱P╱ // 0x3e90 @0xe
0x3e82…3ea6 at000f = ╱41╱A╱ // 0x3e91 @0xf
0x3e82…3ea6 at0010 = ╱47╱G╱ // 0x3e92 @0x10
0x3e82…3ea6 at0011 = ╱45╱E╱ // 0x3e93 @0x11
0x3e82…3ea6 at0012 = ╱54╱T╱ // 0x3e94 @0x12
0x3e82…3ea6 at0013 = ╱59╱Y╱ // 0x3e95 @0x13
0x3e82…3ea6 at0014 = ╱50╱P╱ // 0x3e96 @0x14
0x3e82…3ea6 at0015 = ╱45╱E╱ // 0x3e97 @0x15
0x3e82…3ea6 at0016 = ╱ef╱ $ ╱ // 0x3e98 @0x16
0x3e82…3ea6 at0017 = ╱ee╱ ) ╱ // 0x3e99 @0x17
0x3e82…3ea6 at0018 = ╱ee╱ ) ╱ // 0x3e9a @0x18
0x3e82…3ea6 at0019 = ╱da╱ DIV ╱ // 0x3e9b @0x19
0x3e82…3ea6 at001a = ╱32╱2╱ // 0x3e9c @0x1a
0x3e82…3ea6 at001b = ╱f20200╱ // 0x3e9d @0x1b
0x3e82…3ea6 at001e = ╱ec╱ , ╱ // 0x3ea0 @0x1e
0x3e82…3ea6 at001f = ╱4c╱L╱ // 0x3ea1 @0x1f
0x3e82…3ea6 at0020 = ╱49╱I╱ // 0x3ea2 @0x20
0x3e82…3ea6 at0021 = ╱4e╱N╱ // 0x3ea3 @0x21
0x3e82…3ea6 at0022 = ╱45╱E╱ // 0x3ea4 @0x22
0x3e82…3ea6 at0023 = EOL // 0x3ea5 @0x23
0x3e82…3ea6 }
0x3ea6…3ee6 d4d4 05620 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
0x3ea6…3ee6 LineComal80 {
0x3ea6…3ee6 ptr = 0xd4d4 // 0x3ea6 @0x0
0x3ea6…3ee6 lno = 0x15f4 // 0x3ea8 @0x2
0x3ea6…3ee6 at0004 = ╱92╱ PRINT ╱ // 0x3eaa @0x4
0x3ea6…3ee6 at0005 = ╱22╱"╱ // 0x3eab @0x5
0x3ea6…3ee6 at0006 = ╱3c╱<╱ // 0x3eac @0x6
0x3ea6…3ee6 at0007 = ╱53╱S╱ // 0x3ead @0x7
0x3ea6…3ee6 at0008 = ╱5a╱Z╱ // 0x3eae @0x8
0x3ea6…3ee6 at0009 = ╱3e╱>╱ // 0x3eaf @0x9
0x3ea6…3ee6 at000a = ╱20╱…╱ // 0x3eb0 @0xa
0x3ea6…3ee6 at000b = ╱20╱…╱ // 0x3eb1 @0xb
0x3ea6…3ee6 at000c = ╱20╱…╱ // 0x3eb2 @0xc
0x3ea6…3ee6 at000d = ╱20╱…╱ // 0x3eb3 @0xd
0x3ea6…3ee6 at000e = ╱20╱…╱ // 0x3eb4 @0xe
0x3ea6…3ee6 at000f = ╱4d╱M╱ // 0x3eb5 @0xf
0x3ea6…3ee6 at0010 = ╱6f╱o╱ // 0x3eb6 @0x10
0x3ea6…3ee6 at0011 = ╱6e╱n╱ // 0x3eb7 @0x11
0x3ea6…3ee6 at0012 = ╱74╱t╱ // 0x3eb8 @0x12
0x3ea6…3ee6 at0013 = ╱65╱e╱ // 0x3eb9 @0x13
0x3ea6…3ee6 at0014 = ╱72╱r╱ // 0x3eba @0x14
0x3ea6…3ee6 at0015 = ╱20╱…╱ // 0x3ebb @0x15
0x3ea6…3ee6 at0016 = ╱22╱"╱ // 0x3ebc @0x16
0x3ea6…3ee6 at0017 = ╱ea╱ ; ╱ // 0x3ebd @0x17
0x3ea6…3ee6 at0018 = ╱50╱P╱ // 0x3ebe @0x18
0x3ea6…3ee6 at0019 = ╱41╱A╱ // 0x3ebf @0x19
0x3ea6…3ee6 at001a = ╱47╱G╱ // 0x3ec0 @0x1a
0x3ea6…3ee6 at001b = ╱45╱E╱ // 0x3ec1 @0x1b
0x3ea6…3ee6 at001c = ╱54╱T╱ // 0x3ec2 @0x1c
0x3ea6…3ee6 at001d = ╱59╱Y╱ // 0x3ec3 @0x1d
0x3ea6…3ee6 at001e = ╱50╱P╱ // 0x3ec4 @0x1e
0x3ea6…3ee6 at001f = ╱45╱E╱ // 0x3ec5 @0x1f
0x3ea6…3ee6 at0020 = ╱ef╱ $ ╱ // 0x3ec6 @0x20
0x3ea6…3ee6 at0021 = ╱ea╱ ; ╱ // 0x3ec7 @0x21
0x3ea6…3ee6 at0022 = ╱22╱"╱ // 0x3ec8 @0x22
0x3ea6…3ee6 at0023 = ╱20╱…╱ // 0x3ec9 @0x23
0x3ea6…3ee6 at0024 = ╱69╱i╱ // 0x3eca @0x24
0x3ea6…3ee6 at0025 = ╱20╱…╱ // 0x3ecb @0x25
0x3ea6…3ee6 at0026 = ╱70╱p╱ // 0x3ecc @0x26
0x3ea6…3ee6 at0027 = ╱72╱r╱ // 0x3ecd @0x27
0x3ea6…3ee6 at0028 = ╱69╱i╱ // 0x3ece @0x28
0x3ea6…3ee6 at0029 = ╱6e╱n╱ // 0x3ecf @0x29
0x3ea6…3ee6 at002a = ╱74╱t╱ // 0x3ed0 @0x2a
0x3ea6…3ee6 at002b = ╱65╱e╱ // 0x3ed1 @0x2b
0x3ea6…3ee6 at002c = ╱72╱r╱ // 0x3ed2 @0x2c
0x3ea6…3ee6 at002d = ╱65╱e╱ // 0x3ed3 @0x2d
0x3ea6…3ee6 at002e = ╱6e╱n╱ // 0x3ed4 @0x2e
0x3ea6…3ee6 at002f = ╱20╱…╱ // 0x3ed5 @0x2f
0x3ea6…3ee6 at0030 = ╱2d╱-╱ // 0x3ed6 @0x30
0x3ea6…3ee6 at0031 = ╱20╱…╱ // 0x3ed7 @0x31
0x3ea6…3ee6 at0032 = ╱74╱t╱ // 0x3ed8 @0x32
0x3ea6…3ee6 at0033 = ╱72╱r╱ // 0x3ed9 @0x33
0x3ea6…3ee6 at0034 = ╱79╱y╱ // 0x3eda @0x34
0x3ea6…3ee6 at0035 = ╱6b╱k╱ // 0x3edb @0x35
0x3ea6…3ee6 at0036 = ╱20╱…╱ // 0x3edc @0x36
0x3ea6…3ee6 at0037 = ╱52╱R╱ // 0x3edd @0x37
0x3ea6…3ee6 at0038 = ╱45╱E╱ // 0x3ede @0x38
0x3ea6…3ee6 at0039 = ╱54╱T╱ // 0x3edf @0x39
0x3ea6…3ee6 at003a = ╱55╱U╱ // 0x3ee0 @0x3a
0x3ea6…3ee6 at003b = ╱52╱R╱ // 0x3ee1 @0x3b
0x3ea6…3ee6 at003c = ╱4e╱N╱ // 0x3ee2 @0x3c
0x3ea6…3ee6 at003d = ╱20╱…╱ // 0x3ee3 @0x3d
0x3ea6…3ee6 at003e = ╱22╱"╱ // 0x3ee4 @0x3e
0x3ea6…3ee6 at003f = EOL // 0x3ee5 @0x3f
0x3ea6…3ee6 }
0x3ee6…3ef4 d4e2 05630 INPUT "" : SVAR $
0x3ee6…3ef4 LineComal80 {
0x3ee6…3ef4 ptr = 0xd4e2 // 0x3ee6 @0x0
0x3ee6…3ef4 lno = 0x15fe // 0x3ee8 @0x2
0x3ee6…3ef4 at0004 = ╱91╱ INPUT ╱ // 0x3eea @0x4
0x3ee6…3ef4 at0005 = ╱22╱"╱ // 0x3eeb @0x5
0x3ee6…3ef4 at0006 = ╱22╱"╱ // 0x3eec @0x6
0x3ee6…3ef4 at0007 = ╱f1╱ : ╱ // 0x3eed @0x7
0x3ee6…3ef4 at0008 = ╱53╱S╱ // 0x3eee @0x8
0x3ee6…3ef4 at0009 = ╱56╱V╱ // 0x3eef @0x9
0x3ee6…3ef4 at000a = ╱41╱A╱ // 0x3ef0 @0xa
0x3ee6…3ef4 at000b = ╱52╱R╱ // 0x3ef1 @0xb
0x3ee6…3ef4 at000c = ╱ef╱ $ ╱ // 0x3ef2 @0xc
0x3ee6…3ef4 at000d = EOL // 0x3ef3 @0xd
0x3ee6…3ef4 }
0x3ef4…3f04 d4f2 05640 SELECT OUTPUT "P" + PRTNR $
0x3ef4…3f04 LineComal80 {
0x3ef4…3f04 ptr = 0xd4f2 // 0x3ef4 @0x0
0x3ef4…3f04 lno = 0x1608 // 0x3ef6 @0x2
0x3ef4…3f04 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x3ef8 @0x4
0x3ef4…3f04 at0005 = ╱22╱"╱ // 0x3ef9 @0x5
0x3ef4…3f04 at0006 = ╱50╱P╱ // 0x3efa @0x6
0x3ef4…3f04 at0007 = ╱22╱"╱ // 0x3efb @0x7
0x3ef4…3f04 at0008 = ╱eb╱ + ╱ // 0x3efc @0x8
0x3ef4…3f04 at0009 = ╱50╱P╱ // 0x3efd @0x9
0x3ef4…3f04 at000a = ╱52╱R╱ // 0x3efe @0xa
0x3ef4…3f04 at000b = ╱54╱T╱ // 0x3eff @0xb
0x3ef4…3f04 at000c = ╱4e╱N╱ // 0x3f00 @0xc
0x3ef4…3f04 at000d = ╱52╱R╱ // 0x3f01 @0xd
0x3ef4…3f04 at000e = ╱ef╱ $ ╱ // 0x3f02 @0xe
0x3ef4…3f04 at000f = EOL // 0x3f03 @0xf
0x3ef4…3f04 }
0x3f04…3f12 d500 05650 IF ( "P" ) THEN
0x3f04…3f12 LineComal80 {
0x3f04…3f12 ptr = 0xd500 // 0x3f04 @0x0
0x3f04…3f12 lno = 0x1612 // 0x3f06 @0x2
0x3f04…3f12 at0004 = ╱9b6ccd╱ IF ╱ // 0x3f08 @0x4
0x3f04…3f12 at0007 = ╱ed╱ ( ╱ // 0x3f0b @0x7
0x3f04…3f12 at0008 = ╱22╱"╱ // 0x3f0c @0x8
0x3f04…3f12 at0009 = ╱50╱P╱ // 0x3f0d @0x9
0x3f04…3f12 at000a = ╱22╱"╱ // 0x3f0e @0xa
0x3f04…3f12 at000b = ╱ee╱ ) ╱ // 0x3f0f @0xb
0x3f04…3f12 at000c = ╱b5╱ THEN ╱ // 0x3f10 @0xc
0x3f04…3f12 at000d = EOL // 0x3f11 @0xd
0x3f04…3f12 }
0x3f12…3f22 d510 05660 CURSOR 12 , LINE
0x3f12…3f22 LineComal80 {
0x3f12…3f22 ptr = 0xd510 // 0x3f12 @0x0
0x3f12…3f22 lno = 0x161c // 0x3f14 @0x2
0x3f12…3f22 at0004 = ╱a1╱ CURSOR ╱ // 0x3f16 @0x4
0x3f12…3f22 at0005 = ╱31╱1╱ // 0x3f17 @0x5
0x3f12…3f22 at0006 = ╱32╱2╱ // 0x3f18 @0x6
0x3f12…3f22 at0007 = ╱f20c00╱ // 0x3f19 @0x7
0x3f12…3f22 at000a = ╱ec╱ , ╱ // 0x3f1c @0xa
0x3f12…3f22 at000b = ╱4c╱L╱ // 0x3f1d @0xb
0x3f12…3f22 at000c = ╱49╱I╱ // 0x3f1e @0xc
0x3f12…3f22 at000d = ╱4e╱N╱ // 0x3f1f @0xd
0x3f12…3f22 at000e = ╱45╱E╱ // 0x3f20 @0xe
0x3f12…3f22 at000f = EOL // 0x3f21 @0xf
0x3f12…3f22 }
0x3f22…3f59 d547 05670 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
0x3f22…3f59 LineComal80 {
0x3f22…3f59 ptr = 0xd547 // 0x3f22 @0x0
0x3f22…3f59 lno = 0x1626 // 0x3f24 @0x2
0x3f22…3f59 at0004 = ╱92╱ PRINT ╱ // 0x3f26 @0x4
0x3f22…3f59 at0005 = ╱22╱"╱ // 0x3f27 @0x5
0x3f22…3f59 at0006 = ╱3c╱<╱ // 0x3f28 @0x6
0x3f22…3f59 at0007 = ╱53╱S╱ // 0x3f29 @0x7
0x3f22…3f59 at0008 = ╱5a╱Z╱ // 0x3f2a @0x8
0x3f22…3f59 at0009 = ╱3e╱>╱ // 0x3f2b @0x9
0x3f22…3f59 at000a = ╱50╱P╱ // 0x3f2c @0xa
0x3f22…3f59 at000b = ╱72╱r╱ // 0x3f2d @0xb
0x3f22…3f59 at000c = ╱69╱i╱ // 0x3f2e @0xc
0x3f22…3f59 at000d = ╱6e╱n╱ // 0x3f2f @0xd
0x3f22…3f59 at000e = ╱74╱t╱ // 0x3f30 @0xe
0x3f22…3f59 at000f = ╱65╱e╱ // 0x3f31 @0xf
0x3f22…3f59 at0010 = ╱72╱r╱ // 0x3f32 @0x10
0x3f22…3f59 at0011 = ╱65╱e╱ // 0x3f33 @0x11
0x3f22…3f59 at0012 = ╱6e╱n╱ // 0x3f34 @0x12
0x3f22…3f59 at0013 = ╱20╱…╱ // 0x3f35 @0x13
0x3f22…3f59 at0014 = ╱65╱e╱ // 0x3f36 @0x14
0x3f22…3f59 at0015 = ╱72╱r╱ // 0x3f37 @0x15
0x3f22…3f59 at0016 = ╱20╱…╱ // 0x3f38 @0x16
0x3f22…3f59 at0017 = ╱72╱r╱ // 0x3f39 @0x17
0x3f22…3f59 at0018 = ╱65╱e╱ // 0x3f3a @0x18
0x3f22…3f59 at0019 = ╱73╱s╱ // 0x3f3b @0x19
0x3f22…3f59 at001a = ╱65╱e╱ // 0x3f3c @0x1a
0x3f22…3f59 at001b = ╱72╱r╱ // 0x3f3d @0x1b
0x3f22…3f59 at001c = ╱76╱v╱ // 0x3f3e @0x1c
0x3f22…3f59 at001d = ╱65╱e╱ // 0x3f3f @0x1d
0x3f22…3f59 at001e = ╱72╱r╱ // 0x3f40 @0x1e
0x3f22…3f59 at001f = ╱65╱e╱ // 0x3f41 @0x1f
0x3f22…3f59 at0020 = ╱74╱t╱ // 0x3f42 @0x20
0x3f22…3f59 at0021 = ╱20╱…╱ // 0x3f43 @0x21
0x3f22…3f59 at0022 = ╱61╱a╱ // 0x3f44 @0x22
0x3f22…3f59 at0023 = ╱66╱f╱ // 0x3f45 @0x23
0x3f22…3f59 at0024 = ╱20╱…╱ // 0x3f46 @0x24
0x3f22…3f59 at0025 = ╱65╱e╱ // 0x3f47 @0x25
0x3f22…3f59 at0026 = ╱6e╱n╱ // 0x3f48 @0x26
0x3f22…3f59 at0027 = ╱20╱…╱ // 0x3f49 @0x27
0x3f22…3f59 at0028 = ╱61╱a╱ // 0x3f4a @0x28
0x3f22…3f59 at0029 = ╱6e╱n╱ // 0x3f4b @0x29
0x3f22…3f59 at002a = ╱64╱d╱ // 0x3f4c @0x2a
0x3f22…3f59 at002b = ╱65╱e╱ // 0x3f4d @0x2b
0x3f22…3f59 at002c = ╱6e╱n╱ // 0x3f4e @0x2c
0x3f22…3f59 at002d = ╱20╱…╱ // 0x3f4f @0x2d
0x3f22…3f59 at002e = ╱62╱b╱ // 0x3f50 @0x2e
0x3f22…3f59 at002f = ╱72╱r╱ // 0x3f51 @0x2f
0x3f22…3f59 at0030 = ╱75╱u╱ // 0x3f52 @0x30
0x3f22…3f59 at0031 = ╱67╱g╱ // 0x3f53 @0x31
0x3f22…3f59 at0032 = ╱65╱e╱ // 0x3f54 @0x32
0x3f22…3f59 at0033 = ╱72╱r╱ // 0x3f55 @0x33
0x3f22…3f59 at0034 = ╱2c╱,╱ // 0x3f56 @0x34
0x3f22…3f59 at0035 = ╱22╱"╱ // 0x3f57 @0x35
0x3f22…3f59 at0036 = EOL // 0x3f58 @0x36
0x3f22…3f59 }
0x3f59…3f6e d55c 05680 CURSOR 12 , LINE + 1
0x3f59…3f6e LineComal80 {
0x3f59…3f6e ptr = 0xd55c // 0x3f59 @0x0
0x3f59…3f6e lno = 0x1630 // 0x3f5b @0x2
0x3f59…3f6e at0004 = ╱a1╱ CURSOR ╱ // 0x3f5d @0x4
0x3f59…3f6e at0005 = ╱31╱1╱ // 0x3f5e @0x5
0x3f59…3f6e at0006 = ╱32╱2╱ // 0x3f5f @0x6
0x3f59…3f6e at0007 = ╱f20c00╱ // 0x3f60 @0x7
0x3f59…3f6e at000a = ╱ec╱ , ╱ // 0x3f63 @0xa
0x3f59…3f6e at000b = ╱4c╱L╱ // 0x3f64 @0xb
0x3f59…3f6e at000c = ╱49╱I╱ // 0x3f65 @0xc
0x3f59…3f6e at000d = ╱4e╱N╱ // 0x3f66 @0xd
0x3f59…3f6e at000e = ╱45╱E╱ // 0x3f67 @0xe
0x3f59…3f6e at000f = ╱e5╱ + ╱ // 0x3f68 @0xf
0x3f59…3f6e at0010 = ╱31╱1╱ // 0x3f69 @0x10
0x3f59…3f6e at0011 = ╱f20100╱ // 0x3f6a @0x11
0x3f59…3f6e at0014 = EOL // 0x3f6d @0x14
0x3f59…3f6e }
0x3f6e…3faf d59d 05690 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
0x3f6e…3faf LineComal80 {
0x3f6e…3faf ptr = 0xd59d // 0x3f6e @0x0
0x3f6e…3faf lno = 0x163a // 0x3f70 @0x2
0x3f6e…3faf at0004 = ╱91╱ INPUT ╱ // 0x3f72 @0x4
0x3f6e…3faf at0005 = ╱22╱"╱ // 0x3f73 @0x5
0x3f6e…3faf at0006 = ╱3c╱<╱ // 0x3f74 @0x6
0x3f6e…3faf at0007 = ╱53╱S╱ // 0x3f75 @0x7
0x3f6e…3faf at0008 = ╱5a╱Z╱ // 0x3f76 @0x8
0x3f6e…3faf at0009 = ╱3e╱>╱ // 0x3f77 @0x9
0x3f6e…3faf at000a = ╱53╱S╱ // 0x3f78 @0xa
0x3f6e…3faf at000b = ╱6b╱k╱ // 0x3f79 @0xb
0x3f6e…3faf at000c = ╱61╱a╱ // 0x3f7a @0xc
0x3f6e…3faf at000d = ╱6c╱l╱ // 0x3f7b @0xd
0x3f6e…3faf at000e = ╱20╱…╱ // 0x3f7c @0xe
0x3f6e…3faf at000f = ╱64╱d╱ // 0x3f7d @0xf
0x3f6e…3faf at0010 = ╱65╱e╱ // 0x3f7e @0x10
0x3f6e…3faf at0011 = ╱72╱r╱ // 0x3f7f @0x11
0x3f6e…3faf at0012 = ╱20╱…╱ // 0x3f80 @0x12
0x3f6e…3faf at0013 = ╱76╱v╱ // 0x3f81 @0x13
0x3f6e…3faf at0014 = ╱65╱e╱ // 0x3f82 @0x14
0x3f6e…3faf at0015 = ╱6e╱n╱ // 0x3f83 @0x15
0x3f6e…3faf at0016 = ╱74╱t╱ // 0x3f84 @0x16
0x3f6e…3faf at0017 = ╱65╱e╱ // 0x3f85 @0x17
0x3f6e…3faf at0018 = ╱73╱s╱ // 0x3f86 @0x18
0x3f6e…3faf at0019 = ╱20╱…╱ // 0x3f87 @0x19
0x3f6e…3faf at001a = ╱70╱p╱ // 0x3f88 @0x1a
0x3f6e…3faf at001b = ╱7d╱}╱ // 0x3f89 @0x1b
0x3f6e…3faf at001c = ╱20╱…╱ // 0x3f8a @0x1c
0x3f6e…3faf at001d = ╱61╱a╱ // 0x3f8b @0x1d
0x3f6e…3faf at001e = ╱74╱t╱ // 0x3f8c @0x1e
0x3f6e…3faf at001f = ╱20╱…╱ // 0x3f8d @0x1f
0x3f6e…3faf at0020 = ╱64╱d╱ // 0x3f8e @0x20
0x3f6e…3faf at0021 = ╱65╱e╱ // 0x3f8f @0x21
0x3f6e…3faf at0022 = ╱6e╱n╱ // 0x3f90 @0x22
0x3f6e…3faf at0023 = ╱20╱…╱ // 0x3f91 @0x23
0x3f6e…3faf at0024 = ╱62╱b╱ // 0x3f92 @0x24
0x3f6e…3faf at0025 = ╱6c╱l╱ // 0x3f93 @0x25
0x3f6e…3faf at0026 = ╱69╱i╱ // 0x3f94 @0x26
0x3f6e…3faf at0027 = ╱76╱v╱ // 0x3f95 @0x27
0x3f6e…3faf at0028 = ╱65╱e╱ // 0x3f96 @0x28
0x3f6e…3faf at0029 = ╱72╱r╱ // 0x3f97 @0x29
0x3f6e…3faf at002a = ╱20╱…╱ // 0x3f98 @0x2a
0x3f6e…3faf at002b = ╱6c╱l╱ // 0x3f99 @0x2b
0x3f6e…3faf at002c = ╱65╱e╱ // 0x3f9a @0x2c
0x3f6e…3faf at002d = ╱64╱d╱ // 0x3f9b @0x2d
0x3f6e…3faf at002e = ╱69╱i╱ // 0x3f9c @0x2e
0x3f6e…3faf at002f = ╱67╱g╱ // 0x3f9d @0x2f
0x3f6e…3faf at0030 = ╱20╱…╱ // 0x3f9e @0x30
0x3f6e…3faf at0031 = ╱3f╱?╱ // 0x3f9f @0x31
0x3f6e…3faf at0032 = ╱20╱…╱ // 0x3fa0 @0x32
0x3f6e…3faf at0033 = ╱28╱(╱ // 0x3fa1 @0x33
0x3f6e…3faf at0034 = ╱6a╱j╱ // 0x3fa2 @0x34
0x3f6e…3faf at0035 = ╱2f╱/╱ // 0x3fa3 @0x35
0x3f6e…3faf at0036 = ╱6e╱n╱ // 0x3fa4 @0x36
0x3f6e…3faf at0037 = ╱29╱)╱ // 0x3fa5 @0x37
0x3f6e…3faf at0038 = ╱20╱…╱ // 0x3fa6 @0x38
0x3f6e…3faf at0039 = ╱22╱"╱ // 0x3fa7 @0x39
0x3f6e…3faf at003a = ╱f1╱ : ╱ // 0x3fa8 @0x3a
0x3f6e…3faf at003b = ╱53╱S╱ // 0x3fa9 @0x3b
0x3f6e…3faf at003c = ╱56╱V╱ // 0x3faa @0x3c
0x3f6e…3faf at003d = ╱41╱A╱ // 0x3fab @0x3d
0x3f6e…3faf at003e = ╱52╱R╱ // 0x3fac @0x3e
0x3f6e…3faf at003f = ╱ef╱ $ ╱ // 0x3fad @0x3f
0x3f6e…3faf at0040 = EOL // 0x3fae @0x40
0x3f6e…3faf }
0x3faf…3fca d5b8 05700 IF VAR $ = "J" OR SVAR $ = "j" THEN
0x3faf…3fca LineComal80 {
0x3faf…3fca ptr = 0xd5b8 // 0x3faf @0x0
0x3faf…3fca lno = 0x1644 // 0x3fb1 @0x2
0x3faf…3fca at0004 = ╱9b6d53╱ IF ╱ // 0x3fb3 @0x4
0x3faf…3fca at0007 = ╱56╱V╱ // 0x3fb6 @0x7
0x3faf…3fca at0008 = ╱41╱A╱ // 0x3fb7 @0x8
0x3faf…3fca at0009 = ╱52╱R╱ // 0x3fb8 @0x9
0x3faf…3fca at000a = ╱ef╱ $ ╱ // 0x3fb9 @0xa
0x3faf…3fca at000b = ╱df╱ = ╱ // 0x3fba @0xb
0x3faf…3fca at000c = ╱22╱"╱ // 0x3fbb @0xc
0x3faf…3fca at000d = ╱4a╱J╱ // 0x3fbc @0xd
0x3faf…3fca at000e = ╱22╱"╱ // 0x3fbd @0xe
0x3faf…3fca at000f = ╱d8╱ OR ╱ // 0x3fbe @0xf
0x3faf…3fca at0010 = ╱53╱S╱ // 0x3fbf @0x10
0x3faf…3fca at0011 = ╱56╱V╱ // 0x3fc0 @0x11
0x3faf…3fca at0012 = ╱41╱A╱ // 0x3fc1 @0x12
0x3faf…3fca at0013 = ╱52╱R╱ // 0x3fc2 @0x13
0x3faf…3fca at0014 = ╱ef╱ $ ╱ // 0x3fc3 @0x14
0x3faf…3fca at0015 = ╱df╱ = ╱ // 0x3fc4 @0x15
0x3faf…3fca at0016 = ╱22╱"╱ // 0x3fc5 @0x16
0x3faf…3fca at0017 = ╱6a╱j╱ // 0x3fc6 @0x17
0x3faf…3fca at0018 = ╱22╱"╱ // 0x3fc7 @0x18
0x3faf…3fca at0019 = ╱b5╱ THEN ╱ // 0x3fc8 @0x19
0x3faf…3fca at001a = EOL // 0x3fc9 @0x1a
0x3faf…3fca }
0x3fca…3fda d5c8 05710 CURSOR 12 , LINE
0x3fca…3fda LineComal80 {
0x3fca…3fda ptr = 0xd5c8 // 0x3fca @0x0
0x3fca…3fda lno = 0x164e // 0x3fcc @0x2
0x3fca…3fda at0004 = ╱a1╱ CURSOR ╱ // 0x3fce @0x4
0x3fca…3fda at0005 = ╱31╱1╱ // 0x3fcf @0x5
0x3fca…3fda at0006 = ╱32╱2╱ // 0x3fd0 @0x6
0x3fca…3fda at0007 = ╱f20c00╱ // 0x3fd1 @0x7
0x3fca…3fda at000a = ╱ec╱ , ╱ // 0x3fd4 @0xa
0x3fca…3fda at000b = ╱4c╱L╱ // 0x3fd5 @0xb
0x3fca…3fda at000c = ╱49╱I╱ // 0x3fd6 @0xc
0x3fca…3fda at000d = ╱4e╱N╱ // 0x3fd7 @0xd
0x3fca…3fda at000e = ╱45╱E╱ // 0x3fd8 @0xe
0x3fca…3fda at000f = EOL // 0x3fd9 @0xf
0x3fca…3fda }
0x3fda…4015 d603 05720 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
0x3fda…4015 LineComal80 {
0x3fda…4015 ptr = 0xd603 // 0x3fda @0x0
0x3fda…4015 lno = 0x1658 // 0x3fdc @0x2
0x3fda…4015 at0004 = ╱92╱ PRINT ╱ // 0x3fde @0x4
0x3fda…4015 at0005 = ╱22╱"╱ // 0x3fdf @0x5
0x3fda…4015 at0006 = ╱3c╱<╱ // 0x3fe0 @0x6
0x3fda…4015 at0007 = ╱5a╱Z╱ // 0x3fe1 @0x7
0x3fda…4015 at0008 = ╱3e╱>╱ // 0x3fe2 @0x8
0x3fda…4015 at0009 = ╱20╱…╱ // 0x3fe3 @0x9
0x3fda…4015 at000a = ╱20╱…╱ // 0x3fe4 @0xa
0x3fda…4015 at000b = ╱20╱…╱ // 0x3fe5 @0xb
0x3fda…4015 at000c = ╱20╱…╱ // 0x3fe6 @0xc
0x3fda…4015 at000d = ╱20╱…╱ // 0x3fe7 @0xd
0x3fda…4015 at000e = ╱44╱D╱ // 0x3fe8 @0xe
0x3fda…4015 at000f = ╱65╱e╱ // 0x3fe9 @0xf
0x3fda…4015 at0010 = ╱72╱r╱ // 0x3fea @0x10
0x3fda…4015 at0011 = ╱20╱…╱ // 0x3feb @0x11
0x3fda…4015 at0012 = ╱76╱v╱ // 0x3fec @0x12
0x3fda…4015 at0013 = ╱65╱e╱ // 0x3fed @0x13
0x3fda…4015 at0014 = ╱6e╱n╱ // 0x3fee @0x14
0x3fda…4015 at0015 = ╱74╱t╱ // 0x3fef @0x15
0x3fda…4015 at0016 = ╱65╱e╱ // 0x3ff0 @0x16
0x3fda…4015 at0017 = ╱73╱s╱ // 0x3ff1 @0x17
0x3fda…4015 at0018 = ╱20╱…╱ // 0x3ff2 @0x18
0x3fda…4015 at0019 = ╱70╱p╱ // 0x3ff3 @0x19
0x3fda…4015 at001a = ╱7d╱}╱ // 0x3ff4 @0x1a
0x3fda…4015 at001b = ╱20╱…╱ // 0x3ff5 @0x1b
0x3fda…4015 at001c = ╱61╱a╱ // 0x3ff6 @0x1c
0x3fda…4015 at001d = ╱74╱t╱ // 0x3ff7 @0x1d
0x3fda…4015 at001e = ╱20╱…╱ // 0x3ff8 @0x1e
0x3fda…4015 at001f = ╱70╱p╱ // 0x3ff9 @0x1f
0x3fda…4015 at0020 = ╱72╱r╱ // 0x3ffa @0x20
0x3fda…4015 at0021 = ╱69╱i╱ // 0x3ffb @0x21
0x3fda…4015 at0022 = ╱6e╱n╱ // 0x3ffc @0x22
0x3fda…4015 at0023 = ╱74╱t╱ // 0x3ffd @0x23
0x3fda…4015 at0024 = ╱65╱e╱ // 0x3ffe @0x24
0x3fda…4015 at0025 = ╱72╱r╱ // 0x3fff @0x25
0x3fda…4015 at0026 = ╱65╱e╱ // 0x4000 @0x26
0x3fda…4015 at0027 = ╱6e╱n╱ // 0x4001 @0x27
0x3fda…4015 at0028 = ╱20╱…╱ // 0x4002 @0x28
0x3fda…4015 at0029 = ╱62╱b╱ // 0x4003 @0x29
0x3fda…4015 at002a = ╱6c╱l╱ // 0x4004 @0x2a
0x3fda…4015 at002b = ╱69╱i╱ // 0x4005 @0x2b
0x3fda…4015 at002c = ╱76╱v╱ // 0x4006 @0x2c
0x3fda…4015 at002d = ╱65╱e╱ // 0x4007 @0x2d
0x3fda…4015 at002e = ╱72╱r╱ // 0x4008 @0x2e
0x3fda…4015 at002f = ╱20╱…╱ // 0x4009 @0x2f
0x3fda…4015 at0030 = ╱6c╱l╱ // 0x400a @0x30
0x3fda…4015 at0031 = ╱65╱e╱ // 0x400b @0x31
0x3fda…4015 at0032 = ╱64╱d╱ // 0x400c @0x32
0x3fda…4015 at0033 = ╱69╱i╱ // 0x400d @0x33
0x3fda…4015 at0034 = ╱67╱g╱ // 0x400e @0x34
0x3fda…4015 at0035 = ╱2e╱.╱ // 0x400f @0x35
0x3fda…4015 at0036 = ╱2e╱.╱ // 0x4010 @0x36
0x3fda…4015 at0037 = ╱2e╱.╱ // 0x4011 @0x37
0x3fda…4015 at0038 = ╱2e╱.╱ // 0x4012 @0x38
0x3fda…4015 at0039 = ╱22╱"╱ // 0x4013 @0x39
0x3fda…4015 at003a = EOL // 0x4014 @0x3a
0x3fda…4015 }
0x4015…4021 d60f 05730 PRINT "<SZ>"
0x4015…4021 LineComal80 {
0x4015…4021 ptr = 0xd60f // 0x4015 @0x0
0x4015…4021 lno = 0x1662 // 0x4017 @0x2
0x4015…4021 at0004 = ╱92╱ PRINT ╱ // 0x4019 @0x4
0x4015…4021 at0005 = ╱22╱"╱ // 0x401a @0x5
0x4015…4021 at0006 = ╱3c╱<╱ // 0x401b @0x6
0x4015…4021 at0007 = ╱53╱S╱ // 0x401c @0x7
0x4015…4021 at0008 = ╱5a╱Z╱ // 0x401d @0x8
0x4015…4021 at0009 = ╱3e╱>╱ // 0x401e @0x9
0x4015…4021 at000a = ╱22╱"╱ // 0x401f @0xa
0x4015…4021 at000b = EOL // 0x4020 @0xb
0x4015…4021 }
0x4021…402f d61d 05740 WHILE ╱cd╱ ( "P" ) DO
0x4021…402f LineComal80 {
0x4021…402f ptr = 0xd61d // 0x4021 @0x0
0x4021…402f lno = 0x166c // 0x4023 @0x2
0x4021…402f at0004 = ╱936e╱ WHILE ╱ // 0x4025 @0x4
0x4021…402f at0006 = ╱cd╱ // 0x4027 @0x6
0x4021…402f at0007 = ╱ed╱ ( ╱ // 0x4028 @0x7
0x4021…402f at0008 = ╱22╱"╱ // 0x4029 @0x8
0x4021…402f at0009 = ╱50╱P╱ // 0x402a @0x9
0x4021…402f at000a = ╱22╱"╱ // 0x402b @0xa
0x4021…402f at000b = ╱ee╱ ) ╱ // 0x402c @0xb
0x4021…402f at000c = ╱bb╱ DO ╱ // 0x402d @0xc
0x4021…402f at000d = EOL // 0x402e @0xd
0x4021…402f }
0x402f…4040 d62e 05750 LET SEK := ╱ca╱ ( 5 )
0x402f…4040 LineComal80 {
0x402f…4040 ptr = 0xd62e // 0x402f @0x0
0x402f…4040 lno = 0x1676 // 0x4031 @0x2
0x402f…4040 at0004 = ╱86╱ LET ╱ // 0x4033 @0x4
0x402f…4040 at0005 = ╱53╱S╱ // 0x4034 @0x5
0x402f…4040 at0006 = ╱45╱E╱ // 0x4035 @0x6
0x402f…4040 at0007 = ╱4b╱K╱ // 0x4036 @0x7
0x402f…4040 at0008 = ╱f0╱ := ╱ // 0x4037 @0x8
0x402f…4040 at0009 = ╱ca╱ // 0x4038 @0x9
0x402f…4040 at000a = ╱ed╱ ( ╱ // 0x4039 @0xa
0x402f…4040 at000b = ╱35╱5╱ // 0x403a @0xb
0x402f…4040 at000c = ╱f20500╱ // 0x403b @0xc
0x402f…4040 at000f = ╱ee╱ ) ╱ // 0x403e @0xf
0x402f…4040 at0010 = EOL // 0x403f @0x10
0x402f…4040 }
0x4040…4050 d63e 05760 SELECT OUTPUT "P" + PRTNR $
0x4040…4050 LineComal80 {
0x4040…4050 ptr = 0xd63e // 0x4040 @0x0
0x4040…4050 lno = 0x1680 // 0x4042 @0x2
0x4040…4050 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x4044 @0x4
0x4040…4050 at0005 = ╱22╱"╱ // 0x4045 @0x5
0x4040…4050 at0006 = ╱50╱P╱ // 0x4046 @0x6
0x4040…4050 at0007 = ╱22╱"╱ // 0x4047 @0x7
0x4040…4050 at0008 = ╱eb╱ + ╱ // 0x4048 @0x8
0x4040…4050 at0009 = ╱50╱P╱ // 0x4049 @0x9
0x4040…4050 at000a = ╱52╱R╱ // 0x404a @0xa
0x4040…4050 at000b = ╱54╱T╱ // 0x404b @0xb
0x4040…4050 at000c = ╱4e╱N╱ // 0x404c @0xc
0x4040…4050 at000d = ╱52╱R╱ // 0x404d @0xd
0x4040…4050 at000e = ╱ef╱ $ ╱ // 0x404e @0xe
0x4040…4050 at000f = EOL // 0x404f @0xf
0x4040…4050 }
0x4050…4056 d644 05770 ENDWHILE
0x4050…4056 LineComal80 {
0x4050…4056 ptr = 0xd644 // 0x4050 @0x0
0x4050…4056 lno = 0x168a // 0x4052 @0x2
0x4050…4056 at0004 = ╱94╱ ENDWHILE ╱ // 0x4054 @0x4
0x4050…4056 at0005 = EOL // 0x4055 @0x5
0x4050…4056 }
0x4056…405d d64b 05780 ELSE
0x4056…405d LineComal80 {
0x4056…405d ptr = 0xd64b // 0x4056 @0x0
0x4056…405d lno = 0x1694 // 0x4058 @0x2
0x4056…405d at0004 = ╱9a6f╱ ELSE ╱ // 0x405a @0x4
0x4056…405d at0006 = EOL // 0x405c @0x6
0x4056…405d }
0x405d…406b d659 05790 LET OK := FALSE
0x405d…406b LineComal80 {
0x405d…406b ptr = 0xd659 // 0x405d @0x0
0x405d…406b lno = 0x169e // 0x405f @0x2
0x405d…406b at0004 = ╱86╱ LET ╱ // 0x4061 @0x4
0x405d…406b at0005 = ╱4f╱O╱ // 0x4062 @0x5
0x405d…406b at0006 = ╱4b╱K╱ // 0x4063 @0x6
0x405d…406b at0007 = ╱f0╱ := ╱ // 0x4064 @0x7
0x405d…406b at0008 = ╱46╱F╱ // 0x4065 @0x8
0x405d…406b at0009 = ╱41╱A╱ // 0x4066 @0x9
0x405d…406b at000a = ╱4c╱L╱ // 0x4067 @0xa
0x405d…406b at000b = ╱53╱S╱ // 0x4068 @0xb
0x405d…406b at000c = ╱45╱E╱ // 0x4069 @0xc
0x405d…406b at000d = EOL // 0x406a @0xd
0x405d…406b }
0x406b…4071 d65f 05800 ENDIF
0x406b…4071 LineComal80 {
0x406b…4071 ptr = 0xd65f // 0x406b @0x0
0x406b…4071 lno = 0x16a8 // 0x406d @0x2
0x406b…4071 at0004 = ╱9c╱ ENDIF ╱ // 0x406f @0x4
0x406b…4071 at0005 = EOL // 0x4070 @0x5
0x406b…4071 }
0x4071…4077 d665 05810 ENDIF
0x4071…4077 LineComal80 {
0x4071…4077 ptr = 0xd665 // 0x4071 @0x0
0x4071…4077 lno = 0x16b2 // 0x4073 @0x2
0x4071…4077 at0004 = ╱9c╱ ENDIF ╱ // 0x4075 @0x4
0x4071…4077 at0005 = EOL // 0x4076 @0x5
0x4071…4077 }
0x4077…4086 d674 05820 CURSOR 1 , LINE
0x4077…4086 LineComal80 {
0x4077…4086 ptr = 0xd674 // 0x4077 @0x0
0x4077…4086 lno = 0x16bc // 0x4079 @0x2
0x4077…4086 at0004 = ╱a1╱ CURSOR ╱ // 0x407b @0x4
0x4077…4086 at0005 = ╱31╱1╱ // 0x407c @0x5
0x4077…4086 at0006 = ╱f20100╱ // 0x407d @0x6
0x4077…4086 at0009 = ╱ec╱ , ╱ // 0x4080 @0x9
0x4077…4086 at000a = ╱4c╱L╱ // 0x4081 @0xa
0x4077…4086 at000b = ╱49╱I╱ // 0x4082 @0xb
0x4077…4086 at000c = ╱4e╱N╱ // 0x4083 @0xc
0x4077…4086 at000d = ╱45╱E╱ // 0x4084 @0xd
0x4077…4086 at000e = EOL // 0x4085 @0xe
0x4077…4086 }
0x4086…4091 d67f 05830 PRINT "<Z>"
0x4086…4091 LineComal80 {
0x4086…4091 ptr = 0xd67f // 0x4086 @0x0
0x4086…4091 lno = 0x16c6 // 0x4088 @0x2
0x4086…4091 at0004 = ╱92╱ PRINT ╱ // 0x408a @0x4
0x4086…4091 at0005 = ╱22╱"╱ // 0x408b @0x5
0x4086…4091 at0006 = ╱3c╱<╱ // 0x408c @0x6
0x4086…4091 at0007 = ╱5a╱Z╱ // 0x408d @0x7
0x4086…4091 at0008 = ╱3e╱>╱ // 0x408e @0x8
0x4086…4091 at0009 = ╱22╱"╱ // 0x408f @0x9
0x4086…4091 at000a = EOL // 0x4090 @0xa
0x4086…4091 }
0x4091…409d d68b 05840 PRINT "<SZ>"
0x4091…409d LineComal80 {
0x4091…409d ptr = 0xd68b // 0x4091 @0x0
0x4091…409d lno = 0x16d0 // 0x4093 @0x2
0x4091…409d at0004 = ╱92╱ PRINT ╱ // 0x4095 @0x4
0x4091…409d at0005 = ╱22╱"╱ // 0x4096 @0x5
0x4091…409d at0006 = ╱3c╱<╱ // 0x4097 @0x6
0x4091…409d at0007 = ╱53╱S╱ // 0x4098 @0x7
0x4091…409d at0008 = ╱5a╱Z╱ // 0x4099 @0x8
0x4091…409d at0009 = ╱3e╱>╱ // 0x409a @0x9
0x4091…409d at000a = ╱22╱"╱ // 0x409b @0xa
0x4091…409d at000b = EOL // 0x409c @0xb
0x4091…409d }
0x409d…40ab d707 05850 ENDPROC PRINTRES
0x409d…40ab LineComal80 {
0x409d…40ab ptr = 0xd707 // 0x409d @0x0
0x409d…40ab lno = 0x16da // 0x409f @0x2
0x409d…40ab at0004 = ╱9f╱ ENDPROC ╱ // 0x40a1 @0x4
0x409d…40ab at0005 = ╱50╱P╱ // 0x40a2 @0x5
0x409d…40ab at0006 = ╱52╱R╱ // 0x40a3 @0x6
0x409d…40ab at0007 = ╱49╱I╱ // 0x40a4 @0x7
0x409d…40ab at0008 = ╱4e╱N╱ // 0x40a5 @0x8
0x409d…40ab at0009 = ╱54╱T╱ // 0x40a6 @0x9
0x409d…40ab at000a = ╱52╱R╱ // 0x40a7 @0xa
0x409d…40ab at000b = ╱45╱E╱ // 0x40a8 @0xb
0x409d…40ab at000c = ╱53╱S╱ // 0x40a9 @0xc
0x409d…40ab at000d = EOL // 0x40aa @0xd
0x409d…40ab }
0x40ab…40c4 (215,) b67f 03270 PRINT "<Z>" ; CHR$ ( R_LIN , 2 )
0x40ab…40c4 LineComal80 {
0x40ab…40c4 ptr = 0xb67f // 0x40ab @0x0
0x40ab…40c4 lno = 0x0cc6 // 0x40ad @0x2
0x40ab…40c4 at0004 = ╱92╱ PRINT ╱ // 0x40af @0x4
0x40ab…40c4 at0005 = ╱22╱"╱ // 0x40b0 @0x5
0x40ab…40c4 at0006 = ╱3c╱<╱ // 0x40b1 @0x6
0x40ab…40c4 at0007 = ╱5a╱Z╱ // 0x40b2 @0x7
0x40ab…40c4 at0008 = ╱3e╱>╱ // 0x40b3 @0x8
0x40ab…40c4 at0009 = ╱22╱"╱ // 0x40b4 @0x9
0x40ab…40c4 at000a = ╱ea╱ ; ╱ // 0x40b5 @0xa
0x40ab…40c4 at000b = ╱d0╱ CHR$ ╱ // 0x40b6 @0xb
0x40ab…40c4 at000c = ╱ed╱ ( ╱ // 0x40b7 @0xc
0x40ab…40c4 at000d = ╱52╱R╱ // 0x40b8 @0xd
0x40ab…40c4 at000e = ╱5f╱_╱ // 0x40b9 @0xe
0x40ab…40c4 at000f = ╱4c╱L╱ // 0x40ba @0xf
0x40ab…40c4 at0010 = ╱49╱I╱ // 0x40bb @0x10
0x40ab…40c4 at0011 = ╱4e╱N╱ // 0x40bc @0x11
0x40ab…40c4 at0012 = ╱ec╱ , ╱ // 0x40bd @0x12
0x40ab…40c4 at0013 = ╱32╱2╱ // 0x40be @0x13
0x40ab…40c4 at0014 = ╱f20200╱ // 0x40bf @0x14
0x40ab…40c4 at0017 = ╱ee╱ ) ╱ // 0x40c2 @0x17
0x40ab…40c4 at0018 = EOL // 0x40c3 @0x18
0x40ab…40c4 }
0x40c4…4109 c156 04455 PUT DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS , P_DEB , P_KRED , P_BDAT $
0x40c4…4109 LineComal80 {
0x40c4…4109 ptr = 0xc156 // 0x40c4 @0x0
0x40c4…4109 lno = 0x1167 // 0x40c6 @0x2
0x40c4…4109 at0004 = ╱aa╱ PUT ╱ // 0x40c8 @0x4
0x40c4…4109 at0005 = ╱44╱D╱ // 0x40c9 @0x5
0x40c4…4109 at0006 = ╱47╱G╱ // 0x40ca @0x6
0x40c4…4109 at0007 = ╱5f╱_╱ // 0x40cb @0x7
0x40c4…4109 at0008 = ╱50╱P╱ // 0x40cc @0x8
0x40c4…4109 at0009 = ╱4f╱O╱ // 0x40cd @0x9
0x40c4…4109 at000a = ╱53╱S╱ // 0x40ce @0xa
0x40c4…4109 at000b = ╱ef╱ $ ╱ // 0x40cf @0xb
0x40c4…4109 at000c = ╱ec╱ , ╱ // 0x40d0 @0xc
0x40c4…4109 at000d = ╱31╱1╱ // 0x40d1 @0xd
0x40c4…4109 at000e = ╱f20100╱ // 0x40d2 @0xe
0x40c4…4109 at0011 = ╱f1╱ : ╱ // 0x40d5 @0x11
0x40c4…4109 at0012 = ╱50╱P╱ // 0x40d6 @0x12
0x40c4…4109 at0013 = ╱5f╱_╱ // 0x40d7 @0x13
0x40c4…4109 at0014 = ╱48╱H╱ // 0x40d8 @0x14
0x40c4…4109 at0015 = ╱5c╱\╱ // 0x40d9 @0x15
0x40c4…4109 at0016 = ╱4a╱J╱ // 0x40da @0x16
0x40c4…4109 at0017 = ╱52╱R╱ // 0x40db @0x17
0x40c4…4109 at0018 = ╱45╱E╱ // 0x40dc @0x18
0x40c4…4109 at0019 = ╱43╱C╱ // 0x40dd @0x19
0x40c4…4109 at001a = ╱ec╱ , ╱ // 0x40de @0x1a
0x40c4…4109 at001b = ╱50╱P╱ // 0x40df @0x1b
0x40c4…4109 at001c = ╱5f╱_╱ // 0x40e0 @0x1c
0x40c4…4109 at001d = ╱4d╱M╱ // 0x40e1 @0x1d
0x40c4…4109 at001e = ╱41╱A╱ // 0x40e2 @0x1e
0x40c4…4109 at001f = ╱58╱X╱ // 0x40e3 @0x1f
0x40c4…4109 at0020 = ╱52╱R╱ // 0x40e4 @0x20
0x40c4…4109 at0021 = ╱45╱E╱ // 0x40e5 @0x21
0x40c4…4109 at0022 = ╱43╱C╱ // 0x40e6 @0x22
0x40c4…4109 at0023 = ╱ec╱ , ╱ // 0x40e7 @0x23
0x40c4…4109 at0024 = ╱53╱S╱ // 0x40e8 @0x24
0x40c4…4109 at0025 = ╱5f╱_╱ // 0x40e9 @0x25
0x40c4…4109 at0026 = ╱4e╱N╱ // 0x40ea @0x26
0x40c4…4109 at0027 = ╱52╱R╱ // 0x40eb @0x27
0x40c4…4109 at0028 = ╱5f╱_╱ // 0x40ec @0x28
0x40c4…4109 at0029 = ╱44╱D╱ // 0x40ed @0x29
0x40c4…4109 at002a = ╱47╱G╱ // 0x40ee @0x2a
0x40c4…4109 at002b = ╱5f╱_╱ // 0x40ef @0x2b
0x40c4…4109 at002c = ╱50╱P╱ // 0x40f0 @0x2c
0x40c4…4109 at002d = ╱4f╱O╱ // 0x40f1 @0x2d
0x40c4…4109 at002e = ╱53╱S╱ // 0x40f2 @0x2e
0x40c4…4109 at002f = ╱ec╱ , ╱ // 0x40f3 @0x2f
0x40c4…4109 at0030 = ╱50╱P╱ // 0x40f4 @0x30
0x40c4…4109 at0031 = ╱5f╱_╱ // 0x40f5 @0x31
0x40c4…4109 at0032 = ╱44╱D╱ // 0x40f6 @0x32
0x40c4…4109 at0033 = ╱45╱E╱ // 0x40f7 @0x33
0x40c4…4109 at0034 = ╱42╱B╱ // 0x40f8 @0x34
0x40c4…4109 at0035 = ╱ec╱ , ╱ // 0x40f9 @0x35
0x40c4…4109 at0036 = ╱50╱P╱ // 0x40fa @0x36
0x40c4…4109 at0037 = ╱5f╱_╱ // 0x40fb @0x37
0x40c4…4109 at0038 = ╱4b╱K╱ // 0x40fc @0x38
0x40c4…4109 at0039 = ╱52╱R╱ // 0x40fd @0x39
0x40c4…4109 at003a = ╱45╱E╱ // 0x40fe @0x3a
0x40c4…4109 at003b = ╱44╱D╱ // 0x40ff @0x3b
0x40c4…4109 at003c = ╱ec╱ , ╱ // 0x4100 @0x3c
0x40c4…4109 at003d = ╱50╱P╱ // 0x4101 @0x3d
0x40c4…4109 at003e = ╱5f╱_╱ // 0x4102 @0x3e
0x40c4…4109 at003f = ╱42╱B╱ // 0x4103 @0x3f
0x40c4…4109 at0040 = ╱44╱D╱ // 0x4104 @0x40
0x40c4…4109 at0041 = ╱41╱A╱ // 0x4105 @0x41
0x40c4…4109 at0042 = ╱54╱T╱ // 0x4106 @0x42
0x40c4…4109 at0043 = ╱ef╱ $ ╱ // 0x4107 @0x43
0x40c4…4109 at0044 = EOL // 0x4108 @0x44
0x40c4…4109 }
0x4109…4119 d027 01995 EXEC SKRIV_DIFF
0x4109…4119 LineComal80 {
0x4109…4119 ptr = 0xd027 // 0x4109 @0x0
0x4109…4119 lno = 0x07cb // 0x410b @0x2
0x4109…4119 at0004 = ╱9d╱ EXEC ╱ // 0x410d @0x4
0x4109…4119 at0005 = ╱53╱S╱ // 0x410e @0x5
0x4109…4119 at0006 = ╱4b╱K╱ // 0x410f @0x6
0x4109…4119 at0007 = ╱52╱R╱ // 0x4110 @0x7
0x4109…4119 at0008 = ╱49╱I╱ // 0x4111 @0x8
0x4109…4119 at0009 = ╱56╱V╱ // 0x4112 @0x9
0x4109…4119 at000a = ╱5f╱_╱ // 0x4113 @0xa
0x4109…4119 at000b = ╱44╱D╱ // 0x4114 @0xb
0x4109…4119 at000c = ╱49╱I╱ // 0x4115 @0xc
0x4109…4119 at000d = ╱46╱F╱ // 0x4116 @0xd
0x4109…4119 at000e = ╱46╱F╱ // 0x4117 @0xe
0x4109…4119 at000f = EOL // 0x4118 @0xf
0x4109…4119 }
0x4119…4131 d71f 08000 PROC REMOVEBLANK ( REF [[ $ )
0x4119…4131 LineComal80 {
0x4119…4131 ptr = 0xd71f // 0x4119 @0x0
0x4119…4131 lno = 0x1f40 // 0x411b @0x2
0x4119…4131 at0004 = ╱9e70╱ PROC ╱ // 0x411d @0x4
0x4119…4131 at0006 = ╱52╱R╱ // 0x411f @0x6
0x4119…4131 at0007 = ╱45╱E╱ // 0x4120 @0x7
0x4119…4131 at0008 = ╱4d╱M╱ // 0x4121 @0x8
0x4119…4131 at0009 = ╱4f╱O╱ // 0x4122 @0x9
0x4119…4131 at000a = ╱56╱V╱ // 0x4123 @0xa
0x4119…4131 at000b = ╱45╱E╱ // 0x4124 @0xb
0x4119…4131 at000c = ╱42╱B╱ // 0x4125 @0xc
0x4119…4131 at000d = ╱4c╱L╱ // 0x4126 @0xd
0x4119…4131 at000e = ╱41╱A╱ // 0x4127 @0xe
0x4119…4131 at000f = ╱4e╱N╱ // 0x4128 @0xf
0x4119…4131 at0010 = ╱4b╱K╱ // 0x4129 @0x10
0x4119…4131 at0011 = ╱ed╱ ( ╱ // 0x412a @0x11
0x4119…4131 at0012 = ╱b6╱ REF ╱ // 0x412b @0x12
0x4119…4131 at0013 = ╱5b╱[╱ // 0x412c @0x13
0x4119…4131 at0014 = ╱5b╱[╱ // 0x412d @0x14
0x4119…4131 at0015 = ╱ef╱ $ ╱ // 0x412e @0x15
0x4119…4131 at0016 = ╱ee╱ ) ╱ // 0x412f @0x16
0x4119…4131 at0017 = EOL // 0x4130 @0x17
0x4119…4131 }
0x4131…413d d72b 08010 LET J := 0
0x4131…413d LineComal80 {
0x4131…413d ptr = 0xd72b // 0x4131 @0x0
0x4131…413d lno = 0x1f4a // 0x4133 @0x2
0x4131…413d at0004 = ╱86╱ LET ╱ // 0x4135 @0x4
0x4131…413d at0005 = ╱4a╱J╱ // 0x4136 @0x5
0x4131…413d at0006 = ╱f0╱ := ╱ // 0x4137 @0x6
0x4131…413d at0007 = ╱30╱0╱ // 0x4138 @0x7
0x4131…413d at0008 = ╱f20000╱ // 0x4139 @0x8
0x4131…413d at000b = EOL // 0x413c @0xb
0x4131…413d }
0x413d…4152 d740 08020 FOR I := 1 TO ( [[ $ ) DO
0x413d…4152 LineComal80 {
0x413d…4152 ptr = 0xd740 // 0x413d @0x0
0x413d…4152 lno = 0x1f54 // 0x413f @0x2
0x413d…4152 at0004 = ╱8371╱ FOR ╱ // 0x4141 @0x4
0x413d…4152 at0006 = ╱49╱I╱ // 0x4143 @0x6
0x413d…4152 at0007 = ╱f0╱ := ╱ // 0x4144 @0x7
0x413d…4152 at0008 = ╱31╱1╱ // 0x4145 @0x8
0x413d…4152 at0009 = ╱f20100╱ // 0x4146 @0x9
0x413d…4152 at000c = ╱b7cb╱ TO ╱ // 0x4149 @0xc
0x413d…4152 at000e = ╱ed╱ ( ╱ // 0x414b @0xe
0x413d…4152 at000f = ╱5b╱[╱ // 0x414c @0xf
0x413d…4152 at0010 = ╱5b╱[╱ // 0x414d @0x10
0x413d…4152 at0011 = ╱ef╱ $ ╱ // 0x414e @0x11
0x413d…4152 at0012 = ╱ee╱ ) ╱ // 0x414f @0x12
0x413d…4152 at0013 = ╱bb╱ DO ╱ // 0x4150 @0x13
0x413d…4152 at0014 = EOL // 0x4151 @0x14
0x413d…4152 }
0x4152…417b d769 08030 IF [[ $ ( I ) >< "…" THEN LET J := J + 1 ; [[ $ ( J ) := [[ $ ( I )
0x4152…417b LineComal80 {
0x4152…417b ptr = 0xd769 // 0x4152 @0x0
0x4152…417b lno = 0x1f5e // 0x4154 @0x2
0x4152…417b at0004 = ╱8200╱ IF ╱ // 0x4156 @0x4
0x4152…417b at0006 = ╱5b╱[╱ // 0x4158 @0x6
0x4152…417b at0007 = ╱5b╱[╱ // 0x4159 @0x7
0x4152…417b at0008 = ╱ef╱ $ ╱ // 0x415a @0x8
0x4152…417b at0009 = ╱ed╱ ( ╱ // 0x415b @0x9
0x4152…417b at000a = ╱49╱I╱ // 0x415c @0xa
0x4152…417b at000b = ╱ee╱ ) ╱ // 0x415d @0xb
0x4152…417b at000c = ╱e4╱ >< ╱ // 0x415e @0xc
0x4152…417b at000d = ╱22╱"╱ // 0x415f @0xd
0x4152…417b at000e = ╱20╱…╱ // 0x4160 @0xe
0x4152…417b at000f = ╱22╱"╱ // 0x4161 @0xf
0x4152…417b at0010 = ╱b5╱ THEN ╱ // 0x4162 @0x10
0x4152…417b at0011 = ╱86╱ LET ╱ // 0x4163 @0x11
0x4152…417b at0012 = ╱4a╱J╱ // 0x4164 @0x12
0x4152…417b at0013 = ╱f0╱ := ╱ // 0x4165 @0x13
0x4152…417b at0014 = ╱4a╱J╱ // 0x4166 @0x14
0x4152…417b at0015 = ╱e5╱ + ╱ // 0x4167 @0x15
0x4152…417b at0016 = ╱31╱1╱ // 0x4168 @0x16
0x4152…417b at0017 = ╱f20100╱ // 0x4169 @0x17
0x4152…417b at001a = ╱ea╱ ; ╱ // 0x416c @0x1a
0x4152…417b at001b = ╱5b╱[╱ // 0x416d @0x1b
0x4152…417b at001c = ╱5b╱[╱ // 0x416e @0x1c
0x4152…417b at001d = ╱ef╱ $ ╱ // 0x416f @0x1d
0x4152…417b at001e = ╱ed╱ ( ╱ // 0x4170 @0x1e
0x4152…417b at001f = ╱4a╱J╱ // 0x4171 @0x1f
0x4152…417b at0020 = ╱ee╱ ) ╱ // 0x4172 @0x20
0x4152…417b at0021 = ╱f0╱ := ╱ // 0x4173 @0x21
0x4152…417b at0022 = ╱5b╱[╱ // 0x4174 @0x22
0x4152…417b at0023 = ╱5b╱[╱ // 0x4175 @0x23
0x4152…417b at0024 = ╱ef╱ $ ╱ // 0x4176 @0x24
0x4152…417b at0025 = ╱ed╱ ( ╱ // 0x4177 @0x25
0x4152…417b at0026 = ╱49╱I╱ // 0x4178 @0x26
0x4152…417b at0027 = ╱ee╱ ) ╱ // 0x4179 @0x27
0x4152…417b at0028 = EOL // 0x417a @0x28
0x4152…417b }
0x417b…4182 d770 08040 NEXT I
0x417b…4182 LineComal80 {
0x417b…4182 ptr = 0xd770 // 0x417b @0x0
0x417b…4182 lno = 0x1f68 // 0x417d @0x2
0x417b…4182 at0004 = ╱84╱ NEXT ╱ // 0x417f @0x4
0x417b…4182 at0005 = ╱49╱I╱ // 0x4180 @0x5
0x417b…4182 at0006 = EOL // 0x4181 @0x6
0x417b…4182 }
0x4182…4197 d785 08045 LET [[ $ := [[ $ ( 1 : J )
0x4182…4197 LineComal80 {
0x4182…4197 ptr = 0xd785 // 0x4182 @0x0
0x4182…4197 lno = 0x1f6d // 0x4184 @0x2
0x4182…4197 at0004 = ╱86╱ LET ╱ // 0x4186 @0x4
0x4182…4197 at0005 = ╱5b╱[╱ // 0x4187 @0x5
0x4182…4197 at0006 = ╱5b╱[╱ // 0x4188 @0x6
0x4182…4197 at0007 = ╱ef╱ $ ╱ // 0x4189 @0x7
0x4182…4197 at0008 = ╱f0╱ := ╱ // 0x418a @0x8
0x4182…4197 at0009 = ╱5b╱[╱ // 0x418b @0x9
0x4182…4197 at000a = ╱5b╱[╱ // 0x418c @0xa
0x4182…4197 at000b = ╱ef╱ $ ╱ // 0x418d @0xb
0x4182…4197 at000c = ╱ed╱ ( ╱ // 0x418e @0xc
0x4182…4197 at000d = ╱31╱1╱ // 0x418f @0xd
0x4182…4197 at000e = ╱f20100╱ // 0x4190 @0xe
0x4182…4197 at0011 = ╱f1╱ : ╱ // 0x4193 @0x11
0x4182…4197 at0012 = ╱4a╱J╱ // 0x4194 @0x12
0x4182…4197 at0013 = ╱ee╱ ) ╱ // 0x4195 @0x13
0x4182…4197 at0014 = EOL // 0x4196 @0x14
0x4182…4197 }
0x4197…41a8 0000 08050 ENDPROC REMOVEBLANK
0x4197…41a8 LineComal80 {
0x4197…41a8 ptr = 0x0000 // 0x4197 @0x0
0x4197…41a8 lno = 0x1f72 // 0x4199 @0x2
0x4197…41a8 at0004 = ╱9f╱ ENDPROC ╱ // 0x419b @0x4
0x4197…41a8 at0005 = ╱52╱R╱ // 0x419c @0x5
0x4197…41a8 at0006 = ╱45╱E╱ // 0x419d @0x6
0x4197…41a8 at0007 = ╱4d╱M╱ // 0x419e @0x7
0x4197…41a8 at0008 = ╱4f╱O╱ // 0x419f @0x8
0x4197…41a8 at0009 = ╱56╱V╱ // 0x41a0 @0x9
0x4197…41a8 at000a = ╱45╱E╱ // 0x41a1 @0xa
0x4197…41a8 at000b = ╱42╱B╱ // 0x41a2 @0xb
0x4197…41a8 at000c = ╱4c╱L╱ // 0x41a3 @0xc
0x4197…41a8 at000d = ╱41╱A╱ // 0x41a4 @0xd
0x4197…41a8 at000e = ╱4e╱N╱ // 0x41a5 @0xe
0x4197…41a8 at000f = ╱4b╱K╱ // 0x41a6 @0xf
0x4197…41a8 at0010 = EOL // 0x41a7 @0x10
0x4197…41a8 }
0x41a8…41c0 bb06 03715 EXEC REMOVEBLANK ( SVAR $ )
0x41a8…41c0 LineComal80 {
0x41a8…41c0 ptr = 0xbb06 // 0x41a8 @0x0
0x41a8…41c0 lno = 0x0e83 // 0x41aa @0x2
0x41a8…41c0 at0004 = ╱9d╱ EXEC ╱ // 0x41ac @0x4
0x41a8…41c0 at0005 = ╱52╱R╱ // 0x41ad @0x5
0x41a8…41c0 at0006 = ╱45╱E╱ // 0x41ae @0x6
0x41a8…41c0 at0007 = ╱4d╱M╱ // 0x41af @0x7
0x41a8…41c0 at0008 = ╱4f╱O╱ // 0x41b0 @0x8
0x41a8…41c0 at0009 = ╱56╱V╱ // 0x41b1 @0x9
0x41a8…41c0 at000a = ╱45╱E╱ // 0x41b2 @0xa
0x41a8…41c0 at000b = ╱42╱B╱ // 0x41b3 @0xb
0x41a8…41c0 at000c = ╱4c╱L╱ // 0x41b4 @0xc
0x41a8…41c0 at000d = ╱41╱A╱ // 0x41b5 @0xd
0x41a8…41c0 at000e = ╱4e╱N╱ // 0x41b6 @0xe
0x41a8…41c0 at000f = ╱4b╱K╱ // 0x41b7 @0xf
0x41a8…41c0 at0010 = ╱ed╱ ( ╱ // 0x41b8 @0x10
0x41a8…41c0 at0011 = ╱53╱S╱ // 0x41b9 @0x11
0x41a8…41c0 at0012 = ╱56╱V╱ // 0x41ba @0x12
0x41a8…41c0 at0013 = ╱41╱A╱ // 0x41bb @0x13
0x41a8…41c0 at0014 = ╱52╱R╱ // 0x41bc @0x14
0x41a8…41c0 at0015 = ╱ef╱ $ ╱ // 0x41bd @0x15
0x41a8…41c0 at0016 = ╱ee╱ ) ╱ // 0x41be @0x16
0x41a8…41c0 at0017 = EOL // 0x41bf @0x17
0x41a8…41c0 }
0x41c0…41d0 ad48 02215 EXEC SKRIV_DIFF
0x41c0…41d0 LineComal80 {
0x41c0…41d0 ptr = 0xad48 // 0x41c0 @0x0
0x41c0…41d0 lno = 0x08a7 // 0x41c2 @0x2
0x41c0…41d0 at0004 = ╱9d╱ EXEC ╱ // 0x41c4 @0x4
0x41c0…41d0 at0005 = ╱53╱S╱ // 0x41c5 @0x5
0x41c0…41d0 at0006 = ╱4b╱K╱ // 0x41c6 @0x6
0x41c0…41d0 at0007 = ╱52╱R╱ // 0x41c7 @0x7
0x41c0…41d0 at0008 = ╱49╱I╱ // 0x41c8 @0x8
0x41c0…41d0 at0009 = ╱56╱V╱ // 0x41c9 @0x9
0x41c0…41d0 at000a = ╱5f╱_╱ // 0x41ca @0xa
0x41c0…41d0 at000b = ╱44╱D╱ // 0x41cb @0xb
0x41c0…41d0 at000c = ╱49╱I╱ // 0x41cc @0xc
0x41c0…41d0 at000d = ╱46╱F╱ // 0x41cd @0xd
0x41c0…41d0 at000e = ╱46╱F╱ // 0x41ce @0xe
0x41c0…41d0 at000f = EOL // 0x41cf @0xf
0x41c0…41d0 }
0x41d0…41f0 af92 02485 IF P_H\JREC > 1 THEN EXEC SKRIV_DIFF
0x41d0…41f0 LineComal80 {
0x41d0…41f0 ptr = 0xaf92 // 0x41d0 @0x0
0x41d0…41f0 lno = 0x09b5 // 0x41d2 @0x2
0x41d0…41f0 at0004 = ╱8200╱ IF ╱ // 0x41d4 @0x4
0x41d0…41f0 at0006 = ╱50╱P╱ // 0x41d6 @0x6
0x41d0…41f0 at0007 = ╱5f╱_╱ // 0x41d7 @0x7
0x41d0…41f0 at0008 = ╱48╱H╱ // 0x41d8 @0x8
0x41d0…41f0 at0009 = ╱5c╱\╱ // 0x41d9 @0x9
0x41d0…41f0 at000a = ╱4a╱J╱ // 0x41da @0xa
0x41d0…41f0 at000b = ╱52╱R╱ // 0x41db @0xb
0x41d0…41f0 at000c = ╱45╱E╱ // 0x41dc @0xc
0x41d0…41f0 at000d = ╱43╱C╱ // 0x41dd @0xd
0x41d0…41f0 at000e = ╱e1╱ > ╱ // 0x41de @0xe
0x41d0…41f0 at000f = ╱31╱1╱ // 0x41df @0xf
0x41d0…41f0 at0010 = ╱f20100╱ // 0x41e0 @0x10
0x41d0…41f0 at0013 = ╱b5╱ THEN ╱ // 0x41e3 @0x13
0x41d0…41f0 at0014 = ╱9d╱ EXEC ╱ // 0x41e4 @0x14
0x41d0…41f0 at0015 = ╱53╱S╱ // 0x41e5 @0x15
0x41d0…41f0 at0016 = ╱4b╱K╱ // 0x41e6 @0x16
0x41d0…41f0 at0017 = ╱52╱R╱ // 0x41e7 @0x17
0x41d0…41f0 at0018 = ╱49╱I╱ // 0x41e8 @0x18
0x41d0…41f0 at0019 = ╱56╱V╱ // 0x41e9 @0x19
0x41d0…41f0 at001a = ╱5f╱_╱ // 0x41ea @0x1a
0x41d0…41f0 at001b = ╱44╱D╱ // 0x41eb @0x1b
0x41d0…41f0 at001c = ╱49╱I╱ // 0x41ec @0x1c
0x41d0…41f0 at001d = ╱46╱F╱ // 0x41ed @0x1d
0x41d0…41f0 at001e = ╱46╱F╱ // 0x41ee @0x1e
0x41d0…41f0 at001f = EOL // 0x41ef @0x1f
0x41d0…41f0 }
0x41f0…41f6 (220,) 95ee 38382 ╱00╱ ╱00╱
0x41f0…41f6 LineComal80 {
0x41f0…41f6 ptr = 0x95ee // 0x41f0 @0x0
0x41f0…41f6 lno = 0x95ee // 0x41f2 @0x2
0x41f0…41f6 at0004 = ╱00╱ // 0x41f4 @0x4
0x41f0…41f6 at0005 = ╱00╱ // 0x41f5 @0x5
0x41f0…41f6 }