|
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: 17540 (0x4484)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_05, UNKNOWN_TOKEN_06, UNKNOWN_TOKEN_08, UNKNOWN_TOKEN_0a, UNKNOWN_TOKEN_0b, UNKNOWN_TOKEN_0c, UNKNOWN_TOKEN_14, UNKNOWN_TOKEN_18, UNKNOWN_TOKEN_1b, UNKNOWN_TOKEN_1f, UNKNOWN_TOKEN_c7, UNKNOWN_TOKEN_ca, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cc, UNKNOWN_TOKEN_cd, UNKNOWN_TOKEN_d1
Names: »SYSUKY«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSUKY«
00100 // **************************************************
00110 // *………………………………………………………………………………………………………………………………*
00120 // *…………………………Bogf|ringssystemet…'SYS-KAS'…………………………*
00130 // *………………………………………………vers.…1.0………………………………………………………*
00140 // *………………………………………………………………………………………………………………………………*
00150 // *…Udviklet…marts…1983…p}…en…'SPC/1'…mikrodatamat…*
00160 // *…Programsystemet…er…skrevet…i…COMAL80…vers.…1.2…*
00170 // *………………………………………………………………………………………………………………………………*
00180 // *…Udviklet…af…:…Peter…Kristensen……………………………………………*
00190 // *………………………………………Vestervang…6,…6920…Videb{k…………………*
00200 // *………………………………………………………………………………………………………………………………*
00210 // *………(C)…………………:…forlaget…systime…a/s…………………………………*
00220 // *………………………………………Klokkebakken…20,…Gjellerup…………………*
00230 // *………………………………………7400……Herning……………………………………………………*
00240 // **************************************************
00250 EXEC DIMENSIONER
00260 EXEC INITIER
00270 EXEC FKT_MENU
00280 CHAIN PROGRAM $
00290 // ===========…Procedurer…starter…==============
00300 PROC DIMENSIONER
00310 // Standard…variable
00320 DIM SPC $ OF 80 , SVAR $ OF 10 , PRGFL $ OF 8 , ALFA $ OF 28 , TAL $ OF 10
00330 DIM PROGRAM $ OF 17 , PRTNR $ OF 1
00340 REAL RESRV , PPAR
00350 INTEGER OK , TRUE , FALSE , I , J
00360 // Hj{lpevariable
00370 DIM A_KTONR $ OF 8 , OUT_WAY $ OF 1
00380 REAL TOT ( 2 )
00390 INTEGER IDXPOS , HIGH , LOW , KREDIT , DEBET , LIN_T , MAX_LIN , T_IDX , K , NUL , F_IDX
00400 INTEGER SIDENR
00410 // Variable…til…filen…SYSPARA
00420 DIM SYSPARA $ OF 17
00430 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
00440 DIM DATAFL $ OF 8 , T_KODE $ OF 1
00450 // Variable…til…filen…@@PARAM
00460 DIM PARAM $ OF 17
00470 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 6
00480 REAL MOMS
00490 DIM ST_DATO $ OF 6
00500 INTEGER ANT_PER , PER_NR
00510 // Variable…til…filen…@@KONTO
00520 DIM KONTO $ OF 17
00530 INTEGER N_FRIREC , N_MAXREC
00540 DIM KTO_TYPE $ OF 1 , KTO_NAVN $ OF 40
00550 REAL KTO_PRIMO , KTO_ULTIMO
00560 INTEGER KTO_FP , KTO_SP
00570 // Variable…til…filen…@@KTOIDX
00580 DIM KTOIDX $ OF 17
00590 INTEGER I_H\JREC , I_MAXREC
00600 DIM KTONR $ OF 8
00610 INTEGER RECNR
00620 // Variable…til…filen…@@ST_KTO
00630 DIM ST_KTO $ OF 17
00640 DIM KASSE_KTO $ OF 8 , BANK_KTO $ OF 8 , GIRO_KTO $ OF 8
00650 DIM K_DIFF_KTO $ OF 8 , INDMOMS_KTO $ OF 8 , UDMOMS_KTO $ OF 8
00660 // Variable…til…filen…@@TRANS
00670 DIM TRANS $ OF 17
00680 INTEGER T_H\JREC , T_MAXREC
00690 DIM BKTONR $ OF 8 , BDATO $ OF 6 , BLGNR $ OF 5 , BTXT $ OF 20
00700 REAL BMOMS , BBEL\B
00710 INTEGER DK , NTRANS
00720 ENDPROC DIMENSIONER
00730
00740 PROC INITIER
00750 LET PRGFL $ := "DP2"
00760 LET PROGRAM $ := PRGFL $ + ":SYSU"
00770 LET TAL $ := "0123456789" ; NULR := 0
00780 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
00790 LET SPC $ := "………………………………………………………………………………………………………………………"
00800 LET SPC $ := SPC $ + SPC $
00810 LET FALSE := 0 ; TRUE := 1 // boolske…variable
00820 LET KREDIT := - 1 ; DEBET := 1
00830 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
00840 EXEC OPENFIL ( SYSPARA $ , "R" )
00850 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
00860 EXEC TERMINAL_IDX
00870 CLOSE SYSPARA $
00880 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
00890 EXEC OPENFIL ( PARAM $ , "R" )
00900 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
00910 GET PARAM $ , 2 : ST_DATO $ , ANT_PER , PER_NR
00920 CLOSE PARAM $
00930 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
00940 LET KONTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KONTO"
00950 LET ST_KTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "ST_KTO"
00960 LET TRANS $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "TRANS"
00970 EXEC OPENFIL ( KTOIDX $ , "R" )
00980 EXEC OPENFIL ( KONTO $ , "R" )
00990 EXEC OPENFIL ( TRANS $ , "R" )
01000 ENDPROC INITIER
01010
01020 PROC TERMINAL_IDX
01030 LET PPAR := 5 ; RESRV := 0
01040 CALL :PRES"
01050 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
01060 ENDPROC TERMINAL_IDX
01070
01080 PROC OPENFIL ( FNAVN $ , WAY $ )
01090 REPEAT
01100 IF AY $ = "W" OR WAY $ = "w" THEN
01110 OPEN FNAVN $ , W
01120 ELSE
01130 OPEN FNAVN $ , R
01140 ENDIF
01150 IF ( FNAVN $ ) THEN
01160 PRINT "<SC0123>" ; CHR$ ( 7 )
01170 IF ( FNAVN $ ) = 6 THEN
01180 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…RETURN…***"
01190 INPUT "" : SVAR $
01200 ELSE
01210 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
01220 PRINT "<S>" ; FNAVN $ ; "…***"
01230 INPUT "" : SVAR $
01240 PRINT "<C0102>" ; SPC $
01250 ENDIF
01260 ENDIF
01270 UNTIL NOT ╱cd╱ ( FNAVN $ )
01280 ENDPROC OPENFIL
01290
01300 PROC TAL_CONTROL ( REF RST $ )
01310 LET J := 0 ; OK := TRUE
01320 FOR I := 1 TO ( RST $ ) DO
01330 IF RST $ ( I ) IN TAL $ + "." THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
01340 NEXT I
01350 IF = 0 THEN
01360 LET OK := FALSE
01370 ELSE
01380 LET RST $ := RST $ ( 1 : J )
01390 ENDIF
01400 ENDPROC TAL_CONTROL
01410
01420 PROC OVERSKRIFT ( ST $ , L )
01430 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
01440 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
01450 PRINT SYST_DAT $ ( 5 : 2 )
01460 CURSOR 34 - ╱cb╱ ( ST $ ) DIV 2 , L
01470 PRINT "***…" ; ST $ ; "…***"
01480 ENDPROC OVERSKRIFT
01490
01500 PROC SL_FEJLLINIE
01510 LET OK := TRUE
01520 PRINT "<C0102>" ; SPC $
01530 ENDPROC SL_FEJLLINIE
01540
01550 PROC FEJL ( ST $ )
01560 LET OK := FALSE
01570 CURSOR 36 - ╱cb╱ ( ST $ ) / 2 , 2
01580 PRINT "***…" + ST $ + "…***" ; CHR$ ( 7 )
01590 ENDPROC FEJL
01600
01610 PROC L[S_KONTO ( P )
01620 GET KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
01630 ENDPROC L[S_KONTO
01640
01650 PROC SKRIV_KONTO ( P )
01660 PUT KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
01670 ENDPROC SKRIV_KONTO
01680
01690 PROC L[S_TRANS ( P )
01700 GET TRANS $ , P : BKTONR $ , BDATO $ , BLGNR $ , BTXT $ , BMOMS , BBEL\B , DK , NTRANS
01710 ENDPROC L[S_TRANS
01720
01730 PROC ST_BGST ( REF RST $ )
01740 FOR I := 1 TO ( RST $ ) DO
01750 IF RST $ ( I ) =< "}" AND RST $ ( I ) >= "a" THEN LET RST $ ( I ) := CHR$ ( ╱cc╱ ( RST $ ( I ) ) - 32 )
01760 NEXT I
01770 ENDPROC ST_BGST
01780 PROC FKT_MENU
01790 REPEAT
01800 EXEC OVERSKRIFT ( "Udskrivning…af…kontokort" , 6 )
01810 LET A_KTONR $ := ""
01820 REPEAT
01830 EDIT "<C2810>Fra…kontonr:…" : A_KTONR $
01840 EXEC SL_FEJLLINIE
01850 LET F_IDX := FIND_KTO ( A_KTONR $ )
01860 IF NOT OK THEN EXEC FEJL ( "Kontonr…findes…ikke" )
01870 UNTIL OK
01880 LET A_KTONR $ := ""
01890 REPEAT
01900 EDIT "<C2812>Til…kontonr:…" : A_KTONR $
01910 EXEC SL_FEJLLINIE
01920 LET T_IDX := FIND_KTO ( A_KTONR $ )
01930 IF OK THEN
01940 EXEC FEJL ( "Kontonr…findes…ikke" )
01950 ELSE
01960 IF T_IDX < F_IDX THEN EXEC FEJL ( "Fra…kontonr…>…Til…kontonr" )
01970 ENDIF
01980 UNTIL OK
01990 LET OUT_WAY $ := "P"
02000 REPEAT
02010 EDIT "<SC1814>Udskrift…p}…(P)rinter…eller…(S)k{rm?…" : OUT_WAY $
02020 EXEC SL_FEJLLINIE
02030 EXEC ST_BGST ( OUT_WAY $ )
02040 IF "/" + OUT_WAY $ + "/" IN "/S/P/" THEN
02050 EXEC FEJL ( "Ukendt…svar:…'" + OUT_WAY $ + "'" )
02060 ENDIF
02070 UNTIL OK
02090 EXEC UDSKRIV
02100 CLEAR
02110 LET SVAR $ := "n"
02120 EDIT "<C2012>Udskrivning…af…flere…kontokort…(j/n)?…" : SVAR $ ( 1 )
02130 UNTIL NOT "/" + SVAR $ + "/" IN "/J/j/"
02140 ENDPROC FKT_MENU
02150
02160 PROC UDSKRIV
02170 IF UT_WAY $ = "P" THEN
02170 EXEC PRINTRES ( "smal…EDB-liste" , 16 )
02190 LET MAX_LIN := 36
02200 ELSE
02210 LET MAX_LIN := 24
02220 ENDIF
02230 FOR IDXPOS := F_IDX TO _IDX DO
02240 LET SIDENR := 0 ; TOT ( 1 ) , TOT ( 2 ) := 0 ; LIN_T := 40
02250 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
02260 EXEC L[S_KONTO ( RECNR )
02270 IF TO_TYPE $ = "A" THEN
02270 LET BLGNR $ := "……" ; BTXT $ := "GAMMEL…SALDO"
02280 LET BMOMS := 0 ; DK := SGN ( KTO_PRIMO )
02300 LET KTO_PRIMO := ABS ( KTO_PRIMO )
02310 EXEC SKRIV_LIN ( ST_DATO $ , BLGNR $ , BTXT $ , BMOMS , KTO_PRIMO , DK )
02320 IF TO_FP > 0 THEN
02330 LET NTRANS := KTO_FP
02340 REPEAT
02350 EXEC L[S_TRANS ( NTRANS )
02410 EXEC SKRIV_LIN ( BDATO $ , BLGNR $ , BTXT $ , BMOMS , BBEL\B , DK )
02420 UNTIL NTRANS = 0
02430 ENDIF
02440 EXEC AFSLUT
02450 ENDIF
02460 NEXT IDXPOS
02470 IF UT_WAY $ = "P" THEN
02480 EXEC PRINTREL
02490 ELSE
02500 INPUT "<SC5023>N{ste…side…-…tryk…RETURN" : SVAR $ ( 1 )
02510 ENDIF
02520 ENDPROC UDSKRIV
02530
02480 PROC SIDESKIFT
02490 IF OT ( 1 ) > 0 OR TOT ( 2 ) > 0 THEN
02500 PRINT "<S>---------------------------------------"
02510 PRINT "---------------------------------------"
02520 PRINT TAB ( 18 ) ; "TRANSPORT" ; TAB ( 54 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 67 ) ;
02530 PRINT CHR$ ( TOT ( 2 ) , 9 , 2 )
02540 LET LIN_T := LIN_T + 2
02550 EXEC NYSIDE
02560 PRINT TAB ( 18 ) ; "TRANSPORT" ; TAB ( 54 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 67 ) ;
02570 PRINT CHR$ ( TOT ( 2 ) , 9 , 2 )
02580 LET LIN_T := LIN_T + 1
02590 ELSE
02600 EXEC NYSIDE
02610 ENDIF
02620 ENDPROC SIDESKIFT
02630 PROC NYSIDE
02640 IF UT_WAY $ = "P" THEN
02650 FOR I := LIN_T TO AX_LIN DO PRINT
02660 ELSE
02670 INPUT "<SC5523>N{ste…side…-…tryk…RETURN" : SVAR $
02680 CLEAR
02690 ENDIF
02700 LET LIN_T := 9 ; SIDENR := SIDENR + 1
02710 PRINT "***…" ; SYST_NAVN $ ; "…***" ; TAB ( 41 ) ;
02720 PRINT "***…UDSKREVET…PR.…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ;
02730 PRINT SYST_DAT $ ( 5 : 2 ) ; "…***…SIDE:…" ; SIDENR
02740 PRINT
02750 PRINT "Firmanavn:…" ; FIRMANAVN $ ; TAB ( 54 ) ; "**…KONTOKORT…**"
02760 PRINT
02770 PRINT "**…KONTONR:…" ; KTONR $ ; TAB ( 25 ) ; "KONTONAVN:…" ; KTO_NAVN $ ; TAB ( 77 ) ; "**"
02780 PRINT "<S>---------------------------------------"
02790 PRINT "---------------------------------------"
02800 PRINT "<S>……DATO…………BILAG……TEKST" ; TAB ( 47 ) ; "MOMSBEL\B………DEBETBEL\B"
02810 PRINT "……KREDITBEL\B"
02820 PRINT "<S>---------------------------------------"
02830 PRINT "---------------------------------------"
02840 ENDPROC NYSIDE
02850
02860 PROC SKRIV_LIN ( Q_D $ , Q_B $ , Q_T $ , Q_M , Q_K , Q_DK )
02870 IF LIN_T + 6 > MAX_LIN THEN EXEC SIDESKIFT
02880 LET LIN_T := LIN_T + 1
02890 PRINT Q_D $ ( 1 : 2 ) ; "." ; Q_D $ ( 3 : 2 ) ; "." ; Q_D $ ( 5 : 2 ) ; TAB ( 11 ) ;
02900 PRINT Q_B $ ; TAB ( 11 ) ; Q_B $ ; TAB ( 18 ) ; Q_T $ ; TAB ( 41 ) ;
02910 IF Q_M > 0 THEN PRINT CHR$ ( Q_M , 9 , 2 ) ;
02920 IF _DK = DEBET THEN
02930 PRINT TAB ( 54 ) ; CHR$ ( Q_K , 9 , 2 ) ;
02940 LET TOT ( 1 ) := TOT ( 1 ) + Q_K
02950 ELSE
02960 PRINT TAB ( 67 ) ; CHR$ ( Q_K , 9 , 2 ) ;
02970 LET TOT ( 2 ) := TOT ( 2 ) + Q_K
02980 ENDIF
02990 PRINT
03000 ENDPROC SKRIV_LIN
03010
03020 PROC AFSLUT
03030 FOR I := LIN_T TO AX_LIN - 6 DO PRINT
03040 LET LIN_T := MAX_LIN - 5
03050 PRINT "<S>---------------------------------------"
03060 PRINT "---------------------------------------"
03070 PRINT TAB ( 54 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 67 ) ; CHR$ ( TOT ( 2 ) , 9 , 2 )
03080 PRINT TAB ( 18 ) ; "NY…SALDO…………" ;
03090 IF OT ( 1 ) - TOT ( 2 ) > 0 THEN
03100 PRINT TAB ( 67 ) ; CHR$ ( TOT ( 1 ) - TOT ( 2 ) , 9 , 2 )
03110 LET TOT ( 2 ) := TOT ( 1 )
03120 ELSE
03130 PRINT TAB ( 54 ) ; CHR$ ( TOT ( 2 ) - TOT ( 1 ) , 9 , 2 )
03140 LET TOT ( 1 ) := TOT ( 2 )
03150 ENDIF
03160 PRINT TAB ( 18 ) ; "BALANCE" ; TAB ( 54 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; "…" ; CHR$ ( TOT ( 1 ) , 9 , 2 )
03170 IF UT_WAY $ = "P" THEN
03180 PRINT
03190 PRINT
03200 ENDIF
03210 ENDPROC AFSLUT
03220 PROC FIND_KTO ( REF R_KTONR $ )
03230 LET OK := FALSE
03240 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
03250 LET LOW := 1 ; HIGH := I_H\JREC ; POS := 2
03260 IF IGH > 1 THEN
03270 REPEAT
03280 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
03290 GET KTOIDX $ , POS : KTONR $ , RECNR
03300 IF TONR $ > R_KTONR $ THEN
03270 LET HIGH := POS
03280 ELSE
03290 IF TONR $ < R_KTONR $ THEN
03300 LET LOW := POS
03310 ENDIF
03320 ENDIF
03330 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
03340 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
03350 GET KTOIDX $ , POS : KTONR $ , RECNR
03360 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
03370 ENDIF
03380 LET FIND_KTO := POS
03390 ENDPROC FIND_KTO
03400 //
03410 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
03420 LET PRTNR $ := "1" ; OK := TRUE
03430 REPEAT
03440 CURSOR 15 , LINE
03450 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
03460 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
03490 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
03500 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
03510 INPUT "" : SVAR $
03520 SELECT OUTPUT "P" + PRTNR $
03530 IF ( "P" ) THEN
03540 CURSOR 12 , LINE
03550 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
03560 CURSOR 12 , LINE + 1
03570 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
03580 IF VAR $ = "J" OR SVAR $ = "j" THEN
03590 CURSOR 12 , LINE
03600 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
03610 PRINT "<SZ>"
03620 WHILE ╱cd╱ ( "P" ) DO
03630 LET SEK := ╱ca╱ ( 5 )
03640 SELECT OUTPUT "P" + PRTNR $
03650 ENDWHILE
03660 ELSE
03670 LET OK := FALSE
03680 ENDIF
03690 ENDIF
03700 CURSOR 1 , LINE
03710 PRINT "<Z>"
03720 PRINT "<SZ>"
03730 ENDPROC PRINTRES
03740 //
03750 PROC PRINTREL // RELEASE…PRINTER
03760 SELECT OUTPUT "T"
03770 ENDPROC PRINTREL
02270 LET BLGNR $ := "……" ; BTXT $ := "GAMMEL…SALDO" ; SUM := 0.0
02800 PRINT "<S>……DATO…………BILAG……TEKST" ; TAB ( 47 ) ; "DEBETBEL\B……KREDITBEL\B"
02810 PRINT "!………SALDO"
02930 PRINT TAB ( 42 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ; "!" ;
02940 LET TOT ( 1 ) := TOT ( 1 ) + Q_K
02950 ELSE
02960 PRINT TAB ( 55 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ; "!" ;
02970 LET TOT ( 2 ) := TOT ( 2 ) + Q_K
02980 ENDIF
02990 PRINT
02981 PRINT CHR$ ( ABS ( SUM ) , 9 , 2 ) ;
02290 LET BMOMS := 0 ; DK := SGN ( KTO_PRIMO ) ; SUM := KTO_PRIMO
02280 LET BLGNR $ := "……" ; BTXT $ := "GAMMEL…SALDO"
02360 IF K = DEBET THEN
02370 LET SUM := SUM + BBEL\B
02380 ELSE
02390 LET SUM := SUM - BBEL\B
02400 ENDIF
12594 38 ╱00╱ ╱00╱ ╱06╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ …… ╱00╱ ╱00╱ ╱05╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ODLAS…LEMMAG ╱00╱ ╱00╱ ╱14╱ ╱00╱ NOT DUMMY END ╱0a╱ LET LIN_T := 9 ; SIDENR := SIDENR + 1
02710 PRINT "***…" ; SYST_NAVN $ ; "…***" ; TAB ( 42 ) ;
02720 PRINT "***…UDSKREVET…PR.…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ;
02730 PRINT SYST_DAT $ ( 5 : 2 ) ; "…***…SIDE:…" ; SIDENR
02740 PRINT
02750 PRINT "Firmanavn:…" ; FIRMANAVN $ ; TAB ( 55 ) ; "**…KONTOKORT…**"
02760 PRINT
02770 PRINT "**…KONTONR:…" ; KTONR $ ; TAB ( 25 ) ; "KONTONAVN:…" ; KTO_NAVN $ ; TAB ( 78 ) ; "**"
02780 PRINT "<S>---------------------------------------"
02790 PRINT "----------------------------------------"
02800 PRINT "<S>……DATO…………BILAG……TEKST" ; TAB ( 47 ) ; "DEBETBEL\B……KREDITBEL\B"
02810 PRINT "…………SALDO"
02820 PRINT "<S>----------------------------------------"
02830 PRINT "---------------------------------------"
02840 ENDPROC NYSIDE
02850
02860 PROC SKRIV_LIN ( Q_D $ , Q_B $ , Q_T $ , Q_M , Q_K , Q_DK )
02870 IF LIN_T + 6 > MAX_LIN THEN EXEC SIDESKIFT
02880 LET LIN_T := LIN_T + 1
02890 PRINT Q_D $ ( 1 : 2 ) ; "." ; Q_D $ ( 3 : 2 ) ; "." ; Q_D $ ( 5 : 2 ) ; TAB ( 11 ) ;
02900 PRINT Q_B $ ; TAB ( 11 ) ; Q_B $ ; TAB ( 18 ) ; Q_T $ ; TAB ( 41 ) ;
02910 IF Q_M > 0 THEN PRINT CHR$ ( Q_M , 9 , 2 ) ;
02920 IF _DK = DEBET THEN
02930 PRINT TAB ( 42 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ; "!" ;
02940 LET TOT ( 1 ) := TOT ( 1 ) + Q_K
02950 ELSE
02960 PRINT TAB ( 55 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ; "!" ;
02970 LET TOT ( 2 ) := TOT ( 2 ) + Q_K
02980 ENDIF
02981 PRINT CHR$ ( ABS ( SUM ) , 9 , 2 ) ;
02990 PRINT
03000 ENDPROC SKRIV_LIN
03010
03020 PROC AFSLUT
03030 FOR I := LIN_T TO AX_LIN - 6 DO PRINT
03040 LET LIN_T := MAX_LIN - 5
03050 PRINT "<S>---------------------------------------"
03060 PRINT "----------------------------------------"
03070 PRINT TAB ( 54 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 55 ) ; CHR$ ( TOT ( 2 ) , 9 , 2 )
03070 PRINT TAB ( 42 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 55 ) ; CHR$ ( TOT ( 2 ) , 9 , 2 )
02930 PRINT TAB ( 42 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ;
02940 LET TOT ( 1 ) := TOT ( 1 ) + Q_K
02950 ELSE
02960 PRINT TAB ( 55 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ;
03100 PRINT TAB ( 55 ) ; CHR$ ( TOT ( 1 ) - TOT ( 2 ) , 9 , 2 )
03130 PRINT TAB ( 42 ) ; CHR$ ( TOT ( 2 ) - TOT ( 1 ) , 9 , 2 )
03160 PRINT TAB ( 18 ) ; "BALANCE" ; TAB ( 42 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; "…" ; CHR$ ( TOT ( 1 ) , 9 , 2 )
12594 38 ╱00╱ ╱00╱ ╱06╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ …… ╱00╱ ╱00╱ ╱05╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ODLAS…LEMMAG ╱00╱ ╱00╱ ╱14╱ ╱00╱ STEP ABS ELSE LET TOT ( 2 ) := TOT ( 2 ) + Q_K
02980 ENDIF
02981 PRINT CHR$ ( ABS ( SUM ) , 10 , 2 ) ;
02540 PROC SIDESKIFT
02490 IF OT ( 1 ) > 0 OR TOT ( 2 ) > 0 THEN
02500 PRINT "<S>---------------------------------------"
02510 PRINT "---------------------------------------"
02520 PRINT TAB ( 18 ) ; "TRANSPORT" ; TAB ( 54 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 67 ) ;
02530 PRINT CHR$ ( TOT ( 2 ) , 9 , 2 )
02540 LET LIN_T := LIN_T + 2
02550 EXEC NYSIDE
02560 PRINT TAB ( 18 ) ; "TRANSPORT" ; TAB ( 54 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 67 ) ;
02570 PRINT CHR$ ( TOT ( 2 ) , 9 , 2 )
02580 LET LIN_T := LIN_T + 1
02590 ELSE
02600 EXEC NYSIDE
02610 ENDIF
02550 IF OT ( 1 ) > 0 OR TOT ( 2 ) > 0 THEN
02560 PRINT "<S>--------------------------------------"
02570 PRINT "---------------------------------------"
02520 PRINT TAB ( 18 ) ; "TRANSPORT" ; TAB ( 54 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 67 ) ;
02530 PRINT CHR$ ( TOT ( 2 ) , 9 , 2 )
02540 LET LIN_T := LIN_T + 2
02550 EXEC NYSIDE
02560 PRINT TAB ( 18 ) ; "TRANSPORT" ; TAB ( 54 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 67 ) ;
02570 PRINT CHR$ ( TOT ( 2 ) , 9 , 2 )
02580 LET LIN_T := LIN_T + 1
02590 ELSE
02600 EXEC NYSIDE
02590 ENDIF
02610 ENDPROC SIDESKIFT
02620 PROC NYSIDE
02630 IF UT_WAY $ = "P" THEN
02640 FOR I := LIN_T TO AX_LIN DO PRINT
02650 ELSE
02660 INPUT "<SC5523>N{ste…side…-…tryk…RETURN" : SVAR $
02670 CLEAR
02680 ENDIF
02690 LET LIN_T := 9 ; SIDENR := SIDENR + 1
02710 PRINT "***…" ; SYST_NAVN $ ; "…***" ; TAB ( 42 ) ;
02700 PRINT "***…" ; SYST_NAVN $ ; "…***" ; TAB ( 41 ) ;
02710 PRINT "***…UDSKREVET…PR.…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ;
02720 PRINT SYST_DAT $ ( 5 : 2 ) ; "…***…SIDE:…" ; SIDENR
02730 PRINT
02740 PRINT "Firmanavn:…" ; FIRMANAVN $ ; TAB ( 54 ) ; "**…KONTOKORT…**"
02750 PRINT
02760 PRINT "**…KONTONR:…" ; KTONR $ ; TAB ( 25 ) ; "KONTONAVN:…" ; KTO_NAVN $ ; TAB ( 77 ) ; "**"
02770 PRINT "<S>--------------------------------------"
02780 PRINT "----------------------------------------"
02790 PRINT "<S>……DATO…………BILAG……TEKST" ; TAB ( 47 ) ; "DEBETBEL\B……KREDITBEL\B"
02800 PRINT "…………SALDO"
02810 PRINT "<S>---------------------------------------"
02820 PRINT "---------------------------------------"
02830 ENDPROC NYSIDE
02840
02850 PROC SKRIV_LIN ( Q_D $ , Q_B $ , Q_T $ , Q_M , Q_K , Q_DK )
02870 IF LIN_T + 6 > MAX_LIN THEN EXEC SIDESKIFT
02870 LET LIN_T := LIN_T + 1
02880 PRINT Q_D $ ( 1 : 2 ) ; "." ; Q_D $ ( 3 : 2 ) ; "." ; Q_D $ ( 5 : 2 ) ; TAB ( 11 ) ;
02890 PRINT Q_B $ ; TAB ( 11 ) ; Q_B $ ; TAB ( 18 ) ; Q_T $ ; TAB ( 41 ) ;
02900 IF Q_M > 0 THEN PRINT CHR$ ( Q_M , 9 , 2 ) ;
02910 IF _DK = DEBET THEN
02920 PRINT TAB ( 42 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ;
02930 LET TOT ( 1 ) := TOT ( 1 ) + Q_K
02940 ELSE
02950 PRINT TAB ( 55 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ;
02960 LET TOT ( 2 ) := TOT ( 2 ) + Q_K
02970 ENDIF
02980 PRINT CHR$ ( ABS ( SUM ) , 9 , 2 ) ;
02990 PRINT
03000 ENDPROC SKRIV_LIN
03010
03020 PROC AFSLUT
03030 FOR I := LIN_T TO AX_LIN - 6 DO PRINT
03040 LET LIN_T := MAX_LIN - 5
03050 PRINT "<S>---------------------------------------"
03060 PRINT "---------------------------------------"
03070 PRINT TAB ( 42 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 55 ) ; CHR$ ( TOT ( 2 ) , 9 , 2 )
03080 PRINT TAB ( 18 ) ; "NY…SALDO…………" ;
03090 IF OT ( 1 ) - TOT ( 2 ) > 0 THEN
03100 PRINT TAB ( 55 ) ; CHR$ ( TOT ( 1 ) - TOT ( 2 ) , 9 , 2 )
03110 LET TOT ( 2 ) := TOT ( 1 )
03120 ELSE
03130 PRINT TAB ( 42 ) ; CHR$ ( TOT ( 2 ) - TOT ( 1 ) , 9 , 2 )
03140 LET TOT ( 1 ) := TOT ( 2 )
03150 ENDIF
03160 PRINT TAB ( 18 ) ; "BALANCE" ; TAB ( 42 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; "…" ; CHR$ ( TOT ( 1 ) , 9 , 2 )
03070 IF UT_WAY $ = "P" THEN
03080 PRINT
03100 PRINT
03110 ENDIF
03120 ENDPROC AFSLUT
03130 PROC FIND_KTO ( REF R_KTONR $ )
03140 LET OK := FALSE
03150 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
03160 LET LOW := 1 ; HIGH := I_H\JREC ; POS := 2
03170 IF IGH > 1 THEN
03180 REPEAT
03190 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
03200 GET KTOIDX $ , POS : KTONR $ , RECNR
03260 IF TONR $ > R_KTONR $ THEN
12594 38 ╱00╱ ╱00╱ ╱06╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ …… ╱00╱ ╱00╱ ╱05╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ODLAS…LEMMAG ╱00╱ ╱00╱ ╱14╱ ╱00╱ trokotnok…fa…gninvirksdU ╱00╱ ╱00╱ ╱18╱ ╱00╱ d ENDFILE NEXT ╱08╱ EXEC PRINTRES ( "papir" , 16 )
02600 EXEC NYSIDE
02580 LET LIN_T := LIN_T + 1
03040 LET LIN_T := MAX_LIN - 3
24944 p ╱00╱ ╱00╱ ╱05╱ ╱00╱ ╱0c╱ ╱d1╱ DATA 1 , LINE
03480 PRINT "<Z>"
02080 LET PNUMMER := 0
02585 LET PNUMMER := PNUMMER + 1
02635 LET PNUMMER := PNUMMER + 1
02860 IF LIN_T + 8 > MAX_LIN THEN EXEC SIDESKIFT
03030 FOR I := LIN_T TO AX_LIN - 4 DO PRINT
03090 PRINT
02981 IF UM > 0 THEN
02982 PRINT "…K" ;
02983 ELSE
02984 PRINT "…D" ;
02985 ENDIF
24944 p ╱00╱ ╱00╱ ╱05╱ ╱00╱ 922138 ╱00╱ ╱00╱ ╱06╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ …… ╱00╱ ╱00╱ ╱05╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ODLAS…LEMMAG ╱00╱ ╱00╱ ╱14╱ ╱00╱ ╱1b╱ TAB OUTPUT ╱0b╱ IF UM < 0 THEN
02982 PRINT "K" ;
02983 ELSE
02984 PRINT "D" ;
02985 ENDIF
12594 38 ╱00╱ ╱00╱ ╱06╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ …… ╱00╱ ╱00╱ ╱05╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ODLAS…LEMMAG ╱00╱ ╱00╱ ╱14╱ ╱00╱ READ TAB END ╱0a╱ PRINT "***…" ; SYST_NAVN $ ; "…***" ; TAB ( 41 ) ;
02710 PRINT "***…UDSKREVET…PR.…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ;
02700 PRINT "***…" ; SYST_NAVN $ ; "…***" ; TAB ( 39 ) ;
02700 PRINT "***…" ; SYST_NAVN $ ; "…***" ; TAB ( 39 ) ;
02710 PRINT "***…UDSKREVET…PR.…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ;
02720 PRINT SYST_DAT $ ( 5 : 2 ) ; "…***…SIDE:…" ; SIDENR
02730 PRINT
02740 PRINT "Firmanavn:…" ; FIRMANAVN $ ; TAB ( 52 ) ; "**…KONTOKORT…**"
02750 PRINT
02760 PRINT "**…KONTONR:…" ; KTONR $ ; TAB ( 25 ) ; "KONTONAVN:…" ; KTO_NAVN $ ; TAB ( 75 ) ; "**"
02770 PRINT "<S>--------------------------------------"
02780 PRINT "--------------------------------------"
02790 PRINT "<S>……DATO…………BILAG……TEKST" ; TAB ( 45 ) ; "DEBETBEL\B……KREDITBEL\B"
02800 PRINT "…………SALDO"
02810 PRINT "<S>-------------------------------------"
02820 PRINT "---------------------------------------"
02830 ENDPROC NYSIDE
02840
02850 PROC SKRIV_LIN ( Q_D $ , Q_B $ , Q_T $ , Q_M , Q_K , Q_DK )
02860 IF LIN_T + 8 > MAX_LIN THEN EXEC SIDESKIFT
02870 LET LIN_T := LIN_T + 1
02880 PRINT Q_D $ ( 1 : 2 ) ; "." ; Q_D $ ( 3 : 2 ) ; "." ; Q_D $ ( 5 : 2 ) ; TAB ( 11 ) ;
02890 PRINT Q_B $ ; TAB ( 11 ) ; Q_B $ ; TAB ( 18 ) ; Q_T $ ; TAB ( 39 ) ;
02900 IF Q_M > 0 THEN PRINT CHR$ ( Q_M , 9 , 2 ) ;
02910 IF _DK = DEBET THEN
02920 PRINT TAB ( 42 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ;
02930 LET TOT ( 1 ) := TOT ( 1 ) + Q_K
02940 ELSE
02950 PRINT TAB ( 55 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ;
02960 LET TOT ( 2 ) := TOT ( 2 ) + Q_K
02970 ENDIF
02980 PRINT CHR$ ( ABS ( SUM ) , 9 , 2 ) ;
02981 IF UM < 0 THEN
02982 PRINT "…K" ;
03010 ELSE
03020 PRINT "…D" ;
03030 ENDIF
03040 PRINT
03050 ENDPROC SKRIV_LIN
03060
03070 PROC AFSLUT
03080 FOR I := LIN_T TO AX_LIN - 4 DO PRINT
03090 LET LIN_T := MAX_LIN - 3
03100 PRINT "<S>-------------------------------------"
03110 PRINT "---------------------------------------"
03120 IF UT_WAY $ = "P" THEN
03130 PRINT
03140 PRINT
03150 PRINT
03160 ENDIF
03170 ENDPROC AFSLUT
03180 PROC FIND_KTO ( REF R_KTONR $ )
03190 LET OK := FALSE
03200 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
03210 LET LOW := 1 ; HIGH := I_H\JREC ; POS := 2
03220 IF IGH > 1 THEN
03230 REPEAT
03240 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
03250 GET KTOIDX $ , POS : KTONR $ , RECNR
12594 38 ╱00╱ ╱00╱ ╱06╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ …… ╱00╱ ╱00╱ ╱05╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ODLAS…LEMMAG ╱00╱ ╱00╱ ╱14╱ ╱00╱ m AND h ╱0b╱ PRINT TAB ( 40 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 65 ) ;
02930 LET TOT ( 1 ) := TOT ( 1 ) + Q_K
02940 ELSE
02950 PRINT TAB ( 53 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 65 ) ;
02960 LET TOT ( 2 ) := TOT ( 2 ) + Q_K
02970 ENDIF
02980 PRINT CHR$ ( ABS ( SUM ) , 9 , 2 ) ;
02990 IF UM < 0 THEN
03000 PRINT "…K" ;
24944 p ╱00╱ ╱00╱ ╱05╱ ╱00╱ 922138 ╱00╱ ╱00╱ ╱06╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ …… ╱00╱ ╱00╱ ╱05╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ODLAS…LEMMAG ╱00╱ ╱00╱ ╱14╱ ╱00╱ V DIV ╱c7╱ ╱0b╱ IF UM > 0 THEN
03020 IF SUM > 0 THEN PRINT "…D" ;
38382 ╱00╱ ╱00╱
0x0000…0038 (0,) 9626 00100 // **************************************************
0x0000…0038 LineComal80 {
0x0000…0038 ptr = 0x9626 // 0x0 @0x0
0x0000…0038 lno = 0x0064 // 0x2 @0x2
0x0000…0038 at0004 = ╱89╱ // ╱ // 0x4 @0x4
0x0000…0038 at0005 = ╱2a╱*╱ // 0x5 @0x5
0x0000…0038 at0006 = ╱2a╱*╱ // 0x6 @0x6
0x0000…0038 at0007 = ╱2a╱*╱ // 0x7 @0x7
0x0000…0038 at0008 = ╱2a╱*╱ // 0x8 @0x8
0x0000…0038 at0009 = ╱2a╱*╱ // 0x9 @0x9
0x0000…0038 at000a = ╱2a╱*╱ // 0xa @0xa
0x0000…0038 at000b = ╱2a╱*╱ // 0xb @0xb
0x0000…0038 at000c = ╱2a╱*╱ // 0xc @0xc
0x0000…0038 at000d = ╱2a╱*╱ // 0xd @0xd
0x0000…0038 at000e = ╱2a╱*╱ // 0xe @0xe
0x0000…0038 at000f = ╱2a╱*╱ // 0xf @0xf
0x0000…0038 at0010 = ╱2a╱*╱ // 0x10 @0x10
0x0000…0038 at0011 = ╱2a╱*╱ // 0x11 @0x11
0x0000…0038 at0012 = ╱2a╱*╱ // 0x12 @0x12
0x0000…0038 at0013 = ╱2a╱*╱ // 0x13 @0x13
0x0000…0038 at0014 = ╱2a╱*╱ // 0x14 @0x14
0x0000…0038 at0015 = ╱2a╱*╱ // 0x15 @0x15
0x0000…0038 at0016 = ╱2a╱*╱ // 0x16 @0x16
0x0000…0038 at0017 = ╱2a╱*╱ // 0x17 @0x17
0x0000…0038 at0018 = ╱2a╱*╱ // 0x18 @0x18
0x0000…0038 at0019 = ╱2a╱*╱ // 0x19 @0x19
0x0000…0038 at001a = ╱2a╱*╱ // 0x1a @0x1a
0x0000…0038 at001b = ╱2a╱*╱ // 0x1b @0x1b
0x0000…0038 at001c = ╱2a╱*╱ // 0x1c @0x1c
0x0000…0038 at001d = ╱2a╱*╱ // 0x1d @0x1d
0x0000…0038 at001e = ╱2a╱*╱ // 0x1e @0x1e
0x0000…0038 at001f = ╱2a╱*╱ // 0x1f @0x1f
0x0000…0038 at0020 = ╱2a╱*╱ // 0x20 @0x20
0x0000…0038 at0021 = ╱2a╱*╱ // 0x21 @0x21
0x0000…0038 at0022 = ╱2a╱*╱ // 0x22 @0x22
0x0000…0038 at0023 = ╱2a╱*╱ // 0x23 @0x23
0x0000…0038 at0024 = ╱2a╱*╱ // 0x24 @0x24
0x0000…0038 at0025 = ╱2a╱*╱ // 0x25 @0x25
0x0000…0038 at0026 = ╱2a╱*╱ // 0x26 @0x26
0x0000…0038 at0027 = ╱2a╱*╱ // 0x27 @0x27
0x0000…0038 at0028 = ╱2a╱*╱ // 0x28 @0x28
0x0000…0038 at0029 = ╱2a╱*╱ // 0x29 @0x29
0x0000…0038 at002a = ╱2a╱*╱ // 0x2a @0x2a
0x0000…0038 at002b = ╱2a╱*╱ // 0x2b @0x2b
0x0000…0038 at002c = ╱2a╱*╱ // 0x2c @0x2c
0x0000…0038 at002d = ╱2a╱*╱ // 0x2d @0x2d
0x0000…0038 at002e = ╱2a╱*╱ // 0x2e @0x2e
0x0000…0038 at002f = ╱2a╱*╱ // 0x2f @0x2f
0x0000…0038 at0030 = ╱2a╱*╱ // 0x30 @0x30
0x0000…0038 at0031 = ╱2a╱*╱ // 0x31 @0x31
0x0000…0038 at0032 = ╱2a╱*╱ // 0x32 @0x32
0x0000…0038 at0033 = ╱2a╱*╱ // 0x33 @0x33
0x0000…0038 at0034 = ╱2a╱*╱ // 0x34 @0x34
0x0000…0038 at0035 = ╱2a╱*╱ // 0x35 @0x35
0x0000…0038 at0036 = ╱2a╱*╱ // 0x36 @0x36
0x0000…0038 at0037 = EOL // 0x37 @0x37
0x0000…0038 }
0x0038…0070 965e 00110 // *………………………………………………………………………………………………………………………………*
0x0038…0070 LineComal80 {
0x0038…0070 ptr = 0x965e // 0x38 @0x0
0x0038…0070 lno = 0x006e // 0x3a @0x2
0x0038…0070 at0004 = ╱89╱ // ╱ // 0x3c @0x4
0x0038…0070 at0005 = ╱2a╱*╱ // 0x3d @0x5
0x0038…0070 at0006 = ╱20╱…╱ // 0x3e @0x6
0x0038…0070 at0007 = ╱20╱…╱ // 0x3f @0x7
0x0038…0070 at0008 = ╱20╱…╱ // 0x40 @0x8
0x0038…0070 at0009 = ╱20╱…╱ // 0x41 @0x9
0x0038…0070 at000a = ╱20╱…╱ // 0x42 @0xa
0x0038…0070 at000b = ╱20╱…╱ // 0x43 @0xb
0x0038…0070 at000c = ╱20╱…╱ // 0x44 @0xc
0x0038…0070 at000d = ╱20╱…╱ // 0x45 @0xd
0x0038…0070 at000e = ╱20╱…╱ // 0x46 @0xe
0x0038…0070 at000f = ╱20╱…╱ // 0x47 @0xf
0x0038…0070 at0010 = ╱20╱…╱ // 0x48 @0x10
0x0038…0070 at0011 = ╱20╱…╱ // 0x49 @0x11
0x0038…0070 at0012 = ╱20╱…╱ // 0x4a @0x12
0x0038…0070 at0013 = ╱20╱…╱ // 0x4b @0x13
0x0038…0070 at0014 = ╱20╱…╱ // 0x4c @0x14
0x0038…0070 at0015 = ╱20╱…╱ // 0x4d @0x15
0x0038…0070 at0016 = ╱20╱…╱ // 0x4e @0x16
0x0038…0070 at0017 = ╱20╱…╱ // 0x4f @0x17
0x0038…0070 at0018 = ╱20╱…╱ // 0x50 @0x18
0x0038…0070 at0019 = ╱20╱…╱ // 0x51 @0x19
0x0038…0070 at001a = ╱20╱…╱ // 0x52 @0x1a
0x0038…0070 at001b = ╱20╱…╱ // 0x53 @0x1b
0x0038…0070 at001c = ╱20╱…╱ // 0x54 @0x1c
0x0038…0070 at001d = ╱20╱…╱ // 0x55 @0x1d
0x0038…0070 at001e = ╱20╱…╱ // 0x56 @0x1e
0x0038…0070 at001f = ╱20╱…╱ // 0x57 @0x1f
0x0038…0070 at0020 = ╱20╱…╱ // 0x58 @0x20
0x0038…0070 at0021 = ╱20╱…╱ // 0x59 @0x21
0x0038…0070 at0022 = ╱20╱…╱ // 0x5a @0x22
0x0038…0070 at0023 = ╱20╱…╱ // 0x5b @0x23
0x0038…0070 at0024 = ╱20╱…╱ // 0x5c @0x24
0x0038…0070 at0025 = ╱20╱…╱ // 0x5d @0x25
0x0038…0070 at0026 = ╱20╱…╱ // 0x5e @0x26
0x0038…0070 at0027 = ╱20╱…╱ // 0x5f @0x27
0x0038…0070 at0028 = ╱20╱…╱ // 0x60 @0x28
0x0038…0070 at0029 = ╱20╱…╱ // 0x61 @0x29
0x0038…0070 at002a = ╱20╱…╱ // 0x62 @0x2a
0x0038…0070 at002b = ╱20╱…╱ // 0x63 @0x2b
0x0038…0070 at002c = ╱20╱…╱ // 0x64 @0x2c
0x0038…0070 at002d = ╱20╱…╱ // 0x65 @0x2d
0x0038…0070 at002e = ╱20╱…╱ // 0x66 @0x2e
0x0038…0070 at002f = ╱20╱…╱ // 0x67 @0x2f
0x0038…0070 at0030 = ╱20╱…╱ // 0x68 @0x30
0x0038…0070 at0031 = ╱20╱…╱ // 0x69 @0x31
0x0038…0070 at0032 = ╱20╱…╱ // 0x6a @0x32
0x0038…0070 at0033 = ╱20╱…╱ // 0x6b @0x33
0x0038…0070 at0034 = ╱20╱…╱ // 0x6c @0x34
0x0038…0070 at0035 = ╱20╱…╱ // 0x6d @0x35
0x0038…0070 at0036 = ╱2a╱*╱ // 0x6e @0x36
0x0038…0070 at0037 = EOL // 0x6f @0x37
0x0038…0070 }
0x0070…00a8 9696 00120 // *…………………………Bogf|ringssystemet…'SYS-KAS'…………………………*
0x0070…00a8 LineComal80 {
0x0070…00a8 ptr = 0x9696 // 0x70 @0x0
0x0070…00a8 lno = 0x0078 // 0x72 @0x2
0x0070…00a8 at0004 = ╱89╱ // ╱ // 0x74 @0x4
0x0070…00a8 at0005 = ╱2a╱*╱ // 0x75 @0x5
0x0070…00a8 at0006 = ╱20╱…╱ // 0x76 @0x6
0x0070…00a8 at0007 = ╱20╱…╱ // 0x77 @0x7
0x0070…00a8 at0008 = ╱20╱…╱ // 0x78 @0x8
0x0070…00a8 at0009 = ╱20╱…╱ // 0x79 @0x9
0x0070…00a8 at000a = ╱20╱…╱ // 0x7a @0xa
0x0070…00a8 at000b = ╱20╱…╱ // 0x7b @0xb
0x0070…00a8 at000c = ╱20╱…╱ // 0x7c @0xc
0x0070…00a8 at000d = ╱20╱…╱ // 0x7d @0xd
0x0070…00a8 at000e = ╱20╱…╱ // 0x7e @0xe
0x0070…00a8 at000f = ╱20╱…╱ // 0x7f @0xf
0x0070…00a8 at0010 = ╱42╱B╱ // 0x80 @0x10
0x0070…00a8 at0011 = ╱6f╱o╱ // 0x81 @0x11
0x0070…00a8 at0012 = ╱67╱g╱ // 0x82 @0x12
0x0070…00a8 at0013 = ╱66╱f╱ // 0x83 @0x13
0x0070…00a8 at0014 = ╱7c╱|╱ // 0x84 @0x14
0x0070…00a8 at0015 = ╱72╱r╱ // 0x85 @0x15
0x0070…00a8 at0016 = ╱69╱i╱ // 0x86 @0x16
0x0070…00a8 at0017 = ╱6e╱n╱ // 0x87 @0x17
0x0070…00a8 at0018 = ╱67╱g╱ // 0x88 @0x18
0x0070…00a8 at0019 = ╱73╱s╱ // 0x89 @0x19
0x0070…00a8 at001a = ╱73╱s╱ // 0x8a @0x1a
0x0070…00a8 at001b = ╱79╱y╱ // 0x8b @0x1b
0x0070…00a8 at001c = ╱73╱s╱ // 0x8c @0x1c
0x0070…00a8 at001d = ╱74╱t╱ // 0x8d @0x1d
0x0070…00a8 at001e = ╱65╱e╱ // 0x8e @0x1e
0x0070…00a8 at001f = ╱6d╱m╱ // 0x8f @0x1f
0x0070…00a8 at0020 = ╱65╱e╱ // 0x90 @0x20
0x0070…00a8 at0021 = ╱74╱t╱ // 0x91 @0x21
0x0070…00a8 at0022 = ╱20╱…╱ // 0x92 @0x22
0x0070…00a8 at0023 = ╱27╱'╱ // 0x93 @0x23
0x0070…00a8 at0024 = ╱53╱S╱ // 0x94 @0x24
0x0070…00a8 at0025 = ╱59╱Y╱ // 0x95 @0x25
0x0070…00a8 at0026 = ╱53╱S╱ // 0x96 @0x26
0x0070…00a8 at0027 = ╱2d╱-╱ // 0x97 @0x27
0x0070…00a8 at0028 = ╱4b╱K╱ // 0x98 @0x28
0x0070…00a8 at0029 = ╱41╱A╱ // 0x99 @0x29
0x0070…00a8 at002a = ╱53╱S╱ // 0x9a @0x2a
0x0070…00a8 at002b = ╱27╱'╱ // 0x9b @0x2b
0x0070…00a8 at002c = ╱20╱…╱ // 0x9c @0x2c
0x0070…00a8 at002d = ╱20╱…╱ // 0x9d @0x2d
0x0070…00a8 at002e = ╱20╱…╱ // 0x9e @0x2e
0x0070…00a8 at002f = ╱20╱…╱ // 0x9f @0x2f
0x0070…00a8 at0030 = ╱20╱…╱ // 0xa0 @0x30
0x0070…00a8 at0031 = ╱20╱…╱ // 0xa1 @0x31
0x0070…00a8 at0032 = ╱20╱…╱ // 0xa2 @0x32
0x0070…00a8 at0033 = ╱20╱…╱ // 0xa3 @0x33
0x0070…00a8 at0034 = ╱20╱…╱ // 0xa4 @0x34
0x0070…00a8 at0035 = ╱20╱…╱ // 0xa5 @0x35
0x0070…00a8 at0036 = ╱2a╱*╱ // 0xa6 @0x36
0x0070…00a8 at0037 = EOL // 0xa7 @0x37
0x0070…00a8 }
0x00a8…00e0 96ce 00130 // *………………………………………………vers.…1.0………………………………………………………*
0x00a8…00e0 LineComal80 {
0x00a8…00e0 ptr = 0x96ce // 0xa8 @0x0
0x00a8…00e0 lno = 0x0082 // 0xaa @0x2
0x00a8…00e0 at0004 = ╱89╱ // ╱ // 0xac @0x4
0x00a8…00e0 at0005 = ╱2a╱*╱ // 0xad @0x5
0x00a8…00e0 at0006 = ╱20╱…╱ // 0xae @0x6
0x00a8…00e0 at0007 = ╱20╱…╱ // 0xaf @0x7
0x00a8…00e0 at0008 = ╱20╱…╱ // 0xb0 @0x8
0x00a8…00e0 at0009 = ╱20╱…╱ // 0xb1 @0x9
0x00a8…00e0 at000a = ╱20╱…╱ // 0xb2 @0xa
0x00a8…00e0 at000b = ╱20╱…╱ // 0xb3 @0xb
0x00a8…00e0 at000c = ╱20╱…╱ // 0xb4 @0xc
0x00a8…00e0 at000d = ╱20╱…╱ // 0xb5 @0xd
0x00a8…00e0 at000e = ╱20╱…╱ // 0xb6 @0xe
0x00a8…00e0 at000f = ╱20╱…╱ // 0xb7 @0xf
0x00a8…00e0 at0010 = ╱20╱…╱ // 0xb8 @0x10
0x00a8…00e0 at0011 = ╱20╱…╱ // 0xb9 @0x11
0x00a8…00e0 at0012 = ╱20╱…╱ // 0xba @0x12
0x00a8…00e0 at0013 = ╱20╱…╱ // 0xbb @0x13
0x00a8…00e0 at0014 = ╱20╱…╱ // 0xbc @0x14
0x00a8…00e0 at0015 = ╱20╱…╱ // 0xbd @0x15
0x00a8…00e0 at0016 = ╱20╱…╱ // 0xbe @0x16
0x00a8…00e0 at0017 = ╱20╱…╱ // 0xbf @0x17
0x00a8…00e0 at0018 = ╱76╱v╱ // 0xc0 @0x18
0x00a8…00e0 at0019 = ╱65╱e╱ // 0xc1 @0x19
0x00a8…00e0 at001a = ╱72╱r╱ // 0xc2 @0x1a
0x00a8…00e0 at001b = ╱73╱s╱ // 0xc3 @0x1b
0x00a8…00e0 at001c = ╱2e╱.╱ // 0xc4 @0x1c
0x00a8…00e0 at001d = ╱20╱…╱ // 0xc5 @0x1d
0x00a8…00e0 at001e = ╱31╱1╱ // 0xc6 @0x1e
0x00a8…00e0 at001f = ╱2e╱.╱ // 0xc7 @0x1f
0x00a8…00e0 at0020 = ╱30╱0╱ // 0xc8 @0x20
0x00a8…00e0 at0021 = ╱20╱…╱ // 0xc9 @0x21
0x00a8…00e0 at0022 = ╱20╱…╱ // 0xca @0x22
0x00a8…00e0 at0023 = ╱20╱…╱ // 0xcb @0x23
0x00a8…00e0 at0024 = ╱20╱…╱ // 0xcc @0x24
0x00a8…00e0 at0025 = ╱20╱…╱ // 0xcd @0x25
0x00a8…00e0 at0026 = ╱20╱…╱ // 0xce @0x26
0x00a8…00e0 at0027 = ╱20╱…╱ // 0xcf @0x27
0x00a8…00e0 at0028 = ╱20╱…╱ // 0xd0 @0x28
0x00a8…00e0 at0029 = ╱20╱…╱ // 0xd1 @0x29
0x00a8…00e0 at002a = ╱20╱…╱ // 0xd2 @0x2a
0x00a8…00e0 at002b = ╱20╱…╱ // 0xd3 @0x2b
0x00a8…00e0 at002c = ╱20╱…╱ // 0xd4 @0x2c
0x00a8…00e0 at002d = ╱20╱…╱ // 0xd5 @0x2d
0x00a8…00e0 at002e = ╱20╱…╱ // 0xd6 @0x2e
0x00a8…00e0 at002f = ╱20╱…╱ // 0xd7 @0x2f
0x00a8…00e0 at0030 = ╱20╱…╱ // 0xd8 @0x30
0x00a8…00e0 at0031 = ╱20╱…╱ // 0xd9 @0x31
0x00a8…00e0 at0032 = ╱20╱…╱ // 0xda @0x32
0x00a8…00e0 at0033 = ╱20╱…╱ // 0xdb @0x33
0x00a8…00e0 at0034 = ╱20╱…╱ // 0xdc @0x34
0x00a8…00e0 at0035 = ╱20╱…╱ // 0xdd @0x35
0x00a8…00e0 at0036 = ╱2a╱*╱ // 0xde @0x36
0x00a8…00e0 at0037 = EOL // 0xdf @0x37
0x00a8…00e0 }
0x00e0…0118 9706 00140 // *………………………………………………………………………………………………………………………………*
0x00e0…0118 LineComal80 {
0x00e0…0118 ptr = 0x9706 // 0xe0 @0x0
0x00e0…0118 lno = 0x008c // 0xe2 @0x2
0x00e0…0118 at0004 = ╱89╱ // ╱ // 0xe4 @0x4
0x00e0…0118 at0005 = ╱2a╱*╱ // 0xe5 @0x5
0x00e0…0118 at0006 = ╱20╱…╱ // 0xe6 @0x6
0x00e0…0118 at0007 = ╱20╱…╱ // 0xe7 @0x7
0x00e0…0118 at0008 = ╱20╱…╱ // 0xe8 @0x8
0x00e0…0118 at0009 = ╱20╱…╱ // 0xe9 @0x9
0x00e0…0118 at000a = ╱20╱…╱ // 0xea @0xa
0x00e0…0118 at000b = ╱20╱…╱ // 0xeb @0xb
0x00e0…0118 at000c = ╱20╱…╱ // 0xec @0xc
0x00e0…0118 at000d = ╱20╱…╱ // 0xed @0xd
0x00e0…0118 at000e = ╱20╱…╱ // 0xee @0xe
0x00e0…0118 at000f = ╱20╱…╱ // 0xef @0xf
0x00e0…0118 at0010 = ╱20╱…╱ // 0xf0 @0x10
0x00e0…0118 at0011 = ╱20╱…╱ // 0xf1 @0x11
0x00e0…0118 at0012 = ╱20╱…╱ // 0xf2 @0x12
0x00e0…0118 at0013 = ╱20╱…╱ // 0xf3 @0x13
0x00e0…0118 at0014 = ╱20╱…╱ // 0xf4 @0x14
0x00e0…0118 at0015 = ╱20╱…╱ // 0xf5 @0x15
0x00e0…0118 at0016 = ╱20╱…╱ // 0xf6 @0x16
0x00e0…0118 at0017 = ╱20╱…╱ // 0xf7 @0x17
0x00e0…0118 at0018 = ╱20╱…╱ // 0xf8 @0x18
0x00e0…0118 at0019 = ╱20╱…╱ // 0xf9 @0x19
0x00e0…0118 at001a = ╱20╱…╱ // 0xfa @0x1a
0x00e0…0118 at001b = ╱20╱…╱ // 0xfb @0x1b
0x00e0…0118 at001c = ╱20╱…╱ // 0xfc @0x1c
0x00e0…0118 at001d = ╱20╱…╱ // 0xfd @0x1d
0x00e0…0118 at001e = ╱20╱…╱ // 0xfe @0x1e
0x00e0…0118 at001f = ╱20╱…╱ // 0xff @0x1f
0x00e0…0118 at0020 = ╱20╱…╱ // 0x100 @0x20
0x00e0…0118 at0021 = ╱20╱…╱ // 0x101 @0x21
0x00e0…0118 at0022 = ╱20╱…╱ // 0x102 @0x22
0x00e0…0118 at0023 = ╱20╱…╱ // 0x103 @0x23
0x00e0…0118 at0024 = ╱20╱…╱ // 0x104 @0x24
0x00e0…0118 at0025 = ╱20╱…╱ // 0x105 @0x25
0x00e0…0118 at0026 = ╱20╱…╱ // 0x106 @0x26
0x00e0…0118 at0027 = ╱20╱…╱ // 0x107 @0x27
0x00e0…0118 at0028 = ╱20╱…╱ // 0x108 @0x28
0x00e0…0118 at0029 = ╱20╱…╱ // 0x109 @0x29
0x00e0…0118 at002a = ╱20╱…╱ // 0x10a @0x2a
0x00e0…0118 at002b = ╱20╱…╱ // 0x10b @0x2b
0x00e0…0118 at002c = ╱20╱…╱ // 0x10c @0x2c
0x00e0…0118 at002d = ╱20╱…╱ // 0x10d @0x2d
0x00e0…0118 at002e = ╱20╱…╱ // 0x10e @0x2e
0x00e0…0118 at002f = ╱20╱…╱ // 0x10f @0x2f
0x00e0…0118 at0030 = ╱20╱…╱ // 0x110 @0x30
0x00e0…0118 at0031 = ╱20╱…╱ // 0x111 @0x31
0x00e0…0118 at0032 = ╱20╱…╱ // 0x112 @0x32
0x00e0…0118 at0033 = ╱20╱…╱ // 0x113 @0x33
0x00e0…0118 at0034 = ╱20╱…╱ // 0x114 @0x34
0x00e0…0118 at0035 = ╱20╱…╱ // 0x115 @0x35
0x00e0…0118 at0036 = ╱2a╱*╱ // 0x116 @0x36
0x00e0…0118 at0037 = EOL // 0x117 @0x37
0x00e0…0118 }
0x0118…0150 973e 00150 // *…Udviklet…marts…1983…p}…en…'SPC/1'…mikrodatamat…*
0x0118…0150 LineComal80 {
0x0118…0150 ptr = 0x973e // 0x118 @0x0
0x0118…0150 lno = 0x0096 // 0x11a @0x2
0x0118…0150 at0004 = ╱89╱ // ╱ // 0x11c @0x4
0x0118…0150 at0005 = ╱2a╱*╱ // 0x11d @0x5
0x0118…0150 at0006 = ╱20╱…╱ // 0x11e @0x6
0x0118…0150 at0007 = ╱55╱U╱ // 0x11f @0x7
0x0118…0150 at0008 = ╱64╱d╱ // 0x120 @0x8
0x0118…0150 at0009 = ╱76╱v╱ // 0x121 @0x9
0x0118…0150 at000a = ╱69╱i╱ // 0x122 @0xa
0x0118…0150 at000b = ╱6b╱k╱ // 0x123 @0xb
0x0118…0150 at000c = ╱6c╱l╱ // 0x124 @0xc
0x0118…0150 at000d = ╱65╱e╱ // 0x125 @0xd
0x0118…0150 at000e = ╱74╱t╱ // 0x126 @0xe
0x0118…0150 at000f = ╱20╱…╱ // 0x127 @0xf
0x0118…0150 at0010 = ╱6d╱m╱ // 0x128 @0x10
0x0118…0150 at0011 = ╱61╱a╱ // 0x129 @0x11
0x0118…0150 at0012 = ╱72╱r╱ // 0x12a @0x12
0x0118…0150 at0013 = ╱74╱t╱ // 0x12b @0x13
0x0118…0150 at0014 = ╱73╱s╱ // 0x12c @0x14
0x0118…0150 at0015 = ╱20╱…╱ // 0x12d @0x15
0x0118…0150 at0016 = ╱31╱1╱ // 0x12e @0x16
0x0118…0150 at0017 = ╱39╱9╱ // 0x12f @0x17
0x0118…0150 at0018 = ╱38╱8╱ // 0x130 @0x18
0x0118…0150 at0019 = ╱33╱3╱ // 0x131 @0x19
0x0118…0150 at001a = ╱20╱…╱ // 0x132 @0x1a
0x0118…0150 at001b = ╱70╱p╱ // 0x133 @0x1b
0x0118…0150 at001c = ╱7d╱}╱ // 0x134 @0x1c
0x0118…0150 at001d = ╱20╱…╱ // 0x135 @0x1d
0x0118…0150 at001e = ╱65╱e╱ // 0x136 @0x1e
0x0118…0150 at001f = ╱6e╱n╱ // 0x137 @0x1f
0x0118…0150 at0020 = ╱20╱…╱ // 0x138 @0x20
0x0118…0150 at0021 = ╱27╱'╱ // 0x139 @0x21
0x0118…0150 at0022 = ╱53╱S╱ // 0x13a @0x22
0x0118…0150 at0023 = ╱50╱P╱ // 0x13b @0x23
0x0118…0150 at0024 = ╱43╱C╱ // 0x13c @0x24
0x0118…0150 at0025 = ╱2f╱/╱ // 0x13d @0x25
0x0118…0150 at0026 = ╱31╱1╱ // 0x13e @0x26
0x0118…0150 at0027 = ╱27╱'╱ // 0x13f @0x27
0x0118…0150 at0028 = ╱20╱…╱ // 0x140 @0x28
0x0118…0150 at0029 = ╱6d╱m╱ // 0x141 @0x29
0x0118…0150 at002a = ╱69╱i╱ // 0x142 @0x2a
0x0118…0150 at002b = ╱6b╱k╱ // 0x143 @0x2b
0x0118…0150 at002c = ╱72╱r╱ // 0x144 @0x2c
0x0118…0150 at002d = ╱6f╱o╱ // 0x145 @0x2d
0x0118…0150 at002e = ╱64╱d╱ // 0x146 @0x2e
0x0118…0150 at002f = ╱61╱a╱ // 0x147 @0x2f
0x0118…0150 at0030 = ╱74╱t╱ // 0x148 @0x30
0x0118…0150 at0031 = ╱61╱a╱ // 0x149 @0x31
0x0118…0150 at0032 = ╱6d╱m╱ // 0x14a @0x32
0x0118…0150 at0033 = ╱61╱a╱ // 0x14b @0x33
0x0118…0150 at0034 = ╱74╱t╱ // 0x14c @0x34
0x0118…0150 at0035 = ╱20╱…╱ // 0x14d @0x35
0x0118…0150 at0036 = ╱2a╱*╱ // 0x14e @0x36
0x0118…0150 at0037 = EOL // 0x14f @0x37
0x0118…0150 }
0x0150…0188 9776 00160 // *…Programsystemet…er…skrevet…i…COMAL80…vers.…1.2…*
0x0150…0188 LineComal80 {
0x0150…0188 ptr = 0x9776 // 0x150 @0x0
0x0150…0188 lno = 0x00a0 // 0x152 @0x2
0x0150…0188 at0004 = ╱89╱ // ╱ // 0x154 @0x4
0x0150…0188 at0005 = ╱2a╱*╱ // 0x155 @0x5
0x0150…0188 at0006 = ╱20╱…╱ // 0x156 @0x6
0x0150…0188 at0007 = ╱50╱P╱ // 0x157 @0x7
0x0150…0188 at0008 = ╱72╱r╱ // 0x158 @0x8
0x0150…0188 at0009 = ╱6f╱o╱ // 0x159 @0x9
0x0150…0188 at000a = ╱67╱g╱ // 0x15a @0xa
0x0150…0188 at000b = ╱72╱r╱ // 0x15b @0xb
0x0150…0188 at000c = ╱61╱a╱ // 0x15c @0xc
0x0150…0188 at000d = ╱6d╱m╱ // 0x15d @0xd
0x0150…0188 at000e = ╱73╱s╱ // 0x15e @0xe
0x0150…0188 at000f = ╱79╱y╱ // 0x15f @0xf
0x0150…0188 at0010 = ╱73╱s╱ // 0x160 @0x10
0x0150…0188 at0011 = ╱74╱t╱ // 0x161 @0x11
0x0150…0188 at0012 = ╱65╱e╱ // 0x162 @0x12
0x0150…0188 at0013 = ╱6d╱m╱ // 0x163 @0x13
0x0150…0188 at0014 = ╱65╱e╱ // 0x164 @0x14
0x0150…0188 at0015 = ╱74╱t╱ // 0x165 @0x15
0x0150…0188 at0016 = ╱20╱…╱ // 0x166 @0x16
0x0150…0188 at0017 = ╱65╱e╱ // 0x167 @0x17
0x0150…0188 at0018 = ╱72╱r╱ // 0x168 @0x18
0x0150…0188 at0019 = ╱20╱…╱ // 0x169 @0x19
0x0150…0188 at001a = ╱73╱s╱ // 0x16a @0x1a
0x0150…0188 at001b = ╱6b╱k╱ // 0x16b @0x1b
0x0150…0188 at001c = ╱72╱r╱ // 0x16c @0x1c
0x0150…0188 at001d = ╱65╱e╱ // 0x16d @0x1d
0x0150…0188 at001e = ╱76╱v╱ // 0x16e @0x1e
0x0150…0188 at001f = ╱65╱e╱ // 0x16f @0x1f
0x0150…0188 at0020 = ╱74╱t╱ // 0x170 @0x20
0x0150…0188 at0021 = ╱20╱…╱ // 0x171 @0x21
0x0150…0188 at0022 = ╱69╱i╱ // 0x172 @0x22
0x0150…0188 at0023 = ╱20╱…╱ // 0x173 @0x23
0x0150…0188 at0024 = ╱43╱C╱ // 0x174 @0x24
0x0150…0188 at0025 = ╱4f╱O╱ // 0x175 @0x25
0x0150…0188 at0026 = ╱4d╱M╱ // 0x176 @0x26
0x0150…0188 at0027 = ╱41╱A╱ // 0x177 @0x27
0x0150…0188 at0028 = ╱4c╱L╱ // 0x178 @0x28
0x0150…0188 at0029 = ╱38╱8╱ // 0x179 @0x29
0x0150…0188 at002a = ╱30╱0╱ // 0x17a @0x2a
0x0150…0188 at002b = ╱20╱…╱ // 0x17b @0x2b
0x0150…0188 at002c = ╱76╱v╱ // 0x17c @0x2c
0x0150…0188 at002d = ╱65╱e╱ // 0x17d @0x2d
0x0150…0188 at002e = ╱72╱r╱ // 0x17e @0x2e
0x0150…0188 at002f = ╱73╱s╱ // 0x17f @0x2f
0x0150…0188 at0030 = ╱2e╱.╱ // 0x180 @0x30
0x0150…0188 at0031 = ╱20╱…╱ // 0x181 @0x31
0x0150…0188 at0032 = ╱31╱1╱ // 0x182 @0x32
0x0150…0188 at0033 = ╱2e╱.╱ // 0x183 @0x33
0x0150…0188 at0034 = ╱32╱2╱ // 0x184 @0x34
0x0150…0188 at0035 = ╱20╱…╱ // 0x185 @0x35
0x0150…0188 at0036 = ╱2a╱*╱ // 0x186 @0x36
0x0150…0188 at0037 = EOL // 0x187 @0x37
0x0150…0188 }
0x0188…01c0 97ae 00170 // *………………………………………………………………………………………………………………………………*
0x0188…01c0 LineComal80 {
0x0188…01c0 ptr = 0x97ae // 0x188 @0x0
0x0188…01c0 lno = 0x00aa // 0x18a @0x2
0x0188…01c0 at0004 = ╱89╱ // ╱ // 0x18c @0x4
0x0188…01c0 at0005 = ╱2a╱*╱ // 0x18d @0x5
0x0188…01c0 at0006 = ╱20╱…╱ // 0x18e @0x6
0x0188…01c0 at0007 = ╱20╱…╱ // 0x18f @0x7
0x0188…01c0 at0008 = ╱20╱…╱ // 0x190 @0x8
0x0188…01c0 at0009 = ╱20╱…╱ // 0x191 @0x9
0x0188…01c0 at000a = ╱20╱…╱ // 0x192 @0xa
0x0188…01c0 at000b = ╱20╱…╱ // 0x193 @0xb
0x0188…01c0 at000c = ╱20╱…╱ // 0x194 @0xc
0x0188…01c0 at000d = ╱20╱…╱ // 0x195 @0xd
0x0188…01c0 at000e = ╱20╱…╱ // 0x196 @0xe
0x0188…01c0 at000f = ╱20╱…╱ // 0x197 @0xf
0x0188…01c0 at0010 = ╱20╱…╱ // 0x198 @0x10
0x0188…01c0 at0011 = ╱20╱…╱ // 0x199 @0x11
0x0188…01c0 at0012 = ╱20╱…╱ // 0x19a @0x12
0x0188…01c0 at0013 = ╱20╱…╱ // 0x19b @0x13
0x0188…01c0 at0014 = ╱20╱…╱ // 0x19c @0x14
0x0188…01c0 at0015 = ╱20╱…╱ // 0x19d @0x15
0x0188…01c0 at0016 = ╱20╱…╱ // 0x19e @0x16
0x0188…01c0 at0017 = ╱20╱…╱ // 0x19f @0x17
0x0188…01c0 at0018 = ╱20╱…╱ // 0x1a0 @0x18
0x0188…01c0 at0019 = ╱20╱…╱ // 0x1a1 @0x19
0x0188…01c0 at001a = ╱20╱…╱ // 0x1a2 @0x1a
0x0188…01c0 at001b = ╱20╱…╱ // 0x1a3 @0x1b
0x0188…01c0 at001c = ╱20╱…╱ // 0x1a4 @0x1c
0x0188…01c0 at001d = ╱20╱…╱ // 0x1a5 @0x1d
0x0188…01c0 at001e = ╱20╱…╱ // 0x1a6 @0x1e
0x0188…01c0 at001f = ╱20╱…╱ // 0x1a7 @0x1f
0x0188…01c0 at0020 = ╱20╱…╱ // 0x1a8 @0x20
0x0188…01c0 at0021 = ╱20╱…╱ // 0x1a9 @0x21
0x0188…01c0 at0022 = ╱20╱…╱ // 0x1aa @0x22
0x0188…01c0 at0023 = ╱20╱…╱ // 0x1ab @0x23
0x0188…01c0 at0024 = ╱20╱…╱ // 0x1ac @0x24
0x0188…01c0 at0025 = ╱20╱…╱ // 0x1ad @0x25
0x0188…01c0 at0026 = ╱20╱…╱ // 0x1ae @0x26
0x0188…01c0 at0027 = ╱20╱…╱ // 0x1af @0x27
0x0188…01c0 at0028 = ╱20╱…╱ // 0x1b0 @0x28
0x0188…01c0 at0029 = ╱20╱…╱ // 0x1b1 @0x29
0x0188…01c0 at002a = ╱20╱…╱ // 0x1b2 @0x2a
0x0188…01c0 at002b = ╱20╱…╱ // 0x1b3 @0x2b
0x0188…01c0 at002c = ╱20╱…╱ // 0x1b4 @0x2c
0x0188…01c0 at002d = ╱20╱…╱ // 0x1b5 @0x2d
0x0188…01c0 at002e = ╱20╱…╱ // 0x1b6 @0x2e
0x0188…01c0 at002f = ╱20╱…╱ // 0x1b7 @0x2f
0x0188…01c0 at0030 = ╱20╱…╱ // 0x1b8 @0x30
0x0188…01c0 at0031 = ╱20╱…╱ // 0x1b9 @0x31
0x0188…01c0 at0032 = ╱20╱…╱ // 0x1ba @0x32
0x0188…01c0 at0033 = ╱20╱…╱ // 0x1bb @0x33
0x0188…01c0 at0034 = ╱20╱…╱ // 0x1bc @0x34
0x0188…01c0 at0035 = ╱20╱…╱ // 0x1bd @0x35
0x0188…01c0 at0036 = ╱2a╱*╱ // 0x1be @0x36
0x0188…01c0 at0037 = EOL // 0x1bf @0x37
0x0188…01c0 }
0x01c0…01f8 97e6 00180 // *…Udviklet…af…:…Peter…Kristensen……………………………………………*
0x01c0…01f8 LineComal80 {
0x01c0…01f8 ptr = 0x97e6 // 0x1c0 @0x0
0x01c0…01f8 lno = 0x00b4 // 0x1c2 @0x2
0x01c0…01f8 at0004 = ╱89╱ // ╱ // 0x1c4 @0x4
0x01c0…01f8 at0005 = ╱2a╱*╱ // 0x1c5 @0x5
0x01c0…01f8 at0006 = ╱20╱…╱ // 0x1c6 @0x6
0x01c0…01f8 at0007 = ╱55╱U╱ // 0x1c7 @0x7
0x01c0…01f8 at0008 = ╱64╱d╱ // 0x1c8 @0x8
0x01c0…01f8 at0009 = ╱76╱v╱ // 0x1c9 @0x9
0x01c0…01f8 at000a = ╱69╱i╱ // 0x1ca @0xa
0x01c0…01f8 at000b = ╱6b╱k╱ // 0x1cb @0xb
0x01c0…01f8 at000c = ╱6c╱l╱ // 0x1cc @0xc
0x01c0…01f8 at000d = ╱65╱e╱ // 0x1cd @0xd
0x01c0…01f8 at000e = ╱74╱t╱ // 0x1ce @0xe
0x01c0…01f8 at000f = ╱20╱…╱ // 0x1cf @0xf
0x01c0…01f8 at0010 = ╱61╱a╱ // 0x1d0 @0x10
0x01c0…01f8 at0011 = ╱66╱f╱ // 0x1d1 @0x11
0x01c0…01f8 at0012 = ╱20╱…╱ // 0x1d2 @0x12
0x01c0…01f8 at0013 = ╱3a╱:╱ // 0x1d3 @0x13
0x01c0…01f8 at0014 = ╱20╱…╱ // 0x1d4 @0x14
0x01c0…01f8 at0015 = ╱50╱P╱ // 0x1d5 @0x15
0x01c0…01f8 at0016 = ╱65╱e╱ // 0x1d6 @0x16
0x01c0…01f8 at0017 = ╱74╱t╱ // 0x1d7 @0x17
0x01c0…01f8 at0018 = ╱65╱e╱ // 0x1d8 @0x18
0x01c0…01f8 at0019 = ╱72╱r╱ // 0x1d9 @0x19
0x01c0…01f8 at001a = ╱20╱…╱ // 0x1da @0x1a
0x01c0…01f8 at001b = ╱4b╱K╱ // 0x1db @0x1b
0x01c0…01f8 at001c = ╱72╱r╱ // 0x1dc @0x1c
0x01c0…01f8 at001d = ╱69╱i╱ // 0x1dd @0x1d
0x01c0…01f8 at001e = ╱73╱s╱ // 0x1de @0x1e
0x01c0…01f8 at001f = ╱74╱t╱ // 0x1df @0x1f
0x01c0…01f8 at0020 = ╱65╱e╱ // 0x1e0 @0x20
0x01c0…01f8 at0021 = ╱6e╱n╱ // 0x1e1 @0x21
0x01c0…01f8 at0022 = ╱73╱s╱ // 0x1e2 @0x22
0x01c0…01f8 at0023 = ╱65╱e╱ // 0x1e3 @0x23
0x01c0…01f8 at0024 = ╱6e╱n╱ // 0x1e4 @0x24
0x01c0…01f8 at0025 = ╱20╱…╱ // 0x1e5 @0x25
0x01c0…01f8 at0026 = ╱20╱…╱ // 0x1e6 @0x26
0x01c0…01f8 at0027 = ╱20╱…╱ // 0x1e7 @0x27
0x01c0…01f8 at0028 = ╱20╱…╱ // 0x1e8 @0x28
0x01c0…01f8 at0029 = ╱20╱…╱ // 0x1e9 @0x29
0x01c0…01f8 at002a = ╱20╱…╱ // 0x1ea @0x2a
0x01c0…01f8 at002b = ╱20╱…╱ // 0x1eb @0x2b
0x01c0…01f8 at002c = ╱20╱…╱ // 0x1ec @0x2c
0x01c0…01f8 at002d = ╱20╱…╱ // 0x1ed @0x2d
0x01c0…01f8 at002e = ╱20╱…╱ // 0x1ee @0x2e
0x01c0…01f8 at002f = ╱20╱…╱ // 0x1ef @0x2f
0x01c0…01f8 at0030 = ╱20╱…╱ // 0x1f0 @0x30
0x01c0…01f8 at0031 = ╱20╱…╱ // 0x1f1 @0x31
0x01c0…01f8 at0032 = ╱20╱…╱ // 0x1f2 @0x32
0x01c0…01f8 at0033 = ╱20╱…╱ // 0x1f3 @0x33
0x01c0…01f8 at0034 = ╱20╱…╱ // 0x1f4 @0x34
0x01c0…01f8 at0035 = ╱20╱…╱ // 0x1f5 @0x35
0x01c0…01f8 at0036 = ╱2a╱*╱ // 0x1f6 @0x36
0x01c0…01f8 at0037 = EOL // 0x1f7 @0x37
0x01c0…01f8 }
0x01f8…0230 981e 00190 // *………………………………………Vestervang…6,…6920…Videb{k…………………*
0x01f8…0230 LineComal80 {
0x01f8…0230 ptr = 0x981e // 0x1f8 @0x0
0x01f8…0230 lno = 0x00be // 0x1fa @0x2
0x01f8…0230 at0004 = ╱89╱ // ╱ // 0x1fc @0x4
0x01f8…0230 at0005 = ╱2a╱*╱ // 0x1fd @0x5
0x01f8…0230 at0006 = ╱20╱…╱ // 0x1fe @0x6
0x01f8…0230 at0007 = ╱20╱…╱ // 0x1ff @0x7
0x01f8…0230 at0008 = ╱20╱…╱ // 0x200 @0x8
0x01f8…0230 at0009 = ╱20╱…╱ // 0x201 @0x9
0x01f8…0230 at000a = ╱20╱…╱ // 0x202 @0xa
0x01f8…0230 at000b = ╱20╱…╱ // 0x203 @0xb
0x01f8…0230 at000c = ╱20╱…╱ // 0x204 @0xc
0x01f8…0230 at000d = ╱20╱…╱ // 0x205 @0xd
0x01f8…0230 at000e = ╱20╱…╱ // 0x206 @0xe
0x01f8…0230 at000f = ╱20╱…╱ // 0x207 @0xf
0x01f8…0230 at0010 = ╱20╱…╱ // 0x208 @0x10
0x01f8…0230 at0011 = ╱20╱…╱ // 0x209 @0x11
0x01f8…0230 at0012 = ╱20╱…╱ // 0x20a @0x12
0x01f8…0230 at0013 = ╱20╱…╱ // 0x20b @0x13
0x01f8…0230 at0014 = ╱20╱…╱ // 0x20c @0x14
0x01f8…0230 at0015 = ╱56╱V╱ // 0x20d @0x15
0x01f8…0230 at0016 = ╱65╱e╱ // 0x20e @0x16
0x01f8…0230 at0017 = ╱73╱s╱ // 0x20f @0x17
0x01f8…0230 at0018 = ╱74╱t╱ // 0x210 @0x18
0x01f8…0230 at0019 = ╱65╱e╱ // 0x211 @0x19
0x01f8…0230 at001a = ╱72╱r╱ // 0x212 @0x1a
0x01f8…0230 at001b = ╱76╱v╱ // 0x213 @0x1b
0x01f8…0230 at001c = ╱61╱a╱ // 0x214 @0x1c
0x01f8…0230 at001d = ╱6e╱n╱ // 0x215 @0x1d
0x01f8…0230 at001e = ╱67╱g╱ // 0x216 @0x1e
0x01f8…0230 at001f = ╱20╱…╱ // 0x217 @0x1f
0x01f8…0230 at0020 = ╱36╱6╱ // 0x218 @0x20
0x01f8…0230 at0021 = ╱2c╱,╱ // 0x219 @0x21
0x01f8…0230 at0022 = ╱20╱…╱ // 0x21a @0x22
0x01f8…0230 at0023 = ╱36╱6╱ // 0x21b @0x23
0x01f8…0230 at0024 = ╱39╱9╱ // 0x21c @0x24
0x01f8…0230 at0025 = ╱32╱2╱ // 0x21d @0x25
0x01f8…0230 at0026 = ╱30╱0╱ // 0x21e @0x26
0x01f8…0230 at0027 = ╱20╱…╱ // 0x21f @0x27
0x01f8…0230 at0028 = ╱56╱V╱ // 0x220 @0x28
0x01f8…0230 at0029 = ╱69╱i╱ // 0x221 @0x29
0x01f8…0230 at002a = ╱64╱d╱ // 0x222 @0x2a
0x01f8…0230 at002b = ╱65╱e╱ // 0x223 @0x2b
0x01f8…0230 at002c = ╱62╱b╱ // 0x224 @0x2c
0x01f8…0230 at002d = ╱7b╱{╱ // 0x225 @0x2d
0x01f8…0230 at002e = ╱6b╱k╱ // 0x226 @0x2e
0x01f8…0230 at002f = ╱20╱…╱ // 0x227 @0x2f
0x01f8…0230 at0030 = ╱20╱…╱ // 0x228 @0x30
0x01f8…0230 at0031 = ╱20╱…╱ // 0x229 @0x31
0x01f8…0230 at0032 = ╱20╱…╱ // 0x22a @0x32
0x01f8…0230 at0033 = ╱20╱…╱ // 0x22b @0x33
0x01f8…0230 at0034 = ╱20╱…╱ // 0x22c @0x34
0x01f8…0230 at0035 = ╱20╱…╱ // 0x22d @0x35
0x01f8…0230 at0036 = ╱2a╱*╱ // 0x22e @0x36
0x01f8…0230 at0037 = EOL // 0x22f @0x37
0x01f8…0230 }
0x0230…0268 9856 00200 // *………………………………………………………………………………………………………………………………*
0x0230…0268 LineComal80 {
0x0230…0268 ptr = 0x9856 // 0x230 @0x0
0x0230…0268 lno = 0x00c8 // 0x232 @0x2
0x0230…0268 at0004 = ╱89╱ // ╱ // 0x234 @0x4
0x0230…0268 at0005 = ╱2a╱*╱ // 0x235 @0x5
0x0230…0268 at0006 = ╱20╱…╱ // 0x236 @0x6
0x0230…0268 at0007 = ╱20╱…╱ // 0x237 @0x7
0x0230…0268 at0008 = ╱20╱…╱ // 0x238 @0x8
0x0230…0268 at0009 = ╱20╱…╱ // 0x239 @0x9
0x0230…0268 at000a = ╱20╱…╱ // 0x23a @0xa
0x0230…0268 at000b = ╱20╱…╱ // 0x23b @0xb
0x0230…0268 at000c = ╱20╱…╱ // 0x23c @0xc
0x0230…0268 at000d = ╱20╱…╱ // 0x23d @0xd
0x0230…0268 at000e = ╱20╱…╱ // 0x23e @0xe
0x0230…0268 at000f = ╱20╱…╱ // 0x23f @0xf
0x0230…0268 at0010 = ╱20╱…╱ // 0x240 @0x10
0x0230…0268 at0011 = ╱20╱…╱ // 0x241 @0x11
0x0230…0268 at0012 = ╱20╱…╱ // 0x242 @0x12
0x0230…0268 at0013 = ╱20╱…╱ // 0x243 @0x13
0x0230…0268 at0014 = ╱20╱…╱ // 0x244 @0x14
0x0230…0268 at0015 = ╱20╱…╱ // 0x245 @0x15
0x0230…0268 at0016 = ╱20╱…╱ // 0x246 @0x16
0x0230…0268 at0017 = ╱20╱…╱ // 0x247 @0x17
0x0230…0268 at0018 = ╱20╱…╱ // 0x248 @0x18
0x0230…0268 at0019 = ╱20╱…╱ // 0x249 @0x19
0x0230…0268 at001a = ╱20╱…╱ // 0x24a @0x1a
0x0230…0268 at001b = ╱20╱…╱ // 0x24b @0x1b
0x0230…0268 at001c = ╱20╱…╱ // 0x24c @0x1c
0x0230…0268 at001d = ╱20╱…╱ // 0x24d @0x1d
0x0230…0268 at001e = ╱20╱…╱ // 0x24e @0x1e
0x0230…0268 at001f = ╱20╱…╱ // 0x24f @0x1f
0x0230…0268 at0020 = ╱20╱…╱ // 0x250 @0x20
0x0230…0268 at0021 = ╱20╱…╱ // 0x251 @0x21
0x0230…0268 at0022 = ╱20╱…╱ // 0x252 @0x22
0x0230…0268 at0023 = ╱20╱…╱ // 0x253 @0x23
0x0230…0268 at0024 = ╱20╱…╱ // 0x254 @0x24
0x0230…0268 at0025 = ╱20╱…╱ // 0x255 @0x25
0x0230…0268 at0026 = ╱20╱…╱ // 0x256 @0x26
0x0230…0268 at0027 = ╱20╱…╱ // 0x257 @0x27
0x0230…0268 at0028 = ╱20╱…╱ // 0x258 @0x28
0x0230…0268 at0029 = ╱20╱…╱ // 0x259 @0x29
0x0230…0268 at002a = ╱20╱…╱ // 0x25a @0x2a
0x0230…0268 at002b = ╱20╱…╱ // 0x25b @0x2b
0x0230…0268 at002c = ╱20╱…╱ // 0x25c @0x2c
0x0230…0268 at002d = ╱20╱…╱ // 0x25d @0x2d
0x0230…0268 at002e = ╱20╱…╱ // 0x25e @0x2e
0x0230…0268 at002f = ╱20╱…╱ // 0x25f @0x2f
0x0230…0268 at0030 = ╱20╱…╱ // 0x260 @0x30
0x0230…0268 at0031 = ╱20╱…╱ // 0x261 @0x31
0x0230…0268 at0032 = ╱20╱…╱ // 0x262 @0x32
0x0230…0268 at0033 = ╱20╱…╱ // 0x263 @0x33
0x0230…0268 at0034 = ╱20╱…╱ // 0x264 @0x34
0x0230…0268 at0035 = ╱20╱…╱ // 0x265 @0x35
0x0230…0268 at0036 = ╱2a╱*╱ // 0x266 @0x36
0x0230…0268 at0037 = EOL // 0x267 @0x37
0x0230…0268 }
0x0268…02a0 (8,) 988e 00210 // *………(C)…………………:…forlaget…systime…a/s…………………………………*
0x0268…02a0 LineComal80 {
0x0268…02a0 ptr = 0x988e // 0x268 @0x0
0x0268…02a0 lno = 0x00d2 // 0x26a @0x2
0x0268…02a0 at0004 = ╱89╱ // ╱ // 0x26c @0x4
0x0268…02a0 at0005 = ╱2a╱*╱ // 0x26d @0x5
0x0268…02a0 at0006 = ╱20╱…╱ // 0x26e @0x6
0x0268…02a0 at0007 = ╱20╱…╱ // 0x26f @0x7
0x0268…02a0 at0008 = ╱20╱…╱ // 0x270 @0x8
0x0268…02a0 at0009 = ╱28╱(╱ // 0x271 @0x9
0x0268…02a0 at000a = ╱43╱C╱ // 0x272 @0xa
0x0268…02a0 at000b = ╱29╱)╱ // 0x273 @0xb
0x0268…02a0 at000c = ╱20╱…╱ // 0x274 @0xc
0x0268…02a0 at000d = ╱20╱…╱ // 0x275 @0xd
0x0268…02a0 at000e = ╱20╱…╱ // 0x276 @0xe
0x0268…02a0 at000f = ╱20╱…╱ // 0x277 @0xf
0x0268…02a0 at0010 = ╱20╱…╱ // 0x278 @0x10
0x0268…02a0 at0011 = ╱20╱…╱ // 0x279 @0x11
0x0268…02a0 at0012 = ╱20╱…╱ // 0x27a @0x12
0x0268…02a0 at0013 = ╱3a╱:╱ // 0x27b @0x13
0x0268…02a0 at0014 = ╱20╱…╱ // 0x27c @0x14
0x0268…02a0 at0015 = ╱66╱f╱ // 0x27d @0x15
0x0268…02a0 at0016 = ╱6f╱o╱ // 0x27e @0x16
0x0268…02a0 at0017 = ╱72╱r╱ // 0x27f @0x17
0x0268…02a0 at0018 = ╱6c╱l╱ // 0x280 @0x18
0x0268…02a0 at0019 = ╱61╱a╱ // 0x281 @0x19
0x0268…02a0 at001a = ╱67╱g╱ // 0x282 @0x1a
0x0268…02a0 at001b = ╱65╱e╱ // 0x283 @0x1b
0x0268…02a0 at001c = ╱74╱t╱ // 0x284 @0x1c
0x0268…02a0 at001d = ╱20╱…╱ // 0x285 @0x1d
0x0268…02a0 at001e = ╱73╱s╱ // 0x286 @0x1e
0x0268…02a0 at001f = ╱79╱y╱ // 0x287 @0x1f
0x0268…02a0 at0020 = ╱73╱s╱ // 0x288 @0x20
0x0268…02a0 at0021 = ╱74╱t╱ // 0x289 @0x21
0x0268…02a0 at0022 = ╱69╱i╱ // 0x28a @0x22
0x0268…02a0 at0023 = ╱6d╱m╱ // 0x28b @0x23
0x0268…02a0 at0024 = ╱65╱e╱ // 0x28c @0x24
0x0268…02a0 at0025 = ╱20╱…╱ // 0x28d @0x25
0x0268…02a0 at0026 = ╱61╱a╱ // 0x28e @0x26
0x0268…02a0 at0027 = ╱2f╱/╱ // 0x28f @0x27
0x0268…02a0 at0028 = ╱73╱s╱ // 0x290 @0x28
0x0268…02a0 at0029 = ╱20╱…╱ // 0x291 @0x29
0x0268…02a0 at002a = ╱20╱…╱ // 0x292 @0x2a
0x0268…02a0 at002b = ╱20╱…╱ // 0x293 @0x2b
0x0268…02a0 at002c = ╱20╱…╱ // 0x294 @0x2c
0x0268…02a0 at002d = ╱20╱…╱ // 0x295 @0x2d
0x0268…02a0 at002e = ╱20╱…╱ // 0x296 @0x2e
0x0268…02a0 at002f = ╱20╱…╱ // 0x297 @0x2f
0x0268…02a0 at0030 = ╱20╱…╱ // 0x298 @0x30
0x0268…02a0 at0031 = ╱20╱…╱ // 0x299 @0x31
0x0268…02a0 at0032 = ╱20╱…╱ // 0x29a @0x32
0x0268…02a0 at0033 = ╱20╱…╱ // 0x29b @0x33
0x0268…02a0 at0034 = ╱20╱…╱ // 0x29c @0x34
0x0268…02a0 at0035 = ╱20╱…╱ // 0x29d @0x35
0x0268…02a0 at0036 = ╱2a╱*╱ // 0x29e @0x36
0x0268…02a0 at0037 = EOL // 0x29f @0x37
0x0268…02a0 }
0x02a0…02d8 98c6 00220 // *………………………………………Klokkebakken…20,…Gjellerup…………………*
0x02a0…02d8 LineComal80 {
0x02a0…02d8 ptr = 0x98c6 // 0x2a0 @0x0
0x02a0…02d8 lno = 0x00dc // 0x2a2 @0x2
0x02a0…02d8 at0004 = ╱89╱ // ╱ // 0x2a4 @0x4
0x02a0…02d8 at0005 = ╱2a╱*╱ // 0x2a5 @0x5
0x02a0…02d8 at0006 = ╱20╱…╱ // 0x2a6 @0x6
0x02a0…02d8 at0007 = ╱20╱…╱ // 0x2a7 @0x7
0x02a0…02d8 at0008 = ╱20╱…╱ // 0x2a8 @0x8
0x02a0…02d8 at0009 = ╱20╱…╱ // 0x2a9 @0x9
0x02a0…02d8 at000a = ╱20╱…╱ // 0x2aa @0xa
0x02a0…02d8 at000b = ╱20╱…╱ // 0x2ab @0xb
0x02a0…02d8 at000c = ╱20╱…╱ // 0x2ac @0xc
0x02a0…02d8 at000d = ╱20╱…╱ // 0x2ad @0xd
0x02a0…02d8 at000e = ╱20╱…╱ // 0x2ae @0xe
0x02a0…02d8 at000f = ╱20╱…╱ // 0x2af @0xf
0x02a0…02d8 at0010 = ╱20╱…╱ // 0x2b0 @0x10
0x02a0…02d8 at0011 = ╱20╱…╱ // 0x2b1 @0x11
0x02a0…02d8 at0012 = ╱20╱…╱ // 0x2b2 @0x12
0x02a0…02d8 at0013 = ╱20╱…╱ // 0x2b3 @0x13
0x02a0…02d8 at0014 = ╱20╱…╱ // 0x2b4 @0x14
0x02a0…02d8 at0015 = ╱4b╱K╱ // 0x2b5 @0x15
0x02a0…02d8 at0016 = ╱6c╱l╱ // 0x2b6 @0x16
0x02a0…02d8 at0017 = ╱6f╱o╱ // 0x2b7 @0x17
0x02a0…02d8 at0018 = ╱6b╱k╱ // 0x2b8 @0x18
0x02a0…02d8 at0019 = ╱6b╱k╱ // 0x2b9 @0x19
0x02a0…02d8 at001a = ╱65╱e╱ // 0x2ba @0x1a
0x02a0…02d8 at001b = ╱62╱b╱ // 0x2bb @0x1b
0x02a0…02d8 at001c = ╱61╱a╱ // 0x2bc @0x1c
0x02a0…02d8 at001d = ╱6b╱k╱ // 0x2bd @0x1d
0x02a0…02d8 at001e = ╱6b╱k╱ // 0x2be @0x1e
0x02a0…02d8 at001f = ╱65╱e╱ // 0x2bf @0x1f
0x02a0…02d8 at0020 = ╱6e╱n╱ // 0x2c0 @0x20
0x02a0…02d8 at0021 = ╱20╱…╱ // 0x2c1 @0x21
0x02a0…02d8 at0022 = ╱32╱2╱ // 0x2c2 @0x22
0x02a0…02d8 at0023 = ╱30╱0╱ // 0x2c3 @0x23
0x02a0…02d8 at0024 = ╱2c╱,╱ // 0x2c4 @0x24
0x02a0…02d8 at0025 = ╱20╱…╱ // 0x2c5 @0x25
0x02a0…02d8 at0026 = ╱47╱G╱ // 0x2c6 @0x26
0x02a0…02d8 at0027 = ╱6a╱j╱ // 0x2c7 @0x27
0x02a0…02d8 at0028 = ╱65╱e╱ // 0x2c8 @0x28
0x02a0…02d8 at0029 = ╱6c╱l╱ // 0x2c9 @0x29
0x02a0…02d8 at002a = ╱6c╱l╱ // 0x2ca @0x2a
0x02a0…02d8 at002b = ╱65╱e╱ // 0x2cb @0x2b
0x02a0…02d8 at002c = ╱72╱r╱ // 0x2cc @0x2c
0x02a0…02d8 at002d = ╱75╱u╱ // 0x2cd @0x2d
0x02a0…02d8 at002e = ╱70╱p╱ // 0x2ce @0x2e
0x02a0…02d8 at002f = ╱20╱…╱ // 0x2cf @0x2f
0x02a0…02d8 at0030 = ╱20╱…╱ // 0x2d0 @0x30
0x02a0…02d8 at0031 = ╱20╱…╱ // 0x2d1 @0x31
0x02a0…02d8 at0032 = ╱20╱…╱ // 0x2d2 @0x32
0x02a0…02d8 at0033 = ╱20╱…╱ // 0x2d3 @0x33
0x02a0…02d8 at0034 = ╱20╱…╱ // 0x2d4 @0x34
0x02a0…02d8 at0035 = ╱20╱…╱ // 0x2d5 @0x35
0x02a0…02d8 at0036 = ╱2a╱*╱ // 0x2d6 @0x36
0x02a0…02d8 at0037 = EOL // 0x2d7 @0x37
0x02a0…02d8 }
0x02d8…0310 98fe 00230 // *………………………………………7400……Herning……………………………………………………*
0x02d8…0310 LineComal80 {
0x02d8…0310 ptr = 0x98fe // 0x2d8 @0x0
0x02d8…0310 lno = 0x00e6 // 0x2da @0x2
0x02d8…0310 at0004 = ╱89╱ // ╱ // 0x2dc @0x4
0x02d8…0310 at0005 = ╱2a╱*╱ // 0x2dd @0x5
0x02d8…0310 at0006 = ╱20╱…╱ // 0x2de @0x6
0x02d8…0310 at0007 = ╱20╱…╱ // 0x2df @0x7
0x02d8…0310 at0008 = ╱20╱…╱ // 0x2e0 @0x8
0x02d8…0310 at0009 = ╱20╱…╱ // 0x2e1 @0x9
0x02d8…0310 at000a = ╱20╱…╱ // 0x2e2 @0xa
0x02d8…0310 at000b = ╱20╱…╱ // 0x2e3 @0xb
0x02d8…0310 at000c = ╱20╱…╱ // 0x2e4 @0xc
0x02d8…0310 at000d = ╱20╱…╱ // 0x2e5 @0xd
0x02d8…0310 at000e = ╱20╱…╱ // 0x2e6 @0xe
0x02d8…0310 at000f = ╱20╱…╱ // 0x2e7 @0xf
0x02d8…0310 at0010 = ╱20╱…╱ // 0x2e8 @0x10
0x02d8…0310 at0011 = ╱20╱…╱ // 0x2e9 @0x11
0x02d8…0310 at0012 = ╱20╱…╱ // 0x2ea @0x12
0x02d8…0310 at0013 = ╱20╱…╱ // 0x2eb @0x13
0x02d8…0310 at0014 = ╱20╱…╱ // 0x2ec @0x14
0x02d8…0310 at0015 = ╱37╱7╱ // 0x2ed @0x15
0x02d8…0310 at0016 = ╱34╱4╱ // 0x2ee @0x16
0x02d8…0310 at0017 = ╱30╱0╱ // 0x2ef @0x17
0x02d8…0310 at0018 = ╱30╱0╱ // 0x2f0 @0x18
0x02d8…0310 at0019 = ╱20╱…╱ // 0x2f1 @0x19
0x02d8…0310 at001a = ╱20╱…╱ // 0x2f2 @0x1a
0x02d8…0310 at001b = ╱48╱H╱ // 0x2f3 @0x1b
0x02d8…0310 at001c = ╱65╱e╱ // 0x2f4 @0x1c
0x02d8…0310 at001d = ╱72╱r╱ // 0x2f5 @0x1d
0x02d8…0310 at001e = ╱6e╱n╱ // 0x2f6 @0x1e
0x02d8…0310 at001f = ╱69╱i╱ // 0x2f7 @0x1f
0x02d8…0310 at0020 = ╱6e╱n╱ // 0x2f8 @0x20
0x02d8…0310 at0021 = ╱67╱g╱ // 0x2f9 @0x21
0x02d8…0310 at0022 = ╱20╱…╱ // 0x2fa @0x22
0x02d8…0310 at0023 = ╱20╱…╱ // 0x2fb @0x23
0x02d8…0310 at0024 = ╱20╱…╱ // 0x2fc @0x24
0x02d8…0310 at0025 = ╱20╱…╱ // 0x2fd @0x25
0x02d8…0310 at0026 = ╱20╱…╱ // 0x2fe @0x26
0x02d8…0310 at0027 = ╱20╱…╱ // 0x2ff @0x27
0x02d8…0310 at0028 = ╱20╱…╱ // 0x300 @0x28
0x02d8…0310 at0029 = ╱20╱…╱ // 0x301 @0x29
0x02d8…0310 at002a = ╱20╱…╱ // 0x302 @0x2a
0x02d8…0310 at002b = ╱20╱…╱ // 0x303 @0x2b
0x02d8…0310 at002c = ╱20╱…╱ // 0x304 @0x2c
0x02d8…0310 at002d = ╱20╱…╱ // 0x305 @0x2d
0x02d8…0310 at002e = ╱20╱…╱ // 0x306 @0x2e
0x02d8…0310 at002f = ╱20╱…╱ // 0x307 @0x2f
0x02d8…0310 at0030 = ╱20╱…╱ // 0x308 @0x30
0x02d8…0310 at0031 = ╱20╱…╱ // 0x309 @0x31
0x02d8…0310 at0032 = ╱20╱…╱ // 0x30a @0x32
0x02d8…0310 at0033 = ╱20╱…╱ // 0x30b @0x33
0x02d8…0310 at0034 = ╱20╱…╱ // 0x30c @0x34
0x02d8…0310 at0035 = ╱20╱…╱ // 0x30d @0x35
0x02d8…0310 at0036 = ╱2a╱*╱ // 0x30e @0x36
0x02d8…0310 at0037 = EOL // 0x30f @0x37
0x02d8…0310 }
0x0310…0348 9936 00240 // **************************************************
0x0310…0348 LineComal80 {
0x0310…0348 ptr = 0x9936 // 0x310 @0x0
0x0310…0348 lno = 0x00f0 // 0x312 @0x2
0x0310…0348 at0004 = ╱89╱ // ╱ // 0x314 @0x4
0x0310…0348 at0005 = ╱2a╱*╱ // 0x315 @0x5
0x0310…0348 at0006 = ╱2a╱*╱ // 0x316 @0x6
0x0310…0348 at0007 = ╱2a╱*╱ // 0x317 @0x7
0x0310…0348 at0008 = ╱2a╱*╱ // 0x318 @0x8
0x0310…0348 at0009 = ╱2a╱*╱ // 0x319 @0x9
0x0310…0348 at000a = ╱2a╱*╱ // 0x31a @0xa
0x0310…0348 at000b = ╱2a╱*╱ // 0x31b @0xb
0x0310…0348 at000c = ╱2a╱*╱ // 0x31c @0xc
0x0310…0348 at000d = ╱2a╱*╱ // 0x31d @0xd
0x0310…0348 at000e = ╱2a╱*╱ // 0x31e @0xe
0x0310…0348 at000f = ╱2a╱*╱ // 0x31f @0xf
0x0310…0348 at0010 = ╱2a╱*╱ // 0x320 @0x10
0x0310…0348 at0011 = ╱2a╱*╱ // 0x321 @0x11
0x0310…0348 at0012 = ╱2a╱*╱ // 0x322 @0x12
0x0310…0348 at0013 = ╱2a╱*╱ // 0x323 @0x13
0x0310…0348 at0014 = ╱2a╱*╱ // 0x324 @0x14
0x0310…0348 at0015 = ╱2a╱*╱ // 0x325 @0x15
0x0310…0348 at0016 = ╱2a╱*╱ // 0x326 @0x16
0x0310…0348 at0017 = ╱2a╱*╱ // 0x327 @0x17
0x0310…0348 at0018 = ╱2a╱*╱ // 0x328 @0x18
0x0310…0348 at0019 = ╱2a╱*╱ // 0x329 @0x19
0x0310…0348 at001a = ╱2a╱*╱ // 0x32a @0x1a
0x0310…0348 at001b = ╱2a╱*╱ // 0x32b @0x1b
0x0310…0348 at001c = ╱2a╱*╱ // 0x32c @0x1c
0x0310…0348 at001d = ╱2a╱*╱ // 0x32d @0x1d
0x0310…0348 at001e = ╱2a╱*╱ // 0x32e @0x1e
0x0310…0348 at001f = ╱2a╱*╱ // 0x32f @0x1f
0x0310…0348 at0020 = ╱2a╱*╱ // 0x330 @0x20
0x0310…0348 at0021 = ╱2a╱*╱ // 0x331 @0x21
0x0310…0348 at0022 = ╱2a╱*╱ // 0x332 @0x22
0x0310…0348 at0023 = ╱2a╱*╱ // 0x333 @0x23
0x0310…0348 at0024 = ╱2a╱*╱ // 0x334 @0x24
0x0310…0348 at0025 = ╱2a╱*╱ // 0x335 @0x25
0x0310…0348 at0026 = ╱2a╱*╱ // 0x336 @0x26
0x0310…0348 at0027 = ╱2a╱*╱ // 0x337 @0x27
0x0310…0348 at0028 = ╱2a╱*╱ // 0x338 @0x28
0x0310…0348 at0029 = ╱2a╱*╱ // 0x339 @0x29
0x0310…0348 at002a = ╱2a╱*╱ // 0x33a @0x2a
0x0310…0348 at002b = ╱2a╱*╱ // 0x33b @0x2b
0x0310…0348 at002c = ╱2a╱*╱ // 0x33c @0x2c
0x0310…0348 at002d = ╱2a╱*╱ // 0x33d @0x2d
0x0310…0348 at002e = ╱2a╱*╱ // 0x33e @0x2e
0x0310…0348 at002f = ╱2a╱*╱ // 0x33f @0x2f
0x0310…0348 at0030 = ╱2a╱*╱ // 0x340 @0x30
0x0310…0348 at0031 = ╱2a╱*╱ // 0x341 @0x31
0x0310…0348 at0032 = ╱2a╱*╱ // 0x342 @0x32
0x0310…0348 at0033 = ╱2a╱*╱ // 0x343 @0x33
0x0310…0348 at0034 = ╱2a╱*╱ // 0x344 @0x34
0x0310…0348 at0035 = ╱2a╱*╱ // 0x345 @0x35
0x0310…0348 at0036 = ╱2a╱*╱ // 0x346 @0x36
0x0310…0348 at0037 = EOL // 0x347 @0x37
0x0310…0348 }
0x0348…0359 9947 00250 EXEC DIMENSIONER
0x0348…0359 LineComal80 {
0x0348…0359 ptr = 0x9947 // 0x348 @0x0
0x0348…0359 lno = 0x00fa // 0x34a @0x2
0x0348…0359 at0004 = ╱9d╱ EXEC ╱ // 0x34c @0x4
0x0348…0359 at0005 = ╱44╱D╱ // 0x34d @0x5
0x0348…0359 at0006 = ╱49╱I╱ // 0x34e @0x6
0x0348…0359 at0007 = ╱4d╱M╱ // 0x34f @0x7
0x0348…0359 at0008 = ╱45╱E╱ // 0x350 @0x8
0x0348…0359 at0009 = ╱4e╱N╱ // 0x351 @0x9
0x0348…0359 at000a = ╱53╱S╱ // 0x352 @0xa
0x0348…0359 at000b = ╱49╱I╱ // 0x353 @0xb
0x0348…0359 at000c = ╱4f╱O╱ // 0x354 @0xc
0x0348…0359 at000d = ╱4e╱N╱ // 0x355 @0xd
0x0348…0359 at000e = ╱45╱E╱ // 0x356 @0xe
0x0348…0359 at000f = ╱52╱R╱ // 0x357 @0xf
0x0348…0359 at0010 = EOL // 0x358 @0x10
0x0348…0359 }
0x0359…0366 9954 00260 EXEC INITIER
0x0359…0366 LineComal80 {
0x0359…0366 ptr = 0x9954 // 0x359 @0x0
0x0359…0366 lno = 0x0104 // 0x35b @0x2
0x0359…0366 at0004 = ╱9d╱ EXEC ╱ // 0x35d @0x4
0x0359…0366 at0005 = ╱49╱I╱ // 0x35e @0x5
0x0359…0366 at0006 = ╱4e╱N╱ // 0x35f @0x6
0x0359…0366 at0007 = ╱49╱I╱ // 0x360 @0x7
0x0359…0366 at0008 = ╱54╱T╱ // 0x361 @0x8
0x0359…0366 at0009 = ╱49╱I╱ // 0x362 @0x9
0x0359…0366 at000a = ╱45╱E╱ // 0x363 @0xa
0x0359…0366 at000b = ╱52╱R╱ // 0x364 @0xb
0x0359…0366 at000c = EOL // 0x365 @0xc
0x0359…0366 }
0x0366…0374 9962 00270 EXEC FKT_MENU
0x0366…0374 LineComal80 {
0x0366…0374 ptr = 0x9962 // 0x366 @0x0
0x0366…0374 lno = 0x010e // 0x368 @0x2
0x0366…0374 at0004 = ╱9d╱ EXEC ╱ // 0x36a @0x4
0x0366…0374 at0005 = ╱46╱F╱ // 0x36b @0x5
0x0366…0374 at0006 = ╱4b╱K╱ // 0x36c @0x6
0x0366…0374 at0007 = ╱54╱T╱ // 0x36d @0x7
0x0366…0374 at0008 = ╱5f╱_╱ // 0x36e @0x8
0x0366…0374 at0009 = ╱4d╱M╱ // 0x36f @0x9
0x0366…0374 at000a = ╱45╱E╱ // 0x370 @0xa
0x0366…0374 at000b = ╱4e╱N╱ // 0x371 @0xb
0x0366…0374 at000c = ╱55╱U╱ // 0x372 @0xc
0x0366…0374 at000d = EOL // 0x373 @0xd
0x0366…0374 }
0x0374…0382 9970 00280 CHAIN PROGRAM $
0x0374…0382 LineComal80 {
0x0374…0382 ptr = 0x9970 // 0x374 @0x0
0x0374…0382 lno = 0x0118 // 0x376 @0x2
0x0374…0382 at0004 = ╱ac╱ CHAIN ╱ // 0x378 @0x4
0x0374…0382 at0005 = ╱50╱P╱ // 0x379 @0x5
0x0374…0382 at0006 = ╱52╱R╱ // 0x37a @0x6
0x0374…0382 at0007 = ╱4f╱O╱ // 0x37b @0x7
0x0374…0382 at0008 = ╱47╱G╱ // 0x37c @0x8
0x0374…0382 at0009 = ╱52╱R╱ // 0x37d @0x9
0x0374…0382 at000a = ╱41╱A╱ // 0x37e @0xa
0x0374…0382 at000b = ╱4d╱M╱ // 0x37f @0xb
0x0374…0382 at000c = ╱ef╱ $ ╱ // 0x380 @0xc
0x0374…0382 at000d = EOL // 0x381 @0xd
0x0374…0382 }
0x0382…03b5 99a3 00290 // ===========…Procedurer…starter…==============
0x0382…03b5 LineComal80 {
0x0382…03b5 ptr = 0x99a3 // 0x382 @0x0
0x0382…03b5 lno = 0x0122 // 0x384 @0x2
0x0382…03b5 at0004 = ╱89╱ // ╱ // 0x386 @0x4
0x0382…03b5 at0005 = ╱3d╱=╱ // 0x387 @0x5
0x0382…03b5 at0006 = ╱3d╱=╱ // 0x388 @0x6
0x0382…03b5 at0007 = ╱3d╱=╱ // 0x389 @0x7
0x0382…03b5 at0008 = ╱3d╱=╱ // 0x38a @0x8
0x0382…03b5 at0009 = ╱3d╱=╱ // 0x38b @0x9
0x0382…03b5 at000a = ╱3d╱=╱ // 0x38c @0xa
0x0382…03b5 at000b = ╱3d╱=╱ // 0x38d @0xb
0x0382…03b5 at000c = ╱3d╱=╱ // 0x38e @0xc
0x0382…03b5 at000d = ╱3d╱=╱ // 0x38f @0xd
0x0382…03b5 at000e = ╱3d╱=╱ // 0x390 @0xe
0x0382…03b5 at000f = ╱3d╱=╱ // 0x391 @0xf
0x0382…03b5 at0010 = ╱20╱…╱ // 0x392 @0x10
0x0382…03b5 at0011 = ╱50╱P╱ // 0x393 @0x11
0x0382…03b5 at0012 = ╱72╱r╱ // 0x394 @0x12
0x0382…03b5 at0013 = ╱6f╱o╱ // 0x395 @0x13
0x0382…03b5 at0014 = ╱63╱c╱ // 0x396 @0x14
0x0382…03b5 at0015 = ╱65╱e╱ // 0x397 @0x15
0x0382…03b5 at0016 = ╱64╱d╱ // 0x398 @0x16
0x0382…03b5 at0017 = ╱75╱u╱ // 0x399 @0x17
0x0382…03b5 at0018 = ╱72╱r╱ // 0x39a @0x18
0x0382…03b5 at0019 = ╱65╱e╱ // 0x39b @0x19
0x0382…03b5 at001a = ╱72╱r╱ // 0x39c @0x1a
0x0382…03b5 at001b = ╱20╱…╱ // 0x39d @0x1b
0x0382…03b5 at001c = ╱73╱s╱ // 0x39e @0x1c
0x0382…03b5 at001d = ╱74╱t╱ // 0x39f @0x1d
0x0382…03b5 at001e = ╱61╱a╱ // 0x3a0 @0x1e
0x0382…03b5 at001f = ╱72╱r╱ // 0x3a1 @0x1f
0x0382…03b5 at0020 = ╱74╱t╱ // 0x3a2 @0x20
0x0382…03b5 at0021 = ╱65╱e╱ // 0x3a3 @0x21
0x0382…03b5 at0022 = ╱72╱r╱ // 0x3a4 @0x22
0x0382…03b5 at0023 = ╱20╱…╱ // 0x3a5 @0x23
0x0382…03b5 at0024 = ╱3d╱=╱ // 0x3a6 @0x24
0x0382…03b5 at0025 = ╱3d╱=╱ // 0x3a7 @0x25
0x0382…03b5 at0026 = ╱3d╱=╱ // 0x3a8 @0x26
0x0382…03b5 at0027 = ╱3d╱=╱ // 0x3a9 @0x27
0x0382…03b5 at0028 = ╱3d╱=╱ // 0x3aa @0x28
0x0382…03b5 at0029 = ╱3d╱=╱ // 0x3ab @0x29
0x0382…03b5 at002a = ╱3d╱=╱ // 0x3ac @0x2a
0x0382…03b5 at002b = ╱3d╱=╱ // 0x3ad @0x2b
0x0382…03b5 at002c = ╱3d╱=╱ // 0x3ae @0x2c
0x0382…03b5 at002d = ╱3d╱=╱ // 0x3af @0x2d
0x0382…03b5 at002e = ╱3d╱=╱ // 0x3b0 @0x2e
0x0382…03b5 at002f = ╱3d╱=╱ // 0x3b1 @0x2f
0x0382…03b5 at0030 = ╱3d╱=╱ // 0x3b2 @0x30
0x0382…03b5 at0031 = ╱3d╱=╱ // 0x3b3 @0x31
0x0382…03b5 at0032 = EOL // 0x3b4 @0x32
0x0382…03b5 }
0x03b5…03c7 99b5 00300 PROC DIMENSIONER
0x03b5…03c7 LineComal80 {
0x03b5…03c7 ptr = 0x99b5 // 0x3b5 @0x0
0x03b5…03c7 lno = 0x012c // 0x3b7 @0x2
0x03b5…03c7 at0004 = ╱9e01╱ PROC ╱ // 0x3b9 @0x4
0x03b5…03c7 at0006 = ╱44╱D╱ // 0x3bb @0x6
0x03b5…03c7 at0007 = ╱49╱I╱ // 0x3bc @0x7
0x03b5…03c7 at0008 = ╱4d╱M╱ // 0x3bd @0x8
0x03b5…03c7 at0009 = ╱45╱E╱ // 0x3be @0x9
0x03b5…03c7 at000a = ╱4e╱N╱ // 0x3bf @0xa
0x03b5…03c7 at000b = ╱53╱S╱ // 0x3c0 @0xb
0x03b5…03c7 at000c = ╱49╱I╱ // 0x3c1 @0xc
0x03b5…03c7 at000d = ╱4f╱O╱ // 0x3c2 @0xd
0x03b5…03c7 at000e = ╱4e╱N╱ // 0x3c3 @0xe
0x03b5…03c7 at000f = ╱45╱E╱ // 0x3c4 @0xf
0x03b5…03c7 at0010 = ╱52╱R╱ // 0x3c5 @0x10
0x03b5…03c7 at0011 = EOL // 0x3c6 @0x11
0x03b5…03c7 }
0x03c7…03de 99cc 00310 // Standard…variable
0x03c7…03de LineComal80 {
0x03c7…03de ptr = 0x99cc // 0x3c7 @0x0
0x03c7…03de lno = 0x0136 // 0x3c9 @0x2
0x03c7…03de at0004 = ╱89╱ // ╱ // 0x3cb @0x4
0x03c7…03de at0005 = ╱53╱S╱ // 0x3cc @0x5
0x03c7…03de at0006 = ╱74╱t╱ // 0x3cd @0x6
0x03c7…03de at0007 = ╱61╱a╱ // 0x3ce @0x7
0x03c7…03de at0008 = ╱6e╱n╱ // 0x3cf @0x8
0x03c7…03de at0009 = ╱64╱d╱ // 0x3d0 @0x9
0x03c7…03de at000a = ╱61╱a╱ // 0x3d1 @0xa
0x03c7…03de at000b = ╱72╱r╱ // 0x3d2 @0xb
0x03c7…03de at000c = ╱64╱d╱ // 0x3d3 @0xc
0x03c7…03de at000d = ╱20╱…╱ // 0x3d4 @0xd
0x03c7…03de at000e = ╱76╱v╱ // 0x3d5 @0xe
0x03c7…03de at000f = ╱61╱a╱ // 0x3d6 @0xf
0x03c7…03de at0010 = ╱72╱r╱ // 0x3d7 @0x10
0x03c7…03de at0011 = ╱69╱i╱ // 0x3d8 @0x11
0x03c7…03de at0012 = ╱61╱a╱ // 0x3d9 @0x12
0x03c7…03de at0013 = ╱62╱b╱ // 0x3da @0x13
0x03c7…03de at0014 = ╱6c╱l╱ // 0x3db @0x14
0x03c7…03de at0015 = ╱65╱e╱ // 0x3dc @0x15
0x03c7…03de at0016 = EOL // 0x3dd @0x16
0x03c7…03de }
0x03de…041d 9a0b 00320 DIM SPC $ OF 80 , SVAR $ OF 10 , PRGFL $ OF 8 , ALFA $ OF 28 , TAL $ OF 10
0x03de…041d LineComal80 {
0x03de…041d ptr = 0x9a0b // 0x3de @0x0
0x03de…041d lno = 0x0140 // 0x3e0 @0x2
0x03de…041d at0004 = ╱87╱ DIM ╱ // 0x3e2 @0x4
0x03de…041d at0005 = ╱53╱S╱ // 0x3e3 @0x5
0x03de…041d at0006 = ╱50╱P╱ // 0x3e4 @0x6
0x03de…041d at0007 = ╱43╱C╱ // 0x3e5 @0x7
0x03de…041d at0008 = ╱ef╱ $ ╱ // 0x3e6 @0x8
0x03de…041d at0009 = ╱ba╱ OF ╱ // 0x3e7 @0x9
0x03de…041d at000a = ╱38╱8╱ // 0x3e8 @0xa
0x03de…041d at000b = ╱30╱0╱ // 0x3e9 @0xb
0x03de…041d at000c = ╱f25000╱ // 0x3ea @0xc
0x03de…041d at000f = ╱ec╱ , ╱ // 0x3ed @0xf
0x03de…041d at0010 = ╱53╱S╱ // 0x3ee @0x10
0x03de…041d at0011 = ╱56╱V╱ // 0x3ef @0x11
0x03de…041d at0012 = ╱41╱A╱ // 0x3f0 @0x12
0x03de…041d at0013 = ╱52╱R╱ // 0x3f1 @0x13
0x03de…041d at0014 = ╱ef╱ $ ╱ // 0x3f2 @0x14
0x03de…041d at0015 = ╱ba╱ OF ╱ // 0x3f3 @0x15
0x03de…041d at0016 = ╱31╱1╱ // 0x3f4 @0x16
0x03de…041d at0017 = ╱30╱0╱ // 0x3f5 @0x17
0x03de…041d at0018 = ╱f20a00╱ // 0x3f6 @0x18
0x03de…041d at001b = ╱ec╱ , ╱ // 0x3f9 @0x1b
0x03de…041d at001c = ╱50╱P╱ // 0x3fa @0x1c
0x03de…041d at001d = ╱52╱R╱ // 0x3fb @0x1d
0x03de…041d at001e = ╱47╱G╱ // 0x3fc @0x1e
0x03de…041d at001f = ╱46╱F╱ // 0x3fd @0x1f
0x03de…041d at0020 = ╱4c╱L╱ // 0x3fe @0x20
0x03de…041d at0021 = ╱ef╱ $ ╱ // 0x3ff @0x21
0x03de…041d at0022 = ╱ba╱ OF ╱ // 0x400 @0x22
0x03de…041d at0023 = ╱38╱8╱ // 0x401 @0x23
0x03de…041d at0024 = ╱f20800╱ // 0x402 @0x24
0x03de…041d at0027 = ╱ec╱ , ╱ // 0x405 @0x27
0x03de…041d at0028 = ╱41╱A╱ // 0x406 @0x28
0x03de…041d at0029 = ╱4c╱L╱ // 0x407 @0x29
0x03de…041d at002a = ╱46╱F╱ // 0x408 @0x2a
0x03de…041d at002b = ╱41╱A╱ // 0x409 @0x2b
0x03de…041d at002c = ╱ef╱ $ ╱ // 0x40a @0x2c
0x03de…041d at002d = ╱ba╱ OF ╱ // 0x40b @0x2d
0x03de…041d at002e = ╱32╱2╱ // 0x40c @0x2e
0x03de…041d at002f = ╱38╱8╱ // 0x40d @0x2f
0x03de…041d at0030 = ╱f21c00╱ // 0x40e @0x30
0x03de…041d at0033 = ╱ec╱ , ╱ // 0x411 @0x33
0x03de…041d at0034 = ╱54╱T╱ // 0x412 @0x34
0x03de…041d at0035 = ╱41╱A╱ // 0x413 @0x35
0x03de…041d at0036 = ╱4c╱L╱ // 0x414 @0x36
0x03de…041d at0037 = ╱ef╱ $ ╱ // 0x415 @0x37
0x03de…041d at0038 = ╱ba╱ OF ╱ // 0x416 @0x38
0x03de…041d at0039 = ╱31╱1╱ // 0x417 @0x39
0x03de…041d at003a = ╱30╱0╱ // 0x418 @0x3a
0x03de…041d at003b = ╱f20a00╱ // 0x419 @0x3b
0x03de…041d at003e = EOL // 0x41c @0x3e
0x03de…041d }
0x041d…043d 9a2b 00330 DIM PROGRAM $ OF 17 , PRTNR $ OF 1
0x041d…043d LineComal80 {
0x041d…043d ptr = 0x9a2b // 0x41d @0x0
0x041d…043d lno = 0x014a // 0x41f @0x2
0x041d…043d at0004 = ╱87╱ DIM ╱ // 0x421 @0x4
0x041d…043d at0005 = ╱50╱P╱ // 0x422 @0x5
0x041d…043d at0006 = ╱52╱R╱ // 0x423 @0x6
0x041d…043d at0007 = ╱4f╱O╱ // 0x424 @0x7
0x041d…043d at0008 = ╱47╱G╱ // 0x425 @0x8
0x041d…043d at0009 = ╱52╱R╱ // 0x426 @0x9
0x041d…043d at000a = ╱41╱A╱ // 0x427 @0xa
0x041d…043d at000b = ╱4d╱M╱ // 0x428 @0xb
0x041d…043d at000c = ╱ef╱ $ ╱ // 0x429 @0xc
0x041d…043d at000d = ╱ba╱ OF ╱ // 0x42a @0xd
0x041d…043d at000e = ╱31╱1╱ // 0x42b @0xe
0x041d…043d at000f = ╱37╱7╱ // 0x42c @0xf
0x041d…043d at0010 = ╱f21100╱ // 0x42d @0x10
0x041d…043d at0013 = ╱ec╱ , ╱ // 0x430 @0x13
0x041d…043d at0014 = ╱50╱P╱ // 0x431 @0x14
0x041d…043d at0015 = ╱52╱R╱ // 0x432 @0x15
0x041d…043d at0016 = ╱54╱T╱ // 0x433 @0x16
0x041d…043d at0017 = ╱4e╱N╱ // 0x434 @0x17
0x041d…043d at0018 = ╱52╱R╱ // 0x435 @0x18
0x041d…043d at0019 = ╱ef╱ $ ╱ // 0x436 @0x19
0x041d…043d at001a = ╱ba╱ OF ╱ // 0x437 @0x1a
0x041d…043d at001b = ╱31╱1╱ // 0x438 @0x1b
0x041d…043d at001c = ╱f20100╱ // 0x439 @0x1c
0x041d…043d at001f = EOL // 0x43c @0x1f
0x041d…043d }
0x043d…044d 9a3b 00340 REAL RESRV , PPAR
0x043d…044d LineComal80 {
0x043d…044d ptr = 0x9a3b // 0x43d @0x0
0x043d…044d lno = 0x0154 // 0x43f @0x2
0x043d…044d at0004 = ╱b3╱ REAL ╱ // 0x441 @0x4
0x043d…044d at0005 = ╱52╱R╱ // 0x442 @0x5
0x043d…044d at0006 = ╱45╱E╱ // 0x443 @0x6
0x043d…044d at0007 = ╱53╱S╱ // 0x444 @0x7
0x043d…044d at0008 = ╱52╱R╱ // 0x445 @0x8
0x043d…044d at0009 = ╱56╱V╱ // 0x446 @0x9
0x043d…044d at000a = ╱ec╱ , ╱ // 0x447 @0xa
0x043d…044d at000b = ╱50╱P╱ // 0x448 @0xb
0x043d…044d at000c = ╱50╱P╱ // 0x449 @0xc
0x043d…044d at000d = ╱41╱A╱ // 0x44a @0xd
0x043d…044d at000e = ╱52╱R╱ // 0x44b @0xe
0x043d…044d at000f = EOL // 0x44c @0xf
0x043d…044d }
0x044d…0464 9a52 00350 INTEGER OK , TRUE , FALSE , I , J
0x044d…0464 LineComal80 {
0x044d…0464 ptr = 0x9a52 // 0x44d @0x0
0x044d…0464 lno = 0x015e // 0x44f @0x2
0x044d…0464 at0004 = ╱b2╱ INTEGER ╱ // 0x451 @0x4
0x044d…0464 at0005 = ╱4f╱O╱ // 0x452 @0x5
0x044d…0464 at0006 = ╱4b╱K╱ // 0x453 @0x6
0x044d…0464 at0007 = ╱ec╱ , ╱ // 0x454 @0x7
0x044d…0464 at0008 = ╱54╱T╱ // 0x455 @0x8
0x044d…0464 at0009 = ╱52╱R╱ // 0x456 @0x9
0x044d…0464 at000a = ╱55╱U╱ // 0x457 @0xa
0x044d…0464 at000b = ╱45╱E╱ // 0x458 @0xb
0x044d…0464 at000c = ╱ec╱ , ╱ // 0x459 @0xc
0x044d…0464 at000d = ╱46╱F╱ // 0x45a @0xd
0x044d…0464 at000e = ╱41╱A╱ // 0x45b @0xe
0x044d…0464 at000f = ╱4c╱L╱ // 0x45c @0xf
0x044d…0464 at0010 = ╱53╱S╱ // 0x45d @0x10
0x044d…0464 at0011 = ╱45╱E╱ // 0x45e @0x11
0x044d…0464 at0012 = ╱ec╱ , ╱ // 0x45f @0x12
0x044d…0464 at0013 = ╱49╱I╱ // 0x460 @0x13
0x044d…0464 at0014 = ╱ec╱ , ╱ // 0x461 @0x14
0x044d…0464 at0015 = ╱4a╱J╱ // 0x462 @0x15
0x044d…0464 at0016 = EOL // 0x463 @0x16
0x044d…0464 }
0x0464…0478 9a66 00360 // Hj{lpevariable
0x0464…0478 LineComal80 {
0x0464…0478 ptr = 0x9a66 // 0x464 @0x0
0x0464…0478 lno = 0x0168 // 0x466 @0x2
0x0464…0478 at0004 = ╱89╱ // ╱ // 0x468 @0x4
0x0464…0478 at0005 = ╱48╱H╱ // 0x469 @0x5
0x0464…0478 at0006 = ╱6a╱j╱ // 0x46a @0x6
0x0464…0478 at0007 = ╱7b╱{╱ // 0x46b @0x7
0x0464…0478 at0008 = ╱6c╱l╱ // 0x46c @0x8
0x0464…0478 at0009 = ╱70╱p╱ // 0x46d @0x9
0x0464…0478 at000a = ╱65╱e╱ // 0x46e @0xa
0x0464…0478 at000b = ╱76╱v╱ // 0x46f @0xb
0x0464…0478 at000c = ╱61╱a╱ // 0x470 @0xc
0x0464…0478 at000d = ╱72╱r╱ // 0x471 @0xd
0x0464…0478 at000e = ╱69╱i╱ // 0x472 @0xe
0x0464…0478 at000f = ╱61╱a╱ // 0x473 @0xf
0x0464…0478 at0010 = ╱62╱b╱ // 0x474 @0x10
0x0464…0478 at0011 = ╱6c╱l╱ // 0x475 @0x11
0x0464…0478 at0012 = ╱65╱e╱ // 0x476 @0x12
0x0464…0478 at0013 = EOL // 0x477 @0x13
0x0464…0478 }
0x0478…0499 9a87 00370 DIM A_KTONR $ OF 8 , OUT_WAY $ OF 1
0x0478…0499 LineComal80 {
0x0478…0499 ptr = 0x9a87 // 0x478 @0x0
0x0478…0499 lno = 0x0172 // 0x47a @0x2
0x0478…0499 at0004 = ╱87╱ DIM ╱ // 0x47c @0x4
0x0478…0499 at0005 = ╱41╱A╱ // 0x47d @0x5
0x0478…0499 at0006 = ╱5f╱_╱ // 0x47e @0x6
0x0478…0499 at0007 = ╱4b╱K╱ // 0x47f @0x7
0x0478…0499 at0008 = ╱54╱T╱ // 0x480 @0x8
0x0478…0499 at0009 = ╱4f╱O╱ // 0x481 @0x9
0x0478…0499 at000a = ╱4e╱N╱ // 0x482 @0xa
0x0478…0499 at000b = ╱52╱R╱ // 0x483 @0xb
0x0478…0499 at000c = ╱ef╱ $ ╱ // 0x484 @0xc
0x0478…0499 at000d = ╱ba╱ OF ╱ // 0x485 @0xd
0x0478…0499 at000e = ╱38╱8╱ // 0x486 @0xe
0x0478…0499 at000f = ╱f20800╱ // 0x487 @0xf
0x0478…0499 at0012 = ╱ec╱ , ╱ // 0x48a @0x12
0x0478…0499 at0013 = ╱4f╱O╱ // 0x48b @0x13
0x0478…0499 at0014 = ╱55╱U╱ // 0x48c @0x14
0x0478…0499 at0015 = ╱54╱T╱ // 0x48d @0x15
0x0478…0499 at0016 = ╱5f╱_╱ // 0x48e @0x16
0x0478…0499 at0017 = ╱57╱W╱ // 0x48f @0x17
0x0478…0499 at0018 = ╱41╱A╱ // 0x490 @0x18
0x0478…0499 at0019 = ╱59╱Y╱ // 0x491 @0x19
0x0478…0499 at001a = ╱ef╱ $ ╱ // 0x492 @0x1a
0x0478…0499 at001b = ╱ba╱ OF ╱ // 0x493 @0x1b
0x0478…0499 at001c = ╱31╱1╱ // 0x494 @0x1c
0x0478…0499 at001d = ╱f20100╱ // 0x495 @0x1d
0x0478…0499 at0020 = EOL // 0x498 @0x20
0x0478…0499 }
0x0499…04a8 9a96 00380 REAL TOT ( 2 )
0x0499…04a8 LineComal80 {
0x0499…04a8 ptr = 0x9a96 // 0x499 @0x0
0x0499…04a8 lno = 0x017c // 0x49b @0x2
0x0499…04a8 at0004 = ╱b3╱ REAL ╱ // 0x49d @0x4
0x0499…04a8 at0005 = ╱54╱T╱ // 0x49e @0x5
0x0499…04a8 at0006 = ╱4f╱O╱ // 0x49f @0x6
0x0499…04a8 at0007 = ╱54╱T╱ // 0x4a0 @0x7
0x0499…04a8 at0008 = ╱ed╱ ( ╱ // 0x4a1 @0x8
0x0499…04a8 at0009 = ╱32╱2╱ // 0x4a2 @0x9
0x0499…04a8 at000a = ╱f20200╱ // 0x4a3 @0xa
0x0499…04a8 at000d = ╱ee╱ ) ╱ // 0x4a6 @0xd
0x0499…04a8 at000e = EOL // 0x4a7 @0xe
0x0499…04a8 }
0x04a8…04ea 9ad8 00390 INTEGER IDXPOS , HIGH , LOW , KREDIT , DEBET , LIN_T , MAX_LIN , T_IDX , K , NUL , F_IDX
0x04a8…04ea LineComal80 {
0x04a8…04ea ptr = 0x9ad8 // 0x4a8 @0x0
0x04a8…04ea lno = 0x0186 // 0x4aa @0x2
0x04a8…04ea at0004 = ╱b2╱ INTEGER ╱ // 0x4ac @0x4
0x04a8…04ea at0005 = ╱49╱I╱ // 0x4ad @0x5
0x04a8…04ea at0006 = ╱44╱D╱ // 0x4ae @0x6
0x04a8…04ea at0007 = ╱58╱X╱ // 0x4af @0x7
0x04a8…04ea at0008 = ╱50╱P╱ // 0x4b0 @0x8
0x04a8…04ea at0009 = ╱4f╱O╱ // 0x4b1 @0x9
0x04a8…04ea at000a = ╱53╱S╱ // 0x4b2 @0xa
0x04a8…04ea at000b = ╱ec╱ , ╱ // 0x4b3 @0xb
0x04a8…04ea at000c = ╱48╱H╱ // 0x4b4 @0xc
0x04a8…04ea at000d = ╱49╱I╱ // 0x4b5 @0xd
0x04a8…04ea at000e = ╱47╱G╱ // 0x4b6 @0xe
0x04a8…04ea at000f = ╱48╱H╱ // 0x4b7 @0xf
0x04a8…04ea at0010 = ╱ec╱ , ╱ // 0x4b8 @0x10
0x04a8…04ea at0011 = ╱4c╱L╱ // 0x4b9 @0x11
0x04a8…04ea at0012 = ╱4f╱O╱ // 0x4ba @0x12
0x04a8…04ea at0013 = ╱57╱W╱ // 0x4bb @0x13
0x04a8…04ea at0014 = ╱ec╱ , ╱ // 0x4bc @0x14
0x04a8…04ea at0015 = ╱4b╱K╱ // 0x4bd @0x15
0x04a8…04ea at0016 = ╱52╱R╱ // 0x4be @0x16
0x04a8…04ea at0017 = ╱45╱E╱ // 0x4bf @0x17
0x04a8…04ea at0018 = ╱44╱D╱ // 0x4c0 @0x18
0x04a8…04ea at0019 = ╱49╱I╱ // 0x4c1 @0x19
0x04a8…04ea at001a = ╱54╱T╱ // 0x4c2 @0x1a
0x04a8…04ea at001b = ╱ec╱ , ╱ // 0x4c3 @0x1b
0x04a8…04ea at001c = ╱44╱D╱ // 0x4c4 @0x1c
0x04a8…04ea at001d = ╱45╱E╱ // 0x4c5 @0x1d
0x04a8…04ea at001e = ╱42╱B╱ // 0x4c6 @0x1e
0x04a8…04ea at001f = ╱45╱E╱ // 0x4c7 @0x1f
0x04a8…04ea at0020 = ╱54╱T╱ // 0x4c8 @0x20
0x04a8…04ea at0021 = ╱ec╱ , ╱ // 0x4c9 @0x21
0x04a8…04ea at0022 = ╱4c╱L╱ // 0x4ca @0x22
0x04a8…04ea at0023 = ╱49╱I╱ // 0x4cb @0x23
0x04a8…04ea at0024 = ╱4e╱N╱ // 0x4cc @0x24
0x04a8…04ea at0025 = ╱5f╱_╱ // 0x4cd @0x25
0x04a8…04ea at0026 = ╱54╱T╱ // 0x4ce @0x26
0x04a8…04ea at0027 = ╱ec╱ , ╱ // 0x4cf @0x27
0x04a8…04ea at0028 = ╱4d╱M╱ // 0x4d0 @0x28
0x04a8…04ea at0029 = ╱41╱A╱ // 0x4d1 @0x29
0x04a8…04ea at002a = ╱58╱X╱ // 0x4d2 @0x2a
0x04a8…04ea at002b = ╱5f╱_╱ // 0x4d3 @0x2b
0x04a8…04ea at002c = ╱4c╱L╱ // 0x4d4 @0x2c
0x04a8…04ea at002d = ╱49╱I╱ // 0x4d5 @0x2d
0x04a8…04ea at002e = ╱4e╱N╱ // 0x4d6 @0x2e
0x04a8…04ea at002f = ╱ec╱ , ╱ // 0x4d7 @0x2f
0x04a8…04ea at0030 = ╱54╱T╱ // 0x4d8 @0x30
0x04a8…04ea at0031 = ╱5f╱_╱ // 0x4d9 @0x31
0x04a8…04ea at0032 = ╱49╱I╱ // 0x4da @0x32
0x04a8…04ea at0033 = ╱44╱D╱ // 0x4db @0x33
0x04a8…04ea at0034 = ╱58╱X╱ // 0x4dc @0x34
0x04a8…04ea at0035 = ╱ec╱ , ╱ // 0x4dd @0x35
0x04a8…04ea at0036 = ╱4b╱K╱ // 0x4de @0x36
0x04a8…04ea at0037 = ╱ec╱ , ╱ // 0x4df @0x37
0x04a8…04ea at0038 = ╱4e╱N╱ // 0x4e0 @0x38
0x04a8…04ea at0039 = ╱55╱U╱ // 0x4e1 @0x39
0x04a8…04ea at003a = ╱4c╱L╱ // 0x4e2 @0x3a
0x04a8…04ea at003b = ╱ec╱ , ╱ // 0x4e3 @0x3b
0x04a8…04ea at003c = ╱46╱F╱ // 0x4e4 @0x3c
0x04a8…04ea at003d = ╱5f╱_╱ // 0x4e5 @0x3d
0x04a8…04ea at003e = ╱49╱I╱ // 0x4e6 @0x3e
0x04a8…04ea at003f = ╱44╱D╱ // 0x4e7 @0x3f
0x04a8…04ea at0040 = ╱58╱X╱ // 0x4e8 @0x40
0x04a8…04ea at0041 = EOL // 0x4e9 @0x41
0x04a8…04ea }
0x04ea…04f6 9ae4 00400 INTEGER SIDENR
0x04ea…04f6 LineComal80 {
0x04ea…04f6 ptr = 0x9ae4 // 0x4ea @0x0
0x04ea…04f6 lno = 0x0190 // 0x4ec @0x2
0x04ea…04f6 at0004 = ╱b2╱ INTEGER ╱ // 0x4ee @0x4
0x04ea…04f6 at0005 = ╱53╱S╱ // 0x4ef @0x5
0x04ea…04f6 at0006 = ╱49╱I╱ // 0x4f0 @0x6
0x04ea…04f6 at0007 = ╱44╱D╱ // 0x4f1 @0x7
0x04ea…04f6 at0008 = ╱45╱E╱ // 0x4f2 @0x8
0x04ea…04f6 at0009 = ╱4e╱N╱ // 0x4f3 @0x9
0x04ea…04f6 at000a = ╱52╱R╱ // 0x4f4 @0xa
0x04ea…04f6 at000b = EOL // 0x4f5 @0xb
0x04ea…04f6 }
0x04f6…0516 9b04 00410 // Variable…til…filen…SYSPARA
0x04f6…0516 LineComal80 {
0x04f6…0516 ptr = 0x9b04 // 0x4f6 @0x0
0x04f6…0516 lno = 0x019a // 0x4f8 @0x2
0x04f6…0516 at0004 = ╱89╱ // ╱ // 0x4fa @0x4
0x04f6…0516 at0005 = ╱56╱V╱ // 0x4fb @0x5
0x04f6…0516 at0006 = ╱61╱a╱ // 0x4fc @0x6
0x04f6…0516 at0007 = ╱72╱r╱ // 0x4fd @0x7
0x04f6…0516 at0008 = ╱69╱i╱ // 0x4fe @0x8
0x04f6…0516 at0009 = ╱61╱a╱ // 0x4ff @0x9
0x04f6…0516 at000a = ╱62╱b╱ // 0x500 @0xa
0x04f6…0516 at000b = ╱6c╱l╱ // 0x501 @0xb
0x04f6…0516 at000c = ╱65╱e╱ // 0x502 @0xc
0x04f6…0516 at000d = ╱20╱…╱ // 0x503 @0xd
0x04f6…0516 at000e = ╱74╱t╱ // 0x504 @0xe
0x04f6…0516 at000f = ╱69╱i╱ // 0x505 @0xf
0x04f6…0516 at0010 = ╱6c╱l╱ // 0x506 @0x10
0x04f6…0516 at0011 = ╱20╱…╱ // 0x507 @0x11
0x04f6…0516 at0012 = ╱66╱f╱ // 0x508 @0x12
0x04f6…0516 at0013 = ╱69╱i╱ // 0x509 @0x13
0x04f6…0516 at0014 = ╱6c╱l╱ // 0x50a @0x14
0x04f6…0516 at0015 = ╱65╱e╱ // 0x50b @0x15
0x04f6…0516 at0016 = ╱6e╱n╱ // 0x50c @0x16
0x04f6…0516 at0017 = ╱20╱…╱ // 0x50d @0x17
0x04f6…0516 at0018 = ╱53╱S╱ // 0x50e @0x18
0x04f6…0516 at0019 = ╱59╱Y╱ // 0x50f @0x19
0x04f6…0516 at001a = ╱53╱S╱ // 0x510 @0x1a
0x04f6…0516 at001b = ╱50╱P╱ // 0x511 @0x1b
0x04f6…0516 at001c = ╱41╱A╱ // 0x512 @0x1c
0x04f6…0516 at001d = ╱52╱R╱ // 0x513 @0x1d
0x04f6…0516 at001e = ╱41╱A╱ // 0x514 @0x1e
0x04f6…0516 at001f = EOL // 0x515 @0x1f
0x04f6…0516 }
0x0516…052a 9b18 00420 DIM SYSPARA $ OF 17
0x0516…052a LineComal80 {
0x0516…052a ptr = 0x9b18 // 0x516 @0x0
0x0516…052a lno = 0x01a4 // 0x518 @0x2
0x0516…052a at0004 = ╱87╱ DIM ╱ // 0x51a @0x4
0x0516…052a at0005 = ╱53╱S╱ // 0x51b @0x5
0x0516…052a at0006 = ╱59╱Y╱ // 0x51c @0x6
0x0516…052a at0007 = ╱53╱S╱ // 0x51d @0x7
0x0516…052a at0008 = ╱50╱P╱ // 0x51e @0x8
0x0516…052a at0009 = ╱41╱A╱ // 0x51f @0x9
0x0516…052a at000a = ╱52╱R╱ // 0x520 @0xa
0x0516…052a at000b = ╱41╱A╱ // 0x521 @0xb
0x0516…052a at000c = ╱ef╱ $ ╱ // 0x522 @0xc
0x0516…052a at000d = ╱ba╱ OF ╱ // 0x523 @0xd
0x0516…052a at000e = ╱31╱1╱ // 0x524 @0xe
0x0516…052a at000f = ╱37╱7╱ // 0x525 @0xf
0x0516…052a at0010 = ╱f21100╱ // 0x526 @0x10
0x0516…052a at0013 = EOL // 0x529 @0x13
0x0516…052a }
0x052a…054d 9b3b 00430 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
0x052a…054d LineComal80 {
0x052a…054d ptr = 0x9b3b // 0x52a @0x0
0x052a…054d lno = 0x01ae // 0x52c @0x2
0x052a…054d at0004 = ╱87╱ DIM ╱ // 0x52e @0x4
0x052a…054d at0005 = ╱53╱S╱ // 0x52f @0x5
0x052a…054d at0006 = ╱59╱Y╱ // 0x530 @0x6
0x052a…054d at0007 = ╱53╱S╱ // 0x531 @0x7
0x052a…054d at0008 = ╱54╱T╱ // 0x532 @0x8
0x052a…054d at0009 = ╱5f╱_╱ // 0x533 @0x9
0x052a…054d at000a = ╱4e╱N╱ // 0x534 @0xa
0x052a…054d at000b = ╱41╱A╱ // 0x535 @0xb
0x052a…054d at000c = ╱56╱V╱ // 0x536 @0xc
0x052a…054d at000d = ╱4e╱N╱ // 0x537 @0xd
0x052a…054d at000e = ╱ef╱ $ ╱ // 0x538 @0xe
0x052a…054d at000f = ╱ba╱ OF ╱ // 0x539 @0xf
0x052a…054d at0010 = ╱33╱3╱ // 0x53a @0x10
0x052a…054d at0011 = ╱30╱0╱ // 0x53b @0x11
0x052a…054d at0012 = ╱f21e00╱ // 0x53c @0x12
0x052a…054d at0015 = ╱ec╱ , ╱ // 0x53f @0x15
0x052a…054d at0016 = ╱53╱S╱ // 0x540 @0x16
0x052a…054d at0017 = ╱5f╱_╱ // 0x541 @0x17
0x052a…054d at0018 = ╱4b╱K╱ // 0x542 @0x18
0x052a…054d at0019 = ╱4f╱O╱ // 0x543 @0x19
0x052a…054d at001a = ╱44╱D╱ // 0x544 @0x1a
0x052a…054d at001b = ╱45╱E╱ // 0x545 @0x1b
0x052a…054d at001c = ╱ef╱ $ ╱ // 0x546 @0x1c
0x052a…054d at001d = ╱ba╱ OF ╱ // 0x547 @0x1d
0x052a…054d at001e = ╱31╱1╱ // 0x548 @0x1e
0x052a…054d at001f = ╱f20100╱ // 0x549 @0x1f
0x052a…054d at0022 = EOL // 0x54c @0x22
0x052a…054d }
0x054d…056c 9b5a 00440 DIM DATAFL $ OF 8 , T_KODE $ OF 1
0x054d…056c LineComal80 {
0x054d…056c ptr = 0x9b5a // 0x54d @0x0
0x054d…056c lno = 0x01b8 // 0x54f @0x2
0x054d…056c at0004 = ╱87╱ DIM ╱ // 0x551 @0x4
0x054d…056c at0005 = ╱44╱D╱ // 0x552 @0x5
0x054d…056c at0006 = ╱41╱A╱ // 0x553 @0x6
0x054d…056c at0007 = ╱54╱T╱ // 0x554 @0x7
0x054d…056c at0008 = ╱41╱A╱ // 0x555 @0x8
0x054d…056c at0009 = ╱46╱F╱ // 0x556 @0x9
0x054d…056c at000a = ╱4c╱L╱ // 0x557 @0xa
0x054d…056c at000b = ╱ef╱ $ ╱ // 0x558 @0xb
0x054d…056c at000c = ╱ba╱ OF ╱ // 0x559 @0xc
0x054d…056c at000d = ╱38╱8╱ // 0x55a @0xd
0x054d…056c at000e = ╱f20800╱ // 0x55b @0xe
0x054d…056c at0011 = ╱ec╱ , ╱ // 0x55e @0x11
0x054d…056c at0012 = ╱54╱T╱ // 0x55f @0x12
0x054d…056c at0013 = ╱5f╱_╱ // 0x560 @0x13
0x054d…056c at0014 = ╱4b╱K╱ // 0x561 @0x14
0x054d…056c at0015 = ╱4f╱O╱ // 0x562 @0x15
0x054d…056c at0016 = ╱44╱D╱ // 0x563 @0x16
0x054d…056c at0017 = ╱45╱E╱ // 0x564 @0x17
0x054d…056c at0018 = ╱ef╱ $ ╱ // 0x565 @0x18
0x054d…056c at0019 = ╱ba╱ OF ╱ // 0x566 @0x19
0x054d…056c at001a = ╱31╱1╱ // 0x567 @0x1a
0x054d…056c at001b = ╱f20100╱ // 0x568 @0x1b
0x054d…056c at001e = EOL // 0x56b @0x1e
0x054d…056c }
0x056c…058c 9b7a 00450 // Variable…til…filen…@@PARAM
0x056c…058c LineComal80 {
0x056c…058c ptr = 0x9b7a // 0x56c @0x0
0x056c…058c lno = 0x01c2 // 0x56e @0x2
0x056c…058c at0004 = ╱89╱ // ╱ // 0x570 @0x4
0x056c…058c at0005 = ╱56╱V╱ // 0x571 @0x5
0x056c…058c at0006 = ╱61╱a╱ // 0x572 @0x6
0x056c…058c at0007 = ╱72╱r╱ // 0x573 @0x7
0x056c…058c at0008 = ╱69╱i╱ // 0x574 @0x8
0x056c…058c at0009 = ╱61╱a╱ // 0x575 @0x9
0x056c…058c at000a = ╱62╱b╱ // 0x576 @0xa
0x056c…058c at000b = ╱6c╱l╱ // 0x577 @0xb
0x056c…058c at000c = ╱65╱e╱ // 0x578 @0xc
0x056c…058c at000d = ╱20╱…╱ // 0x579 @0xd
0x056c…058c at000e = ╱74╱t╱ // 0x57a @0xe
0x056c…058c at000f = ╱69╱i╱ // 0x57b @0xf
0x056c…058c at0010 = ╱6c╱l╱ // 0x57c @0x10
0x056c…058c at0011 = ╱20╱…╱ // 0x57d @0x11
0x056c…058c at0012 = ╱66╱f╱ // 0x57e @0x12
0x056c…058c at0013 = ╱69╱i╱ // 0x57f @0x13
0x056c…058c at0014 = ╱6c╱l╱ // 0x580 @0x14
0x056c…058c at0015 = ╱65╱e╱ // 0x581 @0x15
0x056c…058c at0016 = ╱6e╱n╱ // 0x582 @0x16
0x056c…058c at0017 = ╱20╱…╱ // 0x583 @0x17
0x056c…058c at0018 = ╱40╱@╱ // 0x584 @0x18
0x056c…058c at0019 = ╱40╱@╱ // 0x585 @0x19
0x056c…058c at001a = ╱50╱P╱ // 0x586 @0x1a
0x056c…058c at001b = ╱41╱A╱ // 0x587 @0x1b
0x056c…058c at001c = ╱52╱R╱ // 0x588 @0x1c
0x056c…058c at001d = ╱41╱A╱ // 0x589 @0x1d
0x056c…058c at001e = ╱4d╱M╱ // 0x58a @0x1e
0x056c…058c at001f = EOL // 0x58b @0x1f
0x056c…058c }
0x058c…059e 9b8c 00460 DIM PARAM $ OF 17
0x058c…059e LineComal80 {
0x058c…059e ptr = 0x9b8c // 0x58c @0x0
0x058c…059e lno = 0x01cc // 0x58e @0x2
0x058c…059e at0004 = ╱87╱ DIM ╱ // 0x590 @0x4
0x058c…059e at0005 = ╱50╱P╱ // 0x591 @0x5
0x058c…059e at0006 = ╱41╱A╱ // 0x592 @0x6
0x058c…059e at0007 = ╱52╱R╱ // 0x593 @0x7
0x058c…059e at0008 = ╱41╱A╱ // 0x594 @0x8
0x058c…059e at0009 = ╱4d╱M╱ // 0x595 @0x9
0x058c…059e at000a = ╱ef╱ $ ╱ // 0x596 @0xa
0x058c…059e at000b = ╱ba╱ OF ╱ // 0x597 @0xb
0x058c…059e at000c = ╱31╱1╱ // 0x598 @0xc
0x058c…059e at000d = ╱37╱7╱ // 0x599 @0xd
0x058c…059e at000e = ╱f21100╱ // 0x59a @0xe
0x058c…059e at0011 = EOL // 0x59d @0x11
0x058c…059e }
0x059e…05c3 9bb1 00470 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 6
0x059e…05c3 LineComal80 {
0x059e…05c3 ptr = 0x9bb1 // 0x59e @0x0
0x059e…05c3 lno = 0x01d6 // 0x5a0 @0x2
0x059e…05c3 at0004 = ╱87╱ DIM ╱ // 0x5a2 @0x4
0x059e…05c3 at0005 = ╱46╱F╱ // 0x5a3 @0x5
0x059e…05c3 at0006 = ╱49╱I╱ // 0x5a4 @0x6
0x059e…05c3 at0007 = ╱52╱R╱ // 0x5a5 @0x7
0x059e…05c3 at0008 = ╱4d╱M╱ // 0x5a6 @0x8
0x059e…05c3 at0009 = ╱41╱A╱ // 0x5a7 @0x9
0x059e…05c3 at000a = ╱4e╱N╱ // 0x5a8 @0xa
0x059e…05c3 at000b = ╱41╱A╱ // 0x5a9 @0xb
0x059e…05c3 at000c = ╱56╱V╱ // 0x5aa @0xc
0x059e…05c3 at000d = ╱4e╱N╱ // 0x5ab @0xd
0x059e…05c3 at000e = ╱ef╱ $ ╱ // 0x5ac @0xe
0x059e…05c3 at000f = ╱ba╱ OF ╱ // 0x5ad @0xf
0x059e…05c3 at0010 = ╱33╱3╱ // 0x5ae @0x10
0x059e…05c3 at0011 = ╱30╱0╱ // 0x5af @0x11
0x059e…05c3 at0012 = ╱f21e00╱ // 0x5b0 @0x12
0x059e…05c3 at0015 = ╱ec╱ , ╱ // 0x5b3 @0x15
0x059e…05c3 at0016 = ╱53╱S╱ // 0x5b4 @0x16
0x059e…05c3 at0017 = ╱59╱Y╱ // 0x5b5 @0x17
0x059e…05c3 at0018 = ╱53╱S╱ // 0x5b6 @0x18
0x059e…05c3 at0019 = ╱54╱T╱ // 0x5b7 @0x19
0x059e…05c3 at001a = ╱5f╱_╱ // 0x5b8 @0x1a
0x059e…05c3 at001b = ╱44╱D╱ // 0x5b9 @0x1b
0x059e…05c3 at001c = ╱41╱A╱ // 0x5ba @0x1c
0x059e…05c3 at001d = ╱54╱T╱ // 0x5bb @0x1d
0x059e…05c3 at001e = ╱ef╱ $ ╱ // 0x5bc @0x1e
0x059e…05c3 at001f = ╱ba╱ OF ╱ // 0x5bd @0x1f
0x059e…05c3 at0020 = ╱36╱6╱ // 0x5be @0x20
0x059e…05c3 at0021 = ╱f20600╱ // 0x5bf @0x21
0x059e…05c3 at0024 = EOL // 0x5c2 @0x24
0x059e…05c3 }
0x05c3…05cd 9bbb 00480 REAL MOMS
0x05c3…05cd LineComal80 {
0x05c3…05cd ptr = 0x9bbb // 0x5c3 @0x0
0x05c3…05cd lno = 0x01e0 // 0x5c5 @0x2
0x05c3…05cd at0004 = ╱b3╱ REAL ╱ // 0x5c7 @0x4
0x05c3…05cd at0005 = ╱4d╱M╱ // 0x5c8 @0x5
0x05c3…05cd at0006 = ╱4f╱O╱ // 0x5c9 @0x6
0x05c3…05cd at0007 = ╱4d╱M╱ // 0x5ca @0x7
0x05c3…05cd at0008 = ╱53╱S╱ // 0x5cb @0x8
0x05c3…05cd at0009 = EOL // 0x5cc @0x9
0x05c3…05cd }
0x05cd…05e0 9bce 00490 DIM ST_DATO $ OF 6
0x05cd…05e0 LineComal80 {
0x05cd…05e0 ptr = 0x9bce // 0x5cd @0x0
0x05cd…05e0 lno = 0x01ea // 0x5cf @0x2
0x05cd…05e0 at0004 = ╱87╱ DIM ╱ // 0x5d1 @0x4
0x05cd…05e0 at0005 = ╱53╱S╱ // 0x5d2 @0x5
0x05cd…05e0 at0006 = ╱54╱T╱ // 0x5d3 @0x6
0x05cd…05e0 at0007 = ╱5f╱_╱ // 0x5d4 @0x7
0x05cd…05e0 at0008 = ╱44╱D╱ // 0x5d5 @0x8
0x05cd…05e0 at0009 = ╱41╱A╱ // 0x5d6 @0x9
0x05cd…05e0 at000a = ╱54╱T╱ // 0x5d7 @0xa
0x05cd…05e0 at000b = ╱4f╱O╱ // 0x5d8 @0xb
0x05cd…05e0 at000c = ╱ef╱ $ ╱ // 0x5d9 @0xc
0x05cd…05e0 at000d = ╱ba╱ OF ╱ // 0x5da @0xd
0x05cd…05e0 at000e = ╱36╱6╱ // 0x5db @0xe
0x05cd…05e0 at000f = ╱f20600╱ // 0x5dc @0xf
0x05cd…05e0 at0012 = EOL // 0x5df @0x12
0x05cd…05e0 }
0x05e0…05f4 9be2 00500 INTEGER ANT_PER , PER_NR
0x05e0…05f4 LineComal80 {
0x05e0…05f4 ptr = 0x9be2 // 0x5e0 @0x0
0x05e0…05f4 lno = 0x01f4 // 0x5e2 @0x2
0x05e0…05f4 at0004 = ╱b2╱ INTEGER ╱ // 0x5e4 @0x4
0x05e0…05f4 at0005 = ╱41╱A╱ // 0x5e5 @0x5
0x05e0…05f4 at0006 = ╱4e╱N╱ // 0x5e6 @0x6
0x05e0…05f4 at0007 = ╱54╱T╱ // 0x5e7 @0x7
0x05e0…05f4 at0008 = ╱5f╱_╱ // 0x5e8 @0x8
0x05e0…05f4 at0009 = ╱50╱P╱ // 0x5e9 @0x9
0x05e0…05f4 at000a = ╱45╱E╱ // 0x5ea @0xa
0x05e0…05f4 at000b = ╱52╱R╱ // 0x5eb @0xb
0x05e0…05f4 at000c = ╱ec╱ , ╱ // 0x5ec @0xc
0x05e0…05f4 at000d = ╱50╱P╱ // 0x5ed @0xd
0x05e0…05f4 at000e = ╱45╱E╱ // 0x5ee @0xe
0x05e0…05f4 at000f = ╱52╱R╱ // 0x5ef @0xf
0x05e0…05f4 at0010 = ╱5f╱_╱ // 0x5f0 @0x10
0x05e0…05f4 at0011 = ╱4e╱N╱ // 0x5f1 @0x11
0x05e0…05f4 at0012 = ╱52╱R╱ // 0x5f2 @0x12
0x05e0…05f4 at0013 = EOL // 0x5f3 @0x13
0x05e0…05f4 }
0x05f4…0614 9c02 00510 // Variable…til…filen…@@KONTO
0x05f4…0614 LineComal80 {
0x05f4…0614 ptr = 0x9c02 // 0x5f4 @0x0
0x05f4…0614 lno = 0x01fe // 0x5f6 @0x2
0x05f4…0614 at0004 = ╱89╱ // ╱ // 0x5f8 @0x4
0x05f4…0614 at0005 = ╱56╱V╱ // 0x5f9 @0x5
0x05f4…0614 at0006 = ╱61╱a╱ // 0x5fa @0x6
0x05f4…0614 at0007 = ╱72╱r╱ // 0x5fb @0x7
0x05f4…0614 at0008 = ╱69╱i╱ // 0x5fc @0x8
0x05f4…0614 at0009 = ╱61╱a╱ // 0x5fd @0x9
0x05f4…0614 at000a = ╱62╱b╱ // 0x5fe @0xa
0x05f4…0614 at000b = ╱6c╱l╱ // 0x5ff @0xb
0x05f4…0614 at000c = ╱65╱e╱ // 0x600 @0xc
0x05f4…0614 at000d = ╱20╱…╱ // 0x601 @0xd
0x05f4…0614 at000e = ╱74╱t╱ // 0x602 @0xe
0x05f4…0614 at000f = ╱69╱i╱ // 0x603 @0xf
0x05f4…0614 at0010 = ╱6c╱l╱ // 0x604 @0x10
0x05f4…0614 at0011 = ╱20╱…╱ // 0x605 @0x11
0x05f4…0614 at0012 = ╱66╱f╱ // 0x606 @0x12
0x05f4…0614 at0013 = ╱69╱i╱ // 0x607 @0x13
0x05f4…0614 at0014 = ╱6c╱l╱ // 0x608 @0x14
0x05f4…0614 at0015 = ╱65╱e╱ // 0x609 @0x15
0x05f4…0614 at0016 = ╱6e╱n╱ // 0x60a @0x16
0x05f4…0614 at0017 = ╱20╱…╱ // 0x60b @0x17
0x05f4…0614 at0018 = ╱40╱@╱ // 0x60c @0x18
0x05f4…0614 at0019 = ╱40╱@╱ // 0x60d @0x19
0x05f4…0614 at001a = ╱4b╱K╱ // 0x60e @0x1a
0x05f4…0614 at001b = ╱4f╱O╱ // 0x60f @0x1b
0x05f4…0614 at001c = ╱4e╱N╱ // 0x610 @0x1c
0x05f4…0614 at001d = ╱54╱T╱ // 0x611 @0x1d
0x05f4…0614 at001e = ╱4f╱O╱ // 0x612 @0x1e
0x05f4…0614 at001f = EOL // 0x613 @0x1f
0x05f4…0614 }
0x0614…0626 9c14 00520 DIM KONTO $ OF 17
0x0614…0626 LineComal80 {
0x0614…0626 ptr = 0x9c14 // 0x614 @0x0
0x0614…0626 lno = 0x0208 // 0x616 @0x2
0x0614…0626 at0004 = ╱87╱ DIM ╱ // 0x618 @0x4
0x0614…0626 at0005 = ╱4b╱K╱ // 0x619 @0x5
0x0614…0626 at0006 = ╱4f╱O╱ // 0x61a @0x6
0x0614…0626 at0007 = ╱4e╱N╱ // 0x61b @0x7
0x0614…0626 at0008 = ╱54╱T╱ // 0x61c @0x8
0x0614…0626 at0009 = ╱4f╱O╱ // 0x61d @0x9
0x0614…0626 at000a = ╱ef╱ $ ╱ // 0x61e @0xa
0x0614…0626 at000b = ╱ba╱ OF ╱ // 0x61f @0xb
0x0614…0626 at000c = ╱31╱1╱ // 0x620 @0xc
0x0614…0626 at000d = ╱37╱7╱ // 0x621 @0xd
0x0614…0626 at000e = ╱f21100╱ // 0x622 @0xe
0x0614…0626 at0011 = EOL // 0x625 @0x11
0x0614…0626 }
0x0626…063d 9c2b 00530 INTEGER N_FRIREC , N_MAXREC
0x0626…063d LineComal80 {
0x0626…063d ptr = 0x9c2b // 0x626 @0x0
0x0626…063d lno = 0x0212 // 0x628 @0x2
0x0626…063d at0004 = ╱b2╱ INTEGER ╱ // 0x62a @0x4
0x0626…063d at0005 = ╱4e╱N╱ // 0x62b @0x5
0x0626…063d at0006 = ╱5f╱_╱ // 0x62c @0x6
0x0626…063d at0007 = ╱46╱F╱ // 0x62d @0x7
0x0626…063d at0008 = ╱52╱R╱ // 0x62e @0x8
0x0626…063d at0009 = ╱49╱I╱ // 0x62f @0x9
0x0626…063d at000a = ╱52╱R╱ // 0x630 @0xa
0x0626…063d at000b = ╱45╱E╱ // 0x631 @0xb
0x0626…063d at000c = ╱43╱C╱ // 0x632 @0xc
0x0626…063d at000d = ╱ec╱ , ╱ // 0x633 @0xd
0x0626…063d at000e = ╱4e╱N╱ // 0x634 @0xe
0x0626…063d at000f = ╱5f╱_╱ // 0x635 @0xf
0x0626…063d at0010 = ╱4d╱M╱ // 0x636 @0x10
0x0626…063d at0011 = ╱41╱A╱ // 0x637 @0x11
0x0626…063d at0012 = ╱58╱X╱ // 0x638 @0x12
0x0626…063d at0013 = ╱52╱R╱ // 0x639 @0x13
0x0626…063d at0014 = ╱45╱E╱ // 0x63a @0x14
0x0626…063d at0015 = ╱43╱C╱ // 0x63b @0x15
0x0626…063d at0016 = EOL // 0x63c @0x16
0x0626…063d }
0x063d…0661 9c4f 00540 DIM KTO_TYPE $ OF 1 , KTO_NAVN $ OF 40
0x063d…0661 LineComal80 {
0x063d…0661 ptr = 0x9c4f // 0x63d @0x0
0x063d…0661 lno = 0x021c // 0x63f @0x2
0x063d…0661 at0004 = ╱87╱ DIM ╱ // 0x641 @0x4
0x063d…0661 at0005 = ╱4b╱K╱ // 0x642 @0x5
0x063d…0661 at0006 = ╱54╱T╱ // 0x643 @0x6
0x063d…0661 at0007 = ╱4f╱O╱ // 0x644 @0x7
0x063d…0661 at0008 = ╱5f╱_╱ // 0x645 @0x8
0x063d…0661 at0009 = ╱54╱T╱ // 0x646 @0x9
0x063d…0661 at000a = ╱59╱Y╱ // 0x647 @0xa
0x063d…0661 at000b = ╱50╱P╱ // 0x648 @0xb
0x063d…0661 at000c = ╱45╱E╱ // 0x649 @0xc
0x063d…0661 at000d = ╱ef╱ $ ╱ // 0x64a @0xd
0x063d…0661 at000e = ╱ba╱ OF ╱ // 0x64b @0xe
0x063d…0661 at000f = ╱31╱1╱ // 0x64c @0xf
0x063d…0661 at0010 = ╱f20100╱ // 0x64d @0x10
0x063d…0661 at0013 = ╱ec╱ , ╱ // 0x650 @0x13
0x063d…0661 at0014 = ╱4b╱K╱ // 0x651 @0x14
0x063d…0661 at0015 = ╱54╱T╱ // 0x652 @0x15
0x063d…0661 at0016 = ╱4f╱O╱ // 0x653 @0x16
0x063d…0661 at0017 = ╱5f╱_╱ // 0x654 @0x17
0x063d…0661 at0018 = ╱4e╱N╱ // 0x655 @0x18
0x063d…0661 at0019 = ╱41╱A╱ // 0x656 @0x19
0x063d…0661 at001a = ╱56╱V╱ // 0x657 @0x1a
0x063d…0661 at001b = ╱4e╱N╱ // 0x658 @0x1b
0x063d…0661 at001c = ╱ef╱ $ ╱ // 0x659 @0x1c
0x063d…0661 at001d = ╱ba╱ OF ╱ // 0x65a @0x1d
0x063d…0661 at001e = ╱34╱4╱ // 0x65b @0x1e
0x063d…0661 at001f = ╱30╱0╱ // 0x65c @0x1f
0x063d…0661 at0020 = ╱f22800╱ // 0x65d @0x20
0x063d…0661 at0023 = EOL // 0x660 @0x23
0x063d…0661 }
0x0661…067b 9c69 00550 REAL KTO_PRIMO , KTO_ULTIMO
0x0661…067b LineComal80 {
0x0661…067b ptr = 0x9c69 // 0x661 @0x0
0x0661…067b lno = 0x0226 // 0x663 @0x2
0x0661…067b at0004 = ╱b3╱ REAL ╱ // 0x665 @0x4
0x0661…067b at0005 = ╱4b╱K╱ // 0x666 @0x5
0x0661…067b at0006 = ╱54╱T╱ // 0x667 @0x6
0x0661…067b at0007 = ╱4f╱O╱ // 0x668 @0x7
0x0661…067b at0008 = ╱5f╱_╱ // 0x669 @0x8
0x0661…067b at0009 = ╱50╱P╱ // 0x66a @0x9
0x0661…067b at000a = ╱52╱R╱ // 0x66b @0xa
0x0661…067b at000b = ╱49╱I╱ // 0x66c @0xb
0x0661…067b at000c = ╱4d╱M╱ // 0x66d @0xc
0x0661…067b at000d = ╱4f╱O╱ // 0x66e @0xd
0x0661…067b at000e = ╱ec╱ , ╱ // 0x66f @0xe
0x0661…067b at000f = ╱4b╱K╱ // 0x670 @0xf
0x0661…067b at0010 = ╱54╱T╱ // 0x671 @0x10
0x0661…067b at0011 = ╱4f╱O╱ // 0x672 @0x11
0x0661…067b at0012 = ╱5f╱_╱ // 0x673 @0x12
0x0661…067b at0013 = ╱55╱U╱ // 0x674 @0x13
0x0661…067b at0014 = ╱4c╱L╱ // 0x675 @0x14
0x0661…067b at0015 = ╱54╱T╱ // 0x676 @0x15
0x0661…067b at0016 = ╱49╱I╱ // 0x677 @0x16
0x0661…067b at0017 = ╱4d╱M╱ // 0x678 @0x17
0x0661…067b at0018 = ╱4f╱O╱ // 0x679 @0x18
0x0661…067b at0019 = EOL // 0x67a @0x19
0x0661…067b }
0x067b…068e 9c7c 00560 INTEGER KTO_FP , KTO_SP
0x067b…068e LineComal80 {
0x067b…068e ptr = 0x9c7c // 0x67b @0x0
0x067b…068e lno = 0x0230 // 0x67d @0x2
0x067b…068e at0004 = ╱b2╱ INTEGER ╱ // 0x67f @0x4
0x067b…068e at0005 = ╱4b╱K╱ // 0x680 @0x5
0x067b…068e at0006 = ╱54╱T╱ // 0x681 @0x6
0x067b…068e at0007 = ╱4f╱O╱ // 0x682 @0x7
0x067b…068e at0008 = ╱5f╱_╱ // 0x683 @0x8
0x067b…068e at0009 = ╱46╱F╱ // 0x684 @0x9
0x067b…068e at000a = ╱50╱P╱ // 0x685 @0xa
0x067b…068e at000b = ╱ec╱ , ╱ // 0x686 @0xb
0x067b…068e at000c = ╱4b╱K╱ // 0x687 @0xc
0x067b…068e at000d = ╱54╱T╱ // 0x688 @0xd
0x067b…068e at000e = ╱4f╱O╱ // 0x689 @0xe
0x067b…068e at000f = ╱5f╱_╱ // 0x68a @0xf
0x067b…068e at0010 = ╱53╱S╱ // 0x68b @0x10
0x067b…068e at0011 = ╱50╱P╱ // 0x68c @0x11
0x067b…068e at0012 = EOL // 0x68d @0x12
0x067b…068e }
0x068e…06af 9c9d 00570 // Variable…til…filen…@@KTOIDX
0x068e…06af LineComal80 {
0x068e…06af ptr = 0x9c9d // 0x68e @0x0
0x068e…06af lno = 0x023a // 0x690 @0x2
0x068e…06af at0004 = ╱89╱ // ╱ // 0x692 @0x4
0x068e…06af at0005 = ╱56╱V╱ // 0x693 @0x5
0x068e…06af at0006 = ╱61╱a╱ // 0x694 @0x6
0x068e…06af at0007 = ╱72╱r╱ // 0x695 @0x7
0x068e…06af at0008 = ╱69╱i╱ // 0x696 @0x8
0x068e…06af at0009 = ╱61╱a╱ // 0x697 @0x9
0x068e…06af at000a = ╱62╱b╱ // 0x698 @0xa
0x068e…06af at000b = ╱6c╱l╱ // 0x699 @0xb
0x068e…06af at000c = ╱65╱e╱ // 0x69a @0xc
0x068e…06af at000d = ╱20╱…╱ // 0x69b @0xd
0x068e…06af at000e = ╱74╱t╱ // 0x69c @0xe
0x068e…06af at000f = ╱69╱i╱ // 0x69d @0xf
0x068e…06af at0010 = ╱6c╱l╱ // 0x69e @0x10
0x068e…06af at0011 = ╱20╱…╱ // 0x69f @0x11
0x068e…06af at0012 = ╱66╱f╱ // 0x6a0 @0x12
0x068e…06af at0013 = ╱69╱i╱ // 0x6a1 @0x13
0x068e…06af at0014 = ╱6c╱l╱ // 0x6a2 @0x14
0x068e…06af at0015 = ╱65╱e╱ // 0x6a3 @0x15
0x068e…06af at0016 = ╱6e╱n╱ // 0x6a4 @0x16
0x068e…06af at0017 = ╱20╱…╱ // 0x6a5 @0x17
0x068e…06af at0018 = ╱40╱@╱ // 0x6a6 @0x18
0x068e…06af at0019 = ╱40╱@╱ // 0x6a7 @0x19
0x068e…06af at001a = ╱4b╱K╱ // 0x6a8 @0x1a
0x068e…06af at001b = ╱54╱T╱ // 0x6a9 @0x1b
0x068e…06af at001c = ╱4f╱O╱ // 0x6aa @0x1c
0x068e…06af at001d = ╱49╱I╱ // 0x6ab @0x1d
0x068e…06af at001e = ╱44╱D╱ // 0x6ac @0x1e
0x068e…06af at001f = ╱58╱X╱ // 0x6ad @0x1f
0x068e…06af at0020 = EOL // 0x6ae @0x20
0x068e…06af }
0x06af…06c2 9cb0 00580 DIM KTOIDX $ OF 17
0x06af…06c2 LineComal80 {
0x06af…06c2 ptr = 0x9cb0 // 0x6af @0x0
0x06af…06c2 lno = 0x0244 // 0x6b1 @0x2
0x06af…06c2 at0004 = ╱87╱ DIM ╱ // 0x6b3 @0x4
0x06af…06c2 at0005 = ╱4b╱K╱ // 0x6b4 @0x5
0x06af…06c2 at0006 = ╱54╱T╱ // 0x6b5 @0x6
0x06af…06c2 at0007 = ╱4f╱O╱ // 0x6b6 @0x7
0x06af…06c2 at0008 = ╱49╱I╱ // 0x6b7 @0x8
0x06af…06c2 at0009 = ╱44╱D╱ // 0x6b8 @0x9
0x06af…06c2 at000a = ╱58╱X╱ // 0x6b9 @0xa
0x06af…06c2 at000b = ╱ef╱ $ ╱ // 0x6ba @0xb
0x06af…06c2 at000c = ╱ba╱ OF ╱ // 0x6bb @0xc
0x06af…06c2 at000d = ╱31╱1╱ // 0x6bc @0xd
0x06af…06c2 at000e = ╱37╱7╱ // 0x6bd @0xe
0x06af…06c2 at000f = ╱f21100╱ // 0x6be @0xf
0x06af…06c2 at0012 = EOL // 0x6c1 @0x12
0x06af…06c2 }
0x06c2…06d9 9cc7 00590 INTEGER I_H\JREC , I_MAXREC
0x06c2…06d9 LineComal80 {
0x06c2…06d9 ptr = 0x9cc7 // 0x6c2 @0x0
0x06c2…06d9 lno = 0x024e // 0x6c4 @0x2
0x06c2…06d9 at0004 = ╱b2╱ INTEGER ╱ // 0x6c6 @0x4
0x06c2…06d9 at0005 = ╱49╱I╱ // 0x6c7 @0x5
0x06c2…06d9 at0006 = ╱5f╱_╱ // 0x6c8 @0x6
0x06c2…06d9 at0007 = ╱48╱H╱ // 0x6c9 @0x7
0x06c2…06d9 at0008 = ╱5c╱\╱ // 0x6ca @0x8
0x06c2…06d9 at0009 = ╱4a╱J╱ // 0x6cb @0x9
0x06c2…06d9 at000a = ╱52╱R╱ // 0x6cc @0xa
0x06c2…06d9 at000b = ╱45╱E╱ // 0x6cd @0xb
0x06c2…06d9 at000c = ╱43╱C╱ // 0x6ce @0xc
0x06c2…06d9 at000d = ╱ec╱ , ╱ // 0x6cf @0xd
0x06c2…06d9 at000e = ╱49╱I╱ // 0x6d0 @0xe
0x06c2…06d9 at000f = ╱5f╱_╱ // 0x6d1 @0xf
0x06c2…06d9 at0010 = ╱4d╱M╱ // 0x6d2 @0x10
0x06c2…06d9 at0011 = ╱41╱A╱ // 0x6d3 @0x11
0x06c2…06d9 at0012 = ╱58╱X╱ // 0x6d4 @0x12
0x06c2…06d9 at0013 = ╱52╱R╱ // 0x6d5 @0x13
0x06c2…06d9 at0014 = ╱45╱E╱ // 0x6d6 @0x14
0x06c2…06d9 at0015 = ╱43╱C╱ // 0x6d7 @0x15
0x06c2…06d9 at0016 = EOL // 0x6d8 @0x16
0x06c2…06d9 }
0x06d9…06ea 9cd8 00600 DIM KTONR $ OF 8
0x06d9…06ea LineComal80 {
0x06d9…06ea ptr = 0x9cd8 // 0x6d9 @0x0
0x06d9…06ea lno = 0x0258 // 0x6db @0x2
0x06d9…06ea at0004 = ╱87╱ DIM ╱ // 0x6dd @0x4
0x06d9…06ea at0005 = ╱4b╱K╱ // 0x6de @0x5
0x06d9…06ea at0006 = ╱54╱T╱ // 0x6df @0x6
0x06d9…06ea at0007 = ╱4f╱O╱ // 0x6e0 @0x7
0x06d9…06ea at0008 = ╱4e╱N╱ // 0x6e1 @0x8
0x06d9…06ea at0009 = ╱52╱R╱ // 0x6e2 @0x9
0x06d9…06ea at000a = ╱ef╱ $ ╱ // 0x6e3 @0xa
0x06d9…06ea at000b = ╱ba╱ OF ╱ // 0x6e4 @0xb
0x06d9…06ea at000c = ╱38╱8╱ // 0x6e5 @0xc
0x06d9…06ea at000d = ╱f20800╱ // 0x6e6 @0xd
0x06d9…06ea at0010 = EOL // 0x6e9 @0x10
0x06d9…06ea }
0x06ea…06f5 9ce3 00610 INTEGER RECNR
0x06ea…06f5 LineComal80 {
0x06ea…06f5 ptr = 0x9ce3 // 0x6ea @0x0
0x06ea…06f5 lno = 0x0262 // 0x6ec @0x2
0x06ea…06f5 at0004 = ╱b2╱ INTEGER ╱ // 0x6ee @0x4
0x06ea…06f5 at0005 = ╱52╱R╱ // 0x6ef @0x5
0x06ea…06f5 at0006 = ╱45╱E╱ // 0x6f0 @0x6
0x06ea…06f5 at0007 = ╱43╱C╱ // 0x6f1 @0x7
0x06ea…06f5 at0008 = ╱4e╱N╱ // 0x6f2 @0x8
0x06ea…06f5 at0009 = ╱52╱R╱ // 0x6f3 @0x9
0x06ea…06f5 at000a = EOL // 0x6f4 @0xa
0x06ea…06f5 }
0x06f5…0716 9d04 00620 // Variable…til…filen…@@ST_KTO
0x06f5…0716 LineComal80 {
0x06f5…0716 ptr = 0x9d04 // 0x6f5 @0x0
0x06f5…0716 lno = 0x026c // 0x6f7 @0x2
0x06f5…0716 at0004 = ╱89╱ // ╱ // 0x6f9 @0x4
0x06f5…0716 at0005 = ╱56╱V╱ // 0x6fa @0x5
0x06f5…0716 at0006 = ╱61╱a╱ // 0x6fb @0x6
0x06f5…0716 at0007 = ╱72╱r╱ // 0x6fc @0x7
0x06f5…0716 at0008 = ╱69╱i╱ // 0x6fd @0x8
0x06f5…0716 at0009 = ╱61╱a╱ // 0x6fe @0x9
0x06f5…0716 at000a = ╱62╱b╱ // 0x6ff @0xa
0x06f5…0716 at000b = ╱6c╱l╱ // 0x700 @0xb
0x06f5…0716 at000c = ╱65╱e╱ // 0x701 @0xc
0x06f5…0716 at000d = ╱20╱…╱ // 0x702 @0xd
0x06f5…0716 at000e = ╱74╱t╱ // 0x703 @0xe
0x06f5…0716 at000f = ╱69╱i╱ // 0x704 @0xf
0x06f5…0716 at0010 = ╱6c╱l╱ // 0x705 @0x10
0x06f5…0716 at0011 = ╱20╱…╱ // 0x706 @0x11
0x06f5…0716 at0012 = ╱66╱f╱ // 0x707 @0x12
0x06f5…0716 at0013 = ╱69╱i╱ // 0x708 @0x13
0x06f5…0716 at0014 = ╱6c╱l╱ // 0x709 @0x14
0x06f5…0716 at0015 = ╱65╱e╱ // 0x70a @0x15
0x06f5…0716 at0016 = ╱6e╱n╱ // 0x70b @0x16
0x06f5…0716 at0017 = ╱20╱…╱ // 0x70c @0x17
0x06f5…0716 at0018 = ╱40╱@╱ // 0x70d @0x18
0x06f5…0716 at0019 = ╱40╱@╱ // 0x70e @0x19
0x06f5…0716 at001a = ╱53╱S╱ // 0x70f @0x1a
0x06f5…0716 at001b = ╱54╱T╱ // 0x710 @0x1b
0x06f5…0716 at001c = ╱5f╱_╱ // 0x711 @0x1c
0x06f5…0716 at001d = ╱4b╱K╱ // 0x712 @0x1d
0x06f5…0716 at001e = ╱54╱T╱ // 0x713 @0x1e
0x06f5…0716 at001f = ╱4f╱O╱ // 0x714 @0x1f
0x06f5…0716 at0020 = EOL // 0x715 @0x20
0x06f5…0716 }
0x0716…0729 9d17 00630 DIM ST_KTO $ OF 17
0x0716…0729 LineComal80 {
0x0716…0729 ptr = 0x9d17 // 0x716 @0x0
0x0716…0729 lno = 0x0276 // 0x718 @0x2
0x0716…0729 at0004 = ╱87╱ DIM ╱ // 0x71a @0x4
0x0716…0729 at0005 = ╱53╱S╱ // 0x71b @0x5
0x0716…0729 at0006 = ╱54╱T╱ // 0x71c @0x6
0x0716…0729 at0007 = ╱5f╱_╱ // 0x71d @0x7
0x0716…0729 at0008 = ╱4b╱K╱ // 0x71e @0x8
0x0716…0729 at0009 = ╱54╱T╱ // 0x71f @0x9
0x0716…0729 at000a = ╱4f╱O╱ // 0x720 @0xa
0x0716…0729 at000b = ╱ef╱ $ ╱ // 0x721 @0xb
0x0716…0729 at000c = ╱ba╱ OF ╱ // 0x722 @0xc
0x0716…0729 at000d = ╱31╱1╱ // 0x723 @0xd
0x0716…0729 at000e = ╱37╱7╱ // 0x724 @0xe
0x0716…0729 at000f = ╱f21100╱ // 0x725 @0xf
0x0716…0729 at0012 = EOL // 0x728 @0x12
0x0716…0729 }
0x0729…075c 9d4a 00640 DIM KASSE_KTO $ OF 8 , BANK_KTO $ OF 8 , GIRO_KTO $ OF 8
0x0729…075c LineComal80 {
0x0729…075c ptr = 0x9d4a // 0x729 @0x0
0x0729…075c lno = 0x0280 // 0x72b @0x2
0x0729…075c at0004 = ╱87╱ DIM ╱ // 0x72d @0x4
0x0729…075c at0005 = ╱4b╱K╱ // 0x72e @0x5
0x0729…075c at0006 = ╱41╱A╱ // 0x72f @0x6
0x0729…075c at0007 = ╱53╱S╱ // 0x730 @0x7
0x0729…075c at0008 = ╱53╱S╱ // 0x731 @0x8
0x0729…075c at0009 = ╱45╱E╱ // 0x732 @0x9
0x0729…075c at000a = ╱5f╱_╱ // 0x733 @0xa
0x0729…075c at000b = ╱4b╱K╱ // 0x734 @0xb
0x0729…075c at000c = ╱54╱T╱ // 0x735 @0xc
0x0729…075c at000d = ╱4f╱O╱ // 0x736 @0xd
0x0729…075c at000e = ╱ef╱ $ ╱ // 0x737 @0xe
0x0729…075c at000f = ╱ba╱ OF ╱ // 0x738 @0xf
0x0729…075c at0010 = ╱38╱8╱ // 0x739 @0x10
0x0729…075c at0011 = ╱f20800╱ // 0x73a @0x11
0x0729…075c at0014 = ╱ec╱ , ╱ // 0x73d @0x14
0x0729…075c at0015 = ╱42╱B╱ // 0x73e @0x15
0x0729…075c at0016 = ╱41╱A╱ // 0x73f @0x16
0x0729…075c at0017 = ╱4e╱N╱ // 0x740 @0x17
0x0729…075c at0018 = ╱4b╱K╱ // 0x741 @0x18
0x0729…075c at0019 = ╱5f╱_╱ // 0x742 @0x19
0x0729…075c at001a = ╱4b╱K╱ // 0x743 @0x1a
0x0729…075c at001b = ╱54╱T╱ // 0x744 @0x1b
0x0729…075c at001c = ╱4f╱O╱ // 0x745 @0x1c
0x0729…075c at001d = ╱ef╱ $ ╱ // 0x746 @0x1d
0x0729…075c at001e = ╱ba╱ OF ╱ // 0x747 @0x1e
0x0729…075c at001f = ╱38╱8╱ // 0x748 @0x1f
0x0729…075c at0020 = ╱f20800╱ // 0x749 @0x20
0x0729…075c at0023 = ╱ec╱ , ╱ // 0x74c @0x23
0x0729…075c at0024 = ╱47╱G╱ // 0x74d @0x24
0x0729…075c at0025 = ╱49╱I╱ // 0x74e @0x25
0x0729…075c at0026 = ╱52╱R╱ // 0x74f @0x26
0x0729…075c at0027 = ╱4f╱O╱ // 0x750 @0x27
0x0729…075c at0028 = ╱5f╱_╱ // 0x751 @0x28
0x0729…075c at0029 = ╱4b╱K╱ // 0x752 @0x29
0x0729…075c at002a = ╱54╱T╱ // 0x753 @0x2a
0x0729…075c at002b = ╱4f╱O╱ // 0x754 @0x2b
0x0729…075c at002c = ╱ef╱ $ ╱ // 0x755 @0x2c
0x0729…075c at002d = ╱ba╱ OF ╱ // 0x756 @0x2d
0x0729…075c at002e = ╱38╱8╱ // 0x757 @0x2e
0x0729…075c at002f = ╱f20800╱ // 0x758 @0x2f
0x0729…075c at0032 = EOL // 0x75b @0x32
0x0729…075c }
0x075c…0795 9d83 00650 DIM K_DIFF_KTO $ OF 8 , INDMOMS_KTO $ OF 8 , UDMOMS_KTO $ OF 8
0x075c…0795 LineComal80 {
0x075c…0795 ptr = 0x9d83 // 0x75c @0x0
0x075c…0795 lno = 0x028a // 0x75e @0x2
0x075c…0795 at0004 = ╱87╱ DIM ╱ // 0x760 @0x4
0x075c…0795 at0005 = ╱4b╱K╱ // 0x761 @0x5
0x075c…0795 at0006 = ╱5f╱_╱ // 0x762 @0x6
0x075c…0795 at0007 = ╱44╱D╱ // 0x763 @0x7
0x075c…0795 at0008 = ╱49╱I╱ // 0x764 @0x8
0x075c…0795 at0009 = ╱46╱F╱ // 0x765 @0x9
0x075c…0795 at000a = ╱46╱F╱ // 0x766 @0xa
0x075c…0795 at000b = ╱5f╱_╱ // 0x767 @0xb
0x075c…0795 at000c = ╱4b╱K╱ // 0x768 @0xc
0x075c…0795 at000d = ╱54╱T╱ // 0x769 @0xd
0x075c…0795 at000e = ╱4f╱O╱ // 0x76a @0xe
0x075c…0795 at000f = ╱ef╱ $ ╱ // 0x76b @0xf
0x075c…0795 at0010 = ╱ba╱ OF ╱ // 0x76c @0x10
0x075c…0795 at0011 = ╱38╱8╱ // 0x76d @0x11
0x075c…0795 at0012 = ╱f20800╱ // 0x76e @0x12
0x075c…0795 at0015 = ╱ec╱ , ╱ // 0x771 @0x15
0x075c…0795 at0016 = ╱49╱I╱ // 0x772 @0x16
0x075c…0795 at0017 = ╱4e╱N╱ // 0x773 @0x17
0x075c…0795 at0018 = ╱44╱D╱ // 0x774 @0x18
0x075c…0795 at0019 = ╱4d╱M╱ // 0x775 @0x19
0x075c…0795 at001a = ╱4f╱O╱ // 0x776 @0x1a
0x075c…0795 at001b = ╱4d╱M╱ // 0x777 @0x1b
0x075c…0795 at001c = ╱53╱S╱ // 0x778 @0x1c
0x075c…0795 at001d = ╱5f╱_╱ // 0x779 @0x1d
0x075c…0795 at001e = ╱4b╱K╱ // 0x77a @0x1e
0x075c…0795 at001f = ╱54╱T╱ // 0x77b @0x1f
0x075c…0795 at0020 = ╱4f╱O╱ // 0x77c @0x20
0x075c…0795 at0021 = ╱ef╱ $ ╱ // 0x77d @0x21
0x075c…0795 at0022 = ╱ba╱ OF ╱ // 0x77e @0x22
0x075c…0795 at0023 = ╱38╱8╱ // 0x77f @0x23
0x075c…0795 at0024 = ╱f20800╱ // 0x780 @0x24
0x075c…0795 at0027 = ╱ec╱ , ╱ // 0x783 @0x27
0x075c…0795 at0028 = ╱55╱U╱ // 0x784 @0x28
0x075c…0795 at0029 = ╱44╱D╱ // 0x785 @0x29
0x075c…0795 at002a = ╱4d╱M╱ // 0x786 @0x2a
0x075c…0795 at002b = ╱4f╱O╱ // 0x787 @0x2b
0x075c…0795 at002c = ╱4d╱M╱ // 0x788 @0x2c
0x075c…0795 at002d = ╱53╱S╱ // 0x789 @0x2d
0x075c…0795 at002e = ╱5f╱_╱ // 0x78a @0x2e
0x075c…0795 at002f = ╱4b╱K╱ // 0x78b @0x2f
0x075c…0795 at0030 = ╱54╱T╱ // 0x78c @0x30
0x075c…0795 at0031 = ╱4f╱O╱ // 0x78d @0x31
0x075c…0795 at0032 = ╱ef╱ $ ╱ // 0x78e @0x32
0x075c…0795 at0033 = ╱ba╱ OF ╱ // 0x78f @0x33
0x075c…0795 at0034 = ╱38╱8╱ // 0x790 @0x34
0x075c…0795 at0035 = ╱f20800╱ // 0x791 @0x35
0x075c…0795 at0038 = EOL // 0x794 @0x38
0x075c…0795 }
0x0795…07b5 9da3 00660 // Variable…til…filen…@@TRANS
0x0795…07b5 LineComal80 {
0x0795…07b5 ptr = 0x9da3 // 0x795 @0x0
0x0795…07b5 lno = 0x0294 // 0x797 @0x2
0x0795…07b5 at0004 = ╱89╱ // ╱ // 0x799 @0x4
0x0795…07b5 at0005 = ╱56╱V╱ // 0x79a @0x5
0x0795…07b5 at0006 = ╱61╱a╱ // 0x79b @0x6
0x0795…07b5 at0007 = ╱72╱r╱ // 0x79c @0x7
0x0795…07b5 at0008 = ╱69╱i╱ // 0x79d @0x8
0x0795…07b5 at0009 = ╱61╱a╱ // 0x79e @0x9
0x0795…07b5 at000a = ╱62╱b╱ // 0x79f @0xa
0x0795…07b5 at000b = ╱6c╱l╱ // 0x7a0 @0xb
0x0795…07b5 at000c = ╱65╱e╱ // 0x7a1 @0xc
0x0795…07b5 at000d = ╱20╱…╱ // 0x7a2 @0xd
0x0795…07b5 at000e = ╱74╱t╱ // 0x7a3 @0xe
0x0795…07b5 at000f = ╱69╱i╱ // 0x7a4 @0xf
0x0795…07b5 at0010 = ╱6c╱l╱ // 0x7a5 @0x10
0x0795…07b5 at0011 = ╱20╱…╱ // 0x7a6 @0x11
0x0795…07b5 at0012 = ╱66╱f╱ // 0x7a7 @0x12
0x0795…07b5 at0013 = ╱69╱i╱ // 0x7a8 @0x13
0x0795…07b5 at0014 = ╱6c╱l╱ // 0x7a9 @0x14
0x0795…07b5 at0015 = ╱65╱e╱ // 0x7aa @0x15
0x0795…07b5 at0016 = ╱6e╱n╱ // 0x7ab @0x16
0x0795…07b5 at0017 = ╱20╱…╱ // 0x7ac @0x17
0x0795…07b5 at0018 = ╱40╱@╱ // 0x7ad @0x18
0x0795…07b5 at0019 = ╱40╱@╱ // 0x7ae @0x19
0x0795…07b5 at001a = ╱54╱T╱ // 0x7af @0x1a
0x0795…07b5 at001b = ╱52╱R╱ // 0x7b0 @0x1b
0x0795…07b5 at001c = ╱41╱A╱ // 0x7b1 @0x1c
0x0795…07b5 at001d = ╱4e╱N╱ // 0x7b2 @0x1d
0x0795…07b5 at001e = ╱53╱S╱ // 0x7b3 @0x1e
0x0795…07b5 at001f = EOL // 0x7b4 @0x1f
0x0795…07b5 }
0x07b5…07c7 9db5 00670 DIM TRANS $ OF 17
0x07b5…07c7 LineComal80 {
0x07b5…07c7 ptr = 0x9db5 // 0x7b5 @0x0
0x07b5…07c7 lno = 0x029e // 0x7b7 @0x2
0x07b5…07c7 at0004 = ╱87╱ DIM ╱ // 0x7b9 @0x4
0x07b5…07c7 at0005 = ╱54╱T╱ // 0x7ba @0x5
0x07b5…07c7 at0006 = ╱52╱R╱ // 0x7bb @0x6
0x07b5…07c7 at0007 = ╱41╱A╱ // 0x7bc @0x7
0x07b5…07c7 at0008 = ╱4e╱N╱ // 0x7bd @0x8
0x07b5…07c7 at0009 = ╱53╱S╱ // 0x7be @0x9
0x07b5…07c7 at000a = ╱ef╱ $ ╱ // 0x7bf @0xa
0x07b5…07c7 at000b = ╱ba╱ OF ╱ // 0x7c0 @0xb
0x07b5…07c7 at000c = ╱31╱1╱ // 0x7c1 @0xc
0x07b5…07c7 at000d = ╱37╱7╱ // 0x7c2 @0xd
0x07b5…07c7 at000e = ╱f21100╱ // 0x7c3 @0xe
0x07b5…07c7 at0011 = EOL // 0x7c6 @0x11
0x07b5…07c7 }
0x07c7…07de 9dcc 00680 INTEGER T_H\JREC , T_MAXREC
0x07c7…07de LineComal80 {
0x07c7…07de ptr = 0x9dcc // 0x7c7 @0x0
0x07c7…07de lno = 0x02a8 // 0x7c9 @0x2
0x07c7…07de at0004 = ╱b2╱ INTEGER ╱ // 0x7cb @0x4
0x07c7…07de at0005 = ╱54╱T╱ // 0x7cc @0x5
0x07c7…07de at0006 = ╱5f╱_╱ // 0x7cd @0x6
0x07c7…07de at0007 = ╱48╱H╱ // 0x7ce @0x7
0x07c7…07de at0008 = ╱5c╱\╱ // 0x7cf @0x8
0x07c7…07de at0009 = ╱4a╱J╱ // 0x7d0 @0x9
0x07c7…07de at000a = ╱52╱R╱ // 0x7d1 @0xa
0x07c7…07de at000b = ╱45╱E╱ // 0x7d2 @0xb
0x07c7…07de at000c = ╱43╱C╱ // 0x7d3 @0xc
0x07c7…07de at000d = ╱ec╱ , ╱ // 0x7d4 @0xd
0x07c7…07de at000e = ╱54╱T╱ // 0x7d5 @0xe
0x07c7…07de at000f = ╱5f╱_╱ // 0x7d6 @0xf
0x07c7…07de at0010 = ╱4d╱M╱ // 0x7d7 @0x10
0x07c7…07de at0011 = ╱41╱A╱ // 0x7d8 @0x11
0x07c7…07de at0012 = ╱58╱X╱ // 0x7d9 @0x12
0x07c7…07de at0013 = ╱52╱R╱ // 0x7da @0x13
0x07c7…07de at0014 = ╱45╱E╱ // 0x7db @0x14
0x07c7…07de at0015 = ╱43╱C╱ // 0x7dc @0x15
0x07c7…07de at0016 = EOL // 0x7dd @0x16
0x07c7…07de }
0x07de…0814 9e02 00690 DIM BKTONR $ OF 8 , BDATO $ OF 6 , BLGNR $ OF 5 , BTXT $ OF 20
0x07de…0814 LineComal80 {
0x07de…0814 ptr = 0x9e02 // 0x7de @0x0
0x07de…0814 lno = 0x02b2 // 0x7e0 @0x2
0x07de…0814 at0004 = ╱87╱ DIM ╱ // 0x7e2 @0x4
0x07de…0814 at0005 = ╱42╱B╱ // 0x7e3 @0x5
0x07de…0814 at0006 = ╱4b╱K╱ // 0x7e4 @0x6
0x07de…0814 at0007 = ╱54╱T╱ // 0x7e5 @0x7
0x07de…0814 at0008 = ╱4f╱O╱ // 0x7e6 @0x8
0x07de…0814 at0009 = ╱4e╱N╱ // 0x7e7 @0x9
0x07de…0814 at000a = ╱52╱R╱ // 0x7e8 @0xa
0x07de…0814 at000b = ╱ef╱ $ ╱ // 0x7e9 @0xb
0x07de…0814 at000c = ╱ba╱ OF ╱ // 0x7ea @0xc
0x07de…0814 at000d = ╱38╱8╱ // 0x7eb @0xd
0x07de…0814 at000e = ╱f20800╱ // 0x7ec @0xe
0x07de…0814 at0011 = ╱ec╱ , ╱ // 0x7ef @0x11
0x07de…0814 at0012 = ╱42╱B╱ // 0x7f0 @0x12
0x07de…0814 at0013 = ╱44╱D╱ // 0x7f1 @0x13
0x07de…0814 at0014 = ╱41╱A╱ // 0x7f2 @0x14
0x07de…0814 at0015 = ╱54╱T╱ // 0x7f3 @0x15
0x07de…0814 at0016 = ╱4f╱O╱ // 0x7f4 @0x16
0x07de…0814 at0017 = ╱ef╱ $ ╱ // 0x7f5 @0x17
0x07de…0814 at0018 = ╱ba╱ OF ╱ // 0x7f6 @0x18
0x07de…0814 at0019 = ╱36╱6╱ // 0x7f7 @0x19
0x07de…0814 at001a = ╱f20600╱ // 0x7f8 @0x1a
0x07de…0814 at001d = ╱ec╱ , ╱ // 0x7fb @0x1d
0x07de…0814 at001e = ╱42╱B╱ // 0x7fc @0x1e
0x07de…0814 at001f = ╱4c╱L╱ // 0x7fd @0x1f
0x07de…0814 at0020 = ╱47╱G╱ // 0x7fe @0x20
0x07de…0814 at0021 = ╱4e╱N╱ // 0x7ff @0x21
0x07de…0814 at0022 = ╱52╱R╱ // 0x800 @0x22
0x07de…0814 at0023 = ╱ef╱ $ ╱ // 0x801 @0x23
0x07de…0814 at0024 = ╱ba╱ OF ╱ // 0x802 @0x24
0x07de…0814 at0025 = ╱35╱5╱ // 0x803 @0x25
0x07de…0814 at0026 = ╱f20500╱ // 0x804 @0x26
0x07de…0814 at0029 = ╱ec╱ , ╱ // 0x807 @0x29
0x07de…0814 at002a = ╱42╱B╱ // 0x808 @0x2a
0x07de…0814 at002b = ╱54╱T╱ // 0x809 @0x2b
0x07de…0814 at002c = ╱58╱X╱ // 0x80a @0x2c
0x07de…0814 at002d = ╱54╱T╱ // 0x80b @0x2d
0x07de…0814 at002e = ╱ef╱ $ ╱ // 0x80c @0x2e
0x07de…0814 at002f = ╱ba╱ OF ╱ // 0x80d @0x2f
0x07de…0814 at0030 = ╱32╱2╱ // 0x80e @0x30
0x07de…0814 at0031 = ╱30╱0╱ // 0x80f @0x31
0x07de…0814 at0032 = ╱f21400╱ // 0x810 @0x32
0x07de…0814 at0035 = EOL // 0x813 @0x35
0x07de…0814 }
0x0814…0826 9e14 00700 REAL BMOMS , BBEL\B
0x0814…0826 LineComal80 {
0x0814…0826 ptr = 0x9e14 // 0x814 @0x0
0x0814…0826 lno = 0x02bc // 0x816 @0x2
0x0814…0826 at0004 = ╱b3╱ REAL ╱ // 0x818 @0x4
0x0814…0826 at0005 = ╱42╱B╱ // 0x819 @0x5
0x0814…0826 at0006 = ╱4d╱M╱ // 0x81a @0x6
0x0814…0826 at0007 = ╱4f╱O╱ // 0x81b @0x7
0x0814…0826 at0008 = ╱4d╱M╱ // 0x81c @0x8
0x0814…0826 at0009 = ╱53╱S╱ // 0x81d @0x9
0x0814…0826 at000a = ╱ec╱ , ╱ // 0x81e @0xa
0x0814…0826 at000b = ╱42╱B╱ // 0x81f @0xb
0x0814…0826 at000c = ╱42╱B╱ // 0x820 @0xc
0x0814…0826 at000d = ╱45╱E╱ // 0x821 @0xd
0x0814…0826 at000e = ╱4c╱L╱ // 0x822 @0xe
0x0814…0826 at000f = ╱5c╱\╱ // 0x823 @0xf
0x0814…0826 at0010 = ╱42╱B╱ // 0x824 @0x10
0x0814…0826 at0011 = EOL // 0x825 @0x11
0x0814…0826 }
0x0826…0835 9e23 00710 INTEGER DK , NTRANS
0x0826…0835 LineComal80 {
0x0826…0835 ptr = 0x9e23 // 0x826 @0x0
0x0826…0835 lno = 0x02c6 // 0x828 @0x2
0x0826…0835 at0004 = ╱b2╱ INTEGER ╱ // 0x82a @0x4
0x0826…0835 at0005 = ╱44╱D╱ // 0x82b @0x5
0x0826…0835 at0006 = ╱4b╱K╱ // 0x82c @0x6
0x0826…0835 at0007 = ╱ec╱ , ╱ // 0x82d @0x7
0x0826…0835 at0008 = ╱4e╱N╱ // 0x82e @0x8
0x0826…0835 at0009 = ╱54╱T╱ // 0x82f @0x9
0x0826…0835 at000a = ╱52╱R╱ // 0x830 @0xa
0x0826…0835 at000b = ╱41╱A╱ // 0x831 @0xb
0x0826…0835 at000c = ╱4e╱N╱ // 0x832 @0xc
0x0826…0835 at000d = ╱53╱S╱ // 0x833 @0xd
0x0826…0835 at000e = EOL // 0x834 @0xe
0x0826…0835 }
0x0835…0846 9e34 00720 ENDPROC DIMENSIONER
0x0835…0846 LineComal80 {
0x0835…0846 ptr = 0x9e34 // 0x835 @0x0
0x0835…0846 lno = 0x02d0 // 0x837 @0x2
0x0835…0846 at0004 = ╱9f╱ ENDPROC ╱ // 0x839 @0x4
0x0835…0846 at0005 = ╱44╱D╱ // 0x83a @0x5
0x0835…0846 at0006 = ╱49╱I╱ // 0x83b @0x6
0x0835…0846 at0007 = ╱4d╱M╱ // 0x83c @0x7
0x0835…0846 at0008 = ╱45╱E╱ // 0x83d @0x8
0x0835…0846 at0009 = ╱4e╱N╱ // 0x83e @0x9
0x0835…0846 at000a = ╱53╱S╱ // 0x83f @0xa
0x0835…0846 at000b = ╱49╱I╱ // 0x840 @0xb
0x0835…0846 at000c = ╱4f╱O╱ // 0x841 @0xc
0x0835…0846 at000d = ╱4e╱N╱ // 0x842 @0xd
0x0835…0846 at000e = ╱45╱E╱ // 0x843 @0xe
0x0835…0846 at000f = ╱52╱R╱ // 0x844 @0xf
0x0835…0846 at0010 = EOL // 0x845 @0x10
0x0835…0846 }
0x0846…084b 9e39 00730
0x0846…084b LineComal80 {
0x0846…084b ptr = 0x9e39 // 0x846 @0x0
0x0846…084b lno = 0x02da // 0x848 @0x2
0x0846…084b at0004 = EOL // 0x84a @0x4
0x0846…084b }
0x084b…0859 9e47 00740 PROC INITIER
0x084b…0859 LineComal80 {
0x084b…0859 ptr = 0x9e47 // 0x84b @0x0
0x084b…0859 lno = 0x02e4 // 0x84d @0x2
0x084b…0859 at0004 = ╱9e02╱ PROC ╱ // 0x84f @0x4
0x084b…0859 at0006 = ╱49╱I╱ // 0x851 @0x6
0x084b…0859 at0007 = ╱4e╱N╱ // 0x852 @0x7
0x084b…0859 at0008 = ╱49╱I╱ // 0x853 @0x8
0x084b…0859 at0009 = ╱54╱T╱ // 0x854 @0x9
0x084b…0859 at000a = ╱49╱I╱ // 0x855 @0xa
0x084b…0859 at000b = ╱45╱E╱ // 0x856 @0xb
0x084b…0859 at000c = ╱52╱R╱ // 0x857 @0xc
0x084b…0859 at000d = EOL // 0x858 @0xd
0x084b…0859 }
0x0859…086b 9e59 00750 LET PRGFL $ := "DP2"
0x0859…086b LineComal80 {
0x0859…086b ptr = 0x9e59 // 0x859 @0x0
0x0859…086b lno = 0x02ee // 0x85b @0x2
0x0859…086b at0004 = ╱86╱ LET ╱ // 0x85d @0x4
0x0859…086b at0005 = ╱50╱P╱ // 0x85e @0x5
0x0859…086b at0006 = ╱52╱R╱ // 0x85f @0x6
0x0859…086b at0007 = ╱47╱G╱ // 0x860 @0x7
0x0859…086b at0008 = ╱46╱F╱ // 0x861 @0x8
0x0859…086b at0009 = ╱4c╱L╱ // 0x862 @0x9
0x0859…086b at000a = ╱ef╱ $ ╱ // 0x863 @0xa
0x0859…086b at000b = ╱f0╱ := ╱ // 0x864 @0xb
0x0859…086b at000c = ╱22╱"╱ // 0x865 @0xc
0x0859…086b at000d = ╱44╱D╱ // 0x866 @0xd
0x0859…086b at000e = ╱50╱P╱ // 0x867 @0xe
0x0859…086b at000f = ╱32╱2╱ // 0x868 @0xf
0x0859…086b at0010 = ╱22╱"╱ // 0x869 @0x10
0x0859…086b at0011 = EOL // 0x86a @0x11
0x0859…086b }
0x086b…0888 9e76 00760 LET PROGRAM $ := PRGFL $ + ":SYSU"
0x086b…0888 LineComal80 {
0x086b…0888 ptr = 0x9e76 // 0x86b @0x0
0x086b…0888 lno = 0x02f8 // 0x86d @0x2
0x086b…0888 at0004 = ╱86╱ LET ╱ // 0x86f @0x4
0x086b…0888 at0005 = ╱50╱P╱ // 0x870 @0x5
0x086b…0888 at0006 = ╱52╱R╱ // 0x871 @0x6
0x086b…0888 at0007 = ╱4f╱O╱ // 0x872 @0x7
0x086b…0888 at0008 = ╱47╱G╱ // 0x873 @0x8
0x086b…0888 at0009 = ╱52╱R╱ // 0x874 @0x9
0x086b…0888 at000a = ╱41╱A╱ // 0x875 @0xa
0x086b…0888 at000b = ╱4d╱M╱ // 0x876 @0xb
0x086b…0888 at000c = ╱ef╱ $ ╱ // 0x877 @0xc
0x086b…0888 at000d = ╱f0╱ := ╱ // 0x878 @0xd
0x086b…0888 at000e = ╱50╱P╱ // 0x879 @0xe
0x086b…0888 at000f = ╱52╱R╱ // 0x87a @0xf
0x086b…0888 at0010 = ╱47╱G╱ // 0x87b @0x10
0x086b…0888 at0011 = ╱46╱F╱ // 0x87c @0x11
0x086b…0888 at0012 = ╱4c╱L╱ // 0x87d @0x12
0x086b…0888 at0013 = ╱ef╱ $ ╱ // 0x87e @0x13
0x086b…0888 at0014 = ╱eb╱ + ╱ // 0x87f @0x14
0x086b…0888 at0015 = ╱22╱"╱ // 0x880 @0x15
0x086b…0888 at0016 = ╱3a╱:╱ // 0x881 @0x16
0x086b…0888 at0017 = ╱53╱S╱ // 0x882 @0x17
0x086b…0888 at0018 = ╱59╱Y╱ // 0x883 @0x18
0x086b…0888 at0019 = ╱53╱S╱ // 0x884 @0x19
0x086b…0888 at001a = ╱55╱U╱ // 0x885 @0x1a
0x086b…0888 at001b = ╱22╱"╱ // 0x886 @0x1b
0x086b…0888 at001c = EOL // 0x887 @0x1c
0x086b…0888 }
0x0888…08a9 9e97 00770 LET TAL $ := "0123456789" ; NULR := 0
0x0888…08a9 LineComal80 {
0x0888…08a9 ptr = 0x9e97 // 0x888 @0x0
0x0888…08a9 lno = 0x0302 // 0x88a @0x2
0x0888…08a9 at0004 = ╱86╱ LET ╱ // 0x88c @0x4
0x0888…08a9 at0005 = ╱54╱T╱ // 0x88d @0x5
0x0888…08a9 at0006 = ╱41╱A╱ // 0x88e @0x6
0x0888…08a9 at0007 = ╱4c╱L╱ // 0x88f @0x7
0x0888…08a9 at0008 = ╱ef╱ $ ╱ // 0x890 @0x8
0x0888…08a9 at0009 = ╱f0╱ := ╱ // 0x891 @0x9
0x0888…08a9 at000a = ╱22╱"╱ // 0x892 @0xa
0x0888…08a9 at000b = ╱30╱0╱ // 0x893 @0xb
0x0888…08a9 at000c = ╱31╱1╱ // 0x894 @0xc
0x0888…08a9 at000d = ╱32╱2╱ // 0x895 @0xd
0x0888…08a9 at000e = ╱33╱3╱ // 0x896 @0xe
0x0888…08a9 at000f = ╱34╱4╱ // 0x897 @0xf
0x0888…08a9 at0010 = ╱35╱5╱ // 0x898 @0x10
0x0888…08a9 at0011 = ╱36╱6╱ // 0x899 @0x11
0x0888…08a9 at0012 = ╱37╱7╱ // 0x89a @0x12
0x0888…08a9 at0013 = ╱38╱8╱ // 0x89b @0x13
0x0888…08a9 at0014 = ╱39╱9╱ // 0x89c @0x14
0x0888…08a9 at0015 = ╱22╱"╱ // 0x89d @0x15
0x0888…08a9 at0016 = ╱ea╱ ; ╱ // 0x89e @0x16
0x0888…08a9 at0017 = ╱4e╱N╱ // 0x89f @0x17
0x0888…08a9 at0018 = ╱55╱U╱ // 0x8a0 @0x18
0x0888…08a9 at0019 = ╱4c╱L╱ // 0x8a1 @0x19
0x0888…08a9 at001a = ╱52╱R╱ // 0x8a2 @0x1a
0x0888…08a9 at001b = ╱f0╱ := ╱ // 0x8a3 @0x1b
0x0888…08a9 at001c = ╱30╱0╱ // 0x8a4 @0x1c
0x0888…08a9 at001d = ╱f20000╱ // 0x8a5 @0x1d
0x0888…08a9 at0020 = EOL // 0x8a8 @0x20
0x0888…08a9 }
0x08a9…08d1 9ebf 00780 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
0x08a9…08d1 LineComal80 {
0x08a9…08d1 ptr = 0x9ebf // 0x8a9 @0x0
0x08a9…08d1 lno = 0x030c // 0x8ab @0x2
0x08a9…08d1 at0004 = ╱b400╱ FOR ╱ // 0x8ad @0x4
0x08a9…08d1 at0006 = ╱49╱I╱ // 0x8af @0x6
0x08a9…08d1 at0007 = ╱f0╱ := ╱ // 0x8b0 @0x7
0x08a9…08d1 at0008 = ╱cc╱ // 0x8b1 @0x8
0x08a9…08d1 at0009 = ╱ed╱ ( ╱ // 0x8b2 @0x9
0x08a9…08d1 at000a = ╱22╱"╱ // 0x8b3 @0xa
0x08a9…08d1 at000b = ╱41╱A╱ // 0x8b4 @0xb
0x08a9…08d1 at000c = ╱22╱"╱ // 0x8b5 @0xc
0x08a9…08d1 at000d = ╱ee╱ ) ╱ // 0x8b6 @0xd
0x08a9…08d1 at000e = ╱b7cc╱ TO ╱ // 0x8b7 @0xe
0x08a9…08d1 at0010 = ╱ed╱ ( ╱ // 0x8b9 @0x10
0x08a9…08d1 at0011 = ╱22╱"╱ // 0x8ba @0x11
0x08a9…08d1 at0012 = ╱5d╱]╱ // 0x8bb @0x12
0x08a9…08d1 at0013 = ╱22╱"╱ // 0x8bc @0x13
0x08a9…08d1 at0014 = ╱ee╱ ) ╱ // 0x8bd @0x14
0x08a9…08d1 at0015 = ╱bb╱ DO ╱ // 0x8be @0x15
0x08a9…08d1 at0016 = ╱86╱ LET ╱ // 0x8bf @0x16
0x08a9…08d1 at0017 = ╱41╱A╱ // 0x8c0 @0x17
0x08a9…08d1 at0018 = ╱4c╱L╱ // 0x8c1 @0x18
0x08a9…08d1 at0019 = ╱46╱F╱ // 0x8c2 @0x19
0x08a9…08d1 at001a = ╱41╱A╱ // 0x8c3 @0x1a
0x08a9…08d1 at001b = ╱ef╱ $ ╱ // 0x8c4 @0x1b
0x08a9…08d1 at001c = ╱f0╱ := ╱ // 0x8c5 @0x1c
0x08a9…08d1 at001d = ╱41╱A╱ // 0x8c6 @0x1d
0x08a9…08d1 at001e = ╱4c╱L╱ // 0x8c7 @0x1e
0x08a9…08d1 at001f = ╱46╱F╱ // 0x8c8 @0x1f
0x08a9…08d1 at0020 = ╱41╱A╱ // 0x8c9 @0x20
0x08a9…08d1 at0021 = ╱ef╱ $ ╱ // 0x8ca @0x21
0x08a9…08d1 at0022 = ╱eb╱ + ╱ // 0x8cb @0x22
0x08a9…08d1 at0023 = ╱d0╱ CHR$ ╱ // 0x8cc @0x23
0x08a9…08d1 at0024 = ╱ed╱ ( ╱ // 0x8cd @0x24
0x08a9…08d1 at0025 = ╱49╱I╱ // 0x8ce @0x25
0x08a9…08d1 at0026 = ╱ee╱ ) ╱ // 0x8cf @0x26
0x08a9…08d1 at0027 = EOL // 0x8d0 @0x27
0x08a9…08d1 }
0x08d1…090b 9ef9 00790 LET SPC $ := "………………………………………………………………………………………………………………………"
0x08d1…090b LineComal80 {
0x08d1…090b ptr = 0x9ef9 // 0x8d1 @0x0
0x08d1…090b lno = 0x0316 // 0x8d3 @0x2
0x08d1…090b at0004 = ╱86╱ LET ╱ // 0x8d5 @0x4
0x08d1…090b at0005 = ╱53╱S╱ // 0x8d6 @0x5
0x08d1…090b at0006 = ╱50╱P╱ // 0x8d7 @0x6
0x08d1…090b at0007 = ╱43╱C╱ // 0x8d8 @0x7
0x08d1…090b at0008 = ╱ef╱ $ ╱ // 0x8d9 @0x8
0x08d1…090b at0009 = ╱f0╱ := ╱ // 0x8da @0x9
0x08d1…090b at000a = ╱22╱"╱ // 0x8db @0xa
0x08d1…090b at000b = ╱20╱…╱ // 0x8dc @0xb
0x08d1…090b at000c = ╱20╱…╱ // 0x8dd @0xc
0x08d1…090b at000d = ╱20╱…╱ // 0x8de @0xd
0x08d1…090b at000e = ╱20╱…╱ // 0x8df @0xe
0x08d1…090b at000f = ╱20╱…╱ // 0x8e0 @0xf
0x08d1…090b at0010 = ╱20╱…╱ // 0x8e1 @0x10
0x08d1…090b at0011 = ╱20╱…╱ // 0x8e2 @0x11
0x08d1…090b at0012 = ╱20╱…╱ // 0x8e3 @0x12
0x08d1…090b at0013 = ╱20╱…╱ // 0x8e4 @0x13
0x08d1…090b at0014 = ╱20╱…╱ // 0x8e5 @0x14
0x08d1…090b at0015 = ╱20╱…╱ // 0x8e6 @0x15
0x08d1…090b at0016 = ╱20╱…╱ // 0x8e7 @0x16
0x08d1…090b at0017 = ╱20╱…╱ // 0x8e8 @0x17
0x08d1…090b at0018 = ╱20╱…╱ // 0x8e9 @0x18
0x08d1…090b at0019 = ╱20╱…╱ // 0x8ea @0x19
0x08d1…090b at001a = ╱20╱…╱ // 0x8eb @0x1a
0x08d1…090b at001b = ╱20╱…╱ // 0x8ec @0x1b
0x08d1…090b at001c = ╱20╱…╱ // 0x8ed @0x1c
0x08d1…090b at001d = ╱20╱…╱ // 0x8ee @0x1d
0x08d1…090b at001e = ╱20╱…╱ // 0x8ef @0x1e
0x08d1…090b at001f = ╱20╱…╱ // 0x8f0 @0x1f
0x08d1…090b at0020 = ╱20╱…╱ // 0x8f1 @0x20
0x08d1…090b at0021 = ╱20╱…╱ // 0x8f2 @0x21
0x08d1…090b at0022 = ╱20╱…╱ // 0x8f3 @0x22
0x08d1…090b at0023 = ╱20╱…╱ // 0x8f4 @0x23
0x08d1…090b at0024 = ╱20╱…╱ // 0x8f5 @0x24
0x08d1…090b at0025 = ╱20╱…╱ // 0x8f6 @0x25
0x08d1…090b at0026 = ╱20╱…╱ // 0x8f7 @0x26
0x08d1…090b at0027 = ╱20╱…╱ // 0x8f8 @0x27
0x08d1…090b at0028 = ╱20╱…╱ // 0x8f9 @0x28
0x08d1…090b at0029 = ╱20╱…╱ // 0x8fa @0x29
0x08d1…090b at002a = ╱20╱…╱ // 0x8fb @0x2a
0x08d1…090b at002b = ╱20╱…╱ // 0x8fc @0x2b
0x08d1…090b at002c = ╱20╱…╱ // 0x8fd @0x2c
0x08d1…090b at002d = ╱20╱…╱ // 0x8fe @0x2d
0x08d1…090b at002e = ╱20╱…╱ // 0x8ff @0x2e
0x08d1…090b at002f = ╱20╱…╱ // 0x900 @0x2f
0x08d1…090b at0030 = ╱20╱…╱ // 0x901 @0x30
0x08d1…090b at0031 = ╱20╱…╱ // 0x902 @0x31
0x08d1…090b at0032 = ╱20╱…╱ // 0x903 @0x32
0x08d1…090b at0033 = ╱20╱…╱ // 0x904 @0x33
0x08d1…090b at0034 = ╱20╱…╱ // 0x905 @0x34
0x08d1…090b at0035 = ╱20╱…╱ // 0x906 @0x35
0x08d1…090b at0036 = ╱20╱…╱ // 0x907 @0x36
0x08d1…090b at0037 = ╱20╱…╱ // 0x908 @0x37
0x08d1…090b at0038 = ╱22╱"╱ // 0x909 @0x38
0x08d1…090b at0039 = EOL // 0x90a @0x39
0x08d1…090b }
0x090b…091f 9f0d 00800 LET SPC $ := SPC $ + SPC $
0x090b…091f LineComal80 {
0x090b…091f ptr = 0x9f0d // 0x90b @0x0
0x090b…091f lno = 0x0320 // 0x90d @0x2
0x090b…091f at0004 = ╱86╱ LET ╱ // 0x90f @0x4
0x090b…091f at0005 = ╱53╱S╱ // 0x910 @0x5
0x090b…091f at0006 = ╱50╱P╱ // 0x911 @0x6
0x090b…091f at0007 = ╱43╱C╱ // 0x912 @0x7
0x090b…091f at0008 = ╱ef╱ $ ╱ // 0x913 @0x8
0x090b…091f at0009 = ╱f0╱ := ╱ // 0x914 @0x9
0x090b…091f at000a = ╱53╱S╱ // 0x915 @0xa
0x090b…091f at000b = ╱50╱P╱ // 0x916 @0xb
0x090b…091f at000c = ╱43╱C╱ // 0x917 @0xc
0x090b…091f at000d = ╱ef╱ $ ╱ // 0x918 @0xd
0x090b…091f at000e = ╱eb╱ + ╱ // 0x919 @0xe
0x090b…091f at000f = ╱53╱S╱ // 0x91a @0xf
0x090b…091f at0010 = ╱50╱P╱ // 0x91b @0x10
0x090b…091f at0011 = ╱43╱C╱ // 0x91c @0x11
0x090b…091f at0012 = ╱ef╱ $ ╱ // 0x91d @0x12
0x090b…091f at0013 = EOL // 0x91e @0x13
0x090b…091f }
0x091f…094a 9f38 00810 LET FALSE := 0 ; TRUE := 1 // boolske…variable
0x091f…094a LineComal80 {
0x091f…094a ptr = 0x9f38 // 0x91f @0x0
0x091f…094a lno = 0x032a // 0x921 @0x2
0x091f…094a at0004 = ╱86╱ LET ╱ // 0x923 @0x4
0x091f…094a at0005 = ╱46╱F╱ // 0x924 @0x5
0x091f…094a at0006 = ╱41╱A╱ // 0x925 @0x6
0x091f…094a at0007 = ╱4c╱L╱ // 0x926 @0x7
0x091f…094a at0008 = ╱53╱S╱ // 0x927 @0x8
0x091f…094a at0009 = ╱45╱E╱ // 0x928 @0x9
0x091f…094a at000a = ╱f0╱ := ╱ // 0x929 @0xa
0x091f…094a at000b = ╱30╱0╱ // 0x92a @0xb
0x091f…094a at000c = ╱f20000╱ // 0x92b @0xc
0x091f…094a at000f = ╱ea╱ ; ╱ // 0x92e @0xf
0x091f…094a at0010 = ╱54╱T╱ // 0x92f @0x10
0x091f…094a at0011 = ╱52╱R╱ // 0x930 @0x11
0x091f…094a at0012 = ╱55╱U╱ // 0x931 @0x12
0x091f…094a at0013 = ╱45╱E╱ // 0x932 @0x13
0x091f…094a at0014 = ╱f0╱ := ╱ // 0x933 @0x14
0x091f…094a at0015 = ╱31╱1╱ // 0x934 @0x15
0x091f…094a at0016 = ╱f20100╱ // 0x935 @0x16
0x091f…094a at0019 = ╱89╱ // ╱ // 0x938 @0x19
0x091f…094a at001a = ╱62╱b╱ // 0x939 @0x1a
0x091f…094a at001b = ╱6f╱o╱ // 0x93a @0x1b
0x091f…094a at001c = ╱6f╱o╱ // 0x93b @0x1c
0x091f…094a at001d = ╱6c╱l╱ // 0x93c @0x1d
0x091f…094a at001e = ╱73╱s╱ // 0x93d @0x1e
0x091f…094a at001f = ╱6b╱k╱ // 0x93e @0x1f
0x091f…094a at0020 = ╱65╱e╱ // 0x93f @0x20
0x091f…094a at0021 = ╱20╱…╱ // 0x940 @0x21
0x091f…094a at0022 = ╱76╱v╱ // 0x941 @0x22
0x091f…094a at0023 = ╱61╱a╱ // 0x942 @0x23
0x091f…094a at0024 = ╱72╱r╱ // 0x943 @0x24
0x091f…094a at0025 = ╱69╱i╱ // 0x944 @0x25
0x091f…094a at0026 = ╱61╱a╱ // 0x945 @0x26
0x091f…094a at0027 = ╱62╱b╱ // 0x946 @0x27
0x091f…094a at0028 = ╱6c╱l╱ // 0x947 @0x28
0x091f…094a at0029 = ╱65╱e╱ // 0x948 @0x29
0x091f…094a at002a = EOL // 0x949 @0x2a
0x091f…094a }
0x094a…0967 9f55 00820 LET KREDIT := - 1 ; DEBET := 1
0x094a…0967 LineComal80 {
0x094a…0967 ptr = 0x9f55 // 0x94a @0x0
0x094a…0967 lno = 0x0334 // 0x94c @0x2
0x094a…0967 at0004 = ╱86╱ LET ╱ // 0x94e @0x4
0x094a…0967 at0005 = ╱4b╱K╱ // 0x94f @0x5
0x094a…0967 at0006 = ╱52╱R╱ // 0x950 @0x6
0x094a…0967 at0007 = ╱45╱E╱ // 0x951 @0x7
0x094a…0967 at0008 = ╱44╱D╱ // 0x952 @0x8
0x094a…0967 at0009 = ╱49╱I╱ // 0x953 @0x9
0x094a…0967 at000a = ╱54╱T╱ // 0x954 @0xa
0x094a…0967 at000b = ╱f0╱ := ╱ // 0x955 @0xb
0x094a…0967 at000c = ╱de╱ - ╱ // 0x956 @0xc
0x094a…0967 at000d = ╱31╱1╱ // 0x957 @0xd
0x094a…0967 at000e = ╱f20100╱ // 0x958 @0xe
0x094a…0967 at0011 = ╱ea╱ ; ╱ // 0x95b @0x11
0x094a…0967 at0012 = ╱44╱D╱ // 0x95c @0x12
0x094a…0967 at0013 = ╱45╱E╱ // 0x95d @0x13
0x094a…0967 at0014 = ╱42╱B╱ // 0x95e @0x14
0x094a…0967 at0015 = ╱45╱E╱ // 0x95f @0x15
0x094a…0967 at0016 = ╱54╱T╱ // 0x960 @0x16
0x094a…0967 at0017 = ╱f0╱ := ╱ // 0x961 @0x17
0x094a…0967 at0018 = ╱31╱1╱ // 0x962 @0x18
0x094a…0967 at0019 = ╱f20100╱ // 0x963 @0x19
0x094a…0967 at001c = EOL // 0x966 @0x1c
0x094a…0967 }
0x0967…0987 9f75 00830 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
0x0967…0987 LineComal80 {
0x0967…0987 ptr = 0x9f75 // 0x967 @0x0
0x0967…0987 lno = 0x033e // 0x969 @0x2
0x0967…0987 at0004 = ╱86╱ LET ╱ // 0x96b @0x4
0x0967…0987 at0005 = ╱53╱S╱ // 0x96c @0x5
0x0967…0987 at0006 = ╱59╱Y╱ // 0x96d @0x6
0x0967…0987 at0007 = ╱53╱S╱ // 0x96e @0x7
0x0967…0987 at0008 = ╱50╱P╱ // 0x96f @0x8
0x0967…0987 at0009 = ╱41╱A╱ // 0x970 @0x9
0x0967…0987 at000a = ╱52╱R╱ // 0x971 @0xa
0x0967…0987 at000b = ╱41╱A╱ // 0x972 @0xb
0x0967…0987 at000c = ╱ef╱ $ ╱ // 0x973 @0xc
0x0967…0987 at000d = ╱f0╱ := ╱ // 0x974 @0xd
0x0967…0987 at000e = ╱50╱P╱ // 0x975 @0xe
0x0967…0987 at000f = ╱52╱R╱ // 0x976 @0xf
0x0967…0987 at0010 = ╱47╱G╱ // 0x977 @0x10
0x0967…0987 at0011 = ╱46╱F╱ // 0x978 @0x11
0x0967…0987 at0012 = ╱4c╱L╱ // 0x979 @0x12
0x0967…0987 at0013 = ╱ef╱ $ ╱ // 0x97a @0x13
0x0967…0987 at0014 = ╱eb╱ + ╱ // 0x97b @0x14
0x0967…0987 at0015 = ╱22╱"╱ // 0x97c @0x15
0x0967…0987 at0016 = ╱3a╱:╱ // 0x97d @0x16
0x0967…0987 at0017 = ╱53╱S╱ // 0x97e @0x17
0x0967…0987 at0018 = ╱59╱Y╱ // 0x97f @0x18
0x0967…0987 at0019 = ╱53╱S╱ // 0x980 @0x19
0x0967…0987 at001a = ╱50╱P╱ // 0x981 @0x1a
0x0967…0987 at001b = ╱41╱A╱ // 0x982 @0x1b
0x0967…0987 at001c = ╱52╱R╱ // 0x983 @0x1c
0x0967…0987 at001d = ╱41╱A╱ // 0x984 @0x1d
0x0967…0987 at001e = ╱22╱"╱ // 0x985 @0x1e
0x0967…0987 at001f = EOL // 0x986 @0x1f
0x0967…0987 }
0x0987…09a2 9f90 00840 EXEC OPENFIL ( SYSPARA $ , "R" )
0x0987…09a2 LineComal80 {
0x0987…09a2 ptr = 0x9f90 // 0x987 @0x0
0x0987…09a2 lno = 0x0348 // 0x989 @0x2
0x0987…09a2 at0004 = ╱9d╱ EXEC ╱ // 0x98b @0x4
0x0987…09a2 at0005 = ╱4f╱O╱ // 0x98c @0x5
0x0987…09a2 at0006 = ╱50╱P╱ // 0x98d @0x6
0x0987…09a2 at0007 = ╱45╱E╱ // 0x98e @0x7
0x0987…09a2 at0008 = ╱4e╱N╱ // 0x98f @0x8
0x0987…09a2 at0009 = ╱46╱F╱ // 0x990 @0x9
0x0987…09a2 at000a = ╱49╱I╱ // 0x991 @0xa
0x0987…09a2 at000b = ╱4c╱L╱ // 0x992 @0xb
0x0987…09a2 at000c = ╱ed╱ ( ╱ // 0x993 @0xc
0x0987…09a2 at000d = ╱53╱S╱ // 0x994 @0xd
0x0987…09a2 at000e = ╱59╱Y╱ // 0x995 @0xe
0x0987…09a2 at000f = ╱53╱S╱ // 0x996 @0xf
0x0987…09a2 at0010 = ╱50╱P╱ // 0x997 @0x10
0x0987…09a2 at0011 = ╱41╱A╱ // 0x998 @0x11
0x0987…09a2 at0012 = ╱52╱R╱ // 0x999 @0x12
0x0987…09a2 at0013 = ╱41╱A╱ // 0x99a @0x13
0x0987…09a2 at0014 = ╱ef╱ $ ╱ // 0x99b @0x14
0x0987…09a2 at0015 = ╱ec╱ , ╱ // 0x99c @0x15
0x0987…09a2 at0016 = ╱22╱"╱ // 0x99d @0x16
0x0987…09a2 at0017 = ╱52╱R╱ // 0x99e @0x17
0x0987…09a2 at0018 = ╱22╱"╱ // 0x99f @0x18
0x0987…09a2 at0019 = ╱ee╱ ) ╱ // 0x9a0 @0x19
0x0987…09a2 at001a = EOL // 0x9a1 @0x1a
0x0987…09a2 }
0x09a2…09c8 9fb6 00850 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
0x09a2…09c8 LineComal80 {
0x09a2…09c8 ptr = 0x9fb6 // 0x9a2 @0x0
0x09a2…09c8 lno = 0x0352 // 0x9a4 @0x2
0x09a2…09c8 at0004 = ╱a9╱ GET ╱ // 0x9a6 @0x4
0x09a2…09c8 at0005 = ╱53╱S╱ // 0x9a7 @0x5
0x09a2…09c8 at0006 = ╱59╱Y╱ // 0x9a8 @0x6
0x09a2…09c8 at0007 = ╱53╱S╱ // 0x9a9 @0x7
0x09a2…09c8 at0008 = ╱50╱P╱ // 0x9aa @0x8
0x09a2…09c8 at0009 = ╱41╱A╱ // 0x9ab @0x9
0x09a2…09c8 at000a = ╱52╱R╱ // 0x9ac @0xa
0x09a2…09c8 at000b = ╱41╱A╱ // 0x9ad @0xb
0x09a2…09c8 at000c = ╱ef╱ $ ╱ // 0x9ae @0xc
0x09a2…09c8 at000d = ╱ec╱ , ╱ // 0x9af @0xd
0x09a2…09c8 at000e = ╱31╱1╱ // 0x9b0 @0xe
0x09a2…09c8 at000f = ╱f20100╱ // 0x9b1 @0xf
0x09a2…09c8 at0012 = ╱f1╱ : ╱ // 0x9b4 @0x12
0x09a2…09c8 at0013 = ╱53╱S╱ // 0x9b5 @0x13
0x09a2…09c8 at0014 = ╱59╱Y╱ // 0x9b6 @0x14
0x09a2…09c8 at0015 = ╱53╱S╱ // 0x9b7 @0x15
0x09a2…09c8 at0016 = ╱54╱T╱ // 0x9b8 @0x16
0x09a2…09c8 at0017 = ╱5f╱_╱ // 0x9b9 @0x17
0x09a2…09c8 at0018 = ╱4e╱N╱ // 0x9ba @0x18
0x09a2…09c8 at0019 = ╱41╱A╱ // 0x9bb @0x19
0x09a2…09c8 at001a = ╱56╱V╱ // 0x9bc @0x1a
0x09a2…09c8 at001b = ╱4e╱N╱ // 0x9bd @0x1b
0x09a2…09c8 at001c = ╱ef╱ $ ╱ // 0x9be @0x1c
0x09a2…09c8 at001d = ╱ec╱ , ╱ // 0x9bf @0x1d
0x09a2…09c8 at001e = ╱53╱S╱ // 0x9c0 @0x1e
0x09a2…09c8 at001f = ╱5f╱_╱ // 0x9c1 @0x1f
0x09a2…09c8 at0020 = ╱4b╱K╱ // 0x9c2 @0x20
0x09a2…09c8 at0021 = ╱4f╱O╱ // 0x9c3 @0x21
0x09a2…09c8 at0022 = ╱44╱D╱ // 0x9c4 @0x22
0x09a2…09c8 at0023 = ╱45╱E╱ // 0x9c5 @0x23
0x09a2…09c8 at0024 = ╱ef╱ $ ╱ // 0x9c6 @0x24
0x09a2…09c8 at0025 = EOL // 0x9c7 @0x25
0x09a2…09c8 }
0x09c8…09da 9fc8 00860 EXEC TERMINAL_IDX
0x09c8…09da LineComal80 {
0x09c8…09da ptr = 0x9fc8 // 0x9c8 @0x0
0x09c8…09da lno = 0x035c // 0x9ca @0x2
0x09c8…09da at0004 = ╱9d╱ EXEC ╱ // 0x9cc @0x4
0x09c8…09da at0005 = ╱54╱T╱ // 0x9cd @0x5
0x09c8…09da at0006 = ╱45╱E╱ // 0x9ce @0x6
0x09c8…09da at0007 = ╱52╱R╱ // 0x9cf @0x7
0x09c8…09da at0008 = ╱4d╱M╱ // 0x9d0 @0x8
0x09c8…09da at0009 = ╱49╱I╱ // 0x9d1 @0x9
0x09c8…09da at000a = ╱4e╱N╱ // 0x9d2 @0xa
0x09c8…09da at000b = ╱41╱A╱ // 0x9d3 @0xb
0x09c8…09da at000c = ╱4c╱L╱ // 0x9d4 @0xc
0x09c8…09da at000d = ╱5f╱_╱ // 0x9d5 @0xd
0x09c8…09da at000e = ╱49╱I╱ // 0x9d6 @0xe
0x09c8…09da at000f = ╱44╱D╱ // 0x9d7 @0xf
0x09c8…09da at0010 = ╱58╱X╱ // 0x9d8 @0x10
0x09c8…09da at0011 = EOL // 0x9d9 @0x11
0x09c8…09da }
0x09da…09e8 9fd6 00870 CLOSE SYSPARA $
0x09da…09e8 LineComal80 {
0x09da…09e8 ptr = 0x9fd6 // 0x9da @0x0
0x09da…09e8 lno = 0x0366 // 0x9dc @0x2
0x09da…09e8 at0004 = ╱a8╱ CLOSE ╱ // 0x9de @0x4
0x09da…09e8 at0005 = ╱53╱S╱ // 0x9df @0x5
0x09da…09e8 at0006 = ╱59╱Y╱ // 0x9e0 @0x6
0x09da…09e8 at0007 = ╱53╱S╱ // 0x9e1 @0x7
0x09da…09e8 at0008 = ╱50╱P╱ // 0x9e2 @0x8
0x09da…09e8 at0009 = ╱41╱A╱ // 0x9e3 @0x9
0x09da…09e8 at000a = ╱52╱R╱ // 0x9e4 @0xa
0x09da…09e8 at000b = ╱41╱A╱ // 0x9e5 @0xb
0x09da…09e8 at000c = ╱ef╱ $ ╱ // 0x9e6 @0xc
0x09da…09e8 at000d = EOL // 0x9e7 @0xd
0x09da…09e8 }
0x09e8…0a18 a006 00880 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
0x09e8…0a18 LineComal80 {
0x09e8…0a18 ptr = 0xa006 // 0x9e8 @0x0
0x09e8…0a18 lno = 0x0370 // 0x9ea @0x2
0x09e8…0a18 at0004 = ╱86╱ LET ╱ // 0x9ec @0x4
0x09e8…0a18 at0005 = ╱50╱P╱ // 0x9ed @0x5
0x09e8…0a18 at0006 = ╱41╱A╱ // 0x9ee @0x6
0x09e8…0a18 at0007 = ╱52╱R╱ // 0x9ef @0x7
0x09e8…0a18 at0008 = ╱41╱A╱ // 0x9f0 @0x8
0x09e8…0a18 at0009 = ╱4d╱M╱ // 0x9f1 @0x9
0x09e8…0a18 at000a = ╱ef╱ $ ╱ // 0x9f2 @0xa
0x09e8…0a18 at000b = ╱f0╱ := ╱ // 0x9f3 @0xb
0x09e8…0a18 at000c = ╱44╱D╱ // 0x9f4 @0xc
0x09e8…0a18 at000d = ╱41╱A╱ // 0x9f5 @0xd
0x09e8…0a18 at000e = ╱54╱T╱ // 0x9f6 @0xe
0x09e8…0a18 at000f = ╱41╱A╱ // 0x9f7 @0xf
0x09e8…0a18 at0010 = ╱46╱F╱ // 0x9f8 @0x10
0x09e8…0a18 at0011 = ╱4c╱L╱ // 0x9f9 @0x11
0x09e8…0a18 at0012 = ╱ef╱ $ ╱ // 0x9fa @0x12
0x09e8…0a18 at0013 = ╱eb╱ + ╱ // 0x9fb @0x13
0x09e8…0a18 at0014 = ╱22╱"╱ // 0x9fc @0x14
0x09e8…0a18 at0015 = ╱3a╱:╱ // 0x9fd @0x15
0x09e8…0a18 at0016 = ╱22╱"╱ // 0x9fe @0x16
0x09e8…0a18 at0017 = ╱eb╱ + ╱ // 0x9ff @0x17
0x09e8…0a18 at0018 = ╱53╱S╱ // 0xa00 @0x18
0x09e8…0a18 at0019 = ╱5f╱_╱ // 0xa01 @0x19
0x09e8…0a18 at001a = ╱4b╱K╱ // 0xa02 @0x1a
0x09e8…0a18 at001b = ╱4f╱O╱ // 0xa03 @0x1b
0x09e8…0a18 at001c = ╱44╱D╱ // 0xa04 @0x1c
0x09e8…0a18 at001d = ╱45╱E╱ // 0xa05 @0x1d
0x09e8…0a18 at001e = ╱ef╱ $ ╱ // 0xa06 @0x1e
0x09e8…0a18 at001f = ╱eb╱ + ╱ // 0xa07 @0x1f
0x09e8…0a18 at0020 = ╱54╱T╱ // 0xa08 @0x20
0x09e8…0a18 at0021 = ╱5f╱_╱ // 0xa09 @0x21
0x09e8…0a18 at0022 = ╱4b╱K╱ // 0xa0a @0x22
0x09e8…0a18 at0023 = ╱4f╱O╱ // 0xa0b @0x23
0x09e8…0a18 at0024 = ╱44╱D╱ // 0xa0c @0x24
0x09e8…0a18 at0025 = ╱45╱E╱ // 0xa0d @0x25
0x09e8…0a18 at0026 = ╱ef╱ $ ╱ // 0xa0e @0x26
0x09e8…0a18 at0027 = ╱eb╱ + ╱ // 0xa0f @0x27
0x09e8…0a18 at0028 = ╱22╱"╱ // 0xa10 @0x28
0x09e8…0a18 at0029 = ╱50╱P╱ // 0xa11 @0x29
0x09e8…0a18 at002a = ╱41╱A╱ // 0xa12 @0x2a
0x09e8…0a18 at002b = ╱52╱R╱ // 0xa13 @0x2b
0x09e8…0a18 at002c = ╱41╱A╱ // 0xa14 @0x2c
0x09e8…0a18 at002d = ╱4d╱M╱ // 0xa15 @0x2d
0x09e8…0a18 at002e = ╱22╱"╱ // 0xa16 @0x2e
0x09e8…0a18 at002f = EOL // 0xa17 @0x2f
0x09e8…0a18 }
0x0a18…0a31 a01f 00890 EXEC OPENFIL ( PARAM $ , "R" )
0x0a18…0a31 LineComal80 {
0x0a18…0a31 ptr = 0xa01f // 0xa18 @0x0
0x0a18…0a31 lno = 0x037a // 0xa1a @0x2
0x0a18…0a31 at0004 = ╱9d╱ EXEC ╱ // 0xa1c @0x4
0x0a18…0a31 at0005 = ╱4f╱O╱ // 0xa1d @0x5
0x0a18…0a31 at0006 = ╱50╱P╱ // 0xa1e @0x6
0x0a18…0a31 at0007 = ╱45╱E╱ // 0xa1f @0x7
0x0a18…0a31 at0008 = ╱4e╱N╱ // 0xa20 @0x8
0x0a18…0a31 at0009 = ╱46╱F╱ // 0xa21 @0x9
0x0a18…0a31 at000a = ╱49╱I╱ // 0xa22 @0xa
0x0a18…0a31 at000b = ╱4c╱L╱ // 0xa23 @0xb
0x0a18…0a31 at000c = ╱ed╱ ( ╱ // 0xa24 @0xc
0x0a18…0a31 at000d = ╱50╱P╱ // 0xa25 @0xd
0x0a18…0a31 at000e = ╱41╱A╱ // 0xa26 @0xe
0x0a18…0a31 at000f = ╱52╱R╱ // 0xa27 @0xf
0x0a18…0a31 at0010 = ╱41╱A╱ // 0xa28 @0x10
0x0a18…0a31 at0011 = ╱4d╱M╱ // 0xa29 @0x11
0x0a18…0a31 at0012 = ╱ef╱ $ ╱ // 0xa2a @0x12
0x0a18…0a31 at0013 = ╱ec╱ , ╱ // 0xa2b @0x13
0x0a18…0a31 at0014 = ╱22╱"╱ // 0xa2c @0x14
0x0a18…0a31 at0015 = ╱52╱R╱ // 0xa2d @0x15
0x0a18…0a31 at0016 = ╱22╱"╱ // 0xa2e @0x16
0x0a18…0a31 at0017 = ╱ee╱ ) ╱ // 0xa2f @0x17
0x0a18…0a31 at0018 = EOL // 0xa30 @0x18
0x0a18…0a31 }
0x0a31…0a5c a04a 00900 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
0x0a31…0a5c LineComal80 {
0x0a31…0a5c ptr = 0xa04a // 0xa31 @0x0
0x0a31…0a5c lno = 0x0384 // 0xa33 @0x2
0x0a31…0a5c at0004 = ╱a9╱ GET ╱ // 0xa35 @0x4
0x0a31…0a5c at0005 = ╱50╱P╱ // 0xa36 @0x5
0x0a31…0a5c at0006 = ╱41╱A╱ // 0xa37 @0x6
0x0a31…0a5c at0007 = ╱52╱R╱ // 0xa38 @0x7
0x0a31…0a5c at0008 = ╱41╱A╱ // 0xa39 @0x8
0x0a31…0a5c at0009 = ╱4d╱M╱ // 0xa3a @0x9
0x0a31…0a5c at000a = ╱ef╱ $ ╱ // 0xa3b @0xa
0x0a31…0a5c at000b = ╱ec╱ , ╱ // 0xa3c @0xb
0x0a31…0a5c at000c = ╱31╱1╱ // 0xa3d @0xc
0x0a31…0a5c at000d = ╱f20100╱ // 0xa3e @0xd
0x0a31…0a5c at0010 = ╱f1╱ : ╱ // 0xa41 @0x10
0x0a31…0a5c at0011 = ╱46╱F╱ // 0xa42 @0x11
0x0a31…0a5c at0012 = ╱49╱I╱ // 0xa43 @0x12
0x0a31…0a5c at0013 = ╱52╱R╱ // 0xa44 @0x13
0x0a31…0a5c at0014 = ╱4d╱M╱ // 0xa45 @0x14
0x0a31…0a5c at0015 = ╱41╱A╱ // 0xa46 @0x15
0x0a31…0a5c at0016 = ╱4e╱N╱ // 0xa47 @0x16
0x0a31…0a5c at0017 = ╱41╱A╱ // 0xa48 @0x17
0x0a31…0a5c at0018 = ╱56╱V╱ // 0xa49 @0x18
0x0a31…0a5c at0019 = ╱4e╱N╱ // 0xa4a @0x19
0x0a31…0a5c at001a = ╱ef╱ $ ╱ // 0xa4b @0x1a
0x0a31…0a5c at001b = ╱ec╱ , ╱ // 0xa4c @0x1b
0x0a31…0a5c at001c = ╱53╱S╱ // 0xa4d @0x1c
0x0a31…0a5c at001d = ╱59╱Y╱ // 0xa4e @0x1d
0x0a31…0a5c at001e = ╱53╱S╱ // 0xa4f @0x1e
0x0a31…0a5c at001f = ╱54╱T╱ // 0xa50 @0x1f
0x0a31…0a5c at0020 = ╱5f╱_╱ // 0xa51 @0x20
0x0a31…0a5c at0021 = ╱44╱D╱ // 0xa52 @0x21
0x0a31…0a5c at0022 = ╱41╱A╱ // 0xa53 @0x22
0x0a31…0a5c at0023 = ╱54╱T╱ // 0xa54 @0x23
0x0a31…0a5c at0024 = ╱ef╱ $ ╱ // 0xa55 @0x24
0x0a31…0a5c at0025 = ╱ec╱ , ╱ // 0xa56 @0x25
0x0a31…0a5c at0026 = ╱4d╱M╱ // 0xa57 @0x26
0x0a31…0a5c at0027 = ╱4f╱O╱ // 0xa58 @0x27
0x0a31…0a5c at0028 = ╱4d╱M╱ // 0xa59 @0x28
0x0a31…0a5c at0029 = ╱53╱S╱ // 0xa5a @0x29
0x0a31…0a5c at002a = EOL // 0xa5b @0x2a
0x0a31…0a5c }
0x0a5c…0a85 a073 00910 GET PARAM $ , 2 : ST_DATO $ , ANT_PER , PER_NR
0x0a5c…0a85 LineComal80 {
0x0a5c…0a85 ptr = 0xa073 // 0xa5c @0x0
0x0a5c…0a85 lno = 0x038e // 0xa5e @0x2
0x0a5c…0a85 at0004 = ╱a9╱ GET ╱ // 0xa60 @0x4
0x0a5c…0a85 at0005 = ╱50╱P╱ // 0xa61 @0x5
0x0a5c…0a85 at0006 = ╱41╱A╱ // 0xa62 @0x6
0x0a5c…0a85 at0007 = ╱52╱R╱ // 0xa63 @0x7
0x0a5c…0a85 at0008 = ╱41╱A╱ // 0xa64 @0x8
0x0a5c…0a85 at0009 = ╱4d╱M╱ // 0xa65 @0x9
0x0a5c…0a85 at000a = ╱ef╱ $ ╱ // 0xa66 @0xa
0x0a5c…0a85 at000b = ╱ec╱ , ╱ // 0xa67 @0xb
0x0a5c…0a85 at000c = ╱32╱2╱ // 0xa68 @0xc
0x0a5c…0a85 at000d = ╱f20200╱ // 0xa69 @0xd
0x0a5c…0a85 at0010 = ╱f1╱ : ╱ // 0xa6c @0x10
0x0a5c…0a85 at0011 = ╱53╱S╱ // 0xa6d @0x11
0x0a5c…0a85 at0012 = ╱54╱T╱ // 0xa6e @0x12
0x0a5c…0a85 at0013 = ╱5f╱_╱ // 0xa6f @0x13
0x0a5c…0a85 at0014 = ╱44╱D╱ // 0xa70 @0x14
0x0a5c…0a85 at0015 = ╱41╱A╱ // 0xa71 @0x15
0x0a5c…0a85 at0016 = ╱54╱T╱ // 0xa72 @0x16
0x0a5c…0a85 at0017 = ╱4f╱O╱ // 0xa73 @0x17
0x0a5c…0a85 at0018 = ╱ef╱ $ ╱ // 0xa74 @0x18
0x0a5c…0a85 at0019 = ╱ec╱ , ╱ // 0xa75 @0x19
0x0a5c…0a85 at001a = ╱41╱A╱ // 0xa76 @0x1a
0x0a5c…0a85 at001b = ╱4e╱N╱ // 0xa77 @0x1b
0x0a5c…0a85 at001c = ╱54╱T╱ // 0xa78 @0x1c
0x0a5c…0a85 at001d = ╱5f╱_╱ // 0xa79 @0x1d
0x0a5c…0a85 at001e = ╱50╱P╱ // 0xa7a @0x1e
0x0a5c…0a85 at001f = ╱45╱E╱ // 0xa7b @0x1f
0x0a5c…0a85 at0020 = ╱52╱R╱ // 0xa7c @0x20
0x0a5c…0a85 at0021 = ╱ec╱ , ╱ // 0xa7d @0x21
0x0a5c…0a85 at0022 = ╱50╱P╱ // 0xa7e @0x22
0x0a5c…0a85 at0023 = ╱45╱E╱ // 0xa7f @0x23
0x0a5c…0a85 at0024 = ╱52╱R╱ // 0xa80 @0x24
0x0a5c…0a85 at0025 = ╱5f╱_╱ // 0xa81 @0x25
0x0a5c…0a85 at0026 = ╱4e╱N╱ // 0xa82 @0x26
0x0a5c…0a85 at0027 = ╱52╱R╱ // 0xa83 @0x27
0x0a5c…0a85 at0028 = EOL // 0xa84 @0x28
0x0a5c…0a85 }
0x0a85…0a91 a07f 00920 CLOSE PARAM $
0x0a85…0a91 LineComal80 {
0x0a85…0a91 ptr = 0xa07f // 0xa85 @0x0
0x0a85…0a91 lno = 0x0398 // 0xa87 @0x2
0x0a85…0a91 at0004 = ╱a8╱ CLOSE ╱ // 0xa89 @0x4
0x0a85…0a91 at0005 = ╱50╱P╱ // 0xa8a @0x5
0x0a85…0a91 at0006 = ╱41╱A╱ // 0xa8b @0x6
0x0a85…0a91 at0007 = ╱52╱R╱ // 0xa8c @0x7
0x0a85…0a91 at0008 = ╱41╱A╱ // 0xa8d @0x8
0x0a85…0a91 at0009 = ╱4d╱M╱ // 0xa8e @0x9
0x0a85…0a91 at000a = ╱ef╱ $ ╱ // 0xa8f @0xa
0x0a85…0a91 at000b = EOL // 0xa90 @0xb
0x0a85…0a91 }
0x0a91…0ac3 a0b1 00930 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
0x0a91…0ac3 LineComal80 {
0x0a91…0ac3 ptr = 0xa0b1 // 0xa91 @0x0
0x0a91…0ac3 lno = 0x03a2 // 0xa93 @0x2
0x0a91…0ac3 at0004 = ╱86╱ LET ╱ // 0xa95 @0x4
0x0a91…0ac3 at0005 = ╱4b╱K╱ // 0xa96 @0x5
0x0a91…0ac3 at0006 = ╱54╱T╱ // 0xa97 @0x6
0x0a91…0ac3 at0007 = ╱4f╱O╱ // 0xa98 @0x7
0x0a91…0ac3 at0008 = ╱49╱I╱ // 0xa99 @0x8
0x0a91…0ac3 at0009 = ╱44╱D╱ // 0xa9a @0x9
0x0a91…0ac3 at000a = ╱58╱X╱ // 0xa9b @0xa
0x0a91…0ac3 at000b = ╱ef╱ $ ╱ // 0xa9c @0xb
0x0a91…0ac3 at000c = ╱f0╱ := ╱ // 0xa9d @0xc
0x0a91…0ac3 at000d = ╱44╱D╱ // 0xa9e @0xd
0x0a91…0ac3 at000e = ╱41╱A╱ // 0xa9f @0xe
0x0a91…0ac3 at000f = ╱54╱T╱ // 0xaa0 @0xf
0x0a91…0ac3 at0010 = ╱41╱A╱ // 0xaa1 @0x10
0x0a91…0ac3 at0011 = ╱46╱F╱ // 0xaa2 @0x11
0x0a91…0ac3 at0012 = ╱4c╱L╱ // 0xaa3 @0x12
0x0a91…0ac3 at0013 = ╱ef╱ $ ╱ // 0xaa4 @0x13
0x0a91…0ac3 at0014 = ╱eb╱ + ╱ // 0xaa5 @0x14
0x0a91…0ac3 at0015 = ╱22╱"╱ // 0xaa6 @0x15
0x0a91…0ac3 at0016 = ╱3a╱:╱ // 0xaa7 @0x16
0x0a91…0ac3 at0017 = ╱22╱"╱ // 0xaa8 @0x17
0x0a91…0ac3 at0018 = ╱eb╱ + ╱ // 0xaa9 @0x18
0x0a91…0ac3 at0019 = ╱53╱S╱ // 0xaaa @0x19
0x0a91…0ac3 at001a = ╱5f╱_╱ // 0xaab @0x1a
0x0a91…0ac3 at001b = ╱4b╱K╱ // 0xaac @0x1b
0x0a91…0ac3 at001c = ╱4f╱O╱ // 0xaad @0x1c
0x0a91…0ac3 at001d = ╱44╱D╱ // 0xaae @0x1d
0x0a91…0ac3 at001e = ╱45╱E╱ // 0xaaf @0x1e
0x0a91…0ac3 at001f = ╱ef╱ $ ╱ // 0xab0 @0x1f
0x0a91…0ac3 at0020 = ╱eb╱ + ╱ // 0xab1 @0x20
0x0a91…0ac3 at0021 = ╱54╱T╱ // 0xab2 @0x21
0x0a91…0ac3 at0022 = ╱5f╱_╱ // 0xab3 @0x22
0x0a91…0ac3 at0023 = ╱4b╱K╱ // 0xab4 @0x23
0x0a91…0ac3 at0024 = ╱4f╱O╱ // 0xab5 @0x24
0x0a91…0ac3 at0025 = ╱44╱D╱ // 0xab6 @0x25
0x0a91…0ac3 at0026 = ╱45╱E╱ // 0xab7 @0x26
0x0a91…0ac3 at0027 = ╱ef╱ $ ╱ // 0xab8 @0x27
0x0a91…0ac3 at0028 = ╱eb╱ + ╱ // 0xab9 @0x28
0x0a91…0ac3 at0029 = ╱22╱"╱ // 0xaba @0x29
0x0a91…0ac3 at002a = ╱4b╱K╱ // 0xabb @0x2a
0x0a91…0ac3 at002b = ╱54╱T╱ // 0xabc @0x2b
0x0a91…0ac3 at002c = ╱4f╱O╱ // 0xabd @0x2c
0x0a91…0ac3 at002d = ╱49╱I╱ // 0xabe @0x2d
0x0a91…0ac3 at002e = ╱44╱D╱ // 0xabf @0x2e
0x0a91…0ac3 at002f = ╱58╱X╱ // 0xac0 @0x2f
0x0a91…0ac3 at0030 = ╱22╱"╱ // 0xac1 @0x30
0x0a91…0ac3 at0031 = EOL // 0xac2 @0x31
0x0a91…0ac3 }
0x0ac3…0af3 a0e1 00940 LET KONTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KONTO"
0x0ac3…0af3 LineComal80 {
0x0ac3…0af3 ptr = 0xa0e1 // 0xac3 @0x0
0x0ac3…0af3 lno = 0x03ac // 0xac5 @0x2
0x0ac3…0af3 at0004 = ╱86╱ LET ╱ // 0xac7 @0x4
0x0ac3…0af3 at0005 = ╱4b╱K╱ // 0xac8 @0x5
0x0ac3…0af3 at0006 = ╱4f╱O╱ // 0xac9 @0x6
0x0ac3…0af3 at0007 = ╱4e╱N╱ // 0xaca @0x7
0x0ac3…0af3 at0008 = ╱54╱T╱ // 0xacb @0x8
0x0ac3…0af3 at0009 = ╱4f╱O╱ // 0xacc @0x9
0x0ac3…0af3 at000a = ╱ef╱ $ ╱ // 0xacd @0xa
0x0ac3…0af3 at000b = ╱f0╱ := ╱ // 0xace @0xb
0x0ac3…0af3 at000c = ╱44╱D╱ // 0xacf @0xc
0x0ac3…0af3 at000d = ╱41╱A╱ // 0xad0 @0xd
0x0ac3…0af3 at000e = ╱54╱T╱ // 0xad1 @0xe
0x0ac3…0af3 at000f = ╱41╱A╱ // 0xad2 @0xf
0x0ac3…0af3 at0010 = ╱46╱F╱ // 0xad3 @0x10
0x0ac3…0af3 at0011 = ╱4c╱L╱ // 0xad4 @0x11
0x0ac3…0af3 at0012 = ╱ef╱ $ ╱ // 0xad5 @0x12
0x0ac3…0af3 at0013 = ╱eb╱ + ╱ // 0xad6 @0x13
0x0ac3…0af3 at0014 = ╱22╱"╱ // 0xad7 @0x14
0x0ac3…0af3 at0015 = ╱3a╱:╱ // 0xad8 @0x15
0x0ac3…0af3 at0016 = ╱22╱"╱ // 0xad9 @0x16
0x0ac3…0af3 at0017 = ╱eb╱ + ╱ // 0xada @0x17
0x0ac3…0af3 at0018 = ╱53╱S╱ // 0xadb @0x18
0x0ac3…0af3 at0019 = ╱5f╱_╱ // 0xadc @0x19
0x0ac3…0af3 at001a = ╱4b╱K╱ // 0xadd @0x1a
0x0ac3…0af3 at001b = ╱4f╱O╱ // 0xade @0x1b
0x0ac3…0af3 at001c = ╱44╱D╱ // 0xadf @0x1c
0x0ac3…0af3 at001d = ╱45╱E╱ // 0xae0 @0x1d
0x0ac3…0af3 at001e = ╱ef╱ $ ╱ // 0xae1 @0x1e
0x0ac3…0af3 at001f = ╱eb╱ + ╱ // 0xae2 @0x1f
0x0ac3…0af3 at0020 = ╱54╱T╱ // 0xae3 @0x20
0x0ac3…0af3 at0021 = ╱5f╱_╱ // 0xae4 @0x21
0x0ac3…0af3 at0022 = ╱4b╱K╱ // 0xae5 @0x22
0x0ac3…0af3 at0023 = ╱4f╱O╱ // 0xae6 @0x23
0x0ac3…0af3 at0024 = ╱44╱D╱ // 0xae7 @0x24
0x0ac3…0af3 at0025 = ╱45╱E╱ // 0xae8 @0x25
0x0ac3…0af3 at0026 = ╱ef╱ $ ╱ // 0xae9 @0x26
0x0ac3…0af3 at0027 = ╱eb╱ + ╱ // 0xaea @0x27
0x0ac3…0af3 at0028 = ╱22╱"╱ // 0xaeb @0x28
0x0ac3…0af3 at0029 = ╱4b╱K╱ // 0xaec @0x29
0x0ac3…0af3 at002a = ╱4f╱O╱ // 0xaed @0x2a
0x0ac3…0af3 at002b = ╱4e╱N╱ // 0xaee @0x2b
0x0ac3…0af3 at002c = ╱54╱T╱ // 0xaef @0x2c
0x0ac3…0af3 at002d = ╱4f╱O╱ // 0xaf0 @0x2d
0x0ac3…0af3 at002e = ╱22╱"╱ // 0xaf1 @0x2e
0x0ac3…0af3 at002f = EOL // 0xaf2 @0x2f
0x0ac3…0af3 }
0x0af3…0b25 a113 00950 LET ST_KTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "ST_KTO"
0x0af3…0b25 LineComal80 {
0x0af3…0b25 ptr = 0xa113 // 0xaf3 @0x0
0x0af3…0b25 lno = 0x03b6 // 0xaf5 @0x2
0x0af3…0b25 at0004 = ╱86╱ LET ╱ // 0xaf7 @0x4
0x0af3…0b25 at0005 = ╱53╱S╱ // 0xaf8 @0x5
0x0af3…0b25 at0006 = ╱54╱T╱ // 0xaf9 @0x6
0x0af3…0b25 at0007 = ╱5f╱_╱ // 0xafa @0x7
0x0af3…0b25 at0008 = ╱4b╱K╱ // 0xafb @0x8
0x0af3…0b25 at0009 = ╱54╱T╱ // 0xafc @0x9
0x0af3…0b25 at000a = ╱4f╱O╱ // 0xafd @0xa
0x0af3…0b25 at000b = ╱ef╱ $ ╱ // 0xafe @0xb
0x0af3…0b25 at000c = ╱f0╱ := ╱ // 0xaff @0xc
0x0af3…0b25 at000d = ╱44╱D╱ // 0xb00 @0xd
0x0af3…0b25 at000e = ╱41╱A╱ // 0xb01 @0xe
0x0af3…0b25 at000f = ╱54╱T╱ // 0xb02 @0xf
0x0af3…0b25 at0010 = ╱41╱A╱ // 0xb03 @0x10
0x0af3…0b25 at0011 = ╱46╱F╱ // 0xb04 @0x11
0x0af3…0b25 at0012 = ╱4c╱L╱ // 0xb05 @0x12
0x0af3…0b25 at0013 = ╱ef╱ $ ╱ // 0xb06 @0x13
0x0af3…0b25 at0014 = ╱eb╱ + ╱ // 0xb07 @0x14
0x0af3…0b25 at0015 = ╱22╱"╱ // 0xb08 @0x15
0x0af3…0b25 at0016 = ╱3a╱:╱ // 0xb09 @0x16
0x0af3…0b25 at0017 = ╱22╱"╱ // 0xb0a @0x17
0x0af3…0b25 at0018 = ╱eb╱ + ╱ // 0xb0b @0x18
0x0af3…0b25 at0019 = ╱53╱S╱ // 0xb0c @0x19
0x0af3…0b25 at001a = ╱5f╱_╱ // 0xb0d @0x1a
0x0af3…0b25 at001b = ╱4b╱K╱ // 0xb0e @0x1b
0x0af3…0b25 at001c = ╱4f╱O╱ // 0xb0f @0x1c
0x0af3…0b25 at001d = ╱44╱D╱ // 0xb10 @0x1d
0x0af3…0b25 at001e = ╱45╱E╱ // 0xb11 @0x1e
0x0af3…0b25 at001f = ╱ef╱ $ ╱ // 0xb12 @0x1f
0x0af3…0b25 at0020 = ╱eb╱ + ╱ // 0xb13 @0x20
0x0af3…0b25 at0021 = ╱54╱T╱ // 0xb14 @0x21
0x0af3…0b25 at0022 = ╱5f╱_╱ // 0xb15 @0x22
0x0af3…0b25 at0023 = ╱4b╱K╱ // 0xb16 @0x23
0x0af3…0b25 at0024 = ╱4f╱O╱ // 0xb17 @0x24
0x0af3…0b25 at0025 = ╱44╱D╱ // 0xb18 @0x25
0x0af3…0b25 at0026 = ╱45╱E╱ // 0xb19 @0x26
0x0af3…0b25 at0027 = ╱ef╱ $ ╱ // 0xb1a @0x27
0x0af3…0b25 at0028 = ╱eb╱ + ╱ // 0xb1b @0x28
0x0af3…0b25 at0029 = ╱22╱"╱ // 0xb1c @0x29
0x0af3…0b25 at002a = ╱53╱S╱ // 0xb1d @0x2a
0x0af3…0b25 at002b = ╱54╱T╱ // 0xb1e @0x2b
0x0af3…0b25 at002c = ╱5f╱_╱ // 0xb1f @0x2c
0x0af3…0b25 at002d = ╱4b╱K╱ // 0xb20 @0x2d
0x0af3…0b25 at002e = ╱54╱T╱ // 0xb21 @0x2e
0x0af3…0b25 at002f = ╱4f╱O╱ // 0xb22 @0x2f
0x0af3…0b25 at0030 = ╱22╱"╱ // 0xb23 @0x30
0x0af3…0b25 at0031 = EOL // 0xb24 @0x31
0x0af3…0b25 }
0x0b25…0b55 a143 00960 LET TRANS $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "TRANS"
0x0b25…0b55 LineComal80 {
0x0b25…0b55 ptr = 0xa143 // 0xb25 @0x0
0x0b25…0b55 lno = 0x03c0 // 0xb27 @0x2
0x0b25…0b55 at0004 = ╱86╱ LET ╱ // 0xb29 @0x4
0x0b25…0b55 at0005 = ╱54╱T╱ // 0xb2a @0x5
0x0b25…0b55 at0006 = ╱52╱R╱ // 0xb2b @0x6
0x0b25…0b55 at0007 = ╱41╱A╱ // 0xb2c @0x7
0x0b25…0b55 at0008 = ╱4e╱N╱ // 0xb2d @0x8
0x0b25…0b55 at0009 = ╱53╱S╱ // 0xb2e @0x9
0x0b25…0b55 at000a = ╱ef╱ $ ╱ // 0xb2f @0xa
0x0b25…0b55 at000b = ╱f0╱ := ╱ // 0xb30 @0xb
0x0b25…0b55 at000c = ╱44╱D╱ // 0xb31 @0xc
0x0b25…0b55 at000d = ╱41╱A╱ // 0xb32 @0xd
0x0b25…0b55 at000e = ╱54╱T╱ // 0xb33 @0xe
0x0b25…0b55 at000f = ╱41╱A╱ // 0xb34 @0xf
0x0b25…0b55 at0010 = ╱46╱F╱ // 0xb35 @0x10
0x0b25…0b55 at0011 = ╱4c╱L╱ // 0xb36 @0x11
0x0b25…0b55 at0012 = ╱ef╱ $ ╱ // 0xb37 @0x12
0x0b25…0b55 at0013 = ╱eb╱ + ╱ // 0xb38 @0x13
0x0b25…0b55 at0014 = ╱22╱"╱ // 0xb39 @0x14
0x0b25…0b55 at0015 = ╱3a╱:╱ // 0xb3a @0x15
0x0b25…0b55 at0016 = ╱22╱"╱ // 0xb3b @0x16
0x0b25…0b55 at0017 = ╱eb╱ + ╱ // 0xb3c @0x17
0x0b25…0b55 at0018 = ╱53╱S╱ // 0xb3d @0x18
0x0b25…0b55 at0019 = ╱5f╱_╱ // 0xb3e @0x19
0x0b25…0b55 at001a = ╱4b╱K╱ // 0xb3f @0x1a
0x0b25…0b55 at001b = ╱4f╱O╱ // 0xb40 @0x1b
0x0b25…0b55 at001c = ╱44╱D╱ // 0xb41 @0x1c
0x0b25…0b55 at001d = ╱45╱E╱ // 0xb42 @0x1d
0x0b25…0b55 at001e = ╱ef╱ $ ╱ // 0xb43 @0x1e
0x0b25…0b55 at001f = ╱eb╱ + ╱ // 0xb44 @0x1f
0x0b25…0b55 at0020 = ╱54╱T╱ // 0xb45 @0x20
0x0b25…0b55 at0021 = ╱5f╱_╱ // 0xb46 @0x21
0x0b25…0b55 at0022 = ╱4b╱K╱ // 0xb47 @0x22
0x0b25…0b55 at0023 = ╱4f╱O╱ // 0xb48 @0x23
0x0b25…0b55 at0024 = ╱44╱D╱ // 0xb49 @0x24
0x0b25…0b55 at0025 = ╱45╱E╱ // 0xb4a @0x25
0x0b25…0b55 at0026 = ╱ef╱ $ ╱ // 0xb4b @0x26
0x0b25…0b55 at0027 = ╱eb╱ + ╱ // 0xb4c @0x27
0x0b25…0b55 at0028 = ╱22╱"╱ // 0xb4d @0x28
0x0b25…0b55 at0029 = ╱54╱T╱ // 0xb4e @0x29
0x0b25…0b55 at002a = ╱52╱R╱ // 0xb4f @0x2a
0x0b25…0b55 at002b = ╱41╱A╱ // 0xb50 @0x2b
0x0b25…0b55 at002c = ╱4e╱N╱ // 0xb51 @0x2c
0x0b25…0b55 at002d = ╱53╱S╱ // 0xb52 @0x2d
0x0b25…0b55 at002e = ╱22╱"╱ // 0xb53 @0x2e
0x0b25…0b55 at002f = EOL // 0xb54 @0x2f
0x0b25…0b55 }
0x0b55…0b6f a15d 00970 EXEC OPENFIL ( KTOIDX $ , "R" )
0x0b55…0b6f LineComal80 {
0x0b55…0b6f ptr = 0xa15d // 0xb55 @0x0
0x0b55…0b6f lno = 0x03ca // 0xb57 @0x2
0x0b55…0b6f at0004 = ╱9d╱ EXEC ╱ // 0xb59 @0x4
0x0b55…0b6f at0005 = ╱4f╱O╱ // 0xb5a @0x5
0x0b55…0b6f at0006 = ╱50╱P╱ // 0xb5b @0x6
0x0b55…0b6f at0007 = ╱45╱E╱ // 0xb5c @0x7
0x0b55…0b6f at0008 = ╱4e╱N╱ // 0xb5d @0x8
0x0b55…0b6f at0009 = ╱46╱F╱ // 0xb5e @0x9
0x0b55…0b6f at000a = ╱49╱I╱ // 0xb5f @0xa
0x0b55…0b6f at000b = ╱4c╱L╱ // 0xb60 @0xb
0x0b55…0b6f at000c = ╱ed╱ ( ╱ // 0xb61 @0xc
0x0b55…0b6f at000d = ╱4b╱K╱ // 0xb62 @0xd
0x0b55…0b6f at000e = ╱54╱T╱ // 0xb63 @0xe
0x0b55…0b6f at000f = ╱4f╱O╱ // 0xb64 @0xf
0x0b55…0b6f at0010 = ╱49╱I╱ // 0xb65 @0x10
0x0b55…0b6f at0011 = ╱44╱D╱ // 0xb66 @0x11
0x0b55…0b6f at0012 = ╱58╱X╱ // 0xb67 @0x12
0x0b55…0b6f at0013 = ╱ef╱ $ ╱ // 0xb68 @0x13
0x0b55…0b6f at0014 = ╱ec╱ , ╱ // 0xb69 @0x14
0x0b55…0b6f at0015 = ╱22╱"╱ // 0xb6a @0x15
0x0b55…0b6f at0016 = ╱52╱R╱ // 0xb6b @0x16
0x0b55…0b6f at0017 = ╱22╱"╱ // 0xb6c @0x17
0x0b55…0b6f at0018 = ╱ee╱ ) ╱ // 0xb6d @0x18
0x0b55…0b6f at0019 = EOL // 0xb6e @0x19
0x0b55…0b6f }
0x0b6f…0b88 a176 00980 EXEC OPENFIL ( KONTO $ , "R" )
0x0b6f…0b88 LineComal80 {
0x0b6f…0b88 ptr = 0xa176 // 0xb6f @0x0
0x0b6f…0b88 lno = 0x03d4 // 0xb71 @0x2
0x0b6f…0b88 at0004 = ╱9d╱ EXEC ╱ // 0xb73 @0x4
0x0b6f…0b88 at0005 = ╱4f╱O╱ // 0xb74 @0x5
0x0b6f…0b88 at0006 = ╱50╱P╱ // 0xb75 @0x6
0x0b6f…0b88 at0007 = ╱45╱E╱ // 0xb76 @0x7
0x0b6f…0b88 at0008 = ╱4e╱N╱ // 0xb77 @0x8
0x0b6f…0b88 at0009 = ╱46╱F╱ // 0xb78 @0x9
0x0b6f…0b88 at000a = ╱49╱I╱ // 0xb79 @0xa
0x0b6f…0b88 at000b = ╱4c╱L╱ // 0xb7a @0xb
0x0b6f…0b88 at000c = ╱ed╱ ( ╱ // 0xb7b @0xc
0x0b6f…0b88 at000d = ╱4b╱K╱ // 0xb7c @0xd
0x0b6f…0b88 at000e = ╱4f╱O╱ // 0xb7d @0xe
0x0b6f…0b88 at000f = ╱4e╱N╱ // 0xb7e @0xf
0x0b6f…0b88 at0010 = ╱54╱T╱ // 0xb7f @0x10
0x0b6f…0b88 at0011 = ╱4f╱O╱ // 0xb80 @0x11
0x0b6f…0b88 at0012 = ╱ef╱ $ ╱ // 0xb81 @0x12
0x0b6f…0b88 at0013 = ╱ec╱ , ╱ // 0xb82 @0x13
0x0b6f…0b88 at0014 = ╱22╱"╱ // 0xb83 @0x14
0x0b6f…0b88 at0015 = ╱52╱R╱ // 0xb84 @0x15
0x0b6f…0b88 at0016 = ╱22╱"╱ // 0xb85 @0x16
0x0b6f…0b88 at0017 = ╱ee╱ ) ╱ // 0xb86 @0x17
0x0b6f…0b88 at0018 = EOL // 0xb87 @0x18
0x0b6f…0b88 }
0x0b88…0ba1 a18f 00990 EXEC OPENFIL ( TRANS $ , "R" )
0x0b88…0ba1 LineComal80 {
0x0b88…0ba1 ptr = 0xa18f // 0xb88 @0x0
0x0b88…0ba1 lno = 0x03de // 0xb8a @0x2
0x0b88…0ba1 at0004 = ╱9d╱ EXEC ╱ // 0xb8c @0x4
0x0b88…0ba1 at0005 = ╱4f╱O╱ // 0xb8d @0x5
0x0b88…0ba1 at0006 = ╱50╱P╱ // 0xb8e @0x6
0x0b88…0ba1 at0007 = ╱45╱E╱ // 0xb8f @0x7
0x0b88…0ba1 at0008 = ╱4e╱N╱ // 0xb90 @0x8
0x0b88…0ba1 at0009 = ╱46╱F╱ // 0xb91 @0x9
0x0b88…0ba1 at000a = ╱49╱I╱ // 0xb92 @0xa
0x0b88…0ba1 at000b = ╱4c╱L╱ // 0xb93 @0xb
0x0b88…0ba1 at000c = ╱ed╱ ( ╱ // 0xb94 @0xc
0x0b88…0ba1 at000d = ╱54╱T╱ // 0xb95 @0xd
0x0b88…0ba1 at000e = ╱52╱R╱ // 0xb96 @0xe
0x0b88…0ba1 at000f = ╱41╱A╱ // 0xb97 @0xf
0x0b88…0ba1 at0010 = ╱4e╱N╱ // 0xb98 @0x10
0x0b88…0ba1 at0011 = ╱53╱S╱ // 0xb99 @0x11
0x0b88…0ba1 at0012 = ╱ef╱ $ ╱ // 0xb9a @0x12
0x0b88…0ba1 at0013 = ╱ec╱ , ╱ // 0xb9b @0x13
0x0b88…0ba1 at0014 = ╱22╱"╱ // 0xb9c @0x14
0x0b88…0ba1 at0015 = ╱52╱R╱ // 0xb9d @0x15
0x0b88…0ba1 at0016 = ╱22╱"╱ // 0xb9e @0x16
0x0b88…0ba1 at0017 = ╱ee╱ ) ╱ // 0xb9f @0x17
0x0b88…0ba1 at0018 = EOL // 0xba0 @0x18
0x0b88…0ba1 }
0x0ba1…0bae a19c 01000 ENDPROC INITIER
0x0ba1…0bae LineComal80 {
0x0ba1…0bae ptr = 0xa19c // 0xba1 @0x0
0x0ba1…0bae lno = 0x03e8 // 0xba3 @0x2
0x0ba1…0bae at0004 = ╱9f╱ ENDPROC ╱ // 0xba5 @0x4
0x0ba1…0bae at0005 = ╱49╱I╱ // 0xba6 @0x5
0x0ba1…0bae at0006 = ╱4e╱N╱ // 0xba7 @0x6
0x0ba1…0bae at0007 = ╱49╱I╱ // 0xba8 @0x7
0x0ba1…0bae at0008 = ╱54╱T╱ // 0xba9 @0x8
0x0ba1…0bae at0009 = ╱49╱I╱ // 0xbaa @0x9
0x0ba1…0bae at000a = ╱45╱E╱ // 0xbab @0xa
0x0ba1…0bae at000b = ╱52╱R╱ // 0xbac @0xb
0x0ba1…0bae at000c = EOL // 0xbad @0xc
0x0ba1…0bae }
0x0bae…0bb3 a1a1 01010
0x0bae…0bb3 LineComal80 {
0x0bae…0bb3 ptr = 0xa1a1 // 0xbae @0x0
0x0bae…0bb3 lno = 0x03f2 // 0xbb0 @0x2
0x0bae…0bb3 at0004 = EOL // 0xbb2 @0x4
0x0bae…0bb3 }
0x0bb3…0bc6 a1b4 01020 PROC TERMINAL_IDX
0x0bb3…0bc6 LineComal80 {
0x0bb3…0bc6 ptr = 0xa1b4 // 0xbb3 @0x0
0x0bb3…0bc6 lno = 0x03fc // 0xbb5 @0x2
0x0bb3…0bc6 at0004 = ╱9e03╱ PROC ╱ // 0xbb7 @0x4
0x0bb3…0bc6 at0006 = ╱54╱T╱ // 0xbb9 @0x6
0x0bb3…0bc6 at0007 = ╱45╱E╱ // 0xbba @0x7
0x0bb3…0bc6 at0008 = ╱52╱R╱ // 0xbbb @0x8
0x0bb3…0bc6 at0009 = ╱4d╱M╱ // 0xbbc @0x9
0x0bb3…0bc6 at000a = ╱49╱I╱ // 0xbbd @0xa
0x0bb3…0bc6 at000b = ╱4e╱N╱ // 0xbbe @0xb
0x0bb3…0bc6 at000c = ╱41╱A╱ // 0xbbf @0xc
0x0bb3…0bc6 at000d = ╱4c╱L╱ // 0xbc0 @0xd
0x0bb3…0bc6 at000e = ╱5f╱_╱ // 0xbc1 @0xe
0x0bb3…0bc6 at000f = ╱49╱I╱ // 0xbc2 @0xf
0x0bb3…0bc6 at0010 = ╱44╱D╱ // 0xbc3 @0x10
0x0bb3…0bc6 at0011 = ╱58╱X╱ // 0xbc4 @0x11
0x0bb3…0bc6 at0012 = EOL // 0xbc5 @0x12
0x0bb3…0bc6 }
0x0bc6…0be0 a1ce 01030 LET PPAR := 5 ; RESRV := 0
0x0bc6…0be0 LineComal80 {
0x0bc6…0be0 ptr = 0xa1ce // 0xbc6 @0x0
0x0bc6…0be0 lno = 0x0406 // 0xbc8 @0x2
0x0bc6…0be0 at0004 = ╱86╱ LET ╱ // 0xbca @0x4
0x0bc6…0be0 at0005 = ╱50╱P╱ // 0xbcb @0x5
0x0bc6…0be0 at0006 = ╱50╱P╱ // 0xbcc @0x6
0x0bc6…0be0 at0007 = ╱41╱A╱ // 0xbcd @0x7
0x0bc6…0be0 at0008 = ╱52╱R╱ // 0xbce @0x8
0x0bc6…0be0 at0009 = ╱f0╱ := ╱ // 0xbcf @0x9
0x0bc6…0be0 at000a = ╱35╱5╱ // 0xbd0 @0xa
0x0bc6…0be0 at000b = ╱f20500╱ // 0xbd1 @0xb
0x0bc6…0be0 at000e = ╱ea╱ ; ╱ // 0xbd4 @0xe
0x0bc6…0be0 at000f = ╱52╱R╱ // 0xbd5 @0xf
0x0bc6…0be0 at0010 = ╱45╱E╱ // 0xbd6 @0x10
0x0bc6…0be0 at0011 = ╱53╱S╱ // 0xbd7 @0x11
0x0bc6…0be0 at0012 = ╱52╱R╱ // 0xbd8 @0x12
0x0bc6…0be0 at0013 = ╱56╱V╱ // 0xbd9 @0x13
0x0bc6…0be0 at0014 = ╱f0╱ := ╱ // 0xbda @0x14
0x0bc6…0be0 at0015 = ╱30╱0╱ // 0xbdb @0x15
0x0bc6…0be0 at0016 = ╱f20000╱ // 0xbdc @0x16
0x0bc6…0be0 at0019 = EOL // 0xbdf @0x19
0x0bc6…0be0 }
0x0be0…0bf2 a1e0 01040 CALL :PRES"
0x0be0…0bf2 LineComal80 {
0x0be0…0bf2 ptr = 0xa1e0 // 0xbe0 @0x0
0x0be0…0bf2 lno = 0x0410 // 0xbe2 @0x2
0x0be0…0bf2 at0004 = ╱ad00╱ CALL ╱ // 0xbe4 @0x4
0x0be0…0bf2 at0006 = ╱fe22444445╱ // 0xbe6 @0x6
0x0be0…0bf2 at000b = ╱3a╱:╱ // 0xbeb @0xb
0x0be0…0bf2 at000c = ╱50╱P╱ // 0xbec @0xc
0x0be0…0bf2 at000d = ╱52╱R╱ // 0xbed @0xd
0x0be0…0bf2 at000e = ╱45╱E╱ // 0xbee @0xe
0x0be0…0bf2 at000f = ╱53╱S╱ // 0xbef @0xf
0x0be0…0bf2 at0010 = ╱22╱"╱ // 0xbf0 @0x10
0x0be0…0bf2 at0011 = EOL // 0xbf1 @0x11
0x0be0…0bf2 }
0x0bf2…0c1b a209 01050 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
0x0bf2…0c1b LineComal80 {
0x0bf2…0c1b ptr = 0xa209 // 0xbf2 @0x0
0x0bf2…0c1b lno = 0x041a // 0xbf4 @0x2
0x0bf2…0c1b at0004 = ╱a9╱ GET ╱ // 0xbf6 @0x4
0x0bf2…0c1b at0005 = ╱53╱S╱ // 0xbf7 @0x5
0x0bf2…0c1b at0006 = ╱59╱Y╱ // 0xbf8 @0x6
0x0bf2…0c1b at0007 = ╱53╱S╱ // 0xbf9 @0x7
0x0bf2…0c1b at0008 = ╱50╱P╱ // 0xbfa @0x8
0x0bf2…0c1b at0009 = ╱41╱A╱ // 0xbfb @0x9
0x0bf2…0c1b at000a = ╱52╱R╱ // 0xbfc @0xa
0x0bf2…0c1b at000b = ╱41╱A╱ // 0xbfd @0xb
0x0bf2…0c1b at000c = ╱ef╱ $ ╱ // 0xbfe @0xc
0x0bf2…0c1b at000d = ╱ec╱ , ╱ // 0xbff @0xd
0x0bf2…0c1b at000e = ╱31╱1╱ // 0xc00 @0xe
0x0bf2…0c1b at000f = ╱f20100╱ // 0xc01 @0xf
0x0bf2…0c1b at0012 = ╱e5╱ + ╱ // 0xc04 @0x12
0x0bf2…0c1b at0013 = ╱52╱R╱ // 0xc05 @0x13
0x0bf2…0c1b at0014 = ╱45╱E╱ // 0xc06 @0x14
0x0bf2…0c1b at0015 = ╱53╱S╱ // 0xc07 @0x15
0x0bf2…0c1b at0016 = ╱52╱R╱ // 0xc08 @0x16
0x0bf2…0c1b at0017 = ╱56╱V╱ // 0xc09 @0x17
0x0bf2…0c1b at0018 = ╱f1╱ : ╱ // 0xc0a @0x18
0x0bf2…0c1b at0019 = ╱44╱D╱ // 0xc0b @0x19
0x0bf2…0c1b at001a = ╱41╱A╱ // 0xc0c @0x1a
0x0bf2…0c1b at001b = ╱54╱T╱ // 0xc0d @0x1b
0x0bf2…0c1b at001c = ╱41╱A╱ // 0xc0e @0x1c
0x0bf2…0c1b at001d = ╱46╱F╱ // 0xc0f @0x1d
0x0bf2…0c1b at001e = ╱4c╱L╱ // 0xc10 @0x1e
0x0bf2…0c1b at001f = ╱ef╱ $ ╱ // 0xc11 @0x1f
0x0bf2…0c1b at0020 = ╱ec╱ , ╱ // 0xc12 @0x20
0x0bf2…0c1b at0021 = ╱54╱T╱ // 0xc13 @0x21
0x0bf2…0c1b at0022 = ╱5f╱_╱ // 0xc14 @0x22
0x0bf2…0c1b at0023 = ╱4b╱K╱ // 0xc15 @0x23
0x0bf2…0c1b at0024 = ╱4f╱O╱ // 0xc16 @0x24
0x0bf2…0c1b at0025 = ╱44╱D╱ // 0xc17 @0x25
0x0bf2…0c1b at0026 = ╱45╱E╱ // 0xc18 @0x26
0x0bf2…0c1b at0027 = ╱ef╱ $ ╱ // 0xc19 @0x27
0x0bf2…0c1b at0028 = EOL // 0xc1a @0x28
0x0bf2…0c1b }
0x0c1b…0c2d a21b 01060 ENDPROC TERMINAL_IDX
0x0c1b…0c2d LineComal80 {
0x0c1b…0c2d ptr = 0xa21b // 0xc1b @0x0
0x0c1b…0c2d lno = 0x0424 // 0xc1d @0x2
0x0c1b…0c2d at0004 = ╱9f╱ ENDPROC ╱ // 0xc1f @0x4
0x0c1b…0c2d at0005 = ╱54╱T╱ // 0xc20 @0x5
0x0c1b…0c2d at0006 = ╱45╱E╱ // 0xc21 @0x6
0x0c1b…0c2d at0007 = ╱52╱R╱ // 0xc22 @0x7
0x0c1b…0c2d at0008 = ╱4d╱M╱ // 0xc23 @0x8
0x0c1b…0c2d at0009 = ╱49╱I╱ // 0xc24 @0x9
0x0c1b…0c2d at000a = ╱4e╱N╱ // 0xc25 @0xa
0x0c1b…0c2d at000b = ╱41╱A╱ // 0xc26 @0xb
0x0c1b…0c2d at000c = ╱4c╱L╱ // 0xc27 @0xc
0x0c1b…0c2d at000d = ╱5f╱_╱ // 0xc28 @0xd
0x0c1b…0c2d at000e = ╱49╱I╱ // 0xc29 @0xe
0x0c1b…0c2d at000f = ╱44╱D╱ // 0xc2a @0xf
0x0c1b…0c2d at0010 = ╱58╱X╱ // 0xc2b @0x10
0x0c1b…0c2d at0011 = EOL // 0xc2c @0x11
0x0c1b…0c2d }
0x0c2d…0c32 a220 01070
0x0c2d…0c32 LineComal80 {
0x0c2d…0c32 ptr = 0xa220 // 0xc2d @0x0
0x0c2d…0c32 lno = 0x042e // 0xc2f @0x2
0x0c2d…0c32 at0004 = EOL // 0xc31 @0x4
0x0c2d…0c32 }
0x0c32…0c4d a23b 01080 PROC OPENFIL ( FNAVN $ , WAY $ )
0x0c32…0c4d LineComal80 {
0x0c32…0c4d ptr = 0xa23b // 0xc32 @0x0
0x0c32…0c4d lno = 0x0438 // 0xc34 @0x2
0x0c32…0c4d at0004 = ╱9e04╱ PROC ╱ // 0xc36 @0x4
0x0c32…0c4d at0006 = ╱4f╱O╱ // 0xc38 @0x6
0x0c32…0c4d at0007 = ╱50╱P╱ // 0xc39 @0x7
0x0c32…0c4d at0008 = ╱45╱E╱ // 0xc3a @0x8
0x0c32…0c4d at0009 = ╱4e╱N╱ // 0xc3b @0x9
0x0c32…0c4d at000a = ╱46╱F╱ // 0xc3c @0xa
0x0c32…0c4d at000b = ╱49╱I╱ // 0xc3d @0xb
0x0c32…0c4d at000c = ╱4c╱L╱ // 0xc3e @0xc
0x0c32…0c4d at000d = ╱ed╱ ( ╱ // 0xc3f @0xd
0x0c32…0c4d at000e = ╱46╱F╱ // 0xc40 @0xe
0x0c32…0c4d at000f = ╱4e╱N╱ // 0xc41 @0xf
0x0c32…0c4d at0010 = ╱41╱A╱ // 0xc42 @0x10
0x0c32…0c4d at0011 = ╱56╱V╱ // 0xc43 @0x11
0x0c32…0c4d at0012 = ╱4e╱N╱ // 0xc44 @0x12
0x0c32…0c4d at0013 = ╱ef╱ $ ╱ // 0xc45 @0x13
0x0c32…0c4d at0014 = ╱ec╱ , ╱ // 0xc46 @0x14
0x0c32…0c4d at0015 = ╱57╱W╱ // 0xc47 @0x15
0x0c32…0c4d at0016 = ╱41╱A╱ // 0xc48 @0x16
0x0c32…0c4d at0017 = ╱59╱Y╱ // 0xc49 @0x17
0x0c32…0c4d at0018 = ╱ef╱ $ ╱ // 0xc4a @0x18
0x0c32…0c4d at0019 = ╱ee╱ ) ╱ // 0xc4b @0x19
0x0c32…0c4d at001a = EOL // 0xc4c @0x1a
0x0c32…0c4d }
0x0c4d…0c54 a242 01090 REPEAT
0x0c4d…0c54 LineComal80 {
0x0c4d…0c54 ptr = 0xa242 // 0xc4d @0x0
0x0c4d…0c54 lno = 0x0442 // 0xc4f @0x2
0x0c4d…0c54 at0004 = ╱9705╱ REPEAT ╱ // 0xc51 @0x4
0x0c4d…0c54 at0006 = EOL // 0xc53 @0x6
0x0c4d…0c54 }
0x0c54…0c6d a25b 01100 IF AY $ = "W" OR WAY $ = "w" THEN
0x0c54…0c6d LineComal80 {
0x0c54…0c6d ptr = 0xa25b // 0xc54 @0x0
0x0c54…0c6d lno = 0x044c // 0xc56 @0x2
0x0c54…0c6d at0004 = ╱9b0657╱ IF ╱ // 0xc58 @0x4
0x0c54…0c6d at0007 = ╱41╱A╱ // 0xc5b @0x7
0x0c54…0c6d at0008 = ╱59╱Y╱ // 0xc5c @0x8
0x0c54…0c6d at0009 = ╱ef╱ $ ╱ // 0xc5d @0x9
0x0c54…0c6d at000a = ╱df╱ = ╱ // 0xc5e @0xa
0x0c54…0c6d at000b = ╱22╱"╱ // 0xc5f @0xb
0x0c54…0c6d at000c = ╱57╱W╱ // 0xc60 @0xc
0x0c54…0c6d at000d = ╱22╱"╱ // 0xc61 @0xd
0x0c54…0c6d at000e = ╱d8╱ OR ╱ // 0xc62 @0xe
0x0c54…0c6d at000f = ╱57╱W╱ // 0xc63 @0xf
0x0c54…0c6d at0010 = ╱41╱A╱ // 0xc64 @0x10
0x0c54…0c6d at0011 = ╱59╱Y╱ // 0xc65 @0x11
0x0c54…0c6d at0012 = ╱ef╱ $ ╱ // 0xc66 @0x12
0x0c54…0c6d at0013 = ╱df╱ = ╱ // 0xc67 @0x13
0x0c54…0c6d at0014 = ╱22╱"╱ // 0xc68 @0x14
0x0c54…0c6d at0015 = ╱77╱w╱ // 0xc69 @0x15
0x0c54…0c6d at0016 = ╱22╱"╱ // 0xc6a @0x16
0x0c54…0c6d at0017 = ╱b5╱ THEN ╱ // 0xc6b @0x17
0x0c54…0c6d at0018 = EOL // 0xc6c @0x18
0x0c54…0c6d }
0x0c6d…0c7b a269 01110 OPEN FNAVN $ , W
0x0c6d…0c7b LineComal80 {
0x0c6d…0c7b ptr = 0xa269 // 0xc6d @0x0
0x0c6d…0c7b lno = 0x0456 // 0xc6f @0x2
0x0c6d…0c7b at0004 = ╱a7╱ OPEN ╱ // 0xc71 @0x4
0x0c6d…0c7b at0005 = ╱46╱F╱ // 0xc72 @0x5
0x0c6d…0c7b at0006 = ╱4e╱N╱ // 0xc73 @0x6
0x0c6d…0c7b at0007 = ╱41╱A╱ // 0xc74 @0x7
0x0c6d…0c7b at0008 = ╱56╱V╱ // 0xc75 @0x8
0x0c6d…0c7b at0009 = ╱4e╱N╱ // 0xc76 @0x9
0x0c6d…0c7b at000a = ╱ef╱ $ ╱ // 0xc77 @0xa
0x0c6d…0c7b at000b = ╱ec╱ , ╱ // 0xc78 @0xb
0x0c6d…0c7b at000c = ╱57╱W╱ // 0xc79 @0xc
0x0c6d…0c7b at000d = EOL // 0xc7a @0xd
0x0c6d…0c7b }
0x0c7b…0c82 a270 01120 ELSE
0x0c7b…0c82 LineComal80 {
0x0c7b…0c82 ptr = 0xa270 // 0xc7b @0x0
0x0c7b…0c82 lno = 0x0460 // 0xc7d @0x2
0x0c7b…0c82 at0004 = ╱9a07╱ ELSE ╱ // 0xc7f @0x4
0x0c7b…0c82 at0006 = EOL // 0xc81 @0x6
0x0c7b…0c82 }
0x0c82…0c90 a27e 01130 OPEN FNAVN $ , R
0x0c82…0c90 LineComal80 {
0x0c82…0c90 ptr = 0xa27e // 0xc82 @0x0
0x0c82…0c90 lno = 0x046a // 0xc84 @0x2
0x0c82…0c90 at0004 = ╱a7╱ OPEN ╱ // 0xc86 @0x4
0x0c82…0c90 at0005 = ╱46╱F╱ // 0xc87 @0x5
0x0c82…0c90 at0006 = ╱4e╱N╱ // 0xc88 @0x6
0x0c82…0c90 at0007 = ╱41╱A╱ // 0xc89 @0x7
0x0c82…0c90 at0008 = ╱56╱V╱ // 0xc8a @0x8
0x0c82…0c90 at0009 = ╱4e╱N╱ // 0xc8b @0x9
0x0c82…0c90 at000a = ╱ef╱ $ ╱ // 0xc8c @0xa
0x0c82…0c90 at000b = ╱ec╱ , ╱ // 0xc8d @0xb
0x0c82…0c90 at000c = ╱52╱R╱ // 0xc8e @0xc
0x0c82…0c90 at000d = EOL // 0xc8f @0xd
0x0c82…0c90 }
0x0c90…0c96 a284 01140 ENDIF
0x0c90…0c96 LineComal80 {
0x0c90…0c96 ptr = 0xa284 // 0xc90 @0x0
0x0c90…0c96 lno = 0x0474 // 0xc92 @0x2
0x0c90…0c96 at0004 = ╱9c╱ ENDIF ╱ // 0xc94 @0x4
0x0c90…0c96 at0005 = EOL // 0xc95 @0x5
0x0c90…0c96 }
0x0c96…0ca7 a295 01150 IF ( FNAVN $ ) THEN
0x0c96…0ca7 LineComal80 {
0x0c96…0ca7 ptr = 0xa295 // 0xc96 @0x0
0x0c96…0ca7 lno = 0x047e // 0xc98 @0x2
0x0c96…0ca7 at0004 = ╱9b08cd╱ IF ╱ // 0xc9a @0x4
0x0c96…0ca7 at0007 = ╱ed╱ ( ╱ // 0xc9d @0x7
0x0c96…0ca7 at0008 = ╱46╱F╱ // 0xc9e @0x8
0x0c96…0ca7 at0009 = ╱4e╱N╱ // 0xc9f @0x9
0x0c96…0ca7 at000a = ╱41╱A╱ // 0xca0 @0xa
0x0c96…0ca7 at000b = ╱56╱V╱ // 0xca1 @0xb
0x0c96…0ca7 at000c = ╱4e╱N╱ // 0xca2 @0xc
0x0c96…0ca7 at000d = ╱ef╱ $ ╱ // 0xca3 @0xd
0x0c96…0ca7 at000e = ╱ee╱ ) ╱ // 0xca4 @0xe
0x0c96…0ca7 at000f = ╱b5╱ THEN ╱ // 0xca5 @0xf
0x0c96…0ca7 at0010 = EOL // 0xca6 @0x10
0x0c96…0ca7 }
0x0ca7…0cbf a2ad 01160 PRINT "<SC0123>" ; CHR$ ( 7 )
0x0ca7…0cbf LineComal80 {
0x0ca7…0cbf ptr = 0xa2ad // 0xca7 @0x0
0x0ca7…0cbf lno = 0x0488 // 0xca9 @0x2
0x0ca7…0cbf at0004 = ╱92╱ PRINT ╱ // 0xcab @0x4
0x0ca7…0cbf at0005 = ╱22╱"╱ // 0xcac @0x5
0x0ca7…0cbf at0006 = ╱3c╱<╱ // 0xcad @0x6
0x0ca7…0cbf at0007 = ╱53╱S╱ // 0xcae @0x7
0x0ca7…0cbf at0008 = ╱43╱C╱ // 0xcaf @0x8
0x0ca7…0cbf at0009 = ╱30╱0╱ // 0xcb0 @0x9
0x0ca7…0cbf at000a = ╱31╱1╱ // 0xcb1 @0xa
0x0ca7…0cbf at000b = ╱32╱2╱ // 0xcb2 @0xb
0x0ca7…0cbf at000c = ╱33╱3╱ // 0xcb3 @0xc
0x0ca7…0cbf at000d = ╱3e╱>╱ // 0xcb4 @0xd
0x0ca7…0cbf at000e = ╱22╱"╱ // 0xcb5 @0xe
0x0ca7…0cbf at000f = ╱ea╱ ; ╱ // 0xcb6 @0xf
0x0ca7…0cbf at0010 = ╱d0╱ CHR$ ╱ // 0xcb7 @0x10
0x0ca7…0cbf at0011 = ╱ed╱ ( ╱ // 0xcb8 @0x11
0x0ca7…0cbf at0012 = ╱37╱7╱ // 0xcb9 @0x12
0x0ca7…0cbf at0013 = ╱f20700╱ // 0xcba @0x13
0x0ca7…0cbf at0016 = ╱ee╱ ) ╱ // 0xcbd @0x16
0x0ca7…0cbf at0017 = EOL // 0xcbe @0x17
0x0ca7…0cbf }
0x0cbf…0cd5 a2c3 01170 IF ( FNAVN $ ) = 6 THEN
0x0cbf…0cd5 LineComal80 {
0x0cbf…0cd5 ptr = 0xa2c3 // 0xcbf @0x0
0x0cbf…0cd5 lno = 0x0492 // 0xcc1 @0x2
0x0cbf…0cd5 at0004 = ╱9b09cd╱ IF ╱ // 0xcc3 @0x4
0x0cbf…0cd5 at0007 = ╱ed╱ ( ╱ // 0xcc6 @0x7
0x0cbf…0cd5 at0008 = ╱46╱F╱ // 0xcc7 @0x8
0x0cbf…0cd5 at0009 = ╱4e╱N╱ // 0xcc8 @0x9
0x0cbf…0cd5 at000a = ╱41╱A╱ // 0xcc9 @0xa
0x0cbf…0cd5 at000b = ╱56╱V╱ // 0xcca @0xb
0x0cbf…0cd5 at000c = ╱4e╱N╱ // 0xccb @0xc
0x0cbf…0cd5 at000d = ╱ef╱ $ ╱ // 0xccc @0xd
0x0cbf…0cd5 at000e = ╱ee╱ ) ╱ // 0xccd @0xe
0x0cbf…0cd5 at000f = ╱df╱ = ╱ // 0xcce @0xf
0x0cbf…0cd5 at0010 = ╱36╱6╱ // 0xccf @0x10
0x0cbf…0cd5 at0011 = ╱f20600╱ // 0xcd0 @0x11
0x0cbf…0cd5 at0014 = ╱b5╱ THEN ╱ // 0xcd3 @0x14
0x0cbf…0cd5 at0015 = EOL // 0xcd4 @0x15
0x0cbf…0cd5 }
0x0cd5…0d18 a306 01180 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…RETURN…***"
0x0cd5…0d18 LineComal80 {
0x0cd5…0d18 ptr = 0xa306 // 0xcd5 @0x0
0x0cd5…0d18 lno = 0x049c // 0xcd7 @0x2
0x0cd5…0d18 at0004 = ╱92╱ PRINT ╱ // 0xcd9 @0x4
0x0cd5…0d18 at0005 = ╱22╱"╱ // 0xcda @0x5
0x0cd5…0d18 at0006 = ╱3c╱<╱ // 0xcdb @0x6
0x0cd5…0d18 at0007 = ╱53╱S╱ // 0xcdc @0x7
0x0cd5…0d18 at0008 = ╱43╱C╱ // 0xcdd @0x8
0x0cd5…0d18 at0009 = ╱31╱1╱ // 0xcde @0x9
0x0cd5…0d18 at000a = ╱36╱6╱ // 0xcdf @0xa
0x0cd5…0d18 at000b = ╱30╱0╱ // 0xce0 @0xb
0x0cd5…0d18 at000c = ╱32╱2╱ // 0xce1 @0xc
0x0cd5…0d18 at000d = ╱3e╱>╱ // 0xce2 @0xd
0x0cd5…0d18 at000e = ╱2a╱*╱ // 0xce3 @0xe
0x0cd5…0d18 at000f = ╱2a╱*╱ // 0xce4 @0xf
0x0cd5…0d18 at0010 = ╱2a╱*╱ // 0xce5 @0x10
0x0cd5…0d18 at0011 = ╱20╱…╱ // 0xce6 @0x11
0x0cd5…0d18 at0012 = ╱46╱F╱ // 0xce7 @0x12
0x0cd5…0d18 at0013 = ╱65╱e╱ // 0xce8 @0x13
0x0cd5…0d18 at0014 = ╱6a╱j╱ // 0xce9 @0x14
0x0cd5…0d18 at0015 = ╱6c╱l╱ // 0xcea @0x15
0x0cd5…0d18 at0016 = ╱20╱…╱ // 0xceb @0x16
0x0cd5…0d18 at0017 = ╱6e╱n╱ // 0xcec @0x17
0x0cd5…0d18 at0018 = ╱72╱r╱ // 0xced @0x18
0x0cd5…0d18 at0019 = ╱2e╱.╱ // 0xcee @0x19
0x0cd5…0d18 at001a = ╱20╱…╱ // 0xcef @0x1a
0x0cd5…0d18 at001b = ╱36╱6╱ // 0xcf0 @0x1b
0x0cd5…0d18 at001c = ╱20╱…╱ // 0xcf1 @0x1c
0x0cd5…0d18 at001d = ╱2d╱-╱ // 0xcf2 @0x1d
0x0cd5…0d18 at001e = ╱20╱…╱ // 0xcf3 @0x1e
0x0cd5…0d18 at001f = ╱69╱i╱ // 0xcf4 @0x1f
0x0cd5…0d18 at0020 = ╱6e╱n╱ // 0xcf5 @0x20
0x0cd5…0d18 at0021 = ╱64╱d╱ // 0xcf6 @0x21
0x0cd5…0d18 at0022 = ╱73╱s╱ // 0xcf7 @0x22
0x0cd5…0d18 at0023 = ╱7b╱{╱ // 0xcf8 @0x23
0x0cd5…0d18 at0024 = ╱74╱t╱ // 0xcf9 @0x24
0x0cd5…0d18 at0025 = ╱20╱…╱ // 0xcfa @0x25
0x0cd5…0d18 at0026 = ╱64╱d╱ // 0xcfb @0x26
0x0cd5…0d18 at0027 = ╱69╱i╱ // 0xcfc @0x27
0x0cd5…0d18 at0028 = ╱73╱s╱ // 0xcfd @0x28
0x0cd5…0d18 at0029 = ╱6b╱k╱ // 0xcfe @0x29
0x0cd5…0d18 at002a = ╱65╱e╱ // 0xcff @0x2a
0x0cd5…0d18 at002b = ╱74╱t╱ // 0xd00 @0x2b
0x0cd5…0d18 at002c = ╱74╱t╱ // 0xd01 @0x2c
0x0cd5…0d18 at002d = ╱65╱e╱ // 0xd02 @0x2d
0x0cd5…0d18 at002e = ╱20╱…╱ // 0xd03 @0x2e
0x0cd5…0d18 at002f = ╱6f╱o╱ // 0xd04 @0x2f
0x0cd5…0d18 at0030 = ╱67╱g╱ // 0xd05 @0x30
0x0cd5…0d18 at0031 = ╱20╱…╱ // 0xd06 @0x31
0x0cd5…0d18 at0032 = ╱74╱t╱ // 0xd07 @0x32
0x0cd5…0d18 at0033 = ╱72╱r╱ // 0xd08 @0x33
0x0cd5…0d18 at0034 = ╱79╱y╱ // 0xd09 @0x34
0x0cd5…0d18 at0035 = ╱6b╱k╱ // 0xd0a @0x35
0x0cd5…0d18 at0036 = ╱20╱…╱ // 0xd0b @0x36
0x0cd5…0d18 at0037 = ╱52╱R╱ // 0xd0c @0x37
0x0cd5…0d18 at0038 = ╱45╱E╱ // 0xd0d @0x38
0x0cd5…0d18 at0039 = ╱54╱T╱ // 0xd0e @0x39
0x0cd5…0d18 at003a = ╱55╱U╱ // 0xd0f @0x3a
0x0cd5…0d18 at003b = ╱52╱R╱ // 0xd10 @0x3b
0x0cd5…0d18 at003c = ╱4e╱N╱ // 0xd11 @0x3c
0x0cd5…0d18 at003d = ╱20╱…╱ // 0xd12 @0x3d
0x0cd5…0d18 at003e = ╱2a╱*╱ // 0xd13 @0x3e
0x0cd5…0d18 at003f = ╱2a╱*╱ // 0xd14 @0x3f
0x0cd5…0d18 at0040 = ╱2a╱*╱ // 0xd15 @0x40
0x0cd5…0d18 at0041 = ╱22╱"╱ // 0xd16 @0x41
0x0cd5…0d18 at0042 = EOL // 0xd17 @0x42
0x0cd5…0d18 }
0x0d18…0d26 a314 01190 INPUT "" : SVAR $
0x0d18…0d26 LineComal80 {
0x0d18…0d26 ptr = 0xa314 // 0xd18 @0x0
0x0d18…0d26 lno = 0x04a6 // 0xd1a @0x2
0x0d18…0d26 at0004 = ╱91╱ INPUT ╱ // 0xd1c @0x4
0x0d18…0d26 at0005 = ╱22╱"╱ // 0xd1d @0x5
0x0d18…0d26 at0006 = ╱22╱"╱ // 0xd1e @0x6
0x0d18…0d26 at0007 = ╱f1╱ : ╱ // 0xd1f @0x7
0x0d18…0d26 at0008 = ╱53╱S╱ // 0xd20 @0x8
0x0d18…0d26 at0009 = ╱56╱V╱ // 0xd21 @0x9
0x0d18…0d26 at000a = ╱41╱A╱ // 0xd22 @0xa
0x0d18…0d26 at000b = ╱52╱R╱ // 0xd23 @0xb
0x0d18…0d26 at000c = ╱ef╱ $ ╱ // 0xd24 @0xc
0x0d18…0d26 at000d = EOL // 0xd25 @0xd
0x0d18…0d26 }
0x0d26…0d2d a31b 01200 ELSE
0x0d26…0d2d LineComal80 {
0x0d26…0d2d ptr = 0xa31b // 0xd26 @0x0
0x0d26…0d2d lno = 0x04b0 // 0xd28 @0x2
0x0d26…0d2d at0004 = ╱9a0a╱ ELSE ╱ // 0xd2a @0x4
0x0d26…0d2d at0006 = EOL // 0xd2c @0x6
0x0d26…0d2d }
0x0d2d…0d6e a35c 01210 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
0x0d2d…0d6e LineComal80 {
0x0d2d…0d6e ptr = 0xa35c // 0xd2d @0x0
0x0d2d…0d6e lno = 0x04ba // 0xd2f @0x2
0x0d2d…0d6e at0004 = ╱92╱ PRINT ╱ // 0xd31 @0x4
0x0d2d…0d6e at0005 = ╱22╱"╱ // 0xd32 @0x5
0x0d2d…0d6e at0006 = ╱3c╱<╱ // 0xd33 @0x6
0x0d2d…0d6e at0007 = ╱53╱S╱ // 0xd34 @0x7
0x0d2d…0d6e at0008 = ╱43╱C╱ // 0xd35 @0x8
0x0d2d…0d6e at0009 = ╱31╱1╱ // 0xd36 @0x9
0x0d2d…0d6e at000a = ╱38╱8╱ // 0xd37 @0xa
0x0d2d…0d6e at000b = ╱30╱0╱ // 0xd38 @0xb
0x0d2d…0d6e at000c = ╱32╱2╱ // 0xd39 @0xc
0x0d2d…0d6e at000d = ╱3e╱>╱ // 0xd3a @0xd
0x0d2d…0d6e at000e = ╱2a╱*╱ // 0xd3b @0xe
0x0d2d…0d6e at000f = ╱2a╱*╱ // 0xd3c @0xf
0x0d2d…0d6e at0010 = ╱2a╱*╱ // 0xd3d @0x10
0x0d2d…0d6e at0011 = ╱20╱…╱ // 0xd3e @0x11
0x0d2d…0d6e at0012 = ╱46╱F╱ // 0xd3f @0x12
0x0d2d…0d6e at0013 = ╱65╱e╱ // 0xd40 @0x13
0x0d2d…0d6e at0014 = ╱6a╱j╱ // 0xd41 @0x14
0x0d2d…0d6e at0015 = ╱6c╱l╱ // 0xd42 @0x15
0x0d2d…0d6e at0016 = ╱20╱…╱ // 0xd43 @0x16
0x0d2d…0d6e at0017 = ╱6e╱n╱ // 0xd44 @0x17
0x0d2d…0d6e at0018 = ╱72╱r╱ // 0xd45 @0x18
0x0d2d…0d6e at0019 = ╱2e╱.╱ // 0xd46 @0x19
0x0d2d…0d6e at001a = ╱20╱…╱ // 0xd47 @0x1a
0x0d2d…0d6e at001b = ╱22╱"╱ // 0xd48 @0x1b
0x0d2d…0d6e at001c = ╱ea╱ ; ╱ // 0xd49 @0x1c
0x0d2d…0d6e at001d = ╱d0╱ CHR$ ╱ // 0xd4a @0x1d
0x0d2d…0d6e at001e = ╱ed╱ ( ╱ // 0xd4b @0x1e
0x0d2d…0d6e at001f = ╱cd╱ // 0xd4c @0x1f
0x0d2d…0d6e at0020 = ╱ed╱ ( ╱ // 0xd4d @0x20
0x0d2d…0d6e at0021 = ╱46╱F╱ // 0xd4e @0x21
0x0d2d…0d6e at0022 = ╱4e╱N╱ // 0xd4f @0x22
0x0d2d…0d6e at0023 = ╱41╱A╱ // 0xd50 @0x23
0x0d2d…0d6e at0024 = ╱56╱V╱ // 0xd51 @0x24
0x0d2d…0d6e at0025 = ╱4e╱N╱ // 0xd52 @0x25
0x0d2d…0d6e at0026 = ╱ef╱ $ ╱ // 0xd53 @0x26
0x0d2d…0d6e at0027 = ╱ee╱ ) ╱ // 0xd54 @0x27
0x0d2d…0d6e at0028 = ╱ec╱ , ╱ // 0xd55 @0x28
0x0d2d…0d6e at0029 = ╱32╱2╱ // 0xd56 @0x29
0x0d2d…0d6e at002a = ╱f20200╱ // 0xd57 @0x2a
0x0d2d…0d6e at002d = ╱ee╱ ) ╱ // 0xd5a @0x2d
0x0d2d…0d6e at002e = ╱ea╱ ; ╱ // 0xd5b @0x2e
0x0d2d…0d6e at002f = ╱22╱"╱ // 0xd5c @0x2f
0x0d2d…0d6e at0030 = ╱20╱…╱ // 0xd5d @0x30
0x0d2d…0d6e at0031 = ╱76╱v╱ // 0xd5e @0x31
0x0d2d…0d6e at0032 = ╱65╱e╱ // 0xd5f @0x32
0x0d2d…0d6e at0033 = ╱64╱d╱ // 0xd60 @0x33
0x0d2d…0d6e at0034 = ╱20╱…╱ // 0xd61 @0x34
0x0d2d…0d6e at0035 = ╱7d╱}╱ // 0xd62 @0x35
0x0d2d…0d6e at0036 = ╱62╱b╱ // 0xd63 @0x36
0x0d2d…0d6e at0037 = ╱6e╱n╱ // 0xd64 @0x37
0x0d2d…0d6e at0038 = ╱69╱i╱ // 0xd65 @0x38
0x0d2d…0d6e at0039 = ╱6e╱n╱ // 0xd66 @0x39
0x0d2d…0d6e at003a = ╱67╱g╱ // 0xd67 @0x3a
0x0d2d…0d6e at003b = ╱20╱…╱ // 0xd68 @0x3b
0x0d2d…0d6e at003c = ╱61╱a╱ // 0xd69 @0x3c
0x0d2d…0d6e at003d = ╱66╱f╱ // 0xd6a @0x3d
0x0d2d…0d6e at003e = ╱20╱…╱ // 0xd6b @0x3e
0x0d2d…0d6e at003f = ╱22╱"╱ // 0xd6c @0x3f
0x0d2d…0d6e at0040 = EOL // 0xd6d @0x40
0x0d2d…0d6e }
0x0d6e…0d87 a375 01220 PRINT "<S>" ; FNAVN $ ; "…***"
0x0d6e…0d87 LineComal80 {
0x0d6e…0d87 ptr = 0xa375 // 0xd6e @0x0
0x0d6e…0d87 lno = 0x04c4 // 0xd70 @0x2
0x0d6e…0d87 at0004 = ╱92╱ PRINT ╱ // 0xd72 @0x4
0x0d6e…0d87 at0005 = ╱22╱"╱ // 0xd73 @0x5
0x0d6e…0d87 at0006 = ╱3c╱<╱ // 0xd74 @0x6
0x0d6e…0d87 at0007 = ╱53╱S╱ // 0xd75 @0x7
0x0d6e…0d87 at0008 = ╱3e╱>╱ // 0xd76 @0x8
0x0d6e…0d87 at0009 = ╱22╱"╱ // 0xd77 @0x9
0x0d6e…0d87 at000a = ╱ea╱ ; ╱ // 0xd78 @0xa
0x0d6e…0d87 at000b = ╱46╱F╱ // 0xd79 @0xb
0x0d6e…0d87 at000c = ╱4e╱N╱ // 0xd7a @0xc
0x0d6e…0d87 at000d = ╱41╱A╱ // 0xd7b @0xd
0x0d6e…0d87 at000e = ╱56╱V╱ // 0xd7c @0xe
0x0d6e…0d87 at000f = ╱4e╱N╱ // 0xd7d @0xf
0x0d6e…0d87 at0010 = ╱ef╱ $ ╱ // 0xd7e @0x10
0x0d6e…0d87 at0011 = ╱ea╱ ; ╱ // 0xd7f @0x11
0x0d6e…0d87 at0012 = ╱22╱"╱ // 0xd80 @0x12
0x0d6e…0d87 at0013 = ╱20╱…╱ // 0xd81 @0x13
0x0d6e…0d87 at0014 = ╱2a╱*╱ // 0xd82 @0x14
0x0d6e…0d87 at0015 = ╱2a╱*╱ // 0xd83 @0x15
0x0d6e…0d87 at0016 = ╱2a╱*╱ // 0xd84 @0x16
0x0d6e…0d87 at0017 = ╱22╱"╱ // 0xd85 @0x17
0x0d6e…0d87 at0018 = EOL // 0xd86 @0x18
0x0d6e…0d87 }
0x0d87…0d95 a383 01230 INPUT "" : SVAR $
0x0d87…0d95 LineComal80 {
0x0d87…0d95 ptr = 0xa383 // 0xd87 @0x0
0x0d87…0d95 lno = 0x04ce // 0xd89 @0x2
0x0d87…0d95 at0004 = ╱91╱ INPUT ╱ // 0xd8b @0x4
0x0d87…0d95 at0005 = ╱22╱"╱ // 0xd8c @0x5
0x0d87…0d95 at0006 = ╱22╱"╱ // 0xd8d @0x6
0x0d87…0d95 at0007 = ╱f1╱ : ╱ // 0xd8e @0x7
0x0d87…0d95 at0008 = ╱53╱S╱ // 0xd8f @0x8
0x0d87…0d95 at0009 = ╱56╱V╱ // 0xd90 @0x9
0x0d87…0d95 at000a = ╱41╱A╱ // 0xd91 @0xa
0x0d87…0d95 at000b = ╱52╱R╱ // 0xd92 @0xb
0x0d87…0d95 at000c = ╱ef╱ $ ╱ // 0xd93 @0xc
0x0d87…0d95 at000d = EOL // 0xd94 @0xd
0x0d87…0d95 }
0x0d95…0da9 a397 01240 PRINT "<C0102>" ; SPC $
0x0d95…0da9 LineComal80 {
0x0d95…0da9 ptr = 0xa397 // 0xd95 @0x0
0x0d95…0da9 lno = 0x04d8 // 0xd97 @0x2
0x0d95…0da9 at0004 = ╱92╱ PRINT ╱ // 0xd99 @0x4
0x0d95…0da9 at0005 = ╱22╱"╱ // 0xd9a @0x5
0x0d95…0da9 at0006 = ╱3c╱<╱ // 0xd9b @0x6
0x0d95…0da9 at0007 = ╱43╱C╱ // 0xd9c @0x7
0x0d95…0da9 at0008 = ╱30╱0╱ // 0xd9d @0x8
0x0d95…0da9 at0009 = ╱31╱1╱ // 0xd9e @0x9
0x0d95…0da9 at000a = ╱30╱0╱ // 0xd9f @0xa
0x0d95…0da9 at000b = ╱32╱2╱ // 0xda0 @0xb
0x0d95…0da9 at000c = ╱3e╱>╱ // 0xda1 @0xc
0x0d95…0da9 at000d = ╱22╱"╱ // 0xda2 @0xd
0x0d95…0da9 at000e = ╱ea╱ ; ╱ // 0xda3 @0xe
0x0d95…0da9 at000f = ╱53╱S╱ // 0xda4 @0xf
0x0d95…0da9 at0010 = ╱50╱P╱ // 0xda5 @0x10
0x0d95…0da9 at0011 = ╱43╱C╱ // 0xda6 @0x11
0x0d95…0da9 at0012 = ╱ef╱ $ ╱ // 0xda7 @0x12
0x0d95…0da9 at0013 = EOL // 0xda8 @0x13
0x0d95…0da9 }
0x0da9…0daf a39d 01250 ENDIF
0x0da9…0daf LineComal80 {
0x0da9…0daf ptr = 0xa39d // 0xda9 @0x0
0x0da9…0daf lno = 0x04e2 // 0xdab @0x2
0x0da9…0daf at0004 = ╱9c╱ ENDIF ╱ // 0xdad @0x4
0x0da9…0daf at0005 = EOL // 0xdae @0x5
0x0da9…0daf }
0x0daf…0db5 a3a3 01260 ENDIF
0x0daf…0db5 LineComal80 {
0x0daf…0db5 ptr = 0xa3a3 // 0xdaf @0x0
0x0daf…0db5 lno = 0x04ec // 0xdb1 @0x2
0x0daf…0db5 at0004 = ╱9c╱ ENDIF ╱ // 0xdb3 @0x4
0x0daf…0db5 at0005 = EOL // 0xdb4 @0x5
0x0daf…0db5 }
0x0db5…0dc5 a3b3 01270 UNTIL NOT ╱cd╱ ( FNAVN $ )
0x0db5…0dc5 LineComal80 {
0x0db5…0dc5 ptr = 0xa3b3 // 0xdb5 @0x0
0x0db5…0dc5 lno = 0x04f6 // 0xdb7 @0x2
0x0db5…0dc5 at0004 = ╱98╱ UNTIL ╱ // 0xdb9 @0x4
0x0db5…0dc5 at0005 = ╱d7╱ NOT ╱ // 0xdba @0x5
0x0db5…0dc5 at0006 = ╱cd╱ // 0xdbb @0x6
0x0db5…0dc5 at0007 = ╱ed╱ ( ╱ // 0xdbc @0x7
0x0db5…0dc5 at0008 = ╱46╱F╱ // 0xdbd @0x8
0x0db5…0dc5 at0009 = ╱4e╱N╱ // 0xdbe @0x9
0x0db5…0dc5 at000a = ╱41╱A╱ // 0xdbf @0xa
0x0db5…0dc5 at000b = ╱56╱V╱ // 0xdc0 @0xb
0x0db5…0dc5 at000c = ╱4e╱N╱ // 0xdc1 @0xc
0x0db5…0dc5 at000d = ╱ef╱ $ ╱ // 0xdc2 @0xd
0x0db5…0dc5 at000e = ╱ee╱ ) ╱ // 0xdc3 @0xe
0x0db5…0dc5 at000f = EOL // 0xdc4 @0xf
0x0db5…0dc5 }
0x0dc5…0dd2 a3c0 01280 ENDPROC OPENFIL
0x0dc5…0dd2 LineComal80 {
0x0dc5…0dd2 ptr = 0xa3c0 // 0xdc5 @0x0
0x0dc5…0dd2 lno = 0x0500 // 0xdc7 @0x2
0x0dc5…0dd2 at0004 = ╱9f╱ ENDPROC ╱ // 0xdc9 @0x4
0x0dc5…0dd2 at0005 = ╱4f╱O╱ // 0xdca @0x5
0x0dc5…0dd2 at0006 = ╱50╱P╱ // 0xdcb @0x6
0x0dc5…0dd2 at0007 = ╱45╱E╱ // 0xdcc @0x7
0x0dc5…0dd2 at0008 = ╱4e╱N╱ // 0xdcd @0x8
0x0dc5…0dd2 at0009 = ╱46╱F╱ // 0xdce @0x9
0x0dc5…0dd2 at000a = ╱49╱I╱ // 0xdcf @0xa
0x0dc5…0dd2 at000b = ╱4c╱L╱ // 0xdd0 @0xb
0x0dc5…0dd2 at000c = EOL // 0xdd1 @0xc
0x0dc5…0dd2 }
0x0dd2…0dd7 a3c5 01290
0x0dd2…0dd7 LineComal80 {
0x0dd2…0dd7 ptr = 0xa3c5 // 0xdd2 @0x0
0x0dd2…0dd7 lno = 0x050a // 0xdd4 @0x2
0x0dd2…0dd7 at0004 = EOL // 0xdd6 @0x4
0x0dd2…0dd7 }
0x0dd7…0df0 a3de 01300 PROC TAL_CONTROL ( REF RST $ )
0x0dd7…0df0 LineComal80 {
0x0dd7…0df0 ptr = 0xa3de // 0xdd7 @0x0
0x0dd7…0df0 lno = 0x0514 // 0xdd9 @0x2
0x0dd7…0df0 at0004 = ╱9e0b╱ PROC ╱ // 0xddb @0x4
0x0dd7…0df0 at0006 = ╱54╱T╱ // 0xddd @0x6
0x0dd7…0df0 at0007 = ╱41╱A╱ // 0xdde @0x7
0x0dd7…0df0 at0008 = ╱4c╱L╱ // 0xddf @0x8
0x0dd7…0df0 at0009 = ╱5f╱_╱ // 0xde0 @0x9
0x0dd7…0df0 at000a = ╱43╱C╱ // 0xde1 @0xa
0x0dd7…0df0 at000b = ╱4f╱O╱ // 0xde2 @0xb
0x0dd7…0df0 at000c = ╱4e╱N╱ // 0xde3 @0xc
0x0dd7…0df0 at000d = ╱54╱T╱ // 0xde4 @0xd
0x0dd7…0df0 at000e = ╱52╱R╱ // 0xde5 @0xe
0x0dd7…0df0 at000f = ╱4f╱O╱ // 0xde6 @0xf
0x0dd7…0df0 at0010 = ╱4c╱L╱ // 0xde7 @0x10
0x0dd7…0df0 at0011 = ╱ed╱ ( ╱ // 0xde8 @0x11
0x0dd7…0df0 at0012 = ╱b6╱ REF ╱ // 0xde9 @0x12
0x0dd7…0df0 at0013 = ╱52╱R╱ // 0xdea @0x13
0x0dd7…0df0 at0014 = ╱53╱S╱ // 0xdeb @0x14
0x0dd7…0df0 at0015 = ╱54╱T╱ // 0xdec @0x15
0x0dd7…0df0 at0016 = ╱ef╱ $ ╱ // 0xded @0x16
0x0dd7…0df0 at0017 = ╱ee╱ ) ╱ // 0xdee @0x17
0x0dd7…0df0 at0018 = EOL // 0xdef @0x18
0x0dd7…0df0 }
0x0df0…0e04 a3f2 01310 LET J := 0 ; OK := TRUE
0x0df0…0e04 LineComal80 {
0x0df0…0e04 ptr = 0xa3f2 // 0xdf0 @0x0
0x0df0…0e04 lno = 0x051e // 0xdf2 @0x2
0x0df0…0e04 at0004 = ╱86╱ LET ╱ // 0xdf4 @0x4
0x0df0…0e04 at0005 = ╱4a╱J╱ // 0xdf5 @0x5
0x0df0…0e04 at0006 = ╱f0╱ := ╱ // 0xdf6 @0x6
0x0df0…0e04 at0007 = ╱30╱0╱ // 0xdf7 @0x7
0x0df0…0e04 at0008 = ╱f20000╱ // 0xdf8 @0x8
0x0df0…0e04 at000b = ╱ea╱ ; ╱ // 0xdfb @0xb
0x0df0…0e04 at000c = ╱4f╱O╱ // 0xdfc @0xc
0x0df0…0e04 at000d = ╱4b╱K╱ // 0xdfd @0xd
0x0df0…0e04 at000e = ╱f0╱ := ╱ // 0xdfe @0xe
0x0df0…0e04 at000f = ╱54╱T╱ // 0xdff @0xf
0x0df0…0e04 at0010 = ╱52╱R╱ // 0xe00 @0x10
0x0df0…0e04 at0011 = ╱55╱U╱ // 0xe01 @0x11
0x0df0…0e04 at0012 = ╱45╱E╱ // 0xe02 @0x12
0x0df0…0e04 at0013 = EOL // 0xe03 @0x13
0x0df0…0e04 }
0x0e04…0e1a a408 01320 FOR I := 1 TO ( RST $ ) DO
0x0e04…0e1a LineComal80 {
0x0e04…0e1a ptr = 0xa408 // 0xe04 @0x0
0x0e04…0e1a lno = 0x0528 // 0xe06 @0x2
0x0e04…0e1a at0004 = ╱830c╱ FOR ╱ // 0xe08 @0x4
0x0e04…0e1a at0006 = ╱49╱I╱ // 0xe0a @0x6
0x0e04…0e1a at0007 = ╱f0╱ := ╱ // 0xe0b @0x7
0x0e04…0e1a at0008 = ╱31╱1╱ // 0xe0c @0x8
0x0e04…0e1a at0009 = ╱f20100╱ // 0xe0d @0x9
0x0e04…0e1a at000c = ╱b7cb╱ TO ╱ // 0xe10 @0xc
0x0e04…0e1a at000e = ╱ed╱ ( ╱ // 0xe12 @0xe
0x0e04…0e1a at000f = ╱52╱R╱ // 0xe13 @0xf
0x0e04…0e1a at0010 = ╱53╱S╱ // 0xe14 @0x10
0x0e04…0e1a at0011 = ╱54╱T╱ // 0xe15 @0x11
0x0e04…0e1a at0012 = ╱ef╱ $ ╱ // 0xe16 @0x12
0x0e04…0e1a at0013 = ╱ee╱ ) ╱ // 0xe17 @0x13
0x0e04…0e1a at0014 = ╱bb╱ DO ╱ // 0xe18 @0x14
0x0e04…0e1a at0015 = EOL // 0xe19 @0x15
0x0e04…0e1a }
0x0e1a…0e4b a439 01330 IF RST $ ( I ) IN TAL $ + "." THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
0x0e1a…0e4b LineComal80 {
0x0e1a…0e4b ptr = 0xa439 // 0xe1a @0x0
0x0e1a…0e4b lno = 0x0532 // 0xe1c @0x2
0x0e1a…0e4b at0004 = ╱8200╱ IF ╱ // 0xe1e @0x4
0x0e1a…0e4b at0006 = ╱52╱R╱ // 0xe20 @0x6
0x0e1a…0e4b at0007 = ╱53╱S╱ // 0xe21 @0x7
0x0e1a…0e4b at0008 = ╱54╱T╱ // 0xe22 @0x8
0x0e1a…0e4b at0009 = ╱ef╱ $ ╱ // 0xe23 @0x9
0x0e1a…0e4b at000a = ╱ed╱ ( ╱ // 0xe24 @0xa
0x0e1a…0e4b at000b = ╱49╱I╱ // 0xe25 @0xb
0x0e1a…0e4b at000c = ╱ee╱ ) ╱ // 0xe26 @0xc
0x0e1a…0e4b at000d = ╱dc╱ IN ╱ // 0xe27 @0xd
0x0e1a…0e4b at000e = ╱54╱T╱ // 0xe28 @0xe
0x0e1a…0e4b at000f = ╱41╱A╱ // 0xe29 @0xf
0x0e1a…0e4b at0010 = ╱4c╱L╱ // 0xe2a @0x10
0x0e1a…0e4b at0011 = ╱ef╱ $ ╱ // 0xe2b @0x11
0x0e1a…0e4b at0012 = ╱eb╱ + ╱ // 0xe2c @0x12
0x0e1a…0e4b at0013 = ╱22╱"╱ // 0xe2d @0x13
0x0e1a…0e4b at0014 = ╱2e╱.╱ // 0xe2e @0x14
0x0e1a…0e4b at0015 = ╱22╱"╱ // 0xe2f @0x15
0x0e1a…0e4b at0016 = ╱b5╱ THEN ╱ // 0xe30 @0x16
0x0e1a…0e4b at0017 = ╱86╱ LET ╱ // 0xe31 @0x17
0x0e1a…0e4b at0018 = ╱4a╱J╱ // 0xe32 @0x18
0x0e1a…0e4b at0019 = ╱f0╱ := ╱ // 0xe33 @0x19
0x0e1a…0e4b at001a = ╱4a╱J╱ // 0xe34 @0x1a
0x0e1a…0e4b at001b = ╱e5╱ + ╱ // 0xe35 @0x1b
0x0e1a…0e4b at001c = ╱31╱1╱ // 0xe36 @0x1c
0x0e1a…0e4b at001d = ╱f20100╱ // 0xe37 @0x1d
0x0e1a…0e4b at0020 = ╱ea╱ ; ╱ // 0xe3a @0x20
0x0e1a…0e4b at0021 = ╱52╱R╱ // 0xe3b @0x21
0x0e1a…0e4b at0022 = ╱53╱S╱ // 0xe3c @0x22
0x0e1a…0e4b at0023 = ╱54╱T╱ // 0xe3d @0x23
0x0e1a…0e4b at0024 = ╱ef╱ $ ╱ // 0xe3e @0x24
0x0e1a…0e4b at0025 = ╱ed╱ ( ╱ // 0xe3f @0x25
0x0e1a…0e4b at0026 = ╱4a╱J╱ // 0xe40 @0x26
0x0e1a…0e4b at0027 = ╱ee╱ ) ╱ // 0xe41 @0x27
0x0e1a…0e4b at0028 = ╱f0╱ := ╱ // 0xe42 @0x28
0x0e1a…0e4b at0029 = ╱52╱R╱ // 0xe43 @0x29
0x0e1a…0e4b at002a = ╱53╱S╱ // 0xe44 @0x2a
0x0e1a…0e4b at002b = ╱54╱T╱ // 0xe45 @0x2b
0x0e1a…0e4b at002c = ╱ef╱ $ ╱ // 0xe46 @0x2c
0x0e1a…0e4b at002d = ╱ed╱ ( ╱ // 0xe47 @0x2d
0x0e1a…0e4b at002e = ╱49╱I╱ // 0xe48 @0x2e
0x0e1a…0e4b at002f = ╱ee╱ ) ╱ // 0xe49 @0x2f
0x0e1a…0e4b at0030 = EOL // 0xe4a @0x30
0x0e1a…0e4b }
0x0e4b…0e52 a440 01340 NEXT I
0x0e4b…0e52 LineComal80 {
0x0e4b…0e52 ptr = 0xa440 // 0xe4b @0x0
0x0e4b…0e52 lno = 0x053c // 0xe4d @0x2
0x0e4b…0e52 at0004 = ╱84╱ NEXT ╱ // 0xe4f @0x4
0x0e4b…0e52 at0005 = ╱49╱I╱ // 0xe50 @0x5
0x0e4b…0e52 at0006 = EOL // 0xe51 @0x6
0x0e4b…0e52 }
0x0e52…0e60 a44e 01350 IF = 0 THEN
0x0e52…0e60 LineComal80 {
0x0e52…0e60 ptr = 0xa44e // 0xe52 @0x0
0x0e52…0e60 lno = 0x0546 // 0xe54 @0x2
0x0e52…0e60 at0004 = ╱9b0d4a╱ IF ╱ // 0xe56 @0x4
0x0e52…0e60 at0007 = ╱df╱ = ╱ // 0xe59 @0x7
0x0e52…0e60 at0008 = ╱30╱0╱ // 0xe5a @0x8
0x0e52…0e60 at0009 = ╱f20000╱ // 0xe5b @0x9
0x0e52…0e60 at000c = ╱b5╱ THEN ╱ // 0xe5e @0xc
0x0e52…0e60 at000d = EOL // 0xe5f @0xd
0x0e52…0e60 }
0x0e60…0e6e a45c 01360 LET OK := FALSE
0x0e60…0e6e LineComal80 {
0x0e60…0e6e ptr = 0xa45c // 0xe60 @0x0
0x0e60…0e6e lno = 0x0550 // 0xe62 @0x2
0x0e60…0e6e at0004 = ╱86╱ LET ╱ // 0xe64 @0x4
0x0e60…0e6e at0005 = ╱4f╱O╱ // 0xe65 @0x5
0x0e60…0e6e at0006 = ╱4b╱K╱ // 0xe66 @0x6
0x0e60…0e6e at0007 = ╱f0╱ := ╱ // 0xe67 @0x7
0x0e60…0e6e at0008 = ╱46╱F╱ // 0xe68 @0x8
0x0e60…0e6e at0009 = ╱41╱A╱ // 0xe69 @0x9
0x0e60…0e6e at000a = ╱4c╱L╱ // 0xe6a @0xa
0x0e60…0e6e at000b = ╱53╱S╱ // 0xe6b @0xb
0x0e60…0e6e at000c = ╱45╱E╱ // 0xe6c @0xc
0x0e60…0e6e at000d = EOL // 0xe6d @0xd
0x0e60…0e6e }
0x0e6e…0e75 a463 01370 ELSE
0x0e6e…0e75 LineComal80 {
0x0e6e…0e75 ptr = 0xa463 // 0xe6e @0x0
0x0e6e…0e75 lno = 0x055a // 0xe70 @0x2
0x0e6e…0e75 at0004 = ╱9a0e╱ ELSE ╱ // 0xe72 @0x4
0x0e6e…0e75 at0006 = EOL // 0xe74 @0x6
0x0e6e…0e75 }
0x0e75…0e8c a47a 01380 LET RST $ := RST $ ( 1 : J )
0x0e75…0e8c LineComal80 {
0x0e75…0e8c ptr = 0xa47a // 0xe75 @0x0
0x0e75…0e8c lno = 0x0564 // 0xe77 @0x2
0x0e75…0e8c at0004 = ╱86╱ LET ╱ // 0xe79 @0x4
0x0e75…0e8c at0005 = ╱52╱R╱ // 0xe7a @0x5
0x0e75…0e8c at0006 = ╱53╱S╱ // 0xe7b @0x6
0x0e75…0e8c at0007 = ╱54╱T╱ // 0xe7c @0x7
0x0e75…0e8c at0008 = ╱ef╱ $ ╱ // 0xe7d @0x8
0x0e75…0e8c at0009 = ╱f0╱ := ╱ // 0xe7e @0x9
0x0e75…0e8c at000a = ╱52╱R╱ // 0xe7f @0xa
0x0e75…0e8c at000b = ╱53╱S╱ // 0xe80 @0xb
0x0e75…0e8c at000c = ╱54╱T╱ // 0xe81 @0xc
0x0e75…0e8c at000d = ╱ef╱ $ ╱ // 0xe82 @0xd
0x0e75…0e8c at000e = ╱ed╱ ( ╱ // 0xe83 @0xe
0x0e75…0e8c at000f = ╱31╱1╱ // 0xe84 @0xf
0x0e75…0e8c at0010 = ╱f20100╱ // 0xe85 @0x10
0x0e75…0e8c at0013 = ╱f1╱ : ╱ // 0xe88 @0x13
0x0e75…0e8c at0014 = ╱4a╱J╱ // 0xe89 @0x14
0x0e75…0e8c at0015 = ╱ee╱ ) ╱ // 0xe8a @0x15
0x0e75…0e8c at0016 = EOL // 0xe8b @0x16
0x0e75…0e8c }
0x0e8c…0e92 a480 01390 ENDIF
0x0e8c…0e92 LineComal80 {
0x0e8c…0e92 ptr = 0xa480 // 0xe8c @0x0
0x0e8c…0e92 lno = 0x056e // 0xe8e @0x2
0x0e8c…0e92 at0004 = ╱9c╱ ENDIF ╱ // 0xe90 @0x4
0x0e8c…0e92 at0005 = EOL // 0xe91 @0x5
0x0e8c…0e92 }
0x0e92…0ea3 a491 01400 ENDPROC TAL_CONTROL
0x0e92…0ea3 LineComal80 {
0x0e92…0ea3 ptr = 0xa491 // 0xe92 @0x0
0x0e92…0ea3 lno = 0x0578 // 0xe94 @0x2
0x0e92…0ea3 at0004 = ╱9f╱ ENDPROC ╱ // 0xe96 @0x4
0x0e92…0ea3 at0005 = ╱54╱T╱ // 0xe97 @0x5
0x0e92…0ea3 at0006 = ╱41╱A╱ // 0xe98 @0x6
0x0e92…0ea3 at0007 = ╱4c╱L╱ // 0xe99 @0x7
0x0e92…0ea3 at0008 = ╱5f╱_╱ // 0xe9a @0x8
0x0e92…0ea3 at0009 = ╱43╱C╱ // 0xe9b @0x9
0x0e92…0ea3 at000a = ╱4f╱O╱ // 0xe9c @0xa
0x0e92…0ea3 at000b = ╱4e╱N╱ // 0xe9d @0xb
0x0e92…0ea3 at000c = ╱54╱T╱ // 0xe9e @0xc
0x0e92…0ea3 at000d = ╱52╱R╱ // 0xe9f @0xd
0x0e92…0ea3 at000e = ╱4f╱O╱ // 0xea0 @0xe
0x0e92…0ea3 at000f = ╱4c╱L╱ // 0xea1 @0xf
0x0e92…0ea3 at0010 = EOL // 0xea2 @0x10
0x0e92…0ea3 }
0x0ea3…0ea8 a496 01410
0x0ea3…0ea8 LineComal80 {
0x0ea3…0ea8 ptr = 0xa496 // 0xea3 @0x0
0x0ea3…0ea8 lno = 0x0582 // 0xea5 @0x2
0x0ea3…0ea8 at0004 = EOL // 0xea7 @0x4
0x0ea3…0ea8 }
0x0ea8…0ec0 a4ae 01420 PROC OVERSKRIFT ( ST $ , L )
0x0ea8…0ec0 LineComal80 {
0x0ea8…0ec0 ptr = 0xa4ae // 0xea8 @0x0
0x0ea8…0ec0 lno = 0x058c // 0xeaa @0x2
0x0ea8…0ec0 at0004 = ╱9e0f╱ PROC ╱ // 0xeac @0x4
0x0ea8…0ec0 at0006 = ╱4f╱O╱ // 0xeae @0x6
0x0ea8…0ec0 at0007 = ╱56╱V╱ // 0xeaf @0x7
0x0ea8…0ec0 at0008 = ╱45╱E╱ // 0xeb0 @0x8
0x0ea8…0ec0 at0009 = ╱52╱R╱ // 0xeb1 @0x9
0x0ea8…0ec0 at000a = ╱53╱S╱ // 0xeb2 @0xa
0x0ea8…0ec0 at000b = ╱4b╱K╱ // 0xeb3 @0xb
0x0ea8…0ec0 at000c = ╱52╱R╱ // 0xeb4 @0xc
0x0ea8…0ec0 at000d = ╱49╱I╱ // 0xeb5 @0xd
0x0ea8…0ec0 at000e = ╱46╱F╱ // 0xeb6 @0xe
0x0ea8…0ec0 at000f = ╱54╱T╱ // 0xeb7 @0xf
0x0ea8…0ec0 at0010 = ╱ed╱ ( ╱ // 0xeb8 @0x10
0x0ea8…0ec0 at0011 = ╱53╱S╱ // 0xeb9 @0x11
0x0ea8…0ec0 at0012 = ╱54╱T╱ // 0xeba @0x12
0x0ea8…0ec0 at0013 = ╱ef╱ $ ╱ // 0xebb @0x13
0x0ea8…0ec0 at0014 = ╱ec╱ , ╱ // 0xebc @0x14
0x0ea8…0ec0 at0015 = ╱4c╱L╱ // 0xebd @0x15
0x0ea8…0ec0 at0016 = ╱ee╱ ) ╱ // 0xebe @0x16
0x0ea8…0ec0 at0017 = EOL // 0xebf @0x17
0x0ea8…0ec0 }
0x0ec0…0ee6 a4d4 01430 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
0x0ec0…0ee6 LineComal80 {
0x0ec0…0ee6 ptr = 0xa4d4 // 0xec0 @0x0
0x0ec0…0ee6 lno = 0x0596 // 0xec2 @0x2
0x0ec0…0ee6 at0004 = ╱92╱ PRINT ╱ // 0xec4 @0x4
0x0ec0…0ee6 at0005 = ╱22╱"╱ // 0xec5 @0x5
0x0ec0…0ee6 at0006 = ╱3c╱<╱ // 0xec6 @0x6
0x0ec0…0ee6 at0007 = ╱58╱X╱ // 0xec7 @0x7
0x0ec0…0ee6 at0008 = ╱43╱C╱ // 0xec8 @0x8
0x0ec0…0ee6 at0009 = ╱30╱0╱ // 0xec9 @0x9
0x0ec0…0ee6 at000a = ╱31╱1╱ // 0xeca @0xa
0x0ec0…0ee6 at000b = ╱30╱0╱ // 0xecb @0xb
0x0ec0…0ee6 at000c = ╱31╱1╱ // 0xecc @0xc
0x0ec0…0ee6 at000d = ╱3e╱>╱ // 0xecd @0xd
0x0ec0…0ee6 at000e = ╱46╱F╱ // 0xece @0xe
0x0ec0…0ee6 at000f = ╱69╱i╱ // 0xecf @0xf
0x0ec0…0ee6 at0010 = ╱72╱r╱ // 0xed0 @0x10
0x0ec0…0ee6 at0011 = ╱6d╱m╱ // 0xed1 @0x11
0x0ec0…0ee6 at0012 = ╱61╱a╱ // 0xed2 @0x12
0x0ec0…0ee6 at0013 = ╱6e╱n╱ // 0xed3 @0x13
0x0ec0…0ee6 at0014 = ╱61╱a╱ // 0xed4 @0x14
0x0ec0…0ee6 at0015 = ╱76╱v╱ // 0xed5 @0x15
0x0ec0…0ee6 at0016 = ╱6e╱n╱ // 0xed6 @0x16
0x0ec0…0ee6 at0017 = ╱3a╱:╱ // 0xed7 @0x17
0x0ec0…0ee6 at0018 = ╱20╱…╱ // 0xed8 @0x18
0x0ec0…0ee6 at0019 = ╱22╱"╱ // 0xed9 @0x19
0x0ec0…0ee6 at001a = ╱ea╱ ; ╱ // 0xeda @0x1a
0x0ec0…0ee6 at001b = ╱46╱F╱ // 0xedb @0x1b
0x0ec0…0ee6 at001c = ╱49╱I╱ // 0xedc @0x1c
0x0ec0…0ee6 at001d = ╱52╱R╱ // 0xedd @0x1d
0x0ec0…0ee6 at001e = ╱4d╱M╱ // 0xede @0x1e
0x0ec0…0ee6 at001f = ╱41╱A╱ // 0xedf @0x1f
0x0ec0…0ee6 at0020 = ╱4e╱N╱ // 0xee0 @0x20
0x0ec0…0ee6 at0021 = ╱41╱A╱ // 0xee1 @0x21
0x0ec0…0ee6 at0022 = ╱56╱V╱ // 0xee2 @0x22
0x0ec0…0ee6 at0023 = ╱4e╱N╱ // 0xee3 @0x23
0x0ec0…0ee6 at0024 = ╱ef╱ $ ╱ // 0xee4 @0x24
0x0ec0…0ee6 at0025 = EOL // 0xee5 @0x25
0x0ec0…0ee6 }
0x0ee6…0f2e a51c 01440 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
0x0ee6…0f2e LineComal80 {
0x0ee6…0f2e ptr = 0xa51c // 0xee6 @0x0
0x0ee6…0f2e lno = 0x05a0 // 0xee8 @0x2
0x0ee6…0f2e at0004 = ╱92╱ PRINT ╱ // 0xeea @0x4
0x0ee6…0f2e at0005 = ╱22╱"╱ // 0xeeb @0x5
0x0ee6…0f2e at0006 = ╱3c╱<╱ // 0xeec @0x6
0x0ee6…0f2e at0007 = ╱53╱S╱ // 0xeed @0x7
0x0ee6…0f2e at0008 = ╱43╱C╱ // 0xeee @0x8
0x0ee6…0f2e at0009 = ╱36╱6╱ // 0xeef @0x9
0x0ee6…0f2e at000a = ╱35╱5╱ // 0xef0 @0xa
0x0ee6…0f2e at000b = ╱30╱0╱ // 0xef1 @0xb
0x0ee6…0f2e at000c = ╱31╱1╱ // 0xef2 @0xc
0x0ee6…0f2e at000d = ╱3e╱>╱ // 0xef3 @0xd
0x0ee6…0f2e at000e = ╱44╱D╱ // 0xef4 @0xe
0x0ee6…0f2e at000f = ╱61╱a╱ // 0xef5 @0xf
0x0ee6…0f2e at0010 = ╱74╱t╱ // 0xef6 @0x10
0x0ee6…0f2e at0011 = ╱6f╱o╱ // 0xef7 @0x11
0x0ee6…0f2e at0012 = ╱3a╱:╱ // 0xef8 @0x12
0x0ee6…0f2e at0013 = ╱20╱…╱ // 0xef9 @0x13
0x0ee6…0f2e at0014 = ╱22╱"╱ // 0xefa @0x14
0x0ee6…0f2e at0015 = ╱ea╱ ; ╱ // 0xefb @0x15
0x0ee6…0f2e at0016 = ╱53╱S╱ // 0xefc @0x16
0x0ee6…0f2e at0017 = ╱59╱Y╱ // 0xefd @0x17
0x0ee6…0f2e at0018 = ╱53╱S╱ // 0xefe @0x18
0x0ee6…0f2e at0019 = ╱54╱T╱ // 0xeff @0x19
0x0ee6…0f2e at001a = ╱5f╱_╱ // 0xf00 @0x1a
0x0ee6…0f2e at001b = ╱44╱D╱ // 0xf01 @0x1b
0x0ee6…0f2e at001c = ╱41╱A╱ // 0xf02 @0x1c
0x0ee6…0f2e at001d = ╱54╱T╱ // 0xf03 @0x1d
0x0ee6…0f2e at001e = ╱ef╱ $ ╱ // 0xf04 @0x1e
0x0ee6…0f2e at001f = ╱ed╱ ( ╱ // 0xf05 @0x1f
0x0ee6…0f2e at0020 = ╱31╱1╱ // 0xf06 @0x20
0x0ee6…0f2e at0021 = ╱f20100╱ // 0xf07 @0x21
0x0ee6…0f2e at0024 = ╱f1╱ : ╱ // 0xf0a @0x24
0x0ee6…0f2e at0025 = ╱32╱2╱ // 0xf0b @0x25
0x0ee6…0f2e at0026 = ╱f20200╱ // 0xf0c @0x26
0x0ee6…0f2e at0029 = ╱ee╱ ) ╱ // 0xf0f @0x29
0x0ee6…0f2e at002a = ╱ea╱ ; ╱ // 0xf10 @0x2a
0x0ee6…0f2e at002b = ╱22╱"╱ // 0xf11 @0x2b
0x0ee6…0f2e at002c = ╱2e╱.╱ // 0xf12 @0x2c
0x0ee6…0f2e at002d = ╱22╱"╱ // 0xf13 @0x2d
0x0ee6…0f2e at002e = ╱ea╱ ; ╱ // 0xf14 @0x2e
0x0ee6…0f2e at002f = ╱53╱S╱ // 0xf15 @0x2f
0x0ee6…0f2e at0030 = ╱59╱Y╱ // 0xf16 @0x30
0x0ee6…0f2e at0031 = ╱53╱S╱ // 0xf17 @0x31
0x0ee6…0f2e at0032 = ╱54╱T╱ // 0xf18 @0x32
0x0ee6…0f2e at0033 = ╱5f╱_╱ // 0xf19 @0x33
0x0ee6…0f2e at0034 = ╱44╱D╱ // 0xf1a @0x34
0x0ee6…0f2e at0035 = ╱41╱A╱ // 0xf1b @0x35
0x0ee6…0f2e at0036 = ╱54╱T╱ // 0xf1c @0x36
0x0ee6…0f2e at0037 = ╱ef╱ $ ╱ // 0xf1d @0x37
0x0ee6…0f2e at0038 = ╱ed╱ ( ╱ // 0xf1e @0x38
0x0ee6…0f2e at0039 = ╱33╱3╱ // 0xf1f @0x39
0x0ee6…0f2e at003a = ╱f20300╱ // 0xf20 @0x3a
0x0ee6…0f2e at003d = ╱f1╱ : ╱ // 0xf23 @0x3d
0x0ee6…0f2e at003e = ╱32╱2╱ // 0xf24 @0x3e
0x0ee6…0f2e at003f = ╱f20200╱ // 0xf25 @0x3f
0x0ee6…0f2e at0042 = ╱ee╱ ) ╱ // 0xf28 @0x42
0x0ee6…0f2e at0043 = ╱ea╱ ; ╱ // 0xf29 @0x43
0x0ee6…0f2e at0044 = ╱22╱"╱ // 0xf2a @0x44
0x0ee6…0f2e at0045 = ╱2e╱.╱ // 0xf2b @0x45
0x0ee6…0f2e at0046 = ╱22╱"╱ // 0xf2c @0x46
0x0ee6…0f2e at0047 = EOL // 0xf2d @0x47
0x0ee6…0f2e }
0x0f2e…0f48 a536 01450 PRINT SYST_DAT $ ( 5 : 2 )
0x0f2e…0f48 LineComal80 {
0x0f2e…0f48 ptr = 0xa536 // 0xf2e @0x0
0x0f2e…0f48 lno = 0x05aa // 0xf30 @0x2
0x0f2e…0f48 at0004 = ╱92╱ PRINT ╱ // 0xf32 @0x4
0x0f2e…0f48 at0005 = ╱53╱S╱ // 0xf33 @0x5
0x0f2e…0f48 at0006 = ╱59╱Y╱ // 0xf34 @0x6
0x0f2e…0f48 at0007 = ╱53╱S╱ // 0xf35 @0x7
0x0f2e…0f48 at0008 = ╱54╱T╱ // 0xf36 @0x8
0x0f2e…0f48 at0009 = ╱5f╱_╱ // 0xf37 @0x9
0x0f2e…0f48 at000a = ╱44╱D╱ // 0xf38 @0xa
0x0f2e…0f48 at000b = ╱41╱A╱ // 0xf39 @0xb
0x0f2e…0f48 at000c = ╱54╱T╱ // 0xf3a @0xc
0x0f2e…0f48 at000d = ╱ef╱ $ ╱ // 0xf3b @0xd
0x0f2e…0f48 at000e = ╱ed╱ ( ╱ // 0xf3c @0xe
0x0f2e…0f48 at000f = ╱35╱5╱ // 0xf3d @0xf
0x0f2e…0f48 at0010 = ╱f20500╱ // 0xf3e @0x10
0x0f2e…0f48 at0013 = ╱f1╱ : ╱ // 0xf41 @0x13
0x0f2e…0f48 at0014 = ╱32╱2╱ // 0xf42 @0x14
0x0f2e…0f48 at0015 = ╱f20200╱ // 0xf43 @0x15
0x0f2e…0f48 at0018 = ╱ee╱ ) ╱ // 0xf46 @0x18
0x0f2e…0f48 at0019 = EOL // 0xf47 @0x19
0x0f2e…0f48 }
0x0f48…0f61 a54f 01460 CURSOR 34 - ╱cb╱ ( ST $ ) DIV 2 , L
0x0f48…0f61 LineComal80 {
0x0f48…0f61 ptr = 0xa54f // 0xf48 @0x0
0x0f48…0f61 lno = 0x05b4 // 0xf4a @0x2
0x0f48…0f61 at0004 = ╱a1╱ CURSOR ╱ // 0xf4c @0x4
0x0f48…0f61 at0005 = ╱33╱3╱ // 0xf4d @0x5
0x0f48…0f61 at0006 = ╱34╱4╱ // 0xf4e @0x6
0x0f48…0f61 at0007 = ╱f22200╱ // 0xf4f @0x7
0x0f48…0f61 at000a = ╱e6╱ - ╱ // 0xf52 @0xa
0x0f48…0f61 at000b = ╱cb╱ // 0xf53 @0xb
0x0f48…0f61 at000c = ╱ed╱ ( ╱ // 0xf54 @0xc
0x0f48…0f61 at000d = ╱53╱S╱ // 0xf55 @0xd
0x0f48…0f61 at000e = ╱54╱T╱ // 0xf56 @0xe
0x0f48…0f61 at000f = ╱ef╱ $ ╱ // 0xf57 @0xf
0x0f48…0f61 at0010 = ╱ee╱ ) ╱ // 0xf58 @0x10
0x0f48…0f61 at0011 = ╱da╱ DIV ╱ // 0xf59 @0x11
0x0f48…0f61 at0012 = ╱32╱2╱ // 0xf5a @0x12
0x0f48…0f61 at0013 = ╱f20200╱ // 0xf5b @0x13
0x0f48…0f61 at0016 = ╱ec╱ , ╱ // 0xf5e @0x16
0x0f48…0f61 at0017 = ╱4c╱L╱ // 0xf5f @0x17
0x0f48…0f61 at0018 = EOL // 0xf60 @0x18
0x0f48…0f61 }
0x0f61…0f78 a566 01470 PRINT "***…" ; ST $ ; "…***"
0x0f61…0f78 LineComal80 {
0x0f61…0f78 ptr = 0xa566 // 0xf61 @0x0
0x0f61…0f78 lno = 0x05be // 0xf63 @0x2
0x0f61…0f78 at0004 = ╱92╱ PRINT ╱ // 0xf65 @0x4
0x0f61…0f78 at0005 = ╱22╱"╱ // 0xf66 @0x5
0x0f61…0f78 at0006 = ╱2a╱*╱ // 0xf67 @0x6
0x0f61…0f78 at0007 = ╱2a╱*╱ // 0xf68 @0x7
0x0f61…0f78 at0008 = ╱2a╱*╱ // 0xf69 @0x8
0x0f61…0f78 at0009 = ╱20╱…╱ // 0xf6a @0x9
0x0f61…0f78 at000a = ╱22╱"╱ // 0xf6b @0xa
0x0f61…0f78 at000b = ╱ea╱ ; ╱ // 0xf6c @0xb
0x0f61…0f78 at000c = ╱53╱S╱ // 0xf6d @0xc
0x0f61…0f78 at000d = ╱54╱T╱ // 0xf6e @0xd
0x0f61…0f78 at000e = ╱ef╱ $ ╱ // 0xf6f @0xe
0x0f61…0f78 at000f = ╱ea╱ ; ╱ // 0xf70 @0xf
0x0f61…0f78 at0010 = ╱22╱"╱ // 0xf71 @0x10
0x0f61…0f78 at0011 = ╱20╱…╱ // 0xf72 @0x11
0x0f61…0f78 at0012 = ╱2a╱*╱ // 0xf73 @0x12
0x0f61…0f78 at0013 = ╱2a╱*╱ // 0xf74 @0x13
0x0f61…0f78 at0014 = ╱2a╱*╱ // 0xf75 @0x14
0x0f61…0f78 at0015 = ╱22╱"╱ // 0xf76 @0x15
0x0f61…0f78 at0016 = EOL // 0xf77 @0x16
0x0f61…0f78 }
0x0f78…0f88 a576 01480 ENDPROC OVERSKRIFT
0x0f78…0f88 LineComal80 {
0x0f78…0f88 ptr = 0xa576 // 0xf78 @0x0
0x0f78…0f88 lno = 0x05c8 // 0xf7a @0x2
0x0f78…0f88 at0004 = ╱9f╱ ENDPROC ╱ // 0xf7c @0x4
0x0f78…0f88 at0005 = ╱4f╱O╱ // 0xf7d @0x5
0x0f78…0f88 at0006 = ╱56╱V╱ // 0xf7e @0x6
0x0f78…0f88 at0007 = ╱45╱E╱ // 0xf7f @0x7
0x0f78…0f88 at0008 = ╱52╱R╱ // 0xf80 @0x8
0x0f78…0f88 at0009 = ╱53╱S╱ // 0xf81 @0x9
0x0f78…0f88 at000a = ╱4b╱K╱ // 0xf82 @0xa
0x0f78…0f88 at000b = ╱52╱R╱ // 0xf83 @0xb
0x0f78…0f88 at000c = ╱49╱I╱ // 0xf84 @0xc
0x0f78…0f88 at000d = ╱46╱F╱ // 0xf85 @0xd
0x0f78…0f88 at000e = ╱54╱T╱ // 0xf86 @0xe
0x0f78…0f88 at000f = EOL // 0xf87 @0xf
0x0f78…0f88 }
0x0f88…0f8d a57b 01490
0x0f88…0f8d LineComal80 {
0x0f88…0f8d ptr = 0xa57b // 0xf88 @0x0
0x0f88…0f8d lno = 0x05d2 // 0xf8a @0x2
0x0f88…0f8d at0004 = EOL // 0xf8c @0x4
0x0f88…0f8d }
0x0f8d…0fa0 a58e 01500 PROC SL_FEJLLINIE
0x0f8d…0fa0 LineComal80 {
0x0f8d…0fa0 ptr = 0xa58e // 0xf8d @0x0
0x0f8d…0fa0 lno = 0x05dc // 0xf8f @0x2
0x0f8d…0fa0 at0004 = ╱9e10╱ PROC ╱ // 0xf91 @0x4
0x0f8d…0fa0 at0006 = ╱53╱S╱ // 0xf93 @0x6
0x0f8d…0fa0 at0007 = ╱4c╱L╱ // 0xf94 @0x7
0x0f8d…0fa0 at0008 = ╱5f╱_╱ // 0xf95 @0x8
0x0f8d…0fa0 at0009 = ╱46╱F╱ // 0xf96 @0x9
0x0f8d…0fa0 at000a = ╱45╱E╱ // 0xf97 @0xa
0x0f8d…0fa0 at000b = ╱4a╱J╱ // 0xf98 @0xb
0x0f8d…0fa0 at000c = ╱4c╱L╱ // 0xf99 @0xc
0x0f8d…0fa0 at000d = ╱4c╱L╱ // 0xf9a @0xd
0x0f8d…0fa0 at000e = ╱49╱I╱ // 0xf9b @0xe
0x0f8d…0fa0 at000f = ╱4e╱N╱ // 0xf9c @0xf
0x0f8d…0fa0 at0010 = ╱49╱I╱ // 0xf9d @0x10
0x0f8d…0fa0 at0011 = ╱45╱E╱ // 0xf9e @0x11
0x0f8d…0fa0 at0012 = EOL // 0xf9f @0x12
0x0f8d…0fa0 }
0x0fa0…0fad a59b 01510 LET OK := TRUE
0x0fa0…0fad LineComal80 {
0x0fa0…0fad ptr = 0xa59b // 0xfa0 @0x0
0x0fa0…0fad lno = 0x05e6 // 0xfa2 @0x2
0x0fa0…0fad at0004 = ╱86╱ LET ╱ // 0xfa4 @0x4
0x0fa0…0fad at0005 = ╱4f╱O╱ // 0xfa5 @0x5
0x0fa0…0fad at0006 = ╱4b╱K╱ // 0xfa6 @0x6
0x0fa0…0fad at0007 = ╱f0╱ := ╱ // 0xfa7 @0x7
0x0fa0…0fad at0008 = ╱54╱T╱ // 0xfa8 @0x8
0x0fa0…0fad at0009 = ╱52╱R╱ // 0xfa9 @0x9
0x0fa0…0fad at000a = ╱55╱U╱ // 0xfaa @0xa
0x0fa0…0fad at000b = ╱45╱E╱ // 0xfab @0xb
0x0fa0…0fad at000c = EOL // 0xfac @0xc
0x0fa0…0fad }
0x0fad…0fc1 a5af 01520 PRINT "<C0102>" ; SPC $
0x0fad…0fc1 LineComal80 {
0x0fad…0fc1 ptr = 0xa5af // 0xfad @0x0
0x0fad…0fc1 lno = 0x05f0 // 0xfaf @0x2
0x0fad…0fc1 at0004 = ╱92╱ PRINT ╱ // 0xfb1 @0x4
0x0fad…0fc1 at0005 = ╱22╱"╱ // 0xfb2 @0x5
0x0fad…0fc1 at0006 = ╱3c╱<╱ // 0xfb3 @0x6
0x0fad…0fc1 at0007 = ╱43╱C╱ // 0xfb4 @0x7
0x0fad…0fc1 at0008 = ╱30╱0╱ // 0xfb5 @0x8
0x0fad…0fc1 at0009 = ╱31╱1╱ // 0xfb6 @0x9
0x0fad…0fc1 at000a = ╱30╱0╱ // 0xfb7 @0xa
0x0fad…0fc1 at000b = ╱32╱2╱ // 0xfb8 @0xb
0x0fad…0fc1 at000c = ╱3e╱>╱ // 0xfb9 @0xc
0x0fad…0fc1 at000d = ╱22╱"╱ // 0xfba @0xd
0x0fad…0fc1 at000e = ╱ea╱ ; ╱ // 0xfbb @0xe
0x0fad…0fc1 at000f = ╱53╱S╱ // 0xfbc @0xf
0x0fad…0fc1 at0010 = ╱50╱P╱ // 0xfbd @0x10
0x0fad…0fc1 at0011 = ╱43╱C╱ // 0xfbe @0x11
0x0fad…0fc1 at0012 = ╱ef╱ $ ╱ // 0xfbf @0x12
0x0fad…0fc1 at0013 = EOL // 0xfc0 @0x13
0x0fad…0fc1 }
0x0fc1…0fd3 a5c1 01530 ENDPROC SL_FEJLLINIE
0x0fc1…0fd3 LineComal80 {
0x0fc1…0fd3 ptr = 0xa5c1 // 0xfc1 @0x0
0x0fc1…0fd3 lno = 0x05fa // 0xfc3 @0x2
0x0fc1…0fd3 at0004 = ╱9f╱ ENDPROC ╱ // 0xfc5 @0x4
0x0fc1…0fd3 at0005 = ╱53╱S╱ // 0xfc6 @0x5
0x0fc1…0fd3 at0006 = ╱4c╱L╱ // 0xfc7 @0x6
0x0fc1…0fd3 at0007 = ╱5f╱_╱ // 0xfc8 @0x7
0x0fc1…0fd3 at0008 = ╱46╱F╱ // 0xfc9 @0x8
0x0fc1…0fd3 at0009 = ╱45╱E╱ // 0xfca @0x9
0x0fc1…0fd3 at000a = ╱4a╱J╱ // 0xfcb @0xa
0x0fc1…0fd3 at000b = ╱4c╱L╱ // 0xfcc @0xb
0x0fc1…0fd3 at000c = ╱4c╱L╱ // 0xfcd @0xc
0x0fc1…0fd3 at000d = ╱49╱I╱ // 0xfce @0xd
0x0fc1…0fd3 at000e = ╱4e╱N╱ // 0xfcf @0xe
0x0fc1…0fd3 at000f = ╱49╱I╱ // 0xfd0 @0xf
0x0fc1…0fd3 at0010 = ╱45╱E╱ // 0xfd1 @0x10
0x0fc1…0fd3 at0011 = EOL // 0xfd2 @0x11
0x0fc1…0fd3 }
0x0fd3…0fd8 a5c6 01540
0x0fd3…0fd8 LineComal80 {
0x0fd3…0fd8 ptr = 0xa5c6 // 0xfd3 @0x0
0x0fd3…0fd8 lno = 0x0604 // 0xfd5 @0x2
0x0fd3…0fd8 at0004 = EOL // 0xfd7 @0x4
0x0fd3…0fd8 }
0x0fd8…0fe8 a5d6 01550 PROC FEJL ( ST $ )
0x0fd8…0fe8 LineComal80 {
0x0fd8…0fe8 ptr = 0xa5d6 // 0xfd8 @0x0
0x0fd8…0fe8 lno = 0x060e // 0xfda @0x2
0x0fd8…0fe8 at0004 = ╱9e11╱ PROC ╱ // 0xfdc @0x4
0x0fd8…0fe8 at0006 = ╱46╱F╱ // 0xfde @0x6
0x0fd8…0fe8 at0007 = ╱45╱E╱ // 0xfdf @0x7
0x0fd8…0fe8 at0008 = ╱4a╱J╱ // 0xfe0 @0x8
0x0fd8…0fe8 at0009 = ╱4c╱L╱ // 0xfe1 @0x9
0x0fd8…0fe8 at000a = ╱ed╱ ( ╱ // 0xfe2 @0xa
0x0fd8…0fe8 at000b = ╱53╱S╱ // 0xfe3 @0xb
0x0fd8…0fe8 at000c = ╱54╱T╱ // 0xfe4 @0xc
0x0fd8…0fe8 at000d = ╱ef╱ $ ╱ // 0xfe5 @0xd
0x0fd8…0fe8 at000e = ╱ee╱ ) ╱ // 0xfe6 @0xe
0x0fd8…0fe8 at000f = EOL // 0xfe7 @0xf
0x0fd8…0fe8 }
0x0fe8…0ff6 a5e4 01560 LET OK := FALSE
0x0fe8…0ff6 LineComal80 {
0x0fe8…0ff6 ptr = 0xa5e4 // 0xfe8 @0x0
0x0fe8…0ff6 lno = 0x0618 // 0xfea @0x2
0x0fe8…0ff6 at0004 = ╱86╱ LET ╱ // 0xfec @0x4
0x0fe8…0ff6 at0005 = ╱4f╱O╱ // 0xfed @0x5
0x0fe8…0ff6 at0006 = ╱4b╱K╱ // 0xfee @0x6
0x0fe8…0ff6 at0007 = ╱f0╱ := ╱ // 0xfef @0x7
0x0fe8…0ff6 at0008 = ╱46╱F╱ // 0xff0 @0x8
0x0fe8…0ff6 at0009 = ╱41╱A╱ // 0xff1 @0x9
0x0fe8…0ff6 at000a = ╱4c╱L╱ // 0xff2 @0xa
0x0fe8…0ff6 at000b = ╱53╱S╱ // 0xff3 @0xb
0x0fe8…0ff6 at000c = ╱45╱E╱ // 0xff4 @0xc
0x0fe8…0ff6 at000d = EOL // 0xff5 @0xd
0x0fe8…0ff6 }
0x0ff6…1012 a600 01570 CURSOR 36 - ╱cb╱ ( ST $ ) / 2 , 2
0x0ff6…1012 LineComal80 {
0x0ff6…1012 ptr = 0xa600 // 0xff6 @0x0
0x0ff6…1012 lno = 0x0622 // 0xff8 @0x2
0x0ff6…1012 at0004 = ╱a1╱ CURSOR ╱ // 0xffa @0x4
0x0ff6…1012 at0005 = ╱33╱3╱ // 0xffb @0x5
0x0ff6…1012 at0006 = ╱36╱6╱ // 0xffc @0x6
0x0ff6…1012 at0007 = ╱f22400╱ // 0xffd @0x7
0x0ff6…1012 at000a = ╱e6╱ - ╱ // 0x1000 @0xa
0x0ff6…1012 at000b = ╱cb╱ // 0x1001 @0xb
0x0ff6…1012 at000c = ╱ed╱ ( ╱ // 0x1002 @0xc
0x0ff6…1012 at000d = ╱53╱S╱ // 0x1003 @0xd
0x0ff6…1012 at000e = ╱54╱T╱ // 0x1004 @0xe
0x0ff6…1012 at000f = ╱ef╱ $ ╱ // 0x1005 @0xf
0x0ff6…1012 at0010 = ╱ee╱ ) ╱ // 0x1006 @0x10
0x0ff6…1012 at0011 = ╱e8╱ / ╱ // 0x1007 @0x11
0x0ff6…1012 at0012 = ╱32╱2╱ // 0x1008 @0x12
0x0ff6…1012 at0013 = ╱f20200╱ // 0x1009 @0x13
0x0ff6…1012 at0016 = ╱ec╱ , ╱ // 0x100c @0x16
0x0ff6…1012 at0017 = ╱32╱2╱ // 0x100d @0x17
0x0ff6…1012 at0018 = ╱f20200╱ // 0x100e @0x18
0x0ff6…1012 at001b = EOL // 0x1011 @0x1b
0x0ff6…1012 }
0x1012…1031 a61f 01580 PRINT "***…" + ST $ + "…***" ; CHR$ ( 7 )
0x1012…1031 LineComal80 {
0x1012…1031 ptr = 0xa61f // 0x1012 @0x0
0x1012…1031 lno = 0x062c // 0x1014 @0x2
0x1012…1031 at0004 = ╱92╱ PRINT ╱ // 0x1016 @0x4
0x1012…1031 at0005 = ╱22╱"╱ // 0x1017 @0x5
0x1012…1031 at0006 = ╱2a╱*╱ // 0x1018 @0x6
0x1012…1031 at0007 = ╱2a╱*╱ // 0x1019 @0x7
0x1012…1031 at0008 = ╱2a╱*╱ // 0x101a @0x8
0x1012…1031 at0009 = ╱20╱…╱ // 0x101b @0x9
0x1012…1031 at000a = ╱22╱"╱ // 0x101c @0xa
0x1012…1031 at000b = ╱eb╱ + ╱ // 0x101d @0xb
0x1012…1031 at000c = ╱53╱S╱ // 0x101e @0xc
0x1012…1031 at000d = ╱54╱T╱ // 0x101f @0xd
0x1012…1031 at000e = ╱ef╱ $ ╱ // 0x1020 @0xe
0x1012…1031 at000f = ╱eb╱ + ╱ // 0x1021 @0xf
0x1012…1031 at0010 = ╱22╱"╱ // 0x1022 @0x10
0x1012…1031 at0011 = ╱20╱…╱ // 0x1023 @0x11
0x1012…1031 at0012 = ╱2a╱*╱ // 0x1024 @0x12
0x1012…1031 at0013 = ╱2a╱*╱ // 0x1025 @0x13
0x1012…1031 at0014 = ╱2a╱*╱ // 0x1026 @0x14
0x1012…1031 at0015 = ╱22╱"╱ // 0x1027 @0x15
0x1012…1031 at0016 = ╱ea╱ ; ╱ // 0x1028 @0x16
0x1012…1031 at0017 = ╱d0╱ CHR$ ╱ // 0x1029 @0x17
0x1012…1031 at0018 = ╱ed╱ ( ╱ // 0x102a @0x18
0x1012…1031 at0019 = ╱37╱7╱ // 0x102b @0x19
0x1012…1031 at001a = ╱f20700╱ // 0x102c @0x1a
0x1012…1031 at001d = ╱ee╱ ) ╱ // 0x102f @0x1d
0x1012…1031 at001e = EOL // 0x1030 @0x1e
0x1012…1031 }
0x1031…103b a629 01590 ENDPROC FEJL
0x1031…103b LineComal80 {
0x1031…103b ptr = 0xa629 // 0x1031 @0x0
0x1031…103b lno = 0x0636 // 0x1033 @0x2
0x1031…103b at0004 = ╱9f╱ ENDPROC ╱ // 0x1035 @0x4
0x1031…103b at0005 = ╱46╱F╱ // 0x1036 @0x5
0x1031…103b at0006 = ╱45╱E╱ // 0x1037 @0x6
0x1031…103b at0007 = ╱4a╱J╱ // 0x1038 @0x7
0x1031…103b at0008 = ╱4c╱L╱ // 0x1039 @0x8
0x1031…103b at0009 = EOL // 0x103a @0x9
0x1031…103b }
0x103b…1040 a62e 01600
0x103b…1040 LineComal80 {
0x103b…1040 ptr = 0xa62e // 0x103b @0x0
0x103b…1040 lno = 0x0640 // 0x103d @0x2
0x103b…1040 at0004 = EOL // 0x103f @0x4
0x103b…1040 }
0x1040…1053 a641 01610 PROC L[S_KONTO ( P )
0x1040…1053 LineComal80 {
0x1040…1053 ptr = 0xa641 // 0x1040 @0x0
0x1040…1053 lno = 0x064a // 0x1042 @0x2
0x1040…1053 at0004 = ╱9e12╱ PROC ╱ // 0x1044 @0x4
0x1040…1053 at0006 = ╱4c╱L╱ // 0x1046 @0x6
0x1040…1053 at0007 = ╱5b╱[╱ // 0x1047 @0x7
0x1040…1053 at0008 = ╱53╱S╱ // 0x1048 @0x8
0x1040…1053 at0009 = ╱5f╱_╱ // 0x1049 @0x9
0x1040…1053 at000a = ╱4b╱K╱ // 0x104a @0xa
0x1040…1053 at000b = ╱4f╱O╱ // 0x104b @0xb
0x1040…1053 at000c = ╱4e╱N╱ // 0x104c @0xc
0x1040…1053 at000d = ╱54╱T╱ // 0x104d @0xd
0x1040…1053 at000e = ╱4f╱O╱ // 0x104e @0xe
0x1040…1053 at000f = ╱ed╱ ( ╱ // 0x104f @0xf
0x1040…1053 at0010 = ╱50╱P╱ // 0x1050 @0x10
0x1040…1053 at0011 = ╱ee╱ ) ╱ // 0x1051 @0x11
0x1040…1053 at0012 = EOL // 0x1052 @0x12
0x1040…1053 }
0x1053…1098 a686 01620 GET KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
0x1053…1098 LineComal80 {
0x1053…1098 ptr = 0xa686 // 0x1053 @0x0
0x1053…1098 lno = 0x0654 // 0x1055 @0x2
0x1053…1098 at0004 = ╱a9╱ GET ╱ // 0x1057 @0x4
0x1053…1098 at0005 = ╱4b╱K╱ // 0x1058 @0x5
0x1053…1098 at0006 = ╱4f╱O╱ // 0x1059 @0x6
0x1053…1098 at0007 = ╱4e╱N╱ // 0x105a @0x7
0x1053…1098 at0008 = ╱54╱T╱ // 0x105b @0x8
0x1053…1098 at0009 = ╱4f╱O╱ // 0x105c @0x9
0x1053…1098 at000a = ╱ef╱ $ ╱ // 0x105d @0xa
0x1053…1098 at000b = ╱ec╱ , ╱ // 0x105e @0xb
0x1053…1098 at000c = ╱50╱P╱ // 0x105f @0xc
0x1053…1098 at000d = ╱f1╱ : ╱ // 0x1060 @0xd
0x1053…1098 at000e = ╱4b╱K╱ // 0x1061 @0xe
0x1053…1098 at000f = ╱54╱T╱ // 0x1062 @0xf
0x1053…1098 at0010 = ╱4f╱O╱ // 0x1063 @0x10
0x1053…1098 at0011 = ╱5f╱_╱ // 0x1064 @0x11
0x1053…1098 at0012 = ╱54╱T╱ // 0x1065 @0x12
0x1053…1098 at0013 = ╱59╱Y╱ // 0x1066 @0x13
0x1053…1098 at0014 = ╱50╱P╱ // 0x1067 @0x14
0x1053…1098 at0015 = ╱45╱E╱ // 0x1068 @0x15
0x1053…1098 at0016 = ╱ef╱ $ ╱ // 0x1069 @0x16
0x1053…1098 at0017 = ╱ec╱ , ╱ // 0x106a @0x17
0x1053…1098 at0018 = ╱4b╱K╱ // 0x106b @0x18
0x1053…1098 at0019 = ╱54╱T╱ // 0x106c @0x19
0x1053…1098 at001a = ╱4f╱O╱ // 0x106d @0x1a
0x1053…1098 at001b = ╱5f╱_╱ // 0x106e @0x1b
0x1053…1098 at001c = ╱4e╱N╱ // 0x106f @0x1c
0x1053…1098 at001d = ╱41╱A╱ // 0x1070 @0x1d
0x1053…1098 at001e = ╱56╱V╱ // 0x1071 @0x1e
0x1053…1098 at001f = ╱4e╱N╱ // 0x1072 @0x1f
0x1053…1098 at0020 = ╱ef╱ $ ╱ // 0x1073 @0x20
0x1053…1098 at0021 = ╱ec╱ , ╱ // 0x1074 @0x21
0x1053…1098 at0022 = ╱4b╱K╱ // 0x1075 @0x22
0x1053…1098 at0023 = ╱54╱T╱ // 0x1076 @0x23
0x1053…1098 at0024 = ╱4f╱O╱ // 0x1077 @0x24
0x1053…1098 at0025 = ╱5f╱_╱ // 0x1078 @0x25
0x1053…1098 at0026 = ╱50╱P╱ // 0x1079 @0x26
0x1053…1098 at0027 = ╱52╱R╱ // 0x107a @0x27
0x1053…1098 at0028 = ╱49╱I╱ // 0x107b @0x28
0x1053…1098 at0029 = ╱4d╱M╱ // 0x107c @0x29
0x1053…1098 at002a = ╱4f╱O╱ // 0x107d @0x2a
0x1053…1098 at002b = ╱ec╱ , ╱ // 0x107e @0x2b
0x1053…1098 at002c = ╱4b╱K╱ // 0x107f @0x2c
0x1053…1098 at002d = ╱54╱T╱ // 0x1080 @0x2d
0x1053…1098 at002e = ╱4f╱O╱ // 0x1081 @0x2e
0x1053…1098 at002f = ╱5f╱_╱ // 0x1082 @0x2f
0x1053…1098 at0030 = ╱55╱U╱ // 0x1083 @0x30
0x1053…1098 at0031 = ╱4c╱L╱ // 0x1084 @0x31
0x1053…1098 at0032 = ╱54╱T╱ // 0x1085 @0x32
0x1053…1098 at0033 = ╱49╱I╱ // 0x1086 @0x33
0x1053…1098 at0034 = ╱4d╱M╱ // 0x1087 @0x34
0x1053…1098 at0035 = ╱4f╱O╱ // 0x1088 @0x35
0x1053…1098 at0036 = ╱ec╱ , ╱ // 0x1089 @0x36
0x1053…1098 at0037 = ╱4b╱K╱ // 0x108a @0x37
0x1053…1098 at0038 = ╱54╱T╱ // 0x108b @0x38
0x1053…1098 at0039 = ╱4f╱O╱ // 0x108c @0x39
0x1053…1098 at003a = ╱5f╱_╱ // 0x108d @0x3a
0x1053…1098 at003b = ╱46╱F╱ // 0x108e @0x3b
0x1053…1098 at003c = ╱50╱P╱ // 0x108f @0x3c
0x1053…1098 at003d = ╱ec╱ , ╱ // 0x1090 @0x3d
0x1053…1098 at003e = ╱4b╱K╱ // 0x1091 @0x3e
0x1053…1098 at003f = ╱54╱T╱ // 0x1092 @0x3f
0x1053…1098 at0040 = ╱4f╱O╱ // 0x1093 @0x40
0x1053…1098 at0041 = ╱5f╱_╱ // 0x1094 @0x41
0x1053…1098 at0042 = ╱53╱S╱ // 0x1095 @0x42
0x1053…1098 at0043 = ╱50╱P╱ // 0x1096 @0x43
0x1053…1098 at0044 = EOL // 0x1097 @0x44
0x1053…1098 }
0x1098…10a7 a695 01630 ENDPROC L[S_KONTO
0x1098…10a7 LineComal80 {
0x1098…10a7 ptr = 0xa695 // 0x1098 @0x0
0x1098…10a7 lno = 0x065e // 0x109a @0x2
0x1098…10a7 at0004 = ╱9f╱ ENDPROC ╱ // 0x109c @0x4
0x1098…10a7 at0005 = ╱4c╱L╱ // 0x109d @0x5
0x1098…10a7 at0006 = ╱5b╱[╱ // 0x109e @0x6
0x1098…10a7 at0007 = ╱53╱S╱ // 0x109f @0x7
0x1098…10a7 at0008 = ╱5f╱_╱ // 0x10a0 @0x8
0x1098…10a7 at0009 = ╱4b╱K╱ // 0x10a1 @0x9
0x1098…10a7 at000a = ╱4f╱O╱ // 0x10a2 @0xa
0x1098…10a7 at000b = ╱4e╱N╱ // 0x10a3 @0xb
0x1098…10a7 at000c = ╱54╱T╱ // 0x10a4 @0xc
0x1098…10a7 at000d = ╱4f╱O╱ // 0x10a5 @0xd
0x1098…10a7 at000e = EOL // 0x10a6 @0xe
0x1098…10a7 }
0x10a7…10ac a69a 01640
0x10a7…10ac LineComal80 {
0x10a7…10ac ptr = 0xa69a // 0x10a7 @0x0
0x10a7…10ac lno = 0x0668 // 0x10a9 @0x2
0x10a7…10ac at0004 = EOL // 0x10ab @0x4
0x10a7…10ac }
0x10ac…10c1 a6af 01650 PROC SKRIV_KONTO ( P )
0x10ac…10c1 LineComal80 {
0x10ac…10c1 ptr = 0xa6af // 0x10ac @0x0
0x10ac…10c1 lno = 0x0672 // 0x10ae @0x2
0x10ac…10c1 at0004 = ╱9e13╱ PROC ╱ // 0x10b0 @0x4
0x10ac…10c1 at0006 = ╱53╱S╱ // 0x10b2 @0x6
0x10ac…10c1 at0007 = ╱4b╱K╱ // 0x10b3 @0x7
0x10ac…10c1 at0008 = ╱52╱R╱ // 0x10b4 @0x8
0x10ac…10c1 at0009 = ╱49╱I╱ // 0x10b5 @0x9
0x10ac…10c1 at000a = ╱56╱V╱ // 0x10b6 @0xa
0x10ac…10c1 at000b = ╱5f╱_╱ // 0x10b7 @0xb
0x10ac…10c1 at000c = ╱4b╱K╱ // 0x10b8 @0xc
0x10ac…10c1 at000d = ╱4f╱O╱ // 0x10b9 @0xd
0x10ac…10c1 at000e = ╱4e╱N╱ // 0x10ba @0xe
0x10ac…10c1 at000f = ╱54╱T╱ // 0x10bb @0xf
0x10ac…10c1 at0010 = ╱4f╱O╱ // 0x10bc @0x10
0x10ac…10c1 at0011 = ╱ed╱ ( ╱ // 0x10bd @0x11
0x10ac…10c1 at0012 = ╱50╱P╱ // 0x10be @0x12
0x10ac…10c1 at0013 = ╱ee╱ ) ╱ // 0x10bf @0x13
0x10ac…10c1 at0014 = EOL // 0x10c0 @0x14
0x10ac…10c1 }
0x10c1…1106 a6f4 01660 PUT KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
0x10c1…1106 LineComal80 {
0x10c1…1106 ptr = 0xa6f4 // 0x10c1 @0x0
0x10c1…1106 lno = 0x067c // 0x10c3 @0x2
0x10c1…1106 at0004 = ╱aa╱ PUT ╱ // 0x10c5 @0x4
0x10c1…1106 at0005 = ╱4b╱K╱ // 0x10c6 @0x5
0x10c1…1106 at0006 = ╱4f╱O╱ // 0x10c7 @0x6
0x10c1…1106 at0007 = ╱4e╱N╱ // 0x10c8 @0x7
0x10c1…1106 at0008 = ╱54╱T╱ // 0x10c9 @0x8
0x10c1…1106 at0009 = ╱4f╱O╱ // 0x10ca @0x9
0x10c1…1106 at000a = ╱ef╱ $ ╱ // 0x10cb @0xa
0x10c1…1106 at000b = ╱ec╱ , ╱ // 0x10cc @0xb
0x10c1…1106 at000c = ╱50╱P╱ // 0x10cd @0xc
0x10c1…1106 at000d = ╱f1╱ : ╱ // 0x10ce @0xd
0x10c1…1106 at000e = ╱4b╱K╱ // 0x10cf @0xe
0x10c1…1106 at000f = ╱54╱T╱ // 0x10d0 @0xf
0x10c1…1106 at0010 = ╱4f╱O╱ // 0x10d1 @0x10
0x10c1…1106 at0011 = ╱5f╱_╱ // 0x10d2 @0x11
0x10c1…1106 at0012 = ╱54╱T╱ // 0x10d3 @0x12
0x10c1…1106 at0013 = ╱59╱Y╱ // 0x10d4 @0x13
0x10c1…1106 at0014 = ╱50╱P╱ // 0x10d5 @0x14
0x10c1…1106 at0015 = ╱45╱E╱ // 0x10d6 @0x15
0x10c1…1106 at0016 = ╱ef╱ $ ╱ // 0x10d7 @0x16
0x10c1…1106 at0017 = ╱ec╱ , ╱ // 0x10d8 @0x17
0x10c1…1106 at0018 = ╱4b╱K╱ // 0x10d9 @0x18
0x10c1…1106 at0019 = ╱54╱T╱ // 0x10da @0x19
0x10c1…1106 at001a = ╱4f╱O╱ // 0x10db @0x1a
0x10c1…1106 at001b = ╱5f╱_╱ // 0x10dc @0x1b
0x10c1…1106 at001c = ╱4e╱N╱ // 0x10dd @0x1c
0x10c1…1106 at001d = ╱41╱A╱ // 0x10de @0x1d
0x10c1…1106 at001e = ╱56╱V╱ // 0x10df @0x1e
0x10c1…1106 at001f = ╱4e╱N╱ // 0x10e0 @0x1f
0x10c1…1106 at0020 = ╱ef╱ $ ╱ // 0x10e1 @0x20
0x10c1…1106 at0021 = ╱ec╱ , ╱ // 0x10e2 @0x21
0x10c1…1106 at0022 = ╱4b╱K╱ // 0x10e3 @0x22
0x10c1…1106 at0023 = ╱54╱T╱ // 0x10e4 @0x23
0x10c1…1106 at0024 = ╱4f╱O╱ // 0x10e5 @0x24
0x10c1…1106 at0025 = ╱5f╱_╱ // 0x10e6 @0x25
0x10c1…1106 at0026 = ╱50╱P╱ // 0x10e7 @0x26
0x10c1…1106 at0027 = ╱52╱R╱ // 0x10e8 @0x27
0x10c1…1106 at0028 = ╱49╱I╱ // 0x10e9 @0x28
0x10c1…1106 at0029 = ╱4d╱M╱ // 0x10ea @0x29
0x10c1…1106 at002a = ╱4f╱O╱ // 0x10eb @0x2a
0x10c1…1106 at002b = ╱ec╱ , ╱ // 0x10ec @0x2b
0x10c1…1106 at002c = ╱4b╱K╱ // 0x10ed @0x2c
0x10c1…1106 at002d = ╱54╱T╱ // 0x10ee @0x2d
0x10c1…1106 at002e = ╱4f╱O╱ // 0x10ef @0x2e
0x10c1…1106 at002f = ╱5f╱_╱ // 0x10f0 @0x2f
0x10c1…1106 at0030 = ╱55╱U╱ // 0x10f1 @0x30
0x10c1…1106 at0031 = ╱4c╱L╱ // 0x10f2 @0x31
0x10c1…1106 at0032 = ╱54╱T╱ // 0x10f3 @0x32
0x10c1…1106 at0033 = ╱49╱I╱ // 0x10f4 @0x33
0x10c1…1106 at0034 = ╱4d╱M╱ // 0x10f5 @0x34
0x10c1…1106 at0035 = ╱4f╱O╱ // 0x10f6 @0x35
0x10c1…1106 at0036 = ╱ec╱ , ╱ // 0x10f7 @0x36
0x10c1…1106 at0037 = ╱4b╱K╱ // 0x10f8 @0x37
0x10c1…1106 at0038 = ╱54╱T╱ // 0x10f9 @0x38
0x10c1…1106 at0039 = ╱4f╱O╱ // 0x10fa @0x39
0x10c1…1106 at003a = ╱5f╱_╱ // 0x10fb @0x3a
0x10c1…1106 at003b = ╱46╱F╱ // 0x10fc @0x3b
0x10c1…1106 at003c = ╱50╱P╱ // 0x10fd @0x3c
0x10c1…1106 at003d = ╱ec╱ , ╱ // 0x10fe @0x3d
0x10c1…1106 at003e = ╱4b╱K╱ // 0x10ff @0x3e
0x10c1…1106 at003f = ╱54╱T╱ // 0x1100 @0x3f
0x10c1…1106 at0040 = ╱4f╱O╱ // 0x1101 @0x40
0x10c1…1106 at0041 = ╱5f╱_╱ // 0x1102 @0x41
0x10c1…1106 at0042 = ╱53╱S╱ // 0x1103 @0x42
0x10c1…1106 at0043 = ╱50╱P╱ // 0x1104 @0x43
0x10c1…1106 at0044 = EOL // 0x1105 @0x44
0x10c1…1106 }
0x1106…1117 a705 01670 ENDPROC SKRIV_KONTO
0x1106…1117 LineComal80 {
0x1106…1117 ptr = 0xa705 // 0x1106 @0x0
0x1106…1117 lno = 0x0686 // 0x1108 @0x2
0x1106…1117 at0004 = ╱9f╱ ENDPROC ╱ // 0x110a @0x4
0x1106…1117 at0005 = ╱53╱S╱ // 0x110b @0x5
0x1106…1117 at0006 = ╱4b╱K╱ // 0x110c @0x6
0x1106…1117 at0007 = ╱52╱R╱ // 0x110d @0x7
0x1106…1117 at0008 = ╱49╱I╱ // 0x110e @0x8
0x1106…1117 at0009 = ╱56╱V╱ // 0x110f @0x9
0x1106…1117 at000a = ╱5f╱_╱ // 0x1110 @0xa
0x1106…1117 at000b = ╱4b╱K╱ // 0x1111 @0xb
0x1106…1117 at000c = ╱4f╱O╱ // 0x1112 @0xc
0x1106…1117 at000d = ╱4e╱N╱ // 0x1113 @0xd
0x1106…1117 at000e = ╱54╱T╱ // 0x1114 @0xe
0x1106…1117 at000f = ╱4f╱O╱ // 0x1115 @0xf
0x1106…1117 at0010 = EOL // 0x1116 @0x10
0x1106…1117 }
0x1117…111c a70a 01680
0x1117…111c LineComal80 {
0x1117…111c ptr = 0xa70a // 0x1117 @0x0
0x1117…111c lno = 0x0690 // 0x1119 @0x2
0x1117…111c at0004 = EOL // 0x111b @0x4
0x1117…111c }
0x111c…112f a71d 01690 PROC L[S_TRANS ( P )
0x111c…112f LineComal80 {
0x111c…112f ptr = 0xa71d // 0x111c @0x0
0x111c…112f lno = 0x069a // 0x111e @0x2
0x111c…112f at0004 = ╱9e14╱ PROC ╱ // 0x1120 @0x4
0x111c…112f at0006 = ╱4c╱L╱ // 0x1122 @0x6
0x111c…112f at0007 = ╱5b╱[╱ // 0x1123 @0x7
0x111c…112f at0008 = ╱53╱S╱ // 0x1124 @0x8
0x111c…112f at0009 = ╱5f╱_╱ // 0x1125 @0x9
0x111c…112f at000a = ╱54╱T╱ // 0x1126 @0xa
0x111c…112f at000b = ╱52╱R╱ // 0x1127 @0xb
0x111c…112f at000c = ╱41╱A╱ // 0x1128 @0xc
0x111c…112f at000d = ╱4e╱N╱ // 0x1129 @0xd
0x111c…112f at000e = ╱53╱S╱ // 0x112a @0xe
0x111c…112f at000f = ╱ed╱ ( ╱ // 0x112b @0xf
0x111c…112f at0010 = ╱50╱P╱ // 0x112c @0x10
0x111c…112f at0011 = ╱ee╱ ) ╱ // 0x112d @0x11
0x111c…112f at0012 = EOL // 0x112e @0x12
0x111c…112f }
0x112f…1170 a75e 01700 GET TRANS $ , P : BKTONR $ , BDATO $ , BLGNR $ , BTXT $ , BMOMS , BBEL\B , DK , NTRANS
0x112f…1170 LineComal80 {
0x112f…1170 ptr = 0xa75e // 0x112f @0x0
0x112f…1170 lno = 0x06a4 // 0x1131 @0x2
0x112f…1170 at0004 = ╱a9╱ GET ╱ // 0x1133 @0x4
0x112f…1170 at0005 = ╱54╱T╱ // 0x1134 @0x5
0x112f…1170 at0006 = ╱52╱R╱ // 0x1135 @0x6
0x112f…1170 at0007 = ╱41╱A╱ // 0x1136 @0x7
0x112f…1170 at0008 = ╱4e╱N╱ // 0x1137 @0x8
0x112f…1170 at0009 = ╱53╱S╱ // 0x1138 @0x9
0x112f…1170 at000a = ╱ef╱ $ ╱ // 0x1139 @0xa
0x112f…1170 at000b = ╱ec╱ , ╱ // 0x113a @0xb
0x112f…1170 at000c = ╱50╱P╱ // 0x113b @0xc
0x112f…1170 at000d = ╱f1╱ : ╱ // 0x113c @0xd
0x112f…1170 at000e = ╱42╱B╱ // 0x113d @0xe
0x112f…1170 at000f = ╱4b╱K╱ // 0x113e @0xf
0x112f…1170 at0010 = ╱54╱T╱ // 0x113f @0x10
0x112f…1170 at0011 = ╱4f╱O╱ // 0x1140 @0x11
0x112f…1170 at0012 = ╱4e╱N╱ // 0x1141 @0x12
0x112f…1170 at0013 = ╱52╱R╱ // 0x1142 @0x13
0x112f…1170 at0014 = ╱ef╱ $ ╱ // 0x1143 @0x14
0x112f…1170 at0015 = ╱ec╱ , ╱ // 0x1144 @0x15
0x112f…1170 at0016 = ╱42╱B╱ // 0x1145 @0x16
0x112f…1170 at0017 = ╱44╱D╱ // 0x1146 @0x17
0x112f…1170 at0018 = ╱41╱A╱ // 0x1147 @0x18
0x112f…1170 at0019 = ╱54╱T╱ // 0x1148 @0x19
0x112f…1170 at001a = ╱4f╱O╱ // 0x1149 @0x1a
0x112f…1170 at001b = ╱ef╱ $ ╱ // 0x114a @0x1b
0x112f…1170 at001c = ╱ec╱ , ╱ // 0x114b @0x1c
0x112f…1170 at001d = ╱42╱B╱ // 0x114c @0x1d
0x112f…1170 at001e = ╱4c╱L╱ // 0x114d @0x1e
0x112f…1170 at001f = ╱47╱G╱ // 0x114e @0x1f
0x112f…1170 at0020 = ╱4e╱N╱ // 0x114f @0x20
0x112f…1170 at0021 = ╱52╱R╱ // 0x1150 @0x21
0x112f…1170 at0022 = ╱ef╱ $ ╱ // 0x1151 @0x22
0x112f…1170 at0023 = ╱ec╱ , ╱ // 0x1152 @0x23
0x112f…1170 at0024 = ╱42╱B╱ // 0x1153 @0x24
0x112f…1170 at0025 = ╱54╱T╱ // 0x1154 @0x25
0x112f…1170 at0026 = ╱58╱X╱ // 0x1155 @0x26
0x112f…1170 at0027 = ╱54╱T╱ // 0x1156 @0x27
0x112f…1170 at0028 = ╱ef╱ $ ╱ // 0x1157 @0x28
0x112f…1170 at0029 = ╱ec╱ , ╱ // 0x1158 @0x29
0x112f…1170 at002a = ╱42╱B╱ // 0x1159 @0x2a
0x112f…1170 at002b = ╱4d╱M╱ // 0x115a @0x2b
0x112f…1170 at002c = ╱4f╱O╱ // 0x115b @0x2c
0x112f…1170 at002d = ╱4d╱M╱ // 0x115c @0x2d
0x112f…1170 at002e = ╱53╱S╱ // 0x115d @0x2e
0x112f…1170 at002f = ╱ec╱ , ╱ // 0x115e @0x2f
0x112f…1170 at0030 = ╱42╱B╱ // 0x115f @0x30
0x112f…1170 at0031 = ╱42╱B╱ // 0x1160 @0x31
0x112f…1170 at0032 = ╱45╱E╱ // 0x1161 @0x32
0x112f…1170 at0033 = ╱4c╱L╱ // 0x1162 @0x33
0x112f…1170 at0034 = ╱5c╱\╱ // 0x1163 @0x34
0x112f…1170 at0035 = ╱42╱B╱ // 0x1164 @0x35
0x112f…1170 at0036 = ╱ec╱ , ╱ // 0x1165 @0x36
0x112f…1170 at0037 = ╱44╱D╱ // 0x1166 @0x37
0x112f…1170 at0038 = ╱4b╱K╱ // 0x1167 @0x38
0x112f…1170 at0039 = ╱ec╱ , ╱ // 0x1168 @0x39
0x112f…1170 at003a = ╱4e╱N╱ // 0x1169 @0x3a
0x112f…1170 at003b = ╱54╱T╱ // 0x116a @0x3b
0x112f…1170 at003c = ╱52╱R╱ // 0x116b @0x3c
0x112f…1170 at003d = ╱41╱A╱ // 0x116c @0x3d
0x112f…1170 at003e = ╱4e╱N╱ // 0x116d @0x3e
0x112f…1170 at003f = ╱53╱S╱ // 0x116e @0x3f
0x112f…1170 at0040 = EOL // 0x116f @0x40
0x112f…1170 }
0x1170…117f a76d 01710 ENDPROC L[S_TRANS
0x1170…117f LineComal80 {
0x1170…117f ptr = 0xa76d // 0x1170 @0x0
0x1170…117f lno = 0x06ae // 0x1172 @0x2
0x1170…117f at0004 = ╱9f╱ ENDPROC ╱ // 0x1174 @0x4
0x1170…117f at0005 = ╱4c╱L╱ // 0x1175 @0x5
0x1170…117f at0006 = ╱5b╱[╱ // 0x1176 @0x6
0x1170…117f at0007 = ╱53╱S╱ // 0x1177 @0x7
0x1170…117f at0008 = ╱5f╱_╱ // 0x1178 @0x8
0x1170…117f at0009 = ╱54╱T╱ // 0x1179 @0x9
0x1170…117f at000a = ╱52╱R╱ // 0x117a @0xa
0x1170…117f at000b = ╱41╱A╱ // 0x117b @0xb
0x1170…117f at000c = ╱4e╱N╱ // 0x117c @0xc
0x1170…117f at000d = ╱53╱S╱ // 0x117d @0xd
0x1170…117f at000e = EOL // 0x117e @0xe
0x1170…117f }
0x117f…1184 a772 01720
0x117f…1184 LineComal80 {
0x117f…1184 ptr = 0xa772 // 0x117f @0x0
0x117f…1184 lno = 0x06b8 // 0x1181 @0x2
0x117f…1184 at0004 = EOL // 0x1183 @0x4
0x117f…1184 }
0x1184…1199 a787 01730 PROC ST_BGST ( REF RST $ )
0x1184…1199 LineComal80 {
0x1184…1199 ptr = 0xa787 // 0x1184 @0x0
0x1184…1199 lno = 0x06c2 // 0x1186 @0x2
0x1184…1199 at0004 = ╱9e15╱ PROC ╱ // 0x1188 @0x4
0x1184…1199 at0006 = ╱53╱S╱ // 0x118a @0x6
0x1184…1199 at0007 = ╱54╱T╱ // 0x118b @0x7
0x1184…1199 at0008 = ╱5f╱_╱ // 0x118c @0x8
0x1184…1199 at0009 = ╱42╱B╱ // 0x118d @0x9
0x1184…1199 at000a = ╱47╱G╱ // 0x118e @0xa
0x1184…1199 at000b = ╱53╱S╱ // 0x118f @0xb
0x1184…1199 at000c = ╱54╱T╱ // 0x1190 @0xc
0x1184…1199 at000d = ╱ed╱ ( ╱ // 0x1191 @0xd
0x1184…1199 at000e = ╱b6╱ REF ╱ // 0x1192 @0xe
0x1184…1199 at000f = ╱52╱R╱ // 0x1193 @0xf
0x1184…1199 at0010 = ╱53╱S╱ // 0x1194 @0x10
0x1184…1199 at0011 = ╱54╱T╱ // 0x1195 @0x11
0x1184…1199 at0012 = ╱ef╱ $ ╱ // 0x1196 @0x12
0x1184…1199 at0013 = ╱ee╱ ) ╱ // 0x1197 @0x13
0x1184…1199 at0014 = EOL // 0x1198 @0x14
0x1184…1199 }
0x1199…11af a79d 01740 FOR I := 1 TO ( RST $ ) DO
0x1199…11af LineComal80 {
0x1199…11af ptr = 0xa79d // 0x1199 @0x0
0x1199…11af lno = 0x06cc // 0x119b @0x2
0x1199…11af at0004 = ╱8316╱ FOR ╱ // 0x119d @0x4
0x1199…11af at0006 = ╱49╱I╱ // 0x119f @0x6
0x1199…11af at0007 = ╱f0╱ := ╱ // 0x11a0 @0x7
0x1199…11af at0008 = ╱31╱1╱ // 0x11a1 @0x8
0x1199…11af at0009 = ╱f20100╱ // 0x11a2 @0x9
0x1199…11af at000c = ╱b7cb╱ TO ╱ // 0x11a5 @0xc
0x1199…11af at000e = ╱ed╱ ( ╱ // 0x11a7 @0xe
0x1199…11af at000f = ╱52╱R╱ // 0x11a8 @0xf
0x1199…11af at0010 = ╱53╱S╱ // 0x11a9 @0x10
0x1199…11af at0011 = ╱54╱T╱ // 0x11aa @0x11
0x1199…11af at0012 = ╱ef╱ $ ╱ // 0x11ab @0x12
0x1199…11af at0013 = ╱ee╱ ) ╱ // 0x11ac @0x13
0x1199…11af at0014 = ╱bb╱ DO ╱ // 0x11ad @0x14
0x1199…11af at0015 = EOL // 0x11ae @0x15
0x1199…11af }
0x11af…11ea a7d8 01750 IF RST $ ( I ) =< "}" AND RST $ ( I ) >= "a" THEN LET RST $ ( I ) := CHR$ ( ╱cc╱ ( RST $ ( I ) ) - 32 )
0x11af…11ea LineComal80 {
0x11af…11ea ptr = 0xa7d8 // 0x11af @0x0
0x11af…11ea lno = 0x06d6 // 0x11b1 @0x2
0x11af…11ea at0004 = ╱8200╱ IF ╱ // 0x11b3 @0x4
0x11af…11ea at0006 = ╱52╱R╱ // 0x11b5 @0x6
0x11af…11ea at0007 = ╱53╱S╱ // 0x11b6 @0x7
0x11af…11ea at0008 = ╱54╱T╱ // 0x11b7 @0x8
0x11af…11ea at0009 = ╱ef╱ $ ╱ // 0x11b8 @0x9
0x11af…11ea at000a = ╱ed╱ ( ╱ // 0x11b9 @0xa
0x11af…11ea at000b = ╱49╱I╱ // 0x11ba @0xb
0x11af…11ea at000c = ╱ee╱ ) ╱ // 0x11bb @0xc
0x11af…11ea at000d = ╱e2╱ =< ╱ // 0x11bc @0xd
0x11af…11ea at000e = ╱22╱"╱ // 0x11bd @0xe
0x11af…11ea at000f = ╱7d╱}╱ // 0x11be @0xf
0x11af…11ea at0010 = ╱22╱"╱ // 0x11bf @0x10
0x11af…11ea at0011 = ╱d9╱ AND ╱ // 0x11c0 @0x11
0x11af…11ea at0012 = ╱52╱R╱ // 0x11c1 @0x12
0x11af…11ea at0013 = ╱53╱S╱ // 0x11c2 @0x13
0x11af…11ea at0014 = ╱54╱T╱ // 0x11c3 @0x14
0x11af…11ea at0015 = ╱ef╱ $ ╱ // 0x11c4 @0x15
0x11af…11ea at0016 = ╱ed╱ ( ╱ // 0x11c5 @0x16
0x11af…11ea at0017 = ╱49╱I╱ // 0x11c6 @0x17
0x11af…11ea at0018 = ╱ee╱ ) ╱ // 0x11c7 @0x18
0x11af…11ea at0019 = ╱e3╱ >= ╱ // 0x11c8 @0x19
0x11af…11ea at001a = ╱22╱"╱ // 0x11c9 @0x1a
0x11af…11ea at001b = ╱61╱a╱ // 0x11ca @0x1b
0x11af…11ea at001c = ╱22╱"╱ // 0x11cb @0x1c
0x11af…11ea at001d = ╱b5╱ THEN ╱ // 0x11cc @0x1d
0x11af…11ea at001e = ╱86╱ LET ╱ // 0x11cd @0x1e
0x11af…11ea at001f = ╱52╱R╱ // 0x11ce @0x1f
0x11af…11ea at0020 = ╱53╱S╱ // 0x11cf @0x20
0x11af…11ea at0021 = ╱54╱T╱ // 0x11d0 @0x21
0x11af…11ea at0022 = ╱ef╱ $ ╱ // 0x11d1 @0x22
0x11af…11ea at0023 = ╱ed╱ ( ╱ // 0x11d2 @0x23
0x11af…11ea at0024 = ╱49╱I╱ // 0x11d3 @0x24
0x11af…11ea at0025 = ╱ee╱ ) ╱ // 0x11d4 @0x25
0x11af…11ea at0026 = ╱f0╱ := ╱ // 0x11d5 @0x26
0x11af…11ea at0027 = ╱d0╱ CHR$ ╱ // 0x11d6 @0x27
0x11af…11ea at0028 = ╱ed╱ ( ╱ // 0x11d7 @0x28
0x11af…11ea at0029 = ╱cc╱ // 0x11d8 @0x29
0x11af…11ea at002a = ╱ed╱ ( ╱ // 0x11d9 @0x2a
0x11af…11ea at002b = ╱52╱R╱ // 0x11da @0x2b
0x11af…11ea at002c = ╱53╱S╱ // 0x11db @0x2c
0x11af…11ea at002d = ╱54╱T╱ // 0x11dc @0x2d
0x11af…11ea at002e = ╱ef╱ $ ╱ // 0x11dd @0x2e
0x11af…11ea at002f = ╱ed╱ ( ╱ // 0x11de @0x2f
0x11af…11ea at0030 = ╱49╱I╱ // 0x11df @0x30
0x11af…11ea at0031 = ╱ee╱ ) ╱ // 0x11e0 @0x31
0x11af…11ea at0032 = ╱ee╱ ) ╱ // 0x11e1 @0x32
0x11af…11ea at0033 = ╱e6╱ - ╱ // 0x11e2 @0x33
0x11af…11ea at0034 = ╱33╱3╱ // 0x11e3 @0x34
0x11af…11ea at0035 = ╱32╱2╱ // 0x11e4 @0x35
0x11af…11ea at0036 = ╱f22000╱ // 0x11e5 @0x36
0x11af…11ea at0039 = ╱ee╱ ) ╱ // 0x11e8 @0x39
0x11af…11ea at003a = EOL // 0x11e9 @0x3a
0x11af…11ea }
0x11ea…11f1 a7df 01760 NEXT I
0x11ea…11f1 LineComal80 {
0x11ea…11f1 ptr = 0xa7df // 0x11ea @0x0
0x11ea…11f1 lno = 0x06e0 // 0x11ec @0x2
0x11ea…11f1 at0004 = ╱84╱ NEXT ╱ // 0x11ee @0x4
0x11ea…11f1 at0005 = ╱49╱I╱ // 0x11ef @0x5
0x11ea…11f1 at0006 = EOL // 0x11f0 @0x6
0x11ea…11f1 }
0x11f1…11fe a7ec 01770 ENDPROC ST_BGST
0x11f1…11fe LineComal80 {
0x11f1…11fe ptr = 0xa7ec // 0x11f1 @0x0
0x11f1…11fe lno = 0x06ea // 0x11f3 @0x2
0x11f1…11fe at0004 = ╱9f╱ ENDPROC ╱ // 0x11f5 @0x4
0x11f1…11fe at0005 = ╱53╱S╱ // 0x11f6 @0x5
0x11f1…11fe at0006 = ╱54╱T╱ // 0x11f7 @0x6
0x11f1…11fe at0007 = ╱5f╱_╱ // 0x11f8 @0x7
0x11f1…11fe at0008 = ╱42╱B╱ // 0x11f9 @0x8
0x11f1…11fe at0009 = ╱47╱G╱ // 0x11fa @0x9
0x11f1…11fe at000a = ╱53╱S╱ // 0x11fb @0xa
0x11f1…11fe at000b = ╱54╱T╱ // 0x11fc @0xb
0x11f1…11fe at000c = EOL // 0x11fd @0xc
0x11f1…11fe }
0x11fe…120d a7fb 01780 PROC FKT_MENU
0x11fe…120d LineComal80 {
0x11fe…120d ptr = 0xa7fb // 0x11fe @0x0
0x11fe…120d lno = 0x06f4 // 0x1200 @0x2
0x11fe…120d at0004 = ╱9e17╱ PROC ╱ // 0x1202 @0x4
0x11fe…120d at0006 = ╱46╱F╱ // 0x1204 @0x6
0x11fe…120d at0007 = ╱4b╱K╱ // 0x1205 @0x7
0x11fe…120d at0008 = ╱54╱T╱ // 0x1206 @0x8
0x11fe…120d at0009 = ╱5f╱_╱ // 0x1207 @0x9
0x11fe…120d at000a = ╱4d╱M╱ // 0x1208 @0xa
0x11fe…120d at000b = ╱45╱E╱ // 0x1209 @0xb
0x11fe…120d at000c = ╱4e╱N╱ // 0x120a @0xc
0x11fe…120d at000d = ╱55╱U╱ // 0x120b @0xd
0x11fe…120d at000e = EOL // 0x120c @0xe
0x11fe…120d }
0x120d…1214 a802 01790 REPEAT
0x120d…1214 LineComal80 {
0x120d…1214 ptr = 0xa802 // 0x120d @0x0
0x120d…1214 lno = 0x06fe // 0x120f @0x2
0x120d…1214 at0004 = ╱9718╱ REPEAT ╱ // 0x1211 @0x4
0x120d…1214 at0006 = EOL // 0x1213 @0x6
0x120d…1214 }
0x1214…1245 a833 01800 EXEC OVERSKRIFT ( "Udskrivning…af…kontokort" , 6 )
0x1214…1245 LineComal80 {
0x1214…1245 ptr = 0xa833 // 0x1214 @0x0
0x1214…1245 lno = 0x0708 // 0x1216 @0x2
0x1214…1245 at0004 = ╱9d╱ EXEC ╱ // 0x1218 @0x4
0x1214…1245 at0005 = ╱4f╱O╱ // 0x1219 @0x5
0x1214…1245 at0006 = ╱56╱V╱ // 0x121a @0x6
0x1214…1245 at0007 = ╱45╱E╱ // 0x121b @0x7
0x1214…1245 at0008 = ╱52╱R╱ // 0x121c @0x8
0x1214…1245 at0009 = ╱53╱S╱ // 0x121d @0x9
0x1214…1245 at000a = ╱4b╱K╱ // 0x121e @0xa
0x1214…1245 at000b = ╱52╱R╱ // 0x121f @0xb
0x1214…1245 at000c = ╱49╱I╱ // 0x1220 @0xc
0x1214…1245 at000d = ╱46╱F╱ // 0x1221 @0xd
0x1214…1245 at000e = ╱54╱T╱ // 0x1222 @0xe
0x1214…1245 at000f = ╱ed╱ ( ╱ // 0x1223 @0xf
0x1214…1245 at0010 = ╱22╱"╱ // 0x1224 @0x10
0x1214…1245 at0011 = ╱55╱U╱ // 0x1225 @0x11
0x1214…1245 at0012 = ╱64╱d╱ // 0x1226 @0x12
0x1214…1245 at0013 = ╱73╱s╱ // 0x1227 @0x13
0x1214…1245 at0014 = ╱6b╱k╱ // 0x1228 @0x14
0x1214…1245 at0015 = ╱72╱r╱ // 0x1229 @0x15
0x1214…1245 at0016 = ╱69╱i╱ // 0x122a @0x16
0x1214…1245 at0017 = ╱76╱v╱ // 0x122b @0x17
0x1214…1245 at0018 = ╱6e╱n╱ // 0x122c @0x18
0x1214…1245 at0019 = ╱69╱i╱ // 0x122d @0x19
0x1214…1245 at001a = ╱6e╱n╱ // 0x122e @0x1a
0x1214…1245 at001b = ╱67╱g╱ // 0x122f @0x1b
0x1214…1245 at001c = ╱20╱…╱ // 0x1230 @0x1c
0x1214…1245 at001d = ╱61╱a╱ // 0x1231 @0x1d
0x1214…1245 at001e = ╱66╱f╱ // 0x1232 @0x1e
0x1214…1245 at001f = ╱20╱…╱ // 0x1233 @0x1f
0x1214…1245 at0020 = ╱6b╱k╱ // 0x1234 @0x20
0x1214…1245 at0021 = ╱6f╱o╱ // 0x1235 @0x21
0x1214…1245 at0022 = ╱6e╱n╱ // 0x1236 @0x22
0x1214…1245 at0023 = ╱74╱t╱ // 0x1237 @0x23
0x1214…1245 at0024 = ╱6f╱o╱ // 0x1238 @0x24
0x1214…1245 at0025 = ╱6b╱k╱ // 0x1239 @0x25
0x1214…1245 at0026 = ╱6f╱o╱ // 0x123a @0x26
0x1214…1245 at0027 = ╱72╱r╱ // 0x123b @0x27
0x1214…1245 at0028 = ╱74╱t╱ // 0x123c @0x28
0x1214…1245 at0029 = ╱22╱"╱ // 0x123d @0x29
0x1214…1245 at002a = ╱ec╱ , ╱ // 0x123e @0x2a
0x1214…1245 at002b = ╱36╱6╱ // 0x123f @0x2b
0x1214…1245 at002c = ╱f20600╱ // 0x1240 @0x2c
0x1214…1245 at002f = ╱ee╱ ) ╱ // 0x1243 @0x2f
0x1214…1245 at0030 = EOL // 0x1244 @0x30
0x1214…1245 }
0x1245…1256 a844 01810 LET A_KTONR $ := ""
0x1245…1256 LineComal80 {
0x1245…1256 ptr = 0xa844 // 0x1245 @0x0
0x1245…1256 lno = 0x0712 // 0x1247 @0x2
0x1245…1256 at0004 = ╱86╱ LET ╱ // 0x1249 @0x4
0x1245…1256 at0005 = ╱41╱A╱ // 0x124a @0x5
0x1245…1256 at0006 = ╱5f╱_╱ // 0x124b @0x6
0x1245…1256 at0007 = ╱4b╱K╱ // 0x124c @0x7
0x1245…1256 at0008 = ╱54╱T╱ // 0x124d @0x8
0x1245…1256 at0009 = ╱4f╱O╱ // 0x124e @0x9
0x1245…1256 at000a = ╱4e╱N╱ // 0x124f @0xa
0x1245…1256 at000b = ╱52╱R╱ // 0x1250 @0xb
0x1245…1256 at000c = ╱ef╱ $ ╱ // 0x1251 @0xc
0x1245…1256 at000d = ╱f0╱ := ╱ // 0x1252 @0xd
0x1245…1256 at000e = ╱22╱"╱ // 0x1253 @0xe
0x1245…1256 at000f = ╱22╱"╱ // 0x1254 @0xf
0x1245…1256 at0010 = EOL // 0x1255 @0x10
0x1245…1256 }
0x1256…125d a84b 01820 REPEAT
0x1256…125d LineComal80 {
0x1256…125d ptr = 0xa84b // 0x1256 @0x0
0x1256…125d lno = 0x071c // 0x1258 @0x2
0x1256…125d at0004 = ╱9719╱ REPEAT ╱ // 0x125a @0x4
0x1256…125d at0006 = EOL // 0x125c @0x6
0x1256…125d }
0x125d…1282 a870 01830 EDIT "<C2810>Fra…kontonr:…" : A_KTONR $
0x125d…1282 LineComal80 {
0x125d…1282 ptr = 0xa870 // 0x125d @0x0
0x125d…1282 lno = 0x0726 // 0x125f @0x2
0x125d…1282 at0004 = ╱b1╱ EDIT ╱ // 0x1261 @0x4
0x125d…1282 at0005 = ╱22╱"╱ // 0x1262 @0x5
0x125d…1282 at0006 = ╱3c╱<╱ // 0x1263 @0x6
0x125d…1282 at0007 = ╱43╱C╱ // 0x1264 @0x7
0x125d…1282 at0008 = ╱32╱2╱ // 0x1265 @0x8
0x125d…1282 at0009 = ╱38╱8╱ // 0x1266 @0x9
0x125d…1282 at000a = ╱31╱1╱ // 0x1267 @0xa
0x125d…1282 at000b = ╱30╱0╱ // 0x1268 @0xb
0x125d…1282 at000c = ╱3e╱>╱ // 0x1269 @0xc
0x125d…1282 at000d = ╱46╱F╱ // 0x126a @0xd
0x125d…1282 at000e = ╱72╱r╱ // 0x126b @0xe
0x125d…1282 at000f = ╱61╱a╱ // 0x126c @0xf
0x125d…1282 at0010 = ╱20╱…╱ // 0x126d @0x10
0x125d…1282 at0011 = ╱6b╱k╱ // 0x126e @0x11
0x125d…1282 at0012 = ╱6f╱o╱ // 0x126f @0x12
0x125d…1282 at0013 = ╱6e╱n╱ // 0x1270 @0x13
0x125d…1282 at0014 = ╱74╱t╱ // 0x1271 @0x14
0x125d…1282 at0015 = ╱6f╱o╱ // 0x1272 @0x15
0x125d…1282 at0016 = ╱6e╱n╱ // 0x1273 @0x16
0x125d…1282 at0017 = ╱72╱r╱ // 0x1274 @0x17
0x125d…1282 at0018 = ╱3a╱:╱ // 0x1275 @0x18
0x125d…1282 at0019 = ╱20╱…╱ // 0x1276 @0x19
0x125d…1282 at001a = ╱22╱"╱ // 0x1277 @0x1a
0x125d…1282 at001b = ╱f1╱ : ╱ // 0x1278 @0x1b
0x125d…1282 at001c = ╱41╱A╱ // 0x1279 @0x1c
0x125d…1282 at001d = ╱5f╱_╱ // 0x127a @0x1d
0x125d…1282 at001e = ╱4b╱K╱ // 0x127b @0x1e
0x125d…1282 at001f = ╱54╱T╱ // 0x127c @0x1f
0x125d…1282 at0020 = ╱4f╱O╱ // 0x127d @0x20
0x125d…1282 at0021 = ╱4e╱N╱ // 0x127e @0x21
0x125d…1282 at0022 = ╱52╱R╱ // 0x127f @0x22
0x125d…1282 at0023 = ╱ef╱ $ ╱ // 0x1280 @0x23
0x125d…1282 at0024 = EOL // 0x1281 @0x24
0x125d…1282 }
0x1282…1294 a882 01840 EXEC SL_FEJLLINIE
0x1282…1294 LineComal80 {
0x1282…1294 ptr = 0xa882 // 0x1282 @0x0
0x1282…1294 lno = 0x0730 // 0x1284 @0x2
0x1282…1294 at0004 = ╱9d╱ EXEC ╱ // 0x1286 @0x4
0x1282…1294 at0005 = ╱53╱S╱ // 0x1287 @0x5
0x1282…1294 at0006 = ╱4c╱L╱ // 0x1288 @0x6
0x1282…1294 at0007 = ╱5f╱_╱ // 0x1289 @0x7
0x1282…1294 at0008 = ╱46╱F╱ // 0x128a @0x8
0x1282…1294 at0009 = ╱45╱E╱ // 0x128b @0x9
0x1282…1294 at000a = ╱4a╱J╱ // 0x128c @0xa
0x1282…1294 at000b = ╱4c╱L╱ // 0x128d @0xb
0x1282…1294 at000c = ╱4c╱L╱ // 0x128e @0xc
0x1282…1294 at000d = ╱49╱I╱ // 0x128f @0xd
0x1282…1294 at000e = ╱4e╱N╱ // 0x1290 @0xe
0x1282…1294 at000f = ╱49╱I╱ // 0x1291 @0xf
0x1282…1294 at0010 = ╱45╱E╱ // 0x1292 @0x10
0x1282…1294 at0011 = EOL // 0x1293 @0x11
0x1282…1294 }
0x1294…12b2 a8a0 01850 LET F_IDX := FIND_KTO ( A_KTONR $ )
0x1294…12b2 LineComal80 {
0x1294…12b2 ptr = 0xa8a0 // 0x1294 @0x0
0x1294…12b2 lno = 0x073a // 0x1296 @0x2
0x1294…12b2 at0004 = ╱86╱ LET ╱ // 0x1298 @0x4
0x1294…12b2 at0005 = ╱46╱F╱ // 0x1299 @0x5
0x1294…12b2 at0006 = ╱5f╱_╱ // 0x129a @0x6
0x1294…12b2 at0007 = ╱49╱I╱ // 0x129b @0x7
0x1294…12b2 at0008 = ╱44╱D╱ // 0x129c @0x8
0x1294…12b2 at0009 = ╱58╱X╱ // 0x129d @0x9
0x1294…12b2 at000a = ╱f0╱ := ╱ // 0x129e @0xa
0x1294…12b2 at000b = ╱46╱F╱ // 0x129f @0xb
0x1294…12b2 at000c = ╱49╱I╱ // 0x12a0 @0xc
0x1294…12b2 at000d = ╱4e╱N╱ // 0x12a1 @0xd
0x1294…12b2 at000e = ╱44╱D╱ // 0x12a2 @0xe
0x1294…12b2 at000f = ╱5f╱_╱ // 0x12a3 @0xf
0x1294…12b2 at0010 = ╱4b╱K╱ // 0x12a4 @0x10
0x1294…12b2 at0011 = ╱54╱T╱ // 0x12a5 @0x11
0x1294…12b2 at0012 = ╱4f╱O╱ // 0x12a6 @0x12
0x1294…12b2 at0013 = ╱ed╱ ( ╱ // 0x12a7 @0x13
0x1294…12b2 at0014 = ╱41╱A╱ // 0x12a8 @0x14
0x1294…12b2 at0015 = ╱5f╱_╱ // 0x12a9 @0x15
0x1294…12b2 at0016 = ╱4b╱K╱ // 0x12aa @0x16
0x1294…12b2 at0017 = ╱54╱T╱ // 0x12ab @0x17
0x1294…12b2 at0018 = ╱4f╱O╱ // 0x12ac @0x18
0x1294…12b2 at0019 = ╱4e╱N╱ // 0x12ad @0x19
0x1294…12b2 at001a = ╱52╱R╱ // 0x12ae @0x1a
0x1294…12b2 at001b = ╱ef╱ $ ╱ // 0x12af @0x1b
0x1294…12b2 at001c = ╱ee╱ ) ╱ // 0x12b0 @0x1c
0x1294…12b2 at001d = EOL // 0x12b1 @0x1d
0x1294…12b2 }
0x12b2…12d9 a8c7 01860 IF NOT OK THEN EXEC FEJL ( "Kontonr…findes…ikke" )
0x12b2…12d9 LineComal80 {
0x12b2…12d9 ptr = 0xa8c7 // 0x12b2 @0x0
0x12b2…12d9 lno = 0x0744 // 0x12b4 @0x2
0x12b2…12d9 at0004 = ╱8200╱ IF ╱ // 0x12b6 @0x4
0x12b2…12d9 at0006 = ╱d7╱ NOT ╱ // 0x12b8 @0x6
0x12b2…12d9 at0007 = ╱4f╱O╱ // 0x12b9 @0x7
0x12b2…12d9 at0008 = ╱4b╱K╱ // 0x12ba @0x8
0x12b2…12d9 at0009 = ╱b5╱ THEN ╱ // 0x12bb @0x9
0x12b2…12d9 at000a = ╱9d╱ EXEC ╱ // 0x12bc @0xa
0x12b2…12d9 at000b = ╱46╱F╱ // 0x12bd @0xb
0x12b2…12d9 at000c = ╱45╱E╱ // 0x12be @0xc
0x12b2…12d9 at000d = ╱4a╱J╱ // 0x12bf @0xd
0x12b2…12d9 at000e = ╱4c╱L╱ // 0x12c0 @0xe
0x12b2…12d9 at000f = ╱ed╱ ( ╱ // 0x12c1 @0xf
0x12b2…12d9 at0010 = ╱22╱"╱ // 0x12c2 @0x10
0x12b2…12d9 at0011 = ╱4b╱K╱ // 0x12c3 @0x11
0x12b2…12d9 at0012 = ╱6f╱o╱ // 0x12c4 @0x12
0x12b2…12d9 at0013 = ╱6e╱n╱ // 0x12c5 @0x13
0x12b2…12d9 at0014 = ╱74╱t╱ // 0x12c6 @0x14
0x12b2…12d9 at0015 = ╱6f╱o╱ // 0x12c7 @0x15
0x12b2…12d9 at0016 = ╱6e╱n╱ // 0x12c8 @0x16
0x12b2…12d9 at0017 = ╱72╱r╱ // 0x12c9 @0x17
0x12b2…12d9 at0018 = ╱20╱…╱ // 0x12ca @0x18
0x12b2…12d9 at0019 = ╱66╱f╱ // 0x12cb @0x19
0x12b2…12d9 at001a = ╱69╱i╱ // 0x12cc @0x1a
0x12b2…12d9 at001b = ╱6e╱n╱ // 0x12cd @0x1b
0x12b2…12d9 at001c = ╱64╱d╱ // 0x12ce @0x1c
0x12b2…12d9 at001d = ╱65╱e╱ // 0x12cf @0x1d
0x12b2…12d9 at001e = ╱73╱s╱ // 0x12d0 @0x1e
0x12b2…12d9 at001f = ╱20╱…╱ // 0x12d1 @0x1f
0x12b2…12d9 at0020 = ╱69╱i╱ // 0x12d2 @0x20
0x12b2…12d9 at0021 = ╱6b╱k╱ // 0x12d3 @0x21
0x12b2…12d9 at0022 = ╱6b╱k╱ // 0x12d4 @0x22
0x12b2…12d9 at0023 = ╱65╱e╱ // 0x12d5 @0x23
0x12b2…12d9 at0024 = ╱22╱"╱ // 0x12d6 @0x24
0x12b2…12d9 at0025 = ╱ee╱ ) ╱ // 0x12d7 @0x25
0x12b2…12d9 at0026 = EOL // 0x12d8 @0x26
0x12b2…12d9 }
0x12d9…12e1 a8cf 01870 UNTIL OK
0x12d9…12e1 LineComal80 {
0x12d9…12e1 ptr = 0xa8cf // 0x12d9 @0x0
0x12d9…12e1 lno = 0x074e // 0x12db @0x2
0x12d9…12e1 at0004 = ╱98╱ UNTIL ╱ // 0x12dd @0x4
0x12d9…12e1 at0005 = ╱4f╱O╱ // 0x12de @0x5
0x12d9…12e1 at0006 = ╱4b╱K╱ // 0x12df @0x6
0x12d9…12e1 at0007 = EOL // 0x12e0 @0x7
0x12d9…12e1 }
0x12e1…12f2 a8e0 01880 LET A_KTONR $ := ""
0x12e1…12f2 LineComal80 {
0x12e1…12f2 ptr = 0xa8e0 // 0x12e1 @0x0
0x12e1…12f2 lno = 0x0758 // 0x12e3 @0x2
0x12e1…12f2 at0004 = ╱86╱ LET ╱ // 0x12e5 @0x4
0x12e1…12f2 at0005 = ╱41╱A╱ // 0x12e6 @0x5
0x12e1…12f2 at0006 = ╱5f╱_╱ // 0x12e7 @0x6
0x12e1…12f2 at0007 = ╱4b╱K╱ // 0x12e8 @0x7
0x12e1…12f2 at0008 = ╱54╱T╱ // 0x12e9 @0x8
0x12e1…12f2 at0009 = ╱4f╱O╱ // 0x12ea @0x9
0x12e1…12f2 at000a = ╱4e╱N╱ // 0x12eb @0xa
0x12e1…12f2 at000b = ╱52╱R╱ // 0x12ec @0xb
0x12e1…12f2 at000c = ╱ef╱ $ ╱ // 0x12ed @0xc
0x12e1…12f2 at000d = ╱f0╱ := ╱ // 0x12ee @0xd
0x12e1…12f2 at000e = ╱22╱"╱ // 0x12ef @0xe
0x12e1…12f2 at000f = ╱22╱"╱ // 0x12f0 @0xf
0x12e1…12f2 at0010 = EOL // 0x12f1 @0x10
0x12e1…12f2 }
0x12f2…12f9 a8e7 01890 REPEAT
0x12f2…12f9 LineComal80 {
0x12f2…12f9 ptr = 0xa8e7 // 0x12f2 @0x0
0x12f2…12f9 lno = 0x0762 // 0x12f4 @0x2
0x12f2…12f9 at0004 = ╱971a╱ REPEAT ╱ // 0x12f6 @0x4
0x12f2…12f9 at0006 = EOL // 0x12f8 @0x6
0x12f2…12f9 }
0x12f9…131e a90c 01900 EDIT "<C2812>Til…kontonr:…" : A_KTONR $
0x12f9…131e LineComal80 {
0x12f9…131e ptr = 0xa90c // 0x12f9 @0x0
0x12f9…131e lno = 0x076c // 0x12fb @0x2
0x12f9…131e at0004 = ╱b1╱ EDIT ╱ // 0x12fd @0x4
0x12f9…131e at0005 = ╱22╱"╱ // 0x12fe @0x5
0x12f9…131e at0006 = ╱3c╱<╱ // 0x12ff @0x6
0x12f9…131e at0007 = ╱43╱C╱ // 0x1300 @0x7
0x12f9…131e at0008 = ╱32╱2╱ // 0x1301 @0x8
0x12f9…131e at0009 = ╱38╱8╱ // 0x1302 @0x9
0x12f9…131e at000a = ╱31╱1╱ // 0x1303 @0xa
0x12f9…131e at000b = ╱32╱2╱ // 0x1304 @0xb
0x12f9…131e at000c = ╱3e╱>╱ // 0x1305 @0xc
0x12f9…131e at000d = ╱54╱T╱ // 0x1306 @0xd
0x12f9…131e at000e = ╱69╱i╱ // 0x1307 @0xe
0x12f9…131e at000f = ╱6c╱l╱ // 0x1308 @0xf
0x12f9…131e at0010 = ╱20╱…╱ // 0x1309 @0x10
0x12f9…131e at0011 = ╱6b╱k╱ // 0x130a @0x11
0x12f9…131e at0012 = ╱6f╱o╱ // 0x130b @0x12
0x12f9…131e at0013 = ╱6e╱n╱ // 0x130c @0x13
0x12f9…131e at0014 = ╱74╱t╱ // 0x130d @0x14
0x12f9…131e at0015 = ╱6f╱o╱ // 0x130e @0x15
0x12f9…131e at0016 = ╱6e╱n╱ // 0x130f @0x16
0x12f9…131e at0017 = ╱72╱r╱ // 0x1310 @0x17
0x12f9…131e at0018 = ╱3a╱:╱ // 0x1311 @0x18
0x12f9…131e at0019 = ╱20╱…╱ // 0x1312 @0x19
0x12f9…131e at001a = ╱22╱"╱ // 0x1313 @0x1a
0x12f9…131e at001b = ╱f1╱ : ╱ // 0x1314 @0x1b
0x12f9…131e at001c = ╱41╱A╱ // 0x1315 @0x1c
0x12f9…131e at001d = ╱5f╱_╱ // 0x1316 @0x1d
0x12f9…131e at001e = ╱4b╱K╱ // 0x1317 @0x1e
0x12f9…131e at001f = ╱54╱T╱ // 0x1318 @0x1f
0x12f9…131e at0020 = ╱4f╱O╱ // 0x1319 @0x20
0x12f9…131e at0021 = ╱4e╱N╱ // 0x131a @0x21
0x12f9…131e at0022 = ╱52╱R╱ // 0x131b @0x22
0x12f9…131e at0023 = ╱ef╱ $ ╱ // 0x131c @0x23
0x12f9…131e at0024 = EOL // 0x131d @0x24
0x12f9…131e }
0x131e…1330 a91e 01910 EXEC SL_FEJLLINIE
0x131e…1330 LineComal80 {
0x131e…1330 ptr = 0xa91e // 0x131e @0x0
0x131e…1330 lno = 0x0776 // 0x1320 @0x2
0x131e…1330 at0004 = ╱9d╱ EXEC ╱ // 0x1322 @0x4
0x131e…1330 at0005 = ╱53╱S╱ // 0x1323 @0x5
0x131e…1330 at0006 = ╱4c╱L╱ // 0x1324 @0x6
0x131e…1330 at0007 = ╱5f╱_╱ // 0x1325 @0x7
0x131e…1330 at0008 = ╱46╱F╱ // 0x1326 @0x8
0x131e…1330 at0009 = ╱45╱E╱ // 0x1327 @0x9
0x131e…1330 at000a = ╱4a╱J╱ // 0x1328 @0xa
0x131e…1330 at000b = ╱4c╱L╱ // 0x1329 @0xb
0x131e…1330 at000c = ╱4c╱L╱ // 0x132a @0xc
0x131e…1330 at000d = ╱49╱I╱ // 0x132b @0xd
0x131e…1330 at000e = ╱4e╱N╱ // 0x132c @0xe
0x131e…1330 at000f = ╱49╱I╱ // 0x132d @0xf
0x131e…1330 at0010 = ╱45╱E╱ // 0x132e @0x10
0x131e…1330 at0011 = EOL // 0x132f @0x11
0x131e…1330 }
0x1330…134e a93c 01920 LET T_IDX := FIND_KTO ( A_KTONR $ )
0x1330…134e LineComal80 {
0x1330…134e ptr = 0xa93c // 0x1330 @0x0
0x1330…134e lno = 0x0780 // 0x1332 @0x2
0x1330…134e at0004 = ╱86╱ LET ╱ // 0x1334 @0x4
0x1330…134e at0005 = ╱54╱T╱ // 0x1335 @0x5
0x1330…134e at0006 = ╱5f╱_╱ // 0x1336 @0x6
0x1330…134e at0007 = ╱49╱I╱ // 0x1337 @0x7
0x1330…134e at0008 = ╱44╱D╱ // 0x1338 @0x8
0x1330…134e at0009 = ╱58╱X╱ // 0x1339 @0x9
0x1330…134e at000a = ╱f0╱ := ╱ // 0x133a @0xa
0x1330…134e at000b = ╱46╱F╱ // 0x133b @0xb
0x1330…134e at000c = ╱49╱I╱ // 0x133c @0xc
0x1330…134e at000d = ╱4e╱N╱ // 0x133d @0xd
0x1330…134e at000e = ╱44╱D╱ // 0x133e @0xe
0x1330…134e at000f = ╱5f╱_╱ // 0x133f @0xf
0x1330…134e at0010 = ╱4b╱K╱ // 0x1340 @0x10
0x1330…134e at0011 = ╱54╱T╱ // 0x1341 @0x11
0x1330…134e at0012 = ╱4f╱O╱ // 0x1342 @0x12
0x1330…134e at0013 = ╱ed╱ ( ╱ // 0x1343 @0x13
0x1330…134e at0014 = ╱41╱A╱ // 0x1344 @0x14
0x1330…134e at0015 = ╱5f╱_╱ // 0x1345 @0x15
0x1330…134e at0016 = ╱4b╱K╱ // 0x1346 @0x16
0x1330…134e at0017 = ╱54╱T╱ // 0x1347 @0x17
0x1330…134e at0018 = ╱4f╱O╱ // 0x1348 @0x18
0x1330…134e at0019 = ╱4e╱N╱ // 0x1349 @0x19
0x1330…134e at001a = ╱52╱R╱ // 0x134a @0x1a
0x1330…134e at001b = ╱ef╱ $ ╱ // 0x134b @0x1b
0x1330…134e at001c = ╱ee╱ ) ╱ // 0x134c @0x1c
0x1330…134e at001d = EOL // 0x134d @0x1d
0x1330…134e }
0x134e…1359 a947 01930 IF OK THEN
0x134e…1359 LineComal80 {
0x134e…1359 ptr = 0xa947 // 0x134e @0x0
0x134e…1359 lno = 0x078a // 0x1350 @0x2
0x134e…1359 at0004 = ╱9b1bd7╱ IF ╱ // 0x1352 @0x4
0x134e…1359 at0007 = ╱4f╱O╱ // 0x1355 @0x7
0x134e…1359 at0008 = ╱4b╱K╱ // 0x1356 @0x8
0x134e…1359 at0009 = ╱b5╱ THEN ╱ // 0x1357 @0x9
0x134e…1359 at000a = EOL // 0x1358 @0xa
0x134e…1359 }
0x1359…137a a968 01940 EXEC FEJL ( "Kontonr…findes…ikke" )
0x1359…137a LineComal80 {
0x1359…137a ptr = 0xa968 // 0x1359 @0x0
0x1359…137a lno = 0x0794 // 0x135b @0x2
0x1359…137a at0004 = ╱9d╱ EXEC ╱ // 0x135d @0x4
0x1359…137a at0005 = ╱46╱F╱ // 0x135e @0x5
0x1359…137a at0006 = ╱45╱E╱ // 0x135f @0x6
0x1359…137a at0007 = ╱4a╱J╱ // 0x1360 @0x7
0x1359…137a at0008 = ╱4c╱L╱ // 0x1361 @0x8
0x1359…137a at0009 = ╱ed╱ ( ╱ // 0x1362 @0x9
0x1359…137a at000a = ╱22╱"╱ // 0x1363 @0xa
0x1359…137a at000b = ╱4b╱K╱ // 0x1364 @0xb
0x1359…137a at000c = ╱6f╱o╱ // 0x1365 @0xc
0x1359…137a at000d = ╱6e╱n╱ // 0x1366 @0xd
0x1359…137a at000e = ╱74╱t╱ // 0x1367 @0xe
0x1359…137a at000f = ╱6f╱o╱ // 0x1368 @0xf
0x1359…137a at0010 = ╱6e╱n╱ // 0x1369 @0x10
0x1359…137a at0011 = ╱72╱r╱ // 0x136a @0x11
0x1359…137a at0012 = ╱20╱…╱ // 0x136b @0x12
0x1359…137a at0013 = ╱66╱f╱ // 0x136c @0x13
0x1359…137a at0014 = ╱69╱i╱ // 0x136d @0x14
0x1359…137a at0015 = ╱6e╱n╱ // 0x136e @0x15
0x1359…137a at0016 = ╱64╱d╱ // 0x136f @0x16
0x1359…137a at0017 = ╱65╱e╱ // 0x1370 @0x17
0x1359…137a at0018 = ╱73╱s╱ // 0x1371 @0x18
0x1359…137a at0019 = ╱20╱…╱ // 0x1372 @0x19
0x1359…137a at001a = ╱69╱i╱ // 0x1373 @0x1a
0x1359…137a at001b = ╱6b╱k╱ // 0x1374 @0x1b
0x1359…137a at001c = ╱6b╱k╱ // 0x1375 @0x1c
0x1359…137a at001d = ╱65╱e╱ // 0x1376 @0x1d
0x1359…137a at001e = ╱22╱"╱ // 0x1377 @0x1e
0x1359…137a at001f = ╱ee╱ ) ╱ // 0x1378 @0x1f
0x1359…137a at0020 = EOL // 0x1379 @0x20
0x1359…137a }
0x137a…1381 a96f 01950 ELSE
0x137a…1381 LineComal80 {
0x137a…1381 ptr = 0xa96f // 0x137a @0x0
0x137a…1381 lno = 0x079e // 0x137c @0x2
0x137a…1381 at0004 = ╱9a1c╱ ELSE ╱ // 0x137e @0x4
0x137a…1381 at0006 = EOL // 0x1380 @0x6
0x137a…1381 }
0x1381…13b6 a9a4 01960 IF T_IDX < F_IDX THEN EXEC FEJL ( "Fra…kontonr…>…Til…kontonr" )
0x1381…13b6 LineComal80 {
0x1381…13b6 ptr = 0xa9a4 // 0x1381 @0x0
0x1381…13b6 lno = 0x07a8 // 0x1383 @0x2
0x1381…13b6 at0004 = ╱8200╱ IF ╱ // 0x1385 @0x4
0x1381…13b6 at0006 = ╱54╱T╱ // 0x1387 @0x6
0x1381…13b6 at0007 = ╱5f╱_╱ // 0x1388 @0x7
0x1381…13b6 at0008 = ╱49╱I╱ // 0x1389 @0x8
0x1381…13b6 at0009 = ╱44╱D╱ // 0x138a @0x9
0x1381…13b6 at000a = ╱58╱X╱ // 0x138b @0xa
0x1381…13b6 at000b = ╱e0╱ < ╱ // 0x138c @0xb
0x1381…13b6 at000c = ╱46╱F╱ // 0x138d @0xc
0x1381…13b6 at000d = ╱5f╱_╱ // 0x138e @0xd
0x1381…13b6 at000e = ╱49╱I╱ // 0x138f @0xe
0x1381…13b6 at000f = ╱44╱D╱ // 0x1390 @0xf
0x1381…13b6 at0010 = ╱58╱X╱ // 0x1391 @0x10
0x1381…13b6 at0011 = ╱b5╱ THEN ╱ // 0x1392 @0x11
0x1381…13b6 at0012 = ╱9d╱ EXEC ╱ // 0x1393 @0x12
0x1381…13b6 at0013 = ╱46╱F╱ // 0x1394 @0x13
0x1381…13b6 at0014 = ╱45╱E╱ // 0x1395 @0x14
0x1381…13b6 at0015 = ╱4a╱J╱ // 0x1396 @0x15
0x1381…13b6 at0016 = ╱4c╱L╱ // 0x1397 @0x16
0x1381…13b6 at0017 = ╱ed╱ ( ╱ // 0x1398 @0x17
0x1381…13b6 at0018 = ╱22╱"╱ // 0x1399 @0x18
0x1381…13b6 at0019 = ╱46╱F╱ // 0x139a @0x19
0x1381…13b6 at001a = ╱72╱r╱ // 0x139b @0x1a
0x1381…13b6 at001b = ╱61╱a╱ // 0x139c @0x1b
0x1381…13b6 at001c = ╱20╱…╱ // 0x139d @0x1c
0x1381…13b6 at001d = ╱6b╱k╱ // 0x139e @0x1d
0x1381…13b6 at001e = ╱6f╱o╱ // 0x139f @0x1e
0x1381…13b6 at001f = ╱6e╱n╱ // 0x13a0 @0x1f
0x1381…13b6 at0020 = ╱74╱t╱ // 0x13a1 @0x20
0x1381…13b6 at0021 = ╱6f╱o╱ // 0x13a2 @0x21
0x1381…13b6 at0022 = ╱6e╱n╱ // 0x13a3 @0x22
0x1381…13b6 at0023 = ╱72╱r╱ // 0x13a4 @0x23
0x1381…13b6 at0024 = ╱20╱…╱ // 0x13a5 @0x24
0x1381…13b6 at0025 = ╱3e╱>╱ // 0x13a6 @0x25
0x1381…13b6 at0026 = ╱20╱…╱ // 0x13a7 @0x26
0x1381…13b6 at0027 = ╱54╱T╱ // 0x13a8 @0x27
0x1381…13b6 at0028 = ╱69╱i╱ // 0x13a9 @0x28
0x1381…13b6 at0029 = ╱6c╱l╱ // 0x13aa @0x29
0x1381…13b6 at002a = ╱20╱…╱ // 0x13ab @0x2a
0x1381…13b6 at002b = ╱6b╱k╱ // 0x13ac @0x2b
0x1381…13b6 at002c = ╱6f╱o╱ // 0x13ad @0x2c
0x1381…13b6 at002d = ╱6e╱n╱ // 0x13ae @0x2d
0x1381…13b6 at002e = ╱74╱t╱ // 0x13af @0x2e
0x1381…13b6 at002f = ╱6f╱o╱ // 0x13b0 @0x2f
0x1381…13b6 at0030 = ╱6e╱n╱ // 0x13b1 @0x30
0x1381…13b6 at0031 = ╱72╱r╱ // 0x13b2 @0x31
0x1381…13b6 at0032 = ╱22╱"╱ // 0x13b3 @0x32
0x1381…13b6 at0033 = ╱ee╱ ) ╱ // 0x13b4 @0x33
0x1381…13b6 at0034 = EOL // 0x13b5 @0x34
0x1381…13b6 }
0x13b6…13bc a9aa 01970 ENDIF
0x13b6…13bc LineComal80 {
0x13b6…13bc ptr = 0xa9aa // 0x13b6 @0x0
0x13b6…13bc lno = 0x07b2 // 0x13b8 @0x2
0x13b6…13bc at0004 = ╱9c╱ ENDIF ╱ // 0x13ba @0x4
0x13b6…13bc at0005 = EOL // 0x13bb @0x5
0x13b6…13bc }
0x13bc…13c4 a9b2 01980 UNTIL OK
0x13bc…13c4 LineComal80 {
0x13bc…13c4 ptr = 0xa9b2 // 0x13bc @0x0
0x13bc…13c4 lno = 0x07bc // 0x13be @0x2
0x13bc…13c4 at0004 = ╱98╱ UNTIL ╱ // 0x13c0 @0x4
0x13bc…13c4 at0005 = ╱4f╱O╱ // 0x13c1 @0x5
0x13bc…13c4 at0006 = ╱4b╱K╱ // 0x13c2 @0x6
0x13bc…13c4 at0007 = EOL // 0x13c3 @0x7
0x13bc…13c4 }
0x13c4…13d6 a9c4 01990 LET OUT_WAY $ := "P"
0x13c4…13d6 LineComal80 {
0x13c4…13d6 ptr = 0xa9c4 // 0x13c4 @0x0
0x13c4…13d6 lno = 0x07c6 // 0x13c6 @0x2
0x13c4…13d6 at0004 = ╱86╱ LET ╱ // 0x13c8 @0x4
0x13c4…13d6 at0005 = ╱4f╱O╱ // 0x13c9 @0x5
0x13c4…13d6 at0006 = ╱55╱U╱ // 0x13ca @0x6
0x13c4…13d6 at0007 = ╱54╱T╱ // 0x13cb @0x7
0x13c4…13d6 at0008 = ╱5f╱_╱ // 0x13cc @0x8
0x13c4…13d6 at0009 = ╱57╱W╱ // 0x13cd @0x9
0x13c4…13d6 at000a = ╱41╱A╱ // 0x13ce @0xa
0x13c4…13d6 at000b = ╱59╱Y╱ // 0x13cf @0xb
0x13c4…13d6 at000c = ╱ef╱ $ ╱ // 0x13d0 @0xc
0x13c4…13d6 at000d = ╱f0╱ := ╱ // 0x13d1 @0xd
0x13c4…13d6 at000e = ╱22╱"╱ // 0x13d2 @0xe
0x13c4…13d6 at000f = ╱50╱P╱ // 0x13d3 @0xf
0x13c4…13d6 at0010 = ╱22╱"╱ // 0x13d4 @0x10
0x13c4…13d6 at0011 = EOL // 0x13d5 @0x11
0x13c4…13d6 }
0x13d6…13dd a9cb 02000 REPEAT
0x13d6…13dd LineComal80 {
0x13d6…13dd ptr = 0xa9cb // 0x13d6 @0x0
0x13d6…13dd lno = 0x07d0 // 0x13d8 @0x2
0x13d6…13dd at0004 = ╱971d╱ REPEAT ╱ // 0x13da @0x4
0x13d6…13dd at0006 = EOL // 0x13dc @0x6
0x13d6…13dd }
0x13dd…141b aa09 02010 EDIT "<SC1814>Udskrift…p}…(P)rinter…eller…(S)k{rm?…" : OUT_WAY $
0x13dd…141b LineComal80 {
0x13dd…141b ptr = 0xaa09 // 0x13dd @0x0
0x13dd…141b lno = 0x07da // 0x13df @0x2
0x13dd…141b at0004 = ╱b1╱ EDIT ╱ // 0x13e1 @0x4
0x13dd…141b at0005 = ╱22╱"╱ // 0x13e2 @0x5
0x13dd…141b at0006 = ╱3c╱<╱ // 0x13e3 @0x6
0x13dd…141b at0007 = ╱53╱S╱ // 0x13e4 @0x7
0x13dd…141b at0008 = ╱43╱C╱ // 0x13e5 @0x8
0x13dd…141b at0009 = ╱31╱1╱ // 0x13e6 @0x9
0x13dd…141b at000a = ╱38╱8╱ // 0x13e7 @0xa
0x13dd…141b at000b = ╱31╱1╱ // 0x13e8 @0xb
0x13dd…141b at000c = ╱34╱4╱ // 0x13e9 @0xc
0x13dd…141b at000d = ╱3e╱>╱ // 0x13ea @0xd
0x13dd…141b at000e = ╱55╱U╱ // 0x13eb @0xe
0x13dd…141b at000f = ╱64╱d╱ // 0x13ec @0xf
0x13dd…141b at0010 = ╱73╱s╱ // 0x13ed @0x10
0x13dd…141b at0011 = ╱6b╱k╱ // 0x13ee @0x11
0x13dd…141b at0012 = ╱72╱r╱ // 0x13ef @0x12
0x13dd…141b at0013 = ╱69╱i╱ // 0x13f0 @0x13
0x13dd…141b at0014 = ╱66╱f╱ // 0x13f1 @0x14
0x13dd…141b at0015 = ╱74╱t╱ // 0x13f2 @0x15
0x13dd…141b at0016 = ╱20╱…╱ // 0x13f3 @0x16
0x13dd…141b at0017 = ╱70╱p╱ // 0x13f4 @0x17
0x13dd…141b at0018 = ╱7d╱}╱ // 0x13f5 @0x18
0x13dd…141b at0019 = ╱20╱…╱ // 0x13f6 @0x19
0x13dd…141b at001a = ╱28╱(╱ // 0x13f7 @0x1a
0x13dd…141b at001b = ╱50╱P╱ // 0x13f8 @0x1b
0x13dd…141b at001c = ╱29╱)╱ // 0x13f9 @0x1c
0x13dd…141b at001d = ╱72╱r╱ // 0x13fa @0x1d
0x13dd…141b at001e = ╱69╱i╱ // 0x13fb @0x1e
0x13dd…141b at001f = ╱6e╱n╱ // 0x13fc @0x1f
0x13dd…141b at0020 = ╱74╱t╱ // 0x13fd @0x20
0x13dd…141b at0021 = ╱65╱e╱ // 0x13fe @0x21
0x13dd…141b at0022 = ╱72╱r╱ // 0x13ff @0x22
0x13dd…141b at0023 = ╱20╱…╱ // 0x1400 @0x23
0x13dd…141b at0024 = ╱65╱e╱ // 0x1401 @0x24
0x13dd…141b at0025 = ╱6c╱l╱ // 0x1402 @0x25
0x13dd…141b at0026 = ╱6c╱l╱ // 0x1403 @0x26
0x13dd…141b at0027 = ╱65╱e╱ // 0x1404 @0x27
0x13dd…141b at0028 = ╱72╱r╱ // 0x1405 @0x28
0x13dd…141b at0029 = ╱20╱…╱ // 0x1406 @0x29
0x13dd…141b at002a = ╱28╱(╱ // 0x1407 @0x2a
0x13dd…141b at002b = ╱53╱S╱ // 0x1408 @0x2b
0x13dd…141b at002c = ╱29╱)╱ // 0x1409 @0x2c
0x13dd…141b at002d = ╱6b╱k╱ // 0x140a @0x2d
0x13dd…141b at002e = ╱7b╱{╱ // 0x140b @0x2e
0x13dd…141b at002f = ╱72╱r╱ // 0x140c @0x2f
0x13dd…141b at0030 = ╱6d╱m╱ // 0x140d @0x30
0x13dd…141b at0031 = ╱3f╱?╱ // 0x140e @0x31
0x13dd…141b at0032 = ╱20╱…╱ // 0x140f @0x32
0x13dd…141b at0033 = ╱22╱"╱ // 0x1410 @0x33
0x13dd…141b at0034 = ╱f1╱ : ╱ // 0x1411 @0x34
0x13dd…141b at0035 = ╱4f╱O╱ // 0x1412 @0x35
0x13dd…141b at0036 = ╱55╱U╱ // 0x1413 @0x36
0x13dd…141b at0037 = ╱54╱T╱ // 0x1414 @0x37
0x13dd…141b at0038 = ╱5f╱_╱ // 0x1415 @0x38
0x13dd…141b at0039 = ╱57╱W╱ // 0x1416 @0x39
0x13dd…141b at003a = ╱41╱A╱ // 0x1417 @0x3a
0x13dd…141b at003b = ╱59╱Y╱ // 0x1418 @0x3b
0x13dd…141b at003c = ╱ef╱ $ ╱ // 0x1419 @0x3c
0x13dd…141b at003d = EOL // 0x141a @0x3d
0x13dd…141b }
0x141b…142d aa1b 02020 EXEC SL_FEJLLINIE
0x141b…142d LineComal80 {
0x141b…142d ptr = 0xaa1b // 0x141b @0x0
0x141b…142d lno = 0x07e4 // 0x141d @0x2
0x141b…142d at0004 = ╱9d╱ EXEC ╱ // 0x141f @0x4
0x141b…142d at0005 = ╱53╱S╱ // 0x1420 @0x5
0x141b…142d at0006 = ╱4c╱L╱ // 0x1421 @0x6
0x141b…142d at0007 = ╱5f╱_╱ // 0x1422 @0x7
0x141b…142d at0008 = ╱46╱F╱ // 0x1423 @0x8
0x141b…142d at0009 = ╱45╱E╱ // 0x1424 @0x9
0x141b…142d at000a = ╱4a╱J╱ // 0x1425 @0xa
0x141b…142d at000b = ╱4c╱L╱ // 0x1426 @0xb
0x141b…142d at000c = ╱4c╱L╱ // 0x1427 @0xc
0x141b…142d at000d = ╱49╱I╱ // 0x1428 @0xd
0x141b…142d at000e = ╱4e╱N╱ // 0x1429 @0xe
0x141b…142d at000f = ╱49╱I╱ // 0x142a @0xf
0x141b…142d at0010 = ╱45╱E╱ // 0x142b @0x10
0x141b…142d at0011 = EOL // 0x142c @0x11
0x141b…142d }
0x142d…1444 aa32 02030 EXEC ST_BGST ( OUT_WAY $ )
0x142d…1444 LineComal80 {
0x142d…1444 ptr = 0xaa32 // 0x142d @0x0
0x142d…1444 lno = 0x07ee // 0x142f @0x2
0x142d…1444 at0004 = ╱9d╱ EXEC ╱ // 0x1431 @0x4
0x142d…1444 at0005 = ╱53╱S╱ // 0x1432 @0x5
0x142d…1444 at0006 = ╱54╱T╱ // 0x1433 @0x6
0x142d…1444 at0007 = ╱5f╱_╱ // 0x1434 @0x7
0x142d…1444 at0008 = ╱42╱B╱ // 0x1435 @0x8
0x142d…1444 at0009 = ╱47╱G╱ // 0x1436 @0x9
0x142d…1444 at000a = ╱53╱S╱ // 0x1437 @0xa
0x142d…1444 at000b = ╱54╱T╱ // 0x1438 @0xb
0x142d…1444 at000c = ╱ed╱ ( ╱ // 0x1439 @0xc
0x142d…1444 at000d = ╱4f╱O╱ // 0x143a @0xd
0x142d…1444 at000e = ╱55╱U╱ // 0x143b @0xe
0x142d…1444 at000f = ╱54╱T╱ // 0x143c @0xf
0x142d…1444 at0010 = ╱5f╱_╱ // 0x143d @0x10
0x142d…1444 at0011 = ╱57╱W╱ // 0x143e @0x11
0x142d…1444 at0012 = ╱41╱A╱ // 0x143f @0x12
0x142d…1444 at0013 = ╱59╱Y╱ // 0x1440 @0x13
0x142d…1444 at0014 = ╱ef╱ $ ╱ // 0x1441 @0x14
0x142d…1444 at0015 = ╱ee╱ ) ╱ // 0x1442 @0x15
0x142d…1444 at0016 = EOL // 0x1443 @0x16
0x142d…1444 }
0x1444…1465 aa53 02040 IF "/" + OUT_WAY $ + "/" IN "/S/P/" THEN
0x1444…1465 LineComal80 {
0x1444…1465 ptr = 0xaa53 // 0x1444 @0x0
0x1444…1465 lno = 0x07f8 // 0x1446 @0x2
0x1444…1465 at0004 = ╱9b1ed7╱ IF ╱ // 0x1448 @0x4
0x1444…1465 at0007 = ╱22╱"╱ // 0x144b @0x7
0x1444…1465 at0008 = ╱2f╱/╱ // 0x144c @0x8
0x1444…1465 at0009 = ╱22╱"╱ // 0x144d @0x9
0x1444…1465 at000a = ╱eb╱ + ╱ // 0x144e @0xa
0x1444…1465 at000b = ╱4f╱O╱ // 0x144f @0xb
0x1444…1465 at000c = ╱55╱U╱ // 0x1450 @0xc
0x1444…1465 at000d = ╱54╱T╱ // 0x1451 @0xd
0x1444…1465 at000e = ╱5f╱_╱ // 0x1452 @0xe
0x1444…1465 at000f = ╱57╱W╱ // 0x1453 @0xf
0x1444…1465 at0010 = ╱41╱A╱ // 0x1454 @0x10
0x1444…1465 at0011 = ╱59╱Y╱ // 0x1455 @0x11
0x1444…1465 at0012 = ╱ef╱ $ ╱ // 0x1456 @0x12
0x1444…1465 at0013 = ╱eb╱ + ╱ // 0x1457 @0x13
0x1444…1465 at0014 = ╱22╱"╱ // 0x1458 @0x14
0x1444…1465 at0015 = ╱2f╱/╱ // 0x1459 @0x15
0x1444…1465 at0016 = ╱22╱"╱ // 0x145a @0x16
0x1444…1465 at0017 = ╱dc╱ IN ╱ // 0x145b @0x17
0x1444…1465 at0018 = ╱22╱"╱ // 0x145c @0x18
0x1444…1465 at0019 = ╱2f╱/╱ // 0x145d @0x19
0x1444…1465 at001a = ╱53╱S╱ // 0x145e @0x1a
0x1444…1465 at001b = ╱2f╱/╱ // 0x145f @0x1b
0x1444…1465 at001c = ╱50╱P╱ // 0x1460 @0x1c
0x1444…1465 at001d = ╱2f╱/╱ // 0x1461 @0x1d
0x1444…1465 at001e = ╱22╱"╱ // 0x1462 @0x1e
0x1444…1465 at001f = ╱b5╱ THEN ╱ // 0x1463 @0x1f
0x1444…1465 at0020 = EOL // 0x1464 @0x20
0x1444…1465 }
0x1465…148e aa7c 02050 EXEC FEJL ( "Ukendt…svar:…'" + OUT_WAY $ + "'" )
0x1465…148e LineComal80 {
0x1465…148e ptr = 0xaa7c // 0x1465 @0x0
0x1465…148e lno = 0x0802 // 0x1467 @0x2
0x1465…148e at0004 = ╱9d╱ EXEC ╱ // 0x1469 @0x4
0x1465…148e at0005 = ╱46╱F╱ // 0x146a @0x5
0x1465…148e at0006 = ╱45╱E╱ // 0x146b @0x6
0x1465…148e at0007 = ╱4a╱J╱ // 0x146c @0x7
0x1465…148e at0008 = ╱4c╱L╱ // 0x146d @0x8
0x1465…148e at0009 = ╱ed╱ ( ╱ // 0x146e @0x9
0x1465…148e at000a = ╱22╱"╱ // 0x146f @0xa
0x1465…148e at000b = ╱55╱U╱ // 0x1470 @0xb
0x1465…148e at000c = ╱6b╱k╱ // 0x1471 @0xc
0x1465…148e at000d = ╱65╱e╱ // 0x1472 @0xd
0x1465…148e at000e = ╱6e╱n╱ // 0x1473 @0xe
0x1465…148e at000f = ╱64╱d╱ // 0x1474 @0xf
0x1465…148e at0010 = ╱74╱t╱ // 0x1475 @0x10
0x1465…148e at0011 = ╱20╱…╱ // 0x1476 @0x11
0x1465…148e at0012 = ╱73╱s╱ // 0x1477 @0x12
0x1465…148e at0013 = ╱76╱v╱ // 0x1478 @0x13
0x1465…148e at0014 = ╱61╱a╱ // 0x1479 @0x14
0x1465…148e at0015 = ╱72╱r╱ // 0x147a @0x15
0x1465…148e at0016 = ╱3a╱:╱ // 0x147b @0x16
0x1465…148e at0017 = ╱20╱…╱ // 0x147c @0x17
0x1465…148e at0018 = ╱27╱'╱ // 0x147d @0x18
0x1465…148e at0019 = ╱22╱"╱ // 0x147e @0x19
0x1465…148e at001a = ╱eb╱ + ╱ // 0x147f @0x1a
0x1465…148e at001b = ╱4f╱O╱ // 0x1480 @0x1b
0x1465…148e at001c = ╱55╱U╱ // 0x1481 @0x1c
0x1465…148e at001d = ╱54╱T╱ // 0x1482 @0x1d
0x1465…148e at001e = ╱5f╱_╱ // 0x1483 @0x1e
0x1465…148e at001f = ╱57╱W╱ // 0x1484 @0x1f
0x1465…148e at0020 = ╱41╱A╱ // 0x1485 @0x20
0x1465…148e at0021 = ╱59╱Y╱ // 0x1486 @0x21
0x1465…148e at0022 = ╱ef╱ $ ╱ // 0x1487 @0x22
0x1465…148e at0023 = ╱eb╱ + ╱ // 0x1488 @0x23
0x1465…148e at0024 = ╱22╱"╱ // 0x1489 @0x24
0x1465…148e at0025 = ╱27╱'╱ // 0x148a @0x25
0x1465…148e at0026 = ╱22╱"╱ // 0x148b @0x26
0x1465…148e at0027 = ╱ee╱ ) ╱ // 0x148c @0x27
0x1465…148e at0028 = EOL // 0x148d @0x28
0x1465…148e }
0x148e…1494 aa82 02060 ENDIF
0x148e…1494 LineComal80 {
0x148e…1494 ptr = 0xaa82 // 0x148e @0x0
0x148e…1494 lno = 0x080c // 0x1490 @0x2
0x148e…1494 at0004 = ╱9c╱ ENDIF ╱ // 0x1492 @0x4
0x148e…1494 at0005 = EOL // 0x1493 @0x5
0x148e…1494 }
0x1494…149c d117 02070 UNTIL OK
0x1494…149c LineComal80 {
0x1494…149c ptr = 0xd117 // 0x1494 @0x0
0x1494…149c lno = 0x0816 // 0x1496 @0x2
0x1494…149c at0004 = ╱98╱ UNTIL ╱ // 0x1498 @0x4
0x1494…149c at0005 = ╱4f╱O╱ // 0x1499 @0x5
0x1494…149c at0006 = ╱4b╱K╱ // 0x149a @0x6
0x1494…149c at0007 = EOL // 0x149b @0x7
0x1494…149c }
0x149c…14a9 aa97 02090 EXEC UDSKRIV
0x149c…14a9 LineComal80 {
0x149c…14a9 ptr = 0xaa97 // 0x149c @0x0
0x149c…14a9 lno = 0x082a // 0x149e @0x2
0x149c…14a9 at0004 = ╱9d╱ EXEC ╱ // 0x14a0 @0x4
0x149c…14a9 at0005 = ╱55╱U╱ // 0x14a1 @0x5
0x149c…14a9 at0006 = ╱44╱D╱ // 0x14a2 @0x6
0x149c…14a9 at0007 = ╱53╱S╱ // 0x14a3 @0x7
0x149c…14a9 at0008 = ╱4b╱K╱ // 0x14a4 @0x8
0x149c…14a9 at0009 = ╱52╱R╱ // 0x14a5 @0x9
0x149c…14a9 at000a = ╱49╱I╱ // 0x14a6 @0xa
0x149c…14a9 at000b = ╱56╱V╱ // 0x14a7 @0xb
0x149c…14a9 at000c = EOL // 0x14a8 @0xc
0x149c…14a9 }
0x14a9…14af aa9d 02100 CLEAR
0x14a9…14af LineComal80 {
0x14a9…14af ptr = 0xaa9d // 0x14a9 @0x0
0x14a9…14af lno = 0x0834 // 0x14ab @0x2
0x14a9…14af at0004 = ╱a0╱ CLEAR ╱ // 0x14ad @0x4
0x14a9…14af at0005 = EOL // 0x14ae @0x5
0x14a9…14af }
0x14af…14be aaac 02110 LET SVAR $ := "n"
0x14af…14be LineComal80 {
0x14af…14be ptr = 0xaaac // 0x14af @0x0
0x14af…14be lno = 0x083e // 0x14b1 @0x2
0x14af…14be at0004 = ╱86╱ LET ╱ // 0x14b3 @0x4
0x14af…14be at0005 = ╱53╱S╱ // 0x14b4 @0x5
0x14af…14be at0006 = ╱56╱V╱ // 0x14b5 @0x6
0x14af…14be at0007 = ╱41╱A╱ // 0x14b6 @0x7
0x14af…14be at0008 = ╱52╱R╱ // 0x14b7 @0x8
0x14af…14be at0009 = ╱ef╱ $ ╱ // 0x14b8 @0x9
0x14af…14be at000a = ╱f0╱ := ╱ // 0x14b9 @0xa
0x14af…14be at000b = ╱22╱"╱ // 0x14ba @0xb
0x14af…14be at000c = ╱6e╱n╱ // 0x14bb @0xc
0x14af…14be at000d = ╱22╱"╱ // 0x14bc @0xd
0x14af…14be at000e = EOL // 0x14bd @0xe
0x14af…14be }
0x14be…14ff aaed 02120 EDIT "<C2012>Udskrivning…af…flere…kontokort…(j/n)?…" : SVAR $ ( 1 )
0x14be…14ff LineComal80 {
0x14be…14ff ptr = 0xaaed // 0x14be @0x0
0x14be…14ff lno = 0x0848 // 0x14c0 @0x2
0x14be…14ff at0004 = ╱b1╱ EDIT ╱ // 0x14c2 @0x4
0x14be…14ff at0005 = ╱22╱"╱ // 0x14c3 @0x5
0x14be…14ff at0006 = ╱3c╱<╱ // 0x14c4 @0x6
0x14be…14ff at0007 = ╱43╱C╱ // 0x14c5 @0x7
0x14be…14ff at0008 = ╱32╱2╱ // 0x14c6 @0x8
0x14be…14ff at0009 = ╱30╱0╱ // 0x14c7 @0x9
0x14be…14ff at000a = ╱31╱1╱ // 0x14c8 @0xa
0x14be…14ff at000b = ╱32╱2╱ // 0x14c9 @0xb
0x14be…14ff at000c = ╱3e╱>╱ // 0x14ca @0xc
0x14be…14ff at000d = ╱55╱U╱ // 0x14cb @0xd
0x14be…14ff at000e = ╱64╱d╱ // 0x14cc @0xe
0x14be…14ff at000f = ╱73╱s╱ // 0x14cd @0xf
0x14be…14ff at0010 = ╱6b╱k╱ // 0x14ce @0x10
0x14be…14ff at0011 = ╱72╱r╱ // 0x14cf @0x11
0x14be…14ff at0012 = ╱69╱i╱ // 0x14d0 @0x12
0x14be…14ff at0013 = ╱76╱v╱ // 0x14d1 @0x13
0x14be…14ff at0014 = ╱6e╱n╱ // 0x14d2 @0x14
0x14be…14ff at0015 = ╱69╱i╱ // 0x14d3 @0x15
0x14be…14ff at0016 = ╱6e╱n╱ // 0x14d4 @0x16
0x14be…14ff at0017 = ╱67╱g╱ // 0x14d5 @0x17
0x14be…14ff at0018 = ╱20╱…╱ // 0x14d6 @0x18
0x14be…14ff at0019 = ╱61╱a╱ // 0x14d7 @0x19
0x14be…14ff at001a = ╱66╱f╱ // 0x14d8 @0x1a
0x14be…14ff at001b = ╱20╱…╱ // 0x14d9 @0x1b
0x14be…14ff at001c = ╱66╱f╱ // 0x14da @0x1c
0x14be…14ff at001d = ╱6c╱l╱ // 0x14db @0x1d
0x14be…14ff at001e = ╱65╱e╱ // 0x14dc @0x1e
0x14be…14ff at001f = ╱72╱r╱ // 0x14dd @0x1f
0x14be…14ff at0020 = ╱65╱e╱ // 0x14de @0x20
0x14be…14ff at0021 = ╱20╱…╱ // 0x14df @0x21
0x14be…14ff at0022 = ╱6b╱k╱ // 0x14e0 @0x22
0x14be…14ff at0023 = ╱6f╱o╱ // 0x14e1 @0x23
0x14be…14ff at0024 = ╱6e╱n╱ // 0x14e2 @0x24
0x14be…14ff at0025 = ╱74╱t╱ // 0x14e3 @0x25
0x14be…14ff at0026 = ╱6f╱o╱ // 0x14e4 @0x26
0x14be…14ff at0027 = ╱6b╱k╱ // 0x14e5 @0x27
0x14be…14ff at0028 = ╱6f╱o╱ // 0x14e6 @0x28
0x14be…14ff at0029 = ╱72╱r╱ // 0x14e7 @0x29
0x14be…14ff at002a = ╱74╱t╱ // 0x14e8 @0x2a
0x14be…14ff at002b = ╱20╱…╱ // 0x14e9 @0x2b
0x14be…14ff at002c = ╱28╱(╱ // 0x14ea @0x2c
0x14be…14ff at002d = ╱6a╱j╱ // 0x14eb @0x2d
0x14be…14ff at002e = ╱2f╱/╱ // 0x14ec @0x2e
0x14be…14ff at002f = ╱6e╱n╱ // 0x14ed @0x2f
0x14be…14ff at0030 = ╱29╱)╱ // 0x14ee @0x30
0x14be…14ff at0031 = ╱3f╱?╱ // 0x14ef @0x31
0x14be…14ff at0032 = ╱20╱…╱ // 0x14f0 @0x32
0x14be…14ff at0033 = ╱22╱"╱ // 0x14f1 @0x33
0x14be…14ff at0034 = ╱f1╱ : ╱ // 0x14f2 @0x34
0x14be…14ff at0035 = ╱53╱S╱ // 0x14f3 @0x35
0x14be…14ff at0036 = ╱56╱V╱ // 0x14f4 @0x36
0x14be…14ff at0037 = ╱41╱A╱ // 0x14f5 @0x37
0x14be…14ff at0038 = ╱52╱R╱ // 0x14f6 @0x38
0x14be…14ff at0039 = ╱ef╱ $ ╱ // 0x14f7 @0x39
0x14be…14ff at003a = ╱ed╱ ( ╱ // 0x14f8 @0x3a
0x14be…14ff at003b = ╱31╱1╱ // 0x14f9 @0x3b
0x14be…14ff at003c = ╱f20100╱ // 0x14fa @0x3c
0x14be…14ff at003f = ╱ee╱ ) ╱ // 0x14fd @0x3f
0x14be…14ff at0040 = EOL // 0x14fe @0x40
0x14be…14ff }
0x14ff…151b ab09 02130 UNTIL NOT "/" + SVAR $ + "/" IN "/J/j/"
0x14ff…151b LineComal80 {
0x14ff…151b ptr = 0xab09 // 0x14ff @0x0
0x14ff…151b lno = 0x0852 // 0x1501 @0x2
0x14ff…151b at0004 = ╱98╱ UNTIL ╱ // 0x1503 @0x4
0x14ff…151b at0005 = ╱d7╱ NOT ╱ // 0x1504 @0x5
0x14ff…151b at0006 = ╱22╱"╱ // 0x1505 @0x6
0x14ff…151b at0007 = ╱2f╱/╱ // 0x1506 @0x7
0x14ff…151b at0008 = ╱22╱"╱ // 0x1507 @0x8
0x14ff…151b at0009 = ╱eb╱ + ╱ // 0x1508 @0x9
0x14ff…151b at000a = ╱53╱S╱ // 0x1509 @0xa
0x14ff…151b at000b = ╱56╱V╱ // 0x150a @0xb
0x14ff…151b at000c = ╱41╱A╱ // 0x150b @0xc
0x14ff…151b at000d = ╱52╱R╱ // 0x150c @0xd
0x14ff…151b at000e = ╱ef╱ $ ╱ // 0x150d @0xe
0x14ff…151b at000f = ╱eb╱ + ╱ // 0x150e @0xf
0x14ff…151b at0010 = ╱22╱"╱ // 0x150f @0x10
0x14ff…151b at0011 = ╱2f╱/╱ // 0x1510 @0x11
0x14ff…151b at0012 = ╱22╱"╱ // 0x1511 @0x12
0x14ff…151b at0013 = ╱dc╱ IN ╱ // 0x1512 @0x13
0x14ff…151b at0014 = ╱22╱"╱ // 0x1513 @0x14
0x14ff…151b at0015 = ╱2f╱/╱ // 0x1514 @0x15
0x14ff…151b at0016 = ╱4a╱J╱ // 0x1515 @0x16
0x14ff…151b at0017 = ╱2f╱/╱ // 0x1516 @0x17
0x14ff…151b at0018 = ╱6a╱j╱ // 0x1517 @0x18
0x14ff…151b at0019 = ╱2f╱/╱ // 0x1518 @0x19
0x14ff…151b at001a = ╱22╱"╱ // 0x1519 @0x1a
0x14ff…151b at001b = EOL // 0x151a @0x1b
0x14ff…151b }
0x151b…1529 ab17 02140 ENDPROC FKT_MENU
0x151b…1529 LineComal80 {
0x151b…1529 ptr = 0xab17 // 0x151b @0x0
0x151b…1529 lno = 0x085c // 0x151d @0x2
0x151b…1529 at0004 = ╱9f╱ ENDPROC ╱ // 0x151f @0x4
0x151b…1529 at0005 = ╱46╱F╱ // 0x1520 @0x5
0x151b…1529 at0006 = ╱4b╱K╱ // 0x1521 @0x6
0x151b…1529 at0007 = ╱54╱T╱ // 0x1522 @0x7
0x151b…1529 at0008 = ╱5f╱_╱ // 0x1523 @0x8
0x151b…1529 at0009 = ╱4d╱M╱ // 0x1524 @0x9
0x151b…1529 at000a = ╱45╱E╱ // 0x1525 @0xa
0x151b…1529 at000b = ╱4e╱N╱ // 0x1526 @0xb
0x151b…1529 at000c = ╱55╱U╱ // 0x1527 @0xc
0x151b…1529 at000d = EOL // 0x1528 @0xd
0x151b…1529 }
0x1529…152e ab1c 02150
0x1529…152e LineComal80 {
0x1529…152e ptr = 0xab1c // 0x1529 @0x0
0x1529…152e lno = 0x0866 // 0x152b @0x2
0x1529…152e at0004 = EOL // 0x152d @0x4
0x1529…152e }
0x152e…153c ab2a 02160 PROC UDSKRIV
0x152e…153c LineComal80 {
0x152e…153c ptr = 0xab2a // 0x152e @0x0
0x152e…153c lno = 0x0870 // 0x1530 @0x2
0x152e…153c at0004 = ╱9e1f╱ PROC ╱ // 0x1532 @0x4
0x152e…153c at0006 = ╱55╱U╱ // 0x1534 @0x6
0x152e…153c at0007 = ╱44╱D╱ // 0x1535 @0x7
0x152e…153c at0008 = ╱53╱S╱ // 0x1536 @0x8
0x152e…153c at0009 = ╱4b╱K╱ // 0x1537 @0x9
0x152e…153c at000a = ╱52╱R╱ // 0x1538 @0xa
0x152e…153c at000b = ╱49╱I╱ // 0x1539 @0xb
0x152e…153c at000c = ╱56╱V╱ // 0x153a @0xc
0x152e…153c at000d = EOL // 0x153b @0xd
0x152e…153c }
0x153c…1550 d09d 02170 IF UT_WAY $ = "P" THEN
0x153c…1550 LineComal80 {
0x153c…1550 ptr = 0xd09d // 0x153c @0x0
0x153c…1550 lno = 0x087a // 0x153e @0x2
0x153c…1550 at0004 = ╱9b204f╱ IF ╱ // 0x1540 @0x4
0x153c…1550 at0007 = ╱55╱U╱ // 0x1543 @0x7
0x153c…1550 at0008 = ╱54╱T╱ // 0x1544 @0x8
0x153c…1550 at0009 = ╱5f╱_╱ // 0x1545 @0x9
0x153c…1550 at000a = ╱57╱W╱ // 0x1546 @0xa
0x153c…1550 at000b = ╱41╱A╱ // 0x1547 @0xb
0x153c…1550 at000c = ╱59╱Y╱ // 0x1548 @0xc
0x153c…1550 at000d = ╱ef╱ $ ╱ // 0x1549 @0xd
0x153c…1550 at000e = ╱df╱ = ╱ // 0x154a @0xe
0x153c…1550 at000f = ╱22╱"╱ // 0x154b @0xf
0x153c…1550 at0010 = ╱50╱P╱ // 0x154c @0x10
0x153c…1550 at0011 = ╱22╱"╱ // 0x154d @0x11
0x153c…1550 at0012 = ╱b5╱ THEN ╱ // 0x154e @0x12
0x153c…1550 at0013 = EOL // 0x154f @0x13
0x153c…1550 }
0x1550…1576 ab64 02170 EXEC PRINTRES ( "smal…EDB-liste" , 16 )
0x1550…1576 LineComal80 {
0x1550…1576 ptr = 0xab64 // 0x1550 @0x0
0x1550…1576 lno = 0x087a // 0x1552 @0x2
0x1550…1576 at0004 = ╱9d╱ EXEC ╱ // 0x1554 @0x4
0x1550…1576 at0005 = ╱50╱P╱ // 0x1555 @0x5
0x1550…1576 at0006 = ╱52╱R╱ // 0x1556 @0x6
0x1550…1576 at0007 = ╱49╱I╱ // 0x1557 @0x7
0x1550…1576 at0008 = ╱4e╱N╱ // 0x1558 @0x8
0x1550…1576 at0009 = ╱54╱T╱ // 0x1559 @0x9
0x1550…1576 at000a = ╱52╱R╱ // 0x155a @0xa
0x1550…1576 at000b = ╱45╱E╱ // 0x155b @0xb
0x1550…1576 at000c = ╱53╱S╱ // 0x155c @0xc
0x1550…1576 at000d = ╱ed╱ ( ╱ // 0x155d @0xd
0x1550…1576 at000e = ╱22╱"╱ // 0x155e @0xe
0x1550…1576 at000f = ╱73╱s╱ // 0x155f @0xf
0x1550…1576 at0010 = ╱6d╱m╱ // 0x1560 @0x10
0x1550…1576 at0011 = ╱61╱a╱ // 0x1561 @0x11
0x1550…1576 at0012 = ╱6c╱l╱ // 0x1562 @0x12
0x1550…1576 at0013 = ╱20╱…╱ // 0x1563 @0x13
0x1550…1576 at0014 = ╱45╱E╱ // 0x1564 @0x14
0x1550…1576 at0015 = ╱44╱D╱ // 0x1565 @0x15
0x1550…1576 at0016 = ╱42╱B╱ // 0x1566 @0x16
0x1550…1576 at0017 = ╱2d╱-╱ // 0x1567 @0x17
0x1550…1576 at0018 = ╱6c╱l╱ // 0x1568 @0x18
0x1550…1576 at0019 = ╱69╱i╱ // 0x1569 @0x19
0x1550…1576 at001a = ╱73╱s╱ // 0x156a @0x1a
0x1550…1576 at001b = ╱74╱t╱ // 0x156b @0x1b
0x1550…1576 at001c = ╱65╱e╱ // 0x156c @0x1c
0x1550…1576 at001d = ╱22╱"╱ // 0x156d @0x1d
0x1550…1576 at001e = ╱ec╱ , ╱ // 0x156e @0x1e
0x1550…1576 at001f = ╱31╱1╱ // 0x156f @0x1f
0x1550…1576 at0020 = ╱36╱6╱ // 0x1570 @0x20
0x1550…1576 at0021 = ╱f21000╱ // 0x1571 @0x21
0x1550…1576 at0024 = ╱ee╱ ) ╱ // 0x1574 @0x24
0x1550…1576 at0025 = EOL // 0x1575 @0x25
0x1550…1576 }
0x1576…1589 ab77 02190 LET MAX_LIN := 36
0x1576…1589 LineComal80 {
0x1576…1589 ptr = 0xab77 // 0x1576 @0x0
0x1576…1589 lno = 0x088e // 0x1578 @0x2
0x1576…1589 at0004 = ╱86╱ LET ╱ // 0x157a @0x4
0x1576…1589 at0005 = ╱4d╱M╱ // 0x157b @0x5
0x1576…1589 at0006 = ╱41╱A╱ // 0x157c @0x6
0x1576…1589 at0007 = ╱58╱X╱ // 0x157d @0x7
0x1576…1589 at0008 = ╱5f╱_╱ // 0x157e @0x8
0x1576…1589 at0009 = ╱4c╱L╱ // 0x157f @0x9
0x1576…1589 at000a = ╱49╱I╱ // 0x1580 @0xa
0x1576…1589 at000b = ╱4e╱N╱ // 0x1581 @0xb
0x1576…1589 at000c = ╱f0╱ := ╱ // 0x1582 @0xc
0x1576…1589 at000d = ╱33╱3╱ // 0x1583 @0xd
0x1576…1589 at000e = ╱36╱6╱ // 0x1584 @0xe
0x1576…1589 at000f = ╱f22400╱ // 0x1585 @0xf
0x1576…1589 at0012 = EOL // 0x1588 @0x12
0x1576…1589 }
0x1589…1590 ab7e 02200 ELSE
0x1589…1590 LineComal80 {
0x1589…1590 ptr = 0xab7e // 0x1589 @0x0
0x1589…1590 lno = 0x0898 // 0x158b @0x2
0x1589…1590 at0004 = ╱9a21╱ ELSE ╱ // 0x158d @0x4
0x1589…1590 at0006 = EOL // 0x158f @0x6
0x1589…1590 }
0x1590…15a3 ab91 02210 LET MAX_LIN := 24
0x1590…15a3 LineComal80 {
0x1590…15a3 ptr = 0xab91 // 0x1590 @0x0
0x1590…15a3 lno = 0x08a2 // 0x1592 @0x2
0x1590…15a3 at0004 = ╱86╱ LET ╱ // 0x1594 @0x4
0x1590…15a3 at0005 = ╱4d╱M╱ // 0x1595 @0x5
0x1590…15a3 at0006 = ╱41╱A╱ // 0x1596 @0x6
0x1590…15a3 at0007 = ╱58╱X╱ // 0x1597 @0x7
0x1590…15a3 at0008 = ╱5f╱_╱ // 0x1598 @0x8
0x1590…15a3 at0009 = ╱4c╱L╱ // 0x1599 @0x9
0x1590…15a3 at000a = ╱49╱I╱ // 0x159a @0xa
0x1590…15a3 at000b = ╱4e╱N╱ // 0x159b @0xb
0x1590…15a3 at000c = ╱f0╱ := ╱ // 0x159c @0xc
0x1590…15a3 at000d = ╱32╱2╱ // 0x159d @0xd
0x1590…15a3 at000e = ╱34╱4╱ // 0x159e @0xe
0x1590…15a3 at000f = ╱f21800╱ // 0x159f @0xf
0x1590…15a3 at0012 = EOL // 0x15a2 @0x12
0x1590…15a3 }
0x15a3…15a9 ab97 02220 ENDIF
0x15a3…15a9 LineComal80 {
0x15a3…15a9 ptr = 0xab97 // 0x15a3 @0x0
0x15a3…15a9 lno = 0x08ac // 0x15a5 @0x2
0x15a3…15a9 at0004 = ╱9c╱ ENDIF ╱ // 0x15a7 @0x4
0x15a3…15a9 at0005 = EOL // 0x15a8 @0x5
0x15a3…15a9 }
0x15a9…15c3 abb1 02230 FOR IDXPOS := F_IDX TO _IDX DO
0x15a9…15c3 LineComal80 {
0x15a9…15c3 ptr = 0xabb1 // 0x15a9 @0x0
0x15a9…15c3 lno = 0x08b6 // 0x15ab @0x2
0x15a9…15c3 at0004 = ╱8322╱ FOR ╱ // 0x15ad @0x4
0x15a9…15c3 at0006 = ╱49╱I╱ // 0x15af @0x6
0x15a9…15c3 at0007 = ╱44╱D╱ // 0x15b0 @0x7
0x15a9…15c3 at0008 = ╱58╱X╱ // 0x15b1 @0x8
0x15a9…15c3 at0009 = ╱50╱P╱ // 0x15b2 @0x9
0x15a9…15c3 at000a = ╱4f╱O╱ // 0x15b3 @0xa
0x15a9…15c3 at000b = ╱53╱S╱ // 0x15b4 @0xb
0x15a9…15c3 at000c = ╱f0╱ := ╱ // 0x15b5 @0xc
0x15a9…15c3 at000d = ╱46╱F╱ // 0x15b6 @0xd
0x15a9…15c3 at000e = ╱5f╱_╱ // 0x15b7 @0xe
0x15a9…15c3 at000f = ╱49╱I╱ // 0x15b8 @0xf
0x15a9…15c3 at0010 = ╱44╱D╱ // 0x15b9 @0x10
0x15a9…15c3 at0011 = ╱58╱X╱ // 0x15ba @0x11
0x15a9…15c3 at0012 = ╱b754╱ TO ╱ // 0x15bb @0x12
0x15a9…15c3 at0014 = ╱5f╱_╱ // 0x15bd @0x14
0x15a9…15c3 at0015 = ╱49╱I╱ // 0x15be @0x15
0x15a9…15c3 at0016 = ╱44╱D╱ // 0x15bf @0x16
0x15a9…15c3 at0017 = ╱58╱X╱ // 0x15c0 @0x17
0x15a9…15c3 at0018 = ╱bb╱ DO ╱ // 0x15c1 @0x18
0x15a9…15c3 at0019 = EOL // 0x15c2 @0x19
0x15a9…15c3 }
0x15c3…15f9 abe7 02240 LET SIDENR := 0 ; TOT ( 1 ) , TOT ( 2 ) := 0 ; LIN_T := 40
0x15c3…15f9 LineComal80 {
0x15c3…15f9 ptr = 0xabe7 // 0x15c3 @0x0
0x15c3…15f9 lno = 0x08c0 // 0x15c5 @0x2
0x15c3…15f9 at0004 = ╱86╱ LET ╱ // 0x15c7 @0x4
0x15c3…15f9 at0005 = ╱53╱S╱ // 0x15c8 @0x5
0x15c3…15f9 at0006 = ╱49╱I╱ // 0x15c9 @0x6
0x15c3…15f9 at0007 = ╱44╱D╱ // 0x15ca @0x7
0x15c3…15f9 at0008 = ╱45╱E╱ // 0x15cb @0x8
0x15c3…15f9 at0009 = ╱4e╱N╱ // 0x15cc @0x9
0x15c3…15f9 at000a = ╱52╱R╱ // 0x15cd @0xa
0x15c3…15f9 at000b = ╱f0╱ := ╱ // 0x15ce @0xb
0x15c3…15f9 at000c = ╱30╱0╱ // 0x15cf @0xc
0x15c3…15f9 at000d = ╱f20000╱ // 0x15d0 @0xd
0x15c3…15f9 at0010 = ╱ea╱ ; ╱ // 0x15d3 @0x10
0x15c3…15f9 at0011 = ╱54╱T╱ // 0x15d4 @0x11
0x15c3…15f9 at0012 = ╱4f╱O╱ // 0x15d5 @0x12
0x15c3…15f9 at0013 = ╱54╱T╱ // 0x15d6 @0x13
0x15c3…15f9 at0014 = ╱ed╱ ( ╱ // 0x15d7 @0x14
0x15c3…15f9 at0015 = ╱31╱1╱ // 0x15d8 @0x15
0x15c3…15f9 at0016 = ╱f20100╱ // 0x15d9 @0x16
0x15c3…15f9 at0019 = ╱ee╱ ) ╱ // 0x15dc @0x19
0x15c3…15f9 at001a = ╱ec╱ , ╱ // 0x15dd @0x1a
0x15c3…15f9 at001b = ╱54╱T╱ // 0x15de @0x1b
0x15c3…15f9 at001c = ╱4f╱O╱ // 0x15df @0x1c
0x15c3…15f9 at001d = ╱54╱T╱ // 0x15e0 @0x1d
0x15c3…15f9 at001e = ╱ed╱ ( ╱ // 0x15e1 @0x1e
0x15c3…15f9 at001f = ╱32╱2╱ // 0x15e2 @0x1f
0x15c3…15f9 at0020 = ╱f20200╱ // 0x15e3 @0x20
0x15c3…15f9 at0023 = ╱ee╱ ) ╱ // 0x15e6 @0x23
0x15c3…15f9 at0024 = ╱f0╱ := ╱ // 0x15e7 @0x24
0x15c3…15f9 at0025 = ╱30╱0╱ // 0x15e8 @0x25
0x15c3…15f9 at0026 = ╱f20000╱ // 0x15e9 @0x26
0x15c3…15f9 at0029 = ╱ea╱ ; ╱ // 0x15ec @0x29
0x15c3…15f9 at002a = ╱4c╱L╱ // 0x15ed @0x2a
0x15c3…15f9 at002b = ╱49╱I╱ // 0x15ee @0x2b
0x15c3…15f9 at002c = ╱4e╱N╱ // 0x15ef @0x2c
0x15c3…15f9 at002d = ╱5f╱_╱ // 0x15f0 @0x2d
0x15c3…15f9 at002e = ╱54╱T╱ // 0x15f1 @0x2e
0x15c3…15f9 at002f = ╱f0╱ := ╱ // 0x15f2 @0x2f
0x15c3…15f9 at0030 = ╱34╱4╱ // 0x15f3 @0x30
0x15c3…15f9 at0031 = ╱30╱0╱ // 0x15f4 @0x31
0x15c3…15f9 at0032 = ╱f22800╱ // 0x15f5 @0x32
0x15c3…15f9 at0035 = EOL // 0x15f8 @0x35
0x15c3…15f9 }
0x15f9…161a ac08 02250 GET KTOIDX $ , IDXPOS : KTONR $ , RECNR
0x15f9…161a LineComal80 {
0x15f9…161a ptr = 0xac08 // 0x15f9 @0x0
0x15f9…161a lno = 0x08ca // 0x15fb @0x2
0x15f9…161a at0004 = ╱a9╱ GET ╱ // 0x15fd @0x4
0x15f9…161a at0005 = ╱4b╱K╱ // 0x15fe @0x5
0x15f9…161a at0006 = ╱54╱T╱ // 0x15ff @0x6
0x15f9…161a at0007 = ╱4f╱O╱ // 0x1600 @0x7
0x15f9…161a at0008 = ╱49╱I╱ // 0x1601 @0x8
0x15f9…161a at0009 = ╱44╱D╱ // 0x1602 @0x9
0x15f9…161a at000a = ╱58╱X╱ // 0x1603 @0xa
0x15f9…161a at000b = ╱ef╱ $ ╱ // 0x1604 @0xb
0x15f9…161a at000c = ╱ec╱ , ╱ // 0x1605 @0xc
0x15f9…161a at000d = ╱49╱I╱ // 0x1606 @0xd
0x15f9…161a at000e = ╱44╱D╱ // 0x1607 @0xe
0x15f9…161a at000f = ╱58╱X╱ // 0x1608 @0xf
0x15f9…161a at0010 = ╱50╱P╱ // 0x1609 @0x10
0x15f9…161a at0011 = ╱4f╱O╱ // 0x160a @0x11
0x15f9…161a at0012 = ╱53╱S╱ // 0x160b @0x12
0x15f9…161a at0013 = ╱f1╱ : ╱ // 0x160c @0x13
0x15f9…161a at0014 = ╱4b╱K╱ // 0x160d @0x14
0x15f9…161a at0015 = ╱54╱T╱ // 0x160e @0x15
0x15f9…161a at0016 = ╱4f╱O╱ // 0x160f @0x16
0x15f9…161a at0017 = ╱4e╱N╱ // 0x1610 @0x17
0x15f9…161a at0018 = ╱52╱R╱ // 0x1611 @0x18
0x15f9…161a at0019 = ╱ef╱ $ ╱ // 0x1612 @0x19
0x15f9…161a at001a = ╱ec╱ , ╱ // 0x1613 @0x1a
0x15f9…161a at001b = ╱52╱R╱ // 0x1614 @0x1b
0x15f9…161a at001c = ╱45╱E╱ // 0x1615 @0x1c
0x15f9…161a at001d = ╱43╱C╱ // 0x1616 @0x1d
0x15f9…161a at001e = ╱4e╱N╱ // 0x1617 @0x1e
0x15f9…161a at001f = ╱52╱R╱ // 0x1618 @0x1f
0x15f9…161a at0020 = EOL // 0x1619 @0x20
0x15f9…161a }
0x161a…1630 ac1e 02260 EXEC L[S_KONTO ( RECNR )
0x161a…1630 LineComal80 {
0x161a…1630 ptr = 0xac1e // 0x161a @0x0
0x161a…1630 lno = 0x08d4 // 0x161c @0x2
0x161a…1630 at0004 = ╱9d╱ EXEC ╱ // 0x161e @0x4
0x161a…1630 at0005 = ╱4c╱L╱ // 0x161f @0x5
0x161a…1630 at0006 = ╱5b╱[╱ // 0x1620 @0x6
0x161a…1630 at0007 = ╱53╱S╱ // 0x1621 @0x7
0x161a…1630 at0008 = ╱5f╱_╱ // 0x1622 @0x8
0x161a…1630 at0009 = ╱4b╱K╱ // 0x1623 @0x9
0x161a…1630 at000a = ╱4f╱O╱ // 0x1624 @0xa
0x161a…1630 at000b = ╱4e╱N╱ // 0x1625 @0xb
0x161a…1630 at000c = ╱54╱T╱ // 0x1626 @0xc
0x161a…1630 at000d = ╱4f╱O╱ // 0x1627 @0xd
0x161a…1630 at000e = ╱ed╱ ( ╱ // 0x1628 @0xe
0x161a…1630 at000f = ╱52╱R╱ // 0x1629 @0xf
0x161a…1630 at0010 = ╱45╱E╱ // 0x162a @0x10
0x161a…1630 at0011 = ╱43╱C╱ // 0x162b @0x11
0x161a…1630 at0012 = ╱4e╱N╱ // 0x162c @0x12
0x161a…1630 at0013 = ╱52╱R╱ // 0x162d @0x13
0x161a…1630 at0014 = ╱ee╱ ) ╱ // 0x162e @0x14
0x161a…1630 at0015 = EOL // 0x162f @0x15
0x161a…1630 }
0x1630…1645 bd1e 02270 IF TO_TYPE $ = "A" THEN
0x1630…1645 LineComal80 {
0x1630…1645 ptr = 0xbd1e // 0x1630 @0x0
0x1630…1645 lno = 0x08de // 0x1632 @0x2
0x1630…1645 at0004 = ╱9b234b╱ IF ╱ // 0x1634 @0x4
0x1630…1645 at0007 = ╱54╱T╱ // 0x1637 @0x7
0x1630…1645 at0008 = ╱4f╱O╱ // 0x1638 @0x8
0x1630…1645 at0009 = ╱5f╱_╱ // 0x1639 @0x9
0x1630…1645 at000a = ╱54╱T╱ // 0x163a @0xa
0x1630…1645 at000b = ╱59╱Y╱ // 0x163b @0xb
0x1630…1645 at000c = ╱50╱P╱ // 0x163c @0xc
0x1630…1645 at000d = ╱45╱E╱ // 0x163d @0xd
0x1630…1645 at000e = ╱ef╱ $ ╱ // 0x163e @0xe
0x1630…1645 at000f = ╱df╱ = ╱ // 0x163f @0xf
0x1630…1645 at0010 = ╱22╱"╱ // 0x1640 @0x10
0x1630…1645 at0011 = ╱41╱A╱ // 0x1641 @0x11
0x1630…1645 at0012 = ╱22╱"╱ // 0x1642 @0x12
0x1630…1645 at0013 = ╱b5╱ THEN ╱ // 0x1643 @0x13
0x1630…1645 at0014 = EOL // 0x1644 @0x14
0x1630…1645 }
0x1645…166b ac59 02270 LET BLGNR $ := "……" ; BTXT $ := "GAMMEL…SALDO"
0x1645…166b LineComal80 {
0x1645…166b ptr = 0xac59 // 0x1645 @0x0
0x1645…166b lno = 0x08de // 0x1647 @0x2
0x1645…166b at0004 = ╱86╱ LET ╱ // 0x1649 @0x4
0x1645…166b at0005 = ╱42╱B╱ // 0x164a @0x5
0x1645…166b at0006 = ╱4c╱L╱ // 0x164b @0x6
0x1645…166b at0007 = ╱47╱G╱ // 0x164c @0x7
0x1645…166b at0008 = ╱4e╱N╱ // 0x164d @0x8
0x1645…166b at0009 = ╱52╱R╱ // 0x164e @0x9
0x1645…166b at000a = ╱ef╱ $ ╱ // 0x164f @0xa
0x1645…166b at000b = ╱f0╱ := ╱ // 0x1650 @0xb
0x1645…166b at000c = ╱22╱"╱ // 0x1651 @0xc
0x1645…166b at000d = ╱20╱…╱ // 0x1652 @0xd
0x1645…166b at000e = ╱20╱…╱ // 0x1653 @0xe
0x1645…166b at000f = ╱22╱"╱ // 0x1654 @0xf
0x1645…166b at0010 = ╱ea╱ ; ╱ // 0x1655 @0x10
0x1645…166b at0011 = ╱42╱B╱ // 0x1656 @0x11
0x1645…166b at0012 = ╱54╱T╱ // 0x1657 @0x12
0x1645…166b at0013 = ╱58╱X╱ // 0x1658 @0x13
0x1645…166b at0014 = ╱54╱T╱ // 0x1659 @0x14
0x1645…166b at0015 = ╱ef╱ $ ╱ // 0x165a @0x15
0x1645…166b at0016 = ╱f0╱ := ╱ // 0x165b @0x16
0x1645…166b at0017 = ╱22╱"╱ // 0x165c @0x17
0x1645…166b at0018 = ╱47╱G╱ // 0x165d @0x18
0x1645…166b at0019 = ╱41╱A╱ // 0x165e @0x19
0x1645…166b at001a = ╱4d╱M╱ // 0x165f @0x1a
0x1645…166b at001b = ╱4d╱M╱ // 0x1660 @0x1b
0x1645…166b at001c = ╱45╱E╱ // 0x1661 @0x1c
0x1645…166b at001d = ╱4c╱L╱ // 0x1662 @0x1d
0x1645…166b at001e = ╱20╱…╱ // 0x1663 @0x1e
0x1645…166b at001f = ╱53╱S╱ // 0x1664 @0x1f
0x1645…166b at0020 = ╱41╱A╱ // 0x1665 @0x20
0x1645…166b at0021 = ╱4c╱L╱ // 0x1666 @0x21
0x1645…166b at0022 = ╱44╱D╱ // 0x1667 @0x22
0x1645…166b at0023 = ╱4f╱O╱ // 0x1668 @0x23
0x1645…166b at0024 = ╱22╱"╱ // 0x1669 @0x24
0x1645…166b at0025 = EOL // 0x166a @0x25
0x1645…166b }
0x166b…168b ac79 02280 LET BMOMS := 0 ; DK := SGN ( KTO_PRIMO )
0x166b…168b LineComal80 {
0x166b…168b ptr = 0xac79 // 0x166b @0x0
0x166b…168b lno = 0x08e8 // 0x166d @0x2
0x166b…168b at0004 = ╱86╱ LET ╱ // 0x166f @0x4
0x166b…168b at0005 = ╱42╱B╱ // 0x1670 @0x5
0x166b…168b at0006 = ╱4d╱M╱ // 0x1671 @0x6
0x166b…168b at0007 = ╱4f╱O╱ // 0x1672 @0x7
0x166b…168b at0008 = ╱4d╱M╱ // 0x1673 @0x8
0x166b…168b at0009 = ╱53╱S╱ // 0x1674 @0x9
0x166b…168b at000a = ╱f0╱ := ╱ // 0x1675 @0xa
0x166b…168b at000b = ╱30╱0╱ // 0x1676 @0xb
0x166b…168b at000c = ╱f20000╱ // 0x1677 @0xc
0x166b…168b at000f = ╱ea╱ ; ╱ // 0x167a @0xf
0x166b…168b at0010 = ╱44╱D╱ // 0x167b @0x10
0x166b…168b at0011 = ╱4b╱K╱ // 0x167c @0x11
0x166b…168b at0012 = ╱f0╱ := ╱ // 0x167d @0x12
0x166b…168b at0013 = ╱c8╱ SGN ╱ // 0x167e @0x13
0x166b…168b at0014 = ╱ed╱ ( ╱ // 0x167f @0x14
0x166b…168b at0015 = ╱4b╱K╱ // 0x1680 @0x15
0x166b…168b at0016 = ╱54╱T╱ // 0x1681 @0x16
0x166b…168b at0017 = ╱4f╱O╱ // 0x1682 @0x17
0x166b…168b at0018 = ╱5f╱_╱ // 0x1683 @0x18
0x166b…168b at0019 = ╱50╱P╱ // 0x1684 @0x19
0x166b…168b at001a = ╱52╱R╱ // 0x1685 @0x1a
0x166b…168b at001b = ╱49╱I╱ // 0x1686 @0x1b
0x166b…168b at001c = ╱4d╱M╱ // 0x1687 @0x1c
0x166b…168b at001d = ╱4f╱O╱ // 0x1688 @0x1d
0x166b…168b at001e = ╱ee╱ ) ╱ // 0x1689 @0x1e
0x166b…168b at001f = EOL // 0x168a @0x1f
0x166b…168b }
0x168b…16a7 ac95 02300 LET KTO_PRIMO := ABS ( KTO_PRIMO )
0x168b…16a7 LineComal80 {
0x168b…16a7 ptr = 0xac95 // 0x168b @0x0
0x168b…16a7 lno = 0x08fc // 0x168d @0x2
0x168b…16a7 at0004 = ╱86╱ LET ╱ // 0x168f @0x4
0x168b…16a7 at0005 = ╱4b╱K╱ // 0x1690 @0x5
0x168b…16a7 at0006 = ╱54╱T╱ // 0x1691 @0x6
0x168b…16a7 at0007 = ╱4f╱O╱ // 0x1692 @0x7
0x168b…16a7 at0008 = ╱5f╱_╱ // 0x1693 @0x8
0x168b…16a7 at0009 = ╱50╱P╱ // 0x1694 @0x9
0x168b…16a7 at000a = ╱52╱R╱ // 0x1695 @0xa
0x168b…16a7 at000b = ╱49╱I╱ // 0x1696 @0xb
0x168b…16a7 at000c = ╱4d╱M╱ // 0x1697 @0xc
0x168b…16a7 at000d = ╱4f╱O╱ // 0x1698 @0xd
0x168b…16a7 at000e = ╱f0╱ := ╱ // 0x1699 @0xe
0x168b…16a7 at000f = ╱c4╱ ABS ╱ // 0x169a @0xf
0x168b…16a7 at0010 = ╱ed╱ ( ╱ // 0x169b @0x10
0x168b…16a7 at0011 = ╱4b╱K╱ // 0x169c @0x11
0x168b…16a7 at0012 = ╱54╱T╱ // 0x169d @0x12
0x168b…16a7 at0013 = ╱4f╱O╱ // 0x169e @0x13
0x168b…16a7 at0014 = ╱5f╱_╱ // 0x169f @0x14
0x168b…16a7 at0015 = ╱50╱P╱ // 0x16a0 @0x15
0x168b…16a7 at0016 = ╱52╱R╱ // 0x16a1 @0x16
0x168b…16a7 at0017 = ╱49╱I╱ // 0x16a2 @0x17
0x168b…16a7 at0018 = ╱4d╱M╱ // 0x16a3 @0x18
0x168b…16a7 at0019 = ╱4f╱O╱ // 0x16a4 @0x19
0x168b…16a7 at001a = ╱ee╱ ) ╱ // 0x16a5 @0x1a
0x168b…16a7 at001b = EOL // 0x16a6 @0x1b
0x168b…16a7 }
0x16a7…16e0 acce 02310 EXEC SKRIV_LIN ( ST_DATO $ , BLGNR $ , BTXT $ , BMOMS , KTO_PRIMO , DK )
0x16a7…16e0 LineComal80 {
0x16a7…16e0 ptr = 0xacce // 0x16a7 @0x0
0x16a7…16e0 lno = 0x0906 // 0x16a9 @0x2
0x16a7…16e0 at0004 = ╱9d╱ EXEC ╱ // 0x16ab @0x4
0x16a7…16e0 at0005 = ╱53╱S╱ // 0x16ac @0x5
0x16a7…16e0 at0006 = ╱4b╱K╱ // 0x16ad @0x6
0x16a7…16e0 at0007 = ╱52╱R╱ // 0x16ae @0x7
0x16a7…16e0 at0008 = ╱49╱I╱ // 0x16af @0x8
0x16a7…16e0 at0009 = ╱56╱V╱ // 0x16b0 @0x9
0x16a7…16e0 at000a = ╱5f╱_╱ // 0x16b1 @0xa
0x16a7…16e0 at000b = ╱4c╱L╱ // 0x16b2 @0xb
0x16a7…16e0 at000c = ╱49╱I╱ // 0x16b3 @0xc
0x16a7…16e0 at000d = ╱4e╱N╱ // 0x16b4 @0xd
0x16a7…16e0 at000e = ╱ed╱ ( ╱ // 0x16b5 @0xe
0x16a7…16e0 at000f = ╱53╱S╱ // 0x16b6 @0xf
0x16a7…16e0 at0010 = ╱54╱T╱ // 0x16b7 @0x10
0x16a7…16e0 at0011 = ╱5f╱_╱ // 0x16b8 @0x11
0x16a7…16e0 at0012 = ╱44╱D╱ // 0x16b9 @0x12
0x16a7…16e0 at0013 = ╱41╱A╱ // 0x16ba @0x13
0x16a7…16e0 at0014 = ╱54╱T╱ // 0x16bb @0x14
0x16a7…16e0 at0015 = ╱4f╱O╱ // 0x16bc @0x15
0x16a7…16e0 at0016 = ╱ef╱ $ ╱ // 0x16bd @0x16
0x16a7…16e0 at0017 = ╱ec╱ , ╱ // 0x16be @0x17
0x16a7…16e0 at0018 = ╱42╱B╱ // 0x16bf @0x18
0x16a7…16e0 at0019 = ╱4c╱L╱ // 0x16c0 @0x19
0x16a7…16e0 at001a = ╱47╱G╱ // 0x16c1 @0x1a
0x16a7…16e0 at001b = ╱4e╱N╱ // 0x16c2 @0x1b
0x16a7…16e0 at001c = ╱52╱R╱ // 0x16c3 @0x1c
0x16a7…16e0 at001d = ╱ef╱ $ ╱ // 0x16c4 @0x1d
0x16a7…16e0 at001e = ╱ec╱ , ╱ // 0x16c5 @0x1e
0x16a7…16e0 at001f = ╱42╱B╱ // 0x16c6 @0x1f
0x16a7…16e0 at0020 = ╱54╱T╱ // 0x16c7 @0x20
0x16a7…16e0 at0021 = ╱58╱X╱ // 0x16c8 @0x21
0x16a7…16e0 at0022 = ╱54╱T╱ // 0x16c9 @0x22
0x16a7…16e0 at0023 = ╱ef╱ $ ╱ // 0x16ca @0x23
0x16a7…16e0 at0024 = ╱ec╱ , ╱ // 0x16cb @0x24
0x16a7…16e0 at0025 = ╱42╱B╱ // 0x16cc @0x25
0x16a7…16e0 at0026 = ╱4d╱M╱ // 0x16cd @0x26
0x16a7…16e0 at0027 = ╱4f╱O╱ // 0x16ce @0x27
0x16a7…16e0 at0028 = ╱4d╱M╱ // 0x16cf @0x28
0x16a7…16e0 at0029 = ╱53╱S╱ // 0x16d0 @0x29
0x16a7…16e0 at002a = ╱ec╱ , ╱ // 0x16d1 @0x2a
0x16a7…16e0 at002b = ╱4b╱K╱ // 0x16d2 @0x2b
0x16a7…16e0 at002c = ╱54╱T╱ // 0x16d3 @0x2c
0x16a7…16e0 at002d = ╱4f╱O╱ // 0x16d4 @0x2d
0x16a7…16e0 at002e = ╱5f╱_╱ // 0x16d5 @0x2e
0x16a7…16e0 at002f = ╱50╱P╱ // 0x16d6 @0x2f
0x16a7…16e0 at0030 = ╱52╱R╱ // 0x16d7 @0x30
0x16a7…16e0 at0031 = ╱49╱I╱ // 0x16d8 @0x31
0x16a7…16e0 at0032 = ╱4d╱M╱ // 0x16d9 @0x32
0x16a7…16e0 at0033 = ╱4f╱O╱ // 0x16da @0x33
0x16a7…16e0 at0034 = ╱ec╱ , ╱ // 0x16db @0x34
0x16a7…16e0 at0035 = ╱44╱D╱ // 0x16dc @0x35
0x16a7…16e0 at0036 = ╱4b╱K╱ // 0x16dd @0x36
0x16a7…16e0 at0037 = ╱ee╱ ) ╱ // 0x16de @0x37
0x16a7…16e0 at0038 = EOL // 0x16df @0x38
0x16a7…16e0 }
0x16e0…16f3 ace1 02320 IF TO_FP > 0 THEN
0x16e0…16f3 LineComal80 {
0x16e0…16f3 ptr = 0xace1 // 0x16e0 @0x0
0x16e0…16f3 lno = 0x0910 // 0x16e2 @0x2
0x16e0…16f3 at0004 = ╱9b244b╱ IF ╱ // 0x16e4 @0x4
0x16e0…16f3 at0007 = ╱54╱T╱ // 0x16e7 @0x7
0x16e0…16f3 at0008 = ╱4f╱O╱ // 0x16e8 @0x8
0x16e0…16f3 at0009 = ╱5f╱_╱ // 0x16e9 @0x9
0x16e0…16f3 at000a = ╱46╱F╱ // 0x16ea @0xa
0x16e0…16f3 at000b = ╱50╱P╱ // 0x16eb @0xb
0x16e0…16f3 at000c = ╱e1╱ > ╱ // 0x16ec @0xc
0x16e0…16f3 at000d = ╱30╱0╱ // 0x16ed @0xd
0x16e0…16f3 at000e = ╱f20000╱ // 0x16ee @0xe
0x16e0…16f3 at0011 = ╱b5╱ THEN ╱ // 0x16f1 @0x11
0x16e0…16f3 at0012 = EOL // 0x16f2 @0x12
0x16e0…16f3 }
0x16f3…1706 acf4 02330 LET NTRANS := KTO_FP
0x16f3…1706 LineComal80 {
0x16f3…1706 ptr = 0xacf4 // 0x16f3 @0x0
0x16f3…1706 lno = 0x091a // 0x16f5 @0x2
0x16f3…1706 at0004 = ╱86╱ LET ╱ // 0x16f7 @0x4
0x16f3…1706 at0005 = ╱4e╱N╱ // 0x16f8 @0x5
0x16f3…1706 at0006 = ╱54╱T╱ // 0x16f9 @0x6
0x16f3…1706 at0007 = ╱52╱R╱ // 0x16fa @0x7
0x16f3…1706 at0008 = ╱41╱A╱ // 0x16fb @0x8
0x16f3…1706 at0009 = ╱4e╱N╱ // 0x16fc @0x9
0x16f3…1706 at000a = ╱53╱S╱ // 0x16fd @0xa
0x16f3…1706 at000b = ╱f0╱ := ╱ // 0x16fe @0xb
0x16f3…1706 at000c = ╱4b╱K╱ // 0x16ff @0xc
0x16f3…1706 at000d = ╱54╱T╱ // 0x1700 @0xd
0x16f3…1706 at000e = ╱4f╱O╱ // 0x1701 @0xe
0x16f3…1706 at000f = ╱5f╱_╱ // 0x1702 @0xf
0x16f3…1706 at0010 = ╱46╱F╱ // 0x1703 @0x10
0x16f3…1706 at0011 = ╱50╱P╱ // 0x1704 @0x11
0x16f3…1706 at0012 = EOL // 0x1705 @0x12
0x16f3…1706 }
0x1706…170d acfb 02340 REPEAT
0x1706…170d LineComal80 {
0x1706…170d ptr = 0xacfb // 0x1706 @0x0
0x1706…170d lno = 0x0924 // 0x1708 @0x2
0x1706…170d at0004 = ╱9725╱ REPEAT ╱ // 0x170a @0x4
0x1706…170d at0006 = EOL // 0x170c @0x6
0x1706…170d }
0x170d…1724 bd44 02350 EXEC L[S_TRANS ( NTRANS )
0x170d…1724 LineComal80 {
0x170d…1724 ptr = 0xbd44 // 0x170d @0x0
0x170d…1724 lno = 0x092e // 0x170f @0x2
0x170d…1724 at0004 = ╱9d╱ EXEC ╱ // 0x1711 @0x4
0x170d…1724 at0005 = ╱4c╱L╱ // 0x1712 @0x5
0x170d…1724 at0006 = ╱5b╱[╱ // 0x1713 @0x6
0x170d…1724 at0007 = ╱53╱S╱ // 0x1714 @0x7
0x170d…1724 at0008 = ╱5f╱_╱ // 0x1715 @0x8
0x170d…1724 at0009 = ╱54╱T╱ // 0x1716 @0x9
0x170d…1724 at000a = ╱52╱R╱ // 0x1717 @0xa
0x170d…1724 at000b = ╱41╱A╱ // 0x1718 @0xb
0x170d…1724 at000c = ╱4e╱N╱ // 0x1719 @0xc
0x170d…1724 at000d = ╱53╱S╱ // 0x171a @0xd
0x170d…1724 at000e = ╱ed╱ ( ╱ // 0x171b @0xe
0x170d…1724 at000f = ╱4e╱N╱ // 0x171c @0xf
0x170d…1724 at0010 = ╱54╱T╱ // 0x171d @0x10
0x170d…1724 at0011 = ╱52╱R╱ // 0x171e @0x11
0x170d…1724 at0012 = ╱41╱A╱ // 0x171f @0x12
0x170d…1724 at0013 = ╱4e╱N╱ // 0x1720 @0x13
0x170d…1724 at0014 = ╱53╱S╱ // 0x1721 @0x14
0x170d…1724 at0015 = ╱ee╱ ) ╱ // 0x1722 @0x15
0x170d…1724 at0016 = EOL // 0x1723 @0x16
0x170d…1724 }
0x1724…1758 ad46 02410 EXEC SKRIV_LIN ( BDATO $ , BLGNR $ , BTXT $ , BMOMS , BBEL\B , DK )
0x1724…1758 LineComal80 {
0x1724…1758 ptr = 0xad46 // 0x1724 @0x0
0x1724…1758 lno = 0x096a // 0x1726 @0x2
0x1724…1758 at0004 = ╱9d╱ EXEC ╱ // 0x1728 @0x4
0x1724…1758 at0005 = ╱53╱S╱ // 0x1729 @0x5
0x1724…1758 at0006 = ╱4b╱K╱ // 0x172a @0x6
0x1724…1758 at0007 = ╱52╱R╱ // 0x172b @0x7
0x1724…1758 at0008 = ╱49╱I╱ // 0x172c @0x8
0x1724…1758 at0009 = ╱56╱V╱ // 0x172d @0x9
0x1724…1758 at000a = ╱5f╱_╱ // 0x172e @0xa
0x1724…1758 at000b = ╱4c╱L╱ // 0x172f @0xb
0x1724…1758 at000c = ╱49╱I╱ // 0x1730 @0xc
0x1724…1758 at000d = ╱4e╱N╱ // 0x1731 @0xd
0x1724…1758 at000e = ╱ed╱ ( ╱ // 0x1732 @0xe
0x1724…1758 at000f = ╱42╱B╱ // 0x1733 @0xf
0x1724…1758 at0010 = ╱44╱D╱ // 0x1734 @0x10
0x1724…1758 at0011 = ╱41╱A╱ // 0x1735 @0x11
0x1724…1758 at0012 = ╱54╱T╱ // 0x1736 @0x12
0x1724…1758 at0013 = ╱4f╱O╱ // 0x1737 @0x13
0x1724…1758 at0014 = ╱ef╱ $ ╱ // 0x1738 @0x14
0x1724…1758 at0015 = ╱ec╱ , ╱ // 0x1739 @0x15
0x1724…1758 at0016 = ╱42╱B╱ // 0x173a @0x16
0x1724…1758 at0017 = ╱4c╱L╱ // 0x173b @0x17
0x1724…1758 at0018 = ╱47╱G╱ // 0x173c @0x18
0x1724…1758 at0019 = ╱4e╱N╱ // 0x173d @0x19
0x1724…1758 at001a = ╱52╱R╱ // 0x173e @0x1a
0x1724…1758 at001b = ╱ef╱ $ ╱ // 0x173f @0x1b
0x1724…1758 at001c = ╱ec╱ , ╱ // 0x1740 @0x1c
0x1724…1758 at001d = ╱42╱B╱ // 0x1741 @0x1d
0x1724…1758 at001e = ╱54╱T╱ // 0x1742 @0x1e
0x1724…1758 at001f = ╱58╱X╱ // 0x1743 @0x1f
0x1724…1758 at0020 = ╱54╱T╱ // 0x1744 @0x20
0x1724…1758 at0021 = ╱ef╱ $ ╱ // 0x1745 @0x21
0x1724…1758 at0022 = ╱ec╱ , ╱ // 0x1746 @0x22
0x1724…1758 at0023 = ╱42╱B╱ // 0x1747 @0x23
0x1724…1758 at0024 = ╱4d╱M╱ // 0x1748 @0x24
0x1724…1758 at0025 = ╱4f╱O╱ // 0x1749 @0x25
0x1724…1758 at0026 = ╱4d╱M╱ // 0x174a @0x26
0x1724…1758 at0027 = ╱53╱S╱ // 0x174b @0x27
0x1724…1758 at0028 = ╱ec╱ , ╱ // 0x174c @0x28
0x1724…1758 at0029 = ╱42╱B╱ // 0x174d @0x29
0x1724…1758 at002a = ╱42╱B╱ // 0x174e @0x2a
0x1724…1758 at002b = ╱45╱E╱ // 0x174f @0x2b
0x1724…1758 at002c = ╱4c╱L╱ // 0x1750 @0x2c
0x1724…1758 at002d = ╱5c╱\╱ // 0x1751 @0x2d
0x1724…1758 at002e = ╱42╱B╱ // 0x1752 @0x2e
0x1724…1758 at002f = ╱ec╱ , ╱ // 0x1753 @0x2f
0x1724…1758 at0030 = ╱44╱D╱ // 0x1754 @0x30
0x1724…1758 at0031 = ╱4b╱K╱ // 0x1755 @0x31
0x1724…1758 at0032 = ╱ee╱ ) ╱ // 0x1756 @0x32
0x1724…1758 at0033 = EOL // 0x1757 @0x33
0x1724…1758 }
0x1758…1769 ad57 02420 UNTIL NTRANS = 0
0x1758…1769 LineComal80 {
0x1758…1769 ptr = 0xad57 // 0x1758 @0x0
0x1758…1769 lno = 0x0974 // 0x175a @0x2
0x1758…1769 at0004 = ╱98╱ UNTIL ╱ // 0x175c @0x4
0x1758…1769 at0005 = ╱4e╱N╱ // 0x175d @0x5
0x1758…1769 at0006 = ╱54╱T╱ // 0x175e @0x6
0x1758…1769 at0007 = ╱52╱R╱ // 0x175f @0x7
0x1758…1769 at0008 = ╱41╱A╱ // 0x1760 @0x8
0x1758…1769 at0009 = ╱4e╱N╱ // 0x1761 @0x9
0x1758…1769 at000a = ╱53╱S╱ // 0x1762 @0xa
0x1758…1769 at000b = ╱df╱ = ╱ // 0x1763 @0xb
0x1758…1769 at000c = ╱30╱0╱ // 0x1764 @0xc
0x1758…1769 at000d = ╱f20000╱ // 0x1765 @0xd
0x1758…1769 at0010 = EOL // 0x1768 @0x10
0x1758…1769 }
0x1769…176f ad5d 02430 ENDIF
0x1769…176f LineComal80 {
0x1769…176f ptr = 0xad5d // 0x1769 @0x0
0x1769…176f lno = 0x097e // 0x176b @0x2
0x1769…176f at0004 = ╱9c╱ ENDIF ╱ // 0x176d @0x4
0x1769…176f at0005 = EOL // 0x176e @0x5
0x1769…176f }
0x176f…177b ad69 02440 EXEC AFSLUT
0x176f…177b LineComal80 {
0x176f…177b ptr = 0xad69 // 0x176f @0x0
0x176f…177b lno = 0x0988 // 0x1771 @0x2
0x176f…177b at0004 = ╱9d╱ EXEC ╱ // 0x1773 @0x4
0x176f…177b at0005 = ╱41╱A╱ // 0x1774 @0x5
0x176f…177b at0006 = ╱46╱F╱ // 0x1775 @0x6
0x176f…177b at0007 = ╱53╱S╱ // 0x1776 @0x7
0x176f…177b at0008 = ╱4c╱L╱ // 0x1777 @0x8
0x176f…177b at0009 = ╱55╱U╱ // 0x1778 @0x9
0x176f…177b at000a = ╱54╱T╱ // 0x1779 @0xa
0x176f…177b at000b = EOL // 0x177a @0xb
0x176f…177b }
0x177b…1781 ad6f 02450 ENDIF
0x177b…1781 LineComal80 {
0x177b…1781 ptr = 0xad6f // 0x177b @0x0
0x177b…1781 lno = 0x0992 // 0x177d @0x2
0x177b…1781 at0004 = ╱9c╱ ENDIF ╱ // 0x177f @0x4
0x177b…1781 at0005 = EOL // 0x1780 @0x5
0x177b…1781 }
0x1781…178d ad7b 02460 NEXT IDXPOS
0x1781…178d LineComal80 {
0x1781…178d ptr = 0xad7b // 0x1781 @0x0
0x1781…178d lno = 0x099c // 0x1783 @0x2
0x1781…178d at0004 = ╱84╱ NEXT ╱ // 0x1785 @0x4
0x1781…178d at0005 = ╱49╱I╱ // 0x1786 @0x5
0x1781…178d at0006 = ╱44╱D╱ // 0x1787 @0x6
0x1781…178d at0007 = ╱58╱X╱ // 0x1788 @0x7
0x1781…178d at0008 = ╱50╱P╱ // 0x1789 @0x8
0x1781…178d at0009 = ╱4f╱O╱ // 0x178a @0x9
0x1781…178d at000a = ╱53╱S╱ // 0x178b @0xa
0x1781…178d at000b = EOL // 0x178c @0xb
0x1781…178d }
0x178d…17a1 ad8f 02470 IF UT_WAY $ = "P" THEN
0x178d…17a1 LineComal80 {
0x178d…17a1 ptr = 0xad8f // 0x178d @0x0
0x178d…17a1 lno = 0x09a6 // 0x178f @0x2
0x178d…17a1 at0004 = ╱9b284f╱ IF ╱ // 0x1791 @0x4
0x178d…17a1 at0007 = ╱55╱U╱ // 0x1794 @0x7
0x178d…17a1 at0008 = ╱54╱T╱ // 0x1795 @0x8
0x178d…17a1 at0009 = ╱5f╱_╱ // 0x1796 @0x9
0x178d…17a1 at000a = ╱57╱W╱ // 0x1797 @0xa
0x178d…17a1 at000b = ╱41╱A╱ // 0x1798 @0xb
0x178d…17a1 at000c = ╱59╱Y╱ // 0x1799 @0xc
0x178d…17a1 at000d = ╱ef╱ $ ╱ // 0x179a @0xd
0x178d…17a1 at000e = ╱df╱ = ╱ // 0x179b @0xe
0x178d…17a1 at000f = ╱22╱"╱ // 0x179c @0xf
0x178d…17a1 at0010 = ╱50╱P╱ // 0x179d @0x10
0x178d…17a1 at0011 = ╱22╱"╱ // 0x179e @0x11
0x178d…17a1 at0012 = ╱b5╱ THEN ╱ // 0x179f @0x12
0x178d…17a1 at0013 = EOL // 0x17a0 @0x13
0x178d…17a1 }
0x17a1…17af ad9d 02480 EXEC PRINTREL
0x17a1…17af LineComal80 {
0x17a1…17af ptr = 0xad9d // 0x17a1 @0x0
0x17a1…17af lno = 0x09b0 // 0x17a3 @0x2
0x17a1…17af at0004 = ╱9d╱ EXEC ╱ // 0x17a5 @0x4
0x17a1…17af at0005 = ╱50╱P╱ // 0x17a6 @0x5
0x17a1…17af at0006 = ╱52╱R╱ // 0x17a7 @0x6
0x17a1…17af at0007 = ╱49╱I╱ // 0x17a8 @0x7
0x17a1…17af at0008 = ╱4e╱N╱ // 0x17a9 @0x8
0x17a1…17af at0009 = ╱54╱T╱ // 0x17aa @0x9
0x17a1…17af at000a = ╱52╱R╱ // 0x17ab @0xa
0x17a1…17af at000b = ╱45╱E╱ // 0x17ac @0xb
0x17a1…17af at000c = ╱4c╱L╱ // 0x17ad @0xc
0x17a1…17af at000d = EOL // 0x17ae @0xd
0x17a1…17af }
0x17af…17b6 ada4 02490 ELSE
0x17af…17b6 LineComal80 {
0x17af…17b6 ptr = 0xada4 // 0x17af @0x0
0x17af…17b6 lno = 0x09ba // 0x17b1 @0x2
0x17af…17b6 at0004 = ╱9a29╱ ELSE ╱ // 0x17b3 @0x4
0x17af…17b6 at0006 = EOL // 0x17b5 @0x6
0x17af…17b6 }
0x17b6…17ea add8 02500 INPUT "<SC5023>N{ste…side…-…tryk…RETURN" : SVAR $ ( 1 )
0x17b6…17ea LineComal80 {
0x17b6…17ea ptr = 0xadd8 // 0x17b6 @0x0
0x17b6…17ea lno = 0x09c4 // 0x17b8 @0x2
0x17b6…17ea at0004 = ╱91╱ INPUT ╱ // 0x17ba @0x4
0x17b6…17ea at0005 = ╱22╱"╱ // 0x17bb @0x5
0x17b6…17ea at0006 = ╱3c╱<╱ // 0x17bc @0x6
0x17b6…17ea at0007 = ╱53╱S╱ // 0x17bd @0x7
0x17b6…17ea at0008 = ╱43╱C╱ // 0x17be @0x8
0x17b6…17ea at0009 = ╱35╱5╱ // 0x17bf @0x9
0x17b6…17ea at000a = ╱30╱0╱ // 0x17c0 @0xa
0x17b6…17ea at000b = ╱32╱2╱ // 0x17c1 @0xb
0x17b6…17ea at000c = ╱33╱3╱ // 0x17c2 @0xc
0x17b6…17ea at000d = ╱3e╱>╱ // 0x17c3 @0xd
0x17b6…17ea at000e = ╱4e╱N╱ // 0x17c4 @0xe
0x17b6…17ea at000f = ╱7b╱{╱ // 0x17c5 @0xf
0x17b6…17ea at0010 = ╱73╱s╱ // 0x17c6 @0x10
0x17b6…17ea at0011 = ╱74╱t╱ // 0x17c7 @0x11
0x17b6…17ea at0012 = ╱65╱e╱ // 0x17c8 @0x12
0x17b6…17ea at0013 = ╱20╱…╱ // 0x17c9 @0x13
0x17b6…17ea at0014 = ╱73╱s╱ // 0x17ca @0x14
0x17b6…17ea at0015 = ╱69╱i╱ // 0x17cb @0x15
0x17b6…17ea at0016 = ╱64╱d╱ // 0x17cc @0x16
0x17b6…17ea at0017 = ╱65╱e╱ // 0x17cd @0x17
0x17b6…17ea at0018 = ╱20╱…╱ // 0x17ce @0x18
0x17b6…17ea at0019 = ╱2d╱-╱ // 0x17cf @0x19
0x17b6…17ea at001a = ╱20╱…╱ // 0x17d0 @0x1a
0x17b6…17ea at001b = ╱74╱t╱ // 0x17d1 @0x1b
0x17b6…17ea at001c = ╱72╱r╱ // 0x17d2 @0x1c
0x17b6…17ea at001d = ╱79╱y╱ // 0x17d3 @0x1d
0x17b6…17ea at001e = ╱6b╱k╱ // 0x17d4 @0x1e
0x17b6…17ea at001f = ╱20╱…╱ // 0x17d5 @0x1f
0x17b6…17ea at0020 = ╱52╱R╱ // 0x17d6 @0x20
0x17b6…17ea at0021 = ╱45╱E╱ // 0x17d7 @0x21
0x17b6…17ea at0022 = ╱54╱T╱ // 0x17d8 @0x22
0x17b6…17ea at0023 = ╱55╱U╱ // 0x17d9 @0x23
0x17b6…17ea at0024 = ╱52╱R╱ // 0x17da @0x24
0x17b6…17ea at0025 = ╱4e╱N╱ // 0x17db @0x25
0x17b6…17ea at0026 = ╱22╱"╱ // 0x17dc @0x26
0x17b6…17ea at0027 = ╱f1╱ : ╱ // 0x17dd @0x27
0x17b6…17ea at0028 = ╱53╱S╱ // 0x17de @0x28
0x17b6…17ea at0029 = ╱56╱V╱ // 0x17df @0x29
0x17b6…17ea at002a = ╱41╱A╱ // 0x17e0 @0x2a
0x17b6…17ea at002b = ╱52╱R╱ // 0x17e1 @0x2b
0x17b6…17ea at002c = ╱ef╱ $ ╱ // 0x17e2 @0x2c
0x17b6…17ea at002d = ╱ed╱ ( ╱ // 0x17e3 @0x2d
0x17b6…17ea at002e = ╱31╱1╱ // 0x17e4 @0x2e
0x17b6…17ea at002f = ╱f20100╱ // 0x17e5 @0x2f
0x17b6…17ea at0032 = ╱ee╱ ) ╱ // 0x17e8 @0x32
0x17b6…17ea at0033 = EOL // 0x17e9 @0x33
0x17b6…17ea }
0x17ea…17f0 adde 02510 ENDIF
0x17ea…17f0 LineComal80 {
0x17ea…17f0 ptr = 0xadde // 0x17ea @0x0
0x17ea…17f0 lno = 0x09ce // 0x17ec @0x2
0x17ea…17f0 at0004 = ╱9c╱ ENDIF ╱ // 0x17ee @0x4
0x17ea…17f0 at0005 = EOL // 0x17ef @0x5
0x17ea…17f0 }
0x17f0…17fd adeb 02520 ENDPROC UDSKRIV
0x17f0…17fd LineComal80 {
0x17f0…17fd ptr = 0xadeb // 0x17f0 @0x0
0x17f0…17fd lno = 0x09d8 // 0x17f2 @0x2
0x17f0…17fd at0004 = ╱9f╱ ENDPROC ╱ // 0x17f4 @0x4
0x17f0…17fd at0005 = ╱55╱U╱ // 0x17f5 @0x5
0x17f0…17fd at0006 = ╱44╱D╱ // 0x17f6 @0x6
0x17f0…17fd at0007 = ╱53╱S╱ // 0x17f7 @0x7
0x17f0…17fd at0008 = ╱4b╱K╱ // 0x17f8 @0x8
0x17f0…17fd at0009 = ╱52╱R╱ // 0x17f9 @0x9
0x17f0…17fd at000a = ╱49╱I╱ // 0x17fa @0xa
0x17f0…17fd at000b = ╱56╱V╱ // 0x17fb @0xb
0x17f0…17fd at000c = EOL // 0x17fc @0xc
0x17f0…17fd }
0x17fd…1802 c4d9 02530
0x17fd…1802 LineComal80 {
0x17fd…1802 ptr = 0xc4d9 // 0x17fd @0x0
0x17fd…1802 lno = 0x09e2 // 0x17ff @0x2
0x17fd…1802 at0004 = EOL // 0x1801 @0x4
0x17fd…1802 }
0x1802…1812 ae00 02480 PROC SIDESKIFT
0x1802…1812 LineComal80 {
0x1802…1812 ptr = 0xae00 // 0x1802 @0x0
0x1802…1812 lno = 0x09b0 // 0x1804 @0x2
0x1802…1812 at0004 = ╱9e2a╱ PROC ╱ // 0x1806 @0x4
0x1802…1812 at0006 = ╱53╱S╱ // 0x1808 @0x6
0x1802…1812 at0007 = ╱49╱I╱ // 0x1809 @0x7
0x1802…1812 at0008 = ╱44╱D╱ // 0x180a @0x8
0x1802…1812 at0009 = ╱45╱E╱ // 0x180b @0x9
0x1802…1812 at000a = ╱53╱S╱ // 0x180c @0xa
0x1802…1812 at000b = ╱4b╱K╱ // 0x180d @0xb
0x1802…1812 at000c = ╱49╱I╱ // 0x180e @0xc
0x1802…1812 at000d = ╱46╱F╱ // 0x180f @0xd
0x1802…1812 at000e = ╱54╱T╱ // 0x1810 @0xe
0x1802…1812 at000f = EOL // 0x1811 @0xf
0x1802…1812 }
0x1812…1837 ae25 02490 IF OT ( 1 ) > 0 OR TOT ( 2 ) > 0 THEN
0x1812…1837 LineComal80 {
0x1812…1837 ptr = 0xae25 // 0x1812 @0x0
0x1812…1837 lno = 0x09ba // 0x1814 @0x2
0x1812…1837 at0004 = ╱9b2b54╱ IF ╱ // 0x1816 @0x4
0x1812…1837 at0007 = ╱4f╱O╱ // 0x1819 @0x7
0x1812…1837 at0008 = ╱54╱T╱ // 0x181a @0x8
0x1812…1837 at0009 = ╱ed╱ ( ╱ // 0x181b @0x9
0x1812…1837 at000a = ╱31╱1╱ // 0x181c @0xa
0x1812…1837 at000b = ╱f20100╱ // 0x181d @0xb
0x1812…1837 at000e = ╱ee╱ ) ╱ // 0x1820 @0xe
0x1812…1837 at000f = ╱e1╱ > ╱ // 0x1821 @0xf
0x1812…1837 at0010 = ╱30╱0╱ // 0x1822 @0x10
0x1812…1837 at0011 = ╱f20000╱ // 0x1823 @0x11
0x1812…1837 at0014 = ╱d8╱ OR ╱ // 0x1826 @0x14
0x1812…1837 at0015 = ╱54╱T╱ // 0x1827 @0x15
0x1812…1837 at0016 = ╱4f╱O╱ // 0x1828 @0x16
0x1812…1837 at0017 = ╱54╱T╱ // 0x1829 @0x17
0x1812…1837 at0018 = ╱ed╱ ( ╱ // 0x182a @0x18
0x1812…1837 at0019 = ╱32╱2╱ // 0x182b @0x19
0x1812…1837 at001a = ╱f20200╱ // 0x182c @0x1a
0x1812…1837 at001d = ╱ee╱ ) ╱ // 0x182f @0x1d
0x1812…1837 at001e = ╱e1╱ > ╱ // 0x1830 @0x1e
0x1812…1837 at001f = ╱30╱0╱ // 0x1831 @0x1f
0x1812…1837 at0020 = ╱f20000╱ // 0x1832 @0x20
0x1812…1837 at0023 = ╱b5╱ THEN ╱ // 0x1835 @0x23
0x1812…1837 at0024 = EOL // 0x1836 @0x24
0x1812…1837 }
0x1837…1869 ae57 02500 PRINT "<S>---------------------------------------"
0x1837…1869 LineComal80 {
0x1837…1869 ptr = 0xae57 // 0x1837 @0x0
0x1837…1869 lno = 0x09c4 // 0x1839 @0x2
0x1837…1869 at0004 = ╱92╱ PRINT ╱ // 0x183b @0x4
0x1837…1869 at0005 = ╱22╱"╱ // 0x183c @0x5
0x1837…1869 at0006 = ╱3c╱<╱ // 0x183d @0x6
0x1837…1869 at0007 = ╱53╱S╱ // 0x183e @0x7
0x1837…1869 at0008 = ╱3e╱>╱ // 0x183f @0x8
0x1837…1869 at0009 = ╱2d╱-╱ // 0x1840 @0x9
0x1837…1869 at000a = ╱2d╱-╱ // 0x1841 @0xa
0x1837…1869 at000b = ╱2d╱-╱ // 0x1842 @0xb
0x1837…1869 at000c = ╱2d╱-╱ // 0x1843 @0xc
0x1837…1869 at000d = ╱2d╱-╱ // 0x1844 @0xd
0x1837…1869 at000e = ╱2d╱-╱ // 0x1845 @0xe
0x1837…1869 at000f = ╱2d╱-╱ // 0x1846 @0xf
0x1837…1869 at0010 = ╱2d╱-╱ // 0x1847 @0x10
0x1837…1869 at0011 = ╱2d╱-╱ // 0x1848 @0x11
0x1837…1869 at0012 = ╱2d╱-╱ // 0x1849 @0x12
0x1837…1869 at0013 = ╱2d╱-╱ // 0x184a @0x13
0x1837…1869 at0014 = ╱2d╱-╱ // 0x184b @0x14
0x1837…1869 at0015 = ╱2d╱-╱ // 0x184c @0x15
0x1837…1869 at0016 = ╱2d╱-╱ // 0x184d @0x16
0x1837…1869 at0017 = ╱2d╱-╱ // 0x184e @0x17
0x1837…1869 at0018 = ╱2d╱-╱ // 0x184f @0x18
0x1837…1869 at0019 = ╱2d╱-╱ // 0x1850 @0x19
0x1837…1869 at001a = ╱2d╱-╱ // 0x1851 @0x1a
0x1837…1869 at001b = ╱2d╱-╱ // 0x1852 @0x1b
0x1837…1869 at001c = ╱2d╱-╱ // 0x1853 @0x1c
0x1837…1869 at001d = ╱2d╱-╱ // 0x1854 @0x1d
0x1837…1869 at001e = ╱2d╱-╱ // 0x1855 @0x1e
0x1837…1869 at001f = ╱2d╱-╱ // 0x1856 @0x1f
0x1837…1869 at0020 = ╱2d╱-╱ // 0x1857 @0x20
0x1837…1869 at0021 = ╱2d╱-╱ // 0x1858 @0x21
0x1837…1869 at0022 = ╱2d╱-╱ // 0x1859 @0x22
0x1837…1869 at0023 = ╱2d╱-╱ // 0x185a @0x23
0x1837…1869 at0024 = ╱2d╱-╱ // 0x185b @0x24
0x1837…1869 at0025 = ╱2d╱-╱ // 0x185c @0x25
0x1837…1869 at0026 = ╱2d╱-╱ // 0x185d @0x26
0x1837…1869 at0027 = ╱2d╱-╱ // 0x185e @0x27
0x1837…1869 at0028 = ╱2d╱-╱ // 0x185f @0x28
0x1837…1869 at0029 = ╱2d╱-╱ // 0x1860 @0x29
0x1837…1869 at002a = ╱2d╱-╱ // 0x1861 @0x2a
0x1837…1869 at002b = ╱2d╱-╱ // 0x1862 @0x2b
0x1837…1869 at002c = ╱2d╱-╱ // 0x1863 @0x2c
0x1837…1869 at002d = ╱2d╱-╱ // 0x1864 @0x2d
0x1837…1869 at002e = ╱2d╱-╱ // 0x1865 @0x2e
0x1837…1869 at002f = ╱2d╱-╱ // 0x1866 @0x2f
0x1837…1869 at0030 = ╱22╱"╱ // 0x1867 @0x30
0x1837…1869 at0031 = EOL // 0x1868 @0x31
0x1837…1869 }
0x1869…1898 ae86 02510 PRINT "---------------------------------------"
0x1869…1898 LineComal80 {
0x1869…1898 ptr = 0xae86 // 0x1869 @0x0
0x1869…1898 lno = 0x09ce // 0x186b @0x2
0x1869…1898 at0004 = ╱92╱ PRINT ╱ // 0x186d @0x4
0x1869…1898 at0005 = ╱22╱"╱ // 0x186e @0x5
0x1869…1898 at0006 = ╱2d╱-╱ // 0x186f @0x6
0x1869…1898 at0007 = ╱2d╱-╱ // 0x1870 @0x7
0x1869…1898 at0008 = ╱2d╱-╱ // 0x1871 @0x8
0x1869…1898 at0009 = ╱2d╱-╱ // 0x1872 @0x9
0x1869…1898 at000a = ╱2d╱-╱ // 0x1873 @0xa
0x1869…1898 at000b = ╱2d╱-╱ // 0x1874 @0xb
0x1869…1898 at000c = ╱2d╱-╱ // 0x1875 @0xc
0x1869…1898 at000d = ╱2d╱-╱ // 0x1876 @0xd
0x1869…1898 at000e = ╱2d╱-╱ // 0x1877 @0xe
0x1869…1898 at000f = ╱2d╱-╱ // 0x1878 @0xf
0x1869…1898 at0010 = ╱2d╱-╱ // 0x1879 @0x10
0x1869…1898 at0011 = ╱2d╱-╱ // 0x187a @0x11
0x1869…1898 at0012 = ╱2d╱-╱ // 0x187b @0x12
0x1869…1898 at0013 = ╱2d╱-╱ // 0x187c @0x13
0x1869…1898 at0014 = ╱2d╱-╱ // 0x187d @0x14
0x1869…1898 at0015 = ╱2d╱-╱ // 0x187e @0x15
0x1869…1898 at0016 = ╱2d╱-╱ // 0x187f @0x16
0x1869…1898 at0017 = ╱2d╱-╱ // 0x1880 @0x17
0x1869…1898 at0018 = ╱2d╱-╱ // 0x1881 @0x18
0x1869…1898 at0019 = ╱2d╱-╱ // 0x1882 @0x19
0x1869…1898 at001a = ╱2d╱-╱ // 0x1883 @0x1a
0x1869…1898 at001b = ╱2d╱-╱ // 0x1884 @0x1b
0x1869…1898 at001c = ╱2d╱-╱ // 0x1885 @0x1c
0x1869…1898 at001d = ╱2d╱-╱ // 0x1886 @0x1d
0x1869…1898 at001e = ╱2d╱-╱ // 0x1887 @0x1e
0x1869…1898 at001f = ╱2d╱-╱ // 0x1888 @0x1f
0x1869…1898 at0020 = ╱2d╱-╱ // 0x1889 @0x20
0x1869…1898 at0021 = ╱2d╱-╱ // 0x188a @0x21
0x1869…1898 at0022 = ╱2d╱-╱ // 0x188b @0x22
0x1869…1898 at0023 = ╱2d╱-╱ // 0x188c @0x23
0x1869…1898 at0024 = ╱2d╱-╱ // 0x188d @0x24
0x1869…1898 at0025 = ╱2d╱-╱ // 0x188e @0x25
0x1869…1898 at0026 = ╱2d╱-╱ // 0x188f @0x26
0x1869…1898 at0027 = ╱2d╱-╱ // 0x1890 @0x27
0x1869…1898 at0028 = ╱2d╱-╱ // 0x1891 @0x28
0x1869…1898 at0029 = ╱2d╱-╱ // 0x1892 @0x29
0x1869…1898 at002a = ╱2d╱-╱ // 0x1893 @0x2a
0x1869…1898 at002b = ╱2d╱-╱ // 0x1894 @0x2b
0x1869…1898 at002c = ╱2d╱-╱ // 0x1895 @0x2c
0x1869…1898 at002d = ╱22╱"╱ // 0x1896 @0x2d
0x1869…1898 at002e = EOL // 0x1897 @0x2e
0x1869…1898 }
0x1898…18dc aeca 02520 PRINT TAB ( 18 ) ; "TRANSPORT" ; TAB ( 54 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 67 ) ;
0x1898…18dc LineComal80 {
0x1898…18dc ptr = 0xaeca // 0x1898 @0x0
0x1898…18dc lno = 0x09d8 // 0x189a @0x2
0x1898…18dc at0004 = ╱92╱ PRINT ╱ // 0x189c @0x4
0x1898…18dc at0005 = ╱d2╱ TAB ╱ // 0x189d @0x5
0x1898…18dc at0006 = ╱ed╱ ( ╱ // 0x189e @0x6
0x1898…18dc at0007 = ╱31╱1╱ // 0x189f @0x7
0x1898…18dc at0008 = ╱38╱8╱ // 0x18a0 @0x8
0x1898…18dc at0009 = ╱f21200╱ // 0x18a1 @0x9
0x1898…18dc at000c = ╱ee╱ ) ╱ // 0x18a4 @0xc
0x1898…18dc at000d = ╱ea╱ ; ╱ // 0x18a5 @0xd
0x1898…18dc at000e = ╱22╱"╱ // 0x18a6 @0xe
0x1898…18dc at000f = ╱54╱T╱ // 0x18a7 @0xf
0x1898…18dc at0010 = ╱52╱R╱ // 0x18a8 @0x10
0x1898…18dc at0011 = ╱41╱A╱ // 0x18a9 @0x11
0x1898…18dc at0012 = ╱4e╱N╱ // 0x18aa @0x12
0x1898…18dc at0013 = ╱53╱S╱ // 0x18ab @0x13
0x1898…18dc at0014 = ╱50╱P╱ // 0x18ac @0x14
0x1898…18dc at0015 = ╱4f╱O╱ // 0x18ad @0x15
0x1898…18dc at0016 = ╱52╱R╱ // 0x18ae @0x16
0x1898…18dc at0017 = ╱54╱T╱ // 0x18af @0x17
0x1898…18dc at0018 = ╱22╱"╱ // 0x18b0 @0x18
0x1898…18dc at0019 = ╱ea╱ ; ╱ // 0x18b1 @0x19
0x1898…18dc at001a = ╱d2╱ TAB ╱ // 0x18b2 @0x1a
0x1898…18dc at001b = ╱ed╱ ( ╱ // 0x18b3 @0x1b
0x1898…18dc at001c = ╱35╱5╱ // 0x18b4 @0x1c
0x1898…18dc at001d = ╱34╱4╱ // 0x18b5 @0x1d
0x1898…18dc at001e = ╱f23600╱ // 0x18b6 @0x1e
0x1898…18dc at0021 = ╱ee╱ ) ╱ // 0x18b9 @0x21
0x1898…18dc at0022 = ╱ea╱ ; ╱ // 0x18ba @0x22
0x1898…18dc at0023 = ╱d0╱ CHR$ ╱ // 0x18bb @0x23
0x1898…18dc at0024 = ╱ed╱ ( ╱ // 0x18bc @0x24
0x1898…18dc at0025 = ╱54╱T╱ // 0x18bd @0x25
0x1898…18dc at0026 = ╱4f╱O╱ // 0x18be @0x26
0x1898…18dc at0027 = ╱54╱T╱ // 0x18bf @0x27
0x1898…18dc at0028 = ╱ed╱ ( ╱ // 0x18c0 @0x28
0x1898…18dc at0029 = ╱31╱1╱ // 0x18c1 @0x29
0x1898…18dc at002a = ╱f20100╱ // 0x18c2 @0x2a
0x1898…18dc at002d = ╱ee╱ ) ╱ // 0x18c5 @0x2d
0x1898…18dc at002e = ╱ec╱ , ╱ // 0x18c6 @0x2e
0x1898…18dc at002f = ╱39╱9╱ // 0x18c7 @0x2f
0x1898…18dc at0030 = ╱f20900╱ // 0x18c8 @0x30
0x1898…18dc at0033 = ╱ec╱ , ╱ // 0x18cb @0x33
0x1898…18dc at0034 = ╱32╱2╱ // 0x18cc @0x34
0x1898…18dc at0035 = ╱f20200╱ // 0x18cd @0x35
0x1898…18dc at0038 = ╱ee╱ ) ╱ // 0x18d0 @0x38
0x1898…18dc at0039 = ╱ea╱ ; ╱ // 0x18d1 @0x39
0x1898…18dc at003a = ╱d2╱ TAB ╱ // 0x18d2 @0x3a
0x1898…18dc at003b = ╱ed╱ ( ╱ // 0x18d3 @0x3b
0x1898…18dc at003c = ╱36╱6╱ // 0x18d4 @0x3c
0x1898…18dc at003d = ╱37╱7╱ // 0x18d5 @0x3d
0x1898…18dc at003e = ╱f24300╱ // 0x18d6 @0x3e
0x1898…18dc at0041 = ╱ee╱ ) ╱ // 0x18d9 @0x41
0x1898…18dc at0042 = ╱ea╱ ; ╱ // 0x18da @0x42
0x1898…18dc at0043 = EOL // 0x18db @0x43
0x1898…18dc }
0x18dc…18f8 aee6 02530 PRINT CHR$ ( TOT ( 2 ) , 9 , 2 )
0x18dc…18f8 LineComal80 {
0x18dc…18f8 ptr = 0xaee6 // 0x18dc @0x0
0x18dc…18f8 lno = 0x09e2 // 0x18de @0x2
0x18dc…18f8 at0004 = ╱92╱ PRINT ╱ // 0x18e0 @0x4
0x18dc…18f8 at0005 = ╱d0╱ CHR$ ╱ // 0x18e1 @0x5
0x18dc…18f8 at0006 = ╱ed╱ ( ╱ // 0x18e2 @0x6
0x18dc…18f8 at0007 = ╱54╱T╱ // 0x18e3 @0x7
0x18dc…18f8 at0008 = ╱4f╱O╱ // 0x18e4 @0x8
0x18dc…18f8 at0009 = ╱54╱T╱ // 0x18e5 @0x9
0x18dc…18f8 at000a = ╱ed╱ ( ╱ // 0x18e6 @0xa
0x18dc…18f8 at000b = ╱32╱2╱ // 0x18e7 @0xb
0x18dc…18f8 at000c = ╱f20200╱ // 0x18e8 @0xc
0x18dc…18f8 at000f = ╱ee╱ ) ╱ // 0x18eb @0xf
0x18dc…18f8 at0010 = ╱ec╱ , ╱ // 0x18ec @0x10
0x18dc…18f8 at0011 = ╱39╱9╱ // 0x18ed @0x11
0x18dc…18f8 at0012 = ╱f20900╱ // 0x18ee @0x12
0x18dc…18f8 at0015 = ╱ec╱ , ╱ // 0x18f1 @0x15
0x18dc…18f8 at0016 = ╱32╱2╱ // 0x18f2 @0x16
0x18dc…18f8 at0017 = ╱f20200╱ // 0x18f3 @0x17
0x18dc…18f8 at001a = ╱ee╱ ) ╱ // 0x18f6 @0x1a
0x18dc…18f8 at001b = EOL // 0x18f7 @0x1b
0x18dc…18f8 }
0x18f8…190e aefc 02540 LET LIN_T := LIN_T + 2
0x18f8…190e LineComal80 {
0x18f8…190e ptr = 0xaefc // 0x18f8 @0x0
0x18f8…190e lno = 0x09ec // 0x18fa @0x2
0x18f8…190e at0004 = ╱86╱ LET ╱ // 0x18fc @0x4
0x18f8…190e at0005 = ╱4c╱L╱ // 0x18fd @0x5
0x18f8…190e at0006 = ╱49╱I╱ // 0x18fe @0x6
0x18f8…190e at0007 = ╱4e╱N╱ // 0x18ff @0x7
0x18f8…190e at0008 = ╱5f╱_╱ // 0x1900 @0x8
0x18f8…190e at0009 = ╱54╱T╱ // 0x1901 @0x9
0x18f8…190e at000a = ╱f0╱ := ╱ // 0x1902 @0xa
0x18f8…190e at000b = ╱4c╱L╱ // 0x1903 @0xb
0x18f8…190e at000c = ╱49╱I╱ // 0x1904 @0xc
0x18f8…190e at000d = ╱4e╱N╱ // 0x1905 @0xd
0x18f8…190e at000e = ╱5f╱_╱ // 0x1906 @0xe
0x18f8…190e at000f = ╱54╱T╱ // 0x1907 @0xf
0x18f8…190e at0010 = ╱e5╱ + ╱ // 0x1908 @0x10
0x18f8…190e at0011 = ╱32╱2╱ // 0x1909 @0x11
0x18f8…190e at0012 = ╱f20200╱ // 0x190a @0x12
0x18f8…190e at0015 = EOL // 0x190d @0x15
0x18f8…190e }
0x190e…191a af08 02550 EXEC NYSIDE
0x190e…191a LineComal80 {
0x190e…191a ptr = 0xaf08 // 0x190e @0x0
0x190e…191a lno = 0x09f6 // 0x1910 @0x2
0x190e…191a at0004 = ╱9d╱ EXEC ╱ // 0x1912 @0x4
0x190e…191a at0005 = ╱4e╱N╱ // 0x1913 @0x5
0x190e…191a at0006 = ╱59╱Y╱ // 0x1914 @0x6
0x190e…191a at0007 = ╱53╱S╱ // 0x1915 @0x7
0x190e…191a at0008 = ╱49╱I╱ // 0x1916 @0x8
0x190e…191a at0009 = ╱44╱D╱ // 0x1917 @0x9
0x190e…191a at000a = ╱45╱E╱ // 0x1918 @0xa
0x190e…191a at000b = EOL // 0x1919 @0xb
0x190e…191a }
0x191a…195e af4c 02560 PRINT TAB ( 18 ) ; "TRANSPORT" ; TAB ( 54 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 67 ) ;
0x191a…195e LineComal80 {
0x191a…195e ptr = 0xaf4c // 0x191a @0x0
0x191a…195e lno = 0x0a00 // 0x191c @0x2
0x191a…195e at0004 = ╱92╱ PRINT ╱ // 0x191e @0x4
0x191a…195e at0005 = ╱d2╱ TAB ╱ // 0x191f @0x5
0x191a…195e at0006 = ╱ed╱ ( ╱ // 0x1920 @0x6
0x191a…195e at0007 = ╱31╱1╱ // 0x1921 @0x7
0x191a…195e at0008 = ╱38╱8╱ // 0x1922 @0x8
0x191a…195e at0009 = ╱f21200╱ // 0x1923 @0x9
0x191a…195e at000c = ╱ee╱ ) ╱ // 0x1926 @0xc
0x191a…195e at000d = ╱ea╱ ; ╱ // 0x1927 @0xd
0x191a…195e at000e = ╱22╱"╱ // 0x1928 @0xe
0x191a…195e at000f = ╱54╱T╱ // 0x1929 @0xf
0x191a…195e at0010 = ╱52╱R╱ // 0x192a @0x10
0x191a…195e at0011 = ╱41╱A╱ // 0x192b @0x11
0x191a…195e at0012 = ╱4e╱N╱ // 0x192c @0x12
0x191a…195e at0013 = ╱53╱S╱ // 0x192d @0x13
0x191a…195e at0014 = ╱50╱P╱ // 0x192e @0x14
0x191a…195e at0015 = ╱4f╱O╱ // 0x192f @0x15
0x191a…195e at0016 = ╱52╱R╱ // 0x1930 @0x16
0x191a…195e at0017 = ╱54╱T╱ // 0x1931 @0x17
0x191a…195e at0018 = ╱22╱"╱ // 0x1932 @0x18
0x191a…195e at0019 = ╱ea╱ ; ╱ // 0x1933 @0x19
0x191a…195e at001a = ╱d2╱ TAB ╱ // 0x1934 @0x1a
0x191a…195e at001b = ╱ed╱ ( ╱ // 0x1935 @0x1b
0x191a…195e at001c = ╱35╱5╱ // 0x1936 @0x1c
0x191a…195e at001d = ╱34╱4╱ // 0x1937 @0x1d
0x191a…195e at001e = ╱f23600╱ // 0x1938 @0x1e
0x191a…195e at0021 = ╱ee╱ ) ╱ // 0x193b @0x21
0x191a…195e at0022 = ╱ea╱ ; ╱ // 0x193c @0x22
0x191a…195e at0023 = ╱d0╱ CHR$ ╱ // 0x193d @0x23
0x191a…195e at0024 = ╱ed╱ ( ╱ // 0x193e @0x24
0x191a…195e at0025 = ╱54╱T╱ // 0x193f @0x25
0x191a…195e at0026 = ╱4f╱O╱ // 0x1940 @0x26
0x191a…195e at0027 = ╱54╱T╱ // 0x1941 @0x27
0x191a…195e at0028 = ╱ed╱ ( ╱ // 0x1942 @0x28
0x191a…195e at0029 = ╱31╱1╱ // 0x1943 @0x29
0x191a…195e at002a = ╱f20100╱ // 0x1944 @0x2a
0x191a…195e at002d = ╱ee╱ ) ╱ // 0x1947 @0x2d
0x191a…195e at002e = ╱ec╱ , ╱ // 0x1948 @0x2e
0x191a…195e at002f = ╱39╱9╱ // 0x1949 @0x2f
0x191a…195e at0030 = ╱f20900╱ // 0x194a @0x30
0x191a…195e at0033 = ╱ec╱ , ╱ // 0x194d @0x33
0x191a…195e at0034 = ╱32╱2╱ // 0x194e @0x34
0x191a…195e at0035 = ╱f20200╱ // 0x194f @0x35
0x191a…195e at0038 = ╱ee╱ ) ╱ // 0x1952 @0x38
0x191a…195e at0039 = ╱ea╱ ; ╱ // 0x1953 @0x39
0x191a…195e at003a = ╱d2╱ TAB ╱ // 0x1954 @0x3a
0x191a…195e at003b = ╱ed╱ ( ╱ // 0x1955 @0x3b
0x191a…195e at003c = ╱36╱6╱ // 0x1956 @0x3c
0x191a…195e at003d = ╱37╱7╱ // 0x1957 @0x3d
0x191a…195e at003e = ╱f24300╱ // 0x1958 @0x3e
0x191a…195e at0041 = ╱ee╱ ) ╱ // 0x195b @0x41
0x191a…195e at0042 = ╱ea╱ ; ╱ // 0x195c @0x42
0x191a…195e at0043 = EOL // 0x195d @0x43
0x191a…195e }
0x195e…197a af68 02570 PRINT CHR$ ( TOT ( 2 ) , 9 , 2 )
0x195e…197a LineComal80 {
0x195e…197a ptr = 0xaf68 // 0x195e @0x0
0x195e…197a lno = 0x0a0a // 0x1960 @0x2
0x195e…197a at0004 = ╱92╱ PRINT ╱ // 0x1962 @0x4
0x195e…197a at0005 = ╱d0╱ CHR$ ╱ // 0x1963 @0x5
0x195e…197a at0006 = ╱ed╱ ( ╱ // 0x1964 @0x6
0x195e…197a at0007 = ╱54╱T╱ // 0x1965 @0x7
0x195e…197a at0008 = ╱4f╱O╱ // 0x1966 @0x8
0x195e…197a at0009 = ╱54╱T╱ // 0x1967 @0x9
0x195e…197a at000a = ╱ed╱ ( ╱ // 0x1968 @0xa
0x195e…197a at000b = ╱32╱2╱ // 0x1969 @0xb
0x195e…197a at000c = ╱f20200╱ // 0x196a @0xc
0x195e…197a at000f = ╱ee╱ ) ╱ // 0x196d @0xf
0x195e…197a at0010 = ╱ec╱ , ╱ // 0x196e @0x10
0x195e…197a at0011 = ╱39╱9╱ // 0x196f @0x11
0x195e…197a at0012 = ╱f20900╱ // 0x1970 @0x12
0x195e…197a at0015 = ╱ec╱ , ╱ // 0x1973 @0x15
0x195e…197a at0016 = ╱32╱2╱ // 0x1974 @0x16
0x195e…197a at0017 = ╱f20200╱ // 0x1975 @0x17
0x195e…197a at001a = ╱ee╱ ) ╱ // 0x1978 @0x1a
0x195e…197a at001b = EOL // 0x1979 @0x1b
0x195e…197a }
0x197a…1990 af7e 02580 LET LIN_T := LIN_T + 1
0x197a…1990 LineComal80 {
0x197a…1990 ptr = 0xaf7e // 0x197a @0x0
0x197a…1990 lno = 0x0a14 // 0x197c @0x2
0x197a…1990 at0004 = ╱86╱ LET ╱ // 0x197e @0x4
0x197a…1990 at0005 = ╱4c╱L╱ // 0x197f @0x5
0x197a…1990 at0006 = ╱49╱I╱ // 0x1980 @0x6
0x197a…1990 at0007 = ╱4e╱N╱ // 0x1981 @0x7
0x197a…1990 at0008 = ╱5f╱_╱ // 0x1982 @0x8
0x197a…1990 at0009 = ╱54╱T╱ // 0x1983 @0x9
0x197a…1990 at000a = ╱f0╱ := ╱ // 0x1984 @0xa
0x197a…1990 at000b = ╱4c╱L╱ // 0x1985 @0xb
0x197a…1990 at000c = ╱49╱I╱ // 0x1986 @0xc
0x197a…1990 at000d = ╱4e╱N╱ // 0x1987 @0xd
0x197a…1990 at000e = ╱5f╱_╱ // 0x1988 @0xe
0x197a…1990 at000f = ╱54╱T╱ // 0x1989 @0xf
0x197a…1990 at0010 = ╱e5╱ + ╱ // 0x198a @0x10
0x197a…1990 at0011 = ╱31╱1╱ // 0x198b @0x11
0x197a…1990 at0012 = ╱f20100╱ // 0x198c @0x12
0x197a…1990 at0015 = EOL // 0x198f @0x15
0x197a…1990 }
0x1990…1997 af85 02590 ELSE
0x1990…1997 LineComal80 {
0x1990…1997 ptr = 0xaf85 // 0x1990 @0x0
0x1990…1997 lno = 0x0a1e // 0x1992 @0x2
0x1990…1997 at0004 = ╱9a2c╱ ELSE ╱ // 0x1994 @0x4
0x1990…1997 at0006 = EOL // 0x1996 @0x6
0x1990…1997 }
0x1997…19a3 af91 02600 EXEC NYSIDE
0x1997…19a3 LineComal80 {
0x1997…19a3 ptr = 0xaf91 // 0x1997 @0x0
0x1997…19a3 lno = 0x0a28 // 0x1999 @0x2
0x1997…19a3 at0004 = ╱9d╱ EXEC ╱ // 0x199b @0x4
0x1997…19a3 at0005 = ╱4e╱N╱ // 0x199c @0x5
0x1997…19a3 at0006 = ╱59╱Y╱ // 0x199d @0x6
0x1997…19a3 at0007 = ╱53╱S╱ // 0x199e @0x7
0x1997…19a3 at0008 = ╱49╱I╱ // 0x199f @0x8
0x1997…19a3 at0009 = ╱44╱D╱ // 0x19a0 @0x9
0x1997…19a3 at000a = ╱45╱E╱ // 0x19a1 @0xa
0x1997…19a3 at000b = EOL // 0x19a2 @0xb
0x1997…19a3 }
0x19a3…19a9 af97 02610 ENDIF
0x19a3…19a9 LineComal80 {
0x19a3…19a9 ptr = 0xaf97 // 0x19a3 @0x0
0x19a3…19a9 lno = 0x0a32 // 0x19a5 @0x2
0x19a3…19a9 at0004 = ╱9c╱ ENDIF ╱ // 0x19a7 @0x4
0x19a3…19a9 at0005 = EOL // 0x19a8 @0x5
0x19a3…19a9 }
0x19a9…19b8 afa6 02620 ENDPROC SIDESKIFT
0x19a9…19b8 LineComal80 {
0x19a9…19b8 ptr = 0xafa6 // 0x19a9 @0x0
0x19a9…19b8 lno = 0x0a3c // 0x19ab @0x2
0x19a9…19b8 at0004 = ╱9f╱ ENDPROC ╱ // 0x19ad @0x4
0x19a9…19b8 at0005 = ╱53╱S╱ // 0x19ae @0x5
0x19a9…19b8 at0006 = ╱49╱I╱ // 0x19af @0x6
0x19a9…19b8 at0007 = ╱44╱D╱ // 0x19b0 @0x7
0x19a9…19b8 at0008 = ╱45╱E╱ // 0x19b1 @0x8
0x19a9…19b8 at0009 = ╱53╱S╱ // 0x19b2 @0x9
0x19a9…19b8 at000a = ╱4b╱K╱ // 0x19b3 @0xa
0x19a9…19b8 at000b = ╱49╱I╱ // 0x19b4 @0xb
0x19a9…19b8 at000c = ╱46╱F╱ // 0x19b5 @0xc
0x19a9…19b8 at000d = ╱54╱T╱ // 0x19b6 @0xd
0x19a9…19b8 at000e = EOL // 0x19b7 @0xe
0x19a9…19b8 }
0x19b8…19c5 afb3 02630 PROC NYSIDE
0x19b8…19c5 LineComal80 {
0x19b8…19c5 ptr = 0xafb3 // 0x19b8 @0x0
0x19b8…19c5 lno = 0x0a46 // 0x19ba @0x2
0x19b8…19c5 at0004 = ╱9e2d╱ PROC ╱ // 0x19bc @0x4
0x19b8…19c5 at0006 = ╱4e╱N╱ // 0x19be @0x6
0x19b8…19c5 at0007 = ╱59╱Y╱ // 0x19bf @0x7
0x19b8…19c5 at0008 = ╱53╱S╱ // 0x19c0 @0x8
0x19b8…19c5 at0009 = ╱49╱I╱ // 0x19c1 @0x9
0x19b8…19c5 at000a = ╱44╱D╱ // 0x19c2 @0xa
0x19b8…19c5 at000b = ╱45╱E╱ // 0x19c3 @0xb
0x19b8…19c5 at000c = EOL // 0x19c4 @0xc
0x19b8…19c5 }
0x19c5…19d9 afc7 02640 IF UT_WAY $ = "P" THEN
0x19c5…19d9 LineComal80 {
0x19c5…19d9 ptr = 0xafc7 // 0x19c5 @0x0
0x19c5…19d9 lno = 0x0a50 // 0x19c7 @0x2
0x19c5…19d9 at0004 = ╱9b2e4f╱ IF ╱ // 0x19c9 @0x4
0x19c5…19d9 at0007 = ╱55╱U╱ // 0x19cc @0x7
0x19c5…19d9 at0008 = ╱54╱T╱ // 0x19cd @0x8
0x19c5…19d9 at0009 = ╱5f╱_╱ // 0x19ce @0x9
0x19c5…19d9 at000a = ╱57╱W╱ // 0x19cf @0xa
0x19c5…19d9 at000b = ╱41╱A╱ // 0x19d0 @0xb
0x19c5…19d9 at000c = ╱59╱Y╱ // 0x19d1 @0xc
0x19c5…19d9 at000d = ╱ef╱ $ ╱ // 0x19d2 @0xd
0x19c5…19d9 at000e = ╱df╱ = ╱ // 0x19d3 @0xe
0x19c5…19d9 at000f = ╱22╱"╱ // 0x19d4 @0xf
0x19c5…19d9 at0010 = ╱50╱P╱ // 0x19d5 @0x10
0x19c5…19d9 at0011 = ╱22╱"╱ // 0x19d6 @0x11
0x19c5…19d9 at0012 = ╱b5╱ THEN ╱ // 0x19d7 @0x12
0x19c5…19d9 at0013 = EOL // 0x19d8 @0x13
0x19c5…19d9 }
0x19d9…19f1 afdf 02650 FOR I := LIN_T TO AX_LIN DO PRINT
0x19d9…19f1 LineComal80 {
0x19d9…19f1 ptr = 0xafdf // 0x19d9 @0x0
0x19d9…19f1 lno = 0x0a5a // 0x19db @0x2
0x19d9…19f1 at0004 = ╱b400╱ FOR ╱ // 0x19dd @0x4
0x19d9…19f1 at0006 = ╱49╱I╱ // 0x19df @0x6
0x19d9…19f1 at0007 = ╱f0╱ := ╱ // 0x19e0 @0x7
0x19d9…19f1 at0008 = ╱4c╱L╱ // 0x19e1 @0x8
0x19d9…19f1 at0009 = ╱49╱I╱ // 0x19e2 @0x9
0x19d9…19f1 at000a = ╱4e╱N╱ // 0x19e3 @0xa
0x19d9…19f1 at000b = ╱5f╱_╱ // 0x19e4 @0xb
0x19d9…19f1 at000c = ╱54╱T╱ // 0x19e5 @0xc
0x19d9…19f1 at000d = ╱b74d╱ TO ╱ // 0x19e6 @0xd
0x19d9…19f1 at000f = ╱41╱A╱ // 0x19e8 @0xf
0x19d9…19f1 at0010 = ╱58╱X╱ // 0x19e9 @0x10
0x19d9…19f1 at0011 = ╱5f╱_╱ // 0x19ea @0x11
0x19d9…19f1 at0012 = ╱4c╱L╱ // 0x19eb @0x12
0x19d9…19f1 at0013 = ╱49╱I╱ // 0x19ec @0x13
0x19d9…19f1 at0014 = ╱4e╱N╱ // 0x19ed @0x14
0x19d9…19f1 at0015 = ╱bb╱ DO ╱ // 0x19ee @0x15
0x19d9…19f1 at0016 = ╱92╱ PRINT ╱ // 0x19ef @0x16
0x19d9…19f1 at0017 = EOL // 0x19f0 @0x17
0x19d9…19f1 }
0x19f1…19f8 afe6 02660 ELSE
0x19f1…19f8 LineComal80 {
0x19f1…19f8 ptr = 0xafe6 // 0x19f1 @0x0
0x19f1…19f8 lno = 0x0a64 // 0x19f3 @0x2
0x19f1…19f8 at0004 = ╱9a2f╱ ELSE ╱ // 0x19f5 @0x4
0x19f1…19f8 at0006 = EOL // 0x19f7 @0x6
0x19f1…19f8 }
0x19f8…1a26 b014 02670 INPUT "<SC5523>N{ste…side…-…tryk…RETURN" : SVAR $
0x19f8…1a26 LineComal80 {
0x19f8…1a26 ptr = 0xb014 // 0x19f8 @0x0
0x19f8…1a26 lno = 0x0a6e // 0x19fa @0x2
0x19f8…1a26 at0004 = ╱91╱ INPUT ╱ // 0x19fc @0x4
0x19f8…1a26 at0005 = ╱22╱"╱ // 0x19fd @0x5
0x19f8…1a26 at0006 = ╱3c╱<╱ // 0x19fe @0x6
0x19f8…1a26 at0007 = ╱53╱S╱ // 0x19ff @0x7
0x19f8…1a26 at0008 = ╱43╱C╱ // 0x1a00 @0x8
0x19f8…1a26 at0009 = ╱35╱5╱ // 0x1a01 @0x9
0x19f8…1a26 at000a = ╱35╱5╱ // 0x1a02 @0xa
0x19f8…1a26 at000b = ╱32╱2╱ // 0x1a03 @0xb
0x19f8…1a26 at000c = ╱33╱3╱ // 0x1a04 @0xc
0x19f8…1a26 at000d = ╱3e╱>╱ // 0x1a05 @0xd
0x19f8…1a26 at000e = ╱4e╱N╱ // 0x1a06 @0xe
0x19f8…1a26 at000f = ╱7b╱{╱ // 0x1a07 @0xf
0x19f8…1a26 at0010 = ╱73╱s╱ // 0x1a08 @0x10
0x19f8…1a26 at0011 = ╱74╱t╱ // 0x1a09 @0x11
0x19f8…1a26 at0012 = ╱65╱e╱ // 0x1a0a @0x12
0x19f8…1a26 at0013 = ╱20╱…╱ // 0x1a0b @0x13
0x19f8…1a26 at0014 = ╱73╱s╱ // 0x1a0c @0x14
0x19f8…1a26 at0015 = ╱69╱i╱ // 0x1a0d @0x15
0x19f8…1a26 at0016 = ╱64╱d╱ // 0x1a0e @0x16
0x19f8…1a26 at0017 = ╱65╱e╱ // 0x1a0f @0x17
0x19f8…1a26 at0018 = ╱20╱…╱ // 0x1a10 @0x18
0x19f8…1a26 at0019 = ╱2d╱-╱ // 0x1a11 @0x19
0x19f8…1a26 at001a = ╱20╱…╱ // 0x1a12 @0x1a
0x19f8…1a26 at001b = ╱74╱t╱ // 0x1a13 @0x1b
0x19f8…1a26 at001c = ╱72╱r╱ // 0x1a14 @0x1c
0x19f8…1a26 at001d = ╱79╱y╱ // 0x1a15 @0x1d
0x19f8…1a26 at001e = ╱6b╱k╱ // 0x1a16 @0x1e
0x19f8…1a26 at001f = ╱20╱…╱ // 0x1a17 @0x1f
0x19f8…1a26 at0020 = ╱52╱R╱ // 0x1a18 @0x20
0x19f8…1a26 at0021 = ╱45╱E╱ // 0x1a19 @0x21
0x19f8…1a26 at0022 = ╱54╱T╱ // 0x1a1a @0x22
0x19f8…1a26 at0023 = ╱55╱U╱ // 0x1a1b @0x23
0x19f8…1a26 at0024 = ╱52╱R╱ // 0x1a1c @0x24
0x19f8…1a26 at0025 = ╱4e╱N╱ // 0x1a1d @0x25
0x19f8…1a26 at0026 = ╱22╱"╱ // 0x1a1e @0x26
0x19f8…1a26 at0027 = ╱f1╱ : ╱ // 0x1a1f @0x27
0x19f8…1a26 at0028 = ╱53╱S╱ // 0x1a20 @0x28
0x19f8…1a26 at0029 = ╱56╱V╱ // 0x1a21 @0x29
0x19f8…1a26 at002a = ╱41╱A╱ // 0x1a22 @0x2a
0x19f8…1a26 at002b = ╱52╱R╱ // 0x1a23 @0x2b
0x19f8…1a26 at002c = ╱ef╱ $ ╱ // 0x1a24 @0x2c
0x19f8…1a26 at002d = EOL // 0x1a25 @0x2d
0x19f8…1a26 }
0x1a26…1a2c b01a 02680 CLEAR
0x1a26…1a2c LineComal80 {
0x1a26…1a2c ptr = 0xb01a // 0x1a26 @0x0
0x1a26…1a2c lno = 0x0a78 // 0x1a28 @0x2
0x1a26…1a2c at0004 = ╱a0╱ CLEAR ╱ // 0x1a2a @0x4
0x1a26…1a2c at0005 = EOL // 0x1a2b @0x5
0x1a26…1a2c }
0x1a2c…1a32 bdb4 02690 ENDIF
0x1a2c…1a32 LineComal80 {
0x1a2c…1a32 ptr = 0xbdb4 // 0x1a2c @0x0
0x1a2c…1a32 lno = 0x0a82 // 0x1a2e @0x2
0x1a2c…1a32 at0004 = ╱9c╱ ENDIF ╱ // 0x1a30 @0x4
0x1a2c…1a32 at0005 = EOL // 0x1a31 @0x5
0x1a2c…1a32 }
0x1a32…1a55 b043 02700 LET LIN_T := 9 ; SIDENR := SIDENR + 1
0x1a32…1a55 LineComal80 {
0x1a32…1a55 ptr = 0xb043 // 0x1a32 @0x0
0x1a32…1a55 lno = 0x0a8c // 0x1a34 @0x2
0x1a32…1a55 at0004 = ╱86╱ LET ╱ // 0x1a36 @0x4
0x1a32…1a55 at0005 = ╱4c╱L╱ // 0x1a37 @0x5
0x1a32…1a55 at0006 = ╱49╱I╱ // 0x1a38 @0x6
0x1a32…1a55 at0007 = ╱4e╱N╱ // 0x1a39 @0x7
0x1a32…1a55 at0008 = ╱5f╱_╱ // 0x1a3a @0x8
0x1a32…1a55 at0009 = ╱54╱T╱ // 0x1a3b @0x9
0x1a32…1a55 at000a = ╱f0╱ := ╱ // 0x1a3c @0xa
0x1a32…1a55 at000b = ╱39╱9╱ // 0x1a3d @0xb
0x1a32…1a55 at000c = ╱f20900╱ // 0x1a3e @0xc
0x1a32…1a55 at000f = ╱ea╱ ; ╱ // 0x1a41 @0xf
0x1a32…1a55 at0010 = ╱53╱S╱ // 0x1a42 @0x10
0x1a32…1a55 at0011 = ╱49╱I╱ // 0x1a43 @0x11
0x1a32…1a55 at0012 = ╱44╱D╱ // 0x1a44 @0x12
0x1a32…1a55 at0013 = ╱45╱E╱ // 0x1a45 @0x13
0x1a32…1a55 at0014 = ╱4e╱N╱ // 0x1a46 @0x14
0x1a32…1a55 at0015 = ╱52╱R╱ // 0x1a47 @0x15
0x1a32…1a55 at0016 = ╱f0╱ := ╱ // 0x1a48 @0x16
0x1a32…1a55 at0017 = ╱53╱S╱ // 0x1a49 @0x17
0x1a32…1a55 at0018 = ╱49╱I╱ // 0x1a4a @0x18
0x1a32…1a55 at0019 = ╱44╱D╱ // 0x1a4b @0x19
0x1a32…1a55 at001a = ╱45╱E╱ // 0x1a4c @0x1a
0x1a32…1a55 at001b = ╱4e╱N╱ // 0x1a4d @0x1b
0x1a32…1a55 at001c = ╱52╱R╱ // 0x1a4e @0x1c
0x1a32…1a55 at001d = ╱e5╱ + ╱ // 0x1a4f @0x1d
0x1a32…1a55 at001e = ╱31╱1╱ // 0x1a50 @0x1e
0x1a32…1a55 at001f = ╱f20100╱ // 0x1a51 @0x1f
0x1a32…1a55 at0022 = EOL // 0x1a54 @0x22
0x1a32…1a55 }
0x1a55…1a7d b06b 02710 PRINT "***…" ; SYST_NAVN $ ; "…***" ; TAB ( 41 ) ;
0x1a55…1a7d LineComal80 {
0x1a55…1a7d ptr = 0xb06b // 0x1a55 @0x0
0x1a55…1a7d lno = 0x0a96 // 0x1a57 @0x2
0x1a55…1a7d at0004 = ╱92╱ PRINT ╱ // 0x1a59 @0x4
0x1a55…1a7d at0005 = ╱22╱"╱ // 0x1a5a @0x5
0x1a55…1a7d at0006 = ╱2a╱*╱ // 0x1a5b @0x6
0x1a55…1a7d at0007 = ╱2a╱*╱ // 0x1a5c @0x7
0x1a55…1a7d at0008 = ╱2a╱*╱ // 0x1a5d @0x8
0x1a55…1a7d at0009 = ╱20╱…╱ // 0x1a5e @0x9
0x1a55…1a7d at000a = ╱22╱"╱ // 0x1a5f @0xa
0x1a55…1a7d at000b = ╱ea╱ ; ╱ // 0x1a60 @0xb
0x1a55…1a7d at000c = ╱53╱S╱ // 0x1a61 @0xc
0x1a55…1a7d at000d = ╱59╱Y╱ // 0x1a62 @0xd
0x1a55…1a7d at000e = ╱53╱S╱ // 0x1a63 @0xe
0x1a55…1a7d at000f = ╱54╱T╱ // 0x1a64 @0xf
0x1a55…1a7d at0010 = ╱5f╱_╱ // 0x1a65 @0x10
0x1a55…1a7d at0011 = ╱4e╱N╱ // 0x1a66 @0x11
0x1a55…1a7d at0012 = ╱41╱A╱ // 0x1a67 @0x12
0x1a55…1a7d at0013 = ╱56╱V╱ // 0x1a68 @0x13
0x1a55…1a7d at0014 = ╱4e╱N╱ // 0x1a69 @0x14
0x1a55…1a7d at0015 = ╱ef╱ $ ╱ // 0x1a6a @0x15
0x1a55…1a7d at0016 = ╱ea╱ ; ╱ // 0x1a6b @0x16
0x1a55…1a7d at0017 = ╱22╱"╱ // 0x1a6c @0x17
0x1a55…1a7d at0018 = ╱20╱…╱ // 0x1a6d @0x18
0x1a55…1a7d at0019 = ╱2a╱*╱ // 0x1a6e @0x19
0x1a55…1a7d at001a = ╱2a╱*╱ // 0x1a6f @0x1a
0x1a55…1a7d at001b = ╱2a╱*╱ // 0x1a70 @0x1b
0x1a55…1a7d at001c = ╱22╱"╱ // 0x1a71 @0x1c
0x1a55…1a7d at001d = ╱ea╱ ; ╱ // 0x1a72 @0x1d
0x1a55…1a7d at001e = ╱d2╱ TAB ╱ // 0x1a73 @0x1e
0x1a55…1a7d at001f = ╱ed╱ ( ╱ // 0x1a74 @0x1f
0x1a55…1a7d at0020 = ╱34╱4╱ // 0x1a75 @0x20
0x1a55…1a7d at0021 = ╱31╱1╱ // 0x1a76 @0x21
0x1a55…1a7d at0022 = ╱f22900╱ // 0x1a77 @0x22
0x1a55…1a7d at0025 = ╱ee╱ ) ╱ // 0x1a7a @0x25
0x1a55…1a7d at0026 = ╱ea╱ ; ╱ // 0x1a7b @0x26
0x1a55…1a7d at0027 = EOL // 0x1a7c @0x27
0x1a55…1a7d }
0x1a7d…1aca b0b8 02720 PRINT "***…UDSKREVET…PR.…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ;
0x1a7d…1aca LineComal80 {
0x1a7d…1aca ptr = 0xb0b8 // 0x1a7d @0x0
0x1a7d…1aca lno = 0x0aa0 // 0x1a7f @0x2
0x1a7d…1aca at0004 = ╱92╱ PRINT ╱ // 0x1a81 @0x4
0x1a7d…1aca at0005 = ╱22╱"╱ // 0x1a82 @0x5
0x1a7d…1aca at0006 = ╱2a╱*╱ // 0x1a83 @0x6
0x1a7d…1aca at0007 = ╱2a╱*╱ // 0x1a84 @0x7
0x1a7d…1aca at0008 = ╱2a╱*╱ // 0x1a85 @0x8
0x1a7d…1aca at0009 = ╱20╱…╱ // 0x1a86 @0x9
0x1a7d…1aca at000a = ╱55╱U╱ // 0x1a87 @0xa
0x1a7d…1aca at000b = ╱44╱D╱ // 0x1a88 @0xb
0x1a7d…1aca at000c = ╱53╱S╱ // 0x1a89 @0xc
0x1a7d…1aca at000d = ╱4b╱K╱ // 0x1a8a @0xd
0x1a7d…1aca at000e = ╱52╱R╱ // 0x1a8b @0xe
0x1a7d…1aca at000f = ╱45╱E╱ // 0x1a8c @0xf
0x1a7d…1aca at0010 = ╱56╱V╱ // 0x1a8d @0x10
0x1a7d…1aca at0011 = ╱45╱E╱ // 0x1a8e @0x11
0x1a7d…1aca at0012 = ╱54╱T╱ // 0x1a8f @0x12
0x1a7d…1aca at0013 = ╱20╱…╱ // 0x1a90 @0x13
0x1a7d…1aca at0014 = ╱50╱P╱ // 0x1a91 @0x14
0x1a7d…1aca at0015 = ╱52╱R╱ // 0x1a92 @0x15
0x1a7d…1aca at0016 = ╱2e╱.╱ // 0x1a93 @0x16
0x1a7d…1aca at0017 = ╱20╱…╱ // 0x1a94 @0x17
0x1a7d…1aca at0018 = ╱22╱"╱ // 0x1a95 @0x18
0x1a7d…1aca at0019 = ╱ea╱ ; ╱ // 0x1a96 @0x19
0x1a7d…1aca at001a = ╱53╱S╱ // 0x1a97 @0x1a
0x1a7d…1aca at001b = ╱59╱Y╱ // 0x1a98 @0x1b
0x1a7d…1aca at001c = ╱53╱S╱ // 0x1a99 @0x1c
0x1a7d…1aca at001d = ╱54╱T╱ // 0x1a9a @0x1d
0x1a7d…1aca at001e = ╱5f╱_╱ // 0x1a9b @0x1e
0x1a7d…1aca at001f = ╱44╱D╱ // 0x1a9c @0x1f
0x1a7d…1aca at0020 = ╱41╱A╱ // 0x1a9d @0x20
0x1a7d…1aca at0021 = ╱54╱T╱ // 0x1a9e @0x21
0x1a7d…1aca at0022 = ╱ef╱ $ ╱ // 0x1a9f @0x22
0x1a7d…1aca at0023 = ╱ed╱ ( ╱ // 0x1aa0 @0x23
0x1a7d…1aca at0024 = ╱31╱1╱ // 0x1aa1 @0x24
0x1a7d…1aca at0025 = ╱f20100╱ // 0x1aa2 @0x25
0x1a7d…1aca at0028 = ╱f1╱ : ╱ // 0x1aa5 @0x28
0x1a7d…1aca at0029 = ╱32╱2╱ // 0x1aa6 @0x29
0x1a7d…1aca at002a = ╱f20200╱ // 0x1aa7 @0x2a
0x1a7d…1aca at002d = ╱ee╱ ) ╱ // 0x1aaa @0x2d
0x1a7d…1aca at002e = ╱ea╱ ; ╱ // 0x1aab @0x2e
0x1a7d…1aca at002f = ╱22╱"╱ // 0x1aac @0x2f
0x1a7d…1aca at0030 = ╱2e╱.╱ // 0x1aad @0x30
0x1a7d…1aca at0031 = ╱22╱"╱ // 0x1aae @0x31
0x1a7d…1aca at0032 = ╱ea╱ ; ╱ // 0x1aaf @0x32
0x1a7d…1aca at0033 = ╱53╱S╱ // 0x1ab0 @0x33
0x1a7d…1aca at0034 = ╱59╱Y╱ // 0x1ab1 @0x34
0x1a7d…1aca at0035 = ╱53╱S╱ // 0x1ab2 @0x35
0x1a7d…1aca at0036 = ╱54╱T╱ // 0x1ab3 @0x36
0x1a7d…1aca at0037 = ╱5f╱_╱ // 0x1ab4 @0x37
0x1a7d…1aca at0038 = ╱44╱D╱ // 0x1ab5 @0x38
0x1a7d…1aca at0039 = ╱41╱A╱ // 0x1ab6 @0x39
0x1a7d…1aca at003a = ╱54╱T╱ // 0x1ab7 @0x3a
0x1a7d…1aca at003b = ╱ef╱ $ ╱ // 0x1ab8 @0x3b
0x1a7d…1aca at003c = ╱ed╱ ( ╱ // 0x1ab9 @0x3c
0x1a7d…1aca at003d = ╱33╱3╱ // 0x1aba @0x3d
0x1a7d…1aca at003e = ╱f20300╱ // 0x1abb @0x3e
0x1a7d…1aca at0041 = ╱f1╱ : ╱ // 0x1abe @0x41
0x1a7d…1aca at0042 = ╱32╱2╱ // 0x1abf @0x42
0x1a7d…1aca at0043 = ╱f20200╱ // 0x1ac0 @0x43
0x1a7d…1aca at0046 = ╱ee╱ ) ╱ // 0x1ac3 @0x46
0x1a7d…1aca at0047 = ╱ea╱ ; ╱ // 0x1ac4 @0x47
0x1a7d…1aca at0048 = ╱22╱"╱ // 0x1ac5 @0x48
0x1a7d…1aca at0049 = ╱2e╱.╱ // 0x1ac6 @0x49
0x1a7d…1aca at004a = ╱22╱"╱ // 0x1ac7 @0x4a
0x1a7d…1aca at004b = ╱ea╱ ; ╱ // 0x1ac8 @0x4b
0x1a7d…1aca at004c = EOL // 0x1ac9 @0x4c
0x1a7d…1aca }
0x1aca…1af9 b0e7 02730 PRINT SYST_DAT $ ( 5 : 2 ) ; "…***…SIDE:…" ; SIDENR
0x1aca…1af9 LineComal80 {
0x1aca…1af9 ptr = 0xb0e7 // 0x1aca @0x0
0x1aca…1af9 lno = 0x0aaa // 0x1acc @0x2
0x1aca…1af9 at0004 = ╱92╱ PRINT ╱ // 0x1ace @0x4
0x1aca…1af9 at0005 = ╱53╱S╱ // 0x1acf @0x5
0x1aca…1af9 at0006 = ╱59╱Y╱ // 0x1ad0 @0x6
0x1aca…1af9 at0007 = ╱53╱S╱ // 0x1ad1 @0x7
0x1aca…1af9 at0008 = ╱54╱T╱ // 0x1ad2 @0x8
0x1aca…1af9 at0009 = ╱5f╱_╱ // 0x1ad3 @0x9
0x1aca…1af9 at000a = ╱44╱D╱ // 0x1ad4 @0xa
0x1aca…1af9 at000b = ╱41╱A╱ // 0x1ad5 @0xb
0x1aca…1af9 at000c = ╱54╱T╱ // 0x1ad6 @0xc
0x1aca…1af9 at000d = ╱ef╱ $ ╱ // 0x1ad7 @0xd
0x1aca…1af9 at000e = ╱ed╱ ( ╱ // 0x1ad8 @0xe
0x1aca…1af9 at000f = ╱35╱5╱ // 0x1ad9 @0xf
0x1aca…1af9 at0010 = ╱f20500╱ // 0x1ada @0x10
0x1aca…1af9 at0013 = ╱f1╱ : ╱ // 0x1add @0x13
0x1aca…1af9 at0014 = ╱32╱2╱ // 0x1ade @0x14
0x1aca…1af9 at0015 = ╱f20200╱ // 0x1adf @0x15
0x1aca…1af9 at0018 = ╱ee╱ ) ╱ // 0x1ae2 @0x18
0x1aca…1af9 at0019 = ╱ea╱ ; ╱ // 0x1ae3 @0x19
0x1aca…1af9 at001a = ╱22╱"╱ // 0x1ae4 @0x1a
0x1aca…1af9 at001b = ╱20╱…╱ // 0x1ae5 @0x1b
0x1aca…1af9 at001c = ╱2a╱*╱ // 0x1ae6 @0x1c
0x1aca…1af9 at001d = ╱2a╱*╱ // 0x1ae7 @0x1d
0x1aca…1af9 at001e = ╱2a╱*╱ // 0x1ae8 @0x1e
0x1aca…1af9 at001f = ╱20╱…╱ // 0x1ae9 @0x1f
0x1aca…1af9 at0020 = ╱53╱S╱ // 0x1aea @0x20
0x1aca…1af9 at0021 = ╱49╱I╱ // 0x1aeb @0x21
0x1aca…1af9 at0022 = ╱44╱D╱ // 0x1aec @0x22
0x1aca…1af9 at0023 = ╱45╱E╱ // 0x1aed @0x23
0x1aca…1af9 at0024 = ╱3a╱:╱ // 0x1aee @0x24
0x1aca…1af9 at0025 = ╱20╱…╱ // 0x1aef @0x25
0x1aca…1af9 at0026 = ╱22╱"╱ // 0x1af0 @0x26
0x1aca…1af9 at0027 = ╱ea╱ ; ╱ // 0x1af1 @0x27
0x1aca…1af9 at0028 = ╱53╱S╱ // 0x1af2 @0x28
0x1aca…1af9 at0029 = ╱49╱I╱ // 0x1af3 @0x29
0x1aca…1af9 at002a = ╱44╱D╱ // 0x1af4 @0x2a
0x1aca…1af9 at002b = ╱45╱E╱ // 0x1af5 @0x2b
0x1aca…1af9 at002c = ╱4e╱N╱ // 0x1af6 @0x2c
0x1aca…1af9 at002d = ╱52╱R╱ // 0x1af7 @0x2d
0x1aca…1af9 at002e = EOL // 0x1af8 @0x2e
0x1aca…1af9 }
0x1af9…1aff b0ed 02740 PRINT
0x1af9…1aff LineComal80 {
0x1af9…1aff ptr = 0xb0ed // 0x1af9 @0x0
0x1af9…1aff lno = 0x0ab4 // 0x1afb @0x2
0x1af9…1aff at0004 = ╱92╱ PRINT ╱ // 0x1afd @0x4
0x1af9…1aff at0005 = EOL // 0x1afe @0x5
0x1af9…1aff }
0x1aff…1b38 b126 02750 PRINT "Firmanavn:…" ; FIRMANAVN $ ; TAB ( 54 ) ; "**…KONTOKORT…**"
0x1aff…1b38 LineComal80 {
0x1aff…1b38 ptr = 0xb126 // 0x1aff @0x0
0x1aff…1b38 lno = 0x0abe // 0x1b01 @0x2
0x1aff…1b38 at0004 = ╱92╱ PRINT ╱ // 0x1b03 @0x4
0x1aff…1b38 at0005 = ╱22╱"╱ // 0x1b04 @0x5
0x1aff…1b38 at0006 = ╱46╱F╱ // 0x1b05 @0x6
0x1aff…1b38 at0007 = ╱69╱i╱ // 0x1b06 @0x7
0x1aff…1b38 at0008 = ╱72╱r╱ // 0x1b07 @0x8
0x1aff…1b38 at0009 = ╱6d╱m╱ // 0x1b08 @0x9
0x1aff…1b38 at000a = ╱61╱a╱ // 0x1b09 @0xa
0x1aff…1b38 at000b = ╱6e╱n╱ // 0x1b0a @0xb
0x1aff…1b38 at000c = ╱61╱a╱ // 0x1b0b @0xc
0x1aff…1b38 at000d = ╱76╱v╱ // 0x1b0c @0xd
0x1aff…1b38 at000e = ╱6e╱n╱ // 0x1b0d @0xe
0x1aff…1b38 at000f = ╱3a╱:╱ // 0x1b0e @0xf
0x1aff…1b38 at0010 = ╱20╱…╱ // 0x1b0f @0x10
0x1aff…1b38 at0011 = ╱22╱"╱ // 0x1b10 @0x11
0x1aff…1b38 at0012 = ╱ea╱ ; ╱ // 0x1b11 @0x12
0x1aff…1b38 at0013 = ╱46╱F╱ // 0x1b12 @0x13
0x1aff…1b38 at0014 = ╱49╱I╱ // 0x1b13 @0x14
0x1aff…1b38 at0015 = ╱52╱R╱ // 0x1b14 @0x15
0x1aff…1b38 at0016 = ╱4d╱M╱ // 0x1b15 @0x16
0x1aff…1b38 at0017 = ╱41╱A╱ // 0x1b16 @0x17
0x1aff…1b38 at0018 = ╱4e╱N╱ // 0x1b17 @0x18
0x1aff…1b38 at0019 = ╱41╱A╱ // 0x1b18 @0x19
0x1aff…1b38 at001a = ╱56╱V╱ // 0x1b19 @0x1a
0x1aff…1b38 at001b = ╱4e╱N╱ // 0x1b1a @0x1b
0x1aff…1b38 at001c = ╱ef╱ $ ╱ // 0x1b1b @0x1c
0x1aff…1b38 at001d = ╱ea╱ ; ╱ // 0x1b1c @0x1d
0x1aff…1b38 at001e = ╱d2╱ TAB ╱ // 0x1b1d @0x1e
0x1aff…1b38 at001f = ╱ed╱ ( ╱ // 0x1b1e @0x1f
0x1aff…1b38 at0020 = ╱35╱5╱ // 0x1b1f @0x20
0x1aff…1b38 at0021 = ╱34╱4╱ // 0x1b20 @0x21
0x1aff…1b38 at0022 = ╱f23600╱ // 0x1b21 @0x22
0x1aff…1b38 at0025 = ╱ee╱ ) ╱ // 0x1b24 @0x25
0x1aff…1b38 at0026 = ╱ea╱ ; ╱ // 0x1b25 @0x26
0x1aff…1b38 at0027 = ╱22╱"╱ // 0x1b26 @0x27
0x1aff…1b38 at0028 = ╱2a╱*╱ // 0x1b27 @0x28
0x1aff…1b38 at0029 = ╱2a╱*╱ // 0x1b28 @0x29
0x1aff…1b38 at002a = ╱20╱…╱ // 0x1b29 @0x2a
0x1aff…1b38 at002b = ╱4b╱K╱ // 0x1b2a @0x2b
0x1aff…1b38 at002c = ╱4f╱O╱ // 0x1b2b @0x2c
0x1aff…1b38 at002d = ╱4e╱N╱ // 0x1b2c @0x2d
0x1aff…1b38 at002e = ╱54╱T╱ // 0x1b2d @0x2e
0x1aff…1b38 at002f = ╱4f╱O╱ // 0x1b2e @0x2f
0x1aff…1b38 at0030 = ╱4b╱K╱ // 0x1b2f @0x30
0x1aff…1b38 at0031 = ╱4f╱O╱ // 0x1b30 @0x31
0x1aff…1b38 at0032 = ╱52╱R╱ // 0x1b31 @0x32
0x1aff…1b38 at0033 = ╱54╱T╱ // 0x1b32 @0x33
0x1aff…1b38 at0034 = ╱20╱…╱ // 0x1b33 @0x34
0x1aff…1b38 at0035 = ╱2a╱*╱ // 0x1b34 @0x35
0x1aff…1b38 at0036 = ╱2a╱*╱ // 0x1b35 @0x36
0x1aff…1b38 at0037 = ╱22╱"╱ // 0x1b36 @0x37
0x1aff…1b38 at0038 = EOL // 0x1b37 @0x38
0x1aff…1b38 }
0x1b38…1b3e b12c 02760 PRINT
0x1b38…1b3e LineComal80 {
0x1b38…1b3e ptr = 0xb12c // 0x1b38 @0x0
0x1b38…1b3e lno = 0x0ac8 // 0x1b3a @0x2
0x1b38…1b3e at0004 = ╱92╱ PRINT ╱ // 0x1b3c @0x4
0x1b38…1b3e at0005 = EOL // 0x1b3d @0x5
0x1b38…1b3e }
0x1b3e…1b88 b176 02770 PRINT "**…KONTONR:…" ; KTONR $ ; TAB ( 25 ) ; "KONTONAVN:…" ; KTO_NAVN $ ; TAB ( 77 ) ; "**"
0x1b3e…1b88 LineComal80 {
0x1b3e…1b88 ptr = 0xb176 // 0x1b3e @0x0
0x1b3e…1b88 lno = 0x0ad2 // 0x1b40 @0x2
0x1b3e…1b88 at0004 = ╱92╱ PRINT ╱ // 0x1b42 @0x4
0x1b3e…1b88 at0005 = ╱22╱"╱ // 0x1b43 @0x5
0x1b3e…1b88 at0006 = ╱2a╱*╱ // 0x1b44 @0x6
0x1b3e…1b88 at0007 = ╱2a╱*╱ // 0x1b45 @0x7
0x1b3e…1b88 at0008 = ╱20╱…╱ // 0x1b46 @0x8
0x1b3e…1b88 at0009 = ╱4b╱K╱ // 0x1b47 @0x9
0x1b3e…1b88 at000a = ╱4f╱O╱ // 0x1b48 @0xa
0x1b3e…1b88 at000b = ╱4e╱N╱ // 0x1b49 @0xb
0x1b3e…1b88 at000c = ╱54╱T╱ // 0x1b4a @0xc
0x1b3e…1b88 at000d = ╱4f╱O╱ // 0x1b4b @0xd
0x1b3e…1b88 at000e = ╱4e╱N╱ // 0x1b4c @0xe
0x1b3e…1b88 at000f = ╱52╱R╱ // 0x1b4d @0xf
0x1b3e…1b88 at0010 = ╱3a╱:╱ // 0x1b4e @0x10
0x1b3e…1b88 at0011 = ╱20╱…╱ // 0x1b4f @0x11
0x1b3e…1b88 at0012 = ╱22╱"╱ // 0x1b50 @0x12
0x1b3e…1b88 at0013 = ╱ea╱ ; ╱ // 0x1b51 @0x13
0x1b3e…1b88 at0014 = ╱4b╱K╱ // 0x1b52 @0x14
0x1b3e…1b88 at0015 = ╱54╱T╱ // 0x1b53 @0x15
0x1b3e…1b88 at0016 = ╱4f╱O╱ // 0x1b54 @0x16
0x1b3e…1b88 at0017 = ╱4e╱N╱ // 0x1b55 @0x17
0x1b3e…1b88 at0018 = ╱52╱R╱ // 0x1b56 @0x18
0x1b3e…1b88 at0019 = ╱ef╱ $ ╱ // 0x1b57 @0x19
0x1b3e…1b88 at001a = ╱ea╱ ; ╱ // 0x1b58 @0x1a
0x1b3e…1b88 at001b = ╱d2╱ TAB ╱ // 0x1b59 @0x1b
0x1b3e…1b88 at001c = ╱ed╱ ( ╱ // 0x1b5a @0x1c
0x1b3e…1b88 at001d = ╱32╱2╱ // 0x1b5b @0x1d
0x1b3e…1b88 at001e = ╱35╱5╱ // 0x1b5c @0x1e
0x1b3e…1b88 at001f = ╱f21900╱ // 0x1b5d @0x1f
0x1b3e…1b88 at0022 = ╱ee╱ ) ╱ // 0x1b60 @0x22
0x1b3e…1b88 at0023 = ╱ea╱ ; ╱ // 0x1b61 @0x23
0x1b3e…1b88 at0024 = ╱22╱"╱ // 0x1b62 @0x24
0x1b3e…1b88 at0025 = ╱4b╱K╱ // 0x1b63 @0x25
0x1b3e…1b88 at0026 = ╱4f╱O╱ // 0x1b64 @0x26
0x1b3e…1b88 at0027 = ╱4e╱N╱ // 0x1b65 @0x27
0x1b3e…1b88 at0028 = ╱54╱T╱ // 0x1b66 @0x28
0x1b3e…1b88 at0029 = ╱4f╱O╱ // 0x1b67 @0x29
0x1b3e…1b88 at002a = ╱4e╱N╱ // 0x1b68 @0x2a
0x1b3e…1b88 at002b = ╱41╱A╱ // 0x1b69 @0x2b
0x1b3e…1b88 at002c = ╱56╱V╱ // 0x1b6a @0x2c
0x1b3e…1b88 at002d = ╱4e╱N╱ // 0x1b6b @0x2d
0x1b3e…1b88 at002e = ╱3a╱:╱ // 0x1b6c @0x2e
0x1b3e…1b88 at002f = ╱20╱…╱ // 0x1b6d @0x2f
0x1b3e…1b88 at0030 = ╱22╱"╱ // 0x1b6e @0x30
0x1b3e…1b88 at0031 = ╱ea╱ ; ╱ // 0x1b6f @0x31
0x1b3e…1b88 at0032 = ╱4b╱K╱ // 0x1b70 @0x32
0x1b3e…1b88 at0033 = ╱54╱T╱ // 0x1b71 @0x33
0x1b3e…1b88 at0034 = ╱4f╱O╱ // 0x1b72 @0x34
0x1b3e…1b88 at0035 = ╱5f╱_╱ // 0x1b73 @0x35
0x1b3e…1b88 at0036 = ╱4e╱N╱ // 0x1b74 @0x36
0x1b3e…1b88 at0037 = ╱41╱A╱ // 0x1b75 @0x37
0x1b3e…1b88 at0038 = ╱56╱V╱ // 0x1b76 @0x38
0x1b3e…1b88 at0039 = ╱4e╱N╱ // 0x1b77 @0x39
0x1b3e…1b88 at003a = ╱ef╱ $ ╱ // 0x1b78 @0x3a
0x1b3e…1b88 at003b = ╱ea╱ ; ╱ // 0x1b79 @0x3b
0x1b3e…1b88 at003c = ╱d2╱ TAB ╱ // 0x1b7a @0x3c
0x1b3e…1b88 at003d = ╱ed╱ ( ╱ // 0x1b7b @0x3d
0x1b3e…1b88 at003e = ╱37╱7╱ // 0x1b7c @0x3e
0x1b3e…1b88 at003f = ╱37╱7╱ // 0x1b7d @0x3f
0x1b3e…1b88 at0040 = ╱f24d00╱ // 0x1b7e @0x40
0x1b3e…1b88 at0043 = ╱ee╱ ) ╱ // 0x1b81 @0x43
0x1b3e…1b88 at0044 = ╱ea╱ ; ╱ // 0x1b82 @0x44
0x1b3e…1b88 at0045 = ╱22╱"╱ // 0x1b83 @0x45
0x1b3e…1b88 at0046 = ╱2a╱*╱ // 0x1b84 @0x46
0x1b3e…1b88 at0047 = ╱2a╱*╱ // 0x1b85 @0x47
0x1b3e…1b88 at0048 = ╱22╱"╱ // 0x1b86 @0x48
0x1b3e…1b88 at0049 = EOL // 0x1b87 @0x49
0x1b3e…1b88 }
0x1b88…1bba b1a8 02780 PRINT "<S>---------------------------------------"
0x1b88…1bba LineComal80 {
0x1b88…1bba ptr = 0xb1a8 // 0x1b88 @0x0
0x1b88…1bba lno = 0x0adc // 0x1b8a @0x2
0x1b88…1bba at0004 = ╱92╱ PRINT ╱ // 0x1b8c @0x4
0x1b88…1bba at0005 = ╱22╱"╱ // 0x1b8d @0x5
0x1b88…1bba at0006 = ╱3c╱<╱ // 0x1b8e @0x6
0x1b88…1bba at0007 = ╱53╱S╱ // 0x1b8f @0x7
0x1b88…1bba at0008 = ╱3e╱>╱ // 0x1b90 @0x8
0x1b88…1bba at0009 = ╱2d╱-╱ // 0x1b91 @0x9
0x1b88…1bba at000a = ╱2d╱-╱ // 0x1b92 @0xa
0x1b88…1bba at000b = ╱2d╱-╱ // 0x1b93 @0xb
0x1b88…1bba at000c = ╱2d╱-╱ // 0x1b94 @0xc
0x1b88…1bba at000d = ╱2d╱-╱ // 0x1b95 @0xd
0x1b88…1bba at000e = ╱2d╱-╱ // 0x1b96 @0xe
0x1b88…1bba at000f = ╱2d╱-╱ // 0x1b97 @0xf
0x1b88…1bba at0010 = ╱2d╱-╱ // 0x1b98 @0x10
0x1b88…1bba at0011 = ╱2d╱-╱ // 0x1b99 @0x11
0x1b88…1bba at0012 = ╱2d╱-╱ // 0x1b9a @0x12
0x1b88…1bba at0013 = ╱2d╱-╱ // 0x1b9b @0x13
0x1b88…1bba at0014 = ╱2d╱-╱ // 0x1b9c @0x14
0x1b88…1bba at0015 = ╱2d╱-╱ // 0x1b9d @0x15
0x1b88…1bba at0016 = ╱2d╱-╱ // 0x1b9e @0x16
0x1b88…1bba at0017 = ╱2d╱-╱ // 0x1b9f @0x17
0x1b88…1bba at0018 = ╱2d╱-╱ // 0x1ba0 @0x18
0x1b88…1bba at0019 = ╱2d╱-╱ // 0x1ba1 @0x19
0x1b88…1bba at001a = ╱2d╱-╱ // 0x1ba2 @0x1a
0x1b88…1bba at001b = ╱2d╱-╱ // 0x1ba3 @0x1b
0x1b88…1bba at001c = ╱2d╱-╱ // 0x1ba4 @0x1c
0x1b88…1bba at001d = ╱2d╱-╱ // 0x1ba5 @0x1d
0x1b88…1bba at001e = ╱2d╱-╱ // 0x1ba6 @0x1e
0x1b88…1bba at001f = ╱2d╱-╱ // 0x1ba7 @0x1f
0x1b88…1bba at0020 = ╱2d╱-╱ // 0x1ba8 @0x20
0x1b88…1bba at0021 = ╱2d╱-╱ // 0x1ba9 @0x21
0x1b88…1bba at0022 = ╱2d╱-╱ // 0x1baa @0x22
0x1b88…1bba at0023 = ╱2d╱-╱ // 0x1bab @0x23
0x1b88…1bba at0024 = ╱2d╱-╱ // 0x1bac @0x24
0x1b88…1bba at0025 = ╱2d╱-╱ // 0x1bad @0x25
0x1b88…1bba at0026 = ╱2d╱-╱ // 0x1bae @0x26
0x1b88…1bba at0027 = ╱2d╱-╱ // 0x1baf @0x27
0x1b88…1bba at0028 = ╱2d╱-╱ // 0x1bb0 @0x28
0x1b88…1bba at0029 = ╱2d╱-╱ // 0x1bb1 @0x29
0x1b88…1bba at002a = ╱2d╱-╱ // 0x1bb2 @0x2a
0x1b88…1bba at002b = ╱2d╱-╱ // 0x1bb3 @0x2b
0x1b88…1bba at002c = ╱2d╱-╱ // 0x1bb4 @0x2c
0x1b88…1bba at002d = ╱2d╱-╱ // 0x1bb5 @0x2d
0x1b88…1bba at002e = ╱2d╱-╱ // 0x1bb6 @0x2e
0x1b88…1bba at002f = ╱2d╱-╱ // 0x1bb7 @0x2f
0x1b88…1bba at0030 = ╱22╱"╱ // 0x1bb8 @0x30
0x1b88…1bba at0031 = EOL // 0x1bb9 @0x31
0x1b88…1bba }
0x1bba…1be9 bbda 02790 PRINT "---------------------------------------"
0x1bba…1be9 LineComal80 {
0x1bba…1be9 ptr = 0xbbda // 0x1bba @0x0
0x1bba…1be9 lno = 0x0ae6 // 0x1bbc @0x2
0x1bba…1be9 at0004 = ╱92╱ PRINT ╱ // 0x1bbe @0x4
0x1bba…1be9 at0005 = ╱22╱"╱ // 0x1bbf @0x5
0x1bba…1be9 at0006 = ╱2d╱-╱ // 0x1bc0 @0x6
0x1bba…1be9 at0007 = ╱2d╱-╱ // 0x1bc1 @0x7
0x1bba…1be9 at0008 = ╱2d╱-╱ // 0x1bc2 @0x8
0x1bba…1be9 at0009 = ╱2d╱-╱ // 0x1bc3 @0x9
0x1bba…1be9 at000a = ╱2d╱-╱ // 0x1bc4 @0xa
0x1bba…1be9 at000b = ╱2d╱-╱ // 0x1bc5 @0xb
0x1bba…1be9 at000c = ╱2d╱-╱ // 0x1bc6 @0xc
0x1bba…1be9 at000d = ╱2d╱-╱ // 0x1bc7 @0xd
0x1bba…1be9 at000e = ╱2d╱-╱ // 0x1bc8 @0xe
0x1bba…1be9 at000f = ╱2d╱-╱ // 0x1bc9 @0xf
0x1bba…1be9 at0010 = ╱2d╱-╱ // 0x1bca @0x10
0x1bba…1be9 at0011 = ╱2d╱-╱ // 0x1bcb @0x11
0x1bba…1be9 at0012 = ╱2d╱-╱ // 0x1bcc @0x12
0x1bba…1be9 at0013 = ╱2d╱-╱ // 0x1bcd @0x13
0x1bba…1be9 at0014 = ╱2d╱-╱ // 0x1bce @0x14
0x1bba…1be9 at0015 = ╱2d╱-╱ // 0x1bcf @0x15
0x1bba…1be9 at0016 = ╱2d╱-╱ // 0x1bd0 @0x16
0x1bba…1be9 at0017 = ╱2d╱-╱ // 0x1bd1 @0x17
0x1bba…1be9 at0018 = ╱2d╱-╱ // 0x1bd2 @0x18
0x1bba…1be9 at0019 = ╱2d╱-╱ // 0x1bd3 @0x19
0x1bba…1be9 at001a = ╱2d╱-╱ // 0x1bd4 @0x1a
0x1bba…1be9 at001b = ╱2d╱-╱ // 0x1bd5 @0x1b
0x1bba…1be9 at001c = ╱2d╱-╱ // 0x1bd6 @0x1c
0x1bba…1be9 at001d = ╱2d╱-╱ // 0x1bd7 @0x1d
0x1bba…1be9 at001e = ╱2d╱-╱ // 0x1bd8 @0x1e
0x1bba…1be9 at001f = ╱2d╱-╱ // 0x1bd9 @0x1f
0x1bba…1be9 at0020 = ╱2d╱-╱ // 0x1bda @0x20
0x1bba…1be9 at0021 = ╱2d╱-╱ // 0x1bdb @0x21
0x1bba…1be9 at0022 = ╱2d╱-╱ // 0x1bdc @0x22
0x1bba…1be9 at0023 = ╱2d╱-╱ // 0x1bdd @0x23
0x1bba…1be9 at0024 = ╱2d╱-╱ // 0x1bde @0x24
0x1bba…1be9 at0025 = ╱2d╱-╱ // 0x1bdf @0x25
0x1bba…1be9 at0026 = ╱2d╱-╱ // 0x1be0 @0x26
0x1bba…1be9 at0027 = ╱2d╱-╱ // 0x1be1 @0x27
0x1bba…1be9 at0028 = ╱2d╱-╱ // 0x1be2 @0x28
0x1bba…1be9 at0029 = ╱2d╱-╱ // 0x1be3 @0x29
0x1bba…1be9 at002a = ╱2d╱-╱ // 0x1be4 @0x2a
0x1bba…1be9 at002b = ╱2d╱-╱ // 0x1be5 @0x2b
0x1bba…1be9 at002c = ╱2d╱-╱ // 0x1be6 @0x2c
0x1bba…1be9 at002d = ╱22╱"╱ // 0x1be7 @0x2d
0x1bba…1be9 at002e = EOL // 0x1be8 @0x2e
0x1bba…1be9 }
0x1be9…1c2c b21a 02800 PRINT "<S>……DATO…………BILAG……TEKST" ; TAB ( 47 ) ; "MOMSBEL\B………DEBETBEL\B"
0x1be9…1c2c LineComal80 {
0x1be9…1c2c ptr = 0xb21a // 0x1be9 @0x0
0x1be9…1c2c lno = 0x0af0 // 0x1beb @0x2
0x1be9…1c2c at0004 = ╱92╱ PRINT ╱ // 0x1bed @0x4
0x1be9…1c2c at0005 = ╱22╱"╱ // 0x1bee @0x5
0x1be9…1c2c at0006 = ╱3c╱<╱ // 0x1bef @0x6
0x1be9…1c2c at0007 = ╱53╱S╱ // 0x1bf0 @0x7
0x1be9…1c2c at0008 = ╱3e╱>╱ // 0x1bf1 @0x8
0x1be9…1c2c at0009 = ╱20╱…╱ // 0x1bf2 @0x9
0x1be9…1c2c at000a = ╱20╱…╱ // 0x1bf3 @0xa
0x1be9…1c2c at000b = ╱44╱D╱ // 0x1bf4 @0xb
0x1be9…1c2c at000c = ╱41╱A╱ // 0x1bf5 @0xc
0x1be9…1c2c at000d = ╱54╱T╱ // 0x1bf6 @0xd
0x1be9…1c2c at000e = ╱4f╱O╱ // 0x1bf7 @0xe
0x1be9…1c2c at000f = ╱20╱…╱ // 0x1bf8 @0xf
0x1be9…1c2c at0010 = ╱20╱…╱ // 0x1bf9 @0x10
0x1be9…1c2c at0011 = ╱20╱…╱ // 0x1bfa @0x11
0x1be9…1c2c at0012 = ╱20╱…╱ // 0x1bfb @0x12
0x1be9…1c2c at0013 = ╱42╱B╱ // 0x1bfc @0x13
0x1be9…1c2c at0014 = ╱49╱I╱ // 0x1bfd @0x14
0x1be9…1c2c at0015 = ╱4c╱L╱ // 0x1bfe @0x15
0x1be9…1c2c at0016 = ╱41╱A╱ // 0x1bff @0x16
0x1be9…1c2c at0017 = ╱47╱G╱ // 0x1c00 @0x17
0x1be9…1c2c at0018 = ╱20╱…╱ // 0x1c01 @0x18
0x1be9…1c2c at0019 = ╱20╱…╱ // 0x1c02 @0x19
0x1be9…1c2c at001a = ╱54╱T╱ // 0x1c03 @0x1a
0x1be9…1c2c at001b = ╱45╱E╱ // 0x1c04 @0x1b
0x1be9…1c2c at001c = ╱4b╱K╱ // 0x1c05 @0x1c
0x1be9…1c2c at001d = ╱53╱S╱ // 0x1c06 @0x1d
0x1be9…1c2c at001e = ╱54╱T╱ // 0x1c07 @0x1e
0x1be9…1c2c at001f = ╱22╱"╱ // 0x1c08 @0x1f
0x1be9…1c2c at0020 = ╱ea╱ ; ╱ // 0x1c09 @0x20
0x1be9…1c2c at0021 = ╱d2╱ TAB ╱ // 0x1c0a @0x21
0x1be9…1c2c at0022 = ╱ed╱ ( ╱ // 0x1c0b @0x22
0x1be9…1c2c at0023 = ╱34╱4╱ // 0x1c0c @0x23
0x1be9…1c2c at0024 = ╱37╱7╱ // 0x1c0d @0x24
0x1be9…1c2c at0025 = ╱f22f00╱ // 0x1c0e @0x25
0x1be9…1c2c at0028 = ╱ee╱ ) ╱ // 0x1c11 @0x28
0x1be9…1c2c at0029 = ╱ea╱ ; ╱ // 0x1c12 @0x29
0x1be9…1c2c at002a = ╱22╱"╱ // 0x1c13 @0x2a
0x1be9…1c2c at002b = ╱4d╱M╱ // 0x1c14 @0x2b
0x1be9…1c2c at002c = ╱4f╱O╱ // 0x1c15 @0x2c
0x1be9…1c2c at002d = ╱4d╱M╱ // 0x1c16 @0x2d
0x1be9…1c2c at002e = ╱53╱S╱ // 0x1c17 @0x2e
0x1be9…1c2c at002f = ╱42╱B╱ // 0x1c18 @0x2f
0x1be9…1c2c at0030 = ╱45╱E╱ // 0x1c19 @0x30
0x1be9…1c2c at0031 = ╱4c╱L╱ // 0x1c1a @0x31
0x1be9…1c2c at0032 = ╱5c╱\╱ // 0x1c1b @0x32
0x1be9…1c2c at0033 = ╱42╱B╱ // 0x1c1c @0x33
0x1be9…1c2c at0034 = ╱20╱…╱ // 0x1c1d @0x34
0x1be9…1c2c at0035 = ╱20╱…╱ // 0x1c1e @0x35
0x1be9…1c2c at0036 = ╱20╱…╱ // 0x1c1f @0x36
0x1be9…1c2c at0037 = ╱44╱D╱ // 0x1c20 @0x37
0x1be9…1c2c at0038 = ╱45╱E╱ // 0x1c21 @0x38
0x1be9…1c2c at0039 = ╱42╱B╱ // 0x1c22 @0x39
0x1be9…1c2c at003a = ╱45╱E╱ // 0x1c23 @0x3a
0x1be9…1c2c at003b = ╱54╱T╱ // 0x1c24 @0x3b
0x1be9…1c2c at003c = ╱42╱B╱ // 0x1c25 @0x3c
0x1be9…1c2c at003d = ╱45╱E╱ // 0x1c26 @0x3d
0x1be9…1c2c at003e = ╱4c╱L╱ // 0x1c27 @0x3e
0x1be9…1c2c at003f = ╱5c╱\╱ // 0x1c28 @0x3f
0x1be9…1c2c at0040 = ╱42╱B╱ // 0x1c29 @0x40
0x1be9…1c2c at0041 = ╱22╱"╱ // 0x1c2a @0x41
0x1be9…1c2c at0042 = EOL // 0x1c2b @0x42
0x1be9…1c2c }
0x1c2c…1c41 b22f 02810 PRINT "……KREDITBEL\B"
0x1c2c…1c41 LineComal80 {
0x1c2c…1c41 ptr = 0xb22f // 0x1c2c @0x0
0x1c2c…1c41 lno = 0x0afa // 0x1c2e @0x2
0x1c2c…1c41 at0004 = ╱92╱ PRINT ╱ // 0x1c30 @0x4
0x1c2c…1c41 at0005 = ╱22╱"╱ // 0x1c31 @0x5
0x1c2c…1c41 at0006 = ╱20╱…╱ // 0x1c32 @0x6
0x1c2c…1c41 at0007 = ╱20╱…╱ // 0x1c33 @0x7
0x1c2c…1c41 at0008 = ╱4b╱K╱ // 0x1c34 @0x8
0x1c2c…1c41 at0009 = ╱52╱R╱ // 0x1c35 @0x9
0x1c2c…1c41 at000a = ╱45╱E╱ // 0x1c36 @0xa
0x1c2c…1c41 at000b = ╱44╱D╱ // 0x1c37 @0xb
0x1c2c…1c41 at000c = ╱49╱I╱ // 0x1c38 @0xc
0x1c2c…1c41 at000d = ╱54╱T╱ // 0x1c39 @0xd
0x1c2c…1c41 at000e = ╱42╱B╱ // 0x1c3a @0xe
0x1c2c…1c41 at000f = ╱45╱E╱ // 0x1c3b @0xf
0x1c2c…1c41 at0010 = ╱4c╱L╱ // 0x1c3c @0x10
0x1c2c…1c41 at0011 = ╱5c╱\╱ // 0x1c3d @0x11
0x1c2c…1c41 at0012 = ╱42╱B╱ // 0x1c3e @0x12
0x1c2c…1c41 at0013 = ╱22╱"╱ // 0x1c3f @0x13
0x1c2c…1c41 at0014 = EOL // 0x1c40 @0x14
0x1c2c…1c41 }
0x1c41…1c73 b261 02820 PRINT "<S>---------------------------------------"
0x1c41…1c73 LineComal80 {
0x1c41…1c73 ptr = 0xb261 // 0x1c41 @0x0
0x1c41…1c73 lno = 0x0b04 // 0x1c43 @0x2
0x1c41…1c73 at0004 = ╱92╱ PRINT ╱ // 0x1c45 @0x4
0x1c41…1c73 at0005 = ╱22╱"╱ // 0x1c46 @0x5
0x1c41…1c73 at0006 = ╱3c╱<╱ // 0x1c47 @0x6
0x1c41…1c73 at0007 = ╱53╱S╱ // 0x1c48 @0x7
0x1c41…1c73 at0008 = ╱3e╱>╱ // 0x1c49 @0x8
0x1c41…1c73 at0009 = ╱2d╱-╱ // 0x1c4a @0x9
0x1c41…1c73 at000a = ╱2d╱-╱ // 0x1c4b @0xa
0x1c41…1c73 at000b = ╱2d╱-╱ // 0x1c4c @0xb
0x1c41…1c73 at000c = ╱2d╱-╱ // 0x1c4d @0xc
0x1c41…1c73 at000d = ╱2d╱-╱ // 0x1c4e @0xd
0x1c41…1c73 at000e = ╱2d╱-╱ // 0x1c4f @0xe
0x1c41…1c73 at000f = ╱2d╱-╱ // 0x1c50 @0xf
0x1c41…1c73 at0010 = ╱2d╱-╱ // 0x1c51 @0x10
0x1c41…1c73 at0011 = ╱2d╱-╱ // 0x1c52 @0x11
0x1c41…1c73 at0012 = ╱2d╱-╱ // 0x1c53 @0x12
0x1c41…1c73 at0013 = ╱2d╱-╱ // 0x1c54 @0x13
0x1c41…1c73 at0014 = ╱2d╱-╱ // 0x1c55 @0x14
0x1c41…1c73 at0015 = ╱2d╱-╱ // 0x1c56 @0x15
0x1c41…1c73 at0016 = ╱2d╱-╱ // 0x1c57 @0x16
0x1c41…1c73 at0017 = ╱2d╱-╱ // 0x1c58 @0x17
0x1c41…1c73 at0018 = ╱2d╱-╱ // 0x1c59 @0x18
0x1c41…1c73 at0019 = ╱2d╱-╱ // 0x1c5a @0x19
0x1c41…1c73 at001a = ╱2d╱-╱ // 0x1c5b @0x1a
0x1c41…1c73 at001b = ╱2d╱-╱ // 0x1c5c @0x1b
0x1c41…1c73 at001c = ╱2d╱-╱ // 0x1c5d @0x1c
0x1c41…1c73 at001d = ╱2d╱-╱ // 0x1c5e @0x1d
0x1c41…1c73 at001e = ╱2d╱-╱ // 0x1c5f @0x1e
0x1c41…1c73 at001f = ╱2d╱-╱ // 0x1c60 @0x1f
0x1c41…1c73 at0020 = ╱2d╱-╱ // 0x1c61 @0x20
0x1c41…1c73 at0021 = ╱2d╱-╱ // 0x1c62 @0x21
0x1c41…1c73 at0022 = ╱2d╱-╱ // 0x1c63 @0x22
0x1c41…1c73 at0023 = ╱2d╱-╱ // 0x1c64 @0x23
0x1c41…1c73 at0024 = ╱2d╱-╱ // 0x1c65 @0x24
0x1c41…1c73 at0025 = ╱2d╱-╱ // 0x1c66 @0x25
0x1c41…1c73 at0026 = ╱2d╱-╱ // 0x1c67 @0x26
0x1c41…1c73 at0027 = ╱2d╱-╱ // 0x1c68 @0x27
0x1c41…1c73 at0028 = ╱2d╱-╱ // 0x1c69 @0x28
0x1c41…1c73 at0029 = ╱2d╱-╱ // 0x1c6a @0x29
0x1c41…1c73 at002a = ╱2d╱-╱ // 0x1c6b @0x2a
0x1c41…1c73 at002b = ╱2d╱-╱ // 0x1c6c @0x2b
0x1c41…1c73 at002c = ╱2d╱-╱ // 0x1c6d @0x2c
0x1c41…1c73 at002d = ╱2d╱-╱ // 0x1c6e @0x2d
0x1c41…1c73 at002e = ╱2d╱-╱ // 0x1c6f @0x2e
0x1c41…1c73 at002f = ╱2d╱-╱ // 0x1c70 @0x2f
0x1c41…1c73 at0030 = ╱22╱"╱ // 0x1c71 @0x30
0x1c41…1c73 at0031 = EOL // 0x1c72 @0x31
0x1c41…1c73 }
0x1c73…1ca2 b290 02830 PRINT "---------------------------------------"
0x1c73…1ca2 LineComal80 {
0x1c73…1ca2 ptr = 0xb290 // 0x1c73 @0x0
0x1c73…1ca2 lno = 0x0b0e // 0x1c75 @0x2
0x1c73…1ca2 at0004 = ╱92╱ PRINT ╱ // 0x1c77 @0x4
0x1c73…1ca2 at0005 = ╱22╱"╱ // 0x1c78 @0x5
0x1c73…1ca2 at0006 = ╱2d╱-╱ // 0x1c79 @0x6
0x1c73…1ca2 at0007 = ╱2d╱-╱ // 0x1c7a @0x7
0x1c73…1ca2 at0008 = ╱2d╱-╱ // 0x1c7b @0x8
0x1c73…1ca2 at0009 = ╱2d╱-╱ // 0x1c7c @0x9
0x1c73…1ca2 at000a = ╱2d╱-╱ // 0x1c7d @0xa
0x1c73…1ca2 at000b = ╱2d╱-╱ // 0x1c7e @0xb
0x1c73…1ca2 at000c = ╱2d╱-╱ // 0x1c7f @0xc
0x1c73…1ca2 at000d = ╱2d╱-╱ // 0x1c80 @0xd
0x1c73…1ca2 at000e = ╱2d╱-╱ // 0x1c81 @0xe
0x1c73…1ca2 at000f = ╱2d╱-╱ // 0x1c82 @0xf
0x1c73…1ca2 at0010 = ╱2d╱-╱ // 0x1c83 @0x10
0x1c73…1ca2 at0011 = ╱2d╱-╱ // 0x1c84 @0x11
0x1c73…1ca2 at0012 = ╱2d╱-╱ // 0x1c85 @0x12
0x1c73…1ca2 at0013 = ╱2d╱-╱ // 0x1c86 @0x13
0x1c73…1ca2 at0014 = ╱2d╱-╱ // 0x1c87 @0x14
0x1c73…1ca2 at0015 = ╱2d╱-╱ // 0x1c88 @0x15
0x1c73…1ca2 at0016 = ╱2d╱-╱ // 0x1c89 @0x16
0x1c73…1ca2 at0017 = ╱2d╱-╱ // 0x1c8a @0x17
0x1c73…1ca2 at0018 = ╱2d╱-╱ // 0x1c8b @0x18
0x1c73…1ca2 at0019 = ╱2d╱-╱ // 0x1c8c @0x19
0x1c73…1ca2 at001a = ╱2d╱-╱ // 0x1c8d @0x1a
0x1c73…1ca2 at001b = ╱2d╱-╱ // 0x1c8e @0x1b
0x1c73…1ca2 at001c = ╱2d╱-╱ // 0x1c8f @0x1c
0x1c73…1ca2 at001d = ╱2d╱-╱ // 0x1c90 @0x1d
0x1c73…1ca2 at001e = ╱2d╱-╱ // 0x1c91 @0x1e
0x1c73…1ca2 at001f = ╱2d╱-╱ // 0x1c92 @0x1f
0x1c73…1ca2 at0020 = ╱2d╱-╱ // 0x1c93 @0x20
0x1c73…1ca2 at0021 = ╱2d╱-╱ // 0x1c94 @0x21
0x1c73…1ca2 at0022 = ╱2d╱-╱ // 0x1c95 @0x22
0x1c73…1ca2 at0023 = ╱2d╱-╱ // 0x1c96 @0x23
0x1c73…1ca2 at0024 = ╱2d╱-╱ // 0x1c97 @0x24
0x1c73…1ca2 at0025 = ╱2d╱-╱ // 0x1c98 @0x25
0x1c73…1ca2 at0026 = ╱2d╱-╱ // 0x1c99 @0x26
0x1c73…1ca2 at0027 = ╱2d╱-╱ // 0x1c9a @0x27
0x1c73…1ca2 at0028 = ╱2d╱-╱ // 0x1c9b @0x28
0x1c73…1ca2 at0029 = ╱2d╱-╱ // 0x1c9c @0x29
0x1c73…1ca2 at002a = ╱2d╱-╱ // 0x1c9d @0x2a
0x1c73…1ca2 at002b = ╱2d╱-╱ // 0x1c9e @0x2b
0x1c73…1ca2 at002c = ╱2d╱-╱ // 0x1c9f @0x2c
0x1c73…1ca2 at002d = ╱22╱"╱ // 0x1ca0 @0x2d
0x1c73…1ca2 at002e = EOL // 0x1ca1 @0x2e
0x1c73…1ca2 }
0x1ca2…1cae b29c 02840 ENDPROC NYSIDE
0x1ca2…1cae LineComal80 {
0x1ca2…1cae ptr = 0xb29c // 0x1ca2 @0x0
0x1ca2…1cae lno = 0x0b18 // 0x1ca4 @0x2
0x1ca2…1cae at0004 = ╱9f╱ ENDPROC ╱ // 0x1ca6 @0x4
0x1ca2…1cae at0005 = ╱4e╱N╱ // 0x1ca7 @0x5
0x1ca2…1cae at0006 = ╱59╱Y╱ // 0x1ca8 @0x6
0x1ca2…1cae at0007 = ╱53╱S╱ // 0x1ca9 @0x7
0x1ca2…1cae at0008 = ╱49╱I╱ // 0x1caa @0x8
0x1ca2…1cae at0009 = ╱44╱D╱ // 0x1cab @0x9
0x1ca2…1cae at000a = ╱45╱E╱ // 0x1cac @0xa
0x1ca2…1cae at000b = EOL // 0x1cad @0xb
0x1ca2…1cae }
0x1cae…1cb3 b2a1 02850
0x1cae…1cb3 LineComal80 {
0x1cae…1cb3 ptr = 0xb2a1 // 0x1cae @0x0
0x1cae…1cb3 lno = 0x0b22 // 0x1cb0 @0x2
0x1cae…1cb3 at0004 = EOL // 0x1cb2 @0x4
0x1cae…1cb3 }
0x1cb3…1ce0 b2ce 02860 PROC SKRIV_LIN ( Q_D $ , Q_B $ , Q_T $ , Q_M , Q_K , Q_DK )
0x1cb3…1ce0 LineComal80 {
0x1cb3…1ce0 ptr = 0xb2ce // 0x1cb3 @0x0
0x1cb3…1ce0 lno = 0x0b2c // 0x1cb5 @0x2
0x1cb3…1ce0 at0004 = ╱9e30╱ PROC ╱ // 0x1cb7 @0x4
0x1cb3…1ce0 at0006 = ╱53╱S╱ // 0x1cb9 @0x6
0x1cb3…1ce0 at0007 = ╱4b╱K╱ // 0x1cba @0x7
0x1cb3…1ce0 at0008 = ╱52╱R╱ // 0x1cbb @0x8
0x1cb3…1ce0 at0009 = ╱49╱I╱ // 0x1cbc @0x9
0x1cb3…1ce0 at000a = ╱56╱V╱ // 0x1cbd @0xa
0x1cb3…1ce0 at000b = ╱5f╱_╱ // 0x1cbe @0xb
0x1cb3…1ce0 at000c = ╱4c╱L╱ // 0x1cbf @0xc
0x1cb3…1ce0 at000d = ╱49╱I╱ // 0x1cc0 @0xd
0x1cb3…1ce0 at000e = ╱4e╱N╱ // 0x1cc1 @0xe
0x1cb3…1ce0 at000f = ╱ed╱ ( ╱ // 0x1cc2 @0xf
0x1cb3…1ce0 at0010 = ╱51╱Q╱ // 0x1cc3 @0x10
0x1cb3…1ce0 at0011 = ╱5f╱_╱ // 0x1cc4 @0x11
0x1cb3…1ce0 at0012 = ╱44╱D╱ // 0x1cc5 @0x12
0x1cb3…1ce0 at0013 = ╱ef╱ $ ╱ // 0x1cc6 @0x13
0x1cb3…1ce0 at0014 = ╱ec╱ , ╱ // 0x1cc7 @0x14
0x1cb3…1ce0 at0015 = ╱51╱Q╱ // 0x1cc8 @0x15
0x1cb3…1ce0 at0016 = ╱5f╱_╱ // 0x1cc9 @0x16
0x1cb3…1ce0 at0017 = ╱42╱B╱ // 0x1cca @0x17
0x1cb3…1ce0 at0018 = ╱ef╱ $ ╱ // 0x1ccb @0x18
0x1cb3…1ce0 at0019 = ╱ec╱ , ╱ // 0x1ccc @0x19
0x1cb3…1ce0 at001a = ╱51╱Q╱ // 0x1ccd @0x1a
0x1cb3…1ce0 at001b = ╱5f╱_╱ // 0x1cce @0x1b
0x1cb3…1ce0 at001c = ╱54╱T╱ // 0x1ccf @0x1c
0x1cb3…1ce0 at001d = ╱ef╱ $ ╱ // 0x1cd0 @0x1d
0x1cb3…1ce0 at001e = ╱ec╱ , ╱ // 0x1cd1 @0x1e
0x1cb3…1ce0 at001f = ╱51╱Q╱ // 0x1cd2 @0x1f
0x1cb3…1ce0 at0020 = ╱5f╱_╱ // 0x1cd3 @0x20
0x1cb3…1ce0 at0021 = ╱4d╱M╱ // 0x1cd4 @0x21
0x1cb3…1ce0 at0022 = ╱ec╱ , ╱ // 0x1cd5 @0x22
0x1cb3…1ce0 at0023 = ╱51╱Q╱ // 0x1cd6 @0x23
0x1cb3…1ce0 at0024 = ╱5f╱_╱ // 0x1cd7 @0x24
0x1cb3…1ce0 at0025 = ╱4b╱K╱ // 0x1cd8 @0x25
0x1cb3…1ce0 at0026 = ╱ec╱ , ╱ // 0x1cd9 @0x26
0x1cb3…1ce0 at0027 = ╱51╱Q╱ // 0x1cda @0x27
0x1cb3…1ce0 at0028 = ╱5f╱_╱ // 0x1cdb @0x28
0x1cb3…1ce0 at0029 = ╱44╱D╱ // 0x1cdc @0x29
0x1cb3…1ce0 at002a = ╱4b╱K╱ // 0x1cdd @0x2a
0x1cb3…1ce0 at002b = ╱ee╱ ) ╱ // 0x1cde @0x2b
0x1cb3…1ce0 at002c = EOL // 0x1cdf @0x2c
0x1cb3…1ce0 }
0x1ce0…1d04 (96,) b2f2 02870 IF LIN_T + 6 > MAX_LIN THEN EXEC SIDESKIFT
0x1ce0…1d04 LineComal80 {
0x1ce0…1d04 ptr = 0xb2f2 // 0x1ce0 @0x0
0x1ce0…1d04 lno = 0x0b36 // 0x1ce2 @0x2
0x1ce0…1d04 at0004 = ╱8200╱ IF ╱ // 0x1ce4 @0x4
0x1ce0…1d04 at0006 = ╱4c╱L╱ // 0x1ce6 @0x6
0x1ce0…1d04 at0007 = ╱49╱I╱ // 0x1ce7 @0x7
0x1ce0…1d04 at0008 = ╱4e╱N╱ // 0x1ce8 @0x8
0x1ce0…1d04 at0009 = ╱5f╱_╱ // 0x1ce9 @0x9
0x1ce0…1d04 at000a = ╱54╱T╱ // 0x1cea @0xa
0x1ce0…1d04 at000b = ╱e5╱ + ╱ // 0x1ceb @0xb
0x1ce0…1d04 at000c = ╱36╱6╱ // 0x1cec @0xc
0x1ce0…1d04 at000d = ╱f20600╱ // 0x1ced @0xd
0x1ce0…1d04 at0010 = ╱e1╱ > ╱ // 0x1cf0 @0x10
0x1ce0…1d04 at0011 = ╱4d╱M╱ // 0x1cf1 @0x11
0x1ce0…1d04 at0012 = ╱41╱A╱ // 0x1cf2 @0x12
0x1ce0…1d04 at0013 = ╱58╱X╱ // 0x1cf3 @0x13
0x1ce0…1d04 at0014 = ╱5f╱_╱ // 0x1cf4 @0x14
0x1ce0…1d04 at0015 = ╱4c╱L╱ // 0x1cf5 @0x15
0x1ce0…1d04 at0016 = ╱49╱I╱ // 0x1cf6 @0x16
0x1ce0…1d04 at0017 = ╱4e╱N╱ // 0x1cf7 @0x17
0x1ce0…1d04 at0018 = ╱b5╱ THEN ╱ // 0x1cf8 @0x18
0x1ce0…1d04 at0019 = ╱9d╱ EXEC ╱ // 0x1cf9 @0x19
0x1ce0…1d04 at001a = ╱53╱S╱ // 0x1cfa @0x1a
0x1ce0…1d04 at001b = ╱49╱I╱ // 0x1cfb @0x1b
0x1ce0…1d04 at001c = ╱44╱D╱ // 0x1cfc @0x1c
0x1ce0…1d04 at001d = ╱45╱E╱ // 0x1cfd @0x1d
0x1ce0…1d04 at001e = ╱53╱S╱ // 0x1cfe @0x1e
0x1ce0…1d04 at001f = ╱4b╱K╱ // 0x1cff @0x1f
0x1ce0…1d04 at0020 = ╱49╱I╱ // 0x1d00 @0x20
0x1ce0…1d04 at0021 = ╱46╱F╱ // 0x1d01 @0x21
0x1ce0…1d04 at0022 = ╱54╱T╱ // 0x1d02 @0x22
0x1ce0…1d04 at0023 = EOL // 0x1d03 @0x23
0x1ce0…1d04 }
0x1d04…1d1a b308 02880 LET LIN_T := LIN_T + 1
0x1d04…1d1a LineComal80 {
0x1d04…1d1a ptr = 0xb308 // 0x1d04 @0x0
0x1d04…1d1a lno = 0x0b40 // 0x1d06 @0x2
0x1d04…1d1a at0004 = ╱86╱ LET ╱ // 0x1d08 @0x4
0x1d04…1d1a at0005 = ╱4c╱L╱ // 0x1d09 @0x5
0x1d04…1d1a at0006 = ╱49╱I╱ // 0x1d0a @0x6
0x1d04…1d1a at0007 = ╱4e╱N╱ // 0x1d0b @0x7
0x1d04…1d1a at0008 = ╱5f╱_╱ // 0x1d0c @0x8
0x1d04…1d1a at0009 = ╱54╱T╱ // 0x1d0d @0x9
0x1d04…1d1a at000a = ╱f0╱ := ╱ // 0x1d0e @0xa
0x1d04…1d1a at000b = ╱4c╱L╱ // 0x1d0f @0xb
0x1d04…1d1a at000c = ╱49╱I╱ // 0x1d10 @0xc
0x1d04…1d1a at000d = ╱4e╱N╱ // 0x1d11 @0xd
0x1d04…1d1a at000e = ╱5f╱_╱ // 0x1d12 @0xe
0x1d04…1d1a at000f = ╱54╱T╱ // 0x1d13 @0xf
0x1d04…1d1a at0010 = ╱e5╱ + ╱ // 0x1d14 @0x10
0x1d04…1d1a at0011 = ╱31╱1╱ // 0x1d15 @0x11
0x1d04…1d1a at0012 = ╱f20100╱ // 0x1d16 @0x12
0x1d04…1d1a at0015 = EOL // 0x1d19 @0x15
0x1d04…1d1a }
0x1d1a…1d61 b34f 02890 PRINT Q_D $ ( 1 : 2 ) ; "." ; Q_D $ ( 3 : 2 ) ; "." ; Q_D $ ( 5 : 2 ) ; TAB ( 11 ) ;
0x1d1a…1d61 LineComal80 {
0x1d1a…1d61 ptr = 0xb34f // 0x1d1a @0x0
0x1d1a…1d61 lno = 0x0b4a // 0x1d1c @0x2
0x1d1a…1d61 at0004 = ╱92╱ PRINT ╱ // 0x1d1e @0x4
0x1d1a…1d61 at0005 = ╱51╱Q╱ // 0x1d1f @0x5
0x1d1a…1d61 at0006 = ╱5f╱_╱ // 0x1d20 @0x6
0x1d1a…1d61 at0007 = ╱44╱D╱ // 0x1d21 @0x7
0x1d1a…1d61 at0008 = ╱ef╱ $ ╱ // 0x1d22 @0x8
0x1d1a…1d61 at0009 = ╱ed╱ ( ╱ // 0x1d23 @0x9
0x1d1a…1d61 at000a = ╱31╱1╱ // 0x1d24 @0xa
0x1d1a…1d61 at000b = ╱f20100╱ // 0x1d25 @0xb
0x1d1a…1d61 at000e = ╱f1╱ : ╱ // 0x1d28 @0xe
0x1d1a…1d61 at000f = ╱32╱2╱ // 0x1d29 @0xf
0x1d1a…1d61 at0010 = ╱f20200╱ // 0x1d2a @0x10
0x1d1a…1d61 at0013 = ╱ee╱ ) ╱ // 0x1d2d @0x13
0x1d1a…1d61 at0014 = ╱ea╱ ; ╱ // 0x1d2e @0x14
0x1d1a…1d61 at0015 = ╱22╱"╱ // 0x1d2f @0x15
0x1d1a…1d61 at0016 = ╱2e╱.╱ // 0x1d30 @0x16
0x1d1a…1d61 at0017 = ╱22╱"╱ // 0x1d31 @0x17
0x1d1a…1d61 at0018 = ╱ea╱ ; ╱ // 0x1d32 @0x18
0x1d1a…1d61 at0019 = ╱51╱Q╱ // 0x1d33 @0x19
0x1d1a…1d61 at001a = ╱5f╱_╱ // 0x1d34 @0x1a
0x1d1a…1d61 at001b = ╱44╱D╱ // 0x1d35 @0x1b
0x1d1a…1d61 at001c = ╱ef╱ $ ╱ // 0x1d36 @0x1c
0x1d1a…1d61 at001d = ╱ed╱ ( ╱ // 0x1d37 @0x1d
0x1d1a…1d61 at001e = ╱33╱3╱ // 0x1d38 @0x1e
0x1d1a…1d61 at001f = ╱f20300╱ // 0x1d39 @0x1f
0x1d1a…1d61 at0022 = ╱f1╱ : ╱ // 0x1d3c @0x22
0x1d1a…1d61 at0023 = ╱32╱2╱ // 0x1d3d @0x23
0x1d1a…1d61 at0024 = ╱f20200╱ // 0x1d3e @0x24
0x1d1a…1d61 at0027 = ╱ee╱ ) ╱ // 0x1d41 @0x27
0x1d1a…1d61 at0028 = ╱ea╱ ; ╱ // 0x1d42 @0x28
0x1d1a…1d61 at0029 = ╱22╱"╱ // 0x1d43 @0x29
0x1d1a…1d61 at002a = ╱2e╱.╱ // 0x1d44 @0x2a
0x1d1a…1d61 at002b = ╱22╱"╱ // 0x1d45 @0x2b
0x1d1a…1d61 at002c = ╱ea╱ ; ╱ // 0x1d46 @0x2c
0x1d1a…1d61 at002d = ╱51╱Q╱ // 0x1d47 @0x2d
0x1d1a…1d61 at002e = ╱5f╱_╱ // 0x1d48 @0x2e
0x1d1a…1d61 at002f = ╱44╱D╱ // 0x1d49 @0x2f
0x1d1a…1d61 at0030 = ╱ef╱ $ ╱ // 0x1d4a @0x30
0x1d1a…1d61 at0031 = ╱ed╱ ( ╱ // 0x1d4b @0x31
0x1d1a…1d61 at0032 = ╱35╱5╱ // 0x1d4c @0x32
0x1d1a…1d61 at0033 = ╱f20500╱ // 0x1d4d @0x33
0x1d1a…1d61 at0036 = ╱f1╱ : ╱ // 0x1d50 @0x36
0x1d1a…1d61 at0037 = ╱32╱2╱ // 0x1d51 @0x37
0x1d1a…1d61 at0038 = ╱f20200╱ // 0x1d52 @0x38
0x1d1a…1d61 at003b = ╱ee╱ ) ╱ // 0x1d55 @0x3b
0x1d1a…1d61 at003c = ╱ea╱ ; ╱ // 0x1d56 @0x3c
0x1d1a…1d61 at003d = ╱d2╱ TAB ╱ // 0x1d57 @0x3d
0x1d1a…1d61 at003e = ╱ed╱ ( ╱ // 0x1d58 @0x3e
0x1d1a…1d61 at003f = ╱31╱1╱ // 0x1d59 @0x3f
0x1d1a…1d61 at0040 = ╱31╱1╱ // 0x1d5a @0x40
0x1d1a…1d61 at0041 = ╱f20b00╱ // 0x1d5b @0x41
0x1d1a…1d61 at0044 = ╱ee╱ ) ╱ // 0x1d5e @0x44
0x1d1a…1d61 at0045 = ╱ea╱ ; ╱ // 0x1d5f @0x45
0x1d1a…1d61 at0046 = EOL // 0x1d60 @0x46
0x1d1a…1d61 }
0x1d61…1d91 b37f 02900 PRINT Q_B $ ; TAB ( 11 ) ; Q_B $ ; TAB ( 18 ) ; Q_T $ ; TAB ( 41 ) ;
0x1d61…1d91 LineComal80 {
0x1d61…1d91 ptr = 0xb37f // 0x1d61 @0x0
0x1d61…1d91 lno = 0x0b54 // 0x1d63 @0x2
0x1d61…1d91 at0004 = ╱92╱ PRINT ╱ // 0x1d65 @0x4
0x1d61…1d91 at0005 = ╱51╱Q╱ // 0x1d66 @0x5
0x1d61…1d91 at0006 = ╱5f╱_╱ // 0x1d67 @0x6
0x1d61…1d91 at0007 = ╱42╱B╱ // 0x1d68 @0x7
0x1d61…1d91 at0008 = ╱ef╱ $ ╱ // 0x1d69 @0x8
0x1d61…1d91 at0009 = ╱ea╱ ; ╱ // 0x1d6a @0x9
0x1d61…1d91 at000a = ╱d2╱ TAB ╱ // 0x1d6b @0xa
0x1d61…1d91 at000b = ╱ed╱ ( ╱ // 0x1d6c @0xb
0x1d61…1d91 at000c = ╱31╱1╱ // 0x1d6d @0xc
0x1d61…1d91 at000d = ╱31╱1╱ // 0x1d6e @0xd
0x1d61…1d91 at000e = ╱f20b00╱ // 0x1d6f @0xe
0x1d61…1d91 at0011 = ╱ee╱ ) ╱ // 0x1d72 @0x11
0x1d61…1d91 at0012 = ╱ea╱ ; ╱ // 0x1d73 @0x12
0x1d61…1d91 at0013 = ╱51╱Q╱ // 0x1d74 @0x13
0x1d61…1d91 at0014 = ╱5f╱_╱ // 0x1d75 @0x14
0x1d61…1d91 at0015 = ╱42╱B╱ // 0x1d76 @0x15
0x1d61…1d91 at0016 = ╱ef╱ $ ╱ // 0x1d77 @0x16
0x1d61…1d91 at0017 = ╱ea╱ ; ╱ // 0x1d78 @0x17
0x1d61…1d91 at0018 = ╱d2╱ TAB ╱ // 0x1d79 @0x18
0x1d61…1d91 at0019 = ╱ed╱ ( ╱ // 0x1d7a @0x19
0x1d61…1d91 at001a = ╱31╱1╱ // 0x1d7b @0x1a
0x1d61…1d91 at001b = ╱38╱8╱ // 0x1d7c @0x1b
0x1d61…1d91 at001c = ╱f21200╱ // 0x1d7d @0x1c
0x1d61…1d91 at001f = ╱ee╱ ) ╱ // 0x1d80 @0x1f
0x1d61…1d91 at0020 = ╱ea╱ ; ╱ // 0x1d81 @0x20
0x1d61…1d91 at0021 = ╱51╱Q╱ // 0x1d82 @0x21
0x1d61…1d91 at0022 = ╱5f╱_╱ // 0x1d83 @0x22
0x1d61…1d91 at0023 = ╱54╱T╱ // 0x1d84 @0x23
0x1d61…1d91 at0024 = ╱ef╱ $ ╱ // 0x1d85 @0x24
0x1d61…1d91 at0025 = ╱ea╱ ; ╱ // 0x1d86 @0x25
0x1d61…1d91 at0026 = ╱d2╱ TAB ╱ // 0x1d87 @0x26
0x1d61…1d91 at0027 = ╱ed╱ ( ╱ // 0x1d88 @0x27
0x1d61…1d91 at0028 = ╱34╱4╱ // 0x1d89 @0x28
0x1d61…1d91 at0029 = ╱31╱1╱ // 0x1d8a @0x29
0x1d61…1d91 at002a = ╱f22900╱ // 0x1d8b @0x2a
0x1d61…1d91 at002d = ╱ee╱ ) ╱ // 0x1d8e @0x2d
0x1d61…1d91 at002e = ╱ea╱ ; ╱ // 0x1d8f @0x2e
0x1d61…1d91 at002f = EOL // 0x1d90 @0x2f
0x1d61…1d91 }
0x1d91…1db3 b3a1 02910 IF Q_M > 0 THEN PRINT CHR$ ( Q_M , 9 , 2 ) ;
0x1d91…1db3 LineComal80 {
0x1d91…1db3 ptr = 0xb3a1 // 0x1d91 @0x0
0x1d91…1db3 lno = 0x0b5e // 0x1d93 @0x2
0x1d91…1db3 at0004 = ╱8200╱ IF ╱ // 0x1d95 @0x4
0x1d91…1db3 at0006 = ╱51╱Q╱ // 0x1d97 @0x6
0x1d91…1db3 at0007 = ╱5f╱_╱ // 0x1d98 @0x7
0x1d91…1db3 at0008 = ╱4d╱M╱ // 0x1d99 @0x8
0x1d91…1db3 at0009 = ╱e1╱ > ╱ // 0x1d9a @0x9
0x1d91…1db3 at000a = ╱30╱0╱ // 0x1d9b @0xa
0x1d91…1db3 at000b = ╱f20000╱ // 0x1d9c @0xb
0x1d91…1db3 at000e = ╱b5╱ THEN ╱ // 0x1d9f @0xe
0x1d91…1db3 at000f = ╱92╱ PRINT ╱ // 0x1da0 @0xf
0x1d91…1db3 at0010 = ╱d0╱ CHR$ ╱ // 0x1da1 @0x10
0x1d91…1db3 at0011 = ╱ed╱ ( ╱ // 0x1da2 @0x11
0x1d91…1db3 at0012 = ╱51╱Q╱ // 0x1da3 @0x12
0x1d91…1db3 at0013 = ╱5f╱_╱ // 0x1da4 @0x13
0x1d91…1db3 at0014 = ╱4d╱M╱ // 0x1da5 @0x14
0x1d91…1db3 at0015 = ╱ec╱ , ╱ // 0x1da6 @0x15
0x1d91…1db3 at0016 = ╱39╱9╱ // 0x1da7 @0x16
0x1d91…1db3 at0017 = ╱f20900╱ // 0x1da8 @0x17
0x1d91…1db3 at001a = ╱ec╱ , ╱ // 0x1dab @0x1a
0x1d91…1db3 at001b = ╱32╱2╱ // 0x1dac @0x1b
0x1d91…1db3 at001c = ╱f20200╱ // 0x1dad @0x1c
0x1d91…1db3 at001f = ╱ee╱ ) ╱ // 0x1db0 @0x1f
0x1d91…1db3 at0020 = ╱ea╱ ; ╱ // 0x1db1 @0x20
0x1d91…1db3 at0021 = EOL // 0x1db2 @0x21
0x1d91…1db3 }
0x1db3…1dc5 bc2f 02920 IF _DK = DEBET THEN
0x1db3…1dc5 LineComal80 {
0x1db3…1dc5 ptr = 0xbc2f // 0x1db3 @0x0
0x1db3…1dc5 lno = 0x0b68 // 0x1db5 @0x2
0x1db3…1dc5 at0004 = ╱9b3151╱ IF ╱ // 0x1db7 @0x4
0x1db3…1dc5 at0007 = ╱5f╱_╱ // 0x1dba @0x7
0x1db3…1dc5 at0008 = ╱44╱D╱ // 0x1dbb @0x8
0x1db3…1dc5 at0009 = ╱4b╱K╱ // 0x1dbc @0x9
0x1db3…1dc5 at000a = ╱df╱ = ╱ // 0x1dbd @0xa
0x1db3…1dc5 at000b = ╱44╱D╱ // 0x1dbe @0xb
0x1db3…1dc5 at000c = ╱45╱E╱ // 0x1dbf @0xc
0x1db3…1dc5 at000d = ╱42╱B╱ // 0x1dc0 @0xd
0x1db3…1dc5 at000e = ╱45╱E╱ // 0x1dc1 @0xe
0x1db3…1dc5 at000f = ╱54╱T╱ // 0x1dc2 @0xf
0x1db3…1dc5 at0010 = ╱b5╱ THEN ╱ // 0x1dc3 @0x10
0x1db3…1dc5 at0011 = EOL // 0x1dc4 @0x11
0x1db3…1dc5 }
0x1dc5…1de5 b3d3 02930 PRINT TAB ( 54 ) ; CHR$ ( Q_K , 9 , 2 ) ;
0x1dc5…1de5 LineComal80 {
0x1dc5…1de5 ptr = 0xb3d3 // 0x1dc5 @0x0
0x1dc5…1de5 lno = 0x0b72 // 0x1dc7 @0x2
0x1dc5…1de5 at0004 = ╱92╱ PRINT ╱ // 0x1dc9 @0x4
0x1dc5…1de5 at0005 = ╱d2╱ TAB ╱ // 0x1dca @0x5
0x1dc5…1de5 at0006 = ╱ed╱ ( ╱ // 0x1dcb @0x6
0x1dc5…1de5 at0007 = ╱35╱5╱ // 0x1dcc @0x7
0x1dc5…1de5 at0008 = ╱34╱4╱ // 0x1dcd @0x8
0x1dc5…1de5 at0009 = ╱f23600╱ // 0x1dce @0x9
0x1dc5…1de5 at000c = ╱ee╱ ) ╱ // 0x1dd1 @0xc
0x1dc5…1de5 at000d = ╱ea╱ ; ╱ // 0x1dd2 @0xd
0x1dc5…1de5 at000e = ╱d0╱ CHR$ ╱ // 0x1dd3 @0xe
0x1dc5…1de5 at000f = ╱ed╱ ( ╱ // 0x1dd4 @0xf
0x1dc5…1de5 at0010 = ╱51╱Q╱ // 0x1dd5 @0x10
0x1dc5…1de5 at0011 = ╱5f╱_╱ // 0x1dd6 @0x11
0x1dc5…1de5 at0012 = ╱4b╱K╱ // 0x1dd7 @0x12
0x1dc5…1de5 at0013 = ╱ec╱ , ╱ // 0x1dd8 @0x13
0x1dc5…1de5 at0014 = ╱39╱9╱ // 0x1dd9 @0x14
0x1dc5…1de5 at0015 = ╱f20900╱ // 0x1dda @0x15
0x1dc5…1de5 at0018 = ╱ec╱ , ╱ // 0x1ddd @0x18
0x1dc5…1de5 at0019 = ╱32╱2╱ // 0x1dde @0x19
0x1dc5…1de5 at001a = ╱f20200╱ // 0x1ddf @0x1a
0x1dc5…1de5 at001d = ╱ee╱ ) ╱ // 0x1de2 @0x1d
0x1dc5…1de5 at001e = ╱ea╱ ; ╱ // 0x1de3 @0x1e
0x1dc5…1de5 at001f = EOL // 0x1de4 @0x1f
0x1dc5…1de5 }
0x1de5…1e02 b3f0 02940 LET TOT ( 1 ) := TOT ( 1 ) + Q_K
0x1de5…1e02 LineComal80 {
0x1de5…1e02 ptr = 0xb3f0 // 0x1de5 @0x0
0x1de5…1e02 lno = 0x0b7c // 0x1de7 @0x2
0x1de5…1e02 at0004 = ╱86╱ LET ╱ // 0x1de9 @0x4
0x1de5…1e02 at0005 = ╱54╱T╱ // 0x1dea @0x5
0x1de5…1e02 at0006 = ╱4f╱O╱ // 0x1deb @0x6
0x1de5…1e02 at0007 = ╱54╱T╱ // 0x1dec @0x7
0x1de5…1e02 at0008 = ╱ed╱ ( ╱ // 0x1ded @0x8
0x1de5…1e02 at0009 = ╱31╱1╱ // 0x1dee @0x9
0x1de5…1e02 at000a = ╱f20100╱ // 0x1def @0xa
0x1de5…1e02 at000d = ╱ee╱ ) ╱ // 0x1df2 @0xd
0x1de5…1e02 at000e = ╱f0╱ := ╱ // 0x1df3 @0xe
0x1de5…1e02 at000f = ╱54╱T╱ // 0x1df4 @0xf
0x1de5…1e02 at0010 = ╱4f╱O╱ // 0x1df5 @0x10
0x1de5…1e02 at0011 = ╱54╱T╱ // 0x1df6 @0x11
0x1de5…1e02 at0012 = ╱ed╱ ( ╱ // 0x1df7 @0x12
0x1de5…1e02 at0013 = ╱31╱1╱ // 0x1df8 @0x13
0x1de5…1e02 at0014 = ╱f20100╱ // 0x1df9 @0x14
0x1de5…1e02 at0017 = ╱ee╱ ) ╱ // 0x1dfc @0x17
0x1de5…1e02 at0018 = ╱e5╱ + ╱ // 0x1dfd @0x18
0x1de5…1e02 at0019 = ╱51╱Q╱ // 0x1dfe @0x19
0x1de5…1e02 at001a = ╱5f╱_╱ // 0x1dff @0x1a
0x1de5…1e02 at001b = ╱4b╱K╱ // 0x1e00 @0x1b
0x1de5…1e02 at001c = EOL // 0x1e01 @0x1c
0x1de5…1e02 }
0x1e02…1e09 b3f7 02950 ELSE
0x1e02…1e09 LineComal80 {
0x1e02…1e09 ptr = 0xb3f7 // 0x1e02 @0x0
0x1e02…1e09 lno = 0x0b86 // 0x1e04 @0x2
0x1e02…1e09 at0004 = ╱9a00╱ ELSE ╱ // 0x1e06 @0x4
0x1e02…1e09 at0006 = EOL // 0x1e08 @0x6
0x1e02…1e09 }
0x1e09…1e29 b417 02960 PRINT TAB ( 67 ) ; CHR$ ( Q_K , 9 , 2 ) ;
0x1e09…1e29 LineComal80 {
0x1e09…1e29 ptr = 0xb417 // 0x1e09 @0x0
0x1e09…1e29 lno = 0x0b90 // 0x1e0b @0x2
0x1e09…1e29 at0004 = ╱92╱ PRINT ╱ // 0x1e0d @0x4
0x1e09…1e29 at0005 = ╱d2╱ TAB ╱ // 0x1e0e @0x5
0x1e09…1e29 at0006 = ╱ed╱ ( ╱ // 0x1e0f @0x6
0x1e09…1e29 at0007 = ╱36╱6╱ // 0x1e10 @0x7
0x1e09…1e29 at0008 = ╱37╱7╱ // 0x1e11 @0x8
0x1e09…1e29 at0009 = ╱f24300╱ // 0x1e12 @0x9
0x1e09…1e29 at000c = ╱ee╱ ) ╱ // 0x1e15 @0xc
0x1e09…1e29 at000d = ╱ea╱ ; ╱ // 0x1e16 @0xd
0x1e09…1e29 at000e = ╱d0╱ CHR$ ╱ // 0x1e17 @0xe
0x1e09…1e29 at000f = ╱ed╱ ( ╱ // 0x1e18 @0xf
0x1e09…1e29 at0010 = ╱51╱Q╱ // 0x1e19 @0x10
0x1e09…1e29 at0011 = ╱5f╱_╱ // 0x1e1a @0x11
0x1e09…1e29 at0012 = ╱4b╱K╱ // 0x1e1b @0x12
0x1e09…1e29 at0013 = ╱ec╱ , ╱ // 0x1e1c @0x13
0x1e09…1e29 at0014 = ╱39╱9╱ // 0x1e1d @0x14
0x1e09…1e29 at0015 = ╱f20900╱ // 0x1e1e @0x15
0x1e09…1e29 at0018 = ╱ec╱ , ╱ // 0x1e21 @0x18
0x1e09…1e29 at0019 = ╱32╱2╱ // 0x1e22 @0x19
0x1e09…1e29 at001a = ╱f20200╱ // 0x1e23 @0x1a
0x1e09…1e29 at001d = ╱ee╱ ) ╱ // 0x1e26 @0x1d
0x1e09…1e29 at001e = ╱ea╱ ; ╱ // 0x1e27 @0x1e
0x1e09…1e29 at001f = EOL // 0x1e28 @0x1f
0x1e09…1e29 }
0x1e29…1e46 b434 02970 LET TOT ( 2 ) := TOT ( 2 ) + Q_K
0x1e29…1e46 LineComal80 {
0x1e29…1e46 ptr = 0xb434 // 0x1e29 @0x0
0x1e29…1e46 lno = 0x0b9a // 0x1e2b @0x2
0x1e29…1e46 at0004 = ╱86╱ LET ╱ // 0x1e2d @0x4
0x1e29…1e46 at0005 = ╱54╱T╱ // 0x1e2e @0x5
0x1e29…1e46 at0006 = ╱4f╱O╱ // 0x1e2f @0x6
0x1e29…1e46 at0007 = ╱54╱T╱ // 0x1e30 @0x7
0x1e29…1e46 at0008 = ╱ed╱ ( ╱ // 0x1e31 @0x8
0x1e29…1e46 at0009 = ╱32╱2╱ // 0x1e32 @0x9
0x1e29…1e46 at000a = ╱f20200╱ // 0x1e33 @0xa
0x1e29…1e46 at000d = ╱ee╱ ) ╱ // 0x1e36 @0xd
0x1e29…1e46 at000e = ╱f0╱ := ╱ // 0x1e37 @0xe
0x1e29…1e46 at000f = ╱54╱T╱ // 0x1e38 @0xf
0x1e29…1e46 at0010 = ╱4f╱O╱ // 0x1e39 @0x10
0x1e29…1e46 at0011 = ╱54╱T╱ // 0x1e3a @0x11
0x1e29…1e46 at0012 = ╱ed╱ ( ╱ // 0x1e3b @0x12
0x1e29…1e46 at0013 = ╱32╱2╱ // 0x1e3c @0x13
0x1e29…1e46 at0014 = ╱f20200╱ // 0x1e3d @0x14
0x1e29…1e46 at0017 = ╱ee╱ ) ╱ // 0x1e40 @0x17
0x1e29…1e46 at0018 = ╱e5╱ + ╱ // 0x1e41 @0x18
0x1e29…1e46 at0019 = ╱51╱Q╱ // 0x1e42 @0x19
0x1e29…1e46 at001a = ╱5f╱_╱ // 0x1e43 @0x1a
0x1e29…1e46 at001b = ╱4b╱K╱ // 0x1e44 @0x1b
0x1e29…1e46 at001c = EOL // 0x1e45 @0x1c
0x1e29…1e46 }
0x1e46…1e4c b43a 02980 ENDIF
0x1e46…1e4c LineComal80 {
0x1e46…1e4c ptr = 0xb43a // 0x1e46 @0x0
0x1e46…1e4c lno = 0x0ba4 // 0x1e48 @0x2
0x1e46…1e4c at0004 = ╱9c╱ ENDIF ╱ // 0x1e4a @0x4
0x1e46…1e4c at0005 = EOL // 0x1e4b @0x5
0x1e46…1e4c }
0x1e4c…1e52 b440 02990 PRINT
0x1e4c…1e52 LineComal80 {
0x1e4c…1e52 ptr = 0xb440 // 0x1e4c @0x0
0x1e4c…1e52 lno = 0x0bae // 0x1e4e @0x2
0x1e4c…1e52 at0004 = ╱92╱ PRINT ╱ // 0x1e50 @0x4
0x1e4c…1e52 at0005 = EOL // 0x1e51 @0x5
0x1e4c…1e52 }
0x1e52…1e61 b44f 03000 ENDPROC SKRIV_LIN
0x1e52…1e61 LineComal80 {
0x1e52…1e61 ptr = 0xb44f // 0x1e52 @0x0
0x1e52…1e61 lno = 0x0bb8 // 0x1e54 @0x2
0x1e52…1e61 at0004 = ╱9f╱ ENDPROC ╱ // 0x1e56 @0x4
0x1e52…1e61 at0005 = ╱53╱S╱ // 0x1e57 @0x5
0x1e52…1e61 at0006 = ╱4b╱K╱ // 0x1e58 @0x6
0x1e52…1e61 at0007 = ╱52╱R╱ // 0x1e59 @0x7
0x1e52…1e61 at0008 = ╱49╱I╱ // 0x1e5a @0x8
0x1e52…1e61 at0009 = ╱56╱V╱ // 0x1e5b @0x9
0x1e52…1e61 at000a = ╱5f╱_╱ // 0x1e5c @0xa
0x1e52…1e61 at000b = ╱4c╱L╱ // 0x1e5d @0xb
0x1e52…1e61 at000c = ╱49╱I╱ // 0x1e5e @0xc
0x1e52…1e61 at000d = ╱4e╱N╱ // 0x1e5f @0xd
0x1e52…1e61 at000e = EOL // 0x1e60 @0xe
0x1e52…1e61 }
0x1e61…1e66 (101,) b454 03010
0x1e61…1e66 LineComal80 {
0x1e61…1e66 ptr = 0xb454 // 0x1e61 @0x0
0x1e61…1e66 lno = 0x0bc2 // 0x1e63 @0x2
0x1e61…1e66 at0004 = EOL // 0x1e65 @0x4
0x1e61…1e66 }
0x1e66…1e73 b461 03020 PROC AFSLUT
0x1e66…1e73 LineComal80 {
0x1e66…1e73 ptr = 0xb461 // 0x1e66 @0x0
0x1e66…1e73 lno = 0x0bcc // 0x1e68 @0x2
0x1e66…1e73 at0004 = ╱9e33╱ PROC ╱ // 0x1e6a @0x4
0x1e66…1e73 at0006 = ╱41╱A╱ // 0x1e6c @0x6
0x1e66…1e73 at0007 = ╱46╱F╱ // 0x1e6d @0x7
0x1e66…1e73 at0008 = ╱53╱S╱ // 0x1e6e @0x8
0x1e66…1e73 at0009 = ╱4c╱L╱ // 0x1e6f @0x9
0x1e66…1e73 at000a = ╱55╱U╱ // 0x1e70 @0xa
0x1e66…1e73 at000b = ╱54╱T╱ // 0x1e71 @0xb
0x1e66…1e73 at000c = EOL // 0x1e72 @0xc
0x1e66…1e73 }
0x1e73…1e90 b47e 03030 FOR I := LIN_T TO AX_LIN - 6 DO PRINT
0x1e73…1e90 LineComal80 {
0x1e73…1e90 ptr = 0xb47e // 0x1e73 @0x0
0x1e73…1e90 lno = 0x0bd6 // 0x1e75 @0x2
0x1e73…1e90 at0004 = ╱b400╱ FOR ╱ // 0x1e77 @0x4
0x1e73…1e90 at0006 = ╱49╱I╱ // 0x1e79 @0x6
0x1e73…1e90 at0007 = ╱f0╱ := ╱ // 0x1e7a @0x7
0x1e73…1e90 at0008 = ╱4c╱L╱ // 0x1e7b @0x8
0x1e73…1e90 at0009 = ╱49╱I╱ // 0x1e7c @0x9
0x1e73…1e90 at000a = ╱4e╱N╱ // 0x1e7d @0xa
0x1e73…1e90 at000b = ╱5f╱_╱ // 0x1e7e @0xb
0x1e73…1e90 at000c = ╱54╱T╱ // 0x1e7f @0xc
0x1e73…1e90 at000d = ╱b74d╱ TO ╱ // 0x1e80 @0xd
0x1e73…1e90 at000f = ╱41╱A╱ // 0x1e82 @0xf
0x1e73…1e90 at0010 = ╱58╱X╱ // 0x1e83 @0x10
0x1e73…1e90 at0011 = ╱5f╱_╱ // 0x1e84 @0x11
0x1e73…1e90 at0012 = ╱4c╱L╱ // 0x1e85 @0x12
0x1e73…1e90 at0013 = ╱49╱I╱ // 0x1e86 @0x13
0x1e73…1e90 at0014 = ╱4e╱N╱ // 0x1e87 @0x14
0x1e73…1e90 at0015 = ╱e6╱ - ╱ // 0x1e88 @0x15
0x1e73…1e90 at0016 = ╱36╱6╱ // 0x1e89 @0x16
0x1e73…1e90 at0017 = ╱f20600╱ // 0x1e8a @0x17
0x1e73…1e90 at001a = ╱bb╱ DO ╱ // 0x1e8d @0x1a
0x1e73…1e90 at001b = ╱92╱ PRINT ╱ // 0x1e8e @0x1b
0x1e73…1e90 at001c = EOL // 0x1e8f @0x1c
0x1e73…1e90 }
0x1e90…1ea8 b496 03040 LET LIN_T := MAX_LIN - 5
0x1e90…1ea8 LineComal80 {
0x1e90…1ea8 ptr = 0xb496 // 0x1e90 @0x0
0x1e90…1ea8 lno = 0x0be0 // 0x1e92 @0x2
0x1e90…1ea8 at0004 = ╱86╱ LET ╱ // 0x1e94 @0x4
0x1e90…1ea8 at0005 = ╱4c╱L╱ // 0x1e95 @0x5
0x1e90…1ea8 at0006 = ╱49╱I╱ // 0x1e96 @0x6
0x1e90…1ea8 at0007 = ╱4e╱N╱ // 0x1e97 @0x7
0x1e90…1ea8 at0008 = ╱5f╱_╱ // 0x1e98 @0x8
0x1e90…1ea8 at0009 = ╱54╱T╱ // 0x1e99 @0x9
0x1e90…1ea8 at000a = ╱f0╱ := ╱ // 0x1e9a @0xa
0x1e90…1ea8 at000b = ╱4d╱M╱ // 0x1e9b @0xb
0x1e90…1ea8 at000c = ╱41╱A╱ // 0x1e9c @0xc
0x1e90…1ea8 at000d = ╱58╱X╱ // 0x1e9d @0xd
0x1e90…1ea8 at000e = ╱5f╱_╱ // 0x1e9e @0xe
0x1e90…1ea8 at000f = ╱4c╱L╱ // 0x1e9f @0xf
0x1e90…1ea8 at0010 = ╱49╱I╱ // 0x1ea0 @0x10
0x1e90…1ea8 at0011 = ╱4e╱N╱ // 0x1ea1 @0x11
0x1e90…1ea8 at0012 = ╱e6╱ - ╱ // 0x1ea2 @0x12
0x1e90…1ea8 at0013 = ╱35╱5╱ // 0x1ea3 @0x13
0x1e90…1ea8 at0014 = ╱f20500╱ // 0x1ea4 @0x14
0x1e90…1ea8 at0017 = EOL // 0x1ea7 @0x17
0x1e90…1ea8 }
0x1ea8…1eda b4c8 03050 PRINT "<S>---------------------------------------"
0x1ea8…1eda LineComal80 {
0x1ea8…1eda ptr = 0xb4c8 // 0x1ea8 @0x0
0x1ea8…1eda lno = 0x0bea // 0x1eaa @0x2
0x1ea8…1eda at0004 = ╱92╱ PRINT ╱ // 0x1eac @0x4
0x1ea8…1eda at0005 = ╱22╱"╱ // 0x1ead @0x5
0x1ea8…1eda at0006 = ╱3c╱<╱ // 0x1eae @0x6
0x1ea8…1eda at0007 = ╱53╱S╱ // 0x1eaf @0x7
0x1ea8…1eda at0008 = ╱3e╱>╱ // 0x1eb0 @0x8
0x1ea8…1eda at0009 = ╱2d╱-╱ // 0x1eb1 @0x9
0x1ea8…1eda at000a = ╱2d╱-╱ // 0x1eb2 @0xa
0x1ea8…1eda at000b = ╱2d╱-╱ // 0x1eb3 @0xb
0x1ea8…1eda at000c = ╱2d╱-╱ // 0x1eb4 @0xc
0x1ea8…1eda at000d = ╱2d╱-╱ // 0x1eb5 @0xd
0x1ea8…1eda at000e = ╱2d╱-╱ // 0x1eb6 @0xe
0x1ea8…1eda at000f = ╱2d╱-╱ // 0x1eb7 @0xf
0x1ea8…1eda at0010 = ╱2d╱-╱ // 0x1eb8 @0x10
0x1ea8…1eda at0011 = ╱2d╱-╱ // 0x1eb9 @0x11
0x1ea8…1eda at0012 = ╱2d╱-╱ // 0x1eba @0x12
0x1ea8…1eda at0013 = ╱2d╱-╱ // 0x1ebb @0x13
0x1ea8…1eda at0014 = ╱2d╱-╱ // 0x1ebc @0x14
0x1ea8…1eda at0015 = ╱2d╱-╱ // 0x1ebd @0x15
0x1ea8…1eda at0016 = ╱2d╱-╱ // 0x1ebe @0x16
0x1ea8…1eda at0017 = ╱2d╱-╱ // 0x1ebf @0x17
0x1ea8…1eda at0018 = ╱2d╱-╱ // 0x1ec0 @0x18
0x1ea8…1eda at0019 = ╱2d╱-╱ // 0x1ec1 @0x19
0x1ea8…1eda at001a = ╱2d╱-╱ // 0x1ec2 @0x1a
0x1ea8…1eda at001b = ╱2d╱-╱ // 0x1ec3 @0x1b
0x1ea8…1eda at001c = ╱2d╱-╱ // 0x1ec4 @0x1c
0x1ea8…1eda at001d = ╱2d╱-╱ // 0x1ec5 @0x1d
0x1ea8…1eda at001e = ╱2d╱-╱ // 0x1ec6 @0x1e
0x1ea8…1eda at001f = ╱2d╱-╱ // 0x1ec7 @0x1f
0x1ea8…1eda at0020 = ╱2d╱-╱ // 0x1ec8 @0x20
0x1ea8…1eda at0021 = ╱2d╱-╱ // 0x1ec9 @0x21
0x1ea8…1eda at0022 = ╱2d╱-╱ // 0x1eca @0x22
0x1ea8…1eda at0023 = ╱2d╱-╱ // 0x1ecb @0x23
0x1ea8…1eda at0024 = ╱2d╱-╱ // 0x1ecc @0x24
0x1ea8…1eda at0025 = ╱2d╱-╱ // 0x1ecd @0x25
0x1ea8…1eda at0026 = ╱2d╱-╱ // 0x1ece @0x26
0x1ea8…1eda at0027 = ╱2d╱-╱ // 0x1ecf @0x27
0x1ea8…1eda at0028 = ╱2d╱-╱ // 0x1ed0 @0x28
0x1ea8…1eda at0029 = ╱2d╱-╱ // 0x1ed1 @0x29
0x1ea8…1eda at002a = ╱2d╱-╱ // 0x1ed2 @0x2a
0x1ea8…1eda at002b = ╱2d╱-╱ // 0x1ed3 @0x2b
0x1ea8…1eda at002c = ╱2d╱-╱ // 0x1ed4 @0x2c
0x1ea8…1eda at002d = ╱2d╱-╱ // 0x1ed5 @0x2d
0x1ea8…1eda at002e = ╱2d╱-╱ // 0x1ed6 @0x2e
0x1ea8…1eda at002f = ╱2d╱-╱ // 0x1ed7 @0x2f
0x1ea8…1eda at0030 = ╱22╱"╱ // 0x1ed8 @0x30
0x1ea8…1eda at0031 = EOL // 0x1ed9 @0x31
0x1ea8…1eda }
0x1eda…1f09 b4f7 03060 PRINT "---------------------------------------"
0x1eda…1f09 LineComal80 {
0x1eda…1f09 ptr = 0xb4f7 // 0x1eda @0x0
0x1eda…1f09 lno = 0x0bf4 // 0x1edc @0x2
0x1eda…1f09 at0004 = ╱92╱ PRINT ╱ // 0x1ede @0x4
0x1eda…1f09 at0005 = ╱22╱"╱ // 0x1edf @0x5
0x1eda…1f09 at0006 = ╱2d╱-╱ // 0x1ee0 @0x6
0x1eda…1f09 at0007 = ╱2d╱-╱ // 0x1ee1 @0x7
0x1eda…1f09 at0008 = ╱2d╱-╱ // 0x1ee2 @0x8
0x1eda…1f09 at0009 = ╱2d╱-╱ // 0x1ee3 @0x9
0x1eda…1f09 at000a = ╱2d╱-╱ // 0x1ee4 @0xa
0x1eda…1f09 at000b = ╱2d╱-╱ // 0x1ee5 @0xb
0x1eda…1f09 at000c = ╱2d╱-╱ // 0x1ee6 @0xc
0x1eda…1f09 at000d = ╱2d╱-╱ // 0x1ee7 @0xd
0x1eda…1f09 at000e = ╱2d╱-╱ // 0x1ee8 @0xe
0x1eda…1f09 at000f = ╱2d╱-╱ // 0x1ee9 @0xf
0x1eda…1f09 at0010 = ╱2d╱-╱ // 0x1eea @0x10
0x1eda…1f09 at0011 = ╱2d╱-╱ // 0x1eeb @0x11
0x1eda…1f09 at0012 = ╱2d╱-╱ // 0x1eec @0x12
0x1eda…1f09 at0013 = ╱2d╱-╱ // 0x1eed @0x13
0x1eda…1f09 at0014 = ╱2d╱-╱ // 0x1eee @0x14
0x1eda…1f09 at0015 = ╱2d╱-╱ // 0x1eef @0x15
0x1eda…1f09 at0016 = ╱2d╱-╱ // 0x1ef0 @0x16
0x1eda…1f09 at0017 = ╱2d╱-╱ // 0x1ef1 @0x17
0x1eda…1f09 at0018 = ╱2d╱-╱ // 0x1ef2 @0x18
0x1eda…1f09 at0019 = ╱2d╱-╱ // 0x1ef3 @0x19
0x1eda…1f09 at001a = ╱2d╱-╱ // 0x1ef4 @0x1a
0x1eda…1f09 at001b = ╱2d╱-╱ // 0x1ef5 @0x1b
0x1eda…1f09 at001c = ╱2d╱-╱ // 0x1ef6 @0x1c
0x1eda…1f09 at001d = ╱2d╱-╱ // 0x1ef7 @0x1d
0x1eda…1f09 at001e = ╱2d╱-╱ // 0x1ef8 @0x1e
0x1eda…1f09 at001f = ╱2d╱-╱ // 0x1ef9 @0x1f
0x1eda…1f09 at0020 = ╱2d╱-╱ // 0x1efa @0x20
0x1eda…1f09 at0021 = ╱2d╱-╱ // 0x1efb @0x21
0x1eda…1f09 at0022 = ╱2d╱-╱ // 0x1efc @0x22
0x1eda…1f09 at0023 = ╱2d╱-╱ // 0x1efd @0x23
0x1eda…1f09 at0024 = ╱2d╱-╱ // 0x1efe @0x24
0x1eda…1f09 at0025 = ╱2d╱-╱ // 0x1eff @0x25
0x1eda…1f09 at0026 = ╱2d╱-╱ // 0x1f00 @0x26
0x1eda…1f09 at0027 = ╱2d╱-╱ // 0x1f01 @0x27
0x1eda…1f09 at0028 = ╱2d╱-╱ // 0x1f02 @0x28
0x1eda…1f09 at0029 = ╱2d╱-╱ // 0x1f03 @0x29
0x1eda…1f09 at002a = ╱2d╱-╱ // 0x1f04 @0x2a
0x1eda…1f09 at002b = ╱2d╱-╱ // 0x1f05 @0x2b
0x1eda…1f09 at002c = ╱2d╱-╱ // 0x1f06 @0x2c
0x1eda…1f09 at002d = ╱22╱"╱ // 0x1f07 @0x2d
0x1eda…1f09 at002e = EOL // 0x1f08 @0x2e
0x1eda…1f09 }
0x1f09…1f4e b53c 03070 PRINT TAB ( 54 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 67 ) ; CHR$ ( TOT ( 2 ) , 9 , 2 )
0x1f09…1f4e LineComal80 {
0x1f09…1f4e ptr = 0xb53c // 0x1f09 @0x0
0x1f09…1f4e lno = 0x0bfe // 0x1f0b @0x2
0x1f09…1f4e at0004 = ╱92╱ PRINT ╱ // 0x1f0d @0x4
0x1f09…1f4e at0005 = ╱d2╱ TAB ╱ // 0x1f0e @0x5
0x1f09…1f4e at0006 = ╱ed╱ ( ╱ // 0x1f0f @0x6
0x1f09…1f4e at0007 = ╱35╱5╱ // 0x1f10 @0x7
0x1f09…1f4e at0008 = ╱34╱4╱ // 0x1f11 @0x8
0x1f09…1f4e at0009 = ╱f23600╱ // 0x1f12 @0x9
0x1f09…1f4e at000c = ╱ee╱ ) ╱ // 0x1f15 @0xc
0x1f09…1f4e at000d = ╱ea╱ ; ╱ // 0x1f16 @0xd
0x1f09…1f4e at000e = ╱d0╱ CHR$ ╱ // 0x1f17 @0xe
0x1f09…1f4e at000f = ╱ed╱ ( ╱ // 0x1f18 @0xf
0x1f09…1f4e at0010 = ╱54╱T╱ // 0x1f19 @0x10
0x1f09…1f4e at0011 = ╱4f╱O╱ // 0x1f1a @0x11
0x1f09…1f4e at0012 = ╱54╱T╱ // 0x1f1b @0x12
0x1f09…1f4e at0013 = ╱ed╱ ( ╱ // 0x1f1c @0x13
0x1f09…1f4e at0014 = ╱31╱1╱ // 0x1f1d @0x14
0x1f09…1f4e at0015 = ╱f20100╱ // 0x1f1e @0x15
0x1f09…1f4e at0018 = ╱ee╱ ) ╱ // 0x1f21 @0x18
0x1f09…1f4e at0019 = ╱ec╱ , ╱ // 0x1f22 @0x19
0x1f09…1f4e at001a = ╱39╱9╱ // 0x1f23 @0x1a
0x1f09…1f4e at001b = ╱f20900╱ // 0x1f24 @0x1b
0x1f09…1f4e at001e = ╱ec╱ , ╱ // 0x1f27 @0x1e
0x1f09…1f4e at001f = ╱32╱2╱ // 0x1f28 @0x1f
0x1f09…1f4e at0020 = ╱f20200╱ // 0x1f29 @0x20
0x1f09…1f4e at0023 = ╱ee╱ ) ╱ // 0x1f2c @0x23
0x1f09…1f4e at0024 = ╱ea╱ ; ╱ // 0x1f2d @0x24
0x1f09…1f4e at0025 = ╱d2╱ TAB ╱ // 0x1f2e @0x25
0x1f09…1f4e at0026 = ╱ed╱ ( ╱ // 0x1f2f @0x26
0x1f09…1f4e at0027 = ╱36╱6╱ // 0x1f30 @0x27
0x1f09…1f4e at0028 = ╱37╱7╱ // 0x1f31 @0x28
0x1f09…1f4e at0029 = ╱f24300╱ // 0x1f32 @0x29
0x1f09…1f4e at002c = ╱ee╱ ) ╱ // 0x1f35 @0x2c
0x1f09…1f4e at002d = ╱ea╱ ; ╱ // 0x1f36 @0x2d
0x1f09…1f4e at002e = ╱d0╱ CHR$ ╱ // 0x1f37 @0x2e
0x1f09…1f4e at002f = ╱ed╱ ( ╱ // 0x1f38 @0x2f
0x1f09…1f4e at0030 = ╱54╱T╱ // 0x1f39 @0x30
0x1f09…1f4e at0031 = ╱4f╱O╱ // 0x1f3a @0x31
0x1f09…1f4e at0032 = ╱54╱T╱ // 0x1f3b @0x32
0x1f09…1f4e at0033 = ╱ed╱ ( ╱ // 0x1f3c @0x33
0x1f09…1f4e at0034 = ╱32╱2╱ // 0x1f3d @0x34
0x1f09…1f4e at0035 = ╱f20200╱ // 0x1f3e @0x35
0x1f09…1f4e at0038 = ╱ee╱ ) ╱ // 0x1f41 @0x38
0x1f09…1f4e at0039 = ╱ec╱ , ╱ // 0x1f42 @0x39
0x1f09…1f4e at003a = ╱39╱9╱ // 0x1f43 @0x3a
0x1f09…1f4e at003b = ╱f20900╱ // 0x1f44 @0x3b
0x1f09…1f4e at003e = ╱ec╱ , ╱ // 0x1f47 @0x3e
0x1f09…1f4e at003f = ╱32╱2╱ // 0x1f48 @0x3f
0x1f09…1f4e at0040 = ╱f20200╱ // 0x1f49 @0x40
0x1f09…1f4e at0043 = ╱ee╱ ) ╱ // 0x1f4c @0x43
0x1f09…1f4e at0044 = EOL // 0x1f4d @0x44
0x1f09…1f4e }
0x1f4e…1f6c b55a 03080 PRINT TAB ( 18 ) ; "NY…SALDO…………" ;
0x1f4e…1f6c LineComal80 {
0x1f4e…1f6c ptr = 0xb55a // 0x1f4e @0x0
0x1f4e…1f6c lno = 0x0c08 // 0x1f50 @0x2
0x1f4e…1f6c at0004 = ╱92╱ PRINT ╱ // 0x1f52 @0x4
0x1f4e…1f6c at0005 = ╱d2╱ TAB ╱ // 0x1f53 @0x5
0x1f4e…1f6c at0006 = ╱ed╱ ( ╱ // 0x1f54 @0x6
0x1f4e…1f6c at0007 = ╱31╱1╱ // 0x1f55 @0x7
0x1f4e…1f6c at0008 = ╱38╱8╱ // 0x1f56 @0x8
0x1f4e…1f6c at0009 = ╱f21200╱ // 0x1f57 @0x9
0x1f4e…1f6c at000c = ╱ee╱ ) ╱ // 0x1f5a @0xc
0x1f4e…1f6c at000d = ╱ea╱ ; ╱ // 0x1f5b @0xd
0x1f4e…1f6c at000e = ╱22╱"╱ // 0x1f5c @0xe
0x1f4e…1f6c at000f = ╱4e╱N╱ // 0x1f5d @0xf
0x1f4e…1f6c at0010 = ╱59╱Y╱ // 0x1f5e @0x10
0x1f4e…1f6c at0011 = ╱20╱…╱ // 0x1f5f @0x11
0x1f4e…1f6c at0012 = ╱53╱S╱ // 0x1f60 @0x12
0x1f4e…1f6c at0013 = ╱41╱A╱ // 0x1f61 @0x13
0x1f4e…1f6c at0014 = ╱4c╱L╱ // 0x1f62 @0x14
0x1f4e…1f6c at0015 = ╱44╱D╱ // 0x1f63 @0x15
0x1f4e…1f6c at0016 = ╱4f╱O╱ // 0x1f64 @0x16
0x1f4e…1f6c at0017 = ╱20╱…╱ // 0x1f65 @0x17
0x1f4e…1f6c at0018 = ╱20╱…╱ // 0x1f66 @0x18
0x1f4e…1f6c at0019 = ╱20╱…╱ // 0x1f67 @0x19
0x1f4e…1f6c at001a = ╱20╱…╱ // 0x1f68 @0x1a
0x1f4e…1f6c at001b = ╱22╱"╱ // 0x1f69 @0x1b
0x1f4e…1f6c at001c = ╱ea╱ ; ╱ // 0x1f6a @0x1c
0x1f4e…1f6c at001d = EOL // 0x1f6b @0x1d
0x1f4e…1f6c }
0x1f6c…1f8c c3bf 03090 IF OT ( 1 ) - TOT ( 2 ) > 0 THEN
0x1f6c…1f8c LineComal80 {
0x1f6c…1f8c ptr = 0xc3bf // 0x1f6c @0x0
0x1f6c…1f8c lno = 0x0c12 // 0x1f6e @0x2
0x1f6c…1f8c at0004 = ╱9b3454╱ IF ╱ // 0x1f70 @0x4
0x1f6c…1f8c at0007 = ╱4f╱O╱ // 0x1f73 @0x7
0x1f6c…1f8c at0008 = ╱54╱T╱ // 0x1f74 @0x8
0x1f6c…1f8c at0009 = ╱ed╱ ( ╱ // 0x1f75 @0x9
0x1f6c…1f8c at000a = ╱31╱1╱ // 0x1f76 @0xa
0x1f6c…1f8c at000b = ╱f20100╱ // 0x1f77 @0xb
0x1f6c…1f8c at000e = ╱ee╱ ) ╱ // 0x1f7a @0xe
0x1f6c…1f8c at000f = ╱e6╱ - ╱ // 0x1f7b @0xf
0x1f6c…1f8c at0010 = ╱54╱T╱ // 0x1f7c @0x10
0x1f6c…1f8c at0011 = ╱4f╱O╱ // 0x1f7d @0x11
0x1f6c…1f8c at0012 = ╱54╱T╱ // 0x1f7e @0x12
0x1f6c…1f8c at0013 = ╱ed╱ ( ╱ // 0x1f7f @0x13
0x1f6c…1f8c at0014 = ╱32╱2╱ // 0x1f80 @0x14
0x1f6c…1f8c at0015 = ╱f20200╱ // 0x1f81 @0x15
0x1f6c…1f8c at0018 = ╱ee╱ ) ╱ // 0x1f84 @0x18
0x1f6c…1f8c at0019 = ╱e1╱ > ╱ // 0x1f85 @0x19
0x1f6c…1f8c at001a = ╱30╱0╱ // 0x1f86 @0x1a
0x1f6c…1f8c at001b = ╱f20000╱ // 0x1f87 @0x1b
0x1f6c…1f8c at001e = ╱b5╱ THEN ╱ // 0x1f8a @0x1e
0x1f6c…1f8c at001f = EOL // 0x1f8b @0x1f
0x1f6c…1f8c }
0x1f8c…1fbb b5a9 03100 PRINT TAB ( 67 ) ; CHR$ ( TOT ( 1 ) - TOT ( 2 ) , 9 , 2 )
0x1f8c…1fbb LineComal80 {
0x1f8c…1fbb ptr = 0xb5a9 // 0x1f8c @0x0
0x1f8c…1fbb lno = 0x0c1c // 0x1f8e @0x2
0x1f8c…1fbb at0004 = ╱92╱ PRINT ╱ // 0x1f90 @0x4
0x1f8c…1fbb at0005 = ╱d2╱ TAB ╱ // 0x1f91 @0x5
0x1f8c…1fbb at0006 = ╱ed╱ ( ╱ // 0x1f92 @0x6
0x1f8c…1fbb at0007 = ╱36╱6╱ // 0x1f93 @0x7
0x1f8c…1fbb at0008 = ╱37╱7╱ // 0x1f94 @0x8
0x1f8c…1fbb at0009 = ╱f24300╱ // 0x1f95 @0x9
0x1f8c…1fbb at000c = ╱ee╱ ) ╱ // 0x1f98 @0xc
0x1f8c…1fbb at000d = ╱ea╱ ; ╱ // 0x1f99 @0xd
0x1f8c…1fbb at000e = ╱d0╱ CHR$ ╱ // 0x1f9a @0xe
0x1f8c…1fbb at000f = ╱ed╱ ( ╱ // 0x1f9b @0xf
0x1f8c…1fbb at0010 = ╱54╱T╱ // 0x1f9c @0x10
0x1f8c…1fbb at0011 = ╱4f╱O╱ // 0x1f9d @0x11
0x1f8c…1fbb at0012 = ╱54╱T╱ // 0x1f9e @0x12
0x1f8c…1fbb at0013 = ╱ed╱ ( ╱ // 0x1f9f @0x13
0x1f8c…1fbb at0014 = ╱31╱1╱ // 0x1fa0 @0x14
0x1f8c…1fbb at0015 = ╱f20100╱ // 0x1fa1 @0x15
0x1f8c…1fbb at0018 = ╱ee╱ ) ╱ // 0x1fa4 @0x18
0x1f8c…1fbb at0019 = ╱e6╱ - ╱ // 0x1fa5 @0x19
0x1f8c…1fbb at001a = ╱54╱T╱ // 0x1fa6 @0x1a
0x1f8c…1fbb at001b = ╱4f╱O╱ // 0x1fa7 @0x1b
0x1f8c…1fbb at001c = ╱54╱T╱ // 0x1fa8 @0x1c
0x1f8c…1fbb at001d = ╱ed╱ ( ╱ // 0x1fa9 @0x1d
0x1f8c…1fbb at001e = ╱32╱2╱ // 0x1faa @0x1e
0x1f8c…1fbb at001f = ╱f20200╱ // 0x1fab @0x1f
0x1f8c…1fbb at0022 = ╱ee╱ ) ╱ // 0x1fae @0x22
0x1f8c…1fbb at0023 = ╱ec╱ , ╱ // 0x1faf @0x23
0x1f8c…1fbb at0024 = ╱39╱9╱ // 0x1fb0 @0x24
0x1f8c…1fbb at0025 = ╱f20900╱ // 0x1fb1 @0x25
0x1f8c…1fbb at0028 = ╱ec╱ , ╱ // 0x1fb4 @0x28
0x1f8c…1fbb at0029 = ╱32╱2╱ // 0x1fb5 @0x29
0x1f8c…1fbb at002a = ╱f20200╱ // 0x1fb6 @0x2a
0x1f8c…1fbb at002d = ╱ee╱ ) ╱ // 0x1fb9 @0x2d
0x1f8c…1fbb at002e = EOL // 0x1fba @0x2e
0x1f8c…1fbb }
0x1fbb…1fd4 b5c2 03110 LET TOT ( 2 ) := TOT ( 1 )
0x1fbb…1fd4 LineComal80 {
0x1fbb…1fd4 ptr = 0xb5c2 // 0x1fbb @0x0
0x1fbb…1fd4 lno = 0x0c26 // 0x1fbd @0x2
0x1fbb…1fd4 at0004 = ╱86╱ LET ╱ // 0x1fbf @0x4
0x1fbb…1fd4 at0005 = ╱54╱T╱ // 0x1fc0 @0x5
0x1fbb…1fd4 at0006 = ╱4f╱O╱ // 0x1fc1 @0x6
0x1fbb…1fd4 at0007 = ╱54╱T╱ // 0x1fc2 @0x7
0x1fbb…1fd4 at0008 = ╱ed╱ ( ╱ // 0x1fc3 @0x8
0x1fbb…1fd4 at0009 = ╱32╱2╱ // 0x1fc4 @0x9
0x1fbb…1fd4 at000a = ╱f20200╱ // 0x1fc5 @0xa
0x1fbb…1fd4 at000d = ╱ee╱ ) ╱ // 0x1fc8 @0xd
0x1fbb…1fd4 at000e = ╱f0╱ := ╱ // 0x1fc9 @0xe
0x1fbb…1fd4 at000f = ╱54╱T╱ // 0x1fca @0xf
0x1fbb…1fd4 at0010 = ╱4f╱O╱ // 0x1fcb @0x10
0x1fbb…1fd4 at0011 = ╱54╱T╱ // 0x1fcc @0x11
0x1fbb…1fd4 at0012 = ╱ed╱ ( ╱ // 0x1fcd @0x12
0x1fbb…1fd4 at0013 = ╱31╱1╱ // 0x1fce @0x13
0x1fbb…1fd4 at0014 = ╱f20100╱ // 0x1fcf @0x14
0x1fbb…1fd4 at0017 = ╱ee╱ ) ╱ // 0x1fd2 @0x17
0x1fbb…1fd4 at0018 = EOL // 0x1fd3 @0x18
0x1fbb…1fd4 }
0x1fd4…1fdb c3ee 03120 ELSE
0x1fd4…1fdb LineComal80 {
0x1fd4…1fdb ptr = 0xc3ee // 0x1fd4 @0x0
0x1fd4…1fdb lno = 0x0c30 // 0x1fd6 @0x2
0x1fd4…1fdb at0004 = ╱9a35╱ ELSE ╱ // 0x1fd8 @0x4
0x1fd4…1fdb at0006 = EOL // 0x1fda @0x6
0x1fd4…1fdb }
0x1fdb…200a b5f8 03130 PRINT TAB ( 54 ) ; CHR$ ( TOT ( 2 ) - TOT ( 1 ) , 9 , 2 )
0x1fdb…200a LineComal80 {
0x1fdb…200a ptr = 0xb5f8 // 0x1fdb @0x0
0x1fdb…200a lno = 0x0c3a // 0x1fdd @0x2
0x1fdb…200a at0004 = ╱92╱ PRINT ╱ // 0x1fdf @0x4
0x1fdb…200a at0005 = ╱d2╱ TAB ╱ // 0x1fe0 @0x5
0x1fdb…200a at0006 = ╱ed╱ ( ╱ // 0x1fe1 @0x6
0x1fdb…200a at0007 = ╱35╱5╱ // 0x1fe2 @0x7
0x1fdb…200a at0008 = ╱34╱4╱ // 0x1fe3 @0x8
0x1fdb…200a at0009 = ╱f23600╱ // 0x1fe4 @0x9
0x1fdb…200a at000c = ╱ee╱ ) ╱ // 0x1fe7 @0xc
0x1fdb…200a at000d = ╱ea╱ ; ╱ // 0x1fe8 @0xd
0x1fdb…200a at000e = ╱d0╱ CHR$ ╱ // 0x1fe9 @0xe
0x1fdb…200a at000f = ╱ed╱ ( ╱ // 0x1fea @0xf
0x1fdb…200a at0010 = ╱54╱T╱ // 0x1feb @0x10
0x1fdb…200a at0011 = ╱4f╱O╱ // 0x1fec @0x11
0x1fdb…200a at0012 = ╱54╱T╱ // 0x1fed @0x12
0x1fdb…200a at0013 = ╱ed╱ ( ╱ // 0x1fee @0x13
0x1fdb…200a at0014 = ╱32╱2╱ // 0x1fef @0x14
0x1fdb…200a at0015 = ╱f20200╱ // 0x1ff0 @0x15
0x1fdb…200a at0018 = ╱ee╱ ) ╱ // 0x1ff3 @0x18
0x1fdb…200a at0019 = ╱e6╱ - ╱ // 0x1ff4 @0x19
0x1fdb…200a at001a = ╱54╱T╱ // 0x1ff5 @0x1a
0x1fdb…200a at001b = ╱4f╱O╱ // 0x1ff6 @0x1b
0x1fdb…200a at001c = ╱54╱T╱ // 0x1ff7 @0x1c
0x1fdb…200a at001d = ╱ed╱ ( ╱ // 0x1ff8 @0x1d
0x1fdb…200a at001e = ╱31╱1╱ // 0x1ff9 @0x1e
0x1fdb…200a at001f = ╱f20100╱ // 0x1ffa @0x1f
0x1fdb…200a at0022 = ╱ee╱ ) ╱ // 0x1ffd @0x22
0x1fdb…200a at0023 = ╱ec╱ , ╱ // 0x1ffe @0x23
0x1fdb…200a at0024 = ╱39╱9╱ // 0x1fff @0x24
0x1fdb…200a at0025 = ╱f20900╱ // 0x2000 @0x25
0x1fdb…200a at0028 = ╱ec╱ , ╱ // 0x2003 @0x28
0x1fdb…200a at0029 = ╱32╱2╱ // 0x2004 @0x29
0x1fdb…200a at002a = ╱f20200╱ // 0x2005 @0x2a
0x1fdb…200a at002d = ╱ee╱ ) ╱ // 0x2008 @0x2d
0x1fdb…200a at002e = EOL // 0x2009 @0x2e
0x1fdb…200a }
0x200a…2023 b611 03140 LET TOT ( 1 ) := TOT ( 2 )
0x200a…2023 LineComal80 {
0x200a…2023 ptr = 0xb611 // 0x200a @0x0
0x200a…2023 lno = 0x0c44 // 0x200c @0x2
0x200a…2023 at0004 = ╱86╱ LET ╱ // 0x200e @0x4
0x200a…2023 at0005 = ╱54╱T╱ // 0x200f @0x5
0x200a…2023 at0006 = ╱4f╱O╱ // 0x2010 @0x6
0x200a…2023 at0007 = ╱54╱T╱ // 0x2011 @0x7
0x200a…2023 at0008 = ╱ed╱ ( ╱ // 0x2012 @0x8
0x200a…2023 at0009 = ╱31╱1╱ // 0x2013 @0x9
0x200a…2023 at000a = ╱f20100╱ // 0x2014 @0xa
0x200a…2023 at000d = ╱ee╱ ) ╱ // 0x2017 @0xd
0x200a…2023 at000e = ╱f0╱ := ╱ // 0x2018 @0xe
0x200a…2023 at000f = ╱54╱T╱ // 0x2019 @0xf
0x200a…2023 at0010 = ╱4f╱O╱ // 0x201a @0x10
0x200a…2023 at0011 = ╱54╱T╱ // 0x201b @0x11
0x200a…2023 at0012 = ╱ed╱ ( ╱ // 0x201c @0x12
0x200a…2023 at0013 = ╱32╱2╱ // 0x201d @0x13
0x200a…2023 at0014 = ╱f20200╱ // 0x201e @0x14
0x200a…2023 at0017 = ╱ee╱ ) ╱ // 0x2021 @0x17
0x200a…2023 at0018 = EOL // 0x2022 @0x18
0x200a…2023 }
0x2023…2029 c41d 03150 ENDIF
0x2023…2029 LineComal80 {
0x2023…2029 ptr = 0xc41d // 0x2023 @0x0
0x2023…2029 lno = 0x0c4e // 0x2025 @0x2
0x2023…2029 at0004 = ╱9c╱ ENDIF ╱ // 0x2027 @0x4
0x2023…2029 at0005 = EOL // 0x2028 @0x5
0x2023…2029 }
0x2029…207c b66a 03160 PRINT TAB ( 18 ) ; "BALANCE" ; TAB ( 54 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; "…" ; CHR$ ( TOT ( 1 ) , 9 , 2 )
0x2029…207c LineComal80 {
0x2029…207c ptr = 0xb66a // 0x2029 @0x0
0x2029…207c lno = 0x0c58 // 0x202b @0x2
0x2029…207c at0004 = ╱92╱ PRINT ╱ // 0x202d @0x4
0x2029…207c at0005 = ╱d2╱ TAB ╱ // 0x202e @0x5
0x2029…207c at0006 = ╱ed╱ ( ╱ // 0x202f @0x6
0x2029…207c at0007 = ╱31╱1╱ // 0x2030 @0x7
0x2029…207c at0008 = ╱38╱8╱ // 0x2031 @0x8
0x2029…207c at0009 = ╱f21200╱ // 0x2032 @0x9
0x2029…207c at000c = ╱ee╱ ) ╱ // 0x2035 @0xc
0x2029…207c at000d = ╱ea╱ ; ╱ // 0x2036 @0xd
0x2029…207c at000e = ╱22╱"╱ // 0x2037 @0xe
0x2029…207c at000f = ╱42╱B╱ // 0x2038 @0xf
0x2029…207c at0010 = ╱41╱A╱ // 0x2039 @0x10
0x2029…207c at0011 = ╱4c╱L╱ // 0x203a @0x11
0x2029…207c at0012 = ╱41╱A╱ // 0x203b @0x12
0x2029…207c at0013 = ╱4e╱N╱ // 0x203c @0x13
0x2029…207c at0014 = ╱43╱C╱ // 0x203d @0x14
0x2029…207c at0015 = ╱45╱E╱ // 0x203e @0x15
0x2029…207c at0016 = ╱22╱"╱ // 0x203f @0x16
0x2029…207c at0017 = ╱ea╱ ; ╱ // 0x2040 @0x17
0x2029…207c at0018 = ╱d2╱ TAB ╱ // 0x2041 @0x18
0x2029…207c at0019 = ╱ed╱ ( ╱ // 0x2042 @0x19
0x2029…207c at001a = ╱35╱5╱ // 0x2043 @0x1a
0x2029…207c at001b = ╱34╱4╱ // 0x2044 @0x1b
0x2029…207c at001c = ╱f23600╱ // 0x2045 @0x1c
0x2029…207c at001f = ╱ee╱ ) ╱ // 0x2048 @0x1f
0x2029…207c at0020 = ╱ea╱ ; ╱ // 0x2049 @0x20
0x2029…207c at0021 = ╱d0╱ CHR$ ╱ // 0x204a @0x21
0x2029…207c at0022 = ╱ed╱ ( ╱ // 0x204b @0x22
0x2029…207c at0023 = ╱54╱T╱ // 0x204c @0x23
0x2029…207c at0024 = ╱4f╱O╱ // 0x204d @0x24
0x2029…207c at0025 = ╱54╱T╱ // 0x204e @0x25
0x2029…207c at0026 = ╱ed╱ ( ╱ // 0x204f @0x26
0x2029…207c at0027 = ╱31╱1╱ // 0x2050 @0x27
0x2029…207c at0028 = ╱f20100╱ // 0x2051 @0x28
0x2029…207c at002b = ╱ee╱ ) ╱ // 0x2054 @0x2b
0x2029…207c at002c = ╱ec╱ , ╱ // 0x2055 @0x2c
0x2029…207c at002d = ╱39╱9╱ // 0x2056 @0x2d
0x2029…207c at002e = ╱f20900╱ // 0x2057 @0x2e
0x2029…207c at0031 = ╱ec╱ , ╱ // 0x205a @0x31
0x2029…207c at0032 = ╱32╱2╱ // 0x205b @0x32
0x2029…207c at0033 = ╱f20200╱ // 0x205c @0x33
0x2029…207c at0036 = ╱ee╱ ) ╱ // 0x205f @0x36
0x2029…207c at0037 = ╱ea╱ ; ╱ // 0x2060 @0x37
0x2029…207c at0038 = ╱22╱"╱ // 0x2061 @0x38
0x2029…207c at0039 = ╱20╱…╱ // 0x2062 @0x39
0x2029…207c at003a = ╱22╱"╱ // 0x2063 @0x3a
0x2029…207c at003b = ╱ea╱ ; ╱ // 0x2064 @0x3b
0x2029…207c at003c = ╱d0╱ CHR$ ╱ // 0x2065 @0x3c
0x2029…207c at003d = ╱ed╱ ( ╱ // 0x2066 @0x3d
0x2029…207c at003e = ╱54╱T╱ // 0x2067 @0x3e
0x2029…207c at003f = ╱4f╱O╱ // 0x2068 @0x3f
0x2029…207c at0040 = ╱54╱T╱ // 0x2069 @0x40
0x2029…207c at0041 = ╱ed╱ ( ╱ // 0x206a @0x41
0x2029…207c at0042 = ╱31╱1╱ // 0x206b @0x42
0x2029…207c at0043 = ╱f20100╱ // 0x206c @0x43
0x2029…207c at0046 = ╱ee╱ ) ╱ // 0x206f @0x46
0x2029…207c at0047 = ╱ec╱ , ╱ // 0x2070 @0x47
0x2029…207c at0048 = ╱39╱9╱ // 0x2071 @0x48
0x2029…207c at0049 = ╱f20900╱ // 0x2072 @0x49
0x2029…207c at004c = ╱ec╱ , ╱ // 0x2075 @0x4c
0x2029…207c at004d = ╱32╱2╱ // 0x2076 @0x4d
0x2029…207c at004e = ╱f20200╱ // 0x2077 @0x4e
0x2029…207c at0051 = ╱ee╱ ) ╱ // 0x207a @0x51
0x2029…207c at0052 = EOL // 0x207b @0x52
0x2029…207c }
0x207c…2090 (108,) b67e 03170 IF UT_WAY $ = "P" THEN
0x207c…2090 LineComal80 {
0x207c…2090 ptr = 0xb67e // 0x207c @0x0
0x207c…2090 lno = 0x0c62 // 0x207e @0x2
0x207c…2090 at0004 = ╱9b364f╱ IF ╱ // 0x2080 @0x4
0x207c…2090 at0007 = ╱55╱U╱ // 0x2083 @0x7
0x207c…2090 at0008 = ╱54╱T╱ // 0x2084 @0x8
0x207c…2090 at0009 = ╱5f╱_╱ // 0x2085 @0x9
0x207c…2090 at000a = ╱57╱W╱ // 0x2086 @0xa
0x207c…2090 at000b = ╱41╱A╱ // 0x2087 @0xb
0x207c…2090 at000c = ╱59╱Y╱ // 0x2088 @0xc
0x207c…2090 at000d = ╱ef╱ $ ╱ // 0x2089 @0xd
0x207c…2090 at000e = ╱df╱ = ╱ // 0x208a @0xe
0x207c…2090 at000f = ╱22╱"╱ // 0x208b @0xf
0x207c…2090 at0010 = ╱50╱P╱ // 0x208c @0x10
0x207c…2090 at0011 = ╱22╱"╱ // 0x208d @0x11
0x207c…2090 at0012 = ╱b5╱ THEN ╱ // 0x208e @0x12
0x207c…2090 at0013 = EOL // 0x208f @0x13
0x207c…2090 }
0x2090…2096 b684 03180 PRINT
0x2090…2096 LineComal80 {
0x2090…2096 ptr = 0xb684 // 0x2090 @0x0
0x2090…2096 lno = 0x0c6c // 0x2092 @0x2
0x2090…2096 at0004 = ╱92╱ PRINT ╱ // 0x2094 @0x4
0x2090…2096 at0005 = EOL // 0x2095 @0x5
0x2090…2096 }
0x2096…209c b68a 03190 PRINT
0x2096…209c LineComal80 {
0x2096…209c ptr = 0xb68a // 0x2096 @0x0
0x2096…209c lno = 0x0c76 // 0x2098 @0x2
0x2096…209c at0004 = ╱92╱ PRINT ╱ // 0x209a @0x4
0x2096…209c at0005 = EOL // 0x209b @0x5
0x2096…209c }
0x209c…20a2 b690 03200 ENDIF
0x209c…20a2 LineComal80 {
0x209c…20a2 ptr = 0xb690 // 0x209c @0x0
0x209c…20a2 lno = 0x0c80 // 0x209e @0x2
0x209c…20a2 at0004 = ╱9c╱ ENDIF ╱ // 0x20a0 @0x4
0x209c…20a2 at0005 = EOL // 0x20a1 @0x5
0x209c…20a2 }
0x20a2…20ae b69c 03210 ENDPROC AFSLUT
0x20a2…20ae LineComal80 {
0x20a2…20ae ptr = 0xb69c // 0x20a2 @0x0
0x20a2…20ae lno = 0x0c8a // 0x20a4 @0x2
0x20a2…20ae at0004 = ╱9f╱ ENDPROC ╱ // 0x20a6 @0x4
0x20a2…20ae at0005 = ╱41╱A╱ // 0x20a7 @0x5
0x20a2…20ae at0006 = ╱46╱F╱ // 0x20a8 @0x6
0x20a2…20ae at0007 = ╱53╱S╱ // 0x20a9 @0x7
0x20a2…20ae at0008 = ╱4c╱L╱ // 0x20aa @0x8
0x20a2…20ae at0009 = ╱55╱U╱ // 0x20ab @0x9
0x20a2…20ae at000a = ╱54╱T╱ // 0x20ac @0xa
0x20a2…20ae at000b = EOL // 0x20ad @0xb
0x20a2…20ae }
0x20ae…20c8 b6b6 03220 PROC FIND_KTO ( REF R_KTONR $ )
0x20ae…20c8 LineComal80 {
0x20ae…20c8 ptr = 0xb6b6 // 0x20ae @0x0
0x20ae…20c8 lno = 0x0c94 // 0x20b0 @0x2
0x20ae…20c8 at0004 = ╱9e37╱ PROC ╱ // 0x20b2 @0x4
0x20ae…20c8 at0006 = ╱46╱F╱ // 0x20b4 @0x6
0x20ae…20c8 at0007 = ╱49╱I╱ // 0x20b5 @0x7
0x20ae…20c8 at0008 = ╱4e╱N╱ // 0x20b6 @0x8
0x20ae…20c8 at0009 = ╱44╱D╱ // 0x20b7 @0x9
0x20ae…20c8 at000a = ╱5f╱_╱ // 0x20b8 @0xa
0x20ae…20c8 at000b = ╱4b╱K╱ // 0x20b9 @0xb
0x20ae…20c8 at000c = ╱54╱T╱ // 0x20ba @0xc
0x20ae…20c8 at000d = ╱4f╱O╱ // 0x20bb @0xd
0x20ae…20c8 at000e = ╱ed╱ ( ╱ // 0x20bc @0xe
0x20ae…20c8 at000f = ╱b6╱ REF ╱ // 0x20bd @0xf
0x20ae…20c8 at0010 = ╱52╱R╱ // 0x20be @0x10
0x20ae…20c8 at0011 = ╱5f╱_╱ // 0x20bf @0x11
0x20ae…20c8 at0012 = ╱4b╱K╱ // 0x20c0 @0x12
0x20ae…20c8 at0013 = ╱54╱T╱ // 0x20c1 @0x13
0x20ae…20c8 at0014 = ╱4f╱O╱ // 0x20c2 @0x14
0x20ae…20c8 at0015 = ╱4e╱N╱ // 0x20c3 @0x15
0x20ae…20c8 at0016 = ╱52╱R╱ // 0x20c4 @0x16
0x20ae…20c8 at0017 = ╱ef╱ $ ╱ // 0x20c5 @0x17
0x20ae…20c8 at0018 = ╱ee╱ ) ╱ // 0x20c6 @0x18
0x20ae…20c8 at0019 = EOL // 0x20c7 @0x19
0x20ae…20c8 }
0x20c8…20d6 b6c4 03230 LET OK := FALSE
0x20c8…20d6 LineComal80 {
0x20c8…20d6 ptr = 0xb6c4 // 0x20c8 @0x0
0x20c8…20d6 lno = 0x0c9e // 0x20ca @0x2
0x20c8…20d6 at0004 = ╱86╱ LET ╱ // 0x20cc @0x4
0x20c8…20d6 at0005 = ╱4f╱O╱ // 0x20cd @0x5
0x20c8…20d6 at0006 = ╱4b╱K╱ // 0x20ce @0x6
0x20c8…20d6 at0007 = ╱f0╱ := ╱ // 0x20cf @0x7
0x20c8…20d6 at0008 = ╱46╱F╱ // 0x20d0 @0x8
0x20c8…20d6 at0009 = ╱41╱A╱ // 0x20d1 @0x9
0x20c8…20d6 at000a = ╱4c╱L╱ // 0x20d2 @0xa
0x20c8…20d6 at000b = ╱53╱S╱ // 0x20d3 @0xb
0x20c8…20d6 at000c = ╱45╱E╱ // 0x20d4 @0xc
0x20c8…20d6 at000d = EOL // 0x20d5 @0xd
0x20c8…20d6 }
0x20d6…20fa b6e8 03240 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
0x20d6…20fa LineComal80 {
0x20d6…20fa ptr = 0xb6e8 // 0x20d6 @0x0
0x20d6…20fa lno = 0x0ca8 // 0x20d8 @0x2
0x20d6…20fa at0004 = ╱a9╱ GET ╱ // 0x20da @0x4
0x20d6…20fa at0005 = ╱4b╱K╱ // 0x20db @0x5
0x20d6…20fa at0006 = ╱54╱T╱ // 0x20dc @0x6
0x20d6…20fa at0007 = ╱4f╱O╱ // 0x20dd @0x7
0x20d6…20fa at0008 = ╱49╱I╱ // 0x20de @0x8
0x20d6…20fa at0009 = ╱44╱D╱ // 0x20df @0x9
0x20d6…20fa at000a = ╱58╱X╱ // 0x20e0 @0xa
0x20d6…20fa at000b = ╱ef╱ $ ╱ // 0x20e1 @0xb
0x20d6…20fa at000c = ╱ec╱ , ╱ // 0x20e2 @0xc
0x20d6…20fa at000d = ╱31╱1╱ // 0x20e3 @0xd
0x20d6…20fa at000e = ╱f20100╱ // 0x20e4 @0xe
0x20d6…20fa at0011 = ╱f1╱ : ╱ // 0x20e7 @0x11
0x20d6…20fa at0012 = ╱49╱I╱ // 0x20e8 @0x12
0x20d6…20fa at0013 = ╱5f╱_╱ // 0x20e9 @0x13
0x20d6…20fa at0014 = ╱48╱H╱ // 0x20ea @0x14
0x20d6…20fa at0015 = ╱5c╱\╱ // 0x20eb @0x15
0x20d6…20fa at0016 = ╱4a╱J╱ // 0x20ec @0x16
0x20d6…20fa at0017 = ╱52╱R╱ // 0x20ed @0x17
0x20d6…20fa at0018 = ╱45╱E╱ // 0x20ee @0x18
0x20d6…20fa at0019 = ╱43╱C╱ // 0x20ef @0x19
0x20d6…20fa at001a = ╱ec╱ , ╱ // 0x20f0 @0x1a
0x20d6…20fa at001b = ╱49╱I╱ // 0x20f1 @0x1b
0x20d6…20fa at001c = ╱5f╱_╱ // 0x20f2 @0x1c
0x20d6…20fa at001d = ╱4d╱M╱ // 0x20f3 @0x1d
0x20d6…20fa at001e = ╱41╱A╱ // 0x20f4 @0x1e
0x20d6…20fa at001f = ╱58╱X╱ // 0x20f5 @0x1f
0x20d6…20fa at0020 = ╱52╱R╱ // 0x20f6 @0x20
0x20d6…20fa at0021 = ╱45╱E╱ // 0x20f7 @0x21
0x20d6…20fa at0022 = ╱43╱C╱ // 0x20f8 @0x22
0x20d6…20fa at0023 = EOL // 0x20f9 @0x23
0x20d6…20fa }
0x20fa…211f b70d 03250 LET LOW := 1 ; HIGH := I_H\JREC ; POS := 2
0x20fa…211f LineComal80 {
0x20fa…211f ptr = 0xb70d // 0x20fa @0x0
0x20fa…211f lno = 0x0cb2 // 0x20fc @0x2
0x20fa…211f at0004 = ╱86╱ LET ╱ // 0x20fe @0x4
0x20fa…211f at0005 = ╱4c╱L╱ // 0x20ff @0x5
0x20fa…211f at0006 = ╱4f╱O╱ // 0x2100 @0x6
0x20fa…211f at0007 = ╱57╱W╱ // 0x2101 @0x7
0x20fa…211f at0008 = ╱f0╱ := ╱ // 0x2102 @0x8
0x20fa…211f at0009 = ╱31╱1╱ // 0x2103 @0x9
0x20fa…211f at000a = ╱f20100╱ // 0x2104 @0xa
0x20fa…211f at000d = ╱ea╱ ; ╱ // 0x2107 @0xd
0x20fa…211f at000e = ╱48╱H╱ // 0x2108 @0xe
0x20fa…211f at000f = ╱49╱I╱ // 0x2109 @0xf
0x20fa…211f at0010 = ╱47╱G╱ // 0x210a @0x10
0x20fa…211f at0011 = ╱48╱H╱ // 0x210b @0x11
0x20fa…211f at0012 = ╱f0╱ := ╱ // 0x210c @0x12
0x20fa…211f at0013 = ╱49╱I╱ // 0x210d @0x13
0x20fa…211f at0014 = ╱5f╱_╱ // 0x210e @0x14
0x20fa…211f at0015 = ╱48╱H╱ // 0x210f @0x15
0x20fa…211f at0016 = ╱5c╱\╱ // 0x2110 @0x16
0x20fa…211f at0017 = ╱4a╱J╱ // 0x2111 @0x17
0x20fa…211f at0018 = ╱52╱R╱ // 0x2112 @0x18
0x20fa…211f at0019 = ╱45╱E╱ // 0x2113 @0x19
0x20fa…211f at001a = ╱43╱C╱ // 0x2114 @0x1a
0x20fa…211f at001b = ╱ea╱ ; ╱ // 0x2115 @0x1b
0x20fa…211f at001c = ╱50╱P╱ // 0x2116 @0x1c
0x20fa…211f at001d = ╱4f╱O╱ // 0x2117 @0x1d
0x20fa…211f at001e = ╱53╱S╱ // 0x2118 @0x1e
0x20fa…211f at001f = ╱f0╱ := ╱ // 0x2119 @0x1f
0x20fa…211f at0020 = ╱32╱2╱ // 0x211a @0x20
0x20fa…211f at0021 = ╱f20200╱ // 0x211b @0x21
0x20fa…211f at0024 = EOL // 0x211e @0x24
0x20fa…211f }
0x211f…2130 b71e 03260 IF IGH > 1 THEN
0x211f…2130 LineComal80 {
0x211f…2130 ptr = 0xb71e // 0x211f @0x0
0x211f…2130 lno = 0x0cbc // 0x2121 @0x2
0x211f…2130 at0004 = ╱9b3848╱ IF ╱ // 0x2123 @0x4
0x211f…2130 at0007 = ╱49╱I╱ // 0x2126 @0x7
0x211f…2130 at0008 = ╱47╱G╱ // 0x2127 @0x8
0x211f…2130 at0009 = ╱48╱H╱ // 0x2128 @0x9
0x211f…2130 at000a = ╱e1╱ > ╱ // 0x2129 @0xa
0x211f…2130 at000b = ╱31╱1╱ // 0x212a @0xb
0x211f…2130 at000c = ╱f20100╱ // 0x212b @0xc
0x211f…2130 at000f = ╱b5╱ THEN ╱ // 0x212e @0xf
0x211f…2130 at0010 = EOL // 0x212f @0x10
0x211f…2130 }
0x2130…2137 b725 03270 REPEAT
0x2130…2137 LineComal80 {
0x2130…2137 ptr = 0xb725 // 0x2130 @0x0
0x2130…2137 lno = 0x0cc6 // 0x2132 @0x2
0x2130…2137 at0004 = ╱9739╱ REPEAT ╱ // 0x2134 @0x4
0x2130…2137 at0006 = EOL // 0x2136 @0x6
0x2130…2137 }
0x2137…2163 b751 03280 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
0x2137…2163 LineComal80 {
0x2137…2163 ptr = 0xb751 // 0x2137 @0x0
0x2137…2163 lno = 0x0cd0 // 0x2139 @0x2
0x2137…2163 at0004 = ╱86╱ LET ╱ // 0x213b @0x4
0x2137…2163 at0005 = ╱50╱P╱ // 0x213c @0x5
0x2137…2163 at0006 = ╱4f╱O╱ // 0x213d @0x6
0x2137…2163 at0007 = ╱53╱S╱ // 0x213e @0x7
0x2137…2163 at0008 = ╱f0╱ := ╱ // 0x213f @0x8
0x2137…2163 at0009 = ╱c6╱ INT ╱ // 0x2140 @0x9
0x2137…2163 at000a = ╱ed╱ ( ╱ // 0x2141 @0xa
0x2137…2163 at000b = ╱ed╱ ( ╱ // 0x2142 @0xb
0x2137…2163 at000c = ╱48╱H╱ // 0x2143 @0xc
0x2137…2163 at000d = ╱49╱I╱ // 0x2144 @0xd
0x2137…2163 at000e = ╱47╱G╱ // 0x2145 @0xe
0x2137…2163 at000f = ╱48╱H╱ // 0x2146 @0xf
0x2137…2163 at0010 = ╱e6╱ - ╱ // 0x2147 @0x10
0x2137…2163 at0011 = ╱4c╱L╱ // 0x2148 @0x11
0x2137…2163 at0012 = ╱4f╱O╱ // 0x2149 @0x12
0x2137…2163 at0013 = ╱57╱W╱ // 0x214a @0x13
0x2137…2163 at0014 = ╱ee╱ ) ╱ // 0x214b @0x14
0x2137…2163 at0015 = ╱e8╱ / ╱ // 0x214c @0x15
0x2137…2163 at0016 = ╱32╱2╱ // 0x214d @0x16
0x2137…2163 at0017 = ╱f20200╱ // 0x214e @0x17
0x2137…2163 at001a = ╱e5╱ + ╱ // 0x2151 @0x1a
0x2137…2163 at001b = ╱2e╱.╱ // 0x2152 @0x1b
0x2137…2163 at001c = ╱35╱5╱ // 0x2153 @0x1c
0x2137…2163 at001d = ╱f88000000000000005╱ // 0x2154 @0x1d
0x2137…2163 at0026 = ╱ee╱ ) ╱ // 0x215d @0x26
0x2137…2163 at0027 = ╱e5╱ + ╱ // 0x215e @0x27
0x2137…2163 at0028 = ╱4c╱L╱ // 0x215f @0x28
0x2137…2163 at0029 = ╱4f╱O╱ // 0x2160 @0x29
0x2137…2163 at002a = ╱57╱W╱ // 0x2161 @0x2a
0x2137…2163 at002b = EOL // 0x2162 @0x2b
0x2137…2163 }
0x2163…2181 (111,) b76f 03290 GET KTOIDX $ , POS : KTONR $ , RECNR
0x2163…2181 LineComal80 {
0x2163…2181 ptr = 0xb76f // 0x2163 @0x0
0x2163…2181 lno = 0x0cda // 0x2165 @0x2
0x2163…2181 at0004 = ╱a9╱ GET ╱ // 0x2167 @0x4
0x2163…2181 at0005 = ╱4b╱K╱ // 0x2168 @0x5
0x2163…2181 at0006 = ╱54╱T╱ // 0x2169 @0x6
0x2163…2181 at0007 = ╱4f╱O╱ // 0x216a @0x7
0x2163…2181 at0008 = ╱49╱I╱ // 0x216b @0x8
0x2163…2181 at0009 = ╱44╱D╱ // 0x216c @0x9
0x2163…2181 at000a = ╱58╱X╱ // 0x216d @0xa
0x2163…2181 at000b = ╱ef╱ $ ╱ // 0x216e @0xb
0x2163…2181 at000c = ╱ec╱ , ╱ // 0x216f @0xc
0x2163…2181 at000d = ╱50╱P╱ // 0x2170 @0xd
0x2163…2181 at000e = ╱4f╱O╱ // 0x2171 @0xe
0x2163…2181 at000f = ╱53╱S╱ // 0x2172 @0xf
0x2163…2181 at0010 = ╱f1╱ : ╱ // 0x2173 @0x10
0x2163…2181 at0011 = ╱4b╱K╱ // 0x2174 @0x11
0x2163…2181 at0012 = ╱54╱T╱ // 0x2175 @0x12
0x2163…2181 at0013 = ╱4f╱O╱ // 0x2176 @0x13
0x2163…2181 at0014 = ╱4e╱N╱ // 0x2177 @0x14
0x2163…2181 at0015 = ╱52╱R╱ // 0x2178 @0x15
0x2163…2181 at0016 = ╱ef╱ $ ╱ // 0x2179 @0x16
0x2163…2181 at0017 = ╱ec╱ , ╱ // 0x217a @0x17
0x2163…2181 at0018 = ╱52╱R╱ // 0x217b @0x18
0x2163…2181 at0019 = ╱45╱E╱ // 0x217c @0x19
0x2163…2181 at001a = ╱43╱C╱ // 0x217d @0x1a
0x2163…2181 at001b = ╱4e╱N╱ // 0x217e @0x1b
0x2163…2181 at001c = ╱52╱R╱ // 0x217f @0x1c
0x2163…2181 at001d = EOL // 0x2180 @0x1d
0x2163…2181 }
0x2181…2198 b786 03300 IF TONR $ > R_KTONR $ THEN
0x2181…2198 LineComal80 {
0x2181…2198 ptr = 0xb786 // 0x2181 @0x0
0x2181…2198 lno = 0x0ce4 // 0x2183 @0x2
0x2181…2198 at0004 = ╱9b3a4b╱ IF ╱ // 0x2185 @0x4
0x2181…2198 at0007 = ╱54╱T╱ // 0x2188 @0x7
0x2181…2198 at0008 = ╱4f╱O╱ // 0x2189 @0x8
0x2181…2198 at0009 = ╱4e╱N╱ // 0x218a @0x9
0x2181…2198 at000a = ╱52╱R╱ // 0x218b @0xa
0x2181…2198 at000b = ╱ef╱ $ ╱ // 0x218c @0xb
0x2181…2198 at000c = ╱e1╱ > ╱ // 0x218d @0xc
0x2181…2198 at000d = ╱52╱R╱ // 0x218e @0xd
0x2181…2198 at000e = ╱5f╱_╱ // 0x218f @0xe
0x2181…2198 at000f = ╱4b╱K╱ // 0x2190 @0xf
0x2181…2198 at0010 = ╱54╱T╱ // 0x2191 @0x10
0x2181…2198 at0011 = ╱4f╱O╱ // 0x2192 @0x11
0x2181…2198 at0012 = ╱4e╱N╱ // 0x2193 @0x12
0x2181…2198 at0013 = ╱52╱R╱ // 0x2194 @0x13
0x2181…2198 at0014 = ╱ef╱ $ ╱ // 0x2195 @0x14
0x2181…2198 at0015 = ╱b5╱ THEN ╱ // 0x2196 @0x15
0x2181…2198 at0016 = EOL // 0x2197 @0x16
0x2181…2198 }
0x2198…21a6 b794 03270 LET HIGH := POS
0x2198…21a6 LineComal80 {
0x2198…21a6 ptr = 0xb794 // 0x2198 @0x0
0x2198…21a6 lno = 0x0cc6 // 0x219a @0x2
0x2198…21a6 at0004 = ╱86╱ LET ╱ // 0x219c @0x4
0x2198…21a6 at0005 = ╱48╱H╱ // 0x219d @0x5
0x2198…21a6 at0006 = ╱49╱I╱ // 0x219e @0x6
0x2198…21a6 at0007 = ╱47╱G╱ // 0x219f @0x7
0x2198…21a6 at0008 = ╱48╱H╱ // 0x21a0 @0x8
0x2198…21a6 at0009 = ╱f0╱ := ╱ // 0x21a1 @0x9
0x2198…21a6 at000a = ╱50╱P╱ // 0x21a2 @0xa
0x2198…21a6 at000b = ╱4f╱O╱ // 0x21a3 @0xb
0x2198…21a6 at000c = ╱53╱S╱ // 0x21a4 @0xc
0x2198…21a6 at000d = EOL // 0x21a5 @0xd
0x2198…21a6 }
0x21a6…21ad b79b 03280 ELSE
0x21a6…21ad LineComal80 {
0x21a6…21ad ptr = 0xb79b // 0x21a6 @0x0
0x21a6…21ad lno = 0x0cd0 // 0x21a8 @0x2
0x21a6…21ad at0004 = ╱9a3a╱ ELSE ╱ // 0x21aa @0x4
0x21a6…21ad at0006 = EOL // 0x21ac @0x6
0x21a6…21ad }
0x21ad…21c4 b7b2 03290 IF TONR $ < R_KTONR $ THEN
0x21ad…21c4 LineComal80 {
0x21ad…21c4 ptr = 0xb7b2 // 0x21ad @0x0
0x21ad…21c4 lno = 0x0cda // 0x21af @0x2
0x21ad…21c4 at0004 = ╱9b3b4b╱ IF ╱ // 0x21b1 @0x4
0x21ad…21c4 at0007 = ╱54╱T╱ // 0x21b4 @0x7
0x21ad…21c4 at0008 = ╱4f╱O╱ // 0x21b5 @0x8
0x21ad…21c4 at0009 = ╱4e╱N╱ // 0x21b6 @0x9
0x21ad…21c4 at000a = ╱52╱R╱ // 0x21b7 @0xa
0x21ad…21c4 at000b = ╱ef╱ $ ╱ // 0x21b8 @0xb
0x21ad…21c4 at000c = ╱e0╱ < ╱ // 0x21b9 @0xc
0x21ad…21c4 at000d = ╱52╱R╱ // 0x21ba @0xd
0x21ad…21c4 at000e = ╱5f╱_╱ // 0x21bb @0xe
0x21ad…21c4 at000f = ╱4b╱K╱ // 0x21bc @0xf
0x21ad…21c4 at0010 = ╱54╱T╱ // 0x21bd @0x10
0x21ad…21c4 at0011 = ╱4f╱O╱ // 0x21be @0x11
0x21ad…21c4 at0012 = ╱4e╱N╱ // 0x21bf @0x12
0x21ad…21c4 at0013 = ╱52╱R╱ // 0x21c0 @0x13
0x21ad…21c4 at0014 = ╱ef╱ $ ╱ // 0x21c1 @0x14
0x21ad…21c4 at0015 = ╱b5╱ THEN ╱ // 0x21c2 @0x15
0x21ad…21c4 at0016 = EOL // 0x21c3 @0x16
0x21ad…21c4 }
0x21c4…21d1 b7bf 03300 LET LOW := POS
0x21c4…21d1 LineComal80 {
0x21c4…21d1 ptr = 0xb7bf // 0x21c4 @0x0
0x21c4…21d1 lno = 0x0ce4 // 0x21c6 @0x2
0x21c4…21d1 at0004 = ╱86╱ LET ╱ // 0x21c8 @0x4
0x21c4…21d1 at0005 = ╱4c╱L╱ // 0x21c9 @0x5
0x21c4…21d1 at0006 = ╱4f╱O╱ // 0x21ca @0x6
0x21c4…21d1 at0007 = ╱57╱W╱ // 0x21cb @0x7
0x21c4…21d1 at0008 = ╱f0╱ := ╱ // 0x21cc @0x8
0x21c4…21d1 at0009 = ╱50╱P╱ // 0x21cd @0x9
0x21c4…21d1 at000a = ╱4f╱O╱ // 0x21ce @0xa
0x21c4…21d1 at000b = ╱53╱S╱ // 0x21cf @0xb
0x21c4…21d1 at000c = EOL // 0x21d0 @0xc
0x21c4…21d1 }
0x21d1…21d7 b7c5 03310 ENDIF
0x21d1…21d7 LineComal80 {
0x21d1…21d7 ptr = 0xb7c5 // 0x21d1 @0x0
0x21d1…21d7 lno = 0x0cee // 0x21d3 @0x2
0x21d1…21d7 at0004 = ╱9c╱ ENDIF ╱ // 0x21d5 @0x4
0x21d1…21d7 at0005 = EOL // 0x21d6 @0x5
0x21d1…21d7 }
0x21d7…21dd b7cb 03320 ENDIF
0x21d7…21dd LineComal80 {
0x21d7…21dd ptr = 0xb7cb // 0x21d7 @0x0
0x21d7…21dd lno = 0x0cf8 // 0x21d9 @0x2
0x21d7…21dd at0004 = ╱9c╱ ENDIF ╱ // 0x21db @0x4
0x21d7…21dd at0005 = EOL // 0x21dc @0x5
0x21d7…21dd }
0x21dd…2200 b7ee 03330 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
0x21dd…2200 LineComal80 {
0x21dd…2200 ptr = 0xb7ee // 0x21dd @0x0
0x21dd…2200 lno = 0x0d02 // 0x21df @0x2
0x21dd…2200 at0004 = ╱98╱ UNTIL ╱ // 0x21e1 @0x4
0x21dd…2200 at0005 = ╱48╱H╱ // 0x21e2 @0x5
0x21dd…2200 at0006 = ╱49╱I╱ // 0x21e3 @0x6
0x21dd…2200 at0007 = ╱47╱G╱ // 0x21e4 @0x7
0x21dd…2200 at0008 = ╱48╱H╱ // 0x21e5 @0x8
0x21dd…2200 at0009 = ╱e6╱ - ╱ // 0x21e6 @0x9
0x21dd…2200 at000a = ╱4c╱L╱ // 0x21e7 @0xa
0x21dd…2200 at000b = ╱4f╱O╱ // 0x21e8 @0xb
0x21dd…2200 at000c = ╱57╱W╱ // 0x21e9 @0xc
0x21dd…2200 at000d = ╱e2╱ =< ╱ // 0x21ea @0xd
0x21dd…2200 at000e = ╱31╱1╱ // 0x21eb @0xe
0x21dd…2200 at000f = ╱f20100╱ // 0x21ec @0xf
0x21dd…2200 at0012 = ╱d8╱ OR ╱ // 0x21ef @0x12
0x21dd…2200 at0013 = ╱52╱R╱ // 0x21f0 @0x13
0x21dd…2200 at0014 = ╱5f╱_╱ // 0x21f1 @0x14
0x21dd…2200 at0015 = ╱4b╱K╱ // 0x21f2 @0x15
0x21dd…2200 at0016 = ╱54╱T╱ // 0x21f3 @0x16
0x21dd…2200 at0017 = ╱4f╱O╱ // 0x21f4 @0x17
0x21dd…2200 at0018 = ╱4e╱N╱ // 0x21f5 @0x18
0x21dd…2200 at0019 = ╱52╱R╱ // 0x21f6 @0x19
0x21dd…2200 at001a = ╱ef╱ $ ╱ // 0x21f7 @0x1a
0x21dd…2200 at001b = ╱df╱ = ╱ // 0x21f8 @0x1b
0x21dd…2200 at001c = ╱4b╱K╱ // 0x21f9 @0x1c
0x21dd…2200 at001d = ╱54╱T╱ // 0x21fa @0x1d
0x21dd…2200 at001e = ╱4f╱O╱ // 0x21fb @0x1e
0x21dd…2200 at001f = ╱4e╱N╱ // 0x21fc @0x1f
0x21dd…2200 at0020 = ╱52╱R╱ // 0x21fd @0x20
0x21dd…2200 at0021 = ╱ef╱ $ ╱ // 0x21fe @0x21
0x21dd…2200 at0022 = EOL // 0x21ff @0x22
0x21dd…2200 }
0x2200…222c b81a 03340 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
0x2200…222c LineComal80 {
0x2200…222c ptr = 0xb81a // 0x2200 @0x0
0x2200…222c lno = 0x0d0c // 0x2202 @0x2
0x2200…222c at0004 = ╱86╱ LET ╱ // 0x2204 @0x4
0x2200…222c at0005 = ╱50╱P╱ // 0x2205 @0x5
0x2200…222c at0006 = ╱4f╱O╱ // 0x2206 @0x6
0x2200…222c at0007 = ╱53╱S╱ // 0x2207 @0x7
0x2200…222c at0008 = ╱f0╱ := ╱ // 0x2208 @0x8
0x2200…222c at0009 = ╱c6╱ INT ╱ // 0x2209 @0x9
0x2200…222c at000a = ╱ed╱ ( ╱ // 0x220a @0xa
0x2200…222c at000b = ╱ed╱ ( ╱ // 0x220b @0xb
0x2200…222c at000c = ╱48╱H╱ // 0x220c @0xc
0x2200…222c at000d = ╱49╱I╱ // 0x220d @0xd
0x2200…222c at000e = ╱47╱G╱ // 0x220e @0xe
0x2200…222c at000f = ╱48╱H╱ // 0x220f @0xf
0x2200…222c at0010 = ╱e6╱ - ╱ // 0x2210 @0x10
0x2200…222c at0011 = ╱4c╱L╱ // 0x2211 @0x11
0x2200…222c at0012 = ╱4f╱O╱ // 0x2212 @0x12
0x2200…222c at0013 = ╱57╱W╱ // 0x2213 @0x13
0x2200…222c at0014 = ╱ee╱ ) ╱ // 0x2214 @0x14
0x2200…222c at0015 = ╱e8╱ / ╱ // 0x2215 @0x15
0x2200…222c at0016 = ╱32╱2╱ // 0x2216 @0x16
0x2200…222c at0017 = ╱f20200╱ // 0x2217 @0x17
0x2200…222c at001a = ╱e5╱ + ╱ // 0x221a @0x1a
0x2200…222c at001b = ╱2e╱.╱ // 0x221b @0x1b
0x2200…222c at001c = ╱35╱5╱ // 0x221c @0x1c
0x2200…222c at001d = ╱f88000000000000005╱ // 0x221d @0x1d
0x2200…222c at0026 = ╱ee╱ ) ╱ // 0x2226 @0x26
0x2200…222c at0027 = ╱e5╱ + ╱ // 0x2227 @0x27
0x2200…222c at0028 = ╱4c╱L╱ // 0x2228 @0x28
0x2200…222c at0029 = ╱4f╱O╱ // 0x2229 @0x29
0x2200…222c at002a = ╱57╱W╱ // 0x222a @0x2a
0x2200…222c at002b = EOL // 0x222b @0x2b
0x2200…222c }
0x222c…224a b838 03350 GET KTOIDX $ , POS : KTONR $ , RECNR
0x222c…224a LineComal80 {
0x222c…224a ptr = 0xb838 // 0x222c @0x0
0x222c…224a lno = 0x0d16 // 0x222e @0x2
0x222c…224a at0004 = ╱a9╱ GET ╱ // 0x2230 @0x4
0x222c…224a at0005 = ╱4b╱K╱ // 0x2231 @0x5
0x222c…224a at0006 = ╱54╱T╱ // 0x2232 @0x6
0x222c…224a at0007 = ╱4f╱O╱ // 0x2233 @0x7
0x222c…224a at0008 = ╱49╱I╱ // 0x2234 @0x8
0x222c…224a at0009 = ╱44╱D╱ // 0x2235 @0x9
0x222c…224a at000a = ╱58╱X╱ // 0x2236 @0xa
0x222c…224a at000b = ╱ef╱ $ ╱ // 0x2237 @0xb
0x222c…224a at000c = ╱ec╱ , ╱ // 0x2238 @0xc
0x222c…224a at000d = ╱50╱P╱ // 0x2239 @0xd
0x222c…224a at000e = ╱4f╱O╱ // 0x223a @0xe
0x222c…224a at000f = ╱53╱S╱ // 0x223b @0xf
0x222c…224a at0010 = ╱f1╱ : ╱ // 0x223c @0x10
0x222c…224a at0011 = ╱4b╱K╱ // 0x223d @0x11
0x222c…224a at0012 = ╱54╱T╱ // 0x223e @0x12
0x222c…224a at0013 = ╱4f╱O╱ // 0x223f @0x13
0x222c…224a at0014 = ╱4e╱N╱ // 0x2240 @0x14
0x222c…224a at0015 = ╱52╱R╱ // 0x2241 @0x15
0x222c…224a at0016 = ╱ef╱ $ ╱ // 0x2242 @0x16
0x222c…224a at0017 = ╱ec╱ , ╱ // 0x2243 @0x17
0x222c…224a at0018 = ╱52╱R╱ // 0x2244 @0x18
0x222c…224a at0019 = ╱45╱E╱ // 0x2245 @0x19
0x222c…224a at001a = ╱43╱C╱ // 0x2246 @0x1a
0x222c…224a at001b = ╱4e╱N╱ // 0x2247 @0x1b
0x222c…224a at001c = ╱52╱R╱ // 0x2248 @0x1c
0x222c…224a at001d = EOL // 0x2249 @0x1d
0x222c…224a }
0x224a…2269 (114,) b857 03360 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
0x224a…2269 LineComal80 {
0x224a…2269 ptr = 0xb857 // 0x224a @0x0
0x224a…2269 lno = 0x0d20 // 0x224c @0x2
0x224a…2269 at0004 = ╱8200╱ IF ╱ // 0x224e @0x4
0x224a…2269 at0006 = ╱4b╱K╱ // 0x2250 @0x6
0x224a…2269 at0007 = ╱54╱T╱ // 0x2251 @0x7
0x224a…2269 at0008 = ╱4f╱O╱ // 0x2252 @0x8
0x224a…2269 at0009 = ╱4e╱N╱ // 0x2253 @0x9
0x224a…2269 at000a = ╱52╱R╱ // 0x2254 @0xa
0x224a…2269 at000b = ╱ef╱ $ ╱ // 0x2255 @0xb
0x224a…2269 at000c = ╱df╱ = ╱ // 0x2256 @0xc
0x224a…2269 at000d = ╱52╱R╱ // 0x2257 @0xd
0x224a…2269 at000e = ╱5f╱_╱ // 0x2258 @0xe
0x224a…2269 at000f = ╱4b╱K╱ // 0x2259 @0xf
0x224a…2269 at0010 = ╱54╱T╱ // 0x225a @0x10
0x224a…2269 at0011 = ╱4f╱O╱ // 0x225b @0x11
0x224a…2269 at0012 = ╱4e╱N╱ // 0x225c @0x12
0x224a…2269 at0013 = ╱52╱R╱ // 0x225d @0x13
0x224a…2269 at0014 = ╱ef╱ $ ╱ // 0x225e @0x14
0x224a…2269 at0015 = ╱b5╱ THEN ╱ // 0x225f @0x15
0x224a…2269 at0016 = ╱86╱ LET ╱ // 0x2260 @0x16
0x224a…2269 at0017 = ╱4f╱O╱ // 0x2261 @0x17
0x224a…2269 at0018 = ╱4b╱K╱ // 0x2262 @0x18
0x224a…2269 at0019 = ╱f0╱ := ╱ // 0x2263 @0x19
0x224a…2269 at001a = ╱54╱T╱ // 0x2264 @0x1a
0x224a…2269 at001b = ╱52╱R╱ // 0x2265 @0x1b
0x224a…2269 at001c = ╱55╱U╱ // 0x2266 @0x1c
0x224a…2269 at001d = ╱45╱E╱ // 0x2267 @0x1d
0x224a…2269 at001e = EOL // 0x2268 @0x1e
0x224a…2269 }
0x2269…226f b85d 03370 ENDIF
0x2269…226f LineComal80 {
0x2269…226f ptr = 0xb85d // 0x2269 @0x0
0x2269…226f lno = 0x0d2a // 0x226b @0x2
0x2269…226f at0004 = ╱9c╱ ENDIF ╱ // 0x226d @0x4
0x2269…226f at0005 = EOL // 0x226e @0x5
0x2269…226f }
0x226f…2281 b86f 03380 LET FIND_KTO := POS
0x226f…2281 LineComal80 {
0x226f…2281 ptr = 0xb86f // 0x226f @0x0
0x226f…2281 lno = 0x0d34 // 0x2271 @0x2
0x226f…2281 at0004 = ╱86╱ LET ╱ // 0x2273 @0x4
0x226f…2281 at0005 = ╱46╱F╱ // 0x2274 @0x5
0x226f…2281 at0006 = ╱49╱I╱ // 0x2275 @0x6
0x226f…2281 at0007 = ╱4e╱N╱ // 0x2276 @0x7
0x226f…2281 at0008 = ╱44╱D╱ // 0x2277 @0x8
0x226f…2281 at0009 = ╱5f╱_╱ // 0x2278 @0x9
0x226f…2281 at000a = ╱4b╱K╱ // 0x2279 @0xa
0x226f…2281 at000b = ╱54╱T╱ // 0x227a @0xb
0x226f…2281 at000c = ╱4f╱O╱ // 0x227b @0xc
0x226f…2281 at000d = ╱f0╱ := ╱ // 0x227c @0xd
0x226f…2281 at000e = ╱50╱P╱ // 0x227d @0xe
0x226f…2281 at000f = ╱4f╱O╱ // 0x227e @0xf
0x226f…2281 at0010 = ╱53╱S╱ // 0x227f @0x10
0x226f…2281 at0011 = EOL // 0x2280 @0x11
0x226f…2281 }
0x2281…228f b87d 03390 ENDPROC FIND_KTO
0x2281…228f LineComal80 {
0x2281…228f ptr = 0xb87d // 0x2281 @0x0
0x2281…228f lno = 0x0d3e // 0x2283 @0x2
0x2281…228f at0004 = ╱9f╱ ENDPROC ╱ // 0x2285 @0x4
0x2281…228f at0005 = ╱46╱F╱ // 0x2286 @0x5
0x2281…228f at0006 = ╱49╱I╱ // 0x2287 @0x6
0x2281…228f at0007 = ╱4e╱N╱ // 0x2288 @0x7
0x2281…228f at0008 = ╱44╱D╱ // 0x2289 @0x8
0x2281…228f at0009 = ╱5f╱_╱ // 0x228a @0x9
0x2281…228f at000a = ╱4b╱K╱ // 0x228b @0xa
0x2281…228f at000b = ╱54╱T╱ // 0x228c @0xb
0x2281…228f at000c = ╱4f╱O╱ // 0x228d @0xc
0x2281…228f at000d = EOL // 0x228e @0xd
0x2281…228f }
0x228f…2295 b883 03400 //
0x228f…2295 LineComal80 {
0x228f…2295 ptr = 0xb883 // 0x228f @0x0
0x228f…2295 lno = 0x0d48 // 0x2291 @0x2
0x228f…2295 at0004 = ╱89╱ // ╱ // 0x2293 @0x4
0x228f…2295 at0005 = EOL // 0x2294 @0x5
0x228f…2295 }
0x2295…22c8 b8b6 03410 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
0x2295…22c8 LineComal80 {
0x2295…22c8 ptr = 0xb8b6 // 0x2295 @0x0
0x2295…22c8 lno = 0x0d52 // 0x2297 @0x2
0x2295…22c8 at0004 = ╱9e3c╱ PROC ╱ // 0x2299 @0x4
0x2295…22c8 at0006 = ╱50╱P╱ // 0x229b @0x6
0x2295…22c8 at0007 = ╱52╱R╱ // 0x229c @0x7
0x2295…22c8 at0008 = ╱49╱I╱ // 0x229d @0x8
0x2295…22c8 at0009 = ╱4e╱N╱ // 0x229e @0x9
0x2295…22c8 at000a = ╱54╱T╱ // 0x229f @0xa
0x2295…22c8 at000b = ╱52╱R╱ // 0x22a0 @0xb
0x2295…22c8 at000c = ╱45╱E╱ // 0x22a1 @0xc
0x2295…22c8 at000d = ╱53╱S╱ // 0x22a2 @0xd
0x2295…22c8 at000e = ╱ed╱ ( ╱ // 0x22a3 @0xe
0x2295…22c8 at000f = ╱50╱P╱ // 0x22a4 @0xf
0x2295…22c8 at0010 = ╱41╱A╱ // 0x22a5 @0x10
0x2295…22c8 at0011 = ╱47╱G╱ // 0x22a6 @0x11
0x2295…22c8 at0012 = ╱45╱E╱ // 0x22a7 @0x12
0x2295…22c8 at0013 = ╱54╱T╱ // 0x22a8 @0x13
0x2295…22c8 at0014 = ╱59╱Y╱ // 0x22a9 @0x14
0x2295…22c8 at0015 = ╱50╱P╱ // 0x22aa @0x15
0x2295…22c8 at0016 = ╱45╱E╱ // 0x22ab @0x16
0x2295…22c8 at0017 = ╱ef╱ $ ╱ // 0x22ac @0x17
0x2295…22c8 at0018 = ╱ec╱ , ╱ // 0x22ad @0x18
0x2295…22c8 at0019 = ╱4c╱L╱ // 0x22ae @0x19
0x2295…22c8 at001a = ╱49╱I╱ // 0x22af @0x1a
0x2295…22c8 at001b = ╱4e╱N╱ // 0x22b0 @0x1b
0x2295…22c8 at001c = ╱45╱E╱ // 0x22b1 @0x1c
0x2295…22c8 at001d = ╱ee╱ ) ╱ // 0x22b2 @0x1d
0x2295…22c8 at001e = ╱89╱ // ╱ // 0x22b3 @0x1e
0x2295…22c8 at001f = ╱50╱P╱ // 0x22b4 @0x1f
0x2295…22c8 at0020 = ╱52╱R╱ // 0x22b5 @0x20
0x2295…22c8 at0021 = ╱49╱I╱ // 0x22b6 @0x21
0x2295…22c8 at0022 = ╱4e╱N╱ // 0x22b7 @0x22
0x2295…22c8 at0023 = ╱54╱T╱ // 0x22b8 @0x23
0x2295…22c8 at0024 = ╱45╱E╱ // 0x22b9 @0x24
0x2295…22c8 at0025 = ╱52╱R╱ // 0x22ba @0x25
0x2295…22c8 at0026 = ╱20╱…╱ // 0x22bb @0x26
0x2295…22c8 at0027 = ╱52╱R╱ // 0x22bc @0x27
0x2295…22c8 at0028 = ╱45╱E╱ // 0x22bd @0x28
0x2295…22c8 at0029 = ╱53╱S╱ // 0x22be @0x29
0x2295…22c8 at002a = ╱45╱E╱ // 0x22bf @0x2a
0x2295…22c8 at002b = ╱52╱R╱ // 0x22c0 @0x2b
0x2295…22c8 at002c = ╱56╱V╱ // 0x22c1 @0x2c
0x2295…22c8 at002d = ╱41╱A╱ // 0x22c2 @0x2d
0x2295…22c8 at002e = ╱54╱T╱ // 0x22c3 @0x2e
0x2295…22c8 at002f = ╱49╱I╱ // 0x22c4 @0x2f
0x2295…22c8 at0030 = ╱4f╱O╱ // 0x22c5 @0x30
0x2295…22c8 at0031 = ╱4e╱N╱ // 0x22c6 @0x31
0x2295…22c8 at0032 = EOL // 0x22c7 @0x32
0x2295…22c8 }
0x22c8…22e0 b8ce 03420 LET PRTNR $ := "1" ; OK := TRUE
0x22c8…22e0 LineComal80 {
0x22c8…22e0 ptr = 0xb8ce // 0x22c8 @0x0
0x22c8…22e0 lno = 0x0d5c // 0x22ca @0x2
0x22c8…22e0 at0004 = ╱86╱ LET ╱ // 0x22cc @0x4
0x22c8…22e0 at0005 = ╱50╱P╱ // 0x22cd @0x5
0x22c8…22e0 at0006 = ╱52╱R╱ // 0x22ce @0x6
0x22c8…22e0 at0007 = ╱54╱T╱ // 0x22cf @0x7
0x22c8…22e0 at0008 = ╱4e╱N╱ // 0x22d0 @0x8
0x22c8…22e0 at0009 = ╱52╱R╱ // 0x22d1 @0x9
0x22c8…22e0 at000a = ╱ef╱ $ ╱ // 0x22d2 @0xa
0x22c8…22e0 at000b = ╱f0╱ := ╱ // 0x22d3 @0xb
0x22c8…22e0 at000c = ╱22╱"╱ // 0x22d4 @0xc
0x22c8…22e0 at000d = ╱31╱1╱ // 0x22d5 @0xd
0x22c8…22e0 at000e = ╱22╱"╱ // 0x22d6 @0xe
0x22c8…22e0 at000f = ╱ea╱ ; ╱ // 0x22d7 @0xf
0x22c8…22e0 at0010 = ╱4f╱O╱ // 0x22d8 @0x10
0x22c8…22e0 at0011 = ╱4b╱K╱ // 0x22d9 @0x11
0x22c8…22e0 at0012 = ╱f0╱ := ╱ // 0x22da @0x12
0x22c8…22e0 at0013 = ╱54╱T╱ // 0x22db @0x13
0x22c8…22e0 at0014 = ╱52╱R╱ // 0x22dc @0x14
0x22c8…22e0 at0015 = ╱55╱U╱ // 0x22dd @0x15
0x22c8…22e0 at0016 = ╱45╱E╱ // 0x22de @0x16
0x22c8…22e0 at0017 = EOL // 0x22df @0x17
0x22c8…22e0 }
0x22e0…22e7 b8d5 03430 REPEAT
0x22e0…22e7 LineComal80 {
0x22e0…22e7 ptr = 0xb8d5 // 0x22e0 @0x0
0x22e0…22e7 lno = 0x0d66 // 0x22e2 @0x2
0x22e0…22e7 at0004 = ╱973d╱ REPEAT ╱ // 0x22e4 @0x4
0x22e0…22e7 at0006 = EOL // 0x22e6 @0x6
0x22e0…22e7 }
0x22e7…22f7 b8e5 03440 CURSOR 15 , LINE
0x22e7…22f7 LineComal80 {
0x22e7…22f7 ptr = 0xb8e5 // 0x22e7 @0x0
0x22e7…22f7 lno = 0x0d70 // 0x22e9 @0x2
0x22e7…22f7 at0004 = ╱a1╱ CURSOR ╱ // 0x22eb @0x4
0x22e7…22f7 at0005 = ╱31╱1╱ // 0x22ec @0x5
0x22e7…22f7 at0006 = ╱35╱5╱ // 0x22ed @0x6
0x22e7…22f7 at0007 = ╱f20f00╱ // 0x22ee @0x7
0x22e7…22f7 at000a = ╱ec╱ , ╱ // 0x22f1 @0xa
0x22e7…22f7 at000b = ╱4c╱L╱ // 0x22f2 @0xb
0x22e7…22f7 at000c = ╱49╱I╱ // 0x22f3 @0xc
0x22e7…22f7 at000d = ╱4e╱N╱ // 0x22f4 @0xd
0x22e7…22f7 at000e = ╱45╱E╱ // 0x22f5 @0xe
0x22e7…22f7 at000f = EOL // 0x22f6 @0xf
0x22e7…22f7 }
0x22f7…2330 b91e 03450 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
0x22f7…2330 LineComal80 {
0x22f7…2330 ptr = 0xb91e // 0x22f7 @0x0
0x22f7…2330 lno = 0x0d7a // 0x22f9 @0x2
0x22f7…2330 at0004 = ╱b1╱ EDIT ╱ // 0x22fb @0x4
0x22f7…2330 at0005 = ╱22╱"╱ // 0x22fc @0x5
0x22f7…2330 at0006 = ╱3c╱<╱ // 0x22fd @0x6
0x22f7…2330 at0007 = ╱5a╱Z╱ // 0x22fe @0x7
0x22f7…2330 at0008 = ╱3e╱>╱ // 0x22ff @0x8
0x22f7…2330 at0009 = ╱55╱U╱ // 0x2300 @0x9
0x22f7…2330 at000a = ╱64╱d╱ // 0x2301 @0xa
0x22f7…2330 at000b = ╱73╱s╱ // 0x2302 @0xb
0x22f7…2330 at000c = ╱6b╱k╱ // 0x2303 @0xc
0x22f7…2330 at000d = ╱72╱r╱ // 0x2304 @0xd
0x22f7…2330 at000e = ╱69╱i╱ // 0x2305 @0xe
0x22f7…2330 at000f = ╱76╱v╱ // 0x2306 @0xf
0x22f7…2330 at0010 = ╱6e╱n╱ // 0x2307 @0x10
0x22f7…2330 at0011 = ╱69╱i╱ // 0x2308 @0x11
0x22f7…2330 at0012 = ╱6e╱n╱ // 0x2309 @0x12
0x22f7…2330 at0013 = ╱67╱g╱ // 0x230a @0x13
0x22f7…2330 at0014 = ╱20╱…╱ // 0x230b @0x14
0x22f7…2330 at0015 = ╱70╱p╱ // 0x230c @0x15
0x22f7…2330 at0016 = ╱7d╱}╱ // 0x230d @0x16
0x22f7…2330 at0017 = ╱20╱…╱ // 0x230e @0x17
0x22f7…2330 at0018 = ╱70╱p╱ // 0x230f @0x18
0x22f7…2330 at0019 = ╱72╱r╱ // 0x2310 @0x19
0x22f7…2330 at001a = ╱69╱i╱ // 0x2311 @0x1a
0x22f7…2330 at001b = ╱6e╱n╱ // 0x2312 @0x1b
0x22f7…2330 at001c = ╱74╱t╱ // 0x2313 @0x1c
0x22f7…2330 at001d = ╱65╱e╱ // 0x2314 @0x1d
0x22f7…2330 at001e = ╱72╱r╱ // 0x2315 @0x1e
0x22f7…2330 at001f = ╱20╱…╱ // 0x2316 @0x1f
0x22f7…2330 at0020 = ╱6e╱n╱ // 0x2317 @0x20
0x22f7…2330 at0021 = ╱72╱r╱ // 0x2318 @0x21
0x22f7…2330 at0022 = ╱2e╱.╱ // 0x2319 @0x22
0x22f7…2330 at0023 = ╱20╱…╱ // 0x231a @0x23
0x22f7…2330 at0024 = ╱3f╱?╱ // 0x231b @0x24
0x22f7…2330 at0025 = ╱20╱…╱ // 0x231c @0x25
0x22f7…2330 at0026 = ╱28╱(╱ // 0x231d @0x26
0x22f7…2330 at0027 = ╱31╱1╱ // 0x231e @0x27
0x22f7…2330 at0028 = ╱2f╱/╱ // 0x231f @0x28
0x22f7…2330 at0029 = ╱32╱2╱ // 0x2320 @0x29
0x22f7…2330 at002a = ╱2f╱/╱ // 0x2321 @0x2a
0x22f7…2330 at002b = ╱33╱3╱ // 0x2322 @0x2b
0x22f7…2330 at002c = ╱2f╱/╱ // 0x2323 @0x2c
0x22f7…2330 at002d = ╱34╱4╱ // 0x2324 @0x2d
0x22f7…2330 at002e = ╱29╱)╱ // 0x2325 @0x2e
0x22f7…2330 at002f = ╱20╱…╱ // 0x2326 @0x2f
0x22f7…2330 at0030 = ╱22╱"╱ // 0x2327 @0x30
0x22f7…2330 at0031 = ╱f1╱ : ╱ // 0x2328 @0x31
0x22f7…2330 at0032 = ╱50╱P╱ // 0x2329 @0x32
0x22f7…2330 at0033 = ╱52╱R╱ // 0x232a @0x33
0x22f7…2330 at0034 = ╱54╱T╱ // 0x232b @0x34
0x22f7…2330 at0035 = ╱4e╱N╱ // 0x232c @0x35
0x22f7…2330 at0036 = ╱52╱R╱ // 0x232d @0x36
0x22f7…2330 at0037 = ╱ef╱ $ ╱ // 0x232e @0x37
0x22f7…2330 at0038 = EOL // 0x232f @0x38
0x22f7…2330 }
0x2330…2350 d0fd 03460 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
0x2330…2350 LineComal80 {
0x2330…2350 ptr = 0xd0fd // 0x2330 @0x0
0x2330…2350 lno = 0x0d84 // 0x2332 @0x2
0x2330…2350 at0004 = ╱98╱ UNTIL ╱ // 0x2334 @0x4
0x2330…2350 at0005 = ╱22╱"╱ // 0x2335 @0x5
0x2330…2350 at0006 = ╱2f╱/╱ // 0x2336 @0x6
0x2330…2350 at0007 = ╱22╱"╱ // 0x2337 @0x7
0x2330…2350 at0008 = ╱eb╱ + ╱ // 0x2338 @0x8
0x2330…2350 at0009 = ╱50╱P╱ // 0x2339 @0x9
0x2330…2350 at000a = ╱52╱R╱ // 0x233a @0xa
0x2330…2350 at000b = ╱54╱T╱ // 0x233b @0xb
0x2330…2350 at000c = ╱4e╱N╱ // 0x233c @0xc
0x2330…2350 at000d = ╱52╱R╱ // 0x233d @0xd
0x2330…2350 at000e = ╱ef╱ $ ╱ // 0x233e @0xe
0x2330…2350 at000f = ╱eb╱ + ╱ // 0x233f @0xf
0x2330…2350 at0010 = ╱22╱"╱ // 0x2340 @0x10
0x2330…2350 at0011 = ╱2f╱/╱ // 0x2341 @0x11
0x2330…2350 at0012 = ╱22╱"╱ // 0x2342 @0x12
0x2330…2350 at0013 = ╱dc╱ IN ╱ // 0x2343 @0x13
0x2330…2350 at0014 = ╱22╱"╱ // 0x2344 @0x14
0x2330…2350 at0015 = ╱2f╱/╱ // 0x2345 @0x15
0x2330…2350 at0016 = ╱31╱1╱ // 0x2346 @0x16
0x2330…2350 at0017 = ╱2f╱/╱ // 0x2347 @0x17
0x2330…2350 at0018 = ╱32╱2╱ // 0x2348 @0x18
0x2330…2350 at0019 = ╱2f╱/╱ // 0x2349 @0x19
0x2330…2350 at001a = ╱33╱3╱ // 0x234a @0x1a
0x2330…2350 at001b = ╱2f╱/╱ // 0x234b @0x1b
0x2330…2350 at001c = ╱34╱4╱ // 0x234c @0x1c
0x2330…2350 at001d = ╱2f╱/╱ // 0x234d @0x1d
0x2330…2350 at001e = ╱22╱"╱ // 0x234e @0x1e
0x2330…2350 at001f = EOL // 0x234f @0x1f
0x2330…2350 }
0x2350…2374 b962 03490 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
0x2350…2374 LineComal80 {
0x2350…2374 ptr = 0xb962 // 0x2350 @0x0
0x2350…2374 lno = 0x0da2 // 0x2352 @0x2
0x2350…2374 at0004 = ╱a1╱ CURSOR ╱ // 0x2354 @0x4
0x2350…2374 at0005 = ╱ed╱ ( ╱ // 0x2355 @0x5
0x2350…2374 at0006 = ╱33╱3╱ // 0x2356 @0x6
0x2350…2374 at0007 = ╱39╱9╱ // 0x2357 @0x7
0x2350…2374 at0008 = ╱f22700╱ // 0x2358 @0x8
0x2350…2374 at000b = ╱e6╱ - ╱ // 0x235b @0xb
0x2350…2374 at000c = ╱cb╱ // 0x235c @0xc
0x2350…2374 at000d = ╱ed╱ ( ╱ // 0x235d @0xd
0x2350…2374 at000e = ╱50╱P╱ // 0x235e @0xe
0x2350…2374 at000f = ╱41╱A╱ // 0x235f @0xf
0x2350…2374 at0010 = ╱47╱G╱ // 0x2360 @0x10
0x2350…2374 at0011 = ╱45╱E╱ // 0x2361 @0x11
0x2350…2374 at0012 = ╱54╱T╱ // 0x2362 @0x12
0x2350…2374 at0013 = ╱59╱Y╱ // 0x2363 @0x13
0x2350…2374 at0014 = ╱50╱P╱ // 0x2364 @0x14
0x2350…2374 at0015 = ╱45╱E╱ // 0x2365 @0x15
0x2350…2374 at0016 = ╱ef╱ $ ╱ // 0x2366 @0x16
0x2350…2374 at0017 = ╱ee╱ ) ╱ // 0x2367 @0x17
0x2350…2374 at0018 = ╱ee╱ ) ╱ // 0x2368 @0x18
0x2350…2374 at0019 = ╱da╱ DIV ╱ // 0x2369 @0x19
0x2350…2374 at001a = ╱32╱2╱ // 0x236a @0x1a
0x2350…2374 at001b = ╱f20200╱ // 0x236b @0x1b
0x2350…2374 at001e = ╱ec╱ , ╱ // 0x236e @0x1e
0x2350…2374 at001f = ╱4c╱L╱ // 0x236f @0x1f
0x2350…2374 at0020 = ╱49╱I╱ // 0x2370 @0x20
0x2350…2374 at0021 = ╱4e╱N╱ // 0x2371 @0x21
0x2350…2374 at0022 = ╱45╱E╱ // 0x2372 @0x22
0x2350…2374 at0023 = EOL // 0x2373 @0x23
0x2350…2374 }
0x2374…23b4 b9a2 03500 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
0x2374…23b4 LineComal80 {
0x2374…23b4 ptr = 0xb9a2 // 0x2374 @0x0
0x2374…23b4 lno = 0x0dac // 0x2376 @0x2
0x2374…23b4 at0004 = ╱92╱ PRINT ╱ // 0x2378 @0x4
0x2374…23b4 at0005 = ╱22╱"╱ // 0x2379 @0x5
0x2374…23b4 at0006 = ╱3c╱<╱ // 0x237a @0x6
0x2374…23b4 at0007 = ╱53╱S╱ // 0x237b @0x7
0x2374…23b4 at0008 = ╱5a╱Z╱ // 0x237c @0x8
0x2374…23b4 at0009 = ╱3e╱>╱ // 0x237d @0x9
0x2374…23b4 at000a = ╱20╱…╱ // 0x237e @0xa
0x2374…23b4 at000b = ╱20╱…╱ // 0x237f @0xb
0x2374…23b4 at000c = ╱20╱…╱ // 0x2380 @0xc
0x2374…23b4 at000d = ╱20╱…╱ // 0x2381 @0xd
0x2374…23b4 at000e = ╱20╱…╱ // 0x2382 @0xe
0x2374…23b4 at000f = ╱4d╱M╱ // 0x2383 @0xf
0x2374…23b4 at0010 = ╱6f╱o╱ // 0x2384 @0x10
0x2374…23b4 at0011 = ╱6e╱n╱ // 0x2385 @0x11
0x2374…23b4 at0012 = ╱74╱t╱ // 0x2386 @0x12
0x2374…23b4 at0013 = ╱65╱e╱ // 0x2387 @0x13
0x2374…23b4 at0014 = ╱72╱r╱ // 0x2388 @0x14
0x2374…23b4 at0015 = ╱20╱…╱ // 0x2389 @0x15
0x2374…23b4 at0016 = ╱22╱"╱ // 0x238a @0x16
0x2374…23b4 at0017 = ╱ea╱ ; ╱ // 0x238b @0x17
0x2374…23b4 at0018 = ╱50╱P╱ // 0x238c @0x18
0x2374…23b4 at0019 = ╱41╱A╱ // 0x238d @0x19
0x2374…23b4 at001a = ╱47╱G╱ // 0x238e @0x1a
0x2374…23b4 at001b = ╱45╱E╱ // 0x238f @0x1b
0x2374…23b4 at001c = ╱54╱T╱ // 0x2390 @0x1c
0x2374…23b4 at001d = ╱59╱Y╱ // 0x2391 @0x1d
0x2374…23b4 at001e = ╱50╱P╱ // 0x2392 @0x1e
0x2374…23b4 at001f = ╱45╱E╱ // 0x2393 @0x1f
0x2374…23b4 at0020 = ╱ef╱ $ ╱ // 0x2394 @0x20
0x2374…23b4 at0021 = ╱ea╱ ; ╱ // 0x2395 @0x21
0x2374…23b4 at0022 = ╱22╱"╱ // 0x2396 @0x22
0x2374…23b4 at0023 = ╱20╱…╱ // 0x2397 @0x23
0x2374…23b4 at0024 = ╱69╱i╱ // 0x2398 @0x24
0x2374…23b4 at0025 = ╱20╱…╱ // 0x2399 @0x25
0x2374…23b4 at0026 = ╱70╱p╱ // 0x239a @0x26
0x2374…23b4 at0027 = ╱72╱r╱ // 0x239b @0x27
0x2374…23b4 at0028 = ╱69╱i╱ // 0x239c @0x28
0x2374…23b4 at0029 = ╱6e╱n╱ // 0x239d @0x29
0x2374…23b4 at002a = ╱74╱t╱ // 0x239e @0x2a
0x2374…23b4 at002b = ╱65╱e╱ // 0x239f @0x2b
0x2374…23b4 at002c = ╱72╱r╱ // 0x23a0 @0x2c
0x2374…23b4 at002d = ╱65╱e╱ // 0x23a1 @0x2d
0x2374…23b4 at002e = ╱6e╱n╱ // 0x23a2 @0x2e
0x2374…23b4 at002f = ╱20╱…╱ // 0x23a3 @0x2f
0x2374…23b4 at0030 = ╱2d╱-╱ // 0x23a4 @0x30
0x2374…23b4 at0031 = ╱20╱…╱ // 0x23a5 @0x31
0x2374…23b4 at0032 = ╱74╱t╱ // 0x23a6 @0x32
0x2374…23b4 at0033 = ╱72╱r╱ // 0x23a7 @0x33
0x2374…23b4 at0034 = ╱79╱y╱ // 0x23a8 @0x34
0x2374…23b4 at0035 = ╱6b╱k╱ // 0x23a9 @0x35
0x2374…23b4 at0036 = ╱20╱…╱ // 0x23aa @0x36
0x2374…23b4 at0037 = ╱52╱R╱ // 0x23ab @0x37
0x2374…23b4 at0038 = ╱45╱E╱ // 0x23ac @0x38
0x2374…23b4 at0039 = ╱54╱T╱ // 0x23ad @0x39
0x2374…23b4 at003a = ╱55╱U╱ // 0x23ae @0x3a
0x2374…23b4 at003b = ╱52╱R╱ // 0x23af @0x3b
0x2374…23b4 at003c = ╱4e╱N╱ // 0x23b0 @0x3c
0x2374…23b4 at003d = ╱20╱…╱ // 0x23b1 @0x3d
0x2374…23b4 at003e = ╱22╱"╱ // 0x23b2 @0x3e
0x2374…23b4 at003f = EOL // 0x23b3 @0x3f
0x2374…23b4 }
0x23b4…23c2 b9b0 03510 INPUT "" : SVAR $
0x23b4…23c2 LineComal80 {
0x23b4…23c2 ptr = 0xb9b0 // 0x23b4 @0x0
0x23b4…23c2 lno = 0x0db6 // 0x23b6 @0x2
0x23b4…23c2 at0004 = ╱91╱ INPUT ╱ // 0x23b8 @0x4
0x23b4…23c2 at0005 = ╱22╱"╱ // 0x23b9 @0x5
0x23b4…23c2 at0006 = ╱22╱"╱ // 0x23ba @0x6
0x23b4…23c2 at0007 = ╱f1╱ : ╱ // 0x23bb @0x7
0x23b4…23c2 at0008 = ╱53╱S╱ // 0x23bc @0x8
0x23b4…23c2 at0009 = ╱56╱V╱ // 0x23bd @0x9
0x23b4…23c2 at000a = ╱41╱A╱ // 0x23be @0xa
0x23b4…23c2 at000b = ╱52╱R╱ // 0x23bf @0xb
0x23b4…23c2 at000c = ╱ef╱ $ ╱ // 0x23c0 @0xc
0x23b4…23c2 at000d = EOL // 0x23c1 @0xd
0x23b4…23c2 }
0x23c2…23d2 b9c0 03520 SELECT OUTPUT "P" + PRTNR $
0x23c2…23d2 LineComal80 {
0x23c2…23d2 ptr = 0xb9c0 // 0x23c2 @0x0
0x23c2…23d2 lno = 0x0dc0 // 0x23c4 @0x2
0x23c2…23d2 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x23c6 @0x4
0x23c2…23d2 at0005 = ╱22╱"╱ // 0x23c7 @0x5
0x23c2…23d2 at0006 = ╱50╱P╱ // 0x23c8 @0x6
0x23c2…23d2 at0007 = ╱22╱"╱ // 0x23c9 @0x7
0x23c2…23d2 at0008 = ╱eb╱ + ╱ // 0x23ca @0x8
0x23c2…23d2 at0009 = ╱50╱P╱ // 0x23cb @0x9
0x23c2…23d2 at000a = ╱52╱R╱ // 0x23cc @0xa
0x23c2…23d2 at000b = ╱54╱T╱ // 0x23cd @0xb
0x23c2…23d2 at000c = ╱4e╱N╱ // 0x23ce @0xc
0x23c2…23d2 at000d = ╱52╱R╱ // 0x23cf @0xd
0x23c2…23d2 at000e = ╱ef╱ $ ╱ // 0x23d0 @0xe
0x23c2…23d2 at000f = EOL // 0x23d1 @0xf
0x23c2…23d2 }
0x23d2…23e0 b9ce 03530 IF ( "P" ) THEN
0x23d2…23e0 LineComal80 {
0x23d2…23e0 ptr = 0xb9ce // 0x23d2 @0x0
0x23d2…23e0 lno = 0x0dca // 0x23d4 @0x2
0x23d2…23e0 at0004 = ╱9b3ecd╱ IF ╱ // 0x23d6 @0x4
0x23d2…23e0 at0007 = ╱ed╱ ( ╱ // 0x23d9 @0x7
0x23d2…23e0 at0008 = ╱22╱"╱ // 0x23da @0x8
0x23d2…23e0 at0009 = ╱50╱P╱ // 0x23db @0x9
0x23d2…23e0 at000a = ╱22╱"╱ // 0x23dc @0xa
0x23d2…23e0 at000b = ╱ee╱ ) ╱ // 0x23dd @0xb
0x23d2…23e0 at000c = ╱b5╱ THEN ╱ // 0x23de @0xc
0x23d2…23e0 at000d = EOL // 0x23df @0xd
0x23d2…23e0 }
0x23e0…23f0 b9de 03540 CURSOR 12 , LINE
0x23e0…23f0 LineComal80 {
0x23e0…23f0 ptr = 0xb9de // 0x23e0 @0x0
0x23e0…23f0 lno = 0x0dd4 // 0x23e2 @0x2
0x23e0…23f0 at0004 = ╱a1╱ CURSOR ╱ // 0x23e4 @0x4
0x23e0…23f0 at0005 = ╱31╱1╱ // 0x23e5 @0x5
0x23e0…23f0 at0006 = ╱32╱2╱ // 0x23e6 @0x6
0x23e0…23f0 at0007 = ╱f20c00╱ // 0x23e7 @0x7
0x23e0…23f0 at000a = ╱ec╱ , ╱ // 0x23ea @0xa
0x23e0…23f0 at000b = ╱4c╱L╱ // 0x23eb @0xb
0x23e0…23f0 at000c = ╱49╱I╱ // 0x23ec @0xc
0x23e0…23f0 at000d = ╱4e╱N╱ // 0x23ed @0xd
0x23e0…23f0 at000e = ╱45╱E╱ // 0x23ee @0xe
0x23e0…23f0 at000f = EOL // 0x23ef @0xf
0x23e0…23f0 }
0x23f0…2427 ba15 03550 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
0x23f0…2427 LineComal80 {
0x23f0…2427 ptr = 0xba15 // 0x23f0 @0x0
0x23f0…2427 lno = 0x0dde // 0x23f2 @0x2
0x23f0…2427 at0004 = ╱92╱ PRINT ╱ // 0x23f4 @0x4
0x23f0…2427 at0005 = ╱22╱"╱ // 0x23f5 @0x5
0x23f0…2427 at0006 = ╱3c╱<╱ // 0x23f6 @0x6
0x23f0…2427 at0007 = ╱53╱S╱ // 0x23f7 @0x7
0x23f0…2427 at0008 = ╱5a╱Z╱ // 0x23f8 @0x8
0x23f0…2427 at0009 = ╱3e╱>╱ // 0x23f9 @0x9
0x23f0…2427 at000a = ╱50╱P╱ // 0x23fa @0xa
0x23f0…2427 at000b = ╱72╱r╱ // 0x23fb @0xb
0x23f0…2427 at000c = ╱69╱i╱ // 0x23fc @0xc
0x23f0…2427 at000d = ╱6e╱n╱ // 0x23fd @0xd
0x23f0…2427 at000e = ╱74╱t╱ // 0x23fe @0xe
0x23f0…2427 at000f = ╱65╱e╱ // 0x23ff @0xf
0x23f0…2427 at0010 = ╱72╱r╱ // 0x2400 @0x10
0x23f0…2427 at0011 = ╱65╱e╱ // 0x2401 @0x11
0x23f0…2427 at0012 = ╱6e╱n╱ // 0x2402 @0x12
0x23f0…2427 at0013 = ╱20╱…╱ // 0x2403 @0x13
0x23f0…2427 at0014 = ╱65╱e╱ // 0x2404 @0x14
0x23f0…2427 at0015 = ╱72╱r╱ // 0x2405 @0x15
0x23f0…2427 at0016 = ╱20╱…╱ // 0x2406 @0x16
0x23f0…2427 at0017 = ╱72╱r╱ // 0x2407 @0x17
0x23f0…2427 at0018 = ╱65╱e╱ // 0x2408 @0x18
0x23f0…2427 at0019 = ╱73╱s╱ // 0x2409 @0x19
0x23f0…2427 at001a = ╱65╱e╱ // 0x240a @0x1a
0x23f0…2427 at001b = ╱72╱r╱ // 0x240b @0x1b
0x23f0…2427 at001c = ╱76╱v╱ // 0x240c @0x1c
0x23f0…2427 at001d = ╱65╱e╱ // 0x240d @0x1d
0x23f0…2427 at001e = ╱72╱r╱ // 0x240e @0x1e
0x23f0…2427 at001f = ╱65╱e╱ // 0x240f @0x1f
0x23f0…2427 at0020 = ╱74╱t╱ // 0x2410 @0x20
0x23f0…2427 at0021 = ╱20╱…╱ // 0x2411 @0x21
0x23f0…2427 at0022 = ╱61╱a╱ // 0x2412 @0x22
0x23f0…2427 at0023 = ╱66╱f╱ // 0x2413 @0x23
0x23f0…2427 at0024 = ╱20╱…╱ // 0x2414 @0x24
0x23f0…2427 at0025 = ╱65╱e╱ // 0x2415 @0x25
0x23f0…2427 at0026 = ╱6e╱n╱ // 0x2416 @0x26
0x23f0…2427 at0027 = ╱20╱…╱ // 0x2417 @0x27
0x23f0…2427 at0028 = ╱61╱a╱ // 0x2418 @0x28
0x23f0…2427 at0029 = ╱6e╱n╱ // 0x2419 @0x29
0x23f0…2427 at002a = ╱64╱d╱ // 0x241a @0x2a
0x23f0…2427 at002b = ╱65╱e╱ // 0x241b @0x2b
0x23f0…2427 at002c = ╱6e╱n╱ // 0x241c @0x2c
0x23f0…2427 at002d = ╱20╱…╱ // 0x241d @0x2d
0x23f0…2427 at002e = ╱62╱b╱ // 0x241e @0x2e
0x23f0…2427 at002f = ╱72╱r╱ // 0x241f @0x2f
0x23f0…2427 at0030 = ╱75╱u╱ // 0x2420 @0x30
0x23f0…2427 at0031 = ╱67╱g╱ // 0x2421 @0x31
0x23f0…2427 at0032 = ╱65╱e╱ // 0x2422 @0x32
0x23f0…2427 at0033 = ╱72╱r╱ // 0x2423 @0x33
0x23f0…2427 at0034 = ╱2c╱,╱ // 0x2424 @0x34
0x23f0…2427 at0035 = ╱22╱"╱ // 0x2425 @0x35
0x23f0…2427 at0036 = EOL // 0x2426 @0x36
0x23f0…2427 }
0x2427…243c ba2a 03560 CURSOR 12 , LINE + 1
0x2427…243c LineComal80 {
0x2427…243c ptr = 0xba2a // 0x2427 @0x0
0x2427…243c lno = 0x0de8 // 0x2429 @0x2
0x2427…243c at0004 = ╱a1╱ CURSOR ╱ // 0x242b @0x4
0x2427…243c at0005 = ╱31╱1╱ // 0x242c @0x5
0x2427…243c at0006 = ╱32╱2╱ // 0x242d @0x6
0x2427…243c at0007 = ╱f20c00╱ // 0x242e @0x7
0x2427…243c at000a = ╱ec╱ , ╱ // 0x2431 @0xa
0x2427…243c at000b = ╱4c╱L╱ // 0x2432 @0xb
0x2427…243c at000c = ╱49╱I╱ // 0x2433 @0xc
0x2427…243c at000d = ╱4e╱N╱ // 0x2434 @0xd
0x2427…243c at000e = ╱45╱E╱ // 0x2435 @0xe
0x2427…243c at000f = ╱e5╱ + ╱ // 0x2436 @0xf
0x2427…243c at0010 = ╱31╱1╱ // 0x2437 @0x10
0x2427…243c at0011 = ╱f20100╱ // 0x2438 @0x11
0x2427…243c at0014 = EOL // 0x243b @0x14
0x2427…243c }
0x243c…247d ba6b 03570 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
0x243c…247d LineComal80 {
0x243c…247d ptr = 0xba6b // 0x243c @0x0
0x243c…247d lno = 0x0df2 // 0x243e @0x2
0x243c…247d at0004 = ╱91╱ INPUT ╱ // 0x2440 @0x4
0x243c…247d at0005 = ╱22╱"╱ // 0x2441 @0x5
0x243c…247d at0006 = ╱3c╱<╱ // 0x2442 @0x6
0x243c…247d at0007 = ╱53╱S╱ // 0x2443 @0x7
0x243c…247d at0008 = ╱5a╱Z╱ // 0x2444 @0x8
0x243c…247d at0009 = ╱3e╱>╱ // 0x2445 @0x9
0x243c…247d at000a = ╱53╱S╱ // 0x2446 @0xa
0x243c…247d at000b = ╱6b╱k╱ // 0x2447 @0xb
0x243c…247d at000c = ╱61╱a╱ // 0x2448 @0xc
0x243c…247d at000d = ╱6c╱l╱ // 0x2449 @0xd
0x243c…247d at000e = ╱20╱…╱ // 0x244a @0xe
0x243c…247d at000f = ╱64╱d╱ // 0x244b @0xf
0x243c…247d at0010 = ╱65╱e╱ // 0x244c @0x10
0x243c…247d at0011 = ╱72╱r╱ // 0x244d @0x11
0x243c…247d at0012 = ╱20╱…╱ // 0x244e @0x12
0x243c…247d at0013 = ╱76╱v╱ // 0x244f @0x13
0x243c…247d at0014 = ╱65╱e╱ // 0x2450 @0x14
0x243c…247d at0015 = ╱6e╱n╱ // 0x2451 @0x15
0x243c…247d at0016 = ╱74╱t╱ // 0x2452 @0x16
0x243c…247d at0017 = ╱65╱e╱ // 0x2453 @0x17
0x243c…247d at0018 = ╱73╱s╱ // 0x2454 @0x18
0x243c…247d at0019 = ╱20╱…╱ // 0x2455 @0x19
0x243c…247d at001a = ╱70╱p╱ // 0x2456 @0x1a
0x243c…247d at001b = ╱7d╱}╱ // 0x2457 @0x1b
0x243c…247d at001c = ╱20╱…╱ // 0x2458 @0x1c
0x243c…247d at001d = ╱61╱a╱ // 0x2459 @0x1d
0x243c…247d at001e = ╱74╱t╱ // 0x245a @0x1e
0x243c…247d at001f = ╱20╱…╱ // 0x245b @0x1f
0x243c…247d at0020 = ╱64╱d╱ // 0x245c @0x20
0x243c…247d at0021 = ╱65╱e╱ // 0x245d @0x21
0x243c…247d at0022 = ╱6e╱n╱ // 0x245e @0x22
0x243c…247d at0023 = ╱20╱…╱ // 0x245f @0x23
0x243c…247d at0024 = ╱62╱b╱ // 0x2460 @0x24
0x243c…247d at0025 = ╱6c╱l╱ // 0x2461 @0x25
0x243c…247d at0026 = ╱69╱i╱ // 0x2462 @0x26
0x243c…247d at0027 = ╱76╱v╱ // 0x2463 @0x27
0x243c…247d at0028 = ╱65╱e╱ // 0x2464 @0x28
0x243c…247d at0029 = ╱72╱r╱ // 0x2465 @0x29
0x243c…247d at002a = ╱20╱…╱ // 0x2466 @0x2a
0x243c…247d at002b = ╱6c╱l╱ // 0x2467 @0x2b
0x243c…247d at002c = ╱65╱e╱ // 0x2468 @0x2c
0x243c…247d at002d = ╱64╱d╱ // 0x2469 @0x2d
0x243c…247d at002e = ╱69╱i╱ // 0x246a @0x2e
0x243c…247d at002f = ╱67╱g╱ // 0x246b @0x2f
0x243c…247d at0030 = ╱20╱…╱ // 0x246c @0x30
0x243c…247d at0031 = ╱3f╱?╱ // 0x246d @0x31
0x243c…247d at0032 = ╱20╱…╱ // 0x246e @0x32
0x243c…247d at0033 = ╱28╱(╱ // 0x246f @0x33
0x243c…247d at0034 = ╱6a╱j╱ // 0x2470 @0x34
0x243c…247d at0035 = ╱2f╱/╱ // 0x2471 @0x35
0x243c…247d at0036 = ╱6e╱n╱ // 0x2472 @0x36
0x243c…247d at0037 = ╱29╱)╱ // 0x2473 @0x37
0x243c…247d at0038 = ╱20╱…╱ // 0x2474 @0x38
0x243c…247d at0039 = ╱22╱"╱ // 0x2475 @0x39
0x243c…247d at003a = ╱f1╱ : ╱ // 0x2476 @0x3a
0x243c…247d at003b = ╱53╱S╱ // 0x2477 @0x3b
0x243c…247d at003c = ╱56╱V╱ // 0x2478 @0x3c
0x243c…247d at003d = ╱41╱A╱ // 0x2479 @0x3d
0x243c…247d at003e = ╱52╱R╱ // 0x247a @0x3e
0x243c…247d at003f = ╱ef╱ $ ╱ // 0x247b @0x3f
0x243c…247d at0040 = EOL // 0x247c @0x40
0x243c…247d }
0x247d…2498 ba86 03580 IF VAR $ = "J" OR SVAR $ = "j" THEN
0x247d…2498 LineComal80 {
0x247d…2498 ptr = 0xba86 // 0x247d @0x0
0x247d…2498 lno = 0x0dfc // 0x247f @0x2
0x247d…2498 at0004 = ╱9b3f53╱ IF ╱ // 0x2481 @0x4
0x247d…2498 at0007 = ╱56╱V╱ // 0x2484 @0x7
0x247d…2498 at0008 = ╱41╱A╱ // 0x2485 @0x8
0x247d…2498 at0009 = ╱52╱R╱ // 0x2486 @0x9
0x247d…2498 at000a = ╱ef╱ $ ╱ // 0x2487 @0xa
0x247d…2498 at000b = ╱df╱ = ╱ // 0x2488 @0xb
0x247d…2498 at000c = ╱22╱"╱ // 0x2489 @0xc
0x247d…2498 at000d = ╱4a╱J╱ // 0x248a @0xd
0x247d…2498 at000e = ╱22╱"╱ // 0x248b @0xe
0x247d…2498 at000f = ╱d8╱ OR ╱ // 0x248c @0xf
0x247d…2498 at0010 = ╱53╱S╱ // 0x248d @0x10
0x247d…2498 at0011 = ╱56╱V╱ // 0x248e @0x11
0x247d…2498 at0012 = ╱41╱A╱ // 0x248f @0x12
0x247d…2498 at0013 = ╱52╱R╱ // 0x2490 @0x13
0x247d…2498 at0014 = ╱ef╱ $ ╱ // 0x2491 @0x14
0x247d…2498 at0015 = ╱df╱ = ╱ // 0x2492 @0x15
0x247d…2498 at0016 = ╱22╱"╱ // 0x2493 @0x16
0x247d…2498 at0017 = ╱6a╱j╱ // 0x2494 @0x17
0x247d…2498 at0018 = ╱22╱"╱ // 0x2495 @0x18
0x247d…2498 at0019 = ╱b5╱ THEN ╱ // 0x2496 @0x19
0x247d…2498 at001a = EOL // 0x2497 @0x1a
0x247d…2498 }
0x2498…24a8 ba96 03590 CURSOR 12 , LINE
0x2498…24a8 LineComal80 {
0x2498…24a8 ptr = 0xba96 // 0x2498 @0x0
0x2498…24a8 lno = 0x0e06 // 0x249a @0x2
0x2498…24a8 at0004 = ╱a1╱ CURSOR ╱ // 0x249c @0x4
0x2498…24a8 at0005 = ╱31╱1╱ // 0x249d @0x5
0x2498…24a8 at0006 = ╱32╱2╱ // 0x249e @0x6
0x2498…24a8 at0007 = ╱f20c00╱ // 0x249f @0x7
0x2498…24a8 at000a = ╱ec╱ , ╱ // 0x24a2 @0xa
0x2498…24a8 at000b = ╱4c╱L╱ // 0x24a3 @0xb
0x2498…24a8 at000c = ╱49╱I╱ // 0x24a4 @0xc
0x2498…24a8 at000d = ╱4e╱N╱ // 0x24a5 @0xd
0x2498…24a8 at000e = ╱45╱E╱ // 0x24a6 @0xe
0x2498…24a8 at000f = EOL // 0x24a7 @0xf
0x2498…24a8 }
0x24a8…24e3 bad1 03600 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
0x24a8…24e3 LineComal80 {
0x24a8…24e3 ptr = 0xbad1 // 0x24a8 @0x0
0x24a8…24e3 lno = 0x0e10 // 0x24aa @0x2
0x24a8…24e3 at0004 = ╱92╱ PRINT ╱ // 0x24ac @0x4
0x24a8…24e3 at0005 = ╱22╱"╱ // 0x24ad @0x5
0x24a8…24e3 at0006 = ╱3c╱<╱ // 0x24ae @0x6
0x24a8…24e3 at0007 = ╱5a╱Z╱ // 0x24af @0x7
0x24a8…24e3 at0008 = ╱3e╱>╱ // 0x24b0 @0x8
0x24a8…24e3 at0009 = ╱20╱…╱ // 0x24b1 @0x9
0x24a8…24e3 at000a = ╱20╱…╱ // 0x24b2 @0xa
0x24a8…24e3 at000b = ╱20╱…╱ // 0x24b3 @0xb
0x24a8…24e3 at000c = ╱20╱…╱ // 0x24b4 @0xc
0x24a8…24e3 at000d = ╱20╱…╱ // 0x24b5 @0xd
0x24a8…24e3 at000e = ╱44╱D╱ // 0x24b6 @0xe
0x24a8…24e3 at000f = ╱65╱e╱ // 0x24b7 @0xf
0x24a8…24e3 at0010 = ╱72╱r╱ // 0x24b8 @0x10
0x24a8…24e3 at0011 = ╱20╱…╱ // 0x24b9 @0x11
0x24a8…24e3 at0012 = ╱76╱v╱ // 0x24ba @0x12
0x24a8…24e3 at0013 = ╱65╱e╱ // 0x24bb @0x13
0x24a8…24e3 at0014 = ╱6e╱n╱ // 0x24bc @0x14
0x24a8…24e3 at0015 = ╱74╱t╱ // 0x24bd @0x15
0x24a8…24e3 at0016 = ╱65╱e╱ // 0x24be @0x16
0x24a8…24e3 at0017 = ╱73╱s╱ // 0x24bf @0x17
0x24a8…24e3 at0018 = ╱20╱…╱ // 0x24c0 @0x18
0x24a8…24e3 at0019 = ╱70╱p╱ // 0x24c1 @0x19
0x24a8…24e3 at001a = ╱7d╱}╱ // 0x24c2 @0x1a
0x24a8…24e3 at001b = ╱20╱…╱ // 0x24c3 @0x1b
0x24a8…24e3 at001c = ╱61╱a╱ // 0x24c4 @0x1c
0x24a8…24e3 at001d = ╱74╱t╱ // 0x24c5 @0x1d
0x24a8…24e3 at001e = ╱20╱…╱ // 0x24c6 @0x1e
0x24a8…24e3 at001f = ╱70╱p╱ // 0x24c7 @0x1f
0x24a8…24e3 at0020 = ╱72╱r╱ // 0x24c8 @0x20
0x24a8…24e3 at0021 = ╱69╱i╱ // 0x24c9 @0x21
0x24a8…24e3 at0022 = ╱6e╱n╱ // 0x24ca @0x22
0x24a8…24e3 at0023 = ╱74╱t╱ // 0x24cb @0x23
0x24a8…24e3 at0024 = ╱65╱e╱ // 0x24cc @0x24
0x24a8…24e3 at0025 = ╱72╱r╱ // 0x24cd @0x25
0x24a8…24e3 at0026 = ╱65╱e╱ // 0x24ce @0x26
0x24a8…24e3 at0027 = ╱6e╱n╱ // 0x24cf @0x27
0x24a8…24e3 at0028 = ╱20╱…╱ // 0x24d0 @0x28
0x24a8…24e3 at0029 = ╱62╱b╱ // 0x24d1 @0x29
0x24a8…24e3 at002a = ╱6c╱l╱ // 0x24d2 @0x2a
0x24a8…24e3 at002b = ╱69╱i╱ // 0x24d3 @0x2b
0x24a8…24e3 at002c = ╱76╱v╱ // 0x24d4 @0x2c
0x24a8…24e3 at002d = ╱65╱e╱ // 0x24d5 @0x2d
0x24a8…24e3 at002e = ╱72╱r╱ // 0x24d6 @0x2e
0x24a8…24e3 at002f = ╱20╱…╱ // 0x24d7 @0x2f
0x24a8…24e3 at0030 = ╱6c╱l╱ // 0x24d8 @0x30
0x24a8…24e3 at0031 = ╱65╱e╱ // 0x24d9 @0x31
0x24a8…24e3 at0032 = ╱64╱d╱ // 0x24da @0x32
0x24a8…24e3 at0033 = ╱69╱i╱ // 0x24db @0x33
0x24a8…24e3 at0034 = ╱67╱g╱ // 0x24dc @0x34
0x24a8…24e3 at0035 = ╱2e╱.╱ // 0x24dd @0x35
0x24a8…24e3 at0036 = ╱2e╱.╱ // 0x24de @0x36
0x24a8…24e3 at0037 = ╱2e╱.╱ // 0x24df @0x37
0x24a8…24e3 at0038 = ╱2e╱.╱ // 0x24e0 @0x38
0x24a8…24e3 at0039 = ╱22╱"╱ // 0x24e1 @0x39
0x24a8…24e3 at003a = EOL // 0x24e2 @0x3a
0x24a8…24e3 }
0x24e3…24ef badd 03610 PRINT "<SZ>"
0x24e3…24ef LineComal80 {
0x24e3…24ef ptr = 0xbadd // 0x24e3 @0x0
0x24e3…24ef lno = 0x0e1a // 0x24e5 @0x2
0x24e3…24ef at0004 = ╱92╱ PRINT ╱ // 0x24e7 @0x4
0x24e3…24ef at0005 = ╱22╱"╱ // 0x24e8 @0x5
0x24e3…24ef at0006 = ╱3c╱<╱ // 0x24e9 @0x6
0x24e3…24ef at0007 = ╱53╱S╱ // 0x24ea @0x7
0x24e3…24ef at0008 = ╱5a╱Z╱ // 0x24eb @0x8
0x24e3…24ef at0009 = ╱3e╱>╱ // 0x24ec @0x9
0x24e3…24ef at000a = ╱22╱"╱ // 0x24ed @0xa
0x24e3…24ef at000b = EOL // 0x24ee @0xb
0x24e3…24ef }
0x24ef…24fd baeb 03620 WHILE ╱cd╱ ( "P" ) DO
0x24ef…24fd LineComal80 {
0x24ef…24fd ptr = 0xbaeb // 0x24ef @0x0
0x24ef…24fd lno = 0x0e24 // 0x24f1 @0x2
0x24ef…24fd at0004 = ╱9340╱ WHILE ╱ // 0x24f3 @0x4
0x24ef…24fd at0006 = ╱cd╱ // 0x24f5 @0x6
0x24ef…24fd at0007 = ╱ed╱ ( ╱ // 0x24f6 @0x7
0x24ef…24fd at0008 = ╱22╱"╱ // 0x24f7 @0x8
0x24ef…24fd at0009 = ╱50╱P╱ // 0x24f8 @0x9
0x24ef…24fd at000a = ╱22╱"╱ // 0x24f9 @0xa
0x24ef…24fd at000b = ╱ee╱ ) ╱ // 0x24fa @0xb
0x24ef…24fd at000c = ╱bb╱ DO ╱ // 0x24fb @0xc
0x24ef…24fd at000d = EOL // 0x24fc @0xd
0x24ef…24fd }
0x24fd…250e bafc 03630 LET SEK := ╱ca╱ ( 5 )
0x24fd…250e LineComal80 {
0x24fd…250e ptr = 0xbafc // 0x24fd @0x0
0x24fd…250e lno = 0x0e2e // 0x24ff @0x2
0x24fd…250e at0004 = ╱86╱ LET ╱ // 0x2501 @0x4
0x24fd…250e at0005 = ╱53╱S╱ // 0x2502 @0x5
0x24fd…250e at0006 = ╱45╱E╱ // 0x2503 @0x6
0x24fd…250e at0007 = ╱4b╱K╱ // 0x2504 @0x7
0x24fd…250e at0008 = ╱f0╱ := ╱ // 0x2505 @0x8
0x24fd…250e at0009 = ╱ca╱ // 0x2506 @0x9
0x24fd…250e at000a = ╱ed╱ ( ╱ // 0x2507 @0xa
0x24fd…250e at000b = ╱35╱5╱ // 0x2508 @0xb
0x24fd…250e at000c = ╱f20500╱ // 0x2509 @0xc
0x24fd…250e at000f = ╱ee╱ ) ╱ // 0x250c @0xf
0x24fd…250e at0010 = EOL // 0x250d @0x10
0x24fd…250e }
0x250e…251e bb0c 03640 SELECT OUTPUT "P" + PRTNR $
0x250e…251e LineComal80 {
0x250e…251e ptr = 0xbb0c // 0x250e @0x0
0x250e…251e lno = 0x0e38 // 0x2510 @0x2
0x250e…251e at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x2512 @0x4
0x250e…251e at0005 = ╱22╱"╱ // 0x2513 @0x5
0x250e…251e at0006 = ╱50╱P╱ // 0x2514 @0x6
0x250e…251e at0007 = ╱22╱"╱ // 0x2515 @0x7
0x250e…251e at0008 = ╱eb╱ + ╱ // 0x2516 @0x8
0x250e…251e at0009 = ╱50╱P╱ // 0x2517 @0x9
0x250e…251e at000a = ╱52╱R╱ // 0x2518 @0xa
0x250e…251e at000b = ╱54╱T╱ // 0x2519 @0xb
0x250e…251e at000c = ╱4e╱N╱ // 0x251a @0xc
0x250e…251e at000d = ╱52╱R╱ // 0x251b @0xd
0x250e…251e at000e = ╱ef╱ $ ╱ // 0x251c @0xe
0x250e…251e at000f = EOL // 0x251d @0xf
0x250e…251e }
0x251e…2524 bb12 03650 ENDWHILE
0x251e…2524 LineComal80 {
0x251e…2524 ptr = 0xbb12 // 0x251e @0x0
0x251e…2524 lno = 0x0e42 // 0x2520 @0x2
0x251e…2524 at0004 = ╱94╱ ENDWHILE ╱ // 0x2522 @0x4
0x251e…2524 at0005 = EOL // 0x2523 @0x5
0x251e…2524 }
0x2524…252b bb19 03660 ELSE
0x2524…252b LineComal80 {
0x2524…252b ptr = 0xbb19 // 0x2524 @0x0
0x2524…252b lno = 0x0e4c // 0x2526 @0x2
0x2524…252b at0004 = ╱9a41╱ ELSE ╱ // 0x2528 @0x4
0x2524…252b at0006 = EOL // 0x252a @0x6
0x2524…252b }
0x252b…2539 bb27 03670 LET OK := FALSE
0x252b…2539 LineComal80 {
0x252b…2539 ptr = 0xbb27 // 0x252b @0x0
0x252b…2539 lno = 0x0e56 // 0x252d @0x2
0x252b…2539 at0004 = ╱86╱ LET ╱ // 0x252f @0x4
0x252b…2539 at0005 = ╱4f╱O╱ // 0x2530 @0x5
0x252b…2539 at0006 = ╱4b╱K╱ // 0x2531 @0x6
0x252b…2539 at0007 = ╱f0╱ := ╱ // 0x2532 @0x7
0x252b…2539 at0008 = ╱46╱F╱ // 0x2533 @0x8
0x252b…2539 at0009 = ╱41╱A╱ // 0x2534 @0x9
0x252b…2539 at000a = ╱4c╱L╱ // 0x2535 @0xa
0x252b…2539 at000b = ╱53╱S╱ // 0x2536 @0xb
0x252b…2539 at000c = ╱45╱E╱ // 0x2537 @0xc
0x252b…2539 at000d = EOL // 0x2538 @0xd
0x252b…2539 }
0x2539…253f bb2d 03680 ENDIF
0x2539…253f LineComal80 {
0x2539…253f ptr = 0xbb2d // 0x2539 @0x0
0x2539…253f lno = 0x0e60 // 0x253b @0x2
0x2539…253f at0004 = ╱9c╱ ENDIF ╱ // 0x253d @0x4
0x2539…253f at0005 = EOL // 0x253e @0x5
0x2539…253f }
0x253f…2545 bb33 03690 ENDIF
0x253f…2545 LineComal80 {
0x253f…2545 ptr = 0xbb33 // 0x253f @0x0
0x253f…2545 lno = 0x0e6a // 0x2541 @0x2
0x253f…2545 at0004 = ╱9c╱ ENDIF ╱ // 0x2543 @0x4
0x253f…2545 at0005 = EOL // 0x2544 @0x5
0x253f…2545 }
0x2545…2554 bb42 03700 CURSOR 1 , LINE
0x2545…2554 LineComal80 {
0x2545…2554 ptr = 0xbb42 // 0x2545 @0x0
0x2545…2554 lno = 0x0e74 // 0x2547 @0x2
0x2545…2554 at0004 = ╱a1╱ CURSOR ╱ // 0x2549 @0x4
0x2545…2554 at0005 = ╱31╱1╱ // 0x254a @0x5
0x2545…2554 at0006 = ╱f20100╱ // 0x254b @0x6
0x2545…2554 at0009 = ╱ec╱ , ╱ // 0x254e @0x9
0x2545…2554 at000a = ╱4c╱L╱ // 0x254f @0xa
0x2545…2554 at000b = ╱49╱I╱ // 0x2550 @0xb
0x2545…2554 at000c = ╱4e╱N╱ // 0x2551 @0xc
0x2545…2554 at000d = ╱45╱E╱ // 0x2552 @0xd
0x2545…2554 at000e = EOL // 0x2553 @0xe
0x2545…2554 }
0x2554…255f bb4d 03710 PRINT "<Z>"
0x2554…255f LineComal80 {
0x2554…255f ptr = 0xbb4d // 0x2554 @0x0
0x2554…255f lno = 0x0e7e // 0x2556 @0x2
0x2554…255f at0004 = ╱92╱ PRINT ╱ // 0x2558 @0x4
0x2554…255f at0005 = ╱22╱"╱ // 0x2559 @0x5
0x2554…255f at0006 = ╱3c╱<╱ // 0x255a @0x6
0x2554…255f at0007 = ╱5a╱Z╱ // 0x255b @0x7
0x2554…255f at0008 = ╱3e╱>╱ // 0x255c @0x8
0x2554…255f at0009 = ╱22╱"╱ // 0x255d @0x9
0x2554…255f at000a = EOL // 0x255e @0xa
0x2554…255f }
0x255f…256b bb59 03720 PRINT "<SZ>"
0x255f…256b LineComal80 {
0x255f…256b ptr = 0xbb59 // 0x255f @0x0
0x255f…256b lno = 0x0e88 // 0x2561 @0x2
0x255f…256b at0004 = ╱92╱ PRINT ╱ // 0x2563 @0x4
0x255f…256b at0005 = ╱22╱"╱ // 0x2564 @0x5
0x255f…256b at0006 = ╱3c╱<╱ // 0x2565 @0x6
0x255f…256b at0007 = ╱53╱S╱ // 0x2566 @0x7
0x255f…256b at0008 = ╱5a╱Z╱ // 0x2567 @0x8
0x255f…256b at0009 = ╱3e╱>╱ // 0x2568 @0x9
0x255f…256b at000a = ╱22╱"╱ // 0x2569 @0xa
0x255f…256b at000b = EOL // 0x256a @0xb
0x255f…256b }
0x256b…2579 bb67 03730 ENDPROC PRINTRES
0x256b…2579 LineComal80 {
0x256b…2579 ptr = 0xbb67 // 0x256b @0x0
0x256b…2579 lno = 0x0e92 // 0x256d @0x2
0x256b…2579 at0004 = ╱9f╱ ENDPROC ╱ // 0x256f @0x4
0x256b…2579 at0005 = ╱50╱P╱ // 0x2570 @0x5
0x256b…2579 at0006 = ╱52╱R╱ // 0x2571 @0x6
0x256b…2579 at0007 = ╱49╱I╱ // 0x2572 @0x7
0x256b…2579 at0008 = ╱4e╱N╱ // 0x2573 @0x8
0x256b…2579 at0009 = ╱54╱T╱ // 0x2574 @0x9
0x256b…2579 at000a = ╱52╱R╱ // 0x2575 @0xa
0x256b…2579 at000b = ╱45╱E╱ // 0x2576 @0xb
0x256b…2579 at000c = ╱53╱S╱ // 0x2577 @0xc
0x256b…2579 at000d = EOL // 0x2578 @0xd
0x256b…2579 }
0x2579…257f bb6d 03740 //
0x2579…257f LineComal80 {
0x2579…257f ptr = 0xbb6d // 0x2579 @0x0
0x2579…257f lno = 0x0e9c // 0x257b @0x2
0x2579…257f at0004 = ╱89╱ // ╱ // 0x257d @0x4
0x2579…257f at0005 = EOL // 0x257e @0x5
0x2579…257f }
0x257f…259e bb8c 03750 PROC PRINTREL // RELEASE…PRINTER
0x257f…259e LineComal80 {
0x257f…259e ptr = 0xbb8c // 0x257f @0x0
0x257f…259e lno = 0x0ea6 // 0x2581 @0x2
0x257f…259e at0004 = ╱9e42╱ PROC ╱ // 0x2583 @0x4
0x257f…259e at0006 = ╱50╱P╱ // 0x2585 @0x6
0x257f…259e at0007 = ╱52╱R╱ // 0x2586 @0x7
0x257f…259e at0008 = ╱49╱I╱ // 0x2587 @0x8
0x257f…259e at0009 = ╱4e╱N╱ // 0x2588 @0x9
0x257f…259e at000a = ╱54╱T╱ // 0x2589 @0xa
0x257f…259e at000b = ╱52╱R╱ // 0x258a @0xb
0x257f…259e at000c = ╱45╱E╱ // 0x258b @0xc
0x257f…259e at000d = ╱4c╱L╱ // 0x258c @0xd
0x257f…259e at000e = ╱89╱ // ╱ // 0x258d @0xe
0x257f…259e at000f = ╱52╱R╱ // 0x258e @0xf
0x257f…259e at0010 = ╱45╱E╱ // 0x258f @0x10
0x257f…259e at0011 = ╱4c╱L╱ // 0x2590 @0x11
0x257f…259e at0012 = ╱45╱E╱ // 0x2591 @0x12
0x257f…259e at0013 = ╱41╱A╱ // 0x2592 @0x13
0x257f…259e at0014 = ╱53╱S╱ // 0x2593 @0x14
0x257f…259e at0015 = ╱45╱E╱ // 0x2594 @0x15
0x257f…259e at0016 = ╱20╱…╱ // 0x2595 @0x16
0x257f…259e at0017 = ╱50╱P╱ // 0x2596 @0x17
0x257f…259e at0018 = ╱52╱R╱ // 0x2597 @0x18
0x257f…259e at0019 = ╱49╱I╱ // 0x2598 @0x19
0x257f…259e at001a = ╱4e╱N╱ // 0x2599 @0x1a
0x257f…259e at001b = ╱54╱T╱ // 0x259a @0x1b
0x257f…259e at001c = ╱45╱E╱ // 0x259b @0x1c
0x257f…259e at001d = ╱52╱R╱ // 0x259c @0x1d
0x257f…259e at001e = EOL // 0x259d @0x1e
0x257f…259e }
0x259e…25a7 bb95 03760 SELECT OUTPUT "T"
0x259e…25a7 LineComal80 {
0x259e…25a7 ptr = 0xbb95 // 0x259e @0x0
0x259e…25a7 lno = 0x0eb0 // 0x25a0 @0x2
0x259e…25a7 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x25a2 @0x4
0x259e…25a7 at0005 = ╱22╱"╱ // 0x25a3 @0x5
0x259e…25a7 at0006 = ╱54╱T╱ // 0x25a4 @0x6
0x259e…25a7 at0007 = ╱22╱"╱ // 0x25a5 @0x7
0x259e…25a7 at0008 = EOL // 0x25a6 @0x8
0x259e…25a7 }
0x25a7…25b5 0000 03770 ENDPROC PRINTREL
0x25a7…25b5 LineComal80 {
0x25a7…25b5 ptr = 0x0000 // 0x25a7 @0x0
0x25a7…25b5 lno = 0x0eba // 0x25a9 @0x2
0x25a7…25b5 at0004 = ╱9f╱ ENDPROC ╱ // 0x25ab @0x4
0x25a7…25b5 at0005 = ╱50╱P╱ // 0x25ac @0x5
0x25a7…25b5 at0006 = ╱52╱R╱ // 0x25ad @0x6
0x25a7…25b5 at0007 = ╱49╱I╱ // 0x25ae @0x7
0x25a7…25b5 at0008 = ╱4e╱N╱ // 0x25af @0x8
0x25a7…25b5 at0009 = ╱54╱T╱ // 0x25b0 @0x9
0x25a7…25b5 at000a = ╱52╱R╱ // 0x25b1 @0xa
0x25a7…25b5 at000b = ╱45╱E╱ // 0x25b2 @0xb
0x25a7…25b5 at000c = ╱4c╱L╱ // 0x25b3 @0xc
0x25a7…25b5 at000d = EOL // 0x25b4 @0xd
0x25a7…25b5 }
0x25b5…25ec bcf0 02270 LET BLGNR $ := "……" ; BTXT $ := "GAMMEL…SALDO" ; SUM := 0.0
0x25b5…25ec LineComal80 {
0x25b5…25ec ptr = 0xbcf0 // 0x25b5 @0x0
0x25b5…25ec lno = 0x08de // 0x25b7 @0x2
0x25b5…25ec at0004 = ╱86╱ LET ╱ // 0x25b9 @0x4
0x25b5…25ec at0005 = ╱42╱B╱ // 0x25ba @0x5
0x25b5…25ec at0006 = ╱4c╱L╱ // 0x25bb @0x6
0x25b5…25ec at0007 = ╱47╱G╱ // 0x25bc @0x7
0x25b5…25ec at0008 = ╱4e╱N╱ // 0x25bd @0x8
0x25b5…25ec at0009 = ╱52╱R╱ // 0x25be @0x9
0x25b5…25ec at000a = ╱ef╱ $ ╱ // 0x25bf @0xa
0x25b5…25ec at000b = ╱f0╱ := ╱ // 0x25c0 @0xb
0x25b5…25ec at000c = ╱22╱"╱ // 0x25c1 @0xc
0x25b5…25ec at000d = ╱20╱…╱ // 0x25c2 @0xd
0x25b5…25ec at000e = ╱20╱…╱ // 0x25c3 @0xe
0x25b5…25ec at000f = ╱22╱"╱ // 0x25c4 @0xf
0x25b5…25ec at0010 = ╱ea╱ ; ╱ // 0x25c5 @0x10
0x25b5…25ec at0011 = ╱42╱B╱ // 0x25c6 @0x11
0x25b5…25ec at0012 = ╱54╱T╱ // 0x25c7 @0x12
0x25b5…25ec at0013 = ╱58╱X╱ // 0x25c8 @0x13
0x25b5…25ec at0014 = ╱54╱T╱ // 0x25c9 @0x14
0x25b5…25ec at0015 = ╱ef╱ $ ╱ // 0x25ca @0x15
0x25b5…25ec at0016 = ╱f0╱ := ╱ // 0x25cb @0x16
0x25b5…25ec at0017 = ╱22╱"╱ // 0x25cc @0x17
0x25b5…25ec at0018 = ╱47╱G╱ // 0x25cd @0x18
0x25b5…25ec at0019 = ╱41╱A╱ // 0x25ce @0x19
0x25b5…25ec at001a = ╱4d╱M╱ // 0x25cf @0x1a
0x25b5…25ec at001b = ╱4d╱M╱ // 0x25d0 @0x1b
0x25b5…25ec at001c = ╱45╱E╱ // 0x25d1 @0x1c
0x25b5…25ec at001d = ╱4c╱L╱ // 0x25d2 @0x1d
0x25b5…25ec at001e = ╱20╱…╱ // 0x25d3 @0x1e
0x25b5…25ec at001f = ╱53╱S╱ // 0x25d4 @0x1f
0x25b5…25ec at0020 = ╱41╱A╱ // 0x25d5 @0x20
0x25b5…25ec at0021 = ╱4c╱L╱ // 0x25d6 @0x21
0x25b5…25ec at0022 = ╱44╱D╱ // 0x25d7 @0x22
0x25b5…25ec at0023 = ╱4f╱O╱ // 0x25d8 @0x23
0x25b5…25ec at0024 = ╱22╱"╱ // 0x25d9 @0x24
0x25b5…25ec at0025 = ╱ea╱ ; ╱ // 0x25da @0x25
0x25b5…25ec at0026 = ╱53╱S╱ // 0x25db @0x26
0x25b5…25ec at0027 = ╱55╱U╱ // 0x25dc @0x27
0x25b5…25ec at0028 = ╱4d╱M╱ // 0x25dd @0x28
0x25b5…25ec at0029 = ╱f0╱ := ╱ // 0x25de @0x29
0x25b5…25ec at002a = ╱30╱0╱ // 0x25df @0x2a
0x25b5…25ec at002b = ╱2e╱.╱ // 0x25e0 @0x2b
0x25b5…25ec at002c = ╱30╱0╱ // 0x25e1 @0x2c
0x25b5…25ec at002d = ╱f80000000000000000╱ // 0x25e2 @0x2d
0x25b5…25ec at0036 = EOL // 0x25eb @0x36
0x25b5…25ec }
0x25ec…2630 bc1e 02800 PRINT "<S>……DATO…………BILAG……TEKST" ; TAB ( 47 ) ; "DEBETBEL\B……KREDITBEL\B"
0x25ec…2630 LineComal80 {
0x25ec…2630 ptr = 0xbc1e // 0x25ec @0x0
0x25ec…2630 lno = 0x0af0 // 0x25ee @0x2
0x25ec…2630 at0004 = ╱92╱ PRINT ╱ // 0x25f0 @0x4
0x25ec…2630 at0005 = ╱22╱"╱ // 0x25f1 @0x5
0x25ec…2630 at0006 = ╱3c╱<╱ // 0x25f2 @0x6
0x25ec…2630 at0007 = ╱53╱S╱ // 0x25f3 @0x7
0x25ec…2630 at0008 = ╱3e╱>╱ // 0x25f4 @0x8
0x25ec…2630 at0009 = ╱20╱…╱ // 0x25f5 @0x9
0x25ec…2630 at000a = ╱20╱…╱ // 0x25f6 @0xa
0x25ec…2630 at000b = ╱44╱D╱ // 0x25f7 @0xb
0x25ec…2630 at000c = ╱41╱A╱ // 0x25f8 @0xc
0x25ec…2630 at000d = ╱54╱T╱ // 0x25f9 @0xd
0x25ec…2630 at000e = ╱4f╱O╱ // 0x25fa @0xe
0x25ec…2630 at000f = ╱20╱…╱ // 0x25fb @0xf
0x25ec…2630 at0010 = ╱20╱…╱ // 0x25fc @0x10
0x25ec…2630 at0011 = ╱20╱…╱ // 0x25fd @0x11
0x25ec…2630 at0012 = ╱20╱…╱ // 0x25fe @0x12
0x25ec…2630 at0013 = ╱42╱B╱ // 0x25ff @0x13
0x25ec…2630 at0014 = ╱49╱I╱ // 0x2600 @0x14
0x25ec…2630 at0015 = ╱4c╱L╱ // 0x2601 @0x15
0x25ec…2630 at0016 = ╱41╱A╱ // 0x2602 @0x16
0x25ec…2630 at0017 = ╱47╱G╱ // 0x2603 @0x17
0x25ec…2630 at0018 = ╱20╱…╱ // 0x2604 @0x18
0x25ec…2630 at0019 = ╱20╱…╱ // 0x2605 @0x19
0x25ec…2630 at001a = ╱54╱T╱ // 0x2606 @0x1a
0x25ec…2630 at001b = ╱45╱E╱ // 0x2607 @0x1b
0x25ec…2630 at001c = ╱4b╱K╱ // 0x2608 @0x1c
0x25ec…2630 at001d = ╱53╱S╱ // 0x2609 @0x1d
0x25ec…2630 at001e = ╱54╱T╱ // 0x260a @0x1e
0x25ec…2630 at001f = ╱22╱"╱ // 0x260b @0x1f
0x25ec…2630 at0020 = ╱ea╱ ; ╱ // 0x260c @0x20
0x25ec…2630 at0021 = ╱d2╱ TAB ╱ // 0x260d @0x21
0x25ec…2630 at0022 = ╱ed╱ ( ╱ // 0x260e @0x22
0x25ec…2630 at0023 = ╱34╱4╱ // 0x260f @0x23
0x25ec…2630 at0024 = ╱37╱7╱ // 0x2610 @0x24
0x25ec…2630 at0025 = ╱f22f00╱ // 0x2611 @0x25
0x25ec…2630 at0028 = ╱ee╱ ) ╱ // 0x2614 @0x28
0x25ec…2630 at0029 = ╱ea╱ ; ╱ // 0x2615 @0x29
0x25ec…2630 at002a = ╱22╱"╱ // 0x2616 @0x2a
0x25ec…2630 at002b = ╱44╱D╱ // 0x2617 @0x2b
0x25ec…2630 at002c = ╱45╱E╱ // 0x2618 @0x2c
0x25ec…2630 at002d = ╱42╱B╱ // 0x2619 @0x2d
0x25ec…2630 at002e = ╱45╱E╱ // 0x261a @0x2e
0x25ec…2630 at002f = ╱54╱T╱ // 0x261b @0x2f
0x25ec…2630 at0030 = ╱42╱B╱ // 0x261c @0x30
0x25ec…2630 at0031 = ╱45╱E╱ // 0x261d @0x31
0x25ec…2630 at0032 = ╱4c╱L╱ // 0x261e @0x32
0x25ec…2630 at0033 = ╱5c╱\╱ // 0x261f @0x33
0x25ec…2630 at0034 = ╱42╱B╱ // 0x2620 @0x34
0x25ec…2630 at0035 = ╱20╱…╱ // 0x2621 @0x35
0x25ec…2630 at0036 = ╱20╱…╱ // 0x2622 @0x36
0x25ec…2630 at0037 = ╱4b╱K╱ // 0x2623 @0x37
0x25ec…2630 at0038 = ╱52╱R╱ // 0x2624 @0x38
0x25ec…2630 at0039 = ╱45╱E╱ // 0x2625 @0x39
0x25ec…2630 at003a = ╱44╱D╱ // 0x2626 @0x3a
0x25ec…2630 at003b = ╱49╱I╱ // 0x2627 @0x3b
0x25ec…2630 at003c = ╱54╱T╱ // 0x2628 @0x3c
0x25ec…2630 at003d = ╱42╱B╱ // 0x2629 @0x3d
0x25ec…2630 at003e = ╱45╱E╱ // 0x262a @0x3e
0x25ec…2630 at003f = ╱4c╱L╱ // 0x262b @0x3f
0x25ec…2630 at0040 = ╱5c╱\╱ // 0x262c @0x40
0x25ec…2630 at0041 = ╱42╱B╱ // 0x262d @0x41
0x25ec…2630 at0042 = ╱22╱"╱ // 0x262e @0x42
0x25ec…2630 at0043 = EOL // 0x262f @0x43
0x25ec…2630 }
0x2630…2641 b22f 02810 PRINT "!………SALDO"
0x2630…2641 LineComal80 {
0x2630…2641 ptr = 0xb22f // 0x2630 @0x0
0x2630…2641 lno = 0x0afa // 0x2632 @0x2
0x2630…2641 at0004 = ╱92╱ PRINT ╱ // 0x2634 @0x4
0x2630…2641 at0005 = ╱22╱"╱ // 0x2635 @0x5
0x2630…2641 at0006 = ╱21╱!╱ // 0x2636 @0x6
0x2630…2641 at0007 = ╱20╱…╱ // 0x2637 @0x7
0x2630…2641 at0008 = ╱20╱…╱ // 0x2638 @0x8
0x2630…2641 at0009 = ╱20╱…╱ // 0x2639 @0x9
0x2630…2641 at000a = ╱53╱S╱ // 0x263a @0xa
0x2630…2641 at000b = ╱41╱A╱ // 0x263b @0xb
0x2630…2641 at000c = ╱4c╱L╱ // 0x263c @0xc
0x2630…2641 at000d = ╱44╱D╱ // 0x263d @0xd
0x2630…2641 at000e = ╱4f╱O╱ // 0x263e @0xe
0x2630…2641 at000f = ╱22╱"╱ // 0x263f @0xf
0x2630…2641 at0010 = EOL // 0x2640 @0x10
0x2630…2641 }
0x2641…266e bc5c 02930 PRINT TAB ( 42 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ; "!" ;
0x2641…266e LineComal80 {
0x2641…266e ptr = 0xbc5c // 0x2641 @0x0
0x2641…266e lno = 0x0b72 // 0x2643 @0x2
0x2641…266e at0004 = ╱92╱ PRINT ╱ // 0x2645 @0x4
0x2641…266e at0005 = ╱d2╱ TAB ╱ // 0x2646 @0x5
0x2641…266e at0006 = ╱ed╱ ( ╱ // 0x2647 @0x6
0x2641…266e at0007 = ╱34╱4╱ // 0x2648 @0x7
0x2641…266e at0008 = ╱32╱2╱ // 0x2649 @0x8
0x2641…266e at0009 = ╱f22a00╱ // 0x264a @0x9
0x2641…266e at000c = ╱ee╱ ) ╱ // 0x264d @0xc
0x2641…266e at000d = ╱ea╱ ; ╱ // 0x264e @0xd
0x2641…266e at000e = ╱d0╱ CHR$ ╱ // 0x264f @0xe
0x2641…266e at000f = ╱ed╱ ( ╱ // 0x2650 @0xf
0x2641…266e at0010 = ╱51╱Q╱ // 0x2651 @0x10
0x2641…266e at0011 = ╱5f╱_╱ // 0x2652 @0x11
0x2641…266e at0012 = ╱4b╱K╱ // 0x2653 @0x12
0x2641…266e at0013 = ╱ec╱ , ╱ // 0x2654 @0x13
0x2641…266e at0014 = ╱39╱9╱ // 0x2655 @0x14
0x2641…266e at0015 = ╱f20900╱ // 0x2656 @0x15
0x2641…266e at0018 = ╱ec╱ , ╱ // 0x2659 @0x18
0x2641…266e at0019 = ╱32╱2╱ // 0x265a @0x19
0x2641…266e at001a = ╱f20200╱ // 0x265b @0x1a
0x2641…266e at001d = ╱ee╱ ) ╱ // 0x265e @0x1d
0x2641…266e at001e = ╱ea╱ ; ╱ // 0x265f @0x1e
0x2641…266e at001f = ╱d2╱ TAB ╱ // 0x2660 @0x1f
0x2641…266e at0020 = ╱ed╱ ( ╱ // 0x2661 @0x20
0x2641…266e at0021 = ╱36╱6╱ // 0x2662 @0x21
0x2641…266e at0022 = ╱37╱7╱ // 0x2663 @0x22
0x2641…266e at0023 = ╱f24300╱ // 0x2664 @0x23
0x2641…266e at0026 = ╱ee╱ ) ╱ // 0x2667 @0x26
0x2641…266e at0027 = ╱ea╱ ; ╱ // 0x2668 @0x27
0x2641…266e at0028 = ╱22╱"╱ // 0x2669 @0x28
0x2641…266e at0029 = ╱21╱!╱ // 0x266a @0x29
0x2641…266e at002a = ╱22╱"╱ // 0x266b @0x2a
0x2641…266e at002b = ╱ea╱ ; ╱ // 0x266c @0x2b
0x2641…266e at002c = EOL // 0x266d @0x2c
0x2641…266e }
0x266e…268b bc79 02940 LET TOT ( 1 ) := TOT ( 1 ) + Q_K
0x266e…268b LineComal80 {
0x266e…268b ptr = 0xbc79 // 0x266e @0x0
0x266e…268b lno = 0x0b7c // 0x2670 @0x2
0x266e…268b at0004 = ╱86╱ LET ╱ // 0x2672 @0x4
0x266e…268b at0005 = ╱54╱T╱ // 0x2673 @0x5
0x266e…268b at0006 = ╱4f╱O╱ // 0x2674 @0x6
0x266e…268b at0007 = ╱54╱T╱ // 0x2675 @0x7
0x266e…268b at0008 = ╱ed╱ ( ╱ // 0x2676 @0x8
0x266e…268b at0009 = ╱31╱1╱ // 0x2677 @0x9
0x266e…268b at000a = ╱f20100╱ // 0x2678 @0xa
0x266e…268b at000d = ╱ee╱ ) ╱ // 0x267b @0xd
0x266e…268b at000e = ╱f0╱ := ╱ // 0x267c @0xe
0x266e…268b at000f = ╱54╱T╱ // 0x267d @0xf
0x266e…268b at0010 = ╱4f╱O╱ // 0x267e @0x10
0x266e…268b at0011 = ╱54╱T╱ // 0x267f @0x11
0x266e…268b at0012 = ╱ed╱ ( ╱ // 0x2680 @0x12
0x266e…268b at0013 = ╱31╱1╱ // 0x2681 @0x13
0x266e…268b at0014 = ╱f20100╱ // 0x2682 @0x14
0x266e…268b at0017 = ╱ee╱ ) ╱ // 0x2685 @0x17
0x266e…268b at0018 = ╱e5╱ + ╱ // 0x2686 @0x18
0x266e…268b at0019 = ╱51╱Q╱ // 0x2687 @0x19
0x266e…268b at001a = ╱5f╱_╱ // 0x2688 @0x1a
0x266e…268b at001b = ╱4b╱K╱ // 0x2689 @0x1b
0x266e…268b at001c = EOL // 0x268a @0x1c
0x266e…268b }
0x268b…2692 bc80 02950 ELSE
0x268b…2692 LineComal80 {
0x268b…2692 ptr = 0xbc80 // 0x268b @0x0
0x268b…2692 lno = 0x0b86 // 0x268d @0x2
0x268b…2692 at0004 = ╱9a32╱ ELSE ╱ // 0x268f @0x4
0x268b…2692 at0006 = EOL // 0x2691 @0x6
0x268b…2692 }
0x2692…26bf bcad 02960 PRINT TAB ( 55 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ; "!" ;
0x2692…26bf LineComal80 {
0x2692…26bf ptr = 0xbcad // 0x2692 @0x0
0x2692…26bf lno = 0x0b90 // 0x2694 @0x2
0x2692…26bf at0004 = ╱92╱ PRINT ╱ // 0x2696 @0x4
0x2692…26bf at0005 = ╱d2╱ TAB ╱ // 0x2697 @0x5
0x2692…26bf at0006 = ╱ed╱ ( ╱ // 0x2698 @0x6
0x2692…26bf at0007 = ╱35╱5╱ // 0x2699 @0x7
0x2692…26bf at0008 = ╱35╱5╱ // 0x269a @0x8
0x2692…26bf at0009 = ╱f23700╱ // 0x269b @0x9
0x2692…26bf at000c = ╱ee╱ ) ╱ // 0x269e @0xc
0x2692…26bf at000d = ╱ea╱ ; ╱ // 0x269f @0xd
0x2692…26bf at000e = ╱d0╱ CHR$ ╱ // 0x26a0 @0xe
0x2692…26bf at000f = ╱ed╱ ( ╱ // 0x26a1 @0xf
0x2692…26bf at0010 = ╱51╱Q╱ // 0x26a2 @0x10
0x2692…26bf at0011 = ╱5f╱_╱ // 0x26a3 @0x11
0x2692…26bf at0012 = ╱4b╱K╱ // 0x26a4 @0x12
0x2692…26bf at0013 = ╱ec╱ , ╱ // 0x26a5 @0x13
0x2692…26bf at0014 = ╱39╱9╱ // 0x26a6 @0x14
0x2692…26bf at0015 = ╱f20900╱ // 0x26a7 @0x15
0x2692…26bf at0018 = ╱ec╱ , ╱ // 0x26aa @0x18
0x2692…26bf at0019 = ╱32╱2╱ // 0x26ab @0x19
0x2692…26bf at001a = ╱f20200╱ // 0x26ac @0x1a
0x2692…26bf at001d = ╱ee╱ ) ╱ // 0x26af @0x1d
0x2692…26bf at001e = ╱ea╱ ; ╱ // 0x26b0 @0x1e
0x2692…26bf at001f = ╱d2╱ TAB ╱ // 0x26b1 @0x1f
0x2692…26bf at0020 = ╱ed╱ ( ╱ // 0x26b2 @0x20
0x2692…26bf at0021 = ╱36╱6╱ // 0x26b3 @0x21
0x2692…26bf at0022 = ╱37╱7╱ // 0x26b4 @0x22
0x2692…26bf at0023 = ╱f24300╱ // 0x26b5 @0x23
0x2692…26bf at0026 = ╱ee╱ ) ╱ // 0x26b8 @0x26
0x2692…26bf at0027 = ╱ea╱ ; ╱ // 0x26b9 @0x27
0x2692…26bf at0028 = ╱22╱"╱ // 0x26ba @0x28
0x2692…26bf at0029 = ╱21╱!╱ // 0x26bb @0x29
0x2692…26bf at002a = ╱22╱"╱ // 0x26bc @0x2a
0x2692…26bf at002b = ╱ea╱ ; ╱ // 0x26bd @0x2b
0x2692…26bf at002c = EOL // 0x26be @0x2c
0x2692…26bf }
0x26bf…26dc bcca 02970 LET TOT ( 2 ) := TOT ( 2 ) + Q_K
0x26bf…26dc LineComal80 {
0x26bf…26dc ptr = 0xbcca // 0x26bf @0x0
0x26bf…26dc lno = 0x0b9a // 0x26c1 @0x2
0x26bf…26dc at0004 = ╱86╱ LET ╱ // 0x26c3 @0x4
0x26bf…26dc at0005 = ╱54╱T╱ // 0x26c4 @0x5
0x26bf…26dc at0006 = ╱4f╱O╱ // 0x26c5 @0x6
0x26bf…26dc at0007 = ╱54╱T╱ // 0x26c6 @0x7
0x26bf…26dc at0008 = ╱ed╱ ( ╱ // 0x26c7 @0x8
0x26bf…26dc at0009 = ╱32╱2╱ // 0x26c8 @0x9
0x26bf…26dc at000a = ╱f20200╱ // 0x26c9 @0xa
0x26bf…26dc at000d = ╱ee╱ ) ╱ // 0x26cc @0xd
0x26bf…26dc at000e = ╱f0╱ := ╱ // 0x26cd @0xe
0x26bf…26dc at000f = ╱54╱T╱ // 0x26ce @0xf
0x26bf…26dc at0010 = ╱4f╱O╱ // 0x26cf @0x10
0x26bf…26dc at0011 = ╱54╱T╱ // 0x26d0 @0x11
0x26bf…26dc at0012 = ╱ed╱ ( ╱ // 0x26d1 @0x12
0x26bf…26dc at0013 = ╱32╱2╱ // 0x26d2 @0x13
0x26bf…26dc at0014 = ╱f20200╱ // 0x26d3 @0x14
0x26bf…26dc at0017 = ╱ee╱ ) ╱ // 0x26d6 @0x17
0x26bf…26dc at0018 = ╱e5╱ + ╱ // 0x26d7 @0x18
0x26bf…26dc at0019 = ╱51╱Q╱ // 0x26d8 @0x19
0x26bf…26dc at001a = ╱5f╱_╱ // 0x26d9 @0x1a
0x26bf…26dc at001b = ╱4b╱K╱ // 0x26da @0x1b
0x26bf…26dc at001c = EOL // 0x26db @0x1c
0x26bf…26dc }
0x26dc…26e2 bcd6 02980 ENDIF
0x26dc…26e2 LineComal80 {
0x26dc…26e2 ptr = 0xbcd6 // 0x26dc @0x0
0x26dc…26e2 lno = 0x0ba4 // 0x26de @0x2
0x26dc…26e2 at0004 = ╱9c╱ ENDIF ╱ // 0x26e0 @0x4
0x26dc…26e2 at0005 = EOL // 0x26e1 @0x5
0x26dc…26e2 }
0x26e2…26e8 b440 02990 PRINT
0x26e2…26e8 LineComal80 {
0x26e2…26e8 ptr = 0xb440 // 0x26e2 @0x0
0x26e2…26e8 lno = 0x0bae // 0x26e4 @0x2
0x26e2…26e8 at0004 = ╱92╱ PRINT ╱ // 0x26e6 @0x4
0x26e2…26e8 at0005 = EOL // 0x26e7 @0x5
0x26e2…26e8 }
0x26e8…2702 bcd0 02981 PRINT CHR$ ( ABS ( SUM ) , 9 , 2 ) ;
0x26e8…2702 LineComal80 {
0x26e8…2702 ptr = 0xbcd0 // 0x26e8 @0x0
0x26e8…2702 lno = 0x0ba5 // 0x26ea @0x2
0x26e8…2702 at0004 = ╱92╱ PRINT ╱ // 0x26ec @0x4
0x26e8…2702 at0005 = ╱d0╱ CHR$ ╱ // 0x26ed @0x5
0x26e8…2702 at0006 = ╱ed╱ ( ╱ // 0x26ee @0x6
0x26e8…2702 at0007 = ╱c4╱ ABS ╱ // 0x26ef @0x7
0x26e8…2702 at0008 = ╱ed╱ ( ╱ // 0x26f0 @0x8
0x26e8…2702 at0009 = ╱53╱S╱ // 0x26f1 @0x9
0x26e8…2702 at000a = ╱55╱U╱ // 0x26f2 @0xa
0x26e8…2702 at000b = ╱4d╱M╱ // 0x26f3 @0xb
0x26e8…2702 at000c = ╱ee╱ ) ╱ // 0x26f4 @0xc
0x26e8…2702 at000d = ╱ec╱ , ╱ // 0x26f5 @0xd
0x26e8…2702 at000e = ╱39╱9╱ // 0x26f6 @0xe
0x26e8…2702 at000f = ╱f20900╱ // 0x26f7 @0xf
0x26e8…2702 at0012 = ╱ec╱ , ╱ // 0x26fa @0x12
0x26e8…2702 at0013 = ╱32╱2╱ // 0x26fb @0x13
0x26e8…2702 at0014 = ╱f20200╱ // 0x26fc @0x14
0x26e8…2702 at0017 = ╱ee╱ ) ╱ // 0x26ff @0x17
0x26e8…2702 at0018 = ╱ea╱ ; ╱ // 0x2700 @0x18
0x26e8…2702 at0019 = EOL // 0x2701 @0x19
0x26e8…2702 }
0x2702…2730 ac79 02290 LET BMOMS := 0 ; DK := SGN ( KTO_PRIMO ) ; SUM := KTO_PRIMO
0x2702…2730 LineComal80 {
0x2702…2730 ptr = 0xac79 // 0x2702 @0x0
0x2702…2730 lno = 0x08f2 // 0x2704 @0x2
0x2702…2730 at0004 = ╱86╱ LET ╱ // 0x2706 @0x4
0x2702…2730 at0005 = ╱42╱B╱ // 0x2707 @0x5
0x2702…2730 at0006 = ╱4d╱M╱ // 0x2708 @0x6
0x2702…2730 at0007 = ╱4f╱O╱ // 0x2709 @0x7
0x2702…2730 at0008 = ╱4d╱M╱ // 0x270a @0x8
0x2702…2730 at0009 = ╱53╱S╱ // 0x270b @0x9
0x2702…2730 at000a = ╱f0╱ := ╱ // 0x270c @0xa
0x2702…2730 at000b = ╱30╱0╱ // 0x270d @0xb
0x2702…2730 at000c = ╱f20000╱ // 0x270e @0xc
0x2702…2730 at000f = ╱ea╱ ; ╱ // 0x2711 @0xf
0x2702…2730 at0010 = ╱44╱D╱ // 0x2712 @0x10
0x2702…2730 at0011 = ╱4b╱K╱ // 0x2713 @0x11
0x2702…2730 at0012 = ╱f0╱ := ╱ // 0x2714 @0x12
0x2702…2730 at0013 = ╱c8╱ SGN ╱ // 0x2715 @0x13
0x2702…2730 at0014 = ╱ed╱ ( ╱ // 0x2716 @0x14
0x2702…2730 at0015 = ╱4b╱K╱ // 0x2717 @0x15
0x2702…2730 at0016 = ╱54╱T╱ // 0x2718 @0x16
0x2702…2730 at0017 = ╱4f╱O╱ // 0x2719 @0x17
0x2702…2730 at0018 = ╱5f╱_╱ // 0x271a @0x18
0x2702…2730 at0019 = ╱50╱P╱ // 0x271b @0x19
0x2702…2730 at001a = ╱52╱R╱ // 0x271c @0x1a
0x2702…2730 at001b = ╱49╱I╱ // 0x271d @0x1b
0x2702…2730 at001c = ╱4d╱M╱ // 0x271e @0x1c
0x2702…2730 at001d = ╱4f╱O╱ // 0x271f @0x1d
0x2702…2730 at001e = ╱ee╱ ) ╱ // 0x2720 @0x1e
0x2702…2730 at001f = ╱ea╱ ; ╱ // 0x2721 @0x1f
0x2702…2730 at0020 = ╱53╱S╱ // 0x2722 @0x20
0x2702…2730 at0021 = ╱55╱U╱ // 0x2723 @0x21
0x2702…2730 at0022 = ╱4d╱M╱ // 0x2724 @0x22
0x2702…2730 at0023 = ╱f0╱ := ╱ // 0x2725 @0x23
0x2702…2730 at0024 = ╱4b╱K╱ // 0x2726 @0x24
0x2702…2730 at0025 = ╱54╱T╱ // 0x2727 @0x25
0x2702…2730 at0026 = ╱4f╱O╱ // 0x2728 @0x26
0x2702…2730 at0027 = ╱5f╱_╱ // 0x2729 @0x27
0x2702…2730 at0028 = ╱50╱P╱ // 0x272a @0x28
0x2702…2730 at0029 = ╱52╱R╱ // 0x272b @0x29
0x2702…2730 at002a = ╱49╱I╱ // 0x272c @0x2a
0x2702…2730 at002b = ╱4d╱M╱ // 0x272d @0x2b
0x2702…2730 at002c = ╱4f╱O╱ // 0x272e @0x2c
0x2702…2730 at002d = EOL // 0x272f @0x2d
0x2702…2730 }
0x2730…2756 bcf0 02280 LET BLGNR $ := "……" ; BTXT $ := "GAMMEL…SALDO"
0x2730…2756 LineComal80 {
0x2730…2756 ptr = 0xbcf0 // 0x2730 @0x0
0x2730…2756 lno = 0x08e8 // 0x2732 @0x2
0x2730…2756 at0004 = ╱86╱ LET ╱ // 0x2734 @0x4
0x2730…2756 at0005 = ╱42╱B╱ // 0x2735 @0x5
0x2730…2756 at0006 = ╱4c╱L╱ // 0x2736 @0x6
0x2730…2756 at0007 = ╱47╱G╱ // 0x2737 @0x7
0x2730…2756 at0008 = ╱4e╱N╱ // 0x2738 @0x8
0x2730…2756 at0009 = ╱52╱R╱ // 0x2739 @0x9
0x2730…2756 at000a = ╱ef╱ $ ╱ // 0x273a @0xa
0x2730…2756 at000b = ╱f0╱ := ╱ // 0x273b @0xb
0x2730…2756 at000c = ╱22╱"╱ // 0x273c @0xc
0x2730…2756 at000d = ╱20╱…╱ // 0x273d @0xd
0x2730…2756 at000e = ╱20╱…╱ // 0x273e @0xe
0x2730…2756 at000f = ╱22╱"╱ // 0x273f @0xf
0x2730…2756 at0010 = ╱ea╱ ; ╱ // 0x2740 @0x10
0x2730…2756 at0011 = ╱42╱B╱ // 0x2741 @0x11
0x2730…2756 at0012 = ╱54╱T╱ // 0x2742 @0x12
0x2730…2756 at0013 = ╱58╱X╱ // 0x2743 @0x13
0x2730…2756 at0014 = ╱54╱T╱ // 0x2744 @0x14
0x2730…2756 at0015 = ╱ef╱ $ ╱ // 0x2745 @0x15
0x2730…2756 at0016 = ╱f0╱ := ╱ // 0x2746 @0x16
0x2730…2756 at0017 = ╱22╱"╱ // 0x2747 @0x17
0x2730…2756 at0018 = ╱47╱G╱ // 0x2748 @0x18
0x2730…2756 at0019 = ╱41╱A╱ // 0x2749 @0x19
0x2730…2756 at001a = ╱4d╱M╱ // 0x274a @0x1a
0x2730…2756 at001b = ╱4d╱M╱ // 0x274b @0x1b
0x2730…2756 at001c = ╱45╱E╱ // 0x274c @0x1c
0x2730…2756 at001d = ╱4c╱L╱ // 0x274d @0x1d
0x2730…2756 at001e = ╱20╱…╱ // 0x274e @0x1e
0x2730…2756 at001f = ╱53╱S╱ // 0x274f @0x1f
0x2730…2756 at0020 = ╱41╱A╱ // 0x2750 @0x20
0x2730…2756 at0021 = ╱4c╱L╱ // 0x2751 @0x21
0x2730…2756 at0022 = ╱44╱D╱ // 0x2752 @0x22
0x2730…2756 at0023 = ╱4f╱O╱ // 0x2753 @0x23
0x2730…2756 at0024 = ╱22╱"╱ // 0x2754 @0x24
0x2730…2756 at0025 = EOL // 0x2755 @0x25
0x2730…2756 }
0x2756…2766 bd54 02360 IF K = DEBET THEN
0x2756…2766 LineComal80 {
0x2756…2766 ptr = 0xbd54 // 0x2756 @0x0
0x2756…2766 lno = 0x0938 // 0x2758 @0x2
0x2756…2766 at0004 = ╱9b2644╱ IF ╱ // 0x275a @0x4
0x2756…2766 at0007 = ╱4b╱K╱ // 0x275d @0x7
0x2756…2766 at0008 = ╱df╱ = ╱ // 0x275e @0x8
0x2756…2766 at0009 = ╱44╱D╱ // 0x275f @0x9
0x2756…2766 at000a = ╱45╱E╱ // 0x2760 @0xa
0x2756…2766 at000b = ╱42╱B╱ // 0x2761 @0xb
0x2756…2766 at000c = ╱45╱E╱ // 0x2762 @0xc
0x2756…2766 at000d = ╱54╱T╱ // 0x2763 @0xd
0x2756…2766 at000e = ╱b5╱ THEN ╱ // 0x2764 @0xe
0x2756…2766 at000f = EOL // 0x2765 @0xf
0x2756…2766 }
0x2766…277a bd68 02370 LET SUM := SUM + BBEL\B
0x2766…277a LineComal80 {
0x2766…277a ptr = 0xbd68 // 0x2766 @0x0
0x2766…277a lno = 0x0942 // 0x2768 @0x2
0x2766…277a at0004 = ╱86╱ LET ╱ // 0x276a @0x4
0x2766…277a at0005 = ╱53╱S╱ // 0x276b @0x5
0x2766…277a at0006 = ╱55╱U╱ // 0x276c @0x6
0x2766…277a at0007 = ╱4d╱M╱ // 0x276d @0x7
0x2766…277a at0008 = ╱f0╱ := ╱ // 0x276e @0x8
0x2766…277a at0009 = ╱53╱S╱ // 0x276f @0x9
0x2766…277a at000a = ╱55╱U╱ // 0x2770 @0xa
0x2766…277a at000b = ╱4d╱M╱ // 0x2771 @0xb
0x2766…277a at000c = ╱e5╱ + ╱ // 0x2772 @0xc
0x2766…277a at000d = ╱42╱B╱ // 0x2773 @0xd
0x2766…277a at000e = ╱42╱B╱ // 0x2774 @0xe
0x2766…277a at000f = ╱45╱E╱ // 0x2775 @0xf
0x2766…277a at0010 = ╱4c╱L╱ // 0x2776 @0x10
0x2766…277a at0011 = ╱5c╱\╱ // 0x2777 @0x11
0x2766…277a at0012 = ╱42╱B╱ // 0x2778 @0x12
0x2766…277a at0013 = EOL // 0x2779 @0x13
0x2766…277a }
0x277a…2781 bd6f 02380 ELSE
0x277a…2781 LineComal80 {
0x277a…2781 ptr = 0xbd6f // 0x277a @0x0
0x277a…2781 lno = 0x094c // 0x277c @0x2
0x277a…2781 at0004 = ╱9a27╱ ELSE ╱ // 0x277e @0x4
0x277a…2781 at0006 = EOL // 0x2780 @0x6
0x277a…2781 }
0x2781…2795 bd83 02390 LET SUM := SUM - BBEL\B
0x2781…2795 LineComal80 {
0x2781…2795 ptr = 0xbd83 // 0x2781 @0x0
0x2781…2795 lno = 0x0956 // 0x2783 @0x2
0x2781…2795 at0004 = ╱86╱ LET ╱ // 0x2785 @0x4
0x2781…2795 at0005 = ╱53╱S╱ // 0x2786 @0x5
0x2781…2795 at0006 = ╱55╱U╱ // 0x2787 @0x6
0x2781…2795 at0007 = ╱4d╱M╱ // 0x2788 @0x7
0x2781…2795 at0008 = ╱f0╱ := ╱ // 0x2789 @0x8
0x2781…2795 at0009 = ╱53╱S╱ // 0x278a @0x9
0x2781…2795 at000a = ╱55╱U╱ // 0x278b @0xa
0x2781…2795 at000b = ╱4d╱M╱ // 0x278c @0xb
0x2781…2795 at000c = ╱e6╱ - ╱ // 0x278d @0xc
0x2781…2795 at000d = ╱42╱B╱ // 0x278e @0xd
0x2781…2795 at000e = ╱42╱B╱ // 0x278f @0xe
0x2781…2795 at000f = ╱45╱E╱ // 0x2790 @0xf
0x2781…2795 at0010 = ╱4c╱L╱ // 0x2791 @0x10
0x2781…2795 at0011 = ╱5c╱\╱ // 0x2792 @0x11
0x2781…2795 at0012 = ╱42╱B╱ // 0x2793 @0x12
0x2781…2795 at0013 = EOL // 0x2794 @0x13
0x2781…2795 }
0x2795…279b ad12 02400 ENDIF
0x2795…279b LineComal80 {
0x2795…279b ptr = 0xad12 // 0x2795 @0x0
0x2795…279b lno = 0x0960 // 0x2797 @0x2
0x2795…279b at0004 = ╱9c╱ ENDIF ╱ // 0x2799 @0x4
0x2795…279b at0005 = EOL // 0x279a @0x5
0x2795…279b }
0x279b…27e9 3239 12594 38 ╱00╱ ╱00╱ ╱06╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ …… ╱00╱ ╱00╱ ╱05╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ODLAS…LEMMAG ╱00╱ ╱00╱ ╱14╱ ╱00╱ NOT DUMMY END ╱0a╱ LET LIN_T := 9 ; SIDENR := SIDENR + 1
0x279b…27e9 LineComal80 {
0x279b…27e9 ptr = 0x3239 // 0x279b @0x0
0x279b…27e9 lno = 0x3132 // 0x279d @0x2
0x279b…27e9 at0004 = ╱33╱3╱ // 0x279f @0x4
0x279b…27e9 at0005 = ╱38╱8╱ // 0x27a0 @0x5
0x279b…27e9 at0006 = ╱00╱ // 0x27a1 @0x6
0x279b…27e9 at0007 = ╱00╱ // 0x27a2 @0x7
0x279b…27e9 at0008 = ╱06╱ // 0x27a3 @0x8
0x279b…27e9 at0009 = ╱00╱ // 0x27a4 @0x9
0x279b…27e9 at000a = ╱1f╱ // 0x27a5 @0xa
0x279b…27e9 at000b = ╱1f╱ // 0x27a6 @0xb
0x279b…27e9 at000c = ╱1f╱ // 0x27a7 @0xc
0x279b…27e9 at000d = ╱20╱…╱ // 0x27a8 @0xd
0x279b…27e9 at000e = ╱20╱…╱ // 0x27a9 @0xe
0x279b…27e9 at000f = ╱00╱ // 0x27aa @0xf
0x279b…27e9 at0010 = ╱00╱ // 0x27ab @0x10
0x279b…27e9 at0011 = ╱05╱ // 0x27ac @0x11
0x279b…27e9 at0012 = ╱00╱ // 0x27ad @0x12
0x279b…27e9 at0013 = ╱1f╱ // 0x27ae @0x13
0x279b…27e9 at0014 = ╱1f╱ // 0x27af @0x14
0x279b…27e9 at0015 = ╱1f╱ // 0x27b0 @0x15
0x279b…27e9 at0016 = ╱1f╱ // 0x27b1 @0x16
0x279b…27e9 at0017 = ╱1f╱ // 0x27b2 @0x17
0x279b…27e9 at0018 = ╱1f╱ // 0x27b3 @0x18
0x279b…27e9 at0019 = ╱1f╱ // 0x27b4 @0x19
0x279b…27e9 at001a = ╱1f╱ // 0x27b5 @0x1a
0x279b…27e9 at001b = ╱4f╱O╱ // 0x27b6 @0x1b
0x279b…27e9 at001c = ╱44╱D╱ // 0x27b7 @0x1c
0x279b…27e9 at001d = ╱4c╱L╱ // 0x27b8 @0x1d
0x279b…27e9 at001e = ╱41╱A╱ // 0x27b9 @0x1e
0x279b…27e9 at001f = ╱53╱S╱ // 0x27ba @0x1f
0x279b…27e9 at0020 = ╱20╱…╱ // 0x27bb @0x20
0x279b…27e9 at0021 = ╱4c╱L╱ // 0x27bc @0x21
0x279b…27e9 at0022 = ╱45╱E╱ // 0x27bd @0x22
0x279b…27e9 at0023 = ╱4d╱M╱ // 0x27be @0x23
0x279b…27e9 at0024 = ╱4d╱M╱ // 0x27bf @0x24
0x279b…27e9 at0025 = ╱41╱A╱ // 0x27c0 @0x25
0x279b…27e9 at0026 = ╱47╱G╱ // 0x27c1 @0x26
0x279b…27e9 at0027 = ╱00╱ // 0x27c2 @0x27
0x279b…27e9 at0028 = ╱00╱ // 0x27c3 @0x28
0x279b…27e9 at0029 = ╱14╱ // 0x27c4 @0x29
0x279b…27e9 at002a = ╱00╱ // 0x27c5 @0x2a
0x279b…27e9 at002b = ╱d7╱ NOT ╱ // 0x27c6 @0x2b
0x279b…27e9 at002c = ╱bd╱ DUMMY ╱ // 0x27c7 @0x2c
0x279b…27e9 at002d = ╱8c╱ END ╱ // 0x27c8 @0x2d
0x279b…27e9 at002e = ╱0a╱ // 0x27c9 @0x2e
0x279b…27e9 at002f = ╱86╱ LET ╱ // 0x27ca @0x2f
0x279b…27e9 at0030 = ╱4c╱L╱ // 0x27cb @0x30
0x279b…27e9 at0031 = ╱49╱I╱ // 0x27cc @0x31
0x279b…27e9 at0032 = ╱4e╱N╱ // 0x27cd @0x32
0x279b…27e9 at0033 = ╱5f╱_╱ // 0x27ce @0x33
0x279b…27e9 at0034 = ╱54╱T╱ // 0x27cf @0x34
0x279b…27e9 at0035 = ╱f0╱ := ╱ // 0x27d0 @0x35
0x279b…27e9 at0036 = ╱39╱9╱ // 0x27d1 @0x36
0x279b…27e9 at0037 = ╱f20900╱ // 0x27d2 @0x37
0x279b…27e9 at003a = ╱ea╱ ; ╱ // 0x27d5 @0x3a
0x279b…27e9 at003b = ╱53╱S╱ // 0x27d6 @0x3b
0x279b…27e9 at003c = ╱49╱I╱ // 0x27d7 @0x3c
0x279b…27e9 at003d = ╱44╱D╱ // 0x27d8 @0x3d
0x279b…27e9 at003e = ╱45╱E╱ // 0x27d9 @0x3e
0x279b…27e9 at003f = ╱4e╱N╱ // 0x27da @0x3f
0x279b…27e9 at0040 = ╱52╱R╱ // 0x27db @0x40
0x279b…27e9 at0041 = ╱f0╱ := ╱ // 0x27dc @0x41
0x279b…27e9 at0042 = ╱53╱S╱ // 0x27dd @0x42
0x279b…27e9 at0043 = ╱49╱I╱ // 0x27de @0x43
0x279b…27e9 at0044 = ╱44╱D╱ // 0x27df @0x44
0x279b…27e9 at0045 = ╱45╱E╱ // 0x27e0 @0x45
0x279b…27e9 at0046 = ╱4e╱N╱ // 0x27e1 @0x46
0x279b…27e9 at0047 = ╱52╱R╱ // 0x27e2 @0x47
0x279b…27e9 at0048 = ╱e5╱ + ╱ // 0x27e3 @0x48
0x279b…27e9 at0049 = ╱31╱1╱ // 0x27e4 @0x49
0x279b…27e9 at004a = ╱f20100╱ // 0x27e5 @0x4a
0x279b…27e9 at004d = EOL // 0x27e8 @0x4d
0x279b…27e9 }
0x27e9…2811 bdff 02710 PRINT "***…" ; SYST_NAVN $ ; "…***" ; TAB ( 42 ) ;
0x27e9…2811 LineComal80 {
0x27e9…2811 ptr = 0xbdff // 0x27e9 @0x0
0x27e9…2811 lno = 0x0a96 // 0x27eb @0x2
0x27e9…2811 at0004 = ╱92╱ PRINT ╱ // 0x27ed @0x4
0x27e9…2811 at0005 = ╱22╱"╱ // 0x27ee @0x5
0x27e9…2811 at0006 = ╱2a╱*╱ // 0x27ef @0x6
0x27e9…2811 at0007 = ╱2a╱*╱ // 0x27f0 @0x7
0x27e9…2811 at0008 = ╱2a╱*╱ // 0x27f1 @0x8
0x27e9…2811 at0009 = ╱20╱…╱ // 0x27f2 @0x9
0x27e9…2811 at000a = ╱22╱"╱ // 0x27f3 @0xa
0x27e9…2811 at000b = ╱ea╱ ; ╱ // 0x27f4 @0xb
0x27e9…2811 at000c = ╱53╱S╱ // 0x27f5 @0xc
0x27e9…2811 at000d = ╱59╱Y╱ // 0x27f6 @0xd
0x27e9…2811 at000e = ╱53╱S╱ // 0x27f7 @0xe
0x27e9…2811 at000f = ╱54╱T╱ // 0x27f8 @0xf
0x27e9…2811 at0010 = ╱5f╱_╱ // 0x27f9 @0x10
0x27e9…2811 at0011 = ╱4e╱N╱ // 0x27fa @0x11
0x27e9…2811 at0012 = ╱41╱A╱ // 0x27fb @0x12
0x27e9…2811 at0013 = ╱56╱V╱ // 0x27fc @0x13
0x27e9…2811 at0014 = ╱4e╱N╱ // 0x27fd @0x14
0x27e9…2811 at0015 = ╱ef╱ $ ╱ // 0x27fe @0x15
0x27e9…2811 at0016 = ╱ea╱ ; ╱ // 0x27ff @0x16
0x27e9…2811 at0017 = ╱22╱"╱ // 0x2800 @0x17
0x27e9…2811 at0018 = ╱20╱…╱ // 0x2801 @0x18
0x27e9…2811 at0019 = ╱2a╱*╱ // 0x2802 @0x19
0x27e9…2811 at001a = ╱2a╱*╱ // 0x2803 @0x1a
0x27e9…2811 at001b = ╱2a╱*╱ // 0x2804 @0x1b
0x27e9…2811 at001c = ╱22╱"╱ // 0x2805 @0x1c
0x27e9…2811 at001d = ╱ea╱ ; ╱ // 0x2806 @0x1d
0x27e9…2811 at001e = ╱d2╱ TAB ╱ // 0x2807 @0x1e
0x27e9…2811 at001f = ╱ed╱ ( ╱ // 0x2808 @0x1f
0x27e9…2811 at0020 = ╱34╱4╱ // 0x2809 @0x20
0x27e9…2811 at0021 = ╱32╱2╱ // 0x280a @0x21
0x27e9…2811 at0022 = ╱f22a00╱ // 0x280b @0x22
0x27e9…2811 at0025 = ╱ee╱ ) ╱ // 0x280e @0x25
0x27e9…2811 at0026 = ╱ea╱ ; ╱ // 0x280f @0x26
0x27e9…2811 at0027 = EOL // 0x2810 @0x27
0x27e9…2811 }
0x2811…285e be4c 02720 PRINT "***…UDSKREVET…PR.…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ;
0x2811…285e LineComal80 {
0x2811…285e ptr = 0xbe4c // 0x2811 @0x0
0x2811…285e lno = 0x0aa0 // 0x2813 @0x2
0x2811…285e at0004 = ╱92╱ PRINT ╱ // 0x2815 @0x4
0x2811…285e at0005 = ╱22╱"╱ // 0x2816 @0x5
0x2811…285e at0006 = ╱2a╱*╱ // 0x2817 @0x6
0x2811…285e at0007 = ╱2a╱*╱ // 0x2818 @0x7
0x2811…285e at0008 = ╱2a╱*╱ // 0x2819 @0x8
0x2811…285e at0009 = ╱20╱…╱ // 0x281a @0x9
0x2811…285e at000a = ╱55╱U╱ // 0x281b @0xa
0x2811…285e at000b = ╱44╱D╱ // 0x281c @0xb
0x2811…285e at000c = ╱53╱S╱ // 0x281d @0xc
0x2811…285e at000d = ╱4b╱K╱ // 0x281e @0xd
0x2811…285e at000e = ╱52╱R╱ // 0x281f @0xe
0x2811…285e at000f = ╱45╱E╱ // 0x2820 @0xf
0x2811…285e at0010 = ╱56╱V╱ // 0x2821 @0x10
0x2811…285e at0011 = ╱45╱E╱ // 0x2822 @0x11
0x2811…285e at0012 = ╱54╱T╱ // 0x2823 @0x12
0x2811…285e at0013 = ╱20╱…╱ // 0x2824 @0x13
0x2811…285e at0014 = ╱50╱P╱ // 0x2825 @0x14
0x2811…285e at0015 = ╱52╱R╱ // 0x2826 @0x15
0x2811…285e at0016 = ╱2e╱.╱ // 0x2827 @0x16
0x2811…285e at0017 = ╱20╱…╱ // 0x2828 @0x17
0x2811…285e at0018 = ╱22╱"╱ // 0x2829 @0x18
0x2811…285e at0019 = ╱ea╱ ; ╱ // 0x282a @0x19
0x2811…285e at001a = ╱53╱S╱ // 0x282b @0x1a
0x2811…285e at001b = ╱59╱Y╱ // 0x282c @0x1b
0x2811…285e at001c = ╱53╱S╱ // 0x282d @0x1c
0x2811…285e at001d = ╱54╱T╱ // 0x282e @0x1d
0x2811…285e at001e = ╱5f╱_╱ // 0x282f @0x1e
0x2811…285e at001f = ╱44╱D╱ // 0x2830 @0x1f
0x2811…285e at0020 = ╱41╱A╱ // 0x2831 @0x20
0x2811…285e at0021 = ╱54╱T╱ // 0x2832 @0x21
0x2811…285e at0022 = ╱ef╱ $ ╱ // 0x2833 @0x22
0x2811…285e at0023 = ╱ed╱ ( ╱ // 0x2834 @0x23
0x2811…285e at0024 = ╱31╱1╱ // 0x2835 @0x24
0x2811…285e at0025 = ╱f20100╱ // 0x2836 @0x25
0x2811…285e at0028 = ╱f1╱ : ╱ // 0x2839 @0x28
0x2811…285e at0029 = ╱32╱2╱ // 0x283a @0x29
0x2811…285e at002a = ╱f20200╱ // 0x283b @0x2a
0x2811…285e at002d = ╱ee╱ ) ╱ // 0x283e @0x2d
0x2811…285e at002e = ╱ea╱ ; ╱ // 0x283f @0x2e
0x2811…285e at002f = ╱22╱"╱ // 0x2840 @0x2f
0x2811…285e at0030 = ╱2e╱.╱ // 0x2841 @0x30
0x2811…285e at0031 = ╱22╱"╱ // 0x2842 @0x31
0x2811…285e at0032 = ╱ea╱ ; ╱ // 0x2843 @0x32
0x2811…285e at0033 = ╱53╱S╱ // 0x2844 @0x33
0x2811…285e at0034 = ╱59╱Y╱ // 0x2845 @0x34
0x2811…285e at0035 = ╱53╱S╱ // 0x2846 @0x35
0x2811…285e at0036 = ╱54╱T╱ // 0x2847 @0x36
0x2811…285e at0037 = ╱5f╱_╱ // 0x2848 @0x37
0x2811…285e at0038 = ╱44╱D╱ // 0x2849 @0x38
0x2811…285e at0039 = ╱41╱A╱ // 0x284a @0x39
0x2811…285e at003a = ╱54╱T╱ // 0x284b @0x3a
0x2811…285e at003b = ╱ef╱ $ ╱ // 0x284c @0x3b
0x2811…285e at003c = ╱ed╱ ( ╱ // 0x284d @0x3c
0x2811…285e at003d = ╱33╱3╱ // 0x284e @0x3d
0x2811…285e at003e = ╱f20300╱ // 0x284f @0x3e
0x2811…285e at0041 = ╱f1╱ : ╱ // 0x2852 @0x41
0x2811…285e at0042 = ╱32╱2╱ // 0x2853 @0x42
0x2811…285e at0043 = ╱f20200╱ // 0x2854 @0x43
0x2811…285e at0046 = ╱ee╱ ) ╱ // 0x2857 @0x46
0x2811…285e at0047 = ╱ea╱ ; ╱ // 0x2858 @0x47
0x2811…285e at0048 = ╱22╱"╱ // 0x2859 @0x48
0x2811…285e at0049 = ╱2e╱.╱ // 0x285a @0x49
0x2811…285e at004a = ╱22╱"╱ // 0x285b @0x4a
0x2811…285e at004b = ╱ea╱ ; ╱ // 0x285c @0x4b
0x2811…285e at004c = EOL // 0x285d @0x4c
0x2811…285e }
0x285e…288d be7b 02730 PRINT SYST_DAT $ ( 5 : 2 ) ; "…***…SIDE:…" ; SIDENR
0x285e…288d LineComal80 {
0x285e…288d ptr = 0xbe7b // 0x285e @0x0
0x285e…288d lno = 0x0aaa // 0x2860 @0x2
0x285e…288d at0004 = ╱92╱ PRINT ╱ // 0x2862 @0x4
0x285e…288d at0005 = ╱53╱S╱ // 0x2863 @0x5
0x285e…288d at0006 = ╱59╱Y╱ // 0x2864 @0x6
0x285e…288d at0007 = ╱53╱S╱ // 0x2865 @0x7
0x285e…288d at0008 = ╱54╱T╱ // 0x2866 @0x8
0x285e…288d at0009 = ╱5f╱_╱ // 0x2867 @0x9
0x285e…288d at000a = ╱44╱D╱ // 0x2868 @0xa
0x285e…288d at000b = ╱41╱A╱ // 0x2869 @0xb
0x285e…288d at000c = ╱54╱T╱ // 0x286a @0xc
0x285e…288d at000d = ╱ef╱ $ ╱ // 0x286b @0xd
0x285e…288d at000e = ╱ed╱ ( ╱ // 0x286c @0xe
0x285e…288d at000f = ╱35╱5╱ // 0x286d @0xf
0x285e…288d at0010 = ╱f20500╱ // 0x286e @0x10
0x285e…288d at0013 = ╱f1╱ : ╱ // 0x2871 @0x13
0x285e…288d at0014 = ╱32╱2╱ // 0x2872 @0x14
0x285e…288d at0015 = ╱f20200╱ // 0x2873 @0x15
0x285e…288d at0018 = ╱ee╱ ) ╱ // 0x2876 @0x18
0x285e…288d at0019 = ╱ea╱ ; ╱ // 0x2877 @0x19
0x285e…288d at001a = ╱22╱"╱ // 0x2878 @0x1a
0x285e…288d at001b = ╱20╱…╱ // 0x2879 @0x1b
0x285e…288d at001c = ╱2a╱*╱ // 0x287a @0x1c
0x285e…288d at001d = ╱2a╱*╱ // 0x287b @0x1d
0x285e…288d at001e = ╱2a╱*╱ // 0x287c @0x1e
0x285e…288d at001f = ╱20╱…╱ // 0x287d @0x1f
0x285e…288d at0020 = ╱53╱S╱ // 0x287e @0x20
0x285e…288d at0021 = ╱49╱I╱ // 0x287f @0x21
0x285e…288d at0022 = ╱44╱D╱ // 0x2880 @0x22
0x285e…288d at0023 = ╱45╱E╱ // 0x2881 @0x23
0x285e…288d at0024 = ╱3a╱:╱ // 0x2882 @0x24
0x285e…288d at0025 = ╱20╱…╱ // 0x2883 @0x25
0x285e…288d at0026 = ╱22╱"╱ // 0x2884 @0x26
0x285e…288d at0027 = ╱ea╱ ; ╱ // 0x2885 @0x27
0x285e…288d at0028 = ╱53╱S╱ // 0x2886 @0x28
0x285e…288d at0029 = ╱49╱I╱ // 0x2887 @0x29
0x285e…288d at002a = ╱44╱D╱ // 0x2888 @0x2a
0x285e…288d at002b = ╱45╱E╱ // 0x2889 @0x2b
0x285e…288d at002c = ╱4e╱N╱ // 0x288a @0x2c
0x285e…288d at002d = ╱52╱R╱ // 0x288b @0x2d
0x285e…288d at002e = EOL // 0x288c @0x2e
0x285e…288d }
0x288d…2893 be81 02740 PRINT
0x288d…2893 LineComal80 {
0x288d…2893 ptr = 0xbe81 // 0x288d @0x0
0x288d…2893 lno = 0x0ab4 // 0x288f @0x2
0x288d…2893 at0004 = ╱92╱ PRINT ╱ // 0x2891 @0x4
0x288d…2893 at0005 = EOL // 0x2892 @0x5
0x288d…2893 }
0x2893…28cc beba 02750 PRINT "Firmanavn:…" ; FIRMANAVN $ ; TAB ( 55 ) ; "**…KONTOKORT…**"
0x2893…28cc LineComal80 {
0x2893…28cc ptr = 0xbeba // 0x2893 @0x0
0x2893…28cc lno = 0x0abe // 0x2895 @0x2
0x2893…28cc at0004 = ╱92╱ PRINT ╱ // 0x2897 @0x4
0x2893…28cc at0005 = ╱22╱"╱ // 0x2898 @0x5
0x2893…28cc at0006 = ╱46╱F╱ // 0x2899 @0x6
0x2893…28cc at0007 = ╱69╱i╱ // 0x289a @0x7
0x2893…28cc at0008 = ╱72╱r╱ // 0x289b @0x8
0x2893…28cc at0009 = ╱6d╱m╱ // 0x289c @0x9
0x2893…28cc at000a = ╱61╱a╱ // 0x289d @0xa
0x2893…28cc at000b = ╱6e╱n╱ // 0x289e @0xb
0x2893…28cc at000c = ╱61╱a╱ // 0x289f @0xc
0x2893…28cc at000d = ╱76╱v╱ // 0x28a0 @0xd
0x2893…28cc at000e = ╱6e╱n╱ // 0x28a1 @0xe
0x2893…28cc at000f = ╱3a╱:╱ // 0x28a2 @0xf
0x2893…28cc at0010 = ╱20╱…╱ // 0x28a3 @0x10
0x2893…28cc at0011 = ╱22╱"╱ // 0x28a4 @0x11
0x2893…28cc at0012 = ╱ea╱ ; ╱ // 0x28a5 @0x12
0x2893…28cc at0013 = ╱46╱F╱ // 0x28a6 @0x13
0x2893…28cc at0014 = ╱49╱I╱ // 0x28a7 @0x14
0x2893…28cc at0015 = ╱52╱R╱ // 0x28a8 @0x15
0x2893…28cc at0016 = ╱4d╱M╱ // 0x28a9 @0x16
0x2893…28cc at0017 = ╱41╱A╱ // 0x28aa @0x17
0x2893…28cc at0018 = ╱4e╱N╱ // 0x28ab @0x18
0x2893…28cc at0019 = ╱41╱A╱ // 0x28ac @0x19
0x2893…28cc at001a = ╱56╱V╱ // 0x28ad @0x1a
0x2893…28cc at001b = ╱4e╱N╱ // 0x28ae @0x1b
0x2893…28cc at001c = ╱ef╱ $ ╱ // 0x28af @0x1c
0x2893…28cc at001d = ╱ea╱ ; ╱ // 0x28b0 @0x1d
0x2893…28cc at001e = ╱d2╱ TAB ╱ // 0x28b1 @0x1e
0x2893…28cc at001f = ╱ed╱ ( ╱ // 0x28b2 @0x1f
0x2893…28cc at0020 = ╱35╱5╱ // 0x28b3 @0x20
0x2893…28cc at0021 = ╱35╱5╱ // 0x28b4 @0x21
0x2893…28cc at0022 = ╱f23700╱ // 0x28b5 @0x22
0x2893…28cc at0025 = ╱ee╱ ) ╱ // 0x28b8 @0x25
0x2893…28cc at0026 = ╱ea╱ ; ╱ // 0x28b9 @0x26
0x2893…28cc at0027 = ╱22╱"╱ // 0x28ba @0x27
0x2893…28cc at0028 = ╱2a╱*╱ // 0x28bb @0x28
0x2893…28cc at0029 = ╱2a╱*╱ // 0x28bc @0x29
0x2893…28cc at002a = ╱20╱…╱ // 0x28bd @0x2a
0x2893…28cc at002b = ╱4b╱K╱ // 0x28be @0x2b
0x2893…28cc at002c = ╱4f╱O╱ // 0x28bf @0x2c
0x2893…28cc at002d = ╱4e╱N╱ // 0x28c0 @0x2d
0x2893…28cc at002e = ╱54╱T╱ // 0x28c1 @0x2e
0x2893…28cc at002f = ╱4f╱O╱ // 0x28c2 @0x2f
0x2893…28cc at0030 = ╱4b╱K╱ // 0x28c3 @0x30
0x2893…28cc at0031 = ╱4f╱O╱ // 0x28c4 @0x31
0x2893…28cc at0032 = ╱52╱R╱ // 0x28c5 @0x32
0x2893…28cc at0033 = ╱54╱T╱ // 0x28c6 @0x33
0x2893…28cc at0034 = ╱20╱…╱ // 0x28c7 @0x34
0x2893…28cc at0035 = ╱2a╱*╱ // 0x28c8 @0x35
0x2893…28cc at0036 = ╱2a╱*╱ // 0x28c9 @0x36
0x2893…28cc at0037 = ╱22╱"╱ // 0x28ca @0x37
0x2893…28cc at0038 = EOL // 0x28cb @0x38
0x2893…28cc }
0x28cc…28d2 bec0 02760 PRINT
0x28cc…28d2 LineComal80 {
0x28cc…28d2 ptr = 0xbec0 // 0x28cc @0x0
0x28cc…28d2 lno = 0x0ac8 // 0x28ce @0x2
0x28cc…28d2 at0004 = ╱92╱ PRINT ╱ // 0x28d0 @0x4
0x28cc…28d2 at0005 = EOL // 0x28d1 @0x5
0x28cc…28d2 }
0x28d2…291c bf0a 02770 PRINT "**…KONTONR:…" ; KTONR $ ; TAB ( 25 ) ; "KONTONAVN:…" ; KTO_NAVN $ ; TAB ( 78 ) ; "**"
0x28d2…291c LineComal80 {
0x28d2…291c ptr = 0xbf0a // 0x28d2 @0x0
0x28d2…291c lno = 0x0ad2 // 0x28d4 @0x2
0x28d2…291c at0004 = ╱92╱ PRINT ╱ // 0x28d6 @0x4
0x28d2…291c at0005 = ╱22╱"╱ // 0x28d7 @0x5
0x28d2…291c at0006 = ╱2a╱*╱ // 0x28d8 @0x6
0x28d2…291c at0007 = ╱2a╱*╱ // 0x28d9 @0x7
0x28d2…291c at0008 = ╱20╱…╱ // 0x28da @0x8
0x28d2…291c at0009 = ╱4b╱K╱ // 0x28db @0x9
0x28d2…291c at000a = ╱4f╱O╱ // 0x28dc @0xa
0x28d2…291c at000b = ╱4e╱N╱ // 0x28dd @0xb
0x28d2…291c at000c = ╱54╱T╱ // 0x28de @0xc
0x28d2…291c at000d = ╱4f╱O╱ // 0x28df @0xd
0x28d2…291c at000e = ╱4e╱N╱ // 0x28e0 @0xe
0x28d2…291c at000f = ╱52╱R╱ // 0x28e1 @0xf
0x28d2…291c at0010 = ╱3a╱:╱ // 0x28e2 @0x10
0x28d2…291c at0011 = ╱20╱…╱ // 0x28e3 @0x11
0x28d2…291c at0012 = ╱22╱"╱ // 0x28e4 @0x12
0x28d2…291c at0013 = ╱ea╱ ; ╱ // 0x28e5 @0x13
0x28d2…291c at0014 = ╱4b╱K╱ // 0x28e6 @0x14
0x28d2…291c at0015 = ╱54╱T╱ // 0x28e7 @0x15
0x28d2…291c at0016 = ╱4f╱O╱ // 0x28e8 @0x16
0x28d2…291c at0017 = ╱4e╱N╱ // 0x28e9 @0x17
0x28d2…291c at0018 = ╱52╱R╱ // 0x28ea @0x18
0x28d2…291c at0019 = ╱ef╱ $ ╱ // 0x28eb @0x19
0x28d2…291c at001a = ╱ea╱ ; ╱ // 0x28ec @0x1a
0x28d2…291c at001b = ╱d2╱ TAB ╱ // 0x28ed @0x1b
0x28d2…291c at001c = ╱ed╱ ( ╱ // 0x28ee @0x1c
0x28d2…291c at001d = ╱32╱2╱ // 0x28ef @0x1d
0x28d2…291c at001e = ╱35╱5╱ // 0x28f0 @0x1e
0x28d2…291c at001f = ╱f21900╱ // 0x28f1 @0x1f
0x28d2…291c at0022 = ╱ee╱ ) ╱ // 0x28f4 @0x22
0x28d2…291c at0023 = ╱ea╱ ; ╱ // 0x28f5 @0x23
0x28d2…291c at0024 = ╱22╱"╱ // 0x28f6 @0x24
0x28d2…291c at0025 = ╱4b╱K╱ // 0x28f7 @0x25
0x28d2…291c at0026 = ╱4f╱O╱ // 0x28f8 @0x26
0x28d2…291c at0027 = ╱4e╱N╱ // 0x28f9 @0x27
0x28d2…291c at0028 = ╱54╱T╱ // 0x28fa @0x28
0x28d2…291c at0029 = ╱4f╱O╱ // 0x28fb @0x29
0x28d2…291c at002a = ╱4e╱N╱ // 0x28fc @0x2a
0x28d2…291c at002b = ╱41╱A╱ // 0x28fd @0x2b
0x28d2…291c at002c = ╱56╱V╱ // 0x28fe @0x2c
0x28d2…291c at002d = ╱4e╱N╱ // 0x28ff @0x2d
0x28d2…291c at002e = ╱3a╱:╱ // 0x2900 @0x2e
0x28d2…291c at002f = ╱20╱…╱ // 0x2901 @0x2f
0x28d2…291c at0030 = ╱22╱"╱ // 0x2902 @0x30
0x28d2…291c at0031 = ╱ea╱ ; ╱ // 0x2903 @0x31
0x28d2…291c at0032 = ╱4b╱K╱ // 0x2904 @0x32
0x28d2…291c at0033 = ╱54╱T╱ // 0x2905 @0x33
0x28d2…291c at0034 = ╱4f╱O╱ // 0x2906 @0x34
0x28d2…291c at0035 = ╱5f╱_╱ // 0x2907 @0x35
0x28d2…291c at0036 = ╱4e╱N╱ // 0x2908 @0x36
0x28d2…291c at0037 = ╱41╱A╱ // 0x2909 @0x37
0x28d2…291c at0038 = ╱56╱V╱ // 0x290a @0x38
0x28d2…291c at0039 = ╱4e╱N╱ // 0x290b @0x39
0x28d2…291c at003a = ╱ef╱ $ ╱ // 0x290c @0x3a
0x28d2…291c at003b = ╱ea╱ ; ╱ // 0x290d @0x3b
0x28d2…291c at003c = ╱d2╱ TAB ╱ // 0x290e @0x3c
0x28d2…291c at003d = ╱ed╱ ( ╱ // 0x290f @0x3d
0x28d2…291c at003e = ╱37╱7╱ // 0x2910 @0x3e
0x28d2…291c at003f = ╱38╱8╱ // 0x2911 @0x3f
0x28d2…291c at0040 = ╱f24e00╱ // 0x2912 @0x40
0x28d2…291c at0043 = ╱ee╱ ) ╱ // 0x2915 @0x43
0x28d2…291c at0044 = ╱ea╱ ; ╱ // 0x2916 @0x44
0x28d2…291c at0045 = ╱22╱"╱ // 0x2917 @0x45
0x28d2…291c at0046 = ╱2a╱*╱ // 0x2918 @0x46
0x28d2…291c at0047 = ╱2a╱*╱ // 0x2919 @0x47
0x28d2…291c at0048 = ╱22╱"╱ // 0x291a @0x48
0x28d2…291c at0049 = EOL // 0x291b @0x49
0x28d2…291c }
0x291c…294e bf3c 02780 PRINT "<S>---------------------------------------"
0x291c…294e LineComal80 {
0x291c…294e ptr = 0xbf3c // 0x291c @0x0
0x291c…294e lno = 0x0adc // 0x291e @0x2
0x291c…294e at0004 = ╱92╱ PRINT ╱ // 0x2920 @0x4
0x291c…294e at0005 = ╱22╱"╱ // 0x2921 @0x5
0x291c…294e at0006 = ╱3c╱<╱ // 0x2922 @0x6
0x291c…294e at0007 = ╱53╱S╱ // 0x2923 @0x7
0x291c…294e at0008 = ╱3e╱>╱ // 0x2924 @0x8
0x291c…294e at0009 = ╱2d╱-╱ // 0x2925 @0x9
0x291c…294e at000a = ╱2d╱-╱ // 0x2926 @0xa
0x291c…294e at000b = ╱2d╱-╱ // 0x2927 @0xb
0x291c…294e at000c = ╱2d╱-╱ // 0x2928 @0xc
0x291c…294e at000d = ╱2d╱-╱ // 0x2929 @0xd
0x291c…294e at000e = ╱2d╱-╱ // 0x292a @0xe
0x291c…294e at000f = ╱2d╱-╱ // 0x292b @0xf
0x291c…294e at0010 = ╱2d╱-╱ // 0x292c @0x10
0x291c…294e at0011 = ╱2d╱-╱ // 0x292d @0x11
0x291c…294e at0012 = ╱2d╱-╱ // 0x292e @0x12
0x291c…294e at0013 = ╱2d╱-╱ // 0x292f @0x13
0x291c…294e at0014 = ╱2d╱-╱ // 0x2930 @0x14
0x291c…294e at0015 = ╱2d╱-╱ // 0x2931 @0x15
0x291c…294e at0016 = ╱2d╱-╱ // 0x2932 @0x16
0x291c…294e at0017 = ╱2d╱-╱ // 0x2933 @0x17
0x291c…294e at0018 = ╱2d╱-╱ // 0x2934 @0x18
0x291c…294e at0019 = ╱2d╱-╱ // 0x2935 @0x19
0x291c…294e at001a = ╱2d╱-╱ // 0x2936 @0x1a
0x291c…294e at001b = ╱2d╱-╱ // 0x2937 @0x1b
0x291c…294e at001c = ╱2d╱-╱ // 0x2938 @0x1c
0x291c…294e at001d = ╱2d╱-╱ // 0x2939 @0x1d
0x291c…294e at001e = ╱2d╱-╱ // 0x293a @0x1e
0x291c…294e at001f = ╱2d╱-╱ // 0x293b @0x1f
0x291c…294e at0020 = ╱2d╱-╱ // 0x293c @0x20
0x291c…294e at0021 = ╱2d╱-╱ // 0x293d @0x21
0x291c…294e at0022 = ╱2d╱-╱ // 0x293e @0x22
0x291c…294e at0023 = ╱2d╱-╱ // 0x293f @0x23
0x291c…294e at0024 = ╱2d╱-╱ // 0x2940 @0x24
0x291c…294e at0025 = ╱2d╱-╱ // 0x2941 @0x25
0x291c…294e at0026 = ╱2d╱-╱ // 0x2942 @0x26
0x291c…294e at0027 = ╱2d╱-╱ // 0x2943 @0x27
0x291c…294e at0028 = ╱2d╱-╱ // 0x2944 @0x28
0x291c…294e at0029 = ╱2d╱-╱ // 0x2945 @0x29
0x291c…294e at002a = ╱2d╱-╱ // 0x2946 @0x2a
0x291c…294e at002b = ╱2d╱-╱ // 0x2947 @0x2b
0x291c…294e at002c = ╱2d╱-╱ // 0x2948 @0x2c
0x291c…294e at002d = ╱2d╱-╱ // 0x2949 @0x2d
0x291c…294e at002e = ╱2d╱-╱ // 0x294a @0x2e
0x291c…294e at002f = ╱2d╱-╱ // 0x294b @0x2f
0x291c…294e at0030 = ╱22╱"╱ // 0x294c @0x30
0x291c…294e at0031 = EOL // 0x294d @0x31
0x291c…294e }
0x294e…297e bf6c 02790 PRINT "----------------------------------------"
0x294e…297e LineComal80 {
0x294e…297e ptr = 0xbf6c // 0x294e @0x0
0x294e…297e lno = 0x0ae6 // 0x2950 @0x2
0x294e…297e at0004 = ╱92╱ PRINT ╱ // 0x2952 @0x4
0x294e…297e at0005 = ╱22╱"╱ // 0x2953 @0x5
0x294e…297e at0006 = ╱2d╱-╱ // 0x2954 @0x6
0x294e…297e at0007 = ╱2d╱-╱ // 0x2955 @0x7
0x294e…297e at0008 = ╱2d╱-╱ // 0x2956 @0x8
0x294e…297e at0009 = ╱2d╱-╱ // 0x2957 @0x9
0x294e…297e at000a = ╱2d╱-╱ // 0x2958 @0xa
0x294e…297e at000b = ╱2d╱-╱ // 0x2959 @0xb
0x294e…297e at000c = ╱2d╱-╱ // 0x295a @0xc
0x294e…297e at000d = ╱2d╱-╱ // 0x295b @0xd
0x294e…297e at000e = ╱2d╱-╱ // 0x295c @0xe
0x294e…297e at000f = ╱2d╱-╱ // 0x295d @0xf
0x294e…297e at0010 = ╱2d╱-╱ // 0x295e @0x10
0x294e…297e at0011 = ╱2d╱-╱ // 0x295f @0x11
0x294e…297e at0012 = ╱2d╱-╱ // 0x2960 @0x12
0x294e…297e at0013 = ╱2d╱-╱ // 0x2961 @0x13
0x294e…297e at0014 = ╱2d╱-╱ // 0x2962 @0x14
0x294e…297e at0015 = ╱2d╱-╱ // 0x2963 @0x15
0x294e…297e at0016 = ╱2d╱-╱ // 0x2964 @0x16
0x294e…297e at0017 = ╱2d╱-╱ // 0x2965 @0x17
0x294e…297e at0018 = ╱2d╱-╱ // 0x2966 @0x18
0x294e…297e at0019 = ╱2d╱-╱ // 0x2967 @0x19
0x294e…297e at001a = ╱2d╱-╱ // 0x2968 @0x1a
0x294e…297e at001b = ╱2d╱-╱ // 0x2969 @0x1b
0x294e…297e at001c = ╱2d╱-╱ // 0x296a @0x1c
0x294e…297e at001d = ╱2d╱-╱ // 0x296b @0x1d
0x294e…297e at001e = ╱2d╱-╱ // 0x296c @0x1e
0x294e…297e at001f = ╱2d╱-╱ // 0x296d @0x1f
0x294e…297e at0020 = ╱2d╱-╱ // 0x296e @0x20
0x294e…297e at0021 = ╱2d╱-╱ // 0x296f @0x21
0x294e…297e at0022 = ╱2d╱-╱ // 0x2970 @0x22
0x294e…297e at0023 = ╱2d╱-╱ // 0x2971 @0x23
0x294e…297e at0024 = ╱2d╱-╱ // 0x2972 @0x24
0x294e…297e at0025 = ╱2d╱-╱ // 0x2973 @0x25
0x294e…297e at0026 = ╱2d╱-╱ // 0x2974 @0x26
0x294e…297e at0027 = ╱2d╱-╱ // 0x2975 @0x27
0x294e…297e at0028 = ╱2d╱-╱ // 0x2976 @0x28
0x294e…297e at0029 = ╱2d╱-╱ // 0x2977 @0x29
0x294e…297e at002a = ╱2d╱-╱ // 0x2978 @0x2a
0x294e…297e at002b = ╱2d╱-╱ // 0x2979 @0x2b
0x294e…297e at002c = ╱2d╱-╱ // 0x297a @0x2c
0x294e…297e at002d = ╱2d╱-╱ // 0x297b @0x2d
0x294e…297e at002e = ╱22╱"╱ // 0x297c @0x2e
0x294e…297e at002f = EOL // 0x297d @0x2f
0x294e…297e }
0x297e…29c2 bfb0 02800 PRINT "<S>……DATO…………BILAG……TEKST" ; TAB ( 47 ) ; "DEBETBEL\B……KREDITBEL\B"
0x297e…29c2 LineComal80 {
0x297e…29c2 ptr = 0xbfb0 // 0x297e @0x0
0x297e…29c2 lno = 0x0af0 // 0x2980 @0x2
0x297e…29c2 at0004 = ╱92╱ PRINT ╱ // 0x2982 @0x4
0x297e…29c2 at0005 = ╱22╱"╱ // 0x2983 @0x5
0x297e…29c2 at0006 = ╱3c╱<╱ // 0x2984 @0x6
0x297e…29c2 at0007 = ╱53╱S╱ // 0x2985 @0x7
0x297e…29c2 at0008 = ╱3e╱>╱ // 0x2986 @0x8
0x297e…29c2 at0009 = ╱20╱…╱ // 0x2987 @0x9
0x297e…29c2 at000a = ╱20╱…╱ // 0x2988 @0xa
0x297e…29c2 at000b = ╱44╱D╱ // 0x2989 @0xb
0x297e…29c2 at000c = ╱41╱A╱ // 0x298a @0xc
0x297e…29c2 at000d = ╱54╱T╱ // 0x298b @0xd
0x297e…29c2 at000e = ╱4f╱O╱ // 0x298c @0xe
0x297e…29c2 at000f = ╱20╱…╱ // 0x298d @0xf
0x297e…29c2 at0010 = ╱20╱…╱ // 0x298e @0x10
0x297e…29c2 at0011 = ╱20╱…╱ // 0x298f @0x11
0x297e…29c2 at0012 = ╱20╱…╱ // 0x2990 @0x12
0x297e…29c2 at0013 = ╱42╱B╱ // 0x2991 @0x13
0x297e…29c2 at0014 = ╱49╱I╱ // 0x2992 @0x14
0x297e…29c2 at0015 = ╱4c╱L╱ // 0x2993 @0x15
0x297e…29c2 at0016 = ╱41╱A╱ // 0x2994 @0x16
0x297e…29c2 at0017 = ╱47╱G╱ // 0x2995 @0x17
0x297e…29c2 at0018 = ╱20╱…╱ // 0x2996 @0x18
0x297e…29c2 at0019 = ╱20╱…╱ // 0x2997 @0x19
0x297e…29c2 at001a = ╱54╱T╱ // 0x2998 @0x1a
0x297e…29c2 at001b = ╱45╱E╱ // 0x2999 @0x1b
0x297e…29c2 at001c = ╱4b╱K╱ // 0x299a @0x1c
0x297e…29c2 at001d = ╱53╱S╱ // 0x299b @0x1d
0x297e…29c2 at001e = ╱54╱T╱ // 0x299c @0x1e
0x297e…29c2 at001f = ╱22╱"╱ // 0x299d @0x1f
0x297e…29c2 at0020 = ╱ea╱ ; ╱ // 0x299e @0x20
0x297e…29c2 at0021 = ╱d2╱ TAB ╱ // 0x299f @0x21
0x297e…29c2 at0022 = ╱ed╱ ( ╱ // 0x29a0 @0x22
0x297e…29c2 at0023 = ╱34╱4╱ // 0x29a1 @0x23
0x297e…29c2 at0024 = ╱37╱7╱ // 0x29a2 @0x24
0x297e…29c2 at0025 = ╱f22f00╱ // 0x29a3 @0x25
0x297e…29c2 at0028 = ╱ee╱ ) ╱ // 0x29a6 @0x28
0x297e…29c2 at0029 = ╱ea╱ ; ╱ // 0x29a7 @0x29
0x297e…29c2 at002a = ╱22╱"╱ // 0x29a8 @0x2a
0x297e…29c2 at002b = ╱44╱D╱ // 0x29a9 @0x2b
0x297e…29c2 at002c = ╱45╱E╱ // 0x29aa @0x2c
0x297e…29c2 at002d = ╱42╱B╱ // 0x29ab @0x2d
0x297e…29c2 at002e = ╱45╱E╱ // 0x29ac @0x2e
0x297e…29c2 at002f = ╱54╱T╱ // 0x29ad @0x2f
0x297e…29c2 at0030 = ╱42╱B╱ // 0x29ae @0x30
0x297e…29c2 at0031 = ╱45╱E╱ // 0x29af @0x31
0x297e…29c2 at0032 = ╱4c╱L╱ // 0x29b0 @0x32
0x297e…29c2 at0033 = ╱5c╱\╱ // 0x29b1 @0x33
0x297e…29c2 at0034 = ╱42╱B╱ // 0x29b2 @0x34
0x297e…29c2 at0035 = ╱20╱…╱ // 0x29b3 @0x35
0x297e…29c2 at0036 = ╱20╱…╱ // 0x29b4 @0x36
0x297e…29c2 at0037 = ╱4b╱K╱ // 0x29b5 @0x37
0x297e…29c2 at0038 = ╱52╱R╱ // 0x29b6 @0x38
0x297e…29c2 at0039 = ╱45╱E╱ // 0x29b7 @0x39
0x297e…29c2 at003a = ╱44╱D╱ // 0x29b8 @0x3a
0x297e…29c2 at003b = ╱49╱I╱ // 0x29b9 @0x3b
0x297e…29c2 at003c = ╱54╱T╱ // 0x29ba @0x3c
0x297e…29c2 at003d = ╱42╱B╱ // 0x29bb @0x3d
0x297e…29c2 at003e = ╱45╱E╱ // 0x29bc @0x3e
0x297e…29c2 at003f = ╱4c╱L╱ // 0x29bd @0x3f
0x297e…29c2 at0040 = ╱5c╱\╱ // 0x29be @0x40
0x297e…29c2 at0041 = ╱42╱B╱ // 0x29bf @0x41
0x297e…29c2 at0042 = ╱22╱"╱ // 0x29c0 @0x42
0x297e…29c2 at0043 = EOL // 0x29c1 @0x43
0x297e…29c2 }
0x29c2…29d3 bfc1 02810 PRINT "…………SALDO"
0x29c2…29d3 LineComal80 {
0x29c2…29d3 ptr = 0xbfc1 // 0x29c2 @0x0
0x29c2…29d3 lno = 0x0afa // 0x29c4 @0x2
0x29c2…29d3 at0004 = ╱92╱ PRINT ╱ // 0x29c6 @0x4
0x29c2…29d3 at0005 = ╱22╱"╱ // 0x29c7 @0x5
0x29c2…29d3 at0006 = ╱20╱…╱ // 0x29c8 @0x6
0x29c2…29d3 at0007 = ╱20╱…╱ // 0x29c9 @0x7
0x29c2…29d3 at0008 = ╱20╱…╱ // 0x29ca @0x8
0x29c2…29d3 at0009 = ╱20╱…╱ // 0x29cb @0x9
0x29c2…29d3 at000a = ╱53╱S╱ // 0x29cc @0xa
0x29c2…29d3 at000b = ╱41╱A╱ // 0x29cd @0xb
0x29c2…29d3 at000c = ╱4c╱L╱ // 0x29ce @0xc
0x29c2…29d3 at000d = ╱44╱D╱ // 0x29cf @0xd
0x29c2…29d3 at000e = ╱4f╱O╱ // 0x29d0 @0xe
0x29c2…29d3 at000f = ╱22╱"╱ // 0x29d1 @0xf
0x29c2…29d3 at0010 = EOL // 0x29d2 @0x10
0x29c2…29d3 }
0x29d3…2a06 bff4 02820 PRINT "<S>----------------------------------------"
0x29d3…2a06 LineComal80 {
0x29d3…2a06 ptr = 0xbff4 // 0x29d3 @0x0
0x29d3…2a06 lno = 0x0b04 // 0x29d5 @0x2
0x29d3…2a06 at0004 = ╱92╱ PRINT ╱ // 0x29d7 @0x4
0x29d3…2a06 at0005 = ╱22╱"╱ // 0x29d8 @0x5
0x29d3…2a06 at0006 = ╱3c╱<╱ // 0x29d9 @0x6
0x29d3…2a06 at0007 = ╱53╱S╱ // 0x29da @0x7
0x29d3…2a06 at0008 = ╱3e╱>╱ // 0x29db @0x8
0x29d3…2a06 at0009 = ╱2d╱-╱ // 0x29dc @0x9
0x29d3…2a06 at000a = ╱2d╱-╱ // 0x29dd @0xa
0x29d3…2a06 at000b = ╱2d╱-╱ // 0x29de @0xb
0x29d3…2a06 at000c = ╱2d╱-╱ // 0x29df @0xc
0x29d3…2a06 at000d = ╱2d╱-╱ // 0x29e0 @0xd
0x29d3…2a06 at000e = ╱2d╱-╱ // 0x29e1 @0xe
0x29d3…2a06 at000f = ╱2d╱-╱ // 0x29e2 @0xf
0x29d3…2a06 at0010 = ╱2d╱-╱ // 0x29e3 @0x10
0x29d3…2a06 at0011 = ╱2d╱-╱ // 0x29e4 @0x11
0x29d3…2a06 at0012 = ╱2d╱-╱ // 0x29e5 @0x12
0x29d3…2a06 at0013 = ╱2d╱-╱ // 0x29e6 @0x13
0x29d3…2a06 at0014 = ╱2d╱-╱ // 0x29e7 @0x14
0x29d3…2a06 at0015 = ╱2d╱-╱ // 0x29e8 @0x15
0x29d3…2a06 at0016 = ╱2d╱-╱ // 0x29e9 @0x16
0x29d3…2a06 at0017 = ╱2d╱-╱ // 0x29ea @0x17
0x29d3…2a06 at0018 = ╱2d╱-╱ // 0x29eb @0x18
0x29d3…2a06 at0019 = ╱2d╱-╱ // 0x29ec @0x19
0x29d3…2a06 at001a = ╱2d╱-╱ // 0x29ed @0x1a
0x29d3…2a06 at001b = ╱2d╱-╱ // 0x29ee @0x1b
0x29d3…2a06 at001c = ╱2d╱-╱ // 0x29ef @0x1c
0x29d3…2a06 at001d = ╱2d╱-╱ // 0x29f0 @0x1d
0x29d3…2a06 at001e = ╱2d╱-╱ // 0x29f1 @0x1e
0x29d3…2a06 at001f = ╱2d╱-╱ // 0x29f2 @0x1f
0x29d3…2a06 at0020 = ╱2d╱-╱ // 0x29f3 @0x20
0x29d3…2a06 at0021 = ╱2d╱-╱ // 0x29f4 @0x21
0x29d3…2a06 at0022 = ╱2d╱-╱ // 0x29f5 @0x22
0x29d3…2a06 at0023 = ╱2d╱-╱ // 0x29f6 @0x23
0x29d3…2a06 at0024 = ╱2d╱-╱ // 0x29f7 @0x24
0x29d3…2a06 at0025 = ╱2d╱-╱ // 0x29f8 @0x25
0x29d3…2a06 at0026 = ╱2d╱-╱ // 0x29f9 @0x26
0x29d3…2a06 at0027 = ╱2d╱-╱ // 0x29fa @0x27
0x29d3…2a06 at0028 = ╱2d╱-╱ // 0x29fb @0x28
0x29d3…2a06 at0029 = ╱2d╱-╱ // 0x29fc @0x29
0x29d3…2a06 at002a = ╱2d╱-╱ // 0x29fd @0x2a
0x29d3…2a06 at002b = ╱2d╱-╱ // 0x29fe @0x2b
0x29d3…2a06 at002c = ╱2d╱-╱ // 0x29ff @0x2c
0x29d3…2a06 at002d = ╱2d╱-╱ // 0x2a00 @0x2d
0x29d3…2a06 at002e = ╱2d╱-╱ // 0x2a01 @0x2e
0x29d3…2a06 at002f = ╱2d╱-╱ // 0x2a02 @0x2f
0x29d3…2a06 at0030 = ╱2d╱-╱ // 0x2a03 @0x30
0x29d3…2a06 at0031 = ╱22╱"╱ // 0x2a04 @0x31
0x29d3…2a06 at0032 = EOL // 0x2a05 @0x32
0x29d3…2a06 }
0x2a06…2a35 c023 02830 PRINT "---------------------------------------"
0x2a06…2a35 LineComal80 {
0x2a06…2a35 ptr = 0xc023 // 0x2a06 @0x0
0x2a06…2a35 lno = 0x0b0e // 0x2a08 @0x2
0x2a06…2a35 at0004 = ╱92╱ PRINT ╱ // 0x2a0a @0x4
0x2a06…2a35 at0005 = ╱22╱"╱ // 0x2a0b @0x5
0x2a06…2a35 at0006 = ╱2d╱-╱ // 0x2a0c @0x6
0x2a06…2a35 at0007 = ╱2d╱-╱ // 0x2a0d @0x7
0x2a06…2a35 at0008 = ╱2d╱-╱ // 0x2a0e @0x8
0x2a06…2a35 at0009 = ╱2d╱-╱ // 0x2a0f @0x9
0x2a06…2a35 at000a = ╱2d╱-╱ // 0x2a10 @0xa
0x2a06…2a35 at000b = ╱2d╱-╱ // 0x2a11 @0xb
0x2a06…2a35 at000c = ╱2d╱-╱ // 0x2a12 @0xc
0x2a06…2a35 at000d = ╱2d╱-╱ // 0x2a13 @0xd
0x2a06…2a35 at000e = ╱2d╱-╱ // 0x2a14 @0xe
0x2a06…2a35 at000f = ╱2d╱-╱ // 0x2a15 @0xf
0x2a06…2a35 at0010 = ╱2d╱-╱ // 0x2a16 @0x10
0x2a06…2a35 at0011 = ╱2d╱-╱ // 0x2a17 @0x11
0x2a06…2a35 at0012 = ╱2d╱-╱ // 0x2a18 @0x12
0x2a06…2a35 at0013 = ╱2d╱-╱ // 0x2a19 @0x13
0x2a06…2a35 at0014 = ╱2d╱-╱ // 0x2a1a @0x14
0x2a06…2a35 at0015 = ╱2d╱-╱ // 0x2a1b @0x15
0x2a06…2a35 at0016 = ╱2d╱-╱ // 0x2a1c @0x16
0x2a06…2a35 at0017 = ╱2d╱-╱ // 0x2a1d @0x17
0x2a06…2a35 at0018 = ╱2d╱-╱ // 0x2a1e @0x18
0x2a06…2a35 at0019 = ╱2d╱-╱ // 0x2a1f @0x19
0x2a06…2a35 at001a = ╱2d╱-╱ // 0x2a20 @0x1a
0x2a06…2a35 at001b = ╱2d╱-╱ // 0x2a21 @0x1b
0x2a06…2a35 at001c = ╱2d╱-╱ // 0x2a22 @0x1c
0x2a06…2a35 at001d = ╱2d╱-╱ // 0x2a23 @0x1d
0x2a06…2a35 at001e = ╱2d╱-╱ // 0x2a24 @0x1e
0x2a06…2a35 at001f = ╱2d╱-╱ // 0x2a25 @0x1f
0x2a06…2a35 at0020 = ╱2d╱-╱ // 0x2a26 @0x20
0x2a06…2a35 at0021 = ╱2d╱-╱ // 0x2a27 @0x21
0x2a06…2a35 at0022 = ╱2d╱-╱ // 0x2a28 @0x22
0x2a06…2a35 at0023 = ╱2d╱-╱ // 0x2a29 @0x23
0x2a06…2a35 at0024 = ╱2d╱-╱ // 0x2a2a @0x24
0x2a06…2a35 at0025 = ╱2d╱-╱ // 0x2a2b @0x25
0x2a06…2a35 at0026 = ╱2d╱-╱ // 0x2a2c @0x26
0x2a06…2a35 at0027 = ╱2d╱-╱ // 0x2a2d @0x27
0x2a06…2a35 at0028 = ╱2d╱-╱ // 0x2a2e @0x28
0x2a06…2a35 at0029 = ╱2d╱-╱ // 0x2a2f @0x29
0x2a06…2a35 at002a = ╱2d╱-╱ // 0x2a30 @0x2a
0x2a06…2a35 at002b = ╱2d╱-╱ // 0x2a31 @0x2b
0x2a06…2a35 at002c = ╱2d╱-╱ // 0x2a32 @0x2c
0x2a06…2a35 at002d = ╱22╱"╱ // 0x2a33 @0x2d
0x2a06…2a35 at002e = EOL // 0x2a34 @0x2e
0x2a06…2a35 }
0x2a35…2a41 c02f 02840 ENDPROC NYSIDE
0x2a35…2a41 LineComal80 {
0x2a35…2a41 ptr = 0xc02f // 0x2a35 @0x0
0x2a35…2a41 lno = 0x0b18 // 0x2a37 @0x2
0x2a35…2a41 at0004 = ╱9f╱ ENDPROC ╱ // 0x2a39 @0x4
0x2a35…2a41 at0005 = ╱4e╱N╱ // 0x2a3a @0x5
0x2a35…2a41 at0006 = ╱59╱Y╱ // 0x2a3b @0x6
0x2a35…2a41 at0007 = ╱53╱S╱ // 0x2a3c @0x7
0x2a35…2a41 at0008 = ╱49╱I╱ // 0x2a3d @0x8
0x2a35…2a41 at0009 = ╱44╱D╱ // 0x2a3e @0x9
0x2a35…2a41 at000a = ╱45╱E╱ // 0x2a3f @0xa
0x2a35…2a41 at000b = EOL // 0x2a40 @0xb
0x2a35…2a41 }
0x2a41…2a46 c034 02850
0x2a41…2a46 LineComal80 {
0x2a41…2a46 ptr = 0xc034 // 0x2a41 @0x0
0x2a41…2a46 lno = 0x0b22 // 0x2a43 @0x2
0x2a41…2a46 at0004 = EOL // 0x2a45 @0x4
0x2a41…2a46 }
0x2a46…2a73 c061 02860 PROC SKRIV_LIN ( Q_D $ , Q_B $ , Q_T $ , Q_M , Q_K , Q_DK )
0x2a46…2a73 LineComal80 {
0x2a46…2a73 ptr = 0xc061 // 0x2a46 @0x0
0x2a46…2a73 lno = 0x0b2c // 0x2a48 @0x2
0x2a46…2a73 at0004 = ╱9e30╱ PROC ╱ // 0x2a4a @0x4
0x2a46…2a73 at0006 = ╱53╱S╱ // 0x2a4c @0x6
0x2a46…2a73 at0007 = ╱4b╱K╱ // 0x2a4d @0x7
0x2a46…2a73 at0008 = ╱52╱R╱ // 0x2a4e @0x8
0x2a46…2a73 at0009 = ╱49╱I╱ // 0x2a4f @0x9
0x2a46…2a73 at000a = ╱56╱V╱ // 0x2a50 @0xa
0x2a46…2a73 at000b = ╱5f╱_╱ // 0x2a51 @0xb
0x2a46…2a73 at000c = ╱4c╱L╱ // 0x2a52 @0xc
0x2a46…2a73 at000d = ╱49╱I╱ // 0x2a53 @0xd
0x2a46…2a73 at000e = ╱4e╱N╱ // 0x2a54 @0xe
0x2a46…2a73 at000f = ╱ed╱ ( ╱ // 0x2a55 @0xf
0x2a46…2a73 at0010 = ╱51╱Q╱ // 0x2a56 @0x10
0x2a46…2a73 at0011 = ╱5f╱_╱ // 0x2a57 @0x11
0x2a46…2a73 at0012 = ╱44╱D╱ // 0x2a58 @0x12
0x2a46…2a73 at0013 = ╱ef╱ $ ╱ // 0x2a59 @0x13
0x2a46…2a73 at0014 = ╱ec╱ , ╱ // 0x2a5a @0x14
0x2a46…2a73 at0015 = ╱51╱Q╱ // 0x2a5b @0x15
0x2a46…2a73 at0016 = ╱5f╱_╱ // 0x2a5c @0x16
0x2a46…2a73 at0017 = ╱42╱B╱ // 0x2a5d @0x17
0x2a46…2a73 at0018 = ╱ef╱ $ ╱ // 0x2a5e @0x18
0x2a46…2a73 at0019 = ╱ec╱ , ╱ // 0x2a5f @0x19
0x2a46…2a73 at001a = ╱51╱Q╱ // 0x2a60 @0x1a
0x2a46…2a73 at001b = ╱5f╱_╱ // 0x2a61 @0x1b
0x2a46…2a73 at001c = ╱54╱T╱ // 0x2a62 @0x1c
0x2a46…2a73 at001d = ╱ef╱ $ ╱ // 0x2a63 @0x1d
0x2a46…2a73 at001e = ╱ec╱ , ╱ // 0x2a64 @0x1e
0x2a46…2a73 at001f = ╱51╱Q╱ // 0x2a65 @0x1f
0x2a46…2a73 at0020 = ╱5f╱_╱ // 0x2a66 @0x20
0x2a46…2a73 at0021 = ╱4d╱M╱ // 0x2a67 @0x21
0x2a46…2a73 at0022 = ╱ec╱ , ╱ // 0x2a68 @0x22
0x2a46…2a73 at0023 = ╱51╱Q╱ // 0x2a69 @0x23
0x2a46…2a73 at0024 = ╱5f╱_╱ // 0x2a6a @0x24
0x2a46…2a73 at0025 = ╱4b╱K╱ // 0x2a6b @0x25
0x2a46…2a73 at0026 = ╱ec╱ , ╱ // 0x2a6c @0x26
0x2a46…2a73 at0027 = ╱51╱Q╱ // 0x2a6d @0x27
0x2a46…2a73 at0028 = ╱5f╱_╱ // 0x2a6e @0x28
0x2a46…2a73 at0029 = ╱44╱D╱ // 0x2a6f @0x29
0x2a46…2a73 at002a = ╱4b╱K╱ // 0x2a70 @0x2a
0x2a46…2a73 at002b = ╱ee╱ ) ╱ // 0x2a71 @0x2b
0x2a46…2a73 at002c = EOL // 0x2a72 @0x2c
0x2a46…2a73 }
0x2a73…2a97 c085 02870 IF LIN_T + 6 > MAX_LIN THEN EXEC SIDESKIFT
0x2a73…2a97 LineComal80 {
0x2a73…2a97 ptr = 0xc085 // 0x2a73 @0x0
0x2a73…2a97 lno = 0x0b36 // 0x2a75 @0x2
0x2a73…2a97 at0004 = ╱8200╱ IF ╱ // 0x2a77 @0x4
0x2a73…2a97 at0006 = ╱4c╱L╱ // 0x2a79 @0x6
0x2a73…2a97 at0007 = ╱49╱I╱ // 0x2a7a @0x7
0x2a73…2a97 at0008 = ╱4e╱N╱ // 0x2a7b @0x8
0x2a73…2a97 at0009 = ╱5f╱_╱ // 0x2a7c @0x9
0x2a73…2a97 at000a = ╱54╱T╱ // 0x2a7d @0xa
0x2a73…2a97 at000b = ╱e5╱ + ╱ // 0x2a7e @0xb
0x2a73…2a97 at000c = ╱36╱6╱ // 0x2a7f @0xc
0x2a73…2a97 at000d = ╱f20600╱ // 0x2a80 @0xd
0x2a73…2a97 at0010 = ╱e1╱ > ╱ // 0x2a83 @0x10
0x2a73…2a97 at0011 = ╱4d╱M╱ // 0x2a84 @0x11
0x2a73…2a97 at0012 = ╱41╱A╱ // 0x2a85 @0x12
0x2a73…2a97 at0013 = ╱58╱X╱ // 0x2a86 @0x13
0x2a73…2a97 at0014 = ╱5f╱_╱ // 0x2a87 @0x14
0x2a73…2a97 at0015 = ╱4c╱L╱ // 0x2a88 @0x15
0x2a73…2a97 at0016 = ╱49╱I╱ // 0x2a89 @0x16
0x2a73…2a97 at0017 = ╱4e╱N╱ // 0x2a8a @0x17
0x2a73…2a97 at0018 = ╱b5╱ THEN ╱ // 0x2a8b @0x18
0x2a73…2a97 at0019 = ╱9d╱ EXEC ╱ // 0x2a8c @0x19
0x2a73…2a97 at001a = ╱53╱S╱ // 0x2a8d @0x1a
0x2a73…2a97 at001b = ╱49╱I╱ // 0x2a8e @0x1b
0x2a73…2a97 at001c = ╱44╱D╱ // 0x2a8f @0x1c
0x2a73…2a97 at001d = ╱45╱E╱ // 0x2a90 @0x1d
0x2a73…2a97 at001e = ╱53╱S╱ // 0x2a91 @0x1e
0x2a73…2a97 at001f = ╱4b╱K╱ // 0x2a92 @0x1f
0x2a73…2a97 at0020 = ╱49╱I╱ // 0x2a93 @0x20
0x2a73…2a97 at0021 = ╱46╱F╱ // 0x2a94 @0x21
0x2a73…2a97 at0022 = ╱54╱T╱ // 0x2a95 @0x22
0x2a73…2a97 at0023 = EOL // 0x2a96 @0x23
0x2a73…2a97 }
0x2a97…2aad c09b 02880 LET LIN_T := LIN_T + 1
0x2a97…2aad LineComal80 {
0x2a97…2aad ptr = 0xc09b // 0x2a97 @0x0
0x2a97…2aad lno = 0x0b40 // 0x2a99 @0x2
0x2a97…2aad at0004 = ╱86╱ LET ╱ // 0x2a9b @0x4
0x2a97…2aad at0005 = ╱4c╱L╱ // 0x2a9c @0x5
0x2a97…2aad at0006 = ╱49╱I╱ // 0x2a9d @0x6
0x2a97…2aad at0007 = ╱4e╱N╱ // 0x2a9e @0x7
0x2a97…2aad at0008 = ╱5f╱_╱ // 0x2a9f @0x8
0x2a97…2aad at0009 = ╱54╱T╱ // 0x2aa0 @0x9
0x2a97…2aad at000a = ╱f0╱ := ╱ // 0x2aa1 @0xa
0x2a97…2aad at000b = ╱4c╱L╱ // 0x2aa2 @0xb
0x2a97…2aad at000c = ╱49╱I╱ // 0x2aa3 @0xc
0x2a97…2aad at000d = ╱4e╱N╱ // 0x2aa4 @0xd
0x2a97…2aad at000e = ╱5f╱_╱ // 0x2aa5 @0xe
0x2a97…2aad at000f = ╱54╱T╱ // 0x2aa6 @0xf
0x2a97…2aad at0010 = ╱e5╱ + ╱ // 0x2aa7 @0x10
0x2a97…2aad at0011 = ╱31╱1╱ // 0x2aa8 @0x11
0x2a97…2aad at0012 = ╱f20100╱ // 0x2aa9 @0x12
0x2a97…2aad at0015 = EOL // 0x2aac @0x15
0x2a97…2aad }
0x2aad…2af4 c0e2 02890 PRINT Q_D $ ( 1 : 2 ) ; "." ; Q_D $ ( 3 : 2 ) ; "." ; Q_D $ ( 5 : 2 ) ; TAB ( 11 ) ;
0x2aad…2af4 LineComal80 {
0x2aad…2af4 ptr = 0xc0e2 // 0x2aad @0x0
0x2aad…2af4 lno = 0x0b4a // 0x2aaf @0x2
0x2aad…2af4 at0004 = ╱92╱ PRINT ╱ // 0x2ab1 @0x4
0x2aad…2af4 at0005 = ╱51╱Q╱ // 0x2ab2 @0x5
0x2aad…2af4 at0006 = ╱5f╱_╱ // 0x2ab3 @0x6
0x2aad…2af4 at0007 = ╱44╱D╱ // 0x2ab4 @0x7
0x2aad…2af4 at0008 = ╱ef╱ $ ╱ // 0x2ab5 @0x8
0x2aad…2af4 at0009 = ╱ed╱ ( ╱ // 0x2ab6 @0x9
0x2aad…2af4 at000a = ╱31╱1╱ // 0x2ab7 @0xa
0x2aad…2af4 at000b = ╱f20100╱ // 0x2ab8 @0xb
0x2aad…2af4 at000e = ╱f1╱ : ╱ // 0x2abb @0xe
0x2aad…2af4 at000f = ╱32╱2╱ // 0x2abc @0xf
0x2aad…2af4 at0010 = ╱f20200╱ // 0x2abd @0x10
0x2aad…2af4 at0013 = ╱ee╱ ) ╱ // 0x2ac0 @0x13
0x2aad…2af4 at0014 = ╱ea╱ ; ╱ // 0x2ac1 @0x14
0x2aad…2af4 at0015 = ╱22╱"╱ // 0x2ac2 @0x15
0x2aad…2af4 at0016 = ╱2e╱.╱ // 0x2ac3 @0x16
0x2aad…2af4 at0017 = ╱22╱"╱ // 0x2ac4 @0x17
0x2aad…2af4 at0018 = ╱ea╱ ; ╱ // 0x2ac5 @0x18
0x2aad…2af4 at0019 = ╱51╱Q╱ // 0x2ac6 @0x19
0x2aad…2af4 at001a = ╱5f╱_╱ // 0x2ac7 @0x1a
0x2aad…2af4 at001b = ╱44╱D╱ // 0x2ac8 @0x1b
0x2aad…2af4 at001c = ╱ef╱ $ ╱ // 0x2ac9 @0x1c
0x2aad…2af4 at001d = ╱ed╱ ( ╱ // 0x2aca @0x1d
0x2aad…2af4 at001e = ╱33╱3╱ // 0x2acb @0x1e
0x2aad…2af4 at001f = ╱f20300╱ // 0x2acc @0x1f
0x2aad…2af4 at0022 = ╱f1╱ : ╱ // 0x2acf @0x22
0x2aad…2af4 at0023 = ╱32╱2╱ // 0x2ad0 @0x23
0x2aad…2af4 at0024 = ╱f20200╱ // 0x2ad1 @0x24
0x2aad…2af4 at0027 = ╱ee╱ ) ╱ // 0x2ad4 @0x27
0x2aad…2af4 at0028 = ╱ea╱ ; ╱ // 0x2ad5 @0x28
0x2aad…2af4 at0029 = ╱22╱"╱ // 0x2ad6 @0x29
0x2aad…2af4 at002a = ╱2e╱.╱ // 0x2ad7 @0x2a
0x2aad…2af4 at002b = ╱22╱"╱ // 0x2ad8 @0x2b
0x2aad…2af4 at002c = ╱ea╱ ; ╱ // 0x2ad9 @0x2c
0x2aad…2af4 at002d = ╱51╱Q╱ // 0x2ada @0x2d
0x2aad…2af4 at002e = ╱5f╱_╱ // 0x2adb @0x2e
0x2aad…2af4 at002f = ╱44╱D╱ // 0x2adc @0x2f
0x2aad…2af4 at0030 = ╱ef╱ $ ╱ // 0x2add @0x30
0x2aad…2af4 at0031 = ╱ed╱ ( ╱ // 0x2ade @0x31
0x2aad…2af4 at0032 = ╱35╱5╱ // 0x2adf @0x32
0x2aad…2af4 at0033 = ╱f20500╱ // 0x2ae0 @0x33
0x2aad…2af4 at0036 = ╱f1╱ : ╱ // 0x2ae3 @0x36
0x2aad…2af4 at0037 = ╱32╱2╱ // 0x2ae4 @0x37
0x2aad…2af4 at0038 = ╱f20200╱ // 0x2ae5 @0x38
0x2aad…2af4 at003b = ╱ee╱ ) ╱ // 0x2ae8 @0x3b
0x2aad…2af4 at003c = ╱ea╱ ; ╱ // 0x2ae9 @0x3c
0x2aad…2af4 at003d = ╱d2╱ TAB ╱ // 0x2aea @0x3d
0x2aad…2af4 at003e = ╱ed╱ ( ╱ // 0x2aeb @0x3e
0x2aad…2af4 at003f = ╱31╱1╱ // 0x2aec @0x3f
0x2aad…2af4 at0040 = ╱31╱1╱ // 0x2aed @0x40
0x2aad…2af4 at0041 = ╱f20b00╱ // 0x2aee @0x41
0x2aad…2af4 at0044 = ╱ee╱ ) ╱ // 0x2af1 @0x44
0x2aad…2af4 at0045 = ╱ea╱ ; ╱ // 0x2af2 @0x45
0x2aad…2af4 at0046 = EOL // 0x2af3 @0x46
0x2aad…2af4 }
0x2af4…2b24 c112 02900 PRINT Q_B $ ; TAB ( 11 ) ; Q_B $ ; TAB ( 18 ) ; Q_T $ ; TAB ( 41 ) ;
0x2af4…2b24 LineComal80 {
0x2af4…2b24 ptr = 0xc112 // 0x2af4 @0x0
0x2af4…2b24 lno = 0x0b54 // 0x2af6 @0x2
0x2af4…2b24 at0004 = ╱92╱ PRINT ╱ // 0x2af8 @0x4
0x2af4…2b24 at0005 = ╱51╱Q╱ // 0x2af9 @0x5
0x2af4…2b24 at0006 = ╱5f╱_╱ // 0x2afa @0x6
0x2af4…2b24 at0007 = ╱42╱B╱ // 0x2afb @0x7
0x2af4…2b24 at0008 = ╱ef╱ $ ╱ // 0x2afc @0x8
0x2af4…2b24 at0009 = ╱ea╱ ; ╱ // 0x2afd @0x9
0x2af4…2b24 at000a = ╱d2╱ TAB ╱ // 0x2afe @0xa
0x2af4…2b24 at000b = ╱ed╱ ( ╱ // 0x2aff @0xb
0x2af4…2b24 at000c = ╱31╱1╱ // 0x2b00 @0xc
0x2af4…2b24 at000d = ╱31╱1╱ // 0x2b01 @0xd
0x2af4…2b24 at000e = ╱f20b00╱ // 0x2b02 @0xe
0x2af4…2b24 at0011 = ╱ee╱ ) ╱ // 0x2b05 @0x11
0x2af4…2b24 at0012 = ╱ea╱ ; ╱ // 0x2b06 @0x12
0x2af4…2b24 at0013 = ╱51╱Q╱ // 0x2b07 @0x13
0x2af4…2b24 at0014 = ╱5f╱_╱ // 0x2b08 @0x14
0x2af4…2b24 at0015 = ╱42╱B╱ // 0x2b09 @0x15
0x2af4…2b24 at0016 = ╱ef╱ $ ╱ // 0x2b0a @0x16
0x2af4…2b24 at0017 = ╱ea╱ ; ╱ // 0x2b0b @0x17
0x2af4…2b24 at0018 = ╱d2╱ TAB ╱ // 0x2b0c @0x18
0x2af4…2b24 at0019 = ╱ed╱ ( ╱ // 0x2b0d @0x19
0x2af4…2b24 at001a = ╱31╱1╱ // 0x2b0e @0x1a
0x2af4…2b24 at001b = ╱38╱8╱ // 0x2b0f @0x1b
0x2af4…2b24 at001c = ╱f21200╱ // 0x2b10 @0x1c
0x2af4…2b24 at001f = ╱ee╱ ) ╱ // 0x2b13 @0x1f
0x2af4…2b24 at0020 = ╱ea╱ ; ╱ // 0x2b14 @0x20
0x2af4…2b24 at0021 = ╱51╱Q╱ // 0x2b15 @0x21
0x2af4…2b24 at0022 = ╱5f╱_╱ // 0x2b16 @0x22
0x2af4…2b24 at0023 = ╱54╱T╱ // 0x2b17 @0x23
0x2af4…2b24 at0024 = ╱ef╱ $ ╱ // 0x2b18 @0x24
0x2af4…2b24 at0025 = ╱ea╱ ; ╱ // 0x2b19 @0x25
0x2af4…2b24 at0026 = ╱d2╱ TAB ╱ // 0x2b1a @0x26
0x2af4…2b24 at0027 = ╱ed╱ ( ╱ // 0x2b1b @0x27
0x2af4…2b24 at0028 = ╱34╱4╱ // 0x2b1c @0x28
0x2af4…2b24 at0029 = ╱31╱1╱ // 0x2b1d @0x29
0x2af4…2b24 at002a = ╱f22900╱ // 0x2b1e @0x2a
0x2af4…2b24 at002d = ╱ee╱ ) ╱ // 0x2b21 @0x2d
0x2af4…2b24 at002e = ╱ea╱ ; ╱ // 0x2b22 @0x2e
0x2af4…2b24 at002f = EOL // 0x2b23 @0x2f
0x2af4…2b24 }
0x2b24…2b46 c134 02910 IF Q_M > 0 THEN PRINT CHR$ ( Q_M , 9 , 2 ) ;
0x2b24…2b46 LineComal80 {
0x2b24…2b46 ptr = 0xc134 // 0x2b24 @0x0
0x2b24…2b46 lno = 0x0b5e // 0x2b26 @0x2
0x2b24…2b46 at0004 = ╱8200╱ IF ╱ // 0x2b28 @0x4
0x2b24…2b46 at0006 = ╱51╱Q╱ // 0x2b2a @0x6
0x2b24…2b46 at0007 = ╱5f╱_╱ // 0x2b2b @0x7
0x2b24…2b46 at0008 = ╱4d╱M╱ // 0x2b2c @0x8
0x2b24…2b46 at0009 = ╱e1╱ > ╱ // 0x2b2d @0x9
0x2b24…2b46 at000a = ╱30╱0╱ // 0x2b2e @0xa
0x2b24…2b46 at000b = ╱f20000╱ // 0x2b2f @0xb
0x2b24…2b46 at000e = ╱b5╱ THEN ╱ // 0x2b32 @0xe
0x2b24…2b46 at000f = ╱92╱ PRINT ╱ // 0x2b33 @0xf
0x2b24…2b46 at0010 = ╱d0╱ CHR$ ╱ // 0x2b34 @0x10
0x2b24…2b46 at0011 = ╱ed╱ ( ╱ // 0x2b35 @0x11
0x2b24…2b46 at0012 = ╱51╱Q╱ // 0x2b36 @0x12
0x2b24…2b46 at0013 = ╱5f╱_╱ // 0x2b37 @0x13
0x2b24…2b46 at0014 = ╱4d╱M╱ // 0x2b38 @0x14
0x2b24…2b46 at0015 = ╱ec╱ , ╱ // 0x2b39 @0x15
0x2b24…2b46 at0016 = ╱39╱9╱ // 0x2b3a @0x16
0x2b24…2b46 at0017 = ╱f20900╱ // 0x2b3b @0x17
0x2b24…2b46 at001a = ╱ec╱ , ╱ // 0x2b3e @0x1a
0x2b24…2b46 at001b = ╱32╱2╱ // 0x2b3f @0x1b
0x2b24…2b46 at001c = ╱f20200╱ // 0x2b40 @0x1c
0x2b24…2b46 at001f = ╱ee╱ ) ╱ // 0x2b43 @0x1f
0x2b24…2b46 at0020 = ╱ea╱ ; ╱ // 0x2b44 @0x20
0x2b24…2b46 at0021 = EOL // 0x2b45 @0x21
0x2b24…2b46 }
0x2b46…2b58 c349 02920 IF _DK = DEBET THEN
0x2b46…2b58 LineComal80 {
0x2b46…2b58 ptr = 0xc349 // 0x2b46 @0x0
0x2b46…2b58 lno = 0x0b68 // 0x2b48 @0x2
0x2b46…2b58 at0004 = ╱9b3151╱ IF ╱ // 0x2b4a @0x4
0x2b46…2b58 at0007 = ╱5f╱_╱ // 0x2b4d @0x7
0x2b46…2b58 at0008 = ╱44╱D╱ // 0x2b4e @0x8
0x2b46…2b58 at0009 = ╱4b╱K╱ // 0x2b4f @0x9
0x2b46…2b58 at000a = ╱df╱ = ╱ // 0x2b50 @0xa
0x2b46…2b58 at000b = ╱44╱D╱ // 0x2b51 @0xb
0x2b46…2b58 at000c = ╱45╱E╱ // 0x2b52 @0xc
0x2b46…2b58 at000d = ╱42╱B╱ // 0x2b53 @0xd
0x2b46…2b58 at000e = ╱45╱E╱ // 0x2b54 @0xe
0x2b46…2b58 at000f = ╱54╱T╱ // 0x2b55 @0xf
0x2b46…2b58 at0010 = ╱b5╱ THEN ╱ // 0x2b56 @0x10
0x2b46…2b58 at0011 = EOL // 0x2b57 @0x11
0x2b46…2b58 }
0x2b58…2b85 c173 02930 PRINT TAB ( 42 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ; "!" ;
0x2b58…2b85 LineComal80 {
0x2b58…2b85 ptr = 0xc173 // 0x2b58 @0x0
0x2b58…2b85 lno = 0x0b72 // 0x2b5a @0x2
0x2b58…2b85 at0004 = ╱92╱ PRINT ╱ // 0x2b5c @0x4
0x2b58…2b85 at0005 = ╱d2╱ TAB ╱ // 0x2b5d @0x5
0x2b58…2b85 at0006 = ╱ed╱ ( ╱ // 0x2b5e @0x6
0x2b58…2b85 at0007 = ╱34╱4╱ // 0x2b5f @0x7
0x2b58…2b85 at0008 = ╱32╱2╱ // 0x2b60 @0x8
0x2b58…2b85 at0009 = ╱f22a00╱ // 0x2b61 @0x9
0x2b58…2b85 at000c = ╱ee╱ ) ╱ // 0x2b64 @0xc
0x2b58…2b85 at000d = ╱ea╱ ; ╱ // 0x2b65 @0xd
0x2b58…2b85 at000e = ╱d0╱ CHR$ ╱ // 0x2b66 @0xe
0x2b58…2b85 at000f = ╱ed╱ ( ╱ // 0x2b67 @0xf
0x2b58…2b85 at0010 = ╱51╱Q╱ // 0x2b68 @0x10
0x2b58…2b85 at0011 = ╱5f╱_╱ // 0x2b69 @0x11
0x2b58…2b85 at0012 = ╱4b╱K╱ // 0x2b6a @0x12
0x2b58…2b85 at0013 = ╱ec╱ , ╱ // 0x2b6b @0x13
0x2b58…2b85 at0014 = ╱39╱9╱ // 0x2b6c @0x14
0x2b58…2b85 at0015 = ╱f20900╱ // 0x2b6d @0x15
0x2b58…2b85 at0018 = ╱ec╱ , ╱ // 0x2b70 @0x18
0x2b58…2b85 at0019 = ╱32╱2╱ // 0x2b71 @0x19
0x2b58…2b85 at001a = ╱f20200╱ // 0x2b72 @0x1a
0x2b58…2b85 at001d = ╱ee╱ ) ╱ // 0x2b75 @0x1d
0x2b58…2b85 at001e = ╱ea╱ ; ╱ // 0x2b76 @0x1e
0x2b58…2b85 at001f = ╱d2╱ TAB ╱ // 0x2b77 @0x1f
0x2b58…2b85 at0020 = ╱ed╱ ( ╱ // 0x2b78 @0x20
0x2b58…2b85 at0021 = ╱36╱6╱ // 0x2b79 @0x21
0x2b58…2b85 at0022 = ╱37╱7╱ // 0x2b7a @0x22
0x2b58…2b85 at0023 = ╱f24300╱ // 0x2b7b @0x23
0x2b58…2b85 at0026 = ╱ee╱ ) ╱ // 0x2b7e @0x26
0x2b58…2b85 at0027 = ╱ea╱ ; ╱ // 0x2b7f @0x27
0x2b58…2b85 at0028 = ╱22╱"╱ // 0x2b80 @0x28
0x2b58…2b85 at0029 = ╱21╱!╱ // 0x2b81 @0x29
0x2b58…2b85 at002a = ╱22╱"╱ // 0x2b82 @0x2a
0x2b58…2b85 at002b = ╱ea╱ ; ╱ // 0x2b83 @0x2b
0x2b58…2b85 at002c = EOL // 0x2b84 @0x2c
0x2b58…2b85 }
0x2b85…2ba2 c190 02940 LET TOT ( 1 ) := TOT ( 1 ) + Q_K
0x2b85…2ba2 LineComal80 {
0x2b85…2ba2 ptr = 0xc190 // 0x2b85 @0x0
0x2b85…2ba2 lno = 0x0b7c // 0x2b87 @0x2
0x2b85…2ba2 at0004 = ╱86╱ LET ╱ // 0x2b89 @0x4
0x2b85…2ba2 at0005 = ╱54╱T╱ // 0x2b8a @0x5
0x2b85…2ba2 at0006 = ╱4f╱O╱ // 0x2b8b @0x6
0x2b85…2ba2 at0007 = ╱54╱T╱ // 0x2b8c @0x7
0x2b85…2ba2 at0008 = ╱ed╱ ( ╱ // 0x2b8d @0x8
0x2b85…2ba2 at0009 = ╱31╱1╱ // 0x2b8e @0x9
0x2b85…2ba2 at000a = ╱f20100╱ // 0x2b8f @0xa
0x2b85…2ba2 at000d = ╱ee╱ ) ╱ // 0x2b92 @0xd
0x2b85…2ba2 at000e = ╱f0╱ := ╱ // 0x2b93 @0xe
0x2b85…2ba2 at000f = ╱54╱T╱ // 0x2b94 @0xf
0x2b85…2ba2 at0010 = ╱4f╱O╱ // 0x2b95 @0x10
0x2b85…2ba2 at0011 = ╱54╱T╱ // 0x2b96 @0x11
0x2b85…2ba2 at0012 = ╱ed╱ ( ╱ // 0x2b97 @0x12
0x2b85…2ba2 at0013 = ╱31╱1╱ // 0x2b98 @0x13
0x2b85…2ba2 at0014 = ╱f20100╱ // 0x2b99 @0x14
0x2b85…2ba2 at0017 = ╱ee╱ ) ╱ // 0x2b9c @0x17
0x2b85…2ba2 at0018 = ╱e5╱ + ╱ // 0x2b9d @0x18
0x2b85…2ba2 at0019 = ╱51╱Q╱ // 0x2b9e @0x19
0x2b85…2ba2 at001a = ╱5f╱_╱ // 0x2b9f @0x1a
0x2b85…2ba2 at001b = ╱4b╱K╱ // 0x2ba0 @0x1b
0x2b85…2ba2 at001c = EOL // 0x2ba1 @0x1c
0x2b85…2ba2 }
0x2ba2…2ba9 c197 02950 ELSE
0x2ba2…2ba9 LineComal80 {
0x2ba2…2ba9 ptr = 0xc197 // 0x2ba2 @0x0
0x2ba2…2ba9 lno = 0x0b86 // 0x2ba4 @0x2
0x2ba2…2ba9 at0004 = ╱9a00╱ ELSE ╱ // 0x2ba6 @0x4
0x2ba2…2ba9 at0006 = EOL // 0x2ba8 @0x6
0x2ba2…2ba9 }
0x2ba9…2bd6 c1c4 02960 PRINT TAB ( 55 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ; "!" ;
0x2ba9…2bd6 LineComal80 {
0x2ba9…2bd6 ptr = 0xc1c4 // 0x2ba9 @0x0
0x2ba9…2bd6 lno = 0x0b90 // 0x2bab @0x2
0x2ba9…2bd6 at0004 = ╱92╱ PRINT ╱ // 0x2bad @0x4
0x2ba9…2bd6 at0005 = ╱d2╱ TAB ╱ // 0x2bae @0x5
0x2ba9…2bd6 at0006 = ╱ed╱ ( ╱ // 0x2baf @0x6
0x2ba9…2bd6 at0007 = ╱35╱5╱ // 0x2bb0 @0x7
0x2ba9…2bd6 at0008 = ╱35╱5╱ // 0x2bb1 @0x8
0x2ba9…2bd6 at0009 = ╱f23700╱ // 0x2bb2 @0x9
0x2ba9…2bd6 at000c = ╱ee╱ ) ╱ // 0x2bb5 @0xc
0x2ba9…2bd6 at000d = ╱ea╱ ; ╱ // 0x2bb6 @0xd
0x2ba9…2bd6 at000e = ╱d0╱ CHR$ ╱ // 0x2bb7 @0xe
0x2ba9…2bd6 at000f = ╱ed╱ ( ╱ // 0x2bb8 @0xf
0x2ba9…2bd6 at0010 = ╱51╱Q╱ // 0x2bb9 @0x10
0x2ba9…2bd6 at0011 = ╱5f╱_╱ // 0x2bba @0x11
0x2ba9…2bd6 at0012 = ╱4b╱K╱ // 0x2bbb @0x12
0x2ba9…2bd6 at0013 = ╱ec╱ , ╱ // 0x2bbc @0x13
0x2ba9…2bd6 at0014 = ╱39╱9╱ // 0x2bbd @0x14
0x2ba9…2bd6 at0015 = ╱f20900╱ // 0x2bbe @0x15
0x2ba9…2bd6 at0018 = ╱ec╱ , ╱ // 0x2bc1 @0x18
0x2ba9…2bd6 at0019 = ╱32╱2╱ // 0x2bc2 @0x19
0x2ba9…2bd6 at001a = ╱f20200╱ // 0x2bc3 @0x1a
0x2ba9…2bd6 at001d = ╱ee╱ ) ╱ // 0x2bc6 @0x1d
0x2ba9…2bd6 at001e = ╱ea╱ ; ╱ // 0x2bc7 @0x1e
0x2ba9…2bd6 at001f = ╱d2╱ TAB ╱ // 0x2bc8 @0x1f
0x2ba9…2bd6 at0020 = ╱ed╱ ( ╱ // 0x2bc9 @0x20
0x2ba9…2bd6 at0021 = ╱36╱6╱ // 0x2bca @0x21
0x2ba9…2bd6 at0022 = ╱37╱7╱ // 0x2bcb @0x22
0x2ba9…2bd6 at0023 = ╱f24300╱ // 0x2bcc @0x23
0x2ba9…2bd6 at0026 = ╱ee╱ ) ╱ // 0x2bcf @0x26
0x2ba9…2bd6 at0027 = ╱ea╱ ; ╱ // 0x2bd0 @0x27
0x2ba9…2bd6 at0028 = ╱22╱"╱ // 0x2bd1 @0x28
0x2ba9…2bd6 at0029 = ╱21╱!╱ // 0x2bd2 @0x29
0x2ba9…2bd6 at002a = ╱22╱"╱ // 0x2bd3 @0x2a
0x2ba9…2bd6 at002b = ╱ea╱ ; ╱ // 0x2bd4 @0x2b
0x2ba9…2bd6 at002c = EOL // 0x2bd5 @0x2c
0x2ba9…2bd6 }
0x2bd6…2bf3 c1e1 02970 LET TOT ( 2 ) := TOT ( 2 ) + Q_K
0x2bd6…2bf3 LineComal80 {
0x2bd6…2bf3 ptr = 0xc1e1 // 0x2bd6 @0x0
0x2bd6…2bf3 lno = 0x0b9a // 0x2bd8 @0x2
0x2bd6…2bf3 at0004 = ╱86╱ LET ╱ // 0x2bda @0x4
0x2bd6…2bf3 at0005 = ╱54╱T╱ // 0x2bdb @0x5
0x2bd6…2bf3 at0006 = ╱4f╱O╱ // 0x2bdc @0x6
0x2bd6…2bf3 at0007 = ╱54╱T╱ // 0x2bdd @0x7
0x2bd6…2bf3 at0008 = ╱ed╱ ( ╱ // 0x2bde @0x8
0x2bd6…2bf3 at0009 = ╱32╱2╱ // 0x2bdf @0x9
0x2bd6…2bf3 at000a = ╱f20200╱ // 0x2be0 @0xa
0x2bd6…2bf3 at000d = ╱ee╱ ) ╱ // 0x2be3 @0xd
0x2bd6…2bf3 at000e = ╱f0╱ := ╱ // 0x2be4 @0xe
0x2bd6…2bf3 at000f = ╱54╱T╱ // 0x2be5 @0xf
0x2bd6…2bf3 at0010 = ╱4f╱O╱ // 0x2be6 @0x10
0x2bd6…2bf3 at0011 = ╱54╱T╱ // 0x2be7 @0x11
0x2bd6…2bf3 at0012 = ╱ed╱ ( ╱ // 0x2be8 @0x12
0x2bd6…2bf3 at0013 = ╱32╱2╱ // 0x2be9 @0x13
0x2bd6…2bf3 at0014 = ╱f20200╱ // 0x2bea @0x14
0x2bd6…2bf3 at0017 = ╱ee╱ ) ╱ // 0x2bed @0x17
0x2bd6…2bf3 at0018 = ╱e5╱ + ╱ // 0x2bee @0x18
0x2bd6…2bf3 at0019 = ╱51╱Q╱ // 0x2bef @0x19
0x2bd6…2bf3 at001a = ╱5f╱_╱ // 0x2bf0 @0x1a
0x2bd6…2bf3 at001b = ╱4b╱K╱ // 0x2bf1 @0x1b
0x2bd6…2bf3 at001c = EOL // 0x2bf2 @0x1c
0x2bd6…2bf3 }
0x2bf3…2bf9 c1e7 02980 ENDIF
0x2bf3…2bf9 LineComal80 {
0x2bf3…2bf9 ptr = 0xc1e7 // 0x2bf3 @0x0
0x2bf3…2bf9 lno = 0x0ba4 // 0x2bf5 @0x2
0x2bf3…2bf9 at0004 = ╱9c╱ ENDIF ╱ // 0x2bf7 @0x4
0x2bf3…2bf9 at0005 = EOL // 0x2bf8 @0x5
0x2bf3…2bf9 }
0x2bf9…2c13 c201 02981 PRINT CHR$ ( ABS ( SUM ) , 9 , 2 ) ;
0x2bf9…2c13 LineComal80 {
0x2bf9…2c13 ptr = 0xc201 // 0x2bf9 @0x0
0x2bf9…2c13 lno = 0x0ba5 // 0x2bfb @0x2
0x2bf9…2c13 at0004 = ╱92╱ PRINT ╱ // 0x2bfd @0x4
0x2bf9…2c13 at0005 = ╱d0╱ CHR$ ╱ // 0x2bfe @0x5
0x2bf9…2c13 at0006 = ╱ed╱ ( ╱ // 0x2bff @0x6
0x2bf9…2c13 at0007 = ╱c4╱ ABS ╱ // 0x2c00 @0x7
0x2bf9…2c13 at0008 = ╱ed╱ ( ╱ // 0x2c01 @0x8
0x2bf9…2c13 at0009 = ╱53╱S╱ // 0x2c02 @0x9
0x2bf9…2c13 at000a = ╱55╱U╱ // 0x2c03 @0xa
0x2bf9…2c13 at000b = ╱4d╱M╱ // 0x2c04 @0xb
0x2bf9…2c13 at000c = ╱ee╱ ) ╱ // 0x2c05 @0xc
0x2bf9…2c13 at000d = ╱ec╱ , ╱ // 0x2c06 @0xd
0x2bf9…2c13 at000e = ╱39╱9╱ // 0x2c07 @0xe
0x2bf9…2c13 at000f = ╱f20900╱ // 0x2c08 @0xf
0x2bf9…2c13 at0012 = ╱ec╱ , ╱ // 0x2c0b @0x12
0x2bf9…2c13 at0013 = ╱32╱2╱ // 0x2c0c @0x13
0x2bf9…2c13 at0014 = ╱f20200╱ // 0x2c0d @0x14
0x2bf9…2c13 at0017 = ╱ee╱ ) ╱ // 0x2c10 @0x17
0x2bf9…2c13 at0018 = ╱ea╱ ; ╱ // 0x2c11 @0x18
0x2bf9…2c13 at0019 = EOL // 0x2c12 @0x19
0x2bf9…2c13 }
0x2c13…2c19 c207 02990 PRINT
0x2c13…2c19 LineComal80 {
0x2c13…2c19 ptr = 0xc207 // 0x2c13 @0x0
0x2c13…2c19 lno = 0x0bae // 0x2c15 @0x2
0x2c13…2c19 at0004 = ╱92╱ PRINT ╱ // 0x2c17 @0x4
0x2c13…2c19 at0005 = EOL // 0x2c18 @0x5
0x2c13…2c19 }
0x2c19…2c28 c216 03000 ENDPROC SKRIV_LIN
0x2c19…2c28 LineComal80 {
0x2c19…2c28 ptr = 0xc216 // 0x2c19 @0x0
0x2c19…2c28 lno = 0x0bb8 // 0x2c1b @0x2
0x2c19…2c28 at0004 = ╱9f╱ ENDPROC ╱ // 0x2c1d @0x4
0x2c19…2c28 at0005 = ╱53╱S╱ // 0x2c1e @0x5
0x2c19…2c28 at0006 = ╱4b╱K╱ // 0x2c1f @0x6
0x2c19…2c28 at0007 = ╱52╱R╱ // 0x2c20 @0x7
0x2c19…2c28 at0008 = ╱49╱I╱ // 0x2c21 @0x8
0x2c19…2c28 at0009 = ╱56╱V╱ // 0x2c22 @0x9
0x2c19…2c28 at000a = ╱5f╱_╱ // 0x2c23 @0xa
0x2c19…2c28 at000b = ╱4c╱L╱ // 0x2c24 @0xb
0x2c19…2c28 at000c = ╱49╱I╱ // 0x2c25 @0xc
0x2c19…2c28 at000d = ╱4e╱N╱ // 0x2c26 @0xd
0x2c19…2c28 at000e = EOL // 0x2c27 @0xe
0x2c19…2c28 }
0x2c28…2c2d c21b 03010
0x2c28…2c2d LineComal80 {
0x2c28…2c2d ptr = 0xc21b // 0x2c28 @0x0
0x2c28…2c2d lno = 0x0bc2 // 0x2c2a @0x2
0x2c28…2c2d at0004 = EOL // 0x2c2c @0x4
0x2c28…2c2d }
0x2c2d…2c3a c228 03020 PROC AFSLUT
0x2c2d…2c3a LineComal80 {
0x2c2d…2c3a ptr = 0xc228 // 0x2c2d @0x0
0x2c2d…2c3a lno = 0x0bcc // 0x2c2f @0x2
0x2c2d…2c3a at0004 = ╱9e33╱ PROC ╱ // 0x2c31 @0x4
0x2c2d…2c3a at0006 = ╱41╱A╱ // 0x2c33 @0x6
0x2c2d…2c3a at0007 = ╱46╱F╱ // 0x2c34 @0x7
0x2c2d…2c3a at0008 = ╱53╱S╱ // 0x2c35 @0x8
0x2c2d…2c3a at0009 = ╱4c╱L╱ // 0x2c36 @0x9
0x2c2d…2c3a at000a = ╱55╱U╱ // 0x2c37 @0xa
0x2c2d…2c3a at000b = ╱54╱T╱ // 0x2c38 @0xb
0x2c2d…2c3a at000c = EOL // 0x2c39 @0xc
0x2c2d…2c3a }
0x2c3a…2c57 c245 03030 FOR I := LIN_T TO AX_LIN - 6 DO PRINT
0x2c3a…2c57 LineComal80 {
0x2c3a…2c57 ptr = 0xc245 // 0x2c3a @0x0
0x2c3a…2c57 lno = 0x0bd6 // 0x2c3c @0x2
0x2c3a…2c57 at0004 = ╱b400╱ FOR ╱ // 0x2c3e @0x4
0x2c3a…2c57 at0006 = ╱49╱I╱ // 0x2c40 @0x6
0x2c3a…2c57 at0007 = ╱f0╱ := ╱ // 0x2c41 @0x7
0x2c3a…2c57 at0008 = ╱4c╱L╱ // 0x2c42 @0x8
0x2c3a…2c57 at0009 = ╱49╱I╱ // 0x2c43 @0x9
0x2c3a…2c57 at000a = ╱4e╱N╱ // 0x2c44 @0xa
0x2c3a…2c57 at000b = ╱5f╱_╱ // 0x2c45 @0xb
0x2c3a…2c57 at000c = ╱54╱T╱ // 0x2c46 @0xc
0x2c3a…2c57 at000d = ╱b74d╱ TO ╱ // 0x2c47 @0xd
0x2c3a…2c57 at000f = ╱41╱A╱ // 0x2c49 @0xf
0x2c3a…2c57 at0010 = ╱58╱X╱ // 0x2c4a @0x10
0x2c3a…2c57 at0011 = ╱5f╱_╱ // 0x2c4b @0x11
0x2c3a…2c57 at0012 = ╱4c╱L╱ // 0x2c4c @0x12
0x2c3a…2c57 at0013 = ╱49╱I╱ // 0x2c4d @0x13
0x2c3a…2c57 at0014 = ╱4e╱N╱ // 0x2c4e @0x14
0x2c3a…2c57 at0015 = ╱e6╱ - ╱ // 0x2c4f @0x15
0x2c3a…2c57 at0016 = ╱36╱6╱ // 0x2c50 @0x16
0x2c3a…2c57 at0017 = ╱f20600╱ // 0x2c51 @0x17
0x2c3a…2c57 at001a = ╱bb╱ DO ╱ // 0x2c54 @0x1a
0x2c3a…2c57 at001b = ╱92╱ PRINT ╱ // 0x2c55 @0x1b
0x2c3a…2c57 at001c = EOL // 0x2c56 @0x1c
0x2c3a…2c57 }
0x2c57…2c6f c25d 03040 LET LIN_T := MAX_LIN - 5
0x2c57…2c6f LineComal80 {
0x2c57…2c6f ptr = 0xc25d // 0x2c57 @0x0
0x2c57…2c6f lno = 0x0be0 // 0x2c59 @0x2
0x2c57…2c6f at0004 = ╱86╱ LET ╱ // 0x2c5b @0x4
0x2c57…2c6f at0005 = ╱4c╱L╱ // 0x2c5c @0x5
0x2c57…2c6f at0006 = ╱49╱I╱ // 0x2c5d @0x6
0x2c57…2c6f at0007 = ╱4e╱N╱ // 0x2c5e @0x7
0x2c57…2c6f at0008 = ╱5f╱_╱ // 0x2c5f @0x8
0x2c57…2c6f at0009 = ╱54╱T╱ // 0x2c60 @0x9
0x2c57…2c6f at000a = ╱f0╱ := ╱ // 0x2c61 @0xa
0x2c57…2c6f at000b = ╱4d╱M╱ // 0x2c62 @0xb
0x2c57…2c6f at000c = ╱41╱A╱ // 0x2c63 @0xc
0x2c57…2c6f at000d = ╱58╱X╱ // 0x2c64 @0xd
0x2c57…2c6f at000e = ╱5f╱_╱ // 0x2c65 @0xe
0x2c57…2c6f at000f = ╱4c╱L╱ // 0x2c66 @0xf
0x2c57…2c6f at0010 = ╱49╱I╱ // 0x2c67 @0x10
0x2c57…2c6f at0011 = ╱4e╱N╱ // 0x2c68 @0x11
0x2c57…2c6f at0012 = ╱e6╱ - ╱ // 0x2c69 @0x12
0x2c57…2c6f at0013 = ╱35╱5╱ // 0x2c6a @0x13
0x2c57…2c6f at0014 = ╱f20500╱ // 0x2c6b @0x14
0x2c57…2c6f at0017 = EOL // 0x2c6e @0x17
0x2c57…2c6f }
0x2c6f…2ca1 c28f 03050 PRINT "<S>---------------------------------------"
0x2c6f…2ca1 LineComal80 {
0x2c6f…2ca1 ptr = 0xc28f // 0x2c6f @0x0
0x2c6f…2ca1 lno = 0x0bea // 0x2c71 @0x2
0x2c6f…2ca1 at0004 = ╱92╱ PRINT ╱ // 0x2c73 @0x4
0x2c6f…2ca1 at0005 = ╱22╱"╱ // 0x2c74 @0x5
0x2c6f…2ca1 at0006 = ╱3c╱<╱ // 0x2c75 @0x6
0x2c6f…2ca1 at0007 = ╱53╱S╱ // 0x2c76 @0x7
0x2c6f…2ca1 at0008 = ╱3e╱>╱ // 0x2c77 @0x8
0x2c6f…2ca1 at0009 = ╱2d╱-╱ // 0x2c78 @0x9
0x2c6f…2ca1 at000a = ╱2d╱-╱ // 0x2c79 @0xa
0x2c6f…2ca1 at000b = ╱2d╱-╱ // 0x2c7a @0xb
0x2c6f…2ca1 at000c = ╱2d╱-╱ // 0x2c7b @0xc
0x2c6f…2ca1 at000d = ╱2d╱-╱ // 0x2c7c @0xd
0x2c6f…2ca1 at000e = ╱2d╱-╱ // 0x2c7d @0xe
0x2c6f…2ca1 at000f = ╱2d╱-╱ // 0x2c7e @0xf
0x2c6f…2ca1 at0010 = ╱2d╱-╱ // 0x2c7f @0x10
0x2c6f…2ca1 at0011 = ╱2d╱-╱ // 0x2c80 @0x11
0x2c6f…2ca1 at0012 = ╱2d╱-╱ // 0x2c81 @0x12
0x2c6f…2ca1 at0013 = ╱2d╱-╱ // 0x2c82 @0x13
0x2c6f…2ca1 at0014 = ╱2d╱-╱ // 0x2c83 @0x14
0x2c6f…2ca1 at0015 = ╱2d╱-╱ // 0x2c84 @0x15
0x2c6f…2ca1 at0016 = ╱2d╱-╱ // 0x2c85 @0x16
0x2c6f…2ca1 at0017 = ╱2d╱-╱ // 0x2c86 @0x17
0x2c6f…2ca1 at0018 = ╱2d╱-╱ // 0x2c87 @0x18
0x2c6f…2ca1 at0019 = ╱2d╱-╱ // 0x2c88 @0x19
0x2c6f…2ca1 at001a = ╱2d╱-╱ // 0x2c89 @0x1a
0x2c6f…2ca1 at001b = ╱2d╱-╱ // 0x2c8a @0x1b
0x2c6f…2ca1 at001c = ╱2d╱-╱ // 0x2c8b @0x1c
0x2c6f…2ca1 at001d = ╱2d╱-╱ // 0x2c8c @0x1d
0x2c6f…2ca1 at001e = ╱2d╱-╱ // 0x2c8d @0x1e
0x2c6f…2ca1 at001f = ╱2d╱-╱ // 0x2c8e @0x1f
0x2c6f…2ca1 at0020 = ╱2d╱-╱ // 0x2c8f @0x20
0x2c6f…2ca1 at0021 = ╱2d╱-╱ // 0x2c90 @0x21
0x2c6f…2ca1 at0022 = ╱2d╱-╱ // 0x2c91 @0x22
0x2c6f…2ca1 at0023 = ╱2d╱-╱ // 0x2c92 @0x23
0x2c6f…2ca1 at0024 = ╱2d╱-╱ // 0x2c93 @0x24
0x2c6f…2ca1 at0025 = ╱2d╱-╱ // 0x2c94 @0x25
0x2c6f…2ca1 at0026 = ╱2d╱-╱ // 0x2c95 @0x26
0x2c6f…2ca1 at0027 = ╱2d╱-╱ // 0x2c96 @0x27
0x2c6f…2ca1 at0028 = ╱2d╱-╱ // 0x2c97 @0x28
0x2c6f…2ca1 at0029 = ╱2d╱-╱ // 0x2c98 @0x29
0x2c6f…2ca1 at002a = ╱2d╱-╱ // 0x2c99 @0x2a
0x2c6f…2ca1 at002b = ╱2d╱-╱ // 0x2c9a @0x2b
0x2c6f…2ca1 at002c = ╱2d╱-╱ // 0x2c9b @0x2c
0x2c6f…2ca1 at002d = ╱2d╱-╱ // 0x2c9c @0x2d
0x2c6f…2ca1 at002e = ╱2d╱-╱ // 0x2c9d @0x2e
0x2c6f…2ca1 at002f = ╱2d╱-╱ // 0x2c9e @0x2f
0x2c6f…2ca1 at0030 = ╱22╱"╱ // 0x2c9f @0x30
0x2c6f…2ca1 at0031 = EOL // 0x2ca0 @0x31
0x2c6f…2ca1 }
0x2ca1…2cd1 c304 03060 PRINT "----------------------------------------"
0x2ca1…2cd1 LineComal80 {
0x2ca1…2cd1 ptr = 0xc304 // 0x2ca1 @0x0
0x2ca1…2cd1 lno = 0x0bf4 // 0x2ca3 @0x2
0x2ca1…2cd1 at0004 = ╱92╱ PRINT ╱ // 0x2ca5 @0x4
0x2ca1…2cd1 at0005 = ╱22╱"╱ // 0x2ca6 @0x5
0x2ca1…2cd1 at0006 = ╱2d╱-╱ // 0x2ca7 @0x6
0x2ca1…2cd1 at0007 = ╱2d╱-╱ // 0x2ca8 @0x7
0x2ca1…2cd1 at0008 = ╱2d╱-╱ // 0x2ca9 @0x8
0x2ca1…2cd1 at0009 = ╱2d╱-╱ // 0x2caa @0x9
0x2ca1…2cd1 at000a = ╱2d╱-╱ // 0x2cab @0xa
0x2ca1…2cd1 at000b = ╱2d╱-╱ // 0x2cac @0xb
0x2ca1…2cd1 at000c = ╱2d╱-╱ // 0x2cad @0xc
0x2ca1…2cd1 at000d = ╱2d╱-╱ // 0x2cae @0xd
0x2ca1…2cd1 at000e = ╱2d╱-╱ // 0x2caf @0xe
0x2ca1…2cd1 at000f = ╱2d╱-╱ // 0x2cb0 @0xf
0x2ca1…2cd1 at0010 = ╱2d╱-╱ // 0x2cb1 @0x10
0x2ca1…2cd1 at0011 = ╱2d╱-╱ // 0x2cb2 @0x11
0x2ca1…2cd1 at0012 = ╱2d╱-╱ // 0x2cb3 @0x12
0x2ca1…2cd1 at0013 = ╱2d╱-╱ // 0x2cb4 @0x13
0x2ca1…2cd1 at0014 = ╱2d╱-╱ // 0x2cb5 @0x14
0x2ca1…2cd1 at0015 = ╱2d╱-╱ // 0x2cb6 @0x15
0x2ca1…2cd1 at0016 = ╱2d╱-╱ // 0x2cb7 @0x16
0x2ca1…2cd1 at0017 = ╱2d╱-╱ // 0x2cb8 @0x17
0x2ca1…2cd1 at0018 = ╱2d╱-╱ // 0x2cb9 @0x18
0x2ca1…2cd1 at0019 = ╱2d╱-╱ // 0x2cba @0x19
0x2ca1…2cd1 at001a = ╱2d╱-╱ // 0x2cbb @0x1a
0x2ca1…2cd1 at001b = ╱2d╱-╱ // 0x2cbc @0x1b
0x2ca1…2cd1 at001c = ╱2d╱-╱ // 0x2cbd @0x1c
0x2ca1…2cd1 at001d = ╱2d╱-╱ // 0x2cbe @0x1d
0x2ca1…2cd1 at001e = ╱2d╱-╱ // 0x2cbf @0x1e
0x2ca1…2cd1 at001f = ╱2d╱-╱ // 0x2cc0 @0x1f
0x2ca1…2cd1 at0020 = ╱2d╱-╱ // 0x2cc1 @0x20
0x2ca1…2cd1 at0021 = ╱2d╱-╱ // 0x2cc2 @0x21
0x2ca1…2cd1 at0022 = ╱2d╱-╱ // 0x2cc3 @0x22
0x2ca1…2cd1 at0023 = ╱2d╱-╱ // 0x2cc4 @0x23
0x2ca1…2cd1 at0024 = ╱2d╱-╱ // 0x2cc5 @0x24
0x2ca1…2cd1 at0025 = ╱2d╱-╱ // 0x2cc6 @0x25
0x2ca1…2cd1 at0026 = ╱2d╱-╱ // 0x2cc7 @0x26
0x2ca1…2cd1 at0027 = ╱2d╱-╱ // 0x2cc8 @0x27
0x2ca1…2cd1 at0028 = ╱2d╱-╱ // 0x2cc9 @0x28
0x2ca1…2cd1 at0029 = ╱2d╱-╱ // 0x2cca @0x29
0x2ca1…2cd1 at002a = ╱2d╱-╱ // 0x2ccb @0x2a
0x2ca1…2cd1 at002b = ╱2d╱-╱ // 0x2ccc @0x2b
0x2ca1…2cd1 at002c = ╱2d╱-╱ // 0x2ccd @0x2c
0x2ca1…2cd1 at002d = ╱2d╱-╱ // 0x2cce @0x2d
0x2ca1…2cd1 at002e = ╱22╱"╱ // 0x2ccf @0x2e
0x2ca1…2cd1 at002f = EOL // 0x2cd0 @0x2f
0x2ca1…2cd1 }
0x2cd1…2d16 (149,) b53c 03070 PRINT TAB ( 54 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 55 ) ; CHR$ ( TOT ( 2 ) , 9 , 2 )
0x2cd1…2d16 LineComal80 {
0x2cd1…2d16 ptr = 0xb53c // 0x2cd1 @0x0
0x2cd1…2d16 lno = 0x0bfe // 0x2cd3 @0x2
0x2cd1…2d16 at0004 = ╱92╱ PRINT ╱ // 0x2cd5 @0x4
0x2cd1…2d16 at0005 = ╱d2╱ TAB ╱ // 0x2cd6 @0x5
0x2cd1…2d16 at0006 = ╱ed╱ ( ╱ // 0x2cd7 @0x6
0x2cd1…2d16 at0007 = ╱35╱5╱ // 0x2cd8 @0x7
0x2cd1…2d16 at0008 = ╱34╱4╱ // 0x2cd9 @0x8
0x2cd1…2d16 at0009 = ╱f23600╱ // 0x2cda @0x9
0x2cd1…2d16 at000c = ╱ee╱ ) ╱ // 0x2cdd @0xc
0x2cd1…2d16 at000d = ╱ea╱ ; ╱ // 0x2cde @0xd
0x2cd1…2d16 at000e = ╱d0╱ CHR$ ╱ // 0x2cdf @0xe
0x2cd1…2d16 at000f = ╱ed╱ ( ╱ // 0x2ce0 @0xf
0x2cd1…2d16 at0010 = ╱54╱T╱ // 0x2ce1 @0x10
0x2cd1…2d16 at0011 = ╱4f╱O╱ // 0x2ce2 @0x11
0x2cd1…2d16 at0012 = ╱54╱T╱ // 0x2ce3 @0x12
0x2cd1…2d16 at0013 = ╱ed╱ ( ╱ // 0x2ce4 @0x13
0x2cd1…2d16 at0014 = ╱31╱1╱ // 0x2ce5 @0x14
0x2cd1…2d16 at0015 = ╱f20100╱ // 0x2ce6 @0x15
0x2cd1…2d16 at0018 = ╱ee╱ ) ╱ // 0x2ce9 @0x18
0x2cd1…2d16 at0019 = ╱ec╱ , ╱ // 0x2cea @0x19
0x2cd1…2d16 at001a = ╱39╱9╱ // 0x2ceb @0x1a
0x2cd1…2d16 at001b = ╱f20900╱ // 0x2cec @0x1b
0x2cd1…2d16 at001e = ╱ec╱ , ╱ // 0x2cef @0x1e
0x2cd1…2d16 at001f = ╱32╱2╱ // 0x2cf0 @0x1f
0x2cd1…2d16 at0020 = ╱f20200╱ // 0x2cf1 @0x20
0x2cd1…2d16 at0023 = ╱ee╱ ) ╱ // 0x2cf4 @0x23
0x2cd1…2d16 at0024 = ╱ea╱ ; ╱ // 0x2cf5 @0x24
0x2cd1…2d16 at0025 = ╱d2╱ TAB ╱ // 0x2cf6 @0x25
0x2cd1…2d16 at0026 = ╱ed╱ ( ╱ // 0x2cf7 @0x26
0x2cd1…2d16 at0027 = ╱35╱5╱ // 0x2cf8 @0x27
0x2cd1…2d16 at0028 = ╱35╱5╱ // 0x2cf9 @0x28
0x2cd1…2d16 at0029 = ╱f23700╱ // 0x2cfa @0x29
0x2cd1…2d16 at002c = ╱ee╱ ) ╱ // 0x2cfd @0x2c
0x2cd1…2d16 at002d = ╱ea╱ ; ╱ // 0x2cfe @0x2d
0x2cd1…2d16 at002e = ╱d0╱ CHR$ ╱ // 0x2cff @0x2e
0x2cd1…2d16 at002f = ╱ed╱ ( ╱ // 0x2d00 @0x2f
0x2cd1…2d16 at0030 = ╱54╱T╱ // 0x2d01 @0x30
0x2cd1…2d16 at0031 = ╱4f╱O╱ // 0x2d02 @0x31
0x2cd1…2d16 at0032 = ╱54╱T╱ // 0x2d03 @0x32
0x2cd1…2d16 at0033 = ╱ed╱ ( ╱ // 0x2d04 @0x33
0x2cd1…2d16 at0034 = ╱32╱2╱ // 0x2d05 @0x34
0x2cd1…2d16 at0035 = ╱f20200╱ // 0x2d06 @0x35
0x2cd1…2d16 at0038 = ╱ee╱ ) ╱ // 0x2d09 @0x38
0x2cd1…2d16 at0039 = ╱ec╱ , ╱ // 0x2d0a @0x39
0x2cd1…2d16 at003a = ╱39╱9╱ // 0x2d0b @0x3a
0x2cd1…2d16 at003b = ╱f20900╱ // 0x2d0c @0x3b
0x2cd1…2d16 at003e = ╱ec╱ , ╱ // 0x2d0f @0x3e
0x2cd1…2d16 at003f = ╱32╱2╱ // 0x2d10 @0x3f
0x2cd1…2d16 at0040 = ╱f20200╱ // 0x2d11 @0x40
0x2cd1…2d16 at0043 = ╱ee╱ ) ╱ // 0x2d14 @0x43
0x2cd1…2d16 at0044 = EOL // 0x2d15 @0x44
0x2cd1…2d16 }
0x2d16…2d5b b53c 03070 PRINT TAB ( 42 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 55 ) ; CHR$ ( TOT ( 2 ) , 9 , 2 )
0x2d16…2d5b LineComal80 {
0x2d16…2d5b ptr = 0xb53c // 0x2d16 @0x0
0x2d16…2d5b lno = 0x0bfe // 0x2d18 @0x2
0x2d16…2d5b at0004 = ╱92╱ PRINT ╱ // 0x2d1a @0x4
0x2d16…2d5b at0005 = ╱d2╱ TAB ╱ // 0x2d1b @0x5
0x2d16…2d5b at0006 = ╱ed╱ ( ╱ // 0x2d1c @0x6
0x2d16…2d5b at0007 = ╱34╱4╱ // 0x2d1d @0x7
0x2d16…2d5b at0008 = ╱32╱2╱ // 0x2d1e @0x8
0x2d16…2d5b at0009 = ╱f22a00╱ // 0x2d1f @0x9
0x2d16…2d5b at000c = ╱ee╱ ) ╱ // 0x2d22 @0xc
0x2d16…2d5b at000d = ╱ea╱ ; ╱ // 0x2d23 @0xd
0x2d16…2d5b at000e = ╱d0╱ CHR$ ╱ // 0x2d24 @0xe
0x2d16…2d5b at000f = ╱ed╱ ( ╱ // 0x2d25 @0xf
0x2d16…2d5b at0010 = ╱54╱T╱ // 0x2d26 @0x10
0x2d16…2d5b at0011 = ╱4f╱O╱ // 0x2d27 @0x11
0x2d16…2d5b at0012 = ╱54╱T╱ // 0x2d28 @0x12
0x2d16…2d5b at0013 = ╱ed╱ ( ╱ // 0x2d29 @0x13
0x2d16…2d5b at0014 = ╱31╱1╱ // 0x2d2a @0x14
0x2d16…2d5b at0015 = ╱f20100╱ // 0x2d2b @0x15
0x2d16…2d5b at0018 = ╱ee╱ ) ╱ // 0x2d2e @0x18
0x2d16…2d5b at0019 = ╱ec╱ , ╱ // 0x2d2f @0x19
0x2d16…2d5b at001a = ╱39╱9╱ // 0x2d30 @0x1a
0x2d16…2d5b at001b = ╱f20900╱ // 0x2d31 @0x1b
0x2d16…2d5b at001e = ╱ec╱ , ╱ // 0x2d34 @0x1e
0x2d16…2d5b at001f = ╱32╱2╱ // 0x2d35 @0x1f
0x2d16…2d5b at0020 = ╱f20200╱ // 0x2d36 @0x20
0x2d16…2d5b at0023 = ╱ee╱ ) ╱ // 0x2d39 @0x23
0x2d16…2d5b at0024 = ╱ea╱ ; ╱ // 0x2d3a @0x24
0x2d16…2d5b at0025 = ╱d2╱ TAB ╱ // 0x2d3b @0x25
0x2d16…2d5b at0026 = ╱ed╱ ( ╱ // 0x2d3c @0x26
0x2d16…2d5b at0027 = ╱35╱5╱ // 0x2d3d @0x27
0x2d16…2d5b at0028 = ╱35╱5╱ // 0x2d3e @0x28
0x2d16…2d5b at0029 = ╱f23700╱ // 0x2d3f @0x29
0x2d16…2d5b at002c = ╱ee╱ ) ╱ // 0x2d42 @0x2c
0x2d16…2d5b at002d = ╱ea╱ ; ╱ // 0x2d43 @0x2d
0x2d16…2d5b at002e = ╱d0╱ CHR$ ╱ // 0x2d44 @0x2e
0x2d16…2d5b at002f = ╱ed╱ ( ╱ // 0x2d45 @0x2f
0x2d16…2d5b at0030 = ╱54╱T╱ // 0x2d46 @0x30
0x2d16…2d5b at0031 = ╱4f╱O╱ // 0x2d47 @0x31
0x2d16…2d5b at0032 = ╱54╱T╱ // 0x2d48 @0x32
0x2d16…2d5b at0033 = ╱ed╱ ( ╱ // 0x2d49 @0x33
0x2d16…2d5b at0034 = ╱32╱2╱ // 0x2d4a @0x34
0x2d16…2d5b at0035 = ╱f20200╱ // 0x2d4b @0x35
0x2d16…2d5b at0038 = ╱ee╱ ) ╱ // 0x2d4e @0x38
0x2d16…2d5b at0039 = ╱ec╱ , ╱ // 0x2d4f @0x39
0x2d16…2d5b at003a = ╱39╱9╱ // 0x2d50 @0x3a
0x2d16…2d5b at003b = ╱f20900╱ // 0x2d51 @0x3b
0x2d16…2d5b at003e = ╱ec╱ , ╱ // 0x2d54 @0x3e
0x2d16…2d5b at003f = ╱32╱2╱ // 0x2d55 @0x3f
0x2d16…2d5b at0040 = ╱f20200╱ // 0x2d56 @0x40
0x2d16…2d5b at0043 = ╱ee╱ ) ╱ // 0x2d59 @0x43
0x2d16…2d5b at0044 = EOL // 0x2d5a @0x44
0x2d16…2d5b }
0x2d5b…2d84 c372 02930 PRINT TAB ( 42 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ;
0x2d5b…2d84 LineComal80 {
0x2d5b…2d84 ptr = 0xc372 // 0x2d5b @0x0
0x2d5b…2d84 lno = 0x0b72 // 0x2d5d @0x2
0x2d5b…2d84 at0004 = ╱92╱ PRINT ╱ // 0x2d5f @0x4
0x2d5b…2d84 at0005 = ╱d2╱ TAB ╱ // 0x2d60 @0x5
0x2d5b…2d84 at0006 = ╱ed╱ ( ╱ // 0x2d61 @0x6
0x2d5b…2d84 at0007 = ╱34╱4╱ // 0x2d62 @0x7
0x2d5b…2d84 at0008 = ╱32╱2╱ // 0x2d63 @0x8
0x2d5b…2d84 at0009 = ╱f22a00╱ // 0x2d64 @0x9
0x2d5b…2d84 at000c = ╱ee╱ ) ╱ // 0x2d67 @0xc
0x2d5b…2d84 at000d = ╱ea╱ ; ╱ // 0x2d68 @0xd
0x2d5b…2d84 at000e = ╱d0╱ CHR$ ╱ // 0x2d69 @0xe
0x2d5b…2d84 at000f = ╱ed╱ ( ╱ // 0x2d6a @0xf
0x2d5b…2d84 at0010 = ╱51╱Q╱ // 0x2d6b @0x10
0x2d5b…2d84 at0011 = ╱5f╱_╱ // 0x2d6c @0x11
0x2d5b…2d84 at0012 = ╱4b╱K╱ // 0x2d6d @0x12
0x2d5b…2d84 at0013 = ╱ec╱ , ╱ // 0x2d6e @0x13
0x2d5b…2d84 at0014 = ╱39╱9╱ // 0x2d6f @0x14
0x2d5b…2d84 at0015 = ╱f20900╱ // 0x2d70 @0x15
0x2d5b…2d84 at0018 = ╱ec╱ , ╱ // 0x2d73 @0x18
0x2d5b…2d84 at0019 = ╱32╱2╱ // 0x2d74 @0x19
0x2d5b…2d84 at001a = ╱f20200╱ // 0x2d75 @0x1a
0x2d5b…2d84 at001d = ╱ee╱ ) ╱ // 0x2d78 @0x1d
0x2d5b…2d84 at001e = ╱ea╱ ; ╱ // 0x2d79 @0x1e
0x2d5b…2d84 at001f = ╱d2╱ TAB ╱ // 0x2d7a @0x1f
0x2d5b…2d84 at0020 = ╱ed╱ ( ╱ // 0x2d7b @0x20
0x2d5b…2d84 at0021 = ╱36╱6╱ // 0x2d7c @0x21
0x2d5b…2d84 at0022 = ╱37╱7╱ // 0x2d7d @0x22
0x2d5b…2d84 at0023 = ╱f24300╱ // 0x2d7e @0x23
0x2d5b…2d84 at0026 = ╱ee╱ ) ╱ // 0x2d81 @0x26
0x2d5b…2d84 at0027 = ╱ea╱ ; ╱ // 0x2d82 @0x27
0x2d5b…2d84 at0028 = EOL // 0x2d83 @0x28
0x2d5b…2d84 }
0x2d84…2da1 c38f 02940 LET TOT ( 1 ) := TOT ( 1 ) + Q_K
0x2d84…2da1 LineComal80 {
0x2d84…2da1 ptr = 0xc38f // 0x2d84 @0x0
0x2d84…2da1 lno = 0x0b7c // 0x2d86 @0x2
0x2d84…2da1 at0004 = ╱86╱ LET ╱ // 0x2d88 @0x4
0x2d84…2da1 at0005 = ╱54╱T╱ // 0x2d89 @0x5
0x2d84…2da1 at0006 = ╱4f╱O╱ // 0x2d8a @0x6
0x2d84…2da1 at0007 = ╱54╱T╱ // 0x2d8b @0x7
0x2d84…2da1 at0008 = ╱ed╱ ( ╱ // 0x2d8c @0x8
0x2d84…2da1 at0009 = ╱31╱1╱ // 0x2d8d @0x9
0x2d84…2da1 at000a = ╱f20100╱ // 0x2d8e @0xa
0x2d84…2da1 at000d = ╱ee╱ ) ╱ // 0x2d91 @0xd
0x2d84…2da1 at000e = ╱f0╱ := ╱ // 0x2d92 @0xe
0x2d84…2da1 at000f = ╱54╱T╱ // 0x2d93 @0xf
0x2d84…2da1 at0010 = ╱4f╱O╱ // 0x2d94 @0x10
0x2d84…2da1 at0011 = ╱54╱T╱ // 0x2d95 @0x11
0x2d84…2da1 at0012 = ╱ed╱ ( ╱ // 0x2d96 @0x12
0x2d84…2da1 at0013 = ╱31╱1╱ // 0x2d97 @0x13
0x2d84…2da1 at0014 = ╱f20100╱ // 0x2d98 @0x14
0x2d84…2da1 at0017 = ╱ee╱ ) ╱ // 0x2d9b @0x17
0x2d84…2da1 at0018 = ╱e5╱ + ╱ // 0x2d9c @0x18
0x2d84…2da1 at0019 = ╱51╱Q╱ // 0x2d9d @0x19
0x2d84…2da1 at001a = ╱5f╱_╱ // 0x2d9e @0x1a
0x2d84…2da1 at001b = ╱4b╱K╱ // 0x2d9f @0x1b
0x2d84…2da1 at001c = EOL // 0x2da0 @0x1c
0x2d84…2da1 }
0x2da1…2da8 c396 02950 ELSE
0x2da1…2da8 LineComal80 {
0x2da1…2da8 ptr = 0xc396 // 0x2da1 @0x0
0x2da1…2da8 lno = 0x0b86 // 0x2da3 @0x2
0x2da1…2da8 at0004 = ╱9a32╱ ELSE ╱ // 0x2da5 @0x4
0x2da1…2da8 at0006 = EOL // 0x2da7 @0x6
0x2da1…2da8 }
0x2da8…2dd1 c49b 02960 PRINT TAB ( 55 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ;
0x2da8…2dd1 LineComal80 {
0x2da8…2dd1 ptr = 0xc49b // 0x2da8 @0x0
0x2da8…2dd1 lno = 0x0b90 // 0x2daa @0x2
0x2da8…2dd1 at0004 = ╱92╱ PRINT ╱ // 0x2dac @0x4
0x2da8…2dd1 at0005 = ╱d2╱ TAB ╱ // 0x2dad @0x5
0x2da8…2dd1 at0006 = ╱ed╱ ( ╱ // 0x2dae @0x6
0x2da8…2dd1 at0007 = ╱35╱5╱ // 0x2daf @0x7
0x2da8…2dd1 at0008 = ╱35╱5╱ // 0x2db0 @0x8
0x2da8…2dd1 at0009 = ╱f23700╱ // 0x2db1 @0x9
0x2da8…2dd1 at000c = ╱ee╱ ) ╱ // 0x2db4 @0xc
0x2da8…2dd1 at000d = ╱ea╱ ; ╱ // 0x2db5 @0xd
0x2da8…2dd1 at000e = ╱d0╱ CHR$ ╱ // 0x2db6 @0xe
0x2da8…2dd1 at000f = ╱ed╱ ( ╱ // 0x2db7 @0xf
0x2da8…2dd1 at0010 = ╱51╱Q╱ // 0x2db8 @0x10
0x2da8…2dd1 at0011 = ╱5f╱_╱ // 0x2db9 @0x11
0x2da8…2dd1 at0012 = ╱4b╱K╱ // 0x2dba @0x12
0x2da8…2dd1 at0013 = ╱ec╱ , ╱ // 0x2dbb @0x13
0x2da8…2dd1 at0014 = ╱39╱9╱ // 0x2dbc @0x14
0x2da8…2dd1 at0015 = ╱f20900╱ // 0x2dbd @0x15
0x2da8…2dd1 at0018 = ╱ec╱ , ╱ // 0x2dc0 @0x18
0x2da8…2dd1 at0019 = ╱32╱2╱ // 0x2dc1 @0x19
0x2da8…2dd1 at001a = ╱f20200╱ // 0x2dc2 @0x1a
0x2da8…2dd1 at001d = ╱ee╱ ) ╱ // 0x2dc5 @0x1d
0x2da8…2dd1 at001e = ╱ea╱ ; ╱ // 0x2dc6 @0x1e
0x2da8…2dd1 at001f = ╱d2╱ TAB ╱ // 0x2dc7 @0x1f
0x2da8…2dd1 at0020 = ╱ed╱ ( ╱ // 0x2dc8 @0x20
0x2da8…2dd1 at0021 = ╱36╱6╱ // 0x2dc9 @0x21
0x2da8…2dd1 at0022 = ╱37╱7╱ // 0x2dca @0x22
0x2da8…2dd1 at0023 = ╱f24300╱ // 0x2dcb @0x23
0x2da8…2dd1 at0026 = ╱ee╱ ) ╱ // 0x2dce @0x26
0x2da8…2dd1 at0027 = ╱ea╱ ; ╱ // 0x2dcf @0x27
0x2da8…2dd1 at0028 = EOL // 0x2dd0 @0x28
0x2da8…2dd1 }
0x2dd1…2e00 b5a9 03100 PRINT TAB ( 55 ) ; CHR$ ( TOT ( 1 ) - TOT ( 2 ) , 9 , 2 )
0x2dd1…2e00 LineComal80 {
0x2dd1…2e00 ptr = 0xb5a9 // 0x2dd1 @0x0
0x2dd1…2e00 lno = 0x0c1c // 0x2dd3 @0x2
0x2dd1…2e00 at0004 = ╱92╱ PRINT ╱ // 0x2dd5 @0x4
0x2dd1…2e00 at0005 = ╱d2╱ TAB ╱ // 0x2dd6 @0x5
0x2dd1…2e00 at0006 = ╱ed╱ ( ╱ // 0x2dd7 @0x6
0x2dd1…2e00 at0007 = ╱35╱5╱ // 0x2dd8 @0x7
0x2dd1…2e00 at0008 = ╱35╱5╱ // 0x2dd9 @0x8
0x2dd1…2e00 at0009 = ╱f23700╱ // 0x2dda @0x9
0x2dd1…2e00 at000c = ╱ee╱ ) ╱ // 0x2ddd @0xc
0x2dd1…2e00 at000d = ╱ea╱ ; ╱ // 0x2dde @0xd
0x2dd1…2e00 at000e = ╱d0╱ CHR$ ╱ // 0x2ddf @0xe
0x2dd1…2e00 at000f = ╱ed╱ ( ╱ // 0x2de0 @0xf
0x2dd1…2e00 at0010 = ╱54╱T╱ // 0x2de1 @0x10
0x2dd1…2e00 at0011 = ╱4f╱O╱ // 0x2de2 @0x11
0x2dd1…2e00 at0012 = ╱54╱T╱ // 0x2de3 @0x12
0x2dd1…2e00 at0013 = ╱ed╱ ( ╱ // 0x2de4 @0x13
0x2dd1…2e00 at0014 = ╱31╱1╱ // 0x2de5 @0x14
0x2dd1…2e00 at0015 = ╱f20100╱ // 0x2de6 @0x15
0x2dd1…2e00 at0018 = ╱ee╱ ) ╱ // 0x2de9 @0x18
0x2dd1…2e00 at0019 = ╱e6╱ - ╱ // 0x2dea @0x19
0x2dd1…2e00 at001a = ╱54╱T╱ // 0x2deb @0x1a
0x2dd1…2e00 at001b = ╱4f╱O╱ // 0x2dec @0x1b
0x2dd1…2e00 at001c = ╱54╱T╱ // 0x2ded @0x1c
0x2dd1…2e00 at001d = ╱ed╱ ( ╱ // 0x2dee @0x1d
0x2dd1…2e00 at001e = ╱32╱2╱ // 0x2def @0x1e
0x2dd1…2e00 at001f = ╱f20200╱ // 0x2df0 @0x1f
0x2dd1…2e00 at0022 = ╱ee╱ ) ╱ // 0x2df3 @0x22
0x2dd1…2e00 at0023 = ╱ec╱ , ╱ // 0x2df4 @0x23
0x2dd1…2e00 at0024 = ╱39╱9╱ // 0x2df5 @0x24
0x2dd1…2e00 at0025 = ╱f20900╱ // 0x2df6 @0x25
0x2dd1…2e00 at0028 = ╱ec╱ , ╱ // 0x2df9 @0x28
0x2dd1…2e00 at0029 = ╱32╱2╱ // 0x2dfa @0x29
0x2dd1…2e00 at002a = ╱f20200╱ // 0x2dfb @0x2a
0x2dd1…2e00 at002d = ╱ee╱ ) ╱ // 0x2dfe @0x2d
0x2dd1…2e00 at002e = EOL // 0x2dff @0x2e
0x2dd1…2e00 }
0x2e00…2e2f b5f8 03130 PRINT TAB ( 42 ) ; CHR$ ( TOT ( 2 ) - TOT ( 1 ) , 9 , 2 )
0x2e00…2e2f LineComal80 {
0x2e00…2e2f ptr = 0xb5f8 // 0x2e00 @0x0
0x2e00…2e2f lno = 0x0c3a // 0x2e02 @0x2
0x2e00…2e2f at0004 = ╱92╱ PRINT ╱ // 0x2e04 @0x4
0x2e00…2e2f at0005 = ╱d2╱ TAB ╱ // 0x2e05 @0x5
0x2e00…2e2f at0006 = ╱ed╱ ( ╱ // 0x2e06 @0x6
0x2e00…2e2f at0007 = ╱34╱4╱ // 0x2e07 @0x7
0x2e00…2e2f at0008 = ╱32╱2╱ // 0x2e08 @0x8
0x2e00…2e2f at0009 = ╱f22a00╱ // 0x2e09 @0x9
0x2e00…2e2f at000c = ╱ee╱ ) ╱ // 0x2e0c @0xc
0x2e00…2e2f at000d = ╱ea╱ ; ╱ // 0x2e0d @0xd
0x2e00…2e2f at000e = ╱d0╱ CHR$ ╱ // 0x2e0e @0xe
0x2e00…2e2f at000f = ╱ed╱ ( ╱ // 0x2e0f @0xf
0x2e00…2e2f at0010 = ╱54╱T╱ // 0x2e10 @0x10
0x2e00…2e2f at0011 = ╱4f╱O╱ // 0x2e11 @0x11
0x2e00…2e2f at0012 = ╱54╱T╱ // 0x2e12 @0x12
0x2e00…2e2f at0013 = ╱ed╱ ( ╱ // 0x2e13 @0x13
0x2e00…2e2f at0014 = ╱32╱2╱ // 0x2e14 @0x14
0x2e00…2e2f at0015 = ╱f20200╱ // 0x2e15 @0x15
0x2e00…2e2f at0018 = ╱ee╱ ) ╱ // 0x2e18 @0x18
0x2e00…2e2f at0019 = ╱e6╱ - ╱ // 0x2e19 @0x19
0x2e00…2e2f at001a = ╱54╱T╱ // 0x2e1a @0x1a
0x2e00…2e2f at001b = ╱4f╱O╱ // 0x2e1b @0x1b
0x2e00…2e2f at001c = ╱54╱T╱ // 0x2e1c @0x1c
0x2e00…2e2f at001d = ╱ed╱ ( ╱ // 0x2e1d @0x1d
0x2e00…2e2f at001e = ╱31╱1╱ // 0x2e1e @0x1e
0x2e00…2e2f at001f = ╱f20100╱ // 0x2e1f @0x1f
0x2e00…2e2f at0022 = ╱ee╱ ) ╱ // 0x2e22 @0x22
0x2e00…2e2f at0023 = ╱ec╱ , ╱ // 0x2e23 @0x23
0x2e00…2e2f at0024 = ╱39╱9╱ // 0x2e24 @0x24
0x2e00…2e2f at0025 = ╱f20900╱ // 0x2e25 @0x25
0x2e00…2e2f at0028 = ╱ec╱ , ╱ // 0x2e28 @0x28
0x2e00…2e2f at0029 = ╱32╱2╱ // 0x2e29 @0x29
0x2e00…2e2f at002a = ╱f20200╱ // 0x2e2a @0x2a
0x2e00…2e2f at002d = ╱ee╱ ) ╱ // 0x2e2d @0x2d
0x2e00…2e2f at002e = EOL // 0x2e2e @0x2e
0x2e00…2e2f }
0x2e2f…2e82 b66a 03160 PRINT TAB ( 18 ) ; "BALANCE" ; TAB ( 42 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; "…" ; CHR$ ( TOT ( 1 ) , 9 , 2 )
0x2e2f…2e82 LineComal80 {
0x2e2f…2e82 ptr = 0xb66a // 0x2e2f @0x0
0x2e2f…2e82 lno = 0x0c58 // 0x2e31 @0x2
0x2e2f…2e82 at0004 = ╱92╱ PRINT ╱ // 0x2e33 @0x4
0x2e2f…2e82 at0005 = ╱d2╱ TAB ╱ // 0x2e34 @0x5
0x2e2f…2e82 at0006 = ╱ed╱ ( ╱ // 0x2e35 @0x6
0x2e2f…2e82 at0007 = ╱31╱1╱ // 0x2e36 @0x7
0x2e2f…2e82 at0008 = ╱38╱8╱ // 0x2e37 @0x8
0x2e2f…2e82 at0009 = ╱f21200╱ // 0x2e38 @0x9
0x2e2f…2e82 at000c = ╱ee╱ ) ╱ // 0x2e3b @0xc
0x2e2f…2e82 at000d = ╱ea╱ ; ╱ // 0x2e3c @0xd
0x2e2f…2e82 at000e = ╱22╱"╱ // 0x2e3d @0xe
0x2e2f…2e82 at000f = ╱42╱B╱ // 0x2e3e @0xf
0x2e2f…2e82 at0010 = ╱41╱A╱ // 0x2e3f @0x10
0x2e2f…2e82 at0011 = ╱4c╱L╱ // 0x2e40 @0x11
0x2e2f…2e82 at0012 = ╱41╱A╱ // 0x2e41 @0x12
0x2e2f…2e82 at0013 = ╱4e╱N╱ // 0x2e42 @0x13
0x2e2f…2e82 at0014 = ╱43╱C╱ // 0x2e43 @0x14
0x2e2f…2e82 at0015 = ╱45╱E╱ // 0x2e44 @0x15
0x2e2f…2e82 at0016 = ╱22╱"╱ // 0x2e45 @0x16
0x2e2f…2e82 at0017 = ╱ea╱ ; ╱ // 0x2e46 @0x17
0x2e2f…2e82 at0018 = ╱d2╱ TAB ╱ // 0x2e47 @0x18
0x2e2f…2e82 at0019 = ╱ed╱ ( ╱ // 0x2e48 @0x19
0x2e2f…2e82 at001a = ╱34╱4╱ // 0x2e49 @0x1a
0x2e2f…2e82 at001b = ╱32╱2╱ // 0x2e4a @0x1b
0x2e2f…2e82 at001c = ╱f22a00╱ // 0x2e4b @0x1c
0x2e2f…2e82 at001f = ╱ee╱ ) ╱ // 0x2e4e @0x1f
0x2e2f…2e82 at0020 = ╱ea╱ ; ╱ // 0x2e4f @0x20
0x2e2f…2e82 at0021 = ╱d0╱ CHR$ ╱ // 0x2e50 @0x21
0x2e2f…2e82 at0022 = ╱ed╱ ( ╱ // 0x2e51 @0x22
0x2e2f…2e82 at0023 = ╱54╱T╱ // 0x2e52 @0x23
0x2e2f…2e82 at0024 = ╱4f╱O╱ // 0x2e53 @0x24
0x2e2f…2e82 at0025 = ╱54╱T╱ // 0x2e54 @0x25
0x2e2f…2e82 at0026 = ╱ed╱ ( ╱ // 0x2e55 @0x26
0x2e2f…2e82 at0027 = ╱31╱1╱ // 0x2e56 @0x27
0x2e2f…2e82 at0028 = ╱f20100╱ // 0x2e57 @0x28
0x2e2f…2e82 at002b = ╱ee╱ ) ╱ // 0x2e5a @0x2b
0x2e2f…2e82 at002c = ╱ec╱ , ╱ // 0x2e5b @0x2c
0x2e2f…2e82 at002d = ╱39╱9╱ // 0x2e5c @0x2d
0x2e2f…2e82 at002e = ╱f20900╱ // 0x2e5d @0x2e
0x2e2f…2e82 at0031 = ╱ec╱ , ╱ // 0x2e60 @0x31
0x2e2f…2e82 at0032 = ╱32╱2╱ // 0x2e61 @0x32
0x2e2f…2e82 at0033 = ╱f20200╱ // 0x2e62 @0x33
0x2e2f…2e82 at0036 = ╱ee╱ ) ╱ // 0x2e65 @0x36
0x2e2f…2e82 at0037 = ╱ea╱ ; ╱ // 0x2e66 @0x37
0x2e2f…2e82 at0038 = ╱22╱"╱ // 0x2e67 @0x38
0x2e2f…2e82 at0039 = ╱20╱…╱ // 0x2e68 @0x39
0x2e2f…2e82 at003a = ╱22╱"╱ // 0x2e69 @0x3a
0x2e2f…2e82 at003b = ╱ea╱ ; ╱ // 0x2e6a @0x3b
0x2e2f…2e82 at003c = ╱d0╱ CHR$ ╱ // 0x2e6b @0x3c
0x2e2f…2e82 at003d = ╱ed╱ ( ╱ // 0x2e6c @0x3d
0x2e2f…2e82 at003e = ╱54╱T╱ // 0x2e6d @0x3e
0x2e2f…2e82 at003f = ╱4f╱O╱ // 0x2e6e @0x3f
0x2e2f…2e82 at0040 = ╱54╱T╱ // 0x2e6f @0x40
0x2e2f…2e82 at0041 = ╱ed╱ ( ╱ // 0x2e70 @0x41
0x2e2f…2e82 at0042 = ╱31╱1╱ // 0x2e71 @0x42
0x2e2f…2e82 at0043 = ╱f20100╱ // 0x2e72 @0x43
0x2e2f…2e82 at0046 = ╱ee╱ ) ╱ // 0x2e75 @0x46
0x2e2f…2e82 at0047 = ╱ec╱ , ╱ // 0x2e76 @0x47
0x2e2f…2e82 at0048 = ╱39╱9╱ // 0x2e77 @0x48
0x2e2f…2e82 at0049 = ╱f20900╱ // 0x2e78 @0x49
0x2e2f…2e82 at004c = ╱ec╱ , ╱ // 0x2e7b @0x4c
0x2e2f…2e82 at004d = ╱32╱2╱ // 0x2e7c @0x4d
0x2e2f…2e82 at004e = ╱f20200╱ // 0x2e7d @0x4e
0x2e2f…2e82 at0051 = ╱ee╱ ) ╱ // 0x2e80 @0x51
0x2e2f…2e82 at0052 = EOL // 0x2e81 @0x52
0x2e2f…2e82 }
0x2e82…2eca 3239 12594 38 ╱00╱ ╱00╱ ╱06╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ …… ╱00╱ ╱00╱ ╱05╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ODLAS…LEMMAG ╱00╱ ╱00╱ ╱14╱ ╱00╱ STEP ABS ELSE LET TOT ( 2 ) := TOT ( 2 ) + Q_K
0x2e82…2eca LineComal80 {
0x2e82…2eca ptr = 0x3239 // 0x2e82 @0x0
0x2e82…2eca lno = 0x3132 // 0x2e84 @0x2
0x2e82…2eca at0004 = ╱33╱3╱ // 0x2e86 @0x4
0x2e82…2eca at0005 = ╱38╱8╱ // 0x2e87 @0x5
0x2e82…2eca at0006 = ╱00╱ // 0x2e88 @0x6
0x2e82…2eca at0007 = ╱00╱ // 0x2e89 @0x7
0x2e82…2eca at0008 = ╱06╱ // 0x2e8a @0x8
0x2e82…2eca at0009 = ╱00╱ // 0x2e8b @0x9
0x2e82…2eca at000a = ╱1f╱ // 0x2e8c @0xa
0x2e82…2eca at000b = ╱1f╱ // 0x2e8d @0xb
0x2e82…2eca at000c = ╱1f╱ // 0x2e8e @0xc
0x2e82…2eca at000d = ╱20╱…╱ // 0x2e8f @0xd
0x2e82…2eca at000e = ╱20╱…╱ // 0x2e90 @0xe
0x2e82…2eca at000f = ╱00╱ // 0x2e91 @0xf
0x2e82…2eca at0010 = ╱00╱ // 0x2e92 @0x10
0x2e82…2eca at0011 = ╱05╱ // 0x2e93 @0x11
0x2e82…2eca at0012 = ╱00╱ // 0x2e94 @0x12
0x2e82…2eca at0013 = ╱1f╱ // 0x2e95 @0x13
0x2e82…2eca at0014 = ╱1f╱ // 0x2e96 @0x14
0x2e82…2eca at0015 = ╱1f╱ // 0x2e97 @0x15
0x2e82…2eca at0016 = ╱1f╱ // 0x2e98 @0x16
0x2e82…2eca at0017 = ╱1f╱ // 0x2e99 @0x17
0x2e82…2eca at0018 = ╱1f╱ // 0x2e9a @0x18
0x2e82…2eca at0019 = ╱1f╱ // 0x2e9b @0x19
0x2e82…2eca at001a = ╱1f╱ // 0x2e9c @0x1a
0x2e82…2eca at001b = ╱4f╱O╱ // 0x2e9d @0x1b
0x2e82…2eca at001c = ╱44╱D╱ // 0x2e9e @0x1c
0x2e82…2eca at001d = ╱4c╱L╱ // 0x2e9f @0x1d
0x2e82…2eca at001e = ╱41╱A╱ // 0x2ea0 @0x1e
0x2e82…2eca at001f = ╱53╱S╱ // 0x2ea1 @0x1f
0x2e82…2eca at0020 = ╱20╱…╱ // 0x2ea2 @0x20
0x2e82…2eca at0021 = ╱4c╱L╱ // 0x2ea3 @0x21
0x2e82…2eca at0022 = ╱45╱E╱ // 0x2ea4 @0x22
0x2e82…2eca at0023 = ╱4d╱M╱ // 0x2ea5 @0x23
0x2e82…2eca at0024 = ╱4d╱M╱ // 0x2ea6 @0x24
0x2e82…2eca at0025 = ╱41╱A╱ // 0x2ea7 @0x25
0x2e82…2eca at0026 = ╱47╱G╱ // 0x2ea8 @0x26
0x2e82…2eca at0027 = ╱00╱ // 0x2ea9 @0x27
0x2e82…2eca at0028 = ╱00╱ // 0x2eaa @0x28
0x2e82…2eca at0029 = ╱14╱ // 0x2eab @0x29
0x2e82…2eca at002a = ╱00╱ // 0x2eac @0x2a
0x2e82…2eca at002b = ╱b8╱ STEP ╱ // 0x2ead @0x2b
0x2e82…2eca at002c = ╱c4╱ ABS ╱ // 0x2eae @0x2c
0x2e82…2eca at002d = ╱9a0b╱ ELSE ╱ // 0x2eaf @0x2d
0x2e82…2eca at002f = ╱86╱ LET ╱ // 0x2eb1 @0x2f
0x2e82…2eca at0030 = ╱54╱T╱ // 0x2eb2 @0x30
0x2e82…2eca at0031 = ╱4f╱O╱ // 0x2eb3 @0x31
0x2e82…2eca at0032 = ╱54╱T╱ // 0x2eb4 @0x32
0x2e82…2eca at0033 = ╱ed╱ ( ╱ // 0x2eb5 @0x33
0x2e82…2eca at0034 = ╱32╱2╱ // 0x2eb6 @0x34
0x2e82…2eca at0035 = ╱f20200╱ // 0x2eb7 @0x35
0x2e82…2eca at0038 = ╱ee╱ ) ╱ // 0x2eba @0x38
0x2e82…2eca at0039 = ╱f0╱ := ╱ // 0x2ebb @0x39
0x2e82…2eca at003a = ╱54╱T╱ // 0x2ebc @0x3a
0x2e82…2eca at003b = ╱4f╱O╱ // 0x2ebd @0x3b
0x2e82…2eca at003c = ╱54╱T╱ // 0x2ebe @0x3c
0x2e82…2eca at003d = ╱ed╱ ( ╱ // 0x2ebf @0x3d
0x2e82…2eca at003e = ╱32╱2╱ // 0x2ec0 @0x3e
0x2e82…2eca at003f = ╱f20200╱ // 0x2ec1 @0x3f
0x2e82…2eca at0042 = ╱ee╱ ) ╱ // 0x2ec4 @0x42
0x2e82…2eca at0043 = ╱e5╱ + ╱ // 0x2ec5 @0x43
0x2e82…2eca at0044 = ╱51╱Q╱ // 0x2ec6 @0x44
0x2e82…2eca at0045 = ╱5f╱_╱ // 0x2ec7 @0x45
0x2e82…2eca at0046 = ╱4b╱K╱ // 0x2ec8 @0x46
0x2e82…2eca at0047 = EOL // 0x2ec9 @0x47
0x2e82…2eca }
0x2eca…2ed0 c4be 02980 ENDIF
0x2eca…2ed0 LineComal80 {
0x2eca…2ed0 ptr = 0xc4be // 0x2eca @0x0
0x2eca…2ed0 lno = 0x0ba4 // 0x2ecc @0x2
0x2eca…2ed0 at0004 = ╱9c╱ ENDIF ╱ // 0x2ece @0x4
0x2eca…2ed0 at0005 = EOL // 0x2ecf @0x5
0x2eca…2ed0 }
0x2ed0…2eeb c201 02981 PRINT CHR$ ( ABS ( SUM ) , 10 , 2 ) ;
0x2ed0…2eeb LineComal80 {
0x2ed0…2eeb ptr = 0xc201 // 0x2ed0 @0x0
0x2ed0…2eeb lno = 0x0ba5 // 0x2ed2 @0x2
0x2ed0…2eeb at0004 = ╱92╱ PRINT ╱ // 0x2ed4 @0x4
0x2ed0…2eeb at0005 = ╱d0╱ CHR$ ╱ // 0x2ed5 @0x5
0x2ed0…2eeb at0006 = ╱ed╱ ( ╱ // 0x2ed6 @0x6
0x2ed0…2eeb at0007 = ╱c4╱ ABS ╱ // 0x2ed7 @0x7
0x2ed0…2eeb at0008 = ╱ed╱ ( ╱ // 0x2ed8 @0x8
0x2ed0…2eeb at0009 = ╱53╱S╱ // 0x2ed9 @0x9
0x2ed0…2eeb at000a = ╱55╱U╱ // 0x2eda @0xa
0x2ed0…2eeb at000b = ╱4d╱M╱ // 0x2edb @0xb
0x2ed0…2eeb at000c = ╱ee╱ ) ╱ // 0x2edc @0xc
0x2ed0…2eeb at000d = ╱ec╱ , ╱ // 0x2edd @0xd
0x2ed0…2eeb at000e = ╱31╱1╱ // 0x2ede @0xe
0x2ed0…2eeb at000f = ╱30╱0╱ // 0x2edf @0xf
0x2ed0…2eeb at0010 = ╱f20a00╱ // 0x2ee0 @0x10
0x2ed0…2eeb at0013 = ╱ec╱ , ╱ // 0x2ee3 @0x13
0x2ed0…2eeb at0014 = ╱32╱2╱ // 0x2ee4 @0x14
0x2ed0…2eeb at0015 = ╱f20200╱ // 0x2ee5 @0x15
0x2ed0…2eeb at0018 = ╱ee╱ ) ╱ // 0x2ee8 @0x18
0x2ed0…2eeb at0019 = ╱ea╱ ; ╱ // 0x2ee9 @0x19
0x2ed0…2eeb at001a = EOL // 0x2eea @0x1a
0x2ed0…2eeb }
0x2eeb…2efb c680 02540 PROC SIDESKIFT
0x2eeb…2efb LineComal80 {
0x2eeb…2efb ptr = 0xc680 // 0x2eeb @0x0
0x2eeb…2efb lno = 0x09ec // 0x2eed @0x2
0x2eeb…2efb at0004 = ╱9e2a╱ PROC ╱ // 0x2eef @0x4
0x2eeb…2efb at0006 = ╱53╱S╱ // 0x2ef1 @0x6
0x2eeb…2efb at0007 = ╱49╱I╱ // 0x2ef2 @0x7
0x2eeb…2efb at0008 = ╱44╱D╱ // 0x2ef3 @0x8
0x2eeb…2efb at0009 = ╱45╱E╱ // 0x2ef4 @0x9
0x2eeb…2efb at000a = ╱53╱S╱ // 0x2ef5 @0xa
0x2eeb…2efb at000b = ╱4b╱K╱ // 0x2ef6 @0xb
0x2eeb…2efb at000c = ╱49╱I╱ // 0x2ef7 @0xc
0x2eeb…2efb at000d = ╱46╱F╱ // 0x2ef8 @0xd
0x2eeb…2efb at000e = ╱54╱T╱ // 0x2ef9 @0xe
0x2eeb…2efb at000f = EOL // 0x2efa @0xf
0x2eeb…2efb }
0x2efb…2f20 c50e 02490 IF OT ( 1 ) > 0 OR TOT ( 2 ) > 0 THEN
0x2efb…2f20 LineComal80 {
0x2efb…2f20 ptr = 0xc50e // 0x2efb @0x0
0x2efb…2f20 lno = 0x09ba // 0x2efd @0x2
0x2efb…2f20 at0004 = ╱9b0054╱ IF ╱ // 0x2eff @0x4
0x2efb…2f20 at0007 = ╱4f╱O╱ // 0x2f02 @0x7
0x2efb…2f20 at0008 = ╱54╱T╱ // 0x2f03 @0x8
0x2efb…2f20 at0009 = ╱ed╱ ( ╱ // 0x2f04 @0x9
0x2efb…2f20 at000a = ╱31╱1╱ // 0x2f05 @0xa
0x2efb…2f20 at000b = ╱f20100╱ // 0x2f06 @0xb
0x2efb…2f20 at000e = ╱ee╱ ) ╱ // 0x2f09 @0xe
0x2efb…2f20 at000f = ╱e1╱ > ╱ // 0x2f0a @0xf
0x2efb…2f20 at0010 = ╱30╱0╱ // 0x2f0b @0x10
0x2efb…2f20 at0011 = ╱f20000╱ // 0x2f0c @0x11
0x2efb…2f20 at0014 = ╱d8╱ OR ╱ // 0x2f0f @0x14
0x2efb…2f20 at0015 = ╱54╱T╱ // 0x2f10 @0x15
0x2efb…2f20 at0016 = ╱4f╱O╱ // 0x2f11 @0x16
0x2efb…2f20 at0017 = ╱54╱T╱ // 0x2f12 @0x17
0x2efb…2f20 at0018 = ╱ed╱ ( ╱ // 0x2f13 @0x18
0x2efb…2f20 at0019 = ╱32╱2╱ // 0x2f14 @0x19
0x2efb…2f20 at001a = ╱f20200╱ // 0x2f15 @0x1a
0x2efb…2f20 at001d = ╱ee╱ ) ╱ // 0x2f18 @0x1d
0x2efb…2f20 at001e = ╱e1╱ > ╱ // 0x2f19 @0x1e
0x2efb…2f20 at001f = ╱30╱0╱ // 0x2f1a @0x1f
0x2efb…2f20 at0020 = ╱f20000╱ // 0x2f1b @0x20
0x2efb…2f20 at0023 = ╱b5╱ THEN ╱ // 0x2f1e @0x23
0x2efb…2f20 at0024 = EOL // 0x2f1f @0x24
0x2efb…2f20 }
0x2f20…2f52 c540 02500 PRINT "<S>---------------------------------------"
0x2f20…2f52 LineComal80 {
0x2f20…2f52 ptr = 0xc540 // 0x2f20 @0x0
0x2f20…2f52 lno = 0x09c4 // 0x2f22 @0x2
0x2f20…2f52 at0004 = ╱92╱ PRINT ╱ // 0x2f24 @0x4
0x2f20…2f52 at0005 = ╱22╱"╱ // 0x2f25 @0x5
0x2f20…2f52 at0006 = ╱3c╱<╱ // 0x2f26 @0x6
0x2f20…2f52 at0007 = ╱53╱S╱ // 0x2f27 @0x7
0x2f20…2f52 at0008 = ╱3e╱>╱ // 0x2f28 @0x8
0x2f20…2f52 at0009 = ╱2d╱-╱ // 0x2f29 @0x9
0x2f20…2f52 at000a = ╱2d╱-╱ // 0x2f2a @0xa
0x2f20…2f52 at000b = ╱2d╱-╱ // 0x2f2b @0xb
0x2f20…2f52 at000c = ╱2d╱-╱ // 0x2f2c @0xc
0x2f20…2f52 at000d = ╱2d╱-╱ // 0x2f2d @0xd
0x2f20…2f52 at000e = ╱2d╱-╱ // 0x2f2e @0xe
0x2f20…2f52 at000f = ╱2d╱-╱ // 0x2f2f @0xf
0x2f20…2f52 at0010 = ╱2d╱-╱ // 0x2f30 @0x10
0x2f20…2f52 at0011 = ╱2d╱-╱ // 0x2f31 @0x11
0x2f20…2f52 at0012 = ╱2d╱-╱ // 0x2f32 @0x12
0x2f20…2f52 at0013 = ╱2d╱-╱ // 0x2f33 @0x13
0x2f20…2f52 at0014 = ╱2d╱-╱ // 0x2f34 @0x14
0x2f20…2f52 at0015 = ╱2d╱-╱ // 0x2f35 @0x15
0x2f20…2f52 at0016 = ╱2d╱-╱ // 0x2f36 @0x16
0x2f20…2f52 at0017 = ╱2d╱-╱ // 0x2f37 @0x17
0x2f20…2f52 at0018 = ╱2d╱-╱ // 0x2f38 @0x18
0x2f20…2f52 at0019 = ╱2d╱-╱ // 0x2f39 @0x19
0x2f20…2f52 at001a = ╱2d╱-╱ // 0x2f3a @0x1a
0x2f20…2f52 at001b = ╱2d╱-╱ // 0x2f3b @0x1b
0x2f20…2f52 at001c = ╱2d╱-╱ // 0x2f3c @0x1c
0x2f20…2f52 at001d = ╱2d╱-╱ // 0x2f3d @0x1d
0x2f20…2f52 at001e = ╱2d╱-╱ // 0x2f3e @0x1e
0x2f20…2f52 at001f = ╱2d╱-╱ // 0x2f3f @0x1f
0x2f20…2f52 at0020 = ╱2d╱-╱ // 0x2f40 @0x20
0x2f20…2f52 at0021 = ╱2d╱-╱ // 0x2f41 @0x21
0x2f20…2f52 at0022 = ╱2d╱-╱ // 0x2f42 @0x22
0x2f20…2f52 at0023 = ╱2d╱-╱ // 0x2f43 @0x23
0x2f20…2f52 at0024 = ╱2d╱-╱ // 0x2f44 @0x24
0x2f20…2f52 at0025 = ╱2d╱-╱ // 0x2f45 @0x25
0x2f20…2f52 at0026 = ╱2d╱-╱ // 0x2f46 @0x26
0x2f20…2f52 at0027 = ╱2d╱-╱ // 0x2f47 @0x27
0x2f20…2f52 at0028 = ╱2d╱-╱ // 0x2f48 @0x28
0x2f20…2f52 at0029 = ╱2d╱-╱ // 0x2f49 @0x29
0x2f20…2f52 at002a = ╱2d╱-╱ // 0x2f4a @0x2a
0x2f20…2f52 at002b = ╱2d╱-╱ // 0x2f4b @0x2b
0x2f20…2f52 at002c = ╱2d╱-╱ // 0x2f4c @0x2c
0x2f20…2f52 at002d = ╱2d╱-╱ // 0x2f4d @0x2d
0x2f20…2f52 at002e = ╱2d╱-╱ // 0x2f4e @0x2e
0x2f20…2f52 at002f = ╱2d╱-╱ // 0x2f4f @0x2f
0x2f20…2f52 at0030 = ╱22╱"╱ // 0x2f50 @0x30
0x2f20…2f52 at0031 = EOL // 0x2f51 @0x31
0x2f20…2f52 }
0x2f52…2f81 c56f 02510 PRINT "---------------------------------------"
0x2f52…2f81 LineComal80 {
0x2f52…2f81 ptr = 0xc56f // 0x2f52 @0x0
0x2f52…2f81 lno = 0x09ce // 0x2f54 @0x2
0x2f52…2f81 at0004 = ╱92╱ PRINT ╱ // 0x2f56 @0x4
0x2f52…2f81 at0005 = ╱22╱"╱ // 0x2f57 @0x5
0x2f52…2f81 at0006 = ╱2d╱-╱ // 0x2f58 @0x6
0x2f52…2f81 at0007 = ╱2d╱-╱ // 0x2f59 @0x7
0x2f52…2f81 at0008 = ╱2d╱-╱ // 0x2f5a @0x8
0x2f52…2f81 at0009 = ╱2d╱-╱ // 0x2f5b @0x9
0x2f52…2f81 at000a = ╱2d╱-╱ // 0x2f5c @0xa
0x2f52…2f81 at000b = ╱2d╱-╱ // 0x2f5d @0xb
0x2f52…2f81 at000c = ╱2d╱-╱ // 0x2f5e @0xc
0x2f52…2f81 at000d = ╱2d╱-╱ // 0x2f5f @0xd
0x2f52…2f81 at000e = ╱2d╱-╱ // 0x2f60 @0xe
0x2f52…2f81 at000f = ╱2d╱-╱ // 0x2f61 @0xf
0x2f52…2f81 at0010 = ╱2d╱-╱ // 0x2f62 @0x10
0x2f52…2f81 at0011 = ╱2d╱-╱ // 0x2f63 @0x11
0x2f52…2f81 at0012 = ╱2d╱-╱ // 0x2f64 @0x12
0x2f52…2f81 at0013 = ╱2d╱-╱ // 0x2f65 @0x13
0x2f52…2f81 at0014 = ╱2d╱-╱ // 0x2f66 @0x14
0x2f52…2f81 at0015 = ╱2d╱-╱ // 0x2f67 @0x15
0x2f52…2f81 at0016 = ╱2d╱-╱ // 0x2f68 @0x16
0x2f52…2f81 at0017 = ╱2d╱-╱ // 0x2f69 @0x17
0x2f52…2f81 at0018 = ╱2d╱-╱ // 0x2f6a @0x18
0x2f52…2f81 at0019 = ╱2d╱-╱ // 0x2f6b @0x19
0x2f52…2f81 at001a = ╱2d╱-╱ // 0x2f6c @0x1a
0x2f52…2f81 at001b = ╱2d╱-╱ // 0x2f6d @0x1b
0x2f52…2f81 at001c = ╱2d╱-╱ // 0x2f6e @0x1c
0x2f52…2f81 at001d = ╱2d╱-╱ // 0x2f6f @0x1d
0x2f52…2f81 at001e = ╱2d╱-╱ // 0x2f70 @0x1e
0x2f52…2f81 at001f = ╱2d╱-╱ // 0x2f71 @0x1f
0x2f52…2f81 at0020 = ╱2d╱-╱ // 0x2f72 @0x20
0x2f52…2f81 at0021 = ╱2d╱-╱ // 0x2f73 @0x21
0x2f52…2f81 at0022 = ╱2d╱-╱ // 0x2f74 @0x22
0x2f52…2f81 at0023 = ╱2d╱-╱ // 0x2f75 @0x23
0x2f52…2f81 at0024 = ╱2d╱-╱ // 0x2f76 @0x24
0x2f52…2f81 at0025 = ╱2d╱-╱ // 0x2f77 @0x25
0x2f52…2f81 at0026 = ╱2d╱-╱ // 0x2f78 @0x26
0x2f52…2f81 at0027 = ╱2d╱-╱ // 0x2f79 @0x27
0x2f52…2f81 at0028 = ╱2d╱-╱ // 0x2f7a @0x28
0x2f52…2f81 at0029 = ╱2d╱-╱ // 0x2f7b @0x29
0x2f52…2f81 at002a = ╱2d╱-╱ // 0x2f7c @0x2a
0x2f52…2f81 at002b = ╱2d╱-╱ // 0x2f7d @0x2b
0x2f52…2f81 at002c = ╱2d╱-╱ // 0x2f7e @0x2c
0x2f52…2f81 at002d = ╱22╱"╱ // 0x2f7f @0x2d
0x2f52…2f81 at002e = EOL // 0x2f80 @0x2e
0x2f52…2f81 }
0x2f81…2fc5 c5b3 02520 PRINT TAB ( 18 ) ; "TRANSPORT" ; TAB ( 54 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 67 ) ;
0x2f81…2fc5 LineComal80 {
0x2f81…2fc5 ptr = 0xc5b3 // 0x2f81 @0x0
0x2f81…2fc5 lno = 0x09d8 // 0x2f83 @0x2
0x2f81…2fc5 at0004 = ╱92╱ PRINT ╱ // 0x2f85 @0x4
0x2f81…2fc5 at0005 = ╱d2╱ TAB ╱ // 0x2f86 @0x5
0x2f81…2fc5 at0006 = ╱ed╱ ( ╱ // 0x2f87 @0x6
0x2f81…2fc5 at0007 = ╱31╱1╱ // 0x2f88 @0x7
0x2f81…2fc5 at0008 = ╱38╱8╱ // 0x2f89 @0x8
0x2f81…2fc5 at0009 = ╱f21200╱ // 0x2f8a @0x9
0x2f81…2fc5 at000c = ╱ee╱ ) ╱ // 0x2f8d @0xc
0x2f81…2fc5 at000d = ╱ea╱ ; ╱ // 0x2f8e @0xd
0x2f81…2fc5 at000e = ╱22╱"╱ // 0x2f8f @0xe
0x2f81…2fc5 at000f = ╱54╱T╱ // 0x2f90 @0xf
0x2f81…2fc5 at0010 = ╱52╱R╱ // 0x2f91 @0x10
0x2f81…2fc5 at0011 = ╱41╱A╱ // 0x2f92 @0x11
0x2f81…2fc5 at0012 = ╱4e╱N╱ // 0x2f93 @0x12
0x2f81…2fc5 at0013 = ╱53╱S╱ // 0x2f94 @0x13
0x2f81…2fc5 at0014 = ╱50╱P╱ // 0x2f95 @0x14
0x2f81…2fc5 at0015 = ╱4f╱O╱ // 0x2f96 @0x15
0x2f81…2fc5 at0016 = ╱52╱R╱ // 0x2f97 @0x16
0x2f81…2fc5 at0017 = ╱54╱T╱ // 0x2f98 @0x17
0x2f81…2fc5 at0018 = ╱22╱"╱ // 0x2f99 @0x18
0x2f81…2fc5 at0019 = ╱ea╱ ; ╱ // 0x2f9a @0x19
0x2f81…2fc5 at001a = ╱d2╱ TAB ╱ // 0x2f9b @0x1a
0x2f81…2fc5 at001b = ╱ed╱ ( ╱ // 0x2f9c @0x1b
0x2f81…2fc5 at001c = ╱35╱5╱ // 0x2f9d @0x1c
0x2f81…2fc5 at001d = ╱34╱4╱ // 0x2f9e @0x1d
0x2f81…2fc5 at001e = ╱f23600╱ // 0x2f9f @0x1e
0x2f81…2fc5 at0021 = ╱ee╱ ) ╱ // 0x2fa2 @0x21
0x2f81…2fc5 at0022 = ╱ea╱ ; ╱ // 0x2fa3 @0x22
0x2f81…2fc5 at0023 = ╱d0╱ CHR$ ╱ // 0x2fa4 @0x23
0x2f81…2fc5 at0024 = ╱ed╱ ( ╱ // 0x2fa5 @0x24
0x2f81…2fc5 at0025 = ╱54╱T╱ // 0x2fa6 @0x25
0x2f81…2fc5 at0026 = ╱4f╱O╱ // 0x2fa7 @0x26
0x2f81…2fc5 at0027 = ╱54╱T╱ // 0x2fa8 @0x27
0x2f81…2fc5 at0028 = ╱ed╱ ( ╱ // 0x2fa9 @0x28
0x2f81…2fc5 at0029 = ╱31╱1╱ // 0x2faa @0x29
0x2f81…2fc5 at002a = ╱f20100╱ // 0x2fab @0x2a
0x2f81…2fc5 at002d = ╱ee╱ ) ╱ // 0x2fae @0x2d
0x2f81…2fc5 at002e = ╱ec╱ , ╱ // 0x2faf @0x2e
0x2f81…2fc5 at002f = ╱39╱9╱ // 0x2fb0 @0x2f
0x2f81…2fc5 at0030 = ╱f20900╱ // 0x2fb1 @0x30
0x2f81…2fc5 at0033 = ╱ec╱ , ╱ // 0x2fb4 @0x33
0x2f81…2fc5 at0034 = ╱32╱2╱ // 0x2fb5 @0x34
0x2f81…2fc5 at0035 = ╱f20200╱ // 0x2fb6 @0x35
0x2f81…2fc5 at0038 = ╱ee╱ ) ╱ // 0x2fb9 @0x38
0x2f81…2fc5 at0039 = ╱ea╱ ; ╱ // 0x2fba @0x39
0x2f81…2fc5 at003a = ╱d2╱ TAB ╱ // 0x2fbb @0x3a
0x2f81…2fc5 at003b = ╱ed╱ ( ╱ // 0x2fbc @0x3b
0x2f81…2fc5 at003c = ╱36╱6╱ // 0x2fbd @0x3c
0x2f81…2fc5 at003d = ╱37╱7╱ // 0x2fbe @0x3d
0x2f81…2fc5 at003e = ╱f24300╱ // 0x2fbf @0x3e
0x2f81…2fc5 at0041 = ╱ee╱ ) ╱ // 0x2fc2 @0x41
0x2f81…2fc5 at0042 = ╱ea╱ ; ╱ // 0x2fc3 @0x42
0x2f81…2fc5 at0043 = EOL // 0x2fc4 @0x43
0x2f81…2fc5 }
0x2fc5…2fe1 c5cf 02530 PRINT CHR$ ( TOT ( 2 ) , 9 , 2 )
0x2fc5…2fe1 LineComal80 {
0x2fc5…2fe1 ptr = 0xc5cf // 0x2fc5 @0x0
0x2fc5…2fe1 lno = 0x09e2 // 0x2fc7 @0x2
0x2fc5…2fe1 at0004 = ╱92╱ PRINT ╱ // 0x2fc9 @0x4
0x2fc5…2fe1 at0005 = ╱d0╱ CHR$ ╱ // 0x2fca @0x5
0x2fc5…2fe1 at0006 = ╱ed╱ ( ╱ // 0x2fcb @0x6
0x2fc5…2fe1 at0007 = ╱54╱T╱ // 0x2fcc @0x7
0x2fc5…2fe1 at0008 = ╱4f╱O╱ // 0x2fcd @0x8
0x2fc5…2fe1 at0009 = ╱54╱T╱ // 0x2fce @0x9
0x2fc5…2fe1 at000a = ╱ed╱ ( ╱ // 0x2fcf @0xa
0x2fc5…2fe1 at000b = ╱32╱2╱ // 0x2fd0 @0xb
0x2fc5…2fe1 at000c = ╱f20200╱ // 0x2fd1 @0xc
0x2fc5…2fe1 at000f = ╱ee╱ ) ╱ // 0x2fd4 @0xf
0x2fc5…2fe1 at0010 = ╱ec╱ , ╱ // 0x2fd5 @0x10
0x2fc5…2fe1 at0011 = ╱39╱9╱ // 0x2fd6 @0x11
0x2fc5…2fe1 at0012 = ╱f20900╱ // 0x2fd7 @0x12
0x2fc5…2fe1 at0015 = ╱ec╱ , ╱ // 0x2fda @0x15
0x2fc5…2fe1 at0016 = ╱32╱2╱ // 0x2fdb @0x16
0x2fc5…2fe1 at0017 = ╱f20200╱ // 0x2fdc @0x17
0x2fc5…2fe1 at001a = ╱ee╱ ) ╱ // 0x2fdf @0x1a
0x2fc5…2fe1 at001b = EOL // 0x2fe0 @0x1b
0x2fc5…2fe1 }
0x2fe1…2ff7 c5e5 02540 LET LIN_T := LIN_T + 2
0x2fe1…2ff7 LineComal80 {
0x2fe1…2ff7 ptr = 0xc5e5 // 0x2fe1 @0x0
0x2fe1…2ff7 lno = 0x09ec // 0x2fe3 @0x2
0x2fe1…2ff7 at0004 = ╱86╱ LET ╱ // 0x2fe5 @0x4
0x2fe1…2ff7 at0005 = ╱4c╱L╱ // 0x2fe6 @0x5
0x2fe1…2ff7 at0006 = ╱49╱I╱ // 0x2fe7 @0x6
0x2fe1…2ff7 at0007 = ╱4e╱N╱ // 0x2fe8 @0x7
0x2fe1…2ff7 at0008 = ╱5f╱_╱ // 0x2fe9 @0x8
0x2fe1…2ff7 at0009 = ╱54╱T╱ // 0x2fea @0x9
0x2fe1…2ff7 at000a = ╱f0╱ := ╱ // 0x2feb @0xa
0x2fe1…2ff7 at000b = ╱4c╱L╱ // 0x2fec @0xb
0x2fe1…2ff7 at000c = ╱49╱I╱ // 0x2fed @0xc
0x2fe1…2ff7 at000d = ╱4e╱N╱ // 0x2fee @0xd
0x2fe1…2ff7 at000e = ╱5f╱_╱ // 0x2fef @0xe
0x2fe1…2ff7 at000f = ╱54╱T╱ // 0x2ff0 @0xf
0x2fe1…2ff7 at0010 = ╱e5╱ + ╱ // 0x2ff1 @0x10
0x2fe1…2ff7 at0011 = ╱32╱2╱ // 0x2ff2 @0x11
0x2fe1…2ff7 at0012 = ╱f20200╱ // 0x2ff3 @0x12
0x2fe1…2ff7 at0015 = EOL // 0x2ff6 @0x15
0x2fe1…2ff7 }
0x2ff7…3003 c5f1 02550 EXEC NYSIDE
0x2ff7…3003 LineComal80 {
0x2ff7…3003 ptr = 0xc5f1 // 0x2ff7 @0x0
0x2ff7…3003 lno = 0x09f6 // 0x2ff9 @0x2
0x2ff7…3003 at0004 = ╱9d╱ EXEC ╱ // 0x2ffb @0x4
0x2ff7…3003 at0005 = ╱4e╱N╱ // 0x2ffc @0x5
0x2ff7…3003 at0006 = ╱59╱Y╱ // 0x2ffd @0x6
0x2ff7…3003 at0007 = ╱53╱S╱ // 0x2ffe @0x7
0x2ff7…3003 at0008 = ╱49╱I╱ // 0x2fff @0x8
0x2ff7…3003 at0009 = ╱44╱D╱ // 0x3000 @0x9
0x2ff7…3003 at000a = ╱45╱E╱ // 0x3001 @0xa
0x2ff7…3003 at000b = EOL // 0x3002 @0xb
0x2ff7…3003 }
0x3003…3047 c635 02560 PRINT TAB ( 18 ) ; "TRANSPORT" ; TAB ( 54 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 67 ) ;
0x3003…3047 LineComal80 {
0x3003…3047 ptr = 0xc635 // 0x3003 @0x0
0x3003…3047 lno = 0x0a00 // 0x3005 @0x2
0x3003…3047 at0004 = ╱92╱ PRINT ╱ // 0x3007 @0x4
0x3003…3047 at0005 = ╱d2╱ TAB ╱ // 0x3008 @0x5
0x3003…3047 at0006 = ╱ed╱ ( ╱ // 0x3009 @0x6
0x3003…3047 at0007 = ╱31╱1╱ // 0x300a @0x7
0x3003…3047 at0008 = ╱38╱8╱ // 0x300b @0x8
0x3003…3047 at0009 = ╱f21200╱ // 0x300c @0x9
0x3003…3047 at000c = ╱ee╱ ) ╱ // 0x300f @0xc
0x3003…3047 at000d = ╱ea╱ ; ╱ // 0x3010 @0xd
0x3003…3047 at000e = ╱22╱"╱ // 0x3011 @0xe
0x3003…3047 at000f = ╱54╱T╱ // 0x3012 @0xf
0x3003…3047 at0010 = ╱52╱R╱ // 0x3013 @0x10
0x3003…3047 at0011 = ╱41╱A╱ // 0x3014 @0x11
0x3003…3047 at0012 = ╱4e╱N╱ // 0x3015 @0x12
0x3003…3047 at0013 = ╱53╱S╱ // 0x3016 @0x13
0x3003…3047 at0014 = ╱50╱P╱ // 0x3017 @0x14
0x3003…3047 at0015 = ╱4f╱O╱ // 0x3018 @0x15
0x3003…3047 at0016 = ╱52╱R╱ // 0x3019 @0x16
0x3003…3047 at0017 = ╱54╱T╱ // 0x301a @0x17
0x3003…3047 at0018 = ╱22╱"╱ // 0x301b @0x18
0x3003…3047 at0019 = ╱ea╱ ; ╱ // 0x301c @0x19
0x3003…3047 at001a = ╱d2╱ TAB ╱ // 0x301d @0x1a
0x3003…3047 at001b = ╱ed╱ ( ╱ // 0x301e @0x1b
0x3003…3047 at001c = ╱35╱5╱ // 0x301f @0x1c
0x3003…3047 at001d = ╱34╱4╱ // 0x3020 @0x1d
0x3003…3047 at001e = ╱f23600╱ // 0x3021 @0x1e
0x3003…3047 at0021 = ╱ee╱ ) ╱ // 0x3024 @0x21
0x3003…3047 at0022 = ╱ea╱ ; ╱ // 0x3025 @0x22
0x3003…3047 at0023 = ╱d0╱ CHR$ ╱ // 0x3026 @0x23
0x3003…3047 at0024 = ╱ed╱ ( ╱ // 0x3027 @0x24
0x3003…3047 at0025 = ╱54╱T╱ // 0x3028 @0x25
0x3003…3047 at0026 = ╱4f╱O╱ // 0x3029 @0x26
0x3003…3047 at0027 = ╱54╱T╱ // 0x302a @0x27
0x3003…3047 at0028 = ╱ed╱ ( ╱ // 0x302b @0x28
0x3003…3047 at0029 = ╱31╱1╱ // 0x302c @0x29
0x3003…3047 at002a = ╱f20100╱ // 0x302d @0x2a
0x3003…3047 at002d = ╱ee╱ ) ╱ // 0x3030 @0x2d
0x3003…3047 at002e = ╱ec╱ , ╱ // 0x3031 @0x2e
0x3003…3047 at002f = ╱39╱9╱ // 0x3032 @0x2f
0x3003…3047 at0030 = ╱f20900╱ // 0x3033 @0x30
0x3003…3047 at0033 = ╱ec╱ , ╱ // 0x3036 @0x33
0x3003…3047 at0034 = ╱32╱2╱ // 0x3037 @0x34
0x3003…3047 at0035 = ╱f20200╱ // 0x3038 @0x35
0x3003…3047 at0038 = ╱ee╱ ) ╱ // 0x303b @0x38
0x3003…3047 at0039 = ╱ea╱ ; ╱ // 0x303c @0x39
0x3003…3047 at003a = ╱d2╱ TAB ╱ // 0x303d @0x3a
0x3003…3047 at003b = ╱ed╱ ( ╱ // 0x303e @0x3b
0x3003…3047 at003c = ╱36╱6╱ // 0x303f @0x3c
0x3003…3047 at003d = ╱37╱7╱ // 0x3040 @0x3d
0x3003…3047 at003e = ╱f24300╱ // 0x3041 @0x3e
0x3003…3047 at0041 = ╱ee╱ ) ╱ // 0x3044 @0x41
0x3003…3047 at0042 = ╱ea╱ ; ╱ // 0x3045 @0x42
0x3003…3047 at0043 = EOL // 0x3046 @0x43
0x3003…3047 }
0x3047…3063 c651 02570 PRINT CHR$ ( TOT ( 2 ) , 9 , 2 )
0x3047…3063 LineComal80 {
0x3047…3063 ptr = 0xc651 // 0x3047 @0x0
0x3047…3063 lno = 0x0a0a // 0x3049 @0x2
0x3047…3063 at0004 = ╱92╱ PRINT ╱ // 0x304b @0x4
0x3047…3063 at0005 = ╱d0╱ CHR$ ╱ // 0x304c @0x5
0x3047…3063 at0006 = ╱ed╱ ( ╱ // 0x304d @0x6
0x3047…3063 at0007 = ╱54╱T╱ // 0x304e @0x7
0x3047…3063 at0008 = ╱4f╱O╱ // 0x304f @0x8
0x3047…3063 at0009 = ╱54╱T╱ // 0x3050 @0x9
0x3047…3063 at000a = ╱ed╱ ( ╱ // 0x3051 @0xa
0x3047…3063 at000b = ╱32╱2╱ // 0x3052 @0xb
0x3047…3063 at000c = ╱f20200╱ // 0x3053 @0xc
0x3047…3063 at000f = ╱ee╱ ) ╱ // 0x3056 @0xf
0x3047…3063 at0010 = ╱ec╱ , ╱ // 0x3057 @0x10
0x3047…3063 at0011 = ╱39╱9╱ // 0x3058 @0x11
0x3047…3063 at0012 = ╱f20900╱ // 0x3059 @0x12
0x3047…3063 at0015 = ╱ec╱ , ╱ // 0x305c @0x15
0x3047…3063 at0016 = ╱32╱2╱ // 0x305d @0x16
0x3047…3063 at0017 = ╱f20200╱ // 0x305e @0x17
0x3047…3063 at001a = ╱ee╱ ) ╱ // 0x3061 @0x1a
0x3047…3063 at001b = EOL // 0x3062 @0x1b
0x3047…3063 }
0x3063…3079 c667 02580 LET LIN_T := LIN_T + 1
0x3063…3079 LineComal80 {
0x3063…3079 ptr = 0xc667 // 0x3063 @0x0
0x3063…3079 lno = 0x0a14 // 0x3065 @0x2
0x3063…3079 at0004 = ╱86╱ LET ╱ // 0x3067 @0x4
0x3063…3079 at0005 = ╱4c╱L╱ // 0x3068 @0x5
0x3063…3079 at0006 = ╱49╱I╱ // 0x3069 @0x6
0x3063…3079 at0007 = ╱4e╱N╱ // 0x306a @0x7
0x3063…3079 at0008 = ╱5f╱_╱ // 0x306b @0x8
0x3063…3079 at0009 = ╱54╱T╱ // 0x306c @0x9
0x3063…3079 at000a = ╱f0╱ := ╱ // 0x306d @0xa
0x3063…3079 at000b = ╱4c╱L╱ // 0x306e @0xb
0x3063…3079 at000c = ╱49╱I╱ // 0x306f @0xc
0x3063…3079 at000d = ╱4e╱N╱ // 0x3070 @0xd
0x3063…3079 at000e = ╱5f╱_╱ // 0x3071 @0xe
0x3063…3079 at000f = ╱54╱T╱ // 0x3072 @0xf
0x3063…3079 at0010 = ╱e5╱ + ╱ // 0x3073 @0x10
0x3063…3079 at0011 = ╱31╱1╱ // 0x3074 @0x11
0x3063…3079 at0012 = ╱f20100╱ // 0x3075 @0x12
0x3063…3079 at0015 = EOL // 0x3078 @0x15
0x3063…3079 }
0x3079…3080 c66e 02590 ELSE
0x3079…3080 LineComal80 {
0x3079…3080 ptr = 0xc66e // 0x3079 @0x0
0x3079…3080 lno = 0x0a1e // 0x307b @0x2
0x3079…3080 at0004 = ╱9a00╱ ELSE ╱ // 0x307d @0x4
0x3079…3080 at0006 = EOL // 0x307f @0x6
0x3079…3080 }
0x3080…308c c67a 02600 EXEC NYSIDE
0x3080…308c LineComal80 {
0x3080…308c ptr = 0xc67a // 0x3080 @0x0
0x3080…308c lno = 0x0a28 // 0x3082 @0x2
0x3080…308c at0004 = ╱9d╱ EXEC ╱ // 0x3084 @0x4
0x3080…308c at0005 = ╱4e╱N╱ // 0x3085 @0x5
0x3080…308c at0006 = ╱59╱Y╱ // 0x3086 @0x6
0x3080…308c at0007 = ╱53╱S╱ // 0x3087 @0x7
0x3080…308c at0008 = ╱49╱I╱ // 0x3088 @0x8
0x3080…308c at0009 = ╱44╱D╱ // 0x3089 @0x9
0x3080…308c at000a = ╱45╱E╱ // 0x308a @0xa
0x3080…308c at000b = EOL // 0x308b @0xb
0x3080…308c }
0x308c…3092 af97 02610 ENDIF
0x308c…3092 LineComal80 {
0x308c…3092 ptr = 0xaf97 // 0x308c @0x0
0x308c…3092 lno = 0x0a32 // 0x308e @0x2
0x308c…3092 at0004 = ╱9c╱ ENDIF ╱ // 0x3090 @0x4
0x308c…3092 at0005 = EOL // 0x3091 @0x5
0x308c…3092 }
0x3092…30b7 c6a5 02550 IF OT ( 1 ) > 0 OR TOT ( 2 ) > 0 THEN
0x3092…30b7 LineComal80 {
0x3092…30b7 ptr = 0xc6a5 // 0x3092 @0x0
0x3092…30b7 lno = 0x09f6 // 0x3094 @0x2
0x3092…30b7 at0004 = ╱9b2b54╱ IF ╱ // 0x3096 @0x4
0x3092…30b7 at0007 = ╱4f╱O╱ // 0x3099 @0x7
0x3092…30b7 at0008 = ╱54╱T╱ // 0x309a @0x8
0x3092…30b7 at0009 = ╱ed╱ ( ╱ // 0x309b @0x9
0x3092…30b7 at000a = ╱31╱1╱ // 0x309c @0xa
0x3092…30b7 at000b = ╱f20100╱ // 0x309d @0xb
0x3092…30b7 at000e = ╱ee╱ ) ╱ // 0x30a0 @0xe
0x3092…30b7 at000f = ╱e1╱ > ╱ // 0x30a1 @0xf
0x3092…30b7 at0010 = ╱30╱0╱ // 0x30a2 @0x10
0x3092…30b7 at0011 = ╱f20000╱ // 0x30a3 @0x11
0x3092…30b7 at0014 = ╱d8╱ OR ╱ // 0x30a6 @0x14
0x3092…30b7 at0015 = ╱54╱T╱ // 0x30a7 @0x15
0x3092…30b7 at0016 = ╱4f╱O╱ // 0x30a8 @0x16
0x3092…30b7 at0017 = ╱54╱T╱ // 0x30a9 @0x17
0x3092…30b7 at0018 = ╱ed╱ ( ╱ // 0x30aa @0x18
0x3092…30b7 at0019 = ╱32╱2╱ // 0x30ab @0x19
0x3092…30b7 at001a = ╱f20200╱ // 0x30ac @0x1a
0x3092…30b7 at001d = ╱ee╱ ) ╱ // 0x30af @0x1d
0x3092…30b7 at001e = ╱e1╱ > ╱ // 0x30b0 @0x1e
0x3092…30b7 at001f = ╱30╱0╱ // 0x30b1 @0x1f
0x3092…30b7 at0020 = ╱f20000╱ // 0x30b2 @0x20
0x3092…30b7 at0023 = ╱b5╱ THEN ╱ // 0x30b5 @0x23
0x3092…30b7 at0024 = EOL // 0x30b6 @0x24
0x3092…30b7 }
0x30b7…30e8 c6d6 02560 PRINT "<S>--------------------------------------"
0x30b7…30e8 LineComal80 {
0x30b7…30e8 ptr = 0xc6d6 // 0x30b7 @0x0
0x30b7…30e8 lno = 0x0a00 // 0x30b9 @0x2
0x30b7…30e8 at0004 = ╱92╱ PRINT ╱ // 0x30bb @0x4
0x30b7…30e8 at0005 = ╱22╱"╱ // 0x30bc @0x5
0x30b7…30e8 at0006 = ╱3c╱<╱ // 0x30bd @0x6
0x30b7…30e8 at0007 = ╱53╱S╱ // 0x30be @0x7
0x30b7…30e8 at0008 = ╱3e╱>╱ // 0x30bf @0x8
0x30b7…30e8 at0009 = ╱2d╱-╱ // 0x30c0 @0x9
0x30b7…30e8 at000a = ╱2d╱-╱ // 0x30c1 @0xa
0x30b7…30e8 at000b = ╱2d╱-╱ // 0x30c2 @0xb
0x30b7…30e8 at000c = ╱2d╱-╱ // 0x30c3 @0xc
0x30b7…30e8 at000d = ╱2d╱-╱ // 0x30c4 @0xd
0x30b7…30e8 at000e = ╱2d╱-╱ // 0x30c5 @0xe
0x30b7…30e8 at000f = ╱2d╱-╱ // 0x30c6 @0xf
0x30b7…30e8 at0010 = ╱2d╱-╱ // 0x30c7 @0x10
0x30b7…30e8 at0011 = ╱2d╱-╱ // 0x30c8 @0x11
0x30b7…30e8 at0012 = ╱2d╱-╱ // 0x30c9 @0x12
0x30b7…30e8 at0013 = ╱2d╱-╱ // 0x30ca @0x13
0x30b7…30e8 at0014 = ╱2d╱-╱ // 0x30cb @0x14
0x30b7…30e8 at0015 = ╱2d╱-╱ // 0x30cc @0x15
0x30b7…30e8 at0016 = ╱2d╱-╱ // 0x30cd @0x16
0x30b7…30e8 at0017 = ╱2d╱-╱ // 0x30ce @0x17
0x30b7…30e8 at0018 = ╱2d╱-╱ // 0x30cf @0x18
0x30b7…30e8 at0019 = ╱2d╱-╱ // 0x30d0 @0x19
0x30b7…30e8 at001a = ╱2d╱-╱ // 0x30d1 @0x1a
0x30b7…30e8 at001b = ╱2d╱-╱ // 0x30d2 @0x1b
0x30b7…30e8 at001c = ╱2d╱-╱ // 0x30d3 @0x1c
0x30b7…30e8 at001d = ╱2d╱-╱ // 0x30d4 @0x1d
0x30b7…30e8 at001e = ╱2d╱-╱ // 0x30d5 @0x1e
0x30b7…30e8 at001f = ╱2d╱-╱ // 0x30d6 @0x1f
0x30b7…30e8 at0020 = ╱2d╱-╱ // 0x30d7 @0x20
0x30b7…30e8 at0021 = ╱2d╱-╱ // 0x30d8 @0x21
0x30b7…30e8 at0022 = ╱2d╱-╱ // 0x30d9 @0x22
0x30b7…30e8 at0023 = ╱2d╱-╱ // 0x30da @0x23
0x30b7…30e8 at0024 = ╱2d╱-╱ // 0x30db @0x24
0x30b7…30e8 at0025 = ╱2d╱-╱ // 0x30dc @0x25
0x30b7…30e8 at0026 = ╱2d╱-╱ // 0x30dd @0x26
0x30b7…30e8 at0027 = ╱2d╱-╱ // 0x30de @0x27
0x30b7…30e8 at0028 = ╱2d╱-╱ // 0x30df @0x28
0x30b7…30e8 at0029 = ╱2d╱-╱ // 0x30e0 @0x29
0x30b7…30e8 at002a = ╱2d╱-╱ // 0x30e1 @0x2a
0x30b7…30e8 at002b = ╱2d╱-╱ // 0x30e2 @0x2b
0x30b7…30e8 at002c = ╱2d╱-╱ // 0x30e3 @0x2c
0x30b7…30e8 at002d = ╱2d╱-╱ // 0x30e4 @0x2d
0x30b7…30e8 at002e = ╱2d╱-╱ // 0x30e5 @0x2e
0x30b7…30e8 at002f = ╱22╱"╱ // 0x30e6 @0x2f
0x30b7…30e8 at0030 = EOL // 0x30e7 @0x30
0x30b7…30e8 }
0x30e8…3117 d0c6 02570 PRINT "---------------------------------------"
0x30e8…3117 LineComal80 {
0x30e8…3117 ptr = 0xd0c6 // 0x30e8 @0x0
0x30e8…3117 lno = 0x0a0a // 0x30ea @0x2
0x30e8…3117 at0004 = ╱92╱ PRINT ╱ // 0x30ec @0x4
0x30e8…3117 at0005 = ╱22╱"╱ // 0x30ed @0x5
0x30e8…3117 at0006 = ╱2d╱-╱ // 0x30ee @0x6
0x30e8…3117 at0007 = ╱2d╱-╱ // 0x30ef @0x7
0x30e8…3117 at0008 = ╱2d╱-╱ // 0x30f0 @0x8
0x30e8…3117 at0009 = ╱2d╱-╱ // 0x30f1 @0x9
0x30e8…3117 at000a = ╱2d╱-╱ // 0x30f2 @0xa
0x30e8…3117 at000b = ╱2d╱-╱ // 0x30f3 @0xb
0x30e8…3117 at000c = ╱2d╱-╱ // 0x30f4 @0xc
0x30e8…3117 at000d = ╱2d╱-╱ // 0x30f5 @0xd
0x30e8…3117 at000e = ╱2d╱-╱ // 0x30f6 @0xe
0x30e8…3117 at000f = ╱2d╱-╱ // 0x30f7 @0xf
0x30e8…3117 at0010 = ╱2d╱-╱ // 0x30f8 @0x10
0x30e8…3117 at0011 = ╱2d╱-╱ // 0x30f9 @0x11
0x30e8…3117 at0012 = ╱2d╱-╱ // 0x30fa @0x12
0x30e8…3117 at0013 = ╱2d╱-╱ // 0x30fb @0x13
0x30e8…3117 at0014 = ╱2d╱-╱ // 0x30fc @0x14
0x30e8…3117 at0015 = ╱2d╱-╱ // 0x30fd @0x15
0x30e8…3117 at0016 = ╱2d╱-╱ // 0x30fe @0x16
0x30e8…3117 at0017 = ╱2d╱-╱ // 0x30ff @0x17
0x30e8…3117 at0018 = ╱2d╱-╱ // 0x3100 @0x18
0x30e8…3117 at0019 = ╱2d╱-╱ // 0x3101 @0x19
0x30e8…3117 at001a = ╱2d╱-╱ // 0x3102 @0x1a
0x30e8…3117 at001b = ╱2d╱-╱ // 0x3103 @0x1b
0x30e8…3117 at001c = ╱2d╱-╱ // 0x3104 @0x1c
0x30e8…3117 at001d = ╱2d╱-╱ // 0x3105 @0x1d
0x30e8…3117 at001e = ╱2d╱-╱ // 0x3106 @0x1e
0x30e8…3117 at001f = ╱2d╱-╱ // 0x3107 @0x1f
0x30e8…3117 at0020 = ╱2d╱-╱ // 0x3108 @0x20
0x30e8…3117 at0021 = ╱2d╱-╱ // 0x3109 @0x21
0x30e8…3117 at0022 = ╱2d╱-╱ // 0x310a @0x22
0x30e8…3117 at0023 = ╱2d╱-╱ // 0x310b @0x23
0x30e8…3117 at0024 = ╱2d╱-╱ // 0x310c @0x24
0x30e8…3117 at0025 = ╱2d╱-╱ // 0x310d @0x25
0x30e8…3117 at0026 = ╱2d╱-╱ // 0x310e @0x26
0x30e8…3117 at0027 = ╱2d╱-╱ // 0x310f @0x27
0x30e8…3117 at0028 = ╱2d╱-╱ // 0x3110 @0x28
0x30e8…3117 at0029 = ╱2d╱-╱ // 0x3111 @0x29
0x30e8…3117 at002a = ╱2d╱-╱ // 0x3112 @0x2a
0x30e8…3117 at002b = ╱2d╱-╱ // 0x3113 @0x2b
0x30e8…3117 at002c = ╱2d╱-╱ // 0x3114 @0x2c
0x30e8…3117 at002d = ╱22╱"╱ // 0x3115 @0x2d
0x30e8…3117 at002e = EOL // 0x3116 @0x2e
0x30e8…3117 }
0x3117…315b c749 02520 PRINT TAB ( 18 ) ; "TRANSPORT" ; TAB ( 54 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 67 ) ;
0x3117…315b LineComal80 {
0x3117…315b ptr = 0xc749 // 0x3117 @0x0
0x3117…315b lno = 0x09d8 // 0x3119 @0x2
0x3117…315b at0004 = ╱92╱ PRINT ╱ // 0x311b @0x4
0x3117…315b at0005 = ╱d2╱ TAB ╱ // 0x311c @0x5
0x3117…315b at0006 = ╱ed╱ ( ╱ // 0x311d @0x6
0x3117…315b at0007 = ╱31╱1╱ // 0x311e @0x7
0x3117…315b at0008 = ╱38╱8╱ // 0x311f @0x8
0x3117…315b at0009 = ╱f21200╱ // 0x3120 @0x9
0x3117…315b at000c = ╱ee╱ ) ╱ // 0x3123 @0xc
0x3117…315b at000d = ╱ea╱ ; ╱ // 0x3124 @0xd
0x3117…315b at000e = ╱22╱"╱ // 0x3125 @0xe
0x3117…315b at000f = ╱54╱T╱ // 0x3126 @0xf
0x3117…315b at0010 = ╱52╱R╱ // 0x3127 @0x10
0x3117…315b at0011 = ╱41╱A╱ // 0x3128 @0x11
0x3117…315b at0012 = ╱4e╱N╱ // 0x3129 @0x12
0x3117…315b at0013 = ╱53╱S╱ // 0x312a @0x13
0x3117…315b at0014 = ╱50╱P╱ // 0x312b @0x14
0x3117…315b at0015 = ╱4f╱O╱ // 0x312c @0x15
0x3117…315b at0016 = ╱52╱R╱ // 0x312d @0x16
0x3117…315b at0017 = ╱54╱T╱ // 0x312e @0x17
0x3117…315b at0018 = ╱22╱"╱ // 0x312f @0x18
0x3117…315b at0019 = ╱ea╱ ; ╱ // 0x3130 @0x19
0x3117…315b at001a = ╱d2╱ TAB ╱ // 0x3131 @0x1a
0x3117…315b at001b = ╱ed╱ ( ╱ // 0x3132 @0x1b
0x3117…315b at001c = ╱35╱5╱ // 0x3133 @0x1c
0x3117…315b at001d = ╱34╱4╱ // 0x3134 @0x1d
0x3117…315b at001e = ╱f23600╱ // 0x3135 @0x1e
0x3117…315b at0021 = ╱ee╱ ) ╱ // 0x3138 @0x21
0x3117…315b at0022 = ╱ea╱ ; ╱ // 0x3139 @0x22
0x3117…315b at0023 = ╱d0╱ CHR$ ╱ // 0x313a @0x23
0x3117…315b at0024 = ╱ed╱ ( ╱ // 0x313b @0x24
0x3117…315b at0025 = ╱54╱T╱ // 0x313c @0x25
0x3117…315b at0026 = ╱4f╱O╱ // 0x313d @0x26
0x3117…315b at0027 = ╱54╱T╱ // 0x313e @0x27
0x3117…315b at0028 = ╱ed╱ ( ╱ // 0x313f @0x28
0x3117…315b at0029 = ╱31╱1╱ // 0x3140 @0x29
0x3117…315b at002a = ╱f20100╱ // 0x3141 @0x2a
0x3117…315b at002d = ╱ee╱ ) ╱ // 0x3144 @0x2d
0x3117…315b at002e = ╱ec╱ , ╱ // 0x3145 @0x2e
0x3117…315b at002f = ╱39╱9╱ // 0x3146 @0x2f
0x3117…315b at0030 = ╱f20900╱ // 0x3147 @0x30
0x3117…315b at0033 = ╱ec╱ , ╱ // 0x314a @0x33
0x3117…315b at0034 = ╱32╱2╱ // 0x314b @0x34
0x3117…315b at0035 = ╱f20200╱ // 0x314c @0x35
0x3117…315b at0038 = ╱ee╱ ) ╱ // 0x314f @0x38
0x3117…315b at0039 = ╱ea╱ ; ╱ // 0x3150 @0x39
0x3117…315b at003a = ╱d2╱ TAB ╱ // 0x3151 @0x3a
0x3117…315b at003b = ╱ed╱ ( ╱ // 0x3152 @0x3b
0x3117…315b at003c = ╱36╱6╱ // 0x3153 @0x3c
0x3117…315b at003d = ╱37╱7╱ // 0x3154 @0x3d
0x3117…315b at003e = ╱f24300╱ // 0x3155 @0x3e
0x3117…315b at0041 = ╱ee╱ ) ╱ // 0x3158 @0x41
0x3117…315b at0042 = ╱ea╱ ; ╱ // 0x3159 @0x42
0x3117…315b at0043 = EOL // 0x315a @0x43
0x3117…315b }
0x315b…3177 c765 02530 PRINT CHR$ ( TOT ( 2 ) , 9 , 2 )
0x315b…3177 LineComal80 {
0x315b…3177 ptr = 0xc765 // 0x315b @0x0
0x315b…3177 lno = 0x09e2 // 0x315d @0x2
0x315b…3177 at0004 = ╱92╱ PRINT ╱ // 0x315f @0x4
0x315b…3177 at0005 = ╱d0╱ CHR$ ╱ // 0x3160 @0x5
0x315b…3177 at0006 = ╱ed╱ ( ╱ // 0x3161 @0x6
0x315b…3177 at0007 = ╱54╱T╱ // 0x3162 @0x7
0x315b…3177 at0008 = ╱4f╱O╱ // 0x3163 @0x8
0x315b…3177 at0009 = ╱54╱T╱ // 0x3164 @0x9
0x315b…3177 at000a = ╱ed╱ ( ╱ // 0x3165 @0xa
0x315b…3177 at000b = ╱32╱2╱ // 0x3166 @0xb
0x315b…3177 at000c = ╱f20200╱ // 0x3167 @0xc
0x315b…3177 at000f = ╱ee╱ ) ╱ // 0x316a @0xf
0x315b…3177 at0010 = ╱ec╱ , ╱ // 0x316b @0x10
0x315b…3177 at0011 = ╱39╱9╱ // 0x316c @0x11
0x315b…3177 at0012 = ╱f20900╱ // 0x316d @0x12
0x315b…3177 at0015 = ╱ec╱ , ╱ // 0x3170 @0x15
0x315b…3177 at0016 = ╱32╱2╱ // 0x3171 @0x16
0x315b…3177 at0017 = ╱f20200╱ // 0x3172 @0x17
0x315b…3177 at001a = ╱ee╱ ) ╱ // 0x3175 @0x1a
0x315b…3177 at001b = EOL // 0x3176 @0x1b
0x315b…3177 }
0x3177…318d c77b 02540 LET LIN_T := LIN_T + 2
0x3177…318d LineComal80 {
0x3177…318d ptr = 0xc77b // 0x3177 @0x0
0x3177…318d lno = 0x09ec // 0x3179 @0x2
0x3177…318d at0004 = ╱86╱ LET ╱ // 0x317b @0x4
0x3177…318d at0005 = ╱4c╱L╱ // 0x317c @0x5
0x3177…318d at0006 = ╱49╱I╱ // 0x317d @0x6
0x3177…318d at0007 = ╱4e╱N╱ // 0x317e @0x7
0x3177…318d at0008 = ╱5f╱_╱ // 0x317f @0x8
0x3177…318d at0009 = ╱54╱T╱ // 0x3180 @0x9
0x3177…318d at000a = ╱f0╱ := ╱ // 0x3181 @0xa
0x3177…318d at000b = ╱4c╱L╱ // 0x3182 @0xb
0x3177…318d at000c = ╱49╱I╱ // 0x3183 @0xc
0x3177…318d at000d = ╱4e╱N╱ // 0x3184 @0xd
0x3177…318d at000e = ╱5f╱_╱ // 0x3185 @0xe
0x3177…318d at000f = ╱54╱T╱ // 0x3186 @0xf
0x3177…318d at0010 = ╱e5╱ + ╱ // 0x3187 @0x10
0x3177…318d at0011 = ╱32╱2╱ // 0x3188 @0x11
0x3177…318d at0012 = ╱f20200╱ // 0x3189 @0x12
0x3177…318d at0015 = EOL // 0x318c @0x15
0x3177…318d }
0x318d…3199 c787 02550 EXEC NYSIDE
0x318d…3199 LineComal80 {
0x318d…3199 ptr = 0xc787 // 0x318d @0x0
0x318d…3199 lno = 0x09f6 // 0x318f @0x2
0x318d…3199 at0004 = ╱9d╱ EXEC ╱ // 0x3191 @0x4
0x318d…3199 at0005 = ╱4e╱N╱ // 0x3192 @0x5
0x318d…3199 at0006 = ╱59╱Y╱ // 0x3193 @0x6
0x318d…3199 at0007 = ╱53╱S╱ // 0x3194 @0x7
0x318d…3199 at0008 = ╱49╱I╱ // 0x3195 @0x8
0x318d…3199 at0009 = ╱44╱D╱ // 0x3196 @0x9
0x318d…3199 at000a = ╱45╱E╱ // 0x3197 @0xa
0x318d…3199 at000b = EOL // 0x3198 @0xb
0x318d…3199 }
0x3199…31dd c7cb 02560 PRINT TAB ( 18 ) ; "TRANSPORT" ; TAB ( 54 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 67 ) ;
0x3199…31dd LineComal80 {
0x3199…31dd ptr = 0xc7cb // 0x3199 @0x0
0x3199…31dd lno = 0x0a00 // 0x319b @0x2
0x3199…31dd at0004 = ╱92╱ PRINT ╱ // 0x319d @0x4
0x3199…31dd at0005 = ╱d2╱ TAB ╱ // 0x319e @0x5
0x3199…31dd at0006 = ╱ed╱ ( ╱ // 0x319f @0x6
0x3199…31dd at0007 = ╱31╱1╱ // 0x31a0 @0x7
0x3199…31dd at0008 = ╱38╱8╱ // 0x31a1 @0x8
0x3199…31dd at0009 = ╱f21200╱ // 0x31a2 @0x9
0x3199…31dd at000c = ╱ee╱ ) ╱ // 0x31a5 @0xc
0x3199…31dd at000d = ╱ea╱ ; ╱ // 0x31a6 @0xd
0x3199…31dd at000e = ╱22╱"╱ // 0x31a7 @0xe
0x3199…31dd at000f = ╱54╱T╱ // 0x31a8 @0xf
0x3199…31dd at0010 = ╱52╱R╱ // 0x31a9 @0x10
0x3199…31dd at0011 = ╱41╱A╱ // 0x31aa @0x11
0x3199…31dd at0012 = ╱4e╱N╱ // 0x31ab @0x12
0x3199…31dd at0013 = ╱53╱S╱ // 0x31ac @0x13
0x3199…31dd at0014 = ╱50╱P╱ // 0x31ad @0x14
0x3199…31dd at0015 = ╱4f╱O╱ // 0x31ae @0x15
0x3199…31dd at0016 = ╱52╱R╱ // 0x31af @0x16
0x3199…31dd at0017 = ╱54╱T╱ // 0x31b0 @0x17
0x3199…31dd at0018 = ╱22╱"╱ // 0x31b1 @0x18
0x3199…31dd at0019 = ╱ea╱ ; ╱ // 0x31b2 @0x19
0x3199…31dd at001a = ╱d2╱ TAB ╱ // 0x31b3 @0x1a
0x3199…31dd at001b = ╱ed╱ ( ╱ // 0x31b4 @0x1b
0x3199…31dd at001c = ╱35╱5╱ // 0x31b5 @0x1c
0x3199…31dd at001d = ╱34╱4╱ // 0x31b6 @0x1d
0x3199…31dd at001e = ╱f23600╱ // 0x31b7 @0x1e
0x3199…31dd at0021 = ╱ee╱ ) ╱ // 0x31ba @0x21
0x3199…31dd at0022 = ╱ea╱ ; ╱ // 0x31bb @0x22
0x3199…31dd at0023 = ╱d0╱ CHR$ ╱ // 0x31bc @0x23
0x3199…31dd at0024 = ╱ed╱ ( ╱ // 0x31bd @0x24
0x3199…31dd at0025 = ╱54╱T╱ // 0x31be @0x25
0x3199…31dd at0026 = ╱4f╱O╱ // 0x31bf @0x26
0x3199…31dd at0027 = ╱54╱T╱ // 0x31c0 @0x27
0x3199…31dd at0028 = ╱ed╱ ( ╱ // 0x31c1 @0x28
0x3199…31dd at0029 = ╱31╱1╱ // 0x31c2 @0x29
0x3199…31dd at002a = ╱f20100╱ // 0x31c3 @0x2a
0x3199…31dd at002d = ╱ee╱ ) ╱ // 0x31c6 @0x2d
0x3199…31dd at002e = ╱ec╱ , ╱ // 0x31c7 @0x2e
0x3199…31dd at002f = ╱39╱9╱ // 0x31c8 @0x2f
0x3199…31dd at0030 = ╱f20900╱ // 0x31c9 @0x30
0x3199…31dd at0033 = ╱ec╱ , ╱ // 0x31cc @0x33
0x3199…31dd at0034 = ╱32╱2╱ // 0x31cd @0x34
0x3199…31dd at0035 = ╱f20200╱ // 0x31ce @0x35
0x3199…31dd at0038 = ╱ee╱ ) ╱ // 0x31d1 @0x38
0x3199…31dd at0039 = ╱ea╱ ; ╱ // 0x31d2 @0x39
0x3199…31dd at003a = ╱d2╱ TAB ╱ // 0x31d3 @0x3a
0x3199…31dd at003b = ╱ed╱ ( ╱ // 0x31d4 @0x3b
0x3199…31dd at003c = ╱36╱6╱ // 0x31d5 @0x3c
0x3199…31dd at003d = ╱37╱7╱ // 0x31d6 @0x3d
0x3199…31dd at003e = ╱f24300╱ // 0x31d7 @0x3e
0x3199…31dd at0041 = ╱ee╱ ) ╱ // 0x31da @0x41
0x3199…31dd at0042 = ╱ea╱ ; ╱ // 0x31db @0x42
0x3199…31dd at0043 = EOL // 0x31dc @0x43
0x3199…31dd }
0x31dd…31f9 c7e7 02570 PRINT CHR$ ( TOT ( 2 ) , 9 , 2 )
0x31dd…31f9 LineComal80 {
0x31dd…31f9 ptr = 0xc7e7 // 0x31dd @0x0
0x31dd…31f9 lno = 0x0a0a // 0x31df @0x2
0x31dd…31f9 at0004 = ╱92╱ PRINT ╱ // 0x31e1 @0x4
0x31dd…31f9 at0005 = ╱d0╱ CHR$ ╱ // 0x31e2 @0x5
0x31dd…31f9 at0006 = ╱ed╱ ( ╱ // 0x31e3 @0x6
0x31dd…31f9 at0007 = ╱54╱T╱ // 0x31e4 @0x7
0x31dd…31f9 at0008 = ╱4f╱O╱ // 0x31e5 @0x8
0x31dd…31f9 at0009 = ╱54╱T╱ // 0x31e6 @0x9
0x31dd…31f9 at000a = ╱ed╱ ( ╱ // 0x31e7 @0xa
0x31dd…31f9 at000b = ╱32╱2╱ // 0x31e8 @0xb
0x31dd…31f9 at000c = ╱f20200╱ // 0x31e9 @0xc
0x31dd…31f9 at000f = ╱ee╱ ) ╱ // 0x31ec @0xf
0x31dd…31f9 at0010 = ╱ec╱ , ╱ // 0x31ed @0x10
0x31dd…31f9 at0011 = ╱39╱9╱ // 0x31ee @0x11
0x31dd…31f9 at0012 = ╱f20900╱ // 0x31ef @0x12
0x31dd…31f9 at0015 = ╱ec╱ , ╱ // 0x31f2 @0x15
0x31dd…31f9 at0016 = ╱32╱2╱ // 0x31f3 @0x16
0x31dd…31f9 at0017 = ╱f20200╱ // 0x31f4 @0x17
0x31dd…31f9 at001a = ╱ee╱ ) ╱ // 0x31f7 @0x1a
0x31dd…31f9 at001b = EOL // 0x31f8 @0x1b
0x31dd…31f9 }
0x31f9…320f c7fd 02580 LET LIN_T := LIN_T + 1
0x31f9…320f LineComal80 {
0x31f9…320f ptr = 0xc7fd // 0x31f9 @0x0
0x31f9…320f lno = 0x0a14 // 0x31fb @0x2
0x31f9…320f at0004 = ╱86╱ LET ╱ // 0x31fd @0x4
0x31f9…320f at0005 = ╱4c╱L╱ // 0x31fe @0x5
0x31f9…320f at0006 = ╱49╱I╱ // 0x31ff @0x6
0x31f9…320f at0007 = ╱4e╱N╱ // 0x3200 @0x7
0x31f9…320f at0008 = ╱5f╱_╱ // 0x3201 @0x8
0x31f9…320f at0009 = ╱54╱T╱ // 0x3202 @0x9
0x31f9…320f at000a = ╱f0╱ := ╱ // 0x3203 @0xa
0x31f9…320f at000b = ╱4c╱L╱ // 0x3204 @0xb
0x31f9…320f at000c = ╱49╱I╱ // 0x3205 @0xc
0x31f9…320f at000d = ╱4e╱N╱ // 0x3206 @0xd
0x31f9…320f at000e = ╱5f╱_╱ // 0x3207 @0xe
0x31f9…320f at000f = ╱54╱T╱ // 0x3208 @0xf
0x31f9…320f at0010 = ╱e5╱ + ╱ // 0x3209 @0x10
0x31f9…320f at0011 = ╱31╱1╱ // 0x320a @0x11
0x31f9…320f at0012 = ╱f20100╱ // 0x320b @0x12
0x31f9…320f at0015 = EOL // 0x320e @0x15
0x31f9…320f }
0x320f…3216 c804 02590 ELSE
0x320f…3216 LineComal80 {
0x320f…3216 ptr = 0xc804 // 0x320f @0x0
0x320f…3216 lno = 0x0a1e // 0x3211 @0x2
0x320f…3216 at0004 = ╱9a2c╱ ELSE ╱ // 0x3213 @0x4
0x320f…3216 at0006 = EOL // 0x3215 @0x6
0x320f…3216 }
0x3216…3222 c810 02600 EXEC NYSIDE
0x3216…3222 LineComal80 {
0x3216…3222 ptr = 0xc810 // 0x3216 @0x0
0x3216…3222 lno = 0x0a28 // 0x3218 @0x2
0x3216…3222 at0004 = ╱9d╱ EXEC ╱ // 0x321a @0x4
0x3216…3222 at0005 = ╱4e╱N╱ // 0x321b @0x5
0x3216…3222 at0006 = ╱59╱Y╱ // 0x321c @0x6
0x3216…3222 at0007 = ╱53╱S╱ // 0x321d @0x7
0x3216…3222 at0008 = ╱49╱I╱ // 0x321e @0x8
0x3216…3222 at0009 = ╱44╱D╱ // 0x321f @0x9
0x3216…3222 at000a = ╱45╱E╱ // 0x3220 @0xa
0x3216…3222 at000b = EOL // 0x3221 @0xb
0x3216…3222 }
0x3222…3228 d0ba 02590 ENDIF
0x3222…3228 LineComal80 {
0x3222…3228 ptr = 0xd0ba // 0x3222 @0x0
0x3222…3228 lno = 0x0a1e // 0x3224 @0x2
0x3222…3228 at0004 = ╱9c╱ ENDIF ╱ // 0x3226 @0x4
0x3222…3228 at0005 = EOL // 0x3227 @0x5
0x3222…3228 }
0x3228…3237 c825 02610 ENDPROC SIDESKIFT
0x3228…3237 LineComal80 {
0x3228…3237 ptr = 0xc825 // 0x3228 @0x0
0x3228…3237 lno = 0x0a32 // 0x322a @0x2
0x3228…3237 at0004 = ╱9f╱ ENDPROC ╱ // 0x322c @0x4
0x3228…3237 at0005 = ╱53╱S╱ // 0x322d @0x5
0x3228…3237 at0006 = ╱49╱I╱ // 0x322e @0x6
0x3228…3237 at0007 = ╱44╱D╱ // 0x322f @0x7
0x3228…3237 at0008 = ╱45╱E╱ // 0x3230 @0x8
0x3228…3237 at0009 = ╱53╱S╱ // 0x3231 @0x9
0x3228…3237 at000a = ╱4b╱K╱ // 0x3232 @0xa
0x3228…3237 at000b = ╱49╱I╱ // 0x3233 @0xb
0x3228…3237 at000c = ╱46╱F╱ // 0x3234 @0xc
0x3228…3237 at000d = ╱54╱T╱ // 0x3235 @0xd
0x3228…3237 at000e = EOL // 0x3236 @0xe
0x3228…3237 }
0x3237…3244 c832 02620 PROC NYSIDE
0x3237…3244 LineComal80 {
0x3237…3244 ptr = 0xc832 // 0x3237 @0x0
0x3237…3244 lno = 0x0a3c // 0x3239 @0x2
0x3237…3244 at0004 = ╱9e2c╱ PROC ╱ // 0x323b @0x4
0x3237…3244 at0006 = ╱4e╱N╱ // 0x323d @0x6
0x3237…3244 at0007 = ╱59╱Y╱ // 0x323e @0x7
0x3237…3244 at0008 = ╱53╱S╱ // 0x323f @0x8
0x3237…3244 at0009 = ╱49╱I╱ // 0x3240 @0x9
0x3237…3244 at000a = ╱44╱D╱ // 0x3241 @0xa
0x3237…3244 at000b = ╱45╱E╱ // 0x3242 @0xb
0x3237…3244 at000c = EOL // 0x3243 @0xc
0x3237…3244 }
0x3244…3258 c846 02630 IF UT_WAY $ = "P" THEN
0x3244…3258 LineComal80 {
0x3244…3258 ptr = 0xc846 // 0x3244 @0x0
0x3244…3258 lno = 0x0a46 // 0x3246 @0x2
0x3244…3258 at0004 = ╱9b2d4f╱ IF ╱ // 0x3248 @0x4
0x3244…3258 at0007 = ╱55╱U╱ // 0x324b @0x7
0x3244…3258 at0008 = ╱54╱T╱ // 0x324c @0x8
0x3244…3258 at0009 = ╱5f╱_╱ // 0x324d @0x9
0x3244…3258 at000a = ╱57╱W╱ // 0x324e @0xa
0x3244…3258 at000b = ╱41╱A╱ // 0x324f @0xb
0x3244…3258 at000c = ╱59╱Y╱ // 0x3250 @0xc
0x3244…3258 at000d = ╱ef╱ $ ╱ // 0x3251 @0xd
0x3244…3258 at000e = ╱df╱ = ╱ // 0x3252 @0xe
0x3244…3258 at000f = ╱22╱"╱ // 0x3253 @0xf
0x3244…3258 at0010 = ╱50╱P╱ // 0x3254 @0x10
0x3244…3258 at0011 = ╱22╱"╱ // 0x3255 @0x11
0x3244…3258 at0012 = ╱b5╱ THEN ╱ // 0x3256 @0x12
0x3244…3258 at0013 = EOL // 0x3257 @0x13
0x3244…3258 }
0x3258…3270 c85e 02640 FOR I := LIN_T TO AX_LIN DO PRINT
0x3258…3270 LineComal80 {
0x3258…3270 ptr = 0xc85e // 0x3258 @0x0
0x3258…3270 lno = 0x0a50 // 0x325a @0x2
0x3258…3270 at0004 = ╱b400╱ FOR ╱ // 0x325c @0x4
0x3258…3270 at0006 = ╱49╱I╱ // 0x325e @0x6
0x3258…3270 at0007 = ╱f0╱ := ╱ // 0x325f @0x7
0x3258…3270 at0008 = ╱4c╱L╱ // 0x3260 @0x8
0x3258…3270 at0009 = ╱49╱I╱ // 0x3261 @0x9
0x3258…3270 at000a = ╱4e╱N╱ // 0x3262 @0xa
0x3258…3270 at000b = ╱5f╱_╱ // 0x3263 @0xb
0x3258…3270 at000c = ╱54╱T╱ // 0x3264 @0xc
0x3258…3270 at000d = ╱b74d╱ TO ╱ // 0x3265 @0xd
0x3258…3270 at000f = ╱41╱A╱ // 0x3267 @0xf
0x3258…3270 at0010 = ╱58╱X╱ // 0x3268 @0x10
0x3258…3270 at0011 = ╱5f╱_╱ // 0x3269 @0x11
0x3258…3270 at0012 = ╱4c╱L╱ // 0x326a @0x12
0x3258…3270 at0013 = ╱49╱I╱ // 0x326b @0x13
0x3258…3270 at0014 = ╱4e╱N╱ // 0x326c @0x14
0x3258…3270 at0015 = ╱bb╱ DO ╱ // 0x326d @0x15
0x3258…3270 at0016 = ╱92╱ PRINT ╱ // 0x326e @0x16
0x3258…3270 at0017 = EOL // 0x326f @0x17
0x3258…3270 }
0x3270…3277 c865 02650 ELSE
0x3270…3277 LineComal80 {
0x3270…3277 ptr = 0xc865 // 0x3270 @0x0
0x3270…3277 lno = 0x0a5a // 0x3272 @0x2
0x3270…3277 at0004 = ╱9a2e╱ ELSE ╱ // 0x3274 @0x4
0x3270…3277 at0006 = EOL // 0x3276 @0x6
0x3270…3277 }
0x3277…32a5 c893 02660 INPUT "<SC5523>N{ste…side…-…tryk…RETURN" : SVAR $
0x3277…32a5 LineComal80 {
0x3277…32a5 ptr = 0xc893 // 0x3277 @0x0
0x3277…32a5 lno = 0x0a64 // 0x3279 @0x2
0x3277…32a5 at0004 = ╱91╱ INPUT ╱ // 0x327b @0x4
0x3277…32a5 at0005 = ╱22╱"╱ // 0x327c @0x5
0x3277…32a5 at0006 = ╱3c╱<╱ // 0x327d @0x6
0x3277…32a5 at0007 = ╱53╱S╱ // 0x327e @0x7
0x3277…32a5 at0008 = ╱43╱C╱ // 0x327f @0x8
0x3277…32a5 at0009 = ╱35╱5╱ // 0x3280 @0x9
0x3277…32a5 at000a = ╱35╱5╱ // 0x3281 @0xa
0x3277…32a5 at000b = ╱32╱2╱ // 0x3282 @0xb
0x3277…32a5 at000c = ╱33╱3╱ // 0x3283 @0xc
0x3277…32a5 at000d = ╱3e╱>╱ // 0x3284 @0xd
0x3277…32a5 at000e = ╱4e╱N╱ // 0x3285 @0xe
0x3277…32a5 at000f = ╱7b╱{╱ // 0x3286 @0xf
0x3277…32a5 at0010 = ╱73╱s╱ // 0x3287 @0x10
0x3277…32a5 at0011 = ╱74╱t╱ // 0x3288 @0x11
0x3277…32a5 at0012 = ╱65╱e╱ // 0x3289 @0x12
0x3277…32a5 at0013 = ╱20╱…╱ // 0x328a @0x13
0x3277…32a5 at0014 = ╱73╱s╱ // 0x328b @0x14
0x3277…32a5 at0015 = ╱69╱i╱ // 0x328c @0x15
0x3277…32a5 at0016 = ╱64╱d╱ // 0x328d @0x16
0x3277…32a5 at0017 = ╱65╱e╱ // 0x328e @0x17
0x3277…32a5 at0018 = ╱20╱…╱ // 0x328f @0x18
0x3277…32a5 at0019 = ╱2d╱-╱ // 0x3290 @0x19
0x3277…32a5 at001a = ╱20╱…╱ // 0x3291 @0x1a
0x3277…32a5 at001b = ╱74╱t╱ // 0x3292 @0x1b
0x3277…32a5 at001c = ╱72╱r╱ // 0x3293 @0x1c
0x3277…32a5 at001d = ╱79╱y╱ // 0x3294 @0x1d
0x3277…32a5 at001e = ╱6b╱k╱ // 0x3295 @0x1e
0x3277…32a5 at001f = ╱20╱…╱ // 0x3296 @0x1f
0x3277…32a5 at0020 = ╱52╱R╱ // 0x3297 @0x20
0x3277…32a5 at0021 = ╱45╱E╱ // 0x3298 @0x21
0x3277…32a5 at0022 = ╱54╱T╱ // 0x3299 @0x22
0x3277…32a5 at0023 = ╱55╱U╱ // 0x329a @0x23
0x3277…32a5 at0024 = ╱52╱R╱ // 0x329b @0x24
0x3277…32a5 at0025 = ╱4e╱N╱ // 0x329c @0x25
0x3277…32a5 at0026 = ╱22╱"╱ // 0x329d @0x26
0x3277…32a5 at0027 = ╱f1╱ : ╱ // 0x329e @0x27
0x3277…32a5 at0028 = ╱53╱S╱ // 0x329f @0x28
0x3277…32a5 at0029 = ╱56╱V╱ // 0x32a0 @0x29
0x3277…32a5 at002a = ╱41╱A╱ // 0x32a1 @0x2a
0x3277…32a5 at002b = ╱52╱R╱ // 0x32a2 @0x2b
0x3277…32a5 at002c = ╱ef╱ $ ╱ // 0x32a3 @0x2c
0x3277…32a5 at002d = EOL // 0x32a4 @0x2d
0x3277…32a5 }
0x32a5…32ab c899 02670 CLEAR
0x32a5…32ab LineComal80 {
0x32a5…32ab ptr = 0xc899 // 0x32a5 @0x0
0x32a5…32ab lno = 0x0a6e // 0x32a7 @0x2
0x32a5…32ab at0004 = ╱a0╱ CLEAR ╱ // 0x32a9 @0x4
0x32a5…32ab at0005 = EOL // 0x32aa @0x5
0x32a5…32ab }
0x32ab…32b1 c89f 02680 ENDIF
0x32ab…32b1 LineComal80 {
0x32ab…32b1 ptr = 0xc89f // 0x32ab @0x0
0x32ab…32b1 lno = 0x0a78 // 0x32ad @0x2
0x32ab…32b1 at0004 = ╱9c╱ ENDIF ╱ // 0x32af @0x4
0x32ab…32b1 at0005 = EOL // 0x32b0 @0x5
0x32ab…32b1 }
0x32b1…32d4 d304 02690 LET LIN_T := 9 ; SIDENR := SIDENR + 1
0x32b1…32d4 LineComal80 {
0x32b1…32d4 ptr = 0xd304 // 0x32b1 @0x0
0x32b1…32d4 lno = 0x0a82 // 0x32b3 @0x2
0x32b1…32d4 at0004 = ╱86╱ LET ╱ // 0x32b5 @0x4
0x32b1…32d4 at0005 = ╱4c╱L╱ // 0x32b6 @0x5
0x32b1…32d4 at0006 = ╱49╱I╱ // 0x32b7 @0x6
0x32b1…32d4 at0007 = ╱4e╱N╱ // 0x32b8 @0x7
0x32b1…32d4 at0008 = ╱5f╱_╱ // 0x32b9 @0x8
0x32b1…32d4 at0009 = ╱54╱T╱ // 0x32ba @0x9
0x32b1…32d4 at000a = ╱f0╱ := ╱ // 0x32bb @0xa
0x32b1…32d4 at000b = ╱39╱9╱ // 0x32bc @0xb
0x32b1…32d4 at000c = ╱f20900╱ // 0x32bd @0xc
0x32b1…32d4 at000f = ╱ea╱ ; ╱ // 0x32c0 @0xf
0x32b1…32d4 at0010 = ╱53╱S╱ // 0x32c1 @0x10
0x32b1…32d4 at0011 = ╱49╱I╱ // 0x32c2 @0x11
0x32b1…32d4 at0012 = ╱44╱D╱ // 0x32c3 @0x12
0x32b1…32d4 at0013 = ╱45╱E╱ // 0x32c4 @0x13
0x32b1…32d4 at0014 = ╱4e╱N╱ // 0x32c5 @0x14
0x32b1…32d4 at0015 = ╱52╱R╱ // 0x32c6 @0x15
0x32b1…32d4 at0016 = ╱f0╱ := ╱ // 0x32c7 @0x16
0x32b1…32d4 at0017 = ╱53╱S╱ // 0x32c8 @0x17
0x32b1…32d4 at0018 = ╱49╱I╱ // 0x32c9 @0x18
0x32b1…32d4 at0019 = ╱44╱D╱ // 0x32ca @0x19
0x32b1…32d4 at001a = ╱45╱E╱ // 0x32cb @0x1a
0x32b1…32d4 at001b = ╱4e╱N╱ // 0x32cc @0x1b
0x32b1…32d4 at001c = ╱52╱R╱ // 0x32cd @0x1c
0x32b1…32d4 at001d = ╱e5╱ + ╱ // 0x32ce @0x1d
0x32b1…32d4 at001e = ╱31╱1╱ // 0x32cf @0x1e
0x32b1…32d4 at001f = ╱f20100╱ // 0x32d0 @0x1f
0x32b1…32d4 at0022 = EOL // 0x32d3 @0x22
0x32b1…32d4 }
0x32d4…32fc bdff 02710 PRINT "***…" ; SYST_NAVN $ ; "…***" ; TAB ( 42 ) ;
0x32d4…32fc LineComal80 {
0x32d4…32fc ptr = 0xbdff // 0x32d4 @0x0
0x32d4…32fc lno = 0x0a96 // 0x32d6 @0x2
0x32d4…32fc at0004 = ╱92╱ PRINT ╱ // 0x32d8 @0x4
0x32d4…32fc at0005 = ╱22╱"╱ // 0x32d9 @0x5
0x32d4…32fc at0006 = ╱2a╱*╱ // 0x32da @0x6
0x32d4…32fc at0007 = ╱2a╱*╱ // 0x32db @0x7
0x32d4…32fc at0008 = ╱2a╱*╱ // 0x32dc @0x8
0x32d4…32fc at0009 = ╱20╱…╱ // 0x32dd @0x9
0x32d4…32fc at000a = ╱22╱"╱ // 0x32de @0xa
0x32d4…32fc at000b = ╱ea╱ ; ╱ // 0x32df @0xb
0x32d4…32fc at000c = ╱53╱S╱ // 0x32e0 @0xc
0x32d4…32fc at000d = ╱59╱Y╱ // 0x32e1 @0xd
0x32d4…32fc at000e = ╱53╱S╱ // 0x32e2 @0xe
0x32d4…32fc at000f = ╱54╱T╱ // 0x32e3 @0xf
0x32d4…32fc at0010 = ╱5f╱_╱ // 0x32e4 @0x10
0x32d4…32fc at0011 = ╱4e╱N╱ // 0x32e5 @0x11
0x32d4…32fc at0012 = ╱41╱A╱ // 0x32e6 @0x12
0x32d4…32fc at0013 = ╱56╱V╱ // 0x32e7 @0x13
0x32d4…32fc at0014 = ╱4e╱N╱ // 0x32e8 @0x14
0x32d4…32fc at0015 = ╱ef╱ $ ╱ // 0x32e9 @0x15
0x32d4…32fc at0016 = ╱ea╱ ; ╱ // 0x32ea @0x16
0x32d4…32fc at0017 = ╱22╱"╱ // 0x32eb @0x17
0x32d4…32fc at0018 = ╱20╱…╱ // 0x32ec @0x18
0x32d4…32fc at0019 = ╱2a╱*╱ // 0x32ed @0x19
0x32d4…32fc at001a = ╱2a╱*╱ // 0x32ee @0x1a
0x32d4…32fc at001b = ╱2a╱*╱ // 0x32ef @0x1b
0x32d4…32fc at001c = ╱22╱"╱ // 0x32f0 @0x1c
0x32d4…32fc at001d = ╱ea╱ ; ╱ // 0x32f1 @0x1d
0x32d4…32fc at001e = ╱d2╱ TAB ╱ // 0x32f2 @0x1e
0x32d4…32fc at001f = ╱ed╱ ( ╱ // 0x32f3 @0x1f
0x32d4…32fc at0020 = ╱34╱4╱ // 0x32f4 @0x20
0x32d4…32fc at0021 = ╱32╱2╱ // 0x32f5 @0x21
0x32d4…32fc at0022 = ╱f22a00╱ // 0x32f6 @0x22
0x32d4…32fc at0025 = ╱ee╱ ) ╱ // 0x32f9 @0x25
0x32d4…32fc at0026 = ╱ea╱ ; ╱ // 0x32fa @0x26
0x32d4…32fc at0027 = EOL // 0x32fb @0x27
0x32d4…32fc }
0x32fc…3324 c912 02700 PRINT "***…" ; SYST_NAVN $ ; "…***" ; TAB ( 41 ) ;
0x32fc…3324 LineComal80 {
0x32fc…3324 ptr = 0xc912 // 0x32fc @0x0
0x32fc…3324 lno = 0x0a8c // 0x32fe @0x2
0x32fc…3324 at0004 = ╱92╱ PRINT ╱ // 0x3300 @0x4
0x32fc…3324 at0005 = ╱22╱"╱ // 0x3301 @0x5
0x32fc…3324 at0006 = ╱2a╱*╱ // 0x3302 @0x6
0x32fc…3324 at0007 = ╱2a╱*╱ // 0x3303 @0x7
0x32fc…3324 at0008 = ╱2a╱*╱ // 0x3304 @0x8
0x32fc…3324 at0009 = ╱20╱…╱ // 0x3305 @0x9
0x32fc…3324 at000a = ╱22╱"╱ // 0x3306 @0xa
0x32fc…3324 at000b = ╱ea╱ ; ╱ // 0x3307 @0xb
0x32fc…3324 at000c = ╱53╱S╱ // 0x3308 @0xc
0x32fc…3324 at000d = ╱59╱Y╱ // 0x3309 @0xd
0x32fc…3324 at000e = ╱53╱S╱ // 0x330a @0xe
0x32fc…3324 at000f = ╱54╱T╱ // 0x330b @0xf
0x32fc…3324 at0010 = ╱5f╱_╱ // 0x330c @0x10
0x32fc…3324 at0011 = ╱4e╱N╱ // 0x330d @0x11
0x32fc…3324 at0012 = ╱41╱A╱ // 0x330e @0x12
0x32fc…3324 at0013 = ╱56╱V╱ // 0x330f @0x13
0x32fc…3324 at0014 = ╱4e╱N╱ // 0x3310 @0x14
0x32fc…3324 at0015 = ╱ef╱ $ ╱ // 0x3311 @0x15
0x32fc…3324 at0016 = ╱ea╱ ; ╱ // 0x3312 @0x16
0x32fc…3324 at0017 = ╱22╱"╱ // 0x3313 @0x17
0x32fc…3324 at0018 = ╱20╱…╱ // 0x3314 @0x18
0x32fc…3324 at0019 = ╱2a╱*╱ // 0x3315 @0x19
0x32fc…3324 at001a = ╱2a╱*╱ // 0x3316 @0x1a
0x32fc…3324 at001b = ╱2a╱*╱ // 0x3317 @0x1b
0x32fc…3324 at001c = ╱22╱"╱ // 0x3318 @0x1c
0x32fc…3324 at001d = ╱ea╱ ; ╱ // 0x3319 @0x1d
0x32fc…3324 at001e = ╱d2╱ TAB ╱ // 0x331a @0x1e
0x32fc…3324 at001f = ╱ed╱ ( ╱ // 0x331b @0x1f
0x32fc…3324 at0020 = ╱34╱4╱ // 0x331c @0x20
0x32fc…3324 at0021 = ╱31╱1╱ // 0x331d @0x21
0x32fc…3324 at0022 = ╱f22900╱ // 0x331e @0x22
0x32fc…3324 at0025 = ╱ee╱ ) ╱ // 0x3321 @0x25
0x32fc…3324 at0026 = ╱ea╱ ; ╱ // 0x3322 @0x26
0x32fc…3324 at0027 = EOL // 0x3323 @0x27
0x32fc…3324 }
0x3324…3371 c95f 02710 PRINT "***…UDSKREVET…PR.…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ;
0x3324…3371 LineComal80 {
0x3324…3371 ptr = 0xc95f // 0x3324 @0x0
0x3324…3371 lno = 0x0a96 // 0x3326 @0x2
0x3324…3371 at0004 = ╱92╱ PRINT ╱ // 0x3328 @0x4
0x3324…3371 at0005 = ╱22╱"╱ // 0x3329 @0x5
0x3324…3371 at0006 = ╱2a╱*╱ // 0x332a @0x6
0x3324…3371 at0007 = ╱2a╱*╱ // 0x332b @0x7
0x3324…3371 at0008 = ╱2a╱*╱ // 0x332c @0x8
0x3324…3371 at0009 = ╱20╱…╱ // 0x332d @0x9
0x3324…3371 at000a = ╱55╱U╱ // 0x332e @0xa
0x3324…3371 at000b = ╱44╱D╱ // 0x332f @0xb
0x3324…3371 at000c = ╱53╱S╱ // 0x3330 @0xc
0x3324…3371 at000d = ╱4b╱K╱ // 0x3331 @0xd
0x3324…3371 at000e = ╱52╱R╱ // 0x3332 @0xe
0x3324…3371 at000f = ╱45╱E╱ // 0x3333 @0xf
0x3324…3371 at0010 = ╱56╱V╱ // 0x3334 @0x10
0x3324…3371 at0011 = ╱45╱E╱ // 0x3335 @0x11
0x3324…3371 at0012 = ╱54╱T╱ // 0x3336 @0x12
0x3324…3371 at0013 = ╱20╱…╱ // 0x3337 @0x13
0x3324…3371 at0014 = ╱50╱P╱ // 0x3338 @0x14
0x3324…3371 at0015 = ╱52╱R╱ // 0x3339 @0x15
0x3324…3371 at0016 = ╱2e╱.╱ // 0x333a @0x16
0x3324…3371 at0017 = ╱20╱…╱ // 0x333b @0x17
0x3324…3371 at0018 = ╱22╱"╱ // 0x333c @0x18
0x3324…3371 at0019 = ╱ea╱ ; ╱ // 0x333d @0x19
0x3324…3371 at001a = ╱53╱S╱ // 0x333e @0x1a
0x3324…3371 at001b = ╱59╱Y╱ // 0x333f @0x1b
0x3324…3371 at001c = ╱53╱S╱ // 0x3340 @0x1c
0x3324…3371 at001d = ╱54╱T╱ // 0x3341 @0x1d
0x3324…3371 at001e = ╱5f╱_╱ // 0x3342 @0x1e
0x3324…3371 at001f = ╱44╱D╱ // 0x3343 @0x1f
0x3324…3371 at0020 = ╱41╱A╱ // 0x3344 @0x20
0x3324…3371 at0021 = ╱54╱T╱ // 0x3345 @0x21
0x3324…3371 at0022 = ╱ef╱ $ ╱ // 0x3346 @0x22
0x3324…3371 at0023 = ╱ed╱ ( ╱ // 0x3347 @0x23
0x3324…3371 at0024 = ╱31╱1╱ // 0x3348 @0x24
0x3324…3371 at0025 = ╱f20100╱ // 0x3349 @0x25
0x3324…3371 at0028 = ╱f1╱ : ╱ // 0x334c @0x28
0x3324…3371 at0029 = ╱32╱2╱ // 0x334d @0x29
0x3324…3371 at002a = ╱f20200╱ // 0x334e @0x2a
0x3324…3371 at002d = ╱ee╱ ) ╱ // 0x3351 @0x2d
0x3324…3371 at002e = ╱ea╱ ; ╱ // 0x3352 @0x2e
0x3324…3371 at002f = ╱22╱"╱ // 0x3353 @0x2f
0x3324…3371 at0030 = ╱2e╱.╱ // 0x3354 @0x30
0x3324…3371 at0031 = ╱22╱"╱ // 0x3355 @0x31
0x3324…3371 at0032 = ╱ea╱ ; ╱ // 0x3356 @0x32
0x3324…3371 at0033 = ╱53╱S╱ // 0x3357 @0x33
0x3324…3371 at0034 = ╱59╱Y╱ // 0x3358 @0x34
0x3324…3371 at0035 = ╱53╱S╱ // 0x3359 @0x35
0x3324…3371 at0036 = ╱54╱T╱ // 0x335a @0x36
0x3324…3371 at0037 = ╱5f╱_╱ // 0x335b @0x37
0x3324…3371 at0038 = ╱44╱D╱ // 0x335c @0x38
0x3324…3371 at0039 = ╱41╱A╱ // 0x335d @0x39
0x3324…3371 at003a = ╱54╱T╱ // 0x335e @0x3a
0x3324…3371 at003b = ╱ef╱ $ ╱ // 0x335f @0x3b
0x3324…3371 at003c = ╱ed╱ ( ╱ // 0x3360 @0x3c
0x3324…3371 at003d = ╱33╱3╱ // 0x3361 @0x3d
0x3324…3371 at003e = ╱f20300╱ // 0x3362 @0x3e
0x3324…3371 at0041 = ╱f1╱ : ╱ // 0x3365 @0x41
0x3324…3371 at0042 = ╱32╱2╱ // 0x3366 @0x42
0x3324…3371 at0043 = ╱f20200╱ // 0x3367 @0x43
0x3324…3371 at0046 = ╱ee╱ ) ╱ // 0x336a @0x46
0x3324…3371 at0047 = ╱ea╱ ; ╱ // 0x336b @0x47
0x3324…3371 at0048 = ╱22╱"╱ // 0x336c @0x48
0x3324…3371 at0049 = ╱2e╱.╱ // 0x336d @0x49
0x3324…3371 at004a = ╱22╱"╱ // 0x336e @0x4a
0x3324…3371 at004b = ╱ea╱ ; ╱ // 0x336f @0x4b
0x3324…3371 at004c = EOL // 0x3370 @0x4c
0x3324…3371 }
0x3371…33a0 c98e 02720 PRINT SYST_DAT $ ( 5 : 2 ) ; "…***…SIDE:…" ; SIDENR
0x3371…33a0 LineComal80 {
0x3371…33a0 ptr = 0xc98e // 0x3371 @0x0
0x3371…33a0 lno = 0x0aa0 // 0x3373 @0x2
0x3371…33a0 at0004 = ╱92╱ PRINT ╱ // 0x3375 @0x4
0x3371…33a0 at0005 = ╱53╱S╱ // 0x3376 @0x5
0x3371…33a0 at0006 = ╱59╱Y╱ // 0x3377 @0x6
0x3371…33a0 at0007 = ╱53╱S╱ // 0x3378 @0x7
0x3371…33a0 at0008 = ╱54╱T╱ // 0x3379 @0x8
0x3371…33a0 at0009 = ╱5f╱_╱ // 0x337a @0x9
0x3371…33a0 at000a = ╱44╱D╱ // 0x337b @0xa
0x3371…33a0 at000b = ╱41╱A╱ // 0x337c @0xb
0x3371…33a0 at000c = ╱54╱T╱ // 0x337d @0xc
0x3371…33a0 at000d = ╱ef╱ $ ╱ // 0x337e @0xd
0x3371…33a0 at000e = ╱ed╱ ( ╱ // 0x337f @0xe
0x3371…33a0 at000f = ╱35╱5╱ // 0x3380 @0xf
0x3371…33a0 at0010 = ╱f20500╱ // 0x3381 @0x10
0x3371…33a0 at0013 = ╱f1╱ : ╱ // 0x3384 @0x13
0x3371…33a0 at0014 = ╱32╱2╱ // 0x3385 @0x14
0x3371…33a0 at0015 = ╱f20200╱ // 0x3386 @0x15
0x3371…33a0 at0018 = ╱ee╱ ) ╱ // 0x3389 @0x18
0x3371…33a0 at0019 = ╱ea╱ ; ╱ // 0x338a @0x19
0x3371…33a0 at001a = ╱22╱"╱ // 0x338b @0x1a
0x3371…33a0 at001b = ╱20╱…╱ // 0x338c @0x1b
0x3371…33a0 at001c = ╱2a╱*╱ // 0x338d @0x1c
0x3371…33a0 at001d = ╱2a╱*╱ // 0x338e @0x1d
0x3371…33a0 at001e = ╱2a╱*╱ // 0x338f @0x1e
0x3371…33a0 at001f = ╱20╱…╱ // 0x3390 @0x1f
0x3371…33a0 at0020 = ╱53╱S╱ // 0x3391 @0x20
0x3371…33a0 at0021 = ╱49╱I╱ // 0x3392 @0x21
0x3371…33a0 at0022 = ╱44╱D╱ // 0x3393 @0x22
0x3371…33a0 at0023 = ╱45╱E╱ // 0x3394 @0x23
0x3371…33a0 at0024 = ╱3a╱:╱ // 0x3395 @0x24
0x3371…33a0 at0025 = ╱20╱…╱ // 0x3396 @0x25
0x3371…33a0 at0026 = ╱22╱"╱ // 0x3397 @0x26
0x3371…33a0 at0027 = ╱ea╱ ; ╱ // 0x3398 @0x27
0x3371…33a0 at0028 = ╱53╱S╱ // 0x3399 @0x28
0x3371…33a0 at0029 = ╱49╱I╱ // 0x339a @0x29
0x3371…33a0 at002a = ╱44╱D╱ // 0x339b @0x2a
0x3371…33a0 at002b = ╱45╱E╱ // 0x339c @0x2b
0x3371…33a0 at002c = ╱4e╱N╱ // 0x339d @0x2c
0x3371…33a0 at002d = ╱52╱R╱ // 0x339e @0x2d
0x3371…33a0 at002e = EOL // 0x339f @0x2e
0x3371…33a0 }
0x33a0…33a6 c994 02730 PRINT
0x33a0…33a6 LineComal80 {
0x33a0…33a6 ptr = 0xc994 // 0x33a0 @0x0
0x33a0…33a6 lno = 0x0aaa // 0x33a2 @0x2
0x33a0…33a6 at0004 = ╱92╱ PRINT ╱ // 0x33a4 @0x4
0x33a0…33a6 at0005 = EOL // 0x33a5 @0x5
0x33a0…33a6 }
0x33a6…33df c9cd 02740 PRINT "Firmanavn:…" ; FIRMANAVN $ ; TAB ( 54 ) ; "**…KONTOKORT…**"
0x33a6…33df LineComal80 {
0x33a6…33df ptr = 0xc9cd // 0x33a6 @0x0
0x33a6…33df lno = 0x0ab4 // 0x33a8 @0x2
0x33a6…33df at0004 = ╱92╱ PRINT ╱ // 0x33aa @0x4
0x33a6…33df at0005 = ╱22╱"╱ // 0x33ab @0x5
0x33a6…33df at0006 = ╱46╱F╱ // 0x33ac @0x6
0x33a6…33df at0007 = ╱69╱i╱ // 0x33ad @0x7
0x33a6…33df at0008 = ╱72╱r╱ // 0x33ae @0x8
0x33a6…33df at0009 = ╱6d╱m╱ // 0x33af @0x9
0x33a6…33df at000a = ╱61╱a╱ // 0x33b0 @0xa
0x33a6…33df at000b = ╱6e╱n╱ // 0x33b1 @0xb
0x33a6…33df at000c = ╱61╱a╱ // 0x33b2 @0xc
0x33a6…33df at000d = ╱76╱v╱ // 0x33b3 @0xd
0x33a6…33df at000e = ╱6e╱n╱ // 0x33b4 @0xe
0x33a6…33df at000f = ╱3a╱:╱ // 0x33b5 @0xf
0x33a6…33df at0010 = ╱20╱…╱ // 0x33b6 @0x10
0x33a6…33df at0011 = ╱22╱"╱ // 0x33b7 @0x11
0x33a6…33df at0012 = ╱ea╱ ; ╱ // 0x33b8 @0x12
0x33a6…33df at0013 = ╱46╱F╱ // 0x33b9 @0x13
0x33a6…33df at0014 = ╱49╱I╱ // 0x33ba @0x14
0x33a6…33df at0015 = ╱52╱R╱ // 0x33bb @0x15
0x33a6…33df at0016 = ╱4d╱M╱ // 0x33bc @0x16
0x33a6…33df at0017 = ╱41╱A╱ // 0x33bd @0x17
0x33a6…33df at0018 = ╱4e╱N╱ // 0x33be @0x18
0x33a6…33df at0019 = ╱41╱A╱ // 0x33bf @0x19
0x33a6…33df at001a = ╱56╱V╱ // 0x33c0 @0x1a
0x33a6…33df at001b = ╱4e╱N╱ // 0x33c1 @0x1b
0x33a6…33df at001c = ╱ef╱ $ ╱ // 0x33c2 @0x1c
0x33a6…33df at001d = ╱ea╱ ; ╱ // 0x33c3 @0x1d
0x33a6…33df at001e = ╱d2╱ TAB ╱ // 0x33c4 @0x1e
0x33a6…33df at001f = ╱ed╱ ( ╱ // 0x33c5 @0x1f
0x33a6…33df at0020 = ╱35╱5╱ // 0x33c6 @0x20
0x33a6…33df at0021 = ╱34╱4╱ // 0x33c7 @0x21
0x33a6…33df at0022 = ╱f23600╱ // 0x33c8 @0x22
0x33a6…33df at0025 = ╱ee╱ ) ╱ // 0x33cb @0x25
0x33a6…33df at0026 = ╱ea╱ ; ╱ // 0x33cc @0x26
0x33a6…33df at0027 = ╱22╱"╱ // 0x33cd @0x27
0x33a6…33df at0028 = ╱2a╱*╱ // 0x33ce @0x28
0x33a6…33df at0029 = ╱2a╱*╱ // 0x33cf @0x29
0x33a6…33df at002a = ╱20╱…╱ // 0x33d0 @0x2a
0x33a6…33df at002b = ╱4b╱K╱ // 0x33d1 @0x2b
0x33a6…33df at002c = ╱4f╱O╱ // 0x33d2 @0x2c
0x33a6…33df at002d = ╱4e╱N╱ // 0x33d3 @0x2d
0x33a6…33df at002e = ╱54╱T╱ // 0x33d4 @0x2e
0x33a6…33df at002f = ╱4f╱O╱ // 0x33d5 @0x2f
0x33a6…33df at0030 = ╱4b╱K╱ // 0x33d6 @0x30
0x33a6…33df at0031 = ╱4f╱O╱ // 0x33d7 @0x31
0x33a6…33df at0032 = ╱52╱R╱ // 0x33d8 @0x32
0x33a6…33df at0033 = ╱54╱T╱ // 0x33d9 @0x33
0x33a6…33df at0034 = ╱20╱…╱ // 0x33da @0x34
0x33a6…33df at0035 = ╱2a╱*╱ // 0x33db @0x35
0x33a6…33df at0036 = ╱2a╱*╱ // 0x33dc @0x36
0x33a6…33df at0037 = ╱22╱"╱ // 0x33dd @0x37
0x33a6…33df at0038 = EOL // 0x33de @0x38
0x33a6…33df }
0x33df…33e5 c9d3 02750 PRINT
0x33df…33e5 LineComal80 {
0x33df…33e5 ptr = 0xc9d3 // 0x33df @0x0
0x33df…33e5 lno = 0x0abe // 0x33e1 @0x2
0x33df…33e5 at0004 = ╱92╱ PRINT ╱ // 0x33e3 @0x4
0x33df…33e5 at0005 = EOL // 0x33e4 @0x5
0x33df…33e5 }
0x33e5…342f ca1d 02760 PRINT "**…KONTONR:…" ; KTONR $ ; TAB ( 25 ) ; "KONTONAVN:…" ; KTO_NAVN $ ; TAB ( 77 ) ; "**"
0x33e5…342f LineComal80 {
0x33e5…342f ptr = 0xca1d // 0x33e5 @0x0
0x33e5…342f lno = 0x0ac8 // 0x33e7 @0x2
0x33e5…342f at0004 = ╱92╱ PRINT ╱ // 0x33e9 @0x4
0x33e5…342f at0005 = ╱22╱"╱ // 0x33ea @0x5
0x33e5…342f at0006 = ╱2a╱*╱ // 0x33eb @0x6
0x33e5…342f at0007 = ╱2a╱*╱ // 0x33ec @0x7
0x33e5…342f at0008 = ╱20╱…╱ // 0x33ed @0x8
0x33e5…342f at0009 = ╱4b╱K╱ // 0x33ee @0x9
0x33e5…342f at000a = ╱4f╱O╱ // 0x33ef @0xa
0x33e5…342f at000b = ╱4e╱N╱ // 0x33f0 @0xb
0x33e5…342f at000c = ╱54╱T╱ // 0x33f1 @0xc
0x33e5…342f at000d = ╱4f╱O╱ // 0x33f2 @0xd
0x33e5…342f at000e = ╱4e╱N╱ // 0x33f3 @0xe
0x33e5…342f at000f = ╱52╱R╱ // 0x33f4 @0xf
0x33e5…342f at0010 = ╱3a╱:╱ // 0x33f5 @0x10
0x33e5…342f at0011 = ╱20╱…╱ // 0x33f6 @0x11
0x33e5…342f at0012 = ╱22╱"╱ // 0x33f7 @0x12
0x33e5…342f at0013 = ╱ea╱ ; ╱ // 0x33f8 @0x13
0x33e5…342f at0014 = ╱4b╱K╱ // 0x33f9 @0x14
0x33e5…342f at0015 = ╱54╱T╱ // 0x33fa @0x15
0x33e5…342f at0016 = ╱4f╱O╱ // 0x33fb @0x16
0x33e5…342f at0017 = ╱4e╱N╱ // 0x33fc @0x17
0x33e5…342f at0018 = ╱52╱R╱ // 0x33fd @0x18
0x33e5…342f at0019 = ╱ef╱ $ ╱ // 0x33fe @0x19
0x33e5…342f at001a = ╱ea╱ ; ╱ // 0x33ff @0x1a
0x33e5…342f at001b = ╱d2╱ TAB ╱ // 0x3400 @0x1b
0x33e5…342f at001c = ╱ed╱ ( ╱ // 0x3401 @0x1c
0x33e5…342f at001d = ╱32╱2╱ // 0x3402 @0x1d
0x33e5…342f at001e = ╱35╱5╱ // 0x3403 @0x1e
0x33e5…342f at001f = ╱f21900╱ // 0x3404 @0x1f
0x33e5…342f at0022 = ╱ee╱ ) ╱ // 0x3407 @0x22
0x33e5…342f at0023 = ╱ea╱ ; ╱ // 0x3408 @0x23
0x33e5…342f at0024 = ╱22╱"╱ // 0x3409 @0x24
0x33e5…342f at0025 = ╱4b╱K╱ // 0x340a @0x25
0x33e5…342f at0026 = ╱4f╱O╱ // 0x340b @0x26
0x33e5…342f at0027 = ╱4e╱N╱ // 0x340c @0x27
0x33e5…342f at0028 = ╱54╱T╱ // 0x340d @0x28
0x33e5…342f at0029 = ╱4f╱O╱ // 0x340e @0x29
0x33e5…342f at002a = ╱4e╱N╱ // 0x340f @0x2a
0x33e5…342f at002b = ╱41╱A╱ // 0x3410 @0x2b
0x33e5…342f at002c = ╱56╱V╱ // 0x3411 @0x2c
0x33e5…342f at002d = ╱4e╱N╱ // 0x3412 @0x2d
0x33e5…342f at002e = ╱3a╱:╱ // 0x3413 @0x2e
0x33e5…342f at002f = ╱20╱…╱ // 0x3414 @0x2f
0x33e5…342f at0030 = ╱22╱"╱ // 0x3415 @0x30
0x33e5…342f at0031 = ╱ea╱ ; ╱ // 0x3416 @0x31
0x33e5…342f at0032 = ╱4b╱K╱ // 0x3417 @0x32
0x33e5…342f at0033 = ╱54╱T╱ // 0x3418 @0x33
0x33e5…342f at0034 = ╱4f╱O╱ // 0x3419 @0x34
0x33e5…342f at0035 = ╱5f╱_╱ // 0x341a @0x35
0x33e5…342f at0036 = ╱4e╱N╱ // 0x341b @0x36
0x33e5…342f at0037 = ╱41╱A╱ // 0x341c @0x37
0x33e5…342f at0038 = ╱56╱V╱ // 0x341d @0x38
0x33e5…342f at0039 = ╱4e╱N╱ // 0x341e @0x39
0x33e5…342f at003a = ╱ef╱ $ ╱ // 0x341f @0x3a
0x33e5…342f at003b = ╱ea╱ ; ╱ // 0x3420 @0x3b
0x33e5…342f at003c = ╱d2╱ TAB ╱ // 0x3421 @0x3c
0x33e5…342f at003d = ╱ed╱ ( ╱ // 0x3422 @0x3d
0x33e5…342f at003e = ╱37╱7╱ // 0x3423 @0x3e
0x33e5…342f at003f = ╱37╱7╱ // 0x3424 @0x3f
0x33e5…342f at0040 = ╱f24d00╱ // 0x3425 @0x40
0x33e5…342f at0043 = ╱ee╱ ) ╱ // 0x3428 @0x43
0x33e5…342f at0044 = ╱ea╱ ; ╱ // 0x3429 @0x44
0x33e5…342f at0045 = ╱22╱"╱ // 0x342a @0x45
0x33e5…342f at0046 = ╱2a╱*╱ // 0x342b @0x46
0x33e5…342f at0047 = ╱2a╱*╱ // 0x342c @0x47
0x33e5…342f at0048 = ╱22╱"╱ // 0x342d @0x48
0x33e5…342f at0049 = EOL // 0x342e @0x49
0x33e5…342f }
0x342f…3460 ca4e 02770 PRINT "<S>--------------------------------------"
0x342f…3460 LineComal80 {
0x342f…3460 ptr = 0xca4e // 0x342f @0x0
0x342f…3460 lno = 0x0ad2 // 0x3431 @0x2
0x342f…3460 at0004 = ╱92╱ PRINT ╱ // 0x3433 @0x4
0x342f…3460 at0005 = ╱22╱"╱ // 0x3434 @0x5
0x342f…3460 at0006 = ╱3c╱<╱ // 0x3435 @0x6
0x342f…3460 at0007 = ╱53╱S╱ // 0x3436 @0x7
0x342f…3460 at0008 = ╱3e╱>╱ // 0x3437 @0x8
0x342f…3460 at0009 = ╱2d╱-╱ // 0x3438 @0x9
0x342f…3460 at000a = ╱2d╱-╱ // 0x3439 @0xa
0x342f…3460 at000b = ╱2d╱-╱ // 0x343a @0xb
0x342f…3460 at000c = ╱2d╱-╱ // 0x343b @0xc
0x342f…3460 at000d = ╱2d╱-╱ // 0x343c @0xd
0x342f…3460 at000e = ╱2d╱-╱ // 0x343d @0xe
0x342f…3460 at000f = ╱2d╱-╱ // 0x343e @0xf
0x342f…3460 at0010 = ╱2d╱-╱ // 0x343f @0x10
0x342f…3460 at0011 = ╱2d╱-╱ // 0x3440 @0x11
0x342f…3460 at0012 = ╱2d╱-╱ // 0x3441 @0x12
0x342f…3460 at0013 = ╱2d╱-╱ // 0x3442 @0x13
0x342f…3460 at0014 = ╱2d╱-╱ // 0x3443 @0x14
0x342f…3460 at0015 = ╱2d╱-╱ // 0x3444 @0x15
0x342f…3460 at0016 = ╱2d╱-╱ // 0x3445 @0x16
0x342f…3460 at0017 = ╱2d╱-╱ // 0x3446 @0x17
0x342f…3460 at0018 = ╱2d╱-╱ // 0x3447 @0x18
0x342f…3460 at0019 = ╱2d╱-╱ // 0x3448 @0x19
0x342f…3460 at001a = ╱2d╱-╱ // 0x3449 @0x1a
0x342f…3460 at001b = ╱2d╱-╱ // 0x344a @0x1b
0x342f…3460 at001c = ╱2d╱-╱ // 0x344b @0x1c
0x342f…3460 at001d = ╱2d╱-╱ // 0x344c @0x1d
0x342f…3460 at001e = ╱2d╱-╱ // 0x344d @0x1e
0x342f…3460 at001f = ╱2d╱-╱ // 0x344e @0x1f
0x342f…3460 at0020 = ╱2d╱-╱ // 0x344f @0x20
0x342f…3460 at0021 = ╱2d╱-╱ // 0x3450 @0x21
0x342f…3460 at0022 = ╱2d╱-╱ // 0x3451 @0x22
0x342f…3460 at0023 = ╱2d╱-╱ // 0x3452 @0x23
0x342f…3460 at0024 = ╱2d╱-╱ // 0x3453 @0x24
0x342f…3460 at0025 = ╱2d╱-╱ // 0x3454 @0x25
0x342f…3460 at0026 = ╱2d╱-╱ // 0x3455 @0x26
0x342f…3460 at0027 = ╱2d╱-╱ // 0x3456 @0x27
0x342f…3460 at0028 = ╱2d╱-╱ // 0x3457 @0x28
0x342f…3460 at0029 = ╱2d╱-╱ // 0x3458 @0x29
0x342f…3460 at002a = ╱2d╱-╱ // 0x3459 @0x2a
0x342f…3460 at002b = ╱2d╱-╱ // 0x345a @0x2b
0x342f…3460 at002c = ╱2d╱-╱ // 0x345b @0x2c
0x342f…3460 at002d = ╱2d╱-╱ // 0x345c @0x2d
0x342f…3460 at002e = ╱2d╱-╱ // 0x345d @0x2e
0x342f…3460 at002f = ╱22╱"╱ // 0x345e @0x2f
0x342f…3460 at0030 = EOL // 0x345f @0x30
0x342f…3460 }
0x3460…3490 ca7e 02780 PRINT "----------------------------------------"
0x3460…3490 LineComal80 {
0x3460…3490 ptr = 0xca7e // 0x3460 @0x0
0x3460…3490 lno = 0x0adc // 0x3462 @0x2
0x3460…3490 at0004 = ╱92╱ PRINT ╱ // 0x3464 @0x4
0x3460…3490 at0005 = ╱22╱"╱ // 0x3465 @0x5
0x3460…3490 at0006 = ╱2d╱-╱ // 0x3466 @0x6
0x3460…3490 at0007 = ╱2d╱-╱ // 0x3467 @0x7
0x3460…3490 at0008 = ╱2d╱-╱ // 0x3468 @0x8
0x3460…3490 at0009 = ╱2d╱-╱ // 0x3469 @0x9
0x3460…3490 at000a = ╱2d╱-╱ // 0x346a @0xa
0x3460…3490 at000b = ╱2d╱-╱ // 0x346b @0xb
0x3460…3490 at000c = ╱2d╱-╱ // 0x346c @0xc
0x3460…3490 at000d = ╱2d╱-╱ // 0x346d @0xd
0x3460…3490 at000e = ╱2d╱-╱ // 0x346e @0xe
0x3460…3490 at000f = ╱2d╱-╱ // 0x346f @0xf
0x3460…3490 at0010 = ╱2d╱-╱ // 0x3470 @0x10
0x3460…3490 at0011 = ╱2d╱-╱ // 0x3471 @0x11
0x3460…3490 at0012 = ╱2d╱-╱ // 0x3472 @0x12
0x3460…3490 at0013 = ╱2d╱-╱ // 0x3473 @0x13
0x3460…3490 at0014 = ╱2d╱-╱ // 0x3474 @0x14
0x3460…3490 at0015 = ╱2d╱-╱ // 0x3475 @0x15
0x3460…3490 at0016 = ╱2d╱-╱ // 0x3476 @0x16
0x3460…3490 at0017 = ╱2d╱-╱ // 0x3477 @0x17
0x3460…3490 at0018 = ╱2d╱-╱ // 0x3478 @0x18
0x3460…3490 at0019 = ╱2d╱-╱ // 0x3479 @0x19
0x3460…3490 at001a = ╱2d╱-╱ // 0x347a @0x1a
0x3460…3490 at001b = ╱2d╱-╱ // 0x347b @0x1b
0x3460…3490 at001c = ╱2d╱-╱ // 0x347c @0x1c
0x3460…3490 at001d = ╱2d╱-╱ // 0x347d @0x1d
0x3460…3490 at001e = ╱2d╱-╱ // 0x347e @0x1e
0x3460…3490 at001f = ╱2d╱-╱ // 0x347f @0x1f
0x3460…3490 at0020 = ╱2d╱-╱ // 0x3480 @0x20
0x3460…3490 at0021 = ╱2d╱-╱ // 0x3481 @0x21
0x3460…3490 at0022 = ╱2d╱-╱ // 0x3482 @0x22
0x3460…3490 at0023 = ╱2d╱-╱ // 0x3483 @0x23
0x3460…3490 at0024 = ╱2d╱-╱ // 0x3484 @0x24
0x3460…3490 at0025 = ╱2d╱-╱ // 0x3485 @0x25
0x3460…3490 at0026 = ╱2d╱-╱ // 0x3486 @0x26
0x3460…3490 at0027 = ╱2d╱-╱ // 0x3487 @0x27
0x3460…3490 at0028 = ╱2d╱-╱ // 0x3488 @0x28
0x3460…3490 at0029 = ╱2d╱-╱ // 0x3489 @0x29
0x3460…3490 at002a = ╱2d╱-╱ // 0x348a @0x2a
0x3460…3490 at002b = ╱2d╱-╱ // 0x348b @0x2b
0x3460…3490 at002c = ╱2d╱-╱ // 0x348c @0x2c
0x3460…3490 at002d = ╱2d╱-╱ // 0x348d @0x2d
0x3460…3490 at002e = ╱22╱"╱ // 0x348e @0x2e
0x3460…3490 at002f = EOL // 0x348f @0x2f
0x3460…3490 }
0x3490…34d4 cac2 02790 PRINT "<S>……DATO…………BILAG……TEKST" ; TAB ( 47 ) ; "DEBETBEL\B……KREDITBEL\B"
0x3490…34d4 LineComal80 {
0x3490…34d4 ptr = 0xcac2 // 0x3490 @0x0
0x3490…34d4 lno = 0x0ae6 // 0x3492 @0x2
0x3490…34d4 at0004 = ╱92╱ PRINT ╱ // 0x3494 @0x4
0x3490…34d4 at0005 = ╱22╱"╱ // 0x3495 @0x5
0x3490…34d4 at0006 = ╱3c╱<╱ // 0x3496 @0x6
0x3490…34d4 at0007 = ╱53╱S╱ // 0x3497 @0x7
0x3490…34d4 at0008 = ╱3e╱>╱ // 0x3498 @0x8
0x3490…34d4 at0009 = ╱20╱…╱ // 0x3499 @0x9
0x3490…34d4 at000a = ╱20╱…╱ // 0x349a @0xa
0x3490…34d4 at000b = ╱44╱D╱ // 0x349b @0xb
0x3490…34d4 at000c = ╱41╱A╱ // 0x349c @0xc
0x3490…34d4 at000d = ╱54╱T╱ // 0x349d @0xd
0x3490…34d4 at000e = ╱4f╱O╱ // 0x349e @0xe
0x3490…34d4 at000f = ╱20╱…╱ // 0x349f @0xf
0x3490…34d4 at0010 = ╱20╱…╱ // 0x34a0 @0x10
0x3490…34d4 at0011 = ╱20╱…╱ // 0x34a1 @0x11
0x3490…34d4 at0012 = ╱20╱…╱ // 0x34a2 @0x12
0x3490…34d4 at0013 = ╱42╱B╱ // 0x34a3 @0x13
0x3490…34d4 at0014 = ╱49╱I╱ // 0x34a4 @0x14
0x3490…34d4 at0015 = ╱4c╱L╱ // 0x34a5 @0x15
0x3490…34d4 at0016 = ╱41╱A╱ // 0x34a6 @0x16
0x3490…34d4 at0017 = ╱47╱G╱ // 0x34a7 @0x17
0x3490…34d4 at0018 = ╱20╱…╱ // 0x34a8 @0x18
0x3490…34d4 at0019 = ╱20╱…╱ // 0x34a9 @0x19
0x3490…34d4 at001a = ╱54╱T╱ // 0x34aa @0x1a
0x3490…34d4 at001b = ╱45╱E╱ // 0x34ab @0x1b
0x3490…34d4 at001c = ╱4b╱K╱ // 0x34ac @0x1c
0x3490…34d4 at001d = ╱53╱S╱ // 0x34ad @0x1d
0x3490…34d4 at001e = ╱54╱T╱ // 0x34ae @0x1e
0x3490…34d4 at001f = ╱22╱"╱ // 0x34af @0x1f
0x3490…34d4 at0020 = ╱ea╱ ; ╱ // 0x34b0 @0x20
0x3490…34d4 at0021 = ╱d2╱ TAB ╱ // 0x34b1 @0x21
0x3490…34d4 at0022 = ╱ed╱ ( ╱ // 0x34b2 @0x22
0x3490…34d4 at0023 = ╱34╱4╱ // 0x34b3 @0x23
0x3490…34d4 at0024 = ╱37╱7╱ // 0x34b4 @0x24
0x3490…34d4 at0025 = ╱f22f00╱ // 0x34b5 @0x25
0x3490…34d4 at0028 = ╱ee╱ ) ╱ // 0x34b8 @0x28
0x3490…34d4 at0029 = ╱ea╱ ; ╱ // 0x34b9 @0x29
0x3490…34d4 at002a = ╱22╱"╱ // 0x34ba @0x2a
0x3490…34d4 at002b = ╱44╱D╱ // 0x34bb @0x2b
0x3490…34d4 at002c = ╱45╱E╱ // 0x34bc @0x2c
0x3490…34d4 at002d = ╱42╱B╱ // 0x34bd @0x2d
0x3490…34d4 at002e = ╱45╱E╱ // 0x34be @0x2e
0x3490…34d4 at002f = ╱54╱T╱ // 0x34bf @0x2f
0x3490…34d4 at0030 = ╱42╱B╱ // 0x34c0 @0x30
0x3490…34d4 at0031 = ╱45╱E╱ // 0x34c1 @0x31
0x3490…34d4 at0032 = ╱4c╱L╱ // 0x34c2 @0x32
0x3490…34d4 at0033 = ╱5c╱\╱ // 0x34c3 @0x33
0x3490…34d4 at0034 = ╱42╱B╱ // 0x34c4 @0x34
0x3490…34d4 at0035 = ╱20╱…╱ // 0x34c5 @0x35
0x3490…34d4 at0036 = ╱20╱…╱ // 0x34c6 @0x36
0x3490…34d4 at0037 = ╱4b╱K╱ // 0x34c7 @0x37
0x3490…34d4 at0038 = ╱52╱R╱ // 0x34c8 @0x38
0x3490…34d4 at0039 = ╱45╱E╱ // 0x34c9 @0x39
0x3490…34d4 at003a = ╱44╱D╱ // 0x34ca @0x3a
0x3490…34d4 at003b = ╱49╱I╱ // 0x34cb @0x3b
0x3490…34d4 at003c = ╱54╱T╱ // 0x34cc @0x3c
0x3490…34d4 at003d = ╱42╱B╱ // 0x34cd @0x3d
0x3490…34d4 at003e = ╱45╱E╱ // 0x34ce @0x3e
0x3490…34d4 at003f = ╱4c╱L╱ // 0x34cf @0x3f
0x3490…34d4 at0040 = ╱5c╱\╱ // 0x34d0 @0x40
0x3490…34d4 at0041 = ╱42╱B╱ // 0x34d1 @0x41
0x3490…34d4 at0042 = ╱22╱"╱ // 0x34d2 @0x42
0x3490…34d4 at0043 = EOL // 0x34d3 @0x43
0x3490…34d4 }
0x34d4…34e5 cad3 02800 PRINT "…………SALDO"
0x34d4…34e5 LineComal80 {
0x34d4…34e5 ptr = 0xcad3 // 0x34d4 @0x0
0x34d4…34e5 lno = 0x0af0 // 0x34d6 @0x2
0x34d4…34e5 at0004 = ╱92╱ PRINT ╱ // 0x34d8 @0x4
0x34d4…34e5 at0005 = ╱22╱"╱ // 0x34d9 @0x5
0x34d4…34e5 at0006 = ╱20╱…╱ // 0x34da @0x6
0x34d4…34e5 at0007 = ╱20╱…╱ // 0x34db @0x7
0x34d4…34e5 at0008 = ╱20╱…╱ // 0x34dc @0x8
0x34d4…34e5 at0009 = ╱20╱…╱ // 0x34dd @0x9
0x34d4…34e5 at000a = ╱53╱S╱ // 0x34de @0xa
0x34d4…34e5 at000b = ╱41╱A╱ // 0x34df @0xb
0x34d4…34e5 at000c = ╱4c╱L╱ // 0x34e0 @0xc
0x34d4…34e5 at000d = ╱44╱D╱ // 0x34e1 @0xd
0x34d4…34e5 at000e = ╱4f╱O╱ // 0x34e2 @0xe
0x34d4…34e5 at000f = ╱22╱"╱ // 0x34e3 @0xf
0x34d4…34e5 at0010 = EOL // 0x34e4 @0x10
0x34d4…34e5 }
0x34e5…3517 cb05 02810 PRINT "<S>---------------------------------------"
0x34e5…3517 LineComal80 {
0x34e5…3517 ptr = 0xcb05 // 0x34e5 @0x0
0x34e5…3517 lno = 0x0afa // 0x34e7 @0x2
0x34e5…3517 at0004 = ╱92╱ PRINT ╱ // 0x34e9 @0x4
0x34e5…3517 at0005 = ╱22╱"╱ // 0x34ea @0x5
0x34e5…3517 at0006 = ╱3c╱<╱ // 0x34eb @0x6
0x34e5…3517 at0007 = ╱53╱S╱ // 0x34ec @0x7
0x34e5…3517 at0008 = ╱3e╱>╱ // 0x34ed @0x8
0x34e5…3517 at0009 = ╱2d╱-╱ // 0x34ee @0x9
0x34e5…3517 at000a = ╱2d╱-╱ // 0x34ef @0xa
0x34e5…3517 at000b = ╱2d╱-╱ // 0x34f0 @0xb
0x34e5…3517 at000c = ╱2d╱-╱ // 0x34f1 @0xc
0x34e5…3517 at000d = ╱2d╱-╱ // 0x34f2 @0xd
0x34e5…3517 at000e = ╱2d╱-╱ // 0x34f3 @0xe
0x34e5…3517 at000f = ╱2d╱-╱ // 0x34f4 @0xf
0x34e5…3517 at0010 = ╱2d╱-╱ // 0x34f5 @0x10
0x34e5…3517 at0011 = ╱2d╱-╱ // 0x34f6 @0x11
0x34e5…3517 at0012 = ╱2d╱-╱ // 0x34f7 @0x12
0x34e5…3517 at0013 = ╱2d╱-╱ // 0x34f8 @0x13
0x34e5…3517 at0014 = ╱2d╱-╱ // 0x34f9 @0x14
0x34e5…3517 at0015 = ╱2d╱-╱ // 0x34fa @0x15
0x34e5…3517 at0016 = ╱2d╱-╱ // 0x34fb @0x16
0x34e5…3517 at0017 = ╱2d╱-╱ // 0x34fc @0x17
0x34e5…3517 at0018 = ╱2d╱-╱ // 0x34fd @0x18
0x34e5…3517 at0019 = ╱2d╱-╱ // 0x34fe @0x19
0x34e5…3517 at001a = ╱2d╱-╱ // 0x34ff @0x1a
0x34e5…3517 at001b = ╱2d╱-╱ // 0x3500 @0x1b
0x34e5…3517 at001c = ╱2d╱-╱ // 0x3501 @0x1c
0x34e5…3517 at001d = ╱2d╱-╱ // 0x3502 @0x1d
0x34e5…3517 at001e = ╱2d╱-╱ // 0x3503 @0x1e
0x34e5…3517 at001f = ╱2d╱-╱ // 0x3504 @0x1f
0x34e5…3517 at0020 = ╱2d╱-╱ // 0x3505 @0x20
0x34e5…3517 at0021 = ╱2d╱-╱ // 0x3506 @0x21
0x34e5…3517 at0022 = ╱2d╱-╱ // 0x3507 @0x22
0x34e5…3517 at0023 = ╱2d╱-╱ // 0x3508 @0x23
0x34e5…3517 at0024 = ╱2d╱-╱ // 0x3509 @0x24
0x34e5…3517 at0025 = ╱2d╱-╱ // 0x350a @0x25
0x34e5…3517 at0026 = ╱2d╱-╱ // 0x350b @0x26
0x34e5…3517 at0027 = ╱2d╱-╱ // 0x350c @0x27
0x34e5…3517 at0028 = ╱2d╱-╱ // 0x350d @0x28
0x34e5…3517 at0029 = ╱2d╱-╱ // 0x350e @0x29
0x34e5…3517 at002a = ╱2d╱-╱ // 0x350f @0x2a
0x34e5…3517 at002b = ╱2d╱-╱ // 0x3510 @0x2b
0x34e5…3517 at002c = ╱2d╱-╱ // 0x3511 @0x2c
0x34e5…3517 at002d = ╱2d╱-╱ // 0x3512 @0x2d
0x34e5…3517 at002e = ╱2d╱-╱ // 0x3513 @0x2e
0x34e5…3517 at002f = ╱2d╱-╱ // 0x3514 @0x2f
0x34e5…3517 at0030 = ╱22╱"╱ // 0x3515 @0x30
0x34e5…3517 at0031 = EOL // 0x3516 @0x31
0x34e5…3517 }
0x3517…3546 cb34 02820 PRINT "---------------------------------------"
0x3517…3546 LineComal80 {
0x3517…3546 ptr = 0xcb34 // 0x3517 @0x0
0x3517…3546 lno = 0x0b04 // 0x3519 @0x2
0x3517…3546 at0004 = ╱92╱ PRINT ╱ // 0x351b @0x4
0x3517…3546 at0005 = ╱22╱"╱ // 0x351c @0x5
0x3517…3546 at0006 = ╱2d╱-╱ // 0x351d @0x6
0x3517…3546 at0007 = ╱2d╱-╱ // 0x351e @0x7
0x3517…3546 at0008 = ╱2d╱-╱ // 0x351f @0x8
0x3517…3546 at0009 = ╱2d╱-╱ // 0x3520 @0x9
0x3517…3546 at000a = ╱2d╱-╱ // 0x3521 @0xa
0x3517…3546 at000b = ╱2d╱-╱ // 0x3522 @0xb
0x3517…3546 at000c = ╱2d╱-╱ // 0x3523 @0xc
0x3517…3546 at000d = ╱2d╱-╱ // 0x3524 @0xd
0x3517…3546 at000e = ╱2d╱-╱ // 0x3525 @0xe
0x3517…3546 at000f = ╱2d╱-╱ // 0x3526 @0xf
0x3517…3546 at0010 = ╱2d╱-╱ // 0x3527 @0x10
0x3517…3546 at0011 = ╱2d╱-╱ // 0x3528 @0x11
0x3517…3546 at0012 = ╱2d╱-╱ // 0x3529 @0x12
0x3517…3546 at0013 = ╱2d╱-╱ // 0x352a @0x13
0x3517…3546 at0014 = ╱2d╱-╱ // 0x352b @0x14
0x3517…3546 at0015 = ╱2d╱-╱ // 0x352c @0x15
0x3517…3546 at0016 = ╱2d╱-╱ // 0x352d @0x16
0x3517…3546 at0017 = ╱2d╱-╱ // 0x352e @0x17
0x3517…3546 at0018 = ╱2d╱-╱ // 0x352f @0x18
0x3517…3546 at0019 = ╱2d╱-╱ // 0x3530 @0x19
0x3517…3546 at001a = ╱2d╱-╱ // 0x3531 @0x1a
0x3517…3546 at001b = ╱2d╱-╱ // 0x3532 @0x1b
0x3517…3546 at001c = ╱2d╱-╱ // 0x3533 @0x1c
0x3517…3546 at001d = ╱2d╱-╱ // 0x3534 @0x1d
0x3517…3546 at001e = ╱2d╱-╱ // 0x3535 @0x1e
0x3517…3546 at001f = ╱2d╱-╱ // 0x3536 @0x1f
0x3517…3546 at0020 = ╱2d╱-╱ // 0x3537 @0x20
0x3517…3546 at0021 = ╱2d╱-╱ // 0x3538 @0x21
0x3517…3546 at0022 = ╱2d╱-╱ // 0x3539 @0x22
0x3517…3546 at0023 = ╱2d╱-╱ // 0x353a @0x23
0x3517…3546 at0024 = ╱2d╱-╱ // 0x353b @0x24
0x3517…3546 at0025 = ╱2d╱-╱ // 0x353c @0x25
0x3517…3546 at0026 = ╱2d╱-╱ // 0x353d @0x26
0x3517…3546 at0027 = ╱2d╱-╱ // 0x353e @0x27
0x3517…3546 at0028 = ╱2d╱-╱ // 0x353f @0x28
0x3517…3546 at0029 = ╱2d╱-╱ // 0x3540 @0x29
0x3517…3546 at002a = ╱2d╱-╱ // 0x3541 @0x2a
0x3517…3546 at002b = ╱2d╱-╱ // 0x3542 @0x2b
0x3517…3546 at002c = ╱2d╱-╱ // 0x3543 @0x2c
0x3517…3546 at002d = ╱22╱"╱ // 0x3544 @0x2d
0x3517…3546 at002e = EOL // 0x3545 @0x2e
0x3517…3546 }
0x3546…3552 cb40 02830 ENDPROC NYSIDE
0x3546…3552 LineComal80 {
0x3546…3552 ptr = 0xcb40 // 0x3546 @0x0
0x3546…3552 lno = 0x0b0e // 0x3548 @0x2
0x3546…3552 at0004 = ╱9f╱ ENDPROC ╱ // 0x354a @0x4
0x3546…3552 at0005 = ╱4e╱N╱ // 0x354b @0x5
0x3546…3552 at0006 = ╱59╱Y╱ // 0x354c @0x6
0x3546…3552 at0007 = ╱53╱S╱ // 0x354d @0x7
0x3546…3552 at0008 = ╱49╱I╱ // 0x354e @0x8
0x3546…3552 at0009 = ╱44╱D╱ // 0x354f @0x9
0x3546…3552 at000a = ╱45╱E╱ // 0x3550 @0xa
0x3546…3552 at000b = EOL // 0x3551 @0xb
0x3546…3552 }
0x3552…3557 cb45 02840
0x3552…3557 LineComal80 {
0x3552…3557 ptr = 0xcb45 // 0x3552 @0x0
0x3552…3557 lno = 0x0b18 // 0x3554 @0x2
0x3552…3557 at0004 = EOL // 0x3556 @0x4
0x3552…3557 }
0x3557…3584 d15d 02850 PROC SKRIV_LIN ( Q_D $ , Q_B $ , Q_T $ , Q_M , Q_K , Q_DK )
0x3557…3584 LineComal80 {
0x3557…3584 ptr = 0xd15d // 0x3557 @0x0
0x3557…3584 lno = 0x0b22 // 0x3559 @0x2
0x3557…3584 at0004 = ╱9e2f╱ PROC ╱ // 0x355b @0x4
0x3557…3584 at0006 = ╱53╱S╱ // 0x355d @0x6
0x3557…3584 at0007 = ╱4b╱K╱ // 0x355e @0x7
0x3557…3584 at0008 = ╱52╱R╱ // 0x355f @0x8
0x3557…3584 at0009 = ╱49╱I╱ // 0x3560 @0x9
0x3557…3584 at000a = ╱56╱V╱ // 0x3561 @0xa
0x3557…3584 at000b = ╱5f╱_╱ // 0x3562 @0xb
0x3557…3584 at000c = ╱4c╱L╱ // 0x3563 @0xc
0x3557…3584 at000d = ╱49╱I╱ // 0x3564 @0xd
0x3557…3584 at000e = ╱4e╱N╱ // 0x3565 @0xe
0x3557…3584 at000f = ╱ed╱ ( ╱ // 0x3566 @0xf
0x3557…3584 at0010 = ╱51╱Q╱ // 0x3567 @0x10
0x3557…3584 at0011 = ╱5f╱_╱ // 0x3568 @0x11
0x3557…3584 at0012 = ╱44╱D╱ // 0x3569 @0x12
0x3557…3584 at0013 = ╱ef╱ $ ╱ // 0x356a @0x13
0x3557…3584 at0014 = ╱ec╱ , ╱ // 0x356b @0x14
0x3557…3584 at0015 = ╱51╱Q╱ // 0x356c @0x15
0x3557…3584 at0016 = ╱5f╱_╱ // 0x356d @0x16
0x3557…3584 at0017 = ╱42╱B╱ // 0x356e @0x17
0x3557…3584 at0018 = ╱ef╱ $ ╱ // 0x356f @0x18
0x3557…3584 at0019 = ╱ec╱ , ╱ // 0x3570 @0x19
0x3557…3584 at001a = ╱51╱Q╱ // 0x3571 @0x1a
0x3557…3584 at001b = ╱5f╱_╱ // 0x3572 @0x1b
0x3557…3584 at001c = ╱54╱T╱ // 0x3573 @0x1c
0x3557…3584 at001d = ╱ef╱ $ ╱ // 0x3574 @0x1d
0x3557…3584 at001e = ╱ec╱ , ╱ // 0x3575 @0x1e
0x3557…3584 at001f = ╱51╱Q╱ // 0x3576 @0x1f
0x3557…3584 at0020 = ╱5f╱_╱ // 0x3577 @0x20
0x3557…3584 at0021 = ╱4d╱M╱ // 0x3578 @0x21
0x3557…3584 at0022 = ╱ec╱ , ╱ // 0x3579 @0x22
0x3557…3584 at0023 = ╱51╱Q╱ // 0x357a @0x23
0x3557…3584 at0024 = ╱5f╱_╱ // 0x357b @0x24
0x3557…3584 at0025 = ╱4b╱K╱ // 0x357c @0x25
0x3557…3584 at0026 = ╱ec╱ , ╱ // 0x357d @0x26
0x3557…3584 at0027 = ╱51╱Q╱ // 0x357e @0x27
0x3557…3584 at0028 = ╱5f╱_╱ // 0x357f @0x28
0x3557…3584 at0029 = ╱44╱D╱ // 0x3580 @0x29
0x3557…3584 at002a = ╱4b╱K╱ // 0x3581 @0x2a
0x3557…3584 at002b = ╱ee╱ ) ╱ // 0x3582 @0x2b
0x3557…3584 at002c = EOL // 0x3583 @0x2c
0x3557…3584 }
0x3584…35a8 cb96 02870 IF LIN_T + 6 > MAX_LIN THEN EXEC SIDESKIFT
0x3584…35a8 LineComal80 {
0x3584…35a8 ptr = 0xcb96 // 0x3584 @0x0
0x3584…35a8 lno = 0x0b36 // 0x3586 @0x2
0x3584…35a8 at0004 = ╱8200╱ IF ╱ // 0x3588 @0x4
0x3584…35a8 at0006 = ╱4c╱L╱ // 0x358a @0x6
0x3584…35a8 at0007 = ╱49╱I╱ // 0x358b @0x7
0x3584…35a8 at0008 = ╱4e╱N╱ // 0x358c @0x8
0x3584…35a8 at0009 = ╱5f╱_╱ // 0x358d @0x9
0x3584…35a8 at000a = ╱54╱T╱ // 0x358e @0xa
0x3584…35a8 at000b = ╱e5╱ + ╱ // 0x358f @0xb
0x3584…35a8 at000c = ╱36╱6╱ // 0x3590 @0xc
0x3584…35a8 at000d = ╱f20600╱ // 0x3591 @0xd
0x3584…35a8 at0010 = ╱e1╱ > ╱ // 0x3594 @0x10
0x3584…35a8 at0011 = ╱4d╱M╱ // 0x3595 @0x11
0x3584…35a8 at0012 = ╱41╱A╱ // 0x3596 @0x12
0x3584…35a8 at0013 = ╱58╱X╱ // 0x3597 @0x13
0x3584…35a8 at0014 = ╱5f╱_╱ // 0x3598 @0x14
0x3584…35a8 at0015 = ╱4c╱L╱ // 0x3599 @0x15
0x3584…35a8 at0016 = ╱49╱I╱ // 0x359a @0x16
0x3584…35a8 at0017 = ╱4e╱N╱ // 0x359b @0x17
0x3584…35a8 at0018 = ╱b5╱ THEN ╱ // 0x359c @0x18
0x3584…35a8 at0019 = ╱9d╱ EXEC ╱ // 0x359d @0x19
0x3584…35a8 at001a = ╱53╱S╱ // 0x359e @0x1a
0x3584…35a8 at001b = ╱49╱I╱ // 0x359f @0x1b
0x3584…35a8 at001c = ╱44╱D╱ // 0x35a0 @0x1c
0x3584…35a8 at001d = ╱45╱E╱ // 0x35a1 @0x1d
0x3584…35a8 at001e = ╱53╱S╱ // 0x35a2 @0x1e
0x3584…35a8 at001f = ╱4b╱K╱ // 0x35a3 @0x1f
0x3584…35a8 at0020 = ╱49╱I╱ // 0x35a4 @0x20
0x3584…35a8 at0021 = ╱46╱F╱ // 0x35a5 @0x21
0x3584…35a8 at0022 = ╱54╱T╱ // 0x35a6 @0x22
0x3584…35a8 at0023 = EOL // 0x35a7 @0x23
0x3584…35a8 }
0x35a8…35be cbac 02870 LET LIN_T := LIN_T + 1
0x35a8…35be LineComal80 {
0x35a8…35be ptr = 0xcbac // 0x35a8 @0x0
0x35a8…35be lno = 0x0b36 // 0x35aa @0x2
0x35a8…35be at0004 = ╱86╱ LET ╱ // 0x35ac @0x4
0x35a8…35be at0005 = ╱4c╱L╱ // 0x35ad @0x5
0x35a8…35be at0006 = ╱49╱I╱ // 0x35ae @0x6
0x35a8…35be at0007 = ╱4e╱N╱ // 0x35af @0x7
0x35a8…35be at0008 = ╱5f╱_╱ // 0x35b0 @0x8
0x35a8…35be at0009 = ╱54╱T╱ // 0x35b1 @0x9
0x35a8…35be at000a = ╱f0╱ := ╱ // 0x35b2 @0xa
0x35a8…35be at000b = ╱4c╱L╱ // 0x35b3 @0xb
0x35a8…35be at000c = ╱49╱I╱ // 0x35b4 @0xc
0x35a8…35be at000d = ╱4e╱N╱ // 0x35b5 @0xd
0x35a8…35be at000e = ╱5f╱_╱ // 0x35b6 @0xe
0x35a8…35be at000f = ╱54╱T╱ // 0x35b7 @0xf
0x35a8…35be at0010 = ╱e5╱ + ╱ // 0x35b8 @0x10
0x35a8…35be at0011 = ╱31╱1╱ // 0x35b9 @0x11
0x35a8…35be at0012 = ╱f20100╱ // 0x35ba @0x12
0x35a8…35be at0015 = EOL // 0x35bd @0x15
0x35a8…35be }
0x35be…3605 cbf3 02880 PRINT Q_D $ ( 1 : 2 ) ; "." ; Q_D $ ( 3 : 2 ) ; "." ; Q_D $ ( 5 : 2 ) ; TAB ( 11 ) ;
0x35be…3605 LineComal80 {
0x35be…3605 ptr = 0xcbf3 // 0x35be @0x0
0x35be…3605 lno = 0x0b40 // 0x35c0 @0x2
0x35be…3605 at0004 = ╱92╱ PRINT ╱ // 0x35c2 @0x4
0x35be…3605 at0005 = ╱51╱Q╱ // 0x35c3 @0x5
0x35be…3605 at0006 = ╱5f╱_╱ // 0x35c4 @0x6
0x35be…3605 at0007 = ╱44╱D╱ // 0x35c5 @0x7
0x35be…3605 at0008 = ╱ef╱ $ ╱ // 0x35c6 @0x8
0x35be…3605 at0009 = ╱ed╱ ( ╱ // 0x35c7 @0x9
0x35be…3605 at000a = ╱31╱1╱ // 0x35c8 @0xa
0x35be…3605 at000b = ╱f20100╱ // 0x35c9 @0xb
0x35be…3605 at000e = ╱f1╱ : ╱ // 0x35cc @0xe
0x35be…3605 at000f = ╱32╱2╱ // 0x35cd @0xf
0x35be…3605 at0010 = ╱f20200╱ // 0x35ce @0x10
0x35be…3605 at0013 = ╱ee╱ ) ╱ // 0x35d1 @0x13
0x35be…3605 at0014 = ╱ea╱ ; ╱ // 0x35d2 @0x14
0x35be…3605 at0015 = ╱22╱"╱ // 0x35d3 @0x15
0x35be…3605 at0016 = ╱2e╱.╱ // 0x35d4 @0x16
0x35be…3605 at0017 = ╱22╱"╱ // 0x35d5 @0x17
0x35be…3605 at0018 = ╱ea╱ ; ╱ // 0x35d6 @0x18
0x35be…3605 at0019 = ╱51╱Q╱ // 0x35d7 @0x19
0x35be…3605 at001a = ╱5f╱_╱ // 0x35d8 @0x1a
0x35be…3605 at001b = ╱44╱D╱ // 0x35d9 @0x1b
0x35be…3605 at001c = ╱ef╱ $ ╱ // 0x35da @0x1c
0x35be…3605 at001d = ╱ed╱ ( ╱ // 0x35db @0x1d
0x35be…3605 at001e = ╱33╱3╱ // 0x35dc @0x1e
0x35be…3605 at001f = ╱f20300╱ // 0x35dd @0x1f
0x35be…3605 at0022 = ╱f1╱ : ╱ // 0x35e0 @0x22
0x35be…3605 at0023 = ╱32╱2╱ // 0x35e1 @0x23
0x35be…3605 at0024 = ╱f20200╱ // 0x35e2 @0x24
0x35be…3605 at0027 = ╱ee╱ ) ╱ // 0x35e5 @0x27
0x35be…3605 at0028 = ╱ea╱ ; ╱ // 0x35e6 @0x28
0x35be…3605 at0029 = ╱22╱"╱ // 0x35e7 @0x29
0x35be…3605 at002a = ╱2e╱.╱ // 0x35e8 @0x2a
0x35be…3605 at002b = ╱22╱"╱ // 0x35e9 @0x2b
0x35be…3605 at002c = ╱ea╱ ; ╱ // 0x35ea @0x2c
0x35be…3605 at002d = ╱51╱Q╱ // 0x35eb @0x2d
0x35be…3605 at002e = ╱5f╱_╱ // 0x35ec @0x2e
0x35be…3605 at002f = ╱44╱D╱ // 0x35ed @0x2f
0x35be…3605 at0030 = ╱ef╱ $ ╱ // 0x35ee @0x30
0x35be…3605 at0031 = ╱ed╱ ( ╱ // 0x35ef @0x31
0x35be…3605 at0032 = ╱35╱5╱ // 0x35f0 @0x32
0x35be…3605 at0033 = ╱f20500╱ // 0x35f1 @0x33
0x35be…3605 at0036 = ╱f1╱ : ╱ // 0x35f4 @0x36
0x35be…3605 at0037 = ╱32╱2╱ // 0x35f5 @0x37
0x35be…3605 at0038 = ╱f20200╱ // 0x35f6 @0x38
0x35be…3605 at003b = ╱ee╱ ) ╱ // 0x35f9 @0x3b
0x35be…3605 at003c = ╱ea╱ ; ╱ // 0x35fa @0x3c
0x35be…3605 at003d = ╱d2╱ TAB ╱ // 0x35fb @0x3d
0x35be…3605 at003e = ╱ed╱ ( ╱ // 0x35fc @0x3e
0x35be…3605 at003f = ╱31╱1╱ // 0x35fd @0x3f
0x35be…3605 at0040 = ╱31╱1╱ // 0x35fe @0x40
0x35be…3605 at0041 = ╱f20b00╱ // 0x35ff @0x41
0x35be…3605 at0044 = ╱ee╱ ) ╱ // 0x3602 @0x44
0x35be…3605 at0045 = ╱ea╱ ; ╱ // 0x3603 @0x45
0x35be…3605 at0046 = EOL // 0x3604 @0x46
0x35be…3605 }
0x3605…3635 cc23 02890 PRINT Q_B $ ; TAB ( 11 ) ; Q_B $ ; TAB ( 18 ) ; Q_T $ ; TAB ( 41 ) ;
0x3605…3635 LineComal80 {
0x3605…3635 ptr = 0xcc23 // 0x3605 @0x0
0x3605…3635 lno = 0x0b4a // 0x3607 @0x2
0x3605…3635 at0004 = ╱92╱ PRINT ╱ // 0x3609 @0x4
0x3605…3635 at0005 = ╱51╱Q╱ // 0x360a @0x5
0x3605…3635 at0006 = ╱5f╱_╱ // 0x360b @0x6
0x3605…3635 at0007 = ╱42╱B╱ // 0x360c @0x7
0x3605…3635 at0008 = ╱ef╱ $ ╱ // 0x360d @0x8
0x3605…3635 at0009 = ╱ea╱ ; ╱ // 0x360e @0x9
0x3605…3635 at000a = ╱d2╱ TAB ╱ // 0x360f @0xa
0x3605…3635 at000b = ╱ed╱ ( ╱ // 0x3610 @0xb
0x3605…3635 at000c = ╱31╱1╱ // 0x3611 @0xc
0x3605…3635 at000d = ╱31╱1╱ // 0x3612 @0xd
0x3605…3635 at000e = ╱f20b00╱ // 0x3613 @0xe
0x3605…3635 at0011 = ╱ee╱ ) ╱ // 0x3616 @0x11
0x3605…3635 at0012 = ╱ea╱ ; ╱ // 0x3617 @0x12
0x3605…3635 at0013 = ╱51╱Q╱ // 0x3618 @0x13
0x3605…3635 at0014 = ╱5f╱_╱ // 0x3619 @0x14
0x3605…3635 at0015 = ╱42╱B╱ // 0x361a @0x15
0x3605…3635 at0016 = ╱ef╱ $ ╱ // 0x361b @0x16
0x3605…3635 at0017 = ╱ea╱ ; ╱ // 0x361c @0x17
0x3605…3635 at0018 = ╱d2╱ TAB ╱ // 0x361d @0x18
0x3605…3635 at0019 = ╱ed╱ ( ╱ // 0x361e @0x19
0x3605…3635 at001a = ╱31╱1╱ // 0x361f @0x1a
0x3605…3635 at001b = ╱38╱8╱ // 0x3620 @0x1b
0x3605…3635 at001c = ╱f21200╱ // 0x3621 @0x1c
0x3605…3635 at001f = ╱ee╱ ) ╱ // 0x3624 @0x1f
0x3605…3635 at0020 = ╱ea╱ ; ╱ // 0x3625 @0x20
0x3605…3635 at0021 = ╱51╱Q╱ // 0x3626 @0x21
0x3605…3635 at0022 = ╱5f╱_╱ // 0x3627 @0x22
0x3605…3635 at0023 = ╱54╱T╱ // 0x3628 @0x23
0x3605…3635 at0024 = ╱ef╱ $ ╱ // 0x3629 @0x24
0x3605…3635 at0025 = ╱ea╱ ; ╱ // 0x362a @0x25
0x3605…3635 at0026 = ╱d2╱ TAB ╱ // 0x362b @0x26
0x3605…3635 at0027 = ╱ed╱ ( ╱ // 0x362c @0x27
0x3605…3635 at0028 = ╱34╱4╱ // 0x362d @0x28
0x3605…3635 at0029 = ╱31╱1╱ // 0x362e @0x29
0x3605…3635 at002a = ╱f22900╱ // 0x362f @0x2a
0x3605…3635 at002d = ╱ee╱ ) ╱ // 0x3632 @0x2d
0x3605…3635 at002e = ╱ea╱ ; ╱ // 0x3633 @0x2e
0x3605…3635 at002f = EOL // 0x3634 @0x2f
0x3605…3635 }
0x3635…3657 cc45 02900 IF Q_M > 0 THEN PRINT CHR$ ( Q_M , 9 , 2 ) ;
0x3635…3657 LineComal80 {
0x3635…3657 ptr = 0xcc45 // 0x3635 @0x0
0x3635…3657 lno = 0x0b54 // 0x3637 @0x2
0x3635…3657 at0004 = ╱8200╱ IF ╱ // 0x3639 @0x4
0x3635…3657 at0006 = ╱51╱Q╱ // 0x363b @0x6
0x3635…3657 at0007 = ╱5f╱_╱ // 0x363c @0x7
0x3635…3657 at0008 = ╱4d╱M╱ // 0x363d @0x8
0x3635…3657 at0009 = ╱e1╱ > ╱ // 0x363e @0x9
0x3635…3657 at000a = ╱30╱0╱ // 0x363f @0xa
0x3635…3657 at000b = ╱f20000╱ // 0x3640 @0xb
0x3635…3657 at000e = ╱b5╱ THEN ╱ // 0x3643 @0xe
0x3635…3657 at000f = ╱92╱ PRINT ╱ // 0x3644 @0xf
0x3635…3657 at0010 = ╱d0╱ CHR$ ╱ // 0x3645 @0x10
0x3635…3657 at0011 = ╱ed╱ ( ╱ // 0x3646 @0x11
0x3635…3657 at0012 = ╱51╱Q╱ // 0x3647 @0x12
0x3635…3657 at0013 = ╱5f╱_╱ // 0x3648 @0x13
0x3635…3657 at0014 = ╱4d╱M╱ // 0x3649 @0x14
0x3635…3657 at0015 = ╱ec╱ , ╱ // 0x364a @0x15
0x3635…3657 at0016 = ╱39╱9╱ // 0x364b @0x16
0x3635…3657 at0017 = ╱f20900╱ // 0x364c @0x17
0x3635…3657 at001a = ╱ec╱ , ╱ // 0x364f @0x1a
0x3635…3657 at001b = ╱32╱2╱ // 0x3650 @0x1b
0x3635…3657 at001c = ╱f20200╱ // 0x3651 @0x1c
0x3635…3657 at001f = ╱ee╱ ) ╱ // 0x3654 @0x1f
0x3635…3657 at0020 = ╱ea╱ ; ╱ // 0x3655 @0x20
0x3635…3657 at0021 = EOL // 0x3656 @0x21
0x3635…3657 }
0x3657…3669 cc57 02910 IF _DK = DEBET THEN
0x3657…3669 LineComal80 {
0x3657…3669 ptr = 0xcc57 // 0x3657 @0x0
0x3657…3669 lno = 0x0b5e // 0x3659 @0x2
0x3657…3669 at0004 = ╱9b3051╱ IF ╱ // 0x365b @0x4
0x3657…3669 at0007 = ╱5f╱_╱ // 0x365e @0x7
0x3657…3669 at0008 = ╱44╱D╱ // 0x365f @0x8
0x3657…3669 at0009 = ╱4b╱K╱ // 0x3660 @0x9
0x3657…3669 at000a = ╱df╱ = ╱ // 0x3661 @0xa
0x3657…3669 at000b = ╱44╱D╱ // 0x3662 @0xb
0x3657…3669 at000c = ╱45╱E╱ // 0x3663 @0xc
0x3657…3669 at000d = ╱42╱B╱ // 0x3664 @0xd
0x3657…3669 at000e = ╱45╱E╱ // 0x3665 @0xe
0x3657…3669 at000f = ╱54╱T╱ // 0x3666 @0xf
0x3657…3669 at0010 = ╱b5╱ THEN ╱ // 0x3667 @0x10
0x3657…3669 at0011 = EOL // 0x3668 @0x11
0x3657…3669 }
0x3669…3692 cc80 02920 PRINT TAB ( 42 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ;
0x3669…3692 LineComal80 {
0x3669…3692 ptr = 0xcc80 // 0x3669 @0x0
0x3669…3692 lno = 0x0b68 // 0x366b @0x2
0x3669…3692 at0004 = ╱92╱ PRINT ╱ // 0x366d @0x4
0x3669…3692 at0005 = ╱d2╱ TAB ╱ // 0x366e @0x5
0x3669…3692 at0006 = ╱ed╱ ( ╱ // 0x366f @0x6
0x3669…3692 at0007 = ╱34╱4╱ // 0x3670 @0x7
0x3669…3692 at0008 = ╱32╱2╱ // 0x3671 @0x8
0x3669…3692 at0009 = ╱f22a00╱ // 0x3672 @0x9
0x3669…3692 at000c = ╱ee╱ ) ╱ // 0x3675 @0xc
0x3669…3692 at000d = ╱ea╱ ; ╱ // 0x3676 @0xd
0x3669…3692 at000e = ╱d0╱ CHR$ ╱ // 0x3677 @0xe
0x3669…3692 at000f = ╱ed╱ ( ╱ // 0x3678 @0xf
0x3669…3692 at0010 = ╱51╱Q╱ // 0x3679 @0x10
0x3669…3692 at0011 = ╱5f╱_╱ // 0x367a @0x11
0x3669…3692 at0012 = ╱4b╱K╱ // 0x367b @0x12
0x3669…3692 at0013 = ╱ec╱ , ╱ // 0x367c @0x13
0x3669…3692 at0014 = ╱39╱9╱ // 0x367d @0x14
0x3669…3692 at0015 = ╱f20900╱ // 0x367e @0x15
0x3669…3692 at0018 = ╱ec╱ , ╱ // 0x3681 @0x18
0x3669…3692 at0019 = ╱32╱2╱ // 0x3682 @0x19
0x3669…3692 at001a = ╱f20200╱ // 0x3683 @0x1a
0x3669…3692 at001d = ╱ee╱ ) ╱ // 0x3686 @0x1d
0x3669…3692 at001e = ╱ea╱ ; ╱ // 0x3687 @0x1e
0x3669…3692 at001f = ╱d2╱ TAB ╱ // 0x3688 @0x1f
0x3669…3692 at0020 = ╱ed╱ ( ╱ // 0x3689 @0x20
0x3669…3692 at0021 = ╱36╱6╱ // 0x368a @0x21
0x3669…3692 at0022 = ╱37╱7╱ // 0x368b @0x22
0x3669…3692 at0023 = ╱f24300╱ // 0x368c @0x23
0x3669…3692 at0026 = ╱ee╱ ) ╱ // 0x368f @0x26
0x3669…3692 at0027 = ╱ea╱ ; ╱ // 0x3690 @0x27
0x3669…3692 at0028 = EOL // 0x3691 @0x28
0x3669…3692 }
0x3692…36af cc9d 02930 LET TOT ( 1 ) := TOT ( 1 ) + Q_K
0x3692…36af LineComal80 {
0x3692…36af ptr = 0xcc9d // 0x3692 @0x0
0x3692…36af lno = 0x0b72 // 0x3694 @0x2
0x3692…36af at0004 = ╱86╱ LET ╱ // 0x3696 @0x4
0x3692…36af at0005 = ╱54╱T╱ // 0x3697 @0x5
0x3692…36af at0006 = ╱4f╱O╱ // 0x3698 @0x6
0x3692…36af at0007 = ╱54╱T╱ // 0x3699 @0x7
0x3692…36af at0008 = ╱ed╱ ( ╱ // 0x369a @0x8
0x3692…36af at0009 = ╱31╱1╱ // 0x369b @0x9
0x3692…36af at000a = ╱f20100╱ // 0x369c @0xa
0x3692…36af at000d = ╱ee╱ ) ╱ // 0x369f @0xd
0x3692…36af at000e = ╱f0╱ := ╱ // 0x36a0 @0xe
0x3692…36af at000f = ╱54╱T╱ // 0x36a1 @0xf
0x3692…36af at0010 = ╱4f╱O╱ // 0x36a2 @0x10
0x3692…36af at0011 = ╱54╱T╱ // 0x36a3 @0x11
0x3692…36af at0012 = ╱ed╱ ( ╱ // 0x36a4 @0x12
0x3692…36af at0013 = ╱31╱1╱ // 0x36a5 @0x13
0x3692…36af at0014 = ╱f20100╱ // 0x36a6 @0x14
0x3692…36af at0017 = ╱ee╱ ) ╱ // 0x36a9 @0x17
0x3692…36af at0018 = ╱e5╱ + ╱ // 0x36aa @0x18
0x3692…36af at0019 = ╱51╱Q╱ // 0x36ab @0x19
0x3692…36af at001a = ╱5f╱_╱ // 0x36ac @0x1a
0x3692…36af at001b = ╱4b╱K╱ // 0x36ad @0x1b
0x3692…36af at001c = EOL // 0x36ae @0x1c
0x3692…36af }
0x36af…36b6 cca4 02940 ELSE
0x36af…36b6 LineComal80 {
0x36af…36b6 ptr = 0xcca4 // 0x36af @0x0
0x36af…36b6 lno = 0x0b7c // 0x36b1 @0x2
0x36af…36b6 at0004 = ╱9a31╱ ELSE ╱ // 0x36b3 @0x4
0x36af…36b6 at0006 = EOL // 0x36b5 @0x6
0x36af…36b6 }
0x36b6…36df cccd 02950 PRINT TAB ( 55 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ;
0x36b6…36df LineComal80 {
0x36b6…36df ptr = 0xcccd // 0x36b6 @0x0
0x36b6…36df lno = 0x0b86 // 0x36b8 @0x2
0x36b6…36df at0004 = ╱92╱ PRINT ╱ // 0x36ba @0x4
0x36b6…36df at0005 = ╱d2╱ TAB ╱ // 0x36bb @0x5
0x36b6…36df at0006 = ╱ed╱ ( ╱ // 0x36bc @0x6
0x36b6…36df at0007 = ╱35╱5╱ // 0x36bd @0x7
0x36b6…36df at0008 = ╱35╱5╱ // 0x36be @0x8
0x36b6…36df at0009 = ╱f23700╱ // 0x36bf @0x9
0x36b6…36df at000c = ╱ee╱ ) ╱ // 0x36c2 @0xc
0x36b6…36df at000d = ╱ea╱ ; ╱ // 0x36c3 @0xd
0x36b6…36df at000e = ╱d0╱ CHR$ ╱ // 0x36c4 @0xe
0x36b6…36df at000f = ╱ed╱ ( ╱ // 0x36c5 @0xf
0x36b6…36df at0010 = ╱51╱Q╱ // 0x36c6 @0x10
0x36b6…36df at0011 = ╱5f╱_╱ // 0x36c7 @0x11
0x36b6…36df at0012 = ╱4b╱K╱ // 0x36c8 @0x12
0x36b6…36df at0013 = ╱ec╱ , ╱ // 0x36c9 @0x13
0x36b6…36df at0014 = ╱39╱9╱ // 0x36ca @0x14
0x36b6…36df at0015 = ╱f20900╱ // 0x36cb @0x15
0x36b6…36df at0018 = ╱ec╱ , ╱ // 0x36ce @0x18
0x36b6…36df at0019 = ╱32╱2╱ // 0x36cf @0x19
0x36b6…36df at001a = ╱f20200╱ // 0x36d0 @0x1a
0x36b6…36df at001d = ╱ee╱ ) ╱ // 0x36d3 @0x1d
0x36b6…36df at001e = ╱ea╱ ; ╱ // 0x36d4 @0x1e
0x36b6…36df at001f = ╱d2╱ TAB ╱ // 0x36d5 @0x1f
0x36b6…36df at0020 = ╱ed╱ ( ╱ // 0x36d6 @0x20
0x36b6…36df at0021 = ╱36╱6╱ // 0x36d7 @0x21
0x36b6…36df at0022 = ╱37╱7╱ // 0x36d8 @0x22
0x36b6…36df at0023 = ╱f24300╱ // 0x36d9 @0x23
0x36b6…36df at0026 = ╱ee╱ ) ╱ // 0x36dc @0x26
0x36b6…36df at0027 = ╱ea╱ ; ╱ // 0x36dd @0x27
0x36b6…36df at0028 = EOL // 0x36de @0x28
0x36b6…36df }
0x36df…36fc ccea 02960 LET TOT ( 2 ) := TOT ( 2 ) + Q_K
0x36df…36fc LineComal80 {
0x36df…36fc ptr = 0xccea // 0x36df @0x0
0x36df…36fc lno = 0x0b90 // 0x36e1 @0x2
0x36df…36fc at0004 = ╱86╱ LET ╱ // 0x36e3 @0x4
0x36df…36fc at0005 = ╱54╱T╱ // 0x36e4 @0x5
0x36df…36fc at0006 = ╱4f╱O╱ // 0x36e5 @0x6
0x36df…36fc at0007 = ╱54╱T╱ // 0x36e6 @0x7
0x36df…36fc at0008 = ╱ed╱ ( ╱ // 0x36e7 @0x8
0x36df…36fc at0009 = ╱32╱2╱ // 0x36e8 @0x9
0x36df…36fc at000a = ╱f20200╱ // 0x36e9 @0xa
0x36df…36fc at000d = ╱ee╱ ) ╱ // 0x36ec @0xd
0x36df…36fc at000e = ╱f0╱ := ╱ // 0x36ed @0xe
0x36df…36fc at000f = ╱54╱T╱ // 0x36ee @0xf
0x36df…36fc at0010 = ╱4f╱O╱ // 0x36ef @0x10
0x36df…36fc at0011 = ╱54╱T╱ // 0x36f0 @0x11
0x36df…36fc at0012 = ╱ed╱ ( ╱ // 0x36f1 @0x12
0x36df…36fc at0013 = ╱32╱2╱ // 0x36f2 @0x13
0x36df…36fc at0014 = ╱f20200╱ // 0x36f3 @0x14
0x36df…36fc at0017 = ╱ee╱ ) ╱ // 0x36f6 @0x17
0x36df…36fc at0018 = ╱e5╱ + ╱ // 0x36f7 @0x18
0x36df…36fc at0019 = ╱51╱Q╱ // 0x36f8 @0x19
0x36df…36fc at001a = ╱5f╱_╱ // 0x36f9 @0x1a
0x36df…36fc at001b = ╱4b╱K╱ // 0x36fa @0x1b
0x36df…36fc at001c = EOL // 0x36fb @0x1c
0x36df…36fc }
0x36fc…3702 ccf0 02970 ENDIF
0x36fc…3702 LineComal80 {
0x36fc…3702 ptr = 0xccf0 // 0x36fc @0x0
0x36fc…3702 lno = 0x0b9a // 0x36fe @0x2
0x36fc…3702 at0004 = ╱9c╱ ENDIF ╱ // 0x3700 @0x4
0x36fc…3702 at0005 = EOL // 0x3701 @0x5
0x36fc…3702 }
0x3702…371c d20b 02980 PRINT CHR$ ( ABS ( SUM ) , 9 , 2 ) ;
0x3702…371c LineComal80 {
0x3702…371c ptr = 0xd20b // 0x3702 @0x0
0x3702…371c lno = 0x0ba4 // 0x3704 @0x2
0x3702…371c at0004 = ╱92╱ PRINT ╱ // 0x3706 @0x4
0x3702…371c at0005 = ╱d0╱ CHR$ ╱ // 0x3707 @0x5
0x3702…371c at0006 = ╱ed╱ ( ╱ // 0x3708 @0x6
0x3702…371c at0007 = ╱c4╱ ABS ╱ // 0x3709 @0x7
0x3702…371c at0008 = ╱ed╱ ( ╱ // 0x370a @0x8
0x3702…371c at0009 = ╱53╱S╱ // 0x370b @0x9
0x3702…371c at000a = ╱55╱U╱ // 0x370c @0xa
0x3702…371c at000b = ╱4d╱M╱ // 0x370d @0xb
0x3702…371c at000c = ╱ee╱ ) ╱ // 0x370e @0xc
0x3702…371c at000d = ╱ec╱ , ╱ // 0x370f @0xd
0x3702…371c at000e = ╱39╱9╱ // 0x3710 @0xe
0x3702…371c at000f = ╱f20900╱ // 0x3711 @0xf
0x3702…371c at0012 = ╱ec╱ , ╱ // 0x3714 @0x12
0x3702…371c at0013 = ╱32╱2╱ // 0x3715 @0x13
0x3702…371c at0014 = ╱f20200╱ // 0x3716 @0x14
0x3702…371c at0017 = ╱ee╱ ) ╱ // 0x3719 @0x17
0x3702…371c at0018 = ╱ea╱ ; ╱ // 0x371a @0x18
0x3702…371c at0019 = EOL // 0x371b @0x19
0x3702…371c }
0x371c…3722 cd10 02990 PRINT
0x371c…3722 LineComal80 {
0x371c…3722 ptr = 0xcd10 // 0x371c @0x0
0x371c…3722 lno = 0x0bae // 0x371e @0x2
0x371c…3722 at0004 = ╱92╱ PRINT ╱ // 0x3720 @0x4
0x371c…3722 at0005 = EOL // 0x3721 @0x5
0x371c…3722 }
0x3722…3731 cd1f 03000 ENDPROC SKRIV_LIN
0x3722…3731 LineComal80 {
0x3722…3731 ptr = 0xcd1f // 0x3722 @0x0
0x3722…3731 lno = 0x0bb8 // 0x3724 @0x2
0x3722…3731 at0004 = ╱9f╱ ENDPROC ╱ // 0x3726 @0x4
0x3722…3731 at0005 = ╱53╱S╱ // 0x3727 @0x5
0x3722…3731 at0006 = ╱4b╱K╱ // 0x3728 @0x6
0x3722…3731 at0007 = ╱52╱R╱ // 0x3729 @0x7
0x3722…3731 at0008 = ╱49╱I╱ // 0x372a @0x8
0x3722…3731 at0009 = ╱56╱V╱ // 0x372b @0x9
0x3722…3731 at000a = ╱5f╱_╱ // 0x372c @0xa
0x3722…3731 at000b = ╱4c╱L╱ // 0x372d @0xb
0x3722…3731 at000c = ╱49╱I╱ // 0x372e @0xc
0x3722…3731 at000d = ╱4e╱N╱ // 0x372f @0xd
0x3722…3731 at000e = EOL // 0x3730 @0xe
0x3722…3731 }
0x3731…3736 cd24 03010
0x3731…3736 LineComal80 {
0x3731…3736 ptr = 0xcd24 // 0x3731 @0x0
0x3731…3736 lno = 0x0bc2 // 0x3733 @0x2
0x3731…3736 at0004 = EOL // 0x3735 @0x4
0x3731…3736 }
0x3736…3743 d181 03020 PROC AFSLUT
0x3736…3743 LineComal80 {
0x3736…3743 ptr = 0xd181 // 0x3736 @0x0
0x3736…3743 lno = 0x0bcc // 0x3738 @0x2
0x3736…3743 at0004 = ╱9e34╱ PROC ╱ // 0x373a @0x4
0x3736…3743 at0006 = ╱41╱A╱ // 0x373c @0x6
0x3736…3743 at0007 = ╱46╱F╱ // 0x373d @0x7
0x3736…3743 at0008 = ╱53╱S╱ // 0x373e @0x8
0x3736…3743 at0009 = ╱4c╱L╱ // 0x373f @0x9
0x3736…3743 at000a = ╱55╱U╱ // 0x3740 @0xa
0x3736…3743 at000b = ╱54╱T╱ // 0x3741 @0xb
0x3736…3743 at000c = EOL // 0x3742 @0xc
0x3736…3743 }
0x3743…3760 d0dc 03030 FOR I := LIN_T TO AX_LIN - 6 DO PRINT
0x3743…3760 LineComal80 {
0x3743…3760 ptr = 0xd0dc // 0x3743 @0x0
0x3743…3760 lno = 0x0bd6 // 0x3745 @0x2
0x3743…3760 at0004 = ╱b400╱ FOR ╱ // 0x3747 @0x4
0x3743…3760 at0006 = ╱49╱I╱ // 0x3749 @0x6
0x3743…3760 at0007 = ╱f0╱ := ╱ // 0x374a @0x7
0x3743…3760 at0008 = ╱4c╱L╱ // 0x374b @0x8
0x3743…3760 at0009 = ╱49╱I╱ // 0x374c @0x9
0x3743…3760 at000a = ╱4e╱N╱ // 0x374d @0xa
0x3743…3760 at000b = ╱5f╱_╱ // 0x374e @0xb
0x3743…3760 at000c = ╱54╱T╱ // 0x374f @0xc
0x3743…3760 at000d = ╱b74d╱ TO ╱ // 0x3750 @0xd
0x3743…3760 at000f = ╱41╱A╱ // 0x3752 @0xf
0x3743…3760 at0010 = ╱58╱X╱ // 0x3753 @0x10
0x3743…3760 at0011 = ╱5f╱_╱ // 0x3754 @0x11
0x3743…3760 at0012 = ╱4c╱L╱ // 0x3755 @0x12
0x3743…3760 at0013 = ╱49╱I╱ // 0x3756 @0x13
0x3743…3760 at0014 = ╱4e╱N╱ // 0x3757 @0x14
0x3743…3760 at0015 = ╱e6╱ - ╱ // 0x3758 @0x15
0x3743…3760 at0016 = ╱36╱6╱ // 0x3759 @0x16
0x3743…3760 at0017 = ╱f20600╱ // 0x375a @0x17
0x3743…3760 at001a = ╱bb╱ DO ╱ // 0x375d @0x1a
0x3743…3760 at001b = ╱92╱ PRINT ╱ // 0x375e @0x1b
0x3743…3760 at001c = EOL // 0x375f @0x1c
0x3743…3760 }
0x3760…3778 cd66 03040 LET LIN_T := MAX_LIN - 5
0x3760…3778 LineComal80 {
0x3760…3778 ptr = 0xcd66 // 0x3760 @0x0
0x3760…3778 lno = 0x0be0 // 0x3762 @0x2
0x3760…3778 at0004 = ╱86╱ LET ╱ // 0x3764 @0x4
0x3760…3778 at0005 = ╱4c╱L╱ // 0x3765 @0x5
0x3760…3778 at0006 = ╱49╱I╱ // 0x3766 @0x6
0x3760…3778 at0007 = ╱4e╱N╱ // 0x3767 @0x7
0x3760…3778 at0008 = ╱5f╱_╱ // 0x3768 @0x8
0x3760…3778 at0009 = ╱54╱T╱ // 0x3769 @0x9
0x3760…3778 at000a = ╱f0╱ := ╱ // 0x376a @0xa
0x3760…3778 at000b = ╱4d╱M╱ // 0x376b @0xb
0x3760…3778 at000c = ╱41╱A╱ // 0x376c @0xc
0x3760…3778 at000d = ╱58╱X╱ // 0x376d @0xd
0x3760…3778 at000e = ╱5f╱_╱ // 0x376e @0xe
0x3760…3778 at000f = ╱4c╱L╱ // 0x376f @0xf
0x3760…3778 at0010 = ╱49╱I╱ // 0x3770 @0x10
0x3760…3778 at0011 = ╱4e╱N╱ // 0x3771 @0x11
0x3760…3778 at0012 = ╱e6╱ - ╱ // 0x3772 @0x12
0x3760…3778 at0013 = ╱35╱5╱ // 0x3773 @0x13
0x3760…3778 at0014 = ╱f20500╱ // 0x3774 @0x14
0x3760…3778 at0017 = EOL // 0x3777 @0x17
0x3760…3778 }
0x3778…37aa cd98 03050 PRINT "<S>---------------------------------------"
0x3778…37aa LineComal80 {
0x3778…37aa ptr = 0xcd98 // 0x3778 @0x0
0x3778…37aa lno = 0x0bea // 0x377a @0x2
0x3778…37aa at0004 = ╱92╱ PRINT ╱ // 0x377c @0x4
0x3778…37aa at0005 = ╱22╱"╱ // 0x377d @0x5
0x3778…37aa at0006 = ╱3c╱<╱ // 0x377e @0x6
0x3778…37aa at0007 = ╱53╱S╱ // 0x377f @0x7
0x3778…37aa at0008 = ╱3e╱>╱ // 0x3780 @0x8
0x3778…37aa at0009 = ╱2d╱-╱ // 0x3781 @0x9
0x3778…37aa at000a = ╱2d╱-╱ // 0x3782 @0xa
0x3778…37aa at000b = ╱2d╱-╱ // 0x3783 @0xb
0x3778…37aa at000c = ╱2d╱-╱ // 0x3784 @0xc
0x3778…37aa at000d = ╱2d╱-╱ // 0x3785 @0xd
0x3778…37aa at000e = ╱2d╱-╱ // 0x3786 @0xe
0x3778…37aa at000f = ╱2d╱-╱ // 0x3787 @0xf
0x3778…37aa at0010 = ╱2d╱-╱ // 0x3788 @0x10
0x3778…37aa at0011 = ╱2d╱-╱ // 0x3789 @0x11
0x3778…37aa at0012 = ╱2d╱-╱ // 0x378a @0x12
0x3778…37aa at0013 = ╱2d╱-╱ // 0x378b @0x13
0x3778…37aa at0014 = ╱2d╱-╱ // 0x378c @0x14
0x3778…37aa at0015 = ╱2d╱-╱ // 0x378d @0x15
0x3778…37aa at0016 = ╱2d╱-╱ // 0x378e @0x16
0x3778…37aa at0017 = ╱2d╱-╱ // 0x378f @0x17
0x3778…37aa at0018 = ╱2d╱-╱ // 0x3790 @0x18
0x3778…37aa at0019 = ╱2d╱-╱ // 0x3791 @0x19
0x3778…37aa at001a = ╱2d╱-╱ // 0x3792 @0x1a
0x3778…37aa at001b = ╱2d╱-╱ // 0x3793 @0x1b
0x3778…37aa at001c = ╱2d╱-╱ // 0x3794 @0x1c
0x3778…37aa at001d = ╱2d╱-╱ // 0x3795 @0x1d
0x3778…37aa at001e = ╱2d╱-╱ // 0x3796 @0x1e
0x3778…37aa at001f = ╱2d╱-╱ // 0x3797 @0x1f
0x3778…37aa at0020 = ╱2d╱-╱ // 0x3798 @0x20
0x3778…37aa at0021 = ╱2d╱-╱ // 0x3799 @0x21
0x3778…37aa at0022 = ╱2d╱-╱ // 0x379a @0x22
0x3778…37aa at0023 = ╱2d╱-╱ // 0x379b @0x23
0x3778…37aa at0024 = ╱2d╱-╱ // 0x379c @0x24
0x3778…37aa at0025 = ╱2d╱-╱ // 0x379d @0x25
0x3778…37aa at0026 = ╱2d╱-╱ // 0x379e @0x26
0x3778…37aa at0027 = ╱2d╱-╱ // 0x379f @0x27
0x3778…37aa at0028 = ╱2d╱-╱ // 0x37a0 @0x28
0x3778…37aa at0029 = ╱2d╱-╱ // 0x37a1 @0x29
0x3778…37aa at002a = ╱2d╱-╱ // 0x37a2 @0x2a
0x3778…37aa at002b = ╱2d╱-╱ // 0x37a3 @0x2b
0x3778…37aa at002c = ╱2d╱-╱ // 0x37a4 @0x2c
0x3778…37aa at002d = ╱2d╱-╱ // 0x37a5 @0x2d
0x3778…37aa at002e = ╱2d╱-╱ // 0x37a6 @0x2e
0x3778…37aa at002f = ╱2d╱-╱ // 0x37a7 @0x2f
0x3778…37aa at0030 = ╱22╱"╱ // 0x37a8 @0x30
0x3778…37aa at0031 = EOL // 0x37a9 @0x31
0x3778…37aa }
0x37aa…37d9 cf3a 03060 PRINT "---------------------------------------"
0x37aa…37d9 LineComal80 {
0x37aa…37d9 ptr = 0xcf3a // 0x37aa @0x0
0x37aa…37d9 lno = 0x0bf4 // 0x37ac @0x2
0x37aa…37d9 at0004 = ╱92╱ PRINT ╱ // 0x37ae @0x4
0x37aa…37d9 at0005 = ╱22╱"╱ // 0x37af @0x5
0x37aa…37d9 at0006 = ╱2d╱-╱ // 0x37b0 @0x6
0x37aa…37d9 at0007 = ╱2d╱-╱ // 0x37b1 @0x7
0x37aa…37d9 at0008 = ╱2d╱-╱ // 0x37b2 @0x8
0x37aa…37d9 at0009 = ╱2d╱-╱ // 0x37b3 @0x9
0x37aa…37d9 at000a = ╱2d╱-╱ // 0x37b4 @0xa
0x37aa…37d9 at000b = ╱2d╱-╱ // 0x37b5 @0xb
0x37aa…37d9 at000c = ╱2d╱-╱ // 0x37b6 @0xc
0x37aa…37d9 at000d = ╱2d╱-╱ // 0x37b7 @0xd
0x37aa…37d9 at000e = ╱2d╱-╱ // 0x37b8 @0xe
0x37aa…37d9 at000f = ╱2d╱-╱ // 0x37b9 @0xf
0x37aa…37d9 at0010 = ╱2d╱-╱ // 0x37ba @0x10
0x37aa…37d9 at0011 = ╱2d╱-╱ // 0x37bb @0x11
0x37aa…37d9 at0012 = ╱2d╱-╱ // 0x37bc @0x12
0x37aa…37d9 at0013 = ╱2d╱-╱ // 0x37bd @0x13
0x37aa…37d9 at0014 = ╱2d╱-╱ // 0x37be @0x14
0x37aa…37d9 at0015 = ╱2d╱-╱ // 0x37bf @0x15
0x37aa…37d9 at0016 = ╱2d╱-╱ // 0x37c0 @0x16
0x37aa…37d9 at0017 = ╱2d╱-╱ // 0x37c1 @0x17
0x37aa…37d9 at0018 = ╱2d╱-╱ // 0x37c2 @0x18
0x37aa…37d9 at0019 = ╱2d╱-╱ // 0x37c3 @0x19
0x37aa…37d9 at001a = ╱2d╱-╱ // 0x37c4 @0x1a
0x37aa…37d9 at001b = ╱2d╱-╱ // 0x37c5 @0x1b
0x37aa…37d9 at001c = ╱2d╱-╱ // 0x37c6 @0x1c
0x37aa…37d9 at001d = ╱2d╱-╱ // 0x37c7 @0x1d
0x37aa…37d9 at001e = ╱2d╱-╱ // 0x37c8 @0x1e
0x37aa…37d9 at001f = ╱2d╱-╱ // 0x37c9 @0x1f
0x37aa…37d9 at0020 = ╱2d╱-╱ // 0x37ca @0x20
0x37aa…37d9 at0021 = ╱2d╱-╱ // 0x37cb @0x21
0x37aa…37d9 at0022 = ╱2d╱-╱ // 0x37cc @0x22
0x37aa…37d9 at0023 = ╱2d╱-╱ // 0x37cd @0x23
0x37aa…37d9 at0024 = ╱2d╱-╱ // 0x37ce @0x24
0x37aa…37d9 at0025 = ╱2d╱-╱ // 0x37cf @0x25
0x37aa…37d9 at0026 = ╱2d╱-╱ // 0x37d0 @0x26
0x37aa…37d9 at0027 = ╱2d╱-╱ // 0x37d1 @0x27
0x37aa…37d9 at0028 = ╱2d╱-╱ // 0x37d2 @0x28
0x37aa…37d9 at0029 = ╱2d╱-╱ // 0x37d3 @0x29
0x37aa…37d9 at002a = ╱2d╱-╱ // 0x37d4 @0x2a
0x37aa…37d9 at002b = ╱2d╱-╱ // 0x37d5 @0x2b
0x37aa…37d9 at002c = ╱2d╱-╱ // 0x37d6 @0x2c
0x37aa…37d9 at002d = ╱22╱"╱ // 0x37d7 @0x2d
0x37aa…37d9 at002e = EOL // 0x37d8 @0x2e
0x37aa…37d9 }
0x37d9…381e ce0c 03070 PRINT TAB ( 42 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; TAB ( 55 ) ; CHR$ ( TOT ( 2 ) , 9 , 2 )
0x37d9…381e LineComal80 {
0x37d9…381e ptr = 0xce0c // 0x37d9 @0x0
0x37d9…381e lno = 0x0bfe // 0x37db @0x2
0x37d9…381e at0004 = ╱92╱ PRINT ╱ // 0x37dd @0x4
0x37d9…381e at0005 = ╱d2╱ TAB ╱ // 0x37de @0x5
0x37d9…381e at0006 = ╱ed╱ ( ╱ // 0x37df @0x6
0x37d9…381e at0007 = ╱34╱4╱ // 0x37e0 @0x7
0x37d9…381e at0008 = ╱32╱2╱ // 0x37e1 @0x8
0x37d9…381e at0009 = ╱f22a00╱ // 0x37e2 @0x9
0x37d9…381e at000c = ╱ee╱ ) ╱ // 0x37e5 @0xc
0x37d9…381e at000d = ╱ea╱ ; ╱ // 0x37e6 @0xd
0x37d9…381e at000e = ╱d0╱ CHR$ ╱ // 0x37e7 @0xe
0x37d9…381e at000f = ╱ed╱ ( ╱ // 0x37e8 @0xf
0x37d9…381e at0010 = ╱54╱T╱ // 0x37e9 @0x10
0x37d9…381e at0011 = ╱4f╱O╱ // 0x37ea @0x11
0x37d9…381e at0012 = ╱54╱T╱ // 0x37eb @0x12
0x37d9…381e at0013 = ╱ed╱ ( ╱ // 0x37ec @0x13
0x37d9…381e at0014 = ╱31╱1╱ // 0x37ed @0x14
0x37d9…381e at0015 = ╱f20100╱ // 0x37ee @0x15
0x37d9…381e at0018 = ╱ee╱ ) ╱ // 0x37f1 @0x18
0x37d9…381e at0019 = ╱ec╱ , ╱ // 0x37f2 @0x19
0x37d9…381e at001a = ╱39╱9╱ // 0x37f3 @0x1a
0x37d9…381e at001b = ╱f20900╱ // 0x37f4 @0x1b
0x37d9…381e at001e = ╱ec╱ , ╱ // 0x37f7 @0x1e
0x37d9…381e at001f = ╱32╱2╱ // 0x37f8 @0x1f
0x37d9…381e at0020 = ╱f20200╱ // 0x37f9 @0x20
0x37d9…381e at0023 = ╱ee╱ ) ╱ // 0x37fc @0x23
0x37d9…381e at0024 = ╱ea╱ ; ╱ // 0x37fd @0x24
0x37d9…381e at0025 = ╱d2╱ TAB ╱ // 0x37fe @0x25
0x37d9…381e at0026 = ╱ed╱ ( ╱ // 0x37ff @0x26
0x37d9…381e at0027 = ╱35╱5╱ // 0x3800 @0x27
0x37d9…381e at0028 = ╱35╱5╱ // 0x3801 @0x28
0x37d9…381e at0029 = ╱f23700╱ // 0x3802 @0x29
0x37d9…381e at002c = ╱ee╱ ) ╱ // 0x3805 @0x2c
0x37d9…381e at002d = ╱ea╱ ; ╱ // 0x3806 @0x2d
0x37d9…381e at002e = ╱d0╱ CHR$ ╱ // 0x3807 @0x2e
0x37d9…381e at002f = ╱ed╱ ( ╱ // 0x3808 @0x2f
0x37d9…381e at0030 = ╱54╱T╱ // 0x3809 @0x30
0x37d9…381e at0031 = ╱4f╱O╱ // 0x380a @0x31
0x37d9…381e at0032 = ╱54╱T╱ // 0x380b @0x32
0x37d9…381e at0033 = ╱ed╱ ( ╱ // 0x380c @0x33
0x37d9…381e at0034 = ╱32╱2╱ // 0x380d @0x34
0x37d9…381e at0035 = ╱f20200╱ // 0x380e @0x35
0x37d9…381e at0038 = ╱ee╱ ) ╱ // 0x3811 @0x38
0x37d9…381e at0039 = ╱ec╱ , ╱ // 0x3812 @0x39
0x37d9…381e at003a = ╱39╱9╱ // 0x3813 @0x3a
0x37d9…381e at003b = ╱f20900╱ // 0x3814 @0x3b
0x37d9…381e at003e = ╱ec╱ , ╱ // 0x3817 @0x3e
0x37d9…381e at003f = ╱32╱2╱ // 0x3818 @0x3f
0x37d9…381e at0040 = ╱f20200╱ // 0x3819 @0x40
0x37d9…381e at0043 = ╱ee╱ ) ╱ // 0x381c @0x43
0x37d9…381e at0044 = EOL // 0x381d @0x44
0x37d9…381e }
0x381e…383c ce2a 03080 PRINT TAB ( 18 ) ; "NY…SALDO…………" ;
0x381e…383c LineComal80 {
0x381e…383c ptr = 0xce2a // 0x381e @0x0
0x381e…383c lno = 0x0c08 // 0x3820 @0x2
0x381e…383c at0004 = ╱92╱ PRINT ╱ // 0x3822 @0x4
0x381e…383c at0005 = ╱d2╱ TAB ╱ // 0x3823 @0x5
0x381e…383c at0006 = ╱ed╱ ( ╱ // 0x3824 @0x6
0x381e…383c at0007 = ╱31╱1╱ // 0x3825 @0x7
0x381e…383c at0008 = ╱38╱8╱ // 0x3826 @0x8
0x381e…383c at0009 = ╱f21200╱ // 0x3827 @0x9
0x381e…383c at000c = ╱ee╱ ) ╱ // 0x382a @0xc
0x381e…383c at000d = ╱ea╱ ; ╱ // 0x382b @0xd
0x381e…383c at000e = ╱22╱"╱ // 0x382c @0xe
0x381e…383c at000f = ╱4e╱N╱ // 0x382d @0xf
0x381e…383c at0010 = ╱59╱Y╱ // 0x382e @0x10
0x381e…383c at0011 = ╱20╱…╱ // 0x382f @0x11
0x381e…383c at0012 = ╱53╱S╱ // 0x3830 @0x12
0x381e…383c at0013 = ╱41╱A╱ // 0x3831 @0x13
0x381e…383c at0014 = ╱4c╱L╱ // 0x3832 @0x14
0x381e…383c at0015 = ╱44╱D╱ // 0x3833 @0x15
0x381e…383c at0016 = ╱4f╱O╱ // 0x3834 @0x16
0x381e…383c at0017 = ╱20╱…╱ // 0x3835 @0x17
0x381e…383c at0018 = ╱20╱…╱ // 0x3836 @0x18
0x381e…383c at0019 = ╱20╱…╱ // 0x3837 @0x19
0x381e…383c at001a = ╱20╱…╱ // 0x3838 @0x1a
0x381e…383c at001b = ╱22╱"╱ // 0x3839 @0x1b
0x381e…383c at001c = ╱ea╱ ; ╱ // 0x383a @0x1c
0x381e…383c at001d = EOL // 0x383b @0x1d
0x381e…383c }
0x383c…385c ce4a 03090 IF OT ( 1 ) - TOT ( 2 ) > 0 THEN
0x383c…385c LineComal80 {
0x383c…385c ptr = 0xce4a // 0x383c @0x0
0x383c…385c lno = 0x0c12 // 0x383e @0x2
0x383c…385c at0004 = ╱9b3454╱ IF ╱ // 0x3840 @0x4
0x383c…385c at0007 = ╱4f╱O╱ // 0x3843 @0x7
0x383c…385c at0008 = ╱54╱T╱ // 0x3844 @0x8
0x383c…385c at0009 = ╱ed╱ ( ╱ // 0x3845 @0x9
0x383c…385c at000a = ╱31╱1╱ // 0x3846 @0xa
0x383c…385c at000b = ╱f20100╱ // 0x3847 @0xb
0x383c…385c at000e = ╱ee╱ ) ╱ // 0x384a @0xe
0x383c…385c at000f = ╱e6╱ - ╱ // 0x384b @0xf
0x383c…385c at0010 = ╱54╱T╱ // 0x384c @0x10
0x383c…385c at0011 = ╱4f╱O╱ // 0x384d @0x11
0x383c…385c at0012 = ╱54╱T╱ // 0x384e @0x12
0x383c…385c at0013 = ╱ed╱ ( ╱ // 0x384f @0x13
0x383c…385c at0014 = ╱32╱2╱ // 0x3850 @0x14
0x383c…385c at0015 = ╱f20200╱ // 0x3851 @0x15
0x383c…385c at0018 = ╱ee╱ ) ╱ // 0x3854 @0x18
0x383c…385c at0019 = ╱e1╱ > ╱ // 0x3855 @0x19
0x383c…385c at001a = ╱30╱0╱ // 0x3856 @0x1a
0x383c…385c at001b = ╱f20000╱ // 0x3857 @0x1b
0x383c…385c at001e = ╱b5╱ THEN ╱ // 0x385a @0x1e
0x383c…385c at001f = EOL // 0x385b @0x1f
0x383c…385c }
0x385c…388b ce79 03100 PRINT TAB ( 55 ) ; CHR$ ( TOT ( 1 ) - TOT ( 2 ) , 9 , 2 )
0x385c…388b LineComal80 {
0x385c…388b ptr = 0xce79 // 0x385c @0x0
0x385c…388b lno = 0x0c1c // 0x385e @0x2
0x385c…388b at0004 = ╱92╱ PRINT ╱ // 0x3860 @0x4
0x385c…388b at0005 = ╱d2╱ TAB ╱ // 0x3861 @0x5
0x385c…388b at0006 = ╱ed╱ ( ╱ // 0x3862 @0x6
0x385c…388b at0007 = ╱35╱5╱ // 0x3863 @0x7
0x385c…388b at0008 = ╱35╱5╱ // 0x3864 @0x8
0x385c…388b at0009 = ╱f23700╱ // 0x3865 @0x9
0x385c…388b at000c = ╱ee╱ ) ╱ // 0x3868 @0xc
0x385c…388b at000d = ╱ea╱ ; ╱ // 0x3869 @0xd
0x385c…388b at000e = ╱d0╱ CHR$ ╱ // 0x386a @0xe
0x385c…388b at000f = ╱ed╱ ( ╱ // 0x386b @0xf
0x385c…388b at0010 = ╱54╱T╱ // 0x386c @0x10
0x385c…388b at0011 = ╱4f╱O╱ // 0x386d @0x11
0x385c…388b at0012 = ╱54╱T╱ // 0x386e @0x12
0x385c…388b at0013 = ╱ed╱ ( ╱ // 0x386f @0x13
0x385c…388b at0014 = ╱31╱1╱ // 0x3870 @0x14
0x385c…388b at0015 = ╱f20100╱ // 0x3871 @0x15
0x385c…388b at0018 = ╱ee╱ ) ╱ // 0x3874 @0x18
0x385c…388b at0019 = ╱e6╱ - ╱ // 0x3875 @0x19
0x385c…388b at001a = ╱54╱T╱ // 0x3876 @0x1a
0x385c…388b at001b = ╱4f╱O╱ // 0x3877 @0x1b
0x385c…388b at001c = ╱54╱T╱ // 0x3878 @0x1c
0x385c…388b at001d = ╱ed╱ ( ╱ // 0x3879 @0x1d
0x385c…388b at001e = ╱32╱2╱ // 0x387a @0x1e
0x385c…388b at001f = ╱f20200╱ // 0x387b @0x1f
0x385c…388b at0022 = ╱ee╱ ) ╱ // 0x387e @0x22
0x385c…388b at0023 = ╱ec╱ , ╱ // 0x387f @0x23
0x385c…388b at0024 = ╱39╱9╱ // 0x3880 @0x24
0x385c…388b at0025 = ╱f20900╱ // 0x3881 @0x25
0x385c…388b at0028 = ╱ec╱ , ╱ // 0x3884 @0x28
0x385c…388b at0029 = ╱32╱2╱ // 0x3885 @0x29
0x385c…388b at002a = ╱f20200╱ // 0x3886 @0x2a
0x385c…388b at002d = ╱ee╱ ) ╱ // 0x3889 @0x2d
0x385c…388b at002e = EOL // 0x388a @0x2e
0x385c…388b }
0x388b…38a4 ce92 03110 LET TOT ( 2 ) := TOT ( 1 )
0x388b…38a4 LineComal80 {
0x388b…38a4 ptr = 0xce92 // 0x388b @0x0
0x388b…38a4 lno = 0x0c26 // 0x388d @0x2
0x388b…38a4 at0004 = ╱86╱ LET ╱ // 0x388f @0x4
0x388b…38a4 at0005 = ╱54╱T╱ // 0x3890 @0x5
0x388b…38a4 at0006 = ╱4f╱O╱ // 0x3891 @0x6
0x388b…38a4 at0007 = ╱54╱T╱ // 0x3892 @0x7
0x388b…38a4 at0008 = ╱ed╱ ( ╱ // 0x3893 @0x8
0x388b…38a4 at0009 = ╱32╱2╱ // 0x3894 @0x9
0x388b…38a4 at000a = ╱f20200╱ // 0x3895 @0xa
0x388b…38a4 at000d = ╱ee╱ ) ╱ // 0x3898 @0xd
0x388b…38a4 at000e = ╱f0╱ := ╱ // 0x3899 @0xe
0x388b…38a4 at000f = ╱54╱T╱ // 0x389a @0xf
0x388b…38a4 at0010 = ╱4f╱O╱ // 0x389b @0x10
0x388b…38a4 at0011 = ╱54╱T╱ // 0x389c @0x11
0x388b…38a4 at0012 = ╱ed╱ ( ╱ // 0x389d @0x12
0x388b…38a4 at0013 = ╱31╱1╱ // 0x389e @0x13
0x388b…38a4 at0014 = ╱f20100╱ // 0x389f @0x14
0x388b…38a4 at0017 = ╱ee╱ ) ╱ // 0x38a2 @0x17
0x388b…38a4 at0018 = EOL // 0x38a3 @0x18
0x388b…38a4 }
0x38a4…38ab ce99 03120 ELSE
0x38a4…38ab LineComal80 {
0x38a4…38ab ptr = 0xce99 // 0x38a4 @0x0
0x38a4…38ab lno = 0x0c30 // 0x38a6 @0x2
0x38a4…38ab at0004 = ╱9a35╱ ELSE ╱ // 0x38a8 @0x4
0x38a4…38ab at0006 = EOL // 0x38aa @0x6
0x38a4…38ab }
0x38ab…38da cec8 03130 PRINT TAB ( 42 ) ; CHR$ ( TOT ( 2 ) - TOT ( 1 ) , 9 , 2 )
0x38ab…38da LineComal80 {
0x38ab…38da ptr = 0xcec8 // 0x38ab @0x0
0x38ab…38da lno = 0x0c3a // 0x38ad @0x2
0x38ab…38da at0004 = ╱92╱ PRINT ╱ // 0x38af @0x4
0x38ab…38da at0005 = ╱d2╱ TAB ╱ // 0x38b0 @0x5
0x38ab…38da at0006 = ╱ed╱ ( ╱ // 0x38b1 @0x6
0x38ab…38da at0007 = ╱34╱4╱ // 0x38b2 @0x7
0x38ab…38da at0008 = ╱32╱2╱ // 0x38b3 @0x8
0x38ab…38da at0009 = ╱f22a00╱ // 0x38b4 @0x9
0x38ab…38da at000c = ╱ee╱ ) ╱ // 0x38b7 @0xc
0x38ab…38da at000d = ╱ea╱ ; ╱ // 0x38b8 @0xd
0x38ab…38da at000e = ╱d0╱ CHR$ ╱ // 0x38b9 @0xe
0x38ab…38da at000f = ╱ed╱ ( ╱ // 0x38ba @0xf
0x38ab…38da at0010 = ╱54╱T╱ // 0x38bb @0x10
0x38ab…38da at0011 = ╱4f╱O╱ // 0x38bc @0x11
0x38ab…38da at0012 = ╱54╱T╱ // 0x38bd @0x12
0x38ab…38da at0013 = ╱ed╱ ( ╱ // 0x38be @0x13
0x38ab…38da at0014 = ╱32╱2╱ // 0x38bf @0x14
0x38ab…38da at0015 = ╱f20200╱ // 0x38c0 @0x15
0x38ab…38da at0018 = ╱ee╱ ) ╱ // 0x38c3 @0x18
0x38ab…38da at0019 = ╱e6╱ - ╱ // 0x38c4 @0x19
0x38ab…38da at001a = ╱54╱T╱ // 0x38c5 @0x1a
0x38ab…38da at001b = ╱4f╱O╱ // 0x38c6 @0x1b
0x38ab…38da at001c = ╱54╱T╱ // 0x38c7 @0x1c
0x38ab…38da at001d = ╱ed╱ ( ╱ // 0x38c8 @0x1d
0x38ab…38da at001e = ╱31╱1╱ // 0x38c9 @0x1e
0x38ab…38da at001f = ╱f20100╱ // 0x38ca @0x1f
0x38ab…38da at0022 = ╱ee╱ ) ╱ // 0x38cd @0x22
0x38ab…38da at0023 = ╱ec╱ , ╱ // 0x38ce @0x23
0x38ab…38da at0024 = ╱39╱9╱ // 0x38cf @0x24
0x38ab…38da at0025 = ╱f20900╱ // 0x38d0 @0x25
0x38ab…38da at0028 = ╱ec╱ , ╱ // 0x38d3 @0x28
0x38ab…38da at0029 = ╱32╱2╱ // 0x38d4 @0x29
0x38ab…38da at002a = ╱f20200╱ // 0x38d5 @0x2a
0x38ab…38da at002d = ╱ee╱ ) ╱ // 0x38d8 @0x2d
0x38ab…38da at002e = EOL // 0x38d9 @0x2e
0x38ab…38da }
0x38da…38f3 cee1 03140 LET TOT ( 1 ) := TOT ( 2 )
0x38da…38f3 LineComal80 {
0x38da…38f3 ptr = 0xcee1 // 0x38da @0x0
0x38da…38f3 lno = 0x0c44 // 0x38dc @0x2
0x38da…38f3 at0004 = ╱86╱ LET ╱ // 0x38de @0x4
0x38da…38f3 at0005 = ╱54╱T╱ // 0x38df @0x5
0x38da…38f3 at0006 = ╱4f╱O╱ // 0x38e0 @0x6
0x38da…38f3 at0007 = ╱54╱T╱ // 0x38e1 @0x7
0x38da…38f3 at0008 = ╱ed╱ ( ╱ // 0x38e2 @0x8
0x38da…38f3 at0009 = ╱31╱1╱ // 0x38e3 @0x9
0x38da…38f3 at000a = ╱f20100╱ // 0x38e4 @0xa
0x38da…38f3 at000d = ╱ee╱ ) ╱ // 0x38e7 @0xd
0x38da…38f3 at000e = ╱f0╱ := ╱ // 0x38e8 @0xe
0x38da…38f3 at000f = ╱54╱T╱ // 0x38e9 @0xf
0x38da…38f3 at0010 = ╱4f╱O╱ // 0x38ea @0x10
0x38da…38f3 at0011 = ╱54╱T╱ // 0x38eb @0x11
0x38da…38f3 at0012 = ╱ed╱ ( ╱ // 0x38ec @0x12
0x38da…38f3 at0013 = ╱32╱2╱ // 0x38ed @0x13
0x38da…38f3 at0014 = ╱f20200╱ // 0x38ee @0x14
0x38da…38f3 at0017 = ╱ee╱ ) ╱ // 0x38f1 @0x17
0x38da…38f3 at0018 = EOL // 0x38f2 @0x18
0x38da…38f3 }
0x38f3…38f9 cee7 03150 ENDIF
0x38f3…38f9 LineComal80 {
0x38f3…38f9 ptr = 0xcee7 // 0x38f3 @0x0
0x38f3…38f9 lno = 0x0c4e // 0x38f5 @0x2
0x38f3…38f9 at0004 = ╱9c╱ ENDIF ╱ // 0x38f7 @0x4
0x38f3…38f9 at0005 = EOL // 0x38f8 @0x5
0x38f3…38f9 }
0x38f9…394c cf3a 03160 PRINT TAB ( 18 ) ; "BALANCE" ; TAB ( 42 ) ; CHR$ ( TOT ( 1 ) , 9 , 2 ) ; "…" ; CHR$ ( TOT ( 1 ) , 9 , 2 )
0x38f9…394c LineComal80 {
0x38f9…394c ptr = 0xcf3a // 0x38f9 @0x0
0x38f9…394c lno = 0x0c58 // 0x38fb @0x2
0x38f9…394c at0004 = ╱92╱ PRINT ╱ // 0x38fd @0x4
0x38f9…394c at0005 = ╱d2╱ TAB ╱ // 0x38fe @0x5
0x38f9…394c at0006 = ╱ed╱ ( ╱ // 0x38ff @0x6
0x38f9…394c at0007 = ╱31╱1╱ // 0x3900 @0x7
0x38f9…394c at0008 = ╱38╱8╱ // 0x3901 @0x8
0x38f9…394c at0009 = ╱f21200╱ // 0x3902 @0x9
0x38f9…394c at000c = ╱ee╱ ) ╱ // 0x3905 @0xc
0x38f9…394c at000d = ╱ea╱ ; ╱ // 0x3906 @0xd
0x38f9…394c at000e = ╱22╱"╱ // 0x3907 @0xe
0x38f9…394c at000f = ╱42╱B╱ // 0x3908 @0xf
0x38f9…394c at0010 = ╱41╱A╱ // 0x3909 @0x10
0x38f9…394c at0011 = ╱4c╱L╱ // 0x390a @0x11
0x38f9…394c at0012 = ╱41╱A╱ // 0x390b @0x12
0x38f9…394c at0013 = ╱4e╱N╱ // 0x390c @0x13
0x38f9…394c at0014 = ╱43╱C╱ // 0x390d @0x14
0x38f9…394c at0015 = ╱45╱E╱ // 0x390e @0x15
0x38f9…394c at0016 = ╱22╱"╱ // 0x390f @0x16
0x38f9…394c at0017 = ╱ea╱ ; ╱ // 0x3910 @0x17
0x38f9…394c at0018 = ╱d2╱ TAB ╱ // 0x3911 @0x18
0x38f9…394c at0019 = ╱ed╱ ( ╱ // 0x3912 @0x19
0x38f9…394c at001a = ╱34╱4╱ // 0x3913 @0x1a
0x38f9…394c at001b = ╱32╱2╱ // 0x3914 @0x1b
0x38f9…394c at001c = ╱f22a00╱ // 0x3915 @0x1c
0x38f9…394c at001f = ╱ee╱ ) ╱ // 0x3918 @0x1f
0x38f9…394c at0020 = ╱ea╱ ; ╱ // 0x3919 @0x20
0x38f9…394c at0021 = ╱d0╱ CHR$ ╱ // 0x391a @0x21
0x38f9…394c at0022 = ╱ed╱ ( ╱ // 0x391b @0x22
0x38f9…394c at0023 = ╱54╱T╱ // 0x391c @0x23
0x38f9…394c at0024 = ╱4f╱O╱ // 0x391d @0x24
0x38f9…394c at0025 = ╱54╱T╱ // 0x391e @0x25
0x38f9…394c at0026 = ╱ed╱ ( ╱ // 0x391f @0x26
0x38f9…394c at0027 = ╱31╱1╱ // 0x3920 @0x27
0x38f9…394c at0028 = ╱f20100╱ // 0x3921 @0x28
0x38f9…394c at002b = ╱ee╱ ) ╱ // 0x3924 @0x2b
0x38f9…394c at002c = ╱ec╱ , ╱ // 0x3925 @0x2c
0x38f9…394c at002d = ╱39╱9╱ // 0x3926 @0x2d
0x38f9…394c at002e = ╱f20900╱ // 0x3927 @0x2e
0x38f9…394c at0031 = ╱ec╱ , ╱ // 0x392a @0x31
0x38f9…394c at0032 = ╱32╱2╱ // 0x392b @0x32
0x38f9…394c at0033 = ╱f20200╱ // 0x392c @0x33
0x38f9…394c at0036 = ╱ee╱ ) ╱ // 0x392f @0x36
0x38f9…394c at0037 = ╱ea╱ ; ╱ // 0x3930 @0x37
0x38f9…394c at0038 = ╱22╱"╱ // 0x3931 @0x38
0x38f9…394c at0039 = ╱20╱…╱ // 0x3932 @0x39
0x38f9…394c at003a = ╱22╱"╱ // 0x3933 @0x3a
0x38f9…394c at003b = ╱ea╱ ; ╱ // 0x3934 @0x3b
0x38f9…394c at003c = ╱d0╱ CHR$ ╱ // 0x3935 @0x3c
0x38f9…394c at003d = ╱ed╱ ( ╱ // 0x3936 @0x3d
0x38f9…394c at003e = ╱54╱T╱ // 0x3937 @0x3e
0x38f9…394c at003f = ╱4f╱O╱ // 0x3938 @0x3f
0x38f9…394c at0040 = ╱54╱T╱ // 0x3939 @0x40
0x38f9…394c at0041 = ╱ed╱ ( ╱ // 0x393a @0x41
0x38f9…394c at0042 = ╱31╱1╱ // 0x393b @0x42
0x38f9…394c at0043 = ╱f20100╱ // 0x393c @0x43
0x38f9…394c at0046 = ╱ee╱ ) ╱ // 0x393f @0x46
0x38f9…394c at0047 = ╱ec╱ , ╱ // 0x3940 @0x47
0x38f9…394c at0048 = ╱39╱9╱ // 0x3941 @0x48
0x38f9…394c at0049 = ╱f20900╱ // 0x3942 @0x49
0x38f9…394c at004c = ╱ec╱ , ╱ // 0x3945 @0x4c
0x38f9…394c at004d = ╱32╱2╱ // 0x3946 @0x4d
0x38f9…394c at004e = ╱f20200╱ // 0x3947 @0x4e
0x38f9…394c at0051 = ╱ee╱ ) ╱ // 0x394a @0x51
0x38f9…394c at0052 = EOL // 0x394b @0x52
0x38f9…394c }
0x394c…3960 cf4e 03070 IF UT_WAY $ = "P" THEN
0x394c…3960 LineComal80 {
0x394c…3960 ptr = 0xcf4e // 0x394c @0x0
0x394c…3960 lno = 0x0bfe // 0x394e @0x2
0x394c…3960 at0004 = ╱9b354f╱ IF ╱ // 0x3950 @0x4
0x394c…3960 at0007 = ╱55╱U╱ // 0x3953 @0x7
0x394c…3960 at0008 = ╱54╱T╱ // 0x3954 @0x8
0x394c…3960 at0009 = ╱5f╱_╱ // 0x3955 @0x9
0x394c…3960 at000a = ╱57╱W╱ // 0x3956 @0xa
0x394c…3960 at000b = ╱41╱A╱ // 0x3957 @0xb
0x394c…3960 at000c = ╱59╱Y╱ // 0x3958 @0xc
0x394c…3960 at000d = ╱ef╱ $ ╱ // 0x3959 @0xd
0x394c…3960 at000e = ╱df╱ = ╱ // 0x395a @0xe
0x394c…3960 at000f = ╱22╱"╱ // 0x395b @0xf
0x394c…3960 at0010 = ╱50╱P╱ // 0x395c @0x10
0x394c…3960 at0011 = ╱22╱"╱ // 0x395d @0x11
0x394c…3960 at0012 = ╱b5╱ THEN ╱ // 0x395e @0x12
0x394c…3960 at0013 = EOL // 0x395f @0x13
0x394c…3960 }
0x3960…3966 d19e 03080 PRINT
0x3960…3966 LineComal80 {
0x3960…3966 ptr = 0xd19e // 0x3960 @0x0
0x3960…3966 lno = 0x0c08 // 0x3962 @0x2
0x3960…3966 at0004 = ╱92╱ PRINT ╱ // 0x3964 @0x4
0x3960…3966 at0005 = EOL // 0x3965 @0x5
0x3960…3966 }
0x3966…396c cf5a 03100 PRINT
0x3966…396c LineComal80 {
0x3966…396c ptr = 0xcf5a // 0x3966 @0x0
0x3966…396c lno = 0x0c1c // 0x3968 @0x2
0x3966…396c at0004 = ╱92╱ PRINT ╱ // 0x396a @0x4
0x3966…396c at0005 = EOL // 0x396b @0x5
0x3966…396c }
0x396c…3972 cf60 03110 ENDIF
0x396c…3972 LineComal80 {
0x396c…3972 ptr = 0xcf60 // 0x396c @0x0
0x396c…3972 lno = 0x0c26 // 0x396e @0x2
0x396c…3972 at0004 = ╱9c╱ ENDIF ╱ // 0x3970 @0x4
0x396c…3972 at0005 = EOL // 0x3971 @0x5
0x396c…3972 }
0x3972…397e cf6c 03120 ENDPROC AFSLUT
0x3972…397e LineComal80 {
0x3972…397e ptr = 0xcf6c // 0x3972 @0x0
0x3972…397e lno = 0x0c30 // 0x3974 @0x2
0x3972…397e at0004 = ╱9f╱ ENDPROC ╱ // 0x3976 @0x4
0x3972…397e at0005 = ╱41╱A╱ // 0x3977 @0x5
0x3972…397e at0006 = ╱46╱F╱ // 0x3978 @0x6
0x3972…397e at0007 = ╱53╱S╱ // 0x3979 @0x7
0x3972…397e at0008 = ╱4c╱L╱ // 0x397a @0x8
0x3972…397e at0009 = ╱55╱U╱ // 0x397b @0x9
0x3972…397e at000a = ╱54╱T╱ // 0x397c @0xa
0x3972…397e at000b = EOL // 0x397d @0xb
0x3972…397e }
0x397e…3998 cf86 03130 PROC FIND_KTO ( REF R_KTONR $ )
0x397e…3998 LineComal80 {
0x397e…3998 ptr = 0xcf86 // 0x397e @0x0
0x397e…3998 lno = 0x0c3a // 0x3980 @0x2
0x397e…3998 at0004 = ╱9e36╱ PROC ╱ // 0x3982 @0x4
0x397e…3998 at0006 = ╱46╱F╱ // 0x3984 @0x6
0x397e…3998 at0007 = ╱49╱I╱ // 0x3985 @0x7
0x397e…3998 at0008 = ╱4e╱N╱ // 0x3986 @0x8
0x397e…3998 at0009 = ╱44╱D╱ // 0x3987 @0x9
0x397e…3998 at000a = ╱5f╱_╱ // 0x3988 @0xa
0x397e…3998 at000b = ╱4b╱K╱ // 0x3989 @0xb
0x397e…3998 at000c = ╱54╱T╱ // 0x398a @0xc
0x397e…3998 at000d = ╱4f╱O╱ // 0x398b @0xd
0x397e…3998 at000e = ╱ed╱ ( ╱ // 0x398c @0xe
0x397e…3998 at000f = ╱b6╱ REF ╱ // 0x398d @0xf
0x397e…3998 at0010 = ╱52╱R╱ // 0x398e @0x10
0x397e…3998 at0011 = ╱5f╱_╱ // 0x398f @0x11
0x397e…3998 at0012 = ╱4b╱K╱ // 0x3990 @0x12
0x397e…3998 at0013 = ╱54╱T╱ // 0x3991 @0x13
0x397e…3998 at0014 = ╱4f╱O╱ // 0x3992 @0x14
0x397e…3998 at0015 = ╱4e╱N╱ // 0x3993 @0x15
0x397e…3998 at0016 = ╱52╱R╱ // 0x3994 @0x16
0x397e…3998 at0017 = ╱ef╱ $ ╱ // 0x3995 @0x17
0x397e…3998 at0018 = ╱ee╱ ) ╱ // 0x3996 @0x18
0x397e…3998 at0019 = EOL // 0x3997 @0x19
0x397e…3998 }
0x3998…39a6 cf94 03140 LET OK := FALSE
0x3998…39a6 LineComal80 {
0x3998…39a6 ptr = 0xcf94 // 0x3998 @0x0
0x3998…39a6 lno = 0x0c44 // 0x399a @0x2
0x3998…39a6 at0004 = ╱86╱ LET ╱ // 0x399c @0x4
0x3998…39a6 at0005 = ╱4f╱O╱ // 0x399d @0x5
0x3998…39a6 at0006 = ╱4b╱K╱ // 0x399e @0x6
0x3998…39a6 at0007 = ╱f0╱ := ╱ // 0x399f @0x7
0x3998…39a6 at0008 = ╱46╱F╱ // 0x39a0 @0x8
0x3998…39a6 at0009 = ╱41╱A╱ // 0x39a1 @0x9
0x3998…39a6 at000a = ╱4c╱L╱ // 0x39a2 @0xa
0x3998…39a6 at000b = ╱53╱S╱ // 0x39a3 @0xb
0x3998…39a6 at000c = ╱45╱E╱ // 0x39a4 @0xc
0x3998…39a6 at000d = EOL // 0x39a5 @0xd
0x3998…39a6 }
0x39a6…39ca cfb8 03150 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
0x39a6…39ca LineComal80 {
0x39a6…39ca ptr = 0xcfb8 // 0x39a6 @0x0
0x39a6…39ca lno = 0x0c4e // 0x39a8 @0x2
0x39a6…39ca at0004 = ╱a9╱ GET ╱ // 0x39aa @0x4
0x39a6…39ca at0005 = ╱4b╱K╱ // 0x39ab @0x5
0x39a6…39ca at0006 = ╱54╱T╱ // 0x39ac @0x6
0x39a6…39ca at0007 = ╱4f╱O╱ // 0x39ad @0x7
0x39a6…39ca at0008 = ╱49╱I╱ // 0x39ae @0x8
0x39a6…39ca at0009 = ╱44╱D╱ // 0x39af @0x9
0x39a6…39ca at000a = ╱58╱X╱ // 0x39b0 @0xa
0x39a6…39ca at000b = ╱ef╱ $ ╱ // 0x39b1 @0xb
0x39a6…39ca at000c = ╱ec╱ , ╱ // 0x39b2 @0xc
0x39a6…39ca at000d = ╱31╱1╱ // 0x39b3 @0xd
0x39a6…39ca at000e = ╱f20100╱ // 0x39b4 @0xe
0x39a6…39ca at0011 = ╱f1╱ : ╱ // 0x39b7 @0x11
0x39a6…39ca at0012 = ╱49╱I╱ // 0x39b8 @0x12
0x39a6…39ca at0013 = ╱5f╱_╱ // 0x39b9 @0x13
0x39a6…39ca at0014 = ╱48╱H╱ // 0x39ba @0x14
0x39a6…39ca at0015 = ╱5c╱\╱ // 0x39bb @0x15
0x39a6…39ca at0016 = ╱4a╱J╱ // 0x39bc @0x16
0x39a6…39ca at0017 = ╱52╱R╱ // 0x39bd @0x17
0x39a6…39ca at0018 = ╱45╱E╱ // 0x39be @0x18
0x39a6…39ca at0019 = ╱43╱C╱ // 0x39bf @0x19
0x39a6…39ca at001a = ╱ec╱ , ╱ // 0x39c0 @0x1a
0x39a6…39ca at001b = ╱49╱I╱ // 0x39c1 @0x1b
0x39a6…39ca at001c = ╱5f╱_╱ // 0x39c2 @0x1c
0x39a6…39ca at001d = ╱4d╱M╱ // 0x39c3 @0x1d
0x39a6…39ca at001e = ╱41╱A╱ // 0x39c4 @0x1e
0x39a6…39ca at001f = ╱58╱X╱ // 0x39c5 @0x1f
0x39a6…39ca at0020 = ╱52╱R╱ // 0x39c6 @0x20
0x39a6…39ca at0021 = ╱45╱E╱ // 0x39c7 @0x21
0x39a6…39ca at0022 = ╱43╱C╱ // 0x39c8 @0x22
0x39a6…39ca at0023 = EOL // 0x39c9 @0x23
0x39a6…39ca }
0x39ca…39ef cfdd 03160 LET LOW := 1 ; HIGH := I_H\JREC ; POS := 2
0x39ca…39ef LineComal80 {
0x39ca…39ef ptr = 0xcfdd // 0x39ca @0x0
0x39ca…39ef lno = 0x0c58 // 0x39cc @0x2
0x39ca…39ef at0004 = ╱86╱ LET ╱ // 0x39ce @0x4
0x39ca…39ef at0005 = ╱4c╱L╱ // 0x39cf @0x5
0x39ca…39ef at0006 = ╱4f╱O╱ // 0x39d0 @0x6
0x39ca…39ef at0007 = ╱57╱W╱ // 0x39d1 @0x7
0x39ca…39ef at0008 = ╱f0╱ := ╱ // 0x39d2 @0x8
0x39ca…39ef at0009 = ╱31╱1╱ // 0x39d3 @0x9
0x39ca…39ef at000a = ╱f20100╱ // 0x39d4 @0xa
0x39ca…39ef at000d = ╱ea╱ ; ╱ // 0x39d7 @0xd
0x39ca…39ef at000e = ╱48╱H╱ // 0x39d8 @0xe
0x39ca…39ef at000f = ╱49╱I╱ // 0x39d9 @0xf
0x39ca…39ef at0010 = ╱47╱G╱ // 0x39da @0x10
0x39ca…39ef at0011 = ╱48╱H╱ // 0x39db @0x11
0x39ca…39ef at0012 = ╱f0╱ := ╱ // 0x39dc @0x12
0x39ca…39ef at0013 = ╱49╱I╱ // 0x39dd @0x13
0x39ca…39ef at0014 = ╱5f╱_╱ // 0x39de @0x14
0x39ca…39ef at0015 = ╱48╱H╱ // 0x39df @0x15
0x39ca…39ef at0016 = ╱5c╱\╱ // 0x39e0 @0x16
0x39ca…39ef at0017 = ╱4a╱J╱ // 0x39e1 @0x17
0x39ca…39ef at0018 = ╱52╱R╱ // 0x39e2 @0x18
0x39ca…39ef at0019 = ╱45╱E╱ // 0x39e3 @0x19
0x39ca…39ef at001a = ╱43╱C╱ // 0x39e4 @0x1a
0x39ca…39ef at001b = ╱ea╱ ; ╱ // 0x39e5 @0x1b
0x39ca…39ef at001c = ╱50╱P╱ // 0x39e6 @0x1c
0x39ca…39ef at001d = ╱4f╱O╱ // 0x39e7 @0x1d
0x39ca…39ef at001e = ╱53╱S╱ // 0x39e8 @0x1e
0x39ca…39ef at001f = ╱f0╱ := ╱ // 0x39e9 @0x1f
0x39ca…39ef at0020 = ╱32╱2╱ // 0x39ea @0x20
0x39ca…39ef at0021 = ╱f20200╱ // 0x39eb @0x21
0x39ca…39ef at0024 = EOL // 0x39ee @0x24
0x39ca…39ef }
0x39ef…3a00 cfee 03170 IF IGH > 1 THEN
0x39ef…3a00 LineComal80 {
0x39ef…3a00 ptr = 0xcfee // 0x39ef @0x0
0x39ef…3a00 lno = 0x0c62 // 0x39f1 @0x2
0x39ef…3a00 at0004 = ╱9b3748╱ IF ╱ // 0x39f3 @0x4
0x39ef…3a00 at0007 = ╱49╱I╱ // 0x39f6 @0x7
0x39ef…3a00 at0008 = ╱47╱G╱ // 0x39f7 @0x8
0x39ef…3a00 at0009 = ╱48╱H╱ // 0x39f8 @0x9
0x39ef…3a00 at000a = ╱e1╱ > ╱ // 0x39f9 @0xa
0x39ef…3a00 at000b = ╱31╱1╱ // 0x39fa @0xb
0x39ef…3a00 at000c = ╱f20100╱ // 0x39fb @0xc
0x39ef…3a00 at000f = ╱b5╱ THEN ╱ // 0x39fe @0xf
0x39ef…3a00 at0010 = EOL // 0x39ff @0x10
0x39ef…3a00 }
0x3a00…3a07 cff5 03180 REPEAT
0x3a00…3a07 LineComal80 {
0x3a00…3a07 ptr = 0xcff5 // 0x3a00 @0x0
0x3a00…3a07 lno = 0x0c6c // 0x3a02 @0x2
0x3a00…3a07 at0004 = ╱9738╱ REPEAT ╱ // 0x3a04 @0x4
0x3a00…3a07 at0006 = EOL // 0x3a06 @0x6
0x3a00…3a07 }
0x3a07…3a33 d021 03190 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
0x3a07…3a33 LineComal80 {
0x3a07…3a33 ptr = 0xd021 // 0x3a07 @0x0
0x3a07…3a33 lno = 0x0c76 // 0x3a09 @0x2
0x3a07…3a33 at0004 = ╱86╱ LET ╱ // 0x3a0b @0x4
0x3a07…3a33 at0005 = ╱50╱P╱ // 0x3a0c @0x5
0x3a07…3a33 at0006 = ╱4f╱O╱ // 0x3a0d @0x6
0x3a07…3a33 at0007 = ╱53╱S╱ // 0x3a0e @0x7
0x3a07…3a33 at0008 = ╱f0╱ := ╱ // 0x3a0f @0x8
0x3a07…3a33 at0009 = ╱c6╱ INT ╱ // 0x3a10 @0x9
0x3a07…3a33 at000a = ╱ed╱ ( ╱ // 0x3a11 @0xa
0x3a07…3a33 at000b = ╱ed╱ ( ╱ // 0x3a12 @0xb
0x3a07…3a33 at000c = ╱48╱H╱ // 0x3a13 @0xc
0x3a07…3a33 at000d = ╱49╱I╱ // 0x3a14 @0xd
0x3a07…3a33 at000e = ╱47╱G╱ // 0x3a15 @0xe
0x3a07…3a33 at000f = ╱48╱H╱ // 0x3a16 @0xf
0x3a07…3a33 at0010 = ╱e6╱ - ╱ // 0x3a17 @0x10
0x3a07…3a33 at0011 = ╱4c╱L╱ // 0x3a18 @0x11
0x3a07…3a33 at0012 = ╱4f╱O╱ // 0x3a19 @0x12
0x3a07…3a33 at0013 = ╱57╱W╱ // 0x3a1a @0x13
0x3a07…3a33 at0014 = ╱ee╱ ) ╱ // 0x3a1b @0x14
0x3a07…3a33 at0015 = ╱e8╱ / ╱ // 0x3a1c @0x15
0x3a07…3a33 at0016 = ╱32╱2╱ // 0x3a1d @0x16
0x3a07…3a33 at0017 = ╱f20200╱ // 0x3a1e @0x17
0x3a07…3a33 at001a = ╱e5╱ + ╱ // 0x3a21 @0x1a
0x3a07…3a33 at001b = ╱2e╱.╱ // 0x3a22 @0x1b
0x3a07…3a33 at001c = ╱35╱5╱ // 0x3a23 @0x1c
0x3a07…3a33 at001d = ╱f88000000000000005╱ // 0x3a24 @0x1d
0x3a07…3a33 at0026 = ╱ee╱ ) ╱ // 0x3a2d @0x26
0x3a07…3a33 at0027 = ╱e5╱ + ╱ // 0x3a2e @0x27
0x3a07…3a33 at0028 = ╱4c╱L╱ // 0x3a2f @0x28
0x3a07…3a33 at0029 = ╱4f╱O╱ // 0x3a30 @0x29
0x3a07…3a33 at002a = ╱57╱W╱ // 0x3a31 @0x2a
0x3a07…3a33 at002b = EOL // 0x3a32 @0x2b
0x3a07…3a33 }
0x3a33…3a51 d03f 03200 GET KTOIDX $ , POS : KTONR $ , RECNR
0x3a33…3a51 LineComal80 {
0x3a33…3a51 ptr = 0xd03f // 0x3a33 @0x0
0x3a33…3a51 lno = 0x0c80 // 0x3a35 @0x2
0x3a33…3a51 at0004 = ╱a9╱ GET ╱ // 0x3a37 @0x4
0x3a33…3a51 at0005 = ╱4b╱K╱ // 0x3a38 @0x5
0x3a33…3a51 at0006 = ╱54╱T╱ // 0x3a39 @0x6
0x3a33…3a51 at0007 = ╱4f╱O╱ // 0x3a3a @0x7
0x3a33…3a51 at0008 = ╱49╱I╱ // 0x3a3b @0x8
0x3a33…3a51 at0009 = ╱44╱D╱ // 0x3a3c @0x9
0x3a33…3a51 at000a = ╱58╱X╱ // 0x3a3d @0xa
0x3a33…3a51 at000b = ╱ef╱ $ ╱ // 0x3a3e @0xb
0x3a33…3a51 at000c = ╱ec╱ , ╱ // 0x3a3f @0xc
0x3a33…3a51 at000d = ╱50╱P╱ // 0x3a40 @0xd
0x3a33…3a51 at000e = ╱4f╱O╱ // 0x3a41 @0xe
0x3a33…3a51 at000f = ╱53╱S╱ // 0x3a42 @0xf
0x3a33…3a51 at0010 = ╱f1╱ : ╱ // 0x3a43 @0x10
0x3a33…3a51 at0011 = ╱4b╱K╱ // 0x3a44 @0x11
0x3a33…3a51 at0012 = ╱54╱T╱ // 0x3a45 @0x12
0x3a33…3a51 at0013 = ╱4f╱O╱ // 0x3a46 @0x13
0x3a33…3a51 at0014 = ╱4e╱N╱ // 0x3a47 @0x14
0x3a33…3a51 at0015 = ╱52╱R╱ // 0x3a48 @0x15
0x3a33…3a51 at0016 = ╱ef╱ $ ╱ // 0x3a49 @0x16
0x3a33…3a51 at0017 = ╱ec╱ , ╱ // 0x3a4a @0x17
0x3a33…3a51 at0018 = ╱52╱R╱ // 0x3a4b @0x18
0x3a33…3a51 at0019 = ╱45╱E╱ // 0x3a4c @0x19
0x3a33…3a51 at001a = ╱43╱C╱ // 0x3a4d @0x1a
0x3a33…3a51 at001b = ╱4e╱N╱ // 0x3a4e @0x1b
0x3a33…3a51 at001c = ╱52╱R╱ // 0x3a4f @0x1c
0x3a33…3a51 at001d = EOL // 0x3a50 @0x1d
0x3a33…3a51 }
0x3a51…3a68 b786 03260 IF TONR $ > R_KTONR $ THEN
0x3a51…3a68 LineComal80 {
0x3a51…3a68 ptr = 0xb786 // 0x3a51 @0x0
0x3a51…3a68 lno = 0x0cbc // 0x3a53 @0x2
0x3a51…3a68 at0004 = ╱9b394b╱ IF ╱ // 0x3a55 @0x4
0x3a51…3a68 at0007 = ╱54╱T╱ // 0x3a58 @0x7
0x3a51…3a68 at0008 = ╱4f╱O╱ // 0x3a59 @0x8
0x3a51…3a68 at0009 = ╱4e╱N╱ // 0x3a5a @0x9
0x3a51…3a68 at000a = ╱52╱R╱ // 0x3a5b @0xa
0x3a51…3a68 at000b = ╱ef╱ $ ╱ // 0x3a5c @0xb
0x3a51…3a68 at000c = ╱e1╱ > ╱ // 0x3a5d @0xc
0x3a51…3a68 at000d = ╱52╱R╱ // 0x3a5e @0xd
0x3a51…3a68 at000e = ╱5f╱_╱ // 0x3a5f @0xe
0x3a51…3a68 at000f = ╱4b╱K╱ // 0x3a60 @0xf
0x3a51…3a68 at0010 = ╱54╱T╱ // 0x3a61 @0x10
0x3a51…3a68 at0011 = ╱4f╱O╱ // 0x3a62 @0x11
0x3a51…3a68 at0012 = ╱4e╱N╱ // 0x3a63 @0x12
0x3a51…3a68 at0013 = ╱52╱R╱ // 0x3a64 @0x13
0x3a51…3a68 at0014 = ╱ef╱ $ ╱ // 0x3a65 @0x14
0x3a51…3a68 at0015 = ╱b5╱ THEN ╱ // 0x3a66 @0x15
0x3a51…3a68 at0016 = EOL // 0x3a67 @0x16
0x3a51…3a68 }
0x3a68…3acc 3239 12594 38 ╱00╱ ╱00╱ ╱06╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ …… ╱00╱ ╱00╱ ╱05╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ODLAS…LEMMAG ╱00╱ ╱00╱ ╱14╱ ╱00╱ trokotnok…fa…gninvirksdU ╱00╱ ╱00╱ ╱18╱ ╱00╱ d ENDFILE NEXT ╱08╱ EXEC PRINTRES ( "papir" , 16 )
0x3a68…3acc LineComal80 {
0x3a68…3acc ptr = 0x3239 // 0x3a68 @0x0
0x3a68…3acc lno = 0x3132 // 0x3a6a @0x2
0x3a68…3acc at0004 = ╱33╱3╱ // 0x3a6c @0x4
0x3a68…3acc at0005 = ╱38╱8╱ // 0x3a6d @0x5
0x3a68…3acc at0006 = ╱00╱ // 0x3a6e @0x6
0x3a68…3acc at0007 = ╱00╱ // 0x3a6f @0x7
0x3a68…3acc at0008 = ╱06╱ // 0x3a70 @0x8
0x3a68…3acc at0009 = ╱00╱ // 0x3a71 @0x9
0x3a68…3acc at000a = ╱1f╱ // 0x3a72 @0xa
0x3a68…3acc at000b = ╱1f╱ // 0x3a73 @0xb
0x3a68…3acc at000c = ╱1f╱ // 0x3a74 @0xc
0x3a68…3acc at000d = ╱20╱…╱ // 0x3a75 @0xd
0x3a68…3acc at000e = ╱20╱…╱ // 0x3a76 @0xe
0x3a68…3acc at000f = ╱00╱ // 0x3a77 @0xf
0x3a68…3acc at0010 = ╱00╱ // 0x3a78 @0x10
0x3a68…3acc at0011 = ╱05╱ // 0x3a79 @0x11
0x3a68…3acc at0012 = ╱00╱ // 0x3a7a @0x12
0x3a68…3acc at0013 = ╱1f╱ // 0x3a7b @0x13
0x3a68…3acc at0014 = ╱1f╱ // 0x3a7c @0x14
0x3a68…3acc at0015 = ╱1f╱ // 0x3a7d @0x15
0x3a68…3acc at0016 = ╱1f╱ // 0x3a7e @0x16
0x3a68…3acc at0017 = ╱1f╱ // 0x3a7f @0x17
0x3a68…3acc at0018 = ╱1f╱ // 0x3a80 @0x18
0x3a68…3acc at0019 = ╱1f╱ // 0x3a81 @0x19
0x3a68…3acc at001a = ╱1f╱ // 0x3a82 @0x1a
0x3a68…3acc at001b = ╱4f╱O╱ // 0x3a83 @0x1b
0x3a68…3acc at001c = ╱44╱D╱ // 0x3a84 @0x1c
0x3a68…3acc at001d = ╱4c╱L╱ // 0x3a85 @0x1d
0x3a68…3acc at001e = ╱41╱A╱ // 0x3a86 @0x1e
0x3a68…3acc at001f = ╱53╱S╱ // 0x3a87 @0x1f
0x3a68…3acc at0020 = ╱20╱…╱ // 0x3a88 @0x20
0x3a68…3acc at0021 = ╱4c╱L╱ // 0x3a89 @0x21
0x3a68…3acc at0022 = ╱45╱E╱ // 0x3a8a @0x22
0x3a68…3acc at0023 = ╱4d╱M╱ // 0x3a8b @0x23
0x3a68…3acc at0024 = ╱4d╱M╱ // 0x3a8c @0x24
0x3a68…3acc at0025 = ╱41╱A╱ // 0x3a8d @0x25
0x3a68…3acc at0026 = ╱47╱G╱ // 0x3a8e @0x26
0x3a68…3acc at0027 = ╱00╱ // 0x3a8f @0x27
0x3a68…3acc at0028 = ╱00╱ // 0x3a90 @0x28
0x3a68…3acc at0029 = ╱14╱ // 0x3a91 @0x29
0x3a68…3acc at002a = ╱00╱ // 0x3a92 @0x2a
0x3a68…3acc at002b = ╱74╱t╱ // 0x3a93 @0x2b
0x3a68…3acc at002c = ╱72╱r╱ // 0x3a94 @0x2c
0x3a68…3acc at002d = ╱6f╱o╱ // 0x3a95 @0x2d
0x3a68…3acc at002e = ╱6b╱k╱ // 0x3a96 @0x2e
0x3a68…3acc at002f = ╱6f╱o╱ // 0x3a97 @0x2f
0x3a68…3acc at0030 = ╱74╱t╱ // 0x3a98 @0x30
0x3a68…3acc at0031 = ╱6e╱n╱ // 0x3a99 @0x31
0x3a68…3acc at0032 = ╱6f╱o╱ // 0x3a9a @0x32
0x3a68…3acc at0033 = ╱6b╱k╱ // 0x3a9b @0x33
0x3a68…3acc at0034 = ╱20╱…╱ // 0x3a9c @0x34
0x3a68…3acc at0035 = ╱66╱f╱ // 0x3a9d @0x35
0x3a68…3acc at0036 = ╱61╱a╱ // 0x3a9e @0x36
0x3a68…3acc at0037 = ╱20╱…╱ // 0x3a9f @0x37
0x3a68…3acc at0038 = ╱67╱g╱ // 0x3aa0 @0x38
0x3a68…3acc at0039 = ╱6e╱n╱ // 0x3aa1 @0x39
0x3a68…3acc at003a = ╱69╱i╱ // 0x3aa2 @0x3a
0x3a68…3acc at003b = ╱6e╱n╱ // 0x3aa3 @0x3b
0x3a68…3acc at003c = ╱76╱v╱ // 0x3aa4 @0x3c
0x3a68…3acc at003d = ╱69╱i╱ // 0x3aa5 @0x3d
0x3a68…3acc at003e = ╱72╱r╱ // 0x3aa6 @0x3e
0x3a68…3acc at003f = ╱6b╱k╱ // 0x3aa7 @0x3f
0x3a68…3acc at0040 = ╱73╱s╱ // 0x3aa8 @0x40
0x3a68…3acc at0041 = ╱64╱d╱ // 0x3aa9 @0x41
0x3a68…3acc at0042 = ╱55╱U╱ // 0x3aaa @0x42
0x3a68…3acc at0043 = ╱00╱ // 0x3aab @0x43
0x3a68…3acc at0044 = ╱00╱ // 0x3aac @0x44
0x3a68…3acc at0045 = ╱18╱ // 0x3aad @0x45
0x3a68…3acc at0046 = ╱00╱ // 0x3aae @0x46
0x3a68…3acc at0047 = ╱64╱d╱ // 0x3aaf @0x47
0x3a68…3acc at0048 = ╱ab╱ ENDFILE ╱ // 0x3ab0 @0x48
0x3a68…3acc at0049 = ╱84╱ NEXT ╱ // 0x3ab1 @0x49
0x3a68…3acc at004a = ╱08╱ // 0x3ab2 @0x4a
0x3a68…3acc at004b = ╱9d╱ EXEC ╱ // 0x3ab3 @0x4b
0x3a68…3acc at004c = ╱50╱P╱ // 0x3ab4 @0x4c
0x3a68…3acc at004d = ╱52╱R╱ // 0x3ab5 @0x4d
0x3a68…3acc at004e = ╱49╱I╱ // 0x3ab6 @0x4e
0x3a68…3acc at004f = ╱4e╱N╱ // 0x3ab7 @0x4f
0x3a68…3acc at0050 = ╱54╱T╱ // 0x3ab8 @0x50
0x3a68…3acc at0051 = ╱52╱R╱ // 0x3ab9 @0x51
0x3a68…3acc at0052 = ╱45╱E╱ // 0x3aba @0x52
0x3a68…3acc at0053 = ╱53╱S╱ // 0x3abb @0x53
0x3a68…3acc at0054 = ╱ed╱ ( ╱ // 0x3abc @0x54
0x3a68…3acc at0055 = ╱22╱"╱ // 0x3abd @0x55
0x3a68…3acc at0056 = ╱70╱p╱ // 0x3abe @0x56
0x3a68…3acc at0057 = ╱61╱a╱ // 0x3abf @0x57
0x3a68…3acc at0058 = ╱70╱p╱ // 0x3ac0 @0x58
0x3a68…3acc at0059 = ╱69╱i╱ // 0x3ac1 @0x59
0x3a68…3acc at005a = ╱72╱r╱ // 0x3ac2 @0x5a
0x3a68…3acc at005b = ╱22╱"╱ // 0x3ac3 @0x5b
0x3a68…3acc at005c = ╱ec╱ , ╱ // 0x3ac4 @0x5c
0x3a68…3acc at005d = ╱31╱1╱ // 0x3ac5 @0x5d
0x3a68…3acc at005e = ╱36╱6╱ // 0x3ac6 @0x5e
0x3a68…3acc at005f = ╱f21000╱ // 0x3ac7 @0x5f
0x3a68…3acc at0062 = ╱ee╱ ) ╱ // 0x3aca @0x62
0x3a68…3acc at0063 = EOL // 0x3acb @0x63
0x3a68…3acc }
0x3acc…3ad8 c816 02600 EXEC NYSIDE
0x3acc…3ad8 LineComal80 {
0x3acc…3ad8 ptr = 0xc816 // 0x3acc @0x0
0x3acc…3ad8 lno = 0x0a28 // 0x3ace @0x2
0x3acc…3ad8 at0004 = ╱9d╱ EXEC ╱ // 0x3ad0 @0x4
0x3acc…3ad8 at0005 = ╱4e╱N╱ // 0x3ad1 @0x5
0x3acc…3ad8 at0006 = ╱59╱Y╱ // 0x3ad2 @0x6
0x3acc…3ad8 at0007 = ╱53╱S╱ // 0x3ad3 @0x7
0x3acc…3ad8 at0008 = ╱49╱I╱ // 0x3ad4 @0x8
0x3acc…3ad8 at0009 = ╱44╱D╱ // 0x3ad5 @0x9
0x3acc…3ad8 at000a = ╱45╱E╱ // 0x3ad6 @0xa
0x3acc…3ad8 at000b = EOL // 0x3ad7 @0xb
0x3acc…3ad8 }
0x3ad8…3aee c810 02580 LET LIN_T := LIN_T + 1
0x3ad8…3aee LineComal80 {
0x3ad8…3aee ptr = 0xc810 // 0x3ad8 @0x0
0x3ad8…3aee lno = 0x0a14 // 0x3ada @0x2
0x3ad8…3aee at0004 = ╱86╱ LET ╱ // 0x3adc @0x4
0x3ad8…3aee at0005 = ╱4c╱L╱ // 0x3add @0x5
0x3ad8…3aee at0006 = ╱49╱I╱ // 0x3ade @0x6
0x3ad8…3aee at0007 = ╱4e╱N╱ // 0x3adf @0x7
0x3ad8…3aee at0008 = ╱5f╱_╱ // 0x3ae0 @0x8
0x3ad8…3aee at0009 = ╱54╱T╱ // 0x3ae1 @0x9
0x3ad8…3aee at000a = ╱f0╱ := ╱ // 0x3ae2 @0xa
0x3ad8…3aee at000b = ╱4c╱L╱ // 0x3ae3 @0xb
0x3ad8…3aee at000c = ╱49╱I╱ // 0x3ae4 @0xc
0x3ad8…3aee at000d = ╱4e╱N╱ // 0x3ae5 @0xd
0x3ad8…3aee at000e = ╱5f╱_╱ // 0x3ae6 @0xe
0x3ad8…3aee at000f = ╱54╱T╱ // 0x3ae7 @0xf
0x3ad8…3aee at0010 = ╱e5╱ + ╱ // 0x3ae8 @0x10
0x3ad8…3aee at0011 = ╱31╱1╱ // 0x3ae9 @0x11
0x3ad8…3aee at0012 = ╱f20100╱ // 0x3aea @0x12
0x3ad8…3aee at0015 = EOL // 0x3aed @0x15
0x3ad8…3aee }
0x3aee…3b06 cd66 03040 LET LIN_T := MAX_LIN - 3
0x3aee…3b06 LineComal80 {
0x3aee…3b06 ptr = 0xcd66 // 0x3aee @0x0
0x3aee…3b06 lno = 0x0be0 // 0x3af0 @0x2
0x3aee…3b06 at0004 = ╱86╱ LET ╱ // 0x3af2 @0x4
0x3aee…3b06 at0005 = ╱4c╱L╱ // 0x3af3 @0x5
0x3aee…3b06 at0006 = ╱49╱I╱ // 0x3af4 @0x6
0x3aee…3b06 at0007 = ╱4e╱N╱ // 0x3af5 @0x7
0x3aee…3b06 at0008 = ╱5f╱_╱ // 0x3af6 @0x8
0x3aee…3b06 at0009 = ╱54╱T╱ // 0x3af7 @0x9
0x3aee…3b06 at000a = ╱f0╱ := ╱ // 0x3af8 @0xa
0x3aee…3b06 at000b = ╱4d╱M╱ // 0x3af9 @0xb
0x3aee…3b06 at000c = ╱41╱A╱ // 0x3afa @0xc
0x3aee…3b06 at000d = ╱58╱X╱ // 0x3afb @0xd
0x3aee…3b06 at000e = ╱5f╱_╱ // 0x3afc @0xe
0x3aee…3b06 at000f = ╱4c╱L╱ // 0x3afd @0xf
0x3aee…3b06 at0010 = ╱49╱I╱ // 0x3afe @0x10
0x3aee…3b06 at0011 = ╱4e╱N╱ // 0x3aff @0x11
0x3aee…3b06 at0012 = ╱e6╱ - ╱ // 0x3b00 @0x12
0x3aee…3b06 at0013 = ╱33╱3╱ // 0x3b01 @0x13
0x3aee…3b06 at0014 = ╱f20300╱ // 0x3b02 @0x14
0x3aee…3b06 at0017 = EOL // 0x3b05 @0x17
0x3aee…3b06 }
0x3b06…3b1e 6972 24944 p ╱00╱ ╱00╱ ╱05╱ ╱00╱ ╱0c╱ ╱d1╱ DATA 1 , LINE
0x3b06…3b1e LineComal80 {
0x3b06…3b1e ptr = 0x6972 // 0x3b06 @0x0
0x3b06…3b1e lno = 0x6170 // 0x3b08 @0x2
0x3b06…3b1e at0004 = ╱70╱p╱ // 0x3b0a @0x4
0x3b06…3b1e at0005 = ╱00╱ // 0x3b0b @0x5
0x3b06…3b1e at0006 = ╱00╱ // 0x3b0c @0x6
0x3b06…3b1e at0007 = ╱05╱ // 0x3b0d @0x7
0x3b06…3b1e at0008 = ╱00╱ // 0x3b0e @0x8
0x3b06…3b1e at0009 = ╱0c╱ // 0x3b0f @0x9
0x3b06…3b1e at000a = ╱d1╱ // 0x3b10 @0xa
0x3b06…3b1e at000b = ╱8e0da1╱ DATA ╱ // 0x3b11 @0xb
0x3b06…3b1e at000e = ╱31╱1╱ // 0x3b14 @0xe
0x3b06…3b1e at000f = ╱f20100╱ // 0x3b15 @0xf
0x3b06…3b1e at0012 = ╱ec╱ , ╱ // 0x3b18 @0x12
0x3b06…3b1e at0013 = ╱4c╱L╱ // 0x3b19 @0x13
0x3b06…3b1e at0014 = ╱49╱I╱ // 0x3b1a @0x14
0x3b06…3b1e at0015 = ╱4e╱N╱ // 0x3b1b @0x15
0x3b06…3b1e at0016 = ╱45╱E╱ // 0x3b1c @0x16
0x3b06…3b1e at0017 = EOL // 0x3b1d @0x17
0x3b06…3b1e }
0x3b1e…3b29 b93e 03480 PRINT "<Z>"
0x3b1e…3b29 LineComal80 {
0x3b1e…3b29 ptr = 0xb93e // 0x3b1e @0x0
0x3b1e…3b29 lno = 0x0d98 // 0x3b20 @0x2
0x3b1e…3b29 at0004 = ╱92╱ PRINT ╱ // 0x3b22 @0x4
0x3b1e…3b29 at0005 = ╱22╱"╱ // 0x3b23 @0x5
0x3b1e…3b29 at0006 = ╱3c╱<╱ // 0x3b24 @0x6
0x3b1e…3b29 at0007 = ╱5a╱Z╱ // 0x3b25 @0x7
0x3b1e…3b29 at0008 = ╱3e╱>╱ // 0x3b26 @0x8
0x3b1e…3b29 at0009 = ╱22╱"╱ // 0x3b27 @0x9
0x3b1e…3b29 at000a = EOL // 0x3b28 @0xa
0x3b1e…3b29 }
0x3b29…3b3b aa8a 02080 LET PNUMMER := 0
0x3b29…3b3b LineComal80 {
0x3b29…3b3b ptr = 0xaa8a // 0x3b29 @0x0
0x3b29…3b3b lno = 0x0820 // 0x3b2b @0x2
0x3b29…3b3b at0004 = ╱86╱ LET ╱ // 0x3b2d @0x4
0x3b29…3b3b at0005 = ╱50╱P╱ // 0x3b2e @0x5
0x3b29…3b3b at0006 = ╱4e╱N╱ // 0x3b2f @0x6
0x3b29…3b3b at0007 = ╱55╱U╱ // 0x3b30 @0x7
0x3b29…3b3b at0008 = ╱4d╱M╱ // 0x3b31 @0x8
0x3b29…3b3b at0009 = ╱4d╱M╱ // 0x3b32 @0x9
0x3b29…3b3b at000a = ╱45╱E╱ // 0x3b33 @0xa
0x3b29…3b3b at000b = ╱52╱R╱ // 0x3b34 @0xb
0x3b29…3b3b at000c = ╱f0╱ := ╱ // 0x3b35 @0xc
0x3b29…3b3b at000d = ╱30╱0╱ // 0x3b36 @0xd
0x3b29…3b3b at000e = ╱f20000╱ // 0x3b37 @0xe
0x3b29…3b3b at0011 = EOL // 0x3b3a @0x11
0x3b29…3b3b }
0x3b3b…3b55 c810 02585 LET PNUMMER := PNUMMER + 1
0x3b3b…3b55 LineComal80 {
0x3b3b…3b55 ptr = 0xc810 // 0x3b3b @0x0
0x3b3b…3b55 lno = 0x0a19 // 0x3b3d @0x2
0x3b3b…3b55 at0004 = ╱86╱ LET ╱ // 0x3b3f @0x4
0x3b3b…3b55 at0005 = ╱50╱P╱ // 0x3b40 @0x5
0x3b3b…3b55 at0006 = ╱4e╱N╱ // 0x3b41 @0x6
0x3b3b…3b55 at0007 = ╱55╱U╱ // 0x3b42 @0x7
0x3b3b…3b55 at0008 = ╱4d╱M╱ // 0x3b43 @0x8
0x3b3b…3b55 at0009 = ╱4d╱M╱ // 0x3b44 @0x9
0x3b3b…3b55 at000a = ╱45╱E╱ // 0x3b45 @0xa
0x3b3b…3b55 at000b = ╱52╱R╱ // 0x3b46 @0xb
0x3b3b…3b55 at000c = ╱f0╱ := ╱ // 0x3b47 @0xc
0x3b3b…3b55 at000d = ╱50╱P╱ // 0x3b48 @0xd
0x3b3b…3b55 at000e = ╱4e╱N╱ // 0x3b49 @0xe
0x3b3b…3b55 at000f = ╱55╱U╱ // 0x3b4a @0xf
0x3b3b…3b55 at0010 = ╱4d╱M╱ // 0x3b4b @0x10
0x3b3b…3b55 at0011 = ╱4d╱M╱ // 0x3b4c @0x11
0x3b3b…3b55 at0012 = ╱45╱E╱ // 0x3b4d @0x12
0x3b3b…3b55 at0013 = ╱52╱R╱ // 0x3b4e @0x13
0x3b3b…3b55 at0014 = ╱e5╱ + ╱ // 0x3b4f @0x14
0x3b3b…3b55 at0015 = ╱31╱1╱ // 0x3b50 @0x15
0x3b3b…3b55 at0016 = ╱f20100╱ // 0x3b51 @0x16
0x3b3b…3b55 at0019 = EOL // 0x3b54 @0x19
0x3b3b…3b55 }
0x3b55…3b6f c832 02635 LET PNUMMER := PNUMMER + 1
0x3b55…3b6f LineComal80 {
0x3b55…3b6f ptr = 0xc832 // 0x3b55 @0x0
0x3b55…3b6f lno = 0x0a4b // 0x3b57 @0x2
0x3b55…3b6f at0004 = ╱86╱ LET ╱ // 0x3b59 @0x4
0x3b55…3b6f at0005 = ╱50╱P╱ // 0x3b5a @0x5
0x3b55…3b6f at0006 = ╱4e╱N╱ // 0x3b5b @0x6
0x3b55…3b6f at0007 = ╱55╱U╱ // 0x3b5c @0x7
0x3b55…3b6f at0008 = ╱4d╱M╱ // 0x3b5d @0x8
0x3b55…3b6f at0009 = ╱4d╱M╱ // 0x3b5e @0x9
0x3b55…3b6f at000a = ╱45╱E╱ // 0x3b5f @0xa
0x3b55…3b6f at000b = ╱52╱R╱ // 0x3b60 @0xb
0x3b55…3b6f at000c = ╱f0╱ := ╱ // 0x3b61 @0xc
0x3b55…3b6f at000d = ╱50╱P╱ // 0x3b62 @0xd
0x3b55…3b6f at000e = ╱4e╱N╱ // 0x3b63 @0xe
0x3b55…3b6f at000f = ╱55╱U╱ // 0x3b64 @0xf
0x3b55…3b6f at0010 = ╱4d╱M╱ // 0x3b65 @0x10
0x3b55…3b6f at0011 = ╱4d╱M╱ // 0x3b66 @0x11
0x3b55…3b6f at0012 = ╱45╱E╱ // 0x3b67 @0x12
0x3b55…3b6f at0013 = ╱52╱R╱ // 0x3b68 @0x13
0x3b55…3b6f at0014 = ╱e5╱ + ╱ // 0x3b69 @0x14
0x3b55…3b6f at0015 = ╱31╱1╱ // 0x3b6a @0x15
0x3b55…3b6f at0016 = ╱f20100╱ // 0x3b6b @0x16
0x3b55…3b6f at0019 = EOL // 0x3b6e @0x19
0x3b55…3b6f }
0x3b6f…3b93 cb96 02860 IF LIN_T + 8 > MAX_LIN THEN EXEC SIDESKIFT
0x3b6f…3b93 LineComal80 {
0x3b6f…3b93 ptr = 0xcb96 // 0x3b6f @0x0
0x3b6f…3b93 lno = 0x0b2c // 0x3b71 @0x2
0x3b6f…3b93 at0004 = ╱8200╱ IF ╱ // 0x3b73 @0x4
0x3b6f…3b93 at0006 = ╱4c╱L╱ // 0x3b75 @0x6
0x3b6f…3b93 at0007 = ╱49╱I╱ // 0x3b76 @0x7
0x3b6f…3b93 at0008 = ╱4e╱N╱ // 0x3b77 @0x8
0x3b6f…3b93 at0009 = ╱5f╱_╱ // 0x3b78 @0x9
0x3b6f…3b93 at000a = ╱54╱T╱ // 0x3b79 @0xa
0x3b6f…3b93 at000b = ╱e5╱ + ╱ // 0x3b7a @0xb
0x3b6f…3b93 at000c = ╱38╱8╱ // 0x3b7b @0xc
0x3b6f…3b93 at000d = ╱f20800╱ // 0x3b7c @0xd
0x3b6f…3b93 at0010 = ╱e1╱ > ╱ // 0x3b7f @0x10
0x3b6f…3b93 at0011 = ╱4d╱M╱ // 0x3b80 @0x11
0x3b6f…3b93 at0012 = ╱41╱A╱ // 0x3b81 @0x12
0x3b6f…3b93 at0013 = ╱58╱X╱ // 0x3b82 @0x13
0x3b6f…3b93 at0014 = ╱5f╱_╱ // 0x3b83 @0x14
0x3b6f…3b93 at0015 = ╱4c╱L╱ // 0x3b84 @0x15
0x3b6f…3b93 at0016 = ╱49╱I╱ // 0x3b85 @0x16
0x3b6f…3b93 at0017 = ╱4e╱N╱ // 0x3b86 @0x17
0x3b6f…3b93 at0018 = ╱b5╱ THEN ╱ // 0x3b87 @0x18
0x3b6f…3b93 at0019 = ╱9d╱ EXEC ╱ // 0x3b88 @0x19
0x3b6f…3b93 at001a = ╱53╱S╱ // 0x3b89 @0x1a
0x3b6f…3b93 at001b = ╱49╱I╱ // 0x3b8a @0x1b
0x3b6f…3b93 at001c = ╱44╱D╱ // 0x3b8b @0x1c
0x3b6f…3b93 at001d = ╱45╱E╱ // 0x3b8c @0x1d
0x3b6f…3b93 at001e = ╱53╱S╱ // 0x3b8d @0x1e
0x3b6f…3b93 at001f = ╱4b╱K╱ // 0x3b8e @0x1f
0x3b6f…3b93 at0020 = ╱49╱I╱ // 0x3b8f @0x20
0x3b6f…3b93 at0021 = ╱46╱F╱ // 0x3b90 @0x21
0x3b6f…3b93 at0022 = ╱54╱T╱ // 0x3b91 @0x22
0x3b6f…3b93 at0023 = EOL // 0x3b92 @0x23
0x3b6f…3b93 }
0x3b93…3bb0 d0dc 03030 FOR I := LIN_T TO AX_LIN - 4 DO PRINT
0x3b93…3bb0 LineComal80 {
0x3b93…3bb0 ptr = 0xd0dc // 0x3b93 @0x0
0x3b93…3bb0 lno = 0x0bd6 // 0x3b95 @0x2
0x3b93…3bb0 at0004 = ╱b400╱ FOR ╱ // 0x3b97 @0x4
0x3b93…3bb0 at0006 = ╱49╱I╱ // 0x3b99 @0x6
0x3b93…3bb0 at0007 = ╱f0╱ := ╱ // 0x3b9a @0x7
0x3b93…3bb0 at0008 = ╱4c╱L╱ // 0x3b9b @0x8
0x3b93…3bb0 at0009 = ╱49╱I╱ // 0x3b9c @0x9
0x3b93…3bb0 at000a = ╱4e╱N╱ // 0x3b9d @0xa
0x3b93…3bb0 at000b = ╱5f╱_╱ // 0x3b9e @0xb
0x3b93…3bb0 at000c = ╱54╱T╱ // 0x3b9f @0xc
0x3b93…3bb0 at000d = ╱b74d╱ TO ╱ // 0x3ba0 @0xd
0x3b93…3bb0 at000f = ╱41╱A╱ // 0x3ba2 @0xf
0x3b93…3bb0 at0010 = ╱58╱X╱ // 0x3ba3 @0x10
0x3b93…3bb0 at0011 = ╱5f╱_╱ // 0x3ba4 @0x11
0x3b93…3bb0 at0012 = ╱4c╱L╱ // 0x3ba5 @0x12
0x3b93…3bb0 at0013 = ╱49╱I╱ // 0x3ba6 @0x13
0x3b93…3bb0 at0014 = ╱4e╱N╱ // 0x3ba7 @0x14
0x3b93…3bb0 at0015 = ╱e6╱ - ╱ // 0x3ba8 @0x15
0x3b93…3bb0 at0016 = ╱34╱4╱ // 0x3ba9 @0x16
0x3b93…3bb0 at0017 = ╱f20400╱ // 0x3baa @0x17
0x3b93…3bb0 at001a = ╱bb╱ DO ╱ // 0x3bad @0x1a
0x3b93…3bb0 at001b = ╱92╱ PRINT ╱ // 0x3bae @0x1b
0x3b93…3bb0 at001c = EOL // 0x3baf @0x1c
0x3b93…3bb0 }
0x3bb0…3bb6 cf54 03090 PRINT
0x3bb0…3bb6 LineComal80 {
0x3bb0…3bb6 ptr = 0xcf54 // 0x3bb0 @0x0
0x3bb0…3bb6 lno = 0x0c12 // 0x3bb2 @0x2
0x3bb0…3bb6 at0004 = ╱92╱ PRINT ╱ // 0x3bb4 @0x4
0x3bb0…3bb6 at0005 = EOL // 0x3bb5 @0x5
0x3bb0…3bb6 }
0x3bb6…3bc6 d1b4 02981 IF UM > 0 THEN
0x3bb6…3bc6 LineComal80 {
0x3bb6…3bc6 ptr = 0xd1b4 // 0x3bb6 @0x0
0x3bb6…3bc6 lno = 0x0ba5 // 0x3bb8 @0x2
0x3bb6…3bc6 at0004 = ╱9b3253╱ IF ╱ // 0x3bba @0x4
0x3bb6…3bc6 at0007 = ╱55╱U╱ // 0x3bbd @0x7
0x3bb6…3bc6 at0008 = ╱4d╱M╱ // 0x3bbe @0x8
0x3bb6…3bc6 at0009 = ╱e1╱ > ╱ // 0x3bbf @0x9
0x3bb6…3bc6 at000a = ╱30╱0╱ // 0x3bc0 @0xa
0x3bb6…3bc6 at000b = ╱f20000╱ // 0x3bc1 @0xb
0x3bb6…3bc6 at000e = ╱b5╱ THEN ╱ // 0x3bc4 @0xe
0x3bb6…3bc6 at000f = EOL // 0x3bc5 @0xf
0x3bb6…3bc6 }
0x3bc6…3bd1 d1bf 02982 PRINT "…K" ;
0x3bc6…3bd1 LineComal80 {
0x3bc6…3bd1 ptr = 0xd1bf // 0x3bc6 @0x0
0x3bc6…3bd1 lno = 0x0ba6 // 0x3bc8 @0x2
0x3bc6…3bd1 at0004 = ╱92╱ PRINT ╱ // 0x3bca @0x4
0x3bc6…3bd1 at0005 = ╱22╱"╱ // 0x3bcb @0x5
0x3bc6…3bd1 at0006 = ╱20╱…╱ // 0x3bcc @0x6
0x3bc6…3bd1 at0007 = ╱4b╱K╱ // 0x3bcd @0x7
0x3bc6…3bd1 at0008 = ╱22╱"╱ // 0x3bce @0x8
0x3bc6…3bd1 at0009 = ╱ea╱ ; ╱ // 0x3bcf @0x9
0x3bc6…3bd1 at000a = EOL // 0x3bd0 @0xa
0x3bc6…3bd1 }
0x3bd1…3bd8 d1c6 02983 ELSE
0x3bd1…3bd8 LineComal80 {
0x3bd1…3bd8 ptr = 0xd1c6 // 0x3bd1 @0x0
0x3bd1…3bd8 lno = 0x0ba7 // 0x3bd3 @0x2
0x3bd1…3bd8 at0004 = ╱9a33╱ ELSE ╱ // 0x3bd5 @0x4
0x3bd1…3bd8 at0006 = EOL // 0x3bd7 @0x6
0x3bd1…3bd8 }
0x3bd8…3be3 d1d1 02984 PRINT "…D" ;
0x3bd8…3be3 LineComal80 {
0x3bd8…3be3 ptr = 0xd1d1 // 0x3bd8 @0x0
0x3bd8…3be3 lno = 0x0ba8 // 0x3bda @0x2
0x3bd8…3be3 at0004 = ╱92╱ PRINT ╱ // 0x3bdc @0x4
0x3bd8…3be3 at0005 = ╱22╱"╱ // 0x3bdd @0x5
0x3bd8…3be3 at0006 = ╱20╱…╱ // 0x3bde @0x6
0x3bd8…3be3 at0007 = ╱44╱D╱ // 0x3bdf @0x7
0x3bd8…3be3 at0008 = ╱22╱"╱ // 0x3be0 @0x8
0x3bd8…3be3 at0009 = ╱ea╱ ; ╱ // 0x3be1 @0x9
0x3bd8…3be3 at000a = EOL // 0x3be2 @0xa
0x3bd8…3be3 }
0x3be3…3be9 cd0a 02985 ENDIF
0x3be3…3be9 LineComal80 {
0x3be3…3be9 ptr = 0xcd0a // 0x3be3 @0x0
0x3be3…3be9 lno = 0x0ba9 // 0x3be5 @0x2
0x3be3…3be9 at0004 = ╱9c╱ ENDIF ╱ // 0x3be7 @0x4
0x3be3…3be9 at0005 = EOL // 0x3be8 @0x5
0x3be3…3be9 }
0x3be9…3c2d 6972 24944 p ╱00╱ ╱00╱ ╱05╱ ╱00╱ 922138 ╱00╱ ╱00╱ ╱06╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ …… ╱00╱ ╱00╱ ╱05╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ODLAS…LEMMAG ╱00╱ ╱00╱ ╱14╱ ╱00╱ ╱1b╱ TAB OUTPUT ╱0b╱ IF UM < 0 THEN
0x3be9…3c2d LineComal80 {
0x3be9…3c2d ptr = 0x6972 // 0x3be9 @0x0
0x3be9…3c2d lno = 0x6170 // 0x3beb @0x2
0x3be9…3c2d at0004 = ╱70╱p╱ // 0x3bed @0x4
0x3be9…3c2d at0005 = ╱00╱ // 0x3bee @0x5
0x3be9…3c2d at0006 = ╱00╱ // 0x3bef @0x6
0x3be9…3c2d at0007 = ╱05╱ // 0x3bf0 @0x7
0x3be9…3c2d at0008 = ╱00╱ // 0x3bf1 @0x8
0x3be9…3c2d at0009 = ╱39╱9╱ // 0x3bf2 @0x9
0x3be9…3c2d at000a = ╱32╱2╱ // 0x3bf3 @0xa
0x3be9…3c2d at000b = ╱32╱2╱ // 0x3bf4 @0xb
0x3be9…3c2d at000c = ╱31╱1╱ // 0x3bf5 @0xc
0x3be9…3c2d at000d = ╱33╱3╱ // 0x3bf6 @0xd
0x3be9…3c2d at000e = ╱38╱8╱ // 0x3bf7 @0xe
0x3be9…3c2d at000f = ╱00╱ // 0x3bf8 @0xf
0x3be9…3c2d at0010 = ╱00╱ // 0x3bf9 @0x10
0x3be9…3c2d at0011 = ╱06╱ // 0x3bfa @0x11
0x3be9…3c2d at0012 = ╱00╱ // 0x3bfb @0x12
0x3be9…3c2d at0013 = ╱1f╱ // 0x3bfc @0x13
0x3be9…3c2d at0014 = ╱1f╱ // 0x3bfd @0x14
0x3be9…3c2d at0015 = ╱1f╱ // 0x3bfe @0x15
0x3be9…3c2d at0016 = ╱20╱…╱ // 0x3bff @0x16
0x3be9…3c2d at0017 = ╱20╱…╱ // 0x3c00 @0x17
0x3be9…3c2d at0018 = ╱00╱ // 0x3c01 @0x18
0x3be9…3c2d at0019 = ╱00╱ // 0x3c02 @0x19
0x3be9…3c2d at001a = ╱05╱ // 0x3c03 @0x1a
0x3be9…3c2d at001b = ╱00╱ // 0x3c04 @0x1b
0x3be9…3c2d at001c = ╱1f╱ // 0x3c05 @0x1c
0x3be9…3c2d at001d = ╱1f╱ // 0x3c06 @0x1d
0x3be9…3c2d at001e = ╱1f╱ // 0x3c07 @0x1e
0x3be9…3c2d at001f = ╱1f╱ // 0x3c08 @0x1f
0x3be9…3c2d at0020 = ╱1f╱ // 0x3c09 @0x20
0x3be9…3c2d at0021 = ╱1f╱ // 0x3c0a @0x21
0x3be9…3c2d at0022 = ╱1f╱ // 0x3c0b @0x22
0x3be9…3c2d at0023 = ╱1f╱ // 0x3c0c @0x23
0x3be9…3c2d at0024 = ╱4f╱O╱ // 0x3c0d @0x24
0x3be9…3c2d at0025 = ╱44╱D╱ // 0x3c0e @0x25
0x3be9…3c2d at0026 = ╱4c╱L╱ // 0x3c0f @0x26
0x3be9…3c2d at0027 = ╱41╱A╱ // 0x3c10 @0x27
0x3be9…3c2d at0028 = ╱53╱S╱ // 0x3c11 @0x28
0x3be9…3c2d at0029 = ╱20╱…╱ // 0x3c12 @0x29
0x3be9…3c2d at002a = ╱4c╱L╱ // 0x3c13 @0x2a
0x3be9…3c2d at002b = ╱45╱E╱ // 0x3c14 @0x2b
0x3be9…3c2d at002c = ╱4d╱M╱ // 0x3c15 @0x2c
0x3be9…3c2d at002d = ╱4d╱M╱ // 0x3c16 @0x2d
0x3be9…3c2d at002e = ╱41╱A╱ // 0x3c17 @0x2e
0x3be9…3c2d at002f = ╱47╱G╱ // 0x3c18 @0x2f
0x3be9…3c2d at0030 = ╱00╱ // 0x3c19 @0x30
0x3be9…3c2d at0031 = ╱00╱ // 0x3c1a @0x31
0x3be9…3c2d at0032 = ╱14╱ // 0x3c1b @0x32
0x3be9…3c2d at0033 = ╱00╱ // 0x3c1c @0x33
0x3be9…3c2d at0034 = ╱1b╱ // 0x3c1d @0x34
0x3be9…3c2d at0035 = ╱d2╱ TAB ╱ // 0x3c1e @0x35
0x3be9…3c2d at0036 = ╱a5╱ OUTPUT ╱ // 0x3c1f @0x36
0x3be9…3c2d at0037 = ╱0b╱ // 0x3c20 @0x37
0x3be9…3c2d at0038 = ╱9b3253╱ IF ╱ // 0x3c21 @0x38
0x3be9…3c2d at003b = ╱55╱U╱ // 0x3c24 @0x3b
0x3be9…3c2d at003c = ╱4d╱M╱ // 0x3c25 @0x3c
0x3be9…3c2d at003d = ╱e0╱ < ╱ // 0x3c26 @0x3d
0x3be9…3c2d at003e = ╱30╱0╱ // 0x3c27 @0x3e
0x3be9…3c2d at003f = ╱f20000╱ // 0x3c28 @0x3f
0x3be9…3c2d at0042 = ╱b5╱ THEN ╱ // 0x3c2b @0x42
0x3be9…3c2d at0043 = EOL // 0x3c2c @0x43
0x3be9…3c2d }
0x3c2d…3c37 d225 02982 PRINT "K" ;
0x3c2d…3c37 LineComal80 {
0x3c2d…3c37 ptr = 0xd225 // 0x3c2d @0x0
0x3c2d…3c37 lno = 0x0ba6 // 0x3c2f @0x2
0x3c2d…3c37 at0004 = ╱92╱ PRINT ╱ // 0x3c31 @0x4
0x3c2d…3c37 at0005 = ╱22╱"╱ // 0x3c32 @0x5
0x3c2d…3c37 at0006 = ╱4b╱K╱ // 0x3c33 @0x6
0x3c2d…3c37 at0007 = ╱22╱"╱ // 0x3c34 @0x7
0x3c2d…3c37 at0008 = ╱ea╱ ; ╱ // 0x3c35 @0x8
0x3c2d…3c37 at0009 = EOL // 0x3c36 @0x9
0x3c2d…3c37 }
0x3c37…3c3e d22c 02983 ELSE
0x3c37…3c3e LineComal80 {
0x3c37…3c3e ptr = 0xd22c // 0x3c37 @0x0
0x3c37…3c3e lno = 0x0ba7 // 0x3c39 @0x2
0x3c37…3c3e at0004 = ╱9a33╱ ELSE ╱ // 0x3c3b @0x4
0x3c37…3c3e at0006 = EOL // 0x3c3d @0x6
0x3c37…3c3e }
0x3c3e…3c48 d236 02984 PRINT "D" ;
0x3c3e…3c48 LineComal80 {
0x3c3e…3c48 ptr = 0xd236 // 0x3c3e @0x0
0x3c3e…3c48 lno = 0x0ba8 // 0x3c40 @0x2
0x3c3e…3c48 at0004 = ╱92╱ PRINT ╱ // 0x3c42 @0x4
0x3c3e…3c48 at0005 = ╱22╱"╱ // 0x3c43 @0x5
0x3c3e…3c48 at0006 = ╱44╱D╱ // 0x3c44 @0x6
0x3c3e…3c48 at0007 = ╱22╱"╱ // 0x3c45 @0x7
0x3c3e…3c48 at0008 = ╱ea╱ ; ╱ // 0x3c46 @0x8
0x3c3e…3c48 at0009 = EOL // 0x3c47 @0x9
0x3c3e…3c48 }
0x3c48…3c4e cd0a 02985 ENDIF
0x3c48…3c4e LineComal80 {
0x3c48…3c4e ptr = 0xcd0a // 0x3c48 @0x0
0x3c48…3c4e lno = 0x0ba9 // 0x3c4a @0x2
0x3c48…3c4e at0004 = ╱9c╱ ENDIF ╱ // 0x3c4c @0x4
0x3c48…3c4e at0005 = EOL // 0x3c4d @0x5
0x3c48…3c4e }
0x3c4e…3ca1 3239 12594 38 ╱00╱ ╱00╱ ╱06╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ …… ╱00╱ ╱00╱ ╱05╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ODLAS…LEMMAG ╱00╱ ╱00╱ ╱14╱ ╱00╱ READ TAB END ╱0a╱ PRINT "***…" ; SYST_NAVN $ ; "…***" ; TAB ( 41 ) ;
0x3c4e…3ca1 LineComal80 {
0x3c4e…3ca1 ptr = 0x3239 // 0x3c4e @0x0
0x3c4e…3ca1 lno = 0x3132 // 0x3c50 @0x2
0x3c4e…3ca1 at0004 = ╱33╱3╱ // 0x3c52 @0x4
0x3c4e…3ca1 at0005 = ╱38╱8╱ // 0x3c53 @0x5
0x3c4e…3ca1 at0006 = ╱00╱ // 0x3c54 @0x6
0x3c4e…3ca1 at0007 = ╱00╱ // 0x3c55 @0x7
0x3c4e…3ca1 at0008 = ╱06╱ // 0x3c56 @0x8
0x3c4e…3ca1 at0009 = ╱00╱ // 0x3c57 @0x9
0x3c4e…3ca1 at000a = ╱1f╱ // 0x3c58 @0xa
0x3c4e…3ca1 at000b = ╱1f╱ // 0x3c59 @0xb
0x3c4e…3ca1 at000c = ╱1f╱ // 0x3c5a @0xc
0x3c4e…3ca1 at000d = ╱20╱…╱ // 0x3c5b @0xd
0x3c4e…3ca1 at000e = ╱20╱…╱ // 0x3c5c @0xe
0x3c4e…3ca1 at000f = ╱00╱ // 0x3c5d @0xf
0x3c4e…3ca1 at0010 = ╱00╱ // 0x3c5e @0x10
0x3c4e…3ca1 at0011 = ╱05╱ // 0x3c5f @0x11
0x3c4e…3ca1 at0012 = ╱00╱ // 0x3c60 @0x12
0x3c4e…3ca1 at0013 = ╱1f╱ // 0x3c61 @0x13
0x3c4e…3ca1 at0014 = ╱1f╱ // 0x3c62 @0x14
0x3c4e…3ca1 at0015 = ╱1f╱ // 0x3c63 @0x15
0x3c4e…3ca1 at0016 = ╱1f╱ // 0x3c64 @0x16
0x3c4e…3ca1 at0017 = ╱1f╱ // 0x3c65 @0x17
0x3c4e…3ca1 at0018 = ╱1f╱ // 0x3c66 @0x18
0x3c4e…3ca1 at0019 = ╱1f╱ // 0x3c67 @0x19
0x3c4e…3ca1 at001a = ╱1f╱ // 0x3c68 @0x1a
0x3c4e…3ca1 at001b = ╱4f╱O╱ // 0x3c69 @0x1b
0x3c4e…3ca1 at001c = ╱44╱D╱ // 0x3c6a @0x1c
0x3c4e…3ca1 at001d = ╱4c╱L╱ // 0x3c6b @0x1d
0x3c4e…3ca1 at001e = ╱41╱A╱ // 0x3c6c @0x1e
0x3c4e…3ca1 at001f = ╱53╱S╱ // 0x3c6d @0x1f
0x3c4e…3ca1 at0020 = ╱20╱…╱ // 0x3c6e @0x20
0x3c4e…3ca1 at0021 = ╱4c╱L╱ // 0x3c6f @0x21
0x3c4e…3ca1 at0022 = ╱45╱E╱ // 0x3c70 @0x22
0x3c4e…3ca1 at0023 = ╱4d╱M╱ // 0x3c71 @0x23
0x3c4e…3ca1 at0024 = ╱4d╱M╱ // 0x3c72 @0x24
0x3c4e…3ca1 at0025 = ╱41╱A╱ // 0x3c73 @0x25
0x3c4e…3ca1 at0026 = ╱47╱G╱ // 0x3c74 @0x26
0x3c4e…3ca1 at0027 = ╱00╱ // 0x3c75 @0x27
0x3c4e…3ca1 at0028 = ╱00╱ // 0x3c76 @0x28
0x3c4e…3ca1 at0029 = ╱14╱ // 0x3c77 @0x29
0x3c4e…3ca1 at002a = ╱00╱ // 0x3c78 @0x2a
0x3c4e…3ca1 at002b = ╱8f╱ READ ╱ // 0x3c79 @0x2b
0x3c4e…3ca1 at002c = ╱d2╱ TAB ╱ // 0x3c7a @0x2c
0x3c4e…3ca1 at002d = ╱8c╱ END ╱ // 0x3c7b @0x2d
0x3c4e…3ca1 at002e = ╱0a╱ // 0x3c7c @0x2e
0x3c4e…3ca1 at002f = ╱92╱ PRINT ╱ // 0x3c7d @0x2f
0x3c4e…3ca1 at0030 = ╱22╱"╱ // 0x3c7e @0x30
0x3c4e…3ca1 at0031 = ╱2a╱*╱ // 0x3c7f @0x31
0x3c4e…3ca1 at0032 = ╱2a╱*╱ // 0x3c80 @0x32
0x3c4e…3ca1 at0033 = ╱2a╱*╱ // 0x3c81 @0x33
0x3c4e…3ca1 at0034 = ╱20╱…╱ // 0x3c82 @0x34
0x3c4e…3ca1 at0035 = ╱22╱"╱ // 0x3c83 @0x35
0x3c4e…3ca1 at0036 = ╱ea╱ ; ╱ // 0x3c84 @0x36
0x3c4e…3ca1 at0037 = ╱53╱S╱ // 0x3c85 @0x37
0x3c4e…3ca1 at0038 = ╱59╱Y╱ // 0x3c86 @0x38
0x3c4e…3ca1 at0039 = ╱53╱S╱ // 0x3c87 @0x39
0x3c4e…3ca1 at003a = ╱54╱T╱ // 0x3c88 @0x3a
0x3c4e…3ca1 at003b = ╱5f╱_╱ // 0x3c89 @0x3b
0x3c4e…3ca1 at003c = ╱4e╱N╱ // 0x3c8a @0x3c
0x3c4e…3ca1 at003d = ╱41╱A╱ // 0x3c8b @0x3d
0x3c4e…3ca1 at003e = ╱56╱V╱ // 0x3c8c @0x3e
0x3c4e…3ca1 at003f = ╱4e╱N╱ // 0x3c8d @0x3f
0x3c4e…3ca1 at0040 = ╱ef╱ $ ╱ // 0x3c8e @0x40
0x3c4e…3ca1 at0041 = ╱ea╱ ; ╱ // 0x3c8f @0x41
0x3c4e…3ca1 at0042 = ╱22╱"╱ // 0x3c90 @0x42
0x3c4e…3ca1 at0043 = ╱20╱…╱ // 0x3c91 @0x43
0x3c4e…3ca1 at0044 = ╱2a╱*╱ // 0x3c92 @0x44
0x3c4e…3ca1 at0045 = ╱2a╱*╱ // 0x3c93 @0x45
0x3c4e…3ca1 at0046 = ╱2a╱*╱ // 0x3c94 @0x46
0x3c4e…3ca1 at0047 = ╱22╱"╱ // 0x3c95 @0x47
0x3c4e…3ca1 at0048 = ╱ea╱ ; ╱ // 0x3c96 @0x48
0x3c4e…3ca1 at0049 = ╱d2╱ TAB ╱ // 0x3c97 @0x49
0x3c4e…3ca1 at004a = ╱ed╱ ( ╱ // 0x3c98 @0x4a
0x3c4e…3ca1 at004b = ╱34╱4╱ // 0x3c99 @0x4b
0x3c4e…3ca1 at004c = ╱31╱1╱ // 0x3c9a @0x4c
0x3c4e…3ca1 at004d = ╱f22900╱ // 0x3c9b @0x4d
0x3c4e…3ca1 at0050 = ╱ee╱ ) ╱ // 0x3c9e @0x50
0x3c4e…3ca1 at0051 = ╱ea╱ ; ╱ // 0x3c9f @0x51
0x3c4e…3ca1 at0052 = EOL // 0x3ca0 @0x52
0x3c4e…3ca1 }
0x3ca1…3cee c95f 02710 PRINT "***…UDSKREVET…PR.…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ;
0x3ca1…3cee LineComal80 {
0x3ca1…3cee ptr = 0xc95f // 0x3ca1 @0x0
0x3ca1…3cee lno = 0x0a96 // 0x3ca3 @0x2
0x3ca1…3cee at0004 = ╱92╱ PRINT ╱ // 0x3ca5 @0x4
0x3ca1…3cee at0005 = ╱22╱"╱ // 0x3ca6 @0x5
0x3ca1…3cee at0006 = ╱2a╱*╱ // 0x3ca7 @0x6
0x3ca1…3cee at0007 = ╱2a╱*╱ // 0x3ca8 @0x7
0x3ca1…3cee at0008 = ╱2a╱*╱ // 0x3ca9 @0x8
0x3ca1…3cee at0009 = ╱20╱…╱ // 0x3caa @0x9
0x3ca1…3cee at000a = ╱55╱U╱ // 0x3cab @0xa
0x3ca1…3cee at000b = ╱44╱D╱ // 0x3cac @0xb
0x3ca1…3cee at000c = ╱53╱S╱ // 0x3cad @0xc
0x3ca1…3cee at000d = ╱4b╱K╱ // 0x3cae @0xd
0x3ca1…3cee at000e = ╱52╱R╱ // 0x3caf @0xe
0x3ca1…3cee at000f = ╱45╱E╱ // 0x3cb0 @0xf
0x3ca1…3cee at0010 = ╱56╱V╱ // 0x3cb1 @0x10
0x3ca1…3cee at0011 = ╱45╱E╱ // 0x3cb2 @0x11
0x3ca1…3cee at0012 = ╱54╱T╱ // 0x3cb3 @0x12
0x3ca1…3cee at0013 = ╱20╱…╱ // 0x3cb4 @0x13
0x3ca1…3cee at0014 = ╱50╱P╱ // 0x3cb5 @0x14
0x3ca1…3cee at0015 = ╱52╱R╱ // 0x3cb6 @0x15
0x3ca1…3cee at0016 = ╱2e╱.╱ // 0x3cb7 @0x16
0x3ca1…3cee at0017 = ╱20╱…╱ // 0x3cb8 @0x17
0x3ca1…3cee at0018 = ╱22╱"╱ // 0x3cb9 @0x18
0x3ca1…3cee at0019 = ╱ea╱ ; ╱ // 0x3cba @0x19
0x3ca1…3cee at001a = ╱53╱S╱ // 0x3cbb @0x1a
0x3ca1…3cee at001b = ╱59╱Y╱ // 0x3cbc @0x1b
0x3ca1…3cee at001c = ╱53╱S╱ // 0x3cbd @0x1c
0x3ca1…3cee at001d = ╱54╱T╱ // 0x3cbe @0x1d
0x3ca1…3cee at001e = ╱5f╱_╱ // 0x3cbf @0x1e
0x3ca1…3cee at001f = ╱44╱D╱ // 0x3cc0 @0x1f
0x3ca1…3cee at0020 = ╱41╱A╱ // 0x3cc1 @0x20
0x3ca1…3cee at0021 = ╱54╱T╱ // 0x3cc2 @0x21
0x3ca1…3cee at0022 = ╱ef╱ $ ╱ // 0x3cc3 @0x22
0x3ca1…3cee at0023 = ╱ed╱ ( ╱ // 0x3cc4 @0x23
0x3ca1…3cee at0024 = ╱31╱1╱ // 0x3cc5 @0x24
0x3ca1…3cee at0025 = ╱f20100╱ // 0x3cc6 @0x25
0x3ca1…3cee at0028 = ╱f1╱ : ╱ // 0x3cc9 @0x28
0x3ca1…3cee at0029 = ╱32╱2╱ // 0x3cca @0x29
0x3ca1…3cee at002a = ╱f20200╱ // 0x3ccb @0x2a
0x3ca1…3cee at002d = ╱ee╱ ) ╱ // 0x3cce @0x2d
0x3ca1…3cee at002e = ╱ea╱ ; ╱ // 0x3ccf @0x2e
0x3ca1…3cee at002f = ╱22╱"╱ // 0x3cd0 @0x2f
0x3ca1…3cee at0030 = ╱2e╱.╱ // 0x3cd1 @0x30
0x3ca1…3cee at0031 = ╱22╱"╱ // 0x3cd2 @0x31
0x3ca1…3cee at0032 = ╱ea╱ ; ╱ // 0x3cd3 @0x32
0x3ca1…3cee at0033 = ╱53╱S╱ // 0x3cd4 @0x33
0x3ca1…3cee at0034 = ╱59╱Y╱ // 0x3cd5 @0x34
0x3ca1…3cee at0035 = ╱53╱S╱ // 0x3cd6 @0x35
0x3ca1…3cee at0036 = ╱54╱T╱ // 0x3cd7 @0x36
0x3ca1…3cee at0037 = ╱5f╱_╱ // 0x3cd8 @0x37
0x3ca1…3cee at0038 = ╱44╱D╱ // 0x3cd9 @0x38
0x3ca1…3cee at0039 = ╱41╱A╱ // 0x3cda @0x39
0x3ca1…3cee at003a = ╱54╱T╱ // 0x3cdb @0x3a
0x3ca1…3cee at003b = ╱ef╱ $ ╱ // 0x3cdc @0x3b
0x3ca1…3cee at003c = ╱ed╱ ( ╱ // 0x3cdd @0x3c
0x3ca1…3cee at003d = ╱33╱3╱ // 0x3cde @0x3d
0x3ca1…3cee at003e = ╱f20300╱ // 0x3cdf @0x3e
0x3ca1…3cee at0041 = ╱f1╱ : ╱ // 0x3ce2 @0x41
0x3ca1…3cee at0042 = ╱32╱2╱ // 0x3ce3 @0x42
0x3ca1…3cee at0043 = ╱f20200╱ // 0x3ce4 @0x43
0x3ca1…3cee at0046 = ╱ee╱ ) ╱ // 0x3ce7 @0x46
0x3ca1…3cee at0047 = ╱ea╱ ; ╱ // 0x3ce8 @0x47
0x3ca1…3cee at0048 = ╱22╱"╱ // 0x3ce9 @0x48
0x3ca1…3cee at0049 = ╱2e╱.╱ // 0x3cea @0x49
0x3ca1…3cee at004a = ╱22╱"╱ // 0x3ceb @0x4a
0x3ca1…3cee at004b = ╱ea╱ ; ╱ // 0x3cec @0x4b
0x3ca1…3cee at004c = EOL // 0x3ced @0x4c
0x3ca1…3cee }
0x3cee…3d16 d28f 02700 PRINT "***…" ; SYST_NAVN $ ; "…***" ; TAB ( 39 ) ;
0x3cee…3d16 LineComal80 {
0x3cee…3d16 ptr = 0xd28f // 0x3cee @0x0
0x3cee…3d16 lno = 0x0a8c // 0x3cf0 @0x2
0x3cee…3d16 at0004 = ╱92╱ PRINT ╱ // 0x3cf2 @0x4
0x3cee…3d16 at0005 = ╱22╱"╱ // 0x3cf3 @0x5
0x3cee…3d16 at0006 = ╱2a╱*╱ // 0x3cf4 @0x6
0x3cee…3d16 at0007 = ╱2a╱*╱ // 0x3cf5 @0x7
0x3cee…3d16 at0008 = ╱2a╱*╱ // 0x3cf6 @0x8
0x3cee…3d16 at0009 = ╱20╱…╱ // 0x3cf7 @0x9
0x3cee…3d16 at000a = ╱22╱"╱ // 0x3cf8 @0xa
0x3cee…3d16 at000b = ╱ea╱ ; ╱ // 0x3cf9 @0xb
0x3cee…3d16 at000c = ╱53╱S╱ // 0x3cfa @0xc
0x3cee…3d16 at000d = ╱59╱Y╱ // 0x3cfb @0xd
0x3cee…3d16 at000e = ╱53╱S╱ // 0x3cfc @0xe
0x3cee…3d16 at000f = ╱54╱T╱ // 0x3cfd @0xf
0x3cee…3d16 at0010 = ╱5f╱_╱ // 0x3cfe @0x10
0x3cee…3d16 at0011 = ╱4e╱N╱ // 0x3cff @0x11
0x3cee…3d16 at0012 = ╱41╱A╱ // 0x3d00 @0x12
0x3cee…3d16 at0013 = ╱56╱V╱ // 0x3d01 @0x13
0x3cee…3d16 at0014 = ╱4e╱N╱ // 0x3d02 @0x14
0x3cee…3d16 at0015 = ╱ef╱ $ ╱ // 0x3d03 @0x15
0x3cee…3d16 at0016 = ╱ea╱ ; ╱ // 0x3d04 @0x16
0x3cee…3d16 at0017 = ╱22╱"╱ // 0x3d05 @0x17
0x3cee…3d16 at0018 = ╱20╱…╱ // 0x3d06 @0x18
0x3cee…3d16 at0019 = ╱2a╱*╱ // 0x3d07 @0x19
0x3cee…3d16 at001a = ╱2a╱*╱ // 0x3d08 @0x1a
0x3cee…3d16 at001b = ╱2a╱*╱ // 0x3d09 @0x1b
0x3cee…3d16 at001c = ╱22╱"╱ // 0x3d0a @0x1c
0x3cee…3d16 at001d = ╱ea╱ ; ╱ // 0x3d0b @0x1d
0x3cee…3d16 at001e = ╱d2╱ TAB ╱ // 0x3d0c @0x1e
0x3cee…3d16 at001f = ╱ed╱ ( ╱ // 0x3d0d @0x1f
0x3cee…3d16 at0020 = ╱33╱3╱ // 0x3d0e @0x20
0x3cee…3d16 at0021 = ╱39╱9╱ // 0x3d0f @0x21
0x3cee…3d16 at0022 = ╱f22700╱ // 0x3d10 @0x22
0x3cee…3d16 at0025 = ╱ee╱ ) ╱ // 0x3d13 @0x25
0x3cee…3d16 at0026 = ╱ea╱ ; ╱ // 0x3d14 @0x26
0x3cee…3d16 at0027 = EOL // 0x3d15 @0x27
0x3cee…3d16 }
0x3d16…3d3e d32c 02700 PRINT "***…" ; SYST_NAVN $ ; "…***" ; TAB ( 39 ) ;
0x3d16…3d3e LineComal80 {
0x3d16…3d3e ptr = 0xd32c // 0x3d16 @0x0
0x3d16…3d3e lno = 0x0a8c // 0x3d18 @0x2
0x3d16…3d3e at0004 = ╱92╱ PRINT ╱ // 0x3d1a @0x4
0x3d16…3d3e at0005 = ╱22╱"╱ // 0x3d1b @0x5
0x3d16…3d3e at0006 = ╱2a╱*╱ // 0x3d1c @0x6
0x3d16…3d3e at0007 = ╱2a╱*╱ // 0x3d1d @0x7
0x3d16…3d3e at0008 = ╱2a╱*╱ // 0x3d1e @0x8
0x3d16…3d3e at0009 = ╱20╱…╱ // 0x3d1f @0x9
0x3d16…3d3e at000a = ╱22╱"╱ // 0x3d20 @0xa
0x3d16…3d3e at000b = ╱ea╱ ; ╱ // 0x3d21 @0xb
0x3d16…3d3e at000c = ╱53╱S╱ // 0x3d22 @0xc
0x3d16…3d3e at000d = ╱59╱Y╱ // 0x3d23 @0xd
0x3d16…3d3e at000e = ╱53╱S╱ // 0x3d24 @0xe
0x3d16…3d3e at000f = ╱54╱T╱ // 0x3d25 @0xf
0x3d16…3d3e at0010 = ╱5f╱_╱ // 0x3d26 @0x10
0x3d16…3d3e at0011 = ╱4e╱N╱ // 0x3d27 @0x11
0x3d16…3d3e at0012 = ╱41╱A╱ // 0x3d28 @0x12
0x3d16…3d3e at0013 = ╱56╱V╱ // 0x3d29 @0x13
0x3d16…3d3e at0014 = ╱4e╱N╱ // 0x3d2a @0x14
0x3d16…3d3e at0015 = ╱ef╱ $ ╱ // 0x3d2b @0x15
0x3d16…3d3e at0016 = ╱ea╱ ; ╱ // 0x3d2c @0x16
0x3d16…3d3e at0017 = ╱22╱"╱ // 0x3d2d @0x17
0x3d16…3d3e at0018 = ╱20╱…╱ // 0x3d2e @0x18
0x3d16…3d3e at0019 = ╱2a╱*╱ // 0x3d2f @0x19
0x3d16…3d3e at001a = ╱2a╱*╱ // 0x3d30 @0x1a
0x3d16…3d3e at001b = ╱2a╱*╱ // 0x3d31 @0x1b
0x3d16…3d3e at001c = ╱22╱"╱ // 0x3d32 @0x1c
0x3d16…3d3e at001d = ╱ea╱ ; ╱ // 0x3d33 @0x1d
0x3d16…3d3e at001e = ╱d2╱ TAB ╱ // 0x3d34 @0x1e
0x3d16…3d3e at001f = ╱ed╱ ( ╱ // 0x3d35 @0x1f
0x3d16…3d3e at0020 = ╱33╱3╱ // 0x3d36 @0x20
0x3d16…3d3e at0021 = ╱39╱9╱ // 0x3d37 @0x21
0x3d16…3d3e at0022 = ╱f22700╱ // 0x3d38 @0x22
0x3d16…3d3e at0025 = ╱ee╱ ) ╱ // 0x3d3b @0x25
0x3d16…3d3e at0026 = ╱ea╱ ; ╱ // 0x3d3c @0x26
0x3d16…3d3e at0027 = EOL // 0x3d3d @0x27
0x3d16…3d3e }
0x3d3e…3d8b d379 02710 PRINT "***…UDSKREVET…PR.…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ;
0x3d3e…3d8b LineComal80 {
0x3d3e…3d8b ptr = 0xd379 // 0x3d3e @0x0
0x3d3e…3d8b lno = 0x0a96 // 0x3d40 @0x2
0x3d3e…3d8b at0004 = ╱92╱ PRINT ╱ // 0x3d42 @0x4
0x3d3e…3d8b at0005 = ╱22╱"╱ // 0x3d43 @0x5
0x3d3e…3d8b at0006 = ╱2a╱*╱ // 0x3d44 @0x6
0x3d3e…3d8b at0007 = ╱2a╱*╱ // 0x3d45 @0x7
0x3d3e…3d8b at0008 = ╱2a╱*╱ // 0x3d46 @0x8
0x3d3e…3d8b at0009 = ╱20╱…╱ // 0x3d47 @0x9
0x3d3e…3d8b at000a = ╱55╱U╱ // 0x3d48 @0xa
0x3d3e…3d8b at000b = ╱44╱D╱ // 0x3d49 @0xb
0x3d3e…3d8b at000c = ╱53╱S╱ // 0x3d4a @0xc
0x3d3e…3d8b at000d = ╱4b╱K╱ // 0x3d4b @0xd
0x3d3e…3d8b at000e = ╱52╱R╱ // 0x3d4c @0xe
0x3d3e…3d8b at000f = ╱45╱E╱ // 0x3d4d @0xf
0x3d3e…3d8b at0010 = ╱56╱V╱ // 0x3d4e @0x10
0x3d3e…3d8b at0011 = ╱45╱E╱ // 0x3d4f @0x11
0x3d3e…3d8b at0012 = ╱54╱T╱ // 0x3d50 @0x12
0x3d3e…3d8b at0013 = ╱20╱…╱ // 0x3d51 @0x13
0x3d3e…3d8b at0014 = ╱50╱P╱ // 0x3d52 @0x14
0x3d3e…3d8b at0015 = ╱52╱R╱ // 0x3d53 @0x15
0x3d3e…3d8b at0016 = ╱2e╱.╱ // 0x3d54 @0x16
0x3d3e…3d8b at0017 = ╱20╱…╱ // 0x3d55 @0x17
0x3d3e…3d8b at0018 = ╱22╱"╱ // 0x3d56 @0x18
0x3d3e…3d8b at0019 = ╱ea╱ ; ╱ // 0x3d57 @0x19
0x3d3e…3d8b at001a = ╱53╱S╱ // 0x3d58 @0x1a
0x3d3e…3d8b at001b = ╱59╱Y╱ // 0x3d59 @0x1b
0x3d3e…3d8b at001c = ╱53╱S╱ // 0x3d5a @0x1c
0x3d3e…3d8b at001d = ╱54╱T╱ // 0x3d5b @0x1d
0x3d3e…3d8b at001e = ╱5f╱_╱ // 0x3d5c @0x1e
0x3d3e…3d8b at001f = ╱44╱D╱ // 0x3d5d @0x1f
0x3d3e…3d8b at0020 = ╱41╱A╱ // 0x3d5e @0x20
0x3d3e…3d8b at0021 = ╱54╱T╱ // 0x3d5f @0x21
0x3d3e…3d8b at0022 = ╱ef╱ $ ╱ // 0x3d60 @0x22
0x3d3e…3d8b at0023 = ╱ed╱ ( ╱ // 0x3d61 @0x23
0x3d3e…3d8b at0024 = ╱31╱1╱ // 0x3d62 @0x24
0x3d3e…3d8b at0025 = ╱f20100╱ // 0x3d63 @0x25
0x3d3e…3d8b at0028 = ╱f1╱ : ╱ // 0x3d66 @0x28
0x3d3e…3d8b at0029 = ╱32╱2╱ // 0x3d67 @0x29
0x3d3e…3d8b at002a = ╱f20200╱ // 0x3d68 @0x2a
0x3d3e…3d8b at002d = ╱ee╱ ) ╱ // 0x3d6b @0x2d
0x3d3e…3d8b at002e = ╱ea╱ ; ╱ // 0x3d6c @0x2e
0x3d3e…3d8b at002f = ╱22╱"╱ // 0x3d6d @0x2f
0x3d3e…3d8b at0030 = ╱2e╱.╱ // 0x3d6e @0x30
0x3d3e…3d8b at0031 = ╱22╱"╱ // 0x3d6f @0x31
0x3d3e…3d8b at0032 = ╱ea╱ ; ╱ // 0x3d70 @0x32
0x3d3e…3d8b at0033 = ╱53╱S╱ // 0x3d71 @0x33
0x3d3e…3d8b at0034 = ╱59╱Y╱ // 0x3d72 @0x34
0x3d3e…3d8b at0035 = ╱53╱S╱ // 0x3d73 @0x35
0x3d3e…3d8b at0036 = ╱54╱T╱ // 0x3d74 @0x36
0x3d3e…3d8b at0037 = ╱5f╱_╱ // 0x3d75 @0x37
0x3d3e…3d8b at0038 = ╱44╱D╱ // 0x3d76 @0x38
0x3d3e…3d8b at0039 = ╱41╱A╱ // 0x3d77 @0x39
0x3d3e…3d8b at003a = ╱54╱T╱ // 0x3d78 @0x3a
0x3d3e…3d8b at003b = ╱ef╱ $ ╱ // 0x3d79 @0x3b
0x3d3e…3d8b at003c = ╱ed╱ ( ╱ // 0x3d7a @0x3c
0x3d3e…3d8b at003d = ╱33╱3╱ // 0x3d7b @0x3d
0x3d3e…3d8b at003e = ╱f20300╱ // 0x3d7c @0x3e
0x3d3e…3d8b at0041 = ╱f1╱ : ╱ // 0x3d7f @0x41
0x3d3e…3d8b at0042 = ╱32╱2╱ // 0x3d80 @0x42
0x3d3e…3d8b at0043 = ╱f20200╱ // 0x3d81 @0x43
0x3d3e…3d8b at0046 = ╱ee╱ ) ╱ // 0x3d84 @0x46
0x3d3e…3d8b at0047 = ╱ea╱ ; ╱ // 0x3d85 @0x47
0x3d3e…3d8b at0048 = ╱22╱"╱ // 0x3d86 @0x48
0x3d3e…3d8b at0049 = ╱2e╱.╱ // 0x3d87 @0x49
0x3d3e…3d8b at004a = ╱22╱"╱ // 0x3d88 @0x4a
0x3d3e…3d8b at004b = ╱ea╱ ; ╱ // 0x3d89 @0x4b
0x3d3e…3d8b at004c = EOL // 0x3d8a @0x4c
0x3d3e…3d8b }
0x3d8b…3dba d3a8 02720 PRINT SYST_DAT $ ( 5 : 2 ) ; "…***…SIDE:…" ; SIDENR
0x3d8b…3dba LineComal80 {
0x3d8b…3dba ptr = 0xd3a8 // 0x3d8b @0x0
0x3d8b…3dba lno = 0x0aa0 // 0x3d8d @0x2
0x3d8b…3dba at0004 = ╱92╱ PRINT ╱ // 0x3d8f @0x4
0x3d8b…3dba at0005 = ╱53╱S╱ // 0x3d90 @0x5
0x3d8b…3dba at0006 = ╱59╱Y╱ // 0x3d91 @0x6
0x3d8b…3dba at0007 = ╱53╱S╱ // 0x3d92 @0x7
0x3d8b…3dba at0008 = ╱54╱T╱ // 0x3d93 @0x8
0x3d8b…3dba at0009 = ╱5f╱_╱ // 0x3d94 @0x9
0x3d8b…3dba at000a = ╱44╱D╱ // 0x3d95 @0xa
0x3d8b…3dba at000b = ╱41╱A╱ // 0x3d96 @0xb
0x3d8b…3dba at000c = ╱54╱T╱ // 0x3d97 @0xc
0x3d8b…3dba at000d = ╱ef╱ $ ╱ // 0x3d98 @0xd
0x3d8b…3dba at000e = ╱ed╱ ( ╱ // 0x3d99 @0xe
0x3d8b…3dba at000f = ╱35╱5╱ // 0x3d9a @0xf
0x3d8b…3dba at0010 = ╱f20500╱ // 0x3d9b @0x10
0x3d8b…3dba at0013 = ╱f1╱ : ╱ // 0x3d9e @0x13
0x3d8b…3dba at0014 = ╱32╱2╱ // 0x3d9f @0x14
0x3d8b…3dba at0015 = ╱f20200╱ // 0x3da0 @0x15
0x3d8b…3dba at0018 = ╱ee╱ ) ╱ // 0x3da3 @0x18
0x3d8b…3dba at0019 = ╱ea╱ ; ╱ // 0x3da4 @0x19
0x3d8b…3dba at001a = ╱22╱"╱ // 0x3da5 @0x1a
0x3d8b…3dba at001b = ╱20╱…╱ // 0x3da6 @0x1b
0x3d8b…3dba at001c = ╱2a╱*╱ // 0x3da7 @0x1c
0x3d8b…3dba at001d = ╱2a╱*╱ // 0x3da8 @0x1d
0x3d8b…3dba at001e = ╱2a╱*╱ // 0x3da9 @0x1e
0x3d8b…3dba at001f = ╱20╱…╱ // 0x3daa @0x1f
0x3d8b…3dba at0020 = ╱53╱S╱ // 0x3dab @0x20
0x3d8b…3dba at0021 = ╱49╱I╱ // 0x3dac @0x21
0x3d8b…3dba at0022 = ╱44╱D╱ // 0x3dad @0x22
0x3d8b…3dba at0023 = ╱45╱E╱ // 0x3dae @0x23
0x3d8b…3dba at0024 = ╱3a╱:╱ // 0x3daf @0x24
0x3d8b…3dba at0025 = ╱20╱…╱ // 0x3db0 @0x25
0x3d8b…3dba at0026 = ╱22╱"╱ // 0x3db1 @0x26
0x3d8b…3dba at0027 = ╱ea╱ ; ╱ // 0x3db2 @0x27
0x3d8b…3dba at0028 = ╱53╱S╱ // 0x3db3 @0x28
0x3d8b…3dba at0029 = ╱49╱I╱ // 0x3db4 @0x29
0x3d8b…3dba at002a = ╱44╱D╱ // 0x3db5 @0x2a
0x3d8b…3dba at002b = ╱45╱E╱ // 0x3db6 @0x2b
0x3d8b…3dba at002c = ╱4e╱N╱ // 0x3db7 @0x2c
0x3d8b…3dba at002d = ╱52╱R╱ // 0x3db8 @0x2d
0x3d8b…3dba at002e = EOL // 0x3db9 @0x2e
0x3d8b…3dba }
0x3dba…3dc0 d3ae 02730 PRINT
0x3dba…3dc0 LineComal80 {
0x3dba…3dc0 ptr = 0xd3ae // 0x3dba @0x0
0x3dba…3dc0 lno = 0x0aaa // 0x3dbc @0x2
0x3dba…3dc0 at0004 = ╱92╱ PRINT ╱ // 0x3dbe @0x4
0x3dba…3dc0 at0005 = EOL // 0x3dbf @0x5
0x3dba…3dc0 }
0x3dc0…3df9 d3e7 02740 PRINT "Firmanavn:…" ; FIRMANAVN $ ; TAB ( 52 ) ; "**…KONTOKORT…**"
0x3dc0…3df9 LineComal80 {
0x3dc0…3df9 ptr = 0xd3e7 // 0x3dc0 @0x0
0x3dc0…3df9 lno = 0x0ab4 // 0x3dc2 @0x2
0x3dc0…3df9 at0004 = ╱92╱ PRINT ╱ // 0x3dc4 @0x4
0x3dc0…3df9 at0005 = ╱22╱"╱ // 0x3dc5 @0x5
0x3dc0…3df9 at0006 = ╱46╱F╱ // 0x3dc6 @0x6
0x3dc0…3df9 at0007 = ╱69╱i╱ // 0x3dc7 @0x7
0x3dc0…3df9 at0008 = ╱72╱r╱ // 0x3dc8 @0x8
0x3dc0…3df9 at0009 = ╱6d╱m╱ // 0x3dc9 @0x9
0x3dc0…3df9 at000a = ╱61╱a╱ // 0x3dca @0xa
0x3dc0…3df9 at000b = ╱6e╱n╱ // 0x3dcb @0xb
0x3dc0…3df9 at000c = ╱61╱a╱ // 0x3dcc @0xc
0x3dc0…3df9 at000d = ╱76╱v╱ // 0x3dcd @0xd
0x3dc0…3df9 at000e = ╱6e╱n╱ // 0x3dce @0xe
0x3dc0…3df9 at000f = ╱3a╱:╱ // 0x3dcf @0xf
0x3dc0…3df9 at0010 = ╱20╱…╱ // 0x3dd0 @0x10
0x3dc0…3df9 at0011 = ╱22╱"╱ // 0x3dd1 @0x11
0x3dc0…3df9 at0012 = ╱ea╱ ; ╱ // 0x3dd2 @0x12
0x3dc0…3df9 at0013 = ╱46╱F╱ // 0x3dd3 @0x13
0x3dc0…3df9 at0014 = ╱49╱I╱ // 0x3dd4 @0x14
0x3dc0…3df9 at0015 = ╱52╱R╱ // 0x3dd5 @0x15
0x3dc0…3df9 at0016 = ╱4d╱M╱ // 0x3dd6 @0x16
0x3dc0…3df9 at0017 = ╱41╱A╱ // 0x3dd7 @0x17
0x3dc0…3df9 at0018 = ╱4e╱N╱ // 0x3dd8 @0x18
0x3dc0…3df9 at0019 = ╱41╱A╱ // 0x3dd9 @0x19
0x3dc0…3df9 at001a = ╱56╱V╱ // 0x3dda @0x1a
0x3dc0…3df9 at001b = ╱4e╱N╱ // 0x3ddb @0x1b
0x3dc0…3df9 at001c = ╱ef╱ $ ╱ // 0x3ddc @0x1c
0x3dc0…3df9 at001d = ╱ea╱ ; ╱ // 0x3ddd @0x1d
0x3dc0…3df9 at001e = ╱d2╱ TAB ╱ // 0x3dde @0x1e
0x3dc0…3df9 at001f = ╱ed╱ ( ╱ // 0x3ddf @0x1f
0x3dc0…3df9 at0020 = ╱35╱5╱ // 0x3de0 @0x20
0x3dc0…3df9 at0021 = ╱32╱2╱ // 0x3de1 @0x21
0x3dc0…3df9 at0022 = ╱f23400╱ // 0x3de2 @0x22
0x3dc0…3df9 at0025 = ╱ee╱ ) ╱ // 0x3de5 @0x25
0x3dc0…3df9 at0026 = ╱ea╱ ; ╱ // 0x3de6 @0x26
0x3dc0…3df9 at0027 = ╱22╱"╱ // 0x3de7 @0x27
0x3dc0…3df9 at0028 = ╱2a╱*╱ // 0x3de8 @0x28
0x3dc0…3df9 at0029 = ╱2a╱*╱ // 0x3de9 @0x29
0x3dc0…3df9 at002a = ╱20╱…╱ // 0x3dea @0x2a
0x3dc0…3df9 at002b = ╱4b╱K╱ // 0x3deb @0x2b
0x3dc0…3df9 at002c = ╱4f╱O╱ // 0x3dec @0x2c
0x3dc0…3df9 at002d = ╱4e╱N╱ // 0x3ded @0x2d
0x3dc0…3df9 at002e = ╱54╱T╱ // 0x3dee @0x2e
0x3dc0…3df9 at002f = ╱4f╱O╱ // 0x3def @0x2f
0x3dc0…3df9 at0030 = ╱4b╱K╱ // 0x3df0 @0x30
0x3dc0…3df9 at0031 = ╱4f╱O╱ // 0x3df1 @0x31
0x3dc0…3df9 at0032 = ╱52╱R╱ // 0x3df2 @0x32
0x3dc0…3df9 at0033 = ╱54╱T╱ // 0x3df3 @0x33
0x3dc0…3df9 at0034 = ╱20╱…╱ // 0x3df4 @0x34
0x3dc0…3df9 at0035 = ╱2a╱*╱ // 0x3df5 @0x35
0x3dc0…3df9 at0036 = ╱2a╱*╱ // 0x3df6 @0x36
0x3dc0…3df9 at0037 = ╱22╱"╱ // 0x3df7 @0x37
0x3dc0…3df9 at0038 = EOL // 0x3df8 @0x38
0x3dc0…3df9 }
0x3df9…3dff d3ed 02750 PRINT
0x3df9…3dff LineComal80 {
0x3df9…3dff ptr = 0xd3ed // 0x3df9 @0x0
0x3df9…3dff lno = 0x0abe // 0x3dfb @0x2
0x3df9…3dff at0004 = ╱92╱ PRINT ╱ // 0x3dfd @0x4
0x3df9…3dff at0005 = EOL // 0x3dfe @0x5
0x3df9…3dff }
0x3dff…3e49 d437 02760 PRINT "**…KONTONR:…" ; KTONR $ ; TAB ( 25 ) ; "KONTONAVN:…" ; KTO_NAVN $ ; TAB ( 75 ) ; "**"
0x3dff…3e49 LineComal80 {
0x3dff…3e49 ptr = 0xd437 // 0x3dff @0x0
0x3dff…3e49 lno = 0x0ac8 // 0x3e01 @0x2
0x3dff…3e49 at0004 = ╱92╱ PRINT ╱ // 0x3e03 @0x4
0x3dff…3e49 at0005 = ╱22╱"╱ // 0x3e04 @0x5
0x3dff…3e49 at0006 = ╱2a╱*╱ // 0x3e05 @0x6
0x3dff…3e49 at0007 = ╱2a╱*╱ // 0x3e06 @0x7
0x3dff…3e49 at0008 = ╱20╱…╱ // 0x3e07 @0x8
0x3dff…3e49 at0009 = ╱4b╱K╱ // 0x3e08 @0x9
0x3dff…3e49 at000a = ╱4f╱O╱ // 0x3e09 @0xa
0x3dff…3e49 at000b = ╱4e╱N╱ // 0x3e0a @0xb
0x3dff…3e49 at000c = ╱54╱T╱ // 0x3e0b @0xc
0x3dff…3e49 at000d = ╱4f╱O╱ // 0x3e0c @0xd
0x3dff…3e49 at000e = ╱4e╱N╱ // 0x3e0d @0xe
0x3dff…3e49 at000f = ╱52╱R╱ // 0x3e0e @0xf
0x3dff…3e49 at0010 = ╱3a╱:╱ // 0x3e0f @0x10
0x3dff…3e49 at0011 = ╱20╱…╱ // 0x3e10 @0x11
0x3dff…3e49 at0012 = ╱22╱"╱ // 0x3e11 @0x12
0x3dff…3e49 at0013 = ╱ea╱ ; ╱ // 0x3e12 @0x13
0x3dff…3e49 at0014 = ╱4b╱K╱ // 0x3e13 @0x14
0x3dff…3e49 at0015 = ╱54╱T╱ // 0x3e14 @0x15
0x3dff…3e49 at0016 = ╱4f╱O╱ // 0x3e15 @0x16
0x3dff…3e49 at0017 = ╱4e╱N╱ // 0x3e16 @0x17
0x3dff…3e49 at0018 = ╱52╱R╱ // 0x3e17 @0x18
0x3dff…3e49 at0019 = ╱ef╱ $ ╱ // 0x3e18 @0x19
0x3dff…3e49 at001a = ╱ea╱ ; ╱ // 0x3e19 @0x1a
0x3dff…3e49 at001b = ╱d2╱ TAB ╱ // 0x3e1a @0x1b
0x3dff…3e49 at001c = ╱ed╱ ( ╱ // 0x3e1b @0x1c
0x3dff…3e49 at001d = ╱32╱2╱ // 0x3e1c @0x1d
0x3dff…3e49 at001e = ╱35╱5╱ // 0x3e1d @0x1e
0x3dff…3e49 at001f = ╱f21900╱ // 0x3e1e @0x1f
0x3dff…3e49 at0022 = ╱ee╱ ) ╱ // 0x3e21 @0x22
0x3dff…3e49 at0023 = ╱ea╱ ; ╱ // 0x3e22 @0x23
0x3dff…3e49 at0024 = ╱22╱"╱ // 0x3e23 @0x24
0x3dff…3e49 at0025 = ╱4b╱K╱ // 0x3e24 @0x25
0x3dff…3e49 at0026 = ╱4f╱O╱ // 0x3e25 @0x26
0x3dff…3e49 at0027 = ╱4e╱N╱ // 0x3e26 @0x27
0x3dff…3e49 at0028 = ╱54╱T╱ // 0x3e27 @0x28
0x3dff…3e49 at0029 = ╱4f╱O╱ // 0x3e28 @0x29
0x3dff…3e49 at002a = ╱4e╱N╱ // 0x3e29 @0x2a
0x3dff…3e49 at002b = ╱41╱A╱ // 0x3e2a @0x2b
0x3dff…3e49 at002c = ╱56╱V╱ // 0x3e2b @0x2c
0x3dff…3e49 at002d = ╱4e╱N╱ // 0x3e2c @0x2d
0x3dff…3e49 at002e = ╱3a╱:╱ // 0x3e2d @0x2e
0x3dff…3e49 at002f = ╱20╱…╱ // 0x3e2e @0x2f
0x3dff…3e49 at0030 = ╱22╱"╱ // 0x3e2f @0x30
0x3dff…3e49 at0031 = ╱ea╱ ; ╱ // 0x3e30 @0x31
0x3dff…3e49 at0032 = ╱4b╱K╱ // 0x3e31 @0x32
0x3dff…3e49 at0033 = ╱54╱T╱ // 0x3e32 @0x33
0x3dff…3e49 at0034 = ╱4f╱O╱ // 0x3e33 @0x34
0x3dff…3e49 at0035 = ╱5f╱_╱ // 0x3e34 @0x35
0x3dff…3e49 at0036 = ╱4e╱N╱ // 0x3e35 @0x36
0x3dff…3e49 at0037 = ╱41╱A╱ // 0x3e36 @0x37
0x3dff…3e49 at0038 = ╱56╱V╱ // 0x3e37 @0x38
0x3dff…3e49 at0039 = ╱4e╱N╱ // 0x3e38 @0x39
0x3dff…3e49 at003a = ╱ef╱ $ ╱ // 0x3e39 @0x3a
0x3dff…3e49 at003b = ╱ea╱ ; ╱ // 0x3e3a @0x3b
0x3dff…3e49 at003c = ╱d2╱ TAB ╱ // 0x3e3b @0x3c
0x3dff…3e49 at003d = ╱ed╱ ( ╱ // 0x3e3c @0x3d
0x3dff…3e49 at003e = ╱37╱7╱ // 0x3e3d @0x3e
0x3dff…3e49 at003f = ╱35╱5╱ // 0x3e3e @0x3f
0x3dff…3e49 at0040 = ╱f24b00╱ // 0x3e3f @0x40
0x3dff…3e49 at0043 = ╱ee╱ ) ╱ // 0x3e42 @0x43
0x3dff…3e49 at0044 = ╱ea╱ ; ╱ // 0x3e43 @0x44
0x3dff…3e49 at0045 = ╱22╱"╱ // 0x3e44 @0x45
0x3dff…3e49 at0046 = ╱2a╱*╱ // 0x3e45 @0x46
0x3dff…3e49 at0047 = ╱2a╱*╱ // 0x3e46 @0x47
0x3dff…3e49 at0048 = ╱22╱"╱ // 0x3e47 @0x48
0x3dff…3e49 at0049 = EOL // 0x3e48 @0x49
0x3dff…3e49 }
0x3e49…3e7a d468 02770 PRINT "<S>--------------------------------------"
0x3e49…3e7a LineComal80 {
0x3e49…3e7a ptr = 0xd468 // 0x3e49 @0x0
0x3e49…3e7a lno = 0x0ad2 // 0x3e4b @0x2
0x3e49…3e7a at0004 = ╱92╱ PRINT ╱ // 0x3e4d @0x4
0x3e49…3e7a at0005 = ╱22╱"╱ // 0x3e4e @0x5
0x3e49…3e7a at0006 = ╱3c╱<╱ // 0x3e4f @0x6
0x3e49…3e7a at0007 = ╱53╱S╱ // 0x3e50 @0x7
0x3e49…3e7a at0008 = ╱3e╱>╱ // 0x3e51 @0x8
0x3e49…3e7a at0009 = ╱2d╱-╱ // 0x3e52 @0x9
0x3e49…3e7a at000a = ╱2d╱-╱ // 0x3e53 @0xa
0x3e49…3e7a at000b = ╱2d╱-╱ // 0x3e54 @0xb
0x3e49…3e7a at000c = ╱2d╱-╱ // 0x3e55 @0xc
0x3e49…3e7a at000d = ╱2d╱-╱ // 0x3e56 @0xd
0x3e49…3e7a at000e = ╱2d╱-╱ // 0x3e57 @0xe
0x3e49…3e7a at000f = ╱2d╱-╱ // 0x3e58 @0xf
0x3e49…3e7a at0010 = ╱2d╱-╱ // 0x3e59 @0x10
0x3e49…3e7a at0011 = ╱2d╱-╱ // 0x3e5a @0x11
0x3e49…3e7a at0012 = ╱2d╱-╱ // 0x3e5b @0x12
0x3e49…3e7a at0013 = ╱2d╱-╱ // 0x3e5c @0x13
0x3e49…3e7a at0014 = ╱2d╱-╱ // 0x3e5d @0x14
0x3e49…3e7a at0015 = ╱2d╱-╱ // 0x3e5e @0x15
0x3e49…3e7a at0016 = ╱2d╱-╱ // 0x3e5f @0x16
0x3e49…3e7a at0017 = ╱2d╱-╱ // 0x3e60 @0x17
0x3e49…3e7a at0018 = ╱2d╱-╱ // 0x3e61 @0x18
0x3e49…3e7a at0019 = ╱2d╱-╱ // 0x3e62 @0x19
0x3e49…3e7a at001a = ╱2d╱-╱ // 0x3e63 @0x1a
0x3e49…3e7a at001b = ╱2d╱-╱ // 0x3e64 @0x1b
0x3e49…3e7a at001c = ╱2d╱-╱ // 0x3e65 @0x1c
0x3e49…3e7a at001d = ╱2d╱-╱ // 0x3e66 @0x1d
0x3e49…3e7a at001e = ╱2d╱-╱ // 0x3e67 @0x1e
0x3e49…3e7a at001f = ╱2d╱-╱ // 0x3e68 @0x1f
0x3e49…3e7a at0020 = ╱2d╱-╱ // 0x3e69 @0x20
0x3e49…3e7a at0021 = ╱2d╱-╱ // 0x3e6a @0x21
0x3e49…3e7a at0022 = ╱2d╱-╱ // 0x3e6b @0x22
0x3e49…3e7a at0023 = ╱2d╱-╱ // 0x3e6c @0x23
0x3e49…3e7a at0024 = ╱2d╱-╱ // 0x3e6d @0x24
0x3e49…3e7a at0025 = ╱2d╱-╱ // 0x3e6e @0x25
0x3e49…3e7a at0026 = ╱2d╱-╱ // 0x3e6f @0x26
0x3e49…3e7a at0027 = ╱2d╱-╱ // 0x3e70 @0x27
0x3e49…3e7a at0028 = ╱2d╱-╱ // 0x3e71 @0x28
0x3e49…3e7a at0029 = ╱2d╱-╱ // 0x3e72 @0x29
0x3e49…3e7a at002a = ╱2d╱-╱ // 0x3e73 @0x2a
0x3e49…3e7a at002b = ╱2d╱-╱ // 0x3e74 @0x2b
0x3e49…3e7a at002c = ╱2d╱-╱ // 0x3e75 @0x2c
0x3e49…3e7a at002d = ╱2d╱-╱ // 0x3e76 @0x2d
0x3e49…3e7a at002e = ╱2d╱-╱ // 0x3e77 @0x2e
0x3e49…3e7a at002f = ╱22╱"╱ // 0x3e78 @0x2f
0x3e49…3e7a at0030 = EOL // 0x3e79 @0x30
0x3e49…3e7a }
0x3e7a…3ea8 d496 02780 PRINT "--------------------------------------"
0x3e7a…3ea8 LineComal80 {
0x3e7a…3ea8 ptr = 0xd496 // 0x3e7a @0x0
0x3e7a…3ea8 lno = 0x0adc // 0x3e7c @0x2
0x3e7a…3ea8 at0004 = ╱92╱ PRINT ╱ // 0x3e7e @0x4
0x3e7a…3ea8 at0005 = ╱22╱"╱ // 0x3e7f @0x5
0x3e7a…3ea8 at0006 = ╱2d╱-╱ // 0x3e80 @0x6
0x3e7a…3ea8 at0007 = ╱2d╱-╱ // 0x3e81 @0x7
0x3e7a…3ea8 at0008 = ╱2d╱-╱ // 0x3e82 @0x8
0x3e7a…3ea8 at0009 = ╱2d╱-╱ // 0x3e83 @0x9
0x3e7a…3ea8 at000a = ╱2d╱-╱ // 0x3e84 @0xa
0x3e7a…3ea8 at000b = ╱2d╱-╱ // 0x3e85 @0xb
0x3e7a…3ea8 at000c = ╱2d╱-╱ // 0x3e86 @0xc
0x3e7a…3ea8 at000d = ╱2d╱-╱ // 0x3e87 @0xd
0x3e7a…3ea8 at000e = ╱2d╱-╱ // 0x3e88 @0xe
0x3e7a…3ea8 at000f = ╱2d╱-╱ // 0x3e89 @0xf
0x3e7a…3ea8 at0010 = ╱2d╱-╱ // 0x3e8a @0x10
0x3e7a…3ea8 at0011 = ╱2d╱-╱ // 0x3e8b @0x11
0x3e7a…3ea8 at0012 = ╱2d╱-╱ // 0x3e8c @0x12
0x3e7a…3ea8 at0013 = ╱2d╱-╱ // 0x3e8d @0x13
0x3e7a…3ea8 at0014 = ╱2d╱-╱ // 0x3e8e @0x14
0x3e7a…3ea8 at0015 = ╱2d╱-╱ // 0x3e8f @0x15
0x3e7a…3ea8 at0016 = ╱2d╱-╱ // 0x3e90 @0x16
0x3e7a…3ea8 at0017 = ╱2d╱-╱ // 0x3e91 @0x17
0x3e7a…3ea8 at0018 = ╱2d╱-╱ // 0x3e92 @0x18
0x3e7a…3ea8 at0019 = ╱2d╱-╱ // 0x3e93 @0x19
0x3e7a…3ea8 at001a = ╱2d╱-╱ // 0x3e94 @0x1a
0x3e7a…3ea8 at001b = ╱2d╱-╱ // 0x3e95 @0x1b
0x3e7a…3ea8 at001c = ╱2d╱-╱ // 0x3e96 @0x1c
0x3e7a…3ea8 at001d = ╱2d╱-╱ // 0x3e97 @0x1d
0x3e7a…3ea8 at001e = ╱2d╱-╱ // 0x3e98 @0x1e
0x3e7a…3ea8 at001f = ╱2d╱-╱ // 0x3e99 @0x1f
0x3e7a…3ea8 at0020 = ╱2d╱-╱ // 0x3e9a @0x20
0x3e7a…3ea8 at0021 = ╱2d╱-╱ // 0x3e9b @0x21
0x3e7a…3ea8 at0022 = ╱2d╱-╱ // 0x3e9c @0x22
0x3e7a…3ea8 at0023 = ╱2d╱-╱ // 0x3e9d @0x23
0x3e7a…3ea8 at0024 = ╱2d╱-╱ // 0x3e9e @0x24
0x3e7a…3ea8 at0025 = ╱2d╱-╱ // 0x3e9f @0x25
0x3e7a…3ea8 at0026 = ╱2d╱-╱ // 0x3ea0 @0x26
0x3e7a…3ea8 at0027 = ╱2d╱-╱ // 0x3ea1 @0x27
0x3e7a…3ea8 at0028 = ╱2d╱-╱ // 0x3ea2 @0x28
0x3e7a…3ea8 at0029 = ╱2d╱-╱ // 0x3ea3 @0x29
0x3e7a…3ea8 at002a = ╱2d╱-╱ // 0x3ea4 @0x2a
0x3e7a…3ea8 at002b = ╱2d╱-╱ // 0x3ea5 @0x2b
0x3e7a…3ea8 at002c = ╱22╱"╱ // 0x3ea6 @0x2c
0x3e7a…3ea8 at002d = EOL // 0x3ea7 @0x2d
0x3e7a…3ea8 }
0x3ea8…3eec d4da 02790 PRINT "<S>……DATO…………BILAG……TEKST" ; TAB ( 45 ) ; "DEBETBEL\B……KREDITBEL\B"
0x3ea8…3eec LineComal80 {
0x3ea8…3eec ptr = 0xd4da // 0x3ea8 @0x0
0x3ea8…3eec lno = 0x0ae6 // 0x3eaa @0x2
0x3ea8…3eec at0004 = ╱92╱ PRINT ╱ // 0x3eac @0x4
0x3ea8…3eec at0005 = ╱22╱"╱ // 0x3ead @0x5
0x3ea8…3eec at0006 = ╱3c╱<╱ // 0x3eae @0x6
0x3ea8…3eec at0007 = ╱53╱S╱ // 0x3eaf @0x7
0x3ea8…3eec at0008 = ╱3e╱>╱ // 0x3eb0 @0x8
0x3ea8…3eec at0009 = ╱20╱…╱ // 0x3eb1 @0x9
0x3ea8…3eec at000a = ╱20╱…╱ // 0x3eb2 @0xa
0x3ea8…3eec at000b = ╱44╱D╱ // 0x3eb3 @0xb
0x3ea8…3eec at000c = ╱41╱A╱ // 0x3eb4 @0xc
0x3ea8…3eec at000d = ╱54╱T╱ // 0x3eb5 @0xd
0x3ea8…3eec at000e = ╱4f╱O╱ // 0x3eb6 @0xe
0x3ea8…3eec at000f = ╱20╱…╱ // 0x3eb7 @0xf
0x3ea8…3eec at0010 = ╱20╱…╱ // 0x3eb8 @0x10
0x3ea8…3eec at0011 = ╱20╱…╱ // 0x3eb9 @0x11
0x3ea8…3eec at0012 = ╱20╱…╱ // 0x3eba @0x12
0x3ea8…3eec at0013 = ╱42╱B╱ // 0x3ebb @0x13
0x3ea8…3eec at0014 = ╱49╱I╱ // 0x3ebc @0x14
0x3ea8…3eec at0015 = ╱4c╱L╱ // 0x3ebd @0x15
0x3ea8…3eec at0016 = ╱41╱A╱ // 0x3ebe @0x16
0x3ea8…3eec at0017 = ╱47╱G╱ // 0x3ebf @0x17
0x3ea8…3eec at0018 = ╱20╱…╱ // 0x3ec0 @0x18
0x3ea8…3eec at0019 = ╱20╱…╱ // 0x3ec1 @0x19
0x3ea8…3eec at001a = ╱54╱T╱ // 0x3ec2 @0x1a
0x3ea8…3eec at001b = ╱45╱E╱ // 0x3ec3 @0x1b
0x3ea8…3eec at001c = ╱4b╱K╱ // 0x3ec4 @0x1c
0x3ea8…3eec at001d = ╱53╱S╱ // 0x3ec5 @0x1d
0x3ea8…3eec at001e = ╱54╱T╱ // 0x3ec6 @0x1e
0x3ea8…3eec at001f = ╱22╱"╱ // 0x3ec7 @0x1f
0x3ea8…3eec at0020 = ╱ea╱ ; ╱ // 0x3ec8 @0x20
0x3ea8…3eec at0021 = ╱d2╱ TAB ╱ // 0x3ec9 @0x21
0x3ea8…3eec at0022 = ╱ed╱ ( ╱ // 0x3eca @0x22
0x3ea8…3eec at0023 = ╱34╱4╱ // 0x3ecb @0x23
0x3ea8…3eec at0024 = ╱35╱5╱ // 0x3ecc @0x24
0x3ea8…3eec at0025 = ╱f22d00╱ // 0x3ecd @0x25
0x3ea8…3eec at0028 = ╱ee╱ ) ╱ // 0x3ed0 @0x28
0x3ea8…3eec at0029 = ╱ea╱ ; ╱ // 0x3ed1 @0x29
0x3ea8…3eec at002a = ╱22╱"╱ // 0x3ed2 @0x2a
0x3ea8…3eec at002b = ╱44╱D╱ // 0x3ed3 @0x2b
0x3ea8…3eec at002c = ╱45╱E╱ // 0x3ed4 @0x2c
0x3ea8…3eec at002d = ╱42╱B╱ // 0x3ed5 @0x2d
0x3ea8…3eec at002e = ╱45╱E╱ // 0x3ed6 @0x2e
0x3ea8…3eec at002f = ╱54╱T╱ // 0x3ed7 @0x2f
0x3ea8…3eec at0030 = ╱42╱B╱ // 0x3ed8 @0x30
0x3ea8…3eec at0031 = ╱45╱E╱ // 0x3ed9 @0x31
0x3ea8…3eec at0032 = ╱4c╱L╱ // 0x3eda @0x32
0x3ea8…3eec at0033 = ╱5c╱\╱ // 0x3edb @0x33
0x3ea8…3eec at0034 = ╱42╱B╱ // 0x3edc @0x34
0x3ea8…3eec at0035 = ╱20╱…╱ // 0x3edd @0x35
0x3ea8…3eec at0036 = ╱20╱…╱ // 0x3ede @0x36
0x3ea8…3eec at0037 = ╱4b╱K╱ // 0x3edf @0x37
0x3ea8…3eec at0038 = ╱52╱R╱ // 0x3ee0 @0x38
0x3ea8…3eec at0039 = ╱45╱E╱ // 0x3ee1 @0x39
0x3ea8…3eec at003a = ╱44╱D╱ // 0x3ee2 @0x3a
0x3ea8…3eec at003b = ╱49╱I╱ // 0x3ee3 @0x3b
0x3ea8…3eec at003c = ╱54╱T╱ // 0x3ee4 @0x3c
0x3ea8…3eec at003d = ╱42╱B╱ // 0x3ee5 @0x3d
0x3ea8…3eec at003e = ╱45╱E╱ // 0x3ee6 @0x3e
0x3ea8…3eec at003f = ╱4c╱L╱ // 0x3ee7 @0x3f
0x3ea8…3eec at0040 = ╱5c╱\╱ // 0x3ee8 @0x40
0x3ea8…3eec at0041 = ╱42╱B╱ // 0x3ee9 @0x41
0x3ea8…3eec at0042 = ╱22╱"╱ // 0x3eea @0x42
0x3ea8…3eec at0043 = EOL // 0x3eeb @0x43
0x3ea8…3eec }
0x3eec…3efd d4eb 02800 PRINT "…………SALDO"
0x3eec…3efd LineComal80 {
0x3eec…3efd ptr = 0xd4eb // 0x3eec @0x0
0x3eec…3efd lno = 0x0af0 // 0x3eee @0x2
0x3eec…3efd at0004 = ╱92╱ PRINT ╱ // 0x3ef0 @0x4
0x3eec…3efd at0005 = ╱22╱"╱ // 0x3ef1 @0x5
0x3eec…3efd at0006 = ╱20╱…╱ // 0x3ef2 @0x6
0x3eec…3efd at0007 = ╱20╱…╱ // 0x3ef3 @0x7
0x3eec…3efd at0008 = ╱20╱…╱ // 0x3ef4 @0x8
0x3eec…3efd at0009 = ╱20╱…╱ // 0x3ef5 @0x9
0x3eec…3efd at000a = ╱53╱S╱ // 0x3ef6 @0xa
0x3eec…3efd at000b = ╱41╱A╱ // 0x3ef7 @0xb
0x3eec…3efd at000c = ╱4c╱L╱ // 0x3ef8 @0xc
0x3eec…3efd at000d = ╱44╱D╱ // 0x3ef9 @0xd
0x3eec…3efd at000e = ╱4f╱O╱ // 0x3efa @0xe
0x3eec…3efd at000f = ╱22╱"╱ // 0x3efb @0xf
0x3eec…3efd at0010 = EOL // 0x3efc @0x10
0x3eec…3efd }
0x3efd…3f2d d51b 02810 PRINT "<S>-------------------------------------"
0x3efd…3f2d LineComal80 {
0x3efd…3f2d ptr = 0xd51b // 0x3efd @0x0
0x3efd…3f2d lno = 0x0afa // 0x3eff @0x2
0x3efd…3f2d at0004 = ╱92╱ PRINT ╱ // 0x3f01 @0x4
0x3efd…3f2d at0005 = ╱22╱"╱ // 0x3f02 @0x5
0x3efd…3f2d at0006 = ╱3c╱<╱ // 0x3f03 @0x6
0x3efd…3f2d at0007 = ╱53╱S╱ // 0x3f04 @0x7
0x3efd…3f2d at0008 = ╱3e╱>╱ // 0x3f05 @0x8
0x3efd…3f2d at0009 = ╱2d╱-╱ // 0x3f06 @0x9
0x3efd…3f2d at000a = ╱2d╱-╱ // 0x3f07 @0xa
0x3efd…3f2d at000b = ╱2d╱-╱ // 0x3f08 @0xb
0x3efd…3f2d at000c = ╱2d╱-╱ // 0x3f09 @0xc
0x3efd…3f2d at000d = ╱2d╱-╱ // 0x3f0a @0xd
0x3efd…3f2d at000e = ╱2d╱-╱ // 0x3f0b @0xe
0x3efd…3f2d at000f = ╱2d╱-╱ // 0x3f0c @0xf
0x3efd…3f2d at0010 = ╱2d╱-╱ // 0x3f0d @0x10
0x3efd…3f2d at0011 = ╱2d╱-╱ // 0x3f0e @0x11
0x3efd…3f2d at0012 = ╱2d╱-╱ // 0x3f0f @0x12
0x3efd…3f2d at0013 = ╱2d╱-╱ // 0x3f10 @0x13
0x3efd…3f2d at0014 = ╱2d╱-╱ // 0x3f11 @0x14
0x3efd…3f2d at0015 = ╱2d╱-╱ // 0x3f12 @0x15
0x3efd…3f2d at0016 = ╱2d╱-╱ // 0x3f13 @0x16
0x3efd…3f2d at0017 = ╱2d╱-╱ // 0x3f14 @0x17
0x3efd…3f2d at0018 = ╱2d╱-╱ // 0x3f15 @0x18
0x3efd…3f2d at0019 = ╱2d╱-╱ // 0x3f16 @0x19
0x3efd…3f2d at001a = ╱2d╱-╱ // 0x3f17 @0x1a
0x3efd…3f2d at001b = ╱2d╱-╱ // 0x3f18 @0x1b
0x3efd…3f2d at001c = ╱2d╱-╱ // 0x3f19 @0x1c
0x3efd…3f2d at001d = ╱2d╱-╱ // 0x3f1a @0x1d
0x3efd…3f2d at001e = ╱2d╱-╱ // 0x3f1b @0x1e
0x3efd…3f2d at001f = ╱2d╱-╱ // 0x3f1c @0x1f
0x3efd…3f2d at0020 = ╱2d╱-╱ // 0x3f1d @0x20
0x3efd…3f2d at0021 = ╱2d╱-╱ // 0x3f1e @0x21
0x3efd…3f2d at0022 = ╱2d╱-╱ // 0x3f1f @0x22
0x3efd…3f2d at0023 = ╱2d╱-╱ // 0x3f20 @0x23
0x3efd…3f2d at0024 = ╱2d╱-╱ // 0x3f21 @0x24
0x3efd…3f2d at0025 = ╱2d╱-╱ // 0x3f22 @0x25
0x3efd…3f2d at0026 = ╱2d╱-╱ // 0x3f23 @0x26
0x3efd…3f2d at0027 = ╱2d╱-╱ // 0x3f24 @0x27
0x3efd…3f2d at0028 = ╱2d╱-╱ // 0x3f25 @0x28
0x3efd…3f2d at0029 = ╱2d╱-╱ // 0x3f26 @0x29
0x3efd…3f2d at002a = ╱2d╱-╱ // 0x3f27 @0x2a
0x3efd…3f2d at002b = ╱2d╱-╱ // 0x3f28 @0x2b
0x3efd…3f2d at002c = ╱2d╱-╱ // 0x3f29 @0x2c
0x3efd…3f2d at002d = ╱2d╱-╱ // 0x3f2a @0x2d
0x3efd…3f2d at002e = ╱22╱"╱ // 0x3f2b @0x2e
0x3efd…3f2d at002f = EOL // 0x3f2c @0x2f
0x3efd…3f2d }
0x3f2d…3f5c d54a 02820 PRINT "---------------------------------------"
0x3f2d…3f5c LineComal80 {
0x3f2d…3f5c ptr = 0xd54a // 0x3f2d @0x0
0x3f2d…3f5c lno = 0x0b04 // 0x3f2f @0x2
0x3f2d…3f5c at0004 = ╱92╱ PRINT ╱ // 0x3f31 @0x4
0x3f2d…3f5c at0005 = ╱22╱"╱ // 0x3f32 @0x5
0x3f2d…3f5c at0006 = ╱2d╱-╱ // 0x3f33 @0x6
0x3f2d…3f5c at0007 = ╱2d╱-╱ // 0x3f34 @0x7
0x3f2d…3f5c at0008 = ╱2d╱-╱ // 0x3f35 @0x8
0x3f2d…3f5c at0009 = ╱2d╱-╱ // 0x3f36 @0x9
0x3f2d…3f5c at000a = ╱2d╱-╱ // 0x3f37 @0xa
0x3f2d…3f5c at000b = ╱2d╱-╱ // 0x3f38 @0xb
0x3f2d…3f5c at000c = ╱2d╱-╱ // 0x3f39 @0xc
0x3f2d…3f5c at000d = ╱2d╱-╱ // 0x3f3a @0xd
0x3f2d…3f5c at000e = ╱2d╱-╱ // 0x3f3b @0xe
0x3f2d…3f5c at000f = ╱2d╱-╱ // 0x3f3c @0xf
0x3f2d…3f5c at0010 = ╱2d╱-╱ // 0x3f3d @0x10
0x3f2d…3f5c at0011 = ╱2d╱-╱ // 0x3f3e @0x11
0x3f2d…3f5c at0012 = ╱2d╱-╱ // 0x3f3f @0x12
0x3f2d…3f5c at0013 = ╱2d╱-╱ // 0x3f40 @0x13
0x3f2d…3f5c at0014 = ╱2d╱-╱ // 0x3f41 @0x14
0x3f2d…3f5c at0015 = ╱2d╱-╱ // 0x3f42 @0x15
0x3f2d…3f5c at0016 = ╱2d╱-╱ // 0x3f43 @0x16
0x3f2d…3f5c at0017 = ╱2d╱-╱ // 0x3f44 @0x17
0x3f2d…3f5c at0018 = ╱2d╱-╱ // 0x3f45 @0x18
0x3f2d…3f5c at0019 = ╱2d╱-╱ // 0x3f46 @0x19
0x3f2d…3f5c at001a = ╱2d╱-╱ // 0x3f47 @0x1a
0x3f2d…3f5c at001b = ╱2d╱-╱ // 0x3f48 @0x1b
0x3f2d…3f5c at001c = ╱2d╱-╱ // 0x3f49 @0x1c
0x3f2d…3f5c at001d = ╱2d╱-╱ // 0x3f4a @0x1d
0x3f2d…3f5c at001e = ╱2d╱-╱ // 0x3f4b @0x1e
0x3f2d…3f5c at001f = ╱2d╱-╱ // 0x3f4c @0x1f
0x3f2d…3f5c at0020 = ╱2d╱-╱ // 0x3f4d @0x20
0x3f2d…3f5c at0021 = ╱2d╱-╱ // 0x3f4e @0x21
0x3f2d…3f5c at0022 = ╱2d╱-╱ // 0x3f4f @0x22
0x3f2d…3f5c at0023 = ╱2d╱-╱ // 0x3f50 @0x23
0x3f2d…3f5c at0024 = ╱2d╱-╱ // 0x3f51 @0x24
0x3f2d…3f5c at0025 = ╱2d╱-╱ // 0x3f52 @0x25
0x3f2d…3f5c at0026 = ╱2d╱-╱ // 0x3f53 @0x26
0x3f2d…3f5c at0027 = ╱2d╱-╱ // 0x3f54 @0x27
0x3f2d…3f5c at0028 = ╱2d╱-╱ // 0x3f55 @0x28
0x3f2d…3f5c at0029 = ╱2d╱-╱ // 0x3f56 @0x29
0x3f2d…3f5c at002a = ╱2d╱-╱ // 0x3f57 @0x2a
0x3f2d…3f5c at002b = ╱2d╱-╱ // 0x3f58 @0x2b
0x3f2d…3f5c at002c = ╱2d╱-╱ // 0x3f59 @0x2c
0x3f2d…3f5c at002d = ╱22╱"╱ // 0x3f5a @0x2d
0x3f2d…3f5c at002e = EOL // 0x3f5b @0x2e
0x3f2d…3f5c }
0x3f5c…3f68 d556 02830 ENDPROC NYSIDE
0x3f5c…3f68 LineComal80 {
0x3f5c…3f68 ptr = 0xd556 // 0x3f5c @0x0
0x3f5c…3f68 lno = 0x0b0e // 0x3f5e @0x2
0x3f5c…3f68 at0004 = ╱9f╱ ENDPROC ╱ // 0x3f60 @0x4
0x3f5c…3f68 at0005 = ╱4e╱N╱ // 0x3f61 @0x5
0x3f5c…3f68 at0006 = ╱59╱Y╱ // 0x3f62 @0x6
0x3f5c…3f68 at0007 = ╱53╱S╱ // 0x3f63 @0x7
0x3f5c…3f68 at0008 = ╱49╱I╱ // 0x3f64 @0x8
0x3f5c…3f68 at0009 = ╱44╱D╱ // 0x3f65 @0x9
0x3f5c…3f68 at000a = ╱45╱E╱ // 0x3f66 @0xa
0x3f5c…3f68 at000b = EOL // 0x3f67 @0xb
0x3f5c…3f68 }
0x3f68…3f6d d55b 02840
0x3f68…3f6d LineComal80 {
0x3f68…3f6d ptr = 0xd55b // 0x3f68 @0x0
0x3f68…3f6d lno = 0x0b18 // 0x3f6a @0x2
0x3f68…3f6d at0004 = EOL // 0x3f6c @0x4
0x3f68…3f6d }
0x3f6d…3f9a d588 02850 PROC SKRIV_LIN ( Q_D $ , Q_B $ , Q_T $ , Q_M , Q_K , Q_DK )
0x3f6d…3f9a LineComal80 {
0x3f6d…3f9a ptr = 0xd588 // 0x3f6d @0x0
0x3f6d…3f9a lno = 0x0b22 // 0x3f6f @0x2
0x3f6d…3f9a at0004 = ╱9e2f╱ PROC ╱ // 0x3f71 @0x4
0x3f6d…3f9a at0006 = ╱53╱S╱ // 0x3f73 @0x6
0x3f6d…3f9a at0007 = ╱4b╱K╱ // 0x3f74 @0x7
0x3f6d…3f9a at0008 = ╱52╱R╱ // 0x3f75 @0x8
0x3f6d…3f9a at0009 = ╱49╱I╱ // 0x3f76 @0x9
0x3f6d…3f9a at000a = ╱56╱V╱ // 0x3f77 @0xa
0x3f6d…3f9a at000b = ╱5f╱_╱ // 0x3f78 @0xb
0x3f6d…3f9a at000c = ╱4c╱L╱ // 0x3f79 @0xc
0x3f6d…3f9a at000d = ╱49╱I╱ // 0x3f7a @0xd
0x3f6d…3f9a at000e = ╱4e╱N╱ // 0x3f7b @0xe
0x3f6d…3f9a at000f = ╱ed╱ ( ╱ // 0x3f7c @0xf
0x3f6d…3f9a at0010 = ╱51╱Q╱ // 0x3f7d @0x10
0x3f6d…3f9a at0011 = ╱5f╱_╱ // 0x3f7e @0x11
0x3f6d…3f9a at0012 = ╱44╱D╱ // 0x3f7f @0x12
0x3f6d…3f9a at0013 = ╱ef╱ $ ╱ // 0x3f80 @0x13
0x3f6d…3f9a at0014 = ╱ec╱ , ╱ // 0x3f81 @0x14
0x3f6d…3f9a at0015 = ╱51╱Q╱ // 0x3f82 @0x15
0x3f6d…3f9a at0016 = ╱5f╱_╱ // 0x3f83 @0x16
0x3f6d…3f9a at0017 = ╱42╱B╱ // 0x3f84 @0x17
0x3f6d…3f9a at0018 = ╱ef╱ $ ╱ // 0x3f85 @0x18
0x3f6d…3f9a at0019 = ╱ec╱ , ╱ // 0x3f86 @0x19
0x3f6d…3f9a at001a = ╱51╱Q╱ // 0x3f87 @0x1a
0x3f6d…3f9a at001b = ╱5f╱_╱ // 0x3f88 @0x1b
0x3f6d…3f9a at001c = ╱54╱T╱ // 0x3f89 @0x1c
0x3f6d…3f9a at001d = ╱ef╱ $ ╱ // 0x3f8a @0x1d
0x3f6d…3f9a at001e = ╱ec╱ , ╱ // 0x3f8b @0x1e
0x3f6d…3f9a at001f = ╱51╱Q╱ // 0x3f8c @0x1f
0x3f6d…3f9a at0020 = ╱5f╱_╱ // 0x3f8d @0x20
0x3f6d…3f9a at0021 = ╱4d╱M╱ // 0x3f8e @0x21
0x3f6d…3f9a at0022 = ╱ec╱ , ╱ // 0x3f8f @0x22
0x3f6d…3f9a at0023 = ╱51╱Q╱ // 0x3f90 @0x23
0x3f6d…3f9a at0024 = ╱5f╱_╱ // 0x3f91 @0x24
0x3f6d…3f9a at0025 = ╱4b╱K╱ // 0x3f92 @0x25
0x3f6d…3f9a at0026 = ╱ec╱ , ╱ // 0x3f93 @0x26
0x3f6d…3f9a at0027 = ╱51╱Q╱ // 0x3f94 @0x27
0x3f6d…3f9a at0028 = ╱5f╱_╱ // 0x3f95 @0x28
0x3f6d…3f9a at0029 = ╱44╱D╱ // 0x3f96 @0x29
0x3f6d…3f9a at002a = ╱4b╱K╱ // 0x3f97 @0x2a
0x3f6d…3f9a at002b = ╱ee╱ ) ╱ // 0x3f98 @0x2b
0x3f6d…3f9a at002c = EOL // 0x3f99 @0x2c
0x3f6d…3f9a }
0x3f9a…3fbe d5ac 02860 IF LIN_T + 8 > MAX_LIN THEN EXEC SIDESKIFT
0x3f9a…3fbe LineComal80 {
0x3f9a…3fbe ptr = 0xd5ac // 0x3f9a @0x0
0x3f9a…3fbe lno = 0x0b2c // 0x3f9c @0x2
0x3f9a…3fbe at0004 = ╱8200╱ IF ╱ // 0x3f9e @0x4
0x3f9a…3fbe at0006 = ╱4c╱L╱ // 0x3fa0 @0x6
0x3f9a…3fbe at0007 = ╱49╱I╱ // 0x3fa1 @0x7
0x3f9a…3fbe at0008 = ╱4e╱N╱ // 0x3fa2 @0x8
0x3f9a…3fbe at0009 = ╱5f╱_╱ // 0x3fa3 @0x9
0x3f9a…3fbe at000a = ╱54╱T╱ // 0x3fa4 @0xa
0x3f9a…3fbe at000b = ╱e5╱ + ╱ // 0x3fa5 @0xb
0x3f9a…3fbe at000c = ╱38╱8╱ // 0x3fa6 @0xc
0x3f9a…3fbe at000d = ╱f20800╱ // 0x3fa7 @0xd
0x3f9a…3fbe at0010 = ╱e1╱ > ╱ // 0x3faa @0x10
0x3f9a…3fbe at0011 = ╱4d╱M╱ // 0x3fab @0x11
0x3f9a…3fbe at0012 = ╱41╱A╱ // 0x3fac @0x12
0x3f9a…3fbe at0013 = ╱58╱X╱ // 0x3fad @0x13
0x3f9a…3fbe at0014 = ╱5f╱_╱ // 0x3fae @0x14
0x3f9a…3fbe at0015 = ╱4c╱L╱ // 0x3faf @0x15
0x3f9a…3fbe at0016 = ╱49╱I╱ // 0x3fb0 @0x16
0x3f9a…3fbe at0017 = ╱4e╱N╱ // 0x3fb1 @0x17
0x3f9a…3fbe at0018 = ╱b5╱ THEN ╱ // 0x3fb2 @0x18
0x3f9a…3fbe at0019 = ╱9d╱ EXEC ╱ // 0x3fb3 @0x19
0x3f9a…3fbe at001a = ╱53╱S╱ // 0x3fb4 @0x1a
0x3f9a…3fbe at001b = ╱49╱I╱ // 0x3fb5 @0x1b
0x3f9a…3fbe at001c = ╱44╱D╱ // 0x3fb6 @0x1c
0x3f9a…3fbe at001d = ╱45╱E╱ // 0x3fb7 @0x1d
0x3f9a…3fbe at001e = ╱53╱S╱ // 0x3fb8 @0x1e
0x3f9a…3fbe at001f = ╱4b╱K╱ // 0x3fb9 @0x1f
0x3f9a…3fbe at0020 = ╱49╱I╱ // 0x3fba @0x20
0x3f9a…3fbe at0021 = ╱46╱F╱ // 0x3fbb @0x21
0x3f9a…3fbe at0022 = ╱54╱T╱ // 0x3fbc @0x22
0x3f9a…3fbe at0023 = EOL // 0x3fbd @0x23
0x3f9a…3fbe }
0x3fbe…3fd4 d5c2 02870 LET LIN_T := LIN_T + 1
0x3fbe…3fd4 LineComal80 {
0x3fbe…3fd4 ptr = 0xd5c2 // 0x3fbe @0x0
0x3fbe…3fd4 lno = 0x0b36 // 0x3fc0 @0x2
0x3fbe…3fd4 at0004 = ╱86╱ LET ╱ // 0x3fc2 @0x4
0x3fbe…3fd4 at0005 = ╱4c╱L╱ // 0x3fc3 @0x5
0x3fbe…3fd4 at0006 = ╱49╱I╱ // 0x3fc4 @0x6
0x3fbe…3fd4 at0007 = ╱4e╱N╱ // 0x3fc5 @0x7
0x3fbe…3fd4 at0008 = ╱5f╱_╱ // 0x3fc6 @0x8
0x3fbe…3fd4 at0009 = ╱54╱T╱ // 0x3fc7 @0x9
0x3fbe…3fd4 at000a = ╱f0╱ := ╱ // 0x3fc8 @0xa
0x3fbe…3fd4 at000b = ╱4c╱L╱ // 0x3fc9 @0xb
0x3fbe…3fd4 at000c = ╱49╱I╱ // 0x3fca @0xc
0x3fbe…3fd4 at000d = ╱4e╱N╱ // 0x3fcb @0xd
0x3fbe…3fd4 at000e = ╱5f╱_╱ // 0x3fcc @0xe
0x3fbe…3fd4 at000f = ╱54╱T╱ // 0x3fcd @0xf
0x3fbe…3fd4 at0010 = ╱e5╱ + ╱ // 0x3fce @0x10
0x3fbe…3fd4 at0011 = ╱31╱1╱ // 0x3fcf @0x11
0x3fbe…3fd4 at0012 = ╱f20100╱ // 0x3fd0 @0x12
0x3fbe…3fd4 at0015 = EOL // 0x3fd3 @0x15
0x3fbe…3fd4 }
0x3fd4…401b d609 02880 PRINT Q_D $ ( 1 : 2 ) ; "." ; Q_D $ ( 3 : 2 ) ; "." ; Q_D $ ( 5 : 2 ) ; TAB ( 11 ) ;
0x3fd4…401b LineComal80 {
0x3fd4…401b ptr = 0xd609 // 0x3fd4 @0x0
0x3fd4…401b lno = 0x0b40 // 0x3fd6 @0x2
0x3fd4…401b at0004 = ╱92╱ PRINT ╱ // 0x3fd8 @0x4
0x3fd4…401b at0005 = ╱51╱Q╱ // 0x3fd9 @0x5
0x3fd4…401b at0006 = ╱5f╱_╱ // 0x3fda @0x6
0x3fd4…401b at0007 = ╱44╱D╱ // 0x3fdb @0x7
0x3fd4…401b at0008 = ╱ef╱ $ ╱ // 0x3fdc @0x8
0x3fd4…401b at0009 = ╱ed╱ ( ╱ // 0x3fdd @0x9
0x3fd4…401b at000a = ╱31╱1╱ // 0x3fde @0xa
0x3fd4…401b at000b = ╱f20100╱ // 0x3fdf @0xb
0x3fd4…401b at000e = ╱f1╱ : ╱ // 0x3fe2 @0xe
0x3fd4…401b at000f = ╱32╱2╱ // 0x3fe3 @0xf
0x3fd4…401b at0010 = ╱f20200╱ // 0x3fe4 @0x10
0x3fd4…401b at0013 = ╱ee╱ ) ╱ // 0x3fe7 @0x13
0x3fd4…401b at0014 = ╱ea╱ ; ╱ // 0x3fe8 @0x14
0x3fd4…401b at0015 = ╱22╱"╱ // 0x3fe9 @0x15
0x3fd4…401b at0016 = ╱2e╱.╱ // 0x3fea @0x16
0x3fd4…401b at0017 = ╱22╱"╱ // 0x3feb @0x17
0x3fd4…401b at0018 = ╱ea╱ ; ╱ // 0x3fec @0x18
0x3fd4…401b at0019 = ╱51╱Q╱ // 0x3fed @0x19
0x3fd4…401b at001a = ╱5f╱_╱ // 0x3fee @0x1a
0x3fd4…401b at001b = ╱44╱D╱ // 0x3fef @0x1b
0x3fd4…401b at001c = ╱ef╱ $ ╱ // 0x3ff0 @0x1c
0x3fd4…401b at001d = ╱ed╱ ( ╱ // 0x3ff1 @0x1d
0x3fd4…401b at001e = ╱33╱3╱ // 0x3ff2 @0x1e
0x3fd4…401b at001f = ╱f20300╱ // 0x3ff3 @0x1f
0x3fd4…401b at0022 = ╱f1╱ : ╱ // 0x3ff6 @0x22
0x3fd4…401b at0023 = ╱32╱2╱ // 0x3ff7 @0x23
0x3fd4…401b at0024 = ╱f20200╱ // 0x3ff8 @0x24
0x3fd4…401b at0027 = ╱ee╱ ) ╱ // 0x3ffb @0x27
0x3fd4…401b at0028 = ╱ea╱ ; ╱ // 0x3ffc @0x28
0x3fd4…401b at0029 = ╱22╱"╱ // 0x3ffd @0x29
0x3fd4…401b at002a = ╱2e╱.╱ // 0x3ffe @0x2a
0x3fd4…401b at002b = ╱22╱"╱ // 0x3fff @0x2b
0x3fd4…401b at002c = ╱ea╱ ; ╱ // 0x4000 @0x2c
0x3fd4…401b at002d = ╱51╱Q╱ // 0x4001 @0x2d
0x3fd4…401b at002e = ╱5f╱_╱ // 0x4002 @0x2e
0x3fd4…401b at002f = ╱44╱D╱ // 0x4003 @0x2f
0x3fd4…401b at0030 = ╱ef╱ $ ╱ // 0x4004 @0x30
0x3fd4…401b at0031 = ╱ed╱ ( ╱ // 0x4005 @0x31
0x3fd4…401b at0032 = ╱35╱5╱ // 0x4006 @0x32
0x3fd4…401b at0033 = ╱f20500╱ // 0x4007 @0x33
0x3fd4…401b at0036 = ╱f1╱ : ╱ // 0x400a @0x36
0x3fd4…401b at0037 = ╱32╱2╱ // 0x400b @0x37
0x3fd4…401b at0038 = ╱f20200╱ // 0x400c @0x38
0x3fd4…401b at003b = ╱ee╱ ) ╱ // 0x400f @0x3b
0x3fd4…401b at003c = ╱ea╱ ; ╱ // 0x4010 @0x3c
0x3fd4…401b at003d = ╱d2╱ TAB ╱ // 0x4011 @0x3d
0x3fd4…401b at003e = ╱ed╱ ( ╱ // 0x4012 @0x3e
0x3fd4…401b at003f = ╱31╱1╱ // 0x4013 @0x3f
0x3fd4…401b at0040 = ╱31╱1╱ // 0x4014 @0x40
0x3fd4…401b at0041 = ╱f20b00╱ // 0x4015 @0x41
0x3fd4…401b at0044 = ╱ee╱ ) ╱ // 0x4018 @0x44
0x3fd4…401b at0045 = ╱ea╱ ; ╱ // 0x4019 @0x45
0x3fd4…401b at0046 = EOL // 0x401a @0x46
0x3fd4…401b }
0x401b…404b d639 02890 PRINT Q_B $ ; TAB ( 11 ) ; Q_B $ ; TAB ( 18 ) ; Q_T $ ; TAB ( 39 ) ;
0x401b…404b LineComal80 {
0x401b…404b ptr = 0xd639 // 0x401b @0x0
0x401b…404b lno = 0x0b4a // 0x401d @0x2
0x401b…404b at0004 = ╱92╱ PRINT ╱ // 0x401f @0x4
0x401b…404b at0005 = ╱51╱Q╱ // 0x4020 @0x5
0x401b…404b at0006 = ╱5f╱_╱ // 0x4021 @0x6
0x401b…404b at0007 = ╱42╱B╱ // 0x4022 @0x7
0x401b…404b at0008 = ╱ef╱ $ ╱ // 0x4023 @0x8
0x401b…404b at0009 = ╱ea╱ ; ╱ // 0x4024 @0x9
0x401b…404b at000a = ╱d2╱ TAB ╱ // 0x4025 @0xa
0x401b…404b at000b = ╱ed╱ ( ╱ // 0x4026 @0xb
0x401b…404b at000c = ╱31╱1╱ // 0x4027 @0xc
0x401b…404b at000d = ╱31╱1╱ // 0x4028 @0xd
0x401b…404b at000e = ╱f20b00╱ // 0x4029 @0xe
0x401b…404b at0011 = ╱ee╱ ) ╱ // 0x402c @0x11
0x401b…404b at0012 = ╱ea╱ ; ╱ // 0x402d @0x12
0x401b…404b at0013 = ╱51╱Q╱ // 0x402e @0x13
0x401b…404b at0014 = ╱5f╱_╱ // 0x402f @0x14
0x401b…404b at0015 = ╱42╱B╱ // 0x4030 @0x15
0x401b…404b at0016 = ╱ef╱ $ ╱ // 0x4031 @0x16
0x401b…404b at0017 = ╱ea╱ ; ╱ // 0x4032 @0x17
0x401b…404b at0018 = ╱d2╱ TAB ╱ // 0x4033 @0x18
0x401b…404b at0019 = ╱ed╱ ( ╱ // 0x4034 @0x19
0x401b…404b at001a = ╱31╱1╱ // 0x4035 @0x1a
0x401b…404b at001b = ╱38╱8╱ // 0x4036 @0x1b
0x401b…404b at001c = ╱f21200╱ // 0x4037 @0x1c
0x401b…404b at001f = ╱ee╱ ) ╱ // 0x403a @0x1f
0x401b…404b at0020 = ╱ea╱ ; ╱ // 0x403b @0x20
0x401b…404b at0021 = ╱51╱Q╱ // 0x403c @0x21
0x401b…404b at0022 = ╱5f╱_╱ // 0x403d @0x22
0x401b…404b at0023 = ╱54╱T╱ // 0x403e @0x23
0x401b…404b at0024 = ╱ef╱ $ ╱ // 0x403f @0x24
0x401b…404b at0025 = ╱ea╱ ; ╱ // 0x4040 @0x25
0x401b…404b at0026 = ╱d2╱ TAB ╱ // 0x4041 @0x26
0x401b…404b at0027 = ╱ed╱ ( ╱ // 0x4042 @0x27
0x401b…404b at0028 = ╱33╱3╱ // 0x4043 @0x28
0x401b…404b at0029 = ╱39╱9╱ // 0x4044 @0x29
0x401b…404b at002a = ╱f22700╱ // 0x4045 @0x2a
0x401b…404b at002d = ╱ee╱ ) ╱ // 0x4048 @0x2d
0x401b…404b at002e = ╱ea╱ ; ╱ // 0x4049 @0x2e
0x401b…404b at002f = EOL // 0x404a @0x2f
0x401b…404b }
0x404b…406d d65b 02900 IF Q_M > 0 THEN PRINT CHR$ ( Q_M , 9 , 2 ) ;
0x404b…406d LineComal80 {
0x404b…406d ptr = 0xd65b // 0x404b @0x0
0x404b…406d lno = 0x0b54 // 0x404d @0x2
0x404b…406d at0004 = ╱8200╱ IF ╱ // 0x404f @0x4
0x404b…406d at0006 = ╱51╱Q╱ // 0x4051 @0x6
0x404b…406d at0007 = ╱5f╱_╱ // 0x4052 @0x7
0x404b…406d at0008 = ╱4d╱M╱ // 0x4053 @0x8
0x404b…406d at0009 = ╱e1╱ > ╱ // 0x4054 @0x9
0x404b…406d at000a = ╱30╱0╱ // 0x4055 @0xa
0x404b…406d at000b = ╱f20000╱ // 0x4056 @0xb
0x404b…406d at000e = ╱b5╱ THEN ╱ // 0x4059 @0xe
0x404b…406d at000f = ╱92╱ PRINT ╱ // 0x405a @0xf
0x404b…406d at0010 = ╱d0╱ CHR$ ╱ // 0x405b @0x10
0x404b…406d at0011 = ╱ed╱ ( ╱ // 0x405c @0x11
0x404b…406d at0012 = ╱51╱Q╱ // 0x405d @0x12
0x404b…406d at0013 = ╱5f╱_╱ // 0x405e @0x13
0x404b…406d at0014 = ╱4d╱M╱ // 0x405f @0x14
0x404b…406d at0015 = ╱ec╱ , ╱ // 0x4060 @0x15
0x404b…406d at0016 = ╱39╱9╱ // 0x4061 @0x16
0x404b…406d at0017 = ╱f20900╱ // 0x4062 @0x17
0x404b…406d at001a = ╱ec╱ , ╱ // 0x4065 @0x1a
0x404b…406d at001b = ╱32╱2╱ // 0x4066 @0x1b
0x404b…406d at001c = ╱f20200╱ // 0x4067 @0x1c
0x404b…406d at001f = ╱ee╱ ) ╱ // 0x406a @0x1f
0x404b…406d at0020 = ╱ea╱ ; ╱ // 0x406b @0x20
0x404b…406d at0021 = EOL // 0x406c @0x21
0x404b…406d }
0x406d…407f d944 02910 IF _DK = DEBET THEN
0x406d…407f LineComal80 {
0x406d…407f ptr = 0xd944 // 0x406d @0x0
0x406d…407f lno = 0x0b5e // 0x406f @0x2
0x406d…407f at0004 = ╱9b3051╱ IF ╱ // 0x4071 @0x4
0x406d…407f at0007 = ╱5f╱_╱ // 0x4074 @0x7
0x406d…407f at0008 = ╱44╱D╱ // 0x4075 @0x8
0x406d…407f at0009 = ╱4b╱K╱ // 0x4076 @0x9
0x406d…407f at000a = ╱df╱ = ╱ // 0x4077 @0xa
0x406d…407f at000b = ╱44╱D╱ // 0x4078 @0xb
0x406d…407f at000c = ╱45╱E╱ // 0x4079 @0xc
0x406d…407f at000d = ╱42╱B╱ // 0x407a @0xd
0x406d…407f at000e = ╱45╱E╱ // 0x407b @0xe
0x406d…407f at000f = ╱54╱T╱ // 0x407c @0xf
0x406d…407f at0010 = ╱b5╱ THEN ╱ // 0x407d @0x10
0x406d…407f at0011 = EOL // 0x407e @0x11
0x406d…407f }
0x407f…40a8 d696 02920 PRINT TAB ( 42 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ;
0x407f…40a8 LineComal80 {
0x407f…40a8 ptr = 0xd696 // 0x407f @0x0
0x407f…40a8 lno = 0x0b68 // 0x4081 @0x2
0x407f…40a8 at0004 = ╱92╱ PRINT ╱ // 0x4083 @0x4
0x407f…40a8 at0005 = ╱d2╱ TAB ╱ // 0x4084 @0x5
0x407f…40a8 at0006 = ╱ed╱ ( ╱ // 0x4085 @0x6
0x407f…40a8 at0007 = ╱34╱4╱ // 0x4086 @0x7
0x407f…40a8 at0008 = ╱32╱2╱ // 0x4087 @0x8
0x407f…40a8 at0009 = ╱f22a00╱ // 0x4088 @0x9
0x407f…40a8 at000c = ╱ee╱ ) ╱ // 0x408b @0xc
0x407f…40a8 at000d = ╱ea╱ ; ╱ // 0x408c @0xd
0x407f…40a8 at000e = ╱d0╱ CHR$ ╱ // 0x408d @0xe
0x407f…40a8 at000f = ╱ed╱ ( ╱ // 0x408e @0xf
0x407f…40a8 at0010 = ╱51╱Q╱ // 0x408f @0x10
0x407f…40a8 at0011 = ╱5f╱_╱ // 0x4090 @0x11
0x407f…40a8 at0012 = ╱4b╱K╱ // 0x4091 @0x12
0x407f…40a8 at0013 = ╱ec╱ , ╱ // 0x4092 @0x13
0x407f…40a8 at0014 = ╱39╱9╱ // 0x4093 @0x14
0x407f…40a8 at0015 = ╱f20900╱ // 0x4094 @0x15
0x407f…40a8 at0018 = ╱ec╱ , ╱ // 0x4097 @0x18
0x407f…40a8 at0019 = ╱32╱2╱ // 0x4098 @0x19
0x407f…40a8 at001a = ╱f20200╱ // 0x4099 @0x1a
0x407f…40a8 at001d = ╱ee╱ ) ╱ // 0x409c @0x1d
0x407f…40a8 at001e = ╱ea╱ ; ╱ // 0x409d @0x1e
0x407f…40a8 at001f = ╱d2╱ TAB ╱ // 0x409e @0x1f
0x407f…40a8 at0020 = ╱ed╱ ( ╱ // 0x409f @0x20
0x407f…40a8 at0021 = ╱36╱6╱ // 0x40a0 @0x21
0x407f…40a8 at0022 = ╱37╱7╱ // 0x40a1 @0x22
0x407f…40a8 at0023 = ╱f24300╱ // 0x40a2 @0x23
0x407f…40a8 at0026 = ╱ee╱ ) ╱ // 0x40a5 @0x26
0x407f…40a8 at0027 = ╱ea╱ ; ╱ // 0x40a6 @0x27
0x407f…40a8 at0028 = EOL // 0x40a7 @0x28
0x407f…40a8 }
0x40a8…40c5 d6b3 02930 LET TOT ( 1 ) := TOT ( 1 ) + Q_K
0x40a8…40c5 LineComal80 {
0x40a8…40c5 ptr = 0xd6b3 // 0x40a8 @0x0
0x40a8…40c5 lno = 0x0b72 // 0x40aa @0x2
0x40a8…40c5 at0004 = ╱86╱ LET ╱ // 0x40ac @0x4
0x40a8…40c5 at0005 = ╱54╱T╱ // 0x40ad @0x5
0x40a8…40c5 at0006 = ╱4f╱O╱ // 0x40ae @0x6
0x40a8…40c5 at0007 = ╱54╱T╱ // 0x40af @0x7
0x40a8…40c5 at0008 = ╱ed╱ ( ╱ // 0x40b0 @0x8
0x40a8…40c5 at0009 = ╱31╱1╱ // 0x40b1 @0x9
0x40a8…40c5 at000a = ╱f20100╱ // 0x40b2 @0xa
0x40a8…40c5 at000d = ╱ee╱ ) ╱ // 0x40b5 @0xd
0x40a8…40c5 at000e = ╱f0╱ := ╱ // 0x40b6 @0xe
0x40a8…40c5 at000f = ╱54╱T╱ // 0x40b7 @0xf
0x40a8…40c5 at0010 = ╱4f╱O╱ // 0x40b8 @0x10
0x40a8…40c5 at0011 = ╱54╱T╱ // 0x40b9 @0x11
0x40a8…40c5 at0012 = ╱ed╱ ( ╱ // 0x40ba @0x12
0x40a8…40c5 at0013 = ╱31╱1╱ // 0x40bb @0x13
0x40a8…40c5 at0014 = ╱f20100╱ // 0x40bc @0x14
0x40a8…40c5 at0017 = ╱ee╱ ) ╱ // 0x40bf @0x17
0x40a8…40c5 at0018 = ╱e5╱ + ╱ // 0x40c0 @0x18
0x40a8…40c5 at0019 = ╱51╱Q╱ // 0x40c1 @0x19
0x40a8…40c5 at001a = ╱5f╱_╱ // 0x40c2 @0x1a
0x40a8…40c5 at001b = ╱4b╱K╱ // 0x40c3 @0x1b
0x40a8…40c5 at001c = EOL // 0x40c4 @0x1c
0x40a8…40c5 }
0x40c5…40cc d6ba 02940 ELSE
0x40c5…40cc LineComal80 {
0x40c5…40cc ptr = 0xd6ba // 0x40c5 @0x0
0x40c5…40cc lno = 0x0b7c // 0x40c7 @0x2
0x40c5…40cc at0004 = ╱9a31╱ ELSE ╱ // 0x40c9 @0x4
0x40c5…40cc at0006 = EOL // 0x40cb @0x6
0x40c5…40cc }
0x40cc…40f5 d6e3 02950 PRINT TAB ( 55 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 67 ) ;
0x40cc…40f5 LineComal80 {
0x40cc…40f5 ptr = 0xd6e3 // 0x40cc @0x0
0x40cc…40f5 lno = 0x0b86 // 0x40ce @0x2
0x40cc…40f5 at0004 = ╱92╱ PRINT ╱ // 0x40d0 @0x4
0x40cc…40f5 at0005 = ╱d2╱ TAB ╱ // 0x40d1 @0x5
0x40cc…40f5 at0006 = ╱ed╱ ( ╱ // 0x40d2 @0x6
0x40cc…40f5 at0007 = ╱35╱5╱ // 0x40d3 @0x7
0x40cc…40f5 at0008 = ╱35╱5╱ // 0x40d4 @0x8
0x40cc…40f5 at0009 = ╱f23700╱ // 0x40d5 @0x9
0x40cc…40f5 at000c = ╱ee╱ ) ╱ // 0x40d8 @0xc
0x40cc…40f5 at000d = ╱ea╱ ; ╱ // 0x40d9 @0xd
0x40cc…40f5 at000e = ╱d0╱ CHR$ ╱ // 0x40da @0xe
0x40cc…40f5 at000f = ╱ed╱ ( ╱ // 0x40db @0xf
0x40cc…40f5 at0010 = ╱51╱Q╱ // 0x40dc @0x10
0x40cc…40f5 at0011 = ╱5f╱_╱ // 0x40dd @0x11
0x40cc…40f5 at0012 = ╱4b╱K╱ // 0x40de @0x12
0x40cc…40f5 at0013 = ╱ec╱ , ╱ // 0x40df @0x13
0x40cc…40f5 at0014 = ╱39╱9╱ // 0x40e0 @0x14
0x40cc…40f5 at0015 = ╱f20900╱ // 0x40e1 @0x15
0x40cc…40f5 at0018 = ╱ec╱ , ╱ // 0x40e4 @0x18
0x40cc…40f5 at0019 = ╱32╱2╱ // 0x40e5 @0x19
0x40cc…40f5 at001a = ╱f20200╱ // 0x40e6 @0x1a
0x40cc…40f5 at001d = ╱ee╱ ) ╱ // 0x40e9 @0x1d
0x40cc…40f5 at001e = ╱ea╱ ; ╱ // 0x40ea @0x1e
0x40cc…40f5 at001f = ╱d2╱ TAB ╱ // 0x40eb @0x1f
0x40cc…40f5 at0020 = ╱ed╱ ( ╱ // 0x40ec @0x20
0x40cc…40f5 at0021 = ╱36╱6╱ // 0x40ed @0x21
0x40cc…40f5 at0022 = ╱37╱7╱ // 0x40ee @0x22
0x40cc…40f5 at0023 = ╱f24300╱ // 0x40ef @0x23
0x40cc…40f5 at0026 = ╱ee╱ ) ╱ // 0x40f2 @0x26
0x40cc…40f5 at0027 = ╱ea╱ ; ╱ // 0x40f3 @0x27
0x40cc…40f5 at0028 = EOL // 0x40f4 @0x28
0x40cc…40f5 }
0x40f5…4112 d700 02960 LET TOT ( 2 ) := TOT ( 2 ) + Q_K
0x40f5…4112 LineComal80 {
0x40f5…4112 ptr = 0xd700 // 0x40f5 @0x0
0x40f5…4112 lno = 0x0b90 // 0x40f7 @0x2
0x40f5…4112 at0004 = ╱86╱ LET ╱ // 0x40f9 @0x4
0x40f5…4112 at0005 = ╱54╱T╱ // 0x40fa @0x5
0x40f5…4112 at0006 = ╱4f╱O╱ // 0x40fb @0x6
0x40f5…4112 at0007 = ╱54╱T╱ // 0x40fc @0x7
0x40f5…4112 at0008 = ╱ed╱ ( ╱ // 0x40fd @0x8
0x40f5…4112 at0009 = ╱32╱2╱ // 0x40fe @0x9
0x40f5…4112 at000a = ╱f20200╱ // 0x40ff @0xa
0x40f5…4112 at000d = ╱ee╱ ) ╱ // 0x4102 @0xd
0x40f5…4112 at000e = ╱f0╱ := ╱ // 0x4103 @0xe
0x40f5…4112 at000f = ╱54╱T╱ // 0x4104 @0xf
0x40f5…4112 at0010 = ╱4f╱O╱ // 0x4105 @0x10
0x40f5…4112 at0011 = ╱54╱T╱ // 0x4106 @0x11
0x40f5…4112 at0012 = ╱ed╱ ( ╱ // 0x4107 @0x12
0x40f5…4112 at0013 = ╱32╱2╱ // 0x4108 @0x13
0x40f5…4112 at0014 = ╱f20200╱ // 0x4109 @0x14
0x40f5…4112 at0017 = ╱ee╱ ) ╱ // 0x410c @0x17
0x40f5…4112 at0018 = ╱e5╱ + ╱ // 0x410d @0x18
0x40f5…4112 at0019 = ╱51╱Q╱ // 0x410e @0x19
0x40f5…4112 at001a = ╱5f╱_╱ // 0x410f @0x1a
0x40f5…4112 at001b = ╱4b╱K╱ // 0x4110 @0x1b
0x40f5…4112 at001c = EOL // 0x4111 @0x1c
0x40f5…4112 }
0x4112…4118 d706 02970 ENDIF
0x4112…4118 LineComal80 {
0x4112…4118 ptr = 0xd706 // 0x4112 @0x0
0x4112…4118 lno = 0x0b9a // 0x4114 @0x2
0x4112…4118 at0004 = ╱9c╱ ENDIF ╱ // 0x4116 @0x4
0x4112…4118 at0005 = EOL // 0x4117 @0x5
0x4112…4118 }
0x4118…4132 d720 02980 PRINT CHR$ ( ABS ( SUM ) , 9 , 2 ) ;
0x4118…4132 LineComal80 {
0x4118…4132 ptr = 0xd720 // 0x4118 @0x0
0x4118…4132 lno = 0x0ba4 // 0x411a @0x2
0x4118…4132 at0004 = ╱92╱ PRINT ╱ // 0x411c @0x4
0x4118…4132 at0005 = ╱d0╱ CHR$ ╱ // 0x411d @0x5
0x4118…4132 at0006 = ╱ed╱ ( ╱ // 0x411e @0x6
0x4118…4132 at0007 = ╱c4╱ ABS ╱ // 0x411f @0x7
0x4118…4132 at0008 = ╱ed╱ ( ╱ // 0x4120 @0x8
0x4118…4132 at0009 = ╱53╱S╱ // 0x4121 @0x9
0x4118…4132 at000a = ╱55╱U╱ // 0x4122 @0xa
0x4118…4132 at000b = ╱4d╱M╱ // 0x4123 @0xb
0x4118…4132 at000c = ╱ee╱ ) ╱ // 0x4124 @0xc
0x4118…4132 at000d = ╱ec╱ , ╱ // 0x4125 @0xd
0x4118…4132 at000e = ╱39╱9╱ // 0x4126 @0xe
0x4118…4132 at000f = ╱f20900╱ // 0x4127 @0xf
0x4118…4132 at0012 = ╱ec╱ , ╱ // 0x412a @0x12
0x4118…4132 at0013 = ╱32╱2╱ // 0x412b @0x13
0x4118…4132 at0014 = ╱f20200╱ // 0x412c @0x14
0x4118…4132 at0017 = ╱ee╱ ) ╱ // 0x412f @0x17
0x4118…4132 at0018 = ╱ea╱ ; ╱ // 0x4130 @0x18
0x4118…4132 at0019 = EOL // 0x4131 @0x19
0x4118…4132 }
0x4132…4142 d730 02981 IF UM < 0 THEN
0x4132…4142 LineComal80 {
0x4132…4142 ptr = 0xd730 // 0x4132 @0x0
0x4132…4142 lno = 0x0ba5 // 0x4134 @0x2
0x4132…4142 at0004 = ╱9b3253╱ IF ╱ // 0x4136 @0x4
0x4132…4142 at0007 = ╱55╱U╱ // 0x4139 @0x7
0x4132…4142 at0008 = ╱4d╱M╱ // 0x413a @0x8
0x4132…4142 at0009 = ╱e0╱ < ╱ // 0x413b @0x9
0x4132…4142 at000a = ╱30╱0╱ // 0x413c @0xa
0x4132…4142 at000b = ╱f20000╱ // 0x413d @0xb
0x4132…4142 at000e = ╱b5╱ THEN ╱ // 0x4140 @0xe
0x4132…4142 at000f = EOL // 0x4141 @0xf
0x4132…4142 }
0x4142…414d d73b 02982 PRINT "…K" ;
0x4142…414d LineComal80 {
0x4142…414d ptr = 0xd73b // 0x4142 @0x0
0x4142…414d lno = 0x0ba6 // 0x4144 @0x2
0x4142…414d at0004 = ╱92╱ PRINT ╱ // 0x4146 @0x4
0x4142…414d at0005 = ╱22╱"╱ // 0x4147 @0x5
0x4142…414d at0006 = ╱20╱…╱ // 0x4148 @0x6
0x4142…414d at0007 = ╱4b╱K╱ // 0x4149 @0x7
0x4142…414d at0008 = ╱22╱"╱ // 0x414a @0x8
0x4142…414d at0009 = ╱ea╱ ; ╱ // 0x414b @0x9
0x4142…414d at000a = EOL // 0x414c @0xa
0x4142…414d }
0x414d…4154 da56 03010 ELSE
0x414d…4154 LineComal80 {
0x414d…4154 ptr = 0xda56 // 0x414d @0x0
0x414d…4154 lno = 0x0bc2 // 0x414f @0x2
0x414d…4154 at0004 = ╱9a33╱ ELSE ╱ // 0x4151 @0x4
0x414d…4154 at0006 = EOL // 0x4153 @0x6
0x414d…4154 }
0x4154…415f d74d 03020 PRINT "…D" ;
0x4154…415f LineComal80 {
0x4154…415f ptr = 0xd74d // 0x4154 @0x0
0x4154…415f lno = 0x0bcc // 0x4156 @0x2
0x4154…415f at0004 = ╱92╱ PRINT ╱ // 0x4158 @0x4
0x4154…415f at0005 = ╱22╱"╱ // 0x4159 @0x5
0x4154…415f at0006 = ╱20╱…╱ // 0x415a @0x6
0x4154…415f at0007 = ╱44╱D╱ // 0x415b @0x7
0x4154…415f at0008 = ╱22╱"╱ // 0x415c @0x8
0x4154…415f at0009 = ╱ea╱ ; ╱ // 0x415d @0x9
0x4154…415f at000a = EOL // 0x415e @0xa
0x4154…415f }
0x415f…4165 d753 03030 ENDIF
0x415f…4165 LineComal80 {
0x415f…4165 ptr = 0xd753 // 0x415f @0x0
0x415f…4165 lno = 0x0bd6 // 0x4161 @0x2
0x415f…4165 at0004 = ╱9c╱ ENDIF ╱ // 0x4163 @0x4
0x415f…4165 at0005 = EOL // 0x4164 @0x5
0x415f…4165 }
0x4165…416b d759 03040 PRINT
0x4165…416b LineComal80 {
0x4165…416b ptr = 0xd759 // 0x4165 @0x0
0x4165…416b lno = 0x0be0 // 0x4167 @0x2
0x4165…416b at0004 = ╱92╱ PRINT ╱ // 0x4169 @0x4
0x4165…416b at0005 = EOL // 0x416a @0x5
0x4165…416b }
0x416b…417a d768 03050 ENDPROC SKRIV_LIN
0x416b…417a LineComal80 {
0x416b…417a ptr = 0xd768 // 0x416b @0x0
0x416b…417a lno = 0x0bea // 0x416d @0x2
0x416b…417a at0004 = ╱9f╱ ENDPROC ╱ // 0x416f @0x4
0x416b…417a at0005 = ╱53╱S╱ // 0x4170 @0x5
0x416b…417a at0006 = ╱4b╱K╱ // 0x4171 @0x6
0x416b…417a at0007 = ╱52╱R╱ // 0x4172 @0x7
0x416b…417a at0008 = ╱49╱I╱ // 0x4173 @0x8
0x416b…417a at0009 = ╱56╱V╱ // 0x4174 @0x9
0x416b…417a at000a = ╱5f╱_╱ // 0x4175 @0xa
0x416b…417a at000b = ╱4c╱L╱ // 0x4176 @0xb
0x416b…417a at000c = ╱49╱I╱ // 0x4177 @0xc
0x416b…417a at000d = ╱4e╱N╱ // 0x4178 @0xd
0x416b…417a at000e = EOL // 0x4179 @0xe
0x416b…417a }
0x417a…417f d76d 03060
0x417a…417f LineComal80 {
0x417a…417f ptr = 0xd76d // 0x417a @0x0
0x417a…417f lno = 0x0bf4 // 0x417c @0x2
0x417a…417f at0004 = EOL // 0x417e @0x4
0x417a…417f }
0x417f…418c d77a 03070 PROC AFSLUT
0x417f…418c LineComal80 {
0x417f…418c ptr = 0xd77a // 0x417f @0x0
0x417f…418c lno = 0x0bfe // 0x4181 @0x2
0x417f…418c at0004 = ╱9e34╱ PROC ╱ // 0x4183 @0x4
0x417f…418c at0006 = ╱41╱A╱ // 0x4185 @0x6
0x417f…418c at0007 = ╱46╱F╱ // 0x4186 @0x7
0x417f…418c at0008 = ╱53╱S╱ // 0x4187 @0x8
0x417f…418c at0009 = ╱4c╱L╱ // 0x4188 @0x9
0x417f…418c at000a = ╱55╱U╱ // 0x4189 @0xa
0x417f…418c at000b = ╱54╱T╱ // 0x418a @0xb
0x417f…418c at000c = EOL // 0x418b @0xc
0x417f…418c }
0x418c…41a9 d797 03080 FOR I := LIN_T TO AX_LIN - 4 DO PRINT
0x418c…41a9 LineComal80 {
0x418c…41a9 ptr = 0xd797 // 0x418c @0x0
0x418c…41a9 lno = 0x0c08 // 0x418e @0x2
0x418c…41a9 at0004 = ╱b400╱ FOR ╱ // 0x4190 @0x4
0x418c…41a9 at0006 = ╱49╱I╱ // 0x4192 @0x6
0x418c…41a9 at0007 = ╱f0╱ := ╱ // 0x4193 @0x7
0x418c…41a9 at0008 = ╱4c╱L╱ // 0x4194 @0x8
0x418c…41a9 at0009 = ╱49╱I╱ // 0x4195 @0x9
0x418c…41a9 at000a = ╱4e╱N╱ // 0x4196 @0xa
0x418c…41a9 at000b = ╱5f╱_╱ // 0x4197 @0xb
0x418c…41a9 at000c = ╱54╱T╱ // 0x4198 @0xc
0x418c…41a9 at000d = ╱b74d╱ TO ╱ // 0x4199 @0xd
0x418c…41a9 at000f = ╱41╱A╱ // 0x419b @0xf
0x418c…41a9 at0010 = ╱58╱X╱ // 0x419c @0x10
0x418c…41a9 at0011 = ╱5f╱_╱ // 0x419d @0x11
0x418c…41a9 at0012 = ╱4c╱L╱ // 0x419e @0x12
0x418c…41a9 at0013 = ╱49╱I╱ // 0x419f @0x13
0x418c…41a9 at0014 = ╱4e╱N╱ // 0x41a0 @0x14
0x418c…41a9 at0015 = ╱e6╱ - ╱ // 0x41a1 @0x15
0x418c…41a9 at0016 = ╱34╱4╱ // 0x41a2 @0x16
0x418c…41a9 at0017 = ╱f20400╱ // 0x41a3 @0x17
0x418c…41a9 at001a = ╱bb╱ DO ╱ // 0x41a6 @0x1a
0x418c…41a9 at001b = ╱92╱ PRINT ╱ // 0x41a7 @0x1b
0x418c…41a9 at001c = EOL // 0x41a8 @0x1c
0x418c…41a9 }
0x41a9…41c1 d7af 03090 LET LIN_T := MAX_LIN - 3
0x41a9…41c1 LineComal80 {
0x41a9…41c1 ptr = 0xd7af // 0x41a9 @0x0
0x41a9…41c1 lno = 0x0c12 // 0x41ab @0x2
0x41a9…41c1 at0004 = ╱86╱ LET ╱ // 0x41ad @0x4
0x41a9…41c1 at0005 = ╱4c╱L╱ // 0x41ae @0x5
0x41a9…41c1 at0006 = ╱49╱I╱ // 0x41af @0x6
0x41a9…41c1 at0007 = ╱4e╱N╱ // 0x41b0 @0x7
0x41a9…41c1 at0008 = ╱5f╱_╱ // 0x41b1 @0x8
0x41a9…41c1 at0009 = ╱54╱T╱ // 0x41b2 @0x9
0x41a9…41c1 at000a = ╱f0╱ := ╱ // 0x41b3 @0xa
0x41a9…41c1 at000b = ╱4d╱M╱ // 0x41b4 @0xb
0x41a9…41c1 at000c = ╱41╱A╱ // 0x41b5 @0xc
0x41a9…41c1 at000d = ╱58╱X╱ // 0x41b6 @0xd
0x41a9…41c1 at000e = ╱5f╱_╱ // 0x41b7 @0xe
0x41a9…41c1 at000f = ╱4c╱L╱ // 0x41b8 @0xf
0x41a9…41c1 at0010 = ╱49╱I╱ // 0x41b9 @0x10
0x41a9…41c1 at0011 = ╱4e╱N╱ // 0x41ba @0x11
0x41a9…41c1 at0012 = ╱e6╱ - ╱ // 0x41bb @0x12
0x41a9…41c1 at0013 = ╱33╱3╱ // 0x41bc @0x13
0x41a9…41c1 at0014 = ╱f20300╱ // 0x41bd @0x14
0x41a9…41c1 at0017 = EOL // 0x41c0 @0x17
0x41a9…41c1 }
0x41c1…41f1 d7df 03100 PRINT "<S>-------------------------------------"
0x41c1…41f1 LineComal80 {
0x41c1…41f1 ptr = 0xd7df // 0x41c1 @0x0
0x41c1…41f1 lno = 0x0c1c // 0x41c3 @0x2
0x41c1…41f1 at0004 = ╱92╱ PRINT ╱ // 0x41c5 @0x4
0x41c1…41f1 at0005 = ╱22╱"╱ // 0x41c6 @0x5
0x41c1…41f1 at0006 = ╱3c╱<╱ // 0x41c7 @0x6
0x41c1…41f1 at0007 = ╱53╱S╱ // 0x41c8 @0x7
0x41c1…41f1 at0008 = ╱3e╱>╱ // 0x41c9 @0x8
0x41c1…41f1 at0009 = ╱2d╱-╱ // 0x41ca @0x9
0x41c1…41f1 at000a = ╱2d╱-╱ // 0x41cb @0xa
0x41c1…41f1 at000b = ╱2d╱-╱ // 0x41cc @0xb
0x41c1…41f1 at000c = ╱2d╱-╱ // 0x41cd @0xc
0x41c1…41f1 at000d = ╱2d╱-╱ // 0x41ce @0xd
0x41c1…41f1 at000e = ╱2d╱-╱ // 0x41cf @0xe
0x41c1…41f1 at000f = ╱2d╱-╱ // 0x41d0 @0xf
0x41c1…41f1 at0010 = ╱2d╱-╱ // 0x41d1 @0x10
0x41c1…41f1 at0011 = ╱2d╱-╱ // 0x41d2 @0x11
0x41c1…41f1 at0012 = ╱2d╱-╱ // 0x41d3 @0x12
0x41c1…41f1 at0013 = ╱2d╱-╱ // 0x41d4 @0x13
0x41c1…41f1 at0014 = ╱2d╱-╱ // 0x41d5 @0x14
0x41c1…41f1 at0015 = ╱2d╱-╱ // 0x41d6 @0x15
0x41c1…41f1 at0016 = ╱2d╱-╱ // 0x41d7 @0x16
0x41c1…41f1 at0017 = ╱2d╱-╱ // 0x41d8 @0x17
0x41c1…41f1 at0018 = ╱2d╱-╱ // 0x41d9 @0x18
0x41c1…41f1 at0019 = ╱2d╱-╱ // 0x41da @0x19
0x41c1…41f1 at001a = ╱2d╱-╱ // 0x41db @0x1a
0x41c1…41f1 at001b = ╱2d╱-╱ // 0x41dc @0x1b
0x41c1…41f1 at001c = ╱2d╱-╱ // 0x41dd @0x1c
0x41c1…41f1 at001d = ╱2d╱-╱ // 0x41de @0x1d
0x41c1…41f1 at001e = ╱2d╱-╱ // 0x41df @0x1e
0x41c1…41f1 at001f = ╱2d╱-╱ // 0x41e0 @0x1f
0x41c1…41f1 at0020 = ╱2d╱-╱ // 0x41e1 @0x20
0x41c1…41f1 at0021 = ╱2d╱-╱ // 0x41e2 @0x21
0x41c1…41f1 at0022 = ╱2d╱-╱ // 0x41e3 @0x22
0x41c1…41f1 at0023 = ╱2d╱-╱ // 0x41e4 @0x23
0x41c1…41f1 at0024 = ╱2d╱-╱ // 0x41e5 @0x24
0x41c1…41f1 at0025 = ╱2d╱-╱ // 0x41e6 @0x25
0x41c1…41f1 at0026 = ╱2d╱-╱ // 0x41e7 @0x26
0x41c1…41f1 at0027 = ╱2d╱-╱ // 0x41e8 @0x27
0x41c1…41f1 at0028 = ╱2d╱-╱ // 0x41e9 @0x28
0x41c1…41f1 at0029 = ╱2d╱-╱ // 0x41ea @0x29
0x41c1…41f1 at002a = ╱2d╱-╱ // 0x41eb @0x2a
0x41c1…41f1 at002b = ╱2d╱-╱ // 0x41ec @0x2b
0x41c1…41f1 at002c = ╱2d╱-╱ // 0x41ed @0x2c
0x41c1…41f1 at002d = ╱2d╱-╱ // 0x41ee @0x2d
0x41c1…41f1 at002e = ╱22╱"╱ // 0x41ef @0x2e
0x41c1…41f1 at002f = EOL // 0x41f0 @0x2f
0x41c1…41f1 }
0x41f1…4220 d80e 03110 PRINT "---------------------------------------"
0x41f1…4220 LineComal80 {
0x41f1…4220 ptr = 0xd80e // 0x41f1 @0x0
0x41f1…4220 lno = 0x0c26 // 0x41f3 @0x2
0x41f1…4220 at0004 = ╱92╱ PRINT ╱ // 0x41f5 @0x4
0x41f1…4220 at0005 = ╱22╱"╱ // 0x41f6 @0x5
0x41f1…4220 at0006 = ╱2d╱-╱ // 0x41f7 @0x6
0x41f1…4220 at0007 = ╱2d╱-╱ // 0x41f8 @0x7
0x41f1…4220 at0008 = ╱2d╱-╱ // 0x41f9 @0x8
0x41f1…4220 at0009 = ╱2d╱-╱ // 0x41fa @0x9
0x41f1…4220 at000a = ╱2d╱-╱ // 0x41fb @0xa
0x41f1…4220 at000b = ╱2d╱-╱ // 0x41fc @0xb
0x41f1…4220 at000c = ╱2d╱-╱ // 0x41fd @0xc
0x41f1…4220 at000d = ╱2d╱-╱ // 0x41fe @0xd
0x41f1…4220 at000e = ╱2d╱-╱ // 0x41ff @0xe
0x41f1…4220 at000f = ╱2d╱-╱ // 0x4200 @0xf
0x41f1…4220 at0010 = ╱2d╱-╱ // 0x4201 @0x10
0x41f1…4220 at0011 = ╱2d╱-╱ // 0x4202 @0x11
0x41f1…4220 at0012 = ╱2d╱-╱ // 0x4203 @0x12
0x41f1…4220 at0013 = ╱2d╱-╱ // 0x4204 @0x13
0x41f1…4220 at0014 = ╱2d╱-╱ // 0x4205 @0x14
0x41f1…4220 at0015 = ╱2d╱-╱ // 0x4206 @0x15
0x41f1…4220 at0016 = ╱2d╱-╱ // 0x4207 @0x16
0x41f1…4220 at0017 = ╱2d╱-╱ // 0x4208 @0x17
0x41f1…4220 at0018 = ╱2d╱-╱ // 0x4209 @0x18
0x41f1…4220 at0019 = ╱2d╱-╱ // 0x420a @0x19
0x41f1…4220 at001a = ╱2d╱-╱ // 0x420b @0x1a
0x41f1…4220 at001b = ╱2d╱-╱ // 0x420c @0x1b
0x41f1…4220 at001c = ╱2d╱-╱ // 0x420d @0x1c
0x41f1…4220 at001d = ╱2d╱-╱ // 0x420e @0x1d
0x41f1…4220 at001e = ╱2d╱-╱ // 0x420f @0x1e
0x41f1…4220 at001f = ╱2d╱-╱ // 0x4210 @0x1f
0x41f1…4220 at0020 = ╱2d╱-╱ // 0x4211 @0x20
0x41f1…4220 at0021 = ╱2d╱-╱ // 0x4212 @0x21
0x41f1…4220 at0022 = ╱2d╱-╱ // 0x4213 @0x22
0x41f1…4220 at0023 = ╱2d╱-╱ // 0x4214 @0x23
0x41f1…4220 at0024 = ╱2d╱-╱ // 0x4215 @0x24
0x41f1…4220 at0025 = ╱2d╱-╱ // 0x4216 @0x25
0x41f1…4220 at0026 = ╱2d╱-╱ // 0x4217 @0x26
0x41f1…4220 at0027 = ╱2d╱-╱ // 0x4218 @0x27
0x41f1…4220 at0028 = ╱2d╱-╱ // 0x4219 @0x28
0x41f1…4220 at0029 = ╱2d╱-╱ // 0x421a @0x29
0x41f1…4220 at002a = ╱2d╱-╱ // 0x421b @0x2a
0x41f1…4220 at002b = ╱2d╱-╱ // 0x421c @0x2b
0x41f1…4220 at002c = ╱2d╱-╱ // 0x421d @0x2c
0x41f1…4220 at002d = ╱22╱"╱ // 0x421e @0x2d
0x41f1…4220 at002e = EOL // 0x421f @0x2e
0x41f1…4220 }
0x4220…4234 d822 03120 IF UT_WAY $ = "P" THEN
0x4220…4234 LineComal80 {
0x4220…4234 ptr = 0xd822 // 0x4220 @0x0
0x4220…4234 lno = 0x0c30 // 0x4222 @0x2
0x4220…4234 at0004 = ╱9b354f╱ IF ╱ // 0x4224 @0x4
0x4220…4234 at0007 = ╱55╱U╱ // 0x4227 @0x7
0x4220…4234 at0008 = ╱54╱T╱ // 0x4228 @0x8
0x4220…4234 at0009 = ╱5f╱_╱ // 0x4229 @0x9
0x4220…4234 at000a = ╱57╱W╱ // 0x422a @0xa
0x4220…4234 at000b = ╱41╱A╱ // 0x422b @0xb
0x4220…4234 at000c = ╱59╱Y╱ // 0x422c @0xc
0x4220…4234 at000d = ╱ef╱ $ ╱ // 0x422d @0xd
0x4220…4234 at000e = ╱df╱ = ╱ // 0x422e @0xe
0x4220…4234 at000f = ╱22╱"╱ // 0x422f @0xf
0x4220…4234 at0010 = ╱50╱P╱ // 0x4230 @0x10
0x4220…4234 at0011 = ╱22╱"╱ // 0x4231 @0x11
0x4220…4234 at0012 = ╱b5╱ THEN ╱ // 0x4232 @0x12
0x4220…4234 at0013 = EOL // 0x4233 @0x13
0x4220…4234 }
0x4234…423a d828 03130 PRINT
0x4234…423a LineComal80 {
0x4234…423a ptr = 0xd828 // 0x4234 @0x0
0x4234…423a lno = 0x0c3a // 0x4236 @0x2
0x4234…423a at0004 = ╱92╱ PRINT ╱ // 0x4238 @0x4
0x4234…423a at0005 = EOL // 0x4239 @0x5
0x4234…423a }
0x423a…4240 d82e 03140 PRINT
0x423a…4240 LineComal80 {
0x423a…4240 ptr = 0xd82e // 0x423a @0x0
0x423a…4240 lno = 0x0c44 // 0x423c @0x2
0x423a…4240 at0004 = ╱92╱ PRINT ╱ // 0x423e @0x4
0x423a…4240 at0005 = EOL // 0x423f @0x5
0x423a…4240 }
0x4240…4246 d834 03150 PRINT
0x4240…4246 LineComal80 {
0x4240…4246 ptr = 0xd834 // 0x4240 @0x0
0x4240…4246 lno = 0x0c4e // 0x4242 @0x2
0x4240…4246 at0004 = ╱92╱ PRINT ╱ // 0x4244 @0x4
0x4240…4246 at0005 = EOL // 0x4245 @0x5
0x4240…4246 }
0x4246…424c d83a 03160 ENDIF
0x4246…424c LineComal80 {
0x4246…424c ptr = 0xd83a // 0x4246 @0x0
0x4246…424c lno = 0x0c58 // 0x4248 @0x2
0x4246…424c at0004 = ╱9c╱ ENDIF ╱ // 0x424a @0x4
0x4246…424c at0005 = EOL // 0x424b @0x5
0x4246…424c }
0x424c…4258 d846 03170 ENDPROC AFSLUT
0x424c…4258 LineComal80 {
0x424c…4258 ptr = 0xd846 // 0x424c @0x0
0x424c…4258 lno = 0x0c62 // 0x424e @0x2
0x424c…4258 at0004 = ╱9f╱ ENDPROC ╱ // 0x4250 @0x4
0x424c…4258 at0005 = ╱41╱A╱ // 0x4251 @0x5
0x424c…4258 at0006 = ╱46╱F╱ // 0x4252 @0x6
0x424c…4258 at0007 = ╱53╱S╱ // 0x4253 @0x7
0x424c…4258 at0008 = ╱4c╱L╱ // 0x4254 @0x8
0x424c…4258 at0009 = ╱55╱U╱ // 0x4255 @0x9
0x424c…4258 at000a = ╱54╱T╱ // 0x4256 @0xa
0x424c…4258 at000b = EOL // 0x4257 @0xb
0x424c…4258 }
0x4258…4272 d860 03180 PROC FIND_KTO ( REF R_KTONR $ )
0x4258…4272 LineComal80 {
0x4258…4272 ptr = 0xd860 // 0x4258 @0x0
0x4258…4272 lno = 0x0c6c // 0x425a @0x2
0x4258…4272 at0004 = ╱9e36╱ PROC ╱ // 0x425c @0x4
0x4258…4272 at0006 = ╱46╱F╱ // 0x425e @0x6
0x4258…4272 at0007 = ╱49╱I╱ // 0x425f @0x7
0x4258…4272 at0008 = ╱4e╱N╱ // 0x4260 @0x8
0x4258…4272 at0009 = ╱44╱D╱ // 0x4261 @0x9
0x4258…4272 at000a = ╱5f╱_╱ // 0x4262 @0xa
0x4258…4272 at000b = ╱4b╱K╱ // 0x4263 @0xb
0x4258…4272 at000c = ╱54╱T╱ // 0x4264 @0xc
0x4258…4272 at000d = ╱4f╱O╱ // 0x4265 @0xd
0x4258…4272 at000e = ╱ed╱ ( ╱ // 0x4266 @0xe
0x4258…4272 at000f = ╱b6╱ REF ╱ // 0x4267 @0xf
0x4258…4272 at0010 = ╱52╱R╱ // 0x4268 @0x10
0x4258…4272 at0011 = ╱5f╱_╱ // 0x4269 @0x11
0x4258…4272 at0012 = ╱4b╱K╱ // 0x426a @0x12
0x4258…4272 at0013 = ╱54╱T╱ // 0x426b @0x13
0x4258…4272 at0014 = ╱4f╱O╱ // 0x426c @0x14
0x4258…4272 at0015 = ╱4e╱N╱ // 0x426d @0x15
0x4258…4272 at0016 = ╱52╱R╱ // 0x426e @0x16
0x4258…4272 at0017 = ╱ef╱ $ ╱ // 0x426f @0x17
0x4258…4272 at0018 = ╱ee╱ ) ╱ // 0x4270 @0x18
0x4258…4272 at0019 = EOL // 0x4271 @0x19
0x4258…4272 }
0x4272…4280 d86e 03190 LET OK := FALSE
0x4272…4280 LineComal80 {
0x4272…4280 ptr = 0xd86e // 0x4272 @0x0
0x4272…4280 lno = 0x0c76 // 0x4274 @0x2
0x4272…4280 at0004 = ╱86╱ LET ╱ // 0x4276 @0x4
0x4272…4280 at0005 = ╱4f╱O╱ // 0x4277 @0x5
0x4272…4280 at0006 = ╱4b╱K╱ // 0x4278 @0x6
0x4272…4280 at0007 = ╱f0╱ := ╱ // 0x4279 @0x7
0x4272…4280 at0008 = ╱46╱F╱ // 0x427a @0x8
0x4272…4280 at0009 = ╱41╱A╱ // 0x427b @0x9
0x4272…4280 at000a = ╱4c╱L╱ // 0x427c @0xa
0x4272…4280 at000b = ╱53╱S╱ // 0x427d @0xb
0x4272…4280 at000c = ╱45╱E╱ // 0x427e @0xc
0x4272…4280 at000d = EOL // 0x427f @0xd
0x4272…4280 }
0x4280…42a4 d892 03200 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
0x4280…42a4 LineComal80 {
0x4280…42a4 ptr = 0xd892 // 0x4280 @0x0
0x4280…42a4 lno = 0x0c80 // 0x4282 @0x2
0x4280…42a4 at0004 = ╱a9╱ GET ╱ // 0x4284 @0x4
0x4280…42a4 at0005 = ╱4b╱K╱ // 0x4285 @0x5
0x4280…42a4 at0006 = ╱54╱T╱ // 0x4286 @0x6
0x4280…42a4 at0007 = ╱4f╱O╱ // 0x4287 @0x7
0x4280…42a4 at0008 = ╱49╱I╱ // 0x4288 @0x8
0x4280…42a4 at0009 = ╱44╱D╱ // 0x4289 @0x9
0x4280…42a4 at000a = ╱58╱X╱ // 0x428a @0xa
0x4280…42a4 at000b = ╱ef╱ $ ╱ // 0x428b @0xb
0x4280…42a4 at000c = ╱ec╱ , ╱ // 0x428c @0xc
0x4280…42a4 at000d = ╱31╱1╱ // 0x428d @0xd
0x4280…42a4 at000e = ╱f20100╱ // 0x428e @0xe
0x4280…42a4 at0011 = ╱f1╱ : ╱ // 0x4291 @0x11
0x4280…42a4 at0012 = ╱49╱I╱ // 0x4292 @0x12
0x4280…42a4 at0013 = ╱5f╱_╱ // 0x4293 @0x13
0x4280…42a4 at0014 = ╱48╱H╱ // 0x4294 @0x14
0x4280…42a4 at0015 = ╱5c╱\╱ // 0x4295 @0x15
0x4280…42a4 at0016 = ╱4a╱J╱ // 0x4296 @0x16
0x4280…42a4 at0017 = ╱52╱R╱ // 0x4297 @0x17
0x4280…42a4 at0018 = ╱45╱E╱ // 0x4298 @0x18
0x4280…42a4 at0019 = ╱43╱C╱ // 0x4299 @0x19
0x4280…42a4 at001a = ╱ec╱ , ╱ // 0x429a @0x1a
0x4280…42a4 at001b = ╱49╱I╱ // 0x429b @0x1b
0x4280…42a4 at001c = ╱5f╱_╱ // 0x429c @0x1c
0x4280…42a4 at001d = ╱4d╱M╱ // 0x429d @0x1d
0x4280…42a4 at001e = ╱41╱A╱ // 0x429e @0x1e
0x4280…42a4 at001f = ╱58╱X╱ // 0x429f @0x1f
0x4280…42a4 at0020 = ╱52╱R╱ // 0x42a0 @0x20
0x4280…42a4 at0021 = ╱45╱E╱ // 0x42a1 @0x21
0x4280…42a4 at0022 = ╱43╱C╱ // 0x42a2 @0x22
0x4280…42a4 at0023 = EOL // 0x42a3 @0x23
0x4280…42a4 }
0x42a4…42c9 d8b7 03210 LET LOW := 1 ; HIGH := I_H\JREC ; POS := 2
0x42a4…42c9 LineComal80 {
0x42a4…42c9 ptr = 0xd8b7 // 0x42a4 @0x0
0x42a4…42c9 lno = 0x0c8a // 0x42a6 @0x2
0x42a4…42c9 at0004 = ╱86╱ LET ╱ // 0x42a8 @0x4
0x42a4…42c9 at0005 = ╱4c╱L╱ // 0x42a9 @0x5
0x42a4…42c9 at0006 = ╱4f╱O╱ // 0x42aa @0x6
0x42a4…42c9 at0007 = ╱57╱W╱ // 0x42ab @0x7
0x42a4…42c9 at0008 = ╱f0╱ := ╱ // 0x42ac @0x8
0x42a4…42c9 at0009 = ╱31╱1╱ // 0x42ad @0x9
0x42a4…42c9 at000a = ╱f20100╱ // 0x42ae @0xa
0x42a4…42c9 at000d = ╱ea╱ ; ╱ // 0x42b1 @0xd
0x42a4…42c9 at000e = ╱48╱H╱ // 0x42b2 @0xe
0x42a4…42c9 at000f = ╱49╱I╱ // 0x42b3 @0xf
0x42a4…42c9 at0010 = ╱47╱G╱ // 0x42b4 @0x10
0x42a4…42c9 at0011 = ╱48╱H╱ // 0x42b5 @0x11
0x42a4…42c9 at0012 = ╱f0╱ := ╱ // 0x42b6 @0x12
0x42a4…42c9 at0013 = ╱49╱I╱ // 0x42b7 @0x13
0x42a4…42c9 at0014 = ╱5f╱_╱ // 0x42b8 @0x14
0x42a4…42c9 at0015 = ╱48╱H╱ // 0x42b9 @0x15
0x42a4…42c9 at0016 = ╱5c╱\╱ // 0x42ba @0x16
0x42a4…42c9 at0017 = ╱4a╱J╱ // 0x42bb @0x17
0x42a4…42c9 at0018 = ╱52╱R╱ // 0x42bc @0x18
0x42a4…42c9 at0019 = ╱45╱E╱ // 0x42bd @0x19
0x42a4…42c9 at001a = ╱43╱C╱ // 0x42be @0x1a
0x42a4…42c9 at001b = ╱ea╱ ; ╱ // 0x42bf @0x1b
0x42a4…42c9 at001c = ╱50╱P╱ // 0x42c0 @0x1c
0x42a4…42c9 at001d = ╱4f╱O╱ // 0x42c1 @0x1d
0x42a4…42c9 at001e = ╱53╱S╱ // 0x42c2 @0x1e
0x42a4…42c9 at001f = ╱f0╱ := ╱ // 0x42c3 @0x1f
0x42a4…42c9 at0020 = ╱32╱2╱ // 0x42c4 @0x20
0x42a4…42c9 at0021 = ╱f20200╱ // 0x42c5 @0x21
0x42a4…42c9 at0024 = EOL // 0x42c8 @0x24
0x42a4…42c9 }
0x42c9…42da d8c8 03220 IF IGH > 1 THEN
0x42c9…42da LineComal80 {
0x42c9…42da ptr = 0xd8c8 // 0x42c9 @0x0
0x42c9…42da lno = 0x0c94 // 0x42cb @0x2
0x42c9…42da at0004 = ╱9b3748╱ IF ╱ // 0x42cd @0x4
0x42c9…42da at0007 = ╱49╱I╱ // 0x42d0 @0x7
0x42c9…42da at0008 = ╱47╱G╱ // 0x42d1 @0x8
0x42c9…42da at0009 = ╱48╱H╱ // 0x42d2 @0x9
0x42c9…42da at000a = ╱e1╱ > ╱ // 0x42d3 @0xa
0x42c9…42da at000b = ╱31╱1╱ // 0x42d4 @0xb
0x42c9…42da at000c = ╱f20100╱ // 0x42d5 @0xc
0x42c9…42da at000f = ╱b5╱ THEN ╱ // 0x42d8 @0xf
0x42c9…42da at0010 = EOL // 0x42d9 @0x10
0x42c9…42da }
0x42da…42e1 d8cf 03230 REPEAT
0x42da…42e1 LineComal80 {
0x42da…42e1 ptr = 0xd8cf // 0x42da @0x0
0x42da…42e1 lno = 0x0c9e // 0x42dc @0x2
0x42da…42e1 at0004 = ╱9738╱ REPEAT ╱ // 0x42de @0x4
0x42da…42e1 at0006 = EOL // 0x42e0 @0x6
0x42da…42e1 }
0x42e1…430d d8fb 03240 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
0x42e1…430d LineComal80 {
0x42e1…430d ptr = 0xd8fb // 0x42e1 @0x0
0x42e1…430d lno = 0x0ca8 // 0x42e3 @0x2
0x42e1…430d at0004 = ╱86╱ LET ╱ // 0x42e5 @0x4
0x42e1…430d at0005 = ╱50╱P╱ // 0x42e6 @0x5
0x42e1…430d at0006 = ╱4f╱O╱ // 0x42e7 @0x6
0x42e1…430d at0007 = ╱53╱S╱ // 0x42e8 @0x7
0x42e1…430d at0008 = ╱f0╱ := ╱ // 0x42e9 @0x8
0x42e1…430d at0009 = ╱c6╱ INT ╱ // 0x42ea @0x9
0x42e1…430d at000a = ╱ed╱ ( ╱ // 0x42eb @0xa
0x42e1…430d at000b = ╱ed╱ ( ╱ // 0x42ec @0xb
0x42e1…430d at000c = ╱48╱H╱ // 0x42ed @0xc
0x42e1…430d at000d = ╱49╱I╱ // 0x42ee @0xd
0x42e1…430d at000e = ╱47╱G╱ // 0x42ef @0xe
0x42e1…430d at000f = ╱48╱H╱ // 0x42f0 @0xf
0x42e1…430d at0010 = ╱e6╱ - ╱ // 0x42f1 @0x10
0x42e1…430d at0011 = ╱4c╱L╱ // 0x42f2 @0x11
0x42e1…430d at0012 = ╱4f╱O╱ // 0x42f3 @0x12
0x42e1…430d at0013 = ╱57╱W╱ // 0x42f4 @0x13
0x42e1…430d at0014 = ╱ee╱ ) ╱ // 0x42f5 @0x14
0x42e1…430d at0015 = ╱e8╱ / ╱ // 0x42f6 @0x15
0x42e1…430d at0016 = ╱32╱2╱ // 0x42f7 @0x16
0x42e1…430d at0017 = ╱f20200╱ // 0x42f8 @0x17
0x42e1…430d at001a = ╱e5╱ + ╱ // 0x42fb @0x1a
0x42e1…430d at001b = ╱2e╱.╱ // 0x42fc @0x1b
0x42e1…430d at001c = ╱35╱5╱ // 0x42fd @0x1c
0x42e1…430d at001d = ╱f88000000000000005╱ // 0x42fe @0x1d
0x42e1…430d at0026 = ╱ee╱ ) ╱ // 0x4307 @0x26
0x42e1…430d at0027 = ╱e5╱ + ╱ // 0x4308 @0x27
0x42e1…430d at0028 = ╱4c╱L╱ // 0x4309 @0x28
0x42e1…430d at0029 = ╱4f╱O╱ // 0x430a @0x29
0x42e1…430d at002a = ╱57╱W╱ // 0x430b @0x2a
0x42e1…430d at002b = EOL // 0x430c @0x2b
0x42e1…430d }
0x430d…432b d03f 03250 GET KTOIDX $ , POS : KTONR $ , RECNR
0x430d…432b LineComal80 {
0x430d…432b ptr = 0xd03f // 0x430d @0x0
0x430d…432b lno = 0x0cb2 // 0x430f @0x2
0x430d…432b at0004 = ╱a9╱ GET ╱ // 0x4311 @0x4
0x430d…432b at0005 = ╱4b╱K╱ // 0x4312 @0x5
0x430d…432b at0006 = ╱54╱T╱ // 0x4313 @0x6
0x430d…432b at0007 = ╱4f╱O╱ // 0x4314 @0x7
0x430d…432b at0008 = ╱49╱I╱ // 0x4315 @0x8
0x430d…432b at0009 = ╱44╱D╱ // 0x4316 @0x9
0x430d…432b at000a = ╱58╱X╱ // 0x4317 @0xa
0x430d…432b at000b = ╱ef╱ $ ╱ // 0x4318 @0xb
0x430d…432b at000c = ╱ec╱ , ╱ // 0x4319 @0xc
0x430d…432b at000d = ╱50╱P╱ // 0x431a @0xd
0x430d…432b at000e = ╱4f╱O╱ // 0x431b @0xe
0x430d…432b at000f = ╱53╱S╱ // 0x431c @0xf
0x430d…432b at0010 = ╱f1╱ : ╱ // 0x431d @0x10
0x430d…432b at0011 = ╱4b╱K╱ // 0x431e @0x11
0x430d…432b at0012 = ╱54╱T╱ // 0x431f @0x12
0x430d…432b at0013 = ╱4f╱O╱ // 0x4320 @0x13
0x430d…432b at0014 = ╱4e╱N╱ // 0x4321 @0x14
0x430d…432b at0015 = ╱52╱R╱ // 0x4322 @0x15
0x430d…432b at0016 = ╱ef╱ $ ╱ // 0x4323 @0x16
0x430d…432b at0017 = ╱ec╱ , ╱ // 0x4324 @0x17
0x430d…432b at0018 = ╱52╱R╱ // 0x4325 @0x18
0x430d…432b at0019 = ╱45╱E╱ // 0x4326 @0x19
0x430d…432b at001a = ╱43╱C╱ // 0x4327 @0x1a
0x430d…432b at001b = ╱4e╱N╱ // 0x4328 @0x1b
0x430d…432b at001c = ╱52╱R╱ // 0x4329 @0x1c
0x430d…432b at001d = EOL // 0x432a @0x1d
0x430d…432b }
0x432b…437f 3239 12594 38 ╱00╱ ╱00╱ ╱06╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ …… ╱00╱ ╱00╱ ╱05╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ODLAS…LEMMAG ╱00╱ ╱00╱ ╱14╱ ╱00╱ m AND h ╱0b╱ PRINT TAB ( 40 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 65 ) ;
0x432b…437f LineComal80 {
0x432b…437f ptr = 0x3239 // 0x432b @0x0
0x432b…437f lno = 0x3132 // 0x432d @0x2
0x432b…437f at0004 = ╱33╱3╱ // 0x432f @0x4
0x432b…437f at0005 = ╱38╱8╱ // 0x4330 @0x5
0x432b…437f at0006 = ╱00╱ // 0x4331 @0x6
0x432b…437f at0007 = ╱00╱ // 0x4332 @0x7
0x432b…437f at0008 = ╱06╱ // 0x4333 @0x8
0x432b…437f at0009 = ╱00╱ // 0x4334 @0x9
0x432b…437f at000a = ╱1f╱ // 0x4335 @0xa
0x432b…437f at000b = ╱1f╱ // 0x4336 @0xb
0x432b…437f at000c = ╱1f╱ // 0x4337 @0xc
0x432b…437f at000d = ╱20╱…╱ // 0x4338 @0xd
0x432b…437f at000e = ╱20╱…╱ // 0x4339 @0xe
0x432b…437f at000f = ╱00╱ // 0x433a @0xf
0x432b…437f at0010 = ╱00╱ // 0x433b @0x10
0x432b…437f at0011 = ╱05╱ // 0x433c @0x11
0x432b…437f at0012 = ╱00╱ // 0x433d @0x12
0x432b…437f at0013 = ╱1f╱ // 0x433e @0x13
0x432b…437f at0014 = ╱1f╱ // 0x433f @0x14
0x432b…437f at0015 = ╱1f╱ // 0x4340 @0x15
0x432b…437f at0016 = ╱1f╱ // 0x4341 @0x16
0x432b…437f at0017 = ╱1f╱ // 0x4342 @0x17
0x432b…437f at0018 = ╱1f╱ // 0x4343 @0x18
0x432b…437f at0019 = ╱1f╱ // 0x4344 @0x19
0x432b…437f at001a = ╱1f╱ // 0x4345 @0x1a
0x432b…437f at001b = ╱4f╱O╱ // 0x4346 @0x1b
0x432b…437f at001c = ╱44╱D╱ // 0x4347 @0x1c
0x432b…437f at001d = ╱4c╱L╱ // 0x4348 @0x1d
0x432b…437f at001e = ╱41╱A╱ // 0x4349 @0x1e
0x432b…437f at001f = ╱53╱S╱ // 0x434a @0x1f
0x432b…437f at0020 = ╱20╱…╱ // 0x434b @0x20
0x432b…437f at0021 = ╱4c╱L╱ // 0x434c @0x21
0x432b…437f at0022 = ╱45╱E╱ // 0x434d @0x22
0x432b…437f at0023 = ╱4d╱M╱ // 0x434e @0x23
0x432b…437f at0024 = ╱4d╱M╱ // 0x434f @0x24
0x432b…437f at0025 = ╱41╱A╱ // 0x4350 @0x25
0x432b…437f at0026 = ╱47╱G╱ // 0x4351 @0x26
0x432b…437f at0027 = ╱00╱ // 0x4352 @0x27
0x432b…437f at0028 = ╱00╱ // 0x4353 @0x28
0x432b…437f at0029 = ╱14╱ // 0x4354 @0x29
0x432b…437f at002a = ╱00╱ // 0x4355 @0x2a
0x432b…437f at002b = ╱6d╱m╱ // 0x4356 @0x2b
0x432b…437f at002c = ╱d9╱ AND ╱ // 0x4357 @0x2c
0x432b…437f at002d = ╱68╱h╱ // 0x4358 @0x2d
0x432b…437f at002e = ╱0b╱ // 0x4359 @0x2e
0x432b…437f at002f = ╱92╱ PRINT ╱ // 0x435a @0x2f
0x432b…437f at0030 = ╱d2╱ TAB ╱ // 0x435b @0x30
0x432b…437f at0031 = ╱ed╱ ( ╱ // 0x435c @0x31
0x432b…437f at0032 = ╱34╱4╱ // 0x435d @0x32
0x432b…437f at0033 = ╱30╱0╱ // 0x435e @0x33
0x432b…437f at0034 = ╱f22800╱ // 0x435f @0x34
0x432b…437f at0037 = ╱ee╱ ) ╱ // 0x4362 @0x37
0x432b…437f at0038 = ╱ea╱ ; ╱ // 0x4363 @0x38
0x432b…437f at0039 = ╱d0╱ CHR$ ╱ // 0x4364 @0x39
0x432b…437f at003a = ╱ed╱ ( ╱ // 0x4365 @0x3a
0x432b…437f at003b = ╱51╱Q╱ // 0x4366 @0x3b
0x432b…437f at003c = ╱5f╱_╱ // 0x4367 @0x3c
0x432b…437f at003d = ╱4b╱K╱ // 0x4368 @0x3d
0x432b…437f at003e = ╱ec╱ , ╱ // 0x4369 @0x3e
0x432b…437f at003f = ╱39╱9╱ // 0x436a @0x3f
0x432b…437f at0040 = ╱f20900╱ // 0x436b @0x40
0x432b…437f at0043 = ╱ec╱ , ╱ // 0x436e @0x43
0x432b…437f at0044 = ╱32╱2╱ // 0x436f @0x44
0x432b…437f at0045 = ╱f20200╱ // 0x4370 @0x45
0x432b…437f at0048 = ╱ee╱ ) ╱ // 0x4373 @0x48
0x432b…437f at0049 = ╱ea╱ ; ╱ // 0x4374 @0x49
0x432b…437f at004a = ╱d2╱ TAB ╱ // 0x4375 @0x4a
0x432b…437f at004b = ╱ed╱ ( ╱ // 0x4376 @0x4b
0x432b…437f at004c = ╱36╱6╱ // 0x4377 @0x4c
0x432b…437f at004d = ╱35╱5╱ // 0x4378 @0x4d
0x432b…437f at004e = ╱f24100╱ // 0x4379 @0x4e
0x432b…437f at0051 = ╱ee╱ ) ╱ // 0x437c @0x51
0x432b…437f at0052 = ╱ea╱ ; ╱ // 0x437d @0x52
0x432b…437f at0053 = EOL // 0x437e @0x53
0x432b…437f }
0x437f…439c d98a 02930 LET TOT ( 1 ) := TOT ( 1 ) + Q_K
0x437f…439c LineComal80 {
0x437f…439c ptr = 0xd98a // 0x437f @0x0
0x437f…439c lno = 0x0b72 // 0x4381 @0x2
0x437f…439c at0004 = ╱86╱ LET ╱ // 0x4383 @0x4
0x437f…439c at0005 = ╱54╱T╱ // 0x4384 @0x5
0x437f…439c at0006 = ╱4f╱O╱ // 0x4385 @0x6
0x437f…439c at0007 = ╱54╱T╱ // 0x4386 @0x7
0x437f…439c at0008 = ╱ed╱ ( ╱ // 0x4387 @0x8
0x437f…439c at0009 = ╱31╱1╱ // 0x4388 @0x9
0x437f…439c at000a = ╱f20100╱ // 0x4389 @0xa
0x437f…439c at000d = ╱ee╱ ) ╱ // 0x438c @0xd
0x437f…439c at000e = ╱f0╱ := ╱ // 0x438d @0xe
0x437f…439c at000f = ╱54╱T╱ // 0x438e @0xf
0x437f…439c at0010 = ╱4f╱O╱ // 0x438f @0x10
0x437f…439c at0011 = ╱54╱T╱ // 0x4390 @0x11
0x437f…439c at0012 = ╱ed╱ ( ╱ // 0x4391 @0x12
0x437f…439c at0013 = ╱31╱1╱ // 0x4392 @0x13
0x437f…439c at0014 = ╱f20100╱ // 0x4393 @0x14
0x437f…439c at0017 = ╱ee╱ ) ╱ // 0x4396 @0x17
0x437f…439c at0018 = ╱e5╱ + ╱ // 0x4397 @0x18
0x437f…439c at0019 = ╱51╱Q╱ // 0x4398 @0x19
0x437f…439c at001a = ╱5f╱_╱ // 0x4399 @0x1a
0x437f…439c at001b = ╱4b╱K╱ // 0x439a @0x1b
0x437f…439c at001c = EOL // 0x439b @0x1c
0x437f…439c }
0x439c…43a3 d991 02940 ELSE
0x439c…43a3 LineComal80 {
0x439c…43a3 ptr = 0xd991 // 0x439c @0x0
0x439c…43a3 lno = 0x0b7c // 0x439e @0x2
0x439c…43a3 at0004 = ╱9a31╱ ELSE ╱ // 0x43a0 @0x4
0x439c…43a3 at0006 = EOL // 0x43a2 @0x6
0x439c…43a3 }
0x43a3…43cc d9ba 02950 PRINT TAB ( 53 ) ; CHR$ ( Q_K , 9 , 2 ) ; TAB ( 65 ) ;
0x43a3…43cc LineComal80 {
0x43a3…43cc ptr = 0xd9ba // 0x43a3 @0x0
0x43a3…43cc lno = 0x0b86 // 0x43a5 @0x2
0x43a3…43cc at0004 = ╱92╱ PRINT ╱ // 0x43a7 @0x4
0x43a3…43cc at0005 = ╱d2╱ TAB ╱ // 0x43a8 @0x5
0x43a3…43cc at0006 = ╱ed╱ ( ╱ // 0x43a9 @0x6
0x43a3…43cc at0007 = ╱35╱5╱ // 0x43aa @0x7
0x43a3…43cc at0008 = ╱33╱3╱ // 0x43ab @0x8
0x43a3…43cc at0009 = ╱f23500╱ // 0x43ac @0x9
0x43a3…43cc at000c = ╱ee╱ ) ╱ // 0x43af @0xc
0x43a3…43cc at000d = ╱ea╱ ; ╱ // 0x43b0 @0xd
0x43a3…43cc at000e = ╱d0╱ CHR$ ╱ // 0x43b1 @0xe
0x43a3…43cc at000f = ╱ed╱ ( ╱ // 0x43b2 @0xf
0x43a3…43cc at0010 = ╱51╱Q╱ // 0x43b3 @0x10
0x43a3…43cc at0011 = ╱5f╱_╱ // 0x43b4 @0x11
0x43a3…43cc at0012 = ╱4b╱K╱ // 0x43b5 @0x12
0x43a3…43cc at0013 = ╱ec╱ , ╱ // 0x43b6 @0x13
0x43a3…43cc at0014 = ╱39╱9╱ // 0x43b7 @0x14
0x43a3…43cc at0015 = ╱f20900╱ // 0x43b8 @0x15
0x43a3…43cc at0018 = ╱ec╱ , ╱ // 0x43bb @0x18
0x43a3…43cc at0019 = ╱32╱2╱ // 0x43bc @0x19
0x43a3…43cc at001a = ╱f20200╱ // 0x43bd @0x1a
0x43a3…43cc at001d = ╱ee╱ ) ╱ // 0x43c0 @0x1d
0x43a3…43cc at001e = ╱ea╱ ; ╱ // 0x43c1 @0x1e
0x43a3…43cc at001f = ╱d2╱ TAB ╱ // 0x43c2 @0x1f
0x43a3…43cc at0020 = ╱ed╱ ( ╱ // 0x43c3 @0x20
0x43a3…43cc at0021 = ╱36╱6╱ // 0x43c4 @0x21
0x43a3…43cc at0022 = ╱35╱5╱ // 0x43c5 @0x22
0x43a3…43cc at0023 = ╱f24100╱ // 0x43c6 @0x23
0x43a3…43cc at0026 = ╱ee╱ ) ╱ // 0x43c9 @0x26
0x43a3…43cc at0027 = ╱ea╱ ; ╱ // 0x43ca @0x27
0x43a3…43cc at0028 = EOL // 0x43cb @0x28
0x43a3…43cc }
0x43cc…43e9 d9d7 02960 LET TOT ( 2 ) := TOT ( 2 ) + Q_K
0x43cc…43e9 LineComal80 {
0x43cc…43e9 ptr = 0xd9d7 // 0x43cc @0x0
0x43cc…43e9 lno = 0x0b90 // 0x43ce @0x2
0x43cc…43e9 at0004 = ╱86╱ LET ╱ // 0x43d0 @0x4
0x43cc…43e9 at0005 = ╱54╱T╱ // 0x43d1 @0x5
0x43cc…43e9 at0006 = ╱4f╱O╱ // 0x43d2 @0x6
0x43cc…43e9 at0007 = ╱54╱T╱ // 0x43d3 @0x7
0x43cc…43e9 at0008 = ╱ed╱ ( ╱ // 0x43d4 @0x8
0x43cc…43e9 at0009 = ╱32╱2╱ // 0x43d5 @0x9
0x43cc…43e9 at000a = ╱f20200╱ // 0x43d6 @0xa
0x43cc…43e9 at000d = ╱ee╱ ) ╱ // 0x43d9 @0xd
0x43cc…43e9 at000e = ╱f0╱ := ╱ // 0x43da @0xe
0x43cc…43e9 at000f = ╱54╱T╱ // 0x43db @0xf
0x43cc…43e9 at0010 = ╱4f╱O╱ // 0x43dc @0x10
0x43cc…43e9 at0011 = ╱54╱T╱ // 0x43dd @0x11
0x43cc…43e9 at0012 = ╱ed╱ ( ╱ // 0x43de @0x12
0x43cc…43e9 at0013 = ╱32╱2╱ // 0x43df @0x13
0x43cc…43e9 at0014 = ╱f20200╱ // 0x43e0 @0x14
0x43cc…43e9 at0017 = ╱ee╱ ) ╱ // 0x43e3 @0x17
0x43cc…43e9 at0018 = ╱e5╱ + ╱ // 0x43e4 @0x18
0x43cc…43e9 at0019 = ╱51╱Q╱ // 0x43e5 @0x19
0x43cc…43e9 at001a = ╱5f╱_╱ // 0x43e6 @0x1a
0x43cc…43e9 at001b = ╱4b╱K╱ // 0x43e7 @0x1b
0x43cc…43e9 at001c = EOL // 0x43e8 @0x1c
0x43cc…43e9 }
0x43e9…43ef d9dd 02970 ENDIF
0x43e9…43ef LineComal80 {
0x43e9…43ef ptr = 0xd9dd // 0x43e9 @0x0
0x43e9…43ef lno = 0x0b9a // 0x43eb @0x2
0x43e9…43ef at0004 = ╱9c╱ ENDIF ╱ // 0x43ed @0x4
0x43e9…43ef at0005 = EOL // 0x43ee @0x5
0x43e9…43ef }
0x43ef…4409 d9f7 02980 PRINT CHR$ ( ABS ( SUM ) , 9 , 2 ) ;
0x43ef…4409 LineComal80 {
0x43ef…4409 ptr = 0xd9f7 // 0x43ef @0x0
0x43ef…4409 lno = 0x0ba4 // 0x43f1 @0x2
0x43ef…4409 at0004 = ╱92╱ PRINT ╱ // 0x43f3 @0x4
0x43ef…4409 at0005 = ╱d0╱ CHR$ ╱ // 0x43f4 @0x5
0x43ef…4409 at0006 = ╱ed╱ ( ╱ // 0x43f5 @0x6
0x43ef…4409 at0007 = ╱c4╱ ABS ╱ // 0x43f6 @0x7
0x43ef…4409 at0008 = ╱ed╱ ( ╱ // 0x43f7 @0x8
0x43ef…4409 at0009 = ╱53╱S╱ // 0x43f8 @0x9
0x43ef…4409 at000a = ╱55╱U╱ // 0x43f9 @0xa
0x43ef…4409 at000b = ╱4d╱M╱ // 0x43fa @0xb
0x43ef…4409 at000c = ╱ee╱ ) ╱ // 0x43fb @0xc
0x43ef…4409 at000d = ╱ec╱ , ╱ // 0x43fc @0xd
0x43ef…4409 at000e = ╱39╱9╱ // 0x43fd @0xe
0x43ef…4409 at000f = ╱f20900╱ // 0x43fe @0xf
0x43ef…4409 at0012 = ╱ec╱ , ╱ // 0x4401 @0x12
0x43ef…4409 at0013 = ╱32╱2╱ // 0x4402 @0x13
0x43ef…4409 at0014 = ╱f20200╱ // 0x4403 @0x14
0x43ef…4409 at0017 = ╱ee╱ ) ╱ // 0x4406 @0x17
0x43ef…4409 at0018 = ╱ea╱ ; ╱ // 0x4407 @0x18
0x43ef…4409 at0019 = EOL // 0x4408 @0x19
0x43ef…4409 }
0x4409…4419 da07 02990 IF UM < 0 THEN
0x4409…4419 LineComal80 {
0x4409…4419 ptr = 0xda07 // 0x4409 @0x0
0x4409…4419 lno = 0x0bae // 0x440b @0x2
0x4409…4419 at0004 = ╱9b3253╱ IF ╱ // 0x440d @0x4
0x4409…4419 at0007 = ╱55╱U╱ // 0x4410 @0x7
0x4409…4419 at0008 = ╱4d╱M╱ // 0x4411 @0x8
0x4409…4419 at0009 = ╱e0╱ < ╱ // 0x4412 @0x9
0x4409…4419 at000a = ╱30╱0╱ // 0x4413 @0xa
0x4409…4419 at000b = ╱f20000╱ // 0x4414 @0xb
0x4409…4419 at000e = ╱b5╱ THEN ╱ // 0x4417 @0xe
0x4409…4419 at000f = EOL // 0x4418 @0xf
0x4409…4419 }
0x4419…4424 d73b 03000 PRINT "…K" ;
0x4419…4424 LineComal80 {
0x4419…4424 ptr = 0xd73b // 0x4419 @0x0
0x4419…4424 lno = 0x0bb8 // 0x441b @0x2
0x4419…4424 at0004 = ╱92╱ PRINT ╱ // 0x441d @0x4
0x4419…4424 at0005 = ╱22╱"╱ // 0x441e @0x5
0x4419…4424 at0006 = ╱20╱…╱ // 0x441f @0x6
0x4419…4424 at0007 = ╱4b╱K╱ // 0x4420 @0x7
0x4419…4424 at0008 = ╱22╱"╱ // 0x4421 @0x8
0x4419…4424 at0009 = ╱ea╱ ; ╱ // 0x4422 @0x9
0x4419…4424 at000a = EOL // 0x4423 @0xa
0x4419…4424 }
0x4424…4468 6972 24944 p ╱00╱ ╱00╱ ╱05╱ ╱00╱ 922138 ╱00╱ ╱00╱ ╱06╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ …… ╱00╱ ╱00╱ ╱05╱ ╱00╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ╱1f╱ ODLAS…LEMMAG ╱00╱ ╱00╱ ╱14╱ ╱00╱ V DIV ╱c7╱ ╱0b╱ IF UM > 0 THEN
0x4424…4468 LineComal80 {
0x4424…4468 ptr = 0x6972 // 0x4424 @0x0
0x4424…4468 lno = 0x6170 // 0x4426 @0x2
0x4424…4468 at0004 = ╱70╱p╱ // 0x4428 @0x4
0x4424…4468 at0005 = ╱00╱ // 0x4429 @0x5
0x4424…4468 at0006 = ╱00╱ // 0x442a @0x6
0x4424…4468 at0007 = ╱05╱ // 0x442b @0x7
0x4424…4468 at0008 = ╱00╱ // 0x442c @0x8
0x4424…4468 at0009 = ╱39╱9╱ // 0x442d @0x9
0x4424…4468 at000a = ╱32╱2╱ // 0x442e @0xa
0x4424…4468 at000b = ╱32╱2╱ // 0x442f @0xb
0x4424…4468 at000c = ╱31╱1╱ // 0x4430 @0xc
0x4424…4468 at000d = ╱33╱3╱ // 0x4431 @0xd
0x4424…4468 at000e = ╱38╱8╱ // 0x4432 @0xe
0x4424…4468 at000f = ╱00╱ // 0x4433 @0xf
0x4424…4468 at0010 = ╱00╱ // 0x4434 @0x10
0x4424…4468 at0011 = ╱06╱ // 0x4435 @0x11
0x4424…4468 at0012 = ╱00╱ // 0x4436 @0x12
0x4424…4468 at0013 = ╱1f╱ // 0x4437 @0x13
0x4424…4468 at0014 = ╱1f╱ // 0x4438 @0x14
0x4424…4468 at0015 = ╱1f╱ // 0x4439 @0x15
0x4424…4468 at0016 = ╱20╱…╱ // 0x443a @0x16
0x4424…4468 at0017 = ╱20╱…╱ // 0x443b @0x17
0x4424…4468 at0018 = ╱00╱ // 0x443c @0x18
0x4424…4468 at0019 = ╱00╱ // 0x443d @0x19
0x4424…4468 at001a = ╱05╱ // 0x443e @0x1a
0x4424…4468 at001b = ╱00╱ // 0x443f @0x1b
0x4424…4468 at001c = ╱1f╱ // 0x4440 @0x1c
0x4424…4468 at001d = ╱1f╱ // 0x4441 @0x1d
0x4424…4468 at001e = ╱1f╱ // 0x4442 @0x1e
0x4424…4468 at001f = ╱1f╱ // 0x4443 @0x1f
0x4424…4468 at0020 = ╱1f╱ // 0x4444 @0x20
0x4424…4468 at0021 = ╱1f╱ // 0x4445 @0x21
0x4424…4468 at0022 = ╱1f╱ // 0x4446 @0x22
0x4424…4468 at0023 = ╱1f╱ // 0x4447 @0x23
0x4424…4468 at0024 = ╱4f╱O╱ // 0x4448 @0x24
0x4424…4468 at0025 = ╱44╱D╱ // 0x4449 @0x25
0x4424…4468 at0026 = ╱4c╱L╱ // 0x444a @0x26
0x4424…4468 at0027 = ╱41╱A╱ // 0x444b @0x27
0x4424…4468 at0028 = ╱53╱S╱ // 0x444c @0x28
0x4424…4468 at0029 = ╱20╱…╱ // 0x444d @0x29
0x4424…4468 at002a = ╱4c╱L╱ // 0x444e @0x2a
0x4424…4468 at002b = ╱45╱E╱ // 0x444f @0x2b
0x4424…4468 at002c = ╱4d╱M╱ // 0x4450 @0x2c
0x4424…4468 at002d = ╱4d╱M╱ // 0x4451 @0x2d
0x4424…4468 at002e = ╱41╱A╱ // 0x4452 @0x2e
0x4424…4468 at002f = ╱47╱G╱ // 0x4453 @0x2f
0x4424…4468 at0030 = ╱00╱ // 0x4454 @0x30
0x4424…4468 at0031 = ╱00╱ // 0x4455 @0x31
0x4424…4468 at0032 = ╱14╱ // 0x4456 @0x32
0x4424…4468 at0033 = ╱00╱ // 0x4457 @0x33
0x4424…4468 at0034 = ╱56╱V╱ // 0x4458 @0x34
0x4424…4468 at0035 = ╱da╱ DIV ╱ // 0x4459 @0x35
0x4424…4468 at0036 = ╱c7╱ // 0x445a @0x36
0x4424…4468 at0037 = ╱0b╱ // 0x445b @0x37
0x4424…4468 at0038 = ╱9b0053╱ IF ╱ // 0x445c @0x38
0x4424…4468 at003b = ╱55╱U╱ // 0x445f @0x3b
0x4424…4468 at003c = ╱4d╱M╱ // 0x4460 @0x3c
0x4424…4468 at003d = ╱e1╱ > ╱ // 0x4461 @0x3d
0x4424…4468 at003e = ╱30╱0╱ // 0x4462 @0x3e
0x4424…4468 at003f = ╱f20000╱ // 0x4463 @0x3f
0x4424…4468 at0042 = ╱b5╱ THEN ╱ // 0x4466 @0x42
0x4424…4468 at0043 = EOL // 0x4467 @0x43
0x4424…4468 }
0x4468…447e d74d 03020 IF SUM > 0 THEN PRINT "…D" ;
0x4468…447e LineComal80 {
0x4468…447e ptr = 0xd74d // 0x4468 @0x0
0x4468…447e lno = 0x0bcc // 0x446a @0x2
0x4468…447e at0004 = ╱8200╱ IF ╱ // 0x446c @0x4
0x4468…447e at0006 = ╱53╱S╱ // 0x446e @0x6
0x4468…447e at0007 = ╱55╱U╱ // 0x446f @0x7
0x4468…447e at0008 = ╱4d╱M╱ // 0x4470 @0x8
0x4468…447e at0009 = ╱e1╱ > ╱ // 0x4471 @0x9
0x4468…447e at000a = ╱30╱0╱ // 0x4472 @0xa
0x4468…447e at000b = ╱f20000╱ // 0x4473 @0xb
0x4468…447e at000e = ╱b5╱ THEN ╱ // 0x4476 @0xe
0x4468…447e at000f = ╱92╱ PRINT ╱ // 0x4477 @0xf
0x4468…447e at0010 = ╱22╱"╱ // 0x4478 @0x10
0x4468…447e at0011 = ╱20╱…╱ // 0x4479 @0x11
0x4468…447e at0012 = ╱44╱D╱ // 0x447a @0x12
0x4468…447e at0013 = ╱22╱"╱ // 0x447b @0x13
0x4468…447e at0014 = ╱ea╱ ; ╱ // 0x447c @0x14
0x4468…447e at0015 = EOL // 0x447d @0x15
0x4468…447e }
0x447e…4484 (228,) 95ee 38382 ╱00╱ ╱00╱
0x447e…4484 LineComal80 {
0x447e…4484 ptr = 0x95ee // 0x447e @0x0
0x447e…4484 lno = 0x95ee // 0x4480 @0x2
0x447e…4484 at0004 = ╱00╱ // 0x4482 @0x4
0x447e…4484 at0005 = ╱00╱ // 0x4483 @0x5
0x447e…4484 }