|
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: 21595 (0x545b)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_01, UNKNOWN_TOKEN_02, UNKNOWN_TOKEN_05, UNKNOWN_TOKEN_08, UNKNOWN_TOKEN_09, UNKNOWN_TOKEN_0b, UNKNOWN_TOKEN_0c, UNKNOWN_TOKEN_11, UNKNOWN_TOKEN_19, UNKNOWN_TOKEN_1a, UNKNOWN_TOKEN_1f, UNKNOWN_TOKEN_7f, UNKNOWN_TOKEN_ca, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cc, UNKNOWN_TOKEN_cd, UNKNOWN_TOKEN_ce, UNKNOWN_TOKEN_d4, UNKNOWN_TOKEN_dd, UNKNOWN_TOKEN_f7
Names: »SYSR«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSR«
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 // **************************************************
00120 EXEC DIMENSIONER
00130 EXEC INITIER
00120 EXEC FUNKTIONSMENU
00280 CHAIN PROGRAM $
00250 // ===========…Procedurer…starter…==============
00260 PROC DIMENSIONER
00270 // Standard…variable
00280 DIM SPC $ OF 80 , SVAR $ OF 10 , PRGFL $ OF 8 , ALFA $ OF 28 , TAL $ OF 10
00170 DIM PROGRAM $ OF 17 , PRTNR $ OF 1
00300 REAL RESRV , PPAR
00310 INTEGER OK , TRUE , FALSE , I , J , LIN_T , MAX_LIN , SIDENR
00340 // Variable…til…filen…KTOIDX…m.m.
00350 DIM KTOIDX $ OF 17
00360 INTEGER I_H\JREC , I_MAXREC , LOW , HIGH , POS , IDXPOS , RECNR
00370 DIM KTONR $ OF 8
00380 // Variable…til…filen…@@KONTO
00390 DIM KONTO $ OF 17
00400 DIM ST_DATO $ OF 6
00410 INTEGER N_FRIREC , N_MAXREC , ANT_PER , PER_NR
00420 DIM KTO_TYPE $ OF 1 , KTO_NAVN $ OF 40
00430 REAL KTO_PRIMO , KTO_ULTIMO
00440 INTEGER KTO_FP , KTO_SP
00450 // Variable…til…filen…SYSPARA
00460 DIM SYSPARA $ OF 17
00470 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
00480 DIM DATAFL $ OF 8 , T_KODE $ OF 1
00490 // Variable…til…filen…@@PARAM
00500 DIM PARAM $ OF 17
00510 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 6
00520 REAL MOMS
00530 REAL SALDO
00540 DIM FIL $ OF 17 , S_KTONR $ OF 8
00550 // Variable…til…filen…drift|
00420 DIM DRIFT\ $ OF 17
00570 DIM PRIMODAT $ OF 6
00580 REAL DRIFT ( 2 )
00610 // Filnavne…til…regnskabsanalysen
00620 DIM KAPOMK $ OF 17 , OMS[TN $ OF 17 , VAREFO $ OF 17 , AFSKRI $ OF 17
00630 DIM EGENKA $ OF 17 , AKTIVE $ OF 17 , RENTEO $ OF 17
00640 DIM VARELA $ OF 17 , DEBITO $ OF 17 , KREDIT $ OF 17
00650 REAL S_KAPOMK , S_OMS[TN , S_VAREFO , S_AFSKRI , S_EGENKA , S_AKTIVE , S_RENTEO
00660 REAL S_VARELA , S_DEBITO , S_KREDIT , S_VARELA_P
00590 ENDPROC DIMENSIONER
00600
00610 PROC INITIER
00630 LET PRGFL $ := "DP2"
00640 LET PROGRAM $ := PRGFL $ + ":SYS"
00650 LET SPC $ := "………………………………………………………………………………………………………………………"
00660 LET SPC $ := SPC $ + SPC $
00670 LET FALSE := 0 ; TRUE := 1 // boolske…variable
00680 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
00690 EXEC OPENFIL ( SYSPARA $ , "R" )
00700 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
00710 EXEC TERMINAL_IDX
00720 CLOSE SYSPARA $
00730 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
00740 EXEC OPENFIL ( PARAM $ , "R" )
00750 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
00760 CLOSE PARAM $
00840 LET OMS[TN $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "OMS[TN"
00850 LET VAREFO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "VAREFO"
00860 LET KAPOMK $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KAPOMK"
00870 LET AFSKRI $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "AFSKRI"
00880 LET RENTEO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "RENTEO"
00890 LET AKTIVE $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "AKTIVE"
00900 LET VARELA $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "VARELA"
00910 LET DEBITO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "DEBITO"
00920 LET KREDIT $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KREDIT"
00930 LET EGENKA $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "EGENKA"
00780 LET DRIFT\ $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "DRIFT\"
00790 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
00800 LET KONTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KONTO"
00810 EXEC OPENFIL ( DRIFT\ $ , "R" )
00820 GET DRIFT\ $ , 1 : PRIMODAT $
00830 EXEC OPENFIL ( KTOIDX $ , "R" )
00840 EXEC OPENFIL ( KONTO $ , "R" )
00850 ENDPROC INITIER
01020
01030 PROC OPSUMER
01040 EXEC SAMMENT[L ( OMS[TN $ )
01050 LET S_OMS[TN := SALDO
01060 EXEC SAMMENT[L ( VAREFO $ )
01070 LET S_VAREFO := SALDO
01080 EXEC SAMMENT[L ( KAPOMK $ )
01090 LET S_KAPOMK := SALDO
01100 EXEC SAMMENT[L ( AFSKRI $ )
01110 LET S_AFSKRI := SALDO
01120 EXEC SAMMENT[L ( RENTEO $ )
01130 LET S_RENTEO := SALDO
01140 EXEC SAMMENT[L ( AKTIVE $ )
01150 LET S_AKTIVE := SALDO * ( - 1 )
01160 EXEC SAMMENT[L ( EGENKA $ )
01170 LET S_EGENKA := SALDO
01180 EXEC SAMMENT[L ( VARELA $ )
01190 LET S_VARELA := SALDO * ( - 1 )
01200 EXEC SAMMENT[L ( DEBITO $ )
01210 LET S_DEBITO := SALDO * ( - 1 )
01220 EXEC SAMMENT[L ( KREDIT $ )
01230 LET S_KREDIT := SALDO
01240 ENDPROC OPSUMER
00860
00870 PROC TERMINAL_IDX
00880 LET PPAR := 5 ; RESRV := 0
00890 CALL :PRES"
00900 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
00910 ENDPROC TERMINAL_IDX
00920
00930 PROC L[S_KONTO ( P )
00940 GET KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
00950 ENDPROC L[S_KONTO
00960
00970 PROC OPENFIL ( FNAVN $ , WAY $ )
00980 REPEAT
00990 IF AY $ = "W" OR WAY $ = "w" THEN
01000 OPEN FNAVN $ , W
01010 ELSE
01020 OPEN FNAVN $ , R
01030 ENDIF
01040 IF ( FNAVN $ ) THEN
01050 PRINT "<SC0123>" ; CHR$ ( 7 )
01060 IF ( FNAVN $ ) = 6 THEN
01070 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
01080 INPUT "" : SVAR $
01090 ELSE
01100 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
01110 PRINT "<S>" ; FNAVN $ ; "…***"
01120 INPUT "" : SVAR $
01130 PRINT "<C0102>" ; SPC $
01140 ENDIF
01150 ENDIF
01160 UNTIL NOT ╱cd╱ ( FNAVN $ )
01170 ENDPROC OPENFIL
01180
01190 PROC OVERSKRIFT ( ST $ , L )
01200 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
01210 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
01220 PRINT SYST_DAT $ ( 5 : 2 )
01230 CURSOR 36 - INT ( ╱cb╱ ( ST $ ) / 2 ) , L
01240 PRINT "***…" ; ST $ ; "…***"
01250 ENDPROC OVERSKRIFT
01260
01270 PROC SL_FEJLLINIE
01280 LET OK := TRUE
01290 PRINT "<C0102>" ; SPC $
01300 ENDPROC SL_FEJLLINIE
01310
01320 PROC FEJL ( ST $ )
01330 LET OK := FALSE
01340 CURSOR 36 - ╱cb╱ ( ST $ ) / 2 , 2
01350 PRINT "***…" + ST $ + "…***" ; CHR$ ( 7 )
01360 ENDPROC FEJL
01370
01380 PROC FIND_KTO ( REF R_KTONR $ )
01390 LET OK := FALSE
01400 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
01410 LET LOW := 1 ; HIGH := I_H\JREC ; POS := 2
01420 IF IGH > 1 THEN
01430 REPEAT
01440 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
01450 GET KTOIDX $ , POS : KTONR $ , RECNR
01460 IF TONR $ > R_KTONR $ THEN
01470 LET HIGH := POS
01480 ELSE
01490 IF TONR $ < R_KTONR $ THEN
01500 LET LOW := POS
01510 ENDIF
01520 ENDIF
01530 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
01540 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
01550 GET KTOIDX $ , POS : KTONR $ , RECNR
01560 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
01570 IF KTONR $ < R_KTONR $ AND POS = I_H\JREC THEN LET POS := POS + 1
01580 ENDIF
01590 LET FIND_KTO := POS
01600 ENDPROC FIND_KTO
02000 PROC SAMMENT[L ( REF SAMFIL $ )
02010 EXEC OPENFIL ( SAMFIL $ , "R" )
02020 GET SAMFIL $ : SALDO
02030 LET SALDO := 0
02040 GET SAMFIL $ : S_KTONR $
02050 WHILE NOT ╱cd╱ ( SAMFIL $ ) DO
02060 LET IDXPOS := FIND_KTO ( S_KTONR $ )
02070 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
02080 WHILE S_KTONR $ = KTONR $ ( 1 : ╱cb╱ ( S_KTONR $ ) ) DO
02090 GET DRIFT\ $ , RECNR : DRIFT ( 1 ) , DRIFT ( 2 )
02100 LET SALDO := SALDO + DRIFT ( 2 )
02110 LET IDXPOS := IDXPOS + 1
02120 IF IDXPOS > I_H\JREC THEN EXIT
02130 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
02140 ENDWHILE
02150 GET SAMFIL $ : S_KTONR $
02160 ENDWHILE
02170 LET SALDO := SALDO * ( - 1 )
02180 CLOSE SAMFIL $
02190 EXEC OPENFIL ( SAMFIL $ , "W" )
02200 PUT SAMFIL $ : SALDO
02210 CLOSE SAMFIL $
02220 ENDPROC SAMMENT[L
02230
02240 PROC UDSKRIV
02250 LET MAX_LIN := 72 ; LIN_T := 200 ; SIDENR := 0
02260 EXEC PRINTRES ( "smal…EDB-liste" , 17 )
02270 EXEC SIDESKIFT
02280 PRINT "Regnskab…for…perioden…" ; PRIMODAT $ ( 1 : 2 ) ; "." ; PRIMODAT $ ( 3 : 2 ) ; "." ;
02290 PRINT PRIMODAT $ ( 5 : 2 ) ; "…-…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ;
02300 PRINT SYST_DAT $ ( 5 : 2 )
02310 PRINT "================================================================"
02320 PRINT "Nettooms{tning" ; TAB ( 53 ) ; CHR$ ( S_OMS[TN , 9 , 2 )
02330 PRINT "-…Vareforbrug" ; TAB ( 53 ) ; CHR$ ( S_VAREFO * ( - 1 ) , 9 , 2 )
02340 PRINT TAB ( 53 ) ; "------------"
02350 LET BRUTTO := S_OMS[TN + S_VAREFO
02360 PRINT "Bruttofortjeneste" ; TAB ( 53 ) ; CHR$ ( BRUTTO , 9 , 2 )
02370 PRINT "-…\vrige…variable…omkostningninger" ; TAB ( 53 ) ;
02380 PRINT CHR$ ( \VR_VAR * ( - 1 ) , 9 , 2 )
02390 LET D[KNING := BRUTTO + \VR_VAR
02400 PRINT TAB ( 53 ) ; "------------"
02410 PRINT "D{kningsbidrag" ; TAB ( 53 ) ; CHR$ ( D[KNING , 9 , 2 )
02420 PRINT "-…Kontante…kap.…omkostninger" ; TAB ( 53 ) ;
02430 PRINT CHR$ ( ( S_KAPOMK - \VR_VAR ) * ( - 1 ) , 9 , 2 )
02440 PRINT TAB ( 53 ) ; "------------"
02450 LET INDTJEN := D[KNING + ( S_KAPOMK - \VR_VAR )
02460 PRINT "Indtjeningsbidrag…" ; TAB ( 53 ) ; CHR$ ( INDTJEN , 9 , 2 )
02470 PRINT "-…Afskrivninger" ; TAB ( 53 ) ; CHR$ ( S_AFSKRI * ( - 1 ) , 9 , 2 )
02480 PRINT TAB ( 53 ) ; "------------"
02490 LET RES_F_R := INDTJEN + S_AFSKRI
02500 PRINT "Resultat…af…ordin{r…drift…f|r…renter" ; TAB ( 53 ) ; CHR$ ( RES_F_R , 9 , 2 )
02510 PRINT "-…Renteomkostninger" ; TAB ( 53 ) ; CHR$ ( S_RENTEO * ( - 1 ) , 9 , 2 )
02520 PRINT TAB ( 53 ) ; "------------"
02530 LET RESULTAT := RES_F_R + S_RENTEO
02540 PRINT "Resultat…af…ordin{r…drift" ; TAB ( 53 ) ; CHR$ ( RESULTAT , 9 , 2 )
02550 PRINT TAB ( 53 ) ; "============"
02560 PRINT
02570 PRINT
02580 PRINT
02590 PRINT "****…R…E…N…T…A…B…I…L…I…T…E…T…****"
02600 PRINT "---------------------------------"
02610 PRINT
02620 PRINT "…(1)…Afkastningsgrad…………………………………………………………:" ;
02630 PRINT USING "###.##…%" : ( RES_F_R + L_I ) * 100 / S_AKTIVE
02640 PRINT
02650 PRINT "…(2)…Overskudsgrad………………………………………………………………:" ;
02660 PRINT USING "###.##…%" : ( RES_F_R + L_I ) * 100 / S_OMS[TN
02670 PRINT
02680 PRINT "…(3)…Aktivernes…oms{tningshastighed…………………:" ;
02690 PRINT USING "###.##…g" : S_OMS[TN / S_AKTIVE
02700 PRINT
02710 PRINT "…(4)…Egenkap.…forrentning……………………………………………:" ;
02720 PRINT USING "###.##…%" : ( RESULTAT + L_I ) * 100 / S_EGENKA
02730 PRINT
02740 PRINT
02750 PRINT "****…I…N…D…T…J…E…N…I…N…G…S…E…V…N…E…****"
02760 PRINT "---------------------------------------"
02770 PRINT
02780 PRINT "…(1)…Bruttofortjeneste…i…%…af…oms{tning………:" ;
02790 PRINT USING "###.##…%" : BRUTTO * 100 / S_AKTIVE
02800 PRINT
02810 PRINT "…(2)…D{kningsgrad…………………………………………………………………:" ;
02820 PRINT USING "###.##…%" : D[KNING * 100 / S_AKTIVE
02830 PRINT
02840 PRINT "…(3)…Omkostninger…i…%…af…oms{tningen"
02850 LET LIN_T := LIN_T + 42
02860 EXEC OMK_I_PROCENT ( VAREFO $ )
02870 EXEC OMK_I_PROCENT ( KAPOMK $ )
02880 EXEC OMK_I_PROCENT ( AFSKRI $ )
02890 EXEC OMK_I_PROCENT ( RENTEO $ )
02900 EXEC SIDESKIFT
02910 PRINT
02920 PRINT "****…O…M…S…[…T…N…I…N…G…S…H…A…S…T…I…G…H…E…D…E…R…****"
02930 PRINT "---------------------------------------------------"
02940 PRINT
02950 PRINT "…(1)…Varedebitorer………………………………………………………………:" ;
02960 PRINT USING "###.##…g" : S_OMS[TN * ( ( 100 + MOMS ) / 100 ) / S_DEBITO
02970 PRINT
02980 PRINT "…(2)…Varelager…………………………………………………………………………:" ;
02990 PRINT USING "###.##…g" : ABS ( S_VAREFO ) / S_VARELA
03000 PRINT
03010 PRINT "…(3)…Varekreditorer……………………………………………………………:" ;
03020 LET VAREK\B := ( ABS ( S_VAREFO ) + ( S_VARELA - S_VARELA_P ) ) * ( ( 100 + MOMS ) / 100 )
03030 PRINT USING "###.##…g" : VAREK\B / S_KREDIT
03040 PRINT
03050 PRINT
03060 PRINT "****…K…R…E…D…I…T…-………O…G………L…A…G…E…R…D…A…G…E…****"
03070 PRINT "-------------------------------------------------"
03080 PRINT
03090 PRINT "…(1)…Varedebitorer………………………………………………………………:" ;
03100 PRINT USING "####.#…dg" : S_DEBITO * 360 / ( S_OMS[TN * ( ( 100 + MOMS ) / 100 ) )
03110 PRINT
03120 PRINT "…(2)…Varelager…………………………………………………………………………:" ;
03130 PRINT USING "####.#…dg" : S_VARELA * 360 / ABS ( S_VAREFO )
03140 PRINT
03150 PRINT "…(3)…Varekreditorer……………………………………………………………:" ;
03160 PRINT USING "####.#…dg" : S_KREDIT * 360 / VAREK\B
03170 LET LIN_T := LIN_T + 19
03180 FOR I := LIN_T TO AX_LIN DO PRINT
03190 EXEC PRINTREL
03200 ENDPROC UDSKRIV
03210 PROC OMK_I_PROCENT ( REF SAMFIL $ )
03220 EXEC OPENFIL ( SAMFIL $ , "R" )
03230 GET SAMFIL $ : SALDO
03240 LET SALDO := 0
03250 GET SAMFIL $ : S_KTONR $
03260 WHILE NOT ╱cd╱ ( SAMFIL $ ) DO
03270 LET IDXPOS := FIND_KTO ( S_KTONR $ )
03280 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
03290 WHILE S_KTONR $ = KTONR $ ( 1 : ╱cb╱ ( S_KTONR $ ) ) DO
03300 EXEC L[S_KONTO ( RECNR )
03310 GET DRIFT\ $ , RECNR : DRIFT ( 1 ) , DRIFT ( 2 )
03320 IF TO_TYPE $ = "A" THEN
03330 PRINT "………………" ; KTO_NAVN $ ; TAB ( 43 ) ; ":" ;
03340 PRINT USING "###.##…%" : ABS ( DRIFT ( 2 ) * 100 ) / S_OMS[TN
03350 LET LIN_T := LIN_T + 1
03360 ENDIF
03370 LET IDXPOS := IDXPOS + 1
03380 IF IDXPOS > I_H\JREC THEN EXIT
03390 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
03400 ENDWHILE
03410 GET SAMFIL $ : S_KTONR $
03420 ENDWHILE
03430 CLOSE SAMFIL $
03440 ENDPROC OMK_I_PROCENT
03450 PROC SIDESKIFT
03460 FOR I := LIN_T TO AX_LIN DO PRINT
03470 LET SIDENR := SIDENR + 1 ; LIN_T := 8
03480 PRINT
03490 PRINT "***…" ; SYST_NAVN $ ; "…***"
03500 PRINT
03510 PRINT "****…R…E…G…N…S…K…A…B…S…A…N…A…L…Y…S…E…****" ; TAB ( 58 ) ; "SIDE:…" ;
03520 PRINT SIDENR
03530 PRINT
03540 PRINT "Firmanavn:…" ; FIRMANAVN $
03550 PRINT
03560 ENDPROC SIDESKIFT
03570
03580 PROC FUNKTIONSMENU
03590 EXEC OVERSKRIFT ( "Regnskabsanalyse" , 6 )
03600 INPUT "<C0809>Indtast…venligst:…………\vrige…var.…omkostninger:…" : \VR_VAR
03610 LET \VR_VAR := \VR_VAR * ( - 1 )
03620 INPUT "<C0811>………………………………………………………L|n…til…indehaver…………………:…" : L_I
03630 LET L_I := L_I * ( - 1 )
03640 INPUT "<C1013>…………………………………………………Varelager…primo………………………:…" : S_VARELA_P
03650 PRINT "<C3515>Nu…opt{lles…der!"
03660 EXEC OPSUMER
03670 EXEC UDSKRIV
03680 ENDPROC FUNKTIONSMENU
01610 //
01600 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
01610 LET PRTNR $ := "1" ; OK := TRUE
01620 REPEAT
01630 CURSOR 21 , LINE
01640 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
01650 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
01660 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
01670 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
01680 INPUT "" : SVAR $
01690 SELECT OUTPUT "P" + PRTNR $
01700 IF ( "P" ) THEN
01710 CURSOR 12 , LINE
01720 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
01730 CURSOR 12 , LINE + 1
01740 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
01750 IF VAR $ = "J" OR SVAR $ = "j" THEN
01760 CURSOR 12 , LINE
01770 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
01780 PRINT "<SZ>"
01790 WHILE ╱cd╱ ( "P" ) DO
01800 LET SEK := ╱ca╱ ( 5 )
01810 SELECT OUTPUT "P" + PRTNR $
01820 ENDWHILE
01830 ELSE
01840 LET OK := FALSE
01850 ENDIF
01860 ENDIF
01870 CURSOR 1 , LINE
01880 PRINT "<Z>"
01890 PRINT "<SZ>"
01900 ENDPROC PRINTRES
01620 //
01630 PROC PRINTREL // RELEASE…PRINTER
01640 SELECT OUTPUT "T"
01800 ENDPROC PRINTREL
01810 // DIM…S$…OF…80,KTONR$…OF…10,X(20)
01820 PROC OPDEL ( A $ )
01830 LET KTONR $ := ""
01840 LET I := 1
01850 WHILE A $ ( I ) >< "*" DO
01860 IF A $ ( I ) = "/" THEN LET KTONR $ := "" ; I := I + 1
01870 WHILE ( A $ ( I ) >< "/" ) AND ( A $ ( I ) >< "*" ) DO
01880 LET KTONR $ := KTONR $ + A $ ( I )
01890 LET I := I + 1
01900 ENDWHILE
01910 EXEC OPSUM ( KTONR $ )
01920 ENDWHILE
01930 ENDPROC OPDEL
01940 PROC OPSUM ( KN $ )
01950 LET X ( P ) := X ( P ) + 1
01960 PRINT KN $ , X ( P )
01970 ENDPROC OPSUM
01980 LET P := 0
01990 OPEN "DP2:ZATAL" , R
02000 GET "DP2:ZATAL" : S $
02010 WHILE NOT ╱cd╱ ( "DP2:ZATAL" ) DO
02020 LET P := P + 1
02030 EXEC OPDEL ( S $ )
02040 GET "DP2:ZATAL" : S $
02050 ENDWHILE
02060 CLOSE
01975 PROC OPT[L
01990 EXEC OPENFIL ( OPTF $ , "R" )
02000 GET OPTF $ : S $
02010 WHILE NOT ╱cd╱ ( OPTF $ ) DO
02020 LET P := P + 1
02030 EXEC OPDEL ( S $ )
02040 GET OPTF $ : S $
02050 ENDWHILE
02060 CLOSE
02070 ENDPROC OPT[L
00320 // HJ[LPE…VARIABLE
00192 REAL X ( 20 ) , R ( 40 )
07967 ╱1f╱ ╱1f╱ ARAPSYS:2PD ╱00╱ ╱00╱ ╱11╱ ╱00╱ R ╱00╱ ╱00╱ ╱01╱ ╱00╱ g OR SELECT OUTPUT ╱00╱ EXEC OPT[L
01951 LET IDXPOS := FIND_KTO ( KN $ )
01952 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
01953 WHILE KN $ = KTONR $ ( 1 : ╱cb╱ ( KN $ ) ) DO
01954 GET DRIFT\ $ , RECNR : DRIFT ( 1 ) , DRIFT ( 2 )
01955 LET X ( P ) := X ( P ) + DRIFT ( 2 )
01956 LET IDXPOS := IDXPOS + 1
01957 IF IDXPOS > I_H\JREC THEN EXIT
01958 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
01959 ENDWHILE
01650 ENDPROC PRINTREL
01660 // DIM…S$…OF…80,KTONR$…OF…10,X(20)
01670 PROC OPDEL ( A $ )
01680 LET S_KTONR $ := ""
01690 LET I := 1
01700 WHILE A $ ( I ) >< "*" DO
01710 IF A $ ( I ) = "/" THEN LET S_KTONR $ := "" ; I := I + 1
01720 WHILE ( A $ ( I ) >< "/" ) AND ( A $ ( I ) >< "*" ) DO
01730 LET S_KTONR $ := S_KTONR $ + A $ ( I )
01740 LET I := I + 1
01750 ENDWHILE
01760 EXEC OPSUM ( S_KTONR $ )
01770 ENDWHILE
01780 ENDPROC OPDEL
01790 PROC OPSUM ( KN $ )
02060 LET X ( P ) := X ( P ) + 1
01810 LET IDXPOS := FIND_KTO ( KN $ )
01820 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
01830 WHILE KN $ = KTONR $ ( 1 : ╱cb╱ ( KN $ ) ) DO
01840 GET DRIFT\ $ , RECNR : DRIFT ( 1 ) , DRIFT ( 2 )
02110 LET X ( P ) := X ( P ) + DRIFT ( 2 )
01860 LET IDXPOS := IDXPOS + 1
01870 IF IDXPOS > I_H\JREC THEN EXIT
01880 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
01890 ENDWHILE
02160 PRINT KN $ , X ( P )
01910 ENDPROC OPSUM
01920 PROC OPT[L
01930 LET P := 0
01940 EXEC OPENFIL ( OPTF $ , "R" )
01950 GET OPTF $ : S $
01960 WHILE NOT ╱cd╱ ( OPTF $ ) DO
01970 LET P := P + 1
01980 EXEC OPDEL ( S $ )
02000 GET OPTF $ : S $
02010 ENDWHILE
02020 CLOSE
02030 ENDPROC OPT[L
00560 DIM DRIFT\ $ OF 17 , OPTF $ OF 17
00770 LET OPTF $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "TAL"
00290 DIM PROGRAM $ OF 17 , PRTNR $ OF 1 , S $ OF 80
00100 // ``````…REGNSKABSANALYSE…VERSION…2.0…''''''''
00110 // ``````…by…Peter…Kristensen…1984…''''''''''
02040 PROC BEREGNMAJ
02050 LET X ( 9 ) := X ( 9 ) - X ( 20 )
02060 LET R ( 1 ) := X ( 1 )
02070 LET R ( 2 ) := X ( 5 )
02080 LET R ( 3 ) := R ( 1 ) - R ( 2 )
02090 LET R ( 4 ) := X ( 20 )
02100 LET R ( 5 ) := R ( 3 ) - R ( 4 )
02110 LET R ( 6 ) := X ( 9 )
02120 LET R ( 7 ) := R ( 5 ) - R ( 6 )
02130 LET R ( 8 ) := X ( 10 )
02140 LET R ( 9 ) := R ( 7 ) - R ( 8 )
02150 LET R ( 10 ) := X ( 11 )
02160 LET R ( 11 ) := R ( 9 ) - R ( 10 )
02170 LET R ( 12 ) := X ( 25 )
02180 LET R ( 13 ) := R ( 11 ) - R ( 12 )
02190 LET X ( 26 ) := R ( 5 )
02200 LET R ( 14 ) := ( R ( 9 ) - X ( 25 ) ) * 100 / X ( 18 )
02210 LET R ( 15 ) := ( R ( 11 ) - X ( 25 ) ) * 100 / X ( 19 )
02220 FOR I := 1 TO DO
02230 LET R ( 15 + I ) := ( X ( I ) - X ( 4 + I ) ) * 100 / X ( I )
02490 LET R ( 19 + I ) := X ( 25 + I ) / X ( I )
02250 NEXT I
02510 LET R ( 24 ) := ( R ( 9 ) - R ( 10 ) ) * 100 / R ( 20 )
02270 LET R ( 25 ) := ( R ( 1 ) - R ( 24 ) ) * 100 / R ( 1 )
02280 FOR I := 1 TO DO
02290 LET R ( 25 + I ) := X ( 4 + I ) / X ( 11 + I )
02300 NEXT I
02310 LET R ( 30 ) := ( R ( 1 ) * 1.22 ) / X ( 16 )
02320 LET R ( 31 ) := ( ( ( X ( 5 ) + X ( 12 ) ) - X ( 21 ) ) * 1.22 ) / X ( 17 )
02330 FOR I := 1 TO DO
02340 LET R ( 31 + I ) := 360 / R ( 25 + I )
02350 NEXT I
02360 LET R ( 38 ) := X ( 19 ) * 100 / X ( 18 )
02370 ENDPROC BEREGNMAJ
00330 REAL X ( 30 ) , R ( 40 )
00170 EXEC INPUTTAL
00180 IF _KODE $ = "Y" THEN
00190 EXEC BEREGNMAJ
00210 ELSE
00220 EXEC BEREGNKAMET
00230 ENDIF
02380 PROC INPUTTAL
02390 EXEC OVERSKRIFT ( "Regnskabanalyse" , 5 )
02400 REPEAT
06030 INPUT "<C2408Z>Indtast…driftslederl|n………:…" : X ( 25 )
06040 INPUT "<C2409Z………………………primolager…A……………:…" : X ( 22 )
06050 INPUT "<C2410Z>……………………primolager…B……………:…" : X ( 23 )
06060 INPUT "<C2411Z>……………………primolager…C……………:…" : X ( 24 )
06070 INPUT "<C2412Z>……………………\vr.…var.…omk.………:…" : X ( 20 )
06080 INPUT "<C2413Z>……………………d{kningsbidrag…A…:…" : X ( 27 )
06090 INPUT "<C2414Z>……………………d{kningsbidrag…B…:…" : X ( 28 )
06100 INPUT "<C2415Z>……………………d{kningsbidrag…C…:…" : X ( 29 )
02710 INPUT "<C2418Z>Er…alle…tal…korrekt…indtastede…?…(j/n)…" : SVAR $
02760 UNTIL SVAR $ = "j" OR SVAR $ = "J"
02780 FOR I := 1 TO DO
06140 LET X ( 21 ) := X ( 21 ) + X ( 21 + I )
02800 LET X ( 26 ) := X ( 26 ) + X ( 26 + I )
02810 NEXT I
02820 ENDPROC INPUTTAL
06040 INPUT "<C2409Z>……………………primolager…A……………:…" : X ( 22 )
06040 INPUT "<C2409Z>……………………primolager…………………:…" : X ( 22 )
06050 INPUT "<C2410Z>……………………\vr.…var.…omk.…A…:…" : X ( 23 )
02730 INPUT "<C2411Z>……………………\vr.…var.…omk.…B…:…" : X ( 28 )
02740 INPUT "<C2412Z>……………………\vr.…var.…omk.…C…:…" : X ( 29 )
06080 INPUT "<C2413Z>……………………d{kningsbidrag…A…:…" : X ( 27 )
06090 INPUT "<C2414Z>……………………d{kningsbidrag…B…:…" : X ( 28 )
06100 INPUT "<C2415Z>……………………d{kningsbidrag…C…:…" : X ( 29 )
02720 INPUT "<C2410Z>……………………\vr.…var.…omk.…A…:…" : X ( 27 )
02770 FOR I := 1 TO DO LET X ( 20 ) := X ( 20 ) + X ( 26 + I )
02700 INPUT "<C2408Z>Indtast…driftslederl|n………:…" : X ( 25 )
02710 INPUT "<C2409Z>……………………primolager…………………:…" : X ( 21 )
02790 LET X ( 26 + I ) := X ( 1 + I ) - ( X ( 5 + I ) + X ( 26 + I ) )
02830 PROC UDSKRIVMAJ
02840 DIM UDFIL $ OF 17
07020 LET UDFIL $ := S_KODE $ + "RSKELET"
07030 EXEC OPENFILE ( UDFIL $ , "R" )
02870 GET UDFIL $ : S $
02900 WHILE NOT ╱cd╱ ( UDFIL $ ) DO
02910 IF #" IN S $ THEN
02590 LET I := I + 1
02600 PRINT USING S $ : R ( I )
02610 ELSE
02620 PRINT S $
02630 ENDIF
02640 GET UDFIL $ : S $
02650 ENDWHILE
02660 CLOSE UDFIL $
02680 ENDPROC UDSKRIVMAJ
02890 LET I := 0
07967 ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ LATAY:2PD ╱00╱ ╱00╱ ╱11╱ ╱00╱ R ╱00╱ ╱00╱ ╱01╱ ╱00╱ ╱19╱ ╱ce╱ SGN ╱00╱ EXEC UDSKRIVMAJ
02860 EXEC OPENFIL ( UDFIL $ , "R" )
07967 ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ gurbroferaV…………*120 ╱00╱ ╱00╱ P ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ 120 ╱00╱ ╱00╱ ╱08╱ ╱00╱ SELECT OUTPUT ╱d4╱ " ╱0b╱ LET UDFIL $ := DATAFL $ + ":" + S_KODE $ + "RSKELET"
02880 EXEC PRINTRES ( "smal…EDB-liste" , 20 )
02670 EXEC PRINTREL
02750 INPUT "<C2218Z>Er…alle…tal…korrekt…indtastede…?…(j/n)…" : SVAR $
00205 CHAIN PROGRAM $
02101 IF KTONR $ ( 1 ) = "0" THEN LET DRIFT ( 2 ) := - DRIFT ( 2 )
07075 IF I =< 12 THEN LET R ( I ) := ABS ( R ( I ) )
07967 ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ A…eppurgeraV………*11121 ╱00╱ ╱00╱ P ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ 11121 ╱00╱ ╱00╱ ╱08╱ ╱00╱ ╱1a╱ SGN > ╱08╱ LET X ( P ) := X ( P ) + ABS ( DRIFT ( 2 ) )
01850 LET X ( P ) := X ( P ) + DRIFT ( 2 )
02160 PRINT "<XC1212>Der…opt{lles!"
02151 LET X ( P ) := ABS ( X ( P ) )
01800 LET X ( P ) := X ( P )
01990 LET X ( P ) := ABS ( X ( P ) )
02490 LET R ( 19 + I ) := X ( 25 + I ) / X ( I ) * 100
07967 ╱1f╱ XDIOTKAY:2PD ╱00╱ ╱00╱ ╱11╱ ╱00╱ R ╱00╱ ╱00╱ ╱01╱ ╱00╱ E ╱cc╱ TAN ╱08╱ LET R ( 19 + I ) := X ( 25 + I ) * 100 / X ( I )
02160 PRINT "<XC1212>Der…opt{lles!" ; KTONR $ ; "………………" ; X ( P )
07967 ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ LATAY:2PD ╱00╱ ╱00╱ ╱11╱ ╱00╱ R ╱00╱ ╱00╱ ╱01╱ ╱00╱ ╱7f╱ SGN p ╱08╱ PRINT "<1212>Der…opt{lles!" ; KTONR $ ; "………………" ; X ( P )
02160 PRINT "Der…opt{lles!" ; KTONR $ ; "………………" ; X ( P )
00141 FOR I := 1 TO 000 DO LET I := I
02160 // PRINT…"Der…opt{lles!";KTONR$;"………………";X(P)
02115 PRINT KTONR $ ; "…………………………………" ; X ( P )
00160 FOR I := 1 TO 00 DO LET I := I
02260 LET R ( 24 ) := ( R ( 6 ) + R ( 8 ) ) * 100 / R ( 20 )
00240 CHAIN PROGRAM $
01900 PRINT "<XC1412>Der…opt{lles!"
02700 INPUT "<C2008Z>Indtast…driftslederl|n………………………………:…" : X ( 25 )
02710 INPUT "<C2409Z>……………………lager…ialt,…primo………………………:…" : X ( 21 )
02720 INPUT "<C2410Z>……………………\vrige…variable…omk.……A………:…" : X ( 27 )
02730 INPUT "<C2411Z>……………………\vrige…variable…omk.……B………:…" : X ( 28 )
02740 INPUT "<C2412Z>……………………\vrige…variable…omk.……C………:…" : X ( 29 )
02440 INPUT "<C2218Z>Er…alle…tal…korrekt…indtastede…?…(j/n)…" : SVAR $
02430 UNTIL SVAR $ = "j" OR SVAR $ = "J"
02440 FOR I := 1 TO DO LET X ( 20 ) := X ( 20 ) + X ( 26 + I )
02450 FOR I := 1 TO DO
02460 LET X ( 26 + I ) := X ( 1 + I ) - ( X ( 5 + I ) + X ( 26 + I ) )
02470 LET X ( 26 ) := X ( 26 ) + X ( 26 + I )
02480 NEXT I
02490 ENDPROC INPUTTAL
02500 PROC UDSKRIVMAJ
02510 DIM UDFIL $ OF 17
02520 LET UDFIL $ := DATAFL $ + ":" + S_KODE $ + "RSKELET"
02530 EXEC OPENFIL ( UDFIL $ , "R" )
02540 GET UDFIL $ : S $
02880 EXEC PRINTRES ( "smal…EDB-liste" , 20 )
02560 LET I := 0
02570 WHILE NOT ╱cd╱ ( UDFIL $ ) DO
02580 IF #" IN S $ THEN
02550 EXEC PRINTRES ( "papir" , 20 )
02700 INPUT "<C2008Z>Indtast…driftslederl|n……………………………………………:…" : X ( 25 )
02400 INPUT "<C2009Z>……………………lager…ialt,…primo………………………:…" : X ( 21 )
02410 INPUT "<C2010Z>……………………\vrige…variable…omk.……A………:…" : X ( 27 )
02420 INPUT "<C2011Z>……………………\vrige…variable…omk.……B………:…" : X ( 28 )
02430 INPUT "<C2012Z>……………………\vrige…variable…omk.……C………:…" : X ( 29 )
02390 INPUT "<C2008Z>Indtast…driftslederl|n………………………………:…" : X ( 25 )
24944 p ╱00╱ ╱00╱ ╱05╱ ╱00╱ s ╱dd╱ IF //
02700 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
02710 LET PRTNR $ := "1" ; OK := TRUE
02720 REPEAT
02730 CURSOR 15 , LINE
02740 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
02750 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
02760 CURSOR 1 , LINE
02770 PRINT "<Z>"
02780 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
02790 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
02800 INPUT "" : SVAR $
02810 SELECT OUTPUT "P" + PRTNR $
02820 IF ( "P" ) THEN
02830 CURSOR 12 , LINE
02840 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
02850 CURSOR 12 , LINE + 1
02860 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
02870 IF VAR $ = "J" OR SVAR $ = "j" THEN
02880 CURSOR 12 , LINE
02890 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
02900 PRINT "<SZ>"
02910 WHILE ╱cd╱ ( "P" ) DO
02920 LET SEK := ╱ca╱ ( 5 )
02930 SELECT OUTPUT "P" + PRTNR $
02940 ENDWHILE
02950 ELSE
02960 LET OK := FALSE
02970 ENDIF
02980 ENDIF
02990 CURSOR 1 , LINE
03000 PRINT "<Z>"
03010 PRINT "<SZ>"
03020 ENDPROC PRINTRES
04000 PROC EDITTAL
04010 PROC EDTAL
04020 IF = 0 THEN
04030 LET S $ := ""
04040 ELSE
04050 LET S $ := CHR$ ( A , 8 , 0 )
04060 ENDIF
04070 REPEAT
04080 CURSOR X1 , Y1
04090 PRINT "<ZS>" ; T1 $
04100 EDIT S $
04110 EXEC TAL_CONTROL ( S $ )
04120 UNTIL OK
04130 LET A := ASC ( S $ )
04140 ENDPROC EDTAL
04010 PROC EDTAL ( X1 , Y1 , T1 $ )
04150 LET A := 5
04160 EXEC EDTAL ( 12 , 12 , "Indtast…et…tal…:…" )
04170 PRINT A
03260 ENDPROC EDITTAL
03270
09001 PROC TAL_CONTROL ( REF RST $ )
09002 LET J := 0 ; OK := TRUE
09003 FOR I := 1 TO ( RST $ ) DO
09004 IF RST $ ( I ) IN TAL $ + "." THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
09005 NEXT I
09006 IF = 0 THEN
09007 LET OK := FALSE
09008 ELSE
09009 LET RST $ := RST $ ( 1 : J )
09010 ENDIF
09011 ENDPROC TAL_CONTROL
03390
00140 EXEC EDITTAL
27680 at…te…tsatdnI ╱00╱ ╱00╱ ╱11╱ ╱00╱ J PROC ╱02╱ LET TAL $ := "0123456789"
07967 ╱1f╱ ╱1f╱ OTNOKAY:2PD ╱00╱ ╱00╱ ╱11╱ ╱00╱ R ╱00╱ ╱00╱ ╱01╱ ╱00╱ ╱cc╱ =< CHR$ ╱0c╱ PROC TAL_CONTROL ( REF R[T $ )
03290 LET J := 0 ; OK := TRUE
03300 FOR I := 1 TO ( R[T $ ) DO
03310 IF R[T $ ( I ) IN TAL $ + "." THEN LET J := J + 1 ; R[T $ ( J ) := R[T $ ( I )
03320 NEXT I
03330 IF = 0 THEN
03340 LET OK := FALSE
03350 ELSE
03360 LET R[T $ := R[T $ ( 1 : J )
03370 ENDIF
03380 ENDPROC TAL_CONTROL
03030 PROC EDITTAL
03040 PROC EDTAL ( X1 , Y1 , T1 $ )
03050 IF = 0 THEN
03060 LET S $ := ""
03070 ELSE
03080 LET S $ := CHR$ ( [ , 8 , 0 )
03090 ENDIF
03100 REPEAT
03110 CURSOR X1 , Y1
03120 PRINT "<ZS>" ; T1 $
03130 EDIT S $
03140 EXEC TAL_CONTROL ( S $ )
03150 UNTIL OK
03160 LET [ := ASC ( S $ )
03170 ENDPROC EDTAL
03180 LET [ := 5
03240 EXEC EDTAL ( 12 , 12 , "Indtast…et…tal…:…" )
03250 PRINT [
03190 EXEC EDTAL ( 20 , 8 , "Indtast…driftslederl|n……………25……………:…" )
03200 EXEC EDTAL ( 20 , 9 , "……………………lager…ialt,…primo……21……………:…" )
03210 EXEC EDTAL ( 20 , 10 , "……………………\vrige…variable…omk.……A…27:…" )
03220 EXEC EDTAL ( 20 , 11 , "……………………\vrige…variable…omk.……B…28:…" )
03230 EXEC EDTAL ( 20 , 12 , "……………………\vrige…variable…omk.……C…29:…" )
02420 INPUT "<C2218Z>Er…alle…tal…korrekt…indtastede?…(j/n)…" : SVAR $
02410 EXEC EDITTAL
03180 LET [ := X ( 25 )
03191 LET X ( 25 ) := [
03199 LET [ := X ( 25 )
03201 LET X ( 21 ) := [
03209 LET [ := X ( 27 )
03211 LET X ( 27 ) := [
03219 LET [ := X ( 28 )
03221 LET X ( 28 ) := [
03229 LET [ := X ( 29 )
03231 LET X ( 29 ) := [
03199 LET [ := X ( 21 )
03130 EDIT "" : S $
00140 EXEC INPUTTAL
12857 …C…….kmo…elbairav…egirv\…………………… ╱00╱ ╱00╱ $ ╱00╱ 0 * v ╱0c╱ EXEC EDTAL ( 20 , 8 , "Indtast…driftslederl|n………………………………:…" )
03191 LET X ( 25 ) := [
03199 LET [ := X ( 21 )
03200 EXEC EDTAL ( 20 , 9 , "……………………lager…ialt,…primo………………………:…" )
03201 LET X ( 21 ) := [
03209 LET [ := X ( 27 )
03210 EXEC EDTAL ( 20 , 10 , "……………………\vrige…variable…omk.……A………:…" )
03211 LET X ( 27 ) := [
03219 LET [ := X ( 28 )
03220 EXEC EDTAL ( 20 , 11 , "……………………\vrige…variable…omk.……B………:…" )
03221 LET X ( 28 ) := [
03229 LET [ := X ( 29 )
03230 EXEC EDTAL ( 20 , 12 , "……………………\vrige…variable…omk.……C………:…" )
03231 LET X ( 29 ) := [
03260 ENDPROC EDITTAL
03270
24944 p ╱00╱ ╱00╱ ╱05╱ ╱00╱ ╱1f╱ ^ ╱f7╱ ╱09╱ PRINT
02552 PRINT "***…" ; SYSTNAVN $ ; "…***"
02553 PRINT
02554 PRINT "Firma:…" ; FIRMANAVN $
02555 PRINT
02552 PRINT "***…" ; SYST_NAVN $ ; "…***"
00611 DIM SYST_NAVN $ OF 30
00612 LET SYST_NAVN $ := "Bogf|ringssystemet…'SYSKAS-1'"
07967 ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ retneR……*70/60 ╱00╱ ╱00╱ P ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ 70 ╱00╱ ╱00╱ ╱08╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ regnintsokmoseteticapak…etnatnoK……*40/30 ╱00╱ ╱00╱ P ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ 40 ╱00╱ ╱00╱ ╱08╱ ╱00╱ ) OTHERWISE LN ╱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 00120 EXEC DIMENSIONER
0x0348…0359 LineComal80 {
0x0348…0359 ptr = 0x9947 // 0x348 @0x0
0x0348…0359 lno = 0x0078 // 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 c546 00130 EXEC INITIER
0x0359…0366 LineComal80 {
0x0359…0366 ptr = 0xc546 // 0x359 @0x0
0x0359…0366 lno = 0x0082 // 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 9975 00120 EXEC FUNKTIONSMENU
0x0366…0379 LineComal80 {
0x0366…0379 ptr = 0x9975 // 0x366 @0x0
0x0366…0379 lno = 0x0078 // 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…0387 9975 00280 CHAIN PROGRAM $
0x0379…0387 LineComal80 {
0x0379…0387 ptr = 0x9975 // 0x379 @0x0
0x0379…0387 lno = 0x0118 // 0x37b @0x2
0x0379…0387 at0004 = ╱ac╱ CHAIN ╱ // 0x37d @0x4
0x0379…0387 at0005 = ╱50╱P╱ // 0x37e @0x5
0x0379…0387 at0006 = ╱52╱R╱ // 0x37f @0x6
0x0379…0387 at0007 = ╱4f╱O╱ // 0x380 @0x7
0x0379…0387 at0008 = ╱47╱G╱ // 0x381 @0x8
0x0379…0387 at0009 = ╱52╱R╱ // 0x382 @0x9
0x0379…0387 at000a = ╱41╱A╱ // 0x383 @0xa
0x0379…0387 at000b = ╱4d╱M╱ // 0x384 @0xb
0x0379…0387 at000c = ╱ef╱ $ ╱ // 0x385 @0xc
0x0379…0387 at000d = EOL // 0x386 @0xd
0x0379…0387 }
0x0387…03ba 99a8 00250 // ===========…Procedurer…starter…==============
0x0387…03ba LineComal80 {
0x0387…03ba ptr = 0x99a8 // 0x387 @0x0
0x0387…03ba lno = 0x00fa // 0x389 @0x2
0x0387…03ba at0004 = ╱89╱ // ╱ // 0x38b @0x4
0x0387…03ba at0005 = ╱3d╱=╱ // 0x38c @0x5
0x0387…03ba at0006 = ╱3d╱=╱ // 0x38d @0x6
0x0387…03ba at0007 = ╱3d╱=╱ // 0x38e @0x7
0x0387…03ba at0008 = ╱3d╱=╱ // 0x38f @0x8
0x0387…03ba at0009 = ╱3d╱=╱ // 0x390 @0x9
0x0387…03ba at000a = ╱3d╱=╱ // 0x391 @0xa
0x0387…03ba at000b = ╱3d╱=╱ // 0x392 @0xb
0x0387…03ba at000c = ╱3d╱=╱ // 0x393 @0xc
0x0387…03ba at000d = ╱3d╱=╱ // 0x394 @0xd
0x0387…03ba at000e = ╱3d╱=╱ // 0x395 @0xe
0x0387…03ba at000f = ╱3d╱=╱ // 0x396 @0xf
0x0387…03ba at0010 = ╱20╱…╱ // 0x397 @0x10
0x0387…03ba at0011 = ╱50╱P╱ // 0x398 @0x11
0x0387…03ba at0012 = ╱72╱r╱ // 0x399 @0x12
0x0387…03ba at0013 = ╱6f╱o╱ // 0x39a @0x13
0x0387…03ba at0014 = ╱63╱c╱ // 0x39b @0x14
0x0387…03ba at0015 = ╱65╱e╱ // 0x39c @0x15
0x0387…03ba at0016 = ╱64╱d╱ // 0x39d @0x16
0x0387…03ba at0017 = ╱75╱u╱ // 0x39e @0x17
0x0387…03ba at0018 = ╱72╱r╱ // 0x39f @0x18
0x0387…03ba at0019 = ╱65╱e╱ // 0x3a0 @0x19
0x0387…03ba at001a = ╱72╱r╱ // 0x3a1 @0x1a
0x0387…03ba at001b = ╱20╱…╱ // 0x3a2 @0x1b
0x0387…03ba at001c = ╱73╱s╱ // 0x3a3 @0x1c
0x0387…03ba at001d = ╱74╱t╱ // 0x3a4 @0x1d
0x0387…03ba at001e = ╱61╱a╱ // 0x3a5 @0x1e
0x0387…03ba at001f = ╱72╱r╱ // 0x3a6 @0x1f
0x0387…03ba at0020 = ╱74╱t╱ // 0x3a7 @0x20
0x0387…03ba at0021 = ╱65╱e╱ // 0x3a8 @0x21
0x0387…03ba at0022 = ╱72╱r╱ // 0x3a9 @0x22
0x0387…03ba at0023 = ╱20╱…╱ // 0x3aa @0x23
0x0387…03ba at0024 = ╱3d╱=╱ // 0x3ab @0x24
0x0387…03ba at0025 = ╱3d╱=╱ // 0x3ac @0x25
0x0387…03ba at0026 = ╱3d╱=╱ // 0x3ad @0x26
0x0387…03ba at0027 = ╱3d╱=╱ // 0x3ae @0x27
0x0387…03ba at0028 = ╱3d╱=╱ // 0x3af @0x28
0x0387…03ba at0029 = ╱3d╱=╱ // 0x3b0 @0x29
0x0387…03ba at002a = ╱3d╱=╱ // 0x3b1 @0x2a
0x0387…03ba at002b = ╱3d╱=╱ // 0x3b2 @0x2b
0x0387…03ba at002c = ╱3d╱=╱ // 0x3b3 @0x2c
0x0387…03ba at002d = ╱3d╱=╱ // 0x3b4 @0x2d
0x0387…03ba at002e = ╱3d╱=╱ // 0x3b5 @0x2e
0x0387…03ba at002f = ╱3d╱=╱ // 0x3b6 @0x2f
0x0387…03ba at0030 = ╱3d╱=╱ // 0x3b7 @0x30
0x0387…03ba at0031 = ╱3d╱=╱ // 0x3b8 @0x31
0x0387…03ba at0032 = EOL // 0x3b9 @0x32
0x0387…03ba }
0x03ba…03cc 99ba 00260 PROC DIMENSIONER
0x03ba…03cc LineComal80 {
0x03ba…03cc ptr = 0x99ba // 0x3ba @0x0
0x03ba…03cc lno = 0x0104 // 0x3bc @0x2
0x03ba…03cc at0004 = ╱9e03╱ PROC ╱ // 0x3be @0x4
0x03ba…03cc at0006 = ╱44╱D╱ // 0x3c0 @0x6
0x03ba…03cc at0007 = ╱49╱I╱ // 0x3c1 @0x7
0x03ba…03cc at0008 = ╱4d╱M╱ // 0x3c2 @0x8
0x03ba…03cc at0009 = ╱45╱E╱ // 0x3c3 @0x9
0x03ba…03cc at000a = ╱4e╱N╱ // 0x3c4 @0xa
0x03ba…03cc at000b = ╱53╱S╱ // 0x3c5 @0xb
0x03ba…03cc at000c = ╱49╱I╱ // 0x3c6 @0xc
0x03ba…03cc at000d = ╱4f╱O╱ // 0x3c7 @0xd
0x03ba…03cc at000e = ╱4e╱N╱ // 0x3c8 @0xe
0x03ba…03cc at000f = ╱45╱E╱ // 0x3c9 @0xf
0x03ba…03cc at0010 = ╱52╱R╱ // 0x3ca @0x10
0x03ba…03cc at0011 = EOL // 0x3cb @0x11
0x03ba…03cc }
0x03cc…03e3 99d1 00270 // Standard…variable
0x03cc…03e3 LineComal80 {
0x03cc…03e3 ptr = 0x99d1 // 0x3cc @0x0
0x03cc…03e3 lno = 0x010e // 0x3ce @0x2
0x03cc…03e3 at0004 = ╱89╱ // ╱ // 0x3d0 @0x4
0x03cc…03e3 at0005 = ╱53╱S╱ // 0x3d1 @0x5
0x03cc…03e3 at0006 = ╱74╱t╱ // 0x3d2 @0x6
0x03cc…03e3 at0007 = ╱61╱a╱ // 0x3d3 @0x7
0x03cc…03e3 at0008 = ╱6e╱n╱ // 0x3d4 @0x8
0x03cc…03e3 at0009 = ╱64╱d╱ // 0x3d5 @0x9
0x03cc…03e3 at000a = ╱61╱a╱ // 0x3d6 @0xa
0x03cc…03e3 at000b = ╱72╱r╱ // 0x3d7 @0xb
0x03cc…03e3 at000c = ╱64╱d╱ // 0x3d8 @0xc
0x03cc…03e3 at000d = ╱20╱…╱ // 0x3d9 @0xd
0x03cc…03e3 at000e = ╱76╱v╱ // 0x3da @0xe
0x03cc…03e3 at000f = ╱61╱a╱ // 0x3db @0xf
0x03cc…03e3 at0010 = ╱72╱r╱ // 0x3dc @0x10
0x03cc…03e3 at0011 = ╱69╱i╱ // 0x3dd @0x11
0x03cc…03e3 at0012 = ╱61╱a╱ // 0x3de @0x12
0x03cc…03e3 at0013 = ╱62╱b╱ // 0x3df @0x13
0x03cc…03e3 at0014 = ╱6c╱l╱ // 0x3e0 @0x14
0x03cc…03e3 at0015 = ╱65╱e╱ // 0x3e1 @0x15
0x03cc…03e3 at0016 = EOL // 0x3e2 @0x16
0x03cc…03e3 }
0x03e3…0422 c967 00280 DIM SPC $ OF 80 , SVAR $ OF 10 , PRGFL $ OF 8 , ALFA $ OF 28 , TAL $ OF 10
0x03e3…0422 LineComal80 {
0x03e3…0422 ptr = 0xc967 // 0x3e3 @0x0
0x03e3…0422 lno = 0x0118 // 0x3e5 @0x2
0x03e3…0422 at0004 = ╱87╱ DIM ╱ // 0x3e7 @0x4
0x03e3…0422 at0005 = ╱53╱S╱ // 0x3e8 @0x5
0x03e3…0422 at0006 = ╱50╱P╱ // 0x3e9 @0x6
0x03e3…0422 at0007 = ╱43╱C╱ // 0x3ea @0x7
0x03e3…0422 at0008 = ╱ef╱ $ ╱ // 0x3eb @0x8
0x03e3…0422 at0009 = ╱ba╱ OF ╱ // 0x3ec @0x9
0x03e3…0422 at000a = ╱38╱8╱ // 0x3ed @0xa
0x03e3…0422 at000b = ╱30╱0╱ // 0x3ee @0xb
0x03e3…0422 at000c = ╱f25000╱ // 0x3ef @0xc
0x03e3…0422 at000f = ╱ec╱ , ╱ // 0x3f2 @0xf
0x03e3…0422 at0010 = ╱53╱S╱ // 0x3f3 @0x10
0x03e3…0422 at0011 = ╱56╱V╱ // 0x3f4 @0x11
0x03e3…0422 at0012 = ╱41╱A╱ // 0x3f5 @0x12
0x03e3…0422 at0013 = ╱52╱R╱ // 0x3f6 @0x13
0x03e3…0422 at0014 = ╱ef╱ $ ╱ // 0x3f7 @0x14
0x03e3…0422 at0015 = ╱ba╱ OF ╱ // 0x3f8 @0x15
0x03e3…0422 at0016 = ╱31╱1╱ // 0x3f9 @0x16
0x03e3…0422 at0017 = ╱30╱0╱ // 0x3fa @0x17
0x03e3…0422 at0018 = ╱f20a00╱ // 0x3fb @0x18
0x03e3…0422 at001b = ╱ec╱ , ╱ // 0x3fe @0x1b
0x03e3…0422 at001c = ╱50╱P╱ // 0x3ff @0x1c
0x03e3…0422 at001d = ╱52╱R╱ // 0x400 @0x1d
0x03e3…0422 at001e = ╱47╱G╱ // 0x401 @0x1e
0x03e3…0422 at001f = ╱46╱F╱ // 0x402 @0x1f
0x03e3…0422 at0020 = ╱4c╱L╱ // 0x403 @0x20
0x03e3…0422 at0021 = ╱ef╱ $ ╱ // 0x404 @0x21
0x03e3…0422 at0022 = ╱ba╱ OF ╱ // 0x405 @0x22
0x03e3…0422 at0023 = ╱38╱8╱ // 0x406 @0x23
0x03e3…0422 at0024 = ╱f20800╱ // 0x407 @0x24
0x03e3…0422 at0027 = ╱ec╱ , ╱ // 0x40a @0x27
0x03e3…0422 at0028 = ╱41╱A╱ // 0x40b @0x28
0x03e3…0422 at0029 = ╱4c╱L╱ // 0x40c @0x29
0x03e3…0422 at002a = ╱46╱F╱ // 0x40d @0x2a
0x03e3…0422 at002b = ╱41╱A╱ // 0x40e @0x2b
0x03e3…0422 at002c = ╱ef╱ $ ╱ // 0x40f @0x2c
0x03e3…0422 at002d = ╱ba╱ OF ╱ // 0x410 @0x2d
0x03e3…0422 at002e = ╱32╱2╱ // 0x411 @0x2e
0x03e3…0422 at002f = ╱38╱8╱ // 0x412 @0x2f
0x03e3…0422 at0030 = ╱f21c00╱ // 0x413 @0x30
0x03e3…0422 at0033 = ╱ec╱ , ╱ // 0x416 @0x33
0x03e3…0422 at0034 = ╱54╱T╱ // 0x417 @0x34
0x03e3…0422 at0035 = ╱41╱A╱ // 0x418 @0x35
0x03e3…0422 at0036 = ╱4c╱L╱ // 0x419 @0x36
0x03e3…0422 at0037 = ╱ef╱ $ ╱ // 0x41a @0x37
0x03e3…0422 at0038 = ╱ba╱ OF ╱ // 0x41b @0x38
0x03e3…0422 at0039 = ╱31╱1╱ // 0x41c @0x39
0x03e3…0422 at003a = ╱30╱0╱ // 0x41d @0x3a
0x03e3…0422 at003b = ╱f20a00╱ // 0x41e @0x3b
0x03e3…0422 at003e = EOL // 0x421 @0x3e
0x03e3…0422 }
0x0422…0442 9a30 00170 DIM PROGRAM $ OF 17 , PRTNR $ OF 1
0x0422…0442 LineComal80 {
0x0422…0442 ptr = 0x9a30 // 0x422 @0x0
0x0422…0442 lno = 0x00aa // 0x424 @0x2
0x0422…0442 at0004 = ╱87╱ DIM ╱ // 0x426 @0x4
0x0422…0442 at0005 = ╱50╱P╱ // 0x427 @0x5
0x0422…0442 at0006 = ╱52╱R╱ // 0x428 @0x6
0x0422…0442 at0007 = ╱4f╱O╱ // 0x429 @0x7
0x0422…0442 at0008 = ╱47╱G╱ // 0x42a @0x8
0x0422…0442 at0009 = ╱52╱R╱ // 0x42b @0x9
0x0422…0442 at000a = ╱41╱A╱ // 0x42c @0xa
0x0422…0442 at000b = ╱4d╱M╱ // 0x42d @0xb
0x0422…0442 at000c = ╱ef╱ $ ╱ // 0x42e @0xc
0x0422…0442 at000d = ╱ba╱ OF ╱ // 0x42f @0xd
0x0422…0442 at000e = ╱31╱1╱ // 0x430 @0xe
0x0422…0442 at000f = ╱37╱7╱ // 0x431 @0xf
0x0422…0442 at0010 = ╱f21100╱ // 0x432 @0x10
0x0422…0442 at0013 = ╱ec╱ , ╱ // 0x435 @0x13
0x0422…0442 at0014 = ╱50╱P╱ // 0x436 @0x14
0x0422…0442 at0015 = ╱52╱R╱ // 0x437 @0x15
0x0422…0442 at0016 = ╱54╱T╱ // 0x438 @0x16
0x0422…0442 at0017 = ╱4e╱N╱ // 0x439 @0x17
0x0422…0442 at0018 = ╱52╱R╱ // 0x43a @0x18
0x0422…0442 at0019 = ╱ef╱ $ ╱ // 0x43b @0x19
0x0422…0442 at001a = ╱ba╱ OF ╱ // 0x43c @0x1a
0x0422…0442 at001b = ╱31╱1╱ // 0x43d @0x1b
0x0422…0442 at001c = ╱f20100╱ // 0x43e @0x1c
0x0422…0442 at001f = EOL // 0x441 @0x1f
0x0422…0442 }
0x0442…0452 9a40 00300 REAL RESRV , PPAR
0x0442…0452 LineComal80 {
0x0442…0452 ptr = 0x9a40 // 0x442 @0x0
0x0442…0452 lno = 0x012c // 0x444 @0x2
0x0442…0452 at0004 = ╱b3╱ REAL ╱ // 0x446 @0x4
0x0442…0452 at0005 = ╱52╱R╱ // 0x447 @0x5
0x0442…0452 at0006 = ╱45╱E╱ // 0x448 @0x6
0x0442…0452 at0007 = ╱53╱S╱ // 0x449 @0x7
0x0442…0452 at0008 = ╱52╱R╱ // 0x44a @0x8
0x0442…0452 at0009 = ╱56╱V╱ // 0x44b @0x9
0x0442…0452 at000a = ╱ec╱ , ╱ // 0x44c @0xa
0x0442…0452 at000b = ╱50╱P╱ // 0x44d @0xb
0x0442…0452 at000c = ╱50╱P╱ // 0x44e @0xc
0x0442…0452 at000d = ╱41╱A╱ // 0x44f @0xd
0x0442…0452 at000e = ╱52╱R╱ // 0x450 @0xe
0x0442…0452 at000f = EOL // 0x451 @0xf
0x0442…0452 }
0x0452…047e c500 00310 INTEGER OK , TRUE , FALSE , I , J , LIN_T , MAX_LIN , SIDENR
0x0452…047e LineComal80 {
0x0452…047e ptr = 0xc500 // 0x452 @0x0
0x0452…047e lno = 0x0136 // 0x454 @0x2
0x0452…047e at0004 = ╱b2╱ INTEGER ╱ // 0x456 @0x4
0x0452…047e at0005 = ╱4f╱O╱ // 0x457 @0x5
0x0452…047e at0006 = ╱4b╱K╱ // 0x458 @0x6
0x0452…047e at0007 = ╱ec╱ , ╱ // 0x459 @0x7
0x0452…047e at0008 = ╱54╱T╱ // 0x45a @0x8
0x0452…047e at0009 = ╱52╱R╱ // 0x45b @0x9
0x0452…047e at000a = ╱55╱U╱ // 0x45c @0xa
0x0452…047e at000b = ╱45╱E╱ // 0x45d @0xb
0x0452…047e at000c = ╱ec╱ , ╱ // 0x45e @0xc
0x0452…047e at000d = ╱46╱F╱ // 0x45f @0xd
0x0452…047e at000e = ╱41╱A╱ // 0x460 @0xe
0x0452…047e at000f = ╱4c╱L╱ // 0x461 @0xf
0x0452…047e at0010 = ╱53╱S╱ // 0x462 @0x10
0x0452…047e at0011 = ╱45╱E╱ // 0x463 @0x11
0x0452…047e at0012 = ╱ec╱ , ╱ // 0x464 @0x12
0x0452…047e at0013 = ╱49╱I╱ // 0x465 @0x13
0x0452…047e at0014 = ╱ec╱ , ╱ // 0x466 @0x14
0x0452…047e at0015 = ╱4a╱J╱ // 0x467 @0x15
0x0452…047e at0016 = ╱ec╱ , ╱ // 0x468 @0x16
0x0452…047e at0017 = ╱4c╱L╱ // 0x469 @0x17
0x0452…047e at0018 = ╱49╱I╱ // 0x46a @0x18
0x0452…047e at0019 = ╱4e╱N╱ // 0x46b @0x19
0x0452…047e at001a = ╱5f╱_╱ // 0x46c @0x1a
0x0452…047e at001b = ╱54╱T╱ // 0x46d @0x1b
0x0452…047e at001c = ╱ec╱ , ╱ // 0x46e @0x1c
0x0452…047e at001d = ╱4d╱M╱ // 0x46f @0x1d
0x0452…047e at001e = ╱41╱A╱ // 0x470 @0x1e
0x0452…047e at001f = ╱58╱X╱ // 0x471 @0x1f
0x0452…047e at0020 = ╱5f╱_╱ // 0x472 @0x20
0x0452…047e at0021 = ╱4c╱L╱ // 0x473 @0x21
0x0452…047e at0022 = ╱49╱I╱ // 0x474 @0x22
0x0452…047e at0023 = ╱4e╱N╱ // 0x475 @0x23
0x0452…047e at0024 = ╱ec╱ , ╱ // 0x476 @0x24
0x0452…047e at0025 = ╱53╱S╱ // 0x477 @0x25
0x0452…047e at0026 = ╱49╱I╱ // 0x478 @0x26
0x0452…047e at0027 = ╱44╱D╱ // 0x479 @0x27
0x0452…047e at0028 = ╱45╱E╱ // 0x47a @0x28
0x0452…047e at0029 = ╱4e╱N╱ // 0x47b @0x29
0x0452…047e at002a = ╱52╱R╱ // 0x47c @0x2a
0x0452…047e at002b = EOL // 0x47d @0x2b
0x0452…047e }
0x047e…04a2 9a90 00340 // Variable…til…filen…KTOIDX…m.m.
0x047e…04a2 LineComal80 {
0x047e…04a2 ptr = 0x9a90 // 0x47e @0x0
0x047e…04a2 lno = 0x0154 // 0x480 @0x2
0x047e…04a2 at0004 = ╱89╱ // ╱ // 0x482 @0x4
0x047e…04a2 at0005 = ╱56╱V╱ // 0x483 @0x5
0x047e…04a2 at0006 = ╱61╱a╱ // 0x484 @0x6
0x047e…04a2 at0007 = ╱72╱r╱ // 0x485 @0x7
0x047e…04a2 at0008 = ╱69╱i╱ // 0x486 @0x8
0x047e…04a2 at0009 = ╱61╱a╱ // 0x487 @0x9
0x047e…04a2 at000a = ╱62╱b╱ // 0x488 @0xa
0x047e…04a2 at000b = ╱6c╱l╱ // 0x489 @0xb
0x047e…04a2 at000c = ╱65╱e╱ // 0x48a @0xc
0x047e…04a2 at000d = ╱20╱…╱ // 0x48b @0xd
0x047e…04a2 at000e = ╱74╱t╱ // 0x48c @0xe
0x047e…04a2 at000f = ╱69╱i╱ // 0x48d @0xf
0x047e…04a2 at0010 = ╱6c╱l╱ // 0x48e @0x10
0x047e…04a2 at0011 = ╱20╱…╱ // 0x48f @0x11
0x047e…04a2 at0012 = ╱66╱f╱ // 0x490 @0x12
0x047e…04a2 at0013 = ╱69╱i╱ // 0x491 @0x13
0x047e…04a2 at0014 = ╱6c╱l╱ // 0x492 @0x14
0x047e…04a2 at0015 = ╱65╱e╱ // 0x493 @0x15
0x047e…04a2 at0016 = ╱6e╱n╱ // 0x494 @0x16
0x047e…04a2 at0017 = ╱20╱…╱ // 0x495 @0x17
0x047e…04a2 at0018 = ╱4b╱K╱ // 0x496 @0x18
0x047e…04a2 at0019 = ╱54╱T╱ // 0x497 @0x19
0x047e…04a2 at001a = ╱4f╱O╱ // 0x498 @0x1a
0x047e…04a2 at001b = ╱49╱I╱ // 0x499 @0x1b
0x047e…04a2 at001c = ╱44╱D╱ // 0x49a @0x1c
0x047e…04a2 at001d = ╱58╱X╱ // 0x49b @0x1d
0x047e…04a2 at001e = ╱20╱…╱ // 0x49c @0x1e
0x047e…04a2 at001f = ╱6d╱m╱ // 0x49d @0x1f
0x047e…04a2 at0020 = ╱2e╱.╱ // 0x49e @0x20
0x047e…04a2 at0021 = ╱6d╱m╱ // 0x49f @0x21
0x047e…04a2 at0022 = ╱2e╱.╱ // 0x4a0 @0x22
0x047e…04a2 at0023 = EOL // 0x4a1 @0x23
0x047e…04a2 }
0x04a2…04b5 9aa3 00350 DIM KTOIDX $ OF 17
0x04a2…04b5 LineComal80 {
0x04a2…04b5 ptr = 0x9aa3 // 0x4a2 @0x0
0x04a2…04b5 lno = 0x015e // 0x4a4 @0x2
0x04a2…04b5 at0004 = ╱87╱ DIM ╱ // 0x4a6 @0x4
0x04a2…04b5 at0005 = ╱4b╱K╱ // 0x4a7 @0x5
0x04a2…04b5 at0006 = ╱54╱T╱ // 0x4a8 @0x6
0x04a2…04b5 at0007 = ╱4f╱O╱ // 0x4a9 @0x7
0x04a2…04b5 at0008 = ╱49╱I╱ // 0x4aa @0x8
0x04a2…04b5 at0009 = ╱44╱D╱ // 0x4ab @0x9
0x04a2…04b5 at000a = ╱58╱X╱ // 0x4ac @0xa
0x04a2…04b5 at000b = ╱ef╱ $ ╱ // 0x4ad @0xb
0x04a2…04b5 at000c = ╱ba╱ OF ╱ // 0x4ae @0xc
0x04a2…04b5 at000d = ╱31╱1╱ // 0x4af @0xd
0x04a2…04b5 at000e = ╱37╱7╱ // 0x4b0 @0xe
0x04a2…04b5 at000f = ╱f21100╱ // 0x4b1 @0xf
0x04a2…04b5 at0012 = EOL // 0x4b4 @0x12
0x04a2…04b5 }
0x04b5…04e6 9ad4 00360 INTEGER I_H\JREC , I_MAXREC , LOW , HIGH , POS , IDXPOS , RECNR
0x04b5…04e6 LineComal80 {
0x04b5…04e6 ptr = 0x9ad4 // 0x4b5 @0x0
0x04b5…04e6 lno = 0x0168 // 0x4b7 @0x2
0x04b5…04e6 at0004 = ╱b2╱ INTEGER ╱ // 0x4b9 @0x4
0x04b5…04e6 at0005 = ╱49╱I╱ // 0x4ba @0x5
0x04b5…04e6 at0006 = ╱5f╱_╱ // 0x4bb @0x6
0x04b5…04e6 at0007 = ╱48╱H╱ // 0x4bc @0x7
0x04b5…04e6 at0008 = ╱5c╱\╱ // 0x4bd @0x8
0x04b5…04e6 at0009 = ╱4a╱J╱ // 0x4be @0x9
0x04b5…04e6 at000a = ╱52╱R╱ // 0x4bf @0xa
0x04b5…04e6 at000b = ╱45╱E╱ // 0x4c0 @0xb
0x04b5…04e6 at000c = ╱43╱C╱ // 0x4c1 @0xc
0x04b5…04e6 at000d = ╱ec╱ , ╱ // 0x4c2 @0xd
0x04b5…04e6 at000e = ╱49╱I╱ // 0x4c3 @0xe
0x04b5…04e6 at000f = ╱5f╱_╱ // 0x4c4 @0xf
0x04b5…04e6 at0010 = ╱4d╱M╱ // 0x4c5 @0x10
0x04b5…04e6 at0011 = ╱41╱A╱ // 0x4c6 @0x11
0x04b5…04e6 at0012 = ╱58╱X╱ // 0x4c7 @0x12
0x04b5…04e6 at0013 = ╱52╱R╱ // 0x4c8 @0x13
0x04b5…04e6 at0014 = ╱45╱E╱ // 0x4c9 @0x14
0x04b5…04e6 at0015 = ╱43╱C╱ // 0x4ca @0x15
0x04b5…04e6 at0016 = ╱ec╱ , ╱ // 0x4cb @0x16
0x04b5…04e6 at0017 = ╱4c╱L╱ // 0x4cc @0x17
0x04b5…04e6 at0018 = ╱4f╱O╱ // 0x4cd @0x18
0x04b5…04e6 at0019 = ╱57╱W╱ // 0x4ce @0x19
0x04b5…04e6 at001a = ╱ec╱ , ╱ // 0x4cf @0x1a
0x04b5…04e6 at001b = ╱48╱H╱ // 0x4d0 @0x1b
0x04b5…04e6 at001c = ╱49╱I╱ // 0x4d1 @0x1c
0x04b5…04e6 at001d = ╱47╱G╱ // 0x4d2 @0x1d
0x04b5…04e6 at001e = ╱48╱H╱ // 0x4d3 @0x1e
0x04b5…04e6 at001f = ╱ec╱ , ╱ // 0x4d4 @0x1f
0x04b5…04e6 at0020 = ╱50╱P╱ // 0x4d5 @0x20
0x04b5…04e6 at0021 = ╱4f╱O╱ // 0x4d6 @0x21
0x04b5…04e6 at0022 = ╱53╱S╱ // 0x4d7 @0x22
0x04b5…04e6 at0023 = ╱ec╱ , ╱ // 0x4d8 @0x23
0x04b5…04e6 at0024 = ╱49╱I╱ // 0x4d9 @0x24
0x04b5…04e6 at0025 = ╱44╱D╱ // 0x4da @0x25
0x04b5…04e6 at0026 = ╱58╱X╱ // 0x4db @0x26
0x04b5…04e6 at0027 = ╱50╱P╱ // 0x4dc @0x27
0x04b5…04e6 at0028 = ╱4f╱O╱ // 0x4dd @0x28
0x04b5…04e6 at0029 = ╱53╱S╱ // 0x4de @0x29
0x04b5…04e6 at002a = ╱ec╱ , ╱ // 0x4df @0x2a
0x04b5…04e6 at002b = ╱52╱R╱ // 0x4e0 @0x2b
0x04b5…04e6 at002c = ╱45╱E╱ // 0x4e1 @0x2c
0x04b5…04e6 at002d = ╱43╱C╱ // 0x4e2 @0x2d
0x04b5…04e6 at002e = ╱4e╱N╱ // 0x4e3 @0x2e
0x04b5…04e6 at002f = ╱52╱R╱ // 0x4e4 @0x2f
0x04b5…04e6 at0030 = EOL // 0x4e5 @0x30
0x04b5…04e6 }
0x04e6…04f7 9ae5 00370 DIM KTONR $ OF 8
0x04e6…04f7 LineComal80 {
0x04e6…04f7 ptr = 0x9ae5 // 0x4e6 @0x0
0x04e6…04f7 lno = 0x0172 // 0x4e8 @0x2
0x04e6…04f7 at0004 = ╱87╱ DIM ╱ // 0x4ea @0x4
0x04e6…04f7 at0005 = ╱4b╱K╱ // 0x4eb @0x5
0x04e6…04f7 at0006 = ╱54╱T╱ // 0x4ec @0x6
0x04e6…04f7 at0007 = ╱4f╱O╱ // 0x4ed @0x7
0x04e6…04f7 at0008 = ╱4e╱N╱ // 0x4ee @0x8
0x04e6…04f7 at0009 = ╱52╱R╱ // 0x4ef @0x9
0x04e6…04f7 at000a = ╱ef╱ $ ╱ // 0x4f0 @0xa
0x04e6…04f7 at000b = ╱ba╱ OF ╱ // 0x4f1 @0xb
0x04e6…04f7 at000c = ╱38╱8╱ // 0x4f2 @0xc
0x04e6…04f7 at000d = ╱f20800╱ // 0x4f3 @0xd
0x04e6…04f7 at0010 = EOL // 0x4f6 @0x10
0x04e6…04f7 }
0x04f7…0517 9b05 00380 // Variable…til…filen…@@KONTO
0x04f7…0517 LineComal80 {
0x04f7…0517 ptr = 0x9b05 // 0x4f7 @0x0
0x04f7…0517 lno = 0x017c // 0x4f9 @0x2
0x04f7…0517 at0004 = ╱89╱ // ╱ // 0x4fb @0x4
0x04f7…0517 at0005 = ╱56╱V╱ // 0x4fc @0x5
0x04f7…0517 at0006 = ╱61╱a╱ // 0x4fd @0x6
0x04f7…0517 at0007 = ╱72╱r╱ // 0x4fe @0x7
0x04f7…0517 at0008 = ╱69╱i╱ // 0x4ff @0x8
0x04f7…0517 at0009 = ╱61╱a╱ // 0x500 @0x9
0x04f7…0517 at000a = ╱62╱b╱ // 0x501 @0xa
0x04f7…0517 at000b = ╱6c╱l╱ // 0x502 @0xb
0x04f7…0517 at000c = ╱65╱e╱ // 0x503 @0xc
0x04f7…0517 at000d = ╱20╱…╱ // 0x504 @0xd
0x04f7…0517 at000e = ╱74╱t╱ // 0x505 @0xe
0x04f7…0517 at000f = ╱69╱i╱ // 0x506 @0xf
0x04f7…0517 at0010 = ╱6c╱l╱ // 0x507 @0x10
0x04f7…0517 at0011 = ╱20╱…╱ // 0x508 @0x11
0x04f7…0517 at0012 = ╱66╱f╱ // 0x509 @0x12
0x04f7…0517 at0013 = ╱69╱i╱ // 0x50a @0x13
0x04f7…0517 at0014 = ╱6c╱l╱ // 0x50b @0x14
0x04f7…0517 at0015 = ╱65╱e╱ // 0x50c @0x15
0x04f7…0517 at0016 = ╱6e╱n╱ // 0x50d @0x16
0x04f7…0517 at0017 = ╱20╱…╱ // 0x50e @0x17
0x04f7…0517 at0018 = ╱40╱@╱ // 0x50f @0x18
0x04f7…0517 at0019 = ╱40╱@╱ // 0x510 @0x19
0x04f7…0517 at001a = ╱4b╱K╱ // 0x511 @0x1a
0x04f7…0517 at001b = ╱4f╱O╱ // 0x512 @0x1b
0x04f7…0517 at001c = ╱4e╱N╱ // 0x513 @0x1c
0x04f7…0517 at001d = ╱54╱T╱ // 0x514 @0x1d
0x04f7…0517 at001e = ╱4f╱O╱ // 0x515 @0x1e
0x04f7…0517 at001f = EOL // 0x516 @0x1f
0x04f7…0517 }
0x0517…0529 9b17 00390 DIM KONTO $ OF 17
0x0517…0529 LineComal80 {
0x0517…0529 ptr = 0x9b17 // 0x517 @0x0
0x0517…0529 lno = 0x0186 // 0x519 @0x2
0x0517…0529 at0004 = ╱87╱ DIM ╱ // 0x51b @0x4
0x0517…0529 at0005 = ╱4b╱K╱ // 0x51c @0x5
0x0517…0529 at0006 = ╱4f╱O╱ // 0x51d @0x6
0x0517…0529 at0007 = ╱4e╱N╱ // 0x51e @0x7
0x0517…0529 at0008 = ╱54╱T╱ // 0x51f @0x8
0x0517…0529 at0009 = ╱4f╱O╱ // 0x520 @0x9
0x0517…0529 at000a = ╱ef╱ $ ╱ // 0x521 @0xa
0x0517…0529 at000b = ╱ba╱ OF ╱ // 0x522 @0xb
0x0517…0529 at000c = ╱31╱1╱ // 0x523 @0xc
0x0517…0529 at000d = ╱37╱7╱ // 0x524 @0xd
0x0517…0529 at000e = ╱f21100╱ // 0x525 @0xe
0x0517…0529 at0011 = EOL // 0x528 @0x11
0x0517…0529 }
0x0529…053c 9b2a 00400 DIM ST_DATO $ OF 6
0x0529…053c LineComal80 {
0x0529…053c ptr = 0x9b2a // 0x529 @0x0
0x0529…053c lno = 0x0190 // 0x52b @0x2
0x0529…053c at0004 = ╱87╱ DIM ╱ // 0x52d @0x4
0x0529…053c at0005 = ╱53╱S╱ // 0x52e @0x5
0x0529…053c at0006 = ╱54╱T╱ // 0x52f @0x6
0x0529…053c at0007 = ╱5f╱_╱ // 0x530 @0x7
0x0529…053c at0008 = ╱44╱D╱ // 0x531 @0x8
0x0529…053c at0009 = ╱41╱A╱ // 0x532 @0x9
0x0529…053c at000a = ╱54╱T╱ // 0x533 @0xa
0x0529…053c at000b = ╱4f╱O╱ // 0x534 @0xb
0x0529…053c at000c = ╱ef╱ $ ╱ // 0x535 @0xc
0x0529…053c at000d = ╱ba╱ OF ╱ // 0x536 @0xd
0x0529…053c at000e = ╱36╱6╱ // 0x537 @0xe
0x0529…053c at000f = ╱f20600╱ // 0x538 @0xf
0x0529…053c at0012 = EOL // 0x53b @0x12
0x0529…053c }
0x053c…0562 9b50 00410 INTEGER N_FRIREC , N_MAXREC , ANT_PER , PER_NR
0x053c…0562 LineComal80 {
0x053c…0562 ptr = 0x9b50 // 0x53c @0x0
0x053c…0562 lno = 0x019a // 0x53e @0x2
0x053c…0562 at0004 = ╱b2╱ INTEGER ╱ // 0x540 @0x4
0x053c…0562 at0005 = ╱4e╱N╱ // 0x541 @0x5
0x053c…0562 at0006 = ╱5f╱_╱ // 0x542 @0x6
0x053c…0562 at0007 = ╱46╱F╱ // 0x543 @0x7
0x053c…0562 at0008 = ╱52╱R╱ // 0x544 @0x8
0x053c…0562 at0009 = ╱49╱I╱ // 0x545 @0x9
0x053c…0562 at000a = ╱52╱R╱ // 0x546 @0xa
0x053c…0562 at000b = ╱45╱E╱ // 0x547 @0xb
0x053c…0562 at000c = ╱43╱C╱ // 0x548 @0xc
0x053c…0562 at000d = ╱ec╱ , ╱ // 0x549 @0xd
0x053c…0562 at000e = ╱4e╱N╱ // 0x54a @0xe
0x053c…0562 at000f = ╱5f╱_╱ // 0x54b @0xf
0x053c…0562 at0010 = ╱4d╱M╱ // 0x54c @0x10
0x053c…0562 at0011 = ╱41╱A╱ // 0x54d @0x11
0x053c…0562 at0012 = ╱58╱X╱ // 0x54e @0x12
0x053c…0562 at0013 = ╱52╱R╱ // 0x54f @0x13
0x053c…0562 at0014 = ╱45╱E╱ // 0x550 @0x14
0x053c…0562 at0015 = ╱43╱C╱ // 0x551 @0x15
0x053c…0562 at0016 = ╱ec╱ , ╱ // 0x552 @0x16
0x053c…0562 at0017 = ╱41╱A╱ // 0x553 @0x17
0x053c…0562 at0018 = ╱4e╱N╱ // 0x554 @0x18
0x053c…0562 at0019 = ╱54╱T╱ // 0x555 @0x19
0x053c…0562 at001a = ╱5f╱_╱ // 0x556 @0x1a
0x053c…0562 at001b = ╱50╱P╱ // 0x557 @0x1b
0x053c…0562 at001c = ╱45╱E╱ // 0x558 @0x1c
0x053c…0562 at001d = ╱52╱R╱ // 0x559 @0x1d
0x053c…0562 at001e = ╱ec╱ , ╱ // 0x55a @0x1e
0x053c…0562 at001f = ╱50╱P╱ // 0x55b @0x1f
0x053c…0562 at0020 = ╱45╱E╱ // 0x55c @0x20
0x053c…0562 at0021 = ╱52╱R╱ // 0x55d @0x21
0x053c…0562 at0022 = ╱5f╱_╱ // 0x55e @0x22
0x053c…0562 at0023 = ╱4e╱N╱ // 0x55f @0x23
0x053c…0562 at0024 = ╱52╱R╱ // 0x560 @0x24
0x053c…0562 at0025 = EOL // 0x561 @0x25
0x053c…0562 }
0x0562…0586 9b74 00420 DIM KTO_TYPE $ OF 1 , KTO_NAVN $ OF 40
0x0562…0586 LineComal80 {
0x0562…0586 ptr = 0x9b74 // 0x562 @0x0
0x0562…0586 lno = 0x01a4 // 0x564 @0x2
0x0562…0586 at0004 = ╱87╱ DIM ╱ // 0x566 @0x4
0x0562…0586 at0005 = ╱4b╱K╱ // 0x567 @0x5
0x0562…0586 at0006 = ╱54╱T╱ // 0x568 @0x6
0x0562…0586 at0007 = ╱4f╱O╱ // 0x569 @0x7
0x0562…0586 at0008 = ╱5f╱_╱ // 0x56a @0x8
0x0562…0586 at0009 = ╱54╱T╱ // 0x56b @0x9
0x0562…0586 at000a = ╱59╱Y╱ // 0x56c @0xa
0x0562…0586 at000b = ╱50╱P╱ // 0x56d @0xb
0x0562…0586 at000c = ╱45╱E╱ // 0x56e @0xc
0x0562…0586 at000d = ╱ef╱ $ ╱ // 0x56f @0xd
0x0562…0586 at000e = ╱ba╱ OF ╱ // 0x570 @0xe
0x0562…0586 at000f = ╱31╱1╱ // 0x571 @0xf
0x0562…0586 at0010 = ╱f20100╱ // 0x572 @0x10
0x0562…0586 at0013 = ╱ec╱ , ╱ // 0x575 @0x13
0x0562…0586 at0014 = ╱4b╱K╱ // 0x576 @0x14
0x0562…0586 at0015 = ╱54╱T╱ // 0x577 @0x15
0x0562…0586 at0016 = ╱4f╱O╱ // 0x578 @0x16
0x0562…0586 at0017 = ╱5f╱_╱ // 0x579 @0x17
0x0562…0586 at0018 = ╱4e╱N╱ // 0x57a @0x18
0x0562…0586 at0019 = ╱41╱A╱ // 0x57b @0x19
0x0562…0586 at001a = ╱56╱V╱ // 0x57c @0x1a
0x0562…0586 at001b = ╱4e╱N╱ // 0x57d @0x1b
0x0562…0586 at001c = ╱ef╱ $ ╱ // 0x57e @0x1c
0x0562…0586 at001d = ╱ba╱ OF ╱ // 0x57f @0x1d
0x0562…0586 at001e = ╱34╱4╱ // 0x580 @0x1e
0x0562…0586 at001f = ╱30╱0╱ // 0x581 @0x1f
0x0562…0586 at0020 = ╱f22800╱ // 0x582 @0x20
0x0562…0586 at0023 = EOL // 0x585 @0x23
0x0562…0586 }
0x0586…05a0 9b8e 00430 REAL KTO_PRIMO , KTO_ULTIMO
0x0586…05a0 LineComal80 {
0x0586…05a0 ptr = 0x9b8e // 0x586 @0x0
0x0586…05a0 lno = 0x01ae // 0x588 @0x2
0x0586…05a0 at0004 = ╱b3╱ REAL ╱ // 0x58a @0x4
0x0586…05a0 at0005 = ╱4b╱K╱ // 0x58b @0x5
0x0586…05a0 at0006 = ╱54╱T╱ // 0x58c @0x6
0x0586…05a0 at0007 = ╱4f╱O╱ // 0x58d @0x7
0x0586…05a0 at0008 = ╱5f╱_╱ // 0x58e @0x8
0x0586…05a0 at0009 = ╱50╱P╱ // 0x58f @0x9
0x0586…05a0 at000a = ╱52╱R╱ // 0x590 @0xa
0x0586…05a0 at000b = ╱49╱I╱ // 0x591 @0xb
0x0586…05a0 at000c = ╱4d╱M╱ // 0x592 @0xc
0x0586…05a0 at000d = ╱4f╱O╱ // 0x593 @0xd
0x0586…05a0 at000e = ╱ec╱ , ╱ // 0x594 @0xe
0x0586…05a0 at000f = ╱4b╱K╱ // 0x595 @0xf
0x0586…05a0 at0010 = ╱54╱T╱ // 0x596 @0x10
0x0586…05a0 at0011 = ╱4f╱O╱ // 0x597 @0x11
0x0586…05a0 at0012 = ╱5f╱_╱ // 0x598 @0x12
0x0586…05a0 at0013 = ╱55╱U╱ // 0x599 @0x13
0x0586…05a0 at0014 = ╱4c╱L╱ // 0x59a @0x14
0x0586…05a0 at0015 = ╱54╱T╱ // 0x59b @0x15
0x0586…05a0 at0016 = ╱49╱I╱ // 0x59c @0x16
0x0586…05a0 at0017 = ╱4d╱M╱ // 0x59d @0x17
0x0586…05a0 at0018 = ╱4f╱O╱ // 0x59e @0x18
0x0586…05a0 at0019 = EOL // 0x59f @0x19
0x0586…05a0 }
0x05a0…05b3 9ba1 00440 INTEGER KTO_FP , KTO_SP
0x05a0…05b3 LineComal80 {
0x05a0…05b3 ptr = 0x9ba1 // 0x5a0 @0x0
0x05a0…05b3 lno = 0x01b8 // 0x5a2 @0x2
0x05a0…05b3 at0004 = ╱b2╱ INTEGER ╱ // 0x5a4 @0x4
0x05a0…05b3 at0005 = ╱4b╱K╱ // 0x5a5 @0x5
0x05a0…05b3 at0006 = ╱54╱T╱ // 0x5a6 @0x6
0x05a0…05b3 at0007 = ╱4f╱O╱ // 0x5a7 @0x7
0x05a0…05b3 at0008 = ╱5f╱_╱ // 0x5a8 @0x8
0x05a0…05b3 at0009 = ╱46╱F╱ // 0x5a9 @0x9
0x05a0…05b3 at000a = ╱50╱P╱ // 0x5aa @0xa
0x05a0…05b3 at000b = ╱ec╱ , ╱ // 0x5ab @0xb
0x05a0…05b3 at000c = ╱4b╱K╱ // 0x5ac @0xc
0x05a0…05b3 at000d = ╱54╱T╱ // 0x5ad @0xd
0x05a0…05b3 at000e = ╱4f╱O╱ // 0x5ae @0xe
0x05a0…05b3 at000f = ╱5f╱_╱ // 0x5af @0xf
0x05a0…05b3 at0010 = ╱53╱S╱ // 0x5b0 @0x10
0x05a0…05b3 at0011 = ╱50╱P╱ // 0x5b1 @0x11
0x05a0…05b3 at0012 = EOL // 0x5b2 @0x12
0x05a0…05b3 }
0x05b3…05d3 9bc1 00450 // Variable…til…filen…SYSPARA
0x05b3…05d3 LineComal80 {
0x05b3…05d3 ptr = 0x9bc1 // 0x5b3 @0x0
0x05b3…05d3 lno = 0x01c2 // 0x5b5 @0x2
0x05b3…05d3 at0004 = ╱89╱ // ╱ // 0x5b7 @0x4
0x05b3…05d3 at0005 = ╱56╱V╱ // 0x5b8 @0x5
0x05b3…05d3 at0006 = ╱61╱a╱ // 0x5b9 @0x6
0x05b3…05d3 at0007 = ╱72╱r╱ // 0x5ba @0x7
0x05b3…05d3 at0008 = ╱69╱i╱ // 0x5bb @0x8
0x05b3…05d3 at0009 = ╱61╱a╱ // 0x5bc @0x9
0x05b3…05d3 at000a = ╱62╱b╱ // 0x5bd @0xa
0x05b3…05d3 at000b = ╱6c╱l╱ // 0x5be @0xb
0x05b3…05d3 at000c = ╱65╱e╱ // 0x5bf @0xc
0x05b3…05d3 at000d = ╱20╱…╱ // 0x5c0 @0xd
0x05b3…05d3 at000e = ╱74╱t╱ // 0x5c1 @0xe
0x05b3…05d3 at000f = ╱69╱i╱ // 0x5c2 @0xf
0x05b3…05d3 at0010 = ╱6c╱l╱ // 0x5c3 @0x10
0x05b3…05d3 at0011 = ╱20╱…╱ // 0x5c4 @0x11
0x05b3…05d3 at0012 = ╱66╱f╱ // 0x5c5 @0x12
0x05b3…05d3 at0013 = ╱69╱i╱ // 0x5c6 @0x13
0x05b3…05d3 at0014 = ╱6c╱l╱ // 0x5c7 @0x14
0x05b3…05d3 at0015 = ╱65╱e╱ // 0x5c8 @0x15
0x05b3…05d3 at0016 = ╱6e╱n╱ // 0x5c9 @0x16
0x05b3…05d3 at0017 = ╱20╱…╱ // 0x5ca @0x17
0x05b3…05d3 at0018 = ╱53╱S╱ // 0x5cb @0x18
0x05b3…05d3 at0019 = ╱59╱Y╱ // 0x5cc @0x19
0x05b3…05d3 at001a = ╱53╱S╱ // 0x5cd @0x1a
0x05b3…05d3 at001b = ╱50╱P╱ // 0x5ce @0x1b
0x05b3…05d3 at001c = ╱41╱A╱ // 0x5cf @0x1c
0x05b3…05d3 at001d = ╱52╱R╱ // 0x5d0 @0x1d
0x05b3…05d3 at001e = ╱41╱A╱ // 0x5d1 @0x1e
0x05b3…05d3 at001f = EOL // 0x5d2 @0x1f
0x05b3…05d3 }
0x05d3…05e7 9bd5 00460 DIM SYSPARA $ OF 17
0x05d3…05e7 LineComal80 {
0x05d3…05e7 ptr = 0x9bd5 // 0x5d3 @0x0
0x05d3…05e7 lno = 0x01cc // 0x5d5 @0x2
0x05d3…05e7 at0004 = ╱87╱ DIM ╱ // 0x5d7 @0x4
0x05d3…05e7 at0005 = ╱53╱S╱ // 0x5d8 @0x5
0x05d3…05e7 at0006 = ╱59╱Y╱ // 0x5d9 @0x6
0x05d3…05e7 at0007 = ╱53╱S╱ // 0x5da @0x7
0x05d3…05e7 at0008 = ╱50╱P╱ // 0x5db @0x8
0x05d3…05e7 at0009 = ╱41╱A╱ // 0x5dc @0x9
0x05d3…05e7 at000a = ╱52╱R╱ // 0x5dd @0xa
0x05d3…05e7 at000b = ╱41╱A╱ // 0x5de @0xb
0x05d3…05e7 at000c = ╱ef╱ $ ╱ // 0x5df @0xc
0x05d3…05e7 at000d = ╱ba╱ OF ╱ // 0x5e0 @0xd
0x05d3…05e7 at000e = ╱31╱1╱ // 0x5e1 @0xe
0x05d3…05e7 at000f = ╱37╱7╱ // 0x5e2 @0xf
0x05d3…05e7 at0010 = ╱f21100╱ // 0x5e3 @0x10
0x05d3…05e7 at0013 = EOL // 0x5e6 @0x13
0x05d3…05e7 }
0x05e7…060a 9bf8 00470 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
0x05e7…060a LineComal80 {
0x05e7…060a ptr = 0x9bf8 // 0x5e7 @0x0
0x05e7…060a lno = 0x01d6 // 0x5e9 @0x2
0x05e7…060a at0004 = ╱87╱ DIM ╱ // 0x5eb @0x4
0x05e7…060a at0005 = ╱53╱S╱ // 0x5ec @0x5
0x05e7…060a at0006 = ╱59╱Y╱ // 0x5ed @0x6
0x05e7…060a at0007 = ╱53╱S╱ // 0x5ee @0x7
0x05e7…060a at0008 = ╱54╱T╱ // 0x5ef @0x8
0x05e7…060a at0009 = ╱5f╱_╱ // 0x5f0 @0x9
0x05e7…060a at000a = ╱4e╱N╱ // 0x5f1 @0xa
0x05e7…060a at000b = ╱41╱A╱ // 0x5f2 @0xb
0x05e7…060a at000c = ╱56╱V╱ // 0x5f3 @0xc
0x05e7…060a at000d = ╱4e╱N╱ // 0x5f4 @0xd
0x05e7…060a at000e = ╱ef╱ $ ╱ // 0x5f5 @0xe
0x05e7…060a at000f = ╱ba╱ OF ╱ // 0x5f6 @0xf
0x05e7…060a at0010 = ╱33╱3╱ // 0x5f7 @0x10
0x05e7…060a at0011 = ╱30╱0╱ // 0x5f8 @0x11
0x05e7…060a at0012 = ╱f21e00╱ // 0x5f9 @0x12
0x05e7…060a at0015 = ╱ec╱ , ╱ // 0x5fc @0x15
0x05e7…060a at0016 = ╱53╱S╱ // 0x5fd @0x16
0x05e7…060a at0017 = ╱5f╱_╱ // 0x5fe @0x17
0x05e7…060a at0018 = ╱4b╱K╱ // 0x5ff @0x18
0x05e7…060a at0019 = ╱4f╱O╱ // 0x600 @0x19
0x05e7…060a at001a = ╱44╱D╱ // 0x601 @0x1a
0x05e7…060a at001b = ╱45╱E╱ // 0x602 @0x1b
0x05e7…060a at001c = ╱ef╱ $ ╱ // 0x603 @0x1c
0x05e7…060a at001d = ╱ba╱ OF ╱ // 0x604 @0x1d
0x05e7…060a at001e = ╱31╱1╱ // 0x605 @0x1e
0x05e7…060a at001f = ╱f20100╱ // 0x606 @0x1f
0x05e7…060a at0022 = EOL // 0x609 @0x22
0x05e7…060a }
0x060a…0629 9c17 00480 DIM DATAFL $ OF 8 , T_KODE $ OF 1
0x060a…0629 LineComal80 {
0x060a…0629 ptr = 0x9c17 // 0x60a @0x0
0x060a…0629 lno = 0x01e0 // 0x60c @0x2
0x060a…0629 at0004 = ╱87╱ DIM ╱ // 0x60e @0x4
0x060a…0629 at0005 = ╱44╱D╱ // 0x60f @0x5
0x060a…0629 at0006 = ╱41╱A╱ // 0x610 @0x6
0x060a…0629 at0007 = ╱54╱T╱ // 0x611 @0x7
0x060a…0629 at0008 = ╱41╱A╱ // 0x612 @0x8
0x060a…0629 at0009 = ╱46╱F╱ // 0x613 @0x9
0x060a…0629 at000a = ╱4c╱L╱ // 0x614 @0xa
0x060a…0629 at000b = ╱ef╱ $ ╱ // 0x615 @0xb
0x060a…0629 at000c = ╱ba╱ OF ╱ // 0x616 @0xc
0x060a…0629 at000d = ╱38╱8╱ // 0x617 @0xd
0x060a…0629 at000e = ╱f20800╱ // 0x618 @0xe
0x060a…0629 at0011 = ╱ec╱ , ╱ // 0x61b @0x11
0x060a…0629 at0012 = ╱54╱T╱ // 0x61c @0x12
0x060a…0629 at0013 = ╱5f╱_╱ // 0x61d @0x13
0x060a…0629 at0014 = ╱4b╱K╱ // 0x61e @0x14
0x060a…0629 at0015 = ╱4f╱O╱ // 0x61f @0x15
0x060a…0629 at0016 = ╱44╱D╱ // 0x620 @0x16
0x060a…0629 at0017 = ╱45╱E╱ // 0x621 @0x17
0x060a…0629 at0018 = ╱ef╱ $ ╱ // 0x622 @0x18
0x060a…0629 at0019 = ╱ba╱ OF ╱ // 0x623 @0x19
0x060a…0629 at001a = ╱31╱1╱ // 0x624 @0x1a
0x060a…0629 at001b = ╱f20100╱ // 0x625 @0x1b
0x060a…0629 at001e = EOL // 0x628 @0x1e
0x060a…0629 }
0x0629…0649 9c37 00490 // Variable…til…filen…@@PARAM
0x0629…0649 LineComal80 {
0x0629…0649 ptr = 0x9c37 // 0x629 @0x0
0x0629…0649 lno = 0x01ea // 0x62b @0x2
0x0629…0649 at0004 = ╱89╱ // ╱ // 0x62d @0x4
0x0629…0649 at0005 = ╱56╱V╱ // 0x62e @0x5
0x0629…0649 at0006 = ╱61╱a╱ // 0x62f @0x6
0x0629…0649 at0007 = ╱72╱r╱ // 0x630 @0x7
0x0629…0649 at0008 = ╱69╱i╱ // 0x631 @0x8
0x0629…0649 at0009 = ╱61╱a╱ // 0x632 @0x9
0x0629…0649 at000a = ╱62╱b╱ // 0x633 @0xa
0x0629…0649 at000b = ╱6c╱l╱ // 0x634 @0xb
0x0629…0649 at000c = ╱65╱e╱ // 0x635 @0xc
0x0629…0649 at000d = ╱20╱…╱ // 0x636 @0xd
0x0629…0649 at000e = ╱74╱t╱ // 0x637 @0xe
0x0629…0649 at000f = ╱69╱i╱ // 0x638 @0xf
0x0629…0649 at0010 = ╱6c╱l╱ // 0x639 @0x10
0x0629…0649 at0011 = ╱20╱…╱ // 0x63a @0x11
0x0629…0649 at0012 = ╱66╱f╱ // 0x63b @0x12
0x0629…0649 at0013 = ╱69╱i╱ // 0x63c @0x13
0x0629…0649 at0014 = ╱6c╱l╱ // 0x63d @0x14
0x0629…0649 at0015 = ╱65╱e╱ // 0x63e @0x15
0x0629…0649 at0016 = ╱6e╱n╱ // 0x63f @0x16
0x0629…0649 at0017 = ╱20╱…╱ // 0x640 @0x17
0x0629…0649 at0018 = ╱40╱@╱ // 0x641 @0x18
0x0629…0649 at0019 = ╱40╱@╱ // 0x642 @0x19
0x0629…0649 at001a = ╱50╱P╱ // 0x643 @0x1a
0x0629…0649 at001b = ╱41╱A╱ // 0x644 @0x1b
0x0629…0649 at001c = ╱52╱R╱ // 0x645 @0x1c
0x0629…0649 at001d = ╱41╱A╱ // 0x646 @0x1d
0x0629…0649 at001e = ╱4d╱M╱ // 0x647 @0x1e
0x0629…0649 at001f = EOL // 0x648 @0x1f
0x0629…0649 }
0x0649…065b 9c49 00500 DIM PARAM $ OF 17
0x0649…065b LineComal80 {
0x0649…065b ptr = 0x9c49 // 0x649 @0x0
0x0649…065b lno = 0x01f4 // 0x64b @0x2
0x0649…065b at0004 = ╱87╱ DIM ╱ // 0x64d @0x4
0x0649…065b at0005 = ╱50╱P╱ // 0x64e @0x5
0x0649…065b at0006 = ╱41╱A╱ // 0x64f @0x6
0x0649…065b at0007 = ╱52╱R╱ // 0x650 @0x7
0x0649…065b at0008 = ╱41╱A╱ // 0x651 @0x8
0x0649…065b at0009 = ╱4d╱M╱ // 0x652 @0x9
0x0649…065b at000a = ╱ef╱ $ ╱ // 0x653 @0xa
0x0649…065b at000b = ╱ba╱ OF ╱ // 0x654 @0xb
0x0649…065b at000c = ╱31╱1╱ // 0x655 @0xc
0x0649…065b at000d = ╱37╱7╱ // 0x656 @0xd
0x0649…065b at000e = ╱f21100╱ // 0x657 @0xe
0x0649…065b at0011 = EOL // 0x65a @0x11
0x0649…065b }
0x065b…0680 9c6e 00510 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 6
0x065b…0680 LineComal80 {
0x065b…0680 ptr = 0x9c6e // 0x65b @0x0
0x065b…0680 lno = 0x01fe // 0x65d @0x2
0x065b…0680 at0004 = ╱87╱ DIM ╱ // 0x65f @0x4
0x065b…0680 at0005 = ╱46╱F╱ // 0x660 @0x5
0x065b…0680 at0006 = ╱49╱I╱ // 0x661 @0x6
0x065b…0680 at0007 = ╱52╱R╱ // 0x662 @0x7
0x065b…0680 at0008 = ╱4d╱M╱ // 0x663 @0x8
0x065b…0680 at0009 = ╱41╱A╱ // 0x664 @0x9
0x065b…0680 at000a = ╱4e╱N╱ // 0x665 @0xa
0x065b…0680 at000b = ╱41╱A╱ // 0x666 @0xb
0x065b…0680 at000c = ╱56╱V╱ // 0x667 @0xc
0x065b…0680 at000d = ╱4e╱N╱ // 0x668 @0xd
0x065b…0680 at000e = ╱ef╱ $ ╱ // 0x669 @0xe
0x065b…0680 at000f = ╱ba╱ OF ╱ // 0x66a @0xf
0x065b…0680 at0010 = ╱33╱3╱ // 0x66b @0x10
0x065b…0680 at0011 = ╱30╱0╱ // 0x66c @0x11
0x065b…0680 at0012 = ╱f21e00╱ // 0x66d @0x12
0x065b…0680 at0015 = ╱ec╱ , ╱ // 0x670 @0x15
0x065b…0680 at0016 = ╱53╱S╱ // 0x671 @0x16
0x065b…0680 at0017 = ╱59╱Y╱ // 0x672 @0x17
0x065b…0680 at0018 = ╱53╱S╱ // 0x673 @0x18
0x065b…0680 at0019 = ╱54╱T╱ // 0x674 @0x19
0x065b…0680 at001a = ╱5f╱_╱ // 0x675 @0x1a
0x065b…0680 at001b = ╱44╱D╱ // 0x676 @0x1b
0x065b…0680 at001c = ╱41╱A╱ // 0x677 @0x1c
0x065b…0680 at001d = ╱54╱T╱ // 0x678 @0x1d
0x065b…0680 at001e = ╱ef╱ $ ╱ // 0x679 @0x1e
0x065b…0680 at001f = ╱ba╱ OF ╱ // 0x67a @0x1f
0x065b…0680 at0020 = ╱36╱6╱ // 0x67b @0x20
0x065b…0680 at0021 = ╱f20600╱ // 0x67c @0x21
0x065b…0680 at0024 = EOL // 0x67f @0x24
0x065b…0680 }
0x0680…068a 9c78 00520 REAL MOMS
0x0680…068a LineComal80 {
0x0680…068a ptr = 0x9c78 // 0x680 @0x0
0x0680…068a lno = 0x0208 // 0x682 @0x2
0x0680…068a at0004 = ╱b3╱ REAL ╱ // 0x684 @0x4
0x0680…068a at0005 = ╱4d╱M╱ // 0x685 @0x5
0x0680…068a at0006 = ╱4f╱O╱ // 0x686 @0x6
0x0680…068a at0007 = ╱4d╱M╱ // 0x687 @0x7
0x0680…068a at0008 = ╱53╱S╱ // 0x688 @0x8
0x0680…068a at0009 = EOL // 0x689 @0x9
0x0680…068a }
0x068a…0695 9c83 00530 REAL SALDO
0x068a…0695 LineComal80 {
0x068a…0695 ptr = 0x9c83 // 0x68a @0x0
0x068a…0695 lno = 0x0212 // 0x68c @0x2
0x068a…0695 at0004 = ╱b3╱ REAL ╱ // 0x68e @0x4
0x068a…0695 at0005 = ╱53╱S╱ // 0x68f @0x5
0x068a…0695 at0006 = ╱41╱A╱ // 0x690 @0x6
0x068a…0695 at0007 = ╱4c╱L╱ // 0x691 @0x7
0x068a…0695 at0008 = ╱44╱D╱ // 0x692 @0x8
0x068a…0695 at0009 = ╱4f╱O╱ // 0x693 @0x9
0x068a…0695 at000a = EOL // 0x694 @0xa
0x068a…0695 }
0x0695…06b3 9ca1 00540 DIM FIL $ OF 17 , S_KTONR $ OF 8
0x0695…06b3 LineComal80 {
0x0695…06b3 ptr = 0x9ca1 // 0x695 @0x0
0x0695…06b3 lno = 0x021c // 0x697 @0x2
0x0695…06b3 at0004 = ╱87╱ DIM ╱ // 0x699 @0x4
0x0695…06b3 at0005 = ╱46╱F╱ // 0x69a @0x5
0x0695…06b3 at0006 = ╱49╱I╱ // 0x69b @0x6
0x0695…06b3 at0007 = ╱4c╱L╱ // 0x69c @0x7
0x0695…06b3 at0008 = ╱ef╱ $ ╱ // 0x69d @0x8
0x0695…06b3 at0009 = ╱ba╱ OF ╱ // 0x69e @0x9
0x0695…06b3 at000a = ╱31╱1╱ // 0x69f @0xa
0x0695…06b3 at000b = ╱37╱7╱ // 0x6a0 @0xb
0x0695…06b3 at000c = ╱f21100╱ // 0x6a1 @0xc
0x0695…06b3 at000f = ╱ec╱ , ╱ // 0x6a4 @0xf
0x0695…06b3 at0010 = ╱53╱S╱ // 0x6a5 @0x10
0x0695…06b3 at0011 = ╱5f╱_╱ // 0x6a6 @0x11
0x0695…06b3 at0012 = ╱4b╱K╱ // 0x6a7 @0x12
0x0695…06b3 at0013 = ╱54╱T╱ // 0x6a8 @0x13
0x0695…06b3 at0014 = ╱4f╱O╱ // 0x6a9 @0x14
0x0695…06b3 at0015 = ╱4e╱N╱ // 0x6aa @0x15
0x0695…06b3 at0016 = ╱52╱R╱ // 0x6ab @0x16
0x0695…06b3 at0017 = ╱ef╱ $ ╱ // 0x6ac @0x17
0x0695…06b3 at0018 = ╱ba╱ OF ╱ // 0x6ad @0x18
0x0695…06b3 at0019 = ╱38╱8╱ // 0x6ae @0x19
0x0695…06b3 at001a = ╱f20800╱ // 0x6af @0x1a
0x0695…06b3 at001d = EOL // 0x6b2 @0x1d
0x0695…06b3 }
0x06b3…06d2 c91b 00550 // Variable…til…filen…drift|
0x06b3…06d2 LineComal80 {
0x06b3…06d2 ptr = 0xc91b // 0x6b3 @0x0
0x06b3…06d2 lno = 0x0226 // 0x6b5 @0x2
0x06b3…06d2 at0004 = ╱89╱ // ╱ // 0x6b7 @0x4
0x06b3…06d2 at0005 = ╱56╱V╱ // 0x6b8 @0x5
0x06b3…06d2 at0006 = ╱61╱a╱ // 0x6b9 @0x6
0x06b3…06d2 at0007 = ╱72╱r╱ // 0x6ba @0x7
0x06b3…06d2 at0008 = ╱69╱i╱ // 0x6bb @0x8
0x06b3…06d2 at0009 = ╱61╱a╱ // 0x6bc @0x9
0x06b3…06d2 at000a = ╱62╱b╱ // 0x6bd @0xa
0x06b3…06d2 at000b = ╱6c╱l╱ // 0x6be @0xb
0x06b3…06d2 at000c = ╱65╱e╱ // 0x6bf @0xc
0x06b3…06d2 at000d = ╱20╱…╱ // 0x6c0 @0xd
0x06b3…06d2 at000e = ╱74╱t╱ // 0x6c1 @0xe
0x06b3…06d2 at000f = ╱69╱i╱ // 0x6c2 @0xf
0x06b3…06d2 at0010 = ╱6c╱l╱ // 0x6c3 @0x10
0x06b3…06d2 at0011 = ╱20╱…╱ // 0x6c4 @0x11
0x06b3…06d2 at0012 = ╱66╱f╱ // 0x6c5 @0x12
0x06b3…06d2 at0013 = ╱69╱i╱ // 0x6c6 @0x13
0x06b3…06d2 at0014 = ╱6c╱l╱ // 0x6c7 @0x14
0x06b3…06d2 at0015 = ╱65╱e╱ // 0x6c8 @0x15
0x06b3…06d2 at0016 = ╱6e╱n╱ // 0x6c9 @0x16
0x06b3…06d2 at0017 = ╱20╱…╱ // 0x6ca @0x17
0x06b3…06d2 at0018 = ╱64╱d╱ // 0x6cb @0x18
0x06b3…06d2 at0019 = ╱72╱r╱ // 0x6cc @0x19
0x06b3…06d2 at001a = ╱69╱i╱ // 0x6cd @0x1a
0x06b3…06d2 at001b = ╱66╱f╱ // 0x6ce @0x1b
0x06b3…06d2 at001c = ╱74╱t╱ // 0x6cf @0x1c
0x06b3…06d2 at001d = ╱7c╱|╱ // 0x6d0 @0x1d
0x06b3…06d2 at001e = EOL // 0x6d1 @0x1e
0x06b3…06d2 }
0x06d2…06e5 9cd3 00420 DIM DRIFT\ $ OF 17
0x06d2…06e5 LineComal80 {
0x06d2…06e5 ptr = 0x9cd3 // 0x6d2 @0x0
0x06d2…06e5 lno = 0x01a4 // 0x6d4 @0x2
0x06d2…06e5 at0004 = ╱87╱ DIM ╱ // 0x6d6 @0x4
0x06d2…06e5 at0005 = ╱44╱D╱ // 0x6d7 @0x5
0x06d2…06e5 at0006 = ╱52╱R╱ // 0x6d8 @0x6
0x06d2…06e5 at0007 = ╱49╱I╱ // 0x6d9 @0x7
0x06d2…06e5 at0008 = ╱46╱F╱ // 0x6da @0x8
0x06d2…06e5 at0009 = ╱54╱T╱ // 0x6db @0x9
0x06d2…06e5 at000a = ╱5c╱\╱ // 0x6dc @0xa
0x06d2…06e5 at000b = ╱ef╱ $ ╱ // 0x6dd @0xb
0x06d2…06e5 at000c = ╱ba╱ OF ╱ // 0x6de @0xc
0x06d2…06e5 at000d = ╱31╱1╱ // 0x6df @0xd
0x06d2…06e5 at000e = ╱37╱7╱ // 0x6e0 @0xe
0x06d2…06e5 at000f = ╱f21100╱ // 0x6e1 @0xf
0x06d2…06e5 at0012 = EOL // 0x6e4 @0x12
0x06d2…06e5 }
0x06e5…06f9 9ce7 00570 DIM PRIMODAT $ OF 6
0x06e5…06f9 LineComal80 {
0x06e5…06f9 ptr = 0x9ce7 // 0x6e5 @0x0
0x06e5…06f9 lno = 0x023a // 0x6e7 @0x2
0x06e5…06f9 at0004 = ╱87╱ DIM ╱ // 0x6e9 @0x4
0x06e5…06f9 at0005 = ╱50╱P╱ // 0x6ea @0x5
0x06e5…06f9 at0006 = ╱52╱R╱ // 0x6eb @0x6
0x06e5…06f9 at0007 = ╱49╱I╱ // 0x6ec @0x7
0x06e5…06f9 at0008 = ╱4d╱M╱ // 0x6ed @0x8
0x06e5…06f9 at0009 = ╱4f╱O╱ // 0x6ee @0x9
0x06e5…06f9 at000a = ╱44╱D╱ // 0x6ef @0xa
0x06e5…06f9 at000b = ╱41╱A╱ // 0x6f0 @0xb
0x06e5…06f9 at000c = ╱54╱T╱ // 0x6f1 @0xc
0x06e5…06f9 at000d = ╱ef╱ $ ╱ // 0x6f2 @0xd
0x06e5…06f9 at000e = ╱ba╱ OF ╱ // 0x6f3 @0xe
0x06e5…06f9 at000f = ╱36╱6╱ // 0x6f4 @0xf
0x06e5…06f9 at0010 = ╱f20600╱ // 0x6f5 @0x10
0x06e5…06f9 at0013 = EOL // 0x6f8 @0x13
0x06e5…06f9 }
0x06f9…070a 9e26 00580 REAL DRIFT ( 2 )
0x06f9…070a LineComal80 {
0x06f9…070a ptr = 0x9e26 // 0x6f9 @0x0
0x06f9…070a lno = 0x0244 // 0x6fb @0x2
0x06f9…070a at0004 = ╱b3╱ REAL ╱ // 0x6fd @0x4
0x06f9…070a at0005 = ╱44╱D╱ // 0x6fe @0x5
0x06f9…070a at0006 = ╱52╱R╱ // 0x6ff @0x6
0x06f9…070a at0007 = ╱49╱I╱ // 0x700 @0x7
0x06f9…070a at0008 = ╱46╱F╱ // 0x701 @0x8
0x06f9…070a at0009 = ╱54╱T╱ // 0x702 @0x9
0x06f9…070a at000a = ╱ed╱ ( ╱ // 0x703 @0xa
0x06f9…070a at000b = ╱32╱2╱ // 0x704 @0xb
0x06f9…070a at000c = ╱f20200╱ // 0x705 @0xc
0x06f9…070a at000f = ╱ee╱ ) ╱ // 0x708 @0xf
0x06f9…070a at0010 = EOL // 0x709 @0x10
0x06f9…070a }
0x070a…072e 9d1c 00610 // Filnavne…til…regnskabsanalysen
0x070a…072e LineComal80 {
0x070a…072e ptr = 0x9d1c // 0x70a @0x0
0x070a…072e lno = 0x0262 // 0x70c @0x2
0x070a…072e at0004 = ╱89╱ // ╱ // 0x70e @0x4
0x070a…072e at0005 = ╱46╱F╱ // 0x70f @0x5
0x070a…072e at0006 = ╱69╱i╱ // 0x710 @0x6
0x070a…072e at0007 = ╱6c╱l╱ // 0x711 @0x7
0x070a…072e at0008 = ╱6e╱n╱ // 0x712 @0x8
0x070a…072e at0009 = ╱61╱a╱ // 0x713 @0x9
0x070a…072e at000a = ╱76╱v╱ // 0x714 @0xa
0x070a…072e at000b = ╱6e╱n╱ // 0x715 @0xb
0x070a…072e at000c = ╱65╱e╱ // 0x716 @0xc
0x070a…072e at000d = ╱20╱…╱ // 0x717 @0xd
0x070a…072e at000e = ╱74╱t╱ // 0x718 @0xe
0x070a…072e at000f = ╱69╱i╱ // 0x719 @0xf
0x070a…072e at0010 = ╱6c╱l╱ // 0x71a @0x10
0x070a…072e at0011 = ╱20╱…╱ // 0x71b @0x11
0x070a…072e at0012 = ╱72╱r╱ // 0x71c @0x12
0x070a…072e at0013 = ╱65╱e╱ // 0x71d @0x13
0x070a…072e at0014 = ╱67╱g╱ // 0x71e @0x14
0x070a…072e at0015 = ╱6e╱n╱ // 0x71f @0x15
0x070a…072e at0016 = ╱73╱s╱ // 0x720 @0x16
0x070a…072e at0017 = ╱6b╱k╱ // 0x721 @0x17
0x070a…072e at0018 = ╱61╱a╱ // 0x722 @0x18
0x070a…072e at0019 = ╱62╱b╱ // 0x723 @0x19
0x070a…072e at001a = ╱73╱s╱ // 0x724 @0x1a
0x070a…072e at001b = ╱61╱a╱ // 0x725 @0x1b
0x070a…072e at001c = ╱6e╱n╱ // 0x726 @0x1c
0x070a…072e at001d = ╱61╱a╱ // 0x727 @0x1d
0x070a…072e at001e = ╱6c╱l╱ // 0x728 @0x1e
0x070a…072e at001f = ╱79╱y╱ // 0x729 @0x1f
0x070a…072e at0020 = ╱73╱s╱ // 0x72a @0x20
0x070a…072e at0021 = ╱65╱e╱ // 0x72b @0x21
0x070a…072e at0022 = ╱6e╱n╱ // 0x72c @0x22
0x070a…072e at0023 = EOL // 0x72d @0x23
0x070a…072e }
0x072e…076b 9d59 00620 DIM KAPOMK $ OF 17 , OMS[TN $ OF 17 , VAREFO $ OF 17 , AFSKRI $ OF 17
0x072e…076b LineComal80 {
0x072e…076b ptr = 0x9d59 // 0x72e @0x0
0x072e…076b lno = 0x026c // 0x730 @0x2
0x072e…076b at0004 = ╱87╱ DIM ╱ // 0x732 @0x4
0x072e…076b at0005 = ╱4b╱K╱ // 0x733 @0x5
0x072e…076b at0006 = ╱41╱A╱ // 0x734 @0x6
0x072e…076b at0007 = ╱50╱P╱ // 0x735 @0x7
0x072e…076b at0008 = ╱4f╱O╱ // 0x736 @0x8
0x072e…076b at0009 = ╱4d╱M╱ // 0x737 @0x9
0x072e…076b at000a = ╱4b╱K╱ // 0x738 @0xa
0x072e…076b at000b = ╱ef╱ $ ╱ // 0x739 @0xb
0x072e…076b at000c = ╱ba╱ OF ╱ // 0x73a @0xc
0x072e…076b at000d = ╱31╱1╱ // 0x73b @0xd
0x072e…076b at000e = ╱37╱7╱ // 0x73c @0xe
0x072e…076b at000f = ╱f21100╱ // 0x73d @0xf
0x072e…076b at0012 = ╱ec╱ , ╱ // 0x740 @0x12
0x072e…076b at0013 = ╱4f╱O╱ // 0x741 @0x13
0x072e…076b at0014 = ╱4d╱M╱ // 0x742 @0x14
0x072e…076b at0015 = ╱53╱S╱ // 0x743 @0x15
0x072e…076b at0016 = ╱5b╱[╱ // 0x744 @0x16
0x072e…076b at0017 = ╱54╱T╱ // 0x745 @0x17
0x072e…076b at0018 = ╱4e╱N╱ // 0x746 @0x18
0x072e…076b at0019 = ╱ef╱ $ ╱ // 0x747 @0x19
0x072e…076b at001a = ╱ba╱ OF ╱ // 0x748 @0x1a
0x072e…076b at001b = ╱31╱1╱ // 0x749 @0x1b
0x072e…076b at001c = ╱37╱7╱ // 0x74a @0x1c
0x072e…076b at001d = ╱f21100╱ // 0x74b @0x1d
0x072e…076b at0020 = ╱ec╱ , ╱ // 0x74e @0x20
0x072e…076b at0021 = ╱56╱V╱ // 0x74f @0x21
0x072e…076b at0022 = ╱41╱A╱ // 0x750 @0x22
0x072e…076b at0023 = ╱52╱R╱ // 0x751 @0x23
0x072e…076b at0024 = ╱45╱E╱ // 0x752 @0x24
0x072e…076b at0025 = ╱46╱F╱ // 0x753 @0x25
0x072e…076b at0026 = ╱4f╱O╱ // 0x754 @0x26
0x072e…076b at0027 = ╱ef╱ $ ╱ // 0x755 @0x27
0x072e…076b at0028 = ╱ba╱ OF ╱ // 0x756 @0x28
0x072e…076b at0029 = ╱31╱1╱ // 0x757 @0x29
0x072e…076b at002a = ╱37╱7╱ // 0x758 @0x2a
0x072e…076b at002b = ╱f21100╱ // 0x759 @0x2b
0x072e…076b at002e = ╱ec╱ , ╱ // 0x75c @0x2e
0x072e…076b at002f = ╱41╱A╱ // 0x75d @0x2f
0x072e…076b at0030 = ╱46╱F╱ // 0x75e @0x30
0x072e…076b at0031 = ╱53╱S╱ // 0x75f @0x31
0x072e…076b at0032 = ╱4b╱K╱ // 0x760 @0x32
0x072e…076b at0033 = ╱52╱R╱ // 0x761 @0x33
0x072e…076b at0034 = ╱49╱I╱ // 0x762 @0x34
0x072e…076b at0035 = ╱ef╱ $ ╱ // 0x763 @0x35
0x072e…076b at0036 = ╱ba╱ OF ╱ // 0x764 @0x36
0x072e…076b at0037 = ╱31╱1╱ // 0x765 @0x37
0x072e…076b at0038 = ╱37╱7╱ // 0x766 @0x38
0x072e…076b at0039 = ╱f21100╱ // 0x767 @0x39
0x072e…076b at003c = EOL // 0x76a @0x3c
0x072e…076b }
0x076b…079a 9d88 00630 DIM EGENKA $ OF 17 , AKTIVE $ OF 17 , RENTEO $ OF 17
0x076b…079a LineComal80 {
0x076b…079a ptr = 0x9d88 // 0x76b @0x0
0x076b…079a lno = 0x0276 // 0x76d @0x2
0x076b…079a at0004 = ╱87╱ DIM ╱ // 0x76f @0x4
0x076b…079a at0005 = ╱45╱E╱ // 0x770 @0x5
0x076b…079a at0006 = ╱47╱G╱ // 0x771 @0x6
0x076b…079a at0007 = ╱45╱E╱ // 0x772 @0x7
0x076b…079a at0008 = ╱4e╱N╱ // 0x773 @0x8
0x076b…079a at0009 = ╱4b╱K╱ // 0x774 @0x9
0x076b…079a at000a = ╱41╱A╱ // 0x775 @0xa
0x076b…079a at000b = ╱ef╱ $ ╱ // 0x776 @0xb
0x076b…079a at000c = ╱ba╱ OF ╱ // 0x777 @0xc
0x076b…079a at000d = ╱31╱1╱ // 0x778 @0xd
0x076b…079a at000e = ╱37╱7╱ // 0x779 @0xe
0x076b…079a at000f = ╱f21100╱ // 0x77a @0xf
0x076b…079a at0012 = ╱ec╱ , ╱ // 0x77d @0x12
0x076b…079a at0013 = ╱41╱A╱ // 0x77e @0x13
0x076b…079a at0014 = ╱4b╱K╱ // 0x77f @0x14
0x076b…079a at0015 = ╱54╱T╱ // 0x780 @0x15
0x076b…079a at0016 = ╱49╱I╱ // 0x781 @0x16
0x076b…079a at0017 = ╱56╱V╱ // 0x782 @0x17
0x076b…079a at0018 = ╱45╱E╱ // 0x783 @0x18
0x076b…079a at0019 = ╱ef╱ $ ╱ // 0x784 @0x19
0x076b…079a at001a = ╱ba╱ OF ╱ // 0x785 @0x1a
0x076b…079a at001b = ╱31╱1╱ // 0x786 @0x1b
0x076b…079a at001c = ╱37╱7╱ // 0x787 @0x1c
0x076b…079a at001d = ╱f21100╱ // 0x788 @0x1d
0x076b…079a at0020 = ╱ec╱ , ╱ // 0x78b @0x20
0x076b…079a at0021 = ╱52╱R╱ // 0x78c @0x21
0x076b…079a at0022 = ╱45╱E╱ // 0x78d @0x22
0x076b…079a at0023 = ╱4e╱N╱ // 0x78e @0x23
0x076b…079a at0024 = ╱54╱T╱ // 0x78f @0x24
0x076b…079a at0025 = ╱45╱E╱ // 0x790 @0x25
0x076b…079a at0026 = ╱4f╱O╱ // 0x791 @0x26
0x076b…079a at0027 = ╱ef╱ $ ╱ // 0x792 @0x27
0x076b…079a at0028 = ╱ba╱ OF ╱ // 0x793 @0x28
0x076b…079a at0029 = ╱31╱1╱ // 0x794 @0x29
0x076b…079a at002a = ╱37╱7╱ // 0x795 @0x2a
0x076b…079a at002b = ╱f21100╱ // 0x796 @0x2b
0x076b…079a at002e = EOL // 0x799 @0x2e
0x076b…079a }
0x079a…07c9 9db7 00640 DIM VARELA $ OF 17 , DEBITO $ OF 17 , KREDIT $ OF 17
0x079a…07c9 LineComal80 {
0x079a…07c9 ptr = 0x9db7 // 0x79a @0x0
0x079a…07c9 lno = 0x0280 // 0x79c @0x2
0x079a…07c9 at0004 = ╱87╱ DIM ╱ // 0x79e @0x4
0x079a…07c9 at0005 = ╱56╱V╱ // 0x79f @0x5
0x079a…07c9 at0006 = ╱41╱A╱ // 0x7a0 @0x6
0x079a…07c9 at0007 = ╱52╱R╱ // 0x7a1 @0x7
0x079a…07c9 at0008 = ╱45╱E╱ // 0x7a2 @0x8
0x079a…07c9 at0009 = ╱4c╱L╱ // 0x7a3 @0x9
0x079a…07c9 at000a = ╱41╱A╱ // 0x7a4 @0xa
0x079a…07c9 at000b = ╱ef╱ $ ╱ // 0x7a5 @0xb
0x079a…07c9 at000c = ╱ba╱ OF ╱ // 0x7a6 @0xc
0x079a…07c9 at000d = ╱31╱1╱ // 0x7a7 @0xd
0x079a…07c9 at000e = ╱37╱7╱ // 0x7a8 @0xe
0x079a…07c9 at000f = ╱f21100╱ // 0x7a9 @0xf
0x079a…07c9 at0012 = ╱ec╱ , ╱ // 0x7ac @0x12
0x079a…07c9 at0013 = ╱44╱D╱ // 0x7ad @0x13
0x079a…07c9 at0014 = ╱45╱E╱ // 0x7ae @0x14
0x079a…07c9 at0015 = ╱42╱B╱ // 0x7af @0x15
0x079a…07c9 at0016 = ╱49╱I╱ // 0x7b0 @0x16
0x079a…07c9 at0017 = ╱54╱T╱ // 0x7b1 @0x17
0x079a…07c9 at0018 = ╱4f╱O╱ // 0x7b2 @0x18
0x079a…07c9 at0019 = ╱ef╱ $ ╱ // 0x7b3 @0x19
0x079a…07c9 at001a = ╱ba╱ OF ╱ // 0x7b4 @0x1a
0x079a…07c9 at001b = ╱31╱1╱ // 0x7b5 @0x1b
0x079a…07c9 at001c = ╱37╱7╱ // 0x7b6 @0x1c
0x079a…07c9 at001d = ╱f21100╱ // 0x7b7 @0x1d
0x079a…07c9 at0020 = ╱ec╱ , ╱ // 0x7ba @0x20
0x079a…07c9 at0021 = ╱4b╱K╱ // 0x7bb @0x21
0x079a…07c9 at0022 = ╱52╱R╱ // 0x7bc @0x22
0x079a…07c9 at0023 = ╱45╱E╱ // 0x7bd @0x23
0x079a…07c9 at0024 = ╱44╱D╱ // 0x7be @0x24
0x079a…07c9 at0025 = ╱49╱I╱ // 0x7bf @0x25
0x079a…07c9 at0026 = ╱54╱T╱ // 0x7c0 @0x26
0x079a…07c9 at0027 = ╱ef╱ $ ╱ // 0x7c1 @0x27
0x079a…07c9 at0028 = ╱ba╱ OF ╱ // 0x7c2 @0x28
0x079a…07c9 at0029 = ╱31╱1╱ // 0x7c3 @0x29
0x079a…07c9 at002a = ╱37╱7╱ // 0x7c4 @0x2a
0x079a…07c9 at002b = ╱f21100╱ // 0x7c5 @0x2b
0x079a…07c9 at002e = EOL // 0x7c8 @0x2e
0x079a…07c9 }
0x07c9…080d 9dfb 00650 REAL S_KAPOMK , S_OMS[TN , S_VAREFO , S_AFSKRI , S_EGENKA , S_AKTIVE , S_RENTEO
0x07c9…080d LineComal80 {
0x07c9…080d ptr = 0x9dfb // 0x7c9 @0x0
0x07c9…080d lno = 0x028a // 0x7cb @0x2
0x07c9…080d at0004 = ╱b3╱ REAL ╱ // 0x7cd @0x4
0x07c9…080d at0005 = ╱53╱S╱ // 0x7ce @0x5
0x07c9…080d at0006 = ╱5f╱_╱ // 0x7cf @0x6
0x07c9…080d at0007 = ╱4b╱K╱ // 0x7d0 @0x7
0x07c9…080d at0008 = ╱41╱A╱ // 0x7d1 @0x8
0x07c9…080d at0009 = ╱50╱P╱ // 0x7d2 @0x9
0x07c9…080d at000a = ╱4f╱O╱ // 0x7d3 @0xa
0x07c9…080d at000b = ╱4d╱M╱ // 0x7d4 @0xb
0x07c9…080d at000c = ╱4b╱K╱ // 0x7d5 @0xc
0x07c9…080d at000d = ╱ec╱ , ╱ // 0x7d6 @0xd
0x07c9…080d at000e = ╱53╱S╱ // 0x7d7 @0xe
0x07c9…080d at000f = ╱5f╱_╱ // 0x7d8 @0xf
0x07c9…080d at0010 = ╱4f╱O╱ // 0x7d9 @0x10
0x07c9…080d at0011 = ╱4d╱M╱ // 0x7da @0x11
0x07c9…080d at0012 = ╱53╱S╱ // 0x7db @0x12
0x07c9…080d at0013 = ╱5b╱[╱ // 0x7dc @0x13
0x07c9…080d at0014 = ╱54╱T╱ // 0x7dd @0x14
0x07c9…080d at0015 = ╱4e╱N╱ // 0x7de @0x15
0x07c9…080d at0016 = ╱ec╱ , ╱ // 0x7df @0x16
0x07c9…080d at0017 = ╱53╱S╱ // 0x7e0 @0x17
0x07c9…080d at0018 = ╱5f╱_╱ // 0x7e1 @0x18
0x07c9…080d at0019 = ╱56╱V╱ // 0x7e2 @0x19
0x07c9…080d at001a = ╱41╱A╱ // 0x7e3 @0x1a
0x07c9…080d at001b = ╱52╱R╱ // 0x7e4 @0x1b
0x07c9…080d at001c = ╱45╱E╱ // 0x7e5 @0x1c
0x07c9…080d at001d = ╱46╱F╱ // 0x7e6 @0x1d
0x07c9…080d at001e = ╱4f╱O╱ // 0x7e7 @0x1e
0x07c9…080d at001f = ╱ec╱ , ╱ // 0x7e8 @0x1f
0x07c9…080d at0020 = ╱53╱S╱ // 0x7e9 @0x20
0x07c9…080d at0021 = ╱5f╱_╱ // 0x7ea @0x21
0x07c9…080d at0022 = ╱41╱A╱ // 0x7eb @0x22
0x07c9…080d at0023 = ╱46╱F╱ // 0x7ec @0x23
0x07c9…080d at0024 = ╱53╱S╱ // 0x7ed @0x24
0x07c9…080d at0025 = ╱4b╱K╱ // 0x7ee @0x25
0x07c9…080d at0026 = ╱52╱R╱ // 0x7ef @0x26
0x07c9…080d at0027 = ╱49╱I╱ // 0x7f0 @0x27
0x07c9…080d at0028 = ╱ec╱ , ╱ // 0x7f1 @0x28
0x07c9…080d at0029 = ╱53╱S╱ // 0x7f2 @0x29
0x07c9…080d at002a = ╱5f╱_╱ // 0x7f3 @0x2a
0x07c9…080d at002b = ╱45╱E╱ // 0x7f4 @0x2b
0x07c9…080d at002c = ╱47╱G╱ // 0x7f5 @0x2c
0x07c9…080d at002d = ╱45╱E╱ // 0x7f6 @0x2d
0x07c9…080d at002e = ╱4e╱N╱ // 0x7f7 @0x2e
0x07c9…080d at002f = ╱4b╱K╱ // 0x7f8 @0x2f
0x07c9…080d at0030 = ╱41╱A╱ // 0x7f9 @0x30
0x07c9…080d at0031 = ╱ec╱ , ╱ // 0x7fa @0x31
0x07c9…080d at0032 = ╱53╱S╱ // 0x7fb @0x32
0x07c9…080d at0033 = ╱5f╱_╱ // 0x7fc @0x33
0x07c9…080d at0034 = ╱41╱A╱ // 0x7fd @0x34
0x07c9…080d at0035 = ╱4b╱K╱ // 0x7fe @0x35
0x07c9…080d at0036 = ╱54╱T╱ // 0x7ff @0x36
0x07c9…080d at0037 = ╱49╱I╱ // 0x800 @0x37
0x07c9…080d at0038 = ╱56╱V╱ // 0x801 @0x38
0x07c9…080d at0039 = ╱45╱E╱ // 0x802 @0x39
0x07c9…080d at003a = ╱ec╱ , ╱ // 0x803 @0x3a
0x07c9…080d at003b = ╱53╱S╱ // 0x804 @0x3b
0x07c9…080d at003c = ╱5f╱_╱ // 0x805 @0x3c
0x07c9…080d at003d = ╱52╱R╱ // 0x806 @0x3d
0x07c9…080d at003e = ╱45╱E╱ // 0x807 @0x3e
0x07c9…080d at003f = ╱4e╱N╱ // 0x808 @0x3f
0x07c9…080d at0040 = ╱54╱T╱ // 0x809 @0x40
0x07c9…080d at0041 = ╱45╱E╱ // 0x80a @0x41
0x07c9…080d at0042 = ╱4f╱O╱ // 0x80b @0x42
0x07c9…080d at0043 = EOL // 0x80c @0x43
0x07c9…080d }
0x080d…0838 9e26 00660 REAL S_VARELA , S_DEBITO , S_KREDIT , S_VARELA_P
0x080d…0838 LineComal80 {
0x080d…0838 ptr = 0x9e26 // 0x80d @0x0
0x080d…0838 lno = 0x0294 // 0x80f @0x2
0x080d…0838 at0004 = ╱b3╱ REAL ╱ // 0x811 @0x4
0x080d…0838 at0005 = ╱53╱S╱ // 0x812 @0x5
0x080d…0838 at0006 = ╱5f╱_╱ // 0x813 @0x6
0x080d…0838 at0007 = ╱56╱V╱ // 0x814 @0x7
0x080d…0838 at0008 = ╱41╱A╱ // 0x815 @0x8
0x080d…0838 at0009 = ╱52╱R╱ // 0x816 @0x9
0x080d…0838 at000a = ╱45╱E╱ // 0x817 @0xa
0x080d…0838 at000b = ╱4c╱L╱ // 0x818 @0xb
0x080d…0838 at000c = ╱41╱A╱ // 0x819 @0xc
0x080d…0838 at000d = ╱ec╱ , ╱ // 0x81a @0xd
0x080d…0838 at000e = ╱53╱S╱ // 0x81b @0xe
0x080d…0838 at000f = ╱5f╱_╱ // 0x81c @0xf
0x080d…0838 at0010 = ╱44╱D╱ // 0x81d @0x10
0x080d…0838 at0011 = ╱45╱E╱ // 0x81e @0x11
0x080d…0838 at0012 = ╱42╱B╱ // 0x81f @0x12
0x080d…0838 at0013 = ╱49╱I╱ // 0x820 @0x13
0x080d…0838 at0014 = ╱54╱T╱ // 0x821 @0x14
0x080d…0838 at0015 = ╱4f╱O╱ // 0x822 @0x15
0x080d…0838 at0016 = ╱ec╱ , ╱ // 0x823 @0x16
0x080d…0838 at0017 = ╱53╱S╱ // 0x824 @0x17
0x080d…0838 at0018 = ╱5f╱_╱ // 0x825 @0x18
0x080d…0838 at0019 = ╱4b╱K╱ // 0x826 @0x19
0x080d…0838 at001a = ╱52╱R╱ // 0x827 @0x1a
0x080d…0838 at001b = ╱45╱E╱ // 0x828 @0x1b
0x080d…0838 at001c = ╱44╱D╱ // 0x829 @0x1c
0x080d…0838 at001d = ╱49╱I╱ // 0x82a @0x1d
0x080d…0838 at001e = ╱54╱T╱ // 0x82b @0x1e
0x080d…0838 at001f = ╱ec╱ , ╱ // 0x82c @0x1f
0x080d…0838 at0020 = ╱53╱S╱ // 0x82d @0x20
0x080d…0838 at0021 = ╱5f╱_╱ // 0x82e @0x21
0x080d…0838 at0022 = ╱56╱V╱ // 0x82f @0x22
0x080d…0838 at0023 = ╱41╱A╱ // 0x830 @0x23
0x080d…0838 at0024 = ╱52╱R╱ // 0x831 @0x24
0x080d…0838 at0025 = ╱45╱E╱ // 0x832 @0x25
0x080d…0838 at0026 = ╱4c╱L╱ // 0x833 @0x26
0x080d…0838 at0027 = ╱41╱A╱ // 0x834 @0x27
0x080d…0838 at0028 = ╱5f╱_╱ // 0x835 @0x28
0x080d…0838 at0029 = ╱50╱P╱ // 0x836 @0x29
0x080d…0838 at002a = EOL // 0x837 @0x2a
0x080d…0838 }
0x0838…0849 9e37 00590 ENDPROC DIMENSIONER
0x0838…0849 LineComal80 {
0x0838…0849 ptr = 0x9e37 // 0x838 @0x0
0x0838…0849 lno = 0x024e // 0x83a @0x2
0x0838…0849 at0004 = ╱9f╱ ENDPROC ╱ // 0x83c @0x4
0x0838…0849 at0005 = ╱44╱D╱ // 0x83d @0x5
0x0838…0849 at0006 = ╱49╱I╱ // 0x83e @0x6
0x0838…0849 at0007 = ╱4d╱M╱ // 0x83f @0x7
0x0838…0849 at0008 = ╱45╱E╱ // 0x840 @0x8
0x0838…0849 at0009 = ╱4e╱N╱ // 0x841 @0x9
0x0838…0849 at000a = ╱53╱S╱ // 0x842 @0xa
0x0838…0849 at000b = ╱49╱I╱ // 0x843 @0xb
0x0838…0849 at000c = ╱4f╱O╱ // 0x844 @0xc
0x0838…0849 at000d = ╱4e╱N╱ // 0x845 @0xd
0x0838…0849 at000e = ╱45╱E╱ // 0x846 @0xe
0x0838…0849 at000f = ╱52╱R╱ // 0x847 @0xf
0x0838…0849 at0010 = EOL // 0x848 @0x10
0x0838…0849 }
0x0849…084e 9e3c 00600
0x0849…084e LineComal80 {
0x0849…084e ptr = 0x9e3c // 0x849 @0x0
0x0849…084e lno = 0x0258 // 0x84b @0x2
0x0849…084e at0004 = EOL // 0x84d @0x4
0x0849…084e }
0x084e…085c e282 00610 PROC INITIER
0x084e…085c LineComal80 {
0x084e…085c ptr = 0xe282 // 0x84e @0x0
0x084e…085c lno = 0x0262 // 0x850 @0x2
0x084e…085c at0004 = ╱9e04╱ PROC ╱ // 0x852 @0x4
0x084e…085c at0006 = ╱49╱I╱ // 0x854 @0x6
0x084e…085c at0007 = ╱4e╱N╱ // 0x855 @0x7
0x084e…085c at0008 = ╱49╱I╱ // 0x856 @0x8
0x084e…085c at0009 = ╱54╱T╱ // 0x857 @0x9
0x084e…085c at000a = ╱49╱I╱ // 0x858 @0xa
0x084e…085c at000b = ╱45╱E╱ // 0x859 @0xb
0x084e…085c at000c = ╱52╱R╱ // 0x85a @0xc
0x084e…085c at000d = EOL // 0x85b @0xd
0x084e…085c }
0x085c…086e 9e5c 00630 LET PRGFL $ := "DP2"
0x085c…086e LineComal80 {
0x085c…086e ptr = 0x9e5c // 0x85c @0x0
0x085c…086e lno = 0x0276 // 0x85e @0x2
0x085c…086e at0004 = ╱86╱ LET ╱ // 0x860 @0x4
0x085c…086e at0005 = ╱50╱P╱ // 0x861 @0x5
0x085c…086e at0006 = ╱52╱R╱ // 0x862 @0x6
0x085c…086e at0007 = ╱47╱G╱ // 0x863 @0x7
0x085c…086e at0008 = ╱46╱F╱ // 0x864 @0x8
0x085c…086e at0009 = ╱4c╱L╱ // 0x865 @0x9
0x085c…086e at000a = ╱ef╱ $ ╱ // 0x866 @0xa
0x085c…086e at000b = ╱f0╱ := ╱ // 0x867 @0xb
0x085c…086e at000c = ╱22╱"╱ // 0x868 @0xc
0x085c…086e at000d = ╱44╱D╱ // 0x869 @0xd
0x085c…086e at000e = ╱50╱P╱ // 0x86a @0xe
0x085c…086e at000f = ╱32╱2╱ // 0x86b @0xf
0x085c…086e at0010 = ╱22╱"╱ // 0x86c @0x10
0x085c…086e at0011 = EOL // 0x86d @0x11
0x085c…086e }
0x086e…088a 9e78 00640 LET PROGRAM $ := PRGFL $ + ":SYS"
0x086e…088a LineComal80 {
0x086e…088a ptr = 0x9e78 // 0x86e @0x0
0x086e…088a lno = 0x0280 // 0x870 @0x2
0x086e…088a at0004 = ╱86╱ LET ╱ // 0x872 @0x4
0x086e…088a at0005 = ╱50╱P╱ // 0x873 @0x5
0x086e…088a at0006 = ╱52╱R╱ // 0x874 @0x6
0x086e…088a at0007 = ╱4f╱O╱ // 0x875 @0x7
0x086e…088a at0008 = ╱47╱G╱ // 0x876 @0x8
0x086e…088a at0009 = ╱52╱R╱ // 0x877 @0x9
0x086e…088a at000a = ╱41╱A╱ // 0x878 @0xa
0x086e…088a at000b = ╱4d╱M╱ // 0x879 @0xb
0x086e…088a at000c = ╱ef╱ $ ╱ // 0x87a @0xc
0x086e…088a at000d = ╱f0╱ := ╱ // 0x87b @0xd
0x086e…088a at000e = ╱50╱P╱ // 0x87c @0xe
0x086e…088a at000f = ╱52╱R╱ // 0x87d @0xf
0x086e…088a at0010 = ╱47╱G╱ // 0x87e @0x10
0x086e…088a at0011 = ╱46╱F╱ // 0x87f @0x11
0x086e…088a at0012 = ╱4c╱L╱ // 0x880 @0x12
0x086e…088a at0013 = ╱ef╱ $ ╱ // 0x881 @0x13
0x086e…088a at0014 = ╱eb╱ + ╱ // 0x882 @0x14
0x086e…088a at0015 = ╱22╱"╱ // 0x883 @0x15
0x086e…088a at0016 = ╱3a╱:╱ // 0x884 @0x16
0x086e…088a at0017 = ╱53╱S╱ // 0x885 @0x17
0x086e…088a at0018 = ╱59╱Y╱ // 0x886 @0x18
0x086e…088a at0019 = ╱53╱S╱ // 0x887 @0x19
0x086e…088a at001a = ╱22╱"╱ // 0x888 @0x1a
0x086e…088a at001b = EOL // 0x889 @0x1b
0x086e…088a }
0x088a…08c4 9eb2 00650 LET SPC $ := "………………………………………………………………………………………………………………………"
0x088a…08c4 LineComal80 {
0x088a…08c4 ptr = 0x9eb2 // 0x88a @0x0
0x088a…08c4 lno = 0x028a // 0x88c @0x2
0x088a…08c4 at0004 = ╱86╱ LET ╱ // 0x88e @0x4
0x088a…08c4 at0005 = ╱53╱S╱ // 0x88f @0x5
0x088a…08c4 at0006 = ╱50╱P╱ // 0x890 @0x6
0x088a…08c4 at0007 = ╱43╱C╱ // 0x891 @0x7
0x088a…08c4 at0008 = ╱ef╱ $ ╱ // 0x892 @0x8
0x088a…08c4 at0009 = ╱f0╱ := ╱ // 0x893 @0x9
0x088a…08c4 at000a = ╱22╱"╱ // 0x894 @0xa
0x088a…08c4 at000b = ╱20╱…╱ // 0x895 @0xb
0x088a…08c4 at000c = ╱20╱…╱ // 0x896 @0xc
0x088a…08c4 at000d = ╱20╱…╱ // 0x897 @0xd
0x088a…08c4 at000e = ╱20╱…╱ // 0x898 @0xe
0x088a…08c4 at000f = ╱20╱…╱ // 0x899 @0xf
0x088a…08c4 at0010 = ╱20╱…╱ // 0x89a @0x10
0x088a…08c4 at0011 = ╱20╱…╱ // 0x89b @0x11
0x088a…08c4 at0012 = ╱20╱…╱ // 0x89c @0x12
0x088a…08c4 at0013 = ╱20╱…╱ // 0x89d @0x13
0x088a…08c4 at0014 = ╱20╱…╱ // 0x89e @0x14
0x088a…08c4 at0015 = ╱20╱…╱ // 0x89f @0x15
0x088a…08c4 at0016 = ╱20╱…╱ // 0x8a0 @0x16
0x088a…08c4 at0017 = ╱20╱…╱ // 0x8a1 @0x17
0x088a…08c4 at0018 = ╱20╱…╱ // 0x8a2 @0x18
0x088a…08c4 at0019 = ╱20╱…╱ // 0x8a3 @0x19
0x088a…08c4 at001a = ╱20╱…╱ // 0x8a4 @0x1a
0x088a…08c4 at001b = ╱20╱…╱ // 0x8a5 @0x1b
0x088a…08c4 at001c = ╱20╱…╱ // 0x8a6 @0x1c
0x088a…08c4 at001d = ╱20╱…╱ // 0x8a7 @0x1d
0x088a…08c4 at001e = ╱20╱…╱ // 0x8a8 @0x1e
0x088a…08c4 at001f = ╱20╱…╱ // 0x8a9 @0x1f
0x088a…08c4 at0020 = ╱20╱…╱ // 0x8aa @0x20
0x088a…08c4 at0021 = ╱20╱…╱ // 0x8ab @0x21
0x088a…08c4 at0022 = ╱20╱…╱ // 0x8ac @0x22
0x088a…08c4 at0023 = ╱20╱…╱ // 0x8ad @0x23
0x088a…08c4 at0024 = ╱20╱…╱ // 0x8ae @0x24
0x088a…08c4 at0025 = ╱20╱…╱ // 0x8af @0x25
0x088a…08c4 at0026 = ╱20╱…╱ // 0x8b0 @0x26
0x088a…08c4 at0027 = ╱20╱…╱ // 0x8b1 @0x27
0x088a…08c4 at0028 = ╱20╱…╱ // 0x8b2 @0x28
0x088a…08c4 at0029 = ╱20╱…╱ // 0x8b3 @0x29
0x088a…08c4 at002a = ╱20╱…╱ // 0x8b4 @0x2a
0x088a…08c4 at002b = ╱20╱…╱ // 0x8b5 @0x2b
0x088a…08c4 at002c = ╱20╱…╱ // 0x8b6 @0x2c
0x088a…08c4 at002d = ╱20╱…╱ // 0x8b7 @0x2d
0x088a…08c4 at002e = ╱20╱…╱ // 0x8b8 @0x2e
0x088a…08c4 at002f = ╱20╱…╱ // 0x8b9 @0x2f
0x088a…08c4 at0030 = ╱20╱…╱ // 0x8ba @0x30
0x088a…08c4 at0031 = ╱20╱…╱ // 0x8bb @0x31
0x088a…08c4 at0032 = ╱20╱…╱ // 0x8bc @0x32
0x088a…08c4 at0033 = ╱20╱…╱ // 0x8bd @0x33
0x088a…08c4 at0034 = ╱20╱…╱ // 0x8be @0x34
0x088a…08c4 at0035 = ╱20╱…╱ // 0x8bf @0x35
0x088a…08c4 at0036 = ╱20╱…╱ // 0x8c0 @0x36
0x088a…08c4 at0037 = ╱20╱…╱ // 0x8c1 @0x37
0x088a…08c4 at0038 = ╱22╱"╱ // 0x8c2 @0x38
0x088a…08c4 at0039 = EOL // 0x8c3 @0x39
0x088a…08c4 }
0x08c4…08d8 9ec6 00660 LET SPC $ := SPC $ + SPC $
0x08c4…08d8 LineComal80 {
0x08c4…08d8 ptr = 0x9ec6 // 0x8c4 @0x0
0x08c4…08d8 lno = 0x0294 // 0x8c6 @0x2
0x08c4…08d8 at0004 = ╱86╱ LET ╱ // 0x8c8 @0x4
0x08c4…08d8 at0005 = ╱53╱S╱ // 0x8c9 @0x5
0x08c4…08d8 at0006 = ╱50╱P╱ // 0x8ca @0x6
0x08c4…08d8 at0007 = ╱43╱C╱ // 0x8cb @0x7
0x08c4…08d8 at0008 = ╱ef╱ $ ╱ // 0x8cc @0x8
0x08c4…08d8 at0009 = ╱f0╱ := ╱ // 0x8cd @0x9
0x08c4…08d8 at000a = ╱53╱S╱ // 0x8ce @0xa
0x08c4…08d8 at000b = ╱50╱P╱ // 0x8cf @0xb
0x08c4…08d8 at000c = ╱43╱C╱ // 0x8d0 @0xc
0x08c4…08d8 at000d = ╱ef╱ $ ╱ // 0x8d1 @0xd
0x08c4…08d8 at000e = ╱eb╱ + ╱ // 0x8d2 @0xe
0x08c4…08d8 at000f = ╱53╱S╱ // 0x8d3 @0xf
0x08c4…08d8 at0010 = ╱50╱P╱ // 0x8d4 @0x10
0x08c4…08d8 at0011 = ╱43╱C╱ // 0x8d5 @0x11
0x08c4…08d8 at0012 = ╱ef╱ $ ╱ // 0x8d6 @0x12
0x08c4…08d8 at0013 = EOL // 0x8d7 @0x13
0x08c4…08d8 }
0x08d8…0903 9ef1 00670 LET FALSE := 0 ; TRUE := 1 // boolske…variable
0x08d8…0903 LineComal80 {
0x08d8…0903 ptr = 0x9ef1 // 0x8d8 @0x0
0x08d8…0903 lno = 0x029e // 0x8da @0x2
0x08d8…0903 at0004 = ╱86╱ LET ╱ // 0x8dc @0x4
0x08d8…0903 at0005 = ╱46╱F╱ // 0x8dd @0x5
0x08d8…0903 at0006 = ╱41╱A╱ // 0x8de @0x6
0x08d8…0903 at0007 = ╱4c╱L╱ // 0x8df @0x7
0x08d8…0903 at0008 = ╱53╱S╱ // 0x8e0 @0x8
0x08d8…0903 at0009 = ╱45╱E╱ // 0x8e1 @0x9
0x08d8…0903 at000a = ╱f0╱ := ╱ // 0x8e2 @0xa
0x08d8…0903 at000b = ╱30╱0╱ // 0x8e3 @0xb
0x08d8…0903 at000c = ╱f20000╱ // 0x8e4 @0xc
0x08d8…0903 at000f = ╱ea╱ ; ╱ // 0x8e7 @0xf
0x08d8…0903 at0010 = ╱54╱T╱ // 0x8e8 @0x10
0x08d8…0903 at0011 = ╱52╱R╱ // 0x8e9 @0x11
0x08d8…0903 at0012 = ╱55╱U╱ // 0x8ea @0x12
0x08d8…0903 at0013 = ╱45╱E╱ // 0x8eb @0x13
0x08d8…0903 at0014 = ╱f0╱ := ╱ // 0x8ec @0x14
0x08d8…0903 at0015 = ╱31╱1╱ // 0x8ed @0x15
0x08d8…0903 at0016 = ╱f20100╱ // 0x8ee @0x16
0x08d8…0903 at0019 = ╱89╱ // ╱ // 0x8f1 @0x19
0x08d8…0903 at001a = ╱62╱b╱ // 0x8f2 @0x1a
0x08d8…0903 at001b = ╱6f╱o╱ // 0x8f3 @0x1b
0x08d8…0903 at001c = ╱6f╱o╱ // 0x8f4 @0x1c
0x08d8…0903 at001d = ╱6c╱l╱ // 0x8f5 @0x1d
0x08d8…0903 at001e = ╱73╱s╱ // 0x8f6 @0x1e
0x08d8…0903 at001f = ╱6b╱k╱ // 0x8f7 @0x1f
0x08d8…0903 at0020 = ╱65╱e╱ // 0x8f8 @0x20
0x08d8…0903 at0021 = ╱20╱…╱ // 0x8f9 @0x21
0x08d8…0903 at0022 = ╱76╱v╱ // 0x8fa @0x22
0x08d8…0903 at0023 = ╱61╱a╱ // 0x8fb @0x23
0x08d8…0903 at0024 = ╱72╱r╱ // 0x8fc @0x24
0x08d8…0903 at0025 = ╱69╱i╱ // 0x8fd @0x25
0x08d8…0903 at0026 = ╱61╱a╱ // 0x8fe @0x26
0x08d8…0903 at0027 = ╱62╱b╱ // 0x8ff @0x27
0x08d8…0903 at0028 = ╱6c╱l╱ // 0x900 @0x28
0x08d8…0903 at0029 = ╱65╱e╱ // 0x901 @0x29
0x08d8…0903 at002a = EOL // 0x902 @0x2a
0x08d8…0903 }
0x0903…0923 9f11 00680 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
0x0903…0923 LineComal80 {
0x0903…0923 ptr = 0x9f11 // 0x903 @0x0
0x0903…0923 lno = 0x02a8 // 0x905 @0x2
0x0903…0923 at0004 = ╱86╱ LET ╱ // 0x907 @0x4
0x0903…0923 at0005 = ╱53╱S╱ // 0x908 @0x5
0x0903…0923 at0006 = ╱59╱Y╱ // 0x909 @0x6
0x0903…0923 at0007 = ╱53╱S╱ // 0x90a @0x7
0x0903…0923 at0008 = ╱50╱P╱ // 0x90b @0x8
0x0903…0923 at0009 = ╱41╱A╱ // 0x90c @0x9
0x0903…0923 at000a = ╱52╱R╱ // 0x90d @0xa
0x0903…0923 at000b = ╱41╱A╱ // 0x90e @0xb
0x0903…0923 at000c = ╱ef╱ $ ╱ // 0x90f @0xc
0x0903…0923 at000d = ╱f0╱ := ╱ // 0x910 @0xd
0x0903…0923 at000e = ╱50╱P╱ // 0x911 @0xe
0x0903…0923 at000f = ╱52╱R╱ // 0x912 @0xf
0x0903…0923 at0010 = ╱47╱G╱ // 0x913 @0x10
0x0903…0923 at0011 = ╱46╱F╱ // 0x914 @0x11
0x0903…0923 at0012 = ╱4c╱L╱ // 0x915 @0x12
0x0903…0923 at0013 = ╱ef╱ $ ╱ // 0x916 @0x13
0x0903…0923 at0014 = ╱eb╱ + ╱ // 0x917 @0x14
0x0903…0923 at0015 = ╱22╱"╱ // 0x918 @0x15
0x0903…0923 at0016 = ╱3a╱:╱ // 0x919 @0x16
0x0903…0923 at0017 = ╱53╱S╱ // 0x91a @0x17
0x0903…0923 at0018 = ╱59╱Y╱ // 0x91b @0x18
0x0903…0923 at0019 = ╱53╱S╱ // 0x91c @0x19
0x0903…0923 at001a = ╱50╱P╱ // 0x91d @0x1a
0x0903…0923 at001b = ╱41╱A╱ // 0x91e @0x1b
0x0903…0923 at001c = ╱52╱R╱ // 0x91f @0x1c
0x0903…0923 at001d = ╱41╱A╱ // 0x920 @0x1d
0x0903…0923 at001e = ╱22╱"╱ // 0x921 @0x1e
0x0903…0923 at001f = EOL // 0x922 @0x1f
0x0903…0923 }
0x0923…093e 9f2c 00690 EXEC OPENFIL ( SYSPARA $ , "R" )
0x0923…093e LineComal80 {
0x0923…093e ptr = 0x9f2c // 0x923 @0x0
0x0923…093e lno = 0x02b2 // 0x925 @0x2
0x0923…093e at0004 = ╱9d╱ EXEC ╱ // 0x927 @0x4
0x0923…093e at0005 = ╱4f╱O╱ // 0x928 @0x5
0x0923…093e at0006 = ╱50╱P╱ // 0x929 @0x6
0x0923…093e at0007 = ╱45╱E╱ // 0x92a @0x7
0x0923…093e at0008 = ╱4e╱N╱ // 0x92b @0x8
0x0923…093e at0009 = ╱46╱F╱ // 0x92c @0x9
0x0923…093e at000a = ╱49╱I╱ // 0x92d @0xa
0x0923…093e at000b = ╱4c╱L╱ // 0x92e @0xb
0x0923…093e at000c = ╱ed╱ ( ╱ // 0x92f @0xc
0x0923…093e at000d = ╱53╱S╱ // 0x930 @0xd
0x0923…093e at000e = ╱59╱Y╱ // 0x931 @0xe
0x0923…093e at000f = ╱53╱S╱ // 0x932 @0xf
0x0923…093e at0010 = ╱50╱P╱ // 0x933 @0x10
0x0923…093e at0011 = ╱41╱A╱ // 0x934 @0x11
0x0923…093e at0012 = ╱52╱R╱ // 0x935 @0x12
0x0923…093e at0013 = ╱41╱A╱ // 0x936 @0x13
0x0923…093e at0014 = ╱ef╱ $ ╱ // 0x937 @0x14
0x0923…093e at0015 = ╱ec╱ , ╱ // 0x938 @0x15
0x0923…093e at0016 = ╱22╱"╱ // 0x939 @0x16
0x0923…093e at0017 = ╱52╱R╱ // 0x93a @0x17
0x0923…093e at0018 = ╱22╱"╱ // 0x93b @0x18
0x0923…093e at0019 = ╱ee╱ ) ╱ // 0x93c @0x19
0x0923…093e at001a = EOL // 0x93d @0x1a
0x0923…093e }
0x093e…0964 9f52 00700 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
0x093e…0964 LineComal80 {
0x093e…0964 ptr = 0x9f52 // 0x93e @0x0
0x093e…0964 lno = 0x02bc // 0x940 @0x2
0x093e…0964 at0004 = ╱a9╱ GET ╱ // 0x942 @0x4
0x093e…0964 at0005 = ╱53╱S╱ // 0x943 @0x5
0x093e…0964 at0006 = ╱59╱Y╱ // 0x944 @0x6
0x093e…0964 at0007 = ╱53╱S╱ // 0x945 @0x7
0x093e…0964 at0008 = ╱50╱P╱ // 0x946 @0x8
0x093e…0964 at0009 = ╱41╱A╱ // 0x947 @0x9
0x093e…0964 at000a = ╱52╱R╱ // 0x948 @0xa
0x093e…0964 at000b = ╱41╱A╱ // 0x949 @0xb
0x093e…0964 at000c = ╱ef╱ $ ╱ // 0x94a @0xc
0x093e…0964 at000d = ╱ec╱ , ╱ // 0x94b @0xd
0x093e…0964 at000e = ╱31╱1╱ // 0x94c @0xe
0x093e…0964 at000f = ╱f20100╱ // 0x94d @0xf
0x093e…0964 at0012 = ╱f1╱ : ╱ // 0x950 @0x12
0x093e…0964 at0013 = ╱53╱S╱ // 0x951 @0x13
0x093e…0964 at0014 = ╱59╱Y╱ // 0x952 @0x14
0x093e…0964 at0015 = ╱53╱S╱ // 0x953 @0x15
0x093e…0964 at0016 = ╱54╱T╱ // 0x954 @0x16
0x093e…0964 at0017 = ╱5f╱_╱ // 0x955 @0x17
0x093e…0964 at0018 = ╱4e╱N╱ // 0x956 @0x18
0x093e…0964 at0019 = ╱41╱A╱ // 0x957 @0x19
0x093e…0964 at001a = ╱56╱V╱ // 0x958 @0x1a
0x093e…0964 at001b = ╱4e╱N╱ // 0x959 @0x1b
0x093e…0964 at001c = ╱ef╱ $ ╱ // 0x95a @0x1c
0x093e…0964 at001d = ╱ec╱ , ╱ // 0x95b @0x1d
0x093e…0964 at001e = ╱53╱S╱ // 0x95c @0x1e
0x093e…0964 at001f = ╱5f╱_╱ // 0x95d @0x1f
0x093e…0964 at0020 = ╱4b╱K╱ // 0x95e @0x20
0x093e…0964 at0021 = ╱4f╱O╱ // 0x95f @0x21
0x093e…0964 at0022 = ╱44╱D╱ // 0x960 @0x22
0x093e…0964 at0023 = ╱45╱E╱ // 0x961 @0x23
0x093e…0964 at0024 = ╱ef╱ $ ╱ // 0x962 @0x24
0x093e…0964 at0025 = EOL // 0x963 @0x25
0x093e…0964 }
0x0964…0976 9f64 00710 EXEC TERMINAL_IDX
0x0964…0976 LineComal80 {
0x0964…0976 ptr = 0x9f64 // 0x964 @0x0
0x0964…0976 lno = 0x02c6 // 0x966 @0x2
0x0964…0976 at0004 = ╱9d╱ EXEC ╱ // 0x968 @0x4
0x0964…0976 at0005 = ╱54╱T╱ // 0x969 @0x5
0x0964…0976 at0006 = ╱45╱E╱ // 0x96a @0x6
0x0964…0976 at0007 = ╱52╱R╱ // 0x96b @0x7
0x0964…0976 at0008 = ╱4d╱M╱ // 0x96c @0x8
0x0964…0976 at0009 = ╱49╱I╱ // 0x96d @0x9
0x0964…0976 at000a = ╱4e╱N╱ // 0x96e @0xa
0x0964…0976 at000b = ╱41╱A╱ // 0x96f @0xb
0x0964…0976 at000c = ╱4c╱L╱ // 0x970 @0xc
0x0964…0976 at000d = ╱5f╱_╱ // 0x971 @0xd
0x0964…0976 at000e = ╱49╱I╱ // 0x972 @0xe
0x0964…0976 at000f = ╱44╱D╱ // 0x973 @0xf
0x0964…0976 at0010 = ╱58╱X╱ // 0x974 @0x10
0x0964…0976 at0011 = EOL // 0x975 @0x11
0x0964…0976 }
0x0976…0984 9f72 00720 CLOSE SYSPARA $
0x0976…0984 LineComal80 {
0x0976…0984 ptr = 0x9f72 // 0x976 @0x0
0x0976…0984 lno = 0x02d0 // 0x978 @0x2
0x0976…0984 at0004 = ╱a8╱ CLOSE ╱ // 0x97a @0x4
0x0976…0984 at0005 = ╱53╱S╱ // 0x97b @0x5
0x0976…0984 at0006 = ╱59╱Y╱ // 0x97c @0x6
0x0976…0984 at0007 = ╱53╱S╱ // 0x97d @0x7
0x0976…0984 at0008 = ╱50╱P╱ // 0x97e @0x8
0x0976…0984 at0009 = ╱41╱A╱ // 0x97f @0x9
0x0976…0984 at000a = ╱52╱R╱ // 0x980 @0xa
0x0976…0984 at000b = ╱41╱A╱ // 0x981 @0xb
0x0976…0984 at000c = ╱ef╱ $ ╱ // 0x982 @0xc
0x0976…0984 at000d = EOL // 0x983 @0xd
0x0976…0984 }
0x0984…09b4 9fa2 00730 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
0x0984…09b4 LineComal80 {
0x0984…09b4 ptr = 0x9fa2 // 0x984 @0x0
0x0984…09b4 lno = 0x02da // 0x986 @0x2
0x0984…09b4 at0004 = ╱86╱ LET ╱ // 0x988 @0x4
0x0984…09b4 at0005 = ╱50╱P╱ // 0x989 @0x5
0x0984…09b4 at0006 = ╱41╱A╱ // 0x98a @0x6
0x0984…09b4 at0007 = ╱52╱R╱ // 0x98b @0x7
0x0984…09b4 at0008 = ╱41╱A╱ // 0x98c @0x8
0x0984…09b4 at0009 = ╱4d╱M╱ // 0x98d @0x9
0x0984…09b4 at000a = ╱ef╱ $ ╱ // 0x98e @0xa
0x0984…09b4 at000b = ╱f0╱ := ╱ // 0x98f @0xb
0x0984…09b4 at000c = ╱44╱D╱ // 0x990 @0xc
0x0984…09b4 at000d = ╱41╱A╱ // 0x991 @0xd
0x0984…09b4 at000e = ╱54╱T╱ // 0x992 @0xe
0x0984…09b4 at000f = ╱41╱A╱ // 0x993 @0xf
0x0984…09b4 at0010 = ╱46╱F╱ // 0x994 @0x10
0x0984…09b4 at0011 = ╱4c╱L╱ // 0x995 @0x11
0x0984…09b4 at0012 = ╱ef╱ $ ╱ // 0x996 @0x12
0x0984…09b4 at0013 = ╱eb╱ + ╱ // 0x997 @0x13
0x0984…09b4 at0014 = ╱22╱"╱ // 0x998 @0x14
0x0984…09b4 at0015 = ╱3a╱:╱ // 0x999 @0x15
0x0984…09b4 at0016 = ╱22╱"╱ // 0x99a @0x16
0x0984…09b4 at0017 = ╱eb╱ + ╱ // 0x99b @0x17
0x0984…09b4 at0018 = ╱53╱S╱ // 0x99c @0x18
0x0984…09b4 at0019 = ╱5f╱_╱ // 0x99d @0x19
0x0984…09b4 at001a = ╱4b╱K╱ // 0x99e @0x1a
0x0984…09b4 at001b = ╱4f╱O╱ // 0x99f @0x1b
0x0984…09b4 at001c = ╱44╱D╱ // 0x9a0 @0x1c
0x0984…09b4 at001d = ╱45╱E╱ // 0x9a1 @0x1d
0x0984…09b4 at001e = ╱ef╱ $ ╱ // 0x9a2 @0x1e
0x0984…09b4 at001f = ╱eb╱ + ╱ // 0x9a3 @0x1f
0x0984…09b4 at0020 = ╱54╱T╱ // 0x9a4 @0x20
0x0984…09b4 at0021 = ╱5f╱_╱ // 0x9a5 @0x21
0x0984…09b4 at0022 = ╱4b╱K╱ // 0x9a6 @0x22
0x0984…09b4 at0023 = ╱4f╱O╱ // 0x9a7 @0x23
0x0984…09b4 at0024 = ╱44╱D╱ // 0x9a8 @0x24
0x0984…09b4 at0025 = ╱45╱E╱ // 0x9a9 @0x25
0x0984…09b4 at0026 = ╱ef╱ $ ╱ // 0x9aa @0x26
0x0984…09b4 at0027 = ╱eb╱ + ╱ // 0x9ab @0x27
0x0984…09b4 at0028 = ╱22╱"╱ // 0x9ac @0x28
0x0984…09b4 at0029 = ╱50╱P╱ // 0x9ad @0x29
0x0984…09b4 at002a = ╱41╱A╱ // 0x9ae @0x2a
0x0984…09b4 at002b = ╱52╱R╱ // 0x9af @0x2b
0x0984…09b4 at002c = ╱41╱A╱ // 0x9b0 @0x2c
0x0984…09b4 at002d = ╱4d╱M╱ // 0x9b1 @0x2d
0x0984…09b4 at002e = ╱22╱"╱ // 0x9b2 @0x2e
0x0984…09b4 at002f = EOL // 0x9b3 @0x2f
0x0984…09b4 }
0x09b4…09cd 9fbb 00740 EXEC OPENFIL ( PARAM $ , "R" )
0x09b4…09cd LineComal80 {
0x09b4…09cd ptr = 0x9fbb // 0x9b4 @0x0
0x09b4…09cd lno = 0x02e4 // 0x9b6 @0x2
0x09b4…09cd at0004 = ╱9d╱ EXEC ╱ // 0x9b8 @0x4
0x09b4…09cd at0005 = ╱4f╱O╱ // 0x9b9 @0x5
0x09b4…09cd at0006 = ╱50╱P╱ // 0x9ba @0x6
0x09b4…09cd at0007 = ╱45╱E╱ // 0x9bb @0x7
0x09b4…09cd at0008 = ╱4e╱N╱ // 0x9bc @0x8
0x09b4…09cd at0009 = ╱46╱F╱ // 0x9bd @0x9
0x09b4…09cd at000a = ╱49╱I╱ // 0x9be @0xa
0x09b4…09cd at000b = ╱4c╱L╱ // 0x9bf @0xb
0x09b4…09cd at000c = ╱ed╱ ( ╱ // 0x9c0 @0xc
0x09b4…09cd at000d = ╱50╱P╱ // 0x9c1 @0xd
0x09b4…09cd at000e = ╱41╱A╱ // 0x9c2 @0xe
0x09b4…09cd at000f = ╱52╱R╱ // 0x9c3 @0xf
0x09b4…09cd at0010 = ╱41╱A╱ // 0x9c4 @0x10
0x09b4…09cd at0011 = ╱4d╱M╱ // 0x9c5 @0x11
0x09b4…09cd at0012 = ╱ef╱ $ ╱ // 0x9c6 @0x12
0x09b4…09cd at0013 = ╱ec╱ , ╱ // 0x9c7 @0x13
0x09b4…09cd at0014 = ╱22╱"╱ // 0x9c8 @0x14
0x09b4…09cd at0015 = ╱52╱R╱ // 0x9c9 @0x15
0x09b4…09cd at0016 = ╱22╱"╱ // 0x9ca @0x16
0x09b4…09cd at0017 = ╱ee╱ ) ╱ // 0x9cb @0x17
0x09b4…09cd at0018 = EOL // 0x9cc @0x18
0x09b4…09cd }
0x09cd…09f8 9fe6 00750 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
0x09cd…09f8 LineComal80 {
0x09cd…09f8 ptr = 0x9fe6 // 0x9cd @0x0
0x09cd…09f8 lno = 0x02ee // 0x9cf @0x2
0x09cd…09f8 at0004 = ╱a9╱ GET ╱ // 0x9d1 @0x4
0x09cd…09f8 at0005 = ╱50╱P╱ // 0x9d2 @0x5
0x09cd…09f8 at0006 = ╱41╱A╱ // 0x9d3 @0x6
0x09cd…09f8 at0007 = ╱52╱R╱ // 0x9d4 @0x7
0x09cd…09f8 at0008 = ╱41╱A╱ // 0x9d5 @0x8
0x09cd…09f8 at0009 = ╱4d╱M╱ // 0x9d6 @0x9
0x09cd…09f8 at000a = ╱ef╱ $ ╱ // 0x9d7 @0xa
0x09cd…09f8 at000b = ╱ec╱ , ╱ // 0x9d8 @0xb
0x09cd…09f8 at000c = ╱31╱1╱ // 0x9d9 @0xc
0x09cd…09f8 at000d = ╱f20100╱ // 0x9da @0xd
0x09cd…09f8 at0010 = ╱f1╱ : ╱ // 0x9dd @0x10
0x09cd…09f8 at0011 = ╱46╱F╱ // 0x9de @0x11
0x09cd…09f8 at0012 = ╱49╱I╱ // 0x9df @0x12
0x09cd…09f8 at0013 = ╱52╱R╱ // 0x9e0 @0x13
0x09cd…09f8 at0014 = ╱4d╱M╱ // 0x9e1 @0x14
0x09cd…09f8 at0015 = ╱41╱A╱ // 0x9e2 @0x15
0x09cd…09f8 at0016 = ╱4e╱N╱ // 0x9e3 @0x16
0x09cd…09f8 at0017 = ╱41╱A╱ // 0x9e4 @0x17
0x09cd…09f8 at0018 = ╱56╱V╱ // 0x9e5 @0x18
0x09cd…09f8 at0019 = ╱4e╱N╱ // 0x9e6 @0x19
0x09cd…09f8 at001a = ╱ef╱ $ ╱ // 0x9e7 @0x1a
0x09cd…09f8 at001b = ╱ec╱ , ╱ // 0x9e8 @0x1b
0x09cd…09f8 at001c = ╱53╱S╱ // 0x9e9 @0x1c
0x09cd…09f8 at001d = ╱59╱Y╱ // 0x9ea @0x1d
0x09cd…09f8 at001e = ╱53╱S╱ // 0x9eb @0x1e
0x09cd…09f8 at001f = ╱54╱T╱ // 0x9ec @0x1f
0x09cd…09f8 at0020 = ╱5f╱_╱ // 0x9ed @0x20
0x09cd…09f8 at0021 = ╱44╱D╱ // 0x9ee @0x21
0x09cd…09f8 at0022 = ╱41╱A╱ // 0x9ef @0x22
0x09cd…09f8 at0023 = ╱54╱T╱ // 0x9f0 @0x23
0x09cd…09f8 at0024 = ╱ef╱ $ ╱ // 0x9f1 @0x24
0x09cd…09f8 at0025 = ╱ec╱ , ╱ // 0x9f2 @0x25
0x09cd…09f8 at0026 = ╱4d╱M╱ // 0x9f3 @0x26
0x09cd…09f8 at0027 = ╱4f╱O╱ // 0x9f4 @0x27
0x09cd…09f8 at0028 = ╱4d╱M╱ // 0x9f5 @0x28
0x09cd…09f8 at0029 = ╱53╱S╱ // 0x9f6 @0x29
0x09cd…09f8 at002a = EOL // 0x9f7 @0x2a
0x09cd…09f8 }
0x09f8…0a04 c93a 00760 CLOSE PARAM $
0x09f8…0a04 LineComal80 {
0x09f8…0a04 ptr = 0xc93a // 0x9f8 @0x0
0x09f8…0a04 lno = 0x02f8 // 0x9fa @0x2
0x09f8…0a04 at0004 = ╱a8╱ CLOSE ╱ // 0x9fc @0x4
0x09f8…0a04 at0005 = ╱50╱P╱ // 0x9fd @0x5
0x09f8…0a04 at0006 = ╱41╱A╱ // 0x9fe @0x6
0x09f8…0a04 at0007 = ╱52╱R╱ // 0x9ff @0x7
0x09f8…0a04 at0008 = ╱41╱A╱ // 0xa00 @0x8
0x09f8…0a04 at0009 = ╱4d╱M╱ // 0xa01 @0x9
0x09f8…0a04 at000a = ╱ef╱ $ ╱ // 0xa02 @0xa
0x09f8…0a04 at000b = EOL // 0xa03 @0xb
0x09f8…0a04 }
0x0a04…0a36 a024 00840 LET OMS[TN $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "OMS[TN"
0x0a04…0a36 LineComal80 {
0x0a04…0a36 ptr = 0xa024 // 0xa04 @0x0
0x0a04…0a36 lno = 0x0348 // 0xa06 @0x2
0x0a04…0a36 at0004 = ╱86╱ LET ╱ // 0xa08 @0x4
0x0a04…0a36 at0005 = ╱4f╱O╱ // 0xa09 @0x5
0x0a04…0a36 at0006 = ╱4d╱M╱ // 0xa0a @0x6
0x0a04…0a36 at0007 = ╱53╱S╱ // 0xa0b @0x7
0x0a04…0a36 at0008 = ╱5b╱[╱ // 0xa0c @0x8
0x0a04…0a36 at0009 = ╱54╱T╱ // 0xa0d @0x9
0x0a04…0a36 at000a = ╱4e╱N╱ // 0xa0e @0xa
0x0a04…0a36 at000b = ╱ef╱ $ ╱ // 0xa0f @0xb
0x0a04…0a36 at000c = ╱f0╱ := ╱ // 0xa10 @0xc
0x0a04…0a36 at000d = ╱44╱D╱ // 0xa11 @0xd
0x0a04…0a36 at000e = ╱41╱A╱ // 0xa12 @0xe
0x0a04…0a36 at000f = ╱54╱T╱ // 0xa13 @0xf
0x0a04…0a36 at0010 = ╱41╱A╱ // 0xa14 @0x10
0x0a04…0a36 at0011 = ╱46╱F╱ // 0xa15 @0x11
0x0a04…0a36 at0012 = ╱4c╱L╱ // 0xa16 @0x12
0x0a04…0a36 at0013 = ╱ef╱ $ ╱ // 0xa17 @0x13
0x0a04…0a36 at0014 = ╱eb╱ + ╱ // 0xa18 @0x14
0x0a04…0a36 at0015 = ╱22╱"╱ // 0xa19 @0x15
0x0a04…0a36 at0016 = ╱3a╱:╱ // 0xa1a @0x16
0x0a04…0a36 at0017 = ╱22╱"╱ // 0xa1b @0x17
0x0a04…0a36 at0018 = ╱eb╱ + ╱ // 0xa1c @0x18
0x0a04…0a36 at0019 = ╱53╱S╱ // 0xa1d @0x19
0x0a04…0a36 at001a = ╱5f╱_╱ // 0xa1e @0x1a
0x0a04…0a36 at001b = ╱4b╱K╱ // 0xa1f @0x1b
0x0a04…0a36 at001c = ╱4f╱O╱ // 0xa20 @0x1c
0x0a04…0a36 at001d = ╱44╱D╱ // 0xa21 @0x1d
0x0a04…0a36 at001e = ╱45╱E╱ // 0xa22 @0x1e
0x0a04…0a36 at001f = ╱ef╱ $ ╱ // 0xa23 @0x1f
0x0a04…0a36 at0020 = ╱eb╱ + ╱ // 0xa24 @0x20
0x0a04…0a36 at0021 = ╱54╱T╱ // 0xa25 @0x21
0x0a04…0a36 at0022 = ╱5f╱_╱ // 0xa26 @0x22
0x0a04…0a36 at0023 = ╱4b╱K╱ // 0xa27 @0x23
0x0a04…0a36 at0024 = ╱4f╱O╱ // 0xa28 @0x24
0x0a04…0a36 at0025 = ╱44╱D╱ // 0xa29 @0x25
0x0a04…0a36 at0026 = ╱45╱E╱ // 0xa2a @0x26
0x0a04…0a36 at0027 = ╱ef╱ $ ╱ // 0xa2b @0x27
0x0a04…0a36 at0028 = ╱eb╱ + ╱ // 0xa2c @0x28
0x0a04…0a36 at0029 = ╱22╱"╱ // 0xa2d @0x29
0x0a04…0a36 at002a = ╱4f╱O╱ // 0xa2e @0x2a
0x0a04…0a36 at002b = ╱4d╱M╱ // 0xa2f @0x2b
0x0a04…0a36 at002c = ╱53╱S╱ // 0xa30 @0x2c
0x0a04…0a36 at002d = ╱5b╱[╱ // 0xa31 @0x2d
0x0a04…0a36 at002e = ╱54╱T╱ // 0xa32 @0x2e
0x0a04…0a36 at002f = ╱4e╱N╱ // 0xa33 @0x2f
0x0a04…0a36 at0030 = ╱22╱"╱ // 0xa34 @0x30
0x0a04…0a36 at0031 = EOL // 0xa35 @0x31
0x0a04…0a36 }
0x0a36…0a68 a056 00850 LET VAREFO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "VAREFO"
0x0a36…0a68 LineComal80 {
0x0a36…0a68 ptr = 0xa056 // 0xa36 @0x0
0x0a36…0a68 lno = 0x0352 // 0xa38 @0x2
0x0a36…0a68 at0004 = ╱86╱ LET ╱ // 0xa3a @0x4
0x0a36…0a68 at0005 = ╱56╱V╱ // 0xa3b @0x5
0x0a36…0a68 at0006 = ╱41╱A╱ // 0xa3c @0x6
0x0a36…0a68 at0007 = ╱52╱R╱ // 0xa3d @0x7
0x0a36…0a68 at0008 = ╱45╱E╱ // 0xa3e @0x8
0x0a36…0a68 at0009 = ╱46╱F╱ // 0xa3f @0x9
0x0a36…0a68 at000a = ╱4f╱O╱ // 0xa40 @0xa
0x0a36…0a68 at000b = ╱ef╱ $ ╱ // 0xa41 @0xb
0x0a36…0a68 at000c = ╱f0╱ := ╱ // 0xa42 @0xc
0x0a36…0a68 at000d = ╱44╱D╱ // 0xa43 @0xd
0x0a36…0a68 at000e = ╱41╱A╱ // 0xa44 @0xe
0x0a36…0a68 at000f = ╱54╱T╱ // 0xa45 @0xf
0x0a36…0a68 at0010 = ╱41╱A╱ // 0xa46 @0x10
0x0a36…0a68 at0011 = ╱46╱F╱ // 0xa47 @0x11
0x0a36…0a68 at0012 = ╱4c╱L╱ // 0xa48 @0x12
0x0a36…0a68 at0013 = ╱ef╱ $ ╱ // 0xa49 @0x13
0x0a36…0a68 at0014 = ╱eb╱ + ╱ // 0xa4a @0x14
0x0a36…0a68 at0015 = ╱22╱"╱ // 0xa4b @0x15
0x0a36…0a68 at0016 = ╱3a╱:╱ // 0xa4c @0x16
0x0a36…0a68 at0017 = ╱22╱"╱ // 0xa4d @0x17
0x0a36…0a68 at0018 = ╱eb╱ + ╱ // 0xa4e @0x18
0x0a36…0a68 at0019 = ╱53╱S╱ // 0xa4f @0x19
0x0a36…0a68 at001a = ╱5f╱_╱ // 0xa50 @0x1a
0x0a36…0a68 at001b = ╱4b╱K╱ // 0xa51 @0x1b
0x0a36…0a68 at001c = ╱4f╱O╱ // 0xa52 @0x1c
0x0a36…0a68 at001d = ╱44╱D╱ // 0xa53 @0x1d
0x0a36…0a68 at001e = ╱45╱E╱ // 0xa54 @0x1e
0x0a36…0a68 at001f = ╱ef╱ $ ╱ // 0xa55 @0x1f
0x0a36…0a68 at0020 = ╱eb╱ + ╱ // 0xa56 @0x20
0x0a36…0a68 at0021 = ╱54╱T╱ // 0xa57 @0x21
0x0a36…0a68 at0022 = ╱5f╱_╱ // 0xa58 @0x22
0x0a36…0a68 at0023 = ╱4b╱K╱ // 0xa59 @0x23
0x0a36…0a68 at0024 = ╱4f╱O╱ // 0xa5a @0x24
0x0a36…0a68 at0025 = ╱44╱D╱ // 0xa5b @0x25
0x0a36…0a68 at0026 = ╱45╱E╱ // 0xa5c @0x26
0x0a36…0a68 at0027 = ╱ef╱ $ ╱ // 0xa5d @0x27
0x0a36…0a68 at0028 = ╱eb╱ + ╱ // 0xa5e @0x28
0x0a36…0a68 at0029 = ╱22╱"╱ // 0xa5f @0x29
0x0a36…0a68 at002a = ╱56╱V╱ // 0xa60 @0x2a
0x0a36…0a68 at002b = ╱41╱A╱ // 0xa61 @0x2b
0x0a36…0a68 at002c = ╱52╱R╱ // 0xa62 @0x2c
0x0a36…0a68 at002d = ╱45╱E╱ // 0xa63 @0x2d
0x0a36…0a68 at002e = ╱46╱F╱ // 0xa64 @0x2e
0x0a36…0a68 at002f = ╱4f╱O╱ // 0xa65 @0x2f
0x0a36…0a68 at0030 = ╱22╱"╱ // 0xa66 @0x30
0x0a36…0a68 at0031 = EOL // 0xa67 @0x31
0x0a36…0a68 }
0x0a68…0a9a a088 00860 LET KAPOMK $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KAPOMK"
0x0a68…0a9a LineComal80 {
0x0a68…0a9a ptr = 0xa088 // 0xa68 @0x0
0x0a68…0a9a lno = 0x035c // 0xa6a @0x2
0x0a68…0a9a at0004 = ╱86╱ LET ╱ // 0xa6c @0x4
0x0a68…0a9a at0005 = ╱4b╱K╱ // 0xa6d @0x5
0x0a68…0a9a at0006 = ╱41╱A╱ // 0xa6e @0x6
0x0a68…0a9a at0007 = ╱50╱P╱ // 0xa6f @0x7
0x0a68…0a9a at0008 = ╱4f╱O╱ // 0xa70 @0x8
0x0a68…0a9a at0009 = ╱4d╱M╱ // 0xa71 @0x9
0x0a68…0a9a at000a = ╱4b╱K╱ // 0xa72 @0xa
0x0a68…0a9a at000b = ╱ef╱ $ ╱ // 0xa73 @0xb
0x0a68…0a9a at000c = ╱f0╱ := ╱ // 0xa74 @0xc
0x0a68…0a9a at000d = ╱44╱D╱ // 0xa75 @0xd
0x0a68…0a9a at000e = ╱41╱A╱ // 0xa76 @0xe
0x0a68…0a9a at000f = ╱54╱T╱ // 0xa77 @0xf
0x0a68…0a9a at0010 = ╱41╱A╱ // 0xa78 @0x10
0x0a68…0a9a at0011 = ╱46╱F╱ // 0xa79 @0x11
0x0a68…0a9a at0012 = ╱4c╱L╱ // 0xa7a @0x12
0x0a68…0a9a at0013 = ╱ef╱ $ ╱ // 0xa7b @0x13
0x0a68…0a9a at0014 = ╱eb╱ + ╱ // 0xa7c @0x14
0x0a68…0a9a at0015 = ╱22╱"╱ // 0xa7d @0x15
0x0a68…0a9a at0016 = ╱3a╱:╱ // 0xa7e @0x16
0x0a68…0a9a at0017 = ╱22╱"╱ // 0xa7f @0x17
0x0a68…0a9a at0018 = ╱eb╱ + ╱ // 0xa80 @0x18
0x0a68…0a9a at0019 = ╱53╱S╱ // 0xa81 @0x19
0x0a68…0a9a at001a = ╱5f╱_╱ // 0xa82 @0x1a
0x0a68…0a9a at001b = ╱4b╱K╱ // 0xa83 @0x1b
0x0a68…0a9a at001c = ╱4f╱O╱ // 0xa84 @0x1c
0x0a68…0a9a at001d = ╱44╱D╱ // 0xa85 @0x1d
0x0a68…0a9a at001e = ╱45╱E╱ // 0xa86 @0x1e
0x0a68…0a9a at001f = ╱ef╱ $ ╱ // 0xa87 @0x1f
0x0a68…0a9a at0020 = ╱eb╱ + ╱ // 0xa88 @0x20
0x0a68…0a9a at0021 = ╱54╱T╱ // 0xa89 @0x21
0x0a68…0a9a at0022 = ╱5f╱_╱ // 0xa8a @0x22
0x0a68…0a9a at0023 = ╱4b╱K╱ // 0xa8b @0x23
0x0a68…0a9a at0024 = ╱4f╱O╱ // 0xa8c @0x24
0x0a68…0a9a at0025 = ╱44╱D╱ // 0xa8d @0x25
0x0a68…0a9a at0026 = ╱45╱E╱ // 0xa8e @0x26
0x0a68…0a9a at0027 = ╱ef╱ $ ╱ // 0xa8f @0x27
0x0a68…0a9a at0028 = ╱eb╱ + ╱ // 0xa90 @0x28
0x0a68…0a9a at0029 = ╱22╱"╱ // 0xa91 @0x29
0x0a68…0a9a at002a = ╱4b╱K╱ // 0xa92 @0x2a
0x0a68…0a9a at002b = ╱41╱A╱ // 0xa93 @0x2b
0x0a68…0a9a at002c = ╱50╱P╱ // 0xa94 @0x2c
0x0a68…0a9a at002d = ╱4f╱O╱ // 0xa95 @0x2d
0x0a68…0a9a at002e = ╱4d╱M╱ // 0xa96 @0x2e
0x0a68…0a9a at002f = ╱4b╱K╱ // 0xa97 @0x2f
0x0a68…0a9a at0030 = ╱22╱"╱ // 0xa98 @0x30
0x0a68…0a9a at0031 = EOL // 0xa99 @0x31
0x0a68…0a9a }
0x0a9a…0acc a0ba 00870 LET AFSKRI $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "AFSKRI"
0x0a9a…0acc LineComal80 {
0x0a9a…0acc ptr = 0xa0ba // 0xa9a @0x0
0x0a9a…0acc lno = 0x0366 // 0xa9c @0x2
0x0a9a…0acc at0004 = ╱86╱ LET ╱ // 0xa9e @0x4
0x0a9a…0acc at0005 = ╱41╱A╱ // 0xa9f @0x5
0x0a9a…0acc at0006 = ╱46╱F╱ // 0xaa0 @0x6
0x0a9a…0acc at0007 = ╱53╱S╱ // 0xaa1 @0x7
0x0a9a…0acc at0008 = ╱4b╱K╱ // 0xaa2 @0x8
0x0a9a…0acc at0009 = ╱52╱R╱ // 0xaa3 @0x9
0x0a9a…0acc at000a = ╱49╱I╱ // 0xaa4 @0xa
0x0a9a…0acc at000b = ╱ef╱ $ ╱ // 0xaa5 @0xb
0x0a9a…0acc at000c = ╱f0╱ := ╱ // 0xaa6 @0xc
0x0a9a…0acc at000d = ╱44╱D╱ // 0xaa7 @0xd
0x0a9a…0acc at000e = ╱41╱A╱ // 0xaa8 @0xe
0x0a9a…0acc at000f = ╱54╱T╱ // 0xaa9 @0xf
0x0a9a…0acc at0010 = ╱41╱A╱ // 0xaaa @0x10
0x0a9a…0acc at0011 = ╱46╱F╱ // 0xaab @0x11
0x0a9a…0acc at0012 = ╱4c╱L╱ // 0xaac @0x12
0x0a9a…0acc at0013 = ╱ef╱ $ ╱ // 0xaad @0x13
0x0a9a…0acc at0014 = ╱eb╱ + ╱ // 0xaae @0x14
0x0a9a…0acc at0015 = ╱22╱"╱ // 0xaaf @0x15
0x0a9a…0acc at0016 = ╱3a╱:╱ // 0xab0 @0x16
0x0a9a…0acc at0017 = ╱22╱"╱ // 0xab1 @0x17
0x0a9a…0acc at0018 = ╱eb╱ + ╱ // 0xab2 @0x18
0x0a9a…0acc at0019 = ╱53╱S╱ // 0xab3 @0x19
0x0a9a…0acc at001a = ╱5f╱_╱ // 0xab4 @0x1a
0x0a9a…0acc at001b = ╱4b╱K╱ // 0xab5 @0x1b
0x0a9a…0acc at001c = ╱4f╱O╱ // 0xab6 @0x1c
0x0a9a…0acc at001d = ╱44╱D╱ // 0xab7 @0x1d
0x0a9a…0acc at001e = ╱45╱E╱ // 0xab8 @0x1e
0x0a9a…0acc at001f = ╱ef╱ $ ╱ // 0xab9 @0x1f
0x0a9a…0acc at0020 = ╱eb╱ + ╱ // 0xaba @0x20
0x0a9a…0acc at0021 = ╱54╱T╱ // 0xabb @0x21
0x0a9a…0acc at0022 = ╱5f╱_╱ // 0xabc @0x22
0x0a9a…0acc at0023 = ╱4b╱K╱ // 0xabd @0x23
0x0a9a…0acc at0024 = ╱4f╱O╱ // 0xabe @0x24
0x0a9a…0acc at0025 = ╱44╱D╱ // 0xabf @0x25
0x0a9a…0acc at0026 = ╱45╱E╱ // 0xac0 @0x26
0x0a9a…0acc at0027 = ╱ef╱ $ ╱ // 0xac1 @0x27
0x0a9a…0acc at0028 = ╱eb╱ + ╱ // 0xac2 @0x28
0x0a9a…0acc at0029 = ╱22╱"╱ // 0xac3 @0x29
0x0a9a…0acc at002a = ╱41╱A╱ // 0xac4 @0x2a
0x0a9a…0acc at002b = ╱46╱F╱ // 0xac5 @0x2b
0x0a9a…0acc at002c = ╱53╱S╱ // 0xac6 @0x2c
0x0a9a…0acc at002d = ╱4b╱K╱ // 0xac7 @0x2d
0x0a9a…0acc at002e = ╱52╱R╱ // 0xac8 @0x2e
0x0a9a…0acc at002f = ╱49╱I╱ // 0xac9 @0x2f
0x0a9a…0acc at0030 = ╱22╱"╱ // 0xaca @0x30
0x0a9a…0acc at0031 = EOL // 0xacb @0x31
0x0a9a…0acc }
0x0acc…0afe a0ec 00880 LET RENTEO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "RENTEO"
0x0acc…0afe LineComal80 {
0x0acc…0afe ptr = 0xa0ec // 0xacc @0x0
0x0acc…0afe lno = 0x0370 // 0xace @0x2
0x0acc…0afe at0004 = ╱86╱ LET ╱ // 0xad0 @0x4
0x0acc…0afe at0005 = ╱52╱R╱ // 0xad1 @0x5
0x0acc…0afe at0006 = ╱45╱E╱ // 0xad2 @0x6
0x0acc…0afe at0007 = ╱4e╱N╱ // 0xad3 @0x7
0x0acc…0afe at0008 = ╱54╱T╱ // 0xad4 @0x8
0x0acc…0afe at0009 = ╱45╱E╱ // 0xad5 @0x9
0x0acc…0afe at000a = ╱4f╱O╱ // 0xad6 @0xa
0x0acc…0afe at000b = ╱ef╱ $ ╱ // 0xad7 @0xb
0x0acc…0afe at000c = ╱f0╱ := ╱ // 0xad8 @0xc
0x0acc…0afe at000d = ╱44╱D╱ // 0xad9 @0xd
0x0acc…0afe at000e = ╱41╱A╱ // 0xada @0xe
0x0acc…0afe at000f = ╱54╱T╱ // 0xadb @0xf
0x0acc…0afe at0010 = ╱41╱A╱ // 0xadc @0x10
0x0acc…0afe at0011 = ╱46╱F╱ // 0xadd @0x11
0x0acc…0afe at0012 = ╱4c╱L╱ // 0xade @0x12
0x0acc…0afe at0013 = ╱ef╱ $ ╱ // 0xadf @0x13
0x0acc…0afe at0014 = ╱eb╱ + ╱ // 0xae0 @0x14
0x0acc…0afe at0015 = ╱22╱"╱ // 0xae1 @0x15
0x0acc…0afe at0016 = ╱3a╱:╱ // 0xae2 @0x16
0x0acc…0afe at0017 = ╱22╱"╱ // 0xae3 @0x17
0x0acc…0afe at0018 = ╱eb╱ + ╱ // 0xae4 @0x18
0x0acc…0afe at0019 = ╱53╱S╱ // 0xae5 @0x19
0x0acc…0afe at001a = ╱5f╱_╱ // 0xae6 @0x1a
0x0acc…0afe at001b = ╱4b╱K╱ // 0xae7 @0x1b
0x0acc…0afe at001c = ╱4f╱O╱ // 0xae8 @0x1c
0x0acc…0afe at001d = ╱44╱D╱ // 0xae9 @0x1d
0x0acc…0afe at001e = ╱45╱E╱ // 0xaea @0x1e
0x0acc…0afe at001f = ╱ef╱ $ ╱ // 0xaeb @0x1f
0x0acc…0afe at0020 = ╱eb╱ + ╱ // 0xaec @0x20
0x0acc…0afe at0021 = ╱54╱T╱ // 0xaed @0x21
0x0acc…0afe at0022 = ╱5f╱_╱ // 0xaee @0x22
0x0acc…0afe at0023 = ╱4b╱K╱ // 0xaef @0x23
0x0acc…0afe at0024 = ╱4f╱O╱ // 0xaf0 @0x24
0x0acc…0afe at0025 = ╱44╱D╱ // 0xaf1 @0x25
0x0acc…0afe at0026 = ╱45╱E╱ // 0xaf2 @0x26
0x0acc…0afe at0027 = ╱ef╱ $ ╱ // 0xaf3 @0x27
0x0acc…0afe at0028 = ╱eb╱ + ╱ // 0xaf4 @0x28
0x0acc…0afe at0029 = ╱22╱"╱ // 0xaf5 @0x29
0x0acc…0afe at002a = ╱52╱R╱ // 0xaf6 @0x2a
0x0acc…0afe at002b = ╱45╱E╱ // 0xaf7 @0x2b
0x0acc…0afe at002c = ╱4e╱N╱ // 0xaf8 @0x2c
0x0acc…0afe at002d = ╱54╱T╱ // 0xaf9 @0x2d
0x0acc…0afe at002e = ╱45╱E╱ // 0xafa @0x2e
0x0acc…0afe at002f = ╱4f╱O╱ // 0xafb @0x2f
0x0acc…0afe at0030 = ╱22╱"╱ // 0xafc @0x30
0x0acc…0afe at0031 = EOL // 0xafd @0x31
0x0acc…0afe }
0x0afe…0b30 a11e 00890 LET AKTIVE $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "AKTIVE"
0x0afe…0b30 LineComal80 {
0x0afe…0b30 ptr = 0xa11e // 0xafe @0x0
0x0afe…0b30 lno = 0x037a // 0xb00 @0x2
0x0afe…0b30 at0004 = ╱86╱ LET ╱ // 0xb02 @0x4
0x0afe…0b30 at0005 = ╱41╱A╱ // 0xb03 @0x5
0x0afe…0b30 at0006 = ╱4b╱K╱ // 0xb04 @0x6
0x0afe…0b30 at0007 = ╱54╱T╱ // 0xb05 @0x7
0x0afe…0b30 at0008 = ╱49╱I╱ // 0xb06 @0x8
0x0afe…0b30 at0009 = ╱56╱V╱ // 0xb07 @0x9
0x0afe…0b30 at000a = ╱45╱E╱ // 0xb08 @0xa
0x0afe…0b30 at000b = ╱ef╱ $ ╱ // 0xb09 @0xb
0x0afe…0b30 at000c = ╱f0╱ := ╱ // 0xb0a @0xc
0x0afe…0b30 at000d = ╱44╱D╱ // 0xb0b @0xd
0x0afe…0b30 at000e = ╱41╱A╱ // 0xb0c @0xe
0x0afe…0b30 at000f = ╱54╱T╱ // 0xb0d @0xf
0x0afe…0b30 at0010 = ╱41╱A╱ // 0xb0e @0x10
0x0afe…0b30 at0011 = ╱46╱F╱ // 0xb0f @0x11
0x0afe…0b30 at0012 = ╱4c╱L╱ // 0xb10 @0x12
0x0afe…0b30 at0013 = ╱ef╱ $ ╱ // 0xb11 @0x13
0x0afe…0b30 at0014 = ╱eb╱ + ╱ // 0xb12 @0x14
0x0afe…0b30 at0015 = ╱22╱"╱ // 0xb13 @0x15
0x0afe…0b30 at0016 = ╱3a╱:╱ // 0xb14 @0x16
0x0afe…0b30 at0017 = ╱22╱"╱ // 0xb15 @0x17
0x0afe…0b30 at0018 = ╱eb╱ + ╱ // 0xb16 @0x18
0x0afe…0b30 at0019 = ╱53╱S╱ // 0xb17 @0x19
0x0afe…0b30 at001a = ╱5f╱_╱ // 0xb18 @0x1a
0x0afe…0b30 at001b = ╱4b╱K╱ // 0xb19 @0x1b
0x0afe…0b30 at001c = ╱4f╱O╱ // 0xb1a @0x1c
0x0afe…0b30 at001d = ╱44╱D╱ // 0xb1b @0x1d
0x0afe…0b30 at001e = ╱45╱E╱ // 0xb1c @0x1e
0x0afe…0b30 at001f = ╱ef╱ $ ╱ // 0xb1d @0x1f
0x0afe…0b30 at0020 = ╱eb╱ + ╱ // 0xb1e @0x20
0x0afe…0b30 at0021 = ╱54╱T╱ // 0xb1f @0x21
0x0afe…0b30 at0022 = ╱5f╱_╱ // 0xb20 @0x22
0x0afe…0b30 at0023 = ╱4b╱K╱ // 0xb21 @0x23
0x0afe…0b30 at0024 = ╱4f╱O╱ // 0xb22 @0x24
0x0afe…0b30 at0025 = ╱44╱D╱ // 0xb23 @0x25
0x0afe…0b30 at0026 = ╱45╱E╱ // 0xb24 @0x26
0x0afe…0b30 at0027 = ╱ef╱ $ ╱ // 0xb25 @0x27
0x0afe…0b30 at0028 = ╱eb╱ + ╱ // 0xb26 @0x28
0x0afe…0b30 at0029 = ╱22╱"╱ // 0xb27 @0x29
0x0afe…0b30 at002a = ╱41╱A╱ // 0xb28 @0x2a
0x0afe…0b30 at002b = ╱4b╱K╱ // 0xb29 @0x2b
0x0afe…0b30 at002c = ╱54╱T╱ // 0xb2a @0x2c
0x0afe…0b30 at002d = ╱49╱I╱ // 0xb2b @0x2d
0x0afe…0b30 at002e = ╱56╱V╱ // 0xb2c @0x2e
0x0afe…0b30 at002f = ╱45╱E╱ // 0xb2d @0x2f
0x0afe…0b30 at0030 = ╱22╱"╱ // 0xb2e @0x30
0x0afe…0b30 at0031 = EOL // 0xb2f @0x31
0x0afe…0b30 }
0x0b30…0b62 a150 00900 LET VARELA $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "VARELA"
0x0b30…0b62 LineComal80 {
0x0b30…0b62 ptr = 0xa150 // 0xb30 @0x0
0x0b30…0b62 lno = 0x0384 // 0xb32 @0x2
0x0b30…0b62 at0004 = ╱86╱ LET ╱ // 0xb34 @0x4
0x0b30…0b62 at0005 = ╱56╱V╱ // 0xb35 @0x5
0x0b30…0b62 at0006 = ╱41╱A╱ // 0xb36 @0x6
0x0b30…0b62 at0007 = ╱52╱R╱ // 0xb37 @0x7
0x0b30…0b62 at0008 = ╱45╱E╱ // 0xb38 @0x8
0x0b30…0b62 at0009 = ╱4c╱L╱ // 0xb39 @0x9
0x0b30…0b62 at000a = ╱41╱A╱ // 0xb3a @0xa
0x0b30…0b62 at000b = ╱ef╱ $ ╱ // 0xb3b @0xb
0x0b30…0b62 at000c = ╱f0╱ := ╱ // 0xb3c @0xc
0x0b30…0b62 at000d = ╱44╱D╱ // 0xb3d @0xd
0x0b30…0b62 at000e = ╱41╱A╱ // 0xb3e @0xe
0x0b30…0b62 at000f = ╱54╱T╱ // 0xb3f @0xf
0x0b30…0b62 at0010 = ╱41╱A╱ // 0xb40 @0x10
0x0b30…0b62 at0011 = ╱46╱F╱ // 0xb41 @0x11
0x0b30…0b62 at0012 = ╱4c╱L╱ // 0xb42 @0x12
0x0b30…0b62 at0013 = ╱ef╱ $ ╱ // 0xb43 @0x13
0x0b30…0b62 at0014 = ╱eb╱ + ╱ // 0xb44 @0x14
0x0b30…0b62 at0015 = ╱22╱"╱ // 0xb45 @0x15
0x0b30…0b62 at0016 = ╱3a╱:╱ // 0xb46 @0x16
0x0b30…0b62 at0017 = ╱22╱"╱ // 0xb47 @0x17
0x0b30…0b62 at0018 = ╱eb╱ + ╱ // 0xb48 @0x18
0x0b30…0b62 at0019 = ╱53╱S╱ // 0xb49 @0x19
0x0b30…0b62 at001a = ╱5f╱_╱ // 0xb4a @0x1a
0x0b30…0b62 at001b = ╱4b╱K╱ // 0xb4b @0x1b
0x0b30…0b62 at001c = ╱4f╱O╱ // 0xb4c @0x1c
0x0b30…0b62 at001d = ╱44╱D╱ // 0xb4d @0x1d
0x0b30…0b62 at001e = ╱45╱E╱ // 0xb4e @0x1e
0x0b30…0b62 at001f = ╱ef╱ $ ╱ // 0xb4f @0x1f
0x0b30…0b62 at0020 = ╱eb╱ + ╱ // 0xb50 @0x20
0x0b30…0b62 at0021 = ╱54╱T╱ // 0xb51 @0x21
0x0b30…0b62 at0022 = ╱5f╱_╱ // 0xb52 @0x22
0x0b30…0b62 at0023 = ╱4b╱K╱ // 0xb53 @0x23
0x0b30…0b62 at0024 = ╱4f╱O╱ // 0xb54 @0x24
0x0b30…0b62 at0025 = ╱44╱D╱ // 0xb55 @0x25
0x0b30…0b62 at0026 = ╱45╱E╱ // 0xb56 @0x26
0x0b30…0b62 at0027 = ╱ef╱ $ ╱ // 0xb57 @0x27
0x0b30…0b62 at0028 = ╱eb╱ + ╱ // 0xb58 @0x28
0x0b30…0b62 at0029 = ╱22╱"╱ // 0xb59 @0x29
0x0b30…0b62 at002a = ╱56╱V╱ // 0xb5a @0x2a
0x0b30…0b62 at002b = ╱41╱A╱ // 0xb5b @0x2b
0x0b30…0b62 at002c = ╱52╱R╱ // 0xb5c @0x2c
0x0b30…0b62 at002d = ╱45╱E╱ // 0xb5d @0x2d
0x0b30…0b62 at002e = ╱4c╱L╱ // 0xb5e @0x2e
0x0b30…0b62 at002f = ╱41╱A╱ // 0xb5f @0x2f
0x0b30…0b62 at0030 = ╱22╱"╱ // 0xb60 @0x30
0x0b30…0b62 at0031 = EOL // 0xb61 @0x31
0x0b30…0b62 }
0x0b62…0b94 a182 00910 LET DEBITO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "DEBITO"
0x0b62…0b94 LineComal80 {
0x0b62…0b94 ptr = 0xa182 // 0xb62 @0x0
0x0b62…0b94 lno = 0x038e // 0xb64 @0x2
0x0b62…0b94 at0004 = ╱86╱ LET ╱ // 0xb66 @0x4
0x0b62…0b94 at0005 = ╱44╱D╱ // 0xb67 @0x5
0x0b62…0b94 at0006 = ╱45╱E╱ // 0xb68 @0x6
0x0b62…0b94 at0007 = ╱42╱B╱ // 0xb69 @0x7
0x0b62…0b94 at0008 = ╱49╱I╱ // 0xb6a @0x8
0x0b62…0b94 at0009 = ╱54╱T╱ // 0xb6b @0x9
0x0b62…0b94 at000a = ╱4f╱O╱ // 0xb6c @0xa
0x0b62…0b94 at000b = ╱ef╱ $ ╱ // 0xb6d @0xb
0x0b62…0b94 at000c = ╱f0╱ := ╱ // 0xb6e @0xc
0x0b62…0b94 at000d = ╱44╱D╱ // 0xb6f @0xd
0x0b62…0b94 at000e = ╱41╱A╱ // 0xb70 @0xe
0x0b62…0b94 at000f = ╱54╱T╱ // 0xb71 @0xf
0x0b62…0b94 at0010 = ╱41╱A╱ // 0xb72 @0x10
0x0b62…0b94 at0011 = ╱46╱F╱ // 0xb73 @0x11
0x0b62…0b94 at0012 = ╱4c╱L╱ // 0xb74 @0x12
0x0b62…0b94 at0013 = ╱ef╱ $ ╱ // 0xb75 @0x13
0x0b62…0b94 at0014 = ╱eb╱ + ╱ // 0xb76 @0x14
0x0b62…0b94 at0015 = ╱22╱"╱ // 0xb77 @0x15
0x0b62…0b94 at0016 = ╱3a╱:╱ // 0xb78 @0x16
0x0b62…0b94 at0017 = ╱22╱"╱ // 0xb79 @0x17
0x0b62…0b94 at0018 = ╱eb╱ + ╱ // 0xb7a @0x18
0x0b62…0b94 at0019 = ╱53╱S╱ // 0xb7b @0x19
0x0b62…0b94 at001a = ╱5f╱_╱ // 0xb7c @0x1a
0x0b62…0b94 at001b = ╱4b╱K╱ // 0xb7d @0x1b
0x0b62…0b94 at001c = ╱4f╱O╱ // 0xb7e @0x1c
0x0b62…0b94 at001d = ╱44╱D╱ // 0xb7f @0x1d
0x0b62…0b94 at001e = ╱45╱E╱ // 0xb80 @0x1e
0x0b62…0b94 at001f = ╱ef╱ $ ╱ // 0xb81 @0x1f
0x0b62…0b94 at0020 = ╱eb╱ + ╱ // 0xb82 @0x20
0x0b62…0b94 at0021 = ╱54╱T╱ // 0xb83 @0x21
0x0b62…0b94 at0022 = ╱5f╱_╱ // 0xb84 @0x22
0x0b62…0b94 at0023 = ╱4b╱K╱ // 0xb85 @0x23
0x0b62…0b94 at0024 = ╱4f╱O╱ // 0xb86 @0x24
0x0b62…0b94 at0025 = ╱44╱D╱ // 0xb87 @0x25
0x0b62…0b94 at0026 = ╱45╱E╱ // 0xb88 @0x26
0x0b62…0b94 at0027 = ╱ef╱ $ ╱ // 0xb89 @0x27
0x0b62…0b94 at0028 = ╱eb╱ + ╱ // 0xb8a @0x28
0x0b62…0b94 at0029 = ╱22╱"╱ // 0xb8b @0x29
0x0b62…0b94 at002a = ╱44╱D╱ // 0xb8c @0x2a
0x0b62…0b94 at002b = ╱45╱E╱ // 0xb8d @0x2b
0x0b62…0b94 at002c = ╱42╱B╱ // 0xb8e @0x2c
0x0b62…0b94 at002d = ╱49╱I╱ // 0xb8f @0x2d
0x0b62…0b94 at002e = ╱54╱T╱ // 0xb90 @0x2e
0x0b62…0b94 at002f = ╱4f╱O╱ // 0xb91 @0x2f
0x0b62…0b94 at0030 = ╱22╱"╱ // 0xb92 @0x30
0x0b62…0b94 at0031 = EOL // 0xb93 @0x31
0x0b62…0b94 }
0x0b94…0bc6 a1b4 00920 LET KREDIT $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KREDIT"
0x0b94…0bc6 LineComal80 {
0x0b94…0bc6 ptr = 0xa1b4 // 0xb94 @0x0
0x0b94…0bc6 lno = 0x0398 // 0xb96 @0x2
0x0b94…0bc6 at0004 = ╱86╱ LET ╱ // 0xb98 @0x4
0x0b94…0bc6 at0005 = ╱4b╱K╱ // 0xb99 @0x5
0x0b94…0bc6 at0006 = ╱52╱R╱ // 0xb9a @0x6
0x0b94…0bc6 at0007 = ╱45╱E╱ // 0xb9b @0x7
0x0b94…0bc6 at0008 = ╱44╱D╱ // 0xb9c @0x8
0x0b94…0bc6 at0009 = ╱49╱I╱ // 0xb9d @0x9
0x0b94…0bc6 at000a = ╱54╱T╱ // 0xb9e @0xa
0x0b94…0bc6 at000b = ╱ef╱ $ ╱ // 0xb9f @0xb
0x0b94…0bc6 at000c = ╱f0╱ := ╱ // 0xba0 @0xc
0x0b94…0bc6 at000d = ╱44╱D╱ // 0xba1 @0xd
0x0b94…0bc6 at000e = ╱41╱A╱ // 0xba2 @0xe
0x0b94…0bc6 at000f = ╱54╱T╱ // 0xba3 @0xf
0x0b94…0bc6 at0010 = ╱41╱A╱ // 0xba4 @0x10
0x0b94…0bc6 at0011 = ╱46╱F╱ // 0xba5 @0x11
0x0b94…0bc6 at0012 = ╱4c╱L╱ // 0xba6 @0x12
0x0b94…0bc6 at0013 = ╱ef╱ $ ╱ // 0xba7 @0x13
0x0b94…0bc6 at0014 = ╱eb╱ + ╱ // 0xba8 @0x14
0x0b94…0bc6 at0015 = ╱22╱"╱ // 0xba9 @0x15
0x0b94…0bc6 at0016 = ╱3a╱:╱ // 0xbaa @0x16
0x0b94…0bc6 at0017 = ╱22╱"╱ // 0xbab @0x17
0x0b94…0bc6 at0018 = ╱eb╱ + ╱ // 0xbac @0x18
0x0b94…0bc6 at0019 = ╱53╱S╱ // 0xbad @0x19
0x0b94…0bc6 at001a = ╱5f╱_╱ // 0xbae @0x1a
0x0b94…0bc6 at001b = ╱4b╱K╱ // 0xbaf @0x1b
0x0b94…0bc6 at001c = ╱4f╱O╱ // 0xbb0 @0x1c
0x0b94…0bc6 at001d = ╱44╱D╱ // 0xbb1 @0x1d
0x0b94…0bc6 at001e = ╱45╱E╱ // 0xbb2 @0x1e
0x0b94…0bc6 at001f = ╱ef╱ $ ╱ // 0xbb3 @0x1f
0x0b94…0bc6 at0020 = ╱eb╱ + ╱ // 0xbb4 @0x20
0x0b94…0bc6 at0021 = ╱54╱T╱ // 0xbb5 @0x21
0x0b94…0bc6 at0022 = ╱5f╱_╱ // 0xbb6 @0x22
0x0b94…0bc6 at0023 = ╱4b╱K╱ // 0xbb7 @0x23
0x0b94…0bc6 at0024 = ╱4f╱O╱ // 0xbb8 @0x24
0x0b94…0bc6 at0025 = ╱44╱D╱ // 0xbb9 @0x25
0x0b94…0bc6 at0026 = ╱45╱E╱ // 0xbba @0x26
0x0b94…0bc6 at0027 = ╱ef╱ $ ╱ // 0xbbb @0x27
0x0b94…0bc6 at0028 = ╱eb╱ + ╱ // 0xbbc @0x28
0x0b94…0bc6 at0029 = ╱22╱"╱ // 0xbbd @0x29
0x0b94…0bc6 at002a = ╱4b╱K╱ // 0xbbe @0x2a
0x0b94…0bc6 at002b = ╱52╱R╱ // 0xbbf @0x2b
0x0b94…0bc6 at002c = ╱45╱E╱ // 0xbc0 @0x2c
0x0b94…0bc6 at002d = ╱44╱D╱ // 0xbc1 @0x2d
0x0b94…0bc6 at002e = ╱49╱I╱ // 0xbc2 @0x2e
0x0b94…0bc6 at002f = ╱54╱T╱ // 0xbc3 @0x2f
0x0b94…0bc6 at0030 = ╱22╱"╱ // 0xbc4 @0x30
0x0b94…0bc6 at0031 = EOL // 0xbc5 @0x31
0x0b94…0bc6 }
0x0bc6…0bf8 a1e6 00930 LET EGENKA $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "EGENKA"
0x0bc6…0bf8 LineComal80 {
0x0bc6…0bf8 ptr = 0xa1e6 // 0xbc6 @0x0
0x0bc6…0bf8 lno = 0x03a2 // 0xbc8 @0x2
0x0bc6…0bf8 at0004 = ╱86╱ LET ╱ // 0xbca @0x4
0x0bc6…0bf8 at0005 = ╱45╱E╱ // 0xbcb @0x5
0x0bc6…0bf8 at0006 = ╱47╱G╱ // 0xbcc @0x6
0x0bc6…0bf8 at0007 = ╱45╱E╱ // 0xbcd @0x7
0x0bc6…0bf8 at0008 = ╱4e╱N╱ // 0xbce @0x8
0x0bc6…0bf8 at0009 = ╱4b╱K╱ // 0xbcf @0x9
0x0bc6…0bf8 at000a = ╱41╱A╱ // 0xbd0 @0xa
0x0bc6…0bf8 at000b = ╱ef╱ $ ╱ // 0xbd1 @0xb
0x0bc6…0bf8 at000c = ╱f0╱ := ╱ // 0xbd2 @0xc
0x0bc6…0bf8 at000d = ╱44╱D╱ // 0xbd3 @0xd
0x0bc6…0bf8 at000e = ╱41╱A╱ // 0xbd4 @0xe
0x0bc6…0bf8 at000f = ╱54╱T╱ // 0xbd5 @0xf
0x0bc6…0bf8 at0010 = ╱41╱A╱ // 0xbd6 @0x10
0x0bc6…0bf8 at0011 = ╱46╱F╱ // 0xbd7 @0x11
0x0bc6…0bf8 at0012 = ╱4c╱L╱ // 0xbd8 @0x12
0x0bc6…0bf8 at0013 = ╱ef╱ $ ╱ // 0xbd9 @0x13
0x0bc6…0bf8 at0014 = ╱eb╱ + ╱ // 0xbda @0x14
0x0bc6…0bf8 at0015 = ╱22╱"╱ // 0xbdb @0x15
0x0bc6…0bf8 at0016 = ╱3a╱:╱ // 0xbdc @0x16
0x0bc6…0bf8 at0017 = ╱22╱"╱ // 0xbdd @0x17
0x0bc6…0bf8 at0018 = ╱eb╱ + ╱ // 0xbde @0x18
0x0bc6…0bf8 at0019 = ╱53╱S╱ // 0xbdf @0x19
0x0bc6…0bf8 at001a = ╱5f╱_╱ // 0xbe0 @0x1a
0x0bc6…0bf8 at001b = ╱4b╱K╱ // 0xbe1 @0x1b
0x0bc6…0bf8 at001c = ╱4f╱O╱ // 0xbe2 @0x1c
0x0bc6…0bf8 at001d = ╱44╱D╱ // 0xbe3 @0x1d
0x0bc6…0bf8 at001e = ╱45╱E╱ // 0xbe4 @0x1e
0x0bc6…0bf8 at001f = ╱ef╱ $ ╱ // 0xbe5 @0x1f
0x0bc6…0bf8 at0020 = ╱eb╱ + ╱ // 0xbe6 @0x20
0x0bc6…0bf8 at0021 = ╱54╱T╱ // 0xbe7 @0x21
0x0bc6…0bf8 at0022 = ╱5f╱_╱ // 0xbe8 @0x22
0x0bc6…0bf8 at0023 = ╱4b╱K╱ // 0xbe9 @0x23
0x0bc6…0bf8 at0024 = ╱4f╱O╱ // 0xbea @0x24
0x0bc6…0bf8 at0025 = ╱44╱D╱ // 0xbeb @0x25
0x0bc6…0bf8 at0026 = ╱45╱E╱ // 0xbec @0x26
0x0bc6…0bf8 at0027 = ╱ef╱ $ ╱ // 0xbed @0x27
0x0bc6…0bf8 at0028 = ╱eb╱ + ╱ // 0xbee @0x28
0x0bc6…0bf8 at0029 = ╱22╱"╱ // 0xbef @0x29
0x0bc6…0bf8 at002a = ╱45╱E╱ // 0xbf0 @0x2a
0x0bc6…0bf8 at002b = ╱47╱G╱ // 0xbf1 @0x2b
0x0bc6…0bf8 at002c = ╱45╱E╱ // 0xbf2 @0x2c
0x0bc6…0bf8 at002d = ╱4e╱N╱ // 0xbf3 @0x2d
0x0bc6…0bf8 at002e = ╱4b╱K╱ // 0xbf4 @0x2e
0x0bc6…0bf8 at002f = ╱41╱A╱ // 0xbf5 @0x2f
0x0bc6…0bf8 at0030 = ╱22╱"╱ // 0xbf6 @0x30
0x0bc6…0bf8 at0031 = EOL // 0xbf7 @0x31
0x0bc6…0bf8 }
0x0bf8…0c2a a218 00780 LET DRIFT\ $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "DRIFT\"
0x0bf8…0c2a LineComal80 {
0x0bf8…0c2a ptr = 0xa218 // 0xbf8 @0x0
0x0bf8…0c2a lno = 0x030c // 0xbfa @0x2
0x0bf8…0c2a at0004 = ╱86╱ LET ╱ // 0xbfc @0x4
0x0bf8…0c2a at0005 = ╱44╱D╱ // 0xbfd @0x5
0x0bf8…0c2a at0006 = ╱52╱R╱ // 0xbfe @0x6
0x0bf8…0c2a at0007 = ╱49╱I╱ // 0xbff @0x7
0x0bf8…0c2a at0008 = ╱46╱F╱ // 0xc00 @0x8
0x0bf8…0c2a at0009 = ╱54╱T╱ // 0xc01 @0x9
0x0bf8…0c2a at000a = ╱5c╱\╱ // 0xc02 @0xa
0x0bf8…0c2a at000b = ╱ef╱ $ ╱ // 0xc03 @0xb
0x0bf8…0c2a at000c = ╱f0╱ := ╱ // 0xc04 @0xc
0x0bf8…0c2a at000d = ╱44╱D╱ // 0xc05 @0xd
0x0bf8…0c2a at000e = ╱41╱A╱ // 0xc06 @0xe
0x0bf8…0c2a at000f = ╱54╱T╱ // 0xc07 @0xf
0x0bf8…0c2a at0010 = ╱41╱A╱ // 0xc08 @0x10
0x0bf8…0c2a at0011 = ╱46╱F╱ // 0xc09 @0x11
0x0bf8…0c2a at0012 = ╱4c╱L╱ // 0xc0a @0x12
0x0bf8…0c2a at0013 = ╱ef╱ $ ╱ // 0xc0b @0x13
0x0bf8…0c2a at0014 = ╱eb╱ + ╱ // 0xc0c @0x14
0x0bf8…0c2a at0015 = ╱22╱"╱ // 0xc0d @0x15
0x0bf8…0c2a at0016 = ╱3a╱:╱ // 0xc0e @0x16
0x0bf8…0c2a at0017 = ╱22╱"╱ // 0xc0f @0x17
0x0bf8…0c2a at0018 = ╱eb╱ + ╱ // 0xc10 @0x18
0x0bf8…0c2a at0019 = ╱53╱S╱ // 0xc11 @0x19
0x0bf8…0c2a at001a = ╱5f╱_╱ // 0xc12 @0x1a
0x0bf8…0c2a at001b = ╱4b╱K╱ // 0xc13 @0x1b
0x0bf8…0c2a at001c = ╱4f╱O╱ // 0xc14 @0x1c
0x0bf8…0c2a at001d = ╱44╱D╱ // 0xc15 @0x1d
0x0bf8…0c2a at001e = ╱45╱E╱ // 0xc16 @0x1e
0x0bf8…0c2a at001f = ╱ef╱ $ ╱ // 0xc17 @0x1f
0x0bf8…0c2a at0020 = ╱eb╱ + ╱ // 0xc18 @0x20
0x0bf8…0c2a at0021 = ╱54╱T╱ // 0xc19 @0x21
0x0bf8…0c2a at0022 = ╱5f╱_╱ // 0xc1a @0x22
0x0bf8…0c2a at0023 = ╱4b╱K╱ // 0xc1b @0x23
0x0bf8…0c2a at0024 = ╱4f╱O╱ // 0xc1c @0x24
0x0bf8…0c2a at0025 = ╱44╱D╱ // 0xc1d @0x25
0x0bf8…0c2a at0026 = ╱45╱E╱ // 0xc1e @0x26
0x0bf8…0c2a at0027 = ╱ef╱ $ ╱ // 0xc1f @0x27
0x0bf8…0c2a at0028 = ╱eb╱ + ╱ // 0xc20 @0x28
0x0bf8…0c2a at0029 = ╱22╱"╱ // 0xc21 @0x29
0x0bf8…0c2a at002a = ╱44╱D╱ // 0xc22 @0x2a
0x0bf8…0c2a at002b = ╱52╱R╱ // 0xc23 @0x2b
0x0bf8…0c2a at002c = ╱49╱I╱ // 0xc24 @0x2c
0x0bf8…0c2a at002d = ╱46╱F╱ // 0xc25 @0x2d
0x0bf8…0c2a at002e = ╱54╱T╱ // 0xc26 @0x2e
0x0bf8…0c2a at002f = ╱5c╱\╱ // 0xc27 @0x2f
0x0bf8…0c2a at0030 = ╱22╱"╱ // 0xc28 @0x30
0x0bf8…0c2a at0031 = EOL // 0xc29 @0x31
0x0bf8…0c2a }
0x0c2a…0c5c a24a 00790 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
0x0c2a…0c5c LineComal80 {
0x0c2a…0c5c ptr = 0xa24a // 0xc2a @0x0
0x0c2a…0c5c lno = 0x0316 // 0xc2c @0x2
0x0c2a…0c5c at0004 = ╱86╱ LET ╱ // 0xc2e @0x4
0x0c2a…0c5c at0005 = ╱4b╱K╱ // 0xc2f @0x5
0x0c2a…0c5c at0006 = ╱54╱T╱ // 0xc30 @0x6
0x0c2a…0c5c at0007 = ╱4f╱O╱ // 0xc31 @0x7
0x0c2a…0c5c at0008 = ╱49╱I╱ // 0xc32 @0x8
0x0c2a…0c5c at0009 = ╱44╱D╱ // 0xc33 @0x9
0x0c2a…0c5c at000a = ╱58╱X╱ // 0xc34 @0xa
0x0c2a…0c5c at000b = ╱ef╱ $ ╱ // 0xc35 @0xb
0x0c2a…0c5c at000c = ╱f0╱ := ╱ // 0xc36 @0xc
0x0c2a…0c5c at000d = ╱44╱D╱ // 0xc37 @0xd
0x0c2a…0c5c at000e = ╱41╱A╱ // 0xc38 @0xe
0x0c2a…0c5c at000f = ╱54╱T╱ // 0xc39 @0xf
0x0c2a…0c5c at0010 = ╱41╱A╱ // 0xc3a @0x10
0x0c2a…0c5c at0011 = ╱46╱F╱ // 0xc3b @0x11
0x0c2a…0c5c at0012 = ╱4c╱L╱ // 0xc3c @0x12
0x0c2a…0c5c at0013 = ╱ef╱ $ ╱ // 0xc3d @0x13
0x0c2a…0c5c at0014 = ╱eb╱ + ╱ // 0xc3e @0x14
0x0c2a…0c5c at0015 = ╱22╱"╱ // 0xc3f @0x15
0x0c2a…0c5c at0016 = ╱3a╱:╱ // 0xc40 @0x16
0x0c2a…0c5c at0017 = ╱22╱"╱ // 0xc41 @0x17
0x0c2a…0c5c at0018 = ╱eb╱ + ╱ // 0xc42 @0x18
0x0c2a…0c5c at0019 = ╱53╱S╱ // 0xc43 @0x19
0x0c2a…0c5c at001a = ╱5f╱_╱ // 0xc44 @0x1a
0x0c2a…0c5c at001b = ╱4b╱K╱ // 0xc45 @0x1b
0x0c2a…0c5c at001c = ╱4f╱O╱ // 0xc46 @0x1c
0x0c2a…0c5c at001d = ╱44╱D╱ // 0xc47 @0x1d
0x0c2a…0c5c at001e = ╱45╱E╱ // 0xc48 @0x1e
0x0c2a…0c5c at001f = ╱ef╱ $ ╱ // 0xc49 @0x1f
0x0c2a…0c5c at0020 = ╱eb╱ + ╱ // 0xc4a @0x20
0x0c2a…0c5c at0021 = ╱54╱T╱ // 0xc4b @0x21
0x0c2a…0c5c at0022 = ╱5f╱_╱ // 0xc4c @0x22
0x0c2a…0c5c at0023 = ╱4b╱K╱ // 0xc4d @0x23
0x0c2a…0c5c at0024 = ╱4f╱O╱ // 0xc4e @0x24
0x0c2a…0c5c at0025 = ╱44╱D╱ // 0xc4f @0x25
0x0c2a…0c5c at0026 = ╱45╱E╱ // 0xc50 @0x26
0x0c2a…0c5c at0027 = ╱ef╱ $ ╱ // 0xc51 @0x27
0x0c2a…0c5c at0028 = ╱eb╱ + ╱ // 0xc52 @0x28
0x0c2a…0c5c at0029 = ╱22╱"╱ // 0xc53 @0x29
0x0c2a…0c5c at002a = ╱4b╱K╱ // 0xc54 @0x2a
0x0c2a…0c5c at002b = ╱54╱T╱ // 0xc55 @0x2b
0x0c2a…0c5c at002c = ╱4f╱O╱ // 0xc56 @0x2c
0x0c2a…0c5c at002d = ╱49╱I╱ // 0xc57 @0x2d
0x0c2a…0c5c at002e = ╱44╱D╱ // 0xc58 @0x2e
0x0c2a…0c5c at002f = ╱58╱X╱ // 0xc59 @0x2f
0x0c2a…0c5c at0030 = ╱22╱"╱ // 0xc5a @0x30
0x0c2a…0c5c at0031 = EOL // 0xc5b @0x31
0x0c2a…0c5c }
0x0c5c…0c8c a27a 00800 LET KONTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KONTO"
0x0c5c…0c8c LineComal80 {
0x0c5c…0c8c ptr = 0xa27a // 0xc5c @0x0
0x0c5c…0c8c lno = 0x0320 // 0xc5e @0x2
0x0c5c…0c8c at0004 = ╱86╱ LET ╱ // 0xc60 @0x4
0x0c5c…0c8c at0005 = ╱4b╱K╱ // 0xc61 @0x5
0x0c5c…0c8c at0006 = ╱4f╱O╱ // 0xc62 @0x6
0x0c5c…0c8c at0007 = ╱4e╱N╱ // 0xc63 @0x7
0x0c5c…0c8c at0008 = ╱54╱T╱ // 0xc64 @0x8
0x0c5c…0c8c at0009 = ╱4f╱O╱ // 0xc65 @0x9
0x0c5c…0c8c at000a = ╱ef╱ $ ╱ // 0xc66 @0xa
0x0c5c…0c8c at000b = ╱f0╱ := ╱ // 0xc67 @0xb
0x0c5c…0c8c at000c = ╱44╱D╱ // 0xc68 @0xc
0x0c5c…0c8c at000d = ╱41╱A╱ // 0xc69 @0xd
0x0c5c…0c8c at000e = ╱54╱T╱ // 0xc6a @0xe
0x0c5c…0c8c at000f = ╱41╱A╱ // 0xc6b @0xf
0x0c5c…0c8c at0010 = ╱46╱F╱ // 0xc6c @0x10
0x0c5c…0c8c at0011 = ╱4c╱L╱ // 0xc6d @0x11
0x0c5c…0c8c at0012 = ╱ef╱ $ ╱ // 0xc6e @0x12
0x0c5c…0c8c at0013 = ╱eb╱ + ╱ // 0xc6f @0x13
0x0c5c…0c8c at0014 = ╱22╱"╱ // 0xc70 @0x14
0x0c5c…0c8c at0015 = ╱3a╱:╱ // 0xc71 @0x15
0x0c5c…0c8c at0016 = ╱22╱"╱ // 0xc72 @0x16
0x0c5c…0c8c at0017 = ╱eb╱ + ╱ // 0xc73 @0x17
0x0c5c…0c8c at0018 = ╱53╱S╱ // 0xc74 @0x18
0x0c5c…0c8c at0019 = ╱5f╱_╱ // 0xc75 @0x19
0x0c5c…0c8c at001a = ╱4b╱K╱ // 0xc76 @0x1a
0x0c5c…0c8c at001b = ╱4f╱O╱ // 0xc77 @0x1b
0x0c5c…0c8c at001c = ╱44╱D╱ // 0xc78 @0x1c
0x0c5c…0c8c at001d = ╱45╱E╱ // 0xc79 @0x1d
0x0c5c…0c8c at001e = ╱ef╱ $ ╱ // 0xc7a @0x1e
0x0c5c…0c8c at001f = ╱eb╱ + ╱ // 0xc7b @0x1f
0x0c5c…0c8c at0020 = ╱54╱T╱ // 0xc7c @0x20
0x0c5c…0c8c at0021 = ╱5f╱_╱ // 0xc7d @0x21
0x0c5c…0c8c at0022 = ╱4b╱K╱ // 0xc7e @0x22
0x0c5c…0c8c at0023 = ╱4f╱O╱ // 0xc7f @0x23
0x0c5c…0c8c at0024 = ╱44╱D╱ // 0xc80 @0x24
0x0c5c…0c8c at0025 = ╱45╱E╱ // 0xc81 @0x25
0x0c5c…0c8c at0026 = ╱ef╱ $ ╱ // 0xc82 @0x26
0x0c5c…0c8c at0027 = ╱eb╱ + ╱ // 0xc83 @0x27
0x0c5c…0c8c at0028 = ╱22╱"╱ // 0xc84 @0x28
0x0c5c…0c8c at0029 = ╱4b╱K╱ // 0xc85 @0x29
0x0c5c…0c8c at002a = ╱4f╱O╱ // 0xc86 @0x2a
0x0c5c…0c8c at002b = ╱4e╱N╱ // 0xc87 @0x2b
0x0c5c…0c8c at002c = ╱54╱T╱ // 0xc88 @0x2c
0x0c5c…0c8c at002d = ╱4f╱O╱ // 0xc89 @0x2d
0x0c5c…0c8c at002e = ╱22╱"╱ // 0xc8a @0x2e
0x0c5c…0c8c at002f = EOL // 0xc8b @0x2f
0x0c5c…0c8c }
0x0c8c…0ca6 a294 00810 EXEC OPENFIL ( DRIFT\ $ , "R" )
0x0c8c…0ca6 LineComal80 {
0x0c8c…0ca6 ptr = 0xa294 // 0xc8c @0x0
0x0c8c…0ca6 lno = 0x032a // 0xc8e @0x2
0x0c8c…0ca6 at0004 = ╱9d╱ EXEC ╱ // 0xc90 @0x4
0x0c8c…0ca6 at0005 = ╱4f╱O╱ // 0xc91 @0x5
0x0c8c…0ca6 at0006 = ╱50╱P╱ // 0xc92 @0x6
0x0c8c…0ca6 at0007 = ╱45╱E╱ // 0xc93 @0x7
0x0c8c…0ca6 at0008 = ╱4e╱N╱ // 0xc94 @0x8
0x0c8c…0ca6 at0009 = ╱46╱F╱ // 0xc95 @0x9
0x0c8c…0ca6 at000a = ╱49╱I╱ // 0xc96 @0xa
0x0c8c…0ca6 at000b = ╱4c╱L╱ // 0xc97 @0xb
0x0c8c…0ca6 at000c = ╱ed╱ ( ╱ // 0xc98 @0xc
0x0c8c…0ca6 at000d = ╱44╱D╱ // 0xc99 @0xd
0x0c8c…0ca6 at000e = ╱52╱R╱ // 0xc9a @0xe
0x0c8c…0ca6 at000f = ╱49╱I╱ // 0xc9b @0xf
0x0c8c…0ca6 at0010 = ╱46╱F╱ // 0xc9c @0x10
0x0c8c…0ca6 at0011 = ╱54╱T╱ // 0xc9d @0x11
0x0c8c…0ca6 at0012 = ╱5c╱\╱ // 0xc9e @0x12
0x0c8c…0ca6 at0013 = ╱ef╱ $ ╱ // 0xc9f @0x13
0x0c8c…0ca6 at0014 = ╱ec╱ , ╱ // 0xca0 @0x14
0x0c8c…0ca6 at0015 = ╱22╱"╱ // 0xca1 @0x15
0x0c8c…0ca6 at0016 = ╱52╱R╱ // 0xca2 @0x16
0x0c8c…0ca6 at0017 = ╱22╱"╱ // 0xca3 @0x17
0x0c8c…0ca6 at0018 = ╱ee╱ ) ╱ // 0xca4 @0x18
0x0c8c…0ca6 at0019 = EOL // 0xca5 @0x19
0x0c8c…0ca6 }
0x0ca6…0cc2 a2b0 00820 GET DRIFT\ $ , 1 : PRIMODAT $
0x0ca6…0cc2 LineComal80 {
0x0ca6…0cc2 ptr = 0xa2b0 // 0xca6 @0x0
0x0ca6…0cc2 lno = 0x0334 // 0xca8 @0x2
0x0ca6…0cc2 at0004 = ╱a9╱ GET ╱ // 0xcaa @0x4
0x0ca6…0cc2 at0005 = ╱44╱D╱ // 0xcab @0x5
0x0ca6…0cc2 at0006 = ╱52╱R╱ // 0xcac @0x6
0x0ca6…0cc2 at0007 = ╱49╱I╱ // 0xcad @0x7
0x0ca6…0cc2 at0008 = ╱46╱F╱ // 0xcae @0x8
0x0ca6…0cc2 at0009 = ╱54╱T╱ // 0xcaf @0x9
0x0ca6…0cc2 at000a = ╱5c╱\╱ // 0xcb0 @0xa
0x0ca6…0cc2 at000b = ╱ef╱ $ ╱ // 0xcb1 @0xb
0x0ca6…0cc2 at000c = ╱ec╱ , ╱ // 0xcb2 @0xc
0x0ca6…0cc2 at000d = ╱31╱1╱ // 0xcb3 @0xd
0x0ca6…0cc2 at000e = ╱f20100╱ // 0xcb4 @0xe
0x0ca6…0cc2 at0011 = ╱f1╱ : ╱ // 0xcb7 @0x11
0x0ca6…0cc2 at0012 = ╱50╱P╱ // 0xcb8 @0x12
0x0ca6…0cc2 at0013 = ╱52╱R╱ // 0xcb9 @0x13
0x0ca6…0cc2 at0014 = ╱49╱I╱ // 0xcba @0x14
0x0ca6…0cc2 at0015 = ╱4d╱M╱ // 0xcbb @0x15
0x0ca6…0cc2 at0016 = ╱4f╱O╱ // 0xcbc @0x16
0x0ca6…0cc2 at0017 = ╱44╱D╱ // 0xcbd @0x17
0x0ca6…0cc2 at0018 = ╱41╱A╱ // 0xcbe @0x18
0x0ca6…0cc2 at0019 = ╱54╱T╱ // 0xcbf @0x19
0x0ca6…0cc2 at001a = ╱ef╱ $ ╱ // 0xcc0 @0x1a
0x0ca6…0cc2 at001b = EOL // 0xcc1 @0x1b
0x0ca6…0cc2 }
0x0cc2…0cdc a2ca 00830 EXEC OPENFIL ( KTOIDX $ , "R" )
0x0cc2…0cdc LineComal80 {
0x0cc2…0cdc ptr = 0xa2ca // 0xcc2 @0x0
0x0cc2…0cdc lno = 0x033e // 0xcc4 @0x2
0x0cc2…0cdc at0004 = ╱9d╱ EXEC ╱ // 0xcc6 @0x4
0x0cc2…0cdc at0005 = ╱4f╱O╱ // 0xcc7 @0x5
0x0cc2…0cdc at0006 = ╱50╱P╱ // 0xcc8 @0x6
0x0cc2…0cdc at0007 = ╱45╱E╱ // 0xcc9 @0x7
0x0cc2…0cdc at0008 = ╱4e╱N╱ // 0xcca @0x8
0x0cc2…0cdc at0009 = ╱46╱F╱ // 0xccb @0x9
0x0cc2…0cdc at000a = ╱49╱I╱ // 0xccc @0xa
0x0cc2…0cdc at000b = ╱4c╱L╱ // 0xccd @0xb
0x0cc2…0cdc at000c = ╱ed╱ ( ╱ // 0xcce @0xc
0x0cc2…0cdc at000d = ╱4b╱K╱ // 0xccf @0xd
0x0cc2…0cdc at000e = ╱54╱T╱ // 0xcd0 @0xe
0x0cc2…0cdc at000f = ╱4f╱O╱ // 0xcd1 @0xf
0x0cc2…0cdc at0010 = ╱49╱I╱ // 0xcd2 @0x10
0x0cc2…0cdc at0011 = ╱44╱D╱ // 0xcd3 @0x11
0x0cc2…0cdc at0012 = ╱58╱X╱ // 0xcd4 @0x12
0x0cc2…0cdc at0013 = ╱ef╱ $ ╱ // 0xcd5 @0x13
0x0cc2…0cdc at0014 = ╱ec╱ , ╱ // 0xcd6 @0x14
0x0cc2…0cdc at0015 = ╱22╱"╱ // 0xcd7 @0x15
0x0cc2…0cdc at0016 = ╱52╱R╱ // 0xcd8 @0x16
0x0cc2…0cdc at0017 = ╱22╱"╱ // 0xcd9 @0x17
0x0cc2…0cdc at0018 = ╱ee╱ ) ╱ // 0xcda @0x18
0x0cc2…0cdc at0019 = EOL // 0xcdb @0x19
0x0cc2…0cdc }
0x0cdc…0cf5 a2e3 00840 EXEC OPENFIL ( KONTO $ , "R" )
0x0cdc…0cf5 LineComal80 {
0x0cdc…0cf5 ptr = 0xa2e3 // 0xcdc @0x0
0x0cdc…0cf5 lno = 0x0348 // 0xcde @0x2
0x0cdc…0cf5 at0004 = ╱9d╱ EXEC ╱ // 0xce0 @0x4
0x0cdc…0cf5 at0005 = ╱4f╱O╱ // 0xce1 @0x5
0x0cdc…0cf5 at0006 = ╱50╱P╱ // 0xce2 @0x6
0x0cdc…0cf5 at0007 = ╱45╱E╱ // 0xce3 @0x7
0x0cdc…0cf5 at0008 = ╱4e╱N╱ // 0xce4 @0x8
0x0cdc…0cf5 at0009 = ╱46╱F╱ // 0xce5 @0x9
0x0cdc…0cf5 at000a = ╱49╱I╱ // 0xce6 @0xa
0x0cdc…0cf5 at000b = ╱4c╱L╱ // 0xce7 @0xb
0x0cdc…0cf5 at000c = ╱ed╱ ( ╱ // 0xce8 @0xc
0x0cdc…0cf5 at000d = ╱4b╱K╱ // 0xce9 @0xd
0x0cdc…0cf5 at000e = ╱4f╱O╱ // 0xcea @0xe
0x0cdc…0cf5 at000f = ╱4e╱N╱ // 0xceb @0xf
0x0cdc…0cf5 at0010 = ╱54╱T╱ // 0xcec @0x10
0x0cdc…0cf5 at0011 = ╱4f╱O╱ // 0xced @0x11
0x0cdc…0cf5 at0012 = ╱ef╱ $ ╱ // 0xcee @0x12
0x0cdc…0cf5 at0013 = ╱ec╱ , ╱ // 0xcef @0x13
0x0cdc…0cf5 at0014 = ╱22╱"╱ // 0xcf0 @0x14
0x0cdc…0cf5 at0015 = ╱52╱R╱ // 0xcf1 @0x15
0x0cdc…0cf5 at0016 = ╱22╱"╱ // 0xcf2 @0x16
0x0cdc…0cf5 at0017 = ╱ee╱ ) ╱ // 0xcf3 @0x17
0x0cdc…0cf5 at0018 = EOL // 0xcf4 @0x18
0x0cdc…0cf5 }
0x0cf5…0d02 a4e0 00850 ENDPROC INITIER
0x0cf5…0d02 LineComal80 {
0x0cf5…0d02 ptr = 0xa4e0 // 0xcf5 @0x0
0x0cf5…0d02 lno = 0x0352 // 0xcf7 @0x2
0x0cf5…0d02 at0004 = ╱9f╱ ENDPROC ╱ // 0xcf9 @0x4
0x0cf5…0d02 at0005 = ╱49╱I╱ // 0xcfa @0x5
0x0cf5…0d02 at0006 = ╱4e╱N╱ // 0xcfb @0x6
0x0cf5…0d02 at0007 = ╱49╱I╱ // 0xcfc @0x7
0x0cf5…0d02 at0008 = ╱54╱T╱ // 0xcfd @0x8
0x0cf5…0d02 at0009 = ╱49╱I╱ // 0xcfe @0x9
0x0cf5…0d02 at000a = ╱45╱E╱ // 0xcff @0xa
0x0cf5…0d02 at000b = ╱52╱R╱ // 0xd00 @0xb
0x0cf5…0d02 at000c = EOL // 0xd01 @0xc
0x0cf5…0d02 }
0x0d02…0d07 a2f5 01020
0x0d02…0d07 LineComal80 {
0x0d02…0d07 ptr = 0xa2f5 // 0xd02 @0x0
0x0d02…0d07 lno = 0x03fc // 0xd04 @0x2
0x0d02…0d07 at0004 = EOL // 0xd06 @0x4
0x0d02…0d07 }
0x0d07…0d15 a303 01030 PROC OPSUMER
0x0d07…0d15 LineComal80 {
0x0d07…0d15 ptr = 0xa303 // 0xd07 @0x0
0x0d07…0d15 lno = 0x0406 // 0xd09 @0x2
0x0d07…0d15 at0004 = ╱9e00╱ PROC ╱ // 0xd0b @0x4
0x0d07…0d15 at0006 = ╱4f╱O╱ // 0xd0d @0x6
0x0d07…0d15 at0007 = ╱50╱P╱ // 0xd0e @0x7
0x0d07…0d15 at0008 = ╱53╱S╱ // 0xd0f @0x8
0x0d07…0d15 at0009 = ╱55╱U╱ // 0xd10 @0x9
0x0d07…0d15 at000a = ╱4d╱M╱ // 0xd11 @0xa
0x0d07…0d15 at000b = ╱45╱E╱ // 0xd12 @0xb
0x0d07…0d15 at000c = ╱52╱R╱ // 0xd13 @0xc
0x0d07…0d15 at000d = EOL // 0xd14 @0xd
0x0d07…0d15 }
0x0d15…0d2d a31b 01040 EXEC SAMMENT[L ( OMS[TN $ )
0x0d15…0d2d LineComal80 {
0x0d15…0d2d ptr = 0xa31b // 0xd15 @0x0
0x0d15…0d2d lno = 0x0410 // 0xd17 @0x2
0x0d15…0d2d at0004 = ╱9d╱ EXEC ╱ // 0xd19 @0x4
0x0d15…0d2d at0005 = ╱53╱S╱ // 0xd1a @0x5
0x0d15…0d2d at0006 = ╱41╱A╱ // 0xd1b @0x6
0x0d15…0d2d at0007 = ╱4d╱M╱ // 0xd1c @0x7
0x0d15…0d2d at0008 = ╱4d╱M╱ // 0xd1d @0x8
0x0d15…0d2d at0009 = ╱45╱E╱ // 0xd1e @0x9
0x0d15…0d2d at000a = ╱4e╱N╱ // 0xd1f @0xa
0x0d15…0d2d at000b = ╱54╱T╱ // 0xd20 @0xb
0x0d15…0d2d at000c = ╱5b╱[╱ // 0xd21 @0xc
0x0d15…0d2d at000d = ╱4c╱L╱ // 0xd22 @0xd
0x0d15…0d2d at000e = ╱ed╱ ( ╱ // 0xd23 @0xe
0x0d15…0d2d at000f = ╱4f╱O╱ // 0xd24 @0xf
0x0d15…0d2d at0010 = ╱4d╱M╱ // 0xd25 @0x10
0x0d15…0d2d at0011 = ╱53╱S╱ // 0xd26 @0x11
0x0d15…0d2d at0012 = ╱5b╱[╱ // 0xd27 @0x12
0x0d15…0d2d at0013 = ╱54╱T╱ // 0xd28 @0x13
0x0d15…0d2d at0014 = ╱4e╱N╱ // 0xd29 @0x14
0x0d15…0d2d at0015 = ╱ef╱ $ ╱ // 0xd2a @0x15
0x0d15…0d2d at0016 = ╱ee╱ ) ╱ // 0xd2b @0x16
0x0d15…0d2d at0017 = EOL // 0xd2c @0x17
0x0d15…0d2d }
0x0d2d…0d41 a32f 01050 LET S_OMS[TN := SALDO
0x0d2d…0d41 LineComal80 {
0x0d2d…0d41 ptr = 0xa32f // 0xd2d @0x0
0x0d2d…0d41 lno = 0x041a // 0xd2f @0x2
0x0d2d…0d41 at0004 = ╱86╱ LET ╱ // 0xd31 @0x4
0x0d2d…0d41 at0005 = ╱53╱S╱ // 0xd32 @0x5
0x0d2d…0d41 at0006 = ╱5f╱_╱ // 0xd33 @0x6
0x0d2d…0d41 at0007 = ╱4f╱O╱ // 0xd34 @0x7
0x0d2d…0d41 at0008 = ╱4d╱M╱ // 0xd35 @0x8
0x0d2d…0d41 at0009 = ╱53╱S╱ // 0xd36 @0x9
0x0d2d…0d41 at000a = ╱5b╱[╱ // 0xd37 @0xa
0x0d2d…0d41 at000b = ╱54╱T╱ // 0xd38 @0xb
0x0d2d…0d41 at000c = ╱4e╱N╱ // 0xd39 @0xc
0x0d2d…0d41 at000d = ╱f0╱ := ╱ // 0xd3a @0xd
0x0d2d…0d41 at000e = ╱53╱S╱ // 0xd3b @0xe
0x0d2d…0d41 at000f = ╱41╱A╱ // 0xd3c @0xf
0x0d2d…0d41 at0010 = ╱4c╱L╱ // 0xd3d @0x10
0x0d2d…0d41 at0011 = ╱44╱D╱ // 0xd3e @0x11
0x0d2d…0d41 at0012 = ╱4f╱O╱ // 0xd3f @0x12
0x0d2d…0d41 at0013 = EOL // 0xd40 @0x13
0x0d2d…0d41 }
0x0d41…0d59 a347 01060 EXEC SAMMENT[L ( VAREFO $ )
0x0d41…0d59 LineComal80 {
0x0d41…0d59 ptr = 0xa347 // 0xd41 @0x0
0x0d41…0d59 lno = 0x0424 // 0xd43 @0x2
0x0d41…0d59 at0004 = ╱9d╱ EXEC ╱ // 0xd45 @0x4
0x0d41…0d59 at0005 = ╱53╱S╱ // 0xd46 @0x5
0x0d41…0d59 at0006 = ╱41╱A╱ // 0xd47 @0x6
0x0d41…0d59 at0007 = ╱4d╱M╱ // 0xd48 @0x7
0x0d41…0d59 at0008 = ╱4d╱M╱ // 0xd49 @0x8
0x0d41…0d59 at0009 = ╱45╱E╱ // 0xd4a @0x9
0x0d41…0d59 at000a = ╱4e╱N╱ // 0xd4b @0xa
0x0d41…0d59 at000b = ╱54╱T╱ // 0xd4c @0xb
0x0d41…0d59 at000c = ╱5b╱[╱ // 0xd4d @0xc
0x0d41…0d59 at000d = ╱4c╱L╱ // 0xd4e @0xd
0x0d41…0d59 at000e = ╱ed╱ ( ╱ // 0xd4f @0xe
0x0d41…0d59 at000f = ╱56╱V╱ // 0xd50 @0xf
0x0d41…0d59 at0010 = ╱41╱A╱ // 0xd51 @0x10
0x0d41…0d59 at0011 = ╱52╱R╱ // 0xd52 @0x11
0x0d41…0d59 at0012 = ╱45╱E╱ // 0xd53 @0x12
0x0d41…0d59 at0013 = ╱46╱F╱ // 0xd54 @0x13
0x0d41…0d59 at0014 = ╱4f╱O╱ // 0xd55 @0x14
0x0d41…0d59 at0015 = ╱ef╱ $ ╱ // 0xd56 @0x15
0x0d41…0d59 at0016 = ╱ee╱ ) ╱ // 0xd57 @0x16
0x0d41…0d59 at0017 = EOL // 0xd58 @0x17
0x0d41…0d59 }
0x0d59…0d6d a35b 01070 LET S_VAREFO := SALDO
0x0d59…0d6d LineComal80 {
0x0d59…0d6d ptr = 0xa35b // 0xd59 @0x0
0x0d59…0d6d lno = 0x042e // 0xd5b @0x2
0x0d59…0d6d at0004 = ╱86╱ LET ╱ // 0xd5d @0x4
0x0d59…0d6d at0005 = ╱53╱S╱ // 0xd5e @0x5
0x0d59…0d6d at0006 = ╱5f╱_╱ // 0xd5f @0x6
0x0d59…0d6d at0007 = ╱56╱V╱ // 0xd60 @0x7
0x0d59…0d6d at0008 = ╱41╱A╱ // 0xd61 @0x8
0x0d59…0d6d at0009 = ╱52╱R╱ // 0xd62 @0x9
0x0d59…0d6d at000a = ╱45╱E╱ // 0xd63 @0xa
0x0d59…0d6d at000b = ╱46╱F╱ // 0xd64 @0xb
0x0d59…0d6d at000c = ╱4f╱O╱ // 0xd65 @0xc
0x0d59…0d6d at000d = ╱f0╱ := ╱ // 0xd66 @0xd
0x0d59…0d6d at000e = ╱53╱S╱ // 0xd67 @0xe
0x0d59…0d6d at000f = ╱41╱A╱ // 0xd68 @0xf
0x0d59…0d6d at0010 = ╱4c╱L╱ // 0xd69 @0x10
0x0d59…0d6d at0011 = ╱44╱D╱ // 0xd6a @0x11
0x0d59…0d6d at0012 = ╱4f╱O╱ // 0xd6b @0x12
0x0d59…0d6d at0013 = EOL // 0xd6c @0x13
0x0d59…0d6d }
0x0d6d…0d85 a373 01080 EXEC SAMMENT[L ( KAPOMK $ )
0x0d6d…0d85 LineComal80 {
0x0d6d…0d85 ptr = 0xa373 // 0xd6d @0x0
0x0d6d…0d85 lno = 0x0438 // 0xd6f @0x2
0x0d6d…0d85 at0004 = ╱9d╱ EXEC ╱ // 0xd71 @0x4
0x0d6d…0d85 at0005 = ╱53╱S╱ // 0xd72 @0x5
0x0d6d…0d85 at0006 = ╱41╱A╱ // 0xd73 @0x6
0x0d6d…0d85 at0007 = ╱4d╱M╱ // 0xd74 @0x7
0x0d6d…0d85 at0008 = ╱4d╱M╱ // 0xd75 @0x8
0x0d6d…0d85 at0009 = ╱45╱E╱ // 0xd76 @0x9
0x0d6d…0d85 at000a = ╱4e╱N╱ // 0xd77 @0xa
0x0d6d…0d85 at000b = ╱54╱T╱ // 0xd78 @0xb
0x0d6d…0d85 at000c = ╱5b╱[╱ // 0xd79 @0xc
0x0d6d…0d85 at000d = ╱4c╱L╱ // 0xd7a @0xd
0x0d6d…0d85 at000e = ╱ed╱ ( ╱ // 0xd7b @0xe
0x0d6d…0d85 at000f = ╱4b╱K╱ // 0xd7c @0xf
0x0d6d…0d85 at0010 = ╱41╱A╱ // 0xd7d @0x10
0x0d6d…0d85 at0011 = ╱50╱P╱ // 0xd7e @0x11
0x0d6d…0d85 at0012 = ╱4f╱O╱ // 0xd7f @0x12
0x0d6d…0d85 at0013 = ╱4d╱M╱ // 0xd80 @0x13
0x0d6d…0d85 at0014 = ╱4b╱K╱ // 0xd81 @0x14
0x0d6d…0d85 at0015 = ╱ef╱ $ ╱ // 0xd82 @0x15
0x0d6d…0d85 at0016 = ╱ee╱ ) ╱ // 0xd83 @0x16
0x0d6d…0d85 at0017 = EOL // 0xd84 @0x17
0x0d6d…0d85 }
0x0d85…0d99 a387 01090 LET S_KAPOMK := SALDO
0x0d85…0d99 LineComal80 {
0x0d85…0d99 ptr = 0xa387 // 0xd85 @0x0
0x0d85…0d99 lno = 0x0442 // 0xd87 @0x2
0x0d85…0d99 at0004 = ╱86╱ LET ╱ // 0xd89 @0x4
0x0d85…0d99 at0005 = ╱53╱S╱ // 0xd8a @0x5
0x0d85…0d99 at0006 = ╱5f╱_╱ // 0xd8b @0x6
0x0d85…0d99 at0007 = ╱4b╱K╱ // 0xd8c @0x7
0x0d85…0d99 at0008 = ╱41╱A╱ // 0xd8d @0x8
0x0d85…0d99 at0009 = ╱50╱P╱ // 0xd8e @0x9
0x0d85…0d99 at000a = ╱4f╱O╱ // 0xd8f @0xa
0x0d85…0d99 at000b = ╱4d╱M╱ // 0xd90 @0xb
0x0d85…0d99 at000c = ╱4b╱K╱ // 0xd91 @0xc
0x0d85…0d99 at000d = ╱f0╱ := ╱ // 0xd92 @0xd
0x0d85…0d99 at000e = ╱53╱S╱ // 0xd93 @0xe
0x0d85…0d99 at000f = ╱41╱A╱ // 0xd94 @0xf
0x0d85…0d99 at0010 = ╱4c╱L╱ // 0xd95 @0x10
0x0d85…0d99 at0011 = ╱44╱D╱ // 0xd96 @0x11
0x0d85…0d99 at0012 = ╱4f╱O╱ // 0xd97 @0x12
0x0d85…0d99 at0013 = EOL // 0xd98 @0x13
0x0d85…0d99 }
0x0d99…0db1 a39f 01100 EXEC SAMMENT[L ( AFSKRI $ )
0x0d99…0db1 LineComal80 {
0x0d99…0db1 ptr = 0xa39f // 0xd99 @0x0
0x0d99…0db1 lno = 0x044c // 0xd9b @0x2
0x0d99…0db1 at0004 = ╱9d╱ EXEC ╱ // 0xd9d @0x4
0x0d99…0db1 at0005 = ╱53╱S╱ // 0xd9e @0x5
0x0d99…0db1 at0006 = ╱41╱A╱ // 0xd9f @0x6
0x0d99…0db1 at0007 = ╱4d╱M╱ // 0xda0 @0x7
0x0d99…0db1 at0008 = ╱4d╱M╱ // 0xda1 @0x8
0x0d99…0db1 at0009 = ╱45╱E╱ // 0xda2 @0x9
0x0d99…0db1 at000a = ╱4e╱N╱ // 0xda3 @0xa
0x0d99…0db1 at000b = ╱54╱T╱ // 0xda4 @0xb
0x0d99…0db1 at000c = ╱5b╱[╱ // 0xda5 @0xc
0x0d99…0db1 at000d = ╱4c╱L╱ // 0xda6 @0xd
0x0d99…0db1 at000e = ╱ed╱ ( ╱ // 0xda7 @0xe
0x0d99…0db1 at000f = ╱41╱A╱ // 0xda8 @0xf
0x0d99…0db1 at0010 = ╱46╱F╱ // 0xda9 @0x10
0x0d99…0db1 at0011 = ╱53╱S╱ // 0xdaa @0x11
0x0d99…0db1 at0012 = ╱4b╱K╱ // 0xdab @0x12
0x0d99…0db1 at0013 = ╱52╱R╱ // 0xdac @0x13
0x0d99…0db1 at0014 = ╱49╱I╱ // 0xdad @0x14
0x0d99…0db1 at0015 = ╱ef╱ $ ╱ // 0xdae @0x15
0x0d99…0db1 at0016 = ╱ee╱ ) ╱ // 0xdaf @0x16
0x0d99…0db1 at0017 = EOL // 0xdb0 @0x17
0x0d99…0db1 }
0x0db1…0dc5 a3b3 01110 LET S_AFSKRI := SALDO
0x0db1…0dc5 LineComal80 {
0x0db1…0dc5 ptr = 0xa3b3 // 0xdb1 @0x0
0x0db1…0dc5 lno = 0x0456 // 0xdb3 @0x2
0x0db1…0dc5 at0004 = ╱86╱ LET ╱ // 0xdb5 @0x4
0x0db1…0dc5 at0005 = ╱53╱S╱ // 0xdb6 @0x5
0x0db1…0dc5 at0006 = ╱5f╱_╱ // 0xdb7 @0x6
0x0db1…0dc5 at0007 = ╱41╱A╱ // 0xdb8 @0x7
0x0db1…0dc5 at0008 = ╱46╱F╱ // 0xdb9 @0x8
0x0db1…0dc5 at0009 = ╱53╱S╱ // 0xdba @0x9
0x0db1…0dc5 at000a = ╱4b╱K╱ // 0xdbb @0xa
0x0db1…0dc5 at000b = ╱52╱R╱ // 0xdbc @0xb
0x0db1…0dc5 at000c = ╱49╱I╱ // 0xdbd @0xc
0x0db1…0dc5 at000d = ╱f0╱ := ╱ // 0xdbe @0xd
0x0db1…0dc5 at000e = ╱53╱S╱ // 0xdbf @0xe
0x0db1…0dc5 at000f = ╱41╱A╱ // 0xdc0 @0xf
0x0db1…0dc5 at0010 = ╱4c╱L╱ // 0xdc1 @0x10
0x0db1…0dc5 at0011 = ╱44╱D╱ // 0xdc2 @0x11
0x0db1…0dc5 at0012 = ╱4f╱O╱ // 0xdc3 @0x12
0x0db1…0dc5 at0013 = EOL // 0xdc4 @0x13
0x0db1…0dc5 }
0x0dc5…0ddd a3cb 01120 EXEC SAMMENT[L ( RENTEO $ )
0x0dc5…0ddd LineComal80 {
0x0dc5…0ddd ptr = 0xa3cb // 0xdc5 @0x0
0x0dc5…0ddd lno = 0x0460 // 0xdc7 @0x2
0x0dc5…0ddd at0004 = ╱9d╱ EXEC ╱ // 0xdc9 @0x4
0x0dc5…0ddd at0005 = ╱53╱S╱ // 0xdca @0x5
0x0dc5…0ddd at0006 = ╱41╱A╱ // 0xdcb @0x6
0x0dc5…0ddd at0007 = ╱4d╱M╱ // 0xdcc @0x7
0x0dc5…0ddd at0008 = ╱4d╱M╱ // 0xdcd @0x8
0x0dc5…0ddd at0009 = ╱45╱E╱ // 0xdce @0x9
0x0dc5…0ddd at000a = ╱4e╱N╱ // 0xdcf @0xa
0x0dc5…0ddd at000b = ╱54╱T╱ // 0xdd0 @0xb
0x0dc5…0ddd at000c = ╱5b╱[╱ // 0xdd1 @0xc
0x0dc5…0ddd at000d = ╱4c╱L╱ // 0xdd2 @0xd
0x0dc5…0ddd at000e = ╱ed╱ ( ╱ // 0xdd3 @0xe
0x0dc5…0ddd at000f = ╱52╱R╱ // 0xdd4 @0xf
0x0dc5…0ddd at0010 = ╱45╱E╱ // 0xdd5 @0x10
0x0dc5…0ddd at0011 = ╱4e╱N╱ // 0xdd6 @0x11
0x0dc5…0ddd at0012 = ╱54╱T╱ // 0xdd7 @0x12
0x0dc5…0ddd at0013 = ╱45╱E╱ // 0xdd8 @0x13
0x0dc5…0ddd at0014 = ╱4f╱O╱ // 0xdd9 @0x14
0x0dc5…0ddd at0015 = ╱ef╱ $ ╱ // 0xdda @0x15
0x0dc5…0ddd at0016 = ╱ee╱ ) ╱ // 0xddb @0x16
0x0dc5…0ddd at0017 = EOL // 0xddc @0x17
0x0dc5…0ddd }
0x0ddd…0df1 a3df 01130 LET S_RENTEO := SALDO
0x0ddd…0df1 LineComal80 {
0x0ddd…0df1 ptr = 0xa3df // 0xddd @0x0
0x0ddd…0df1 lno = 0x046a // 0xddf @0x2
0x0ddd…0df1 at0004 = ╱86╱ LET ╱ // 0xde1 @0x4
0x0ddd…0df1 at0005 = ╱53╱S╱ // 0xde2 @0x5
0x0ddd…0df1 at0006 = ╱5f╱_╱ // 0xde3 @0x6
0x0ddd…0df1 at0007 = ╱52╱R╱ // 0xde4 @0x7
0x0ddd…0df1 at0008 = ╱45╱E╱ // 0xde5 @0x8
0x0ddd…0df1 at0009 = ╱4e╱N╱ // 0xde6 @0x9
0x0ddd…0df1 at000a = ╱54╱T╱ // 0xde7 @0xa
0x0ddd…0df1 at000b = ╱45╱E╱ // 0xde8 @0xb
0x0ddd…0df1 at000c = ╱4f╱O╱ // 0xde9 @0xc
0x0ddd…0df1 at000d = ╱f0╱ := ╱ // 0xdea @0xd
0x0ddd…0df1 at000e = ╱53╱S╱ // 0xdeb @0xe
0x0ddd…0df1 at000f = ╱41╱A╱ // 0xdec @0xf
0x0ddd…0df1 at0010 = ╱4c╱L╱ // 0xded @0x10
0x0ddd…0df1 at0011 = ╱44╱D╱ // 0xdee @0x11
0x0ddd…0df1 at0012 = ╱4f╱O╱ // 0xdef @0x12
0x0ddd…0df1 at0013 = EOL // 0xdf0 @0x13
0x0ddd…0df1 }
0x0df1…0e09 a3f7 01140 EXEC SAMMENT[L ( AKTIVE $ )
0x0df1…0e09 LineComal80 {
0x0df1…0e09 ptr = 0xa3f7 // 0xdf1 @0x0
0x0df1…0e09 lno = 0x0474 // 0xdf3 @0x2
0x0df1…0e09 at0004 = ╱9d╱ EXEC ╱ // 0xdf5 @0x4
0x0df1…0e09 at0005 = ╱53╱S╱ // 0xdf6 @0x5
0x0df1…0e09 at0006 = ╱41╱A╱ // 0xdf7 @0x6
0x0df1…0e09 at0007 = ╱4d╱M╱ // 0xdf8 @0x7
0x0df1…0e09 at0008 = ╱4d╱M╱ // 0xdf9 @0x8
0x0df1…0e09 at0009 = ╱45╱E╱ // 0xdfa @0x9
0x0df1…0e09 at000a = ╱4e╱N╱ // 0xdfb @0xa
0x0df1…0e09 at000b = ╱54╱T╱ // 0xdfc @0xb
0x0df1…0e09 at000c = ╱5b╱[╱ // 0xdfd @0xc
0x0df1…0e09 at000d = ╱4c╱L╱ // 0xdfe @0xd
0x0df1…0e09 at000e = ╱ed╱ ( ╱ // 0xdff @0xe
0x0df1…0e09 at000f = ╱41╱A╱ // 0xe00 @0xf
0x0df1…0e09 at0010 = ╱4b╱K╱ // 0xe01 @0x10
0x0df1…0e09 at0011 = ╱54╱T╱ // 0xe02 @0x11
0x0df1…0e09 at0012 = ╱49╱I╱ // 0xe03 @0x12
0x0df1…0e09 at0013 = ╱56╱V╱ // 0xe04 @0x13
0x0df1…0e09 at0014 = ╱45╱E╱ // 0xe05 @0x14
0x0df1…0e09 at0015 = ╱ef╱ $ ╱ // 0xe06 @0x15
0x0df1…0e09 at0016 = ╱ee╱ ) ╱ // 0xe07 @0x16
0x0df1…0e09 at0017 = EOL // 0xe08 @0x17
0x0df1…0e09 }
0x0e09…0e25 a413 01150 LET S_AKTIVE := SALDO * ( - 1 )
0x0e09…0e25 LineComal80 {
0x0e09…0e25 ptr = 0xa413 // 0xe09 @0x0
0x0e09…0e25 lno = 0x047e // 0xe0b @0x2
0x0e09…0e25 at0004 = ╱86╱ LET ╱ // 0xe0d @0x4
0x0e09…0e25 at0005 = ╱53╱S╱ // 0xe0e @0x5
0x0e09…0e25 at0006 = ╱5f╱_╱ // 0xe0f @0x6
0x0e09…0e25 at0007 = ╱41╱A╱ // 0xe10 @0x7
0x0e09…0e25 at0008 = ╱4b╱K╱ // 0xe11 @0x8
0x0e09…0e25 at0009 = ╱54╱T╱ // 0xe12 @0x9
0x0e09…0e25 at000a = ╱49╱I╱ // 0xe13 @0xa
0x0e09…0e25 at000b = ╱56╱V╱ // 0xe14 @0xb
0x0e09…0e25 at000c = ╱45╱E╱ // 0xe15 @0xc
0x0e09…0e25 at000d = ╱f0╱ := ╱ // 0xe16 @0xd
0x0e09…0e25 at000e = ╱53╱S╱ // 0xe17 @0xe
0x0e09…0e25 at000f = ╱41╱A╱ // 0xe18 @0xf
0x0e09…0e25 at0010 = ╱4c╱L╱ // 0xe19 @0x10
0x0e09…0e25 at0011 = ╱44╱D╱ // 0xe1a @0x11
0x0e09…0e25 at0012 = ╱4f╱O╱ // 0xe1b @0x12
0x0e09…0e25 at0013 = ╱e7╱ * ╱ // 0xe1c @0x13
0x0e09…0e25 at0014 = ╱ed╱ ( ╱ // 0xe1d @0x14
0x0e09…0e25 at0015 = ╱de╱ - ╱ // 0xe1e @0x15
0x0e09…0e25 at0016 = ╱31╱1╱ // 0xe1f @0x16
0x0e09…0e25 at0017 = ╱f20100╱ // 0xe20 @0x17
0x0e09…0e25 at001a = ╱ee╱ ) ╱ // 0xe23 @0x1a
0x0e09…0e25 at001b = EOL // 0xe24 @0x1b
0x0e09…0e25 }
0x0e25…0e3d a42b 01160 EXEC SAMMENT[L ( EGENKA $ )
0x0e25…0e3d LineComal80 {
0x0e25…0e3d ptr = 0xa42b // 0xe25 @0x0
0x0e25…0e3d lno = 0x0488 // 0xe27 @0x2
0x0e25…0e3d at0004 = ╱9d╱ EXEC ╱ // 0xe29 @0x4
0x0e25…0e3d at0005 = ╱53╱S╱ // 0xe2a @0x5
0x0e25…0e3d at0006 = ╱41╱A╱ // 0xe2b @0x6
0x0e25…0e3d at0007 = ╱4d╱M╱ // 0xe2c @0x7
0x0e25…0e3d at0008 = ╱4d╱M╱ // 0xe2d @0x8
0x0e25…0e3d at0009 = ╱45╱E╱ // 0xe2e @0x9
0x0e25…0e3d at000a = ╱4e╱N╱ // 0xe2f @0xa
0x0e25…0e3d at000b = ╱54╱T╱ // 0xe30 @0xb
0x0e25…0e3d at000c = ╱5b╱[╱ // 0xe31 @0xc
0x0e25…0e3d at000d = ╱4c╱L╱ // 0xe32 @0xd
0x0e25…0e3d at000e = ╱ed╱ ( ╱ // 0xe33 @0xe
0x0e25…0e3d at000f = ╱45╱E╱ // 0xe34 @0xf
0x0e25…0e3d at0010 = ╱47╱G╱ // 0xe35 @0x10
0x0e25…0e3d at0011 = ╱45╱E╱ // 0xe36 @0x11
0x0e25…0e3d at0012 = ╱4e╱N╱ // 0xe37 @0x12
0x0e25…0e3d at0013 = ╱4b╱K╱ // 0xe38 @0x13
0x0e25…0e3d at0014 = ╱41╱A╱ // 0xe39 @0x14
0x0e25…0e3d at0015 = ╱ef╱ $ ╱ // 0xe3a @0x15
0x0e25…0e3d at0016 = ╱ee╱ ) ╱ // 0xe3b @0x16
0x0e25…0e3d at0017 = EOL // 0xe3c @0x17
0x0e25…0e3d }
0x0e3d…0e51 a43f 01170 LET S_EGENKA := SALDO
0x0e3d…0e51 LineComal80 {
0x0e3d…0e51 ptr = 0xa43f // 0xe3d @0x0
0x0e3d…0e51 lno = 0x0492 // 0xe3f @0x2
0x0e3d…0e51 at0004 = ╱86╱ LET ╱ // 0xe41 @0x4
0x0e3d…0e51 at0005 = ╱53╱S╱ // 0xe42 @0x5
0x0e3d…0e51 at0006 = ╱5f╱_╱ // 0xe43 @0x6
0x0e3d…0e51 at0007 = ╱45╱E╱ // 0xe44 @0x7
0x0e3d…0e51 at0008 = ╱47╱G╱ // 0xe45 @0x8
0x0e3d…0e51 at0009 = ╱45╱E╱ // 0xe46 @0x9
0x0e3d…0e51 at000a = ╱4e╱N╱ // 0xe47 @0xa
0x0e3d…0e51 at000b = ╱4b╱K╱ // 0xe48 @0xb
0x0e3d…0e51 at000c = ╱41╱A╱ // 0xe49 @0xc
0x0e3d…0e51 at000d = ╱f0╱ := ╱ // 0xe4a @0xd
0x0e3d…0e51 at000e = ╱53╱S╱ // 0xe4b @0xe
0x0e3d…0e51 at000f = ╱41╱A╱ // 0xe4c @0xf
0x0e3d…0e51 at0010 = ╱4c╱L╱ // 0xe4d @0x10
0x0e3d…0e51 at0011 = ╱44╱D╱ // 0xe4e @0x11
0x0e3d…0e51 at0012 = ╱4f╱O╱ // 0xe4f @0x12
0x0e3d…0e51 at0013 = EOL // 0xe50 @0x13
0x0e3d…0e51 }
0x0e51…0e69 a457 01180 EXEC SAMMENT[L ( VARELA $ )
0x0e51…0e69 LineComal80 {
0x0e51…0e69 ptr = 0xa457 // 0xe51 @0x0
0x0e51…0e69 lno = 0x049c // 0xe53 @0x2
0x0e51…0e69 at0004 = ╱9d╱ EXEC ╱ // 0xe55 @0x4
0x0e51…0e69 at0005 = ╱53╱S╱ // 0xe56 @0x5
0x0e51…0e69 at0006 = ╱41╱A╱ // 0xe57 @0x6
0x0e51…0e69 at0007 = ╱4d╱M╱ // 0xe58 @0x7
0x0e51…0e69 at0008 = ╱4d╱M╱ // 0xe59 @0x8
0x0e51…0e69 at0009 = ╱45╱E╱ // 0xe5a @0x9
0x0e51…0e69 at000a = ╱4e╱N╱ // 0xe5b @0xa
0x0e51…0e69 at000b = ╱54╱T╱ // 0xe5c @0xb
0x0e51…0e69 at000c = ╱5b╱[╱ // 0xe5d @0xc
0x0e51…0e69 at000d = ╱4c╱L╱ // 0xe5e @0xd
0x0e51…0e69 at000e = ╱ed╱ ( ╱ // 0xe5f @0xe
0x0e51…0e69 at000f = ╱56╱V╱ // 0xe60 @0xf
0x0e51…0e69 at0010 = ╱41╱A╱ // 0xe61 @0x10
0x0e51…0e69 at0011 = ╱52╱R╱ // 0xe62 @0x11
0x0e51…0e69 at0012 = ╱45╱E╱ // 0xe63 @0x12
0x0e51…0e69 at0013 = ╱4c╱L╱ // 0xe64 @0x13
0x0e51…0e69 at0014 = ╱41╱A╱ // 0xe65 @0x14
0x0e51…0e69 at0015 = ╱ef╱ $ ╱ // 0xe66 @0x15
0x0e51…0e69 at0016 = ╱ee╱ ) ╱ // 0xe67 @0x16
0x0e51…0e69 at0017 = EOL // 0xe68 @0x17
0x0e51…0e69 }
0x0e69…0e85 a473 01190 LET S_VARELA := SALDO * ( - 1 )
0x0e69…0e85 LineComal80 {
0x0e69…0e85 ptr = 0xa473 // 0xe69 @0x0
0x0e69…0e85 lno = 0x04a6 // 0xe6b @0x2
0x0e69…0e85 at0004 = ╱86╱ LET ╱ // 0xe6d @0x4
0x0e69…0e85 at0005 = ╱53╱S╱ // 0xe6e @0x5
0x0e69…0e85 at0006 = ╱5f╱_╱ // 0xe6f @0x6
0x0e69…0e85 at0007 = ╱56╱V╱ // 0xe70 @0x7
0x0e69…0e85 at0008 = ╱41╱A╱ // 0xe71 @0x8
0x0e69…0e85 at0009 = ╱52╱R╱ // 0xe72 @0x9
0x0e69…0e85 at000a = ╱45╱E╱ // 0xe73 @0xa
0x0e69…0e85 at000b = ╱4c╱L╱ // 0xe74 @0xb
0x0e69…0e85 at000c = ╱41╱A╱ // 0xe75 @0xc
0x0e69…0e85 at000d = ╱f0╱ := ╱ // 0xe76 @0xd
0x0e69…0e85 at000e = ╱53╱S╱ // 0xe77 @0xe
0x0e69…0e85 at000f = ╱41╱A╱ // 0xe78 @0xf
0x0e69…0e85 at0010 = ╱4c╱L╱ // 0xe79 @0x10
0x0e69…0e85 at0011 = ╱44╱D╱ // 0xe7a @0x11
0x0e69…0e85 at0012 = ╱4f╱O╱ // 0xe7b @0x12
0x0e69…0e85 at0013 = ╱e7╱ * ╱ // 0xe7c @0x13
0x0e69…0e85 at0014 = ╱ed╱ ( ╱ // 0xe7d @0x14
0x0e69…0e85 at0015 = ╱de╱ - ╱ // 0xe7e @0x15
0x0e69…0e85 at0016 = ╱31╱1╱ // 0xe7f @0x16
0x0e69…0e85 at0017 = ╱f20100╱ // 0xe80 @0x17
0x0e69…0e85 at001a = ╱ee╱ ) ╱ // 0xe83 @0x1a
0x0e69…0e85 at001b = EOL // 0xe84 @0x1b
0x0e69…0e85 }
0x0e85…0e9d a48b 01200 EXEC SAMMENT[L ( DEBITO $ )
0x0e85…0e9d LineComal80 {
0x0e85…0e9d ptr = 0xa48b // 0xe85 @0x0
0x0e85…0e9d lno = 0x04b0 // 0xe87 @0x2
0x0e85…0e9d at0004 = ╱9d╱ EXEC ╱ // 0xe89 @0x4
0x0e85…0e9d at0005 = ╱53╱S╱ // 0xe8a @0x5
0x0e85…0e9d at0006 = ╱41╱A╱ // 0xe8b @0x6
0x0e85…0e9d at0007 = ╱4d╱M╱ // 0xe8c @0x7
0x0e85…0e9d at0008 = ╱4d╱M╱ // 0xe8d @0x8
0x0e85…0e9d at0009 = ╱45╱E╱ // 0xe8e @0x9
0x0e85…0e9d at000a = ╱4e╱N╱ // 0xe8f @0xa
0x0e85…0e9d at000b = ╱54╱T╱ // 0xe90 @0xb
0x0e85…0e9d at000c = ╱5b╱[╱ // 0xe91 @0xc
0x0e85…0e9d at000d = ╱4c╱L╱ // 0xe92 @0xd
0x0e85…0e9d at000e = ╱ed╱ ( ╱ // 0xe93 @0xe
0x0e85…0e9d at000f = ╱44╱D╱ // 0xe94 @0xf
0x0e85…0e9d at0010 = ╱45╱E╱ // 0xe95 @0x10
0x0e85…0e9d at0011 = ╱42╱B╱ // 0xe96 @0x11
0x0e85…0e9d at0012 = ╱49╱I╱ // 0xe97 @0x12
0x0e85…0e9d at0013 = ╱54╱T╱ // 0xe98 @0x13
0x0e85…0e9d at0014 = ╱4f╱O╱ // 0xe99 @0x14
0x0e85…0e9d at0015 = ╱ef╱ $ ╱ // 0xe9a @0x15
0x0e85…0e9d at0016 = ╱ee╱ ) ╱ // 0xe9b @0x16
0x0e85…0e9d at0017 = EOL // 0xe9c @0x17
0x0e85…0e9d }
0x0e9d…0eb9 a4a7 01210 LET S_DEBITO := SALDO * ( - 1 )
0x0e9d…0eb9 LineComal80 {
0x0e9d…0eb9 ptr = 0xa4a7 // 0xe9d @0x0
0x0e9d…0eb9 lno = 0x04ba // 0xe9f @0x2
0x0e9d…0eb9 at0004 = ╱86╱ LET ╱ // 0xea1 @0x4
0x0e9d…0eb9 at0005 = ╱53╱S╱ // 0xea2 @0x5
0x0e9d…0eb9 at0006 = ╱5f╱_╱ // 0xea3 @0x6
0x0e9d…0eb9 at0007 = ╱44╱D╱ // 0xea4 @0x7
0x0e9d…0eb9 at0008 = ╱45╱E╱ // 0xea5 @0x8
0x0e9d…0eb9 at0009 = ╱42╱B╱ // 0xea6 @0x9
0x0e9d…0eb9 at000a = ╱49╱I╱ // 0xea7 @0xa
0x0e9d…0eb9 at000b = ╱54╱T╱ // 0xea8 @0xb
0x0e9d…0eb9 at000c = ╱4f╱O╱ // 0xea9 @0xc
0x0e9d…0eb9 at000d = ╱f0╱ := ╱ // 0xeaa @0xd
0x0e9d…0eb9 at000e = ╱53╱S╱ // 0xeab @0xe
0x0e9d…0eb9 at000f = ╱41╱A╱ // 0xeac @0xf
0x0e9d…0eb9 at0010 = ╱4c╱L╱ // 0xead @0x10
0x0e9d…0eb9 at0011 = ╱44╱D╱ // 0xeae @0x11
0x0e9d…0eb9 at0012 = ╱4f╱O╱ // 0xeaf @0x12
0x0e9d…0eb9 at0013 = ╱e7╱ * ╱ // 0xeb0 @0x13
0x0e9d…0eb9 at0014 = ╱ed╱ ( ╱ // 0xeb1 @0x14
0x0e9d…0eb9 at0015 = ╱de╱ - ╱ // 0xeb2 @0x15
0x0e9d…0eb9 at0016 = ╱31╱1╱ // 0xeb3 @0x16
0x0e9d…0eb9 at0017 = ╱f20100╱ // 0xeb4 @0x17
0x0e9d…0eb9 at001a = ╱ee╱ ) ╱ // 0xeb7 @0x1a
0x0e9d…0eb9 at001b = EOL // 0xeb8 @0x1b
0x0e9d…0eb9 }
0x0eb9…0ed1 a4bf 01220 EXEC SAMMENT[L ( KREDIT $ )
0x0eb9…0ed1 LineComal80 {
0x0eb9…0ed1 ptr = 0xa4bf // 0xeb9 @0x0
0x0eb9…0ed1 lno = 0x04c4 // 0xebb @0x2
0x0eb9…0ed1 at0004 = ╱9d╱ EXEC ╱ // 0xebd @0x4
0x0eb9…0ed1 at0005 = ╱53╱S╱ // 0xebe @0x5
0x0eb9…0ed1 at0006 = ╱41╱A╱ // 0xebf @0x6
0x0eb9…0ed1 at0007 = ╱4d╱M╱ // 0xec0 @0x7
0x0eb9…0ed1 at0008 = ╱4d╱M╱ // 0xec1 @0x8
0x0eb9…0ed1 at0009 = ╱45╱E╱ // 0xec2 @0x9
0x0eb9…0ed1 at000a = ╱4e╱N╱ // 0xec3 @0xa
0x0eb9…0ed1 at000b = ╱54╱T╱ // 0xec4 @0xb
0x0eb9…0ed1 at000c = ╱5b╱[╱ // 0xec5 @0xc
0x0eb9…0ed1 at000d = ╱4c╱L╱ // 0xec6 @0xd
0x0eb9…0ed1 at000e = ╱ed╱ ( ╱ // 0xec7 @0xe
0x0eb9…0ed1 at000f = ╱4b╱K╱ // 0xec8 @0xf
0x0eb9…0ed1 at0010 = ╱52╱R╱ // 0xec9 @0x10
0x0eb9…0ed1 at0011 = ╱45╱E╱ // 0xeca @0x11
0x0eb9…0ed1 at0012 = ╱44╱D╱ // 0xecb @0x12
0x0eb9…0ed1 at0013 = ╱49╱I╱ // 0xecc @0x13
0x0eb9…0ed1 at0014 = ╱54╱T╱ // 0xecd @0x14
0x0eb9…0ed1 at0015 = ╱ef╱ $ ╱ // 0xece @0x15
0x0eb9…0ed1 at0016 = ╱ee╱ ) ╱ // 0xecf @0x16
0x0eb9…0ed1 at0017 = EOL // 0xed0 @0x17
0x0eb9…0ed1 }
0x0ed1…0ee5 a4d3 01230 LET S_KREDIT := SALDO
0x0ed1…0ee5 LineComal80 {
0x0ed1…0ee5 ptr = 0xa4d3 // 0xed1 @0x0
0x0ed1…0ee5 lno = 0x04ce // 0xed3 @0x2
0x0ed1…0ee5 at0004 = ╱86╱ LET ╱ // 0xed5 @0x4
0x0ed1…0ee5 at0005 = ╱53╱S╱ // 0xed6 @0x5
0x0ed1…0ee5 at0006 = ╱5f╱_╱ // 0xed7 @0x6
0x0ed1…0ee5 at0007 = ╱4b╱K╱ // 0xed8 @0x7
0x0ed1…0ee5 at0008 = ╱52╱R╱ // 0xed9 @0x8
0x0ed1…0ee5 at0009 = ╱45╱E╱ // 0xeda @0x9
0x0ed1…0ee5 at000a = ╱44╱D╱ // 0xedb @0xa
0x0ed1…0ee5 at000b = ╱49╱I╱ // 0xedc @0xb
0x0ed1…0ee5 at000c = ╱54╱T╱ // 0xedd @0xc
0x0ed1…0ee5 at000d = ╱f0╱ := ╱ // 0xede @0xd
0x0ed1…0ee5 at000e = ╱53╱S╱ // 0xedf @0xe
0x0ed1…0ee5 at000f = ╱41╱A╱ // 0xee0 @0xf
0x0ed1…0ee5 at0010 = ╱4c╱L╱ // 0xee1 @0x10
0x0ed1…0ee5 at0011 = ╱44╱D╱ // 0xee2 @0x11
0x0ed1…0ee5 at0012 = ╱4f╱O╱ // 0xee3 @0x12
0x0ed1…0ee5 at0013 = EOL // 0xee4 @0x13
0x0ed1…0ee5 }
0x0ee5…0ef2 a4e0 01240 ENDPROC OPSUMER
0x0ee5…0ef2 LineComal80 {
0x0ee5…0ef2 ptr = 0xa4e0 // 0xee5 @0x0
0x0ee5…0ef2 lno = 0x04d8 // 0xee7 @0x2
0x0ee5…0ef2 at0004 = ╱9f╱ ENDPROC ╱ // 0xee9 @0x4
0x0ee5…0ef2 at0005 = ╱4f╱O╱ // 0xeea @0x5
0x0ee5…0ef2 at0006 = ╱50╱P╱ // 0xeeb @0x6
0x0ee5…0ef2 at0007 = ╱53╱S╱ // 0xeec @0x7
0x0ee5…0ef2 at0008 = ╱55╱U╱ // 0xeed @0x8
0x0ee5…0ef2 at0009 = ╱4d╱M╱ // 0xeee @0x9
0x0ee5…0ef2 at000a = ╱45╱E╱ // 0xeef @0xa
0x0ee5…0ef2 at000b = ╱52╱R╱ // 0xef0 @0xb
0x0ee5…0ef2 at000c = EOL // 0xef1 @0xc
0x0ee5…0ef2 }
0x0ef2…0ef7 a4e5 00860
0x0ef2…0ef7 LineComal80 {
0x0ef2…0ef7 ptr = 0xa4e5 // 0xef2 @0x0
0x0ef2…0ef7 lno = 0x035c // 0xef4 @0x2
0x0ef2…0ef7 at0004 = EOL // 0xef6 @0x4
0x0ef2…0ef7 }
0x0ef7…0f0a a4f8 00870 PROC TERMINAL_IDX
0x0ef7…0f0a LineComal80 {
0x0ef7…0f0a ptr = 0xa4f8 // 0xef7 @0x0
0x0ef7…0f0a lno = 0x0366 // 0xef9 @0x2
0x0ef7…0f0a at0004 = ╱9e05╱ PROC ╱ // 0xefb @0x4
0x0ef7…0f0a at0006 = ╱54╱T╱ // 0xefd @0x6
0x0ef7…0f0a at0007 = ╱45╱E╱ // 0xefe @0x7
0x0ef7…0f0a at0008 = ╱52╱R╱ // 0xeff @0x8
0x0ef7…0f0a at0009 = ╱4d╱M╱ // 0xf00 @0x9
0x0ef7…0f0a at000a = ╱49╱I╱ // 0xf01 @0xa
0x0ef7…0f0a at000b = ╱4e╱N╱ // 0xf02 @0xb
0x0ef7…0f0a at000c = ╱41╱A╱ // 0xf03 @0xc
0x0ef7…0f0a at000d = ╱4c╱L╱ // 0xf04 @0xd
0x0ef7…0f0a at000e = ╱5f╱_╱ // 0xf05 @0xe
0x0ef7…0f0a at000f = ╱49╱I╱ // 0xf06 @0xf
0x0ef7…0f0a at0010 = ╱44╱D╱ // 0xf07 @0x10
0x0ef7…0f0a at0011 = ╱58╱X╱ // 0xf08 @0x11
0x0ef7…0f0a at0012 = EOL // 0xf09 @0x12
0x0ef7…0f0a }
0x0f0a…0f24 (50,) a512 00880 LET PPAR := 5 ; RESRV := 0
0x0f0a…0f24 LineComal80 {
0x0f0a…0f24 ptr = 0xa512 // 0xf0a @0x0
0x0f0a…0f24 lno = 0x0370 // 0xf0c @0x2
0x0f0a…0f24 at0004 = ╱86╱ LET ╱ // 0xf0e @0x4
0x0f0a…0f24 at0005 = ╱50╱P╱ // 0xf0f @0x5
0x0f0a…0f24 at0006 = ╱50╱P╱ // 0xf10 @0x6
0x0f0a…0f24 at0007 = ╱41╱A╱ // 0xf11 @0x7
0x0f0a…0f24 at0008 = ╱52╱R╱ // 0xf12 @0x8
0x0f0a…0f24 at0009 = ╱f0╱ := ╱ // 0xf13 @0x9
0x0f0a…0f24 at000a = ╱35╱5╱ // 0xf14 @0xa
0x0f0a…0f24 at000b = ╱f20500╱ // 0xf15 @0xb
0x0f0a…0f24 at000e = ╱ea╱ ; ╱ // 0xf18 @0xe
0x0f0a…0f24 at000f = ╱52╱R╱ // 0xf19 @0xf
0x0f0a…0f24 at0010 = ╱45╱E╱ // 0xf1a @0x10
0x0f0a…0f24 at0011 = ╱53╱S╱ // 0xf1b @0x11
0x0f0a…0f24 at0012 = ╱52╱R╱ // 0xf1c @0x12
0x0f0a…0f24 at0013 = ╱56╱V╱ // 0xf1d @0x13
0x0f0a…0f24 at0014 = ╱f0╱ := ╱ // 0xf1e @0x14
0x0f0a…0f24 at0015 = ╱30╱0╱ // 0xf1f @0x15
0x0f0a…0f24 at0016 = ╱f20000╱ // 0xf20 @0x16
0x0f0a…0f24 at0019 = EOL // 0xf23 @0x19
0x0f0a…0f24 }
0x0f24…0f36 a524 00890 CALL :PRES"
0x0f24…0f36 LineComal80 {
0x0f24…0f36 ptr = 0xa524 // 0xf24 @0x0
0x0f24…0f36 lno = 0x037a // 0xf26 @0x2
0x0f24…0f36 at0004 = ╱ad00╱ CALL ╱ // 0xf28 @0x4
0x0f24…0f36 at0006 = ╱fe22444445╱ // 0xf2a @0x6
0x0f24…0f36 at000b = ╱3a╱:╱ // 0xf2f @0xb
0x0f24…0f36 at000c = ╱50╱P╱ // 0xf30 @0xc
0x0f24…0f36 at000d = ╱52╱R╱ // 0xf31 @0xd
0x0f24…0f36 at000e = ╱45╱E╱ // 0xf32 @0xe
0x0f24…0f36 at000f = ╱53╱S╱ // 0xf33 @0xf
0x0f24…0f36 at0010 = ╱22╱"╱ // 0xf34 @0x10
0x0f24…0f36 at0011 = EOL // 0xf35 @0x11
0x0f24…0f36 }
0x0f36…0f5f a54d 00900 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
0x0f36…0f5f LineComal80 {
0x0f36…0f5f ptr = 0xa54d // 0xf36 @0x0
0x0f36…0f5f lno = 0x0384 // 0xf38 @0x2
0x0f36…0f5f at0004 = ╱a9╱ GET ╱ // 0xf3a @0x4
0x0f36…0f5f at0005 = ╱53╱S╱ // 0xf3b @0x5
0x0f36…0f5f at0006 = ╱59╱Y╱ // 0xf3c @0x6
0x0f36…0f5f at0007 = ╱53╱S╱ // 0xf3d @0x7
0x0f36…0f5f at0008 = ╱50╱P╱ // 0xf3e @0x8
0x0f36…0f5f at0009 = ╱41╱A╱ // 0xf3f @0x9
0x0f36…0f5f at000a = ╱52╱R╱ // 0xf40 @0xa
0x0f36…0f5f at000b = ╱41╱A╱ // 0xf41 @0xb
0x0f36…0f5f at000c = ╱ef╱ $ ╱ // 0xf42 @0xc
0x0f36…0f5f at000d = ╱ec╱ , ╱ // 0xf43 @0xd
0x0f36…0f5f at000e = ╱31╱1╱ // 0xf44 @0xe
0x0f36…0f5f at000f = ╱f20100╱ // 0xf45 @0xf
0x0f36…0f5f at0012 = ╱e5╱ + ╱ // 0xf48 @0x12
0x0f36…0f5f at0013 = ╱52╱R╱ // 0xf49 @0x13
0x0f36…0f5f at0014 = ╱45╱E╱ // 0xf4a @0x14
0x0f36…0f5f at0015 = ╱53╱S╱ // 0xf4b @0x15
0x0f36…0f5f at0016 = ╱52╱R╱ // 0xf4c @0x16
0x0f36…0f5f at0017 = ╱56╱V╱ // 0xf4d @0x17
0x0f36…0f5f at0018 = ╱f1╱ : ╱ // 0xf4e @0x18
0x0f36…0f5f at0019 = ╱44╱D╱ // 0xf4f @0x19
0x0f36…0f5f at001a = ╱41╱A╱ // 0xf50 @0x1a
0x0f36…0f5f at001b = ╱54╱T╱ // 0xf51 @0x1b
0x0f36…0f5f at001c = ╱41╱A╱ // 0xf52 @0x1c
0x0f36…0f5f at001d = ╱46╱F╱ // 0xf53 @0x1d
0x0f36…0f5f at001e = ╱4c╱L╱ // 0xf54 @0x1e
0x0f36…0f5f at001f = ╱ef╱ $ ╱ // 0xf55 @0x1f
0x0f36…0f5f at0020 = ╱ec╱ , ╱ // 0xf56 @0x20
0x0f36…0f5f at0021 = ╱54╱T╱ // 0xf57 @0x21
0x0f36…0f5f at0022 = ╱5f╱_╱ // 0xf58 @0x22
0x0f36…0f5f at0023 = ╱4b╱K╱ // 0xf59 @0x23
0x0f36…0f5f at0024 = ╱4f╱O╱ // 0xf5a @0x24
0x0f36…0f5f at0025 = ╱44╱D╱ // 0xf5b @0x25
0x0f36…0f5f at0026 = ╱45╱E╱ // 0xf5c @0x26
0x0f36…0f5f at0027 = ╱ef╱ $ ╱ // 0xf5d @0x27
0x0f36…0f5f at0028 = EOL // 0xf5e @0x28
0x0f36…0f5f }
0x0f5f…0f71 a55f 00910 ENDPROC TERMINAL_IDX
0x0f5f…0f71 LineComal80 {
0x0f5f…0f71 ptr = 0xa55f // 0xf5f @0x0
0x0f5f…0f71 lno = 0x038e // 0xf61 @0x2
0x0f5f…0f71 at0004 = ╱9f╱ ENDPROC ╱ // 0xf63 @0x4
0x0f5f…0f71 at0005 = ╱54╱T╱ // 0xf64 @0x5
0x0f5f…0f71 at0006 = ╱45╱E╱ // 0xf65 @0x6
0x0f5f…0f71 at0007 = ╱52╱R╱ // 0xf66 @0x7
0x0f5f…0f71 at0008 = ╱4d╱M╱ // 0xf67 @0x8
0x0f5f…0f71 at0009 = ╱49╱I╱ // 0xf68 @0x9
0x0f5f…0f71 at000a = ╱4e╱N╱ // 0xf69 @0xa
0x0f5f…0f71 at000b = ╱41╱A╱ // 0xf6a @0xb
0x0f5f…0f71 at000c = ╱4c╱L╱ // 0xf6b @0xc
0x0f5f…0f71 at000d = ╱5f╱_╱ // 0xf6c @0xd
0x0f5f…0f71 at000e = ╱49╱I╱ // 0xf6d @0xe
0x0f5f…0f71 at000f = ╱44╱D╱ // 0xf6e @0xf
0x0f5f…0f71 at0010 = ╱58╱X╱ // 0xf6f @0x10
0x0f5f…0f71 at0011 = EOL // 0xf70 @0x11
0x0f5f…0f71 }
0x0f71…0f76 a564 00920
0x0f71…0f76 LineComal80 {
0x0f71…0f76 ptr = 0xa564 // 0xf71 @0x0
0x0f71…0f76 lno = 0x0398 // 0xf73 @0x2
0x0f71…0f76 at0004 = EOL // 0xf75 @0x4
0x0f71…0f76 }
0x0f76…0f89 a577 00930 PROC L[S_KONTO ( P )
0x0f76…0f89 LineComal80 {
0x0f76…0f89 ptr = 0xa577 // 0xf76 @0x0
0x0f76…0f89 lno = 0x03a2 // 0xf78 @0x2
0x0f76…0f89 at0004 = ╱9e06╱ PROC ╱ // 0xf7a @0x4
0x0f76…0f89 at0006 = ╱4c╱L╱ // 0xf7c @0x6
0x0f76…0f89 at0007 = ╱5b╱[╱ // 0xf7d @0x7
0x0f76…0f89 at0008 = ╱53╱S╱ // 0xf7e @0x8
0x0f76…0f89 at0009 = ╱5f╱_╱ // 0xf7f @0x9
0x0f76…0f89 at000a = ╱4b╱K╱ // 0xf80 @0xa
0x0f76…0f89 at000b = ╱4f╱O╱ // 0xf81 @0xb
0x0f76…0f89 at000c = ╱4e╱N╱ // 0xf82 @0xc
0x0f76…0f89 at000d = ╱54╱T╱ // 0xf83 @0xd
0x0f76…0f89 at000e = ╱4f╱O╱ // 0xf84 @0xe
0x0f76…0f89 at000f = ╱ed╱ ( ╱ // 0xf85 @0xf
0x0f76…0f89 at0010 = ╱50╱P╱ // 0xf86 @0x10
0x0f76…0f89 at0011 = ╱ee╱ ) ╱ // 0xf87 @0x11
0x0f76…0f89 at0012 = EOL // 0xf88 @0x12
0x0f76…0f89 }
0x0f89…0fce a5bc 00940 GET KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
0x0f89…0fce LineComal80 {
0x0f89…0fce ptr = 0xa5bc // 0xf89 @0x0
0x0f89…0fce lno = 0x03ac // 0xf8b @0x2
0x0f89…0fce at0004 = ╱a9╱ GET ╱ // 0xf8d @0x4
0x0f89…0fce at0005 = ╱4b╱K╱ // 0xf8e @0x5
0x0f89…0fce at0006 = ╱4f╱O╱ // 0xf8f @0x6
0x0f89…0fce at0007 = ╱4e╱N╱ // 0xf90 @0x7
0x0f89…0fce at0008 = ╱54╱T╱ // 0xf91 @0x8
0x0f89…0fce at0009 = ╱4f╱O╱ // 0xf92 @0x9
0x0f89…0fce at000a = ╱ef╱ $ ╱ // 0xf93 @0xa
0x0f89…0fce at000b = ╱ec╱ , ╱ // 0xf94 @0xb
0x0f89…0fce at000c = ╱50╱P╱ // 0xf95 @0xc
0x0f89…0fce at000d = ╱f1╱ : ╱ // 0xf96 @0xd
0x0f89…0fce at000e = ╱4b╱K╱ // 0xf97 @0xe
0x0f89…0fce at000f = ╱54╱T╱ // 0xf98 @0xf
0x0f89…0fce at0010 = ╱4f╱O╱ // 0xf99 @0x10
0x0f89…0fce at0011 = ╱5f╱_╱ // 0xf9a @0x11
0x0f89…0fce at0012 = ╱54╱T╱ // 0xf9b @0x12
0x0f89…0fce at0013 = ╱59╱Y╱ // 0xf9c @0x13
0x0f89…0fce at0014 = ╱50╱P╱ // 0xf9d @0x14
0x0f89…0fce at0015 = ╱45╱E╱ // 0xf9e @0x15
0x0f89…0fce at0016 = ╱ef╱ $ ╱ // 0xf9f @0x16
0x0f89…0fce at0017 = ╱ec╱ , ╱ // 0xfa0 @0x17
0x0f89…0fce at0018 = ╱4b╱K╱ // 0xfa1 @0x18
0x0f89…0fce at0019 = ╱54╱T╱ // 0xfa2 @0x19
0x0f89…0fce at001a = ╱4f╱O╱ // 0xfa3 @0x1a
0x0f89…0fce at001b = ╱5f╱_╱ // 0xfa4 @0x1b
0x0f89…0fce at001c = ╱4e╱N╱ // 0xfa5 @0x1c
0x0f89…0fce at001d = ╱41╱A╱ // 0xfa6 @0x1d
0x0f89…0fce at001e = ╱56╱V╱ // 0xfa7 @0x1e
0x0f89…0fce at001f = ╱4e╱N╱ // 0xfa8 @0x1f
0x0f89…0fce at0020 = ╱ef╱ $ ╱ // 0xfa9 @0x20
0x0f89…0fce at0021 = ╱ec╱ , ╱ // 0xfaa @0x21
0x0f89…0fce at0022 = ╱4b╱K╱ // 0xfab @0x22
0x0f89…0fce at0023 = ╱54╱T╱ // 0xfac @0x23
0x0f89…0fce at0024 = ╱4f╱O╱ // 0xfad @0x24
0x0f89…0fce at0025 = ╱5f╱_╱ // 0xfae @0x25
0x0f89…0fce at0026 = ╱50╱P╱ // 0xfaf @0x26
0x0f89…0fce at0027 = ╱52╱R╱ // 0xfb0 @0x27
0x0f89…0fce at0028 = ╱49╱I╱ // 0xfb1 @0x28
0x0f89…0fce at0029 = ╱4d╱M╱ // 0xfb2 @0x29
0x0f89…0fce at002a = ╱4f╱O╱ // 0xfb3 @0x2a
0x0f89…0fce at002b = ╱ec╱ , ╱ // 0xfb4 @0x2b
0x0f89…0fce at002c = ╱4b╱K╱ // 0xfb5 @0x2c
0x0f89…0fce at002d = ╱54╱T╱ // 0xfb6 @0x2d
0x0f89…0fce at002e = ╱4f╱O╱ // 0xfb7 @0x2e
0x0f89…0fce at002f = ╱5f╱_╱ // 0xfb8 @0x2f
0x0f89…0fce at0030 = ╱55╱U╱ // 0xfb9 @0x30
0x0f89…0fce at0031 = ╱4c╱L╱ // 0xfba @0x31
0x0f89…0fce at0032 = ╱54╱T╱ // 0xfbb @0x32
0x0f89…0fce at0033 = ╱49╱I╱ // 0xfbc @0x33
0x0f89…0fce at0034 = ╱4d╱M╱ // 0xfbd @0x34
0x0f89…0fce at0035 = ╱4f╱O╱ // 0xfbe @0x35
0x0f89…0fce at0036 = ╱ec╱ , ╱ // 0xfbf @0x36
0x0f89…0fce at0037 = ╱4b╱K╱ // 0xfc0 @0x37
0x0f89…0fce at0038 = ╱54╱T╱ // 0xfc1 @0x38
0x0f89…0fce at0039 = ╱4f╱O╱ // 0xfc2 @0x39
0x0f89…0fce at003a = ╱5f╱_╱ // 0xfc3 @0x3a
0x0f89…0fce at003b = ╱46╱F╱ // 0xfc4 @0x3b
0x0f89…0fce at003c = ╱50╱P╱ // 0xfc5 @0x3c
0x0f89…0fce at003d = ╱ec╱ , ╱ // 0xfc6 @0x3d
0x0f89…0fce at003e = ╱4b╱K╱ // 0xfc7 @0x3e
0x0f89…0fce at003f = ╱54╱T╱ // 0xfc8 @0x3f
0x0f89…0fce at0040 = ╱4f╱O╱ // 0xfc9 @0x40
0x0f89…0fce at0041 = ╱5f╱_╱ // 0xfca @0x41
0x0f89…0fce at0042 = ╱53╱S╱ // 0xfcb @0x42
0x0f89…0fce at0043 = ╱50╱P╱ // 0xfcc @0x43
0x0f89…0fce at0044 = EOL // 0xfcd @0x44
0x0f89…0fce }
0x0fce…0fdd a5cb 00950 ENDPROC L[S_KONTO
0x0fce…0fdd LineComal80 {
0x0fce…0fdd ptr = 0xa5cb // 0xfce @0x0
0x0fce…0fdd lno = 0x03b6 // 0xfd0 @0x2
0x0fce…0fdd at0004 = ╱9f╱ ENDPROC ╱ // 0xfd2 @0x4
0x0fce…0fdd at0005 = ╱4c╱L╱ // 0xfd3 @0x5
0x0fce…0fdd at0006 = ╱5b╱[╱ // 0xfd4 @0x6
0x0fce…0fdd at0007 = ╱53╱S╱ // 0xfd5 @0x7
0x0fce…0fdd at0008 = ╱5f╱_╱ // 0xfd6 @0x8
0x0fce…0fdd at0009 = ╱4b╱K╱ // 0xfd7 @0x9
0x0fce…0fdd at000a = ╱4f╱O╱ // 0xfd8 @0xa
0x0fce…0fdd at000b = ╱4e╱N╱ // 0xfd9 @0xb
0x0fce…0fdd at000c = ╱54╱T╱ // 0xfda @0xc
0x0fce…0fdd at000d = ╱4f╱O╱ // 0xfdb @0xd
0x0fce…0fdd at000e = EOL // 0xfdc @0xe
0x0fce…0fdd }
0x0fdd…0fe2 a5d0 00960
0x0fdd…0fe2 LineComal80 {
0x0fdd…0fe2 ptr = 0xa5d0 // 0xfdd @0x0
0x0fdd…0fe2 lno = 0x03c0 // 0xfdf @0x2
0x0fdd…0fe2 at0004 = EOL // 0xfe1 @0x4
0x0fdd…0fe2 }
0x0fe2…0ffd a5eb 00970 PROC OPENFIL ( FNAVN $ , WAY $ )
0x0fe2…0ffd LineComal80 {
0x0fe2…0ffd ptr = 0xa5eb // 0xfe2 @0x0
0x0fe2…0ffd lno = 0x03ca // 0xfe4 @0x2
0x0fe2…0ffd at0004 = ╱9e07╱ PROC ╱ // 0xfe6 @0x4
0x0fe2…0ffd at0006 = ╱4f╱O╱ // 0xfe8 @0x6
0x0fe2…0ffd at0007 = ╱50╱P╱ // 0xfe9 @0x7
0x0fe2…0ffd at0008 = ╱45╱E╱ // 0xfea @0x8
0x0fe2…0ffd at0009 = ╱4e╱N╱ // 0xfeb @0x9
0x0fe2…0ffd at000a = ╱46╱F╱ // 0xfec @0xa
0x0fe2…0ffd at000b = ╱49╱I╱ // 0xfed @0xb
0x0fe2…0ffd at000c = ╱4c╱L╱ // 0xfee @0xc
0x0fe2…0ffd at000d = ╱ed╱ ( ╱ // 0xfef @0xd
0x0fe2…0ffd at000e = ╱46╱F╱ // 0xff0 @0xe
0x0fe2…0ffd at000f = ╱4e╱N╱ // 0xff1 @0xf
0x0fe2…0ffd at0010 = ╱41╱A╱ // 0xff2 @0x10
0x0fe2…0ffd at0011 = ╱56╱V╱ // 0xff3 @0x11
0x0fe2…0ffd at0012 = ╱4e╱N╱ // 0xff4 @0x12
0x0fe2…0ffd at0013 = ╱ef╱ $ ╱ // 0xff5 @0x13
0x0fe2…0ffd at0014 = ╱ec╱ , ╱ // 0xff6 @0x14
0x0fe2…0ffd at0015 = ╱57╱W╱ // 0xff7 @0x15
0x0fe2…0ffd at0016 = ╱41╱A╱ // 0xff8 @0x16
0x0fe2…0ffd at0017 = ╱59╱Y╱ // 0xff9 @0x17
0x0fe2…0ffd at0018 = ╱ef╱ $ ╱ // 0xffa @0x18
0x0fe2…0ffd at0019 = ╱ee╱ ) ╱ // 0xffb @0x19
0x0fe2…0ffd at001a = EOL // 0xffc @0x1a
0x0fe2…0ffd }
0x0ffd…1004 a5f2 00980 REPEAT
0x0ffd…1004 LineComal80 {
0x0ffd…1004 ptr = 0xa5f2 // 0xffd @0x0
0x0ffd…1004 lno = 0x03d4 // 0xfff @0x2
0x0ffd…1004 at0004 = ╱9708╱ REPEAT ╱ // 0x1001 @0x4
0x0ffd…1004 at0006 = EOL // 0x1003 @0x6
0x0ffd…1004 }
0x1004…101d a60b 00990 IF AY $ = "W" OR WAY $ = "w" THEN
0x1004…101d LineComal80 {
0x1004…101d ptr = 0xa60b // 0x1004 @0x0
0x1004…101d lno = 0x03de // 0x1006 @0x2
0x1004…101d at0004 = ╱9b0957╱ IF ╱ // 0x1008 @0x4
0x1004…101d at0007 = ╱41╱A╱ // 0x100b @0x7
0x1004…101d at0008 = ╱59╱Y╱ // 0x100c @0x8
0x1004…101d at0009 = ╱ef╱ $ ╱ // 0x100d @0x9
0x1004…101d at000a = ╱df╱ = ╱ // 0x100e @0xa
0x1004…101d at000b = ╱22╱"╱ // 0x100f @0xb
0x1004…101d at000c = ╱57╱W╱ // 0x1010 @0xc
0x1004…101d at000d = ╱22╱"╱ // 0x1011 @0xd
0x1004…101d at000e = ╱d8╱ OR ╱ // 0x1012 @0xe
0x1004…101d at000f = ╱57╱W╱ // 0x1013 @0xf
0x1004…101d at0010 = ╱41╱A╱ // 0x1014 @0x10
0x1004…101d at0011 = ╱59╱Y╱ // 0x1015 @0x11
0x1004…101d at0012 = ╱ef╱ $ ╱ // 0x1016 @0x12
0x1004…101d at0013 = ╱df╱ = ╱ // 0x1017 @0x13
0x1004…101d at0014 = ╱22╱"╱ // 0x1018 @0x14
0x1004…101d at0015 = ╱77╱w╱ // 0x1019 @0x15
0x1004…101d at0016 = ╱22╱"╱ // 0x101a @0x16
0x1004…101d at0017 = ╱b5╱ THEN ╱ // 0x101b @0x17
0x1004…101d at0018 = EOL // 0x101c @0x18
0x1004…101d }
0x101d…102b a619 01000 OPEN FNAVN $ , W
0x101d…102b LineComal80 {
0x101d…102b ptr = 0xa619 // 0x101d @0x0
0x101d…102b lno = 0x03e8 // 0x101f @0x2
0x101d…102b at0004 = ╱a7╱ OPEN ╱ // 0x1021 @0x4
0x101d…102b at0005 = ╱46╱F╱ // 0x1022 @0x5
0x101d…102b at0006 = ╱4e╱N╱ // 0x1023 @0x6
0x101d…102b at0007 = ╱41╱A╱ // 0x1024 @0x7
0x101d…102b at0008 = ╱56╱V╱ // 0x1025 @0x8
0x101d…102b at0009 = ╱4e╱N╱ // 0x1026 @0x9
0x101d…102b at000a = ╱ef╱ $ ╱ // 0x1027 @0xa
0x101d…102b at000b = ╱ec╱ , ╱ // 0x1028 @0xb
0x101d…102b at000c = ╱57╱W╱ // 0x1029 @0xc
0x101d…102b at000d = EOL // 0x102a @0xd
0x101d…102b }
0x102b…1032 a620 01010 ELSE
0x102b…1032 LineComal80 {
0x102b…1032 ptr = 0xa620 // 0x102b @0x0
0x102b…1032 lno = 0x03f2 // 0x102d @0x2
0x102b…1032 at0004 = ╱9a0a╱ ELSE ╱ // 0x102f @0x4
0x102b…1032 at0006 = EOL // 0x1031 @0x6
0x102b…1032 }
0x1032…1040 a62e 01020 OPEN FNAVN $ , R
0x1032…1040 LineComal80 {
0x1032…1040 ptr = 0xa62e // 0x1032 @0x0
0x1032…1040 lno = 0x03fc // 0x1034 @0x2
0x1032…1040 at0004 = ╱a7╱ OPEN ╱ // 0x1036 @0x4
0x1032…1040 at0005 = ╱46╱F╱ // 0x1037 @0x5
0x1032…1040 at0006 = ╱4e╱N╱ // 0x1038 @0x6
0x1032…1040 at0007 = ╱41╱A╱ // 0x1039 @0x7
0x1032…1040 at0008 = ╱56╱V╱ // 0x103a @0x8
0x1032…1040 at0009 = ╱4e╱N╱ // 0x103b @0x9
0x1032…1040 at000a = ╱ef╱ $ ╱ // 0x103c @0xa
0x1032…1040 at000b = ╱ec╱ , ╱ // 0x103d @0xb
0x1032…1040 at000c = ╱52╱R╱ // 0x103e @0xc
0x1032…1040 at000d = EOL // 0x103f @0xd
0x1032…1040 }
0x1040…1046 a634 01030 ENDIF
0x1040…1046 LineComal80 {
0x1040…1046 ptr = 0xa634 // 0x1040 @0x0
0x1040…1046 lno = 0x0406 // 0x1042 @0x2
0x1040…1046 at0004 = ╱9c╱ ENDIF ╱ // 0x1044 @0x4
0x1040…1046 at0005 = EOL // 0x1045 @0x5
0x1040…1046 }
0x1046…1057 a645 01040 IF ( FNAVN $ ) THEN
0x1046…1057 LineComal80 {
0x1046…1057 ptr = 0xa645 // 0x1046 @0x0
0x1046…1057 lno = 0x0410 // 0x1048 @0x2
0x1046…1057 at0004 = ╱9b0bcd╱ IF ╱ // 0x104a @0x4
0x1046…1057 at0007 = ╱ed╱ ( ╱ // 0x104d @0x7
0x1046…1057 at0008 = ╱46╱F╱ // 0x104e @0x8
0x1046…1057 at0009 = ╱4e╱N╱ // 0x104f @0x9
0x1046…1057 at000a = ╱41╱A╱ // 0x1050 @0xa
0x1046…1057 at000b = ╱56╱V╱ // 0x1051 @0xb
0x1046…1057 at000c = ╱4e╱N╱ // 0x1052 @0xc
0x1046…1057 at000d = ╱ef╱ $ ╱ // 0x1053 @0xd
0x1046…1057 at000e = ╱ee╱ ) ╱ // 0x1054 @0xe
0x1046…1057 at000f = ╱b5╱ THEN ╱ // 0x1055 @0xf
0x1046…1057 at0010 = EOL // 0x1056 @0x10
0x1046…1057 }
0x1057…106f a65d 01050 PRINT "<SC0123>" ; CHR$ ( 7 )
0x1057…106f LineComal80 {
0x1057…106f ptr = 0xa65d // 0x1057 @0x0
0x1057…106f lno = 0x041a // 0x1059 @0x2
0x1057…106f at0004 = ╱92╱ PRINT ╱ // 0x105b @0x4
0x1057…106f at0005 = ╱22╱"╱ // 0x105c @0x5
0x1057…106f at0006 = ╱3c╱<╱ // 0x105d @0x6
0x1057…106f at0007 = ╱53╱S╱ // 0x105e @0x7
0x1057…106f at0008 = ╱43╱C╱ // 0x105f @0x8
0x1057…106f at0009 = ╱30╱0╱ // 0x1060 @0x9
0x1057…106f at000a = ╱31╱1╱ // 0x1061 @0xa
0x1057…106f at000b = ╱32╱2╱ // 0x1062 @0xb
0x1057…106f at000c = ╱33╱3╱ // 0x1063 @0xc
0x1057…106f at000d = ╱3e╱>╱ // 0x1064 @0xd
0x1057…106f at000e = ╱22╱"╱ // 0x1065 @0xe
0x1057…106f at000f = ╱ea╱ ; ╱ // 0x1066 @0xf
0x1057…106f at0010 = ╱d0╱ CHR$ ╱ // 0x1067 @0x10
0x1057…106f at0011 = ╱ed╱ ( ╱ // 0x1068 @0x11
0x1057…106f at0012 = ╱37╱7╱ // 0x1069 @0x12
0x1057…106f at0013 = ╱f20700╱ // 0x106a @0x13
0x1057…106f at0016 = ╱ee╱ ) ╱ // 0x106d @0x16
0x1057…106f at0017 = EOL // 0x106e @0x17
0x1057…106f }
0x106f…1085 a673 01060 IF ( FNAVN $ ) = 6 THEN
0x106f…1085 LineComal80 {
0x106f…1085 ptr = 0xa673 // 0x106f @0x0
0x106f…1085 lno = 0x0424 // 0x1071 @0x2
0x106f…1085 at0004 = ╱9b0ccd╱ IF ╱ // 0x1073 @0x4
0x106f…1085 at0007 = ╱ed╱ ( ╱ // 0x1076 @0x7
0x106f…1085 at0008 = ╱46╱F╱ // 0x1077 @0x8
0x106f…1085 at0009 = ╱4e╱N╱ // 0x1078 @0x9
0x106f…1085 at000a = ╱41╱A╱ // 0x1079 @0xa
0x106f…1085 at000b = ╱56╱V╱ // 0x107a @0xb
0x106f…1085 at000c = ╱4e╱N╱ // 0x107b @0xc
0x106f…1085 at000d = ╱ef╱ $ ╱ // 0x107c @0xd
0x106f…1085 at000e = ╱ee╱ ) ╱ // 0x107d @0xe
0x106f…1085 at000f = ╱df╱ = ╱ // 0x107e @0xf
0x106f…1085 at0010 = ╱36╱6╱ // 0x107f @0x10
0x106f…1085 at0011 = ╱f20600╱ // 0x1080 @0x11
0x106f…1085 at0014 = ╱b5╱ THEN ╱ // 0x1083 @0x14
0x106f…1085 at0015 = EOL // 0x1084 @0x15
0x106f…1085 }
0x1085…10ca a6b8 01070 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
0x1085…10ca LineComal80 {
0x1085…10ca ptr = 0xa6b8 // 0x1085 @0x0
0x1085…10ca lno = 0x042e // 0x1087 @0x2
0x1085…10ca at0004 = ╱92╱ PRINT ╱ // 0x1089 @0x4
0x1085…10ca at0005 = ╱22╱"╱ // 0x108a @0x5
0x1085…10ca at0006 = ╱3c╱<╱ // 0x108b @0x6
0x1085…10ca at0007 = ╱53╱S╱ // 0x108c @0x7
0x1085…10ca at0008 = ╱43╱C╱ // 0x108d @0x8
0x1085…10ca at0009 = ╱31╱1╱ // 0x108e @0x9
0x1085…10ca at000a = ╱36╱6╱ // 0x108f @0xa
0x1085…10ca at000b = ╱30╱0╱ // 0x1090 @0xb
0x1085…10ca at000c = ╱32╱2╱ // 0x1091 @0xc
0x1085…10ca at000d = ╱3e╱>╱ // 0x1092 @0xd
0x1085…10ca at000e = ╱2a╱*╱ // 0x1093 @0xe
0x1085…10ca at000f = ╱2a╱*╱ // 0x1094 @0xf
0x1085…10ca at0010 = ╱2a╱*╱ // 0x1095 @0x10
0x1085…10ca at0011 = ╱20╱…╱ // 0x1096 @0x11
0x1085…10ca at0012 = ╱46╱F╱ // 0x1097 @0x12
0x1085…10ca at0013 = ╱65╱e╱ // 0x1098 @0x13
0x1085…10ca at0014 = ╱6a╱j╱ // 0x1099 @0x14
0x1085…10ca at0015 = ╱6c╱l╱ // 0x109a @0x15
0x1085…10ca at0016 = ╱20╱…╱ // 0x109b @0x16
0x1085…10ca at0017 = ╱6e╱n╱ // 0x109c @0x17
0x1085…10ca at0018 = ╱72╱r╱ // 0x109d @0x18
0x1085…10ca at0019 = ╱2e╱.╱ // 0x109e @0x19
0x1085…10ca at001a = ╱20╱…╱ // 0x109f @0x1a
0x1085…10ca at001b = ╱36╱6╱ // 0x10a0 @0x1b
0x1085…10ca at001c = ╱20╱…╱ // 0x10a1 @0x1c
0x1085…10ca at001d = ╱2d╱-╱ // 0x10a2 @0x1d
0x1085…10ca at001e = ╱20╱…╱ // 0x10a3 @0x1e
0x1085…10ca at001f = ╱69╱i╱ // 0x10a4 @0x1f
0x1085…10ca at0020 = ╱6e╱n╱ // 0x10a5 @0x20
0x1085…10ca at0021 = ╱64╱d╱ // 0x10a6 @0x21
0x1085…10ca at0022 = ╱73╱s╱ // 0x10a7 @0x22
0x1085…10ca at0023 = ╱7b╱{╱ // 0x10a8 @0x23
0x1085…10ca at0024 = ╱74╱t╱ // 0x10a9 @0x24
0x1085…10ca at0025 = ╱20╱…╱ // 0x10aa @0x25
0x1085…10ca at0026 = ╱64╱d╱ // 0x10ab @0x26
0x1085…10ca at0027 = ╱69╱i╱ // 0x10ac @0x27
0x1085…10ca at0028 = ╱73╱s╱ // 0x10ad @0x28
0x1085…10ca at0029 = ╱6b╱k╱ // 0x10ae @0x29
0x1085…10ca at002a = ╱65╱e╱ // 0x10af @0x2a
0x1085…10ca at002b = ╱74╱t╱ // 0x10b0 @0x2b
0x1085…10ca at002c = ╱74╱t╱ // 0x10b1 @0x2c
0x1085…10ca at002d = ╱65╱e╱ // 0x10b2 @0x2d
0x1085…10ca at002e = ╱20╱…╱ // 0x10b3 @0x2e
0x1085…10ca at002f = ╱6f╱o╱ // 0x10b4 @0x2f
0x1085…10ca at0030 = ╱67╱g╱ // 0x10b5 @0x30
0x1085…10ca at0031 = ╱20╱…╱ // 0x10b6 @0x31
0x1085…10ca at0032 = ╱74╱t╱ // 0x10b7 @0x32
0x1085…10ca at0033 = ╱72╱r╱ // 0x10b8 @0x33
0x1085…10ca at0034 = ╱79╱y╱ // 0x10b9 @0x34
0x1085…10ca at0035 = ╱6b╱k╱ // 0x10ba @0x35
0x1085…10ca at0036 = ╱20╱…╱ // 0x10bb @0x36
0x1085…10ca at0037 = ╱3c╱<╱ // 0x10bc @0x37
0x1085…10ca at0038 = ╱52╱R╱ // 0x10bd @0x38
0x1085…10ca at0039 = ╱45╱E╱ // 0x10be @0x39
0x1085…10ca at003a = ╱54╱T╱ // 0x10bf @0x3a
0x1085…10ca at003b = ╱55╱U╱ // 0x10c0 @0x3b
0x1085…10ca at003c = ╱52╱R╱ // 0x10c1 @0x3c
0x1085…10ca at003d = ╱4e╱N╱ // 0x10c2 @0x3d
0x1085…10ca at003e = ╱3e╱>╱ // 0x10c3 @0x3e
0x1085…10ca at003f = ╱20╱…╱ // 0x10c4 @0x3f
0x1085…10ca at0040 = ╱2a╱*╱ // 0x10c5 @0x40
0x1085…10ca at0041 = ╱2a╱*╱ // 0x10c6 @0x41
0x1085…10ca at0042 = ╱2a╱*╱ // 0x10c7 @0x42
0x1085…10ca at0043 = ╱22╱"╱ // 0x10c8 @0x43
0x1085…10ca at0044 = EOL // 0x10c9 @0x44
0x1085…10ca }
0x10ca…10d8 a6c6 01080 INPUT "" : SVAR $
0x10ca…10d8 LineComal80 {
0x10ca…10d8 ptr = 0xa6c6 // 0x10ca @0x0
0x10ca…10d8 lno = 0x0438 // 0x10cc @0x2
0x10ca…10d8 at0004 = ╱91╱ INPUT ╱ // 0x10ce @0x4
0x10ca…10d8 at0005 = ╱22╱"╱ // 0x10cf @0x5
0x10ca…10d8 at0006 = ╱22╱"╱ // 0x10d0 @0x6
0x10ca…10d8 at0007 = ╱f1╱ : ╱ // 0x10d1 @0x7
0x10ca…10d8 at0008 = ╱53╱S╱ // 0x10d2 @0x8
0x10ca…10d8 at0009 = ╱56╱V╱ // 0x10d3 @0x9
0x10ca…10d8 at000a = ╱41╱A╱ // 0x10d4 @0xa
0x10ca…10d8 at000b = ╱52╱R╱ // 0x10d5 @0xb
0x10ca…10d8 at000c = ╱ef╱ $ ╱ // 0x10d6 @0xc
0x10ca…10d8 at000d = EOL // 0x10d7 @0xd
0x10ca…10d8 }
0x10d8…10df (56,) a6cd 01090 ELSE
0x10d8…10df LineComal80 {
0x10d8…10df ptr = 0xa6cd // 0x10d8 @0x0
0x10d8…10df lno = 0x0442 // 0x10da @0x2
0x10d8…10df at0004 = ╱9a0d╱ ELSE ╱ // 0x10dc @0x4
0x10d8…10df at0006 = EOL // 0x10de @0x6
0x10d8…10df }
0x10df…1120 a70e 01100 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
0x10df…1120 LineComal80 {
0x10df…1120 ptr = 0xa70e // 0x10df @0x0
0x10df…1120 lno = 0x044c // 0x10e1 @0x2
0x10df…1120 at0004 = ╱92╱ PRINT ╱ // 0x10e3 @0x4
0x10df…1120 at0005 = ╱22╱"╱ // 0x10e4 @0x5
0x10df…1120 at0006 = ╱3c╱<╱ // 0x10e5 @0x6
0x10df…1120 at0007 = ╱53╱S╱ // 0x10e6 @0x7
0x10df…1120 at0008 = ╱43╱C╱ // 0x10e7 @0x8
0x10df…1120 at0009 = ╱31╱1╱ // 0x10e8 @0x9
0x10df…1120 at000a = ╱38╱8╱ // 0x10e9 @0xa
0x10df…1120 at000b = ╱30╱0╱ // 0x10ea @0xb
0x10df…1120 at000c = ╱32╱2╱ // 0x10eb @0xc
0x10df…1120 at000d = ╱3e╱>╱ // 0x10ec @0xd
0x10df…1120 at000e = ╱2a╱*╱ // 0x10ed @0xe
0x10df…1120 at000f = ╱2a╱*╱ // 0x10ee @0xf
0x10df…1120 at0010 = ╱2a╱*╱ // 0x10ef @0x10
0x10df…1120 at0011 = ╱20╱…╱ // 0x10f0 @0x11
0x10df…1120 at0012 = ╱46╱F╱ // 0x10f1 @0x12
0x10df…1120 at0013 = ╱65╱e╱ // 0x10f2 @0x13
0x10df…1120 at0014 = ╱6a╱j╱ // 0x10f3 @0x14
0x10df…1120 at0015 = ╱6c╱l╱ // 0x10f4 @0x15
0x10df…1120 at0016 = ╱20╱…╱ // 0x10f5 @0x16
0x10df…1120 at0017 = ╱6e╱n╱ // 0x10f6 @0x17
0x10df…1120 at0018 = ╱72╱r╱ // 0x10f7 @0x18
0x10df…1120 at0019 = ╱2e╱.╱ // 0x10f8 @0x19
0x10df…1120 at001a = ╱20╱…╱ // 0x10f9 @0x1a
0x10df…1120 at001b = ╱22╱"╱ // 0x10fa @0x1b
0x10df…1120 at001c = ╱ea╱ ; ╱ // 0x10fb @0x1c
0x10df…1120 at001d = ╱d0╱ CHR$ ╱ // 0x10fc @0x1d
0x10df…1120 at001e = ╱ed╱ ( ╱ // 0x10fd @0x1e
0x10df…1120 at001f = ╱cd╱ // 0x10fe @0x1f
0x10df…1120 at0020 = ╱ed╱ ( ╱ // 0x10ff @0x20
0x10df…1120 at0021 = ╱46╱F╱ // 0x1100 @0x21
0x10df…1120 at0022 = ╱4e╱N╱ // 0x1101 @0x22
0x10df…1120 at0023 = ╱41╱A╱ // 0x1102 @0x23
0x10df…1120 at0024 = ╱56╱V╱ // 0x1103 @0x24
0x10df…1120 at0025 = ╱4e╱N╱ // 0x1104 @0x25
0x10df…1120 at0026 = ╱ef╱ $ ╱ // 0x1105 @0x26
0x10df…1120 at0027 = ╱ee╱ ) ╱ // 0x1106 @0x27
0x10df…1120 at0028 = ╱ec╱ , ╱ // 0x1107 @0x28
0x10df…1120 at0029 = ╱32╱2╱ // 0x1108 @0x29
0x10df…1120 at002a = ╱f20200╱ // 0x1109 @0x2a
0x10df…1120 at002d = ╱ee╱ ) ╱ // 0x110c @0x2d
0x10df…1120 at002e = ╱ea╱ ; ╱ // 0x110d @0x2e
0x10df…1120 at002f = ╱22╱"╱ // 0x110e @0x2f
0x10df…1120 at0030 = ╱20╱…╱ // 0x110f @0x30
0x10df…1120 at0031 = ╱76╱v╱ // 0x1110 @0x31
0x10df…1120 at0032 = ╱65╱e╱ // 0x1111 @0x32
0x10df…1120 at0033 = ╱64╱d╱ // 0x1112 @0x33
0x10df…1120 at0034 = ╱20╱…╱ // 0x1113 @0x34
0x10df…1120 at0035 = ╱7d╱}╱ // 0x1114 @0x35
0x10df…1120 at0036 = ╱62╱b╱ // 0x1115 @0x36
0x10df…1120 at0037 = ╱6e╱n╱ // 0x1116 @0x37
0x10df…1120 at0038 = ╱69╱i╱ // 0x1117 @0x38
0x10df…1120 at0039 = ╱6e╱n╱ // 0x1118 @0x39
0x10df…1120 at003a = ╱67╱g╱ // 0x1119 @0x3a
0x10df…1120 at003b = ╱20╱…╱ // 0x111a @0x3b
0x10df…1120 at003c = ╱61╱a╱ // 0x111b @0x3c
0x10df…1120 at003d = ╱66╱f╱ // 0x111c @0x3d
0x10df…1120 at003e = ╱20╱…╱ // 0x111d @0x3e
0x10df…1120 at003f = ╱22╱"╱ // 0x111e @0x3f
0x10df…1120 at0040 = EOL // 0x111f @0x40
0x10df…1120 }
0x1120…1139 a727 01110 PRINT "<S>" ; FNAVN $ ; "…***"
0x1120…1139 LineComal80 {
0x1120…1139 ptr = 0xa727 // 0x1120 @0x0
0x1120…1139 lno = 0x0456 // 0x1122 @0x2
0x1120…1139 at0004 = ╱92╱ PRINT ╱ // 0x1124 @0x4
0x1120…1139 at0005 = ╱22╱"╱ // 0x1125 @0x5
0x1120…1139 at0006 = ╱3c╱<╱ // 0x1126 @0x6
0x1120…1139 at0007 = ╱53╱S╱ // 0x1127 @0x7
0x1120…1139 at0008 = ╱3e╱>╱ // 0x1128 @0x8
0x1120…1139 at0009 = ╱22╱"╱ // 0x1129 @0x9
0x1120…1139 at000a = ╱ea╱ ; ╱ // 0x112a @0xa
0x1120…1139 at000b = ╱46╱F╱ // 0x112b @0xb
0x1120…1139 at000c = ╱4e╱N╱ // 0x112c @0xc
0x1120…1139 at000d = ╱41╱A╱ // 0x112d @0xd
0x1120…1139 at000e = ╱56╱V╱ // 0x112e @0xe
0x1120…1139 at000f = ╱4e╱N╱ // 0x112f @0xf
0x1120…1139 at0010 = ╱ef╱ $ ╱ // 0x1130 @0x10
0x1120…1139 at0011 = ╱ea╱ ; ╱ // 0x1131 @0x11
0x1120…1139 at0012 = ╱22╱"╱ // 0x1132 @0x12
0x1120…1139 at0013 = ╱20╱…╱ // 0x1133 @0x13
0x1120…1139 at0014 = ╱2a╱*╱ // 0x1134 @0x14
0x1120…1139 at0015 = ╱2a╱*╱ // 0x1135 @0x15
0x1120…1139 at0016 = ╱2a╱*╱ // 0x1136 @0x16
0x1120…1139 at0017 = ╱22╱"╱ // 0x1137 @0x17
0x1120…1139 at0018 = EOL // 0x1138 @0x18
0x1120…1139 }
0x1139…1147 a735 01120 INPUT "" : SVAR $
0x1139…1147 LineComal80 {
0x1139…1147 ptr = 0xa735 // 0x1139 @0x0
0x1139…1147 lno = 0x0460 // 0x113b @0x2
0x1139…1147 at0004 = ╱91╱ INPUT ╱ // 0x113d @0x4
0x1139…1147 at0005 = ╱22╱"╱ // 0x113e @0x5
0x1139…1147 at0006 = ╱22╱"╱ // 0x113f @0x6
0x1139…1147 at0007 = ╱f1╱ : ╱ // 0x1140 @0x7
0x1139…1147 at0008 = ╱53╱S╱ // 0x1141 @0x8
0x1139…1147 at0009 = ╱56╱V╱ // 0x1142 @0x9
0x1139…1147 at000a = ╱41╱A╱ // 0x1143 @0xa
0x1139…1147 at000b = ╱52╱R╱ // 0x1144 @0xb
0x1139…1147 at000c = ╱ef╱ $ ╱ // 0x1145 @0xc
0x1139…1147 at000d = EOL // 0x1146 @0xd
0x1139…1147 }
0x1147…115b a749 01130 PRINT "<C0102>" ; SPC $
0x1147…115b LineComal80 {
0x1147…115b ptr = 0xa749 // 0x1147 @0x0
0x1147…115b lno = 0x046a // 0x1149 @0x2
0x1147…115b at0004 = ╱92╱ PRINT ╱ // 0x114b @0x4
0x1147…115b at0005 = ╱22╱"╱ // 0x114c @0x5
0x1147…115b at0006 = ╱3c╱<╱ // 0x114d @0x6
0x1147…115b at0007 = ╱43╱C╱ // 0x114e @0x7
0x1147…115b at0008 = ╱30╱0╱ // 0x114f @0x8
0x1147…115b at0009 = ╱31╱1╱ // 0x1150 @0x9
0x1147…115b at000a = ╱30╱0╱ // 0x1151 @0xa
0x1147…115b at000b = ╱32╱2╱ // 0x1152 @0xb
0x1147…115b at000c = ╱3e╱>╱ // 0x1153 @0xc
0x1147…115b at000d = ╱22╱"╱ // 0x1154 @0xd
0x1147…115b at000e = ╱ea╱ ; ╱ // 0x1155 @0xe
0x1147…115b at000f = ╱53╱S╱ // 0x1156 @0xf
0x1147…115b at0010 = ╱50╱P╱ // 0x1157 @0x10
0x1147…115b at0011 = ╱43╱C╱ // 0x1158 @0x11
0x1147…115b at0012 = ╱ef╱ $ ╱ // 0x1159 @0x12
0x1147…115b at0013 = EOL // 0x115a @0x13
0x1147…115b }
0x115b…1161 a74f 01140 ENDIF
0x115b…1161 LineComal80 {
0x115b…1161 ptr = 0xa74f // 0x115b @0x0
0x115b…1161 lno = 0x0474 // 0x115d @0x2
0x115b…1161 at0004 = ╱9c╱ ENDIF ╱ // 0x115f @0x4
0x115b…1161 at0005 = EOL // 0x1160 @0x5
0x115b…1161 }
0x1161…1167 a755 01150 ENDIF
0x1161…1167 LineComal80 {
0x1161…1167 ptr = 0xa755 // 0x1161 @0x0
0x1161…1167 lno = 0x047e // 0x1163 @0x2
0x1161…1167 at0004 = ╱9c╱ ENDIF ╱ // 0x1165 @0x4
0x1161…1167 at0005 = EOL // 0x1166 @0x5
0x1161…1167 }
0x1167…1177 a765 01160 UNTIL NOT ╱cd╱ ( FNAVN $ )
0x1167…1177 LineComal80 {
0x1167…1177 ptr = 0xa765 // 0x1167 @0x0
0x1167…1177 lno = 0x0488 // 0x1169 @0x2
0x1167…1177 at0004 = ╱98╱ UNTIL ╱ // 0x116b @0x4
0x1167…1177 at0005 = ╱d7╱ NOT ╱ // 0x116c @0x5
0x1167…1177 at0006 = ╱cd╱ // 0x116d @0x6
0x1167…1177 at0007 = ╱ed╱ ( ╱ // 0x116e @0x7
0x1167…1177 at0008 = ╱46╱F╱ // 0x116f @0x8
0x1167…1177 at0009 = ╱4e╱N╱ // 0x1170 @0x9
0x1167…1177 at000a = ╱41╱A╱ // 0x1171 @0xa
0x1167…1177 at000b = ╱56╱V╱ // 0x1172 @0xb
0x1167…1177 at000c = ╱4e╱N╱ // 0x1173 @0xc
0x1167…1177 at000d = ╱ef╱ $ ╱ // 0x1174 @0xd
0x1167…1177 at000e = ╱ee╱ ) ╱ // 0x1175 @0xe
0x1167…1177 at000f = EOL // 0x1176 @0xf
0x1167…1177 }
0x1177…1184 a772 01170 ENDPROC OPENFIL
0x1177…1184 LineComal80 {
0x1177…1184 ptr = 0xa772 // 0x1177 @0x0
0x1177…1184 lno = 0x0492 // 0x1179 @0x2
0x1177…1184 at0004 = ╱9f╱ ENDPROC ╱ // 0x117b @0x4
0x1177…1184 at0005 = ╱4f╱O╱ // 0x117c @0x5
0x1177…1184 at0006 = ╱50╱P╱ // 0x117d @0x6
0x1177…1184 at0007 = ╱45╱E╱ // 0x117e @0x7
0x1177…1184 at0008 = ╱4e╱N╱ // 0x117f @0x8
0x1177…1184 at0009 = ╱46╱F╱ // 0x1180 @0x9
0x1177…1184 at000a = ╱49╱I╱ // 0x1181 @0xa
0x1177…1184 at000b = ╱4c╱L╱ // 0x1182 @0xb
0x1177…1184 at000c = EOL // 0x1183 @0xc
0x1177…1184 }
0x1184…1189 a777 01180
0x1184…1189 LineComal80 {
0x1184…1189 ptr = 0xa777 // 0x1184 @0x0
0x1184…1189 lno = 0x049c // 0x1186 @0x2
0x1184…1189 at0004 = EOL // 0x1188 @0x4
0x1184…1189 }
0x1189…11a1 a78f 01190 PROC OVERSKRIFT ( ST $ , L )
0x1189…11a1 LineComal80 {
0x1189…11a1 ptr = 0xa78f // 0x1189 @0x0
0x1189…11a1 lno = 0x04a6 // 0x118b @0x2
0x1189…11a1 at0004 = ╱9e0e╱ PROC ╱ // 0x118d @0x4
0x1189…11a1 at0006 = ╱4f╱O╱ // 0x118f @0x6
0x1189…11a1 at0007 = ╱56╱V╱ // 0x1190 @0x7
0x1189…11a1 at0008 = ╱45╱E╱ // 0x1191 @0x8
0x1189…11a1 at0009 = ╱52╱R╱ // 0x1192 @0x9
0x1189…11a1 at000a = ╱53╱S╱ // 0x1193 @0xa
0x1189…11a1 at000b = ╱4b╱K╱ // 0x1194 @0xb
0x1189…11a1 at000c = ╱52╱R╱ // 0x1195 @0xc
0x1189…11a1 at000d = ╱49╱I╱ // 0x1196 @0xd
0x1189…11a1 at000e = ╱46╱F╱ // 0x1197 @0xe
0x1189…11a1 at000f = ╱54╱T╱ // 0x1198 @0xf
0x1189…11a1 at0010 = ╱ed╱ ( ╱ // 0x1199 @0x10
0x1189…11a1 at0011 = ╱53╱S╱ // 0x119a @0x11
0x1189…11a1 at0012 = ╱54╱T╱ // 0x119b @0x12
0x1189…11a1 at0013 = ╱ef╱ $ ╱ // 0x119c @0x13
0x1189…11a1 at0014 = ╱ec╱ , ╱ // 0x119d @0x14
0x1189…11a1 at0015 = ╱4c╱L╱ // 0x119e @0x15
0x1189…11a1 at0016 = ╱ee╱ ) ╱ // 0x119f @0x16
0x1189…11a1 at0017 = EOL // 0x11a0 @0x17
0x1189…11a1 }
0x11a1…11c7 a7b5 01200 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
0x11a1…11c7 LineComal80 {
0x11a1…11c7 ptr = 0xa7b5 // 0x11a1 @0x0
0x11a1…11c7 lno = 0x04b0 // 0x11a3 @0x2
0x11a1…11c7 at0004 = ╱92╱ PRINT ╱ // 0x11a5 @0x4
0x11a1…11c7 at0005 = ╱22╱"╱ // 0x11a6 @0x5
0x11a1…11c7 at0006 = ╱3c╱<╱ // 0x11a7 @0x6
0x11a1…11c7 at0007 = ╱58╱X╱ // 0x11a8 @0x7
0x11a1…11c7 at0008 = ╱43╱C╱ // 0x11a9 @0x8
0x11a1…11c7 at0009 = ╱30╱0╱ // 0x11aa @0x9
0x11a1…11c7 at000a = ╱31╱1╱ // 0x11ab @0xa
0x11a1…11c7 at000b = ╱30╱0╱ // 0x11ac @0xb
0x11a1…11c7 at000c = ╱31╱1╱ // 0x11ad @0xc
0x11a1…11c7 at000d = ╱3e╱>╱ // 0x11ae @0xd
0x11a1…11c7 at000e = ╱46╱F╱ // 0x11af @0xe
0x11a1…11c7 at000f = ╱69╱i╱ // 0x11b0 @0xf
0x11a1…11c7 at0010 = ╱72╱r╱ // 0x11b1 @0x10
0x11a1…11c7 at0011 = ╱6d╱m╱ // 0x11b2 @0x11
0x11a1…11c7 at0012 = ╱61╱a╱ // 0x11b3 @0x12
0x11a1…11c7 at0013 = ╱6e╱n╱ // 0x11b4 @0x13
0x11a1…11c7 at0014 = ╱61╱a╱ // 0x11b5 @0x14
0x11a1…11c7 at0015 = ╱76╱v╱ // 0x11b6 @0x15
0x11a1…11c7 at0016 = ╱6e╱n╱ // 0x11b7 @0x16
0x11a1…11c7 at0017 = ╱3a╱:╱ // 0x11b8 @0x17
0x11a1…11c7 at0018 = ╱20╱…╱ // 0x11b9 @0x18
0x11a1…11c7 at0019 = ╱22╱"╱ // 0x11ba @0x19
0x11a1…11c7 at001a = ╱ea╱ ; ╱ // 0x11bb @0x1a
0x11a1…11c7 at001b = ╱46╱F╱ // 0x11bc @0x1b
0x11a1…11c7 at001c = ╱49╱I╱ // 0x11bd @0x1c
0x11a1…11c7 at001d = ╱52╱R╱ // 0x11be @0x1d
0x11a1…11c7 at001e = ╱4d╱M╱ // 0x11bf @0x1e
0x11a1…11c7 at001f = ╱41╱A╱ // 0x11c0 @0x1f
0x11a1…11c7 at0020 = ╱4e╱N╱ // 0x11c1 @0x20
0x11a1…11c7 at0021 = ╱41╱A╱ // 0x11c2 @0x21
0x11a1…11c7 at0022 = ╱56╱V╱ // 0x11c3 @0x22
0x11a1…11c7 at0023 = ╱4e╱N╱ // 0x11c4 @0x23
0x11a1…11c7 at0024 = ╱ef╱ $ ╱ // 0x11c5 @0x24
0x11a1…11c7 at0025 = EOL // 0x11c6 @0x25
0x11a1…11c7 }
0x11c7…120f a7fd 01210 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
0x11c7…120f LineComal80 {
0x11c7…120f ptr = 0xa7fd // 0x11c7 @0x0
0x11c7…120f lno = 0x04ba // 0x11c9 @0x2
0x11c7…120f at0004 = ╱92╱ PRINT ╱ // 0x11cb @0x4
0x11c7…120f at0005 = ╱22╱"╱ // 0x11cc @0x5
0x11c7…120f at0006 = ╱3c╱<╱ // 0x11cd @0x6
0x11c7…120f at0007 = ╱53╱S╱ // 0x11ce @0x7
0x11c7…120f at0008 = ╱43╱C╱ // 0x11cf @0x8
0x11c7…120f at0009 = ╱36╱6╱ // 0x11d0 @0x9
0x11c7…120f at000a = ╱35╱5╱ // 0x11d1 @0xa
0x11c7…120f at000b = ╱30╱0╱ // 0x11d2 @0xb
0x11c7…120f at000c = ╱31╱1╱ // 0x11d3 @0xc
0x11c7…120f at000d = ╱3e╱>╱ // 0x11d4 @0xd
0x11c7…120f at000e = ╱44╱D╱ // 0x11d5 @0xe
0x11c7…120f at000f = ╱61╱a╱ // 0x11d6 @0xf
0x11c7…120f at0010 = ╱74╱t╱ // 0x11d7 @0x10
0x11c7…120f at0011 = ╱6f╱o╱ // 0x11d8 @0x11
0x11c7…120f at0012 = ╱3a╱:╱ // 0x11d9 @0x12
0x11c7…120f at0013 = ╱20╱…╱ // 0x11da @0x13
0x11c7…120f at0014 = ╱22╱"╱ // 0x11db @0x14
0x11c7…120f at0015 = ╱ea╱ ; ╱ // 0x11dc @0x15
0x11c7…120f at0016 = ╱53╱S╱ // 0x11dd @0x16
0x11c7…120f at0017 = ╱59╱Y╱ // 0x11de @0x17
0x11c7…120f at0018 = ╱53╱S╱ // 0x11df @0x18
0x11c7…120f at0019 = ╱54╱T╱ // 0x11e0 @0x19
0x11c7…120f at001a = ╱5f╱_╱ // 0x11e1 @0x1a
0x11c7…120f at001b = ╱44╱D╱ // 0x11e2 @0x1b
0x11c7…120f at001c = ╱41╱A╱ // 0x11e3 @0x1c
0x11c7…120f at001d = ╱54╱T╱ // 0x11e4 @0x1d
0x11c7…120f at001e = ╱ef╱ $ ╱ // 0x11e5 @0x1e
0x11c7…120f at001f = ╱ed╱ ( ╱ // 0x11e6 @0x1f
0x11c7…120f at0020 = ╱31╱1╱ // 0x11e7 @0x20
0x11c7…120f at0021 = ╱f20100╱ // 0x11e8 @0x21
0x11c7…120f at0024 = ╱f1╱ : ╱ // 0x11eb @0x24
0x11c7…120f at0025 = ╱32╱2╱ // 0x11ec @0x25
0x11c7…120f at0026 = ╱f20200╱ // 0x11ed @0x26
0x11c7…120f at0029 = ╱ee╱ ) ╱ // 0x11f0 @0x29
0x11c7…120f at002a = ╱ea╱ ; ╱ // 0x11f1 @0x2a
0x11c7…120f at002b = ╱22╱"╱ // 0x11f2 @0x2b
0x11c7…120f at002c = ╱2e╱.╱ // 0x11f3 @0x2c
0x11c7…120f at002d = ╱22╱"╱ // 0x11f4 @0x2d
0x11c7…120f at002e = ╱ea╱ ; ╱ // 0x11f5 @0x2e
0x11c7…120f at002f = ╱53╱S╱ // 0x11f6 @0x2f
0x11c7…120f at0030 = ╱59╱Y╱ // 0x11f7 @0x30
0x11c7…120f at0031 = ╱53╱S╱ // 0x11f8 @0x31
0x11c7…120f at0032 = ╱54╱T╱ // 0x11f9 @0x32
0x11c7…120f at0033 = ╱5f╱_╱ // 0x11fa @0x33
0x11c7…120f at0034 = ╱44╱D╱ // 0x11fb @0x34
0x11c7…120f at0035 = ╱41╱A╱ // 0x11fc @0x35
0x11c7…120f at0036 = ╱54╱T╱ // 0x11fd @0x36
0x11c7…120f at0037 = ╱ef╱ $ ╱ // 0x11fe @0x37
0x11c7…120f at0038 = ╱ed╱ ( ╱ // 0x11ff @0x38
0x11c7…120f at0039 = ╱33╱3╱ // 0x1200 @0x39
0x11c7…120f at003a = ╱f20300╱ // 0x1201 @0x3a
0x11c7…120f at003d = ╱f1╱ : ╱ // 0x1204 @0x3d
0x11c7…120f at003e = ╱32╱2╱ // 0x1205 @0x3e
0x11c7…120f at003f = ╱f20200╱ // 0x1206 @0x3f
0x11c7…120f at0042 = ╱ee╱ ) ╱ // 0x1209 @0x42
0x11c7…120f at0043 = ╱ea╱ ; ╱ // 0x120a @0x43
0x11c7…120f at0044 = ╱22╱"╱ // 0x120b @0x44
0x11c7…120f at0045 = ╱2e╱.╱ // 0x120c @0x45
0x11c7…120f at0046 = ╱22╱"╱ // 0x120d @0x46
0x11c7…120f at0047 = EOL // 0x120e @0x47
0x11c7…120f }
0x120f…1229 a817 01220 PRINT SYST_DAT $ ( 5 : 2 )
0x120f…1229 LineComal80 {
0x120f…1229 ptr = 0xa817 // 0x120f @0x0
0x120f…1229 lno = 0x04c4 // 0x1211 @0x2
0x120f…1229 at0004 = ╱92╱ PRINT ╱ // 0x1213 @0x4
0x120f…1229 at0005 = ╱53╱S╱ // 0x1214 @0x5
0x120f…1229 at0006 = ╱59╱Y╱ // 0x1215 @0x6
0x120f…1229 at0007 = ╱53╱S╱ // 0x1216 @0x7
0x120f…1229 at0008 = ╱54╱T╱ // 0x1217 @0x8
0x120f…1229 at0009 = ╱5f╱_╱ // 0x1218 @0x9
0x120f…1229 at000a = ╱44╱D╱ // 0x1219 @0xa
0x120f…1229 at000b = ╱41╱A╱ // 0x121a @0xb
0x120f…1229 at000c = ╱54╱T╱ // 0x121b @0xc
0x120f…1229 at000d = ╱ef╱ $ ╱ // 0x121c @0xd
0x120f…1229 at000e = ╱ed╱ ( ╱ // 0x121d @0xe
0x120f…1229 at000f = ╱35╱5╱ // 0x121e @0xf
0x120f…1229 at0010 = ╱f20500╱ // 0x121f @0x10
0x120f…1229 at0013 = ╱f1╱ : ╱ // 0x1222 @0x13
0x120f…1229 at0014 = ╱32╱2╱ // 0x1223 @0x14
0x120f…1229 at0015 = ╱f20200╱ // 0x1224 @0x15
0x120f…1229 at0018 = ╱ee╱ ) ╱ // 0x1227 @0x18
0x120f…1229 at0019 = EOL // 0x1228 @0x19
0x120f…1229 }
0x1229…1245 a833 01230 CURSOR 36 - INT ( ╱cb╱ ( ST $ ) / 2 ) , L
0x1229…1245 LineComal80 {
0x1229…1245 ptr = 0xa833 // 0x1229 @0x0
0x1229…1245 lno = 0x04ce // 0x122b @0x2
0x1229…1245 at0004 = ╱a1╱ CURSOR ╱ // 0x122d @0x4
0x1229…1245 at0005 = ╱33╱3╱ // 0x122e @0x5
0x1229…1245 at0006 = ╱36╱6╱ // 0x122f @0x6
0x1229…1245 at0007 = ╱f22400╱ // 0x1230 @0x7
0x1229…1245 at000a = ╱e6╱ - ╱ // 0x1233 @0xa
0x1229…1245 at000b = ╱c6╱ INT ╱ // 0x1234 @0xb
0x1229…1245 at000c = ╱ed╱ ( ╱ // 0x1235 @0xc
0x1229…1245 at000d = ╱cb╱ // 0x1236 @0xd
0x1229…1245 at000e = ╱ed╱ ( ╱ // 0x1237 @0xe
0x1229…1245 at000f = ╱53╱S╱ // 0x1238 @0xf
0x1229…1245 at0010 = ╱54╱T╱ // 0x1239 @0x10
0x1229…1245 at0011 = ╱ef╱ $ ╱ // 0x123a @0x11
0x1229…1245 at0012 = ╱ee╱ ) ╱ // 0x123b @0x12
0x1229…1245 at0013 = ╱e8╱ / ╱ // 0x123c @0x13
0x1229…1245 at0014 = ╱32╱2╱ // 0x123d @0x14
0x1229…1245 at0015 = ╱f20200╱ // 0x123e @0x15
0x1229…1245 at0018 = ╱ee╱ ) ╱ // 0x1241 @0x18
0x1229…1245 at0019 = ╱ec╱ , ╱ // 0x1242 @0x19
0x1229…1245 at001a = ╱4c╱L╱ // 0x1243 @0x1a
0x1229…1245 at001b = EOL // 0x1244 @0x1b
0x1229…1245 }
0x1245…125c a84a 01240 PRINT "***…" ; ST $ ; "…***"
0x1245…125c LineComal80 {
0x1245…125c ptr = 0xa84a // 0x1245 @0x0
0x1245…125c lno = 0x04d8 // 0x1247 @0x2
0x1245…125c at0004 = ╱92╱ PRINT ╱ // 0x1249 @0x4
0x1245…125c at0005 = ╱22╱"╱ // 0x124a @0x5
0x1245…125c at0006 = ╱2a╱*╱ // 0x124b @0x6
0x1245…125c at0007 = ╱2a╱*╱ // 0x124c @0x7
0x1245…125c at0008 = ╱2a╱*╱ // 0x124d @0x8
0x1245…125c at0009 = ╱20╱…╱ // 0x124e @0x9
0x1245…125c at000a = ╱22╱"╱ // 0x124f @0xa
0x1245…125c at000b = ╱ea╱ ; ╱ // 0x1250 @0xb
0x1245…125c at000c = ╱53╱S╱ // 0x1251 @0xc
0x1245…125c at000d = ╱54╱T╱ // 0x1252 @0xd
0x1245…125c at000e = ╱ef╱ $ ╱ // 0x1253 @0xe
0x1245…125c at000f = ╱ea╱ ; ╱ // 0x1254 @0xf
0x1245…125c at0010 = ╱22╱"╱ // 0x1255 @0x10
0x1245…125c at0011 = ╱20╱…╱ // 0x1256 @0x11
0x1245…125c at0012 = ╱2a╱*╱ // 0x1257 @0x12
0x1245…125c at0013 = ╱2a╱*╱ // 0x1258 @0x13
0x1245…125c at0014 = ╱2a╱*╱ // 0x1259 @0x14
0x1245…125c at0015 = ╱22╱"╱ // 0x125a @0x15
0x1245…125c at0016 = EOL // 0x125b @0x16
0x1245…125c }
0x125c…126c a85a 01250 ENDPROC OVERSKRIFT
0x125c…126c LineComal80 {
0x125c…126c ptr = 0xa85a // 0x125c @0x0
0x125c…126c lno = 0x04e2 // 0x125e @0x2
0x125c…126c at0004 = ╱9f╱ ENDPROC ╱ // 0x1260 @0x4
0x125c…126c at0005 = ╱4f╱O╱ // 0x1261 @0x5
0x125c…126c at0006 = ╱56╱V╱ // 0x1262 @0x6
0x125c…126c at0007 = ╱45╱E╱ // 0x1263 @0x7
0x125c…126c at0008 = ╱52╱R╱ // 0x1264 @0x8
0x125c…126c at0009 = ╱53╱S╱ // 0x1265 @0x9
0x125c…126c at000a = ╱4b╱K╱ // 0x1266 @0xa
0x125c…126c at000b = ╱52╱R╱ // 0x1267 @0xb
0x125c…126c at000c = ╱49╱I╱ // 0x1268 @0xc
0x125c…126c at000d = ╱46╱F╱ // 0x1269 @0xd
0x125c…126c at000e = ╱54╱T╱ // 0x126a @0xe
0x125c…126c at000f = EOL // 0x126b @0xf
0x125c…126c }
0x126c…1271 a85f 01260
0x126c…1271 LineComal80 {
0x126c…1271 ptr = 0xa85f // 0x126c @0x0
0x126c…1271 lno = 0x04ec // 0x126e @0x2
0x126c…1271 at0004 = EOL // 0x1270 @0x4
0x126c…1271 }
0x1271…1284 a872 01270 PROC SL_FEJLLINIE
0x1271…1284 LineComal80 {
0x1271…1284 ptr = 0xa872 // 0x1271 @0x0
0x1271…1284 lno = 0x04f6 // 0x1273 @0x2
0x1271…1284 at0004 = ╱9e0f╱ PROC ╱ // 0x1275 @0x4
0x1271…1284 at0006 = ╱53╱S╱ // 0x1277 @0x6
0x1271…1284 at0007 = ╱4c╱L╱ // 0x1278 @0x7
0x1271…1284 at0008 = ╱5f╱_╱ // 0x1279 @0x8
0x1271…1284 at0009 = ╱46╱F╱ // 0x127a @0x9
0x1271…1284 at000a = ╱45╱E╱ // 0x127b @0xa
0x1271…1284 at000b = ╱4a╱J╱ // 0x127c @0xb
0x1271…1284 at000c = ╱4c╱L╱ // 0x127d @0xc
0x1271…1284 at000d = ╱4c╱L╱ // 0x127e @0xd
0x1271…1284 at000e = ╱49╱I╱ // 0x127f @0xe
0x1271…1284 at000f = ╱4e╱N╱ // 0x1280 @0xf
0x1271…1284 at0010 = ╱49╱I╱ // 0x1281 @0x10
0x1271…1284 at0011 = ╱45╱E╱ // 0x1282 @0x11
0x1271…1284 at0012 = EOL // 0x1283 @0x12
0x1271…1284 }
0x1284…1291 a87f 01280 LET OK := TRUE
0x1284…1291 LineComal80 {
0x1284…1291 ptr = 0xa87f // 0x1284 @0x0
0x1284…1291 lno = 0x0500 // 0x1286 @0x2
0x1284…1291 at0004 = ╱86╱ LET ╱ // 0x1288 @0x4
0x1284…1291 at0005 = ╱4f╱O╱ // 0x1289 @0x5
0x1284…1291 at0006 = ╱4b╱K╱ // 0x128a @0x6
0x1284…1291 at0007 = ╱f0╱ := ╱ // 0x128b @0x7
0x1284…1291 at0008 = ╱54╱T╱ // 0x128c @0x8
0x1284…1291 at0009 = ╱52╱R╱ // 0x128d @0x9
0x1284…1291 at000a = ╱55╱U╱ // 0x128e @0xa
0x1284…1291 at000b = ╱45╱E╱ // 0x128f @0xb
0x1284…1291 at000c = EOL // 0x1290 @0xc
0x1284…1291 }
0x1291…12a5 a893 01290 PRINT "<C0102>" ; SPC $
0x1291…12a5 LineComal80 {
0x1291…12a5 ptr = 0xa893 // 0x1291 @0x0
0x1291…12a5 lno = 0x050a // 0x1293 @0x2
0x1291…12a5 at0004 = ╱92╱ PRINT ╱ // 0x1295 @0x4
0x1291…12a5 at0005 = ╱22╱"╱ // 0x1296 @0x5
0x1291…12a5 at0006 = ╱3c╱<╱ // 0x1297 @0x6
0x1291…12a5 at0007 = ╱43╱C╱ // 0x1298 @0x7
0x1291…12a5 at0008 = ╱30╱0╱ // 0x1299 @0x8
0x1291…12a5 at0009 = ╱31╱1╱ // 0x129a @0x9
0x1291…12a5 at000a = ╱30╱0╱ // 0x129b @0xa
0x1291…12a5 at000b = ╱32╱2╱ // 0x129c @0xb
0x1291…12a5 at000c = ╱3e╱>╱ // 0x129d @0xc
0x1291…12a5 at000d = ╱22╱"╱ // 0x129e @0xd
0x1291…12a5 at000e = ╱ea╱ ; ╱ // 0x129f @0xe
0x1291…12a5 at000f = ╱53╱S╱ // 0x12a0 @0xf
0x1291…12a5 at0010 = ╱50╱P╱ // 0x12a1 @0x10
0x1291…12a5 at0011 = ╱43╱C╱ // 0x12a2 @0x11
0x1291…12a5 at0012 = ╱ef╱ $ ╱ // 0x12a3 @0x12
0x1291…12a5 at0013 = EOL // 0x12a4 @0x13
0x1291…12a5 }
0x12a5…12b7 a8a5 01300 ENDPROC SL_FEJLLINIE
0x12a5…12b7 LineComal80 {
0x12a5…12b7 ptr = 0xa8a5 // 0x12a5 @0x0
0x12a5…12b7 lno = 0x0514 // 0x12a7 @0x2
0x12a5…12b7 at0004 = ╱9f╱ ENDPROC ╱ // 0x12a9 @0x4
0x12a5…12b7 at0005 = ╱53╱S╱ // 0x12aa @0x5
0x12a5…12b7 at0006 = ╱4c╱L╱ // 0x12ab @0x6
0x12a5…12b7 at0007 = ╱5f╱_╱ // 0x12ac @0x7
0x12a5…12b7 at0008 = ╱46╱F╱ // 0x12ad @0x8
0x12a5…12b7 at0009 = ╱45╱E╱ // 0x12ae @0x9
0x12a5…12b7 at000a = ╱4a╱J╱ // 0x12af @0xa
0x12a5…12b7 at000b = ╱4c╱L╱ // 0x12b0 @0xb
0x12a5…12b7 at000c = ╱4c╱L╱ // 0x12b1 @0xc
0x12a5…12b7 at000d = ╱49╱I╱ // 0x12b2 @0xd
0x12a5…12b7 at000e = ╱4e╱N╱ // 0x12b3 @0xe
0x12a5…12b7 at000f = ╱49╱I╱ // 0x12b4 @0xf
0x12a5…12b7 at0010 = ╱45╱E╱ // 0x12b5 @0x10
0x12a5…12b7 at0011 = EOL // 0x12b6 @0x11
0x12a5…12b7 }
0x12b7…12bc a8aa 01310
0x12b7…12bc LineComal80 {
0x12b7…12bc ptr = 0xa8aa // 0x12b7 @0x0
0x12b7…12bc lno = 0x051e // 0x12b9 @0x2
0x12b7…12bc at0004 = EOL // 0x12bb @0x4
0x12b7…12bc }
0x12bc…12cc a8ba 01320 PROC FEJL ( ST $ )
0x12bc…12cc LineComal80 {
0x12bc…12cc ptr = 0xa8ba // 0x12bc @0x0
0x12bc…12cc lno = 0x0528 // 0x12be @0x2
0x12bc…12cc at0004 = ╱9e10╱ PROC ╱ // 0x12c0 @0x4
0x12bc…12cc at0006 = ╱46╱F╱ // 0x12c2 @0x6
0x12bc…12cc at0007 = ╱45╱E╱ // 0x12c3 @0x7
0x12bc…12cc at0008 = ╱4a╱J╱ // 0x12c4 @0x8
0x12bc…12cc at0009 = ╱4c╱L╱ // 0x12c5 @0x9
0x12bc…12cc at000a = ╱ed╱ ( ╱ // 0x12c6 @0xa
0x12bc…12cc at000b = ╱53╱S╱ // 0x12c7 @0xb
0x12bc…12cc at000c = ╱54╱T╱ // 0x12c8 @0xc
0x12bc…12cc at000d = ╱ef╱ $ ╱ // 0x12c9 @0xd
0x12bc…12cc at000e = ╱ee╱ ) ╱ // 0x12ca @0xe
0x12bc…12cc at000f = EOL // 0x12cb @0xf
0x12bc…12cc }
0x12cc…12da a8c8 01330 LET OK := FALSE
0x12cc…12da LineComal80 {
0x12cc…12da ptr = 0xa8c8 // 0x12cc @0x0
0x12cc…12da lno = 0x0532 // 0x12ce @0x2
0x12cc…12da at0004 = ╱86╱ LET ╱ // 0x12d0 @0x4
0x12cc…12da at0005 = ╱4f╱O╱ // 0x12d1 @0x5
0x12cc…12da at0006 = ╱4b╱K╱ // 0x12d2 @0x6
0x12cc…12da at0007 = ╱f0╱ := ╱ // 0x12d3 @0x7
0x12cc…12da at0008 = ╱46╱F╱ // 0x12d4 @0x8
0x12cc…12da at0009 = ╱41╱A╱ // 0x12d5 @0x9
0x12cc…12da at000a = ╱4c╱L╱ // 0x12d6 @0xa
0x12cc…12da at000b = ╱53╱S╱ // 0x12d7 @0xb
0x12cc…12da at000c = ╱45╱E╱ // 0x12d8 @0xc
0x12cc…12da at000d = EOL // 0x12d9 @0xd
0x12cc…12da }
0x12da…12f6 a8e4 01340 CURSOR 36 - ╱cb╱ ( ST $ ) / 2 , 2
0x12da…12f6 LineComal80 {
0x12da…12f6 ptr = 0xa8e4 // 0x12da @0x0
0x12da…12f6 lno = 0x053c // 0x12dc @0x2
0x12da…12f6 at0004 = ╱a1╱ CURSOR ╱ // 0x12de @0x4
0x12da…12f6 at0005 = ╱33╱3╱ // 0x12df @0x5
0x12da…12f6 at0006 = ╱36╱6╱ // 0x12e0 @0x6
0x12da…12f6 at0007 = ╱f22400╱ // 0x12e1 @0x7
0x12da…12f6 at000a = ╱e6╱ - ╱ // 0x12e4 @0xa
0x12da…12f6 at000b = ╱cb╱ // 0x12e5 @0xb
0x12da…12f6 at000c = ╱ed╱ ( ╱ // 0x12e6 @0xc
0x12da…12f6 at000d = ╱53╱S╱ // 0x12e7 @0xd
0x12da…12f6 at000e = ╱54╱T╱ // 0x12e8 @0xe
0x12da…12f6 at000f = ╱ef╱ $ ╱ // 0x12e9 @0xf
0x12da…12f6 at0010 = ╱ee╱ ) ╱ // 0x12ea @0x10
0x12da…12f6 at0011 = ╱e8╱ / ╱ // 0x12eb @0x11
0x12da…12f6 at0012 = ╱32╱2╱ // 0x12ec @0x12
0x12da…12f6 at0013 = ╱f20200╱ // 0x12ed @0x13
0x12da…12f6 at0016 = ╱ec╱ , ╱ // 0x12f0 @0x16
0x12da…12f6 at0017 = ╱32╱2╱ // 0x12f1 @0x17
0x12da…12f6 at0018 = ╱f20200╱ // 0x12f2 @0x18
0x12da…12f6 at001b = EOL // 0x12f5 @0x1b
0x12da…12f6 }
0x12f6…1315 a903 01350 PRINT "***…" + ST $ + "…***" ; CHR$ ( 7 )
0x12f6…1315 LineComal80 {
0x12f6…1315 ptr = 0xa903 // 0x12f6 @0x0
0x12f6…1315 lno = 0x0546 // 0x12f8 @0x2
0x12f6…1315 at0004 = ╱92╱ PRINT ╱ // 0x12fa @0x4
0x12f6…1315 at0005 = ╱22╱"╱ // 0x12fb @0x5
0x12f6…1315 at0006 = ╱2a╱*╱ // 0x12fc @0x6
0x12f6…1315 at0007 = ╱2a╱*╱ // 0x12fd @0x7
0x12f6…1315 at0008 = ╱2a╱*╱ // 0x12fe @0x8
0x12f6…1315 at0009 = ╱20╱…╱ // 0x12ff @0x9
0x12f6…1315 at000a = ╱22╱"╱ // 0x1300 @0xa
0x12f6…1315 at000b = ╱eb╱ + ╱ // 0x1301 @0xb
0x12f6…1315 at000c = ╱53╱S╱ // 0x1302 @0xc
0x12f6…1315 at000d = ╱54╱T╱ // 0x1303 @0xd
0x12f6…1315 at000e = ╱ef╱ $ ╱ // 0x1304 @0xe
0x12f6…1315 at000f = ╱eb╱ + ╱ // 0x1305 @0xf
0x12f6…1315 at0010 = ╱22╱"╱ // 0x1306 @0x10
0x12f6…1315 at0011 = ╱20╱…╱ // 0x1307 @0x11
0x12f6…1315 at0012 = ╱2a╱*╱ // 0x1308 @0x12
0x12f6…1315 at0013 = ╱2a╱*╱ // 0x1309 @0x13
0x12f6…1315 at0014 = ╱2a╱*╱ // 0x130a @0x14
0x12f6…1315 at0015 = ╱22╱"╱ // 0x130b @0x15
0x12f6…1315 at0016 = ╱ea╱ ; ╱ // 0x130c @0x16
0x12f6…1315 at0017 = ╱d0╱ CHR$ ╱ // 0x130d @0x17
0x12f6…1315 at0018 = ╱ed╱ ( ╱ // 0x130e @0x18
0x12f6…1315 at0019 = ╱37╱7╱ // 0x130f @0x19
0x12f6…1315 at001a = ╱f20700╱ // 0x1310 @0x1a
0x12f6…1315 at001d = ╱ee╱ ) ╱ // 0x1313 @0x1d
0x12f6…1315 at001e = EOL // 0x1314 @0x1e
0x12f6…1315 }
0x1315…131f a90d 01360 ENDPROC FEJL
0x1315…131f LineComal80 {
0x1315…131f ptr = 0xa90d // 0x1315 @0x0
0x1315…131f lno = 0x0550 // 0x1317 @0x2
0x1315…131f at0004 = ╱9f╱ ENDPROC ╱ // 0x1319 @0x4
0x1315…131f at0005 = ╱46╱F╱ // 0x131a @0x5
0x1315…131f at0006 = ╱45╱E╱ // 0x131b @0x6
0x1315…131f at0007 = ╱4a╱J╱ // 0x131c @0x7
0x1315…131f at0008 = ╱4c╱L╱ // 0x131d @0x8
0x1315…131f at0009 = EOL // 0x131e @0x9
0x1315…131f }
0x131f…1324 a912 01370
0x131f…1324 LineComal80 {
0x131f…1324 ptr = 0xa912 // 0x131f @0x0
0x131f…1324 lno = 0x055a // 0x1321 @0x2
0x131f…1324 at0004 = EOL // 0x1323 @0x4
0x131f…1324 }
0x1324…133e a92c 01380 PROC FIND_KTO ( REF R_KTONR $ )
0x1324…133e LineComal80 {
0x1324…133e ptr = 0xa92c // 0x1324 @0x0
0x1324…133e lno = 0x0564 // 0x1326 @0x2
0x1324…133e at0004 = ╱9e11╱ PROC ╱ // 0x1328 @0x4
0x1324…133e at0006 = ╱46╱F╱ // 0x132a @0x6
0x1324…133e at0007 = ╱49╱I╱ // 0x132b @0x7
0x1324…133e at0008 = ╱4e╱N╱ // 0x132c @0x8
0x1324…133e at0009 = ╱44╱D╱ // 0x132d @0x9
0x1324…133e at000a = ╱5f╱_╱ // 0x132e @0xa
0x1324…133e at000b = ╱4b╱K╱ // 0x132f @0xb
0x1324…133e at000c = ╱54╱T╱ // 0x1330 @0xc
0x1324…133e at000d = ╱4f╱O╱ // 0x1331 @0xd
0x1324…133e at000e = ╱ed╱ ( ╱ // 0x1332 @0xe
0x1324…133e at000f = ╱b6╱ REF ╱ // 0x1333 @0xf
0x1324…133e at0010 = ╱52╱R╱ // 0x1334 @0x10
0x1324…133e at0011 = ╱5f╱_╱ // 0x1335 @0x11
0x1324…133e at0012 = ╱4b╱K╱ // 0x1336 @0x12
0x1324…133e at0013 = ╱54╱T╱ // 0x1337 @0x13
0x1324…133e at0014 = ╱4f╱O╱ // 0x1338 @0x14
0x1324…133e at0015 = ╱4e╱N╱ // 0x1339 @0x15
0x1324…133e at0016 = ╱52╱R╱ // 0x133a @0x16
0x1324…133e at0017 = ╱ef╱ $ ╱ // 0x133b @0x17
0x1324…133e at0018 = ╱ee╱ ) ╱ // 0x133c @0x18
0x1324…133e at0019 = EOL // 0x133d @0x19
0x1324…133e }
0x133e…134c a93a 01390 LET OK := FALSE
0x133e…134c LineComal80 {
0x133e…134c ptr = 0xa93a // 0x133e @0x0
0x133e…134c lno = 0x056e // 0x1340 @0x2
0x133e…134c at0004 = ╱86╱ LET ╱ // 0x1342 @0x4
0x133e…134c at0005 = ╱4f╱O╱ // 0x1343 @0x5
0x133e…134c at0006 = ╱4b╱K╱ // 0x1344 @0x6
0x133e…134c at0007 = ╱f0╱ := ╱ // 0x1345 @0x7
0x133e…134c at0008 = ╱46╱F╱ // 0x1346 @0x8
0x133e…134c at0009 = ╱41╱A╱ // 0x1347 @0x9
0x133e…134c at000a = ╱4c╱L╱ // 0x1348 @0xa
0x133e…134c at000b = ╱53╱S╱ // 0x1349 @0xb
0x133e…134c at000c = ╱45╱E╱ // 0x134a @0xc
0x133e…134c at000d = EOL // 0x134b @0xd
0x133e…134c }
0x134c…1370 a95e 01400 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
0x134c…1370 LineComal80 {
0x134c…1370 ptr = 0xa95e // 0x134c @0x0
0x134c…1370 lno = 0x0578 // 0x134e @0x2
0x134c…1370 at0004 = ╱a9╱ GET ╱ // 0x1350 @0x4
0x134c…1370 at0005 = ╱4b╱K╱ // 0x1351 @0x5
0x134c…1370 at0006 = ╱54╱T╱ // 0x1352 @0x6
0x134c…1370 at0007 = ╱4f╱O╱ // 0x1353 @0x7
0x134c…1370 at0008 = ╱49╱I╱ // 0x1354 @0x8
0x134c…1370 at0009 = ╱44╱D╱ // 0x1355 @0x9
0x134c…1370 at000a = ╱58╱X╱ // 0x1356 @0xa
0x134c…1370 at000b = ╱ef╱ $ ╱ // 0x1357 @0xb
0x134c…1370 at000c = ╱ec╱ , ╱ // 0x1358 @0xc
0x134c…1370 at000d = ╱31╱1╱ // 0x1359 @0xd
0x134c…1370 at000e = ╱f20100╱ // 0x135a @0xe
0x134c…1370 at0011 = ╱f1╱ : ╱ // 0x135d @0x11
0x134c…1370 at0012 = ╱49╱I╱ // 0x135e @0x12
0x134c…1370 at0013 = ╱5f╱_╱ // 0x135f @0x13
0x134c…1370 at0014 = ╱48╱H╱ // 0x1360 @0x14
0x134c…1370 at0015 = ╱5c╱\╱ // 0x1361 @0x15
0x134c…1370 at0016 = ╱4a╱J╱ // 0x1362 @0x16
0x134c…1370 at0017 = ╱52╱R╱ // 0x1363 @0x17
0x134c…1370 at0018 = ╱45╱E╱ // 0x1364 @0x18
0x134c…1370 at0019 = ╱43╱C╱ // 0x1365 @0x19
0x134c…1370 at001a = ╱ec╱ , ╱ // 0x1366 @0x1a
0x134c…1370 at001b = ╱49╱I╱ // 0x1367 @0x1b
0x134c…1370 at001c = ╱5f╱_╱ // 0x1368 @0x1c
0x134c…1370 at001d = ╱4d╱M╱ // 0x1369 @0x1d
0x134c…1370 at001e = ╱41╱A╱ // 0x136a @0x1e
0x134c…1370 at001f = ╱58╱X╱ // 0x136b @0x1f
0x134c…1370 at0020 = ╱52╱R╱ // 0x136c @0x20
0x134c…1370 at0021 = ╱45╱E╱ // 0x136d @0x21
0x134c…1370 at0022 = ╱43╱C╱ // 0x136e @0x22
0x134c…1370 at0023 = EOL // 0x136f @0x23
0x134c…1370 }
0x1370…1395 a983 01410 LET LOW := 1 ; HIGH := I_H\JREC ; POS := 2
0x1370…1395 LineComal80 {
0x1370…1395 ptr = 0xa983 // 0x1370 @0x0
0x1370…1395 lno = 0x0582 // 0x1372 @0x2
0x1370…1395 at0004 = ╱86╱ LET ╱ // 0x1374 @0x4
0x1370…1395 at0005 = ╱4c╱L╱ // 0x1375 @0x5
0x1370…1395 at0006 = ╱4f╱O╱ // 0x1376 @0x6
0x1370…1395 at0007 = ╱57╱W╱ // 0x1377 @0x7
0x1370…1395 at0008 = ╱f0╱ := ╱ // 0x1378 @0x8
0x1370…1395 at0009 = ╱31╱1╱ // 0x1379 @0x9
0x1370…1395 at000a = ╱f20100╱ // 0x137a @0xa
0x1370…1395 at000d = ╱ea╱ ; ╱ // 0x137d @0xd
0x1370…1395 at000e = ╱48╱H╱ // 0x137e @0xe
0x1370…1395 at000f = ╱49╱I╱ // 0x137f @0xf
0x1370…1395 at0010 = ╱47╱G╱ // 0x1380 @0x10
0x1370…1395 at0011 = ╱48╱H╱ // 0x1381 @0x11
0x1370…1395 at0012 = ╱f0╱ := ╱ // 0x1382 @0x12
0x1370…1395 at0013 = ╱49╱I╱ // 0x1383 @0x13
0x1370…1395 at0014 = ╱5f╱_╱ // 0x1384 @0x14
0x1370…1395 at0015 = ╱48╱H╱ // 0x1385 @0x15
0x1370…1395 at0016 = ╱5c╱\╱ // 0x1386 @0x16
0x1370…1395 at0017 = ╱4a╱J╱ // 0x1387 @0x17
0x1370…1395 at0018 = ╱52╱R╱ // 0x1388 @0x18
0x1370…1395 at0019 = ╱45╱E╱ // 0x1389 @0x19
0x1370…1395 at001a = ╱43╱C╱ // 0x138a @0x1a
0x1370…1395 at001b = ╱ea╱ ; ╱ // 0x138b @0x1b
0x1370…1395 at001c = ╱50╱P╱ // 0x138c @0x1c
0x1370…1395 at001d = ╱4f╱O╱ // 0x138d @0x1d
0x1370…1395 at001e = ╱53╱S╱ // 0x138e @0x1e
0x1370…1395 at001f = ╱f0╱ := ╱ // 0x138f @0x1f
0x1370…1395 at0020 = ╱32╱2╱ // 0x1390 @0x20
0x1370…1395 at0021 = ╱f20200╱ // 0x1391 @0x21
0x1370…1395 at0024 = EOL // 0x1394 @0x24
0x1370…1395 }
0x1395…13a6 a994 01420 IF IGH > 1 THEN
0x1395…13a6 LineComal80 {
0x1395…13a6 ptr = 0xa994 // 0x1395 @0x0
0x1395…13a6 lno = 0x058c // 0x1397 @0x2
0x1395…13a6 at0004 = ╱9b1248╱ IF ╱ // 0x1399 @0x4
0x1395…13a6 at0007 = ╱49╱I╱ // 0x139c @0x7
0x1395…13a6 at0008 = ╱47╱G╱ // 0x139d @0x8
0x1395…13a6 at0009 = ╱48╱H╱ // 0x139e @0x9
0x1395…13a6 at000a = ╱e1╱ > ╱ // 0x139f @0xa
0x1395…13a6 at000b = ╱31╱1╱ // 0x13a0 @0xb
0x1395…13a6 at000c = ╱f20100╱ // 0x13a1 @0xc
0x1395…13a6 at000f = ╱b5╱ THEN ╱ // 0x13a4 @0xf
0x1395…13a6 at0010 = EOL // 0x13a5 @0x10
0x1395…13a6 }
0x13a6…13ad a99b 01430 REPEAT
0x13a6…13ad LineComal80 {
0x13a6…13ad ptr = 0xa99b // 0x13a6 @0x0
0x13a6…13ad lno = 0x0596 // 0x13a8 @0x2
0x13a6…13ad at0004 = ╱9713╱ REPEAT ╱ // 0x13aa @0x4
0x13a6…13ad at0006 = EOL // 0x13ac @0x6
0x13a6…13ad }
0x13ad…13d9 a9c7 01440 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
0x13ad…13d9 LineComal80 {
0x13ad…13d9 ptr = 0xa9c7 // 0x13ad @0x0
0x13ad…13d9 lno = 0x05a0 // 0x13af @0x2
0x13ad…13d9 at0004 = ╱86╱ LET ╱ // 0x13b1 @0x4
0x13ad…13d9 at0005 = ╱50╱P╱ // 0x13b2 @0x5
0x13ad…13d9 at0006 = ╱4f╱O╱ // 0x13b3 @0x6
0x13ad…13d9 at0007 = ╱53╱S╱ // 0x13b4 @0x7
0x13ad…13d9 at0008 = ╱f0╱ := ╱ // 0x13b5 @0x8
0x13ad…13d9 at0009 = ╱c6╱ INT ╱ // 0x13b6 @0x9
0x13ad…13d9 at000a = ╱ed╱ ( ╱ // 0x13b7 @0xa
0x13ad…13d9 at000b = ╱ed╱ ( ╱ // 0x13b8 @0xb
0x13ad…13d9 at000c = ╱48╱H╱ // 0x13b9 @0xc
0x13ad…13d9 at000d = ╱49╱I╱ // 0x13ba @0xd
0x13ad…13d9 at000e = ╱47╱G╱ // 0x13bb @0xe
0x13ad…13d9 at000f = ╱48╱H╱ // 0x13bc @0xf
0x13ad…13d9 at0010 = ╱e6╱ - ╱ // 0x13bd @0x10
0x13ad…13d9 at0011 = ╱4c╱L╱ // 0x13be @0x11
0x13ad…13d9 at0012 = ╱4f╱O╱ // 0x13bf @0x12
0x13ad…13d9 at0013 = ╱57╱W╱ // 0x13c0 @0x13
0x13ad…13d9 at0014 = ╱ee╱ ) ╱ // 0x13c1 @0x14
0x13ad…13d9 at0015 = ╱e8╱ / ╱ // 0x13c2 @0x15
0x13ad…13d9 at0016 = ╱32╱2╱ // 0x13c3 @0x16
0x13ad…13d9 at0017 = ╱f20200╱ // 0x13c4 @0x17
0x13ad…13d9 at001a = ╱e5╱ + ╱ // 0x13c7 @0x1a
0x13ad…13d9 at001b = ╱2e╱.╱ // 0x13c8 @0x1b
0x13ad…13d9 at001c = ╱35╱5╱ // 0x13c9 @0x1c
0x13ad…13d9 at001d = ╱f88000000000000005╱ // 0x13ca @0x1d
0x13ad…13d9 at0026 = ╱ee╱ ) ╱ // 0x13d3 @0x26
0x13ad…13d9 at0027 = ╱e5╱ + ╱ // 0x13d4 @0x27
0x13ad…13d9 at0028 = ╱4c╱L╱ // 0x13d5 @0x28
0x13ad…13d9 at0029 = ╱4f╱O╱ // 0x13d6 @0x29
0x13ad…13d9 at002a = ╱57╱W╱ // 0x13d7 @0x2a
0x13ad…13d9 at002b = EOL // 0x13d8 @0x2b
0x13ad…13d9 }
0x13d9…13f7 a9e5 01450 GET KTOIDX $ , POS : KTONR $ , RECNR
0x13d9…13f7 LineComal80 {
0x13d9…13f7 ptr = 0xa9e5 // 0x13d9 @0x0
0x13d9…13f7 lno = 0x05aa // 0x13db @0x2
0x13d9…13f7 at0004 = ╱a9╱ GET ╱ // 0x13dd @0x4
0x13d9…13f7 at0005 = ╱4b╱K╱ // 0x13de @0x5
0x13d9…13f7 at0006 = ╱54╱T╱ // 0x13df @0x6
0x13d9…13f7 at0007 = ╱4f╱O╱ // 0x13e0 @0x7
0x13d9…13f7 at0008 = ╱49╱I╱ // 0x13e1 @0x8
0x13d9…13f7 at0009 = ╱44╱D╱ // 0x13e2 @0x9
0x13d9…13f7 at000a = ╱58╱X╱ // 0x13e3 @0xa
0x13d9…13f7 at000b = ╱ef╱ $ ╱ // 0x13e4 @0xb
0x13d9…13f7 at000c = ╱ec╱ , ╱ // 0x13e5 @0xc
0x13d9…13f7 at000d = ╱50╱P╱ // 0x13e6 @0xd
0x13d9…13f7 at000e = ╱4f╱O╱ // 0x13e7 @0xe
0x13d9…13f7 at000f = ╱53╱S╱ // 0x13e8 @0xf
0x13d9…13f7 at0010 = ╱f1╱ : ╱ // 0x13e9 @0x10
0x13d9…13f7 at0011 = ╱4b╱K╱ // 0x13ea @0x11
0x13d9…13f7 at0012 = ╱54╱T╱ // 0x13eb @0x12
0x13d9…13f7 at0013 = ╱4f╱O╱ // 0x13ec @0x13
0x13d9…13f7 at0014 = ╱4e╱N╱ // 0x13ed @0x14
0x13d9…13f7 at0015 = ╱52╱R╱ // 0x13ee @0x15
0x13d9…13f7 at0016 = ╱ef╱ $ ╱ // 0x13ef @0x16
0x13d9…13f7 at0017 = ╱ec╱ , ╱ // 0x13f0 @0x17
0x13d9…13f7 at0018 = ╱52╱R╱ // 0x13f1 @0x18
0x13d9…13f7 at0019 = ╱45╱E╱ // 0x13f2 @0x19
0x13d9…13f7 at001a = ╱43╱C╱ // 0x13f3 @0x1a
0x13d9…13f7 at001b = ╱4e╱N╱ // 0x13f4 @0x1b
0x13d9…13f7 at001c = ╱52╱R╱ // 0x13f5 @0x1c
0x13d9…13f7 at001d = EOL // 0x13f6 @0x1d
0x13d9…13f7 }
0x13f7…140e a9fc 01460 IF TONR $ > R_KTONR $ THEN
0x13f7…140e LineComal80 {
0x13f7…140e ptr = 0xa9fc // 0x13f7 @0x0
0x13f7…140e lno = 0x05b4 // 0x13f9 @0x2
0x13f7…140e at0004 = ╱9b144b╱ IF ╱ // 0x13fb @0x4
0x13f7…140e at0007 = ╱54╱T╱ // 0x13fe @0x7
0x13f7…140e at0008 = ╱4f╱O╱ // 0x13ff @0x8
0x13f7…140e at0009 = ╱4e╱N╱ // 0x1400 @0x9
0x13f7…140e at000a = ╱52╱R╱ // 0x1401 @0xa
0x13f7…140e at000b = ╱ef╱ $ ╱ // 0x1402 @0xb
0x13f7…140e at000c = ╱e1╱ > ╱ // 0x1403 @0xc
0x13f7…140e at000d = ╱52╱R╱ // 0x1404 @0xd
0x13f7…140e at000e = ╱5f╱_╱ // 0x1405 @0xe
0x13f7…140e at000f = ╱4b╱K╱ // 0x1406 @0xf
0x13f7…140e at0010 = ╱54╱T╱ // 0x1407 @0x10
0x13f7…140e at0011 = ╱4f╱O╱ // 0x1408 @0x11
0x13f7…140e at0012 = ╱4e╱N╱ // 0x1409 @0x12
0x13f7…140e at0013 = ╱52╱R╱ // 0x140a @0x13
0x13f7…140e at0014 = ╱ef╱ $ ╱ // 0x140b @0x14
0x13f7…140e at0015 = ╱b5╱ THEN ╱ // 0x140c @0x15
0x13f7…140e at0016 = EOL // 0x140d @0x16
0x13f7…140e }
0x140e…141c aa0a 01470 LET HIGH := POS
0x140e…141c LineComal80 {
0x140e…141c ptr = 0xaa0a // 0x140e @0x0
0x140e…141c lno = 0x05be // 0x1410 @0x2
0x140e…141c at0004 = ╱86╱ LET ╱ // 0x1412 @0x4
0x140e…141c at0005 = ╱48╱H╱ // 0x1413 @0x5
0x140e…141c at0006 = ╱49╱I╱ // 0x1414 @0x6
0x140e…141c at0007 = ╱47╱G╱ // 0x1415 @0x7
0x140e…141c at0008 = ╱48╱H╱ // 0x1416 @0x8
0x140e…141c at0009 = ╱f0╱ := ╱ // 0x1417 @0x9
0x140e…141c at000a = ╱50╱P╱ // 0x1418 @0xa
0x140e…141c at000b = ╱4f╱O╱ // 0x1419 @0xb
0x140e…141c at000c = ╱53╱S╱ // 0x141a @0xc
0x140e…141c at000d = EOL // 0x141b @0xd
0x140e…141c }
0x141c…1423 aa11 01480 ELSE
0x141c…1423 LineComal80 {
0x141c…1423 ptr = 0xaa11 // 0x141c @0x0
0x141c…1423 lno = 0x05c8 // 0x141e @0x2
0x141c…1423 at0004 = ╱9a15╱ ELSE ╱ // 0x1420 @0x4
0x141c…1423 at0006 = EOL // 0x1422 @0x6
0x141c…1423 }
0x1423…143a aa28 01490 IF TONR $ < R_KTONR $ THEN
0x1423…143a LineComal80 {
0x1423…143a ptr = 0xaa28 // 0x1423 @0x0
0x1423…143a lno = 0x05d2 // 0x1425 @0x2
0x1423…143a at0004 = ╱9b164b╱ IF ╱ // 0x1427 @0x4
0x1423…143a at0007 = ╱54╱T╱ // 0x142a @0x7
0x1423…143a at0008 = ╱4f╱O╱ // 0x142b @0x8
0x1423…143a at0009 = ╱4e╱N╱ // 0x142c @0x9
0x1423…143a at000a = ╱52╱R╱ // 0x142d @0xa
0x1423…143a at000b = ╱ef╱ $ ╱ // 0x142e @0xb
0x1423…143a at000c = ╱e0╱ < ╱ // 0x142f @0xc
0x1423…143a at000d = ╱52╱R╱ // 0x1430 @0xd
0x1423…143a at000e = ╱5f╱_╱ // 0x1431 @0xe
0x1423…143a at000f = ╱4b╱K╱ // 0x1432 @0xf
0x1423…143a at0010 = ╱54╱T╱ // 0x1433 @0x10
0x1423…143a at0011 = ╱4f╱O╱ // 0x1434 @0x11
0x1423…143a at0012 = ╱4e╱N╱ // 0x1435 @0x12
0x1423…143a at0013 = ╱52╱R╱ // 0x1436 @0x13
0x1423…143a at0014 = ╱ef╱ $ ╱ // 0x1437 @0x14
0x1423…143a at0015 = ╱b5╱ THEN ╱ // 0x1438 @0x15
0x1423…143a at0016 = EOL // 0x1439 @0x16
0x1423…143a }
0x143a…1447 aa35 01500 LET LOW := POS
0x143a…1447 LineComal80 {
0x143a…1447 ptr = 0xaa35 // 0x143a @0x0
0x143a…1447 lno = 0x05dc // 0x143c @0x2
0x143a…1447 at0004 = ╱86╱ LET ╱ // 0x143e @0x4
0x143a…1447 at0005 = ╱4c╱L╱ // 0x143f @0x5
0x143a…1447 at0006 = ╱4f╱O╱ // 0x1440 @0x6
0x143a…1447 at0007 = ╱57╱W╱ // 0x1441 @0x7
0x143a…1447 at0008 = ╱f0╱ := ╱ // 0x1442 @0x8
0x143a…1447 at0009 = ╱50╱P╱ // 0x1443 @0x9
0x143a…1447 at000a = ╱4f╱O╱ // 0x1444 @0xa
0x143a…1447 at000b = ╱53╱S╱ // 0x1445 @0xb
0x143a…1447 at000c = EOL // 0x1446 @0xc
0x143a…1447 }
0x1447…144d aa3b 01510 ENDIF
0x1447…144d LineComal80 {
0x1447…144d ptr = 0xaa3b // 0x1447 @0x0
0x1447…144d lno = 0x05e6 // 0x1449 @0x2
0x1447…144d at0004 = ╱9c╱ ENDIF ╱ // 0x144b @0x4
0x1447…144d at0005 = EOL // 0x144c @0x5
0x1447…144d }
0x144d…1453 aa41 01520 ENDIF
0x144d…1453 LineComal80 {
0x144d…1453 ptr = 0xaa41 // 0x144d @0x0
0x144d…1453 lno = 0x05f0 // 0x144f @0x2
0x144d…1453 at0004 = ╱9c╱ ENDIF ╱ // 0x1451 @0x4
0x144d…1453 at0005 = EOL // 0x1452 @0x5
0x144d…1453 }
0x1453…1476 aa64 01530 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
0x1453…1476 LineComal80 {
0x1453…1476 ptr = 0xaa64 // 0x1453 @0x0
0x1453…1476 lno = 0x05fa // 0x1455 @0x2
0x1453…1476 at0004 = ╱98╱ UNTIL ╱ // 0x1457 @0x4
0x1453…1476 at0005 = ╱48╱H╱ // 0x1458 @0x5
0x1453…1476 at0006 = ╱49╱I╱ // 0x1459 @0x6
0x1453…1476 at0007 = ╱47╱G╱ // 0x145a @0x7
0x1453…1476 at0008 = ╱48╱H╱ // 0x145b @0x8
0x1453…1476 at0009 = ╱e6╱ - ╱ // 0x145c @0x9
0x1453…1476 at000a = ╱4c╱L╱ // 0x145d @0xa
0x1453…1476 at000b = ╱4f╱O╱ // 0x145e @0xb
0x1453…1476 at000c = ╱57╱W╱ // 0x145f @0xc
0x1453…1476 at000d = ╱e2╱ =< ╱ // 0x1460 @0xd
0x1453…1476 at000e = ╱31╱1╱ // 0x1461 @0xe
0x1453…1476 at000f = ╱f20100╱ // 0x1462 @0xf
0x1453…1476 at0012 = ╱d8╱ OR ╱ // 0x1465 @0x12
0x1453…1476 at0013 = ╱52╱R╱ // 0x1466 @0x13
0x1453…1476 at0014 = ╱5f╱_╱ // 0x1467 @0x14
0x1453…1476 at0015 = ╱4b╱K╱ // 0x1468 @0x15
0x1453…1476 at0016 = ╱54╱T╱ // 0x1469 @0x16
0x1453…1476 at0017 = ╱4f╱O╱ // 0x146a @0x17
0x1453…1476 at0018 = ╱4e╱N╱ // 0x146b @0x18
0x1453…1476 at0019 = ╱52╱R╱ // 0x146c @0x19
0x1453…1476 at001a = ╱ef╱ $ ╱ // 0x146d @0x1a
0x1453…1476 at001b = ╱df╱ = ╱ // 0x146e @0x1b
0x1453…1476 at001c = ╱4b╱K╱ // 0x146f @0x1c
0x1453…1476 at001d = ╱54╱T╱ // 0x1470 @0x1d
0x1453…1476 at001e = ╱4f╱O╱ // 0x1471 @0x1e
0x1453…1476 at001f = ╱4e╱N╱ // 0x1472 @0x1f
0x1453…1476 at0020 = ╱52╱R╱ // 0x1473 @0x20
0x1453…1476 at0021 = ╱ef╱ $ ╱ // 0x1474 @0x21
0x1453…1476 at0022 = EOL // 0x1475 @0x22
0x1453…1476 }
0x1476…14a2 aa90 01540 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
0x1476…14a2 LineComal80 {
0x1476…14a2 ptr = 0xaa90 // 0x1476 @0x0
0x1476…14a2 lno = 0x0604 // 0x1478 @0x2
0x1476…14a2 at0004 = ╱86╱ LET ╱ // 0x147a @0x4
0x1476…14a2 at0005 = ╱50╱P╱ // 0x147b @0x5
0x1476…14a2 at0006 = ╱4f╱O╱ // 0x147c @0x6
0x1476…14a2 at0007 = ╱53╱S╱ // 0x147d @0x7
0x1476…14a2 at0008 = ╱f0╱ := ╱ // 0x147e @0x8
0x1476…14a2 at0009 = ╱c6╱ INT ╱ // 0x147f @0x9
0x1476…14a2 at000a = ╱ed╱ ( ╱ // 0x1480 @0xa
0x1476…14a2 at000b = ╱ed╱ ( ╱ // 0x1481 @0xb
0x1476…14a2 at000c = ╱48╱H╱ // 0x1482 @0xc
0x1476…14a2 at000d = ╱49╱I╱ // 0x1483 @0xd
0x1476…14a2 at000e = ╱47╱G╱ // 0x1484 @0xe
0x1476…14a2 at000f = ╱48╱H╱ // 0x1485 @0xf
0x1476…14a2 at0010 = ╱e6╱ - ╱ // 0x1486 @0x10
0x1476…14a2 at0011 = ╱4c╱L╱ // 0x1487 @0x11
0x1476…14a2 at0012 = ╱4f╱O╱ // 0x1488 @0x12
0x1476…14a2 at0013 = ╱57╱W╱ // 0x1489 @0x13
0x1476…14a2 at0014 = ╱ee╱ ) ╱ // 0x148a @0x14
0x1476…14a2 at0015 = ╱e8╱ / ╱ // 0x148b @0x15
0x1476…14a2 at0016 = ╱32╱2╱ // 0x148c @0x16
0x1476…14a2 at0017 = ╱f20200╱ // 0x148d @0x17
0x1476…14a2 at001a = ╱e5╱ + ╱ // 0x1490 @0x1a
0x1476…14a2 at001b = ╱2e╱.╱ // 0x1491 @0x1b
0x1476…14a2 at001c = ╱35╱5╱ // 0x1492 @0x1c
0x1476…14a2 at001d = ╱f88000000000000005╱ // 0x1493 @0x1d
0x1476…14a2 at0026 = ╱ee╱ ) ╱ // 0x149c @0x26
0x1476…14a2 at0027 = ╱e5╱ + ╱ // 0x149d @0x27
0x1476…14a2 at0028 = ╱4c╱L╱ // 0x149e @0x28
0x1476…14a2 at0029 = ╱4f╱O╱ // 0x149f @0x29
0x1476…14a2 at002a = ╱57╱W╱ // 0x14a0 @0x2a
0x1476…14a2 at002b = EOL // 0x14a1 @0x2b
0x1476…14a2 }
0x14a2…14c0 aaae 01550 GET KTOIDX $ , POS : KTONR $ , RECNR
0x14a2…14c0 LineComal80 {
0x14a2…14c0 ptr = 0xaaae // 0x14a2 @0x0
0x14a2…14c0 lno = 0x060e // 0x14a4 @0x2
0x14a2…14c0 at0004 = ╱a9╱ GET ╱ // 0x14a6 @0x4
0x14a2…14c0 at0005 = ╱4b╱K╱ // 0x14a7 @0x5
0x14a2…14c0 at0006 = ╱54╱T╱ // 0x14a8 @0x6
0x14a2…14c0 at0007 = ╱4f╱O╱ // 0x14a9 @0x7
0x14a2…14c0 at0008 = ╱49╱I╱ // 0x14aa @0x8
0x14a2…14c0 at0009 = ╱44╱D╱ // 0x14ab @0x9
0x14a2…14c0 at000a = ╱58╱X╱ // 0x14ac @0xa
0x14a2…14c0 at000b = ╱ef╱ $ ╱ // 0x14ad @0xb
0x14a2…14c0 at000c = ╱ec╱ , ╱ // 0x14ae @0xc
0x14a2…14c0 at000d = ╱50╱P╱ // 0x14af @0xd
0x14a2…14c0 at000e = ╱4f╱O╱ // 0x14b0 @0xe
0x14a2…14c0 at000f = ╱53╱S╱ // 0x14b1 @0xf
0x14a2…14c0 at0010 = ╱f1╱ : ╱ // 0x14b2 @0x10
0x14a2…14c0 at0011 = ╱4b╱K╱ // 0x14b3 @0x11
0x14a2…14c0 at0012 = ╱54╱T╱ // 0x14b4 @0x12
0x14a2…14c0 at0013 = ╱4f╱O╱ // 0x14b5 @0x13
0x14a2…14c0 at0014 = ╱4e╱N╱ // 0x14b6 @0x14
0x14a2…14c0 at0015 = ╱52╱R╱ // 0x14b7 @0x15
0x14a2…14c0 at0016 = ╱ef╱ $ ╱ // 0x14b8 @0x16
0x14a2…14c0 at0017 = ╱ec╱ , ╱ // 0x14b9 @0x17
0x14a2…14c0 at0018 = ╱52╱R╱ // 0x14ba @0x18
0x14a2…14c0 at0019 = ╱45╱E╱ // 0x14bb @0x19
0x14a2…14c0 at001a = ╱43╱C╱ // 0x14bc @0x1a
0x14a2…14c0 at001b = ╱4e╱N╱ // 0x14bd @0x1b
0x14a2…14c0 at001c = ╱52╱R╱ // 0x14be @0x1c
0x14a2…14c0 at001d = EOL // 0x14bf @0x1d
0x14a2…14c0 }
0x14c0…14df aacd 01560 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
0x14c0…14df LineComal80 {
0x14c0…14df ptr = 0xaacd // 0x14c0 @0x0
0x14c0…14df lno = 0x0618 // 0x14c2 @0x2
0x14c0…14df at0004 = ╱8200╱ IF ╱ // 0x14c4 @0x4
0x14c0…14df at0006 = ╱4b╱K╱ // 0x14c6 @0x6
0x14c0…14df at0007 = ╱54╱T╱ // 0x14c7 @0x7
0x14c0…14df at0008 = ╱4f╱O╱ // 0x14c8 @0x8
0x14c0…14df at0009 = ╱4e╱N╱ // 0x14c9 @0x9
0x14c0…14df at000a = ╱52╱R╱ // 0x14ca @0xa
0x14c0…14df at000b = ╱ef╱ $ ╱ // 0x14cb @0xb
0x14c0…14df at000c = ╱df╱ = ╱ // 0x14cc @0xc
0x14c0…14df at000d = ╱52╱R╱ // 0x14cd @0xd
0x14c0…14df at000e = ╱5f╱_╱ // 0x14ce @0xe
0x14c0…14df at000f = ╱4b╱K╱ // 0x14cf @0xf
0x14c0…14df at0010 = ╱54╱T╱ // 0x14d0 @0x10
0x14c0…14df at0011 = ╱4f╱O╱ // 0x14d1 @0x11
0x14c0…14df at0012 = ╱4e╱N╱ // 0x14d2 @0x12
0x14c0…14df at0013 = ╱52╱R╱ // 0x14d3 @0x13
0x14c0…14df at0014 = ╱ef╱ $ ╱ // 0x14d4 @0x14
0x14c0…14df at0015 = ╱b5╱ THEN ╱ // 0x14d5 @0x15
0x14c0…14df at0016 = ╱86╱ LET ╱ // 0x14d6 @0x16
0x14c0…14df at0017 = ╱4f╱O╱ // 0x14d7 @0x17
0x14c0…14df at0018 = ╱4b╱K╱ // 0x14d8 @0x18
0x14c0…14df at0019 = ╱f0╱ := ╱ // 0x14d9 @0x19
0x14c0…14df at001a = ╱54╱T╱ // 0x14da @0x1a
0x14c0…14df at001b = ╱52╱R╱ // 0x14db @0x1b
0x14c0…14df at001c = ╱55╱U╱ // 0x14dc @0x1c
0x14c0…14df at001d = ╱45╱E╱ // 0x14dd @0x1d
0x14c0…14df at001e = EOL // 0x14de @0x1e
0x14c0…14df }
0x14df…1510 aafe 01570 IF KTONR $ < R_KTONR $ AND POS = I_H\JREC THEN LET POS := POS + 1
0x14df…1510 LineComal80 {
0x14df…1510 ptr = 0xaafe // 0x14df @0x0
0x14df…1510 lno = 0x0622 // 0x14e1 @0x2
0x14df…1510 at0004 = ╱8200╱ IF ╱ // 0x14e3 @0x4
0x14df…1510 at0006 = ╱4b╱K╱ // 0x14e5 @0x6
0x14df…1510 at0007 = ╱54╱T╱ // 0x14e6 @0x7
0x14df…1510 at0008 = ╱4f╱O╱ // 0x14e7 @0x8
0x14df…1510 at0009 = ╱4e╱N╱ // 0x14e8 @0x9
0x14df…1510 at000a = ╱52╱R╱ // 0x14e9 @0xa
0x14df…1510 at000b = ╱ef╱ $ ╱ // 0x14ea @0xb
0x14df…1510 at000c = ╱e0╱ < ╱ // 0x14eb @0xc
0x14df…1510 at000d = ╱52╱R╱ // 0x14ec @0xd
0x14df…1510 at000e = ╱5f╱_╱ // 0x14ed @0xe
0x14df…1510 at000f = ╱4b╱K╱ // 0x14ee @0xf
0x14df…1510 at0010 = ╱54╱T╱ // 0x14ef @0x10
0x14df…1510 at0011 = ╱4f╱O╱ // 0x14f0 @0x11
0x14df…1510 at0012 = ╱4e╱N╱ // 0x14f1 @0x12
0x14df…1510 at0013 = ╱52╱R╱ // 0x14f2 @0x13
0x14df…1510 at0014 = ╱ef╱ $ ╱ // 0x14f3 @0x14
0x14df…1510 at0015 = ╱d9╱ AND ╱ // 0x14f4 @0x15
0x14df…1510 at0016 = ╱50╱P╱ // 0x14f5 @0x16
0x14df…1510 at0017 = ╱4f╱O╱ // 0x14f6 @0x17
0x14df…1510 at0018 = ╱53╱S╱ // 0x14f7 @0x18
0x14df…1510 at0019 = ╱df╱ = ╱ // 0x14f8 @0x19
0x14df…1510 at001a = ╱49╱I╱ // 0x14f9 @0x1a
0x14df…1510 at001b = ╱5f╱_╱ // 0x14fa @0x1b
0x14df…1510 at001c = ╱48╱H╱ // 0x14fb @0x1c
0x14df…1510 at001d = ╱5c╱\╱ // 0x14fc @0x1d
0x14df…1510 at001e = ╱4a╱J╱ // 0x14fd @0x1e
0x14df…1510 at001f = ╱52╱R╱ // 0x14fe @0x1f
0x14df…1510 at0020 = ╱45╱E╱ // 0x14ff @0x20
0x14df…1510 at0021 = ╱43╱C╱ // 0x1500 @0x21
0x14df…1510 at0022 = ╱b5╱ THEN ╱ // 0x1501 @0x22
0x14df…1510 at0023 = ╱86╱ LET ╱ // 0x1502 @0x23
0x14df…1510 at0024 = ╱50╱P╱ // 0x1503 @0x24
0x14df…1510 at0025 = ╱4f╱O╱ // 0x1504 @0x25
0x14df…1510 at0026 = ╱53╱S╱ // 0x1505 @0x26
0x14df…1510 at0027 = ╱f0╱ := ╱ // 0x1506 @0x27
0x14df…1510 at0028 = ╱50╱P╱ // 0x1507 @0x28
0x14df…1510 at0029 = ╱4f╱O╱ // 0x1508 @0x29
0x14df…1510 at002a = ╱53╱S╱ // 0x1509 @0x2a
0x14df…1510 at002b = ╱e5╱ + ╱ // 0x150a @0x2b
0x14df…1510 at002c = ╱31╱1╱ // 0x150b @0x2c
0x14df…1510 at002d = ╱f20100╱ // 0x150c @0x2d
0x14df…1510 at0030 = EOL // 0x150f @0x30
0x14df…1510 }
0x1510…1516 ab04 01580 ENDIF
0x1510…1516 LineComal80 {
0x1510…1516 ptr = 0xab04 // 0x1510 @0x0
0x1510…1516 lno = 0x062c // 0x1512 @0x2
0x1510…1516 at0004 = ╱9c╱ ENDIF ╱ // 0x1514 @0x4
0x1510…1516 at0005 = EOL // 0x1515 @0x5
0x1510…1516 }
0x1516…1528 ab16 01590 LET FIND_KTO := POS
0x1516…1528 LineComal80 {
0x1516…1528 ptr = 0xab16 // 0x1516 @0x0
0x1516…1528 lno = 0x0636 // 0x1518 @0x2
0x1516…1528 at0004 = ╱86╱ LET ╱ // 0x151a @0x4
0x1516…1528 at0005 = ╱46╱F╱ // 0x151b @0x5
0x1516…1528 at0006 = ╱49╱I╱ // 0x151c @0x6
0x1516…1528 at0007 = ╱4e╱N╱ // 0x151d @0x7
0x1516…1528 at0008 = ╱44╱D╱ // 0x151e @0x8
0x1516…1528 at0009 = ╱5f╱_╱ // 0x151f @0x9
0x1516…1528 at000a = ╱4b╱K╱ // 0x1520 @0xa
0x1516…1528 at000b = ╱54╱T╱ // 0x1521 @0xb
0x1516…1528 at000c = ╱4f╱O╱ // 0x1522 @0xc
0x1516…1528 at000d = ╱f0╱ := ╱ // 0x1523 @0xd
0x1516…1528 at000e = ╱50╱P╱ // 0x1524 @0xe
0x1516…1528 at000f = ╱4f╱O╱ // 0x1525 @0xf
0x1516…1528 at0010 = ╱53╱S╱ // 0x1526 @0x10
0x1516…1528 at0011 = EOL // 0x1527 @0x11
0x1516…1528 }
0x1528…1536 bf9b 01600 ENDPROC FIND_KTO
0x1528…1536 LineComal80 {
0x1528…1536 ptr = 0xbf9b // 0x1528 @0x0
0x1528…1536 lno = 0x0640 // 0x152a @0x2
0x1528…1536 at0004 = ╱9f╱ ENDPROC ╱ // 0x152c @0x4
0x1528…1536 at0005 = ╱46╱F╱ // 0x152d @0x5
0x1528…1536 at0006 = ╱49╱I╱ // 0x152e @0x6
0x1528…1536 at0007 = ╱4e╱N╱ // 0x152f @0x7
0x1528…1536 at0008 = ╱44╱D╱ // 0x1530 @0x8
0x1528…1536 at0009 = ╱5f╱_╱ // 0x1531 @0x9
0x1528…1536 at000a = ╱4b╱K╱ // 0x1532 @0xa
0x1528…1536 at000b = ╱54╱T╱ // 0x1533 @0xb
0x1528…1536 at000c = ╱4f╱O╱ // 0x1534 @0xc
0x1528…1536 at000d = EOL // 0x1535 @0xd
0x1528…1536 }
0x1536…1550 ab3e 02000 PROC SAMMENT[L ( REF SAMFIL $ )
0x1536…1550 LineComal80 {
0x1536…1550 ptr = 0xab3e // 0x1536 @0x0
0x1536…1550 lno = 0x07d0 // 0x1538 @0x2
0x1536…1550 at0004 = ╱9e00╱ PROC ╱ // 0x153a @0x4
0x1536…1550 at0006 = ╱53╱S╱ // 0x153c @0x6
0x1536…1550 at0007 = ╱41╱A╱ // 0x153d @0x7
0x1536…1550 at0008 = ╱4d╱M╱ // 0x153e @0x8
0x1536…1550 at0009 = ╱4d╱M╱ // 0x153f @0x9
0x1536…1550 at000a = ╱45╱E╱ // 0x1540 @0xa
0x1536…1550 at000b = ╱4e╱N╱ // 0x1541 @0xb
0x1536…1550 at000c = ╱54╱T╱ // 0x1542 @0xc
0x1536…1550 at000d = ╱5b╱[╱ // 0x1543 @0xd
0x1536…1550 at000e = ╱4c╱L╱ // 0x1544 @0xe
0x1536…1550 at000f = ╱ed╱ ( ╱ // 0x1545 @0xf
0x1536…1550 at0010 = ╱b6╱ REF ╱ // 0x1546 @0x10
0x1536…1550 at0011 = ╱53╱S╱ // 0x1547 @0x11
0x1536…1550 at0012 = ╱41╱A╱ // 0x1548 @0x12
0x1536…1550 at0013 = ╱4d╱M╱ // 0x1549 @0x13
0x1536…1550 at0014 = ╱46╱F╱ // 0x154a @0x14
0x1536…1550 at0015 = ╱49╱I╱ // 0x154b @0x15
0x1536…1550 at0016 = ╱4c╱L╱ // 0x154c @0x16
0x1536…1550 at0017 = ╱ef╱ $ ╱ // 0x154d @0x17
0x1536…1550 at0018 = ╱ee╱ ) ╱ // 0x154e @0x18
0x1536…1550 at0019 = EOL // 0x154f @0x19
0x1536…1550 }
0x1550…156a ab58 02010 EXEC OPENFIL ( SAMFIL $ , "R" )
0x1550…156a LineComal80 {
0x1550…156a ptr = 0xab58 // 0x1550 @0x0
0x1550…156a lno = 0x07da // 0x1552 @0x2
0x1550…156a at0004 = ╱9d╱ EXEC ╱ // 0x1554 @0x4
0x1550…156a at0005 = ╱4f╱O╱ // 0x1555 @0x5
0x1550…156a at0006 = ╱50╱P╱ // 0x1556 @0x6
0x1550…156a at0007 = ╱45╱E╱ // 0x1557 @0x7
0x1550…156a at0008 = ╱4e╱N╱ // 0x1558 @0x8
0x1550…156a at0009 = ╱46╱F╱ // 0x1559 @0x9
0x1550…156a at000a = ╱49╱I╱ // 0x155a @0xa
0x1550…156a at000b = ╱4c╱L╱ // 0x155b @0xb
0x1550…156a at000c = ╱ed╱ ( ╱ // 0x155c @0xc
0x1550…156a at000d = ╱53╱S╱ // 0x155d @0xd
0x1550…156a at000e = ╱41╱A╱ // 0x155e @0xe
0x1550…156a at000f = ╱4d╱M╱ // 0x155f @0xf
0x1550…156a at0010 = ╱46╱F╱ // 0x1560 @0x10
0x1550…156a at0011 = ╱49╱I╱ // 0x1561 @0x11
0x1550…156a at0012 = ╱4c╱L╱ // 0x1562 @0x12
0x1550…156a at0013 = ╱ef╱ $ ╱ // 0x1563 @0x13
0x1550…156a at0014 = ╱ec╱ , ╱ // 0x1564 @0x14
0x1550…156a at0015 = ╱22╱"╱ // 0x1565 @0x15
0x1550…156a at0016 = ╱52╱R╱ // 0x1566 @0x16
0x1550…156a at0017 = ╱22╱"╱ // 0x1567 @0x17
0x1550…156a at0018 = ╱ee╱ ) ╱ // 0x1568 @0x18
0x1550…156a at0019 = EOL // 0x1569 @0x19
0x1550…156a }
0x156a…157d ab6b 02020 GET SAMFIL $ : SALDO
0x156a…157d LineComal80 {
0x156a…157d ptr = 0xab6b // 0x156a @0x0
0x156a…157d lno = 0x07e4 // 0x156c @0x2
0x156a…157d at0004 = ╱a9╱ GET ╱ // 0x156e @0x4
0x156a…157d at0005 = ╱53╱S╱ // 0x156f @0x5
0x156a…157d at0006 = ╱41╱A╱ // 0x1570 @0x6
0x156a…157d at0007 = ╱4d╱M╱ // 0x1571 @0x7
0x156a…157d at0008 = ╱46╱F╱ // 0x1572 @0x8
0x156a…157d at0009 = ╱49╱I╱ // 0x1573 @0x9
0x156a…157d at000a = ╱4c╱L╱ // 0x1574 @0xa
0x156a…157d at000b = ╱ef╱ $ ╱ // 0x1575 @0xb
0x156a…157d at000c = ╱f1╱ : ╱ // 0x1576 @0xc
0x156a…157d at000d = ╱53╱S╱ // 0x1577 @0xd
0x156a…157d at000e = ╱41╱A╱ // 0x1578 @0xe
0x156a…157d at000f = ╱4c╱L╱ // 0x1579 @0xf
0x156a…157d at0010 = ╱44╱D╱ // 0x157a @0x10
0x156a…157d at0011 = ╱4f╱O╱ // 0x157b @0x11
0x156a…157d at0012 = EOL // 0x157c @0x12
0x156a…157d }
0x157d…158d ab7b 02030 LET SALDO := 0
0x157d…158d LineComal80 {
0x157d…158d ptr = 0xab7b // 0x157d @0x0
0x157d…158d lno = 0x07ee // 0x157f @0x2
0x157d…158d at0004 = ╱86╱ LET ╱ // 0x1581 @0x4
0x157d…158d at0005 = ╱53╱S╱ // 0x1582 @0x5
0x157d…158d at0006 = ╱41╱A╱ // 0x1583 @0x6
0x157d…158d at0007 = ╱4c╱L╱ // 0x1584 @0x7
0x157d…158d at0008 = ╱44╱D╱ // 0x1585 @0x8
0x157d…158d at0009 = ╱4f╱O╱ // 0x1586 @0x9
0x157d…158d at000a = ╱f0╱ := ╱ // 0x1587 @0xa
0x157d…158d at000b = ╱30╱0╱ // 0x1588 @0xb
0x157d…158d at000c = ╱f20000╱ // 0x1589 @0xc
0x157d…158d at000f = EOL // 0x158c @0xf
0x157d…158d }
0x158d…15a3 ab91 02040 GET SAMFIL $ : S_KTONR $
0x158d…15a3 LineComal80 {
0x158d…15a3 ptr = 0xab91 // 0x158d @0x0
0x158d…15a3 lno = 0x07f8 // 0x158f @0x2
0x158d…15a3 at0004 = ╱a9╱ GET ╱ // 0x1591 @0x4
0x158d…15a3 at0005 = ╱53╱S╱ // 0x1592 @0x5
0x158d…15a3 at0006 = ╱41╱A╱ // 0x1593 @0x6
0x158d…15a3 at0007 = ╱4d╱M╱ // 0x1594 @0x7
0x158d…15a3 at0008 = ╱46╱F╱ // 0x1595 @0x8
0x158d…15a3 at0009 = ╱49╱I╱ // 0x1596 @0x9
0x158d…15a3 at000a = ╱4c╱L╱ // 0x1597 @0xa
0x158d…15a3 at000b = ╱ef╱ $ ╱ // 0x1598 @0xb
0x158d…15a3 at000c = ╱f1╱ : ╱ // 0x1599 @0xc
0x158d…15a3 at000d = ╱53╱S╱ // 0x159a @0xd
0x158d…15a3 at000e = ╱5f╱_╱ // 0x159b @0xe
0x158d…15a3 at000f = ╱4b╱K╱ // 0x159c @0xf
0x158d…15a3 at0010 = ╱54╱T╱ // 0x159d @0x10
0x158d…15a3 at0011 = ╱4f╱O╱ // 0x159e @0x11
0x158d…15a3 at0012 = ╱4e╱N╱ // 0x159f @0x12
0x158d…15a3 at0013 = ╱52╱R╱ // 0x15a0 @0x13
0x158d…15a3 at0014 = ╱ef╱ $ ╱ // 0x15a1 @0x14
0x158d…15a3 at0015 = EOL // 0x15a2 @0x15
0x158d…15a3 }
0x15a3…15b6 aba4 02050 WHILE NOT ╱cd╱ ( SAMFIL $ ) DO
0x15a3…15b6 LineComal80 {
0x15a3…15b6 ptr = 0xaba4 // 0x15a3 @0x0
0x15a3…15b6 lno = 0x0802 // 0x15a5 @0x2
0x15a3…15b6 at0004 = ╱9300╱ WHILE ╱ // 0x15a7 @0x4
0x15a3…15b6 at0006 = ╱d7╱ NOT ╱ // 0x15a9 @0x6
0x15a3…15b6 at0007 = ╱cd╱ // 0x15aa @0x7
0x15a3…15b6 at0008 = ╱ed╱ ( ╱ // 0x15ab @0x8
0x15a3…15b6 at0009 = ╱53╱S╱ // 0x15ac @0x9
0x15a3…15b6 at000a = ╱41╱A╱ // 0x15ad @0xa
0x15a3…15b6 at000b = ╱4d╱M╱ // 0x15ae @0xb
0x15a3…15b6 at000c = ╱46╱F╱ // 0x15af @0xc
0x15a3…15b6 at000d = ╱49╱I╱ // 0x15b0 @0xd
0x15a3…15b6 at000e = ╱4c╱L╱ // 0x15b1 @0xe
0x15a3…15b6 at000f = ╱ef╱ $ ╱ // 0x15b2 @0xf
0x15a3…15b6 at0010 = ╱ee╱ ) ╱ // 0x15b3 @0x10
0x15a3…15b6 at0011 = ╱bb╱ DO ╱ // 0x15b4 @0x11
0x15a3…15b6 at0012 = EOL // 0x15b5 @0x12
0x15a3…15b6 }
0x15b6…15d5 abc3 02060 LET IDXPOS := FIND_KTO ( S_KTONR $ )
0x15b6…15d5 LineComal80 {
0x15b6…15d5 ptr = 0xabc3 // 0x15b6 @0x0
0x15b6…15d5 lno = 0x080c // 0x15b8 @0x2
0x15b6…15d5 at0004 = ╱86╱ LET ╱ // 0x15ba @0x4
0x15b6…15d5 at0005 = ╱49╱I╱ // 0x15bb @0x5
0x15b6…15d5 at0006 = ╱44╱D╱ // 0x15bc @0x6
0x15b6…15d5 at0007 = ╱58╱X╱ // 0x15bd @0x7
0x15b6…15d5 at0008 = ╱50╱P╱ // 0x15be @0x8
0x15b6…15d5 at0009 = ╱4f╱O╱ // 0x15bf @0x9
0x15b6…15d5 at000a = ╱53╱S╱ // 0x15c0 @0xa
0x15b6…15d5 at000b = ╱f0╱ := ╱ // 0x15c1 @0xb
0x15b6…15d5 at000c = ╱46╱F╱ // 0x15c2 @0xc
0x15b6…15d5 at000d = ╱49╱I╱ // 0x15c3 @0xd
0x15b6…15d5 at000e = ╱4e╱N╱ // 0x15c4 @0xe
0x15b6…15d5 at000f = ╱44╱D╱ // 0x15c5 @0xf
0x15b6…15d5 at0010 = ╱5f╱_╱ // 0x15c6 @0x10
0x15b6…15d5 at0011 = ╱4b╱K╱ // 0x15c7 @0x11
0x15b6…15d5 at0012 = ╱54╱T╱ // 0x15c8 @0x12
0x15b6…15d5 at0013 = ╱4f╱O╱ // 0x15c9 @0x13
0x15b6…15d5 at0014 = ╱ed╱ ( ╱ // 0x15ca @0x14
0x15b6…15d5 at0015 = ╱53╱S╱ // 0x15cb @0x15
0x15b6…15d5 at0016 = ╱5f╱_╱ // 0x15cc @0x16
0x15b6…15d5 at0017 = ╱4b╱K╱ // 0x15cd @0x17
0x15b6…15d5 at0018 = ╱54╱T╱ // 0x15ce @0x18
0x15b6…15d5 at0019 = ╱4f╱O╱ // 0x15cf @0x19
0x15b6…15d5 at001a = ╱4e╱N╱ // 0x15d0 @0x1a
0x15b6…15d5 at001b = ╱52╱R╱ // 0x15d1 @0x1b
0x15b6…15d5 at001c = ╱ef╱ $ ╱ // 0x15d2 @0x1c
0x15b6…15d5 at001d = ╱ee╱ ) ╱ // 0x15d3 @0x1d
0x15b6…15d5 at001e = EOL // 0x15d4 @0x1e
0x15b6…15d5 }
0x15d5…15f6 abe4 02070 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
0x15d5…15f6 LineComal80 {
0x15d5…15f6 ptr = 0xabe4 // 0x15d5 @0x0
0x15d5…15f6 lno = 0x0816 // 0x15d7 @0x2
0x15d5…15f6 at0004 = ╱a9╱ GET ╱ // 0x15d9 @0x4
0x15d5…15f6 at0005 = ╱4b╱K╱ // 0x15da @0x5
0x15d5…15f6 at0006 = ╱54╱T╱ // 0x15db @0x6
0x15d5…15f6 at0007 = ╱4f╱O╱ // 0x15dc @0x7
0x15d5…15f6 at0008 = ╱49╱I╱ // 0x15dd @0x8
0x15d5…15f6 at0009 = ╱44╱D╱ // 0x15de @0x9
0x15d5…15f6 at000a = ╱58╱X╱ // 0x15df @0xa
0x15d5…15f6 at000b = ╱ef╱ $ ╱ // 0x15e0 @0xb
0x15d5…15f6 at000c = ╱ec╱ , ╱ // 0x15e1 @0xc
0x15d5…15f6 at000d = ╱49╱I╱ // 0x15e2 @0xd
0x15d5…15f6 at000e = ╱44╱D╱ // 0x15e3 @0xe
0x15d5…15f6 at000f = ╱58╱X╱ // 0x15e4 @0xf
0x15d5…15f6 at0010 = ╱50╱P╱ // 0x15e5 @0x10
0x15d5…15f6 at0011 = ╱4f╱O╱ // 0x15e6 @0x11
0x15d5…15f6 at0012 = ╱53╱S╱ // 0x15e7 @0x12
0x15d5…15f6 at0013 = ╱f1╱ : ╱ // 0x15e8 @0x13
0x15d5…15f6 at0014 = ╱4b╱K╱ // 0x15e9 @0x14
0x15d5…15f6 at0015 = ╱54╱T╱ // 0x15ea @0x15
0x15d5…15f6 at0016 = ╱4f╱O╱ // 0x15eb @0x16
0x15d5…15f6 at0017 = ╱4e╱N╱ // 0x15ec @0x17
0x15d5…15f6 at0018 = ╱52╱R╱ // 0x15ed @0x18
0x15d5…15f6 at0019 = ╱ef╱ $ ╱ // 0x15ee @0x19
0x15d5…15f6 at001a = ╱ec╱ , ╱ // 0x15ef @0x1a
0x15d5…15f6 at001b = ╱52╱R╱ // 0x15f0 @0x1b
0x15d5…15f6 at001c = ╱45╱E╱ // 0x15f1 @0x1c
0x15d5…15f6 at001d = ╱43╱C╱ // 0x15f2 @0x1d
0x15d5…15f6 at001e = ╱4e╱N╱ // 0x15f3 @0x1e
0x15d5…15f6 at001f = ╱52╱R╱ // 0x15f4 @0x1f
0x15d5…15f6 at0020 = EOL // 0x15f5 @0x20
0x15d5…15f6 }
0x15f6…161f ac0d 02080 WHILE S_KTONR $ = KTONR $ ( 1 : ╱cb╱ ( S_KTONR $ ) ) DO
0x15f6…161f LineComal80 {
0x15f6…161f ptr = 0xac0d // 0x15f6 @0x0
0x15f6…161f lno = 0x0820 // 0x15f8 @0x2
0x15f6…161f at0004 = ╱9300╱ WHILE ╱ // 0x15fa @0x4
0x15f6…161f at0006 = ╱53╱S╱ // 0x15fc @0x6
0x15f6…161f at0007 = ╱5f╱_╱ // 0x15fd @0x7
0x15f6…161f at0008 = ╱4b╱K╱ // 0x15fe @0x8
0x15f6…161f at0009 = ╱54╱T╱ // 0x15ff @0x9
0x15f6…161f at000a = ╱4f╱O╱ // 0x1600 @0xa
0x15f6…161f at000b = ╱4e╱N╱ // 0x1601 @0xb
0x15f6…161f at000c = ╱52╱R╱ // 0x1602 @0xc
0x15f6…161f at000d = ╱ef╱ $ ╱ // 0x1603 @0xd
0x15f6…161f at000e = ╱df╱ = ╱ // 0x1604 @0xe
0x15f6…161f at000f = ╱4b╱K╱ // 0x1605 @0xf
0x15f6…161f at0010 = ╱54╱T╱ // 0x1606 @0x10
0x15f6…161f at0011 = ╱4f╱O╱ // 0x1607 @0x11
0x15f6…161f at0012 = ╱4e╱N╱ // 0x1608 @0x12
0x15f6…161f at0013 = ╱52╱R╱ // 0x1609 @0x13
0x15f6…161f at0014 = ╱ef╱ $ ╱ // 0x160a @0x14
0x15f6…161f at0015 = ╱ed╱ ( ╱ // 0x160b @0x15
0x15f6…161f at0016 = ╱31╱1╱ // 0x160c @0x16
0x15f6…161f at0017 = ╱f20100╱ // 0x160d @0x17
0x15f6…161f at001a = ╱f1╱ : ╱ // 0x1610 @0x1a
0x15f6…161f at001b = ╱cb╱ // 0x1611 @0x1b
0x15f6…161f at001c = ╱ed╱ ( ╱ // 0x1612 @0x1c
0x15f6…161f at001d = ╱53╱S╱ // 0x1613 @0x1d
0x15f6…161f at001e = ╱5f╱_╱ // 0x1614 @0x1e
0x15f6…161f at001f = ╱4b╱K╱ // 0x1615 @0x1f
0x15f6…161f at0020 = ╱54╱T╱ // 0x1616 @0x20
0x15f6…161f at0021 = ╱4f╱O╱ // 0x1617 @0x21
0x15f6…161f at0022 = ╱4e╱N╱ // 0x1618 @0x22
0x15f6…161f at0023 = ╱52╱R╱ // 0x1619 @0x23
0x15f6…161f at0024 = ╱ef╱ $ ╱ // 0x161a @0x24
0x15f6…161f at0025 = ╱ee╱ ) ╱ // 0x161b @0x25
0x15f6…161f at0026 = ╱ee╱ ) ╱ // 0x161c @0x26
0x15f6…161f at0027 = ╱bb╱ DO ╱ // 0x161d @0x27
0x15f6…161f at0028 = EOL // 0x161e @0x28
0x15f6…161f }
0x161f…164a ac38 02090 GET DRIFT\ $ , RECNR : DRIFT ( 1 ) , DRIFT ( 2 )
0x161f…164a LineComal80 {
0x161f…164a ptr = 0xac38 // 0x161f @0x0
0x161f…164a lno = 0x082a // 0x1621 @0x2
0x161f…164a at0004 = ╱a9╱ GET ╱ // 0x1623 @0x4
0x161f…164a at0005 = ╱44╱D╱ // 0x1624 @0x5
0x161f…164a at0006 = ╱52╱R╱ // 0x1625 @0x6
0x161f…164a at0007 = ╱49╱I╱ // 0x1626 @0x7
0x161f…164a at0008 = ╱46╱F╱ // 0x1627 @0x8
0x161f…164a at0009 = ╱54╱T╱ // 0x1628 @0x9
0x161f…164a at000a = ╱5c╱\╱ // 0x1629 @0xa
0x161f…164a at000b = ╱ef╱ $ ╱ // 0x162a @0xb
0x161f…164a at000c = ╱ec╱ , ╱ // 0x162b @0xc
0x161f…164a at000d = ╱52╱R╱ // 0x162c @0xd
0x161f…164a at000e = ╱45╱E╱ // 0x162d @0xe
0x161f…164a at000f = ╱43╱C╱ // 0x162e @0xf
0x161f…164a at0010 = ╱4e╱N╱ // 0x162f @0x10
0x161f…164a at0011 = ╱52╱R╱ // 0x1630 @0x11
0x161f…164a at0012 = ╱f1╱ : ╱ // 0x1631 @0x12
0x161f…164a at0013 = ╱44╱D╱ // 0x1632 @0x13
0x161f…164a at0014 = ╱52╱R╱ // 0x1633 @0x14
0x161f…164a at0015 = ╱49╱I╱ // 0x1634 @0x15
0x161f…164a at0016 = ╱46╱F╱ // 0x1635 @0x16
0x161f…164a at0017 = ╱54╱T╱ // 0x1636 @0x17
0x161f…164a at0018 = ╱ed╱ ( ╱ // 0x1637 @0x18
0x161f…164a at0019 = ╱31╱1╱ // 0x1638 @0x19
0x161f…164a at001a = ╱f20100╱ // 0x1639 @0x1a
0x161f…164a at001d = ╱ee╱ ) ╱ // 0x163c @0x1d
0x161f…164a at001e = ╱ec╱ , ╱ // 0x163d @0x1e
0x161f…164a at001f = ╱44╱D╱ // 0x163e @0x1f
0x161f…164a at0020 = ╱52╱R╱ // 0x163f @0x20
0x161f…164a at0021 = ╱49╱I╱ // 0x1640 @0x21
0x161f…164a at0022 = ╱46╱F╱ // 0x1641 @0x22
0x161f…164a at0023 = ╱54╱T╱ // 0x1642 @0x23
0x161f…164a at0024 = ╱ed╱ ( ╱ // 0x1643 @0x24
0x161f…164a at0025 = ╱32╱2╱ // 0x1644 @0x25
0x161f…164a at0026 = ╱f20200╱ // 0x1645 @0x26
0x161f…164a at0029 = ╱ee╱ ) ╱ // 0x1648 @0x29
0x161f…164a at002a = EOL // 0x1649 @0x2a
0x161f…164a }
0x164a…1667 ac55 02100 LET SALDO := SALDO + DRIFT ( 2 )
0x164a…1667 LineComal80 {
0x164a…1667 ptr = 0xac55 // 0x164a @0x0
0x164a…1667 lno = 0x0834 // 0x164c @0x2
0x164a…1667 at0004 = ╱86╱ LET ╱ // 0x164e @0x4
0x164a…1667 at0005 = ╱53╱S╱ // 0x164f @0x5
0x164a…1667 at0006 = ╱41╱A╱ // 0x1650 @0x6
0x164a…1667 at0007 = ╱4c╱L╱ // 0x1651 @0x7
0x164a…1667 at0008 = ╱44╱D╱ // 0x1652 @0x8
0x164a…1667 at0009 = ╱4f╱O╱ // 0x1653 @0x9
0x164a…1667 at000a = ╱f0╱ := ╱ // 0x1654 @0xa
0x164a…1667 at000b = ╱53╱S╱ // 0x1655 @0xb
0x164a…1667 at000c = ╱41╱A╱ // 0x1656 @0xc
0x164a…1667 at000d = ╱4c╱L╱ // 0x1657 @0xd
0x164a…1667 at000e = ╱44╱D╱ // 0x1658 @0xe
0x164a…1667 at000f = ╱4f╱O╱ // 0x1659 @0xf
0x164a…1667 at0010 = ╱e5╱ + ╱ // 0x165a @0x10
0x164a…1667 at0011 = ╱44╱D╱ // 0x165b @0x11
0x164a…1667 at0012 = ╱52╱R╱ // 0x165c @0x12
0x164a…1667 at0013 = ╱49╱I╱ // 0x165d @0x13
0x164a…1667 at0014 = ╱46╱F╱ // 0x165e @0x14
0x164a…1667 at0015 = ╱54╱T╱ // 0x165f @0x15
0x164a…1667 at0016 = ╱ed╱ ( ╱ // 0x1660 @0x16
0x164a…1667 at0017 = ╱32╱2╱ // 0x1661 @0x17
0x164a…1667 at0018 = ╱f20200╱ // 0x1662 @0x18
0x164a…1667 at001b = ╱ee╱ ) ╱ // 0x1665 @0x1b
0x164a…1667 at001c = EOL // 0x1666 @0x1c
0x164a…1667 }
0x1667…167f ac6d 02110 LET IDXPOS := IDXPOS + 1
0x1667…167f LineComal80 {
0x1667…167f ptr = 0xac6d // 0x1667 @0x0
0x1667…167f lno = 0x083e // 0x1669 @0x2
0x1667…167f at0004 = ╱86╱ LET ╱ // 0x166b @0x4
0x1667…167f at0005 = ╱49╱I╱ // 0x166c @0x5
0x1667…167f at0006 = ╱44╱D╱ // 0x166d @0x6
0x1667…167f at0007 = ╱58╱X╱ // 0x166e @0x7
0x1667…167f at0008 = ╱50╱P╱ // 0x166f @0x8
0x1667…167f at0009 = ╱4f╱O╱ // 0x1670 @0x9
0x1667…167f at000a = ╱53╱S╱ // 0x1671 @0xa
0x1667…167f at000b = ╱f0╱ := ╱ // 0x1672 @0xb
0x1667…167f at000c = ╱49╱I╱ // 0x1673 @0xc
0x1667…167f at000d = ╱44╱D╱ // 0x1674 @0xd
0x1667…167f at000e = ╱58╱X╱ // 0x1675 @0xe
0x1667…167f at000f = ╱50╱P╱ // 0x1676 @0xf
0x1667…167f at0010 = ╱4f╱O╱ // 0x1677 @0x10
0x1667…167f at0011 = ╱53╱S╱ // 0x1678 @0x11
0x1667…167f at0012 = ╱e5╱ + ╱ // 0x1679 @0x12
0x1667…167f at0013 = ╱31╱1╱ // 0x167a @0x13
0x1667…167f at0014 = ╱f20100╱ // 0x167b @0x14
0x1667…167f at0017 = EOL // 0x167e @0x17
0x1667…167f }
0x167f…1697 ac85 02120 IF IDXPOS > I_H\JREC THEN EXIT
0x167f…1697 LineComal80 {
0x167f…1697 ptr = 0xac85 // 0x167f @0x0
0x167f…1697 lno = 0x0848 // 0x1681 @0x2
0x167f…1697 at0004 = ╱8200╱ IF ╱ // 0x1683 @0x4
0x167f…1697 at0006 = ╱49╱I╱ // 0x1685 @0x6
0x167f…1697 at0007 = ╱44╱D╱ // 0x1686 @0x7
0x167f…1697 at0008 = ╱58╱X╱ // 0x1687 @0x8
0x167f…1697 at0009 = ╱50╱P╱ // 0x1688 @0x9
0x167f…1697 at000a = ╱4f╱O╱ // 0x1689 @0xa
0x167f…1697 at000b = ╱53╱S╱ // 0x168a @0xb
0x167f…1697 at000c = ╱e1╱ > ╱ // 0x168b @0xc
0x167f…1697 at000d = ╱49╱I╱ // 0x168c @0xd
0x167f…1697 at000e = ╱5f╱_╱ // 0x168d @0xe
0x167f…1697 at000f = ╱48╱H╱ // 0x168e @0xf
0x167f…1697 at0010 = ╱5c╱\╱ // 0x168f @0x10
0x167f…1697 at0011 = ╱4a╱J╱ // 0x1690 @0x11
0x167f…1697 at0012 = ╱52╱R╱ // 0x1691 @0x12
0x167f…1697 at0013 = ╱45╱E╱ // 0x1692 @0x13
0x167f…1697 at0014 = ╱43╱C╱ // 0x1693 @0x14
0x167f…1697 at0015 = ╱b5╱ THEN ╱ // 0x1694 @0x15
0x167f…1697 at0016 = ╱99╱ EXIT ╱ // 0x1695 @0x16
0x167f…1697 at0017 = EOL // 0x1696 @0x17
0x167f…1697 }
0x1697…16b8 aca6 02130 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
0x1697…16b8 LineComal80 {
0x1697…16b8 ptr = 0xaca6 // 0x1697 @0x0
0x1697…16b8 lno = 0x0852 // 0x1699 @0x2
0x1697…16b8 at0004 = ╱a9╱ GET ╱ // 0x169b @0x4
0x1697…16b8 at0005 = ╱4b╱K╱ // 0x169c @0x5
0x1697…16b8 at0006 = ╱54╱T╱ // 0x169d @0x6
0x1697…16b8 at0007 = ╱4f╱O╱ // 0x169e @0x7
0x1697…16b8 at0008 = ╱49╱I╱ // 0x169f @0x8
0x1697…16b8 at0009 = ╱44╱D╱ // 0x16a0 @0x9
0x1697…16b8 at000a = ╱58╱X╱ // 0x16a1 @0xa
0x1697…16b8 at000b = ╱ef╱ $ ╱ // 0x16a2 @0xb
0x1697…16b8 at000c = ╱ec╱ , ╱ // 0x16a3 @0xc
0x1697…16b8 at000d = ╱49╱I╱ // 0x16a4 @0xd
0x1697…16b8 at000e = ╱44╱D╱ // 0x16a5 @0xe
0x1697…16b8 at000f = ╱58╱X╱ // 0x16a6 @0xf
0x1697…16b8 at0010 = ╱50╱P╱ // 0x16a7 @0x10
0x1697…16b8 at0011 = ╱4f╱O╱ // 0x16a8 @0x11
0x1697…16b8 at0012 = ╱53╱S╱ // 0x16a9 @0x12
0x1697…16b8 at0013 = ╱f1╱ : ╱ // 0x16aa @0x13
0x1697…16b8 at0014 = ╱4b╱K╱ // 0x16ab @0x14
0x1697…16b8 at0015 = ╱54╱T╱ // 0x16ac @0x15
0x1697…16b8 at0016 = ╱4f╱O╱ // 0x16ad @0x16
0x1697…16b8 at0017 = ╱4e╱N╱ // 0x16ae @0x17
0x1697…16b8 at0018 = ╱52╱R╱ // 0x16af @0x18
0x1697…16b8 at0019 = ╱ef╱ $ ╱ // 0x16b0 @0x19
0x1697…16b8 at001a = ╱ec╱ , ╱ // 0x16b1 @0x1a
0x1697…16b8 at001b = ╱52╱R╱ // 0x16b2 @0x1b
0x1697…16b8 at001c = ╱45╱E╱ // 0x16b3 @0x1c
0x1697…16b8 at001d = ╱43╱C╱ // 0x16b4 @0x1d
0x1697…16b8 at001e = ╱4e╱N╱ // 0x16b5 @0x1e
0x1697…16b8 at001f = ╱52╱R╱ // 0x16b6 @0x1f
0x1697…16b8 at0020 = EOL // 0x16b7 @0x20
0x1697…16b8 }
0x16b8…16be acac 02140 ENDWHILE
0x16b8…16be LineComal80 {
0x16b8…16be ptr = 0xacac // 0x16b8 @0x0
0x16b8…16be lno = 0x085c // 0x16ba @0x2
0x16b8…16be at0004 = ╱94╱ ENDWHILE ╱ // 0x16bc @0x4
0x16b8…16be at0005 = EOL // 0x16bd @0x5
0x16b8…16be }
0x16be…16d4 acc2 02150 GET SAMFIL $ : S_KTONR $
0x16be…16d4 LineComal80 {
0x16be…16d4 ptr = 0xacc2 // 0x16be @0x0
0x16be…16d4 lno = 0x0866 // 0x16c0 @0x2
0x16be…16d4 at0004 = ╱a9╱ GET ╱ // 0x16c2 @0x4
0x16be…16d4 at0005 = ╱53╱S╱ // 0x16c3 @0x5
0x16be…16d4 at0006 = ╱41╱A╱ // 0x16c4 @0x6
0x16be…16d4 at0007 = ╱4d╱M╱ // 0x16c5 @0x7
0x16be…16d4 at0008 = ╱46╱F╱ // 0x16c6 @0x8
0x16be…16d4 at0009 = ╱49╱I╱ // 0x16c7 @0x9
0x16be…16d4 at000a = ╱4c╱L╱ // 0x16c8 @0xa
0x16be…16d4 at000b = ╱ef╱ $ ╱ // 0x16c9 @0xb
0x16be…16d4 at000c = ╱f1╱ : ╱ // 0x16ca @0xc
0x16be…16d4 at000d = ╱53╱S╱ // 0x16cb @0xd
0x16be…16d4 at000e = ╱5f╱_╱ // 0x16cc @0xe
0x16be…16d4 at000f = ╱4b╱K╱ // 0x16cd @0xf
0x16be…16d4 at0010 = ╱54╱T╱ // 0x16ce @0x10
0x16be…16d4 at0011 = ╱4f╱O╱ // 0x16cf @0x11
0x16be…16d4 at0012 = ╱4e╱N╱ // 0x16d0 @0x12
0x16be…16d4 at0013 = ╱52╱R╱ // 0x16d1 @0x13
0x16be…16d4 at0014 = ╱ef╱ $ ╱ // 0x16d2 @0x14
0x16be…16d4 at0015 = EOL // 0x16d3 @0x15
0x16be…16d4 }
0x16d4…16da acc8 02160 ENDWHILE
0x16d4…16da LineComal80 {
0x16d4…16da ptr = 0xacc8 // 0x16d4 @0x0
0x16d4…16da lno = 0x0870 // 0x16d6 @0x2
0x16d4…16da at0004 = ╱94╱ ENDWHILE ╱ // 0x16d8 @0x4
0x16d4…16da at0005 = EOL // 0x16d9 @0x5
0x16d4…16da }
0x16da…16f3 ace1 02170 LET SALDO := SALDO * ( - 1 )
0x16da…16f3 LineComal80 {
0x16da…16f3 ptr = 0xace1 // 0x16da @0x0
0x16da…16f3 lno = 0x087a // 0x16dc @0x2
0x16da…16f3 at0004 = ╱86╱ LET ╱ // 0x16de @0x4
0x16da…16f3 at0005 = ╱53╱S╱ // 0x16df @0x5
0x16da…16f3 at0006 = ╱41╱A╱ // 0x16e0 @0x6
0x16da…16f3 at0007 = ╱4c╱L╱ // 0x16e1 @0x7
0x16da…16f3 at0008 = ╱44╱D╱ // 0x16e2 @0x8
0x16da…16f3 at0009 = ╱4f╱O╱ // 0x16e3 @0x9
0x16da…16f3 at000a = ╱f0╱ := ╱ // 0x16e4 @0xa
0x16da…16f3 at000b = ╱53╱S╱ // 0x16e5 @0xb
0x16da…16f3 at000c = ╱41╱A╱ // 0x16e6 @0xc
0x16da…16f3 at000d = ╱4c╱L╱ // 0x16e7 @0xd
0x16da…16f3 at000e = ╱44╱D╱ // 0x16e8 @0xe
0x16da…16f3 at000f = ╱4f╱O╱ // 0x16e9 @0xf
0x16da…16f3 at0010 = ╱e7╱ * ╱ // 0x16ea @0x10
0x16da…16f3 at0011 = ╱ed╱ ( ╱ // 0x16eb @0x11
0x16da…16f3 at0012 = ╱de╱ - ╱ // 0x16ec @0x12
0x16da…16f3 at0013 = ╱31╱1╱ // 0x16ed @0x13
0x16da…16f3 at0014 = ╱f20100╱ // 0x16ee @0x14
0x16da…16f3 at0017 = ╱ee╱ ) ╱ // 0x16f1 @0x17
0x16da…16f3 at0018 = EOL // 0x16f2 @0x18
0x16da…16f3 }
0x16f3…1700 acee 02180 CLOSE SAMFIL $
0x16f3…1700 LineComal80 {
0x16f3…1700 ptr = 0xacee // 0x16f3 @0x0
0x16f3…1700 lno = 0x0884 // 0x16f5 @0x2
0x16f3…1700 at0004 = ╱a8╱ CLOSE ╱ // 0x16f7 @0x4
0x16f3…1700 at0005 = ╱53╱S╱ // 0x16f8 @0x5
0x16f3…1700 at0006 = ╱41╱A╱ // 0x16f9 @0x6
0x16f3…1700 at0007 = ╱4d╱M╱ // 0x16fa @0x7
0x16f3…1700 at0008 = ╱46╱F╱ // 0x16fb @0x8
0x16f3…1700 at0009 = ╱49╱I╱ // 0x16fc @0x9
0x16f3…1700 at000a = ╱4c╱L╱ // 0x16fd @0xa
0x16f3…1700 at000b = ╱ef╱ $ ╱ // 0x16fe @0xb
0x16f3…1700 at000c = EOL // 0x16ff @0xc
0x16f3…1700 }
0x1700…171a ad08 02190 EXEC OPENFIL ( SAMFIL $ , "W" )
0x1700…171a LineComal80 {
0x1700…171a ptr = 0xad08 // 0x1700 @0x0
0x1700…171a lno = 0x088e // 0x1702 @0x2
0x1700…171a at0004 = ╱9d╱ EXEC ╱ // 0x1704 @0x4
0x1700…171a at0005 = ╱4f╱O╱ // 0x1705 @0x5
0x1700…171a at0006 = ╱50╱P╱ // 0x1706 @0x6
0x1700…171a at0007 = ╱45╱E╱ // 0x1707 @0x7
0x1700…171a at0008 = ╱4e╱N╱ // 0x1708 @0x8
0x1700…171a at0009 = ╱46╱F╱ // 0x1709 @0x9
0x1700…171a at000a = ╱49╱I╱ // 0x170a @0xa
0x1700…171a at000b = ╱4c╱L╱ // 0x170b @0xb
0x1700…171a at000c = ╱ed╱ ( ╱ // 0x170c @0xc
0x1700…171a at000d = ╱53╱S╱ // 0x170d @0xd
0x1700…171a at000e = ╱41╱A╱ // 0x170e @0xe
0x1700…171a at000f = ╱4d╱M╱ // 0x170f @0xf
0x1700…171a at0010 = ╱46╱F╱ // 0x1710 @0x10
0x1700…171a at0011 = ╱49╱I╱ // 0x1711 @0x11
0x1700…171a at0012 = ╱4c╱L╱ // 0x1712 @0x12
0x1700…171a at0013 = ╱ef╱ $ ╱ // 0x1713 @0x13
0x1700…171a at0014 = ╱ec╱ , ╱ // 0x1714 @0x14
0x1700…171a at0015 = ╱22╱"╱ // 0x1715 @0x15
0x1700…171a at0016 = ╱57╱W╱ // 0x1716 @0x16
0x1700…171a at0017 = ╱22╱"╱ // 0x1717 @0x17
0x1700…171a at0018 = ╱ee╱ ) ╱ // 0x1718 @0x18
0x1700…171a at0019 = EOL // 0x1719 @0x19
0x1700…171a }
0x171a…172d ad1b 02200 PUT SAMFIL $ : SALDO
0x171a…172d LineComal80 {
0x171a…172d ptr = 0xad1b // 0x171a @0x0
0x171a…172d lno = 0x0898 // 0x171c @0x2
0x171a…172d at0004 = ╱aa╱ PUT ╱ // 0x171e @0x4
0x171a…172d at0005 = ╱53╱S╱ // 0x171f @0x5
0x171a…172d at0006 = ╱41╱A╱ // 0x1720 @0x6
0x171a…172d at0007 = ╱4d╱M╱ // 0x1721 @0x7
0x171a…172d at0008 = ╱46╱F╱ // 0x1722 @0x8
0x171a…172d at0009 = ╱49╱I╱ // 0x1723 @0x9
0x171a…172d at000a = ╱4c╱L╱ // 0x1724 @0xa
0x171a…172d at000b = ╱ef╱ $ ╱ // 0x1725 @0xb
0x171a…172d at000c = ╱f1╱ : ╱ // 0x1726 @0xc
0x171a…172d at000d = ╱53╱S╱ // 0x1727 @0xd
0x171a…172d at000e = ╱41╱A╱ // 0x1728 @0xe
0x171a…172d at000f = ╱4c╱L╱ // 0x1729 @0xf
0x171a…172d at0010 = ╱44╱D╱ // 0x172a @0x10
0x171a…172d at0011 = ╱4f╱O╱ // 0x172b @0x11
0x171a…172d at0012 = EOL // 0x172c @0x12
0x171a…172d }
0x172d…173a ad28 02210 CLOSE SAMFIL $
0x172d…173a LineComal80 {
0x172d…173a ptr = 0xad28 // 0x172d @0x0
0x172d…173a lno = 0x08a2 // 0x172f @0x2
0x172d…173a at0004 = ╱a8╱ CLOSE ╱ // 0x1731 @0x4
0x172d…173a at0005 = ╱53╱S╱ // 0x1732 @0x5
0x172d…173a at0006 = ╱41╱A╱ // 0x1733 @0x6
0x172d…173a at0007 = ╱4d╱M╱ // 0x1734 @0x7
0x172d…173a at0008 = ╱46╱F╱ // 0x1735 @0x8
0x172d…173a at0009 = ╱49╱I╱ // 0x1736 @0x9
0x172d…173a at000a = ╱4c╱L╱ // 0x1737 @0xa
0x172d…173a at000b = ╱ef╱ $ ╱ // 0x1738 @0xb
0x172d…173a at000c = EOL // 0x1739 @0xc
0x172d…173a }
0x173a…1749 ad37 02220 ENDPROC SAMMENT[L
0x173a…1749 LineComal80 {
0x173a…1749 ptr = 0xad37 // 0x173a @0x0
0x173a…1749 lno = 0x08ac // 0x173c @0x2
0x173a…1749 at0004 = ╱9f╱ ENDPROC ╱ // 0x173e @0x4
0x173a…1749 at0005 = ╱53╱S╱ // 0x173f @0x5
0x173a…1749 at0006 = ╱41╱A╱ // 0x1740 @0x6
0x173a…1749 at0007 = ╱4d╱M╱ // 0x1741 @0x7
0x173a…1749 at0008 = ╱4d╱M╱ // 0x1742 @0x8
0x173a…1749 at0009 = ╱45╱E╱ // 0x1743 @0x9
0x173a…1749 at000a = ╱4e╱N╱ // 0x1744 @0xa
0x173a…1749 at000b = ╱54╱T╱ // 0x1745 @0xb
0x173a…1749 at000c = ╱5b╱[╱ // 0x1746 @0xc
0x173a…1749 at000d = ╱4c╱L╱ // 0x1747 @0xd
0x173a…1749 at000e = EOL // 0x1748 @0xe
0x173a…1749 }
0x1749…174e ad3c 02230
0x1749…174e LineComal80 {
0x1749…174e ptr = 0xad3c // 0x1749 @0x0
0x1749…174e lno = 0x08b6 // 0x174b @0x2
0x1749…174e at0004 = EOL // 0x174d @0x4
0x1749…174e }
0x174e…175c ad4a 02240 PROC UDSKRIV
0x174e…175c LineComal80 {
0x174e…175c ptr = 0xad4a // 0x174e @0x0
0x174e…175c lno = 0x08c0 // 0x1750 @0x2
0x174e…175c at0004 = ╱9e00╱ PROC ╱ // 0x1752 @0x4
0x174e…175c at0006 = ╱55╱U╱ // 0x1754 @0x6
0x174e…175c at0007 = ╱44╱D╱ // 0x1755 @0x7
0x174e…175c at0008 = ╱53╱S╱ // 0x1756 @0x8
0x174e…175c at0009 = ╱4b╱K╱ // 0x1757 @0x9
0x174e…175c at000a = ╱52╱R╱ // 0x1758 @0xa
0x174e…175c at000b = ╱49╱I╱ // 0x1759 @0xb
0x174e…175c at000c = ╱56╱V╱ // 0x175a @0xc
0x174e…175c at000d = EOL // 0x175b @0xd
0x174e…175c }
0x175c…1788 ad76 02250 LET MAX_LIN := 72 ; LIN_T := 200 ; SIDENR := 0
0x175c…1788 LineComal80 {
0x175c…1788 ptr = 0xad76 // 0x175c @0x0
0x175c…1788 lno = 0x08ca // 0x175e @0x2
0x175c…1788 at0004 = ╱86╱ LET ╱ // 0x1760 @0x4
0x175c…1788 at0005 = ╱4d╱M╱ // 0x1761 @0x5
0x175c…1788 at0006 = ╱41╱A╱ // 0x1762 @0x6
0x175c…1788 at0007 = ╱58╱X╱ // 0x1763 @0x7
0x175c…1788 at0008 = ╱5f╱_╱ // 0x1764 @0x8
0x175c…1788 at0009 = ╱4c╱L╱ // 0x1765 @0x9
0x175c…1788 at000a = ╱49╱I╱ // 0x1766 @0xa
0x175c…1788 at000b = ╱4e╱N╱ // 0x1767 @0xb
0x175c…1788 at000c = ╱f0╱ := ╱ // 0x1768 @0xc
0x175c…1788 at000d = ╱37╱7╱ // 0x1769 @0xd
0x175c…1788 at000e = ╱32╱2╱ // 0x176a @0xe
0x175c…1788 at000f = ╱f24800╱ // 0x176b @0xf
0x175c…1788 at0012 = ╱ea╱ ; ╱ // 0x176e @0x12
0x175c…1788 at0013 = ╱4c╱L╱ // 0x176f @0x13
0x175c…1788 at0014 = ╱49╱I╱ // 0x1770 @0x14
0x175c…1788 at0015 = ╱4e╱N╱ // 0x1771 @0x15
0x175c…1788 at0016 = ╱5f╱_╱ // 0x1772 @0x16
0x175c…1788 at0017 = ╱54╱T╱ // 0x1773 @0x17
0x175c…1788 at0018 = ╱f0╱ := ╱ // 0x1774 @0x18
0x175c…1788 at0019 = ╱32╱2╱ // 0x1775 @0x19
0x175c…1788 at001a = ╱30╱0╱ // 0x1776 @0x1a
0x175c…1788 at001b = ╱30╱0╱ // 0x1777 @0x1b
0x175c…1788 at001c = ╱f2c800╱ // 0x1778 @0x1c
0x175c…1788 at001f = ╱ea╱ ; ╱ // 0x177b @0x1f
0x175c…1788 at0020 = ╱53╱S╱ // 0x177c @0x20
0x175c…1788 at0021 = ╱49╱I╱ // 0x177d @0x21
0x175c…1788 at0022 = ╱44╱D╱ // 0x177e @0x22
0x175c…1788 at0023 = ╱45╱E╱ // 0x177f @0x23
0x175c…1788 at0024 = ╱4e╱N╱ // 0x1780 @0x24
0x175c…1788 at0025 = ╱52╱R╱ // 0x1781 @0x25
0x175c…1788 at0026 = ╱f0╱ := ╱ // 0x1782 @0x26
0x175c…1788 at0027 = ╱30╱0╱ // 0x1783 @0x27
0x175c…1788 at0028 = ╱f20000╱ // 0x1784 @0x28
0x175c…1788 at002b = EOL // 0x1787 @0x2b
0x175c…1788 }
0x1788…17ae ad9c 02260 EXEC PRINTRES ( "smal…EDB-liste" , 17 )
0x1788…17ae LineComal80 {
0x1788…17ae ptr = 0xad9c // 0x1788 @0x0
0x1788…17ae lno = 0x08d4 // 0x178a @0x2
0x1788…17ae at0004 = ╱9d╱ EXEC ╱ // 0x178c @0x4
0x1788…17ae at0005 = ╱50╱P╱ // 0x178d @0x5
0x1788…17ae at0006 = ╱52╱R╱ // 0x178e @0x6
0x1788…17ae at0007 = ╱49╱I╱ // 0x178f @0x7
0x1788…17ae at0008 = ╱4e╱N╱ // 0x1790 @0x8
0x1788…17ae at0009 = ╱54╱T╱ // 0x1791 @0x9
0x1788…17ae at000a = ╱52╱R╱ // 0x1792 @0xa
0x1788…17ae at000b = ╱45╱E╱ // 0x1793 @0xb
0x1788…17ae at000c = ╱53╱S╱ // 0x1794 @0xc
0x1788…17ae at000d = ╱ed╱ ( ╱ // 0x1795 @0xd
0x1788…17ae at000e = ╱22╱"╱ // 0x1796 @0xe
0x1788…17ae at000f = ╱73╱s╱ // 0x1797 @0xf
0x1788…17ae at0010 = ╱6d╱m╱ // 0x1798 @0x10
0x1788…17ae at0011 = ╱61╱a╱ // 0x1799 @0x11
0x1788…17ae at0012 = ╱6c╱l╱ // 0x179a @0x12
0x1788…17ae at0013 = ╱20╱…╱ // 0x179b @0x13
0x1788…17ae at0014 = ╱45╱E╱ // 0x179c @0x14
0x1788…17ae at0015 = ╱44╱D╱ // 0x179d @0x15
0x1788…17ae at0016 = ╱42╱B╱ // 0x179e @0x16
0x1788…17ae at0017 = ╱2d╱-╱ // 0x179f @0x17
0x1788…17ae at0018 = ╱6c╱l╱ // 0x17a0 @0x18
0x1788…17ae at0019 = ╱69╱i╱ // 0x17a1 @0x19
0x1788…17ae at001a = ╱73╱s╱ // 0x17a2 @0x1a
0x1788…17ae at001b = ╱74╱t╱ // 0x17a3 @0x1b
0x1788…17ae at001c = ╱65╱e╱ // 0x17a4 @0x1c
0x1788…17ae at001d = ╱22╱"╱ // 0x17a5 @0x1d
0x1788…17ae at001e = ╱ec╱ , ╱ // 0x17a6 @0x1e
0x1788…17ae at001f = ╱31╱1╱ // 0x17a7 @0x1f
0x1788…17ae at0020 = ╱37╱7╱ // 0x17a8 @0x20
0x1788…17ae at0021 = ╱f21100╱ // 0x17a9 @0x21
0x1788…17ae at0024 = ╱ee╱ ) ╱ // 0x17ac @0x24
0x1788…17ae at0025 = EOL // 0x17ad @0x25
0x1788…17ae }
0x17ae…17bd adab 02270 EXEC SIDESKIFT
0x17ae…17bd LineComal80 {
0x17ae…17bd ptr = 0xadab // 0x17ae @0x0
0x17ae…17bd lno = 0x08de // 0x17b0 @0x2
0x17ae…17bd at0004 = ╱9d╱ EXEC ╱ // 0x17b2 @0x4
0x17ae…17bd at0005 = ╱53╱S╱ // 0x17b3 @0x5
0x17ae…17bd at0006 = ╱49╱I╱ // 0x17b4 @0x6
0x17ae…17bd at0007 = ╱44╱D╱ // 0x17b5 @0x7
0x17ae…17bd at0008 = ╱45╱E╱ // 0x17b6 @0x8
0x17ae…17bd at0009 = ╱53╱S╱ // 0x17b7 @0x9
0x17ae…17bd at000a = ╱4b╱K╱ // 0x17b8 @0xa
0x17ae…17bd at000b = ╱49╱I╱ // 0x17b9 @0xb
0x17ae…17bd at000c = ╱46╱F╱ // 0x17ba @0xc
0x17ae…17bd at000d = ╱54╱T╱ // 0x17bb @0xd
0x17ae…17bd at000e = EOL // 0x17bc @0xe
0x17ae…17bd }
0x17bd…180e adfc 02280 PRINT "Regnskab…for…perioden…" ; PRIMODAT $ ( 1 : 2 ) ; "." ; PRIMODAT $ ( 3 : 2 ) ; "." ;
0x17bd…180e LineComal80 {
0x17bd…180e ptr = 0xadfc // 0x17bd @0x0
0x17bd…180e lno = 0x08e8 // 0x17bf @0x2
0x17bd…180e at0004 = ╱92╱ PRINT ╱ // 0x17c1 @0x4
0x17bd…180e at0005 = ╱22╱"╱ // 0x17c2 @0x5
0x17bd…180e at0006 = ╱52╱R╱ // 0x17c3 @0x6
0x17bd…180e at0007 = ╱65╱e╱ // 0x17c4 @0x7
0x17bd…180e at0008 = ╱67╱g╱ // 0x17c5 @0x8
0x17bd…180e at0009 = ╱6e╱n╱ // 0x17c6 @0x9
0x17bd…180e at000a = ╱73╱s╱ // 0x17c7 @0xa
0x17bd…180e at000b = ╱6b╱k╱ // 0x17c8 @0xb
0x17bd…180e at000c = ╱61╱a╱ // 0x17c9 @0xc
0x17bd…180e at000d = ╱62╱b╱ // 0x17ca @0xd
0x17bd…180e at000e = ╱20╱…╱ // 0x17cb @0xe
0x17bd…180e at000f = ╱66╱f╱ // 0x17cc @0xf
0x17bd…180e at0010 = ╱6f╱o╱ // 0x17cd @0x10
0x17bd…180e at0011 = ╱72╱r╱ // 0x17ce @0x11
0x17bd…180e at0012 = ╱20╱…╱ // 0x17cf @0x12
0x17bd…180e at0013 = ╱70╱p╱ // 0x17d0 @0x13
0x17bd…180e at0014 = ╱65╱e╱ // 0x17d1 @0x14
0x17bd…180e at0015 = ╱72╱r╱ // 0x17d2 @0x15
0x17bd…180e at0016 = ╱69╱i╱ // 0x17d3 @0x16
0x17bd…180e at0017 = ╱6f╱o╱ // 0x17d4 @0x17
0x17bd…180e at0018 = ╱64╱d╱ // 0x17d5 @0x18
0x17bd…180e at0019 = ╱65╱e╱ // 0x17d6 @0x19
0x17bd…180e at001a = ╱6e╱n╱ // 0x17d7 @0x1a
0x17bd…180e at001b = ╱20╱…╱ // 0x17d8 @0x1b
0x17bd…180e at001c = ╱22╱"╱ // 0x17d9 @0x1c
0x17bd…180e at001d = ╱ea╱ ; ╱ // 0x17da @0x1d
0x17bd…180e at001e = ╱50╱P╱ // 0x17db @0x1e
0x17bd…180e at001f = ╱52╱R╱ // 0x17dc @0x1f
0x17bd…180e at0020 = ╱49╱I╱ // 0x17dd @0x20
0x17bd…180e at0021 = ╱4d╱M╱ // 0x17de @0x21
0x17bd…180e at0022 = ╱4f╱O╱ // 0x17df @0x22
0x17bd…180e at0023 = ╱44╱D╱ // 0x17e0 @0x23
0x17bd…180e at0024 = ╱41╱A╱ // 0x17e1 @0x24
0x17bd…180e at0025 = ╱54╱T╱ // 0x17e2 @0x25
0x17bd…180e at0026 = ╱ef╱ $ ╱ // 0x17e3 @0x26
0x17bd…180e at0027 = ╱ed╱ ( ╱ // 0x17e4 @0x27
0x17bd…180e at0028 = ╱31╱1╱ // 0x17e5 @0x28
0x17bd…180e at0029 = ╱f20100╱ // 0x17e6 @0x29
0x17bd…180e at002c = ╱f1╱ : ╱ // 0x17e9 @0x2c
0x17bd…180e at002d = ╱32╱2╱ // 0x17ea @0x2d
0x17bd…180e at002e = ╱f20200╱ // 0x17eb @0x2e
0x17bd…180e at0031 = ╱ee╱ ) ╱ // 0x17ee @0x31
0x17bd…180e at0032 = ╱ea╱ ; ╱ // 0x17ef @0x32
0x17bd…180e at0033 = ╱22╱"╱ // 0x17f0 @0x33
0x17bd…180e at0034 = ╱2e╱.╱ // 0x17f1 @0x34
0x17bd…180e at0035 = ╱22╱"╱ // 0x17f2 @0x35
0x17bd…180e at0036 = ╱ea╱ ; ╱ // 0x17f3 @0x36
0x17bd…180e at0037 = ╱50╱P╱ // 0x17f4 @0x37
0x17bd…180e at0038 = ╱52╱R╱ // 0x17f5 @0x38
0x17bd…180e at0039 = ╱49╱I╱ // 0x17f6 @0x39
0x17bd…180e at003a = ╱4d╱M╱ // 0x17f7 @0x3a
0x17bd…180e at003b = ╱4f╱O╱ // 0x17f8 @0x3b
0x17bd…180e at003c = ╱44╱D╱ // 0x17f9 @0x3c
0x17bd…180e at003d = ╱41╱A╱ // 0x17fa @0x3d
0x17bd…180e at003e = ╱54╱T╱ // 0x17fb @0x3e
0x17bd…180e at003f = ╱ef╱ $ ╱ // 0x17fc @0x3f
0x17bd…180e at0040 = ╱ed╱ ( ╱ // 0x17fd @0x40
0x17bd…180e at0041 = ╱33╱3╱ // 0x17fe @0x41
0x17bd…180e at0042 = ╱f20300╱ // 0x17ff @0x42
0x17bd…180e at0045 = ╱f1╱ : ╱ // 0x1802 @0x45
0x17bd…180e at0046 = ╱32╱2╱ // 0x1803 @0x46
0x17bd…180e at0047 = ╱f20200╱ // 0x1804 @0x47
0x17bd…180e at004a = ╱ee╱ ) ╱ // 0x1807 @0x4a
0x17bd…180e at004b = ╱ea╱ ; ╱ // 0x1808 @0x4b
0x17bd…180e at004c = ╱22╱"╱ // 0x1809 @0x4c
0x17bd…180e at004d = ╱2e╱.╱ // 0x180a @0x4d
0x17bd…180e at004e = ╱22╱"╱ // 0x180b @0x4e
0x17bd…180e at004f = ╱ea╱ ; ╱ // 0x180c @0x4f
0x17bd…180e at0050 = EOL // 0x180d @0x50
0x17bd…180e }
0x180e…1861 ae4f 02290 PRINT PRIMODAT $ ( 5 : 2 ) ; "…-…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ;
0x180e…1861 LineComal80 {
0x180e…1861 ptr = 0xae4f // 0x180e @0x0
0x180e…1861 lno = 0x08f2 // 0x1810 @0x2
0x180e…1861 at0004 = ╱92╱ PRINT ╱ // 0x1812 @0x4
0x180e…1861 at0005 = ╱50╱P╱ // 0x1813 @0x5
0x180e…1861 at0006 = ╱52╱R╱ // 0x1814 @0x6
0x180e…1861 at0007 = ╱49╱I╱ // 0x1815 @0x7
0x180e…1861 at0008 = ╱4d╱M╱ // 0x1816 @0x8
0x180e…1861 at0009 = ╱4f╱O╱ // 0x1817 @0x9
0x180e…1861 at000a = ╱44╱D╱ // 0x1818 @0xa
0x180e…1861 at000b = ╱41╱A╱ // 0x1819 @0xb
0x180e…1861 at000c = ╱54╱T╱ // 0x181a @0xc
0x180e…1861 at000d = ╱ef╱ $ ╱ // 0x181b @0xd
0x180e…1861 at000e = ╱ed╱ ( ╱ // 0x181c @0xe
0x180e…1861 at000f = ╱35╱5╱ // 0x181d @0xf
0x180e…1861 at0010 = ╱f20500╱ // 0x181e @0x10
0x180e…1861 at0013 = ╱f1╱ : ╱ // 0x1821 @0x13
0x180e…1861 at0014 = ╱32╱2╱ // 0x1822 @0x14
0x180e…1861 at0015 = ╱f20200╱ // 0x1823 @0x15
0x180e…1861 at0018 = ╱ee╱ ) ╱ // 0x1826 @0x18
0x180e…1861 at0019 = ╱ea╱ ; ╱ // 0x1827 @0x19
0x180e…1861 at001a = ╱22╱"╱ // 0x1828 @0x1a
0x180e…1861 at001b = ╱20╱…╱ // 0x1829 @0x1b
0x180e…1861 at001c = ╱2d╱-╱ // 0x182a @0x1c
0x180e…1861 at001d = ╱20╱…╱ // 0x182b @0x1d
0x180e…1861 at001e = ╱22╱"╱ // 0x182c @0x1e
0x180e…1861 at001f = ╱ea╱ ; ╱ // 0x182d @0x1f
0x180e…1861 at0020 = ╱53╱S╱ // 0x182e @0x20
0x180e…1861 at0021 = ╱59╱Y╱ // 0x182f @0x21
0x180e…1861 at0022 = ╱53╱S╱ // 0x1830 @0x22
0x180e…1861 at0023 = ╱54╱T╱ // 0x1831 @0x23
0x180e…1861 at0024 = ╱5f╱_╱ // 0x1832 @0x24
0x180e…1861 at0025 = ╱44╱D╱ // 0x1833 @0x25
0x180e…1861 at0026 = ╱41╱A╱ // 0x1834 @0x26
0x180e…1861 at0027 = ╱54╱T╱ // 0x1835 @0x27
0x180e…1861 at0028 = ╱ef╱ $ ╱ // 0x1836 @0x28
0x180e…1861 at0029 = ╱ed╱ ( ╱ // 0x1837 @0x29
0x180e…1861 at002a = ╱31╱1╱ // 0x1838 @0x2a
0x180e…1861 at002b = ╱f20100╱ // 0x1839 @0x2b
0x180e…1861 at002e = ╱f1╱ : ╱ // 0x183c @0x2e
0x180e…1861 at002f = ╱32╱2╱ // 0x183d @0x2f
0x180e…1861 at0030 = ╱f20200╱ // 0x183e @0x30
0x180e…1861 at0033 = ╱ee╱ ) ╱ // 0x1841 @0x33
0x180e…1861 at0034 = ╱ea╱ ; ╱ // 0x1842 @0x34
0x180e…1861 at0035 = ╱22╱"╱ // 0x1843 @0x35
0x180e…1861 at0036 = ╱2e╱.╱ // 0x1844 @0x36
0x180e…1861 at0037 = ╱22╱"╱ // 0x1845 @0x37
0x180e…1861 at0038 = ╱ea╱ ; ╱ // 0x1846 @0x38
0x180e…1861 at0039 = ╱53╱S╱ // 0x1847 @0x39
0x180e…1861 at003a = ╱59╱Y╱ // 0x1848 @0x3a
0x180e…1861 at003b = ╱53╱S╱ // 0x1849 @0x3b
0x180e…1861 at003c = ╱54╱T╱ // 0x184a @0x3c
0x180e…1861 at003d = ╱5f╱_╱ // 0x184b @0x3d
0x180e…1861 at003e = ╱44╱D╱ // 0x184c @0x3e
0x180e…1861 at003f = ╱41╱A╱ // 0x184d @0x3f
0x180e…1861 at0040 = ╱54╱T╱ // 0x184e @0x40
0x180e…1861 at0041 = ╱ef╱ $ ╱ // 0x184f @0x41
0x180e…1861 at0042 = ╱ed╱ ( ╱ // 0x1850 @0x42
0x180e…1861 at0043 = ╱33╱3╱ // 0x1851 @0x43
0x180e…1861 at0044 = ╱f20300╱ // 0x1852 @0x44
0x180e…1861 at0047 = ╱f1╱ : ╱ // 0x1855 @0x47
0x180e…1861 at0048 = ╱32╱2╱ // 0x1856 @0x48
0x180e…1861 at0049 = ╱f20200╱ // 0x1857 @0x49
0x180e…1861 at004c = ╱ee╱ ) ╱ // 0x185a @0x4c
0x180e…1861 at004d = ╱ea╱ ; ╱ // 0x185b @0x4d
0x180e…1861 at004e = ╱22╱"╱ // 0x185c @0x4e
0x180e…1861 at004f = ╱2e╱.╱ // 0x185d @0x4f
0x180e…1861 at0050 = ╱22╱"╱ // 0x185e @0x50
0x180e…1861 at0051 = ╱ea╱ ; ╱ // 0x185f @0x51
0x180e…1861 at0052 = EOL // 0x1860 @0x52
0x180e…1861 }
0x1861…187b ae69 02300 PRINT SYST_DAT $ ( 5 : 2 )
0x1861…187b LineComal80 {
0x1861…187b ptr = 0xae69 // 0x1861 @0x0
0x1861…187b lno = 0x08fc // 0x1863 @0x2
0x1861…187b at0004 = ╱92╱ PRINT ╱ // 0x1865 @0x4
0x1861…187b at0005 = ╱53╱S╱ // 0x1866 @0x5
0x1861…187b at0006 = ╱59╱Y╱ // 0x1867 @0x6
0x1861…187b at0007 = ╱53╱S╱ // 0x1868 @0x7
0x1861…187b at0008 = ╱54╱T╱ // 0x1869 @0x8
0x1861…187b at0009 = ╱5f╱_╱ // 0x186a @0x9
0x1861…187b at000a = ╱44╱D╱ // 0x186b @0xa
0x1861…187b at000b = ╱41╱A╱ // 0x186c @0xb
0x1861…187b at000c = ╱54╱T╱ // 0x186d @0xc
0x1861…187b at000d = ╱ef╱ $ ╱ // 0x186e @0xd
0x1861…187b at000e = ╱ed╱ ( ╱ // 0x186f @0xe
0x1861…187b at000f = ╱35╱5╱ // 0x1870 @0xf
0x1861…187b at0010 = ╱f20500╱ // 0x1871 @0x10
0x1861…187b at0013 = ╱f1╱ : ╱ // 0x1874 @0x13
0x1861…187b at0014 = ╱32╱2╱ // 0x1875 @0x14
0x1861…187b at0015 = ╱f20200╱ // 0x1876 @0x15
0x1861…187b at0018 = ╱ee╱ ) ╱ // 0x1879 @0x18
0x1861…187b at0019 = EOL // 0x187a @0x19
0x1861…187b }
0x187b…18c3 aeb1 02310 PRINT "================================================================"
0x187b…18c3 LineComal80 {
0x187b…18c3 ptr = 0xaeb1 // 0x187b @0x0
0x187b…18c3 lno = 0x0906 // 0x187d @0x2
0x187b…18c3 at0004 = ╱92╱ PRINT ╱ // 0x187f @0x4
0x187b…18c3 at0005 = ╱22╱"╱ // 0x1880 @0x5
0x187b…18c3 at0006 = ╱3d╱=╱ // 0x1881 @0x6
0x187b…18c3 at0007 = ╱3d╱=╱ // 0x1882 @0x7
0x187b…18c3 at0008 = ╱3d╱=╱ // 0x1883 @0x8
0x187b…18c3 at0009 = ╱3d╱=╱ // 0x1884 @0x9
0x187b…18c3 at000a = ╱3d╱=╱ // 0x1885 @0xa
0x187b…18c3 at000b = ╱3d╱=╱ // 0x1886 @0xb
0x187b…18c3 at000c = ╱3d╱=╱ // 0x1887 @0xc
0x187b…18c3 at000d = ╱3d╱=╱ // 0x1888 @0xd
0x187b…18c3 at000e = ╱3d╱=╱ // 0x1889 @0xe
0x187b…18c3 at000f = ╱3d╱=╱ // 0x188a @0xf
0x187b…18c3 at0010 = ╱3d╱=╱ // 0x188b @0x10
0x187b…18c3 at0011 = ╱3d╱=╱ // 0x188c @0x11
0x187b…18c3 at0012 = ╱3d╱=╱ // 0x188d @0x12
0x187b…18c3 at0013 = ╱3d╱=╱ // 0x188e @0x13
0x187b…18c3 at0014 = ╱3d╱=╱ // 0x188f @0x14
0x187b…18c3 at0015 = ╱3d╱=╱ // 0x1890 @0x15
0x187b…18c3 at0016 = ╱3d╱=╱ // 0x1891 @0x16
0x187b…18c3 at0017 = ╱3d╱=╱ // 0x1892 @0x17
0x187b…18c3 at0018 = ╱3d╱=╱ // 0x1893 @0x18
0x187b…18c3 at0019 = ╱3d╱=╱ // 0x1894 @0x19
0x187b…18c3 at001a = ╱3d╱=╱ // 0x1895 @0x1a
0x187b…18c3 at001b = ╱3d╱=╱ // 0x1896 @0x1b
0x187b…18c3 at001c = ╱3d╱=╱ // 0x1897 @0x1c
0x187b…18c3 at001d = ╱3d╱=╱ // 0x1898 @0x1d
0x187b…18c3 at001e = ╱3d╱=╱ // 0x1899 @0x1e
0x187b…18c3 at001f = ╱3d╱=╱ // 0x189a @0x1f
0x187b…18c3 at0020 = ╱3d╱=╱ // 0x189b @0x20
0x187b…18c3 at0021 = ╱3d╱=╱ // 0x189c @0x21
0x187b…18c3 at0022 = ╱3d╱=╱ // 0x189d @0x22
0x187b…18c3 at0023 = ╱3d╱=╱ // 0x189e @0x23
0x187b…18c3 at0024 = ╱3d╱=╱ // 0x189f @0x24
0x187b…18c3 at0025 = ╱3d╱=╱ // 0x18a0 @0x25
0x187b…18c3 at0026 = ╱3d╱=╱ // 0x18a1 @0x26
0x187b…18c3 at0027 = ╱3d╱=╱ // 0x18a2 @0x27
0x187b…18c3 at0028 = ╱3d╱=╱ // 0x18a3 @0x28
0x187b…18c3 at0029 = ╱3d╱=╱ // 0x18a4 @0x29
0x187b…18c3 at002a = ╱3d╱=╱ // 0x18a5 @0x2a
0x187b…18c3 at002b = ╱3d╱=╱ // 0x18a6 @0x2b
0x187b…18c3 at002c = ╱3d╱=╱ // 0x18a7 @0x2c
0x187b…18c3 at002d = ╱3d╱=╱ // 0x18a8 @0x2d
0x187b…18c3 at002e = ╱3d╱=╱ // 0x18a9 @0x2e
0x187b…18c3 at002f = ╱3d╱=╱ // 0x18aa @0x2f
0x187b…18c3 at0030 = ╱3d╱=╱ // 0x18ab @0x30
0x187b…18c3 at0031 = ╱3d╱=╱ // 0x18ac @0x31
0x187b…18c3 at0032 = ╱3d╱=╱ // 0x18ad @0x32
0x187b…18c3 at0033 = ╱3d╱=╱ // 0x18ae @0x33
0x187b…18c3 at0034 = ╱3d╱=╱ // 0x18af @0x34
0x187b…18c3 at0035 = ╱3d╱=╱ // 0x18b0 @0x35
0x187b…18c3 at0036 = ╱3d╱=╱ // 0x18b1 @0x36
0x187b…18c3 at0037 = ╱3d╱=╱ // 0x18b2 @0x37
0x187b…18c3 at0038 = ╱3d╱=╱ // 0x18b3 @0x38
0x187b…18c3 at0039 = ╱3d╱=╱ // 0x18b4 @0x39
0x187b…18c3 at003a = ╱3d╱=╱ // 0x18b5 @0x3a
0x187b…18c3 at003b = ╱3d╱=╱ // 0x18b6 @0x3b
0x187b…18c3 at003c = ╱3d╱=╱ // 0x18b7 @0x3c
0x187b…18c3 at003d = ╱3d╱=╱ // 0x18b8 @0x3d
0x187b…18c3 at003e = ╱3d╱=╱ // 0x18b9 @0x3e
0x187b…18c3 at003f = ╱3d╱=╱ // 0x18ba @0x3f
0x187b…18c3 at0040 = ╱3d╱=╱ // 0x18bb @0x40
0x187b…18c3 at0041 = ╱3d╱=╱ // 0x18bc @0x41
0x187b…18c3 at0042 = ╱3d╱=╱ // 0x18bd @0x42
0x187b…18c3 at0043 = ╱3d╱=╱ // 0x18be @0x43
0x187b…18c3 at0044 = ╱3d╱=╱ // 0x18bf @0x44
0x187b…18c3 at0045 = ╱3d╱=╱ // 0x18c0 @0x45
0x187b…18c3 at0046 = ╱22╱"╱ // 0x18c1 @0x46
0x187b…18c3 at0047 = EOL // 0x18c2 @0x47
0x187b…18c3 }
0x18c3…18f8 aee6 02320 PRINT "Nettooms{tning" ; TAB ( 53 ) ; CHR$ ( S_OMS[TN , 9 , 2 )
0x18c3…18f8 LineComal80 {
0x18c3…18f8 ptr = 0xaee6 // 0x18c3 @0x0
0x18c3…18f8 lno = 0x0910 // 0x18c5 @0x2
0x18c3…18f8 at0004 = ╱92╱ PRINT ╱ // 0x18c7 @0x4
0x18c3…18f8 at0005 = ╱22╱"╱ // 0x18c8 @0x5
0x18c3…18f8 at0006 = ╱4e╱N╱ // 0x18c9 @0x6
0x18c3…18f8 at0007 = ╱65╱e╱ // 0x18ca @0x7
0x18c3…18f8 at0008 = ╱74╱t╱ // 0x18cb @0x8
0x18c3…18f8 at0009 = ╱74╱t╱ // 0x18cc @0x9
0x18c3…18f8 at000a = ╱6f╱o╱ // 0x18cd @0xa
0x18c3…18f8 at000b = ╱6f╱o╱ // 0x18ce @0xb
0x18c3…18f8 at000c = ╱6d╱m╱ // 0x18cf @0xc
0x18c3…18f8 at000d = ╱73╱s╱ // 0x18d0 @0xd
0x18c3…18f8 at000e = ╱7b╱{╱ // 0x18d1 @0xe
0x18c3…18f8 at000f = ╱74╱t╱ // 0x18d2 @0xf
0x18c3…18f8 at0010 = ╱6e╱n╱ // 0x18d3 @0x10
0x18c3…18f8 at0011 = ╱69╱i╱ // 0x18d4 @0x11
0x18c3…18f8 at0012 = ╱6e╱n╱ // 0x18d5 @0x12
0x18c3…18f8 at0013 = ╱67╱g╱ // 0x18d6 @0x13
0x18c3…18f8 at0014 = ╱22╱"╱ // 0x18d7 @0x14
0x18c3…18f8 at0015 = ╱ea╱ ; ╱ // 0x18d8 @0x15
0x18c3…18f8 at0016 = ╱d2╱ TAB ╱ // 0x18d9 @0x16
0x18c3…18f8 at0017 = ╱ed╱ ( ╱ // 0x18da @0x17
0x18c3…18f8 at0018 = ╱35╱5╱ // 0x18db @0x18
0x18c3…18f8 at0019 = ╱33╱3╱ // 0x18dc @0x19
0x18c3…18f8 at001a = ╱f23500╱ // 0x18dd @0x1a
0x18c3…18f8 at001d = ╱ee╱ ) ╱ // 0x18e0 @0x1d
0x18c3…18f8 at001e = ╱ea╱ ; ╱ // 0x18e1 @0x1e
0x18c3…18f8 at001f = ╱d0╱ CHR$ ╱ // 0x18e2 @0x1f
0x18c3…18f8 at0020 = ╱ed╱ ( ╱ // 0x18e3 @0x20
0x18c3…18f8 at0021 = ╱53╱S╱ // 0x18e4 @0x21
0x18c3…18f8 at0022 = ╱5f╱_╱ // 0x18e5 @0x22
0x18c3…18f8 at0023 = ╱4f╱O╱ // 0x18e6 @0x23
0x18c3…18f8 at0024 = ╱4d╱M╱ // 0x18e7 @0x24
0x18c3…18f8 at0025 = ╱53╱S╱ // 0x18e8 @0x25
0x18c3…18f8 at0026 = ╱5b╱[╱ // 0x18e9 @0x26
0x18c3…18f8 at0027 = ╱54╱T╱ // 0x18ea @0x27
0x18c3…18f8 at0028 = ╱4e╱N╱ // 0x18eb @0x28
0x18c3…18f8 at0029 = ╱ec╱ , ╱ // 0x18ec @0x29
0x18c3…18f8 at002a = ╱39╱9╱ // 0x18ed @0x2a
0x18c3…18f8 at002b = ╱f20900╱ // 0x18ee @0x2b
0x18c3…18f8 at002e = ╱ec╱ , ╱ // 0x18f1 @0x2e
0x18c3…18f8 at002f = ╱32╱2╱ // 0x18f2 @0x2f
0x18c3…18f8 at0030 = ╱f20200╱ // 0x18f3 @0x30
0x18c3…18f8 at0033 = ╱ee╱ ) ╱ // 0x18f6 @0x33
0x18c3…18f8 at0034 = EOL // 0x18f7 @0x34
0x18c3…18f8 }
0x18f8…1934 af22 02330 PRINT "-…Vareforbrug" ; TAB ( 53 ) ; CHR$ ( S_VAREFO * ( - 1 ) , 9 , 2 )
0x18f8…1934 LineComal80 {
0x18f8…1934 ptr = 0xaf22 // 0x18f8 @0x0
0x18f8…1934 lno = 0x091a // 0x18fa @0x2
0x18f8…1934 at0004 = ╱92╱ PRINT ╱ // 0x18fc @0x4
0x18f8…1934 at0005 = ╱22╱"╱ // 0x18fd @0x5
0x18f8…1934 at0006 = ╱2d╱-╱ // 0x18fe @0x6
0x18f8…1934 at0007 = ╱20╱…╱ // 0x18ff @0x7
0x18f8…1934 at0008 = ╱56╱V╱ // 0x1900 @0x8
0x18f8…1934 at0009 = ╱61╱a╱ // 0x1901 @0x9
0x18f8…1934 at000a = ╱72╱r╱ // 0x1902 @0xa
0x18f8…1934 at000b = ╱65╱e╱ // 0x1903 @0xb
0x18f8…1934 at000c = ╱66╱f╱ // 0x1904 @0xc
0x18f8…1934 at000d = ╱6f╱o╱ // 0x1905 @0xd
0x18f8…1934 at000e = ╱72╱r╱ // 0x1906 @0xe
0x18f8…1934 at000f = ╱62╱b╱ // 0x1907 @0xf
0x18f8…1934 at0010 = ╱72╱r╱ // 0x1908 @0x10
0x18f8…1934 at0011 = ╱75╱u╱ // 0x1909 @0x11
0x18f8…1934 at0012 = ╱67╱g╱ // 0x190a @0x12
0x18f8…1934 at0013 = ╱22╱"╱ // 0x190b @0x13
0x18f8…1934 at0014 = ╱ea╱ ; ╱ // 0x190c @0x14
0x18f8…1934 at0015 = ╱d2╱ TAB ╱ // 0x190d @0x15
0x18f8…1934 at0016 = ╱ed╱ ( ╱ // 0x190e @0x16
0x18f8…1934 at0017 = ╱35╱5╱ // 0x190f @0x17
0x18f8…1934 at0018 = ╱33╱3╱ // 0x1910 @0x18
0x18f8…1934 at0019 = ╱f23500╱ // 0x1911 @0x19
0x18f8…1934 at001c = ╱ee╱ ) ╱ // 0x1914 @0x1c
0x18f8…1934 at001d = ╱ea╱ ; ╱ // 0x1915 @0x1d
0x18f8…1934 at001e = ╱d0╱ CHR$ ╱ // 0x1916 @0x1e
0x18f8…1934 at001f = ╱ed╱ ( ╱ // 0x1917 @0x1f
0x18f8…1934 at0020 = ╱53╱S╱ // 0x1918 @0x20
0x18f8…1934 at0021 = ╱5f╱_╱ // 0x1919 @0x21
0x18f8…1934 at0022 = ╱56╱V╱ // 0x191a @0x22
0x18f8…1934 at0023 = ╱41╱A╱ // 0x191b @0x23
0x18f8…1934 at0024 = ╱52╱R╱ // 0x191c @0x24
0x18f8…1934 at0025 = ╱45╱E╱ // 0x191d @0x25
0x18f8…1934 at0026 = ╱46╱F╱ // 0x191e @0x26
0x18f8…1934 at0027 = ╱4f╱O╱ // 0x191f @0x27
0x18f8…1934 at0028 = ╱e7╱ * ╱ // 0x1920 @0x28
0x18f8…1934 at0029 = ╱ed╱ ( ╱ // 0x1921 @0x29
0x18f8…1934 at002a = ╱de╱ - ╱ // 0x1922 @0x2a
0x18f8…1934 at002b = ╱31╱1╱ // 0x1923 @0x2b
0x18f8…1934 at002c = ╱f20100╱ // 0x1924 @0x2c
0x18f8…1934 at002f = ╱ee╱ ) ╱ // 0x1927 @0x2f
0x18f8…1934 at0030 = ╱ec╱ , ╱ // 0x1928 @0x30
0x18f8…1934 at0031 = ╱39╱9╱ // 0x1929 @0x31
0x18f8…1934 at0032 = ╱f20900╱ // 0x192a @0x32
0x18f8…1934 at0035 = ╱ec╱ , ╱ // 0x192d @0x35
0x18f8…1934 at0036 = ╱32╱2╱ // 0x192e @0x36
0x18f8…1934 at0037 = ╱f20200╱ // 0x192f @0x37
0x18f8…1934 at003a = ╱ee╱ ) ╱ // 0x1932 @0x3a
0x18f8…1934 at003b = EOL // 0x1933 @0x3b
0x18f8…1934 }
0x1934…1951 af3f 02340 PRINT TAB ( 53 ) ; "------------"
0x1934…1951 LineComal80 {
0x1934…1951 ptr = 0xaf3f // 0x1934 @0x0
0x1934…1951 lno = 0x0924 // 0x1936 @0x2
0x1934…1951 at0004 = ╱92╱ PRINT ╱ // 0x1938 @0x4
0x1934…1951 at0005 = ╱d2╱ TAB ╱ // 0x1939 @0x5
0x1934…1951 at0006 = ╱ed╱ ( ╱ // 0x193a @0x6
0x1934…1951 at0007 = ╱35╱5╱ // 0x193b @0x7
0x1934…1951 at0008 = ╱33╱3╱ // 0x193c @0x8
0x1934…1951 at0009 = ╱f23500╱ // 0x193d @0x9
0x1934…1951 at000c = ╱ee╱ ) ╱ // 0x1940 @0xc
0x1934…1951 at000d = ╱ea╱ ; ╱ // 0x1941 @0xd
0x1934…1951 at000e = ╱22╱"╱ // 0x1942 @0xe
0x1934…1951 at000f = ╱2d╱-╱ // 0x1943 @0xf
0x1934…1951 at0010 = ╱2d╱-╱ // 0x1944 @0x10
0x1934…1951 at0011 = ╱2d╱-╱ // 0x1945 @0x11
0x1934…1951 at0012 = ╱2d╱-╱ // 0x1946 @0x12
0x1934…1951 at0013 = ╱2d╱-╱ // 0x1947 @0x13
0x1934…1951 at0014 = ╱2d╱-╱ // 0x1948 @0x14
0x1934…1951 at0015 = ╱2d╱-╱ // 0x1949 @0x15
0x1934…1951 at0016 = ╱2d╱-╱ // 0x194a @0x16
0x1934…1951 at0017 = ╱2d╱-╱ // 0x194b @0x17
0x1934…1951 at0018 = ╱2d╱-╱ // 0x194c @0x18
0x1934…1951 at0019 = ╱2d╱-╱ // 0x194d @0x19
0x1934…1951 at001a = ╱2d╱-╱ // 0x194e @0x1a
0x1934…1951 at001b = ╱22╱"╱ // 0x194f @0x1b
0x1934…1951 at001c = EOL // 0x1950 @0x1c
0x1934…1951 }
0x1951…196f af5d 02350 LET BRUTTO := S_OMS[TN + S_VAREFO
0x1951…196f LineComal80 {
0x1951…196f ptr = 0xaf5d // 0x1951 @0x0
0x1951…196f lno = 0x092e // 0x1953 @0x2
0x1951…196f at0004 = ╱86╱ LET ╱ // 0x1955 @0x4
0x1951…196f at0005 = ╱42╱B╱ // 0x1956 @0x5
0x1951…196f at0006 = ╱52╱R╱ // 0x1957 @0x6
0x1951…196f at0007 = ╱55╱U╱ // 0x1958 @0x7
0x1951…196f at0008 = ╱54╱T╱ // 0x1959 @0x8
0x1951…196f at0009 = ╱54╱T╱ // 0x195a @0x9
0x1951…196f at000a = ╱4f╱O╱ // 0x195b @0xa
0x1951…196f at000b = ╱f0╱ := ╱ // 0x195c @0xb
0x1951…196f at000c = ╱53╱S╱ // 0x195d @0xc
0x1951…196f at000d = ╱5f╱_╱ // 0x195e @0xd
0x1951…196f at000e = ╱4f╱O╱ // 0x195f @0xe
0x1951…196f at000f = ╱4d╱M╱ // 0x1960 @0xf
0x1951…196f at0010 = ╱53╱S╱ // 0x1961 @0x10
0x1951…196f at0011 = ╱5b╱[╱ // 0x1962 @0x11
0x1951…196f at0012 = ╱54╱T╱ // 0x1963 @0x12
0x1951…196f at0013 = ╱4e╱N╱ // 0x1964 @0x13
0x1951…196f at0014 = ╱e5╱ + ╱ // 0x1965 @0x14
0x1951…196f at0015 = ╱53╱S╱ // 0x1966 @0x15
0x1951…196f at0016 = ╱5f╱_╱ // 0x1967 @0x16
0x1951…196f at0017 = ╱56╱V╱ // 0x1968 @0x17
0x1951…196f at0018 = ╱41╱A╱ // 0x1969 @0x18
0x1951…196f at0019 = ╱52╱R╱ // 0x196a @0x19
0x1951…196f at001a = ╱45╱E╱ // 0x196b @0x1a
0x1951…196f at001b = ╱46╱F╱ // 0x196c @0x1b
0x1951…196f at001c = ╱4f╱O╱ // 0x196d @0x1c
0x1951…196f at001d = EOL // 0x196e @0x1d
0x1951…196f }
0x196f…19a5 af93 02360 PRINT "Bruttofortjeneste" ; TAB ( 53 ) ; CHR$ ( BRUTTO , 9 , 2 )
0x196f…19a5 LineComal80 {
0x196f…19a5 ptr = 0xaf93 // 0x196f @0x0
0x196f…19a5 lno = 0x0938 // 0x1971 @0x2
0x196f…19a5 at0004 = ╱92╱ PRINT ╱ // 0x1973 @0x4
0x196f…19a5 at0005 = ╱22╱"╱ // 0x1974 @0x5
0x196f…19a5 at0006 = ╱42╱B╱ // 0x1975 @0x6
0x196f…19a5 at0007 = ╱72╱r╱ // 0x1976 @0x7
0x196f…19a5 at0008 = ╱75╱u╱ // 0x1977 @0x8
0x196f…19a5 at0009 = ╱74╱t╱ // 0x1978 @0x9
0x196f…19a5 at000a = ╱74╱t╱ // 0x1979 @0xa
0x196f…19a5 at000b = ╱6f╱o╱ // 0x197a @0xb
0x196f…19a5 at000c = ╱66╱f╱ // 0x197b @0xc
0x196f…19a5 at000d = ╱6f╱o╱ // 0x197c @0xd
0x196f…19a5 at000e = ╱72╱r╱ // 0x197d @0xe
0x196f…19a5 at000f = ╱74╱t╱ // 0x197e @0xf
0x196f…19a5 at0010 = ╱6a╱j╱ // 0x197f @0x10
0x196f…19a5 at0011 = ╱65╱e╱ // 0x1980 @0x11
0x196f…19a5 at0012 = ╱6e╱n╱ // 0x1981 @0x12
0x196f…19a5 at0013 = ╱65╱e╱ // 0x1982 @0x13
0x196f…19a5 at0014 = ╱73╱s╱ // 0x1983 @0x14
0x196f…19a5 at0015 = ╱74╱t╱ // 0x1984 @0x15
0x196f…19a5 at0016 = ╱65╱e╱ // 0x1985 @0x16
0x196f…19a5 at0017 = ╱22╱"╱ // 0x1986 @0x17
0x196f…19a5 at0018 = ╱ea╱ ; ╱ // 0x1987 @0x18
0x196f…19a5 at0019 = ╱d2╱ TAB ╱ // 0x1988 @0x19
0x196f…19a5 at001a = ╱ed╱ ( ╱ // 0x1989 @0x1a
0x196f…19a5 at001b = ╱35╱5╱ // 0x198a @0x1b
0x196f…19a5 at001c = ╱33╱3╱ // 0x198b @0x1c
0x196f…19a5 at001d = ╱f23500╱ // 0x198c @0x1d
0x196f…19a5 at0020 = ╱ee╱ ) ╱ // 0x198f @0x20
0x196f…19a5 at0021 = ╱ea╱ ; ╱ // 0x1990 @0x21
0x196f…19a5 at0022 = ╱d0╱ CHR$ ╱ // 0x1991 @0x22
0x196f…19a5 at0023 = ╱ed╱ ( ╱ // 0x1992 @0x23
0x196f…19a5 at0024 = ╱42╱B╱ // 0x1993 @0x24
0x196f…19a5 at0025 = ╱52╱R╱ // 0x1994 @0x25
0x196f…19a5 at0026 = ╱55╱U╱ // 0x1995 @0x26
0x196f…19a5 at0027 = ╱54╱T╱ // 0x1996 @0x27
0x196f…19a5 at0028 = ╱54╱T╱ // 0x1997 @0x28
0x196f…19a5 at0029 = ╱4f╱O╱ // 0x1998 @0x29
0x196f…19a5 at002a = ╱ec╱ , ╱ // 0x1999 @0x2a
0x196f…19a5 at002b = ╱39╱9╱ // 0x199a @0x2b
0x196f…19a5 at002c = ╱f20900╱ // 0x199b @0x2c
0x196f…19a5 at002f = ╱ec╱ , ╱ // 0x199e @0x2f
0x196f…19a5 at0030 = ╱32╱2╱ // 0x199f @0x30
0x196f…19a5 at0031 = ╱f20200╱ // 0x19a0 @0x31
0x196f…19a5 at0034 = ╱ee╱ ) ╱ // 0x19a3 @0x34
0x196f…19a5 at0035 = EOL // 0x19a4 @0x35
0x196f…19a5 }
0x19a5…19d9 afc7 02370 PRINT "-…\vrige…variable…omkostningninger" ; TAB ( 53 ) ;
0x19a5…19d9 LineComal80 {
0x19a5…19d9 ptr = 0xafc7 // 0x19a5 @0x0
0x19a5…19d9 lno = 0x0942 // 0x19a7 @0x2
0x19a5…19d9 at0004 = ╱92╱ PRINT ╱ // 0x19a9 @0x4
0x19a5…19d9 at0005 = ╱22╱"╱ // 0x19aa @0x5
0x19a5…19d9 at0006 = ╱2d╱-╱ // 0x19ab @0x6
0x19a5…19d9 at0007 = ╱20╱…╱ // 0x19ac @0x7
0x19a5…19d9 at0008 = ╱5c╱\╱ // 0x19ad @0x8
0x19a5…19d9 at0009 = ╱76╱v╱ // 0x19ae @0x9
0x19a5…19d9 at000a = ╱72╱r╱ // 0x19af @0xa
0x19a5…19d9 at000b = ╱69╱i╱ // 0x19b0 @0xb
0x19a5…19d9 at000c = ╱67╱g╱ // 0x19b1 @0xc
0x19a5…19d9 at000d = ╱65╱e╱ // 0x19b2 @0xd
0x19a5…19d9 at000e = ╱20╱…╱ // 0x19b3 @0xe
0x19a5…19d9 at000f = ╱76╱v╱ // 0x19b4 @0xf
0x19a5…19d9 at0010 = ╱61╱a╱ // 0x19b5 @0x10
0x19a5…19d9 at0011 = ╱72╱r╱ // 0x19b6 @0x11
0x19a5…19d9 at0012 = ╱69╱i╱ // 0x19b7 @0x12
0x19a5…19d9 at0013 = ╱61╱a╱ // 0x19b8 @0x13
0x19a5…19d9 at0014 = ╱62╱b╱ // 0x19b9 @0x14
0x19a5…19d9 at0015 = ╱6c╱l╱ // 0x19ba @0x15
0x19a5…19d9 at0016 = ╱65╱e╱ // 0x19bb @0x16
0x19a5…19d9 at0017 = ╱20╱…╱ // 0x19bc @0x17
0x19a5…19d9 at0018 = ╱6f╱o╱ // 0x19bd @0x18
0x19a5…19d9 at0019 = ╱6d╱m╱ // 0x19be @0x19
0x19a5…19d9 at001a = ╱6b╱k╱ // 0x19bf @0x1a
0x19a5…19d9 at001b = ╱6f╱o╱ // 0x19c0 @0x1b
0x19a5…19d9 at001c = ╱73╱s╱ // 0x19c1 @0x1c
0x19a5…19d9 at001d = ╱74╱t╱ // 0x19c2 @0x1d
0x19a5…19d9 at001e = ╱6e╱n╱ // 0x19c3 @0x1e
0x19a5…19d9 at001f = ╱69╱i╱ // 0x19c4 @0x1f
0x19a5…19d9 at0020 = ╱6e╱n╱ // 0x19c5 @0x20
0x19a5…19d9 at0021 = ╱67╱g╱ // 0x19c6 @0x21
0x19a5…19d9 at0022 = ╱6e╱n╱ // 0x19c7 @0x22
0x19a5…19d9 at0023 = ╱69╱i╱ // 0x19c8 @0x23
0x19a5…19d9 at0024 = ╱6e╱n╱ // 0x19c9 @0x24
0x19a5…19d9 at0025 = ╱67╱g╱ // 0x19ca @0x25
0x19a5…19d9 at0026 = ╱65╱e╱ // 0x19cb @0x26
0x19a5…19d9 at0027 = ╱72╱r╱ // 0x19cc @0x27
0x19a5…19d9 at0028 = ╱22╱"╱ // 0x19cd @0x28
0x19a5…19d9 at0029 = ╱ea╱ ; ╱ // 0x19ce @0x29
0x19a5…19d9 at002a = ╱d2╱ TAB ╱ // 0x19cf @0x2a
0x19a5…19d9 at002b = ╱ed╱ ( ╱ // 0x19d0 @0x2b
0x19a5…19d9 at002c = ╱35╱5╱ // 0x19d1 @0x2c
0x19a5…19d9 at002d = ╱33╱3╱ // 0x19d2 @0x2d
0x19a5…19d9 at002e = ╱f23500╱ // 0x19d3 @0x2e
0x19a5…19d9 at0031 = ╱ee╱ ) ╱ // 0x19d6 @0x31
0x19a5…19d9 at0032 = ╱ea╱ ; ╱ // 0x19d7 @0x32
0x19a5…19d9 at0033 = EOL // 0x19d8 @0x33
0x19a5…19d9 }
0x19d9…19fb afe9 02380 PRINT CHR$ ( \VR_VAR * ( - 1 ) , 9 , 2 )
0x19d9…19fb LineComal80 {
0x19d9…19fb ptr = 0xafe9 // 0x19d9 @0x0
0x19d9…19fb lno = 0x094c // 0x19db @0x2
0x19d9…19fb at0004 = ╱92╱ PRINT ╱ // 0x19dd @0x4
0x19d9…19fb at0005 = ╱d0╱ CHR$ ╱ // 0x19de @0x5
0x19d9…19fb at0006 = ╱ed╱ ( ╱ // 0x19df @0x6
0x19d9…19fb at0007 = ╱5c╱\╱ // 0x19e0 @0x7
0x19d9…19fb at0008 = ╱56╱V╱ // 0x19e1 @0x8
0x19d9…19fb at0009 = ╱52╱R╱ // 0x19e2 @0x9
0x19d9…19fb at000a = ╱5f╱_╱ // 0x19e3 @0xa
0x19d9…19fb at000b = ╱56╱V╱ // 0x19e4 @0xb
0x19d9…19fb at000c = ╱41╱A╱ // 0x19e5 @0xc
0x19d9…19fb at000d = ╱52╱R╱ // 0x19e6 @0xd
0x19d9…19fb at000e = ╱e7╱ * ╱ // 0x19e7 @0xe
0x19d9…19fb at000f = ╱ed╱ ( ╱ // 0x19e8 @0xf
0x19d9…19fb at0010 = ╱de╱ - ╱ // 0x19e9 @0x10
0x19d9…19fb at0011 = ╱31╱1╱ // 0x19ea @0x11
0x19d9…19fb at0012 = ╱f20100╱ // 0x19eb @0x12
0x19d9…19fb at0015 = ╱ee╱ ) ╱ // 0x19ee @0x15
0x19d9…19fb at0016 = ╱ec╱ , ╱ // 0x19ef @0x16
0x19d9…19fb at0017 = ╱39╱9╱ // 0x19f0 @0x17
0x19d9…19fb at0018 = ╱f20900╱ // 0x19f1 @0x18
0x19d9…19fb at001b = ╱ec╱ , ╱ // 0x19f4 @0x1b
0x19d9…19fb at001c = ╱32╱2╱ // 0x19f5 @0x1c
0x19d9…19fb at001d = ╱f20200╱ // 0x19f6 @0x1d
0x19d9…19fb at0020 = ╱ee╱ ) ╱ // 0x19f9 @0x20
0x19d9…19fb at0021 = EOL // 0x19fa @0x21
0x19d9…19fb }
0x19fb…1a17 b005 02390 LET D[KNING := BRUTTO + \VR_VAR
0x19fb…1a17 LineComal80 {
0x19fb…1a17 ptr = 0xb005 // 0x19fb @0x0
0x19fb…1a17 lno = 0x0956 // 0x19fd @0x2
0x19fb…1a17 at0004 = ╱86╱ LET ╱ // 0x19ff @0x4
0x19fb…1a17 at0005 = ╱44╱D╱ // 0x1a00 @0x5
0x19fb…1a17 at0006 = ╱5b╱[╱ // 0x1a01 @0x6
0x19fb…1a17 at0007 = ╱4b╱K╱ // 0x1a02 @0x7
0x19fb…1a17 at0008 = ╱4e╱N╱ // 0x1a03 @0x8
0x19fb…1a17 at0009 = ╱49╱I╱ // 0x1a04 @0x9
0x19fb…1a17 at000a = ╱4e╱N╱ // 0x1a05 @0xa
0x19fb…1a17 at000b = ╱47╱G╱ // 0x1a06 @0xb
0x19fb…1a17 at000c = ╱f0╱ := ╱ // 0x1a07 @0xc
0x19fb…1a17 at000d = ╱42╱B╱ // 0x1a08 @0xd
0x19fb…1a17 at000e = ╱52╱R╱ // 0x1a09 @0xe
0x19fb…1a17 at000f = ╱55╱U╱ // 0x1a0a @0xf
0x19fb…1a17 at0010 = ╱54╱T╱ // 0x1a0b @0x10
0x19fb…1a17 at0011 = ╱54╱T╱ // 0x1a0c @0x11
0x19fb…1a17 at0012 = ╱4f╱O╱ // 0x1a0d @0x12
0x19fb…1a17 at0013 = ╱e5╱ + ╱ // 0x1a0e @0x13
0x19fb…1a17 at0014 = ╱5c╱\╱ // 0x1a0f @0x14
0x19fb…1a17 at0015 = ╱56╱V╱ // 0x1a10 @0x15
0x19fb…1a17 at0016 = ╱52╱R╱ // 0x1a11 @0x16
0x19fb…1a17 at0017 = ╱5f╱_╱ // 0x1a12 @0x17
0x19fb…1a17 at0018 = ╱56╱V╱ // 0x1a13 @0x18
0x19fb…1a17 at0019 = ╱41╱A╱ // 0x1a14 @0x19
0x19fb…1a17 at001a = ╱52╱R╱ // 0x1a15 @0x1a
0x19fb…1a17 at001b = EOL // 0x1a16 @0x1b
0x19fb…1a17 }
0x1a17…1a34 b022 02400 PRINT TAB ( 53 ) ; "------------"
0x1a17…1a34 LineComal80 {
0x1a17…1a34 ptr = 0xb022 // 0x1a17 @0x0
0x1a17…1a34 lno = 0x0960 // 0x1a19 @0x2
0x1a17…1a34 at0004 = ╱92╱ PRINT ╱ // 0x1a1b @0x4
0x1a17…1a34 at0005 = ╱d2╱ TAB ╱ // 0x1a1c @0x5
0x1a17…1a34 at0006 = ╱ed╱ ( ╱ // 0x1a1d @0x6
0x1a17…1a34 at0007 = ╱35╱5╱ // 0x1a1e @0x7
0x1a17…1a34 at0008 = ╱33╱3╱ // 0x1a1f @0x8
0x1a17…1a34 at0009 = ╱f23500╱ // 0x1a20 @0x9
0x1a17…1a34 at000c = ╱ee╱ ) ╱ // 0x1a23 @0xc
0x1a17…1a34 at000d = ╱ea╱ ; ╱ // 0x1a24 @0xd
0x1a17…1a34 at000e = ╱22╱"╱ // 0x1a25 @0xe
0x1a17…1a34 at000f = ╱2d╱-╱ // 0x1a26 @0xf
0x1a17…1a34 at0010 = ╱2d╱-╱ // 0x1a27 @0x10
0x1a17…1a34 at0011 = ╱2d╱-╱ // 0x1a28 @0x11
0x1a17…1a34 at0012 = ╱2d╱-╱ // 0x1a29 @0x12
0x1a17…1a34 at0013 = ╱2d╱-╱ // 0x1a2a @0x13
0x1a17…1a34 at0014 = ╱2d╱-╱ // 0x1a2b @0x14
0x1a17…1a34 at0015 = ╱2d╱-╱ // 0x1a2c @0x15
0x1a17…1a34 at0016 = ╱2d╱-╱ // 0x1a2d @0x16
0x1a17…1a34 at0017 = ╱2d╱-╱ // 0x1a2e @0x17
0x1a17…1a34 at0018 = ╱2d╱-╱ // 0x1a2f @0x18
0x1a17…1a34 at0019 = ╱2d╱-╱ // 0x1a30 @0x19
0x1a17…1a34 at001a = ╱2d╱-╱ // 0x1a31 @0x1a
0x1a17…1a34 at001b = ╱22╱"╱ // 0x1a32 @0x1b
0x1a17…1a34 at001c = EOL // 0x1a33 @0x1c
0x1a17…1a34 }
0x1a34…1a68 b056 02410 PRINT "D{kningsbidrag" ; TAB ( 53 ) ; CHR$ ( D[KNING , 9 , 2 )
0x1a34…1a68 LineComal80 {
0x1a34…1a68 ptr = 0xb056 // 0x1a34 @0x0
0x1a34…1a68 lno = 0x096a // 0x1a36 @0x2
0x1a34…1a68 at0004 = ╱92╱ PRINT ╱ // 0x1a38 @0x4
0x1a34…1a68 at0005 = ╱22╱"╱ // 0x1a39 @0x5
0x1a34…1a68 at0006 = ╱44╱D╱ // 0x1a3a @0x6
0x1a34…1a68 at0007 = ╱7b╱{╱ // 0x1a3b @0x7
0x1a34…1a68 at0008 = ╱6b╱k╱ // 0x1a3c @0x8
0x1a34…1a68 at0009 = ╱6e╱n╱ // 0x1a3d @0x9
0x1a34…1a68 at000a = ╱69╱i╱ // 0x1a3e @0xa
0x1a34…1a68 at000b = ╱6e╱n╱ // 0x1a3f @0xb
0x1a34…1a68 at000c = ╱67╱g╱ // 0x1a40 @0xc
0x1a34…1a68 at000d = ╱73╱s╱ // 0x1a41 @0xd
0x1a34…1a68 at000e = ╱62╱b╱ // 0x1a42 @0xe
0x1a34…1a68 at000f = ╱69╱i╱ // 0x1a43 @0xf
0x1a34…1a68 at0010 = ╱64╱d╱ // 0x1a44 @0x10
0x1a34…1a68 at0011 = ╱72╱r╱ // 0x1a45 @0x11
0x1a34…1a68 at0012 = ╱61╱a╱ // 0x1a46 @0x12
0x1a34…1a68 at0013 = ╱67╱g╱ // 0x1a47 @0x13
0x1a34…1a68 at0014 = ╱22╱"╱ // 0x1a48 @0x14
0x1a34…1a68 at0015 = ╱ea╱ ; ╱ // 0x1a49 @0x15
0x1a34…1a68 at0016 = ╱d2╱ TAB ╱ // 0x1a4a @0x16
0x1a34…1a68 at0017 = ╱ed╱ ( ╱ // 0x1a4b @0x17
0x1a34…1a68 at0018 = ╱35╱5╱ // 0x1a4c @0x18
0x1a34…1a68 at0019 = ╱33╱3╱ // 0x1a4d @0x19
0x1a34…1a68 at001a = ╱f23500╱ // 0x1a4e @0x1a
0x1a34…1a68 at001d = ╱ee╱ ) ╱ // 0x1a51 @0x1d
0x1a34…1a68 at001e = ╱ea╱ ; ╱ // 0x1a52 @0x1e
0x1a34…1a68 at001f = ╱d0╱ CHR$ ╱ // 0x1a53 @0x1f
0x1a34…1a68 at0020 = ╱ed╱ ( ╱ // 0x1a54 @0x20
0x1a34…1a68 at0021 = ╱44╱D╱ // 0x1a55 @0x21
0x1a34…1a68 at0022 = ╱5b╱[╱ // 0x1a56 @0x22
0x1a34…1a68 at0023 = ╱4b╱K╱ // 0x1a57 @0x23
0x1a34…1a68 at0024 = ╱4e╱N╱ // 0x1a58 @0x24
0x1a34…1a68 at0025 = ╱49╱I╱ // 0x1a59 @0x25
0x1a34…1a68 at0026 = ╱4e╱N╱ // 0x1a5a @0x26
0x1a34…1a68 at0027 = ╱47╱G╱ // 0x1a5b @0x27
0x1a34…1a68 at0028 = ╱ec╱ , ╱ // 0x1a5c @0x28
0x1a34…1a68 at0029 = ╱39╱9╱ // 0x1a5d @0x29
0x1a34…1a68 at002a = ╱f20900╱ // 0x1a5e @0x2a
0x1a34…1a68 at002d = ╱ec╱ , ╱ // 0x1a61 @0x2d
0x1a34…1a68 at002e = ╱32╱2╱ // 0x1a62 @0x2e
0x1a34…1a68 at002f = ╱f20200╱ // 0x1a63 @0x2f
0x1a34…1a68 at0032 = ╱ee╱ ) ╱ // 0x1a66 @0x32
0x1a34…1a68 at0033 = EOL // 0x1a67 @0x33
0x1a34…1a68 }
0x1a68…1a96 b084 02420 PRINT "-…Kontante…kap.…omkostninger" ; TAB ( 53 ) ;
0x1a68…1a96 LineComal80 {
0x1a68…1a96 ptr = 0xb084 // 0x1a68 @0x0
0x1a68…1a96 lno = 0x0974 // 0x1a6a @0x2
0x1a68…1a96 at0004 = ╱92╱ PRINT ╱ // 0x1a6c @0x4
0x1a68…1a96 at0005 = ╱22╱"╱ // 0x1a6d @0x5
0x1a68…1a96 at0006 = ╱2d╱-╱ // 0x1a6e @0x6
0x1a68…1a96 at0007 = ╱20╱…╱ // 0x1a6f @0x7
0x1a68…1a96 at0008 = ╱4b╱K╱ // 0x1a70 @0x8
0x1a68…1a96 at0009 = ╱6f╱o╱ // 0x1a71 @0x9
0x1a68…1a96 at000a = ╱6e╱n╱ // 0x1a72 @0xa
0x1a68…1a96 at000b = ╱74╱t╱ // 0x1a73 @0xb
0x1a68…1a96 at000c = ╱61╱a╱ // 0x1a74 @0xc
0x1a68…1a96 at000d = ╱6e╱n╱ // 0x1a75 @0xd
0x1a68…1a96 at000e = ╱74╱t╱ // 0x1a76 @0xe
0x1a68…1a96 at000f = ╱65╱e╱ // 0x1a77 @0xf
0x1a68…1a96 at0010 = ╱20╱…╱ // 0x1a78 @0x10
0x1a68…1a96 at0011 = ╱6b╱k╱ // 0x1a79 @0x11
0x1a68…1a96 at0012 = ╱61╱a╱ // 0x1a7a @0x12
0x1a68…1a96 at0013 = ╱70╱p╱ // 0x1a7b @0x13
0x1a68…1a96 at0014 = ╱2e╱.╱ // 0x1a7c @0x14
0x1a68…1a96 at0015 = ╱20╱…╱ // 0x1a7d @0x15
0x1a68…1a96 at0016 = ╱6f╱o╱ // 0x1a7e @0x16
0x1a68…1a96 at0017 = ╱6d╱m╱ // 0x1a7f @0x17
0x1a68…1a96 at0018 = ╱6b╱k╱ // 0x1a80 @0x18
0x1a68…1a96 at0019 = ╱6f╱o╱ // 0x1a81 @0x19
0x1a68…1a96 at001a = ╱73╱s╱ // 0x1a82 @0x1a
0x1a68…1a96 at001b = ╱74╱t╱ // 0x1a83 @0x1b
0x1a68…1a96 at001c = ╱6e╱n╱ // 0x1a84 @0x1c
0x1a68…1a96 at001d = ╱69╱i╱ // 0x1a85 @0x1d
0x1a68…1a96 at001e = ╱6e╱n╱ // 0x1a86 @0x1e
0x1a68…1a96 at001f = ╱67╱g╱ // 0x1a87 @0x1f
0x1a68…1a96 at0020 = ╱65╱e╱ // 0x1a88 @0x20
0x1a68…1a96 at0021 = ╱72╱r╱ // 0x1a89 @0x21
0x1a68…1a96 at0022 = ╱22╱"╱ // 0x1a8a @0x22
0x1a68…1a96 at0023 = ╱ea╱ ; ╱ // 0x1a8b @0x23
0x1a68…1a96 at0024 = ╱d2╱ TAB ╱ // 0x1a8c @0x24
0x1a68…1a96 at0025 = ╱ed╱ ( ╱ // 0x1a8d @0x25
0x1a68…1a96 at0026 = ╱35╱5╱ // 0x1a8e @0x26
0x1a68…1a96 at0027 = ╱33╱3╱ // 0x1a8f @0x27
0x1a68…1a96 at0028 = ╱f23500╱ // 0x1a90 @0x28
0x1a68…1a96 at002b = ╱ee╱ ) ╱ // 0x1a93 @0x2b
0x1a68…1a96 at002c = ╱ea╱ ; ╱ // 0x1a94 @0x2c
0x1a68…1a96 at002d = EOL // 0x1a95 @0x2d
0x1a68…1a96 }
0x1a96…1ac3 b0b1 02430 PRINT CHR$ ( ( S_KAPOMK - \VR_VAR ) * ( - 1 ) , 9 , 2 )
0x1a96…1ac3 LineComal80 {
0x1a96…1ac3 ptr = 0xb0b1 // 0x1a96 @0x0
0x1a96…1ac3 lno = 0x097e // 0x1a98 @0x2
0x1a96…1ac3 at0004 = ╱92╱ PRINT ╱ // 0x1a9a @0x4
0x1a96…1ac3 at0005 = ╱d0╱ CHR$ ╱ // 0x1a9b @0x5
0x1a96…1ac3 at0006 = ╱ed╱ ( ╱ // 0x1a9c @0x6
0x1a96…1ac3 at0007 = ╱ed╱ ( ╱ // 0x1a9d @0x7
0x1a96…1ac3 at0008 = ╱53╱S╱ // 0x1a9e @0x8
0x1a96…1ac3 at0009 = ╱5f╱_╱ // 0x1a9f @0x9
0x1a96…1ac3 at000a = ╱4b╱K╱ // 0x1aa0 @0xa
0x1a96…1ac3 at000b = ╱41╱A╱ // 0x1aa1 @0xb
0x1a96…1ac3 at000c = ╱50╱P╱ // 0x1aa2 @0xc
0x1a96…1ac3 at000d = ╱4f╱O╱ // 0x1aa3 @0xd
0x1a96…1ac3 at000e = ╱4d╱M╱ // 0x1aa4 @0xe
0x1a96…1ac3 at000f = ╱4b╱K╱ // 0x1aa5 @0xf
0x1a96…1ac3 at0010 = ╱e6╱ - ╱ // 0x1aa6 @0x10
0x1a96…1ac3 at0011 = ╱5c╱\╱ // 0x1aa7 @0x11
0x1a96…1ac3 at0012 = ╱56╱V╱ // 0x1aa8 @0x12
0x1a96…1ac3 at0013 = ╱52╱R╱ // 0x1aa9 @0x13
0x1a96…1ac3 at0014 = ╱5f╱_╱ // 0x1aaa @0x14
0x1a96…1ac3 at0015 = ╱56╱V╱ // 0x1aab @0x15
0x1a96…1ac3 at0016 = ╱41╱A╱ // 0x1aac @0x16
0x1a96…1ac3 at0017 = ╱52╱R╱ // 0x1aad @0x17
0x1a96…1ac3 at0018 = ╱ee╱ ) ╱ // 0x1aae @0x18
0x1a96…1ac3 at0019 = ╱e7╱ * ╱ // 0x1aaf @0x19
0x1a96…1ac3 at001a = ╱ed╱ ( ╱ // 0x1ab0 @0x1a
0x1a96…1ac3 at001b = ╱de╱ - ╱ // 0x1ab1 @0x1b
0x1a96…1ac3 at001c = ╱31╱1╱ // 0x1ab2 @0x1c
0x1a96…1ac3 at001d = ╱f20100╱ // 0x1ab3 @0x1d
0x1a96…1ac3 at0020 = ╱ee╱ ) ╱ // 0x1ab6 @0x20
0x1a96…1ac3 at0021 = ╱ec╱ , ╱ // 0x1ab7 @0x21
0x1a96…1ac3 at0022 = ╱39╱9╱ // 0x1ab8 @0x22
0x1a96…1ac3 at0023 = ╱f20900╱ // 0x1ab9 @0x23
0x1a96…1ac3 at0026 = ╱ec╱ , ╱ // 0x1abc @0x26
0x1a96…1ac3 at0027 = ╱32╱2╱ // 0x1abd @0x27
0x1a96…1ac3 at0028 = ╱f20200╱ // 0x1abe @0x28
0x1a96…1ac3 at002b = ╱ee╱ ) ╱ // 0x1ac1 @0x2b
0x1a96…1ac3 at002c = EOL // 0x1ac2 @0x2c
0x1a96…1ac3 }
0x1ac3…1ae0 b0ce 02440 PRINT TAB ( 53 ) ; "------------"
0x1ac3…1ae0 LineComal80 {
0x1ac3…1ae0 ptr = 0xb0ce // 0x1ac3 @0x0
0x1ac3…1ae0 lno = 0x0988 // 0x1ac5 @0x2
0x1ac3…1ae0 at0004 = ╱92╱ PRINT ╱ // 0x1ac7 @0x4
0x1ac3…1ae0 at0005 = ╱d2╱ TAB ╱ // 0x1ac8 @0x5
0x1ac3…1ae0 at0006 = ╱ed╱ ( ╱ // 0x1ac9 @0x6
0x1ac3…1ae0 at0007 = ╱35╱5╱ // 0x1aca @0x7
0x1ac3…1ae0 at0008 = ╱33╱3╱ // 0x1acb @0x8
0x1ac3…1ae0 at0009 = ╱f23500╱ // 0x1acc @0x9
0x1ac3…1ae0 at000c = ╱ee╱ ) ╱ // 0x1acf @0xc
0x1ac3…1ae0 at000d = ╱ea╱ ; ╱ // 0x1ad0 @0xd
0x1ac3…1ae0 at000e = ╱22╱"╱ // 0x1ad1 @0xe
0x1ac3…1ae0 at000f = ╱2d╱-╱ // 0x1ad2 @0xf
0x1ac3…1ae0 at0010 = ╱2d╱-╱ // 0x1ad3 @0x10
0x1ac3…1ae0 at0011 = ╱2d╱-╱ // 0x1ad4 @0x11
0x1ac3…1ae0 at0012 = ╱2d╱-╱ // 0x1ad5 @0x12
0x1ac3…1ae0 at0013 = ╱2d╱-╱ // 0x1ad6 @0x13
0x1ac3…1ae0 at0014 = ╱2d╱-╱ // 0x1ad7 @0x14
0x1ac3…1ae0 at0015 = ╱2d╱-╱ // 0x1ad8 @0x15
0x1ac3…1ae0 at0016 = ╱2d╱-╱ // 0x1ad9 @0x16
0x1ac3…1ae0 at0017 = ╱2d╱-╱ // 0x1ada @0x17
0x1ac3…1ae0 at0018 = ╱2d╱-╱ // 0x1adb @0x18
0x1ac3…1ae0 at0019 = ╱2d╱-╱ // 0x1adc @0x19
0x1ac3…1ae0 at001a = ╱2d╱-╱ // 0x1add @0x1a
0x1ac3…1ae0 at001b = ╱22╱"╱ // 0x1ade @0x1b
0x1ac3…1ae0 at001c = EOL // 0x1adf @0x1c
0x1ac3…1ae0 }
0x1ae0…1b08 b0f6 02450 LET INDTJEN := D[KNING + ( S_KAPOMK - \VR_VAR )
0x1ae0…1b08 LineComal80 {
0x1ae0…1b08 ptr = 0xb0f6 // 0x1ae0 @0x0
0x1ae0…1b08 lno = 0x0992 // 0x1ae2 @0x2
0x1ae0…1b08 at0004 = ╱86╱ LET ╱ // 0x1ae4 @0x4
0x1ae0…1b08 at0005 = ╱49╱I╱ // 0x1ae5 @0x5
0x1ae0…1b08 at0006 = ╱4e╱N╱ // 0x1ae6 @0x6
0x1ae0…1b08 at0007 = ╱44╱D╱ // 0x1ae7 @0x7
0x1ae0…1b08 at0008 = ╱54╱T╱ // 0x1ae8 @0x8
0x1ae0…1b08 at0009 = ╱4a╱J╱ // 0x1ae9 @0x9
0x1ae0…1b08 at000a = ╱45╱E╱ // 0x1aea @0xa
0x1ae0…1b08 at000b = ╱4e╱N╱ // 0x1aeb @0xb
0x1ae0…1b08 at000c = ╱f0╱ := ╱ // 0x1aec @0xc
0x1ae0…1b08 at000d = ╱44╱D╱ // 0x1aed @0xd
0x1ae0…1b08 at000e = ╱5b╱[╱ // 0x1aee @0xe
0x1ae0…1b08 at000f = ╱4b╱K╱ // 0x1aef @0xf
0x1ae0…1b08 at0010 = ╱4e╱N╱ // 0x1af0 @0x10
0x1ae0…1b08 at0011 = ╱49╱I╱ // 0x1af1 @0x11
0x1ae0…1b08 at0012 = ╱4e╱N╱ // 0x1af2 @0x12
0x1ae0…1b08 at0013 = ╱47╱G╱ // 0x1af3 @0x13
0x1ae0…1b08 at0014 = ╱e5╱ + ╱ // 0x1af4 @0x14
0x1ae0…1b08 at0015 = ╱ed╱ ( ╱ // 0x1af5 @0x15
0x1ae0…1b08 at0016 = ╱53╱S╱ // 0x1af6 @0x16
0x1ae0…1b08 at0017 = ╱5f╱_╱ // 0x1af7 @0x17
0x1ae0…1b08 at0018 = ╱4b╱K╱ // 0x1af8 @0x18
0x1ae0…1b08 at0019 = ╱41╱A╱ // 0x1af9 @0x19
0x1ae0…1b08 at001a = ╱50╱P╱ // 0x1afa @0x1a
0x1ae0…1b08 at001b = ╱4f╱O╱ // 0x1afb @0x1b
0x1ae0…1b08 at001c = ╱4d╱M╱ // 0x1afc @0x1c
0x1ae0…1b08 at001d = ╱4b╱K╱ // 0x1afd @0x1d
0x1ae0…1b08 at001e = ╱e6╱ - ╱ // 0x1afe @0x1e
0x1ae0…1b08 at001f = ╱5c╱\╱ // 0x1aff @0x1f
0x1ae0…1b08 at0020 = ╱56╱V╱ // 0x1b00 @0x20
0x1ae0…1b08 at0021 = ╱52╱R╱ // 0x1b01 @0x21
0x1ae0…1b08 at0022 = ╱5f╱_╱ // 0x1b02 @0x22
0x1ae0…1b08 at0023 = ╱56╱V╱ // 0x1b03 @0x23
0x1ae0…1b08 at0024 = ╱41╱A╱ // 0x1b04 @0x24
0x1ae0…1b08 at0025 = ╱52╱R╱ // 0x1b05 @0x25
0x1ae0…1b08 at0026 = ╱ee╱ ) ╱ // 0x1b06 @0x26
0x1ae0…1b08 at0027 = EOL // 0x1b07 @0x27
0x1ae0…1b08 }
0x1b08…1b40 b12e 02460 PRINT "Indtjeningsbidrag…" ; TAB ( 53 ) ; CHR$ ( INDTJEN , 9 , 2 )
0x1b08…1b40 LineComal80 {
0x1b08…1b40 ptr = 0xb12e // 0x1b08 @0x0
0x1b08…1b40 lno = 0x099c // 0x1b0a @0x2
0x1b08…1b40 at0004 = ╱92╱ PRINT ╱ // 0x1b0c @0x4
0x1b08…1b40 at0005 = ╱22╱"╱ // 0x1b0d @0x5
0x1b08…1b40 at0006 = ╱49╱I╱ // 0x1b0e @0x6
0x1b08…1b40 at0007 = ╱6e╱n╱ // 0x1b0f @0x7
0x1b08…1b40 at0008 = ╱64╱d╱ // 0x1b10 @0x8
0x1b08…1b40 at0009 = ╱74╱t╱ // 0x1b11 @0x9
0x1b08…1b40 at000a = ╱6a╱j╱ // 0x1b12 @0xa
0x1b08…1b40 at000b = ╱65╱e╱ // 0x1b13 @0xb
0x1b08…1b40 at000c = ╱6e╱n╱ // 0x1b14 @0xc
0x1b08…1b40 at000d = ╱69╱i╱ // 0x1b15 @0xd
0x1b08…1b40 at000e = ╱6e╱n╱ // 0x1b16 @0xe
0x1b08…1b40 at000f = ╱67╱g╱ // 0x1b17 @0xf
0x1b08…1b40 at0010 = ╱73╱s╱ // 0x1b18 @0x10
0x1b08…1b40 at0011 = ╱62╱b╱ // 0x1b19 @0x11
0x1b08…1b40 at0012 = ╱69╱i╱ // 0x1b1a @0x12
0x1b08…1b40 at0013 = ╱64╱d╱ // 0x1b1b @0x13
0x1b08…1b40 at0014 = ╱72╱r╱ // 0x1b1c @0x14
0x1b08…1b40 at0015 = ╱61╱a╱ // 0x1b1d @0x15
0x1b08…1b40 at0016 = ╱67╱g╱ // 0x1b1e @0x16
0x1b08…1b40 at0017 = ╱20╱…╱ // 0x1b1f @0x17
0x1b08…1b40 at0018 = ╱22╱"╱ // 0x1b20 @0x18
0x1b08…1b40 at0019 = ╱ea╱ ; ╱ // 0x1b21 @0x19
0x1b08…1b40 at001a = ╱d2╱ TAB ╱ // 0x1b22 @0x1a
0x1b08…1b40 at001b = ╱ed╱ ( ╱ // 0x1b23 @0x1b
0x1b08…1b40 at001c = ╱35╱5╱ // 0x1b24 @0x1c
0x1b08…1b40 at001d = ╱33╱3╱ // 0x1b25 @0x1d
0x1b08…1b40 at001e = ╱f23500╱ // 0x1b26 @0x1e
0x1b08…1b40 at0021 = ╱ee╱ ) ╱ // 0x1b29 @0x21
0x1b08…1b40 at0022 = ╱ea╱ ; ╱ // 0x1b2a @0x22
0x1b08…1b40 at0023 = ╱d0╱ CHR$ ╱ // 0x1b2b @0x23
0x1b08…1b40 at0024 = ╱ed╱ ( ╱ // 0x1b2c @0x24
0x1b08…1b40 at0025 = ╱49╱I╱ // 0x1b2d @0x25
0x1b08…1b40 at0026 = ╱4e╱N╱ // 0x1b2e @0x26
0x1b08…1b40 at0027 = ╱44╱D╱ // 0x1b2f @0x27
0x1b08…1b40 at0028 = ╱54╱T╱ // 0x1b30 @0x28
0x1b08…1b40 at0029 = ╱4a╱J╱ // 0x1b31 @0x29
0x1b08…1b40 at002a = ╱45╱E╱ // 0x1b32 @0x2a
0x1b08…1b40 at002b = ╱4e╱N╱ // 0x1b33 @0x2b
0x1b08…1b40 at002c = ╱ec╱ , ╱ // 0x1b34 @0x2c
0x1b08…1b40 at002d = ╱39╱9╱ // 0x1b35 @0x2d
0x1b08…1b40 at002e = ╱f20900╱ // 0x1b36 @0x2e
0x1b08…1b40 at0031 = ╱ec╱ , ╱ // 0x1b39 @0x31
0x1b08…1b40 at0032 = ╱32╱2╱ // 0x1b3a @0x32
0x1b08…1b40 at0033 = ╱f20200╱ // 0x1b3b @0x33
0x1b08…1b40 at0036 = ╱ee╱ ) ╱ // 0x1b3e @0x36
0x1b08…1b40 at0037 = EOL // 0x1b3f @0x37
0x1b08…1b40 }
0x1b40…1b7e b16c 02470 PRINT "-…Afskrivninger" ; TAB ( 53 ) ; CHR$ ( S_AFSKRI * ( - 1 ) , 9 , 2 )
0x1b40…1b7e LineComal80 {
0x1b40…1b7e ptr = 0xb16c // 0x1b40 @0x0
0x1b40…1b7e lno = 0x09a6 // 0x1b42 @0x2
0x1b40…1b7e at0004 = ╱92╱ PRINT ╱ // 0x1b44 @0x4
0x1b40…1b7e at0005 = ╱22╱"╱ // 0x1b45 @0x5
0x1b40…1b7e at0006 = ╱2d╱-╱ // 0x1b46 @0x6
0x1b40…1b7e at0007 = ╱20╱…╱ // 0x1b47 @0x7
0x1b40…1b7e at0008 = ╱41╱A╱ // 0x1b48 @0x8
0x1b40…1b7e at0009 = ╱66╱f╱ // 0x1b49 @0x9
0x1b40…1b7e at000a = ╱73╱s╱ // 0x1b4a @0xa
0x1b40…1b7e at000b = ╱6b╱k╱ // 0x1b4b @0xb
0x1b40…1b7e at000c = ╱72╱r╱ // 0x1b4c @0xc
0x1b40…1b7e at000d = ╱69╱i╱ // 0x1b4d @0xd
0x1b40…1b7e at000e = ╱76╱v╱ // 0x1b4e @0xe
0x1b40…1b7e at000f = ╱6e╱n╱ // 0x1b4f @0xf
0x1b40…1b7e at0010 = ╱69╱i╱ // 0x1b50 @0x10
0x1b40…1b7e at0011 = ╱6e╱n╱ // 0x1b51 @0x11
0x1b40…1b7e at0012 = ╱67╱g╱ // 0x1b52 @0x12
0x1b40…1b7e at0013 = ╱65╱e╱ // 0x1b53 @0x13
0x1b40…1b7e at0014 = ╱72╱r╱ // 0x1b54 @0x14
0x1b40…1b7e at0015 = ╱22╱"╱ // 0x1b55 @0x15
0x1b40…1b7e at0016 = ╱ea╱ ; ╱ // 0x1b56 @0x16
0x1b40…1b7e at0017 = ╱d2╱ TAB ╱ // 0x1b57 @0x17
0x1b40…1b7e at0018 = ╱ed╱ ( ╱ // 0x1b58 @0x18
0x1b40…1b7e at0019 = ╱35╱5╱ // 0x1b59 @0x19
0x1b40…1b7e at001a = ╱33╱3╱ // 0x1b5a @0x1a
0x1b40…1b7e at001b = ╱f23500╱ // 0x1b5b @0x1b
0x1b40…1b7e at001e = ╱ee╱ ) ╱ // 0x1b5e @0x1e
0x1b40…1b7e at001f = ╱ea╱ ; ╱ // 0x1b5f @0x1f
0x1b40…1b7e at0020 = ╱d0╱ CHR$ ╱ // 0x1b60 @0x20
0x1b40…1b7e at0021 = ╱ed╱ ( ╱ // 0x1b61 @0x21
0x1b40…1b7e at0022 = ╱53╱S╱ // 0x1b62 @0x22
0x1b40…1b7e at0023 = ╱5f╱_╱ // 0x1b63 @0x23
0x1b40…1b7e at0024 = ╱41╱A╱ // 0x1b64 @0x24
0x1b40…1b7e at0025 = ╱46╱F╱ // 0x1b65 @0x25
0x1b40…1b7e at0026 = ╱53╱S╱ // 0x1b66 @0x26
0x1b40…1b7e at0027 = ╱4b╱K╱ // 0x1b67 @0x27
0x1b40…1b7e at0028 = ╱52╱R╱ // 0x1b68 @0x28
0x1b40…1b7e at0029 = ╱49╱I╱ // 0x1b69 @0x29
0x1b40…1b7e at002a = ╱e7╱ * ╱ // 0x1b6a @0x2a
0x1b40…1b7e at002b = ╱ed╱ ( ╱ // 0x1b6b @0x2b
0x1b40…1b7e at002c = ╱de╱ - ╱ // 0x1b6c @0x2c
0x1b40…1b7e at002d = ╱31╱1╱ // 0x1b6d @0x2d
0x1b40…1b7e at002e = ╱f20100╱ // 0x1b6e @0x2e
0x1b40…1b7e at0031 = ╱ee╱ ) ╱ // 0x1b71 @0x31
0x1b40…1b7e at0032 = ╱ec╱ , ╱ // 0x1b72 @0x32
0x1b40…1b7e at0033 = ╱39╱9╱ // 0x1b73 @0x33
0x1b40…1b7e at0034 = ╱f20900╱ // 0x1b74 @0x34
0x1b40…1b7e at0037 = ╱ec╱ , ╱ // 0x1b77 @0x37
0x1b40…1b7e at0038 = ╱32╱2╱ // 0x1b78 @0x38
0x1b40…1b7e at0039 = ╱f20200╱ // 0x1b79 @0x39
0x1b40…1b7e at003c = ╱ee╱ ) ╱ // 0x1b7c @0x3c
0x1b40…1b7e at003d = EOL // 0x1b7d @0x3d
0x1b40…1b7e }
0x1b7e…1b9b b189 02480 PRINT TAB ( 53 ) ; "------------"
0x1b7e…1b9b LineComal80 {
0x1b7e…1b9b ptr = 0xb189 // 0x1b7e @0x0
0x1b7e…1b9b lno = 0x09b0 // 0x1b80 @0x2
0x1b7e…1b9b at0004 = ╱92╱ PRINT ╱ // 0x1b82 @0x4
0x1b7e…1b9b at0005 = ╱d2╱ TAB ╱ // 0x1b83 @0x5
0x1b7e…1b9b at0006 = ╱ed╱ ( ╱ // 0x1b84 @0x6
0x1b7e…1b9b at0007 = ╱35╱5╱ // 0x1b85 @0x7
0x1b7e…1b9b at0008 = ╱33╱3╱ // 0x1b86 @0x8
0x1b7e…1b9b at0009 = ╱f23500╱ // 0x1b87 @0x9
0x1b7e…1b9b at000c = ╱ee╱ ) ╱ // 0x1b8a @0xc
0x1b7e…1b9b at000d = ╱ea╱ ; ╱ // 0x1b8b @0xd
0x1b7e…1b9b at000e = ╱22╱"╱ // 0x1b8c @0xe
0x1b7e…1b9b at000f = ╱2d╱-╱ // 0x1b8d @0xf
0x1b7e…1b9b at0010 = ╱2d╱-╱ // 0x1b8e @0x10
0x1b7e…1b9b at0011 = ╱2d╱-╱ // 0x1b8f @0x11
0x1b7e…1b9b at0012 = ╱2d╱-╱ // 0x1b90 @0x12
0x1b7e…1b9b at0013 = ╱2d╱-╱ // 0x1b91 @0x13
0x1b7e…1b9b at0014 = ╱2d╱-╱ // 0x1b92 @0x14
0x1b7e…1b9b at0015 = ╱2d╱-╱ // 0x1b93 @0x15
0x1b7e…1b9b at0016 = ╱2d╱-╱ // 0x1b94 @0x16
0x1b7e…1b9b at0017 = ╱2d╱-╱ // 0x1b95 @0x17
0x1b7e…1b9b at0018 = ╱2d╱-╱ // 0x1b96 @0x18
0x1b7e…1b9b at0019 = ╱2d╱-╱ // 0x1b97 @0x19
0x1b7e…1b9b at001a = ╱2d╱-╱ // 0x1b98 @0x1a
0x1b7e…1b9b at001b = ╱22╱"╱ // 0x1b99 @0x1b
0x1b7e…1b9b at001c = EOL // 0x1b9a @0x1c
0x1b7e…1b9b }
0x1b9b…1bb9 b1a7 02490 LET RES_F_R := INDTJEN + S_AFSKRI
0x1b9b…1bb9 LineComal80 {
0x1b9b…1bb9 ptr = 0xb1a7 // 0x1b9b @0x0
0x1b9b…1bb9 lno = 0x09ba // 0x1b9d @0x2
0x1b9b…1bb9 at0004 = ╱86╱ LET ╱ // 0x1b9f @0x4
0x1b9b…1bb9 at0005 = ╱52╱R╱ // 0x1ba0 @0x5
0x1b9b…1bb9 at0006 = ╱45╱E╱ // 0x1ba1 @0x6
0x1b9b…1bb9 at0007 = ╱53╱S╱ // 0x1ba2 @0x7
0x1b9b…1bb9 at0008 = ╱5f╱_╱ // 0x1ba3 @0x8
0x1b9b…1bb9 at0009 = ╱46╱F╱ // 0x1ba4 @0x9
0x1b9b…1bb9 at000a = ╱5f╱_╱ // 0x1ba5 @0xa
0x1b9b…1bb9 at000b = ╱52╱R╱ // 0x1ba6 @0xb
0x1b9b…1bb9 at000c = ╱f0╱ := ╱ // 0x1ba7 @0xc
0x1b9b…1bb9 at000d = ╱49╱I╱ // 0x1ba8 @0xd
0x1b9b…1bb9 at000e = ╱4e╱N╱ // 0x1ba9 @0xe
0x1b9b…1bb9 at000f = ╱44╱D╱ // 0x1baa @0xf
0x1b9b…1bb9 at0010 = ╱54╱T╱ // 0x1bab @0x10
0x1b9b…1bb9 at0011 = ╱4a╱J╱ // 0x1bac @0x11
0x1b9b…1bb9 at0012 = ╱45╱E╱ // 0x1bad @0x12
0x1b9b…1bb9 at0013 = ╱4e╱N╱ // 0x1bae @0x13
0x1b9b…1bb9 at0014 = ╱e5╱ + ╱ // 0x1baf @0x14
0x1b9b…1bb9 at0015 = ╱53╱S╱ // 0x1bb0 @0x15
0x1b9b…1bb9 at0016 = ╱5f╱_╱ // 0x1bb1 @0x16
0x1b9b…1bb9 at0017 = ╱41╱A╱ // 0x1bb2 @0x17
0x1b9b…1bb9 at0018 = ╱46╱F╱ // 0x1bb3 @0x18
0x1b9b…1bb9 at0019 = ╱53╱S╱ // 0x1bb4 @0x19
0x1b9b…1bb9 at001a = ╱4b╱K╱ // 0x1bb5 @0x1a
0x1b9b…1bb9 at001b = ╱52╱R╱ // 0x1bb6 @0x1b
0x1b9b…1bb9 at001c = ╱49╱I╱ // 0x1bb7 @0x1c
0x1b9b…1bb9 at001d = EOL // 0x1bb8 @0x1d
0x1b9b…1bb9 }
0x1bb9…1c03 b1f1 02500 PRINT "Resultat…af…ordin{r…drift…f|r…renter" ; TAB ( 53 ) ; CHR$ ( RES_F_R , 9 , 2 )
0x1bb9…1c03 LineComal80 {
0x1bb9…1c03 ptr = 0xb1f1 // 0x1bb9 @0x0
0x1bb9…1c03 lno = 0x09c4 // 0x1bbb @0x2
0x1bb9…1c03 at0004 = ╱92╱ PRINT ╱ // 0x1bbd @0x4
0x1bb9…1c03 at0005 = ╱22╱"╱ // 0x1bbe @0x5
0x1bb9…1c03 at0006 = ╱52╱R╱ // 0x1bbf @0x6
0x1bb9…1c03 at0007 = ╱65╱e╱ // 0x1bc0 @0x7
0x1bb9…1c03 at0008 = ╱73╱s╱ // 0x1bc1 @0x8
0x1bb9…1c03 at0009 = ╱75╱u╱ // 0x1bc2 @0x9
0x1bb9…1c03 at000a = ╱6c╱l╱ // 0x1bc3 @0xa
0x1bb9…1c03 at000b = ╱74╱t╱ // 0x1bc4 @0xb
0x1bb9…1c03 at000c = ╱61╱a╱ // 0x1bc5 @0xc
0x1bb9…1c03 at000d = ╱74╱t╱ // 0x1bc6 @0xd
0x1bb9…1c03 at000e = ╱20╱…╱ // 0x1bc7 @0xe
0x1bb9…1c03 at000f = ╱61╱a╱ // 0x1bc8 @0xf
0x1bb9…1c03 at0010 = ╱66╱f╱ // 0x1bc9 @0x10
0x1bb9…1c03 at0011 = ╱20╱…╱ // 0x1bca @0x11
0x1bb9…1c03 at0012 = ╱6f╱o╱ // 0x1bcb @0x12
0x1bb9…1c03 at0013 = ╱72╱r╱ // 0x1bcc @0x13
0x1bb9…1c03 at0014 = ╱64╱d╱ // 0x1bcd @0x14
0x1bb9…1c03 at0015 = ╱69╱i╱ // 0x1bce @0x15
0x1bb9…1c03 at0016 = ╱6e╱n╱ // 0x1bcf @0x16
0x1bb9…1c03 at0017 = ╱7b╱{╱ // 0x1bd0 @0x17
0x1bb9…1c03 at0018 = ╱72╱r╱ // 0x1bd1 @0x18
0x1bb9…1c03 at0019 = ╱20╱…╱ // 0x1bd2 @0x19
0x1bb9…1c03 at001a = ╱64╱d╱ // 0x1bd3 @0x1a
0x1bb9…1c03 at001b = ╱72╱r╱ // 0x1bd4 @0x1b
0x1bb9…1c03 at001c = ╱69╱i╱ // 0x1bd5 @0x1c
0x1bb9…1c03 at001d = ╱66╱f╱ // 0x1bd6 @0x1d
0x1bb9…1c03 at001e = ╱74╱t╱ // 0x1bd7 @0x1e
0x1bb9…1c03 at001f = ╱20╱…╱ // 0x1bd8 @0x1f
0x1bb9…1c03 at0020 = ╱66╱f╱ // 0x1bd9 @0x20
0x1bb9…1c03 at0021 = ╱7c╱|╱ // 0x1bda @0x21
0x1bb9…1c03 at0022 = ╱72╱r╱ // 0x1bdb @0x22
0x1bb9…1c03 at0023 = ╱20╱…╱ // 0x1bdc @0x23
0x1bb9…1c03 at0024 = ╱72╱r╱ // 0x1bdd @0x24
0x1bb9…1c03 at0025 = ╱65╱e╱ // 0x1bde @0x25
0x1bb9…1c03 at0026 = ╱6e╱n╱ // 0x1bdf @0x26
0x1bb9…1c03 at0027 = ╱74╱t╱ // 0x1be0 @0x27
0x1bb9…1c03 at0028 = ╱65╱e╱ // 0x1be1 @0x28
0x1bb9…1c03 at0029 = ╱72╱r╱ // 0x1be2 @0x29
0x1bb9…1c03 at002a = ╱22╱"╱ // 0x1be3 @0x2a
0x1bb9…1c03 at002b = ╱ea╱ ; ╱ // 0x1be4 @0x2b
0x1bb9…1c03 at002c = ╱d2╱ TAB ╱ // 0x1be5 @0x2c
0x1bb9…1c03 at002d = ╱ed╱ ( ╱ // 0x1be6 @0x2d
0x1bb9…1c03 at002e = ╱35╱5╱ // 0x1be7 @0x2e
0x1bb9…1c03 at002f = ╱33╱3╱ // 0x1be8 @0x2f
0x1bb9…1c03 at0030 = ╱f23500╱ // 0x1be9 @0x30
0x1bb9…1c03 at0033 = ╱ee╱ ) ╱ // 0x1bec @0x33
0x1bb9…1c03 at0034 = ╱ea╱ ; ╱ // 0x1bed @0x34
0x1bb9…1c03 at0035 = ╱d0╱ CHR$ ╱ // 0x1bee @0x35
0x1bb9…1c03 at0036 = ╱ed╱ ( ╱ // 0x1bef @0x36
0x1bb9…1c03 at0037 = ╱52╱R╱ // 0x1bf0 @0x37
0x1bb9…1c03 at0038 = ╱45╱E╱ // 0x1bf1 @0x38
0x1bb9…1c03 at0039 = ╱53╱S╱ // 0x1bf2 @0x39
0x1bb9…1c03 at003a = ╱5f╱_╱ // 0x1bf3 @0x3a
0x1bb9…1c03 at003b = ╱46╱F╱ // 0x1bf4 @0x3b
0x1bb9…1c03 at003c = ╱5f╱_╱ // 0x1bf5 @0x3c
0x1bb9…1c03 at003d = ╱52╱R╱ // 0x1bf6 @0x3d
0x1bb9…1c03 at003e = ╱ec╱ , ╱ // 0x1bf7 @0x3e
0x1bb9…1c03 at003f = ╱39╱9╱ // 0x1bf8 @0x3f
0x1bb9…1c03 at0040 = ╱f20900╱ // 0x1bf9 @0x40
0x1bb9…1c03 at0043 = ╱ec╱ , ╱ // 0x1bfc @0x43
0x1bb9…1c03 at0044 = ╱32╱2╱ // 0x1bfd @0x44
0x1bb9…1c03 at0045 = ╱f20200╱ // 0x1bfe @0x45
0x1bb9…1c03 at0048 = ╱ee╱ ) ╱ // 0x1c01 @0x48
0x1bb9…1c03 at0049 = EOL // 0x1c02 @0x49
0x1bb9…1c03 }
0x1c03…1c45 b233 02510 PRINT "-…Renteomkostninger" ; TAB ( 53 ) ; CHR$ ( S_RENTEO * ( - 1 ) , 9 , 2 )
0x1c03…1c45 LineComal80 {
0x1c03…1c45 ptr = 0xb233 // 0x1c03 @0x0
0x1c03…1c45 lno = 0x09ce // 0x1c05 @0x2
0x1c03…1c45 at0004 = ╱92╱ PRINT ╱ // 0x1c07 @0x4
0x1c03…1c45 at0005 = ╱22╱"╱ // 0x1c08 @0x5
0x1c03…1c45 at0006 = ╱2d╱-╱ // 0x1c09 @0x6
0x1c03…1c45 at0007 = ╱20╱…╱ // 0x1c0a @0x7
0x1c03…1c45 at0008 = ╱52╱R╱ // 0x1c0b @0x8
0x1c03…1c45 at0009 = ╱65╱e╱ // 0x1c0c @0x9
0x1c03…1c45 at000a = ╱6e╱n╱ // 0x1c0d @0xa
0x1c03…1c45 at000b = ╱74╱t╱ // 0x1c0e @0xb
0x1c03…1c45 at000c = ╱65╱e╱ // 0x1c0f @0xc
0x1c03…1c45 at000d = ╱6f╱o╱ // 0x1c10 @0xd
0x1c03…1c45 at000e = ╱6d╱m╱ // 0x1c11 @0xe
0x1c03…1c45 at000f = ╱6b╱k╱ // 0x1c12 @0xf
0x1c03…1c45 at0010 = ╱6f╱o╱ // 0x1c13 @0x10
0x1c03…1c45 at0011 = ╱73╱s╱ // 0x1c14 @0x11
0x1c03…1c45 at0012 = ╱74╱t╱ // 0x1c15 @0x12
0x1c03…1c45 at0013 = ╱6e╱n╱ // 0x1c16 @0x13
0x1c03…1c45 at0014 = ╱69╱i╱ // 0x1c17 @0x14
0x1c03…1c45 at0015 = ╱6e╱n╱ // 0x1c18 @0x15
0x1c03…1c45 at0016 = ╱67╱g╱ // 0x1c19 @0x16
0x1c03…1c45 at0017 = ╱65╱e╱ // 0x1c1a @0x17
0x1c03…1c45 at0018 = ╱72╱r╱ // 0x1c1b @0x18
0x1c03…1c45 at0019 = ╱22╱"╱ // 0x1c1c @0x19
0x1c03…1c45 at001a = ╱ea╱ ; ╱ // 0x1c1d @0x1a
0x1c03…1c45 at001b = ╱d2╱ TAB ╱ // 0x1c1e @0x1b
0x1c03…1c45 at001c = ╱ed╱ ( ╱ // 0x1c1f @0x1c
0x1c03…1c45 at001d = ╱35╱5╱ // 0x1c20 @0x1d
0x1c03…1c45 at001e = ╱33╱3╱ // 0x1c21 @0x1e
0x1c03…1c45 at001f = ╱f23500╱ // 0x1c22 @0x1f
0x1c03…1c45 at0022 = ╱ee╱ ) ╱ // 0x1c25 @0x22
0x1c03…1c45 at0023 = ╱ea╱ ; ╱ // 0x1c26 @0x23
0x1c03…1c45 at0024 = ╱d0╱ CHR$ ╱ // 0x1c27 @0x24
0x1c03…1c45 at0025 = ╱ed╱ ( ╱ // 0x1c28 @0x25
0x1c03…1c45 at0026 = ╱53╱S╱ // 0x1c29 @0x26
0x1c03…1c45 at0027 = ╱5f╱_╱ // 0x1c2a @0x27
0x1c03…1c45 at0028 = ╱52╱R╱ // 0x1c2b @0x28
0x1c03…1c45 at0029 = ╱45╱E╱ // 0x1c2c @0x29
0x1c03…1c45 at002a = ╱4e╱N╱ // 0x1c2d @0x2a
0x1c03…1c45 at002b = ╱54╱T╱ // 0x1c2e @0x2b
0x1c03…1c45 at002c = ╱45╱E╱ // 0x1c2f @0x2c
0x1c03…1c45 at002d = ╱4f╱O╱ // 0x1c30 @0x2d
0x1c03…1c45 at002e = ╱e7╱ * ╱ // 0x1c31 @0x2e
0x1c03…1c45 at002f = ╱ed╱ ( ╱ // 0x1c32 @0x2f
0x1c03…1c45 at0030 = ╱de╱ - ╱ // 0x1c33 @0x30
0x1c03…1c45 at0031 = ╱31╱1╱ // 0x1c34 @0x31
0x1c03…1c45 at0032 = ╱f20100╱ // 0x1c35 @0x32
0x1c03…1c45 at0035 = ╱ee╱ ) ╱ // 0x1c38 @0x35
0x1c03…1c45 at0036 = ╱ec╱ , ╱ // 0x1c39 @0x36
0x1c03…1c45 at0037 = ╱39╱9╱ // 0x1c3a @0x37
0x1c03…1c45 at0038 = ╱f20900╱ // 0x1c3b @0x38
0x1c03…1c45 at003b = ╱ec╱ , ╱ // 0x1c3e @0x3b
0x1c03…1c45 at003c = ╱32╱2╱ // 0x1c3f @0x3c
0x1c03…1c45 at003d = ╱f20200╱ // 0x1c40 @0x3d
0x1c03…1c45 at0040 = ╱ee╱ ) ╱ // 0x1c43 @0x40
0x1c03…1c45 at0041 = EOL // 0x1c44 @0x41
0x1c03…1c45 }
0x1c45…1c62 b250 02520 PRINT TAB ( 53 ) ; "------------"
0x1c45…1c62 LineComal80 {
0x1c45…1c62 ptr = 0xb250 // 0x1c45 @0x0
0x1c45…1c62 lno = 0x09d8 // 0x1c47 @0x2
0x1c45…1c62 at0004 = ╱92╱ PRINT ╱ // 0x1c49 @0x4
0x1c45…1c62 at0005 = ╱d2╱ TAB ╱ // 0x1c4a @0x5
0x1c45…1c62 at0006 = ╱ed╱ ( ╱ // 0x1c4b @0x6
0x1c45…1c62 at0007 = ╱35╱5╱ // 0x1c4c @0x7
0x1c45…1c62 at0008 = ╱33╱3╱ // 0x1c4d @0x8
0x1c45…1c62 at0009 = ╱f23500╱ // 0x1c4e @0x9
0x1c45…1c62 at000c = ╱ee╱ ) ╱ // 0x1c51 @0xc
0x1c45…1c62 at000d = ╱ea╱ ; ╱ // 0x1c52 @0xd
0x1c45…1c62 at000e = ╱22╱"╱ // 0x1c53 @0xe
0x1c45…1c62 at000f = ╱2d╱-╱ // 0x1c54 @0xf
0x1c45…1c62 at0010 = ╱2d╱-╱ // 0x1c55 @0x10
0x1c45…1c62 at0011 = ╱2d╱-╱ // 0x1c56 @0x11
0x1c45…1c62 at0012 = ╱2d╱-╱ // 0x1c57 @0x12
0x1c45…1c62 at0013 = ╱2d╱-╱ // 0x1c58 @0x13
0x1c45…1c62 at0014 = ╱2d╱-╱ // 0x1c59 @0x14
0x1c45…1c62 at0015 = ╱2d╱-╱ // 0x1c5a @0x15
0x1c45…1c62 at0016 = ╱2d╱-╱ // 0x1c5b @0x16
0x1c45…1c62 at0017 = ╱2d╱-╱ // 0x1c5c @0x17
0x1c45…1c62 at0018 = ╱2d╱-╱ // 0x1c5d @0x18
0x1c45…1c62 at0019 = ╱2d╱-╱ // 0x1c5e @0x19
0x1c45…1c62 at001a = ╱2d╱-╱ // 0x1c5f @0x1a
0x1c45…1c62 at001b = ╱22╱"╱ // 0x1c60 @0x1b
0x1c45…1c62 at001c = EOL // 0x1c61 @0x1c
0x1c45…1c62 }
0x1c62…1c81 b26f 02530 LET RESULTAT := RES_F_R + S_RENTEO
0x1c62…1c81 LineComal80 {
0x1c62…1c81 ptr = 0xb26f // 0x1c62 @0x0
0x1c62…1c81 lno = 0x09e2 // 0x1c64 @0x2
0x1c62…1c81 at0004 = ╱86╱ LET ╱ // 0x1c66 @0x4
0x1c62…1c81 at0005 = ╱52╱R╱ // 0x1c67 @0x5
0x1c62…1c81 at0006 = ╱45╱E╱ // 0x1c68 @0x6
0x1c62…1c81 at0007 = ╱53╱S╱ // 0x1c69 @0x7
0x1c62…1c81 at0008 = ╱55╱U╱ // 0x1c6a @0x8
0x1c62…1c81 at0009 = ╱4c╱L╱ // 0x1c6b @0x9
0x1c62…1c81 at000a = ╱54╱T╱ // 0x1c6c @0xa
0x1c62…1c81 at000b = ╱41╱A╱ // 0x1c6d @0xb
0x1c62…1c81 at000c = ╱54╱T╱ // 0x1c6e @0xc
0x1c62…1c81 at000d = ╱f0╱ := ╱ // 0x1c6f @0xd
0x1c62…1c81 at000e = ╱52╱R╱ // 0x1c70 @0xe
0x1c62…1c81 at000f = ╱45╱E╱ // 0x1c71 @0xf
0x1c62…1c81 at0010 = ╱53╱S╱ // 0x1c72 @0x10
0x1c62…1c81 at0011 = ╱5f╱_╱ // 0x1c73 @0x11
0x1c62…1c81 at0012 = ╱46╱F╱ // 0x1c74 @0x12
0x1c62…1c81 at0013 = ╱5f╱_╱ // 0x1c75 @0x13
0x1c62…1c81 at0014 = ╱52╱R╱ // 0x1c76 @0x14
0x1c62…1c81 at0015 = ╱e5╱ + ╱ // 0x1c77 @0x15
0x1c62…1c81 at0016 = ╱53╱S╱ // 0x1c78 @0x16
0x1c62…1c81 at0017 = ╱5f╱_╱ // 0x1c79 @0x17
0x1c62…1c81 at0018 = ╱52╱R╱ // 0x1c7a @0x18
0x1c62…1c81 at0019 = ╱45╱E╱ // 0x1c7b @0x19
0x1c62…1c81 at001a = ╱4e╱N╱ // 0x1c7c @0x1a
0x1c62…1c81 at001b = ╱54╱T╱ // 0x1c7d @0x1b
0x1c62…1c81 at001c = ╱45╱E╱ // 0x1c7e @0x1c
0x1c62…1c81 at001d = ╱4f╱O╱ // 0x1c7f @0x1d
0x1c62…1c81 at001e = EOL // 0x1c80 @0x1e
0x1c62…1c81 }
0x1c81…1cc1 b2af 02540 PRINT "Resultat…af…ordin{r…drift" ; TAB ( 53 ) ; CHR$ ( RESULTAT , 9 , 2 )
0x1c81…1cc1 LineComal80 {
0x1c81…1cc1 ptr = 0xb2af // 0x1c81 @0x0
0x1c81…1cc1 lno = 0x09ec // 0x1c83 @0x2
0x1c81…1cc1 at0004 = ╱92╱ PRINT ╱ // 0x1c85 @0x4
0x1c81…1cc1 at0005 = ╱22╱"╱ // 0x1c86 @0x5
0x1c81…1cc1 at0006 = ╱52╱R╱ // 0x1c87 @0x6
0x1c81…1cc1 at0007 = ╱65╱e╱ // 0x1c88 @0x7
0x1c81…1cc1 at0008 = ╱73╱s╱ // 0x1c89 @0x8
0x1c81…1cc1 at0009 = ╱75╱u╱ // 0x1c8a @0x9
0x1c81…1cc1 at000a = ╱6c╱l╱ // 0x1c8b @0xa
0x1c81…1cc1 at000b = ╱74╱t╱ // 0x1c8c @0xb
0x1c81…1cc1 at000c = ╱61╱a╱ // 0x1c8d @0xc
0x1c81…1cc1 at000d = ╱74╱t╱ // 0x1c8e @0xd
0x1c81…1cc1 at000e = ╱20╱…╱ // 0x1c8f @0xe
0x1c81…1cc1 at000f = ╱61╱a╱ // 0x1c90 @0xf
0x1c81…1cc1 at0010 = ╱66╱f╱ // 0x1c91 @0x10
0x1c81…1cc1 at0011 = ╱20╱…╱ // 0x1c92 @0x11
0x1c81…1cc1 at0012 = ╱6f╱o╱ // 0x1c93 @0x12
0x1c81…1cc1 at0013 = ╱72╱r╱ // 0x1c94 @0x13
0x1c81…1cc1 at0014 = ╱64╱d╱ // 0x1c95 @0x14
0x1c81…1cc1 at0015 = ╱69╱i╱ // 0x1c96 @0x15
0x1c81…1cc1 at0016 = ╱6e╱n╱ // 0x1c97 @0x16
0x1c81…1cc1 at0017 = ╱7b╱{╱ // 0x1c98 @0x17
0x1c81…1cc1 at0018 = ╱72╱r╱ // 0x1c99 @0x18
0x1c81…1cc1 at0019 = ╱20╱…╱ // 0x1c9a @0x19
0x1c81…1cc1 at001a = ╱64╱d╱ // 0x1c9b @0x1a
0x1c81…1cc1 at001b = ╱72╱r╱ // 0x1c9c @0x1b
0x1c81…1cc1 at001c = ╱69╱i╱ // 0x1c9d @0x1c
0x1c81…1cc1 at001d = ╱66╱f╱ // 0x1c9e @0x1d
0x1c81…1cc1 at001e = ╱74╱t╱ // 0x1c9f @0x1e
0x1c81…1cc1 at001f = ╱22╱"╱ // 0x1ca0 @0x1f
0x1c81…1cc1 at0020 = ╱ea╱ ; ╱ // 0x1ca1 @0x20
0x1c81…1cc1 at0021 = ╱d2╱ TAB ╱ // 0x1ca2 @0x21
0x1c81…1cc1 at0022 = ╱ed╱ ( ╱ // 0x1ca3 @0x22
0x1c81…1cc1 at0023 = ╱35╱5╱ // 0x1ca4 @0x23
0x1c81…1cc1 at0024 = ╱33╱3╱ // 0x1ca5 @0x24
0x1c81…1cc1 at0025 = ╱f23500╱ // 0x1ca6 @0x25
0x1c81…1cc1 at0028 = ╱ee╱ ) ╱ // 0x1ca9 @0x28
0x1c81…1cc1 at0029 = ╱ea╱ ; ╱ // 0x1caa @0x29
0x1c81…1cc1 at002a = ╱d0╱ CHR$ ╱ // 0x1cab @0x2a
0x1c81…1cc1 at002b = ╱ed╱ ( ╱ // 0x1cac @0x2b
0x1c81…1cc1 at002c = ╱52╱R╱ // 0x1cad @0x2c
0x1c81…1cc1 at002d = ╱45╱E╱ // 0x1cae @0x2d
0x1c81…1cc1 at002e = ╱53╱S╱ // 0x1caf @0x2e
0x1c81…1cc1 at002f = ╱55╱U╱ // 0x1cb0 @0x2f
0x1c81…1cc1 at0030 = ╱4c╱L╱ // 0x1cb1 @0x30
0x1c81…1cc1 at0031 = ╱54╱T╱ // 0x1cb2 @0x31
0x1c81…1cc1 at0032 = ╱41╱A╱ // 0x1cb3 @0x32
0x1c81…1cc1 at0033 = ╱54╱T╱ // 0x1cb4 @0x33
0x1c81…1cc1 at0034 = ╱ec╱ , ╱ // 0x1cb5 @0x34
0x1c81…1cc1 at0035 = ╱39╱9╱ // 0x1cb6 @0x35
0x1c81…1cc1 at0036 = ╱f20900╱ // 0x1cb7 @0x36
0x1c81…1cc1 at0039 = ╱ec╱ , ╱ // 0x1cba @0x39
0x1c81…1cc1 at003a = ╱32╱2╱ // 0x1cbb @0x3a
0x1c81…1cc1 at003b = ╱f20200╱ // 0x1cbc @0x3b
0x1c81…1cc1 at003e = ╱ee╱ ) ╱ // 0x1cbf @0x3e
0x1c81…1cc1 at003f = EOL // 0x1cc0 @0x3f
0x1c81…1cc1 }
0x1cc1…1cde b2cc 02550 PRINT TAB ( 53 ) ; "============"
0x1cc1…1cde LineComal80 {
0x1cc1…1cde ptr = 0xb2cc // 0x1cc1 @0x0
0x1cc1…1cde lno = 0x09f6 // 0x1cc3 @0x2
0x1cc1…1cde at0004 = ╱92╱ PRINT ╱ // 0x1cc5 @0x4
0x1cc1…1cde at0005 = ╱d2╱ TAB ╱ // 0x1cc6 @0x5
0x1cc1…1cde at0006 = ╱ed╱ ( ╱ // 0x1cc7 @0x6
0x1cc1…1cde at0007 = ╱35╱5╱ // 0x1cc8 @0x7
0x1cc1…1cde at0008 = ╱33╱3╱ // 0x1cc9 @0x8
0x1cc1…1cde at0009 = ╱f23500╱ // 0x1cca @0x9
0x1cc1…1cde at000c = ╱ee╱ ) ╱ // 0x1ccd @0xc
0x1cc1…1cde at000d = ╱ea╱ ; ╱ // 0x1cce @0xd
0x1cc1…1cde at000e = ╱22╱"╱ // 0x1ccf @0xe
0x1cc1…1cde at000f = ╱3d╱=╱ // 0x1cd0 @0xf
0x1cc1…1cde at0010 = ╱3d╱=╱ // 0x1cd1 @0x10
0x1cc1…1cde at0011 = ╱3d╱=╱ // 0x1cd2 @0x11
0x1cc1…1cde at0012 = ╱3d╱=╱ // 0x1cd3 @0x12
0x1cc1…1cde at0013 = ╱3d╱=╱ // 0x1cd4 @0x13
0x1cc1…1cde at0014 = ╱3d╱=╱ // 0x1cd5 @0x14
0x1cc1…1cde at0015 = ╱3d╱=╱ // 0x1cd6 @0x15
0x1cc1…1cde at0016 = ╱3d╱=╱ // 0x1cd7 @0x16
0x1cc1…1cde at0017 = ╱3d╱=╱ // 0x1cd8 @0x17
0x1cc1…1cde at0018 = ╱3d╱=╱ // 0x1cd9 @0x18
0x1cc1…1cde at0019 = ╱3d╱=╱ // 0x1cda @0x19
0x1cc1…1cde at001a = ╱3d╱=╱ // 0x1cdb @0x1a
0x1cc1…1cde at001b = ╱22╱"╱ // 0x1cdc @0x1b
0x1cc1…1cde at001c = EOL // 0x1cdd @0x1c
0x1cc1…1cde }
0x1cde…1ce4 b2d2 02560 PRINT
0x1cde…1ce4 LineComal80 {
0x1cde…1ce4 ptr = 0xb2d2 // 0x1cde @0x0
0x1cde…1ce4 lno = 0x0a00 // 0x1ce0 @0x2
0x1cde…1ce4 at0004 = ╱92╱ PRINT ╱ // 0x1ce2 @0x4
0x1cde…1ce4 at0005 = EOL // 0x1ce3 @0x5
0x1cde…1ce4 }
0x1ce4…1cea b2d8 02570 PRINT
0x1ce4…1cea LineComal80 {
0x1ce4…1cea ptr = 0xb2d8 // 0x1ce4 @0x0
0x1ce4…1cea lno = 0x0a0a // 0x1ce6 @0x2
0x1ce4…1cea at0004 = ╱92╱ PRINT ╱ // 0x1ce8 @0x4
0x1ce4…1cea at0005 = EOL // 0x1ce9 @0x5
0x1ce4…1cea }
0x1cea…1cf0 b2de 02580 PRINT
0x1cea…1cf0 LineComal80 {
0x1cea…1cf0 ptr = 0xb2de // 0x1cea @0x0
0x1cea…1cf0 lno = 0x0a14 // 0x1cec @0x2
0x1cea…1cf0 at0004 = ╱92╱ PRINT ╱ // 0x1cee @0x4
0x1cea…1cf0 at0005 = EOL // 0x1cef @0x5
0x1cea…1cf0 }
0x1cf0…1d19 b307 02590 PRINT "****…R…E…N…T…A…B…I…L…I…T…E…T…****"
0x1cf0…1d19 LineComal80 {
0x1cf0…1d19 ptr = 0xb307 // 0x1cf0 @0x0
0x1cf0…1d19 lno = 0x0a1e // 0x1cf2 @0x2
0x1cf0…1d19 at0004 = ╱92╱ PRINT ╱ // 0x1cf4 @0x4
0x1cf0…1d19 at0005 = ╱22╱"╱ // 0x1cf5 @0x5
0x1cf0…1d19 at0006 = ╱2a╱*╱ // 0x1cf6 @0x6
0x1cf0…1d19 at0007 = ╱2a╱*╱ // 0x1cf7 @0x7
0x1cf0…1d19 at0008 = ╱2a╱*╱ // 0x1cf8 @0x8
0x1cf0…1d19 at0009 = ╱2a╱*╱ // 0x1cf9 @0x9
0x1cf0…1d19 at000a = ╱20╱…╱ // 0x1cfa @0xa
0x1cf0…1d19 at000b = ╱52╱R╱ // 0x1cfb @0xb
0x1cf0…1d19 at000c = ╱20╱…╱ // 0x1cfc @0xc
0x1cf0…1d19 at000d = ╱45╱E╱ // 0x1cfd @0xd
0x1cf0…1d19 at000e = ╱20╱…╱ // 0x1cfe @0xe
0x1cf0…1d19 at000f = ╱4e╱N╱ // 0x1cff @0xf
0x1cf0…1d19 at0010 = ╱20╱…╱ // 0x1d00 @0x10
0x1cf0…1d19 at0011 = ╱54╱T╱ // 0x1d01 @0x11
0x1cf0…1d19 at0012 = ╱20╱…╱ // 0x1d02 @0x12
0x1cf0…1d19 at0013 = ╱41╱A╱ // 0x1d03 @0x13
0x1cf0…1d19 at0014 = ╱20╱…╱ // 0x1d04 @0x14
0x1cf0…1d19 at0015 = ╱42╱B╱ // 0x1d05 @0x15
0x1cf0…1d19 at0016 = ╱20╱…╱ // 0x1d06 @0x16
0x1cf0…1d19 at0017 = ╱49╱I╱ // 0x1d07 @0x17
0x1cf0…1d19 at0018 = ╱20╱…╱ // 0x1d08 @0x18
0x1cf0…1d19 at0019 = ╱4c╱L╱ // 0x1d09 @0x19
0x1cf0…1d19 at001a = ╱20╱…╱ // 0x1d0a @0x1a
0x1cf0…1d19 at001b = ╱49╱I╱ // 0x1d0b @0x1b
0x1cf0…1d19 at001c = ╱20╱…╱ // 0x1d0c @0x1c
0x1cf0…1d19 at001d = ╱54╱T╱ // 0x1d0d @0x1d
0x1cf0…1d19 at001e = ╱20╱…╱ // 0x1d0e @0x1e
0x1cf0…1d19 at001f = ╱45╱E╱ // 0x1d0f @0x1f
0x1cf0…1d19 at0020 = ╱20╱…╱ // 0x1d10 @0x20
0x1cf0…1d19 at0021 = ╱54╱T╱ // 0x1d11 @0x21
0x1cf0…1d19 at0022 = ╱20╱…╱ // 0x1d12 @0x22
0x1cf0…1d19 at0023 = ╱2a╱*╱ // 0x1d13 @0x23
0x1cf0…1d19 at0024 = ╱2a╱*╱ // 0x1d14 @0x24
0x1cf0…1d19 at0025 = ╱2a╱*╱ // 0x1d15 @0x25
0x1cf0…1d19 at0026 = ╱2a╱*╱ // 0x1d16 @0x26
0x1cf0…1d19 at0027 = ╱22╱"╱ // 0x1d17 @0x27
0x1cf0…1d19 at0028 = EOL // 0x1d18 @0x28
0x1cf0…1d19 }
0x1d19…1d42 b330 02600 PRINT "---------------------------------"
0x1d19…1d42 LineComal80 {
0x1d19…1d42 ptr = 0xb330 // 0x1d19 @0x0
0x1d19…1d42 lno = 0x0a28 // 0x1d1b @0x2
0x1d19…1d42 at0004 = ╱92╱ PRINT ╱ // 0x1d1d @0x4
0x1d19…1d42 at0005 = ╱22╱"╱ // 0x1d1e @0x5
0x1d19…1d42 at0006 = ╱2d╱-╱ // 0x1d1f @0x6
0x1d19…1d42 at0007 = ╱2d╱-╱ // 0x1d20 @0x7
0x1d19…1d42 at0008 = ╱2d╱-╱ // 0x1d21 @0x8
0x1d19…1d42 at0009 = ╱2d╱-╱ // 0x1d22 @0x9
0x1d19…1d42 at000a = ╱2d╱-╱ // 0x1d23 @0xa
0x1d19…1d42 at000b = ╱2d╱-╱ // 0x1d24 @0xb
0x1d19…1d42 at000c = ╱2d╱-╱ // 0x1d25 @0xc
0x1d19…1d42 at000d = ╱2d╱-╱ // 0x1d26 @0xd
0x1d19…1d42 at000e = ╱2d╱-╱ // 0x1d27 @0xe
0x1d19…1d42 at000f = ╱2d╱-╱ // 0x1d28 @0xf
0x1d19…1d42 at0010 = ╱2d╱-╱ // 0x1d29 @0x10
0x1d19…1d42 at0011 = ╱2d╱-╱ // 0x1d2a @0x11
0x1d19…1d42 at0012 = ╱2d╱-╱ // 0x1d2b @0x12
0x1d19…1d42 at0013 = ╱2d╱-╱ // 0x1d2c @0x13
0x1d19…1d42 at0014 = ╱2d╱-╱ // 0x1d2d @0x14
0x1d19…1d42 at0015 = ╱2d╱-╱ // 0x1d2e @0x15
0x1d19…1d42 at0016 = ╱2d╱-╱ // 0x1d2f @0x16
0x1d19…1d42 at0017 = ╱2d╱-╱ // 0x1d30 @0x17
0x1d19…1d42 at0018 = ╱2d╱-╱ // 0x1d31 @0x18
0x1d19…1d42 at0019 = ╱2d╱-╱ // 0x1d32 @0x19
0x1d19…1d42 at001a = ╱2d╱-╱ // 0x1d33 @0x1a
0x1d19…1d42 at001b = ╱2d╱-╱ // 0x1d34 @0x1b
0x1d19…1d42 at001c = ╱2d╱-╱ // 0x1d35 @0x1c
0x1d19…1d42 at001d = ╱2d╱-╱ // 0x1d36 @0x1d
0x1d19…1d42 at001e = ╱2d╱-╱ // 0x1d37 @0x1e
0x1d19…1d42 at001f = ╱2d╱-╱ // 0x1d38 @0x1f
0x1d19…1d42 at0020 = ╱2d╱-╱ // 0x1d39 @0x20
0x1d19…1d42 at0021 = ╱2d╱-╱ // 0x1d3a @0x21
0x1d19…1d42 at0022 = ╱2d╱-╱ // 0x1d3b @0x22
0x1d19…1d42 at0023 = ╱2d╱-╱ // 0x1d3c @0x23
0x1d19…1d42 at0024 = ╱2d╱-╱ // 0x1d3d @0x24
0x1d19…1d42 at0025 = ╱2d╱-╱ // 0x1d3e @0x25
0x1d19…1d42 at0026 = ╱2d╱-╱ // 0x1d3f @0x26
0x1d19…1d42 at0027 = ╱22╱"╱ // 0x1d40 @0x27
0x1d19…1d42 at0028 = EOL // 0x1d41 @0x28
0x1d19…1d42 }
0x1d42…1d48 b336 02610 PRINT
0x1d42…1d48 LineComal80 {
0x1d42…1d48 ptr = 0xb336 // 0x1d42 @0x0
0x1d42…1d48 lno = 0x0a32 // 0x1d44 @0x2
0x1d42…1d48 at0004 = ╱92╱ PRINT ╱ // 0x1d46 @0x4
0x1d42…1d48 at0005 = EOL // 0x1d47 @0x5
0x1d42…1d48 }
0x1d48…1d7c b36a 02620 PRINT "…(1)…Afkastningsgrad…………………………………………………………:" ;
0x1d48…1d7c LineComal80 {
0x1d48…1d7c ptr = 0xb36a // 0x1d48 @0x0
0x1d48…1d7c lno = 0x0a3c // 0x1d4a @0x2
0x1d48…1d7c at0004 = ╱92╱ PRINT ╱ // 0x1d4c @0x4
0x1d48…1d7c at0005 = ╱22╱"╱ // 0x1d4d @0x5
0x1d48…1d7c at0006 = ╱20╱…╱ // 0x1d4e @0x6
0x1d48…1d7c at0007 = ╱28╱(╱ // 0x1d4f @0x7
0x1d48…1d7c at0008 = ╱31╱1╱ // 0x1d50 @0x8
0x1d48…1d7c at0009 = ╱29╱)╱ // 0x1d51 @0x9
0x1d48…1d7c at000a = ╱20╱…╱ // 0x1d52 @0xa
0x1d48…1d7c at000b = ╱41╱A╱ // 0x1d53 @0xb
0x1d48…1d7c at000c = ╱66╱f╱ // 0x1d54 @0xc
0x1d48…1d7c at000d = ╱6b╱k╱ // 0x1d55 @0xd
0x1d48…1d7c at000e = ╱61╱a╱ // 0x1d56 @0xe
0x1d48…1d7c at000f = ╱73╱s╱ // 0x1d57 @0xf
0x1d48…1d7c at0010 = ╱74╱t╱ // 0x1d58 @0x10
0x1d48…1d7c at0011 = ╱6e╱n╱ // 0x1d59 @0x11
0x1d48…1d7c at0012 = ╱69╱i╱ // 0x1d5a @0x12
0x1d48…1d7c at0013 = ╱6e╱n╱ // 0x1d5b @0x13
0x1d48…1d7c at0014 = ╱67╱g╱ // 0x1d5c @0x14
0x1d48…1d7c at0015 = ╱73╱s╱ // 0x1d5d @0x15
0x1d48…1d7c at0016 = ╱67╱g╱ // 0x1d5e @0x16
0x1d48…1d7c at0017 = ╱72╱r╱ // 0x1d5f @0x17
0x1d48…1d7c at0018 = ╱61╱a╱ // 0x1d60 @0x18
0x1d48…1d7c at0019 = ╱64╱d╱ // 0x1d61 @0x19
0x1d48…1d7c at001a = ╱20╱…╱ // 0x1d62 @0x1a
0x1d48…1d7c at001b = ╱20╱…╱ // 0x1d63 @0x1b
0x1d48…1d7c at001c = ╱20╱…╱ // 0x1d64 @0x1c
0x1d48…1d7c at001d = ╱20╱…╱ // 0x1d65 @0x1d
0x1d48…1d7c at001e = ╱20╱…╱ // 0x1d66 @0x1e
0x1d48…1d7c at001f = ╱20╱…╱ // 0x1d67 @0x1f
0x1d48…1d7c at0020 = ╱20╱…╱ // 0x1d68 @0x20
0x1d48…1d7c at0021 = ╱20╱…╱ // 0x1d69 @0x21
0x1d48…1d7c at0022 = ╱20╱…╱ // 0x1d6a @0x22
0x1d48…1d7c at0023 = ╱20╱…╱ // 0x1d6b @0x23
0x1d48…1d7c at0024 = ╱20╱…╱ // 0x1d6c @0x24
0x1d48…1d7c at0025 = ╱20╱…╱ // 0x1d6d @0x25
0x1d48…1d7c at0026 = ╱20╱…╱ // 0x1d6e @0x26
0x1d48…1d7c at0027 = ╱20╱…╱ // 0x1d6f @0x27
0x1d48…1d7c at0028 = ╱20╱…╱ // 0x1d70 @0x28
0x1d48…1d7c at0029 = ╱20╱…╱ // 0x1d71 @0x29
0x1d48…1d7c at002a = ╱20╱…╱ // 0x1d72 @0x2a
0x1d48…1d7c at002b = ╱20╱…╱ // 0x1d73 @0x2b
0x1d48…1d7c at002c = ╱20╱…╱ // 0x1d74 @0x2c
0x1d48…1d7c at002d = ╱20╱…╱ // 0x1d75 @0x2d
0x1d48…1d7c at002e = ╱20╱…╱ // 0x1d76 @0x2e
0x1d48…1d7c at002f = ╱20╱…╱ // 0x1d77 @0x2f
0x1d48…1d7c at0030 = ╱3a╱:╱ // 0x1d78 @0x30
0x1d48…1d7c at0031 = ╱22╱"╱ // 0x1d79 @0x31
0x1d48…1d7c at0032 = ╱ea╱ ; ╱ // 0x1d7a @0x32
0x1d48…1d7c at0033 = EOL // 0x1d7b @0x33
0x1d48…1d7c }
0x1d7c…1dab b399 02630 PRINT USING "###.##…%" : ( RES_F_R + L_I ) * 100 / S_AKTIVE
0x1d7c…1dab LineComal80 {
0x1d7c…1dab ptr = 0xb399 // 0x1d7c @0x0
0x1d7c…1dab lno = 0x0a46 // 0x1d7e @0x2
0x1d7c…1dab at0004 = ╱92╱ PRINT ╱ // 0x1d80 @0x4
0x1d7c…1dab at0005 = ╱b9╱ USING ╱ // 0x1d81 @0x5
0x1d7c…1dab at0006 = ╱22╱"╱ // 0x1d82 @0x6
0x1d7c…1dab at0007 = ╱23╱#╱ // 0x1d83 @0x7
0x1d7c…1dab at0008 = ╱23╱#╱ // 0x1d84 @0x8
0x1d7c…1dab at0009 = ╱23╱#╱ // 0x1d85 @0x9
0x1d7c…1dab at000a = ╱2e╱.╱ // 0x1d86 @0xa
0x1d7c…1dab at000b = ╱23╱#╱ // 0x1d87 @0xb
0x1d7c…1dab at000c = ╱23╱#╱ // 0x1d88 @0xc
0x1d7c…1dab at000d = ╱20╱…╱ // 0x1d89 @0xd
0x1d7c…1dab at000e = ╱25╱%╱ // 0x1d8a @0xe
0x1d7c…1dab at000f = ╱22╱"╱ // 0x1d8b @0xf
0x1d7c…1dab at0010 = ╱f1╱ : ╱ // 0x1d8c @0x10
0x1d7c…1dab at0011 = ╱ed╱ ( ╱ // 0x1d8d @0x11
0x1d7c…1dab at0012 = ╱52╱R╱ // 0x1d8e @0x12
0x1d7c…1dab at0013 = ╱45╱E╱ // 0x1d8f @0x13
0x1d7c…1dab at0014 = ╱53╱S╱ // 0x1d90 @0x14
0x1d7c…1dab at0015 = ╱5f╱_╱ // 0x1d91 @0x15
0x1d7c…1dab at0016 = ╱46╱F╱ // 0x1d92 @0x16
0x1d7c…1dab at0017 = ╱5f╱_╱ // 0x1d93 @0x17
0x1d7c…1dab at0018 = ╱52╱R╱ // 0x1d94 @0x18
0x1d7c…1dab at0019 = ╱e5╱ + ╱ // 0x1d95 @0x19
0x1d7c…1dab at001a = ╱4c╱L╱ // 0x1d96 @0x1a
0x1d7c…1dab at001b = ╱5f╱_╱ // 0x1d97 @0x1b
0x1d7c…1dab at001c = ╱49╱I╱ // 0x1d98 @0x1c
0x1d7c…1dab at001d = ╱ee╱ ) ╱ // 0x1d99 @0x1d
0x1d7c…1dab at001e = ╱e7╱ * ╱ // 0x1d9a @0x1e
0x1d7c…1dab at001f = ╱31╱1╱ // 0x1d9b @0x1f
0x1d7c…1dab at0020 = ╱30╱0╱ // 0x1d9c @0x20
0x1d7c…1dab at0021 = ╱30╱0╱ // 0x1d9d @0x21
0x1d7c…1dab at0022 = ╱f26400╱ // 0x1d9e @0x22
0x1d7c…1dab at0025 = ╱e8╱ / ╱ // 0x1da1 @0x25
0x1d7c…1dab at0026 = ╱53╱S╱ // 0x1da2 @0x26
0x1d7c…1dab at0027 = ╱5f╱_╱ // 0x1da3 @0x27
0x1d7c…1dab at0028 = ╱41╱A╱ // 0x1da4 @0x28
0x1d7c…1dab at0029 = ╱4b╱K╱ // 0x1da5 @0x29
0x1d7c…1dab at002a = ╱54╱T╱ // 0x1da6 @0x2a
0x1d7c…1dab at002b = ╱49╱I╱ // 0x1da7 @0x2b
0x1d7c…1dab at002c = ╱56╱V╱ // 0x1da8 @0x2c
0x1d7c…1dab at002d = ╱45╱E╱ // 0x1da9 @0x2d
0x1d7c…1dab at002e = EOL // 0x1daa @0x2e
0x1d7c…1dab }
0x1dab…1db1 b39f 02640 PRINT
0x1dab…1db1 LineComal80 {
0x1dab…1db1 ptr = 0xb39f // 0x1dab @0x0
0x1dab…1db1 lno = 0x0a50 // 0x1dad @0x2
0x1dab…1db1 at0004 = ╱92╱ PRINT ╱ // 0x1daf @0x4
0x1dab…1db1 at0005 = EOL // 0x1db0 @0x5
0x1dab…1db1 }
0x1db1…1de5 b3d3 02650 PRINT "…(2)…Overskudsgrad………………………………………………………………:" ;
0x1db1…1de5 LineComal80 {
0x1db1…1de5 ptr = 0xb3d3 // 0x1db1 @0x0
0x1db1…1de5 lno = 0x0a5a // 0x1db3 @0x2
0x1db1…1de5 at0004 = ╱92╱ PRINT ╱ // 0x1db5 @0x4
0x1db1…1de5 at0005 = ╱22╱"╱ // 0x1db6 @0x5
0x1db1…1de5 at0006 = ╱20╱…╱ // 0x1db7 @0x6
0x1db1…1de5 at0007 = ╱28╱(╱ // 0x1db8 @0x7
0x1db1…1de5 at0008 = ╱32╱2╱ // 0x1db9 @0x8
0x1db1…1de5 at0009 = ╱29╱)╱ // 0x1dba @0x9
0x1db1…1de5 at000a = ╱20╱…╱ // 0x1dbb @0xa
0x1db1…1de5 at000b = ╱4f╱O╱ // 0x1dbc @0xb
0x1db1…1de5 at000c = ╱76╱v╱ // 0x1dbd @0xc
0x1db1…1de5 at000d = ╱65╱e╱ // 0x1dbe @0xd
0x1db1…1de5 at000e = ╱72╱r╱ // 0x1dbf @0xe
0x1db1…1de5 at000f = ╱73╱s╱ // 0x1dc0 @0xf
0x1db1…1de5 at0010 = ╱6b╱k╱ // 0x1dc1 @0x10
0x1db1…1de5 at0011 = ╱75╱u╱ // 0x1dc2 @0x11
0x1db1…1de5 at0012 = ╱64╱d╱ // 0x1dc3 @0x12
0x1db1…1de5 at0013 = ╱73╱s╱ // 0x1dc4 @0x13
0x1db1…1de5 at0014 = ╱67╱g╱ // 0x1dc5 @0x14
0x1db1…1de5 at0015 = ╱72╱r╱ // 0x1dc6 @0x15
0x1db1…1de5 at0016 = ╱61╱a╱ // 0x1dc7 @0x16
0x1db1…1de5 at0017 = ╱64╱d╱ // 0x1dc8 @0x17
0x1db1…1de5 at0018 = ╱20╱…╱ // 0x1dc9 @0x18
0x1db1…1de5 at0019 = ╱20╱…╱ // 0x1dca @0x19
0x1db1…1de5 at001a = ╱20╱…╱ // 0x1dcb @0x1a
0x1db1…1de5 at001b = ╱20╱…╱ // 0x1dcc @0x1b
0x1db1…1de5 at001c = ╱20╱…╱ // 0x1dcd @0x1c
0x1db1…1de5 at001d = ╱20╱…╱ // 0x1dce @0x1d
0x1db1…1de5 at001e = ╱20╱…╱ // 0x1dcf @0x1e
0x1db1…1de5 at001f = ╱20╱…╱ // 0x1dd0 @0x1f
0x1db1…1de5 at0020 = ╱20╱…╱ // 0x1dd1 @0x20
0x1db1…1de5 at0021 = ╱20╱…╱ // 0x1dd2 @0x21
0x1db1…1de5 at0022 = ╱20╱…╱ // 0x1dd3 @0x22
0x1db1…1de5 at0023 = ╱20╱…╱ // 0x1dd4 @0x23
0x1db1…1de5 at0024 = ╱20╱…╱ // 0x1dd5 @0x24
0x1db1…1de5 at0025 = ╱20╱…╱ // 0x1dd6 @0x25
0x1db1…1de5 at0026 = ╱20╱…╱ // 0x1dd7 @0x26
0x1db1…1de5 at0027 = ╱20╱…╱ // 0x1dd8 @0x27
0x1db1…1de5 at0028 = ╱20╱…╱ // 0x1dd9 @0x28
0x1db1…1de5 at0029 = ╱20╱…╱ // 0x1dda @0x29
0x1db1…1de5 at002a = ╱20╱…╱ // 0x1ddb @0x2a
0x1db1…1de5 at002b = ╱20╱…╱ // 0x1ddc @0x2b
0x1db1…1de5 at002c = ╱20╱…╱ // 0x1ddd @0x2c
0x1db1…1de5 at002d = ╱20╱…╱ // 0x1dde @0x2d
0x1db1…1de5 at002e = ╱20╱…╱ // 0x1ddf @0x2e
0x1db1…1de5 at002f = ╱20╱…╱ // 0x1de0 @0x2f
0x1db1…1de5 at0030 = ╱3a╱:╱ // 0x1de1 @0x30
0x1db1…1de5 at0031 = ╱22╱"╱ // 0x1de2 @0x31
0x1db1…1de5 at0032 = ╱ea╱ ; ╱ // 0x1de3 @0x32
0x1db1…1de5 at0033 = EOL // 0x1de4 @0x33
0x1db1…1de5 }
0x1de5…1e14 b402 02660 PRINT USING "###.##…%" : ( RES_F_R + L_I ) * 100 / S_OMS[TN
0x1de5…1e14 LineComal80 {
0x1de5…1e14 ptr = 0xb402 // 0x1de5 @0x0
0x1de5…1e14 lno = 0x0a64 // 0x1de7 @0x2
0x1de5…1e14 at0004 = ╱92╱ PRINT ╱ // 0x1de9 @0x4
0x1de5…1e14 at0005 = ╱b9╱ USING ╱ // 0x1dea @0x5
0x1de5…1e14 at0006 = ╱22╱"╱ // 0x1deb @0x6
0x1de5…1e14 at0007 = ╱23╱#╱ // 0x1dec @0x7
0x1de5…1e14 at0008 = ╱23╱#╱ // 0x1ded @0x8
0x1de5…1e14 at0009 = ╱23╱#╱ // 0x1dee @0x9
0x1de5…1e14 at000a = ╱2e╱.╱ // 0x1def @0xa
0x1de5…1e14 at000b = ╱23╱#╱ // 0x1df0 @0xb
0x1de5…1e14 at000c = ╱23╱#╱ // 0x1df1 @0xc
0x1de5…1e14 at000d = ╱20╱…╱ // 0x1df2 @0xd
0x1de5…1e14 at000e = ╱25╱%╱ // 0x1df3 @0xe
0x1de5…1e14 at000f = ╱22╱"╱ // 0x1df4 @0xf
0x1de5…1e14 at0010 = ╱f1╱ : ╱ // 0x1df5 @0x10
0x1de5…1e14 at0011 = ╱ed╱ ( ╱ // 0x1df6 @0x11
0x1de5…1e14 at0012 = ╱52╱R╱ // 0x1df7 @0x12
0x1de5…1e14 at0013 = ╱45╱E╱ // 0x1df8 @0x13
0x1de5…1e14 at0014 = ╱53╱S╱ // 0x1df9 @0x14
0x1de5…1e14 at0015 = ╱5f╱_╱ // 0x1dfa @0x15
0x1de5…1e14 at0016 = ╱46╱F╱ // 0x1dfb @0x16
0x1de5…1e14 at0017 = ╱5f╱_╱ // 0x1dfc @0x17
0x1de5…1e14 at0018 = ╱52╱R╱ // 0x1dfd @0x18
0x1de5…1e14 at0019 = ╱e5╱ + ╱ // 0x1dfe @0x19
0x1de5…1e14 at001a = ╱4c╱L╱ // 0x1dff @0x1a
0x1de5…1e14 at001b = ╱5f╱_╱ // 0x1e00 @0x1b
0x1de5…1e14 at001c = ╱49╱I╱ // 0x1e01 @0x1c
0x1de5…1e14 at001d = ╱ee╱ ) ╱ // 0x1e02 @0x1d
0x1de5…1e14 at001e = ╱e7╱ * ╱ // 0x1e03 @0x1e
0x1de5…1e14 at001f = ╱31╱1╱ // 0x1e04 @0x1f
0x1de5…1e14 at0020 = ╱30╱0╱ // 0x1e05 @0x20
0x1de5…1e14 at0021 = ╱30╱0╱ // 0x1e06 @0x21
0x1de5…1e14 at0022 = ╱f26400╱ // 0x1e07 @0x22
0x1de5…1e14 at0025 = ╱e8╱ / ╱ // 0x1e0a @0x25
0x1de5…1e14 at0026 = ╱53╱S╱ // 0x1e0b @0x26
0x1de5…1e14 at0027 = ╱5f╱_╱ // 0x1e0c @0x27
0x1de5…1e14 at0028 = ╱4f╱O╱ // 0x1e0d @0x28
0x1de5…1e14 at0029 = ╱4d╱M╱ // 0x1e0e @0x29
0x1de5…1e14 at002a = ╱53╱S╱ // 0x1e0f @0x2a
0x1de5…1e14 at002b = ╱5b╱[╱ // 0x1e10 @0x2b
0x1de5…1e14 at002c = ╱54╱T╱ // 0x1e11 @0x2c
0x1de5…1e14 at002d = ╱4e╱N╱ // 0x1e12 @0x2d
0x1de5…1e14 at002e = EOL // 0x1e13 @0x2e
0x1de5…1e14 }
0x1e14…1e1a (100,) b408 02670 PRINT
0x1e14…1e1a LineComal80 {
0x1e14…1e1a ptr = 0xb408 // 0x1e14 @0x0
0x1e14…1e1a lno = 0x0a6e // 0x1e16 @0x2
0x1e14…1e1a at0004 = ╱92╱ PRINT ╱ // 0x1e18 @0x4
0x1e14…1e1a at0005 = EOL // 0x1e19 @0x5
0x1e14…1e1a }
0x1e1a…1e4e b43c 02680 PRINT "…(3)…Aktivernes…oms{tningshastighed…………………:" ;
0x1e1a…1e4e LineComal80 {
0x1e1a…1e4e ptr = 0xb43c // 0x1e1a @0x0
0x1e1a…1e4e lno = 0x0a78 // 0x1e1c @0x2
0x1e1a…1e4e at0004 = ╱92╱ PRINT ╱ // 0x1e1e @0x4
0x1e1a…1e4e at0005 = ╱22╱"╱ // 0x1e1f @0x5
0x1e1a…1e4e at0006 = ╱20╱…╱ // 0x1e20 @0x6
0x1e1a…1e4e at0007 = ╱28╱(╱ // 0x1e21 @0x7
0x1e1a…1e4e at0008 = ╱33╱3╱ // 0x1e22 @0x8
0x1e1a…1e4e at0009 = ╱29╱)╱ // 0x1e23 @0x9
0x1e1a…1e4e at000a = ╱20╱…╱ // 0x1e24 @0xa
0x1e1a…1e4e at000b = ╱41╱A╱ // 0x1e25 @0xb
0x1e1a…1e4e at000c = ╱6b╱k╱ // 0x1e26 @0xc
0x1e1a…1e4e at000d = ╱74╱t╱ // 0x1e27 @0xd
0x1e1a…1e4e at000e = ╱69╱i╱ // 0x1e28 @0xe
0x1e1a…1e4e at000f = ╱76╱v╱ // 0x1e29 @0xf
0x1e1a…1e4e at0010 = ╱65╱e╱ // 0x1e2a @0x10
0x1e1a…1e4e at0011 = ╱72╱r╱ // 0x1e2b @0x11
0x1e1a…1e4e at0012 = ╱6e╱n╱ // 0x1e2c @0x12
0x1e1a…1e4e at0013 = ╱65╱e╱ // 0x1e2d @0x13
0x1e1a…1e4e at0014 = ╱73╱s╱ // 0x1e2e @0x14
0x1e1a…1e4e at0015 = ╱20╱…╱ // 0x1e2f @0x15
0x1e1a…1e4e at0016 = ╱6f╱o╱ // 0x1e30 @0x16
0x1e1a…1e4e at0017 = ╱6d╱m╱ // 0x1e31 @0x17
0x1e1a…1e4e at0018 = ╱73╱s╱ // 0x1e32 @0x18
0x1e1a…1e4e at0019 = ╱7b╱{╱ // 0x1e33 @0x19
0x1e1a…1e4e at001a = ╱74╱t╱ // 0x1e34 @0x1a
0x1e1a…1e4e at001b = ╱6e╱n╱ // 0x1e35 @0x1b
0x1e1a…1e4e at001c = ╱69╱i╱ // 0x1e36 @0x1c
0x1e1a…1e4e at001d = ╱6e╱n╱ // 0x1e37 @0x1d
0x1e1a…1e4e at001e = ╱67╱g╱ // 0x1e38 @0x1e
0x1e1a…1e4e at001f = ╱73╱s╱ // 0x1e39 @0x1f
0x1e1a…1e4e at0020 = ╱68╱h╱ // 0x1e3a @0x20
0x1e1a…1e4e at0021 = ╱61╱a╱ // 0x1e3b @0x21
0x1e1a…1e4e at0022 = ╱73╱s╱ // 0x1e3c @0x22
0x1e1a…1e4e at0023 = ╱74╱t╱ // 0x1e3d @0x23
0x1e1a…1e4e at0024 = ╱69╱i╱ // 0x1e3e @0x24
0x1e1a…1e4e at0025 = ╱67╱g╱ // 0x1e3f @0x25
0x1e1a…1e4e at0026 = ╱68╱h╱ // 0x1e40 @0x26
0x1e1a…1e4e at0027 = ╱65╱e╱ // 0x1e41 @0x27
0x1e1a…1e4e at0028 = ╱64╱d╱ // 0x1e42 @0x28
0x1e1a…1e4e at0029 = ╱20╱…╱ // 0x1e43 @0x29
0x1e1a…1e4e at002a = ╱20╱…╱ // 0x1e44 @0x2a
0x1e1a…1e4e at002b = ╱20╱…╱ // 0x1e45 @0x2b
0x1e1a…1e4e at002c = ╱20╱…╱ // 0x1e46 @0x2c
0x1e1a…1e4e at002d = ╱20╱…╱ // 0x1e47 @0x2d
0x1e1a…1e4e at002e = ╱20╱…╱ // 0x1e48 @0x2e
0x1e1a…1e4e at002f = ╱20╱…╱ // 0x1e49 @0x2f
0x1e1a…1e4e at0030 = ╱3a╱:╱ // 0x1e4a @0x30
0x1e1a…1e4e at0031 = ╱22╱"╱ // 0x1e4b @0x31
0x1e1a…1e4e at0032 = ╱ea╱ ; ╱ // 0x1e4c @0x32
0x1e1a…1e4e at0033 = EOL // 0x1e4d @0x33
0x1e1a…1e4e }
0x1e4e…1e71 b45f 02690 PRINT USING "###.##…g" : S_OMS[TN / S_AKTIVE
0x1e4e…1e71 LineComal80 {
0x1e4e…1e71 ptr = 0xb45f // 0x1e4e @0x0
0x1e4e…1e71 lno = 0x0a82 // 0x1e50 @0x2
0x1e4e…1e71 at0004 = ╱92╱ PRINT ╱ // 0x1e52 @0x4
0x1e4e…1e71 at0005 = ╱b9╱ USING ╱ // 0x1e53 @0x5
0x1e4e…1e71 at0006 = ╱22╱"╱ // 0x1e54 @0x6
0x1e4e…1e71 at0007 = ╱23╱#╱ // 0x1e55 @0x7
0x1e4e…1e71 at0008 = ╱23╱#╱ // 0x1e56 @0x8
0x1e4e…1e71 at0009 = ╱23╱#╱ // 0x1e57 @0x9
0x1e4e…1e71 at000a = ╱2e╱.╱ // 0x1e58 @0xa
0x1e4e…1e71 at000b = ╱23╱#╱ // 0x1e59 @0xb
0x1e4e…1e71 at000c = ╱23╱#╱ // 0x1e5a @0xc
0x1e4e…1e71 at000d = ╱20╱…╱ // 0x1e5b @0xd
0x1e4e…1e71 at000e = ╱67╱g╱ // 0x1e5c @0xe
0x1e4e…1e71 at000f = ╱22╱"╱ // 0x1e5d @0xf
0x1e4e…1e71 at0010 = ╱f1╱ : ╱ // 0x1e5e @0x10
0x1e4e…1e71 at0011 = ╱53╱S╱ // 0x1e5f @0x11
0x1e4e…1e71 at0012 = ╱5f╱_╱ // 0x1e60 @0x12
0x1e4e…1e71 at0013 = ╱4f╱O╱ // 0x1e61 @0x13
0x1e4e…1e71 at0014 = ╱4d╱M╱ // 0x1e62 @0x14
0x1e4e…1e71 at0015 = ╱53╱S╱ // 0x1e63 @0x15
0x1e4e…1e71 at0016 = ╱5b╱[╱ // 0x1e64 @0x16
0x1e4e…1e71 at0017 = ╱54╱T╱ // 0x1e65 @0x17
0x1e4e…1e71 at0018 = ╱4e╱N╱ // 0x1e66 @0x18
0x1e4e…1e71 at0019 = ╱e8╱ / ╱ // 0x1e67 @0x19
0x1e4e…1e71 at001a = ╱53╱S╱ // 0x1e68 @0x1a
0x1e4e…1e71 at001b = ╱5f╱_╱ // 0x1e69 @0x1b
0x1e4e…1e71 at001c = ╱41╱A╱ // 0x1e6a @0x1c
0x1e4e…1e71 at001d = ╱4b╱K╱ // 0x1e6b @0x1d
0x1e4e…1e71 at001e = ╱54╱T╱ // 0x1e6c @0x1e
0x1e4e…1e71 at001f = ╱49╱I╱ // 0x1e6d @0x1f
0x1e4e…1e71 at0020 = ╱56╱V╱ // 0x1e6e @0x20
0x1e4e…1e71 at0021 = ╱45╱E╱ // 0x1e6f @0x21
0x1e4e…1e71 at0022 = EOL // 0x1e70 @0x22
0x1e4e…1e71 }
0x1e71…1e77 b465 02700 PRINT
0x1e71…1e77 LineComal80 {
0x1e71…1e77 ptr = 0xb465 // 0x1e71 @0x0
0x1e71…1e77 lno = 0x0a8c // 0x1e73 @0x2
0x1e71…1e77 at0004 = ╱92╱ PRINT ╱ // 0x1e75 @0x4
0x1e71…1e77 at0005 = EOL // 0x1e76 @0x5
0x1e71…1e77 }
0x1e77…1eab b499 02710 PRINT "…(4)…Egenkap.…forrentning……………………………………………:" ;
0x1e77…1eab LineComal80 {
0x1e77…1eab ptr = 0xb499 // 0x1e77 @0x0
0x1e77…1eab lno = 0x0a96 // 0x1e79 @0x2
0x1e77…1eab at0004 = ╱92╱ PRINT ╱ // 0x1e7b @0x4
0x1e77…1eab at0005 = ╱22╱"╱ // 0x1e7c @0x5
0x1e77…1eab at0006 = ╱20╱…╱ // 0x1e7d @0x6
0x1e77…1eab at0007 = ╱28╱(╱ // 0x1e7e @0x7
0x1e77…1eab at0008 = ╱34╱4╱ // 0x1e7f @0x8
0x1e77…1eab at0009 = ╱29╱)╱ // 0x1e80 @0x9
0x1e77…1eab at000a = ╱20╱…╱ // 0x1e81 @0xa
0x1e77…1eab at000b = ╱45╱E╱ // 0x1e82 @0xb
0x1e77…1eab at000c = ╱67╱g╱ // 0x1e83 @0xc
0x1e77…1eab at000d = ╱65╱e╱ // 0x1e84 @0xd
0x1e77…1eab at000e = ╱6e╱n╱ // 0x1e85 @0xe
0x1e77…1eab at000f = ╱6b╱k╱ // 0x1e86 @0xf
0x1e77…1eab at0010 = ╱61╱a╱ // 0x1e87 @0x10
0x1e77…1eab at0011 = ╱70╱p╱ // 0x1e88 @0x11
0x1e77…1eab at0012 = ╱2e╱.╱ // 0x1e89 @0x12
0x1e77…1eab at0013 = ╱20╱…╱ // 0x1e8a @0x13
0x1e77…1eab at0014 = ╱66╱f╱ // 0x1e8b @0x14
0x1e77…1eab at0015 = ╱6f╱o╱ // 0x1e8c @0x15
0x1e77…1eab at0016 = ╱72╱r╱ // 0x1e8d @0x16
0x1e77…1eab at0017 = ╱72╱r╱ // 0x1e8e @0x17
0x1e77…1eab at0018 = ╱65╱e╱ // 0x1e8f @0x18
0x1e77…1eab at0019 = ╱6e╱n╱ // 0x1e90 @0x19
0x1e77…1eab at001a = ╱74╱t╱ // 0x1e91 @0x1a
0x1e77…1eab at001b = ╱6e╱n╱ // 0x1e92 @0x1b
0x1e77…1eab at001c = ╱69╱i╱ // 0x1e93 @0x1c
0x1e77…1eab at001d = ╱6e╱n╱ // 0x1e94 @0x1d
0x1e77…1eab at001e = ╱67╱g╱ // 0x1e95 @0x1e
0x1e77…1eab at001f = ╱20╱…╱ // 0x1e96 @0x1f
0x1e77…1eab at0020 = ╱20╱…╱ // 0x1e97 @0x20
0x1e77…1eab at0021 = ╱20╱…╱ // 0x1e98 @0x21
0x1e77…1eab at0022 = ╱20╱…╱ // 0x1e99 @0x22
0x1e77…1eab at0023 = ╱20╱…╱ // 0x1e9a @0x23
0x1e77…1eab at0024 = ╱20╱…╱ // 0x1e9b @0x24
0x1e77…1eab at0025 = ╱20╱…╱ // 0x1e9c @0x25
0x1e77…1eab at0026 = ╱20╱…╱ // 0x1e9d @0x26
0x1e77…1eab at0027 = ╱20╱…╱ // 0x1e9e @0x27
0x1e77…1eab at0028 = ╱20╱…╱ // 0x1e9f @0x28
0x1e77…1eab at0029 = ╱20╱…╱ // 0x1ea0 @0x29
0x1e77…1eab at002a = ╱20╱…╱ // 0x1ea1 @0x2a
0x1e77…1eab at002b = ╱20╱…╱ // 0x1ea2 @0x2b
0x1e77…1eab at002c = ╱20╱…╱ // 0x1ea3 @0x2c
0x1e77…1eab at002d = ╱20╱…╱ // 0x1ea4 @0x2d
0x1e77…1eab at002e = ╱20╱…╱ // 0x1ea5 @0x2e
0x1e77…1eab at002f = ╱20╱…╱ // 0x1ea6 @0x2f
0x1e77…1eab at0030 = ╱3a╱:╱ // 0x1ea7 @0x30
0x1e77…1eab at0031 = ╱22╱"╱ // 0x1ea8 @0x31
0x1e77…1eab at0032 = ╱ea╱ ; ╱ // 0x1ea9 @0x32
0x1e77…1eab at0033 = EOL // 0x1eaa @0x33
0x1e77…1eab }
0x1eab…1edb b4c9 02720 PRINT USING "###.##…%" : ( RESULTAT + L_I ) * 100 / S_EGENKA
0x1eab…1edb LineComal80 {
0x1eab…1edb ptr = 0xb4c9 // 0x1eab @0x0
0x1eab…1edb lno = 0x0aa0 // 0x1ead @0x2
0x1eab…1edb at0004 = ╱92╱ PRINT ╱ // 0x1eaf @0x4
0x1eab…1edb at0005 = ╱b9╱ USING ╱ // 0x1eb0 @0x5
0x1eab…1edb at0006 = ╱22╱"╱ // 0x1eb1 @0x6
0x1eab…1edb at0007 = ╱23╱#╱ // 0x1eb2 @0x7
0x1eab…1edb at0008 = ╱23╱#╱ // 0x1eb3 @0x8
0x1eab…1edb at0009 = ╱23╱#╱ // 0x1eb4 @0x9
0x1eab…1edb at000a = ╱2e╱.╱ // 0x1eb5 @0xa
0x1eab…1edb at000b = ╱23╱#╱ // 0x1eb6 @0xb
0x1eab…1edb at000c = ╱23╱#╱ // 0x1eb7 @0xc
0x1eab…1edb at000d = ╱20╱…╱ // 0x1eb8 @0xd
0x1eab…1edb at000e = ╱25╱%╱ // 0x1eb9 @0xe
0x1eab…1edb at000f = ╱22╱"╱ // 0x1eba @0xf
0x1eab…1edb at0010 = ╱f1╱ : ╱ // 0x1ebb @0x10
0x1eab…1edb at0011 = ╱ed╱ ( ╱ // 0x1ebc @0x11
0x1eab…1edb at0012 = ╱52╱R╱ // 0x1ebd @0x12
0x1eab…1edb at0013 = ╱45╱E╱ // 0x1ebe @0x13
0x1eab…1edb at0014 = ╱53╱S╱ // 0x1ebf @0x14
0x1eab…1edb at0015 = ╱55╱U╱ // 0x1ec0 @0x15
0x1eab…1edb at0016 = ╱4c╱L╱ // 0x1ec1 @0x16
0x1eab…1edb at0017 = ╱54╱T╱ // 0x1ec2 @0x17
0x1eab…1edb at0018 = ╱41╱A╱ // 0x1ec3 @0x18
0x1eab…1edb at0019 = ╱54╱T╱ // 0x1ec4 @0x19
0x1eab…1edb at001a = ╱e5╱ + ╱ // 0x1ec5 @0x1a
0x1eab…1edb at001b = ╱4c╱L╱ // 0x1ec6 @0x1b
0x1eab…1edb at001c = ╱5f╱_╱ // 0x1ec7 @0x1c
0x1eab…1edb at001d = ╱49╱I╱ // 0x1ec8 @0x1d
0x1eab…1edb at001e = ╱ee╱ ) ╱ // 0x1ec9 @0x1e
0x1eab…1edb at001f = ╱e7╱ * ╱ // 0x1eca @0x1f
0x1eab…1edb at0020 = ╱31╱1╱ // 0x1ecb @0x20
0x1eab…1edb at0021 = ╱30╱0╱ // 0x1ecc @0x21
0x1eab…1edb at0022 = ╱30╱0╱ // 0x1ecd @0x22
0x1eab…1edb at0023 = ╱f26400╱ // 0x1ece @0x23
0x1eab…1edb at0026 = ╱e8╱ / ╱ // 0x1ed1 @0x26
0x1eab…1edb at0027 = ╱53╱S╱ // 0x1ed2 @0x27
0x1eab…1edb at0028 = ╱5f╱_╱ // 0x1ed3 @0x28
0x1eab…1edb at0029 = ╱45╱E╱ // 0x1ed4 @0x29
0x1eab…1edb at002a = ╱47╱G╱ // 0x1ed5 @0x2a
0x1eab…1edb at002b = ╱45╱E╱ // 0x1ed6 @0x2b
0x1eab…1edb at002c = ╱4e╱N╱ // 0x1ed7 @0x2c
0x1eab…1edb at002d = ╱4b╱K╱ // 0x1ed8 @0x2d
0x1eab…1edb at002e = ╱41╱A╱ // 0x1ed9 @0x2e
0x1eab…1edb at002f = EOL // 0x1eda @0x2f
0x1eab…1edb }
0x1edb…1ee1 b4cf 02730 PRINT
0x1edb…1ee1 LineComal80 {
0x1edb…1ee1 ptr = 0xb4cf // 0x1edb @0x0
0x1edb…1ee1 lno = 0x0aaa // 0x1edd @0x2
0x1edb…1ee1 at0004 = ╱92╱ PRINT ╱ // 0x1edf @0x4
0x1edb…1ee1 at0005 = EOL // 0x1ee0 @0x5
0x1edb…1ee1 }
0x1ee1…1ee7 b4d5 02740 PRINT
0x1ee1…1ee7 LineComal80 {
0x1ee1…1ee7 ptr = 0xb4d5 // 0x1ee1 @0x0
0x1ee1…1ee7 lno = 0x0ab4 // 0x1ee3 @0x2
0x1ee1…1ee7 at0004 = ╱92╱ PRINT ╱ // 0x1ee5 @0x4
0x1ee1…1ee7 at0005 = EOL // 0x1ee6 @0x5
0x1ee1…1ee7 }
0x1ee7…1f16 b504 02750 PRINT "****…I…N…D…T…J…E…N…I…N…G…S…E…V…N…E…****"
0x1ee7…1f16 LineComal80 {
0x1ee7…1f16 ptr = 0xb504 // 0x1ee7 @0x0
0x1ee7…1f16 lno = 0x0abe // 0x1ee9 @0x2
0x1ee7…1f16 at0004 = ╱92╱ PRINT ╱ // 0x1eeb @0x4
0x1ee7…1f16 at0005 = ╱22╱"╱ // 0x1eec @0x5
0x1ee7…1f16 at0006 = ╱2a╱*╱ // 0x1eed @0x6
0x1ee7…1f16 at0007 = ╱2a╱*╱ // 0x1eee @0x7
0x1ee7…1f16 at0008 = ╱2a╱*╱ // 0x1eef @0x8
0x1ee7…1f16 at0009 = ╱2a╱*╱ // 0x1ef0 @0x9
0x1ee7…1f16 at000a = ╱20╱…╱ // 0x1ef1 @0xa
0x1ee7…1f16 at000b = ╱49╱I╱ // 0x1ef2 @0xb
0x1ee7…1f16 at000c = ╱20╱…╱ // 0x1ef3 @0xc
0x1ee7…1f16 at000d = ╱4e╱N╱ // 0x1ef4 @0xd
0x1ee7…1f16 at000e = ╱20╱…╱ // 0x1ef5 @0xe
0x1ee7…1f16 at000f = ╱44╱D╱ // 0x1ef6 @0xf
0x1ee7…1f16 at0010 = ╱20╱…╱ // 0x1ef7 @0x10
0x1ee7…1f16 at0011 = ╱54╱T╱ // 0x1ef8 @0x11
0x1ee7…1f16 at0012 = ╱20╱…╱ // 0x1ef9 @0x12
0x1ee7…1f16 at0013 = ╱4a╱J╱ // 0x1efa @0x13
0x1ee7…1f16 at0014 = ╱20╱…╱ // 0x1efb @0x14
0x1ee7…1f16 at0015 = ╱45╱E╱ // 0x1efc @0x15
0x1ee7…1f16 at0016 = ╱20╱…╱ // 0x1efd @0x16
0x1ee7…1f16 at0017 = ╱4e╱N╱ // 0x1efe @0x17
0x1ee7…1f16 at0018 = ╱20╱…╱ // 0x1eff @0x18
0x1ee7…1f16 at0019 = ╱49╱I╱ // 0x1f00 @0x19
0x1ee7…1f16 at001a = ╱20╱…╱ // 0x1f01 @0x1a
0x1ee7…1f16 at001b = ╱4e╱N╱ // 0x1f02 @0x1b
0x1ee7…1f16 at001c = ╱20╱…╱ // 0x1f03 @0x1c
0x1ee7…1f16 at001d = ╱47╱G╱ // 0x1f04 @0x1d
0x1ee7…1f16 at001e = ╱20╱…╱ // 0x1f05 @0x1e
0x1ee7…1f16 at001f = ╱53╱S╱ // 0x1f06 @0x1f
0x1ee7…1f16 at0020 = ╱20╱…╱ // 0x1f07 @0x20
0x1ee7…1f16 at0021 = ╱45╱E╱ // 0x1f08 @0x21
0x1ee7…1f16 at0022 = ╱20╱…╱ // 0x1f09 @0x22
0x1ee7…1f16 at0023 = ╱56╱V╱ // 0x1f0a @0x23
0x1ee7…1f16 at0024 = ╱20╱…╱ // 0x1f0b @0x24
0x1ee7…1f16 at0025 = ╱4e╱N╱ // 0x1f0c @0x25
0x1ee7…1f16 at0026 = ╱20╱…╱ // 0x1f0d @0x26
0x1ee7…1f16 at0027 = ╱45╱E╱ // 0x1f0e @0x27
0x1ee7…1f16 at0028 = ╱20╱…╱ // 0x1f0f @0x28
0x1ee7…1f16 at0029 = ╱2a╱*╱ // 0x1f10 @0x29
0x1ee7…1f16 at002a = ╱2a╱*╱ // 0x1f11 @0x2a
0x1ee7…1f16 at002b = ╱2a╱*╱ // 0x1f12 @0x2b
0x1ee7…1f16 at002c = ╱2a╱*╱ // 0x1f13 @0x2c
0x1ee7…1f16 at002d = ╱22╱"╱ // 0x1f14 @0x2d
0x1ee7…1f16 at002e = EOL // 0x1f15 @0x2e
0x1ee7…1f16 }
0x1f16…1f45 b533 02760 PRINT "---------------------------------------"
0x1f16…1f45 LineComal80 {
0x1f16…1f45 ptr = 0xb533 // 0x1f16 @0x0
0x1f16…1f45 lno = 0x0ac8 // 0x1f18 @0x2
0x1f16…1f45 at0004 = ╱92╱ PRINT ╱ // 0x1f1a @0x4
0x1f16…1f45 at0005 = ╱22╱"╱ // 0x1f1b @0x5
0x1f16…1f45 at0006 = ╱2d╱-╱ // 0x1f1c @0x6
0x1f16…1f45 at0007 = ╱2d╱-╱ // 0x1f1d @0x7
0x1f16…1f45 at0008 = ╱2d╱-╱ // 0x1f1e @0x8
0x1f16…1f45 at0009 = ╱2d╱-╱ // 0x1f1f @0x9
0x1f16…1f45 at000a = ╱2d╱-╱ // 0x1f20 @0xa
0x1f16…1f45 at000b = ╱2d╱-╱ // 0x1f21 @0xb
0x1f16…1f45 at000c = ╱2d╱-╱ // 0x1f22 @0xc
0x1f16…1f45 at000d = ╱2d╱-╱ // 0x1f23 @0xd
0x1f16…1f45 at000e = ╱2d╱-╱ // 0x1f24 @0xe
0x1f16…1f45 at000f = ╱2d╱-╱ // 0x1f25 @0xf
0x1f16…1f45 at0010 = ╱2d╱-╱ // 0x1f26 @0x10
0x1f16…1f45 at0011 = ╱2d╱-╱ // 0x1f27 @0x11
0x1f16…1f45 at0012 = ╱2d╱-╱ // 0x1f28 @0x12
0x1f16…1f45 at0013 = ╱2d╱-╱ // 0x1f29 @0x13
0x1f16…1f45 at0014 = ╱2d╱-╱ // 0x1f2a @0x14
0x1f16…1f45 at0015 = ╱2d╱-╱ // 0x1f2b @0x15
0x1f16…1f45 at0016 = ╱2d╱-╱ // 0x1f2c @0x16
0x1f16…1f45 at0017 = ╱2d╱-╱ // 0x1f2d @0x17
0x1f16…1f45 at0018 = ╱2d╱-╱ // 0x1f2e @0x18
0x1f16…1f45 at0019 = ╱2d╱-╱ // 0x1f2f @0x19
0x1f16…1f45 at001a = ╱2d╱-╱ // 0x1f30 @0x1a
0x1f16…1f45 at001b = ╱2d╱-╱ // 0x1f31 @0x1b
0x1f16…1f45 at001c = ╱2d╱-╱ // 0x1f32 @0x1c
0x1f16…1f45 at001d = ╱2d╱-╱ // 0x1f33 @0x1d
0x1f16…1f45 at001e = ╱2d╱-╱ // 0x1f34 @0x1e
0x1f16…1f45 at001f = ╱2d╱-╱ // 0x1f35 @0x1f
0x1f16…1f45 at0020 = ╱2d╱-╱ // 0x1f36 @0x20
0x1f16…1f45 at0021 = ╱2d╱-╱ // 0x1f37 @0x21
0x1f16…1f45 at0022 = ╱2d╱-╱ // 0x1f38 @0x22
0x1f16…1f45 at0023 = ╱2d╱-╱ // 0x1f39 @0x23
0x1f16…1f45 at0024 = ╱2d╱-╱ // 0x1f3a @0x24
0x1f16…1f45 at0025 = ╱2d╱-╱ // 0x1f3b @0x25
0x1f16…1f45 at0026 = ╱2d╱-╱ // 0x1f3c @0x26
0x1f16…1f45 at0027 = ╱2d╱-╱ // 0x1f3d @0x27
0x1f16…1f45 at0028 = ╱2d╱-╱ // 0x1f3e @0x28
0x1f16…1f45 at0029 = ╱2d╱-╱ // 0x1f3f @0x29
0x1f16…1f45 at002a = ╱2d╱-╱ // 0x1f40 @0x2a
0x1f16…1f45 at002b = ╱2d╱-╱ // 0x1f41 @0x2b
0x1f16…1f45 at002c = ╱2d╱-╱ // 0x1f42 @0x2c
0x1f16…1f45 at002d = ╱22╱"╱ // 0x1f43 @0x2d
0x1f16…1f45 at002e = EOL // 0x1f44 @0x2e
0x1f16…1f45 }
0x1f45…1f4b b539 02770 PRINT
0x1f45…1f4b LineComal80 {
0x1f45…1f4b ptr = 0xb539 // 0x1f45 @0x0
0x1f45…1f4b lno = 0x0ad2 // 0x1f47 @0x2
0x1f45…1f4b at0004 = ╱92╱ PRINT ╱ // 0x1f49 @0x4
0x1f45…1f4b at0005 = EOL // 0x1f4a @0x5
0x1f45…1f4b }
0x1f4b…1f7f b56d 02780 PRINT "…(1)…Bruttofortjeneste…i…%…af…oms{tning………:" ;
0x1f4b…1f7f LineComal80 {
0x1f4b…1f7f ptr = 0xb56d // 0x1f4b @0x0
0x1f4b…1f7f lno = 0x0adc // 0x1f4d @0x2
0x1f4b…1f7f at0004 = ╱92╱ PRINT ╱ // 0x1f4f @0x4
0x1f4b…1f7f at0005 = ╱22╱"╱ // 0x1f50 @0x5
0x1f4b…1f7f at0006 = ╱20╱…╱ // 0x1f51 @0x6
0x1f4b…1f7f at0007 = ╱28╱(╱ // 0x1f52 @0x7
0x1f4b…1f7f at0008 = ╱31╱1╱ // 0x1f53 @0x8
0x1f4b…1f7f at0009 = ╱29╱)╱ // 0x1f54 @0x9
0x1f4b…1f7f at000a = ╱20╱…╱ // 0x1f55 @0xa
0x1f4b…1f7f at000b = ╱42╱B╱ // 0x1f56 @0xb
0x1f4b…1f7f at000c = ╱72╱r╱ // 0x1f57 @0xc
0x1f4b…1f7f at000d = ╱75╱u╱ // 0x1f58 @0xd
0x1f4b…1f7f at000e = ╱74╱t╱ // 0x1f59 @0xe
0x1f4b…1f7f at000f = ╱74╱t╱ // 0x1f5a @0xf
0x1f4b…1f7f at0010 = ╱6f╱o╱ // 0x1f5b @0x10
0x1f4b…1f7f at0011 = ╱66╱f╱ // 0x1f5c @0x11
0x1f4b…1f7f at0012 = ╱6f╱o╱ // 0x1f5d @0x12
0x1f4b…1f7f at0013 = ╱72╱r╱ // 0x1f5e @0x13
0x1f4b…1f7f at0014 = ╱74╱t╱ // 0x1f5f @0x14
0x1f4b…1f7f at0015 = ╱6a╱j╱ // 0x1f60 @0x15
0x1f4b…1f7f at0016 = ╱65╱e╱ // 0x1f61 @0x16
0x1f4b…1f7f at0017 = ╱6e╱n╱ // 0x1f62 @0x17
0x1f4b…1f7f at0018 = ╱65╱e╱ // 0x1f63 @0x18
0x1f4b…1f7f at0019 = ╱73╱s╱ // 0x1f64 @0x19
0x1f4b…1f7f at001a = ╱74╱t╱ // 0x1f65 @0x1a
0x1f4b…1f7f at001b = ╱65╱e╱ // 0x1f66 @0x1b
0x1f4b…1f7f at001c = ╱20╱…╱ // 0x1f67 @0x1c
0x1f4b…1f7f at001d = ╱69╱i╱ // 0x1f68 @0x1d
0x1f4b…1f7f at001e = ╱20╱…╱ // 0x1f69 @0x1e
0x1f4b…1f7f at001f = ╱25╱%╱ // 0x1f6a @0x1f
0x1f4b…1f7f at0020 = ╱20╱…╱ // 0x1f6b @0x20
0x1f4b…1f7f at0021 = ╱61╱a╱ // 0x1f6c @0x21
0x1f4b…1f7f at0022 = ╱66╱f╱ // 0x1f6d @0x22
0x1f4b…1f7f at0023 = ╱20╱…╱ // 0x1f6e @0x23
0x1f4b…1f7f at0024 = ╱6f╱o╱ // 0x1f6f @0x24
0x1f4b…1f7f at0025 = ╱6d╱m╱ // 0x1f70 @0x25
0x1f4b…1f7f at0026 = ╱73╱s╱ // 0x1f71 @0x26
0x1f4b…1f7f at0027 = ╱7b╱{╱ // 0x1f72 @0x27
0x1f4b…1f7f at0028 = ╱74╱t╱ // 0x1f73 @0x28
0x1f4b…1f7f at0029 = ╱6e╱n╱ // 0x1f74 @0x29
0x1f4b…1f7f at002a = ╱69╱i╱ // 0x1f75 @0x2a
0x1f4b…1f7f at002b = ╱6e╱n╱ // 0x1f76 @0x2b
0x1f4b…1f7f at002c = ╱67╱g╱ // 0x1f77 @0x2c
0x1f4b…1f7f at002d = ╱20╱…╱ // 0x1f78 @0x2d
0x1f4b…1f7f at002e = ╱20╱…╱ // 0x1f79 @0x2e
0x1f4b…1f7f at002f = ╱20╱…╱ // 0x1f7a @0x2f
0x1f4b…1f7f at0030 = ╱3a╱:╱ // 0x1f7b @0x30
0x1f4b…1f7f at0031 = ╱22╱"╱ // 0x1f7c @0x31
0x1f4b…1f7f at0032 = ╱ea╱ ; ╱ // 0x1f7d @0x32
0x1f4b…1f7f at0033 = EOL // 0x1f7e @0x33
0x1f4b…1f7f }
0x1f7f…1fa7 b595 02790 PRINT USING "###.##…%" : BRUTTO * 100 / S_AKTIVE
0x1f7f…1fa7 LineComal80 {
0x1f7f…1fa7 ptr = 0xb595 // 0x1f7f @0x0
0x1f7f…1fa7 lno = 0x0ae6 // 0x1f81 @0x2
0x1f7f…1fa7 at0004 = ╱92╱ PRINT ╱ // 0x1f83 @0x4
0x1f7f…1fa7 at0005 = ╱b9╱ USING ╱ // 0x1f84 @0x5
0x1f7f…1fa7 at0006 = ╱22╱"╱ // 0x1f85 @0x6
0x1f7f…1fa7 at0007 = ╱23╱#╱ // 0x1f86 @0x7
0x1f7f…1fa7 at0008 = ╱23╱#╱ // 0x1f87 @0x8
0x1f7f…1fa7 at0009 = ╱23╱#╱ // 0x1f88 @0x9
0x1f7f…1fa7 at000a = ╱2e╱.╱ // 0x1f89 @0xa
0x1f7f…1fa7 at000b = ╱23╱#╱ // 0x1f8a @0xb
0x1f7f…1fa7 at000c = ╱23╱#╱ // 0x1f8b @0xc
0x1f7f…1fa7 at000d = ╱20╱…╱ // 0x1f8c @0xd
0x1f7f…1fa7 at000e = ╱25╱%╱ // 0x1f8d @0xe
0x1f7f…1fa7 at000f = ╱22╱"╱ // 0x1f8e @0xf
0x1f7f…1fa7 at0010 = ╱f1╱ : ╱ // 0x1f8f @0x10
0x1f7f…1fa7 at0011 = ╱42╱B╱ // 0x1f90 @0x11
0x1f7f…1fa7 at0012 = ╱52╱R╱ // 0x1f91 @0x12
0x1f7f…1fa7 at0013 = ╱55╱U╱ // 0x1f92 @0x13
0x1f7f…1fa7 at0014 = ╱54╱T╱ // 0x1f93 @0x14
0x1f7f…1fa7 at0015 = ╱54╱T╱ // 0x1f94 @0x15
0x1f7f…1fa7 at0016 = ╱4f╱O╱ // 0x1f95 @0x16
0x1f7f…1fa7 at0017 = ╱e7╱ * ╱ // 0x1f96 @0x17
0x1f7f…1fa7 at0018 = ╱31╱1╱ // 0x1f97 @0x18
0x1f7f…1fa7 at0019 = ╱30╱0╱ // 0x1f98 @0x19
0x1f7f…1fa7 at001a = ╱30╱0╱ // 0x1f99 @0x1a
0x1f7f…1fa7 at001b = ╱f26400╱ // 0x1f9a @0x1b
0x1f7f…1fa7 at001e = ╱e8╱ / ╱ // 0x1f9d @0x1e
0x1f7f…1fa7 at001f = ╱53╱S╱ // 0x1f9e @0x1f
0x1f7f…1fa7 at0020 = ╱5f╱_╱ // 0x1f9f @0x20
0x1f7f…1fa7 at0021 = ╱41╱A╱ // 0x1fa0 @0x21
0x1f7f…1fa7 at0022 = ╱4b╱K╱ // 0x1fa1 @0x22
0x1f7f…1fa7 at0023 = ╱54╱T╱ // 0x1fa2 @0x23
0x1f7f…1fa7 at0024 = ╱49╱I╱ // 0x1fa3 @0x24
0x1f7f…1fa7 at0025 = ╱56╱V╱ // 0x1fa4 @0x25
0x1f7f…1fa7 at0026 = ╱45╱E╱ // 0x1fa5 @0x26
0x1f7f…1fa7 at0027 = EOL // 0x1fa6 @0x27
0x1f7f…1fa7 }
0x1fa7…1fad b59b 02800 PRINT
0x1fa7…1fad LineComal80 {
0x1fa7…1fad ptr = 0xb59b // 0x1fa7 @0x0
0x1fa7…1fad lno = 0x0af0 // 0x1fa9 @0x2
0x1fa7…1fad at0004 = ╱92╱ PRINT ╱ // 0x1fab @0x4
0x1fa7…1fad at0005 = EOL // 0x1fac @0x5
0x1fa7…1fad }
0x1fad…1fe1 b5cf 02810 PRINT "…(2)…D{kningsgrad…………………………………………………………………:" ;
0x1fad…1fe1 LineComal80 {
0x1fad…1fe1 ptr = 0xb5cf // 0x1fad @0x0
0x1fad…1fe1 lno = 0x0afa // 0x1faf @0x2
0x1fad…1fe1 at0004 = ╱92╱ PRINT ╱ // 0x1fb1 @0x4
0x1fad…1fe1 at0005 = ╱22╱"╱ // 0x1fb2 @0x5
0x1fad…1fe1 at0006 = ╱20╱…╱ // 0x1fb3 @0x6
0x1fad…1fe1 at0007 = ╱28╱(╱ // 0x1fb4 @0x7
0x1fad…1fe1 at0008 = ╱32╱2╱ // 0x1fb5 @0x8
0x1fad…1fe1 at0009 = ╱29╱)╱ // 0x1fb6 @0x9
0x1fad…1fe1 at000a = ╱20╱…╱ // 0x1fb7 @0xa
0x1fad…1fe1 at000b = ╱44╱D╱ // 0x1fb8 @0xb
0x1fad…1fe1 at000c = ╱7b╱{╱ // 0x1fb9 @0xc
0x1fad…1fe1 at000d = ╱6b╱k╱ // 0x1fba @0xd
0x1fad…1fe1 at000e = ╱6e╱n╱ // 0x1fbb @0xe
0x1fad…1fe1 at000f = ╱69╱i╱ // 0x1fbc @0xf
0x1fad…1fe1 at0010 = ╱6e╱n╱ // 0x1fbd @0x10
0x1fad…1fe1 at0011 = ╱67╱g╱ // 0x1fbe @0x11
0x1fad…1fe1 at0012 = ╱73╱s╱ // 0x1fbf @0x12
0x1fad…1fe1 at0013 = ╱67╱g╱ // 0x1fc0 @0x13
0x1fad…1fe1 at0014 = ╱72╱r╱ // 0x1fc1 @0x14
0x1fad…1fe1 at0015 = ╱61╱a╱ // 0x1fc2 @0x15
0x1fad…1fe1 at0016 = ╱64╱d╱ // 0x1fc3 @0x16
0x1fad…1fe1 at0017 = ╱20╱…╱ // 0x1fc4 @0x17
0x1fad…1fe1 at0018 = ╱20╱…╱ // 0x1fc5 @0x18
0x1fad…1fe1 at0019 = ╱20╱…╱ // 0x1fc6 @0x19
0x1fad…1fe1 at001a = ╱20╱…╱ // 0x1fc7 @0x1a
0x1fad…1fe1 at001b = ╱20╱…╱ // 0x1fc8 @0x1b
0x1fad…1fe1 at001c = ╱20╱…╱ // 0x1fc9 @0x1c
0x1fad…1fe1 at001d = ╱20╱…╱ // 0x1fca @0x1d
0x1fad…1fe1 at001e = ╱20╱…╱ // 0x1fcb @0x1e
0x1fad…1fe1 at001f = ╱20╱…╱ // 0x1fcc @0x1f
0x1fad…1fe1 at0020 = ╱20╱…╱ // 0x1fcd @0x20
0x1fad…1fe1 at0021 = ╱20╱…╱ // 0x1fce @0x21
0x1fad…1fe1 at0022 = ╱20╱…╱ // 0x1fcf @0x22
0x1fad…1fe1 at0023 = ╱20╱…╱ // 0x1fd0 @0x23
0x1fad…1fe1 at0024 = ╱20╱…╱ // 0x1fd1 @0x24
0x1fad…1fe1 at0025 = ╱20╱…╱ // 0x1fd2 @0x25
0x1fad…1fe1 at0026 = ╱20╱…╱ // 0x1fd3 @0x26
0x1fad…1fe1 at0027 = ╱20╱…╱ // 0x1fd4 @0x27
0x1fad…1fe1 at0028 = ╱20╱…╱ // 0x1fd5 @0x28
0x1fad…1fe1 at0029 = ╱20╱…╱ // 0x1fd6 @0x29
0x1fad…1fe1 at002a = ╱20╱…╱ // 0x1fd7 @0x2a
0x1fad…1fe1 at002b = ╱20╱…╱ // 0x1fd8 @0x2b
0x1fad…1fe1 at002c = ╱20╱…╱ // 0x1fd9 @0x2c
0x1fad…1fe1 at002d = ╱20╱…╱ // 0x1fda @0x2d
0x1fad…1fe1 at002e = ╱20╱…╱ // 0x1fdb @0x2e
0x1fad…1fe1 at002f = ╱20╱…╱ // 0x1fdc @0x2f
0x1fad…1fe1 at0030 = ╱3a╱:╱ // 0x1fdd @0x30
0x1fad…1fe1 at0031 = ╱22╱"╱ // 0x1fde @0x31
0x1fad…1fe1 at0032 = ╱ea╱ ; ╱ // 0x1fdf @0x32
0x1fad…1fe1 at0033 = EOL // 0x1fe0 @0x33
0x1fad…1fe1 }
0x1fe1…200a b5f8 02820 PRINT USING "###.##…%" : D[KNING * 100 / S_AKTIVE
0x1fe1…200a LineComal80 {
0x1fe1…200a ptr = 0xb5f8 // 0x1fe1 @0x0
0x1fe1…200a lno = 0x0b04 // 0x1fe3 @0x2
0x1fe1…200a at0004 = ╱92╱ PRINT ╱ // 0x1fe5 @0x4
0x1fe1…200a at0005 = ╱b9╱ USING ╱ // 0x1fe6 @0x5
0x1fe1…200a at0006 = ╱22╱"╱ // 0x1fe7 @0x6
0x1fe1…200a at0007 = ╱23╱#╱ // 0x1fe8 @0x7
0x1fe1…200a at0008 = ╱23╱#╱ // 0x1fe9 @0x8
0x1fe1…200a at0009 = ╱23╱#╱ // 0x1fea @0x9
0x1fe1…200a at000a = ╱2e╱.╱ // 0x1feb @0xa
0x1fe1…200a at000b = ╱23╱#╱ // 0x1fec @0xb
0x1fe1…200a at000c = ╱23╱#╱ // 0x1fed @0xc
0x1fe1…200a at000d = ╱20╱…╱ // 0x1fee @0xd
0x1fe1…200a at000e = ╱25╱%╱ // 0x1fef @0xe
0x1fe1…200a at000f = ╱22╱"╱ // 0x1ff0 @0xf
0x1fe1…200a at0010 = ╱f1╱ : ╱ // 0x1ff1 @0x10
0x1fe1…200a at0011 = ╱44╱D╱ // 0x1ff2 @0x11
0x1fe1…200a at0012 = ╱5b╱[╱ // 0x1ff3 @0x12
0x1fe1…200a at0013 = ╱4b╱K╱ // 0x1ff4 @0x13
0x1fe1…200a at0014 = ╱4e╱N╱ // 0x1ff5 @0x14
0x1fe1…200a at0015 = ╱49╱I╱ // 0x1ff6 @0x15
0x1fe1…200a at0016 = ╱4e╱N╱ // 0x1ff7 @0x16
0x1fe1…200a at0017 = ╱47╱G╱ // 0x1ff8 @0x17
0x1fe1…200a at0018 = ╱e7╱ * ╱ // 0x1ff9 @0x18
0x1fe1…200a at0019 = ╱31╱1╱ // 0x1ffa @0x19
0x1fe1…200a at001a = ╱30╱0╱ // 0x1ffb @0x1a
0x1fe1…200a at001b = ╱30╱0╱ // 0x1ffc @0x1b
0x1fe1…200a at001c = ╱f26400╱ // 0x1ffd @0x1c
0x1fe1…200a at001f = ╱e8╱ / ╱ // 0x2000 @0x1f
0x1fe1…200a at0020 = ╱53╱S╱ // 0x2001 @0x20
0x1fe1…200a at0021 = ╱5f╱_╱ // 0x2002 @0x21
0x1fe1…200a at0022 = ╱41╱A╱ // 0x2003 @0x22
0x1fe1…200a at0023 = ╱4b╱K╱ // 0x2004 @0x23
0x1fe1…200a at0024 = ╱54╱T╱ // 0x2005 @0x24
0x1fe1…200a at0025 = ╱49╱I╱ // 0x2006 @0x25
0x1fe1…200a at0026 = ╱56╱V╱ // 0x2007 @0x26
0x1fe1…200a at0027 = ╱45╱E╱ // 0x2008 @0x27
0x1fe1…200a at0028 = EOL // 0x2009 @0x28
0x1fe1…200a }
0x200a…2010 b5fe 02830 PRINT
0x200a…2010 LineComal80 {
0x200a…2010 ptr = 0xb5fe // 0x200a @0x0
0x200a…2010 lno = 0x0b0e // 0x200c @0x2
0x200a…2010 at0004 = ╱92╱ PRINT ╱ // 0x200e @0x4
0x200a…2010 at0005 = EOL // 0x200f @0x5
0x200a…2010 }
0x2010…203c b62a 02840 PRINT "…(3)…Omkostninger…i…%…af…oms{tningen"
0x2010…203c LineComal80 {
0x2010…203c ptr = 0xb62a // 0x2010 @0x0
0x2010…203c lno = 0x0b18 // 0x2012 @0x2
0x2010…203c at0004 = ╱92╱ PRINT ╱ // 0x2014 @0x4
0x2010…203c at0005 = ╱22╱"╱ // 0x2015 @0x5
0x2010…203c at0006 = ╱20╱…╱ // 0x2016 @0x6
0x2010…203c at0007 = ╱28╱(╱ // 0x2017 @0x7
0x2010…203c at0008 = ╱33╱3╱ // 0x2018 @0x8
0x2010…203c at0009 = ╱29╱)╱ // 0x2019 @0x9
0x2010…203c at000a = ╱20╱…╱ // 0x201a @0xa
0x2010…203c at000b = ╱4f╱O╱ // 0x201b @0xb
0x2010…203c at000c = ╱6d╱m╱ // 0x201c @0xc
0x2010…203c at000d = ╱6b╱k╱ // 0x201d @0xd
0x2010…203c at000e = ╱6f╱o╱ // 0x201e @0xe
0x2010…203c at000f = ╱73╱s╱ // 0x201f @0xf
0x2010…203c at0010 = ╱74╱t╱ // 0x2020 @0x10
0x2010…203c at0011 = ╱6e╱n╱ // 0x2021 @0x11
0x2010…203c at0012 = ╱69╱i╱ // 0x2022 @0x12
0x2010…203c at0013 = ╱6e╱n╱ // 0x2023 @0x13
0x2010…203c at0014 = ╱67╱g╱ // 0x2024 @0x14
0x2010…203c at0015 = ╱65╱e╱ // 0x2025 @0x15
0x2010…203c at0016 = ╱72╱r╱ // 0x2026 @0x16
0x2010…203c at0017 = ╱20╱…╱ // 0x2027 @0x17
0x2010…203c at0018 = ╱69╱i╱ // 0x2028 @0x18
0x2010…203c at0019 = ╱20╱…╱ // 0x2029 @0x19
0x2010…203c at001a = ╱25╱%╱ // 0x202a @0x1a
0x2010…203c at001b = ╱20╱…╱ // 0x202b @0x1b
0x2010…203c at001c = ╱61╱a╱ // 0x202c @0x1c
0x2010…203c at001d = ╱66╱f╱ // 0x202d @0x1d
0x2010…203c at001e = ╱20╱…╱ // 0x202e @0x1e
0x2010…203c at001f = ╱6f╱o╱ // 0x202f @0x1f
0x2010…203c at0020 = ╱6d╱m╱ // 0x2030 @0x20
0x2010…203c at0021 = ╱73╱s╱ // 0x2031 @0x21
0x2010…203c at0022 = ╱7b╱{╱ // 0x2032 @0x22
0x2010…203c at0023 = ╱74╱t╱ // 0x2033 @0x23
0x2010…203c at0024 = ╱6e╱n╱ // 0x2034 @0x24
0x2010…203c at0025 = ╱69╱i╱ // 0x2035 @0x25
0x2010…203c at0026 = ╱6e╱n╱ // 0x2036 @0x26
0x2010…203c at0027 = ╱67╱g╱ // 0x2037 @0x27
0x2010…203c at0028 = ╱65╱e╱ // 0x2038 @0x28
0x2010…203c at0029 = ╱6e╱n╱ // 0x2039 @0x29
0x2010…203c at002a = ╱22╱"╱ // 0x203a @0x2a
0x2010…203c at002b = EOL // 0x203b @0x2b
0x2010…203c }
0x203c…2053 b641 02850 LET LIN_T := LIN_T + 42
0x203c…2053 LineComal80 {
0x203c…2053 ptr = 0xb641 // 0x203c @0x0
0x203c…2053 lno = 0x0b22 // 0x203e @0x2
0x203c…2053 at0004 = ╱86╱ LET ╱ // 0x2040 @0x4
0x203c…2053 at0005 = ╱4c╱L╱ // 0x2041 @0x5
0x203c…2053 at0006 = ╱49╱I╱ // 0x2042 @0x6
0x203c…2053 at0007 = ╱4e╱N╱ // 0x2043 @0x7
0x203c…2053 at0008 = ╱5f╱_╱ // 0x2044 @0x8
0x203c…2053 at0009 = ╱54╱T╱ // 0x2045 @0x9
0x203c…2053 at000a = ╱f0╱ := ╱ // 0x2046 @0xa
0x203c…2053 at000b = ╱4c╱L╱ // 0x2047 @0xb
0x203c…2053 at000c = ╱49╱I╱ // 0x2048 @0xc
0x203c…2053 at000d = ╱4e╱N╱ // 0x2049 @0xd
0x203c…2053 at000e = ╱5f╱_╱ // 0x204a @0xe
0x203c…2053 at000f = ╱54╱T╱ // 0x204b @0xf
0x203c…2053 at0010 = ╱e5╱ + ╱ // 0x204c @0x10
0x203c…2053 at0011 = ╱34╱4╱ // 0x204d @0x11
0x203c…2053 at0012 = ╱32╱2╱ // 0x204e @0x12
0x203c…2053 at0013 = ╱f22a00╱ // 0x204f @0x13
0x203c…2053 at0016 = EOL // 0x2052 @0x16
0x203c…2053 }
0x2053…206f b65d 02860 EXEC OMK_I_PROCENT ( VAREFO $ )
0x2053…206f LineComal80 {
0x2053…206f ptr = 0xb65d // 0x2053 @0x0
0x2053…206f lno = 0x0b2c // 0x2055 @0x2
0x2053…206f at0004 = ╱9d╱ EXEC ╱ // 0x2057 @0x4
0x2053…206f at0005 = ╱4f╱O╱ // 0x2058 @0x5
0x2053…206f at0006 = ╱4d╱M╱ // 0x2059 @0x6
0x2053…206f at0007 = ╱4b╱K╱ // 0x205a @0x7
0x2053…206f at0008 = ╱5f╱_╱ // 0x205b @0x8
0x2053…206f at0009 = ╱49╱I╱ // 0x205c @0x9
0x2053…206f at000a = ╱5f╱_╱ // 0x205d @0xa
0x2053…206f at000b = ╱50╱P╱ // 0x205e @0xb
0x2053…206f at000c = ╱52╱R╱ // 0x205f @0xc
0x2053…206f at000d = ╱4f╱O╱ // 0x2060 @0xd
0x2053…206f at000e = ╱43╱C╱ // 0x2061 @0xe
0x2053…206f at000f = ╱45╱E╱ // 0x2062 @0xf
0x2053…206f at0010 = ╱4e╱N╱ // 0x2063 @0x10
0x2053…206f at0011 = ╱54╱T╱ // 0x2064 @0x11
0x2053…206f at0012 = ╱ed╱ ( ╱ // 0x2065 @0x12
0x2053…206f at0013 = ╱56╱V╱ // 0x2066 @0x13
0x2053…206f at0014 = ╱41╱A╱ // 0x2067 @0x14
0x2053…206f at0015 = ╱52╱R╱ // 0x2068 @0x15
0x2053…206f at0016 = ╱45╱E╱ // 0x2069 @0x16
0x2053…206f at0017 = ╱46╱F╱ // 0x206a @0x17
0x2053…206f at0018 = ╱4f╱O╱ // 0x206b @0x18
0x2053…206f at0019 = ╱ef╱ $ ╱ // 0x206c @0x19
0x2053…206f at001a = ╱ee╱ ) ╱ // 0x206d @0x1a
0x2053…206f at001b = EOL // 0x206e @0x1b
0x2053…206f }
0x206f…208b b679 02870 EXEC OMK_I_PROCENT ( KAPOMK $ )
0x206f…208b LineComal80 {
0x206f…208b ptr = 0xb679 // 0x206f @0x0
0x206f…208b lno = 0x0b36 // 0x2071 @0x2
0x206f…208b at0004 = ╱9d╱ EXEC ╱ // 0x2073 @0x4
0x206f…208b at0005 = ╱4f╱O╱ // 0x2074 @0x5
0x206f…208b at0006 = ╱4d╱M╱ // 0x2075 @0x6
0x206f…208b at0007 = ╱4b╱K╱ // 0x2076 @0x7
0x206f…208b at0008 = ╱5f╱_╱ // 0x2077 @0x8
0x206f…208b at0009 = ╱49╱I╱ // 0x2078 @0x9
0x206f…208b at000a = ╱5f╱_╱ // 0x2079 @0xa
0x206f…208b at000b = ╱50╱P╱ // 0x207a @0xb
0x206f…208b at000c = ╱52╱R╱ // 0x207b @0xc
0x206f…208b at000d = ╱4f╱O╱ // 0x207c @0xd
0x206f…208b at000e = ╱43╱C╱ // 0x207d @0xe
0x206f…208b at000f = ╱45╱E╱ // 0x207e @0xf
0x206f…208b at0010 = ╱4e╱N╱ // 0x207f @0x10
0x206f…208b at0011 = ╱54╱T╱ // 0x2080 @0x11
0x206f…208b at0012 = ╱ed╱ ( ╱ // 0x2081 @0x12
0x206f…208b at0013 = ╱4b╱K╱ // 0x2082 @0x13
0x206f…208b at0014 = ╱41╱A╱ // 0x2083 @0x14
0x206f…208b at0015 = ╱50╱P╱ // 0x2084 @0x15
0x206f…208b at0016 = ╱4f╱O╱ // 0x2085 @0x16
0x206f…208b at0017 = ╱4d╱M╱ // 0x2086 @0x17
0x206f…208b at0018 = ╱4b╱K╱ // 0x2087 @0x18
0x206f…208b at0019 = ╱ef╱ $ ╱ // 0x2088 @0x19
0x206f…208b at001a = ╱ee╱ ) ╱ // 0x2089 @0x1a
0x206f…208b at001b = EOL // 0x208a @0x1b
0x206f…208b }
0x208b…20a7 b695 02880 EXEC OMK_I_PROCENT ( AFSKRI $ )
0x208b…20a7 LineComal80 {
0x208b…20a7 ptr = 0xb695 // 0x208b @0x0
0x208b…20a7 lno = 0x0b40 // 0x208d @0x2
0x208b…20a7 at0004 = ╱9d╱ EXEC ╱ // 0x208f @0x4
0x208b…20a7 at0005 = ╱4f╱O╱ // 0x2090 @0x5
0x208b…20a7 at0006 = ╱4d╱M╱ // 0x2091 @0x6
0x208b…20a7 at0007 = ╱4b╱K╱ // 0x2092 @0x7
0x208b…20a7 at0008 = ╱5f╱_╱ // 0x2093 @0x8
0x208b…20a7 at0009 = ╱49╱I╱ // 0x2094 @0x9
0x208b…20a7 at000a = ╱5f╱_╱ // 0x2095 @0xa
0x208b…20a7 at000b = ╱50╱P╱ // 0x2096 @0xb
0x208b…20a7 at000c = ╱52╱R╱ // 0x2097 @0xc
0x208b…20a7 at000d = ╱4f╱O╱ // 0x2098 @0xd
0x208b…20a7 at000e = ╱43╱C╱ // 0x2099 @0xe
0x208b…20a7 at000f = ╱45╱E╱ // 0x209a @0xf
0x208b…20a7 at0010 = ╱4e╱N╱ // 0x209b @0x10
0x208b…20a7 at0011 = ╱54╱T╱ // 0x209c @0x11
0x208b…20a7 at0012 = ╱ed╱ ( ╱ // 0x209d @0x12
0x208b…20a7 at0013 = ╱41╱A╱ // 0x209e @0x13
0x208b…20a7 at0014 = ╱46╱F╱ // 0x209f @0x14
0x208b…20a7 at0015 = ╱53╱S╱ // 0x20a0 @0x15
0x208b…20a7 at0016 = ╱4b╱K╱ // 0x20a1 @0x16
0x208b…20a7 at0017 = ╱52╱R╱ // 0x20a2 @0x17
0x208b…20a7 at0018 = ╱49╱I╱ // 0x20a3 @0x18
0x208b…20a7 at0019 = ╱ef╱ $ ╱ // 0x20a4 @0x19
0x208b…20a7 at001a = ╱ee╱ ) ╱ // 0x20a5 @0x1a
0x208b…20a7 at001b = EOL // 0x20a6 @0x1b
0x208b…20a7 }
0x20a7…20c3 b6b1 02890 EXEC OMK_I_PROCENT ( RENTEO $ )
0x20a7…20c3 LineComal80 {
0x20a7…20c3 ptr = 0xb6b1 // 0x20a7 @0x0
0x20a7…20c3 lno = 0x0b4a // 0x20a9 @0x2
0x20a7…20c3 at0004 = ╱9d╱ EXEC ╱ // 0x20ab @0x4
0x20a7…20c3 at0005 = ╱4f╱O╱ // 0x20ac @0x5
0x20a7…20c3 at0006 = ╱4d╱M╱ // 0x20ad @0x6
0x20a7…20c3 at0007 = ╱4b╱K╱ // 0x20ae @0x7
0x20a7…20c3 at0008 = ╱5f╱_╱ // 0x20af @0x8
0x20a7…20c3 at0009 = ╱49╱I╱ // 0x20b0 @0x9
0x20a7…20c3 at000a = ╱5f╱_╱ // 0x20b1 @0xa
0x20a7…20c3 at000b = ╱50╱P╱ // 0x20b2 @0xb
0x20a7…20c3 at000c = ╱52╱R╱ // 0x20b3 @0xc
0x20a7…20c3 at000d = ╱4f╱O╱ // 0x20b4 @0xd
0x20a7…20c3 at000e = ╱43╱C╱ // 0x20b5 @0xe
0x20a7…20c3 at000f = ╱45╱E╱ // 0x20b6 @0xf
0x20a7…20c3 at0010 = ╱4e╱N╱ // 0x20b7 @0x10
0x20a7…20c3 at0011 = ╱54╱T╱ // 0x20b8 @0x11
0x20a7…20c3 at0012 = ╱ed╱ ( ╱ // 0x20b9 @0x12
0x20a7…20c3 at0013 = ╱52╱R╱ // 0x20ba @0x13
0x20a7…20c3 at0014 = ╱45╱E╱ // 0x20bb @0x14
0x20a7…20c3 at0015 = ╱4e╱N╱ // 0x20bc @0x15
0x20a7…20c3 at0016 = ╱54╱T╱ // 0x20bd @0x16
0x20a7…20c3 at0017 = ╱45╱E╱ // 0x20be @0x17
0x20a7…20c3 at0018 = ╱4f╱O╱ // 0x20bf @0x18
0x20a7…20c3 at0019 = ╱ef╱ $ ╱ // 0x20c0 @0x19
0x20a7…20c3 at001a = ╱ee╱ ) ╱ // 0x20c1 @0x1a
0x20a7…20c3 at001b = EOL // 0x20c2 @0x1b
0x20a7…20c3 }
0x20c3…20d2 b6c0 02900 EXEC SIDESKIFT
0x20c3…20d2 LineComal80 {
0x20c3…20d2 ptr = 0xb6c0 // 0x20c3 @0x0
0x20c3…20d2 lno = 0x0b54 // 0x20c5 @0x2
0x20c3…20d2 at0004 = ╱9d╱ EXEC ╱ // 0x20c7 @0x4
0x20c3…20d2 at0005 = ╱53╱S╱ // 0x20c8 @0x5
0x20c3…20d2 at0006 = ╱49╱I╱ // 0x20c9 @0x6
0x20c3…20d2 at0007 = ╱44╱D╱ // 0x20ca @0x7
0x20c3…20d2 at0008 = ╱45╱E╱ // 0x20cb @0x8
0x20c3…20d2 at0009 = ╱53╱S╱ // 0x20cc @0x9
0x20c3…20d2 at000a = ╱4b╱K╱ // 0x20cd @0xa
0x20c3…20d2 at000b = ╱49╱I╱ // 0x20ce @0xb
0x20c3…20d2 at000c = ╱46╱F╱ // 0x20cf @0xc
0x20c3…20d2 at000d = ╱54╱T╱ // 0x20d0 @0xd
0x20c3…20d2 at000e = EOL // 0x20d1 @0xe
0x20c3…20d2 }
0x20d2…20d8 b6c6 02910 PRINT
0x20d2…20d8 LineComal80 {
0x20d2…20d8 ptr = 0xb6c6 // 0x20d2 @0x0
0x20d2…20d8 lno = 0x0b5e // 0x20d4 @0x2
0x20d2…20d8 at0004 = ╱92╱ PRINT ╱ // 0x20d6 @0x4
0x20d2…20d8 at0005 = EOL // 0x20d7 @0x5
0x20d2…20d8 }
0x20d8…2113 b701 02920 PRINT "****…O…M…S…[…T…N…I…N…G…S…H…A…S…T…I…G…H…E…D…E…R…****"
0x20d8…2113 LineComal80 {
0x20d8…2113 ptr = 0xb701 // 0x20d8 @0x0
0x20d8…2113 lno = 0x0b68 // 0x20da @0x2
0x20d8…2113 at0004 = ╱92╱ PRINT ╱ // 0x20dc @0x4
0x20d8…2113 at0005 = ╱22╱"╱ // 0x20dd @0x5
0x20d8…2113 at0006 = ╱2a╱*╱ // 0x20de @0x6
0x20d8…2113 at0007 = ╱2a╱*╱ // 0x20df @0x7
0x20d8…2113 at0008 = ╱2a╱*╱ // 0x20e0 @0x8
0x20d8…2113 at0009 = ╱2a╱*╱ // 0x20e1 @0x9
0x20d8…2113 at000a = ╱20╱…╱ // 0x20e2 @0xa
0x20d8…2113 at000b = ╱4f╱O╱ // 0x20e3 @0xb
0x20d8…2113 at000c = ╱20╱…╱ // 0x20e4 @0xc
0x20d8…2113 at000d = ╱4d╱M╱ // 0x20e5 @0xd
0x20d8…2113 at000e = ╱20╱…╱ // 0x20e6 @0xe
0x20d8…2113 at000f = ╱53╱S╱ // 0x20e7 @0xf
0x20d8…2113 at0010 = ╱20╱…╱ // 0x20e8 @0x10
0x20d8…2113 at0011 = ╱5b╱[╱ // 0x20e9 @0x11
0x20d8…2113 at0012 = ╱20╱…╱ // 0x20ea @0x12
0x20d8…2113 at0013 = ╱54╱T╱ // 0x20eb @0x13
0x20d8…2113 at0014 = ╱20╱…╱ // 0x20ec @0x14
0x20d8…2113 at0015 = ╱4e╱N╱ // 0x20ed @0x15
0x20d8…2113 at0016 = ╱20╱…╱ // 0x20ee @0x16
0x20d8…2113 at0017 = ╱49╱I╱ // 0x20ef @0x17
0x20d8…2113 at0018 = ╱20╱…╱ // 0x20f0 @0x18
0x20d8…2113 at0019 = ╱4e╱N╱ // 0x20f1 @0x19
0x20d8…2113 at001a = ╱20╱…╱ // 0x20f2 @0x1a
0x20d8…2113 at001b = ╱47╱G╱ // 0x20f3 @0x1b
0x20d8…2113 at001c = ╱20╱…╱ // 0x20f4 @0x1c
0x20d8…2113 at001d = ╱53╱S╱ // 0x20f5 @0x1d
0x20d8…2113 at001e = ╱20╱…╱ // 0x20f6 @0x1e
0x20d8…2113 at001f = ╱48╱H╱ // 0x20f7 @0x1f
0x20d8…2113 at0020 = ╱20╱…╱ // 0x20f8 @0x20
0x20d8…2113 at0021 = ╱41╱A╱ // 0x20f9 @0x21
0x20d8…2113 at0022 = ╱20╱…╱ // 0x20fa @0x22
0x20d8…2113 at0023 = ╱53╱S╱ // 0x20fb @0x23
0x20d8…2113 at0024 = ╱20╱…╱ // 0x20fc @0x24
0x20d8…2113 at0025 = ╱54╱T╱ // 0x20fd @0x25
0x20d8…2113 at0026 = ╱20╱…╱ // 0x20fe @0x26
0x20d8…2113 at0027 = ╱49╱I╱ // 0x20ff @0x27
0x20d8…2113 at0028 = ╱20╱…╱ // 0x2100 @0x28
0x20d8…2113 at0029 = ╱47╱G╱ // 0x2101 @0x29
0x20d8…2113 at002a = ╱20╱…╱ // 0x2102 @0x2a
0x20d8…2113 at002b = ╱48╱H╱ // 0x2103 @0x2b
0x20d8…2113 at002c = ╱20╱…╱ // 0x2104 @0x2c
0x20d8…2113 at002d = ╱45╱E╱ // 0x2105 @0x2d
0x20d8…2113 at002e = ╱20╱…╱ // 0x2106 @0x2e
0x20d8…2113 at002f = ╱44╱D╱ // 0x2107 @0x2f
0x20d8…2113 at0030 = ╱20╱…╱ // 0x2108 @0x30
0x20d8…2113 at0031 = ╱45╱E╱ // 0x2109 @0x31
0x20d8…2113 at0032 = ╱20╱…╱ // 0x210a @0x32
0x20d8…2113 at0033 = ╱52╱R╱ // 0x210b @0x33
0x20d8…2113 at0034 = ╱20╱…╱ // 0x210c @0x34
0x20d8…2113 at0035 = ╱2a╱*╱ // 0x210d @0x35
0x20d8…2113 at0036 = ╱2a╱*╱ // 0x210e @0x36
0x20d8…2113 at0037 = ╱2a╱*╱ // 0x210f @0x37
0x20d8…2113 at0038 = ╱2a╱*╱ // 0x2110 @0x38
0x20d8…2113 at0039 = ╱22╱"╱ // 0x2111 @0x39
0x20d8…2113 at003a = EOL // 0x2112 @0x3a
0x20d8…2113 }
0x2113…214e b73c 02930 PRINT "---------------------------------------------------"
0x2113…214e LineComal80 {
0x2113…214e ptr = 0xb73c // 0x2113 @0x0
0x2113…214e lno = 0x0b72 // 0x2115 @0x2
0x2113…214e at0004 = ╱92╱ PRINT ╱ // 0x2117 @0x4
0x2113…214e at0005 = ╱22╱"╱ // 0x2118 @0x5
0x2113…214e at0006 = ╱2d╱-╱ // 0x2119 @0x6
0x2113…214e at0007 = ╱2d╱-╱ // 0x211a @0x7
0x2113…214e at0008 = ╱2d╱-╱ // 0x211b @0x8
0x2113…214e at0009 = ╱2d╱-╱ // 0x211c @0x9
0x2113…214e at000a = ╱2d╱-╱ // 0x211d @0xa
0x2113…214e at000b = ╱2d╱-╱ // 0x211e @0xb
0x2113…214e at000c = ╱2d╱-╱ // 0x211f @0xc
0x2113…214e at000d = ╱2d╱-╱ // 0x2120 @0xd
0x2113…214e at000e = ╱2d╱-╱ // 0x2121 @0xe
0x2113…214e at000f = ╱2d╱-╱ // 0x2122 @0xf
0x2113…214e at0010 = ╱2d╱-╱ // 0x2123 @0x10
0x2113…214e at0011 = ╱2d╱-╱ // 0x2124 @0x11
0x2113…214e at0012 = ╱2d╱-╱ // 0x2125 @0x12
0x2113…214e at0013 = ╱2d╱-╱ // 0x2126 @0x13
0x2113…214e at0014 = ╱2d╱-╱ // 0x2127 @0x14
0x2113…214e at0015 = ╱2d╱-╱ // 0x2128 @0x15
0x2113…214e at0016 = ╱2d╱-╱ // 0x2129 @0x16
0x2113…214e at0017 = ╱2d╱-╱ // 0x212a @0x17
0x2113…214e at0018 = ╱2d╱-╱ // 0x212b @0x18
0x2113…214e at0019 = ╱2d╱-╱ // 0x212c @0x19
0x2113…214e at001a = ╱2d╱-╱ // 0x212d @0x1a
0x2113…214e at001b = ╱2d╱-╱ // 0x212e @0x1b
0x2113…214e at001c = ╱2d╱-╱ // 0x212f @0x1c
0x2113…214e at001d = ╱2d╱-╱ // 0x2130 @0x1d
0x2113…214e at001e = ╱2d╱-╱ // 0x2131 @0x1e
0x2113…214e at001f = ╱2d╱-╱ // 0x2132 @0x1f
0x2113…214e at0020 = ╱2d╱-╱ // 0x2133 @0x20
0x2113…214e at0021 = ╱2d╱-╱ // 0x2134 @0x21
0x2113…214e at0022 = ╱2d╱-╱ // 0x2135 @0x22
0x2113…214e at0023 = ╱2d╱-╱ // 0x2136 @0x23
0x2113…214e at0024 = ╱2d╱-╱ // 0x2137 @0x24
0x2113…214e at0025 = ╱2d╱-╱ // 0x2138 @0x25
0x2113…214e at0026 = ╱2d╱-╱ // 0x2139 @0x26
0x2113…214e at0027 = ╱2d╱-╱ // 0x213a @0x27
0x2113…214e at0028 = ╱2d╱-╱ // 0x213b @0x28
0x2113…214e at0029 = ╱2d╱-╱ // 0x213c @0x29
0x2113…214e at002a = ╱2d╱-╱ // 0x213d @0x2a
0x2113…214e at002b = ╱2d╱-╱ // 0x213e @0x2b
0x2113…214e at002c = ╱2d╱-╱ // 0x213f @0x2c
0x2113…214e at002d = ╱2d╱-╱ // 0x2140 @0x2d
0x2113…214e at002e = ╱2d╱-╱ // 0x2141 @0x2e
0x2113…214e at002f = ╱2d╱-╱ // 0x2142 @0x2f
0x2113…214e at0030 = ╱2d╱-╱ // 0x2143 @0x30
0x2113…214e at0031 = ╱2d╱-╱ // 0x2144 @0x31
0x2113…214e at0032 = ╱2d╱-╱ // 0x2145 @0x32
0x2113…214e at0033 = ╱2d╱-╱ // 0x2146 @0x33
0x2113…214e at0034 = ╱2d╱-╱ // 0x2147 @0x34
0x2113…214e at0035 = ╱2d╱-╱ // 0x2148 @0x35
0x2113…214e at0036 = ╱2d╱-╱ // 0x2149 @0x36
0x2113…214e at0037 = ╱2d╱-╱ // 0x214a @0x37
0x2113…214e at0038 = ╱2d╱-╱ // 0x214b @0x38
0x2113…214e at0039 = ╱22╱"╱ // 0x214c @0x39
0x2113…214e at003a = EOL // 0x214d @0x3a
0x2113…214e }
0x214e…2154 b742 02940 PRINT
0x214e…2154 LineComal80 {
0x214e…2154 ptr = 0xb742 // 0x214e @0x0
0x214e…2154 lno = 0x0b7c // 0x2150 @0x2
0x214e…2154 at0004 = ╱92╱ PRINT ╱ // 0x2152 @0x4
0x214e…2154 at0005 = EOL // 0x2153 @0x5
0x214e…2154 }
0x2154…2188 b776 02950 PRINT "…(1)…Varedebitorer………………………………………………………………:" ;
0x2154…2188 LineComal80 {
0x2154…2188 ptr = 0xb776 // 0x2154 @0x0
0x2154…2188 lno = 0x0b86 // 0x2156 @0x2
0x2154…2188 at0004 = ╱92╱ PRINT ╱ // 0x2158 @0x4
0x2154…2188 at0005 = ╱22╱"╱ // 0x2159 @0x5
0x2154…2188 at0006 = ╱20╱…╱ // 0x215a @0x6
0x2154…2188 at0007 = ╱28╱(╱ // 0x215b @0x7
0x2154…2188 at0008 = ╱31╱1╱ // 0x215c @0x8
0x2154…2188 at0009 = ╱29╱)╱ // 0x215d @0x9
0x2154…2188 at000a = ╱20╱…╱ // 0x215e @0xa
0x2154…2188 at000b = ╱56╱V╱ // 0x215f @0xb
0x2154…2188 at000c = ╱61╱a╱ // 0x2160 @0xc
0x2154…2188 at000d = ╱72╱r╱ // 0x2161 @0xd
0x2154…2188 at000e = ╱65╱e╱ // 0x2162 @0xe
0x2154…2188 at000f = ╱64╱d╱ // 0x2163 @0xf
0x2154…2188 at0010 = ╱65╱e╱ // 0x2164 @0x10
0x2154…2188 at0011 = ╱62╱b╱ // 0x2165 @0x11
0x2154…2188 at0012 = ╱69╱i╱ // 0x2166 @0x12
0x2154…2188 at0013 = ╱74╱t╱ // 0x2167 @0x13
0x2154…2188 at0014 = ╱6f╱o╱ // 0x2168 @0x14
0x2154…2188 at0015 = ╱72╱r╱ // 0x2169 @0x15
0x2154…2188 at0016 = ╱65╱e╱ // 0x216a @0x16
0x2154…2188 at0017 = ╱72╱r╱ // 0x216b @0x17
0x2154…2188 at0018 = ╱20╱…╱ // 0x216c @0x18
0x2154…2188 at0019 = ╱20╱…╱ // 0x216d @0x19
0x2154…2188 at001a = ╱20╱…╱ // 0x216e @0x1a
0x2154…2188 at001b = ╱20╱…╱ // 0x216f @0x1b
0x2154…2188 at001c = ╱20╱…╱ // 0x2170 @0x1c
0x2154…2188 at001d = ╱20╱…╱ // 0x2171 @0x1d
0x2154…2188 at001e = ╱20╱…╱ // 0x2172 @0x1e
0x2154…2188 at001f = ╱20╱…╱ // 0x2173 @0x1f
0x2154…2188 at0020 = ╱20╱…╱ // 0x2174 @0x20
0x2154…2188 at0021 = ╱20╱…╱ // 0x2175 @0x21
0x2154…2188 at0022 = ╱20╱…╱ // 0x2176 @0x22
0x2154…2188 at0023 = ╱20╱…╱ // 0x2177 @0x23
0x2154…2188 at0024 = ╱20╱…╱ // 0x2178 @0x24
0x2154…2188 at0025 = ╱20╱…╱ // 0x2179 @0x25
0x2154…2188 at0026 = ╱20╱…╱ // 0x217a @0x26
0x2154…2188 at0027 = ╱20╱…╱ // 0x217b @0x27
0x2154…2188 at0028 = ╱20╱…╱ // 0x217c @0x28
0x2154…2188 at0029 = ╱20╱…╱ // 0x217d @0x29
0x2154…2188 at002a = ╱20╱…╱ // 0x217e @0x2a
0x2154…2188 at002b = ╱20╱…╱ // 0x217f @0x2b
0x2154…2188 at002c = ╱20╱…╱ // 0x2180 @0x2c
0x2154…2188 at002d = ╱20╱…╱ // 0x2181 @0x2d
0x2154…2188 at002e = ╱20╱…╱ // 0x2182 @0x2e
0x2154…2188 at002f = ╱20╱…╱ // 0x2183 @0x2f
0x2154…2188 at0030 = ╱3a╱:╱ // 0x2184 @0x30
0x2154…2188 at0031 = ╱22╱"╱ // 0x2185 @0x31
0x2154…2188 at0032 = ╱ea╱ ; ╱ // 0x2186 @0x32
0x2154…2188 at0033 = EOL // 0x2187 @0x33
0x2154…2188 }
0x2188…21c2 b7b0 02960 PRINT USING "###.##…g" : S_OMS[TN * ( ( 100 + MOMS ) / 100 ) / S_DEBITO
0x2188…21c2 LineComal80 {
0x2188…21c2 ptr = 0xb7b0 // 0x2188 @0x0
0x2188…21c2 lno = 0x0b90 // 0x218a @0x2
0x2188…21c2 at0004 = ╱92╱ PRINT ╱ // 0x218c @0x4
0x2188…21c2 at0005 = ╱b9╱ USING ╱ // 0x218d @0x5
0x2188…21c2 at0006 = ╱22╱"╱ // 0x218e @0x6
0x2188…21c2 at0007 = ╱23╱#╱ // 0x218f @0x7
0x2188…21c2 at0008 = ╱23╱#╱ // 0x2190 @0x8
0x2188…21c2 at0009 = ╱23╱#╱ // 0x2191 @0x9
0x2188…21c2 at000a = ╱2e╱.╱ // 0x2192 @0xa
0x2188…21c2 at000b = ╱23╱#╱ // 0x2193 @0xb
0x2188…21c2 at000c = ╱23╱#╱ // 0x2194 @0xc
0x2188…21c2 at000d = ╱20╱…╱ // 0x2195 @0xd
0x2188…21c2 at000e = ╱67╱g╱ // 0x2196 @0xe
0x2188…21c2 at000f = ╱22╱"╱ // 0x2197 @0xf
0x2188…21c2 at0010 = ╱f1╱ : ╱ // 0x2198 @0x10
0x2188…21c2 at0011 = ╱53╱S╱ // 0x2199 @0x11
0x2188…21c2 at0012 = ╱5f╱_╱ // 0x219a @0x12
0x2188…21c2 at0013 = ╱4f╱O╱ // 0x219b @0x13
0x2188…21c2 at0014 = ╱4d╱M╱ // 0x219c @0x14
0x2188…21c2 at0015 = ╱53╱S╱ // 0x219d @0x15
0x2188…21c2 at0016 = ╱5b╱[╱ // 0x219e @0x16
0x2188…21c2 at0017 = ╱54╱T╱ // 0x219f @0x17
0x2188…21c2 at0018 = ╱4e╱N╱ // 0x21a0 @0x18
0x2188…21c2 at0019 = ╱e7╱ * ╱ // 0x21a1 @0x19
0x2188…21c2 at001a = ╱ed╱ ( ╱ // 0x21a2 @0x1a
0x2188…21c2 at001b = ╱ed╱ ( ╱ // 0x21a3 @0x1b
0x2188…21c2 at001c = ╱31╱1╱ // 0x21a4 @0x1c
0x2188…21c2 at001d = ╱30╱0╱ // 0x21a5 @0x1d
0x2188…21c2 at001e = ╱30╱0╱ // 0x21a6 @0x1e
0x2188…21c2 at001f = ╱f26400╱ // 0x21a7 @0x1f
0x2188…21c2 at0022 = ╱e5╱ + ╱ // 0x21aa @0x22
0x2188…21c2 at0023 = ╱4d╱M╱ // 0x21ab @0x23
0x2188…21c2 at0024 = ╱4f╱O╱ // 0x21ac @0x24
0x2188…21c2 at0025 = ╱4d╱M╱ // 0x21ad @0x25
0x2188…21c2 at0026 = ╱53╱S╱ // 0x21ae @0x26
0x2188…21c2 at0027 = ╱ee╱ ) ╱ // 0x21af @0x27
0x2188…21c2 at0028 = ╱e8╱ / ╱ // 0x21b0 @0x28
0x2188…21c2 at0029 = ╱31╱1╱ // 0x21b1 @0x29
0x2188…21c2 at002a = ╱30╱0╱ // 0x21b2 @0x2a
0x2188…21c2 at002b = ╱30╱0╱ // 0x21b3 @0x2b
0x2188…21c2 at002c = ╱f26400╱ // 0x21b4 @0x2c
0x2188…21c2 at002f = ╱ee╱ ) ╱ // 0x21b7 @0x2f
0x2188…21c2 at0030 = ╱e8╱ / ╱ // 0x21b8 @0x30
0x2188…21c2 at0031 = ╱53╱S╱ // 0x21b9 @0x31
0x2188…21c2 at0032 = ╱5f╱_╱ // 0x21ba @0x32
0x2188…21c2 at0033 = ╱44╱D╱ // 0x21bb @0x33
0x2188…21c2 at0034 = ╱45╱E╱ // 0x21bc @0x34
0x2188…21c2 at0035 = ╱42╱B╱ // 0x21bd @0x35
0x2188…21c2 at0036 = ╱49╱I╱ // 0x21be @0x36
0x2188…21c2 at0037 = ╱54╱T╱ // 0x21bf @0x37
0x2188…21c2 at0038 = ╱4f╱O╱ // 0x21c0 @0x38
0x2188…21c2 at0039 = EOL // 0x21c1 @0x39
0x2188…21c2 }
0x21c2…21c8 b7b6 02970 PRINT
0x21c2…21c8 LineComal80 {
0x21c2…21c8 ptr = 0xb7b6 // 0x21c2 @0x0
0x21c2…21c8 lno = 0x0b9a // 0x21c4 @0x2
0x21c2…21c8 at0004 = ╱92╱ PRINT ╱ // 0x21c6 @0x4
0x21c2…21c8 at0005 = EOL // 0x21c7 @0x5
0x21c2…21c8 }
0x21c8…21fc b7ea 02980 PRINT "…(2)…Varelager…………………………………………………………………………:" ;
0x21c8…21fc LineComal80 {
0x21c8…21fc ptr = 0xb7ea // 0x21c8 @0x0
0x21c8…21fc lno = 0x0ba4 // 0x21ca @0x2
0x21c8…21fc at0004 = ╱92╱ PRINT ╱ // 0x21cc @0x4
0x21c8…21fc at0005 = ╱22╱"╱ // 0x21cd @0x5
0x21c8…21fc at0006 = ╱20╱…╱ // 0x21ce @0x6
0x21c8…21fc at0007 = ╱28╱(╱ // 0x21cf @0x7
0x21c8…21fc at0008 = ╱32╱2╱ // 0x21d0 @0x8
0x21c8…21fc at0009 = ╱29╱)╱ // 0x21d1 @0x9
0x21c8…21fc at000a = ╱20╱…╱ // 0x21d2 @0xa
0x21c8…21fc at000b = ╱56╱V╱ // 0x21d3 @0xb
0x21c8…21fc at000c = ╱61╱a╱ // 0x21d4 @0xc
0x21c8…21fc at000d = ╱72╱r╱ // 0x21d5 @0xd
0x21c8…21fc at000e = ╱65╱e╱ // 0x21d6 @0xe
0x21c8…21fc at000f = ╱6c╱l╱ // 0x21d7 @0xf
0x21c8…21fc at0010 = ╱61╱a╱ // 0x21d8 @0x10
0x21c8…21fc at0011 = ╱67╱g╱ // 0x21d9 @0x11
0x21c8…21fc at0012 = ╱65╱e╱ // 0x21da @0x12
0x21c8…21fc at0013 = ╱72╱r╱ // 0x21db @0x13
0x21c8…21fc at0014 = ╱20╱…╱ // 0x21dc @0x14
0x21c8…21fc at0015 = ╱20╱…╱ // 0x21dd @0x15
0x21c8…21fc at0016 = ╱20╱…╱ // 0x21de @0x16
0x21c8…21fc at0017 = ╱20╱…╱ // 0x21df @0x17
0x21c8…21fc at0018 = ╱20╱…╱ // 0x21e0 @0x18
0x21c8…21fc at0019 = ╱20╱…╱ // 0x21e1 @0x19
0x21c8…21fc at001a = ╱20╱…╱ // 0x21e2 @0x1a
0x21c8…21fc at001b = ╱20╱…╱ // 0x21e3 @0x1b
0x21c8…21fc at001c = ╱20╱…╱ // 0x21e4 @0x1c
0x21c8…21fc at001d = ╱20╱…╱ // 0x21e5 @0x1d
0x21c8…21fc at001e = ╱20╱…╱ // 0x21e6 @0x1e
0x21c8…21fc at001f = ╱20╱…╱ // 0x21e7 @0x1f
0x21c8…21fc at0020 = ╱20╱…╱ // 0x21e8 @0x20
0x21c8…21fc at0021 = ╱20╱…╱ // 0x21e9 @0x21
0x21c8…21fc at0022 = ╱20╱…╱ // 0x21ea @0x22
0x21c8…21fc at0023 = ╱20╱…╱ // 0x21eb @0x23
0x21c8…21fc at0024 = ╱20╱…╱ // 0x21ec @0x24
0x21c8…21fc at0025 = ╱20╱…╱ // 0x21ed @0x25
0x21c8…21fc at0026 = ╱20╱…╱ // 0x21ee @0x26
0x21c8…21fc at0027 = ╱20╱…╱ // 0x21ef @0x27
0x21c8…21fc at0028 = ╱20╱…╱ // 0x21f0 @0x28
0x21c8…21fc at0029 = ╱20╱…╱ // 0x21f1 @0x29
0x21c8…21fc at002a = ╱20╱…╱ // 0x21f2 @0x2a
0x21c8…21fc at002b = ╱20╱…╱ // 0x21f3 @0x2b
0x21c8…21fc at002c = ╱20╱…╱ // 0x21f4 @0x2c
0x21c8…21fc at002d = ╱20╱…╱ // 0x21f5 @0x2d
0x21c8…21fc at002e = ╱20╱…╱ // 0x21f6 @0x2e
0x21c8…21fc at002f = ╱20╱…╱ // 0x21f7 @0x2f
0x21c8…21fc at0030 = ╱3a╱:╱ // 0x21f8 @0x30
0x21c8…21fc at0031 = ╱22╱"╱ // 0x21f9 @0x31
0x21c8…21fc at0032 = ╱ea╱ ; ╱ // 0x21fa @0x32
0x21c8…21fc at0033 = EOL // 0x21fb @0x33
0x21c8…21fc }
0x21fc…2222 b810 02990 PRINT USING "###.##…g" : ABS ( S_VAREFO ) / S_VARELA
0x21fc…2222 LineComal80 {
0x21fc…2222 ptr = 0xb810 // 0x21fc @0x0
0x21fc…2222 lno = 0x0bae // 0x21fe @0x2
0x21fc…2222 at0004 = ╱92╱ PRINT ╱ // 0x2200 @0x4
0x21fc…2222 at0005 = ╱b9╱ USING ╱ // 0x2201 @0x5
0x21fc…2222 at0006 = ╱22╱"╱ // 0x2202 @0x6
0x21fc…2222 at0007 = ╱23╱#╱ // 0x2203 @0x7
0x21fc…2222 at0008 = ╱23╱#╱ // 0x2204 @0x8
0x21fc…2222 at0009 = ╱23╱#╱ // 0x2205 @0x9
0x21fc…2222 at000a = ╱2e╱.╱ // 0x2206 @0xa
0x21fc…2222 at000b = ╱23╱#╱ // 0x2207 @0xb
0x21fc…2222 at000c = ╱23╱#╱ // 0x2208 @0xc
0x21fc…2222 at000d = ╱20╱…╱ // 0x2209 @0xd
0x21fc…2222 at000e = ╱67╱g╱ // 0x220a @0xe
0x21fc…2222 at000f = ╱22╱"╱ // 0x220b @0xf
0x21fc…2222 at0010 = ╱f1╱ : ╱ // 0x220c @0x10
0x21fc…2222 at0011 = ╱c4╱ ABS ╱ // 0x220d @0x11
0x21fc…2222 at0012 = ╱ed╱ ( ╱ // 0x220e @0x12
0x21fc…2222 at0013 = ╱53╱S╱ // 0x220f @0x13
0x21fc…2222 at0014 = ╱5f╱_╱ // 0x2210 @0x14
0x21fc…2222 at0015 = ╱56╱V╱ // 0x2211 @0x15
0x21fc…2222 at0016 = ╱41╱A╱ // 0x2212 @0x16
0x21fc…2222 at0017 = ╱52╱R╱ // 0x2213 @0x17
0x21fc…2222 at0018 = ╱45╱E╱ // 0x2214 @0x18
0x21fc…2222 at0019 = ╱46╱F╱ // 0x2215 @0x19
0x21fc…2222 at001a = ╱4f╱O╱ // 0x2216 @0x1a
0x21fc…2222 at001b = ╱ee╱ ) ╱ // 0x2217 @0x1b
0x21fc…2222 at001c = ╱e8╱ / ╱ // 0x2218 @0x1c
0x21fc…2222 at001d = ╱53╱S╱ // 0x2219 @0x1d
0x21fc…2222 at001e = ╱5f╱_╱ // 0x221a @0x1e
0x21fc…2222 at001f = ╱56╱V╱ // 0x221b @0x1f
0x21fc…2222 at0020 = ╱41╱A╱ // 0x221c @0x20
0x21fc…2222 at0021 = ╱52╱R╱ // 0x221d @0x21
0x21fc…2222 at0022 = ╱45╱E╱ // 0x221e @0x22
0x21fc…2222 at0023 = ╱4c╱L╱ // 0x221f @0x23
0x21fc…2222 at0024 = ╱41╱A╱ // 0x2220 @0x24
0x21fc…2222 at0025 = EOL // 0x2221 @0x25
0x21fc…2222 }
0x2222…2228 b816 03000 PRINT
0x2222…2228 LineComal80 {
0x2222…2228 ptr = 0xb816 // 0x2222 @0x0
0x2222…2228 lno = 0x0bb8 // 0x2224 @0x2
0x2222…2228 at0004 = ╱92╱ PRINT ╱ // 0x2226 @0x4
0x2222…2228 at0005 = EOL // 0x2227 @0x5
0x2222…2228 }
0x2228…225c b84a 03010 PRINT "…(3)…Varekreditorer……………………………………………………………:" ;
0x2228…225c LineComal80 {
0x2228…225c ptr = 0xb84a // 0x2228 @0x0
0x2228…225c lno = 0x0bc2 // 0x222a @0x2
0x2228…225c at0004 = ╱92╱ PRINT ╱ // 0x222c @0x4
0x2228…225c at0005 = ╱22╱"╱ // 0x222d @0x5
0x2228…225c at0006 = ╱20╱…╱ // 0x222e @0x6
0x2228…225c at0007 = ╱28╱(╱ // 0x222f @0x7
0x2228…225c at0008 = ╱33╱3╱ // 0x2230 @0x8
0x2228…225c at0009 = ╱29╱)╱ // 0x2231 @0x9
0x2228…225c at000a = ╱20╱…╱ // 0x2232 @0xa
0x2228…225c at000b = ╱56╱V╱ // 0x2233 @0xb
0x2228…225c at000c = ╱61╱a╱ // 0x2234 @0xc
0x2228…225c at000d = ╱72╱r╱ // 0x2235 @0xd
0x2228…225c at000e = ╱65╱e╱ // 0x2236 @0xe
0x2228…225c at000f = ╱6b╱k╱ // 0x2237 @0xf
0x2228…225c at0010 = ╱72╱r╱ // 0x2238 @0x10
0x2228…225c at0011 = ╱65╱e╱ // 0x2239 @0x11
0x2228…225c at0012 = ╱64╱d╱ // 0x223a @0x12
0x2228…225c at0013 = ╱69╱i╱ // 0x223b @0x13
0x2228…225c at0014 = ╱74╱t╱ // 0x223c @0x14
0x2228…225c at0015 = ╱6f╱o╱ // 0x223d @0x15
0x2228…225c at0016 = ╱72╱r╱ // 0x223e @0x16
0x2228…225c at0017 = ╱65╱e╱ // 0x223f @0x17
0x2228…225c at0018 = ╱72╱r╱ // 0x2240 @0x18
0x2228…225c at0019 = ╱20╱…╱ // 0x2241 @0x19
0x2228…225c at001a = ╱20╱…╱ // 0x2242 @0x1a
0x2228…225c at001b = ╱20╱…╱ // 0x2243 @0x1b
0x2228…225c at001c = ╱20╱…╱ // 0x2244 @0x1c
0x2228…225c at001d = ╱20╱…╱ // 0x2245 @0x1d
0x2228…225c at001e = ╱20╱…╱ // 0x2246 @0x1e
0x2228…225c at001f = ╱20╱…╱ // 0x2247 @0x1f
0x2228…225c at0020 = ╱20╱…╱ // 0x2248 @0x20
0x2228…225c at0021 = ╱20╱…╱ // 0x2249 @0x21
0x2228…225c at0022 = ╱20╱…╱ // 0x224a @0x22
0x2228…225c at0023 = ╱20╱…╱ // 0x224b @0x23
0x2228…225c at0024 = ╱20╱…╱ // 0x224c @0x24
0x2228…225c at0025 = ╱20╱…╱ // 0x224d @0x25
0x2228…225c at0026 = ╱20╱…╱ // 0x224e @0x26
0x2228…225c at0027 = ╱20╱…╱ // 0x224f @0x27
0x2228…225c at0028 = ╱20╱…╱ // 0x2250 @0x28
0x2228…225c at0029 = ╱20╱…╱ // 0x2251 @0x29
0x2228…225c at002a = ╱20╱…╱ // 0x2252 @0x2a
0x2228…225c at002b = ╱20╱…╱ // 0x2253 @0x2b
0x2228…225c at002c = ╱20╱…╱ // 0x2254 @0x2c
0x2228…225c at002d = ╱20╱…╱ // 0x2255 @0x2d
0x2228…225c at002e = ╱20╱…╱ // 0x2256 @0x2e
0x2228…225c at002f = ╱20╱…╱ // 0x2257 @0x2f
0x2228…225c at0030 = ╱3a╱:╱ // 0x2258 @0x30
0x2228…225c at0031 = ╱22╱"╱ // 0x2259 @0x31
0x2228…225c at0032 = ╱ea╱ ; ╱ // 0x225a @0x32
0x2228…225c at0033 = EOL // 0x225b @0x33
0x2228…225c }
0x225c…22a4 b892 03020 LET VAREK\B := ( ABS ( S_VAREFO ) + ( S_VARELA - S_VARELA_P ) ) * ( ( 100 + MOMS ) / 100 )
0x225c…22a4 LineComal80 {
0x225c…22a4 ptr = 0xb892 // 0x225c @0x0
0x225c…22a4 lno = 0x0bcc // 0x225e @0x2
0x225c…22a4 at0004 = ╱86╱ LET ╱ // 0x2260 @0x4
0x225c…22a4 at0005 = ╱56╱V╱ // 0x2261 @0x5
0x225c…22a4 at0006 = ╱41╱A╱ // 0x2262 @0x6
0x225c…22a4 at0007 = ╱52╱R╱ // 0x2263 @0x7
0x225c…22a4 at0008 = ╱45╱E╱ // 0x2264 @0x8
0x225c…22a4 at0009 = ╱4b╱K╱ // 0x2265 @0x9
0x225c…22a4 at000a = ╱5c╱\╱ // 0x2266 @0xa
0x225c…22a4 at000b = ╱42╱B╱ // 0x2267 @0xb
0x225c…22a4 at000c = ╱f0╱ := ╱ // 0x2268 @0xc
0x225c…22a4 at000d = ╱ed╱ ( ╱ // 0x2269 @0xd
0x225c…22a4 at000e = ╱c4╱ ABS ╱ // 0x226a @0xe
0x225c…22a4 at000f = ╱ed╱ ( ╱ // 0x226b @0xf
0x225c…22a4 at0010 = ╱53╱S╱ // 0x226c @0x10
0x225c…22a4 at0011 = ╱5f╱_╱ // 0x226d @0x11
0x225c…22a4 at0012 = ╱56╱V╱ // 0x226e @0x12
0x225c…22a4 at0013 = ╱41╱A╱ // 0x226f @0x13
0x225c…22a4 at0014 = ╱52╱R╱ // 0x2270 @0x14
0x225c…22a4 at0015 = ╱45╱E╱ // 0x2271 @0x15
0x225c…22a4 at0016 = ╱46╱F╱ // 0x2272 @0x16
0x225c…22a4 at0017 = ╱4f╱O╱ // 0x2273 @0x17
0x225c…22a4 at0018 = ╱ee╱ ) ╱ // 0x2274 @0x18
0x225c…22a4 at0019 = ╱e5╱ + ╱ // 0x2275 @0x19
0x225c…22a4 at001a = ╱ed╱ ( ╱ // 0x2276 @0x1a
0x225c…22a4 at001b = ╱53╱S╱ // 0x2277 @0x1b
0x225c…22a4 at001c = ╱5f╱_╱ // 0x2278 @0x1c
0x225c…22a4 at001d = ╱56╱V╱ // 0x2279 @0x1d
0x225c…22a4 at001e = ╱41╱A╱ // 0x227a @0x1e
0x225c…22a4 at001f = ╱52╱R╱ // 0x227b @0x1f
0x225c…22a4 at0020 = ╱45╱E╱ // 0x227c @0x20
0x225c…22a4 at0021 = ╱4c╱L╱ // 0x227d @0x21
0x225c…22a4 at0022 = ╱41╱A╱ // 0x227e @0x22
0x225c…22a4 at0023 = ╱e6╱ - ╱ // 0x227f @0x23
0x225c…22a4 at0024 = ╱53╱S╱ // 0x2280 @0x24
0x225c…22a4 at0025 = ╱5f╱_╱ // 0x2281 @0x25
0x225c…22a4 at0026 = ╱56╱V╱ // 0x2282 @0x26
0x225c…22a4 at0027 = ╱41╱A╱ // 0x2283 @0x27
0x225c…22a4 at0028 = ╱52╱R╱ // 0x2284 @0x28
0x225c…22a4 at0029 = ╱45╱E╱ // 0x2285 @0x29
0x225c…22a4 at002a = ╱4c╱L╱ // 0x2286 @0x2a
0x225c…22a4 at002b = ╱41╱A╱ // 0x2287 @0x2b
0x225c…22a4 at002c = ╱5f╱_╱ // 0x2288 @0x2c
0x225c…22a4 at002d = ╱50╱P╱ // 0x2289 @0x2d
0x225c…22a4 at002e = ╱ee╱ ) ╱ // 0x228a @0x2e
0x225c…22a4 at002f = ╱ee╱ ) ╱ // 0x228b @0x2f
0x225c…22a4 at0030 = ╱e7╱ * ╱ // 0x228c @0x30
0x225c…22a4 at0031 = ╱ed╱ ( ╱ // 0x228d @0x31
0x225c…22a4 at0032 = ╱ed╱ ( ╱ // 0x228e @0x32
0x225c…22a4 at0033 = ╱31╱1╱ // 0x228f @0x33
0x225c…22a4 at0034 = ╱30╱0╱ // 0x2290 @0x34
0x225c…22a4 at0035 = ╱30╱0╱ // 0x2291 @0x35
0x225c…22a4 at0036 = ╱f26400╱ // 0x2292 @0x36
0x225c…22a4 at0039 = ╱e5╱ + ╱ // 0x2295 @0x39
0x225c…22a4 at003a = ╱4d╱M╱ // 0x2296 @0x3a
0x225c…22a4 at003b = ╱4f╱O╱ // 0x2297 @0x3b
0x225c…22a4 at003c = ╱4d╱M╱ // 0x2298 @0x3c
0x225c…22a4 at003d = ╱53╱S╱ // 0x2299 @0x3d
0x225c…22a4 at003e = ╱ee╱ ) ╱ // 0x229a @0x3e
0x225c…22a4 at003f = ╱e8╱ / ╱ // 0x229b @0x3f
0x225c…22a4 at0040 = ╱31╱1╱ // 0x229c @0x40
0x225c…22a4 at0041 = ╱30╱0╱ // 0x229d @0x41
0x225c…22a4 at0042 = ╱30╱0╱ // 0x229e @0x42
0x225c…22a4 at0043 = ╱f26400╱ // 0x229f @0x43
0x225c…22a4 at0046 = ╱ee╱ ) ╱ // 0x22a2 @0x46
0x225c…22a4 at0047 = EOL // 0x22a3 @0x47
0x225c…22a4 }
0x22a4…22c6 b8b4 03030 PRINT USING "###.##…g" : VAREK\B / S_KREDIT
0x22a4…22c6 LineComal80 {
0x22a4…22c6 ptr = 0xb8b4 // 0x22a4 @0x0
0x22a4…22c6 lno = 0x0bd6 // 0x22a6 @0x2
0x22a4…22c6 at0004 = ╱92╱ PRINT ╱ // 0x22a8 @0x4
0x22a4…22c6 at0005 = ╱b9╱ USING ╱ // 0x22a9 @0x5
0x22a4…22c6 at0006 = ╱22╱"╱ // 0x22aa @0x6
0x22a4…22c6 at0007 = ╱23╱#╱ // 0x22ab @0x7
0x22a4…22c6 at0008 = ╱23╱#╱ // 0x22ac @0x8
0x22a4…22c6 at0009 = ╱23╱#╱ // 0x22ad @0x9
0x22a4…22c6 at000a = ╱2e╱.╱ // 0x22ae @0xa
0x22a4…22c6 at000b = ╱23╱#╱ // 0x22af @0xb
0x22a4…22c6 at000c = ╱23╱#╱ // 0x22b0 @0xc
0x22a4…22c6 at000d = ╱20╱…╱ // 0x22b1 @0xd
0x22a4…22c6 at000e = ╱67╱g╱ // 0x22b2 @0xe
0x22a4…22c6 at000f = ╱22╱"╱ // 0x22b3 @0xf
0x22a4…22c6 at0010 = ╱f1╱ : ╱ // 0x22b4 @0x10
0x22a4…22c6 at0011 = ╱56╱V╱ // 0x22b5 @0x11
0x22a4…22c6 at0012 = ╱41╱A╱ // 0x22b6 @0x12
0x22a4…22c6 at0013 = ╱52╱R╱ // 0x22b7 @0x13
0x22a4…22c6 at0014 = ╱45╱E╱ // 0x22b8 @0x14
0x22a4…22c6 at0015 = ╱4b╱K╱ // 0x22b9 @0x15
0x22a4…22c6 at0016 = ╱5c╱\╱ // 0x22ba @0x16
0x22a4…22c6 at0017 = ╱42╱B╱ // 0x22bb @0x17
0x22a4…22c6 at0018 = ╱e8╱ / ╱ // 0x22bc @0x18
0x22a4…22c6 at0019 = ╱53╱S╱ // 0x22bd @0x19
0x22a4…22c6 at001a = ╱5f╱_╱ // 0x22be @0x1a
0x22a4…22c6 at001b = ╱4b╱K╱ // 0x22bf @0x1b
0x22a4…22c6 at001c = ╱52╱R╱ // 0x22c0 @0x1c
0x22a4…22c6 at001d = ╱45╱E╱ // 0x22c1 @0x1d
0x22a4…22c6 at001e = ╱44╱D╱ // 0x22c2 @0x1e
0x22a4…22c6 at001f = ╱49╱I╱ // 0x22c3 @0x1f
0x22a4…22c6 at0020 = ╱54╱T╱ // 0x22c4 @0x20
0x22a4…22c6 at0021 = EOL // 0x22c5 @0x21
0x22a4…22c6 }
0x22c6…22cc b8ba 03040 PRINT
0x22c6…22cc LineComal80 {
0x22c6…22cc ptr = 0xb8ba // 0x22c6 @0x0
0x22c6…22cc lno = 0x0be0 // 0x22c8 @0x2
0x22c6…22cc at0004 = ╱92╱ PRINT ╱ // 0x22ca @0x4
0x22c6…22cc at0005 = EOL // 0x22cb @0x5
0x22c6…22cc }
0x22cc…22d2 b8c0 03050 PRINT
0x22cc…22d2 LineComal80 {
0x22cc…22d2 ptr = 0xb8c0 // 0x22cc @0x0
0x22cc…22d2 lno = 0x0bea // 0x22ce @0x2
0x22cc…22d2 at0004 = ╱92╱ PRINT ╱ // 0x22d0 @0x4
0x22cc…22d2 at0005 = EOL // 0x22d1 @0x5
0x22cc…22d2 }
0x22d2…230b b8f9 03060 PRINT "****…K…R…E…D…I…T…-………O…G………L…A…G…E…R…D…A…G…E…****"
0x22d2…230b LineComal80 {
0x22d2…230b ptr = 0xb8f9 // 0x22d2 @0x0
0x22d2…230b lno = 0x0bf4 // 0x22d4 @0x2
0x22d2…230b at0004 = ╱92╱ PRINT ╱ // 0x22d6 @0x4
0x22d2…230b at0005 = ╱22╱"╱ // 0x22d7 @0x5
0x22d2…230b at0006 = ╱2a╱*╱ // 0x22d8 @0x6
0x22d2…230b at0007 = ╱2a╱*╱ // 0x22d9 @0x7
0x22d2…230b at0008 = ╱2a╱*╱ // 0x22da @0x8
0x22d2…230b at0009 = ╱2a╱*╱ // 0x22db @0x9
0x22d2…230b at000a = ╱20╱…╱ // 0x22dc @0xa
0x22d2…230b at000b = ╱4b╱K╱ // 0x22dd @0xb
0x22d2…230b at000c = ╱20╱…╱ // 0x22de @0xc
0x22d2…230b at000d = ╱52╱R╱ // 0x22df @0xd
0x22d2…230b at000e = ╱20╱…╱ // 0x22e0 @0xe
0x22d2…230b at000f = ╱45╱E╱ // 0x22e1 @0xf
0x22d2…230b at0010 = ╱20╱…╱ // 0x22e2 @0x10
0x22d2…230b at0011 = ╱44╱D╱ // 0x22e3 @0x11
0x22d2…230b at0012 = ╱20╱…╱ // 0x22e4 @0x12
0x22d2…230b at0013 = ╱49╱I╱ // 0x22e5 @0x13
0x22d2…230b at0014 = ╱20╱…╱ // 0x22e6 @0x14
0x22d2…230b at0015 = ╱54╱T╱ // 0x22e7 @0x15
0x22d2…230b at0016 = ╱20╱…╱ // 0x22e8 @0x16
0x22d2…230b at0017 = ╱2d╱-╱ // 0x22e9 @0x17
0x22d2…230b at0018 = ╱20╱…╱ // 0x22ea @0x18
0x22d2…230b at0019 = ╱20╱…╱ // 0x22eb @0x19
0x22d2…230b at001a = ╱20╱…╱ // 0x22ec @0x1a
0x22d2…230b at001b = ╱4f╱O╱ // 0x22ed @0x1b
0x22d2…230b at001c = ╱20╱…╱ // 0x22ee @0x1c
0x22d2…230b at001d = ╱47╱G╱ // 0x22ef @0x1d
0x22d2…230b at001e = ╱20╱…╱ // 0x22f0 @0x1e
0x22d2…230b at001f = ╱20╱…╱ // 0x22f1 @0x1f
0x22d2…230b at0020 = ╱20╱…╱ // 0x22f2 @0x20
0x22d2…230b at0021 = ╱4c╱L╱ // 0x22f3 @0x21
0x22d2…230b at0022 = ╱20╱…╱ // 0x22f4 @0x22
0x22d2…230b at0023 = ╱41╱A╱ // 0x22f5 @0x23
0x22d2…230b at0024 = ╱20╱…╱ // 0x22f6 @0x24
0x22d2…230b at0025 = ╱47╱G╱ // 0x22f7 @0x25
0x22d2…230b at0026 = ╱20╱…╱ // 0x22f8 @0x26
0x22d2…230b at0027 = ╱45╱E╱ // 0x22f9 @0x27
0x22d2…230b at0028 = ╱20╱…╱ // 0x22fa @0x28
0x22d2…230b at0029 = ╱52╱R╱ // 0x22fb @0x29
0x22d2…230b at002a = ╱20╱…╱ // 0x22fc @0x2a
0x22d2…230b at002b = ╱44╱D╱ // 0x22fd @0x2b
0x22d2…230b at002c = ╱20╱…╱ // 0x22fe @0x2c
0x22d2…230b at002d = ╱41╱A╱ // 0x22ff @0x2d
0x22d2…230b at002e = ╱20╱…╱ // 0x2300 @0x2e
0x22d2…230b at002f = ╱47╱G╱ // 0x2301 @0x2f
0x22d2…230b at0030 = ╱20╱…╱ // 0x2302 @0x30
0x22d2…230b at0031 = ╱45╱E╱ // 0x2303 @0x31
0x22d2…230b at0032 = ╱20╱…╱ // 0x2304 @0x32
0x22d2…230b at0033 = ╱2a╱*╱ // 0x2305 @0x33
0x22d2…230b at0034 = ╱2a╱*╱ // 0x2306 @0x34
0x22d2…230b at0035 = ╱2a╱*╱ // 0x2307 @0x35
0x22d2…230b at0036 = ╱2a╱*╱ // 0x2308 @0x36
0x22d2…230b at0037 = ╱22╱"╱ // 0x2309 @0x37
0x22d2…230b at0038 = EOL // 0x230a @0x38
0x22d2…230b }
0x230b…2344 b932 03070 PRINT "-------------------------------------------------"
0x230b…2344 LineComal80 {
0x230b…2344 ptr = 0xb932 // 0x230b @0x0
0x230b…2344 lno = 0x0bfe // 0x230d @0x2
0x230b…2344 at0004 = ╱92╱ PRINT ╱ // 0x230f @0x4
0x230b…2344 at0005 = ╱22╱"╱ // 0x2310 @0x5
0x230b…2344 at0006 = ╱2d╱-╱ // 0x2311 @0x6
0x230b…2344 at0007 = ╱2d╱-╱ // 0x2312 @0x7
0x230b…2344 at0008 = ╱2d╱-╱ // 0x2313 @0x8
0x230b…2344 at0009 = ╱2d╱-╱ // 0x2314 @0x9
0x230b…2344 at000a = ╱2d╱-╱ // 0x2315 @0xa
0x230b…2344 at000b = ╱2d╱-╱ // 0x2316 @0xb
0x230b…2344 at000c = ╱2d╱-╱ // 0x2317 @0xc
0x230b…2344 at000d = ╱2d╱-╱ // 0x2318 @0xd
0x230b…2344 at000e = ╱2d╱-╱ // 0x2319 @0xe
0x230b…2344 at000f = ╱2d╱-╱ // 0x231a @0xf
0x230b…2344 at0010 = ╱2d╱-╱ // 0x231b @0x10
0x230b…2344 at0011 = ╱2d╱-╱ // 0x231c @0x11
0x230b…2344 at0012 = ╱2d╱-╱ // 0x231d @0x12
0x230b…2344 at0013 = ╱2d╱-╱ // 0x231e @0x13
0x230b…2344 at0014 = ╱2d╱-╱ // 0x231f @0x14
0x230b…2344 at0015 = ╱2d╱-╱ // 0x2320 @0x15
0x230b…2344 at0016 = ╱2d╱-╱ // 0x2321 @0x16
0x230b…2344 at0017 = ╱2d╱-╱ // 0x2322 @0x17
0x230b…2344 at0018 = ╱2d╱-╱ // 0x2323 @0x18
0x230b…2344 at0019 = ╱2d╱-╱ // 0x2324 @0x19
0x230b…2344 at001a = ╱2d╱-╱ // 0x2325 @0x1a
0x230b…2344 at001b = ╱2d╱-╱ // 0x2326 @0x1b
0x230b…2344 at001c = ╱2d╱-╱ // 0x2327 @0x1c
0x230b…2344 at001d = ╱2d╱-╱ // 0x2328 @0x1d
0x230b…2344 at001e = ╱2d╱-╱ // 0x2329 @0x1e
0x230b…2344 at001f = ╱2d╱-╱ // 0x232a @0x1f
0x230b…2344 at0020 = ╱2d╱-╱ // 0x232b @0x20
0x230b…2344 at0021 = ╱2d╱-╱ // 0x232c @0x21
0x230b…2344 at0022 = ╱2d╱-╱ // 0x232d @0x22
0x230b…2344 at0023 = ╱2d╱-╱ // 0x232e @0x23
0x230b…2344 at0024 = ╱2d╱-╱ // 0x232f @0x24
0x230b…2344 at0025 = ╱2d╱-╱ // 0x2330 @0x25
0x230b…2344 at0026 = ╱2d╱-╱ // 0x2331 @0x26
0x230b…2344 at0027 = ╱2d╱-╱ // 0x2332 @0x27
0x230b…2344 at0028 = ╱2d╱-╱ // 0x2333 @0x28
0x230b…2344 at0029 = ╱2d╱-╱ // 0x2334 @0x29
0x230b…2344 at002a = ╱2d╱-╱ // 0x2335 @0x2a
0x230b…2344 at002b = ╱2d╱-╱ // 0x2336 @0x2b
0x230b…2344 at002c = ╱2d╱-╱ // 0x2337 @0x2c
0x230b…2344 at002d = ╱2d╱-╱ // 0x2338 @0x2d
0x230b…2344 at002e = ╱2d╱-╱ // 0x2339 @0x2e
0x230b…2344 at002f = ╱2d╱-╱ // 0x233a @0x2f
0x230b…2344 at0030 = ╱2d╱-╱ // 0x233b @0x30
0x230b…2344 at0031 = ╱2d╱-╱ // 0x233c @0x31
0x230b…2344 at0032 = ╱2d╱-╱ // 0x233d @0x32
0x230b…2344 at0033 = ╱2d╱-╱ // 0x233e @0x33
0x230b…2344 at0034 = ╱2d╱-╱ // 0x233f @0x34
0x230b…2344 at0035 = ╱2d╱-╱ // 0x2340 @0x35
0x230b…2344 at0036 = ╱2d╱-╱ // 0x2341 @0x36
0x230b…2344 at0037 = ╱22╱"╱ // 0x2342 @0x37
0x230b…2344 at0038 = EOL // 0x2343 @0x38
0x230b…2344 }
0x2344…234a b938 03080 PRINT
0x2344…234a LineComal80 {
0x2344…234a ptr = 0xb938 // 0x2344 @0x0
0x2344…234a lno = 0x0c08 // 0x2346 @0x2
0x2344…234a at0004 = ╱92╱ PRINT ╱ // 0x2348 @0x4
0x2344…234a at0005 = EOL // 0x2349 @0x5
0x2344…234a }
0x234a…237e b96c 03090 PRINT "…(1)…Varedebitorer………………………………………………………………:" ;
0x234a…237e LineComal80 {
0x234a…237e ptr = 0xb96c // 0x234a @0x0
0x234a…237e lno = 0x0c12 // 0x234c @0x2
0x234a…237e at0004 = ╱92╱ PRINT ╱ // 0x234e @0x4
0x234a…237e at0005 = ╱22╱"╱ // 0x234f @0x5
0x234a…237e at0006 = ╱20╱…╱ // 0x2350 @0x6
0x234a…237e at0007 = ╱28╱(╱ // 0x2351 @0x7
0x234a…237e at0008 = ╱31╱1╱ // 0x2352 @0x8
0x234a…237e at0009 = ╱29╱)╱ // 0x2353 @0x9
0x234a…237e at000a = ╱20╱…╱ // 0x2354 @0xa
0x234a…237e at000b = ╱56╱V╱ // 0x2355 @0xb
0x234a…237e at000c = ╱61╱a╱ // 0x2356 @0xc
0x234a…237e at000d = ╱72╱r╱ // 0x2357 @0xd
0x234a…237e at000e = ╱65╱e╱ // 0x2358 @0xe
0x234a…237e at000f = ╱64╱d╱ // 0x2359 @0xf
0x234a…237e at0010 = ╱65╱e╱ // 0x235a @0x10
0x234a…237e at0011 = ╱62╱b╱ // 0x235b @0x11
0x234a…237e at0012 = ╱69╱i╱ // 0x235c @0x12
0x234a…237e at0013 = ╱74╱t╱ // 0x235d @0x13
0x234a…237e at0014 = ╱6f╱o╱ // 0x235e @0x14
0x234a…237e at0015 = ╱72╱r╱ // 0x235f @0x15
0x234a…237e at0016 = ╱65╱e╱ // 0x2360 @0x16
0x234a…237e at0017 = ╱72╱r╱ // 0x2361 @0x17
0x234a…237e at0018 = ╱20╱…╱ // 0x2362 @0x18
0x234a…237e at0019 = ╱20╱…╱ // 0x2363 @0x19
0x234a…237e at001a = ╱20╱…╱ // 0x2364 @0x1a
0x234a…237e at001b = ╱20╱…╱ // 0x2365 @0x1b
0x234a…237e at001c = ╱20╱…╱ // 0x2366 @0x1c
0x234a…237e at001d = ╱20╱…╱ // 0x2367 @0x1d
0x234a…237e at001e = ╱20╱…╱ // 0x2368 @0x1e
0x234a…237e at001f = ╱20╱…╱ // 0x2369 @0x1f
0x234a…237e at0020 = ╱20╱…╱ // 0x236a @0x20
0x234a…237e at0021 = ╱20╱…╱ // 0x236b @0x21
0x234a…237e at0022 = ╱20╱…╱ // 0x236c @0x22
0x234a…237e at0023 = ╱20╱…╱ // 0x236d @0x23
0x234a…237e at0024 = ╱20╱…╱ // 0x236e @0x24
0x234a…237e at0025 = ╱20╱…╱ // 0x236f @0x25
0x234a…237e at0026 = ╱20╱…╱ // 0x2370 @0x26
0x234a…237e at0027 = ╱20╱…╱ // 0x2371 @0x27
0x234a…237e at0028 = ╱20╱…╱ // 0x2372 @0x28
0x234a…237e at0029 = ╱20╱…╱ // 0x2373 @0x29
0x234a…237e at002a = ╱20╱…╱ // 0x2374 @0x2a
0x234a…237e at002b = ╱20╱…╱ // 0x2375 @0x2b
0x234a…237e at002c = ╱20╱…╱ // 0x2376 @0x2c
0x234a…237e at002d = ╱20╱…╱ // 0x2377 @0x2d
0x234a…237e at002e = ╱20╱…╱ // 0x2378 @0x2e
0x234a…237e at002f = ╱20╱…╱ // 0x2379 @0x2f
0x234a…237e at0030 = ╱3a╱:╱ // 0x237a @0x30
0x234a…237e at0031 = ╱22╱"╱ // 0x237b @0x31
0x234a…237e at0032 = ╱ea╱ ; ╱ // 0x237c @0x32
0x234a…237e at0033 = EOL // 0x237d @0x33
0x234a…237e }
0x237e…23c2 (118,) b9b0 03100 PRINT USING "####.#…dg" : S_DEBITO * 360 / ( S_OMS[TN * ( ( 100 + MOMS ) / 100 ) )
0x237e…23c2 LineComal80 {
0x237e…23c2 ptr = 0xb9b0 // 0x237e @0x0
0x237e…23c2 lno = 0x0c1c // 0x2380 @0x2
0x237e…23c2 at0004 = ╱92╱ PRINT ╱ // 0x2382 @0x4
0x237e…23c2 at0005 = ╱b9╱ USING ╱ // 0x2383 @0x5
0x237e…23c2 at0006 = ╱22╱"╱ // 0x2384 @0x6
0x237e…23c2 at0007 = ╱23╱#╱ // 0x2385 @0x7
0x237e…23c2 at0008 = ╱23╱#╱ // 0x2386 @0x8
0x237e…23c2 at0009 = ╱23╱#╱ // 0x2387 @0x9
0x237e…23c2 at000a = ╱23╱#╱ // 0x2388 @0xa
0x237e…23c2 at000b = ╱2e╱.╱ // 0x2389 @0xb
0x237e…23c2 at000c = ╱23╱#╱ // 0x238a @0xc
0x237e…23c2 at000d = ╱20╱…╱ // 0x238b @0xd
0x237e…23c2 at000e = ╱64╱d╱ // 0x238c @0xe
0x237e…23c2 at000f = ╱67╱g╱ // 0x238d @0xf
0x237e…23c2 at0010 = ╱22╱"╱ // 0x238e @0x10
0x237e…23c2 at0011 = ╱f1╱ : ╱ // 0x238f @0x11
0x237e…23c2 at0012 = ╱53╱S╱ // 0x2390 @0x12
0x237e…23c2 at0013 = ╱5f╱_╱ // 0x2391 @0x13
0x237e…23c2 at0014 = ╱44╱D╱ // 0x2392 @0x14
0x237e…23c2 at0015 = ╱45╱E╱ // 0x2393 @0x15
0x237e…23c2 at0016 = ╱42╱B╱ // 0x2394 @0x16
0x237e…23c2 at0017 = ╱49╱I╱ // 0x2395 @0x17
0x237e…23c2 at0018 = ╱54╱T╱ // 0x2396 @0x18
0x237e…23c2 at0019 = ╱4f╱O╱ // 0x2397 @0x19
0x237e…23c2 at001a = ╱e7╱ * ╱ // 0x2398 @0x1a
0x237e…23c2 at001b = ╱33╱3╱ // 0x2399 @0x1b
0x237e…23c2 at001c = ╱36╱6╱ // 0x239a @0x1c
0x237e…23c2 at001d = ╱30╱0╱ // 0x239b @0x1d
0x237e…23c2 at001e = ╱f26801╱ // 0x239c @0x1e
0x237e…23c2 at0021 = ╱e8╱ / ╱ // 0x239f @0x21
0x237e…23c2 at0022 = ╱ed╱ ( ╱ // 0x23a0 @0x22
0x237e…23c2 at0023 = ╱53╱S╱ // 0x23a1 @0x23
0x237e…23c2 at0024 = ╱5f╱_╱ // 0x23a2 @0x24
0x237e…23c2 at0025 = ╱4f╱O╱ // 0x23a3 @0x25
0x237e…23c2 at0026 = ╱4d╱M╱ // 0x23a4 @0x26
0x237e…23c2 at0027 = ╱53╱S╱ // 0x23a5 @0x27
0x237e…23c2 at0028 = ╱5b╱[╱ // 0x23a6 @0x28
0x237e…23c2 at0029 = ╱54╱T╱ // 0x23a7 @0x29
0x237e…23c2 at002a = ╱4e╱N╱ // 0x23a8 @0x2a
0x237e…23c2 at002b = ╱e7╱ * ╱ // 0x23a9 @0x2b
0x237e…23c2 at002c = ╱ed╱ ( ╱ // 0x23aa @0x2c
0x237e…23c2 at002d = ╱ed╱ ( ╱ // 0x23ab @0x2d
0x237e…23c2 at002e = ╱31╱1╱ // 0x23ac @0x2e
0x237e…23c2 at002f = ╱30╱0╱ // 0x23ad @0x2f
0x237e…23c2 at0030 = ╱30╱0╱ // 0x23ae @0x30
0x237e…23c2 at0031 = ╱f26400╱ // 0x23af @0x31
0x237e…23c2 at0034 = ╱e5╱ + ╱ // 0x23b2 @0x34
0x237e…23c2 at0035 = ╱4d╱M╱ // 0x23b3 @0x35
0x237e…23c2 at0036 = ╱4f╱O╱ // 0x23b4 @0x36
0x237e…23c2 at0037 = ╱4d╱M╱ // 0x23b5 @0x37
0x237e…23c2 at0038 = ╱53╱S╱ // 0x23b6 @0x38
0x237e…23c2 at0039 = ╱ee╱ ) ╱ // 0x23b7 @0x39
0x237e…23c2 at003a = ╱e8╱ / ╱ // 0x23b8 @0x3a
0x237e…23c2 at003b = ╱31╱1╱ // 0x23b9 @0x3b
0x237e…23c2 at003c = ╱30╱0╱ // 0x23ba @0x3c
0x237e…23c2 at003d = ╱30╱0╱ // 0x23bb @0x3d
0x237e…23c2 at003e = ╱f26400╱ // 0x23bc @0x3e
0x237e…23c2 at0041 = ╱ee╱ ) ╱ // 0x23bf @0x41
0x237e…23c2 at0042 = ╱ee╱ ) ╱ // 0x23c0 @0x42
0x237e…23c2 at0043 = EOL // 0x23c1 @0x43
0x237e…23c2 }
0x23c2…23c8 b9b6 03110 PRINT
0x23c2…23c8 LineComal80 {
0x23c2…23c8 ptr = 0xb9b6 // 0x23c2 @0x0
0x23c2…23c8 lno = 0x0c26 // 0x23c4 @0x2
0x23c2…23c8 at0004 = ╱92╱ PRINT ╱ // 0x23c6 @0x4
0x23c2…23c8 at0005 = EOL // 0x23c7 @0x5
0x23c2…23c8 }
0x23c8…23fc b9ea 03120 PRINT "…(2)…Varelager…………………………………………………………………………:" ;
0x23c8…23fc LineComal80 {
0x23c8…23fc ptr = 0xb9ea // 0x23c8 @0x0
0x23c8…23fc lno = 0x0c30 // 0x23ca @0x2
0x23c8…23fc at0004 = ╱92╱ PRINT ╱ // 0x23cc @0x4
0x23c8…23fc at0005 = ╱22╱"╱ // 0x23cd @0x5
0x23c8…23fc at0006 = ╱20╱…╱ // 0x23ce @0x6
0x23c8…23fc at0007 = ╱28╱(╱ // 0x23cf @0x7
0x23c8…23fc at0008 = ╱32╱2╱ // 0x23d0 @0x8
0x23c8…23fc at0009 = ╱29╱)╱ // 0x23d1 @0x9
0x23c8…23fc at000a = ╱20╱…╱ // 0x23d2 @0xa
0x23c8…23fc at000b = ╱56╱V╱ // 0x23d3 @0xb
0x23c8…23fc at000c = ╱61╱a╱ // 0x23d4 @0xc
0x23c8…23fc at000d = ╱72╱r╱ // 0x23d5 @0xd
0x23c8…23fc at000e = ╱65╱e╱ // 0x23d6 @0xe
0x23c8…23fc at000f = ╱6c╱l╱ // 0x23d7 @0xf
0x23c8…23fc at0010 = ╱61╱a╱ // 0x23d8 @0x10
0x23c8…23fc at0011 = ╱67╱g╱ // 0x23d9 @0x11
0x23c8…23fc at0012 = ╱65╱e╱ // 0x23da @0x12
0x23c8…23fc at0013 = ╱72╱r╱ // 0x23db @0x13
0x23c8…23fc at0014 = ╱20╱…╱ // 0x23dc @0x14
0x23c8…23fc at0015 = ╱20╱…╱ // 0x23dd @0x15
0x23c8…23fc at0016 = ╱20╱…╱ // 0x23de @0x16
0x23c8…23fc at0017 = ╱20╱…╱ // 0x23df @0x17
0x23c8…23fc at0018 = ╱20╱…╱ // 0x23e0 @0x18
0x23c8…23fc at0019 = ╱20╱…╱ // 0x23e1 @0x19
0x23c8…23fc at001a = ╱20╱…╱ // 0x23e2 @0x1a
0x23c8…23fc at001b = ╱20╱…╱ // 0x23e3 @0x1b
0x23c8…23fc at001c = ╱20╱…╱ // 0x23e4 @0x1c
0x23c8…23fc at001d = ╱20╱…╱ // 0x23e5 @0x1d
0x23c8…23fc at001e = ╱20╱…╱ // 0x23e6 @0x1e
0x23c8…23fc at001f = ╱20╱…╱ // 0x23e7 @0x1f
0x23c8…23fc at0020 = ╱20╱…╱ // 0x23e8 @0x20
0x23c8…23fc at0021 = ╱20╱…╱ // 0x23e9 @0x21
0x23c8…23fc at0022 = ╱20╱…╱ // 0x23ea @0x22
0x23c8…23fc at0023 = ╱20╱…╱ // 0x23eb @0x23
0x23c8…23fc at0024 = ╱20╱…╱ // 0x23ec @0x24
0x23c8…23fc at0025 = ╱20╱…╱ // 0x23ed @0x25
0x23c8…23fc at0026 = ╱20╱…╱ // 0x23ee @0x26
0x23c8…23fc at0027 = ╱20╱…╱ // 0x23ef @0x27
0x23c8…23fc at0028 = ╱20╱…╱ // 0x23f0 @0x28
0x23c8…23fc at0029 = ╱20╱…╱ // 0x23f1 @0x29
0x23c8…23fc at002a = ╱20╱…╱ // 0x23f2 @0x2a
0x23c8…23fc at002b = ╱20╱…╱ // 0x23f3 @0x2b
0x23c8…23fc at002c = ╱20╱…╱ // 0x23f4 @0x2c
0x23c8…23fc at002d = ╱20╱…╱ // 0x23f5 @0x2d
0x23c8…23fc at002e = ╱20╱…╱ // 0x23f6 @0x2e
0x23c8…23fc at002f = ╱20╱…╱ // 0x23f7 @0x2f
0x23c8…23fc at0030 = ╱3a╱:╱ // 0x23f8 @0x30
0x23c8…23fc at0031 = ╱22╱"╱ // 0x23f9 @0x31
0x23c8…23fc at0032 = ╱ea╱ ; ╱ // 0x23fa @0x32
0x23c8…23fc at0033 = EOL // 0x23fb @0x33
0x23c8…23fc }
0x23fc…242a ba18 03130 PRINT USING "####.#…dg" : S_VARELA * 360 / ABS ( S_VAREFO )
0x23fc…242a LineComal80 {
0x23fc…242a ptr = 0xba18 // 0x23fc @0x0
0x23fc…242a lno = 0x0c3a // 0x23fe @0x2
0x23fc…242a at0004 = ╱92╱ PRINT ╱ // 0x2400 @0x4
0x23fc…242a at0005 = ╱b9╱ USING ╱ // 0x2401 @0x5
0x23fc…242a at0006 = ╱22╱"╱ // 0x2402 @0x6
0x23fc…242a at0007 = ╱23╱#╱ // 0x2403 @0x7
0x23fc…242a at0008 = ╱23╱#╱ // 0x2404 @0x8
0x23fc…242a at0009 = ╱23╱#╱ // 0x2405 @0x9
0x23fc…242a at000a = ╱23╱#╱ // 0x2406 @0xa
0x23fc…242a at000b = ╱2e╱.╱ // 0x2407 @0xb
0x23fc…242a at000c = ╱23╱#╱ // 0x2408 @0xc
0x23fc…242a at000d = ╱20╱…╱ // 0x2409 @0xd
0x23fc…242a at000e = ╱64╱d╱ // 0x240a @0xe
0x23fc…242a at000f = ╱67╱g╱ // 0x240b @0xf
0x23fc…242a at0010 = ╱22╱"╱ // 0x240c @0x10
0x23fc…242a at0011 = ╱f1╱ : ╱ // 0x240d @0x11
0x23fc…242a at0012 = ╱53╱S╱ // 0x240e @0x12
0x23fc…242a at0013 = ╱5f╱_╱ // 0x240f @0x13
0x23fc…242a at0014 = ╱56╱V╱ // 0x2410 @0x14
0x23fc…242a at0015 = ╱41╱A╱ // 0x2411 @0x15
0x23fc…242a at0016 = ╱52╱R╱ // 0x2412 @0x16
0x23fc…242a at0017 = ╱45╱E╱ // 0x2413 @0x17
0x23fc…242a at0018 = ╱4c╱L╱ // 0x2414 @0x18
0x23fc…242a at0019 = ╱41╱A╱ // 0x2415 @0x19
0x23fc…242a at001a = ╱e7╱ * ╱ // 0x2416 @0x1a
0x23fc…242a at001b = ╱33╱3╱ // 0x2417 @0x1b
0x23fc…242a at001c = ╱36╱6╱ // 0x2418 @0x1c
0x23fc…242a at001d = ╱30╱0╱ // 0x2419 @0x1d
0x23fc…242a at001e = ╱f26801╱ // 0x241a @0x1e
0x23fc…242a at0021 = ╱e8╱ / ╱ // 0x241d @0x21
0x23fc…242a at0022 = ╱c4╱ ABS ╱ // 0x241e @0x22
0x23fc…242a at0023 = ╱ed╱ ( ╱ // 0x241f @0x23
0x23fc…242a at0024 = ╱53╱S╱ // 0x2420 @0x24
0x23fc…242a at0025 = ╱5f╱_╱ // 0x2421 @0x25
0x23fc…242a at0026 = ╱56╱V╱ // 0x2422 @0x26
0x23fc…242a at0027 = ╱41╱A╱ // 0x2423 @0x27
0x23fc…242a at0028 = ╱52╱R╱ // 0x2424 @0x28
0x23fc…242a at0029 = ╱45╱E╱ // 0x2425 @0x29
0x23fc…242a at002a = ╱46╱F╱ // 0x2426 @0x2a
0x23fc…242a at002b = ╱4f╱O╱ // 0x2427 @0x2b
0x23fc…242a at002c = ╱ee╱ ) ╱ // 0x2428 @0x2c
0x23fc…242a at002d = EOL // 0x2429 @0x2d
0x23fc…242a }
0x242a…2430 ba1e 03140 PRINT
0x242a…2430 LineComal80 {
0x242a…2430 ptr = 0xba1e // 0x242a @0x0
0x242a…2430 lno = 0x0c44 // 0x242c @0x2
0x242a…2430 at0004 = ╱92╱ PRINT ╱ // 0x242e @0x4
0x242a…2430 at0005 = EOL // 0x242f @0x5
0x242a…2430 }
0x2430…2464 ba52 03150 PRINT "…(3)…Varekreditorer……………………………………………………………:" ;
0x2430…2464 LineComal80 {
0x2430…2464 ptr = 0xba52 // 0x2430 @0x0
0x2430…2464 lno = 0x0c4e // 0x2432 @0x2
0x2430…2464 at0004 = ╱92╱ PRINT ╱ // 0x2434 @0x4
0x2430…2464 at0005 = ╱22╱"╱ // 0x2435 @0x5
0x2430…2464 at0006 = ╱20╱…╱ // 0x2436 @0x6
0x2430…2464 at0007 = ╱28╱(╱ // 0x2437 @0x7
0x2430…2464 at0008 = ╱33╱3╱ // 0x2438 @0x8
0x2430…2464 at0009 = ╱29╱)╱ // 0x2439 @0x9
0x2430…2464 at000a = ╱20╱…╱ // 0x243a @0xa
0x2430…2464 at000b = ╱56╱V╱ // 0x243b @0xb
0x2430…2464 at000c = ╱61╱a╱ // 0x243c @0xc
0x2430…2464 at000d = ╱72╱r╱ // 0x243d @0xd
0x2430…2464 at000e = ╱65╱e╱ // 0x243e @0xe
0x2430…2464 at000f = ╱6b╱k╱ // 0x243f @0xf
0x2430…2464 at0010 = ╱72╱r╱ // 0x2440 @0x10
0x2430…2464 at0011 = ╱65╱e╱ // 0x2441 @0x11
0x2430…2464 at0012 = ╱64╱d╱ // 0x2442 @0x12
0x2430…2464 at0013 = ╱69╱i╱ // 0x2443 @0x13
0x2430…2464 at0014 = ╱74╱t╱ // 0x2444 @0x14
0x2430…2464 at0015 = ╱6f╱o╱ // 0x2445 @0x15
0x2430…2464 at0016 = ╱72╱r╱ // 0x2446 @0x16
0x2430…2464 at0017 = ╱65╱e╱ // 0x2447 @0x17
0x2430…2464 at0018 = ╱72╱r╱ // 0x2448 @0x18
0x2430…2464 at0019 = ╱20╱…╱ // 0x2449 @0x19
0x2430…2464 at001a = ╱20╱…╱ // 0x244a @0x1a
0x2430…2464 at001b = ╱20╱…╱ // 0x244b @0x1b
0x2430…2464 at001c = ╱20╱…╱ // 0x244c @0x1c
0x2430…2464 at001d = ╱20╱…╱ // 0x244d @0x1d
0x2430…2464 at001e = ╱20╱…╱ // 0x244e @0x1e
0x2430…2464 at001f = ╱20╱…╱ // 0x244f @0x1f
0x2430…2464 at0020 = ╱20╱…╱ // 0x2450 @0x20
0x2430…2464 at0021 = ╱20╱…╱ // 0x2451 @0x21
0x2430…2464 at0022 = ╱20╱…╱ // 0x2452 @0x22
0x2430…2464 at0023 = ╱20╱…╱ // 0x2453 @0x23
0x2430…2464 at0024 = ╱20╱…╱ // 0x2454 @0x24
0x2430…2464 at0025 = ╱20╱…╱ // 0x2455 @0x25
0x2430…2464 at0026 = ╱20╱…╱ // 0x2456 @0x26
0x2430…2464 at0027 = ╱20╱…╱ // 0x2457 @0x27
0x2430…2464 at0028 = ╱20╱…╱ // 0x2458 @0x28
0x2430…2464 at0029 = ╱20╱…╱ // 0x2459 @0x29
0x2430…2464 at002a = ╱20╱…╱ // 0x245a @0x2a
0x2430…2464 at002b = ╱20╱…╱ // 0x245b @0x2b
0x2430…2464 at002c = ╱20╱…╱ // 0x245c @0x2c
0x2430…2464 at002d = ╱20╱…╱ // 0x245d @0x2d
0x2430…2464 at002e = ╱20╱…╱ // 0x245e @0x2e
0x2430…2464 at002f = ╱20╱…╱ // 0x245f @0x2f
0x2430…2464 at0030 = ╱3a╱:╱ // 0x2460 @0x30
0x2430…2464 at0031 = ╱22╱"╱ // 0x2461 @0x31
0x2430…2464 at0032 = ╱ea╱ ; ╱ // 0x2462 @0x32
0x2430…2464 at0033 = EOL // 0x2463 @0x33
0x2430…2464 }
0x2464…248e ba7c 03160 PRINT USING "####.#…dg" : S_KREDIT * 360 / VAREK\B
0x2464…248e LineComal80 {
0x2464…248e ptr = 0xba7c // 0x2464 @0x0
0x2464…248e lno = 0x0c58 // 0x2466 @0x2
0x2464…248e at0004 = ╱92╱ PRINT ╱ // 0x2468 @0x4
0x2464…248e at0005 = ╱b9╱ USING ╱ // 0x2469 @0x5
0x2464…248e at0006 = ╱22╱"╱ // 0x246a @0x6
0x2464…248e at0007 = ╱23╱#╱ // 0x246b @0x7
0x2464…248e at0008 = ╱23╱#╱ // 0x246c @0x8
0x2464…248e at0009 = ╱23╱#╱ // 0x246d @0x9
0x2464…248e at000a = ╱23╱#╱ // 0x246e @0xa
0x2464…248e at000b = ╱2e╱.╱ // 0x246f @0xb
0x2464…248e at000c = ╱23╱#╱ // 0x2470 @0xc
0x2464…248e at000d = ╱20╱…╱ // 0x2471 @0xd
0x2464…248e at000e = ╱64╱d╱ // 0x2472 @0xe
0x2464…248e at000f = ╱67╱g╱ // 0x2473 @0xf
0x2464…248e at0010 = ╱22╱"╱ // 0x2474 @0x10
0x2464…248e at0011 = ╱f1╱ : ╱ // 0x2475 @0x11
0x2464…248e at0012 = ╱53╱S╱ // 0x2476 @0x12
0x2464…248e at0013 = ╱5f╱_╱ // 0x2477 @0x13
0x2464…248e at0014 = ╱4b╱K╱ // 0x2478 @0x14
0x2464…248e at0015 = ╱52╱R╱ // 0x2479 @0x15
0x2464…248e at0016 = ╱45╱E╱ // 0x247a @0x16
0x2464…248e at0017 = ╱44╱D╱ // 0x247b @0x17
0x2464…248e at0018 = ╱49╱I╱ // 0x247c @0x18
0x2464…248e at0019 = ╱54╱T╱ // 0x247d @0x19
0x2464…248e at001a = ╱e7╱ * ╱ // 0x247e @0x1a
0x2464…248e at001b = ╱33╱3╱ // 0x247f @0x1b
0x2464…248e at001c = ╱36╱6╱ // 0x2480 @0x1c
0x2464…248e at001d = ╱30╱0╱ // 0x2481 @0x1d
0x2464…248e at001e = ╱f26801╱ // 0x2482 @0x1e
0x2464…248e at0021 = ╱e8╱ / ╱ // 0x2485 @0x21
0x2464…248e at0022 = ╱56╱V╱ // 0x2486 @0x22
0x2464…248e at0023 = ╱41╱A╱ // 0x2487 @0x23
0x2464…248e at0024 = ╱52╱R╱ // 0x2488 @0x24
0x2464…248e at0025 = ╱45╱E╱ // 0x2489 @0x25
0x2464…248e at0026 = ╱4b╱K╱ // 0x248a @0x26
0x2464…248e at0027 = ╱5c╱\╱ // 0x248b @0x27
0x2464…248e at0028 = ╱42╱B╱ // 0x248c @0x28
0x2464…248e at0029 = EOL // 0x248d @0x29
0x2464…248e }
0x248e…24a5 ba93 03170 LET LIN_T := LIN_T + 19
0x248e…24a5 LineComal80 {
0x248e…24a5 ptr = 0xba93 // 0x248e @0x0
0x248e…24a5 lno = 0x0c62 // 0x2490 @0x2
0x248e…24a5 at0004 = ╱86╱ LET ╱ // 0x2492 @0x4
0x248e…24a5 at0005 = ╱4c╱L╱ // 0x2493 @0x5
0x248e…24a5 at0006 = ╱49╱I╱ // 0x2494 @0x6
0x248e…24a5 at0007 = ╱4e╱N╱ // 0x2495 @0x7
0x248e…24a5 at0008 = ╱5f╱_╱ // 0x2496 @0x8
0x248e…24a5 at0009 = ╱54╱T╱ // 0x2497 @0x9
0x248e…24a5 at000a = ╱f0╱ := ╱ // 0x2498 @0xa
0x248e…24a5 at000b = ╱4c╱L╱ // 0x2499 @0xb
0x248e…24a5 at000c = ╱49╱I╱ // 0x249a @0xc
0x248e…24a5 at000d = ╱4e╱N╱ // 0x249b @0xd
0x248e…24a5 at000e = ╱5f╱_╱ // 0x249c @0xe
0x248e…24a5 at000f = ╱54╱T╱ // 0x249d @0xf
0x248e…24a5 at0010 = ╱e5╱ + ╱ // 0x249e @0x10
0x248e…24a5 at0011 = ╱31╱1╱ // 0x249f @0x11
0x248e…24a5 at0012 = ╱39╱9╱ // 0x24a0 @0x12
0x248e…24a5 at0013 = ╱f21300╱ // 0x24a1 @0x13
0x248e…24a5 at0016 = EOL // 0x24a4 @0x16
0x248e…24a5 }
0x24a5…24bd baab 03180 FOR I := LIN_T TO AX_LIN DO PRINT
0x24a5…24bd LineComal80 {
0x24a5…24bd ptr = 0xbaab // 0x24a5 @0x0
0x24a5…24bd lno = 0x0c6c // 0x24a7 @0x2
0x24a5…24bd at0004 = ╱b400╱ FOR ╱ // 0x24a9 @0x4
0x24a5…24bd at0006 = ╱49╱I╱ // 0x24ab @0x6
0x24a5…24bd at0007 = ╱f0╱ := ╱ // 0x24ac @0x7
0x24a5…24bd at0008 = ╱4c╱L╱ // 0x24ad @0x8
0x24a5…24bd at0009 = ╱49╱I╱ // 0x24ae @0x9
0x24a5…24bd at000a = ╱4e╱N╱ // 0x24af @0xa
0x24a5…24bd at000b = ╱5f╱_╱ // 0x24b0 @0xb
0x24a5…24bd at000c = ╱54╱T╱ // 0x24b1 @0xc
0x24a5…24bd at000d = ╱b74d╱ TO ╱ // 0x24b2 @0xd
0x24a5…24bd at000f = ╱41╱A╱ // 0x24b4 @0xf
0x24a5…24bd at0010 = ╱58╱X╱ // 0x24b5 @0x10
0x24a5…24bd at0011 = ╱5f╱_╱ // 0x24b6 @0x11
0x24a5…24bd at0012 = ╱4c╱L╱ // 0x24b7 @0x12
0x24a5…24bd at0013 = ╱49╱I╱ // 0x24b8 @0x13
0x24a5…24bd at0014 = ╱4e╱N╱ // 0x24b9 @0x14
0x24a5…24bd at0015 = ╱bb╱ DO ╱ // 0x24ba @0x15
0x24a5…24bd at0016 = ╱92╱ PRINT ╱ // 0x24bb @0x16
0x24a5…24bd at0017 = EOL // 0x24bc @0x17
0x24a5…24bd }
0x24bd…24cb bab9 03190 EXEC PRINTREL
0x24bd…24cb LineComal80 {
0x24bd…24cb ptr = 0xbab9 // 0x24bd @0x0
0x24bd…24cb lno = 0x0c76 // 0x24bf @0x2
0x24bd…24cb at0004 = ╱9d╱ EXEC ╱ // 0x24c1 @0x4
0x24bd…24cb at0005 = ╱50╱P╱ // 0x24c2 @0x5
0x24bd…24cb at0006 = ╱52╱R╱ // 0x24c3 @0x6
0x24bd…24cb at0007 = ╱49╱I╱ // 0x24c4 @0x7
0x24bd…24cb at0008 = ╱4e╱N╱ // 0x24c5 @0x8
0x24bd…24cb at0009 = ╱54╱T╱ // 0x24c6 @0x9
0x24bd…24cb at000a = ╱52╱R╱ // 0x24c7 @0xa
0x24bd…24cb at000b = ╱45╱E╱ // 0x24c8 @0xb
0x24bd…24cb at000c = ╱4c╱L╱ // 0x24c9 @0xc
0x24bd…24cb at000d = EOL // 0x24ca @0xd
0x24bd…24cb }
0x24cb…24d8 bac6 03200 ENDPROC UDSKRIV
0x24cb…24d8 LineComal80 {
0x24cb…24d8 ptr = 0xbac6 // 0x24cb @0x0
0x24cb…24d8 lno = 0x0c80 // 0x24cd @0x2
0x24cb…24d8 at0004 = ╱9f╱ ENDPROC ╱ // 0x24cf @0x4
0x24cb…24d8 at0005 = ╱55╱U╱ // 0x24d0 @0x5
0x24cb…24d8 at0006 = ╱44╱D╱ // 0x24d1 @0x6
0x24cb…24d8 at0007 = ╱53╱S╱ // 0x24d2 @0x7
0x24cb…24d8 at0008 = ╱4b╱K╱ // 0x24d3 @0x8
0x24cb…24d8 at0009 = ╱52╱R╱ // 0x24d4 @0x9
0x24cb…24d8 at000a = ╱49╱I╱ // 0x24d5 @0xa
0x24cb…24d8 at000b = ╱56╱V╱ // 0x24d6 @0xb
0x24cb…24d8 at000c = EOL // 0x24d7 @0xc
0x24cb…24d8 }
0x24d8…24f6 bae4 03210 PROC OMK_I_PROCENT ( REF SAMFIL $ )
0x24d8…24f6 LineComal80 {
0x24d8…24f6 ptr = 0xbae4 // 0x24d8 @0x0
0x24d8…24f6 lno = 0x0c8a // 0x24da @0x2
0x24d8…24f6 at0004 = ╱9e00╱ PROC ╱ // 0x24dc @0x4
0x24d8…24f6 at0006 = ╱4f╱O╱ // 0x24de @0x6
0x24d8…24f6 at0007 = ╱4d╱M╱ // 0x24df @0x7
0x24d8…24f6 at0008 = ╱4b╱K╱ // 0x24e0 @0x8
0x24d8…24f6 at0009 = ╱5f╱_╱ // 0x24e1 @0x9
0x24d8…24f6 at000a = ╱49╱I╱ // 0x24e2 @0xa
0x24d8…24f6 at000b = ╱5f╱_╱ // 0x24e3 @0xb
0x24d8…24f6 at000c = ╱50╱P╱ // 0x24e4 @0xc
0x24d8…24f6 at000d = ╱52╱R╱ // 0x24e5 @0xd
0x24d8…24f6 at000e = ╱4f╱O╱ // 0x24e6 @0xe
0x24d8…24f6 at000f = ╱43╱C╱ // 0x24e7 @0xf
0x24d8…24f6 at0010 = ╱45╱E╱ // 0x24e8 @0x10
0x24d8…24f6 at0011 = ╱4e╱N╱ // 0x24e9 @0x11
0x24d8…24f6 at0012 = ╱54╱T╱ // 0x24ea @0x12
0x24d8…24f6 at0013 = ╱ed╱ ( ╱ // 0x24eb @0x13
0x24d8…24f6 at0014 = ╱b6╱ REF ╱ // 0x24ec @0x14
0x24d8…24f6 at0015 = ╱53╱S╱ // 0x24ed @0x15
0x24d8…24f6 at0016 = ╱41╱A╱ // 0x24ee @0x16
0x24d8…24f6 at0017 = ╱4d╱M╱ // 0x24ef @0x17
0x24d8…24f6 at0018 = ╱46╱F╱ // 0x24f0 @0x18
0x24d8…24f6 at0019 = ╱49╱I╱ // 0x24f1 @0x19
0x24d8…24f6 at001a = ╱4c╱L╱ // 0x24f2 @0x1a
0x24d8…24f6 at001b = ╱ef╱ $ ╱ // 0x24f3 @0x1b
0x24d8…24f6 at001c = ╱ee╱ ) ╱ // 0x24f4 @0x1c
0x24d8…24f6 at001d = EOL // 0x24f5 @0x1d
0x24d8…24f6 }
0x24f6…2510 bafe 03220 EXEC OPENFIL ( SAMFIL $ , "R" )
0x24f6…2510 LineComal80 {
0x24f6…2510 ptr = 0xbafe // 0x24f6 @0x0
0x24f6…2510 lno = 0x0c94 // 0x24f8 @0x2
0x24f6…2510 at0004 = ╱9d╱ EXEC ╱ // 0x24fa @0x4
0x24f6…2510 at0005 = ╱4f╱O╱ // 0x24fb @0x5
0x24f6…2510 at0006 = ╱50╱P╱ // 0x24fc @0x6
0x24f6…2510 at0007 = ╱45╱E╱ // 0x24fd @0x7
0x24f6…2510 at0008 = ╱4e╱N╱ // 0x24fe @0x8
0x24f6…2510 at0009 = ╱46╱F╱ // 0x24ff @0x9
0x24f6…2510 at000a = ╱49╱I╱ // 0x2500 @0xa
0x24f6…2510 at000b = ╱4c╱L╱ // 0x2501 @0xb
0x24f6…2510 at000c = ╱ed╱ ( ╱ // 0x2502 @0xc
0x24f6…2510 at000d = ╱53╱S╱ // 0x2503 @0xd
0x24f6…2510 at000e = ╱41╱A╱ // 0x2504 @0xe
0x24f6…2510 at000f = ╱4d╱M╱ // 0x2505 @0xf
0x24f6…2510 at0010 = ╱46╱F╱ // 0x2506 @0x10
0x24f6…2510 at0011 = ╱49╱I╱ // 0x2507 @0x11
0x24f6…2510 at0012 = ╱4c╱L╱ // 0x2508 @0x12
0x24f6…2510 at0013 = ╱ef╱ $ ╱ // 0x2509 @0x13
0x24f6…2510 at0014 = ╱ec╱ , ╱ // 0x250a @0x14
0x24f6…2510 at0015 = ╱22╱"╱ // 0x250b @0x15
0x24f6…2510 at0016 = ╱52╱R╱ // 0x250c @0x16
0x24f6…2510 at0017 = ╱22╱"╱ // 0x250d @0x17
0x24f6…2510 at0018 = ╱ee╱ ) ╱ // 0x250e @0x18
0x24f6…2510 at0019 = EOL // 0x250f @0x19
0x24f6…2510 }
0x2510…2523 bb11 03230 GET SAMFIL $ : SALDO
0x2510…2523 LineComal80 {
0x2510…2523 ptr = 0xbb11 // 0x2510 @0x0
0x2510…2523 lno = 0x0c9e // 0x2512 @0x2
0x2510…2523 at0004 = ╱a9╱ GET ╱ // 0x2514 @0x4
0x2510…2523 at0005 = ╱53╱S╱ // 0x2515 @0x5
0x2510…2523 at0006 = ╱41╱A╱ // 0x2516 @0x6
0x2510…2523 at0007 = ╱4d╱M╱ // 0x2517 @0x7
0x2510…2523 at0008 = ╱46╱F╱ // 0x2518 @0x8
0x2510…2523 at0009 = ╱49╱I╱ // 0x2519 @0x9
0x2510…2523 at000a = ╱4c╱L╱ // 0x251a @0xa
0x2510…2523 at000b = ╱ef╱ $ ╱ // 0x251b @0xb
0x2510…2523 at000c = ╱f1╱ : ╱ // 0x251c @0xc
0x2510…2523 at000d = ╱53╱S╱ // 0x251d @0xd
0x2510…2523 at000e = ╱41╱A╱ // 0x251e @0xe
0x2510…2523 at000f = ╱4c╱L╱ // 0x251f @0xf
0x2510…2523 at0010 = ╱44╱D╱ // 0x2520 @0x10
0x2510…2523 at0011 = ╱4f╱O╱ // 0x2521 @0x11
0x2510…2523 at0012 = EOL // 0x2522 @0x12
0x2510…2523 }
0x2523…2533 bb21 03240 LET SALDO := 0
0x2523…2533 LineComal80 {
0x2523…2533 ptr = 0xbb21 // 0x2523 @0x0
0x2523…2533 lno = 0x0ca8 // 0x2525 @0x2
0x2523…2533 at0004 = ╱86╱ LET ╱ // 0x2527 @0x4
0x2523…2533 at0005 = ╱53╱S╱ // 0x2528 @0x5
0x2523…2533 at0006 = ╱41╱A╱ // 0x2529 @0x6
0x2523…2533 at0007 = ╱4c╱L╱ // 0x252a @0x7
0x2523…2533 at0008 = ╱44╱D╱ // 0x252b @0x8
0x2523…2533 at0009 = ╱4f╱O╱ // 0x252c @0x9
0x2523…2533 at000a = ╱f0╱ := ╱ // 0x252d @0xa
0x2523…2533 at000b = ╱30╱0╱ // 0x252e @0xb
0x2523…2533 at000c = ╱f20000╱ // 0x252f @0xc
0x2523…2533 at000f = EOL // 0x2532 @0xf
0x2523…2533 }
0x2533…2549 bb37 03250 GET SAMFIL $ : S_KTONR $
0x2533…2549 LineComal80 {
0x2533…2549 ptr = 0xbb37 // 0x2533 @0x0
0x2533…2549 lno = 0x0cb2 // 0x2535 @0x2
0x2533…2549 at0004 = ╱a9╱ GET ╱ // 0x2537 @0x4
0x2533…2549 at0005 = ╱53╱S╱ // 0x2538 @0x5
0x2533…2549 at0006 = ╱41╱A╱ // 0x2539 @0x6
0x2533…2549 at0007 = ╱4d╱M╱ // 0x253a @0x7
0x2533…2549 at0008 = ╱46╱F╱ // 0x253b @0x8
0x2533…2549 at0009 = ╱49╱I╱ // 0x253c @0x9
0x2533…2549 at000a = ╱4c╱L╱ // 0x253d @0xa
0x2533…2549 at000b = ╱ef╱ $ ╱ // 0x253e @0xb
0x2533…2549 at000c = ╱f1╱ : ╱ // 0x253f @0xc
0x2533…2549 at000d = ╱53╱S╱ // 0x2540 @0xd
0x2533…2549 at000e = ╱5f╱_╱ // 0x2541 @0xe
0x2533…2549 at000f = ╱4b╱K╱ // 0x2542 @0xf
0x2533…2549 at0010 = ╱54╱T╱ // 0x2543 @0x10
0x2533…2549 at0011 = ╱4f╱O╱ // 0x2544 @0x11
0x2533…2549 at0012 = ╱4e╱N╱ // 0x2545 @0x12
0x2533…2549 at0013 = ╱52╱R╱ // 0x2546 @0x13
0x2533…2549 at0014 = ╱ef╱ $ ╱ // 0x2547 @0x14
0x2533…2549 at0015 = EOL // 0x2548 @0x15
0x2533…2549 }
0x2549…255c bb4a 03260 WHILE NOT ╱cd╱ ( SAMFIL $ ) DO
0x2549…255c LineComal80 {
0x2549…255c ptr = 0xbb4a // 0x2549 @0x0
0x2549…255c lno = 0x0cbc // 0x254b @0x2
0x2549…255c at0004 = ╱9300╱ WHILE ╱ // 0x254d @0x4
0x2549…255c at0006 = ╱d7╱ NOT ╱ // 0x254f @0x6
0x2549…255c at0007 = ╱cd╱ // 0x2550 @0x7
0x2549…255c at0008 = ╱ed╱ ( ╱ // 0x2551 @0x8
0x2549…255c at0009 = ╱53╱S╱ // 0x2552 @0x9
0x2549…255c at000a = ╱41╱A╱ // 0x2553 @0xa
0x2549…255c at000b = ╱4d╱M╱ // 0x2554 @0xb
0x2549…255c at000c = ╱46╱F╱ // 0x2555 @0xc
0x2549…255c at000d = ╱49╱I╱ // 0x2556 @0xd
0x2549…255c at000e = ╱4c╱L╱ // 0x2557 @0xe
0x2549…255c at000f = ╱ef╱ $ ╱ // 0x2558 @0xf
0x2549…255c at0010 = ╱ee╱ ) ╱ // 0x2559 @0x10
0x2549…255c at0011 = ╱bb╱ DO ╱ // 0x255a @0x11
0x2549…255c at0012 = EOL // 0x255b @0x12
0x2549…255c }
0x255c…257b bb69 03270 LET IDXPOS := FIND_KTO ( S_KTONR $ )
0x255c…257b LineComal80 {
0x255c…257b ptr = 0xbb69 // 0x255c @0x0
0x255c…257b lno = 0x0cc6 // 0x255e @0x2
0x255c…257b at0004 = ╱86╱ LET ╱ // 0x2560 @0x4
0x255c…257b at0005 = ╱49╱I╱ // 0x2561 @0x5
0x255c…257b at0006 = ╱44╱D╱ // 0x2562 @0x6
0x255c…257b at0007 = ╱58╱X╱ // 0x2563 @0x7
0x255c…257b at0008 = ╱50╱P╱ // 0x2564 @0x8
0x255c…257b at0009 = ╱4f╱O╱ // 0x2565 @0x9
0x255c…257b at000a = ╱53╱S╱ // 0x2566 @0xa
0x255c…257b at000b = ╱f0╱ := ╱ // 0x2567 @0xb
0x255c…257b at000c = ╱46╱F╱ // 0x2568 @0xc
0x255c…257b at000d = ╱49╱I╱ // 0x2569 @0xd
0x255c…257b at000e = ╱4e╱N╱ // 0x256a @0xe
0x255c…257b at000f = ╱44╱D╱ // 0x256b @0xf
0x255c…257b at0010 = ╱5f╱_╱ // 0x256c @0x10
0x255c…257b at0011 = ╱4b╱K╱ // 0x256d @0x11
0x255c…257b at0012 = ╱54╱T╱ // 0x256e @0x12
0x255c…257b at0013 = ╱4f╱O╱ // 0x256f @0x13
0x255c…257b at0014 = ╱ed╱ ( ╱ // 0x2570 @0x14
0x255c…257b at0015 = ╱53╱S╱ // 0x2571 @0x15
0x255c…257b at0016 = ╱5f╱_╱ // 0x2572 @0x16
0x255c…257b at0017 = ╱4b╱K╱ // 0x2573 @0x17
0x255c…257b at0018 = ╱54╱T╱ // 0x2574 @0x18
0x255c…257b at0019 = ╱4f╱O╱ // 0x2575 @0x19
0x255c…257b at001a = ╱4e╱N╱ // 0x2576 @0x1a
0x255c…257b at001b = ╱52╱R╱ // 0x2577 @0x1b
0x255c…257b at001c = ╱ef╱ $ ╱ // 0x2578 @0x1c
0x255c…257b at001d = ╱ee╱ ) ╱ // 0x2579 @0x1d
0x255c…257b at001e = EOL // 0x257a @0x1e
0x255c…257b }
0x257b…259c bb8a 03280 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
0x257b…259c LineComal80 {
0x257b…259c ptr = 0xbb8a // 0x257b @0x0
0x257b…259c lno = 0x0cd0 // 0x257d @0x2
0x257b…259c at0004 = ╱a9╱ GET ╱ // 0x257f @0x4
0x257b…259c at0005 = ╱4b╱K╱ // 0x2580 @0x5
0x257b…259c at0006 = ╱54╱T╱ // 0x2581 @0x6
0x257b…259c at0007 = ╱4f╱O╱ // 0x2582 @0x7
0x257b…259c at0008 = ╱49╱I╱ // 0x2583 @0x8
0x257b…259c at0009 = ╱44╱D╱ // 0x2584 @0x9
0x257b…259c at000a = ╱58╱X╱ // 0x2585 @0xa
0x257b…259c at000b = ╱ef╱ $ ╱ // 0x2586 @0xb
0x257b…259c at000c = ╱ec╱ , ╱ // 0x2587 @0xc
0x257b…259c at000d = ╱49╱I╱ // 0x2588 @0xd
0x257b…259c at000e = ╱44╱D╱ // 0x2589 @0xe
0x257b…259c at000f = ╱58╱X╱ // 0x258a @0xf
0x257b…259c at0010 = ╱50╱P╱ // 0x258b @0x10
0x257b…259c at0011 = ╱4f╱O╱ // 0x258c @0x11
0x257b…259c at0012 = ╱53╱S╱ // 0x258d @0x12
0x257b…259c at0013 = ╱f1╱ : ╱ // 0x258e @0x13
0x257b…259c at0014 = ╱4b╱K╱ // 0x258f @0x14
0x257b…259c at0015 = ╱54╱T╱ // 0x2590 @0x15
0x257b…259c at0016 = ╱4f╱O╱ // 0x2591 @0x16
0x257b…259c at0017 = ╱4e╱N╱ // 0x2592 @0x17
0x257b…259c at0018 = ╱52╱R╱ // 0x2593 @0x18
0x257b…259c at0019 = ╱ef╱ $ ╱ // 0x2594 @0x19
0x257b…259c at001a = ╱ec╱ , ╱ // 0x2595 @0x1a
0x257b…259c at001b = ╱52╱R╱ // 0x2596 @0x1b
0x257b…259c at001c = ╱45╱E╱ // 0x2597 @0x1c
0x257b…259c at001d = ╱43╱C╱ // 0x2598 @0x1d
0x257b…259c at001e = ╱4e╱N╱ // 0x2599 @0x1e
0x257b…259c at001f = ╱52╱R╱ // 0x259a @0x1f
0x257b…259c at0020 = EOL // 0x259b @0x20
0x257b…259c }
0x259c…25c5 bbb3 03290 WHILE S_KTONR $ = KTONR $ ( 1 : ╱cb╱ ( S_KTONR $ ) ) DO
0x259c…25c5 LineComal80 {
0x259c…25c5 ptr = 0xbbb3 // 0x259c @0x0
0x259c…25c5 lno = 0x0cda // 0x259e @0x2
0x259c…25c5 at0004 = ╱9300╱ WHILE ╱ // 0x25a0 @0x4
0x259c…25c5 at0006 = ╱53╱S╱ // 0x25a2 @0x6
0x259c…25c5 at0007 = ╱5f╱_╱ // 0x25a3 @0x7
0x259c…25c5 at0008 = ╱4b╱K╱ // 0x25a4 @0x8
0x259c…25c5 at0009 = ╱54╱T╱ // 0x25a5 @0x9
0x259c…25c5 at000a = ╱4f╱O╱ // 0x25a6 @0xa
0x259c…25c5 at000b = ╱4e╱N╱ // 0x25a7 @0xb
0x259c…25c5 at000c = ╱52╱R╱ // 0x25a8 @0xc
0x259c…25c5 at000d = ╱ef╱ $ ╱ // 0x25a9 @0xd
0x259c…25c5 at000e = ╱df╱ = ╱ // 0x25aa @0xe
0x259c…25c5 at000f = ╱4b╱K╱ // 0x25ab @0xf
0x259c…25c5 at0010 = ╱54╱T╱ // 0x25ac @0x10
0x259c…25c5 at0011 = ╱4f╱O╱ // 0x25ad @0x11
0x259c…25c5 at0012 = ╱4e╱N╱ // 0x25ae @0x12
0x259c…25c5 at0013 = ╱52╱R╱ // 0x25af @0x13
0x259c…25c5 at0014 = ╱ef╱ $ ╱ // 0x25b0 @0x14
0x259c…25c5 at0015 = ╱ed╱ ( ╱ // 0x25b1 @0x15
0x259c…25c5 at0016 = ╱31╱1╱ // 0x25b2 @0x16
0x259c…25c5 at0017 = ╱f20100╱ // 0x25b3 @0x17
0x259c…25c5 at001a = ╱f1╱ : ╱ // 0x25b6 @0x1a
0x259c…25c5 at001b = ╱cb╱ // 0x25b7 @0x1b
0x259c…25c5 at001c = ╱ed╱ ( ╱ // 0x25b8 @0x1c
0x259c…25c5 at001d = ╱53╱S╱ // 0x25b9 @0x1d
0x259c…25c5 at001e = ╱5f╱_╱ // 0x25ba @0x1e
0x259c…25c5 at001f = ╱4b╱K╱ // 0x25bb @0x1f
0x259c…25c5 at0020 = ╱54╱T╱ // 0x25bc @0x20
0x259c…25c5 at0021 = ╱4f╱O╱ // 0x25bd @0x21
0x259c…25c5 at0022 = ╱4e╱N╱ // 0x25be @0x22
0x259c…25c5 at0023 = ╱52╱R╱ // 0x25bf @0x23
0x259c…25c5 at0024 = ╱ef╱ $ ╱ // 0x25c0 @0x24
0x259c…25c5 at0025 = ╱ee╱ ) ╱ // 0x25c1 @0x25
0x259c…25c5 at0026 = ╱ee╱ ) ╱ // 0x25c2 @0x26
0x259c…25c5 at0027 = ╱bb╱ DO ╱ // 0x25c3 @0x27
0x259c…25c5 at0028 = EOL // 0x25c4 @0x28
0x259c…25c5 }
0x25c5…25db bbc9 03300 EXEC L[S_KONTO ( RECNR )
0x25c5…25db LineComal80 {
0x25c5…25db ptr = 0xbbc9 // 0x25c5 @0x0
0x25c5…25db lno = 0x0ce4 // 0x25c7 @0x2
0x25c5…25db at0004 = ╱9d╱ EXEC ╱ // 0x25c9 @0x4
0x25c5…25db at0005 = ╱4c╱L╱ // 0x25ca @0x5
0x25c5…25db at0006 = ╱5b╱[╱ // 0x25cb @0x6
0x25c5…25db at0007 = ╱53╱S╱ // 0x25cc @0x7
0x25c5…25db at0008 = ╱5f╱_╱ // 0x25cd @0x8
0x25c5…25db at0009 = ╱4b╱K╱ // 0x25ce @0x9
0x25c5…25db at000a = ╱4f╱O╱ // 0x25cf @0xa
0x25c5…25db at000b = ╱4e╱N╱ // 0x25d0 @0xb
0x25c5…25db at000c = ╱54╱T╱ // 0x25d1 @0xc
0x25c5…25db at000d = ╱4f╱O╱ // 0x25d2 @0xd
0x25c5…25db at000e = ╱ed╱ ( ╱ // 0x25d3 @0xe
0x25c5…25db at000f = ╱52╱R╱ // 0x25d4 @0xf
0x25c5…25db at0010 = ╱45╱E╱ // 0x25d5 @0x10
0x25c5…25db at0011 = ╱43╱C╱ // 0x25d6 @0x11
0x25c5…25db at0012 = ╱4e╱N╱ // 0x25d7 @0x12
0x25c5…25db at0013 = ╱52╱R╱ // 0x25d8 @0x13
0x25c5…25db at0014 = ╱ee╱ ) ╱ // 0x25d9 @0x14
0x25c5…25db at0015 = EOL // 0x25da @0x15
0x25c5…25db }
0x25db…2606 bbf4 03310 GET DRIFT\ $ , RECNR : DRIFT ( 1 ) , DRIFT ( 2 )
0x25db…2606 LineComal80 {
0x25db…2606 ptr = 0xbbf4 // 0x25db @0x0
0x25db…2606 lno = 0x0cee // 0x25dd @0x2
0x25db…2606 at0004 = ╱a9╱ GET ╱ // 0x25df @0x4
0x25db…2606 at0005 = ╱44╱D╱ // 0x25e0 @0x5
0x25db…2606 at0006 = ╱52╱R╱ // 0x25e1 @0x6
0x25db…2606 at0007 = ╱49╱I╱ // 0x25e2 @0x7
0x25db…2606 at0008 = ╱46╱F╱ // 0x25e3 @0x8
0x25db…2606 at0009 = ╱54╱T╱ // 0x25e4 @0x9
0x25db…2606 at000a = ╱5c╱\╱ // 0x25e5 @0xa
0x25db…2606 at000b = ╱ef╱ $ ╱ // 0x25e6 @0xb
0x25db…2606 at000c = ╱ec╱ , ╱ // 0x25e7 @0xc
0x25db…2606 at000d = ╱52╱R╱ // 0x25e8 @0xd
0x25db…2606 at000e = ╱45╱E╱ // 0x25e9 @0xe
0x25db…2606 at000f = ╱43╱C╱ // 0x25ea @0xf
0x25db…2606 at0010 = ╱4e╱N╱ // 0x25eb @0x10
0x25db…2606 at0011 = ╱52╱R╱ // 0x25ec @0x11
0x25db…2606 at0012 = ╱f1╱ : ╱ // 0x25ed @0x12
0x25db…2606 at0013 = ╱44╱D╱ // 0x25ee @0x13
0x25db…2606 at0014 = ╱52╱R╱ // 0x25ef @0x14
0x25db…2606 at0015 = ╱49╱I╱ // 0x25f0 @0x15
0x25db…2606 at0016 = ╱46╱F╱ // 0x25f1 @0x16
0x25db…2606 at0017 = ╱54╱T╱ // 0x25f2 @0x17
0x25db…2606 at0018 = ╱ed╱ ( ╱ // 0x25f3 @0x18
0x25db…2606 at0019 = ╱31╱1╱ // 0x25f4 @0x19
0x25db…2606 at001a = ╱f20100╱ // 0x25f5 @0x1a
0x25db…2606 at001d = ╱ee╱ ) ╱ // 0x25f8 @0x1d
0x25db…2606 at001e = ╱ec╱ , ╱ // 0x25f9 @0x1e
0x25db…2606 at001f = ╱44╱D╱ // 0x25fa @0x1f
0x25db…2606 at0020 = ╱52╱R╱ // 0x25fb @0x20
0x25db…2606 at0021 = ╱49╱I╱ // 0x25fc @0x21
0x25db…2606 at0022 = ╱46╱F╱ // 0x25fd @0x22
0x25db…2606 at0023 = ╱54╱T╱ // 0x25fe @0x23
0x25db…2606 at0024 = ╱ed╱ ( ╱ // 0x25ff @0x24
0x25db…2606 at0025 = ╱32╱2╱ // 0x2600 @0x25
0x25db…2606 at0026 = ╱f20200╱ // 0x2601 @0x26
0x25db…2606 at0029 = ╱ee╱ ) ╱ // 0x2604 @0x29
0x25db…2606 at002a = EOL // 0x2605 @0x2a
0x25db…2606 }
0x2606…261b bc09 03320 IF TO_TYPE $ = "A" THEN
0x2606…261b LineComal80 {
0x2606…261b ptr = 0xbc09 // 0x2606 @0x0
0x2606…261b lno = 0x0cf8 // 0x2608 @0x2
0x2606…261b at0004 = ╱9b004b╱ IF ╱ // 0x260a @0x4
0x2606…261b at0007 = ╱54╱T╱ // 0x260d @0x7
0x2606…261b at0008 = ╱4f╱O╱ // 0x260e @0x8
0x2606…261b at0009 = ╱5f╱_╱ // 0x260f @0x9
0x2606…261b at000a = ╱54╱T╱ // 0x2610 @0xa
0x2606…261b at000b = ╱59╱Y╱ // 0x2611 @0xb
0x2606…261b at000c = ╱50╱P╱ // 0x2612 @0xc
0x2606…261b at000d = ╱45╱E╱ // 0x2613 @0xd
0x2606…261b at000e = ╱ef╱ $ ╱ // 0x2614 @0xe
0x2606…261b at000f = ╱df╱ = ╱ // 0x2615 @0xf
0x2606…261b at0010 = ╱22╱"╱ // 0x2616 @0x10
0x2606…261b at0011 = ╱41╱A╱ // 0x2617 @0x11
0x2606…261b at0012 = ╱22╱"╱ // 0x2618 @0x12
0x2606…261b at0013 = ╱b5╱ THEN ╱ // 0x2619 @0x13
0x2606…261b at0014 = EOL // 0x261a @0x14
0x2606…261b }
0x261b…2641 bc2f 03330 PRINT "………………" ; KTO_NAVN $ ; TAB ( 43 ) ; ":" ;
0x261b…2641 LineComal80 {
0x261b…2641 ptr = 0xbc2f // 0x261b @0x0
0x261b…2641 lno = 0x0d02 // 0x261d @0x2
0x261b…2641 at0004 = ╱92╱ PRINT ╱ // 0x261f @0x4
0x261b…2641 at0005 = ╱22╱"╱ // 0x2620 @0x5
0x261b…2641 at0006 = ╱20╱…╱ // 0x2621 @0x6
0x261b…2641 at0007 = ╱20╱…╱ // 0x2622 @0x7
0x261b…2641 at0008 = ╱20╱…╱ // 0x2623 @0x8
0x261b…2641 at0009 = ╱20╱…╱ // 0x2624 @0x9
0x261b…2641 at000a = ╱20╱…╱ // 0x2625 @0xa
0x261b…2641 at000b = ╱20╱…╱ // 0x2626 @0xb
0x261b…2641 at000c = ╱22╱"╱ // 0x2627 @0xc
0x261b…2641 at000d = ╱ea╱ ; ╱ // 0x2628 @0xd
0x261b…2641 at000e = ╱4b╱K╱ // 0x2629 @0xe
0x261b…2641 at000f = ╱54╱T╱ // 0x262a @0xf
0x261b…2641 at0010 = ╱4f╱O╱ // 0x262b @0x10
0x261b…2641 at0011 = ╱5f╱_╱ // 0x262c @0x11
0x261b…2641 at0012 = ╱4e╱N╱ // 0x262d @0x12
0x261b…2641 at0013 = ╱41╱A╱ // 0x262e @0x13
0x261b…2641 at0014 = ╱56╱V╱ // 0x262f @0x14
0x261b…2641 at0015 = ╱4e╱N╱ // 0x2630 @0x15
0x261b…2641 at0016 = ╱ef╱ $ ╱ // 0x2631 @0x16
0x261b…2641 at0017 = ╱ea╱ ; ╱ // 0x2632 @0x17
0x261b…2641 at0018 = ╱d2╱ TAB ╱ // 0x2633 @0x18
0x261b…2641 at0019 = ╱ed╱ ( ╱ // 0x2634 @0x19
0x261b…2641 at001a = ╱34╱4╱ // 0x2635 @0x1a
0x261b…2641 at001b = ╱33╱3╱ // 0x2636 @0x1b
0x261b…2641 at001c = ╱f22b00╱ // 0x2637 @0x1c
0x261b…2641 at001f = ╱ee╱ ) ╱ // 0x263a @0x1f
0x261b…2641 at0020 = ╱ea╱ ; ╱ // 0x263b @0x20
0x261b…2641 at0021 = ╱22╱"╱ // 0x263c @0x21
0x261b…2641 at0022 = ╱3a╱:╱ // 0x263d @0x22
0x261b…2641 at0023 = ╱22╱"╱ // 0x263e @0x23
0x261b…2641 at0024 = ╱ea╱ ; ╱ // 0x263f @0x24
0x261b…2641 at0025 = EOL // 0x2640 @0x25
0x261b…2641 }
0x2641…2671 bc5f 03340 PRINT USING "###.##…%" : ABS ( DRIFT ( 2 ) * 100 ) / S_OMS[TN
0x2641…2671 LineComal80 {
0x2641…2671 ptr = 0xbc5f // 0x2641 @0x0
0x2641…2671 lno = 0x0d0c // 0x2643 @0x2
0x2641…2671 at0004 = ╱92╱ PRINT ╱ // 0x2645 @0x4
0x2641…2671 at0005 = ╱b9╱ USING ╱ // 0x2646 @0x5
0x2641…2671 at0006 = ╱22╱"╱ // 0x2647 @0x6
0x2641…2671 at0007 = ╱23╱#╱ // 0x2648 @0x7
0x2641…2671 at0008 = ╱23╱#╱ // 0x2649 @0x8
0x2641…2671 at0009 = ╱23╱#╱ // 0x264a @0x9
0x2641…2671 at000a = ╱2e╱.╱ // 0x264b @0xa
0x2641…2671 at000b = ╱23╱#╱ // 0x264c @0xb
0x2641…2671 at000c = ╱23╱#╱ // 0x264d @0xc
0x2641…2671 at000d = ╱20╱…╱ // 0x264e @0xd
0x2641…2671 at000e = ╱25╱%╱ // 0x264f @0xe
0x2641…2671 at000f = ╱22╱"╱ // 0x2650 @0xf
0x2641…2671 at0010 = ╱f1╱ : ╱ // 0x2651 @0x10
0x2641…2671 at0011 = ╱c4╱ ABS ╱ // 0x2652 @0x11
0x2641…2671 at0012 = ╱ed╱ ( ╱ // 0x2653 @0x12
0x2641…2671 at0013 = ╱44╱D╱ // 0x2654 @0x13
0x2641…2671 at0014 = ╱52╱R╱ // 0x2655 @0x14
0x2641…2671 at0015 = ╱49╱I╱ // 0x2656 @0x15
0x2641…2671 at0016 = ╱46╱F╱ // 0x2657 @0x16
0x2641…2671 at0017 = ╱54╱T╱ // 0x2658 @0x17
0x2641…2671 at0018 = ╱ed╱ ( ╱ // 0x2659 @0x18
0x2641…2671 at0019 = ╱32╱2╱ // 0x265a @0x19
0x2641…2671 at001a = ╱f20200╱ // 0x265b @0x1a
0x2641…2671 at001d = ╱ee╱ ) ╱ // 0x265e @0x1d
0x2641…2671 at001e = ╱e7╱ * ╱ // 0x265f @0x1e
0x2641…2671 at001f = ╱31╱1╱ // 0x2660 @0x1f
0x2641…2671 at0020 = ╱30╱0╱ // 0x2661 @0x20
0x2641…2671 at0021 = ╱30╱0╱ // 0x2662 @0x21
0x2641…2671 at0022 = ╱f26400╱ // 0x2663 @0x22
0x2641…2671 at0025 = ╱ee╱ ) ╱ // 0x2666 @0x25
0x2641…2671 at0026 = ╱e8╱ / ╱ // 0x2667 @0x26
0x2641…2671 at0027 = ╱53╱S╱ // 0x2668 @0x27
0x2641…2671 at0028 = ╱5f╱_╱ // 0x2669 @0x28
0x2641…2671 at0029 = ╱4f╱O╱ // 0x266a @0x29
0x2641…2671 at002a = ╱4d╱M╱ // 0x266b @0x2a
0x2641…2671 at002b = ╱53╱S╱ // 0x266c @0x2b
0x2641…2671 at002c = ╱5b╱[╱ // 0x266d @0x2c
0x2641…2671 at002d = ╱54╱T╱ // 0x266e @0x2d
0x2641…2671 at002e = ╱4e╱N╱ // 0x266f @0x2e
0x2641…2671 at002f = EOL // 0x2670 @0x2f
0x2641…2671 }
0x2671…2687 bc75 03350 LET LIN_T := LIN_T + 1
0x2671…2687 LineComal80 {
0x2671…2687 ptr = 0xbc75 // 0x2671 @0x0
0x2671…2687 lno = 0x0d16 // 0x2673 @0x2
0x2671…2687 at0004 = ╱86╱ LET ╱ // 0x2675 @0x4
0x2671…2687 at0005 = ╱4c╱L╱ // 0x2676 @0x5
0x2671…2687 at0006 = ╱49╱I╱ // 0x2677 @0x6
0x2671…2687 at0007 = ╱4e╱N╱ // 0x2678 @0x7
0x2671…2687 at0008 = ╱5f╱_╱ // 0x2679 @0x8
0x2671…2687 at0009 = ╱54╱T╱ // 0x267a @0x9
0x2671…2687 at000a = ╱f0╱ := ╱ // 0x267b @0xa
0x2671…2687 at000b = ╱4c╱L╱ // 0x267c @0xb
0x2671…2687 at000c = ╱49╱I╱ // 0x267d @0xc
0x2671…2687 at000d = ╱4e╱N╱ // 0x267e @0xd
0x2671…2687 at000e = ╱5f╱_╱ // 0x267f @0xe
0x2671…2687 at000f = ╱54╱T╱ // 0x2680 @0xf
0x2671…2687 at0010 = ╱e5╱ + ╱ // 0x2681 @0x10
0x2671…2687 at0011 = ╱31╱1╱ // 0x2682 @0x11
0x2671…2687 at0012 = ╱f20100╱ // 0x2683 @0x12
0x2671…2687 at0015 = EOL // 0x2686 @0x15
0x2671…2687 }
0x2687…268d bc7b 03360 ENDIF
0x2687…268d LineComal80 {
0x2687…268d ptr = 0xbc7b // 0x2687 @0x0
0x2687…268d lno = 0x0d20 // 0x2689 @0x2
0x2687…268d at0004 = ╱9c╱ ENDIF ╱ // 0x268b @0x4
0x2687…268d at0005 = EOL // 0x268c @0x5
0x2687…268d }
0x268d…26a5 bc93 03370 LET IDXPOS := IDXPOS + 1
0x268d…26a5 LineComal80 {
0x268d…26a5 ptr = 0xbc93 // 0x268d @0x0
0x268d…26a5 lno = 0x0d2a // 0x268f @0x2
0x268d…26a5 at0004 = ╱86╱ LET ╱ // 0x2691 @0x4
0x268d…26a5 at0005 = ╱49╱I╱ // 0x2692 @0x5
0x268d…26a5 at0006 = ╱44╱D╱ // 0x2693 @0x6
0x268d…26a5 at0007 = ╱58╱X╱ // 0x2694 @0x7
0x268d…26a5 at0008 = ╱50╱P╱ // 0x2695 @0x8
0x268d…26a5 at0009 = ╱4f╱O╱ // 0x2696 @0x9
0x268d…26a5 at000a = ╱53╱S╱ // 0x2697 @0xa
0x268d…26a5 at000b = ╱f0╱ := ╱ // 0x2698 @0xb
0x268d…26a5 at000c = ╱49╱I╱ // 0x2699 @0xc
0x268d…26a5 at000d = ╱44╱D╱ // 0x269a @0xd
0x268d…26a5 at000e = ╱58╱X╱ // 0x269b @0xe
0x268d…26a5 at000f = ╱50╱P╱ // 0x269c @0xf
0x268d…26a5 at0010 = ╱4f╱O╱ // 0x269d @0x10
0x268d…26a5 at0011 = ╱53╱S╱ // 0x269e @0x11
0x268d…26a5 at0012 = ╱e5╱ + ╱ // 0x269f @0x12
0x268d…26a5 at0013 = ╱31╱1╱ // 0x26a0 @0x13
0x268d…26a5 at0014 = ╱f20100╱ // 0x26a1 @0x14
0x268d…26a5 at0017 = EOL // 0x26a4 @0x17
0x268d…26a5 }
0x26a5…26bd bcab 03380 IF IDXPOS > I_H\JREC THEN EXIT
0x26a5…26bd LineComal80 {
0x26a5…26bd ptr = 0xbcab // 0x26a5 @0x0
0x26a5…26bd lno = 0x0d34 // 0x26a7 @0x2
0x26a5…26bd at0004 = ╱8200╱ IF ╱ // 0x26a9 @0x4
0x26a5…26bd at0006 = ╱49╱I╱ // 0x26ab @0x6
0x26a5…26bd at0007 = ╱44╱D╱ // 0x26ac @0x7
0x26a5…26bd at0008 = ╱58╱X╱ // 0x26ad @0x8
0x26a5…26bd at0009 = ╱50╱P╱ // 0x26ae @0x9
0x26a5…26bd at000a = ╱4f╱O╱ // 0x26af @0xa
0x26a5…26bd at000b = ╱53╱S╱ // 0x26b0 @0xb
0x26a5…26bd at000c = ╱e1╱ > ╱ // 0x26b1 @0xc
0x26a5…26bd at000d = ╱49╱I╱ // 0x26b2 @0xd
0x26a5…26bd at000e = ╱5f╱_╱ // 0x26b3 @0xe
0x26a5…26bd at000f = ╱48╱H╱ // 0x26b4 @0xf
0x26a5…26bd at0010 = ╱5c╱\╱ // 0x26b5 @0x10
0x26a5…26bd at0011 = ╱4a╱J╱ // 0x26b6 @0x11
0x26a5…26bd at0012 = ╱52╱R╱ // 0x26b7 @0x12
0x26a5…26bd at0013 = ╱45╱E╱ // 0x26b8 @0x13
0x26a5…26bd at0014 = ╱43╱C╱ // 0x26b9 @0x14
0x26a5…26bd at0015 = ╱b5╱ THEN ╱ // 0x26ba @0x15
0x26a5…26bd at0016 = ╱99╱ EXIT ╱ // 0x26bb @0x16
0x26a5…26bd at0017 = EOL // 0x26bc @0x17
0x26a5…26bd }
0x26bd…26de bccc 03390 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
0x26bd…26de LineComal80 {
0x26bd…26de ptr = 0xbccc // 0x26bd @0x0
0x26bd…26de lno = 0x0d3e // 0x26bf @0x2
0x26bd…26de at0004 = ╱a9╱ GET ╱ // 0x26c1 @0x4
0x26bd…26de at0005 = ╱4b╱K╱ // 0x26c2 @0x5
0x26bd…26de at0006 = ╱54╱T╱ // 0x26c3 @0x6
0x26bd…26de at0007 = ╱4f╱O╱ // 0x26c4 @0x7
0x26bd…26de at0008 = ╱49╱I╱ // 0x26c5 @0x8
0x26bd…26de at0009 = ╱44╱D╱ // 0x26c6 @0x9
0x26bd…26de at000a = ╱58╱X╱ // 0x26c7 @0xa
0x26bd…26de at000b = ╱ef╱ $ ╱ // 0x26c8 @0xb
0x26bd…26de at000c = ╱ec╱ , ╱ // 0x26c9 @0xc
0x26bd…26de at000d = ╱49╱I╱ // 0x26ca @0xd
0x26bd…26de at000e = ╱44╱D╱ // 0x26cb @0xe
0x26bd…26de at000f = ╱58╱X╱ // 0x26cc @0xf
0x26bd…26de at0010 = ╱50╱P╱ // 0x26cd @0x10
0x26bd…26de at0011 = ╱4f╱O╱ // 0x26ce @0x11
0x26bd…26de at0012 = ╱53╱S╱ // 0x26cf @0x12
0x26bd…26de at0013 = ╱f1╱ : ╱ // 0x26d0 @0x13
0x26bd…26de at0014 = ╱4b╱K╱ // 0x26d1 @0x14
0x26bd…26de at0015 = ╱54╱T╱ // 0x26d2 @0x15
0x26bd…26de at0016 = ╱4f╱O╱ // 0x26d3 @0x16
0x26bd…26de at0017 = ╱4e╱N╱ // 0x26d4 @0x17
0x26bd…26de at0018 = ╱52╱R╱ // 0x26d5 @0x18
0x26bd…26de at0019 = ╱ef╱ $ ╱ // 0x26d6 @0x19
0x26bd…26de at001a = ╱ec╱ , ╱ // 0x26d7 @0x1a
0x26bd…26de at001b = ╱52╱R╱ // 0x26d8 @0x1b
0x26bd…26de at001c = ╱45╱E╱ // 0x26d9 @0x1c
0x26bd…26de at001d = ╱43╱C╱ // 0x26da @0x1d
0x26bd…26de at001e = ╱4e╱N╱ // 0x26db @0x1e
0x26bd…26de at001f = ╱52╱R╱ // 0x26dc @0x1f
0x26bd…26de at0020 = EOL // 0x26dd @0x20
0x26bd…26de }
0x26de…26e4 bcd2 03400 ENDWHILE
0x26de…26e4 LineComal80 {
0x26de…26e4 ptr = 0xbcd2 // 0x26de @0x0
0x26de…26e4 lno = 0x0d48 // 0x26e0 @0x2
0x26de…26e4 at0004 = ╱94╱ ENDWHILE ╱ // 0x26e2 @0x4
0x26de…26e4 at0005 = EOL // 0x26e3 @0x5
0x26de…26e4 }
0x26e4…26fa bce8 03410 GET SAMFIL $ : S_KTONR $
0x26e4…26fa LineComal80 {
0x26e4…26fa ptr = 0xbce8 // 0x26e4 @0x0
0x26e4…26fa lno = 0x0d52 // 0x26e6 @0x2
0x26e4…26fa at0004 = ╱a9╱ GET ╱ // 0x26e8 @0x4
0x26e4…26fa at0005 = ╱53╱S╱ // 0x26e9 @0x5
0x26e4…26fa at0006 = ╱41╱A╱ // 0x26ea @0x6
0x26e4…26fa at0007 = ╱4d╱M╱ // 0x26eb @0x7
0x26e4…26fa at0008 = ╱46╱F╱ // 0x26ec @0x8
0x26e4…26fa at0009 = ╱49╱I╱ // 0x26ed @0x9
0x26e4…26fa at000a = ╱4c╱L╱ // 0x26ee @0xa
0x26e4…26fa at000b = ╱ef╱ $ ╱ // 0x26ef @0xb
0x26e4…26fa at000c = ╱f1╱ : ╱ // 0x26f0 @0xc
0x26e4…26fa at000d = ╱53╱S╱ // 0x26f1 @0xd
0x26e4…26fa at000e = ╱5f╱_╱ // 0x26f2 @0xe
0x26e4…26fa at000f = ╱4b╱K╱ // 0x26f3 @0xf
0x26e4…26fa at0010 = ╱54╱T╱ // 0x26f4 @0x10
0x26e4…26fa at0011 = ╱4f╱O╱ // 0x26f5 @0x11
0x26e4…26fa at0012 = ╱4e╱N╱ // 0x26f6 @0x12
0x26e4…26fa at0013 = ╱52╱R╱ // 0x26f7 @0x13
0x26e4…26fa at0014 = ╱ef╱ $ ╱ // 0x26f8 @0x14
0x26e4…26fa at0015 = EOL // 0x26f9 @0x15
0x26e4…26fa }
0x26fa…2700 bcee 03420 ENDWHILE
0x26fa…2700 LineComal80 {
0x26fa…2700 ptr = 0xbcee // 0x26fa @0x0
0x26fa…2700 lno = 0x0d5c // 0x26fc @0x2
0x26fa…2700 at0004 = ╱94╱ ENDWHILE ╱ // 0x26fe @0x4
0x26fa…2700 at0005 = EOL // 0x26ff @0x5
0x26fa…2700 }
0x2700…270d bcfb 03430 CLOSE SAMFIL $
0x2700…270d LineComal80 {
0x2700…270d ptr = 0xbcfb // 0x2700 @0x0
0x2700…270d lno = 0x0d66 // 0x2702 @0x2
0x2700…270d at0004 = ╱a8╱ CLOSE ╱ // 0x2704 @0x4
0x2700…270d at0005 = ╱53╱S╱ // 0x2705 @0x5
0x2700…270d at0006 = ╱41╱A╱ // 0x2706 @0x6
0x2700…270d at0007 = ╱4d╱M╱ // 0x2707 @0x7
0x2700…270d at0008 = ╱46╱F╱ // 0x2708 @0x8
0x2700…270d at0009 = ╱49╱I╱ // 0x2709 @0x9
0x2700…270d at000a = ╱4c╱L╱ // 0x270a @0xa
0x2700…270d at000b = ╱ef╱ $ ╱ // 0x270b @0xb
0x2700…270d at000c = EOL // 0x270c @0xc
0x2700…270d }
0x270d…2720 bd0e 03440 ENDPROC OMK_I_PROCENT
0x270d…2720 LineComal80 {
0x270d…2720 ptr = 0xbd0e // 0x270d @0x0
0x270d…2720 lno = 0x0d70 // 0x270f @0x2
0x270d…2720 at0004 = ╱9f╱ ENDPROC ╱ // 0x2711 @0x4
0x270d…2720 at0005 = ╱4f╱O╱ // 0x2712 @0x5
0x270d…2720 at0006 = ╱4d╱M╱ // 0x2713 @0x6
0x270d…2720 at0007 = ╱4b╱K╱ // 0x2714 @0x7
0x270d…2720 at0008 = ╱5f╱_╱ // 0x2715 @0x8
0x270d…2720 at0009 = ╱49╱I╱ // 0x2716 @0x9
0x270d…2720 at000a = ╱5f╱_╱ // 0x2717 @0xa
0x270d…2720 at000b = ╱50╱P╱ // 0x2718 @0xb
0x270d…2720 at000c = ╱52╱R╱ // 0x2719 @0xc
0x270d…2720 at000d = ╱4f╱O╱ // 0x271a @0xd
0x270d…2720 at000e = ╱43╱C╱ // 0x271b @0xe
0x270d…2720 at000f = ╱45╱E╱ // 0x271c @0xf
0x270d…2720 at0010 = ╱4e╱N╱ // 0x271d @0x10
0x270d…2720 at0011 = ╱54╱T╱ // 0x271e @0x11
0x270d…2720 at0012 = EOL // 0x271f @0x12
0x270d…2720 }
0x2720…2730 bd1e 03450 PROC SIDESKIFT
0x2720…2730 LineComal80 {
0x2720…2730 ptr = 0xbd1e // 0x2720 @0x0
0x2720…2730 lno = 0x0d7a // 0x2722 @0x2
0x2720…2730 at0004 = ╱9e00╱ PROC ╱ // 0x2724 @0x4
0x2720…2730 at0006 = ╱53╱S╱ // 0x2726 @0x6
0x2720…2730 at0007 = ╱49╱I╱ // 0x2727 @0x7
0x2720…2730 at0008 = ╱44╱D╱ // 0x2728 @0x8
0x2720…2730 at0009 = ╱45╱E╱ // 0x2729 @0x9
0x2720…2730 at000a = ╱53╱S╱ // 0x272a @0xa
0x2720…2730 at000b = ╱4b╱K╱ // 0x272b @0xb
0x2720…2730 at000c = ╱49╱I╱ // 0x272c @0xc
0x2720…2730 at000d = ╱46╱F╱ // 0x272d @0xd
0x2720…2730 at000e = ╱54╱T╱ // 0x272e @0xe
0x2720…2730 at000f = EOL // 0x272f @0xf
0x2720…2730 }
0x2730…2748 bd36 03460 FOR I := LIN_T TO AX_LIN DO PRINT
0x2730…2748 LineComal80 {
0x2730…2748 ptr = 0xbd36 // 0x2730 @0x0
0x2730…2748 lno = 0x0d84 // 0x2732 @0x2
0x2730…2748 at0004 = ╱b400╱ FOR ╱ // 0x2734 @0x4
0x2730…2748 at0006 = ╱49╱I╱ // 0x2736 @0x6
0x2730…2748 at0007 = ╱f0╱ := ╱ // 0x2737 @0x7
0x2730…2748 at0008 = ╱4c╱L╱ // 0x2738 @0x8
0x2730…2748 at0009 = ╱49╱I╱ // 0x2739 @0x9
0x2730…2748 at000a = ╱4e╱N╱ // 0x273a @0xa
0x2730…2748 at000b = ╱5f╱_╱ // 0x273b @0xb
0x2730…2748 at000c = ╱54╱T╱ // 0x273c @0xc
0x2730…2748 at000d = ╱b74d╱ TO ╱ // 0x273d @0xd
0x2730…2748 at000f = ╱41╱A╱ // 0x273f @0xf
0x2730…2748 at0010 = ╱58╱X╱ // 0x2740 @0x10
0x2730…2748 at0011 = ╱5f╱_╱ // 0x2741 @0x11
0x2730…2748 at0012 = ╱4c╱L╱ // 0x2742 @0x12
0x2730…2748 at0013 = ╱49╱I╱ // 0x2743 @0x13
0x2730…2748 at0014 = ╱4e╱N╱ // 0x2744 @0x14
0x2730…2748 at0015 = ╱bb╱ DO ╱ // 0x2745 @0x15
0x2730…2748 at0016 = ╱92╱ PRINT ╱ // 0x2746 @0x16
0x2730…2748 at0017 = EOL // 0x2747 @0x17
0x2730…2748 }
0x2748…276b bd59 03470 LET SIDENR := SIDENR + 1 ; LIN_T := 8
0x2748…276b LineComal80 {
0x2748…276b ptr = 0xbd59 // 0x2748 @0x0
0x2748…276b lno = 0x0d8e // 0x274a @0x2
0x2748…276b at0004 = ╱86╱ LET ╱ // 0x274c @0x4
0x2748…276b at0005 = ╱53╱S╱ // 0x274d @0x5
0x2748…276b at0006 = ╱49╱I╱ // 0x274e @0x6
0x2748…276b at0007 = ╱44╱D╱ // 0x274f @0x7
0x2748…276b at0008 = ╱45╱E╱ // 0x2750 @0x8
0x2748…276b at0009 = ╱4e╱N╱ // 0x2751 @0x9
0x2748…276b at000a = ╱52╱R╱ // 0x2752 @0xa
0x2748…276b at000b = ╱f0╱ := ╱ // 0x2753 @0xb
0x2748…276b at000c = ╱53╱S╱ // 0x2754 @0xc
0x2748…276b at000d = ╱49╱I╱ // 0x2755 @0xd
0x2748…276b at000e = ╱44╱D╱ // 0x2756 @0xe
0x2748…276b at000f = ╱45╱E╱ // 0x2757 @0xf
0x2748…276b at0010 = ╱4e╱N╱ // 0x2758 @0x10
0x2748…276b at0011 = ╱52╱R╱ // 0x2759 @0x11
0x2748…276b at0012 = ╱e5╱ + ╱ // 0x275a @0x12
0x2748…276b at0013 = ╱31╱1╱ // 0x275b @0x13
0x2748…276b at0014 = ╱f20100╱ // 0x275c @0x14
0x2748…276b at0017 = ╱ea╱ ; ╱ // 0x275f @0x17
0x2748…276b at0018 = ╱4c╱L╱ // 0x2760 @0x18
0x2748…276b at0019 = ╱49╱I╱ // 0x2761 @0x19
0x2748…276b at001a = ╱4e╱N╱ // 0x2762 @0x1a
0x2748…276b at001b = ╱5f╱_╱ // 0x2763 @0x1b
0x2748…276b at001c = ╱54╱T╱ // 0x2764 @0x1c
0x2748…276b at001d = ╱f0╱ := ╱ // 0x2765 @0x1d
0x2748…276b at001e = ╱38╱8╱ // 0x2766 @0x1e
0x2748…276b at001f = ╱f20800╱ // 0x2767 @0x1f
0x2748…276b at0022 = EOL // 0x276a @0x22
0x2748…276b }
0x276b…2771 bd5f 03480 PRINT
0x276b…2771 LineComal80 {
0x276b…2771 ptr = 0xbd5f // 0x276b @0x0
0x276b…2771 lno = 0x0d98 // 0x276d @0x2
0x276b…2771 at0004 = ╱92╱ PRINT ╱ // 0x276f @0x4
0x276b…2771 at0005 = EOL // 0x2770 @0x5
0x276b…2771 }
0x2771…278f bd7d 03490 PRINT "***…" ; SYST_NAVN $ ; "…***"
0x2771…278f LineComal80 {
0x2771…278f ptr = 0xbd7d // 0x2771 @0x0
0x2771…278f lno = 0x0da2 // 0x2773 @0x2
0x2771…278f at0004 = ╱92╱ PRINT ╱ // 0x2775 @0x4
0x2771…278f at0005 = ╱22╱"╱ // 0x2776 @0x5
0x2771…278f at0006 = ╱2a╱*╱ // 0x2777 @0x6
0x2771…278f at0007 = ╱2a╱*╱ // 0x2778 @0x7
0x2771…278f at0008 = ╱2a╱*╱ // 0x2779 @0x8
0x2771…278f at0009 = ╱20╱…╱ // 0x277a @0x9
0x2771…278f at000a = ╱22╱"╱ // 0x277b @0xa
0x2771…278f at000b = ╱ea╱ ; ╱ // 0x277c @0xb
0x2771…278f at000c = ╱53╱S╱ // 0x277d @0xc
0x2771…278f at000d = ╱59╱Y╱ // 0x277e @0xd
0x2771…278f at000e = ╱53╱S╱ // 0x277f @0xe
0x2771…278f at000f = ╱54╱T╱ // 0x2780 @0xf
0x2771…278f at0010 = ╱5f╱_╱ // 0x2781 @0x10
0x2771…278f at0011 = ╱4e╱N╱ // 0x2782 @0x11
0x2771…278f at0012 = ╱41╱A╱ // 0x2783 @0x12
0x2771…278f at0013 = ╱56╱V╱ // 0x2784 @0x13
0x2771…278f at0014 = ╱4e╱N╱ // 0x2785 @0x14
0x2771…278f at0015 = ╱ef╱ $ ╱ // 0x2786 @0x15
0x2771…278f at0016 = ╱ea╱ ; ╱ // 0x2787 @0x16
0x2771…278f at0017 = ╱22╱"╱ // 0x2788 @0x17
0x2771…278f at0018 = ╱20╱…╱ // 0x2789 @0x18
0x2771…278f at0019 = ╱2a╱*╱ // 0x278a @0x19
0x2771…278f at001a = ╱2a╱*╱ // 0x278b @0x1a
0x2771…278f at001b = ╱2a╱*╱ // 0x278c @0x1b
0x2771…278f at001c = ╱22╱"╱ // 0x278d @0x1c
0x2771…278f at001d = EOL // 0x278e @0x1d
0x2771…278f }
0x278f…2795 bd83 03500 PRINT
0x278f…2795 LineComal80 {
0x278f…2795 ptr = 0xbd83 // 0x278f @0x0
0x278f…2795 lno = 0x0dac // 0x2791 @0x2
0x278f…2795 at0004 = ╱92╱ PRINT ╱ // 0x2793 @0x4
0x278f…2795 at0005 = EOL // 0x2794 @0x5
0x278f…2795 }
0x2795…27d9 bdc7 03510 PRINT "****…R…E…G…N…S…K…A…B…S…A…N…A…L…Y…S…E…****" ; TAB ( 58 ) ; "SIDE:…" ;
0x2795…27d9 LineComal80 {
0x2795…27d9 ptr = 0xbdc7 // 0x2795 @0x0
0x2795…27d9 lno = 0x0db6 // 0x2797 @0x2
0x2795…27d9 at0004 = ╱92╱ PRINT ╱ // 0x2799 @0x4
0x2795…27d9 at0005 = ╱22╱"╱ // 0x279a @0x5
0x2795…27d9 at0006 = ╱2a╱*╱ // 0x279b @0x6
0x2795…27d9 at0007 = ╱2a╱*╱ // 0x279c @0x7
0x2795…27d9 at0008 = ╱2a╱*╱ // 0x279d @0x8
0x2795…27d9 at0009 = ╱2a╱*╱ // 0x279e @0x9
0x2795…27d9 at000a = ╱20╱…╱ // 0x279f @0xa
0x2795…27d9 at000b = ╱52╱R╱ // 0x27a0 @0xb
0x2795…27d9 at000c = ╱20╱…╱ // 0x27a1 @0xc
0x2795…27d9 at000d = ╱45╱E╱ // 0x27a2 @0xd
0x2795…27d9 at000e = ╱20╱…╱ // 0x27a3 @0xe
0x2795…27d9 at000f = ╱47╱G╱ // 0x27a4 @0xf
0x2795…27d9 at0010 = ╱20╱…╱ // 0x27a5 @0x10
0x2795…27d9 at0011 = ╱4e╱N╱ // 0x27a6 @0x11
0x2795…27d9 at0012 = ╱20╱…╱ // 0x27a7 @0x12
0x2795…27d9 at0013 = ╱53╱S╱ // 0x27a8 @0x13
0x2795…27d9 at0014 = ╱20╱…╱ // 0x27a9 @0x14
0x2795…27d9 at0015 = ╱4b╱K╱ // 0x27aa @0x15
0x2795…27d9 at0016 = ╱20╱…╱ // 0x27ab @0x16
0x2795…27d9 at0017 = ╱41╱A╱ // 0x27ac @0x17
0x2795…27d9 at0018 = ╱20╱…╱ // 0x27ad @0x18
0x2795…27d9 at0019 = ╱42╱B╱ // 0x27ae @0x19
0x2795…27d9 at001a = ╱20╱…╱ // 0x27af @0x1a
0x2795…27d9 at001b = ╱53╱S╱ // 0x27b0 @0x1b
0x2795…27d9 at001c = ╱20╱…╱ // 0x27b1 @0x1c
0x2795…27d9 at001d = ╱41╱A╱ // 0x27b2 @0x1d
0x2795…27d9 at001e = ╱20╱…╱ // 0x27b3 @0x1e
0x2795…27d9 at001f = ╱4e╱N╱ // 0x27b4 @0x1f
0x2795…27d9 at0020 = ╱20╱…╱ // 0x27b5 @0x20
0x2795…27d9 at0021 = ╱41╱A╱ // 0x27b6 @0x21
0x2795…27d9 at0022 = ╱20╱…╱ // 0x27b7 @0x22
0x2795…27d9 at0023 = ╱4c╱L╱ // 0x27b8 @0x23
0x2795…27d9 at0024 = ╱20╱…╱ // 0x27b9 @0x24
0x2795…27d9 at0025 = ╱59╱Y╱ // 0x27ba @0x25
0x2795…27d9 at0026 = ╱20╱…╱ // 0x27bb @0x26
0x2795…27d9 at0027 = ╱53╱S╱ // 0x27bc @0x27
0x2795…27d9 at0028 = ╱20╱…╱ // 0x27bd @0x28
0x2795…27d9 at0029 = ╱45╱E╱ // 0x27be @0x29
0x2795…27d9 at002a = ╱20╱…╱ // 0x27bf @0x2a
0x2795…27d9 at002b = ╱2a╱*╱ // 0x27c0 @0x2b
0x2795…27d9 at002c = ╱2a╱*╱ // 0x27c1 @0x2c
0x2795…27d9 at002d = ╱2a╱*╱ // 0x27c2 @0x2d
0x2795…27d9 at002e = ╱2a╱*╱ // 0x27c3 @0x2e
0x2795…27d9 at002f = ╱22╱"╱ // 0x27c4 @0x2f
0x2795…27d9 at0030 = ╱ea╱ ; ╱ // 0x27c5 @0x30
0x2795…27d9 at0031 = ╱d2╱ TAB ╱ // 0x27c6 @0x31
0x2795…27d9 at0032 = ╱ed╱ ( ╱ // 0x27c7 @0x32
0x2795…27d9 at0033 = ╱35╱5╱ // 0x27c8 @0x33
0x2795…27d9 at0034 = ╱38╱8╱ // 0x27c9 @0x34
0x2795…27d9 at0035 = ╱f23a00╱ // 0x27ca @0x35
0x2795…27d9 at0038 = ╱ee╱ ) ╱ // 0x27cd @0x38
0x2795…27d9 at0039 = ╱ea╱ ; ╱ // 0x27ce @0x39
0x2795…27d9 at003a = ╱22╱"╱ // 0x27cf @0x3a
0x2795…27d9 at003b = ╱53╱S╱ // 0x27d0 @0x3b
0x2795…27d9 at003c = ╱49╱I╱ // 0x27d1 @0x3c
0x2795…27d9 at003d = ╱44╱D╱ // 0x27d2 @0x3d
0x2795…27d9 at003e = ╱45╱E╱ // 0x27d3 @0x3e
0x2795…27d9 at003f = ╱3a╱:╱ // 0x27d4 @0x3f
0x2795…27d9 at0040 = ╱20╱…╱ // 0x27d5 @0x40
0x2795…27d9 at0041 = ╱22╱"╱ // 0x27d6 @0x41
0x2795…27d9 at0042 = ╱ea╱ ; ╱ // 0x27d7 @0x42
0x2795…27d9 at0043 = EOL // 0x27d8 @0x43
0x2795…27d9 }
0x27d9…27e5 bdd3 03520 PRINT SIDENR
0x27d9…27e5 LineComal80 {
0x27d9…27e5 ptr = 0xbdd3 // 0x27d9 @0x0
0x27d9…27e5 lno = 0x0dc0 // 0x27db @0x2
0x27d9…27e5 at0004 = ╱92╱ PRINT ╱ // 0x27dd @0x4
0x27d9…27e5 at0005 = ╱53╱S╱ // 0x27de @0x5
0x27d9…27e5 at0006 = ╱49╱I╱ // 0x27df @0x6
0x27d9…27e5 at0007 = ╱44╱D╱ // 0x27e0 @0x7
0x27d9…27e5 at0008 = ╱45╱E╱ // 0x27e1 @0x8
0x27d9…27e5 at0009 = ╱4e╱N╱ // 0x27e2 @0x9
0x27d9…27e5 at000a = ╱52╱R╱ // 0x27e3 @0xa
0x27d9…27e5 at000b = EOL // 0x27e4 @0xb
0x27d9…27e5 }
0x27e5…27eb bdd9 03530 PRINT
0x27e5…27eb LineComal80 {
0x27e5…27eb ptr = 0xbdd9 // 0x27e5 @0x0
0x27e5…27eb lno = 0x0dca // 0x27e7 @0x2
0x27e5…27eb at0004 = ╱92╱ PRINT ╱ // 0x27e9 @0x4
0x27e5…27eb at0005 = EOL // 0x27ea @0x5
0x27e5…27eb }
0x27eb…2809 bdf7 03540 PRINT "Firmanavn:…" ; FIRMANAVN $
0x27eb…2809 LineComal80 {
0x27eb…2809 ptr = 0xbdf7 // 0x27eb @0x0
0x27eb…2809 lno = 0x0dd4 // 0x27ed @0x2
0x27eb…2809 at0004 = ╱92╱ PRINT ╱ // 0x27ef @0x4
0x27eb…2809 at0005 = ╱22╱"╱ // 0x27f0 @0x5
0x27eb…2809 at0006 = ╱46╱F╱ // 0x27f1 @0x6
0x27eb…2809 at0007 = ╱69╱i╱ // 0x27f2 @0x7
0x27eb…2809 at0008 = ╱72╱r╱ // 0x27f3 @0x8
0x27eb…2809 at0009 = ╱6d╱m╱ // 0x27f4 @0x9
0x27eb…2809 at000a = ╱61╱a╱ // 0x27f5 @0xa
0x27eb…2809 at000b = ╱6e╱n╱ // 0x27f6 @0xb
0x27eb…2809 at000c = ╱61╱a╱ // 0x27f7 @0xc
0x27eb…2809 at000d = ╱76╱v╱ // 0x27f8 @0xd
0x27eb…2809 at000e = ╱6e╱n╱ // 0x27f9 @0xe
0x27eb…2809 at000f = ╱3a╱:╱ // 0x27fa @0xf
0x27eb…2809 at0010 = ╱20╱…╱ // 0x27fb @0x10
0x27eb…2809 at0011 = ╱22╱"╱ // 0x27fc @0x11
0x27eb…2809 at0012 = ╱ea╱ ; ╱ // 0x27fd @0x12
0x27eb…2809 at0013 = ╱46╱F╱ // 0x27fe @0x13
0x27eb…2809 at0014 = ╱49╱I╱ // 0x27ff @0x14
0x27eb…2809 at0015 = ╱52╱R╱ // 0x2800 @0x15
0x27eb…2809 at0016 = ╱4d╱M╱ // 0x2801 @0x16
0x27eb…2809 at0017 = ╱41╱A╱ // 0x2802 @0x17
0x27eb…2809 at0018 = ╱4e╱N╱ // 0x2803 @0x18
0x27eb…2809 at0019 = ╱41╱A╱ // 0x2804 @0x19
0x27eb…2809 at001a = ╱56╱V╱ // 0x2805 @0x1a
0x27eb…2809 at001b = ╱4e╱N╱ // 0x2806 @0x1b
0x27eb…2809 at001c = ╱ef╱ $ ╱ // 0x2807 @0x1c
0x27eb…2809 at001d = EOL // 0x2808 @0x1d
0x27eb…2809 }
0x2809…280f bdfd 03550 PRINT
0x2809…280f LineComal80 {
0x2809…280f ptr = 0xbdfd // 0x2809 @0x0
0x2809…280f lno = 0x0dde // 0x280b @0x2
0x2809…280f at0004 = ╱92╱ PRINT ╱ // 0x280d @0x4
0x2809…280f at0005 = EOL // 0x280e @0x5
0x2809…280f }
0x280f…281e be0c 03560 ENDPROC SIDESKIFT
0x280f…281e LineComal80 {
0x280f…281e ptr = 0xbe0c // 0x280f @0x0
0x280f…281e lno = 0x0de8 // 0x2811 @0x2
0x280f…281e at0004 = ╱9f╱ ENDPROC ╱ // 0x2813 @0x4
0x280f…281e at0005 = ╱53╱S╱ // 0x2814 @0x5
0x280f…281e at0006 = ╱49╱I╱ // 0x2815 @0x6
0x280f…281e at0007 = ╱44╱D╱ // 0x2816 @0x7
0x280f…281e at0008 = ╱45╱E╱ // 0x2817 @0x8
0x280f…281e at0009 = ╱53╱S╱ // 0x2818 @0x9
0x280f…281e at000a = ╱4b╱K╱ // 0x2819 @0xa
0x280f…281e at000b = ╱49╱I╱ // 0x281a @0xb
0x280f…281e at000c = ╱46╱F╱ // 0x281b @0xc
0x280f…281e at000d = ╱54╱T╱ // 0x281c @0xd
0x280f…281e at000e = EOL // 0x281d @0xe
0x280f…281e }
0x281e…2823 be11 03570
0x281e…2823 LineComal80 {
0x281e…2823 ptr = 0xbe11 // 0x281e @0x0
0x281e…2823 lno = 0x0df2 // 0x2820 @0x2
0x281e…2823 at0004 = EOL // 0x2822 @0x4
0x281e…2823 }
0x2823…2837 be25 03580 PROC FUNKTIONSMENU
0x2823…2837 LineComal80 {
0x2823…2837 ptr = 0xbe25 // 0x2823 @0x0
0x2823…2837 lno = 0x0dfc // 0x2825 @0x2
0x2823…2837 at0004 = ╱9e00╱ PROC ╱ // 0x2827 @0x4
0x2823…2837 at0006 = ╱46╱F╱ // 0x2829 @0x6
0x2823…2837 at0007 = ╱55╱U╱ // 0x282a @0x7
0x2823…2837 at0008 = ╱4e╱N╱ // 0x282b @0x8
0x2823…2837 at0009 = ╱4b╱K╱ // 0x282c @0x9
0x2823…2837 at000a = ╱54╱T╱ // 0x282d @0xa
0x2823…2837 at000b = ╱49╱I╱ // 0x282e @0xb
0x2823…2837 at000c = ╱4f╱O╱ // 0x282f @0xc
0x2823…2837 at000d = ╱4e╱N╱ // 0x2830 @0xd
0x2823…2837 at000e = ╱53╱S╱ // 0x2831 @0xe
0x2823…2837 at000f = ╱4d╱M╱ // 0x2832 @0xf
0x2823…2837 at0010 = ╱45╱E╱ // 0x2833 @0x10
0x2823…2837 at0011 = ╱4e╱N╱ // 0x2834 @0x11
0x2823…2837 at0012 = ╱55╱U╱ // 0x2835 @0x12
0x2823…2837 at0013 = EOL // 0x2836 @0x13
0x2823…2837 }
0x2837…2860 be4e 03590 EXEC OVERSKRIFT ( "Regnskabsanalyse" , 6 )
0x2837…2860 LineComal80 {
0x2837…2860 ptr = 0xbe4e // 0x2837 @0x0
0x2837…2860 lno = 0x0e06 // 0x2839 @0x2
0x2837…2860 at0004 = ╱9d╱ EXEC ╱ // 0x283b @0x4
0x2837…2860 at0005 = ╱4f╱O╱ // 0x283c @0x5
0x2837…2860 at0006 = ╱56╱V╱ // 0x283d @0x6
0x2837…2860 at0007 = ╱45╱E╱ // 0x283e @0x7
0x2837…2860 at0008 = ╱52╱R╱ // 0x283f @0x8
0x2837…2860 at0009 = ╱53╱S╱ // 0x2840 @0x9
0x2837…2860 at000a = ╱4b╱K╱ // 0x2841 @0xa
0x2837…2860 at000b = ╱52╱R╱ // 0x2842 @0xb
0x2837…2860 at000c = ╱49╱I╱ // 0x2843 @0xc
0x2837…2860 at000d = ╱46╱F╱ // 0x2844 @0xd
0x2837…2860 at000e = ╱54╱T╱ // 0x2845 @0xe
0x2837…2860 at000f = ╱ed╱ ( ╱ // 0x2846 @0xf
0x2837…2860 at0010 = ╱22╱"╱ // 0x2847 @0x10
0x2837…2860 at0011 = ╱52╱R╱ // 0x2848 @0x11
0x2837…2860 at0012 = ╱65╱e╱ // 0x2849 @0x12
0x2837…2860 at0013 = ╱67╱g╱ // 0x284a @0x13
0x2837…2860 at0014 = ╱6e╱n╱ // 0x284b @0x14
0x2837…2860 at0015 = ╱73╱s╱ // 0x284c @0x15
0x2837…2860 at0016 = ╱6b╱k╱ // 0x284d @0x16
0x2837…2860 at0017 = ╱61╱a╱ // 0x284e @0x17
0x2837…2860 at0018 = ╱62╱b╱ // 0x284f @0x18
0x2837…2860 at0019 = ╱73╱s╱ // 0x2850 @0x19
0x2837…2860 at001a = ╱61╱a╱ // 0x2851 @0x1a
0x2837…2860 at001b = ╱6e╱n╱ // 0x2852 @0x1b
0x2837…2860 at001c = ╱61╱a╱ // 0x2853 @0x1c
0x2837…2860 at001d = ╱6c╱l╱ // 0x2854 @0x1d
0x2837…2860 at001e = ╱79╱y╱ // 0x2855 @0x1e
0x2837…2860 at001f = ╱73╱s╱ // 0x2856 @0x1f
0x2837…2860 at0020 = ╱65╱e╱ // 0x2857 @0x20
0x2837…2860 at0021 = ╱22╱"╱ // 0x2858 @0x21
0x2837…2860 at0022 = ╱ec╱ , ╱ // 0x2859 @0x22
0x2837…2860 at0023 = ╱36╱6╱ // 0x285a @0x23
0x2837…2860 at0024 = ╱f20600╱ // 0x285b @0x24
0x2837…2860 at0027 = ╱ee╱ ) ╱ // 0x285e @0x27
0x2837…2860 at0028 = EOL // 0x285f @0x28
0x2837…2860 }
0x2860…28a6 be94 03600 INPUT "<C0809>Indtast…venligst:…………\vrige…var.…omkostninger:…" : \VR_VAR
0x2860…28a6 LineComal80 {
0x2860…28a6 ptr = 0xbe94 // 0x2860 @0x0
0x2860…28a6 lno = 0x0e10 // 0x2862 @0x2
0x2860…28a6 at0004 = ╱91╱ INPUT ╱ // 0x2864 @0x4
0x2860…28a6 at0005 = ╱22╱"╱ // 0x2865 @0x5
0x2860…28a6 at0006 = ╱3c╱<╱ // 0x2866 @0x6
0x2860…28a6 at0007 = ╱43╱C╱ // 0x2867 @0x7
0x2860…28a6 at0008 = ╱30╱0╱ // 0x2868 @0x8
0x2860…28a6 at0009 = ╱38╱8╱ // 0x2869 @0x9
0x2860…28a6 at000a = ╱30╱0╱ // 0x286a @0xa
0x2860…28a6 at000b = ╱39╱9╱ // 0x286b @0xb
0x2860…28a6 at000c = ╱3e╱>╱ // 0x286c @0xc
0x2860…28a6 at000d = ╱49╱I╱ // 0x286d @0xd
0x2860…28a6 at000e = ╱6e╱n╱ // 0x286e @0xe
0x2860…28a6 at000f = ╱64╱d╱ // 0x286f @0xf
0x2860…28a6 at0010 = ╱74╱t╱ // 0x2870 @0x10
0x2860…28a6 at0011 = ╱61╱a╱ // 0x2871 @0x11
0x2860…28a6 at0012 = ╱73╱s╱ // 0x2872 @0x12
0x2860…28a6 at0013 = ╱74╱t╱ // 0x2873 @0x13
0x2860…28a6 at0014 = ╱20╱…╱ // 0x2874 @0x14
0x2860…28a6 at0015 = ╱76╱v╱ // 0x2875 @0x15
0x2860…28a6 at0016 = ╱65╱e╱ // 0x2876 @0x16
0x2860…28a6 at0017 = ╱6e╱n╱ // 0x2877 @0x17
0x2860…28a6 at0018 = ╱6c╱l╱ // 0x2878 @0x18
0x2860…28a6 at0019 = ╱69╱i╱ // 0x2879 @0x19
0x2860…28a6 at001a = ╱67╱g╱ // 0x287a @0x1a
0x2860…28a6 at001b = ╱73╱s╱ // 0x287b @0x1b
0x2860…28a6 at001c = ╱74╱t╱ // 0x287c @0x1c
0x2860…28a6 at001d = ╱3a╱:╱ // 0x287d @0x1d
0x2860…28a6 at001e = ╱20╱…╱ // 0x287e @0x1e
0x2860…28a6 at001f = ╱20╱…╱ // 0x287f @0x1f
0x2860…28a6 at0020 = ╱20╱…╱ // 0x2880 @0x20
0x2860…28a6 at0021 = ╱20╱…╱ // 0x2881 @0x21
0x2860…28a6 at0022 = ╱5c╱\╱ // 0x2882 @0x22
0x2860…28a6 at0023 = ╱76╱v╱ // 0x2883 @0x23
0x2860…28a6 at0024 = ╱72╱r╱ // 0x2884 @0x24
0x2860…28a6 at0025 = ╱69╱i╱ // 0x2885 @0x25
0x2860…28a6 at0026 = ╱67╱g╱ // 0x2886 @0x26
0x2860…28a6 at0027 = ╱65╱e╱ // 0x2887 @0x27
0x2860…28a6 at0028 = ╱20╱…╱ // 0x2888 @0x28
0x2860…28a6 at0029 = ╱76╱v╱ // 0x2889 @0x29
0x2860…28a6 at002a = ╱61╱a╱ // 0x288a @0x2a
0x2860…28a6 at002b = ╱72╱r╱ // 0x288b @0x2b
0x2860…28a6 at002c = ╱2e╱.╱ // 0x288c @0x2c
0x2860…28a6 at002d = ╱20╱…╱ // 0x288d @0x2d
0x2860…28a6 at002e = ╱6f╱o╱ // 0x288e @0x2e
0x2860…28a6 at002f = ╱6d╱m╱ // 0x288f @0x2f
0x2860…28a6 at0030 = ╱6b╱k╱ // 0x2890 @0x30
0x2860…28a6 at0031 = ╱6f╱o╱ // 0x2891 @0x31
0x2860…28a6 at0032 = ╱73╱s╱ // 0x2892 @0x32
0x2860…28a6 at0033 = ╱74╱t╱ // 0x2893 @0x33
0x2860…28a6 at0034 = ╱6e╱n╱ // 0x2894 @0x34
0x2860…28a6 at0035 = ╱69╱i╱ // 0x2895 @0x35
0x2860…28a6 at0036 = ╱6e╱n╱ // 0x2896 @0x36
0x2860…28a6 at0037 = ╱67╱g╱ // 0x2897 @0x37
0x2860…28a6 at0038 = ╱65╱e╱ // 0x2898 @0x38
0x2860…28a6 at0039 = ╱72╱r╱ // 0x2899 @0x39
0x2860…28a6 at003a = ╱3a╱:╱ // 0x289a @0x3a
0x2860…28a6 at003b = ╱20╱…╱ // 0x289b @0x3b
0x2860…28a6 at003c = ╱22╱"╱ // 0x289c @0x3c
0x2860…28a6 at003d = ╱f1╱ : ╱ // 0x289d @0x3d
0x2860…28a6 at003e = ╱5c╱\╱ // 0x289e @0x3e
0x2860…28a6 at003f = ╱56╱V╱ // 0x289f @0x3f
0x2860…28a6 at0040 = ╱52╱R╱ // 0x28a0 @0x40
0x2860…28a6 at0041 = ╱5f╱_╱ // 0x28a1 @0x41
0x2860…28a6 at0042 = ╱56╱V╱ // 0x28a2 @0x42
0x2860…28a6 at0043 = ╱41╱A╱ // 0x28a3 @0x43
0x2860…28a6 at0044 = ╱52╱R╱ // 0x28a4 @0x44
0x2860…28a6 at0045 = EOL // 0x28a5 @0x45
0x2860…28a6 }
0x28a6…28c3 beb1 03610 LET \VR_VAR := \VR_VAR * ( - 1 )
0x28a6…28c3 LineComal80 {
0x28a6…28c3 ptr = 0xbeb1 // 0x28a6 @0x0
0x28a6…28c3 lno = 0x0e1a // 0x28a8 @0x2
0x28a6…28c3 at0004 = ╱86╱ LET ╱ // 0x28aa @0x4
0x28a6…28c3 at0005 = ╱5c╱\╱ // 0x28ab @0x5
0x28a6…28c3 at0006 = ╱56╱V╱ // 0x28ac @0x6
0x28a6…28c3 at0007 = ╱52╱R╱ // 0x28ad @0x7
0x28a6…28c3 at0008 = ╱5f╱_╱ // 0x28ae @0x8
0x28a6…28c3 at0009 = ╱56╱V╱ // 0x28af @0x9
0x28a6…28c3 at000a = ╱41╱A╱ // 0x28b0 @0xa
0x28a6…28c3 at000b = ╱52╱R╱ // 0x28b1 @0xb
0x28a6…28c3 at000c = ╱f0╱ := ╱ // 0x28b2 @0xc
0x28a6…28c3 at000d = ╱5c╱\╱ // 0x28b3 @0xd
0x28a6…28c3 at000e = ╱56╱V╱ // 0x28b4 @0xe
0x28a6…28c3 at000f = ╱52╱R╱ // 0x28b5 @0xf
0x28a6…28c3 at0010 = ╱5f╱_╱ // 0x28b6 @0x10
0x28a6…28c3 at0011 = ╱56╱V╱ // 0x28b7 @0x11
0x28a6…28c3 at0012 = ╱41╱A╱ // 0x28b8 @0x12
0x28a6…28c3 at0013 = ╱52╱R╱ // 0x28b9 @0x13
0x28a6…28c3 at0014 = ╱e7╱ * ╱ // 0x28ba @0x14
0x28a6…28c3 at0015 = ╱ed╱ ( ╱ // 0x28bb @0x15
0x28a6…28c3 at0016 = ╱de╱ - ╱ // 0x28bc @0x16
0x28a6…28c3 at0017 = ╱31╱1╱ // 0x28bd @0x17
0x28a6…28c3 at0018 = ╱f20100╱ // 0x28be @0x18
0x28a6…28c3 at001b = ╱ee╱ ) ╱ // 0x28c1 @0x1b
0x28a6…28c3 at001c = EOL // 0x28c2 @0x1c
0x28a6…28c3 }
0x28c3…2905 bef3 03620 INPUT "<C0811>………………………………………………………L|n…til…indehaver…………………:…" : L_I
0x28c3…2905 LineComal80 {
0x28c3…2905 ptr = 0xbef3 // 0x28c3 @0x0
0x28c3…2905 lno = 0x0e24 // 0x28c5 @0x2
0x28c3…2905 at0004 = ╱91╱ INPUT ╱ // 0x28c7 @0x4
0x28c3…2905 at0005 = ╱22╱"╱ // 0x28c8 @0x5
0x28c3…2905 at0006 = ╱3c╱<╱ // 0x28c9 @0x6
0x28c3…2905 at0007 = ╱43╱C╱ // 0x28ca @0x7
0x28c3…2905 at0008 = ╱30╱0╱ // 0x28cb @0x8
0x28c3…2905 at0009 = ╱38╱8╱ // 0x28cc @0x9
0x28c3…2905 at000a = ╱31╱1╱ // 0x28cd @0xa
0x28c3…2905 at000b = ╱31╱1╱ // 0x28ce @0xb
0x28c3…2905 at000c = ╱3e╱>╱ // 0x28cf @0xc
0x28c3…2905 at000d = ╱20╱…╱ // 0x28d0 @0xd
0x28c3…2905 at000e = ╱20╱…╱ // 0x28d1 @0xe
0x28c3…2905 at000f = ╱20╱…╱ // 0x28d2 @0xf
0x28c3…2905 at0010 = ╱20╱…╱ // 0x28d3 @0x10
0x28c3…2905 at0011 = ╱20╱…╱ // 0x28d4 @0x11
0x28c3…2905 at0012 = ╱20╱…╱ // 0x28d5 @0x12
0x28c3…2905 at0013 = ╱20╱…╱ // 0x28d6 @0x13
0x28c3…2905 at0014 = ╱20╱…╱ // 0x28d7 @0x14
0x28c3…2905 at0015 = ╱20╱…╱ // 0x28d8 @0x15
0x28c3…2905 at0016 = ╱20╱…╱ // 0x28d9 @0x16
0x28c3…2905 at0017 = ╱20╱…╱ // 0x28da @0x17
0x28c3…2905 at0018 = ╱20╱…╱ // 0x28db @0x18
0x28c3…2905 at0019 = ╱20╱…╱ // 0x28dc @0x19
0x28c3…2905 at001a = ╱20╱…╱ // 0x28dd @0x1a
0x28c3…2905 at001b = ╱20╱…╱ // 0x28de @0x1b
0x28c3…2905 at001c = ╱20╱…╱ // 0x28df @0x1c
0x28c3…2905 at001d = ╱20╱…╱ // 0x28e0 @0x1d
0x28c3…2905 at001e = ╱20╱…╱ // 0x28e1 @0x1e
0x28c3…2905 at001f = ╱20╱…╱ // 0x28e2 @0x1f
0x28c3…2905 at0020 = ╱20╱…╱ // 0x28e3 @0x20
0x28c3…2905 at0021 = ╱20╱…╱ // 0x28e4 @0x21
0x28c3…2905 at0022 = ╱4c╱L╱ // 0x28e5 @0x22
0x28c3…2905 at0023 = ╱7c╱|╱ // 0x28e6 @0x23
0x28c3…2905 at0024 = ╱6e╱n╱ // 0x28e7 @0x24
0x28c3…2905 at0025 = ╱20╱…╱ // 0x28e8 @0x25
0x28c3…2905 at0026 = ╱74╱t╱ // 0x28e9 @0x26
0x28c3…2905 at0027 = ╱69╱i╱ // 0x28ea @0x27
0x28c3…2905 at0028 = ╱6c╱l╱ // 0x28eb @0x28
0x28c3…2905 at0029 = ╱20╱…╱ // 0x28ec @0x29
0x28c3…2905 at002a = ╱69╱i╱ // 0x28ed @0x2a
0x28c3…2905 at002b = ╱6e╱n╱ // 0x28ee @0x2b
0x28c3…2905 at002c = ╱64╱d╱ // 0x28ef @0x2c
0x28c3…2905 at002d = ╱65╱e╱ // 0x28f0 @0x2d
0x28c3…2905 at002e = ╱68╱h╱ // 0x28f1 @0x2e
0x28c3…2905 at002f = ╱61╱a╱ // 0x28f2 @0x2f
0x28c3…2905 at0030 = ╱76╱v╱ // 0x28f3 @0x30
0x28c3…2905 at0031 = ╱65╱e╱ // 0x28f4 @0x31
0x28c3…2905 at0032 = ╱72╱r╱ // 0x28f5 @0x32
0x28c3…2905 at0033 = ╱20╱…╱ // 0x28f6 @0x33
0x28c3…2905 at0034 = ╱20╱…╱ // 0x28f7 @0x34
0x28c3…2905 at0035 = ╱20╱…╱ // 0x28f8 @0x35
0x28c3…2905 at0036 = ╱20╱…╱ // 0x28f9 @0x36
0x28c3…2905 at0037 = ╱20╱…╱ // 0x28fa @0x37
0x28c3…2905 at0038 = ╱20╱…╱ // 0x28fb @0x38
0x28c3…2905 at0039 = ╱20╱…╱ // 0x28fc @0x39
0x28c3…2905 at003a = ╱3a╱:╱ // 0x28fd @0x3a
0x28c3…2905 at003b = ╱20╱…╱ // 0x28fe @0x3b
0x28c3…2905 at003c = ╱22╱"╱ // 0x28ff @0x3c
0x28c3…2905 at003d = ╱f1╱ : ╱ // 0x2900 @0x3d
0x28c3…2905 at003e = ╱4c╱L╱ // 0x2901 @0x3e
0x28c3…2905 at003f = ╱5f╱_╱ // 0x2902 @0x3f
0x28c3…2905 at0040 = ╱49╱I╱ // 0x2903 @0x40
0x28c3…2905 at0041 = EOL // 0x2904 @0x41
0x28c3…2905 }
0x2905…291a bf08 03630 LET L_I := L_I * ( - 1 )
0x2905…291a LineComal80 {
0x2905…291a ptr = 0xbf08 // 0x2905 @0x0
0x2905…291a lno = 0x0e2e // 0x2907 @0x2
0x2905…291a at0004 = ╱86╱ LET ╱ // 0x2909 @0x4
0x2905…291a at0005 = ╱4c╱L╱ // 0x290a @0x5
0x2905…291a at0006 = ╱5f╱_╱ // 0x290b @0x6
0x2905…291a at0007 = ╱49╱I╱ // 0x290c @0x7
0x2905…291a at0008 = ╱f0╱ := ╱ // 0x290d @0x8
0x2905…291a at0009 = ╱4c╱L╱ // 0x290e @0x9
0x2905…291a at000a = ╱5f╱_╱ // 0x290f @0xa
0x2905…291a at000b = ╱49╱I╱ // 0x2910 @0xb
0x2905…291a at000c = ╱e7╱ * ╱ // 0x2911 @0xc
0x2905…291a at000d = ╱ed╱ ( ╱ // 0x2912 @0xd
0x2905…291a at000e = ╱de╱ - ╱ // 0x2913 @0xe
0x2905…291a at000f = ╱31╱1╱ // 0x2914 @0xf
0x2905…291a at0010 = ╱f20100╱ // 0x2915 @0x10
0x2905…291a at0013 = ╱ee╱ ) ╱ // 0x2918 @0x13
0x2905…291a at0014 = EOL // 0x2919 @0x14
0x2905…291a }
0x291a…2961 bf4f 03640 INPUT "<C1013>…………………………………………………Varelager…primo………………………:…" : S_VARELA_P
0x291a…2961 LineComal80 {
0x291a…2961 ptr = 0xbf4f // 0x291a @0x0
0x291a…2961 lno = 0x0e38 // 0x291c @0x2
0x291a…2961 at0004 = ╱91╱ INPUT ╱ // 0x291e @0x4
0x291a…2961 at0005 = ╱22╱"╱ // 0x291f @0x5
0x291a…2961 at0006 = ╱3c╱<╱ // 0x2920 @0x6
0x291a…2961 at0007 = ╱43╱C╱ // 0x2921 @0x7
0x291a…2961 at0008 = ╱31╱1╱ // 0x2922 @0x8
0x291a…2961 at0009 = ╱30╱0╱ // 0x2923 @0x9
0x291a…2961 at000a = ╱31╱1╱ // 0x2924 @0xa
0x291a…2961 at000b = ╱33╱3╱ // 0x2925 @0xb
0x291a…2961 at000c = ╱3e╱>╱ // 0x2926 @0xc
0x291a…2961 at000d = ╱20╱…╱ // 0x2927 @0xd
0x291a…2961 at000e = ╱20╱…╱ // 0x2928 @0xe
0x291a…2961 at000f = ╱20╱…╱ // 0x2929 @0xf
0x291a…2961 at0010 = ╱20╱…╱ // 0x292a @0x10
0x291a…2961 at0011 = ╱20╱…╱ // 0x292b @0x11
0x291a…2961 at0012 = ╱20╱…╱ // 0x292c @0x12
0x291a…2961 at0013 = ╱20╱…╱ // 0x292d @0x13
0x291a…2961 at0014 = ╱20╱…╱ // 0x292e @0x14
0x291a…2961 at0015 = ╱20╱…╱ // 0x292f @0x15
0x291a…2961 at0016 = ╱20╱…╱ // 0x2930 @0x16
0x291a…2961 at0017 = ╱20╱…╱ // 0x2931 @0x17
0x291a…2961 at0018 = ╱20╱…╱ // 0x2932 @0x18
0x291a…2961 at0019 = ╱20╱…╱ // 0x2933 @0x19
0x291a…2961 at001a = ╱20╱…╱ // 0x2934 @0x1a
0x291a…2961 at001b = ╱20╱…╱ // 0x2935 @0x1b
0x291a…2961 at001c = ╱20╱…╱ // 0x2936 @0x1c
0x291a…2961 at001d = ╱20╱…╱ // 0x2937 @0x1d
0x291a…2961 at001e = ╱20╱…╱ // 0x2938 @0x1e
0x291a…2961 at001f = ╱20╱…╱ // 0x2939 @0x1f
0x291a…2961 at0020 = ╱56╱V╱ // 0x293a @0x20
0x291a…2961 at0021 = ╱61╱a╱ // 0x293b @0x21
0x291a…2961 at0022 = ╱72╱r╱ // 0x293c @0x22
0x291a…2961 at0023 = ╱65╱e╱ // 0x293d @0x23
0x291a…2961 at0024 = ╱6c╱l╱ // 0x293e @0x24
0x291a…2961 at0025 = ╱61╱a╱ // 0x293f @0x25
0x291a…2961 at0026 = ╱67╱g╱ // 0x2940 @0x26
0x291a…2961 at0027 = ╱65╱e╱ // 0x2941 @0x27
0x291a…2961 at0028 = ╱72╱r╱ // 0x2942 @0x28
0x291a…2961 at0029 = ╱20╱…╱ // 0x2943 @0x29
0x291a…2961 at002a = ╱70╱p╱ // 0x2944 @0x2a
0x291a…2961 at002b = ╱72╱r╱ // 0x2945 @0x2b
0x291a…2961 at002c = ╱69╱i╱ // 0x2946 @0x2c
0x291a…2961 at002d = ╱6d╱m╱ // 0x2947 @0x2d
0x291a…2961 at002e = ╱6f╱o╱ // 0x2948 @0x2e
0x291a…2961 at002f = ╱20╱…╱ // 0x2949 @0x2f
0x291a…2961 at0030 = ╱20╱…╱ // 0x294a @0x30
0x291a…2961 at0031 = ╱20╱…╱ // 0x294b @0x31
0x291a…2961 at0032 = ╱20╱…╱ // 0x294c @0x32
0x291a…2961 at0033 = ╱20╱…╱ // 0x294d @0x33
0x291a…2961 at0034 = ╱20╱…╱ // 0x294e @0x34
0x291a…2961 at0035 = ╱20╱…╱ // 0x294f @0x35
0x291a…2961 at0036 = ╱20╱…╱ // 0x2950 @0x36
0x291a…2961 at0037 = ╱20╱…╱ // 0x2951 @0x37
0x291a…2961 at0038 = ╱3a╱:╱ // 0x2952 @0x38
0x291a…2961 at0039 = ╱20╱…╱ // 0x2953 @0x39
0x291a…2961 at003a = ╱22╱"╱ // 0x2954 @0x3a
0x291a…2961 at003b = ╱f1╱ : ╱ // 0x2955 @0x3b
0x291a…2961 at003c = ╱53╱S╱ // 0x2956 @0x3c
0x291a…2961 at003d = ╱5f╱_╱ // 0x2957 @0x3d
0x291a…2961 at003e = ╱56╱V╱ // 0x2958 @0x3e
0x291a…2961 at003f = ╱41╱A╱ // 0x2959 @0x3f
0x291a…2961 at0040 = ╱52╱R╱ // 0x295a @0x40
0x291a…2961 at0041 = ╱45╱E╱ // 0x295b @0x41
0x291a…2961 at0042 = ╱4c╱L╱ // 0x295c @0x42
0x291a…2961 at0043 = ╱41╱A╱ // 0x295d @0x43
0x291a…2961 at0044 = ╱5f╱_╱ // 0x295e @0x44
0x291a…2961 at0045 = ╱50╱P╱ // 0x295f @0x45
0x291a…2961 at0046 = EOL // 0x2960 @0x46
0x291a…2961 }
0x2961…2980 bf6e 03650 PRINT "<C3515>Nu…opt{lles…der!"
0x2961…2980 LineComal80 {
0x2961…2980 ptr = 0xbf6e // 0x2961 @0x0
0x2961…2980 lno = 0x0e42 // 0x2963 @0x2
0x2961…2980 at0004 = ╱92╱ PRINT ╱ // 0x2965 @0x4
0x2961…2980 at0005 = ╱22╱"╱ // 0x2966 @0x5
0x2961…2980 at0006 = ╱3c╱<╱ // 0x2967 @0x6
0x2961…2980 at0007 = ╱43╱C╱ // 0x2968 @0x7
0x2961…2980 at0008 = ╱33╱3╱ // 0x2969 @0x8
0x2961…2980 at0009 = ╱35╱5╱ // 0x296a @0x9
0x2961…2980 at000a = ╱31╱1╱ // 0x296b @0xa
0x2961…2980 at000b = ╱35╱5╱ // 0x296c @0xb
0x2961…2980 at000c = ╱3e╱>╱ // 0x296d @0xc
0x2961…2980 at000d = ╱4e╱N╱ // 0x296e @0xd
0x2961…2980 at000e = ╱75╱u╱ // 0x296f @0xe
0x2961…2980 at000f = ╱20╱…╱ // 0x2970 @0xf
0x2961…2980 at0010 = ╱6f╱o╱ // 0x2971 @0x10
0x2961…2980 at0011 = ╱70╱p╱ // 0x2972 @0x11
0x2961…2980 at0012 = ╱74╱t╱ // 0x2973 @0x12
0x2961…2980 at0013 = ╱7b╱{╱ // 0x2974 @0x13
0x2961…2980 at0014 = ╱6c╱l╱ // 0x2975 @0x14
0x2961…2980 at0015 = ╱6c╱l╱ // 0x2976 @0x15
0x2961…2980 at0016 = ╱65╱e╱ // 0x2977 @0x16
0x2961…2980 at0017 = ╱73╱s╱ // 0x2978 @0x17
0x2961…2980 at0018 = ╱20╱…╱ // 0x2979 @0x18
0x2961…2980 at0019 = ╱64╱d╱ // 0x297a @0x19
0x2961…2980 at001a = ╱65╱e╱ // 0x297b @0x1a
0x2961…2980 at001b = ╱72╱r╱ // 0x297c @0x1b
0x2961…2980 at001c = ╱21╱!╱ // 0x297d @0x1c
0x2961…2980 at001d = ╱22╱"╱ // 0x297e @0x1d
0x2961…2980 at001e = EOL // 0x297f @0x1e
0x2961…2980 }
0x2980…298d bf7b 03660 EXEC OPSUMER
0x2980…298d LineComal80 {
0x2980…298d ptr = 0xbf7b // 0x2980 @0x0
0x2980…298d lno = 0x0e4c // 0x2982 @0x2
0x2980…298d at0004 = ╱9d╱ EXEC ╱ // 0x2984 @0x4
0x2980…298d at0005 = ╱4f╱O╱ // 0x2985 @0x5
0x2980…298d at0006 = ╱50╱P╱ // 0x2986 @0x6
0x2980…298d at0007 = ╱53╱S╱ // 0x2987 @0x7
0x2980…298d at0008 = ╱55╱U╱ // 0x2988 @0x8
0x2980…298d at0009 = ╱4d╱M╱ // 0x2989 @0x9
0x2980…298d at000a = ╱45╱E╱ // 0x298a @0xa
0x2980…298d at000b = ╱52╱R╱ // 0x298b @0xb
0x2980…298d at000c = EOL // 0x298c @0xc
0x2980…298d }
0x298d…299a bf88 03670 EXEC UDSKRIV
0x298d…299a LineComal80 {
0x298d…299a ptr = 0xbf88 // 0x298d @0x0
0x298d…299a lno = 0x0e56 // 0x298f @0x2
0x298d…299a at0004 = ╱9d╱ EXEC ╱ // 0x2991 @0x4
0x298d…299a at0005 = ╱55╱U╱ // 0x2992 @0x5
0x298d…299a at0006 = ╱44╱D╱ // 0x2993 @0x6
0x298d…299a at0007 = ╱53╱S╱ // 0x2994 @0x7
0x298d…299a at0008 = ╱4b╱K╱ // 0x2995 @0x8
0x298d…299a at0009 = ╱52╱R╱ // 0x2996 @0x9
0x298d…299a at000a = ╱49╱I╱ // 0x2997 @0xa
0x298d…299a at000b = ╱56╱V╱ // 0x2998 @0xb
0x298d…299a at000c = EOL // 0x2999 @0xc
0x298d…299a }
0x299a…29ad bf9b 03680 ENDPROC FUNKTIONSMENU
0x299a…29ad LineComal80 {
0x299a…29ad ptr = 0xbf9b // 0x299a @0x0
0x299a…29ad lno = 0x0e60 // 0x299c @0x2
0x299a…29ad at0004 = ╱9f╱ ENDPROC ╱ // 0x299e @0x4
0x299a…29ad at0005 = ╱46╱F╱ // 0x299f @0x5
0x299a…29ad at0006 = ╱55╱U╱ // 0x29a0 @0x6
0x299a…29ad at0007 = ╱4e╱N╱ // 0x29a1 @0x7
0x299a…29ad at0008 = ╱4b╱K╱ // 0x29a2 @0x8
0x299a…29ad at0009 = ╱54╱T╱ // 0x29a3 @0x9
0x299a…29ad at000a = ╱49╱I╱ // 0x29a4 @0xa
0x299a…29ad at000b = ╱4f╱O╱ // 0x29a5 @0xb
0x299a…29ad at000c = ╱4e╱N╱ // 0x29a6 @0xc
0x299a…29ad at000d = ╱53╱S╱ // 0x29a7 @0xd
0x299a…29ad at000e = ╱4d╱M╱ // 0x29a8 @0xe
0x299a…29ad at000f = ╱45╱E╱ // 0x29a9 @0xf
0x299a…29ad at0010 = ╱4e╱N╱ // 0x29aa @0x10
0x299a…29ad at0011 = ╱55╱U╱ // 0x29ab @0x11
0x299a…29ad at0012 = EOL // 0x29ac @0x12
0x299a…29ad }
0x29ad…29b3 c285 01610 //
0x29ad…29b3 LineComal80 {
0x29ad…29b3 ptr = 0xc285 // 0x29ad @0x0
0x29ad…29b3 lno = 0x064a // 0x29af @0x2
0x29ad…29b3 at0004 = ╱89╱ // ╱ // 0x29b1 @0x4
0x29ad…29b3 at0005 = EOL // 0x29b2 @0x5
0x29ad…29b3 }
0x29b3…29e6 bfd4 01600 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
0x29b3…29e6 LineComal80 {
0x29b3…29e6 ptr = 0xbfd4 // 0x29b3 @0x0
0x29b3…29e6 lno = 0x0640 // 0x29b5 @0x2
0x29b3…29e6 at0004 = ╱9e17╱ PROC ╱ // 0x29b7 @0x4
0x29b3…29e6 at0006 = ╱50╱P╱ // 0x29b9 @0x6
0x29b3…29e6 at0007 = ╱52╱R╱ // 0x29ba @0x7
0x29b3…29e6 at0008 = ╱49╱I╱ // 0x29bb @0x8
0x29b3…29e6 at0009 = ╱4e╱N╱ // 0x29bc @0x9
0x29b3…29e6 at000a = ╱54╱T╱ // 0x29bd @0xa
0x29b3…29e6 at000b = ╱52╱R╱ // 0x29be @0xb
0x29b3…29e6 at000c = ╱45╱E╱ // 0x29bf @0xc
0x29b3…29e6 at000d = ╱53╱S╱ // 0x29c0 @0xd
0x29b3…29e6 at000e = ╱ed╱ ( ╱ // 0x29c1 @0xe
0x29b3…29e6 at000f = ╱50╱P╱ // 0x29c2 @0xf
0x29b3…29e6 at0010 = ╱41╱A╱ // 0x29c3 @0x10
0x29b3…29e6 at0011 = ╱47╱G╱ // 0x29c4 @0x11
0x29b3…29e6 at0012 = ╱45╱E╱ // 0x29c5 @0x12
0x29b3…29e6 at0013 = ╱54╱T╱ // 0x29c6 @0x13
0x29b3…29e6 at0014 = ╱59╱Y╱ // 0x29c7 @0x14
0x29b3…29e6 at0015 = ╱50╱P╱ // 0x29c8 @0x15
0x29b3…29e6 at0016 = ╱45╱E╱ // 0x29c9 @0x16
0x29b3…29e6 at0017 = ╱ef╱ $ ╱ // 0x29ca @0x17
0x29b3…29e6 at0018 = ╱ec╱ , ╱ // 0x29cb @0x18
0x29b3…29e6 at0019 = ╱4c╱L╱ // 0x29cc @0x19
0x29b3…29e6 at001a = ╱49╱I╱ // 0x29cd @0x1a
0x29b3…29e6 at001b = ╱4e╱N╱ // 0x29ce @0x1b
0x29b3…29e6 at001c = ╱45╱E╱ // 0x29cf @0x1c
0x29b3…29e6 at001d = ╱ee╱ ) ╱ // 0x29d0 @0x1d
0x29b3…29e6 at001e = ╱89╱ // ╱ // 0x29d1 @0x1e
0x29b3…29e6 at001f = ╱50╱P╱ // 0x29d2 @0x1f
0x29b3…29e6 at0020 = ╱52╱R╱ // 0x29d3 @0x20
0x29b3…29e6 at0021 = ╱49╱I╱ // 0x29d4 @0x21
0x29b3…29e6 at0022 = ╱4e╱N╱ // 0x29d5 @0x22
0x29b3…29e6 at0023 = ╱54╱T╱ // 0x29d6 @0x23
0x29b3…29e6 at0024 = ╱45╱E╱ // 0x29d7 @0x24
0x29b3…29e6 at0025 = ╱52╱R╱ // 0x29d8 @0x25
0x29b3…29e6 at0026 = ╱20╱…╱ // 0x29d9 @0x26
0x29b3…29e6 at0027 = ╱52╱R╱ // 0x29da @0x27
0x29b3…29e6 at0028 = ╱45╱E╱ // 0x29db @0x28
0x29b3…29e6 at0029 = ╱53╱S╱ // 0x29dc @0x29
0x29b3…29e6 at002a = ╱45╱E╱ // 0x29dd @0x2a
0x29b3…29e6 at002b = ╱52╱R╱ // 0x29de @0x2b
0x29b3…29e6 at002c = ╱56╱V╱ // 0x29df @0x2c
0x29b3…29e6 at002d = ╱41╱A╱ // 0x29e0 @0x2d
0x29b3…29e6 at002e = ╱54╱T╱ // 0x29e1 @0x2e
0x29b3…29e6 at002f = ╱49╱I╱ // 0x29e2 @0x2f
0x29b3…29e6 at0030 = ╱4f╱O╱ // 0x29e3 @0x30
0x29b3…29e6 at0031 = ╱4e╱N╱ // 0x29e4 @0x31
0x29b3…29e6 at0032 = EOL // 0x29e5 @0x32
0x29b3…29e6 }
0x29e6…29fe bfec 01610 LET PRTNR $ := "1" ; OK := TRUE
0x29e6…29fe LineComal80 {
0x29e6…29fe ptr = 0xbfec // 0x29e6 @0x0
0x29e6…29fe lno = 0x064a // 0x29e8 @0x2
0x29e6…29fe at0004 = ╱86╱ LET ╱ // 0x29ea @0x4
0x29e6…29fe at0005 = ╱50╱P╱ // 0x29eb @0x5
0x29e6…29fe at0006 = ╱52╱R╱ // 0x29ec @0x6
0x29e6…29fe at0007 = ╱54╱T╱ // 0x29ed @0x7
0x29e6…29fe at0008 = ╱4e╱N╱ // 0x29ee @0x8
0x29e6…29fe at0009 = ╱52╱R╱ // 0x29ef @0x9
0x29e6…29fe at000a = ╱ef╱ $ ╱ // 0x29f0 @0xa
0x29e6…29fe at000b = ╱f0╱ := ╱ // 0x29f1 @0xb
0x29e6…29fe at000c = ╱22╱"╱ // 0x29f2 @0xc
0x29e6…29fe at000d = ╱31╱1╱ // 0x29f3 @0xd
0x29e6…29fe at000e = ╱22╱"╱ // 0x29f4 @0xe
0x29e6…29fe at000f = ╱ea╱ ; ╱ // 0x29f5 @0xf
0x29e6…29fe at0010 = ╱4f╱O╱ // 0x29f6 @0x10
0x29e6…29fe at0011 = ╱4b╱K╱ // 0x29f7 @0x11
0x29e6…29fe at0012 = ╱f0╱ := ╱ // 0x29f8 @0x12
0x29e6…29fe at0013 = ╱54╱T╱ // 0x29f9 @0x13
0x29e6…29fe at0014 = ╱52╱R╱ // 0x29fa @0x14
0x29e6…29fe at0015 = ╱55╱U╱ // 0x29fb @0x15
0x29e6…29fe at0016 = ╱45╱E╱ // 0x29fc @0x16
0x29e6…29fe at0017 = EOL // 0x29fd @0x17
0x29e6…29fe }
0x29fe…2a05 bff3 01620 REPEAT
0x29fe…2a05 LineComal80 {
0x29fe…2a05 ptr = 0xbff3 // 0x29fe @0x0
0x29fe…2a05 lno = 0x0654 // 0x2a00 @0x2
0x29fe…2a05 at0004 = ╱9718╱ REPEAT ╱ // 0x2a02 @0x4
0x29fe…2a05 at0006 = EOL // 0x2a04 @0x6
0x29fe…2a05 }
0x2a05…2a15 c003 01630 CURSOR 21 , LINE
0x2a05…2a15 LineComal80 {
0x2a05…2a15 ptr = 0xc003 // 0x2a05 @0x0
0x2a05…2a15 lno = 0x065e // 0x2a07 @0x2
0x2a05…2a15 at0004 = ╱a1╱ CURSOR ╱ // 0x2a09 @0x4
0x2a05…2a15 at0005 = ╱32╱2╱ // 0x2a0a @0x5
0x2a05…2a15 at0006 = ╱31╱1╱ // 0x2a0b @0x6
0x2a05…2a15 at0007 = ╱f21500╱ // 0x2a0c @0x7
0x2a05…2a15 at000a = ╱ec╱ , ╱ // 0x2a0f @0xa
0x2a05…2a15 at000b = ╱4c╱L╱ // 0x2a10 @0xb
0x2a05…2a15 at000c = ╱49╱I╱ // 0x2a11 @0xc
0x2a05…2a15 at000d = ╱4e╱N╱ // 0x2a12 @0xd
0x2a05…2a15 at000e = ╱45╱E╱ // 0x2a13 @0xe
0x2a05…2a15 at000f = EOL // 0x2a14 @0xf
0x2a05…2a15 }
0x2a15…2a4e c03c 01640 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
0x2a15…2a4e LineComal80 {
0x2a15…2a4e ptr = 0xc03c // 0x2a15 @0x0
0x2a15…2a4e lno = 0x0668 // 0x2a17 @0x2
0x2a15…2a4e at0004 = ╱b1╱ EDIT ╱ // 0x2a19 @0x4
0x2a15…2a4e at0005 = ╱22╱"╱ // 0x2a1a @0x5
0x2a15…2a4e at0006 = ╱3c╱<╱ // 0x2a1b @0x6
0x2a15…2a4e at0007 = ╱5a╱Z╱ // 0x2a1c @0x7
0x2a15…2a4e at0008 = ╱3e╱>╱ // 0x2a1d @0x8
0x2a15…2a4e at0009 = ╱55╱U╱ // 0x2a1e @0x9
0x2a15…2a4e at000a = ╱64╱d╱ // 0x2a1f @0xa
0x2a15…2a4e at000b = ╱73╱s╱ // 0x2a20 @0xb
0x2a15…2a4e at000c = ╱6b╱k╱ // 0x2a21 @0xc
0x2a15…2a4e at000d = ╱72╱r╱ // 0x2a22 @0xd
0x2a15…2a4e at000e = ╱69╱i╱ // 0x2a23 @0xe
0x2a15…2a4e at000f = ╱76╱v╱ // 0x2a24 @0xf
0x2a15…2a4e at0010 = ╱6e╱n╱ // 0x2a25 @0x10
0x2a15…2a4e at0011 = ╱69╱i╱ // 0x2a26 @0x11
0x2a15…2a4e at0012 = ╱6e╱n╱ // 0x2a27 @0x12
0x2a15…2a4e at0013 = ╱67╱g╱ // 0x2a28 @0x13
0x2a15…2a4e at0014 = ╱20╱…╱ // 0x2a29 @0x14
0x2a15…2a4e at0015 = ╱70╱p╱ // 0x2a2a @0x15
0x2a15…2a4e at0016 = ╱7d╱}╱ // 0x2a2b @0x16
0x2a15…2a4e at0017 = ╱20╱…╱ // 0x2a2c @0x17
0x2a15…2a4e at0018 = ╱70╱p╱ // 0x2a2d @0x18
0x2a15…2a4e at0019 = ╱72╱r╱ // 0x2a2e @0x19
0x2a15…2a4e at001a = ╱69╱i╱ // 0x2a2f @0x1a
0x2a15…2a4e at001b = ╱6e╱n╱ // 0x2a30 @0x1b
0x2a15…2a4e at001c = ╱74╱t╱ // 0x2a31 @0x1c
0x2a15…2a4e at001d = ╱65╱e╱ // 0x2a32 @0x1d
0x2a15…2a4e at001e = ╱72╱r╱ // 0x2a33 @0x1e
0x2a15…2a4e at001f = ╱20╱…╱ // 0x2a34 @0x1f
0x2a15…2a4e at0020 = ╱6e╱n╱ // 0x2a35 @0x20
0x2a15…2a4e at0021 = ╱72╱r╱ // 0x2a36 @0x21
0x2a15…2a4e at0022 = ╱2e╱.╱ // 0x2a37 @0x22
0x2a15…2a4e at0023 = ╱20╱…╱ // 0x2a38 @0x23
0x2a15…2a4e at0024 = ╱3f╱?╱ // 0x2a39 @0x24
0x2a15…2a4e at0025 = ╱20╱…╱ // 0x2a3a @0x25
0x2a15…2a4e at0026 = ╱28╱(╱ // 0x2a3b @0x26
0x2a15…2a4e at0027 = ╱31╱1╱ // 0x2a3c @0x27
0x2a15…2a4e at0028 = ╱2f╱/╱ // 0x2a3d @0x28
0x2a15…2a4e at0029 = ╱32╱2╱ // 0x2a3e @0x29
0x2a15…2a4e at002a = ╱2f╱/╱ // 0x2a3f @0x2a
0x2a15…2a4e at002b = ╱33╱3╱ // 0x2a40 @0x2b
0x2a15…2a4e at002c = ╱2f╱/╱ // 0x2a41 @0x2c
0x2a15…2a4e at002d = ╱34╱4╱ // 0x2a42 @0x2d
0x2a15…2a4e at002e = ╱29╱)╱ // 0x2a43 @0x2e
0x2a15…2a4e at002f = ╱20╱…╱ // 0x2a44 @0x2f
0x2a15…2a4e at0030 = ╱22╱"╱ // 0x2a45 @0x30
0x2a15…2a4e at0031 = ╱f1╱ : ╱ // 0x2a46 @0x31
0x2a15…2a4e at0032 = ╱50╱P╱ // 0x2a47 @0x32
0x2a15…2a4e at0033 = ╱52╱R╱ // 0x2a48 @0x33
0x2a15…2a4e at0034 = ╱54╱T╱ // 0x2a49 @0x34
0x2a15…2a4e at0035 = ╱4e╱N╱ // 0x2a4a @0x35
0x2a15…2a4e at0036 = ╱52╱R╱ // 0x2a4b @0x36
0x2a15…2a4e at0037 = ╱ef╱ $ ╱ // 0x2a4c @0x37
0x2a15…2a4e at0038 = EOL // 0x2a4d @0x38
0x2a15…2a4e }
0x2a4e…2a6e c05c 01650 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
0x2a4e…2a6e LineComal80 {
0x2a4e…2a6e ptr = 0xc05c // 0x2a4e @0x0
0x2a4e…2a6e lno = 0x0672 // 0x2a50 @0x2
0x2a4e…2a6e at0004 = ╱98╱ UNTIL ╱ // 0x2a52 @0x4
0x2a4e…2a6e at0005 = ╱22╱"╱ // 0x2a53 @0x5
0x2a4e…2a6e at0006 = ╱2f╱/╱ // 0x2a54 @0x6
0x2a4e…2a6e at0007 = ╱22╱"╱ // 0x2a55 @0x7
0x2a4e…2a6e at0008 = ╱eb╱ + ╱ // 0x2a56 @0x8
0x2a4e…2a6e at0009 = ╱50╱P╱ // 0x2a57 @0x9
0x2a4e…2a6e at000a = ╱52╱R╱ // 0x2a58 @0xa
0x2a4e…2a6e at000b = ╱54╱T╱ // 0x2a59 @0xb
0x2a4e…2a6e at000c = ╱4e╱N╱ // 0x2a5a @0xc
0x2a4e…2a6e at000d = ╱52╱R╱ // 0x2a5b @0xd
0x2a4e…2a6e at000e = ╱ef╱ $ ╱ // 0x2a5c @0xe
0x2a4e…2a6e at000f = ╱eb╱ + ╱ // 0x2a5d @0xf
0x2a4e…2a6e at0010 = ╱22╱"╱ // 0x2a5e @0x10
0x2a4e…2a6e at0011 = ╱2f╱/╱ // 0x2a5f @0x11
0x2a4e…2a6e at0012 = ╱22╱"╱ // 0x2a60 @0x12
0x2a4e…2a6e at0013 = ╱dc╱ IN ╱ // 0x2a61 @0x13
0x2a4e…2a6e at0014 = ╱22╱"╱ // 0x2a62 @0x14
0x2a4e…2a6e at0015 = ╱2f╱/╱ // 0x2a63 @0x15
0x2a4e…2a6e at0016 = ╱31╱1╱ // 0x2a64 @0x16
0x2a4e…2a6e at0017 = ╱2f╱/╱ // 0x2a65 @0x17
0x2a4e…2a6e at0018 = ╱32╱2╱ // 0x2a66 @0x18
0x2a4e…2a6e at0019 = ╱2f╱/╱ // 0x2a67 @0x19
0x2a4e…2a6e at001a = ╱33╱3╱ // 0x2a68 @0x1a
0x2a4e…2a6e at001b = ╱2f╱/╱ // 0x2a69 @0x1b
0x2a4e…2a6e at001c = ╱34╱4╱ // 0x2a6a @0x1c
0x2a4e…2a6e at001d = ╱2f╱/╱ // 0x2a6b @0x1d
0x2a4e…2a6e at001e = ╱22╱"╱ // 0x2a6c @0x1e
0x2a4e…2a6e at001f = EOL // 0x2a6d @0x1f
0x2a4e…2a6e }
0x2a6e…2a92 c080 01660 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
0x2a6e…2a92 LineComal80 {
0x2a6e…2a92 ptr = 0xc080 // 0x2a6e @0x0
0x2a6e…2a92 lno = 0x067c // 0x2a70 @0x2
0x2a6e…2a92 at0004 = ╱a1╱ CURSOR ╱ // 0x2a72 @0x4
0x2a6e…2a92 at0005 = ╱ed╱ ( ╱ // 0x2a73 @0x5
0x2a6e…2a92 at0006 = ╱33╱3╱ // 0x2a74 @0x6
0x2a6e…2a92 at0007 = ╱39╱9╱ // 0x2a75 @0x7
0x2a6e…2a92 at0008 = ╱f22700╱ // 0x2a76 @0x8
0x2a6e…2a92 at000b = ╱e6╱ - ╱ // 0x2a79 @0xb
0x2a6e…2a92 at000c = ╱cb╱ // 0x2a7a @0xc
0x2a6e…2a92 at000d = ╱ed╱ ( ╱ // 0x2a7b @0xd
0x2a6e…2a92 at000e = ╱50╱P╱ // 0x2a7c @0xe
0x2a6e…2a92 at000f = ╱41╱A╱ // 0x2a7d @0xf
0x2a6e…2a92 at0010 = ╱47╱G╱ // 0x2a7e @0x10
0x2a6e…2a92 at0011 = ╱45╱E╱ // 0x2a7f @0x11
0x2a6e…2a92 at0012 = ╱54╱T╱ // 0x2a80 @0x12
0x2a6e…2a92 at0013 = ╱59╱Y╱ // 0x2a81 @0x13
0x2a6e…2a92 at0014 = ╱50╱P╱ // 0x2a82 @0x14
0x2a6e…2a92 at0015 = ╱45╱E╱ // 0x2a83 @0x15
0x2a6e…2a92 at0016 = ╱ef╱ $ ╱ // 0x2a84 @0x16
0x2a6e…2a92 at0017 = ╱ee╱ ) ╱ // 0x2a85 @0x17
0x2a6e…2a92 at0018 = ╱ee╱ ) ╱ // 0x2a86 @0x18
0x2a6e…2a92 at0019 = ╱da╱ DIV ╱ // 0x2a87 @0x19
0x2a6e…2a92 at001a = ╱32╱2╱ // 0x2a88 @0x1a
0x2a6e…2a92 at001b = ╱f20200╱ // 0x2a89 @0x1b
0x2a6e…2a92 at001e = ╱ec╱ , ╱ // 0x2a8c @0x1e
0x2a6e…2a92 at001f = ╱4c╱L╱ // 0x2a8d @0x1f
0x2a6e…2a92 at0020 = ╱49╱I╱ // 0x2a8e @0x20
0x2a6e…2a92 at0021 = ╱4e╱N╱ // 0x2a8f @0x21
0x2a6e…2a92 at0022 = ╱45╱E╱ // 0x2a90 @0x22
0x2a6e…2a92 at0023 = EOL // 0x2a91 @0x23
0x2a6e…2a92 }
0x2a92…2ad2 c0c0 01670 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
0x2a92…2ad2 LineComal80 {
0x2a92…2ad2 ptr = 0xc0c0 // 0x2a92 @0x0
0x2a92…2ad2 lno = 0x0686 // 0x2a94 @0x2
0x2a92…2ad2 at0004 = ╱92╱ PRINT ╱ // 0x2a96 @0x4
0x2a92…2ad2 at0005 = ╱22╱"╱ // 0x2a97 @0x5
0x2a92…2ad2 at0006 = ╱3c╱<╱ // 0x2a98 @0x6
0x2a92…2ad2 at0007 = ╱53╱S╱ // 0x2a99 @0x7
0x2a92…2ad2 at0008 = ╱5a╱Z╱ // 0x2a9a @0x8
0x2a92…2ad2 at0009 = ╱3e╱>╱ // 0x2a9b @0x9
0x2a92…2ad2 at000a = ╱20╱…╱ // 0x2a9c @0xa
0x2a92…2ad2 at000b = ╱20╱…╱ // 0x2a9d @0xb
0x2a92…2ad2 at000c = ╱20╱…╱ // 0x2a9e @0xc
0x2a92…2ad2 at000d = ╱20╱…╱ // 0x2a9f @0xd
0x2a92…2ad2 at000e = ╱20╱…╱ // 0x2aa0 @0xe
0x2a92…2ad2 at000f = ╱4d╱M╱ // 0x2aa1 @0xf
0x2a92…2ad2 at0010 = ╱6f╱o╱ // 0x2aa2 @0x10
0x2a92…2ad2 at0011 = ╱6e╱n╱ // 0x2aa3 @0x11
0x2a92…2ad2 at0012 = ╱74╱t╱ // 0x2aa4 @0x12
0x2a92…2ad2 at0013 = ╱65╱e╱ // 0x2aa5 @0x13
0x2a92…2ad2 at0014 = ╱72╱r╱ // 0x2aa6 @0x14
0x2a92…2ad2 at0015 = ╱20╱…╱ // 0x2aa7 @0x15
0x2a92…2ad2 at0016 = ╱22╱"╱ // 0x2aa8 @0x16
0x2a92…2ad2 at0017 = ╱ea╱ ; ╱ // 0x2aa9 @0x17
0x2a92…2ad2 at0018 = ╱50╱P╱ // 0x2aaa @0x18
0x2a92…2ad2 at0019 = ╱41╱A╱ // 0x2aab @0x19
0x2a92…2ad2 at001a = ╱47╱G╱ // 0x2aac @0x1a
0x2a92…2ad2 at001b = ╱45╱E╱ // 0x2aad @0x1b
0x2a92…2ad2 at001c = ╱54╱T╱ // 0x2aae @0x1c
0x2a92…2ad2 at001d = ╱59╱Y╱ // 0x2aaf @0x1d
0x2a92…2ad2 at001e = ╱50╱P╱ // 0x2ab0 @0x1e
0x2a92…2ad2 at001f = ╱45╱E╱ // 0x2ab1 @0x1f
0x2a92…2ad2 at0020 = ╱ef╱ $ ╱ // 0x2ab2 @0x20
0x2a92…2ad2 at0021 = ╱ea╱ ; ╱ // 0x2ab3 @0x21
0x2a92…2ad2 at0022 = ╱22╱"╱ // 0x2ab4 @0x22
0x2a92…2ad2 at0023 = ╱20╱…╱ // 0x2ab5 @0x23
0x2a92…2ad2 at0024 = ╱69╱i╱ // 0x2ab6 @0x24
0x2a92…2ad2 at0025 = ╱20╱…╱ // 0x2ab7 @0x25
0x2a92…2ad2 at0026 = ╱70╱p╱ // 0x2ab8 @0x26
0x2a92…2ad2 at0027 = ╱72╱r╱ // 0x2ab9 @0x27
0x2a92…2ad2 at0028 = ╱69╱i╱ // 0x2aba @0x28
0x2a92…2ad2 at0029 = ╱6e╱n╱ // 0x2abb @0x29
0x2a92…2ad2 at002a = ╱74╱t╱ // 0x2abc @0x2a
0x2a92…2ad2 at002b = ╱65╱e╱ // 0x2abd @0x2b
0x2a92…2ad2 at002c = ╱72╱r╱ // 0x2abe @0x2c
0x2a92…2ad2 at002d = ╱65╱e╱ // 0x2abf @0x2d
0x2a92…2ad2 at002e = ╱6e╱n╱ // 0x2ac0 @0x2e
0x2a92…2ad2 at002f = ╱20╱…╱ // 0x2ac1 @0x2f
0x2a92…2ad2 at0030 = ╱2d╱-╱ // 0x2ac2 @0x30
0x2a92…2ad2 at0031 = ╱20╱…╱ // 0x2ac3 @0x31
0x2a92…2ad2 at0032 = ╱74╱t╱ // 0x2ac4 @0x32
0x2a92…2ad2 at0033 = ╱72╱r╱ // 0x2ac5 @0x33
0x2a92…2ad2 at0034 = ╱79╱y╱ // 0x2ac6 @0x34
0x2a92…2ad2 at0035 = ╱6b╱k╱ // 0x2ac7 @0x35
0x2a92…2ad2 at0036 = ╱20╱…╱ // 0x2ac8 @0x36
0x2a92…2ad2 at0037 = ╱52╱R╱ // 0x2ac9 @0x37
0x2a92…2ad2 at0038 = ╱45╱E╱ // 0x2aca @0x38
0x2a92…2ad2 at0039 = ╱54╱T╱ // 0x2acb @0x39
0x2a92…2ad2 at003a = ╱55╱U╱ // 0x2acc @0x3a
0x2a92…2ad2 at003b = ╱52╱R╱ // 0x2acd @0x3b
0x2a92…2ad2 at003c = ╱4e╱N╱ // 0x2ace @0x3c
0x2a92…2ad2 at003d = ╱20╱…╱ // 0x2acf @0x3d
0x2a92…2ad2 at003e = ╱22╱"╱ // 0x2ad0 @0x3e
0x2a92…2ad2 at003f = EOL // 0x2ad1 @0x3f
0x2a92…2ad2 }
0x2ad2…2ae0 c0ce 01680 INPUT "" : SVAR $
0x2ad2…2ae0 LineComal80 {
0x2ad2…2ae0 ptr = 0xc0ce // 0x2ad2 @0x0
0x2ad2…2ae0 lno = 0x0690 // 0x2ad4 @0x2
0x2ad2…2ae0 at0004 = ╱91╱ INPUT ╱ // 0x2ad6 @0x4
0x2ad2…2ae0 at0005 = ╱22╱"╱ // 0x2ad7 @0x5
0x2ad2…2ae0 at0006 = ╱22╱"╱ // 0x2ad8 @0x6
0x2ad2…2ae0 at0007 = ╱f1╱ : ╱ // 0x2ad9 @0x7
0x2ad2…2ae0 at0008 = ╱53╱S╱ // 0x2ada @0x8
0x2ad2…2ae0 at0009 = ╱56╱V╱ // 0x2adb @0x9
0x2ad2…2ae0 at000a = ╱41╱A╱ // 0x2adc @0xa
0x2ad2…2ae0 at000b = ╱52╱R╱ // 0x2add @0xb
0x2ad2…2ae0 at000c = ╱ef╱ $ ╱ // 0x2ade @0xc
0x2ad2…2ae0 at000d = EOL // 0x2adf @0xd
0x2ad2…2ae0 }
0x2ae0…2af0 c0de 01690 SELECT OUTPUT "P" + PRTNR $
0x2ae0…2af0 LineComal80 {
0x2ae0…2af0 ptr = 0xc0de // 0x2ae0 @0x0
0x2ae0…2af0 lno = 0x069a // 0x2ae2 @0x2
0x2ae0…2af0 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x2ae4 @0x4
0x2ae0…2af0 at0005 = ╱22╱"╱ // 0x2ae5 @0x5
0x2ae0…2af0 at0006 = ╱50╱P╱ // 0x2ae6 @0x6
0x2ae0…2af0 at0007 = ╱22╱"╱ // 0x2ae7 @0x7
0x2ae0…2af0 at0008 = ╱eb╱ + ╱ // 0x2ae8 @0x8
0x2ae0…2af0 at0009 = ╱50╱P╱ // 0x2ae9 @0x9
0x2ae0…2af0 at000a = ╱52╱R╱ // 0x2aea @0xa
0x2ae0…2af0 at000b = ╱54╱T╱ // 0x2aeb @0xb
0x2ae0…2af0 at000c = ╱4e╱N╱ // 0x2aec @0xc
0x2ae0…2af0 at000d = ╱52╱R╱ // 0x2aed @0xd
0x2ae0…2af0 at000e = ╱ef╱ $ ╱ // 0x2aee @0xe
0x2ae0…2af0 at000f = EOL // 0x2aef @0xf
0x2ae0…2af0 }
0x2af0…2afe c0ec 01700 IF ( "P" ) THEN
0x2af0…2afe LineComal80 {
0x2af0…2afe ptr = 0xc0ec // 0x2af0 @0x0
0x2af0…2afe lno = 0x06a4 // 0x2af2 @0x2
0x2af0…2afe at0004 = ╱9b19cd╱ IF ╱ // 0x2af4 @0x4
0x2af0…2afe at0007 = ╱ed╱ ( ╱ // 0x2af7 @0x7
0x2af0…2afe at0008 = ╱22╱"╱ // 0x2af8 @0x8
0x2af0…2afe at0009 = ╱50╱P╱ // 0x2af9 @0x9
0x2af0…2afe at000a = ╱22╱"╱ // 0x2afa @0xa
0x2af0…2afe at000b = ╱ee╱ ) ╱ // 0x2afb @0xb
0x2af0…2afe at000c = ╱b5╱ THEN ╱ // 0x2afc @0xc
0x2af0…2afe at000d = EOL // 0x2afd @0xd
0x2af0…2afe }
0x2afe…2b0e c0fc 01710 CURSOR 12 , LINE
0x2afe…2b0e LineComal80 {
0x2afe…2b0e ptr = 0xc0fc // 0x2afe @0x0
0x2afe…2b0e lno = 0x06ae // 0x2b00 @0x2
0x2afe…2b0e at0004 = ╱a1╱ CURSOR ╱ // 0x2b02 @0x4
0x2afe…2b0e at0005 = ╱31╱1╱ // 0x2b03 @0x5
0x2afe…2b0e at0006 = ╱32╱2╱ // 0x2b04 @0x6
0x2afe…2b0e at0007 = ╱f20c00╱ // 0x2b05 @0x7
0x2afe…2b0e at000a = ╱ec╱ , ╱ // 0x2b08 @0xa
0x2afe…2b0e at000b = ╱4c╱L╱ // 0x2b09 @0xb
0x2afe…2b0e at000c = ╱49╱I╱ // 0x2b0a @0xc
0x2afe…2b0e at000d = ╱4e╱N╱ // 0x2b0b @0xd
0x2afe…2b0e at000e = ╱45╱E╱ // 0x2b0c @0xe
0x2afe…2b0e at000f = EOL // 0x2b0d @0xf
0x2afe…2b0e }
0x2b0e…2b45 c133 01720 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
0x2b0e…2b45 LineComal80 {
0x2b0e…2b45 ptr = 0xc133 // 0x2b0e @0x0
0x2b0e…2b45 lno = 0x06b8 // 0x2b10 @0x2
0x2b0e…2b45 at0004 = ╱92╱ PRINT ╱ // 0x2b12 @0x4
0x2b0e…2b45 at0005 = ╱22╱"╱ // 0x2b13 @0x5
0x2b0e…2b45 at0006 = ╱3c╱<╱ // 0x2b14 @0x6
0x2b0e…2b45 at0007 = ╱53╱S╱ // 0x2b15 @0x7
0x2b0e…2b45 at0008 = ╱5a╱Z╱ // 0x2b16 @0x8
0x2b0e…2b45 at0009 = ╱3e╱>╱ // 0x2b17 @0x9
0x2b0e…2b45 at000a = ╱50╱P╱ // 0x2b18 @0xa
0x2b0e…2b45 at000b = ╱72╱r╱ // 0x2b19 @0xb
0x2b0e…2b45 at000c = ╱69╱i╱ // 0x2b1a @0xc
0x2b0e…2b45 at000d = ╱6e╱n╱ // 0x2b1b @0xd
0x2b0e…2b45 at000e = ╱74╱t╱ // 0x2b1c @0xe
0x2b0e…2b45 at000f = ╱65╱e╱ // 0x2b1d @0xf
0x2b0e…2b45 at0010 = ╱72╱r╱ // 0x2b1e @0x10
0x2b0e…2b45 at0011 = ╱65╱e╱ // 0x2b1f @0x11
0x2b0e…2b45 at0012 = ╱6e╱n╱ // 0x2b20 @0x12
0x2b0e…2b45 at0013 = ╱20╱…╱ // 0x2b21 @0x13
0x2b0e…2b45 at0014 = ╱65╱e╱ // 0x2b22 @0x14
0x2b0e…2b45 at0015 = ╱72╱r╱ // 0x2b23 @0x15
0x2b0e…2b45 at0016 = ╱20╱…╱ // 0x2b24 @0x16
0x2b0e…2b45 at0017 = ╱72╱r╱ // 0x2b25 @0x17
0x2b0e…2b45 at0018 = ╱65╱e╱ // 0x2b26 @0x18
0x2b0e…2b45 at0019 = ╱73╱s╱ // 0x2b27 @0x19
0x2b0e…2b45 at001a = ╱65╱e╱ // 0x2b28 @0x1a
0x2b0e…2b45 at001b = ╱72╱r╱ // 0x2b29 @0x1b
0x2b0e…2b45 at001c = ╱76╱v╱ // 0x2b2a @0x1c
0x2b0e…2b45 at001d = ╱65╱e╱ // 0x2b2b @0x1d
0x2b0e…2b45 at001e = ╱72╱r╱ // 0x2b2c @0x1e
0x2b0e…2b45 at001f = ╱65╱e╱ // 0x2b2d @0x1f
0x2b0e…2b45 at0020 = ╱74╱t╱ // 0x2b2e @0x20
0x2b0e…2b45 at0021 = ╱20╱…╱ // 0x2b2f @0x21
0x2b0e…2b45 at0022 = ╱61╱a╱ // 0x2b30 @0x22
0x2b0e…2b45 at0023 = ╱66╱f╱ // 0x2b31 @0x23
0x2b0e…2b45 at0024 = ╱20╱…╱ // 0x2b32 @0x24
0x2b0e…2b45 at0025 = ╱65╱e╱ // 0x2b33 @0x25
0x2b0e…2b45 at0026 = ╱6e╱n╱ // 0x2b34 @0x26
0x2b0e…2b45 at0027 = ╱20╱…╱ // 0x2b35 @0x27
0x2b0e…2b45 at0028 = ╱61╱a╱ // 0x2b36 @0x28
0x2b0e…2b45 at0029 = ╱6e╱n╱ // 0x2b37 @0x29
0x2b0e…2b45 at002a = ╱64╱d╱ // 0x2b38 @0x2a
0x2b0e…2b45 at002b = ╱65╱e╱ // 0x2b39 @0x2b
0x2b0e…2b45 at002c = ╱6e╱n╱ // 0x2b3a @0x2c
0x2b0e…2b45 at002d = ╱20╱…╱ // 0x2b3b @0x2d
0x2b0e…2b45 at002e = ╱62╱b╱ // 0x2b3c @0x2e
0x2b0e…2b45 at002f = ╱72╱r╱ // 0x2b3d @0x2f
0x2b0e…2b45 at0030 = ╱75╱u╱ // 0x2b3e @0x30
0x2b0e…2b45 at0031 = ╱67╱g╱ // 0x2b3f @0x31
0x2b0e…2b45 at0032 = ╱65╱e╱ // 0x2b40 @0x32
0x2b0e…2b45 at0033 = ╱72╱r╱ // 0x2b41 @0x33
0x2b0e…2b45 at0034 = ╱2c╱,╱ // 0x2b42 @0x34
0x2b0e…2b45 at0035 = ╱22╱"╱ // 0x2b43 @0x35
0x2b0e…2b45 at0036 = EOL // 0x2b44 @0x36
0x2b0e…2b45 }
0x2b45…2b5a c148 01730 CURSOR 12 , LINE + 1
0x2b45…2b5a LineComal80 {
0x2b45…2b5a ptr = 0xc148 // 0x2b45 @0x0
0x2b45…2b5a lno = 0x06c2 // 0x2b47 @0x2
0x2b45…2b5a at0004 = ╱a1╱ CURSOR ╱ // 0x2b49 @0x4
0x2b45…2b5a at0005 = ╱31╱1╱ // 0x2b4a @0x5
0x2b45…2b5a at0006 = ╱32╱2╱ // 0x2b4b @0x6
0x2b45…2b5a at0007 = ╱f20c00╱ // 0x2b4c @0x7
0x2b45…2b5a at000a = ╱ec╱ , ╱ // 0x2b4f @0xa
0x2b45…2b5a at000b = ╱4c╱L╱ // 0x2b50 @0xb
0x2b45…2b5a at000c = ╱49╱I╱ // 0x2b51 @0xc
0x2b45…2b5a at000d = ╱4e╱N╱ // 0x2b52 @0xd
0x2b45…2b5a at000e = ╱45╱E╱ // 0x2b53 @0xe
0x2b45…2b5a at000f = ╱e5╱ + ╱ // 0x2b54 @0xf
0x2b45…2b5a at0010 = ╱31╱1╱ // 0x2b55 @0x10
0x2b45…2b5a at0011 = ╱f20100╱ // 0x2b56 @0x11
0x2b45…2b5a at0014 = EOL // 0x2b59 @0x14
0x2b45…2b5a }
0x2b5a…2b9b c189 01740 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
0x2b5a…2b9b LineComal80 {
0x2b5a…2b9b ptr = 0xc189 // 0x2b5a @0x0
0x2b5a…2b9b lno = 0x06cc // 0x2b5c @0x2
0x2b5a…2b9b at0004 = ╱91╱ INPUT ╱ // 0x2b5e @0x4
0x2b5a…2b9b at0005 = ╱22╱"╱ // 0x2b5f @0x5
0x2b5a…2b9b at0006 = ╱3c╱<╱ // 0x2b60 @0x6
0x2b5a…2b9b at0007 = ╱53╱S╱ // 0x2b61 @0x7
0x2b5a…2b9b at0008 = ╱5a╱Z╱ // 0x2b62 @0x8
0x2b5a…2b9b at0009 = ╱3e╱>╱ // 0x2b63 @0x9
0x2b5a…2b9b at000a = ╱53╱S╱ // 0x2b64 @0xa
0x2b5a…2b9b at000b = ╱6b╱k╱ // 0x2b65 @0xb
0x2b5a…2b9b at000c = ╱61╱a╱ // 0x2b66 @0xc
0x2b5a…2b9b at000d = ╱6c╱l╱ // 0x2b67 @0xd
0x2b5a…2b9b at000e = ╱20╱…╱ // 0x2b68 @0xe
0x2b5a…2b9b at000f = ╱64╱d╱ // 0x2b69 @0xf
0x2b5a…2b9b at0010 = ╱65╱e╱ // 0x2b6a @0x10
0x2b5a…2b9b at0011 = ╱72╱r╱ // 0x2b6b @0x11
0x2b5a…2b9b at0012 = ╱20╱…╱ // 0x2b6c @0x12
0x2b5a…2b9b at0013 = ╱76╱v╱ // 0x2b6d @0x13
0x2b5a…2b9b at0014 = ╱65╱e╱ // 0x2b6e @0x14
0x2b5a…2b9b at0015 = ╱6e╱n╱ // 0x2b6f @0x15
0x2b5a…2b9b at0016 = ╱74╱t╱ // 0x2b70 @0x16
0x2b5a…2b9b at0017 = ╱65╱e╱ // 0x2b71 @0x17
0x2b5a…2b9b at0018 = ╱73╱s╱ // 0x2b72 @0x18
0x2b5a…2b9b at0019 = ╱20╱…╱ // 0x2b73 @0x19
0x2b5a…2b9b at001a = ╱70╱p╱ // 0x2b74 @0x1a
0x2b5a…2b9b at001b = ╱7d╱}╱ // 0x2b75 @0x1b
0x2b5a…2b9b at001c = ╱20╱…╱ // 0x2b76 @0x1c
0x2b5a…2b9b at001d = ╱61╱a╱ // 0x2b77 @0x1d
0x2b5a…2b9b at001e = ╱74╱t╱ // 0x2b78 @0x1e
0x2b5a…2b9b at001f = ╱20╱…╱ // 0x2b79 @0x1f
0x2b5a…2b9b at0020 = ╱64╱d╱ // 0x2b7a @0x20
0x2b5a…2b9b at0021 = ╱65╱e╱ // 0x2b7b @0x21
0x2b5a…2b9b at0022 = ╱6e╱n╱ // 0x2b7c @0x22
0x2b5a…2b9b at0023 = ╱20╱…╱ // 0x2b7d @0x23
0x2b5a…2b9b at0024 = ╱62╱b╱ // 0x2b7e @0x24
0x2b5a…2b9b at0025 = ╱6c╱l╱ // 0x2b7f @0x25
0x2b5a…2b9b at0026 = ╱69╱i╱ // 0x2b80 @0x26
0x2b5a…2b9b at0027 = ╱76╱v╱ // 0x2b81 @0x27
0x2b5a…2b9b at0028 = ╱65╱e╱ // 0x2b82 @0x28
0x2b5a…2b9b at0029 = ╱72╱r╱ // 0x2b83 @0x29
0x2b5a…2b9b at002a = ╱20╱…╱ // 0x2b84 @0x2a
0x2b5a…2b9b at002b = ╱6c╱l╱ // 0x2b85 @0x2b
0x2b5a…2b9b at002c = ╱65╱e╱ // 0x2b86 @0x2c
0x2b5a…2b9b at002d = ╱64╱d╱ // 0x2b87 @0x2d
0x2b5a…2b9b at002e = ╱69╱i╱ // 0x2b88 @0x2e
0x2b5a…2b9b at002f = ╱67╱g╱ // 0x2b89 @0x2f
0x2b5a…2b9b at0030 = ╱20╱…╱ // 0x2b8a @0x30
0x2b5a…2b9b at0031 = ╱3f╱?╱ // 0x2b8b @0x31
0x2b5a…2b9b at0032 = ╱20╱…╱ // 0x2b8c @0x32
0x2b5a…2b9b at0033 = ╱28╱(╱ // 0x2b8d @0x33
0x2b5a…2b9b at0034 = ╱6a╱j╱ // 0x2b8e @0x34
0x2b5a…2b9b at0035 = ╱2f╱/╱ // 0x2b8f @0x35
0x2b5a…2b9b at0036 = ╱6e╱n╱ // 0x2b90 @0x36
0x2b5a…2b9b at0037 = ╱29╱)╱ // 0x2b91 @0x37
0x2b5a…2b9b at0038 = ╱20╱…╱ // 0x2b92 @0x38
0x2b5a…2b9b at0039 = ╱22╱"╱ // 0x2b93 @0x39
0x2b5a…2b9b at003a = ╱f1╱ : ╱ // 0x2b94 @0x3a
0x2b5a…2b9b at003b = ╱53╱S╱ // 0x2b95 @0x3b
0x2b5a…2b9b at003c = ╱56╱V╱ // 0x2b96 @0x3c
0x2b5a…2b9b at003d = ╱41╱A╱ // 0x2b97 @0x3d
0x2b5a…2b9b at003e = ╱52╱R╱ // 0x2b98 @0x3e
0x2b5a…2b9b at003f = ╱ef╱ $ ╱ // 0x2b99 @0x3f
0x2b5a…2b9b at0040 = EOL // 0x2b9a @0x40
0x2b5a…2b9b }
0x2b9b…2bb6 c1a4 01750 IF VAR $ = "J" OR SVAR $ = "j" THEN
0x2b9b…2bb6 LineComal80 {
0x2b9b…2bb6 ptr = 0xc1a4 // 0x2b9b @0x0
0x2b9b…2bb6 lno = 0x06d6 // 0x2b9d @0x2
0x2b9b…2bb6 at0004 = ╱9b1a53╱ IF ╱ // 0x2b9f @0x4
0x2b9b…2bb6 at0007 = ╱56╱V╱ // 0x2ba2 @0x7
0x2b9b…2bb6 at0008 = ╱41╱A╱ // 0x2ba3 @0x8
0x2b9b…2bb6 at0009 = ╱52╱R╱ // 0x2ba4 @0x9
0x2b9b…2bb6 at000a = ╱ef╱ $ ╱ // 0x2ba5 @0xa
0x2b9b…2bb6 at000b = ╱df╱ = ╱ // 0x2ba6 @0xb
0x2b9b…2bb6 at000c = ╱22╱"╱ // 0x2ba7 @0xc
0x2b9b…2bb6 at000d = ╱4a╱J╱ // 0x2ba8 @0xd
0x2b9b…2bb6 at000e = ╱22╱"╱ // 0x2ba9 @0xe
0x2b9b…2bb6 at000f = ╱d8╱ OR ╱ // 0x2baa @0xf
0x2b9b…2bb6 at0010 = ╱53╱S╱ // 0x2bab @0x10
0x2b9b…2bb6 at0011 = ╱56╱V╱ // 0x2bac @0x11
0x2b9b…2bb6 at0012 = ╱41╱A╱ // 0x2bad @0x12
0x2b9b…2bb6 at0013 = ╱52╱R╱ // 0x2bae @0x13
0x2b9b…2bb6 at0014 = ╱ef╱ $ ╱ // 0x2baf @0x14
0x2b9b…2bb6 at0015 = ╱df╱ = ╱ // 0x2bb0 @0x15
0x2b9b…2bb6 at0016 = ╱22╱"╱ // 0x2bb1 @0x16
0x2b9b…2bb6 at0017 = ╱6a╱j╱ // 0x2bb2 @0x17
0x2b9b…2bb6 at0018 = ╱22╱"╱ // 0x2bb3 @0x18
0x2b9b…2bb6 at0019 = ╱b5╱ THEN ╱ // 0x2bb4 @0x19
0x2b9b…2bb6 at001a = EOL // 0x2bb5 @0x1a
0x2b9b…2bb6 }
0x2bb6…2bc6 c1b4 01760 CURSOR 12 , LINE
0x2bb6…2bc6 LineComal80 {
0x2bb6…2bc6 ptr = 0xc1b4 // 0x2bb6 @0x0
0x2bb6…2bc6 lno = 0x06e0 // 0x2bb8 @0x2
0x2bb6…2bc6 at0004 = ╱a1╱ CURSOR ╱ // 0x2bba @0x4
0x2bb6…2bc6 at0005 = ╱31╱1╱ // 0x2bbb @0x5
0x2bb6…2bc6 at0006 = ╱32╱2╱ // 0x2bbc @0x6
0x2bb6…2bc6 at0007 = ╱f20c00╱ // 0x2bbd @0x7
0x2bb6…2bc6 at000a = ╱ec╱ , ╱ // 0x2bc0 @0xa
0x2bb6…2bc6 at000b = ╱4c╱L╱ // 0x2bc1 @0xb
0x2bb6…2bc6 at000c = ╱49╱I╱ // 0x2bc2 @0xc
0x2bb6…2bc6 at000d = ╱4e╱N╱ // 0x2bc3 @0xd
0x2bb6…2bc6 at000e = ╱45╱E╱ // 0x2bc4 @0xe
0x2bb6…2bc6 at000f = EOL // 0x2bc5 @0xf
0x2bb6…2bc6 }
0x2bc6…2c01 c1ef 01770 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
0x2bc6…2c01 LineComal80 {
0x2bc6…2c01 ptr = 0xc1ef // 0x2bc6 @0x0
0x2bc6…2c01 lno = 0x06ea // 0x2bc8 @0x2
0x2bc6…2c01 at0004 = ╱92╱ PRINT ╱ // 0x2bca @0x4
0x2bc6…2c01 at0005 = ╱22╱"╱ // 0x2bcb @0x5
0x2bc6…2c01 at0006 = ╱3c╱<╱ // 0x2bcc @0x6
0x2bc6…2c01 at0007 = ╱5a╱Z╱ // 0x2bcd @0x7
0x2bc6…2c01 at0008 = ╱3e╱>╱ // 0x2bce @0x8
0x2bc6…2c01 at0009 = ╱20╱…╱ // 0x2bcf @0x9
0x2bc6…2c01 at000a = ╱20╱…╱ // 0x2bd0 @0xa
0x2bc6…2c01 at000b = ╱20╱…╱ // 0x2bd1 @0xb
0x2bc6…2c01 at000c = ╱20╱…╱ // 0x2bd2 @0xc
0x2bc6…2c01 at000d = ╱20╱…╱ // 0x2bd3 @0xd
0x2bc6…2c01 at000e = ╱44╱D╱ // 0x2bd4 @0xe
0x2bc6…2c01 at000f = ╱65╱e╱ // 0x2bd5 @0xf
0x2bc6…2c01 at0010 = ╱72╱r╱ // 0x2bd6 @0x10
0x2bc6…2c01 at0011 = ╱20╱…╱ // 0x2bd7 @0x11
0x2bc6…2c01 at0012 = ╱76╱v╱ // 0x2bd8 @0x12
0x2bc6…2c01 at0013 = ╱65╱e╱ // 0x2bd9 @0x13
0x2bc6…2c01 at0014 = ╱6e╱n╱ // 0x2bda @0x14
0x2bc6…2c01 at0015 = ╱74╱t╱ // 0x2bdb @0x15
0x2bc6…2c01 at0016 = ╱65╱e╱ // 0x2bdc @0x16
0x2bc6…2c01 at0017 = ╱73╱s╱ // 0x2bdd @0x17
0x2bc6…2c01 at0018 = ╱20╱…╱ // 0x2bde @0x18
0x2bc6…2c01 at0019 = ╱70╱p╱ // 0x2bdf @0x19
0x2bc6…2c01 at001a = ╱7d╱}╱ // 0x2be0 @0x1a
0x2bc6…2c01 at001b = ╱20╱…╱ // 0x2be1 @0x1b
0x2bc6…2c01 at001c = ╱61╱a╱ // 0x2be2 @0x1c
0x2bc6…2c01 at001d = ╱74╱t╱ // 0x2be3 @0x1d
0x2bc6…2c01 at001e = ╱20╱…╱ // 0x2be4 @0x1e
0x2bc6…2c01 at001f = ╱70╱p╱ // 0x2be5 @0x1f
0x2bc6…2c01 at0020 = ╱72╱r╱ // 0x2be6 @0x20
0x2bc6…2c01 at0021 = ╱69╱i╱ // 0x2be7 @0x21
0x2bc6…2c01 at0022 = ╱6e╱n╱ // 0x2be8 @0x22
0x2bc6…2c01 at0023 = ╱74╱t╱ // 0x2be9 @0x23
0x2bc6…2c01 at0024 = ╱65╱e╱ // 0x2bea @0x24
0x2bc6…2c01 at0025 = ╱72╱r╱ // 0x2beb @0x25
0x2bc6…2c01 at0026 = ╱65╱e╱ // 0x2bec @0x26
0x2bc6…2c01 at0027 = ╱6e╱n╱ // 0x2bed @0x27
0x2bc6…2c01 at0028 = ╱20╱…╱ // 0x2bee @0x28
0x2bc6…2c01 at0029 = ╱62╱b╱ // 0x2bef @0x29
0x2bc6…2c01 at002a = ╱6c╱l╱ // 0x2bf0 @0x2a
0x2bc6…2c01 at002b = ╱69╱i╱ // 0x2bf1 @0x2b
0x2bc6…2c01 at002c = ╱76╱v╱ // 0x2bf2 @0x2c
0x2bc6…2c01 at002d = ╱65╱e╱ // 0x2bf3 @0x2d
0x2bc6…2c01 at002e = ╱72╱r╱ // 0x2bf4 @0x2e
0x2bc6…2c01 at002f = ╱20╱…╱ // 0x2bf5 @0x2f
0x2bc6…2c01 at0030 = ╱6c╱l╱ // 0x2bf6 @0x30
0x2bc6…2c01 at0031 = ╱65╱e╱ // 0x2bf7 @0x31
0x2bc6…2c01 at0032 = ╱64╱d╱ // 0x2bf8 @0x32
0x2bc6…2c01 at0033 = ╱69╱i╱ // 0x2bf9 @0x33
0x2bc6…2c01 at0034 = ╱67╱g╱ // 0x2bfa @0x34
0x2bc6…2c01 at0035 = ╱2e╱.╱ // 0x2bfb @0x35
0x2bc6…2c01 at0036 = ╱2e╱.╱ // 0x2bfc @0x36
0x2bc6…2c01 at0037 = ╱2e╱.╱ // 0x2bfd @0x37
0x2bc6…2c01 at0038 = ╱2e╱.╱ // 0x2bfe @0x38
0x2bc6…2c01 at0039 = ╱22╱"╱ // 0x2bff @0x39
0x2bc6…2c01 at003a = EOL // 0x2c00 @0x3a
0x2bc6…2c01 }
0x2c01…2c0d c1fb 01780 PRINT "<SZ>"
0x2c01…2c0d LineComal80 {
0x2c01…2c0d ptr = 0xc1fb // 0x2c01 @0x0
0x2c01…2c0d lno = 0x06f4 // 0x2c03 @0x2
0x2c01…2c0d at0004 = ╱92╱ PRINT ╱ // 0x2c05 @0x4
0x2c01…2c0d at0005 = ╱22╱"╱ // 0x2c06 @0x5
0x2c01…2c0d at0006 = ╱3c╱<╱ // 0x2c07 @0x6
0x2c01…2c0d at0007 = ╱53╱S╱ // 0x2c08 @0x7
0x2c01…2c0d at0008 = ╱5a╱Z╱ // 0x2c09 @0x8
0x2c01…2c0d at0009 = ╱3e╱>╱ // 0x2c0a @0x9
0x2c01…2c0d at000a = ╱22╱"╱ // 0x2c0b @0xa
0x2c01…2c0d at000b = EOL // 0x2c0c @0xb
0x2c01…2c0d }
0x2c0d…2c1b c209 01790 WHILE ╱cd╱ ( "P" ) DO
0x2c0d…2c1b LineComal80 {
0x2c0d…2c1b ptr = 0xc209 // 0x2c0d @0x0
0x2c0d…2c1b lno = 0x06fe // 0x2c0f @0x2
0x2c0d…2c1b at0004 = ╱931b╱ WHILE ╱ // 0x2c11 @0x4
0x2c0d…2c1b at0006 = ╱cd╱ // 0x2c13 @0x6
0x2c0d…2c1b at0007 = ╱ed╱ ( ╱ // 0x2c14 @0x7
0x2c0d…2c1b at0008 = ╱22╱"╱ // 0x2c15 @0x8
0x2c0d…2c1b at0009 = ╱50╱P╱ // 0x2c16 @0x9
0x2c0d…2c1b at000a = ╱22╱"╱ // 0x2c17 @0xa
0x2c0d…2c1b at000b = ╱ee╱ ) ╱ // 0x2c18 @0xb
0x2c0d…2c1b at000c = ╱bb╱ DO ╱ // 0x2c19 @0xc
0x2c0d…2c1b at000d = EOL // 0x2c1a @0xd
0x2c0d…2c1b }
0x2c1b…2c2c c21a 01800 LET SEK := ╱ca╱ ( 5 )
0x2c1b…2c2c LineComal80 {
0x2c1b…2c2c ptr = 0xc21a // 0x2c1b @0x0
0x2c1b…2c2c lno = 0x0708 // 0x2c1d @0x2
0x2c1b…2c2c at0004 = ╱86╱ LET ╱ // 0x2c1f @0x4
0x2c1b…2c2c at0005 = ╱53╱S╱ // 0x2c20 @0x5
0x2c1b…2c2c at0006 = ╱45╱E╱ // 0x2c21 @0x6
0x2c1b…2c2c at0007 = ╱4b╱K╱ // 0x2c22 @0x7
0x2c1b…2c2c at0008 = ╱f0╱ := ╱ // 0x2c23 @0x8
0x2c1b…2c2c at0009 = ╱ca╱ // 0x2c24 @0x9
0x2c1b…2c2c at000a = ╱ed╱ ( ╱ // 0x2c25 @0xa
0x2c1b…2c2c at000b = ╱35╱5╱ // 0x2c26 @0xb
0x2c1b…2c2c at000c = ╱f20500╱ // 0x2c27 @0xc
0x2c1b…2c2c at000f = ╱ee╱ ) ╱ // 0x2c2a @0xf
0x2c1b…2c2c at0010 = EOL // 0x2c2b @0x10
0x2c1b…2c2c }
0x2c2c…2c3c c22a 01810 SELECT OUTPUT "P" + PRTNR $
0x2c2c…2c3c LineComal80 {
0x2c2c…2c3c ptr = 0xc22a // 0x2c2c @0x0
0x2c2c…2c3c lno = 0x0712 // 0x2c2e @0x2
0x2c2c…2c3c at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x2c30 @0x4
0x2c2c…2c3c at0005 = ╱22╱"╱ // 0x2c31 @0x5
0x2c2c…2c3c at0006 = ╱50╱P╱ // 0x2c32 @0x6
0x2c2c…2c3c at0007 = ╱22╱"╱ // 0x2c33 @0x7
0x2c2c…2c3c at0008 = ╱eb╱ + ╱ // 0x2c34 @0x8
0x2c2c…2c3c at0009 = ╱50╱P╱ // 0x2c35 @0x9
0x2c2c…2c3c at000a = ╱52╱R╱ // 0x2c36 @0xa
0x2c2c…2c3c at000b = ╱54╱T╱ // 0x2c37 @0xb
0x2c2c…2c3c at000c = ╱4e╱N╱ // 0x2c38 @0xc
0x2c2c…2c3c at000d = ╱52╱R╱ // 0x2c39 @0xd
0x2c2c…2c3c at000e = ╱ef╱ $ ╱ // 0x2c3a @0xe
0x2c2c…2c3c at000f = EOL // 0x2c3b @0xf
0x2c2c…2c3c }
0x2c3c…2c42 c230 01820 ENDWHILE
0x2c3c…2c42 LineComal80 {
0x2c3c…2c42 ptr = 0xc230 // 0x2c3c @0x0
0x2c3c…2c42 lno = 0x071c // 0x2c3e @0x2
0x2c3c…2c42 at0004 = ╱94╱ ENDWHILE ╱ // 0x2c40 @0x4
0x2c3c…2c42 at0005 = EOL // 0x2c41 @0x5
0x2c3c…2c42 }
0x2c42…2c49 c237 01830 ELSE
0x2c42…2c49 LineComal80 {
0x2c42…2c49 ptr = 0xc237 // 0x2c42 @0x0
0x2c42…2c49 lno = 0x0726 // 0x2c44 @0x2
0x2c42…2c49 at0004 = ╱9a1c╱ ELSE ╱ // 0x2c46 @0x4
0x2c42…2c49 at0006 = EOL // 0x2c48 @0x6
0x2c42…2c49 }
0x2c49…2c57 c245 01840 LET OK := FALSE
0x2c49…2c57 LineComal80 {
0x2c49…2c57 ptr = 0xc245 // 0x2c49 @0x0
0x2c49…2c57 lno = 0x0730 // 0x2c4b @0x2
0x2c49…2c57 at0004 = ╱86╱ LET ╱ // 0x2c4d @0x4
0x2c49…2c57 at0005 = ╱4f╱O╱ // 0x2c4e @0x5
0x2c49…2c57 at0006 = ╱4b╱K╱ // 0x2c4f @0x6
0x2c49…2c57 at0007 = ╱f0╱ := ╱ // 0x2c50 @0x7
0x2c49…2c57 at0008 = ╱46╱F╱ // 0x2c51 @0x8
0x2c49…2c57 at0009 = ╱41╱A╱ // 0x2c52 @0x9
0x2c49…2c57 at000a = ╱4c╱L╱ // 0x2c53 @0xa
0x2c49…2c57 at000b = ╱53╱S╱ // 0x2c54 @0xb
0x2c49…2c57 at000c = ╱45╱E╱ // 0x2c55 @0xc
0x2c49…2c57 at000d = EOL // 0x2c56 @0xd
0x2c49…2c57 }
0x2c57…2c5d c24b 01850 ENDIF
0x2c57…2c5d LineComal80 {
0x2c57…2c5d ptr = 0xc24b // 0x2c57 @0x0
0x2c57…2c5d lno = 0x073a // 0x2c59 @0x2
0x2c57…2c5d at0004 = ╱9c╱ ENDIF ╱ // 0x2c5b @0x4
0x2c57…2c5d at0005 = EOL // 0x2c5c @0x5
0x2c57…2c5d }
0x2c5d…2c63 c251 01860 ENDIF
0x2c5d…2c63 LineComal80 {
0x2c5d…2c63 ptr = 0xc251 // 0x2c5d @0x0
0x2c5d…2c63 lno = 0x0744 // 0x2c5f @0x2
0x2c5d…2c63 at0004 = ╱9c╱ ENDIF ╱ // 0x2c61 @0x4
0x2c5d…2c63 at0005 = EOL // 0x2c62 @0x5
0x2c5d…2c63 }
0x2c63…2c72 c260 01870 CURSOR 1 , LINE
0x2c63…2c72 LineComal80 {
0x2c63…2c72 ptr = 0xc260 // 0x2c63 @0x0
0x2c63…2c72 lno = 0x074e // 0x2c65 @0x2
0x2c63…2c72 at0004 = ╱a1╱ CURSOR ╱ // 0x2c67 @0x4
0x2c63…2c72 at0005 = ╱31╱1╱ // 0x2c68 @0x5
0x2c63…2c72 at0006 = ╱f20100╱ // 0x2c69 @0x6
0x2c63…2c72 at0009 = ╱ec╱ , ╱ // 0x2c6c @0x9
0x2c63…2c72 at000a = ╱4c╱L╱ // 0x2c6d @0xa
0x2c63…2c72 at000b = ╱49╱I╱ // 0x2c6e @0xb
0x2c63…2c72 at000c = ╱4e╱N╱ // 0x2c6f @0xc
0x2c63…2c72 at000d = ╱45╱E╱ // 0x2c70 @0xd
0x2c63…2c72 at000e = EOL // 0x2c71 @0xe
0x2c63…2c72 }
0x2c72…2c7d c26b 01880 PRINT "<Z>"
0x2c72…2c7d LineComal80 {
0x2c72…2c7d ptr = 0xc26b // 0x2c72 @0x0
0x2c72…2c7d lno = 0x0758 // 0x2c74 @0x2
0x2c72…2c7d at0004 = ╱92╱ PRINT ╱ // 0x2c76 @0x4
0x2c72…2c7d at0005 = ╱22╱"╱ // 0x2c77 @0x5
0x2c72…2c7d at0006 = ╱3c╱<╱ // 0x2c78 @0x6
0x2c72…2c7d at0007 = ╱5a╱Z╱ // 0x2c79 @0x7
0x2c72…2c7d at0008 = ╱3e╱>╱ // 0x2c7a @0x8
0x2c72…2c7d at0009 = ╱22╱"╱ // 0x2c7b @0x9
0x2c72…2c7d at000a = EOL // 0x2c7c @0xa
0x2c72…2c7d }
0x2c7d…2c89 c277 01890 PRINT "<SZ>"
0x2c7d…2c89 LineComal80 {
0x2c7d…2c89 ptr = 0xc277 // 0x2c7d @0x0
0x2c7d…2c89 lno = 0x0762 // 0x2c7f @0x2
0x2c7d…2c89 at0004 = ╱92╱ PRINT ╱ // 0x2c81 @0x4
0x2c7d…2c89 at0005 = ╱22╱"╱ // 0x2c82 @0x5
0x2c7d…2c89 at0006 = ╱3c╱<╱ // 0x2c83 @0x6
0x2c7d…2c89 at0007 = ╱53╱S╱ // 0x2c84 @0x7
0x2c7d…2c89 at0008 = ╱5a╱Z╱ // 0x2c85 @0x8
0x2c7d…2c89 at0009 = ╱3e╱>╱ // 0x2c86 @0x9
0x2c7d…2c89 at000a = ╱22╱"╱ // 0x2c87 @0xa
0x2c7d…2c89 at000b = EOL // 0x2c88 @0xb
0x2c7d…2c89 }
0x2c89…2c97 c285 01900 ENDPROC PRINTRES
0x2c89…2c97 LineComal80 {
0x2c89…2c97 ptr = 0xc285 // 0x2c89 @0x0
0x2c89…2c97 lno = 0x076c // 0x2c8b @0x2
0x2c89…2c97 at0004 = ╱9f╱ ENDPROC ╱ // 0x2c8d @0x4
0x2c89…2c97 at0005 = ╱50╱P╱ // 0x2c8e @0x5
0x2c89…2c97 at0006 = ╱52╱R╱ // 0x2c8f @0x6
0x2c89…2c97 at0007 = ╱49╱I╱ // 0x2c90 @0x7
0x2c89…2c97 at0008 = ╱4e╱N╱ // 0x2c91 @0x8
0x2c89…2c97 at0009 = ╱54╱T╱ // 0x2c92 @0x9
0x2c89…2c97 at000a = ╱52╱R╱ // 0x2c93 @0xa
0x2c89…2c97 at000b = ╱45╱E╱ // 0x2c94 @0xb
0x2c89…2c97 at000c = ╱53╱S╱ // 0x2c95 @0xc
0x2c89…2c97 at000d = EOL // 0x2c96 @0xd
0x2c89…2c97 }
0x2c97…2c9d c28b 01620 //
0x2c97…2c9d LineComal80 {
0x2c97…2c9d ptr = 0xc28b // 0x2c97 @0x0
0x2c97…2c9d lno = 0x0654 // 0x2c99 @0x2
0x2c97…2c9d at0004 = ╱89╱ // ╱ // 0x2c9b @0x4
0x2c97…2c9d at0005 = EOL // 0x2c9c @0x5
0x2c97…2c9d }
0x2c9d…2cbc c2aa 01630 PROC PRINTREL // RELEASE…PRINTER
0x2c9d…2cbc LineComal80 {
0x2c9d…2cbc ptr = 0xc2aa // 0x2c9d @0x0
0x2c9d…2cbc lno = 0x065e // 0x2c9f @0x2
0x2c9d…2cbc at0004 = ╱9e17╱ PROC ╱ // 0x2ca1 @0x4
0x2c9d…2cbc at0006 = ╱50╱P╱ // 0x2ca3 @0x6
0x2c9d…2cbc at0007 = ╱52╱R╱ // 0x2ca4 @0x7
0x2c9d…2cbc at0008 = ╱49╱I╱ // 0x2ca5 @0x8
0x2c9d…2cbc at0009 = ╱4e╱N╱ // 0x2ca6 @0x9
0x2c9d…2cbc at000a = ╱54╱T╱ // 0x2ca7 @0xa
0x2c9d…2cbc at000b = ╱52╱R╱ // 0x2ca8 @0xb
0x2c9d…2cbc at000c = ╱45╱E╱ // 0x2ca9 @0xc
0x2c9d…2cbc at000d = ╱4c╱L╱ // 0x2caa @0xd
0x2c9d…2cbc at000e = ╱89╱ // ╱ // 0x2cab @0xe
0x2c9d…2cbc at000f = ╱52╱R╱ // 0x2cac @0xf
0x2c9d…2cbc at0010 = ╱45╱E╱ // 0x2cad @0x10
0x2c9d…2cbc at0011 = ╱4c╱L╱ // 0x2cae @0x11
0x2c9d…2cbc at0012 = ╱45╱E╱ // 0x2caf @0x12
0x2c9d…2cbc at0013 = ╱41╱A╱ // 0x2cb0 @0x13
0x2c9d…2cbc at0014 = ╱53╱S╱ // 0x2cb1 @0x14
0x2c9d…2cbc at0015 = ╱45╱E╱ // 0x2cb2 @0x15
0x2c9d…2cbc at0016 = ╱20╱…╱ // 0x2cb3 @0x16
0x2c9d…2cbc at0017 = ╱50╱P╱ // 0x2cb4 @0x17
0x2c9d…2cbc at0018 = ╱52╱R╱ // 0x2cb5 @0x18
0x2c9d…2cbc at0019 = ╱49╱I╱ // 0x2cb6 @0x19
0x2c9d…2cbc at001a = ╱4e╱N╱ // 0x2cb7 @0x1a
0x2c9d…2cbc at001b = ╱54╱T╱ // 0x2cb8 @0x1b
0x2c9d…2cbc at001c = ╱45╱E╱ // 0x2cb9 @0x1c
0x2c9d…2cbc at001d = ╱52╱R╱ // 0x2cba @0x1d
0x2c9d…2cbc at001e = EOL // 0x2cbb @0x1e
0x2c9d…2cbc }
0x2cbc…2cc5 c648 01640 SELECT OUTPUT "T"
0x2cbc…2cc5 LineComal80 {
0x2cbc…2cc5 ptr = 0xc648 // 0x2cbc @0x0
0x2cbc…2cc5 lno = 0x0668 // 0x2cbe @0x2
0x2cbc…2cc5 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x2cc0 @0x4
0x2cbc…2cc5 at0005 = ╱22╱"╱ // 0x2cc1 @0x5
0x2cbc…2cc5 at0006 = ╱54╱T╱ // 0x2cc2 @0x6
0x2cbc…2cc5 at0007 = ╱22╱"╱ // 0x2cc3 @0x7
0x2cbc…2cc5 at0008 = EOL // 0x2cc4 @0x8
0x2cbc…2cc5 }
0x2cc5…2cd3 c2c1 01800 ENDPROC PRINTREL
0x2cc5…2cd3 LineComal80 {
0x2cc5…2cd3 ptr = 0xc2c1 // 0x2cc5 @0x0
0x2cc5…2cd3 lno = 0x0708 // 0x2cc7 @0x2
0x2cc5…2cd3 at0004 = ╱9f╱ ENDPROC ╱ // 0x2cc9 @0x4
0x2cc5…2cd3 at0005 = ╱50╱P╱ // 0x2cca @0x5
0x2cc5…2cd3 at0006 = ╱52╱R╱ // 0x2ccb @0x6
0x2cc5…2cd3 at0007 = ╱49╱I╱ // 0x2ccc @0x7
0x2cc5…2cd3 at0008 = ╱4e╱N╱ // 0x2ccd @0x8
0x2cc5…2cd3 at0009 = ╱54╱T╱ // 0x2cce @0x9
0x2cc5…2cd3 at000a = ╱52╱R╱ // 0x2ccf @0xa
0x2cc5…2cd3 at000b = ╱45╱E╱ // 0x2cd0 @0xb
0x2cc5…2cd3 at000c = ╱4c╱L╱ // 0x2cd1 @0xc
0x2cc5…2cd3 at000d = EOL // 0x2cd2 @0xd
0x2cc5…2cd3 }
0x2cd3…2cf8 c2e6 01810 // DIM…S$…OF…80,KTONR$…OF…10,X(20)
0x2cd3…2cf8 LineComal80 {
0x2cd3…2cf8 ptr = 0xc2e6 // 0x2cd3 @0x0
0x2cd3…2cf8 lno = 0x0712 // 0x2cd5 @0x2
0x2cd3…2cf8 at0004 = ╱89╱ // ╱ // 0x2cd7 @0x4
0x2cd3…2cf8 at0005 = ╱44╱D╱ // 0x2cd8 @0x5
0x2cd3…2cf8 at0006 = ╱49╱I╱ // 0x2cd9 @0x6
0x2cd3…2cf8 at0007 = ╱4d╱M╱ // 0x2cda @0x7
0x2cd3…2cf8 at0008 = ╱20╱…╱ // 0x2cdb @0x8
0x2cd3…2cf8 at0009 = ╱53╱S╱ // 0x2cdc @0x9
0x2cd3…2cf8 at000a = ╱24╱$╱ // 0x2cdd @0xa
0x2cd3…2cf8 at000b = ╱20╱…╱ // 0x2cde @0xb
0x2cd3…2cf8 at000c = ╱4f╱O╱ // 0x2cdf @0xc
0x2cd3…2cf8 at000d = ╱46╱F╱ // 0x2ce0 @0xd
0x2cd3…2cf8 at000e = ╱20╱…╱ // 0x2ce1 @0xe
0x2cd3…2cf8 at000f = ╱38╱8╱ // 0x2ce2 @0xf
0x2cd3…2cf8 at0010 = ╱30╱0╱ // 0x2ce3 @0x10
0x2cd3…2cf8 at0011 = ╱2c╱,╱ // 0x2ce4 @0x11
0x2cd3…2cf8 at0012 = ╱4b╱K╱ // 0x2ce5 @0x12
0x2cd3…2cf8 at0013 = ╱54╱T╱ // 0x2ce6 @0x13
0x2cd3…2cf8 at0014 = ╱4f╱O╱ // 0x2ce7 @0x14
0x2cd3…2cf8 at0015 = ╱4e╱N╱ // 0x2ce8 @0x15
0x2cd3…2cf8 at0016 = ╱52╱R╱ // 0x2ce9 @0x16
0x2cd3…2cf8 at0017 = ╱24╱$╱ // 0x2cea @0x17
0x2cd3…2cf8 at0018 = ╱20╱…╱ // 0x2ceb @0x18
0x2cd3…2cf8 at0019 = ╱4f╱O╱ // 0x2cec @0x19
0x2cd3…2cf8 at001a = ╱46╱F╱ // 0x2ced @0x1a
0x2cd3…2cf8 at001b = ╱20╱…╱ // 0x2cee @0x1b
0x2cd3…2cf8 at001c = ╱31╱1╱ // 0x2cef @0x1c
0x2cd3…2cf8 at001d = ╱30╱0╱ // 0x2cf0 @0x1d
0x2cd3…2cf8 at001e = ╱2c╱,╱ // 0x2cf1 @0x1e
0x2cd3…2cf8 at001f = ╱58╱X╱ // 0x2cf2 @0x1f
0x2cd3…2cf8 at0020 = ╱28╱(╱ // 0x2cf3 @0x20
0x2cd3…2cf8 at0021 = ╱32╱2╱ // 0x2cf4 @0x21
0x2cd3…2cf8 at0022 = ╱30╱0╱ // 0x2cf5 @0x22
0x2cd3…2cf8 at0023 = ╱29╱)╱ // 0x2cf6 @0x23
0x2cd3…2cf8 at0024 = EOL // 0x2cf7 @0x24
0x2cd3…2cf8 }
0x2cf8…2d08 c2f6 01820 PROC OPDEL ( A $ )
0x2cf8…2d08 LineComal80 {
0x2cf8…2d08 ptr = 0xc2f6 // 0x2cf8 @0x0
0x2cf8…2d08 lno = 0x071c // 0x2cfa @0x2
0x2cf8…2d08 at0004 = ╱9e1c╱ PROC ╱ // 0x2cfc @0x4
0x2cf8…2d08 at0006 = ╱4f╱O╱ // 0x2cfe @0x6
0x2cf8…2d08 at0007 = ╱50╱P╱ // 0x2cff @0x7
0x2cf8…2d08 at0008 = ╱44╱D╱ // 0x2d00 @0x8
0x2cf8…2d08 at0009 = ╱45╱E╱ // 0x2d01 @0x9
0x2cf8…2d08 at000a = ╱4c╱L╱ // 0x2d02 @0xa
0x2cf8…2d08 at000b = ╱ed╱ ( ╱ // 0x2d03 @0xb
0x2cf8…2d08 at000c = ╱41╱A╱ // 0x2d04 @0xc
0x2cf8…2d08 at000d = ╱ef╱ $ ╱ // 0x2d05 @0xd
0x2cf8…2d08 at000e = ╱ee╱ ) ╱ // 0x2d06 @0xe
0x2cf8…2d08 at000f = EOL // 0x2d07 @0xf
0x2cf8…2d08 }
0x2d08…2d17 c305 01830 LET KTONR $ := ""
0x2d08…2d17 LineComal80 {
0x2d08…2d17 ptr = 0xc305 // 0x2d08 @0x0
0x2d08…2d17 lno = 0x0726 // 0x2d0a @0x2
0x2d08…2d17 at0004 = ╱86╱ LET ╱ // 0x2d0c @0x4
0x2d08…2d17 at0005 = ╱4b╱K╱ // 0x2d0d @0x5
0x2d08…2d17 at0006 = ╱54╱T╱ // 0x2d0e @0x6
0x2d08…2d17 at0007 = ╱4f╱O╱ // 0x2d0f @0x7
0x2d08…2d17 at0008 = ╱4e╱N╱ // 0x2d10 @0x8
0x2d08…2d17 at0009 = ╱52╱R╱ // 0x2d11 @0x9
0x2d08…2d17 at000a = ╱ef╱ $ ╱ // 0x2d12 @0xa
0x2d08…2d17 at000b = ╱f0╱ := ╱ // 0x2d13 @0xb
0x2d08…2d17 at000c = ╱22╱"╱ // 0x2d14 @0xc
0x2d08…2d17 at000d = ╱22╱"╱ // 0x2d15 @0xd
0x2d08…2d17 at000e = EOL // 0x2d16 @0xe
0x2d08…2d17 }
0x2d17…2d23 c311 01840 LET I := 1
0x2d17…2d23 LineComal80 {
0x2d17…2d23 ptr = 0xc311 // 0x2d17 @0x0
0x2d17…2d23 lno = 0x0730 // 0x2d19 @0x2
0x2d17…2d23 at0004 = ╱86╱ LET ╱ // 0x2d1b @0x4
0x2d17…2d23 at0005 = ╱49╱I╱ // 0x2d1c @0x5
0x2d17…2d23 at0006 = ╱f0╱ := ╱ // 0x2d1d @0x6
0x2d17…2d23 at0007 = ╱31╱1╱ // 0x2d1e @0x7
0x2d17…2d23 at0008 = ╱f20100╱ // 0x2d1f @0x8
0x2d17…2d23 at000b = EOL // 0x2d22 @0xb
0x2d17…2d23 }
0x2d23…2d34 c322 01850 WHILE A $ ( I ) >< "*" DO
0x2d23…2d34 LineComal80 {
0x2d23…2d34 ptr = 0xc322 // 0x2d23 @0x0
0x2d23…2d34 lno = 0x073a // 0x2d25 @0x2
0x2d23…2d34 at0004 = ╱931d╱ WHILE ╱ // 0x2d27 @0x4
0x2d23…2d34 at0006 = ╱41╱A╱ // 0x2d29 @0x6
0x2d23…2d34 at0007 = ╱ef╱ $ ╱ // 0x2d2a @0x7
0x2d23…2d34 at0008 = ╱ed╱ ( ╱ // 0x2d2b @0x8
0x2d23…2d34 at0009 = ╱49╱I╱ // 0x2d2c @0x9
0x2d23…2d34 at000a = ╱ee╱ ) ╱ // 0x2d2d @0xa
0x2d23…2d34 at000b = ╱e4╱ >< ╱ // 0x2d2e @0xb
0x2d23…2d34 at000c = ╱22╱"╱ // 0x2d2f @0xc
0x2d23…2d34 at000d = ╱2a╱*╱ // 0x2d30 @0xd
0x2d23…2d34 at000e = ╱22╱"╱ // 0x2d31 @0xe
0x2d23…2d34 at000f = ╱bb╱ DO ╱ // 0x2d32 @0xf
0x2d23…2d34 at0010 = EOL // 0x2d33 @0x10
0x2d23…2d34 }
0x2d34…2d58 c346 01860 IF A $ ( I ) = "/" THEN LET KTONR $ := "" ; I := I + 1
0x2d34…2d58 LineComal80 {
0x2d34…2d58 ptr = 0xc346 // 0x2d34 @0x0
0x2d34…2d58 lno = 0x0744 // 0x2d36 @0x2
0x2d34…2d58 at0004 = ╱8200╱ IF ╱ // 0x2d38 @0x4
0x2d34…2d58 at0006 = ╱41╱A╱ // 0x2d3a @0x6
0x2d34…2d58 at0007 = ╱ef╱ $ ╱ // 0x2d3b @0x7
0x2d34…2d58 at0008 = ╱ed╱ ( ╱ // 0x2d3c @0x8
0x2d34…2d58 at0009 = ╱49╱I╱ // 0x2d3d @0x9
0x2d34…2d58 at000a = ╱ee╱ ) ╱ // 0x2d3e @0xa
0x2d34…2d58 at000b = ╱df╱ = ╱ // 0x2d3f @0xb
0x2d34…2d58 at000c = ╱22╱"╱ // 0x2d40 @0xc
0x2d34…2d58 at000d = ╱2f╱/╱ // 0x2d41 @0xd
0x2d34…2d58 at000e = ╱22╱"╱ // 0x2d42 @0xe
0x2d34…2d58 at000f = ╱b5╱ THEN ╱ // 0x2d43 @0xf
0x2d34…2d58 at0010 = ╱86╱ LET ╱ // 0x2d44 @0x10
0x2d34…2d58 at0011 = ╱4b╱K╱ // 0x2d45 @0x11
0x2d34…2d58 at0012 = ╱54╱T╱ // 0x2d46 @0x12
0x2d34…2d58 at0013 = ╱4f╱O╱ // 0x2d47 @0x13
0x2d34…2d58 at0014 = ╱4e╱N╱ // 0x2d48 @0x14
0x2d34…2d58 at0015 = ╱52╱R╱ // 0x2d49 @0x15
0x2d34…2d58 at0016 = ╱ef╱ $ ╱ // 0x2d4a @0x16
0x2d34…2d58 at0017 = ╱f0╱ := ╱ // 0x2d4b @0x17
0x2d34…2d58 at0018 = ╱22╱"╱ // 0x2d4c @0x18
0x2d34…2d58 at0019 = ╱22╱"╱ // 0x2d4d @0x19
0x2d34…2d58 at001a = ╱ea╱ ; ╱ // 0x2d4e @0x1a
0x2d34…2d58 at001b = ╱49╱I╱ // 0x2d4f @0x1b
0x2d34…2d58 at001c = ╱f0╱ := ╱ // 0x2d50 @0x1c
0x2d34…2d58 at001d = ╱49╱I╱ // 0x2d51 @0x1d
0x2d34…2d58 at001e = ╱e5╱ + ╱ // 0x2d52 @0x1e
0x2d34…2d58 at001f = ╱31╱1╱ // 0x2d53 @0x1f
0x2d34…2d58 at0020 = ╱f20100╱ // 0x2d54 @0x20
0x2d34…2d58 at0023 = EOL // 0x2d57 @0x23
0x2d34…2d58 }
0x2d58…2d77 c365 01870 WHILE ( A $ ( I ) >< "/" ) AND ( A $ ( I ) >< "*" ) DO
0x2d58…2d77 LineComal80 {
0x2d58…2d77 ptr = 0xc365 // 0x2d58 @0x0
0x2d58…2d77 lno = 0x074e // 0x2d5a @0x2
0x2d58…2d77 at0004 = ╱931e╱ WHILE ╱ // 0x2d5c @0x4
0x2d58…2d77 at0006 = ╱ed╱ ( ╱ // 0x2d5e @0x6
0x2d58…2d77 at0007 = ╱41╱A╱ // 0x2d5f @0x7
0x2d58…2d77 at0008 = ╱ef╱ $ ╱ // 0x2d60 @0x8
0x2d58…2d77 at0009 = ╱ed╱ ( ╱ // 0x2d61 @0x9
0x2d58…2d77 at000a = ╱49╱I╱ // 0x2d62 @0xa
0x2d58…2d77 at000b = ╱ee╱ ) ╱ // 0x2d63 @0xb
0x2d58…2d77 at000c = ╱e4╱ >< ╱ // 0x2d64 @0xc
0x2d58…2d77 at000d = ╱22╱"╱ // 0x2d65 @0xd
0x2d58…2d77 at000e = ╱2f╱/╱ // 0x2d66 @0xe
0x2d58…2d77 at000f = ╱22╱"╱ // 0x2d67 @0xf
0x2d58…2d77 at0010 = ╱ee╱ ) ╱ // 0x2d68 @0x10
0x2d58…2d77 at0011 = ╱d9╱ AND ╱ // 0x2d69 @0x11
0x2d58…2d77 at0012 = ╱ed╱ ( ╱ // 0x2d6a @0x12
0x2d58…2d77 at0013 = ╱41╱A╱ // 0x2d6b @0x13
0x2d58…2d77 at0014 = ╱ef╱ $ ╱ // 0x2d6c @0x14
0x2d58…2d77 at0015 = ╱ed╱ ( ╱ // 0x2d6d @0x15
0x2d58…2d77 at0016 = ╱49╱I╱ // 0x2d6e @0x16
0x2d58…2d77 at0017 = ╱ee╱ ) ╱ // 0x2d6f @0x17
0x2d58…2d77 at0018 = ╱e4╱ >< ╱ // 0x2d70 @0x18
0x2d58…2d77 at0019 = ╱22╱"╱ // 0x2d71 @0x19
0x2d58…2d77 at001a = ╱2a╱*╱ // 0x2d72 @0x1a
0x2d58…2d77 at001b = ╱22╱"╱ // 0x2d73 @0x1b
0x2d58…2d77 at001c = ╱ee╱ ) ╱ // 0x2d74 @0x1c
0x2d58…2d77 at001d = ╱bb╱ DO ╱ // 0x2d75 @0x1d
0x2d58…2d77 at001e = EOL // 0x2d76 @0x1e
0x2d58…2d77 }
0x2d77…2d90 c37e 01880 LET KTONR $ := KTONR $ + A $ ( I )
0x2d77…2d90 LineComal80 {
0x2d77…2d90 ptr = 0xc37e // 0x2d77 @0x0
0x2d77…2d90 lno = 0x0758 // 0x2d79 @0x2
0x2d77…2d90 at0004 = ╱86╱ LET ╱ // 0x2d7b @0x4
0x2d77…2d90 at0005 = ╱4b╱K╱ // 0x2d7c @0x5
0x2d77…2d90 at0006 = ╱54╱T╱ // 0x2d7d @0x6
0x2d77…2d90 at0007 = ╱4f╱O╱ // 0x2d7e @0x7
0x2d77…2d90 at0008 = ╱4e╱N╱ // 0x2d7f @0x8
0x2d77…2d90 at0009 = ╱52╱R╱ // 0x2d80 @0x9
0x2d77…2d90 at000a = ╱ef╱ $ ╱ // 0x2d81 @0xa
0x2d77…2d90 at000b = ╱f0╱ := ╱ // 0x2d82 @0xb
0x2d77…2d90 at000c = ╱4b╱K╱ // 0x2d83 @0xc
0x2d77…2d90 at000d = ╱54╱T╱ // 0x2d84 @0xd
0x2d77…2d90 at000e = ╱4f╱O╱ // 0x2d85 @0xe
0x2d77…2d90 at000f = ╱4e╱N╱ // 0x2d86 @0xf
0x2d77…2d90 at0010 = ╱52╱R╱ // 0x2d87 @0x10
0x2d77…2d90 at0011 = ╱ef╱ $ ╱ // 0x2d88 @0x11
0x2d77…2d90 at0012 = ╱eb╱ + ╱ // 0x2d89 @0x12
0x2d77…2d90 at0013 = ╱41╱A╱ // 0x2d8a @0x13
0x2d77…2d90 at0014 = ╱ef╱ $ ╱ // 0x2d8b @0x14
0x2d77…2d90 at0015 = ╱ed╱ ( ╱ // 0x2d8c @0x15
0x2d77…2d90 at0016 = ╱49╱I╱ // 0x2d8d @0x16
0x2d77…2d90 at0017 = ╱ee╱ ) ╱ // 0x2d8e @0x17
0x2d77…2d90 at0018 = EOL // 0x2d8f @0x18
0x2d77…2d90 }
0x2d90…2d9e c38c 01890 LET I := I + 1
0x2d90…2d9e LineComal80 {
0x2d90…2d9e ptr = 0xc38c // 0x2d90 @0x0
0x2d90…2d9e lno = 0x0762 // 0x2d92 @0x2
0x2d90…2d9e at0004 = ╱86╱ LET ╱ // 0x2d94 @0x4
0x2d90…2d9e at0005 = ╱49╱I╱ // 0x2d95 @0x5
0x2d90…2d9e at0006 = ╱f0╱ := ╱ // 0x2d96 @0x6
0x2d90…2d9e at0007 = ╱49╱I╱ // 0x2d97 @0x7
0x2d90…2d9e at0008 = ╱e5╱ + ╱ // 0x2d98 @0x8
0x2d90…2d9e at0009 = ╱31╱1╱ // 0x2d99 @0x9
0x2d90…2d9e at000a = ╱f20100╱ // 0x2d9a @0xa
0x2d90…2d9e at000d = EOL // 0x2d9d @0xd
0x2d90…2d9e }
0x2d9e…2da4 c392 01900 ENDWHILE
0x2d9e…2da4 LineComal80 {
0x2d9e…2da4 ptr = 0xc392 // 0x2d9e @0x0
0x2d9e…2da4 lno = 0x076c // 0x2da0 @0x2
0x2d9e…2da4 at0004 = ╱94╱ ENDWHILE ╱ // 0x2da2 @0x4
0x2d9e…2da4 at0005 = EOL // 0x2da3 @0x5
0x2d9e…2da4 }
0x2da4…2db7 c3a5 01910 EXEC OPSUM ( KTONR $ )
0x2da4…2db7 LineComal80 {
0x2da4…2db7 ptr = 0xc3a5 // 0x2da4 @0x0
0x2da4…2db7 lno = 0x0776 // 0x2da6 @0x2
0x2da4…2db7 at0004 = ╱9d╱ EXEC ╱ // 0x2da8 @0x4
0x2da4…2db7 at0005 = ╱4f╱O╱ // 0x2da9 @0x5
0x2da4…2db7 at0006 = ╱50╱P╱ // 0x2daa @0x6
0x2da4…2db7 at0007 = ╱53╱S╱ // 0x2dab @0x7
0x2da4…2db7 at0008 = ╱55╱U╱ // 0x2dac @0x8
0x2da4…2db7 at0009 = ╱4d╱M╱ // 0x2dad @0x9
0x2da4…2db7 at000a = ╱ed╱ ( ╱ // 0x2dae @0xa
0x2da4…2db7 at000b = ╱4b╱K╱ // 0x2daf @0xb
0x2da4…2db7 at000c = ╱54╱T╱ // 0x2db0 @0xc
0x2da4…2db7 at000d = ╱4f╱O╱ // 0x2db1 @0xd
0x2da4…2db7 at000e = ╱4e╱N╱ // 0x2db2 @0xe
0x2da4…2db7 at000f = ╱52╱R╱ // 0x2db3 @0xf
0x2da4…2db7 at0010 = ╱ef╱ $ ╱ // 0x2db4 @0x10
0x2da4…2db7 at0011 = ╱ee╱ ) ╱ // 0x2db5 @0x11
0x2da4…2db7 at0012 = EOL // 0x2db6 @0x12
0x2da4…2db7 }
0x2db7…2dbd c3ab 01920 ENDWHILE
0x2db7…2dbd LineComal80 {
0x2db7…2dbd ptr = 0xc3ab // 0x2db7 @0x0
0x2db7…2dbd lno = 0x0780 // 0x2db9 @0x2
0x2db7…2dbd at0004 = ╱94╱ ENDWHILE ╱ // 0x2dbb @0x4
0x2db7…2dbd at0005 = EOL // 0x2dbc @0x5
0x2db7…2dbd }
0x2dbd…2dc8 c3b6 01930 ENDPROC OPDEL
0x2dbd…2dc8 LineComal80 {
0x2dbd…2dc8 ptr = 0xc3b6 // 0x2dbd @0x0
0x2dbd…2dc8 lno = 0x078a // 0x2dbf @0x2
0x2dbd…2dc8 at0004 = ╱9f╱ ENDPROC ╱ // 0x2dc1 @0x4
0x2dbd…2dc8 at0005 = ╱4f╱O╱ // 0x2dc2 @0x5
0x2dbd…2dc8 at0006 = ╱50╱P╱ // 0x2dc3 @0x6
0x2dbd…2dc8 at0007 = ╱44╱D╱ // 0x2dc4 @0x7
0x2dbd…2dc8 at0008 = ╱45╱E╱ // 0x2dc5 @0x8
0x2dbd…2dc8 at0009 = ╱4c╱L╱ // 0x2dc6 @0x9
0x2dbd…2dc8 at000a = EOL // 0x2dc7 @0xa
0x2dbd…2dc8 }
0x2dc8…2dd9 c3c7 01940 PROC OPSUM ( KN $ )
0x2dc8…2dd9 LineComal80 {
0x2dc8…2dd9 ptr = 0xc3c7 // 0x2dc8 @0x0
0x2dc8…2dd9 lno = 0x0794 // 0x2dca @0x2
0x2dc8…2dd9 at0004 = ╱9e1f╱ PROC ╱ // 0x2dcc @0x4
0x2dc8…2dd9 at0006 = ╱4f╱O╱ // 0x2dce @0x6
0x2dc8…2dd9 at0007 = ╱50╱P╱ // 0x2dcf @0x7
0x2dc8…2dd9 at0008 = ╱53╱S╱ // 0x2dd0 @0x8
0x2dc8…2dd9 at0009 = ╱55╱U╱ // 0x2dd1 @0x9
0x2dc8…2dd9 at000a = ╱4d╱M╱ // 0x2dd2 @0xa
0x2dc8…2dd9 at000b = ╱ed╱ ( ╱ // 0x2dd3 @0xb
0x2dc8…2dd9 at000c = ╱4b╱K╱ // 0x2dd4 @0xc
0x2dc8…2dd9 at000d = ╱4e╱N╱ // 0x2dd5 @0xd
0x2dc8…2dd9 at000e = ╱ef╱ $ ╱ // 0x2dd6 @0xe
0x2dc8…2dd9 at000f = ╱ee╱ ) ╱ // 0x2dd7 @0xf
0x2dc8…2dd9 at0010 = EOL // 0x2dd8 @0x10
0x2dc8…2dd9 }
0x2dd9…2ded c551 01950 LET X ( P ) := X ( P ) + 1
0x2dd9…2ded LineComal80 {
0x2dd9…2ded ptr = 0xc551 // 0x2dd9 @0x0
0x2dd9…2ded lno = 0x079e // 0x2ddb @0x2
0x2dd9…2ded at0004 = ╱86╱ LET ╱ // 0x2ddd @0x4
0x2dd9…2ded at0005 = ╱58╱X╱ // 0x2dde @0x5
0x2dd9…2ded at0006 = ╱ed╱ ( ╱ // 0x2ddf @0x6
0x2dd9…2ded at0007 = ╱50╱P╱ // 0x2de0 @0x7
0x2dd9…2ded at0008 = ╱ee╱ ) ╱ // 0x2de1 @0x8
0x2dd9…2ded at0009 = ╱f0╱ := ╱ // 0x2de2 @0x9
0x2dd9…2ded at000a = ╱58╱X╱ // 0x2de3 @0xa
0x2dd9…2ded at000b = ╱ed╱ ( ╱ // 0x2de4 @0xb
0x2dd9…2ded at000c = ╱50╱P╱ // 0x2de5 @0xc
0x2dd9…2ded at000d = ╱ee╱ ) ╱ // 0x2de6 @0xd
0x2dd9…2ded at000e = ╱e5╱ + ╱ // 0x2de7 @0xe
0x2dd9…2ded at000f = ╱31╱1╱ // 0x2de8 @0xf
0x2dd9…2ded at0010 = ╱f20100╱ // 0x2de9 @0x10
0x2dd9…2ded at0013 = EOL // 0x2dec @0x13
0x2dd9…2ded }
0x2ded…2dfb c3e9 01960 PRINT KN $ , X ( P )
0x2ded…2dfb LineComal80 {
0x2ded…2dfb ptr = 0xc3e9 // 0x2ded @0x0
0x2ded…2dfb lno = 0x07a8 // 0x2def @0x2
0x2ded…2dfb at0004 = ╱92╱ PRINT ╱ // 0x2df1 @0x4
0x2ded…2dfb at0005 = ╱4b╱K╱ // 0x2df2 @0x5
0x2ded…2dfb at0006 = ╱4e╱N╱ // 0x2df3 @0x6
0x2ded…2dfb at0007 = ╱ef╱ $ ╱ // 0x2df4 @0x7
0x2ded…2dfb at0008 = ╱ec╱ , ╱ // 0x2df5 @0x8
0x2ded…2dfb at0009 = ╱58╱X╱ // 0x2df6 @0x9
0x2ded…2dfb at000a = ╱ed╱ ( ╱ // 0x2df7 @0xa
0x2ded…2dfb at000b = ╱50╱P╱ // 0x2df8 @0xb
0x2ded…2dfb at000c = ╱ee╱ ) ╱ // 0x2df9 @0xc
0x2ded…2dfb at000d = EOL // 0x2dfa @0xd
0x2ded…2dfb }
0x2dfb…2e06 c47b 01970 ENDPROC OPSUM
0x2dfb…2e06 LineComal80 {
0x2dfb…2e06 ptr = 0xc47b // 0x2dfb @0x0
0x2dfb…2e06 lno = 0x07b2 // 0x2dfd @0x2
0x2dfb…2e06 at0004 = ╱9f╱ ENDPROC ╱ // 0x2dff @0x4
0x2dfb…2e06 at0005 = ╱4f╱O╱ // 0x2e00 @0x5
0x2dfb…2e06 at0006 = ╱50╱P╱ // 0x2e01 @0x6
0x2dfb…2e06 at0007 = ╱53╱S╱ // 0x2e02 @0x7
0x2dfb…2e06 at0008 = ╱55╱U╱ // 0x2e03 @0x8
0x2dfb…2e06 at0009 = ╱4d╱M╱ // 0x2e04 @0x9
0x2dfb…2e06 at000a = EOL // 0x2e05 @0xa
0x2dfb…2e06 }
0x2e06…2e12 c487 01980 LET P := 0
0x2e06…2e12 LineComal80 {
0x2e06…2e12 ptr = 0xc487 // 0x2e06 @0x0
0x2e06…2e12 lno = 0x07bc // 0x2e08 @0x2
0x2e06…2e12 at0004 = ╱86╱ LET ╱ // 0x2e0a @0x4
0x2e06…2e12 at0005 = ╱50╱P╱ // 0x2e0b @0x5
0x2e06…2e12 at0006 = ╱f0╱ := ╱ // 0x2e0c @0x6
0x2e06…2e12 at0007 = ╱30╱0╱ // 0x2e0d @0x7
0x2e06…2e12 at0008 = ╱f20000╱ // 0x2e0e @0x8
0x2e06…2e12 at000b = EOL // 0x2e11 @0xb
0x2e06…2e12 }
0x2e12…2e25 c413 01990 OPEN "DP2:ZATAL" , R
0x2e12…2e25 LineComal80 {
0x2e12…2e25 ptr = 0xc413 // 0x2e12 @0x0
0x2e12…2e25 lno = 0x07c6 // 0x2e14 @0x2
0x2e12…2e25 at0004 = ╱a7╱ OPEN ╱ // 0x2e16 @0x4
0x2e12…2e25 at0005 = ╱22╱"╱ // 0x2e17 @0x5
0x2e12…2e25 at0006 = ╱44╱D╱ // 0x2e18 @0x6
0x2e12…2e25 at0007 = ╱50╱P╱ // 0x2e19 @0x7
0x2e12…2e25 at0008 = ╱32╱2╱ // 0x2e1a @0x8
0x2e12…2e25 at0009 = ╱3a╱:╱ // 0x2e1b @0x9
0x2e12…2e25 at000a = ╱5a╱Z╱ // 0x2e1c @0xa
0x2e12…2e25 at000b = ╱41╱A╱ // 0x2e1d @0xb
0x2e12…2e25 at000c = ╱54╱T╱ // 0x2e1e @0xc
0x2e12…2e25 at000d = ╱41╱A╱ // 0x2e1f @0xd
0x2e12…2e25 at000e = ╱4c╱L╱ // 0x2e20 @0xe
0x2e12…2e25 at000f = ╱22╱"╱ // 0x2e21 @0xf
0x2e12…2e25 at0010 = ╱ec╱ , ╱ // 0x2e22 @0x10
0x2e12…2e25 at0011 = ╱52╱R╱ // 0x2e23 @0x11
0x2e12…2e25 at0012 = EOL // 0x2e24 @0x12
0x2e12…2e25 }
0x2e25…2e39 c427 02000 GET "DP2:ZATAL" : S $
0x2e25…2e39 LineComal80 {
0x2e25…2e39 ptr = 0xc427 // 0x2e25 @0x0
0x2e25…2e39 lno = 0x07d0 // 0x2e27 @0x2
0x2e25…2e39 at0004 = ╱a9╱ GET ╱ // 0x2e29 @0x4
0x2e25…2e39 at0005 = ╱22╱"╱ // 0x2e2a @0x5
0x2e25…2e39 at0006 = ╱44╱D╱ // 0x2e2b @0x6
0x2e25…2e39 at0007 = ╱50╱P╱ // 0x2e2c @0x7
0x2e25…2e39 at0008 = ╱32╱2╱ // 0x2e2d @0x8
0x2e25…2e39 at0009 = ╱3a╱:╱ // 0x2e2e @0x9
0x2e25…2e39 at000a = ╱5a╱Z╱ // 0x2e2f @0xa
0x2e25…2e39 at000b = ╱41╱A╱ // 0x2e30 @0xb
0x2e25…2e39 at000c = ╱54╱T╱ // 0x2e31 @0xc
0x2e25…2e39 at000d = ╱41╱A╱ // 0x2e32 @0xd
0x2e25…2e39 at000e = ╱4c╱L╱ // 0x2e33 @0xe
0x2e25…2e39 at000f = ╱22╱"╱ // 0x2e34 @0xf
0x2e25…2e39 at0010 = ╱f1╱ : ╱ // 0x2e35 @0x10
0x2e25…2e39 at0011 = ╱53╱S╱ // 0x2e36 @0x11
0x2e25…2e39 at0012 = ╱ef╱ $ ╱ // 0x2e37 @0x12
0x2e25…2e39 at0013 = EOL // 0x2e38 @0x13
0x2e25…2e39 }
0x2e39…2e50 c43e 02010 WHILE NOT ╱cd╱ ( "DP2:ZATAL" ) DO
0x2e39…2e50 LineComal80 {
0x2e39…2e50 ptr = 0xc43e // 0x2e39 @0x0
0x2e39…2e50 lno = 0x07da // 0x2e3b @0x2
0x2e39…2e50 at0004 = ╱9300╱ WHILE ╱ // 0x2e3d @0x4
0x2e39…2e50 at0006 = ╱d7╱ NOT ╱ // 0x2e3f @0x6
0x2e39…2e50 at0007 = ╱cd╱ // 0x2e40 @0x7
0x2e39…2e50 at0008 = ╱ed╱ ( ╱ // 0x2e41 @0x8
0x2e39…2e50 at0009 = ╱22╱"╱ // 0x2e42 @0x9
0x2e39…2e50 at000a = ╱44╱D╱ // 0x2e43 @0xa
0x2e39…2e50 at000b = ╱50╱P╱ // 0x2e44 @0xb
0x2e39…2e50 at000c = ╱32╱2╱ // 0x2e45 @0xc
0x2e39…2e50 at000d = ╱3a╱:╱ // 0x2e46 @0xd
0x2e39…2e50 at000e = ╱5a╱Z╱ // 0x2e47 @0xe
0x2e39…2e50 at000f = ╱41╱A╱ // 0x2e48 @0xf
0x2e39…2e50 at0010 = ╱54╱T╱ // 0x2e49 @0x10
0x2e39…2e50 at0011 = ╱41╱A╱ // 0x2e4a @0x11
0x2e39…2e50 at0012 = ╱4c╱L╱ // 0x2e4b @0x12
0x2e39…2e50 at0013 = ╱22╱"╱ // 0x2e4c @0x13
0x2e39…2e50 at0014 = ╱ee╱ ) ╱ // 0x2e4d @0x14
0x2e39…2e50 at0015 = ╱bb╱ DO ╱ // 0x2e4e @0x15
0x2e39…2e50 at0016 = EOL // 0x2e4f @0x16
0x2e39…2e50 }
0x2e50…2e5e c44c 02020 LET P := P + 1
0x2e50…2e5e LineComal80 {
0x2e50…2e5e ptr = 0xc44c // 0x2e50 @0x0
0x2e50…2e5e lno = 0x07e4 // 0x2e52 @0x2
0x2e50…2e5e at0004 = ╱86╱ LET ╱ // 0x2e54 @0x4
0x2e50…2e5e at0005 = ╱50╱P╱ // 0x2e55 @0x5
0x2e50…2e5e at0006 = ╱f0╱ := ╱ // 0x2e56 @0x6
0x2e50…2e5e at0007 = ╱50╱P╱ // 0x2e57 @0x7
0x2e50…2e5e at0008 = ╱e5╱ + ╱ // 0x2e58 @0x8
0x2e50…2e5e at0009 = ╱31╱1╱ // 0x2e59 @0x9
0x2e50…2e5e at000a = ╱f20100╱ // 0x2e5a @0xa
0x2e50…2e5e at000d = EOL // 0x2e5d @0xd
0x2e50…2e5e }
0x2e5e…2e6d c45b 02030 EXEC OPDEL ( S $ )
0x2e5e…2e6d LineComal80 {
0x2e5e…2e6d ptr = 0xc45b // 0x2e5e @0x0
0x2e5e…2e6d lno = 0x07ee // 0x2e60 @0x2
0x2e5e…2e6d at0004 = ╱9d╱ EXEC ╱ // 0x2e62 @0x4
0x2e5e…2e6d at0005 = ╱4f╱O╱ // 0x2e63 @0x5
0x2e5e…2e6d at0006 = ╱50╱P╱ // 0x2e64 @0x6
0x2e5e…2e6d at0007 = ╱44╱D╱ // 0x2e65 @0x7
0x2e5e…2e6d at0008 = ╱45╱E╱ // 0x2e66 @0x8
0x2e5e…2e6d at0009 = ╱4c╱L╱ // 0x2e67 @0x9
0x2e5e…2e6d at000a = ╱ed╱ ( ╱ // 0x2e68 @0xa
0x2e5e…2e6d at000b = ╱53╱S╱ // 0x2e69 @0xb
0x2e5e…2e6d at000c = ╱ef╱ $ ╱ // 0x2e6a @0xc
0x2e5e…2e6d at000d = ╱ee╱ ) ╱ // 0x2e6b @0xd
0x2e5e…2e6d at000e = EOL // 0x2e6c @0xe
0x2e5e…2e6d }
0x2e6d…2e81 c46f 02040 GET "DP2:ZATAL" : S $
0x2e6d…2e81 LineComal80 {
0x2e6d…2e81 ptr = 0xc46f // 0x2e6d @0x0
0x2e6d…2e81 lno = 0x07f8 // 0x2e6f @0x2
0x2e6d…2e81 at0004 = ╱a9╱ GET ╱ // 0x2e71 @0x4
0x2e6d…2e81 at0005 = ╱22╱"╱ // 0x2e72 @0x5
0x2e6d…2e81 at0006 = ╱44╱D╱ // 0x2e73 @0x6
0x2e6d…2e81 at0007 = ╱50╱P╱ // 0x2e74 @0x7
0x2e6d…2e81 at0008 = ╱32╱2╱ // 0x2e75 @0x8
0x2e6d…2e81 at0009 = ╱3a╱:╱ // 0x2e76 @0x9
0x2e6d…2e81 at000a = ╱5a╱Z╱ // 0x2e77 @0xa
0x2e6d…2e81 at000b = ╱41╱A╱ // 0x2e78 @0xb
0x2e6d…2e81 at000c = ╱54╱T╱ // 0x2e79 @0xc
0x2e6d…2e81 at000d = ╱41╱A╱ // 0x2e7a @0xd
0x2e6d…2e81 at000e = ╱4c╱L╱ // 0x2e7b @0xe
0x2e6d…2e81 at000f = ╱22╱"╱ // 0x2e7c @0xf
0x2e6d…2e81 at0010 = ╱f1╱ : ╱ // 0x2e7d @0x10
0x2e6d…2e81 at0011 = ╱53╱S╱ // 0x2e7e @0x11
0x2e6d…2e81 at0012 = ╱ef╱ $ ╱ // 0x2e7f @0x12
0x2e6d…2e81 at0013 = EOL // 0x2e80 @0x13
0x2e6d…2e81 }
0x2e81…2e87 c475 02050 ENDWHILE
0x2e81…2e87 LineComal80 {
0x2e81…2e87 ptr = 0xc475 // 0x2e81 @0x0
0x2e81…2e87 lno = 0x0802 // 0x2e83 @0x2
0x2e81…2e87 at0004 = ╱94╱ ENDWHILE ╱ // 0x2e85 @0x4
0x2e81…2e87 at0005 = EOL // 0x2e86 @0x5
0x2e81…2e87 }
0x2e87…2e8d 0000 02060 CLOSE
0x2e87…2e8d LineComal80 {
0x2e87…2e8d ptr = 0x0000 // 0x2e87 @0x0
0x2e87…2e8d lno = 0x080c // 0x2e89 @0x2
0x2e87…2e8d at0004 = ╱a8╱ CLOSE ╱ // 0x2e8b @0x4
0x2e87…2e8d at0005 = EOL // 0x2e8c @0x5
0x2e87…2e8d }
0x2e8d…2e99 c3f4 01975 PROC OPT[L
0x2e8d…2e99 LineComal80 {
0x2e8d…2e99 ptr = 0xc3f4 // 0x2e8d @0x0
0x2e8d…2e99 lno = 0x07b7 // 0x2e8f @0x2
0x2e8d…2e99 at0004 = ╱9e20╱ PROC ╱ // 0x2e91 @0x4
0x2e8d…2e99 at0006 = ╱4f╱O╱ // 0x2e93 @0x6
0x2e8d…2e99 at0007 = ╱50╱P╱ // 0x2e94 @0x7
0x2e8d…2e99 at0008 = ╱54╱T╱ // 0x2e95 @0x8
0x2e8d…2e99 at0009 = ╱5b╱[╱ // 0x2e96 @0x9
0x2e8d…2e99 at000a = ╱4c╱L╱ // 0x2e97 @0xa
0x2e8d…2e99 at000b = EOL // 0x2e98 @0xb
0x2e8d…2e99 }
0x2e99…2eb1 c49f 01990 EXEC OPENFIL ( OPTF $ , "R" )
0x2e99…2eb1 LineComal80 {
0x2e99…2eb1 ptr = 0xc49f // 0x2e99 @0x0
0x2e99…2eb1 lno = 0x07c6 // 0x2e9b @0x2
0x2e99…2eb1 at0004 = ╱9d╱ EXEC ╱ // 0x2e9d @0x4
0x2e99…2eb1 at0005 = ╱4f╱O╱ // 0x2e9e @0x5
0x2e99…2eb1 at0006 = ╱50╱P╱ // 0x2e9f @0x6
0x2e99…2eb1 at0007 = ╱45╱E╱ // 0x2ea0 @0x7
0x2e99…2eb1 at0008 = ╱4e╱N╱ // 0x2ea1 @0x8
0x2e99…2eb1 at0009 = ╱46╱F╱ // 0x2ea2 @0x9
0x2e99…2eb1 at000a = ╱49╱I╱ // 0x2ea3 @0xa
0x2e99…2eb1 at000b = ╱4c╱L╱ // 0x2ea4 @0xb
0x2e99…2eb1 at000c = ╱ed╱ ( ╱ // 0x2ea5 @0xc
0x2e99…2eb1 at000d = ╱4f╱O╱ // 0x2ea6 @0xd
0x2e99…2eb1 at000e = ╱50╱P╱ // 0x2ea7 @0xe
0x2e99…2eb1 at000f = ╱54╱T╱ // 0x2ea8 @0xf
0x2e99…2eb1 at0010 = ╱46╱F╱ // 0x2ea9 @0x10
0x2e99…2eb1 at0011 = ╱ef╱ $ ╱ // 0x2eaa @0x11
0x2e99…2eb1 at0012 = ╱ec╱ , ╱ // 0x2eab @0x12
0x2e99…2eb1 at0013 = ╱22╱"╱ // 0x2eac @0x13
0x2e99…2eb1 at0014 = ╱52╱R╱ // 0x2ead @0x14
0x2e99…2eb1 at0015 = ╱22╱"╱ // 0x2eae @0x15
0x2e99…2eb1 at0016 = ╱ee╱ ) ╱ // 0x2eaf @0x16
0x2e99…2eb1 at0017 = EOL // 0x2eb0 @0x17
0x2e99…2eb1 }
0x2eb1…2ebf c4ad 02000 GET OPTF $ : S $
0x2eb1…2ebf LineComal80 {
0x2eb1…2ebf ptr = 0xc4ad // 0x2eb1 @0x0
0x2eb1…2ebf lno = 0x07d0 // 0x2eb3 @0x2
0x2eb1…2ebf at0004 = ╱a9╱ GET ╱ // 0x2eb5 @0x4
0x2eb1…2ebf at0005 = ╱4f╱O╱ // 0x2eb6 @0x5
0x2eb1…2ebf at0006 = ╱50╱P╱ // 0x2eb7 @0x6
0x2eb1…2ebf at0007 = ╱54╱T╱ // 0x2eb8 @0x7
0x2eb1…2ebf at0008 = ╱46╱F╱ // 0x2eb9 @0x8
0x2eb1…2ebf at0009 = ╱ef╱ $ ╱ // 0x2eba @0x9
0x2eb1…2ebf at000a = ╱f1╱ : ╱ // 0x2ebb @0xa
0x2eb1…2ebf at000b = ╱53╱S╱ // 0x2ebc @0xb
0x2eb1…2ebf at000c = ╱ef╱ $ ╱ // 0x2ebd @0xc
0x2eb1…2ebf at000d = EOL // 0x2ebe @0xd
0x2eb1…2ebf }
0x2ebf…2ed0 c4be 02010 WHILE NOT ╱cd╱ ( OPTF $ ) DO
0x2ebf…2ed0 LineComal80 {
0x2ebf…2ed0 ptr = 0xc4be // 0x2ebf @0x0
0x2ebf…2ed0 lno = 0x07da // 0x2ec1 @0x2
0x2ebf…2ed0 at0004 = ╱9321╱ WHILE ╱ // 0x2ec3 @0x4
0x2ebf…2ed0 at0006 = ╱d7╱ NOT ╱ // 0x2ec5 @0x6
0x2ebf…2ed0 at0007 = ╱cd╱ // 0x2ec6 @0x7
0x2ebf…2ed0 at0008 = ╱ed╱ ( ╱ // 0x2ec7 @0x8
0x2ebf…2ed0 at0009 = ╱4f╱O╱ // 0x2ec8 @0x9
0x2ebf…2ed0 at000a = ╱50╱P╱ // 0x2ec9 @0xa
0x2ebf…2ed0 at000b = ╱54╱T╱ // 0x2eca @0xb
0x2ebf…2ed0 at000c = ╱46╱F╱ // 0x2ecb @0xc
0x2ebf…2ed0 at000d = ╱ef╱ $ ╱ // 0x2ecc @0xd
0x2ebf…2ed0 at000e = ╱ee╱ ) ╱ // 0x2ecd @0xe
0x2ebf…2ed0 at000f = ╱bb╱ DO ╱ // 0x2ece @0xf
0x2ebf…2ed0 at0010 = EOL // 0x2ecf @0x10
0x2ebf…2ed0 }
0x2ed0…2ede c4cc 02020 LET P := P + 1
0x2ed0…2ede LineComal80 {
0x2ed0…2ede ptr = 0xc4cc // 0x2ed0 @0x0
0x2ed0…2ede lno = 0x07e4 // 0x2ed2 @0x2
0x2ed0…2ede at0004 = ╱86╱ LET ╱ // 0x2ed4 @0x4
0x2ed0…2ede at0005 = ╱50╱P╱ // 0x2ed5 @0x5
0x2ed0…2ede at0006 = ╱f0╱ := ╱ // 0x2ed6 @0x6
0x2ed0…2ede at0007 = ╱50╱P╱ // 0x2ed7 @0x7
0x2ed0…2ede at0008 = ╱e5╱ + ╱ // 0x2ed8 @0x8
0x2ed0…2ede at0009 = ╱31╱1╱ // 0x2ed9 @0x9
0x2ed0…2ede at000a = ╱f20100╱ // 0x2eda @0xa
0x2ed0…2ede at000d = EOL // 0x2edd @0xd
0x2ed0…2ede }
0x2ede…2eed c4db 02030 EXEC OPDEL ( S $ )
0x2ede…2eed LineComal80 {
0x2ede…2eed ptr = 0xc4db // 0x2ede @0x0
0x2ede…2eed lno = 0x07ee // 0x2ee0 @0x2
0x2ede…2eed at0004 = ╱9d╱ EXEC ╱ // 0x2ee2 @0x4
0x2ede…2eed at0005 = ╱4f╱O╱ // 0x2ee3 @0x5
0x2ede…2eed at0006 = ╱50╱P╱ // 0x2ee4 @0x6
0x2ede…2eed at0007 = ╱44╱D╱ // 0x2ee5 @0x7
0x2ede…2eed at0008 = ╱45╱E╱ // 0x2ee6 @0x8
0x2ede…2eed at0009 = ╱4c╱L╱ // 0x2ee7 @0x9
0x2ede…2eed at000a = ╱ed╱ ( ╱ // 0x2ee8 @0xa
0x2ede…2eed at000b = ╱53╱S╱ // 0x2ee9 @0xb
0x2ede…2eed at000c = ╱ef╱ $ ╱ // 0x2eea @0xc
0x2ede…2eed at000d = ╱ee╱ ) ╱ // 0x2eeb @0xd
0x2ede…2eed at000e = EOL // 0x2eec @0xe
0x2ede…2eed }
0x2eed…2efb c4e9 02040 GET OPTF $ : S $
0x2eed…2efb LineComal80 {
0x2eed…2efb ptr = 0xc4e9 // 0x2eed @0x0
0x2eed…2efb lno = 0x07f8 // 0x2eef @0x2
0x2eed…2efb at0004 = ╱a9╱ GET ╱ // 0x2ef1 @0x4
0x2eed…2efb at0005 = ╱4f╱O╱ // 0x2ef2 @0x5
0x2eed…2efb at0006 = ╱50╱P╱ // 0x2ef3 @0x6
0x2eed…2efb at0007 = ╱54╱T╱ // 0x2ef4 @0x7
0x2eed…2efb at0008 = ╱46╱F╱ // 0x2ef5 @0x8
0x2eed…2efb at0009 = ╱ef╱ $ ╱ // 0x2ef6 @0x9
0x2eed…2efb at000a = ╱f1╱ : ╱ // 0x2ef7 @0xa
0x2eed…2efb at000b = ╱53╱S╱ // 0x2ef8 @0xb
0x2eed…2efb at000c = ╱ef╱ $ ╱ // 0x2ef9 @0xc
0x2eed…2efb at000d = EOL // 0x2efa @0xd
0x2eed…2efb }
0x2efb…2f01 c4ef 02050 ENDWHILE
0x2efb…2f01 LineComal80 {
0x2efb…2f01 ptr = 0xc4ef // 0x2efb @0x0
0x2efb…2f01 lno = 0x0802 // 0x2efd @0x2
0x2efb…2f01 at0004 = ╱94╱ ENDWHILE ╱ // 0x2eff @0x4
0x2efb…2f01 at0005 = EOL // 0x2f00 @0x5
0x2efb…2f01 }
0x2f01…2f07 c4f5 02060 CLOSE
0x2f01…2f07 LineComal80 {
0x2f01…2f07 ptr = 0xc4f5 // 0x2f01 @0x0
0x2f01…2f07 lno = 0x080c // 0x2f03 @0x2
0x2f01…2f07 at0004 = ╱a8╱ CLOSE ╱ // 0x2f05 @0x4
0x2f01…2f07 at0005 = EOL // 0x2f06 @0x5
0x2f01…2f07 }
0x2f07…2f12 0000 02070 ENDPROC OPT[L
0x2f07…2f12 LineComal80 {
0x2f07…2f12 ptr = 0x0000 // 0x2f07 @0x0
0x2f07…2f12 lno = 0x0816 // 0x2f09 @0x2
0x2f07…2f12 at0004 = ╱9f╱ ENDPROC ╱ // 0x2f0b @0x4
0x2f07…2f12 at0005 = ╱4f╱O╱ // 0x2f0c @0x5
0x2f07…2f12 at0006 = ╱50╱P╱ // 0x2f0d @0x6
0x2f07…2f12 at0007 = ╱54╱T╱ // 0x2f0e @0x7
0x2f07…2f12 at0008 = ╱5b╱[╱ // 0x2f0f @0x8
0x2f07…2f12 at0009 = ╱4c╱L╱ // 0x2f10 @0x9
0x2f07…2f12 at000a = EOL // 0x2f11 @0xa
0x2f07…2f12 }
0x2f12…2f27 cdd2 00320 // HJ[LPE…VARIABLE
0x2f12…2f27 LineComal80 {
0x2f12…2f27 ptr = 0xcdd2 // 0x2f12 @0x0
0x2f12…2f27 lno = 0x0140 // 0x2f14 @0x2
0x2f12…2f27 at0004 = ╱89╱ // ╱ // 0x2f16 @0x4
0x2f12…2f27 at0005 = ╱48╱H╱ // 0x2f17 @0x5
0x2f12…2f27 at0006 = ╱4a╱J╱ // 0x2f18 @0x6
0x2f12…2f27 at0007 = ╱5b╱[╱ // 0x2f19 @0x7
0x2f12…2f27 at0008 = ╱4c╱L╱ // 0x2f1a @0x8
0x2f12…2f27 at0009 = ╱50╱P╱ // 0x2f1b @0x9
0x2f12…2f27 at000a = ╱45╱E╱ // 0x2f1c @0xa
0x2f12…2f27 at000b = ╱20╱…╱ // 0x2f1d @0xb
0x2f12…2f27 at000c = ╱56╱V╱ // 0x2f1e @0xc
0x2f12…2f27 at000d = ╱41╱A╱ // 0x2f1f @0xd
0x2f12…2f27 at000e = ╱52╱R╱ // 0x2f20 @0xe
0x2f12…2f27 at000f = ╱49╱I╱ // 0x2f21 @0xf
0x2f12…2f27 at0010 = ╱41╱A╱ // 0x2f22 @0x10
0x2f12…2f27 at0011 = ╱42╱B╱ // 0x2f23 @0x11
0x2f12…2f27 at0012 = ╱4c╱L╱ // 0x2f24 @0x12
0x2f12…2f27 at0013 = ╱45╱E╱ // 0x2f25 @0x13
0x2f12…2f27 at0014 = EOL // 0x2f26 @0x14
0x2f12…2f27 }
0x2f27…2f3e 9a6c 00192 REAL X ( 20 ) , R ( 40 )
0x2f27…2f3e LineComal80 {
0x2f27…2f3e ptr = 0x9a6c // 0x2f27 @0x0
0x2f27…2f3e lno = 0x00c0 // 0x2f29 @0x2
0x2f27…2f3e at0004 = ╱b3╱ REAL ╱ // 0x2f2b @0x4
0x2f27…2f3e at0005 = ╱58╱X╱ // 0x2f2c @0x5
0x2f27…2f3e at0006 = ╱ed╱ ( ╱ // 0x2f2d @0x6
0x2f27…2f3e at0007 = ╱32╱2╱ // 0x2f2e @0x7
0x2f27…2f3e at0008 = ╱30╱0╱ // 0x2f2f @0x8
0x2f27…2f3e at0009 = ╱f21400╱ // 0x2f30 @0x9
0x2f27…2f3e at000c = ╱ee╱ ) ╱ // 0x2f33 @0xc
0x2f27…2f3e at000d = ╱ec╱ , ╱ // 0x2f34 @0xd
0x2f27…2f3e at000e = ╱52╱R╱ // 0x2f35 @0xe
0x2f27…2f3e at000f = ╱ed╱ ( ╱ // 0x2f36 @0xf
0x2f27…2f3e at0010 = ╱34╱4╱ // 0x2f37 @0x10
0x2f27…2f3e at0011 = ╱30╱0╱ // 0x2f38 @0x11
0x2f27…2f3e at0012 = ╱f22800╱ // 0x2f39 @0x12
0x2f27…2f3e at0015 = ╱ee╱ ) ╱ // 0x2f3c @0x15
0x2f27…2f3e at0016 = EOL // 0x2f3d @0x16
0x2f27…2f3e }
0x2f3e…2f63 1f1f 07967 ╱1f╱ ╱1f╱ ARAPSYS:2PD ╱00╱ ╱00╱ ╱11╱ ╱00╱ R ╱00╱ ╱00╱ ╱01╱ ╱00╱ g OR SELECT OUTPUT ╱00╱ EXEC OPT[L
0x2f3e…2f63 LineComal80 {
0x2f3e…2f63 ptr = 0x1f1f // 0x2f3e @0x0
0x2f3e…2f63 lno = 0x1f1f // 0x2f40 @0x2
0x2f3e…2f63 at0004 = ╱1f╱ // 0x2f42 @0x4
0x2f3e…2f63 at0005 = ╱1f╱ // 0x2f43 @0x5
0x2f3e…2f63 at0006 = ╱41╱A╱ // 0x2f44 @0x6
0x2f3e…2f63 at0007 = ╱52╱R╱ // 0x2f45 @0x7
0x2f3e…2f63 at0008 = ╱41╱A╱ // 0x2f46 @0x8
0x2f3e…2f63 at0009 = ╱50╱P╱ // 0x2f47 @0x9
0x2f3e…2f63 at000a = ╱53╱S╱ // 0x2f48 @0xa
0x2f3e…2f63 at000b = ╱59╱Y╱ // 0x2f49 @0xb
0x2f3e…2f63 at000c = ╱53╱S╱ // 0x2f4a @0xc
0x2f3e…2f63 at000d = ╱3a╱:╱ // 0x2f4b @0xd
0x2f3e…2f63 at000e = ╱32╱2╱ // 0x2f4c @0xe
0x2f3e…2f63 at000f = ╱50╱P╱ // 0x2f4d @0xf
0x2f3e…2f63 at0010 = ╱44╱D╱ // 0x2f4e @0x10
0x2f3e…2f63 at0011 = ╱00╱ // 0x2f4f @0x11
0x2f3e…2f63 at0012 = ╱00╱ // 0x2f50 @0x12
0x2f3e…2f63 at0013 = ╱11╱ // 0x2f51 @0x13
0x2f3e…2f63 at0014 = ╱00╱ // 0x2f52 @0x14
0x2f3e…2f63 at0015 = ╱52╱R╱ // 0x2f53 @0x15
0x2f3e…2f63 at0016 = ╱00╱ // 0x2f54 @0x16
0x2f3e…2f63 at0017 = ╱00╱ // 0x2f55 @0x17
0x2f3e…2f63 at0018 = ╱01╱ // 0x2f56 @0x18
0x2f3e…2f63 at0019 = ╱00╱ // 0x2f57 @0x19
0x2f3e…2f63 at001a = ╱67╱g╱ // 0x2f58 @0x1a
0x2f3e…2f63 at001b = ╱d8╱ OR ╱ // 0x2f59 @0x1b
0x2f3e…2f63 at001c = ╱96╱ SELECT OUTPUT ╱ // 0x2f5a @0x1c
0x2f3e…2f63 at001d = ╱00╱ // 0x2f5b @0x1d
0x2f3e…2f63 at001e = ╱9d╱ EXEC ╱ // 0x2f5c @0x1e
0x2f3e…2f63 at001f = ╱4f╱O╱ // 0x2f5d @0x1f
0x2f3e…2f63 at0020 = ╱50╱P╱ // 0x2f5e @0x20
0x2f3e…2f63 at0021 = ╱54╱T╱ // 0x2f5f @0x21
0x2f3e…2f63 at0022 = ╱5b╱[╱ // 0x2f60 @0x22
0x2f3e…2f63 at0023 = ╱4c╱L╱ // 0x2f61 @0x23
0x2f3e…2f63 at0024 = EOL // 0x2f62 @0x24
0x2f3e…2f63 }
0x2f63…2f7d c56b 01951 LET IDXPOS := FIND_KTO ( KN $ )
0x2f63…2f7d LineComal80 {
0x2f63…2f7d ptr = 0xc56b // 0x2f63 @0x0
0x2f63…2f7d lno = 0x079f // 0x2f65 @0x2
0x2f63…2f7d at0004 = ╱86╱ LET ╱ // 0x2f67 @0x4
0x2f63…2f7d at0005 = ╱49╱I╱ // 0x2f68 @0x5
0x2f63…2f7d at0006 = ╱44╱D╱ // 0x2f69 @0x6
0x2f63…2f7d at0007 = ╱58╱X╱ // 0x2f6a @0x7
0x2f63…2f7d at0008 = ╱50╱P╱ // 0x2f6b @0x8
0x2f63…2f7d at0009 = ╱4f╱O╱ // 0x2f6c @0x9
0x2f63…2f7d at000a = ╱53╱S╱ // 0x2f6d @0xa
0x2f63…2f7d at000b = ╱f0╱ := ╱ // 0x2f6e @0xb
0x2f63…2f7d at000c = ╱46╱F╱ // 0x2f6f @0xc
0x2f63…2f7d at000d = ╱49╱I╱ // 0x2f70 @0xd
0x2f63…2f7d at000e = ╱4e╱N╱ // 0x2f71 @0xe
0x2f63…2f7d at000f = ╱44╱D╱ // 0x2f72 @0xf
0x2f63…2f7d at0010 = ╱5f╱_╱ // 0x2f73 @0x10
0x2f63…2f7d at0011 = ╱4b╱K╱ // 0x2f74 @0x11
0x2f63…2f7d at0012 = ╱54╱T╱ // 0x2f75 @0x12
0x2f63…2f7d at0013 = ╱4f╱O╱ // 0x2f76 @0x13
0x2f63…2f7d at0014 = ╱ed╱ ( ╱ // 0x2f77 @0x14
0x2f63…2f7d at0015 = ╱4b╱K╱ // 0x2f78 @0x15
0x2f63…2f7d at0016 = ╱4e╱N╱ // 0x2f79 @0x16
0x2f63…2f7d at0017 = ╱ef╱ $ ╱ // 0x2f7a @0x17
0x2f63…2f7d at0018 = ╱ee╱ ) ╱ // 0x2f7b @0x18
0x2f63…2f7d at0019 = EOL // 0x2f7c @0x19
0x2f63…2f7d }
0x2f7d…2f9e c58c 01952 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
0x2f7d…2f9e LineComal80 {
0x2f7d…2f9e ptr = 0xc58c // 0x2f7d @0x0
0x2f7d…2f9e lno = 0x07a0 // 0x2f7f @0x2
0x2f7d…2f9e at0004 = ╱a9╱ GET ╱ // 0x2f81 @0x4
0x2f7d…2f9e at0005 = ╱4b╱K╱ // 0x2f82 @0x5
0x2f7d…2f9e at0006 = ╱54╱T╱ // 0x2f83 @0x6
0x2f7d…2f9e at0007 = ╱4f╱O╱ // 0x2f84 @0x7
0x2f7d…2f9e at0008 = ╱49╱I╱ // 0x2f85 @0x8
0x2f7d…2f9e at0009 = ╱44╱D╱ // 0x2f86 @0x9
0x2f7d…2f9e at000a = ╱58╱X╱ // 0x2f87 @0xa
0x2f7d…2f9e at000b = ╱ef╱ $ ╱ // 0x2f88 @0xb
0x2f7d…2f9e at000c = ╱ec╱ , ╱ // 0x2f89 @0xc
0x2f7d…2f9e at000d = ╱49╱I╱ // 0x2f8a @0xd
0x2f7d…2f9e at000e = ╱44╱D╱ // 0x2f8b @0xe
0x2f7d…2f9e at000f = ╱58╱X╱ // 0x2f8c @0xf
0x2f7d…2f9e at0010 = ╱50╱P╱ // 0x2f8d @0x10
0x2f7d…2f9e at0011 = ╱4f╱O╱ // 0x2f8e @0x11
0x2f7d…2f9e at0012 = ╱53╱S╱ // 0x2f8f @0x12
0x2f7d…2f9e at0013 = ╱f1╱ : ╱ // 0x2f90 @0x13
0x2f7d…2f9e at0014 = ╱4b╱K╱ // 0x2f91 @0x14
0x2f7d…2f9e at0015 = ╱54╱T╱ // 0x2f92 @0x15
0x2f7d…2f9e at0016 = ╱4f╱O╱ // 0x2f93 @0x16
0x2f7d…2f9e at0017 = ╱4e╱N╱ // 0x2f94 @0x17
0x2f7d…2f9e at0018 = ╱52╱R╱ // 0x2f95 @0x18
0x2f7d…2f9e at0019 = ╱ef╱ $ ╱ // 0x2f96 @0x19
0x2f7d…2f9e at001a = ╱ec╱ , ╱ // 0x2f97 @0x1a
0x2f7d…2f9e at001b = ╱52╱R╱ // 0x2f98 @0x1b
0x2f7d…2f9e at001c = ╱45╱E╱ // 0x2f99 @0x1c
0x2f7d…2f9e at001d = ╱43╱C╱ // 0x2f9a @0x1d
0x2f7d…2f9e at001e = ╱4e╱N╱ // 0x2f9b @0x1e
0x2f7d…2f9e at001f = ╱52╱R╱ // 0x2f9c @0x1f
0x2f7d…2f9e at0020 = EOL // 0x2f9d @0x20
0x2f7d…2f9e }
0x2f9e…2fbd c5ab 01953 WHILE KN $ = KTONR $ ( 1 : ╱cb╱ ( KN $ ) ) DO
0x2f9e…2fbd LineComal80 {
0x2f9e…2fbd ptr = 0xc5ab // 0x2f9e @0x0
0x2f9e…2fbd lno = 0x07a1 // 0x2fa0 @0x2
0x2f9e…2fbd at0004 = ╱9300╱ WHILE ╱ // 0x2fa2 @0x4
0x2f9e…2fbd at0006 = ╱4b╱K╱ // 0x2fa4 @0x6
0x2f9e…2fbd at0007 = ╱4e╱N╱ // 0x2fa5 @0x7
0x2f9e…2fbd at0008 = ╱ef╱ $ ╱ // 0x2fa6 @0x8
0x2f9e…2fbd at0009 = ╱df╱ = ╱ // 0x2fa7 @0x9
0x2f9e…2fbd at000a = ╱4b╱K╱ // 0x2fa8 @0xa
0x2f9e…2fbd at000b = ╱54╱T╱ // 0x2fa9 @0xb
0x2f9e…2fbd at000c = ╱4f╱O╱ // 0x2faa @0xc
0x2f9e…2fbd at000d = ╱4e╱N╱ // 0x2fab @0xd
0x2f9e…2fbd at000e = ╱52╱R╱ // 0x2fac @0xe
0x2f9e…2fbd at000f = ╱ef╱ $ ╱ // 0x2fad @0xf
0x2f9e…2fbd at0010 = ╱ed╱ ( ╱ // 0x2fae @0x10
0x2f9e…2fbd at0011 = ╱31╱1╱ // 0x2faf @0x11
0x2f9e…2fbd at0012 = ╱f20100╱ // 0x2fb0 @0x12
0x2f9e…2fbd at0015 = ╱f1╱ : ╱ // 0x2fb3 @0x15
0x2f9e…2fbd at0016 = ╱cb╱ // 0x2fb4 @0x16
0x2f9e…2fbd at0017 = ╱ed╱ ( ╱ // 0x2fb5 @0x17
0x2f9e…2fbd at0018 = ╱4b╱K╱ // 0x2fb6 @0x18
0x2f9e…2fbd at0019 = ╱4e╱N╱ // 0x2fb7 @0x19
0x2f9e…2fbd at001a = ╱ef╱ $ ╱ // 0x2fb8 @0x1a
0x2f9e…2fbd at001b = ╱ee╱ ) ╱ // 0x2fb9 @0x1b
0x2f9e…2fbd at001c = ╱ee╱ ) ╱ // 0x2fba @0x1c
0x2f9e…2fbd at001d = ╱bb╱ DO ╱ // 0x2fbb @0x1d
0x2f9e…2fbd at001e = EOL // 0x2fbc @0x1e
0x2f9e…2fbd }
0x2fbd…2fe8 c5d6 01954 GET DRIFT\ $ , RECNR : DRIFT ( 1 ) , DRIFT ( 2 )
0x2fbd…2fe8 LineComal80 {
0x2fbd…2fe8 ptr = 0xc5d6 // 0x2fbd @0x0
0x2fbd…2fe8 lno = 0x07a2 // 0x2fbf @0x2
0x2fbd…2fe8 at0004 = ╱a9╱ GET ╱ // 0x2fc1 @0x4
0x2fbd…2fe8 at0005 = ╱44╱D╱ // 0x2fc2 @0x5
0x2fbd…2fe8 at0006 = ╱52╱R╱ // 0x2fc3 @0x6
0x2fbd…2fe8 at0007 = ╱49╱I╱ // 0x2fc4 @0x7
0x2fbd…2fe8 at0008 = ╱46╱F╱ // 0x2fc5 @0x8
0x2fbd…2fe8 at0009 = ╱54╱T╱ // 0x2fc6 @0x9
0x2fbd…2fe8 at000a = ╱5c╱\╱ // 0x2fc7 @0xa
0x2fbd…2fe8 at000b = ╱ef╱ $ ╱ // 0x2fc8 @0xb
0x2fbd…2fe8 at000c = ╱ec╱ , ╱ // 0x2fc9 @0xc
0x2fbd…2fe8 at000d = ╱52╱R╱ // 0x2fca @0xd
0x2fbd…2fe8 at000e = ╱45╱E╱ // 0x2fcb @0xe
0x2fbd…2fe8 at000f = ╱43╱C╱ // 0x2fcc @0xf
0x2fbd…2fe8 at0010 = ╱4e╱N╱ // 0x2fcd @0x10
0x2fbd…2fe8 at0011 = ╱52╱R╱ // 0x2fce @0x11
0x2fbd…2fe8 at0012 = ╱f1╱ : ╱ // 0x2fcf @0x12
0x2fbd…2fe8 at0013 = ╱44╱D╱ // 0x2fd0 @0x13
0x2fbd…2fe8 at0014 = ╱52╱R╱ // 0x2fd1 @0x14
0x2fbd…2fe8 at0015 = ╱49╱I╱ // 0x2fd2 @0x15
0x2fbd…2fe8 at0016 = ╱46╱F╱ // 0x2fd3 @0x16
0x2fbd…2fe8 at0017 = ╱54╱T╱ // 0x2fd4 @0x17
0x2fbd…2fe8 at0018 = ╱ed╱ ( ╱ // 0x2fd5 @0x18
0x2fbd…2fe8 at0019 = ╱31╱1╱ // 0x2fd6 @0x19
0x2fbd…2fe8 at001a = ╱f20100╱ // 0x2fd7 @0x1a
0x2fbd…2fe8 at001d = ╱ee╱ ) ╱ // 0x2fda @0x1d
0x2fbd…2fe8 at001e = ╱ec╱ , ╱ // 0x2fdb @0x1e
0x2fbd…2fe8 at001f = ╱44╱D╱ // 0x2fdc @0x1f
0x2fbd…2fe8 at0020 = ╱52╱R╱ // 0x2fdd @0x20
0x2fbd…2fe8 at0021 = ╱49╱I╱ // 0x2fde @0x21
0x2fbd…2fe8 at0022 = ╱46╱F╱ // 0x2fdf @0x22
0x2fbd…2fe8 at0023 = ╱54╱T╱ // 0x2fe0 @0x23
0x2fbd…2fe8 at0024 = ╱ed╱ ( ╱ // 0x2fe1 @0x24
0x2fbd…2fe8 at0025 = ╱32╱2╱ // 0x2fe2 @0x25
0x2fbd…2fe8 at0026 = ╱f20200╱ // 0x2fe3 @0x26
0x2fbd…2fe8 at0029 = ╱ee╱ ) ╱ // 0x2fe6 @0x29
0x2fbd…2fe8 at002a = EOL // 0x2fe7 @0x2a
0x2fbd…2fe8 }
0x2fe8…3003 c5f1 01955 LET X ( P ) := X ( P ) + DRIFT ( 2 )
0x2fe8…3003 LineComal80 {
0x2fe8…3003 ptr = 0xc5f1 // 0x2fe8 @0x0
0x2fe8…3003 lno = 0x07a3 // 0x2fea @0x2
0x2fe8…3003 at0004 = ╱86╱ LET ╱ // 0x2fec @0x4
0x2fe8…3003 at0005 = ╱58╱X╱ // 0x2fed @0x5
0x2fe8…3003 at0006 = ╱ed╱ ( ╱ // 0x2fee @0x6
0x2fe8…3003 at0007 = ╱50╱P╱ // 0x2fef @0x7
0x2fe8…3003 at0008 = ╱ee╱ ) ╱ // 0x2ff0 @0x8
0x2fe8…3003 at0009 = ╱f0╱ := ╱ // 0x2ff1 @0x9
0x2fe8…3003 at000a = ╱58╱X╱ // 0x2ff2 @0xa
0x2fe8…3003 at000b = ╱ed╱ ( ╱ // 0x2ff3 @0xb
0x2fe8…3003 at000c = ╱50╱P╱ // 0x2ff4 @0xc
0x2fe8…3003 at000d = ╱ee╱ ) ╱ // 0x2ff5 @0xd
0x2fe8…3003 at000e = ╱e5╱ + ╱ // 0x2ff6 @0xe
0x2fe8…3003 at000f = ╱44╱D╱ // 0x2ff7 @0xf
0x2fe8…3003 at0010 = ╱52╱R╱ // 0x2ff8 @0x10
0x2fe8…3003 at0011 = ╱49╱I╱ // 0x2ff9 @0x11
0x2fe8…3003 at0012 = ╱46╱F╱ // 0x2ffa @0x12
0x2fe8…3003 at0013 = ╱54╱T╱ // 0x2ffb @0x13
0x2fe8…3003 at0014 = ╱ed╱ ( ╱ // 0x2ffc @0x14
0x2fe8…3003 at0015 = ╱32╱2╱ // 0x2ffd @0x15
0x2fe8…3003 at0016 = ╱f20200╱ // 0x2ffe @0x16
0x2fe8…3003 at0019 = ╱ee╱ ) ╱ // 0x3001 @0x19
0x2fe8…3003 at001a = EOL // 0x3002 @0x1a
0x2fe8…3003 }
0x3003…301b c609 01956 LET IDXPOS := IDXPOS + 1
0x3003…301b LineComal80 {
0x3003…301b ptr = 0xc609 // 0x3003 @0x0
0x3003…301b lno = 0x07a4 // 0x3005 @0x2
0x3003…301b at0004 = ╱86╱ LET ╱ // 0x3007 @0x4
0x3003…301b at0005 = ╱49╱I╱ // 0x3008 @0x5
0x3003…301b at0006 = ╱44╱D╱ // 0x3009 @0x6
0x3003…301b at0007 = ╱58╱X╱ // 0x300a @0x7
0x3003…301b at0008 = ╱50╱P╱ // 0x300b @0x8
0x3003…301b at0009 = ╱4f╱O╱ // 0x300c @0x9
0x3003…301b at000a = ╱53╱S╱ // 0x300d @0xa
0x3003…301b at000b = ╱f0╱ := ╱ // 0x300e @0xb
0x3003…301b at000c = ╱49╱I╱ // 0x300f @0xc
0x3003…301b at000d = ╱44╱D╱ // 0x3010 @0xd
0x3003…301b at000e = ╱58╱X╱ // 0x3011 @0xe
0x3003…301b at000f = ╱50╱P╱ // 0x3012 @0xf
0x3003…301b at0010 = ╱4f╱O╱ // 0x3013 @0x10
0x3003…301b at0011 = ╱53╱S╱ // 0x3014 @0x11
0x3003…301b at0012 = ╱e5╱ + ╱ // 0x3015 @0x12
0x3003…301b at0013 = ╱31╱1╱ // 0x3016 @0x13
0x3003…301b at0014 = ╱f20100╱ // 0x3017 @0x14
0x3003…301b at0017 = EOL // 0x301a @0x17
0x3003…301b }
0x301b…3033 c621 01957 IF IDXPOS > I_H\JREC THEN EXIT
0x301b…3033 LineComal80 {
0x301b…3033 ptr = 0xc621 // 0x301b @0x0
0x301b…3033 lno = 0x07a5 // 0x301d @0x2
0x301b…3033 at0004 = ╱8200╱ IF ╱ // 0x301f @0x4
0x301b…3033 at0006 = ╱49╱I╱ // 0x3021 @0x6
0x301b…3033 at0007 = ╱44╱D╱ // 0x3022 @0x7
0x301b…3033 at0008 = ╱58╱X╱ // 0x3023 @0x8
0x301b…3033 at0009 = ╱50╱P╱ // 0x3024 @0x9
0x301b…3033 at000a = ╱4f╱O╱ // 0x3025 @0xa
0x301b…3033 at000b = ╱53╱S╱ // 0x3026 @0xb
0x301b…3033 at000c = ╱e1╱ > ╱ // 0x3027 @0xc
0x301b…3033 at000d = ╱49╱I╱ // 0x3028 @0xd
0x301b…3033 at000e = ╱5f╱_╱ // 0x3029 @0xe
0x301b…3033 at000f = ╱48╱H╱ // 0x302a @0xf
0x301b…3033 at0010 = ╱5c╱\╱ // 0x302b @0x10
0x301b…3033 at0011 = ╱4a╱J╱ // 0x302c @0x11
0x301b…3033 at0012 = ╱52╱R╱ // 0x302d @0x12
0x301b…3033 at0013 = ╱45╱E╱ // 0x302e @0x13
0x301b…3033 at0014 = ╱43╱C╱ // 0x302f @0x14
0x301b…3033 at0015 = ╱b5╱ THEN ╱ // 0x3030 @0x15
0x301b…3033 at0016 = ╱99╱ EXIT ╱ // 0x3031 @0x16
0x301b…3033 at0017 = EOL // 0x3032 @0x17
0x301b…3033 }
0x3033…3054 c642 01958 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
0x3033…3054 LineComal80 {
0x3033…3054 ptr = 0xc642 // 0x3033 @0x0
0x3033…3054 lno = 0x07a6 // 0x3035 @0x2
0x3033…3054 at0004 = ╱a9╱ GET ╱ // 0x3037 @0x4
0x3033…3054 at0005 = ╱4b╱K╱ // 0x3038 @0x5
0x3033…3054 at0006 = ╱54╱T╱ // 0x3039 @0x6
0x3033…3054 at0007 = ╱4f╱O╱ // 0x303a @0x7
0x3033…3054 at0008 = ╱49╱I╱ // 0x303b @0x8
0x3033…3054 at0009 = ╱44╱D╱ // 0x303c @0x9
0x3033…3054 at000a = ╱58╱X╱ // 0x303d @0xa
0x3033…3054 at000b = ╱ef╱ $ ╱ // 0x303e @0xb
0x3033…3054 at000c = ╱ec╱ , ╱ // 0x303f @0xc
0x3033…3054 at000d = ╱49╱I╱ // 0x3040 @0xd
0x3033…3054 at000e = ╱44╱D╱ // 0x3041 @0xe
0x3033…3054 at000f = ╱58╱X╱ // 0x3042 @0xf
0x3033…3054 at0010 = ╱50╱P╱ // 0x3043 @0x10
0x3033…3054 at0011 = ╱4f╱O╱ // 0x3044 @0x11
0x3033…3054 at0012 = ╱53╱S╱ // 0x3045 @0x12
0x3033…3054 at0013 = ╱f1╱ : ╱ // 0x3046 @0x13
0x3033…3054 at0014 = ╱4b╱K╱ // 0x3047 @0x14
0x3033…3054 at0015 = ╱54╱T╱ // 0x3048 @0x15
0x3033…3054 at0016 = ╱4f╱O╱ // 0x3049 @0x16
0x3033…3054 at0017 = ╱4e╱N╱ // 0x304a @0x17
0x3033…3054 at0018 = ╱52╱R╱ // 0x304b @0x18
0x3033…3054 at0019 = ╱ef╱ $ ╱ // 0x304c @0x19
0x3033…3054 at001a = ╱ec╱ , ╱ // 0x304d @0x1a
0x3033…3054 at001b = ╱52╱R╱ // 0x304e @0x1b
0x3033…3054 at001c = ╱45╱E╱ // 0x304f @0x1c
0x3033…3054 at001d = ╱43╱C╱ // 0x3050 @0x1d
0x3033…3054 at001e = ╱4e╱N╱ // 0x3051 @0x1e
0x3033…3054 at001f = ╱52╱R╱ // 0x3052 @0x1f
0x3033…3054 at0020 = EOL // 0x3053 @0x20
0x3033…3054 }
0x3054…305a c3db 01959 ENDWHILE
0x3054…305a LineComal80 {
0x3054…305a ptr = 0xc3db // 0x3054 @0x0
0x3054…305a lno = 0x07a7 // 0x3056 @0x2
0x3054…305a at0004 = ╱94╱ ENDWHILE ╱ // 0x3058 @0x4
0x3054…305a at0005 = EOL // 0x3059 @0x5
0x3054…305a }
0x305a…3068 c656 01650 ENDPROC PRINTREL
0x305a…3068 LineComal80 {
0x305a…3068 ptr = 0xc656 // 0x305a @0x0
0x305a…3068 lno = 0x0672 // 0x305c @0x2
0x305a…3068 at0004 = ╱9f╱ ENDPROC ╱ // 0x305e @0x4
0x305a…3068 at0005 = ╱50╱P╱ // 0x305f @0x5
0x305a…3068 at0006 = ╱52╱R╱ // 0x3060 @0x6
0x305a…3068 at0007 = ╱49╱I╱ // 0x3061 @0x7
0x305a…3068 at0008 = ╱4e╱N╱ // 0x3062 @0x8
0x305a…3068 at0009 = ╱54╱T╱ // 0x3063 @0x9
0x305a…3068 at000a = ╱52╱R╱ // 0x3064 @0xa
0x305a…3068 at000b = ╱45╱E╱ // 0x3065 @0xb
0x305a…3068 at000c = ╱4c╱L╱ // 0x3066 @0xc
0x305a…3068 at000d = EOL // 0x3067 @0xd
0x305a…3068 }
0x3068…308d c67b 01660 // DIM…S$…OF…80,KTONR$…OF…10,X(20)
0x3068…308d LineComal80 {
0x3068…308d ptr = 0xc67b // 0x3068 @0x0
0x3068…308d lno = 0x067c // 0x306a @0x2
0x3068…308d at0004 = ╱89╱ // ╱ // 0x306c @0x4
0x3068…308d at0005 = ╱44╱D╱ // 0x306d @0x5
0x3068…308d at0006 = ╱49╱I╱ // 0x306e @0x6
0x3068…308d at0007 = ╱4d╱M╱ // 0x306f @0x7
0x3068…308d at0008 = ╱20╱…╱ // 0x3070 @0x8
0x3068…308d at0009 = ╱53╱S╱ // 0x3071 @0x9
0x3068…308d at000a = ╱24╱$╱ // 0x3072 @0xa
0x3068…308d at000b = ╱20╱…╱ // 0x3073 @0xb
0x3068…308d at000c = ╱4f╱O╱ // 0x3074 @0xc
0x3068…308d at000d = ╱46╱F╱ // 0x3075 @0xd
0x3068…308d at000e = ╱20╱…╱ // 0x3076 @0xe
0x3068…308d at000f = ╱38╱8╱ // 0x3077 @0xf
0x3068…308d at0010 = ╱30╱0╱ // 0x3078 @0x10
0x3068…308d at0011 = ╱2c╱,╱ // 0x3079 @0x11
0x3068…308d at0012 = ╱4b╱K╱ // 0x307a @0x12
0x3068…308d at0013 = ╱54╱T╱ // 0x307b @0x13
0x3068…308d at0014 = ╱4f╱O╱ // 0x307c @0x14
0x3068…308d at0015 = ╱4e╱N╱ // 0x307d @0x15
0x3068…308d at0016 = ╱52╱R╱ // 0x307e @0x16
0x3068…308d at0017 = ╱24╱$╱ // 0x307f @0x17
0x3068…308d at0018 = ╱20╱…╱ // 0x3080 @0x18
0x3068…308d at0019 = ╱4f╱O╱ // 0x3081 @0x19
0x3068…308d at001a = ╱46╱F╱ // 0x3082 @0x1a
0x3068…308d at001b = ╱20╱…╱ // 0x3083 @0x1b
0x3068…308d at001c = ╱31╱1╱ // 0x3084 @0x1c
0x3068…308d at001d = ╱30╱0╱ // 0x3085 @0x1d
0x3068…308d at001e = ╱2c╱,╱ // 0x3086 @0x1e
0x3068…308d at001f = ╱58╱X╱ // 0x3087 @0x1f
0x3068…308d at0020 = ╱28╱(╱ // 0x3088 @0x20
0x3068…308d at0021 = ╱32╱2╱ // 0x3089 @0x21
0x3068…308d at0022 = ╱30╱0╱ // 0x308a @0x22
0x3068…308d at0023 = ╱29╱)╱ // 0x308b @0x23
0x3068…308d at0024 = EOL // 0x308c @0x24
0x3068…308d }
0x308d…309d c68b 01670 PROC OPDEL ( A $ )
0x308d…309d LineComal80 {
0x308d…309d ptr = 0xc68b // 0x308d @0x0
0x308d…309d lno = 0x0686 // 0x308f @0x2
0x308d…309d at0004 = ╱9e18╱ PROC ╱ // 0x3091 @0x4
0x308d…309d at0006 = ╱4f╱O╱ // 0x3093 @0x6
0x308d…309d at0007 = ╱50╱P╱ // 0x3094 @0x7
0x308d…309d at0008 = ╱44╱D╱ // 0x3095 @0x8
0x308d…309d at0009 = ╱45╱E╱ // 0x3096 @0x9
0x308d…309d at000a = ╱4c╱L╱ // 0x3097 @0xa
0x308d…309d at000b = ╱ed╱ ( ╱ // 0x3098 @0xb
0x308d…309d at000c = ╱41╱A╱ // 0x3099 @0xc
0x308d…309d at000d = ╱ef╱ $ ╱ // 0x309a @0xd
0x308d…309d at000e = ╱ee╱ ) ╱ // 0x309b @0xe
0x308d…309d at000f = EOL // 0x309c @0xf
0x308d…309d }
0x309d…30ae c69c 01680 LET S_KTONR $ := ""
0x309d…30ae LineComal80 {
0x309d…30ae ptr = 0xc69c // 0x309d @0x0
0x309d…30ae lno = 0x0690 // 0x309f @0x2
0x309d…30ae at0004 = ╱86╱ LET ╱ // 0x30a1 @0x4
0x309d…30ae at0005 = ╱53╱S╱ // 0x30a2 @0x5
0x309d…30ae at0006 = ╱5f╱_╱ // 0x30a3 @0x6
0x309d…30ae at0007 = ╱4b╱K╱ // 0x30a4 @0x7
0x309d…30ae at0008 = ╱54╱T╱ // 0x30a5 @0x8
0x309d…30ae at0009 = ╱4f╱O╱ // 0x30a6 @0x9
0x309d…30ae at000a = ╱4e╱N╱ // 0x30a7 @0xa
0x309d…30ae at000b = ╱52╱R╱ // 0x30a8 @0xb
0x309d…30ae at000c = ╱ef╱ $ ╱ // 0x30a9 @0xc
0x309d…30ae at000d = ╱f0╱ := ╱ // 0x30aa @0xd
0x309d…30ae at000e = ╱22╱"╱ // 0x30ab @0xe
0x309d…30ae at000f = ╱22╱"╱ // 0x30ac @0xf
0x309d…30ae at0010 = EOL // 0x30ad @0x10
0x309d…30ae }
0x30ae…30ba c6a8 01690 LET I := 1
0x30ae…30ba LineComal80 {
0x30ae…30ba ptr = 0xc6a8 // 0x30ae @0x0
0x30ae…30ba lno = 0x069a // 0x30b0 @0x2
0x30ae…30ba at0004 = ╱86╱ LET ╱ // 0x30b2 @0x4
0x30ae…30ba at0005 = ╱49╱I╱ // 0x30b3 @0x5
0x30ae…30ba at0006 = ╱f0╱ := ╱ // 0x30b4 @0x6
0x30ae…30ba at0007 = ╱31╱1╱ // 0x30b5 @0x7
0x30ae…30ba at0008 = ╱f20100╱ // 0x30b6 @0x8
0x30ae…30ba at000b = EOL // 0x30b9 @0xb
0x30ae…30ba }
0x30ba…30cb (162,) c6b9 01700 WHILE A $ ( I ) >< "*" DO
0x30ba…30cb LineComal80 {
0x30ba…30cb ptr = 0xc6b9 // 0x30ba @0x0
0x30ba…30cb lno = 0x06a4 // 0x30bc @0x2
0x30ba…30cb at0004 = ╱9319╱ WHILE ╱ // 0x30be @0x4
0x30ba…30cb at0006 = ╱41╱A╱ // 0x30c0 @0x6
0x30ba…30cb at0007 = ╱ef╱ $ ╱ // 0x30c1 @0x7
0x30ba…30cb at0008 = ╱ed╱ ( ╱ // 0x30c2 @0x8
0x30ba…30cb at0009 = ╱49╱I╱ // 0x30c3 @0x9
0x30ba…30cb at000a = ╱ee╱ ) ╱ // 0x30c4 @0xa
0x30ba…30cb at000b = ╱e4╱ >< ╱ // 0x30c5 @0xb
0x30ba…30cb at000c = ╱22╱"╱ // 0x30c6 @0xc
0x30ba…30cb at000d = ╱2a╱*╱ // 0x30c7 @0xd
0x30ba…30cb at000e = ╱22╱"╱ // 0x30c8 @0xe
0x30ba…30cb at000f = ╱bb╱ DO ╱ // 0x30c9 @0xf
0x30ba…30cb at0010 = EOL // 0x30ca @0x10
0x30ba…30cb }
0x30cb…30f1 c6df 01710 IF A $ ( I ) = "/" THEN LET S_KTONR $ := "" ; I := I + 1
0x30cb…30f1 LineComal80 {
0x30cb…30f1 ptr = 0xc6df // 0x30cb @0x0
0x30cb…30f1 lno = 0x06ae // 0x30cd @0x2
0x30cb…30f1 at0004 = ╱8200╱ IF ╱ // 0x30cf @0x4
0x30cb…30f1 at0006 = ╱41╱A╱ // 0x30d1 @0x6
0x30cb…30f1 at0007 = ╱ef╱ $ ╱ // 0x30d2 @0x7
0x30cb…30f1 at0008 = ╱ed╱ ( ╱ // 0x30d3 @0x8
0x30cb…30f1 at0009 = ╱49╱I╱ // 0x30d4 @0x9
0x30cb…30f1 at000a = ╱ee╱ ) ╱ // 0x30d5 @0xa
0x30cb…30f1 at000b = ╱df╱ = ╱ // 0x30d6 @0xb
0x30cb…30f1 at000c = ╱22╱"╱ // 0x30d7 @0xc
0x30cb…30f1 at000d = ╱2f╱/╱ // 0x30d8 @0xd
0x30cb…30f1 at000e = ╱22╱"╱ // 0x30d9 @0xe
0x30cb…30f1 at000f = ╱b5╱ THEN ╱ // 0x30da @0xf
0x30cb…30f1 at0010 = ╱86╱ LET ╱ // 0x30db @0x10
0x30cb…30f1 at0011 = ╱53╱S╱ // 0x30dc @0x11
0x30cb…30f1 at0012 = ╱5f╱_╱ // 0x30dd @0x12
0x30cb…30f1 at0013 = ╱4b╱K╱ // 0x30de @0x13
0x30cb…30f1 at0014 = ╱54╱T╱ // 0x30df @0x14
0x30cb…30f1 at0015 = ╱4f╱O╱ // 0x30e0 @0x15
0x30cb…30f1 at0016 = ╱4e╱N╱ // 0x30e1 @0x16
0x30cb…30f1 at0017 = ╱52╱R╱ // 0x30e2 @0x17
0x30cb…30f1 at0018 = ╱ef╱ $ ╱ // 0x30e3 @0x18
0x30cb…30f1 at0019 = ╱f0╱ := ╱ // 0x30e4 @0x19
0x30cb…30f1 at001a = ╱22╱"╱ // 0x30e5 @0x1a
0x30cb…30f1 at001b = ╱22╱"╱ // 0x30e6 @0x1b
0x30cb…30f1 at001c = ╱ea╱ ; ╱ // 0x30e7 @0x1c
0x30cb…30f1 at001d = ╱49╱I╱ // 0x30e8 @0x1d
0x30cb…30f1 at001e = ╱f0╱ := ╱ // 0x30e9 @0x1e
0x30cb…30f1 at001f = ╱49╱I╱ // 0x30ea @0x1f
0x30cb…30f1 at0020 = ╱e5╱ + ╱ // 0x30eb @0x20
0x30cb…30f1 at0021 = ╱31╱1╱ // 0x30ec @0x21
0x30cb…30f1 at0022 = ╱f20100╱ // 0x30ed @0x22
0x30cb…30f1 at0025 = EOL // 0x30f0 @0x25
0x30cb…30f1 }
0x30f1…3110 c6fe 01720 WHILE ( A $ ( I ) >< "/" ) AND ( A $ ( I ) >< "*" ) DO
0x30f1…3110 LineComal80 {
0x30f1…3110 ptr = 0xc6fe // 0x30f1 @0x0
0x30f1…3110 lno = 0x06b8 // 0x30f3 @0x2
0x30f1…3110 at0004 = ╱931a╱ WHILE ╱ // 0x30f5 @0x4
0x30f1…3110 at0006 = ╱ed╱ ( ╱ // 0x30f7 @0x6
0x30f1…3110 at0007 = ╱41╱A╱ // 0x30f8 @0x7
0x30f1…3110 at0008 = ╱ef╱ $ ╱ // 0x30f9 @0x8
0x30f1…3110 at0009 = ╱ed╱ ( ╱ // 0x30fa @0x9
0x30f1…3110 at000a = ╱49╱I╱ // 0x30fb @0xa
0x30f1…3110 at000b = ╱ee╱ ) ╱ // 0x30fc @0xb
0x30f1…3110 at000c = ╱e4╱ >< ╱ // 0x30fd @0xc
0x30f1…3110 at000d = ╱22╱"╱ // 0x30fe @0xd
0x30f1…3110 at000e = ╱2f╱/╱ // 0x30ff @0xe
0x30f1…3110 at000f = ╱22╱"╱ // 0x3100 @0xf
0x30f1…3110 at0010 = ╱ee╱ ) ╱ // 0x3101 @0x10
0x30f1…3110 at0011 = ╱d9╱ AND ╱ // 0x3102 @0x11
0x30f1…3110 at0012 = ╱ed╱ ( ╱ // 0x3103 @0x12
0x30f1…3110 at0013 = ╱41╱A╱ // 0x3104 @0x13
0x30f1…3110 at0014 = ╱ef╱ $ ╱ // 0x3105 @0x14
0x30f1…3110 at0015 = ╱ed╱ ( ╱ // 0x3106 @0x15
0x30f1…3110 at0016 = ╱49╱I╱ // 0x3107 @0x16
0x30f1…3110 at0017 = ╱ee╱ ) ╱ // 0x3108 @0x17
0x30f1…3110 at0018 = ╱e4╱ >< ╱ // 0x3109 @0x18
0x30f1…3110 at0019 = ╱22╱"╱ // 0x310a @0x19
0x30f1…3110 at001a = ╱2a╱*╱ // 0x310b @0x1a
0x30f1…3110 at001b = ╱22╱"╱ // 0x310c @0x1b
0x30f1…3110 at001c = ╱ee╱ ) ╱ // 0x310d @0x1c
0x30f1…3110 at001d = ╱bb╱ DO ╱ // 0x310e @0x1d
0x30f1…3110 at001e = EOL // 0x310f @0x1e
0x30f1…3110 }
0x3110…312d c71b 01730 LET S_KTONR $ := S_KTONR $ + A $ ( I )
0x3110…312d LineComal80 {
0x3110…312d ptr = 0xc71b // 0x3110 @0x0
0x3110…312d lno = 0x06c2 // 0x3112 @0x2
0x3110…312d at0004 = ╱86╱ LET ╱ // 0x3114 @0x4
0x3110…312d at0005 = ╱53╱S╱ // 0x3115 @0x5
0x3110…312d at0006 = ╱5f╱_╱ // 0x3116 @0x6
0x3110…312d at0007 = ╱4b╱K╱ // 0x3117 @0x7
0x3110…312d at0008 = ╱54╱T╱ // 0x3118 @0x8
0x3110…312d at0009 = ╱4f╱O╱ // 0x3119 @0x9
0x3110…312d at000a = ╱4e╱N╱ // 0x311a @0xa
0x3110…312d at000b = ╱52╱R╱ // 0x311b @0xb
0x3110…312d at000c = ╱ef╱ $ ╱ // 0x311c @0xc
0x3110…312d at000d = ╱f0╱ := ╱ // 0x311d @0xd
0x3110…312d at000e = ╱53╱S╱ // 0x311e @0xe
0x3110…312d at000f = ╱5f╱_╱ // 0x311f @0xf
0x3110…312d at0010 = ╱4b╱K╱ // 0x3120 @0x10
0x3110…312d at0011 = ╱54╱T╱ // 0x3121 @0x11
0x3110…312d at0012 = ╱4f╱O╱ // 0x3122 @0x12
0x3110…312d at0013 = ╱4e╱N╱ // 0x3123 @0x13
0x3110…312d at0014 = ╱52╱R╱ // 0x3124 @0x14
0x3110…312d at0015 = ╱ef╱ $ ╱ // 0x3125 @0x15
0x3110…312d at0016 = ╱eb╱ + ╱ // 0x3126 @0x16
0x3110…312d at0017 = ╱41╱A╱ // 0x3127 @0x17
0x3110…312d at0018 = ╱ef╱ $ ╱ // 0x3128 @0x18
0x3110…312d at0019 = ╱ed╱ ( ╱ // 0x3129 @0x19
0x3110…312d at001a = ╱49╱I╱ // 0x312a @0x1a
0x3110…312d at001b = ╱ee╱ ) ╱ // 0x312b @0x1b
0x3110…312d at001c = EOL // 0x312c @0x1c
0x3110…312d }
0x312d…313b c729 01740 LET I := I + 1
0x312d…313b LineComal80 {
0x312d…313b ptr = 0xc729 // 0x312d @0x0
0x312d…313b lno = 0x06cc // 0x312f @0x2
0x312d…313b at0004 = ╱86╱ LET ╱ // 0x3131 @0x4
0x312d…313b at0005 = ╱49╱I╱ // 0x3132 @0x5
0x312d…313b at0006 = ╱f0╱ := ╱ // 0x3133 @0x6
0x312d…313b at0007 = ╱49╱I╱ // 0x3134 @0x7
0x312d…313b at0008 = ╱e5╱ + ╱ // 0x3135 @0x8
0x312d…313b at0009 = ╱31╱1╱ // 0x3136 @0x9
0x312d…313b at000a = ╱f20100╱ // 0x3137 @0xa
0x312d…313b at000d = EOL // 0x313a @0xd
0x312d…313b }
0x313b…3141 c72f 01750 ENDWHILE
0x313b…3141 LineComal80 {
0x313b…3141 ptr = 0xc72f // 0x313b @0x0
0x313b…3141 lno = 0x06d6 // 0x313d @0x2
0x313b…3141 at0004 = ╱94╱ ENDWHILE ╱ // 0x313f @0x4
0x313b…3141 at0005 = EOL // 0x3140 @0x5
0x313b…3141 }
0x3141…3156 c744 01760 EXEC OPSUM ( S_KTONR $ )
0x3141…3156 LineComal80 {
0x3141…3156 ptr = 0xc744 // 0x3141 @0x0
0x3141…3156 lno = 0x06e0 // 0x3143 @0x2
0x3141…3156 at0004 = ╱9d╱ EXEC ╱ // 0x3145 @0x4
0x3141…3156 at0005 = ╱4f╱O╱ // 0x3146 @0x5
0x3141…3156 at0006 = ╱50╱P╱ // 0x3147 @0x6
0x3141…3156 at0007 = ╱53╱S╱ // 0x3148 @0x7
0x3141…3156 at0008 = ╱55╱U╱ // 0x3149 @0x8
0x3141…3156 at0009 = ╱4d╱M╱ // 0x314a @0x9
0x3141…3156 at000a = ╱ed╱ ( ╱ // 0x314b @0xa
0x3141…3156 at000b = ╱53╱S╱ // 0x314c @0xb
0x3141…3156 at000c = ╱5f╱_╱ // 0x314d @0xc
0x3141…3156 at000d = ╱4b╱K╱ // 0x314e @0xd
0x3141…3156 at000e = ╱54╱T╱ // 0x314f @0xe
0x3141…3156 at000f = ╱4f╱O╱ // 0x3150 @0xf
0x3141…3156 at0010 = ╱4e╱N╱ // 0x3151 @0x10
0x3141…3156 at0011 = ╱52╱R╱ // 0x3152 @0x11
0x3141…3156 at0012 = ╱ef╱ $ ╱ // 0x3153 @0x12
0x3141…3156 at0013 = ╱ee╱ ) ╱ // 0x3154 @0x13
0x3141…3156 at0014 = EOL // 0x3155 @0x14
0x3141…3156 }
0x3156…315c c74a 01770 ENDWHILE
0x3156…315c LineComal80 {
0x3156…315c ptr = 0xc74a // 0x3156 @0x0
0x3156…315c lno = 0x06ea // 0x3158 @0x2
0x3156…315c at0004 = ╱94╱ ENDWHILE ╱ // 0x315a @0x4
0x3156…315c at0005 = EOL // 0x315b @0x5
0x3156…315c }
0x315c…3167 c755 01780 ENDPROC OPDEL
0x315c…3167 LineComal80 {
0x315c…3167 ptr = 0xc755 // 0x315c @0x0
0x315c…3167 lno = 0x06f4 // 0x315e @0x2
0x315c…3167 at0004 = ╱9f╱ ENDPROC ╱ // 0x3160 @0x4
0x315c…3167 at0005 = ╱4f╱O╱ // 0x3161 @0x5
0x315c…3167 at0006 = ╱50╱P╱ // 0x3162 @0x6
0x315c…3167 at0007 = ╱44╱D╱ // 0x3163 @0x7
0x315c…3167 at0008 = ╱45╱E╱ // 0x3164 @0x8
0x315c…3167 at0009 = ╱4c╱L╱ // 0x3165 @0x9
0x315c…3167 at000a = EOL // 0x3166 @0xa
0x315c…3167 }
0x3167…3178 d6cd 01790 PROC OPSUM ( KN $ )
0x3167…3178 LineComal80 {
0x3167…3178 ptr = 0xd6cd // 0x3167 @0x0
0x3167…3178 lno = 0x06fe // 0x3169 @0x2
0x3167…3178 at0004 = ╱9e1b╱ PROC ╱ // 0x316b @0x4
0x3167…3178 at0006 = ╱4f╱O╱ // 0x316d @0x6
0x3167…3178 at0007 = ╱50╱P╱ // 0x316e @0x7
0x3167…3178 at0008 = ╱53╱S╱ // 0x316f @0x8
0x3167…3178 at0009 = ╱55╱U╱ // 0x3170 @0x9
0x3167…3178 at000a = ╱4d╱M╱ // 0x3171 @0xa
0x3167…3178 at000b = ╱ed╱ ( ╱ // 0x3172 @0xb
0x3167…3178 at000c = ╱4b╱K╱ // 0x3173 @0xc
0x3167…3178 at000d = ╱4e╱N╱ // 0x3174 @0xd
0x3167…3178 at000e = ╱ef╱ $ ╱ // 0x3175 @0xe
0x3167…3178 at000f = ╱ee╱ ) ╱ // 0x3176 @0xf
0x3167…3178 at0010 = EOL // 0x3177 @0x10
0x3167…3178 }
0x3178…318c c77a 02060 LET X ( P ) := X ( P ) + 1
0x3178…318c LineComal80 {
0x3178…318c ptr = 0xc77a // 0x3178 @0x0
0x3178…318c lno = 0x080c // 0x317a @0x2
0x3178…318c at0004 = ╱86╱ LET ╱ // 0x317c @0x4
0x3178…318c at0005 = ╱58╱X╱ // 0x317d @0x5
0x3178…318c at0006 = ╱ed╱ ( ╱ // 0x317e @0x6
0x3178…318c at0007 = ╱50╱P╱ // 0x317f @0x7
0x3178…318c at0008 = ╱ee╱ ) ╱ // 0x3180 @0x8
0x3178…318c at0009 = ╱f0╱ := ╱ // 0x3181 @0x9
0x3178…318c at000a = ╱58╱X╱ // 0x3182 @0xa
0x3178…318c at000b = ╱ed╱ ( ╱ // 0x3183 @0xb
0x3178…318c at000c = ╱50╱P╱ // 0x3184 @0xc
0x3178…318c at000d = ╱ee╱ ) ╱ // 0x3185 @0xd
0x3178…318c at000e = ╱e5╱ + ╱ // 0x3186 @0xe
0x3178…318c at000f = ╱31╱1╱ // 0x3187 @0xf
0x3178…318c at0010 = ╱f20100╱ // 0x3188 @0x10
0x3178…318c at0013 = EOL // 0x318b @0x13
0x3178…318c }
0x318c…31a6 c794 01810 LET IDXPOS := FIND_KTO ( KN $ )
0x318c…31a6 LineComal80 {
0x318c…31a6 ptr = 0xc794 // 0x318c @0x0
0x318c…31a6 lno = 0x0712 // 0x318e @0x2
0x318c…31a6 at0004 = ╱86╱ LET ╱ // 0x3190 @0x4
0x318c…31a6 at0005 = ╱49╱I╱ // 0x3191 @0x5
0x318c…31a6 at0006 = ╱44╱D╱ // 0x3192 @0x6
0x318c…31a6 at0007 = ╱58╱X╱ // 0x3193 @0x7
0x318c…31a6 at0008 = ╱50╱P╱ // 0x3194 @0x8
0x318c…31a6 at0009 = ╱4f╱O╱ // 0x3195 @0x9
0x318c…31a6 at000a = ╱53╱S╱ // 0x3196 @0xa
0x318c…31a6 at000b = ╱f0╱ := ╱ // 0x3197 @0xb
0x318c…31a6 at000c = ╱46╱F╱ // 0x3198 @0xc
0x318c…31a6 at000d = ╱49╱I╱ // 0x3199 @0xd
0x318c…31a6 at000e = ╱4e╱N╱ // 0x319a @0xe
0x318c…31a6 at000f = ╱44╱D╱ // 0x319b @0xf
0x318c…31a6 at0010 = ╱5f╱_╱ // 0x319c @0x10
0x318c…31a6 at0011 = ╱4b╱K╱ // 0x319d @0x11
0x318c…31a6 at0012 = ╱54╱T╱ // 0x319e @0x12
0x318c…31a6 at0013 = ╱4f╱O╱ // 0x319f @0x13
0x318c…31a6 at0014 = ╱ed╱ ( ╱ // 0x31a0 @0x14
0x318c…31a6 at0015 = ╱4b╱K╱ // 0x31a1 @0x15
0x318c…31a6 at0016 = ╱4e╱N╱ // 0x31a2 @0x16
0x318c…31a6 at0017 = ╱ef╱ $ ╱ // 0x31a3 @0x17
0x318c…31a6 at0018 = ╱ee╱ ) ╱ // 0x31a4 @0x18
0x318c…31a6 at0019 = EOL // 0x31a5 @0x19
0x318c…31a6 }
0x31a6…31c7 c7b5 01820 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
0x31a6…31c7 LineComal80 {
0x31a6…31c7 ptr = 0xc7b5 // 0x31a6 @0x0
0x31a6…31c7 lno = 0x071c // 0x31a8 @0x2
0x31a6…31c7 at0004 = ╱a9╱ GET ╱ // 0x31aa @0x4
0x31a6…31c7 at0005 = ╱4b╱K╱ // 0x31ab @0x5
0x31a6…31c7 at0006 = ╱54╱T╱ // 0x31ac @0x6
0x31a6…31c7 at0007 = ╱4f╱O╱ // 0x31ad @0x7
0x31a6…31c7 at0008 = ╱49╱I╱ // 0x31ae @0x8
0x31a6…31c7 at0009 = ╱44╱D╱ // 0x31af @0x9
0x31a6…31c7 at000a = ╱58╱X╱ // 0x31b0 @0xa
0x31a6…31c7 at000b = ╱ef╱ $ ╱ // 0x31b1 @0xb
0x31a6…31c7 at000c = ╱ec╱ , ╱ // 0x31b2 @0xc
0x31a6…31c7 at000d = ╱49╱I╱ // 0x31b3 @0xd
0x31a6…31c7 at000e = ╱44╱D╱ // 0x31b4 @0xe
0x31a6…31c7 at000f = ╱58╱X╱ // 0x31b5 @0xf
0x31a6…31c7 at0010 = ╱50╱P╱ // 0x31b6 @0x10
0x31a6…31c7 at0011 = ╱4f╱O╱ // 0x31b7 @0x11
0x31a6…31c7 at0012 = ╱53╱S╱ // 0x31b8 @0x12
0x31a6…31c7 at0013 = ╱f1╱ : ╱ // 0x31b9 @0x13
0x31a6…31c7 at0014 = ╱4b╱K╱ // 0x31ba @0x14
0x31a6…31c7 at0015 = ╱54╱T╱ // 0x31bb @0x15
0x31a6…31c7 at0016 = ╱4f╱O╱ // 0x31bc @0x16
0x31a6…31c7 at0017 = ╱4e╱N╱ // 0x31bd @0x17
0x31a6…31c7 at0018 = ╱52╱R╱ // 0x31be @0x18
0x31a6…31c7 at0019 = ╱ef╱ $ ╱ // 0x31bf @0x19
0x31a6…31c7 at001a = ╱ec╱ , ╱ // 0x31c0 @0x1a
0x31a6…31c7 at001b = ╱52╱R╱ // 0x31c1 @0x1b
0x31a6…31c7 at001c = ╱45╱E╱ // 0x31c2 @0x1c
0x31a6…31c7 at001d = ╱43╱C╱ // 0x31c3 @0x1d
0x31a6…31c7 at001e = ╱4e╱N╱ // 0x31c4 @0x1e
0x31a6…31c7 at001f = ╱52╱R╱ // 0x31c5 @0x1f
0x31a6…31c7 at0020 = EOL // 0x31c6 @0x20
0x31a6…31c7 }
0x31c7…31e6 c7d4 01830 WHILE KN $ = KTONR $ ( 1 : ╱cb╱ ( KN $ ) ) DO
0x31c7…31e6 LineComal80 {
0x31c7…31e6 ptr = 0xc7d4 // 0x31c7 @0x0
0x31c7…31e6 lno = 0x0726 // 0x31c9 @0x2
0x31c7…31e6 at0004 = ╱931c╱ WHILE ╱ // 0x31cb @0x4
0x31c7…31e6 at0006 = ╱4b╱K╱ // 0x31cd @0x6
0x31c7…31e6 at0007 = ╱4e╱N╱ // 0x31ce @0x7
0x31c7…31e6 at0008 = ╱ef╱ $ ╱ // 0x31cf @0x8
0x31c7…31e6 at0009 = ╱df╱ = ╱ // 0x31d0 @0x9
0x31c7…31e6 at000a = ╱4b╱K╱ // 0x31d1 @0xa
0x31c7…31e6 at000b = ╱54╱T╱ // 0x31d2 @0xb
0x31c7…31e6 at000c = ╱4f╱O╱ // 0x31d3 @0xc
0x31c7…31e6 at000d = ╱4e╱N╱ // 0x31d4 @0xd
0x31c7…31e6 at000e = ╱52╱R╱ // 0x31d5 @0xe
0x31c7…31e6 at000f = ╱ef╱ $ ╱ // 0x31d6 @0xf
0x31c7…31e6 at0010 = ╱ed╱ ( ╱ // 0x31d7 @0x10
0x31c7…31e6 at0011 = ╱31╱1╱ // 0x31d8 @0x11
0x31c7…31e6 at0012 = ╱f20100╱ // 0x31d9 @0x12
0x31c7…31e6 at0015 = ╱f1╱ : ╱ // 0x31dc @0x15
0x31c7…31e6 at0016 = ╱cb╱ // 0x31dd @0x16
0x31c7…31e6 at0017 = ╱ed╱ ( ╱ // 0x31de @0x17
0x31c7…31e6 at0018 = ╱4b╱K╱ // 0x31df @0x18
0x31c7…31e6 at0019 = ╱4e╱N╱ // 0x31e0 @0x19
0x31c7…31e6 at001a = ╱ef╱ $ ╱ // 0x31e1 @0x1a
0x31c7…31e6 at001b = ╱ee╱ ) ╱ // 0x31e2 @0x1b
0x31c7…31e6 at001c = ╱ee╱ ) ╱ // 0x31e3 @0x1c
0x31c7…31e6 at001d = ╱bb╱ DO ╱ // 0x31e4 @0x1d
0x31c7…31e6 at001e = EOL // 0x31e5 @0x1e
0x31c7…31e6 }
0x31e6…3211 d683 01840 GET DRIFT\ $ , RECNR : DRIFT ( 1 ) , DRIFT ( 2 )
0x31e6…3211 LineComal80 {
0x31e6…3211 ptr = 0xd683 // 0x31e6 @0x0
0x31e6…3211 lno = 0x0730 // 0x31e8 @0x2
0x31e6…3211 at0004 = ╱a9╱ GET ╱ // 0x31ea @0x4
0x31e6…3211 at0005 = ╱44╱D╱ // 0x31eb @0x5
0x31e6…3211 at0006 = ╱52╱R╱ // 0x31ec @0x6
0x31e6…3211 at0007 = ╱49╱I╱ // 0x31ed @0x7
0x31e6…3211 at0008 = ╱46╱F╱ // 0x31ee @0x8
0x31e6…3211 at0009 = ╱54╱T╱ // 0x31ef @0x9
0x31e6…3211 at000a = ╱5c╱\╱ // 0x31f0 @0xa
0x31e6…3211 at000b = ╱ef╱ $ ╱ // 0x31f1 @0xb
0x31e6…3211 at000c = ╱ec╱ , ╱ // 0x31f2 @0xc
0x31e6…3211 at000d = ╱52╱R╱ // 0x31f3 @0xd
0x31e6…3211 at000e = ╱45╱E╱ // 0x31f4 @0xe
0x31e6…3211 at000f = ╱43╱C╱ // 0x31f5 @0xf
0x31e6…3211 at0010 = ╱4e╱N╱ // 0x31f6 @0x10
0x31e6…3211 at0011 = ╱52╱R╱ // 0x31f7 @0x11
0x31e6…3211 at0012 = ╱f1╱ : ╱ // 0x31f8 @0x12
0x31e6…3211 at0013 = ╱44╱D╱ // 0x31f9 @0x13
0x31e6…3211 at0014 = ╱52╱R╱ // 0x31fa @0x14
0x31e6…3211 at0015 = ╱49╱I╱ // 0x31fb @0x15
0x31e6…3211 at0016 = ╱46╱F╱ // 0x31fc @0x16
0x31e6…3211 at0017 = ╱54╱T╱ // 0x31fd @0x17
0x31e6…3211 at0018 = ╱ed╱ ( ╱ // 0x31fe @0x18
0x31e6…3211 at0019 = ╱31╱1╱ // 0x31ff @0x19
0x31e6…3211 at001a = ╱f20100╱ // 0x3200 @0x1a
0x31e6…3211 at001d = ╱ee╱ ) ╱ // 0x3203 @0x1d
0x31e6…3211 at001e = ╱ec╱ , ╱ // 0x3204 @0x1e
0x31e6…3211 at001f = ╱44╱D╱ // 0x3205 @0x1f
0x31e6…3211 at0020 = ╱52╱R╱ // 0x3206 @0x20
0x31e6…3211 at0021 = ╱49╱I╱ // 0x3207 @0x21
0x31e6…3211 at0022 = ╱46╱F╱ // 0x3208 @0x22
0x31e6…3211 at0023 = ╱54╱T╱ // 0x3209 @0x23
0x31e6…3211 at0024 = ╱ed╱ ( ╱ // 0x320a @0x24
0x31e6…3211 at0025 = ╱32╱2╱ // 0x320b @0x25
0x31e6…3211 at0026 = ╱f20200╱ // 0x320c @0x26
0x31e6…3211 at0029 = ╱ee╱ ) ╱ // 0x320f @0x29
0x31e6…3211 at002a = EOL // 0x3210 @0x2a
0x31e6…3211 }
0x3211…322c c81a 02110 LET X ( P ) := X ( P ) + DRIFT ( 2 )
0x3211…322c LineComal80 {
0x3211…322c ptr = 0xc81a // 0x3211 @0x0
0x3211…322c lno = 0x083e // 0x3213 @0x2
0x3211…322c at0004 = ╱86╱ LET ╱ // 0x3215 @0x4
0x3211…322c at0005 = ╱58╱X╱ // 0x3216 @0x5
0x3211…322c at0006 = ╱ed╱ ( ╱ // 0x3217 @0x6
0x3211…322c at0007 = ╱50╱P╱ // 0x3218 @0x7
0x3211…322c at0008 = ╱ee╱ ) ╱ // 0x3219 @0x8
0x3211…322c at0009 = ╱f0╱ := ╱ // 0x321a @0x9
0x3211…322c at000a = ╱58╱X╱ // 0x321b @0xa
0x3211…322c at000b = ╱ed╱ ( ╱ // 0x321c @0xb
0x3211…322c at000c = ╱50╱P╱ // 0x321d @0xc
0x3211…322c at000d = ╱ee╱ ) ╱ // 0x321e @0xd
0x3211…322c at000e = ╱e5╱ + ╱ // 0x321f @0xe
0x3211…322c at000f = ╱44╱D╱ // 0x3220 @0xf
0x3211…322c at0010 = ╱52╱R╱ // 0x3221 @0x10
0x3211…322c at0011 = ╱49╱I╱ // 0x3222 @0x11
0x3211…322c at0012 = ╱46╱F╱ // 0x3223 @0x12
0x3211…322c at0013 = ╱54╱T╱ // 0x3224 @0x13
0x3211…322c at0014 = ╱ed╱ ( ╱ // 0x3225 @0x14
0x3211…322c at0015 = ╱32╱2╱ // 0x3226 @0x15
0x3211…322c at0016 = ╱f20200╱ // 0x3227 @0x16
0x3211…322c at0019 = ╱ee╱ ) ╱ // 0x322a @0x19
0x3211…322c at001a = EOL // 0x322b @0x1a
0x3211…322c }
0x322c…3244 c832 01860 LET IDXPOS := IDXPOS + 1
0x322c…3244 LineComal80 {
0x322c…3244 ptr = 0xc832 // 0x322c @0x0
0x322c…3244 lno = 0x0744 // 0x322e @0x2
0x322c…3244 at0004 = ╱86╱ LET ╱ // 0x3230 @0x4
0x322c…3244 at0005 = ╱49╱I╱ // 0x3231 @0x5
0x322c…3244 at0006 = ╱44╱D╱ // 0x3232 @0x6
0x322c…3244 at0007 = ╱58╱X╱ // 0x3233 @0x7
0x322c…3244 at0008 = ╱50╱P╱ // 0x3234 @0x8
0x322c…3244 at0009 = ╱4f╱O╱ // 0x3235 @0x9
0x322c…3244 at000a = ╱53╱S╱ // 0x3236 @0xa
0x322c…3244 at000b = ╱f0╱ := ╱ // 0x3237 @0xb
0x322c…3244 at000c = ╱49╱I╱ // 0x3238 @0xc
0x322c…3244 at000d = ╱44╱D╱ // 0x3239 @0xd
0x322c…3244 at000e = ╱58╱X╱ // 0x323a @0xe
0x322c…3244 at000f = ╱50╱P╱ // 0x323b @0xf
0x322c…3244 at0010 = ╱4f╱O╱ // 0x323c @0x10
0x322c…3244 at0011 = ╱53╱S╱ // 0x323d @0x11
0x322c…3244 at0012 = ╱e5╱ + ╱ // 0x323e @0x12
0x322c…3244 at0013 = ╱31╱1╱ // 0x323f @0x13
0x322c…3244 at0014 = ╱f20100╱ // 0x3240 @0x14
0x322c…3244 at0017 = EOL // 0x3243 @0x17
0x322c…3244 }
0x3244…325c c84a 01870 IF IDXPOS > I_H\JREC THEN EXIT
0x3244…325c LineComal80 {
0x3244…325c ptr = 0xc84a // 0x3244 @0x0
0x3244…325c lno = 0x074e // 0x3246 @0x2
0x3244…325c at0004 = ╱8200╱ IF ╱ // 0x3248 @0x4
0x3244…325c at0006 = ╱49╱I╱ // 0x324a @0x6
0x3244…325c at0007 = ╱44╱D╱ // 0x324b @0x7
0x3244…325c at0008 = ╱58╱X╱ // 0x324c @0x8
0x3244…325c at0009 = ╱50╱P╱ // 0x324d @0x9
0x3244…325c at000a = ╱4f╱O╱ // 0x324e @0xa
0x3244…325c at000b = ╱53╱S╱ // 0x324f @0xb
0x3244…325c at000c = ╱e1╱ > ╱ // 0x3250 @0xc
0x3244…325c at000d = ╱49╱I╱ // 0x3251 @0xd
0x3244…325c at000e = ╱5f╱_╱ // 0x3252 @0xe
0x3244…325c at000f = ╱48╱H╱ // 0x3253 @0xf
0x3244…325c at0010 = ╱5c╱\╱ // 0x3254 @0x10
0x3244…325c at0011 = ╱4a╱J╱ // 0x3255 @0x11
0x3244…325c at0012 = ╱52╱R╱ // 0x3256 @0x12
0x3244…325c at0013 = ╱45╱E╱ // 0x3257 @0x13
0x3244…325c at0014 = ╱43╱C╱ // 0x3258 @0x14
0x3244…325c at0015 = ╱b5╱ THEN ╱ // 0x3259 @0x15
0x3244…325c at0016 = ╱99╱ EXIT ╱ // 0x325a @0x16
0x3244…325c at0017 = EOL // 0x325b @0x17
0x3244…325c }
0x325c…327d c86b 01880 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
0x325c…327d LineComal80 {
0x325c…327d ptr = 0xc86b // 0x325c @0x0
0x325c…327d lno = 0x0758 // 0x325e @0x2
0x325c…327d at0004 = ╱a9╱ GET ╱ // 0x3260 @0x4
0x325c…327d at0005 = ╱4b╱K╱ // 0x3261 @0x5
0x325c…327d at0006 = ╱54╱T╱ // 0x3262 @0x6
0x325c…327d at0007 = ╱4f╱O╱ // 0x3263 @0x7
0x325c…327d at0008 = ╱49╱I╱ // 0x3264 @0x8
0x325c…327d at0009 = ╱44╱D╱ // 0x3265 @0x9
0x325c…327d at000a = ╱58╱X╱ // 0x3266 @0xa
0x325c…327d at000b = ╱ef╱ $ ╱ // 0x3267 @0xb
0x325c…327d at000c = ╱ec╱ , ╱ // 0x3268 @0xc
0x325c…327d at000d = ╱49╱I╱ // 0x3269 @0xd
0x325c…327d at000e = ╱44╱D╱ // 0x326a @0xe
0x325c…327d at000f = ╱58╱X╱ // 0x326b @0xf
0x325c…327d at0010 = ╱50╱P╱ // 0x326c @0x10
0x325c…327d at0011 = ╱4f╱O╱ // 0x326d @0x11
0x325c…327d at0012 = ╱53╱S╱ // 0x326e @0x12
0x325c…327d at0013 = ╱f1╱ : ╱ // 0x326f @0x13
0x325c…327d at0014 = ╱4b╱K╱ // 0x3270 @0x14
0x325c…327d at0015 = ╱54╱T╱ // 0x3271 @0x15
0x325c…327d at0016 = ╱4f╱O╱ // 0x3272 @0x16
0x325c…327d at0017 = ╱4e╱N╱ // 0x3273 @0x17
0x325c…327d at0018 = ╱52╱R╱ // 0x3274 @0x18
0x325c…327d at0019 = ╱ef╱ $ ╱ // 0x3275 @0x19
0x325c…327d at001a = ╱ec╱ , ╱ // 0x3276 @0x1a
0x325c…327d at001b = ╱52╱R╱ // 0x3277 @0x1b
0x325c…327d at001c = ╱45╱E╱ // 0x3278 @0x1c
0x325c…327d at001d = ╱43╱C╱ // 0x3279 @0x1d
0x325c…327d at001e = ╱4e╱N╱ // 0x327a @0x1e
0x325c…327d at001f = ╱52╱R╱ // 0x327b @0x1f
0x325c…327d at0020 = EOL // 0x327c @0x20
0x325c…327d }
0x327d…3283 d8be 01890 ENDWHILE
0x327d…3283 LineComal80 {
0x327d…3283 ptr = 0xd8be // 0x327d @0x0
0x327d…3283 lno = 0x0762 // 0x327f @0x2
0x327d…3283 at0004 = ╱94╱ ENDWHILE ╱ // 0x3281 @0x4
0x327d…3283 at0005 = EOL // 0x3282 @0x5
0x327d…3283 }
0x3283…3291 c87f 02160 PRINT KN $ , X ( P )
0x3283…3291 LineComal80 {
0x3283…3291 ptr = 0xc87f // 0x3283 @0x0
0x3283…3291 lno = 0x0870 // 0x3285 @0x2
0x3283…3291 at0004 = ╱92╱ PRINT ╱ // 0x3287 @0x4
0x3283…3291 at0005 = ╱4b╱K╱ // 0x3288 @0x5
0x3283…3291 at0006 = ╱4e╱N╱ // 0x3289 @0x6
0x3283…3291 at0007 = ╱ef╱ $ ╱ // 0x328a @0x7
0x3283…3291 at0008 = ╱ec╱ , ╱ // 0x328b @0x8
0x3283…3291 at0009 = ╱58╱X╱ // 0x328c @0x9
0x3283…3291 at000a = ╱ed╱ ( ╱ // 0x328d @0xa
0x3283…3291 at000b = ╱50╱P╱ // 0x328e @0xb
0x3283…3291 at000c = ╱ee╱ ) ╱ // 0x328f @0xc
0x3283…3291 at000d = EOL // 0x3290 @0xd
0x3283…3291 }
0x3291…329c c88a 01910 ENDPROC OPSUM
0x3291…329c LineComal80 {
0x3291…329c ptr = 0xc88a // 0x3291 @0x0
0x3291…329c lno = 0x0776 // 0x3293 @0x2
0x3291…329c at0004 = ╱9f╱ ENDPROC ╱ // 0x3295 @0x4
0x3291…329c at0005 = ╱4f╱O╱ // 0x3296 @0x5
0x3291…329c at0006 = ╱50╱P╱ // 0x3297 @0x6
0x3291…329c at0007 = ╱53╱S╱ // 0x3298 @0x7
0x3291…329c at0008 = ╱55╱U╱ // 0x3299 @0x8
0x3291…329c at0009 = ╱4d╱M╱ // 0x329a @0x9
0x3291…329c at000a = EOL // 0x329b @0xa
0x3291…329c }
0x329c…32a8 c896 01920 PROC OPT[L
0x329c…32a8 LineComal80 {
0x329c…32a8 ptr = 0xc896 // 0x329c @0x0
0x329c…32a8 lno = 0x0780 // 0x329e @0x2
0x329c…32a8 at0004 = ╱9e1d╱ PROC ╱ // 0x32a0 @0x4
0x329c…32a8 at0006 = ╱4f╱O╱ // 0x32a2 @0x6
0x329c…32a8 at0007 = ╱50╱P╱ // 0x32a3 @0x7
0x329c…32a8 at0008 = ╱54╱T╱ // 0x32a4 @0x8
0x329c…32a8 at0009 = ╱5b╱[╱ // 0x32a5 @0x9
0x329c…32a8 at000a = ╱4c╱L╱ // 0x32a6 @0xa
0x329c…32a8 at000b = EOL // 0x32a7 @0xb
0x329c…32a8 }
0x32a8…32b4 c8a2 01930 LET P := 0
0x32a8…32b4 LineComal80 {
0x32a8…32b4 ptr = 0xc8a2 // 0x32a8 @0x0
0x32a8…32b4 lno = 0x078a // 0x32aa @0x2
0x32a8…32b4 at0004 = ╱86╱ LET ╱ // 0x32ac @0x4
0x32a8…32b4 at0005 = ╱50╱P╱ // 0x32ad @0x5
0x32a8…32b4 at0006 = ╱f0╱ := ╱ // 0x32ae @0x6
0x32a8…32b4 at0007 = ╱30╱0╱ // 0x32af @0x7
0x32a8…32b4 at0008 = ╱f20000╱ // 0x32b0 @0x8
0x32a8…32b4 at000b = EOL // 0x32b3 @0xb
0x32a8…32b4 }
0x32b4…32cc c8ba 01940 EXEC OPENFIL ( OPTF $ , "R" )
0x32b4…32cc LineComal80 {
0x32b4…32cc ptr = 0xc8ba // 0x32b4 @0x0
0x32b4…32cc lno = 0x0794 // 0x32b6 @0x2
0x32b4…32cc at0004 = ╱9d╱ EXEC ╱ // 0x32b8 @0x4
0x32b4…32cc at0005 = ╱4f╱O╱ // 0x32b9 @0x5
0x32b4…32cc at0006 = ╱50╱P╱ // 0x32ba @0x6
0x32b4…32cc at0007 = ╱45╱E╱ // 0x32bb @0x7
0x32b4…32cc at0008 = ╱4e╱N╱ // 0x32bc @0x8
0x32b4…32cc at0009 = ╱46╱F╱ // 0x32bd @0x9
0x32b4…32cc at000a = ╱49╱I╱ // 0x32be @0xa
0x32b4…32cc at000b = ╱4c╱L╱ // 0x32bf @0xb
0x32b4…32cc at000c = ╱ed╱ ( ╱ // 0x32c0 @0xc
0x32b4…32cc at000d = ╱4f╱O╱ // 0x32c1 @0xd
0x32b4…32cc at000e = ╱50╱P╱ // 0x32c2 @0xe
0x32b4…32cc at000f = ╱54╱T╱ // 0x32c3 @0xf
0x32b4…32cc at0010 = ╱46╱F╱ // 0x32c4 @0x10
0x32b4…32cc at0011 = ╱ef╱ $ ╱ // 0x32c5 @0x11
0x32b4…32cc at0012 = ╱ec╱ , ╱ // 0x32c6 @0x12
0x32b4…32cc at0013 = ╱22╱"╱ // 0x32c7 @0x13
0x32b4…32cc at0014 = ╱52╱R╱ // 0x32c8 @0x14
0x32b4…32cc at0015 = ╱22╱"╱ // 0x32c9 @0x15
0x32b4…32cc at0016 = ╱ee╱ ) ╱ // 0x32ca @0x16
0x32b4…32cc at0017 = EOL // 0x32cb @0x17
0x32b4…32cc }
0x32cc…32da c8c8 01950 GET OPTF $ : S $
0x32cc…32da LineComal80 {
0x32cc…32da ptr = 0xc8c8 // 0x32cc @0x0
0x32cc…32da lno = 0x079e // 0x32ce @0x2
0x32cc…32da at0004 = ╱a9╱ GET ╱ // 0x32d0 @0x4
0x32cc…32da at0005 = ╱4f╱O╱ // 0x32d1 @0x5
0x32cc…32da at0006 = ╱50╱P╱ // 0x32d2 @0x6
0x32cc…32da at0007 = ╱54╱T╱ // 0x32d3 @0x7
0x32cc…32da at0008 = ╱46╱F╱ // 0x32d4 @0x8
0x32cc…32da at0009 = ╱ef╱ $ ╱ // 0x32d5 @0x9
0x32cc…32da at000a = ╱f1╱ : ╱ // 0x32d6 @0xa
0x32cc…32da at000b = ╱53╱S╱ // 0x32d7 @0xb
0x32cc…32da at000c = ╱ef╱ $ ╱ // 0x32d8 @0xc
0x32cc…32da at000d = EOL // 0x32d9 @0xd
0x32cc…32da }
0x32da…32eb c8d9 01960 WHILE NOT ╱cd╱ ( OPTF $ ) DO
0x32da…32eb LineComal80 {
0x32da…32eb ptr = 0xc8d9 // 0x32da @0x0
0x32da…32eb lno = 0x07a8 // 0x32dc @0x2
0x32da…32eb at0004 = ╱931e╱ WHILE ╱ // 0x32de @0x4
0x32da…32eb at0006 = ╱d7╱ NOT ╱ // 0x32e0 @0x6
0x32da…32eb at0007 = ╱cd╱ // 0x32e1 @0x7
0x32da…32eb at0008 = ╱ed╱ ( ╱ // 0x32e2 @0x8
0x32da…32eb at0009 = ╱4f╱O╱ // 0x32e3 @0x9
0x32da…32eb at000a = ╱50╱P╱ // 0x32e4 @0xa
0x32da…32eb at000b = ╱54╱T╱ // 0x32e5 @0xb
0x32da…32eb at000c = ╱46╱F╱ // 0x32e6 @0xc
0x32da…32eb at000d = ╱ef╱ $ ╱ // 0x32e7 @0xd
0x32da…32eb at000e = ╱ee╱ ) ╱ // 0x32e8 @0xe
0x32da…32eb at000f = ╱bb╱ DO ╱ // 0x32e9 @0xf
0x32da…32eb at0010 = EOL // 0x32ea @0x10
0x32da…32eb }
0x32eb…32f9 c8e7 01970 LET P := P + 1
0x32eb…32f9 LineComal80 {
0x32eb…32f9 ptr = 0xc8e7 // 0x32eb @0x0
0x32eb…32f9 lno = 0x07b2 // 0x32ed @0x2
0x32eb…32f9 at0004 = ╱86╱ LET ╱ // 0x32ef @0x4
0x32eb…32f9 at0005 = ╱50╱P╱ // 0x32f0 @0x5
0x32eb…32f9 at0006 = ╱f0╱ := ╱ // 0x32f1 @0x6
0x32eb…32f9 at0007 = ╱50╱P╱ // 0x32f2 @0x7
0x32eb…32f9 at0008 = ╱e5╱ + ╱ // 0x32f3 @0x8
0x32eb…32f9 at0009 = ╱31╱1╱ // 0x32f4 @0x9
0x32eb…32f9 at000a = ╱f20100╱ // 0x32f5 @0xa
0x32eb…32f9 at000d = EOL // 0x32f8 @0xd
0x32eb…32f9 }
0x32f9…3308 d6dc 01980 EXEC OPDEL ( S $ )
0x32f9…3308 LineComal80 {
0x32f9…3308 ptr = 0xd6dc // 0x32f9 @0x0
0x32f9…3308 lno = 0x07bc // 0x32fb @0x2
0x32f9…3308 at0004 = ╱9d╱ EXEC ╱ // 0x32fd @0x4
0x32f9…3308 at0005 = ╱4f╱O╱ // 0x32fe @0x5
0x32f9…3308 at0006 = ╱50╱P╱ // 0x32ff @0x6
0x32f9…3308 at0007 = ╱44╱D╱ // 0x3300 @0x7
0x32f9…3308 at0008 = ╱45╱E╱ // 0x3301 @0x8
0x32f9…3308 at0009 = ╱4c╱L╱ // 0x3302 @0x9
0x32f9…3308 at000a = ╱ed╱ ( ╱ // 0x3303 @0xa
0x32f9…3308 at000b = ╱53╱S╱ // 0x3304 @0xb
0x32f9…3308 at000c = ╱ef╱ $ ╱ // 0x3305 @0xc
0x32f9…3308 at000d = ╱ee╱ ) ╱ // 0x3306 @0xd
0x32f9…3308 at000e = EOL // 0x3307 @0xe
0x32f9…3308 }
0x3308…3316 c904 02000 GET OPTF $ : S $
0x3308…3316 LineComal80 {
0x3308…3316 ptr = 0xc904 // 0x3308 @0x0
0x3308…3316 lno = 0x07d0 // 0x330a @0x2
0x3308…3316 at0004 = ╱a9╱ GET ╱ // 0x330c @0x4
0x3308…3316 at0005 = ╱4f╱O╱ // 0x330d @0x5
0x3308…3316 at0006 = ╱50╱P╱ // 0x330e @0x6
0x3308…3316 at0007 = ╱54╱T╱ // 0x330f @0x7
0x3308…3316 at0008 = ╱46╱F╱ // 0x3310 @0x8
0x3308…3316 at0009 = ╱ef╱ $ ╱ // 0x3311 @0x9
0x3308…3316 at000a = ╱f1╱ : ╱ // 0x3312 @0xa
0x3308…3316 at000b = ╱53╱S╱ // 0x3313 @0xb
0x3308…3316 at000c = ╱ef╱ $ ╱ // 0x3314 @0xc
0x3308…3316 at000d = EOL // 0x3315 @0xd
0x3308…3316 }
0x3316…331c c90a 02010 ENDWHILE
0x3316…331c LineComal80 {
0x3316…331c ptr = 0xc90a // 0x3316 @0x0
0x3316…331c lno = 0x07da // 0x3318 @0x2
0x3316…331c at0004 = ╱94╱ ENDWHILE ╱ // 0x331a @0x4
0x3316…331c at0005 = EOL // 0x331b @0x5
0x3316…331c }
0x331c…3322 c910 02020 CLOSE
0x331c…3322 LineComal80 {
0x331c…3322 ptr = 0xc910 // 0x331c @0x0
0x331c…3322 lno = 0x07e4 // 0x331e @0x2
0x331c…3322 at0004 = ╱a8╱ CLOSE ╱ // 0x3320 @0x4
0x331c…3322 at0005 = EOL // 0x3321 @0x5
0x331c…3322 }
0x3322…332d (170,) c9f2 02030 ENDPROC OPT[L
0x3322…332d LineComal80 {
0x3322…332d ptr = 0xc9f2 // 0x3322 @0x0
0x3322…332d lno = 0x07ee // 0x3324 @0x2
0x3322…332d at0004 = ╱9f╱ ENDPROC ╱ // 0x3326 @0x4
0x3322…332d at0005 = ╱4f╱O╱ // 0x3327 @0x5
0x3322…332d at0006 = ╱50╱P╱ // 0x3328 @0x6
0x3322…332d at0007 = ╱54╱T╱ // 0x3329 @0x7
0x3322…332d at0008 = ╱5b╱[╱ // 0x332a @0x8
0x3322…332d at0009 = ╱4c╱L╱ // 0x332b @0x9
0x3322…332d at000a = EOL // 0x332c @0xa
0x3322…332d }
0x332d…334c 9cd3 00560 DIM DRIFT\ $ OF 17 , OPTF $ OF 17
0x332d…334c LineComal80 {
0x332d…334c ptr = 0x9cd3 // 0x332d @0x0
0x332d…334c lno = 0x0230 // 0x332f @0x2
0x332d…334c at0004 = ╱87╱ DIM ╱ // 0x3331 @0x4
0x332d…334c at0005 = ╱44╱D╱ // 0x3332 @0x5
0x332d…334c at0006 = ╱52╱R╱ // 0x3333 @0x6
0x332d…334c at0007 = ╱49╱I╱ // 0x3334 @0x7
0x332d…334c at0008 = ╱46╱F╱ // 0x3335 @0x8
0x332d…334c at0009 = ╱54╱T╱ // 0x3336 @0x9
0x332d…334c at000a = ╱5c╱\╱ // 0x3337 @0xa
0x332d…334c at000b = ╱ef╱ $ ╱ // 0x3338 @0xb
0x332d…334c at000c = ╱ba╱ OF ╱ // 0x3339 @0xc
0x332d…334c at000d = ╱31╱1╱ // 0x333a @0xd
0x332d…334c at000e = ╱37╱7╱ // 0x333b @0xe
0x332d…334c at000f = ╱f21100╱ // 0x333c @0xf
0x332d…334c at0012 = ╱ec╱ , ╱ // 0x333f @0x12
0x332d…334c at0013 = ╱4f╱O╱ // 0x3340 @0x13
0x332d…334c at0014 = ╱50╱P╱ // 0x3341 @0x14
0x332d…334c at0015 = ╱54╱T╱ // 0x3342 @0x15
0x332d…334c at0016 = ╱46╱F╱ // 0x3343 @0x16
0x332d…334c at0017 = ╱ef╱ $ ╱ // 0x3344 @0x17
0x332d…334c at0018 = ╱ba╱ OF ╱ // 0x3345 @0x18
0x332d…334c at0019 = ╱31╱1╱ // 0x3346 @0x19
0x332d…334c at001a = ╱37╱7╱ // 0x3347 @0x1a
0x332d…334c at001b = ╱f21100╱ // 0x3348 @0x1b
0x332d…334c at001e = EOL // 0x334b @0x1e
0x332d…334c }
0x334c…3379 a1e6 00770 LET OPTF $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "TAL"
0x334c…3379 LineComal80 {
0x334c…3379 ptr = 0xa1e6 // 0x334c @0x0
0x334c…3379 lno = 0x0302 // 0x334e @0x2
0x334c…3379 at0004 = ╱86╱ LET ╱ // 0x3350 @0x4
0x334c…3379 at0005 = ╱4f╱O╱ // 0x3351 @0x5
0x334c…3379 at0006 = ╱50╱P╱ // 0x3352 @0x6
0x334c…3379 at0007 = ╱54╱T╱ // 0x3353 @0x7
0x334c…3379 at0008 = ╱46╱F╱ // 0x3354 @0x8
0x334c…3379 at0009 = ╱ef╱ $ ╱ // 0x3355 @0x9
0x334c…3379 at000a = ╱f0╱ := ╱ // 0x3356 @0xa
0x334c…3379 at000b = ╱44╱D╱ // 0x3357 @0xb
0x334c…3379 at000c = ╱41╱A╱ // 0x3358 @0xc
0x334c…3379 at000d = ╱54╱T╱ // 0x3359 @0xd
0x334c…3379 at000e = ╱41╱A╱ // 0x335a @0xe
0x334c…3379 at000f = ╱46╱F╱ // 0x335b @0xf
0x334c…3379 at0010 = ╱4c╱L╱ // 0x335c @0x10
0x334c…3379 at0011 = ╱ef╱ $ ╱ // 0x335d @0x11
0x334c…3379 at0012 = ╱eb╱ + ╱ // 0x335e @0x12
0x334c…3379 at0013 = ╱22╱"╱ // 0x335f @0x13
0x334c…3379 at0014 = ╱3a╱:╱ // 0x3360 @0x14
0x334c…3379 at0015 = ╱22╱"╱ // 0x3361 @0x15
0x334c…3379 at0016 = ╱eb╱ + ╱ // 0x3362 @0x16
0x334c…3379 at0017 = ╱53╱S╱ // 0x3363 @0x17
0x334c…3379 at0018 = ╱5f╱_╱ // 0x3364 @0x18
0x334c…3379 at0019 = ╱4b╱K╱ // 0x3365 @0x19
0x334c…3379 at001a = ╱4f╱O╱ // 0x3366 @0x1a
0x334c…3379 at001b = ╱44╱D╱ // 0x3367 @0x1b
0x334c…3379 at001c = ╱45╱E╱ // 0x3368 @0x1c
0x334c…3379 at001d = ╱ef╱ $ ╱ // 0x3369 @0x1d
0x334c…3379 at001e = ╱eb╱ + ╱ // 0x336a @0x1e
0x334c…3379 at001f = ╱54╱T╱ // 0x336b @0x1f
0x334c…3379 at0020 = ╱5f╱_╱ // 0x336c @0x20
0x334c…3379 at0021 = ╱4b╱K╱ // 0x336d @0x21
0x334c…3379 at0022 = ╱4f╱O╱ // 0x336e @0x22
0x334c…3379 at0023 = ╱44╱D╱ // 0x336f @0x23
0x334c…3379 at0024 = ╱45╱E╱ // 0x3370 @0x24
0x334c…3379 at0025 = ╱ef╱ $ ╱ // 0x3371 @0x25
0x334c…3379 at0026 = ╱eb╱ + ╱ // 0x3372 @0x26
0x334c…3379 at0027 = ╱22╱"╱ // 0x3373 @0x27
0x334c…3379 at0028 = ╱54╱T╱ // 0x3374 @0x28
0x334c…3379 at0029 = ╱41╱A╱ // 0x3375 @0x29
0x334c…3379 at002a = ╱4c╱L╱ // 0x3376 @0x2a
0x334c…3379 at002b = ╱22╱"╱ // 0x3377 @0x2b
0x334c…3379 at002c = EOL // 0x3378 @0x2c
0x334c…3379 }
0x3379…33a2 9a30 00290 DIM PROGRAM $ OF 17 , PRTNR $ OF 1 , S $ OF 80
0x3379…33a2 LineComal80 {
0x3379…33a2 ptr = 0x9a30 // 0x3379 @0x0
0x3379…33a2 lno = 0x0122 // 0x337b @0x2
0x3379…33a2 at0004 = ╱87╱ DIM ╱ // 0x337d @0x4
0x3379…33a2 at0005 = ╱50╱P╱ // 0x337e @0x5
0x3379…33a2 at0006 = ╱52╱R╱ // 0x337f @0x6
0x3379…33a2 at0007 = ╱4f╱O╱ // 0x3380 @0x7
0x3379…33a2 at0008 = ╱47╱G╱ // 0x3381 @0x8
0x3379…33a2 at0009 = ╱52╱R╱ // 0x3382 @0x9
0x3379…33a2 at000a = ╱41╱A╱ // 0x3383 @0xa
0x3379…33a2 at000b = ╱4d╱M╱ // 0x3384 @0xb
0x3379…33a2 at000c = ╱ef╱ $ ╱ // 0x3385 @0xc
0x3379…33a2 at000d = ╱ba╱ OF ╱ // 0x3386 @0xd
0x3379…33a2 at000e = ╱31╱1╱ // 0x3387 @0xe
0x3379…33a2 at000f = ╱37╱7╱ // 0x3388 @0xf
0x3379…33a2 at0010 = ╱f21100╱ // 0x3389 @0x10
0x3379…33a2 at0013 = ╱ec╱ , ╱ // 0x338c @0x13
0x3379…33a2 at0014 = ╱50╱P╱ // 0x338d @0x14
0x3379…33a2 at0015 = ╱52╱R╱ // 0x338e @0x15
0x3379…33a2 at0016 = ╱54╱T╱ // 0x338f @0x16
0x3379…33a2 at0017 = ╱4e╱N╱ // 0x3390 @0x17
0x3379…33a2 at0018 = ╱52╱R╱ // 0x3391 @0x18
0x3379…33a2 at0019 = ╱ef╱ $ ╱ // 0x3392 @0x19
0x3379…33a2 at001a = ╱ba╱ OF ╱ // 0x3393 @0x1a
0x3379…33a2 at001b = ╱31╱1╱ // 0x3394 @0x1b
0x3379…33a2 at001c = ╱f20100╱ // 0x3395 @0x1c
0x3379…33a2 at001f = ╱ec╱ , ╱ // 0x3398 @0x1f
0x3379…33a2 at0020 = ╱53╱S╱ // 0x3399 @0x20
0x3379…33a2 at0021 = ╱ef╱ $ ╱ // 0x339a @0x21
0x3379…33a2 at0022 = ╱ba╱ OF ╱ // 0x339b @0x22
0x3379…33a2 at0023 = ╱38╱8╱ // 0x339c @0x23
0x3379…33a2 at0024 = ╱30╱0╱ // 0x339d @0x24
0x3379…33a2 at0025 = ╱f25000╱ // 0x339e @0x25
0x3379…33a2 at0028 = EOL // 0x33a1 @0x28
0x3379…33a2 }
0x33a2…33d4 c9c2 00100 // ``````…REGNSKABSANALYSE…VERSION…2.0…''''''''
0x33a2…33d4 LineComal80 {
0x33a2…33d4 ptr = 0xc9c2 // 0x33a2 @0x0
0x33a2…33d4 lno = 0x0064 // 0x33a4 @0x2
0x33a2…33d4 at0004 = ╱89╱ // ╱ // 0x33a6 @0x4
0x33a2…33d4 at0005 = ╱60╱`╱ // 0x33a7 @0x5
0x33a2…33d4 at0006 = ╱60╱`╱ // 0x33a8 @0x6
0x33a2…33d4 at0007 = ╱60╱`╱ // 0x33a9 @0x7
0x33a2…33d4 at0008 = ╱60╱`╱ // 0x33aa @0x8
0x33a2…33d4 at0009 = ╱60╱`╱ // 0x33ab @0x9
0x33a2…33d4 at000a = ╱60╱`╱ // 0x33ac @0xa
0x33a2…33d4 at000b = ╱20╱…╱ // 0x33ad @0xb
0x33a2…33d4 at000c = ╱52╱R╱ // 0x33ae @0xc
0x33a2…33d4 at000d = ╱45╱E╱ // 0x33af @0xd
0x33a2…33d4 at000e = ╱47╱G╱ // 0x33b0 @0xe
0x33a2…33d4 at000f = ╱4e╱N╱ // 0x33b1 @0xf
0x33a2…33d4 at0010 = ╱53╱S╱ // 0x33b2 @0x10
0x33a2…33d4 at0011 = ╱4b╱K╱ // 0x33b3 @0x11
0x33a2…33d4 at0012 = ╱41╱A╱ // 0x33b4 @0x12
0x33a2…33d4 at0013 = ╱42╱B╱ // 0x33b5 @0x13
0x33a2…33d4 at0014 = ╱53╱S╱ // 0x33b6 @0x14
0x33a2…33d4 at0015 = ╱41╱A╱ // 0x33b7 @0x15
0x33a2…33d4 at0016 = ╱4e╱N╱ // 0x33b8 @0x16
0x33a2…33d4 at0017 = ╱41╱A╱ // 0x33b9 @0x17
0x33a2…33d4 at0018 = ╱4c╱L╱ // 0x33ba @0x18
0x33a2…33d4 at0019 = ╱59╱Y╱ // 0x33bb @0x19
0x33a2…33d4 at001a = ╱53╱S╱ // 0x33bc @0x1a
0x33a2…33d4 at001b = ╱45╱E╱ // 0x33bd @0x1b
0x33a2…33d4 at001c = ╱20╱…╱ // 0x33be @0x1c
0x33a2…33d4 at001d = ╱56╱V╱ // 0x33bf @0x1d
0x33a2…33d4 at001e = ╱45╱E╱ // 0x33c0 @0x1e
0x33a2…33d4 at001f = ╱52╱R╱ // 0x33c1 @0x1f
0x33a2…33d4 at0020 = ╱53╱S╱ // 0x33c2 @0x20
0x33a2…33d4 at0021 = ╱49╱I╱ // 0x33c3 @0x21
0x33a2…33d4 at0022 = ╱4f╱O╱ // 0x33c4 @0x22
0x33a2…33d4 at0023 = ╱4e╱N╱ // 0x33c5 @0x23
0x33a2…33d4 at0024 = ╱20╱…╱ // 0x33c6 @0x24
0x33a2…33d4 at0025 = ╱32╱2╱ // 0x33c7 @0x25
0x33a2…33d4 at0026 = ╱2e╱.╱ // 0x33c8 @0x26
0x33a2…33d4 at0027 = ╱30╱0╱ // 0x33c9 @0x27
0x33a2…33d4 at0028 = ╱20╱…╱ // 0x33ca @0x28
0x33a2…33d4 at0029 = ╱27╱'╱ // 0x33cb @0x29
0x33a2…33d4 at002a = ╱27╱'╱ // 0x33cc @0x2a
0x33a2…33d4 at002b = ╱27╱'╱ // 0x33cd @0x2b
0x33a2…33d4 at002c = ╱27╱'╱ // 0x33ce @0x2c
0x33a2…33d4 at002d = ╱27╱'╱ // 0x33cf @0x2d
0x33a2…33d4 at002e = ╱27╱'╱ // 0x33d0 @0x2e
0x33a2…33d4 at002f = ╱27╱'╱ // 0x33d1 @0x2f
0x33a2…33d4 at0030 = ╱27╱'╱ // 0x33d2 @0x30
0x33a2…33d4 at0031 = EOL // 0x33d3 @0x31
0x33a2…33d4 }
0x33d4…3404 9936 00110 // ``````…by…Peter…Kristensen…1984…''''''''''
0x33d4…3404 LineComal80 {
0x33d4…3404 ptr = 0x9936 // 0x33d4 @0x0
0x33d4…3404 lno = 0x006e // 0x33d6 @0x2
0x33d4…3404 at0004 = ╱89╱ // ╱ // 0x33d8 @0x4
0x33d4…3404 at0005 = ╱60╱`╱ // 0x33d9 @0x5
0x33d4…3404 at0006 = ╱60╱`╱ // 0x33da @0x6
0x33d4…3404 at0007 = ╱60╱`╱ // 0x33db @0x7
0x33d4…3404 at0008 = ╱60╱`╱ // 0x33dc @0x8
0x33d4…3404 at0009 = ╱60╱`╱ // 0x33dd @0x9
0x33d4…3404 at000a = ╱60╱`╱ // 0x33de @0xa
0x33d4…3404 at000b = ╱20╱…╱ // 0x33df @0xb
0x33d4…3404 at000c = ╱62╱b╱ // 0x33e0 @0xc
0x33d4…3404 at000d = ╱79╱y╱ // 0x33e1 @0xd
0x33d4…3404 at000e = ╱20╱…╱ // 0x33e2 @0xe
0x33d4…3404 at000f = ╱50╱P╱ // 0x33e3 @0xf
0x33d4…3404 at0010 = ╱65╱e╱ // 0x33e4 @0x10
0x33d4…3404 at0011 = ╱74╱t╱ // 0x33e5 @0x11
0x33d4…3404 at0012 = ╱65╱e╱ // 0x33e6 @0x12
0x33d4…3404 at0013 = ╱72╱r╱ // 0x33e7 @0x13
0x33d4…3404 at0014 = ╱20╱…╱ // 0x33e8 @0x14
0x33d4…3404 at0015 = ╱4b╱K╱ // 0x33e9 @0x15
0x33d4…3404 at0016 = ╱72╱r╱ // 0x33ea @0x16
0x33d4…3404 at0017 = ╱69╱i╱ // 0x33eb @0x17
0x33d4…3404 at0018 = ╱73╱s╱ // 0x33ec @0x18
0x33d4…3404 at0019 = ╱74╱t╱ // 0x33ed @0x19
0x33d4…3404 at001a = ╱65╱e╱ // 0x33ee @0x1a
0x33d4…3404 at001b = ╱6e╱n╱ // 0x33ef @0x1b
0x33d4…3404 at001c = ╱73╱s╱ // 0x33f0 @0x1c
0x33d4…3404 at001d = ╱65╱e╱ // 0x33f1 @0x1d
0x33d4…3404 at001e = ╱6e╱n╱ // 0x33f2 @0x1e
0x33d4…3404 at001f = ╱20╱…╱ // 0x33f3 @0x1f
0x33d4…3404 at0020 = ╱31╱1╱ // 0x33f4 @0x20
0x33d4…3404 at0021 = ╱39╱9╱ // 0x33f5 @0x21
0x33d4…3404 at0022 = ╱38╱8╱ // 0x33f6 @0x22
0x33d4…3404 at0023 = ╱34╱4╱ // 0x33f7 @0x23
0x33d4…3404 at0024 = ╱20╱…╱ // 0x33f8 @0x24
0x33d4…3404 at0025 = ╱27╱'╱ // 0x33f9 @0x25
0x33d4…3404 at0026 = ╱27╱'╱ // 0x33fa @0x26
0x33d4…3404 at0027 = ╱27╱'╱ // 0x33fb @0x27
0x33d4…3404 at0028 = ╱27╱'╱ // 0x33fc @0x28
0x33d4…3404 at0029 = ╱27╱'╱ // 0x33fd @0x29
0x33d4…3404 at002a = ╱27╱'╱ // 0x33fe @0x2a
0x33d4…3404 at002b = ╱27╱'╱ // 0x33ff @0x2b
0x33d4…3404 at002c = ╱27╱'╱ // 0x3400 @0x2c
0x33d4…3404 at002d = ╱27╱'╱ // 0x3401 @0x2d
0x33d4…3404 at002e = ╱27╱'╱ // 0x3402 @0x2e
0x33d4…3404 at002f = EOL // 0x3403 @0x2f
0x33d4…3404 }
0x3404…3414 ca02 02040 PROC BEREGNMAJ
0x3404…3414 LineComal80 {
0x3404…3414 ptr = 0xca02 // 0x3404 @0x0
0x3404…3414 lno = 0x07f8 // 0x3406 @0x2
0x3404…3414 at0004 = ╱9e1f╱ PROC ╱ // 0x3408 @0x4
0x3404…3414 at0006 = ╱42╱B╱ // 0x340a @0x6
0x3404…3414 at0007 = ╱45╱E╱ // 0x340b @0x7
0x3404…3414 at0008 = ╱52╱R╱ // 0x340c @0x8
0x3404…3414 at0009 = ╱45╱E╱ // 0x340d @0x9
0x3404…3414 at000a = ╱47╱G╱ // 0x340e @0xa
0x3404…3414 at000b = ╱4e╱N╱ // 0x340f @0xb
0x3404…3414 at000c = ╱4d╱M╱ // 0x3410 @0xc
0x3404…3414 at000d = ╱41╱A╱ // 0x3411 @0xd
0x3404…3414 at000e = ╱4a╱J╱ // 0x3412 @0xe
0x3404…3414 at000f = EOL // 0x3413 @0xf
0x3404…3414 }
0x3414…3432 ca20 02050 LET X ( 9 ) := X ( 9 ) - X ( 20 )
0x3414…3432 LineComal80 {
0x3414…3432 ptr = 0xca20 // 0x3414 @0x0
0x3414…3432 lno = 0x0802 // 0x3416 @0x2
0x3414…3432 at0004 = ╱86╱ LET ╱ // 0x3418 @0x4
0x3414…3432 at0005 = ╱58╱X╱ // 0x3419 @0x5
0x3414…3432 at0006 = ╱ed╱ ( ╱ // 0x341a @0x6
0x3414…3432 at0007 = ╱39╱9╱ // 0x341b @0x7
0x3414…3432 at0008 = ╱f20900╱ // 0x341c @0x8
0x3414…3432 at000b = ╱ee╱ ) ╱ // 0x341f @0xb
0x3414…3432 at000c = ╱f0╱ := ╱ // 0x3420 @0xc
0x3414…3432 at000d = ╱58╱X╱ // 0x3421 @0xd
0x3414…3432 at000e = ╱ed╱ ( ╱ // 0x3422 @0xe
0x3414…3432 at000f = ╱39╱9╱ // 0x3423 @0xf
0x3414…3432 at0010 = ╱f20900╱ // 0x3424 @0x10
0x3414…3432 at0013 = ╱ee╱ ) ╱ // 0x3427 @0x13
0x3414…3432 at0014 = ╱e6╱ - ╱ // 0x3428 @0x14
0x3414…3432 at0015 = ╱58╱X╱ // 0x3429 @0x15
0x3414…3432 at0016 = ╱ed╱ ( ╱ // 0x342a @0x16
0x3414…3432 at0017 = ╱32╱2╱ // 0x342b @0x17
0x3414…3432 at0018 = ╱30╱0╱ // 0x342c @0x18
0x3414…3432 at0019 = ╱f21400╱ // 0x342d @0x19
0x3414…3432 at001c = ╱ee╱ ) ╱ // 0x3430 @0x1c
0x3414…3432 at001d = EOL // 0x3431 @0x1d
0x3414…3432 }
0x3432…3447 ca35 02060 LET R ( 1 ) := X ( 1 )
0x3432…3447 LineComal80 {
0x3432…3447 ptr = 0xca35 // 0x3432 @0x0
0x3432…3447 lno = 0x080c // 0x3434 @0x2
0x3432…3447 at0004 = ╱86╱ LET ╱ // 0x3436 @0x4
0x3432…3447 at0005 = ╱52╱R╱ // 0x3437 @0x5
0x3432…3447 at0006 = ╱ed╱ ( ╱ // 0x3438 @0x6
0x3432…3447 at0007 = ╱31╱1╱ // 0x3439 @0x7
0x3432…3447 at0008 = ╱f20100╱ // 0x343a @0x8
0x3432…3447 at000b = ╱ee╱ ) ╱ // 0x343d @0xb
0x3432…3447 at000c = ╱f0╱ := ╱ // 0x343e @0xc
0x3432…3447 at000d = ╱58╱X╱ // 0x343f @0xd
0x3432…3447 at000e = ╱ed╱ ( ╱ // 0x3440 @0xe
0x3432…3447 at000f = ╱31╱1╱ // 0x3441 @0xf
0x3432…3447 at0010 = ╱f20100╱ // 0x3442 @0x10
0x3432…3447 at0013 = ╱ee╱ ) ╱ // 0x3445 @0x13
0x3432…3447 at0014 = EOL // 0x3446 @0x14
0x3432…3447 }
0x3447…345c ca4a 02070 LET R ( 2 ) := X ( 5 )
0x3447…345c LineComal80 {
0x3447…345c ptr = 0xca4a // 0x3447 @0x0
0x3447…345c lno = 0x0816 // 0x3449 @0x2
0x3447…345c at0004 = ╱86╱ LET ╱ // 0x344b @0x4
0x3447…345c at0005 = ╱52╱R╱ // 0x344c @0x5
0x3447…345c at0006 = ╱ed╱ ( ╱ // 0x344d @0x6
0x3447…345c at0007 = ╱32╱2╱ // 0x344e @0x7
0x3447…345c at0008 = ╱f20200╱ // 0x344f @0x8
0x3447…345c at000b = ╱ee╱ ) ╱ // 0x3452 @0xb
0x3447…345c at000c = ╱f0╱ := ╱ // 0x3453 @0xc
0x3447…345c at000d = ╱58╱X╱ // 0x3454 @0xd
0x3447…345c at000e = ╱ed╱ ( ╱ // 0x3455 @0xe
0x3447…345c at000f = ╱35╱5╱ // 0x3456 @0xf
0x3447…345c at0010 = ╱f20500╱ // 0x3457 @0x10
0x3447…345c at0013 = ╱ee╱ ) ╱ // 0x345a @0x13
0x3447…345c at0014 = EOL // 0x345b @0x14
0x3447…345c }
0x345c…3479 ca67 02080 LET R ( 3 ) := R ( 1 ) - R ( 2 )
0x345c…3479 LineComal80 {
0x345c…3479 ptr = 0xca67 // 0x345c @0x0
0x345c…3479 lno = 0x0820 // 0x345e @0x2
0x345c…3479 at0004 = ╱86╱ LET ╱ // 0x3460 @0x4
0x345c…3479 at0005 = ╱52╱R╱ // 0x3461 @0x5
0x345c…3479 at0006 = ╱ed╱ ( ╱ // 0x3462 @0x6
0x345c…3479 at0007 = ╱33╱3╱ // 0x3463 @0x7
0x345c…3479 at0008 = ╱f20300╱ // 0x3464 @0x8
0x345c…3479 at000b = ╱ee╱ ) ╱ // 0x3467 @0xb
0x345c…3479 at000c = ╱f0╱ := ╱ // 0x3468 @0xc
0x345c…3479 at000d = ╱52╱R╱ // 0x3469 @0xd
0x345c…3479 at000e = ╱ed╱ ( ╱ // 0x346a @0xe
0x345c…3479 at000f = ╱31╱1╱ // 0x346b @0xf
0x345c…3479 at0010 = ╱f20100╱ // 0x346c @0x10
0x345c…3479 at0013 = ╱ee╱ ) ╱ // 0x346f @0x13
0x345c…3479 at0014 = ╱e6╱ - ╱ // 0x3470 @0x14
0x345c…3479 at0015 = ╱52╱R╱ // 0x3471 @0x15
0x345c…3479 at0016 = ╱ed╱ ( ╱ // 0x3472 @0x16
0x345c…3479 at0017 = ╱32╱2╱ // 0x3473 @0x17
0x345c…3479 at0018 = ╱f20200╱ // 0x3474 @0x18
0x345c…3479 at001b = ╱ee╱ ) ╱ // 0x3477 @0x1b
0x345c…3479 at001c = EOL // 0x3478 @0x1c
0x345c…3479 }
0x3479…348f ca7d 02090 LET R ( 4 ) := X ( 20 )
0x3479…348f LineComal80 {
0x3479…348f ptr = 0xca7d // 0x3479 @0x0
0x3479…348f lno = 0x082a // 0x347b @0x2
0x3479…348f at0004 = ╱86╱ LET ╱ // 0x347d @0x4
0x3479…348f at0005 = ╱52╱R╱ // 0x347e @0x5
0x3479…348f at0006 = ╱ed╱ ( ╱ // 0x347f @0x6
0x3479…348f at0007 = ╱34╱4╱ // 0x3480 @0x7
0x3479…348f at0008 = ╱f20400╱ // 0x3481 @0x8
0x3479…348f at000b = ╱ee╱ ) ╱ // 0x3484 @0xb
0x3479…348f at000c = ╱f0╱ := ╱ // 0x3485 @0xc
0x3479…348f at000d = ╱58╱X╱ // 0x3486 @0xd
0x3479…348f at000e = ╱ed╱ ( ╱ // 0x3487 @0xe
0x3479…348f at000f = ╱32╱2╱ // 0x3488 @0xf
0x3479…348f at0010 = ╱30╱0╱ // 0x3489 @0x10
0x3479…348f at0011 = ╱f21400╱ // 0x348a @0x11
0x3479…348f at0014 = ╱ee╱ ) ╱ // 0x348d @0x14
0x3479…348f at0015 = EOL // 0x348e @0x15
0x3479…348f }
0x348f…34ac ca9a 02100 LET R ( 5 ) := R ( 3 ) - R ( 4 )
0x348f…34ac LineComal80 {
0x348f…34ac ptr = 0xca9a // 0x348f @0x0
0x348f…34ac lno = 0x0834 // 0x3491 @0x2
0x348f…34ac at0004 = ╱86╱ LET ╱ // 0x3493 @0x4
0x348f…34ac at0005 = ╱52╱R╱ // 0x3494 @0x5
0x348f…34ac at0006 = ╱ed╱ ( ╱ // 0x3495 @0x6
0x348f…34ac at0007 = ╱35╱5╱ // 0x3496 @0x7
0x348f…34ac at0008 = ╱f20500╱ // 0x3497 @0x8
0x348f…34ac at000b = ╱ee╱ ) ╱ // 0x349a @0xb
0x348f…34ac at000c = ╱f0╱ := ╱ // 0x349b @0xc
0x348f…34ac at000d = ╱52╱R╱ // 0x349c @0xd
0x348f…34ac at000e = ╱ed╱ ( ╱ // 0x349d @0xe
0x348f…34ac at000f = ╱33╱3╱ // 0x349e @0xf
0x348f…34ac at0010 = ╱f20300╱ // 0x349f @0x10
0x348f…34ac at0013 = ╱ee╱ ) ╱ // 0x34a2 @0x13
0x348f…34ac at0014 = ╱e6╱ - ╱ // 0x34a3 @0x14
0x348f…34ac at0015 = ╱52╱R╱ // 0x34a4 @0x15
0x348f…34ac at0016 = ╱ed╱ ( ╱ // 0x34a5 @0x16
0x348f…34ac at0017 = ╱34╱4╱ // 0x34a6 @0x17
0x348f…34ac at0018 = ╱f20400╱ // 0x34a7 @0x18
0x348f…34ac at001b = ╱ee╱ ) ╱ // 0x34aa @0x1b
0x348f…34ac at001c = EOL // 0x34ab @0x1c
0x348f…34ac }
0x34ac…34c1 caaf 02110 LET R ( 6 ) := X ( 9 )
0x34ac…34c1 LineComal80 {
0x34ac…34c1 ptr = 0xcaaf // 0x34ac @0x0
0x34ac…34c1 lno = 0x083e // 0x34ae @0x2
0x34ac…34c1 at0004 = ╱86╱ LET ╱ // 0x34b0 @0x4
0x34ac…34c1 at0005 = ╱52╱R╱ // 0x34b1 @0x5
0x34ac…34c1 at0006 = ╱ed╱ ( ╱ // 0x34b2 @0x6
0x34ac…34c1 at0007 = ╱36╱6╱ // 0x34b3 @0x7
0x34ac…34c1 at0008 = ╱f20600╱ // 0x34b4 @0x8
0x34ac…34c1 at000b = ╱ee╱ ) ╱ // 0x34b7 @0xb
0x34ac…34c1 at000c = ╱f0╱ := ╱ // 0x34b8 @0xc
0x34ac…34c1 at000d = ╱58╱X╱ // 0x34b9 @0xd
0x34ac…34c1 at000e = ╱ed╱ ( ╱ // 0x34ba @0xe
0x34ac…34c1 at000f = ╱39╱9╱ // 0x34bb @0xf
0x34ac…34c1 at0010 = ╱f20900╱ // 0x34bc @0x10
0x34ac…34c1 at0013 = ╱ee╱ ) ╱ // 0x34bf @0x13
0x34ac…34c1 at0014 = EOL // 0x34c0 @0x14
0x34ac…34c1 }
0x34c1…34de cacc 02120 LET R ( 7 ) := R ( 5 ) - R ( 6 )
0x34c1…34de LineComal80 {
0x34c1…34de ptr = 0xcacc // 0x34c1 @0x0
0x34c1…34de lno = 0x0848 // 0x34c3 @0x2
0x34c1…34de at0004 = ╱86╱ LET ╱ // 0x34c5 @0x4
0x34c1…34de at0005 = ╱52╱R╱ // 0x34c6 @0x5
0x34c1…34de at0006 = ╱ed╱ ( ╱ // 0x34c7 @0x6
0x34c1…34de at0007 = ╱37╱7╱ // 0x34c8 @0x7
0x34c1…34de at0008 = ╱f20700╱ // 0x34c9 @0x8
0x34c1…34de at000b = ╱ee╱ ) ╱ // 0x34cc @0xb
0x34c1…34de at000c = ╱f0╱ := ╱ // 0x34cd @0xc
0x34c1…34de at000d = ╱52╱R╱ // 0x34ce @0xd
0x34c1…34de at000e = ╱ed╱ ( ╱ // 0x34cf @0xe
0x34c1…34de at000f = ╱35╱5╱ // 0x34d0 @0xf
0x34c1…34de at0010 = ╱f20500╱ // 0x34d1 @0x10
0x34c1…34de at0013 = ╱ee╱ ) ╱ // 0x34d4 @0x13
0x34c1…34de at0014 = ╱e6╱ - ╱ // 0x34d5 @0x14
0x34c1…34de at0015 = ╱52╱R╱ // 0x34d6 @0x15
0x34c1…34de at0016 = ╱ed╱ ( ╱ // 0x34d7 @0x16
0x34c1…34de at0017 = ╱36╱6╱ // 0x34d8 @0x17
0x34c1…34de at0018 = ╱f20600╱ // 0x34d9 @0x18
0x34c1…34de at001b = ╱ee╱ ) ╱ // 0x34dc @0x1b
0x34c1…34de at001c = EOL // 0x34dd @0x1c
0x34c1…34de }
0x34de…34f4 cae2 02130 LET R ( 8 ) := X ( 10 )
0x34de…34f4 LineComal80 {
0x34de…34f4 ptr = 0xcae2 // 0x34de @0x0
0x34de…34f4 lno = 0x0852 // 0x34e0 @0x2
0x34de…34f4 at0004 = ╱86╱ LET ╱ // 0x34e2 @0x4
0x34de…34f4 at0005 = ╱52╱R╱ // 0x34e3 @0x5
0x34de…34f4 at0006 = ╱ed╱ ( ╱ // 0x34e4 @0x6
0x34de…34f4 at0007 = ╱38╱8╱ // 0x34e5 @0x7
0x34de…34f4 at0008 = ╱f20800╱ // 0x34e6 @0x8
0x34de…34f4 at000b = ╱ee╱ ) ╱ // 0x34e9 @0xb
0x34de…34f4 at000c = ╱f0╱ := ╱ // 0x34ea @0xc
0x34de…34f4 at000d = ╱58╱X╱ // 0x34eb @0xd
0x34de…34f4 at000e = ╱ed╱ ( ╱ // 0x34ec @0xe
0x34de…34f4 at000f = ╱31╱1╱ // 0x34ed @0xf
0x34de…34f4 at0010 = ╱30╱0╱ // 0x34ee @0x10
0x34de…34f4 at0011 = ╱f20a00╱ // 0x34ef @0x11
0x34de…34f4 at0014 = ╱ee╱ ) ╱ // 0x34f2 @0x14
0x34de…34f4 at0015 = EOL // 0x34f3 @0x15
0x34de…34f4 }
0x34f4…3511 caff 02140 LET R ( 9 ) := R ( 7 ) - R ( 8 )
0x34f4…3511 LineComal80 {
0x34f4…3511 ptr = 0xcaff // 0x34f4 @0x0
0x34f4…3511 lno = 0x085c // 0x34f6 @0x2
0x34f4…3511 at0004 = ╱86╱ LET ╱ // 0x34f8 @0x4
0x34f4…3511 at0005 = ╱52╱R╱ // 0x34f9 @0x5
0x34f4…3511 at0006 = ╱ed╱ ( ╱ // 0x34fa @0x6
0x34f4…3511 at0007 = ╱39╱9╱ // 0x34fb @0x7
0x34f4…3511 at0008 = ╱f20900╱ // 0x34fc @0x8
0x34f4…3511 at000b = ╱ee╱ ) ╱ // 0x34ff @0xb
0x34f4…3511 at000c = ╱f0╱ := ╱ // 0x3500 @0xc
0x34f4…3511 at000d = ╱52╱R╱ // 0x3501 @0xd
0x34f4…3511 at000e = ╱ed╱ ( ╱ // 0x3502 @0xe
0x34f4…3511 at000f = ╱37╱7╱ // 0x3503 @0xf
0x34f4…3511 at0010 = ╱f20700╱ // 0x3504 @0x10
0x34f4…3511 at0013 = ╱ee╱ ) ╱ // 0x3507 @0x13
0x34f4…3511 at0014 = ╱e6╱ - ╱ // 0x3508 @0x14
0x34f4…3511 at0015 = ╱52╱R╱ // 0x3509 @0x15
0x34f4…3511 at0016 = ╱ed╱ ( ╱ // 0x350a @0x16
0x34f4…3511 at0017 = ╱38╱8╱ // 0x350b @0x17
0x34f4…3511 at0018 = ╱f20800╱ // 0x350c @0x18
0x34f4…3511 at001b = ╱ee╱ ) ╱ // 0x350f @0x1b
0x34f4…3511 at001c = EOL // 0x3510 @0x1c
0x34f4…3511 }
0x3511…3528 cb16 02150 LET R ( 10 ) := X ( 11 )
0x3511…3528 LineComal80 {
0x3511…3528 ptr = 0xcb16 // 0x3511 @0x0
0x3511…3528 lno = 0x0866 // 0x3513 @0x2
0x3511…3528 at0004 = ╱86╱ LET ╱ // 0x3515 @0x4
0x3511…3528 at0005 = ╱52╱R╱ // 0x3516 @0x5
0x3511…3528 at0006 = ╱ed╱ ( ╱ // 0x3517 @0x6
0x3511…3528 at0007 = ╱31╱1╱ // 0x3518 @0x7
0x3511…3528 at0008 = ╱30╱0╱ // 0x3519 @0x8
0x3511…3528 at0009 = ╱f20a00╱ // 0x351a @0x9
0x3511…3528 at000c = ╱ee╱ ) ╱ // 0x351d @0xc
0x3511…3528 at000d = ╱f0╱ := ╱ // 0x351e @0xd
0x3511…3528 at000e = ╱58╱X╱ // 0x351f @0xe
0x3511…3528 at000f = ╱ed╱ ( ╱ // 0x3520 @0xf
0x3511…3528 at0010 = ╱31╱1╱ // 0x3521 @0x10
0x3511…3528 at0011 = ╱31╱1╱ // 0x3522 @0x11
0x3511…3528 at0012 = ╱f20b00╱ // 0x3523 @0x12
0x3511…3528 at0015 = ╱ee╱ ) ╱ // 0x3526 @0x15
0x3511…3528 at0016 = EOL // 0x3527 @0x16
0x3511…3528 }
0x3528…3547 cb35 02160 LET R ( 11 ) := R ( 9 ) - R ( 10 )
0x3528…3547 LineComal80 {
0x3528…3547 ptr = 0xcb35 // 0x3528 @0x0
0x3528…3547 lno = 0x0870 // 0x352a @0x2
0x3528…3547 at0004 = ╱86╱ LET ╱ // 0x352c @0x4
0x3528…3547 at0005 = ╱52╱R╱ // 0x352d @0x5
0x3528…3547 at0006 = ╱ed╱ ( ╱ // 0x352e @0x6
0x3528…3547 at0007 = ╱31╱1╱ // 0x352f @0x7
0x3528…3547 at0008 = ╱31╱1╱ // 0x3530 @0x8
0x3528…3547 at0009 = ╱f20b00╱ // 0x3531 @0x9
0x3528…3547 at000c = ╱ee╱ ) ╱ // 0x3534 @0xc
0x3528…3547 at000d = ╱f0╱ := ╱ // 0x3535 @0xd
0x3528…3547 at000e = ╱52╱R╱ // 0x3536 @0xe
0x3528…3547 at000f = ╱ed╱ ( ╱ // 0x3537 @0xf
0x3528…3547 at0010 = ╱39╱9╱ // 0x3538 @0x10
0x3528…3547 at0011 = ╱f20900╱ // 0x3539 @0x11
0x3528…3547 at0014 = ╱ee╱ ) ╱ // 0x353c @0x14
0x3528…3547 at0015 = ╱e6╱ - ╱ // 0x353d @0x15
0x3528…3547 at0016 = ╱52╱R╱ // 0x353e @0x16
0x3528…3547 at0017 = ╱ed╱ ( ╱ // 0x353f @0x17
0x3528…3547 at0018 = ╱31╱1╱ // 0x3540 @0x18
0x3528…3547 at0019 = ╱30╱0╱ // 0x3541 @0x19
0x3528…3547 at001a = ╱f20a00╱ // 0x3542 @0x1a
0x3528…3547 at001d = ╱ee╱ ) ╱ // 0x3545 @0x1d
0x3528…3547 at001e = EOL // 0x3546 @0x1e
0x3528…3547 }
0x3547…355e cb4c 02170 LET R ( 12 ) := X ( 25 )
0x3547…355e LineComal80 {
0x3547…355e ptr = 0xcb4c // 0x3547 @0x0
0x3547…355e lno = 0x087a // 0x3549 @0x2
0x3547…355e at0004 = ╱86╱ LET ╱ // 0x354b @0x4
0x3547…355e at0005 = ╱52╱R╱ // 0x354c @0x5
0x3547…355e at0006 = ╱ed╱ ( ╱ // 0x354d @0x6
0x3547…355e at0007 = ╱31╱1╱ // 0x354e @0x7
0x3547…355e at0008 = ╱32╱2╱ // 0x354f @0x8
0x3547…355e at0009 = ╱f20c00╱ // 0x3550 @0x9
0x3547…355e at000c = ╱ee╱ ) ╱ // 0x3553 @0xc
0x3547…355e at000d = ╱f0╱ := ╱ // 0x3554 @0xd
0x3547…355e at000e = ╱58╱X╱ // 0x3555 @0xe
0x3547…355e at000f = ╱ed╱ ( ╱ // 0x3556 @0xf
0x3547…355e at0010 = ╱32╱2╱ // 0x3557 @0x10
0x3547…355e at0011 = ╱35╱5╱ // 0x3558 @0x11
0x3547…355e at0012 = ╱f21900╱ // 0x3559 @0x12
0x3547…355e at0015 = ╱ee╱ ) ╱ // 0x355c @0x15
0x3547…355e at0016 = EOL // 0x355d @0x16
0x3547…355e }
0x355e…357e cb6c 02180 LET R ( 13 ) := R ( 11 ) - R ( 12 )
0x355e…357e LineComal80 {
0x355e…357e ptr = 0xcb6c // 0x355e @0x0
0x355e…357e lno = 0x0884 // 0x3560 @0x2
0x355e…357e at0004 = ╱86╱ LET ╱ // 0x3562 @0x4
0x355e…357e at0005 = ╱52╱R╱ // 0x3563 @0x5
0x355e…357e at0006 = ╱ed╱ ( ╱ // 0x3564 @0x6
0x355e…357e at0007 = ╱31╱1╱ // 0x3565 @0x7
0x355e…357e at0008 = ╱33╱3╱ // 0x3566 @0x8
0x355e…357e at0009 = ╱f20d00╱ // 0x3567 @0x9
0x355e…357e at000c = ╱ee╱ ) ╱ // 0x356a @0xc
0x355e…357e at000d = ╱f0╱ := ╱ // 0x356b @0xd
0x355e…357e at000e = ╱52╱R╱ // 0x356c @0xe
0x355e…357e at000f = ╱ed╱ ( ╱ // 0x356d @0xf
0x355e…357e at0010 = ╱31╱1╱ // 0x356e @0x10
0x355e…357e at0011 = ╱31╱1╱ // 0x356f @0x11
0x355e…357e at0012 = ╱f20b00╱ // 0x3570 @0x12
0x355e…357e at0015 = ╱ee╱ ) ╱ // 0x3573 @0x15
0x355e…357e at0016 = ╱e6╱ - ╱ // 0x3574 @0x16
0x355e…357e at0017 = ╱52╱R╱ // 0x3575 @0x17
0x355e…357e at0018 = ╱ed╱ ( ╱ // 0x3576 @0x18
0x355e…357e at0019 = ╱31╱1╱ // 0x3577 @0x19
0x355e…357e at001a = ╱32╱2╱ // 0x3578 @0x1a
0x355e…357e at001b = ╱f20c00╱ // 0x3579 @0x1b
0x355e…357e at001e = ╱ee╱ ) ╱ // 0x357c @0x1e
0x355e…357e at001f = EOL // 0x357d @0x1f
0x355e…357e }
0x357e…3594 cb82 02190 LET X ( 26 ) := R ( 5 )
0x357e…3594 LineComal80 {
0x357e…3594 ptr = 0xcb82 // 0x357e @0x0
0x357e…3594 lno = 0x088e // 0x3580 @0x2
0x357e…3594 at0004 = ╱86╱ LET ╱ // 0x3582 @0x4
0x357e…3594 at0005 = ╱58╱X╱ // 0x3583 @0x5
0x357e…3594 at0006 = ╱ed╱ ( ╱ // 0x3584 @0x6
0x357e…3594 at0007 = ╱32╱2╱ // 0x3585 @0x7
0x357e…3594 at0008 = ╱36╱6╱ // 0x3586 @0x8
0x357e…3594 at0009 = ╱f21a00╱ // 0x3587 @0x9
0x357e…3594 at000c = ╱ee╱ ) ╱ // 0x358a @0xc
0x357e…3594 at000d = ╱f0╱ := ╱ // 0x358b @0xd
0x357e…3594 at000e = ╱52╱R╱ // 0x358c @0xe
0x357e…3594 at000f = ╱ed╱ ( ╱ // 0x358d @0xf
0x357e…3594 at0010 = ╱35╱5╱ // 0x358e @0x10
0x357e…3594 at0011 = ╱f20500╱ // 0x358f @0x11
0x357e…3594 at0014 = ╱ee╱ ) ╱ // 0x3592 @0x14
0x357e…3594 at0015 = EOL // 0x3593 @0x15
0x357e…3594 }
0x3594…35c5 cbb3 02200 LET R ( 14 ) := ( R ( 9 ) - X ( 25 ) ) * 100 / X ( 18 )
0x3594…35c5 LineComal80 {
0x3594…35c5 ptr = 0xcbb3 // 0x3594 @0x0
0x3594…35c5 lno = 0x0898 // 0x3596 @0x2
0x3594…35c5 at0004 = ╱86╱ LET ╱ // 0x3598 @0x4
0x3594…35c5 at0005 = ╱52╱R╱ // 0x3599 @0x5
0x3594…35c5 at0006 = ╱ed╱ ( ╱ // 0x359a @0x6
0x3594…35c5 at0007 = ╱31╱1╱ // 0x359b @0x7
0x3594…35c5 at0008 = ╱34╱4╱ // 0x359c @0x8
0x3594…35c5 at0009 = ╱f20e00╱ // 0x359d @0x9
0x3594…35c5 at000c = ╱ee╱ ) ╱ // 0x35a0 @0xc
0x3594…35c5 at000d = ╱f0╱ := ╱ // 0x35a1 @0xd
0x3594…35c5 at000e = ╱ed╱ ( ╱ // 0x35a2 @0xe
0x3594…35c5 at000f = ╱52╱R╱ // 0x35a3 @0xf
0x3594…35c5 at0010 = ╱ed╱ ( ╱ // 0x35a4 @0x10
0x3594…35c5 at0011 = ╱39╱9╱ // 0x35a5 @0x11
0x3594…35c5 at0012 = ╱f20900╱ // 0x35a6 @0x12
0x3594…35c5 at0015 = ╱ee╱ ) ╱ // 0x35a9 @0x15
0x3594…35c5 at0016 = ╱e6╱ - ╱ // 0x35aa @0x16
0x3594…35c5 at0017 = ╱58╱X╱ // 0x35ab @0x17
0x3594…35c5 at0018 = ╱ed╱ ( ╱ // 0x35ac @0x18
0x3594…35c5 at0019 = ╱32╱2╱ // 0x35ad @0x19
0x3594…35c5 at001a = ╱35╱5╱ // 0x35ae @0x1a
0x3594…35c5 at001b = ╱f21900╱ // 0x35af @0x1b
0x3594…35c5 at001e = ╱ee╱ ) ╱ // 0x35b2 @0x1e
0x3594…35c5 at001f = ╱ee╱ ) ╱ // 0x35b3 @0x1f
0x3594…35c5 at0020 = ╱e7╱ * ╱ // 0x35b4 @0x20
0x3594…35c5 at0021 = ╱31╱1╱ // 0x35b5 @0x21
0x3594…35c5 at0022 = ╱30╱0╱ // 0x35b6 @0x22
0x3594…35c5 at0023 = ╱30╱0╱ // 0x35b7 @0x23
0x3594…35c5 at0024 = ╱f26400╱ // 0x35b8 @0x24
0x3594…35c5 at0027 = ╱e8╱ / ╱ // 0x35bb @0x27
0x3594…35c5 at0028 = ╱58╱X╱ // 0x35bc @0x28
0x3594…35c5 at0029 = ╱ed╱ ( ╱ // 0x35bd @0x29
0x3594…35c5 at002a = ╱31╱1╱ // 0x35be @0x2a
0x3594…35c5 at002b = ╱38╱8╱ // 0x35bf @0x2b
0x3594…35c5 at002c = ╱f21200╱ // 0x35c0 @0x2c
0x3594…35c5 at002f = ╱ee╱ ) ╱ // 0x35c3 @0x2f
0x3594…35c5 at0030 = EOL // 0x35c4 @0x30
0x3594…35c5 }
0x35c5…35f7 cbe5 02210 LET R ( 15 ) := ( R ( 11 ) - X ( 25 ) ) * 100 / X ( 19 )
0x35c5…35f7 LineComal80 {
0x35c5…35f7 ptr = 0xcbe5 // 0x35c5 @0x0
0x35c5…35f7 lno = 0x08a2 // 0x35c7 @0x2
0x35c5…35f7 at0004 = ╱86╱ LET ╱ // 0x35c9 @0x4
0x35c5…35f7 at0005 = ╱52╱R╱ // 0x35ca @0x5
0x35c5…35f7 at0006 = ╱ed╱ ( ╱ // 0x35cb @0x6
0x35c5…35f7 at0007 = ╱31╱1╱ // 0x35cc @0x7
0x35c5…35f7 at0008 = ╱35╱5╱ // 0x35cd @0x8
0x35c5…35f7 at0009 = ╱f20f00╱ // 0x35ce @0x9
0x35c5…35f7 at000c = ╱ee╱ ) ╱ // 0x35d1 @0xc
0x35c5…35f7 at000d = ╱f0╱ := ╱ // 0x35d2 @0xd
0x35c5…35f7 at000e = ╱ed╱ ( ╱ // 0x35d3 @0xe
0x35c5…35f7 at000f = ╱52╱R╱ // 0x35d4 @0xf
0x35c5…35f7 at0010 = ╱ed╱ ( ╱ // 0x35d5 @0x10
0x35c5…35f7 at0011 = ╱31╱1╱ // 0x35d6 @0x11
0x35c5…35f7 at0012 = ╱31╱1╱ // 0x35d7 @0x12
0x35c5…35f7 at0013 = ╱f20b00╱ // 0x35d8 @0x13
0x35c5…35f7 at0016 = ╱ee╱ ) ╱ // 0x35db @0x16
0x35c5…35f7 at0017 = ╱e6╱ - ╱ // 0x35dc @0x17
0x35c5…35f7 at0018 = ╱58╱X╱ // 0x35dd @0x18
0x35c5…35f7 at0019 = ╱ed╱ ( ╱ // 0x35de @0x19
0x35c5…35f7 at001a = ╱32╱2╱ // 0x35df @0x1a
0x35c5…35f7 at001b = ╱35╱5╱ // 0x35e0 @0x1b
0x35c5…35f7 at001c = ╱f21900╱ // 0x35e1 @0x1c
0x35c5…35f7 at001f = ╱ee╱ ) ╱ // 0x35e4 @0x1f
0x35c5…35f7 at0020 = ╱ee╱ ) ╱ // 0x35e5 @0x20
0x35c5…35f7 at0021 = ╱e7╱ * ╱ // 0x35e6 @0x21
0x35c5…35f7 at0022 = ╱31╱1╱ // 0x35e7 @0x22
0x35c5…35f7 at0023 = ╱30╱0╱ // 0x35e8 @0x23
0x35c5…35f7 at0024 = ╱30╱0╱ // 0x35e9 @0x24
0x35c5…35f7 at0025 = ╱f26400╱ // 0x35ea @0x25
0x35c5…35f7 at0028 = ╱e8╱ / ╱ // 0x35ed @0x28
0x35c5…35f7 at0029 = ╱58╱X╱ // 0x35ee @0x29
0x35c5…35f7 at002a = ╱ed╱ ( ╱ // 0x35ef @0x2a
0x35c5…35f7 at002b = ╱31╱1╱ // 0x35f0 @0x2b
0x35c5…35f7 at002c = ╱39╱9╱ // 0x35f1 @0x2c
0x35c5…35f7 at002d = ╱f21300╱ // 0x35f2 @0x2d
0x35c5…35f7 at0030 = ╱ee╱ ) ╱ // 0x35f5 @0x30
0x35c5…35f7 at0031 = EOL // 0x35f6 @0x31
0x35c5…35f7 }
0x35f7…360a cbf8 02220 FOR I := 1 TO DO
0x35f7…360a LineComal80 {
0x35f7…360a ptr = 0xcbf8 // 0x35f7 @0x0
0x35f7…360a lno = 0x08ac // 0x35f9 @0x2
0x35f7…360a at0004 = ╱8320╱ FOR ╱ // 0x35fb @0x4
0x35f7…360a at0006 = ╱49╱I╱ // 0x35fd @0x6
0x35f7…360a at0007 = ╱f0╱ := ╱ // 0x35fe @0x7
0x35f7…360a at0008 = ╱31╱1╱ // 0x35ff @0x8
0x35f7…360a at0009 = ╱f20100╱ // 0x3600 @0x9
0x35f7…360a at000c = ╱b734╱ TO ╱ // 0x3603 @0xc
0x35f7…360a at000e = ╱f20400╱ // 0x3605 @0xe
0x35f7…360a at0011 = ╱bb╱ DO ╱ // 0x3608 @0x11
0x35f7…360a at0012 = EOL // 0x3609 @0x12
0x35f7…360a }
0x360a…3637 d72f 02230 LET R ( 15 + I ) := ( X ( I ) - X ( 4 + I ) ) * 100 / X ( I )
0x360a…3637 LineComal80 {
0x360a…3637 ptr = 0xd72f // 0x360a @0x0
0x360a…3637 lno = 0x08b6 // 0x360c @0x2
0x360a…3637 at0004 = ╱86╱ LET ╱ // 0x360e @0x4
0x360a…3637 at0005 = ╱52╱R╱ // 0x360f @0x5
0x360a…3637 at0006 = ╱ed╱ ( ╱ // 0x3610 @0x6
0x360a…3637 at0007 = ╱31╱1╱ // 0x3611 @0x7
0x360a…3637 at0008 = ╱35╱5╱ // 0x3612 @0x8
0x360a…3637 at0009 = ╱f20f00╱ // 0x3613 @0x9
0x360a…3637 at000c = ╱e5╱ + ╱ // 0x3616 @0xc
0x360a…3637 at000d = ╱49╱I╱ // 0x3617 @0xd
0x360a…3637 at000e = ╱ee╱ ) ╱ // 0x3618 @0xe
0x360a…3637 at000f = ╱f0╱ := ╱ // 0x3619 @0xf
0x360a…3637 at0010 = ╱ed╱ ( ╱ // 0x361a @0x10
0x360a…3637 at0011 = ╱58╱X╱ // 0x361b @0x11
0x360a…3637 at0012 = ╱ed╱ ( ╱ // 0x361c @0x12
0x360a…3637 at0013 = ╱49╱I╱ // 0x361d @0x13
0x360a…3637 at0014 = ╱ee╱ ) ╱ // 0x361e @0x14
0x360a…3637 at0015 = ╱e6╱ - ╱ // 0x361f @0x15
0x360a…3637 at0016 = ╱58╱X╱ // 0x3620 @0x16
0x360a…3637 at0017 = ╱ed╱ ( ╱ // 0x3621 @0x17
0x360a…3637 at0018 = ╱34╱4╱ // 0x3622 @0x18
0x360a…3637 at0019 = ╱f20400╱ // 0x3623 @0x19
0x360a…3637 at001c = ╱e5╱ + ╱ // 0x3626 @0x1c
0x360a…3637 at001d = ╱49╱I╱ // 0x3627 @0x1d
0x360a…3637 at001e = ╱ee╱ ) ╱ // 0x3628 @0x1e
0x360a…3637 at001f = ╱ee╱ ) ╱ // 0x3629 @0x1f
0x360a…3637 at0020 = ╱e7╱ * ╱ // 0x362a @0x20
0x360a…3637 at0021 = ╱31╱1╱ // 0x362b @0x21
0x360a…3637 at0022 = ╱30╱0╱ // 0x362c @0x22
0x360a…3637 at0023 = ╱30╱0╱ // 0x362d @0x23
0x360a…3637 at0024 = ╱f26400╱ // 0x362e @0x24
0x360a…3637 at0027 = ╱e8╱ / ╱ // 0x3631 @0x27
0x360a…3637 at0028 = ╱58╱X╱ // 0x3632 @0x28
0x360a…3637 at0029 = ╱ed╱ ( ╱ // 0x3633 @0x29
0x360a…3637 at002a = ╱49╱I╱ // 0x3634 @0x2a
0x360a…3637 at002b = ╱ee╱ ) ╱ // 0x3635 @0x2b
0x360a…3637 at002c = EOL // 0x3636 @0x2c
0x360a…3637 }
0x3637…3657 cc45 02490 LET R ( 19 + I ) := X ( 25 + I ) / X ( I )
0x3637…3657 LineComal80 {
0x3637…3657 ptr = 0xcc45 // 0x3637 @0x0
0x3637…3657 lno = 0x09ba // 0x3639 @0x2
0x3637…3657 at0004 = ╱86╱ LET ╱ // 0x363b @0x4
0x3637…3657 at0005 = ╱52╱R╱ // 0x363c @0x5
0x3637…3657 at0006 = ╱ed╱ ( ╱ // 0x363d @0x6
0x3637…3657 at0007 = ╱31╱1╱ // 0x363e @0x7
0x3637…3657 at0008 = ╱39╱9╱ // 0x363f @0x8
0x3637…3657 at0009 = ╱f21300╱ // 0x3640 @0x9
0x3637…3657 at000c = ╱e5╱ + ╱ // 0x3643 @0xc
0x3637…3657 at000d = ╱49╱I╱ // 0x3644 @0xd
0x3637…3657 at000e = ╱ee╱ ) ╱ // 0x3645 @0xe
0x3637…3657 at000f = ╱f0╱ := ╱ // 0x3646 @0xf
0x3637…3657 at0010 = ╱58╱X╱ // 0x3647 @0x10
0x3637…3657 at0011 = ╱ed╱ ( ╱ // 0x3648 @0x11
0x3637…3657 at0012 = ╱32╱2╱ // 0x3649 @0x12
0x3637…3657 at0013 = ╱35╱5╱ // 0x364a @0x13
0x3637…3657 at0014 = ╱f21900╱ // 0x364b @0x14
0x3637…3657 at0017 = ╱e5╱ + ╱ // 0x364e @0x17
0x3637…3657 at0018 = ╱49╱I╱ // 0x364f @0x18
0x3637…3657 at0019 = ╱ee╱ ) ╱ // 0x3650 @0x19
0x3637…3657 at001a = ╱e8╱ / ╱ // 0x3651 @0x1a
0x3637…3657 at001b = ╱58╱X╱ // 0x3652 @0x1b
0x3637…3657 at001c = ╱ed╱ ( ╱ // 0x3653 @0x1c
0x3637…3657 at001d = ╱49╱I╱ // 0x3654 @0x1d
0x3637…3657 at001e = ╱ee╱ ) ╱ // 0x3655 @0x1e
0x3637…3657 at001f = EOL // 0x3656 @0x1f
0x3637…3657 }
0x3657…365e d880 02250 NEXT I
0x3657…365e LineComal80 {
0x3657…365e ptr = 0xd880 // 0x3657 @0x0
0x3657…365e lno = 0x08ca // 0x3659 @0x2
0x3657…365e at0004 = ╱84╱ NEXT ╱ // 0x365b @0x4
0x3657…365e at0005 = ╱49╱I╱ // 0x365c @0x5
0x3657…365e at0006 = EOL // 0x365d @0x6
0x3657…365e }
0x365e…368f cc7d 02510 LET R ( 24 ) := ( R ( 9 ) - R ( 10 ) ) * 100 / R ( 20 )
0x365e…368f LineComal80 {
0x365e…368f ptr = 0xcc7d // 0x365e @0x0
0x365e…368f lno = 0x09ce // 0x3660 @0x2
0x365e…368f at0004 = ╱86╱ LET ╱ // 0x3662 @0x4
0x365e…368f at0005 = ╱52╱R╱ // 0x3663 @0x5
0x365e…368f at0006 = ╱ed╱ ( ╱ // 0x3664 @0x6
0x365e…368f at0007 = ╱32╱2╱ // 0x3665 @0x7
0x365e…368f at0008 = ╱34╱4╱ // 0x3666 @0x8
0x365e…368f at0009 = ╱f21800╱ // 0x3667 @0x9
0x365e…368f at000c = ╱ee╱ ) ╱ // 0x366a @0xc
0x365e…368f at000d = ╱f0╱ := ╱ // 0x366b @0xd
0x365e…368f at000e = ╱ed╱ ( ╱ // 0x366c @0xe
0x365e…368f at000f = ╱52╱R╱ // 0x366d @0xf
0x365e…368f at0010 = ╱ed╱ ( ╱ // 0x366e @0x10
0x365e…368f at0011 = ╱39╱9╱ // 0x366f @0x11
0x365e…368f at0012 = ╱f20900╱ // 0x3670 @0x12
0x365e…368f at0015 = ╱ee╱ ) ╱ // 0x3673 @0x15
0x365e…368f at0016 = ╱e6╱ - ╱ // 0x3674 @0x16
0x365e…368f at0017 = ╱52╱R╱ // 0x3675 @0x17
0x365e…368f at0018 = ╱ed╱ ( ╱ // 0x3676 @0x18
0x365e…368f at0019 = ╱31╱1╱ // 0x3677 @0x19
0x365e…368f at001a = ╱30╱0╱ // 0x3678 @0x1a
0x365e…368f at001b = ╱f20a00╱ // 0x3679 @0x1b
0x365e…368f at001e = ╱ee╱ ) ╱ // 0x367c @0x1e
0x365e…368f at001f = ╱ee╱ ) ╱ // 0x367d @0x1f
0x365e…368f at0020 = ╱e7╱ * ╱ // 0x367e @0x20
0x365e…368f at0021 = ╱31╱1╱ // 0x367f @0x21
0x365e…368f at0022 = ╱30╱0╱ // 0x3680 @0x22
0x365e…368f at0023 = ╱30╱0╱ // 0x3681 @0x23
0x365e…368f at0024 = ╱f26400╱ // 0x3682 @0x24
0x365e…368f at0027 = ╱e8╱ / ╱ // 0x3685 @0x27
0x365e…368f at0028 = ╱52╱R╱ // 0x3686 @0x28
0x365e…368f at0029 = ╱ed╱ ( ╱ // 0x3687 @0x29
0x365e…368f at002a = ╱32╱2╱ // 0x3688 @0x2a
0x365e…368f at002b = ╱30╱0╱ // 0x3689 @0x2b
0x365e…368f at002c = ╱f21400╱ // 0x368a @0x2c
0x365e…368f at002f = ╱ee╱ ) ╱ // 0x368d @0x2f
0x365e…368f at0030 = EOL // 0x368e @0x30
0x365e…368f }
0x368f…36bf ccad 02270 LET R ( 25 ) := ( R ( 1 ) - R ( 24 ) ) * 100 / R ( 1 )
0x368f…36bf LineComal80 {
0x368f…36bf ptr = 0xccad // 0x368f @0x0
0x368f…36bf lno = 0x08de // 0x3691 @0x2
0x368f…36bf at0004 = ╱86╱ LET ╱ // 0x3693 @0x4
0x368f…36bf at0005 = ╱52╱R╱ // 0x3694 @0x5
0x368f…36bf at0006 = ╱ed╱ ( ╱ // 0x3695 @0x6
0x368f…36bf at0007 = ╱32╱2╱ // 0x3696 @0x7
0x368f…36bf at0008 = ╱35╱5╱ // 0x3697 @0x8
0x368f…36bf at0009 = ╱f21900╱ // 0x3698 @0x9
0x368f…36bf at000c = ╱ee╱ ) ╱ // 0x369b @0xc
0x368f…36bf at000d = ╱f0╱ := ╱ // 0x369c @0xd
0x368f…36bf at000e = ╱ed╱ ( ╱ // 0x369d @0xe
0x368f…36bf at000f = ╱52╱R╱ // 0x369e @0xf
0x368f…36bf at0010 = ╱ed╱ ( ╱ // 0x369f @0x10
0x368f…36bf at0011 = ╱31╱1╱ // 0x36a0 @0x11
0x368f…36bf at0012 = ╱f20100╱ // 0x36a1 @0x12
0x368f…36bf at0015 = ╱ee╱ ) ╱ // 0x36a4 @0x15
0x368f…36bf at0016 = ╱e6╱ - ╱ // 0x36a5 @0x16
0x368f…36bf at0017 = ╱52╱R╱ // 0x36a6 @0x17
0x368f…36bf at0018 = ╱ed╱ ( ╱ // 0x36a7 @0x18
0x368f…36bf at0019 = ╱32╱2╱ // 0x36a8 @0x19
0x368f…36bf at001a = ╱34╱4╱ // 0x36a9 @0x1a
0x368f…36bf at001b = ╱f21800╱ // 0x36aa @0x1b
0x368f…36bf at001e = ╱ee╱ ) ╱ // 0x36ad @0x1e
0x368f…36bf at001f = ╱ee╱ ) ╱ // 0x36ae @0x1f
0x368f…36bf at0020 = ╱e7╱ * ╱ // 0x36af @0x20
0x368f…36bf at0021 = ╱31╱1╱ // 0x36b0 @0x21
0x368f…36bf at0022 = ╱30╱0╱ // 0x36b1 @0x22
0x368f…36bf at0023 = ╱30╱0╱ // 0x36b2 @0x23
0x368f…36bf at0024 = ╱f26400╱ // 0x36b3 @0x24
0x368f…36bf at0027 = ╱e8╱ / ╱ // 0x36b6 @0x27
0x368f…36bf at0028 = ╱52╱R╱ // 0x36b7 @0x28
0x368f…36bf at0029 = ╱ed╱ ( ╱ // 0x36b8 @0x29
0x368f…36bf at002a = ╱31╱1╱ // 0x36b9 @0x2a
0x368f…36bf at002b = ╱f20100╱ // 0x36ba @0x2b
0x368f…36bf at002e = ╱ee╱ ) ╱ // 0x36bd @0x2e
0x368f…36bf at002f = EOL // 0x36be @0x2f
0x368f…36bf }
0x36bf…36d2 ccc0 02280 FOR I := 1 TO DO
0x36bf…36d2 LineComal80 {
0x36bf…36d2 ptr = 0xccc0 // 0x36bf @0x0
0x36bf…36d2 lno = 0x08e8 // 0x36c1 @0x2
0x36bf…36d2 at0004 = ╱8321╱ FOR ╱ // 0x36c3 @0x4
0x36bf…36d2 at0006 = ╱49╱I╱ // 0x36c5 @0x6
0x36bf…36d2 at0007 = ╱f0╱ := ╱ // 0x36c6 @0x7
0x36bf…36d2 at0008 = ╱31╱1╱ // 0x36c7 @0x8
0x36bf…36d2 at0009 = ╱f20100╱ // 0x36c8 @0x9
0x36bf…36d2 at000c = ╱b734╱ TO ╱ // 0x36cb @0xc
0x36bf…36d2 at000e = ╱f20400╱ // 0x36cd @0xe
0x36bf…36d2 at0011 = ╱bb╱ DO ╱ // 0x36d0 @0x11
0x36bf…36d2 at0012 = EOL // 0x36d1 @0x12
0x36bf…36d2 }
0x36d2…36f7 cce5 02290 LET R ( 25 + I ) := X ( 4 + I ) / X ( 11 + I )
0x36d2…36f7 LineComal80 {
0x36d2…36f7 ptr = 0xcce5 // 0x36d2 @0x0
0x36d2…36f7 lno = 0x08f2 // 0x36d4 @0x2
0x36d2…36f7 at0004 = ╱86╱ LET ╱ // 0x36d6 @0x4
0x36d2…36f7 at0005 = ╱52╱R╱ // 0x36d7 @0x5
0x36d2…36f7 at0006 = ╱ed╱ ( ╱ // 0x36d8 @0x6
0x36d2…36f7 at0007 = ╱32╱2╱ // 0x36d9 @0x7
0x36d2…36f7 at0008 = ╱35╱5╱ // 0x36da @0x8
0x36d2…36f7 at0009 = ╱f21900╱ // 0x36db @0x9
0x36d2…36f7 at000c = ╱e5╱ + ╱ // 0x36de @0xc
0x36d2…36f7 at000d = ╱49╱I╱ // 0x36df @0xd
0x36d2…36f7 at000e = ╱ee╱ ) ╱ // 0x36e0 @0xe
0x36d2…36f7 at000f = ╱f0╱ := ╱ // 0x36e1 @0xf
0x36d2…36f7 at0010 = ╱58╱X╱ // 0x36e2 @0x10
0x36d2…36f7 at0011 = ╱ed╱ ( ╱ // 0x36e3 @0x11
0x36d2…36f7 at0012 = ╱34╱4╱ // 0x36e4 @0x12
0x36d2…36f7 at0013 = ╱f20400╱ // 0x36e5 @0x13
0x36d2…36f7 at0016 = ╱e5╱ + ╱ // 0x36e8 @0x16
0x36d2…36f7 at0017 = ╱49╱I╱ // 0x36e9 @0x17
0x36d2…36f7 at0018 = ╱ee╱ ) ╱ // 0x36ea @0x18
0x36d2…36f7 at0019 = ╱e8╱ / ╱ // 0x36eb @0x19
0x36d2…36f7 at001a = ╱58╱X╱ // 0x36ec @0x1a
0x36d2…36f7 at001b = ╱ed╱ ( ╱ // 0x36ed @0x1b
0x36d2…36f7 at001c = ╱31╱1╱ // 0x36ee @0x1c
0x36d2…36f7 at001d = ╱31╱1╱ // 0x36ef @0x1d
0x36d2…36f7 at001e = ╱f20b00╱ // 0x36f0 @0x1e
0x36d2…36f7 at0021 = ╱e5╱ + ╱ // 0x36f3 @0x21
0x36d2…36f7 at0022 = ╱49╱I╱ // 0x36f4 @0x22
0x36d2…36f7 at0023 = ╱ee╱ ) ╱ // 0x36f5 @0x23
0x36d2…36f7 at0024 = EOL // 0x36f6 @0x24
0x36d2…36f7 }
0x36f7…36fe ccec 02300 NEXT I
0x36f7…36fe LineComal80 {
0x36f7…36fe ptr = 0xccec // 0x36f7 @0x0
0x36f7…36fe lno = 0x08fc // 0x36f9 @0x2
0x36f7…36fe at0004 = ╱84╱ NEXT ╱ // 0x36fb @0x4
0x36f7…36fe at0005 = ╱49╱I╱ // 0x36fc @0x5
0x36f7…36fe at0006 = EOL // 0x36fd @0x6
0x36f7…36fe }
0x36fe…372d cd1b 02310 LET R ( 30 ) := ( R ( 1 ) * 1.22 ) / X ( 16 )
0x36fe…372d LineComal80 {
0x36fe…372d ptr = 0xcd1b // 0x36fe @0x0
0x36fe…372d lno = 0x0906 // 0x3700 @0x2
0x36fe…372d at0004 = ╱86╱ LET ╱ // 0x3702 @0x4
0x36fe…372d at0005 = ╱52╱R╱ // 0x3703 @0x5
0x36fe…372d at0006 = ╱ed╱ ( ╱ // 0x3704 @0x6
0x36fe…372d at0007 = ╱33╱3╱ // 0x3705 @0x7
0x36fe…372d at0008 = ╱30╱0╱ // 0x3706 @0x8
0x36fe…372d at0009 = ╱f21e00╱ // 0x3707 @0x9
0x36fe…372d at000c = ╱ee╱ ) ╱ // 0x370a @0xc
0x36fe…372d at000d = ╱f0╱ := ╱ // 0x370b @0xd
0x36fe…372d at000e = ╱ed╱ ( ╱ // 0x370c @0xe
0x36fe…372d at000f = ╱52╱R╱ // 0x370d @0xf
0x36fe…372d at0010 = ╱ed╱ ( ╱ // 0x370e @0x10
0x36fe…372d at0011 = ╱31╱1╱ // 0x370f @0x11
0x36fe…372d at0012 = ╱f20100╱ // 0x3710 @0x12
0x36fe…372d at0015 = ╱ee╱ ) ╱ // 0x3713 @0x15
0x36fe…372d at0016 = ╱e7╱ * ╱ // 0x3714 @0x16
0x36fe…372d at0017 = ╱31╱1╱ // 0x3715 @0x17
0x36fe…372d at0018 = ╱2e╱.╱ // 0x3716 @0x18
0x36fe…372d at0019 = ╱32╱2╱ // 0x3717 @0x19
0x36fe…372d at001a = ╱32╱2╱ // 0x3718 @0x1a
0x36fe…372d at001b = ╱f88100000000002201╱ // 0x3719 @0x1b
0x36fe…372d at0024 = ╱ee╱ ) ╱ // 0x3722 @0x24
0x36fe…372d at0025 = ╱e8╱ / ╱ // 0x3723 @0x25
0x36fe…372d at0026 = ╱58╱X╱ // 0x3724 @0x26
0x36fe…372d at0027 = ╱ed╱ ( ╱ // 0x3725 @0x27
0x36fe…372d at0028 = ╱31╱1╱ // 0x3726 @0x28
0x36fe…372d at0029 = ╱36╱6╱ // 0x3727 @0x29
0x36fe…372d at002a = ╱f21000╱ // 0x3728 @0x2a
0x36fe…372d at002d = ╱ee╱ ) ╱ // 0x372b @0x2d
0x36fe…372d at002e = EOL // 0x372c @0x2e
0x36fe…372d }
0x372d…3772 cd60 02320 LET R ( 31 ) := ( ( ( X ( 5 ) + X ( 12 ) ) - X ( 21 ) ) * 1.22 ) / X ( 17 )
0x372d…3772 LineComal80 {
0x372d…3772 ptr = 0xcd60 // 0x372d @0x0
0x372d…3772 lno = 0x0910 // 0x372f @0x2
0x372d…3772 at0004 = ╱86╱ LET ╱ // 0x3731 @0x4
0x372d…3772 at0005 = ╱52╱R╱ // 0x3732 @0x5
0x372d…3772 at0006 = ╱ed╱ ( ╱ // 0x3733 @0x6
0x372d…3772 at0007 = ╱33╱3╱ // 0x3734 @0x7
0x372d…3772 at0008 = ╱31╱1╱ // 0x3735 @0x8
0x372d…3772 at0009 = ╱f21f00╱ // 0x3736 @0x9
0x372d…3772 at000c = ╱ee╱ ) ╱ // 0x3739 @0xc
0x372d…3772 at000d = ╱f0╱ := ╱ // 0x373a @0xd
0x372d…3772 at000e = ╱ed╱ ( ╱ // 0x373b @0xe
0x372d…3772 at000f = ╱ed╱ ( ╱ // 0x373c @0xf
0x372d…3772 at0010 = ╱ed╱ ( ╱ // 0x373d @0x10
0x372d…3772 at0011 = ╱58╱X╱ // 0x373e @0x11
0x372d…3772 at0012 = ╱ed╱ ( ╱ // 0x373f @0x12
0x372d…3772 at0013 = ╱35╱5╱ // 0x3740 @0x13
0x372d…3772 at0014 = ╱f20500╱ // 0x3741 @0x14
0x372d…3772 at0017 = ╱ee╱ ) ╱ // 0x3744 @0x17
0x372d…3772 at0018 = ╱e5╱ + ╱ // 0x3745 @0x18
0x372d…3772 at0019 = ╱58╱X╱ // 0x3746 @0x19
0x372d…3772 at001a = ╱ed╱ ( ╱ // 0x3747 @0x1a
0x372d…3772 at001b = ╱31╱1╱ // 0x3748 @0x1b
0x372d…3772 at001c = ╱32╱2╱ // 0x3749 @0x1c
0x372d…3772 at001d = ╱f20c00╱ // 0x374a @0x1d
0x372d…3772 at0020 = ╱ee╱ ) ╱ // 0x374d @0x20
0x372d…3772 at0021 = ╱ee╱ ) ╱ // 0x374e @0x21
0x372d…3772 at0022 = ╱e6╱ - ╱ // 0x374f @0x22
0x372d…3772 at0023 = ╱58╱X╱ // 0x3750 @0x23
0x372d…3772 at0024 = ╱ed╱ ( ╱ // 0x3751 @0x24
0x372d…3772 at0025 = ╱32╱2╱ // 0x3752 @0x25
0x372d…3772 at0026 = ╱31╱1╱ // 0x3753 @0x26
0x372d…3772 at0027 = ╱f21500╱ // 0x3754 @0x27
0x372d…3772 at002a = ╱ee╱ ) ╱ // 0x3757 @0x2a
0x372d…3772 at002b = ╱ee╱ ) ╱ // 0x3758 @0x2b
0x372d…3772 at002c = ╱e7╱ * ╱ // 0x3759 @0x2c
0x372d…3772 at002d = ╱31╱1╱ // 0x375a @0x2d
0x372d…3772 at002e = ╱2e╱.╱ // 0x375b @0x2e
0x372d…3772 at002f = ╱32╱2╱ // 0x375c @0x2f
0x372d…3772 at0030 = ╱32╱2╱ // 0x375d @0x30
0x372d…3772 at0031 = ╱f88100000000002201╱ // 0x375e @0x31
0x372d…3772 at003a = ╱ee╱ ) ╱ // 0x3767 @0x3a
0x372d…3772 at003b = ╱e8╱ / ╱ // 0x3768 @0x3b
0x372d…3772 at003c = ╱58╱X╱ // 0x3769 @0x3c
0x372d…3772 at003d = ╱ed╱ ( ╱ // 0x376a @0x3d
0x372d…3772 at003e = ╱31╱1╱ // 0x376b @0x3e
0x372d…3772 at003f = ╱37╱7╱ // 0x376c @0x3f
0x372d…3772 at0040 = ╱f21100╱ // 0x376d @0x40
0x372d…3772 at0043 = ╱ee╱ ) ╱ // 0x3770 @0x43
0x372d…3772 at0044 = EOL // 0x3771 @0x44
0x372d…3772 }
0x3772…3785 cd73 02330 FOR I := 1 TO DO
0x3772…3785 LineComal80 {
0x3772…3785 ptr = 0xcd73 // 0x3772 @0x0
0x3772…3785 lno = 0x091a // 0x3774 @0x2
0x3772…3785 at0004 = ╱8322╱ FOR ╱ // 0x3776 @0x4
0x3772…3785 at0006 = ╱49╱I╱ // 0x3778 @0x6
0x3772…3785 at0007 = ╱f0╱ := ╱ // 0x3779 @0x7
0x3772…3785 at0008 = ╱31╱1╱ // 0x377a @0x8
0x3772…3785 at0009 = ╱f20100╱ // 0x377b @0x9
0x3772…3785 at000c = ╱b736╱ TO ╱ // 0x377e @0xc
0x3772…3785 at000e = ╱f20600╱ // 0x3780 @0xe
0x3772…3785 at0011 = ╱bb╱ DO ╱ // 0x3783 @0x11
0x3772…3785 at0012 = EOL // 0x3784 @0x12
0x3772…3785 }
0x3785…37a7 cd95 02340 LET R ( 31 + I ) := 360 / R ( 25 + I )
0x3785…37a7 LineComal80 {
0x3785…37a7 ptr = 0xcd95 // 0x3785 @0x0
0x3785…37a7 lno = 0x0924 // 0x3787 @0x2
0x3785…37a7 at0004 = ╱86╱ LET ╱ // 0x3789 @0x4
0x3785…37a7 at0005 = ╱52╱R╱ // 0x378a @0x5
0x3785…37a7 at0006 = ╱ed╱ ( ╱ // 0x378b @0x6
0x3785…37a7 at0007 = ╱33╱3╱ // 0x378c @0x7
0x3785…37a7 at0008 = ╱31╱1╱ // 0x378d @0x8
0x3785…37a7 at0009 = ╱f21f00╱ // 0x378e @0x9
0x3785…37a7 at000c = ╱e5╱ + ╱ // 0x3791 @0xc
0x3785…37a7 at000d = ╱49╱I╱ // 0x3792 @0xd
0x3785…37a7 at000e = ╱ee╱ ) ╱ // 0x3793 @0xe
0x3785…37a7 at000f = ╱f0╱ := ╱ // 0x3794 @0xf
0x3785…37a7 at0010 = ╱33╱3╱ // 0x3795 @0x10
0x3785…37a7 at0011 = ╱36╱6╱ // 0x3796 @0x11
0x3785…37a7 at0012 = ╱30╱0╱ // 0x3797 @0x12
0x3785…37a7 at0013 = ╱f26801╱ // 0x3798 @0x13
0x3785…37a7 at0016 = ╱e8╱ / ╱ // 0x379b @0x16
0x3785…37a7 at0017 = ╱52╱R╱ // 0x379c @0x17
0x3785…37a7 at0018 = ╱ed╱ ( ╱ // 0x379d @0x18
0x3785…37a7 at0019 = ╱32╱2╱ // 0x379e @0x19
0x3785…37a7 at001a = ╱35╱5╱ // 0x379f @0x1a
0x3785…37a7 at001b = ╱f21900╱ // 0x37a0 @0x1b
0x3785…37a7 at001e = ╱e5╱ + ╱ // 0x37a3 @0x1e
0x3785…37a7 at001f = ╱49╱I╱ // 0x37a4 @0x1f
0x3785…37a7 at0020 = ╱ee╱ ) ╱ // 0x37a5 @0x20
0x3785…37a7 at0021 = EOL // 0x37a6 @0x21
0x3785…37a7 }
0x37a7…37ae cd9c 02350 NEXT I
0x37a7…37ae LineComal80 {
0x37a7…37ae ptr = 0xcd9c // 0x37a7 @0x0
0x37a7…37ae lno = 0x092e // 0x37a9 @0x2
0x37a7…37ae at0004 = ╱84╱ NEXT ╱ // 0x37ab @0x4
0x37a7…37ae at0005 = ╱49╱I╱ // 0x37ac @0x5
0x37a7…37ae at0006 = EOL // 0x37ad @0x6
0x37a7…37ae }
0x37ae…37d5 cdc3 02360 LET R ( 38 ) := X ( 19 ) * 100 / X ( 18 )
0x37ae…37d5 LineComal80 {
0x37ae…37d5 ptr = 0xcdc3 // 0x37ae @0x0
0x37ae…37d5 lno = 0x0938 // 0x37b0 @0x2
0x37ae…37d5 at0004 = ╱86╱ LET ╱ // 0x37b2 @0x4
0x37ae…37d5 at0005 = ╱52╱R╱ // 0x37b3 @0x5
0x37ae…37d5 at0006 = ╱ed╱ ( ╱ // 0x37b4 @0x6
0x37ae…37d5 at0007 = ╱33╱3╱ // 0x37b5 @0x7
0x37ae…37d5 at0008 = ╱38╱8╱ // 0x37b6 @0x8
0x37ae…37d5 at0009 = ╱f22600╱ // 0x37b7 @0x9
0x37ae…37d5 at000c = ╱ee╱ ) ╱ // 0x37ba @0xc
0x37ae…37d5 at000d = ╱f0╱ := ╱ // 0x37bb @0xd
0x37ae…37d5 at000e = ╱58╱X╱ // 0x37bc @0xe
0x37ae…37d5 at000f = ╱ed╱ ( ╱ // 0x37bd @0xf
0x37ae…37d5 at0010 = ╱31╱1╱ // 0x37be @0x10
0x37ae…37d5 at0011 = ╱39╱9╱ // 0x37bf @0x11
0x37ae…37d5 at0012 = ╱f21300╱ // 0x37c0 @0x12
0x37ae…37d5 at0015 = ╱ee╱ ) ╱ // 0x37c3 @0x15
0x37ae…37d5 at0016 = ╱e7╱ * ╱ // 0x37c4 @0x16
0x37ae…37d5 at0017 = ╱31╱1╱ // 0x37c5 @0x17
0x37ae…37d5 at0018 = ╱30╱0╱ // 0x37c6 @0x18
0x37ae…37d5 at0019 = ╱30╱0╱ // 0x37c7 @0x19
0x37ae…37d5 at001a = ╱f26400╱ // 0x37c8 @0x1a
0x37ae…37d5 at001d = ╱e8╱ / ╱ // 0x37cb @0x1d
0x37ae…37d5 at001e = ╱58╱X╱ // 0x37cc @0x1e
0x37ae…37d5 at001f = ╱ed╱ ( ╱ // 0x37cd @0x1f
0x37ae…37d5 at0020 = ╱31╱1╱ // 0x37ce @0x20
0x37ae…37d5 at0021 = ╱38╱8╱ // 0x37cf @0x21
0x37ae…37d5 at0022 = ╱f21200╱ // 0x37d0 @0x22
0x37ae…37d5 at0025 = ╱ee╱ ) ╱ // 0x37d3 @0x25
0x37ae…37d5 at0026 = EOL // 0x37d4 @0x26
0x37ae…37d5 }
0x37d5…37e4 ce37 02370 ENDPROC BEREGNMAJ
0x37d5…37e4 LineComal80 {
0x37d5…37e4 ptr = 0xce37 // 0x37d5 @0x0
0x37d5…37e4 lno = 0x0942 // 0x37d7 @0x2
0x37d5…37e4 at0004 = ╱9f╱ ENDPROC ╱ // 0x37d9 @0x4
0x37d5…37e4 at0005 = ╱42╱B╱ // 0x37da @0x5
0x37d5…37e4 at0006 = ╱45╱E╱ // 0x37db @0x6
0x37d5…37e4 at0007 = ╱52╱R╱ // 0x37dc @0x7
0x37d5…37e4 at0008 = ╱45╱E╱ // 0x37dd @0x8
0x37d5…37e4 at0009 = ╱47╱G╱ // 0x37de @0x9
0x37d5…37e4 at000a = ╱4e╱N╱ // 0x37df @0xa
0x37d5…37e4 at000b = ╱4d╱M╱ // 0x37e0 @0xb
0x37d5…37e4 at000c = ╱41╱A╱ // 0x37e1 @0xc
0x37d5…37e4 at000d = ╱4a╱J╱ // 0x37e2 @0xd
0x37d5…37e4 at000e = EOL // 0x37e3 @0xe
0x37d5…37e4 }
0x37e4…37fb 9a6c 00330 REAL X ( 30 ) , R ( 40 )
0x37e4…37fb LineComal80 {
0x37e4…37fb ptr = 0x9a6c // 0x37e4 @0x0
0x37e4…37fb lno = 0x014a // 0x37e6 @0x2
0x37e4…37fb at0004 = ╱b3╱ REAL ╱ // 0x37e8 @0x4
0x37e4…37fb at0005 = ╱58╱X╱ // 0x37e9 @0x5
0x37e4…37fb at0006 = ╱ed╱ ( ╱ // 0x37ea @0x6
0x37e4…37fb at0007 = ╱33╱3╱ // 0x37eb @0x7
0x37e4…37fb at0008 = ╱30╱0╱ // 0x37ec @0x8
0x37e4…37fb at0009 = ╱f21e00╱ // 0x37ed @0x9
0x37e4…37fb at000c = ╱ee╱ ) ╱ // 0x37f0 @0xc
0x37e4…37fb at000d = ╱ec╱ , ╱ // 0x37f1 @0xd
0x37e4…37fb at000e = ╱52╱R╱ // 0x37f2 @0xe
0x37e4…37fb at000f = ╱ed╱ ( ╱ // 0x37f3 @0xf
0x37e4…37fb at0010 = ╱34╱4╱ // 0x37f4 @0x10
0x37e4…37fb at0011 = ╱30╱0╱ // 0x37f5 @0x11
0x37e4…37fb at0012 = ╱f22800╱ // 0x37f6 @0x12
0x37e4…37fb at0015 = ╱ee╱ ) ╱ // 0x37f9 @0x15
0x37e4…37fb at0016 = EOL // 0x37fa @0x16
0x37e4…37fb }
0x37fb…3809 cdf7 00170 EXEC INPUTTAL
0x37fb…3809 LineComal80 {
0x37fb…3809 ptr = 0xcdf7 // 0x37fb @0x0
0x37fb…3809 lno = 0x00aa // 0x37fd @0x2
0x37fb…3809 at0004 = ╱9d╱ EXEC ╱ // 0x37ff @0x4
0x37fb…3809 at0005 = ╱49╱I╱ // 0x3800 @0x5
0x37fb…3809 at0006 = ╱4e╱N╱ // 0x3801 @0x6
0x37fb…3809 at0007 = ╱50╱P╱ // 0x3802 @0x7
0x37fb…3809 at0008 = ╱55╱U╱ // 0x3803 @0x8
0x37fb…3809 at0009 = ╱54╱T╱ // 0x3804 @0x9
0x37fb…3809 at000a = ╱54╱T╱ // 0x3805 @0xa
0x37fb…3809 at000b = ╱41╱A╱ // 0x3806 @0xb
0x37fb…3809 at000c = ╱4c╱L╱ // 0x3807 @0xc
0x37fb…3809 at000d = EOL // 0x3808 @0xd
0x37fb…3809 }
0x3809…381c ce0a 00180 IF _KODE $ = "Y" THEN
0x3809…381c LineComal80 {
0x3809…381c ptr = 0xce0a // 0x3809 @0x0
0x3809…381c lno = 0x00b4 // 0x380b @0x2
0x3809…381c at0004 = ╱9b0153╱ IF ╱ // 0x380d @0x4
0x3809…381c at0007 = ╱5f╱_╱ // 0x3810 @0x7
0x3809…381c at0008 = ╱4b╱K╱ // 0x3811 @0x8
0x3809…381c at0009 = ╱4f╱O╱ // 0x3812 @0x9
0x3809…381c at000a = ╱44╱D╱ // 0x3813 @0xa
0x3809…381c at000b = ╱45╱E╱ // 0x3814 @0xb
0x3809…381c at000c = ╱ef╱ $ ╱ // 0x3815 @0xc
0x3809…381c at000d = ╱df╱ = ╱ // 0x3816 @0xd
0x3809…381c at000e = ╱22╱"╱ // 0x3817 @0xe
0x3809…381c at000f = ╱59╱Y╱ // 0x3818 @0xf
0x3809…381c at0010 = ╱22╱"╱ // 0x3819 @0x10
0x3809…381c at0011 = ╱b5╱ THEN ╱ // 0x381a @0x11
0x3809…381c at0012 = EOL // 0x381b @0x12
0x3809…381c }
0x381c…382b d486 00190 EXEC BEREGNMAJ
0x381c…382b LineComal80 {
0x381c…382b ptr = 0xd486 // 0x381c @0x0
0x381c…382b lno = 0x00be // 0x381e @0x2
0x381c…382b at0004 = ╱9d╱ EXEC ╱ // 0x3820 @0x4
0x381c…382b at0005 = ╱42╱B╱ // 0x3821 @0x5
0x381c…382b at0006 = ╱45╱E╱ // 0x3822 @0x6
0x381c…382b at0007 = ╱52╱R╱ // 0x3823 @0x7
0x381c…382b at0008 = ╱45╱E╱ // 0x3824 @0x8
0x381c…382b at0009 = ╱47╱G╱ // 0x3825 @0x9
0x381c…382b at000a = ╱4e╱N╱ // 0x3826 @0xa
0x381c…382b at000b = ╱4d╱M╱ // 0x3827 @0xb
0x381c…382b at000c = ╱41╱A╱ // 0x3828 @0xc
0x381c…382b at000d = ╱4a╱J╱ // 0x3829 @0xd
0x381c…382b at000e = EOL // 0x382a @0xe
0x381c…382b }
0x382b…3832 ce20 00210 ELSE
0x382b…3832 LineComal80 {
0x382b…3832 ptr = 0xce20 // 0x382b @0x0
0x382b…3832 lno = 0x00d2 // 0x382d @0x2
0x382b…3832 at0004 = ╱9a02╱ ELSE ╱ // 0x382f @0x4
0x382b…3832 at0006 = EOL // 0x3831 @0x6
0x382b…3832 }
0x3832…3843 ce31 00220 EXEC BEREGNKAMET
0x3832…3843 LineComal80 {
0x3832…3843 ptr = 0xce31 // 0x3832 @0x0
0x3832…3843 lno = 0x00dc // 0x3834 @0x2
0x3832…3843 at0004 = ╱9d╱ EXEC ╱ // 0x3836 @0x4
0x3832…3843 at0005 = ╱42╱B╱ // 0x3837 @0x5
0x3832…3843 at0006 = ╱45╱E╱ // 0x3838 @0x6
0x3832…3843 at0007 = ╱52╱R╱ // 0x3839 @0x7
0x3832…3843 at0008 = ╱45╱E╱ // 0x383a @0x8
0x3832…3843 at0009 = ╱47╱G╱ // 0x383b @0x9
0x3832…3843 at000a = ╱4e╱N╱ // 0x383c @0xa
0x3832…3843 at000b = ╱4b╱K╱ // 0x383d @0xb
0x3832…3843 at000c = ╱41╱A╱ // 0x383e @0xc
0x3832…3843 at000d = ╱4d╱M╱ // 0x383f @0xd
0x3832…3843 at000e = ╱45╱E╱ // 0x3840 @0xe
0x3832…3843 at000f = ╱54╱T╱ // 0x3841 @0xf
0x3832…3843 at0010 = EOL // 0x3842 @0x10
0x3832…3843 }
0x3843…3849 d8b0 00230 ENDIF
0x3843…3849 LineComal80 {
0x3843…3849 ptr = 0xd8b0 // 0x3843 @0x0
0x3843…3849 lno = 0x00e6 // 0x3845 @0x2
0x3843…3849 at0004 = ╱9c╱ ENDIF ╱ // 0x3847 @0x4
0x3843…3849 at0005 = EOL // 0x3848 @0x5
0x3843…3849 }
0x3849…3858 ce46 02380 PROC INPUTTAL
0x3849…3858 LineComal80 {
0x3849…3858 ptr = 0xce46 // 0x3849 @0x0
0x3849…3858 lno = 0x094c // 0x384b @0x2
0x3849…3858 at0004 = ╱9e23╱ PROC ╱ // 0x384d @0x4
0x3849…3858 at0006 = ╱49╱I╱ // 0x384f @0x6
0x3849…3858 at0007 = ╱4e╱N╱ // 0x3850 @0x7
0x3849…3858 at0008 = ╱50╱P╱ // 0x3851 @0x8
0x3849…3858 at0009 = ╱55╱U╱ // 0x3852 @0x9
0x3849…3858 at000a = ╱54╱T╱ // 0x3853 @0xa
0x3849…3858 at000b = ╱54╱T╱ // 0x3854 @0xb
0x3849…3858 at000c = ╱41╱A╱ // 0x3855 @0xc
0x3849…3858 at000d = ╱4c╱L╱ // 0x3856 @0xd
0x3849…3858 at000e = EOL // 0x3857 @0xe
0x3849…3858 }
0x3858…3880 ce6e 02390 EXEC OVERSKRIFT ( "Regnskabanalyse" , 5 )
0x3858…3880 LineComal80 {
0x3858…3880 ptr = 0xce6e // 0x3858 @0x0
0x3858…3880 lno = 0x0956 // 0x385a @0x2
0x3858…3880 at0004 = ╱9d╱ EXEC ╱ // 0x385c @0x4
0x3858…3880 at0005 = ╱4f╱O╱ // 0x385d @0x5
0x3858…3880 at0006 = ╱56╱V╱ // 0x385e @0x6
0x3858…3880 at0007 = ╱45╱E╱ // 0x385f @0x7
0x3858…3880 at0008 = ╱52╱R╱ // 0x3860 @0x8
0x3858…3880 at0009 = ╱53╱S╱ // 0x3861 @0x9
0x3858…3880 at000a = ╱4b╱K╱ // 0x3862 @0xa
0x3858…3880 at000b = ╱52╱R╱ // 0x3863 @0xb
0x3858…3880 at000c = ╱49╱I╱ // 0x3864 @0xc
0x3858…3880 at000d = ╱46╱F╱ // 0x3865 @0xd
0x3858…3880 at000e = ╱54╱T╱ // 0x3866 @0xe
0x3858…3880 at000f = ╱ed╱ ( ╱ // 0x3867 @0xf
0x3858…3880 at0010 = ╱22╱"╱ // 0x3868 @0x10
0x3858…3880 at0011 = ╱52╱R╱ // 0x3869 @0x11
0x3858…3880 at0012 = ╱65╱e╱ // 0x386a @0x12
0x3858…3880 at0013 = ╱67╱g╱ // 0x386b @0x13
0x3858…3880 at0014 = ╱6e╱n╱ // 0x386c @0x14
0x3858…3880 at0015 = ╱73╱s╱ // 0x386d @0x15
0x3858…3880 at0016 = ╱6b╱k╱ // 0x386e @0x16
0x3858…3880 at0017 = ╱61╱a╱ // 0x386f @0x17
0x3858…3880 at0018 = ╱62╱b╱ // 0x3870 @0x18
0x3858…3880 at0019 = ╱61╱a╱ // 0x3871 @0x19
0x3858…3880 at001a = ╱6e╱n╱ // 0x3872 @0x1a
0x3858…3880 at001b = ╱61╱a╱ // 0x3873 @0x1b
0x3858…3880 at001c = ╱6c╱l╱ // 0x3874 @0x1c
0x3858…3880 at001d = ╱79╱y╱ // 0x3875 @0x1d
0x3858…3880 at001e = ╱73╱s╱ // 0x3876 @0x1e
0x3858…3880 at001f = ╱65╱e╱ // 0x3877 @0x1f
0x3858…3880 at0020 = ╱22╱"╱ // 0x3878 @0x20
0x3858…3880 at0021 = ╱ec╱ , ╱ // 0x3879 @0x21
0x3858…3880 at0022 = ╱35╱5╱ // 0x387a @0x22
0x3858…3880 at0023 = ╱f20500╱ // 0x387b @0x23
0x3858…3880 at0026 = ╱ee╱ ) ╱ // 0x387e @0x26
0x3858…3880 at0027 = EOL // 0x387f @0x27
0x3858…3880 }
0x3880…3887 e5f4 02400 REPEAT
0x3880…3887 LineComal80 {
0x3880…3887 ptr = 0xe5f4 // 0x3880 @0x0
0x3880…3887 lno = 0x0960 // 0x3882 @0x2
0x3880…3887 at0004 = ╱9724╱ REPEAT ╱ // 0x3884 @0x4
0x3880…3887 at0006 = EOL // 0x3886 @0x6
0x3880…3887 }
0x3887…38bb d10b 06030 INPUT "<C2408Z>Indtast…driftslederl|n………:…" : X ( 25 )
0x3887…38bb LineComal80 {
0x3887…38bb ptr = 0xd10b // 0x3887 @0x0
0x3887…38bb lno = 0x178e // 0x3889 @0x2
0x3887…38bb at0004 = ╱91╱ INPUT ╱ // 0x388b @0x4
0x3887…38bb at0005 = ╱22╱"╱ // 0x388c @0x5
0x3887…38bb at0006 = ╱3c╱<╱ // 0x388d @0x6
0x3887…38bb at0007 = ╱43╱C╱ // 0x388e @0x7
0x3887…38bb at0008 = ╱32╱2╱ // 0x388f @0x8
0x3887…38bb at0009 = ╱34╱4╱ // 0x3890 @0x9
0x3887…38bb at000a = ╱30╱0╱ // 0x3891 @0xa
0x3887…38bb at000b = ╱38╱8╱ // 0x3892 @0xb
0x3887…38bb at000c = ╱5a╱Z╱ // 0x3893 @0xc
0x3887…38bb at000d = ╱3e╱>╱ // 0x3894 @0xd
0x3887…38bb at000e = ╱49╱I╱ // 0x3895 @0xe
0x3887…38bb at000f = ╱6e╱n╱ // 0x3896 @0xf
0x3887…38bb at0010 = ╱64╱d╱ // 0x3897 @0x10
0x3887…38bb at0011 = ╱74╱t╱ // 0x3898 @0x11
0x3887…38bb at0012 = ╱61╱a╱ // 0x3899 @0x12
0x3887…38bb at0013 = ╱73╱s╱ // 0x389a @0x13
0x3887…38bb at0014 = ╱74╱t╱ // 0x389b @0x14
0x3887…38bb at0015 = ╱20╱…╱ // 0x389c @0x15
0x3887…38bb at0016 = ╱64╱d╱ // 0x389d @0x16
0x3887…38bb at0017 = ╱72╱r╱ // 0x389e @0x17
0x3887…38bb at0018 = ╱69╱i╱ // 0x389f @0x18
0x3887…38bb at0019 = ╱66╱f╱ // 0x38a0 @0x19
0x3887…38bb at001a = ╱74╱t╱ // 0x38a1 @0x1a
0x3887…38bb at001b = ╱73╱s╱ // 0x38a2 @0x1b
0x3887…38bb at001c = ╱6c╱l╱ // 0x38a3 @0x1c
0x3887…38bb at001d = ╱65╱e╱ // 0x38a4 @0x1d
0x3887…38bb at001e = ╱64╱d╱ // 0x38a5 @0x1e
0x3887…38bb at001f = ╱65╱e╱ // 0x38a6 @0x1f
0x3887…38bb at0020 = ╱72╱r╱ // 0x38a7 @0x20
0x3887…38bb at0021 = ╱6c╱l╱ // 0x38a8 @0x21
0x3887…38bb at0022 = ╱7c╱|╱ // 0x38a9 @0x22
0x3887…38bb at0023 = ╱6e╱n╱ // 0x38aa @0x23
0x3887…38bb at0024 = ╱20╱…╱ // 0x38ab @0x24
0x3887…38bb at0025 = ╱20╱…╱ // 0x38ac @0x25
0x3887…38bb at0026 = ╱20╱…╱ // 0x38ad @0x26
0x3887…38bb at0027 = ╱3a╱:╱ // 0x38ae @0x27
0x3887…38bb at0028 = ╱20╱…╱ // 0x38af @0x28
0x3887…38bb at0029 = ╱22╱"╱ // 0x38b0 @0x29
0x3887…38bb at002a = ╱f1╱ : ╱ // 0x38b1 @0x2a
0x3887…38bb at002b = ╱58╱X╱ // 0x38b2 @0x2b
0x3887…38bb at002c = ╱ed╱ ( ╱ // 0x38b3 @0x2c
0x3887…38bb at002d = ╱32╱2╱ // 0x38b4 @0x2d
0x3887…38bb at002e = ╱35╱5╱ // 0x38b5 @0x2e
0x3887…38bb at002f = ╱f21900╱ // 0x38b6 @0x2f
0x3887…38bb at0032 = ╱ee╱ ) ╱ // 0x38b9 @0x32
0x3887…38bb at0033 = EOL // 0x38ba @0x33
0x3887…38bb }
0x38bb…38ef cedd 06040 INPUT "<C2409Z………………………primolager…A……………:…" : X ( 22 )
0x38bb…38ef LineComal80 {
0x38bb…38ef ptr = 0xcedd // 0x38bb @0x0
0x38bb…38ef lno = 0x1798 // 0x38bd @0x2
0x38bb…38ef at0004 = ╱91╱ INPUT ╱ // 0x38bf @0x4
0x38bb…38ef at0005 = ╱22╱"╱ // 0x38c0 @0x5
0x38bb…38ef at0006 = ╱3c╱<╱ // 0x38c1 @0x6
0x38bb…38ef at0007 = ╱43╱C╱ // 0x38c2 @0x7
0x38bb…38ef at0008 = ╱32╱2╱ // 0x38c3 @0x8
0x38bb…38ef at0009 = ╱34╱4╱ // 0x38c4 @0x9
0x38bb…38ef at000a = ╱30╱0╱ // 0x38c5 @0xa
0x38bb…38ef at000b = ╱39╱9╱ // 0x38c6 @0xb
0x38bb…38ef at000c = ╱5a╱Z╱ // 0x38c7 @0xc
0x38bb…38ef at000d = ╱20╱…╱ // 0x38c8 @0xd
0x38bb…38ef at000e = ╱20╱…╱ // 0x38c9 @0xe
0x38bb…38ef at000f = ╱20╱…╱ // 0x38ca @0xf
0x38bb…38ef at0010 = ╱20╱…╱ // 0x38cb @0x10
0x38bb…38ef at0011 = ╱20╱…╱ // 0x38cc @0x11
0x38bb…38ef at0012 = ╱20╱…╱ // 0x38cd @0x12
0x38bb…38ef at0013 = ╱20╱…╱ // 0x38ce @0x13
0x38bb…38ef at0014 = ╱20╱…╱ // 0x38cf @0x14
0x38bb…38ef at0015 = ╱20╱…╱ // 0x38d0 @0x15
0x38bb…38ef at0016 = ╱70╱p╱ // 0x38d1 @0x16
0x38bb…38ef at0017 = ╱72╱r╱ // 0x38d2 @0x17
0x38bb…38ef at0018 = ╱69╱i╱ // 0x38d3 @0x18
0x38bb…38ef at0019 = ╱6d╱m╱ // 0x38d4 @0x19
0x38bb…38ef at001a = ╱6f╱o╱ // 0x38d5 @0x1a
0x38bb…38ef at001b = ╱6c╱l╱ // 0x38d6 @0x1b
0x38bb…38ef at001c = ╱61╱a╱ // 0x38d7 @0x1c
0x38bb…38ef at001d = ╱67╱g╱ // 0x38d8 @0x1d
0x38bb…38ef at001e = ╱65╱e╱ // 0x38d9 @0x1e
0x38bb…38ef at001f = ╱72╱r╱ // 0x38da @0x1f
0x38bb…38ef at0020 = ╱20╱…╱ // 0x38db @0x20
0x38bb…38ef at0021 = ╱41╱A╱ // 0x38dc @0x21
0x38bb…38ef at0022 = ╱20╱…╱ // 0x38dd @0x22
0x38bb…38ef at0023 = ╱20╱…╱ // 0x38de @0x23
0x38bb…38ef at0024 = ╱20╱…╱ // 0x38df @0x24
0x38bb…38ef at0025 = ╱20╱…╱ // 0x38e0 @0x25
0x38bb…38ef at0026 = ╱20╱…╱ // 0x38e1 @0x26
0x38bb…38ef at0027 = ╱3a╱:╱ // 0x38e2 @0x27
0x38bb…38ef at0028 = ╱20╱…╱ // 0x38e3 @0x28
0x38bb…38ef at0029 = ╱22╱"╱ // 0x38e4 @0x29
0x38bb…38ef at002a = ╱f1╱ : ╱ // 0x38e5 @0x2a
0x38bb…38ef at002b = ╱58╱X╱ // 0x38e6 @0x2b
0x38bb…38ef at002c = ╱ed╱ ( ╱ // 0x38e7 @0x2c
0x38bb…38ef at002d = ╱32╱2╱ // 0x38e8 @0x2d
0x38bb…38ef at002e = ╱32╱2╱ // 0x38e9 @0x2e
0x38bb…38ef at002f = ╱f21600╱ // 0x38ea @0x2f
0x38bb…38ef at0032 = ╱ee╱ ) ╱ // 0x38ed @0x32
0x38bb…38ef at0033 = EOL // 0x38ee @0x33
0x38bb…38ef }
0x38ef…3923 cf11 06050 INPUT "<C2410Z>……………………primolager…B……………:…" : X ( 23 )
0x38ef…3923 LineComal80 {
0x38ef…3923 ptr = 0xcf11 // 0x38ef @0x0
0x38ef…3923 lno = 0x17a2 // 0x38f1 @0x2
0x38ef…3923 at0004 = ╱91╱ INPUT ╱ // 0x38f3 @0x4
0x38ef…3923 at0005 = ╱22╱"╱ // 0x38f4 @0x5
0x38ef…3923 at0006 = ╱3c╱<╱ // 0x38f5 @0x6
0x38ef…3923 at0007 = ╱43╱C╱ // 0x38f6 @0x7
0x38ef…3923 at0008 = ╱32╱2╱ // 0x38f7 @0x8
0x38ef…3923 at0009 = ╱34╱4╱ // 0x38f8 @0x9
0x38ef…3923 at000a = ╱31╱1╱ // 0x38f9 @0xa
0x38ef…3923 at000b = ╱30╱0╱ // 0x38fa @0xb
0x38ef…3923 at000c = ╱5a╱Z╱ // 0x38fb @0xc
0x38ef…3923 at000d = ╱3e╱>╱ // 0x38fc @0xd
0x38ef…3923 at000e = ╱20╱…╱ // 0x38fd @0xe
0x38ef…3923 at000f = ╱20╱…╱ // 0x38fe @0xf
0x38ef…3923 at0010 = ╱20╱…╱ // 0x38ff @0x10
0x38ef…3923 at0011 = ╱20╱…╱ // 0x3900 @0x11
0x38ef…3923 at0012 = ╱20╱…╱ // 0x3901 @0x12
0x38ef…3923 at0013 = ╱20╱…╱ // 0x3902 @0x13
0x38ef…3923 at0014 = ╱20╱…╱ // 0x3903 @0x14
0x38ef…3923 at0015 = ╱20╱…╱ // 0x3904 @0x15
0x38ef…3923 at0016 = ╱70╱p╱ // 0x3905 @0x16
0x38ef…3923 at0017 = ╱72╱r╱ // 0x3906 @0x17
0x38ef…3923 at0018 = ╱69╱i╱ // 0x3907 @0x18
0x38ef…3923 at0019 = ╱6d╱m╱ // 0x3908 @0x19
0x38ef…3923 at001a = ╱6f╱o╱ // 0x3909 @0x1a
0x38ef…3923 at001b = ╱6c╱l╱ // 0x390a @0x1b
0x38ef…3923 at001c = ╱61╱a╱ // 0x390b @0x1c
0x38ef…3923 at001d = ╱67╱g╱ // 0x390c @0x1d
0x38ef…3923 at001e = ╱65╱e╱ // 0x390d @0x1e
0x38ef…3923 at001f = ╱72╱r╱ // 0x390e @0x1f
0x38ef…3923 at0020 = ╱20╱…╱ // 0x390f @0x20
0x38ef…3923 at0021 = ╱42╱B╱ // 0x3910 @0x21
0x38ef…3923 at0022 = ╱20╱…╱ // 0x3911 @0x22
0x38ef…3923 at0023 = ╱20╱…╱ // 0x3912 @0x23
0x38ef…3923 at0024 = ╱20╱…╱ // 0x3913 @0x24
0x38ef…3923 at0025 = ╱20╱…╱ // 0x3914 @0x25
0x38ef…3923 at0026 = ╱20╱…╱ // 0x3915 @0x26
0x38ef…3923 at0027 = ╱3a╱:╱ // 0x3916 @0x27
0x38ef…3923 at0028 = ╱20╱…╱ // 0x3917 @0x28
0x38ef…3923 at0029 = ╱22╱"╱ // 0x3918 @0x29
0x38ef…3923 at002a = ╱f1╱ : ╱ // 0x3919 @0x2a
0x38ef…3923 at002b = ╱58╱X╱ // 0x391a @0x2b
0x38ef…3923 at002c = ╱ed╱ ( ╱ // 0x391b @0x2c
0x38ef…3923 at002d = ╱32╱2╱ // 0x391c @0x2d
0x38ef…3923 at002e = ╱33╱3╱ // 0x391d @0x2e
0x38ef…3923 at002f = ╱f21700╱ // 0x391e @0x2f
0x38ef…3923 at0032 = ╱ee╱ ) ╱ // 0x3921 @0x32
0x38ef…3923 at0033 = EOL // 0x3922 @0x33
0x38ef…3923 }
0x3923…3957 cf45 06060 INPUT "<C2411Z>……………………primolager…C……………:…" : X ( 24 )
0x3923…3957 LineComal80 {
0x3923…3957 ptr = 0xcf45 // 0x3923 @0x0
0x3923…3957 lno = 0x17ac // 0x3925 @0x2
0x3923…3957 at0004 = ╱91╱ INPUT ╱ // 0x3927 @0x4
0x3923…3957 at0005 = ╱22╱"╱ // 0x3928 @0x5
0x3923…3957 at0006 = ╱3c╱<╱ // 0x3929 @0x6
0x3923…3957 at0007 = ╱43╱C╱ // 0x392a @0x7
0x3923…3957 at0008 = ╱32╱2╱ // 0x392b @0x8
0x3923…3957 at0009 = ╱34╱4╱ // 0x392c @0x9
0x3923…3957 at000a = ╱31╱1╱ // 0x392d @0xa
0x3923…3957 at000b = ╱31╱1╱ // 0x392e @0xb
0x3923…3957 at000c = ╱5a╱Z╱ // 0x392f @0xc
0x3923…3957 at000d = ╱3e╱>╱ // 0x3930 @0xd
0x3923…3957 at000e = ╱20╱…╱ // 0x3931 @0xe
0x3923…3957 at000f = ╱20╱…╱ // 0x3932 @0xf
0x3923…3957 at0010 = ╱20╱…╱ // 0x3933 @0x10
0x3923…3957 at0011 = ╱20╱…╱ // 0x3934 @0x11
0x3923…3957 at0012 = ╱20╱…╱ // 0x3935 @0x12
0x3923…3957 at0013 = ╱20╱…╱ // 0x3936 @0x13
0x3923…3957 at0014 = ╱20╱…╱ // 0x3937 @0x14
0x3923…3957 at0015 = ╱20╱…╱ // 0x3938 @0x15
0x3923…3957 at0016 = ╱70╱p╱ // 0x3939 @0x16
0x3923…3957 at0017 = ╱72╱r╱ // 0x393a @0x17
0x3923…3957 at0018 = ╱69╱i╱ // 0x393b @0x18
0x3923…3957 at0019 = ╱6d╱m╱ // 0x393c @0x19
0x3923…3957 at001a = ╱6f╱o╱ // 0x393d @0x1a
0x3923…3957 at001b = ╱6c╱l╱ // 0x393e @0x1b
0x3923…3957 at001c = ╱61╱a╱ // 0x393f @0x1c
0x3923…3957 at001d = ╱67╱g╱ // 0x3940 @0x1d
0x3923…3957 at001e = ╱65╱e╱ // 0x3941 @0x1e
0x3923…3957 at001f = ╱72╱r╱ // 0x3942 @0x1f
0x3923…3957 at0020 = ╱20╱…╱ // 0x3943 @0x20
0x3923…3957 at0021 = ╱43╱C╱ // 0x3944 @0x21
0x3923…3957 at0022 = ╱20╱…╱ // 0x3945 @0x22
0x3923…3957 at0023 = ╱20╱…╱ // 0x3946 @0x23
0x3923…3957 at0024 = ╱20╱…╱ // 0x3947 @0x24
0x3923…3957 at0025 = ╱20╱…╱ // 0x3948 @0x25
0x3923…3957 at0026 = ╱20╱…╱ // 0x3949 @0x26
0x3923…3957 at0027 = ╱3a╱:╱ // 0x394a @0x27
0x3923…3957 at0028 = ╱20╱…╱ // 0x394b @0x28
0x3923…3957 at0029 = ╱22╱"╱ // 0x394c @0x29
0x3923…3957 at002a = ╱f1╱ : ╱ // 0x394d @0x2a
0x3923…3957 at002b = ╱58╱X╱ // 0x394e @0x2b
0x3923…3957 at002c = ╱ed╱ ( ╱ // 0x394f @0x2c
0x3923…3957 at002d = ╱32╱2╱ // 0x3950 @0x2d
0x3923…3957 at002e = ╱34╱4╱ // 0x3951 @0x2e
0x3923…3957 at002f = ╱f21800╱ // 0x3952 @0x2f
0x3923…3957 at0032 = ╱ee╱ ) ╱ // 0x3955 @0x32
0x3923…3957 at0033 = EOL // 0x3956 @0x33
0x3923…3957 }
0x3957…398b cf79 06070 INPUT "<C2412Z>……………………\vr.…var.…omk.………:…" : X ( 20 )
0x3957…398b LineComal80 {
0x3957…398b ptr = 0xcf79 // 0x3957 @0x0
0x3957…398b lno = 0x17b6 // 0x3959 @0x2
0x3957…398b at0004 = ╱91╱ INPUT ╱ // 0x395b @0x4
0x3957…398b at0005 = ╱22╱"╱ // 0x395c @0x5
0x3957…398b at0006 = ╱3c╱<╱ // 0x395d @0x6
0x3957…398b at0007 = ╱43╱C╱ // 0x395e @0x7
0x3957…398b at0008 = ╱32╱2╱ // 0x395f @0x8
0x3957…398b at0009 = ╱34╱4╱ // 0x3960 @0x9
0x3957…398b at000a = ╱31╱1╱ // 0x3961 @0xa
0x3957…398b at000b = ╱32╱2╱ // 0x3962 @0xb
0x3957…398b at000c = ╱5a╱Z╱ // 0x3963 @0xc
0x3957…398b at000d = ╱3e╱>╱ // 0x3964 @0xd
0x3957…398b at000e = ╱20╱…╱ // 0x3965 @0xe
0x3957…398b at000f = ╱20╱…╱ // 0x3966 @0xf
0x3957…398b at0010 = ╱20╱…╱ // 0x3967 @0x10
0x3957…398b at0011 = ╱20╱…╱ // 0x3968 @0x11
0x3957…398b at0012 = ╱20╱…╱ // 0x3969 @0x12
0x3957…398b at0013 = ╱20╱…╱ // 0x396a @0x13
0x3957…398b at0014 = ╱20╱…╱ // 0x396b @0x14
0x3957…398b at0015 = ╱20╱…╱ // 0x396c @0x15
0x3957…398b at0016 = ╱5c╱\╱ // 0x396d @0x16
0x3957…398b at0017 = ╱76╱v╱ // 0x396e @0x17
0x3957…398b at0018 = ╱72╱r╱ // 0x396f @0x18
0x3957…398b at0019 = ╱2e╱.╱ // 0x3970 @0x19
0x3957…398b at001a = ╱20╱…╱ // 0x3971 @0x1a
0x3957…398b at001b = ╱76╱v╱ // 0x3972 @0x1b
0x3957…398b at001c = ╱61╱a╱ // 0x3973 @0x1c
0x3957…398b at001d = ╱72╱r╱ // 0x3974 @0x1d
0x3957…398b at001e = ╱2e╱.╱ // 0x3975 @0x1e
0x3957…398b at001f = ╱20╱…╱ // 0x3976 @0x1f
0x3957…398b at0020 = ╱6f╱o╱ // 0x3977 @0x20
0x3957…398b at0021 = ╱6d╱m╱ // 0x3978 @0x21
0x3957…398b at0022 = ╱6b╱k╱ // 0x3979 @0x22
0x3957…398b at0023 = ╱2e╱.╱ // 0x397a @0x23
0x3957…398b at0024 = ╱20╱…╱ // 0x397b @0x24
0x3957…398b at0025 = ╱20╱…╱ // 0x397c @0x25
0x3957…398b at0026 = ╱20╱…╱ // 0x397d @0x26
0x3957…398b at0027 = ╱3a╱:╱ // 0x397e @0x27
0x3957…398b at0028 = ╱20╱…╱ // 0x397f @0x28
0x3957…398b at0029 = ╱22╱"╱ // 0x3980 @0x29
0x3957…398b at002a = ╱f1╱ : ╱ // 0x3981 @0x2a
0x3957…398b at002b = ╱58╱X╱ // 0x3982 @0x2b
0x3957…398b at002c = ╱ed╱ ( ╱ // 0x3983 @0x2c
0x3957…398b at002d = ╱32╱2╱ // 0x3984 @0x2d
0x3957…398b at002e = ╱30╱0╱ // 0x3985 @0x2e
0x3957…398b at002f = ╱f21400╱ // 0x3986 @0x2f
0x3957…398b at0032 = ╱ee╱ ) ╱ // 0x3989 @0x32
0x3957…398b at0033 = EOL // 0x398a @0x33
0x3957…398b }
0x398b…39bf cfad 06080 INPUT "<C2413Z>……………………d{kningsbidrag…A…:…" : X ( 27 )
0x398b…39bf LineComal80 {
0x398b…39bf ptr = 0xcfad // 0x398b @0x0
0x398b…39bf lno = 0x17c0 // 0x398d @0x2
0x398b…39bf at0004 = ╱91╱ INPUT ╱ // 0x398f @0x4
0x398b…39bf at0005 = ╱22╱"╱ // 0x3990 @0x5
0x398b…39bf at0006 = ╱3c╱<╱ // 0x3991 @0x6
0x398b…39bf at0007 = ╱43╱C╱ // 0x3992 @0x7
0x398b…39bf at0008 = ╱32╱2╱ // 0x3993 @0x8
0x398b…39bf at0009 = ╱34╱4╱ // 0x3994 @0x9
0x398b…39bf at000a = ╱31╱1╱ // 0x3995 @0xa
0x398b…39bf at000b = ╱33╱3╱ // 0x3996 @0xb
0x398b…39bf at000c = ╱5a╱Z╱ // 0x3997 @0xc
0x398b…39bf at000d = ╱3e╱>╱ // 0x3998 @0xd
0x398b…39bf at000e = ╱20╱…╱ // 0x3999 @0xe
0x398b…39bf at000f = ╱20╱…╱ // 0x399a @0xf
0x398b…39bf at0010 = ╱20╱…╱ // 0x399b @0x10
0x398b…39bf at0011 = ╱20╱…╱ // 0x399c @0x11
0x398b…39bf at0012 = ╱20╱…╱ // 0x399d @0x12
0x398b…39bf at0013 = ╱20╱…╱ // 0x399e @0x13
0x398b…39bf at0014 = ╱20╱…╱ // 0x399f @0x14
0x398b…39bf at0015 = ╱20╱…╱ // 0x39a0 @0x15
0x398b…39bf at0016 = ╱64╱d╱ // 0x39a1 @0x16
0x398b…39bf at0017 = ╱7b╱{╱ // 0x39a2 @0x17
0x398b…39bf at0018 = ╱6b╱k╱ // 0x39a3 @0x18
0x398b…39bf at0019 = ╱6e╱n╱ // 0x39a4 @0x19
0x398b…39bf at001a = ╱69╱i╱ // 0x39a5 @0x1a
0x398b…39bf at001b = ╱6e╱n╱ // 0x39a6 @0x1b
0x398b…39bf at001c = ╱67╱g╱ // 0x39a7 @0x1c
0x398b…39bf at001d = ╱73╱s╱ // 0x39a8 @0x1d
0x398b…39bf at001e = ╱62╱b╱ // 0x39a9 @0x1e
0x398b…39bf at001f = ╱69╱i╱ // 0x39aa @0x1f
0x398b…39bf at0020 = ╱64╱d╱ // 0x39ab @0x20
0x398b…39bf at0021 = ╱72╱r╱ // 0x39ac @0x21
0x398b…39bf at0022 = ╱61╱a╱ // 0x39ad @0x22
0x398b…39bf at0023 = ╱67╱g╱ // 0x39ae @0x23
0x398b…39bf at0024 = ╱20╱…╱ // 0x39af @0x24
0x398b…39bf at0025 = ╱41╱A╱ // 0x39b0 @0x25
0x398b…39bf at0026 = ╱20╱…╱ // 0x39b1 @0x26
0x398b…39bf at0027 = ╱3a╱:╱ // 0x39b2 @0x27
0x398b…39bf at0028 = ╱20╱…╱ // 0x39b3 @0x28
0x398b…39bf at0029 = ╱22╱"╱ // 0x39b4 @0x29
0x398b…39bf at002a = ╱f1╱ : ╱ // 0x39b5 @0x2a
0x398b…39bf at002b = ╱58╱X╱ // 0x39b6 @0x2b
0x398b…39bf at002c = ╱ed╱ ( ╱ // 0x39b7 @0x2c
0x398b…39bf at002d = ╱32╱2╱ // 0x39b8 @0x2d
0x398b…39bf at002e = ╱37╱7╱ // 0x39b9 @0x2e
0x398b…39bf at002f = ╱f21b00╱ // 0x39ba @0x2f
0x398b…39bf at0032 = ╱ee╱ ) ╱ // 0x39bd @0x32
0x398b…39bf at0033 = EOL // 0x39be @0x33
0x398b…39bf }
0x39bf…39f3 cfe1 06090 INPUT "<C2414Z>……………………d{kningsbidrag…B…:…" : X ( 28 )
0x39bf…39f3 LineComal80 {
0x39bf…39f3 ptr = 0xcfe1 // 0x39bf @0x0
0x39bf…39f3 lno = 0x17ca // 0x39c1 @0x2
0x39bf…39f3 at0004 = ╱91╱ INPUT ╱ // 0x39c3 @0x4
0x39bf…39f3 at0005 = ╱22╱"╱ // 0x39c4 @0x5
0x39bf…39f3 at0006 = ╱3c╱<╱ // 0x39c5 @0x6
0x39bf…39f3 at0007 = ╱43╱C╱ // 0x39c6 @0x7
0x39bf…39f3 at0008 = ╱32╱2╱ // 0x39c7 @0x8
0x39bf…39f3 at0009 = ╱34╱4╱ // 0x39c8 @0x9
0x39bf…39f3 at000a = ╱31╱1╱ // 0x39c9 @0xa
0x39bf…39f3 at000b = ╱34╱4╱ // 0x39ca @0xb
0x39bf…39f3 at000c = ╱5a╱Z╱ // 0x39cb @0xc
0x39bf…39f3 at000d = ╱3e╱>╱ // 0x39cc @0xd
0x39bf…39f3 at000e = ╱20╱…╱ // 0x39cd @0xe
0x39bf…39f3 at000f = ╱20╱…╱ // 0x39ce @0xf
0x39bf…39f3 at0010 = ╱20╱…╱ // 0x39cf @0x10
0x39bf…39f3 at0011 = ╱20╱…╱ // 0x39d0 @0x11
0x39bf…39f3 at0012 = ╱20╱…╱ // 0x39d1 @0x12
0x39bf…39f3 at0013 = ╱20╱…╱ // 0x39d2 @0x13
0x39bf…39f3 at0014 = ╱20╱…╱ // 0x39d3 @0x14
0x39bf…39f3 at0015 = ╱20╱…╱ // 0x39d4 @0x15
0x39bf…39f3 at0016 = ╱64╱d╱ // 0x39d5 @0x16
0x39bf…39f3 at0017 = ╱7b╱{╱ // 0x39d6 @0x17
0x39bf…39f3 at0018 = ╱6b╱k╱ // 0x39d7 @0x18
0x39bf…39f3 at0019 = ╱6e╱n╱ // 0x39d8 @0x19
0x39bf…39f3 at001a = ╱69╱i╱ // 0x39d9 @0x1a
0x39bf…39f3 at001b = ╱6e╱n╱ // 0x39da @0x1b
0x39bf…39f3 at001c = ╱67╱g╱ // 0x39db @0x1c
0x39bf…39f3 at001d = ╱73╱s╱ // 0x39dc @0x1d
0x39bf…39f3 at001e = ╱62╱b╱ // 0x39dd @0x1e
0x39bf…39f3 at001f = ╱69╱i╱ // 0x39de @0x1f
0x39bf…39f3 at0020 = ╱64╱d╱ // 0x39df @0x20
0x39bf…39f3 at0021 = ╱72╱r╱ // 0x39e0 @0x21
0x39bf…39f3 at0022 = ╱61╱a╱ // 0x39e1 @0x22
0x39bf…39f3 at0023 = ╱67╱g╱ // 0x39e2 @0x23
0x39bf…39f3 at0024 = ╱20╱…╱ // 0x39e3 @0x24
0x39bf…39f3 at0025 = ╱42╱B╱ // 0x39e4 @0x25
0x39bf…39f3 at0026 = ╱20╱…╱ // 0x39e5 @0x26
0x39bf…39f3 at0027 = ╱3a╱:╱ // 0x39e6 @0x27
0x39bf…39f3 at0028 = ╱20╱…╱ // 0x39e7 @0x28
0x39bf…39f3 at0029 = ╱22╱"╱ // 0x39e8 @0x29
0x39bf…39f3 at002a = ╱f1╱ : ╱ // 0x39e9 @0x2a
0x39bf…39f3 at002b = ╱58╱X╱ // 0x39ea @0x2b
0x39bf…39f3 at002c = ╱ed╱ ( ╱ // 0x39eb @0x2c
0x39bf…39f3 at002d = ╱32╱2╱ // 0x39ec @0x2d
0x39bf…39f3 at002e = ╱38╱8╱ // 0x39ed @0x2e
0x39bf…39f3 at002f = ╱f21c00╱ // 0x39ee @0x2f
0x39bf…39f3 at0032 = ╱ee╱ ) ╱ // 0x39f1 @0x32
0x39bf…39f3 at0033 = EOL // 0x39f2 @0x33
0x39bf…39f3 }
0x39f3…3a27 d015 06100 INPUT "<C2415Z>……………………d{kningsbidrag…C…:…" : X ( 29 )
0x39f3…3a27 LineComal80 {
0x39f3…3a27 ptr = 0xd015 // 0x39f3 @0x0
0x39f3…3a27 lno = 0x17d4 // 0x39f5 @0x2
0x39f3…3a27 at0004 = ╱91╱ INPUT ╱ // 0x39f7 @0x4
0x39f3…3a27 at0005 = ╱22╱"╱ // 0x39f8 @0x5
0x39f3…3a27 at0006 = ╱3c╱<╱ // 0x39f9 @0x6
0x39f3…3a27 at0007 = ╱43╱C╱ // 0x39fa @0x7
0x39f3…3a27 at0008 = ╱32╱2╱ // 0x39fb @0x8
0x39f3…3a27 at0009 = ╱34╱4╱ // 0x39fc @0x9
0x39f3…3a27 at000a = ╱31╱1╱ // 0x39fd @0xa
0x39f3…3a27 at000b = ╱35╱5╱ // 0x39fe @0xb
0x39f3…3a27 at000c = ╱5a╱Z╱ // 0x39ff @0xc
0x39f3…3a27 at000d = ╱3e╱>╱ // 0x3a00 @0xd
0x39f3…3a27 at000e = ╱20╱…╱ // 0x3a01 @0xe
0x39f3…3a27 at000f = ╱20╱…╱ // 0x3a02 @0xf
0x39f3…3a27 at0010 = ╱20╱…╱ // 0x3a03 @0x10
0x39f3…3a27 at0011 = ╱20╱…╱ // 0x3a04 @0x11
0x39f3…3a27 at0012 = ╱20╱…╱ // 0x3a05 @0x12
0x39f3…3a27 at0013 = ╱20╱…╱ // 0x3a06 @0x13
0x39f3…3a27 at0014 = ╱20╱…╱ // 0x3a07 @0x14
0x39f3…3a27 at0015 = ╱20╱…╱ // 0x3a08 @0x15
0x39f3…3a27 at0016 = ╱64╱d╱ // 0x3a09 @0x16
0x39f3…3a27 at0017 = ╱7b╱{╱ // 0x3a0a @0x17
0x39f3…3a27 at0018 = ╱6b╱k╱ // 0x3a0b @0x18
0x39f3…3a27 at0019 = ╱6e╱n╱ // 0x3a0c @0x19
0x39f3…3a27 at001a = ╱69╱i╱ // 0x3a0d @0x1a
0x39f3…3a27 at001b = ╱6e╱n╱ // 0x3a0e @0x1b
0x39f3…3a27 at001c = ╱67╱g╱ // 0x3a0f @0x1c
0x39f3…3a27 at001d = ╱73╱s╱ // 0x3a10 @0x1d
0x39f3…3a27 at001e = ╱62╱b╱ // 0x3a11 @0x1e
0x39f3…3a27 at001f = ╱69╱i╱ // 0x3a12 @0x1f
0x39f3…3a27 at0020 = ╱64╱d╱ // 0x3a13 @0x20
0x39f3…3a27 at0021 = ╱72╱r╱ // 0x3a14 @0x21
0x39f3…3a27 at0022 = ╱61╱a╱ // 0x3a15 @0x22
0x39f3…3a27 at0023 = ╱67╱g╱ // 0x3a16 @0x23
0x39f3…3a27 at0024 = ╱20╱…╱ // 0x3a17 @0x24
0x39f3…3a27 at0025 = ╱43╱C╱ // 0x3a18 @0x25
0x39f3…3a27 at0026 = ╱20╱…╱ // 0x3a19 @0x26
0x39f3…3a27 at0027 = ╱3a╱:╱ // 0x3a1a @0x27
0x39f3…3a27 at0028 = ╱20╱…╱ // 0x3a1b @0x28
0x39f3…3a27 at0029 = ╱22╱"╱ // 0x3a1c @0x29
0x39f3…3a27 at002a = ╱f1╱ : ╱ // 0x3a1d @0x2a
0x39f3…3a27 at002b = ╱58╱X╱ // 0x3a1e @0x2b
0x39f3…3a27 at002c = ╱ed╱ ( ╱ // 0x3a1f @0x2c
0x39f3…3a27 at002d = ╱32╱2╱ // 0x3a20 @0x2d
0x39f3…3a27 at002e = ╱39╱9╱ // 0x3a21 @0x2e
0x39f3…3a27 at002f = ╱f21d00╱ // 0x3a22 @0x2f
0x39f3…3a27 at0032 = ╱ee╱ ) ╱ // 0x3a25 @0x32
0x39f3…3a27 at0033 = EOL // 0x3a26 @0x33
0x39f3…3a27 }
0x3a27…3a64 d052 02710 INPUT "<C2418Z>Er…alle…tal…korrekt…indtastede…?…(j/n)…" : SVAR $
0x3a27…3a64 LineComal80 {
0x3a27…3a64 ptr = 0xd052 // 0x3a27 @0x0
0x3a27…3a64 lno = 0x0a96 // 0x3a29 @0x2
0x3a27…3a64 at0004 = ╱91╱ INPUT ╱ // 0x3a2b @0x4
0x3a27…3a64 at0005 = ╱22╱"╱ // 0x3a2c @0x5
0x3a27…3a64 at0006 = ╱3c╱<╱ // 0x3a2d @0x6
0x3a27…3a64 at0007 = ╱43╱C╱ // 0x3a2e @0x7
0x3a27…3a64 at0008 = ╱32╱2╱ // 0x3a2f @0x8
0x3a27…3a64 at0009 = ╱34╱4╱ // 0x3a30 @0x9
0x3a27…3a64 at000a = ╱31╱1╱ // 0x3a31 @0xa
0x3a27…3a64 at000b = ╱38╱8╱ // 0x3a32 @0xb
0x3a27…3a64 at000c = ╱5a╱Z╱ // 0x3a33 @0xc
0x3a27…3a64 at000d = ╱3e╱>╱ // 0x3a34 @0xd
0x3a27…3a64 at000e = ╱45╱E╱ // 0x3a35 @0xe
0x3a27…3a64 at000f = ╱72╱r╱ // 0x3a36 @0xf
0x3a27…3a64 at0010 = ╱20╱…╱ // 0x3a37 @0x10
0x3a27…3a64 at0011 = ╱61╱a╱ // 0x3a38 @0x11
0x3a27…3a64 at0012 = ╱6c╱l╱ // 0x3a39 @0x12
0x3a27…3a64 at0013 = ╱6c╱l╱ // 0x3a3a @0x13
0x3a27…3a64 at0014 = ╱65╱e╱ // 0x3a3b @0x14
0x3a27…3a64 at0015 = ╱20╱…╱ // 0x3a3c @0x15
0x3a27…3a64 at0016 = ╱74╱t╱ // 0x3a3d @0x16
0x3a27…3a64 at0017 = ╱61╱a╱ // 0x3a3e @0x17
0x3a27…3a64 at0018 = ╱6c╱l╱ // 0x3a3f @0x18
0x3a27…3a64 at0019 = ╱20╱…╱ // 0x3a40 @0x19
0x3a27…3a64 at001a = ╱6b╱k╱ // 0x3a41 @0x1a
0x3a27…3a64 at001b = ╱6f╱o╱ // 0x3a42 @0x1b
0x3a27…3a64 at001c = ╱72╱r╱ // 0x3a43 @0x1c
0x3a27…3a64 at001d = ╱72╱r╱ // 0x3a44 @0x1d
0x3a27…3a64 at001e = ╱65╱e╱ // 0x3a45 @0x1e
0x3a27…3a64 at001f = ╱6b╱k╱ // 0x3a46 @0x1f
0x3a27…3a64 at0020 = ╱74╱t╱ // 0x3a47 @0x20
0x3a27…3a64 at0021 = ╱20╱…╱ // 0x3a48 @0x21
0x3a27…3a64 at0022 = ╱69╱i╱ // 0x3a49 @0x22
0x3a27…3a64 at0023 = ╱6e╱n╱ // 0x3a4a @0x23
0x3a27…3a64 at0024 = ╱64╱d╱ // 0x3a4b @0x24
0x3a27…3a64 at0025 = ╱74╱t╱ // 0x3a4c @0x25
0x3a27…3a64 at0026 = ╱61╱a╱ // 0x3a4d @0x26
0x3a27…3a64 at0027 = ╱73╱s╱ // 0x3a4e @0x27
0x3a27…3a64 at0028 = ╱74╱t╱ // 0x3a4f @0x28
0x3a27…3a64 at0029 = ╱65╱e╱ // 0x3a50 @0x29
0x3a27…3a64 at002a = ╱64╱d╱ // 0x3a51 @0x2a
0x3a27…3a64 at002b = ╱65╱e╱ // 0x3a52 @0x2b
0x3a27…3a64 at002c = ╱20╱…╱ // 0x3a53 @0x2c
0x3a27…3a64 at002d = ╱3f╱?╱ // 0x3a54 @0x2d
0x3a27…3a64 at002e = ╱20╱…╱ // 0x3a55 @0x2e
0x3a27…3a64 at002f = ╱28╱(╱ // 0x3a56 @0x2f
0x3a27…3a64 at0030 = ╱6a╱j╱ // 0x3a57 @0x30
0x3a27…3a64 at0031 = ╱2f╱/╱ // 0x3a58 @0x31
0x3a27…3a64 at0032 = ╱6e╱n╱ // 0x3a59 @0x32
0x3a27…3a64 at0033 = ╱29╱)╱ // 0x3a5a @0x33
0x3a27…3a64 at0034 = ╱20╱…╱ // 0x3a5b @0x34
0x3a27…3a64 at0035 = ╱22╱"╱ // 0x3a5c @0x35
0x3a27…3a64 at0036 = ╱f1╱ : ╱ // 0x3a5d @0x36
0x3a27…3a64 at0037 = ╱53╱S╱ // 0x3a5e @0x37
0x3a27…3a64 at0038 = ╱56╱V╱ // 0x3a5f @0x38
0x3a27…3a64 at0039 = ╱41╱A╱ // 0x3a60 @0x39
0x3a27…3a64 at003a = ╱52╱R╱ // 0x3a61 @0x3a
0x3a27…3a64 at003b = ╱ef╱ $ ╱ // 0x3a62 @0x3b
0x3a27…3a64 at003c = EOL // 0x3a63 @0x3c
0x3a27…3a64 }
0x3a64…3a7d d2ab 02760 UNTIL SVAR $ = "j" OR SVAR $ = "J"
0x3a64…3a7d LineComal80 {
0x3a64…3a7d ptr = 0xd2ab // 0x3a64 @0x0
0x3a64…3a7d lno = 0x0ac8 // 0x3a66 @0x2
0x3a64…3a7d at0004 = ╱98╱ UNTIL ╱ // 0x3a68 @0x4
0x3a64…3a7d at0005 = ╱53╱S╱ // 0x3a69 @0x5
0x3a64…3a7d at0006 = ╱56╱V╱ // 0x3a6a @0x6
0x3a64…3a7d at0007 = ╱41╱A╱ // 0x3a6b @0x7
0x3a64…3a7d at0008 = ╱52╱R╱ // 0x3a6c @0x8
0x3a64…3a7d at0009 = ╱ef╱ $ ╱ // 0x3a6d @0x9
0x3a64…3a7d at000a = ╱df╱ = ╱ // 0x3a6e @0xa
0x3a64…3a7d at000b = ╱22╱"╱ // 0x3a6f @0xb
0x3a64…3a7d at000c = ╱6a╱j╱ // 0x3a70 @0xc
0x3a64…3a7d at000d = ╱22╱"╱ // 0x3a71 @0xd
0x3a64…3a7d at000e = ╱d8╱ OR ╱ // 0x3a72 @0xe
0x3a64…3a7d at000f = ╱53╱S╱ // 0x3a73 @0xf
0x3a64…3a7d at0010 = ╱56╱V╱ // 0x3a74 @0x10
0x3a64…3a7d at0011 = ╱41╱A╱ // 0x3a75 @0x11
0x3a64…3a7d at0012 = ╱52╱R╱ // 0x3a76 @0x12
0x3a64…3a7d at0013 = ╱ef╱ $ ╱ // 0x3a77 @0x13
0x3a64…3a7d at0014 = ╱df╱ = ╱ // 0x3a78 @0x14
0x3a64…3a7d at0015 = ╱22╱"╱ // 0x3a79 @0x15
0x3a64…3a7d at0016 = ╱4a╱J╱ // 0x3a7a @0x16
0x3a64…3a7d at0017 = ╱22╱"╱ // 0x3a7b @0x17
0x3a64…3a7d at0018 = EOL // 0x3a7c @0x18
0x3a64…3a7d }
0x3a7d…3a90 d343 02780 FOR I := 1 TO DO
0x3a7d…3a90 LineComal80 {
0x3a7d…3a90 ptr = 0xd343 // 0x3a7d @0x0
0x3a7d…3a90 lno = 0x0adc // 0x3a7f @0x2
0x3a7d…3a90 at0004 = ╱832b╱ FOR ╱ // 0x3a81 @0x4
0x3a7d…3a90 at0006 = ╱49╱I╱ // 0x3a83 @0x6
0x3a7d…3a90 at0007 = ╱f0╱ := ╱ // 0x3a84 @0x7
0x3a7d…3a90 at0008 = ╱31╱1╱ // 0x3a85 @0x8
0x3a7d…3a90 at0009 = ╱f20100╱ // 0x3a86 @0x9
0x3a7d…3a90 at000c = ╱b733╱ TO ╱ // 0x3a89 @0xc
0x3a7d…3a90 at000e = ╱f20300╱ // 0x3a8b @0xe
0x3a7d…3a90 at0011 = ╱bb╱ DO ╱ // 0x3a8e @0x11
0x3a7d…3a90 at0012 = EOL // 0x3a8f @0x12
0x3a7d…3a90 }
0x3a90…3ab2 d0a0 06140 LET X ( 21 ) := X ( 21 ) + X ( 21 + I )
0x3a90…3ab2 LineComal80 {
0x3a90…3ab2 ptr = 0xd0a0 // 0x3a90 @0x0
0x3a90…3ab2 lno = 0x17fc // 0x3a92 @0x2
0x3a90…3ab2 at0004 = ╱86╱ LET ╱ // 0x3a94 @0x4
0x3a90…3ab2 at0005 = ╱58╱X╱ // 0x3a95 @0x5
0x3a90…3ab2 at0006 = ╱ed╱ ( ╱ // 0x3a96 @0x6
0x3a90…3ab2 at0007 = ╱32╱2╱ // 0x3a97 @0x7
0x3a90…3ab2 at0008 = ╱31╱1╱ // 0x3a98 @0x8
0x3a90…3ab2 at0009 = ╱f21500╱ // 0x3a99 @0x9
0x3a90…3ab2 at000c = ╱ee╱ ) ╱ // 0x3a9c @0xc
0x3a90…3ab2 at000d = ╱f0╱ := ╱ // 0x3a9d @0xd
0x3a90…3ab2 at000e = ╱58╱X╱ // 0x3a9e @0xe
0x3a90…3ab2 at000f = ╱ed╱ ( ╱ // 0x3a9f @0xf
0x3a90…3ab2 at0010 = ╱32╱2╱ // 0x3aa0 @0x10
0x3a90…3ab2 at0011 = ╱31╱1╱ // 0x3aa1 @0x11
0x3a90…3ab2 at0012 = ╱f21500╱ // 0x3aa2 @0x12
0x3a90…3ab2 at0015 = ╱ee╱ ) ╱ // 0x3aa5 @0x15
0x3a90…3ab2 at0016 = ╱e5╱ + ╱ // 0x3aa6 @0x16
0x3a90…3ab2 at0017 = ╱58╱X╱ // 0x3aa7 @0x17
0x3a90…3ab2 at0018 = ╱ed╱ ( ╱ // 0x3aa8 @0x18
0x3a90…3ab2 at0019 = ╱32╱2╱ // 0x3aa9 @0x19
0x3a90…3ab2 at001a = ╱31╱1╱ // 0x3aaa @0x1a
0x3a90…3ab2 at001b = ╱f21500╱ // 0x3aab @0x1b
0x3a90…3ab2 at001e = ╱e5╱ + ╱ // 0x3aae @0x1e
0x3a90…3ab2 at001f = ╱49╱I╱ // 0x3aaf @0x1f
0x3a90…3ab2 at0020 = ╱ee╱ ) ╱ // 0x3ab0 @0x20
0x3a90…3ab2 at0021 = EOL // 0x3ab1 @0x21
0x3a90…3ab2 }
0x3ab2…3ad4 d0c2 02800 LET X ( 26 ) := X ( 26 ) + X ( 26 + I )
0x3ab2…3ad4 LineComal80 {
0x3ab2…3ad4 ptr = 0xd0c2 // 0x3ab2 @0x0
0x3ab2…3ad4 lno = 0x0af0 // 0x3ab4 @0x2
0x3ab2…3ad4 at0004 = ╱86╱ LET ╱ // 0x3ab6 @0x4
0x3ab2…3ad4 at0005 = ╱58╱X╱ // 0x3ab7 @0x5
0x3ab2…3ad4 at0006 = ╱ed╱ ( ╱ // 0x3ab8 @0x6
0x3ab2…3ad4 at0007 = ╱32╱2╱ // 0x3ab9 @0x7
0x3ab2…3ad4 at0008 = ╱36╱6╱ // 0x3aba @0x8
0x3ab2…3ad4 at0009 = ╱f21a00╱ // 0x3abb @0x9
0x3ab2…3ad4 at000c = ╱ee╱ ) ╱ // 0x3abe @0xc
0x3ab2…3ad4 at000d = ╱f0╱ := ╱ // 0x3abf @0xd
0x3ab2…3ad4 at000e = ╱58╱X╱ // 0x3ac0 @0xe
0x3ab2…3ad4 at000f = ╱ed╱ ( ╱ // 0x3ac1 @0xf
0x3ab2…3ad4 at0010 = ╱32╱2╱ // 0x3ac2 @0x10
0x3ab2…3ad4 at0011 = ╱36╱6╱ // 0x3ac3 @0x11
0x3ab2…3ad4 at0012 = ╱f21a00╱ // 0x3ac4 @0x12
0x3ab2…3ad4 at0015 = ╱ee╱ ) ╱ // 0x3ac7 @0x15
0x3ab2…3ad4 at0016 = ╱e5╱ + ╱ // 0x3ac8 @0x16
0x3ab2…3ad4 at0017 = ╱58╱X╱ // 0x3ac9 @0x17
0x3ab2…3ad4 at0018 = ╱ed╱ ( ╱ // 0x3aca @0x18
0x3ab2…3ad4 at0019 = ╱32╱2╱ // 0x3acb @0x19
0x3ab2…3ad4 at001a = ╱36╱6╱ // 0x3acc @0x1a
0x3ab2…3ad4 at001b = ╱f21a00╱ // 0x3acd @0x1b
0x3ab2…3ad4 at001e = ╱e5╱ + ╱ // 0x3ad0 @0x1e
0x3ab2…3ad4 at001f = ╱49╱I╱ // 0x3ad1 @0x1f
0x3ab2…3ad4 at0020 = ╱ee╱ ) ╱ // 0x3ad2 @0x20
0x3ab2…3ad4 at0021 = EOL // 0x3ad3 @0x21
0x3ab2…3ad4 }
0x3ad4…3adb d0c9 02810 NEXT I
0x3ad4…3adb LineComal80 {
0x3ad4…3adb ptr = 0xd0c9 // 0x3ad4 @0x0
0x3ad4…3adb lno = 0x0afa // 0x3ad6 @0x2
0x3ad4…3adb at0004 = ╱84╱ NEXT ╱ // 0x3ad8 @0x4
0x3ad4…3adb at0005 = ╱49╱I╱ // 0x3ad9 @0x5
0x3ad4…3adb at0006 = EOL // 0x3ada @0x6
0x3ad4…3adb }
0x3adb…3ae9 d374 02820 ENDPROC INPUTTAL
0x3adb…3ae9 LineComal80 {
0x3adb…3ae9 ptr = 0xd374 // 0x3adb @0x0
0x3adb…3ae9 lno = 0x0b04 // 0x3add @0x2
0x3adb…3ae9 at0004 = ╱9f╱ ENDPROC ╱ // 0x3adf @0x4
0x3adb…3ae9 at0005 = ╱49╱I╱ // 0x3ae0 @0x5
0x3adb…3ae9 at0006 = ╱4e╱N╱ // 0x3ae1 @0x6
0x3adb…3ae9 at0007 = ╱50╱P╱ // 0x3ae2 @0x7
0x3adb…3ae9 at0008 = ╱55╱U╱ // 0x3ae3 @0x8
0x3adb…3ae9 at0009 = ╱54╱T╱ // 0x3ae4 @0x9
0x3adb…3ae9 at000a = ╱54╱T╱ // 0x3ae5 @0xa
0x3adb…3ae9 at000b = ╱41╱A╱ // 0x3ae6 @0xb
0x3adb…3ae9 at000c = ╱4c╱L╱ // 0x3ae7 @0xc
0x3adb…3ae9 at000d = EOL // 0x3ae8 @0xd
0x3adb…3ae9 }
0x3ae9…3b1d cedd 06040 INPUT "<C2409Z>……………………primolager…A……………:…" : X ( 22 )
0x3ae9…3b1d LineComal80 {
0x3ae9…3b1d ptr = 0xcedd // 0x3ae9 @0x0
0x3ae9…3b1d lno = 0x1798 // 0x3aeb @0x2
0x3ae9…3b1d at0004 = ╱91╱ INPUT ╱ // 0x3aed @0x4
0x3ae9…3b1d at0005 = ╱22╱"╱ // 0x3aee @0x5
0x3ae9…3b1d at0006 = ╱3c╱<╱ // 0x3aef @0x6
0x3ae9…3b1d at0007 = ╱43╱C╱ // 0x3af0 @0x7
0x3ae9…3b1d at0008 = ╱32╱2╱ // 0x3af1 @0x8
0x3ae9…3b1d at0009 = ╱34╱4╱ // 0x3af2 @0x9
0x3ae9…3b1d at000a = ╱30╱0╱ // 0x3af3 @0xa
0x3ae9…3b1d at000b = ╱39╱9╱ // 0x3af4 @0xb
0x3ae9…3b1d at000c = ╱5a╱Z╱ // 0x3af5 @0xc
0x3ae9…3b1d at000d = ╱3e╱>╱ // 0x3af6 @0xd
0x3ae9…3b1d at000e = ╱20╱…╱ // 0x3af7 @0xe
0x3ae9…3b1d at000f = ╱20╱…╱ // 0x3af8 @0xf
0x3ae9…3b1d at0010 = ╱20╱…╱ // 0x3af9 @0x10
0x3ae9…3b1d at0011 = ╱20╱…╱ // 0x3afa @0x11
0x3ae9…3b1d at0012 = ╱20╱…╱ // 0x3afb @0x12
0x3ae9…3b1d at0013 = ╱20╱…╱ // 0x3afc @0x13
0x3ae9…3b1d at0014 = ╱20╱…╱ // 0x3afd @0x14
0x3ae9…3b1d at0015 = ╱20╱…╱ // 0x3afe @0x15
0x3ae9…3b1d at0016 = ╱70╱p╱ // 0x3aff @0x16
0x3ae9…3b1d at0017 = ╱72╱r╱ // 0x3b00 @0x17
0x3ae9…3b1d at0018 = ╱69╱i╱ // 0x3b01 @0x18
0x3ae9…3b1d at0019 = ╱6d╱m╱ // 0x3b02 @0x19
0x3ae9…3b1d at001a = ╱6f╱o╱ // 0x3b03 @0x1a
0x3ae9…3b1d at001b = ╱6c╱l╱ // 0x3b04 @0x1b
0x3ae9…3b1d at001c = ╱61╱a╱ // 0x3b05 @0x1c
0x3ae9…3b1d at001d = ╱67╱g╱ // 0x3b06 @0x1d
0x3ae9…3b1d at001e = ╱65╱e╱ // 0x3b07 @0x1e
0x3ae9…3b1d at001f = ╱72╱r╱ // 0x3b08 @0x1f
0x3ae9…3b1d at0020 = ╱20╱…╱ // 0x3b09 @0x20
0x3ae9…3b1d at0021 = ╱41╱A╱ // 0x3b0a @0x21
0x3ae9…3b1d at0022 = ╱20╱…╱ // 0x3b0b @0x22
0x3ae9…3b1d at0023 = ╱20╱…╱ // 0x3b0c @0x23
0x3ae9…3b1d at0024 = ╱20╱…╱ // 0x3b0d @0x24
0x3ae9…3b1d at0025 = ╱20╱…╱ // 0x3b0e @0x25
0x3ae9…3b1d at0026 = ╱20╱…╱ // 0x3b0f @0x26
0x3ae9…3b1d at0027 = ╱3a╱:╱ // 0x3b10 @0x27
0x3ae9…3b1d at0028 = ╱20╱…╱ // 0x3b11 @0x28
0x3ae9…3b1d at0029 = ╱22╱"╱ // 0x3b12 @0x29
0x3ae9…3b1d at002a = ╱f1╱ : ╱ // 0x3b13 @0x2a
0x3ae9…3b1d at002b = ╱58╱X╱ // 0x3b14 @0x2b
0x3ae9…3b1d at002c = ╱ed╱ ( ╱ // 0x3b15 @0x2c
0x3ae9…3b1d at002d = ╱32╱2╱ // 0x3b16 @0x2d
0x3ae9…3b1d at002e = ╱32╱2╱ // 0x3b17 @0x2e
0x3ae9…3b1d at002f = ╱f21600╱ // 0x3b18 @0x2f
0x3ae9…3b1d at0032 = ╱ee╱ ) ╱ // 0x3b1b @0x32
0x3ae9…3b1d at0033 = EOL // 0x3b1c @0x33
0x3ae9…3b1d }
0x3b1d…3b51 d277 06040 INPUT "<C2409Z>……………………primolager…………………:…" : X ( 22 )
0x3b1d…3b51 LineComal80 {
0x3b1d…3b51 ptr = 0xd277 // 0x3b1d @0x0
0x3b1d…3b51 lno = 0x1798 // 0x3b1f @0x2
0x3b1d…3b51 at0004 = ╱91╱ INPUT ╱ // 0x3b21 @0x4
0x3b1d…3b51 at0005 = ╱22╱"╱ // 0x3b22 @0x5
0x3b1d…3b51 at0006 = ╱3c╱<╱ // 0x3b23 @0x6
0x3b1d…3b51 at0007 = ╱43╱C╱ // 0x3b24 @0x7
0x3b1d…3b51 at0008 = ╱32╱2╱ // 0x3b25 @0x8
0x3b1d…3b51 at0009 = ╱34╱4╱ // 0x3b26 @0x9
0x3b1d…3b51 at000a = ╱30╱0╱ // 0x3b27 @0xa
0x3b1d…3b51 at000b = ╱39╱9╱ // 0x3b28 @0xb
0x3b1d…3b51 at000c = ╱5a╱Z╱ // 0x3b29 @0xc
0x3b1d…3b51 at000d = ╱3e╱>╱ // 0x3b2a @0xd
0x3b1d…3b51 at000e = ╱20╱…╱ // 0x3b2b @0xe
0x3b1d…3b51 at000f = ╱20╱…╱ // 0x3b2c @0xf
0x3b1d…3b51 at0010 = ╱20╱…╱ // 0x3b2d @0x10
0x3b1d…3b51 at0011 = ╱20╱…╱ // 0x3b2e @0x11
0x3b1d…3b51 at0012 = ╱20╱…╱ // 0x3b2f @0x12
0x3b1d…3b51 at0013 = ╱20╱…╱ // 0x3b30 @0x13
0x3b1d…3b51 at0014 = ╱20╱…╱ // 0x3b31 @0x14
0x3b1d…3b51 at0015 = ╱20╱…╱ // 0x3b32 @0x15
0x3b1d…3b51 at0016 = ╱70╱p╱ // 0x3b33 @0x16
0x3b1d…3b51 at0017 = ╱72╱r╱ // 0x3b34 @0x17
0x3b1d…3b51 at0018 = ╱69╱i╱ // 0x3b35 @0x18
0x3b1d…3b51 at0019 = ╱6d╱m╱ // 0x3b36 @0x19
0x3b1d…3b51 at001a = ╱6f╱o╱ // 0x3b37 @0x1a
0x3b1d…3b51 at001b = ╱6c╱l╱ // 0x3b38 @0x1b
0x3b1d…3b51 at001c = ╱61╱a╱ // 0x3b39 @0x1c
0x3b1d…3b51 at001d = ╱67╱g╱ // 0x3b3a @0x1d
0x3b1d…3b51 at001e = ╱65╱e╱ // 0x3b3b @0x1e
0x3b1d…3b51 at001f = ╱72╱r╱ // 0x3b3c @0x1f
0x3b1d…3b51 at0020 = ╱20╱…╱ // 0x3b3d @0x20
0x3b1d…3b51 at0021 = ╱20╱…╱ // 0x3b3e @0x21
0x3b1d…3b51 at0022 = ╱20╱…╱ // 0x3b3f @0x22
0x3b1d…3b51 at0023 = ╱20╱…╱ // 0x3b40 @0x23
0x3b1d…3b51 at0024 = ╱20╱…╱ // 0x3b41 @0x24
0x3b1d…3b51 at0025 = ╱20╱…╱ // 0x3b42 @0x25
0x3b1d…3b51 at0026 = ╱20╱…╱ // 0x3b43 @0x26
0x3b1d…3b51 at0027 = ╱3a╱:╱ // 0x3b44 @0x27
0x3b1d…3b51 at0028 = ╱20╱…╱ // 0x3b45 @0x28
0x3b1d…3b51 at0029 = ╱22╱"╱ // 0x3b46 @0x29
0x3b1d…3b51 at002a = ╱f1╱ : ╱ // 0x3b47 @0x2a
0x3b1d…3b51 at002b = ╱58╱X╱ // 0x3b48 @0x2b
0x3b1d…3b51 at002c = ╱ed╱ ( ╱ // 0x3b49 @0x2c
0x3b1d…3b51 at002d = ╱32╱2╱ // 0x3b4a @0x2d
0x3b1d…3b51 at002e = ╱32╱2╱ // 0x3b4b @0x2e
0x3b1d…3b51 at002f = ╱f21600╱ // 0x3b4c @0x2f
0x3b1d…3b51 at0032 = ╱ee╱ ) ╱ // 0x3b4f @0x32
0x3b1d…3b51 at0033 = EOL // 0x3b50 @0x33
0x3b1d…3b51 }
0x3b51…3b85 d173 06050 INPUT "<C2410Z>……………………\vr.…var.…omk.…A…:…" : X ( 23 )
0x3b51…3b85 LineComal80 {
0x3b51…3b85 ptr = 0xd173 // 0x3b51 @0x0
0x3b51…3b85 lno = 0x17a2 // 0x3b53 @0x2
0x3b51…3b85 at0004 = ╱91╱ INPUT ╱ // 0x3b55 @0x4
0x3b51…3b85 at0005 = ╱22╱"╱ // 0x3b56 @0x5
0x3b51…3b85 at0006 = ╱3c╱<╱ // 0x3b57 @0x6
0x3b51…3b85 at0007 = ╱43╱C╱ // 0x3b58 @0x7
0x3b51…3b85 at0008 = ╱32╱2╱ // 0x3b59 @0x8
0x3b51…3b85 at0009 = ╱34╱4╱ // 0x3b5a @0x9
0x3b51…3b85 at000a = ╱31╱1╱ // 0x3b5b @0xa
0x3b51…3b85 at000b = ╱30╱0╱ // 0x3b5c @0xb
0x3b51…3b85 at000c = ╱5a╱Z╱ // 0x3b5d @0xc
0x3b51…3b85 at000d = ╱3e╱>╱ // 0x3b5e @0xd
0x3b51…3b85 at000e = ╱20╱…╱ // 0x3b5f @0xe
0x3b51…3b85 at000f = ╱20╱…╱ // 0x3b60 @0xf
0x3b51…3b85 at0010 = ╱20╱…╱ // 0x3b61 @0x10
0x3b51…3b85 at0011 = ╱20╱…╱ // 0x3b62 @0x11
0x3b51…3b85 at0012 = ╱20╱…╱ // 0x3b63 @0x12
0x3b51…3b85 at0013 = ╱20╱…╱ // 0x3b64 @0x13
0x3b51…3b85 at0014 = ╱20╱…╱ // 0x3b65 @0x14
0x3b51…3b85 at0015 = ╱20╱…╱ // 0x3b66 @0x15
0x3b51…3b85 at0016 = ╱5c╱\╱ // 0x3b67 @0x16
0x3b51…3b85 at0017 = ╱76╱v╱ // 0x3b68 @0x17
0x3b51…3b85 at0018 = ╱72╱r╱ // 0x3b69 @0x18
0x3b51…3b85 at0019 = ╱2e╱.╱ // 0x3b6a @0x19
0x3b51…3b85 at001a = ╱20╱…╱ // 0x3b6b @0x1a
0x3b51…3b85 at001b = ╱76╱v╱ // 0x3b6c @0x1b
0x3b51…3b85 at001c = ╱61╱a╱ // 0x3b6d @0x1c
0x3b51…3b85 at001d = ╱72╱r╱ // 0x3b6e @0x1d
0x3b51…3b85 at001e = ╱2e╱.╱ // 0x3b6f @0x1e
0x3b51…3b85 at001f = ╱20╱…╱ // 0x3b70 @0x1f
0x3b51…3b85 at0020 = ╱6f╱o╱ // 0x3b71 @0x20
0x3b51…3b85 at0021 = ╱6d╱m╱ // 0x3b72 @0x21
0x3b51…3b85 at0022 = ╱6b╱k╱ // 0x3b73 @0x22
0x3b51…3b85 at0023 = ╱2e╱.╱ // 0x3b74 @0x23
0x3b51…3b85 at0024 = ╱20╱…╱ // 0x3b75 @0x24
0x3b51…3b85 at0025 = ╱41╱A╱ // 0x3b76 @0x25
0x3b51…3b85 at0026 = ╱20╱…╱ // 0x3b77 @0x26
0x3b51…3b85 at0027 = ╱3a╱:╱ // 0x3b78 @0x27
0x3b51…3b85 at0028 = ╱20╱…╱ // 0x3b79 @0x28
0x3b51…3b85 at0029 = ╱22╱"╱ // 0x3b7a @0x29
0x3b51…3b85 at002a = ╱f1╱ : ╱ // 0x3b7b @0x2a
0x3b51…3b85 at002b = ╱58╱X╱ // 0x3b7c @0x2b
0x3b51…3b85 at002c = ╱ed╱ ( ╱ // 0x3b7d @0x2c
0x3b51…3b85 at002d = ╱32╱2╱ // 0x3b7e @0x2d
0x3b51…3b85 at002e = ╱33╱3╱ // 0x3b7f @0x2e
0x3b51…3b85 at002f = ╱f21700╱ // 0x3b80 @0x2f
0x3b51…3b85 at0032 = ╱ee╱ ) ╱ // 0x3b83 @0x32
0x3b51…3b85 at0033 = EOL // 0x3b84 @0x33
0x3b51…3b85 }
0x3b85…3bb9 d1a7 02730 INPUT "<C2411Z>……………………\vr.…var.…omk.…B…:…" : X ( 28 )
0x3b85…3bb9 LineComal80 {
0x3b85…3bb9 ptr = 0xd1a7 // 0x3b85 @0x0
0x3b85…3bb9 lno = 0x0aaa // 0x3b87 @0x2
0x3b85…3bb9 at0004 = ╱91╱ INPUT ╱ // 0x3b89 @0x4
0x3b85…3bb9 at0005 = ╱22╱"╱ // 0x3b8a @0x5
0x3b85…3bb9 at0006 = ╱3c╱<╱ // 0x3b8b @0x6
0x3b85…3bb9 at0007 = ╱43╱C╱ // 0x3b8c @0x7
0x3b85…3bb9 at0008 = ╱32╱2╱ // 0x3b8d @0x8
0x3b85…3bb9 at0009 = ╱34╱4╱ // 0x3b8e @0x9
0x3b85…3bb9 at000a = ╱31╱1╱ // 0x3b8f @0xa
0x3b85…3bb9 at000b = ╱31╱1╱ // 0x3b90 @0xb
0x3b85…3bb9 at000c = ╱5a╱Z╱ // 0x3b91 @0xc
0x3b85…3bb9 at000d = ╱3e╱>╱ // 0x3b92 @0xd
0x3b85…3bb9 at000e = ╱20╱…╱ // 0x3b93 @0xe
0x3b85…3bb9 at000f = ╱20╱…╱ // 0x3b94 @0xf
0x3b85…3bb9 at0010 = ╱20╱…╱ // 0x3b95 @0x10
0x3b85…3bb9 at0011 = ╱20╱…╱ // 0x3b96 @0x11
0x3b85…3bb9 at0012 = ╱20╱…╱ // 0x3b97 @0x12
0x3b85…3bb9 at0013 = ╱20╱…╱ // 0x3b98 @0x13
0x3b85…3bb9 at0014 = ╱20╱…╱ // 0x3b99 @0x14
0x3b85…3bb9 at0015 = ╱20╱…╱ // 0x3b9a @0x15
0x3b85…3bb9 at0016 = ╱5c╱\╱ // 0x3b9b @0x16
0x3b85…3bb9 at0017 = ╱76╱v╱ // 0x3b9c @0x17
0x3b85…3bb9 at0018 = ╱72╱r╱ // 0x3b9d @0x18
0x3b85…3bb9 at0019 = ╱2e╱.╱ // 0x3b9e @0x19
0x3b85…3bb9 at001a = ╱20╱…╱ // 0x3b9f @0x1a
0x3b85…3bb9 at001b = ╱76╱v╱ // 0x3ba0 @0x1b
0x3b85…3bb9 at001c = ╱61╱a╱ // 0x3ba1 @0x1c
0x3b85…3bb9 at001d = ╱72╱r╱ // 0x3ba2 @0x1d
0x3b85…3bb9 at001e = ╱2e╱.╱ // 0x3ba3 @0x1e
0x3b85…3bb9 at001f = ╱20╱…╱ // 0x3ba4 @0x1f
0x3b85…3bb9 at0020 = ╱6f╱o╱ // 0x3ba5 @0x20
0x3b85…3bb9 at0021 = ╱6d╱m╱ // 0x3ba6 @0x21
0x3b85…3bb9 at0022 = ╱6b╱k╱ // 0x3ba7 @0x22
0x3b85…3bb9 at0023 = ╱2e╱.╱ // 0x3ba8 @0x23
0x3b85…3bb9 at0024 = ╱20╱…╱ // 0x3ba9 @0x24
0x3b85…3bb9 at0025 = ╱42╱B╱ // 0x3baa @0x25
0x3b85…3bb9 at0026 = ╱20╱…╱ // 0x3bab @0x26
0x3b85…3bb9 at0027 = ╱3a╱:╱ // 0x3bac @0x27
0x3b85…3bb9 at0028 = ╱20╱…╱ // 0x3bad @0x28
0x3b85…3bb9 at0029 = ╱22╱"╱ // 0x3bae @0x29
0x3b85…3bb9 at002a = ╱f1╱ : ╱ // 0x3baf @0x2a
0x3b85…3bb9 at002b = ╱58╱X╱ // 0x3bb0 @0x2b
0x3b85…3bb9 at002c = ╱ed╱ ( ╱ // 0x3bb1 @0x2c
0x3b85…3bb9 at002d = ╱32╱2╱ // 0x3bb2 @0x2d
0x3b85…3bb9 at002e = ╱38╱8╱ // 0x3bb3 @0x2e
0x3b85…3bb9 at002f = ╱f21c00╱ // 0x3bb4 @0x2f
0x3b85…3bb9 at0032 = ╱ee╱ ) ╱ // 0x3bb7 @0x32
0x3b85…3bb9 at0033 = EOL // 0x3bb8 @0x33
0x3b85…3bb9 }
0x3bb9…3bed d56d 02740 INPUT "<C2412Z>……………………\vr.…var.…omk.…C…:…" : X ( 29 )
0x3bb9…3bed LineComal80 {
0x3bb9…3bed ptr = 0xd56d // 0x3bb9 @0x0
0x3bb9…3bed lno = 0x0ab4 // 0x3bbb @0x2
0x3bb9…3bed at0004 = ╱91╱ INPUT ╱ // 0x3bbd @0x4
0x3bb9…3bed at0005 = ╱22╱"╱ // 0x3bbe @0x5
0x3bb9…3bed at0006 = ╱3c╱<╱ // 0x3bbf @0x6
0x3bb9…3bed at0007 = ╱43╱C╱ // 0x3bc0 @0x7
0x3bb9…3bed at0008 = ╱32╱2╱ // 0x3bc1 @0x8
0x3bb9…3bed at0009 = ╱34╱4╱ // 0x3bc2 @0x9
0x3bb9…3bed at000a = ╱31╱1╱ // 0x3bc3 @0xa
0x3bb9…3bed at000b = ╱32╱2╱ // 0x3bc4 @0xb
0x3bb9…3bed at000c = ╱5a╱Z╱ // 0x3bc5 @0xc
0x3bb9…3bed at000d = ╱3e╱>╱ // 0x3bc6 @0xd
0x3bb9…3bed at000e = ╱20╱…╱ // 0x3bc7 @0xe
0x3bb9…3bed at000f = ╱20╱…╱ // 0x3bc8 @0xf
0x3bb9…3bed at0010 = ╱20╱…╱ // 0x3bc9 @0x10
0x3bb9…3bed at0011 = ╱20╱…╱ // 0x3bca @0x11
0x3bb9…3bed at0012 = ╱20╱…╱ // 0x3bcb @0x12
0x3bb9…3bed at0013 = ╱20╱…╱ // 0x3bcc @0x13
0x3bb9…3bed at0014 = ╱20╱…╱ // 0x3bcd @0x14
0x3bb9…3bed at0015 = ╱20╱…╱ // 0x3bce @0x15
0x3bb9…3bed at0016 = ╱5c╱\╱ // 0x3bcf @0x16
0x3bb9…3bed at0017 = ╱76╱v╱ // 0x3bd0 @0x17
0x3bb9…3bed at0018 = ╱72╱r╱ // 0x3bd1 @0x18
0x3bb9…3bed at0019 = ╱2e╱.╱ // 0x3bd2 @0x19
0x3bb9…3bed at001a = ╱20╱…╱ // 0x3bd3 @0x1a
0x3bb9…3bed at001b = ╱76╱v╱ // 0x3bd4 @0x1b
0x3bb9…3bed at001c = ╱61╱a╱ // 0x3bd5 @0x1c
0x3bb9…3bed at001d = ╱72╱r╱ // 0x3bd6 @0x1d
0x3bb9…3bed at001e = ╱2e╱.╱ // 0x3bd7 @0x1e
0x3bb9…3bed at001f = ╱20╱…╱ // 0x3bd8 @0x1f
0x3bb9…3bed at0020 = ╱6f╱o╱ // 0x3bd9 @0x20
0x3bb9…3bed at0021 = ╱6d╱m╱ // 0x3bda @0x21
0x3bb9…3bed at0022 = ╱6b╱k╱ // 0x3bdb @0x22
0x3bb9…3bed at0023 = ╱2e╱.╱ // 0x3bdc @0x23
0x3bb9…3bed at0024 = ╱20╱…╱ // 0x3bdd @0x24
0x3bb9…3bed at0025 = ╱43╱C╱ // 0x3bde @0x25
0x3bb9…3bed at0026 = ╱20╱…╱ // 0x3bdf @0x26
0x3bb9…3bed at0027 = ╱3a╱:╱ // 0x3be0 @0x27
0x3bb9…3bed at0028 = ╱20╱…╱ // 0x3be1 @0x28
0x3bb9…3bed at0029 = ╱22╱"╱ // 0x3be2 @0x29
0x3bb9…3bed at002a = ╱f1╱ : ╱ // 0x3be3 @0x2a
0x3bb9…3bed at002b = ╱58╱X╱ // 0x3be4 @0x2b
0x3bb9…3bed at002c = ╱ed╱ ( ╱ // 0x3be5 @0x2c
0x3bb9…3bed at002d = ╱32╱2╱ // 0x3be6 @0x2d
0x3bb9…3bed at002e = ╱39╱9╱ // 0x3be7 @0x2e
0x3bb9…3bed at002f = ╱f21d00╱ // 0x3be8 @0x2f
0x3bb9…3bed at0032 = ╱ee╱ ) ╱ // 0x3beb @0x32
0x3bb9…3bed at0033 = EOL // 0x3bec @0x33
0x3bb9…3bed }
0x3bed…3c21 d20f 06080 INPUT "<C2413Z>……………………d{kningsbidrag…A…:…" : X ( 27 )
0x3bed…3c21 LineComal80 {
0x3bed…3c21 ptr = 0xd20f // 0x3bed @0x0
0x3bed…3c21 lno = 0x17c0 // 0x3bef @0x2
0x3bed…3c21 at0004 = ╱91╱ INPUT ╱ // 0x3bf1 @0x4
0x3bed…3c21 at0005 = ╱22╱"╱ // 0x3bf2 @0x5
0x3bed…3c21 at0006 = ╱3c╱<╱ // 0x3bf3 @0x6
0x3bed…3c21 at0007 = ╱43╱C╱ // 0x3bf4 @0x7
0x3bed…3c21 at0008 = ╱32╱2╱ // 0x3bf5 @0x8
0x3bed…3c21 at0009 = ╱34╱4╱ // 0x3bf6 @0x9
0x3bed…3c21 at000a = ╱31╱1╱ // 0x3bf7 @0xa
0x3bed…3c21 at000b = ╱33╱3╱ // 0x3bf8 @0xb
0x3bed…3c21 at000c = ╱5a╱Z╱ // 0x3bf9 @0xc
0x3bed…3c21 at000d = ╱3e╱>╱ // 0x3bfa @0xd
0x3bed…3c21 at000e = ╱20╱…╱ // 0x3bfb @0xe
0x3bed…3c21 at000f = ╱20╱…╱ // 0x3bfc @0xf
0x3bed…3c21 at0010 = ╱20╱…╱ // 0x3bfd @0x10
0x3bed…3c21 at0011 = ╱20╱…╱ // 0x3bfe @0x11
0x3bed…3c21 at0012 = ╱20╱…╱ // 0x3bff @0x12
0x3bed…3c21 at0013 = ╱20╱…╱ // 0x3c00 @0x13
0x3bed…3c21 at0014 = ╱20╱…╱ // 0x3c01 @0x14
0x3bed…3c21 at0015 = ╱20╱…╱ // 0x3c02 @0x15
0x3bed…3c21 at0016 = ╱64╱d╱ // 0x3c03 @0x16
0x3bed…3c21 at0017 = ╱7b╱{╱ // 0x3c04 @0x17
0x3bed…3c21 at0018 = ╱6b╱k╱ // 0x3c05 @0x18
0x3bed…3c21 at0019 = ╱6e╱n╱ // 0x3c06 @0x19
0x3bed…3c21 at001a = ╱69╱i╱ // 0x3c07 @0x1a
0x3bed…3c21 at001b = ╱6e╱n╱ // 0x3c08 @0x1b
0x3bed…3c21 at001c = ╱67╱g╱ // 0x3c09 @0x1c
0x3bed…3c21 at001d = ╱73╱s╱ // 0x3c0a @0x1d
0x3bed…3c21 at001e = ╱62╱b╱ // 0x3c0b @0x1e
0x3bed…3c21 at001f = ╱69╱i╱ // 0x3c0c @0x1f
0x3bed…3c21 at0020 = ╱64╱d╱ // 0x3c0d @0x20
0x3bed…3c21 at0021 = ╱72╱r╱ // 0x3c0e @0x21
0x3bed…3c21 at0022 = ╱61╱a╱ // 0x3c0f @0x22
0x3bed…3c21 at0023 = ╱67╱g╱ // 0x3c10 @0x23
0x3bed…3c21 at0024 = ╱20╱…╱ // 0x3c11 @0x24
0x3bed…3c21 at0025 = ╱41╱A╱ // 0x3c12 @0x25
0x3bed…3c21 at0026 = ╱20╱…╱ // 0x3c13 @0x26
0x3bed…3c21 at0027 = ╱3a╱:╱ // 0x3c14 @0x27
0x3bed…3c21 at0028 = ╱20╱…╱ // 0x3c15 @0x28
0x3bed…3c21 at0029 = ╱22╱"╱ // 0x3c16 @0x29
0x3bed…3c21 at002a = ╱f1╱ : ╱ // 0x3c17 @0x2a
0x3bed…3c21 at002b = ╱58╱X╱ // 0x3c18 @0x2b
0x3bed…3c21 at002c = ╱ed╱ ( ╱ // 0x3c19 @0x2c
0x3bed…3c21 at002d = ╱32╱2╱ // 0x3c1a @0x2d
0x3bed…3c21 at002e = ╱37╱7╱ // 0x3c1b @0x2e
0x3bed…3c21 at002f = ╱f21b00╱ // 0x3c1c @0x2f
0x3bed…3c21 at0032 = ╱ee╱ ) ╱ // 0x3c1f @0x32
0x3bed…3c21 at0033 = EOL // 0x3c20 @0x33
0x3bed…3c21 }
0x3c21…3c55 d243 06090 INPUT "<C2414Z>……………………d{kningsbidrag…B…:…" : X ( 28 )
0x3c21…3c55 LineComal80 {
0x3c21…3c55 ptr = 0xd243 // 0x3c21 @0x0
0x3c21…3c55 lno = 0x17ca // 0x3c23 @0x2
0x3c21…3c55 at0004 = ╱91╱ INPUT ╱ // 0x3c25 @0x4
0x3c21…3c55 at0005 = ╱22╱"╱ // 0x3c26 @0x5
0x3c21…3c55 at0006 = ╱3c╱<╱ // 0x3c27 @0x6
0x3c21…3c55 at0007 = ╱43╱C╱ // 0x3c28 @0x7
0x3c21…3c55 at0008 = ╱32╱2╱ // 0x3c29 @0x8
0x3c21…3c55 at0009 = ╱34╱4╱ // 0x3c2a @0x9
0x3c21…3c55 at000a = ╱31╱1╱ // 0x3c2b @0xa
0x3c21…3c55 at000b = ╱34╱4╱ // 0x3c2c @0xb
0x3c21…3c55 at000c = ╱5a╱Z╱ // 0x3c2d @0xc
0x3c21…3c55 at000d = ╱3e╱>╱ // 0x3c2e @0xd
0x3c21…3c55 at000e = ╱20╱…╱ // 0x3c2f @0xe
0x3c21…3c55 at000f = ╱20╱…╱ // 0x3c30 @0xf
0x3c21…3c55 at0010 = ╱20╱…╱ // 0x3c31 @0x10
0x3c21…3c55 at0011 = ╱20╱…╱ // 0x3c32 @0x11
0x3c21…3c55 at0012 = ╱20╱…╱ // 0x3c33 @0x12
0x3c21…3c55 at0013 = ╱20╱…╱ // 0x3c34 @0x13
0x3c21…3c55 at0014 = ╱20╱…╱ // 0x3c35 @0x14
0x3c21…3c55 at0015 = ╱20╱…╱ // 0x3c36 @0x15
0x3c21…3c55 at0016 = ╱64╱d╱ // 0x3c37 @0x16
0x3c21…3c55 at0017 = ╱7b╱{╱ // 0x3c38 @0x17
0x3c21…3c55 at0018 = ╱6b╱k╱ // 0x3c39 @0x18
0x3c21…3c55 at0019 = ╱6e╱n╱ // 0x3c3a @0x19
0x3c21…3c55 at001a = ╱69╱i╱ // 0x3c3b @0x1a
0x3c21…3c55 at001b = ╱6e╱n╱ // 0x3c3c @0x1b
0x3c21…3c55 at001c = ╱67╱g╱ // 0x3c3d @0x1c
0x3c21…3c55 at001d = ╱73╱s╱ // 0x3c3e @0x1d
0x3c21…3c55 at001e = ╱62╱b╱ // 0x3c3f @0x1e
0x3c21…3c55 at001f = ╱69╱i╱ // 0x3c40 @0x1f
0x3c21…3c55 at0020 = ╱64╱d╱ // 0x3c41 @0x20
0x3c21…3c55 at0021 = ╱72╱r╱ // 0x3c42 @0x21
0x3c21…3c55 at0022 = ╱61╱a╱ // 0x3c43 @0x22
0x3c21…3c55 at0023 = ╱67╱g╱ // 0x3c44 @0x23
0x3c21…3c55 at0024 = ╱20╱…╱ // 0x3c45 @0x24
0x3c21…3c55 at0025 = ╱42╱B╱ // 0x3c46 @0x25
0x3c21…3c55 at0026 = ╱20╱…╱ // 0x3c47 @0x26
0x3c21…3c55 at0027 = ╱3a╱:╱ // 0x3c48 @0x27
0x3c21…3c55 at0028 = ╱20╱…╱ // 0x3c49 @0x28
0x3c21…3c55 at0029 = ╱22╱"╱ // 0x3c4a @0x29
0x3c21…3c55 at002a = ╱f1╱ : ╱ // 0x3c4b @0x2a
0x3c21…3c55 at002b = ╱58╱X╱ // 0x3c4c @0x2b
0x3c21…3c55 at002c = ╱ed╱ ( ╱ // 0x3c4d @0x2c
0x3c21…3c55 at002d = ╱32╱2╱ // 0x3c4e @0x2d
0x3c21…3c55 at002e = ╱38╱8╱ // 0x3c4f @0x2e
0x3c21…3c55 at002f = ╱f21c00╱ // 0x3c50 @0x2f
0x3c21…3c55 at0032 = ╱ee╱ ) ╱ // 0x3c53 @0x32
0x3c21…3c55 at0033 = EOL // 0x3c54 @0x33
0x3c21…3c55 }
0x3c55…3c89 d015 06100 INPUT "<C2415Z>……………………d{kningsbidrag…C…:…" : X ( 29 )
0x3c55…3c89 LineComal80 {
0x3c55…3c89 ptr = 0xd015 // 0x3c55 @0x0
0x3c55…3c89 lno = 0x17d4 // 0x3c57 @0x2
0x3c55…3c89 at0004 = ╱91╱ INPUT ╱ // 0x3c59 @0x4
0x3c55…3c89 at0005 = ╱22╱"╱ // 0x3c5a @0x5
0x3c55…3c89 at0006 = ╱3c╱<╱ // 0x3c5b @0x6
0x3c55…3c89 at0007 = ╱43╱C╱ // 0x3c5c @0x7
0x3c55…3c89 at0008 = ╱32╱2╱ // 0x3c5d @0x8
0x3c55…3c89 at0009 = ╱34╱4╱ // 0x3c5e @0x9
0x3c55…3c89 at000a = ╱31╱1╱ // 0x3c5f @0xa
0x3c55…3c89 at000b = ╱35╱5╱ // 0x3c60 @0xb
0x3c55…3c89 at000c = ╱5a╱Z╱ // 0x3c61 @0xc
0x3c55…3c89 at000d = ╱3e╱>╱ // 0x3c62 @0xd
0x3c55…3c89 at000e = ╱20╱…╱ // 0x3c63 @0xe
0x3c55…3c89 at000f = ╱20╱…╱ // 0x3c64 @0xf
0x3c55…3c89 at0010 = ╱20╱…╱ // 0x3c65 @0x10
0x3c55…3c89 at0011 = ╱20╱…╱ // 0x3c66 @0x11
0x3c55…3c89 at0012 = ╱20╱…╱ // 0x3c67 @0x12
0x3c55…3c89 at0013 = ╱20╱…╱ // 0x3c68 @0x13
0x3c55…3c89 at0014 = ╱20╱…╱ // 0x3c69 @0x14
0x3c55…3c89 at0015 = ╱20╱…╱ // 0x3c6a @0x15
0x3c55…3c89 at0016 = ╱64╱d╱ // 0x3c6b @0x16
0x3c55…3c89 at0017 = ╱7b╱{╱ // 0x3c6c @0x17
0x3c55…3c89 at0018 = ╱6b╱k╱ // 0x3c6d @0x18
0x3c55…3c89 at0019 = ╱6e╱n╱ // 0x3c6e @0x19
0x3c55…3c89 at001a = ╱69╱i╱ // 0x3c6f @0x1a
0x3c55…3c89 at001b = ╱6e╱n╱ // 0x3c70 @0x1b
0x3c55…3c89 at001c = ╱67╱g╱ // 0x3c71 @0x1c
0x3c55…3c89 at001d = ╱73╱s╱ // 0x3c72 @0x1d
0x3c55…3c89 at001e = ╱62╱b╱ // 0x3c73 @0x1e
0x3c55…3c89 at001f = ╱69╱i╱ // 0x3c74 @0x1f
0x3c55…3c89 at0020 = ╱64╱d╱ // 0x3c75 @0x20
0x3c55…3c89 at0021 = ╱72╱r╱ // 0x3c76 @0x21
0x3c55…3c89 at0022 = ╱61╱a╱ // 0x3c77 @0x22
0x3c55…3c89 at0023 = ╱67╱g╱ // 0x3c78 @0x23
0x3c55…3c89 at0024 = ╱20╱…╱ // 0x3c79 @0x24
0x3c55…3c89 at0025 = ╱43╱C╱ // 0x3c7a @0x25
0x3c55…3c89 at0026 = ╱20╱…╱ // 0x3c7b @0x26
0x3c55…3c89 at0027 = ╱3a╱:╱ // 0x3c7c @0x27
0x3c55…3c89 at0028 = ╱20╱…╱ // 0x3c7d @0x28
0x3c55…3c89 at0029 = ╱22╱"╱ // 0x3c7e @0x29
0x3c55…3c89 at002a = ╱f1╱ : ╱ // 0x3c7f @0x2a
0x3c55…3c89 at002b = ╱58╱X╱ // 0x3c80 @0x2b
0x3c55…3c89 at002c = ╱ed╱ ( ╱ // 0x3c81 @0x2c
0x3c55…3c89 at002d = ╱32╱2╱ // 0x3c82 @0x2d
0x3c55…3c89 at002e = ╱39╱9╱ // 0x3c83 @0x2e
0x3c55…3c89 at002f = ╱f21d00╱ // 0x3c84 @0x2f
0x3c55…3c89 at0032 = ╱ee╱ ) ╱ // 0x3c87 @0x32
0x3c55…3c89 at0033 = EOL // 0x3c88 @0x33
0x3c55…3c89 }
0x3c89…3cbd d173 02720 INPUT "<C2410Z>……………………\vr.…var.…omk.…A…:…" : X ( 27 )
0x3c89…3cbd LineComal80 {
0x3c89…3cbd ptr = 0xd173 // 0x3c89 @0x0
0x3c89…3cbd lno = 0x0aa0 // 0x3c8b @0x2
0x3c89…3cbd at0004 = ╱91╱ INPUT ╱ // 0x3c8d @0x4
0x3c89…3cbd at0005 = ╱22╱"╱ // 0x3c8e @0x5
0x3c89…3cbd at0006 = ╱3c╱<╱ // 0x3c8f @0x6
0x3c89…3cbd at0007 = ╱43╱C╱ // 0x3c90 @0x7
0x3c89…3cbd at0008 = ╱32╱2╱ // 0x3c91 @0x8
0x3c89…3cbd at0009 = ╱34╱4╱ // 0x3c92 @0x9
0x3c89…3cbd at000a = ╱31╱1╱ // 0x3c93 @0xa
0x3c89…3cbd at000b = ╱30╱0╱ // 0x3c94 @0xb
0x3c89…3cbd at000c = ╱5a╱Z╱ // 0x3c95 @0xc
0x3c89…3cbd at000d = ╱3e╱>╱ // 0x3c96 @0xd
0x3c89…3cbd at000e = ╱20╱…╱ // 0x3c97 @0xe
0x3c89…3cbd at000f = ╱20╱…╱ // 0x3c98 @0xf
0x3c89…3cbd at0010 = ╱20╱…╱ // 0x3c99 @0x10
0x3c89…3cbd at0011 = ╱20╱…╱ // 0x3c9a @0x11
0x3c89…3cbd at0012 = ╱20╱…╱ // 0x3c9b @0x12
0x3c89…3cbd at0013 = ╱20╱…╱ // 0x3c9c @0x13
0x3c89…3cbd at0014 = ╱20╱…╱ // 0x3c9d @0x14
0x3c89…3cbd at0015 = ╱20╱…╱ // 0x3c9e @0x15
0x3c89…3cbd at0016 = ╱5c╱\╱ // 0x3c9f @0x16
0x3c89…3cbd at0017 = ╱76╱v╱ // 0x3ca0 @0x17
0x3c89…3cbd at0018 = ╱72╱r╱ // 0x3ca1 @0x18
0x3c89…3cbd at0019 = ╱2e╱.╱ // 0x3ca2 @0x19
0x3c89…3cbd at001a = ╱20╱…╱ // 0x3ca3 @0x1a
0x3c89…3cbd at001b = ╱76╱v╱ // 0x3ca4 @0x1b
0x3c89…3cbd at001c = ╱61╱a╱ // 0x3ca5 @0x1c
0x3c89…3cbd at001d = ╱72╱r╱ // 0x3ca6 @0x1d
0x3c89…3cbd at001e = ╱2e╱.╱ // 0x3ca7 @0x1e
0x3c89…3cbd at001f = ╱20╱…╱ // 0x3ca8 @0x1f
0x3c89…3cbd at0020 = ╱6f╱o╱ // 0x3ca9 @0x20
0x3c89…3cbd at0021 = ╱6d╱m╱ // 0x3caa @0x21
0x3c89…3cbd at0022 = ╱6b╱k╱ // 0x3cab @0x22
0x3c89…3cbd at0023 = ╱2e╱.╱ // 0x3cac @0x23
0x3c89…3cbd at0024 = ╱20╱…╱ // 0x3cad @0x24
0x3c89…3cbd at0025 = ╱41╱A╱ // 0x3cae @0x25
0x3c89…3cbd at0026 = ╱20╱…╱ // 0x3caf @0x26
0x3c89…3cbd at0027 = ╱3a╱:╱ // 0x3cb0 @0x27
0x3c89…3cbd at0028 = ╱20╱…╱ // 0x3cb1 @0x28
0x3c89…3cbd at0029 = ╱22╱"╱ // 0x3cb2 @0x29
0x3c89…3cbd at002a = ╱f1╱ : ╱ // 0x3cb3 @0x2a
0x3c89…3cbd at002b = ╱58╱X╱ // 0x3cb4 @0x2b
0x3c89…3cbd at002c = ╱ed╱ ( ╱ // 0x3cb5 @0x2c
0x3c89…3cbd at002d = ╱32╱2╱ // 0x3cb6 @0x2d
0x3c89…3cbd at002e = ╱37╱7╱ // 0x3cb7 @0x2e
0x3c89…3cbd at002f = ╱f21b00╱ // 0x3cb8 @0x2f
0x3c89…3cbd at0032 = ╱ee╱ ) ╱ // 0x3cbb @0x32
0x3c89…3cbd at0033 = EOL // 0x3cbc @0x33
0x3c89…3cbd }
0x3cbd…3ced d06b 02770 FOR I := 1 TO DO LET X ( 20 ) := X ( 20 ) + X ( 26 + I )
0x3cbd…3ced LineComal80 {
0x3cbd…3ced ptr = 0xd06b // 0x3cbd @0x0
0x3cbd…3ced lno = 0x0ad2 // 0x3cbf @0x2
0x3cbd…3ced at0004 = ╱b400╱ FOR ╱ // 0x3cc1 @0x4
0x3cbd…3ced at0006 = ╱49╱I╱ // 0x3cc3 @0x6
0x3cbd…3ced at0007 = ╱f0╱ := ╱ // 0x3cc4 @0x7
0x3cbd…3ced at0008 = ╱31╱1╱ // 0x3cc5 @0x8
0x3cbd…3ced at0009 = ╱f20100╱ // 0x3cc6 @0x9
0x3cbd…3ced at000c = ╱b733╱ TO ╱ // 0x3cc9 @0xc
0x3cbd…3ced at000e = ╱f20300╱ // 0x3ccb @0xe
0x3cbd…3ced at0011 = ╱bb╱ DO ╱ // 0x3cce @0x11
0x3cbd…3ced at0012 = ╱86╱ LET ╱ // 0x3ccf @0x12
0x3cbd…3ced at0013 = ╱58╱X╱ // 0x3cd0 @0x13
0x3cbd…3ced at0014 = ╱ed╱ ( ╱ // 0x3cd1 @0x14
0x3cbd…3ced at0015 = ╱32╱2╱ // 0x3cd2 @0x15
0x3cbd…3ced at0016 = ╱30╱0╱ // 0x3cd3 @0x16
0x3cbd…3ced at0017 = ╱f21400╱ // 0x3cd4 @0x17
0x3cbd…3ced at001a = ╱ee╱ ) ╱ // 0x3cd7 @0x1a
0x3cbd…3ced at001b = ╱f0╱ := ╱ // 0x3cd8 @0x1b
0x3cbd…3ced at001c = ╱58╱X╱ // 0x3cd9 @0x1c
0x3cbd…3ced at001d = ╱ed╱ ( ╱ // 0x3cda @0x1d
0x3cbd…3ced at001e = ╱32╱2╱ // 0x3cdb @0x1e
0x3cbd…3ced at001f = ╱30╱0╱ // 0x3cdc @0x1f
0x3cbd…3ced at0020 = ╱f21400╱ // 0x3cdd @0x20
0x3cbd…3ced at0023 = ╱ee╱ ) ╱ // 0x3ce0 @0x23
0x3cbd…3ced at0024 = ╱e5╱ + ╱ // 0x3ce1 @0x24
0x3cbd…3ced at0025 = ╱58╱X╱ // 0x3ce2 @0x25
0x3cbd…3ced at0026 = ╱ed╱ ( ╱ // 0x3ce3 @0x26
0x3cbd…3ced at0027 = ╱32╱2╱ // 0x3ce4 @0x27
0x3cbd…3ced at0028 = ╱36╱6╱ // 0x3ce5 @0x28
0x3cbd…3ced at0029 = ╱f21a00╱ // 0x3ce6 @0x29
0x3cbd…3ced at002c = ╱e5╱ + ╱ // 0x3ce9 @0x2c
0x3cbd…3ced at002d = ╱49╱I╱ // 0x3cea @0x2d
0x3cbd…3ced at002e = ╱ee╱ ) ╱ // 0x3ceb @0x2e
0x3cbd…3ced at002f = EOL // 0x3cec @0x2f
0x3cbd…3ced }
0x3ced…3d21 d30f 02700 INPUT "<C2408Z>Indtast…driftslederl|n………:…" : X ( 25 )
0x3ced…3d21 LineComal80 {
0x3ced…3d21 ptr = 0xd30f // 0x3ced @0x0
0x3ced…3d21 lno = 0x0a8c // 0x3cef @0x2
0x3ced…3d21 at0004 = ╱91╱ INPUT ╱ // 0x3cf1 @0x4
0x3ced…3d21 at0005 = ╱22╱"╱ // 0x3cf2 @0x5
0x3ced…3d21 at0006 = ╱3c╱<╱ // 0x3cf3 @0x6
0x3ced…3d21 at0007 = ╱43╱C╱ // 0x3cf4 @0x7
0x3ced…3d21 at0008 = ╱32╱2╱ // 0x3cf5 @0x8
0x3ced…3d21 at0009 = ╱34╱4╱ // 0x3cf6 @0x9
0x3ced…3d21 at000a = ╱30╱0╱ // 0x3cf7 @0xa
0x3ced…3d21 at000b = ╱38╱8╱ // 0x3cf8 @0xb
0x3ced…3d21 at000c = ╱5a╱Z╱ // 0x3cf9 @0xc
0x3ced…3d21 at000d = ╱3e╱>╱ // 0x3cfa @0xd
0x3ced…3d21 at000e = ╱49╱I╱ // 0x3cfb @0xe
0x3ced…3d21 at000f = ╱6e╱n╱ // 0x3cfc @0xf
0x3ced…3d21 at0010 = ╱64╱d╱ // 0x3cfd @0x10
0x3ced…3d21 at0011 = ╱74╱t╱ // 0x3cfe @0x11
0x3ced…3d21 at0012 = ╱61╱a╱ // 0x3cff @0x12
0x3ced…3d21 at0013 = ╱73╱s╱ // 0x3d00 @0x13
0x3ced…3d21 at0014 = ╱74╱t╱ // 0x3d01 @0x14
0x3ced…3d21 at0015 = ╱20╱…╱ // 0x3d02 @0x15
0x3ced…3d21 at0016 = ╱64╱d╱ // 0x3d03 @0x16
0x3ced…3d21 at0017 = ╱72╱r╱ // 0x3d04 @0x17
0x3ced…3d21 at0018 = ╱69╱i╱ // 0x3d05 @0x18
0x3ced…3d21 at0019 = ╱66╱f╱ // 0x3d06 @0x19
0x3ced…3d21 at001a = ╱74╱t╱ // 0x3d07 @0x1a
0x3ced…3d21 at001b = ╱73╱s╱ // 0x3d08 @0x1b
0x3ced…3d21 at001c = ╱6c╱l╱ // 0x3d09 @0x1c
0x3ced…3d21 at001d = ╱65╱e╱ // 0x3d0a @0x1d
0x3ced…3d21 at001e = ╱64╱d╱ // 0x3d0b @0x1e
0x3ced…3d21 at001f = ╱65╱e╱ // 0x3d0c @0x1f
0x3ced…3d21 at0020 = ╱72╱r╱ // 0x3d0d @0x20
0x3ced…3d21 at0021 = ╱6c╱l╱ // 0x3d0e @0x21
0x3ced…3d21 at0022 = ╱7c╱|╱ // 0x3d0f @0x22
0x3ced…3d21 at0023 = ╱6e╱n╱ // 0x3d10 @0x23
0x3ced…3d21 at0024 = ╱20╱…╱ // 0x3d11 @0x24
0x3ced…3d21 at0025 = ╱20╱…╱ // 0x3d12 @0x25
0x3ced…3d21 at0026 = ╱20╱…╱ // 0x3d13 @0x26
0x3ced…3d21 at0027 = ╱3a╱:╱ // 0x3d14 @0x27
0x3ced…3d21 at0028 = ╱20╱…╱ // 0x3d15 @0x28
0x3ced…3d21 at0029 = ╱22╱"╱ // 0x3d16 @0x29
0x3ced…3d21 at002a = ╱f1╱ : ╱ // 0x3d17 @0x2a
0x3ced…3d21 at002b = ╱58╱X╱ // 0x3d18 @0x2b
0x3ced…3d21 at002c = ╱ed╱ ( ╱ // 0x3d19 @0x2c
0x3ced…3d21 at002d = ╱32╱2╱ // 0x3d1a @0x2d
0x3ced…3d21 at002e = ╱35╱5╱ // 0x3d1b @0x2e
0x3ced…3d21 at002f = ╱f21900╱ // 0x3d1c @0x2f
0x3ced…3d21 at0032 = ╱ee╱ ) ╱ // 0x3d1f @0x32
0x3ced…3d21 at0033 = EOL // 0x3d20 @0x33
0x3ced…3d21 }
0x3d21…3d55 d277 02710 INPUT "<C2409Z>……………………primolager…………………:…" : X ( 21 )
0x3d21…3d55 LineComal80 {
0x3d21…3d55 ptr = 0xd277 // 0x3d21 @0x0
0x3d21…3d55 lno = 0x0a96 // 0x3d23 @0x2
0x3d21…3d55 at0004 = ╱91╱ INPUT ╱ // 0x3d25 @0x4
0x3d21…3d55 at0005 = ╱22╱"╱ // 0x3d26 @0x5
0x3d21…3d55 at0006 = ╱3c╱<╱ // 0x3d27 @0x6
0x3d21…3d55 at0007 = ╱43╱C╱ // 0x3d28 @0x7
0x3d21…3d55 at0008 = ╱32╱2╱ // 0x3d29 @0x8
0x3d21…3d55 at0009 = ╱34╱4╱ // 0x3d2a @0x9
0x3d21…3d55 at000a = ╱30╱0╱ // 0x3d2b @0xa
0x3d21…3d55 at000b = ╱39╱9╱ // 0x3d2c @0xb
0x3d21…3d55 at000c = ╱5a╱Z╱ // 0x3d2d @0xc
0x3d21…3d55 at000d = ╱3e╱>╱ // 0x3d2e @0xd
0x3d21…3d55 at000e = ╱20╱…╱ // 0x3d2f @0xe
0x3d21…3d55 at000f = ╱20╱…╱ // 0x3d30 @0xf
0x3d21…3d55 at0010 = ╱20╱…╱ // 0x3d31 @0x10
0x3d21…3d55 at0011 = ╱20╱…╱ // 0x3d32 @0x11
0x3d21…3d55 at0012 = ╱20╱…╱ // 0x3d33 @0x12
0x3d21…3d55 at0013 = ╱20╱…╱ // 0x3d34 @0x13
0x3d21…3d55 at0014 = ╱20╱…╱ // 0x3d35 @0x14
0x3d21…3d55 at0015 = ╱20╱…╱ // 0x3d36 @0x15
0x3d21…3d55 at0016 = ╱70╱p╱ // 0x3d37 @0x16
0x3d21…3d55 at0017 = ╱72╱r╱ // 0x3d38 @0x17
0x3d21…3d55 at0018 = ╱69╱i╱ // 0x3d39 @0x18
0x3d21…3d55 at0019 = ╱6d╱m╱ // 0x3d3a @0x19
0x3d21…3d55 at001a = ╱6f╱o╱ // 0x3d3b @0x1a
0x3d21…3d55 at001b = ╱6c╱l╱ // 0x3d3c @0x1b
0x3d21…3d55 at001c = ╱61╱a╱ // 0x3d3d @0x1c
0x3d21…3d55 at001d = ╱67╱g╱ // 0x3d3e @0x1d
0x3d21…3d55 at001e = ╱65╱e╱ // 0x3d3f @0x1e
0x3d21…3d55 at001f = ╱72╱r╱ // 0x3d40 @0x1f
0x3d21…3d55 at0020 = ╱20╱…╱ // 0x3d41 @0x20
0x3d21…3d55 at0021 = ╱20╱…╱ // 0x3d42 @0x21
0x3d21…3d55 at0022 = ╱20╱…╱ // 0x3d43 @0x22
0x3d21…3d55 at0023 = ╱20╱…╱ // 0x3d44 @0x23
0x3d21…3d55 at0024 = ╱20╱…╱ // 0x3d45 @0x24
0x3d21…3d55 at0025 = ╱20╱…╱ // 0x3d46 @0x25
0x3d21…3d55 at0026 = ╱20╱…╱ // 0x3d47 @0x26
0x3d21…3d55 at0027 = ╱3a╱:╱ // 0x3d48 @0x27
0x3d21…3d55 at0028 = ╱20╱…╱ // 0x3d49 @0x28
0x3d21…3d55 at0029 = ╱22╱"╱ // 0x3d4a @0x29
0x3d21…3d55 at002a = ╱f1╱ : ╱ // 0x3d4b @0x2a
0x3d21…3d55 at002b = ╱58╱X╱ // 0x3d4c @0x2b
0x3d21…3d55 at002c = ╱ed╱ ( ╱ // 0x3d4d @0x2c
0x3d21…3d55 at002d = ╱32╱2╱ // 0x3d4e @0x2d
0x3d21…3d55 at002e = ╱31╱1╱ // 0x3d4f @0x2e
0x3d21…3d55 at002f = ╱f21500╱ // 0x3d50 @0x2f
0x3d21…3d55 at0032 = ╱ee╱ ) ╱ // 0x3d53 @0x32
0x3d21…3d55 at0033 = EOL // 0x3d54 @0x33
0x3d21…3d55 }
0x3d55…3d86 d0a0 02790 LET X ( 26 + I ) := X ( 1 + I ) - ( X ( 5 + I ) + X ( 26 + I ) )
0x3d55…3d86 LineComal80 {
0x3d55…3d86 ptr = 0xd0a0 // 0x3d55 @0x0
0x3d55…3d86 lno = 0x0ae6 // 0x3d57 @0x2
0x3d55…3d86 at0004 = ╱86╱ LET ╱ // 0x3d59 @0x4
0x3d55…3d86 at0005 = ╱58╱X╱ // 0x3d5a @0x5
0x3d55…3d86 at0006 = ╱ed╱ ( ╱ // 0x3d5b @0x6
0x3d55…3d86 at0007 = ╱32╱2╱ // 0x3d5c @0x7
0x3d55…3d86 at0008 = ╱36╱6╱ // 0x3d5d @0x8
0x3d55…3d86 at0009 = ╱f21a00╱ // 0x3d5e @0x9
0x3d55…3d86 at000c = ╱e5╱ + ╱ // 0x3d61 @0xc
0x3d55…3d86 at000d = ╱49╱I╱ // 0x3d62 @0xd
0x3d55…3d86 at000e = ╱ee╱ ) ╱ // 0x3d63 @0xe
0x3d55…3d86 at000f = ╱f0╱ := ╱ // 0x3d64 @0xf
0x3d55…3d86 at0010 = ╱58╱X╱ // 0x3d65 @0x10
0x3d55…3d86 at0011 = ╱ed╱ ( ╱ // 0x3d66 @0x11
0x3d55…3d86 at0012 = ╱31╱1╱ // 0x3d67 @0x12
0x3d55…3d86 at0013 = ╱f20100╱ // 0x3d68 @0x13
0x3d55…3d86 at0016 = ╱e5╱ + ╱ // 0x3d6b @0x16
0x3d55…3d86 at0017 = ╱49╱I╱ // 0x3d6c @0x17
0x3d55…3d86 at0018 = ╱ee╱ ) ╱ // 0x3d6d @0x18
0x3d55…3d86 at0019 = ╱e6╱ - ╱ // 0x3d6e @0x19
0x3d55…3d86 at001a = ╱ed╱ ( ╱ // 0x3d6f @0x1a
0x3d55…3d86 at001b = ╱58╱X╱ // 0x3d70 @0x1b
0x3d55…3d86 at001c = ╱ed╱ ( ╱ // 0x3d71 @0x1c
0x3d55…3d86 at001d = ╱35╱5╱ // 0x3d72 @0x1d
0x3d55…3d86 at001e = ╱f20500╱ // 0x3d73 @0x1e
0x3d55…3d86 at0021 = ╱e5╱ + ╱ // 0x3d76 @0x21
0x3d55…3d86 at0022 = ╱49╱I╱ // 0x3d77 @0x22
0x3d55…3d86 at0023 = ╱ee╱ ) ╱ // 0x3d78 @0x23
0x3d55…3d86 at0024 = ╱e5╱ + ╱ // 0x3d79 @0x24
0x3d55…3d86 at0025 = ╱58╱X╱ // 0x3d7a @0x25
0x3d55…3d86 at0026 = ╱ed╱ ( ╱ // 0x3d7b @0x26
0x3d55…3d86 at0027 = ╱32╱2╱ // 0x3d7c @0x27
0x3d55…3d86 at0028 = ╱36╱6╱ // 0x3d7d @0x28
0x3d55…3d86 at0029 = ╱f21a00╱ // 0x3d7e @0x29
0x3d55…3d86 at002c = ╱e5╱ + ╱ // 0x3d81 @0x2c
0x3d55…3d86 at002d = ╱49╱I╱ // 0x3d82 @0x2d
0x3d55…3d86 at002e = ╱ee╱ ) ╱ // 0x3d83 @0x2e
0x3d55…3d86 at002f = ╱ee╱ ) ╱ // 0x3d84 @0x2f
0x3d55…3d86 at0030 = EOL // 0x3d85 @0x30
0x3d55…3d86 }
0x3d86…3d97 d385 02830 PROC UDSKRIVMAJ
0x3d86…3d97 LineComal80 {
0x3d86…3d97 ptr = 0xd385 // 0x3d86 @0x0
0x3d86…3d97 lno = 0x0b0e // 0x3d88 @0x2
0x3d86…3d97 at0004 = ╱9e2c╱ PROC ╱ // 0x3d8a @0x4
0x3d86…3d97 at0006 = ╱55╱U╱ // 0x3d8c @0x6
0x3d86…3d97 at0007 = ╱44╱D╱ // 0x3d8d @0x7
0x3d86…3d97 at0008 = ╱53╱S╱ // 0x3d8e @0x8
0x3d86…3d97 at0009 = ╱4b╱K╱ // 0x3d8f @0x9
0x3d86…3d97 at000a = ╱52╱R╱ // 0x3d90 @0xa
0x3d86…3d97 at000b = ╱49╱I╱ // 0x3d91 @0xb
0x3d86…3d97 at000c = ╱56╱V╱ // 0x3d92 @0xc
0x3d86…3d97 at000d = ╱4d╱M╱ // 0x3d93 @0xd
0x3d86…3d97 at000e = ╱41╱A╱ // 0x3d94 @0xe
0x3d86…3d97 at000f = ╱4a╱J╱ // 0x3d95 @0xf
0x3d86…3d97 at0010 = EOL // 0x3d96 @0x10
0x3d86…3d97 }
0x3d97…3da9 d50f 02840 DIM UDFIL $ OF 17
0x3d97…3da9 LineComal80 {
0x3d97…3da9 ptr = 0xd50f // 0x3d97 @0x0
0x3d97…3da9 lno = 0x0b18 // 0x3d99 @0x2
0x3d97…3da9 at0004 = ╱87╱ DIM ╱ // 0x3d9b @0x4
0x3d97…3da9 at0005 = ╱55╱U╱ // 0x3d9c @0x5
0x3d97…3da9 at0006 = ╱44╱D╱ // 0x3d9d @0x6
0x3d97…3da9 at0007 = ╱46╱F╱ // 0x3d9e @0x7
0x3d97…3da9 at0008 = ╱49╱I╱ // 0x3d9f @0x8
0x3d97…3da9 at0009 = ╱4c╱L╱ // 0x3da0 @0x9
0x3d97…3da9 at000a = ╱ef╱ $ ╱ // 0x3da1 @0xa
0x3d97…3da9 at000b = ╱ba╱ OF ╱ // 0x3da2 @0xb
0x3d97…3da9 at000c = ╱31╱1╱ // 0x3da3 @0xc
0x3d97…3da9 at000d = ╱37╱7╱ // 0x3da4 @0xd
0x3d97…3da9 at000e = ╱f21100╱ // 0x3da5 @0xe
0x3d97…3da9 at0011 = EOL // 0x3da8 @0x11
0x3d97…3da9 }
0x3da9…3dc7 (205,) d496 07020 LET UDFIL $ := S_KODE $ + "RSKELET"
0x3da9…3dc7 LineComal80 {
0x3da9…3dc7 ptr = 0xd496 // 0x3da9 @0x0
0x3da9…3dc7 lno = 0x1b6c // 0x3dab @0x2
0x3da9…3dc7 at0004 = ╱86╱ LET ╱ // 0x3dad @0x4
0x3da9…3dc7 at0005 = ╱55╱U╱ // 0x3dae @0x5
0x3da9…3dc7 at0006 = ╱44╱D╱ // 0x3daf @0x6
0x3da9…3dc7 at0007 = ╱46╱F╱ // 0x3db0 @0x7
0x3da9…3dc7 at0008 = ╱49╱I╱ // 0x3db1 @0x8
0x3da9…3dc7 at0009 = ╱4c╱L╱ // 0x3db2 @0x9
0x3da9…3dc7 at000a = ╱ef╱ $ ╱ // 0x3db3 @0xa
0x3da9…3dc7 at000b = ╱f0╱ := ╱ // 0x3db4 @0xb
0x3da9…3dc7 at000c = ╱53╱S╱ // 0x3db5 @0xc
0x3da9…3dc7 at000d = ╱5f╱_╱ // 0x3db6 @0xd
0x3da9…3dc7 at000e = ╱4b╱K╱ // 0x3db7 @0xe
0x3da9…3dc7 at000f = ╱4f╱O╱ // 0x3db8 @0xf
0x3da9…3dc7 at0010 = ╱44╱D╱ // 0x3db9 @0x10
0x3da9…3dc7 at0011 = ╱45╱E╱ // 0x3dba @0x11
0x3da9…3dc7 at0012 = ╱ef╱ $ ╱ // 0x3dbb @0x12
0x3da9…3dc7 at0013 = ╱eb╱ + ╱ // 0x3dbc @0x13
0x3da9…3dc7 at0014 = ╱22╱"╱ // 0x3dbd @0x14
0x3da9…3dc7 at0015 = ╱52╱R╱ // 0x3dbe @0x15
0x3da9…3dc7 at0016 = ╱53╱S╱ // 0x3dbf @0x16
0x3da9…3dc7 at0017 = ╱4b╱K╱ // 0x3dc0 @0x17
0x3da9…3dc7 at0018 = ╱45╱E╱ // 0x3dc1 @0x18
0x3da9…3dc7 at0019 = ╱4c╱L╱ // 0x3dc2 @0x19
0x3da9…3dc7 at001a = ╱45╱E╱ // 0x3dc3 @0x1a
0x3da9…3dc7 at001b = ╱54╱T╱ // 0x3dc4 @0x1b
0x3da9…3dc7 at001c = ╱22╱"╱ // 0x3dc5 @0x1c
0x3da9…3dc7 at001d = EOL // 0x3dc6 @0x1d
0x3da9…3dc7 }
0x3dc7…3de1 d3cf 07030 EXEC OPENFILE ( UDFIL $ , "R" )
0x3dc7…3de1 LineComal80 {
0x3dc7…3de1 ptr = 0xd3cf // 0x3dc7 @0x0
0x3dc7…3de1 lno = 0x1b76 // 0x3dc9 @0x2
0x3dc7…3de1 at0004 = ╱9d╱ EXEC ╱ // 0x3dcb @0x4
0x3dc7…3de1 at0005 = ╱4f╱O╱ // 0x3dcc @0x5
0x3dc7…3de1 at0006 = ╱50╱P╱ // 0x3dcd @0x6
0x3dc7…3de1 at0007 = ╱45╱E╱ // 0x3dce @0x7
0x3dc7…3de1 at0008 = ╱4e╱N╱ // 0x3dcf @0x8
0x3dc7…3de1 at0009 = ╱46╱F╱ // 0x3dd0 @0x9
0x3dc7…3de1 at000a = ╱49╱I╱ // 0x3dd1 @0xa
0x3dc7…3de1 at000b = ╱4c╱L╱ // 0x3dd2 @0xb
0x3dc7…3de1 at000c = ╱45╱E╱ // 0x3dd3 @0xc
0x3dc7…3de1 at000d = ╱ed╱ ( ╱ // 0x3dd4 @0xd
0x3dc7…3de1 at000e = ╱55╱U╱ // 0x3dd5 @0xe
0x3dc7…3de1 at000f = ╱44╱D╱ // 0x3dd6 @0xf
0x3dc7…3de1 at0010 = ╱46╱F╱ // 0x3dd7 @0x10
0x3dc7…3de1 at0011 = ╱49╱I╱ // 0x3dd8 @0x11
0x3dc7…3de1 at0012 = ╱4c╱L╱ // 0x3dd9 @0x12
0x3dc7…3de1 at0013 = ╱ef╱ $ ╱ // 0x3dda @0x13
0x3dc7…3de1 at0014 = ╱ec╱ , ╱ // 0x3ddb @0x14
0x3dc7…3de1 at0015 = ╱22╱"╱ // 0x3ddc @0x15
0x3dc7…3de1 at0016 = ╱52╱R╱ // 0x3ddd @0x16
0x3dc7…3de1 at0017 = ╱22╱"╱ // 0x3dde @0x17
0x3dc7…3de1 at0018 = ╱ee╱ ) ╱ // 0x3ddf @0x18
0x3dc7…3de1 at0019 = EOL // 0x3de0 @0x19
0x3dc7…3de1 }
0x3de1…3df0 d539 02870 GET UDFIL $ : S $
0x3de1…3df0 LineComal80 {
0x3de1…3df0 ptr = 0xd539 // 0x3de1 @0x0
0x3de1…3df0 lno = 0x0b36 // 0x3de3 @0x2
0x3de1…3df0 at0004 = ╱a9╱ GET ╱ // 0x3de5 @0x4
0x3de1…3df0 at0005 = ╱55╱U╱ // 0x3de6 @0x5
0x3de1…3df0 at0006 = ╱44╱D╱ // 0x3de7 @0x6
0x3de1…3df0 at0007 = ╱46╱F╱ // 0x3de8 @0x7
0x3de1…3df0 at0008 = ╱49╱I╱ // 0x3de9 @0x8
0x3de1…3df0 at0009 = ╱4c╱L╱ // 0x3dea @0x9
0x3de1…3df0 at000a = ╱ef╱ $ ╱ // 0x3deb @0xa
0x3de1…3df0 at000b = ╱f1╱ : ╱ // 0x3dec @0xb
0x3de1…3df0 at000c = ╱53╱S╱ // 0x3ded @0xc
0x3de1…3df0 at000d = ╱ef╱ $ ╱ // 0x3dee @0xd
0x3de1…3df0 at000e = EOL // 0x3def @0xe
0x3de1…3df0 }
0x3df0…3e02 d3f0 02900 WHILE NOT ╱cd╱ ( UDFIL $ ) DO
0x3df0…3e02 LineComal80 {
0x3df0…3e02 ptr = 0xd3f0 // 0x3df0 @0x0
0x3df0…3e02 lno = 0x0b54 // 0x3df2 @0x2
0x3df0…3e02 at0004 = ╱932d╱ WHILE ╱ // 0x3df4 @0x4
0x3df0…3e02 at0006 = ╱d7╱ NOT ╱ // 0x3df6 @0x6
0x3df0…3e02 at0007 = ╱cd╱ // 0x3df7 @0x7
0x3df0…3e02 at0008 = ╱ed╱ ( ╱ // 0x3df8 @0x8
0x3df0…3e02 at0009 = ╱55╱U╱ // 0x3df9 @0x9
0x3df0…3e02 at000a = ╱44╱D╱ // 0x3dfa @0xa
0x3df0…3e02 at000b = ╱46╱F╱ // 0x3dfb @0xb
0x3df0…3e02 at000c = ╱49╱I╱ // 0x3dfc @0xc
0x3df0…3e02 at000d = ╱4c╱L╱ // 0x3dfd @0xd
0x3df0…3e02 at000e = ╱ef╱ $ ╱ // 0x3dfe @0xe
0x3df0…3e02 at000f = ╱ee╱ ) ╱ // 0x3dff @0xf
0x3df0…3e02 at0010 = ╱bb╱ DO ╱ // 0x3e00 @0x10
0x3df0…3e02 at0011 = EOL // 0x3e01 @0x11
0x3df0…3e02 }
0x3e02…3e10 d3fe 02910 IF #" IN S $ THEN
0x3e02…3e10 LineComal80 {
0x3e02…3e10 ptr = 0xd3fe // 0x3e02 @0x0
0x3e02…3e10 lno = 0x0b5e // 0x3e04 @0x2
0x3e02…3e10 at0004 = ╱9b2e22╱ IF ╱ // 0x3e06 @0x4
0x3e02…3e10 at0007 = ╱23╱#╱ // 0x3e09 @0x7
0x3e02…3e10 at0008 = ╱22╱"╱ // 0x3e0a @0x8
0x3e02…3e10 at0009 = ╱dc╱ IN ╱ // 0x3e0b @0x9
0x3e02…3e10 at000a = ╱53╱S╱ // 0x3e0c @0xa
0x3e02…3e10 at000b = ╱ef╱ $ ╱ // 0x3e0d @0xb
0x3e02…3e10 at000c = ╱b5╱ THEN ╱ // 0x3e0e @0xc
0x3e02…3e10 at000d = EOL // 0x3e0f @0xd
0x3e02…3e10 }
0x3e10…3e1e d40c 02590 LET I := I + 1
0x3e10…3e1e LineComal80 {
0x3e10…3e1e ptr = 0xd40c // 0x3e10 @0x0
0x3e10…3e1e lno = 0x0a1e // 0x3e12 @0x2
0x3e10…3e1e at0004 = ╱86╱ LET ╱ // 0x3e14 @0x4
0x3e10…3e1e at0005 = ╱49╱I╱ // 0x3e15 @0x5
0x3e10…3e1e at0006 = ╱f0╱ := ╱ // 0x3e16 @0x6
0x3e10…3e1e at0007 = ╱49╱I╱ // 0x3e17 @0x7
0x3e10…3e1e at0008 = ╱e5╱ + ╱ // 0x3e18 @0x8
0x3e10…3e1e at0009 = ╱31╱1╱ // 0x3e19 @0x9
0x3e10…3e1e at000a = ╱f20100╱ // 0x3e1a @0xa
0x3e10…3e1e at000d = EOL // 0x3e1d @0xd
0x3e10…3e1e }
0x3e1e…3e2c d41a 02600 PRINT USING S $ : R ( I )
0x3e1e…3e2c LineComal80 {
0x3e1e…3e2c ptr = 0xd41a // 0x3e1e @0x0
0x3e1e…3e2c lno = 0x0a28 // 0x3e20 @0x2
0x3e1e…3e2c at0004 = ╱92╱ PRINT ╱ // 0x3e22 @0x4
0x3e1e…3e2c at0005 = ╱b9╱ USING ╱ // 0x3e23 @0x5
0x3e1e…3e2c at0006 = ╱53╱S╱ // 0x3e24 @0x6
0x3e1e…3e2c at0007 = ╱ef╱ $ ╱ // 0x3e25 @0x7
0x3e1e…3e2c at0008 = ╱f1╱ : ╱ // 0x3e26 @0x8
0x3e1e…3e2c at0009 = ╱52╱R╱ // 0x3e27 @0x9
0x3e1e…3e2c at000a = ╱ed╱ ( ╱ // 0x3e28 @0xa
0x3e1e…3e2c at000b = ╱49╱I╱ // 0x3e29 @0xb
0x3e1e…3e2c at000c = ╱ee╱ ) ╱ // 0x3e2a @0xc
0x3e1e…3e2c at000d = EOL // 0x3e2b @0xd
0x3e1e…3e2c }
0x3e2c…3e33 d421 02610 ELSE
0x3e2c…3e33 LineComal80 {
0x3e2c…3e33 ptr = 0xd421 // 0x3e2c @0x0
0x3e2c…3e33 lno = 0x0a32 // 0x3e2e @0x2
0x3e2c…3e33 at0004 = ╱9a29╱ ELSE ╱ // 0x3e30 @0x4
0x3e2c…3e33 at0006 = EOL // 0x3e32 @0x6
0x3e2c…3e33 }
0x3e33…3e3b d429 02620 PRINT S $
0x3e33…3e3b LineComal80 {
0x3e33…3e3b ptr = 0xd429 // 0x3e33 @0x0
0x3e33…3e3b lno = 0x0a3c // 0x3e35 @0x2
0x3e33…3e3b at0004 = ╱92╱ PRINT ╱ // 0x3e37 @0x4
0x3e33…3e3b at0005 = ╱53╱S╱ // 0x3e38 @0x5
0x3e33…3e3b at0006 = ╱ef╱ $ ╱ // 0x3e39 @0x6
0x3e33…3e3b at0007 = EOL // 0x3e3a @0x7
0x3e33…3e3b }
0x3e3b…3e41 d42f 02630 ENDIF
0x3e3b…3e41 LineComal80 {
0x3e3b…3e41 ptr = 0xd42f // 0x3e3b @0x0
0x3e3b…3e41 lno = 0x0a46 // 0x3e3d @0x2
0x3e3b…3e41 at0004 = ╱9c╱ ENDIF ╱ // 0x3e3f @0x4
0x3e3b…3e41 at0005 = EOL // 0x3e40 @0x5
0x3e3b…3e41 }
0x3e41…3e50 d43e 02640 GET UDFIL $ : S $
0x3e41…3e50 LineComal80 {
0x3e41…3e50 ptr = 0xd43e // 0x3e41 @0x0
0x3e41…3e50 lno = 0x0a50 // 0x3e43 @0x2
0x3e41…3e50 at0004 = ╱a9╱ GET ╱ // 0x3e45 @0x4
0x3e41…3e50 at0005 = ╱55╱U╱ // 0x3e46 @0x5
0x3e41…3e50 at0006 = ╱44╱D╱ // 0x3e47 @0x6
0x3e41…3e50 at0007 = ╱46╱F╱ // 0x3e48 @0x7
0x3e41…3e50 at0008 = ╱49╱I╱ // 0x3e49 @0x8
0x3e41…3e50 at0009 = ╱4c╱L╱ // 0x3e4a @0x9
0x3e41…3e50 at000a = ╱ef╱ $ ╱ // 0x3e4b @0xa
0x3e41…3e50 at000b = ╱f1╱ : ╱ // 0x3e4c @0xb
0x3e41…3e50 at000c = ╱53╱S╱ // 0x3e4d @0xc
0x3e41…3e50 at000d = ╱ef╱ $ ╱ // 0x3e4e @0xd
0x3e41…3e50 at000e = EOL // 0x3e4f @0xe
0x3e41…3e50 }
0x3e50…3e56 d444 02650 ENDWHILE
0x3e50…3e56 LineComal80 {
0x3e50…3e56 ptr = 0xd444 // 0x3e50 @0x0
0x3e50…3e56 lno = 0x0a5a // 0x3e52 @0x2
0x3e50…3e56 at0004 = ╱94╱ ENDWHILE ╱ // 0x3e54 @0x4
0x3e50…3e56 at0005 = EOL // 0x3e55 @0x5
0x3e50…3e56 }
0x3e56…3e62 d55f 02660 CLOSE UDFIL $
0x3e56…3e62 LineComal80 {
0x3e56…3e62 ptr = 0xd55f // 0x3e56 @0x0
0x3e56…3e62 lno = 0x0a64 // 0x3e58 @0x2
0x3e56…3e62 at0004 = ╱a8╱ CLOSE ╱ // 0x3e5a @0x4
0x3e56…3e62 at0005 = ╱55╱U╱ // 0x3e5b @0x5
0x3e56…3e62 at0006 = ╱44╱D╱ // 0x3e5c @0x6
0x3e56…3e62 at0007 = ╱46╱F╱ // 0x3e5d @0x7
0x3e56…3e62 at0008 = ╱49╱I╱ // 0x3e5e @0x8
0x3e56…3e62 at0009 = ╱4c╱L╱ // 0x3e5f @0x9
0x3e56…3e62 at000a = ╱ef╱ $ ╱ // 0x3e60 @0xa
0x3e56…3e62 at000b = EOL // 0x3e61 @0xb
0x3e56…3e62 }
0x3e62…3e72 dd6d 02680 ENDPROC UDSKRIVMAJ
0x3e62…3e72 LineComal80 {
0x3e62…3e72 ptr = 0xdd6d // 0x3e62 @0x0
0x3e62…3e72 lno = 0x0a78 // 0x3e64 @0x2
0x3e62…3e72 at0004 = ╱9f╱ ENDPROC ╱ // 0x3e66 @0x4
0x3e62…3e72 at0005 = ╱55╱U╱ // 0x3e67 @0x5
0x3e62…3e72 at0006 = ╱44╱D╱ // 0x3e68 @0x6
0x3e62…3e72 at0007 = ╱53╱S╱ // 0x3e69 @0x7
0x3e62…3e72 at0008 = ╱4b╱K╱ // 0x3e6a @0x8
0x3e62…3e72 at0009 = ╱52╱R╱ // 0x3e6b @0x9
0x3e62…3e72 at000a = ╱49╱I╱ // 0x3e6c @0xa
0x3e62…3e72 at000b = ╱56╱V╱ // 0x3e6d @0xb
0x3e62…3e72 at000c = ╱4d╱M╱ // 0x3e6e @0xc
0x3e62…3e72 at000d = ╱41╱A╱ // 0x3e6f @0xd
0x3e62…3e72 at000e = ╱4a╱J╱ // 0x3e70 @0xe
0x3e62…3e72 at000f = EOL // 0x3e71 @0xf
0x3e62…3e72 }
0x3e72…3e7e d3de 02890 LET I := 0
0x3e72…3e7e LineComal80 {
0x3e72…3e7e ptr = 0xd3de // 0x3e72 @0x0
0x3e72…3e7e lno = 0x0b4a // 0x3e74 @0x2
0x3e72…3e7e at0004 = ╱86╱ LET ╱ // 0x3e76 @0x4
0x3e72…3e7e at0005 = ╱49╱I╱ // 0x3e77 @0x5
0x3e72…3e7e at0006 = ╱f0╱ := ╱ // 0x3e78 @0x6
0x3e72…3e7e at0007 = ╱30╱0╱ // 0x3e79 @0x7
0x3e72…3e7e at0008 = ╱f20000╱ // 0x3e7a @0x8
0x3e72…3e7e at000b = EOL // 0x3e7d @0xb
0x3e72…3e7e }
0x3e7e…3ea8 1f1f 07967 ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ LATAY:2PD ╱00╱ ╱00╱ ╱11╱ ╱00╱ R ╱00╱ ╱00╱ ╱01╱ ╱00╱ ╱19╱ ╱ce╱ SGN ╱00╱ EXEC UDSKRIVMAJ
0x3e7e…3ea8 LineComal80 {
0x3e7e…3ea8 ptr = 0x1f1f // 0x3e7e @0x0
0x3e7e…3ea8 lno = 0x1f1f // 0x3e80 @0x2
0x3e7e…3ea8 at0004 = ╱1f╱ // 0x3e82 @0x4
0x3e7e…3ea8 at0005 = ╱1f╱ // 0x3e83 @0x5
0x3e7e…3ea8 at0006 = ╱1f╱ // 0x3e84 @0x6
0x3e7e…3ea8 at0007 = ╱1f╱ // 0x3e85 @0x7
0x3e7e…3ea8 at0008 = ╱4c╱L╱ // 0x3e86 @0x8
0x3e7e…3ea8 at0009 = ╱41╱A╱ // 0x3e87 @0x9
0x3e7e…3ea8 at000a = ╱54╱T╱ // 0x3e88 @0xa
0x3e7e…3ea8 at000b = ╱41╱A╱ // 0x3e89 @0xb
0x3e7e…3ea8 at000c = ╱59╱Y╱ // 0x3e8a @0xc
0x3e7e…3ea8 at000d = ╱3a╱:╱ // 0x3e8b @0xd
0x3e7e…3ea8 at000e = ╱32╱2╱ // 0x3e8c @0xe
0x3e7e…3ea8 at000f = ╱50╱P╱ // 0x3e8d @0xf
0x3e7e…3ea8 at0010 = ╱44╱D╱ // 0x3e8e @0x10
0x3e7e…3ea8 at0011 = ╱00╱ // 0x3e8f @0x11
0x3e7e…3ea8 at0012 = ╱00╱ // 0x3e90 @0x12
0x3e7e…3ea8 at0013 = ╱11╱ // 0x3e91 @0x13
0x3e7e…3ea8 at0014 = ╱00╱ // 0x3e92 @0x14
0x3e7e…3ea8 at0015 = ╱52╱R╱ // 0x3e93 @0x15
0x3e7e…3ea8 at0016 = ╱00╱ // 0x3e94 @0x16
0x3e7e…3ea8 at0017 = ╱00╱ // 0x3e95 @0x17
0x3e7e…3ea8 at0018 = ╱01╱ // 0x3e96 @0x18
0x3e7e…3ea8 at0019 = ╱00╱ // 0x3e97 @0x19
0x3e7e…3ea8 at001a = ╱19╱ // 0x3e98 @0x1a
0x3e7e…3ea8 at001b = ╱ce╱ // 0x3e99 @0x1b
0x3e7e…3ea8 at001c = ╱c8╱ SGN ╱ // 0x3e9a @0x1c
0x3e7e…3ea8 at001d = ╱00╱ // 0x3e9b @0x1d
0x3e7e…3ea8 at001e = ╱9d╱ EXEC ╱ // 0x3e9c @0x1e
0x3e7e…3ea8 at001f = ╱55╱U╱ // 0x3e9d @0x1f
0x3e7e…3ea8 at0020 = ╱44╱D╱ // 0x3e9e @0x20
0x3e7e…3ea8 at0021 = ╱53╱S╱ // 0x3e9f @0x21
0x3e7e…3ea8 at0022 = ╱4b╱K╱ // 0x3ea0 @0x22
0x3e7e…3ea8 at0023 = ╱52╱R╱ // 0x3ea1 @0x23
0x3e7e…3ea8 at0024 = ╱49╱I╱ // 0x3ea2 @0x24
0x3e7e…3ea8 at0025 = ╱56╱V╱ // 0x3ea3 @0x25
0x3e7e…3ea8 at0026 = ╱4d╱M╱ // 0x3ea4 @0x26
0x3e7e…3ea8 at0027 = ╱41╱A╱ // 0x3ea5 @0x27
0x3e7e…3ea8 at0028 = ╱4a╱J╱ // 0x3ea6 @0x28
0x3e7e…3ea8 at0029 = EOL // 0x3ea7 @0x29
0x3e7e…3ea8 }
0x3ea8…3ec1 d3cf 02860 EXEC OPENFIL ( UDFIL $ , "R" )
0x3ea8…3ec1 LineComal80 {
0x3ea8…3ec1 ptr = 0xd3cf // 0x3ea8 @0x0
0x3ea8…3ec1 lno = 0x0b2c // 0x3eaa @0x2
0x3ea8…3ec1 at0004 = ╱9d╱ EXEC ╱ // 0x3eac @0x4
0x3ea8…3ec1 at0005 = ╱4f╱O╱ // 0x3ead @0x5
0x3ea8…3ec1 at0006 = ╱50╱P╱ // 0x3eae @0x6
0x3ea8…3ec1 at0007 = ╱45╱E╱ // 0x3eaf @0x7
0x3ea8…3ec1 at0008 = ╱4e╱N╱ // 0x3eb0 @0x8
0x3ea8…3ec1 at0009 = ╱46╱F╱ // 0x3eb1 @0x9
0x3ea8…3ec1 at000a = ╱49╱I╱ // 0x3eb2 @0xa
0x3ea8…3ec1 at000b = ╱4c╱L╱ // 0x3eb3 @0xb
0x3ea8…3ec1 at000c = ╱ed╱ ( ╱ // 0x3eb4 @0xc
0x3ea8…3ec1 at000d = ╱55╱U╱ // 0x3eb5 @0xd
0x3ea8…3ec1 at000e = ╱44╱D╱ // 0x3eb6 @0xe
0x3ea8…3ec1 at000f = ╱46╱F╱ // 0x3eb7 @0xf
0x3ea8…3ec1 at0010 = ╱49╱I╱ // 0x3eb8 @0x10
0x3ea8…3ec1 at0011 = ╱4c╱L╱ // 0x3eb9 @0x11
0x3ea8…3ec1 at0012 = ╱ef╱ $ ╱ // 0x3eba @0x12
0x3ea8…3ec1 at0013 = ╱ec╱ , ╱ // 0x3ebb @0x13
0x3ea8…3ec1 at0014 = ╱22╱"╱ // 0x3ebc @0x14
0x3ea8…3ec1 at0015 = ╱52╱R╱ // 0x3ebd @0x15
0x3ea8…3ec1 at0016 = ╱22╱"╱ // 0x3ebe @0x16
0x3ea8…3ec1 at0017 = ╱ee╱ ) ╱ // 0x3ebf @0x17
0x3ea8…3ec1 at0018 = EOL // 0x3ec0 @0x18
0x3ea8…3ec1 }
0x3ec1…3f4b 1f1f 07967 ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ gurbroferaV…………*120 ╱00╱ ╱00╱ P ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ 120 ╱00╱ ╱00╱ ╱08╱ ╱00╱ SELECT OUTPUT ╱d4╱ " ╱0b╱ LET UDFIL $ := DATAFL $ + ":" + S_KODE $ + "RSKELET"
0x3ec1…3f4b LineComal80 {
0x3ec1…3f4b ptr = 0x1f1f // 0x3ec1 @0x0
0x3ec1…3f4b lno = 0x1f1f // 0x3ec3 @0x2
0x3ec1…3f4b at0004 = ╱1f╱ // 0x3ec5 @0x4
0x3ec1…3f4b at0005 = ╱1f╱ // 0x3ec6 @0x5
0x3ec1…3f4b at0006 = ╱1f╱ // 0x3ec7 @0x6
0x3ec1…3f4b at0007 = ╱1f╱ // 0x3ec8 @0x7
0x3ec1…3f4b at0008 = ╱1f╱ // 0x3ec9 @0x8
0x3ec1…3f4b at0009 = ╱1f╱ // 0x3eca @0x9
0x3ec1…3f4b at000a = ╱1f╱ // 0x3ecb @0xa
0x3ec1…3f4b at000b = ╱1f╱ // 0x3ecc @0xb
0x3ec1…3f4b at000c = ╱1f╱ // 0x3ecd @0xc
0x3ec1…3f4b at000d = ╱1f╱ // 0x3ece @0xd
0x3ec1…3f4b at000e = ╱1f╱ // 0x3ecf @0xe
0x3ec1…3f4b at000f = ╱1f╱ // 0x3ed0 @0xf
0x3ec1…3f4b at0010 = ╱1f╱ // 0x3ed1 @0x10
0x3ec1…3f4b at0011 = ╱1f╱ // 0x3ed2 @0x11
0x3ec1…3f4b at0012 = ╱1f╱ // 0x3ed3 @0x12
0x3ec1…3f4b at0013 = ╱1f╱ // 0x3ed4 @0x13
0x3ec1…3f4b at0014 = ╱1f╱ // 0x3ed5 @0x14
0x3ec1…3f4b at0015 = ╱1f╱ // 0x3ed6 @0x15
0x3ec1…3f4b at0016 = ╱1f╱ // 0x3ed7 @0x16
0x3ec1…3f4b at0017 = ╱1f╱ // 0x3ed8 @0x17
0x3ec1…3f4b at0018 = ╱1f╱ // 0x3ed9 @0x18
0x3ec1…3f4b at0019 = ╱1f╱ // 0x3eda @0x19
0x3ec1…3f4b at001a = ╱1f╱ // 0x3edb @0x1a
0x3ec1…3f4b at001b = ╱1f╱ // 0x3edc @0x1b
0x3ec1…3f4b at001c = ╱1f╱ // 0x3edd @0x1c
0x3ec1…3f4b at001d = ╱1f╱ // 0x3ede @0x1d
0x3ec1…3f4b at001e = ╱1f╱ // 0x3edf @0x1e
0x3ec1…3f4b at001f = ╱1f╱ // 0x3ee0 @0x1f
0x3ec1…3f4b at0020 = ╱1f╱ // 0x3ee1 @0x20
0x3ec1…3f4b at0021 = ╱1f╱ // 0x3ee2 @0x21
0x3ec1…3f4b at0022 = ╱1f╱ // 0x3ee3 @0x22
0x3ec1…3f4b at0023 = ╱1f╱ // 0x3ee4 @0x23
0x3ec1…3f4b at0024 = ╱1f╱ // 0x3ee5 @0x24
0x3ec1…3f4b at0025 = ╱1f╱ // 0x3ee6 @0x25
0x3ec1…3f4b at0026 = ╱1f╱ // 0x3ee7 @0x26
0x3ec1…3f4b at0027 = ╱1f╱ // 0x3ee8 @0x27
0x3ec1…3f4b at0028 = ╱1f╱ // 0x3ee9 @0x28
0x3ec1…3f4b at0029 = ╱1f╱ // 0x3eea @0x29
0x3ec1…3f4b at002a = ╱1f╱ // 0x3eeb @0x2a
0x3ec1…3f4b at002b = ╱1f╱ // 0x3eec @0x2b
0x3ec1…3f4b at002c = ╱1f╱ // 0x3eed @0x2c
0x3ec1…3f4b at002d = ╱1f╱ // 0x3eee @0x2d
0x3ec1…3f4b at002e = ╱1f╱ // 0x3eef @0x2e
0x3ec1…3f4b at002f = ╱1f╱ // 0x3ef0 @0x2f
0x3ec1…3f4b at0030 = ╱1f╱ // 0x3ef1 @0x30
0x3ec1…3f4b at0031 = ╱1f╱ // 0x3ef2 @0x31
0x3ec1…3f4b at0032 = ╱1f╱ // 0x3ef3 @0x32
0x3ec1…3f4b at0033 = ╱1f╱ // 0x3ef4 @0x33
0x3ec1…3f4b at0034 = ╱1f╱ // 0x3ef5 @0x34
0x3ec1…3f4b at0035 = ╱1f╱ // 0x3ef6 @0x35
0x3ec1…3f4b at0036 = ╱1f╱ // 0x3ef7 @0x36
0x3ec1…3f4b at0037 = ╱1f╱ // 0x3ef8 @0x37
0x3ec1…3f4b at0038 = ╱1f╱ // 0x3ef9 @0x38
0x3ec1…3f4b at0039 = ╱1f╱ // 0x3efa @0x39
0x3ec1…3f4b at003a = ╱1f╱ // 0x3efb @0x3a
0x3ec1…3f4b at003b = ╱1f╱ // 0x3efc @0x3b
0x3ec1…3f4b at003c = ╱1f╱ // 0x3efd @0x3c
0x3ec1…3f4b at003d = ╱67╱g╱ // 0x3efe @0x3d
0x3ec1…3f4b at003e = ╱75╱u╱ // 0x3eff @0x3e
0x3ec1…3f4b at003f = ╱72╱r╱ // 0x3f00 @0x3f
0x3ec1…3f4b at0040 = ╱62╱b╱ // 0x3f01 @0x40
0x3ec1…3f4b at0041 = ╱72╱r╱ // 0x3f02 @0x41
0x3ec1…3f4b at0042 = ╱6f╱o╱ // 0x3f03 @0x42
0x3ec1…3f4b at0043 = ╱66╱f╱ // 0x3f04 @0x43
0x3ec1…3f4b at0044 = ╱65╱e╱ // 0x3f05 @0x44
0x3ec1…3f4b at0045 = ╱72╱r╱ // 0x3f06 @0x45
0x3ec1…3f4b at0046 = ╱61╱a╱ // 0x3f07 @0x46
0x3ec1…3f4b at0047 = ╱56╱V╱ // 0x3f08 @0x47
0x3ec1…3f4b at0048 = ╱20╱…╱ // 0x3f09 @0x48
0x3ec1…3f4b at0049 = ╱20╱…╱ // 0x3f0a @0x49
0x3ec1…3f4b at004a = ╱20╱…╱ // 0x3f0b @0x4a
0x3ec1…3f4b at004b = ╱20╱…╱ // 0x3f0c @0x4b
0x3ec1…3f4b at004c = ╱2a╱*╱ // 0x3f0d @0x4c
0x3ec1…3f4b at004d = ╱31╱1╱ // 0x3f0e @0x4d
0x3ec1…3f4b at004e = ╱32╱2╱ // 0x3f0f @0x4e
0x3ec1…3f4b at004f = ╱30╱0╱ // 0x3f10 @0x4f
0x3ec1…3f4b at0050 = ╱00╱ // 0x3f11 @0x50
0x3ec1…3f4b at0051 = ╱00╱ // 0x3f12 @0x51
0x3ec1…3f4b at0052 = ╱50╱P╱ // 0x3f13 @0x52
0x3ec1…3f4b at0053 = ╱00╱ // 0x3f14 @0x53
0x3ec1…3f4b at0054 = ╱1f╱ // 0x3f15 @0x54
0x3ec1…3f4b at0055 = ╱1f╱ // 0x3f16 @0x55
0x3ec1…3f4b at0056 = ╱1f╱ // 0x3f17 @0x56
0x3ec1…3f4b at0057 = ╱1f╱ // 0x3f18 @0x57
0x3ec1…3f4b at0058 = ╱1f╱ // 0x3f19 @0x58
0x3ec1…3f4b at0059 = ╱31╱1╱ // 0x3f1a @0x59
0x3ec1…3f4b at005a = ╱32╱2╱ // 0x3f1b @0x5a
0x3ec1…3f4b at005b = ╱30╱0╱ // 0x3f1c @0x5b
0x3ec1…3f4b at005c = ╱00╱ // 0x3f1d @0x5c
0x3ec1…3f4b at005d = ╱00╱ // 0x3f1e @0x5d
0x3ec1…3f4b at005e = ╱08╱ // 0x3f1f @0x5e
0x3ec1…3f4b at005f = ╱00╱ // 0x3f20 @0x5f
0x3ec1…3f4b at0060 = ╱96╱ SELECT OUTPUT ╱ // 0x3f21 @0x60
0x3ec1…3f4b at0061 = ╱d4╱ // 0x3f22 @0x61
0x3ec1…3f4b at0062 = ╱22╱"╱ // 0x3f23 @0x62
0x3ec1…3f4b at0063 = ╱0b╱ // 0x3f24 @0x63
0x3ec1…3f4b at0064 = ╱86╱ LET ╱ // 0x3f25 @0x64
0x3ec1…3f4b at0065 = ╱55╱U╱ // 0x3f26 @0x65
0x3ec1…3f4b at0066 = ╱44╱D╱ // 0x3f27 @0x66
0x3ec1…3f4b at0067 = ╱46╱F╱ // 0x3f28 @0x67
0x3ec1…3f4b at0068 = ╱49╱I╱ // 0x3f29 @0x68
0x3ec1…3f4b at0069 = ╱4c╱L╱ // 0x3f2a @0x69
0x3ec1…3f4b at006a = ╱ef╱ $ ╱ // 0x3f2b @0x6a
0x3ec1…3f4b at006b = ╱f0╱ := ╱ // 0x3f2c @0x6b
0x3ec1…3f4b at006c = ╱44╱D╱ // 0x3f2d @0x6c
0x3ec1…3f4b at006d = ╱41╱A╱ // 0x3f2e @0x6d
0x3ec1…3f4b at006e = ╱54╱T╱ // 0x3f2f @0x6e
0x3ec1…3f4b at006f = ╱41╱A╱ // 0x3f30 @0x6f
0x3ec1…3f4b at0070 = ╱46╱F╱ // 0x3f31 @0x70
0x3ec1…3f4b at0071 = ╱4c╱L╱ // 0x3f32 @0x71
0x3ec1…3f4b at0072 = ╱ef╱ $ ╱ // 0x3f33 @0x72
0x3ec1…3f4b at0073 = ╱eb╱ + ╱ // 0x3f34 @0x73
0x3ec1…3f4b at0074 = ╱22╱"╱ // 0x3f35 @0x74
0x3ec1…3f4b at0075 = ╱3a╱:╱ // 0x3f36 @0x75
0x3ec1…3f4b at0076 = ╱22╱"╱ // 0x3f37 @0x76
0x3ec1…3f4b at0077 = ╱eb╱ + ╱ // 0x3f38 @0x77
0x3ec1…3f4b at0078 = ╱53╱S╱ // 0x3f39 @0x78
0x3ec1…3f4b at0079 = ╱5f╱_╱ // 0x3f3a @0x79
0x3ec1…3f4b at007a = ╱4b╱K╱ // 0x3f3b @0x7a
0x3ec1…3f4b at007b = ╱4f╱O╱ // 0x3f3c @0x7b
0x3ec1…3f4b at007c = ╱44╱D╱ // 0x3f3d @0x7c
0x3ec1…3f4b at007d = ╱45╱E╱ // 0x3f3e @0x7d
0x3ec1…3f4b at007e = ╱ef╱ $ ╱ // 0x3f3f @0x7e
0x3ec1…3f4b at007f = ╱eb╱ + ╱ // 0x3f40 @0x7f
0x3ec1…3f4b at0080 = ╱22╱"╱ // 0x3f41 @0x80
0x3ec1…3f4b at0081 = ╱52╱R╱ // 0x3f42 @0x81
0x3ec1…3f4b at0082 = ╱53╱S╱ // 0x3f43 @0x82
0x3ec1…3f4b at0083 = ╱4b╱K╱ // 0x3f44 @0x83
0x3ec1…3f4b at0084 = ╱45╱E╱ // 0x3f45 @0x84
0x3ec1…3f4b at0085 = ╱4c╱L╱ // 0x3f46 @0x85
0x3ec1…3f4b at0086 = ╱45╱E╱ // 0x3f47 @0x86
0x3ec1…3f4b at0087 = ╱54╱T╱ // 0x3f48 @0x87
0x3ec1…3f4b at0088 = ╱22╱"╱ // 0x3f49 @0x88
0x3ec1…3f4b at0089 = EOL // 0x3f4a @0x89
0x3ec1…3f4b }
0x3f4b…3f71 d460 02880 EXEC PRINTRES ( "smal…EDB-liste" , 20 )
0x3f4b…3f71 LineComal80 {
0x3f4b…3f71 ptr = 0xd460 // 0x3f4b @0x0
0x3f4b…3f71 lno = 0x0b40 // 0x3f4d @0x2
0x3f4b…3f71 at0004 = ╱9d╱ EXEC ╱ // 0x3f4f @0x4
0x3f4b…3f71 at0005 = ╱50╱P╱ // 0x3f50 @0x5
0x3f4b…3f71 at0006 = ╱52╱R╱ // 0x3f51 @0x6
0x3f4b…3f71 at0007 = ╱49╱I╱ // 0x3f52 @0x7
0x3f4b…3f71 at0008 = ╱4e╱N╱ // 0x3f53 @0x8
0x3f4b…3f71 at0009 = ╱54╱T╱ // 0x3f54 @0x9
0x3f4b…3f71 at000a = ╱52╱R╱ // 0x3f55 @0xa
0x3f4b…3f71 at000b = ╱45╱E╱ // 0x3f56 @0xb
0x3f4b…3f71 at000c = ╱53╱S╱ // 0x3f57 @0xc
0x3f4b…3f71 at000d = ╱ed╱ ( ╱ // 0x3f58 @0xd
0x3f4b…3f71 at000e = ╱22╱"╱ // 0x3f59 @0xe
0x3f4b…3f71 at000f = ╱73╱s╱ // 0x3f5a @0xf
0x3f4b…3f71 at0010 = ╱6d╱m╱ // 0x3f5b @0x10
0x3f4b…3f71 at0011 = ╱61╱a╱ // 0x3f5c @0x11
0x3f4b…3f71 at0012 = ╱6c╱l╱ // 0x3f5d @0x12
0x3f4b…3f71 at0013 = ╱20╱…╱ // 0x3f5e @0x13
0x3f4b…3f71 at0014 = ╱45╱E╱ // 0x3f5f @0x14
0x3f4b…3f71 at0015 = ╱44╱D╱ // 0x3f60 @0x15
0x3f4b…3f71 at0016 = ╱42╱B╱ // 0x3f61 @0x16
0x3f4b…3f71 at0017 = ╱2d╱-╱ // 0x3f62 @0x17
0x3f4b…3f71 at0018 = ╱6c╱l╱ // 0x3f63 @0x18
0x3f4b…3f71 at0019 = ╱69╱i╱ // 0x3f64 @0x19
0x3f4b…3f71 at001a = ╱73╱s╱ // 0x3f65 @0x1a
0x3f4b…3f71 at001b = ╱74╱t╱ // 0x3f66 @0x1b
0x3f4b…3f71 at001c = ╱65╱e╱ // 0x3f67 @0x1c
0x3f4b…3f71 at001d = ╱22╱"╱ // 0x3f68 @0x1d
0x3f4b…3f71 at001e = ╱ec╱ , ╱ // 0x3f69 @0x1e
0x3f4b…3f71 at001f = ╱32╱2╱ // 0x3f6a @0x1f
0x3f4b…3f71 at0020 = ╱30╱0╱ // 0x3f6b @0x20
0x3f4b…3f71 at0021 = ╱f21400╱ // 0x3f6c @0x21
0x3f4b…3f71 at0024 = ╱ee╱ ) ╱ // 0x3f6f @0x24
0x3f4b…3f71 at0025 = EOL // 0x3f70 @0x25
0x3f4b…3f71 }
0x3f71…3f7f d450 02670 EXEC PRINTREL
0x3f71…3f7f LineComal80 {
0x3f71…3f7f ptr = 0xd450 // 0x3f71 @0x0
0x3f71…3f7f lno = 0x0a6e // 0x3f73 @0x2
0x3f71…3f7f at0004 = ╱9d╱ EXEC ╱ // 0x3f75 @0x4
0x3f71…3f7f at0005 = ╱50╱P╱ // 0x3f76 @0x5
0x3f71…3f7f at0006 = ╱52╱R╱ // 0x3f77 @0x6
0x3f71…3f7f at0007 = ╱49╱I╱ // 0x3f78 @0x7
0x3f71…3f7f at0008 = ╱4e╱N╱ // 0x3f79 @0x8
0x3f71…3f7f at0009 = ╱54╱T╱ // 0x3f7a @0x9
0x3f71…3f7f at000a = ╱52╱R╱ // 0x3f7b @0xa
0x3f71…3f7f at000b = ╱45╱E╱ // 0x3f7c @0xb
0x3f71…3f7f at000c = ╱4c╱L╱ // 0x3f7d @0xc
0x3f71…3f7f at000d = EOL // 0x3f7e @0xd
0x3f71…3f7f }
0x3f7f…3fbc d052 02750 INPUT "<C2218Z>Er…alle…tal…korrekt…indtastede…?…(j/n)…" : SVAR $
0x3f7f…3fbc LineComal80 {
0x3f7f…3fbc ptr = 0xd052 // 0x3f7f @0x0
0x3f7f…3fbc lno = 0x0abe // 0x3f81 @0x2
0x3f7f…3fbc at0004 = ╱91╱ INPUT ╱ // 0x3f83 @0x4
0x3f7f…3fbc at0005 = ╱22╱"╱ // 0x3f84 @0x5
0x3f7f…3fbc at0006 = ╱3c╱<╱ // 0x3f85 @0x6
0x3f7f…3fbc at0007 = ╱43╱C╱ // 0x3f86 @0x7
0x3f7f…3fbc at0008 = ╱32╱2╱ // 0x3f87 @0x8
0x3f7f…3fbc at0009 = ╱32╱2╱ // 0x3f88 @0x9
0x3f7f…3fbc at000a = ╱31╱1╱ // 0x3f89 @0xa
0x3f7f…3fbc at000b = ╱38╱8╱ // 0x3f8a @0xb
0x3f7f…3fbc at000c = ╱5a╱Z╱ // 0x3f8b @0xc
0x3f7f…3fbc at000d = ╱3e╱>╱ // 0x3f8c @0xd
0x3f7f…3fbc at000e = ╱45╱E╱ // 0x3f8d @0xe
0x3f7f…3fbc at000f = ╱72╱r╱ // 0x3f8e @0xf
0x3f7f…3fbc at0010 = ╱20╱…╱ // 0x3f8f @0x10
0x3f7f…3fbc at0011 = ╱61╱a╱ // 0x3f90 @0x11
0x3f7f…3fbc at0012 = ╱6c╱l╱ // 0x3f91 @0x12
0x3f7f…3fbc at0013 = ╱6c╱l╱ // 0x3f92 @0x13
0x3f7f…3fbc at0014 = ╱65╱e╱ // 0x3f93 @0x14
0x3f7f…3fbc at0015 = ╱20╱…╱ // 0x3f94 @0x15
0x3f7f…3fbc at0016 = ╱74╱t╱ // 0x3f95 @0x16
0x3f7f…3fbc at0017 = ╱61╱a╱ // 0x3f96 @0x17
0x3f7f…3fbc at0018 = ╱6c╱l╱ // 0x3f97 @0x18
0x3f7f…3fbc at0019 = ╱20╱…╱ // 0x3f98 @0x19
0x3f7f…3fbc at001a = ╱6b╱k╱ // 0x3f99 @0x1a
0x3f7f…3fbc at001b = ╱6f╱o╱ // 0x3f9a @0x1b
0x3f7f…3fbc at001c = ╱72╱r╱ // 0x3f9b @0x1c
0x3f7f…3fbc at001d = ╱72╱r╱ // 0x3f9c @0x1d
0x3f7f…3fbc at001e = ╱65╱e╱ // 0x3f9d @0x1e
0x3f7f…3fbc at001f = ╱6b╱k╱ // 0x3f9e @0x1f
0x3f7f…3fbc at0020 = ╱74╱t╱ // 0x3f9f @0x20
0x3f7f…3fbc at0021 = ╱20╱…╱ // 0x3fa0 @0x21
0x3f7f…3fbc at0022 = ╱69╱i╱ // 0x3fa1 @0x22
0x3f7f…3fbc at0023 = ╱6e╱n╱ // 0x3fa2 @0x23
0x3f7f…3fbc at0024 = ╱64╱d╱ // 0x3fa3 @0x24
0x3f7f…3fbc at0025 = ╱74╱t╱ // 0x3fa4 @0x25
0x3f7f…3fbc at0026 = ╱61╱a╱ // 0x3fa5 @0x26
0x3f7f…3fbc at0027 = ╱73╱s╱ // 0x3fa6 @0x27
0x3f7f…3fbc at0028 = ╱74╱t╱ // 0x3fa7 @0x28
0x3f7f…3fbc at0029 = ╱65╱e╱ // 0x3fa8 @0x29
0x3f7f…3fbc at002a = ╱64╱d╱ // 0x3fa9 @0x2a
0x3f7f…3fbc at002b = ╱65╱e╱ // 0x3faa @0x2b
0x3f7f…3fbc at002c = ╱20╱…╱ // 0x3fab @0x2c
0x3f7f…3fbc at002d = ╱3f╱?╱ // 0x3fac @0x2d
0x3f7f…3fbc at002e = ╱20╱…╱ // 0x3fad @0x2e
0x3f7f…3fbc at002f = ╱28╱(╱ // 0x3fae @0x2f
0x3f7f…3fbc at0030 = ╱6a╱j╱ // 0x3faf @0x30
0x3f7f…3fbc at0031 = ╱2f╱/╱ // 0x3fb0 @0x31
0x3f7f…3fbc at0032 = ╱6e╱n╱ // 0x3fb1 @0x32
0x3f7f…3fbc at0033 = ╱29╱)╱ // 0x3fb2 @0x33
0x3f7f…3fbc at0034 = ╱20╱…╱ // 0x3fb3 @0x34
0x3f7f…3fbc at0035 = ╱22╱"╱ // 0x3fb4 @0x35
0x3f7f…3fbc at0036 = ╱f1╱ : ╱ // 0x3fb5 @0x36
0x3f7f…3fbc at0037 = ╱53╱S╱ // 0x3fb6 @0x37
0x3f7f…3fbc at0038 = ╱56╱V╱ // 0x3fb7 @0x38
0x3f7f…3fbc at0039 = ╱41╱A╱ // 0x3fb8 @0x39
0x3f7f…3fbc at003a = ╱52╱R╱ // 0x3fb9 @0x3a
0x3f7f…3fbc at003b = ╱ef╱ $ ╱ // 0x3fba @0x3b
0x3f7f…3fbc at003c = EOL // 0x3fbb @0x3c
0x3f7f…3fbc }
0x3fbc…3fca 9975 00205 CHAIN PROGRAM $
0x3fbc…3fca LineComal80 {
0x3fbc…3fca ptr = 0x9975 // 0x3fbc @0x0
0x3fbc…3fca lno = 0x00cd // 0x3fbe @0x2
0x3fbc…3fca at0004 = ╱ac╱ CHAIN ╱ // 0x3fc0 @0x4
0x3fbc…3fca at0005 = ╱50╱P╱ // 0x3fc1 @0x5
0x3fbc…3fca at0006 = ╱52╱R╱ // 0x3fc2 @0x6
0x3fbc…3fca at0007 = ╱4f╱O╱ // 0x3fc3 @0x7
0x3fbc…3fca at0008 = ╱47╱G╱ // 0x3fc4 @0x8
0x3fbc…3fca at0009 = ╱52╱R╱ // 0x3fc5 @0x9
0x3fbc…3fca at000a = ╱41╱A╱ // 0x3fc6 @0xa
0x3fbc…3fca at000b = ╱4d╱M╱ // 0x3fc7 @0xb
0x3fbc…3fca at000c = ╱ef╱ $ ╱ // 0x3fc8 @0xc
0x3fbc…3fca at000d = EOL // 0x3fc9 @0xd
0x3fbc…3fca }
0x3fca…3ffb c7ff 02101 IF KTONR $ ( 1 ) = "0" THEN LET DRIFT ( 2 ) := - DRIFT ( 2 )
0x3fca…3ffb LineComal80 {
0x3fca…3ffb ptr = 0xc7ff // 0x3fca @0x0
0x3fca…3ffb lno = 0x0835 // 0x3fcc @0x2
0x3fca…3ffb at0004 = ╱8200╱ IF ╱ // 0x3fce @0x4
0x3fca…3ffb at0006 = ╱4b╱K╱ // 0x3fd0 @0x6
0x3fca…3ffb at0007 = ╱54╱T╱ // 0x3fd1 @0x7
0x3fca…3ffb at0008 = ╱4f╱O╱ // 0x3fd2 @0x8
0x3fca…3ffb at0009 = ╱4e╱N╱ // 0x3fd3 @0x9
0x3fca…3ffb at000a = ╱52╱R╱ // 0x3fd4 @0xa
0x3fca…3ffb at000b = ╱ef╱ $ ╱ // 0x3fd5 @0xb
0x3fca…3ffb at000c = ╱ed╱ ( ╱ // 0x3fd6 @0xc
0x3fca…3ffb at000d = ╱31╱1╱ // 0x3fd7 @0xd
0x3fca…3ffb at000e = ╱f20100╱ // 0x3fd8 @0xe
0x3fca…3ffb at0011 = ╱ee╱ ) ╱ // 0x3fdb @0x11
0x3fca…3ffb at0012 = ╱df╱ = ╱ // 0x3fdc @0x12
0x3fca…3ffb at0013 = ╱22╱"╱ // 0x3fdd @0x13
0x3fca…3ffb at0014 = ╱30╱0╱ // 0x3fde @0x14
0x3fca…3ffb at0015 = ╱22╱"╱ // 0x3fdf @0x15
0x3fca…3ffb at0016 = ╱b5╱ THEN ╱ // 0x3fe0 @0x16
0x3fca…3ffb at0017 = ╱86╱ LET ╱ // 0x3fe1 @0x17
0x3fca…3ffb at0018 = ╱44╱D╱ // 0x3fe2 @0x18
0x3fca…3ffb at0019 = ╱52╱R╱ // 0x3fe3 @0x19
0x3fca…3ffb at001a = ╱49╱I╱ // 0x3fe4 @0x1a
0x3fca…3ffb at001b = ╱46╱F╱ // 0x3fe5 @0x1b
0x3fca…3ffb at001c = ╱54╱T╱ // 0x3fe6 @0x1c
0x3fca…3ffb at001d = ╱ed╱ ( ╱ // 0x3fe7 @0x1d
0x3fca…3ffb at001e = ╱32╱2╱ // 0x3fe8 @0x1e
0x3fca…3ffb at001f = ╱f20200╱ // 0x3fe9 @0x1f
0x3fca…3ffb at0022 = ╱ee╱ ) ╱ // 0x3fec @0x22
0x3fca…3ffb at0023 = ╱f0╱ := ╱ // 0x3fed @0x23
0x3fca…3ffb at0024 = ╱de╱ - ╱ // 0x3fee @0x24
0x3fca…3ffb at0025 = ╱44╱D╱ // 0x3fef @0x25
0x3fca…3ffb at0026 = ╱52╱R╱ // 0x3ff0 @0x26
0x3fca…3ffb at0027 = ╱49╱I╱ // 0x3ff1 @0x27
0x3fca…3ffb at0028 = ╱46╱F╱ // 0x3ff2 @0x28
0x3fca…3ffb at0029 = ╱54╱T╱ // 0x3ff3 @0x29
0x3fca…3ffb at002a = ╱ed╱ ( ╱ // 0x3ff4 @0x2a
0x3fca…3ffb at002b = ╱32╱2╱ // 0x3ff5 @0x2b
0x3fca…3ffb at002c = ╱f20200╱ // 0x3ff6 @0x2c
0x3fca…3ffb at002f = ╱ee╱ ) ╱ // 0x3ff9 @0x2f
0x3fca…3ffb at0030 = EOL // 0x3ffa @0x30
0x3fca…3ffb }
0x3ffb…4017 d40c 07075 IF I =< 12 THEN LET R ( I ) := ABS ( R ( I ) )
0x3ffb…4017 LineComal80 {
0x3ffb…4017 ptr = 0xd40c // 0x3ffb @0x0
0x3ffb…4017 lno = 0x1ba3 // 0x3ffd @0x2
0x3ffb…4017 at0004 = ╱8200╱ IF ╱ // 0x3fff @0x4
0x3ffb…4017 at0006 = ╱49╱I╱ // 0x4001 @0x6
0x3ffb…4017 at0007 = ╱e2╱ =< ╱ // 0x4002 @0x7
0x3ffb…4017 at0008 = ╱31╱1╱ // 0x4003 @0x8
0x3ffb…4017 at0009 = ╱32╱2╱ // 0x4004 @0x9
0x3ffb…4017 at000a = ╱f20c00╱ // 0x4005 @0xa
0x3ffb…4017 at000d = ╱b5╱ THEN ╱ // 0x4008 @0xd
0x3ffb…4017 at000e = ╱86╱ LET ╱ // 0x4009 @0xe
0x3ffb…4017 at000f = ╱52╱R╱ // 0x400a @0xf
0x3ffb…4017 at0010 = ╱ed╱ ( ╱ // 0x400b @0x10
0x3ffb…4017 at0011 = ╱49╱I╱ // 0x400c @0x11
0x3ffb…4017 at0012 = ╱ee╱ ) ╱ // 0x400d @0x12
0x3ffb…4017 at0013 = ╱f0╱ := ╱ // 0x400e @0x13
0x3ffb…4017 at0014 = ╱c4╱ ABS ╱ // 0x400f @0x14
0x3ffb…4017 at0015 = ╱ed╱ ( ╱ // 0x4010 @0x15
0x3ffb…4017 at0016 = ╱52╱R╱ // 0x4011 @0x16
0x3ffb…4017 at0017 = ╱ed╱ ( ╱ // 0x4012 @0x17
0x3ffb…4017 at0018 = ╱49╱I╱ // 0x4013 @0x18
0x3ffb…4017 at0019 = ╱ee╱ ) ╱ // 0x4014 @0x19
0x3ffb…4017 at001a = ╱ee╱ ) ╱ // 0x4015 @0x1a
0x3ffb…4017 at001b = EOL // 0x4016 @0x1b
0x3ffb…4017 }
0x4017…4095 1f1f 07967 ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ A…eppurgeraV………*11121 ╱00╱ ╱00╱ P ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ 11121 ╱00╱ ╱00╱ ╱08╱ ╱00╱ ╱1a╱ SGN > ╱08╱ LET X ( P ) := X ( P ) + ABS ( DRIFT ( 2 ) )
0x4017…4095 LineComal80 {
0x4017…4095 ptr = 0x1f1f // 0x4017 @0x0
0x4017…4095 lno = 0x1f1f // 0x4019 @0x2
0x4017…4095 at0004 = ╱1f╱ // 0x401b @0x4
0x4017…4095 at0005 = ╱1f╱ // 0x401c @0x5
0x4017…4095 at0006 = ╱1f╱ // 0x401d @0x6
0x4017…4095 at0007 = ╱1f╱ // 0x401e @0x7
0x4017…4095 at0008 = ╱1f╱ // 0x401f @0x8
0x4017…4095 at0009 = ╱1f╱ // 0x4020 @0x9
0x4017…4095 at000a = ╱1f╱ // 0x4021 @0xa
0x4017…4095 at000b = ╱1f╱ // 0x4022 @0xb
0x4017…4095 at000c = ╱1f╱ // 0x4023 @0xc
0x4017…4095 at000d = ╱1f╱ // 0x4024 @0xd
0x4017…4095 at000e = ╱1f╱ // 0x4025 @0xe
0x4017…4095 at000f = ╱1f╱ // 0x4026 @0xf
0x4017…4095 at0010 = ╱1f╱ // 0x4027 @0x10
0x4017…4095 at0011 = ╱1f╱ // 0x4028 @0x11
0x4017…4095 at0012 = ╱1f╱ // 0x4029 @0x12
0x4017…4095 at0013 = ╱1f╱ // 0x402a @0x13
0x4017…4095 at0014 = ╱1f╱ // 0x402b @0x14
0x4017…4095 at0015 = ╱1f╱ // 0x402c @0x15
0x4017…4095 at0016 = ╱1f╱ // 0x402d @0x16
0x4017…4095 at0017 = ╱1f╱ // 0x402e @0x17
0x4017…4095 at0018 = ╱1f╱ // 0x402f @0x18
0x4017…4095 at0019 = ╱1f╱ // 0x4030 @0x19
0x4017…4095 at001a = ╱1f╱ // 0x4031 @0x1a
0x4017…4095 at001b = ╱1f╱ // 0x4032 @0x1b
0x4017…4095 at001c = ╱1f╱ // 0x4033 @0x1c
0x4017…4095 at001d = ╱1f╱ // 0x4034 @0x1d
0x4017…4095 at001e = ╱1f╱ // 0x4035 @0x1e
0x4017…4095 at001f = ╱1f╱ // 0x4036 @0x1f
0x4017…4095 at0020 = ╱1f╱ // 0x4037 @0x20
0x4017…4095 at0021 = ╱1f╱ // 0x4038 @0x21
0x4017…4095 at0022 = ╱1f╱ // 0x4039 @0x22
0x4017…4095 at0023 = ╱1f╱ // 0x403a @0x23
0x4017…4095 at0024 = ╱1f╱ // 0x403b @0x24
0x4017…4095 at0025 = ╱1f╱ // 0x403c @0x25
0x4017…4095 at0026 = ╱1f╱ // 0x403d @0x26
0x4017…4095 at0027 = ╱1f╱ // 0x403e @0x27
0x4017…4095 at0028 = ╱1f╱ // 0x403f @0x28
0x4017…4095 at0029 = ╱1f╱ // 0x4040 @0x29
0x4017…4095 at002a = ╱1f╱ // 0x4041 @0x2a
0x4017…4095 at002b = ╱1f╱ // 0x4042 @0x2b
0x4017…4095 at002c = ╱1f╱ // 0x4043 @0x2c
0x4017…4095 at002d = ╱1f╱ // 0x4044 @0x2d
0x4017…4095 at002e = ╱1f╱ // 0x4045 @0x2e
0x4017…4095 at002f = ╱1f╱ // 0x4046 @0x2f
0x4017…4095 at0030 = ╱1f╱ // 0x4047 @0x30
0x4017…4095 at0031 = ╱1f╱ // 0x4048 @0x31
0x4017…4095 at0032 = ╱1f╱ // 0x4049 @0x32
0x4017…4095 at0033 = ╱1f╱ // 0x404a @0x33
0x4017…4095 at0034 = ╱1f╱ // 0x404b @0x34
0x4017…4095 at0035 = ╱1f╱ // 0x404c @0x35
0x4017…4095 at0036 = ╱1f╱ // 0x404d @0x36
0x4017…4095 at0037 = ╱1f╱ // 0x404e @0x37
0x4017…4095 at0038 = ╱1f╱ // 0x404f @0x38
0x4017…4095 at0039 = ╱1f╱ // 0x4050 @0x39
0x4017…4095 at003a = ╱1f╱ // 0x4051 @0x3a
0x4017…4095 at003b = ╱41╱A╱ // 0x4052 @0x3b
0x4017…4095 at003c = ╱20╱…╱ // 0x4053 @0x3c
0x4017…4095 at003d = ╱65╱e╱ // 0x4054 @0x3d
0x4017…4095 at003e = ╱70╱p╱ // 0x4055 @0x3e
0x4017…4095 at003f = ╱70╱p╱ // 0x4056 @0x3f
0x4017…4095 at0040 = ╱75╱u╱ // 0x4057 @0x40
0x4017…4095 at0041 = ╱72╱r╱ // 0x4058 @0x41
0x4017…4095 at0042 = ╱67╱g╱ // 0x4059 @0x42
0x4017…4095 at0043 = ╱65╱e╱ // 0x405a @0x43
0x4017…4095 at0044 = ╱72╱r╱ // 0x405b @0x44
0x4017…4095 at0045 = ╱61╱a╱ // 0x405c @0x45
0x4017…4095 at0046 = ╱56╱V╱ // 0x405d @0x46
0x4017…4095 at0047 = ╱20╱…╱ // 0x405e @0x47
0x4017…4095 at0048 = ╱20╱…╱ // 0x405f @0x48
0x4017…4095 at0049 = ╱20╱…╱ // 0x4060 @0x49
0x4017…4095 at004a = ╱2a╱*╱ // 0x4061 @0x4a
0x4017…4095 at004b = ╱31╱1╱ // 0x4062 @0x4b
0x4017…4095 at004c = ╱31╱1╱ // 0x4063 @0x4c
0x4017…4095 at004d = ╱31╱1╱ // 0x4064 @0x4d
0x4017…4095 at004e = ╱32╱2╱ // 0x4065 @0x4e
0x4017…4095 at004f = ╱31╱1╱ // 0x4066 @0x4f
0x4017…4095 at0050 = ╱00╱ // 0x4067 @0x50
0x4017…4095 at0051 = ╱00╱ // 0x4068 @0x51
0x4017…4095 at0052 = ╱50╱P╱ // 0x4069 @0x52
0x4017…4095 at0053 = ╱00╱ // 0x406a @0x53
0x4017…4095 at0054 = ╱1f╱ // 0x406b @0x54
0x4017…4095 at0055 = ╱1f╱ // 0x406c @0x55
0x4017…4095 at0056 = ╱1f╱ // 0x406d @0x56
0x4017…4095 at0057 = ╱31╱1╱ // 0x406e @0x57
0x4017…4095 at0058 = ╱31╱1╱ // 0x406f @0x58
0x4017…4095 at0059 = ╱31╱1╱ // 0x4070 @0x59
0x4017…4095 at005a = ╱32╱2╱ // 0x4071 @0x5a
0x4017…4095 at005b = ╱31╱1╱ // 0x4072 @0x5b
0x4017…4095 at005c = ╱00╱ // 0x4073 @0x5c
0x4017…4095 at005d = ╱00╱ // 0x4074 @0x5d
0x4017…4095 at005e = ╱08╱ // 0x4075 @0x5e
0x4017…4095 at005f = ╱00╱ // 0x4076 @0x5f
0x4017…4095 at0060 = ╱1a╱ // 0x4077 @0x60
0x4017…4095 at0061 = ╱c8╱ SGN ╱ // 0x4078 @0x61
0x4017…4095 at0062 = ╱3e╱>╱ // 0x4079 @0x62
0x4017…4095 at0063 = ╱08╱ // 0x407a @0x63
0x4017…4095 at0064 = ╱86╱ LET ╱ // 0x407b @0x64
0x4017…4095 at0065 = ╱58╱X╱ // 0x407c @0x65
0x4017…4095 at0066 = ╱ed╱ ( ╱ // 0x407d @0x66
0x4017…4095 at0067 = ╱50╱P╱ // 0x407e @0x67
0x4017…4095 at0068 = ╱ee╱ ) ╱ // 0x407f @0x68
0x4017…4095 at0069 = ╱f0╱ := ╱ // 0x4080 @0x69
0x4017…4095 at006a = ╱58╱X╱ // 0x4081 @0x6a
0x4017…4095 at006b = ╱ed╱ ( ╱ // 0x4082 @0x6b
0x4017…4095 at006c = ╱50╱P╱ // 0x4083 @0x6c
0x4017…4095 at006d = ╱ee╱ ) ╱ // 0x4084 @0x6d
0x4017…4095 at006e = ╱e5╱ + ╱ // 0x4085 @0x6e
0x4017…4095 at006f = ╱c4╱ ABS ╱ // 0x4086 @0x6f
0x4017…4095 at0070 = ╱ed╱ ( ╱ // 0x4087 @0x70
0x4017…4095 at0071 = ╱44╱D╱ // 0x4088 @0x71
0x4017…4095 at0072 = ╱52╱R╱ // 0x4089 @0x72
0x4017…4095 at0073 = ╱49╱I╱ // 0x408a @0x73
0x4017…4095 at0074 = ╱46╱F╱ // 0x408b @0x74
0x4017…4095 at0075 = ╱54╱T╱ // 0x408c @0x75
0x4017…4095 at0076 = ╱ed╱ ( ╱ // 0x408d @0x76
0x4017…4095 at0077 = ╱32╱2╱ // 0x408e @0x77
0x4017…4095 at0078 = ╱f20200╱ // 0x408f @0x78
0x4017…4095 at007b = ╱ee╱ ) ╱ // 0x4092 @0x7b
0x4017…4095 at007c = ╱ee╱ ) ╱ // 0x4093 @0x7c
0x4017…4095 at007d = EOL // 0x4094 @0x7d
0x4017…4095 }
0x4095…40b0 c81a 01850 LET X ( P ) := X ( P ) + DRIFT ( 2 )
0x4095…40b0 LineComal80 {
0x4095…40b0 ptr = 0xc81a // 0x4095 @0x0
0x4095…40b0 lno = 0x073a // 0x4097 @0x2
0x4095…40b0 at0004 = ╱86╱ LET ╱ // 0x4099 @0x4
0x4095…40b0 at0005 = ╱58╱X╱ // 0x409a @0x5
0x4095…40b0 at0006 = ╱ed╱ ( ╱ // 0x409b @0x6
0x4095…40b0 at0007 = ╱50╱P╱ // 0x409c @0x7
0x4095…40b0 at0008 = ╱ee╱ ) ╱ // 0x409d @0x8
0x4095…40b0 at0009 = ╱f0╱ := ╱ // 0x409e @0x9
0x4095…40b0 at000a = ╱58╱X╱ // 0x409f @0xa
0x4095…40b0 at000b = ╱ed╱ ( ╱ // 0x40a0 @0xb
0x4095…40b0 at000c = ╱50╱P╱ // 0x40a1 @0xc
0x4095…40b0 at000d = ╱ee╱ ) ╱ // 0x40a2 @0xd
0x4095…40b0 at000e = ╱e5╱ + ╱ // 0x40a3 @0xe
0x4095…40b0 at000f = ╱44╱D╱ // 0x40a4 @0xf
0x4095…40b0 at0010 = ╱52╱R╱ // 0x40a5 @0x10
0x4095…40b0 at0011 = ╱49╱I╱ // 0x40a6 @0x11
0x4095…40b0 at0012 = ╱46╱F╱ // 0x40a7 @0x12
0x4095…40b0 at0013 = ╱54╱T╱ // 0x40a8 @0x13
0x4095…40b0 at0014 = ╱ed╱ ( ╱ // 0x40a9 @0x14
0x4095…40b0 at0015 = ╱32╱2╱ // 0x40aa @0x15
0x4095…40b0 at0016 = ╱f20200╱ // 0x40ab @0x16
0x4095…40b0 at0019 = ╱ee╱ ) ╱ // 0x40ae @0x19
0x4095…40b0 at001a = EOL // 0x40af @0x1a
0x4095…40b0 }
0x40b0…40cd c87f 02160 PRINT "<XC1212>Der…opt{lles!"
0x40b0…40cd LineComal80 {
0x40b0…40cd ptr = 0xc87f // 0x40b0 @0x0
0x40b0…40cd lno = 0x0870 // 0x40b2 @0x2
0x40b0…40cd at0004 = ╱92╱ PRINT ╱ // 0x40b4 @0x4
0x40b0…40cd at0005 = ╱22╱"╱ // 0x40b5 @0x5
0x40b0…40cd at0006 = ╱3c╱<╱ // 0x40b6 @0x6
0x40b0…40cd at0007 = ╱58╱X╱ // 0x40b7 @0x7
0x40b0…40cd at0008 = ╱43╱C╱ // 0x40b8 @0x8
0x40b0…40cd at0009 = ╱31╱1╱ // 0x40b9 @0x9
0x40b0…40cd at000a = ╱32╱2╱ // 0x40ba @0xa
0x40b0…40cd at000b = ╱31╱1╱ // 0x40bb @0xb
0x40b0…40cd at000c = ╱32╱2╱ // 0x40bc @0xc
0x40b0…40cd at000d = ╱3e╱>╱ // 0x40bd @0xd
0x40b0…40cd at000e = ╱44╱D╱ // 0x40be @0xe
0x40b0…40cd at000f = ╱65╱e╱ // 0x40bf @0xf
0x40b0…40cd at0010 = ╱72╱r╱ // 0x40c0 @0x10
0x40b0…40cd at0011 = ╱20╱…╱ // 0x40c1 @0x11
0x40b0…40cd at0012 = ╱6f╱o╱ // 0x40c2 @0x12
0x40b0…40cd at0013 = ╱70╱p╱ // 0x40c3 @0x13
0x40b0…40cd at0014 = ╱74╱t╱ // 0x40c4 @0x14
0x40b0…40cd at0015 = ╱7b╱{╱ // 0x40c5 @0x15
0x40b0…40cd at0016 = ╱6c╱l╱ // 0x40c6 @0x16
0x40b0…40cd at0017 = ╱6c╱l╱ // 0x40c7 @0x17
0x40b0…40cd at0018 = ╱65╱e╱ // 0x40c8 @0x18
0x40b0…40cd at0019 = ╱73╱s╱ // 0x40c9 @0x19
0x40b0…40cd at001a = ╱21╱!╱ // 0x40ca @0x1a
0x40b0…40cd at001b = ╱22╱"╱ // 0x40cb @0x1b
0x40b0…40cd at001c = EOL // 0x40cc @0x1c
0x40b0…40cd }
0x40cd…40df d69e 02151 LET X ( P ) := ABS ( X ( P ) )
0x40cd…40df LineComal80 {
0x40cd…40df ptr = 0xd69e // 0x40cd @0x0
0x40cd…40df lno = 0x0867 // 0x40cf @0x2
0x40cd…40df at0004 = ╱86╱ LET ╱ // 0x40d1 @0x4
0x40cd…40df at0005 = ╱58╱X╱ // 0x40d2 @0x5
0x40cd…40df at0006 = ╱ed╱ ( ╱ // 0x40d3 @0x6
0x40cd…40df at0007 = ╱50╱P╱ // 0x40d4 @0x7
0x40cd…40df at0008 = ╱ee╱ ) ╱ // 0x40d5 @0x8
0x40cd…40df at0009 = ╱f0╱ := ╱ // 0x40d6 @0x9
0x40cd…40df at000a = ╱c4╱ ABS ╱ // 0x40d7 @0xa
0x40cd…40df at000b = ╱ed╱ ( ╱ // 0x40d8 @0xb
0x40cd…40df at000c = ╱58╱X╱ // 0x40d9 @0xc
0x40cd…40df at000d = ╱ed╱ ( ╱ // 0x40da @0xd
0x40cd…40df at000e = ╱50╱P╱ // 0x40db @0xe
0x40cd…40df at000f = ╱ee╱ ) ╱ // 0x40dc @0xf
0x40cd…40df at0010 = ╱ee╱ ) ╱ // 0x40dd @0x10
0x40cd…40df at0011 = EOL // 0x40de @0x11
0x40cd…40df }
0x40df…40ee c77a 01800 LET X ( P ) := X ( P )
0x40df…40ee LineComal80 {
0x40df…40ee ptr = 0xc77a // 0x40df @0x0
0x40df…40ee lno = 0x0708 // 0x40e1 @0x2
0x40df…40ee at0004 = ╱86╱ LET ╱ // 0x40e3 @0x4
0x40df…40ee at0005 = ╱58╱X╱ // 0x40e4 @0x5
0x40df…40ee at0006 = ╱ed╱ ( ╱ // 0x40e5 @0x6
0x40df…40ee at0007 = ╱50╱P╱ // 0x40e6 @0x7
0x40df…40ee at0008 = ╱ee╱ ) ╱ // 0x40e7 @0x8
0x40df…40ee at0009 = ╱f0╱ := ╱ // 0x40e8 @0x9
0x40df…40ee at000a = ╱58╱X╱ // 0x40e9 @0xa
0x40df…40ee at000b = ╱ed╱ ( ╱ // 0x40ea @0xb
0x40df…40ee at000c = ╱50╱P╱ // 0x40eb @0xc
0x40df…40ee at000d = ╱ee╱ ) ╱ // 0x40ec @0xd
0x40df…40ee at000e = EOL // 0x40ed @0xe
0x40df…40ee }
0x40ee…4100 c8f6 01990 LET X ( P ) := ABS ( X ( P ) )
0x40ee…4100 LineComal80 {
0x40ee…4100 ptr = 0xc8f6 // 0x40ee @0x0
0x40ee…4100 lno = 0x07c6 // 0x40f0 @0x2
0x40ee…4100 at0004 = ╱86╱ LET ╱ // 0x40f2 @0x4
0x40ee…4100 at0005 = ╱58╱X╱ // 0x40f3 @0x5
0x40ee…4100 at0006 = ╱ed╱ ( ╱ // 0x40f4 @0x6
0x40ee…4100 at0007 = ╱50╱P╱ // 0x40f5 @0x7
0x40ee…4100 at0008 = ╱ee╱ ) ╱ // 0x40f6 @0x8
0x40ee…4100 at0009 = ╱f0╱ := ╱ // 0x40f7 @0x9
0x40ee…4100 at000a = ╱c4╱ ABS ╱ // 0x40f8 @0xa
0x40ee…4100 at000b = ╱ed╱ ( ╱ // 0x40f9 @0xb
0x40ee…4100 at000c = ╱58╱X╱ // 0x40fa @0xc
0x40ee…4100 at000d = ╱ed╱ ( ╱ // 0x40fb @0xd
0x40ee…4100 at000e = ╱50╱P╱ // 0x40fc @0xe
0x40ee…4100 at000f = ╱ee╱ ) ╱ // 0x40fd @0xf
0x40ee…4100 at0010 = ╱ee╱ ) ╱ // 0x40fe @0x10
0x40ee…4100 at0011 = EOL // 0x40ff @0x11
0x40ee…4100 }
0x4100…4127 cc45 02490 LET R ( 19 + I ) := X ( 25 + I ) / X ( I ) * 100
0x4100…4127 LineComal80 {
0x4100…4127 ptr = 0xcc45 // 0x4100 @0x0
0x4100…4127 lno = 0x09ba // 0x4102 @0x2
0x4100…4127 at0004 = ╱86╱ LET ╱ // 0x4104 @0x4
0x4100…4127 at0005 = ╱52╱R╱ // 0x4105 @0x5
0x4100…4127 at0006 = ╱ed╱ ( ╱ // 0x4106 @0x6
0x4100…4127 at0007 = ╱31╱1╱ // 0x4107 @0x7
0x4100…4127 at0008 = ╱39╱9╱ // 0x4108 @0x8
0x4100…4127 at0009 = ╱f21300╱ // 0x4109 @0x9
0x4100…4127 at000c = ╱e5╱ + ╱ // 0x410c @0xc
0x4100…4127 at000d = ╱49╱I╱ // 0x410d @0xd
0x4100…4127 at000e = ╱ee╱ ) ╱ // 0x410e @0xe
0x4100…4127 at000f = ╱f0╱ := ╱ // 0x410f @0xf
0x4100…4127 at0010 = ╱58╱X╱ // 0x4110 @0x10
0x4100…4127 at0011 = ╱ed╱ ( ╱ // 0x4111 @0x11
0x4100…4127 at0012 = ╱32╱2╱ // 0x4112 @0x12
0x4100…4127 at0013 = ╱35╱5╱ // 0x4113 @0x13
0x4100…4127 at0014 = ╱f21900╱ // 0x4114 @0x14
0x4100…4127 at0017 = ╱e5╱ + ╱ // 0x4117 @0x17
0x4100…4127 at0018 = ╱49╱I╱ // 0x4118 @0x18
0x4100…4127 at0019 = ╱ee╱ ) ╱ // 0x4119 @0x19
0x4100…4127 at001a = ╱e8╱ / ╱ // 0x411a @0x1a
0x4100…4127 at001b = ╱58╱X╱ // 0x411b @0x1b
0x4100…4127 at001c = ╱ed╱ ( ╱ // 0x411c @0x1c
0x4100…4127 at001d = ╱49╱I╱ // 0x411d @0x1d
0x4100…4127 at001e = ╱ee╱ ) ╱ // 0x411e @0x1e
0x4100…4127 at001f = ╱e7╱ * ╱ // 0x411f @0x1f
0x4100…4127 at0020 = ╱31╱1╱ // 0x4120 @0x20
0x4100…4127 at0021 = ╱30╱0╱ // 0x4121 @0x21
0x4100…4127 at0022 = ╱30╱0╱ // 0x4122 @0x22
0x4100…4127 at0023 = ╱f26400╱ // 0x4123 @0x23
0x4100…4127 at0026 = EOL // 0x4126 @0x26
0x4100…4127 }
0x4127…4168 1f1f 07967 ╱1f╱ XDIOTKAY:2PD ╱00╱ ╱00╱ ╱11╱ ╱00╱ R ╱00╱ ╱00╱ ╱01╱ ╱00╱ E ╱cc╱ TAN ╱08╱ LET R ( 19 + I ) := X ( 25 + I ) * 100 / X ( I )
0x4127…4168 LineComal80 {
0x4127…4168 ptr = 0x1f1f // 0x4127 @0x0
0x4127…4168 lno = 0x1f1f // 0x4129 @0x2
0x4127…4168 at0004 = ╱1f╱ // 0x412b @0x4
0x4127…4168 at0005 = ╱58╱X╱ // 0x412c @0x5
0x4127…4168 at0006 = ╱44╱D╱ // 0x412d @0x6
0x4127…4168 at0007 = ╱49╱I╱ // 0x412e @0x7
0x4127…4168 at0008 = ╱4f╱O╱ // 0x412f @0x8
0x4127…4168 at0009 = ╱54╱T╱ // 0x4130 @0x9
0x4127…4168 at000a = ╱4b╱K╱ // 0x4131 @0xa
0x4127…4168 at000b = ╱41╱A╱ // 0x4132 @0xb
0x4127…4168 at000c = ╱59╱Y╱ // 0x4133 @0xc
0x4127…4168 at000d = ╱3a╱:╱ // 0x4134 @0xd
0x4127…4168 at000e = ╱32╱2╱ // 0x4135 @0xe
0x4127…4168 at000f = ╱50╱P╱ // 0x4136 @0xf
0x4127…4168 at0010 = ╱44╱D╱ // 0x4137 @0x10
0x4127…4168 at0011 = ╱00╱ // 0x4138 @0x11
0x4127…4168 at0012 = ╱00╱ // 0x4139 @0x12
0x4127…4168 at0013 = ╱11╱ // 0x413a @0x13
0x4127…4168 at0014 = ╱00╱ // 0x413b @0x14
0x4127…4168 at0015 = ╱52╱R╱ // 0x413c @0x15
0x4127…4168 at0016 = ╱00╱ // 0x413d @0x16
0x4127…4168 at0017 = ╱00╱ // 0x413e @0x17
0x4127…4168 at0018 = ╱01╱ // 0x413f @0x18
0x4127…4168 at0019 = ╱00╱ // 0x4140 @0x19
0x4127…4168 at001a = ╱45╱E╱ // 0x4141 @0x1a
0x4127…4168 at001b = ╱cc╱ // 0x4142 @0x1b
0x4127…4168 at001c = ╱c0╱ TAN ╱ // 0x4143 @0x1c
0x4127…4168 at001d = ╱08╱ // 0x4144 @0x1d
0x4127…4168 at001e = ╱86╱ LET ╱ // 0x4145 @0x1e
0x4127…4168 at001f = ╱52╱R╱ // 0x4146 @0x1f
0x4127…4168 at0020 = ╱ed╱ ( ╱ // 0x4147 @0x20
0x4127…4168 at0021 = ╱31╱1╱ // 0x4148 @0x21
0x4127…4168 at0022 = ╱39╱9╱ // 0x4149 @0x22
0x4127…4168 at0023 = ╱f21300╱ // 0x414a @0x23
0x4127…4168 at0026 = ╱e5╱ + ╱ // 0x414d @0x26
0x4127…4168 at0027 = ╱49╱I╱ // 0x414e @0x27
0x4127…4168 at0028 = ╱ee╱ ) ╱ // 0x414f @0x28
0x4127…4168 at0029 = ╱f0╱ := ╱ // 0x4150 @0x29
0x4127…4168 at002a = ╱58╱X╱ // 0x4151 @0x2a
0x4127…4168 at002b = ╱ed╱ ( ╱ // 0x4152 @0x2b
0x4127…4168 at002c = ╱32╱2╱ // 0x4153 @0x2c
0x4127…4168 at002d = ╱35╱5╱ // 0x4154 @0x2d
0x4127…4168 at002e = ╱f21900╱ // 0x4155 @0x2e
0x4127…4168 at0031 = ╱e5╱ + ╱ // 0x4158 @0x31
0x4127…4168 at0032 = ╱49╱I╱ // 0x4159 @0x32
0x4127…4168 at0033 = ╱ee╱ ) ╱ // 0x415a @0x33
0x4127…4168 at0034 = ╱e7╱ * ╱ // 0x415b @0x34
0x4127…4168 at0035 = ╱31╱1╱ // 0x415c @0x35
0x4127…4168 at0036 = ╱30╱0╱ // 0x415d @0x36
0x4127…4168 at0037 = ╱30╱0╱ // 0x415e @0x37
0x4127…4168 at0038 = ╱f26400╱ // 0x415f @0x38
0x4127…4168 at003b = ╱e8╱ / ╱ // 0x4162 @0x3b
0x4127…4168 at003c = ╱58╱X╱ // 0x4163 @0x3c
0x4127…4168 at003d = ╱ed╱ ( ╱ // 0x4164 @0x3d
0x4127…4168 at003e = ╱49╱I╱ // 0x4165 @0x3e
0x4127…4168 at003f = ╱ee╱ ) ╱ // 0x4166 @0x3f
0x4127…4168 at0040 = EOL // 0x4167 @0x40
0x4127…4168 }
0x4168…419a c87f 02160 PRINT "<XC1212>Der…opt{lles!" ; KTONR $ ; "………………" ; X ( P )
0x4168…419a LineComal80 {
0x4168…419a ptr = 0xc87f // 0x4168 @0x0
0x4168…419a lno = 0x0870 // 0x416a @0x2
0x4168…419a at0004 = ╱92╱ PRINT ╱ // 0x416c @0x4
0x4168…419a at0005 = ╱22╱"╱ // 0x416d @0x5
0x4168…419a at0006 = ╱3c╱<╱ // 0x416e @0x6
0x4168…419a at0007 = ╱58╱X╱ // 0x416f @0x7
0x4168…419a at0008 = ╱43╱C╱ // 0x4170 @0x8
0x4168…419a at0009 = ╱31╱1╱ // 0x4171 @0x9
0x4168…419a at000a = ╱32╱2╱ // 0x4172 @0xa
0x4168…419a at000b = ╱31╱1╱ // 0x4173 @0xb
0x4168…419a at000c = ╱32╱2╱ // 0x4174 @0xc
0x4168…419a at000d = ╱3e╱>╱ // 0x4175 @0xd
0x4168…419a at000e = ╱44╱D╱ // 0x4176 @0xe
0x4168…419a at000f = ╱65╱e╱ // 0x4177 @0xf
0x4168…419a at0010 = ╱72╱r╱ // 0x4178 @0x10
0x4168…419a at0011 = ╱20╱…╱ // 0x4179 @0x11
0x4168…419a at0012 = ╱6f╱o╱ // 0x417a @0x12
0x4168…419a at0013 = ╱70╱p╱ // 0x417b @0x13
0x4168…419a at0014 = ╱74╱t╱ // 0x417c @0x14
0x4168…419a at0015 = ╱7b╱{╱ // 0x417d @0x15
0x4168…419a at0016 = ╱6c╱l╱ // 0x417e @0x16
0x4168…419a at0017 = ╱6c╱l╱ // 0x417f @0x17
0x4168…419a at0018 = ╱65╱e╱ // 0x4180 @0x18
0x4168…419a at0019 = ╱73╱s╱ // 0x4181 @0x19
0x4168…419a at001a = ╱21╱!╱ // 0x4182 @0x1a
0x4168…419a at001b = ╱22╱"╱ // 0x4183 @0x1b
0x4168…419a at001c = ╱ea╱ ; ╱ // 0x4184 @0x1c
0x4168…419a at001d = ╱4b╱K╱ // 0x4185 @0x1d
0x4168…419a at001e = ╱54╱T╱ // 0x4186 @0x1e
0x4168…419a at001f = ╱4f╱O╱ // 0x4187 @0x1f
0x4168…419a at0020 = ╱4e╱N╱ // 0x4188 @0x20
0x4168…419a at0021 = ╱52╱R╱ // 0x4189 @0x21
0x4168…419a at0022 = ╱ef╱ $ ╱ // 0x418a @0x22
0x4168…419a at0023 = ╱ea╱ ; ╱ // 0x418b @0x23
0x4168…419a at0024 = ╱22╱"╱ // 0x418c @0x24
0x4168…419a at0025 = ╱20╱…╱ // 0x418d @0x25
0x4168…419a at0026 = ╱20╱…╱ // 0x418e @0x26
0x4168…419a at0027 = ╱20╱…╱ // 0x418f @0x27
0x4168…419a at0028 = ╱20╱…╱ // 0x4190 @0x28
0x4168…419a at0029 = ╱20╱…╱ // 0x4191 @0x29
0x4168…419a at002a = ╱20╱…╱ // 0x4192 @0x2a
0x4168…419a at002b = ╱22╱"╱ // 0x4193 @0x2b
0x4168…419a at002c = ╱ea╱ ; ╱ // 0x4194 @0x2c
0x4168…419a at002d = ╱58╱X╱ // 0x4195 @0x2d
0x4168…419a at002e = ╱ed╱ ( ╱ // 0x4196 @0x2e
0x4168…419a at002f = ╱50╱P╱ // 0x4197 @0x2f
0x4168…419a at0030 = ╱ee╱ ) ╱ // 0x4198 @0x30
0x4168…419a at0031 = EOL // 0x4199 @0x31
0x4168…419a }
0x419a…41e4 1f1f 07967 ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ LATAY:2PD ╱00╱ ╱00╱ ╱11╱ ╱00╱ R ╱00╱ ╱00╱ ╱01╱ ╱00╱ ╱7f╱ SGN p ╱08╱ PRINT "<1212>Der…opt{lles!" ; KTONR $ ; "………………" ; X ( P )
0x419a…41e4 LineComal80 {
0x419a…41e4 ptr = 0x1f1f // 0x419a @0x0
0x419a…41e4 lno = 0x1f1f // 0x419c @0x2
0x419a…41e4 at0004 = ╱1f╱ // 0x419e @0x4
0x419a…41e4 at0005 = ╱1f╱ // 0x419f @0x5
0x419a…41e4 at0006 = ╱1f╱ // 0x41a0 @0x6
0x419a…41e4 at0007 = ╱1f╱ // 0x41a1 @0x7
0x419a…41e4 at0008 = ╱4c╱L╱ // 0x41a2 @0x8
0x419a…41e4 at0009 = ╱41╱A╱ // 0x41a3 @0x9
0x419a…41e4 at000a = ╱54╱T╱ // 0x41a4 @0xa
0x419a…41e4 at000b = ╱41╱A╱ // 0x41a5 @0xb
0x419a…41e4 at000c = ╱59╱Y╱ // 0x41a6 @0xc
0x419a…41e4 at000d = ╱3a╱:╱ // 0x41a7 @0xd
0x419a…41e4 at000e = ╱32╱2╱ // 0x41a8 @0xe
0x419a…41e4 at000f = ╱50╱P╱ // 0x41a9 @0xf
0x419a…41e4 at0010 = ╱44╱D╱ // 0x41aa @0x10
0x419a…41e4 at0011 = ╱00╱ // 0x41ab @0x11
0x419a…41e4 at0012 = ╱00╱ // 0x41ac @0x12
0x419a…41e4 at0013 = ╱11╱ // 0x41ad @0x13
0x419a…41e4 at0014 = ╱00╱ // 0x41ae @0x14
0x419a…41e4 at0015 = ╱52╱R╱ // 0x41af @0x15
0x419a…41e4 at0016 = ╱00╱ // 0x41b0 @0x16
0x419a…41e4 at0017 = ╱00╱ // 0x41b1 @0x17
0x419a…41e4 at0018 = ╱01╱ // 0x41b2 @0x18
0x419a…41e4 at0019 = ╱00╱ // 0x41b3 @0x19
0x419a…41e4 at001a = ╱7f╱ // 0x41b4 @0x1a
0x419a…41e4 at001b = ╱c8╱ SGN ╱ // 0x41b5 @0x1b
0x419a…41e4 at001c = ╱70╱p╱ // 0x41b6 @0x1c
0x419a…41e4 at001d = ╱08╱ // 0x41b7 @0x1d
0x419a…41e4 at001e = ╱92╱ PRINT ╱ // 0x41b8 @0x1e
0x419a…41e4 at001f = ╱22╱"╱ // 0x41b9 @0x1f
0x419a…41e4 at0020 = ╱3c╱<╱ // 0x41ba @0x20
0x419a…41e4 at0021 = ╱31╱1╱ // 0x41bb @0x21
0x419a…41e4 at0022 = ╱32╱2╱ // 0x41bc @0x22
0x419a…41e4 at0023 = ╱31╱1╱ // 0x41bd @0x23
0x419a…41e4 at0024 = ╱32╱2╱ // 0x41be @0x24
0x419a…41e4 at0025 = ╱3e╱>╱ // 0x41bf @0x25
0x419a…41e4 at0026 = ╱44╱D╱ // 0x41c0 @0x26
0x419a…41e4 at0027 = ╱65╱e╱ // 0x41c1 @0x27
0x419a…41e4 at0028 = ╱72╱r╱ // 0x41c2 @0x28
0x419a…41e4 at0029 = ╱20╱…╱ // 0x41c3 @0x29
0x419a…41e4 at002a = ╱6f╱o╱ // 0x41c4 @0x2a
0x419a…41e4 at002b = ╱70╱p╱ // 0x41c5 @0x2b
0x419a…41e4 at002c = ╱74╱t╱ // 0x41c6 @0x2c
0x419a…41e4 at002d = ╱7b╱{╱ // 0x41c7 @0x2d
0x419a…41e4 at002e = ╱6c╱l╱ // 0x41c8 @0x2e
0x419a…41e4 at002f = ╱6c╱l╱ // 0x41c9 @0x2f
0x419a…41e4 at0030 = ╱65╱e╱ // 0x41ca @0x30
0x419a…41e4 at0031 = ╱73╱s╱ // 0x41cb @0x31
0x419a…41e4 at0032 = ╱21╱!╱ // 0x41cc @0x32
0x419a…41e4 at0033 = ╱22╱"╱ // 0x41cd @0x33
0x419a…41e4 at0034 = ╱ea╱ ; ╱ // 0x41ce @0x34
0x419a…41e4 at0035 = ╱4b╱K╱ // 0x41cf @0x35
0x419a…41e4 at0036 = ╱54╱T╱ // 0x41d0 @0x36
0x419a…41e4 at0037 = ╱4f╱O╱ // 0x41d1 @0x37
0x419a…41e4 at0038 = ╱4e╱N╱ // 0x41d2 @0x38
0x419a…41e4 at0039 = ╱52╱R╱ // 0x41d3 @0x39
0x419a…41e4 at003a = ╱ef╱ $ ╱ // 0x41d4 @0x3a
0x419a…41e4 at003b = ╱ea╱ ; ╱ // 0x41d5 @0x3b
0x419a…41e4 at003c = ╱22╱"╱ // 0x41d6 @0x3c
0x419a…41e4 at003d = ╱20╱…╱ // 0x41d7 @0x3d
0x419a…41e4 at003e = ╱20╱…╱ // 0x41d8 @0x3e
0x419a…41e4 at003f = ╱20╱…╱ // 0x41d9 @0x3f
0x419a…41e4 at0040 = ╱20╱…╱ // 0x41da @0x40
0x419a…41e4 at0041 = ╱20╱…╱ // 0x41db @0x41
0x419a…41e4 at0042 = ╱20╱…╱ // 0x41dc @0x42
0x419a…41e4 at0043 = ╱22╱"╱ // 0x41dd @0x43
0x419a…41e4 at0044 = ╱ea╱ ; ╱ // 0x41de @0x44
0x419a…41e4 at0045 = ╱58╱X╱ // 0x41df @0x45
0x419a…41e4 at0046 = ╱ed╱ ( ╱ // 0x41e0 @0x46
0x419a…41e4 at0047 = ╱50╱P╱ // 0x41e1 @0x47
0x419a…41e4 at0048 = ╱ee╱ ) ╱ // 0x41e2 @0x48
0x419a…41e4 at0049 = EOL // 0x41e3 @0x49
0x419a…41e4 }
0x41e4…420e c87f 02160 PRINT "Der…opt{lles!" ; KTONR $ ; "………………" ; X ( P )
0x41e4…420e LineComal80 {
0x41e4…420e ptr = 0xc87f // 0x41e4 @0x0
0x41e4…420e lno = 0x0870 // 0x41e6 @0x2
0x41e4…420e at0004 = ╱92╱ PRINT ╱ // 0x41e8 @0x4
0x41e4…420e at0005 = ╱22╱"╱ // 0x41e9 @0x5
0x41e4…420e at0006 = ╱44╱D╱ // 0x41ea @0x6
0x41e4…420e at0007 = ╱65╱e╱ // 0x41eb @0x7
0x41e4…420e at0008 = ╱72╱r╱ // 0x41ec @0x8
0x41e4…420e at0009 = ╱20╱…╱ // 0x41ed @0x9
0x41e4…420e at000a = ╱6f╱o╱ // 0x41ee @0xa
0x41e4…420e at000b = ╱70╱p╱ // 0x41ef @0xb
0x41e4…420e at000c = ╱74╱t╱ // 0x41f0 @0xc
0x41e4…420e at000d = ╱7b╱{╱ // 0x41f1 @0xd
0x41e4…420e at000e = ╱6c╱l╱ // 0x41f2 @0xe
0x41e4…420e at000f = ╱6c╱l╱ // 0x41f3 @0xf
0x41e4…420e at0010 = ╱65╱e╱ // 0x41f4 @0x10
0x41e4…420e at0011 = ╱73╱s╱ // 0x41f5 @0x11
0x41e4…420e at0012 = ╱21╱!╱ // 0x41f6 @0x12
0x41e4…420e at0013 = ╱22╱"╱ // 0x41f7 @0x13
0x41e4…420e at0014 = ╱ea╱ ; ╱ // 0x41f8 @0x14
0x41e4…420e at0015 = ╱4b╱K╱ // 0x41f9 @0x15
0x41e4…420e at0016 = ╱54╱T╱ // 0x41fa @0x16
0x41e4…420e at0017 = ╱4f╱O╱ // 0x41fb @0x17
0x41e4…420e at0018 = ╱4e╱N╱ // 0x41fc @0x18
0x41e4…420e at0019 = ╱52╱R╱ // 0x41fd @0x19
0x41e4…420e at001a = ╱ef╱ $ ╱ // 0x41fe @0x1a
0x41e4…420e at001b = ╱ea╱ ; ╱ // 0x41ff @0x1b
0x41e4…420e at001c = ╱22╱"╱ // 0x4200 @0x1c
0x41e4…420e at001d = ╱20╱…╱ // 0x4201 @0x1d
0x41e4…420e at001e = ╱20╱…╱ // 0x4202 @0x1e
0x41e4…420e at001f = ╱20╱…╱ // 0x4203 @0x1f
0x41e4…420e at0020 = ╱20╱…╱ // 0x4204 @0x20
0x41e4…420e at0021 = ╱20╱…╱ // 0x4205 @0x21
0x41e4…420e at0022 = ╱20╱…╱ // 0x4206 @0x22
0x41e4…420e at0023 = ╱22╱"╱ // 0x4207 @0x23
0x41e4…420e at0024 = ╱ea╱ ; ╱ // 0x4208 @0x24
0x41e4…420e at0025 = ╱58╱X╱ // 0x4209 @0x25
0x41e4…420e at0026 = ╱ed╱ ( ╱ // 0x420a @0x26
0x41e4…420e at0027 = ╱50╱P╱ // 0x420b @0x27
0x41e4…420e at0028 = ╱ee╱ ) ╱ // 0x420c @0x28
0x41e4…420e at0029 = EOL // 0x420d @0x29
0x41e4…420e }
0x420e…4228 cde9 00141 FOR I := 1 TO 000 DO LET I := I
0x420e…4228 LineComal80 {
0x420e…4228 ptr = 0xcde9 // 0x420e @0x0
0x420e…4228 lno = 0x008d // 0x4210 @0x2
0x420e…4228 at0004 = ╱b400╱ FOR ╱ // 0x4212 @0x4
0x420e…4228 at0006 = ╱49╱I╱ // 0x4214 @0x6
0x420e…4228 at0007 = ╱f0╱ := ╱ // 0x4215 @0x7
0x420e…4228 at0008 = ╱31╱1╱ // 0x4216 @0x8
0x420e…4228 at0009 = ╱f20100╱ // 0x4217 @0x9
0x420e…4228 at000c = ╱b731╱ TO ╱ // 0x421a @0xc
0x420e…4228 at000e = ╱30╱0╱ // 0x421c @0xe
0x420e…4228 at000f = ╱30╱0╱ // 0x421d @0xf
0x420e…4228 at0010 = ╱30╱0╱ // 0x421e @0x10
0x420e…4228 at0011 = ╱f2e803╱ // 0x421f @0x11
0x420e…4228 at0014 = ╱bb╱ DO ╱ // 0x4222 @0x14
0x420e…4228 at0015 = ╱86╱ LET ╱ // 0x4223 @0x15
0x420e…4228 at0016 = ╱49╱I╱ // 0x4224 @0x16
0x420e…4228 at0017 = ╱f0╱ := ╱ // 0x4225 @0x17
0x420e…4228 at0018 = ╱49╱I╱ // 0x4226 @0x18
0x420e…4228 at0019 = EOL // 0x4227 @0x19
0x420e…4228 }
0x4228…4258 c87f 02160 // PRINT…"Der…opt{lles!";KTONR$;"………………";X(P)
0x4228…4258 LineComal80 {
0x4228…4258 ptr = 0xc87f // 0x4228 @0x0
0x4228…4258 lno = 0x0870 // 0x422a @0x2
0x4228…4258 at0004 = ╱89╱ // ╱ // 0x422c @0x4
0x4228…4258 at0005 = ╱50╱P╱ // 0x422d @0x5
0x4228…4258 at0006 = ╱52╱R╱ // 0x422e @0x6
0x4228…4258 at0007 = ╱49╱I╱ // 0x422f @0x7
0x4228…4258 at0008 = ╱4e╱N╱ // 0x4230 @0x8
0x4228…4258 at0009 = ╱54╱T╱ // 0x4231 @0x9
0x4228…4258 at000a = ╱20╱…╱ // 0x4232 @0xa
0x4228…4258 at000b = ╱22╱"╱ // 0x4233 @0xb
0x4228…4258 at000c = ╱44╱D╱ // 0x4234 @0xc
0x4228…4258 at000d = ╱65╱e╱ // 0x4235 @0xd
0x4228…4258 at000e = ╱72╱r╱ // 0x4236 @0xe
0x4228…4258 at000f = ╱20╱…╱ // 0x4237 @0xf
0x4228…4258 at0010 = ╱6f╱o╱ // 0x4238 @0x10
0x4228…4258 at0011 = ╱70╱p╱ // 0x4239 @0x11
0x4228…4258 at0012 = ╱74╱t╱ // 0x423a @0x12
0x4228…4258 at0013 = ╱7b╱{╱ // 0x423b @0x13
0x4228…4258 at0014 = ╱6c╱l╱ // 0x423c @0x14
0x4228…4258 at0015 = ╱6c╱l╱ // 0x423d @0x15
0x4228…4258 at0016 = ╱65╱e╱ // 0x423e @0x16
0x4228…4258 at0017 = ╱73╱s╱ // 0x423f @0x17
0x4228…4258 at0018 = ╱21╱!╱ // 0x4240 @0x18
0x4228…4258 at0019 = ╱22╱"╱ // 0x4241 @0x19
0x4228…4258 at001a = ╱3b╱;╱ // 0x4242 @0x1a
0x4228…4258 at001b = ╱4b╱K╱ // 0x4243 @0x1b
0x4228…4258 at001c = ╱54╱T╱ // 0x4244 @0x1c
0x4228…4258 at001d = ╱4f╱O╱ // 0x4245 @0x1d
0x4228…4258 at001e = ╱4e╱N╱ // 0x4246 @0x1e
0x4228…4258 at001f = ╱52╱R╱ // 0x4247 @0x1f
0x4228…4258 at0020 = ╱24╱$╱ // 0x4248 @0x20
0x4228…4258 at0021 = ╱3b╱;╱ // 0x4249 @0x21
0x4228…4258 at0022 = ╱22╱"╱ // 0x424a @0x22
0x4228…4258 at0023 = ╱20╱…╱ // 0x424b @0x23
0x4228…4258 at0024 = ╱20╱…╱ // 0x424c @0x24
0x4228…4258 at0025 = ╱20╱…╱ // 0x424d @0x25
0x4228…4258 at0026 = ╱20╱…╱ // 0x424e @0x26
0x4228…4258 at0027 = ╱20╱…╱ // 0x424f @0x27
0x4228…4258 at0028 = ╱20╱…╱ // 0x4250 @0x28
0x4228…4258 at0029 = ╱22╱"╱ // 0x4251 @0x29
0x4228…4258 at002a = ╱3b╱;╱ // 0x4252 @0x2a
0x4228…4258 at002b = ╱58╱X╱ // 0x4253 @0x2b
0x4228…4258 at002c = ╱28╱(╱ // 0x4254 @0x2c
0x4228…4258 at002d = ╱50╱P╱ // 0x4255 @0x2d
0x4228…4258 at002e = ╱29╱)╱ // 0x4256 @0x2e
0x4228…4258 at002f = EOL // 0x4257 @0x2f
0x4228…4258 }
0x4258…4279 c81a 02115 PRINT KTONR $ ; "…………………………………" ; X ( P )
0x4258…4279 LineComal80 {
0x4258…4279 ptr = 0xc81a // 0x4258 @0x0
0x4258…4279 lno = 0x0843 // 0x425a @0x2
0x4258…4279 at0004 = ╱92╱ PRINT ╱ // 0x425c @0x4
0x4258…4279 at0005 = ╱4b╱K╱ // 0x425d @0x5
0x4258…4279 at0006 = ╱54╱T╱ // 0x425e @0x6
0x4258…4279 at0007 = ╱4f╱O╱ // 0x425f @0x7
0x4258…4279 at0008 = ╱4e╱N╱ // 0x4260 @0x8
0x4258…4279 at0009 = ╱52╱R╱ // 0x4261 @0x9
0x4258…4279 at000a = ╱ef╱ $ ╱ // 0x4262 @0xa
0x4258…4279 at000b = ╱ea╱ ; ╱ // 0x4263 @0xb
0x4258…4279 at000c = ╱22╱"╱ // 0x4264 @0xc
0x4258…4279 at000d = ╱20╱…╱ // 0x4265 @0xd
0x4258…4279 at000e = ╱20╱…╱ // 0x4266 @0xe
0x4258…4279 at000f = ╱20╱…╱ // 0x4267 @0xf
0x4258…4279 at0010 = ╱20╱…╱ // 0x4268 @0x10
0x4258…4279 at0011 = ╱20╱…╱ // 0x4269 @0x11
0x4258…4279 at0012 = ╱20╱…╱ // 0x426a @0x12
0x4258…4279 at0013 = ╱20╱…╱ // 0x426b @0x13
0x4258…4279 at0014 = ╱20╱…╱ // 0x426c @0x14
0x4258…4279 at0015 = ╱20╱…╱ // 0x426d @0x15
0x4258…4279 at0016 = ╱20╱…╱ // 0x426e @0x16
0x4258…4279 at0017 = ╱20╱…╱ // 0x426f @0x17
0x4258…4279 at0018 = ╱20╱…╱ // 0x4270 @0x18
0x4258…4279 at0019 = ╱20╱…╱ // 0x4271 @0x19
0x4258…4279 at001a = ╱22╱"╱ // 0x4272 @0x1a
0x4258…4279 at001b = ╱ea╱ ; ╱ // 0x4273 @0x1b
0x4258…4279 at001c = ╱58╱X╱ // 0x4274 @0x1c
0x4258…4279 at001d = ╱ed╱ ( ╱ // 0x4275 @0x1d
0x4258…4279 at001e = ╱50╱P╱ // 0x4276 @0x1e
0x4258…4279 at001f = ╱ee╱ ) ╱ // 0x4277 @0x1f
0x4258…4279 at0020 = EOL // 0x4278 @0x20
0x4258…4279 }
0x4279…4292 (221,) cde9 00160 FOR I := 1 TO 00 DO LET I := I
0x4279…4292 LineComal80 {
0x4279…4292 ptr = 0xcde9 // 0x4279 @0x0
0x4279…4292 lno = 0x00a0 // 0x427b @0x2
0x4279…4292 at0004 = ╱b400╱ FOR ╱ // 0x427d @0x4
0x4279…4292 at0006 = ╱49╱I╱ // 0x427f @0x6
0x4279…4292 at0007 = ╱f0╱ := ╱ // 0x4280 @0x7
0x4279…4292 at0008 = ╱31╱1╱ // 0x4281 @0x8
0x4279…4292 at0009 = ╱f20100╱ // 0x4282 @0x9
0x4279…4292 at000c = ╱b735╱ TO ╱ // 0x4285 @0xc
0x4279…4292 at000e = ╱30╱0╱ // 0x4287 @0xe
0x4279…4292 at000f = ╱30╱0╱ // 0x4288 @0xf
0x4279…4292 at0010 = ╱f2f401╱ // 0x4289 @0x10
0x4279…4292 at0013 = ╱bb╱ DO ╱ // 0x428c @0x13
0x4279…4292 at0014 = ╱86╱ LET ╱ // 0x428d @0x14
0x4279…4292 at0015 = ╱49╱I╱ // 0x428e @0x15
0x4279…4292 at0016 = ╱f0╱ := ╱ // 0x428f @0x16
0x4279…4292 at0017 = ╱49╱I╱ // 0x4290 @0x17
0x4279…4292 at0018 = EOL // 0x4291 @0x18
0x4279…4292 }
0x4292…42c2 cc7d 02260 LET R ( 24 ) := ( R ( 6 ) + R ( 8 ) ) * 100 / R ( 20 )
0x4292…42c2 LineComal80 {
0x4292…42c2 ptr = 0xcc7d // 0x4292 @0x0
0x4292…42c2 lno = 0x08d4 // 0x4294 @0x2
0x4292…42c2 at0004 = ╱86╱ LET ╱ // 0x4296 @0x4
0x4292…42c2 at0005 = ╱52╱R╱ // 0x4297 @0x5
0x4292…42c2 at0006 = ╱ed╱ ( ╱ // 0x4298 @0x6
0x4292…42c2 at0007 = ╱32╱2╱ // 0x4299 @0x7
0x4292…42c2 at0008 = ╱34╱4╱ // 0x429a @0x8
0x4292…42c2 at0009 = ╱f21800╱ // 0x429b @0x9
0x4292…42c2 at000c = ╱ee╱ ) ╱ // 0x429e @0xc
0x4292…42c2 at000d = ╱f0╱ := ╱ // 0x429f @0xd
0x4292…42c2 at000e = ╱ed╱ ( ╱ // 0x42a0 @0xe
0x4292…42c2 at000f = ╱52╱R╱ // 0x42a1 @0xf
0x4292…42c2 at0010 = ╱ed╱ ( ╱ // 0x42a2 @0x10
0x4292…42c2 at0011 = ╱36╱6╱ // 0x42a3 @0x11
0x4292…42c2 at0012 = ╱f20600╱ // 0x42a4 @0x12
0x4292…42c2 at0015 = ╱ee╱ ) ╱ // 0x42a7 @0x15
0x4292…42c2 at0016 = ╱e5╱ + ╱ // 0x42a8 @0x16
0x4292…42c2 at0017 = ╱52╱R╱ // 0x42a9 @0x17
0x4292…42c2 at0018 = ╱ed╱ ( ╱ // 0x42aa @0x18
0x4292…42c2 at0019 = ╱38╱8╱ // 0x42ab @0x19
0x4292…42c2 at001a = ╱f20800╱ // 0x42ac @0x1a
0x4292…42c2 at001d = ╱ee╱ ) ╱ // 0x42af @0x1d
0x4292…42c2 at001e = ╱ee╱ ) ╱ // 0x42b0 @0x1e
0x4292…42c2 at001f = ╱e7╱ * ╱ // 0x42b1 @0x1f
0x4292…42c2 at0020 = ╱31╱1╱ // 0x42b2 @0x20
0x4292…42c2 at0021 = ╱30╱0╱ // 0x42b3 @0x21
0x4292…42c2 at0022 = ╱30╱0╱ // 0x42b4 @0x22
0x4292…42c2 at0023 = ╱f26400╱ // 0x42b5 @0x23
0x4292…42c2 at0026 = ╱e8╱ / ╱ // 0x42b8 @0x26
0x4292…42c2 at0027 = ╱52╱R╱ // 0x42b9 @0x27
0x4292…42c2 at0028 = ╱ed╱ ( ╱ // 0x42ba @0x28
0x4292…42c2 at0029 = ╱32╱2╱ // 0x42bb @0x29
0x4292…42c2 at002a = ╱30╱0╱ // 0x42bc @0x2a
0x4292…42c2 at002b = ╱f21400╱ // 0x42bd @0x2b
0x4292…42c2 at002e = ╱ee╱ ) ╱ // 0x42c0 @0x2e
0x4292…42c2 at002f = EOL // 0x42c1 @0x2f
0x4292…42c2 }
0x42c2…42d0 9975 00240 CHAIN PROGRAM $
0x42c2…42d0 LineComal80 {
0x42c2…42d0 ptr = 0x9975 // 0x42c2 @0x0
0x42c2…42d0 lno = 0x00f0 // 0x42c4 @0x2
0x42c2…42d0 at0004 = ╱ac╱ CHAIN ╱ // 0x42c6 @0x4
0x42c2…42d0 at0005 = ╱50╱P╱ // 0x42c7 @0x5
0x42c2…42d0 at0006 = ╱52╱R╱ // 0x42c8 @0x6
0x42c2…42d0 at0007 = ╱4f╱O╱ // 0x42c9 @0x7
0x42c2…42d0 at0008 = ╱47╱G╱ // 0x42ca @0x8
0x42c2…42d0 at0009 = ╱52╱R╱ // 0x42cb @0x9
0x42c2…42d0 at000a = ╱41╱A╱ // 0x42cc @0xa
0x42c2…42d0 at000b = ╱4d╱M╱ // 0x42cd @0xb
0x42c2…42d0 at000c = ╱ef╱ $ ╱ // 0x42ce @0xc
0x42c2…42d0 at000d = EOL // 0x42cf @0xd
0x42c2…42d0 }
0x42d0…42ed c87f 01900 PRINT "<XC1412>Der…opt{lles!"
0x42d0…42ed LineComal80 {
0x42d0…42ed ptr = 0xc87f // 0x42d0 @0x0
0x42d0…42ed lno = 0x076c // 0x42d2 @0x2
0x42d0…42ed at0004 = ╱92╱ PRINT ╱ // 0x42d4 @0x4
0x42d0…42ed at0005 = ╱22╱"╱ // 0x42d5 @0x5
0x42d0…42ed at0006 = ╱3c╱<╱ // 0x42d6 @0x6
0x42d0…42ed at0007 = ╱58╱X╱ // 0x42d7 @0x7
0x42d0…42ed at0008 = ╱43╱C╱ // 0x42d8 @0x8
0x42d0…42ed at0009 = ╱31╱1╱ // 0x42d9 @0x9
0x42d0…42ed at000a = ╱34╱4╱ // 0x42da @0xa
0x42d0…42ed at000b = ╱31╱1╱ // 0x42db @0xb
0x42d0…42ed at000c = ╱32╱2╱ // 0x42dc @0xc
0x42d0…42ed at000d = ╱3e╱>╱ // 0x42dd @0xd
0x42d0…42ed at000e = ╱44╱D╱ // 0x42de @0xe
0x42d0…42ed at000f = ╱65╱e╱ // 0x42df @0xf
0x42d0…42ed at0010 = ╱72╱r╱ // 0x42e0 @0x10
0x42d0…42ed at0011 = ╱20╱…╱ // 0x42e1 @0x11
0x42d0…42ed at0012 = ╱6f╱o╱ // 0x42e2 @0x12
0x42d0…42ed at0013 = ╱70╱p╱ // 0x42e3 @0x13
0x42d0…42ed at0014 = ╱74╱t╱ // 0x42e4 @0x14
0x42d0…42ed at0015 = ╱7b╱{╱ // 0x42e5 @0x15
0x42d0…42ed at0016 = ╱6c╱l╱ // 0x42e6 @0x16
0x42d0…42ed at0017 = ╱6c╱l╱ // 0x42e7 @0x17
0x42d0…42ed at0018 = ╱65╱e╱ // 0x42e8 @0x18
0x42d0…42ed at0019 = ╱73╱s╱ // 0x42e9 @0x19
0x42d0…42ed at001a = ╱21╱!╱ // 0x42ea @0x1a
0x42d0…42ed at001b = ╱22╱"╱ // 0x42eb @0x1b
0x42d0…42ed at001c = EOL // 0x42ec @0x1c
0x42d0…42ed }
0x42ed…432a d918 02700 INPUT "<C2008Z>Indtast…driftslederl|n………………………………:…" : X ( 25 )
0x42ed…432a LineComal80 {
0x42ed…432a ptr = 0xd918 // 0x42ed @0x0
0x42ed…432a lno = 0x0a8c // 0x42ef @0x2
0x42ed…432a at0004 = ╱91╱ INPUT ╱ // 0x42f1 @0x4
0x42ed…432a at0005 = ╱22╱"╱ // 0x42f2 @0x5
0x42ed…432a at0006 = ╱3c╱<╱ // 0x42f3 @0x6
0x42ed…432a at0007 = ╱43╱C╱ // 0x42f4 @0x7
0x42ed…432a at0008 = ╱32╱2╱ // 0x42f5 @0x8
0x42ed…432a at0009 = ╱30╱0╱ // 0x42f6 @0x9
0x42ed…432a at000a = ╱30╱0╱ // 0x42f7 @0xa
0x42ed…432a at000b = ╱38╱8╱ // 0x42f8 @0xb
0x42ed…432a at000c = ╱5a╱Z╱ // 0x42f9 @0xc
0x42ed…432a at000d = ╱3e╱>╱ // 0x42fa @0xd
0x42ed…432a at000e = ╱49╱I╱ // 0x42fb @0xe
0x42ed…432a at000f = ╱6e╱n╱ // 0x42fc @0xf
0x42ed…432a at0010 = ╱64╱d╱ // 0x42fd @0x10
0x42ed…432a at0011 = ╱74╱t╱ // 0x42fe @0x11
0x42ed…432a at0012 = ╱61╱a╱ // 0x42ff @0x12
0x42ed…432a at0013 = ╱73╱s╱ // 0x4300 @0x13
0x42ed…432a at0014 = ╱74╱t╱ // 0x4301 @0x14
0x42ed…432a at0015 = ╱20╱…╱ // 0x4302 @0x15
0x42ed…432a at0016 = ╱64╱d╱ // 0x4303 @0x16
0x42ed…432a at0017 = ╱72╱r╱ // 0x4304 @0x17
0x42ed…432a at0018 = ╱69╱i╱ // 0x4305 @0x18
0x42ed…432a at0019 = ╱66╱f╱ // 0x4306 @0x19
0x42ed…432a at001a = ╱74╱t╱ // 0x4307 @0x1a
0x42ed…432a at001b = ╱73╱s╱ // 0x4308 @0x1b
0x42ed…432a at001c = ╱6c╱l╱ // 0x4309 @0x1c
0x42ed…432a at001d = ╱65╱e╱ // 0x430a @0x1d
0x42ed…432a at001e = ╱64╱d╱ // 0x430b @0x1e
0x42ed…432a at001f = ╱65╱e╱ // 0x430c @0x1f
0x42ed…432a at0020 = ╱72╱r╱ // 0x430d @0x20
0x42ed…432a at0021 = ╱6c╱l╱ // 0x430e @0x21
0x42ed…432a at0022 = ╱7c╱|╱ // 0x430f @0x22
0x42ed…432a at0023 = ╱6e╱n╱ // 0x4310 @0x23
0x42ed…432a at0024 = ╱20╱…╱ // 0x4311 @0x24
0x42ed…432a at0025 = ╱20╱…╱ // 0x4312 @0x25
0x42ed…432a at0026 = ╱20╱…╱ // 0x4313 @0x26
0x42ed…432a at0027 = ╱20╱…╱ // 0x4314 @0x27
0x42ed…432a at0028 = ╱20╱…╱ // 0x4315 @0x28
0x42ed…432a at0029 = ╱20╱…╱ // 0x4316 @0x29
0x42ed…432a at002a = ╱20╱…╱ // 0x4317 @0x2a
0x42ed…432a at002b = ╱20╱…╱ // 0x4318 @0x2b
0x42ed…432a at002c = ╱20╱…╱ // 0x4319 @0x2c
0x42ed…432a at002d = ╱20╱…╱ // 0x431a @0x2d
0x42ed…432a at002e = ╱20╱…╱ // 0x431b @0x2e
0x42ed…432a at002f = ╱20╱…╱ // 0x431c @0x2f
0x42ed…432a at0030 = ╱3a╱:╱ // 0x431d @0x30
0x42ed…432a at0031 = ╱20╱…╱ // 0x431e @0x31
0x42ed…432a at0032 = ╱22╱"╱ // 0x431f @0x32
0x42ed…432a at0033 = ╱f1╱ : ╱ // 0x4320 @0x33
0x42ed…432a at0034 = ╱58╱X╱ // 0x4321 @0x34
0x42ed…432a at0035 = ╱ed╱ ( ╱ // 0x4322 @0x35
0x42ed…432a at0036 = ╱32╱2╱ // 0x4323 @0x36
0x42ed…432a at0037 = ╱35╱5╱ // 0x4324 @0x37
0x42ed…432a at0038 = ╱f21900╱ // 0x4325 @0x38
0x42ed…432a at003b = ╱ee╱ ) ╱ // 0x4328 @0x3b
0x42ed…432a at003c = EOL // 0x4329 @0x3c
0x42ed…432a }
0x432a…4367 d955 02710 INPUT "<C2409Z>……………………lager…ialt,…primo………………………:…" : X ( 21 )
0x432a…4367 LineComal80 {
0x432a…4367 ptr = 0xd955 // 0x432a @0x0
0x432a…4367 lno = 0x0a96 // 0x432c @0x2
0x432a…4367 at0004 = ╱91╱ INPUT ╱ // 0x432e @0x4
0x432a…4367 at0005 = ╱22╱"╱ // 0x432f @0x5
0x432a…4367 at0006 = ╱3c╱<╱ // 0x4330 @0x6
0x432a…4367 at0007 = ╱43╱C╱ // 0x4331 @0x7
0x432a…4367 at0008 = ╱32╱2╱ // 0x4332 @0x8
0x432a…4367 at0009 = ╱34╱4╱ // 0x4333 @0x9
0x432a…4367 at000a = ╱30╱0╱ // 0x4334 @0xa
0x432a…4367 at000b = ╱39╱9╱ // 0x4335 @0xb
0x432a…4367 at000c = ╱5a╱Z╱ // 0x4336 @0xc
0x432a…4367 at000d = ╱3e╱>╱ // 0x4337 @0xd
0x432a…4367 at000e = ╱20╱…╱ // 0x4338 @0xe
0x432a…4367 at000f = ╱20╱…╱ // 0x4339 @0xf
0x432a…4367 at0010 = ╱20╱…╱ // 0x433a @0x10
0x432a…4367 at0011 = ╱20╱…╱ // 0x433b @0x11
0x432a…4367 at0012 = ╱20╱…╱ // 0x433c @0x12
0x432a…4367 at0013 = ╱20╱…╱ // 0x433d @0x13
0x432a…4367 at0014 = ╱20╱…╱ // 0x433e @0x14
0x432a…4367 at0015 = ╱20╱…╱ // 0x433f @0x15
0x432a…4367 at0016 = ╱6c╱l╱ // 0x4340 @0x16
0x432a…4367 at0017 = ╱61╱a╱ // 0x4341 @0x17
0x432a…4367 at0018 = ╱67╱g╱ // 0x4342 @0x18
0x432a…4367 at0019 = ╱65╱e╱ // 0x4343 @0x19
0x432a…4367 at001a = ╱72╱r╱ // 0x4344 @0x1a
0x432a…4367 at001b = ╱20╱…╱ // 0x4345 @0x1b
0x432a…4367 at001c = ╱69╱i╱ // 0x4346 @0x1c
0x432a…4367 at001d = ╱61╱a╱ // 0x4347 @0x1d
0x432a…4367 at001e = ╱6c╱l╱ // 0x4348 @0x1e
0x432a…4367 at001f = ╱74╱t╱ // 0x4349 @0x1f
0x432a…4367 at0020 = ╱2c╱,╱ // 0x434a @0x20
0x432a…4367 at0021 = ╱20╱…╱ // 0x434b @0x21
0x432a…4367 at0022 = ╱70╱p╱ // 0x434c @0x22
0x432a…4367 at0023 = ╱72╱r╱ // 0x434d @0x23
0x432a…4367 at0024 = ╱69╱i╱ // 0x434e @0x24
0x432a…4367 at0025 = ╱6d╱m╱ // 0x434f @0x25
0x432a…4367 at0026 = ╱6f╱o╱ // 0x4350 @0x26
0x432a…4367 at0027 = ╱20╱…╱ // 0x4351 @0x27
0x432a…4367 at0028 = ╱20╱…╱ // 0x4352 @0x28
0x432a…4367 at0029 = ╱20╱…╱ // 0x4353 @0x29
0x432a…4367 at002a = ╱20╱…╱ // 0x4354 @0x2a
0x432a…4367 at002b = ╱20╱…╱ // 0x4355 @0x2b
0x432a…4367 at002c = ╱20╱…╱ // 0x4356 @0x2c
0x432a…4367 at002d = ╱20╱…╱ // 0x4357 @0x2d
0x432a…4367 at002e = ╱20╱…╱ // 0x4358 @0x2e
0x432a…4367 at002f = ╱20╱…╱ // 0x4359 @0x2f
0x432a…4367 at0030 = ╱3a╱:╱ // 0x435a @0x30
0x432a…4367 at0031 = ╱20╱…╱ // 0x435b @0x31
0x432a…4367 at0032 = ╱22╱"╱ // 0x435c @0x32
0x432a…4367 at0033 = ╱f1╱ : ╱ // 0x435d @0x33
0x432a…4367 at0034 = ╱58╱X╱ // 0x435e @0x34
0x432a…4367 at0035 = ╱ed╱ ( ╱ // 0x435f @0x35
0x432a…4367 at0036 = ╱32╱2╱ // 0x4360 @0x36
0x432a…4367 at0037 = ╱31╱1╱ // 0x4361 @0x37
0x432a…4367 at0038 = ╱f21500╱ // 0x4362 @0x38
0x432a…4367 at003b = ╱ee╱ ) ╱ // 0x4365 @0x3b
0x432a…4367 at003c = EOL // 0x4366 @0x3c
0x432a…4367 }
0x4367…43a4 d992 02720 INPUT "<C2410Z>……………………\vrige…variable…omk.……A………:…" : X ( 27 )
0x4367…43a4 LineComal80 {
0x4367…43a4 ptr = 0xd992 // 0x4367 @0x0
0x4367…43a4 lno = 0x0aa0 // 0x4369 @0x2
0x4367…43a4 at0004 = ╱91╱ INPUT ╱ // 0x436b @0x4
0x4367…43a4 at0005 = ╱22╱"╱ // 0x436c @0x5
0x4367…43a4 at0006 = ╱3c╱<╱ // 0x436d @0x6
0x4367…43a4 at0007 = ╱43╱C╱ // 0x436e @0x7
0x4367…43a4 at0008 = ╱32╱2╱ // 0x436f @0x8
0x4367…43a4 at0009 = ╱34╱4╱ // 0x4370 @0x9
0x4367…43a4 at000a = ╱31╱1╱ // 0x4371 @0xa
0x4367…43a4 at000b = ╱30╱0╱ // 0x4372 @0xb
0x4367…43a4 at000c = ╱5a╱Z╱ // 0x4373 @0xc
0x4367…43a4 at000d = ╱3e╱>╱ // 0x4374 @0xd
0x4367…43a4 at000e = ╱20╱…╱ // 0x4375 @0xe
0x4367…43a4 at000f = ╱20╱…╱ // 0x4376 @0xf
0x4367…43a4 at0010 = ╱20╱…╱ // 0x4377 @0x10
0x4367…43a4 at0011 = ╱20╱…╱ // 0x4378 @0x11
0x4367…43a4 at0012 = ╱20╱…╱ // 0x4379 @0x12
0x4367…43a4 at0013 = ╱20╱…╱ // 0x437a @0x13
0x4367…43a4 at0014 = ╱20╱…╱ // 0x437b @0x14
0x4367…43a4 at0015 = ╱20╱…╱ // 0x437c @0x15
0x4367…43a4 at0016 = ╱5c╱\╱ // 0x437d @0x16
0x4367…43a4 at0017 = ╱76╱v╱ // 0x437e @0x17
0x4367…43a4 at0018 = ╱72╱r╱ // 0x437f @0x18
0x4367…43a4 at0019 = ╱69╱i╱ // 0x4380 @0x19
0x4367…43a4 at001a = ╱67╱g╱ // 0x4381 @0x1a
0x4367…43a4 at001b = ╱65╱e╱ // 0x4382 @0x1b
0x4367…43a4 at001c = ╱20╱…╱ // 0x4383 @0x1c
0x4367…43a4 at001d = ╱76╱v╱ // 0x4384 @0x1d
0x4367…43a4 at001e = ╱61╱a╱ // 0x4385 @0x1e
0x4367…43a4 at001f = ╱72╱r╱ // 0x4386 @0x1f
0x4367…43a4 at0020 = ╱69╱i╱ // 0x4387 @0x20
0x4367…43a4 at0021 = ╱61╱a╱ // 0x4388 @0x21
0x4367…43a4 at0022 = ╱62╱b╱ // 0x4389 @0x22
0x4367…43a4 at0023 = ╱6c╱l╱ // 0x438a @0x23
0x4367…43a4 at0024 = ╱65╱e╱ // 0x438b @0x24
0x4367…43a4 at0025 = ╱20╱…╱ // 0x438c @0x25
0x4367…43a4 at0026 = ╱6f╱o╱ // 0x438d @0x26
0x4367…43a4 at0027 = ╱6d╱m╱ // 0x438e @0x27
0x4367…43a4 at0028 = ╱6b╱k╱ // 0x438f @0x28
0x4367…43a4 at0029 = ╱2e╱.╱ // 0x4390 @0x29
0x4367…43a4 at002a = ╱20╱…╱ // 0x4391 @0x2a
0x4367…43a4 at002b = ╱20╱…╱ // 0x4392 @0x2b
0x4367…43a4 at002c = ╱41╱A╱ // 0x4393 @0x2c
0x4367…43a4 at002d = ╱20╱…╱ // 0x4394 @0x2d
0x4367…43a4 at002e = ╱20╱…╱ // 0x4395 @0x2e
0x4367…43a4 at002f = ╱20╱…╱ // 0x4396 @0x2f
0x4367…43a4 at0030 = ╱3a╱:╱ // 0x4397 @0x30
0x4367…43a4 at0031 = ╱20╱…╱ // 0x4398 @0x31
0x4367…43a4 at0032 = ╱22╱"╱ // 0x4399 @0x32
0x4367…43a4 at0033 = ╱f1╱ : ╱ // 0x439a @0x33
0x4367…43a4 at0034 = ╱58╱X╱ // 0x439b @0x34
0x4367…43a4 at0035 = ╱ed╱ ( ╱ // 0x439c @0x35
0x4367…43a4 at0036 = ╱32╱2╱ // 0x439d @0x36
0x4367…43a4 at0037 = ╱37╱7╱ // 0x439e @0x37
0x4367…43a4 at0038 = ╱f21b00╱ // 0x439f @0x38
0x4367…43a4 at003b = ╱ee╱ ) ╱ // 0x43a2 @0x3b
0x4367…43a4 at003c = EOL // 0x43a3 @0x3c
0x4367…43a4 }
0x43a4…43e1 d9cf 02730 INPUT "<C2411Z>……………………\vrige…variable…omk.……B………:…" : X ( 28 )
0x43a4…43e1 LineComal80 {
0x43a4…43e1 ptr = 0xd9cf // 0x43a4 @0x0
0x43a4…43e1 lno = 0x0aaa // 0x43a6 @0x2
0x43a4…43e1 at0004 = ╱91╱ INPUT ╱ // 0x43a8 @0x4
0x43a4…43e1 at0005 = ╱22╱"╱ // 0x43a9 @0x5
0x43a4…43e1 at0006 = ╱3c╱<╱ // 0x43aa @0x6
0x43a4…43e1 at0007 = ╱43╱C╱ // 0x43ab @0x7
0x43a4…43e1 at0008 = ╱32╱2╱ // 0x43ac @0x8
0x43a4…43e1 at0009 = ╱34╱4╱ // 0x43ad @0x9
0x43a4…43e1 at000a = ╱31╱1╱ // 0x43ae @0xa
0x43a4…43e1 at000b = ╱31╱1╱ // 0x43af @0xb
0x43a4…43e1 at000c = ╱5a╱Z╱ // 0x43b0 @0xc
0x43a4…43e1 at000d = ╱3e╱>╱ // 0x43b1 @0xd
0x43a4…43e1 at000e = ╱20╱…╱ // 0x43b2 @0xe
0x43a4…43e1 at000f = ╱20╱…╱ // 0x43b3 @0xf
0x43a4…43e1 at0010 = ╱20╱…╱ // 0x43b4 @0x10
0x43a4…43e1 at0011 = ╱20╱…╱ // 0x43b5 @0x11
0x43a4…43e1 at0012 = ╱20╱…╱ // 0x43b6 @0x12
0x43a4…43e1 at0013 = ╱20╱…╱ // 0x43b7 @0x13
0x43a4…43e1 at0014 = ╱20╱…╱ // 0x43b8 @0x14
0x43a4…43e1 at0015 = ╱20╱…╱ // 0x43b9 @0x15
0x43a4…43e1 at0016 = ╱5c╱\╱ // 0x43ba @0x16
0x43a4…43e1 at0017 = ╱76╱v╱ // 0x43bb @0x17
0x43a4…43e1 at0018 = ╱72╱r╱ // 0x43bc @0x18
0x43a4…43e1 at0019 = ╱69╱i╱ // 0x43bd @0x19
0x43a4…43e1 at001a = ╱67╱g╱ // 0x43be @0x1a
0x43a4…43e1 at001b = ╱65╱e╱ // 0x43bf @0x1b
0x43a4…43e1 at001c = ╱20╱…╱ // 0x43c0 @0x1c
0x43a4…43e1 at001d = ╱76╱v╱ // 0x43c1 @0x1d
0x43a4…43e1 at001e = ╱61╱a╱ // 0x43c2 @0x1e
0x43a4…43e1 at001f = ╱72╱r╱ // 0x43c3 @0x1f
0x43a4…43e1 at0020 = ╱69╱i╱ // 0x43c4 @0x20
0x43a4…43e1 at0021 = ╱61╱a╱ // 0x43c5 @0x21
0x43a4…43e1 at0022 = ╱62╱b╱ // 0x43c6 @0x22
0x43a4…43e1 at0023 = ╱6c╱l╱ // 0x43c7 @0x23
0x43a4…43e1 at0024 = ╱65╱e╱ // 0x43c8 @0x24
0x43a4…43e1 at0025 = ╱20╱…╱ // 0x43c9 @0x25
0x43a4…43e1 at0026 = ╱6f╱o╱ // 0x43ca @0x26
0x43a4…43e1 at0027 = ╱6d╱m╱ // 0x43cb @0x27
0x43a4…43e1 at0028 = ╱6b╱k╱ // 0x43cc @0x28
0x43a4…43e1 at0029 = ╱2e╱.╱ // 0x43cd @0x29
0x43a4…43e1 at002a = ╱20╱…╱ // 0x43ce @0x2a
0x43a4…43e1 at002b = ╱20╱…╱ // 0x43cf @0x2b
0x43a4…43e1 at002c = ╱42╱B╱ // 0x43d0 @0x2c
0x43a4…43e1 at002d = ╱20╱…╱ // 0x43d1 @0x2d
0x43a4…43e1 at002e = ╱20╱…╱ // 0x43d2 @0x2e
0x43a4…43e1 at002f = ╱20╱…╱ // 0x43d3 @0x2f
0x43a4…43e1 at0030 = ╱3a╱:╱ // 0x43d4 @0x30
0x43a4…43e1 at0031 = ╱20╱…╱ // 0x43d5 @0x31
0x43a4…43e1 at0032 = ╱22╱"╱ // 0x43d6 @0x32
0x43a4…43e1 at0033 = ╱f1╱ : ╱ // 0x43d7 @0x33
0x43a4…43e1 at0034 = ╱58╱X╱ // 0x43d8 @0x34
0x43a4…43e1 at0035 = ╱ed╱ ( ╱ // 0x43d9 @0x35
0x43a4…43e1 at0036 = ╱32╱2╱ // 0x43da @0x36
0x43a4…43e1 at0037 = ╱38╱8╱ // 0x43db @0x37
0x43a4…43e1 at0038 = ╱f21c00╱ // 0x43dc @0x38
0x43a4…43e1 at003b = ╱ee╱ ) ╱ // 0x43df @0x3b
0x43a4…43e1 at003c = EOL // 0x43e0 @0x3c
0x43a4…43e1 }
0x43e1…441e da0c 02740 INPUT "<C2412Z>……………………\vrige…variable…omk.……C………:…" : X ( 29 )
0x43e1…441e LineComal80 {
0x43e1…441e ptr = 0xda0c // 0x43e1 @0x0
0x43e1…441e lno = 0x0ab4 // 0x43e3 @0x2
0x43e1…441e at0004 = ╱91╱ INPUT ╱ // 0x43e5 @0x4
0x43e1…441e at0005 = ╱22╱"╱ // 0x43e6 @0x5
0x43e1…441e at0006 = ╱3c╱<╱ // 0x43e7 @0x6
0x43e1…441e at0007 = ╱43╱C╱ // 0x43e8 @0x7
0x43e1…441e at0008 = ╱32╱2╱ // 0x43e9 @0x8
0x43e1…441e at0009 = ╱34╱4╱ // 0x43ea @0x9
0x43e1…441e at000a = ╱31╱1╱ // 0x43eb @0xa
0x43e1…441e at000b = ╱32╱2╱ // 0x43ec @0xb
0x43e1…441e at000c = ╱5a╱Z╱ // 0x43ed @0xc
0x43e1…441e at000d = ╱3e╱>╱ // 0x43ee @0xd
0x43e1…441e at000e = ╱20╱…╱ // 0x43ef @0xe
0x43e1…441e at000f = ╱20╱…╱ // 0x43f0 @0xf
0x43e1…441e at0010 = ╱20╱…╱ // 0x43f1 @0x10
0x43e1…441e at0011 = ╱20╱…╱ // 0x43f2 @0x11
0x43e1…441e at0012 = ╱20╱…╱ // 0x43f3 @0x12
0x43e1…441e at0013 = ╱20╱…╱ // 0x43f4 @0x13
0x43e1…441e at0014 = ╱20╱…╱ // 0x43f5 @0x14
0x43e1…441e at0015 = ╱20╱…╱ // 0x43f6 @0x15
0x43e1…441e at0016 = ╱5c╱\╱ // 0x43f7 @0x16
0x43e1…441e at0017 = ╱76╱v╱ // 0x43f8 @0x17
0x43e1…441e at0018 = ╱72╱r╱ // 0x43f9 @0x18
0x43e1…441e at0019 = ╱69╱i╱ // 0x43fa @0x19
0x43e1…441e at001a = ╱67╱g╱ // 0x43fb @0x1a
0x43e1…441e at001b = ╱65╱e╱ // 0x43fc @0x1b
0x43e1…441e at001c = ╱20╱…╱ // 0x43fd @0x1c
0x43e1…441e at001d = ╱76╱v╱ // 0x43fe @0x1d
0x43e1…441e at001e = ╱61╱a╱ // 0x43ff @0x1e
0x43e1…441e at001f = ╱72╱r╱ // 0x4400 @0x1f
0x43e1…441e at0020 = ╱69╱i╱ // 0x4401 @0x20
0x43e1…441e at0021 = ╱61╱a╱ // 0x4402 @0x21
0x43e1…441e at0022 = ╱62╱b╱ // 0x4403 @0x22
0x43e1…441e at0023 = ╱6c╱l╱ // 0x4404 @0x23
0x43e1…441e at0024 = ╱65╱e╱ // 0x4405 @0x24
0x43e1…441e at0025 = ╱20╱…╱ // 0x4406 @0x25
0x43e1…441e at0026 = ╱6f╱o╱ // 0x4407 @0x26
0x43e1…441e at0027 = ╱6d╱m╱ // 0x4408 @0x27
0x43e1…441e at0028 = ╱6b╱k╱ // 0x4409 @0x28
0x43e1…441e at0029 = ╱2e╱.╱ // 0x440a @0x29
0x43e1…441e at002a = ╱20╱…╱ // 0x440b @0x2a
0x43e1…441e at002b = ╱20╱…╱ // 0x440c @0x2b
0x43e1…441e at002c = ╱43╱C╱ // 0x440d @0x2c
0x43e1…441e at002d = ╱20╱…╱ // 0x440e @0x2d
0x43e1…441e at002e = ╱20╱…╱ // 0x440f @0x2e
0x43e1…441e at002f = ╱20╱…╱ // 0x4410 @0x2f
0x43e1…441e at0030 = ╱3a╱:╱ // 0x4411 @0x30
0x43e1…441e at0031 = ╱20╱…╱ // 0x4412 @0x31
0x43e1…441e at0032 = ╱22╱"╱ // 0x4413 @0x32
0x43e1…441e at0033 = ╱f1╱ : ╱ // 0x4414 @0x33
0x43e1…441e at0034 = ╱58╱X╱ // 0x4415 @0x34
0x43e1…441e at0035 = ╱ed╱ ( ╱ // 0x4416 @0x35
0x43e1…441e at0036 = ╱32╱2╱ // 0x4417 @0x36
0x43e1…441e at0037 = ╱39╱9╱ // 0x4418 @0x37
0x43e1…441e at0038 = ╱f21d00╱ // 0x4419 @0x38
0x43e1…441e at003b = ╱ee╱ ) ╱ // 0x441c @0x3b
0x43e1…441e at003c = EOL // 0x441d @0x3c
0x43e1…441e }
0x441e…445b da49 02440 INPUT "<C2218Z>Er…alle…tal…korrekt…indtastede…?…(j/n)…" : SVAR $
0x441e…445b LineComal80 {
0x441e…445b ptr = 0xda49 // 0x441e @0x0
0x441e…445b lno = 0x0988 // 0x4420 @0x2
0x441e…445b at0004 = ╱91╱ INPUT ╱ // 0x4422 @0x4
0x441e…445b at0005 = ╱22╱"╱ // 0x4423 @0x5
0x441e…445b at0006 = ╱3c╱<╱ // 0x4424 @0x6
0x441e…445b at0007 = ╱43╱C╱ // 0x4425 @0x7
0x441e…445b at0008 = ╱32╱2╱ // 0x4426 @0x8
0x441e…445b at0009 = ╱32╱2╱ // 0x4427 @0x9
0x441e…445b at000a = ╱31╱1╱ // 0x4428 @0xa
0x441e…445b at000b = ╱38╱8╱ // 0x4429 @0xb
0x441e…445b at000c = ╱5a╱Z╱ // 0x442a @0xc
0x441e…445b at000d = ╱3e╱>╱ // 0x442b @0xd
0x441e…445b at000e = ╱45╱E╱ // 0x442c @0xe
0x441e…445b at000f = ╱72╱r╱ // 0x442d @0xf
0x441e…445b at0010 = ╱20╱…╱ // 0x442e @0x10
0x441e…445b at0011 = ╱61╱a╱ // 0x442f @0x11
0x441e…445b at0012 = ╱6c╱l╱ // 0x4430 @0x12
0x441e…445b at0013 = ╱6c╱l╱ // 0x4431 @0x13
0x441e…445b at0014 = ╱65╱e╱ // 0x4432 @0x14
0x441e…445b at0015 = ╱20╱…╱ // 0x4433 @0x15
0x441e…445b at0016 = ╱74╱t╱ // 0x4434 @0x16
0x441e…445b at0017 = ╱61╱a╱ // 0x4435 @0x17
0x441e…445b at0018 = ╱6c╱l╱ // 0x4436 @0x18
0x441e…445b at0019 = ╱20╱…╱ // 0x4437 @0x19
0x441e…445b at001a = ╱6b╱k╱ // 0x4438 @0x1a
0x441e…445b at001b = ╱6f╱o╱ // 0x4439 @0x1b
0x441e…445b at001c = ╱72╱r╱ // 0x443a @0x1c
0x441e…445b at001d = ╱72╱r╱ // 0x443b @0x1d
0x441e…445b at001e = ╱65╱e╱ // 0x443c @0x1e
0x441e…445b at001f = ╱6b╱k╱ // 0x443d @0x1f
0x441e…445b at0020 = ╱74╱t╱ // 0x443e @0x20
0x441e…445b at0021 = ╱20╱…╱ // 0x443f @0x21
0x441e…445b at0022 = ╱69╱i╱ // 0x4440 @0x22
0x441e…445b at0023 = ╱6e╱n╱ // 0x4441 @0x23
0x441e…445b at0024 = ╱64╱d╱ // 0x4442 @0x24
0x441e…445b at0025 = ╱74╱t╱ // 0x4443 @0x25
0x441e…445b at0026 = ╱61╱a╱ // 0x4444 @0x26
0x441e…445b at0027 = ╱73╱s╱ // 0x4445 @0x27
0x441e…445b at0028 = ╱74╱t╱ // 0x4446 @0x28
0x441e…445b at0029 = ╱65╱e╱ // 0x4447 @0x29
0x441e…445b at002a = ╱64╱d╱ // 0x4448 @0x2a
0x441e…445b at002b = ╱65╱e╱ // 0x4449 @0x2b
0x441e…445b at002c = ╱20╱…╱ // 0x444a @0x2c
0x441e…445b at002d = ╱3f╱?╱ // 0x444b @0x2d
0x441e…445b at002e = ╱20╱…╱ // 0x444c @0x2e
0x441e…445b at002f = ╱28╱(╱ // 0x444d @0x2f
0x441e…445b at0030 = ╱6a╱j╱ // 0x444e @0x30
0x441e…445b at0031 = ╱2f╱/╱ // 0x444f @0x31
0x441e…445b at0032 = ╱6e╱n╱ // 0x4450 @0x32
0x441e…445b at0033 = ╱29╱)╱ // 0x4451 @0x33
0x441e…445b at0034 = ╱20╱…╱ // 0x4452 @0x34
0x441e…445b at0035 = ╱22╱"╱ // 0x4453 @0x35
0x441e…445b at0036 = ╱f1╱ : ╱ // 0x4454 @0x36
0x441e…445b at0037 = ╱53╱S╱ // 0x4455 @0x37
0x441e…445b at0038 = ╱56╱V╱ // 0x4456 @0x38
0x441e…445b at0039 = ╱41╱A╱ // 0x4457 @0x39
0x441e…445b at003a = ╱52╱R╱ // 0x4458 @0x3a
0x441e…445b at003b = ╱ef╱ $ ╱ // 0x4459 @0x3b
0x441e…445b at003c = EOL // 0x445a @0x3c
0x441e…445b }
0x445b…4474 da62 02430 UNTIL SVAR $ = "j" OR SVAR $ = "J"
0x445b…4474 LineComal80 {
0x445b…4474 ptr = 0xda62 // 0x445b @0x0
0x445b…4474 lno = 0x097e // 0x445d @0x2
0x445b…4474 at0004 = ╱98╱ UNTIL ╱ // 0x445f @0x4
0x445b…4474 at0005 = ╱53╱S╱ // 0x4460 @0x5
0x445b…4474 at0006 = ╱56╱V╱ // 0x4461 @0x6
0x445b…4474 at0007 = ╱41╱A╱ // 0x4462 @0x7
0x445b…4474 at0008 = ╱52╱R╱ // 0x4463 @0x8
0x445b…4474 at0009 = ╱ef╱ $ ╱ // 0x4464 @0x9
0x445b…4474 at000a = ╱df╱ = ╱ // 0x4465 @0xa
0x445b…4474 at000b = ╱22╱"╱ // 0x4466 @0xb
0x445b…4474 at000c = ╱6a╱j╱ // 0x4467 @0xc
0x445b…4474 at000d = ╱22╱"╱ // 0x4468 @0xd
0x445b…4474 at000e = ╱d8╱ OR ╱ // 0x4469 @0xe
0x445b…4474 at000f = ╱53╱S╱ // 0x446a @0xf
0x445b…4474 at0010 = ╱56╱V╱ // 0x446b @0x10
0x445b…4474 at0011 = ╱41╱A╱ // 0x446c @0x11
0x445b…4474 at0012 = ╱52╱R╱ // 0x446d @0x12
0x445b…4474 at0013 = ╱ef╱ $ ╱ // 0x446e @0x13
0x445b…4474 at0014 = ╱df╱ = ╱ // 0x446f @0x14
0x445b…4474 at0015 = ╱22╱"╱ // 0x4470 @0x15
0x445b…4474 at0016 = ╱4a╱J╱ // 0x4471 @0x16
0x445b…4474 at0017 = ╱22╱"╱ // 0x4472 @0x17
0x445b…4474 at0018 = EOL // 0x4473 @0x18
0x445b…4474 }
0x4474…44a4 da92 02440 FOR I := 1 TO DO LET X ( 20 ) := X ( 20 ) + X ( 26 + I )
0x4474…44a4 LineComal80 {
0x4474…44a4 ptr = 0xda92 // 0x4474 @0x0
0x4474…44a4 lno = 0x0988 // 0x4476 @0x2
0x4474…44a4 at0004 = ╱b400╱ FOR ╱ // 0x4478 @0x4
0x4474…44a4 at0006 = ╱49╱I╱ // 0x447a @0x6
0x4474…44a4 at0007 = ╱f0╱ := ╱ // 0x447b @0x7
0x4474…44a4 at0008 = ╱31╱1╱ // 0x447c @0x8
0x4474…44a4 at0009 = ╱f20100╱ // 0x447d @0x9
0x4474…44a4 at000c = ╱b733╱ TO ╱ // 0x4480 @0xc
0x4474…44a4 at000e = ╱f20300╱ // 0x4482 @0xe
0x4474…44a4 at0011 = ╱bb╱ DO ╱ // 0x4485 @0x11
0x4474…44a4 at0012 = ╱86╱ LET ╱ // 0x4486 @0x12
0x4474…44a4 at0013 = ╱58╱X╱ // 0x4487 @0x13
0x4474…44a4 at0014 = ╱ed╱ ( ╱ // 0x4488 @0x14
0x4474…44a4 at0015 = ╱32╱2╱ // 0x4489 @0x15
0x4474…44a4 at0016 = ╱30╱0╱ // 0x448a @0x16
0x4474…44a4 at0017 = ╱f21400╱ // 0x448b @0x17
0x4474…44a4 at001a = ╱ee╱ ) ╱ // 0x448e @0x1a
0x4474…44a4 at001b = ╱f0╱ := ╱ // 0x448f @0x1b
0x4474…44a4 at001c = ╱58╱X╱ // 0x4490 @0x1c
0x4474…44a4 at001d = ╱ed╱ ( ╱ // 0x4491 @0x1d
0x4474…44a4 at001e = ╱32╱2╱ // 0x4492 @0x1e
0x4474…44a4 at001f = ╱30╱0╱ // 0x4493 @0x1f
0x4474…44a4 at0020 = ╱f21400╱ // 0x4494 @0x20
0x4474…44a4 at0023 = ╱ee╱ ) ╱ // 0x4497 @0x23
0x4474…44a4 at0024 = ╱e5╱ + ╱ // 0x4498 @0x24
0x4474…44a4 at0025 = ╱58╱X╱ // 0x4499 @0x25
0x4474…44a4 at0026 = ╱ed╱ ( ╱ // 0x449a @0x26
0x4474…44a4 at0027 = ╱32╱2╱ // 0x449b @0x27
0x4474…44a4 at0028 = ╱36╱6╱ // 0x449c @0x28
0x4474…44a4 at0029 = ╱f21a00╱ // 0x449d @0x29
0x4474…44a4 at002c = ╱e5╱ + ╱ // 0x44a0 @0x2c
0x4474…44a4 at002d = ╱49╱I╱ // 0x44a1 @0x2d
0x4474…44a4 at002e = ╱ee╱ ) ╱ // 0x44a2 @0x2e
0x4474…44a4 at002f = EOL // 0x44a3 @0x2f
0x4474…44a4 }
0x44a4…44b7 daa5 02450 FOR I := 1 TO DO
0x44a4…44b7 LineComal80 {
0x44a4…44b7 ptr = 0xdaa5 // 0x44a4 @0x0
0x44a4…44b7 lno = 0x0992 // 0x44a6 @0x2
0x44a4…44b7 at0004 = ╱8325╱ FOR ╱ // 0x44a8 @0x4
0x44a4…44b7 at0006 = ╱49╱I╱ // 0x44aa @0x6
0x44a4…44b7 at0007 = ╱f0╱ := ╱ // 0x44ab @0x7
0x44a4…44b7 at0008 = ╱31╱1╱ // 0x44ac @0x8
0x44a4…44b7 at0009 = ╱f20100╱ // 0x44ad @0x9
0x44a4…44b7 at000c = ╱b733╱ TO ╱ // 0x44b0 @0xc
0x44a4…44b7 at000e = ╱f20300╱ // 0x44b2 @0xe
0x44a4…44b7 at0011 = ╱bb╱ DO ╱ // 0x44b5 @0x11
0x44a4…44b7 at0012 = EOL // 0x44b6 @0x12
0x44a4…44b7 }
0x44b7…44e8 dad6 02460 LET X ( 26 + I ) := X ( 1 + I ) - ( X ( 5 + I ) + X ( 26 + I ) )
0x44b7…44e8 LineComal80 {
0x44b7…44e8 ptr = 0xdad6 // 0x44b7 @0x0
0x44b7…44e8 lno = 0x099c // 0x44b9 @0x2
0x44b7…44e8 at0004 = ╱86╱ LET ╱ // 0x44bb @0x4
0x44b7…44e8 at0005 = ╱58╱X╱ // 0x44bc @0x5
0x44b7…44e8 at0006 = ╱ed╱ ( ╱ // 0x44bd @0x6
0x44b7…44e8 at0007 = ╱32╱2╱ // 0x44be @0x7
0x44b7…44e8 at0008 = ╱36╱6╱ // 0x44bf @0x8
0x44b7…44e8 at0009 = ╱f21a00╱ // 0x44c0 @0x9
0x44b7…44e8 at000c = ╱e5╱ + ╱ // 0x44c3 @0xc
0x44b7…44e8 at000d = ╱49╱I╱ // 0x44c4 @0xd
0x44b7…44e8 at000e = ╱ee╱ ) ╱ // 0x44c5 @0xe
0x44b7…44e8 at000f = ╱f0╱ := ╱ // 0x44c6 @0xf
0x44b7…44e8 at0010 = ╱58╱X╱ // 0x44c7 @0x10
0x44b7…44e8 at0011 = ╱ed╱ ( ╱ // 0x44c8 @0x11
0x44b7…44e8 at0012 = ╱31╱1╱ // 0x44c9 @0x12
0x44b7…44e8 at0013 = ╱f20100╱ // 0x44ca @0x13
0x44b7…44e8 at0016 = ╱e5╱ + ╱ // 0x44cd @0x16
0x44b7…44e8 at0017 = ╱49╱I╱ // 0x44ce @0x17
0x44b7…44e8 at0018 = ╱ee╱ ) ╱ // 0x44cf @0x18
0x44b7…44e8 at0019 = ╱e6╱ - ╱ // 0x44d0 @0x19
0x44b7…44e8 at001a = ╱ed╱ ( ╱ // 0x44d1 @0x1a
0x44b7…44e8 at001b = ╱58╱X╱ // 0x44d2 @0x1b
0x44b7…44e8 at001c = ╱ed╱ ( ╱ // 0x44d3 @0x1c
0x44b7…44e8 at001d = ╱35╱5╱ // 0x44d4 @0x1d
0x44b7…44e8 at001e = ╱f20500╱ // 0x44d5 @0x1e
0x44b7…44e8 at0021 = ╱e5╱ + ╱ // 0x44d8 @0x21
0x44b7…44e8 at0022 = ╱49╱I╱ // 0x44d9 @0x22
0x44b7…44e8 at0023 = ╱ee╱ ) ╱ // 0x44da @0x23
0x44b7…44e8 at0024 = ╱e5╱ + ╱ // 0x44db @0x24
0x44b7…44e8 at0025 = ╱58╱X╱ // 0x44dc @0x25
0x44b7…44e8 at0026 = ╱ed╱ ( ╱ // 0x44dd @0x26
0x44b7…44e8 at0027 = ╱32╱2╱ // 0x44de @0x27
0x44b7…44e8 at0028 = ╱36╱6╱ // 0x44df @0x28
0x44b7…44e8 at0029 = ╱f21a00╱ // 0x44e0 @0x29
0x44b7…44e8 at002c = ╱e5╱ + ╱ // 0x44e3 @0x2c
0x44b7…44e8 at002d = ╱49╱I╱ // 0x44e4 @0x2d
0x44b7…44e8 at002e = ╱ee╱ ) ╱ // 0x44e5 @0x2e
0x44b7…44e8 at002f = ╱ee╱ ) ╱ // 0x44e6 @0x2f
0x44b7…44e8 at0030 = EOL // 0x44e7 @0x30
0x44b7…44e8 }
0x44e8…450a daf8 02470 LET X ( 26 ) := X ( 26 ) + X ( 26 + I )
0x44e8…450a LineComal80 {
0x44e8…450a ptr = 0xdaf8 // 0x44e8 @0x0
0x44e8…450a lno = 0x09a6 // 0x44ea @0x2
0x44e8…450a at0004 = ╱86╱ LET ╱ // 0x44ec @0x4
0x44e8…450a at0005 = ╱58╱X╱ // 0x44ed @0x5
0x44e8…450a at0006 = ╱ed╱ ( ╱ // 0x44ee @0x6
0x44e8…450a at0007 = ╱32╱2╱ // 0x44ef @0x7
0x44e8…450a at0008 = ╱36╱6╱ // 0x44f0 @0x8
0x44e8…450a at0009 = ╱f21a00╱ // 0x44f1 @0x9
0x44e8…450a at000c = ╱ee╱ ) ╱ // 0x44f4 @0xc
0x44e8…450a at000d = ╱f0╱ := ╱ // 0x44f5 @0xd
0x44e8…450a at000e = ╱58╱X╱ // 0x44f6 @0xe
0x44e8…450a at000f = ╱ed╱ ( ╱ // 0x44f7 @0xf
0x44e8…450a at0010 = ╱32╱2╱ // 0x44f8 @0x10
0x44e8…450a at0011 = ╱36╱6╱ // 0x44f9 @0x11
0x44e8…450a at0012 = ╱f21a00╱ // 0x44fa @0x12
0x44e8…450a at0015 = ╱ee╱ ) ╱ // 0x44fd @0x15
0x44e8…450a at0016 = ╱e5╱ + ╱ // 0x44fe @0x16
0x44e8…450a at0017 = ╱58╱X╱ // 0x44ff @0x17
0x44e8…450a at0018 = ╱ed╱ ( ╱ // 0x4500 @0x18
0x44e8…450a at0019 = ╱32╱2╱ // 0x4501 @0x19
0x44e8…450a at001a = ╱36╱6╱ // 0x4502 @0x1a
0x44e8…450a at001b = ╱f21a00╱ // 0x4503 @0x1b
0x44e8…450a at001e = ╱e5╱ + ╱ // 0x4506 @0x1e
0x44e8…450a at001f = ╱49╱I╱ // 0x4507 @0x1f
0x44e8…450a at0020 = ╱ee╱ ) ╱ // 0x4508 @0x20
0x44e8…450a at0021 = EOL // 0x4509 @0x21
0x44e8…450a }
0x450a…4511 daff 02480 NEXT I
0x450a…4511 LineComal80 {
0x450a…4511 ptr = 0xdaff // 0x450a @0x0
0x450a…4511 lno = 0x09b0 // 0x450c @0x2
0x450a…4511 at0004 = ╱84╱ NEXT ╱ // 0x450e @0x4
0x450a…4511 at0005 = ╱49╱I╱ // 0x450f @0x5
0x450a…4511 at0006 = EOL // 0x4510 @0x6
0x450a…4511 }
0x4511…451f db0d 02490 ENDPROC INPUTTAL
0x4511…451f LineComal80 {
0x4511…451f ptr = 0xdb0d // 0x4511 @0x0
0x4511…451f lno = 0x09ba // 0x4513 @0x2
0x4511…451f at0004 = ╱9f╱ ENDPROC ╱ // 0x4515 @0x4
0x4511…451f at0005 = ╱49╱I╱ // 0x4516 @0x5
0x4511…451f at0006 = ╱4e╱N╱ // 0x4517 @0x6
0x4511…451f at0007 = ╱50╱P╱ // 0x4518 @0x7
0x4511…451f at0008 = ╱55╱U╱ // 0x4519 @0x8
0x4511…451f at0009 = ╱54╱T╱ // 0x451a @0x9
0x4511…451f at000a = ╱54╱T╱ // 0x451b @0xa
0x4511…451f at000b = ╱41╱A╱ // 0x451c @0xb
0x4511…451f at000c = ╱4c╱L╱ // 0x451d @0xc
0x4511…451f at000d = EOL // 0x451e @0xd
0x4511…451f }
0x451f…4530 db1e 02500 PROC UDSKRIVMAJ
0x451f…4530 LineComal80 {
0x451f…4530 ptr = 0xdb1e // 0x451f @0x0
0x451f…4530 lno = 0x09c4 // 0x4521 @0x2
0x451f…4530 at0004 = ╱9e26╱ PROC ╱ // 0x4523 @0x4
0x451f…4530 at0006 = ╱55╱U╱ // 0x4525 @0x6
0x451f…4530 at0007 = ╱44╱D╱ // 0x4526 @0x7
0x451f…4530 at0008 = ╱53╱S╱ // 0x4527 @0x8
0x451f…4530 at0009 = ╱4b╱K╱ // 0x4528 @0x9
0x451f…4530 at000a = ╱52╱R╱ // 0x4529 @0xa
0x451f…4530 at000b = ╱49╱I╱ // 0x452a @0xb
0x451f…4530 at000c = ╱56╱V╱ // 0x452b @0xc
0x451f…4530 at000d = ╱4d╱M╱ // 0x452c @0xd
0x451f…4530 at000e = ╱41╱A╱ // 0x452d @0xe
0x451f…4530 at000f = ╱4a╱J╱ // 0x452e @0xf
0x451f…4530 at0010 = EOL // 0x452f @0x10
0x451f…4530 }
0x4530…4542 db30 02510 DIM UDFIL $ OF 17
0x4530…4542 LineComal80 {
0x4530…4542 ptr = 0xdb30 // 0x4530 @0x0
0x4530…4542 lno = 0x09ce // 0x4532 @0x2
0x4530…4542 at0004 = ╱87╱ DIM ╱ // 0x4534 @0x4
0x4530…4542 at0005 = ╱55╱U╱ // 0x4535 @0x5
0x4530…4542 at0006 = ╱44╱D╱ // 0x4536 @0x6
0x4530…4542 at0007 = ╱46╱F╱ // 0x4537 @0x7
0x4530…4542 at0008 = ╱49╱I╱ // 0x4538 @0x8
0x4530…4542 at0009 = ╱4c╱L╱ // 0x4539 @0x9
0x4530…4542 at000a = ╱ef╱ $ ╱ // 0x453a @0xa
0x4530…4542 at000b = ╱ba╱ OF ╱ // 0x453b @0xb
0x4530…4542 at000c = ╱31╱1╱ // 0x453c @0xc
0x4530…4542 at000d = ╱37╱7╱ // 0x453d @0xd
0x4530…4542 at000e = ╱f21100╱ // 0x453e @0xe
0x4530…4542 at0011 = EOL // 0x4541 @0x11
0x4530…4542 }
0x4542…456c db5a 02520 LET UDFIL $ := DATAFL $ + ":" + S_KODE $ + "RSKELET"
0x4542…456c LineComal80 {
0x4542…456c ptr = 0xdb5a // 0x4542 @0x0
0x4542…456c lno = 0x09d8 // 0x4544 @0x2
0x4542…456c at0004 = ╱86╱ LET ╱ // 0x4546 @0x4
0x4542…456c at0005 = ╱55╱U╱ // 0x4547 @0x5
0x4542…456c at0006 = ╱44╱D╱ // 0x4548 @0x6
0x4542…456c at0007 = ╱46╱F╱ // 0x4549 @0x7
0x4542…456c at0008 = ╱49╱I╱ // 0x454a @0x8
0x4542…456c at0009 = ╱4c╱L╱ // 0x454b @0x9
0x4542…456c at000a = ╱ef╱ $ ╱ // 0x454c @0xa
0x4542…456c at000b = ╱f0╱ := ╱ // 0x454d @0xb
0x4542…456c at000c = ╱44╱D╱ // 0x454e @0xc
0x4542…456c at000d = ╱41╱A╱ // 0x454f @0xd
0x4542…456c at000e = ╱54╱T╱ // 0x4550 @0xe
0x4542…456c at000f = ╱41╱A╱ // 0x4551 @0xf
0x4542…456c at0010 = ╱46╱F╱ // 0x4552 @0x10
0x4542…456c at0011 = ╱4c╱L╱ // 0x4553 @0x11
0x4542…456c at0012 = ╱ef╱ $ ╱ // 0x4554 @0x12
0x4542…456c at0013 = ╱eb╱ + ╱ // 0x4555 @0x13
0x4542…456c at0014 = ╱22╱"╱ // 0x4556 @0x14
0x4542…456c at0015 = ╱3a╱:╱ // 0x4557 @0x15
0x4542…456c at0016 = ╱22╱"╱ // 0x4558 @0x16
0x4542…456c at0017 = ╱eb╱ + ╱ // 0x4559 @0x17
0x4542…456c at0018 = ╱53╱S╱ // 0x455a @0x18
0x4542…456c at0019 = ╱5f╱_╱ // 0x455b @0x19
0x4542…456c at001a = ╱4b╱K╱ // 0x455c @0x1a
0x4542…456c at001b = ╱4f╱O╱ // 0x455d @0x1b
0x4542…456c at001c = ╱44╱D╱ // 0x455e @0x1c
0x4542…456c at001d = ╱45╱E╱ // 0x455f @0x1d
0x4542…456c at001e = ╱ef╱ $ ╱ // 0x4560 @0x1e
0x4542…456c at001f = ╱eb╱ + ╱ // 0x4561 @0x1f
0x4542…456c at0020 = ╱22╱"╱ // 0x4562 @0x20
0x4542…456c at0021 = ╱52╱R╱ // 0x4563 @0x21
0x4542…456c at0022 = ╱53╱S╱ // 0x4564 @0x22
0x4542…456c at0023 = ╱4b╱K╱ // 0x4565 @0x23
0x4542…456c at0024 = ╱45╱E╱ // 0x4566 @0x24
0x4542…456c at0025 = ╱4c╱L╱ // 0x4567 @0x25
0x4542…456c at0026 = ╱45╱E╱ // 0x4568 @0x26
0x4542…456c at0027 = ╱54╱T╱ // 0x4569 @0x27
0x4542…456c at0028 = ╱22╱"╱ // 0x456a @0x28
0x4542…456c at0029 = EOL // 0x456b @0x29
0x4542…456c }
0x456c…4585 db73 02530 EXEC OPENFIL ( UDFIL $ , "R" )
0x456c…4585 LineComal80 {
0x456c…4585 ptr = 0xdb73 // 0x456c @0x0
0x456c…4585 lno = 0x09e2 // 0x456e @0x2
0x456c…4585 at0004 = ╱9d╱ EXEC ╱ // 0x4570 @0x4
0x456c…4585 at0005 = ╱4f╱O╱ // 0x4571 @0x5
0x456c…4585 at0006 = ╱50╱P╱ // 0x4572 @0x6
0x456c…4585 at0007 = ╱45╱E╱ // 0x4573 @0x7
0x456c…4585 at0008 = ╱4e╱N╱ // 0x4574 @0x8
0x456c…4585 at0009 = ╱46╱F╱ // 0x4575 @0x9
0x456c…4585 at000a = ╱49╱I╱ // 0x4576 @0xa
0x456c…4585 at000b = ╱4c╱L╱ // 0x4577 @0xb
0x456c…4585 at000c = ╱ed╱ ( ╱ // 0x4578 @0xc
0x456c…4585 at000d = ╱55╱U╱ // 0x4579 @0xd
0x456c…4585 at000e = ╱44╱D╱ // 0x457a @0xe
0x456c…4585 at000f = ╱46╱F╱ // 0x457b @0xf
0x456c…4585 at0010 = ╱49╱I╱ // 0x457c @0x10
0x456c…4585 at0011 = ╱4c╱L╱ // 0x457d @0x11
0x456c…4585 at0012 = ╱ef╱ $ ╱ // 0x457e @0x12
0x456c…4585 at0013 = ╱ec╱ , ╱ // 0x457f @0x13
0x456c…4585 at0014 = ╱22╱"╱ // 0x4580 @0x14
0x456c…4585 at0015 = ╱52╱R╱ // 0x4581 @0x15
0x456c…4585 at0016 = ╱22╱"╱ // 0x4582 @0x16
0x456c…4585 at0017 = ╱ee╱ ) ╱ // 0x4583 @0x17
0x456c…4585 at0018 = EOL // 0x4584 @0x18
0x456c…4585 }
0x4585…4594 dbd4 02540 GET UDFIL $ : S $
0x4585…4594 LineComal80 {
0x4585…4594 ptr = 0xdbd4 // 0x4585 @0x0
0x4585…4594 lno = 0x09ec // 0x4587 @0x2
0x4585…4594 at0004 = ╱a9╱ GET ╱ // 0x4589 @0x4
0x4585…4594 at0005 = ╱55╱U╱ // 0x458a @0x5
0x4585…4594 at0006 = ╱44╱D╱ // 0x458b @0x6
0x4585…4594 at0007 = ╱46╱F╱ // 0x458c @0x7
0x4585…4594 at0008 = ╱49╱I╱ // 0x458d @0x8
0x4585…4594 at0009 = ╱4c╱L╱ // 0x458e @0x9
0x4585…4594 at000a = ╱ef╱ $ ╱ // 0x458f @0xa
0x4585…4594 at000b = ╱f1╱ : ╱ // 0x4590 @0xb
0x4585…4594 at000c = ╱53╱S╱ // 0x4591 @0xc
0x4585…4594 at000d = ╱ef╱ $ ╱ // 0x4592 @0xd
0x4585…4594 at000e = EOL // 0x4593 @0xe
0x4585…4594 }
0x4594…45ba dba8 02880 EXEC PRINTRES ( "smal…EDB-liste" , 20 )
0x4594…45ba LineComal80 {
0x4594…45ba ptr = 0xdba8 // 0x4594 @0x0
0x4594…45ba lno = 0x0b40 // 0x4596 @0x2
0x4594…45ba at0004 = ╱9d╱ EXEC ╱ // 0x4598 @0x4
0x4594…45ba at0005 = ╱50╱P╱ // 0x4599 @0x5
0x4594…45ba at0006 = ╱52╱R╱ // 0x459a @0x6
0x4594…45ba at0007 = ╱49╱I╱ // 0x459b @0x7
0x4594…45ba at0008 = ╱4e╱N╱ // 0x459c @0x8
0x4594…45ba at0009 = ╱54╱T╱ // 0x459d @0x9
0x4594…45ba at000a = ╱52╱R╱ // 0x459e @0xa
0x4594…45ba at000b = ╱45╱E╱ // 0x459f @0xb
0x4594…45ba at000c = ╱53╱S╱ // 0x45a0 @0xc
0x4594…45ba at000d = ╱ed╱ ( ╱ // 0x45a1 @0xd
0x4594…45ba at000e = ╱22╱"╱ // 0x45a2 @0xe
0x4594…45ba at000f = ╱73╱s╱ // 0x45a3 @0xf
0x4594…45ba at0010 = ╱6d╱m╱ // 0x45a4 @0x10
0x4594…45ba at0011 = ╱61╱a╱ // 0x45a5 @0x11
0x4594…45ba at0012 = ╱6c╱l╱ // 0x45a6 @0x12
0x4594…45ba at0013 = ╱20╱…╱ // 0x45a7 @0x13
0x4594…45ba at0014 = ╱45╱E╱ // 0x45a8 @0x14
0x4594…45ba at0015 = ╱44╱D╱ // 0x45a9 @0x15
0x4594…45ba at0016 = ╱42╱B╱ // 0x45aa @0x16
0x4594…45ba at0017 = ╱2d╱-╱ // 0x45ab @0x17
0x4594…45ba at0018 = ╱6c╱l╱ // 0x45ac @0x18
0x4594…45ba at0019 = ╱69╱i╱ // 0x45ad @0x19
0x4594…45ba at001a = ╱73╱s╱ // 0x45ae @0x1a
0x4594…45ba at001b = ╱74╱t╱ // 0x45af @0x1b
0x4594…45ba at001c = ╱65╱e╱ // 0x45b0 @0x1c
0x4594…45ba at001d = ╱22╱"╱ // 0x45b1 @0x1d
0x4594…45ba at001e = ╱ec╱ , ╱ // 0x45b2 @0x1e
0x4594…45ba at001f = ╱32╱2╱ // 0x45b3 @0x1f
0x4594…45ba at0020 = ╱30╱0╱ // 0x45b4 @0x20
0x4594…45ba at0021 = ╱f21400╱ // 0x45b5 @0x21
0x4594…45ba at0024 = ╱ee╱ ) ╱ // 0x45b8 @0x24
0x4594…45ba at0025 = EOL // 0x45b9 @0x25
0x4594…45ba }
0x45ba…45c6 dbb4 02560 LET I := 0
0x45ba…45c6 LineComal80 {
0x45ba…45c6 ptr = 0xdbb4 // 0x45ba @0x0
0x45ba…45c6 lno = 0x0a00 // 0x45bc @0x2
0x45ba…45c6 at0004 = ╱86╱ LET ╱ // 0x45be @0x4
0x45ba…45c6 at0005 = ╱49╱I╱ // 0x45bf @0x5
0x45ba…45c6 at0006 = ╱f0╱ := ╱ // 0x45c0 @0x6
0x45ba…45c6 at0007 = ╱30╱0╱ // 0x45c1 @0x7
0x45ba…45c6 at0008 = ╱f20000╱ // 0x45c2 @0x8
0x45ba…45c6 at000b = EOL // 0x45c5 @0xb
0x45ba…45c6 }
0x45c6…45d8 dbc6 02570 WHILE NOT ╱cd╱ ( UDFIL $ ) DO
0x45c6…45d8 LineComal80 {
0x45c6…45d8 ptr = 0xdbc6 // 0x45c6 @0x0
0x45c6…45d8 lno = 0x0a0a // 0x45c8 @0x2
0x45c6…45d8 at0004 = ╱9327╱ WHILE ╱ // 0x45ca @0x4
0x45c6…45d8 at0006 = ╱d7╱ NOT ╱ // 0x45cc @0x6
0x45c6…45d8 at0007 = ╱cd╱ // 0x45cd @0x7
0x45c6…45d8 at0008 = ╱ed╱ ( ╱ // 0x45ce @0x8
0x45c6…45d8 at0009 = ╱55╱U╱ // 0x45cf @0x9
0x45c6…45d8 at000a = ╱44╱D╱ // 0x45d0 @0xa
0x45c6…45d8 at000b = ╱46╱F╱ // 0x45d1 @0xb
0x45c6…45d8 at000c = ╱49╱I╱ // 0x45d2 @0xc
0x45c6…45d8 at000d = ╱4c╱L╱ // 0x45d3 @0xd
0x45c6…45d8 at000e = ╱ef╱ $ ╱ // 0x45d4 @0xe
0x45c6…45d8 at000f = ╱ee╱ ) ╱ // 0x45d5 @0xf
0x45c6…45d8 at0010 = ╱bb╱ DO ╱ // 0x45d6 @0x10
0x45c6…45d8 at0011 = EOL // 0x45d7 @0x11
0x45c6…45d8 }
0x45d8…45e6 d3fe 02580 IF #" IN S $ THEN
0x45d8…45e6 LineComal80 {
0x45d8…45e6 ptr = 0xd3fe // 0x45d8 @0x0
0x45d8…45e6 lno = 0x0a14 // 0x45da @0x2
0x45d8…45e6 at0004 = ╱9b2822╱ IF ╱ // 0x45dc @0x4
0x45d8…45e6 at0007 = ╱23╱#╱ // 0x45df @0x7
0x45d8…45e6 at0008 = ╱22╱"╱ // 0x45e0 @0x8
0x45d8…45e6 at0009 = ╱dc╱ IN ╱ // 0x45e1 @0x9
0x45d8…45e6 at000a = ╱53╱S╱ // 0x45e2 @0xa
0x45d8…45e6 at000b = ╱ef╱ $ ╱ // 0x45e3 @0xb
0x45d8…45e6 at000c = ╱b5╱ THEN ╱ // 0x45e4 @0xc
0x45d8…45e6 at000d = EOL // 0x45e5 @0xd
0x45d8…45e6 }
0x45e6…4603 e8d6 02550 EXEC PRINTRES ( "papir" , 20 )
0x45e6…4603 LineComal80 {
0x45e6…4603 ptr = 0xe8d6 // 0x45e6 @0x0
0x45e6…4603 lno = 0x09f6 // 0x45e8 @0x2
0x45e6…4603 at0004 = ╱9d╱ EXEC ╱ // 0x45ea @0x4
0x45e6…4603 at0005 = ╱50╱P╱ // 0x45eb @0x5
0x45e6…4603 at0006 = ╱52╱R╱ // 0x45ec @0x6
0x45e6…4603 at0007 = ╱49╱I╱ // 0x45ed @0x7
0x45e6…4603 at0008 = ╱4e╱N╱ // 0x45ee @0x8
0x45e6…4603 at0009 = ╱54╱T╱ // 0x45ef @0x9
0x45e6…4603 at000a = ╱52╱R╱ // 0x45f0 @0xa
0x45e6…4603 at000b = ╱45╱E╱ // 0x45f1 @0xb
0x45e6…4603 at000c = ╱53╱S╱ // 0x45f2 @0xc
0x45e6…4603 at000d = ╱ed╱ ( ╱ // 0x45f3 @0xd
0x45e6…4603 at000e = ╱22╱"╱ // 0x45f4 @0xe
0x45e6…4603 at000f = ╱70╱p╱ // 0x45f5 @0xf
0x45e6…4603 at0010 = ╱61╱a╱ // 0x45f6 @0x10
0x45e6…4603 at0011 = ╱70╱p╱ // 0x45f7 @0x11
0x45e6…4603 at0012 = ╱69╱i╱ // 0x45f8 @0x12
0x45e6…4603 at0013 = ╱72╱r╱ // 0x45f9 @0x13
0x45e6…4603 at0014 = ╱22╱"╱ // 0x45fa @0x14
0x45e6…4603 at0015 = ╱ec╱ , ╱ // 0x45fb @0x15
0x45e6…4603 at0016 = ╱32╱2╱ // 0x45fc @0x16
0x45e6…4603 at0017 = ╱30╱0╱ // 0x45fd @0x17
0x45e6…4603 at0018 = ╱f21400╱ // 0x45fe @0x18
0x45e6…4603 at001b = ╱ee╱ ) ╱ // 0x4601 @0x1b
0x45e6…4603 at001c = EOL // 0x4602 @0x1c
0x45e6…4603 }
0x4603…4645 dc33 02700 INPUT "<C2008Z>Indtast…driftslederl|n……………………………………………:…" : X ( 25 )
0x4603…4645 LineComal80 {
0x4603…4645 ptr = 0xdc33 // 0x4603 @0x0
0x4603…4645 lno = 0x0a8c // 0x4605 @0x2
0x4603…4645 at0004 = ╱91╱ INPUT ╱ // 0x4607 @0x4
0x4603…4645 at0005 = ╱22╱"╱ // 0x4608 @0x5
0x4603…4645 at0006 = ╱3c╱<╱ // 0x4609 @0x6
0x4603…4645 at0007 = ╱43╱C╱ // 0x460a @0x7
0x4603…4645 at0008 = ╱32╱2╱ // 0x460b @0x8
0x4603…4645 at0009 = ╱30╱0╱ // 0x460c @0x9
0x4603…4645 at000a = ╱30╱0╱ // 0x460d @0xa
0x4603…4645 at000b = ╱38╱8╱ // 0x460e @0xb
0x4603…4645 at000c = ╱5a╱Z╱ // 0x460f @0xc
0x4603…4645 at000d = ╱3e╱>╱ // 0x4610 @0xd
0x4603…4645 at000e = ╱49╱I╱ // 0x4611 @0xe
0x4603…4645 at000f = ╱6e╱n╱ // 0x4612 @0xf
0x4603…4645 at0010 = ╱64╱d╱ // 0x4613 @0x10
0x4603…4645 at0011 = ╱74╱t╱ // 0x4614 @0x11
0x4603…4645 at0012 = ╱61╱a╱ // 0x4615 @0x12
0x4603…4645 at0013 = ╱73╱s╱ // 0x4616 @0x13
0x4603…4645 at0014 = ╱74╱t╱ // 0x4617 @0x14
0x4603…4645 at0015 = ╱20╱…╱ // 0x4618 @0x15
0x4603…4645 at0016 = ╱64╱d╱ // 0x4619 @0x16
0x4603…4645 at0017 = ╱72╱r╱ // 0x461a @0x17
0x4603…4645 at0018 = ╱69╱i╱ // 0x461b @0x18
0x4603…4645 at0019 = ╱66╱f╱ // 0x461c @0x19
0x4603…4645 at001a = ╱74╱t╱ // 0x461d @0x1a
0x4603…4645 at001b = ╱73╱s╱ // 0x461e @0x1b
0x4603…4645 at001c = ╱6c╱l╱ // 0x461f @0x1c
0x4603…4645 at001d = ╱65╱e╱ // 0x4620 @0x1d
0x4603…4645 at001e = ╱64╱d╱ // 0x4621 @0x1e
0x4603…4645 at001f = ╱65╱e╱ // 0x4622 @0x1f
0x4603…4645 at0020 = ╱72╱r╱ // 0x4623 @0x20
0x4603…4645 at0021 = ╱6c╱l╱ // 0x4624 @0x21
0x4603…4645 at0022 = ╱7c╱|╱ // 0x4625 @0x22
0x4603…4645 at0023 = ╱6e╱n╱ // 0x4626 @0x23
0x4603…4645 at0024 = ╱20╱…╱ // 0x4627 @0x24
0x4603…4645 at0025 = ╱20╱…╱ // 0x4628 @0x25
0x4603…4645 at0026 = ╱20╱…╱ // 0x4629 @0x26
0x4603…4645 at0027 = ╱20╱…╱ // 0x462a @0x27
0x4603…4645 at0028 = ╱20╱…╱ // 0x462b @0x28
0x4603…4645 at0029 = ╱20╱…╱ // 0x462c @0x29
0x4603…4645 at002a = ╱20╱…╱ // 0x462d @0x2a
0x4603…4645 at002b = ╱20╱…╱ // 0x462e @0x2b
0x4603…4645 at002c = ╱20╱…╱ // 0x462f @0x2c
0x4603…4645 at002d = ╱20╱…╱ // 0x4630 @0x2d
0x4603…4645 at002e = ╱20╱…╱ // 0x4631 @0x2e
0x4603…4645 at002f = ╱20╱…╱ // 0x4632 @0x2f
0x4603…4645 at0030 = ╱20╱…╱ // 0x4633 @0x30
0x4603…4645 at0031 = ╱20╱…╱ // 0x4634 @0x31
0x4603…4645 at0032 = ╱20╱…╱ // 0x4635 @0x32
0x4603…4645 at0033 = ╱20╱…╱ // 0x4636 @0x33
0x4603…4645 at0034 = ╱20╱…╱ // 0x4637 @0x34
0x4603…4645 at0035 = ╱3a╱:╱ // 0x4638 @0x35
0x4603…4645 at0036 = ╱20╱…╱ // 0x4639 @0x36
0x4603…4645 at0037 = ╱22╱"╱ // 0x463a @0x37
0x4603…4645 at0038 = ╱f1╱ : ╱ // 0x463b @0x38
0x4603…4645 at0039 = ╱58╱X╱ // 0x463c @0x39
0x4603…4645 at003a = ╱ed╱ ( ╱ // 0x463d @0x3a
0x4603…4645 at003b = ╱32╱2╱ // 0x463e @0x3b
0x4603…4645 at003c = ╱35╱5╱ // 0x463f @0x3c
0x4603…4645 at003d = ╱f21900╱ // 0x4640 @0x3d
0x4603…4645 at0040 = ╱ee╱ ) ╱ // 0x4643 @0x40
0x4603…4645 at0041 = EOL // 0x4644 @0x41
0x4603…4645 }
0x4645…4682 dc70 02400 INPUT "<C2009Z>……………………lager…ialt,…primo………………………:…" : X ( 21 )
0x4645…4682 LineComal80 {
0x4645…4682 ptr = 0xdc70 // 0x4645 @0x0
0x4645…4682 lno = 0x0960 // 0x4647 @0x2
0x4645…4682 at0004 = ╱91╱ INPUT ╱ // 0x4649 @0x4
0x4645…4682 at0005 = ╱22╱"╱ // 0x464a @0x5
0x4645…4682 at0006 = ╱3c╱<╱ // 0x464b @0x6
0x4645…4682 at0007 = ╱43╱C╱ // 0x464c @0x7
0x4645…4682 at0008 = ╱32╱2╱ // 0x464d @0x8
0x4645…4682 at0009 = ╱30╱0╱ // 0x464e @0x9
0x4645…4682 at000a = ╱30╱0╱ // 0x464f @0xa
0x4645…4682 at000b = ╱39╱9╱ // 0x4650 @0xb
0x4645…4682 at000c = ╱5a╱Z╱ // 0x4651 @0xc
0x4645…4682 at000d = ╱3e╱>╱ // 0x4652 @0xd
0x4645…4682 at000e = ╱20╱…╱ // 0x4653 @0xe
0x4645…4682 at000f = ╱20╱…╱ // 0x4654 @0xf
0x4645…4682 at0010 = ╱20╱…╱ // 0x4655 @0x10
0x4645…4682 at0011 = ╱20╱…╱ // 0x4656 @0x11
0x4645…4682 at0012 = ╱20╱…╱ // 0x4657 @0x12
0x4645…4682 at0013 = ╱20╱…╱ // 0x4658 @0x13
0x4645…4682 at0014 = ╱20╱…╱ // 0x4659 @0x14
0x4645…4682 at0015 = ╱20╱…╱ // 0x465a @0x15
0x4645…4682 at0016 = ╱6c╱l╱ // 0x465b @0x16
0x4645…4682 at0017 = ╱61╱a╱ // 0x465c @0x17
0x4645…4682 at0018 = ╱67╱g╱ // 0x465d @0x18
0x4645…4682 at0019 = ╱65╱e╱ // 0x465e @0x19
0x4645…4682 at001a = ╱72╱r╱ // 0x465f @0x1a
0x4645…4682 at001b = ╱20╱…╱ // 0x4660 @0x1b
0x4645…4682 at001c = ╱69╱i╱ // 0x4661 @0x1c
0x4645…4682 at001d = ╱61╱a╱ // 0x4662 @0x1d
0x4645…4682 at001e = ╱6c╱l╱ // 0x4663 @0x1e
0x4645…4682 at001f = ╱74╱t╱ // 0x4664 @0x1f
0x4645…4682 at0020 = ╱2c╱,╱ // 0x4665 @0x20
0x4645…4682 at0021 = ╱20╱…╱ // 0x4666 @0x21
0x4645…4682 at0022 = ╱70╱p╱ // 0x4667 @0x22
0x4645…4682 at0023 = ╱72╱r╱ // 0x4668 @0x23
0x4645…4682 at0024 = ╱69╱i╱ // 0x4669 @0x24
0x4645…4682 at0025 = ╱6d╱m╱ // 0x466a @0x25
0x4645…4682 at0026 = ╱6f╱o╱ // 0x466b @0x26
0x4645…4682 at0027 = ╱20╱…╱ // 0x466c @0x27
0x4645…4682 at0028 = ╱20╱…╱ // 0x466d @0x28
0x4645…4682 at0029 = ╱20╱…╱ // 0x466e @0x29
0x4645…4682 at002a = ╱20╱…╱ // 0x466f @0x2a
0x4645…4682 at002b = ╱20╱…╱ // 0x4670 @0x2b
0x4645…4682 at002c = ╱20╱…╱ // 0x4671 @0x2c
0x4645…4682 at002d = ╱20╱…╱ // 0x4672 @0x2d
0x4645…4682 at002e = ╱20╱…╱ // 0x4673 @0x2e
0x4645…4682 at002f = ╱20╱…╱ // 0x4674 @0x2f
0x4645…4682 at0030 = ╱3a╱:╱ // 0x4675 @0x30
0x4645…4682 at0031 = ╱20╱…╱ // 0x4676 @0x31
0x4645…4682 at0032 = ╱22╱"╱ // 0x4677 @0x32
0x4645…4682 at0033 = ╱f1╱ : ╱ // 0x4678 @0x33
0x4645…4682 at0034 = ╱58╱X╱ // 0x4679 @0x34
0x4645…4682 at0035 = ╱ed╱ ( ╱ // 0x467a @0x35
0x4645…4682 at0036 = ╱32╱2╱ // 0x467b @0x36
0x4645…4682 at0037 = ╱31╱1╱ // 0x467c @0x37
0x4645…4682 at0038 = ╱f21500╱ // 0x467d @0x38
0x4645…4682 at003b = ╱ee╱ ) ╱ // 0x4680 @0x3b
0x4645…4682 at003c = EOL // 0x4681 @0x3c
0x4645…4682 }
0x4682…46bf dcad 02410 INPUT "<C2010Z>……………………\vrige…variable…omk.……A………:…" : X ( 27 )
0x4682…46bf LineComal80 {
0x4682…46bf ptr = 0xdcad // 0x4682 @0x0
0x4682…46bf lno = 0x096a // 0x4684 @0x2
0x4682…46bf at0004 = ╱91╱ INPUT ╱ // 0x4686 @0x4
0x4682…46bf at0005 = ╱22╱"╱ // 0x4687 @0x5
0x4682…46bf at0006 = ╱3c╱<╱ // 0x4688 @0x6
0x4682…46bf at0007 = ╱43╱C╱ // 0x4689 @0x7
0x4682…46bf at0008 = ╱32╱2╱ // 0x468a @0x8
0x4682…46bf at0009 = ╱30╱0╱ // 0x468b @0x9
0x4682…46bf at000a = ╱31╱1╱ // 0x468c @0xa
0x4682…46bf at000b = ╱30╱0╱ // 0x468d @0xb
0x4682…46bf at000c = ╱5a╱Z╱ // 0x468e @0xc
0x4682…46bf at000d = ╱3e╱>╱ // 0x468f @0xd
0x4682…46bf at000e = ╱20╱…╱ // 0x4690 @0xe
0x4682…46bf at000f = ╱20╱…╱ // 0x4691 @0xf
0x4682…46bf at0010 = ╱20╱…╱ // 0x4692 @0x10
0x4682…46bf at0011 = ╱20╱…╱ // 0x4693 @0x11
0x4682…46bf at0012 = ╱20╱…╱ // 0x4694 @0x12
0x4682…46bf at0013 = ╱20╱…╱ // 0x4695 @0x13
0x4682…46bf at0014 = ╱20╱…╱ // 0x4696 @0x14
0x4682…46bf at0015 = ╱20╱…╱ // 0x4697 @0x15
0x4682…46bf at0016 = ╱5c╱\╱ // 0x4698 @0x16
0x4682…46bf at0017 = ╱76╱v╱ // 0x4699 @0x17
0x4682…46bf at0018 = ╱72╱r╱ // 0x469a @0x18
0x4682…46bf at0019 = ╱69╱i╱ // 0x469b @0x19
0x4682…46bf at001a = ╱67╱g╱ // 0x469c @0x1a
0x4682…46bf at001b = ╱65╱e╱ // 0x469d @0x1b
0x4682…46bf at001c = ╱20╱…╱ // 0x469e @0x1c
0x4682…46bf at001d = ╱76╱v╱ // 0x469f @0x1d
0x4682…46bf at001e = ╱61╱a╱ // 0x46a0 @0x1e
0x4682…46bf at001f = ╱72╱r╱ // 0x46a1 @0x1f
0x4682…46bf at0020 = ╱69╱i╱ // 0x46a2 @0x20
0x4682…46bf at0021 = ╱61╱a╱ // 0x46a3 @0x21
0x4682…46bf at0022 = ╱62╱b╱ // 0x46a4 @0x22
0x4682…46bf at0023 = ╱6c╱l╱ // 0x46a5 @0x23
0x4682…46bf at0024 = ╱65╱e╱ // 0x46a6 @0x24
0x4682…46bf at0025 = ╱20╱…╱ // 0x46a7 @0x25
0x4682…46bf at0026 = ╱6f╱o╱ // 0x46a8 @0x26
0x4682…46bf at0027 = ╱6d╱m╱ // 0x46a9 @0x27
0x4682…46bf at0028 = ╱6b╱k╱ // 0x46aa @0x28
0x4682…46bf at0029 = ╱2e╱.╱ // 0x46ab @0x29
0x4682…46bf at002a = ╱20╱…╱ // 0x46ac @0x2a
0x4682…46bf at002b = ╱20╱…╱ // 0x46ad @0x2b
0x4682…46bf at002c = ╱41╱A╱ // 0x46ae @0x2c
0x4682…46bf at002d = ╱20╱…╱ // 0x46af @0x2d
0x4682…46bf at002e = ╱20╱…╱ // 0x46b0 @0x2e
0x4682…46bf at002f = ╱20╱…╱ // 0x46b1 @0x2f
0x4682…46bf at0030 = ╱3a╱:╱ // 0x46b2 @0x30
0x4682…46bf at0031 = ╱20╱…╱ // 0x46b3 @0x31
0x4682…46bf at0032 = ╱22╱"╱ // 0x46b4 @0x32
0x4682…46bf at0033 = ╱f1╱ : ╱ // 0x46b5 @0x33
0x4682…46bf at0034 = ╱58╱X╱ // 0x46b6 @0x34
0x4682…46bf at0035 = ╱ed╱ ( ╱ // 0x46b7 @0x35
0x4682…46bf at0036 = ╱32╱2╱ // 0x46b8 @0x36
0x4682…46bf at0037 = ╱37╱7╱ // 0x46b9 @0x37
0x4682…46bf at0038 = ╱f21b00╱ // 0x46ba @0x38
0x4682…46bf at003b = ╱ee╱ ) ╱ // 0x46bd @0x3b
0x4682…46bf at003c = EOL // 0x46be @0x3c
0x4682…46bf }
0x46bf…46fc dcea 02420 INPUT "<C2011Z>……………………\vrige…variable…omk.……B………:…" : X ( 28 )
0x46bf…46fc LineComal80 {
0x46bf…46fc ptr = 0xdcea // 0x46bf @0x0
0x46bf…46fc lno = 0x0974 // 0x46c1 @0x2
0x46bf…46fc at0004 = ╱91╱ INPUT ╱ // 0x46c3 @0x4
0x46bf…46fc at0005 = ╱22╱"╱ // 0x46c4 @0x5
0x46bf…46fc at0006 = ╱3c╱<╱ // 0x46c5 @0x6
0x46bf…46fc at0007 = ╱43╱C╱ // 0x46c6 @0x7
0x46bf…46fc at0008 = ╱32╱2╱ // 0x46c7 @0x8
0x46bf…46fc at0009 = ╱30╱0╱ // 0x46c8 @0x9
0x46bf…46fc at000a = ╱31╱1╱ // 0x46c9 @0xa
0x46bf…46fc at000b = ╱31╱1╱ // 0x46ca @0xb
0x46bf…46fc at000c = ╱5a╱Z╱ // 0x46cb @0xc
0x46bf…46fc at000d = ╱3e╱>╱ // 0x46cc @0xd
0x46bf…46fc at000e = ╱20╱…╱ // 0x46cd @0xe
0x46bf…46fc at000f = ╱20╱…╱ // 0x46ce @0xf
0x46bf…46fc at0010 = ╱20╱…╱ // 0x46cf @0x10
0x46bf…46fc at0011 = ╱20╱…╱ // 0x46d0 @0x11
0x46bf…46fc at0012 = ╱20╱…╱ // 0x46d1 @0x12
0x46bf…46fc at0013 = ╱20╱…╱ // 0x46d2 @0x13
0x46bf…46fc at0014 = ╱20╱…╱ // 0x46d3 @0x14
0x46bf…46fc at0015 = ╱20╱…╱ // 0x46d4 @0x15
0x46bf…46fc at0016 = ╱5c╱\╱ // 0x46d5 @0x16
0x46bf…46fc at0017 = ╱76╱v╱ // 0x46d6 @0x17
0x46bf…46fc at0018 = ╱72╱r╱ // 0x46d7 @0x18
0x46bf…46fc at0019 = ╱69╱i╱ // 0x46d8 @0x19
0x46bf…46fc at001a = ╱67╱g╱ // 0x46d9 @0x1a
0x46bf…46fc at001b = ╱65╱e╱ // 0x46da @0x1b
0x46bf…46fc at001c = ╱20╱…╱ // 0x46db @0x1c
0x46bf…46fc at001d = ╱76╱v╱ // 0x46dc @0x1d
0x46bf…46fc at001e = ╱61╱a╱ // 0x46dd @0x1e
0x46bf…46fc at001f = ╱72╱r╱ // 0x46de @0x1f
0x46bf…46fc at0020 = ╱69╱i╱ // 0x46df @0x20
0x46bf…46fc at0021 = ╱61╱a╱ // 0x46e0 @0x21
0x46bf…46fc at0022 = ╱62╱b╱ // 0x46e1 @0x22
0x46bf…46fc at0023 = ╱6c╱l╱ // 0x46e2 @0x23
0x46bf…46fc at0024 = ╱65╱e╱ // 0x46e3 @0x24
0x46bf…46fc at0025 = ╱20╱…╱ // 0x46e4 @0x25
0x46bf…46fc at0026 = ╱6f╱o╱ // 0x46e5 @0x26
0x46bf…46fc at0027 = ╱6d╱m╱ // 0x46e6 @0x27
0x46bf…46fc at0028 = ╱6b╱k╱ // 0x46e7 @0x28
0x46bf…46fc at0029 = ╱2e╱.╱ // 0x46e8 @0x29
0x46bf…46fc at002a = ╱20╱…╱ // 0x46e9 @0x2a
0x46bf…46fc at002b = ╱20╱…╱ // 0x46ea @0x2b
0x46bf…46fc at002c = ╱42╱B╱ // 0x46eb @0x2c
0x46bf…46fc at002d = ╱20╱…╱ // 0x46ec @0x2d
0x46bf…46fc at002e = ╱20╱…╱ // 0x46ed @0x2e
0x46bf…46fc at002f = ╱20╱…╱ // 0x46ee @0x2f
0x46bf…46fc at0030 = ╱3a╱:╱ // 0x46ef @0x30
0x46bf…46fc at0031 = ╱20╱…╱ // 0x46f0 @0x31
0x46bf…46fc at0032 = ╱22╱"╱ // 0x46f1 @0x32
0x46bf…46fc at0033 = ╱f1╱ : ╱ // 0x46f2 @0x33
0x46bf…46fc at0034 = ╱58╱X╱ // 0x46f3 @0x34
0x46bf…46fc at0035 = ╱ed╱ ( ╱ // 0x46f4 @0x35
0x46bf…46fc at0036 = ╱32╱2╱ // 0x46f5 @0x36
0x46bf…46fc at0037 = ╱38╱8╱ // 0x46f6 @0x37
0x46bf…46fc at0038 = ╱f21c00╱ // 0x46f7 @0x38
0x46bf…46fc at003b = ╱ee╱ ) ╱ // 0x46fa @0x3b
0x46bf…46fc at003c = EOL // 0x46fb @0x3c
0x46bf…46fc }
0x46fc…4739 (236,) da0c 02430 INPUT "<C2012Z>……………………\vrige…variable…omk.……C………:…" : X ( 29 )
0x46fc…4739 LineComal80 {
0x46fc…4739 ptr = 0xda0c // 0x46fc @0x0
0x46fc…4739 lno = 0x097e // 0x46fe @0x2
0x46fc…4739 at0004 = ╱91╱ INPUT ╱ // 0x4700 @0x4
0x46fc…4739 at0005 = ╱22╱"╱ // 0x4701 @0x5
0x46fc…4739 at0006 = ╱3c╱<╱ // 0x4702 @0x6
0x46fc…4739 at0007 = ╱43╱C╱ // 0x4703 @0x7
0x46fc…4739 at0008 = ╱32╱2╱ // 0x4704 @0x8
0x46fc…4739 at0009 = ╱30╱0╱ // 0x4705 @0x9
0x46fc…4739 at000a = ╱31╱1╱ // 0x4706 @0xa
0x46fc…4739 at000b = ╱32╱2╱ // 0x4707 @0xb
0x46fc…4739 at000c = ╱5a╱Z╱ // 0x4708 @0xc
0x46fc…4739 at000d = ╱3e╱>╱ // 0x4709 @0xd
0x46fc…4739 at000e = ╱20╱…╱ // 0x470a @0xe
0x46fc…4739 at000f = ╱20╱…╱ // 0x470b @0xf
0x46fc…4739 at0010 = ╱20╱…╱ // 0x470c @0x10
0x46fc…4739 at0011 = ╱20╱…╱ // 0x470d @0x11
0x46fc…4739 at0012 = ╱20╱…╱ // 0x470e @0x12
0x46fc…4739 at0013 = ╱20╱…╱ // 0x470f @0x13
0x46fc…4739 at0014 = ╱20╱…╱ // 0x4710 @0x14
0x46fc…4739 at0015 = ╱20╱…╱ // 0x4711 @0x15
0x46fc…4739 at0016 = ╱5c╱\╱ // 0x4712 @0x16
0x46fc…4739 at0017 = ╱76╱v╱ // 0x4713 @0x17
0x46fc…4739 at0018 = ╱72╱r╱ // 0x4714 @0x18
0x46fc…4739 at0019 = ╱69╱i╱ // 0x4715 @0x19
0x46fc…4739 at001a = ╱67╱g╱ // 0x4716 @0x1a
0x46fc…4739 at001b = ╱65╱e╱ // 0x4717 @0x1b
0x46fc…4739 at001c = ╱20╱…╱ // 0x4718 @0x1c
0x46fc…4739 at001d = ╱76╱v╱ // 0x4719 @0x1d
0x46fc…4739 at001e = ╱61╱a╱ // 0x471a @0x1e
0x46fc…4739 at001f = ╱72╱r╱ // 0x471b @0x1f
0x46fc…4739 at0020 = ╱69╱i╱ // 0x471c @0x20
0x46fc…4739 at0021 = ╱61╱a╱ // 0x471d @0x21
0x46fc…4739 at0022 = ╱62╱b╱ // 0x471e @0x22
0x46fc…4739 at0023 = ╱6c╱l╱ // 0x471f @0x23
0x46fc…4739 at0024 = ╱65╱e╱ // 0x4720 @0x24
0x46fc…4739 at0025 = ╱20╱…╱ // 0x4721 @0x25
0x46fc…4739 at0026 = ╱6f╱o╱ // 0x4722 @0x26
0x46fc…4739 at0027 = ╱6d╱m╱ // 0x4723 @0x27
0x46fc…4739 at0028 = ╱6b╱k╱ // 0x4724 @0x28
0x46fc…4739 at0029 = ╱2e╱.╱ // 0x4725 @0x29
0x46fc…4739 at002a = ╱20╱…╱ // 0x4726 @0x2a
0x46fc…4739 at002b = ╱20╱…╱ // 0x4727 @0x2b
0x46fc…4739 at002c = ╱43╱C╱ // 0x4728 @0x2c
0x46fc…4739 at002d = ╱20╱…╱ // 0x4729 @0x2d
0x46fc…4739 at002e = ╱20╱…╱ // 0x472a @0x2e
0x46fc…4739 at002f = ╱20╱…╱ // 0x472b @0x2f
0x46fc…4739 at0030 = ╱3a╱:╱ // 0x472c @0x30
0x46fc…4739 at0031 = ╱20╱…╱ // 0x472d @0x31
0x46fc…4739 at0032 = ╱22╱"╱ // 0x472e @0x32
0x46fc…4739 at0033 = ╱f1╱ : ╱ // 0x472f @0x33
0x46fc…4739 at0034 = ╱58╱X╱ // 0x4730 @0x34
0x46fc…4739 at0035 = ╱ed╱ ( ╱ // 0x4731 @0x35
0x46fc…4739 at0036 = ╱32╱2╱ // 0x4732 @0x36
0x46fc…4739 at0037 = ╱39╱9╱ // 0x4733 @0x37
0x46fc…4739 at0038 = ╱f21d00╱ // 0x4734 @0x38
0x46fc…4739 at003b = ╱ee╱ ) ╱ // 0x4737 @0x3b
0x46fc…4739 at003c = EOL // 0x4738 @0x3c
0x46fc…4739 }
0x4739…4776 dc33 02390 INPUT "<C2008Z>Indtast…driftslederl|n………………………………:…" : X ( 25 )
0x4739…4776 LineComal80 {
0x4739…4776 ptr = 0xdc33 // 0x4739 @0x0
0x4739…4776 lno = 0x0956 // 0x473b @0x2
0x4739…4776 at0004 = ╱91╱ INPUT ╱ // 0x473d @0x4
0x4739…4776 at0005 = ╱22╱"╱ // 0x473e @0x5
0x4739…4776 at0006 = ╱3c╱<╱ // 0x473f @0x6
0x4739…4776 at0007 = ╱43╱C╱ // 0x4740 @0x7
0x4739…4776 at0008 = ╱32╱2╱ // 0x4741 @0x8
0x4739…4776 at0009 = ╱30╱0╱ // 0x4742 @0x9
0x4739…4776 at000a = ╱30╱0╱ // 0x4743 @0xa
0x4739…4776 at000b = ╱38╱8╱ // 0x4744 @0xb
0x4739…4776 at000c = ╱5a╱Z╱ // 0x4745 @0xc
0x4739…4776 at000d = ╱3e╱>╱ // 0x4746 @0xd
0x4739…4776 at000e = ╱49╱I╱ // 0x4747 @0xe
0x4739…4776 at000f = ╱6e╱n╱ // 0x4748 @0xf
0x4739…4776 at0010 = ╱64╱d╱ // 0x4749 @0x10
0x4739…4776 at0011 = ╱74╱t╱ // 0x474a @0x11
0x4739…4776 at0012 = ╱61╱a╱ // 0x474b @0x12
0x4739…4776 at0013 = ╱73╱s╱ // 0x474c @0x13
0x4739…4776 at0014 = ╱74╱t╱ // 0x474d @0x14
0x4739…4776 at0015 = ╱20╱…╱ // 0x474e @0x15
0x4739…4776 at0016 = ╱64╱d╱ // 0x474f @0x16
0x4739…4776 at0017 = ╱72╱r╱ // 0x4750 @0x17
0x4739…4776 at0018 = ╱69╱i╱ // 0x4751 @0x18
0x4739…4776 at0019 = ╱66╱f╱ // 0x4752 @0x19
0x4739…4776 at001a = ╱74╱t╱ // 0x4753 @0x1a
0x4739…4776 at001b = ╱73╱s╱ // 0x4754 @0x1b
0x4739…4776 at001c = ╱6c╱l╱ // 0x4755 @0x1c
0x4739…4776 at001d = ╱65╱e╱ // 0x4756 @0x1d
0x4739…4776 at001e = ╱64╱d╱ // 0x4757 @0x1e
0x4739…4776 at001f = ╱65╱e╱ // 0x4758 @0x1f
0x4739…4776 at0020 = ╱72╱r╱ // 0x4759 @0x20
0x4739…4776 at0021 = ╱6c╱l╱ // 0x475a @0x21
0x4739…4776 at0022 = ╱7c╱|╱ // 0x475b @0x22
0x4739…4776 at0023 = ╱6e╱n╱ // 0x475c @0x23
0x4739…4776 at0024 = ╱20╱…╱ // 0x475d @0x24
0x4739…4776 at0025 = ╱20╱…╱ // 0x475e @0x25
0x4739…4776 at0026 = ╱20╱…╱ // 0x475f @0x26
0x4739…4776 at0027 = ╱20╱…╱ // 0x4760 @0x27
0x4739…4776 at0028 = ╱20╱…╱ // 0x4761 @0x28
0x4739…4776 at0029 = ╱20╱…╱ // 0x4762 @0x29
0x4739…4776 at002a = ╱20╱…╱ // 0x4763 @0x2a
0x4739…4776 at002b = ╱20╱…╱ // 0x4764 @0x2b
0x4739…4776 at002c = ╱20╱…╱ // 0x4765 @0x2c
0x4739…4776 at002d = ╱20╱…╱ // 0x4766 @0x2d
0x4739…4776 at002e = ╱20╱…╱ // 0x4767 @0x2e
0x4739…4776 at002f = ╱20╱…╱ // 0x4768 @0x2f
0x4739…4776 at0030 = ╱3a╱:╱ // 0x4769 @0x30
0x4739…4776 at0031 = ╱20╱…╱ // 0x476a @0x31
0x4739…4776 at0032 = ╱22╱"╱ // 0x476b @0x32
0x4739…4776 at0033 = ╱f1╱ : ╱ // 0x476c @0x33
0x4739…4776 at0034 = ╱58╱X╱ // 0x476d @0x34
0x4739…4776 at0035 = ╱ed╱ ( ╱ // 0x476e @0x35
0x4739…4776 at0036 = ╱32╱2╱ // 0x476f @0x36
0x4739…4776 at0037 = ╱35╱5╱ // 0x4770 @0x37
0x4739…4776 at0038 = ╱f21900╱ // 0x4771 @0x38
0x4739…4776 at003b = ╱ee╱ ) ╱ // 0x4774 @0x3b
0x4739…4776 at003c = EOL // 0x4775 @0x3c
0x4739…4776 }
0x4776…4785 6972 24944 p ╱00╱ ╱00╱ ╱05╱ ╱00╱ s ╱dd╱ IF //
0x4776…4785 LineComal80 {
0x4776…4785 ptr = 0x6972 // 0x4776 @0x0
0x4776…4785 lno = 0x6170 // 0x4778 @0x2
0x4776…4785 at0004 = ╱70╱p╱ // 0x477a @0x4
0x4776…4785 at0005 = ╱00╱ // 0x477b @0x5
0x4776…4785 at0006 = ╱00╱ // 0x477c @0x6
0x4776…4785 at0007 = ╱05╱ // 0x477d @0x7
0x4776…4785 at0008 = ╱00╱ // 0x477e @0x8
0x4776…4785 at0009 = ╱73╱s╱ // 0x477f @0x9
0x4776…4785 at000a = ╱dd╱ // 0x4780 @0xa
0x4776…4785 at000b = ╱820a╱ IF ╱ // 0x4781 @0xb
0x4776…4785 at000d = ╱89╱ // ╱ // 0x4783 @0xd
0x4776…4785 at000e = EOL // 0x4784 @0xe
0x4776…4785 }
0x4785…47b8 dda6 02700 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
0x4785…47b8 LineComal80 {
0x4785…47b8 ptr = 0xdda6 // 0x4785 @0x0
0x4785…47b8 lno = 0x0a8c // 0x4787 @0x2
0x4785…47b8 at0004 = ╱9e2a╱ PROC ╱ // 0x4789 @0x4
0x4785…47b8 at0006 = ╱50╱P╱ // 0x478b @0x6
0x4785…47b8 at0007 = ╱52╱R╱ // 0x478c @0x7
0x4785…47b8 at0008 = ╱49╱I╱ // 0x478d @0x8
0x4785…47b8 at0009 = ╱4e╱N╱ // 0x478e @0x9
0x4785…47b8 at000a = ╱54╱T╱ // 0x478f @0xa
0x4785…47b8 at000b = ╱52╱R╱ // 0x4790 @0xb
0x4785…47b8 at000c = ╱45╱E╱ // 0x4791 @0xc
0x4785…47b8 at000d = ╱53╱S╱ // 0x4792 @0xd
0x4785…47b8 at000e = ╱ed╱ ( ╱ // 0x4793 @0xe
0x4785…47b8 at000f = ╱50╱P╱ // 0x4794 @0xf
0x4785…47b8 at0010 = ╱41╱A╱ // 0x4795 @0x10
0x4785…47b8 at0011 = ╱47╱G╱ // 0x4796 @0x11
0x4785…47b8 at0012 = ╱45╱E╱ // 0x4797 @0x12
0x4785…47b8 at0013 = ╱54╱T╱ // 0x4798 @0x13
0x4785…47b8 at0014 = ╱59╱Y╱ // 0x4799 @0x14
0x4785…47b8 at0015 = ╱50╱P╱ // 0x479a @0x15
0x4785…47b8 at0016 = ╱45╱E╱ // 0x479b @0x16
0x4785…47b8 at0017 = ╱ef╱ $ ╱ // 0x479c @0x17
0x4785…47b8 at0018 = ╱ec╱ , ╱ // 0x479d @0x18
0x4785…47b8 at0019 = ╱4c╱L╱ // 0x479e @0x19
0x4785…47b8 at001a = ╱49╱I╱ // 0x479f @0x1a
0x4785…47b8 at001b = ╱4e╱N╱ // 0x47a0 @0x1b
0x4785…47b8 at001c = ╱45╱E╱ // 0x47a1 @0x1c
0x4785…47b8 at001d = ╱ee╱ ) ╱ // 0x47a2 @0x1d
0x4785…47b8 at001e = ╱89╱ // ╱ // 0x47a3 @0x1e
0x4785…47b8 at001f = ╱50╱P╱ // 0x47a4 @0x1f
0x4785…47b8 at0020 = ╱52╱R╱ // 0x47a5 @0x20
0x4785…47b8 at0021 = ╱49╱I╱ // 0x47a6 @0x21
0x4785…47b8 at0022 = ╱4e╱N╱ // 0x47a7 @0x22
0x4785…47b8 at0023 = ╱54╱T╱ // 0x47a8 @0x23
0x4785…47b8 at0024 = ╱45╱E╱ // 0x47a9 @0x24
0x4785…47b8 at0025 = ╱52╱R╱ // 0x47aa @0x25
0x4785…47b8 at0026 = ╱20╱…╱ // 0x47ab @0x26
0x4785…47b8 at0027 = ╱52╱R╱ // 0x47ac @0x27
0x4785…47b8 at0028 = ╱45╱E╱ // 0x47ad @0x28
0x4785…47b8 at0029 = ╱53╱S╱ // 0x47ae @0x29
0x4785…47b8 at002a = ╱45╱E╱ // 0x47af @0x2a
0x4785…47b8 at002b = ╱52╱R╱ // 0x47b0 @0x2b
0x4785…47b8 at002c = ╱56╱V╱ // 0x47b1 @0x2c
0x4785…47b8 at002d = ╱41╱A╱ // 0x47b2 @0x2d
0x4785…47b8 at002e = ╱54╱T╱ // 0x47b3 @0x2e
0x4785…47b8 at002f = ╱49╱I╱ // 0x47b4 @0x2f
0x4785…47b8 at0030 = ╱4f╱O╱ // 0x47b5 @0x30
0x4785…47b8 at0031 = ╱4e╱N╱ // 0x47b6 @0x31
0x4785…47b8 at0032 = EOL // 0x47b7 @0x32
0x4785…47b8 }
0x47b8…47d0 ddbe 02710 LET PRTNR $ := "1" ; OK := TRUE
0x47b8…47d0 LineComal80 {
0x47b8…47d0 ptr = 0xddbe // 0x47b8 @0x0
0x47b8…47d0 lno = 0x0a96 // 0x47ba @0x2
0x47b8…47d0 at0004 = ╱86╱ LET ╱ // 0x47bc @0x4
0x47b8…47d0 at0005 = ╱50╱P╱ // 0x47bd @0x5
0x47b8…47d0 at0006 = ╱52╱R╱ // 0x47be @0x6
0x47b8…47d0 at0007 = ╱54╱T╱ // 0x47bf @0x7
0x47b8…47d0 at0008 = ╱4e╱N╱ // 0x47c0 @0x8
0x47b8…47d0 at0009 = ╱52╱R╱ // 0x47c1 @0x9
0x47b8…47d0 at000a = ╱ef╱ $ ╱ // 0x47c2 @0xa
0x47b8…47d0 at000b = ╱f0╱ := ╱ // 0x47c3 @0xb
0x47b8…47d0 at000c = ╱22╱"╱ // 0x47c4 @0xc
0x47b8…47d0 at000d = ╱31╱1╱ // 0x47c5 @0xd
0x47b8…47d0 at000e = ╱22╱"╱ // 0x47c6 @0xe
0x47b8…47d0 at000f = ╱ea╱ ; ╱ // 0x47c7 @0xf
0x47b8…47d0 at0010 = ╱4f╱O╱ // 0x47c8 @0x10
0x47b8…47d0 at0011 = ╱4b╱K╱ // 0x47c9 @0x11
0x47b8…47d0 at0012 = ╱f0╱ := ╱ // 0x47ca @0x12
0x47b8…47d0 at0013 = ╱54╱T╱ // 0x47cb @0x13
0x47b8…47d0 at0014 = ╱52╱R╱ // 0x47cc @0x14
0x47b8…47d0 at0015 = ╱55╱U╱ // 0x47cd @0x15
0x47b8…47d0 at0016 = ╱45╱E╱ // 0x47ce @0x16
0x47b8…47d0 at0017 = EOL // 0x47cf @0x17
0x47b8…47d0 }
0x47d0…47d7 ddc5 02720 REPEAT
0x47d0…47d7 LineComal80 {
0x47d0…47d7 ptr = 0xddc5 // 0x47d0 @0x0
0x47d0…47d7 lno = 0x0aa0 // 0x47d2 @0x2
0x47d0…47d7 at0004 = ╱972b╱ REPEAT ╱ // 0x47d4 @0x4
0x47d0…47d7 at0006 = EOL // 0x47d6 @0x6
0x47d0…47d7 }
0x47d7…47e7 ddd5 02730 CURSOR 15 , LINE
0x47d7…47e7 LineComal80 {
0x47d7…47e7 ptr = 0xddd5 // 0x47d7 @0x0
0x47d7…47e7 lno = 0x0aaa // 0x47d9 @0x2
0x47d7…47e7 at0004 = ╱a1╱ CURSOR ╱ // 0x47db @0x4
0x47d7…47e7 at0005 = ╱31╱1╱ // 0x47dc @0x5
0x47d7…47e7 at0006 = ╱35╱5╱ // 0x47dd @0x6
0x47d7…47e7 at0007 = ╱f20f00╱ // 0x47de @0x7
0x47d7…47e7 at000a = ╱ec╱ , ╱ // 0x47e1 @0xa
0x47d7…47e7 at000b = ╱4c╱L╱ // 0x47e2 @0xb
0x47d7…47e7 at000c = ╱49╱I╱ // 0x47e3 @0xc
0x47d7…47e7 at000d = ╱4e╱N╱ // 0x47e4 @0xd
0x47d7…47e7 at000e = ╱45╱E╱ // 0x47e5 @0xe
0x47d7…47e7 at000f = EOL // 0x47e6 @0xf
0x47d7…47e7 }
0x47e7…4820 de0e 02740 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
0x47e7…4820 LineComal80 {
0x47e7…4820 ptr = 0xde0e // 0x47e7 @0x0
0x47e7…4820 lno = 0x0ab4 // 0x47e9 @0x2
0x47e7…4820 at0004 = ╱b1╱ EDIT ╱ // 0x47eb @0x4
0x47e7…4820 at0005 = ╱22╱"╱ // 0x47ec @0x5
0x47e7…4820 at0006 = ╱3c╱<╱ // 0x47ed @0x6
0x47e7…4820 at0007 = ╱5a╱Z╱ // 0x47ee @0x7
0x47e7…4820 at0008 = ╱3e╱>╱ // 0x47ef @0x8
0x47e7…4820 at0009 = ╱55╱U╱ // 0x47f0 @0x9
0x47e7…4820 at000a = ╱64╱d╱ // 0x47f1 @0xa
0x47e7…4820 at000b = ╱73╱s╱ // 0x47f2 @0xb
0x47e7…4820 at000c = ╱6b╱k╱ // 0x47f3 @0xc
0x47e7…4820 at000d = ╱72╱r╱ // 0x47f4 @0xd
0x47e7…4820 at000e = ╱69╱i╱ // 0x47f5 @0xe
0x47e7…4820 at000f = ╱76╱v╱ // 0x47f6 @0xf
0x47e7…4820 at0010 = ╱6e╱n╱ // 0x47f7 @0x10
0x47e7…4820 at0011 = ╱69╱i╱ // 0x47f8 @0x11
0x47e7…4820 at0012 = ╱6e╱n╱ // 0x47f9 @0x12
0x47e7…4820 at0013 = ╱67╱g╱ // 0x47fa @0x13
0x47e7…4820 at0014 = ╱20╱…╱ // 0x47fb @0x14
0x47e7…4820 at0015 = ╱70╱p╱ // 0x47fc @0x15
0x47e7…4820 at0016 = ╱7d╱}╱ // 0x47fd @0x16
0x47e7…4820 at0017 = ╱20╱…╱ // 0x47fe @0x17
0x47e7…4820 at0018 = ╱70╱p╱ // 0x47ff @0x18
0x47e7…4820 at0019 = ╱72╱r╱ // 0x4800 @0x19
0x47e7…4820 at001a = ╱69╱i╱ // 0x4801 @0x1a
0x47e7…4820 at001b = ╱6e╱n╱ // 0x4802 @0x1b
0x47e7…4820 at001c = ╱74╱t╱ // 0x4803 @0x1c
0x47e7…4820 at001d = ╱65╱e╱ // 0x4804 @0x1d
0x47e7…4820 at001e = ╱72╱r╱ // 0x4805 @0x1e
0x47e7…4820 at001f = ╱20╱…╱ // 0x4806 @0x1f
0x47e7…4820 at0020 = ╱6e╱n╱ // 0x4807 @0x20
0x47e7…4820 at0021 = ╱72╱r╱ // 0x4808 @0x21
0x47e7…4820 at0022 = ╱2e╱.╱ // 0x4809 @0x22
0x47e7…4820 at0023 = ╱20╱…╱ // 0x480a @0x23
0x47e7…4820 at0024 = ╱3f╱?╱ // 0x480b @0x24
0x47e7…4820 at0025 = ╱20╱…╱ // 0x480c @0x25
0x47e7…4820 at0026 = ╱28╱(╱ // 0x480d @0x26
0x47e7…4820 at0027 = ╱31╱1╱ // 0x480e @0x27
0x47e7…4820 at0028 = ╱2f╱/╱ // 0x480f @0x28
0x47e7…4820 at0029 = ╱32╱2╱ // 0x4810 @0x29
0x47e7…4820 at002a = ╱2f╱/╱ // 0x4811 @0x2a
0x47e7…4820 at002b = ╱33╱3╱ // 0x4812 @0x2b
0x47e7…4820 at002c = ╱2f╱/╱ // 0x4813 @0x2c
0x47e7…4820 at002d = ╱34╱4╱ // 0x4814 @0x2d
0x47e7…4820 at002e = ╱29╱)╱ // 0x4815 @0x2e
0x47e7…4820 at002f = ╱20╱…╱ // 0x4816 @0x2f
0x47e7…4820 at0030 = ╱22╱"╱ // 0x4817 @0x30
0x47e7…4820 at0031 = ╱f1╱ : ╱ // 0x4818 @0x31
0x47e7…4820 at0032 = ╱50╱P╱ // 0x4819 @0x32
0x47e7…4820 at0033 = ╱52╱R╱ // 0x481a @0x33
0x47e7…4820 at0034 = ╱54╱T╱ // 0x481b @0x34
0x47e7…4820 at0035 = ╱4e╱N╱ // 0x481c @0x35
0x47e7…4820 at0036 = ╱52╱R╱ // 0x481d @0x36
0x47e7…4820 at0037 = ╱ef╱ $ ╱ // 0x481e @0x37
0x47e7…4820 at0038 = EOL // 0x481f @0x38
0x47e7…4820 }
0x4820…4840 de2e 02750 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
0x4820…4840 LineComal80 {
0x4820…4840 ptr = 0xde2e // 0x4820 @0x0
0x4820…4840 lno = 0x0abe // 0x4822 @0x2
0x4820…4840 at0004 = ╱98╱ UNTIL ╱ // 0x4824 @0x4
0x4820…4840 at0005 = ╱22╱"╱ // 0x4825 @0x5
0x4820…4840 at0006 = ╱2f╱/╱ // 0x4826 @0x6
0x4820…4840 at0007 = ╱22╱"╱ // 0x4827 @0x7
0x4820…4840 at0008 = ╱eb╱ + ╱ // 0x4828 @0x8
0x4820…4840 at0009 = ╱50╱P╱ // 0x4829 @0x9
0x4820…4840 at000a = ╱52╱R╱ // 0x482a @0xa
0x4820…4840 at000b = ╱54╱T╱ // 0x482b @0xb
0x4820…4840 at000c = ╱4e╱N╱ // 0x482c @0xc
0x4820…4840 at000d = ╱52╱R╱ // 0x482d @0xd
0x4820…4840 at000e = ╱ef╱ $ ╱ // 0x482e @0xe
0x4820…4840 at000f = ╱eb╱ + ╱ // 0x482f @0xf
0x4820…4840 at0010 = ╱22╱"╱ // 0x4830 @0x10
0x4820…4840 at0011 = ╱2f╱/╱ // 0x4831 @0x11
0x4820…4840 at0012 = ╱22╱"╱ // 0x4832 @0x12
0x4820…4840 at0013 = ╱dc╱ IN ╱ // 0x4833 @0x13
0x4820…4840 at0014 = ╱22╱"╱ // 0x4834 @0x14
0x4820…4840 at0015 = ╱2f╱/╱ // 0x4835 @0x15
0x4820…4840 at0016 = ╱31╱1╱ // 0x4836 @0x16
0x4820…4840 at0017 = ╱2f╱/╱ // 0x4837 @0x17
0x4820…4840 at0018 = ╱32╱2╱ // 0x4838 @0x18
0x4820…4840 at0019 = ╱2f╱/╱ // 0x4839 @0x19
0x4820…4840 at001a = ╱33╱3╱ // 0x483a @0x1a
0x4820…4840 at001b = ╱2f╱/╱ // 0x483b @0x1b
0x4820…4840 at001c = ╱34╱4╱ // 0x483c @0x1c
0x4820…4840 at001d = ╱2f╱/╱ // 0x483d @0x1d
0x4820…4840 at001e = ╱22╱"╱ // 0x483e @0x1e
0x4820…4840 at001f = EOL // 0x483f @0x1f
0x4820…4840 }
0x4840…484f de3d 02760 CURSOR 1 , LINE
0x4840…484f LineComal80 {
0x4840…484f ptr = 0xde3d // 0x4840 @0x0
0x4840…484f lno = 0x0ac8 // 0x4842 @0x2
0x4840…484f at0004 = ╱a1╱ CURSOR ╱ // 0x4844 @0x4
0x4840…484f at0005 = ╱31╱1╱ // 0x4845 @0x5
0x4840…484f at0006 = ╱f20100╱ // 0x4846 @0x6
0x4840…484f at0009 = ╱ec╱ , ╱ // 0x4849 @0x9
0x4840…484f at000a = ╱4c╱L╱ // 0x484a @0xa
0x4840…484f at000b = ╱49╱I╱ // 0x484b @0xb
0x4840…484f at000c = ╱4e╱N╱ // 0x484c @0xc
0x4840…484f at000d = ╱45╱E╱ // 0x484d @0xd
0x4840…484f at000e = EOL // 0x484e @0xe
0x4840…484f }
0x484f…485a de48 02770 PRINT "<Z>"
0x484f…485a LineComal80 {
0x484f…485a ptr = 0xde48 // 0x484f @0x0
0x484f…485a lno = 0x0ad2 // 0x4851 @0x2
0x484f…485a at0004 = ╱92╱ PRINT ╱ // 0x4853 @0x4
0x484f…485a at0005 = ╱22╱"╱ // 0x4854 @0x5
0x484f…485a at0006 = ╱3c╱<╱ // 0x4855 @0x6
0x484f…485a at0007 = ╱5a╱Z╱ // 0x4856 @0x7
0x484f…485a at0008 = ╱3e╱>╱ // 0x4857 @0x8
0x484f…485a at0009 = ╱22╱"╱ // 0x4858 @0x9
0x484f…485a at000a = EOL // 0x4859 @0xa
0x484f…485a }
0x485a…487e de6c 02780 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
0x485a…487e LineComal80 {
0x485a…487e ptr = 0xde6c // 0x485a @0x0
0x485a…487e lno = 0x0adc // 0x485c @0x2
0x485a…487e at0004 = ╱a1╱ CURSOR ╱ // 0x485e @0x4
0x485a…487e at0005 = ╱ed╱ ( ╱ // 0x485f @0x5
0x485a…487e at0006 = ╱33╱3╱ // 0x4860 @0x6
0x485a…487e at0007 = ╱39╱9╱ // 0x4861 @0x7
0x485a…487e at0008 = ╱f22700╱ // 0x4862 @0x8
0x485a…487e at000b = ╱e6╱ - ╱ // 0x4865 @0xb
0x485a…487e at000c = ╱cb╱ // 0x4866 @0xc
0x485a…487e at000d = ╱ed╱ ( ╱ // 0x4867 @0xd
0x485a…487e at000e = ╱50╱P╱ // 0x4868 @0xe
0x485a…487e at000f = ╱41╱A╱ // 0x4869 @0xf
0x485a…487e at0010 = ╱47╱G╱ // 0x486a @0x10
0x485a…487e at0011 = ╱45╱E╱ // 0x486b @0x11
0x485a…487e at0012 = ╱54╱T╱ // 0x486c @0x12
0x485a…487e at0013 = ╱59╱Y╱ // 0x486d @0x13
0x485a…487e at0014 = ╱50╱P╱ // 0x486e @0x14
0x485a…487e at0015 = ╱45╱E╱ // 0x486f @0x15
0x485a…487e at0016 = ╱ef╱ $ ╱ // 0x4870 @0x16
0x485a…487e at0017 = ╱ee╱ ) ╱ // 0x4871 @0x17
0x485a…487e at0018 = ╱ee╱ ) ╱ // 0x4872 @0x18
0x485a…487e at0019 = ╱da╱ DIV ╱ // 0x4873 @0x19
0x485a…487e at001a = ╱32╱2╱ // 0x4874 @0x1a
0x485a…487e at001b = ╱f20200╱ // 0x4875 @0x1b
0x485a…487e at001e = ╱ec╱ , ╱ // 0x4878 @0x1e
0x485a…487e at001f = ╱4c╱L╱ // 0x4879 @0x1f
0x485a…487e at0020 = ╱49╱I╱ // 0x487a @0x20
0x485a…487e at0021 = ╱4e╱N╱ // 0x487b @0x21
0x485a…487e at0022 = ╱45╱E╱ // 0x487c @0x22
0x485a…487e at0023 = EOL // 0x487d @0x23
0x485a…487e }
0x487e…48be deac 02790 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
0x487e…48be LineComal80 {
0x487e…48be ptr = 0xdeac // 0x487e @0x0
0x487e…48be lno = 0x0ae6 // 0x4880 @0x2
0x487e…48be at0004 = ╱92╱ PRINT ╱ // 0x4882 @0x4
0x487e…48be at0005 = ╱22╱"╱ // 0x4883 @0x5
0x487e…48be at0006 = ╱3c╱<╱ // 0x4884 @0x6
0x487e…48be at0007 = ╱53╱S╱ // 0x4885 @0x7
0x487e…48be at0008 = ╱5a╱Z╱ // 0x4886 @0x8
0x487e…48be at0009 = ╱3e╱>╱ // 0x4887 @0x9
0x487e…48be at000a = ╱20╱…╱ // 0x4888 @0xa
0x487e…48be at000b = ╱20╱…╱ // 0x4889 @0xb
0x487e…48be at000c = ╱20╱…╱ // 0x488a @0xc
0x487e…48be at000d = ╱20╱…╱ // 0x488b @0xd
0x487e…48be at000e = ╱20╱…╱ // 0x488c @0xe
0x487e…48be at000f = ╱4d╱M╱ // 0x488d @0xf
0x487e…48be at0010 = ╱6f╱o╱ // 0x488e @0x10
0x487e…48be at0011 = ╱6e╱n╱ // 0x488f @0x11
0x487e…48be at0012 = ╱74╱t╱ // 0x4890 @0x12
0x487e…48be at0013 = ╱65╱e╱ // 0x4891 @0x13
0x487e…48be at0014 = ╱72╱r╱ // 0x4892 @0x14
0x487e…48be at0015 = ╱20╱…╱ // 0x4893 @0x15
0x487e…48be at0016 = ╱22╱"╱ // 0x4894 @0x16
0x487e…48be at0017 = ╱ea╱ ; ╱ // 0x4895 @0x17
0x487e…48be at0018 = ╱50╱P╱ // 0x4896 @0x18
0x487e…48be at0019 = ╱41╱A╱ // 0x4897 @0x19
0x487e…48be at001a = ╱47╱G╱ // 0x4898 @0x1a
0x487e…48be at001b = ╱45╱E╱ // 0x4899 @0x1b
0x487e…48be at001c = ╱54╱T╱ // 0x489a @0x1c
0x487e…48be at001d = ╱59╱Y╱ // 0x489b @0x1d
0x487e…48be at001e = ╱50╱P╱ // 0x489c @0x1e
0x487e…48be at001f = ╱45╱E╱ // 0x489d @0x1f
0x487e…48be at0020 = ╱ef╱ $ ╱ // 0x489e @0x20
0x487e…48be at0021 = ╱ea╱ ; ╱ // 0x489f @0x21
0x487e…48be at0022 = ╱22╱"╱ // 0x48a0 @0x22
0x487e…48be at0023 = ╱20╱…╱ // 0x48a1 @0x23
0x487e…48be at0024 = ╱69╱i╱ // 0x48a2 @0x24
0x487e…48be at0025 = ╱20╱…╱ // 0x48a3 @0x25
0x487e…48be at0026 = ╱70╱p╱ // 0x48a4 @0x26
0x487e…48be at0027 = ╱72╱r╱ // 0x48a5 @0x27
0x487e…48be at0028 = ╱69╱i╱ // 0x48a6 @0x28
0x487e…48be at0029 = ╱6e╱n╱ // 0x48a7 @0x29
0x487e…48be at002a = ╱74╱t╱ // 0x48a8 @0x2a
0x487e…48be at002b = ╱65╱e╱ // 0x48a9 @0x2b
0x487e…48be at002c = ╱72╱r╱ // 0x48aa @0x2c
0x487e…48be at002d = ╱65╱e╱ // 0x48ab @0x2d
0x487e…48be at002e = ╱6e╱n╱ // 0x48ac @0x2e
0x487e…48be at002f = ╱20╱…╱ // 0x48ad @0x2f
0x487e…48be at0030 = ╱2d╱-╱ // 0x48ae @0x30
0x487e…48be at0031 = ╱20╱…╱ // 0x48af @0x31
0x487e…48be at0032 = ╱74╱t╱ // 0x48b0 @0x32
0x487e…48be at0033 = ╱72╱r╱ // 0x48b1 @0x33
0x487e…48be at0034 = ╱79╱y╱ // 0x48b2 @0x34
0x487e…48be at0035 = ╱6b╱k╱ // 0x48b3 @0x35
0x487e…48be at0036 = ╱20╱…╱ // 0x48b4 @0x36
0x487e…48be at0037 = ╱52╱R╱ // 0x48b5 @0x37
0x487e…48be at0038 = ╱45╱E╱ // 0x48b6 @0x38
0x487e…48be at0039 = ╱54╱T╱ // 0x48b7 @0x39
0x487e…48be at003a = ╱55╱U╱ // 0x48b8 @0x3a
0x487e…48be at003b = ╱52╱R╱ // 0x48b9 @0x3b
0x487e…48be at003c = ╱4e╱N╱ // 0x48ba @0x3c
0x487e…48be at003d = ╱20╱…╱ // 0x48bb @0x3d
0x487e…48be at003e = ╱22╱"╱ // 0x48bc @0x3e
0x487e…48be at003f = EOL // 0x48bd @0x3f
0x487e…48be }
0x48be…48cc deba 02800 INPUT "" : SVAR $
0x48be…48cc LineComal80 {
0x48be…48cc ptr = 0xdeba // 0x48be @0x0
0x48be…48cc lno = 0x0af0 // 0x48c0 @0x2
0x48be…48cc at0004 = ╱91╱ INPUT ╱ // 0x48c2 @0x4
0x48be…48cc at0005 = ╱22╱"╱ // 0x48c3 @0x5
0x48be…48cc at0006 = ╱22╱"╱ // 0x48c4 @0x6
0x48be…48cc at0007 = ╱f1╱ : ╱ // 0x48c5 @0x7
0x48be…48cc at0008 = ╱53╱S╱ // 0x48c6 @0x8
0x48be…48cc at0009 = ╱56╱V╱ // 0x48c7 @0x9
0x48be…48cc at000a = ╱41╱A╱ // 0x48c8 @0xa
0x48be…48cc at000b = ╱52╱R╱ // 0x48c9 @0xb
0x48be…48cc at000c = ╱ef╱ $ ╱ // 0x48ca @0xc
0x48be…48cc at000d = EOL // 0x48cb @0xd
0x48be…48cc }
0x48cc…48dc deca 02810 SELECT OUTPUT "P" + PRTNR $
0x48cc…48dc LineComal80 {
0x48cc…48dc ptr = 0xdeca // 0x48cc @0x0
0x48cc…48dc lno = 0x0afa // 0x48ce @0x2
0x48cc…48dc at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x48d0 @0x4
0x48cc…48dc at0005 = ╱22╱"╱ // 0x48d1 @0x5
0x48cc…48dc at0006 = ╱50╱P╱ // 0x48d2 @0x6
0x48cc…48dc at0007 = ╱22╱"╱ // 0x48d3 @0x7
0x48cc…48dc at0008 = ╱eb╱ + ╱ // 0x48d4 @0x8
0x48cc…48dc at0009 = ╱50╱P╱ // 0x48d5 @0x9
0x48cc…48dc at000a = ╱52╱R╱ // 0x48d6 @0xa
0x48cc…48dc at000b = ╱54╱T╱ // 0x48d7 @0xb
0x48cc…48dc at000c = ╱4e╱N╱ // 0x48d8 @0xc
0x48cc…48dc at000d = ╱52╱R╱ // 0x48d9 @0xd
0x48cc…48dc at000e = ╱ef╱ $ ╱ // 0x48da @0xe
0x48cc…48dc at000f = EOL // 0x48db @0xf
0x48cc…48dc }
0x48dc…48ea ded8 02820 IF ( "P" ) THEN
0x48dc…48ea LineComal80 {
0x48dc…48ea ptr = 0xded8 // 0x48dc @0x0
0x48dc…48ea lno = 0x0b04 // 0x48de @0x2
0x48dc…48ea at0004 = ╱9b2ccd╱ IF ╱ // 0x48e0 @0x4
0x48dc…48ea at0007 = ╱ed╱ ( ╱ // 0x48e3 @0x7
0x48dc…48ea at0008 = ╱22╱"╱ // 0x48e4 @0x8
0x48dc…48ea at0009 = ╱50╱P╱ // 0x48e5 @0x9
0x48dc…48ea at000a = ╱22╱"╱ // 0x48e6 @0xa
0x48dc…48ea at000b = ╱ee╱ ) ╱ // 0x48e7 @0xb
0x48dc…48ea at000c = ╱b5╱ THEN ╱ // 0x48e8 @0xc
0x48dc…48ea at000d = EOL // 0x48e9 @0xd
0x48dc…48ea }
0x48ea…48fa dee8 02830 CURSOR 12 , LINE
0x48ea…48fa LineComal80 {
0x48ea…48fa ptr = 0xdee8 // 0x48ea @0x0
0x48ea…48fa lno = 0x0b0e // 0x48ec @0x2
0x48ea…48fa at0004 = ╱a1╱ CURSOR ╱ // 0x48ee @0x4
0x48ea…48fa at0005 = ╱31╱1╱ // 0x48ef @0x5
0x48ea…48fa at0006 = ╱32╱2╱ // 0x48f0 @0x6
0x48ea…48fa at0007 = ╱f20c00╱ // 0x48f1 @0x7
0x48ea…48fa at000a = ╱ec╱ , ╱ // 0x48f4 @0xa
0x48ea…48fa at000b = ╱4c╱L╱ // 0x48f5 @0xb
0x48ea…48fa at000c = ╱49╱I╱ // 0x48f6 @0xc
0x48ea…48fa at000d = ╱4e╱N╱ // 0x48f7 @0xd
0x48ea…48fa at000e = ╱45╱E╱ // 0x48f8 @0xe
0x48ea…48fa at000f = EOL // 0x48f9 @0xf
0x48ea…48fa }
0x48fa…4931 df1f 02840 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
0x48fa…4931 LineComal80 {
0x48fa…4931 ptr = 0xdf1f // 0x48fa @0x0
0x48fa…4931 lno = 0x0b18 // 0x48fc @0x2
0x48fa…4931 at0004 = ╱92╱ PRINT ╱ // 0x48fe @0x4
0x48fa…4931 at0005 = ╱22╱"╱ // 0x48ff @0x5
0x48fa…4931 at0006 = ╱3c╱<╱ // 0x4900 @0x6
0x48fa…4931 at0007 = ╱53╱S╱ // 0x4901 @0x7
0x48fa…4931 at0008 = ╱5a╱Z╱ // 0x4902 @0x8
0x48fa…4931 at0009 = ╱3e╱>╱ // 0x4903 @0x9
0x48fa…4931 at000a = ╱50╱P╱ // 0x4904 @0xa
0x48fa…4931 at000b = ╱72╱r╱ // 0x4905 @0xb
0x48fa…4931 at000c = ╱69╱i╱ // 0x4906 @0xc
0x48fa…4931 at000d = ╱6e╱n╱ // 0x4907 @0xd
0x48fa…4931 at000e = ╱74╱t╱ // 0x4908 @0xe
0x48fa…4931 at000f = ╱65╱e╱ // 0x4909 @0xf
0x48fa…4931 at0010 = ╱72╱r╱ // 0x490a @0x10
0x48fa…4931 at0011 = ╱65╱e╱ // 0x490b @0x11
0x48fa…4931 at0012 = ╱6e╱n╱ // 0x490c @0x12
0x48fa…4931 at0013 = ╱20╱…╱ // 0x490d @0x13
0x48fa…4931 at0014 = ╱65╱e╱ // 0x490e @0x14
0x48fa…4931 at0015 = ╱72╱r╱ // 0x490f @0x15
0x48fa…4931 at0016 = ╱20╱…╱ // 0x4910 @0x16
0x48fa…4931 at0017 = ╱72╱r╱ // 0x4911 @0x17
0x48fa…4931 at0018 = ╱65╱e╱ // 0x4912 @0x18
0x48fa…4931 at0019 = ╱73╱s╱ // 0x4913 @0x19
0x48fa…4931 at001a = ╱65╱e╱ // 0x4914 @0x1a
0x48fa…4931 at001b = ╱72╱r╱ // 0x4915 @0x1b
0x48fa…4931 at001c = ╱76╱v╱ // 0x4916 @0x1c
0x48fa…4931 at001d = ╱65╱e╱ // 0x4917 @0x1d
0x48fa…4931 at001e = ╱72╱r╱ // 0x4918 @0x1e
0x48fa…4931 at001f = ╱65╱e╱ // 0x4919 @0x1f
0x48fa…4931 at0020 = ╱74╱t╱ // 0x491a @0x20
0x48fa…4931 at0021 = ╱20╱…╱ // 0x491b @0x21
0x48fa…4931 at0022 = ╱61╱a╱ // 0x491c @0x22
0x48fa…4931 at0023 = ╱66╱f╱ // 0x491d @0x23
0x48fa…4931 at0024 = ╱20╱…╱ // 0x491e @0x24
0x48fa…4931 at0025 = ╱65╱e╱ // 0x491f @0x25
0x48fa…4931 at0026 = ╱6e╱n╱ // 0x4920 @0x26
0x48fa…4931 at0027 = ╱20╱…╱ // 0x4921 @0x27
0x48fa…4931 at0028 = ╱61╱a╱ // 0x4922 @0x28
0x48fa…4931 at0029 = ╱6e╱n╱ // 0x4923 @0x29
0x48fa…4931 at002a = ╱64╱d╱ // 0x4924 @0x2a
0x48fa…4931 at002b = ╱65╱e╱ // 0x4925 @0x2b
0x48fa…4931 at002c = ╱6e╱n╱ // 0x4926 @0x2c
0x48fa…4931 at002d = ╱20╱…╱ // 0x4927 @0x2d
0x48fa…4931 at002e = ╱62╱b╱ // 0x4928 @0x2e
0x48fa…4931 at002f = ╱72╱r╱ // 0x4929 @0x2f
0x48fa…4931 at0030 = ╱75╱u╱ // 0x492a @0x30
0x48fa…4931 at0031 = ╱67╱g╱ // 0x492b @0x31
0x48fa…4931 at0032 = ╱65╱e╱ // 0x492c @0x32
0x48fa…4931 at0033 = ╱72╱r╱ // 0x492d @0x33
0x48fa…4931 at0034 = ╱2c╱,╱ // 0x492e @0x34
0x48fa…4931 at0035 = ╱22╱"╱ // 0x492f @0x35
0x48fa…4931 at0036 = EOL // 0x4930 @0x36
0x48fa…4931 }
0x4931…4946 df34 02850 CURSOR 12 , LINE + 1
0x4931…4946 LineComal80 {
0x4931…4946 ptr = 0xdf34 // 0x4931 @0x0
0x4931…4946 lno = 0x0b22 // 0x4933 @0x2
0x4931…4946 at0004 = ╱a1╱ CURSOR ╱ // 0x4935 @0x4
0x4931…4946 at0005 = ╱31╱1╱ // 0x4936 @0x5
0x4931…4946 at0006 = ╱32╱2╱ // 0x4937 @0x6
0x4931…4946 at0007 = ╱f20c00╱ // 0x4938 @0x7
0x4931…4946 at000a = ╱ec╱ , ╱ // 0x493b @0xa
0x4931…4946 at000b = ╱4c╱L╱ // 0x493c @0xb
0x4931…4946 at000c = ╱49╱I╱ // 0x493d @0xc
0x4931…4946 at000d = ╱4e╱N╱ // 0x493e @0xd
0x4931…4946 at000e = ╱45╱E╱ // 0x493f @0xe
0x4931…4946 at000f = ╱e5╱ + ╱ // 0x4940 @0xf
0x4931…4946 at0010 = ╱31╱1╱ // 0x4941 @0x10
0x4931…4946 at0011 = ╱f20100╱ // 0x4942 @0x11
0x4931…4946 at0014 = EOL // 0x4945 @0x14
0x4931…4946 }
0x4946…4987 df75 02860 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
0x4946…4987 LineComal80 {
0x4946…4987 ptr = 0xdf75 // 0x4946 @0x0
0x4946…4987 lno = 0x0b2c // 0x4948 @0x2
0x4946…4987 at0004 = ╱91╱ INPUT ╱ // 0x494a @0x4
0x4946…4987 at0005 = ╱22╱"╱ // 0x494b @0x5
0x4946…4987 at0006 = ╱3c╱<╱ // 0x494c @0x6
0x4946…4987 at0007 = ╱53╱S╱ // 0x494d @0x7
0x4946…4987 at0008 = ╱5a╱Z╱ // 0x494e @0x8
0x4946…4987 at0009 = ╱3e╱>╱ // 0x494f @0x9
0x4946…4987 at000a = ╱53╱S╱ // 0x4950 @0xa
0x4946…4987 at000b = ╱6b╱k╱ // 0x4951 @0xb
0x4946…4987 at000c = ╱61╱a╱ // 0x4952 @0xc
0x4946…4987 at000d = ╱6c╱l╱ // 0x4953 @0xd
0x4946…4987 at000e = ╱20╱…╱ // 0x4954 @0xe
0x4946…4987 at000f = ╱64╱d╱ // 0x4955 @0xf
0x4946…4987 at0010 = ╱65╱e╱ // 0x4956 @0x10
0x4946…4987 at0011 = ╱72╱r╱ // 0x4957 @0x11
0x4946…4987 at0012 = ╱20╱…╱ // 0x4958 @0x12
0x4946…4987 at0013 = ╱76╱v╱ // 0x4959 @0x13
0x4946…4987 at0014 = ╱65╱e╱ // 0x495a @0x14
0x4946…4987 at0015 = ╱6e╱n╱ // 0x495b @0x15
0x4946…4987 at0016 = ╱74╱t╱ // 0x495c @0x16
0x4946…4987 at0017 = ╱65╱e╱ // 0x495d @0x17
0x4946…4987 at0018 = ╱73╱s╱ // 0x495e @0x18
0x4946…4987 at0019 = ╱20╱…╱ // 0x495f @0x19
0x4946…4987 at001a = ╱70╱p╱ // 0x4960 @0x1a
0x4946…4987 at001b = ╱7d╱}╱ // 0x4961 @0x1b
0x4946…4987 at001c = ╱20╱…╱ // 0x4962 @0x1c
0x4946…4987 at001d = ╱61╱a╱ // 0x4963 @0x1d
0x4946…4987 at001e = ╱74╱t╱ // 0x4964 @0x1e
0x4946…4987 at001f = ╱20╱…╱ // 0x4965 @0x1f
0x4946…4987 at0020 = ╱64╱d╱ // 0x4966 @0x20
0x4946…4987 at0021 = ╱65╱e╱ // 0x4967 @0x21
0x4946…4987 at0022 = ╱6e╱n╱ // 0x4968 @0x22
0x4946…4987 at0023 = ╱20╱…╱ // 0x4969 @0x23
0x4946…4987 at0024 = ╱62╱b╱ // 0x496a @0x24
0x4946…4987 at0025 = ╱6c╱l╱ // 0x496b @0x25
0x4946…4987 at0026 = ╱69╱i╱ // 0x496c @0x26
0x4946…4987 at0027 = ╱76╱v╱ // 0x496d @0x27
0x4946…4987 at0028 = ╱65╱e╱ // 0x496e @0x28
0x4946…4987 at0029 = ╱72╱r╱ // 0x496f @0x29
0x4946…4987 at002a = ╱20╱…╱ // 0x4970 @0x2a
0x4946…4987 at002b = ╱6c╱l╱ // 0x4971 @0x2b
0x4946…4987 at002c = ╱65╱e╱ // 0x4972 @0x2c
0x4946…4987 at002d = ╱64╱d╱ // 0x4973 @0x2d
0x4946…4987 at002e = ╱69╱i╱ // 0x4974 @0x2e
0x4946…4987 at002f = ╱67╱g╱ // 0x4975 @0x2f
0x4946…4987 at0030 = ╱20╱…╱ // 0x4976 @0x30
0x4946…4987 at0031 = ╱3f╱?╱ // 0x4977 @0x31
0x4946…4987 at0032 = ╱20╱…╱ // 0x4978 @0x32
0x4946…4987 at0033 = ╱28╱(╱ // 0x4979 @0x33
0x4946…4987 at0034 = ╱6a╱j╱ // 0x497a @0x34
0x4946…4987 at0035 = ╱2f╱/╱ // 0x497b @0x35
0x4946…4987 at0036 = ╱6e╱n╱ // 0x497c @0x36
0x4946…4987 at0037 = ╱29╱)╱ // 0x497d @0x37
0x4946…4987 at0038 = ╱20╱…╱ // 0x497e @0x38
0x4946…4987 at0039 = ╱22╱"╱ // 0x497f @0x39
0x4946…4987 at003a = ╱f1╱ : ╱ // 0x4980 @0x3a
0x4946…4987 at003b = ╱53╱S╱ // 0x4981 @0x3b
0x4946…4987 at003c = ╱56╱V╱ // 0x4982 @0x3c
0x4946…4987 at003d = ╱41╱A╱ // 0x4983 @0x3d
0x4946…4987 at003e = ╱52╱R╱ // 0x4984 @0x3e
0x4946…4987 at003f = ╱ef╱ $ ╱ // 0x4985 @0x3f
0x4946…4987 at0040 = EOL // 0x4986 @0x40
0x4946…4987 }
0x4987…49a2 df90 02870 IF VAR $ = "J" OR SVAR $ = "j" THEN
0x4987…49a2 LineComal80 {
0x4987…49a2 ptr = 0xdf90 // 0x4987 @0x0
0x4987…49a2 lno = 0x0b36 // 0x4989 @0x2
0x4987…49a2 at0004 = ╱9b2d53╱ IF ╱ // 0x498b @0x4
0x4987…49a2 at0007 = ╱56╱V╱ // 0x498e @0x7
0x4987…49a2 at0008 = ╱41╱A╱ // 0x498f @0x8
0x4987…49a2 at0009 = ╱52╱R╱ // 0x4990 @0x9
0x4987…49a2 at000a = ╱ef╱ $ ╱ // 0x4991 @0xa
0x4987…49a2 at000b = ╱df╱ = ╱ // 0x4992 @0xb
0x4987…49a2 at000c = ╱22╱"╱ // 0x4993 @0xc
0x4987…49a2 at000d = ╱4a╱J╱ // 0x4994 @0xd
0x4987…49a2 at000e = ╱22╱"╱ // 0x4995 @0xe
0x4987…49a2 at000f = ╱d8╱ OR ╱ // 0x4996 @0xf
0x4987…49a2 at0010 = ╱53╱S╱ // 0x4997 @0x10
0x4987…49a2 at0011 = ╱56╱V╱ // 0x4998 @0x11
0x4987…49a2 at0012 = ╱41╱A╱ // 0x4999 @0x12
0x4987…49a2 at0013 = ╱52╱R╱ // 0x499a @0x13
0x4987…49a2 at0014 = ╱ef╱ $ ╱ // 0x499b @0x14
0x4987…49a2 at0015 = ╱df╱ = ╱ // 0x499c @0x15
0x4987…49a2 at0016 = ╱22╱"╱ // 0x499d @0x16
0x4987…49a2 at0017 = ╱6a╱j╱ // 0x499e @0x17
0x4987…49a2 at0018 = ╱22╱"╱ // 0x499f @0x18
0x4987…49a2 at0019 = ╱b5╱ THEN ╱ // 0x49a0 @0x19
0x4987…49a2 at001a = EOL // 0x49a1 @0x1a
0x4987…49a2 }
0x49a2…49b2 dfa0 02880 CURSOR 12 , LINE
0x49a2…49b2 LineComal80 {
0x49a2…49b2 ptr = 0xdfa0 // 0x49a2 @0x0
0x49a2…49b2 lno = 0x0b40 // 0x49a4 @0x2
0x49a2…49b2 at0004 = ╱a1╱ CURSOR ╱ // 0x49a6 @0x4
0x49a2…49b2 at0005 = ╱31╱1╱ // 0x49a7 @0x5
0x49a2…49b2 at0006 = ╱32╱2╱ // 0x49a8 @0x6
0x49a2…49b2 at0007 = ╱f20c00╱ // 0x49a9 @0x7
0x49a2…49b2 at000a = ╱ec╱ , ╱ // 0x49ac @0xa
0x49a2…49b2 at000b = ╱4c╱L╱ // 0x49ad @0xb
0x49a2…49b2 at000c = ╱49╱I╱ // 0x49ae @0xc
0x49a2…49b2 at000d = ╱4e╱N╱ // 0x49af @0xd
0x49a2…49b2 at000e = ╱45╱E╱ // 0x49b0 @0xe
0x49a2…49b2 at000f = EOL // 0x49b1 @0xf
0x49a2…49b2 }
0x49b2…49ed dfdb 02890 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
0x49b2…49ed LineComal80 {
0x49b2…49ed ptr = 0xdfdb // 0x49b2 @0x0
0x49b2…49ed lno = 0x0b4a // 0x49b4 @0x2
0x49b2…49ed at0004 = ╱92╱ PRINT ╱ // 0x49b6 @0x4
0x49b2…49ed at0005 = ╱22╱"╱ // 0x49b7 @0x5
0x49b2…49ed at0006 = ╱3c╱<╱ // 0x49b8 @0x6
0x49b2…49ed at0007 = ╱5a╱Z╱ // 0x49b9 @0x7
0x49b2…49ed at0008 = ╱3e╱>╱ // 0x49ba @0x8
0x49b2…49ed at0009 = ╱20╱…╱ // 0x49bb @0x9
0x49b2…49ed at000a = ╱20╱…╱ // 0x49bc @0xa
0x49b2…49ed at000b = ╱20╱…╱ // 0x49bd @0xb
0x49b2…49ed at000c = ╱20╱…╱ // 0x49be @0xc
0x49b2…49ed at000d = ╱20╱…╱ // 0x49bf @0xd
0x49b2…49ed at000e = ╱44╱D╱ // 0x49c0 @0xe
0x49b2…49ed at000f = ╱65╱e╱ // 0x49c1 @0xf
0x49b2…49ed at0010 = ╱72╱r╱ // 0x49c2 @0x10
0x49b2…49ed at0011 = ╱20╱…╱ // 0x49c3 @0x11
0x49b2…49ed at0012 = ╱76╱v╱ // 0x49c4 @0x12
0x49b2…49ed at0013 = ╱65╱e╱ // 0x49c5 @0x13
0x49b2…49ed at0014 = ╱6e╱n╱ // 0x49c6 @0x14
0x49b2…49ed at0015 = ╱74╱t╱ // 0x49c7 @0x15
0x49b2…49ed at0016 = ╱65╱e╱ // 0x49c8 @0x16
0x49b2…49ed at0017 = ╱73╱s╱ // 0x49c9 @0x17
0x49b2…49ed at0018 = ╱20╱…╱ // 0x49ca @0x18
0x49b2…49ed at0019 = ╱70╱p╱ // 0x49cb @0x19
0x49b2…49ed at001a = ╱7d╱}╱ // 0x49cc @0x1a
0x49b2…49ed at001b = ╱20╱…╱ // 0x49cd @0x1b
0x49b2…49ed at001c = ╱61╱a╱ // 0x49ce @0x1c
0x49b2…49ed at001d = ╱74╱t╱ // 0x49cf @0x1d
0x49b2…49ed at001e = ╱20╱…╱ // 0x49d0 @0x1e
0x49b2…49ed at001f = ╱70╱p╱ // 0x49d1 @0x1f
0x49b2…49ed at0020 = ╱72╱r╱ // 0x49d2 @0x20
0x49b2…49ed at0021 = ╱69╱i╱ // 0x49d3 @0x21
0x49b2…49ed at0022 = ╱6e╱n╱ // 0x49d4 @0x22
0x49b2…49ed at0023 = ╱74╱t╱ // 0x49d5 @0x23
0x49b2…49ed at0024 = ╱65╱e╱ // 0x49d6 @0x24
0x49b2…49ed at0025 = ╱72╱r╱ // 0x49d7 @0x25
0x49b2…49ed at0026 = ╱65╱e╱ // 0x49d8 @0x26
0x49b2…49ed at0027 = ╱6e╱n╱ // 0x49d9 @0x27
0x49b2…49ed at0028 = ╱20╱…╱ // 0x49da @0x28
0x49b2…49ed at0029 = ╱62╱b╱ // 0x49db @0x29
0x49b2…49ed at002a = ╱6c╱l╱ // 0x49dc @0x2a
0x49b2…49ed at002b = ╱69╱i╱ // 0x49dd @0x2b
0x49b2…49ed at002c = ╱76╱v╱ // 0x49de @0x2c
0x49b2…49ed at002d = ╱65╱e╱ // 0x49df @0x2d
0x49b2…49ed at002e = ╱72╱r╱ // 0x49e0 @0x2e
0x49b2…49ed at002f = ╱20╱…╱ // 0x49e1 @0x2f
0x49b2…49ed at0030 = ╱6c╱l╱ // 0x49e2 @0x30
0x49b2…49ed at0031 = ╱65╱e╱ // 0x49e3 @0x31
0x49b2…49ed at0032 = ╱64╱d╱ // 0x49e4 @0x32
0x49b2…49ed at0033 = ╱69╱i╱ // 0x49e5 @0x33
0x49b2…49ed at0034 = ╱67╱g╱ // 0x49e6 @0x34
0x49b2…49ed at0035 = ╱2e╱.╱ // 0x49e7 @0x35
0x49b2…49ed at0036 = ╱2e╱.╱ // 0x49e8 @0x36
0x49b2…49ed at0037 = ╱2e╱.╱ // 0x49e9 @0x37
0x49b2…49ed at0038 = ╱2e╱.╱ // 0x49ea @0x38
0x49b2…49ed at0039 = ╱22╱"╱ // 0x49eb @0x39
0x49b2…49ed at003a = EOL // 0x49ec @0x3a
0x49b2…49ed }
0x49ed…49f9 dfe7 02900 PRINT "<SZ>"
0x49ed…49f9 LineComal80 {
0x49ed…49f9 ptr = 0xdfe7 // 0x49ed @0x0
0x49ed…49f9 lno = 0x0b54 // 0x49ef @0x2
0x49ed…49f9 at0004 = ╱92╱ PRINT ╱ // 0x49f1 @0x4
0x49ed…49f9 at0005 = ╱22╱"╱ // 0x49f2 @0x5
0x49ed…49f9 at0006 = ╱3c╱<╱ // 0x49f3 @0x6
0x49ed…49f9 at0007 = ╱53╱S╱ // 0x49f4 @0x7
0x49ed…49f9 at0008 = ╱5a╱Z╱ // 0x49f5 @0x8
0x49ed…49f9 at0009 = ╱3e╱>╱ // 0x49f6 @0x9
0x49ed…49f9 at000a = ╱22╱"╱ // 0x49f7 @0xa
0x49ed…49f9 at000b = EOL // 0x49f8 @0xb
0x49ed…49f9 }
0x49f9…4a07 dff5 02910 WHILE ╱cd╱ ( "P" ) DO
0x49f9…4a07 LineComal80 {
0x49f9…4a07 ptr = 0xdff5 // 0x49f9 @0x0
0x49f9…4a07 lno = 0x0b5e // 0x49fb @0x2
0x49f9…4a07 at0004 = ╱932e╱ WHILE ╱ // 0x49fd @0x4
0x49f9…4a07 at0006 = ╱cd╱ // 0x49ff @0x6
0x49f9…4a07 at0007 = ╱ed╱ ( ╱ // 0x4a00 @0x7
0x49f9…4a07 at0008 = ╱22╱"╱ // 0x4a01 @0x8
0x49f9…4a07 at0009 = ╱50╱P╱ // 0x4a02 @0x9
0x49f9…4a07 at000a = ╱22╱"╱ // 0x4a03 @0xa
0x49f9…4a07 at000b = ╱ee╱ ) ╱ // 0x4a04 @0xb
0x49f9…4a07 at000c = ╱bb╱ DO ╱ // 0x4a05 @0xc
0x49f9…4a07 at000d = EOL // 0x4a06 @0xd
0x49f9…4a07 }
0x4a07…4a18 e006 02920 LET SEK := ╱ca╱ ( 5 )
0x4a07…4a18 LineComal80 {
0x4a07…4a18 ptr = 0xe006 // 0x4a07 @0x0
0x4a07…4a18 lno = 0x0b68 // 0x4a09 @0x2
0x4a07…4a18 at0004 = ╱86╱ LET ╱ // 0x4a0b @0x4
0x4a07…4a18 at0005 = ╱53╱S╱ // 0x4a0c @0x5
0x4a07…4a18 at0006 = ╱45╱E╱ // 0x4a0d @0x6
0x4a07…4a18 at0007 = ╱4b╱K╱ // 0x4a0e @0x7
0x4a07…4a18 at0008 = ╱f0╱ := ╱ // 0x4a0f @0x8
0x4a07…4a18 at0009 = ╱ca╱ // 0x4a10 @0x9
0x4a07…4a18 at000a = ╱ed╱ ( ╱ // 0x4a11 @0xa
0x4a07…4a18 at000b = ╱35╱5╱ // 0x4a12 @0xb
0x4a07…4a18 at000c = ╱f20500╱ // 0x4a13 @0xc
0x4a07…4a18 at000f = ╱ee╱ ) ╱ // 0x4a16 @0xf
0x4a07…4a18 at0010 = EOL // 0x4a17 @0x10
0x4a07…4a18 }
0x4a18…4a28 e016 02930 SELECT OUTPUT "P" + PRTNR $
0x4a18…4a28 LineComal80 {
0x4a18…4a28 ptr = 0xe016 // 0x4a18 @0x0
0x4a18…4a28 lno = 0x0b72 // 0x4a1a @0x2
0x4a18…4a28 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x4a1c @0x4
0x4a18…4a28 at0005 = ╱22╱"╱ // 0x4a1d @0x5
0x4a18…4a28 at0006 = ╱50╱P╱ // 0x4a1e @0x6
0x4a18…4a28 at0007 = ╱22╱"╱ // 0x4a1f @0x7
0x4a18…4a28 at0008 = ╱eb╱ + ╱ // 0x4a20 @0x8
0x4a18…4a28 at0009 = ╱50╱P╱ // 0x4a21 @0x9
0x4a18…4a28 at000a = ╱52╱R╱ // 0x4a22 @0xa
0x4a18…4a28 at000b = ╱54╱T╱ // 0x4a23 @0xb
0x4a18…4a28 at000c = ╱4e╱N╱ // 0x4a24 @0xc
0x4a18…4a28 at000d = ╱52╱R╱ // 0x4a25 @0xd
0x4a18…4a28 at000e = ╱ef╱ $ ╱ // 0x4a26 @0xe
0x4a18…4a28 at000f = EOL // 0x4a27 @0xf
0x4a18…4a28 }
0x4a28…4a2e e01c 02940 ENDWHILE
0x4a28…4a2e LineComal80 {
0x4a28…4a2e ptr = 0xe01c // 0x4a28 @0x0
0x4a28…4a2e lno = 0x0b7c // 0x4a2a @0x2
0x4a28…4a2e at0004 = ╱94╱ ENDWHILE ╱ // 0x4a2c @0x4
0x4a28…4a2e at0005 = EOL // 0x4a2d @0x5
0x4a28…4a2e }
0x4a2e…4a35 e023 02950 ELSE
0x4a2e…4a35 LineComal80 {
0x4a2e…4a35 ptr = 0xe023 // 0x4a2e @0x0
0x4a2e…4a35 lno = 0x0b86 // 0x4a30 @0x2
0x4a2e…4a35 at0004 = ╱9a2f╱ ELSE ╱ // 0x4a32 @0x4
0x4a2e…4a35 at0006 = EOL // 0x4a34 @0x6
0x4a2e…4a35 }
0x4a35…4a43 e031 02960 LET OK := FALSE
0x4a35…4a43 LineComal80 {
0x4a35…4a43 ptr = 0xe031 // 0x4a35 @0x0
0x4a35…4a43 lno = 0x0b90 // 0x4a37 @0x2
0x4a35…4a43 at0004 = ╱86╱ LET ╱ // 0x4a39 @0x4
0x4a35…4a43 at0005 = ╱4f╱O╱ // 0x4a3a @0x5
0x4a35…4a43 at0006 = ╱4b╱K╱ // 0x4a3b @0x6
0x4a35…4a43 at0007 = ╱f0╱ := ╱ // 0x4a3c @0x7
0x4a35…4a43 at0008 = ╱46╱F╱ // 0x4a3d @0x8
0x4a35…4a43 at0009 = ╱41╱A╱ // 0x4a3e @0x9
0x4a35…4a43 at000a = ╱4c╱L╱ // 0x4a3f @0xa
0x4a35…4a43 at000b = ╱53╱S╱ // 0x4a40 @0xb
0x4a35…4a43 at000c = ╱45╱E╱ // 0x4a41 @0xc
0x4a35…4a43 at000d = EOL // 0x4a42 @0xd
0x4a35…4a43 }
0x4a43…4a49 e037 02970 ENDIF
0x4a43…4a49 LineComal80 {
0x4a43…4a49 ptr = 0xe037 // 0x4a43 @0x0
0x4a43…4a49 lno = 0x0b9a // 0x4a45 @0x2
0x4a43…4a49 at0004 = ╱9c╱ ENDIF ╱ // 0x4a47 @0x4
0x4a43…4a49 at0005 = EOL // 0x4a48 @0x5
0x4a43…4a49 }
0x4a49…4a4f e03d 02980 ENDIF
0x4a49…4a4f LineComal80 {
0x4a49…4a4f ptr = 0xe03d // 0x4a49 @0x0
0x4a49…4a4f lno = 0x0ba4 // 0x4a4b @0x2
0x4a49…4a4f at0004 = ╱9c╱ ENDIF ╱ // 0x4a4d @0x4
0x4a49…4a4f at0005 = EOL // 0x4a4e @0x5
0x4a49…4a4f }
0x4a4f…4a5e e04c 02990 CURSOR 1 , LINE
0x4a4f…4a5e LineComal80 {
0x4a4f…4a5e ptr = 0xe04c // 0x4a4f @0x0
0x4a4f…4a5e lno = 0x0bae // 0x4a51 @0x2
0x4a4f…4a5e at0004 = ╱a1╱ CURSOR ╱ // 0x4a53 @0x4
0x4a4f…4a5e at0005 = ╱31╱1╱ // 0x4a54 @0x5
0x4a4f…4a5e at0006 = ╱f20100╱ // 0x4a55 @0x6
0x4a4f…4a5e at0009 = ╱ec╱ , ╱ // 0x4a58 @0x9
0x4a4f…4a5e at000a = ╱4c╱L╱ // 0x4a59 @0xa
0x4a4f…4a5e at000b = ╱49╱I╱ // 0x4a5a @0xb
0x4a4f…4a5e at000c = ╱4e╱N╱ // 0x4a5b @0xc
0x4a4f…4a5e at000d = ╱45╱E╱ // 0x4a5c @0xd
0x4a4f…4a5e at000e = EOL // 0x4a5d @0xe
0x4a4f…4a5e }
0x4a5e…4a69 e057 03000 PRINT "<Z>"
0x4a5e…4a69 LineComal80 {
0x4a5e…4a69 ptr = 0xe057 // 0x4a5e @0x0
0x4a5e…4a69 lno = 0x0bb8 // 0x4a60 @0x2
0x4a5e…4a69 at0004 = ╱92╱ PRINT ╱ // 0x4a62 @0x4
0x4a5e…4a69 at0005 = ╱22╱"╱ // 0x4a63 @0x5
0x4a5e…4a69 at0006 = ╱3c╱<╱ // 0x4a64 @0x6
0x4a5e…4a69 at0007 = ╱5a╱Z╱ // 0x4a65 @0x7
0x4a5e…4a69 at0008 = ╱3e╱>╱ // 0x4a66 @0x8
0x4a5e…4a69 at0009 = ╱22╱"╱ // 0x4a67 @0x9
0x4a5e…4a69 at000a = EOL // 0x4a68 @0xa
0x4a5e…4a69 }
0x4a69…4a75 e063 03010 PRINT "<SZ>"
0x4a69…4a75 LineComal80 {
0x4a69…4a75 ptr = 0xe063 // 0x4a69 @0x0
0x4a69…4a75 lno = 0x0bc2 // 0x4a6b @0x2
0x4a69…4a75 at0004 = ╱92╱ PRINT ╱ // 0x4a6d @0x4
0x4a69…4a75 at0005 = ╱22╱"╱ // 0x4a6e @0x5
0x4a69…4a75 at0006 = ╱3c╱<╱ // 0x4a6f @0x6
0x4a69…4a75 at0007 = ╱53╱S╱ // 0x4a70 @0x7
0x4a69…4a75 at0008 = ╱5a╱Z╱ // 0x4a71 @0x8
0x4a69…4a75 at0009 = ╱3e╱>╱ // 0x4a72 @0x9
0x4a69…4a75 at000a = ╱22╱"╱ // 0x4a73 @0xa
0x4a69…4a75 at000b = EOL // 0x4a74 @0xb
0x4a69…4a75 }
0x4a75…4a83 e37f 03020 ENDPROC PRINTRES
0x4a75…4a83 LineComal80 {
0x4a75…4a83 ptr = 0xe37f // 0x4a75 @0x0
0x4a75…4a83 lno = 0x0bcc // 0x4a77 @0x2
0x4a75…4a83 at0004 = ╱9f╱ ENDPROC ╱ // 0x4a79 @0x4
0x4a75…4a83 at0005 = ╱50╱P╱ // 0x4a7a @0x5
0x4a75…4a83 at0006 = ╱52╱R╱ // 0x4a7b @0x6
0x4a75…4a83 at0007 = ╱49╱I╱ // 0x4a7c @0x7
0x4a75…4a83 at0008 = ╱4e╱N╱ // 0x4a7d @0x8
0x4a75…4a83 at0009 = ╱54╱T╱ // 0x4a7e @0x9
0x4a75…4a83 at000a = ╱52╱R╱ // 0x4a7f @0xa
0x4a75…4a83 at000b = ╱45╱E╱ // 0x4a80 @0xb
0x4a75…4a83 at000c = ╱53╱S╱ // 0x4a81 @0xc
0x4a75…4a83 at000d = EOL // 0x4a82 @0xd
0x4a75…4a83 }
0x4a83…4a91 e127 04000 PROC EDITTAL
0x4a83…4a91 LineComal80 {
0x4a83…4a91 ptr = 0xe127 // 0x4a83 @0x0
0x4a83…4a91 lno = 0x0fa0 // 0x4a85 @0x2
0x4a83…4a91 at0004 = ╱9e30╱ PROC ╱ // 0x4a87 @0x4
0x4a83…4a91 at0006 = ╱45╱E╱ // 0x4a89 @0x6
0x4a83…4a91 at0007 = ╱44╱D╱ // 0x4a8a @0x7
0x4a83…4a91 at0008 = ╱49╱I╱ // 0x4a8b @0x8
0x4a83…4a91 at0009 = ╱54╱T╱ // 0x4a8c @0x9
0x4a83…4a91 at000a = ╱54╱T╱ // 0x4a8d @0xa
0x4a83…4a91 at000b = ╱41╱A╱ // 0x4a8e @0xb
0x4a83…4a91 at000c = ╱4c╱L╱ // 0x4a8f @0xc
0x4a83…4a91 at000d = EOL // 0x4a90 @0xd
0x4a83…4a91 }
0x4a91…4a9d e08b 04010 PROC EDTAL
0x4a91…4a9d LineComal80 {
0x4a91…4a9d ptr = 0xe08b // 0x4a91 @0x0
0x4a91…4a9d lno = 0x0faa // 0x4a93 @0x2
0x4a91…4a9d at0004 = ╱9e00╱ PROC ╱ // 0x4a95 @0x4
0x4a91…4a9d at0006 = ╱45╱E╱ // 0x4a97 @0x6
0x4a91…4a9d at0007 = ╱44╱D╱ // 0x4a98 @0x7
0x4a91…4a9d at0008 = ╱54╱T╱ // 0x4a99 @0x8
0x4a91…4a9d at0009 = ╱41╱A╱ // 0x4a9a @0x9
0x4a91…4a9d at000a = ╱4c╱L╱ // 0x4a9b @0xa
0x4a91…4a9d at000b = EOL // 0x4a9c @0xb
0x4a91…4a9d }
0x4a9d…4aab e099 04020 IF = 0 THEN
0x4a9d…4aab LineComal80 {
0x4a9d…4aab ptr = 0xe099 // 0x4a9d @0x0
0x4a9d…4aab lno = 0x0fb4 // 0x4a9f @0x2
0x4a9d…4aab at0004 = ╱9b3241╱ IF ╱ // 0x4aa1 @0x4
0x4a9d…4aab at0007 = ╱df╱ = ╱ // 0x4aa4 @0x7
0x4a9d…4aab at0008 = ╱30╱0╱ // 0x4aa5 @0x8
0x4a9d…4aab at0009 = ╱f20000╱ // 0x4aa6 @0x9
0x4a9d…4aab at000c = ╱b5╱ THEN ╱ // 0x4aa9 @0xc
0x4a9d…4aab at000d = EOL // 0x4aaa @0xd
0x4a9d…4aab }
0x4aab…4ab6 e0a4 04030 LET S $ := ""
0x4aab…4ab6 LineComal80 {
0x4aab…4ab6 ptr = 0xe0a4 // 0x4aab @0x0
0x4aab…4ab6 lno = 0x0fbe // 0x4aad @0x2
0x4aab…4ab6 at0004 = ╱86╱ LET ╱ // 0x4aaf @0x4
0x4aab…4ab6 at0005 = ╱53╱S╱ // 0x4ab0 @0x5
0x4aab…4ab6 at0006 = ╱ef╱ $ ╱ // 0x4ab1 @0x6
0x4aab…4ab6 at0007 = ╱f0╱ := ╱ // 0x4ab2 @0x7
0x4aab…4ab6 at0008 = ╱22╱"╱ // 0x4ab3 @0x8
0x4aab…4ab6 at0009 = ╱22╱"╱ // 0x4ab4 @0x9
0x4aab…4ab6 at000a = EOL // 0x4ab5 @0xa
0x4aab…4ab6 }
0x4ab6…4abd e0ab 04040 ELSE
0x4ab6…4abd LineComal80 {
0x4ab6…4abd ptr = 0xe0ab // 0x4ab6 @0x0
0x4ab6…4abd lno = 0x0fc8 // 0x4ab8 @0x2
0x4ab6…4abd at0004 = ╱9a33╱ ELSE ╱ // 0x4aba @0x4
0x4ab6…4abd at0006 = EOL // 0x4abc @0x6
0x4ab6…4abd }
0x4abd…4ad4 e0c2 04050 LET S $ := CHR$ ( A , 8 , 0 )
0x4abd…4ad4 LineComal80 {
0x4abd…4ad4 ptr = 0xe0c2 // 0x4abd @0x0
0x4abd…4ad4 lno = 0x0fd2 // 0x4abf @0x2
0x4abd…4ad4 at0004 = ╱86╱ LET ╱ // 0x4ac1 @0x4
0x4abd…4ad4 at0005 = ╱53╱S╱ // 0x4ac2 @0x5
0x4abd…4ad4 at0006 = ╱ef╱ $ ╱ // 0x4ac3 @0x6
0x4abd…4ad4 at0007 = ╱f0╱ := ╱ // 0x4ac4 @0x7
0x4abd…4ad4 at0008 = ╱d0╱ CHR$ ╱ // 0x4ac5 @0x8
0x4abd…4ad4 at0009 = ╱ed╱ ( ╱ // 0x4ac6 @0x9
0x4abd…4ad4 at000a = ╱41╱A╱ // 0x4ac7 @0xa
0x4abd…4ad4 at000b = ╱ec╱ , ╱ // 0x4ac8 @0xb
0x4abd…4ad4 at000c = ╱38╱8╱ // 0x4ac9 @0xc
0x4abd…4ad4 at000d = ╱f20800╱ // 0x4aca @0xd
0x4abd…4ad4 at0010 = ╱ec╱ , ╱ // 0x4acd @0x10
0x4abd…4ad4 at0011 = ╱30╱0╱ // 0x4ace @0x11
0x4abd…4ad4 at0012 = ╱f20000╱ // 0x4acf @0x12
0x4abd…4ad4 at0015 = ╱ee╱ ) ╱ // 0x4ad2 @0x15
0x4abd…4ad4 at0016 = EOL // 0x4ad3 @0x16
0x4abd…4ad4 }
0x4ad4…4ada e0c8 04060 ENDIF
0x4ad4…4ada LineComal80 {
0x4ad4…4ada ptr = 0xe0c8 // 0x4ad4 @0x0
0x4ad4…4ada lno = 0x0fdc // 0x4ad6 @0x2
0x4ad4…4ada at0004 = ╱9c╱ ENDIF ╱ // 0x4ad8 @0x4
0x4ad4…4ada at0005 = EOL // 0x4ad9 @0x5
0x4ad4…4ada }
0x4ada…4ae1 e0cf 04070 REPEAT
0x4ada…4ae1 LineComal80 {
0x4ada…4ae1 ptr = 0xe0cf // 0x4ada @0x0
0x4ada…4ae1 lno = 0x0fe6 // 0x4adc @0x2
0x4ada…4ae1 at0004 = ╱9734╱ REPEAT ╱ // 0x4ade @0x4
0x4ada…4ae1 at0006 = EOL // 0x4ae0 @0x6
0x4ada…4ae1 }
0x4ae1…4aec e0da 04080 CURSOR X1 , Y1
0x4ae1…4aec LineComal80 {
0x4ae1…4aec ptr = 0xe0da // 0x4ae1 @0x0
0x4ae1…4aec lno = 0x0ff0 // 0x4ae3 @0x2
0x4ae1…4aec at0004 = ╱a1╱ CURSOR ╱ // 0x4ae5 @0x4
0x4ae1…4aec at0005 = ╱58╱X╱ // 0x4ae6 @0x5
0x4ae1…4aec at0006 = ╱31╱1╱ // 0x4ae7 @0x6
0x4ae1…4aec at0007 = ╱ec╱ , ╱ // 0x4ae8 @0x7
0x4ae1…4aec at0008 = ╱59╱Y╱ // 0x4ae9 @0x8
0x4ae1…4aec at0009 = ╱31╱1╱ // 0x4aea @0x9
0x4ae1…4aec at000a = EOL // 0x4aeb @0xa
0x4ae1…4aec }
0x4aec…4afc e0ea 04090 PRINT "<ZS>" ; T1 $
0x4aec…4afc LineComal80 {
0x4aec…4afc ptr = 0xe0ea // 0x4aec @0x0
0x4aec…4afc lno = 0x0ffa // 0x4aee @0x2
0x4aec…4afc at0004 = ╱92╱ PRINT ╱ // 0x4af0 @0x4
0x4aec…4afc at0005 = ╱22╱"╱ // 0x4af1 @0x5
0x4aec…4afc at0006 = ╱3c╱<╱ // 0x4af2 @0x6
0x4aec…4afc at0007 = ╱5a╱Z╱ // 0x4af3 @0x7
0x4aec…4afc at0008 = ╱53╱S╱ // 0x4af4 @0x8
0x4aec…4afc at0009 = ╱3e╱>╱ // 0x4af5 @0x9
0x4aec…4afc at000a = ╱22╱"╱ // 0x4af6 @0xa
0x4aec…4afc at000b = ╱ea╱ ; ╱ // 0x4af7 @0xb
0x4aec…4afc at000c = ╱54╱T╱ // 0x4af8 @0xc
0x4aec…4afc at000d = ╱31╱1╱ // 0x4af9 @0xd
0x4aec…4afc at000e = ╱ef╱ $ ╱ // 0x4afa @0xe
0x4aec…4afc at000f = EOL // 0x4afb @0xf
0x4aec…4afc }
0x4afc…4b04 e0f2 04100 EDIT S $
0x4afc…4b04 LineComal80 {
0x4afc…4b04 ptr = 0xe0f2 // 0x4afc @0x0
0x4afc…4b04 lno = 0x1004 // 0x4afe @0x2
0x4afc…4b04 at0004 = ╱b1╱ EDIT ╱ // 0x4b00 @0x4
0x4afc…4b04 at0005 = ╱53╱S╱ // 0x4b01 @0x5
0x4afc…4b04 at0006 = ╱ef╱ $ ╱ // 0x4b02 @0x6
0x4afc…4b04 at0007 = EOL // 0x4b03 @0x7
0x4afc…4b04 }
0x4b04…4b19 e107 04110 EXEC TAL_CONTROL ( S $ )
0x4b04…4b19 LineComal80 {
0x4b04…4b19 ptr = 0xe107 // 0x4b04 @0x0
0x4b04…4b19 lno = 0x100e // 0x4b06 @0x2
0x4b04…4b19 at0004 = ╱9d╱ EXEC ╱ // 0x4b08 @0x4
0x4b04…4b19 at0005 = ╱54╱T╱ // 0x4b09 @0x5
0x4b04…4b19 at0006 = ╱41╱A╱ // 0x4b0a @0x6
0x4b04…4b19 at0007 = ╱4c╱L╱ // 0x4b0b @0x7
0x4b04…4b19 at0008 = ╱5f╱_╱ // 0x4b0c @0x8
0x4b04…4b19 at0009 = ╱43╱C╱ // 0x4b0d @0x9
0x4b04…4b19 at000a = ╱4f╱O╱ // 0x4b0e @0xa
0x4b04…4b19 at000b = ╱4e╱N╱ // 0x4b0f @0xb
0x4b04…4b19 at000c = ╱54╱T╱ // 0x4b10 @0xc
0x4b04…4b19 at000d = ╱52╱R╱ // 0x4b11 @0xd
0x4b04…4b19 at000e = ╱4f╱O╱ // 0x4b12 @0xe
0x4b04…4b19 at000f = ╱4c╱L╱ // 0x4b13 @0xf
0x4b04…4b19 at0010 = ╱ed╱ ( ╱ // 0x4b14 @0x10
0x4b04…4b19 at0011 = ╱53╱S╱ // 0x4b15 @0x11
0x4b04…4b19 at0012 = ╱ef╱ $ ╱ // 0x4b16 @0x12
0x4b04…4b19 at0013 = ╱ee╱ ) ╱ // 0x4b17 @0x13
0x4b04…4b19 at0014 = EOL // 0x4b18 @0x14
0x4b04…4b19 }
0x4b19…4b21 e10f 04120 UNTIL OK
0x4b19…4b21 LineComal80 {
0x4b19…4b21 ptr = 0xe10f // 0x4b19 @0x0
0x4b19…4b21 lno = 0x1018 // 0x4b1b @0x2
0x4b19…4b21 at0004 = ╱98╱ UNTIL ╱ // 0x4b1d @0x4
0x4b19…4b21 at0005 = ╱4f╱O╱ // 0x4b1e @0x5
0x4b19…4b21 at0006 = ╱4b╱K╱ // 0x4b1f @0x6
0x4b19…4b21 at0007 = EOL // 0x4b20 @0x7
0x4b19…4b21 }
0x4b21…4b2e e11c 04130 LET A := ASC ( S $ )
0x4b21…4b2e LineComal80 {
0x4b21…4b2e ptr = 0xe11c // 0x4b21 @0x0
0x4b21…4b2e lno = 0x1022 // 0x4b23 @0x2
0x4b21…4b2e at0004 = ╱86╱ LET ╱ // 0x4b25 @0x4
0x4b21…4b2e at0005 = ╱41╱A╱ // 0x4b26 @0x5
0x4b21…4b2e at0006 = ╱f0╱ := ╱ // 0x4b27 @0x6
0x4b21…4b2e at0007 = ╱cf╱ ASC ╱ // 0x4b28 @0x7
0x4b21…4b2e at0008 = ╱ed╱ ( ╱ // 0x4b29 @0x8
0x4b21…4b2e at0009 = ╱53╱S╱ // 0x4b2a @0x9
0x4b21…4b2e at000a = ╱ef╱ $ ╱ // 0x4b2b @0xa
0x4b21…4b2e at000b = ╱ee╱ ) ╱ // 0x4b2c @0xb
0x4b21…4b2e at000c = EOL // 0x4b2d @0xc
0x4b21…4b2e }
0x4b2e…4b39 e13e 04140 ENDPROC EDTAL
0x4b2e…4b39 LineComal80 {
0x4b2e…4b39 ptr = 0xe13e // 0x4b2e @0x0
0x4b2e…4b39 lno = 0x102c // 0x4b30 @0x2
0x4b2e…4b39 at0004 = ╱9f╱ ENDPROC ╱ // 0x4b32 @0x4
0x4b2e…4b39 at0005 = ╱45╱E╱ // 0x4b33 @0x5
0x4b2e…4b39 at0006 = ╱44╱D╱ // 0x4b34 @0x6
0x4b2e…4b39 at0007 = ╱54╱T╱ // 0x4b35 @0x7
0x4b2e…4b39 at0008 = ╱41╱A╱ // 0x4b36 @0x8
0x4b2e…4b39 at0009 = ╱4c╱L╱ // 0x4b37 @0x9
0x4b2e…4b39 at000a = EOL // 0x4b38 @0xa
0x4b2e…4b39 }
0x4b39…4b50 e08b 04010 PROC EDTAL ( X1 , Y1 , T1 $ )
0x4b39…4b50 LineComal80 {
0x4b39…4b50 ptr = 0xe08b // 0x4b39 @0x0
0x4b39…4b50 lno = 0x0faa // 0x4b3b @0x2
0x4b39…4b50 at0004 = ╱9e31╱ PROC ╱ // 0x4b3d @0x4
0x4b39…4b50 at0006 = ╱45╱E╱ // 0x4b3f @0x6
0x4b39…4b50 at0007 = ╱44╱D╱ // 0x4b40 @0x7
0x4b39…4b50 at0008 = ╱54╱T╱ // 0x4b41 @0x8
0x4b39…4b50 at0009 = ╱41╱A╱ // 0x4b42 @0x9
0x4b39…4b50 at000a = ╱4c╱L╱ // 0x4b43 @0xa
0x4b39…4b50 at000b = ╱ed╱ ( ╱ // 0x4b44 @0xb
0x4b39…4b50 at000c = ╱58╱X╱ // 0x4b45 @0xc
0x4b39…4b50 at000d = ╱31╱1╱ // 0x4b46 @0xd
0x4b39…4b50 at000e = ╱ec╱ , ╱ // 0x4b47 @0xe
0x4b39…4b50 at000f = ╱59╱Y╱ // 0x4b48 @0xf
0x4b39…4b50 at0010 = ╱31╱1╱ // 0x4b49 @0x10
0x4b39…4b50 at0011 = ╱ec╱ , ╱ // 0x4b4a @0x11
0x4b39…4b50 at0012 = ╱54╱T╱ // 0x4b4b @0x12
0x4b39…4b50 at0013 = ╱31╱1╱ // 0x4b4c @0x13
0x4b39…4b50 at0014 = ╱ef╱ $ ╱ // 0x4b4d @0x14
0x4b39…4b50 at0015 = ╱ee╱ ) ╱ // 0x4b4e @0x15
0x4b39…4b50 at0016 = EOL // 0x4b4f @0x16
0x4b39…4b50 }
0x4b50…4b5c e14a 04150 LET A := 5
0x4b50…4b5c LineComal80 {
0x4b50…4b5c ptr = 0xe14a // 0x4b50 @0x0
0x4b50…4b5c lno = 0x1036 // 0x4b52 @0x2
0x4b50…4b5c at0004 = ╱86╱ LET ╱ // 0x4b54 @0x4
0x4b50…4b5c at0005 = ╱41╱A╱ // 0x4b55 @0x5
0x4b50…4b5c at0006 = ╱f0╱ := ╱ // 0x4b56 @0x6
0x4b50…4b5c at0007 = ╱35╱5╱ // 0x4b57 @0x7
0x4b50…4b5c at0008 = ╱f20500╱ // 0x4b58 @0x8
0x4b50…4b5c at000b = EOL // 0x4b5b @0xb
0x4b50…4b5c }
0x4b5c…4b88 e176 04160 EXEC EDTAL ( 12 , 12 , "Indtast…et…tal…:…" )
0x4b5c…4b88 LineComal80 {
0x4b5c…4b88 ptr = 0xe176 // 0x4b5c @0x0
0x4b5c…4b88 lno = 0x1040 // 0x4b5e @0x2
0x4b5c…4b88 at0004 = ╱9d╱ EXEC ╱ // 0x4b60 @0x4
0x4b5c…4b88 at0005 = ╱45╱E╱ // 0x4b61 @0x5
0x4b5c…4b88 at0006 = ╱44╱D╱ // 0x4b62 @0x6
0x4b5c…4b88 at0007 = ╱54╱T╱ // 0x4b63 @0x7
0x4b5c…4b88 at0008 = ╱41╱A╱ // 0x4b64 @0x8
0x4b5c…4b88 at0009 = ╱4c╱L╱ // 0x4b65 @0x9
0x4b5c…4b88 at000a = ╱ed╱ ( ╱ // 0x4b66 @0xa
0x4b5c…4b88 at000b = ╱31╱1╱ // 0x4b67 @0xb
0x4b5c…4b88 at000c = ╱32╱2╱ // 0x4b68 @0xc
0x4b5c…4b88 at000d = ╱f20c00╱ // 0x4b69 @0xd
0x4b5c…4b88 at0010 = ╱ec╱ , ╱ // 0x4b6c @0x10
0x4b5c…4b88 at0011 = ╱31╱1╱ // 0x4b6d @0x11
0x4b5c…4b88 at0012 = ╱32╱2╱ // 0x4b6e @0x12
0x4b5c…4b88 at0013 = ╱f20c00╱ // 0x4b6f @0x13
0x4b5c…4b88 at0016 = ╱ec╱ , ╱ // 0x4b72 @0x16
0x4b5c…4b88 at0017 = ╱22╱"╱ // 0x4b73 @0x17
0x4b5c…4b88 at0018 = ╱49╱I╱ // 0x4b74 @0x18
0x4b5c…4b88 at0019 = ╱6e╱n╱ // 0x4b75 @0x19
0x4b5c…4b88 at001a = ╱64╱d╱ // 0x4b76 @0x1a
0x4b5c…4b88 at001b = ╱74╱t╱ // 0x4b77 @0x1b
0x4b5c…4b88 at001c = ╱61╱a╱ // 0x4b78 @0x1c
0x4b5c…4b88 at001d = ╱73╱s╱ // 0x4b79 @0x1d
0x4b5c…4b88 at001e = ╱74╱t╱ // 0x4b7a @0x1e
0x4b5c…4b88 at001f = ╱20╱…╱ // 0x4b7b @0x1f
0x4b5c…4b88 at0020 = ╱65╱e╱ // 0x4b7c @0x20
0x4b5c…4b88 at0021 = ╱74╱t╱ // 0x4b7d @0x21
0x4b5c…4b88 at0022 = ╱20╱…╱ // 0x4b7e @0x22
0x4b5c…4b88 at0023 = ╱74╱t╱ // 0x4b7f @0x23
0x4b5c…4b88 at0024 = ╱61╱a╱ // 0x4b80 @0x24
0x4b5c…4b88 at0025 = ╱6c╱l╱ // 0x4b81 @0x25
0x4b5c…4b88 at0026 = ╱20╱…╱ // 0x4b82 @0x26
0x4b5c…4b88 at0027 = ╱3a╱:╱ // 0x4b83 @0x27
0x4b5c…4b88 at0028 = ╱20╱…╱ // 0x4b84 @0x28
0x4b5c…4b88 at0029 = ╱22╱"╱ // 0x4b85 @0x29
0x4b5c…4b88 at002a = ╱ee╱ ) ╱ // 0x4b86 @0x2a
0x4b5c…4b88 at002b = EOL // 0x4b87 @0x2b
0x4b5c…4b88 }
0x4b88…4b8f e17d 04170 PRINT A
0x4b88…4b8f LineComal80 {
0x4b88…4b8f ptr = 0xe17d // 0x4b88 @0x0
0x4b88…4b8f lno = 0x104a // 0x4b8a @0x2
0x4b88…4b8f at0004 = ╱92╱ PRINT ╱ // 0x4b8c @0x4
0x4b88…4b8f at0005 = ╱41╱A╱ // 0x4b8d @0x5
0x4b88…4b8f at0006 = EOL // 0x4b8e @0x6
0x4b88…4b8f }
0x4b8f…4b9c e18a 03260 ENDPROC EDITTAL
0x4b8f…4b9c LineComal80 {
0x4b8f…4b9c ptr = 0xe18a // 0x4b8f @0x0
0x4b8f…4b9c lno = 0x0cbc // 0x4b91 @0x2
0x4b8f…4b9c at0004 = ╱9f╱ ENDPROC ╱ // 0x4b93 @0x4
0x4b8f…4b9c at0005 = ╱45╱E╱ // 0x4b94 @0x5
0x4b8f…4b9c at0006 = ╱44╱D╱ // 0x4b95 @0x6
0x4b8f…4b9c at0007 = ╱49╱I╱ // 0x4b96 @0x7
0x4b8f…4b9c at0008 = ╱54╱T╱ // 0x4b97 @0x8
0x4b8f…4b9c at0009 = ╱54╱T╱ // 0x4b98 @0x9
0x4b8f…4b9c at000a = ╱41╱A╱ // 0x4b99 @0xa
0x4b8f…4b9c at000b = ╱4c╱L╱ // 0x4b9a @0xb
0x4b8f…4b9c at000c = EOL // 0x4b9b @0xc
0x4b8f…4b9c }
0x4b9c…4ba1 e2b3 03270
0x4b9c…4ba1 LineComal80 {
0x4b9c…4ba1 ptr = 0xe2b3 // 0x4b9c @0x0
0x4b9c…4ba1 lno = 0x0cc6 // 0x4b9e @0x2
0x4b9c…4ba1 at0004 = EOL // 0x4ba0 @0x4
0x4b9c…4ba1 }
0x4ba1…4bba e1a8 09001 PROC TAL_CONTROL ( REF RST $ )
0x4ba1…4bba LineComal80 {
0x4ba1…4bba ptr = 0xe1a8 // 0x4ba1 @0x0
0x4ba1…4bba lno = 0x2329 // 0x4ba3 @0x2
0x4ba1…4bba at0004 = ╱9e35╱ PROC ╱ // 0x4ba5 @0x4
0x4ba1…4bba at0006 = ╱54╱T╱ // 0x4ba7 @0x6
0x4ba1…4bba at0007 = ╱41╱A╱ // 0x4ba8 @0x7
0x4ba1…4bba at0008 = ╱4c╱L╱ // 0x4ba9 @0x8
0x4ba1…4bba at0009 = ╱5f╱_╱ // 0x4baa @0x9
0x4ba1…4bba at000a = ╱43╱C╱ // 0x4bab @0xa
0x4ba1…4bba at000b = ╱4f╱O╱ // 0x4bac @0xb
0x4ba1…4bba at000c = ╱4e╱N╱ // 0x4bad @0xc
0x4ba1…4bba at000d = ╱54╱T╱ // 0x4bae @0xd
0x4ba1…4bba at000e = ╱52╱R╱ // 0x4baf @0xe
0x4ba1…4bba at000f = ╱4f╱O╱ // 0x4bb0 @0xf
0x4ba1…4bba at0010 = ╱4c╱L╱ // 0x4bb1 @0x10
0x4ba1…4bba at0011 = ╱ed╱ ( ╱ // 0x4bb2 @0x11
0x4ba1…4bba at0012 = ╱b6╱ REF ╱ // 0x4bb3 @0x12
0x4ba1…4bba at0013 = ╱52╱R╱ // 0x4bb4 @0x13
0x4ba1…4bba at0014 = ╱53╱S╱ // 0x4bb5 @0x14
0x4ba1…4bba at0015 = ╱54╱T╱ // 0x4bb6 @0x15
0x4ba1…4bba at0016 = ╱ef╱ $ ╱ // 0x4bb7 @0x16
0x4ba1…4bba at0017 = ╱ee╱ ) ╱ // 0x4bb8 @0x17
0x4ba1…4bba at0018 = EOL // 0x4bb9 @0x18
0x4ba1…4bba }
0x4bba…4bce e1bc 09002 LET J := 0 ; OK := TRUE
0x4bba…4bce LineComal80 {
0x4bba…4bce ptr = 0xe1bc // 0x4bba @0x0
0x4bba…4bce lno = 0x232a // 0x4bbc @0x2
0x4bba…4bce at0004 = ╱86╱ LET ╱ // 0x4bbe @0x4
0x4bba…4bce at0005 = ╱4a╱J╱ // 0x4bbf @0x5
0x4bba…4bce at0006 = ╱f0╱ := ╱ // 0x4bc0 @0x6
0x4bba…4bce at0007 = ╱30╱0╱ // 0x4bc1 @0x7
0x4bba…4bce at0008 = ╱f20000╱ // 0x4bc2 @0x8
0x4bba…4bce at000b = ╱ea╱ ; ╱ // 0x4bc5 @0xb
0x4bba…4bce at000c = ╱4f╱O╱ // 0x4bc6 @0xc
0x4bba…4bce at000d = ╱4b╱K╱ // 0x4bc7 @0xd
0x4bba…4bce at000e = ╱f0╱ := ╱ // 0x4bc8 @0xe
0x4bba…4bce at000f = ╱54╱T╱ // 0x4bc9 @0xf
0x4bba…4bce at0010 = ╱52╱R╱ // 0x4bca @0x10
0x4bba…4bce at0011 = ╱55╱U╱ // 0x4bcb @0x11
0x4bba…4bce at0012 = ╱45╱E╱ // 0x4bcc @0x12
0x4bba…4bce at0013 = EOL // 0x4bcd @0x13
0x4bba…4bce }
0x4bce…4be4 e1d2 09003 FOR I := 1 TO ( RST $ ) DO
0x4bce…4be4 LineComal80 {
0x4bce…4be4 ptr = 0xe1d2 // 0x4bce @0x0
0x4bce…4be4 lno = 0x232b // 0x4bd0 @0x2
0x4bce…4be4 at0004 = ╱8336╱ FOR ╱ // 0x4bd2 @0x4
0x4bce…4be4 at0006 = ╱49╱I╱ // 0x4bd4 @0x6
0x4bce…4be4 at0007 = ╱f0╱ := ╱ // 0x4bd5 @0x7
0x4bce…4be4 at0008 = ╱31╱1╱ // 0x4bd6 @0x8
0x4bce…4be4 at0009 = ╱f20100╱ // 0x4bd7 @0x9
0x4bce…4be4 at000c = ╱b7cb╱ TO ╱ // 0x4bda @0xc
0x4bce…4be4 at000e = ╱ed╱ ( ╱ // 0x4bdc @0xe
0x4bce…4be4 at000f = ╱52╱R╱ // 0x4bdd @0xf
0x4bce…4be4 at0010 = ╱53╱S╱ // 0x4bde @0x10
0x4bce…4be4 at0011 = ╱54╱T╱ // 0x4bdf @0x11
0x4bce…4be4 at0012 = ╱ef╱ $ ╱ // 0x4be0 @0x12
0x4bce…4be4 at0013 = ╱ee╱ ) ╱ // 0x4be1 @0x13
0x4bce…4be4 at0014 = ╱bb╱ DO ╱ // 0x4be2 @0x14
0x4bce…4be4 at0015 = EOL // 0x4be3 @0x15
0x4bce…4be4 }
0x4be4…4c15 e203 09004 IF RST $ ( I ) IN TAL $ + "." THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
0x4be4…4c15 LineComal80 {
0x4be4…4c15 ptr = 0xe203 // 0x4be4 @0x0
0x4be4…4c15 lno = 0x232c // 0x4be6 @0x2
0x4be4…4c15 at0004 = ╱8200╱ IF ╱ // 0x4be8 @0x4
0x4be4…4c15 at0006 = ╱52╱R╱ // 0x4bea @0x6
0x4be4…4c15 at0007 = ╱53╱S╱ // 0x4beb @0x7
0x4be4…4c15 at0008 = ╱54╱T╱ // 0x4bec @0x8
0x4be4…4c15 at0009 = ╱ef╱ $ ╱ // 0x4bed @0x9
0x4be4…4c15 at000a = ╱ed╱ ( ╱ // 0x4bee @0xa
0x4be4…4c15 at000b = ╱49╱I╱ // 0x4bef @0xb
0x4be4…4c15 at000c = ╱ee╱ ) ╱ // 0x4bf0 @0xc
0x4be4…4c15 at000d = ╱dc╱ IN ╱ // 0x4bf1 @0xd
0x4be4…4c15 at000e = ╱54╱T╱ // 0x4bf2 @0xe
0x4be4…4c15 at000f = ╱41╱A╱ // 0x4bf3 @0xf
0x4be4…4c15 at0010 = ╱4c╱L╱ // 0x4bf4 @0x10
0x4be4…4c15 at0011 = ╱ef╱ $ ╱ // 0x4bf5 @0x11
0x4be4…4c15 at0012 = ╱eb╱ + ╱ // 0x4bf6 @0x12
0x4be4…4c15 at0013 = ╱22╱"╱ // 0x4bf7 @0x13
0x4be4…4c15 at0014 = ╱2e╱.╱ // 0x4bf8 @0x14
0x4be4…4c15 at0015 = ╱22╱"╱ // 0x4bf9 @0x15
0x4be4…4c15 at0016 = ╱b5╱ THEN ╱ // 0x4bfa @0x16
0x4be4…4c15 at0017 = ╱86╱ LET ╱ // 0x4bfb @0x17
0x4be4…4c15 at0018 = ╱4a╱J╱ // 0x4bfc @0x18
0x4be4…4c15 at0019 = ╱f0╱ := ╱ // 0x4bfd @0x19
0x4be4…4c15 at001a = ╱4a╱J╱ // 0x4bfe @0x1a
0x4be4…4c15 at001b = ╱e5╱ + ╱ // 0x4bff @0x1b
0x4be4…4c15 at001c = ╱31╱1╱ // 0x4c00 @0x1c
0x4be4…4c15 at001d = ╱f20100╱ // 0x4c01 @0x1d
0x4be4…4c15 at0020 = ╱ea╱ ; ╱ // 0x4c04 @0x20
0x4be4…4c15 at0021 = ╱52╱R╱ // 0x4c05 @0x21
0x4be4…4c15 at0022 = ╱53╱S╱ // 0x4c06 @0x22
0x4be4…4c15 at0023 = ╱54╱T╱ // 0x4c07 @0x23
0x4be4…4c15 at0024 = ╱ef╱ $ ╱ // 0x4c08 @0x24
0x4be4…4c15 at0025 = ╱ed╱ ( ╱ // 0x4c09 @0x25
0x4be4…4c15 at0026 = ╱4a╱J╱ // 0x4c0a @0x26
0x4be4…4c15 at0027 = ╱ee╱ ) ╱ // 0x4c0b @0x27
0x4be4…4c15 at0028 = ╱f0╱ := ╱ // 0x4c0c @0x28
0x4be4…4c15 at0029 = ╱52╱R╱ // 0x4c0d @0x29
0x4be4…4c15 at002a = ╱53╱S╱ // 0x4c0e @0x2a
0x4be4…4c15 at002b = ╱54╱T╱ // 0x4c0f @0x2b
0x4be4…4c15 at002c = ╱ef╱ $ ╱ // 0x4c10 @0x2c
0x4be4…4c15 at002d = ╱ed╱ ( ╱ // 0x4c11 @0x2d
0x4be4…4c15 at002e = ╱49╱I╱ // 0x4c12 @0x2e
0x4be4…4c15 at002f = ╱ee╱ ) ╱ // 0x4c13 @0x2f
0x4be4…4c15 at0030 = EOL // 0x4c14 @0x30
0x4be4…4c15 }
0x4c15…4c1c e20a 09005 NEXT I
0x4c15…4c1c LineComal80 {
0x4c15…4c1c ptr = 0xe20a // 0x4c15 @0x0
0x4c15…4c1c lno = 0x232d // 0x4c17 @0x2
0x4c15…4c1c at0004 = ╱84╱ NEXT ╱ // 0x4c19 @0x4
0x4c15…4c1c at0005 = ╱49╱I╱ // 0x4c1a @0x5
0x4c15…4c1c at0006 = EOL // 0x4c1b @0x6
0x4c15…4c1c }
0x4c1c…4c2a e218 09006 IF = 0 THEN
0x4c1c…4c2a LineComal80 {
0x4c1c…4c2a ptr = 0xe218 // 0x4c1c @0x0
0x4c1c…4c2a lno = 0x232e // 0x4c1e @0x2
0x4c1c…4c2a at0004 = ╱9b374a╱ IF ╱ // 0x4c20 @0x4
0x4c1c…4c2a at0007 = ╱df╱ = ╱ // 0x4c23 @0x7
0x4c1c…4c2a at0008 = ╱30╱0╱ // 0x4c24 @0x8
0x4c1c…4c2a at0009 = ╱f20000╱ // 0x4c25 @0x9
0x4c1c…4c2a at000c = ╱b5╱ THEN ╱ // 0x4c28 @0xc
0x4c1c…4c2a at000d = EOL // 0x4c29 @0xd
0x4c1c…4c2a }
0x4c2a…4c38 e226 09007 LET OK := FALSE
0x4c2a…4c38 LineComal80 {
0x4c2a…4c38 ptr = 0xe226 // 0x4c2a @0x0
0x4c2a…4c38 lno = 0x232f // 0x4c2c @0x2
0x4c2a…4c38 at0004 = ╱86╱ LET ╱ // 0x4c2e @0x4
0x4c2a…4c38 at0005 = ╱4f╱O╱ // 0x4c2f @0x5
0x4c2a…4c38 at0006 = ╱4b╱K╱ // 0x4c30 @0x6
0x4c2a…4c38 at0007 = ╱f0╱ := ╱ // 0x4c31 @0x7
0x4c2a…4c38 at0008 = ╱46╱F╱ // 0x4c32 @0x8
0x4c2a…4c38 at0009 = ╱41╱A╱ // 0x4c33 @0x9
0x4c2a…4c38 at000a = ╱4c╱L╱ // 0x4c34 @0xa
0x4c2a…4c38 at000b = ╱53╱S╱ // 0x4c35 @0xb
0x4c2a…4c38 at000c = ╱45╱E╱ // 0x4c36 @0xc
0x4c2a…4c38 at000d = EOL // 0x4c37 @0xd
0x4c2a…4c38 }
0x4c38…4c3f e22d 09008 ELSE
0x4c38…4c3f LineComal80 {
0x4c38…4c3f ptr = 0xe22d // 0x4c38 @0x0
0x4c38…4c3f lno = 0x2330 // 0x4c3a @0x2
0x4c38…4c3f at0004 = ╱9a38╱ ELSE ╱ // 0x4c3c @0x4
0x4c38…4c3f at0006 = EOL // 0x4c3e @0x6
0x4c38…4c3f }
0x4c3f…4c56 e244 09009 LET RST $ := RST $ ( 1 : J )
0x4c3f…4c56 LineComal80 {
0x4c3f…4c56 ptr = 0xe244 // 0x4c3f @0x0
0x4c3f…4c56 lno = 0x2331 // 0x4c41 @0x2
0x4c3f…4c56 at0004 = ╱86╱ LET ╱ // 0x4c43 @0x4
0x4c3f…4c56 at0005 = ╱52╱R╱ // 0x4c44 @0x5
0x4c3f…4c56 at0006 = ╱53╱S╱ // 0x4c45 @0x6
0x4c3f…4c56 at0007 = ╱54╱T╱ // 0x4c46 @0x7
0x4c3f…4c56 at0008 = ╱ef╱ $ ╱ // 0x4c47 @0x8
0x4c3f…4c56 at0009 = ╱f0╱ := ╱ // 0x4c48 @0x9
0x4c3f…4c56 at000a = ╱52╱R╱ // 0x4c49 @0xa
0x4c3f…4c56 at000b = ╱53╱S╱ // 0x4c4a @0xb
0x4c3f…4c56 at000c = ╱54╱T╱ // 0x4c4b @0xc
0x4c3f…4c56 at000d = ╱ef╱ $ ╱ // 0x4c4c @0xd
0x4c3f…4c56 at000e = ╱ed╱ ( ╱ // 0x4c4d @0xe
0x4c3f…4c56 at000f = ╱31╱1╱ // 0x4c4e @0xf
0x4c3f…4c56 at0010 = ╱f20100╱ // 0x4c4f @0x10
0x4c3f…4c56 at0013 = ╱f1╱ : ╱ // 0x4c52 @0x13
0x4c3f…4c56 at0014 = ╱4a╱J╱ // 0x4c53 @0x14
0x4c3f…4c56 at0015 = ╱ee╱ ) ╱ // 0x4c54 @0x15
0x4c3f…4c56 at0016 = EOL // 0x4c55 @0x16
0x4c3f…4c56 }
0x4c56…4c5c e24a 09010 ENDIF
0x4c56…4c5c LineComal80 {
0x4c56…4c5c ptr = 0xe24a // 0x4c56 @0x0
0x4c56…4c5c lno = 0x2332 // 0x4c58 @0x2
0x4c56…4c5c at0004 = ╱9c╱ ENDIF ╱ // 0x4c5a @0x4
0x4c56…4c5c at0005 = EOL // 0x4c5b @0x5
0x4c56…4c5c }
0x4c5c…4c6d e25b 09011 ENDPROC TAL_CONTROL
0x4c5c…4c6d LineComal80 {
0x4c5c…4c6d ptr = 0xe25b // 0x4c5c @0x0
0x4c5c…4c6d lno = 0x2333 // 0x4c5e @0x2
0x4c5c…4c6d at0004 = ╱9f╱ ENDPROC ╱ // 0x4c60 @0x4
0x4c5c…4c6d at0005 = ╱54╱T╱ // 0x4c61 @0x5
0x4c5c…4c6d at0006 = ╱41╱A╱ // 0x4c62 @0x6
0x4c5c…4c6d at0007 = ╱4c╱L╱ // 0x4c63 @0x7
0x4c5c…4c6d at0008 = ╱5f╱_╱ // 0x4c64 @0x8
0x4c5c…4c6d at0009 = ╱43╱C╱ // 0x4c65 @0x9
0x4c5c…4c6d at000a = ╱4f╱O╱ // 0x4c66 @0xa
0x4c5c…4c6d at000b = ╱4e╱N╱ // 0x4c67 @0xb
0x4c5c…4c6d at000c = ╱54╱T╱ // 0x4c68 @0xc
0x4c5c…4c6d at000d = ╱52╱R╱ // 0x4c69 @0xd
0x4c5c…4c6d at000e = ╱4f╱O╱ // 0x4c6a @0xe
0x4c5c…4c6d at000f = ╱4c╱L╱ // 0x4c6b @0xf
0x4c5c…4c6d at0010 = EOL // 0x4c6c @0x10
0x4c5c…4c6d }
0x4c6d…4c72 0000 03390
0x4c6d…4c72 LineComal80 {
0x4c6d…4c72 ptr = 0x0000 // 0x4c6d @0x0
0x4c6d…4c72 lno = 0x0d3e // 0x4c6f @0x2
0x4c6d…4c72 at0004 = EOL // 0x4c71 @0x4
0x4c6d…4c72 }
0x4c72…4c7f c546 00140 EXEC EDITTAL
0x4c72…4c7f LineComal80 {
0x4c72…4c7f ptr = 0xc546 // 0x4c72 @0x0
0x4c72…4c7f lno = 0x008c // 0x4c74 @0x2
0x4c72…4c7f at0004 = ╱9d╱ EXEC ╱ // 0x4c76 @0x4
0x4c72…4c7f at0005 = ╱45╱E╱ // 0x4c77 @0x5
0x4c72…4c7f at0006 = ╱44╱D╱ // 0x4c78 @0x6
0x4c72…4c7f at0007 = ╱49╱I╱ // 0x4c79 @0x7
0x4c72…4c7f at0008 = ╱54╱T╱ // 0x4c7a @0x8
0x4c72…4c7f at0009 = ╱54╱T╱ // 0x4c7b @0x9
0x4c72…4c7f at000a = ╱41╱A╱ // 0x4c7c @0xa
0x4c72…4c7f at000b = ╱4c╱L╱ // 0x4c7d @0xb
0x4c72…4c7f at000c = EOL // 0x4c7e @0xc
0x4c72…4c7f }
0x4c7f…4cab 3a20 27680 at…te…tsatdnI ╱00╱ ╱00╱ ╱11╱ ╱00╱ J PROC ╱02╱ LET TAL $ := "0123456789"
0x4c7f…4cab LineComal80 {
0x4c7f…4cab ptr = 0x3a20 // 0x4c7f @0x0
0x4c7f…4cab lno = 0x6c20 // 0x4c81 @0x2
0x4c7f…4cab at0004 = ╱61╱a╱ // 0x4c83 @0x4
0x4c7f…4cab at0005 = ╱74╱t╱ // 0x4c84 @0x5
0x4c7f…4cab at0006 = ╱20╱…╱ // 0x4c85 @0x6
0x4c7f…4cab at0007 = ╱74╱t╱ // 0x4c86 @0x7
0x4c7f…4cab at0008 = ╱65╱e╱ // 0x4c87 @0x8
0x4c7f…4cab at0009 = ╱20╱…╱ // 0x4c88 @0x9
0x4c7f…4cab at000a = ╱74╱t╱ // 0x4c89 @0xa
0x4c7f…4cab at000b = ╱73╱s╱ // 0x4c8a @0xb
0x4c7f…4cab at000c = ╱61╱a╱ // 0x4c8b @0xc
0x4c7f…4cab at000d = ╱74╱t╱ // 0x4c8c @0xd
0x4c7f…4cab at000e = ╱64╱d╱ // 0x4c8d @0xe
0x4c7f…4cab at000f = ╱6e╱n╱ // 0x4c8e @0xf
0x4c7f…4cab at0010 = ╱49╱I╱ // 0x4c8f @0x10
0x4c7f…4cab at0011 = ╱00╱ // 0x4c90 @0x11
0x4c7f…4cab at0012 = ╱00╱ // 0x4c91 @0x12
0x4c7f…4cab at0013 = ╱11╱ // 0x4c92 @0x13
0x4c7f…4cab at0014 = ╱00╱ // 0x4c93 @0x14
0x4c7f…4cab at0015 = ╱4a╱J╱ // 0x4c94 @0x15
0x4c7f…4cab at0016 = ╱9e6c╱ PROC ╱ // 0x4c95 @0x16
0x4c7f…4cab at0018 = ╱02╱ // 0x4c97 @0x18
0x4c7f…4cab at0019 = ╱86╱ LET ╱ // 0x4c98 @0x19
0x4c7f…4cab at001a = ╱54╱T╱ // 0x4c99 @0x1a
0x4c7f…4cab at001b = ╱41╱A╱ // 0x4c9a @0x1b
0x4c7f…4cab at001c = ╱4c╱L╱ // 0x4c9b @0x1c
0x4c7f…4cab at001d = ╱ef╱ $ ╱ // 0x4c9c @0x1d
0x4c7f…4cab at001e = ╱f0╱ := ╱ // 0x4c9d @0x1e
0x4c7f…4cab at001f = ╱22╱"╱ // 0x4c9e @0x1f
0x4c7f…4cab at0020 = ╱30╱0╱ // 0x4c9f @0x20
0x4c7f…4cab at0021 = ╱31╱1╱ // 0x4ca0 @0x21
0x4c7f…4cab at0022 = ╱32╱2╱ // 0x4ca1 @0x22
0x4c7f…4cab at0023 = ╱33╱3╱ // 0x4ca2 @0x23
0x4c7f…4cab at0024 = ╱34╱4╱ // 0x4ca3 @0x24
0x4c7f…4cab at0025 = ╱35╱5╱ // 0x4ca4 @0x25
0x4c7f…4cab at0026 = ╱36╱6╱ // 0x4ca5 @0x26
0x4c7f…4cab at0027 = ╱37╱7╱ // 0x4ca6 @0x27
0x4c7f…4cab at0028 = ╱38╱8╱ // 0x4ca7 @0x28
0x4c7f…4cab at0029 = ╱39╱9╱ // 0x4ca8 @0x29
0x4c7f…4cab at002a = ╱22╱"╱ // 0x4ca9 @0x2a
0x4c7f…4cab at002b = EOL // 0x4caa @0x2b
0x4c7f…4cab }
0x4cab…4cde 1f1f 07967 ╱1f╱ ╱1f╱ OTNOKAY:2PD ╱00╱ ╱00╱ ╱11╱ ╱00╱ R ╱00╱ ╱00╱ ╱01╱ ╱00╱ ╱cc╱ =< CHR$ ╱0c╱ PROC TAL_CONTROL ( REF R[T $ )
0x4cab…4cde LineComal80 {
0x4cab…4cde ptr = 0x1f1f // 0x4cab @0x0
0x4cab…4cde lno = 0x1f1f // 0x4cad @0x2
0x4cab…4cde at0004 = ╱1f╱ // 0x4caf @0x4
0x4cab…4cde at0005 = ╱1f╱ // 0x4cb0 @0x5
0x4cab…4cde at0006 = ╱4f╱O╱ // 0x4cb1 @0x6
0x4cab…4cde at0007 = ╱54╱T╱ // 0x4cb2 @0x7
0x4cab…4cde at0008 = ╱4e╱N╱ // 0x4cb3 @0x8
0x4cab…4cde at0009 = ╱4f╱O╱ // 0x4cb4 @0x9
0x4cab…4cde at000a = ╱4b╱K╱ // 0x4cb5 @0xa
0x4cab…4cde at000b = ╱41╱A╱ // 0x4cb6 @0xb
0x4cab…4cde at000c = ╱59╱Y╱ // 0x4cb7 @0xc
0x4cab…4cde at000d = ╱3a╱:╱ // 0x4cb8 @0xd
0x4cab…4cde at000e = ╱32╱2╱ // 0x4cb9 @0xe
0x4cab…4cde at000f = ╱50╱P╱ // 0x4cba @0xf
0x4cab…4cde at0010 = ╱44╱D╱ // 0x4cbb @0x10
0x4cab…4cde at0011 = ╱00╱ // 0x4cbc @0x11
0x4cab…4cde at0012 = ╱00╱ // 0x4cbd @0x12
0x4cab…4cde at0013 = ╱11╱ // 0x4cbe @0x13
0x4cab…4cde at0014 = ╱00╱ // 0x4cbf @0x14
0x4cab…4cde at0015 = ╱52╱R╱ // 0x4cc0 @0x15
0x4cab…4cde at0016 = ╱00╱ // 0x4cc1 @0x16
0x4cab…4cde at0017 = ╱00╱ // 0x4cc2 @0x17
0x4cab…4cde at0018 = ╱01╱ // 0x4cc3 @0x18
0x4cab…4cde at0019 = ╱00╱ // 0x4cc4 @0x19
0x4cab…4cde at001a = ╱cc╱ // 0x4cc5 @0x1a
0x4cab…4cde at001b = ╱e2╱ =< ╱ // 0x4cc6 @0x1b
0x4cab…4cde at001c = ╱d0╱ CHR$ ╱ // 0x4cc7 @0x1c
0x4cab…4cde at001d = ╱0c╱ // 0x4cc8 @0x1d
0x4cab…4cde at001e = ╱9e35╱ PROC ╱ // 0x4cc9 @0x1e
0x4cab…4cde at0020 = ╱54╱T╱ // 0x4ccb @0x20
0x4cab…4cde at0021 = ╱41╱A╱ // 0x4ccc @0x21
0x4cab…4cde at0022 = ╱4c╱L╱ // 0x4ccd @0x22
0x4cab…4cde at0023 = ╱5f╱_╱ // 0x4cce @0x23
0x4cab…4cde at0024 = ╱43╱C╱ // 0x4ccf @0x24
0x4cab…4cde at0025 = ╱4f╱O╱ // 0x4cd0 @0x25
0x4cab…4cde at0026 = ╱4e╱N╱ // 0x4cd1 @0x26
0x4cab…4cde at0027 = ╱54╱T╱ // 0x4cd2 @0x27
0x4cab…4cde at0028 = ╱52╱R╱ // 0x4cd3 @0x28
0x4cab…4cde at0029 = ╱4f╱O╱ // 0x4cd4 @0x29
0x4cab…4cde at002a = ╱4c╱L╱ // 0x4cd5 @0x2a
0x4cab…4cde at002b = ╱ed╱ ( ╱ // 0x4cd6 @0x2b
0x4cab…4cde at002c = ╱b6╱ REF ╱ // 0x4cd7 @0x2c
0x4cab…4cde at002d = ╱52╱R╱ // 0x4cd8 @0x2d
0x4cab…4cde at002e = ╱5b╱[╱ // 0x4cd9 @0x2e
0x4cab…4cde at002f = ╱54╱T╱ // 0x4cda @0x2f
0x4cab…4cde at0030 = ╱ef╱ $ ╱ // 0x4cdb @0x30
0x4cab…4cde at0031 = ╱ee╱ ) ╱ // 0x4cdc @0x31
0x4cab…4cde at0032 = EOL // 0x4cdd @0x32
0x4cab…4cde }
0x4cde…4cf2 e2e0 03290 LET J := 0 ; OK := TRUE
0x4cde…4cf2 LineComal80 {
0x4cde…4cf2 ptr = 0xe2e0 // 0x4cde @0x0
0x4cde…4cf2 lno = 0x0cda // 0x4ce0 @0x2
0x4cde…4cf2 at0004 = ╱86╱ LET ╱ // 0x4ce2 @0x4
0x4cde…4cf2 at0005 = ╱4a╱J╱ // 0x4ce3 @0x5
0x4cde…4cf2 at0006 = ╱f0╱ := ╱ // 0x4ce4 @0x6
0x4cde…4cf2 at0007 = ╱30╱0╱ // 0x4ce5 @0x7
0x4cde…4cf2 at0008 = ╱f20000╱ // 0x4ce6 @0x8
0x4cde…4cf2 at000b = ╱ea╱ ; ╱ // 0x4ce9 @0xb
0x4cde…4cf2 at000c = ╱4f╱O╱ // 0x4cea @0xc
0x4cde…4cf2 at000d = ╱4b╱K╱ // 0x4ceb @0xd
0x4cde…4cf2 at000e = ╱f0╱ := ╱ // 0x4cec @0xe
0x4cde…4cf2 at000f = ╱54╱T╱ // 0x4ced @0xf
0x4cde…4cf2 at0010 = ╱52╱R╱ // 0x4cee @0x10
0x4cde…4cf2 at0011 = ╱55╱U╱ // 0x4cef @0x11
0x4cde…4cf2 at0012 = ╱45╱E╱ // 0x4cf0 @0x12
0x4cde…4cf2 at0013 = EOL // 0x4cf1 @0x13
0x4cde…4cf2 }
0x4cf2…4d08 e2f6 03300 FOR I := 1 TO ( R[T $ ) DO
0x4cf2…4d08 LineComal80 {
0x4cf2…4d08 ptr = 0xe2f6 // 0x4cf2 @0x0
0x4cf2…4d08 lno = 0x0ce4 // 0x4cf4 @0x2
0x4cf2…4d08 at0004 = ╱8336╱ FOR ╱ // 0x4cf6 @0x4
0x4cf2…4d08 at0006 = ╱49╱I╱ // 0x4cf8 @0x6
0x4cf2…4d08 at0007 = ╱f0╱ := ╱ // 0x4cf9 @0x7
0x4cf2…4d08 at0008 = ╱31╱1╱ // 0x4cfa @0x8
0x4cf2…4d08 at0009 = ╱f20100╱ // 0x4cfb @0x9
0x4cf2…4d08 at000c = ╱b7cb╱ TO ╱ // 0x4cfe @0xc
0x4cf2…4d08 at000e = ╱ed╱ ( ╱ // 0x4d00 @0xe
0x4cf2…4d08 at000f = ╱52╱R╱ // 0x4d01 @0xf
0x4cf2…4d08 at0010 = ╱5b╱[╱ // 0x4d02 @0x10
0x4cf2…4d08 at0011 = ╱54╱T╱ // 0x4d03 @0x11
0x4cf2…4d08 at0012 = ╱ef╱ $ ╱ // 0x4d04 @0x12
0x4cf2…4d08 at0013 = ╱ee╱ ) ╱ // 0x4d05 @0x13
0x4cf2…4d08 at0014 = ╱bb╱ DO ╱ // 0x4d06 @0x14
0x4cf2…4d08 at0015 = EOL // 0x4d07 @0x15
0x4cf2…4d08 }
0x4d08…4d39 e327 03310 IF R[T $ ( I ) IN TAL $ + "." THEN LET J := J + 1 ; R[T $ ( J ) := R[T $ ( I )
0x4d08…4d39 LineComal80 {
0x4d08…4d39 ptr = 0xe327 // 0x4d08 @0x0
0x4d08…4d39 lno = 0x0cee // 0x4d0a @0x2
0x4d08…4d39 at0004 = ╱8200╱ IF ╱ // 0x4d0c @0x4
0x4d08…4d39 at0006 = ╱52╱R╱ // 0x4d0e @0x6
0x4d08…4d39 at0007 = ╱5b╱[╱ // 0x4d0f @0x7
0x4d08…4d39 at0008 = ╱54╱T╱ // 0x4d10 @0x8
0x4d08…4d39 at0009 = ╱ef╱ $ ╱ // 0x4d11 @0x9
0x4d08…4d39 at000a = ╱ed╱ ( ╱ // 0x4d12 @0xa
0x4d08…4d39 at000b = ╱49╱I╱ // 0x4d13 @0xb
0x4d08…4d39 at000c = ╱ee╱ ) ╱ // 0x4d14 @0xc
0x4d08…4d39 at000d = ╱dc╱ IN ╱ // 0x4d15 @0xd
0x4d08…4d39 at000e = ╱54╱T╱ // 0x4d16 @0xe
0x4d08…4d39 at000f = ╱41╱A╱ // 0x4d17 @0xf
0x4d08…4d39 at0010 = ╱4c╱L╱ // 0x4d18 @0x10
0x4d08…4d39 at0011 = ╱ef╱ $ ╱ // 0x4d19 @0x11
0x4d08…4d39 at0012 = ╱eb╱ + ╱ // 0x4d1a @0x12
0x4d08…4d39 at0013 = ╱22╱"╱ // 0x4d1b @0x13
0x4d08…4d39 at0014 = ╱2e╱.╱ // 0x4d1c @0x14
0x4d08…4d39 at0015 = ╱22╱"╱ // 0x4d1d @0x15
0x4d08…4d39 at0016 = ╱b5╱ THEN ╱ // 0x4d1e @0x16
0x4d08…4d39 at0017 = ╱86╱ LET ╱ // 0x4d1f @0x17
0x4d08…4d39 at0018 = ╱4a╱J╱ // 0x4d20 @0x18
0x4d08…4d39 at0019 = ╱f0╱ := ╱ // 0x4d21 @0x19
0x4d08…4d39 at001a = ╱4a╱J╱ // 0x4d22 @0x1a
0x4d08…4d39 at001b = ╱e5╱ + ╱ // 0x4d23 @0x1b
0x4d08…4d39 at001c = ╱31╱1╱ // 0x4d24 @0x1c
0x4d08…4d39 at001d = ╱f20100╱ // 0x4d25 @0x1d
0x4d08…4d39 at0020 = ╱ea╱ ; ╱ // 0x4d28 @0x20
0x4d08…4d39 at0021 = ╱52╱R╱ // 0x4d29 @0x21
0x4d08…4d39 at0022 = ╱5b╱[╱ // 0x4d2a @0x22
0x4d08…4d39 at0023 = ╱54╱T╱ // 0x4d2b @0x23
0x4d08…4d39 at0024 = ╱ef╱ $ ╱ // 0x4d2c @0x24
0x4d08…4d39 at0025 = ╱ed╱ ( ╱ // 0x4d2d @0x25
0x4d08…4d39 at0026 = ╱4a╱J╱ // 0x4d2e @0x26
0x4d08…4d39 at0027 = ╱ee╱ ) ╱ // 0x4d2f @0x27
0x4d08…4d39 at0028 = ╱f0╱ := ╱ // 0x4d30 @0x28
0x4d08…4d39 at0029 = ╱52╱R╱ // 0x4d31 @0x29
0x4d08…4d39 at002a = ╱5b╱[╱ // 0x4d32 @0x2a
0x4d08…4d39 at002b = ╱54╱T╱ // 0x4d33 @0x2b
0x4d08…4d39 at002c = ╱ef╱ $ ╱ // 0x4d34 @0x2c
0x4d08…4d39 at002d = ╱ed╱ ( ╱ // 0x4d35 @0x2d
0x4d08…4d39 at002e = ╱49╱I╱ // 0x4d36 @0x2e
0x4d08…4d39 at002f = ╱ee╱ ) ╱ // 0x4d37 @0x2f
0x4d08…4d39 at0030 = EOL // 0x4d38 @0x30
0x4d08…4d39 }
0x4d39…4d40 e32e 03320 NEXT I
0x4d39…4d40 LineComal80 {
0x4d39…4d40 ptr = 0xe32e // 0x4d39 @0x0
0x4d39…4d40 lno = 0x0cf8 // 0x4d3b @0x2
0x4d39…4d40 at0004 = ╱84╱ NEXT ╱ // 0x4d3d @0x4
0x4d39…4d40 at0005 = ╱49╱I╱ // 0x4d3e @0x5
0x4d39…4d40 at0006 = EOL // 0x4d3f @0x6
0x4d39…4d40 }
0x4d40…4d4e e33c 03330 IF = 0 THEN
0x4d40…4d4e LineComal80 {
0x4d40…4d4e ptr = 0xe33c // 0x4d40 @0x0
0x4d40…4d4e lno = 0x0d02 // 0x4d42 @0x2
0x4d40…4d4e at0004 = ╱9b374a╱ IF ╱ // 0x4d44 @0x4
0x4d40…4d4e at0007 = ╱df╱ = ╱ // 0x4d47 @0x7
0x4d40…4d4e at0008 = ╱30╱0╱ // 0x4d48 @0x8
0x4d40…4d4e at0009 = ╱f20000╱ // 0x4d49 @0x9
0x4d40…4d4e at000c = ╱b5╱ THEN ╱ // 0x4d4c @0xc
0x4d40…4d4e at000d = EOL // 0x4d4d @0xd
0x4d40…4d4e }
0x4d4e…4d5c e34a 03340 LET OK := FALSE
0x4d4e…4d5c LineComal80 {
0x4d4e…4d5c ptr = 0xe34a // 0x4d4e @0x0
0x4d4e…4d5c lno = 0x0d0c // 0x4d50 @0x2
0x4d4e…4d5c at0004 = ╱86╱ LET ╱ // 0x4d52 @0x4
0x4d4e…4d5c at0005 = ╱4f╱O╱ // 0x4d53 @0x5
0x4d4e…4d5c at0006 = ╱4b╱K╱ // 0x4d54 @0x6
0x4d4e…4d5c at0007 = ╱f0╱ := ╱ // 0x4d55 @0x7
0x4d4e…4d5c at0008 = ╱46╱F╱ // 0x4d56 @0x8
0x4d4e…4d5c at0009 = ╱41╱A╱ // 0x4d57 @0x9
0x4d4e…4d5c at000a = ╱4c╱L╱ // 0x4d58 @0xa
0x4d4e…4d5c at000b = ╱53╱S╱ // 0x4d59 @0xb
0x4d4e…4d5c at000c = ╱45╱E╱ // 0x4d5a @0xc
0x4d4e…4d5c at000d = EOL // 0x4d5b @0xd
0x4d4e…4d5c }
0x4d5c…4d63 e351 03350 ELSE
0x4d5c…4d63 LineComal80 {
0x4d5c…4d63 ptr = 0xe351 // 0x4d5c @0x0
0x4d5c…4d63 lno = 0x0d16 // 0x4d5e @0x2
0x4d5c…4d63 at0004 = ╱9a38╱ ELSE ╱ // 0x4d60 @0x4
0x4d5c…4d63 at0006 = EOL // 0x4d62 @0x6
0x4d5c…4d63 }
0x4d63…4d7a e368 03360 LET R[T $ := R[T $ ( 1 : J )
0x4d63…4d7a LineComal80 {
0x4d63…4d7a ptr = 0xe368 // 0x4d63 @0x0
0x4d63…4d7a lno = 0x0d20 // 0x4d65 @0x2
0x4d63…4d7a at0004 = ╱86╱ LET ╱ // 0x4d67 @0x4
0x4d63…4d7a at0005 = ╱52╱R╱ // 0x4d68 @0x5
0x4d63…4d7a at0006 = ╱5b╱[╱ // 0x4d69 @0x6
0x4d63…4d7a at0007 = ╱54╱T╱ // 0x4d6a @0x7
0x4d63…4d7a at0008 = ╱ef╱ $ ╱ // 0x4d6b @0x8
0x4d63…4d7a at0009 = ╱f0╱ := ╱ // 0x4d6c @0x9
0x4d63…4d7a at000a = ╱52╱R╱ // 0x4d6d @0xa
0x4d63…4d7a at000b = ╱5b╱[╱ // 0x4d6e @0xb
0x4d63…4d7a at000c = ╱54╱T╱ // 0x4d6f @0xc
0x4d63…4d7a at000d = ╱ef╱ $ ╱ // 0x4d70 @0xd
0x4d63…4d7a at000e = ╱ed╱ ( ╱ // 0x4d71 @0xe
0x4d63…4d7a at000f = ╱31╱1╱ // 0x4d72 @0xf
0x4d63…4d7a at0010 = ╱f20100╱ // 0x4d73 @0x10
0x4d63…4d7a at0013 = ╱f1╱ : ╱ // 0x4d76 @0x13
0x4d63…4d7a at0014 = ╱4a╱J╱ // 0x4d77 @0x14
0x4d63…4d7a at0015 = ╱ee╱ ) ╱ // 0x4d78 @0x15
0x4d63…4d7a at0016 = EOL // 0x4d79 @0x16
0x4d63…4d7a }
0x4d7a…4d80 e36e 03370 ENDIF
0x4d7a…4d80 LineComal80 {
0x4d7a…4d80 ptr = 0xe36e // 0x4d7a @0x0
0x4d7a…4d80 lno = 0x0d2a // 0x4d7c @0x2
0x4d7a…4d80 at0004 = ╱9c╱ ENDIF ╱ // 0x4d7e @0x4
0x4d7a…4d80 at0005 = EOL // 0x4d7f @0x5
0x4d7a…4d80 }
0x4d80…4d91 e25b 03380 ENDPROC TAL_CONTROL
0x4d80…4d91 LineComal80 {
0x4d80…4d91 ptr = 0xe25b // 0x4d80 @0x0
0x4d80…4d91 lno = 0x0d34 // 0x4d82 @0x2
0x4d80…4d91 at0004 = ╱9f╱ ENDPROC ╱ // 0x4d84 @0x4
0x4d80…4d91 at0005 = ╱54╱T╱ // 0x4d85 @0x5
0x4d80…4d91 at0006 = ╱41╱A╱ // 0x4d86 @0x6
0x4d80…4d91 at0007 = ╱4c╱L╱ // 0x4d87 @0x7
0x4d80…4d91 at0008 = ╱5f╱_╱ // 0x4d88 @0x8
0x4d80…4d91 at0009 = ╱43╱C╱ // 0x4d89 @0x9
0x4d80…4d91 at000a = ╱4f╱O╱ // 0x4d8a @0xa
0x4d80…4d91 at000b = ╱4e╱N╱ // 0x4d8b @0xb
0x4d80…4d91 at000c = ╱54╱T╱ // 0x4d8c @0xc
0x4d80…4d91 at000d = ╱52╱R╱ // 0x4d8d @0xd
0x4d80…4d91 at000e = ╱4f╱O╱ // 0x4d8e @0xe
0x4d80…4d91 at000f = ╱4c╱L╱ // 0x4d8f @0xf
0x4d80…4d91 at0010 = EOL // 0x4d90 @0x10
0x4d80…4d91 }
0x4d91…4d9f e38d 03030 PROC EDITTAL
0x4d91…4d9f LineComal80 {
0x4d91…4d9f ptr = 0xe38d // 0x4d91 @0x0
0x4d91…4d9f lno = 0x0bd6 // 0x4d93 @0x2
0x4d91…4d9f at0004 = ╱9e30╱ PROC ╱ // 0x4d95 @0x4
0x4d91…4d9f at0006 = ╱45╱E╱ // 0x4d97 @0x6
0x4d91…4d9f at0007 = ╱44╱D╱ // 0x4d98 @0x7
0x4d91…4d9f at0008 = ╱49╱I╱ // 0x4d99 @0x8
0x4d91…4d9f at0009 = ╱54╱T╱ // 0x4d9a @0x9
0x4d91…4d9f at000a = ╱54╱T╱ // 0x4d9b @0xa
0x4d91…4d9f at000b = ╱41╱A╱ // 0x4d9c @0xb
0x4d91…4d9f at000c = ╱4c╱L╱ // 0x4d9d @0xc
0x4d91…4d9f at000d = EOL // 0x4d9e @0xd
0x4d91…4d9f }
0x4d9f…4db6 e3a4 03040 PROC EDTAL ( X1 , Y1 , T1 $ )
0x4d9f…4db6 LineComal80 {
0x4d9f…4db6 ptr = 0xe3a4 // 0x4d9f @0x0
0x4d9f…4db6 lno = 0x0be0 // 0x4da1 @0x2
0x4d9f…4db6 at0004 = ╱9e31╱ PROC ╱ // 0x4da3 @0x4
0x4d9f…4db6 at0006 = ╱45╱E╱ // 0x4da5 @0x6
0x4d9f…4db6 at0007 = ╱44╱D╱ // 0x4da6 @0x7
0x4d9f…4db6 at0008 = ╱54╱T╱ // 0x4da7 @0x8
0x4d9f…4db6 at0009 = ╱41╱A╱ // 0x4da8 @0x9
0x4d9f…4db6 at000a = ╱4c╱L╱ // 0x4da9 @0xa
0x4d9f…4db6 at000b = ╱ed╱ ( ╱ // 0x4daa @0xb
0x4d9f…4db6 at000c = ╱58╱X╱ // 0x4dab @0xc
0x4d9f…4db6 at000d = ╱31╱1╱ // 0x4dac @0xd
0x4d9f…4db6 at000e = ╱ec╱ , ╱ // 0x4dad @0xe
0x4d9f…4db6 at000f = ╱59╱Y╱ // 0x4dae @0xf
0x4d9f…4db6 at0010 = ╱31╱1╱ // 0x4daf @0x10
0x4d9f…4db6 at0011 = ╱ec╱ , ╱ // 0x4db0 @0x11
0x4d9f…4db6 at0012 = ╱54╱T╱ // 0x4db1 @0x12
0x4d9f…4db6 at0013 = ╱31╱1╱ // 0x4db2 @0x13
0x4d9f…4db6 at0014 = ╱ef╱ $ ╱ // 0x4db3 @0x14
0x4d9f…4db6 at0015 = ╱ee╱ ) ╱ // 0x4db4 @0x15
0x4d9f…4db6 at0016 = EOL // 0x4db5 @0x16
0x4d9f…4db6 }
0x4db6…4dc4 e3b2 03050 IF = 0 THEN
0x4db6…4dc4 LineComal80 {
0x4db6…4dc4 ptr = 0xe3b2 // 0x4db6 @0x0
0x4db6…4dc4 lno = 0x0bea // 0x4db8 @0x2
0x4db6…4dc4 at0004 = ╱9b325b╱ IF ╱ // 0x4dba @0x4
0x4db6…4dc4 at0007 = ╱df╱ = ╱ // 0x4dbd @0x7
0x4db6…4dc4 at0008 = ╱30╱0╱ // 0x4dbe @0x8
0x4db6…4dc4 at0009 = ╱f20000╱ // 0x4dbf @0x9
0x4db6…4dc4 at000c = ╱b5╱ THEN ╱ // 0x4dc2 @0xc
0x4db6…4dc4 at000d = EOL // 0x4dc3 @0xd
0x4db6…4dc4 }
0x4dc4…4dcf e3bd 03060 LET S $ := ""
0x4dc4…4dcf LineComal80 {
0x4dc4…4dcf ptr = 0xe3bd // 0x4dc4 @0x0
0x4dc4…4dcf lno = 0x0bf4 // 0x4dc6 @0x2
0x4dc4…4dcf at0004 = ╱86╱ LET ╱ // 0x4dc8 @0x4
0x4dc4…4dcf at0005 = ╱53╱S╱ // 0x4dc9 @0x5
0x4dc4…4dcf at0006 = ╱ef╱ $ ╱ // 0x4dca @0x6
0x4dc4…4dcf at0007 = ╱f0╱ := ╱ // 0x4dcb @0x7
0x4dc4…4dcf at0008 = ╱22╱"╱ // 0x4dcc @0x8
0x4dc4…4dcf at0009 = ╱22╱"╱ // 0x4dcd @0x9
0x4dc4…4dcf at000a = EOL // 0x4dce @0xa
0x4dc4…4dcf }
0x4dcf…4dd6 e3c4 03070 ELSE
0x4dcf…4dd6 LineComal80 {
0x4dcf…4dd6 ptr = 0xe3c4 // 0x4dcf @0x0
0x4dcf…4dd6 lno = 0x0bfe // 0x4dd1 @0x2
0x4dcf…4dd6 at0004 = ╱9a33╱ ELSE ╱ // 0x4dd3 @0x4
0x4dcf…4dd6 at0006 = EOL // 0x4dd5 @0x6
0x4dcf…4dd6 }
0x4dd6…4ded e3db 03080 LET S $ := CHR$ ( [ , 8 , 0 )
0x4dd6…4ded LineComal80 {
0x4dd6…4ded ptr = 0xe3db // 0x4dd6 @0x0
0x4dd6…4ded lno = 0x0c08 // 0x4dd8 @0x2
0x4dd6…4ded at0004 = ╱86╱ LET ╱ // 0x4dda @0x4
0x4dd6…4ded at0005 = ╱53╱S╱ // 0x4ddb @0x5
0x4dd6…4ded at0006 = ╱ef╱ $ ╱ // 0x4ddc @0x6
0x4dd6…4ded at0007 = ╱f0╱ := ╱ // 0x4ddd @0x7
0x4dd6…4ded at0008 = ╱d0╱ CHR$ ╱ // 0x4dde @0x8
0x4dd6…4ded at0009 = ╱ed╱ ( ╱ // 0x4ddf @0x9
0x4dd6…4ded at000a = ╱5b╱[╱ // 0x4de0 @0xa
0x4dd6…4ded at000b = ╱ec╱ , ╱ // 0x4de1 @0xb
0x4dd6…4ded at000c = ╱38╱8╱ // 0x4de2 @0xc
0x4dd6…4ded at000d = ╱f20800╱ // 0x4de3 @0xd
0x4dd6…4ded at0010 = ╱ec╱ , ╱ // 0x4de6 @0x10
0x4dd6…4ded at0011 = ╱30╱0╱ // 0x4de7 @0x11
0x4dd6…4ded at0012 = ╱f20000╱ // 0x4de8 @0x12
0x4dd6…4ded at0015 = ╱ee╱ ) ╱ // 0x4deb @0x15
0x4dd6…4ded at0016 = EOL // 0x4dec @0x16
0x4dd6…4ded }
0x4ded…4df3 e3e1 03090 ENDIF
0x4ded…4df3 LineComal80 {
0x4ded…4df3 ptr = 0xe3e1 // 0x4ded @0x0
0x4ded…4df3 lno = 0x0c12 // 0x4def @0x2
0x4ded…4df3 at0004 = ╱9c╱ ENDIF ╱ // 0x4df1 @0x4
0x4ded…4df3 at0005 = EOL // 0x4df2 @0x5
0x4ded…4df3 }
0x4df3…4dfa e3e8 03100 REPEAT
0x4df3…4dfa LineComal80 {
0x4df3…4dfa ptr = 0xe3e8 // 0x4df3 @0x0
0x4df3…4dfa lno = 0x0c1c // 0x4df5 @0x2
0x4df3…4dfa at0004 = ╱9734╱ REPEAT ╱ // 0x4df7 @0x4
0x4df3…4dfa at0006 = EOL // 0x4df9 @0x6
0x4df3…4dfa }
0x4dfa…4e05 e3f3 03110 CURSOR X1 , Y1
0x4dfa…4e05 LineComal80 {
0x4dfa…4e05 ptr = 0xe3f3 // 0x4dfa @0x0
0x4dfa…4e05 lno = 0x0c26 // 0x4dfc @0x2
0x4dfa…4e05 at0004 = ╱a1╱ CURSOR ╱ // 0x4dfe @0x4
0x4dfa…4e05 at0005 = ╱58╱X╱ // 0x4dff @0x5
0x4dfa…4e05 at0006 = ╱31╱1╱ // 0x4e00 @0x6
0x4dfa…4e05 at0007 = ╱ec╱ , ╱ // 0x4e01 @0x7
0x4dfa…4e05 at0008 = ╱59╱Y╱ // 0x4e02 @0x8
0x4dfa…4e05 at0009 = ╱31╱1╱ // 0x4e03 @0x9
0x4dfa…4e05 at000a = EOL // 0x4e04 @0xa
0x4dfa…4e05 }
0x4e05…4e15 e6b1 03120 PRINT "<ZS>" ; T1 $
0x4e05…4e15 LineComal80 {
0x4e05…4e15 ptr = 0xe6b1 // 0x4e05 @0x0
0x4e05…4e15 lno = 0x0c30 // 0x4e07 @0x2
0x4e05…4e15 at0004 = ╱92╱ PRINT ╱ // 0x4e09 @0x4
0x4e05…4e15 at0005 = ╱22╱"╱ // 0x4e0a @0x5
0x4e05…4e15 at0006 = ╱3c╱<╱ // 0x4e0b @0x6
0x4e05…4e15 at0007 = ╱5a╱Z╱ // 0x4e0c @0x7
0x4e05…4e15 at0008 = ╱53╱S╱ // 0x4e0d @0x8
0x4e05…4e15 at0009 = ╱3e╱>╱ // 0x4e0e @0x9
0x4e05…4e15 at000a = ╱22╱"╱ // 0x4e0f @0xa
0x4e05…4e15 at000b = ╱ea╱ ; ╱ // 0x4e10 @0xb
0x4e05…4e15 at000c = ╱54╱T╱ // 0x4e11 @0xc
0x4e05…4e15 at000d = ╱31╱1╱ // 0x4e12 @0xd
0x4e05…4e15 at000e = ╱ef╱ $ ╱ // 0x4e13 @0xe
0x4e05…4e15 at000f = EOL // 0x4e14 @0xf
0x4e05…4e15 }
0x4e15…4e1d e40b 03130 EDIT S $
0x4e15…4e1d LineComal80 {
0x4e15…4e1d ptr = 0xe40b // 0x4e15 @0x0
0x4e15…4e1d lno = 0x0c3a // 0x4e17 @0x2
0x4e15…4e1d at0004 = ╱b1╱ EDIT ╱ // 0x4e19 @0x4
0x4e15…4e1d at0005 = ╱53╱S╱ // 0x4e1a @0x5
0x4e15…4e1d at0006 = ╱ef╱ $ ╱ // 0x4e1b @0x6
0x4e15…4e1d at0007 = EOL // 0x4e1c @0x7
0x4e15…4e1d }
0x4e1d…4e32 e420 03140 EXEC TAL_CONTROL ( S $ )
0x4e1d…4e32 LineComal80 {
0x4e1d…4e32 ptr = 0xe420 // 0x4e1d @0x0
0x4e1d…4e32 lno = 0x0c44 // 0x4e1f @0x2
0x4e1d…4e32 at0004 = ╱9d╱ EXEC ╱ // 0x4e21 @0x4
0x4e1d…4e32 at0005 = ╱54╱T╱ // 0x4e22 @0x5
0x4e1d…4e32 at0006 = ╱41╱A╱ // 0x4e23 @0x6
0x4e1d…4e32 at0007 = ╱4c╱L╱ // 0x4e24 @0x7
0x4e1d…4e32 at0008 = ╱5f╱_╱ // 0x4e25 @0x8
0x4e1d…4e32 at0009 = ╱43╱C╱ // 0x4e26 @0x9
0x4e1d…4e32 at000a = ╱4f╱O╱ // 0x4e27 @0xa
0x4e1d…4e32 at000b = ╱4e╱N╱ // 0x4e28 @0xb
0x4e1d…4e32 at000c = ╱54╱T╱ // 0x4e29 @0xc
0x4e1d…4e32 at000d = ╱52╱R╱ // 0x4e2a @0xd
0x4e1d…4e32 at000e = ╱4f╱O╱ // 0x4e2b @0xe
0x4e1d…4e32 at000f = ╱4c╱L╱ // 0x4e2c @0xf
0x4e1d…4e32 at0010 = ╱ed╱ ( ╱ // 0x4e2d @0x10
0x4e1d…4e32 at0011 = ╱53╱S╱ // 0x4e2e @0x11
0x4e1d…4e32 at0012 = ╱ef╱ $ ╱ // 0x4e2f @0x12
0x4e1d…4e32 at0013 = ╱ee╱ ) ╱ // 0x4e30 @0x13
0x4e1d…4e32 at0014 = EOL // 0x4e31 @0x14
0x4e1d…4e32 }
0x4e32…4e3a e428 03150 UNTIL OK
0x4e32…4e3a LineComal80 {
0x4e32…4e3a ptr = 0xe428 // 0x4e32 @0x0
0x4e32…4e3a lno = 0x0c4e // 0x4e34 @0x2
0x4e32…4e3a at0004 = ╱98╱ UNTIL ╱ // 0x4e36 @0x4
0x4e32…4e3a at0005 = ╱4f╱O╱ // 0x4e37 @0x5
0x4e32…4e3a at0006 = ╱4b╱K╱ // 0x4e38 @0x6
0x4e32…4e3a at0007 = EOL // 0x4e39 @0x7
0x4e32…4e3a }
0x4e3a…4e47 e435 03160 LET [ := ASC ( S $ )
0x4e3a…4e47 LineComal80 {
0x4e3a…4e47 ptr = 0xe435 // 0x4e3a @0x0
0x4e3a…4e47 lno = 0x0c58 // 0x4e3c @0x2
0x4e3a…4e47 at0004 = ╱86╱ LET ╱ // 0x4e3e @0x4
0x4e3a…4e47 at0005 = ╱5b╱[╱ // 0x4e3f @0x5
0x4e3a…4e47 at0006 = ╱f0╱ := ╱ // 0x4e40 @0x6
0x4e3a…4e47 at0007 = ╱cf╱ ASC ╱ // 0x4e41 @0x7
0x4e3a…4e47 at0008 = ╱ed╱ ( ╱ // 0x4e42 @0x8
0x4e3a…4e47 at0009 = ╱53╱S╱ // 0x4e43 @0x9
0x4e3a…4e47 at000a = ╱ef╱ $ ╱ // 0x4e44 @0xa
0x4e3a…4e47 at000b = ╱ee╱ ) ╱ // 0x4e45 @0xb
0x4e3a…4e47 at000c = EOL // 0x4e46 @0xc
0x4e3a…4e47 }
0x4e47…4e52 e601 03170 ENDPROC EDTAL
0x4e47…4e52 LineComal80 {
0x4e47…4e52 ptr = 0xe601 // 0x4e47 @0x0
0x4e47…4e52 lno = 0x0c62 // 0x4e49 @0x2
0x4e47…4e52 at0004 = ╱9f╱ ENDPROC ╱ // 0x4e4b @0x4
0x4e47…4e52 at0005 = ╱45╱E╱ // 0x4e4c @0x5
0x4e47…4e52 at0006 = ╱44╱D╱ // 0x4e4d @0x6
0x4e47…4e52 at0007 = ╱54╱T╱ // 0x4e4e @0x7
0x4e47…4e52 at0008 = ╱41╱A╱ // 0x4e4f @0x8
0x4e47…4e52 at0009 = ╱4c╱L╱ // 0x4e50 @0x9
0x4e47…4e52 at000a = EOL // 0x4e51 @0xa
0x4e47…4e52 }
0x4e52…4e5e e47f 03180 LET [ := 5
0x4e52…4e5e LineComal80 {
0x4e52…4e5e ptr = 0xe47f // 0x4e52 @0x0
0x4e52…4e5e lno = 0x0c6c // 0x4e54 @0x2
0x4e52…4e5e at0004 = ╱86╱ LET ╱ // 0x4e56 @0x4
0x4e52…4e5e at0005 = ╱5b╱[╱ // 0x4e57 @0x5
0x4e52…4e5e at0006 = ╱f0╱ := ╱ // 0x4e58 @0x6
0x4e52…4e5e at0007 = ╱35╱5╱ // 0x4e59 @0x7
0x4e52…4e5e at0008 = ╱f20500╱ // 0x4e5a @0x8
0x4e52…4e5e at000b = EOL // 0x4e5d @0xb
0x4e52…4e5e }
0x4e5e…4e8a e478 03240 EXEC EDTAL ( 12 , 12 , "Indtast…et…tal…:…" )
0x4e5e…4e8a LineComal80 {
0x4e5e…4e8a ptr = 0xe478 // 0x4e5e @0x0
0x4e5e…4e8a lno = 0x0ca8 // 0x4e60 @0x2
0x4e5e…4e8a at0004 = ╱9d╱ EXEC ╱ // 0x4e62 @0x4
0x4e5e…4e8a at0005 = ╱45╱E╱ // 0x4e63 @0x5
0x4e5e…4e8a at0006 = ╱44╱D╱ // 0x4e64 @0x6
0x4e5e…4e8a at0007 = ╱54╱T╱ // 0x4e65 @0x7
0x4e5e…4e8a at0008 = ╱41╱A╱ // 0x4e66 @0x8
0x4e5e…4e8a at0009 = ╱4c╱L╱ // 0x4e67 @0x9
0x4e5e…4e8a at000a = ╱ed╱ ( ╱ // 0x4e68 @0xa
0x4e5e…4e8a at000b = ╱31╱1╱ // 0x4e69 @0xb
0x4e5e…4e8a at000c = ╱32╱2╱ // 0x4e6a @0xc
0x4e5e…4e8a at000d = ╱f20c00╱ // 0x4e6b @0xd
0x4e5e…4e8a at0010 = ╱ec╱ , ╱ // 0x4e6e @0x10
0x4e5e…4e8a at0011 = ╱31╱1╱ // 0x4e6f @0x11
0x4e5e…4e8a at0012 = ╱32╱2╱ // 0x4e70 @0x12
0x4e5e…4e8a at0013 = ╱f20c00╱ // 0x4e71 @0x13
0x4e5e…4e8a at0016 = ╱ec╱ , ╱ // 0x4e74 @0x16
0x4e5e…4e8a at0017 = ╱22╱"╱ // 0x4e75 @0x17
0x4e5e…4e8a at0018 = ╱49╱I╱ // 0x4e76 @0x18
0x4e5e…4e8a at0019 = ╱6e╱n╱ // 0x4e77 @0x19
0x4e5e…4e8a at001a = ╱64╱d╱ // 0x4e78 @0x1a
0x4e5e…4e8a at001b = ╱74╱t╱ // 0x4e79 @0x1b
0x4e5e…4e8a at001c = ╱61╱a╱ // 0x4e7a @0x1c
0x4e5e…4e8a at001d = ╱73╱s╱ // 0x4e7b @0x1d
0x4e5e…4e8a at001e = ╱74╱t╱ // 0x4e7c @0x1e
0x4e5e…4e8a at001f = ╱20╱…╱ // 0x4e7d @0x1f
0x4e5e…4e8a at0020 = ╱65╱e╱ // 0x4e7e @0x20
0x4e5e…4e8a at0021 = ╱74╱t╱ // 0x4e7f @0x21
0x4e5e…4e8a at0022 = ╱20╱…╱ // 0x4e80 @0x22
0x4e5e…4e8a at0023 = ╱74╱t╱ // 0x4e81 @0x23
0x4e5e…4e8a at0024 = ╱61╱a╱ // 0x4e82 @0x24
0x4e5e…4e8a at0025 = ╱6c╱l╱ // 0x4e83 @0x25
0x4e5e…4e8a at0026 = ╱20╱…╱ // 0x4e84 @0x26
0x4e5e…4e8a at0027 = ╱3a╱:╱ // 0x4e85 @0x27
0x4e5e…4e8a at0028 = ╱20╱…╱ // 0x4e86 @0x28
0x4e5e…4e8a at0029 = ╱22╱"╱ // 0x4e87 @0x29
0x4e5e…4e8a at002a = ╱ee╱ ) ╱ // 0x4e88 @0x2a
0x4e5e…4e8a at002b = EOL // 0x4e89 @0x2b
0x4e5e…4e8a }
0x4e8a…4e91 e17d 03250 PRINT [
0x4e8a…4e91 LineComal80 {
0x4e8a…4e91 ptr = 0xe17d // 0x4e8a @0x0
0x4e8a…4e91 lno = 0x0cb2 // 0x4e8c @0x2
0x4e8a…4e91 at0004 = ╱92╱ PRINT ╱ // 0x4e8e @0x4
0x4e8a…4e91 at0005 = ╱5b╱[╱ // 0x4e8f @0x5
0x4e8a…4e91 at0006 = EOL // 0x4e90 @0x6
0x4e8a…4e91 }
0x4e91…4ecf e611 03190 EXEC EDTAL ( 20 , 8 , "Indtast…driftslederl|n……………25……………:…" )
0x4e91…4ecf LineComal80 {
0x4e91…4ecf ptr = 0xe611 // 0x4e91 @0x0
0x4e91…4ecf lno = 0x0c76 // 0x4e93 @0x2
0x4e91…4ecf at0004 = ╱9d╱ EXEC ╱ // 0x4e95 @0x4
0x4e91…4ecf at0005 = ╱45╱E╱ // 0x4e96 @0x5
0x4e91…4ecf at0006 = ╱44╱D╱ // 0x4e97 @0x6
0x4e91…4ecf at0007 = ╱54╱T╱ // 0x4e98 @0x7
0x4e91…4ecf at0008 = ╱41╱A╱ // 0x4e99 @0x8
0x4e91…4ecf at0009 = ╱4c╱L╱ // 0x4e9a @0x9
0x4e91…4ecf at000a = ╱ed╱ ( ╱ // 0x4e9b @0xa
0x4e91…4ecf at000b = ╱32╱2╱ // 0x4e9c @0xb
0x4e91…4ecf at000c = ╱30╱0╱ // 0x4e9d @0xc
0x4e91…4ecf at000d = ╱f21400╱ // 0x4e9e @0xd
0x4e91…4ecf at0010 = ╱ec╱ , ╱ // 0x4ea1 @0x10
0x4e91…4ecf at0011 = ╱38╱8╱ // 0x4ea2 @0x11
0x4e91…4ecf at0012 = ╱f20800╱ // 0x4ea3 @0x12
0x4e91…4ecf at0015 = ╱ec╱ , ╱ // 0x4ea6 @0x15
0x4e91…4ecf at0016 = ╱22╱"╱ // 0x4ea7 @0x16
0x4e91…4ecf at0017 = ╱49╱I╱ // 0x4ea8 @0x17
0x4e91…4ecf at0018 = ╱6e╱n╱ // 0x4ea9 @0x18
0x4e91…4ecf at0019 = ╱64╱d╱ // 0x4eaa @0x19
0x4e91…4ecf at001a = ╱74╱t╱ // 0x4eab @0x1a
0x4e91…4ecf at001b = ╱61╱a╱ // 0x4eac @0x1b
0x4e91…4ecf at001c = ╱73╱s╱ // 0x4ead @0x1c
0x4e91…4ecf at001d = ╱74╱t╱ // 0x4eae @0x1d
0x4e91…4ecf at001e = ╱20╱…╱ // 0x4eaf @0x1e
0x4e91…4ecf at001f = ╱64╱d╱ // 0x4eb0 @0x1f
0x4e91…4ecf at0020 = ╱72╱r╱ // 0x4eb1 @0x20
0x4e91…4ecf at0021 = ╱69╱i╱ // 0x4eb2 @0x21
0x4e91…4ecf at0022 = ╱66╱f╱ // 0x4eb3 @0x22
0x4e91…4ecf at0023 = ╱74╱t╱ // 0x4eb4 @0x23
0x4e91…4ecf at0024 = ╱73╱s╱ // 0x4eb5 @0x24
0x4e91…4ecf at0025 = ╱6c╱l╱ // 0x4eb6 @0x25
0x4e91…4ecf at0026 = ╱65╱e╱ // 0x4eb7 @0x26
0x4e91…4ecf at0027 = ╱64╱d╱ // 0x4eb8 @0x27
0x4e91…4ecf at0028 = ╱65╱e╱ // 0x4eb9 @0x28
0x4e91…4ecf at0029 = ╱72╱r╱ // 0x4eba @0x29
0x4e91…4ecf at002a = ╱6c╱l╱ // 0x4ebb @0x2a
0x4e91…4ecf at002b = ╱7c╱|╱ // 0x4ebc @0x2b
0x4e91…4ecf at002c = ╱6e╱n╱ // 0x4ebd @0x2c
0x4e91…4ecf at002d = ╱20╱…╱ // 0x4ebe @0x2d
0x4e91…4ecf at002e = ╱20╱…╱ // 0x4ebf @0x2e
0x4e91…4ecf at002f = ╱20╱…╱ // 0x4ec0 @0x2f
0x4e91…4ecf at0030 = ╱20╱…╱ // 0x4ec1 @0x30
0x4e91…4ecf at0031 = ╱20╱…╱ // 0x4ec2 @0x31
0x4e91…4ecf at0032 = ╱32╱2╱ // 0x4ec3 @0x32
0x4e91…4ecf at0033 = ╱35╱5╱ // 0x4ec4 @0x33
0x4e91…4ecf at0034 = ╱20╱…╱ // 0x4ec5 @0x34
0x4e91…4ecf at0035 = ╱20╱…╱ // 0x4ec6 @0x35
0x4e91…4ecf at0036 = ╱20╱…╱ // 0x4ec7 @0x36
0x4e91…4ecf at0037 = ╱20╱…╱ // 0x4ec8 @0x37
0x4e91…4ecf at0038 = ╱20╱…╱ // 0x4ec9 @0x38
0x4e91…4ecf at0039 = ╱3a╱:╱ // 0x4eca @0x39
0x4e91…4ecf at003a = ╱20╱…╱ // 0x4ecb @0x3a
0x4e91…4ecf at003b = ╱22╱"╱ // 0x4ecc @0x3b
0x4e91…4ecf at003c = ╱ee╱ ) ╱ // 0x4ecd @0x3c
0x4e91…4ecf at003d = EOL // 0x4ece @0x3d
0x4e91…4ecf }
0x4ecf…4f0d e631 03200 EXEC EDTAL ( 20 , 9 , "……………………lager…ialt,…primo……21……………:…" )
0x4ecf…4f0d LineComal80 {
0x4ecf…4f0d ptr = 0xe631 // 0x4ecf @0x0
0x4ecf…4f0d lno = 0x0c80 // 0x4ed1 @0x2
0x4ecf…4f0d at0004 = ╱9d╱ EXEC ╱ // 0x4ed3 @0x4
0x4ecf…4f0d at0005 = ╱45╱E╱ // 0x4ed4 @0x5
0x4ecf…4f0d at0006 = ╱44╱D╱ // 0x4ed5 @0x6
0x4ecf…4f0d at0007 = ╱54╱T╱ // 0x4ed6 @0x7
0x4ecf…4f0d at0008 = ╱41╱A╱ // 0x4ed7 @0x8
0x4ecf…4f0d at0009 = ╱4c╱L╱ // 0x4ed8 @0x9
0x4ecf…4f0d at000a = ╱ed╱ ( ╱ // 0x4ed9 @0xa
0x4ecf…4f0d at000b = ╱32╱2╱ // 0x4eda @0xb
0x4ecf…4f0d at000c = ╱30╱0╱ // 0x4edb @0xc
0x4ecf…4f0d at000d = ╱f21400╱ // 0x4edc @0xd
0x4ecf…4f0d at0010 = ╱ec╱ , ╱ // 0x4edf @0x10
0x4ecf…4f0d at0011 = ╱39╱9╱ // 0x4ee0 @0x11
0x4ecf…4f0d at0012 = ╱f20900╱ // 0x4ee1 @0x12
0x4ecf…4f0d at0015 = ╱ec╱ , ╱ // 0x4ee4 @0x15
0x4ecf…4f0d at0016 = ╱22╱"╱ // 0x4ee5 @0x16
0x4ecf…4f0d at0017 = ╱20╱…╱ // 0x4ee6 @0x17
0x4ecf…4f0d at0018 = ╱20╱…╱ // 0x4ee7 @0x18
0x4ecf…4f0d at0019 = ╱20╱…╱ // 0x4ee8 @0x19
0x4ecf…4f0d at001a = ╱20╱…╱ // 0x4ee9 @0x1a
0x4ecf…4f0d at001b = ╱20╱…╱ // 0x4eea @0x1b
0x4ecf…4f0d at001c = ╱20╱…╱ // 0x4eeb @0x1c
0x4ecf…4f0d at001d = ╱20╱…╱ // 0x4eec @0x1d
0x4ecf…4f0d at001e = ╱20╱…╱ // 0x4eed @0x1e
0x4ecf…4f0d at001f = ╱6c╱l╱ // 0x4eee @0x1f
0x4ecf…4f0d at0020 = ╱61╱a╱ // 0x4eef @0x20
0x4ecf…4f0d at0021 = ╱67╱g╱ // 0x4ef0 @0x21
0x4ecf…4f0d at0022 = ╱65╱e╱ // 0x4ef1 @0x22
0x4ecf…4f0d at0023 = ╱72╱r╱ // 0x4ef2 @0x23
0x4ecf…4f0d at0024 = ╱20╱…╱ // 0x4ef3 @0x24
0x4ecf…4f0d at0025 = ╱69╱i╱ // 0x4ef4 @0x25
0x4ecf…4f0d at0026 = ╱61╱a╱ // 0x4ef5 @0x26
0x4ecf…4f0d at0027 = ╱6c╱l╱ // 0x4ef6 @0x27
0x4ecf…4f0d at0028 = ╱74╱t╱ // 0x4ef7 @0x28
0x4ecf…4f0d at0029 = ╱2c╱,╱ // 0x4ef8 @0x29
0x4ecf…4f0d at002a = ╱20╱…╱ // 0x4ef9 @0x2a
0x4ecf…4f0d at002b = ╱70╱p╱ // 0x4efa @0x2b
0x4ecf…4f0d at002c = ╱72╱r╱ // 0x4efb @0x2c
0x4ecf…4f0d at002d = ╱69╱i╱ // 0x4efc @0x2d
0x4ecf…4f0d at002e = ╱6d╱m╱ // 0x4efd @0x2e
0x4ecf…4f0d at002f = ╱6f╱o╱ // 0x4efe @0x2f
0x4ecf…4f0d at0030 = ╱20╱…╱ // 0x4eff @0x30
0x4ecf…4f0d at0031 = ╱20╱…╱ // 0x4f00 @0x31
0x4ecf…4f0d at0032 = ╱32╱2╱ // 0x4f01 @0x32
0x4ecf…4f0d at0033 = ╱31╱1╱ // 0x4f02 @0x33
0x4ecf…4f0d at0034 = ╱20╱…╱ // 0x4f03 @0x34
0x4ecf…4f0d at0035 = ╱20╱…╱ // 0x4f04 @0x35
0x4ecf…4f0d at0036 = ╱20╱…╱ // 0x4f05 @0x36
0x4ecf…4f0d at0037 = ╱20╱…╱ // 0x4f06 @0x37
0x4ecf…4f0d at0038 = ╱20╱…╱ // 0x4f07 @0x38
0x4ecf…4f0d at0039 = ╱3a╱:╱ // 0x4f08 @0x39
0x4ecf…4f0d at003a = ╱20╱…╱ // 0x4f09 @0x3a
0x4ecf…4f0d at003b = ╱22╱"╱ // 0x4f0a @0x3b
0x4ecf…4f0d at003c = ╱ee╱ ) ╱ // 0x4f0b @0x3c
0x4ecf…4f0d at003d = EOL // 0x4f0c @0x3d
0x4ecf…4f0d }
0x4f0d…4f4c e651 03210 EXEC EDTAL ( 20 , 10 , "……………………\vrige…variable…omk.……A…27:…" )
0x4f0d…4f4c LineComal80 {
0x4f0d…4f4c ptr = 0xe651 // 0x4f0d @0x0
0x4f0d…4f4c lno = 0x0c8a // 0x4f0f @0x2
0x4f0d…4f4c at0004 = ╱9d╱ EXEC ╱ // 0x4f11 @0x4
0x4f0d…4f4c at0005 = ╱45╱E╱ // 0x4f12 @0x5
0x4f0d…4f4c at0006 = ╱44╱D╱ // 0x4f13 @0x6
0x4f0d…4f4c at0007 = ╱54╱T╱ // 0x4f14 @0x7
0x4f0d…4f4c at0008 = ╱41╱A╱ // 0x4f15 @0x8
0x4f0d…4f4c at0009 = ╱4c╱L╱ // 0x4f16 @0x9
0x4f0d…4f4c at000a = ╱ed╱ ( ╱ // 0x4f17 @0xa
0x4f0d…4f4c at000b = ╱32╱2╱ // 0x4f18 @0xb
0x4f0d…4f4c at000c = ╱30╱0╱ // 0x4f19 @0xc
0x4f0d…4f4c at000d = ╱f21400╱ // 0x4f1a @0xd
0x4f0d…4f4c at0010 = ╱ec╱ , ╱ // 0x4f1d @0x10
0x4f0d…4f4c at0011 = ╱31╱1╱ // 0x4f1e @0x11
0x4f0d…4f4c at0012 = ╱30╱0╱ // 0x4f1f @0x12
0x4f0d…4f4c at0013 = ╱f20a00╱ // 0x4f20 @0x13
0x4f0d…4f4c at0016 = ╱ec╱ , ╱ // 0x4f23 @0x16
0x4f0d…4f4c at0017 = ╱22╱"╱ // 0x4f24 @0x17
0x4f0d…4f4c at0018 = ╱20╱…╱ // 0x4f25 @0x18
0x4f0d…4f4c at0019 = ╱20╱…╱ // 0x4f26 @0x19
0x4f0d…4f4c at001a = ╱20╱…╱ // 0x4f27 @0x1a
0x4f0d…4f4c at001b = ╱20╱…╱ // 0x4f28 @0x1b
0x4f0d…4f4c at001c = ╱20╱…╱ // 0x4f29 @0x1c
0x4f0d…4f4c at001d = ╱20╱…╱ // 0x4f2a @0x1d
0x4f0d…4f4c at001e = ╱20╱…╱ // 0x4f2b @0x1e
0x4f0d…4f4c at001f = ╱20╱…╱ // 0x4f2c @0x1f
0x4f0d…4f4c at0020 = ╱5c╱\╱ // 0x4f2d @0x20
0x4f0d…4f4c at0021 = ╱76╱v╱ // 0x4f2e @0x21
0x4f0d…4f4c at0022 = ╱72╱r╱ // 0x4f2f @0x22
0x4f0d…4f4c at0023 = ╱69╱i╱ // 0x4f30 @0x23
0x4f0d…4f4c at0024 = ╱67╱g╱ // 0x4f31 @0x24
0x4f0d…4f4c at0025 = ╱65╱e╱ // 0x4f32 @0x25
0x4f0d…4f4c at0026 = ╱20╱…╱ // 0x4f33 @0x26
0x4f0d…4f4c at0027 = ╱76╱v╱ // 0x4f34 @0x27
0x4f0d…4f4c at0028 = ╱61╱a╱ // 0x4f35 @0x28
0x4f0d…4f4c at0029 = ╱72╱r╱ // 0x4f36 @0x29
0x4f0d…4f4c at002a = ╱69╱i╱ // 0x4f37 @0x2a
0x4f0d…4f4c at002b = ╱61╱a╱ // 0x4f38 @0x2b
0x4f0d…4f4c at002c = ╱62╱b╱ // 0x4f39 @0x2c
0x4f0d…4f4c at002d = ╱6c╱l╱ // 0x4f3a @0x2d
0x4f0d…4f4c at002e = ╱65╱e╱ // 0x4f3b @0x2e
0x4f0d…4f4c at002f = ╱20╱…╱ // 0x4f3c @0x2f
0x4f0d…4f4c at0030 = ╱6f╱o╱ // 0x4f3d @0x30
0x4f0d…4f4c at0031 = ╱6d╱m╱ // 0x4f3e @0x31
0x4f0d…4f4c at0032 = ╱6b╱k╱ // 0x4f3f @0x32
0x4f0d…4f4c at0033 = ╱2e╱.╱ // 0x4f40 @0x33
0x4f0d…4f4c at0034 = ╱20╱…╱ // 0x4f41 @0x34
0x4f0d…4f4c at0035 = ╱20╱…╱ // 0x4f42 @0x35
0x4f0d…4f4c at0036 = ╱41╱A╱ // 0x4f43 @0x36
0x4f0d…4f4c at0037 = ╱20╱…╱ // 0x4f44 @0x37
0x4f0d…4f4c at0038 = ╱32╱2╱ // 0x4f45 @0x38
0x4f0d…4f4c at0039 = ╱37╱7╱ // 0x4f46 @0x39
0x4f0d…4f4c at003a = ╱3a╱:╱ // 0x4f47 @0x3a
0x4f0d…4f4c at003b = ╱20╱…╱ // 0x4f48 @0x3b
0x4f0d…4f4c at003c = ╱22╱"╱ // 0x4f49 @0x3c
0x4f0d…4f4c at003d = ╱ee╱ ) ╱ // 0x4f4a @0x3d
0x4f0d…4f4c at003e = EOL // 0x4f4b @0x3e
0x4f0d…4f4c }
0x4f4c…4f8b e671 03220 EXEC EDTAL ( 20 , 11 , "……………………\vrige…variable…omk.……B…28:…" )
0x4f4c…4f8b LineComal80 {
0x4f4c…4f8b ptr = 0xe671 // 0x4f4c @0x0
0x4f4c…4f8b lno = 0x0c94 // 0x4f4e @0x2
0x4f4c…4f8b at0004 = ╱9d╱ EXEC ╱ // 0x4f50 @0x4
0x4f4c…4f8b at0005 = ╱45╱E╱ // 0x4f51 @0x5
0x4f4c…4f8b at0006 = ╱44╱D╱ // 0x4f52 @0x6
0x4f4c…4f8b at0007 = ╱54╱T╱ // 0x4f53 @0x7
0x4f4c…4f8b at0008 = ╱41╱A╱ // 0x4f54 @0x8
0x4f4c…4f8b at0009 = ╱4c╱L╱ // 0x4f55 @0x9
0x4f4c…4f8b at000a = ╱ed╱ ( ╱ // 0x4f56 @0xa
0x4f4c…4f8b at000b = ╱32╱2╱ // 0x4f57 @0xb
0x4f4c…4f8b at000c = ╱30╱0╱ // 0x4f58 @0xc
0x4f4c…4f8b at000d = ╱f21400╱ // 0x4f59 @0xd
0x4f4c…4f8b at0010 = ╱ec╱ , ╱ // 0x4f5c @0x10
0x4f4c…4f8b at0011 = ╱31╱1╱ // 0x4f5d @0x11
0x4f4c…4f8b at0012 = ╱31╱1╱ // 0x4f5e @0x12
0x4f4c…4f8b at0013 = ╱f20b00╱ // 0x4f5f @0x13
0x4f4c…4f8b at0016 = ╱ec╱ , ╱ // 0x4f62 @0x16
0x4f4c…4f8b at0017 = ╱22╱"╱ // 0x4f63 @0x17
0x4f4c…4f8b at0018 = ╱20╱…╱ // 0x4f64 @0x18
0x4f4c…4f8b at0019 = ╱20╱…╱ // 0x4f65 @0x19
0x4f4c…4f8b at001a = ╱20╱…╱ // 0x4f66 @0x1a
0x4f4c…4f8b at001b = ╱20╱…╱ // 0x4f67 @0x1b
0x4f4c…4f8b at001c = ╱20╱…╱ // 0x4f68 @0x1c
0x4f4c…4f8b at001d = ╱20╱…╱ // 0x4f69 @0x1d
0x4f4c…4f8b at001e = ╱20╱…╱ // 0x4f6a @0x1e
0x4f4c…4f8b at001f = ╱20╱…╱ // 0x4f6b @0x1f
0x4f4c…4f8b at0020 = ╱5c╱\╱ // 0x4f6c @0x20
0x4f4c…4f8b at0021 = ╱76╱v╱ // 0x4f6d @0x21
0x4f4c…4f8b at0022 = ╱72╱r╱ // 0x4f6e @0x22
0x4f4c…4f8b at0023 = ╱69╱i╱ // 0x4f6f @0x23
0x4f4c…4f8b at0024 = ╱67╱g╱ // 0x4f70 @0x24
0x4f4c…4f8b at0025 = ╱65╱e╱ // 0x4f71 @0x25
0x4f4c…4f8b at0026 = ╱20╱…╱ // 0x4f72 @0x26
0x4f4c…4f8b at0027 = ╱76╱v╱ // 0x4f73 @0x27
0x4f4c…4f8b at0028 = ╱61╱a╱ // 0x4f74 @0x28
0x4f4c…4f8b at0029 = ╱72╱r╱ // 0x4f75 @0x29
0x4f4c…4f8b at002a = ╱69╱i╱ // 0x4f76 @0x2a
0x4f4c…4f8b at002b = ╱61╱a╱ // 0x4f77 @0x2b
0x4f4c…4f8b at002c = ╱62╱b╱ // 0x4f78 @0x2c
0x4f4c…4f8b at002d = ╱6c╱l╱ // 0x4f79 @0x2d
0x4f4c…4f8b at002e = ╱65╱e╱ // 0x4f7a @0x2e
0x4f4c…4f8b at002f = ╱20╱…╱ // 0x4f7b @0x2f
0x4f4c…4f8b at0030 = ╱6f╱o╱ // 0x4f7c @0x30
0x4f4c…4f8b at0031 = ╱6d╱m╱ // 0x4f7d @0x31
0x4f4c…4f8b at0032 = ╱6b╱k╱ // 0x4f7e @0x32
0x4f4c…4f8b at0033 = ╱2e╱.╱ // 0x4f7f @0x33
0x4f4c…4f8b at0034 = ╱20╱…╱ // 0x4f80 @0x34
0x4f4c…4f8b at0035 = ╱20╱…╱ // 0x4f81 @0x35
0x4f4c…4f8b at0036 = ╱42╱B╱ // 0x4f82 @0x36
0x4f4c…4f8b at0037 = ╱20╱…╱ // 0x4f83 @0x37
0x4f4c…4f8b at0038 = ╱32╱2╱ // 0x4f84 @0x38
0x4f4c…4f8b at0039 = ╱38╱8╱ // 0x4f85 @0x39
0x4f4c…4f8b at003a = ╱3a╱:╱ // 0x4f86 @0x3a
0x4f4c…4f8b at003b = ╱20╱…╱ // 0x4f87 @0x3b
0x4f4c…4f8b at003c = ╱22╱"╱ // 0x4f88 @0x3c
0x4f4c…4f8b at003d = ╱ee╱ ) ╱ // 0x4f89 @0x3d
0x4f4c…4f8b at003e = EOL // 0x4f8a @0x3e
0x4f4c…4f8b }
0x4f8b…4fca e691 03230 EXEC EDTAL ( 20 , 12 , "……………………\vrige…variable…omk.……C…29:…" )
0x4f8b…4fca LineComal80 {
0x4f8b…4fca ptr = 0xe691 // 0x4f8b @0x0
0x4f8b…4fca lno = 0x0c9e // 0x4f8d @0x2
0x4f8b…4fca at0004 = ╱9d╱ EXEC ╱ // 0x4f8f @0x4
0x4f8b…4fca at0005 = ╱45╱E╱ // 0x4f90 @0x5
0x4f8b…4fca at0006 = ╱44╱D╱ // 0x4f91 @0x6
0x4f8b…4fca at0007 = ╱54╱T╱ // 0x4f92 @0x7
0x4f8b…4fca at0008 = ╱41╱A╱ // 0x4f93 @0x8
0x4f8b…4fca at0009 = ╱4c╱L╱ // 0x4f94 @0x9
0x4f8b…4fca at000a = ╱ed╱ ( ╱ // 0x4f95 @0xa
0x4f8b…4fca at000b = ╱32╱2╱ // 0x4f96 @0xb
0x4f8b…4fca at000c = ╱30╱0╱ // 0x4f97 @0xc
0x4f8b…4fca at000d = ╱f21400╱ // 0x4f98 @0xd
0x4f8b…4fca at0010 = ╱ec╱ , ╱ // 0x4f9b @0x10
0x4f8b…4fca at0011 = ╱31╱1╱ // 0x4f9c @0x11
0x4f8b…4fca at0012 = ╱32╱2╱ // 0x4f9d @0x12
0x4f8b…4fca at0013 = ╱f20c00╱ // 0x4f9e @0x13
0x4f8b…4fca at0016 = ╱ec╱ , ╱ // 0x4fa1 @0x16
0x4f8b…4fca at0017 = ╱22╱"╱ // 0x4fa2 @0x17
0x4f8b…4fca at0018 = ╱20╱…╱ // 0x4fa3 @0x18
0x4f8b…4fca at0019 = ╱20╱…╱ // 0x4fa4 @0x19
0x4f8b…4fca at001a = ╱20╱…╱ // 0x4fa5 @0x1a
0x4f8b…4fca at001b = ╱20╱…╱ // 0x4fa6 @0x1b
0x4f8b…4fca at001c = ╱20╱…╱ // 0x4fa7 @0x1c
0x4f8b…4fca at001d = ╱20╱…╱ // 0x4fa8 @0x1d
0x4f8b…4fca at001e = ╱20╱…╱ // 0x4fa9 @0x1e
0x4f8b…4fca at001f = ╱20╱…╱ // 0x4faa @0x1f
0x4f8b…4fca at0020 = ╱5c╱\╱ // 0x4fab @0x20
0x4f8b…4fca at0021 = ╱76╱v╱ // 0x4fac @0x21
0x4f8b…4fca at0022 = ╱72╱r╱ // 0x4fad @0x22
0x4f8b…4fca at0023 = ╱69╱i╱ // 0x4fae @0x23
0x4f8b…4fca at0024 = ╱67╱g╱ // 0x4faf @0x24
0x4f8b…4fca at0025 = ╱65╱e╱ // 0x4fb0 @0x25
0x4f8b…4fca at0026 = ╱20╱…╱ // 0x4fb1 @0x26
0x4f8b…4fca at0027 = ╱76╱v╱ // 0x4fb2 @0x27
0x4f8b…4fca at0028 = ╱61╱a╱ // 0x4fb3 @0x28
0x4f8b…4fca at0029 = ╱72╱r╱ // 0x4fb4 @0x29
0x4f8b…4fca at002a = ╱69╱i╱ // 0x4fb5 @0x2a
0x4f8b…4fca at002b = ╱61╱a╱ // 0x4fb6 @0x2b
0x4f8b…4fca at002c = ╱62╱b╱ // 0x4fb7 @0x2c
0x4f8b…4fca at002d = ╱6c╱l╱ // 0x4fb8 @0x2d
0x4f8b…4fca at002e = ╱65╱e╱ // 0x4fb9 @0x2e
0x4f8b…4fca at002f = ╱20╱…╱ // 0x4fba @0x2f
0x4f8b…4fca at0030 = ╱6f╱o╱ // 0x4fbb @0x30
0x4f8b…4fca at0031 = ╱6d╱m╱ // 0x4fbc @0x31
0x4f8b…4fca at0032 = ╱6b╱k╱ // 0x4fbd @0x32
0x4f8b…4fca at0033 = ╱2e╱.╱ // 0x4fbe @0x33
0x4f8b…4fca at0034 = ╱20╱…╱ // 0x4fbf @0x34
0x4f8b…4fca at0035 = ╱20╱…╱ // 0x4fc0 @0x35
0x4f8b…4fca at0036 = ╱43╱C╱ // 0x4fc1 @0x36
0x4f8b…4fca at0037 = ╱20╱…╱ // 0x4fc2 @0x37
0x4f8b…4fca at0038 = ╱32╱2╱ // 0x4fc3 @0x38
0x4f8b…4fca at0039 = ╱39╱9╱ // 0x4fc4 @0x39
0x4f8b…4fca at003a = ╱3a╱:╱ // 0x4fc5 @0x3a
0x4f8b…4fca at003b = ╱20╱…╱ // 0x4fc6 @0x3b
0x4f8b…4fca at003c = ╱22╱"╱ // 0x4fc7 @0x3c
0x4f8b…4fca at003d = ╱ee╱ ) ╱ // 0x4fc8 @0x3d
0x4f8b…4fca at003e = EOL // 0x4fc9 @0x3e
0x4f8b…4fca }
0x4fca…5006 da49 02420 INPUT "<C2218Z>Er…alle…tal…korrekt…indtastede?…(j/n)…" : SVAR $
0x4fca…5006 LineComal80 {
0x4fca…5006 ptr = 0xda49 // 0x4fca @0x0
0x4fca…5006 lno = 0x0974 // 0x4fcc @0x2
0x4fca…5006 at0004 = ╱91╱ INPUT ╱ // 0x4fce @0x4
0x4fca…5006 at0005 = ╱22╱"╱ // 0x4fcf @0x5
0x4fca…5006 at0006 = ╱3c╱<╱ // 0x4fd0 @0x6
0x4fca…5006 at0007 = ╱43╱C╱ // 0x4fd1 @0x7
0x4fca…5006 at0008 = ╱32╱2╱ // 0x4fd2 @0x8
0x4fca…5006 at0009 = ╱32╱2╱ // 0x4fd3 @0x9
0x4fca…5006 at000a = ╱31╱1╱ // 0x4fd4 @0xa
0x4fca…5006 at000b = ╱38╱8╱ // 0x4fd5 @0xb
0x4fca…5006 at000c = ╱5a╱Z╱ // 0x4fd6 @0xc
0x4fca…5006 at000d = ╱3e╱>╱ // 0x4fd7 @0xd
0x4fca…5006 at000e = ╱45╱E╱ // 0x4fd8 @0xe
0x4fca…5006 at000f = ╱72╱r╱ // 0x4fd9 @0xf
0x4fca…5006 at0010 = ╱20╱…╱ // 0x4fda @0x10
0x4fca…5006 at0011 = ╱61╱a╱ // 0x4fdb @0x11
0x4fca…5006 at0012 = ╱6c╱l╱ // 0x4fdc @0x12
0x4fca…5006 at0013 = ╱6c╱l╱ // 0x4fdd @0x13
0x4fca…5006 at0014 = ╱65╱e╱ // 0x4fde @0x14
0x4fca…5006 at0015 = ╱20╱…╱ // 0x4fdf @0x15
0x4fca…5006 at0016 = ╱74╱t╱ // 0x4fe0 @0x16
0x4fca…5006 at0017 = ╱61╱a╱ // 0x4fe1 @0x17
0x4fca…5006 at0018 = ╱6c╱l╱ // 0x4fe2 @0x18
0x4fca…5006 at0019 = ╱20╱…╱ // 0x4fe3 @0x19
0x4fca…5006 at001a = ╱6b╱k╱ // 0x4fe4 @0x1a
0x4fca…5006 at001b = ╱6f╱o╱ // 0x4fe5 @0x1b
0x4fca…5006 at001c = ╱72╱r╱ // 0x4fe6 @0x1c
0x4fca…5006 at001d = ╱72╱r╱ // 0x4fe7 @0x1d
0x4fca…5006 at001e = ╱65╱e╱ // 0x4fe8 @0x1e
0x4fca…5006 at001f = ╱6b╱k╱ // 0x4fe9 @0x1f
0x4fca…5006 at0020 = ╱74╱t╱ // 0x4fea @0x20
0x4fca…5006 at0021 = ╱20╱…╱ // 0x4feb @0x21
0x4fca…5006 at0022 = ╱69╱i╱ // 0x4fec @0x22
0x4fca…5006 at0023 = ╱6e╱n╱ // 0x4fed @0x23
0x4fca…5006 at0024 = ╱64╱d╱ // 0x4fee @0x24
0x4fca…5006 at0025 = ╱74╱t╱ // 0x4fef @0x25
0x4fca…5006 at0026 = ╱61╱a╱ // 0x4ff0 @0x26
0x4fca…5006 at0027 = ╱73╱s╱ // 0x4ff1 @0x27
0x4fca…5006 at0028 = ╱74╱t╱ // 0x4ff2 @0x28
0x4fca…5006 at0029 = ╱65╱e╱ // 0x4ff3 @0x29
0x4fca…5006 at002a = ╱64╱d╱ // 0x4ff4 @0x2a
0x4fca…5006 at002b = ╱65╱e╱ // 0x4ff5 @0x2b
0x4fca…5006 at002c = ╱3f╱?╱ // 0x4ff6 @0x2c
0x4fca…5006 at002d = ╱20╱…╱ // 0x4ff7 @0x2d
0x4fca…5006 at002e = ╱28╱(╱ // 0x4ff8 @0x2e
0x4fca…5006 at002f = ╱6a╱j╱ // 0x4ff9 @0x2f
0x4fca…5006 at0030 = ╱2f╱/╱ // 0x4ffa @0x30
0x4fca…5006 at0031 = ╱6e╱n╱ // 0x4ffb @0x31
0x4fca…5006 at0032 = ╱29╱)╱ // 0x4ffc @0x32
0x4fca…5006 at0033 = ╱20╱…╱ // 0x4ffd @0x33
0x4fca…5006 at0034 = ╱22╱"╱ // 0x4ffe @0x34
0x4fca…5006 at0035 = ╱f1╱ : ╱ // 0x4fff @0x35
0x4fca…5006 at0036 = ╱53╱S╱ // 0x5000 @0x36
0x4fca…5006 at0037 = ╱56╱V╱ // 0x5001 @0x37
0x4fca…5006 at0038 = ╱41╱A╱ // 0x5002 @0x38
0x4fca…5006 at0039 = ╱52╱R╱ // 0x5003 @0x39
0x4fca…5006 at003a = ╱ef╱ $ ╱ // 0x5004 @0x3a
0x4fca…5006 at003b = EOL // 0x5005 @0x3b
0x4fca…5006 }
0x5006…5013 e5b8 02410 EXEC EDITTAL
0x5006…5013 LineComal80 {
0x5006…5013 ptr = 0xe5b8 // 0x5006 @0x0
0x5006…5013 lno = 0x096a // 0x5008 @0x2
0x5006…5013 at0004 = ╱9d╱ EXEC ╱ // 0x500a @0x4
0x5006…5013 at0005 = ╱45╱E╱ // 0x500b @0x5
0x5006…5013 at0006 = ╱44╱D╱ // 0x500c @0x6
0x5006…5013 at0007 = ╱49╱I╱ // 0x500d @0x7
0x5006…5013 at0008 = ╱54╱T╱ // 0x500e @0x8
0x5006…5013 at0009 = ╱54╱T╱ // 0x500f @0x9
0x5006…5013 at000a = ╱41╱A╱ // 0x5010 @0xa
0x5006…5013 at000b = ╱4c╱L╱ // 0x5011 @0xb
0x5006…5013 at000c = EOL // 0x5012 @0xc
0x5006…5013 }
0x5013…5023 e6f2 03180 LET [ := X ( 25 )
0x5013…5023 LineComal80 {
0x5013…5023 ptr = 0xe6f2 // 0x5013 @0x0
0x5013…5023 lno = 0x0c6c // 0x5015 @0x2
0x5013…5023 at0004 = ╱86╱ LET ╱ // 0x5017 @0x4
0x5013…5023 at0005 = ╱5b╱[╱ // 0x5018 @0x5
0x5013…5023 at0006 = ╱f0╱ := ╱ // 0x5019 @0x6
0x5013…5023 at0007 = ╱58╱X╱ // 0x501a @0x7
0x5013…5023 at0008 = ╱ed╱ ( ╱ // 0x501b @0x8
0x5013…5023 at0009 = ╱32╱2╱ // 0x501c @0x9
0x5013…5023 at000a = ╱35╱5╱ // 0x501d @0xa
0x5013…5023 at000b = ╱f21900╱ // 0x501e @0xb
0x5013…5023 at000e = ╱ee╱ ) ╱ // 0x5021 @0xe
0x5013…5023 at000f = EOL // 0x5022 @0xf
0x5013…5023 }
0x5023…5033 e6a1 03191 LET X ( 25 ) := [
0x5023…5033 LineComal80 {
0x5023…5033 ptr = 0xe6a1 // 0x5023 @0x0
0x5023…5033 lno = 0x0c77 // 0x5025 @0x2
0x5023…5033 at0004 = ╱86╱ LET ╱ // 0x5027 @0x4
0x5023…5033 at0005 = ╱58╱X╱ // 0x5028 @0x5
0x5023…5033 at0006 = ╱ed╱ ( ╱ // 0x5029 @0x6
0x5023…5033 at0007 = ╱32╱2╱ // 0x502a @0x7
0x5023…5033 at0008 = ╱35╱5╱ // 0x502b @0x8
0x5023…5033 at0009 = ╱f21900╱ // 0x502c @0x9
0x5023…5033 at000c = ╱ee╱ ) ╱ // 0x502f @0xc
0x5023…5033 at000d = ╱f0╱ := ╱ // 0x5030 @0xd
0x5023…5033 at000e = ╱5b╱[╱ // 0x5031 @0xe
0x5023…5033 at000f = EOL // 0x5032 @0xf
0x5023…5033 }
0x5033…5043 e4bd 03199 LET [ := X ( 25 )
0x5033…5043 LineComal80 {
0x5033…5043 ptr = 0xe4bd // 0x5033 @0x0
0x5033…5043 lno = 0x0c7f // 0x5035 @0x2
0x5033…5043 at0004 = ╱86╱ LET ╱ // 0x5037 @0x4
0x5033…5043 at0005 = ╱5b╱[╱ // 0x5038 @0x5
0x5033…5043 at0006 = ╱f0╱ := ╱ // 0x5039 @0x6
0x5033…5043 at0007 = ╱58╱X╱ // 0x503a @0x7
0x5033…5043 at0008 = ╱ed╱ ( ╱ // 0x503b @0x8
0x5033…5043 at0009 = ╱32╱2╱ // 0x503c @0x9
0x5033…5043 at000a = ╱35╱5╱ // 0x503d @0xa
0x5033…5043 at000b = ╱f21900╱ // 0x503e @0xb
0x5033…5043 at000e = ╱ee╱ ) ╱ // 0x5041 @0xe
0x5033…5043 at000f = EOL // 0x5042 @0xf
0x5033…5043 }
0x5043…5053 e641 03201 LET X ( 21 ) := [
0x5043…5053 LineComal80 {
0x5043…5053 ptr = 0xe641 // 0x5043 @0x0
0x5043…5053 lno = 0x0c81 // 0x5045 @0x2
0x5043…5053 at0004 = ╱86╱ LET ╱ // 0x5047 @0x4
0x5043…5053 at0005 = ╱58╱X╱ // 0x5048 @0x5
0x5043…5053 at0006 = ╱ed╱ ( ╱ // 0x5049 @0x6
0x5043…5053 at0007 = ╱32╱2╱ // 0x504a @0x7
0x5043…5053 at0008 = ╱31╱1╱ // 0x504b @0x8
0x5043…5053 at0009 = ╱f21500╱ // 0x504c @0x9
0x5043…5053 at000c = ╱ee╱ ) ╱ // 0x504f @0xc
0x5043…5053 at000d = ╱f0╱ := ╱ // 0x5050 @0xd
0x5043…5053 at000e = ╱5b╱[╱ // 0x5051 @0xe
0x5043…5053 at000f = EOL // 0x5052 @0xf
0x5043…5053 }
0x5053…5063 e4fb 03209 LET [ := X ( 27 )
0x5053…5063 LineComal80 {
0x5053…5063 ptr = 0xe4fb // 0x5053 @0x0
0x5053…5063 lno = 0x0c89 // 0x5055 @0x2
0x5053…5063 at0004 = ╱86╱ LET ╱ // 0x5057 @0x4
0x5053…5063 at0005 = ╱5b╱[╱ // 0x5058 @0x5
0x5053…5063 at0006 = ╱f0╱ := ╱ // 0x5059 @0x6
0x5053…5063 at0007 = ╱58╱X╱ // 0x505a @0x7
0x5053…5063 at0008 = ╱ed╱ ( ╱ // 0x505b @0x8
0x5053…5063 at0009 = ╱32╱2╱ // 0x505c @0x9
0x5053…5063 at000a = ╱37╱7╱ // 0x505d @0xa
0x5053…5063 at000b = ╱f21b00╱ // 0x505e @0xb
0x5053…5063 at000e = ╱ee╱ ) ╱ // 0x5061 @0xe
0x5053…5063 at000f = EOL // 0x5062 @0xf
0x5053…5063 }
0x5063…5073 e661 03211 LET X ( 27 ) := [
0x5063…5073 LineComal80 {
0x5063…5073 ptr = 0xe661 // 0x5063 @0x0
0x5063…5073 lno = 0x0c8b // 0x5065 @0x2
0x5063…5073 at0004 = ╱86╱ LET ╱ // 0x5067 @0x4
0x5063…5073 at0005 = ╱58╱X╱ // 0x5068 @0x5
0x5063…5073 at0006 = ╱ed╱ ( ╱ // 0x5069 @0x6
0x5063…5073 at0007 = ╱32╱2╱ // 0x506a @0x7
0x5063…5073 at0008 = ╱37╱7╱ // 0x506b @0x8
0x5063…5073 at0009 = ╱f21b00╱ // 0x506c @0x9
0x5063…5073 at000c = ╱ee╱ ) ╱ // 0x506f @0xc
0x5063…5073 at000d = ╱f0╱ := ╱ // 0x5070 @0xd
0x5063…5073 at000e = ╱5b╱[╱ // 0x5071 @0xe
0x5063…5073 at000f = EOL // 0x5072 @0xf
0x5063…5073 }
0x5073…5083 e53a 03219 LET [ := X ( 28 )
0x5073…5083 LineComal80 {
0x5073…5083 ptr = 0xe53a // 0x5073 @0x0
0x5073…5083 lno = 0x0c93 // 0x5075 @0x2
0x5073…5083 at0004 = ╱86╱ LET ╱ // 0x5077 @0x4
0x5073…5083 at0005 = ╱5b╱[╱ // 0x5078 @0x5
0x5073…5083 at0006 = ╱f0╱ := ╱ // 0x5079 @0x6
0x5073…5083 at0007 = ╱58╱X╱ // 0x507a @0x7
0x5073…5083 at0008 = ╱ed╱ ( ╱ // 0x507b @0x8
0x5073…5083 at0009 = ╱32╱2╱ // 0x507c @0x9
0x5073…5083 at000a = ╱38╱8╱ // 0x507d @0xa
0x5073…5083 at000b = ╱f21c00╱ // 0x507e @0xb
0x5073…5083 at000e = ╱ee╱ ) ╱ // 0x5081 @0xe
0x5073…5083 at000f = EOL // 0x5082 @0xf
0x5073…5083 }
0x5083…5093 e681 03221 LET X ( 28 ) := [
0x5083…5093 LineComal80 {
0x5083…5093 ptr = 0xe681 // 0x5083 @0x0
0x5083…5093 lno = 0x0c95 // 0x5085 @0x2
0x5083…5093 at0004 = ╱86╱ LET ╱ // 0x5087 @0x4
0x5083…5093 at0005 = ╱58╱X╱ // 0x5088 @0x5
0x5083…5093 at0006 = ╱ed╱ ( ╱ // 0x5089 @0x6
0x5083…5093 at0007 = ╱32╱2╱ // 0x508a @0x7
0x5083…5093 at0008 = ╱38╱8╱ // 0x508b @0x8
0x5083…5093 at0009 = ╱f21c00╱ // 0x508c @0x9
0x5083…5093 at000c = ╱ee╱ ) ╱ // 0x508f @0xc
0x5083…5093 at000d = ╱f0╱ := ╱ // 0x5090 @0xd
0x5083…5093 at000e = ╱5b╱[╱ // 0x5091 @0xe
0x5083…5093 at000f = EOL // 0x5092 @0xf
0x5083…5093 }
0x5093…50a3 e579 03229 LET [ := X ( 29 )
0x5093…50a3 LineComal80 {
0x5093…50a3 ptr = 0xe579 // 0x5093 @0x0
0x5093…50a3 lno = 0x0c9d // 0x5095 @0x2
0x5093…50a3 at0004 = ╱86╱ LET ╱ // 0x5097 @0x4
0x5093…50a3 at0005 = ╱5b╱[╱ // 0x5098 @0x5
0x5093…50a3 at0006 = ╱f0╱ := ╱ // 0x5099 @0x6
0x5093…50a3 at0007 = ╱58╱X╱ // 0x509a @0x7
0x5093…50a3 at0008 = ╱ed╱ ( ╱ // 0x509b @0x8
0x5093…50a3 at0009 = ╱32╱2╱ // 0x509c @0x9
0x5093…50a3 at000a = ╱39╱9╱ // 0x509d @0xa
0x5093…50a3 at000b = ╱f21d00╱ // 0x509e @0xb
0x5093…50a3 at000e = ╱ee╱ ) ╱ // 0x50a1 @0xe
0x5093…50a3 at000f = EOL // 0x50a2 @0xf
0x5093…50a3 }
0x50a3…50b3 e17d 03231 LET X ( 29 ) := [
0x50a3…50b3 LineComal80 {
0x50a3…50b3 ptr = 0xe17d // 0x50a3 @0x0
0x50a3…50b3 lno = 0x0c9f // 0x50a5 @0x2
0x50a3…50b3 at0004 = ╱86╱ LET ╱ // 0x50a7 @0x4
0x50a3…50b3 at0005 = ╱58╱X╱ // 0x50a8 @0x5
0x50a3…50b3 at0006 = ╱ed╱ ( ╱ // 0x50a9 @0x6
0x50a3…50b3 at0007 = ╱32╱2╱ // 0x50aa @0x7
0x50a3…50b3 at0008 = ╱39╱9╱ // 0x50ab @0x8
0x50a3…50b3 at0009 = ╱f21d00╱ // 0x50ac @0x9
0x50a3…50b3 at000c = ╱ee╱ ) ╱ // 0x50af @0xc
0x50a3…50b3 at000d = ╱f0╱ := ╱ // 0x50b0 @0xd
0x50a3…50b3 at000e = ╱5b╱[╱ // 0x50b1 @0xe
0x50a3…50b3 at000f = EOL // 0x50b2 @0xf
0x50a3…50b3 }
0x50b3…50c3 e4bd 03199 LET [ := X ( 21 )
0x50b3…50c3 LineComal80 {
0x50b3…50c3 ptr = 0xe4bd // 0x50b3 @0x0
0x50b3…50c3 lno = 0x0c7f // 0x50b5 @0x2
0x50b3…50c3 at0004 = ╱86╱ LET ╱ // 0x50b7 @0x4
0x50b3…50c3 at0005 = ╱5b╱[╱ // 0x50b8 @0x5
0x50b3…50c3 at0006 = ╱f0╱ := ╱ // 0x50b9 @0x6
0x50b3…50c3 at0007 = ╱58╱X╱ // 0x50ba @0x7
0x50b3…50c3 at0008 = ╱ed╱ ( ╱ // 0x50bb @0x8
0x50b3…50c3 at0009 = ╱32╱2╱ // 0x50bc @0x9
0x50b3…50c3 at000a = ╱31╱1╱ // 0x50bd @0xa
0x50b3…50c3 at000b = ╱f21500╱ // 0x50be @0xb
0x50b3…50c3 at000e = ╱ee╱ ) ╱ // 0x50c1 @0xe
0x50b3…50c3 at000f = EOL // 0x50c2 @0xf
0x50b3…50c3 }
0x50c3…50ce e40b 03130 EDIT "" : S $
0x50c3…50ce LineComal80 {
0x50c3…50ce ptr = 0xe40b // 0x50c3 @0x0
0x50c3…50ce lno = 0x0c3a // 0x50c5 @0x2
0x50c3…50ce at0004 = ╱b1╱ EDIT ╱ // 0x50c7 @0x4
0x50c3…50ce at0005 = ╱22╱"╱ // 0x50c8 @0x5
0x50c3…50ce at0006 = ╱22╱"╱ // 0x50c9 @0x6
0x50c3…50ce at0007 = ╱f1╱ : ╱ // 0x50ca @0x7
0x50c3…50ce at0008 = ╱53╱S╱ // 0x50cb @0x8
0x50c3…50ce at0009 = ╱ef╱ $ ╱ // 0x50cc @0x9
0x50c3…50ce at000a = EOL // 0x50cd @0xa
0x50c3…50ce }
0x50ce…50dc c546 00140 EXEC INPUTTAL
0x50ce…50dc LineComal80 {
0x50ce…50dc ptr = 0xc546 // 0x50ce @0x0
0x50ce…50dc lno = 0x008c // 0x50d0 @0x2
0x50ce…50dc at0004 = ╱9d╱ EXEC ╱ // 0x50d2 @0x4
0x50ce…50dc at0005 = ╱49╱I╱ // 0x50d3 @0x5
0x50ce…50dc at0006 = ╱4e╱N╱ // 0x50d4 @0x6
0x50ce…50dc at0007 = ╱50╱P╱ // 0x50d5 @0x7
0x50ce…50dc at0008 = ╱55╱U╱ // 0x50d6 @0x8
0x50ce…50dc at0009 = ╱54╱T╱ // 0x50d7 @0x9
0x50ce…50dc at000a = ╱54╱T╱ // 0x50d8 @0xa
0x50ce…50dc at000b = ╱41╱A╱ // 0x50d9 @0xb
0x50ce…50dc at000c = ╱4c╱L╱ // 0x50da @0xc
0x50ce…50dc at000d = EOL // 0x50db @0xd
0x50ce…50dc }
0x50dc…5142 3a20 12857 …C…….kmo…elbairav…egirv\…………………… ╱00╱ ╱00╱ $ ╱00╱ 0 * v ╱0c╱ EXEC EDTAL ( 20 , 8 , "Indtast…driftslederl|n………………………………:…" )
0x50dc…5142 LineComal80 {
0x50dc…5142 ptr = 0x3a20 // 0x50dc @0x0
0x50dc…5142 lno = 0x3239 // 0x50de @0x2
0x50dc…5142 at0004 = ╱20╱…╱ // 0x50e0 @0x4
0x50dc…5142 at0005 = ╱43╱C╱ // 0x50e1 @0x5
0x50dc…5142 at0006 = ╱20╱…╱ // 0x50e2 @0x6
0x50dc…5142 at0007 = ╱20╱…╱ // 0x50e3 @0x7
0x50dc…5142 at0008 = ╱2e╱.╱ // 0x50e4 @0x8
0x50dc…5142 at0009 = ╱6b╱k╱ // 0x50e5 @0x9
0x50dc…5142 at000a = ╱6d╱m╱ // 0x50e6 @0xa
0x50dc…5142 at000b = ╱6f╱o╱ // 0x50e7 @0xb
0x50dc…5142 at000c = ╱20╱…╱ // 0x50e8 @0xc
0x50dc…5142 at000d = ╱65╱e╱ // 0x50e9 @0xd
0x50dc…5142 at000e = ╱6c╱l╱ // 0x50ea @0xe
0x50dc…5142 at000f = ╱62╱b╱ // 0x50eb @0xf
0x50dc…5142 at0010 = ╱61╱a╱ // 0x50ec @0x10
0x50dc…5142 at0011 = ╱69╱i╱ // 0x50ed @0x11
0x50dc…5142 at0012 = ╱72╱r╱ // 0x50ee @0x12
0x50dc…5142 at0013 = ╱61╱a╱ // 0x50ef @0x13
0x50dc…5142 at0014 = ╱76╱v╱ // 0x50f0 @0x14
0x50dc…5142 at0015 = ╱20╱…╱ // 0x50f1 @0x15
0x50dc…5142 at0016 = ╱65╱e╱ // 0x50f2 @0x16
0x50dc…5142 at0017 = ╱67╱g╱ // 0x50f3 @0x17
0x50dc…5142 at0018 = ╱69╱i╱ // 0x50f4 @0x18
0x50dc…5142 at0019 = ╱72╱r╱ // 0x50f5 @0x19
0x50dc…5142 at001a = ╱76╱v╱ // 0x50f6 @0x1a
0x50dc…5142 at001b = ╱5c╱\╱ // 0x50f7 @0x1b
0x50dc…5142 at001c = ╱20╱…╱ // 0x50f8 @0x1c
0x50dc…5142 at001d = ╱20╱…╱ // 0x50f9 @0x1d
0x50dc…5142 at001e = ╱20╱…╱ // 0x50fa @0x1e
0x50dc…5142 at001f = ╱20╱…╱ // 0x50fb @0x1f
0x50dc…5142 at0020 = ╱20╱…╱ // 0x50fc @0x20
0x50dc…5142 at0021 = ╱20╱…╱ // 0x50fd @0x21
0x50dc…5142 at0022 = ╱20╱…╱ // 0x50fe @0x22
0x50dc…5142 at0023 = ╱20╱…╱ // 0x50ff @0x23
0x50dc…5142 at0024 = ╱00╱ // 0x5100 @0x24
0x50dc…5142 at0025 = ╱00╱ // 0x5101 @0x25
0x50dc…5142 at0026 = ╱24╱$╱ // 0x5102 @0x26
0x50dc…5142 at0027 = ╱00╱ // 0x5103 @0x27
0x50dc…5142 at0028 = ╱30╱0╱ // 0x5104 @0x28
0x50dc…5142 at0029 = ╱e7╱ * ╱ // 0x5105 @0x29
0x50dc…5142 at002a = ╱76╱v╱ // 0x5106 @0x2a
0x50dc…5142 at002b = ╱0c╱ // 0x5107 @0x2b
0x50dc…5142 at002c = ╱9d╱ EXEC ╱ // 0x5108 @0x2c
0x50dc…5142 at002d = ╱45╱E╱ // 0x5109 @0x2d
0x50dc…5142 at002e = ╱44╱D╱ // 0x510a @0x2e
0x50dc…5142 at002f = ╱54╱T╱ // 0x510b @0x2f
0x50dc…5142 at0030 = ╱41╱A╱ // 0x510c @0x30
0x50dc…5142 at0031 = ╱4c╱L╱ // 0x510d @0x31
0x50dc…5142 at0032 = ╱ed╱ ( ╱ // 0x510e @0x32
0x50dc…5142 at0033 = ╱32╱2╱ // 0x510f @0x33
0x50dc…5142 at0034 = ╱30╱0╱ // 0x5110 @0x34
0x50dc…5142 at0035 = ╱f21400╱ // 0x5111 @0x35
0x50dc…5142 at0038 = ╱ec╱ , ╱ // 0x5114 @0x38
0x50dc…5142 at0039 = ╱38╱8╱ // 0x5115 @0x39
0x50dc…5142 at003a = ╱f20800╱ // 0x5116 @0x3a
0x50dc…5142 at003d = ╱ec╱ , ╱ // 0x5119 @0x3d
0x50dc…5142 at003e = ╱22╱"╱ // 0x511a @0x3e
0x50dc…5142 at003f = ╱49╱I╱ // 0x511b @0x3f
0x50dc…5142 at0040 = ╱6e╱n╱ // 0x511c @0x40
0x50dc…5142 at0041 = ╱64╱d╱ // 0x511d @0x41
0x50dc…5142 at0042 = ╱74╱t╱ // 0x511e @0x42
0x50dc…5142 at0043 = ╱61╱a╱ // 0x511f @0x43
0x50dc…5142 at0044 = ╱73╱s╱ // 0x5120 @0x44
0x50dc…5142 at0045 = ╱74╱t╱ // 0x5121 @0x45
0x50dc…5142 at0046 = ╱20╱…╱ // 0x5122 @0x46
0x50dc…5142 at0047 = ╱64╱d╱ // 0x5123 @0x47
0x50dc…5142 at0048 = ╱72╱r╱ // 0x5124 @0x48
0x50dc…5142 at0049 = ╱69╱i╱ // 0x5125 @0x49
0x50dc…5142 at004a = ╱66╱f╱ // 0x5126 @0x4a
0x50dc…5142 at004b = ╱74╱t╱ // 0x5127 @0x4b
0x50dc…5142 at004c = ╱73╱s╱ // 0x5128 @0x4c
0x50dc…5142 at004d = ╱6c╱l╱ // 0x5129 @0x4d
0x50dc…5142 at004e = ╱65╱e╱ // 0x512a @0x4e
0x50dc…5142 at004f = ╱64╱d╱ // 0x512b @0x4f
0x50dc…5142 at0050 = ╱65╱e╱ // 0x512c @0x50
0x50dc…5142 at0051 = ╱72╱r╱ // 0x512d @0x51
0x50dc…5142 at0052 = ╱6c╱l╱ // 0x512e @0x52
0x50dc…5142 at0053 = ╱7c╱|╱ // 0x512f @0x53
0x50dc…5142 at0054 = ╱6e╱n╱ // 0x5130 @0x54
0x50dc…5142 at0055 = ╱20╱…╱ // 0x5131 @0x55
0x50dc…5142 at0056 = ╱20╱…╱ // 0x5132 @0x56
0x50dc…5142 at0057 = ╱20╱…╱ // 0x5133 @0x57
0x50dc…5142 at0058 = ╱20╱…╱ // 0x5134 @0x58
0x50dc…5142 at0059 = ╱20╱…╱ // 0x5135 @0x59
0x50dc…5142 at005a = ╱20╱…╱ // 0x5136 @0x5a
0x50dc…5142 at005b = ╱20╱…╱ // 0x5137 @0x5b
0x50dc…5142 at005c = ╱20╱…╱ // 0x5138 @0x5c
0x50dc…5142 at005d = ╱20╱…╱ // 0x5139 @0x5d
0x50dc…5142 at005e = ╱20╱…╱ // 0x513a @0x5e
0x50dc…5142 at005f = ╱20╱…╱ // 0x513b @0x5f
0x50dc…5142 at0060 = ╱20╱…╱ // 0x513c @0x60
0x50dc…5142 at0061 = ╱3a╱:╱ // 0x513d @0x61
0x50dc…5142 at0062 = ╱20╱…╱ // 0x513e @0x62
0x50dc…5142 at0063 = ╱22╱"╱ // 0x513f @0x63
0x50dc…5142 at0064 = ╱ee╱ ) ╱ // 0x5140 @0x64
0x50dc…5142 at0065 = EOL // 0x5141 @0x65
0x50dc…5142 }
0x5142…5152 e740 03191 LET X ( 25 ) := [
0x5142…5152 LineComal80 {
0x5142…5152 ptr = 0xe740 // 0x5142 @0x0
0x5142…5152 lno = 0x0c77 // 0x5144 @0x2
0x5142…5152 at0004 = ╱86╱ LET ╱ // 0x5146 @0x4
0x5142…5152 at0005 = ╱58╱X╱ // 0x5147 @0x5
0x5142…5152 at0006 = ╱ed╱ ( ╱ // 0x5148 @0x6
0x5142…5152 at0007 = ╱32╱2╱ // 0x5149 @0x7
0x5142…5152 at0008 = ╱35╱5╱ // 0x514a @0x8
0x5142…5152 at0009 = ╱f21900╱ // 0x514b @0x9
0x5142…5152 at000c = ╱ee╱ ) ╱ // 0x514e @0xc
0x5142…5152 at000d = ╱f0╱ := ╱ // 0x514f @0xd
0x5142…5152 at000e = ╱5b╱[╱ // 0x5150 @0xe
0x5142…5152 at000f = EOL // 0x5151 @0xf
0x5142…5152 }
0x5152…5162 e750 03199 LET [ := X ( 21 )
0x5152…5162 LineComal80 {
0x5152…5162 ptr = 0xe750 // 0x5152 @0x0
0x5152…5162 lno = 0x0c7f // 0x5154 @0x2
0x5152…5162 at0004 = ╱86╱ LET ╱ // 0x5156 @0x4
0x5152…5162 at0005 = ╱5b╱[╱ // 0x5157 @0x5
0x5152…5162 at0006 = ╱f0╱ := ╱ // 0x5158 @0x6
0x5152…5162 at0007 = ╱58╱X╱ // 0x5159 @0x7
0x5152…5162 at0008 = ╱ed╱ ( ╱ // 0x515a @0x8
0x5152…5162 at0009 = ╱32╱2╱ // 0x515b @0x9
0x5152…5162 at000a = ╱31╱1╱ // 0x515c @0xa
0x5152…5162 at000b = ╱f21500╱ // 0x515d @0xb
0x5152…5162 at000e = ╱ee╱ ) ╱ // 0x5160 @0xe
0x5152…5162 at000f = EOL // 0x5161 @0xf
0x5152…5162 }
0x5162…51a0 e78e 03200 EXEC EDTAL ( 20 , 9 , "……………………lager…ialt,…primo………………………:…" )
0x5162…51a0 LineComal80 {
0x5162…51a0 ptr = 0xe78e // 0x5162 @0x0
0x5162…51a0 lno = 0x0c80 // 0x5164 @0x2
0x5162…51a0 at0004 = ╱9d╱ EXEC ╱ // 0x5166 @0x4
0x5162…51a0 at0005 = ╱45╱E╱ // 0x5167 @0x5
0x5162…51a0 at0006 = ╱44╱D╱ // 0x5168 @0x6
0x5162…51a0 at0007 = ╱54╱T╱ // 0x5169 @0x7
0x5162…51a0 at0008 = ╱41╱A╱ // 0x516a @0x8
0x5162…51a0 at0009 = ╱4c╱L╱ // 0x516b @0x9
0x5162…51a0 at000a = ╱ed╱ ( ╱ // 0x516c @0xa
0x5162…51a0 at000b = ╱32╱2╱ // 0x516d @0xb
0x5162…51a0 at000c = ╱30╱0╱ // 0x516e @0xc
0x5162…51a0 at000d = ╱f21400╱ // 0x516f @0xd
0x5162…51a0 at0010 = ╱ec╱ , ╱ // 0x5172 @0x10
0x5162…51a0 at0011 = ╱39╱9╱ // 0x5173 @0x11
0x5162…51a0 at0012 = ╱f20900╱ // 0x5174 @0x12
0x5162…51a0 at0015 = ╱ec╱ , ╱ // 0x5177 @0x15
0x5162…51a0 at0016 = ╱22╱"╱ // 0x5178 @0x16
0x5162…51a0 at0017 = ╱20╱…╱ // 0x5179 @0x17
0x5162…51a0 at0018 = ╱20╱…╱ // 0x517a @0x18
0x5162…51a0 at0019 = ╱20╱…╱ // 0x517b @0x19
0x5162…51a0 at001a = ╱20╱…╱ // 0x517c @0x1a
0x5162…51a0 at001b = ╱20╱…╱ // 0x517d @0x1b
0x5162…51a0 at001c = ╱20╱…╱ // 0x517e @0x1c
0x5162…51a0 at001d = ╱20╱…╱ // 0x517f @0x1d
0x5162…51a0 at001e = ╱20╱…╱ // 0x5180 @0x1e
0x5162…51a0 at001f = ╱6c╱l╱ // 0x5181 @0x1f
0x5162…51a0 at0020 = ╱61╱a╱ // 0x5182 @0x20
0x5162…51a0 at0021 = ╱67╱g╱ // 0x5183 @0x21
0x5162…51a0 at0022 = ╱65╱e╱ // 0x5184 @0x22
0x5162…51a0 at0023 = ╱72╱r╱ // 0x5185 @0x23
0x5162…51a0 at0024 = ╱20╱…╱ // 0x5186 @0x24
0x5162…51a0 at0025 = ╱69╱i╱ // 0x5187 @0x25
0x5162…51a0 at0026 = ╱61╱a╱ // 0x5188 @0x26
0x5162…51a0 at0027 = ╱6c╱l╱ // 0x5189 @0x27
0x5162…51a0 at0028 = ╱74╱t╱ // 0x518a @0x28
0x5162…51a0 at0029 = ╱2c╱,╱ // 0x518b @0x29
0x5162…51a0 at002a = ╱20╱…╱ // 0x518c @0x2a
0x5162…51a0 at002b = ╱70╱p╱ // 0x518d @0x2b
0x5162…51a0 at002c = ╱72╱r╱ // 0x518e @0x2c
0x5162…51a0 at002d = ╱69╱i╱ // 0x518f @0x2d
0x5162…51a0 at002e = ╱6d╱m╱ // 0x5190 @0x2e
0x5162…51a0 at002f = ╱6f╱o╱ // 0x5191 @0x2f
0x5162…51a0 at0030 = ╱20╱…╱ // 0x5192 @0x30
0x5162…51a0 at0031 = ╱20╱…╱ // 0x5193 @0x31
0x5162…51a0 at0032 = ╱20╱…╱ // 0x5194 @0x32
0x5162…51a0 at0033 = ╱20╱…╱ // 0x5195 @0x33
0x5162…51a0 at0034 = ╱20╱…╱ // 0x5196 @0x34
0x5162…51a0 at0035 = ╱20╱…╱ // 0x5197 @0x35
0x5162…51a0 at0036 = ╱20╱…╱ // 0x5198 @0x36
0x5162…51a0 at0037 = ╱20╱…╱ // 0x5199 @0x37
0x5162…51a0 at0038 = ╱20╱…╱ // 0x519a @0x38
0x5162…51a0 at0039 = ╱3a╱:╱ // 0x519b @0x39
0x5162…51a0 at003a = ╱20╱…╱ // 0x519c @0x3a
0x5162…51a0 at003b = ╱22╱"╱ // 0x519d @0x3b
0x5162…51a0 at003c = ╱ee╱ ) ╱ // 0x519e @0x3c
0x5162…51a0 at003d = EOL // 0x519f @0x3d
0x5162…51a0 }
0x51a0…51b0 e79e 03201 LET X ( 21 ) := [
0x51a0…51b0 LineComal80 {
0x51a0…51b0 ptr = 0xe79e // 0x51a0 @0x0
0x51a0…51b0 lno = 0x0c81 // 0x51a2 @0x2
0x51a0…51b0 at0004 = ╱86╱ LET ╱ // 0x51a4 @0x4
0x51a0…51b0 at0005 = ╱58╱X╱ // 0x51a5 @0x5
0x51a0…51b0 at0006 = ╱ed╱ ( ╱ // 0x51a6 @0x6
0x51a0…51b0 at0007 = ╱32╱2╱ // 0x51a7 @0x7
0x51a0…51b0 at0008 = ╱31╱1╱ // 0x51a8 @0x8
0x51a0…51b0 at0009 = ╱f21500╱ // 0x51a9 @0x9
0x51a0…51b0 at000c = ╱ee╱ ) ╱ // 0x51ac @0xc
0x51a0…51b0 at000d = ╱f0╱ := ╱ // 0x51ad @0xd
0x51a0…51b0 at000e = ╱5b╱[╱ // 0x51ae @0xe
0x51a0…51b0 at000f = EOL // 0x51af @0xf
0x51a0…51b0 }
0x51b0…51c0 e7ae 03209 LET [ := X ( 27 )
0x51b0…51c0 LineComal80 {
0x51b0…51c0 ptr = 0xe7ae // 0x51b0 @0x0
0x51b0…51c0 lno = 0x0c89 // 0x51b2 @0x2
0x51b0…51c0 at0004 = ╱86╱ LET ╱ // 0x51b4 @0x4
0x51b0…51c0 at0005 = ╱5b╱[╱ // 0x51b5 @0x5
0x51b0…51c0 at0006 = ╱f0╱ := ╱ // 0x51b6 @0x6
0x51b0…51c0 at0007 = ╱58╱X╱ // 0x51b7 @0x7
0x51b0…51c0 at0008 = ╱ed╱ ( ╱ // 0x51b8 @0x8
0x51b0…51c0 at0009 = ╱32╱2╱ // 0x51b9 @0x9
0x51b0…51c0 at000a = ╱37╱7╱ // 0x51ba @0xa
0x51b0…51c0 at000b = ╱f21b00╱ // 0x51bb @0xb
0x51b0…51c0 at000e = ╱ee╱ ) ╱ // 0x51be @0xe
0x51b0…51c0 at000f = EOL // 0x51bf @0xf
0x51b0…51c0 }
0x51c0…51ff e7ed 03210 EXEC EDTAL ( 20 , 10 , "……………………\vrige…variable…omk.……A………:…" )
0x51c0…51ff LineComal80 {
0x51c0…51ff ptr = 0xe7ed // 0x51c0 @0x0
0x51c0…51ff lno = 0x0c8a // 0x51c2 @0x2
0x51c0…51ff at0004 = ╱9d╱ EXEC ╱ // 0x51c4 @0x4
0x51c0…51ff at0005 = ╱45╱E╱ // 0x51c5 @0x5
0x51c0…51ff at0006 = ╱44╱D╱ // 0x51c6 @0x6
0x51c0…51ff at0007 = ╱54╱T╱ // 0x51c7 @0x7
0x51c0…51ff at0008 = ╱41╱A╱ // 0x51c8 @0x8
0x51c0…51ff at0009 = ╱4c╱L╱ // 0x51c9 @0x9
0x51c0…51ff at000a = ╱ed╱ ( ╱ // 0x51ca @0xa
0x51c0…51ff at000b = ╱32╱2╱ // 0x51cb @0xb
0x51c0…51ff at000c = ╱30╱0╱ // 0x51cc @0xc
0x51c0…51ff at000d = ╱f21400╱ // 0x51cd @0xd
0x51c0…51ff at0010 = ╱ec╱ , ╱ // 0x51d0 @0x10
0x51c0…51ff at0011 = ╱31╱1╱ // 0x51d1 @0x11
0x51c0…51ff at0012 = ╱30╱0╱ // 0x51d2 @0x12
0x51c0…51ff at0013 = ╱f20a00╱ // 0x51d3 @0x13
0x51c0…51ff at0016 = ╱ec╱ , ╱ // 0x51d6 @0x16
0x51c0…51ff at0017 = ╱22╱"╱ // 0x51d7 @0x17
0x51c0…51ff at0018 = ╱20╱…╱ // 0x51d8 @0x18
0x51c0…51ff at0019 = ╱20╱…╱ // 0x51d9 @0x19
0x51c0…51ff at001a = ╱20╱…╱ // 0x51da @0x1a
0x51c0…51ff at001b = ╱20╱…╱ // 0x51db @0x1b
0x51c0…51ff at001c = ╱20╱…╱ // 0x51dc @0x1c
0x51c0…51ff at001d = ╱20╱…╱ // 0x51dd @0x1d
0x51c0…51ff at001e = ╱20╱…╱ // 0x51de @0x1e
0x51c0…51ff at001f = ╱20╱…╱ // 0x51df @0x1f
0x51c0…51ff at0020 = ╱5c╱\╱ // 0x51e0 @0x20
0x51c0…51ff at0021 = ╱76╱v╱ // 0x51e1 @0x21
0x51c0…51ff at0022 = ╱72╱r╱ // 0x51e2 @0x22
0x51c0…51ff at0023 = ╱69╱i╱ // 0x51e3 @0x23
0x51c0…51ff at0024 = ╱67╱g╱ // 0x51e4 @0x24
0x51c0…51ff at0025 = ╱65╱e╱ // 0x51e5 @0x25
0x51c0…51ff at0026 = ╱20╱…╱ // 0x51e6 @0x26
0x51c0…51ff at0027 = ╱76╱v╱ // 0x51e7 @0x27
0x51c0…51ff at0028 = ╱61╱a╱ // 0x51e8 @0x28
0x51c0…51ff at0029 = ╱72╱r╱ // 0x51e9 @0x29
0x51c0…51ff at002a = ╱69╱i╱ // 0x51ea @0x2a
0x51c0…51ff at002b = ╱61╱a╱ // 0x51eb @0x2b
0x51c0…51ff at002c = ╱62╱b╱ // 0x51ec @0x2c
0x51c0…51ff at002d = ╱6c╱l╱ // 0x51ed @0x2d
0x51c0…51ff at002e = ╱65╱e╱ // 0x51ee @0x2e
0x51c0…51ff at002f = ╱20╱…╱ // 0x51ef @0x2f
0x51c0…51ff at0030 = ╱6f╱o╱ // 0x51f0 @0x30
0x51c0…51ff at0031 = ╱6d╱m╱ // 0x51f1 @0x31
0x51c0…51ff at0032 = ╱6b╱k╱ // 0x51f2 @0x32
0x51c0…51ff at0033 = ╱2e╱.╱ // 0x51f3 @0x33
0x51c0…51ff at0034 = ╱20╱…╱ // 0x51f4 @0x34
0x51c0…51ff at0035 = ╱20╱…╱ // 0x51f5 @0x35
0x51c0…51ff at0036 = ╱41╱A╱ // 0x51f6 @0x36
0x51c0…51ff at0037 = ╱20╱…╱ // 0x51f7 @0x37
0x51c0…51ff at0038 = ╱20╱…╱ // 0x51f8 @0x38
0x51c0…51ff at0039 = ╱20╱…╱ // 0x51f9 @0x39
0x51c0…51ff at003a = ╱3a╱:╱ // 0x51fa @0x3a
0x51c0…51ff at003b = ╱20╱…╱ // 0x51fb @0x3b
0x51c0…51ff at003c = ╱22╱"╱ // 0x51fc @0x3c
0x51c0…51ff at003d = ╱ee╱ ) ╱ // 0x51fd @0x3d
0x51c0…51ff at003e = EOL // 0x51fe @0x3e
0x51c0…51ff }
0x51ff…520f e7fd 03211 LET X ( 27 ) := [
0x51ff…520f LineComal80 {
0x51ff…520f ptr = 0xe7fd // 0x51ff @0x0
0x51ff…520f lno = 0x0c8b // 0x5201 @0x2
0x51ff…520f at0004 = ╱86╱ LET ╱ // 0x5203 @0x4
0x51ff…520f at0005 = ╱58╱X╱ // 0x5204 @0x5
0x51ff…520f at0006 = ╱ed╱ ( ╱ // 0x5205 @0x6
0x51ff…520f at0007 = ╱32╱2╱ // 0x5206 @0x7
0x51ff…520f at0008 = ╱37╱7╱ // 0x5207 @0x8
0x51ff…520f at0009 = ╱f21b00╱ // 0x5208 @0x9
0x51ff…520f at000c = ╱ee╱ ) ╱ // 0x520b @0xc
0x51ff…520f at000d = ╱f0╱ := ╱ // 0x520c @0xd
0x51ff…520f at000e = ╱5b╱[╱ // 0x520d @0xe
0x51ff…520f at000f = EOL // 0x520e @0xf
0x51ff…520f }
0x520f…521f e80d 03219 LET [ := X ( 28 )
0x520f…521f LineComal80 {
0x520f…521f ptr = 0xe80d // 0x520f @0x0
0x520f…521f lno = 0x0c93 // 0x5211 @0x2
0x520f…521f at0004 = ╱86╱ LET ╱ // 0x5213 @0x4
0x520f…521f at0005 = ╱5b╱[╱ // 0x5214 @0x5
0x520f…521f at0006 = ╱f0╱ := ╱ // 0x5215 @0x6
0x520f…521f at0007 = ╱58╱X╱ // 0x5216 @0x7
0x520f…521f at0008 = ╱ed╱ ( ╱ // 0x5217 @0x8
0x520f…521f at0009 = ╱32╱2╱ // 0x5218 @0x9
0x520f…521f at000a = ╱38╱8╱ // 0x5219 @0xa
0x520f…521f at000b = ╱f21c00╱ // 0x521a @0xb
0x520f…521f at000e = ╱ee╱ ) ╱ // 0x521d @0xe
0x520f…521f at000f = EOL // 0x521e @0xf
0x520f…521f }
0x521f…525e e84c 03220 EXEC EDTAL ( 20 , 11 , "……………………\vrige…variable…omk.……B………:…" )
0x521f…525e LineComal80 {
0x521f…525e ptr = 0xe84c // 0x521f @0x0
0x521f…525e lno = 0x0c94 // 0x5221 @0x2
0x521f…525e at0004 = ╱9d╱ EXEC ╱ // 0x5223 @0x4
0x521f…525e at0005 = ╱45╱E╱ // 0x5224 @0x5
0x521f…525e at0006 = ╱44╱D╱ // 0x5225 @0x6
0x521f…525e at0007 = ╱54╱T╱ // 0x5226 @0x7
0x521f…525e at0008 = ╱41╱A╱ // 0x5227 @0x8
0x521f…525e at0009 = ╱4c╱L╱ // 0x5228 @0x9
0x521f…525e at000a = ╱ed╱ ( ╱ // 0x5229 @0xa
0x521f…525e at000b = ╱32╱2╱ // 0x522a @0xb
0x521f…525e at000c = ╱30╱0╱ // 0x522b @0xc
0x521f…525e at000d = ╱f21400╱ // 0x522c @0xd
0x521f…525e at0010 = ╱ec╱ , ╱ // 0x522f @0x10
0x521f…525e at0011 = ╱31╱1╱ // 0x5230 @0x11
0x521f…525e at0012 = ╱31╱1╱ // 0x5231 @0x12
0x521f…525e at0013 = ╱f20b00╱ // 0x5232 @0x13
0x521f…525e at0016 = ╱ec╱ , ╱ // 0x5235 @0x16
0x521f…525e at0017 = ╱22╱"╱ // 0x5236 @0x17
0x521f…525e at0018 = ╱20╱…╱ // 0x5237 @0x18
0x521f…525e at0019 = ╱20╱…╱ // 0x5238 @0x19
0x521f…525e at001a = ╱20╱…╱ // 0x5239 @0x1a
0x521f…525e at001b = ╱20╱…╱ // 0x523a @0x1b
0x521f…525e at001c = ╱20╱…╱ // 0x523b @0x1c
0x521f…525e at001d = ╱20╱…╱ // 0x523c @0x1d
0x521f…525e at001e = ╱20╱…╱ // 0x523d @0x1e
0x521f…525e at001f = ╱20╱…╱ // 0x523e @0x1f
0x521f…525e at0020 = ╱5c╱\╱ // 0x523f @0x20
0x521f…525e at0021 = ╱76╱v╱ // 0x5240 @0x21
0x521f…525e at0022 = ╱72╱r╱ // 0x5241 @0x22
0x521f…525e at0023 = ╱69╱i╱ // 0x5242 @0x23
0x521f…525e at0024 = ╱67╱g╱ // 0x5243 @0x24
0x521f…525e at0025 = ╱65╱e╱ // 0x5244 @0x25
0x521f…525e at0026 = ╱20╱…╱ // 0x5245 @0x26
0x521f…525e at0027 = ╱76╱v╱ // 0x5246 @0x27
0x521f…525e at0028 = ╱61╱a╱ // 0x5247 @0x28
0x521f…525e at0029 = ╱72╱r╱ // 0x5248 @0x29
0x521f…525e at002a = ╱69╱i╱ // 0x5249 @0x2a
0x521f…525e at002b = ╱61╱a╱ // 0x524a @0x2b
0x521f…525e at002c = ╱62╱b╱ // 0x524b @0x2c
0x521f…525e at002d = ╱6c╱l╱ // 0x524c @0x2d
0x521f…525e at002e = ╱65╱e╱ // 0x524d @0x2e
0x521f…525e at002f = ╱20╱…╱ // 0x524e @0x2f
0x521f…525e at0030 = ╱6f╱o╱ // 0x524f @0x30
0x521f…525e at0031 = ╱6d╱m╱ // 0x5250 @0x31
0x521f…525e at0032 = ╱6b╱k╱ // 0x5251 @0x32
0x521f…525e at0033 = ╱2e╱.╱ // 0x5252 @0x33
0x521f…525e at0034 = ╱20╱…╱ // 0x5253 @0x34
0x521f…525e at0035 = ╱20╱…╱ // 0x5254 @0x35
0x521f…525e at0036 = ╱42╱B╱ // 0x5255 @0x36
0x521f…525e at0037 = ╱20╱…╱ // 0x5256 @0x37
0x521f…525e at0038 = ╱20╱…╱ // 0x5257 @0x38
0x521f…525e at0039 = ╱20╱…╱ // 0x5258 @0x39
0x521f…525e at003a = ╱3a╱:╱ // 0x5259 @0x3a
0x521f…525e at003b = ╱20╱…╱ // 0x525a @0x3b
0x521f…525e at003c = ╱22╱"╱ // 0x525b @0x3c
0x521f…525e at003d = ╱ee╱ ) ╱ // 0x525c @0x3d
0x521f…525e at003e = EOL // 0x525d @0x3e
0x521f…525e }
0x525e…526e e85c 03221 LET X ( 28 ) := [
0x525e…526e LineComal80 {
0x525e…526e ptr = 0xe85c // 0x525e @0x0
0x525e…526e lno = 0x0c95 // 0x5260 @0x2
0x525e…526e at0004 = ╱86╱ LET ╱ // 0x5262 @0x4
0x525e…526e at0005 = ╱58╱X╱ // 0x5263 @0x5
0x525e…526e at0006 = ╱ed╱ ( ╱ // 0x5264 @0x6
0x525e…526e at0007 = ╱32╱2╱ // 0x5265 @0x7
0x525e…526e at0008 = ╱38╱8╱ // 0x5266 @0x8
0x525e…526e at0009 = ╱f21c00╱ // 0x5267 @0x9
0x525e…526e at000c = ╱ee╱ ) ╱ // 0x526a @0xc
0x525e…526e at000d = ╱f0╱ := ╱ // 0x526b @0xd
0x525e…526e at000e = ╱5b╱[╱ // 0x526c @0xe
0x525e…526e at000f = EOL // 0x526d @0xf
0x525e…526e }
0x526e…527e e86c 03229 LET [ := X ( 29 )
0x526e…527e LineComal80 {
0x526e…527e ptr = 0xe86c // 0x526e @0x0
0x526e…527e lno = 0x0c9d // 0x5270 @0x2
0x526e…527e at0004 = ╱86╱ LET ╱ // 0x5272 @0x4
0x526e…527e at0005 = ╱5b╱[╱ // 0x5273 @0x5
0x526e…527e at0006 = ╱f0╱ := ╱ // 0x5274 @0x6
0x526e…527e at0007 = ╱58╱X╱ // 0x5275 @0x7
0x526e…527e at0008 = ╱ed╱ ( ╱ // 0x5276 @0x8
0x526e…527e at0009 = ╱32╱2╱ // 0x5277 @0x9
0x526e…527e at000a = ╱39╱9╱ // 0x5278 @0xa
0x526e…527e at000b = ╱f21d00╱ // 0x5279 @0xb
0x526e…527e at000e = ╱ee╱ ) ╱ // 0x527c @0xe
0x526e…527e at000f = EOL // 0x527d @0xf
0x526e…527e }
0x527e…52bd e8ab 03230 EXEC EDTAL ( 20 , 12 , "……………………\vrige…variable…omk.……C………:…" )
0x527e…52bd LineComal80 {
0x527e…52bd ptr = 0xe8ab // 0x527e @0x0
0x527e…52bd lno = 0x0c9e // 0x5280 @0x2
0x527e…52bd at0004 = ╱9d╱ EXEC ╱ // 0x5282 @0x4
0x527e…52bd at0005 = ╱45╱E╱ // 0x5283 @0x5
0x527e…52bd at0006 = ╱44╱D╱ // 0x5284 @0x6
0x527e…52bd at0007 = ╱54╱T╱ // 0x5285 @0x7
0x527e…52bd at0008 = ╱41╱A╱ // 0x5286 @0x8
0x527e…52bd at0009 = ╱4c╱L╱ // 0x5287 @0x9
0x527e…52bd at000a = ╱ed╱ ( ╱ // 0x5288 @0xa
0x527e…52bd at000b = ╱32╱2╱ // 0x5289 @0xb
0x527e…52bd at000c = ╱30╱0╱ // 0x528a @0xc
0x527e…52bd at000d = ╱f21400╱ // 0x528b @0xd
0x527e…52bd at0010 = ╱ec╱ , ╱ // 0x528e @0x10
0x527e…52bd at0011 = ╱31╱1╱ // 0x528f @0x11
0x527e…52bd at0012 = ╱32╱2╱ // 0x5290 @0x12
0x527e…52bd at0013 = ╱f20c00╱ // 0x5291 @0x13
0x527e…52bd at0016 = ╱ec╱ , ╱ // 0x5294 @0x16
0x527e…52bd at0017 = ╱22╱"╱ // 0x5295 @0x17
0x527e…52bd at0018 = ╱20╱…╱ // 0x5296 @0x18
0x527e…52bd at0019 = ╱20╱…╱ // 0x5297 @0x19
0x527e…52bd at001a = ╱20╱…╱ // 0x5298 @0x1a
0x527e…52bd at001b = ╱20╱…╱ // 0x5299 @0x1b
0x527e…52bd at001c = ╱20╱…╱ // 0x529a @0x1c
0x527e…52bd at001d = ╱20╱…╱ // 0x529b @0x1d
0x527e…52bd at001e = ╱20╱…╱ // 0x529c @0x1e
0x527e…52bd at001f = ╱20╱…╱ // 0x529d @0x1f
0x527e…52bd at0020 = ╱5c╱\╱ // 0x529e @0x20
0x527e…52bd at0021 = ╱76╱v╱ // 0x529f @0x21
0x527e…52bd at0022 = ╱72╱r╱ // 0x52a0 @0x22
0x527e…52bd at0023 = ╱69╱i╱ // 0x52a1 @0x23
0x527e…52bd at0024 = ╱67╱g╱ // 0x52a2 @0x24
0x527e…52bd at0025 = ╱65╱e╱ // 0x52a3 @0x25
0x527e…52bd at0026 = ╱20╱…╱ // 0x52a4 @0x26
0x527e…52bd at0027 = ╱76╱v╱ // 0x52a5 @0x27
0x527e…52bd at0028 = ╱61╱a╱ // 0x52a6 @0x28
0x527e…52bd at0029 = ╱72╱r╱ // 0x52a7 @0x29
0x527e…52bd at002a = ╱69╱i╱ // 0x52a8 @0x2a
0x527e…52bd at002b = ╱61╱a╱ // 0x52a9 @0x2b
0x527e…52bd at002c = ╱62╱b╱ // 0x52aa @0x2c
0x527e…52bd at002d = ╱6c╱l╱ // 0x52ab @0x2d
0x527e…52bd at002e = ╱65╱e╱ // 0x52ac @0x2e
0x527e…52bd at002f = ╱20╱…╱ // 0x52ad @0x2f
0x527e…52bd at0030 = ╱6f╱o╱ // 0x52ae @0x30
0x527e…52bd at0031 = ╱6d╱m╱ // 0x52af @0x31
0x527e…52bd at0032 = ╱6b╱k╱ // 0x52b0 @0x32
0x527e…52bd at0033 = ╱2e╱.╱ // 0x52b1 @0x33
0x527e…52bd at0034 = ╱20╱…╱ // 0x52b2 @0x34
0x527e…52bd at0035 = ╱20╱…╱ // 0x52b3 @0x35
0x527e…52bd at0036 = ╱43╱C╱ // 0x52b4 @0x36
0x527e…52bd at0037 = ╱20╱…╱ // 0x52b5 @0x37
0x527e…52bd at0038 = ╱20╱…╱ // 0x52b6 @0x38
0x527e…52bd at0039 = ╱20╱…╱ // 0x52b7 @0x39
0x527e…52bd at003a = ╱3a╱:╱ // 0x52b8 @0x3a
0x527e…52bd at003b = ╱20╱…╱ // 0x52b9 @0x3b
0x527e…52bd at003c = ╱22╱"╱ // 0x52ba @0x3c
0x527e…52bd at003d = ╱ee╱ ) ╱ // 0x52bb @0x3d
0x527e…52bd at003e = EOL // 0x52bc @0x3e
0x527e…52bd }
0x52bd…52cd e8bb 03231 LET X ( 29 ) := [
0x52bd…52cd LineComal80 {
0x52bd…52cd ptr = 0xe8bb // 0x52bd @0x0
0x52bd…52cd lno = 0x0c9f // 0x52bf @0x2
0x52bd…52cd at0004 = ╱86╱ LET ╱ // 0x52c1 @0x4
0x52bd…52cd at0005 = ╱58╱X╱ // 0x52c2 @0x5
0x52bd…52cd at0006 = ╱ed╱ ( ╱ // 0x52c3 @0x6
0x52bd…52cd at0007 = ╱32╱2╱ // 0x52c4 @0x7
0x52bd…52cd at0008 = ╱39╱9╱ // 0x52c5 @0x8
0x52bd…52cd at0009 = ╱f21d00╱ // 0x52c6 @0x9
0x52bd…52cd at000c = ╱ee╱ ) ╱ // 0x52c9 @0xc
0x52bd…52cd at000d = ╱f0╱ := ╱ // 0x52ca @0xd
0x52bd…52cd at000e = ╱5b╱[╱ // 0x52cb @0xe
0x52bd…52cd at000f = EOL // 0x52cc @0xf
0x52bd…52cd }
0x52cd…52da e8c8 03260 ENDPROC EDITTAL
0x52cd…52da LineComal80 {
0x52cd…52da ptr = 0xe8c8 // 0x52cd @0x0
0x52cd…52da lno = 0x0cbc // 0x52cf @0x2
0x52cd…52da at0004 = ╱9f╱ ENDPROC ╱ // 0x52d1 @0x4
0x52cd…52da at0005 = ╱45╱E╱ // 0x52d2 @0x5
0x52cd…52da at0006 = ╱44╱D╱ // 0x52d3 @0x6
0x52cd…52da at0007 = ╱49╱I╱ // 0x52d4 @0x7
0x52cd…52da at0008 = ╱54╱T╱ // 0x52d5 @0x8
0x52cd…52da at0009 = ╱54╱T╱ // 0x52d6 @0x9
0x52cd…52da at000a = ╱41╱A╱ // 0x52d7 @0xa
0x52cd…52da at000b = ╱4c╱L╱ // 0x52d8 @0xb
0x52cd…52da at000c = EOL // 0x52d9 @0xc
0x52cd…52da }
0x52da…52df e2b3 03270
0x52da…52df LineComal80 {
0x52da…52df ptr = 0xe2b3 // 0x52da @0x0
0x52da…52df lno = 0x0cc6 // 0x52dc @0x2
0x52da…52df at0004 = EOL // 0x52de @0x4
0x52da…52df }
0x52df…52ee 6972 24944 p ╱00╱ ╱00╱ ╱05╱ ╱00╱ ╱1f╱ ^ ╱f7╱ ╱09╱ PRINT
0x52df…52ee LineComal80 {
0x52df…52ee ptr = 0x6972 // 0x52df @0x0
0x52df…52ee lno = 0x6170 // 0x52e1 @0x2
0x52df…52ee at0004 = ╱70╱p╱ // 0x52e3 @0x4
0x52df…52ee at0005 = ╱00╱ // 0x52e4 @0x5
0x52df…52ee at0006 = ╱00╱ // 0x52e5 @0x6
0x52df…52ee at0007 = ╱05╱ // 0x52e6 @0x7
0x52df…52ee at0008 = ╱00╱ // 0x52e7 @0x8
0x52df…52ee at0009 = ╱1f╱ // 0x52e8 @0x9
0x52df…52ee at000a = ╱e9╱ ^ ╱ // 0x52e9 @0xa
0x52df…52ee at000b = ╱f7╱ // 0x52ea @0xb
0x52df…52ee at000c = ╱09╱ // 0x52eb @0xc
0x52df…52ee at000d = ╱92╱ PRINT ╱ // 0x52ec @0xd
0x52df…52ee at000e = EOL // 0x52ed @0xe
0x52df…52ee }
0x52ee…530b e8f9 02552 PRINT "***…" ; SYSTNAVN $ ; "…***"
0x52ee…530b LineComal80 {
0x52ee…530b ptr = 0xe8f9 // 0x52ee @0x0
0x52ee…530b lno = 0x09f8 // 0x52f0 @0x2
0x52ee…530b at0004 = ╱92╱ PRINT ╱ // 0x52f2 @0x4
0x52ee…530b at0005 = ╱22╱"╱ // 0x52f3 @0x5
0x52ee…530b at0006 = ╱2a╱*╱ // 0x52f4 @0x6
0x52ee…530b at0007 = ╱2a╱*╱ // 0x52f5 @0x7
0x52ee…530b at0008 = ╱2a╱*╱ // 0x52f6 @0x8
0x52ee…530b at0009 = ╱20╱…╱ // 0x52f7 @0x9
0x52ee…530b at000a = ╱22╱"╱ // 0x52f8 @0xa
0x52ee…530b at000b = ╱ea╱ ; ╱ // 0x52f9 @0xb
0x52ee…530b at000c = ╱53╱S╱ // 0x52fa @0xc
0x52ee…530b at000d = ╱59╱Y╱ // 0x52fb @0xd
0x52ee…530b at000e = ╱53╱S╱ // 0x52fc @0xe
0x52ee…530b at000f = ╱54╱T╱ // 0x52fd @0xf
0x52ee…530b at0010 = ╱4e╱N╱ // 0x52fe @0x10
0x52ee…530b at0011 = ╱41╱A╱ // 0x52ff @0x11
0x52ee…530b at0012 = ╱56╱V╱ // 0x5300 @0x12
0x52ee…530b at0013 = ╱4e╱N╱ // 0x5301 @0x13
0x52ee…530b at0014 = ╱ef╱ $ ╱ // 0x5302 @0x14
0x52ee…530b at0015 = ╱ea╱ ; ╱ // 0x5303 @0x15
0x52ee…530b at0016 = ╱22╱"╱ // 0x5304 @0x16
0x52ee…530b at0017 = ╱20╱…╱ // 0x5305 @0x17
0x52ee…530b at0018 = ╱2a╱*╱ // 0x5306 @0x18
0x52ee…530b at0019 = ╱2a╱*╱ // 0x5307 @0x19
0x52ee…530b at001a = ╱2a╱*╱ // 0x5308 @0x1a
0x52ee…530b at001b = ╱22╱"╱ // 0x5309 @0x1b
0x52ee…530b at001c = EOL // 0x530a @0x1c
0x52ee…530b }
0x530b…5311 e8ff 02553 PRINT
0x530b…5311 LineComal80 {
0x530b…5311 ptr = 0xe8ff // 0x530b @0x0
0x530b…5311 lno = 0x09f9 // 0x530d @0x2
0x530b…5311 at0004 = ╱92╱ PRINT ╱ // 0x530f @0x4
0x530b…5311 at0005 = EOL // 0x5310 @0x5
0x530b…5311 }
0x5311…532b e919 02554 PRINT "Firma:…" ; FIRMANAVN $
0x5311…532b LineComal80 {
0x5311…532b ptr = 0xe919 // 0x5311 @0x0
0x5311…532b lno = 0x09fa // 0x5313 @0x2
0x5311…532b at0004 = ╱92╱ PRINT ╱ // 0x5315 @0x4
0x5311…532b at0005 = ╱22╱"╱ // 0x5316 @0x5
0x5311…532b at0006 = ╱46╱F╱ // 0x5317 @0x6
0x5311…532b at0007 = ╱69╱i╱ // 0x5318 @0x7
0x5311…532b at0008 = ╱72╱r╱ // 0x5319 @0x8
0x5311…532b at0009 = ╱6d╱m╱ // 0x531a @0x9
0x5311…532b at000a = ╱61╱a╱ // 0x531b @0xa
0x5311…532b at000b = ╱3a╱:╱ // 0x531c @0xb
0x5311…532b at000c = ╱20╱…╱ // 0x531d @0xc
0x5311…532b at000d = ╱22╱"╱ // 0x531e @0xd
0x5311…532b at000e = ╱ea╱ ; ╱ // 0x531f @0xe
0x5311…532b at000f = ╱46╱F╱ // 0x5320 @0xf
0x5311…532b at0010 = ╱49╱I╱ // 0x5321 @0x10
0x5311…532b at0011 = ╱52╱R╱ // 0x5322 @0x11
0x5311…532b at0012 = ╱4d╱M╱ // 0x5323 @0x12
0x5311…532b at0013 = ╱41╱A╱ // 0x5324 @0x13
0x5311…532b at0014 = ╱4e╱N╱ // 0x5325 @0x14
0x5311…532b at0015 = ╱41╱A╱ // 0x5326 @0x15
0x5311…532b at0016 = ╱56╱V╱ // 0x5327 @0x16
0x5311…532b at0017 = ╱4e╱N╱ // 0x5328 @0x17
0x5311…532b at0018 = ╱ef╱ $ ╱ // 0x5329 @0x18
0x5311…532b at0019 = EOL // 0x532a @0x19
0x5311…532b }
0x532b…5331 dba8 02555 PRINT
0x532b…5331 LineComal80 {
0x532b…5331 ptr = 0xdba8 // 0x532b @0x0
0x532b…5331 lno = 0x09fb // 0x532d @0x2
0x532b…5331 at0004 = ╱92╱ PRINT ╱ // 0x532f @0x4
0x532b…5331 at0005 = EOL // 0x5330 @0x5
0x532b…5331 }
0x5331…534f e8f9 02552 PRINT "***…" ; SYST_NAVN $ ; "…***"
0x5331…534f LineComal80 {
0x5331…534f ptr = 0xe8f9 // 0x5331 @0x0
0x5331…534f lno = 0x09f8 // 0x5333 @0x2
0x5331…534f at0004 = ╱92╱ PRINT ╱ // 0x5335 @0x4
0x5331…534f at0005 = ╱22╱"╱ // 0x5336 @0x5
0x5331…534f at0006 = ╱2a╱*╱ // 0x5337 @0x6
0x5331…534f at0007 = ╱2a╱*╱ // 0x5338 @0x7
0x5331…534f at0008 = ╱2a╱*╱ // 0x5339 @0x8
0x5331…534f at0009 = ╱20╱…╱ // 0x533a @0x9
0x5331…534f at000a = ╱22╱"╱ // 0x533b @0xa
0x5331…534f at000b = ╱ea╱ ; ╱ // 0x533c @0xb
0x5331…534f at000c = ╱53╱S╱ // 0x533d @0xc
0x5331…534f at000d = ╱59╱Y╱ // 0x533e @0xd
0x5331…534f at000e = ╱53╱S╱ // 0x533f @0xe
0x5331…534f at000f = ╱54╱T╱ // 0x5340 @0xf
0x5331…534f at0010 = ╱5f╱_╱ // 0x5341 @0x10
0x5331…534f at0011 = ╱4e╱N╱ // 0x5342 @0x11
0x5331…534f at0012 = ╱41╱A╱ // 0x5343 @0x12
0x5331…534f at0013 = ╱56╱V╱ // 0x5344 @0x13
0x5331…534f at0014 = ╱4e╱N╱ // 0x5345 @0x14
0x5331…534f at0015 = ╱ef╱ $ ╱ // 0x5346 @0x15
0x5331…534f at0016 = ╱ea╱ ; ╱ // 0x5347 @0x16
0x5331…534f at0017 = ╱22╱"╱ // 0x5348 @0x17
0x5331…534f at0018 = ╱20╱…╱ // 0x5349 @0x18
0x5331…534f at0019 = ╱2a╱*╱ // 0x534a @0x19
0x5331…534f at001a = ╱2a╱*╱ // 0x534b @0x1a
0x5331…534f at001b = ╱2a╱*╱ // 0x534c @0x1b
0x5331…534f at001c = ╱22╱"╱ // 0x534d @0x1c
0x5331…534f at001d = EOL // 0x534e @0x1d
0x5331…534f }
0x534f…5365 e953 00611 DIM SYST_NAVN $ OF 30
0x534f…5365 LineComal80 {
0x534f…5365 ptr = 0xe953 // 0x534f @0x0
0x534f…5365 lno = 0x0263 // 0x5351 @0x2
0x534f…5365 at0004 = ╱87╱ DIM ╱ // 0x5353 @0x4
0x534f…5365 at0005 = ╱53╱S╱ // 0x5354 @0x5
0x534f…5365 at0006 = ╱59╱Y╱ // 0x5355 @0x6
0x534f…5365 at0007 = ╱53╱S╱ // 0x5356 @0x7
0x534f…5365 at0008 = ╱54╱T╱ // 0x5357 @0x8
0x534f…5365 at0009 = ╱5f╱_╱ // 0x5358 @0x9
0x534f…5365 at000a = ╱4e╱N╱ // 0x5359 @0xa
0x534f…5365 at000b = ╱41╱A╱ // 0x535a @0xb
0x534f…5365 at000c = ╱56╱V╱ // 0x535b @0xc
0x534f…5365 at000d = ╱4e╱N╱ // 0x535c @0xd
0x534f…5365 at000e = ╱ef╱ $ ╱ // 0x535d @0xe
0x534f…5365 at000f = ╱ba╱ OF ╱ // 0x535e @0xf
0x534f…5365 at0010 = ╱33╱3╱ // 0x535f @0x10
0x534f…5365 at0011 = ╱30╱0╱ // 0x5360 @0x11
0x534f…5365 at0012 = ╱f21e00╱ // 0x5361 @0x12
0x534f…5365 at0015 = EOL // 0x5364 @0x15
0x534f…5365 }
0x5365…5395 e282 00612 LET SYST_NAVN $ := "Bogf|ringssystemet…'SYSKAS-1'"
0x5365…5395 LineComal80 {
0x5365…5395 ptr = 0xe282 // 0x5365 @0x0
0x5365…5395 lno = 0x0264 // 0x5367 @0x2
0x5365…5395 at0004 = ╱86╱ LET ╱ // 0x5369 @0x4
0x5365…5395 at0005 = ╱53╱S╱ // 0x536a @0x5
0x5365…5395 at0006 = ╱59╱Y╱ // 0x536b @0x6
0x5365…5395 at0007 = ╱53╱S╱ // 0x536c @0x7
0x5365…5395 at0008 = ╱54╱T╱ // 0x536d @0x8
0x5365…5395 at0009 = ╱5f╱_╱ // 0x536e @0x9
0x5365…5395 at000a = ╱4e╱N╱ // 0x536f @0xa
0x5365…5395 at000b = ╱41╱A╱ // 0x5370 @0xb
0x5365…5395 at000c = ╱56╱V╱ // 0x5371 @0xc
0x5365…5395 at000d = ╱4e╱N╱ // 0x5372 @0xd
0x5365…5395 at000e = ╱ef╱ $ ╱ // 0x5373 @0xe
0x5365…5395 at000f = ╱f0╱ := ╱ // 0x5374 @0xf
0x5365…5395 at0010 = ╱22╱"╱ // 0x5375 @0x10
0x5365…5395 at0011 = ╱42╱B╱ // 0x5376 @0x11
0x5365…5395 at0012 = ╱6f╱o╱ // 0x5377 @0x12
0x5365…5395 at0013 = ╱67╱g╱ // 0x5378 @0x13
0x5365…5395 at0014 = ╱66╱f╱ // 0x5379 @0x14
0x5365…5395 at0015 = ╱7c╱|╱ // 0x537a @0x15
0x5365…5395 at0016 = ╱72╱r╱ // 0x537b @0x16
0x5365…5395 at0017 = ╱69╱i╱ // 0x537c @0x17
0x5365…5395 at0018 = ╱6e╱n╱ // 0x537d @0x18
0x5365…5395 at0019 = ╱67╱g╱ // 0x537e @0x19
0x5365…5395 at001a = ╱73╱s╱ // 0x537f @0x1a
0x5365…5395 at001b = ╱73╱s╱ // 0x5380 @0x1b
0x5365…5395 at001c = ╱79╱y╱ // 0x5381 @0x1c
0x5365…5395 at001d = ╱73╱s╱ // 0x5382 @0x1d
0x5365…5395 at001e = ╱74╱t╱ // 0x5383 @0x1e
0x5365…5395 at001f = ╱65╱e╱ // 0x5384 @0x1f
0x5365…5395 at0020 = ╱6d╱m╱ // 0x5385 @0x20
0x5365…5395 at0021 = ╱65╱e╱ // 0x5386 @0x21
0x5365…5395 at0022 = ╱74╱t╱ // 0x5387 @0x22
0x5365…5395 at0023 = ╱20╱…╱ // 0x5388 @0x23
0x5365…5395 at0024 = ╱27╱'╱ // 0x5389 @0x24
0x5365…5395 at0025 = ╱53╱S╱ // 0x538a @0x25
0x5365…5395 at0026 = ╱59╱Y╱ // 0x538b @0x26
0x5365…5395 at0027 = ╱53╱S╱ // 0x538c @0x27
0x5365…5395 at0028 = ╱4b╱K╱ // 0x538d @0x28
0x5365…5395 at0029 = ╱41╱A╱ // 0x538e @0x29
0x5365…5395 at002a = ╱53╱S╱ // 0x538f @0x2a
0x5365…5395 at002b = ╱2d╱-╱ // 0x5390 @0x2b
0x5365…5395 at002c = ╱31╱1╱ // 0x5391 @0x2c
0x5365…5395 at002d = ╱27╱'╱ // 0x5392 @0x2d
0x5365…5395 at002e = ╱22╱"╱ // 0x5393 @0x2e
0x5365…5395 at002f = EOL // 0x5394 @0x2f
0x5365…5395 }
0x5395…545b 1f1f 07967 ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ retneR……*70/60 ╱00╱ ╱00╱ P ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ 70 ╱00╱ ╱00╱ ╱08╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ regnintsokmoseteticapak…etnatnoK……*40/30 ╱00╱ ╱00╱ P ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ 40 ╱00╱ ╱00╱ ╱08╱ ╱00╱ ) OTHERWISE LN ╱00╱ ╱00╱
0x5395…545b LineComal80 {
0x5395…545b ptr = 0x1f1f // 0x5395 @0x0
0x5395…545b lno = 0x1f1f // 0x5397 @0x2
0x5395…545b at0004 = ╱1f╱ // 0x5399 @0x4
0x5395…545b at0005 = ╱1f╱ // 0x539a @0x5
0x5395…545b at0006 = ╱1f╱ // 0x539b @0x6
0x5395…545b at0007 = ╱1f╱ // 0x539c @0x7
0x5395…545b at0008 = ╱1f╱ // 0x539d @0x8
0x5395…545b at0009 = ╱1f╱ // 0x539e @0x9
0x5395…545b at000a = ╱1f╱ // 0x539f @0xa
0x5395…545b at000b = ╱1f╱ // 0x53a0 @0xb
0x5395…545b at000c = ╱1f╱ // 0x53a1 @0xc
0x5395…545b at000d = ╱1f╱ // 0x53a2 @0xd
0x5395…545b at000e = ╱1f╱ // 0x53a3 @0xe
0x5395…545b at000f = ╱1f╱ // 0x53a4 @0xf
0x5395…545b at0010 = ╱1f╱ // 0x53a5 @0x10
0x5395…545b at0011 = ╱1f╱ // 0x53a6 @0x11
0x5395…545b at0012 = ╱1f╱ // 0x53a7 @0x12
0x5395…545b at0013 = ╱1f╱ // 0x53a8 @0x13
0x5395…545b at0014 = ╱1f╱ // 0x53a9 @0x14
0x5395…545b at0015 = ╱1f╱ // 0x53aa @0x15
0x5395…545b at0016 = ╱1f╱ // 0x53ab @0x16
0x5395…545b at0017 = ╱1f╱ // 0x53ac @0x17
0x5395…545b at0018 = ╱1f╱ // 0x53ad @0x18
0x5395…545b at0019 = ╱1f╱ // 0x53ae @0x19
0x5395…545b at001a = ╱1f╱ // 0x53af @0x1a
0x5395…545b at001b = ╱1f╱ // 0x53b0 @0x1b
0x5395…545b at001c = ╱1f╱ // 0x53b1 @0x1c
0x5395…545b at001d = ╱1f╱ // 0x53b2 @0x1d
0x5395…545b at001e = ╱1f╱ // 0x53b3 @0x1e
0x5395…545b at001f = ╱1f╱ // 0x53b4 @0x1f
0x5395…545b at0020 = ╱1f╱ // 0x53b5 @0x20
0x5395…545b at0021 = ╱1f╱ // 0x53b6 @0x21
0x5395…545b at0022 = ╱1f╱ // 0x53b7 @0x22
0x5395…545b at0023 = ╱1f╱ // 0x53b8 @0x23
0x5395…545b at0024 = ╱1f╱ // 0x53b9 @0x24
0x5395…545b at0025 = ╱1f╱ // 0x53ba @0x25
0x5395…545b at0026 = ╱1f╱ // 0x53bb @0x26
0x5395…545b at0027 = ╱1f╱ // 0x53bc @0x27
0x5395…545b at0028 = ╱1f╱ // 0x53bd @0x28
0x5395…545b at0029 = ╱1f╱ // 0x53be @0x29
0x5395…545b at002a = ╱1f╱ // 0x53bf @0x2a
0x5395…545b at002b = ╱1f╱ // 0x53c0 @0x2b
0x5395…545b at002c = ╱1f╱ // 0x53c1 @0x2c
0x5395…545b at002d = ╱1f╱ // 0x53c2 @0x2d
0x5395…545b at002e = ╱1f╱ // 0x53c3 @0x2e
0x5395…545b at002f = ╱1f╱ // 0x53c4 @0x2f
0x5395…545b at0030 = ╱1f╱ // 0x53c5 @0x30
0x5395…545b at0031 = ╱1f╱ // 0x53c6 @0x31
0x5395…545b at0032 = ╱1f╱ // 0x53c7 @0x32
0x5395…545b at0033 = ╱1f╱ // 0x53c8 @0x33
0x5395…545b at0034 = ╱1f╱ // 0x53c9 @0x34
0x5395…545b at0035 = ╱1f╱ // 0x53ca @0x35
0x5395…545b at0036 = ╱1f╱ // 0x53cb @0x36
0x5395…545b at0037 = ╱1f╱ // 0x53cc @0x37
0x5395…545b at0038 = ╱1f╱ // 0x53cd @0x38
0x5395…545b at0039 = ╱1f╱ // 0x53ce @0x39
0x5395…545b at003a = ╱1f╱ // 0x53cf @0x3a
0x5395…545b at003b = ╱1f╱ // 0x53d0 @0x3b
0x5395…545b at003c = ╱1f╱ // 0x53d1 @0x3c
0x5395…545b at003d = ╱1f╱ // 0x53d2 @0x3d
0x5395…545b at003e = ╱1f╱ // 0x53d3 @0x3e
0x5395…545b at003f = ╱1f╱ // 0x53d4 @0x3f
0x5395…545b at0040 = ╱1f╱ // 0x53d5 @0x40
0x5395…545b at0041 = ╱1f╱ // 0x53d6 @0x41
0x5395…545b at0042 = ╱72╱r╱ // 0x53d7 @0x42
0x5395…545b at0043 = ╱65╱e╱ // 0x53d8 @0x43
0x5395…545b at0044 = ╱74╱t╱ // 0x53d9 @0x44
0x5395…545b at0045 = ╱6e╱n╱ // 0x53da @0x45
0x5395…545b at0046 = ╱65╱e╱ // 0x53db @0x46
0x5395…545b at0047 = ╱52╱R╱ // 0x53dc @0x47
0x5395…545b at0048 = ╱20╱…╱ // 0x53dd @0x48
0x5395…545b at0049 = ╱20╱…╱ // 0x53de @0x49
0x5395…545b at004a = ╱2a╱*╱ // 0x53df @0x4a
0x5395…545b at004b = ╱37╱7╱ // 0x53e0 @0x4b
0x5395…545b at004c = ╱30╱0╱ // 0x53e1 @0x4c
0x5395…545b at004d = ╱2f╱/╱ // 0x53e2 @0x4d
0x5395…545b at004e = ╱36╱6╱ // 0x53e3 @0x4e
0x5395…545b at004f = ╱30╱0╱ // 0x53e4 @0x4f
0x5395…545b at0050 = ╱00╱ // 0x53e5 @0x50
0x5395…545b at0051 = ╱00╱ // 0x53e6 @0x51
0x5395…545b at0052 = ╱50╱P╱ // 0x53e7 @0x52
0x5395…545b at0053 = ╱00╱ // 0x53e8 @0x53
0x5395…545b at0054 = ╱1f╱ // 0x53e9 @0x54
0x5395…545b at0055 = ╱1f╱ // 0x53ea @0x55
0x5395…545b at0056 = ╱1f╱ // 0x53eb @0x56
0x5395…545b at0057 = ╱1f╱ // 0x53ec @0x57
0x5395…545b at0058 = ╱1f╱ // 0x53ed @0x58
0x5395…545b at0059 = ╱1f╱ // 0x53ee @0x59
0x5395…545b at005a = ╱37╱7╱ // 0x53ef @0x5a
0x5395…545b at005b = ╱30╱0╱ // 0x53f0 @0x5b
0x5395…545b at005c = ╱00╱ // 0x53f1 @0x5c
0x5395…545b at005d = ╱00╱ // 0x53f2 @0x5d
0x5395…545b at005e = ╱08╱ // 0x53f3 @0x5e
0x5395…545b at005f = ╱00╱ // 0x53f4 @0x5f
0x5395…545b at0060 = ╱1f╱ // 0x53f5 @0x60
0x5395…545b at0061 = ╱1f╱ // 0x53f6 @0x61
0x5395…545b at0062 = ╱1f╱ // 0x53f7 @0x62
0x5395…545b at0063 = ╱1f╱ // 0x53f8 @0x63
0x5395…545b at0064 = ╱1f╱ // 0x53f9 @0x64
0x5395…545b at0065 = ╱1f╱ // 0x53fa @0x65
0x5395…545b at0066 = ╱1f╱ // 0x53fb @0x66
0x5395…545b at0067 = ╱1f╱ // 0x53fc @0x67
0x5395…545b at0068 = ╱1f╱ // 0x53fd @0x68
0x5395…545b at0069 = ╱1f╱ // 0x53fe @0x69
0x5395…545b at006a = ╱1f╱ // 0x53ff @0x6a
0x5395…545b at006b = ╱1f╱ // 0x5400 @0x6b
0x5395…545b at006c = ╱1f╱ // 0x5401 @0x6c
0x5395…545b at006d = ╱1f╱ // 0x5402 @0x6d
0x5395…545b at006e = ╱1f╱ // 0x5403 @0x6e
0x5395…545b at006f = ╱1f╱ // 0x5404 @0x6f
0x5395…545b at0070 = ╱1f╱ // 0x5405 @0x70
0x5395…545b at0071 = ╱1f╱ // 0x5406 @0x71
0x5395…545b at0072 = ╱1f╱ // 0x5407 @0x72
0x5395…545b at0073 = ╱1f╱ // 0x5408 @0x73
0x5395…545b at0074 = ╱1f╱ // 0x5409 @0x74
0x5395…545b at0075 = ╱1f╱ // 0x540a @0x75
0x5395…545b at0076 = ╱1f╱ // 0x540b @0x76
0x5395…545b at0077 = ╱1f╱ // 0x540c @0x77
0x5395…545b at0078 = ╱1f╱ // 0x540d @0x78
0x5395…545b at0079 = ╱1f╱ // 0x540e @0x79
0x5395…545b at007a = ╱1f╱ // 0x540f @0x7a
0x5395…545b at007b = ╱1f╱ // 0x5410 @0x7b
0x5395…545b at007c = ╱1f╱ // 0x5411 @0x7c
0x5395…545b at007d = ╱1f╱ // 0x5412 @0x7d
0x5395…545b at007e = ╱1f╱ // 0x5413 @0x7e
0x5395…545b at007f = ╱1f╱ // 0x5414 @0x7f
0x5395…545b at0080 = ╱1f╱ // 0x5415 @0x80
0x5395…545b at0081 = ╱1f╱ // 0x5416 @0x81
0x5395…545b at0082 = ╱1f╱ // 0x5417 @0x82
0x5395…545b at0083 = ╱1f╱ // 0x5418 @0x83
0x5395…545b at0084 = ╱1f╱ // 0x5419 @0x84
0x5395…545b at0085 = ╱1f╱ // 0x541a @0x85
0x5395…545b at0086 = ╱1f╱ // 0x541b @0x86
0x5395…545b at0087 = ╱1f╱ // 0x541c @0x87
0x5395…545b at0088 = ╱72╱r╱ // 0x541d @0x88
0x5395…545b at0089 = ╱65╱e╱ // 0x541e @0x89
0x5395…545b at008a = ╱67╱g╱ // 0x541f @0x8a
0x5395…545b at008b = ╱6e╱n╱ // 0x5420 @0x8b
0x5395…545b at008c = ╱69╱i╱ // 0x5421 @0x8c
0x5395…545b at008d = ╱6e╱n╱ // 0x5422 @0x8d
0x5395…545b at008e = ╱74╱t╱ // 0x5423 @0x8e
0x5395…545b at008f = ╱73╱s╱ // 0x5424 @0x8f
0x5395…545b at0090 = ╱6f╱o╱ // 0x5425 @0x90
0x5395…545b at0091 = ╱6b╱k╱ // 0x5426 @0x91
0x5395…545b at0092 = ╱6d╱m╱ // 0x5427 @0x92
0x5395…545b at0093 = ╱6f╱o╱ // 0x5428 @0x93
0x5395…545b at0094 = ╱73╱s╱ // 0x5429 @0x94
0x5395…545b at0095 = ╱65╱e╱ // 0x542a @0x95
0x5395…545b at0096 = ╱74╱t╱ // 0x542b @0x96
0x5395…545b at0097 = ╱65╱e╱ // 0x542c @0x97
0x5395…545b at0098 = ╱74╱t╱ // 0x542d @0x98
0x5395…545b at0099 = ╱69╱i╱ // 0x542e @0x99
0x5395…545b at009a = ╱63╱c╱ // 0x542f @0x9a
0x5395…545b at009b = ╱61╱a╱ // 0x5430 @0x9b
0x5395…545b at009c = ╱70╱p╱ // 0x5431 @0x9c
0x5395…545b at009d = ╱61╱a╱ // 0x5432 @0x9d
0x5395…545b at009e = ╱6b╱k╱ // 0x5433 @0x9e
0x5395…545b at009f = ╱20╱…╱ // 0x5434 @0x9f
0x5395…545b at00a0 = ╱65╱e╱ // 0x5435 @0xa0
0x5395…545b at00a1 = ╱74╱t╱ // 0x5436 @0xa1
0x5395…545b at00a2 = ╱6e╱n╱ // 0x5437 @0xa2
0x5395…545b at00a3 = ╱61╱a╱ // 0x5438 @0xa3
0x5395…545b at00a4 = ╱74╱t╱ // 0x5439 @0xa4
0x5395…545b at00a5 = ╱6e╱n╱ // 0x543a @0xa5
0x5395…545b at00a6 = ╱6f╱o╱ // 0x543b @0xa6
0x5395…545b at00a7 = ╱4b╱K╱ // 0x543c @0xa7
0x5395…545b at00a8 = ╱20╱…╱ // 0x543d @0xa8
0x5395…545b at00a9 = ╱20╱…╱ // 0x543e @0xa9
0x5395…545b at00aa = ╱2a╱*╱ // 0x543f @0xaa
0x5395…545b at00ab = ╱34╱4╱ // 0x5440 @0xab
0x5395…545b at00ac = ╱30╱0╱ // 0x5441 @0xac
0x5395…545b at00ad = ╱2f╱/╱ // 0x5442 @0xad
0x5395…545b at00ae = ╱33╱3╱ // 0x5443 @0xae
0x5395…545b at00af = ╱30╱0╱ // 0x5444 @0xaf
0x5395…545b at00b0 = ╱00╱ // 0x5445 @0xb0
0x5395…545b at00b1 = ╱00╱ // 0x5446 @0xb1
0x5395…545b at00b2 = ╱50╱P╱ // 0x5447 @0xb2
0x5395…545b at00b3 = ╱00╱ // 0x5448 @0xb3
0x5395…545b at00b4 = ╱1f╱ // 0x5449 @0xb4
0x5395…545b at00b5 = ╱1f╱ // 0x544a @0xb5
0x5395…545b at00b6 = ╱1f╱ // 0x544b @0xb6
0x5395…545b at00b7 = ╱1f╱ // 0x544c @0xb7
0x5395…545b at00b8 = ╱1f╱ // 0x544d @0xb8
0x5395…545b at00b9 = ╱1f╱ // 0x544e @0xb9
0x5395…545b at00ba = ╱34╱4╱ // 0x544f @0xba
0x5395…545b at00bb = ╱30╱0╱ // 0x5450 @0xbb
0x5395…545b at00bc = ╱00╱ // 0x5451 @0xbc
0x5395…545b at00bd = ╱00╱ // 0x5452 @0xbd
0x5395…545b at00be = ╱08╱ // 0x5453 @0xbe
0x5395…545b at00bf = ╱00╱ // 0x5454 @0xbf
0x5395…545b at00c0 = ╱ee╱ ) ╱ // 0x5455 @0xc0
0x5395…545b at00c1 = ╱9590╱ OTHERWISE ╱ // 0x5456 @0xc1
0x5395…545b at00c3 = ╱c9╱ LN ╱ // 0x5458 @0xc3
0x5395…545b at00c4 = ╱00╱ // 0x5459 @0xc4
0x5395…545b at00c5 = ╱00╱ // 0x545a @0xc5
0x5395…545b }