|
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: 6820 (0x1aa4)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_ca, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cc, UNKNOWN_TOKEN_cd
Names: »SYSUP«
└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
└─⟦this⟧ »SYSUP«
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 , DEBET , KREDIT
00360 // Hj{lpevariable
00370 DIM A_NR $ OF 8 , A_TYP $ OF 1
00380 INTEGER MAX_LIN , LIN_T , SIDENR
00390 // Variable…til…filen…SYSPARA
00400 DIM SYSPARA $ OF 17
00410 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
00420 DIM DATAFL $ OF 8 , T_KODE $ OF 1
00430 // Variable…til…filen…@@PARAM
00440 DIM PARAM $ OF 17
00450 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 6
00460 REAL MOMS
00470 // Variable…til…filen…@@KONTO
00480 DIM KONTO $ OF 17
00490 DIM ST_DATO $ OF 6
00500 INTEGER N_FRIREC , N_MAXREC , ANT_PER , PER_NR
00510 DIM KTO_TYPE $ OF 1 , KTO_NAVN $ OF 40
00520 REAL KTO_PRIMO , KTO_ULTIMO
00530 INTEGER KTO_FP , KTO_SP
00540 // Variable…til…filen…@@KTOIDX
00550 DIM KTOIDX $ OF 17
00560 INTEGER I_H\JREC , I_MAXREC
00570 DIM KTONR $ OF 8
00580 INTEGER RECNR
00590 ENDPROC DIMENSIONER
00600
00610 PROC INITIER
00620 LET PRGFL $ := "DP2"
00630 LET PROGRAM $ := PRGFL $ + ":SYSU"
00640 LET TAL $ := "0123456789" ; NULR := 0
00650 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
00660 LET SPC $ := "………………………………………………………………………………………………………………………"
00670 LET SPC $ := SPC $ + SPC $
00680 LET FALSE := 0 ; TRUE := 1 // boolske…variable
00690 LET KREDIT := - 1 ; DEBET := 1
00700 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
00710 EXEC OPENFIL ( SYSPARA $ , "R" )
00720 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
00730 EXEC TERMINAL_IDX
00740 CLOSE SYSPARA $
00750 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
00760 EXEC OPENFIL ( PARAM $ , "R" )
00770 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
00780 CLOSE PARAM $
00790 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
00800 LET KONTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KONTO"
00810 EXEC OPENFIL ( KTOIDX $ , "R" )
00820 EXEC OPENFIL ( KONTO $ , "R" )
00830 ENDPROC INITIER
00840
00850 PROC FKT_MENU
00860 REPEAT
00870 EXEC OVERSKRIFT ( "Udskrivning…af…kontoplan" , 7 )
00880 LET A_TYP $ := "A"
00890 REPEAT
00900 // EDIT…"<C2310>Udskrivning…af…konti…med…typen:…":A_TYP$
00910 EXEC SL_FEJLLINIE
00920 EXEC ST_BGST ( A_TYP $ )
00930 IF "/" + A_TYP $ + "/" IN "/A/B/C/D/E/F/*/" THEN
00940 EXEC FEJL ( "Ulovlig…kontotype…'" + A_TYP $ + "'" )
00950 ENDIF
00960 UNTIL OK
00970 EXEC PRINTRES ( "smal…EDB-liste" , 12 )
00980 LET A_NR $ := "########" ; MAX_LIN := 72 ; LIN_T := 123 ; SIDENR := 0
00990 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
01000 FOR K := 2 TO _H\JREC DO
01010 GET KTOIDX $ , K : KTONR $ , RECNR
01020 EXEC L[S_KONTO ( RECNR )
01030 IF TO_TYPE $ = A_TYP $ OR A_TYP $ = "*" THEN
01040 EXEC SKRIV_LIN ( KTONR $ , KTO_NAVN $ , KTO_TYPE $ )
01050 ENDIF
01060 NEXT K
01070 FOR I := LIN_T TO AX_LIN DO PRINT
01080 EXEC PRINTREL
01090 LET SVAR $ := "n"
01100 EDIT "<C2614>Flere…udskrifter…(j/n)?…" : SVAR $ ( 1 )
01110 UNTIL NOT "/" + SVAR $ + "/" IN "/J/j/"
01120 ENDPROC FKT_MENU
01130
01140 PROC OPENFIL ( FNAVN $ , WAY $ )
01150 REPEAT
01160 IF AY $ = "W" OR WAY $ = "w" THEN
01170 OPEN FNAVN $ , W
01180 ELSE
01190 OPEN FNAVN $ , R
01200 ENDIF
01210 IF ( FNAVN $ ) THEN
01220 PRINT "<SC0123>" ; CHR$ ( 7 )
01230 IF ( FNAVN $ ) = 6 THEN
01240 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
01250 INPUT "" : SVAR $
01260 ELSE
01270 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
01280 PRINT "<S>" ; FNAVN $ ; "…***"
01290 INPUT "" : SVAR $
01300 PRINT "<C0102>" ; SPC $
01310 ENDIF
01320 ENDIF
01330 UNTIL NOT ╱cd╱ ( FNAVN $ )
01340 ENDPROC OPENFIL
01350
01360 PROC OVERSKRIFT ( ST $ , L )
01370 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
01380 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
01390 PRINT SYST_DAT $ ( 5 : 2 )
01400 CURSOR 36 - ╱cb╱ ( ST $ ) DIV 2 , L
01410 PRINT "***…" ; ST $ ; "…***"
01420 ENDPROC OVERSKRIFT
01430
01440 PROC ST_BGST ( REF RST $ )
01450 FOR I := 1 TO ( RST $ ) DO
01460 IF RST $ ( I ) =< "}" AND RST $ ( I ) >= "a" THEN LET RST $ ( I ) := CHR$ ( ╱cc╱ ( RST $ ( I ) ) - 32 )
01470 NEXT I
01480 ENDPROC ST_BGST
01490
01500 PROC L[S_KONTO ( P )
01510 GET KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
01520 ENDPROC L[S_KONTO
01530
01540 PROC TERMINAL_IDX
01550 LET PPAR := 5 ; RESRV := 0
01560 CALL :PRES"
01570 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
01580 ENDPROC TERMINAL_IDX
01590
01600 PROC FEJL ( ST $ )
01610 LET OK := FALSE
01620 CURSOR 36 - ╱cb╱ ( ST $ ) / 2 , 2
01630 PRINT "***…" + ST $ + "…***" ; CHR$ ( 7 )
01640 ENDPROC FEJL
01650
01660 PROC SL_FEJLLINIE
01670 LET OK := TRUE
01680 PRINT "<C0102>" ; SPC $
01690 ENDPROC SL_FEJLLINIE
01700 PROC SKRIV_LIN ( REF R_NR $ , REF R_NAVN $ , REF R_TYP $ )
01710 IF LIN_T + 5 > MAX_LIN THEN EXEC SIDESKIFT
01720 IF _NR $ ( 1 : 2 ) >< R_NR $ ( 1 : 2 ) THEN
01730 PRINT
01740 LET LIN_T := LIN_T + 1
01750 ENDIF
01760 LET A_NR $ := R_NR $ ; LIN_T := LIN_T + 1
01880 PRINT "…" ; R_NR $ ; TAB ( 12 ) ; R_NAVN $ ; TAB ( 52 ) ; R_TYP $
01780 ENDPROC SKRIV_LIN
01790
01800 PROC SIDESKIFT
01810 FOR I := LIN_T TO AX_LIN DO PRINT
01820 LET LIN_T := 9 ; SIDENR := SIDENR + 1
01830 PRINT "***…" ; SYST_NAVN $ ; "…***" ; TAB ( 50 ) ; "SIDE:…" ; SIDENR
01840 PRINT
01850 PRINT "Firmanavn:…" ; FIRMANAVN $
01860 PRINT
01870 PRINT "<S>***…KONTOPLAN…***………………………***…UDSKREVET…PR.…"
01880 PRINT SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ; SYST_DAT $ ( 5 : 2 ) ; "…***"
01890 PRINT "--------------------------------------------------------"
02010 PRINT "…KONTONR………KONTONAVN………………………………………………………………………KONTOTYPE"
01910 PRINT "--------------------------------------------------------"
01920 ENDPROC SIDESKIFT
09900 //
09901 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
09902 LET PRTNR $ := "1" ; OK := TRUE
09903 REPEAT
09904 CURSOR 21 , LINE
09905 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
09906 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
09907 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
09908 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
09909 INPUT "" : SVAR $
09910 SELECT OUTPUT "P" + PRTNR $
09911 IF ( "P" ) THEN
09912 CURSOR 12 , LINE
09913 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
09914 CURSOR 12 , LINE + 1
09915 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
09916 IF VAR $ = "J" OR SVAR $ = "j" THEN
09917 CURSOR 12 , LINE
09918 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
09919 PRINT "<SZ>"
09920 WHILE ╱cd╱ ( "P" ) DO
09921 LET SEK := ╱ca╱ ( 5 )
09922 SELECT OUTPUT "P" + PRTNR $
09923 ENDWHILE
09924 ELSE
09925 LET OK := FALSE
09926 ENDIF
09927 ENDIF
09928 CURSOR 1 , LINE
09929 PRINT "<Z>"
09930 PRINT "<SZ>"
09931 ENDPROC PRINTRES
01930 //
01940 PROC PRINTREL // RELEASE…PRINTER
01950 SELECT OUTPUT "T"
01960 ENDPROC PRINTREL
01770 PRINT "…" ; R_NR $ ; TAB ( 12 ) ; R_NAVN $
01900 PRINT "…KONTONR………KONTONAVN"
00970 EXEC PRINTRES ( "papir" , 12 )
09900 //
09901 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
09902 LET PRTNR $ := "1" ; OK := TRUE
09903 REPEAT
09904 CURSOR 15 , LINE
09905 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
09906 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
09907 CURSOR 1 , LINE
09908 PRINT "<Z>"
09909 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
09910 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
09911 INPUT "" : SVAR $
09912 SELECT OUTPUT "P" + PRTNR $
09913 IF ( "P" ) THEN
09914 CURSOR 12 , LINE
09915 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
09916 CURSOR 12 , LINE + 1
09917 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
09918 IF VAR $ = "J" OR SVAR $ = "j" THEN
09919 CURSOR 12 , LINE
09920 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
09921 PRINT "<SZ>"
09922 WHILE ╱cd╱ ( "P" ) DO
09923 LET SEK := ╱ca╱ ( 5 )
09924 SELECT OUTPUT "P" + PRTNR $
09925 ENDWHILE
09926 ELSE
09927 LET OK := FALSE
09928 ENDIF
09929 ENDIF
09930 CURSOR 1 , LINE
09931 PRINT "<Z>"
09932 PRINT "<SZ>"
09933 ENDPROC PRINTRES
38382 ╱00╱ ╱00╱
0x0000…0038 (0,) 9626 00100 // **************************************************
0x0000…0038 LineComal80 {
0x0000…0038 ptr = 0x9626 // 0x0 @0x0
0x0000…0038 lno = 0x0064 // 0x2 @0x2
0x0000…0038 at0004 = ╱89╱ // ╱ // 0x4 @0x4
0x0000…0038 at0005 = ╱2a╱*╱ // 0x5 @0x5
0x0000…0038 at0006 = ╱2a╱*╱ // 0x6 @0x6
0x0000…0038 at0007 = ╱2a╱*╱ // 0x7 @0x7
0x0000…0038 at0008 = ╱2a╱*╱ // 0x8 @0x8
0x0000…0038 at0009 = ╱2a╱*╱ // 0x9 @0x9
0x0000…0038 at000a = ╱2a╱*╱ // 0xa @0xa
0x0000…0038 at000b = ╱2a╱*╱ // 0xb @0xb
0x0000…0038 at000c = ╱2a╱*╱ // 0xc @0xc
0x0000…0038 at000d = ╱2a╱*╱ // 0xd @0xd
0x0000…0038 at000e = ╱2a╱*╱ // 0xe @0xe
0x0000…0038 at000f = ╱2a╱*╱ // 0xf @0xf
0x0000…0038 at0010 = ╱2a╱*╱ // 0x10 @0x10
0x0000…0038 at0011 = ╱2a╱*╱ // 0x11 @0x11
0x0000…0038 at0012 = ╱2a╱*╱ // 0x12 @0x12
0x0000…0038 at0013 = ╱2a╱*╱ // 0x13 @0x13
0x0000…0038 at0014 = ╱2a╱*╱ // 0x14 @0x14
0x0000…0038 at0015 = ╱2a╱*╱ // 0x15 @0x15
0x0000…0038 at0016 = ╱2a╱*╱ // 0x16 @0x16
0x0000…0038 at0017 = ╱2a╱*╱ // 0x17 @0x17
0x0000…0038 at0018 = ╱2a╱*╱ // 0x18 @0x18
0x0000…0038 at0019 = ╱2a╱*╱ // 0x19 @0x19
0x0000…0038 at001a = ╱2a╱*╱ // 0x1a @0x1a
0x0000…0038 at001b = ╱2a╱*╱ // 0x1b @0x1b
0x0000…0038 at001c = ╱2a╱*╱ // 0x1c @0x1c
0x0000…0038 at001d = ╱2a╱*╱ // 0x1d @0x1d
0x0000…0038 at001e = ╱2a╱*╱ // 0x1e @0x1e
0x0000…0038 at001f = ╱2a╱*╱ // 0x1f @0x1f
0x0000…0038 at0020 = ╱2a╱*╱ // 0x20 @0x20
0x0000…0038 at0021 = ╱2a╱*╱ // 0x21 @0x21
0x0000…0038 at0022 = ╱2a╱*╱ // 0x22 @0x22
0x0000…0038 at0023 = ╱2a╱*╱ // 0x23 @0x23
0x0000…0038 at0024 = ╱2a╱*╱ // 0x24 @0x24
0x0000…0038 at0025 = ╱2a╱*╱ // 0x25 @0x25
0x0000…0038 at0026 = ╱2a╱*╱ // 0x26 @0x26
0x0000…0038 at0027 = ╱2a╱*╱ // 0x27 @0x27
0x0000…0038 at0028 = ╱2a╱*╱ // 0x28 @0x28
0x0000…0038 at0029 = ╱2a╱*╱ // 0x29 @0x29
0x0000…0038 at002a = ╱2a╱*╱ // 0x2a @0x2a
0x0000…0038 at002b = ╱2a╱*╱ // 0x2b @0x2b
0x0000…0038 at002c = ╱2a╱*╱ // 0x2c @0x2c
0x0000…0038 at002d = ╱2a╱*╱ // 0x2d @0x2d
0x0000…0038 at002e = ╱2a╱*╱ // 0x2e @0x2e
0x0000…0038 at002f = ╱2a╱*╱ // 0x2f @0x2f
0x0000…0038 at0030 = ╱2a╱*╱ // 0x30 @0x30
0x0000…0038 at0031 = ╱2a╱*╱ // 0x31 @0x31
0x0000…0038 at0032 = ╱2a╱*╱ // 0x32 @0x32
0x0000…0038 at0033 = ╱2a╱*╱ // 0x33 @0x33
0x0000…0038 at0034 = ╱2a╱*╱ // 0x34 @0x34
0x0000…0038 at0035 = ╱2a╱*╱ // 0x35 @0x35
0x0000…0038 at0036 = ╱2a╱*╱ // 0x36 @0x36
0x0000…0038 at0037 = EOL // 0x37 @0x37
0x0000…0038 }
0x0038…0070 965e 00110 // *………………………………………………………………………………………………………………………………*
0x0038…0070 LineComal80 {
0x0038…0070 ptr = 0x965e // 0x38 @0x0
0x0038…0070 lno = 0x006e // 0x3a @0x2
0x0038…0070 at0004 = ╱89╱ // ╱ // 0x3c @0x4
0x0038…0070 at0005 = ╱2a╱*╱ // 0x3d @0x5
0x0038…0070 at0006 = ╱20╱…╱ // 0x3e @0x6
0x0038…0070 at0007 = ╱20╱…╱ // 0x3f @0x7
0x0038…0070 at0008 = ╱20╱…╱ // 0x40 @0x8
0x0038…0070 at0009 = ╱20╱…╱ // 0x41 @0x9
0x0038…0070 at000a = ╱20╱…╱ // 0x42 @0xa
0x0038…0070 at000b = ╱20╱…╱ // 0x43 @0xb
0x0038…0070 at000c = ╱20╱…╱ // 0x44 @0xc
0x0038…0070 at000d = ╱20╱…╱ // 0x45 @0xd
0x0038…0070 at000e = ╱20╱…╱ // 0x46 @0xe
0x0038…0070 at000f = ╱20╱…╱ // 0x47 @0xf
0x0038…0070 at0010 = ╱20╱…╱ // 0x48 @0x10
0x0038…0070 at0011 = ╱20╱…╱ // 0x49 @0x11
0x0038…0070 at0012 = ╱20╱…╱ // 0x4a @0x12
0x0038…0070 at0013 = ╱20╱…╱ // 0x4b @0x13
0x0038…0070 at0014 = ╱20╱…╱ // 0x4c @0x14
0x0038…0070 at0015 = ╱20╱…╱ // 0x4d @0x15
0x0038…0070 at0016 = ╱20╱…╱ // 0x4e @0x16
0x0038…0070 at0017 = ╱20╱…╱ // 0x4f @0x17
0x0038…0070 at0018 = ╱20╱…╱ // 0x50 @0x18
0x0038…0070 at0019 = ╱20╱…╱ // 0x51 @0x19
0x0038…0070 at001a = ╱20╱…╱ // 0x52 @0x1a
0x0038…0070 at001b = ╱20╱…╱ // 0x53 @0x1b
0x0038…0070 at001c = ╱20╱…╱ // 0x54 @0x1c
0x0038…0070 at001d = ╱20╱…╱ // 0x55 @0x1d
0x0038…0070 at001e = ╱20╱…╱ // 0x56 @0x1e
0x0038…0070 at001f = ╱20╱…╱ // 0x57 @0x1f
0x0038…0070 at0020 = ╱20╱…╱ // 0x58 @0x20
0x0038…0070 at0021 = ╱20╱…╱ // 0x59 @0x21
0x0038…0070 at0022 = ╱20╱…╱ // 0x5a @0x22
0x0038…0070 at0023 = ╱20╱…╱ // 0x5b @0x23
0x0038…0070 at0024 = ╱20╱…╱ // 0x5c @0x24
0x0038…0070 at0025 = ╱20╱…╱ // 0x5d @0x25
0x0038…0070 at0026 = ╱20╱…╱ // 0x5e @0x26
0x0038…0070 at0027 = ╱20╱…╱ // 0x5f @0x27
0x0038…0070 at0028 = ╱20╱…╱ // 0x60 @0x28
0x0038…0070 at0029 = ╱20╱…╱ // 0x61 @0x29
0x0038…0070 at002a = ╱20╱…╱ // 0x62 @0x2a
0x0038…0070 at002b = ╱20╱…╱ // 0x63 @0x2b
0x0038…0070 at002c = ╱20╱…╱ // 0x64 @0x2c
0x0038…0070 at002d = ╱20╱…╱ // 0x65 @0x2d
0x0038…0070 at002e = ╱20╱…╱ // 0x66 @0x2e
0x0038…0070 at002f = ╱20╱…╱ // 0x67 @0x2f
0x0038…0070 at0030 = ╱20╱…╱ // 0x68 @0x30
0x0038…0070 at0031 = ╱20╱…╱ // 0x69 @0x31
0x0038…0070 at0032 = ╱20╱…╱ // 0x6a @0x32
0x0038…0070 at0033 = ╱20╱…╱ // 0x6b @0x33
0x0038…0070 at0034 = ╱20╱…╱ // 0x6c @0x34
0x0038…0070 at0035 = ╱20╱…╱ // 0x6d @0x35
0x0038…0070 at0036 = ╱2a╱*╱ // 0x6e @0x36
0x0038…0070 at0037 = EOL // 0x6f @0x37
0x0038…0070 }
0x0070…00a8 9696 00120 // *…………………………Bogf|ringssystemet…'SYS-KAS'…………………………*
0x0070…00a8 LineComal80 {
0x0070…00a8 ptr = 0x9696 // 0x70 @0x0
0x0070…00a8 lno = 0x0078 // 0x72 @0x2
0x0070…00a8 at0004 = ╱89╱ // ╱ // 0x74 @0x4
0x0070…00a8 at0005 = ╱2a╱*╱ // 0x75 @0x5
0x0070…00a8 at0006 = ╱20╱…╱ // 0x76 @0x6
0x0070…00a8 at0007 = ╱20╱…╱ // 0x77 @0x7
0x0070…00a8 at0008 = ╱20╱…╱ // 0x78 @0x8
0x0070…00a8 at0009 = ╱20╱…╱ // 0x79 @0x9
0x0070…00a8 at000a = ╱20╱…╱ // 0x7a @0xa
0x0070…00a8 at000b = ╱20╱…╱ // 0x7b @0xb
0x0070…00a8 at000c = ╱20╱…╱ // 0x7c @0xc
0x0070…00a8 at000d = ╱20╱…╱ // 0x7d @0xd
0x0070…00a8 at000e = ╱20╱…╱ // 0x7e @0xe
0x0070…00a8 at000f = ╱20╱…╱ // 0x7f @0xf
0x0070…00a8 at0010 = ╱42╱B╱ // 0x80 @0x10
0x0070…00a8 at0011 = ╱6f╱o╱ // 0x81 @0x11
0x0070…00a8 at0012 = ╱67╱g╱ // 0x82 @0x12
0x0070…00a8 at0013 = ╱66╱f╱ // 0x83 @0x13
0x0070…00a8 at0014 = ╱7c╱|╱ // 0x84 @0x14
0x0070…00a8 at0015 = ╱72╱r╱ // 0x85 @0x15
0x0070…00a8 at0016 = ╱69╱i╱ // 0x86 @0x16
0x0070…00a8 at0017 = ╱6e╱n╱ // 0x87 @0x17
0x0070…00a8 at0018 = ╱67╱g╱ // 0x88 @0x18
0x0070…00a8 at0019 = ╱73╱s╱ // 0x89 @0x19
0x0070…00a8 at001a = ╱73╱s╱ // 0x8a @0x1a
0x0070…00a8 at001b = ╱79╱y╱ // 0x8b @0x1b
0x0070…00a8 at001c = ╱73╱s╱ // 0x8c @0x1c
0x0070…00a8 at001d = ╱74╱t╱ // 0x8d @0x1d
0x0070…00a8 at001e = ╱65╱e╱ // 0x8e @0x1e
0x0070…00a8 at001f = ╱6d╱m╱ // 0x8f @0x1f
0x0070…00a8 at0020 = ╱65╱e╱ // 0x90 @0x20
0x0070…00a8 at0021 = ╱74╱t╱ // 0x91 @0x21
0x0070…00a8 at0022 = ╱20╱…╱ // 0x92 @0x22
0x0070…00a8 at0023 = ╱27╱'╱ // 0x93 @0x23
0x0070…00a8 at0024 = ╱53╱S╱ // 0x94 @0x24
0x0070…00a8 at0025 = ╱59╱Y╱ // 0x95 @0x25
0x0070…00a8 at0026 = ╱53╱S╱ // 0x96 @0x26
0x0070…00a8 at0027 = ╱2d╱-╱ // 0x97 @0x27
0x0070…00a8 at0028 = ╱4b╱K╱ // 0x98 @0x28
0x0070…00a8 at0029 = ╱41╱A╱ // 0x99 @0x29
0x0070…00a8 at002a = ╱53╱S╱ // 0x9a @0x2a
0x0070…00a8 at002b = ╱27╱'╱ // 0x9b @0x2b
0x0070…00a8 at002c = ╱20╱…╱ // 0x9c @0x2c
0x0070…00a8 at002d = ╱20╱…╱ // 0x9d @0x2d
0x0070…00a8 at002e = ╱20╱…╱ // 0x9e @0x2e
0x0070…00a8 at002f = ╱20╱…╱ // 0x9f @0x2f
0x0070…00a8 at0030 = ╱20╱…╱ // 0xa0 @0x30
0x0070…00a8 at0031 = ╱20╱…╱ // 0xa1 @0x31
0x0070…00a8 at0032 = ╱20╱…╱ // 0xa2 @0x32
0x0070…00a8 at0033 = ╱20╱…╱ // 0xa3 @0x33
0x0070…00a8 at0034 = ╱20╱…╱ // 0xa4 @0x34
0x0070…00a8 at0035 = ╱20╱…╱ // 0xa5 @0x35
0x0070…00a8 at0036 = ╱2a╱*╱ // 0xa6 @0x36
0x0070…00a8 at0037 = EOL // 0xa7 @0x37
0x0070…00a8 }
0x00a8…00e0 96ce 00130 // *………………………………………………vers.…1.0………………………………………………………*
0x00a8…00e0 LineComal80 {
0x00a8…00e0 ptr = 0x96ce // 0xa8 @0x0
0x00a8…00e0 lno = 0x0082 // 0xaa @0x2
0x00a8…00e0 at0004 = ╱89╱ // ╱ // 0xac @0x4
0x00a8…00e0 at0005 = ╱2a╱*╱ // 0xad @0x5
0x00a8…00e0 at0006 = ╱20╱…╱ // 0xae @0x6
0x00a8…00e0 at0007 = ╱20╱…╱ // 0xaf @0x7
0x00a8…00e0 at0008 = ╱20╱…╱ // 0xb0 @0x8
0x00a8…00e0 at0009 = ╱20╱…╱ // 0xb1 @0x9
0x00a8…00e0 at000a = ╱20╱…╱ // 0xb2 @0xa
0x00a8…00e0 at000b = ╱20╱…╱ // 0xb3 @0xb
0x00a8…00e0 at000c = ╱20╱…╱ // 0xb4 @0xc
0x00a8…00e0 at000d = ╱20╱…╱ // 0xb5 @0xd
0x00a8…00e0 at000e = ╱20╱…╱ // 0xb6 @0xe
0x00a8…00e0 at000f = ╱20╱…╱ // 0xb7 @0xf
0x00a8…00e0 at0010 = ╱20╱…╱ // 0xb8 @0x10
0x00a8…00e0 at0011 = ╱20╱…╱ // 0xb9 @0x11
0x00a8…00e0 at0012 = ╱20╱…╱ // 0xba @0x12
0x00a8…00e0 at0013 = ╱20╱…╱ // 0xbb @0x13
0x00a8…00e0 at0014 = ╱20╱…╱ // 0xbc @0x14
0x00a8…00e0 at0015 = ╱20╱…╱ // 0xbd @0x15
0x00a8…00e0 at0016 = ╱20╱…╱ // 0xbe @0x16
0x00a8…00e0 at0017 = ╱20╱…╱ // 0xbf @0x17
0x00a8…00e0 at0018 = ╱76╱v╱ // 0xc0 @0x18
0x00a8…00e0 at0019 = ╱65╱e╱ // 0xc1 @0x19
0x00a8…00e0 at001a = ╱72╱r╱ // 0xc2 @0x1a
0x00a8…00e0 at001b = ╱73╱s╱ // 0xc3 @0x1b
0x00a8…00e0 at001c = ╱2e╱.╱ // 0xc4 @0x1c
0x00a8…00e0 at001d = ╱20╱…╱ // 0xc5 @0x1d
0x00a8…00e0 at001e = ╱31╱1╱ // 0xc6 @0x1e
0x00a8…00e0 at001f = ╱2e╱.╱ // 0xc7 @0x1f
0x00a8…00e0 at0020 = ╱30╱0╱ // 0xc8 @0x20
0x00a8…00e0 at0021 = ╱20╱…╱ // 0xc9 @0x21
0x00a8…00e0 at0022 = ╱20╱…╱ // 0xca @0x22
0x00a8…00e0 at0023 = ╱20╱…╱ // 0xcb @0x23
0x00a8…00e0 at0024 = ╱20╱…╱ // 0xcc @0x24
0x00a8…00e0 at0025 = ╱20╱…╱ // 0xcd @0x25
0x00a8…00e0 at0026 = ╱20╱…╱ // 0xce @0x26
0x00a8…00e0 at0027 = ╱20╱…╱ // 0xcf @0x27
0x00a8…00e0 at0028 = ╱20╱…╱ // 0xd0 @0x28
0x00a8…00e0 at0029 = ╱20╱…╱ // 0xd1 @0x29
0x00a8…00e0 at002a = ╱20╱…╱ // 0xd2 @0x2a
0x00a8…00e0 at002b = ╱20╱…╱ // 0xd3 @0x2b
0x00a8…00e0 at002c = ╱20╱…╱ // 0xd4 @0x2c
0x00a8…00e0 at002d = ╱20╱…╱ // 0xd5 @0x2d
0x00a8…00e0 at002e = ╱20╱…╱ // 0xd6 @0x2e
0x00a8…00e0 at002f = ╱20╱…╱ // 0xd7 @0x2f
0x00a8…00e0 at0030 = ╱20╱…╱ // 0xd8 @0x30
0x00a8…00e0 at0031 = ╱20╱…╱ // 0xd9 @0x31
0x00a8…00e0 at0032 = ╱20╱…╱ // 0xda @0x32
0x00a8…00e0 at0033 = ╱20╱…╱ // 0xdb @0x33
0x00a8…00e0 at0034 = ╱20╱…╱ // 0xdc @0x34
0x00a8…00e0 at0035 = ╱20╱…╱ // 0xdd @0x35
0x00a8…00e0 at0036 = ╱2a╱*╱ // 0xde @0x36
0x00a8…00e0 at0037 = EOL // 0xdf @0x37
0x00a8…00e0 }
0x00e0…0118 9706 00140 // *………………………………………………………………………………………………………………………………*
0x00e0…0118 LineComal80 {
0x00e0…0118 ptr = 0x9706 // 0xe0 @0x0
0x00e0…0118 lno = 0x008c // 0xe2 @0x2
0x00e0…0118 at0004 = ╱89╱ // ╱ // 0xe4 @0x4
0x00e0…0118 at0005 = ╱2a╱*╱ // 0xe5 @0x5
0x00e0…0118 at0006 = ╱20╱…╱ // 0xe6 @0x6
0x00e0…0118 at0007 = ╱20╱…╱ // 0xe7 @0x7
0x00e0…0118 at0008 = ╱20╱…╱ // 0xe8 @0x8
0x00e0…0118 at0009 = ╱20╱…╱ // 0xe9 @0x9
0x00e0…0118 at000a = ╱20╱…╱ // 0xea @0xa
0x00e0…0118 at000b = ╱20╱…╱ // 0xeb @0xb
0x00e0…0118 at000c = ╱20╱…╱ // 0xec @0xc
0x00e0…0118 at000d = ╱20╱…╱ // 0xed @0xd
0x00e0…0118 at000e = ╱20╱…╱ // 0xee @0xe
0x00e0…0118 at000f = ╱20╱…╱ // 0xef @0xf
0x00e0…0118 at0010 = ╱20╱…╱ // 0xf0 @0x10
0x00e0…0118 at0011 = ╱20╱…╱ // 0xf1 @0x11
0x00e0…0118 at0012 = ╱20╱…╱ // 0xf2 @0x12
0x00e0…0118 at0013 = ╱20╱…╱ // 0xf3 @0x13
0x00e0…0118 at0014 = ╱20╱…╱ // 0xf4 @0x14
0x00e0…0118 at0015 = ╱20╱…╱ // 0xf5 @0x15
0x00e0…0118 at0016 = ╱20╱…╱ // 0xf6 @0x16
0x00e0…0118 at0017 = ╱20╱…╱ // 0xf7 @0x17
0x00e0…0118 at0018 = ╱20╱…╱ // 0xf8 @0x18
0x00e0…0118 at0019 = ╱20╱…╱ // 0xf9 @0x19
0x00e0…0118 at001a = ╱20╱…╱ // 0xfa @0x1a
0x00e0…0118 at001b = ╱20╱…╱ // 0xfb @0x1b
0x00e0…0118 at001c = ╱20╱…╱ // 0xfc @0x1c
0x00e0…0118 at001d = ╱20╱…╱ // 0xfd @0x1d
0x00e0…0118 at001e = ╱20╱…╱ // 0xfe @0x1e
0x00e0…0118 at001f = ╱20╱…╱ // 0xff @0x1f
0x00e0…0118 at0020 = ╱20╱…╱ // 0x100 @0x20
0x00e0…0118 at0021 = ╱20╱…╱ // 0x101 @0x21
0x00e0…0118 at0022 = ╱20╱…╱ // 0x102 @0x22
0x00e0…0118 at0023 = ╱20╱…╱ // 0x103 @0x23
0x00e0…0118 at0024 = ╱20╱…╱ // 0x104 @0x24
0x00e0…0118 at0025 = ╱20╱…╱ // 0x105 @0x25
0x00e0…0118 at0026 = ╱20╱…╱ // 0x106 @0x26
0x00e0…0118 at0027 = ╱20╱…╱ // 0x107 @0x27
0x00e0…0118 at0028 = ╱20╱…╱ // 0x108 @0x28
0x00e0…0118 at0029 = ╱20╱…╱ // 0x109 @0x29
0x00e0…0118 at002a = ╱20╱…╱ // 0x10a @0x2a
0x00e0…0118 at002b = ╱20╱…╱ // 0x10b @0x2b
0x00e0…0118 at002c = ╱20╱…╱ // 0x10c @0x2c
0x00e0…0118 at002d = ╱20╱…╱ // 0x10d @0x2d
0x00e0…0118 at002e = ╱20╱…╱ // 0x10e @0x2e
0x00e0…0118 at002f = ╱20╱…╱ // 0x10f @0x2f
0x00e0…0118 at0030 = ╱20╱…╱ // 0x110 @0x30
0x00e0…0118 at0031 = ╱20╱…╱ // 0x111 @0x31
0x00e0…0118 at0032 = ╱20╱…╱ // 0x112 @0x32
0x00e0…0118 at0033 = ╱20╱…╱ // 0x113 @0x33
0x00e0…0118 at0034 = ╱20╱…╱ // 0x114 @0x34
0x00e0…0118 at0035 = ╱20╱…╱ // 0x115 @0x35
0x00e0…0118 at0036 = ╱2a╱*╱ // 0x116 @0x36
0x00e0…0118 at0037 = EOL // 0x117 @0x37
0x00e0…0118 }
0x0118…0150 973e 00150 // *…Udviklet…marts…1983…p}…en…'SPC/1'…mikrodatamat…*
0x0118…0150 LineComal80 {
0x0118…0150 ptr = 0x973e // 0x118 @0x0
0x0118…0150 lno = 0x0096 // 0x11a @0x2
0x0118…0150 at0004 = ╱89╱ // ╱ // 0x11c @0x4
0x0118…0150 at0005 = ╱2a╱*╱ // 0x11d @0x5
0x0118…0150 at0006 = ╱20╱…╱ // 0x11e @0x6
0x0118…0150 at0007 = ╱55╱U╱ // 0x11f @0x7
0x0118…0150 at0008 = ╱64╱d╱ // 0x120 @0x8
0x0118…0150 at0009 = ╱76╱v╱ // 0x121 @0x9
0x0118…0150 at000a = ╱69╱i╱ // 0x122 @0xa
0x0118…0150 at000b = ╱6b╱k╱ // 0x123 @0xb
0x0118…0150 at000c = ╱6c╱l╱ // 0x124 @0xc
0x0118…0150 at000d = ╱65╱e╱ // 0x125 @0xd
0x0118…0150 at000e = ╱74╱t╱ // 0x126 @0xe
0x0118…0150 at000f = ╱20╱…╱ // 0x127 @0xf
0x0118…0150 at0010 = ╱6d╱m╱ // 0x128 @0x10
0x0118…0150 at0011 = ╱61╱a╱ // 0x129 @0x11
0x0118…0150 at0012 = ╱72╱r╱ // 0x12a @0x12
0x0118…0150 at0013 = ╱74╱t╱ // 0x12b @0x13
0x0118…0150 at0014 = ╱73╱s╱ // 0x12c @0x14
0x0118…0150 at0015 = ╱20╱…╱ // 0x12d @0x15
0x0118…0150 at0016 = ╱31╱1╱ // 0x12e @0x16
0x0118…0150 at0017 = ╱39╱9╱ // 0x12f @0x17
0x0118…0150 at0018 = ╱38╱8╱ // 0x130 @0x18
0x0118…0150 at0019 = ╱33╱3╱ // 0x131 @0x19
0x0118…0150 at001a = ╱20╱…╱ // 0x132 @0x1a
0x0118…0150 at001b = ╱70╱p╱ // 0x133 @0x1b
0x0118…0150 at001c = ╱7d╱}╱ // 0x134 @0x1c
0x0118…0150 at001d = ╱20╱…╱ // 0x135 @0x1d
0x0118…0150 at001e = ╱65╱e╱ // 0x136 @0x1e
0x0118…0150 at001f = ╱6e╱n╱ // 0x137 @0x1f
0x0118…0150 at0020 = ╱20╱…╱ // 0x138 @0x20
0x0118…0150 at0021 = ╱27╱'╱ // 0x139 @0x21
0x0118…0150 at0022 = ╱53╱S╱ // 0x13a @0x22
0x0118…0150 at0023 = ╱50╱P╱ // 0x13b @0x23
0x0118…0150 at0024 = ╱43╱C╱ // 0x13c @0x24
0x0118…0150 at0025 = ╱2f╱/╱ // 0x13d @0x25
0x0118…0150 at0026 = ╱31╱1╱ // 0x13e @0x26
0x0118…0150 at0027 = ╱27╱'╱ // 0x13f @0x27
0x0118…0150 at0028 = ╱20╱…╱ // 0x140 @0x28
0x0118…0150 at0029 = ╱6d╱m╱ // 0x141 @0x29
0x0118…0150 at002a = ╱69╱i╱ // 0x142 @0x2a
0x0118…0150 at002b = ╱6b╱k╱ // 0x143 @0x2b
0x0118…0150 at002c = ╱72╱r╱ // 0x144 @0x2c
0x0118…0150 at002d = ╱6f╱o╱ // 0x145 @0x2d
0x0118…0150 at002e = ╱64╱d╱ // 0x146 @0x2e
0x0118…0150 at002f = ╱61╱a╱ // 0x147 @0x2f
0x0118…0150 at0030 = ╱74╱t╱ // 0x148 @0x30
0x0118…0150 at0031 = ╱61╱a╱ // 0x149 @0x31
0x0118…0150 at0032 = ╱6d╱m╱ // 0x14a @0x32
0x0118…0150 at0033 = ╱61╱a╱ // 0x14b @0x33
0x0118…0150 at0034 = ╱74╱t╱ // 0x14c @0x34
0x0118…0150 at0035 = ╱20╱…╱ // 0x14d @0x35
0x0118…0150 at0036 = ╱2a╱*╱ // 0x14e @0x36
0x0118…0150 at0037 = EOL // 0x14f @0x37
0x0118…0150 }
0x0150…0188 9776 00160 // *…Programsystemet…er…skrevet…i…COMAL80…vers.…1.2…*
0x0150…0188 LineComal80 {
0x0150…0188 ptr = 0x9776 // 0x150 @0x0
0x0150…0188 lno = 0x00a0 // 0x152 @0x2
0x0150…0188 at0004 = ╱89╱ // ╱ // 0x154 @0x4
0x0150…0188 at0005 = ╱2a╱*╱ // 0x155 @0x5
0x0150…0188 at0006 = ╱20╱…╱ // 0x156 @0x6
0x0150…0188 at0007 = ╱50╱P╱ // 0x157 @0x7
0x0150…0188 at0008 = ╱72╱r╱ // 0x158 @0x8
0x0150…0188 at0009 = ╱6f╱o╱ // 0x159 @0x9
0x0150…0188 at000a = ╱67╱g╱ // 0x15a @0xa
0x0150…0188 at000b = ╱72╱r╱ // 0x15b @0xb
0x0150…0188 at000c = ╱61╱a╱ // 0x15c @0xc
0x0150…0188 at000d = ╱6d╱m╱ // 0x15d @0xd
0x0150…0188 at000e = ╱73╱s╱ // 0x15e @0xe
0x0150…0188 at000f = ╱79╱y╱ // 0x15f @0xf
0x0150…0188 at0010 = ╱73╱s╱ // 0x160 @0x10
0x0150…0188 at0011 = ╱74╱t╱ // 0x161 @0x11
0x0150…0188 at0012 = ╱65╱e╱ // 0x162 @0x12
0x0150…0188 at0013 = ╱6d╱m╱ // 0x163 @0x13
0x0150…0188 at0014 = ╱65╱e╱ // 0x164 @0x14
0x0150…0188 at0015 = ╱74╱t╱ // 0x165 @0x15
0x0150…0188 at0016 = ╱20╱…╱ // 0x166 @0x16
0x0150…0188 at0017 = ╱65╱e╱ // 0x167 @0x17
0x0150…0188 at0018 = ╱72╱r╱ // 0x168 @0x18
0x0150…0188 at0019 = ╱20╱…╱ // 0x169 @0x19
0x0150…0188 at001a = ╱73╱s╱ // 0x16a @0x1a
0x0150…0188 at001b = ╱6b╱k╱ // 0x16b @0x1b
0x0150…0188 at001c = ╱72╱r╱ // 0x16c @0x1c
0x0150…0188 at001d = ╱65╱e╱ // 0x16d @0x1d
0x0150…0188 at001e = ╱76╱v╱ // 0x16e @0x1e
0x0150…0188 at001f = ╱65╱e╱ // 0x16f @0x1f
0x0150…0188 at0020 = ╱74╱t╱ // 0x170 @0x20
0x0150…0188 at0021 = ╱20╱…╱ // 0x171 @0x21
0x0150…0188 at0022 = ╱69╱i╱ // 0x172 @0x22
0x0150…0188 at0023 = ╱20╱…╱ // 0x173 @0x23
0x0150…0188 at0024 = ╱43╱C╱ // 0x174 @0x24
0x0150…0188 at0025 = ╱4f╱O╱ // 0x175 @0x25
0x0150…0188 at0026 = ╱4d╱M╱ // 0x176 @0x26
0x0150…0188 at0027 = ╱41╱A╱ // 0x177 @0x27
0x0150…0188 at0028 = ╱4c╱L╱ // 0x178 @0x28
0x0150…0188 at0029 = ╱38╱8╱ // 0x179 @0x29
0x0150…0188 at002a = ╱30╱0╱ // 0x17a @0x2a
0x0150…0188 at002b = ╱20╱…╱ // 0x17b @0x2b
0x0150…0188 at002c = ╱76╱v╱ // 0x17c @0x2c
0x0150…0188 at002d = ╱65╱e╱ // 0x17d @0x2d
0x0150…0188 at002e = ╱72╱r╱ // 0x17e @0x2e
0x0150…0188 at002f = ╱73╱s╱ // 0x17f @0x2f
0x0150…0188 at0030 = ╱2e╱.╱ // 0x180 @0x30
0x0150…0188 at0031 = ╱20╱…╱ // 0x181 @0x31
0x0150…0188 at0032 = ╱31╱1╱ // 0x182 @0x32
0x0150…0188 at0033 = ╱2e╱.╱ // 0x183 @0x33
0x0150…0188 at0034 = ╱32╱2╱ // 0x184 @0x34
0x0150…0188 at0035 = ╱20╱…╱ // 0x185 @0x35
0x0150…0188 at0036 = ╱2a╱*╱ // 0x186 @0x36
0x0150…0188 at0037 = EOL // 0x187 @0x37
0x0150…0188 }
0x0188…01c0 97ae 00170 // *………………………………………………………………………………………………………………………………*
0x0188…01c0 LineComal80 {
0x0188…01c0 ptr = 0x97ae // 0x188 @0x0
0x0188…01c0 lno = 0x00aa // 0x18a @0x2
0x0188…01c0 at0004 = ╱89╱ // ╱ // 0x18c @0x4
0x0188…01c0 at0005 = ╱2a╱*╱ // 0x18d @0x5
0x0188…01c0 at0006 = ╱20╱…╱ // 0x18e @0x6
0x0188…01c0 at0007 = ╱20╱…╱ // 0x18f @0x7
0x0188…01c0 at0008 = ╱20╱…╱ // 0x190 @0x8
0x0188…01c0 at0009 = ╱20╱…╱ // 0x191 @0x9
0x0188…01c0 at000a = ╱20╱…╱ // 0x192 @0xa
0x0188…01c0 at000b = ╱20╱…╱ // 0x193 @0xb
0x0188…01c0 at000c = ╱20╱…╱ // 0x194 @0xc
0x0188…01c0 at000d = ╱20╱…╱ // 0x195 @0xd
0x0188…01c0 at000e = ╱20╱…╱ // 0x196 @0xe
0x0188…01c0 at000f = ╱20╱…╱ // 0x197 @0xf
0x0188…01c0 at0010 = ╱20╱…╱ // 0x198 @0x10
0x0188…01c0 at0011 = ╱20╱…╱ // 0x199 @0x11
0x0188…01c0 at0012 = ╱20╱…╱ // 0x19a @0x12
0x0188…01c0 at0013 = ╱20╱…╱ // 0x19b @0x13
0x0188…01c0 at0014 = ╱20╱…╱ // 0x19c @0x14
0x0188…01c0 at0015 = ╱20╱…╱ // 0x19d @0x15
0x0188…01c0 at0016 = ╱20╱…╱ // 0x19e @0x16
0x0188…01c0 at0017 = ╱20╱…╱ // 0x19f @0x17
0x0188…01c0 at0018 = ╱20╱…╱ // 0x1a0 @0x18
0x0188…01c0 at0019 = ╱20╱…╱ // 0x1a1 @0x19
0x0188…01c0 at001a = ╱20╱…╱ // 0x1a2 @0x1a
0x0188…01c0 at001b = ╱20╱…╱ // 0x1a3 @0x1b
0x0188…01c0 at001c = ╱20╱…╱ // 0x1a4 @0x1c
0x0188…01c0 at001d = ╱20╱…╱ // 0x1a5 @0x1d
0x0188…01c0 at001e = ╱20╱…╱ // 0x1a6 @0x1e
0x0188…01c0 at001f = ╱20╱…╱ // 0x1a7 @0x1f
0x0188…01c0 at0020 = ╱20╱…╱ // 0x1a8 @0x20
0x0188…01c0 at0021 = ╱20╱…╱ // 0x1a9 @0x21
0x0188…01c0 at0022 = ╱20╱…╱ // 0x1aa @0x22
0x0188…01c0 at0023 = ╱20╱…╱ // 0x1ab @0x23
0x0188…01c0 at0024 = ╱20╱…╱ // 0x1ac @0x24
0x0188…01c0 at0025 = ╱20╱…╱ // 0x1ad @0x25
0x0188…01c0 at0026 = ╱20╱…╱ // 0x1ae @0x26
0x0188…01c0 at0027 = ╱20╱…╱ // 0x1af @0x27
0x0188…01c0 at0028 = ╱20╱…╱ // 0x1b0 @0x28
0x0188…01c0 at0029 = ╱20╱…╱ // 0x1b1 @0x29
0x0188…01c0 at002a = ╱20╱…╱ // 0x1b2 @0x2a
0x0188…01c0 at002b = ╱20╱…╱ // 0x1b3 @0x2b
0x0188…01c0 at002c = ╱20╱…╱ // 0x1b4 @0x2c
0x0188…01c0 at002d = ╱20╱…╱ // 0x1b5 @0x2d
0x0188…01c0 at002e = ╱20╱…╱ // 0x1b6 @0x2e
0x0188…01c0 at002f = ╱20╱…╱ // 0x1b7 @0x2f
0x0188…01c0 at0030 = ╱20╱…╱ // 0x1b8 @0x30
0x0188…01c0 at0031 = ╱20╱…╱ // 0x1b9 @0x31
0x0188…01c0 at0032 = ╱20╱…╱ // 0x1ba @0x32
0x0188…01c0 at0033 = ╱20╱…╱ // 0x1bb @0x33
0x0188…01c0 at0034 = ╱20╱…╱ // 0x1bc @0x34
0x0188…01c0 at0035 = ╱20╱…╱ // 0x1bd @0x35
0x0188…01c0 at0036 = ╱2a╱*╱ // 0x1be @0x36
0x0188…01c0 at0037 = EOL // 0x1bf @0x37
0x0188…01c0 }
0x01c0…01f8 97e6 00180 // *…Udviklet…af…:…Peter…Kristensen……………………………………………*
0x01c0…01f8 LineComal80 {
0x01c0…01f8 ptr = 0x97e6 // 0x1c0 @0x0
0x01c0…01f8 lno = 0x00b4 // 0x1c2 @0x2
0x01c0…01f8 at0004 = ╱89╱ // ╱ // 0x1c4 @0x4
0x01c0…01f8 at0005 = ╱2a╱*╱ // 0x1c5 @0x5
0x01c0…01f8 at0006 = ╱20╱…╱ // 0x1c6 @0x6
0x01c0…01f8 at0007 = ╱55╱U╱ // 0x1c7 @0x7
0x01c0…01f8 at0008 = ╱64╱d╱ // 0x1c8 @0x8
0x01c0…01f8 at0009 = ╱76╱v╱ // 0x1c9 @0x9
0x01c0…01f8 at000a = ╱69╱i╱ // 0x1ca @0xa
0x01c0…01f8 at000b = ╱6b╱k╱ // 0x1cb @0xb
0x01c0…01f8 at000c = ╱6c╱l╱ // 0x1cc @0xc
0x01c0…01f8 at000d = ╱65╱e╱ // 0x1cd @0xd
0x01c0…01f8 at000e = ╱74╱t╱ // 0x1ce @0xe
0x01c0…01f8 at000f = ╱20╱…╱ // 0x1cf @0xf
0x01c0…01f8 at0010 = ╱61╱a╱ // 0x1d0 @0x10
0x01c0…01f8 at0011 = ╱66╱f╱ // 0x1d1 @0x11
0x01c0…01f8 at0012 = ╱20╱…╱ // 0x1d2 @0x12
0x01c0…01f8 at0013 = ╱3a╱:╱ // 0x1d3 @0x13
0x01c0…01f8 at0014 = ╱20╱…╱ // 0x1d4 @0x14
0x01c0…01f8 at0015 = ╱50╱P╱ // 0x1d5 @0x15
0x01c0…01f8 at0016 = ╱65╱e╱ // 0x1d6 @0x16
0x01c0…01f8 at0017 = ╱74╱t╱ // 0x1d7 @0x17
0x01c0…01f8 at0018 = ╱65╱e╱ // 0x1d8 @0x18
0x01c0…01f8 at0019 = ╱72╱r╱ // 0x1d9 @0x19
0x01c0…01f8 at001a = ╱20╱…╱ // 0x1da @0x1a
0x01c0…01f8 at001b = ╱4b╱K╱ // 0x1db @0x1b
0x01c0…01f8 at001c = ╱72╱r╱ // 0x1dc @0x1c
0x01c0…01f8 at001d = ╱69╱i╱ // 0x1dd @0x1d
0x01c0…01f8 at001e = ╱73╱s╱ // 0x1de @0x1e
0x01c0…01f8 at001f = ╱74╱t╱ // 0x1df @0x1f
0x01c0…01f8 at0020 = ╱65╱e╱ // 0x1e0 @0x20
0x01c0…01f8 at0021 = ╱6e╱n╱ // 0x1e1 @0x21
0x01c0…01f8 at0022 = ╱73╱s╱ // 0x1e2 @0x22
0x01c0…01f8 at0023 = ╱65╱e╱ // 0x1e3 @0x23
0x01c0…01f8 at0024 = ╱6e╱n╱ // 0x1e4 @0x24
0x01c0…01f8 at0025 = ╱20╱…╱ // 0x1e5 @0x25
0x01c0…01f8 at0026 = ╱20╱…╱ // 0x1e6 @0x26
0x01c0…01f8 at0027 = ╱20╱…╱ // 0x1e7 @0x27
0x01c0…01f8 at0028 = ╱20╱…╱ // 0x1e8 @0x28
0x01c0…01f8 at0029 = ╱20╱…╱ // 0x1e9 @0x29
0x01c0…01f8 at002a = ╱20╱…╱ // 0x1ea @0x2a
0x01c0…01f8 at002b = ╱20╱…╱ // 0x1eb @0x2b
0x01c0…01f8 at002c = ╱20╱…╱ // 0x1ec @0x2c
0x01c0…01f8 at002d = ╱20╱…╱ // 0x1ed @0x2d
0x01c0…01f8 at002e = ╱20╱…╱ // 0x1ee @0x2e
0x01c0…01f8 at002f = ╱20╱…╱ // 0x1ef @0x2f
0x01c0…01f8 at0030 = ╱20╱…╱ // 0x1f0 @0x30
0x01c0…01f8 at0031 = ╱20╱…╱ // 0x1f1 @0x31
0x01c0…01f8 at0032 = ╱20╱…╱ // 0x1f2 @0x32
0x01c0…01f8 at0033 = ╱20╱…╱ // 0x1f3 @0x33
0x01c0…01f8 at0034 = ╱20╱…╱ // 0x1f4 @0x34
0x01c0…01f8 at0035 = ╱20╱…╱ // 0x1f5 @0x35
0x01c0…01f8 at0036 = ╱2a╱*╱ // 0x1f6 @0x36
0x01c0…01f8 at0037 = EOL // 0x1f7 @0x37
0x01c0…01f8 }
0x01f8…0230 981e 00190 // *………………………………………Vestervang…6,…6920…Videb{k…………………*
0x01f8…0230 LineComal80 {
0x01f8…0230 ptr = 0x981e // 0x1f8 @0x0
0x01f8…0230 lno = 0x00be // 0x1fa @0x2
0x01f8…0230 at0004 = ╱89╱ // ╱ // 0x1fc @0x4
0x01f8…0230 at0005 = ╱2a╱*╱ // 0x1fd @0x5
0x01f8…0230 at0006 = ╱20╱…╱ // 0x1fe @0x6
0x01f8…0230 at0007 = ╱20╱…╱ // 0x1ff @0x7
0x01f8…0230 at0008 = ╱20╱…╱ // 0x200 @0x8
0x01f8…0230 at0009 = ╱20╱…╱ // 0x201 @0x9
0x01f8…0230 at000a = ╱20╱…╱ // 0x202 @0xa
0x01f8…0230 at000b = ╱20╱…╱ // 0x203 @0xb
0x01f8…0230 at000c = ╱20╱…╱ // 0x204 @0xc
0x01f8…0230 at000d = ╱20╱…╱ // 0x205 @0xd
0x01f8…0230 at000e = ╱20╱…╱ // 0x206 @0xe
0x01f8…0230 at000f = ╱20╱…╱ // 0x207 @0xf
0x01f8…0230 at0010 = ╱20╱…╱ // 0x208 @0x10
0x01f8…0230 at0011 = ╱20╱…╱ // 0x209 @0x11
0x01f8…0230 at0012 = ╱20╱…╱ // 0x20a @0x12
0x01f8…0230 at0013 = ╱20╱…╱ // 0x20b @0x13
0x01f8…0230 at0014 = ╱20╱…╱ // 0x20c @0x14
0x01f8…0230 at0015 = ╱56╱V╱ // 0x20d @0x15
0x01f8…0230 at0016 = ╱65╱e╱ // 0x20e @0x16
0x01f8…0230 at0017 = ╱73╱s╱ // 0x20f @0x17
0x01f8…0230 at0018 = ╱74╱t╱ // 0x210 @0x18
0x01f8…0230 at0019 = ╱65╱e╱ // 0x211 @0x19
0x01f8…0230 at001a = ╱72╱r╱ // 0x212 @0x1a
0x01f8…0230 at001b = ╱76╱v╱ // 0x213 @0x1b
0x01f8…0230 at001c = ╱61╱a╱ // 0x214 @0x1c
0x01f8…0230 at001d = ╱6e╱n╱ // 0x215 @0x1d
0x01f8…0230 at001e = ╱67╱g╱ // 0x216 @0x1e
0x01f8…0230 at001f = ╱20╱…╱ // 0x217 @0x1f
0x01f8…0230 at0020 = ╱36╱6╱ // 0x218 @0x20
0x01f8…0230 at0021 = ╱2c╱,╱ // 0x219 @0x21
0x01f8…0230 at0022 = ╱20╱…╱ // 0x21a @0x22
0x01f8…0230 at0023 = ╱36╱6╱ // 0x21b @0x23
0x01f8…0230 at0024 = ╱39╱9╱ // 0x21c @0x24
0x01f8…0230 at0025 = ╱32╱2╱ // 0x21d @0x25
0x01f8…0230 at0026 = ╱30╱0╱ // 0x21e @0x26
0x01f8…0230 at0027 = ╱20╱…╱ // 0x21f @0x27
0x01f8…0230 at0028 = ╱56╱V╱ // 0x220 @0x28
0x01f8…0230 at0029 = ╱69╱i╱ // 0x221 @0x29
0x01f8…0230 at002a = ╱64╱d╱ // 0x222 @0x2a
0x01f8…0230 at002b = ╱65╱e╱ // 0x223 @0x2b
0x01f8…0230 at002c = ╱62╱b╱ // 0x224 @0x2c
0x01f8…0230 at002d = ╱7b╱{╱ // 0x225 @0x2d
0x01f8…0230 at002e = ╱6b╱k╱ // 0x226 @0x2e
0x01f8…0230 at002f = ╱20╱…╱ // 0x227 @0x2f
0x01f8…0230 at0030 = ╱20╱…╱ // 0x228 @0x30
0x01f8…0230 at0031 = ╱20╱…╱ // 0x229 @0x31
0x01f8…0230 at0032 = ╱20╱…╱ // 0x22a @0x32
0x01f8…0230 at0033 = ╱20╱…╱ // 0x22b @0x33
0x01f8…0230 at0034 = ╱20╱…╱ // 0x22c @0x34
0x01f8…0230 at0035 = ╱20╱…╱ // 0x22d @0x35
0x01f8…0230 at0036 = ╱2a╱*╱ // 0x22e @0x36
0x01f8…0230 at0037 = EOL // 0x22f @0x37
0x01f8…0230 }
0x0230…0268 9856 00200 // *………………………………………………………………………………………………………………………………*
0x0230…0268 LineComal80 {
0x0230…0268 ptr = 0x9856 // 0x230 @0x0
0x0230…0268 lno = 0x00c8 // 0x232 @0x2
0x0230…0268 at0004 = ╱89╱ // ╱ // 0x234 @0x4
0x0230…0268 at0005 = ╱2a╱*╱ // 0x235 @0x5
0x0230…0268 at0006 = ╱20╱…╱ // 0x236 @0x6
0x0230…0268 at0007 = ╱20╱…╱ // 0x237 @0x7
0x0230…0268 at0008 = ╱20╱…╱ // 0x238 @0x8
0x0230…0268 at0009 = ╱20╱…╱ // 0x239 @0x9
0x0230…0268 at000a = ╱20╱…╱ // 0x23a @0xa
0x0230…0268 at000b = ╱20╱…╱ // 0x23b @0xb
0x0230…0268 at000c = ╱20╱…╱ // 0x23c @0xc
0x0230…0268 at000d = ╱20╱…╱ // 0x23d @0xd
0x0230…0268 at000e = ╱20╱…╱ // 0x23e @0xe
0x0230…0268 at000f = ╱20╱…╱ // 0x23f @0xf
0x0230…0268 at0010 = ╱20╱…╱ // 0x240 @0x10
0x0230…0268 at0011 = ╱20╱…╱ // 0x241 @0x11
0x0230…0268 at0012 = ╱20╱…╱ // 0x242 @0x12
0x0230…0268 at0013 = ╱20╱…╱ // 0x243 @0x13
0x0230…0268 at0014 = ╱20╱…╱ // 0x244 @0x14
0x0230…0268 at0015 = ╱20╱…╱ // 0x245 @0x15
0x0230…0268 at0016 = ╱20╱…╱ // 0x246 @0x16
0x0230…0268 at0017 = ╱20╱…╱ // 0x247 @0x17
0x0230…0268 at0018 = ╱20╱…╱ // 0x248 @0x18
0x0230…0268 at0019 = ╱20╱…╱ // 0x249 @0x19
0x0230…0268 at001a = ╱20╱…╱ // 0x24a @0x1a
0x0230…0268 at001b = ╱20╱…╱ // 0x24b @0x1b
0x0230…0268 at001c = ╱20╱…╱ // 0x24c @0x1c
0x0230…0268 at001d = ╱20╱…╱ // 0x24d @0x1d
0x0230…0268 at001e = ╱20╱…╱ // 0x24e @0x1e
0x0230…0268 at001f = ╱20╱…╱ // 0x24f @0x1f
0x0230…0268 at0020 = ╱20╱…╱ // 0x250 @0x20
0x0230…0268 at0021 = ╱20╱…╱ // 0x251 @0x21
0x0230…0268 at0022 = ╱20╱…╱ // 0x252 @0x22
0x0230…0268 at0023 = ╱20╱…╱ // 0x253 @0x23
0x0230…0268 at0024 = ╱20╱…╱ // 0x254 @0x24
0x0230…0268 at0025 = ╱20╱…╱ // 0x255 @0x25
0x0230…0268 at0026 = ╱20╱…╱ // 0x256 @0x26
0x0230…0268 at0027 = ╱20╱…╱ // 0x257 @0x27
0x0230…0268 at0028 = ╱20╱…╱ // 0x258 @0x28
0x0230…0268 at0029 = ╱20╱…╱ // 0x259 @0x29
0x0230…0268 at002a = ╱20╱…╱ // 0x25a @0x2a
0x0230…0268 at002b = ╱20╱…╱ // 0x25b @0x2b
0x0230…0268 at002c = ╱20╱…╱ // 0x25c @0x2c
0x0230…0268 at002d = ╱20╱…╱ // 0x25d @0x2d
0x0230…0268 at002e = ╱20╱…╱ // 0x25e @0x2e
0x0230…0268 at002f = ╱20╱…╱ // 0x25f @0x2f
0x0230…0268 at0030 = ╱20╱…╱ // 0x260 @0x30
0x0230…0268 at0031 = ╱20╱…╱ // 0x261 @0x31
0x0230…0268 at0032 = ╱20╱…╱ // 0x262 @0x32
0x0230…0268 at0033 = ╱20╱…╱ // 0x263 @0x33
0x0230…0268 at0034 = ╱20╱…╱ // 0x264 @0x34
0x0230…0268 at0035 = ╱20╱…╱ // 0x265 @0x35
0x0230…0268 at0036 = ╱2a╱*╱ // 0x266 @0x36
0x0230…0268 at0037 = EOL // 0x267 @0x37
0x0230…0268 }
0x0268…02a0 (8,) 988e 00210 // *………(C)…………………:…forlaget…systime…a/s…………………………………*
0x0268…02a0 LineComal80 {
0x0268…02a0 ptr = 0x988e // 0x268 @0x0
0x0268…02a0 lno = 0x00d2 // 0x26a @0x2
0x0268…02a0 at0004 = ╱89╱ // ╱ // 0x26c @0x4
0x0268…02a0 at0005 = ╱2a╱*╱ // 0x26d @0x5
0x0268…02a0 at0006 = ╱20╱…╱ // 0x26e @0x6
0x0268…02a0 at0007 = ╱20╱…╱ // 0x26f @0x7
0x0268…02a0 at0008 = ╱20╱…╱ // 0x270 @0x8
0x0268…02a0 at0009 = ╱28╱(╱ // 0x271 @0x9
0x0268…02a0 at000a = ╱43╱C╱ // 0x272 @0xa
0x0268…02a0 at000b = ╱29╱)╱ // 0x273 @0xb
0x0268…02a0 at000c = ╱20╱…╱ // 0x274 @0xc
0x0268…02a0 at000d = ╱20╱…╱ // 0x275 @0xd
0x0268…02a0 at000e = ╱20╱…╱ // 0x276 @0xe
0x0268…02a0 at000f = ╱20╱…╱ // 0x277 @0xf
0x0268…02a0 at0010 = ╱20╱…╱ // 0x278 @0x10
0x0268…02a0 at0011 = ╱20╱…╱ // 0x279 @0x11
0x0268…02a0 at0012 = ╱20╱…╱ // 0x27a @0x12
0x0268…02a0 at0013 = ╱3a╱:╱ // 0x27b @0x13
0x0268…02a0 at0014 = ╱20╱…╱ // 0x27c @0x14
0x0268…02a0 at0015 = ╱66╱f╱ // 0x27d @0x15
0x0268…02a0 at0016 = ╱6f╱o╱ // 0x27e @0x16
0x0268…02a0 at0017 = ╱72╱r╱ // 0x27f @0x17
0x0268…02a0 at0018 = ╱6c╱l╱ // 0x280 @0x18
0x0268…02a0 at0019 = ╱61╱a╱ // 0x281 @0x19
0x0268…02a0 at001a = ╱67╱g╱ // 0x282 @0x1a
0x0268…02a0 at001b = ╱65╱e╱ // 0x283 @0x1b
0x0268…02a0 at001c = ╱74╱t╱ // 0x284 @0x1c
0x0268…02a0 at001d = ╱20╱…╱ // 0x285 @0x1d
0x0268…02a0 at001e = ╱73╱s╱ // 0x286 @0x1e
0x0268…02a0 at001f = ╱79╱y╱ // 0x287 @0x1f
0x0268…02a0 at0020 = ╱73╱s╱ // 0x288 @0x20
0x0268…02a0 at0021 = ╱74╱t╱ // 0x289 @0x21
0x0268…02a0 at0022 = ╱69╱i╱ // 0x28a @0x22
0x0268…02a0 at0023 = ╱6d╱m╱ // 0x28b @0x23
0x0268…02a0 at0024 = ╱65╱e╱ // 0x28c @0x24
0x0268…02a0 at0025 = ╱20╱…╱ // 0x28d @0x25
0x0268…02a0 at0026 = ╱61╱a╱ // 0x28e @0x26
0x0268…02a0 at0027 = ╱2f╱/╱ // 0x28f @0x27
0x0268…02a0 at0028 = ╱73╱s╱ // 0x290 @0x28
0x0268…02a0 at0029 = ╱20╱…╱ // 0x291 @0x29
0x0268…02a0 at002a = ╱20╱…╱ // 0x292 @0x2a
0x0268…02a0 at002b = ╱20╱…╱ // 0x293 @0x2b
0x0268…02a0 at002c = ╱20╱…╱ // 0x294 @0x2c
0x0268…02a0 at002d = ╱20╱…╱ // 0x295 @0x2d
0x0268…02a0 at002e = ╱20╱…╱ // 0x296 @0x2e
0x0268…02a0 at002f = ╱20╱…╱ // 0x297 @0x2f
0x0268…02a0 at0030 = ╱20╱…╱ // 0x298 @0x30
0x0268…02a0 at0031 = ╱20╱…╱ // 0x299 @0x31
0x0268…02a0 at0032 = ╱20╱…╱ // 0x29a @0x32
0x0268…02a0 at0033 = ╱20╱…╱ // 0x29b @0x33
0x0268…02a0 at0034 = ╱20╱…╱ // 0x29c @0x34
0x0268…02a0 at0035 = ╱20╱…╱ // 0x29d @0x35
0x0268…02a0 at0036 = ╱2a╱*╱ // 0x29e @0x36
0x0268…02a0 at0037 = EOL // 0x29f @0x37
0x0268…02a0 }
0x02a0…02d8 98c6 00220 // *………………………………………Klokkebakken…20,…Gjellerup…………………*
0x02a0…02d8 LineComal80 {
0x02a0…02d8 ptr = 0x98c6 // 0x2a0 @0x0
0x02a0…02d8 lno = 0x00dc // 0x2a2 @0x2
0x02a0…02d8 at0004 = ╱89╱ // ╱ // 0x2a4 @0x4
0x02a0…02d8 at0005 = ╱2a╱*╱ // 0x2a5 @0x5
0x02a0…02d8 at0006 = ╱20╱…╱ // 0x2a6 @0x6
0x02a0…02d8 at0007 = ╱20╱…╱ // 0x2a7 @0x7
0x02a0…02d8 at0008 = ╱20╱…╱ // 0x2a8 @0x8
0x02a0…02d8 at0009 = ╱20╱…╱ // 0x2a9 @0x9
0x02a0…02d8 at000a = ╱20╱…╱ // 0x2aa @0xa
0x02a0…02d8 at000b = ╱20╱…╱ // 0x2ab @0xb
0x02a0…02d8 at000c = ╱20╱…╱ // 0x2ac @0xc
0x02a0…02d8 at000d = ╱20╱…╱ // 0x2ad @0xd
0x02a0…02d8 at000e = ╱20╱…╱ // 0x2ae @0xe
0x02a0…02d8 at000f = ╱20╱…╱ // 0x2af @0xf
0x02a0…02d8 at0010 = ╱20╱…╱ // 0x2b0 @0x10
0x02a0…02d8 at0011 = ╱20╱…╱ // 0x2b1 @0x11
0x02a0…02d8 at0012 = ╱20╱…╱ // 0x2b2 @0x12
0x02a0…02d8 at0013 = ╱20╱…╱ // 0x2b3 @0x13
0x02a0…02d8 at0014 = ╱20╱…╱ // 0x2b4 @0x14
0x02a0…02d8 at0015 = ╱4b╱K╱ // 0x2b5 @0x15
0x02a0…02d8 at0016 = ╱6c╱l╱ // 0x2b6 @0x16
0x02a0…02d8 at0017 = ╱6f╱o╱ // 0x2b7 @0x17
0x02a0…02d8 at0018 = ╱6b╱k╱ // 0x2b8 @0x18
0x02a0…02d8 at0019 = ╱6b╱k╱ // 0x2b9 @0x19
0x02a0…02d8 at001a = ╱65╱e╱ // 0x2ba @0x1a
0x02a0…02d8 at001b = ╱62╱b╱ // 0x2bb @0x1b
0x02a0…02d8 at001c = ╱61╱a╱ // 0x2bc @0x1c
0x02a0…02d8 at001d = ╱6b╱k╱ // 0x2bd @0x1d
0x02a0…02d8 at001e = ╱6b╱k╱ // 0x2be @0x1e
0x02a0…02d8 at001f = ╱65╱e╱ // 0x2bf @0x1f
0x02a0…02d8 at0020 = ╱6e╱n╱ // 0x2c0 @0x20
0x02a0…02d8 at0021 = ╱20╱…╱ // 0x2c1 @0x21
0x02a0…02d8 at0022 = ╱32╱2╱ // 0x2c2 @0x22
0x02a0…02d8 at0023 = ╱30╱0╱ // 0x2c3 @0x23
0x02a0…02d8 at0024 = ╱2c╱,╱ // 0x2c4 @0x24
0x02a0…02d8 at0025 = ╱20╱…╱ // 0x2c5 @0x25
0x02a0…02d8 at0026 = ╱47╱G╱ // 0x2c6 @0x26
0x02a0…02d8 at0027 = ╱6a╱j╱ // 0x2c7 @0x27
0x02a0…02d8 at0028 = ╱65╱e╱ // 0x2c8 @0x28
0x02a0…02d8 at0029 = ╱6c╱l╱ // 0x2c9 @0x29
0x02a0…02d8 at002a = ╱6c╱l╱ // 0x2ca @0x2a
0x02a0…02d8 at002b = ╱65╱e╱ // 0x2cb @0x2b
0x02a0…02d8 at002c = ╱72╱r╱ // 0x2cc @0x2c
0x02a0…02d8 at002d = ╱75╱u╱ // 0x2cd @0x2d
0x02a0…02d8 at002e = ╱70╱p╱ // 0x2ce @0x2e
0x02a0…02d8 at002f = ╱20╱…╱ // 0x2cf @0x2f
0x02a0…02d8 at0030 = ╱20╱…╱ // 0x2d0 @0x30
0x02a0…02d8 at0031 = ╱20╱…╱ // 0x2d1 @0x31
0x02a0…02d8 at0032 = ╱20╱…╱ // 0x2d2 @0x32
0x02a0…02d8 at0033 = ╱20╱…╱ // 0x2d3 @0x33
0x02a0…02d8 at0034 = ╱20╱…╱ // 0x2d4 @0x34
0x02a0…02d8 at0035 = ╱20╱…╱ // 0x2d5 @0x35
0x02a0…02d8 at0036 = ╱2a╱*╱ // 0x2d6 @0x36
0x02a0…02d8 at0037 = EOL // 0x2d7 @0x37
0x02a0…02d8 }
0x02d8…0310 98fe 00230 // *………………………………………7400……Herning……………………………………………………*
0x02d8…0310 LineComal80 {
0x02d8…0310 ptr = 0x98fe // 0x2d8 @0x0
0x02d8…0310 lno = 0x00e6 // 0x2da @0x2
0x02d8…0310 at0004 = ╱89╱ // ╱ // 0x2dc @0x4
0x02d8…0310 at0005 = ╱2a╱*╱ // 0x2dd @0x5
0x02d8…0310 at0006 = ╱20╱…╱ // 0x2de @0x6
0x02d8…0310 at0007 = ╱20╱…╱ // 0x2df @0x7
0x02d8…0310 at0008 = ╱20╱…╱ // 0x2e0 @0x8
0x02d8…0310 at0009 = ╱20╱…╱ // 0x2e1 @0x9
0x02d8…0310 at000a = ╱20╱…╱ // 0x2e2 @0xa
0x02d8…0310 at000b = ╱20╱…╱ // 0x2e3 @0xb
0x02d8…0310 at000c = ╱20╱…╱ // 0x2e4 @0xc
0x02d8…0310 at000d = ╱20╱…╱ // 0x2e5 @0xd
0x02d8…0310 at000e = ╱20╱…╱ // 0x2e6 @0xe
0x02d8…0310 at000f = ╱20╱…╱ // 0x2e7 @0xf
0x02d8…0310 at0010 = ╱20╱…╱ // 0x2e8 @0x10
0x02d8…0310 at0011 = ╱20╱…╱ // 0x2e9 @0x11
0x02d8…0310 at0012 = ╱20╱…╱ // 0x2ea @0x12
0x02d8…0310 at0013 = ╱20╱…╱ // 0x2eb @0x13
0x02d8…0310 at0014 = ╱20╱…╱ // 0x2ec @0x14
0x02d8…0310 at0015 = ╱37╱7╱ // 0x2ed @0x15
0x02d8…0310 at0016 = ╱34╱4╱ // 0x2ee @0x16
0x02d8…0310 at0017 = ╱30╱0╱ // 0x2ef @0x17
0x02d8…0310 at0018 = ╱30╱0╱ // 0x2f0 @0x18
0x02d8…0310 at0019 = ╱20╱…╱ // 0x2f1 @0x19
0x02d8…0310 at001a = ╱20╱…╱ // 0x2f2 @0x1a
0x02d8…0310 at001b = ╱48╱H╱ // 0x2f3 @0x1b
0x02d8…0310 at001c = ╱65╱e╱ // 0x2f4 @0x1c
0x02d8…0310 at001d = ╱72╱r╱ // 0x2f5 @0x1d
0x02d8…0310 at001e = ╱6e╱n╱ // 0x2f6 @0x1e
0x02d8…0310 at001f = ╱69╱i╱ // 0x2f7 @0x1f
0x02d8…0310 at0020 = ╱6e╱n╱ // 0x2f8 @0x20
0x02d8…0310 at0021 = ╱67╱g╱ // 0x2f9 @0x21
0x02d8…0310 at0022 = ╱20╱…╱ // 0x2fa @0x22
0x02d8…0310 at0023 = ╱20╱…╱ // 0x2fb @0x23
0x02d8…0310 at0024 = ╱20╱…╱ // 0x2fc @0x24
0x02d8…0310 at0025 = ╱20╱…╱ // 0x2fd @0x25
0x02d8…0310 at0026 = ╱20╱…╱ // 0x2fe @0x26
0x02d8…0310 at0027 = ╱20╱…╱ // 0x2ff @0x27
0x02d8…0310 at0028 = ╱20╱…╱ // 0x300 @0x28
0x02d8…0310 at0029 = ╱20╱…╱ // 0x301 @0x29
0x02d8…0310 at002a = ╱20╱…╱ // 0x302 @0x2a
0x02d8…0310 at002b = ╱20╱…╱ // 0x303 @0x2b
0x02d8…0310 at002c = ╱20╱…╱ // 0x304 @0x2c
0x02d8…0310 at002d = ╱20╱…╱ // 0x305 @0x2d
0x02d8…0310 at002e = ╱20╱…╱ // 0x306 @0x2e
0x02d8…0310 at002f = ╱20╱…╱ // 0x307 @0x2f
0x02d8…0310 at0030 = ╱20╱…╱ // 0x308 @0x30
0x02d8…0310 at0031 = ╱20╱…╱ // 0x309 @0x31
0x02d8…0310 at0032 = ╱20╱…╱ // 0x30a @0x32
0x02d8…0310 at0033 = ╱20╱…╱ // 0x30b @0x33
0x02d8…0310 at0034 = ╱20╱…╱ // 0x30c @0x34
0x02d8…0310 at0035 = ╱20╱…╱ // 0x30d @0x35
0x02d8…0310 at0036 = ╱2a╱*╱ // 0x30e @0x36
0x02d8…0310 at0037 = EOL // 0x30f @0x37
0x02d8…0310 }
0x0310…0348 9936 00240 // **************************************************
0x0310…0348 LineComal80 {
0x0310…0348 ptr = 0x9936 // 0x310 @0x0
0x0310…0348 lno = 0x00f0 // 0x312 @0x2
0x0310…0348 at0004 = ╱89╱ // ╱ // 0x314 @0x4
0x0310…0348 at0005 = ╱2a╱*╱ // 0x315 @0x5
0x0310…0348 at0006 = ╱2a╱*╱ // 0x316 @0x6
0x0310…0348 at0007 = ╱2a╱*╱ // 0x317 @0x7
0x0310…0348 at0008 = ╱2a╱*╱ // 0x318 @0x8
0x0310…0348 at0009 = ╱2a╱*╱ // 0x319 @0x9
0x0310…0348 at000a = ╱2a╱*╱ // 0x31a @0xa
0x0310…0348 at000b = ╱2a╱*╱ // 0x31b @0xb
0x0310…0348 at000c = ╱2a╱*╱ // 0x31c @0xc
0x0310…0348 at000d = ╱2a╱*╱ // 0x31d @0xd
0x0310…0348 at000e = ╱2a╱*╱ // 0x31e @0xe
0x0310…0348 at000f = ╱2a╱*╱ // 0x31f @0xf
0x0310…0348 at0010 = ╱2a╱*╱ // 0x320 @0x10
0x0310…0348 at0011 = ╱2a╱*╱ // 0x321 @0x11
0x0310…0348 at0012 = ╱2a╱*╱ // 0x322 @0x12
0x0310…0348 at0013 = ╱2a╱*╱ // 0x323 @0x13
0x0310…0348 at0014 = ╱2a╱*╱ // 0x324 @0x14
0x0310…0348 at0015 = ╱2a╱*╱ // 0x325 @0x15
0x0310…0348 at0016 = ╱2a╱*╱ // 0x326 @0x16
0x0310…0348 at0017 = ╱2a╱*╱ // 0x327 @0x17
0x0310…0348 at0018 = ╱2a╱*╱ // 0x328 @0x18
0x0310…0348 at0019 = ╱2a╱*╱ // 0x329 @0x19
0x0310…0348 at001a = ╱2a╱*╱ // 0x32a @0x1a
0x0310…0348 at001b = ╱2a╱*╱ // 0x32b @0x1b
0x0310…0348 at001c = ╱2a╱*╱ // 0x32c @0x1c
0x0310…0348 at001d = ╱2a╱*╱ // 0x32d @0x1d
0x0310…0348 at001e = ╱2a╱*╱ // 0x32e @0x1e
0x0310…0348 at001f = ╱2a╱*╱ // 0x32f @0x1f
0x0310…0348 at0020 = ╱2a╱*╱ // 0x330 @0x20
0x0310…0348 at0021 = ╱2a╱*╱ // 0x331 @0x21
0x0310…0348 at0022 = ╱2a╱*╱ // 0x332 @0x22
0x0310…0348 at0023 = ╱2a╱*╱ // 0x333 @0x23
0x0310…0348 at0024 = ╱2a╱*╱ // 0x334 @0x24
0x0310…0348 at0025 = ╱2a╱*╱ // 0x335 @0x25
0x0310…0348 at0026 = ╱2a╱*╱ // 0x336 @0x26
0x0310…0348 at0027 = ╱2a╱*╱ // 0x337 @0x27
0x0310…0348 at0028 = ╱2a╱*╱ // 0x338 @0x28
0x0310…0348 at0029 = ╱2a╱*╱ // 0x339 @0x29
0x0310…0348 at002a = ╱2a╱*╱ // 0x33a @0x2a
0x0310…0348 at002b = ╱2a╱*╱ // 0x33b @0x2b
0x0310…0348 at002c = ╱2a╱*╱ // 0x33c @0x2c
0x0310…0348 at002d = ╱2a╱*╱ // 0x33d @0x2d
0x0310…0348 at002e = ╱2a╱*╱ // 0x33e @0x2e
0x0310…0348 at002f = ╱2a╱*╱ // 0x33f @0x2f
0x0310…0348 at0030 = ╱2a╱*╱ // 0x340 @0x30
0x0310…0348 at0031 = ╱2a╱*╱ // 0x341 @0x31
0x0310…0348 at0032 = ╱2a╱*╱ // 0x342 @0x32
0x0310…0348 at0033 = ╱2a╱*╱ // 0x343 @0x33
0x0310…0348 at0034 = ╱2a╱*╱ // 0x344 @0x34
0x0310…0348 at0035 = ╱2a╱*╱ // 0x345 @0x35
0x0310…0348 at0036 = ╱2a╱*╱ // 0x346 @0x36
0x0310…0348 at0037 = EOL // 0x347 @0x37
0x0310…0348 }
0x0348…0359 9947 00250 EXEC DIMENSIONER
0x0348…0359 LineComal80 {
0x0348…0359 ptr = 0x9947 // 0x348 @0x0
0x0348…0359 lno = 0x00fa // 0x34a @0x2
0x0348…0359 at0004 = ╱9d╱ EXEC ╱ // 0x34c @0x4
0x0348…0359 at0005 = ╱44╱D╱ // 0x34d @0x5
0x0348…0359 at0006 = ╱49╱I╱ // 0x34e @0x6
0x0348…0359 at0007 = ╱4d╱M╱ // 0x34f @0x7
0x0348…0359 at0008 = ╱45╱E╱ // 0x350 @0x8
0x0348…0359 at0009 = ╱4e╱N╱ // 0x351 @0x9
0x0348…0359 at000a = ╱53╱S╱ // 0x352 @0xa
0x0348…0359 at000b = ╱49╱I╱ // 0x353 @0xb
0x0348…0359 at000c = ╱4f╱O╱ // 0x354 @0xc
0x0348…0359 at000d = ╱4e╱N╱ // 0x355 @0xd
0x0348…0359 at000e = ╱45╱E╱ // 0x356 @0xe
0x0348…0359 at000f = ╱52╱R╱ // 0x357 @0xf
0x0348…0359 at0010 = EOL // 0x358 @0x10
0x0348…0359 }
0x0359…0366 9954 00260 EXEC INITIER
0x0359…0366 LineComal80 {
0x0359…0366 ptr = 0x9954 // 0x359 @0x0
0x0359…0366 lno = 0x0104 // 0x35b @0x2
0x0359…0366 at0004 = ╱9d╱ EXEC ╱ // 0x35d @0x4
0x0359…0366 at0005 = ╱49╱I╱ // 0x35e @0x5
0x0359…0366 at0006 = ╱4e╱N╱ // 0x35f @0x6
0x0359…0366 at0007 = ╱49╱I╱ // 0x360 @0x7
0x0359…0366 at0008 = ╱54╱T╱ // 0x361 @0x8
0x0359…0366 at0009 = ╱49╱I╱ // 0x362 @0x9
0x0359…0366 at000a = ╱45╱E╱ // 0x363 @0xa
0x0359…0366 at000b = ╱52╱R╱ // 0x364 @0xb
0x0359…0366 at000c = EOL // 0x365 @0xc
0x0359…0366 }
0x0366…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…0471 9a5f 00350 INTEGER OK , TRUE , FALSE , I , J , DEBET , KREDIT
0x044d…0471 LineComal80 {
0x044d…0471 ptr = 0x9a5f // 0x44d @0x0
0x044d…0471 lno = 0x015e // 0x44f @0x2
0x044d…0471 at0004 = ╱b2╱ INTEGER ╱ // 0x451 @0x4
0x044d…0471 at0005 = ╱4f╱O╱ // 0x452 @0x5
0x044d…0471 at0006 = ╱4b╱K╱ // 0x453 @0x6
0x044d…0471 at0007 = ╱ec╱ , ╱ // 0x454 @0x7
0x044d…0471 at0008 = ╱54╱T╱ // 0x455 @0x8
0x044d…0471 at0009 = ╱52╱R╱ // 0x456 @0x9
0x044d…0471 at000a = ╱55╱U╱ // 0x457 @0xa
0x044d…0471 at000b = ╱45╱E╱ // 0x458 @0xb
0x044d…0471 at000c = ╱ec╱ , ╱ // 0x459 @0xc
0x044d…0471 at000d = ╱46╱F╱ // 0x45a @0xd
0x044d…0471 at000e = ╱41╱A╱ // 0x45b @0xe
0x044d…0471 at000f = ╱4c╱L╱ // 0x45c @0xf
0x044d…0471 at0010 = ╱53╱S╱ // 0x45d @0x10
0x044d…0471 at0011 = ╱45╱E╱ // 0x45e @0x11
0x044d…0471 at0012 = ╱ec╱ , ╱ // 0x45f @0x12
0x044d…0471 at0013 = ╱49╱I╱ // 0x460 @0x13
0x044d…0471 at0014 = ╱ec╱ , ╱ // 0x461 @0x14
0x044d…0471 at0015 = ╱4a╱J╱ // 0x462 @0x15
0x044d…0471 at0016 = ╱ec╱ , ╱ // 0x463 @0x16
0x044d…0471 at0017 = ╱44╱D╱ // 0x464 @0x17
0x044d…0471 at0018 = ╱45╱E╱ // 0x465 @0x18
0x044d…0471 at0019 = ╱42╱B╱ // 0x466 @0x19
0x044d…0471 at001a = ╱45╱E╱ // 0x467 @0x1a
0x044d…0471 at001b = ╱54╱T╱ // 0x468 @0x1b
0x044d…0471 at001c = ╱ec╱ , ╱ // 0x469 @0x1c
0x044d…0471 at001d = ╱4b╱K╱ // 0x46a @0x1d
0x044d…0471 at001e = ╱52╱R╱ // 0x46b @0x1e
0x044d…0471 at001f = ╱45╱E╱ // 0x46c @0x1f
0x044d…0471 at0020 = ╱44╱D╱ // 0x46d @0x20
0x044d…0471 at0021 = ╱49╱I╱ // 0x46e @0x21
0x044d…0471 at0022 = ╱54╱T╱ // 0x46f @0x22
0x044d…0471 at0023 = EOL // 0x470 @0x23
0x044d…0471 }
0x0471…0485 9a73 00360 // Hj{lpevariable
0x0471…0485 LineComal80 {
0x0471…0485 ptr = 0x9a73 // 0x471 @0x0
0x0471…0485 lno = 0x0168 // 0x473 @0x2
0x0471…0485 at0004 = ╱89╱ // ╱ // 0x475 @0x4
0x0471…0485 at0005 = ╱48╱H╱ // 0x476 @0x5
0x0471…0485 at0006 = ╱6a╱j╱ // 0x477 @0x6
0x0471…0485 at0007 = ╱7b╱{╱ // 0x478 @0x7
0x0471…0485 at0008 = ╱6c╱l╱ // 0x479 @0x8
0x0471…0485 at0009 = ╱70╱p╱ // 0x47a @0x9
0x0471…0485 at000a = ╱65╱e╱ // 0x47b @0xa
0x0471…0485 at000b = ╱76╱v╱ // 0x47c @0xb
0x0471…0485 at000c = ╱61╱a╱ // 0x47d @0xc
0x0471…0485 at000d = ╱72╱r╱ // 0x47e @0xd
0x0471…0485 at000e = ╱69╱i╱ // 0x47f @0xe
0x0471…0485 at000f = ╱61╱a╱ // 0x480 @0xf
0x0471…0485 at0010 = ╱62╱b╱ // 0x481 @0x10
0x0471…0485 at0011 = ╱6c╱l╱ // 0x482 @0x11
0x0471…0485 at0012 = ╱65╱e╱ // 0x483 @0x12
0x0471…0485 at0013 = EOL // 0x484 @0x13
0x0471…0485 }
0x0485…04a1 9a8f 00370 DIM A_NR $ OF 8 , A_TYP $ OF 1
0x0485…04a1 LineComal80 {
0x0485…04a1 ptr = 0x9a8f // 0x485 @0x0
0x0485…04a1 lno = 0x0172 // 0x487 @0x2
0x0485…04a1 at0004 = ╱87╱ DIM ╱ // 0x489 @0x4
0x0485…04a1 at0005 = ╱41╱A╱ // 0x48a @0x5
0x0485…04a1 at0006 = ╱5f╱_╱ // 0x48b @0x6
0x0485…04a1 at0007 = ╱4e╱N╱ // 0x48c @0x7
0x0485…04a1 at0008 = ╱52╱R╱ // 0x48d @0x8
0x0485…04a1 at0009 = ╱ef╱ $ ╱ // 0x48e @0x9
0x0485…04a1 at000a = ╱ba╱ OF ╱ // 0x48f @0xa
0x0485…04a1 at000b = ╱38╱8╱ // 0x490 @0xb
0x0485…04a1 at000c = ╱f20800╱ // 0x491 @0xc
0x0485…04a1 at000f = ╱ec╱ , ╱ // 0x494 @0xf
0x0485…04a1 at0010 = ╱41╱A╱ // 0x495 @0x10
0x0485…04a1 at0011 = ╱5f╱_╱ // 0x496 @0x11
0x0485…04a1 at0012 = ╱54╱T╱ // 0x497 @0x12
0x0485…04a1 at0013 = ╱59╱Y╱ // 0x498 @0x13
0x0485…04a1 at0014 = ╱50╱P╱ // 0x499 @0x14
0x0485…04a1 at0015 = ╱ef╱ $ ╱ // 0x49a @0x15
0x0485…04a1 at0016 = ╱ba╱ OF ╱ // 0x49b @0x16
0x0485…04a1 at0017 = ╱31╱1╱ // 0x49c @0x17
0x0485…04a1 at0018 = ╱f20100╱ // 0x49d @0x18
0x0485…04a1 at001b = EOL // 0x4a0 @0x1b
0x0485…04a1 }
0x04a1…04bb 9aa9 00380 INTEGER MAX_LIN , LIN_T , SIDENR
0x04a1…04bb LineComal80 {
0x04a1…04bb ptr = 0x9aa9 // 0x4a1 @0x0
0x04a1…04bb lno = 0x017c // 0x4a3 @0x2
0x04a1…04bb at0004 = ╱b2╱ INTEGER ╱ // 0x4a5 @0x4
0x04a1…04bb at0005 = ╱4d╱M╱ // 0x4a6 @0x5
0x04a1…04bb at0006 = ╱41╱A╱ // 0x4a7 @0x6
0x04a1…04bb at0007 = ╱58╱X╱ // 0x4a8 @0x7
0x04a1…04bb at0008 = ╱5f╱_╱ // 0x4a9 @0x8
0x04a1…04bb at0009 = ╱4c╱L╱ // 0x4aa @0x9
0x04a1…04bb at000a = ╱49╱I╱ // 0x4ab @0xa
0x04a1…04bb at000b = ╱4e╱N╱ // 0x4ac @0xb
0x04a1…04bb at000c = ╱ec╱ , ╱ // 0x4ad @0xc
0x04a1…04bb at000d = ╱4c╱L╱ // 0x4ae @0xd
0x04a1…04bb at000e = ╱49╱I╱ // 0x4af @0xe
0x04a1…04bb at000f = ╱4e╱N╱ // 0x4b0 @0xf
0x04a1…04bb at0010 = ╱5f╱_╱ // 0x4b1 @0x10
0x04a1…04bb at0011 = ╱54╱T╱ // 0x4b2 @0x11
0x04a1…04bb at0012 = ╱ec╱ , ╱ // 0x4b3 @0x12
0x04a1…04bb at0013 = ╱53╱S╱ // 0x4b4 @0x13
0x04a1…04bb at0014 = ╱49╱I╱ // 0x4b5 @0x14
0x04a1…04bb at0015 = ╱44╱D╱ // 0x4b6 @0x15
0x04a1…04bb at0016 = ╱45╱E╱ // 0x4b7 @0x16
0x04a1…04bb at0017 = ╱4e╱N╱ // 0x4b8 @0x17
0x04a1…04bb at0018 = ╱52╱R╱ // 0x4b9 @0x18
0x04a1…04bb at0019 = EOL // 0x4ba @0x19
0x04a1…04bb }
0x04bb…04db 9ac9 00390 // Variable…til…filen…SYSPARA
0x04bb…04db LineComal80 {
0x04bb…04db ptr = 0x9ac9 // 0x4bb @0x0
0x04bb…04db lno = 0x0186 // 0x4bd @0x2
0x04bb…04db at0004 = ╱89╱ // ╱ // 0x4bf @0x4
0x04bb…04db at0005 = ╱56╱V╱ // 0x4c0 @0x5
0x04bb…04db at0006 = ╱61╱a╱ // 0x4c1 @0x6
0x04bb…04db at0007 = ╱72╱r╱ // 0x4c2 @0x7
0x04bb…04db at0008 = ╱69╱i╱ // 0x4c3 @0x8
0x04bb…04db at0009 = ╱61╱a╱ // 0x4c4 @0x9
0x04bb…04db at000a = ╱62╱b╱ // 0x4c5 @0xa
0x04bb…04db at000b = ╱6c╱l╱ // 0x4c6 @0xb
0x04bb…04db at000c = ╱65╱e╱ // 0x4c7 @0xc
0x04bb…04db at000d = ╱20╱…╱ // 0x4c8 @0xd
0x04bb…04db at000e = ╱74╱t╱ // 0x4c9 @0xe
0x04bb…04db at000f = ╱69╱i╱ // 0x4ca @0xf
0x04bb…04db at0010 = ╱6c╱l╱ // 0x4cb @0x10
0x04bb…04db at0011 = ╱20╱…╱ // 0x4cc @0x11
0x04bb…04db at0012 = ╱66╱f╱ // 0x4cd @0x12
0x04bb…04db at0013 = ╱69╱i╱ // 0x4ce @0x13
0x04bb…04db at0014 = ╱6c╱l╱ // 0x4cf @0x14
0x04bb…04db at0015 = ╱65╱e╱ // 0x4d0 @0x15
0x04bb…04db at0016 = ╱6e╱n╱ // 0x4d1 @0x16
0x04bb…04db at0017 = ╱20╱…╱ // 0x4d2 @0x17
0x04bb…04db at0018 = ╱53╱S╱ // 0x4d3 @0x18
0x04bb…04db at0019 = ╱59╱Y╱ // 0x4d4 @0x19
0x04bb…04db at001a = ╱53╱S╱ // 0x4d5 @0x1a
0x04bb…04db at001b = ╱50╱P╱ // 0x4d6 @0x1b
0x04bb…04db at001c = ╱41╱A╱ // 0x4d7 @0x1c
0x04bb…04db at001d = ╱52╱R╱ // 0x4d8 @0x1d
0x04bb…04db at001e = ╱41╱A╱ // 0x4d9 @0x1e
0x04bb…04db at001f = EOL // 0x4da @0x1f
0x04bb…04db }
0x04db…04ef 9add 00400 DIM SYSPARA $ OF 17
0x04db…04ef LineComal80 {
0x04db…04ef ptr = 0x9add // 0x4db @0x0
0x04db…04ef lno = 0x0190 // 0x4dd @0x2
0x04db…04ef at0004 = ╱87╱ DIM ╱ // 0x4df @0x4
0x04db…04ef at0005 = ╱53╱S╱ // 0x4e0 @0x5
0x04db…04ef at0006 = ╱59╱Y╱ // 0x4e1 @0x6
0x04db…04ef at0007 = ╱53╱S╱ // 0x4e2 @0x7
0x04db…04ef at0008 = ╱50╱P╱ // 0x4e3 @0x8
0x04db…04ef at0009 = ╱41╱A╱ // 0x4e4 @0x9
0x04db…04ef at000a = ╱52╱R╱ // 0x4e5 @0xa
0x04db…04ef at000b = ╱41╱A╱ // 0x4e6 @0xb
0x04db…04ef at000c = ╱ef╱ $ ╱ // 0x4e7 @0xc
0x04db…04ef at000d = ╱ba╱ OF ╱ // 0x4e8 @0xd
0x04db…04ef at000e = ╱31╱1╱ // 0x4e9 @0xe
0x04db…04ef at000f = ╱37╱7╱ // 0x4ea @0xf
0x04db…04ef at0010 = ╱f21100╱ // 0x4eb @0x10
0x04db…04ef at0013 = EOL // 0x4ee @0x13
0x04db…04ef }
0x04ef…0512 9b00 00410 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
0x04ef…0512 LineComal80 {
0x04ef…0512 ptr = 0x9b00 // 0x4ef @0x0
0x04ef…0512 lno = 0x019a // 0x4f1 @0x2
0x04ef…0512 at0004 = ╱87╱ DIM ╱ // 0x4f3 @0x4
0x04ef…0512 at0005 = ╱53╱S╱ // 0x4f4 @0x5
0x04ef…0512 at0006 = ╱59╱Y╱ // 0x4f5 @0x6
0x04ef…0512 at0007 = ╱53╱S╱ // 0x4f6 @0x7
0x04ef…0512 at0008 = ╱54╱T╱ // 0x4f7 @0x8
0x04ef…0512 at0009 = ╱5f╱_╱ // 0x4f8 @0x9
0x04ef…0512 at000a = ╱4e╱N╱ // 0x4f9 @0xa
0x04ef…0512 at000b = ╱41╱A╱ // 0x4fa @0xb
0x04ef…0512 at000c = ╱56╱V╱ // 0x4fb @0xc
0x04ef…0512 at000d = ╱4e╱N╱ // 0x4fc @0xd
0x04ef…0512 at000e = ╱ef╱ $ ╱ // 0x4fd @0xe
0x04ef…0512 at000f = ╱ba╱ OF ╱ // 0x4fe @0xf
0x04ef…0512 at0010 = ╱33╱3╱ // 0x4ff @0x10
0x04ef…0512 at0011 = ╱30╱0╱ // 0x500 @0x11
0x04ef…0512 at0012 = ╱f21e00╱ // 0x501 @0x12
0x04ef…0512 at0015 = ╱ec╱ , ╱ // 0x504 @0x15
0x04ef…0512 at0016 = ╱53╱S╱ // 0x505 @0x16
0x04ef…0512 at0017 = ╱5f╱_╱ // 0x506 @0x17
0x04ef…0512 at0018 = ╱4b╱K╱ // 0x507 @0x18
0x04ef…0512 at0019 = ╱4f╱O╱ // 0x508 @0x19
0x04ef…0512 at001a = ╱44╱D╱ // 0x509 @0x1a
0x04ef…0512 at001b = ╱45╱E╱ // 0x50a @0x1b
0x04ef…0512 at001c = ╱ef╱ $ ╱ // 0x50b @0x1c
0x04ef…0512 at001d = ╱ba╱ OF ╱ // 0x50c @0x1d
0x04ef…0512 at001e = ╱31╱1╱ // 0x50d @0x1e
0x04ef…0512 at001f = ╱f20100╱ // 0x50e @0x1f
0x04ef…0512 at0022 = EOL // 0x511 @0x22
0x04ef…0512 }
0x0512…0531 9b1f 00420 DIM DATAFL $ OF 8 , T_KODE $ OF 1
0x0512…0531 LineComal80 {
0x0512…0531 ptr = 0x9b1f // 0x512 @0x0
0x0512…0531 lno = 0x01a4 // 0x514 @0x2
0x0512…0531 at0004 = ╱87╱ DIM ╱ // 0x516 @0x4
0x0512…0531 at0005 = ╱44╱D╱ // 0x517 @0x5
0x0512…0531 at0006 = ╱41╱A╱ // 0x518 @0x6
0x0512…0531 at0007 = ╱54╱T╱ // 0x519 @0x7
0x0512…0531 at0008 = ╱41╱A╱ // 0x51a @0x8
0x0512…0531 at0009 = ╱46╱F╱ // 0x51b @0x9
0x0512…0531 at000a = ╱4c╱L╱ // 0x51c @0xa
0x0512…0531 at000b = ╱ef╱ $ ╱ // 0x51d @0xb
0x0512…0531 at000c = ╱ba╱ OF ╱ // 0x51e @0xc
0x0512…0531 at000d = ╱38╱8╱ // 0x51f @0xd
0x0512…0531 at000e = ╱f20800╱ // 0x520 @0xe
0x0512…0531 at0011 = ╱ec╱ , ╱ // 0x523 @0x11
0x0512…0531 at0012 = ╱54╱T╱ // 0x524 @0x12
0x0512…0531 at0013 = ╱5f╱_╱ // 0x525 @0x13
0x0512…0531 at0014 = ╱4b╱K╱ // 0x526 @0x14
0x0512…0531 at0015 = ╱4f╱O╱ // 0x527 @0x15
0x0512…0531 at0016 = ╱44╱D╱ // 0x528 @0x16
0x0512…0531 at0017 = ╱45╱E╱ // 0x529 @0x17
0x0512…0531 at0018 = ╱ef╱ $ ╱ // 0x52a @0x18
0x0512…0531 at0019 = ╱ba╱ OF ╱ // 0x52b @0x19
0x0512…0531 at001a = ╱31╱1╱ // 0x52c @0x1a
0x0512…0531 at001b = ╱f20100╱ // 0x52d @0x1b
0x0512…0531 at001e = EOL // 0x530 @0x1e
0x0512…0531 }
0x0531…0551 9b3f 00430 // Variable…til…filen…@@PARAM
0x0531…0551 LineComal80 {
0x0531…0551 ptr = 0x9b3f // 0x531 @0x0
0x0531…0551 lno = 0x01ae // 0x533 @0x2
0x0531…0551 at0004 = ╱89╱ // ╱ // 0x535 @0x4
0x0531…0551 at0005 = ╱56╱V╱ // 0x536 @0x5
0x0531…0551 at0006 = ╱61╱a╱ // 0x537 @0x6
0x0531…0551 at0007 = ╱72╱r╱ // 0x538 @0x7
0x0531…0551 at0008 = ╱69╱i╱ // 0x539 @0x8
0x0531…0551 at0009 = ╱61╱a╱ // 0x53a @0x9
0x0531…0551 at000a = ╱62╱b╱ // 0x53b @0xa
0x0531…0551 at000b = ╱6c╱l╱ // 0x53c @0xb
0x0531…0551 at000c = ╱65╱e╱ // 0x53d @0xc
0x0531…0551 at000d = ╱20╱…╱ // 0x53e @0xd
0x0531…0551 at000e = ╱74╱t╱ // 0x53f @0xe
0x0531…0551 at000f = ╱69╱i╱ // 0x540 @0xf
0x0531…0551 at0010 = ╱6c╱l╱ // 0x541 @0x10
0x0531…0551 at0011 = ╱20╱…╱ // 0x542 @0x11
0x0531…0551 at0012 = ╱66╱f╱ // 0x543 @0x12
0x0531…0551 at0013 = ╱69╱i╱ // 0x544 @0x13
0x0531…0551 at0014 = ╱6c╱l╱ // 0x545 @0x14
0x0531…0551 at0015 = ╱65╱e╱ // 0x546 @0x15
0x0531…0551 at0016 = ╱6e╱n╱ // 0x547 @0x16
0x0531…0551 at0017 = ╱20╱…╱ // 0x548 @0x17
0x0531…0551 at0018 = ╱40╱@╱ // 0x549 @0x18
0x0531…0551 at0019 = ╱40╱@╱ // 0x54a @0x19
0x0531…0551 at001a = ╱50╱P╱ // 0x54b @0x1a
0x0531…0551 at001b = ╱41╱A╱ // 0x54c @0x1b
0x0531…0551 at001c = ╱52╱R╱ // 0x54d @0x1c
0x0531…0551 at001d = ╱41╱A╱ // 0x54e @0x1d
0x0531…0551 at001e = ╱4d╱M╱ // 0x54f @0x1e
0x0531…0551 at001f = EOL // 0x550 @0x1f
0x0531…0551 }
0x0551…0563 9b51 00440 DIM PARAM $ OF 17
0x0551…0563 LineComal80 {
0x0551…0563 ptr = 0x9b51 // 0x551 @0x0
0x0551…0563 lno = 0x01b8 // 0x553 @0x2
0x0551…0563 at0004 = ╱87╱ DIM ╱ // 0x555 @0x4
0x0551…0563 at0005 = ╱50╱P╱ // 0x556 @0x5
0x0551…0563 at0006 = ╱41╱A╱ // 0x557 @0x6
0x0551…0563 at0007 = ╱52╱R╱ // 0x558 @0x7
0x0551…0563 at0008 = ╱41╱A╱ // 0x559 @0x8
0x0551…0563 at0009 = ╱4d╱M╱ // 0x55a @0x9
0x0551…0563 at000a = ╱ef╱ $ ╱ // 0x55b @0xa
0x0551…0563 at000b = ╱ba╱ OF ╱ // 0x55c @0xb
0x0551…0563 at000c = ╱31╱1╱ // 0x55d @0xc
0x0551…0563 at000d = ╱37╱7╱ // 0x55e @0xd
0x0551…0563 at000e = ╱f21100╱ // 0x55f @0xe
0x0551…0563 at0011 = EOL // 0x562 @0x11
0x0551…0563 }
0x0563…0588 9b76 00450 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 6
0x0563…0588 LineComal80 {
0x0563…0588 ptr = 0x9b76 // 0x563 @0x0
0x0563…0588 lno = 0x01c2 // 0x565 @0x2
0x0563…0588 at0004 = ╱87╱ DIM ╱ // 0x567 @0x4
0x0563…0588 at0005 = ╱46╱F╱ // 0x568 @0x5
0x0563…0588 at0006 = ╱49╱I╱ // 0x569 @0x6
0x0563…0588 at0007 = ╱52╱R╱ // 0x56a @0x7
0x0563…0588 at0008 = ╱4d╱M╱ // 0x56b @0x8
0x0563…0588 at0009 = ╱41╱A╱ // 0x56c @0x9
0x0563…0588 at000a = ╱4e╱N╱ // 0x56d @0xa
0x0563…0588 at000b = ╱41╱A╱ // 0x56e @0xb
0x0563…0588 at000c = ╱56╱V╱ // 0x56f @0xc
0x0563…0588 at000d = ╱4e╱N╱ // 0x570 @0xd
0x0563…0588 at000e = ╱ef╱ $ ╱ // 0x571 @0xe
0x0563…0588 at000f = ╱ba╱ OF ╱ // 0x572 @0xf
0x0563…0588 at0010 = ╱33╱3╱ // 0x573 @0x10
0x0563…0588 at0011 = ╱30╱0╱ // 0x574 @0x11
0x0563…0588 at0012 = ╱f21e00╱ // 0x575 @0x12
0x0563…0588 at0015 = ╱ec╱ , ╱ // 0x578 @0x15
0x0563…0588 at0016 = ╱53╱S╱ // 0x579 @0x16
0x0563…0588 at0017 = ╱59╱Y╱ // 0x57a @0x17
0x0563…0588 at0018 = ╱53╱S╱ // 0x57b @0x18
0x0563…0588 at0019 = ╱54╱T╱ // 0x57c @0x19
0x0563…0588 at001a = ╱5f╱_╱ // 0x57d @0x1a
0x0563…0588 at001b = ╱44╱D╱ // 0x57e @0x1b
0x0563…0588 at001c = ╱41╱A╱ // 0x57f @0x1c
0x0563…0588 at001d = ╱54╱T╱ // 0x580 @0x1d
0x0563…0588 at001e = ╱ef╱ $ ╱ // 0x581 @0x1e
0x0563…0588 at001f = ╱ba╱ OF ╱ // 0x582 @0x1f
0x0563…0588 at0020 = ╱36╱6╱ // 0x583 @0x20
0x0563…0588 at0021 = ╱f20600╱ // 0x584 @0x21
0x0563…0588 at0024 = EOL // 0x587 @0x24
0x0563…0588 }
0x0588…0592 9b80 00460 REAL MOMS
0x0588…0592 LineComal80 {
0x0588…0592 ptr = 0x9b80 // 0x588 @0x0
0x0588…0592 lno = 0x01cc // 0x58a @0x2
0x0588…0592 at0004 = ╱b3╱ REAL ╱ // 0x58c @0x4
0x0588…0592 at0005 = ╱4d╱M╱ // 0x58d @0x5
0x0588…0592 at0006 = ╱4f╱O╱ // 0x58e @0x6
0x0588…0592 at0007 = ╱4d╱M╱ // 0x58f @0x7
0x0588…0592 at0008 = ╱53╱S╱ // 0x590 @0x8
0x0588…0592 at0009 = EOL // 0x591 @0x9
0x0588…0592 }
0x0592…05b2 9ba0 00470 // Variable…til…filen…@@KONTO
0x0592…05b2 LineComal80 {
0x0592…05b2 ptr = 0x9ba0 // 0x592 @0x0
0x0592…05b2 lno = 0x01d6 // 0x594 @0x2
0x0592…05b2 at0004 = ╱89╱ // ╱ // 0x596 @0x4
0x0592…05b2 at0005 = ╱56╱V╱ // 0x597 @0x5
0x0592…05b2 at0006 = ╱61╱a╱ // 0x598 @0x6
0x0592…05b2 at0007 = ╱72╱r╱ // 0x599 @0x7
0x0592…05b2 at0008 = ╱69╱i╱ // 0x59a @0x8
0x0592…05b2 at0009 = ╱61╱a╱ // 0x59b @0x9
0x0592…05b2 at000a = ╱62╱b╱ // 0x59c @0xa
0x0592…05b2 at000b = ╱6c╱l╱ // 0x59d @0xb
0x0592…05b2 at000c = ╱65╱e╱ // 0x59e @0xc
0x0592…05b2 at000d = ╱20╱…╱ // 0x59f @0xd
0x0592…05b2 at000e = ╱74╱t╱ // 0x5a0 @0xe
0x0592…05b2 at000f = ╱69╱i╱ // 0x5a1 @0xf
0x0592…05b2 at0010 = ╱6c╱l╱ // 0x5a2 @0x10
0x0592…05b2 at0011 = ╱20╱…╱ // 0x5a3 @0x11
0x0592…05b2 at0012 = ╱66╱f╱ // 0x5a4 @0x12
0x0592…05b2 at0013 = ╱69╱i╱ // 0x5a5 @0x13
0x0592…05b2 at0014 = ╱6c╱l╱ // 0x5a6 @0x14
0x0592…05b2 at0015 = ╱65╱e╱ // 0x5a7 @0x15
0x0592…05b2 at0016 = ╱6e╱n╱ // 0x5a8 @0x16
0x0592…05b2 at0017 = ╱20╱…╱ // 0x5a9 @0x17
0x0592…05b2 at0018 = ╱40╱@╱ // 0x5aa @0x18
0x0592…05b2 at0019 = ╱40╱@╱ // 0x5ab @0x19
0x0592…05b2 at001a = ╱4b╱K╱ // 0x5ac @0x1a
0x0592…05b2 at001b = ╱4f╱O╱ // 0x5ad @0x1b
0x0592…05b2 at001c = ╱4e╱N╱ // 0x5ae @0x1c
0x0592…05b2 at001d = ╱54╱T╱ // 0x5af @0x1d
0x0592…05b2 at001e = ╱4f╱O╱ // 0x5b0 @0x1e
0x0592…05b2 at001f = EOL // 0x5b1 @0x1f
0x0592…05b2 }
0x05b2…05c4 9bb2 00480 DIM KONTO $ OF 17
0x05b2…05c4 LineComal80 {
0x05b2…05c4 ptr = 0x9bb2 // 0x5b2 @0x0
0x05b2…05c4 lno = 0x01e0 // 0x5b4 @0x2
0x05b2…05c4 at0004 = ╱87╱ DIM ╱ // 0x5b6 @0x4
0x05b2…05c4 at0005 = ╱4b╱K╱ // 0x5b7 @0x5
0x05b2…05c4 at0006 = ╱4f╱O╱ // 0x5b8 @0x6
0x05b2…05c4 at0007 = ╱4e╱N╱ // 0x5b9 @0x7
0x05b2…05c4 at0008 = ╱54╱T╱ // 0x5ba @0x8
0x05b2…05c4 at0009 = ╱4f╱O╱ // 0x5bb @0x9
0x05b2…05c4 at000a = ╱ef╱ $ ╱ // 0x5bc @0xa
0x05b2…05c4 at000b = ╱ba╱ OF ╱ // 0x5bd @0xb
0x05b2…05c4 at000c = ╱31╱1╱ // 0x5be @0xc
0x05b2…05c4 at000d = ╱37╱7╱ // 0x5bf @0xd
0x05b2…05c4 at000e = ╱f21100╱ // 0x5c0 @0xe
0x05b2…05c4 at0011 = EOL // 0x5c3 @0x11
0x05b2…05c4 }
0x05c4…05d7 9bc5 00490 DIM ST_DATO $ OF 6
0x05c4…05d7 LineComal80 {
0x05c4…05d7 ptr = 0x9bc5 // 0x5c4 @0x0
0x05c4…05d7 lno = 0x01ea // 0x5c6 @0x2
0x05c4…05d7 at0004 = ╱87╱ DIM ╱ // 0x5c8 @0x4
0x05c4…05d7 at0005 = ╱53╱S╱ // 0x5c9 @0x5
0x05c4…05d7 at0006 = ╱54╱T╱ // 0x5ca @0x6
0x05c4…05d7 at0007 = ╱5f╱_╱ // 0x5cb @0x7
0x05c4…05d7 at0008 = ╱44╱D╱ // 0x5cc @0x8
0x05c4…05d7 at0009 = ╱41╱A╱ // 0x5cd @0x9
0x05c4…05d7 at000a = ╱54╱T╱ // 0x5ce @0xa
0x05c4…05d7 at000b = ╱4f╱O╱ // 0x5cf @0xb
0x05c4…05d7 at000c = ╱ef╱ $ ╱ // 0x5d0 @0xc
0x05c4…05d7 at000d = ╱ba╱ OF ╱ // 0x5d1 @0xd
0x05c4…05d7 at000e = ╱36╱6╱ // 0x5d2 @0xe
0x05c4…05d7 at000f = ╱f20600╱ // 0x5d3 @0xf
0x05c4…05d7 at0012 = EOL // 0x5d6 @0x12
0x05c4…05d7 }
0x05d7…05fd 9beb 00500 INTEGER N_FRIREC , N_MAXREC , ANT_PER , PER_NR
0x05d7…05fd LineComal80 {
0x05d7…05fd ptr = 0x9beb // 0x5d7 @0x0
0x05d7…05fd lno = 0x01f4 // 0x5d9 @0x2
0x05d7…05fd at0004 = ╱b2╱ INTEGER ╱ // 0x5db @0x4
0x05d7…05fd at0005 = ╱4e╱N╱ // 0x5dc @0x5
0x05d7…05fd at0006 = ╱5f╱_╱ // 0x5dd @0x6
0x05d7…05fd at0007 = ╱46╱F╱ // 0x5de @0x7
0x05d7…05fd at0008 = ╱52╱R╱ // 0x5df @0x8
0x05d7…05fd at0009 = ╱49╱I╱ // 0x5e0 @0x9
0x05d7…05fd at000a = ╱52╱R╱ // 0x5e1 @0xa
0x05d7…05fd at000b = ╱45╱E╱ // 0x5e2 @0xb
0x05d7…05fd at000c = ╱43╱C╱ // 0x5e3 @0xc
0x05d7…05fd at000d = ╱ec╱ , ╱ // 0x5e4 @0xd
0x05d7…05fd at000e = ╱4e╱N╱ // 0x5e5 @0xe
0x05d7…05fd at000f = ╱5f╱_╱ // 0x5e6 @0xf
0x05d7…05fd at0010 = ╱4d╱M╱ // 0x5e7 @0x10
0x05d7…05fd at0011 = ╱41╱A╱ // 0x5e8 @0x11
0x05d7…05fd at0012 = ╱58╱X╱ // 0x5e9 @0x12
0x05d7…05fd at0013 = ╱52╱R╱ // 0x5ea @0x13
0x05d7…05fd at0014 = ╱45╱E╱ // 0x5eb @0x14
0x05d7…05fd at0015 = ╱43╱C╱ // 0x5ec @0x15
0x05d7…05fd at0016 = ╱ec╱ , ╱ // 0x5ed @0x16
0x05d7…05fd at0017 = ╱41╱A╱ // 0x5ee @0x17
0x05d7…05fd at0018 = ╱4e╱N╱ // 0x5ef @0x18
0x05d7…05fd at0019 = ╱54╱T╱ // 0x5f0 @0x19
0x05d7…05fd at001a = ╱5f╱_╱ // 0x5f1 @0x1a
0x05d7…05fd at001b = ╱50╱P╱ // 0x5f2 @0x1b
0x05d7…05fd at001c = ╱45╱E╱ // 0x5f3 @0x1c
0x05d7…05fd at001d = ╱52╱R╱ // 0x5f4 @0x1d
0x05d7…05fd at001e = ╱ec╱ , ╱ // 0x5f5 @0x1e
0x05d7…05fd at001f = ╱50╱P╱ // 0x5f6 @0x1f
0x05d7…05fd at0020 = ╱45╱E╱ // 0x5f7 @0x20
0x05d7…05fd at0021 = ╱52╱R╱ // 0x5f8 @0x21
0x05d7…05fd at0022 = ╱5f╱_╱ // 0x5f9 @0x22
0x05d7…05fd at0023 = ╱4e╱N╱ // 0x5fa @0x23
0x05d7…05fd at0024 = ╱52╱R╱ // 0x5fb @0x24
0x05d7…05fd at0025 = EOL // 0x5fc @0x25
0x05d7…05fd }
0x05fd…0621 9c0f 00510 DIM KTO_TYPE $ OF 1 , KTO_NAVN $ OF 40
0x05fd…0621 LineComal80 {
0x05fd…0621 ptr = 0x9c0f // 0x5fd @0x0
0x05fd…0621 lno = 0x01fe // 0x5ff @0x2
0x05fd…0621 at0004 = ╱87╱ DIM ╱ // 0x601 @0x4
0x05fd…0621 at0005 = ╱4b╱K╱ // 0x602 @0x5
0x05fd…0621 at0006 = ╱54╱T╱ // 0x603 @0x6
0x05fd…0621 at0007 = ╱4f╱O╱ // 0x604 @0x7
0x05fd…0621 at0008 = ╱5f╱_╱ // 0x605 @0x8
0x05fd…0621 at0009 = ╱54╱T╱ // 0x606 @0x9
0x05fd…0621 at000a = ╱59╱Y╱ // 0x607 @0xa
0x05fd…0621 at000b = ╱50╱P╱ // 0x608 @0xb
0x05fd…0621 at000c = ╱45╱E╱ // 0x609 @0xc
0x05fd…0621 at000d = ╱ef╱ $ ╱ // 0x60a @0xd
0x05fd…0621 at000e = ╱ba╱ OF ╱ // 0x60b @0xe
0x05fd…0621 at000f = ╱31╱1╱ // 0x60c @0xf
0x05fd…0621 at0010 = ╱f20100╱ // 0x60d @0x10
0x05fd…0621 at0013 = ╱ec╱ , ╱ // 0x610 @0x13
0x05fd…0621 at0014 = ╱4b╱K╱ // 0x611 @0x14
0x05fd…0621 at0015 = ╱54╱T╱ // 0x612 @0x15
0x05fd…0621 at0016 = ╱4f╱O╱ // 0x613 @0x16
0x05fd…0621 at0017 = ╱5f╱_╱ // 0x614 @0x17
0x05fd…0621 at0018 = ╱4e╱N╱ // 0x615 @0x18
0x05fd…0621 at0019 = ╱41╱A╱ // 0x616 @0x19
0x05fd…0621 at001a = ╱56╱V╱ // 0x617 @0x1a
0x05fd…0621 at001b = ╱4e╱N╱ // 0x618 @0x1b
0x05fd…0621 at001c = ╱ef╱ $ ╱ // 0x619 @0x1c
0x05fd…0621 at001d = ╱ba╱ OF ╱ // 0x61a @0x1d
0x05fd…0621 at001e = ╱34╱4╱ // 0x61b @0x1e
0x05fd…0621 at001f = ╱30╱0╱ // 0x61c @0x1f
0x05fd…0621 at0020 = ╱f22800╱ // 0x61d @0x20
0x05fd…0621 at0023 = EOL // 0x620 @0x23
0x05fd…0621 }
0x0621…063b 9c29 00520 REAL KTO_PRIMO , KTO_ULTIMO
0x0621…063b LineComal80 {
0x0621…063b ptr = 0x9c29 // 0x621 @0x0
0x0621…063b lno = 0x0208 // 0x623 @0x2
0x0621…063b at0004 = ╱b3╱ REAL ╱ // 0x625 @0x4
0x0621…063b at0005 = ╱4b╱K╱ // 0x626 @0x5
0x0621…063b at0006 = ╱54╱T╱ // 0x627 @0x6
0x0621…063b at0007 = ╱4f╱O╱ // 0x628 @0x7
0x0621…063b at0008 = ╱5f╱_╱ // 0x629 @0x8
0x0621…063b at0009 = ╱50╱P╱ // 0x62a @0x9
0x0621…063b at000a = ╱52╱R╱ // 0x62b @0xa
0x0621…063b at000b = ╱49╱I╱ // 0x62c @0xb
0x0621…063b at000c = ╱4d╱M╱ // 0x62d @0xc
0x0621…063b at000d = ╱4f╱O╱ // 0x62e @0xd
0x0621…063b at000e = ╱ec╱ , ╱ // 0x62f @0xe
0x0621…063b at000f = ╱4b╱K╱ // 0x630 @0xf
0x0621…063b at0010 = ╱54╱T╱ // 0x631 @0x10
0x0621…063b at0011 = ╱4f╱O╱ // 0x632 @0x11
0x0621…063b at0012 = ╱5f╱_╱ // 0x633 @0x12
0x0621…063b at0013 = ╱55╱U╱ // 0x634 @0x13
0x0621…063b at0014 = ╱4c╱L╱ // 0x635 @0x14
0x0621…063b at0015 = ╱54╱T╱ // 0x636 @0x15
0x0621…063b at0016 = ╱49╱I╱ // 0x637 @0x16
0x0621…063b at0017 = ╱4d╱M╱ // 0x638 @0x17
0x0621…063b at0018 = ╱4f╱O╱ // 0x639 @0x18
0x0621…063b at0019 = EOL // 0x63a @0x19
0x0621…063b }
0x063b…064e 9c3c 00530 INTEGER KTO_FP , KTO_SP
0x063b…064e LineComal80 {
0x063b…064e ptr = 0x9c3c // 0x63b @0x0
0x063b…064e lno = 0x0212 // 0x63d @0x2
0x063b…064e at0004 = ╱b2╱ INTEGER ╱ // 0x63f @0x4
0x063b…064e at0005 = ╱4b╱K╱ // 0x640 @0x5
0x063b…064e at0006 = ╱54╱T╱ // 0x641 @0x6
0x063b…064e at0007 = ╱4f╱O╱ // 0x642 @0x7
0x063b…064e at0008 = ╱5f╱_╱ // 0x643 @0x8
0x063b…064e at0009 = ╱46╱F╱ // 0x644 @0x9
0x063b…064e at000a = ╱50╱P╱ // 0x645 @0xa
0x063b…064e at000b = ╱ec╱ , ╱ // 0x646 @0xb
0x063b…064e at000c = ╱4b╱K╱ // 0x647 @0xc
0x063b…064e at000d = ╱54╱T╱ // 0x648 @0xd
0x063b…064e at000e = ╱4f╱O╱ // 0x649 @0xe
0x063b…064e at000f = ╱5f╱_╱ // 0x64a @0xf
0x063b…064e at0010 = ╱53╱S╱ // 0x64b @0x10
0x063b…064e at0011 = ╱50╱P╱ // 0x64c @0x11
0x063b…064e at0012 = EOL // 0x64d @0x12
0x063b…064e }
0x064e…066f 9c5d 00540 // Variable…til…filen…@@KTOIDX
0x064e…066f LineComal80 {
0x064e…066f ptr = 0x9c5d // 0x64e @0x0
0x064e…066f lno = 0x021c // 0x650 @0x2
0x064e…066f at0004 = ╱89╱ // ╱ // 0x652 @0x4
0x064e…066f at0005 = ╱56╱V╱ // 0x653 @0x5
0x064e…066f at0006 = ╱61╱a╱ // 0x654 @0x6
0x064e…066f at0007 = ╱72╱r╱ // 0x655 @0x7
0x064e…066f at0008 = ╱69╱i╱ // 0x656 @0x8
0x064e…066f at0009 = ╱61╱a╱ // 0x657 @0x9
0x064e…066f at000a = ╱62╱b╱ // 0x658 @0xa
0x064e…066f at000b = ╱6c╱l╱ // 0x659 @0xb
0x064e…066f at000c = ╱65╱e╱ // 0x65a @0xc
0x064e…066f at000d = ╱20╱…╱ // 0x65b @0xd
0x064e…066f at000e = ╱74╱t╱ // 0x65c @0xe
0x064e…066f at000f = ╱69╱i╱ // 0x65d @0xf
0x064e…066f at0010 = ╱6c╱l╱ // 0x65e @0x10
0x064e…066f at0011 = ╱20╱…╱ // 0x65f @0x11
0x064e…066f at0012 = ╱66╱f╱ // 0x660 @0x12
0x064e…066f at0013 = ╱69╱i╱ // 0x661 @0x13
0x064e…066f at0014 = ╱6c╱l╱ // 0x662 @0x14
0x064e…066f at0015 = ╱65╱e╱ // 0x663 @0x15
0x064e…066f at0016 = ╱6e╱n╱ // 0x664 @0x16
0x064e…066f at0017 = ╱20╱…╱ // 0x665 @0x17
0x064e…066f at0018 = ╱40╱@╱ // 0x666 @0x18
0x064e…066f at0019 = ╱40╱@╱ // 0x667 @0x19
0x064e…066f at001a = ╱4b╱K╱ // 0x668 @0x1a
0x064e…066f at001b = ╱54╱T╱ // 0x669 @0x1b
0x064e…066f at001c = ╱4f╱O╱ // 0x66a @0x1c
0x064e…066f at001d = ╱49╱I╱ // 0x66b @0x1d
0x064e…066f at001e = ╱44╱D╱ // 0x66c @0x1e
0x064e…066f at001f = ╱58╱X╱ // 0x66d @0x1f
0x064e…066f at0020 = EOL // 0x66e @0x20
0x064e…066f }
0x066f…0682 9c70 00550 DIM KTOIDX $ OF 17
0x066f…0682 LineComal80 {
0x066f…0682 ptr = 0x9c70 // 0x66f @0x0
0x066f…0682 lno = 0x0226 // 0x671 @0x2
0x066f…0682 at0004 = ╱87╱ DIM ╱ // 0x673 @0x4
0x066f…0682 at0005 = ╱4b╱K╱ // 0x674 @0x5
0x066f…0682 at0006 = ╱54╱T╱ // 0x675 @0x6
0x066f…0682 at0007 = ╱4f╱O╱ // 0x676 @0x7
0x066f…0682 at0008 = ╱49╱I╱ // 0x677 @0x8
0x066f…0682 at0009 = ╱44╱D╱ // 0x678 @0x9
0x066f…0682 at000a = ╱58╱X╱ // 0x679 @0xa
0x066f…0682 at000b = ╱ef╱ $ ╱ // 0x67a @0xb
0x066f…0682 at000c = ╱ba╱ OF ╱ // 0x67b @0xc
0x066f…0682 at000d = ╱31╱1╱ // 0x67c @0xd
0x066f…0682 at000e = ╱37╱7╱ // 0x67d @0xe
0x066f…0682 at000f = ╱f21100╱ // 0x67e @0xf
0x066f…0682 at0012 = EOL // 0x681 @0x12
0x066f…0682 }
0x0682…0699 9c87 00560 INTEGER I_H\JREC , I_MAXREC
0x0682…0699 LineComal80 {
0x0682…0699 ptr = 0x9c87 // 0x682 @0x0
0x0682…0699 lno = 0x0230 // 0x684 @0x2
0x0682…0699 at0004 = ╱b2╱ INTEGER ╱ // 0x686 @0x4
0x0682…0699 at0005 = ╱49╱I╱ // 0x687 @0x5
0x0682…0699 at0006 = ╱5f╱_╱ // 0x688 @0x6
0x0682…0699 at0007 = ╱48╱H╱ // 0x689 @0x7
0x0682…0699 at0008 = ╱5c╱\╱ // 0x68a @0x8
0x0682…0699 at0009 = ╱4a╱J╱ // 0x68b @0x9
0x0682…0699 at000a = ╱52╱R╱ // 0x68c @0xa
0x0682…0699 at000b = ╱45╱E╱ // 0x68d @0xb
0x0682…0699 at000c = ╱43╱C╱ // 0x68e @0xc
0x0682…0699 at000d = ╱ec╱ , ╱ // 0x68f @0xd
0x0682…0699 at000e = ╱49╱I╱ // 0x690 @0xe
0x0682…0699 at000f = ╱5f╱_╱ // 0x691 @0xf
0x0682…0699 at0010 = ╱4d╱M╱ // 0x692 @0x10
0x0682…0699 at0011 = ╱41╱A╱ // 0x693 @0x11
0x0682…0699 at0012 = ╱58╱X╱ // 0x694 @0x12
0x0682…0699 at0013 = ╱52╱R╱ // 0x695 @0x13
0x0682…0699 at0014 = ╱45╱E╱ // 0x696 @0x14
0x0682…0699 at0015 = ╱43╱C╱ // 0x697 @0x15
0x0682…0699 at0016 = EOL // 0x698 @0x16
0x0682…0699 }
0x0699…06aa 9c98 00570 DIM KTONR $ OF 8
0x0699…06aa LineComal80 {
0x0699…06aa ptr = 0x9c98 // 0x699 @0x0
0x0699…06aa lno = 0x023a // 0x69b @0x2
0x0699…06aa at0004 = ╱87╱ DIM ╱ // 0x69d @0x4
0x0699…06aa at0005 = ╱4b╱K╱ // 0x69e @0x5
0x0699…06aa at0006 = ╱54╱T╱ // 0x69f @0x6
0x0699…06aa at0007 = ╱4f╱O╱ // 0x6a0 @0x7
0x0699…06aa at0008 = ╱4e╱N╱ // 0x6a1 @0x8
0x0699…06aa at0009 = ╱52╱R╱ // 0x6a2 @0x9
0x0699…06aa at000a = ╱ef╱ $ ╱ // 0x6a3 @0xa
0x0699…06aa at000b = ╱ba╱ OF ╱ // 0x6a4 @0xb
0x0699…06aa at000c = ╱38╱8╱ // 0x6a5 @0xc
0x0699…06aa at000d = ╱f20800╱ // 0x6a6 @0xd
0x0699…06aa at0010 = EOL // 0x6a9 @0x10
0x0699…06aa }
0x06aa…06b5 9ca3 00580 INTEGER RECNR
0x06aa…06b5 LineComal80 {
0x06aa…06b5 ptr = 0x9ca3 // 0x6aa @0x0
0x06aa…06b5 lno = 0x0244 // 0x6ac @0x2
0x06aa…06b5 at0004 = ╱b2╱ INTEGER ╱ // 0x6ae @0x4
0x06aa…06b5 at0005 = ╱52╱R╱ // 0x6af @0x5
0x06aa…06b5 at0006 = ╱45╱E╱ // 0x6b0 @0x6
0x06aa…06b5 at0007 = ╱43╱C╱ // 0x6b1 @0x7
0x06aa…06b5 at0008 = ╱4e╱N╱ // 0x6b2 @0x8
0x06aa…06b5 at0009 = ╱52╱R╱ // 0x6b3 @0x9
0x06aa…06b5 at000a = EOL // 0x6b4 @0xa
0x06aa…06b5 }
0x06b5…06c6 9cb4 00590 ENDPROC DIMENSIONER
0x06b5…06c6 LineComal80 {
0x06b5…06c6 ptr = 0x9cb4 // 0x6b5 @0x0
0x06b5…06c6 lno = 0x024e // 0x6b7 @0x2
0x06b5…06c6 at0004 = ╱9f╱ ENDPROC ╱ // 0x6b9 @0x4
0x06b5…06c6 at0005 = ╱44╱D╱ // 0x6ba @0x5
0x06b5…06c6 at0006 = ╱49╱I╱ // 0x6bb @0x6
0x06b5…06c6 at0007 = ╱4d╱M╱ // 0x6bc @0x7
0x06b5…06c6 at0008 = ╱45╱E╱ // 0x6bd @0x8
0x06b5…06c6 at0009 = ╱4e╱N╱ // 0x6be @0x9
0x06b5…06c6 at000a = ╱53╱S╱ // 0x6bf @0xa
0x06b5…06c6 at000b = ╱49╱I╱ // 0x6c0 @0xb
0x06b5…06c6 at000c = ╱4f╱O╱ // 0x6c1 @0xc
0x06b5…06c6 at000d = ╱4e╱N╱ // 0x6c2 @0xd
0x06b5…06c6 at000e = ╱45╱E╱ // 0x6c3 @0xe
0x06b5…06c6 at000f = ╱52╱R╱ // 0x6c4 @0xf
0x06b5…06c6 at0010 = EOL // 0x6c5 @0x10
0x06b5…06c6 }
0x06c6…06cb 9cb9 00600
0x06c6…06cb LineComal80 {
0x06c6…06cb ptr = 0x9cb9 // 0x6c6 @0x0
0x06c6…06cb lno = 0x0258 // 0x6c8 @0x2
0x06c6…06cb at0004 = EOL // 0x6ca @0x4
0x06c6…06cb }
0x06cb…06d9 9cc7 00610 PROC INITIER
0x06cb…06d9 LineComal80 {
0x06cb…06d9 ptr = 0x9cc7 // 0x6cb @0x0
0x06cb…06d9 lno = 0x0262 // 0x6cd @0x2
0x06cb…06d9 at0004 = ╱9e02╱ PROC ╱ // 0x6cf @0x4
0x06cb…06d9 at0006 = ╱49╱I╱ // 0x6d1 @0x6
0x06cb…06d9 at0007 = ╱4e╱N╱ // 0x6d2 @0x7
0x06cb…06d9 at0008 = ╱49╱I╱ // 0x6d3 @0x8
0x06cb…06d9 at0009 = ╱54╱T╱ // 0x6d4 @0x9
0x06cb…06d9 at000a = ╱49╱I╱ // 0x6d5 @0xa
0x06cb…06d9 at000b = ╱45╱E╱ // 0x6d6 @0xb
0x06cb…06d9 at000c = ╱52╱R╱ // 0x6d7 @0xc
0x06cb…06d9 at000d = EOL // 0x6d8 @0xd
0x06cb…06d9 }
0x06d9…06eb 9cd9 00620 LET PRGFL $ := "DP2"
0x06d9…06eb LineComal80 {
0x06d9…06eb ptr = 0x9cd9 // 0x6d9 @0x0
0x06d9…06eb lno = 0x026c // 0x6db @0x2
0x06d9…06eb at0004 = ╱86╱ LET ╱ // 0x6dd @0x4
0x06d9…06eb at0005 = ╱50╱P╱ // 0x6de @0x5
0x06d9…06eb at0006 = ╱52╱R╱ // 0x6df @0x6
0x06d9…06eb at0007 = ╱47╱G╱ // 0x6e0 @0x7
0x06d9…06eb at0008 = ╱46╱F╱ // 0x6e1 @0x8
0x06d9…06eb at0009 = ╱4c╱L╱ // 0x6e2 @0x9
0x06d9…06eb at000a = ╱ef╱ $ ╱ // 0x6e3 @0xa
0x06d9…06eb at000b = ╱f0╱ := ╱ // 0x6e4 @0xb
0x06d9…06eb at000c = ╱22╱"╱ // 0x6e5 @0xc
0x06d9…06eb at000d = ╱44╱D╱ // 0x6e6 @0xd
0x06d9…06eb at000e = ╱50╱P╱ // 0x6e7 @0xe
0x06d9…06eb at000f = ╱32╱2╱ // 0x6e8 @0xf
0x06d9…06eb at0010 = ╱22╱"╱ // 0x6e9 @0x10
0x06d9…06eb at0011 = EOL // 0x6ea @0x11
0x06d9…06eb }
0x06eb…0708 (23,) 9cf6 00630 LET PROGRAM $ := PRGFL $ + ":SYSU"
0x06eb…0708 LineComal80 {
0x06eb…0708 ptr = 0x9cf6 // 0x6eb @0x0
0x06eb…0708 lno = 0x0276 // 0x6ed @0x2
0x06eb…0708 at0004 = ╱86╱ LET ╱ // 0x6ef @0x4
0x06eb…0708 at0005 = ╱50╱P╱ // 0x6f0 @0x5
0x06eb…0708 at0006 = ╱52╱R╱ // 0x6f1 @0x6
0x06eb…0708 at0007 = ╱4f╱O╱ // 0x6f2 @0x7
0x06eb…0708 at0008 = ╱47╱G╱ // 0x6f3 @0x8
0x06eb…0708 at0009 = ╱52╱R╱ // 0x6f4 @0x9
0x06eb…0708 at000a = ╱41╱A╱ // 0x6f5 @0xa
0x06eb…0708 at000b = ╱4d╱M╱ // 0x6f6 @0xb
0x06eb…0708 at000c = ╱ef╱ $ ╱ // 0x6f7 @0xc
0x06eb…0708 at000d = ╱f0╱ := ╱ // 0x6f8 @0xd
0x06eb…0708 at000e = ╱50╱P╱ // 0x6f9 @0xe
0x06eb…0708 at000f = ╱52╱R╱ // 0x6fa @0xf
0x06eb…0708 at0010 = ╱47╱G╱ // 0x6fb @0x10
0x06eb…0708 at0011 = ╱46╱F╱ // 0x6fc @0x11
0x06eb…0708 at0012 = ╱4c╱L╱ // 0x6fd @0x12
0x06eb…0708 at0013 = ╱ef╱ $ ╱ // 0x6fe @0x13
0x06eb…0708 at0014 = ╱eb╱ + ╱ // 0x6ff @0x14
0x06eb…0708 at0015 = ╱22╱"╱ // 0x700 @0x15
0x06eb…0708 at0016 = ╱3a╱:╱ // 0x701 @0x16
0x06eb…0708 at0017 = ╱53╱S╱ // 0x702 @0x17
0x06eb…0708 at0018 = ╱59╱Y╱ // 0x703 @0x18
0x06eb…0708 at0019 = ╱53╱S╱ // 0x704 @0x19
0x06eb…0708 at001a = ╱55╱U╱ // 0x705 @0x1a
0x06eb…0708 at001b = ╱22╱"╱ // 0x706 @0x1b
0x06eb…0708 at001c = EOL // 0x707 @0x1c
0x06eb…0708 }
0x0708…0729 9d17 00640 LET TAL $ := "0123456789" ; NULR := 0
0x0708…0729 LineComal80 {
0x0708…0729 ptr = 0x9d17 // 0x708 @0x0
0x0708…0729 lno = 0x0280 // 0x70a @0x2
0x0708…0729 at0004 = ╱86╱ LET ╱ // 0x70c @0x4
0x0708…0729 at0005 = ╱54╱T╱ // 0x70d @0x5
0x0708…0729 at0006 = ╱41╱A╱ // 0x70e @0x6
0x0708…0729 at0007 = ╱4c╱L╱ // 0x70f @0x7
0x0708…0729 at0008 = ╱ef╱ $ ╱ // 0x710 @0x8
0x0708…0729 at0009 = ╱f0╱ := ╱ // 0x711 @0x9
0x0708…0729 at000a = ╱22╱"╱ // 0x712 @0xa
0x0708…0729 at000b = ╱30╱0╱ // 0x713 @0xb
0x0708…0729 at000c = ╱31╱1╱ // 0x714 @0xc
0x0708…0729 at000d = ╱32╱2╱ // 0x715 @0xd
0x0708…0729 at000e = ╱33╱3╱ // 0x716 @0xe
0x0708…0729 at000f = ╱34╱4╱ // 0x717 @0xf
0x0708…0729 at0010 = ╱35╱5╱ // 0x718 @0x10
0x0708…0729 at0011 = ╱36╱6╱ // 0x719 @0x11
0x0708…0729 at0012 = ╱37╱7╱ // 0x71a @0x12
0x0708…0729 at0013 = ╱38╱8╱ // 0x71b @0x13
0x0708…0729 at0014 = ╱39╱9╱ // 0x71c @0x14
0x0708…0729 at0015 = ╱22╱"╱ // 0x71d @0x15
0x0708…0729 at0016 = ╱ea╱ ; ╱ // 0x71e @0x16
0x0708…0729 at0017 = ╱4e╱N╱ // 0x71f @0x17
0x0708…0729 at0018 = ╱55╱U╱ // 0x720 @0x18
0x0708…0729 at0019 = ╱4c╱L╱ // 0x721 @0x19
0x0708…0729 at001a = ╱52╱R╱ // 0x722 @0x1a
0x0708…0729 at001b = ╱f0╱ := ╱ // 0x723 @0x1b
0x0708…0729 at001c = ╱30╱0╱ // 0x724 @0x1c
0x0708…0729 at001d = ╱f20000╱ // 0x725 @0x1d
0x0708…0729 at0020 = EOL // 0x728 @0x20
0x0708…0729 }
0x0729…0751 9d3f 00650 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
0x0729…0751 LineComal80 {
0x0729…0751 ptr = 0x9d3f // 0x729 @0x0
0x0729…0751 lno = 0x028a // 0x72b @0x2
0x0729…0751 at0004 = ╱b400╱ FOR ╱ // 0x72d @0x4
0x0729…0751 at0006 = ╱49╱I╱ // 0x72f @0x6
0x0729…0751 at0007 = ╱f0╱ := ╱ // 0x730 @0x7
0x0729…0751 at0008 = ╱cc╱ // 0x731 @0x8
0x0729…0751 at0009 = ╱ed╱ ( ╱ // 0x732 @0x9
0x0729…0751 at000a = ╱22╱"╱ // 0x733 @0xa
0x0729…0751 at000b = ╱41╱A╱ // 0x734 @0xb
0x0729…0751 at000c = ╱22╱"╱ // 0x735 @0xc
0x0729…0751 at000d = ╱ee╱ ) ╱ // 0x736 @0xd
0x0729…0751 at000e = ╱b7cc╱ TO ╱ // 0x737 @0xe
0x0729…0751 at0010 = ╱ed╱ ( ╱ // 0x739 @0x10
0x0729…0751 at0011 = ╱22╱"╱ // 0x73a @0x11
0x0729…0751 at0012 = ╱5d╱]╱ // 0x73b @0x12
0x0729…0751 at0013 = ╱22╱"╱ // 0x73c @0x13
0x0729…0751 at0014 = ╱ee╱ ) ╱ // 0x73d @0x14
0x0729…0751 at0015 = ╱bb╱ DO ╱ // 0x73e @0x15
0x0729…0751 at0016 = ╱86╱ LET ╱ // 0x73f @0x16
0x0729…0751 at0017 = ╱41╱A╱ // 0x740 @0x17
0x0729…0751 at0018 = ╱4c╱L╱ // 0x741 @0x18
0x0729…0751 at0019 = ╱46╱F╱ // 0x742 @0x19
0x0729…0751 at001a = ╱41╱A╱ // 0x743 @0x1a
0x0729…0751 at001b = ╱ef╱ $ ╱ // 0x744 @0x1b
0x0729…0751 at001c = ╱f0╱ := ╱ // 0x745 @0x1c
0x0729…0751 at001d = ╱41╱A╱ // 0x746 @0x1d
0x0729…0751 at001e = ╱4c╱L╱ // 0x747 @0x1e
0x0729…0751 at001f = ╱46╱F╱ // 0x748 @0x1f
0x0729…0751 at0020 = ╱41╱A╱ // 0x749 @0x20
0x0729…0751 at0021 = ╱ef╱ $ ╱ // 0x74a @0x21
0x0729…0751 at0022 = ╱eb╱ + ╱ // 0x74b @0x22
0x0729…0751 at0023 = ╱d0╱ CHR$ ╱ // 0x74c @0x23
0x0729…0751 at0024 = ╱ed╱ ( ╱ // 0x74d @0x24
0x0729…0751 at0025 = ╱49╱I╱ // 0x74e @0x25
0x0729…0751 at0026 = ╱ee╱ ) ╱ // 0x74f @0x26
0x0729…0751 at0027 = EOL // 0x750 @0x27
0x0729…0751 }
0x0751…078b 9d79 00660 LET SPC $ := "………………………………………………………………………………………………………………………"
0x0751…078b LineComal80 {
0x0751…078b ptr = 0x9d79 // 0x751 @0x0
0x0751…078b lno = 0x0294 // 0x753 @0x2
0x0751…078b at0004 = ╱86╱ LET ╱ // 0x755 @0x4
0x0751…078b at0005 = ╱53╱S╱ // 0x756 @0x5
0x0751…078b at0006 = ╱50╱P╱ // 0x757 @0x6
0x0751…078b at0007 = ╱43╱C╱ // 0x758 @0x7
0x0751…078b at0008 = ╱ef╱ $ ╱ // 0x759 @0x8
0x0751…078b at0009 = ╱f0╱ := ╱ // 0x75a @0x9
0x0751…078b at000a = ╱22╱"╱ // 0x75b @0xa
0x0751…078b at000b = ╱20╱…╱ // 0x75c @0xb
0x0751…078b at000c = ╱20╱…╱ // 0x75d @0xc
0x0751…078b at000d = ╱20╱…╱ // 0x75e @0xd
0x0751…078b at000e = ╱20╱…╱ // 0x75f @0xe
0x0751…078b at000f = ╱20╱…╱ // 0x760 @0xf
0x0751…078b at0010 = ╱20╱…╱ // 0x761 @0x10
0x0751…078b at0011 = ╱20╱…╱ // 0x762 @0x11
0x0751…078b at0012 = ╱20╱…╱ // 0x763 @0x12
0x0751…078b at0013 = ╱20╱…╱ // 0x764 @0x13
0x0751…078b at0014 = ╱20╱…╱ // 0x765 @0x14
0x0751…078b at0015 = ╱20╱…╱ // 0x766 @0x15
0x0751…078b at0016 = ╱20╱…╱ // 0x767 @0x16
0x0751…078b at0017 = ╱20╱…╱ // 0x768 @0x17
0x0751…078b at0018 = ╱20╱…╱ // 0x769 @0x18
0x0751…078b at0019 = ╱20╱…╱ // 0x76a @0x19
0x0751…078b at001a = ╱20╱…╱ // 0x76b @0x1a
0x0751…078b at001b = ╱20╱…╱ // 0x76c @0x1b
0x0751…078b at001c = ╱20╱…╱ // 0x76d @0x1c
0x0751…078b at001d = ╱20╱…╱ // 0x76e @0x1d
0x0751…078b at001e = ╱20╱…╱ // 0x76f @0x1e
0x0751…078b at001f = ╱20╱…╱ // 0x770 @0x1f
0x0751…078b at0020 = ╱20╱…╱ // 0x771 @0x20
0x0751…078b at0021 = ╱20╱…╱ // 0x772 @0x21
0x0751…078b at0022 = ╱20╱…╱ // 0x773 @0x22
0x0751…078b at0023 = ╱20╱…╱ // 0x774 @0x23
0x0751…078b at0024 = ╱20╱…╱ // 0x775 @0x24
0x0751…078b at0025 = ╱20╱…╱ // 0x776 @0x25
0x0751…078b at0026 = ╱20╱…╱ // 0x777 @0x26
0x0751…078b at0027 = ╱20╱…╱ // 0x778 @0x27
0x0751…078b at0028 = ╱20╱…╱ // 0x779 @0x28
0x0751…078b at0029 = ╱20╱…╱ // 0x77a @0x29
0x0751…078b at002a = ╱20╱…╱ // 0x77b @0x2a
0x0751…078b at002b = ╱20╱…╱ // 0x77c @0x2b
0x0751…078b at002c = ╱20╱…╱ // 0x77d @0x2c
0x0751…078b at002d = ╱20╱…╱ // 0x77e @0x2d
0x0751…078b at002e = ╱20╱…╱ // 0x77f @0x2e
0x0751…078b at002f = ╱20╱…╱ // 0x780 @0x2f
0x0751…078b at0030 = ╱20╱…╱ // 0x781 @0x30
0x0751…078b at0031 = ╱20╱…╱ // 0x782 @0x31
0x0751…078b at0032 = ╱20╱…╱ // 0x783 @0x32
0x0751…078b at0033 = ╱20╱…╱ // 0x784 @0x33
0x0751…078b at0034 = ╱20╱…╱ // 0x785 @0x34
0x0751…078b at0035 = ╱20╱…╱ // 0x786 @0x35
0x0751…078b at0036 = ╱20╱…╱ // 0x787 @0x36
0x0751…078b at0037 = ╱20╱…╱ // 0x788 @0x37
0x0751…078b at0038 = ╱22╱"╱ // 0x789 @0x38
0x0751…078b at0039 = EOL // 0x78a @0x39
0x0751…078b }
0x078b…079f 9d8d 00670 LET SPC $ := SPC $ + SPC $
0x078b…079f LineComal80 {
0x078b…079f ptr = 0x9d8d // 0x78b @0x0
0x078b…079f lno = 0x029e // 0x78d @0x2
0x078b…079f at0004 = ╱86╱ LET ╱ // 0x78f @0x4
0x078b…079f at0005 = ╱53╱S╱ // 0x790 @0x5
0x078b…079f at0006 = ╱50╱P╱ // 0x791 @0x6
0x078b…079f at0007 = ╱43╱C╱ // 0x792 @0x7
0x078b…079f at0008 = ╱ef╱ $ ╱ // 0x793 @0x8
0x078b…079f at0009 = ╱f0╱ := ╱ // 0x794 @0x9
0x078b…079f at000a = ╱53╱S╱ // 0x795 @0xa
0x078b…079f at000b = ╱50╱P╱ // 0x796 @0xb
0x078b…079f at000c = ╱43╱C╱ // 0x797 @0xc
0x078b…079f at000d = ╱ef╱ $ ╱ // 0x798 @0xd
0x078b…079f at000e = ╱eb╱ + ╱ // 0x799 @0xe
0x078b…079f at000f = ╱53╱S╱ // 0x79a @0xf
0x078b…079f at0010 = ╱50╱P╱ // 0x79b @0x10
0x078b…079f at0011 = ╱43╱C╱ // 0x79c @0x11
0x078b…079f at0012 = ╱ef╱ $ ╱ // 0x79d @0x12
0x078b…079f at0013 = EOL // 0x79e @0x13
0x078b…079f }
0x079f…07ca 9db8 00680 LET FALSE := 0 ; TRUE := 1 // boolske…variable
0x079f…07ca LineComal80 {
0x079f…07ca ptr = 0x9db8 // 0x79f @0x0
0x079f…07ca lno = 0x02a8 // 0x7a1 @0x2
0x079f…07ca at0004 = ╱86╱ LET ╱ // 0x7a3 @0x4
0x079f…07ca at0005 = ╱46╱F╱ // 0x7a4 @0x5
0x079f…07ca at0006 = ╱41╱A╱ // 0x7a5 @0x6
0x079f…07ca at0007 = ╱4c╱L╱ // 0x7a6 @0x7
0x079f…07ca at0008 = ╱53╱S╱ // 0x7a7 @0x8
0x079f…07ca at0009 = ╱45╱E╱ // 0x7a8 @0x9
0x079f…07ca at000a = ╱f0╱ := ╱ // 0x7a9 @0xa
0x079f…07ca at000b = ╱30╱0╱ // 0x7aa @0xb
0x079f…07ca at000c = ╱f20000╱ // 0x7ab @0xc
0x079f…07ca at000f = ╱ea╱ ; ╱ // 0x7ae @0xf
0x079f…07ca at0010 = ╱54╱T╱ // 0x7af @0x10
0x079f…07ca at0011 = ╱52╱R╱ // 0x7b0 @0x11
0x079f…07ca at0012 = ╱55╱U╱ // 0x7b1 @0x12
0x079f…07ca at0013 = ╱45╱E╱ // 0x7b2 @0x13
0x079f…07ca at0014 = ╱f0╱ := ╱ // 0x7b3 @0x14
0x079f…07ca at0015 = ╱31╱1╱ // 0x7b4 @0x15
0x079f…07ca at0016 = ╱f20100╱ // 0x7b5 @0x16
0x079f…07ca at0019 = ╱89╱ // ╱ // 0x7b8 @0x19
0x079f…07ca at001a = ╱62╱b╱ // 0x7b9 @0x1a
0x079f…07ca at001b = ╱6f╱o╱ // 0x7ba @0x1b
0x079f…07ca at001c = ╱6f╱o╱ // 0x7bb @0x1c
0x079f…07ca at001d = ╱6c╱l╱ // 0x7bc @0x1d
0x079f…07ca at001e = ╱73╱s╱ // 0x7bd @0x1e
0x079f…07ca at001f = ╱6b╱k╱ // 0x7be @0x1f
0x079f…07ca at0020 = ╱65╱e╱ // 0x7bf @0x20
0x079f…07ca at0021 = ╱20╱…╱ // 0x7c0 @0x21
0x079f…07ca at0022 = ╱76╱v╱ // 0x7c1 @0x22
0x079f…07ca at0023 = ╱61╱a╱ // 0x7c2 @0x23
0x079f…07ca at0024 = ╱72╱r╱ // 0x7c3 @0x24
0x079f…07ca at0025 = ╱69╱i╱ // 0x7c4 @0x25
0x079f…07ca at0026 = ╱61╱a╱ // 0x7c5 @0x26
0x079f…07ca at0027 = ╱62╱b╱ // 0x7c6 @0x27
0x079f…07ca at0028 = ╱6c╱l╱ // 0x7c7 @0x28
0x079f…07ca at0029 = ╱65╱e╱ // 0x7c8 @0x29
0x079f…07ca at002a = EOL // 0x7c9 @0x2a
0x079f…07ca }
0x07ca…07e7 9dd5 00690 LET KREDIT := - 1 ; DEBET := 1
0x07ca…07e7 LineComal80 {
0x07ca…07e7 ptr = 0x9dd5 // 0x7ca @0x0
0x07ca…07e7 lno = 0x02b2 // 0x7cc @0x2
0x07ca…07e7 at0004 = ╱86╱ LET ╱ // 0x7ce @0x4
0x07ca…07e7 at0005 = ╱4b╱K╱ // 0x7cf @0x5
0x07ca…07e7 at0006 = ╱52╱R╱ // 0x7d0 @0x6
0x07ca…07e7 at0007 = ╱45╱E╱ // 0x7d1 @0x7
0x07ca…07e7 at0008 = ╱44╱D╱ // 0x7d2 @0x8
0x07ca…07e7 at0009 = ╱49╱I╱ // 0x7d3 @0x9
0x07ca…07e7 at000a = ╱54╱T╱ // 0x7d4 @0xa
0x07ca…07e7 at000b = ╱f0╱ := ╱ // 0x7d5 @0xb
0x07ca…07e7 at000c = ╱de╱ - ╱ // 0x7d6 @0xc
0x07ca…07e7 at000d = ╱31╱1╱ // 0x7d7 @0xd
0x07ca…07e7 at000e = ╱f20100╱ // 0x7d8 @0xe
0x07ca…07e7 at0011 = ╱ea╱ ; ╱ // 0x7db @0x11
0x07ca…07e7 at0012 = ╱44╱D╱ // 0x7dc @0x12
0x07ca…07e7 at0013 = ╱45╱E╱ // 0x7dd @0x13
0x07ca…07e7 at0014 = ╱42╱B╱ // 0x7de @0x14
0x07ca…07e7 at0015 = ╱45╱E╱ // 0x7df @0x15
0x07ca…07e7 at0016 = ╱54╱T╱ // 0x7e0 @0x16
0x07ca…07e7 at0017 = ╱f0╱ := ╱ // 0x7e1 @0x17
0x07ca…07e7 at0018 = ╱31╱1╱ // 0x7e2 @0x18
0x07ca…07e7 at0019 = ╱f20100╱ // 0x7e3 @0x19
0x07ca…07e7 at001c = EOL // 0x7e6 @0x1c
0x07ca…07e7 }
0x07e7…0807 9df5 00700 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
0x07e7…0807 LineComal80 {
0x07e7…0807 ptr = 0x9df5 // 0x7e7 @0x0
0x07e7…0807 lno = 0x02bc // 0x7e9 @0x2
0x07e7…0807 at0004 = ╱86╱ LET ╱ // 0x7eb @0x4
0x07e7…0807 at0005 = ╱53╱S╱ // 0x7ec @0x5
0x07e7…0807 at0006 = ╱59╱Y╱ // 0x7ed @0x6
0x07e7…0807 at0007 = ╱53╱S╱ // 0x7ee @0x7
0x07e7…0807 at0008 = ╱50╱P╱ // 0x7ef @0x8
0x07e7…0807 at0009 = ╱41╱A╱ // 0x7f0 @0x9
0x07e7…0807 at000a = ╱52╱R╱ // 0x7f1 @0xa
0x07e7…0807 at000b = ╱41╱A╱ // 0x7f2 @0xb
0x07e7…0807 at000c = ╱ef╱ $ ╱ // 0x7f3 @0xc
0x07e7…0807 at000d = ╱f0╱ := ╱ // 0x7f4 @0xd
0x07e7…0807 at000e = ╱50╱P╱ // 0x7f5 @0xe
0x07e7…0807 at000f = ╱52╱R╱ // 0x7f6 @0xf
0x07e7…0807 at0010 = ╱47╱G╱ // 0x7f7 @0x10
0x07e7…0807 at0011 = ╱46╱F╱ // 0x7f8 @0x11
0x07e7…0807 at0012 = ╱4c╱L╱ // 0x7f9 @0x12
0x07e7…0807 at0013 = ╱ef╱ $ ╱ // 0x7fa @0x13
0x07e7…0807 at0014 = ╱eb╱ + ╱ // 0x7fb @0x14
0x07e7…0807 at0015 = ╱22╱"╱ // 0x7fc @0x15
0x07e7…0807 at0016 = ╱3a╱:╱ // 0x7fd @0x16
0x07e7…0807 at0017 = ╱53╱S╱ // 0x7fe @0x17
0x07e7…0807 at0018 = ╱59╱Y╱ // 0x7ff @0x18
0x07e7…0807 at0019 = ╱53╱S╱ // 0x800 @0x19
0x07e7…0807 at001a = ╱50╱P╱ // 0x801 @0x1a
0x07e7…0807 at001b = ╱41╱A╱ // 0x802 @0x1b
0x07e7…0807 at001c = ╱52╱R╱ // 0x803 @0x1c
0x07e7…0807 at001d = ╱41╱A╱ // 0x804 @0x1d
0x07e7…0807 at001e = ╱22╱"╱ // 0x805 @0x1e
0x07e7…0807 at001f = EOL // 0x806 @0x1f
0x07e7…0807 }
0x0807…0822 9e10 00710 EXEC OPENFIL ( SYSPARA $ , "R" )
0x0807…0822 LineComal80 {
0x0807…0822 ptr = 0x9e10 // 0x807 @0x0
0x0807…0822 lno = 0x02c6 // 0x809 @0x2
0x0807…0822 at0004 = ╱9d╱ EXEC ╱ // 0x80b @0x4
0x0807…0822 at0005 = ╱4f╱O╱ // 0x80c @0x5
0x0807…0822 at0006 = ╱50╱P╱ // 0x80d @0x6
0x0807…0822 at0007 = ╱45╱E╱ // 0x80e @0x7
0x0807…0822 at0008 = ╱4e╱N╱ // 0x80f @0x8
0x0807…0822 at0009 = ╱46╱F╱ // 0x810 @0x9
0x0807…0822 at000a = ╱49╱I╱ // 0x811 @0xa
0x0807…0822 at000b = ╱4c╱L╱ // 0x812 @0xb
0x0807…0822 at000c = ╱ed╱ ( ╱ // 0x813 @0xc
0x0807…0822 at000d = ╱53╱S╱ // 0x814 @0xd
0x0807…0822 at000e = ╱59╱Y╱ // 0x815 @0xe
0x0807…0822 at000f = ╱53╱S╱ // 0x816 @0xf
0x0807…0822 at0010 = ╱50╱P╱ // 0x817 @0x10
0x0807…0822 at0011 = ╱41╱A╱ // 0x818 @0x11
0x0807…0822 at0012 = ╱52╱R╱ // 0x819 @0x12
0x0807…0822 at0013 = ╱41╱A╱ // 0x81a @0x13
0x0807…0822 at0014 = ╱ef╱ $ ╱ // 0x81b @0x14
0x0807…0822 at0015 = ╱ec╱ , ╱ // 0x81c @0x15
0x0807…0822 at0016 = ╱22╱"╱ // 0x81d @0x16
0x0807…0822 at0017 = ╱52╱R╱ // 0x81e @0x17
0x0807…0822 at0018 = ╱22╱"╱ // 0x81f @0x18
0x0807…0822 at0019 = ╱ee╱ ) ╱ // 0x820 @0x19
0x0807…0822 at001a = EOL // 0x821 @0x1a
0x0807…0822 }
0x0822…0848 9e36 00720 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
0x0822…0848 LineComal80 {
0x0822…0848 ptr = 0x9e36 // 0x822 @0x0
0x0822…0848 lno = 0x02d0 // 0x824 @0x2
0x0822…0848 at0004 = ╱a9╱ GET ╱ // 0x826 @0x4
0x0822…0848 at0005 = ╱53╱S╱ // 0x827 @0x5
0x0822…0848 at0006 = ╱59╱Y╱ // 0x828 @0x6
0x0822…0848 at0007 = ╱53╱S╱ // 0x829 @0x7
0x0822…0848 at0008 = ╱50╱P╱ // 0x82a @0x8
0x0822…0848 at0009 = ╱41╱A╱ // 0x82b @0x9
0x0822…0848 at000a = ╱52╱R╱ // 0x82c @0xa
0x0822…0848 at000b = ╱41╱A╱ // 0x82d @0xb
0x0822…0848 at000c = ╱ef╱ $ ╱ // 0x82e @0xc
0x0822…0848 at000d = ╱ec╱ , ╱ // 0x82f @0xd
0x0822…0848 at000e = ╱31╱1╱ // 0x830 @0xe
0x0822…0848 at000f = ╱f20100╱ // 0x831 @0xf
0x0822…0848 at0012 = ╱f1╱ : ╱ // 0x834 @0x12
0x0822…0848 at0013 = ╱53╱S╱ // 0x835 @0x13
0x0822…0848 at0014 = ╱59╱Y╱ // 0x836 @0x14
0x0822…0848 at0015 = ╱53╱S╱ // 0x837 @0x15
0x0822…0848 at0016 = ╱54╱T╱ // 0x838 @0x16
0x0822…0848 at0017 = ╱5f╱_╱ // 0x839 @0x17
0x0822…0848 at0018 = ╱4e╱N╱ // 0x83a @0x18
0x0822…0848 at0019 = ╱41╱A╱ // 0x83b @0x19
0x0822…0848 at001a = ╱56╱V╱ // 0x83c @0x1a
0x0822…0848 at001b = ╱4e╱N╱ // 0x83d @0x1b
0x0822…0848 at001c = ╱ef╱ $ ╱ // 0x83e @0x1c
0x0822…0848 at001d = ╱ec╱ , ╱ // 0x83f @0x1d
0x0822…0848 at001e = ╱53╱S╱ // 0x840 @0x1e
0x0822…0848 at001f = ╱5f╱_╱ // 0x841 @0x1f
0x0822…0848 at0020 = ╱4b╱K╱ // 0x842 @0x20
0x0822…0848 at0021 = ╱4f╱O╱ // 0x843 @0x21
0x0822…0848 at0022 = ╱44╱D╱ // 0x844 @0x22
0x0822…0848 at0023 = ╱45╱E╱ // 0x845 @0x23
0x0822…0848 at0024 = ╱ef╱ $ ╱ // 0x846 @0x24
0x0822…0848 at0025 = EOL // 0x847 @0x25
0x0822…0848 }
0x0848…085a 9e48 00730 EXEC TERMINAL_IDX
0x0848…085a LineComal80 {
0x0848…085a ptr = 0x9e48 // 0x848 @0x0
0x0848…085a lno = 0x02da // 0x84a @0x2
0x0848…085a at0004 = ╱9d╱ EXEC ╱ // 0x84c @0x4
0x0848…085a at0005 = ╱54╱T╱ // 0x84d @0x5
0x0848…085a at0006 = ╱45╱E╱ // 0x84e @0x6
0x0848…085a at0007 = ╱52╱R╱ // 0x84f @0x7
0x0848…085a at0008 = ╱4d╱M╱ // 0x850 @0x8
0x0848…085a at0009 = ╱49╱I╱ // 0x851 @0x9
0x0848…085a at000a = ╱4e╱N╱ // 0x852 @0xa
0x0848…085a at000b = ╱41╱A╱ // 0x853 @0xb
0x0848…085a at000c = ╱4c╱L╱ // 0x854 @0xc
0x0848…085a at000d = ╱5f╱_╱ // 0x855 @0xd
0x0848…085a at000e = ╱49╱I╱ // 0x856 @0xe
0x0848…085a at000f = ╱44╱D╱ // 0x857 @0xf
0x0848…085a at0010 = ╱58╱X╱ // 0x858 @0x10
0x0848…085a at0011 = EOL // 0x859 @0x11
0x0848…085a }
0x085a…0868 9e56 00740 CLOSE SYSPARA $
0x085a…0868 LineComal80 {
0x085a…0868 ptr = 0x9e56 // 0x85a @0x0
0x085a…0868 lno = 0x02e4 // 0x85c @0x2
0x085a…0868 at0004 = ╱a8╱ CLOSE ╱ // 0x85e @0x4
0x085a…0868 at0005 = ╱53╱S╱ // 0x85f @0x5
0x085a…0868 at0006 = ╱59╱Y╱ // 0x860 @0x6
0x085a…0868 at0007 = ╱53╱S╱ // 0x861 @0x7
0x085a…0868 at0008 = ╱50╱P╱ // 0x862 @0x8
0x085a…0868 at0009 = ╱41╱A╱ // 0x863 @0x9
0x085a…0868 at000a = ╱52╱R╱ // 0x864 @0xa
0x085a…0868 at000b = ╱41╱A╱ // 0x865 @0xb
0x085a…0868 at000c = ╱ef╱ $ ╱ // 0x866 @0xc
0x085a…0868 at000d = EOL // 0x867 @0xd
0x085a…0868 }
0x0868…0898 9e86 00750 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
0x0868…0898 LineComal80 {
0x0868…0898 ptr = 0x9e86 // 0x868 @0x0
0x0868…0898 lno = 0x02ee // 0x86a @0x2
0x0868…0898 at0004 = ╱86╱ LET ╱ // 0x86c @0x4
0x0868…0898 at0005 = ╱50╱P╱ // 0x86d @0x5
0x0868…0898 at0006 = ╱41╱A╱ // 0x86e @0x6
0x0868…0898 at0007 = ╱52╱R╱ // 0x86f @0x7
0x0868…0898 at0008 = ╱41╱A╱ // 0x870 @0x8
0x0868…0898 at0009 = ╱4d╱M╱ // 0x871 @0x9
0x0868…0898 at000a = ╱ef╱ $ ╱ // 0x872 @0xa
0x0868…0898 at000b = ╱f0╱ := ╱ // 0x873 @0xb
0x0868…0898 at000c = ╱44╱D╱ // 0x874 @0xc
0x0868…0898 at000d = ╱41╱A╱ // 0x875 @0xd
0x0868…0898 at000e = ╱54╱T╱ // 0x876 @0xe
0x0868…0898 at000f = ╱41╱A╱ // 0x877 @0xf
0x0868…0898 at0010 = ╱46╱F╱ // 0x878 @0x10
0x0868…0898 at0011 = ╱4c╱L╱ // 0x879 @0x11
0x0868…0898 at0012 = ╱ef╱ $ ╱ // 0x87a @0x12
0x0868…0898 at0013 = ╱eb╱ + ╱ // 0x87b @0x13
0x0868…0898 at0014 = ╱22╱"╱ // 0x87c @0x14
0x0868…0898 at0015 = ╱3a╱:╱ // 0x87d @0x15
0x0868…0898 at0016 = ╱22╱"╱ // 0x87e @0x16
0x0868…0898 at0017 = ╱eb╱ + ╱ // 0x87f @0x17
0x0868…0898 at0018 = ╱53╱S╱ // 0x880 @0x18
0x0868…0898 at0019 = ╱5f╱_╱ // 0x881 @0x19
0x0868…0898 at001a = ╱4b╱K╱ // 0x882 @0x1a
0x0868…0898 at001b = ╱4f╱O╱ // 0x883 @0x1b
0x0868…0898 at001c = ╱44╱D╱ // 0x884 @0x1c
0x0868…0898 at001d = ╱45╱E╱ // 0x885 @0x1d
0x0868…0898 at001e = ╱ef╱ $ ╱ // 0x886 @0x1e
0x0868…0898 at001f = ╱eb╱ + ╱ // 0x887 @0x1f
0x0868…0898 at0020 = ╱54╱T╱ // 0x888 @0x20
0x0868…0898 at0021 = ╱5f╱_╱ // 0x889 @0x21
0x0868…0898 at0022 = ╱4b╱K╱ // 0x88a @0x22
0x0868…0898 at0023 = ╱4f╱O╱ // 0x88b @0x23
0x0868…0898 at0024 = ╱44╱D╱ // 0x88c @0x24
0x0868…0898 at0025 = ╱45╱E╱ // 0x88d @0x25
0x0868…0898 at0026 = ╱ef╱ $ ╱ // 0x88e @0x26
0x0868…0898 at0027 = ╱eb╱ + ╱ // 0x88f @0x27
0x0868…0898 at0028 = ╱22╱"╱ // 0x890 @0x28
0x0868…0898 at0029 = ╱50╱P╱ // 0x891 @0x29
0x0868…0898 at002a = ╱41╱A╱ // 0x892 @0x2a
0x0868…0898 at002b = ╱52╱R╱ // 0x893 @0x2b
0x0868…0898 at002c = ╱41╱A╱ // 0x894 @0x2c
0x0868…0898 at002d = ╱4d╱M╱ // 0x895 @0x2d
0x0868…0898 at002e = ╱22╱"╱ // 0x896 @0x2e
0x0868…0898 at002f = EOL // 0x897 @0x2f
0x0868…0898 }
0x0898…08b1 9e9f 00760 EXEC OPENFIL ( PARAM $ , "R" )
0x0898…08b1 LineComal80 {
0x0898…08b1 ptr = 0x9e9f // 0x898 @0x0
0x0898…08b1 lno = 0x02f8 // 0x89a @0x2
0x0898…08b1 at0004 = ╱9d╱ EXEC ╱ // 0x89c @0x4
0x0898…08b1 at0005 = ╱4f╱O╱ // 0x89d @0x5
0x0898…08b1 at0006 = ╱50╱P╱ // 0x89e @0x6
0x0898…08b1 at0007 = ╱45╱E╱ // 0x89f @0x7
0x0898…08b1 at0008 = ╱4e╱N╱ // 0x8a0 @0x8
0x0898…08b1 at0009 = ╱46╱F╱ // 0x8a1 @0x9
0x0898…08b1 at000a = ╱49╱I╱ // 0x8a2 @0xa
0x0898…08b1 at000b = ╱4c╱L╱ // 0x8a3 @0xb
0x0898…08b1 at000c = ╱ed╱ ( ╱ // 0x8a4 @0xc
0x0898…08b1 at000d = ╱50╱P╱ // 0x8a5 @0xd
0x0898…08b1 at000e = ╱41╱A╱ // 0x8a6 @0xe
0x0898…08b1 at000f = ╱52╱R╱ // 0x8a7 @0xf
0x0898…08b1 at0010 = ╱41╱A╱ // 0x8a8 @0x10
0x0898…08b1 at0011 = ╱4d╱M╱ // 0x8a9 @0x11
0x0898…08b1 at0012 = ╱ef╱ $ ╱ // 0x8aa @0x12
0x0898…08b1 at0013 = ╱ec╱ , ╱ // 0x8ab @0x13
0x0898…08b1 at0014 = ╱22╱"╱ // 0x8ac @0x14
0x0898…08b1 at0015 = ╱52╱R╱ // 0x8ad @0x15
0x0898…08b1 at0016 = ╱22╱"╱ // 0x8ae @0x16
0x0898…08b1 at0017 = ╱ee╱ ) ╱ // 0x8af @0x17
0x0898…08b1 at0018 = EOL // 0x8b0 @0x18
0x0898…08b1 }
0x08b1…08dc 9eca 00770 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
0x08b1…08dc LineComal80 {
0x08b1…08dc ptr = 0x9eca // 0x8b1 @0x0
0x08b1…08dc lno = 0x0302 // 0x8b3 @0x2
0x08b1…08dc at0004 = ╱a9╱ GET ╱ // 0x8b5 @0x4
0x08b1…08dc at0005 = ╱50╱P╱ // 0x8b6 @0x5
0x08b1…08dc at0006 = ╱41╱A╱ // 0x8b7 @0x6
0x08b1…08dc at0007 = ╱52╱R╱ // 0x8b8 @0x7
0x08b1…08dc at0008 = ╱41╱A╱ // 0x8b9 @0x8
0x08b1…08dc at0009 = ╱4d╱M╱ // 0x8ba @0x9
0x08b1…08dc at000a = ╱ef╱ $ ╱ // 0x8bb @0xa
0x08b1…08dc at000b = ╱ec╱ , ╱ // 0x8bc @0xb
0x08b1…08dc at000c = ╱31╱1╱ // 0x8bd @0xc
0x08b1…08dc at000d = ╱f20100╱ // 0x8be @0xd
0x08b1…08dc at0010 = ╱f1╱ : ╱ // 0x8c1 @0x10
0x08b1…08dc at0011 = ╱46╱F╱ // 0x8c2 @0x11
0x08b1…08dc at0012 = ╱49╱I╱ // 0x8c3 @0x12
0x08b1…08dc at0013 = ╱52╱R╱ // 0x8c4 @0x13
0x08b1…08dc at0014 = ╱4d╱M╱ // 0x8c5 @0x14
0x08b1…08dc at0015 = ╱41╱A╱ // 0x8c6 @0x15
0x08b1…08dc at0016 = ╱4e╱N╱ // 0x8c7 @0x16
0x08b1…08dc at0017 = ╱41╱A╱ // 0x8c8 @0x17
0x08b1…08dc at0018 = ╱56╱V╱ // 0x8c9 @0x18
0x08b1…08dc at0019 = ╱4e╱N╱ // 0x8ca @0x19
0x08b1…08dc at001a = ╱ef╱ $ ╱ // 0x8cb @0x1a
0x08b1…08dc at001b = ╱ec╱ , ╱ // 0x8cc @0x1b
0x08b1…08dc at001c = ╱53╱S╱ // 0x8cd @0x1c
0x08b1…08dc at001d = ╱59╱Y╱ // 0x8ce @0x1d
0x08b1…08dc at001e = ╱53╱S╱ // 0x8cf @0x1e
0x08b1…08dc at001f = ╱54╱T╱ // 0x8d0 @0x1f
0x08b1…08dc at0020 = ╱5f╱_╱ // 0x8d1 @0x20
0x08b1…08dc at0021 = ╱44╱D╱ // 0x8d2 @0x21
0x08b1…08dc at0022 = ╱41╱A╱ // 0x8d3 @0x22
0x08b1…08dc at0023 = ╱54╱T╱ // 0x8d4 @0x23
0x08b1…08dc at0024 = ╱ef╱ $ ╱ // 0x8d5 @0x24
0x08b1…08dc at0025 = ╱ec╱ , ╱ // 0x8d6 @0x25
0x08b1…08dc at0026 = ╱4d╱M╱ // 0x8d7 @0x26
0x08b1…08dc at0027 = ╱4f╱O╱ // 0x8d8 @0x27
0x08b1…08dc at0028 = ╱4d╱M╱ // 0x8d9 @0x28
0x08b1…08dc at0029 = ╱53╱S╱ // 0x8da @0x29
0x08b1…08dc at002a = EOL // 0x8db @0x2a
0x08b1…08dc }
0x08dc…08e8 9ed6 00780 CLOSE PARAM $
0x08dc…08e8 LineComal80 {
0x08dc…08e8 ptr = 0x9ed6 // 0x8dc @0x0
0x08dc…08e8 lno = 0x030c // 0x8de @0x2
0x08dc…08e8 at0004 = ╱a8╱ CLOSE ╱ // 0x8e0 @0x4
0x08dc…08e8 at0005 = ╱50╱P╱ // 0x8e1 @0x5
0x08dc…08e8 at0006 = ╱41╱A╱ // 0x8e2 @0x6
0x08dc…08e8 at0007 = ╱52╱R╱ // 0x8e3 @0x7
0x08dc…08e8 at0008 = ╱41╱A╱ // 0x8e4 @0x8
0x08dc…08e8 at0009 = ╱4d╱M╱ // 0x8e5 @0x9
0x08dc…08e8 at000a = ╱ef╱ $ ╱ // 0x8e6 @0xa
0x08dc…08e8 at000b = EOL // 0x8e7 @0xb
0x08dc…08e8 }
0x08e8…091a 9f08 00790 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
0x08e8…091a LineComal80 {
0x08e8…091a ptr = 0x9f08 // 0x8e8 @0x0
0x08e8…091a lno = 0x0316 // 0x8ea @0x2
0x08e8…091a at0004 = ╱86╱ LET ╱ // 0x8ec @0x4
0x08e8…091a at0005 = ╱4b╱K╱ // 0x8ed @0x5
0x08e8…091a at0006 = ╱54╱T╱ // 0x8ee @0x6
0x08e8…091a at0007 = ╱4f╱O╱ // 0x8ef @0x7
0x08e8…091a at0008 = ╱49╱I╱ // 0x8f0 @0x8
0x08e8…091a at0009 = ╱44╱D╱ // 0x8f1 @0x9
0x08e8…091a at000a = ╱58╱X╱ // 0x8f2 @0xa
0x08e8…091a at000b = ╱ef╱ $ ╱ // 0x8f3 @0xb
0x08e8…091a at000c = ╱f0╱ := ╱ // 0x8f4 @0xc
0x08e8…091a at000d = ╱44╱D╱ // 0x8f5 @0xd
0x08e8…091a at000e = ╱41╱A╱ // 0x8f6 @0xe
0x08e8…091a at000f = ╱54╱T╱ // 0x8f7 @0xf
0x08e8…091a at0010 = ╱41╱A╱ // 0x8f8 @0x10
0x08e8…091a at0011 = ╱46╱F╱ // 0x8f9 @0x11
0x08e8…091a at0012 = ╱4c╱L╱ // 0x8fa @0x12
0x08e8…091a at0013 = ╱ef╱ $ ╱ // 0x8fb @0x13
0x08e8…091a at0014 = ╱eb╱ + ╱ // 0x8fc @0x14
0x08e8…091a at0015 = ╱22╱"╱ // 0x8fd @0x15
0x08e8…091a at0016 = ╱3a╱:╱ // 0x8fe @0x16
0x08e8…091a at0017 = ╱22╱"╱ // 0x8ff @0x17
0x08e8…091a at0018 = ╱eb╱ + ╱ // 0x900 @0x18
0x08e8…091a at0019 = ╱53╱S╱ // 0x901 @0x19
0x08e8…091a at001a = ╱5f╱_╱ // 0x902 @0x1a
0x08e8…091a at001b = ╱4b╱K╱ // 0x903 @0x1b
0x08e8…091a at001c = ╱4f╱O╱ // 0x904 @0x1c
0x08e8…091a at001d = ╱44╱D╱ // 0x905 @0x1d
0x08e8…091a at001e = ╱45╱E╱ // 0x906 @0x1e
0x08e8…091a at001f = ╱ef╱ $ ╱ // 0x907 @0x1f
0x08e8…091a at0020 = ╱eb╱ + ╱ // 0x908 @0x20
0x08e8…091a at0021 = ╱54╱T╱ // 0x909 @0x21
0x08e8…091a at0022 = ╱5f╱_╱ // 0x90a @0x22
0x08e8…091a at0023 = ╱4b╱K╱ // 0x90b @0x23
0x08e8…091a at0024 = ╱4f╱O╱ // 0x90c @0x24
0x08e8…091a at0025 = ╱44╱D╱ // 0x90d @0x25
0x08e8…091a at0026 = ╱45╱E╱ // 0x90e @0x26
0x08e8…091a at0027 = ╱ef╱ $ ╱ // 0x90f @0x27
0x08e8…091a at0028 = ╱eb╱ + ╱ // 0x910 @0x28
0x08e8…091a at0029 = ╱22╱"╱ // 0x911 @0x29
0x08e8…091a at002a = ╱4b╱K╱ // 0x912 @0x2a
0x08e8…091a at002b = ╱54╱T╱ // 0x913 @0x2b
0x08e8…091a at002c = ╱4f╱O╱ // 0x914 @0x2c
0x08e8…091a at002d = ╱49╱I╱ // 0x915 @0x2d
0x08e8…091a at002e = ╱44╱D╱ // 0x916 @0x2e
0x08e8…091a at002f = ╱58╱X╱ // 0x917 @0x2f
0x08e8…091a at0030 = ╱22╱"╱ // 0x918 @0x30
0x08e8…091a at0031 = EOL // 0x919 @0x31
0x08e8…091a }
0x091a…094a 9f38 00800 LET KONTO $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KONTO"
0x091a…094a LineComal80 {
0x091a…094a ptr = 0x9f38 // 0x91a @0x0
0x091a…094a lno = 0x0320 // 0x91c @0x2
0x091a…094a at0004 = ╱86╱ LET ╱ // 0x91e @0x4
0x091a…094a at0005 = ╱4b╱K╱ // 0x91f @0x5
0x091a…094a at0006 = ╱4f╱O╱ // 0x920 @0x6
0x091a…094a at0007 = ╱4e╱N╱ // 0x921 @0x7
0x091a…094a at0008 = ╱54╱T╱ // 0x922 @0x8
0x091a…094a at0009 = ╱4f╱O╱ // 0x923 @0x9
0x091a…094a at000a = ╱ef╱ $ ╱ // 0x924 @0xa
0x091a…094a at000b = ╱f0╱ := ╱ // 0x925 @0xb
0x091a…094a at000c = ╱44╱D╱ // 0x926 @0xc
0x091a…094a at000d = ╱41╱A╱ // 0x927 @0xd
0x091a…094a at000e = ╱54╱T╱ // 0x928 @0xe
0x091a…094a at000f = ╱41╱A╱ // 0x929 @0xf
0x091a…094a at0010 = ╱46╱F╱ // 0x92a @0x10
0x091a…094a at0011 = ╱4c╱L╱ // 0x92b @0x11
0x091a…094a at0012 = ╱ef╱ $ ╱ // 0x92c @0x12
0x091a…094a at0013 = ╱eb╱ + ╱ // 0x92d @0x13
0x091a…094a at0014 = ╱22╱"╱ // 0x92e @0x14
0x091a…094a at0015 = ╱3a╱:╱ // 0x92f @0x15
0x091a…094a at0016 = ╱22╱"╱ // 0x930 @0x16
0x091a…094a at0017 = ╱eb╱ + ╱ // 0x931 @0x17
0x091a…094a at0018 = ╱53╱S╱ // 0x932 @0x18
0x091a…094a at0019 = ╱5f╱_╱ // 0x933 @0x19
0x091a…094a at001a = ╱4b╱K╱ // 0x934 @0x1a
0x091a…094a at001b = ╱4f╱O╱ // 0x935 @0x1b
0x091a…094a at001c = ╱44╱D╱ // 0x936 @0x1c
0x091a…094a at001d = ╱45╱E╱ // 0x937 @0x1d
0x091a…094a at001e = ╱ef╱ $ ╱ // 0x938 @0x1e
0x091a…094a at001f = ╱eb╱ + ╱ // 0x939 @0x1f
0x091a…094a at0020 = ╱54╱T╱ // 0x93a @0x20
0x091a…094a at0021 = ╱5f╱_╱ // 0x93b @0x21
0x091a…094a at0022 = ╱4b╱K╱ // 0x93c @0x22
0x091a…094a at0023 = ╱4f╱O╱ // 0x93d @0x23
0x091a…094a at0024 = ╱44╱D╱ // 0x93e @0x24
0x091a…094a at0025 = ╱45╱E╱ // 0x93f @0x25
0x091a…094a at0026 = ╱ef╱ $ ╱ // 0x940 @0x26
0x091a…094a at0027 = ╱eb╱ + ╱ // 0x941 @0x27
0x091a…094a at0028 = ╱22╱"╱ // 0x942 @0x28
0x091a…094a at0029 = ╱4b╱K╱ // 0x943 @0x29
0x091a…094a at002a = ╱4f╱O╱ // 0x944 @0x2a
0x091a…094a at002b = ╱4e╱N╱ // 0x945 @0x2b
0x091a…094a at002c = ╱54╱T╱ // 0x946 @0x2c
0x091a…094a at002d = ╱4f╱O╱ // 0x947 @0x2d
0x091a…094a at002e = ╱22╱"╱ // 0x948 @0x2e
0x091a…094a at002f = EOL // 0x949 @0x2f
0x091a…094a }
0x094a…0964 9f52 00810 EXEC OPENFIL ( KTOIDX $ , "R" )
0x094a…0964 LineComal80 {
0x094a…0964 ptr = 0x9f52 // 0x94a @0x0
0x094a…0964 lno = 0x032a // 0x94c @0x2
0x094a…0964 at0004 = ╱9d╱ EXEC ╱ // 0x94e @0x4
0x094a…0964 at0005 = ╱4f╱O╱ // 0x94f @0x5
0x094a…0964 at0006 = ╱50╱P╱ // 0x950 @0x6
0x094a…0964 at0007 = ╱45╱E╱ // 0x951 @0x7
0x094a…0964 at0008 = ╱4e╱N╱ // 0x952 @0x8
0x094a…0964 at0009 = ╱46╱F╱ // 0x953 @0x9
0x094a…0964 at000a = ╱49╱I╱ // 0x954 @0xa
0x094a…0964 at000b = ╱4c╱L╱ // 0x955 @0xb
0x094a…0964 at000c = ╱ed╱ ( ╱ // 0x956 @0xc
0x094a…0964 at000d = ╱4b╱K╱ // 0x957 @0xd
0x094a…0964 at000e = ╱54╱T╱ // 0x958 @0xe
0x094a…0964 at000f = ╱4f╱O╱ // 0x959 @0xf
0x094a…0964 at0010 = ╱49╱I╱ // 0x95a @0x10
0x094a…0964 at0011 = ╱44╱D╱ // 0x95b @0x11
0x094a…0964 at0012 = ╱58╱X╱ // 0x95c @0x12
0x094a…0964 at0013 = ╱ef╱ $ ╱ // 0x95d @0x13
0x094a…0964 at0014 = ╱ec╱ , ╱ // 0x95e @0x14
0x094a…0964 at0015 = ╱22╱"╱ // 0x95f @0x15
0x094a…0964 at0016 = ╱52╱R╱ // 0x960 @0x16
0x094a…0964 at0017 = ╱22╱"╱ // 0x961 @0x17
0x094a…0964 at0018 = ╱ee╱ ) ╱ // 0x962 @0x18
0x094a…0964 at0019 = EOL // 0x963 @0x19
0x094a…0964 }
0x0964…097d 9f6b 00820 EXEC OPENFIL ( KONTO $ , "R" )
0x0964…097d LineComal80 {
0x0964…097d ptr = 0x9f6b // 0x964 @0x0
0x0964…097d lno = 0x0334 // 0x966 @0x2
0x0964…097d at0004 = ╱9d╱ EXEC ╱ // 0x968 @0x4
0x0964…097d at0005 = ╱4f╱O╱ // 0x969 @0x5
0x0964…097d at0006 = ╱50╱P╱ // 0x96a @0x6
0x0964…097d at0007 = ╱45╱E╱ // 0x96b @0x7
0x0964…097d at0008 = ╱4e╱N╱ // 0x96c @0x8
0x0964…097d at0009 = ╱46╱F╱ // 0x96d @0x9
0x0964…097d at000a = ╱49╱I╱ // 0x96e @0xa
0x0964…097d at000b = ╱4c╱L╱ // 0x96f @0xb
0x0964…097d at000c = ╱ed╱ ( ╱ // 0x970 @0xc
0x0964…097d at000d = ╱4b╱K╱ // 0x971 @0xd
0x0964…097d at000e = ╱4f╱O╱ // 0x972 @0xe
0x0964…097d at000f = ╱4e╱N╱ // 0x973 @0xf
0x0964…097d at0010 = ╱54╱T╱ // 0x974 @0x10
0x0964…097d at0011 = ╱4f╱O╱ // 0x975 @0x11
0x0964…097d at0012 = ╱ef╱ $ ╱ // 0x976 @0x12
0x0964…097d at0013 = ╱ec╱ , ╱ // 0x977 @0x13
0x0964…097d at0014 = ╱22╱"╱ // 0x978 @0x14
0x0964…097d at0015 = ╱52╱R╱ // 0x979 @0x15
0x0964…097d at0016 = ╱22╱"╱ // 0x97a @0x16
0x0964…097d at0017 = ╱ee╱ ) ╱ // 0x97b @0x17
0x0964…097d at0018 = EOL // 0x97c @0x18
0x0964…097d }
0x097d…098a 9f78 00830 ENDPROC INITIER
0x097d…098a LineComal80 {
0x097d…098a ptr = 0x9f78 // 0x97d @0x0
0x097d…098a lno = 0x033e // 0x97f @0x2
0x097d…098a at0004 = ╱9f╱ ENDPROC ╱ // 0x981 @0x4
0x097d…098a at0005 = ╱49╱I╱ // 0x982 @0x5
0x097d…098a at0006 = ╱4e╱N╱ // 0x983 @0x6
0x097d…098a at0007 = ╱49╱I╱ // 0x984 @0x7
0x097d…098a at0008 = ╱54╱T╱ // 0x985 @0x8
0x097d…098a at0009 = ╱49╱I╱ // 0x986 @0x9
0x097d…098a at000a = ╱45╱E╱ // 0x987 @0xa
0x097d…098a at000b = ╱52╱R╱ // 0x988 @0xb
0x097d…098a at000c = EOL // 0x989 @0xc
0x097d…098a }
0x098a…098f 9f7d 00840
0x098a…098f LineComal80 {
0x098a…098f ptr = 0x9f7d // 0x98a @0x0
0x098a…098f lno = 0x0348 // 0x98c @0x2
0x098a…098f at0004 = EOL // 0x98e @0x4
0x098a…098f }
0x098f…099e 9f8c 00850 PROC FKT_MENU
0x098f…099e LineComal80 {
0x098f…099e ptr = 0x9f8c // 0x98f @0x0
0x098f…099e lno = 0x0352 // 0x991 @0x2
0x098f…099e at0004 = ╱9e03╱ PROC ╱ // 0x993 @0x4
0x098f…099e at0006 = ╱46╱F╱ // 0x995 @0x6
0x098f…099e at0007 = ╱4b╱K╱ // 0x996 @0x7
0x098f…099e at0008 = ╱54╱T╱ // 0x997 @0x8
0x098f…099e at0009 = ╱5f╱_╱ // 0x998 @0x9
0x098f…099e at000a = ╱4d╱M╱ // 0x999 @0xa
0x098f…099e at000b = ╱45╱E╱ // 0x99a @0xb
0x098f…099e at000c = ╱4e╱N╱ // 0x99b @0xc
0x098f…099e at000d = ╱55╱U╱ // 0x99c @0xd
0x098f…099e at000e = EOL // 0x99d @0xe
0x098f…099e }
0x099e…09a5 9f93 00860 REPEAT
0x099e…09a5 LineComal80 {
0x099e…09a5 ptr = 0x9f93 // 0x99e @0x0
0x099e…09a5 lno = 0x035c // 0x9a0 @0x2
0x099e…09a5 at0004 = ╱9704╱ REPEAT ╱ // 0x9a2 @0x4
0x099e…09a5 at0006 = EOL // 0x9a4 @0x6
0x099e…09a5 }
0x09a5…09d6 9fc4 00870 EXEC OVERSKRIFT ( "Udskrivning…af…kontoplan" , 7 )
0x09a5…09d6 LineComal80 {
0x09a5…09d6 ptr = 0x9fc4 // 0x9a5 @0x0
0x09a5…09d6 lno = 0x0366 // 0x9a7 @0x2
0x09a5…09d6 at0004 = ╱9d╱ EXEC ╱ // 0x9a9 @0x4
0x09a5…09d6 at0005 = ╱4f╱O╱ // 0x9aa @0x5
0x09a5…09d6 at0006 = ╱56╱V╱ // 0x9ab @0x6
0x09a5…09d6 at0007 = ╱45╱E╱ // 0x9ac @0x7
0x09a5…09d6 at0008 = ╱52╱R╱ // 0x9ad @0x8
0x09a5…09d6 at0009 = ╱53╱S╱ // 0x9ae @0x9
0x09a5…09d6 at000a = ╱4b╱K╱ // 0x9af @0xa
0x09a5…09d6 at000b = ╱52╱R╱ // 0x9b0 @0xb
0x09a5…09d6 at000c = ╱49╱I╱ // 0x9b1 @0xc
0x09a5…09d6 at000d = ╱46╱F╱ // 0x9b2 @0xd
0x09a5…09d6 at000e = ╱54╱T╱ // 0x9b3 @0xe
0x09a5…09d6 at000f = ╱ed╱ ( ╱ // 0x9b4 @0xf
0x09a5…09d6 at0010 = ╱22╱"╱ // 0x9b5 @0x10
0x09a5…09d6 at0011 = ╱55╱U╱ // 0x9b6 @0x11
0x09a5…09d6 at0012 = ╱64╱d╱ // 0x9b7 @0x12
0x09a5…09d6 at0013 = ╱73╱s╱ // 0x9b8 @0x13
0x09a5…09d6 at0014 = ╱6b╱k╱ // 0x9b9 @0x14
0x09a5…09d6 at0015 = ╱72╱r╱ // 0x9ba @0x15
0x09a5…09d6 at0016 = ╱69╱i╱ // 0x9bb @0x16
0x09a5…09d6 at0017 = ╱76╱v╱ // 0x9bc @0x17
0x09a5…09d6 at0018 = ╱6e╱n╱ // 0x9bd @0x18
0x09a5…09d6 at0019 = ╱69╱i╱ // 0x9be @0x19
0x09a5…09d6 at001a = ╱6e╱n╱ // 0x9bf @0x1a
0x09a5…09d6 at001b = ╱67╱g╱ // 0x9c0 @0x1b
0x09a5…09d6 at001c = ╱20╱…╱ // 0x9c1 @0x1c
0x09a5…09d6 at001d = ╱61╱a╱ // 0x9c2 @0x1d
0x09a5…09d6 at001e = ╱66╱f╱ // 0x9c3 @0x1e
0x09a5…09d6 at001f = ╱20╱…╱ // 0x9c4 @0x1f
0x09a5…09d6 at0020 = ╱6b╱k╱ // 0x9c5 @0x20
0x09a5…09d6 at0021 = ╱6f╱o╱ // 0x9c6 @0x21
0x09a5…09d6 at0022 = ╱6e╱n╱ // 0x9c7 @0x22
0x09a5…09d6 at0023 = ╱74╱t╱ // 0x9c8 @0x23
0x09a5…09d6 at0024 = ╱6f╱o╱ // 0x9c9 @0x24
0x09a5…09d6 at0025 = ╱70╱p╱ // 0x9ca @0x25
0x09a5…09d6 at0026 = ╱6c╱l╱ // 0x9cb @0x26
0x09a5…09d6 at0027 = ╱61╱a╱ // 0x9cc @0x27
0x09a5…09d6 at0028 = ╱6e╱n╱ // 0x9cd @0x28
0x09a5…09d6 at0029 = ╱22╱"╱ // 0x9ce @0x29
0x09a5…09d6 at002a = ╱ec╱ , ╱ // 0x9cf @0x2a
0x09a5…09d6 at002b = ╱37╱7╱ // 0x9d0 @0x2b
0x09a5…09d6 at002c = ╱f20700╱ // 0x9d1 @0x2c
0x09a5…09d6 at002f = ╱ee╱ ) ╱ // 0x9d4 @0x2f
0x09a5…09d6 at0030 = EOL // 0x9d5 @0x30
0x09a5…09d6 }
0x09d6…09e6 9fd4 00880 LET A_TYP $ := "A"
0x09d6…09e6 LineComal80 {
0x09d6…09e6 ptr = 0x9fd4 // 0x9d6 @0x0
0x09d6…09e6 lno = 0x0370 // 0x9d8 @0x2
0x09d6…09e6 at0004 = ╱86╱ LET ╱ // 0x9da @0x4
0x09d6…09e6 at0005 = ╱41╱A╱ // 0x9db @0x5
0x09d6…09e6 at0006 = ╱5f╱_╱ // 0x9dc @0x6
0x09d6…09e6 at0007 = ╱54╱T╱ // 0x9dd @0x7
0x09d6…09e6 at0008 = ╱59╱Y╱ // 0x9de @0x8
0x09d6…09e6 at0009 = ╱50╱P╱ // 0x9df @0x9
0x09d6…09e6 at000a = ╱ef╱ $ ╱ // 0x9e0 @0xa
0x09d6…09e6 at000b = ╱f0╱ := ╱ // 0x9e1 @0xb
0x09d6…09e6 at000c = ╱22╱"╱ // 0x9e2 @0xc
0x09d6…09e6 at000d = ╱41╱A╱ // 0x9e3 @0xd
0x09d6…09e6 at000e = ╱22╱"╱ // 0x9e4 @0xe
0x09d6…09e6 at000f = EOL // 0x9e5 @0xf
0x09d6…09e6 }
0x09e6…09ed 9fdb 00890 REPEAT
0x09e6…09ed LineComal80 {
0x09e6…09ed ptr = 0x9fdb // 0x9e6 @0x0
0x09e6…09ed lno = 0x037a // 0x9e8 @0x2
0x09e6…09ed at0004 = ╱9705╱ REPEAT ╱ // 0x9ea @0x4
0x09e6…09ed at0006 = EOL // 0x9ec @0x6
0x09e6…09ed }
0x09ed…0a28 (33,) a016 00900 // EDIT…"<C2310>Udskrivning…af…konti…med…typen:…":A_TYP$
0x09ed…0a28 LineComal80 {
0x09ed…0a28 ptr = 0xa016 // 0x9ed @0x0
0x09ed…0a28 lno = 0x0384 // 0x9ef @0x2
0x09ed…0a28 at0004 = ╱89╱ // ╱ // 0x9f1 @0x4
0x09ed…0a28 at0005 = ╱45╱E╱ // 0x9f2 @0x5
0x09ed…0a28 at0006 = ╱44╱D╱ // 0x9f3 @0x6
0x09ed…0a28 at0007 = ╱49╱I╱ // 0x9f4 @0x7
0x09ed…0a28 at0008 = ╱54╱T╱ // 0x9f5 @0x8
0x09ed…0a28 at0009 = ╱20╱…╱ // 0x9f6 @0x9
0x09ed…0a28 at000a = ╱22╱"╱ // 0x9f7 @0xa
0x09ed…0a28 at000b = ╱3c╱<╱ // 0x9f8 @0xb
0x09ed…0a28 at000c = ╱43╱C╱ // 0x9f9 @0xc
0x09ed…0a28 at000d = ╱32╱2╱ // 0x9fa @0xd
0x09ed…0a28 at000e = ╱33╱3╱ // 0x9fb @0xe
0x09ed…0a28 at000f = ╱31╱1╱ // 0x9fc @0xf
0x09ed…0a28 at0010 = ╱30╱0╱ // 0x9fd @0x10
0x09ed…0a28 at0011 = ╱3e╱>╱ // 0x9fe @0x11
0x09ed…0a28 at0012 = ╱55╱U╱ // 0x9ff @0x12
0x09ed…0a28 at0013 = ╱64╱d╱ // 0xa00 @0x13
0x09ed…0a28 at0014 = ╱73╱s╱ // 0xa01 @0x14
0x09ed…0a28 at0015 = ╱6b╱k╱ // 0xa02 @0x15
0x09ed…0a28 at0016 = ╱72╱r╱ // 0xa03 @0x16
0x09ed…0a28 at0017 = ╱69╱i╱ // 0xa04 @0x17
0x09ed…0a28 at0018 = ╱76╱v╱ // 0xa05 @0x18
0x09ed…0a28 at0019 = ╱6e╱n╱ // 0xa06 @0x19
0x09ed…0a28 at001a = ╱69╱i╱ // 0xa07 @0x1a
0x09ed…0a28 at001b = ╱6e╱n╱ // 0xa08 @0x1b
0x09ed…0a28 at001c = ╱67╱g╱ // 0xa09 @0x1c
0x09ed…0a28 at001d = ╱20╱…╱ // 0xa0a @0x1d
0x09ed…0a28 at001e = ╱61╱a╱ // 0xa0b @0x1e
0x09ed…0a28 at001f = ╱66╱f╱ // 0xa0c @0x1f
0x09ed…0a28 at0020 = ╱20╱…╱ // 0xa0d @0x20
0x09ed…0a28 at0021 = ╱6b╱k╱ // 0xa0e @0x21
0x09ed…0a28 at0022 = ╱6f╱o╱ // 0xa0f @0x22
0x09ed…0a28 at0023 = ╱6e╱n╱ // 0xa10 @0x23
0x09ed…0a28 at0024 = ╱74╱t╱ // 0xa11 @0x24
0x09ed…0a28 at0025 = ╱69╱i╱ // 0xa12 @0x25
0x09ed…0a28 at0026 = ╱20╱…╱ // 0xa13 @0x26
0x09ed…0a28 at0027 = ╱6d╱m╱ // 0xa14 @0x27
0x09ed…0a28 at0028 = ╱65╱e╱ // 0xa15 @0x28
0x09ed…0a28 at0029 = ╱64╱d╱ // 0xa16 @0x29
0x09ed…0a28 at002a = ╱20╱…╱ // 0xa17 @0x2a
0x09ed…0a28 at002b = ╱74╱t╱ // 0xa18 @0x2b
0x09ed…0a28 at002c = ╱79╱y╱ // 0xa19 @0x2c
0x09ed…0a28 at002d = ╱70╱p╱ // 0xa1a @0x2d
0x09ed…0a28 at002e = ╱65╱e╱ // 0xa1b @0x2e
0x09ed…0a28 at002f = ╱6e╱n╱ // 0xa1c @0x2f
0x09ed…0a28 at0030 = ╱3a╱:╱ // 0xa1d @0x30
0x09ed…0a28 at0031 = ╱20╱…╱ // 0xa1e @0x31
0x09ed…0a28 at0032 = ╱22╱"╱ // 0xa1f @0x32
0x09ed…0a28 at0033 = ╱3a╱:╱ // 0xa20 @0x33
0x09ed…0a28 at0034 = ╱41╱A╱ // 0xa21 @0x34
0x09ed…0a28 at0035 = ╱5f╱_╱ // 0xa22 @0x35
0x09ed…0a28 at0036 = ╱54╱T╱ // 0xa23 @0x36
0x09ed…0a28 at0037 = ╱59╱Y╱ // 0xa24 @0x37
0x09ed…0a28 at0038 = ╱50╱P╱ // 0xa25 @0x38
0x09ed…0a28 at0039 = ╱24╱$╱ // 0xa26 @0x39
0x09ed…0a28 at003a = EOL // 0xa27 @0x3a
0x09ed…0a28 }
0x0a28…0a3a a028 00910 EXEC SL_FEJLLINIE
0x0a28…0a3a LineComal80 {
0x0a28…0a3a ptr = 0xa028 // 0xa28 @0x0
0x0a28…0a3a lno = 0x038e // 0xa2a @0x2
0x0a28…0a3a at0004 = ╱9d╱ EXEC ╱ // 0xa2c @0x4
0x0a28…0a3a at0005 = ╱53╱S╱ // 0xa2d @0x5
0x0a28…0a3a at0006 = ╱4c╱L╱ // 0xa2e @0x6
0x0a28…0a3a at0007 = ╱5f╱_╱ // 0xa2f @0x7
0x0a28…0a3a at0008 = ╱46╱F╱ // 0xa30 @0x8
0x0a28…0a3a at0009 = ╱45╱E╱ // 0xa31 @0x9
0x0a28…0a3a at000a = ╱4a╱J╱ // 0xa32 @0xa
0x0a28…0a3a at000b = ╱4c╱L╱ // 0xa33 @0xb
0x0a28…0a3a at000c = ╱4c╱L╱ // 0xa34 @0xc
0x0a28…0a3a at000d = ╱49╱I╱ // 0xa35 @0xd
0x0a28…0a3a at000e = ╱4e╱N╱ // 0xa36 @0xe
0x0a28…0a3a at000f = ╱49╱I╱ // 0xa37 @0xf
0x0a28…0a3a at0010 = ╱45╱E╱ // 0xa38 @0x10
0x0a28…0a3a at0011 = EOL // 0xa39 @0x11
0x0a28…0a3a }
0x0a3a…0a4f (34,) a03d 00920 EXEC ST_BGST ( A_TYP $ )
0x0a3a…0a4f LineComal80 {
0x0a3a…0a4f ptr = 0xa03d // 0xa3a @0x0
0x0a3a…0a4f lno = 0x0398 // 0xa3c @0x2
0x0a3a…0a4f at0004 = ╱9d╱ EXEC ╱ // 0xa3e @0x4
0x0a3a…0a4f at0005 = ╱53╱S╱ // 0xa3f @0x5
0x0a3a…0a4f at0006 = ╱54╱T╱ // 0xa40 @0x6
0x0a3a…0a4f at0007 = ╱5f╱_╱ // 0xa41 @0x7
0x0a3a…0a4f at0008 = ╱42╱B╱ // 0xa42 @0x8
0x0a3a…0a4f at0009 = ╱47╱G╱ // 0xa43 @0x9
0x0a3a…0a4f at000a = ╱53╱S╱ // 0xa44 @0xa
0x0a3a…0a4f at000b = ╱54╱T╱ // 0xa45 @0xb
0x0a3a…0a4f at000c = ╱ed╱ ( ╱ // 0xa46 @0xc
0x0a3a…0a4f at000d = ╱41╱A╱ // 0xa47 @0xd
0x0a3a…0a4f at000e = ╱5f╱_╱ // 0xa48 @0xe
0x0a3a…0a4f at000f = ╱54╱T╱ // 0xa49 @0xf
0x0a3a…0a4f at0010 = ╱59╱Y╱ // 0xa4a @0x10
0x0a3a…0a4f at0011 = ╱50╱P╱ // 0xa4b @0x11
0x0a3a…0a4f at0012 = ╱ef╱ $ ╱ // 0xa4c @0x12
0x0a3a…0a4f at0013 = ╱ee╱ ) ╱ // 0xa4d @0x13
0x0a3a…0a4f at0014 = EOL // 0xa4e @0x14
0x0a3a…0a4f }
0x0a4f…0a78 a066 00930 IF "/" + A_TYP $ + "/" IN "/A/B/C/D/E/F/*/" THEN
0x0a4f…0a78 LineComal80 {
0x0a4f…0a78 ptr = 0xa066 // 0xa4f @0x0
0x0a4f…0a78 lno = 0x03a2 // 0xa51 @0x2
0x0a4f…0a78 at0004 = ╱9b06d7╱ IF ╱ // 0xa53 @0x4
0x0a4f…0a78 at0007 = ╱22╱"╱ // 0xa56 @0x7
0x0a4f…0a78 at0008 = ╱2f╱/╱ // 0xa57 @0x8
0x0a4f…0a78 at0009 = ╱22╱"╱ // 0xa58 @0x9
0x0a4f…0a78 at000a = ╱eb╱ + ╱ // 0xa59 @0xa
0x0a4f…0a78 at000b = ╱41╱A╱ // 0xa5a @0xb
0x0a4f…0a78 at000c = ╱5f╱_╱ // 0xa5b @0xc
0x0a4f…0a78 at000d = ╱54╱T╱ // 0xa5c @0xd
0x0a4f…0a78 at000e = ╱59╱Y╱ // 0xa5d @0xe
0x0a4f…0a78 at000f = ╱50╱P╱ // 0xa5e @0xf
0x0a4f…0a78 at0010 = ╱ef╱ $ ╱ // 0xa5f @0x10
0x0a4f…0a78 at0011 = ╱eb╱ + ╱ // 0xa60 @0x11
0x0a4f…0a78 at0012 = ╱22╱"╱ // 0xa61 @0x12
0x0a4f…0a78 at0013 = ╱2f╱/╱ // 0xa62 @0x13
0x0a4f…0a78 at0014 = ╱22╱"╱ // 0xa63 @0x14
0x0a4f…0a78 at0015 = ╱dc╱ IN ╱ // 0xa64 @0x15
0x0a4f…0a78 at0016 = ╱22╱"╱ // 0xa65 @0x16
0x0a4f…0a78 at0017 = ╱2f╱/╱ // 0xa66 @0x17
0x0a4f…0a78 at0018 = ╱41╱A╱ // 0xa67 @0x18
0x0a4f…0a78 at0019 = ╱2f╱/╱ // 0xa68 @0x19
0x0a4f…0a78 at001a = ╱42╱B╱ // 0xa69 @0x1a
0x0a4f…0a78 at001b = ╱2f╱/╱ // 0xa6a @0x1b
0x0a4f…0a78 at001c = ╱43╱C╱ // 0xa6b @0x1c
0x0a4f…0a78 at001d = ╱2f╱/╱ // 0xa6c @0x1d
0x0a4f…0a78 at001e = ╱44╱D╱ // 0xa6d @0x1e
0x0a4f…0a78 at001f = ╱2f╱/╱ // 0xa6e @0x1f
0x0a4f…0a78 at0020 = ╱45╱E╱ // 0xa6f @0x20
0x0a4f…0a78 at0021 = ╱2f╱/╱ // 0xa70 @0x21
0x0a4f…0a78 at0022 = ╱46╱F╱ // 0xa71 @0x22
0x0a4f…0a78 at0023 = ╱2f╱/╱ // 0xa72 @0x23
0x0a4f…0a78 at0024 = ╱2a╱*╱ // 0xa73 @0x24
0x0a4f…0a78 at0025 = ╱2f╱/╱ // 0xa74 @0x25
0x0a4f…0a78 at0026 = ╱22╱"╱ // 0xa75 @0x26
0x0a4f…0a78 at0027 = ╱b5╱ THEN ╱ // 0xa76 @0x27
0x0a4f…0a78 at0028 = EOL // 0xa77 @0x28
0x0a4f…0a78 }
0x0a78…0aa4 a092 00940 EXEC FEJL ( "Ulovlig…kontotype…'" + A_TYP $ + "'" )
0x0a78…0aa4 LineComal80 {
0x0a78…0aa4 ptr = 0xa092 // 0xa78 @0x0
0x0a78…0aa4 lno = 0x03ac // 0xa7a @0x2
0x0a78…0aa4 at0004 = ╱9d╱ EXEC ╱ // 0xa7c @0x4
0x0a78…0aa4 at0005 = ╱46╱F╱ // 0xa7d @0x5
0x0a78…0aa4 at0006 = ╱45╱E╱ // 0xa7e @0x6
0x0a78…0aa4 at0007 = ╱4a╱J╱ // 0xa7f @0x7
0x0a78…0aa4 at0008 = ╱4c╱L╱ // 0xa80 @0x8
0x0a78…0aa4 at0009 = ╱ed╱ ( ╱ // 0xa81 @0x9
0x0a78…0aa4 at000a = ╱22╱"╱ // 0xa82 @0xa
0x0a78…0aa4 at000b = ╱55╱U╱ // 0xa83 @0xb
0x0a78…0aa4 at000c = ╱6c╱l╱ // 0xa84 @0xc
0x0a78…0aa4 at000d = ╱6f╱o╱ // 0xa85 @0xd
0x0a78…0aa4 at000e = ╱76╱v╱ // 0xa86 @0xe
0x0a78…0aa4 at000f = ╱6c╱l╱ // 0xa87 @0xf
0x0a78…0aa4 at0010 = ╱69╱i╱ // 0xa88 @0x10
0x0a78…0aa4 at0011 = ╱67╱g╱ // 0xa89 @0x11
0x0a78…0aa4 at0012 = ╱20╱…╱ // 0xa8a @0x12
0x0a78…0aa4 at0013 = ╱6b╱k╱ // 0xa8b @0x13
0x0a78…0aa4 at0014 = ╱6f╱o╱ // 0xa8c @0x14
0x0a78…0aa4 at0015 = ╱6e╱n╱ // 0xa8d @0x15
0x0a78…0aa4 at0016 = ╱74╱t╱ // 0xa8e @0x16
0x0a78…0aa4 at0017 = ╱6f╱o╱ // 0xa8f @0x17
0x0a78…0aa4 at0018 = ╱74╱t╱ // 0xa90 @0x18
0x0a78…0aa4 at0019 = ╱79╱y╱ // 0xa91 @0x19
0x0a78…0aa4 at001a = ╱70╱p╱ // 0xa92 @0x1a
0x0a78…0aa4 at001b = ╱65╱e╱ // 0xa93 @0x1b
0x0a78…0aa4 at001c = ╱20╱…╱ // 0xa94 @0x1c
0x0a78…0aa4 at001d = ╱27╱'╱ // 0xa95 @0x1d
0x0a78…0aa4 at001e = ╱22╱"╱ // 0xa96 @0x1e
0x0a78…0aa4 at001f = ╱eb╱ + ╱ // 0xa97 @0x1f
0x0a78…0aa4 at0020 = ╱41╱A╱ // 0xa98 @0x20
0x0a78…0aa4 at0021 = ╱5f╱_╱ // 0xa99 @0x21
0x0a78…0aa4 at0022 = ╱54╱T╱ // 0xa9a @0x22
0x0a78…0aa4 at0023 = ╱59╱Y╱ // 0xa9b @0x23
0x0a78…0aa4 at0024 = ╱50╱P╱ // 0xa9c @0x24
0x0a78…0aa4 at0025 = ╱ef╱ $ ╱ // 0xa9d @0x25
0x0a78…0aa4 at0026 = ╱eb╱ + ╱ // 0xa9e @0x26
0x0a78…0aa4 at0027 = ╱22╱"╱ // 0xa9f @0x27
0x0a78…0aa4 at0028 = ╱27╱'╱ // 0xaa0 @0x28
0x0a78…0aa4 at0029 = ╱22╱"╱ // 0xaa1 @0x29
0x0a78…0aa4 at002a = ╱ee╱ ) ╱ // 0xaa2 @0x2a
0x0a78…0aa4 at002b = EOL // 0xaa3 @0x2b
0x0a78…0aa4 }
0x0aa4…0aaa a098 00950 ENDIF
0x0aa4…0aaa LineComal80 {
0x0aa4…0aaa ptr = 0xa098 // 0xaa4 @0x0
0x0aa4…0aaa lno = 0x03b6 // 0xaa6 @0x2
0x0aa4…0aaa at0004 = ╱9c╱ ENDIF ╱ // 0xaa8 @0x4
0x0aa4…0aaa at0005 = EOL // 0xaa9 @0x5
0x0aa4…0aaa }
0x0aaa…0ab2 ad6b 00960 UNTIL OK
0x0aaa…0ab2 LineComal80 {
0x0aaa…0ab2 ptr = 0xad6b // 0xaaa @0x0
0x0aaa…0ab2 lno = 0x03c0 // 0xaac @0x2
0x0aaa…0ab2 at0004 = ╱98╱ UNTIL ╱ // 0xaae @0x4
0x0aaa…0ab2 at0005 = ╱4f╱O╱ // 0xaaf @0x5
0x0aaa…0ab2 at0006 = ╱4b╱K╱ // 0xab0 @0x6
0x0aaa…0ab2 at0007 = EOL // 0xab1 @0x7
0x0aaa…0ab2 }
0x0ab2…0ad8 a0c6 00970 EXEC PRINTRES ( "smal…EDB-liste" , 12 )
0x0ab2…0ad8 LineComal80 {
0x0ab2…0ad8 ptr = 0xa0c6 // 0xab2 @0x0
0x0ab2…0ad8 lno = 0x03ca // 0xab4 @0x2
0x0ab2…0ad8 at0004 = ╱9d╱ EXEC ╱ // 0xab6 @0x4
0x0ab2…0ad8 at0005 = ╱50╱P╱ // 0xab7 @0x5
0x0ab2…0ad8 at0006 = ╱52╱R╱ // 0xab8 @0x6
0x0ab2…0ad8 at0007 = ╱49╱I╱ // 0xab9 @0x7
0x0ab2…0ad8 at0008 = ╱4e╱N╱ // 0xaba @0x8
0x0ab2…0ad8 at0009 = ╱54╱T╱ // 0xabb @0x9
0x0ab2…0ad8 at000a = ╱52╱R╱ // 0xabc @0xa
0x0ab2…0ad8 at000b = ╱45╱E╱ // 0xabd @0xb
0x0ab2…0ad8 at000c = ╱53╱S╱ // 0xabe @0xc
0x0ab2…0ad8 at000d = ╱ed╱ ( ╱ // 0xabf @0xd
0x0ab2…0ad8 at000e = ╱22╱"╱ // 0xac0 @0xe
0x0ab2…0ad8 at000f = ╱73╱s╱ // 0xac1 @0xf
0x0ab2…0ad8 at0010 = ╱6d╱m╱ // 0xac2 @0x10
0x0ab2…0ad8 at0011 = ╱61╱a╱ // 0xac3 @0x11
0x0ab2…0ad8 at0012 = ╱6c╱l╱ // 0xac4 @0x12
0x0ab2…0ad8 at0013 = ╱20╱…╱ // 0xac5 @0x13
0x0ab2…0ad8 at0014 = ╱45╱E╱ // 0xac6 @0x14
0x0ab2…0ad8 at0015 = ╱44╱D╱ // 0xac7 @0x15
0x0ab2…0ad8 at0016 = ╱42╱B╱ // 0xac8 @0x16
0x0ab2…0ad8 at0017 = ╱2d╱-╱ // 0xac9 @0x17
0x0ab2…0ad8 at0018 = ╱6c╱l╱ // 0xaca @0x18
0x0ab2…0ad8 at0019 = ╱69╱i╱ // 0xacb @0x19
0x0ab2…0ad8 at001a = ╱73╱s╱ // 0xacc @0x1a
0x0ab2…0ad8 at001b = ╱74╱t╱ // 0xacd @0x1b
0x0ab2…0ad8 at001c = ╱65╱e╱ // 0xace @0x1c
0x0ab2…0ad8 at001d = ╱22╱"╱ // 0xacf @0x1d
0x0ab2…0ad8 at001e = ╱ec╱ , ╱ // 0xad0 @0x1e
0x0ab2…0ad8 at001f = ╱31╱1╱ // 0xad1 @0x1f
0x0ab2…0ad8 at0020 = ╱32╱2╱ // 0xad2 @0x20
0x0ab2…0ad8 at0021 = ╱f20c00╱ // 0xad3 @0x21
0x0ab2…0ad8 at0024 = ╱ee╱ ) ╱ // 0xad6 @0x24
0x0ab2…0ad8 at0025 = EOL // 0xad7 @0x25
0x0ab2…0ad8 }
0x0ad8…0b15 a103 00980 LET A_NR $ := "########" ; MAX_LIN := 72 ; LIN_T := 123 ; SIDENR := 0
0x0ad8…0b15 LineComal80 {
0x0ad8…0b15 ptr = 0xa103 // 0xad8 @0x0
0x0ad8…0b15 lno = 0x03d4 // 0xada @0x2
0x0ad8…0b15 at0004 = ╱86╱ LET ╱ // 0xadc @0x4
0x0ad8…0b15 at0005 = ╱41╱A╱ // 0xadd @0x5
0x0ad8…0b15 at0006 = ╱5f╱_╱ // 0xade @0x6
0x0ad8…0b15 at0007 = ╱4e╱N╱ // 0xadf @0x7
0x0ad8…0b15 at0008 = ╱52╱R╱ // 0xae0 @0x8
0x0ad8…0b15 at0009 = ╱ef╱ $ ╱ // 0xae1 @0x9
0x0ad8…0b15 at000a = ╱f0╱ := ╱ // 0xae2 @0xa
0x0ad8…0b15 at000b = ╱22╱"╱ // 0xae3 @0xb
0x0ad8…0b15 at000c = ╱23╱#╱ // 0xae4 @0xc
0x0ad8…0b15 at000d = ╱23╱#╱ // 0xae5 @0xd
0x0ad8…0b15 at000e = ╱23╱#╱ // 0xae6 @0xe
0x0ad8…0b15 at000f = ╱23╱#╱ // 0xae7 @0xf
0x0ad8…0b15 at0010 = ╱23╱#╱ // 0xae8 @0x10
0x0ad8…0b15 at0011 = ╱23╱#╱ // 0xae9 @0x11
0x0ad8…0b15 at0012 = ╱23╱#╱ // 0xaea @0x12
0x0ad8…0b15 at0013 = ╱23╱#╱ // 0xaeb @0x13
0x0ad8…0b15 at0014 = ╱22╱"╱ // 0xaec @0x14
0x0ad8…0b15 at0015 = ╱ea╱ ; ╱ // 0xaed @0x15
0x0ad8…0b15 at0016 = ╱4d╱M╱ // 0xaee @0x16
0x0ad8…0b15 at0017 = ╱41╱A╱ // 0xaef @0x17
0x0ad8…0b15 at0018 = ╱58╱X╱ // 0xaf0 @0x18
0x0ad8…0b15 at0019 = ╱5f╱_╱ // 0xaf1 @0x19
0x0ad8…0b15 at001a = ╱4c╱L╱ // 0xaf2 @0x1a
0x0ad8…0b15 at001b = ╱49╱I╱ // 0xaf3 @0x1b
0x0ad8…0b15 at001c = ╱4e╱N╱ // 0xaf4 @0x1c
0x0ad8…0b15 at001d = ╱f0╱ := ╱ // 0xaf5 @0x1d
0x0ad8…0b15 at001e = ╱37╱7╱ // 0xaf6 @0x1e
0x0ad8…0b15 at001f = ╱32╱2╱ // 0xaf7 @0x1f
0x0ad8…0b15 at0020 = ╱f24800╱ // 0xaf8 @0x20
0x0ad8…0b15 at0023 = ╱ea╱ ; ╱ // 0xafb @0x23
0x0ad8…0b15 at0024 = ╱4c╱L╱ // 0xafc @0x24
0x0ad8…0b15 at0025 = ╱49╱I╱ // 0xafd @0x25
0x0ad8…0b15 at0026 = ╱4e╱N╱ // 0xafe @0x26
0x0ad8…0b15 at0027 = ╱5f╱_╱ // 0xaff @0x27
0x0ad8…0b15 at0028 = ╱54╱T╱ // 0xb00 @0x28
0x0ad8…0b15 at0029 = ╱f0╱ := ╱ // 0xb01 @0x29
0x0ad8…0b15 at002a = ╱31╱1╱ // 0xb02 @0x2a
0x0ad8…0b15 at002b = ╱32╱2╱ // 0xb03 @0x2b
0x0ad8…0b15 at002c = ╱33╱3╱ // 0xb04 @0x2c
0x0ad8…0b15 at002d = ╱f27b00╱ // 0xb05 @0x2d
0x0ad8…0b15 at0030 = ╱ea╱ ; ╱ // 0xb08 @0x30
0x0ad8…0b15 at0031 = ╱53╱S╱ // 0xb09 @0x31
0x0ad8…0b15 at0032 = ╱49╱I╱ // 0xb0a @0x32
0x0ad8…0b15 at0033 = ╱44╱D╱ // 0xb0b @0x33
0x0ad8…0b15 at0034 = ╱45╱E╱ // 0xb0c @0x34
0x0ad8…0b15 at0035 = ╱4e╱N╱ // 0xb0d @0x35
0x0ad8…0b15 at0036 = ╱52╱R╱ // 0xb0e @0x36
0x0ad8…0b15 at0037 = ╱f0╱ := ╱ // 0xb0f @0x37
0x0ad8…0b15 at0038 = ╱30╱0╱ // 0xb10 @0x38
0x0ad8…0b15 at0039 = ╱f20000╱ // 0xb11 @0x39
0x0ad8…0b15 at003c = EOL // 0xb14 @0x3c
0x0ad8…0b15 }
0x0b15…0b39 a127 00990 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
0x0b15…0b39 LineComal80 {
0x0b15…0b39 ptr = 0xa127 // 0xb15 @0x0
0x0b15…0b39 lno = 0x03de // 0xb17 @0x2
0x0b15…0b39 at0004 = ╱a9╱ GET ╱ // 0xb19 @0x4
0x0b15…0b39 at0005 = ╱4b╱K╱ // 0xb1a @0x5
0x0b15…0b39 at0006 = ╱54╱T╱ // 0xb1b @0x6
0x0b15…0b39 at0007 = ╱4f╱O╱ // 0xb1c @0x7
0x0b15…0b39 at0008 = ╱49╱I╱ // 0xb1d @0x8
0x0b15…0b39 at0009 = ╱44╱D╱ // 0xb1e @0x9
0x0b15…0b39 at000a = ╱58╱X╱ // 0xb1f @0xa
0x0b15…0b39 at000b = ╱ef╱ $ ╱ // 0xb20 @0xb
0x0b15…0b39 at000c = ╱ec╱ , ╱ // 0xb21 @0xc
0x0b15…0b39 at000d = ╱31╱1╱ // 0xb22 @0xd
0x0b15…0b39 at000e = ╱f20100╱ // 0xb23 @0xe
0x0b15…0b39 at0011 = ╱f1╱ : ╱ // 0xb26 @0x11
0x0b15…0b39 at0012 = ╱49╱I╱ // 0xb27 @0x12
0x0b15…0b39 at0013 = ╱5f╱_╱ // 0xb28 @0x13
0x0b15…0b39 at0014 = ╱48╱H╱ // 0xb29 @0x14
0x0b15…0b39 at0015 = ╱5c╱\╱ // 0xb2a @0x15
0x0b15…0b39 at0016 = ╱4a╱J╱ // 0xb2b @0x16
0x0b15…0b39 at0017 = ╱52╱R╱ // 0xb2c @0x17
0x0b15…0b39 at0018 = ╱45╱E╱ // 0xb2d @0x18
0x0b15…0b39 at0019 = ╱43╱C╱ // 0xb2e @0x19
0x0b15…0b39 at001a = ╱ec╱ , ╱ // 0xb2f @0x1a
0x0b15…0b39 at001b = ╱49╱I╱ // 0xb30 @0x1b
0x0b15…0b39 at001c = ╱5f╱_╱ // 0xb31 @0x1c
0x0b15…0b39 at001d = ╱4d╱M╱ // 0xb32 @0x1d
0x0b15…0b39 at001e = ╱41╱A╱ // 0xb33 @0x1e
0x0b15…0b39 at001f = ╱58╱X╱ // 0xb34 @0x1f
0x0b15…0b39 at0020 = ╱52╱R╱ // 0xb35 @0x20
0x0b15…0b39 at0021 = ╱45╱E╱ // 0xb36 @0x21
0x0b15…0b39 at0022 = ╱43╱C╱ // 0xb37 @0x22
0x0b15…0b39 at0023 = EOL // 0xb38 @0x23
0x0b15…0b39 }
0x0b39…0b50 a13e 01000 FOR K := 2 TO _H\JREC DO
0x0b39…0b50 LineComal80 {
0x0b39…0b50 ptr = 0xa13e // 0xb39 @0x0
0x0b39…0b50 lno = 0x03e8 // 0xb3b @0x2
0x0b39…0b50 at0004 = ╱8307╱ FOR ╱ // 0xb3d @0x4
0x0b39…0b50 at0006 = ╱4b╱K╱ // 0xb3f @0x6
0x0b39…0b50 at0007 = ╱f0╱ := ╱ // 0xb40 @0x7
0x0b39…0b50 at0008 = ╱32╱2╱ // 0xb41 @0x8
0x0b39…0b50 at0009 = ╱f20200╱ // 0xb42 @0x9
0x0b39…0b50 at000c = ╱b749╱ TO ╱ // 0xb45 @0xc
0x0b39…0b50 at000e = ╱5f╱_╱ // 0xb47 @0xe
0x0b39…0b50 at000f = ╱48╱H╱ // 0xb48 @0xf
0x0b39…0b50 at0010 = ╱5c╱\╱ // 0xb49 @0x10
0x0b39…0b50 at0011 = ╱4a╱J╱ // 0xb4a @0x11
0x0b39…0b50 at0012 = ╱52╱R╱ // 0xb4b @0x12
0x0b39…0b50 at0013 = ╱45╱E╱ // 0xb4c @0x13
0x0b39…0b50 at0014 = ╱43╱C╱ // 0xb4d @0x14
0x0b39…0b50 at0015 = ╱bb╱ DO ╱ // 0xb4e @0x15
0x0b39…0b50 at0016 = EOL // 0xb4f @0x16
0x0b39…0b50 }
0x0b50…0b6c a15a 01010 GET KTOIDX $ , K : KTONR $ , RECNR
0x0b50…0b6c LineComal80 {
0x0b50…0b6c ptr = 0xa15a // 0xb50 @0x0
0x0b50…0b6c lno = 0x03f2 // 0xb52 @0x2
0x0b50…0b6c at0004 = ╱a9╱ GET ╱ // 0xb54 @0x4
0x0b50…0b6c at0005 = ╱4b╱K╱ // 0xb55 @0x5
0x0b50…0b6c at0006 = ╱54╱T╱ // 0xb56 @0x6
0x0b50…0b6c at0007 = ╱4f╱O╱ // 0xb57 @0x7
0x0b50…0b6c at0008 = ╱49╱I╱ // 0xb58 @0x8
0x0b50…0b6c at0009 = ╱44╱D╱ // 0xb59 @0x9
0x0b50…0b6c at000a = ╱58╱X╱ // 0xb5a @0xa
0x0b50…0b6c at000b = ╱ef╱ $ ╱ // 0xb5b @0xb
0x0b50…0b6c at000c = ╱ec╱ , ╱ // 0xb5c @0xc
0x0b50…0b6c at000d = ╱4b╱K╱ // 0xb5d @0xd
0x0b50…0b6c at000e = ╱f1╱ : ╱ // 0xb5e @0xe
0x0b50…0b6c at000f = ╱4b╱K╱ // 0xb5f @0xf
0x0b50…0b6c at0010 = ╱54╱T╱ // 0xb60 @0x10
0x0b50…0b6c at0011 = ╱4f╱O╱ // 0xb61 @0x11
0x0b50…0b6c at0012 = ╱4e╱N╱ // 0xb62 @0x12
0x0b50…0b6c at0013 = ╱52╱R╱ // 0xb63 @0x13
0x0b50…0b6c at0014 = ╱ef╱ $ ╱ // 0xb64 @0x14
0x0b50…0b6c at0015 = ╱ec╱ , ╱ // 0xb65 @0x15
0x0b50…0b6c at0016 = ╱52╱R╱ // 0xb66 @0x16
0x0b50…0b6c at0017 = ╱45╱E╱ // 0xb67 @0x17
0x0b50…0b6c at0018 = ╱43╱C╱ // 0xb68 @0x18
0x0b50…0b6c at0019 = ╱4e╱N╱ // 0xb69 @0x19
0x0b50…0b6c at001a = ╱52╱R╱ // 0xb6a @0x1a
0x0b50…0b6c at001b = EOL // 0xb6b @0x1b
0x0b50…0b6c }
0x0b6c…0b82 a170 01020 EXEC L[S_KONTO ( RECNR )
0x0b6c…0b82 LineComal80 {
0x0b6c…0b82 ptr = 0xa170 // 0xb6c @0x0
0x0b6c…0b82 lno = 0x03fc // 0xb6e @0x2
0x0b6c…0b82 at0004 = ╱9d╱ EXEC ╱ // 0xb70 @0x4
0x0b6c…0b82 at0005 = ╱4c╱L╱ // 0xb71 @0x5
0x0b6c…0b82 at0006 = ╱5b╱[╱ // 0xb72 @0x6
0x0b6c…0b82 at0007 = ╱53╱S╱ // 0xb73 @0x7
0x0b6c…0b82 at0008 = ╱5f╱_╱ // 0xb74 @0x8
0x0b6c…0b82 at0009 = ╱4b╱K╱ // 0xb75 @0x9
0x0b6c…0b82 at000a = ╱4f╱O╱ // 0xb76 @0xa
0x0b6c…0b82 at000b = ╱4e╱N╱ // 0xb77 @0xb
0x0b6c…0b82 at000c = ╱54╱T╱ // 0xb78 @0xc
0x0b6c…0b82 at000d = ╱4f╱O╱ // 0xb79 @0xd
0x0b6c…0b82 at000e = ╱ed╱ ( ╱ // 0xb7a @0xe
0x0b6c…0b82 at000f = ╱52╱R╱ // 0xb7b @0xf
0x0b6c…0b82 at0010 = ╱45╱E╱ // 0xb7c @0x10
0x0b6c…0b82 at0011 = ╱43╱C╱ // 0xb7d @0x11
0x0b6c…0b82 at0012 = ╱4e╱N╱ // 0xb7e @0x12
0x0b6c…0b82 at0013 = ╱52╱R╱ // 0xb7f @0x13
0x0b6c…0b82 at0014 = ╱ee╱ ) ╱ // 0xb80 @0x14
0x0b6c…0b82 at0015 = EOL // 0xb81 @0x15
0x0b6c…0b82 }
0x0b82…0ba5 a193 01030 IF TO_TYPE $ = A_TYP $ OR A_TYP $ = "*" THEN
0x0b82…0ba5 LineComal80 {
0x0b82…0ba5 ptr = 0xa193 // 0xb82 @0x0
0x0b82…0ba5 lno = 0x0406 // 0xb84 @0x2
0x0b82…0ba5 at0004 = ╱9b084b╱ IF ╱ // 0xb86 @0x4
0x0b82…0ba5 at0007 = ╱54╱T╱ // 0xb89 @0x7
0x0b82…0ba5 at0008 = ╱4f╱O╱ // 0xb8a @0x8
0x0b82…0ba5 at0009 = ╱5f╱_╱ // 0xb8b @0x9
0x0b82…0ba5 at000a = ╱54╱T╱ // 0xb8c @0xa
0x0b82…0ba5 at000b = ╱59╱Y╱ // 0xb8d @0xb
0x0b82…0ba5 at000c = ╱50╱P╱ // 0xb8e @0xc
0x0b82…0ba5 at000d = ╱45╱E╱ // 0xb8f @0xd
0x0b82…0ba5 at000e = ╱ef╱ $ ╱ // 0xb90 @0xe
0x0b82…0ba5 at000f = ╱df╱ = ╱ // 0xb91 @0xf
0x0b82…0ba5 at0010 = ╱41╱A╱ // 0xb92 @0x10
0x0b82…0ba5 at0011 = ╱5f╱_╱ // 0xb93 @0x11
0x0b82…0ba5 at0012 = ╱54╱T╱ // 0xb94 @0x12
0x0b82…0ba5 at0013 = ╱59╱Y╱ // 0xb95 @0x13
0x0b82…0ba5 at0014 = ╱50╱P╱ // 0xb96 @0x14
0x0b82…0ba5 at0015 = ╱ef╱ $ ╱ // 0xb97 @0x15
0x0b82…0ba5 at0016 = ╱d8╱ OR ╱ // 0xb98 @0x16
0x0b82…0ba5 at0017 = ╱41╱A╱ // 0xb99 @0x17
0x0b82…0ba5 at0018 = ╱5f╱_╱ // 0xb9a @0x18
0x0b82…0ba5 at0019 = ╱54╱T╱ // 0xb9b @0x19
0x0b82…0ba5 at001a = ╱59╱Y╱ // 0xb9c @0x1a
0x0b82…0ba5 at001b = ╱50╱P╱ // 0xb9d @0x1b
0x0b82…0ba5 at001c = ╱ef╱ $ ╱ // 0xb9e @0x1c
0x0b82…0ba5 at001d = ╱df╱ = ╱ // 0xb9f @0x1d
0x0b82…0ba5 at001e = ╱22╱"╱ // 0xba0 @0x1e
0x0b82…0ba5 at001f = ╱2a╱*╱ // 0xba1 @0x1f
0x0b82…0ba5 at0020 = ╱22╱"╱ // 0xba2 @0x20
0x0b82…0ba5 at0021 = ╱b5╱ THEN ╱ // 0xba3 @0x21
0x0b82…0ba5 at0022 = EOL // 0xba4 @0x22
0x0b82…0ba5 }
0x0ba5…0bd0 a1be 01040 EXEC SKRIV_LIN ( KTONR $ , KTO_NAVN $ , KTO_TYPE $ )
0x0ba5…0bd0 LineComal80 {
0x0ba5…0bd0 ptr = 0xa1be // 0xba5 @0x0
0x0ba5…0bd0 lno = 0x0410 // 0xba7 @0x2
0x0ba5…0bd0 at0004 = ╱9d╱ EXEC ╱ // 0xba9 @0x4
0x0ba5…0bd0 at0005 = ╱53╱S╱ // 0xbaa @0x5
0x0ba5…0bd0 at0006 = ╱4b╱K╱ // 0xbab @0x6
0x0ba5…0bd0 at0007 = ╱52╱R╱ // 0xbac @0x7
0x0ba5…0bd0 at0008 = ╱49╱I╱ // 0xbad @0x8
0x0ba5…0bd0 at0009 = ╱56╱V╱ // 0xbae @0x9
0x0ba5…0bd0 at000a = ╱5f╱_╱ // 0xbaf @0xa
0x0ba5…0bd0 at000b = ╱4c╱L╱ // 0xbb0 @0xb
0x0ba5…0bd0 at000c = ╱49╱I╱ // 0xbb1 @0xc
0x0ba5…0bd0 at000d = ╱4e╱N╱ // 0xbb2 @0xd
0x0ba5…0bd0 at000e = ╱ed╱ ( ╱ // 0xbb3 @0xe
0x0ba5…0bd0 at000f = ╱4b╱K╱ // 0xbb4 @0xf
0x0ba5…0bd0 at0010 = ╱54╱T╱ // 0xbb5 @0x10
0x0ba5…0bd0 at0011 = ╱4f╱O╱ // 0xbb6 @0x11
0x0ba5…0bd0 at0012 = ╱4e╱N╱ // 0xbb7 @0x12
0x0ba5…0bd0 at0013 = ╱52╱R╱ // 0xbb8 @0x13
0x0ba5…0bd0 at0014 = ╱ef╱ $ ╱ // 0xbb9 @0x14
0x0ba5…0bd0 at0015 = ╱ec╱ , ╱ // 0xbba @0x15
0x0ba5…0bd0 at0016 = ╱4b╱K╱ // 0xbbb @0x16
0x0ba5…0bd0 at0017 = ╱54╱T╱ // 0xbbc @0x17
0x0ba5…0bd0 at0018 = ╱4f╱O╱ // 0xbbd @0x18
0x0ba5…0bd0 at0019 = ╱5f╱_╱ // 0xbbe @0x19
0x0ba5…0bd0 at001a = ╱4e╱N╱ // 0xbbf @0x1a
0x0ba5…0bd0 at001b = ╱41╱A╱ // 0xbc0 @0x1b
0x0ba5…0bd0 at001c = ╱56╱V╱ // 0xbc1 @0x1c
0x0ba5…0bd0 at001d = ╱4e╱N╱ // 0xbc2 @0x1d
0x0ba5…0bd0 at001e = ╱ef╱ $ ╱ // 0xbc3 @0x1e
0x0ba5…0bd0 at001f = ╱ec╱ , ╱ // 0xbc4 @0x1f
0x0ba5…0bd0 at0020 = ╱4b╱K╱ // 0xbc5 @0x20
0x0ba5…0bd0 at0021 = ╱54╱T╱ // 0xbc6 @0x21
0x0ba5…0bd0 at0022 = ╱4f╱O╱ // 0xbc7 @0x22
0x0ba5…0bd0 at0023 = ╱5f╱_╱ // 0xbc8 @0x23
0x0ba5…0bd0 at0024 = ╱54╱T╱ // 0xbc9 @0x24
0x0ba5…0bd0 at0025 = ╱59╱Y╱ // 0xbca @0x25
0x0ba5…0bd0 at0026 = ╱50╱P╱ // 0xbcb @0x26
0x0ba5…0bd0 at0027 = ╱45╱E╱ // 0xbcc @0x27
0x0ba5…0bd0 at0028 = ╱ef╱ $ ╱ // 0xbcd @0x28
0x0ba5…0bd0 at0029 = ╱ee╱ ) ╱ // 0xbce @0x29
0x0ba5…0bd0 at002a = EOL // 0xbcf @0x2a
0x0ba5…0bd0 }
0x0bd0…0bd6 a1c4 01050 ENDIF
0x0bd0…0bd6 LineComal80 {
0x0bd0…0bd6 ptr = 0xa1c4 // 0xbd0 @0x0
0x0bd0…0bd6 lno = 0x041a // 0xbd2 @0x2
0x0bd0…0bd6 at0004 = ╱9c╱ ENDIF ╱ // 0xbd4 @0x4
0x0bd0…0bd6 at0005 = EOL // 0xbd5 @0x5
0x0bd0…0bd6 }
0x0bd6…0bdd a1cb 01060 NEXT K
0x0bd6…0bdd LineComal80 {
0x0bd6…0bdd ptr = 0xa1cb // 0xbd6 @0x0
0x0bd6…0bdd lno = 0x0424 // 0xbd8 @0x2
0x0bd6…0bdd at0004 = ╱84╱ NEXT ╱ // 0xbda @0x4
0x0bd6…0bdd at0005 = ╱4b╱K╱ // 0xbdb @0x5
0x0bd6…0bdd at0006 = EOL // 0xbdc @0x6
0x0bd6…0bdd }
0x0bdd…0bf5 a1e3 01070 FOR I := LIN_T TO AX_LIN DO PRINT
0x0bdd…0bf5 LineComal80 {
0x0bdd…0bf5 ptr = 0xa1e3 // 0xbdd @0x0
0x0bdd…0bf5 lno = 0x042e // 0xbdf @0x2
0x0bdd…0bf5 at0004 = ╱b400╱ FOR ╱ // 0xbe1 @0x4
0x0bdd…0bf5 at0006 = ╱49╱I╱ // 0xbe3 @0x6
0x0bdd…0bf5 at0007 = ╱f0╱ := ╱ // 0xbe4 @0x7
0x0bdd…0bf5 at0008 = ╱4c╱L╱ // 0xbe5 @0x8
0x0bdd…0bf5 at0009 = ╱49╱I╱ // 0xbe6 @0x9
0x0bdd…0bf5 at000a = ╱4e╱N╱ // 0xbe7 @0xa
0x0bdd…0bf5 at000b = ╱5f╱_╱ // 0xbe8 @0xb
0x0bdd…0bf5 at000c = ╱54╱T╱ // 0xbe9 @0xc
0x0bdd…0bf5 at000d = ╱b74d╱ TO ╱ // 0xbea @0xd
0x0bdd…0bf5 at000f = ╱41╱A╱ // 0xbec @0xf
0x0bdd…0bf5 at0010 = ╱58╱X╱ // 0xbed @0x10
0x0bdd…0bf5 at0011 = ╱5f╱_╱ // 0xbee @0x11
0x0bdd…0bf5 at0012 = ╱4c╱L╱ // 0xbef @0x12
0x0bdd…0bf5 at0013 = ╱49╱I╱ // 0xbf0 @0x13
0x0bdd…0bf5 at0014 = ╱4e╱N╱ // 0xbf1 @0x14
0x0bdd…0bf5 at0015 = ╱bb╱ DO ╱ // 0xbf2 @0x15
0x0bdd…0bf5 at0016 = ╱92╱ PRINT ╱ // 0xbf3 @0x16
0x0bdd…0bf5 at0017 = EOL // 0xbf4 @0x17
0x0bdd…0bf5 }
0x0bf5…0c03 a1f1 01080 EXEC PRINTREL
0x0bf5…0c03 LineComal80 {
0x0bf5…0c03 ptr = 0xa1f1 // 0xbf5 @0x0
0x0bf5…0c03 lno = 0x0438 // 0xbf7 @0x2
0x0bf5…0c03 at0004 = ╱9d╱ EXEC ╱ // 0xbf9 @0x4
0x0bf5…0c03 at0005 = ╱50╱P╱ // 0xbfa @0x5
0x0bf5…0c03 at0006 = ╱52╱R╱ // 0xbfb @0x6
0x0bf5…0c03 at0007 = ╱49╱I╱ // 0xbfc @0x7
0x0bf5…0c03 at0008 = ╱4e╱N╱ // 0xbfd @0x8
0x0bf5…0c03 at0009 = ╱54╱T╱ // 0xbfe @0x9
0x0bf5…0c03 at000a = ╱52╱R╱ // 0xbff @0xa
0x0bf5…0c03 at000b = ╱45╱E╱ // 0xc00 @0xb
0x0bf5…0c03 at000c = ╱4c╱L╱ // 0xc01 @0xc
0x0bf5…0c03 at000d = EOL // 0xc02 @0xd
0x0bf5…0c03 }
0x0c03…0c12 a200 01090 LET SVAR $ := "n"
0x0c03…0c12 LineComal80 {
0x0c03…0c12 ptr = 0xa200 // 0xc03 @0x0
0x0c03…0c12 lno = 0x0442 // 0xc05 @0x2
0x0c03…0c12 at0004 = ╱86╱ LET ╱ // 0xc07 @0x4
0x0c03…0c12 at0005 = ╱53╱S╱ // 0xc08 @0x5
0x0c03…0c12 at0006 = ╱56╱V╱ // 0xc09 @0x6
0x0c03…0c12 at0007 = ╱41╱A╱ // 0xc0a @0x7
0x0c03…0c12 at0008 = ╱52╱R╱ // 0xc0b @0x8
0x0c03…0c12 at0009 = ╱ef╱ $ ╱ // 0xc0c @0x9
0x0c03…0c12 at000a = ╱f0╱ := ╱ // 0xc0d @0xa
0x0c03…0c12 at000b = ╱22╱"╱ // 0xc0e @0xb
0x0c03…0c12 at000c = ╱6e╱n╱ // 0xc0f @0xc
0x0c03…0c12 at000d = ╱22╱"╱ // 0xc10 @0xd
0x0c03…0c12 at000e = EOL // 0xc11 @0xe
0x0c03…0c12 }
0x0c12…0c45 a233 01100 EDIT "<C2614>Flere…udskrifter…(j/n)?…" : SVAR $ ( 1 )
0x0c12…0c45 LineComal80 {
0x0c12…0c45 ptr = 0xa233 // 0xc12 @0x0
0x0c12…0c45 lno = 0x044c // 0xc14 @0x2
0x0c12…0c45 at0004 = ╱b1╱ EDIT ╱ // 0xc16 @0x4
0x0c12…0c45 at0005 = ╱22╱"╱ // 0xc17 @0x5
0x0c12…0c45 at0006 = ╱3c╱<╱ // 0xc18 @0x6
0x0c12…0c45 at0007 = ╱43╱C╱ // 0xc19 @0x7
0x0c12…0c45 at0008 = ╱32╱2╱ // 0xc1a @0x8
0x0c12…0c45 at0009 = ╱36╱6╱ // 0xc1b @0x9
0x0c12…0c45 at000a = ╱31╱1╱ // 0xc1c @0xa
0x0c12…0c45 at000b = ╱34╱4╱ // 0xc1d @0xb
0x0c12…0c45 at000c = ╱3e╱>╱ // 0xc1e @0xc
0x0c12…0c45 at000d = ╱46╱F╱ // 0xc1f @0xd
0x0c12…0c45 at000e = ╱6c╱l╱ // 0xc20 @0xe
0x0c12…0c45 at000f = ╱65╱e╱ // 0xc21 @0xf
0x0c12…0c45 at0010 = ╱72╱r╱ // 0xc22 @0x10
0x0c12…0c45 at0011 = ╱65╱e╱ // 0xc23 @0x11
0x0c12…0c45 at0012 = ╱20╱…╱ // 0xc24 @0x12
0x0c12…0c45 at0013 = ╱75╱u╱ // 0xc25 @0x13
0x0c12…0c45 at0014 = ╱64╱d╱ // 0xc26 @0x14
0x0c12…0c45 at0015 = ╱73╱s╱ // 0xc27 @0x15
0x0c12…0c45 at0016 = ╱6b╱k╱ // 0xc28 @0x16
0x0c12…0c45 at0017 = ╱72╱r╱ // 0xc29 @0x17
0x0c12…0c45 at0018 = ╱69╱i╱ // 0xc2a @0x18
0x0c12…0c45 at0019 = ╱66╱f╱ // 0xc2b @0x19
0x0c12…0c45 at001a = ╱74╱t╱ // 0xc2c @0x1a
0x0c12…0c45 at001b = ╱65╱e╱ // 0xc2d @0x1b
0x0c12…0c45 at001c = ╱72╱r╱ // 0xc2e @0x1c
0x0c12…0c45 at001d = ╱20╱…╱ // 0xc2f @0x1d
0x0c12…0c45 at001e = ╱28╱(╱ // 0xc30 @0x1e
0x0c12…0c45 at001f = ╱6a╱j╱ // 0xc31 @0x1f
0x0c12…0c45 at0020 = ╱2f╱/╱ // 0xc32 @0x20
0x0c12…0c45 at0021 = ╱6e╱n╱ // 0xc33 @0x21
0x0c12…0c45 at0022 = ╱29╱)╱ // 0xc34 @0x22
0x0c12…0c45 at0023 = ╱3f╱?╱ // 0xc35 @0x23
0x0c12…0c45 at0024 = ╱20╱…╱ // 0xc36 @0x24
0x0c12…0c45 at0025 = ╱22╱"╱ // 0xc37 @0x25
0x0c12…0c45 at0026 = ╱f1╱ : ╱ // 0xc38 @0x26
0x0c12…0c45 at0027 = ╱53╱S╱ // 0xc39 @0x27
0x0c12…0c45 at0028 = ╱56╱V╱ // 0xc3a @0x28
0x0c12…0c45 at0029 = ╱41╱A╱ // 0xc3b @0x29
0x0c12…0c45 at002a = ╱52╱R╱ // 0xc3c @0x2a
0x0c12…0c45 at002b = ╱ef╱ $ ╱ // 0xc3d @0x2b
0x0c12…0c45 at002c = ╱ed╱ ( ╱ // 0xc3e @0x2c
0x0c12…0c45 at002d = ╱31╱1╱ // 0xc3f @0x2d
0x0c12…0c45 at002e = ╱f20100╱ // 0xc40 @0x2e
0x0c12…0c45 at0031 = ╱ee╱ ) ╱ // 0xc43 @0x31
0x0c12…0c45 at0032 = EOL // 0xc44 @0x32
0x0c12…0c45 }
0x0c45…0c61 a24f 01110 UNTIL NOT "/" + SVAR $ + "/" IN "/J/j/"
0x0c45…0c61 LineComal80 {
0x0c45…0c61 ptr = 0xa24f // 0xc45 @0x0
0x0c45…0c61 lno = 0x0456 // 0xc47 @0x2
0x0c45…0c61 at0004 = ╱98╱ UNTIL ╱ // 0xc49 @0x4
0x0c45…0c61 at0005 = ╱d7╱ NOT ╱ // 0xc4a @0x5
0x0c45…0c61 at0006 = ╱22╱"╱ // 0xc4b @0x6
0x0c45…0c61 at0007 = ╱2f╱/╱ // 0xc4c @0x7
0x0c45…0c61 at0008 = ╱22╱"╱ // 0xc4d @0x8
0x0c45…0c61 at0009 = ╱eb╱ + ╱ // 0xc4e @0x9
0x0c45…0c61 at000a = ╱53╱S╱ // 0xc4f @0xa
0x0c45…0c61 at000b = ╱56╱V╱ // 0xc50 @0xb
0x0c45…0c61 at000c = ╱41╱A╱ // 0xc51 @0xc
0x0c45…0c61 at000d = ╱52╱R╱ // 0xc52 @0xd
0x0c45…0c61 at000e = ╱ef╱ $ ╱ // 0xc53 @0xe
0x0c45…0c61 at000f = ╱eb╱ + ╱ // 0xc54 @0xf
0x0c45…0c61 at0010 = ╱22╱"╱ // 0xc55 @0x10
0x0c45…0c61 at0011 = ╱2f╱/╱ // 0xc56 @0x11
0x0c45…0c61 at0012 = ╱22╱"╱ // 0xc57 @0x12
0x0c45…0c61 at0013 = ╱dc╱ IN ╱ // 0xc58 @0x13
0x0c45…0c61 at0014 = ╱22╱"╱ // 0xc59 @0x14
0x0c45…0c61 at0015 = ╱2f╱/╱ // 0xc5a @0x15
0x0c45…0c61 at0016 = ╱4a╱J╱ // 0xc5b @0x16
0x0c45…0c61 at0017 = ╱2f╱/╱ // 0xc5c @0x17
0x0c45…0c61 at0018 = ╱6a╱j╱ // 0xc5d @0x18
0x0c45…0c61 at0019 = ╱2f╱/╱ // 0xc5e @0x19
0x0c45…0c61 at001a = ╱22╱"╱ // 0xc5f @0x1a
0x0c45…0c61 at001b = EOL // 0xc60 @0x1b
0x0c45…0c61 }
0x0c61…0c6f a25d 01120 ENDPROC FKT_MENU
0x0c61…0c6f LineComal80 {
0x0c61…0c6f ptr = 0xa25d // 0xc61 @0x0
0x0c61…0c6f lno = 0x0460 // 0xc63 @0x2
0x0c61…0c6f at0004 = ╱9f╱ ENDPROC ╱ // 0xc65 @0x4
0x0c61…0c6f at0005 = ╱46╱F╱ // 0xc66 @0x5
0x0c61…0c6f at0006 = ╱4b╱K╱ // 0xc67 @0x6
0x0c61…0c6f at0007 = ╱54╱T╱ // 0xc68 @0x7
0x0c61…0c6f at0008 = ╱5f╱_╱ // 0xc69 @0x8
0x0c61…0c6f at0009 = ╱4d╱M╱ // 0xc6a @0x9
0x0c61…0c6f at000a = ╱45╱E╱ // 0xc6b @0xa
0x0c61…0c6f at000b = ╱4e╱N╱ // 0xc6c @0xb
0x0c61…0c6f at000c = ╱55╱U╱ // 0xc6d @0xc
0x0c61…0c6f at000d = EOL // 0xc6e @0xd
0x0c61…0c6f }
0x0c6f…0c74 a262 01130
0x0c6f…0c74 LineComal80 {
0x0c6f…0c74 ptr = 0xa262 // 0xc6f @0x0
0x0c6f…0c74 lno = 0x046a // 0xc71 @0x2
0x0c6f…0c74 at0004 = EOL // 0xc73 @0x4
0x0c6f…0c74 }
0x0c74…0c8f a27d 01140 PROC OPENFIL ( FNAVN $ , WAY $ )
0x0c74…0c8f LineComal80 {
0x0c74…0c8f ptr = 0xa27d // 0xc74 @0x0
0x0c74…0c8f lno = 0x0474 // 0xc76 @0x2
0x0c74…0c8f at0004 = ╱9e09╱ PROC ╱ // 0xc78 @0x4
0x0c74…0c8f at0006 = ╱4f╱O╱ // 0xc7a @0x6
0x0c74…0c8f at0007 = ╱50╱P╱ // 0xc7b @0x7
0x0c74…0c8f at0008 = ╱45╱E╱ // 0xc7c @0x8
0x0c74…0c8f at0009 = ╱4e╱N╱ // 0xc7d @0x9
0x0c74…0c8f at000a = ╱46╱F╱ // 0xc7e @0xa
0x0c74…0c8f at000b = ╱49╱I╱ // 0xc7f @0xb
0x0c74…0c8f at000c = ╱4c╱L╱ // 0xc80 @0xc
0x0c74…0c8f at000d = ╱ed╱ ( ╱ // 0xc81 @0xd
0x0c74…0c8f at000e = ╱46╱F╱ // 0xc82 @0xe
0x0c74…0c8f at000f = ╱4e╱N╱ // 0xc83 @0xf
0x0c74…0c8f at0010 = ╱41╱A╱ // 0xc84 @0x10
0x0c74…0c8f at0011 = ╱56╱V╱ // 0xc85 @0x11
0x0c74…0c8f at0012 = ╱4e╱N╱ // 0xc86 @0x12
0x0c74…0c8f at0013 = ╱ef╱ $ ╱ // 0xc87 @0x13
0x0c74…0c8f at0014 = ╱ec╱ , ╱ // 0xc88 @0x14
0x0c74…0c8f at0015 = ╱57╱W╱ // 0xc89 @0x15
0x0c74…0c8f at0016 = ╱41╱A╱ // 0xc8a @0x16
0x0c74…0c8f at0017 = ╱59╱Y╱ // 0xc8b @0x17
0x0c74…0c8f at0018 = ╱ef╱ $ ╱ // 0xc8c @0x18
0x0c74…0c8f at0019 = ╱ee╱ ) ╱ // 0xc8d @0x19
0x0c74…0c8f at001a = EOL // 0xc8e @0x1a
0x0c74…0c8f }
0x0c8f…0c96 a284 01150 REPEAT
0x0c8f…0c96 LineComal80 {
0x0c8f…0c96 ptr = 0xa284 // 0xc8f @0x0
0x0c8f…0c96 lno = 0x047e // 0xc91 @0x2
0x0c8f…0c96 at0004 = ╱970a╱ REPEAT ╱ // 0xc93 @0x4
0x0c8f…0c96 at0006 = EOL // 0xc95 @0x6
0x0c8f…0c96 }
0x0c96…0caf a29d 01160 IF AY $ = "W" OR WAY $ = "w" THEN
0x0c96…0caf LineComal80 {
0x0c96…0caf ptr = 0xa29d // 0xc96 @0x0
0x0c96…0caf lno = 0x0488 // 0xc98 @0x2
0x0c96…0caf at0004 = ╱9b0b57╱ IF ╱ // 0xc9a @0x4
0x0c96…0caf at0007 = ╱41╱A╱ // 0xc9d @0x7
0x0c96…0caf at0008 = ╱59╱Y╱ // 0xc9e @0x8
0x0c96…0caf at0009 = ╱ef╱ $ ╱ // 0xc9f @0x9
0x0c96…0caf at000a = ╱df╱ = ╱ // 0xca0 @0xa
0x0c96…0caf at000b = ╱22╱"╱ // 0xca1 @0xb
0x0c96…0caf at000c = ╱57╱W╱ // 0xca2 @0xc
0x0c96…0caf at000d = ╱22╱"╱ // 0xca3 @0xd
0x0c96…0caf at000e = ╱d8╱ OR ╱ // 0xca4 @0xe
0x0c96…0caf at000f = ╱57╱W╱ // 0xca5 @0xf
0x0c96…0caf at0010 = ╱41╱A╱ // 0xca6 @0x10
0x0c96…0caf at0011 = ╱59╱Y╱ // 0xca7 @0x11
0x0c96…0caf at0012 = ╱ef╱ $ ╱ // 0xca8 @0x12
0x0c96…0caf at0013 = ╱df╱ = ╱ // 0xca9 @0x13
0x0c96…0caf at0014 = ╱22╱"╱ // 0xcaa @0x14
0x0c96…0caf at0015 = ╱77╱w╱ // 0xcab @0x15
0x0c96…0caf at0016 = ╱22╱"╱ // 0xcac @0x16
0x0c96…0caf at0017 = ╱b5╱ THEN ╱ // 0xcad @0x17
0x0c96…0caf at0018 = EOL // 0xcae @0x18
0x0c96…0caf }
0x0caf…0cbd a2ab 01170 OPEN FNAVN $ , W
0x0caf…0cbd LineComal80 {
0x0caf…0cbd ptr = 0xa2ab // 0xcaf @0x0
0x0caf…0cbd lno = 0x0492 // 0xcb1 @0x2
0x0caf…0cbd at0004 = ╱a7╱ OPEN ╱ // 0xcb3 @0x4
0x0caf…0cbd at0005 = ╱46╱F╱ // 0xcb4 @0x5
0x0caf…0cbd at0006 = ╱4e╱N╱ // 0xcb5 @0x6
0x0caf…0cbd at0007 = ╱41╱A╱ // 0xcb6 @0x7
0x0caf…0cbd at0008 = ╱56╱V╱ // 0xcb7 @0x8
0x0caf…0cbd at0009 = ╱4e╱N╱ // 0xcb8 @0x9
0x0caf…0cbd at000a = ╱ef╱ $ ╱ // 0xcb9 @0xa
0x0caf…0cbd at000b = ╱ec╱ , ╱ // 0xcba @0xb
0x0caf…0cbd at000c = ╱57╱W╱ // 0xcbb @0xc
0x0caf…0cbd at000d = EOL // 0xcbc @0xd
0x0caf…0cbd }
0x0cbd…0cc4 a2b2 01180 ELSE
0x0cbd…0cc4 LineComal80 {
0x0cbd…0cc4 ptr = 0xa2b2 // 0xcbd @0x0
0x0cbd…0cc4 lno = 0x049c // 0xcbf @0x2
0x0cbd…0cc4 at0004 = ╱9a0c╱ ELSE ╱ // 0xcc1 @0x4
0x0cbd…0cc4 at0006 = EOL // 0xcc3 @0x6
0x0cbd…0cc4 }
0x0cc4…0cd2 a2c0 01190 OPEN FNAVN $ , R
0x0cc4…0cd2 LineComal80 {
0x0cc4…0cd2 ptr = 0xa2c0 // 0xcc4 @0x0
0x0cc4…0cd2 lno = 0x04a6 // 0xcc6 @0x2
0x0cc4…0cd2 at0004 = ╱a7╱ OPEN ╱ // 0xcc8 @0x4
0x0cc4…0cd2 at0005 = ╱46╱F╱ // 0xcc9 @0x5
0x0cc4…0cd2 at0006 = ╱4e╱N╱ // 0xcca @0x6
0x0cc4…0cd2 at0007 = ╱41╱A╱ // 0xccb @0x7
0x0cc4…0cd2 at0008 = ╱56╱V╱ // 0xccc @0x8
0x0cc4…0cd2 at0009 = ╱4e╱N╱ // 0xccd @0x9
0x0cc4…0cd2 at000a = ╱ef╱ $ ╱ // 0xcce @0xa
0x0cc4…0cd2 at000b = ╱ec╱ , ╱ // 0xccf @0xb
0x0cc4…0cd2 at000c = ╱52╱R╱ // 0xcd0 @0xc
0x0cc4…0cd2 at000d = EOL // 0xcd1 @0xd
0x0cc4…0cd2 }
0x0cd2…0cd8 a2c6 01200 ENDIF
0x0cd2…0cd8 LineComal80 {
0x0cd2…0cd8 ptr = 0xa2c6 // 0xcd2 @0x0
0x0cd2…0cd8 lno = 0x04b0 // 0xcd4 @0x2
0x0cd2…0cd8 at0004 = ╱9c╱ ENDIF ╱ // 0xcd6 @0x4
0x0cd2…0cd8 at0005 = EOL // 0xcd7 @0x5
0x0cd2…0cd8 }
0x0cd8…0ce9 a2d7 01210 IF ( FNAVN $ ) THEN
0x0cd8…0ce9 LineComal80 {
0x0cd8…0ce9 ptr = 0xa2d7 // 0xcd8 @0x0
0x0cd8…0ce9 lno = 0x04ba // 0xcda @0x2
0x0cd8…0ce9 at0004 = ╱9b0dcd╱ IF ╱ // 0xcdc @0x4
0x0cd8…0ce9 at0007 = ╱ed╱ ( ╱ // 0xcdf @0x7
0x0cd8…0ce9 at0008 = ╱46╱F╱ // 0xce0 @0x8
0x0cd8…0ce9 at0009 = ╱4e╱N╱ // 0xce1 @0x9
0x0cd8…0ce9 at000a = ╱41╱A╱ // 0xce2 @0xa
0x0cd8…0ce9 at000b = ╱56╱V╱ // 0xce3 @0xb
0x0cd8…0ce9 at000c = ╱4e╱N╱ // 0xce4 @0xc
0x0cd8…0ce9 at000d = ╱ef╱ $ ╱ // 0xce5 @0xd
0x0cd8…0ce9 at000e = ╱ee╱ ) ╱ // 0xce6 @0xe
0x0cd8…0ce9 at000f = ╱b5╱ THEN ╱ // 0xce7 @0xf
0x0cd8…0ce9 at0010 = EOL // 0xce8 @0x10
0x0cd8…0ce9 }
0x0ce9…0d01 a2ef 01220 PRINT "<SC0123>" ; CHR$ ( 7 )
0x0ce9…0d01 LineComal80 {
0x0ce9…0d01 ptr = 0xa2ef // 0xce9 @0x0
0x0ce9…0d01 lno = 0x04c4 // 0xceb @0x2
0x0ce9…0d01 at0004 = ╱92╱ PRINT ╱ // 0xced @0x4
0x0ce9…0d01 at0005 = ╱22╱"╱ // 0xcee @0x5
0x0ce9…0d01 at0006 = ╱3c╱<╱ // 0xcef @0x6
0x0ce9…0d01 at0007 = ╱53╱S╱ // 0xcf0 @0x7
0x0ce9…0d01 at0008 = ╱43╱C╱ // 0xcf1 @0x8
0x0ce9…0d01 at0009 = ╱30╱0╱ // 0xcf2 @0x9
0x0ce9…0d01 at000a = ╱31╱1╱ // 0xcf3 @0xa
0x0ce9…0d01 at000b = ╱32╱2╱ // 0xcf4 @0xb
0x0ce9…0d01 at000c = ╱33╱3╱ // 0xcf5 @0xc
0x0ce9…0d01 at000d = ╱3e╱>╱ // 0xcf6 @0xd
0x0ce9…0d01 at000e = ╱22╱"╱ // 0xcf7 @0xe
0x0ce9…0d01 at000f = ╱ea╱ ; ╱ // 0xcf8 @0xf
0x0ce9…0d01 at0010 = ╱d0╱ CHR$ ╱ // 0xcf9 @0x10
0x0ce9…0d01 at0011 = ╱ed╱ ( ╱ // 0xcfa @0x11
0x0ce9…0d01 at0012 = ╱37╱7╱ // 0xcfb @0x12
0x0ce9…0d01 at0013 = ╱f20700╱ // 0xcfc @0x13
0x0ce9…0d01 at0016 = ╱ee╱ ) ╱ // 0xcff @0x16
0x0ce9…0d01 at0017 = EOL // 0xd00 @0x17
0x0ce9…0d01 }
0x0d01…0d17 a305 01230 IF ( FNAVN $ ) = 6 THEN
0x0d01…0d17 LineComal80 {
0x0d01…0d17 ptr = 0xa305 // 0xd01 @0x0
0x0d01…0d17 lno = 0x04ce // 0xd03 @0x2
0x0d01…0d17 at0004 = ╱9b0ecd╱ IF ╱ // 0xd05 @0x4
0x0d01…0d17 at0007 = ╱ed╱ ( ╱ // 0xd08 @0x7
0x0d01…0d17 at0008 = ╱46╱F╱ // 0xd09 @0x8
0x0d01…0d17 at0009 = ╱4e╱N╱ // 0xd0a @0x9
0x0d01…0d17 at000a = ╱41╱A╱ // 0xd0b @0xa
0x0d01…0d17 at000b = ╱56╱V╱ // 0xd0c @0xb
0x0d01…0d17 at000c = ╱4e╱N╱ // 0xd0d @0xc
0x0d01…0d17 at000d = ╱ef╱ $ ╱ // 0xd0e @0xd
0x0d01…0d17 at000e = ╱ee╱ ) ╱ // 0xd0f @0xe
0x0d01…0d17 at000f = ╱df╱ = ╱ // 0xd10 @0xf
0x0d01…0d17 at0010 = ╱36╱6╱ // 0xd11 @0x10
0x0d01…0d17 at0011 = ╱f20600╱ // 0xd12 @0x11
0x0d01…0d17 at0014 = ╱b5╱ THEN ╱ // 0xd15 @0x14
0x0d01…0d17 at0015 = EOL // 0xd16 @0x15
0x0d01…0d17 }
0x0d17…0d5c a34a 01240 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
0x0d17…0d5c LineComal80 {
0x0d17…0d5c ptr = 0xa34a // 0xd17 @0x0
0x0d17…0d5c lno = 0x04d8 // 0xd19 @0x2
0x0d17…0d5c at0004 = ╱92╱ PRINT ╱ // 0xd1b @0x4
0x0d17…0d5c at0005 = ╱22╱"╱ // 0xd1c @0x5
0x0d17…0d5c at0006 = ╱3c╱<╱ // 0xd1d @0x6
0x0d17…0d5c at0007 = ╱53╱S╱ // 0xd1e @0x7
0x0d17…0d5c at0008 = ╱43╱C╱ // 0xd1f @0x8
0x0d17…0d5c at0009 = ╱31╱1╱ // 0xd20 @0x9
0x0d17…0d5c at000a = ╱36╱6╱ // 0xd21 @0xa
0x0d17…0d5c at000b = ╱30╱0╱ // 0xd22 @0xb
0x0d17…0d5c at000c = ╱32╱2╱ // 0xd23 @0xc
0x0d17…0d5c at000d = ╱3e╱>╱ // 0xd24 @0xd
0x0d17…0d5c at000e = ╱2a╱*╱ // 0xd25 @0xe
0x0d17…0d5c at000f = ╱2a╱*╱ // 0xd26 @0xf
0x0d17…0d5c at0010 = ╱2a╱*╱ // 0xd27 @0x10
0x0d17…0d5c at0011 = ╱20╱…╱ // 0xd28 @0x11
0x0d17…0d5c at0012 = ╱46╱F╱ // 0xd29 @0x12
0x0d17…0d5c at0013 = ╱65╱e╱ // 0xd2a @0x13
0x0d17…0d5c at0014 = ╱6a╱j╱ // 0xd2b @0x14
0x0d17…0d5c at0015 = ╱6c╱l╱ // 0xd2c @0x15
0x0d17…0d5c at0016 = ╱20╱…╱ // 0xd2d @0x16
0x0d17…0d5c at0017 = ╱6e╱n╱ // 0xd2e @0x17
0x0d17…0d5c at0018 = ╱72╱r╱ // 0xd2f @0x18
0x0d17…0d5c at0019 = ╱2e╱.╱ // 0xd30 @0x19
0x0d17…0d5c at001a = ╱20╱…╱ // 0xd31 @0x1a
0x0d17…0d5c at001b = ╱36╱6╱ // 0xd32 @0x1b
0x0d17…0d5c at001c = ╱20╱…╱ // 0xd33 @0x1c
0x0d17…0d5c at001d = ╱2d╱-╱ // 0xd34 @0x1d
0x0d17…0d5c at001e = ╱20╱…╱ // 0xd35 @0x1e
0x0d17…0d5c at001f = ╱69╱i╱ // 0xd36 @0x1f
0x0d17…0d5c at0020 = ╱6e╱n╱ // 0xd37 @0x20
0x0d17…0d5c at0021 = ╱64╱d╱ // 0xd38 @0x21
0x0d17…0d5c at0022 = ╱73╱s╱ // 0xd39 @0x22
0x0d17…0d5c at0023 = ╱7b╱{╱ // 0xd3a @0x23
0x0d17…0d5c at0024 = ╱74╱t╱ // 0xd3b @0x24
0x0d17…0d5c at0025 = ╱20╱…╱ // 0xd3c @0x25
0x0d17…0d5c at0026 = ╱64╱d╱ // 0xd3d @0x26
0x0d17…0d5c at0027 = ╱69╱i╱ // 0xd3e @0x27
0x0d17…0d5c at0028 = ╱73╱s╱ // 0xd3f @0x28
0x0d17…0d5c at0029 = ╱6b╱k╱ // 0xd40 @0x29
0x0d17…0d5c at002a = ╱65╱e╱ // 0xd41 @0x2a
0x0d17…0d5c at002b = ╱74╱t╱ // 0xd42 @0x2b
0x0d17…0d5c at002c = ╱74╱t╱ // 0xd43 @0x2c
0x0d17…0d5c at002d = ╱65╱e╱ // 0xd44 @0x2d
0x0d17…0d5c at002e = ╱20╱…╱ // 0xd45 @0x2e
0x0d17…0d5c at002f = ╱6f╱o╱ // 0xd46 @0x2f
0x0d17…0d5c at0030 = ╱67╱g╱ // 0xd47 @0x30
0x0d17…0d5c at0031 = ╱20╱…╱ // 0xd48 @0x31
0x0d17…0d5c at0032 = ╱74╱t╱ // 0xd49 @0x32
0x0d17…0d5c at0033 = ╱72╱r╱ // 0xd4a @0x33
0x0d17…0d5c at0034 = ╱79╱y╱ // 0xd4b @0x34
0x0d17…0d5c at0035 = ╱6b╱k╱ // 0xd4c @0x35
0x0d17…0d5c at0036 = ╱20╱…╱ // 0xd4d @0x36
0x0d17…0d5c at0037 = ╱3c╱<╱ // 0xd4e @0x37
0x0d17…0d5c at0038 = ╱52╱R╱ // 0xd4f @0x38
0x0d17…0d5c at0039 = ╱45╱E╱ // 0xd50 @0x39
0x0d17…0d5c at003a = ╱54╱T╱ // 0xd51 @0x3a
0x0d17…0d5c at003b = ╱55╱U╱ // 0xd52 @0x3b
0x0d17…0d5c at003c = ╱52╱R╱ // 0xd53 @0x3c
0x0d17…0d5c at003d = ╱4e╱N╱ // 0xd54 @0x3d
0x0d17…0d5c at003e = ╱3e╱>╱ // 0xd55 @0x3e
0x0d17…0d5c at003f = ╱20╱…╱ // 0xd56 @0x3f
0x0d17…0d5c at0040 = ╱2a╱*╱ // 0xd57 @0x40
0x0d17…0d5c at0041 = ╱2a╱*╱ // 0xd58 @0x41
0x0d17…0d5c at0042 = ╱2a╱*╱ // 0xd59 @0x42
0x0d17…0d5c at0043 = ╱22╱"╱ // 0xd5a @0x43
0x0d17…0d5c at0044 = EOL // 0xd5b @0x44
0x0d17…0d5c }
0x0d5c…0d6a a358 01250 INPUT "" : SVAR $
0x0d5c…0d6a LineComal80 {
0x0d5c…0d6a ptr = 0xa358 // 0xd5c @0x0
0x0d5c…0d6a lno = 0x04e2 // 0xd5e @0x2
0x0d5c…0d6a at0004 = ╱91╱ INPUT ╱ // 0xd60 @0x4
0x0d5c…0d6a at0005 = ╱22╱"╱ // 0xd61 @0x5
0x0d5c…0d6a at0006 = ╱22╱"╱ // 0xd62 @0x6
0x0d5c…0d6a at0007 = ╱f1╱ : ╱ // 0xd63 @0x7
0x0d5c…0d6a at0008 = ╱53╱S╱ // 0xd64 @0x8
0x0d5c…0d6a at0009 = ╱56╱V╱ // 0xd65 @0x9
0x0d5c…0d6a at000a = ╱41╱A╱ // 0xd66 @0xa
0x0d5c…0d6a at000b = ╱52╱R╱ // 0xd67 @0xb
0x0d5c…0d6a at000c = ╱ef╱ $ ╱ // 0xd68 @0xc
0x0d5c…0d6a at000d = EOL // 0xd69 @0xd
0x0d5c…0d6a }
0x0d6a…0d71 a35f 01260 ELSE
0x0d6a…0d71 LineComal80 {
0x0d6a…0d71 ptr = 0xa35f // 0xd6a @0x0
0x0d6a…0d71 lno = 0x04ec // 0xd6c @0x2
0x0d6a…0d71 at0004 = ╱9a0f╱ ELSE ╱ // 0xd6e @0x4
0x0d6a…0d71 at0006 = EOL // 0xd70 @0x6
0x0d6a…0d71 }
0x0d71…0db2 a3a0 01270 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
0x0d71…0db2 LineComal80 {
0x0d71…0db2 ptr = 0xa3a0 // 0xd71 @0x0
0x0d71…0db2 lno = 0x04f6 // 0xd73 @0x2
0x0d71…0db2 at0004 = ╱92╱ PRINT ╱ // 0xd75 @0x4
0x0d71…0db2 at0005 = ╱22╱"╱ // 0xd76 @0x5
0x0d71…0db2 at0006 = ╱3c╱<╱ // 0xd77 @0x6
0x0d71…0db2 at0007 = ╱53╱S╱ // 0xd78 @0x7
0x0d71…0db2 at0008 = ╱43╱C╱ // 0xd79 @0x8
0x0d71…0db2 at0009 = ╱31╱1╱ // 0xd7a @0x9
0x0d71…0db2 at000a = ╱38╱8╱ // 0xd7b @0xa
0x0d71…0db2 at000b = ╱30╱0╱ // 0xd7c @0xb
0x0d71…0db2 at000c = ╱32╱2╱ // 0xd7d @0xc
0x0d71…0db2 at000d = ╱3e╱>╱ // 0xd7e @0xd
0x0d71…0db2 at000e = ╱2a╱*╱ // 0xd7f @0xe
0x0d71…0db2 at000f = ╱2a╱*╱ // 0xd80 @0xf
0x0d71…0db2 at0010 = ╱2a╱*╱ // 0xd81 @0x10
0x0d71…0db2 at0011 = ╱20╱…╱ // 0xd82 @0x11
0x0d71…0db2 at0012 = ╱46╱F╱ // 0xd83 @0x12
0x0d71…0db2 at0013 = ╱65╱e╱ // 0xd84 @0x13
0x0d71…0db2 at0014 = ╱6a╱j╱ // 0xd85 @0x14
0x0d71…0db2 at0015 = ╱6c╱l╱ // 0xd86 @0x15
0x0d71…0db2 at0016 = ╱20╱…╱ // 0xd87 @0x16
0x0d71…0db2 at0017 = ╱6e╱n╱ // 0xd88 @0x17
0x0d71…0db2 at0018 = ╱72╱r╱ // 0xd89 @0x18
0x0d71…0db2 at0019 = ╱2e╱.╱ // 0xd8a @0x19
0x0d71…0db2 at001a = ╱20╱…╱ // 0xd8b @0x1a
0x0d71…0db2 at001b = ╱22╱"╱ // 0xd8c @0x1b
0x0d71…0db2 at001c = ╱ea╱ ; ╱ // 0xd8d @0x1c
0x0d71…0db2 at001d = ╱d0╱ CHR$ ╱ // 0xd8e @0x1d
0x0d71…0db2 at001e = ╱ed╱ ( ╱ // 0xd8f @0x1e
0x0d71…0db2 at001f = ╱cd╱ // 0xd90 @0x1f
0x0d71…0db2 at0020 = ╱ed╱ ( ╱ // 0xd91 @0x20
0x0d71…0db2 at0021 = ╱46╱F╱ // 0xd92 @0x21
0x0d71…0db2 at0022 = ╱4e╱N╱ // 0xd93 @0x22
0x0d71…0db2 at0023 = ╱41╱A╱ // 0xd94 @0x23
0x0d71…0db2 at0024 = ╱56╱V╱ // 0xd95 @0x24
0x0d71…0db2 at0025 = ╱4e╱N╱ // 0xd96 @0x25
0x0d71…0db2 at0026 = ╱ef╱ $ ╱ // 0xd97 @0x26
0x0d71…0db2 at0027 = ╱ee╱ ) ╱ // 0xd98 @0x27
0x0d71…0db2 at0028 = ╱ec╱ , ╱ // 0xd99 @0x28
0x0d71…0db2 at0029 = ╱32╱2╱ // 0xd9a @0x29
0x0d71…0db2 at002a = ╱f20200╱ // 0xd9b @0x2a
0x0d71…0db2 at002d = ╱ee╱ ) ╱ // 0xd9e @0x2d
0x0d71…0db2 at002e = ╱ea╱ ; ╱ // 0xd9f @0x2e
0x0d71…0db2 at002f = ╱22╱"╱ // 0xda0 @0x2f
0x0d71…0db2 at0030 = ╱20╱…╱ // 0xda1 @0x30
0x0d71…0db2 at0031 = ╱76╱v╱ // 0xda2 @0x31
0x0d71…0db2 at0032 = ╱65╱e╱ // 0xda3 @0x32
0x0d71…0db2 at0033 = ╱64╱d╱ // 0xda4 @0x33
0x0d71…0db2 at0034 = ╱20╱…╱ // 0xda5 @0x34
0x0d71…0db2 at0035 = ╱7d╱}╱ // 0xda6 @0x35
0x0d71…0db2 at0036 = ╱62╱b╱ // 0xda7 @0x36
0x0d71…0db2 at0037 = ╱6e╱n╱ // 0xda8 @0x37
0x0d71…0db2 at0038 = ╱69╱i╱ // 0xda9 @0x38
0x0d71…0db2 at0039 = ╱6e╱n╱ // 0xdaa @0x39
0x0d71…0db2 at003a = ╱67╱g╱ // 0xdab @0x3a
0x0d71…0db2 at003b = ╱20╱…╱ // 0xdac @0x3b
0x0d71…0db2 at003c = ╱61╱a╱ // 0xdad @0x3c
0x0d71…0db2 at003d = ╱66╱f╱ // 0xdae @0x3d
0x0d71…0db2 at003e = ╱20╱…╱ // 0xdaf @0x3e
0x0d71…0db2 at003f = ╱22╱"╱ // 0xdb0 @0x3f
0x0d71…0db2 at0040 = EOL // 0xdb1 @0x40
0x0d71…0db2 }
0x0db2…0dcb a3b9 01280 PRINT "<S>" ; FNAVN $ ; "…***"
0x0db2…0dcb LineComal80 {
0x0db2…0dcb ptr = 0xa3b9 // 0xdb2 @0x0
0x0db2…0dcb lno = 0x0500 // 0xdb4 @0x2
0x0db2…0dcb at0004 = ╱92╱ PRINT ╱ // 0xdb6 @0x4
0x0db2…0dcb at0005 = ╱22╱"╱ // 0xdb7 @0x5
0x0db2…0dcb at0006 = ╱3c╱<╱ // 0xdb8 @0x6
0x0db2…0dcb at0007 = ╱53╱S╱ // 0xdb9 @0x7
0x0db2…0dcb at0008 = ╱3e╱>╱ // 0xdba @0x8
0x0db2…0dcb at0009 = ╱22╱"╱ // 0xdbb @0x9
0x0db2…0dcb at000a = ╱ea╱ ; ╱ // 0xdbc @0xa
0x0db2…0dcb at000b = ╱46╱F╱ // 0xdbd @0xb
0x0db2…0dcb at000c = ╱4e╱N╱ // 0xdbe @0xc
0x0db2…0dcb at000d = ╱41╱A╱ // 0xdbf @0xd
0x0db2…0dcb at000e = ╱56╱V╱ // 0xdc0 @0xe
0x0db2…0dcb at000f = ╱4e╱N╱ // 0xdc1 @0xf
0x0db2…0dcb at0010 = ╱ef╱ $ ╱ // 0xdc2 @0x10
0x0db2…0dcb at0011 = ╱ea╱ ; ╱ // 0xdc3 @0x11
0x0db2…0dcb at0012 = ╱22╱"╱ // 0xdc4 @0x12
0x0db2…0dcb at0013 = ╱20╱…╱ // 0xdc5 @0x13
0x0db2…0dcb at0014 = ╱2a╱*╱ // 0xdc6 @0x14
0x0db2…0dcb at0015 = ╱2a╱*╱ // 0xdc7 @0x15
0x0db2…0dcb at0016 = ╱2a╱*╱ // 0xdc8 @0x16
0x0db2…0dcb at0017 = ╱22╱"╱ // 0xdc9 @0x17
0x0db2…0dcb at0018 = EOL // 0xdca @0x18
0x0db2…0dcb }
0x0dcb…0dd9 a3c7 01290 INPUT "" : SVAR $
0x0dcb…0dd9 LineComal80 {
0x0dcb…0dd9 ptr = 0xa3c7 // 0xdcb @0x0
0x0dcb…0dd9 lno = 0x050a // 0xdcd @0x2
0x0dcb…0dd9 at0004 = ╱91╱ INPUT ╱ // 0xdcf @0x4
0x0dcb…0dd9 at0005 = ╱22╱"╱ // 0xdd0 @0x5
0x0dcb…0dd9 at0006 = ╱22╱"╱ // 0xdd1 @0x6
0x0dcb…0dd9 at0007 = ╱f1╱ : ╱ // 0xdd2 @0x7
0x0dcb…0dd9 at0008 = ╱53╱S╱ // 0xdd3 @0x8
0x0dcb…0dd9 at0009 = ╱56╱V╱ // 0xdd4 @0x9
0x0dcb…0dd9 at000a = ╱41╱A╱ // 0xdd5 @0xa
0x0dcb…0dd9 at000b = ╱52╱R╱ // 0xdd6 @0xb
0x0dcb…0dd9 at000c = ╱ef╱ $ ╱ // 0xdd7 @0xc
0x0dcb…0dd9 at000d = EOL // 0xdd8 @0xd
0x0dcb…0dd9 }
0x0dd9…0ded a3db 01300 PRINT "<C0102>" ; SPC $
0x0dd9…0ded LineComal80 {
0x0dd9…0ded ptr = 0xa3db // 0xdd9 @0x0
0x0dd9…0ded lno = 0x0514 // 0xddb @0x2
0x0dd9…0ded at0004 = ╱92╱ PRINT ╱ // 0xddd @0x4
0x0dd9…0ded at0005 = ╱22╱"╱ // 0xdde @0x5
0x0dd9…0ded at0006 = ╱3c╱<╱ // 0xddf @0x6
0x0dd9…0ded at0007 = ╱43╱C╱ // 0xde0 @0x7
0x0dd9…0ded at0008 = ╱30╱0╱ // 0xde1 @0x8
0x0dd9…0ded at0009 = ╱31╱1╱ // 0xde2 @0x9
0x0dd9…0ded at000a = ╱30╱0╱ // 0xde3 @0xa
0x0dd9…0ded at000b = ╱32╱2╱ // 0xde4 @0xb
0x0dd9…0ded at000c = ╱3e╱>╱ // 0xde5 @0xc
0x0dd9…0ded at000d = ╱22╱"╱ // 0xde6 @0xd
0x0dd9…0ded at000e = ╱ea╱ ; ╱ // 0xde7 @0xe
0x0dd9…0ded at000f = ╱53╱S╱ // 0xde8 @0xf
0x0dd9…0ded at0010 = ╱50╱P╱ // 0xde9 @0x10
0x0dd9…0ded at0011 = ╱43╱C╱ // 0xdea @0x11
0x0dd9…0ded at0012 = ╱ef╱ $ ╱ // 0xdeb @0x12
0x0dd9…0ded at0013 = EOL // 0xdec @0x13
0x0dd9…0ded }
0x0ded…0df3 a3e1 01310 ENDIF
0x0ded…0df3 LineComal80 {
0x0ded…0df3 ptr = 0xa3e1 // 0xded @0x0
0x0ded…0df3 lno = 0x051e // 0xdef @0x2
0x0ded…0df3 at0004 = ╱9c╱ ENDIF ╱ // 0xdf1 @0x4
0x0ded…0df3 at0005 = EOL // 0xdf2 @0x5
0x0ded…0df3 }
0x0df3…0df9 a3e7 01320 ENDIF
0x0df3…0df9 LineComal80 {
0x0df3…0df9 ptr = 0xa3e7 // 0xdf3 @0x0
0x0df3…0df9 lno = 0x0528 // 0xdf5 @0x2
0x0df3…0df9 at0004 = ╱9c╱ ENDIF ╱ // 0xdf7 @0x4
0x0df3…0df9 at0005 = EOL // 0xdf8 @0x5
0x0df3…0df9 }
0x0df9…0e09 a3f7 01330 UNTIL NOT ╱cd╱ ( FNAVN $ )
0x0df9…0e09 LineComal80 {
0x0df9…0e09 ptr = 0xa3f7 // 0xdf9 @0x0
0x0df9…0e09 lno = 0x0532 // 0xdfb @0x2
0x0df9…0e09 at0004 = ╱98╱ UNTIL ╱ // 0xdfd @0x4
0x0df9…0e09 at0005 = ╱d7╱ NOT ╱ // 0xdfe @0x5
0x0df9…0e09 at0006 = ╱cd╱ // 0xdff @0x6
0x0df9…0e09 at0007 = ╱ed╱ ( ╱ // 0xe00 @0x7
0x0df9…0e09 at0008 = ╱46╱F╱ // 0xe01 @0x8
0x0df9…0e09 at0009 = ╱4e╱N╱ // 0xe02 @0x9
0x0df9…0e09 at000a = ╱41╱A╱ // 0xe03 @0xa
0x0df9…0e09 at000b = ╱56╱V╱ // 0xe04 @0xb
0x0df9…0e09 at000c = ╱4e╱N╱ // 0xe05 @0xc
0x0df9…0e09 at000d = ╱ef╱ $ ╱ // 0xe06 @0xd
0x0df9…0e09 at000e = ╱ee╱ ) ╱ // 0xe07 @0xe
0x0df9…0e09 at000f = EOL // 0xe08 @0xf
0x0df9…0e09 }
0x0e09…0e16 a404 01340 ENDPROC OPENFIL
0x0e09…0e16 LineComal80 {
0x0e09…0e16 ptr = 0xa404 // 0xe09 @0x0
0x0e09…0e16 lno = 0x053c // 0xe0b @0x2
0x0e09…0e16 at0004 = ╱9f╱ ENDPROC ╱ // 0xe0d @0x4
0x0e09…0e16 at0005 = ╱4f╱O╱ // 0xe0e @0x5
0x0e09…0e16 at0006 = ╱50╱P╱ // 0xe0f @0x6
0x0e09…0e16 at0007 = ╱45╱E╱ // 0xe10 @0x7
0x0e09…0e16 at0008 = ╱4e╱N╱ // 0xe11 @0x8
0x0e09…0e16 at0009 = ╱46╱F╱ // 0xe12 @0x9
0x0e09…0e16 at000a = ╱49╱I╱ // 0xe13 @0xa
0x0e09…0e16 at000b = ╱4c╱L╱ // 0xe14 @0xb
0x0e09…0e16 at000c = EOL // 0xe15 @0xc
0x0e09…0e16 }
0x0e16…0e1b a409 01350
0x0e16…0e1b LineComal80 {
0x0e16…0e1b ptr = 0xa409 // 0xe16 @0x0
0x0e16…0e1b lno = 0x0546 // 0xe18 @0x2
0x0e16…0e1b at0004 = EOL // 0xe1a @0x4
0x0e16…0e1b }
0x0e1b…0e33 a421 01360 PROC OVERSKRIFT ( ST $ , L )
0x0e1b…0e33 LineComal80 {
0x0e1b…0e33 ptr = 0xa421 // 0xe1b @0x0
0x0e1b…0e33 lno = 0x0550 // 0xe1d @0x2
0x0e1b…0e33 at0004 = ╱9e10╱ PROC ╱ // 0xe1f @0x4
0x0e1b…0e33 at0006 = ╱4f╱O╱ // 0xe21 @0x6
0x0e1b…0e33 at0007 = ╱56╱V╱ // 0xe22 @0x7
0x0e1b…0e33 at0008 = ╱45╱E╱ // 0xe23 @0x8
0x0e1b…0e33 at0009 = ╱52╱R╱ // 0xe24 @0x9
0x0e1b…0e33 at000a = ╱53╱S╱ // 0xe25 @0xa
0x0e1b…0e33 at000b = ╱4b╱K╱ // 0xe26 @0xb
0x0e1b…0e33 at000c = ╱52╱R╱ // 0xe27 @0xc
0x0e1b…0e33 at000d = ╱49╱I╱ // 0xe28 @0xd
0x0e1b…0e33 at000e = ╱46╱F╱ // 0xe29 @0xe
0x0e1b…0e33 at000f = ╱54╱T╱ // 0xe2a @0xf
0x0e1b…0e33 at0010 = ╱ed╱ ( ╱ // 0xe2b @0x10
0x0e1b…0e33 at0011 = ╱53╱S╱ // 0xe2c @0x11
0x0e1b…0e33 at0012 = ╱54╱T╱ // 0xe2d @0x12
0x0e1b…0e33 at0013 = ╱ef╱ $ ╱ // 0xe2e @0x13
0x0e1b…0e33 at0014 = ╱ec╱ , ╱ // 0xe2f @0x14
0x0e1b…0e33 at0015 = ╱4c╱L╱ // 0xe30 @0x15
0x0e1b…0e33 at0016 = ╱ee╱ ) ╱ // 0xe31 @0x16
0x0e1b…0e33 at0017 = EOL // 0xe32 @0x17
0x0e1b…0e33 }
0x0e33…0e59 a447 01370 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
0x0e33…0e59 LineComal80 {
0x0e33…0e59 ptr = 0xa447 // 0xe33 @0x0
0x0e33…0e59 lno = 0x055a // 0xe35 @0x2
0x0e33…0e59 at0004 = ╱92╱ PRINT ╱ // 0xe37 @0x4
0x0e33…0e59 at0005 = ╱22╱"╱ // 0xe38 @0x5
0x0e33…0e59 at0006 = ╱3c╱<╱ // 0xe39 @0x6
0x0e33…0e59 at0007 = ╱58╱X╱ // 0xe3a @0x7
0x0e33…0e59 at0008 = ╱43╱C╱ // 0xe3b @0x8
0x0e33…0e59 at0009 = ╱30╱0╱ // 0xe3c @0x9
0x0e33…0e59 at000a = ╱31╱1╱ // 0xe3d @0xa
0x0e33…0e59 at000b = ╱30╱0╱ // 0xe3e @0xb
0x0e33…0e59 at000c = ╱31╱1╱ // 0xe3f @0xc
0x0e33…0e59 at000d = ╱3e╱>╱ // 0xe40 @0xd
0x0e33…0e59 at000e = ╱46╱F╱ // 0xe41 @0xe
0x0e33…0e59 at000f = ╱69╱i╱ // 0xe42 @0xf
0x0e33…0e59 at0010 = ╱72╱r╱ // 0xe43 @0x10
0x0e33…0e59 at0011 = ╱6d╱m╱ // 0xe44 @0x11
0x0e33…0e59 at0012 = ╱61╱a╱ // 0xe45 @0x12
0x0e33…0e59 at0013 = ╱6e╱n╱ // 0xe46 @0x13
0x0e33…0e59 at0014 = ╱61╱a╱ // 0xe47 @0x14
0x0e33…0e59 at0015 = ╱76╱v╱ // 0xe48 @0x15
0x0e33…0e59 at0016 = ╱6e╱n╱ // 0xe49 @0x16
0x0e33…0e59 at0017 = ╱3a╱:╱ // 0xe4a @0x17
0x0e33…0e59 at0018 = ╱20╱…╱ // 0xe4b @0x18
0x0e33…0e59 at0019 = ╱22╱"╱ // 0xe4c @0x19
0x0e33…0e59 at001a = ╱ea╱ ; ╱ // 0xe4d @0x1a
0x0e33…0e59 at001b = ╱46╱F╱ // 0xe4e @0x1b
0x0e33…0e59 at001c = ╱49╱I╱ // 0xe4f @0x1c
0x0e33…0e59 at001d = ╱52╱R╱ // 0xe50 @0x1d
0x0e33…0e59 at001e = ╱4d╱M╱ // 0xe51 @0x1e
0x0e33…0e59 at001f = ╱41╱A╱ // 0xe52 @0x1f
0x0e33…0e59 at0020 = ╱4e╱N╱ // 0xe53 @0x20
0x0e33…0e59 at0021 = ╱41╱A╱ // 0xe54 @0x21
0x0e33…0e59 at0022 = ╱56╱V╱ // 0xe55 @0x22
0x0e33…0e59 at0023 = ╱4e╱N╱ // 0xe56 @0x23
0x0e33…0e59 at0024 = ╱ef╱ $ ╱ // 0xe57 @0x24
0x0e33…0e59 at0025 = EOL // 0xe58 @0x25
0x0e33…0e59 }
0x0e59…0ea1 a48f 01380 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
0x0e59…0ea1 LineComal80 {
0x0e59…0ea1 ptr = 0xa48f // 0xe59 @0x0
0x0e59…0ea1 lno = 0x0564 // 0xe5b @0x2
0x0e59…0ea1 at0004 = ╱92╱ PRINT ╱ // 0xe5d @0x4
0x0e59…0ea1 at0005 = ╱22╱"╱ // 0xe5e @0x5
0x0e59…0ea1 at0006 = ╱3c╱<╱ // 0xe5f @0x6
0x0e59…0ea1 at0007 = ╱53╱S╱ // 0xe60 @0x7
0x0e59…0ea1 at0008 = ╱43╱C╱ // 0xe61 @0x8
0x0e59…0ea1 at0009 = ╱36╱6╱ // 0xe62 @0x9
0x0e59…0ea1 at000a = ╱35╱5╱ // 0xe63 @0xa
0x0e59…0ea1 at000b = ╱30╱0╱ // 0xe64 @0xb
0x0e59…0ea1 at000c = ╱31╱1╱ // 0xe65 @0xc
0x0e59…0ea1 at000d = ╱3e╱>╱ // 0xe66 @0xd
0x0e59…0ea1 at000e = ╱44╱D╱ // 0xe67 @0xe
0x0e59…0ea1 at000f = ╱61╱a╱ // 0xe68 @0xf
0x0e59…0ea1 at0010 = ╱74╱t╱ // 0xe69 @0x10
0x0e59…0ea1 at0011 = ╱6f╱o╱ // 0xe6a @0x11
0x0e59…0ea1 at0012 = ╱3a╱:╱ // 0xe6b @0x12
0x0e59…0ea1 at0013 = ╱20╱…╱ // 0xe6c @0x13
0x0e59…0ea1 at0014 = ╱22╱"╱ // 0xe6d @0x14
0x0e59…0ea1 at0015 = ╱ea╱ ; ╱ // 0xe6e @0x15
0x0e59…0ea1 at0016 = ╱53╱S╱ // 0xe6f @0x16
0x0e59…0ea1 at0017 = ╱59╱Y╱ // 0xe70 @0x17
0x0e59…0ea1 at0018 = ╱53╱S╱ // 0xe71 @0x18
0x0e59…0ea1 at0019 = ╱54╱T╱ // 0xe72 @0x19
0x0e59…0ea1 at001a = ╱5f╱_╱ // 0xe73 @0x1a
0x0e59…0ea1 at001b = ╱44╱D╱ // 0xe74 @0x1b
0x0e59…0ea1 at001c = ╱41╱A╱ // 0xe75 @0x1c
0x0e59…0ea1 at001d = ╱54╱T╱ // 0xe76 @0x1d
0x0e59…0ea1 at001e = ╱ef╱ $ ╱ // 0xe77 @0x1e
0x0e59…0ea1 at001f = ╱ed╱ ( ╱ // 0xe78 @0x1f
0x0e59…0ea1 at0020 = ╱31╱1╱ // 0xe79 @0x20
0x0e59…0ea1 at0021 = ╱f20100╱ // 0xe7a @0x21
0x0e59…0ea1 at0024 = ╱f1╱ : ╱ // 0xe7d @0x24
0x0e59…0ea1 at0025 = ╱32╱2╱ // 0xe7e @0x25
0x0e59…0ea1 at0026 = ╱f20200╱ // 0xe7f @0x26
0x0e59…0ea1 at0029 = ╱ee╱ ) ╱ // 0xe82 @0x29
0x0e59…0ea1 at002a = ╱ea╱ ; ╱ // 0xe83 @0x2a
0x0e59…0ea1 at002b = ╱22╱"╱ // 0xe84 @0x2b
0x0e59…0ea1 at002c = ╱2e╱.╱ // 0xe85 @0x2c
0x0e59…0ea1 at002d = ╱22╱"╱ // 0xe86 @0x2d
0x0e59…0ea1 at002e = ╱ea╱ ; ╱ // 0xe87 @0x2e
0x0e59…0ea1 at002f = ╱53╱S╱ // 0xe88 @0x2f
0x0e59…0ea1 at0030 = ╱59╱Y╱ // 0xe89 @0x30
0x0e59…0ea1 at0031 = ╱53╱S╱ // 0xe8a @0x31
0x0e59…0ea1 at0032 = ╱54╱T╱ // 0xe8b @0x32
0x0e59…0ea1 at0033 = ╱5f╱_╱ // 0xe8c @0x33
0x0e59…0ea1 at0034 = ╱44╱D╱ // 0xe8d @0x34
0x0e59…0ea1 at0035 = ╱41╱A╱ // 0xe8e @0x35
0x0e59…0ea1 at0036 = ╱54╱T╱ // 0xe8f @0x36
0x0e59…0ea1 at0037 = ╱ef╱ $ ╱ // 0xe90 @0x37
0x0e59…0ea1 at0038 = ╱ed╱ ( ╱ // 0xe91 @0x38
0x0e59…0ea1 at0039 = ╱33╱3╱ // 0xe92 @0x39
0x0e59…0ea1 at003a = ╱f20300╱ // 0xe93 @0x3a
0x0e59…0ea1 at003d = ╱f1╱ : ╱ // 0xe96 @0x3d
0x0e59…0ea1 at003e = ╱32╱2╱ // 0xe97 @0x3e
0x0e59…0ea1 at003f = ╱f20200╱ // 0xe98 @0x3f
0x0e59…0ea1 at0042 = ╱ee╱ ) ╱ // 0xe9b @0x42
0x0e59…0ea1 at0043 = ╱ea╱ ; ╱ // 0xe9c @0x43
0x0e59…0ea1 at0044 = ╱22╱"╱ // 0xe9d @0x44
0x0e59…0ea1 at0045 = ╱2e╱.╱ // 0xe9e @0x45
0x0e59…0ea1 at0046 = ╱22╱"╱ // 0xe9f @0x46
0x0e59…0ea1 at0047 = EOL // 0xea0 @0x47
0x0e59…0ea1 }
0x0ea1…0ebb a4a9 01390 PRINT SYST_DAT $ ( 5 : 2 )
0x0ea1…0ebb LineComal80 {
0x0ea1…0ebb ptr = 0xa4a9 // 0xea1 @0x0
0x0ea1…0ebb lno = 0x056e // 0xea3 @0x2
0x0ea1…0ebb at0004 = ╱92╱ PRINT ╱ // 0xea5 @0x4
0x0ea1…0ebb at0005 = ╱53╱S╱ // 0xea6 @0x5
0x0ea1…0ebb at0006 = ╱59╱Y╱ // 0xea7 @0x6
0x0ea1…0ebb at0007 = ╱53╱S╱ // 0xea8 @0x7
0x0ea1…0ebb at0008 = ╱54╱T╱ // 0xea9 @0x8
0x0ea1…0ebb at0009 = ╱5f╱_╱ // 0xeaa @0x9
0x0ea1…0ebb at000a = ╱44╱D╱ // 0xeab @0xa
0x0ea1…0ebb at000b = ╱41╱A╱ // 0xeac @0xb
0x0ea1…0ebb at000c = ╱54╱T╱ // 0xead @0xc
0x0ea1…0ebb at000d = ╱ef╱ $ ╱ // 0xeae @0xd
0x0ea1…0ebb at000e = ╱ed╱ ( ╱ // 0xeaf @0xe
0x0ea1…0ebb at000f = ╱35╱5╱ // 0xeb0 @0xf
0x0ea1…0ebb at0010 = ╱f20500╱ // 0xeb1 @0x10
0x0ea1…0ebb at0013 = ╱f1╱ : ╱ // 0xeb4 @0x13
0x0ea1…0ebb at0014 = ╱32╱2╱ // 0xeb5 @0x14
0x0ea1…0ebb at0015 = ╱f20200╱ // 0xeb6 @0x15
0x0ea1…0ebb at0018 = ╱ee╱ ) ╱ // 0xeb9 @0x18
0x0ea1…0ebb at0019 = EOL // 0xeba @0x19
0x0ea1…0ebb }
0x0ebb…0ed4 a4c2 01400 CURSOR 36 - ╱cb╱ ( ST $ ) DIV 2 , L
0x0ebb…0ed4 LineComal80 {
0x0ebb…0ed4 ptr = 0xa4c2 // 0xebb @0x0
0x0ebb…0ed4 lno = 0x0578 // 0xebd @0x2
0x0ebb…0ed4 at0004 = ╱a1╱ CURSOR ╱ // 0xebf @0x4
0x0ebb…0ed4 at0005 = ╱33╱3╱ // 0xec0 @0x5
0x0ebb…0ed4 at0006 = ╱36╱6╱ // 0xec1 @0x6
0x0ebb…0ed4 at0007 = ╱f22400╱ // 0xec2 @0x7
0x0ebb…0ed4 at000a = ╱e6╱ - ╱ // 0xec5 @0xa
0x0ebb…0ed4 at000b = ╱cb╱ // 0xec6 @0xb
0x0ebb…0ed4 at000c = ╱ed╱ ( ╱ // 0xec7 @0xc
0x0ebb…0ed4 at000d = ╱53╱S╱ // 0xec8 @0xd
0x0ebb…0ed4 at000e = ╱54╱T╱ // 0xec9 @0xe
0x0ebb…0ed4 at000f = ╱ef╱ $ ╱ // 0xeca @0xf
0x0ebb…0ed4 at0010 = ╱ee╱ ) ╱ // 0xecb @0x10
0x0ebb…0ed4 at0011 = ╱da╱ DIV ╱ // 0xecc @0x11
0x0ebb…0ed4 at0012 = ╱32╱2╱ // 0xecd @0x12
0x0ebb…0ed4 at0013 = ╱f20200╱ // 0xece @0x13
0x0ebb…0ed4 at0016 = ╱ec╱ , ╱ // 0xed1 @0x16
0x0ebb…0ed4 at0017 = ╱4c╱L╱ // 0xed2 @0x17
0x0ebb…0ed4 at0018 = EOL // 0xed3 @0x18
0x0ebb…0ed4 }
0x0ed4…0eeb a4d9 01410 PRINT "***…" ; ST $ ; "…***"
0x0ed4…0eeb LineComal80 {
0x0ed4…0eeb ptr = 0xa4d9 // 0xed4 @0x0
0x0ed4…0eeb lno = 0x0582 // 0xed6 @0x2
0x0ed4…0eeb at0004 = ╱92╱ PRINT ╱ // 0xed8 @0x4
0x0ed4…0eeb at0005 = ╱22╱"╱ // 0xed9 @0x5
0x0ed4…0eeb at0006 = ╱2a╱*╱ // 0xeda @0x6
0x0ed4…0eeb at0007 = ╱2a╱*╱ // 0xedb @0x7
0x0ed4…0eeb at0008 = ╱2a╱*╱ // 0xedc @0x8
0x0ed4…0eeb at0009 = ╱20╱…╱ // 0xedd @0x9
0x0ed4…0eeb at000a = ╱22╱"╱ // 0xede @0xa
0x0ed4…0eeb at000b = ╱ea╱ ; ╱ // 0xedf @0xb
0x0ed4…0eeb at000c = ╱53╱S╱ // 0xee0 @0xc
0x0ed4…0eeb at000d = ╱54╱T╱ // 0xee1 @0xd
0x0ed4…0eeb at000e = ╱ef╱ $ ╱ // 0xee2 @0xe
0x0ed4…0eeb at000f = ╱ea╱ ; ╱ // 0xee3 @0xf
0x0ed4…0eeb at0010 = ╱22╱"╱ // 0xee4 @0x10
0x0ed4…0eeb at0011 = ╱20╱…╱ // 0xee5 @0x11
0x0ed4…0eeb at0012 = ╱2a╱*╱ // 0xee6 @0x12
0x0ed4…0eeb at0013 = ╱2a╱*╱ // 0xee7 @0x13
0x0ed4…0eeb at0014 = ╱2a╱*╱ // 0xee8 @0x14
0x0ed4…0eeb at0015 = ╱22╱"╱ // 0xee9 @0x15
0x0ed4…0eeb at0016 = EOL // 0xeea @0x16
0x0ed4…0eeb }
0x0eeb…0efb a4e9 01420 ENDPROC OVERSKRIFT
0x0eeb…0efb LineComal80 {
0x0eeb…0efb ptr = 0xa4e9 // 0xeeb @0x0
0x0eeb…0efb lno = 0x058c // 0xeed @0x2
0x0eeb…0efb at0004 = ╱9f╱ ENDPROC ╱ // 0xeef @0x4
0x0eeb…0efb at0005 = ╱4f╱O╱ // 0xef0 @0x5
0x0eeb…0efb at0006 = ╱56╱V╱ // 0xef1 @0x6
0x0eeb…0efb at0007 = ╱45╱E╱ // 0xef2 @0x7
0x0eeb…0efb at0008 = ╱52╱R╱ // 0xef3 @0x8
0x0eeb…0efb at0009 = ╱53╱S╱ // 0xef4 @0x9
0x0eeb…0efb at000a = ╱4b╱K╱ // 0xef5 @0xa
0x0eeb…0efb at000b = ╱52╱R╱ // 0xef6 @0xb
0x0eeb…0efb at000c = ╱49╱I╱ // 0xef7 @0xc
0x0eeb…0efb at000d = ╱46╱F╱ // 0xef8 @0xd
0x0eeb…0efb at000e = ╱54╱T╱ // 0xef9 @0xe
0x0eeb…0efb at000f = EOL // 0xefa @0xf
0x0eeb…0efb }
0x0efb…0f00 a4ee 01430
0x0efb…0f00 LineComal80 {
0x0efb…0f00 ptr = 0xa4ee // 0xefb @0x0
0x0efb…0f00 lno = 0x0596 // 0xefd @0x2
0x0efb…0f00 at0004 = EOL // 0xeff @0x4
0x0efb…0f00 }
0x0f00…0f15 a503 01440 PROC ST_BGST ( REF RST $ )
0x0f00…0f15 LineComal80 {
0x0f00…0f15 ptr = 0xa503 // 0xf00 @0x0
0x0f00…0f15 lno = 0x05a0 // 0xf02 @0x2
0x0f00…0f15 at0004 = ╱9e11╱ PROC ╱ // 0xf04 @0x4
0x0f00…0f15 at0006 = ╱53╱S╱ // 0xf06 @0x6
0x0f00…0f15 at0007 = ╱54╱T╱ // 0xf07 @0x7
0x0f00…0f15 at0008 = ╱5f╱_╱ // 0xf08 @0x8
0x0f00…0f15 at0009 = ╱42╱B╱ // 0xf09 @0x9
0x0f00…0f15 at000a = ╱47╱G╱ // 0xf0a @0xa
0x0f00…0f15 at000b = ╱53╱S╱ // 0xf0b @0xb
0x0f00…0f15 at000c = ╱54╱T╱ // 0xf0c @0xc
0x0f00…0f15 at000d = ╱ed╱ ( ╱ // 0xf0d @0xd
0x0f00…0f15 at000e = ╱b6╱ REF ╱ // 0xf0e @0xe
0x0f00…0f15 at000f = ╱52╱R╱ // 0xf0f @0xf
0x0f00…0f15 at0010 = ╱53╱S╱ // 0xf10 @0x10
0x0f00…0f15 at0011 = ╱54╱T╱ // 0xf11 @0x11
0x0f00…0f15 at0012 = ╱ef╱ $ ╱ // 0xf12 @0x12
0x0f00…0f15 at0013 = ╱ee╱ ) ╱ // 0xf13 @0x13
0x0f00…0f15 at0014 = EOL // 0xf14 @0x14
0x0f00…0f15 }
0x0f15…0f2b a519 01450 FOR I := 1 TO ( RST $ ) DO
0x0f15…0f2b LineComal80 {
0x0f15…0f2b ptr = 0xa519 // 0xf15 @0x0
0x0f15…0f2b lno = 0x05aa // 0xf17 @0x2
0x0f15…0f2b at0004 = ╱8312╱ FOR ╱ // 0xf19 @0x4
0x0f15…0f2b at0006 = ╱49╱I╱ // 0xf1b @0x6
0x0f15…0f2b at0007 = ╱f0╱ := ╱ // 0xf1c @0x7
0x0f15…0f2b at0008 = ╱31╱1╱ // 0xf1d @0x8
0x0f15…0f2b at0009 = ╱f20100╱ // 0xf1e @0x9
0x0f15…0f2b at000c = ╱b7cb╱ TO ╱ // 0xf21 @0xc
0x0f15…0f2b at000e = ╱ed╱ ( ╱ // 0xf23 @0xe
0x0f15…0f2b at000f = ╱52╱R╱ // 0xf24 @0xf
0x0f15…0f2b at0010 = ╱53╱S╱ // 0xf25 @0x10
0x0f15…0f2b at0011 = ╱54╱T╱ // 0xf26 @0x11
0x0f15…0f2b at0012 = ╱ef╱ $ ╱ // 0xf27 @0x12
0x0f15…0f2b at0013 = ╱ee╱ ) ╱ // 0xf28 @0x13
0x0f15…0f2b at0014 = ╱bb╱ DO ╱ // 0xf29 @0x14
0x0f15…0f2b at0015 = EOL // 0xf2a @0x15
0x0f15…0f2b }
0x0f2b…0f66 a554 01460 IF RST $ ( I ) =< "}" AND RST $ ( I ) >= "a" THEN LET RST $ ( I ) := CHR$ ( ╱cc╱ ( RST $ ( I ) ) - 32 )
0x0f2b…0f66 LineComal80 {
0x0f2b…0f66 ptr = 0xa554 // 0xf2b @0x0
0x0f2b…0f66 lno = 0x05b4 // 0xf2d @0x2
0x0f2b…0f66 at0004 = ╱8200╱ IF ╱ // 0xf2f @0x4
0x0f2b…0f66 at0006 = ╱52╱R╱ // 0xf31 @0x6
0x0f2b…0f66 at0007 = ╱53╱S╱ // 0xf32 @0x7
0x0f2b…0f66 at0008 = ╱54╱T╱ // 0xf33 @0x8
0x0f2b…0f66 at0009 = ╱ef╱ $ ╱ // 0xf34 @0x9
0x0f2b…0f66 at000a = ╱ed╱ ( ╱ // 0xf35 @0xa
0x0f2b…0f66 at000b = ╱49╱I╱ // 0xf36 @0xb
0x0f2b…0f66 at000c = ╱ee╱ ) ╱ // 0xf37 @0xc
0x0f2b…0f66 at000d = ╱e2╱ =< ╱ // 0xf38 @0xd
0x0f2b…0f66 at000e = ╱22╱"╱ // 0xf39 @0xe
0x0f2b…0f66 at000f = ╱7d╱}╱ // 0xf3a @0xf
0x0f2b…0f66 at0010 = ╱22╱"╱ // 0xf3b @0x10
0x0f2b…0f66 at0011 = ╱d9╱ AND ╱ // 0xf3c @0x11
0x0f2b…0f66 at0012 = ╱52╱R╱ // 0xf3d @0x12
0x0f2b…0f66 at0013 = ╱53╱S╱ // 0xf3e @0x13
0x0f2b…0f66 at0014 = ╱54╱T╱ // 0xf3f @0x14
0x0f2b…0f66 at0015 = ╱ef╱ $ ╱ // 0xf40 @0x15
0x0f2b…0f66 at0016 = ╱ed╱ ( ╱ // 0xf41 @0x16
0x0f2b…0f66 at0017 = ╱49╱I╱ // 0xf42 @0x17
0x0f2b…0f66 at0018 = ╱ee╱ ) ╱ // 0xf43 @0x18
0x0f2b…0f66 at0019 = ╱e3╱ >= ╱ // 0xf44 @0x19
0x0f2b…0f66 at001a = ╱22╱"╱ // 0xf45 @0x1a
0x0f2b…0f66 at001b = ╱61╱a╱ // 0xf46 @0x1b
0x0f2b…0f66 at001c = ╱22╱"╱ // 0xf47 @0x1c
0x0f2b…0f66 at001d = ╱b5╱ THEN ╱ // 0xf48 @0x1d
0x0f2b…0f66 at001e = ╱86╱ LET ╱ // 0xf49 @0x1e
0x0f2b…0f66 at001f = ╱52╱R╱ // 0xf4a @0x1f
0x0f2b…0f66 at0020 = ╱53╱S╱ // 0xf4b @0x20
0x0f2b…0f66 at0021 = ╱54╱T╱ // 0xf4c @0x21
0x0f2b…0f66 at0022 = ╱ef╱ $ ╱ // 0xf4d @0x22
0x0f2b…0f66 at0023 = ╱ed╱ ( ╱ // 0xf4e @0x23
0x0f2b…0f66 at0024 = ╱49╱I╱ // 0xf4f @0x24
0x0f2b…0f66 at0025 = ╱ee╱ ) ╱ // 0xf50 @0x25
0x0f2b…0f66 at0026 = ╱f0╱ := ╱ // 0xf51 @0x26
0x0f2b…0f66 at0027 = ╱d0╱ CHR$ ╱ // 0xf52 @0x27
0x0f2b…0f66 at0028 = ╱ed╱ ( ╱ // 0xf53 @0x28
0x0f2b…0f66 at0029 = ╱cc╱ // 0xf54 @0x29
0x0f2b…0f66 at002a = ╱ed╱ ( ╱ // 0xf55 @0x2a
0x0f2b…0f66 at002b = ╱52╱R╱ // 0xf56 @0x2b
0x0f2b…0f66 at002c = ╱53╱S╱ // 0xf57 @0x2c
0x0f2b…0f66 at002d = ╱54╱T╱ // 0xf58 @0x2d
0x0f2b…0f66 at002e = ╱ef╱ $ ╱ // 0xf59 @0x2e
0x0f2b…0f66 at002f = ╱ed╱ ( ╱ // 0xf5a @0x2f
0x0f2b…0f66 at0030 = ╱49╱I╱ // 0xf5b @0x30
0x0f2b…0f66 at0031 = ╱ee╱ ) ╱ // 0xf5c @0x31
0x0f2b…0f66 at0032 = ╱ee╱ ) ╱ // 0xf5d @0x32
0x0f2b…0f66 at0033 = ╱e6╱ - ╱ // 0xf5e @0x33
0x0f2b…0f66 at0034 = ╱33╱3╱ // 0xf5f @0x34
0x0f2b…0f66 at0035 = ╱32╱2╱ // 0xf60 @0x35
0x0f2b…0f66 at0036 = ╱f22000╱ // 0xf61 @0x36
0x0f2b…0f66 at0039 = ╱ee╱ ) ╱ // 0xf64 @0x39
0x0f2b…0f66 at003a = EOL // 0xf65 @0x3a
0x0f2b…0f66 }
0x0f66…0f6d a55b 01470 NEXT I
0x0f66…0f6d LineComal80 {
0x0f66…0f6d ptr = 0xa55b // 0xf66 @0x0
0x0f66…0f6d lno = 0x05be // 0xf68 @0x2
0x0f66…0f6d at0004 = ╱84╱ NEXT ╱ // 0xf6a @0x4
0x0f66…0f6d at0005 = ╱49╱I╱ // 0xf6b @0x5
0x0f66…0f6d at0006 = EOL // 0xf6c @0x6
0x0f66…0f6d }
0x0f6d…0f7a a568 01480 ENDPROC ST_BGST
0x0f6d…0f7a LineComal80 {
0x0f6d…0f7a ptr = 0xa568 // 0xf6d @0x0
0x0f6d…0f7a lno = 0x05c8 // 0xf6f @0x2
0x0f6d…0f7a at0004 = ╱9f╱ ENDPROC ╱ // 0xf71 @0x4
0x0f6d…0f7a at0005 = ╱53╱S╱ // 0xf72 @0x5
0x0f6d…0f7a at0006 = ╱54╱T╱ // 0xf73 @0x6
0x0f6d…0f7a at0007 = ╱5f╱_╱ // 0xf74 @0x7
0x0f6d…0f7a at0008 = ╱42╱B╱ // 0xf75 @0x8
0x0f6d…0f7a at0009 = ╱47╱G╱ // 0xf76 @0x9
0x0f6d…0f7a at000a = ╱53╱S╱ // 0xf77 @0xa
0x0f6d…0f7a at000b = ╱54╱T╱ // 0xf78 @0xb
0x0f6d…0f7a at000c = EOL // 0xf79 @0xc
0x0f6d…0f7a }
0x0f7a…0f7f a56d 01490
0x0f7a…0f7f LineComal80 {
0x0f7a…0f7f ptr = 0xa56d // 0xf7a @0x0
0x0f7a…0f7f lno = 0x05d2 // 0xf7c @0x2
0x0f7a…0f7f at0004 = EOL // 0xf7e @0x4
0x0f7a…0f7f }
0x0f7f…0f92 a580 01500 PROC L[S_KONTO ( P )
0x0f7f…0f92 LineComal80 {
0x0f7f…0f92 ptr = 0xa580 // 0xf7f @0x0
0x0f7f…0f92 lno = 0x05dc // 0xf81 @0x2
0x0f7f…0f92 at0004 = ╱9e13╱ PROC ╱ // 0xf83 @0x4
0x0f7f…0f92 at0006 = ╱4c╱L╱ // 0xf85 @0x6
0x0f7f…0f92 at0007 = ╱5b╱[╱ // 0xf86 @0x7
0x0f7f…0f92 at0008 = ╱53╱S╱ // 0xf87 @0x8
0x0f7f…0f92 at0009 = ╱5f╱_╱ // 0xf88 @0x9
0x0f7f…0f92 at000a = ╱4b╱K╱ // 0xf89 @0xa
0x0f7f…0f92 at000b = ╱4f╱O╱ // 0xf8a @0xb
0x0f7f…0f92 at000c = ╱4e╱N╱ // 0xf8b @0xc
0x0f7f…0f92 at000d = ╱54╱T╱ // 0xf8c @0xd
0x0f7f…0f92 at000e = ╱4f╱O╱ // 0xf8d @0xe
0x0f7f…0f92 at000f = ╱ed╱ ( ╱ // 0xf8e @0xf
0x0f7f…0f92 at0010 = ╱50╱P╱ // 0xf8f @0x10
0x0f7f…0f92 at0011 = ╱ee╱ ) ╱ // 0xf90 @0x11
0x0f7f…0f92 at0012 = EOL // 0xf91 @0x12
0x0f7f…0f92 }
0x0f92…0fd7 a5c5 01510 GET KONTO $ , P : KTO_TYPE $ , KTO_NAVN $ , KTO_PRIMO , KTO_ULTIMO , KTO_FP , KTO_SP
0x0f92…0fd7 LineComal80 {
0x0f92…0fd7 ptr = 0xa5c5 // 0xf92 @0x0
0x0f92…0fd7 lno = 0x05e6 // 0xf94 @0x2
0x0f92…0fd7 at0004 = ╱a9╱ GET ╱ // 0xf96 @0x4
0x0f92…0fd7 at0005 = ╱4b╱K╱ // 0xf97 @0x5
0x0f92…0fd7 at0006 = ╱4f╱O╱ // 0xf98 @0x6
0x0f92…0fd7 at0007 = ╱4e╱N╱ // 0xf99 @0x7
0x0f92…0fd7 at0008 = ╱54╱T╱ // 0xf9a @0x8
0x0f92…0fd7 at0009 = ╱4f╱O╱ // 0xf9b @0x9
0x0f92…0fd7 at000a = ╱ef╱ $ ╱ // 0xf9c @0xa
0x0f92…0fd7 at000b = ╱ec╱ , ╱ // 0xf9d @0xb
0x0f92…0fd7 at000c = ╱50╱P╱ // 0xf9e @0xc
0x0f92…0fd7 at000d = ╱f1╱ : ╱ // 0xf9f @0xd
0x0f92…0fd7 at000e = ╱4b╱K╱ // 0xfa0 @0xe
0x0f92…0fd7 at000f = ╱54╱T╱ // 0xfa1 @0xf
0x0f92…0fd7 at0010 = ╱4f╱O╱ // 0xfa2 @0x10
0x0f92…0fd7 at0011 = ╱5f╱_╱ // 0xfa3 @0x11
0x0f92…0fd7 at0012 = ╱54╱T╱ // 0xfa4 @0x12
0x0f92…0fd7 at0013 = ╱59╱Y╱ // 0xfa5 @0x13
0x0f92…0fd7 at0014 = ╱50╱P╱ // 0xfa6 @0x14
0x0f92…0fd7 at0015 = ╱45╱E╱ // 0xfa7 @0x15
0x0f92…0fd7 at0016 = ╱ef╱ $ ╱ // 0xfa8 @0x16
0x0f92…0fd7 at0017 = ╱ec╱ , ╱ // 0xfa9 @0x17
0x0f92…0fd7 at0018 = ╱4b╱K╱ // 0xfaa @0x18
0x0f92…0fd7 at0019 = ╱54╱T╱ // 0xfab @0x19
0x0f92…0fd7 at001a = ╱4f╱O╱ // 0xfac @0x1a
0x0f92…0fd7 at001b = ╱5f╱_╱ // 0xfad @0x1b
0x0f92…0fd7 at001c = ╱4e╱N╱ // 0xfae @0x1c
0x0f92…0fd7 at001d = ╱41╱A╱ // 0xfaf @0x1d
0x0f92…0fd7 at001e = ╱56╱V╱ // 0xfb0 @0x1e
0x0f92…0fd7 at001f = ╱4e╱N╱ // 0xfb1 @0x1f
0x0f92…0fd7 at0020 = ╱ef╱ $ ╱ // 0xfb2 @0x20
0x0f92…0fd7 at0021 = ╱ec╱ , ╱ // 0xfb3 @0x21
0x0f92…0fd7 at0022 = ╱4b╱K╱ // 0xfb4 @0x22
0x0f92…0fd7 at0023 = ╱54╱T╱ // 0xfb5 @0x23
0x0f92…0fd7 at0024 = ╱4f╱O╱ // 0xfb6 @0x24
0x0f92…0fd7 at0025 = ╱5f╱_╱ // 0xfb7 @0x25
0x0f92…0fd7 at0026 = ╱50╱P╱ // 0xfb8 @0x26
0x0f92…0fd7 at0027 = ╱52╱R╱ // 0xfb9 @0x27
0x0f92…0fd7 at0028 = ╱49╱I╱ // 0xfba @0x28
0x0f92…0fd7 at0029 = ╱4d╱M╱ // 0xfbb @0x29
0x0f92…0fd7 at002a = ╱4f╱O╱ // 0xfbc @0x2a
0x0f92…0fd7 at002b = ╱ec╱ , ╱ // 0xfbd @0x2b
0x0f92…0fd7 at002c = ╱4b╱K╱ // 0xfbe @0x2c
0x0f92…0fd7 at002d = ╱54╱T╱ // 0xfbf @0x2d
0x0f92…0fd7 at002e = ╱4f╱O╱ // 0xfc0 @0x2e
0x0f92…0fd7 at002f = ╱5f╱_╱ // 0xfc1 @0x2f
0x0f92…0fd7 at0030 = ╱55╱U╱ // 0xfc2 @0x30
0x0f92…0fd7 at0031 = ╱4c╱L╱ // 0xfc3 @0x31
0x0f92…0fd7 at0032 = ╱54╱T╱ // 0xfc4 @0x32
0x0f92…0fd7 at0033 = ╱49╱I╱ // 0xfc5 @0x33
0x0f92…0fd7 at0034 = ╱4d╱M╱ // 0xfc6 @0x34
0x0f92…0fd7 at0035 = ╱4f╱O╱ // 0xfc7 @0x35
0x0f92…0fd7 at0036 = ╱ec╱ , ╱ // 0xfc8 @0x36
0x0f92…0fd7 at0037 = ╱4b╱K╱ // 0xfc9 @0x37
0x0f92…0fd7 at0038 = ╱54╱T╱ // 0xfca @0x38
0x0f92…0fd7 at0039 = ╱4f╱O╱ // 0xfcb @0x39
0x0f92…0fd7 at003a = ╱5f╱_╱ // 0xfcc @0x3a
0x0f92…0fd7 at003b = ╱46╱F╱ // 0xfcd @0x3b
0x0f92…0fd7 at003c = ╱50╱P╱ // 0xfce @0x3c
0x0f92…0fd7 at003d = ╱ec╱ , ╱ // 0xfcf @0x3d
0x0f92…0fd7 at003e = ╱4b╱K╱ // 0xfd0 @0x3e
0x0f92…0fd7 at003f = ╱54╱T╱ // 0xfd1 @0x3f
0x0f92…0fd7 at0040 = ╱4f╱O╱ // 0xfd2 @0x40
0x0f92…0fd7 at0041 = ╱5f╱_╱ // 0xfd3 @0x41
0x0f92…0fd7 at0042 = ╱53╱S╱ // 0xfd4 @0x42
0x0f92…0fd7 at0043 = ╱50╱P╱ // 0xfd5 @0x43
0x0f92…0fd7 at0044 = EOL // 0xfd6 @0x44
0x0f92…0fd7 }
0x0fd7…0fe6 a5d4 01520 ENDPROC L[S_KONTO
0x0fd7…0fe6 LineComal80 {
0x0fd7…0fe6 ptr = 0xa5d4 // 0xfd7 @0x0
0x0fd7…0fe6 lno = 0x05f0 // 0xfd9 @0x2
0x0fd7…0fe6 at0004 = ╱9f╱ ENDPROC ╱ // 0xfdb @0x4
0x0fd7…0fe6 at0005 = ╱4c╱L╱ // 0xfdc @0x5
0x0fd7…0fe6 at0006 = ╱5b╱[╱ // 0xfdd @0x6
0x0fd7…0fe6 at0007 = ╱53╱S╱ // 0xfde @0x7
0x0fd7…0fe6 at0008 = ╱5f╱_╱ // 0xfdf @0x8
0x0fd7…0fe6 at0009 = ╱4b╱K╱ // 0xfe0 @0x9
0x0fd7…0fe6 at000a = ╱4f╱O╱ // 0xfe1 @0xa
0x0fd7…0fe6 at000b = ╱4e╱N╱ // 0xfe2 @0xb
0x0fd7…0fe6 at000c = ╱54╱T╱ // 0xfe3 @0xc
0x0fd7…0fe6 at000d = ╱4f╱O╱ // 0xfe4 @0xd
0x0fd7…0fe6 at000e = EOL // 0xfe5 @0xe
0x0fd7…0fe6 }
0x0fe6…0feb a5d9 01530
0x0fe6…0feb LineComal80 {
0x0fe6…0feb ptr = 0xa5d9 // 0xfe6 @0x0
0x0fe6…0feb lno = 0x05fa // 0xfe8 @0x2
0x0fe6…0feb at0004 = EOL // 0xfea @0x4
0x0fe6…0feb }
0x0feb…0ffe a5ec 01540 PROC TERMINAL_IDX
0x0feb…0ffe LineComal80 {
0x0feb…0ffe ptr = 0xa5ec // 0xfeb @0x0
0x0feb…0ffe lno = 0x0604 // 0xfed @0x2
0x0feb…0ffe at0004 = ╱9e14╱ PROC ╱ // 0xfef @0x4
0x0feb…0ffe at0006 = ╱54╱T╱ // 0xff1 @0x6
0x0feb…0ffe at0007 = ╱45╱E╱ // 0xff2 @0x7
0x0feb…0ffe at0008 = ╱52╱R╱ // 0xff3 @0x8
0x0feb…0ffe at0009 = ╱4d╱M╱ // 0xff4 @0x9
0x0feb…0ffe at000a = ╱49╱I╱ // 0xff5 @0xa
0x0feb…0ffe at000b = ╱4e╱N╱ // 0xff6 @0xb
0x0feb…0ffe at000c = ╱41╱A╱ // 0xff7 @0xc
0x0feb…0ffe at000d = ╱4c╱L╱ // 0xff8 @0xd
0x0feb…0ffe at000e = ╱5f╱_╱ // 0xff9 @0xe
0x0feb…0ffe at000f = ╱49╱I╱ // 0xffa @0xf
0x0feb…0ffe at0010 = ╱44╱D╱ // 0xffb @0x10
0x0feb…0ffe at0011 = ╱58╱X╱ // 0xffc @0x11
0x0feb…0ffe at0012 = EOL // 0xffd @0x12
0x0feb…0ffe }
0x0ffe…1018 a606 01550 LET PPAR := 5 ; RESRV := 0
0x0ffe…1018 LineComal80 {
0x0ffe…1018 ptr = 0xa606 // 0xffe @0x0
0x0ffe…1018 lno = 0x060e // 0x1000 @0x2
0x0ffe…1018 at0004 = ╱86╱ LET ╱ // 0x1002 @0x4
0x0ffe…1018 at0005 = ╱50╱P╱ // 0x1003 @0x5
0x0ffe…1018 at0006 = ╱50╱P╱ // 0x1004 @0x6
0x0ffe…1018 at0007 = ╱41╱A╱ // 0x1005 @0x7
0x0ffe…1018 at0008 = ╱52╱R╱ // 0x1006 @0x8
0x0ffe…1018 at0009 = ╱f0╱ := ╱ // 0x1007 @0x9
0x0ffe…1018 at000a = ╱35╱5╱ // 0x1008 @0xa
0x0ffe…1018 at000b = ╱f20500╱ // 0x1009 @0xb
0x0ffe…1018 at000e = ╱ea╱ ; ╱ // 0x100c @0xe
0x0ffe…1018 at000f = ╱52╱R╱ // 0x100d @0xf
0x0ffe…1018 at0010 = ╱45╱E╱ // 0x100e @0x10
0x0ffe…1018 at0011 = ╱53╱S╱ // 0x100f @0x11
0x0ffe…1018 at0012 = ╱52╱R╱ // 0x1010 @0x12
0x0ffe…1018 at0013 = ╱56╱V╱ // 0x1011 @0x13
0x0ffe…1018 at0014 = ╱f0╱ := ╱ // 0x1012 @0x14
0x0ffe…1018 at0015 = ╱30╱0╱ // 0x1013 @0x15
0x0ffe…1018 at0016 = ╱f20000╱ // 0x1014 @0x16
0x0ffe…1018 at0019 = EOL // 0x1017 @0x19
0x0ffe…1018 }
0x1018…102a a618 01560 CALL :PRES"
0x1018…102a LineComal80 {
0x1018…102a ptr = 0xa618 // 0x1018 @0x0
0x1018…102a lno = 0x0618 // 0x101a @0x2
0x1018…102a at0004 = ╱ad00╱ CALL ╱ // 0x101c @0x4
0x1018…102a at0006 = ╱fe22444445╱ // 0x101e @0x6
0x1018…102a at000b = ╱3a╱:╱ // 0x1023 @0xb
0x1018…102a at000c = ╱50╱P╱ // 0x1024 @0xc
0x1018…102a at000d = ╱52╱R╱ // 0x1025 @0xd
0x1018…102a at000e = ╱45╱E╱ // 0x1026 @0xe
0x1018…102a at000f = ╱53╱S╱ // 0x1027 @0xf
0x1018…102a at0010 = ╱22╱"╱ // 0x1028 @0x10
0x1018…102a at0011 = EOL // 0x1029 @0x11
0x1018…102a }
0x102a…1053 a641 01570 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
0x102a…1053 LineComal80 {
0x102a…1053 ptr = 0xa641 // 0x102a @0x0
0x102a…1053 lno = 0x0622 // 0x102c @0x2
0x102a…1053 at0004 = ╱a9╱ GET ╱ // 0x102e @0x4
0x102a…1053 at0005 = ╱53╱S╱ // 0x102f @0x5
0x102a…1053 at0006 = ╱59╱Y╱ // 0x1030 @0x6
0x102a…1053 at0007 = ╱53╱S╱ // 0x1031 @0x7
0x102a…1053 at0008 = ╱50╱P╱ // 0x1032 @0x8
0x102a…1053 at0009 = ╱41╱A╱ // 0x1033 @0x9
0x102a…1053 at000a = ╱52╱R╱ // 0x1034 @0xa
0x102a…1053 at000b = ╱41╱A╱ // 0x1035 @0xb
0x102a…1053 at000c = ╱ef╱ $ ╱ // 0x1036 @0xc
0x102a…1053 at000d = ╱ec╱ , ╱ // 0x1037 @0xd
0x102a…1053 at000e = ╱31╱1╱ // 0x1038 @0xe
0x102a…1053 at000f = ╱f20100╱ // 0x1039 @0xf
0x102a…1053 at0012 = ╱e5╱ + ╱ // 0x103c @0x12
0x102a…1053 at0013 = ╱52╱R╱ // 0x103d @0x13
0x102a…1053 at0014 = ╱45╱E╱ // 0x103e @0x14
0x102a…1053 at0015 = ╱53╱S╱ // 0x103f @0x15
0x102a…1053 at0016 = ╱52╱R╱ // 0x1040 @0x16
0x102a…1053 at0017 = ╱56╱V╱ // 0x1041 @0x17
0x102a…1053 at0018 = ╱f1╱ : ╱ // 0x1042 @0x18
0x102a…1053 at0019 = ╱44╱D╱ // 0x1043 @0x19
0x102a…1053 at001a = ╱41╱A╱ // 0x1044 @0x1a
0x102a…1053 at001b = ╱54╱T╱ // 0x1045 @0x1b
0x102a…1053 at001c = ╱41╱A╱ // 0x1046 @0x1c
0x102a…1053 at001d = ╱46╱F╱ // 0x1047 @0x1d
0x102a…1053 at001e = ╱4c╱L╱ // 0x1048 @0x1e
0x102a…1053 at001f = ╱ef╱ $ ╱ // 0x1049 @0x1f
0x102a…1053 at0020 = ╱ec╱ , ╱ // 0x104a @0x20
0x102a…1053 at0021 = ╱54╱T╱ // 0x104b @0x21
0x102a…1053 at0022 = ╱5f╱_╱ // 0x104c @0x22
0x102a…1053 at0023 = ╱4b╱K╱ // 0x104d @0x23
0x102a…1053 at0024 = ╱4f╱O╱ // 0x104e @0x24
0x102a…1053 at0025 = ╱44╱D╱ // 0x104f @0x25
0x102a…1053 at0026 = ╱45╱E╱ // 0x1050 @0x26
0x102a…1053 at0027 = ╱ef╱ $ ╱ // 0x1051 @0x27
0x102a…1053 at0028 = EOL // 0x1052 @0x28
0x102a…1053 }
0x1053…1065 a653 01580 ENDPROC TERMINAL_IDX
0x1053…1065 LineComal80 {
0x1053…1065 ptr = 0xa653 // 0x1053 @0x0
0x1053…1065 lno = 0x062c // 0x1055 @0x2
0x1053…1065 at0004 = ╱9f╱ ENDPROC ╱ // 0x1057 @0x4
0x1053…1065 at0005 = ╱54╱T╱ // 0x1058 @0x5
0x1053…1065 at0006 = ╱45╱E╱ // 0x1059 @0x6
0x1053…1065 at0007 = ╱52╱R╱ // 0x105a @0x7
0x1053…1065 at0008 = ╱4d╱M╱ // 0x105b @0x8
0x1053…1065 at0009 = ╱49╱I╱ // 0x105c @0x9
0x1053…1065 at000a = ╱4e╱N╱ // 0x105d @0xa
0x1053…1065 at000b = ╱41╱A╱ // 0x105e @0xb
0x1053…1065 at000c = ╱4c╱L╱ // 0x105f @0xc
0x1053…1065 at000d = ╱5f╱_╱ // 0x1060 @0xd
0x1053…1065 at000e = ╱49╱I╱ // 0x1061 @0xe
0x1053…1065 at000f = ╱44╱D╱ // 0x1062 @0xf
0x1053…1065 at0010 = ╱58╱X╱ // 0x1063 @0x10
0x1053…1065 at0011 = EOL // 0x1064 @0x11
0x1053…1065 }
0x1065…106a a658 01590
0x1065…106a LineComal80 {
0x1065…106a ptr = 0xa658 // 0x1065 @0x0
0x1065…106a lno = 0x0636 // 0x1067 @0x2
0x1065…106a at0004 = EOL // 0x1069 @0x4
0x1065…106a }
0x106a…107a a668 01600 PROC FEJL ( ST $ )
0x106a…107a LineComal80 {
0x106a…107a ptr = 0xa668 // 0x106a @0x0
0x106a…107a lno = 0x0640 // 0x106c @0x2
0x106a…107a at0004 = ╱9e15╱ PROC ╱ // 0x106e @0x4
0x106a…107a at0006 = ╱46╱F╱ // 0x1070 @0x6
0x106a…107a at0007 = ╱45╱E╱ // 0x1071 @0x7
0x106a…107a at0008 = ╱4a╱J╱ // 0x1072 @0x8
0x106a…107a at0009 = ╱4c╱L╱ // 0x1073 @0x9
0x106a…107a at000a = ╱ed╱ ( ╱ // 0x1074 @0xa
0x106a…107a at000b = ╱53╱S╱ // 0x1075 @0xb
0x106a…107a at000c = ╱54╱T╱ // 0x1076 @0xc
0x106a…107a at000d = ╱ef╱ $ ╱ // 0x1077 @0xd
0x106a…107a at000e = ╱ee╱ ) ╱ // 0x1078 @0xe
0x106a…107a at000f = EOL // 0x1079 @0xf
0x106a…107a }
0x107a…1088 a676 01610 LET OK := FALSE
0x107a…1088 LineComal80 {
0x107a…1088 ptr = 0xa676 // 0x107a @0x0
0x107a…1088 lno = 0x064a // 0x107c @0x2
0x107a…1088 at0004 = ╱86╱ LET ╱ // 0x107e @0x4
0x107a…1088 at0005 = ╱4f╱O╱ // 0x107f @0x5
0x107a…1088 at0006 = ╱4b╱K╱ // 0x1080 @0x6
0x107a…1088 at0007 = ╱f0╱ := ╱ // 0x1081 @0x7
0x107a…1088 at0008 = ╱46╱F╱ // 0x1082 @0x8
0x107a…1088 at0009 = ╱41╱A╱ // 0x1083 @0x9
0x107a…1088 at000a = ╱4c╱L╱ // 0x1084 @0xa
0x107a…1088 at000b = ╱53╱S╱ // 0x1085 @0xb
0x107a…1088 at000c = ╱45╱E╱ // 0x1086 @0xc
0x107a…1088 at000d = EOL // 0x1087 @0xd
0x107a…1088 }
0x1088…10a4 a692 01620 CURSOR 36 - ╱cb╱ ( ST $ ) / 2 , 2
0x1088…10a4 LineComal80 {
0x1088…10a4 ptr = 0xa692 // 0x1088 @0x0
0x1088…10a4 lno = 0x0654 // 0x108a @0x2
0x1088…10a4 at0004 = ╱a1╱ CURSOR ╱ // 0x108c @0x4
0x1088…10a4 at0005 = ╱33╱3╱ // 0x108d @0x5
0x1088…10a4 at0006 = ╱36╱6╱ // 0x108e @0x6
0x1088…10a4 at0007 = ╱f22400╱ // 0x108f @0x7
0x1088…10a4 at000a = ╱e6╱ - ╱ // 0x1092 @0xa
0x1088…10a4 at000b = ╱cb╱ // 0x1093 @0xb
0x1088…10a4 at000c = ╱ed╱ ( ╱ // 0x1094 @0xc
0x1088…10a4 at000d = ╱53╱S╱ // 0x1095 @0xd
0x1088…10a4 at000e = ╱54╱T╱ // 0x1096 @0xe
0x1088…10a4 at000f = ╱ef╱ $ ╱ // 0x1097 @0xf
0x1088…10a4 at0010 = ╱ee╱ ) ╱ // 0x1098 @0x10
0x1088…10a4 at0011 = ╱e8╱ / ╱ // 0x1099 @0x11
0x1088…10a4 at0012 = ╱32╱2╱ // 0x109a @0x12
0x1088…10a4 at0013 = ╱f20200╱ // 0x109b @0x13
0x1088…10a4 at0016 = ╱ec╱ , ╱ // 0x109e @0x16
0x1088…10a4 at0017 = ╱32╱2╱ // 0x109f @0x17
0x1088…10a4 at0018 = ╱f20200╱ // 0x10a0 @0x18
0x1088…10a4 at001b = EOL // 0x10a3 @0x1b
0x1088…10a4 }
0x10a4…10c3 a6b1 01630 PRINT "***…" + ST $ + "…***" ; CHR$ ( 7 )
0x10a4…10c3 LineComal80 {
0x10a4…10c3 ptr = 0xa6b1 // 0x10a4 @0x0
0x10a4…10c3 lno = 0x065e // 0x10a6 @0x2
0x10a4…10c3 at0004 = ╱92╱ PRINT ╱ // 0x10a8 @0x4
0x10a4…10c3 at0005 = ╱22╱"╱ // 0x10a9 @0x5
0x10a4…10c3 at0006 = ╱2a╱*╱ // 0x10aa @0x6
0x10a4…10c3 at0007 = ╱2a╱*╱ // 0x10ab @0x7
0x10a4…10c3 at0008 = ╱2a╱*╱ // 0x10ac @0x8
0x10a4…10c3 at0009 = ╱20╱…╱ // 0x10ad @0x9
0x10a4…10c3 at000a = ╱22╱"╱ // 0x10ae @0xa
0x10a4…10c3 at000b = ╱eb╱ + ╱ // 0x10af @0xb
0x10a4…10c3 at000c = ╱53╱S╱ // 0x10b0 @0xc
0x10a4…10c3 at000d = ╱54╱T╱ // 0x10b1 @0xd
0x10a4…10c3 at000e = ╱ef╱ $ ╱ // 0x10b2 @0xe
0x10a4…10c3 at000f = ╱eb╱ + ╱ // 0x10b3 @0xf
0x10a4…10c3 at0010 = ╱22╱"╱ // 0x10b4 @0x10
0x10a4…10c3 at0011 = ╱20╱…╱ // 0x10b5 @0x11
0x10a4…10c3 at0012 = ╱2a╱*╱ // 0x10b6 @0x12
0x10a4…10c3 at0013 = ╱2a╱*╱ // 0x10b7 @0x13
0x10a4…10c3 at0014 = ╱2a╱*╱ // 0x10b8 @0x14
0x10a4…10c3 at0015 = ╱22╱"╱ // 0x10b9 @0x15
0x10a4…10c3 at0016 = ╱ea╱ ; ╱ // 0x10ba @0x16
0x10a4…10c3 at0017 = ╱d0╱ CHR$ ╱ // 0x10bb @0x17
0x10a4…10c3 at0018 = ╱ed╱ ( ╱ // 0x10bc @0x18
0x10a4…10c3 at0019 = ╱37╱7╱ // 0x10bd @0x19
0x10a4…10c3 at001a = ╱f20700╱ // 0x10be @0x1a
0x10a4…10c3 at001d = ╱ee╱ ) ╱ // 0x10c1 @0x1d
0x10a4…10c3 at001e = EOL // 0x10c2 @0x1e
0x10a4…10c3 }
0x10c3…10cd a6bb 01640 ENDPROC FEJL
0x10c3…10cd LineComal80 {
0x10c3…10cd ptr = 0xa6bb // 0x10c3 @0x0
0x10c3…10cd lno = 0x0668 // 0x10c5 @0x2
0x10c3…10cd at0004 = ╱9f╱ ENDPROC ╱ // 0x10c7 @0x4
0x10c3…10cd at0005 = ╱46╱F╱ // 0x10c8 @0x5
0x10c3…10cd at0006 = ╱45╱E╱ // 0x10c9 @0x6
0x10c3…10cd at0007 = ╱4a╱J╱ // 0x10ca @0x7
0x10c3…10cd at0008 = ╱4c╱L╱ // 0x10cb @0x8
0x10c3…10cd at0009 = EOL // 0x10cc @0x9
0x10c3…10cd }
0x10cd…10d2 a6c0 01650
0x10cd…10d2 LineComal80 {
0x10cd…10d2 ptr = 0xa6c0 // 0x10cd @0x0
0x10cd…10d2 lno = 0x0672 // 0x10cf @0x2
0x10cd…10d2 at0004 = EOL // 0x10d1 @0x4
0x10cd…10d2 }
0x10d2…10e5 a6d3 01660 PROC SL_FEJLLINIE
0x10d2…10e5 LineComal80 {
0x10d2…10e5 ptr = 0xa6d3 // 0x10d2 @0x0
0x10d2…10e5 lno = 0x067c // 0x10d4 @0x2
0x10d2…10e5 at0004 = ╱9e16╱ PROC ╱ // 0x10d6 @0x4
0x10d2…10e5 at0006 = ╱53╱S╱ // 0x10d8 @0x6
0x10d2…10e5 at0007 = ╱4c╱L╱ // 0x10d9 @0x7
0x10d2…10e5 at0008 = ╱5f╱_╱ // 0x10da @0x8
0x10d2…10e5 at0009 = ╱46╱F╱ // 0x10db @0x9
0x10d2…10e5 at000a = ╱45╱E╱ // 0x10dc @0xa
0x10d2…10e5 at000b = ╱4a╱J╱ // 0x10dd @0xb
0x10d2…10e5 at000c = ╱4c╱L╱ // 0x10de @0xc
0x10d2…10e5 at000d = ╱4c╱L╱ // 0x10df @0xd
0x10d2…10e5 at000e = ╱49╱I╱ // 0x10e0 @0xe
0x10d2…10e5 at000f = ╱4e╱N╱ // 0x10e1 @0xf
0x10d2…10e5 at0010 = ╱49╱I╱ // 0x10e2 @0x10
0x10d2…10e5 at0011 = ╱45╱E╱ // 0x10e3 @0x11
0x10d2…10e5 at0012 = EOL // 0x10e4 @0x12
0x10d2…10e5 }
0x10e5…10f2 a6e0 01670 LET OK := TRUE
0x10e5…10f2 LineComal80 {
0x10e5…10f2 ptr = 0xa6e0 // 0x10e5 @0x0
0x10e5…10f2 lno = 0x0686 // 0x10e7 @0x2
0x10e5…10f2 at0004 = ╱86╱ LET ╱ // 0x10e9 @0x4
0x10e5…10f2 at0005 = ╱4f╱O╱ // 0x10ea @0x5
0x10e5…10f2 at0006 = ╱4b╱K╱ // 0x10eb @0x6
0x10e5…10f2 at0007 = ╱f0╱ := ╱ // 0x10ec @0x7
0x10e5…10f2 at0008 = ╱54╱T╱ // 0x10ed @0x8
0x10e5…10f2 at0009 = ╱52╱R╱ // 0x10ee @0x9
0x10e5…10f2 at000a = ╱55╱U╱ // 0x10ef @0xa
0x10e5…10f2 at000b = ╱45╱E╱ // 0x10f0 @0xb
0x10e5…10f2 at000c = EOL // 0x10f1 @0xc
0x10e5…10f2 }
0x10f2…1106 a6f4 01680 PRINT "<C0102>" ; SPC $
0x10f2…1106 LineComal80 {
0x10f2…1106 ptr = 0xa6f4 // 0x10f2 @0x0
0x10f2…1106 lno = 0x0690 // 0x10f4 @0x2
0x10f2…1106 at0004 = ╱92╱ PRINT ╱ // 0x10f6 @0x4
0x10f2…1106 at0005 = ╱22╱"╱ // 0x10f7 @0x5
0x10f2…1106 at0006 = ╱3c╱<╱ // 0x10f8 @0x6
0x10f2…1106 at0007 = ╱43╱C╱ // 0x10f9 @0x7
0x10f2…1106 at0008 = ╱30╱0╱ // 0x10fa @0x8
0x10f2…1106 at0009 = ╱31╱1╱ // 0x10fb @0x9
0x10f2…1106 at000a = ╱30╱0╱ // 0x10fc @0xa
0x10f2…1106 at000b = ╱32╱2╱ // 0x10fd @0xb
0x10f2…1106 at000c = ╱3e╱>╱ // 0x10fe @0xc
0x10f2…1106 at000d = ╱22╱"╱ // 0x10ff @0xd
0x10f2…1106 at000e = ╱ea╱ ; ╱ // 0x1100 @0xe
0x10f2…1106 at000f = ╱53╱S╱ // 0x1101 @0xf
0x10f2…1106 at0010 = ╱50╱P╱ // 0x1102 @0x10
0x10f2…1106 at0011 = ╱43╱C╱ // 0x1103 @0x11
0x10f2…1106 at0012 = ╱ef╱ $ ╱ // 0x1104 @0x12
0x10f2…1106 at0013 = EOL // 0x1105 @0x13
0x10f2…1106 }
0x1106…1118 a706 01690 ENDPROC SL_FEJLLINIE
0x1106…1118 LineComal80 {
0x1106…1118 ptr = 0xa706 // 0x1106 @0x0
0x1106…1118 lno = 0x069a // 0x1108 @0x2
0x1106…1118 at0004 = ╱9f╱ ENDPROC ╱ // 0x110a @0x4
0x1106…1118 at0005 = ╱53╱S╱ // 0x110b @0x5
0x1106…1118 at0006 = ╱4c╱L╱ // 0x110c @0x6
0x1106…1118 at0007 = ╱5f╱_╱ // 0x110d @0x7
0x1106…1118 at0008 = ╱46╱F╱ // 0x110e @0x8
0x1106…1118 at0009 = ╱45╱E╱ // 0x110f @0x9
0x1106…1118 at000a = ╱4a╱J╱ // 0x1110 @0xa
0x1106…1118 at000b = ╱4c╱L╱ // 0x1111 @0xb
0x1106…1118 at000c = ╱4c╱L╱ // 0x1112 @0xc
0x1106…1118 at000d = ╱49╱I╱ // 0x1113 @0xd
0x1106…1118 at000e = ╱4e╱N╱ // 0x1114 @0xe
0x1106…1118 at000f = ╱49╱I╱ // 0x1115 @0xf
0x1106…1118 at0010 = ╱45╱E╱ // 0x1116 @0x10
0x1106…1118 at0011 = EOL // 0x1117 @0x11
0x1106…1118 }
0x1118…1141 a72f 01700 PROC SKRIV_LIN ( REF R_NR $ , REF R_NAVN $ , REF R_TYP $ )
0x1118…1141 LineComal80 {
0x1118…1141 ptr = 0xa72f // 0x1118 @0x0
0x1118…1141 lno = 0x06a4 // 0x111a @0x2
0x1118…1141 at0004 = ╱9e17╱ PROC ╱ // 0x111c @0x4
0x1118…1141 at0006 = ╱53╱S╱ // 0x111e @0x6
0x1118…1141 at0007 = ╱4b╱K╱ // 0x111f @0x7
0x1118…1141 at0008 = ╱52╱R╱ // 0x1120 @0x8
0x1118…1141 at0009 = ╱49╱I╱ // 0x1121 @0x9
0x1118…1141 at000a = ╱56╱V╱ // 0x1122 @0xa
0x1118…1141 at000b = ╱5f╱_╱ // 0x1123 @0xb
0x1118…1141 at000c = ╱4c╱L╱ // 0x1124 @0xc
0x1118…1141 at000d = ╱49╱I╱ // 0x1125 @0xd
0x1118…1141 at000e = ╱4e╱N╱ // 0x1126 @0xe
0x1118…1141 at000f = ╱ed╱ ( ╱ // 0x1127 @0xf
0x1118…1141 at0010 = ╱b6╱ REF ╱ // 0x1128 @0x10
0x1118…1141 at0011 = ╱52╱R╱ // 0x1129 @0x11
0x1118…1141 at0012 = ╱5f╱_╱ // 0x112a @0x12
0x1118…1141 at0013 = ╱4e╱N╱ // 0x112b @0x13
0x1118…1141 at0014 = ╱52╱R╱ // 0x112c @0x14
0x1118…1141 at0015 = ╱ef╱ $ ╱ // 0x112d @0x15
0x1118…1141 at0016 = ╱ec╱ , ╱ // 0x112e @0x16
0x1118…1141 at0017 = ╱b6╱ REF ╱ // 0x112f @0x17
0x1118…1141 at0018 = ╱52╱R╱ // 0x1130 @0x18
0x1118…1141 at0019 = ╱5f╱_╱ // 0x1131 @0x19
0x1118…1141 at001a = ╱4e╱N╱ // 0x1132 @0x1a
0x1118…1141 at001b = ╱41╱A╱ // 0x1133 @0x1b
0x1118…1141 at001c = ╱56╱V╱ // 0x1134 @0x1c
0x1118…1141 at001d = ╱4e╱N╱ // 0x1135 @0x1d
0x1118…1141 at001e = ╱ef╱ $ ╱ // 0x1136 @0x1e
0x1118…1141 at001f = ╱ec╱ , ╱ // 0x1137 @0x1f
0x1118…1141 at0020 = ╱b6╱ REF ╱ // 0x1138 @0x20
0x1118…1141 at0021 = ╱52╱R╱ // 0x1139 @0x21
0x1118…1141 at0022 = ╱5f╱_╱ // 0x113a @0x22
0x1118…1141 at0023 = ╱54╱T╱ // 0x113b @0x23
0x1118…1141 at0024 = ╱59╱Y╱ // 0x113c @0x24
0x1118…1141 at0025 = ╱50╱P╱ // 0x113d @0x25
0x1118…1141 at0026 = ╱ef╱ $ ╱ // 0x113e @0x26
0x1118…1141 at0027 = ╱ee╱ ) ╱ // 0x113f @0x27
0x1118…1141 at0028 = EOL // 0x1140 @0x28
0x1118…1141 }
0x1141…1165 a753 01710 IF LIN_T + 5 > MAX_LIN THEN EXEC SIDESKIFT
0x1141…1165 LineComal80 {
0x1141…1165 ptr = 0xa753 // 0x1141 @0x0
0x1141…1165 lno = 0x06ae // 0x1143 @0x2
0x1141…1165 at0004 = ╱8200╱ IF ╱ // 0x1145 @0x4
0x1141…1165 at0006 = ╱4c╱L╱ // 0x1147 @0x6
0x1141…1165 at0007 = ╱49╱I╱ // 0x1148 @0x7
0x1141…1165 at0008 = ╱4e╱N╱ // 0x1149 @0x8
0x1141…1165 at0009 = ╱5f╱_╱ // 0x114a @0x9
0x1141…1165 at000a = ╱54╱T╱ // 0x114b @0xa
0x1141…1165 at000b = ╱e5╱ + ╱ // 0x114c @0xb
0x1141…1165 at000c = ╱35╱5╱ // 0x114d @0xc
0x1141…1165 at000d = ╱f20500╱ // 0x114e @0xd
0x1141…1165 at0010 = ╱e1╱ > ╱ // 0x1151 @0x10
0x1141…1165 at0011 = ╱4d╱M╱ // 0x1152 @0x11
0x1141…1165 at0012 = ╱41╱A╱ // 0x1153 @0x12
0x1141…1165 at0013 = ╱58╱X╱ // 0x1154 @0x13
0x1141…1165 at0014 = ╱5f╱_╱ // 0x1155 @0x14
0x1141…1165 at0015 = ╱4c╱L╱ // 0x1156 @0x15
0x1141…1165 at0016 = ╱49╱I╱ // 0x1157 @0x16
0x1141…1165 at0017 = ╱4e╱N╱ // 0x1158 @0x17
0x1141…1165 at0018 = ╱b5╱ THEN ╱ // 0x1159 @0x18
0x1141…1165 at0019 = ╱9d╱ EXEC ╱ // 0x115a @0x19
0x1141…1165 at001a = ╱53╱S╱ // 0x115b @0x1a
0x1141…1165 at001b = ╱49╱I╱ // 0x115c @0x1b
0x1141…1165 at001c = ╱44╱D╱ // 0x115d @0x1c
0x1141…1165 at001d = ╱45╱E╱ // 0x115e @0x1d
0x1141…1165 at001e = ╱53╱S╱ // 0x115f @0x1e
0x1141…1165 at001f = ╱4b╱K╱ // 0x1160 @0x1f
0x1141…1165 at0020 = ╱49╱I╱ // 0x1161 @0x20
0x1141…1165 at0021 = ╱46╱F╱ // 0x1162 @0x21
0x1141…1165 at0022 = ╱54╱T╱ // 0x1163 @0x22
0x1141…1165 at0023 = EOL // 0x1164 @0x23
0x1141…1165 }
0x1165…118e a77c 01720 IF _NR $ ( 1 : 2 ) >< R_NR $ ( 1 : 2 ) THEN
0x1165…118e LineComal80 {
0x1165…118e ptr = 0xa77c // 0x1165 @0x0
0x1165…118e lno = 0x06b8 // 0x1167 @0x2
0x1165…118e at0004 = ╱9b1841╱ IF ╱ // 0x1169 @0x4
0x1165…118e at0007 = ╱5f╱_╱ // 0x116c @0x7
0x1165…118e at0008 = ╱4e╱N╱ // 0x116d @0x8
0x1165…118e at0009 = ╱52╱R╱ // 0x116e @0x9
0x1165…118e at000a = ╱ef╱ $ ╱ // 0x116f @0xa
0x1165…118e at000b = ╱ed╱ ( ╱ // 0x1170 @0xb
0x1165…118e at000c = ╱31╱1╱ // 0x1171 @0xc
0x1165…118e at000d = ╱f20100╱ // 0x1172 @0xd
0x1165…118e at0010 = ╱f1╱ : ╱ // 0x1175 @0x10
0x1165…118e at0011 = ╱32╱2╱ // 0x1176 @0x11
0x1165…118e at0012 = ╱f20200╱ // 0x1177 @0x12
0x1165…118e at0015 = ╱ee╱ ) ╱ // 0x117a @0x15
0x1165…118e at0016 = ╱e4╱ >< ╱ // 0x117b @0x16
0x1165…118e at0017 = ╱52╱R╱ // 0x117c @0x17
0x1165…118e at0018 = ╱5f╱_╱ // 0x117d @0x18
0x1165…118e at0019 = ╱4e╱N╱ // 0x117e @0x19
0x1165…118e at001a = ╱52╱R╱ // 0x117f @0x1a
0x1165…118e at001b = ╱ef╱ $ ╱ // 0x1180 @0x1b
0x1165…118e at001c = ╱ed╱ ( ╱ // 0x1181 @0x1c
0x1165…118e at001d = ╱31╱1╱ // 0x1182 @0x1d
0x1165…118e at001e = ╱f20100╱ // 0x1183 @0x1e
0x1165…118e at0021 = ╱f1╱ : ╱ // 0x1186 @0x21
0x1165…118e at0022 = ╱32╱2╱ // 0x1187 @0x22
0x1165…118e at0023 = ╱f20200╱ // 0x1188 @0x23
0x1165…118e at0026 = ╱ee╱ ) ╱ // 0x118b @0x26
0x1165…118e at0027 = ╱b5╱ THEN ╱ // 0x118c @0x27
0x1165…118e at0028 = EOL // 0x118d @0x28
0x1165…118e }
0x118e…1194 a782 01730 PRINT
0x118e…1194 LineComal80 {
0x118e…1194 ptr = 0xa782 // 0x118e @0x0
0x118e…1194 lno = 0x06c2 // 0x1190 @0x2
0x118e…1194 at0004 = ╱92╱ PRINT ╱ // 0x1192 @0x4
0x118e…1194 at0005 = EOL // 0x1193 @0x5
0x118e…1194 }
0x1194…11aa a798 01740 LET LIN_T := LIN_T + 1
0x1194…11aa LineComal80 {
0x1194…11aa ptr = 0xa798 // 0x1194 @0x0
0x1194…11aa lno = 0x06cc // 0x1196 @0x2
0x1194…11aa at0004 = ╱86╱ LET ╱ // 0x1198 @0x4
0x1194…11aa at0005 = ╱4c╱L╱ // 0x1199 @0x5
0x1194…11aa at0006 = ╱49╱I╱ // 0x119a @0x6
0x1194…11aa at0007 = ╱4e╱N╱ // 0x119b @0x7
0x1194…11aa at0008 = ╱5f╱_╱ // 0x119c @0x8
0x1194…11aa at0009 = ╱54╱T╱ // 0x119d @0x9
0x1194…11aa at000a = ╱f0╱ := ╱ // 0x119e @0xa
0x1194…11aa at000b = ╱4c╱L╱ // 0x119f @0xb
0x1194…11aa at000c = ╱49╱I╱ // 0x11a0 @0xc
0x1194…11aa at000d = ╱4e╱N╱ // 0x11a1 @0xd
0x1194…11aa at000e = ╱5f╱_╱ // 0x11a2 @0xe
0x1194…11aa at000f = ╱54╱T╱ // 0x11a3 @0xf
0x1194…11aa at0010 = ╱e5╱ + ╱ // 0x11a4 @0x10
0x1194…11aa at0011 = ╱31╱1╱ // 0x11a5 @0x11
0x1194…11aa at0012 = ╱f20100╱ // 0x11a6 @0x12
0x1194…11aa at0015 = EOL // 0x11a9 @0x15
0x1194…11aa }
0x11aa…11b0 a79e 01750 ENDIF
0x11aa…11b0 LineComal80 {
0x11aa…11b0 ptr = 0xa79e // 0x11aa @0x0
0x11aa…11b0 lno = 0x06d6 // 0x11ac @0x2
0x11aa…11b0 at0004 = ╱9c╱ ENDIF ╱ // 0x11ae @0x4
0x11aa…11b0 at0005 = EOL // 0x11af @0x5
0x11aa…11b0 }
0x11b0…11d2 ad2f 01760 LET A_NR $ := R_NR $ ; LIN_T := LIN_T + 1
0x11b0…11d2 LineComal80 {
0x11b0…11d2 ptr = 0xad2f // 0x11b0 @0x0
0x11b0…11d2 lno = 0x06e0 // 0x11b2 @0x2
0x11b0…11d2 at0004 = ╱86╱ LET ╱ // 0x11b4 @0x4
0x11b0…11d2 at0005 = ╱41╱A╱ // 0x11b5 @0x5
0x11b0…11d2 at0006 = ╱5f╱_╱ // 0x11b6 @0x6
0x11b0…11d2 at0007 = ╱4e╱N╱ // 0x11b7 @0x7
0x11b0…11d2 at0008 = ╱52╱R╱ // 0x11b8 @0x8
0x11b0…11d2 at0009 = ╱ef╱ $ ╱ // 0x11b9 @0x9
0x11b0…11d2 at000a = ╱f0╱ := ╱ // 0x11ba @0xa
0x11b0…11d2 at000b = ╱52╱R╱ // 0x11bb @0xb
0x11b0…11d2 at000c = ╱5f╱_╱ // 0x11bc @0xc
0x11b0…11d2 at000d = ╱4e╱N╱ // 0x11bd @0xd
0x11b0…11d2 at000e = ╱52╱R╱ // 0x11be @0xe
0x11b0…11d2 at000f = ╱ef╱ $ ╱ // 0x11bf @0xf
0x11b0…11d2 at0010 = ╱ea╱ ; ╱ // 0x11c0 @0x10
0x11b0…11d2 at0011 = ╱4c╱L╱ // 0x11c1 @0x11
0x11b0…11d2 at0012 = ╱49╱I╱ // 0x11c2 @0x12
0x11b0…11d2 at0013 = ╱4e╱N╱ // 0x11c3 @0x13
0x11b0…11d2 at0014 = ╱5f╱_╱ // 0x11c4 @0x14
0x11b0…11d2 at0015 = ╱54╱T╱ // 0x11c5 @0x15
0x11b0…11d2 at0016 = ╱f0╱ := ╱ // 0x11c6 @0x16
0x11b0…11d2 at0017 = ╱4c╱L╱ // 0x11c7 @0x17
0x11b0…11d2 at0018 = ╱49╱I╱ // 0x11c8 @0x18
0x11b0…11d2 at0019 = ╱4e╱N╱ // 0x11c9 @0x19
0x11b0…11d2 at001a = ╱5f╱_╱ // 0x11ca @0x1a
0x11b0…11d2 at001b = ╱54╱T╱ // 0x11cb @0x1b
0x11b0…11d2 at001c = ╱e5╱ + ╱ // 0x11cc @0x1c
0x11b0…11d2 at001d = ╱31╱1╱ // 0x11cd @0x1d
0x11b0…11d2 at001e = ╱f20100╱ // 0x11ce @0x1e
0x11b0…11d2 at0021 = EOL // 0x11d1 @0x21
0x11b0…11d2 }
0x11d2…1202 a7f0 01880 PRINT "…" ; R_NR $ ; TAB ( 12 ) ; R_NAVN $ ; TAB ( 52 ) ; R_TYP $
0x11d2…1202 LineComal80 {
0x11d2…1202 ptr = 0xa7f0 // 0x11d2 @0x0
0x11d2…1202 lno = 0x0758 // 0x11d4 @0x2
0x11d2…1202 at0004 = ╱92╱ PRINT ╱ // 0x11d6 @0x4
0x11d2…1202 at0005 = ╱22╱"╱ // 0x11d7 @0x5
0x11d2…1202 at0006 = ╱20╱…╱ // 0x11d8 @0x6
0x11d2…1202 at0007 = ╱22╱"╱ // 0x11d9 @0x7
0x11d2…1202 at0008 = ╱ea╱ ; ╱ // 0x11da @0x8
0x11d2…1202 at0009 = ╱52╱R╱ // 0x11db @0x9
0x11d2…1202 at000a = ╱5f╱_╱ // 0x11dc @0xa
0x11d2…1202 at000b = ╱4e╱N╱ // 0x11dd @0xb
0x11d2…1202 at000c = ╱52╱R╱ // 0x11de @0xc
0x11d2…1202 at000d = ╱ef╱ $ ╱ // 0x11df @0xd
0x11d2…1202 at000e = ╱ea╱ ; ╱ // 0x11e0 @0xe
0x11d2…1202 at000f = ╱d2╱ TAB ╱ // 0x11e1 @0xf
0x11d2…1202 at0010 = ╱ed╱ ( ╱ // 0x11e2 @0x10
0x11d2…1202 at0011 = ╱31╱1╱ // 0x11e3 @0x11
0x11d2…1202 at0012 = ╱32╱2╱ // 0x11e4 @0x12
0x11d2…1202 at0013 = ╱f20c00╱ // 0x11e5 @0x13
0x11d2…1202 at0016 = ╱ee╱ ) ╱ // 0x11e8 @0x16
0x11d2…1202 at0017 = ╱ea╱ ; ╱ // 0x11e9 @0x17
0x11d2…1202 at0018 = ╱52╱R╱ // 0x11ea @0x18
0x11d2…1202 at0019 = ╱5f╱_╱ // 0x11eb @0x19
0x11d2…1202 at001a = ╱4e╱N╱ // 0x11ec @0x1a
0x11d2…1202 at001b = ╱41╱A╱ // 0x11ed @0x1b
0x11d2…1202 at001c = ╱56╱V╱ // 0x11ee @0x1c
0x11d2…1202 at001d = ╱4e╱N╱ // 0x11ef @0x1d
0x11d2…1202 at001e = ╱ef╱ $ ╱ // 0x11f0 @0x1e
0x11d2…1202 at001f = ╱ea╱ ; ╱ // 0x11f1 @0x1f
0x11d2…1202 at0020 = ╱d2╱ TAB ╱ // 0x11f2 @0x20
0x11d2…1202 at0021 = ╱ed╱ ( ╱ // 0x11f3 @0x21
0x11d2…1202 at0022 = ╱35╱5╱ // 0x11f4 @0x22
0x11d2…1202 at0023 = ╱32╱2╱ // 0x11f5 @0x23
0x11d2…1202 at0024 = ╱f23400╱ // 0x11f6 @0x24
0x11d2…1202 at0027 = ╱ee╱ ) ╱ // 0x11f9 @0x27
0x11d2…1202 at0028 = ╱ea╱ ; ╱ // 0x11fa @0x28
0x11d2…1202 at0029 = ╱52╱R╱ // 0x11fb @0x29
0x11d2…1202 at002a = ╱5f╱_╱ // 0x11fc @0x2a
0x11d2…1202 at002b = ╱54╱T╱ // 0x11fd @0x2b
0x11d2…1202 at002c = ╱59╱Y╱ // 0x11fe @0x2c
0x11d2…1202 at002d = ╱50╱P╱ // 0x11ff @0x2d
0x11d2…1202 at002e = ╱ef╱ $ ╱ // 0x1200 @0x2e
0x11d2…1202 at002f = EOL // 0x1201 @0x2f
0x11d2…1202 }
0x1202…1211 a7ff 01780 ENDPROC SKRIV_LIN
0x1202…1211 LineComal80 {
0x1202…1211 ptr = 0xa7ff // 0x1202 @0x0
0x1202…1211 lno = 0x06f4 // 0x1204 @0x2
0x1202…1211 at0004 = ╱9f╱ ENDPROC ╱ // 0x1206 @0x4
0x1202…1211 at0005 = ╱53╱S╱ // 0x1207 @0x5
0x1202…1211 at0006 = ╱4b╱K╱ // 0x1208 @0x6
0x1202…1211 at0007 = ╱52╱R╱ // 0x1209 @0x7
0x1202…1211 at0008 = ╱49╱I╱ // 0x120a @0x8
0x1202…1211 at0009 = ╱56╱V╱ // 0x120b @0x9
0x1202…1211 at000a = ╱5f╱_╱ // 0x120c @0xa
0x1202…1211 at000b = ╱4c╱L╱ // 0x120d @0xb
0x1202…1211 at000c = ╱49╱I╱ // 0x120e @0xc
0x1202…1211 at000d = ╱4e╱N╱ // 0x120f @0xd
0x1202…1211 at000e = EOL // 0x1210 @0xe
0x1202…1211 }
0x1211…1216 a804 01790
0x1211…1216 LineComal80 {
0x1211…1216 ptr = 0xa804 // 0x1211 @0x0
0x1211…1216 lno = 0x06fe // 0x1213 @0x2
0x1211…1216 at0004 = EOL // 0x1215 @0x4
0x1211…1216 }
0x1216…1226 a814 01800 PROC SIDESKIFT
0x1216…1226 LineComal80 {
0x1216…1226 ptr = 0xa814 // 0x1216 @0x0
0x1216…1226 lno = 0x0708 // 0x1218 @0x2
0x1216…1226 at0004 = ╱9e19╱ PROC ╱ // 0x121a @0x4
0x1216…1226 at0006 = ╱53╱S╱ // 0x121c @0x6
0x1216…1226 at0007 = ╱49╱I╱ // 0x121d @0x7
0x1216…1226 at0008 = ╱44╱D╱ // 0x121e @0x8
0x1216…1226 at0009 = ╱45╱E╱ // 0x121f @0x9
0x1216…1226 at000a = ╱53╱S╱ // 0x1220 @0xa
0x1216…1226 at000b = ╱4b╱K╱ // 0x1221 @0xb
0x1216…1226 at000c = ╱49╱I╱ // 0x1222 @0xc
0x1216…1226 at000d = ╱46╱F╱ // 0x1223 @0xd
0x1216…1226 at000e = ╱54╱T╱ // 0x1224 @0xe
0x1216…1226 at000f = EOL // 0x1225 @0xf
0x1216…1226 }
0x1226…123e a82c 01810 FOR I := LIN_T TO AX_LIN DO PRINT
0x1226…123e LineComal80 {
0x1226…123e ptr = 0xa82c // 0x1226 @0x0
0x1226…123e lno = 0x0712 // 0x1228 @0x2
0x1226…123e at0004 = ╱b400╱ FOR ╱ // 0x122a @0x4
0x1226…123e at0006 = ╱49╱I╱ // 0x122c @0x6
0x1226…123e at0007 = ╱f0╱ := ╱ // 0x122d @0x7
0x1226…123e at0008 = ╱4c╱L╱ // 0x122e @0x8
0x1226…123e at0009 = ╱49╱I╱ // 0x122f @0x9
0x1226…123e at000a = ╱4e╱N╱ // 0x1230 @0xa
0x1226…123e at000b = ╱5f╱_╱ // 0x1231 @0xb
0x1226…123e at000c = ╱54╱T╱ // 0x1232 @0xc
0x1226…123e at000d = ╱b74d╱ TO ╱ // 0x1233 @0xd
0x1226…123e at000f = ╱41╱A╱ // 0x1235 @0xf
0x1226…123e at0010 = ╱58╱X╱ // 0x1236 @0x10
0x1226…123e at0011 = ╱5f╱_╱ // 0x1237 @0x11
0x1226…123e at0012 = ╱4c╱L╱ // 0x1238 @0x12
0x1226…123e at0013 = ╱49╱I╱ // 0x1239 @0x13
0x1226…123e at0014 = ╱4e╱N╱ // 0x123a @0x14
0x1226…123e at0015 = ╱bb╱ DO ╱ // 0x123b @0x15
0x1226…123e at0016 = ╱92╱ PRINT ╱ // 0x123c @0x16
0x1226…123e at0017 = EOL // 0x123d @0x17
0x1226…123e }
0x123e…1261 a84f 01820 LET LIN_T := 9 ; SIDENR := SIDENR + 1
0x123e…1261 LineComal80 {
0x123e…1261 ptr = 0xa84f // 0x123e @0x0
0x123e…1261 lno = 0x071c // 0x1240 @0x2
0x123e…1261 at0004 = ╱86╱ LET ╱ // 0x1242 @0x4
0x123e…1261 at0005 = ╱4c╱L╱ // 0x1243 @0x5
0x123e…1261 at0006 = ╱49╱I╱ // 0x1244 @0x6
0x123e…1261 at0007 = ╱4e╱N╱ // 0x1245 @0x7
0x123e…1261 at0008 = ╱5f╱_╱ // 0x1246 @0x8
0x123e…1261 at0009 = ╱54╱T╱ // 0x1247 @0x9
0x123e…1261 at000a = ╱f0╱ := ╱ // 0x1248 @0xa
0x123e…1261 at000b = ╱39╱9╱ // 0x1249 @0xb
0x123e…1261 at000c = ╱f20900╱ // 0x124a @0xc
0x123e…1261 at000f = ╱ea╱ ; ╱ // 0x124d @0xf
0x123e…1261 at0010 = ╱53╱S╱ // 0x124e @0x10
0x123e…1261 at0011 = ╱49╱I╱ // 0x124f @0x11
0x123e…1261 at0012 = ╱44╱D╱ // 0x1250 @0x12
0x123e…1261 at0013 = ╱45╱E╱ // 0x1251 @0x13
0x123e…1261 at0014 = ╱4e╱N╱ // 0x1252 @0x14
0x123e…1261 at0015 = ╱52╱R╱ // 0x1253 @0x15
0x123e…1261 at0016 = ╱f0╱ := ╱ // 0x1254 @0x16
0x123e…1261 at0017 = ╱53╱S╱ // 0x1255 @0x17
0x123e…1261 at0018 = ╱49╱I╱ // 0x1256 @0x18
0x123e…1261 at0019 = ╱44╱D╱ // 0x1257 @0x19
0x123e…1261 at001a = ╱45╱E╱ // 0x1258 @0x1a
0x123e…1261 at001b = ╱4e╱N╱ // 0x1259 @0x1b
0x123e…1261 at001c = ╱52╱R╱ // 0x125a @0x1c
0x123e…1261 at001d = ╱e5╱ + ╱ // 0x125b @0x1d
0x123e…1261 at001e = ╱31╱1╱ // 0x125c @0x1e
0x123e…1261 at001f = ╱f20100╱ // 0x125d @0x1f
0x123e…1261 at0022 = EOL // 0x1260 @0x22
0x123e…1261 }
0x1261…1298 a886 01830 PRINT "***…" ; SYST_NAVN $ ; "…***" ; TAB ( 50 ) ; "SIDE:…" ; SIDENR
0x1261…1298 LineComal80 {
0x1261…1298 ptr = 0xa886 // 0x1261 @0x0
0x1261…1298 lno = 0x0726 // 0x1263 @0x2
0x1261…1298 at0004 = ╱92╱ PRINT ╱ // 0x1265 @0x4
0x1261…1298 at0005 = ╱22╱"╱ // 0x1266 @0x5
0x1261…1298 at0006 = ╱2a╱*╱ // 0x1267 @0x6
0x1261…1298 at0007 = ╱2a╱*╱ // 0x1268 @0x7
0x1261…1298 at0008 = ╱2a╱*╱ // 0x1269 @0x8
0x1261…1298 at0009 = ╱20╱…╱ // 0x126a @0x9
0x1261…1298 at000a = ╱22╱"╱ // 0x126b @0xa
0x1261…1298 at000b = ╱ea╱ ; ╱ // 0x126c @0xb
0x1261…1298 at000c = ╱53╱S╱ // 0x126d @0xc
0x1261…1298 at000d = ╱59╱Y╱ // 0x126e @0xd
0x1261…1298 at000e = ╱53╱S╱ // 0x126f @0xe
0x1261…1298 at000f = ╱54╱T╱ // 0x1270 @0xf
0x1261…1298 at0010 = ╱5f╱_╱ // 0x1271 @0x10
0x1261…1298 at0011 = ╱4e╱N╱ // 0x1272 @0x11
0x1261…1298 at0012 = ╱41╱A╱ // 0x1273 @0x12
0x1261…1298 at0013 = ╱56╱V╱ // 0x1274 @0x13
0x1261…1298 at0014 = ╱4e╱N╱ // 0x1275 @0x14
0x1261…1298 at0015 = ╱ef╱ $ ╱ // 0x1276 @0x15
0x1261…1298 at0016 = ╱ea╱ ; ╱ // 0x1277 @0x16
0x1261…1298 at0017 = ╱22╱"╱ // 0x1278 @0x17
0x1261…1298 at0018 = ╱20╱…╱ // 0x1279 @0x18
0x1261…1298 at0019 = ╱2a╱*╱ // 0x127a @0x19
0x1261…1298 at001a = ╱2a╱*╱ // 0x127b @0x1a
0x1261…1298 at001b = ╱2a╱*╱ // 0x127c @0x1b
0x1261…1298 at001c = ╱22╱"╱ // 0x127d @0x1c
0x1261…1298 at001d = ╱ea╱ ; ╱ // 0x127e @0x1d
0x1261…1298 at001e = ╱d2╱ TAB ╱ // 0x127f @0x1e
0x1261…1298 at001f = ╱ed╱ ( ╱ // 0x1280 @0x1f
0x1261…1298 at0020 = ╱35╱5╱ // 0x1281 @0x20
0x1261…1298 at0021 = ╱30╱0╱ // 0x1282 @0x21
0x1261…1298 at0022 = ╱f23200╱ // 0x1283 @0x22
0x1261…1298 at0025 = ╱ee╱ ) ╱ // 0x1286 @0x25
0x1261…1298 at0026 = ╱ea╱ ; ╱ // 0x1287 @0x26
0x1261…1298 at0027 = ╱22╱"╱ // 0x1288 @0x27
0x1261…1298 at0028 = ╱53╱S╱ // 0x1289 @0x28
0x1261…1298 at0029 = ╱49╱I╱ // 0x128a @0x29
0x1261…1298 at002a = ╱44╱D╱ // 0x128b @0x2a
0x1261…1298 at002b = ╱45╱E╱ // 0x128c @0x2b
0x1261…1298 at002c = ╱3a╱:╱ // 0x128d @0x2c
0x1261…1298 at002d = ╱20╱…╱ // 0x128e @0x2d
0x1261…1298 at002e = ╱22╱"╱ // 0x128f @0x2e
0x1261…1298 at002f = ╱ea╱ ; ╱ // 0x1290 @0x2f
0x1261…1298 at0030 = ╱53╱S╱ // 0x1291 @0x30
0x1261…1298 at0031 = ╱49╱I╱ // 0x1292 @0x31
0x1261…1298 at0032 = ╱44╱D╱ // 0x1293 @0x32
0x1261…1298 at0033 = ╱45╱E╱ // 0x1294 @0x33
0x1261…1298 at0034 = ╱4e╱N╱ // 0x1295 @0x34
0x1261…1298 at0035 = ╱52╱R╱ // 0x1296 @0x35
0x1261…1298 at0036 = EOL // 0x1297 @0x36
0x1261…1298 }
0x1298…129e a88c 01840 PRINT
0x1298…129e LineComal80 {
0x1298…129e ptr = 0xa88c // 0x1298 @0x0
0x1298…129e lno = 0x0730 // 0x129a @0x2
0x1298…129e at0004 = ╱92╱ PRINT ╱ // 0x129c @0x4
0x1298…129e at0005 = EOL // 0x129d @0x5
0x1298…129e }
0x129e…12bc a8aa 01850 PRINT "Firmanavn:…" ; FIRMANAVN $
0x129e…12bc LineComal80 {
0x129e…12bc ptr = 0xa8aa // 0x129e @0x0
0x129e…12bc lno = 0x073a // 0x12a0 @0x2
0x129e…12bc at0004 = ╱92╱ PRINT ╱ // 0x12a2 @0x4
0x129e…12bc at0005 = ╱22╱"╱ // 0x12a3 @0x5
0x129e…12bc at0006 = ╱46╱F╱ // 0x12a4 @0x6
0x129e…12bc at0007 = ╱69╱i╱ // 0x12a5 @0x7
0x129e…12bc at0008 = ╱72╱r╱ // 0x12a6 @0x8
0x129e…12bc at0009 = ╱6d╱m╱ // 0x12a7 @0x9
0x129e…12bc at000a = ╱61╱a╱ // 0x12a8 @0xa
0x129e…12bc at000b = ╱6e╱n╱ // 0x12a9 @0xb
0x129e…12bc at000c = ╱61╱a╱ // 0x12aa @0xc
0x129e…12bc at000d = ╱76╱v╱ // 0x12ab @0xd
0x129e…12bc at000e = ╱6e╱n╱ // 0x12ac @0xe
0x129e…12bc at000f = ╱3a╱:╱ // 0x12ad @0xf
0x129e…12bc at0010 = ╱20╱…╱ // 0x12ae @0x10
0x129e…12bc at0011 = ╱22╱"╱ // 0x12af @0x11
0x129e…12bc at0012 = ╱ea╱ ; ╱ // 0x12b0 @0x12
0x129e…12bc at0013 = ╱46╱F╱ // 0x12b1 @0x13
0x129e…12bc at0014 = ╱49╱I╱ // 0x12b2 @0x14
0x129e…12bc at0015 = ╱52╱R╱ // 0x12b3 @0x15
0x129e…12bc at0016 = ╱4d╱M╱ // 0x12b4 @0x16
0x129e…12bc at0017 = ╱41╱A╱ // 0x12b5 @0x17
0x129e…12bc at0018 = ╱4e╱N╱ // 0x12b6 @0x18
0x129e…12bc at0019 = ╱41╱A╱ // 0x12b7 @0x19
0x129e…12bc at001a = ╱56╱V╱ // 0x12b8 @0x1a
0x129e…12bc at001b = ╱4e╱N╱ // 0x12b9 @0x1b
0x129e…12bc at001c = ╱ef╱ $ ╱ // 0x12ba @0x1c
0x129e…12bc at001d = EOL // 0x12bb @0x1d
0x129e…12bc }
0x12bc…12c2 a8b0 01860 PRINT
0x12bc…12c2 LineComal80 {
0x12bc…12c2 ptr = 0xa8b0 // 0x12bc @0x0
0x12bc…12c2 lno = 0x0744 // 0x12be @0x2
0x12bc…12c2 at0004 = ╱92╱ PRINT ╱ // 0x12c0 @0x4
0x12bc…12c2 at0005 = EOL // 0x12c1 @0x5
0x12bc…12c2 }
0x12c2…12f9 a8e7 01870 PRINT "<S>***…KONTOPLAN…***………………………***…UDSKREVET…PR.…"
0x12c2…12f9 LineComal80 {
0x12c2…12f9 ptr = 0xa8e7 // 0x12c2 @0x0
0x12c2…12f9 lno = 0x074e // 0x12c4 @0x2
0x12c2…12f9 at0004 = ╱92╱ PRINT ╱ // 0x12c6 @0x4
0x12c2…12f9 at0005 = ╱22╱"╱ // 0x12c7 @0x5
0x12c2…12f9 at0006 = ╱3c╱<╱ // 0x12c8 @0x6
0x12c2…12f9 at0007 = ╱53╱S╱ // 0x12c9 @0x7
0x12c2…12f9 at0008 = ╱3e╱>╱ // 0x12ca @0x8
0x12c2…12f9 at0009 = ╱2a╱*╱ // 0x12cb @0x9
0x12c2…12f9 at000a = ╱2a╱*╱ // 0x12cc @0xa
0x12c2…12f9 at000b = ╱2a╱*╱ // 0x12cd @0xb
0x12c2…12f9 at000c = ╱20╱…╱ // 0x12ce @0xc
0x12c2…12f9 at000d = ╱4b╱K╱ // 0x12cf @0xd
0x12c2…12f9 at000e = ╱4f╱O╱ // 0x12d0 @0xe
0x12c2…12f9 at000f = ╱4e╱N╱ // 0x12d1 @0xf
0x12c2…12f9 at0010 = ╱54╱T╱ // 0x12d2 @0x10
0x12c2…12f9 at0011 = ╱4f╱O╱ // 0x12d3 @0x11
0x12c2…12f9 at0012 = ╱50╱P╱ // 0x12d4 @0x12
0x12c2…12f9 at0013 = ╱4c╱L╱ // 0x12d5 @0x13
0x12c2…12f9 at0014 = ╱41╱A╱ // 0x12d6 @0x14
0x12c2…12f9 at0015 = ╱4e╱N╱ // 0x12d7 @0x15
0x12c2…12f9 at0016 = ╱20╱…╱ // 0x12d8 @0x16
0x12c2…12f9 at0017 = ╱2a╱*╱ // 0x12d9 @0x17
0x12c2…12f9 at0018 = ╱2a╱*╱ // 0x12da @0x18
0x12c2…12f9 at0019 = ╱2a╱*╱ // 0x12db @0x19
0x12c2…12f9 at001a = ╱20╱…╱ // 0x12dc @0x1a
0x12c2…12f9 at001b = ╱20╱…╱ // 0x12dd @0x1b
0x12c2…12f9 at001c = ╱20╱…╱ // 0x12de @0x1c
0x12c2…12f9 at001d = ╱20╱…╱ // 0x12df @0x1d
0x12c2…12f9 at001e = ╱20╱…╱ // 0x12e0 @0x1e
0x12c2…12f9 at001f = ╱20╱…╱ // 0x12e1 @0x1f
0x12c2…12f9 at0020 = ╱20╱…╱ // 0x12e2 @0x20
0x12c2…12f9 at0021 = ╱20╱…╱ // 0x12e3 @0x21
0x12c2…12f9 at0022 = ╱20╱…╱ // 0x12e4 @0x22
0x12c2…12f9 at0023 = ╱2a╱*╱ // 0x12e5 @0x23
0x12c2…12f9 at0024 = ╱2a╱*╱ // 0x12e6 @0x24
0x12c2…12f9 at0025 = ╱2a╱*╱ // 0x12e7 @0x25
0x12c2…12f9 at0026 = ╱20╱…╱ // 0x12e8 @0x26
0x12c2…12f9 at0027 = ╱55╱U╱ // 0x12e9 @0x27
0x12c2…12f9 at0028 = ╱44╱D╱ // 0x12ea @0x28
0x12c2…12f9 at0029 = ╱53╱S╱ // 0x12eb @0x29
0x12c2…12f9 at002a = ╱4b╱K╱ // 0x12ec @0x2a
0x12c2…12f9 at002b = ╱52╱R╱ // 0x12ed @0x2b
0x12c2…12f9 at002c = ╱45╱E╱ // 0x12ee @0x2c
0x12c2…12f9 at002d = ╱56╱V╱ // 0x12ef @0x2d
0x12c2…12f9 at002e = ╱45╱E╱ // 0x12f0 @0x2e
0x12c2…12f9 at002f = ╱54╱T╱ // 0x12f1 @0x2f
0x12c2…12f9 at0030 = ╱20╱…╱ // 0x12f2 @0x30
0x12c2…12f9 at0031 = ╱50╱P╱ // 0x12f3 @0x31
0x12c2…12f9 at0032 = ╱52╱R╱ // 0x12f4 @0x32
0x12c2…12f9 at0033 = ╱2e╱.╱ // 0x12f5 @0x33
0x12c2…12f9 at0034 = ╱20╱…╱ // 0x12f6 @0x34
0x12c2…12f9 at0035 = ╱22╱"╱ // 0x12f7 @0x35
0x12c2…12f9 at0036 = EOL // 0x12f8 @0x36
0x12c2…12f9 }
0x12f9…134c a93a 01880 PRINT SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "." ; SYST_DAT $ ( 5 : 2 ) ; "…***"
0x12f9…134c LineComal80 {
0x12f9…134c ptr = 0xa93a // 0x12f9 @0x0
0x12f9…134c lno = 0x0758 // 0x12fb @0x2
0x12f9…134c at0004 = ╱92╱ PRINT ╱ // 0x12fd @0x4
0x12f9…134c at0005 = ╱53╱S╱ // 0x12fe @0x5
0x12f9…134c at0006 = ╱59╱Y╱ // 0x12ff @0x6
0x12f9…134c at0007 = ╱53╱S╱ // 0x1300 @0x7
0x12f9…134c at0008 = ╱54╱T╱ // 0x1301 @0x8
0x12f9…134c at0009 = ╱5f╱_╱ // 0x1302 @0x9
0x12f9…134c at000a = ╱44╱D╱ // 0x1303 @0xa
0x12f9…134c at000b = ╱41╱A╱ // 0x1304 @0xb
0x12f9…134c at000c = ╱54╱T╱ // 0x1305 @0xc
0x12f9…134c at000d = ╱ef╱ $ ╱ // 0x1306 @0xd
0x12f9…134c at000e = ╱ed╱ ( ╱ // 0x1307 @0xe
0x12f9…134c at000f = ╱31╱1╱ // 0x1308 @0xf
0x12f9…134c at0010 = ╱f20100╱ // 0x1309 @0x10
0x12f9…134c at0013 = ╱f1╱ : ╱ // 0x130c @0x13
0x12f9…134c at0014 = ╱32╱2╱ // 0x130d @0x14
0x12f9…134c at0015 = ╱f20200╱ // 0x130e @0x15
0x12f9…134c at0018 = ╱ee╱ ) ╱ // 0x1311 @0x18
0x12f9…134c at0019 = ╱ea╱ ; ╱ // 0x1312 @0x19
0x12f9…134c at001a = ╱22╱"╱ // 0x1313 @0x1a
0x12f9…134c at001b = ╱2e╱.╱ // 0x1314 @0x1b
0x12f9…134c at001c = ╱22╱"╱ // 0x1315 @0x1c
0x12f9…134c at001d = ╱ea╱ ; ╱ // 0x1316 @0x1d
0x12f9…134c at001e = ╱53╱S╱ // 0x1317 @0x1e
0x12f9…134c at001f = ╱59╱Y╱ // 0x1318 @0x1f
0x12f9…134c at0020 = ╱53╱S╱ // 0x1319 @0x20
0x12f9…134c at0021 = ╱54╱T╱ // 0x131a @0x21
0x12f9…134c at0022 = ╱5f╱_╱ // 0x131b @0x22
0x12f9…134c at0023 = ╱44╱D╱ // 0x131c @0x23
0x12f9…134c at0024 = ╱41╱A╱ // 0x131d @0x24
0x12f9…134c at0025 = ╱54╱T╱ // 0x131e @0x25
0x12f9…134c at0026 = ╱ef╱ $ ╱ // 0x131f @0x26
0x12f9…134c at0027 = ╱ed╱ ( ╱ // 0x1320 @0x27
0x12f9…134c at0028 = ╱33╱3╱ // 0x1321 @0x28
0x12f9…134c at0029 = ╱f20300╱ // 0x1322 @0x29
0x12f9…134c at002c = ╱f1╱ : ╱ // 0x1325 @0x2c
0x12f9…134c at002d = ╱32╱2╱ // 0x1326 @0x2d
0x12f9…134c at002e = ╱f20200╱ // 0x1327 @0x2e
0x12f9…134c at0031 = ╱ee╱ ) ╱ // 0x132a @0x31
0x12f9…134c at0032 = ╱ea╱ ; ╱ // 0x132b @0x32
0x12f9…134c at0033 = ╱22╱"╱ // 0x132c @0x33
0x12f9…134c at0034 = ╱2e╱.╱ // 0x132d @0x34
0x12f9…134c at0035 = ╱22╱"╱ // 0x132e @0x35
0x12f9…134c at0036 = ╱ea╱ ; ╱ // 0x132f @0x36
0x12f9…134c at0037 = ╱53╱S╱ // 0x1330 @0x37
0x12f9…134c at0038 = ╱59╱Y╱ // 0x1331 @0x38
0x12f9…134c at0039 = ╱53╱S╱ // 0x1332 @0x39
0x12f9…134c at003a = ╱54╱T╱ // 0x1333 @0x3a
0x12f9…134c at003b = ╱5f╱_╱ // 0x1334 @0x3b
0x12f9…134c at003c = ╱44╱D╱ // 0x1335 @0x3c
0x12f9…134c at003d = ╱41╱A╱ // 0x1336 @0x3d
0x12f9…134c at003e = ╱54╱T╱ // 0x1337 @0x3e
0x12f9…134c at003f = ╱ef╱ $ ╱ // 0x1338 @0x3f
0x12f9…134c at0040 = ╱ed╱ ( ╱ // 0x1339 @0x40
0x12f9…134c at0041 = ╱35╱5╱ // 0x133a @0x41
0x12f9…134c at0042 = ╱f20500╱ // 0x133b @0x42
0x12f9…134c at0045 = ╱f1╱ : ╱ // 0x133e @0x45
0x12f9…134c at0046 = ╱32╱2╱ // 0x133f @0x46
0x12f9…134c at0047 = ╱f20200╱ // 0x1340 @0x47
0x12f9…134c at004a = ╱ee╱ ) ╱ // 0x1343 @0x4a
0x12f9…134c at004b = ╱ea╱ ; ╱ // 0x1344 @0x4b
0x12f9…134c at004c = ╱22╱"╱ // 0x1345 @0x4c
0x12f9…134c at004d = ╱20╱…╱ // 0x1346 @0x4d
0x12f9…134c at004e = ╱2a╱*╱ // 0x1347 @0x4e
0x12f9…134c at004f = ╱2a╱*╱ // 0x1348 @0x4f
0x12f9…134c at0050 = ╱2a╱*╱ // 0x1349 @0x50
0x12f9…134c at0051 = ╱22╱"╱ // 0x134a @0x51
0x12f9…134c at0052 = EOL // 0x134b @0x52
0x12f9…134c }
0x134c…138c ad4f 01890 PRINT "--------------------------------------------------------"
0x134c…138c LineComal80 {
0x134c…138c ptr = 0xad4f // 0x134c @0x0
0x134c…138c lno = 0x0762 // 0x134e @0x2
0x134c…138c at0004 = ╱92╱ PRINT ╱ // 0x1350 @0x4
0x134c…138c at0005 = ╱22╱"╱ // 0x1351 @0x5
0x134c…138c at0006 = ╱2d╱-╱ // 0x1352 @0x6
0x134c…138c at0007 = ╱2d╱-╱ // 0x1353 @0x7
0x134c…138c at0008 = ╱2d╱-╱ // 0x1354 @0x8
0x134c…138c at0009 = ╱2d╱-╱ // 0x1355 @0x9
0x134c…138c at000a = ╱2d╱-╱ // 0x1356 @0xa
0x134c…138c at000b = ╱2d╱-╱ // 0x1357 @0xb
0x134c…138c at000c = ╱2d╱-╱ // 0x1358 @0xc
0x134c…138c at000d = ╱2d╱-╱ // 0x1359 @0xd
0x134c…138c at000e = ╱2d╱-╱ // 0x135a @0xe
0x134c…138c at000f = ╱2d╱-╱ // 0x135b @0xf
0x134c…138c at0010 = ╱2d╱-╱ // 0x135c @0x10
0x134c…138c at0011 = ╱2d╱-╱ // 0x135d @0x11
0x134c…138c at0012 = ╱2d╱-╱ // 0x135e @0x12
0x134c…138c at0013 = ╱2d╱-╱ // 0x135f @0x13
0x134c…138c at0014 = ╱2d╱-╱ // 0x1360 @0x14
0x134c…138c at0015 = ╱2d╱-╱ // 0x1361 @0x15
0x134c…138c at0016 = ╱2d╱-╱ // 0x1362 @0x16
0x134c…138c at0017 = ╱2d╱-╱ // 0x1363 @0x17
0x134c…138c at0018 = ╱2d╱-╱ // 0x1364 @0x18
0x134c…138c at0019 = ╱2d╱-╱ // 0x1365 @0x19
0x134c…138c at001a = ╱2d╱-╱ // 0x1366 @0x1a
0x134c…138c at001b = ╱2d╱-╱ // 0x1367 @0x1b
0x134c…138c at001c = ╱2d╱-╱ // 0x1368 @0x1c
0x134c…138c at001d = ╱2d╱-╱ // 0x1369 @0x1d
0x134c…138c at001e = ╱2d╱-╱ // 0x136a @0x1e
0x134c…138c at001f = ╱2d╱-╱ // 0x136b @0x1f
0x134c…138c at0020 = ╱2d╱-╱ // 0x136c @0x20
0x134c…138c at0021 = ╱2d╱-╱ // 0x136d @0x21
0x134c…138c at0022 = ╱2d╱-╱ // 0x136e @0x22
0x134c…138c at0023 = ╱2d╱-╱ // 0x136f @0x23
0x134c…138c at0024 = ╱2d╱-╱ // 0x1370 @0x24
0x134c…138c at0025 = ╱2d╱-╱ // 0x1371 @0x25
0x134c…138c at0026 = ╱2d╱-╱ // 0x1372 @0x26
0x134c…138c at0027 = ╱2d╱-╱ // 0x1373 @0x27
0x134c…138c at0028 = ╱2d╱-╱ // 0x1374 @0x28
0x134c…138c at0029 = ╱2d╱-╱ // 0x1375 @0x29
0x134c…138c at002a = ╱2d╱-╱ // 0x1376 @0x2a
0x134c…138c at002b = ╱2d╱-╱ // 0x1377 @0x2b
0x134c…138c at002c = ╱2d╱-╱ // 0x1378 @0x2c
0x134c…138c at002d = ╱2d╱-╱ // 0x1379 @0x2d
0x134c…138c at002e = ╱2d╱-╱ // 0x137a @0x2e
0x134c…138c at002f = ╱2d╱-╱ // 0x137b @0x2f
0x134c…138c at0030 = ╱2d╱-╱ // 0x137c @0x30
0x134c…138c at0031 = ╱2d╱-╱ // 0x137d @0x31
0x134c…138c at0032 = ╱2d╱-╱ // 0x137e @0x32
0x134c…138c at0033 = ╱2d╱-╱ // 0x137f @0x33
0x134c…138c at0034 = ╱2d╱-╱ // 0x1380 @0x34
0x134c…138c at0035 = ╱2d╱-╱ // 0x1381 @0x35
0x134c…138c at0036 = ╱2d╱-╱ // 0x1382 @0x36
0x134c…138c at0037 = ╱2d╱-╱ // 0x1383 @0x37
0x134c…138c at0038 = ╱2d╱-╱ // 0x1384 @0x38
0x134c…138c at0039 = ╱2d╱-╱ // 0x1385 @0x39
0x134c…138c at003a = ╱2d╱-╱ // 0x1386 @0x3a
0x134c…138c at003b = ╱2d╱-╱ // 0x1387 @0x3b
0x134c…138c at003c = ╱2d╱-╱ // 0x1388 @0x3c
0x134c…138c at003d = ╱2d╱-╱ // 0x1389 @0x3d
0x134c…138c at003e = ╱22╱"╱ // 0x138a @0x3e
0x134c…138c at003f = EOL // 0x138b @0x3f
0x134c…138c }
0x138c…13cc a9ba 02010 PRINT "…KONTONR………KONTONAVN………………………………………………………………………KONTOTYPE"
0x138c…13cc LineComal80 {
0x138c…13cc ptr = 0xa9ba // 0x138c @0x0
0x138c…13cc lno = 0x07da // 0x138e @0x2
0x138c…13cc at0004 = ╱92╱ PRINT ╱ // 0x1390 @0x4
0x138c…13cc at0005 = ╱22╱"╱ // 0x1391 @0x5
0x138c…13cc at0006 = ╱20╱…╱ // 0x1392 @0x6
0x138c…13cc at0007 = ╱4b╱K╱ // 0x1393 @0x7
0x138c…13cc at0008 = ╱4f╱O╱ // 0x1394 @0x8
0x138c…13cc at0009 = ╱4e╱N╱ // 0x1395 @0x9
0x138c…13cc at000a = ╱54╱T╱ // 0x1396 @0xa
0x138c…13cc at000b = ╱4f╱O╱ // 0x1397 @0xb
0x138c…13cc at000c = ╱4e╱N╱ // 0x1398 @0xc
0x138c…13cc at000d = ╱52╱R╱ // 0x1399 @0xd
0x138c…13cc at000e = ╱20╱…╱ // 0x139a @0xe
0x138c…13cc at000f = ╱20╱…╱ // 0x139b @0xf
0x138c…13cc at0010 = ╱20╱…╱ // 0x139c @0x10
0x138c…13cc at0011 = ╱4b╱K╱ // 0x139d @0x11
0x138c…13cc at0012 = ╱4f╱O╱ // 0x139e @0x12
0x138c…13cc at0013 = ╱4e╱N╱ // 0x139f @0x13
0x138c…13cc at0014 = ╱54╱T╱ // 0x13a0 @0x14
0x138c…13cc at0015 = ╱4f╱O╱ // 0x13a1 @0x15
0x138c…13cc at0016 = ╱4e╱N╱ // 0x13a2 @0x16
0x138c…13cc at0017 = ╱41╱A╱ // 0x13a3 @0x17
0x138c…13cc at0018 = ╱56╱V╱ // 0x13a4 @0x18
0x138c…13cc at0019 = ╱4e╱N╱ // 0x13a5 @0x19
0x138c…13cc at001a = ╱20╱…╱ // 0x13a6 @0x1a
0x138c…13cc at001b = ╱20╱…╱ // 0x13a7 @0x1b
0x138c…13cc at001c = ╱20╱…╱ // 0x13a8 @0x1c
0x138c…13cc at001d = ╱20╱…╱ // 0x13a9 @0x1d
0x138c…13cc at001e = ╱20╱…╱ // 0x13aa @0x1e
0x138c…13cc at001f = ╱20╱…╱ // 0x13ab @0x1f
0x138c…13cc at0020 = ╱20╱…╱ // 0x13ac @0x20
0x138c…13cc at0021 = ╱20╱…╱ // 0x13ad @0x21
0x138c…13cc at0022 = ╱20╱…╱ // 0x13ae @0x22
0x138c…13cc at0023 = ╱20╱…╱ // 0x13af @0x23
0x138c…13cc at0024 = ╱20╱…╱ // 0x13b0 @0x24
0x138c…13cc at0025 = ╱20╱…╱ // 0x13b1 @0x25
0x138c…13cc at0026 = ╱20╱…╱ // 0x13b2 @0x26
0x138c…13cc at0027 = ╱20╱…╱ // 0x13b3 @0x27
0x138c…13cc at0028 = ╱20╱…╱ // 0x13b4 @0x28
0x138c…13cc at0029 = ╱20╱…╱ // 0x13b5 @0x29
0x138c…13cc at002a = ╱20╱…╱ // 0x13b6 @0x2a
0x138c…13cc at002b = ╱20╱…╱ // 0x13b7 @0x2b
0x138c…13cc at002c = ╱20╱…╱ // 0x13b8 @0x2c
0x138c…13cc at002d = ╱20╱…╱ // 0x13b9 @0x2d
0x138c…13cc at002e = ╱20╱…╱ // 0x13ba @0x2e
0x138c…13cc at002f = ╱20╱…╱ // 0x13bb @0x2f
0x138c…13cc at0030 = ╱20╱…╱ // 0x13bc @0x30
0x138c…13cc at0031 = ╱20╱…╱ // 0x13bd @0x31
0x138c…13cc at0032 = ╱20╱…╱ // 0x13be @0x32
0x138c…13cc at0033 = ╱20╱…╱ // 0x13bf @0x33
0x138c…13cc at0034 = ╱20╱…╱ // 0x13c0 @0x34
0x138c…13cc at0035 = ╱4b╱K╱ // 0x13c1 @0x35
0x138c…13cc at0036 = ╱4f╱O╱ // 0x13c2 @0x36
0x138c…13cc at0037 = ╱4e╱N╱ // 0x13c3 @0x37
0x138c…13cc at0038 = ╱54╱T╱ // 0x13c4 @0x38
0x138c…13cc at0039 = ╱4f╱O╱ // 0x13c5 @0x39
0x138c…13cc at003a = ╱54╱T╱ // 0x13c6 @0x3a
0x138c…13cc at003b = ╱59╱Y╱ // 0x13c7 @0x3b
0x138c…13cc at003c = ╱50╱P╱ // 0x13c8 @0x3c
0x138c…13cc at003d = ╱45╱E╱ // 0x13c9 @0x3d
0x138c…13cc at003e = ╱22╱"╱ // 0x13ca @0x3e
0x138c…13cc at003f = EOL // 0x13cb @0x3f
0x138c…13cc }
0x13cc…140c a9fa 01910 PRINT "--------------------------------------------------------"
0x13cc…140c LineComal80 {
0x13cc…140c ptr = 0xa9fa // 0x13cc @0x0
0x13cc…140c lno = 0x0776 // 0x13ce @0x2
0x13cc…140c at0004 = ╱92╱ PRINT ╱ // 0x13d0 @0x4
0x13cc…140c at0005 = ╱22╱"╱ // 0x13d1 @0x5
0x13cc…140c at0006 = ╱2d╱-╱ // 0x13d2 @0x6
0x13cc…140c at0007 = ╱2d╱-╱ // 0x13d3 @0x7
0x13cc…140c at0008 = ╱2d╱-╱ // 0x13d4 @0x8
0x13cc…140c at0009 = ╱2d╱-╱ // 0x13d5 @0x9
0x13cc…140c at000a = ╱2d╱-╱ // 0x13d6 @0xa
0x13cc…140c at000b = ╱2d╱-╱ // 0x13d7 @0xb
0x13cc…140c at000c = ╱2d╱-╱ // 0x13d8 @0xc
0x13cc…140c at000d = ╱2d╱-╱ // 0x13d9 @0xd
0x13cc…140c at000e = ╱2d╱-╱ // 0x13da @0xe
0x13cc…140c at000f = ╱2d╱-╱ // 0x13db @0xf
0x13cc…140c at0010 = ╱2d╱-╱ // 0x13dc @0x10
0x13cc…140c at0011 = ╱2d╱-╱ // 0x13dd @0x11
0x13cc…140c at0012 = ╱2d╱-╱ // 0x13de @0x12
0x13cc…140c at0013 = ╱2d╱-╱ // 0x13df @0x13
0x13cc…140c at0014 = ╱2d╱-╱ // 0x13e0 @0x14
0x13cc…140c at0015 = ╱2d╱-╱ // 0x13e1 @0x15
0x13cc…140c at0016 = ╱2d╱-╱ // 0x13e2 @0x16
0x13cc…140c at0017 = ╱2d╱-╱ // 0x13e3 @0x17
0x13cc…140c at0018 = ╱2d╱-╱ // 0x13e4 @0x18
0x13cc…140c at0019 = ╱2d╱-╱ // 0x13e5 @0x19
0x13cc…140c at001a = ╱2d╱-╱ // 0x13e6 @0x1a
0x13cc…140c at001b = ╱2d╱-╱ // 0x13e7 @0x1b
0x13cc…140c at001c = ╱2d╱-╱ // 0x13e8 @0x1c
0x13cc…140c at001d = ╱2d╱-╱ // 0x13e9 @0x1d
0x13cc…140c at001e = ╱2d╱-╱ // 0x13ea @0x1e
0x13cc…140c at001f = ╱2d╱-╱ // 0x13eb @0x1f
0x13cc…140c at0020 = ╱2d╱-╱ // 0x13ec @0x20
0x13cc…140c at0021 = ╱2d╱-╱ // 0x13ed @0x21
0x13cc…140c at0022 = ╱2d╱-╱ // 0x13ee @0x22
0x13cc…140c at0023 = ╱2d╱-╱ // 0x13ef @0x23
0x13cc…140c at0024 = ╱2d╱-╱ // 0x13f0 @0x24
0x13cc…140c at0025 = ╱2d╱-╱ // 0x13f1 @0x25
0x13cc…140c at0026 = ╱2d╱-╱ // 0x13f2 @0x26
0x13cc…140c at0027 = ╱2d╱-╱ // 0x13f3 @0x27
0x13cc…140c at0028 = ╱2d╱-╱ // 0x13f4 @0x28
0x13cc…140c at0029 = ╱2d╱-╱ // 0x13f5 @0x29
0x13cc…140c at002a = ╱2d╱-╱ // 0x13f6 @0x2a
0x13cc…140c at002b = ╱2d╱-╱ // 0x13f7 @0x2b
0x13cc…140c at002c = ╱2d╱-╱ // 0x13f8 @0x2c
0x13cc…140c at002d = ╱2d╱-╱ // 0x13f9 @0x2d
0x13cc…140c at002e = ╱2d╱-╱ // 0x13fa @0x2e
0x13cc…140c at002f = ╱2d╱-╱ // 0x13fb @0x2f
0x13cc…140c at0030 = ╱2d╱-╱ // 0x13fc @0x30
0x13cc…140c at0031 = ╱2d╱-╱ // 0x13fd @0x31
0x13cc…140c at0032 = ╱2d╱-╱ // 0x13fe @0x32
0x13cc…140c at0033 = ╱2d╱-╱ // 0x13ff @0x33
0x13cc…140c at0034 = ╱2d╱-╱ // 0x1400 @0x34
0x13cc…140c at0035 = ╱2d╱-╱ // 0x1401 @0x35
0x13cc…140c at0036 = ╱2d╱-╱ // 0x1402 @0x36
0x13cc…140c at0037 = ╱2d╱-╱ // 0x1403 @0x37
0x13cc…140c at0038 = ╱2d╱-╱ // 0x1404 @0x38
0x13cc…140c at0039 = ╱2d╱-╱ // 0x1405 @0x39
0x13cc…140c at003a = ╱2d╱-╱ // 0x1406 @0x3a
0x13cc…140c at003b = ╱2d╱-╱ // 0x1407 @0x3b
0x13cc…140c at003c = ╱2d╱-╱ // 0x1408 @0x3c
0x13cc…140c at003d = ╱2d╱-╱ // 0x1409 @0x3d
0x13cc…140c at003e = ╱22╱"╱ // 0x140a @0x3e
0x13cc…140c at003f = EOL // 0x140b @0x3f
0x13cc…140c }
0x140c…141b acf3 01920 ENDPROC SIDESKIFT
0x140c…141b LineComal80 {
0x140c…141b ptr = 0xacf3 // 0x140c @0x0
0x140c…141b lno = 0x0780 // 0x140e @0x2
0x140c…141b at0004 = ╱9f╱ ENDPROC ╱ // 0x1410 @0x4
0x140c…141b at0005 = ╱53╱S╱ // 0x1411 @0x5
0x140c…141b at0006 = ╱49╱I╱ // 0x1412 @0x6
0x140c…141b at0007 = ╱44╱D╱ // 0x1413 @0x7
0x140c…141b at0008 = ╱45╱E╱ // 0x1414 @0x8
0x140c…141b at0009 = ╱53╱S╱ // 0x1415 @0x9
0x140c…141b at000a = ╱4b╱K╱ // 0x1416 @0xa
0x140c…141b at000b = ╱49╱I╱ // 0x1417 @0xb
0x140c…141b at000c = ╱46╱F╱ // 0x1418 @0xc
0x140c…141b at000d = ╱54╱T╱ // 0x1419 @0xd
0x140c…141b at000e = EOL // 0x141a @0xe
0x140c…141b }
0x141b…1421 aa0f 09900 //
0x141b…1421 LineComal80 {
0x141b…1421 ptr = 0xaa0f // 0x141b @0x0
0x141b…1421 lno = 0x26ac // 0x141d @0x2
0x141b…1421 at0004 = ╱89╱ // ╱ // 0x141f @0x4
0x141b…1421 at0005 = EOL // 0x1420 @0x5
0x141b…1421 }
0x1421…1454 aa42 09901 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
0x1421…1454 LineComal80 {
0x1421…1454 ptr = 0xaa42 // 0x1421 @0x0
0x1421…1454 lno = 0x26ad // 0x1423 @0x2
0x1421…1454 at0004 = ╱9e1a╱ PROC ╱ // 0x1425 @0x4
0x1421…1454 at0006 = ╱50╱P╱ // 0x1427 @0x6
0x1421…1454 at0007 = ╱52╱R╱ // 0x1428 @0x7
0x1421…1454 at0008 = ╱49╱I╱ // 0x1429 @0x8
0x1421…1454 at0009 = ╱4e╱N╱ // 0x142a @0x9
0x1421…1454 at000a = ╱54╱T╱ // 0x142b @0xa
0x1421…1454 at000b = ╱52╱R╱ // 0x142c @0xb
0x1421…1454 at000c = ╱45╱E╱ // 0x142d @0xc
0x1421…1454 at000d = ╱53╱S╱ // 0x142e @0xd
0x1421…1454 at000e = ╱ed╱ ( ╱ // 0x142f @0xe
0x1421…1454 at000f = ╱50╱P╱ // 0x1430 @0xf
0x1421…1454 at0010 = ╱41╱A╱ // 0x1431 @0x10
0x1421…1454 at0011 = ╱47╱G╱ // 0x1432 @0x11
0x1421…1454 at0012 = ╱45╱E╱ // 0x1433 @0x12
0x1421…1454 at0013 = ╱54╱T╱ // 0x1434 @0x13
0x1421…1454 at0014 = ╱59╱Y╱ // 0x1435 @0x14
0x1421…1454 at0015 = ╱50╱P╱ // 0x1436 @0x15
0x1421…1454 at0016 = ╱45╱E╱ // 0x1437 @0x16
0x1421…1454 at0017 = ╱ef╱ $ ╱ // 0x1438 @0x17
0x1421…1454 at0018 = ╱ec╱ , ╱ // 0x1439 @0x18
0x1421…1454 at0019 = ╱4c╱L╱ // 0x143a @0x19
0x1421…1454 at001a = ╱49╱I╱ // 0x143b @0x1a
0x1421…1454 at001b = ╱4e╱N╱ // 0x143c @0x1b
0x1421…1454 at001c = ╱45╱E╱ // 0x143d @0x1c
0x1421…1454 at001d = ╱ee╱ ) ╱ // 0x143e @0x1d
0x1421…1454 at001e = ╱89╱ // ╱ // 0x143f @0x1e
0x1421…1454 at001f = ╱50╱P╱ // 0x1440 @0x1f
0x1421…1454 at0020 = ╱52╱R╱ // 0x1441 @0x20
0x1421…1454 at0021 = ╱49╱I╱ // 0x1442 @0x21
0x1421…1454 at0022 = ╱4e╱N╱ // 0x1443 @0x22
0x1421…1454 at0023 = ╱54╱T╱ // 0x1444 @0x23
0x1421…1454 at0024 = ╱45╱E╱ // 0x1445 @0x24
0x1421…1454 at0025 = ╱52╱R╱ // 0x1446 @0x25
0x1421…1454 at0026 = ╱20╱…╱ // 0x1447 @0x26
0x1421…1454 at0027 = ╱52╱R╱ // 0x1448 @0x27
0x1421…1454 at0028 = ╱45╱E╱ // 0x1449 @0x28
0x1421…1454 at0029 = ╱53╱S╱ // 0x144a @0x29
0x1421…1454 at002a = ╱45╱E╱ // 0x144b @0x2a
0x1421…1454 at002b = ╱52╱R╱ // 0x144c @0x2b
0x1421…1454 at002c = ╱56╱V╱ // 0x144d @0x2c
0x1421…1454 at002d = ╱41╱A╱ // 0x144e @0x2d
0x1421…1454 at002e = ╱54╱T╱ // 0x144f @0x2e
0x1421…1454 at002f = ╱49╱I╱ // 0x1450 @0x2f
0x1421…1454 at0030 = ╱4f╱O╱ // 0x1451 @0x30
0x1421…1454 at0031 = ╱4e╱N╱ // 0x1452 @0x31
0x1421…1454 at0032 = EOL // 0x1453 @0x32
0x1421…1454 }
0x1454…146c aa5a 09902 LET PRTNR $ := "1" ; OK := TRUE
0x1454…146c LineComal80 {
0x1454…146c ptr = 0xaa5a // 0x1454 @0x0
0x1454…146c lno = 0x26ae // 0x1456 @0x2
0x1454…146c at0004 = ╱86╱ LET ╱ // 0x1458 @0x4
0x1454…146c at0005 = ╱50╱P╱ // 0x1459 @0x5
0x1454…146c at0006 = ╱52╱R╱ // 0x145a @0x6
0x1454…146c at0007 = ╱54╱T╱ // 0x145b @0x7
0x1454…146c at0008 = ╱4e╱N╱ // 0x145c @0x8
0x1454…146c at0009 = ╱52╱R╱ // 0x145d @0x9
0x1454…146c at000a = ╱ef╱ $ ╱ // 0x145e @0xa
0x1454…146c at000b = ╱f0╱ := ╱ // 0x145f @0xb
0x1454…146c at000c = ╱22╱"╱ // 0x1460 @0xc
0x1454…146c at000d = ╱31╱1╱ // 0x1461 @0xd
0x1454…146c at000e = ╱22╱"╱ // 0x1462 @0xe
0x1454…146c at000f = ╱ea╱ ; ╱ // 0x1463 @0xf
0x1454…146c at0010 = ╱4f╱O╱ // 0x1464 @0x10
0x1454…146c at0011 = ╱4b╱K╱ // 0x1465 @0x11
0x1454…146c at0012 = ╱f0╱ := ╱ // 0x1466 @0x12
0x1454…146c at0013 = ╱54╱T╱ // 0x1467 @0x13
0x1454…146c at0014 = ╱52╱R╱ // 0x1468 @0x14
0x1454…146c at0015 = ╱55╱U╱ // 0x1469 @0x15
0x1454…146c at0016 = ╱45╱E╱ // 0x146a @0x16
0x1454…146c at0017 = EOL // 0x146b @0x17
0x1454…146c }
0x146c…1473 aa61 09903 REPEAT
0x146c…1473 LineComal80 {
0x146c…1473 ptr = 0xaa61 // 0x146c @0x0
0x146c…1473 lno = 0x26af // 0x146e @0x2
0x146c…1473 at0004 = ╱971b╱ REPEAT ╱ // 0x1470 @0x4
0x146c…1473 at0006 = EOL // 0x1472 @0x6
0x146c…1473 }
0x1473…1483 aa71 09904 CURSOR 21 , LINE
0x1473…1483 LineComal80 {
0x1473…1483 ptr = 0xaa71 // 0x1473 @0x0
0x1473…1483 lno = 0x26b0 // 0x1475 @0x2
0x1473…1483 at0004 = ╱a1╱ CURSOR ╱ // 0x1477 @0x4
0x1473…1483 at0005 = ╱32╱2╱ // 0x1478 @0x5
0x1473…1483 at0006 = ╱31╱1╱ // 0x1479 @0x6
0x1473…1483 at0007 = ╱f21500╱ // 0x147a @0x7
0x1473…1483 at000a = ╱ec╱ , ╱ // 0x147d @0xa
0x1473…1483 at000b = ╱4c╱L╱ // 0x147e @0xb
0x1473…1483 at000c = ╱49╱I╱ // 0x147f @0xc
0x1473…1483 at000d = ╱4e╱N╱ // 0x1480 @0xd
0x1473…1483 at000e = ╱45╱E╱ // 0x1481 @0xe
0x1473…1483 at000f = EOL // 0x1482 @0xf
0x1473…1483 }
0x1483…14bc aaaa 09905 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
0x1483…14bc LineComal80 {
0x1483…14bc ptr = 0xaaaa // 0x1483 @0x0
0x1483…14bc lno = 0x26b1 // 0x1485 @0x2
0x1483…14bc at0004 = ╱b1╱ EDIT ╱ // 0x1487 @0x4
0x1483…14bc at0005 = ╱22╱"╱ // 0x1488 @0x5
0x1483…14bc at0006 = ╱3c╱<╱ // 0x1489 @0x6
0x1483…14bc at0007 = ╱5a╱Z╱ // 0x148a @0x7
0x1483…14bc at0008 = ╱3e╱>╱ // 0x148b @0x8
0x1483…14bc at0009 = ╱55╱U╱ // 0x148c @0x9
0x1483…14bc at000a = ╱64╱d╱ // 0x148d @0xa
0x1483…14bc at000b = ╱73╱s╱ // 0x148e @0xb
0x1483…14bc at000c = ╱6b╱k╱ // 0x148f @0xc
0x1483…14bc at000d = ╱72╱r╱ // 0x1490 @0xd
0x1483…14bc at000e = ╱69╱i╱ // 0x1491 @0xe
0x1483…14bc at000f = ╱76╱v╱ // 0x1492 @0xf
0x1483…14bc at0010 = ╱6e╱n╱ // 0x1493 @0x10
0x1483…14bc at0011 = ╱69╱i╱ // 0x1494 @0x11
0x1483…14bc at0012 = ╱6e╱n╱ // 0x1495 @0x12
0x1483…14bc at0013 = ╱67╱g╱ // 0x1496 @0x13
0x1483…14bc at0014 = ╱20╱…╱ // 0x1497 @0x14
0x1483…14bc at0015 = ╱70╱p╱ // 0x1498 @0x15
0x1483…14bc at0016 = ╱7d╱}╱ // 0x1499 @0x16
0x1483…14bc at0017 = ╱20╱…╱ // 0x149a @0x17
0x1483…14bc at0018 = ╱70╱p╱ // 0x149b @0x18
0x1483…14bc at0019 = ╱72╱r╱ // 0x149c @0x19
0x1483…14bc at001a = ╱69╱i╱ // 0x149d @0x1a
0x1483…14bc at001b = ╱6e╱n╱ // 0x149e @0x1b
0x1483…14bc at001c = ╱74╱t╱ // 0x149f @0x1c
0x1483…14bc at001d = ╱65╱e╱ // 0x14a0 @0x1d
0x1483…14bc at001e = ╱72╱r╱ // 0x14a1 @0x1e
0x1483…14bc at001f = ╱20╱…╱ // 0x14a2 @0x1f
0x1483…14bc at0020 = ╱6e╱n╱ // 0x14a3 @0x20
0x1483…14bc at0021 = ╱72╱r╱ // 0x14a4 @0x21
0x1483…14bc at0022 = ╱2e╱.╱ // 0x14a5 @0x22
0x1483…14bc at0023 = ╱20╱…╱ // 0x14a6 @0x23
0x1483…14bc at0024 = ╱3f╱?╱ // 0x14a7 @0x24
0x1483…14bc at0025 = ╱20╱…╱ // 0x14a8 @0x25
0x1483…14bc at0026 = ╱28╱(╱ // 0x14a9 @0x26
0x1483…14bc at0027 = ╱31╱1╱ // 0x14aa @0x27
0x1483…14bc at0028 = ╱2f╱/╱ // 0x14ab @0x28
0x1483…14bc at0029 = ╱32╱2╱ // 0x14ac @0x29
0x1483…14bc at002a = ╱2f╱/╱ // 0x14ad @0x2a
0x1483…14bc at002b = ╱33╱3╱ // 0x14ae @0x2b
0x1483…14bc at002c = ╱2f╱/╱ // 0x14af @0x2c
0x1483…14bc at002d = ╱34╱4╱ // 0x14b0 @0x2d
0x1483…14bc at002e = ╱29╱)╱ // 0x14b1 @0x2e
0x1483…14bc at002f = ╱20╱…╱ // 0x14b2 @0x2f
0x1483…14bc at0030 = ╱22╱"╱ // 0x14b3 @0x30
0x1483…14bc at0031 = ╱f1╱ : ╱ // 0x14b4 @0x31
0x1483…14bc at0032 = ╱50╱P╱ // 0x14b5 @0x32
0x1483…14bc at0033 = ╱52╱R╱ // 0x14b6 @0x33
0x1483…14bc at0034 = ╱54╱T╱ // 0x14b7 @0x34
0x1483…14bc at0035 = ╱4e╱N╱ // 0x14b8 @0x35
0x1483…14bc at0036 = ╱52╱R╱ // 0x14b9 @0x36
0x1483…14bc at0037 = ╱ef╱ $ ╱ // 0x14ba @0x37
0x1483…14bc at0038 = EOL // 0x14bb @0x38
0x1483…14bc }
0x14bc…14dc aaca 09906 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
0x14bc…14dc LineComal80 {
0x14bc…14dc ptr = 0xaaca // 0x14bc @0x0
0x14bc…14dc lno = 0x26b2 // 0x14be @0x2
0x14bc…14dc at0004 = ╱98╱ UNTIL ╱ // 0x14c0 @0x4
0x14bc…14dc at0005 = ╱22╱"╱ // 0x14c1 @0x5
0x14bc…14dc at0006 = ╱2f╱/╱ // 0x14c2 @0x6
0x14bc…14dc at0007 = ╱22╱"╱ // 0x14c3 @0x7
0x14bc…14dc at0008 = ╱eb╱ + ╱ // 0x14c4 @0x8
0x14bc…14dc at0009 = ╱50╱P╱ // 0x14c5 @0x9
0x14bc…14dc at000a = ╱52╱R╱ // 0x14c6 @0xa
0x14bc…14dc at000b = ╱54╱T╱ // 0x14c7 @0xb
0x14bc…14dc at000c = ╱4e╱N╱ // 0x14c8 @0xc
0x14bc…14dc at000d = ╱52╱R╱ // 0x14c9 @0xd
0x14bc…14dc at000e = ╱ef╱ $ ╱ // 0x14ca @0xe
0x14bc…14dc at000f = ╱eb╱ + ╱ // 0x14cb @0xf
0x14bc…14dc at0010 = ╱22╱"╱ // 0x14cc @0x10
0x14bc…14dc at0011 = ╱2f╱/╱ // 0x14cd @0x11
0x14bc…14dc at0012 = ╱22╱"╱ // 0x14ce @0x12
0x14bc…14dc at0013 = ╱dc╱ IN ╱ // 0x14cf @0x13
0x14bc…14dc at0014 = ╱22╱"╱ // 0x14d0 @0x14
0x14bc…14dc at0015 = ╱2f╱/╱ // 0x14d1 @0x15
0x14bc…14dc at0016 = ╱31╱1╱ // 0x14d2 @0x16
0x14bc…14dc at0017 = ╱2f╱/╱ // 0x14d3 @0x17
0x14bc…14dc at0018 = ╱32╱2╱ // 0x14d4 @0x18
0x14bc…14dc at0019 = ╱2f╱/╱ // 0x14d5 @0x19
0x14bc…14dc at001a = ╱33╱3╱ // 0x14d6 @0x1a
0x14bc…14dc at001b = ╱2f╱/╱ // 0x14d7 @0x1b
0x14bc…14dc at001c = ╱34╱4╱ // 0x14d8 @0x1c
0x14bc…14dc at001d = ╱2f╱/╱ // 0x14d9 @0x1d
0x14bc…14dc at001e = ╱22╱"╱ // 0x14da @0x1e
0x14bc…14dc at001f = EOL // 0x14db @0x1f
0x14bc…14dc }
0x14dc…1500 aaee 09907 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
0x14dc…1500 LineComal80 {
0x14dc…1500 ptr = 0xaaee // 0x14dc @0x0
0x14dc…1500 lno = 0x26b3 // 0x14de @0x2
0x14dc…1500 at0004 = ╱a1╱ CURSOR ╱ // 0x14e0 @0x4
0x14dc…1500 at0005 = ╱ed╱ ( ╱ // 0x14e1 @0x5
0x14dc…1500 at0006 = ╱33╱3╱ // 0x14e2 @0x6
0x14dc…1500 at0007 = ╱39╱9╱ // 0x14e3 @0x7
0x14dc…1500 at0008 = ╱f22700╱ // 0x14e4 @0x8
0x14dc…1500 at000b = ╱e6╱ - ╱ // 0x14e7 @0xb
0x14dc…1500 at000c = ╱cb╱ // 0x14e8 @0xc
0x14dc…1500 at000d = ╱ed╱ ( ╱ // 0x14e9 @0xd
0x14dc…1500 at000e = ╱50╱P╱ // 0x14ea @0xe
0x14dc…1500 at000f = ╱41╱A╱ // 0x14eb @0xf
0x14dc…1500 at0010 = ╱47╱G╱ // 0x14ec @0x10
0x14dc…1500 at0011 = ╱45╱E╱ // 0x14ed @0x11
0x14dc…1500 at0012 = ╱54╱T╱ // 0x14ee @0x12
0x14dc…1500 at0013 = ╱59╱Y╱ // 0x14ef @0x13
0x14dc…1500 at0014 = ╱50╱P╱ // 0x14f0 @0x14
0x14dc…1500 at0015 = ╱45╱E╱ // 0x14f1 @0x15
0x14dc…1500 at0016 = ╱ef╱ $ ╱ // 0x14f2 @0x16
0x14dc…1500 at0017 = ╱ee╱ ) ╱ // 0x14f3 @0x17
0x14dc…1500 at0018 = ╱ee╱ ) ╱ // 0x14f4 @0x18
0x14dc…1500 at0019 = ╱da╱ DIV ╱ // 0x14f5 @0x19
0x14dc…1500 at001a = ╱32╱2╱ // 0x14f6 @0x1a
0x14dc…1500 at001b = ╱f20200╱ // 0x14f7 @0x1b
0x14dc…1500 at001e = ╱ec╱ , ╱ // 0x14fa @0x1e
0x14dc…1500 at001f = ╱4c╱L╱ // 0x14fb @0x1f
0x14dc…1500 at0020 = ╱49╱I╱ // 0x14fc @0x20
0x14dc…1500 at0021 = ╱4e╱N╱ // 0x14fd @0x21
0x14dc…1500 at0022 = ╱45╱E╱ // 0x14fe @0x22
0x14dc…1500 at0023 = EOL // 0x14ff @0x23
0x14dc…1500 }
0x1500…1540 ab2e 09908 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
0x1500…1540 LineComal80 {
0x1500…1540 ptr = 0xab2e // 0x1500 @0x0
0x1500…1540 lno = 0x26b4 // 0x1502 @0x2
0x1500…1540 at0004 = ╱92╱ PRINT ╱ // 0x1504 @0x4
0x1500…1540 at0005 = ╱22╱"╱ // 0x1505 @0x5
0x1500…1540 at0006 = ╱3c╱<╱ // 0x1506 @0x6
0x1500…1540 at0007 = ╱53╱S╱ // 0x1507 @0x7
0x1500…1540 at0008 = ╱5a╱Z╱ // 0x1508 @0x8
0x1500…1540 at0009 = ╱3e╱>╱ // 0x1509 @0x9
0x1500…1540 at000a = ╱20╱…╱ // 0x150a @0xa
0x1500…1540 at000b = ╱20╱…╱ // 0x150b @0xb
0x1500…1540 at000c = ╱20╱…╱ // 0x150c @0xc
0x1500…1540 at000d = ╱20╱…╱ // 0x150d @0xd
0x1500…1540 at000e = ╱20╱…╱ // 0x150e @0xe
0x1500…1540 at000f = ╱4d╱M╱ // 0x150f @0xf
0x1500…1540 at0010 = ╱6f╱o╱ // 0x1510 @0x10
0x1500…1540 at0011 = ╱6e╱n╱ // 0x1511 @0x11
0x1500…1540 at0012 = ╱74╱t╱ // 0x1512 @0x12
0x1500…1540 at0013 = ╱65╱e╱ // 0x1513 @0x13
0x1500…1540 at0014 = ╱72╱r╱ // 0x1514 @0x14
0x1500…1540 at0015 = ╱20╱…╱ // 0x1515 @0x15
0x1500…1540 at0016 = ╱22╱"╱ // 0x1516 @0x16
0x1500…1540 at0017 = ╱ea╱ ; ╱ // 0x1517 @0x17
0x1500…1540 at0018 = ╱50╱P╱ // 0x1518 @0x18
0x1500…1540 at0019 = ╱41╱A╱ // 0x1519 @0x19
0x1500…1540 at001a = ╱47╱G╱ // 0x151a @0x1a
0x1500…1540 at001b = ╱45╱E╱ // 0x151b @0x1b
0x1500…1540 at001c = ╱54╱T╱ // 0x151c @0x1c
0x1500…1540 at001d = ╱59╱Y╱ // 0x151d @0x1d
0x1500…1540 at001e = ╱50╱P╱ // 0x151e @0x1e
0x1500…1540 at001f = ╱45╱E╱ // 0x151f @0x1f
0x1500…1540 at0020 = ╱ef╱ $ ╱ // 0x1520 @0x20
0x1500…1540 at0021 = ╱ea╱ ; ╱ // 0x1521 @0x21
0x1500…1540 at0022 = ╱22╱"╱ // 0x1522 @0x22
0x1500…1540 at0023 = ╱20╱…╱ // 0x1523 @0x23
0x1500…1540 at0024 = ╱69╱i╱ // 0x1524 @0x24
0x1500…1540 at0025 = ╱20╱…╱ // 0x1525 @0x25
0x1500…1540 at0026 = ╱70╱p╱ // 0x1526 @0x26
0x1500…1540 at0027 = ╱72╱r╱ // 0x1527 @0x27
0x1500…1540 at0028 = ╱69╱i╱ // 0x1528 @0x28
0x1500…1540 at0029 = ╱6e╱n╱ // 0x1529 @0x29
0x1500…1540 at002a = ╱74╱t╱ // 0x152a @0x2a
0x1500…1540 at002b = ╱65╱e╱ // 0x152b @0x2b
0x1500…1540 at002c = ╱72╱r╱ // 0x152c @0x2c
0x1500…1540 at002d = ╱65╱e╱ // 0x152d @0x2d
0x1500…1540 at002e = ╱6e╱n╱ // 0x152e @0x2e
0x1500…1540 at002f = ╱20╱…╱ // 0x152f @0x2f
0x1500…1540 at0030 = ╱2d╱-╱ // 0x1530 @0x30
0x1500…1540 at0031 = ╱20╱…╱ // 0x1531 @0x31
0x1500…1540 at0032 = ╱74╱t╱ // 0x1532 @0x32
0x1500…1540 at0033 = ╱72╱r╱ // 0x1533 @0x33
0x1500…1540 at0034 = ╱79╱y╱ // 0x1534 @0x34
0x1500…1540 at0035 = ╱6b╱k╱ // 0x1535 @0x35
0x1500…1540 at0036 = ╱20╱…╱ // 0x1536 @0x36
0x1500…1540 at0037 = ╱52╱R╱ // 0x1537 @0x37
0x1500…1540 at0038 = ╱45╱E╱ // 0x1538 @0x38
0x1500…1540 at0039 = ╱54╱T╱ // 0x1539 @0x39
0x1500…1540 at003a = ╱55╱U╱ // 0x153a @0x3a
0x1500…1540 at003b = ╱52╱R╱ // 0x153b @0x3b
0x1500…1540 at003c = ╱4e╱N╱ // 0x153c @0x3c
0x1500…1540 at003d = ╱20╱…╱ // 0x153d @0x3d
0x1500…1540 at003e = ╱22╱"╱ // 0x153e @0x3e
0x1500…1540 at003f = EOL // 0x153f @0x3f
0x1500…1540 }
0x1540…154e ab3c 09909 INPUT "" : SVAR $
0x1540…154e LineComal80 {
0x1540…154e ptr = 0xab3c // 0x1540 @0x0
0x1540…154e lno = 0x26b5 // 0x1542 @0x2
0x1540…154e at0004 = ╱91╱ INPUT ╱ // 0x1544 @0x4
0x1540…154e at0005 = ╱22╱"╱ // 0x1545 @0x5
0x1540…154e at0006 = ╱22╱"╱ // 0x1546 @0x6
0x1540…154e at0007 = ╱f1╱ : ╱ // 0x1547 @0x7
0x1540…154e at0008 = ╱53╱S╱ // 0x1548 @0x8
0x1540…154e at0009 = ╱56╱V╱ // 0x1549 @0x9
0x1540…154e at000a = ╱41╱A╱ // 0x154a @0xa
0x1540…154e at000b = ╱52╱R╱ // 0x154b @0xb
0x1540…154e at000c = ╱ef╱ $ ╱ // 0x154c @0xc
0x1540…154e at000d = EOL // 0x154d @0xd
0x1540…154e }
0x154e…155e ab4c 09910 SELECT OUTPUT "P" + PRTNR $
0x154e…155e LineComal80 {
0x154e…155e ptr = 0xab4c // 0x154e @0x0
0x154e…155e lno = 0x26b6 // 0x1550 @0x2
0x154e…155e at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x1552 @0x4
0x154e…155e at0005 = ╱22╱"╱ // 0x1553 @0x5
0x154e…155e at0006 = ╱50╱P╱ // 0x1554 @0x6
0x154e…155e at0007 = ╱22╱"╱ // 0x1555 @0x7
0x154e…155e at0008 = ╱eb╱ + ╱ // 0x1556 @0x8
0x154e…155e at0009 = ╱50╱P╱ // 0x1557 @0x9
0x154e…155e at000a = ╱52╱R╱ // 0x1558 @0xa
0x154e…155e at000b = ╱54╱T╱ // 0x1559 @0xb
0x154e…155e at000c = ╱4e╱N╱ // 0x155a @0xc
0x154e…155e at000d = ╱52╱R╱ // 0x155b @0xd
0x154e…155e at000e = ╱ef╱ $ ╱ // 0x155c @0xe
0x154e…155e at000f = EOL // 0x155d @0xf
0x154e…155e }
0x155e…156c ab5a 09911 IF ( "P" ) THEN
0x155e…156c LineComal80 {
0x155e…156c ptr = 0xab5a // 0x155e @0x0
0x155e…156c lno = 0x26b7 // 0x1560 @0x2
0x155e…156c at0004 = ╱9b1ccd╱ IF ╱ // 0x1562 @0x4
0x155e…156c at0007 = ╱ed╱ ( ╱ // 0x1565 @0x7
0x155e…156c at0008 = ╱22╱"╱ // 0x1566 @0x8
0x155e…156c at0009 = ╱50╱P╱ // 0x1567 @0x9
0x155e…156c at000a = ╱22╱"╱ // 0x1568 @0xa
0x155e…156c at000b = ╱ee╱ ) ╱ // 0x1569 @0xb
0x155e…156c at000c = ╱b5╱ THEN ╱ // 0x156a @0xc
0x155e…156c at000d = EOL // 0x156b @0xd
0x155e…156c }
0x156c…157c ab6a 09912 CURSOR 12 , LINE
0x156c…157c LineComal80 {
0x156c…157c ptr = 0xab6a // 0x156c @0x0
0x156c…157c lno = 0x26b8 // 0x156e @0x2
0x156c…157c at0004 = ╱a1╱ CURSOR ╱ // 0x1570 @0x4
0x156c…157c at0005 = ╱31╱1╱ // 0x1571 @0x5
0x156c…157c at0006 = ╱32╱2╱ // 0x1572 @0x6
0x156c…157c at0007 = ╱f20c00╱ // 0x1573 @0x7
0x156c…157c at000a = ╱ec╱ , ╱ // 0x1576 @0xa
0x156c…157c at000b = ╱4c╱L╱ // 0x1577 @0xb
0x156c…157c at000c = ╱49╱I╱ // 0x1578 @0xc
0x156c…157c at000d = ╱4e╱N╱ // 0x1579 @0xd
0x156c…157c at000e = ╱45╱E╱ // 0x157a @0xe
0x156c…157c at000f = EOL // 0x157b @0xf
0x156c…157c }
0x157c…15b3 aba1 09913 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
0x157c…15b3 LineComal80 {
0x157c…15b3 ptr = 0xaba1 // 0x157c @0x0
0x157c…15b3 lno = 0x26b9 // 0x157e @0x2
0x157c…15b3 at0004 = ╱92╱ PRINT ╱ // 0x1580 @0x4
0x157c…15b3 at0005 = ╱22╱"╱ // 0x1581 @0x5
0x157c…15b3 at0006 = ╱3c╱<╱ // 0x1582 @0x6
0x157c…15b3 at0007 = ╱53╱S╱ // 0x1583 @0x7
0x157c…15b3 at0008 = ╱5a╱Z╱ // 0x1584 @0x8
0x157c…15b3 at0009 = ╱3e╱>╱ // 0x1585 @0x9
0x157c…15b3 at000a = ╱50╱P╱ // 0x1586 @0xa
0x157c…15b3 at000b = ╱72╱r╱ // 0x1587 @0xb
0x157c…15b3 at000c = ╱69╱i╱ // 0x1588 @0xc
0x157c…15b3 at000d = ╱6e╱n╱ // 0x1589 @0xd
0x157c…15b3 at000e = ╱74╱t╱ // 0x158a @0xe
0x157c…15b3 at000f = ╱65╱e╱ // 0x158b @0xf
0x157c…15b3 at0010 = ╱72╱r╱ // 0x158c @0x10
0x157c…15b3 at0011 = ╱65╱e╱ // 0x158d @0x11
0x157c…15b3 at0012 = ╱6e╱n╱ // 0x158e @0x12
0x157c…15b3 at0013 = ╱20╱…╱ // 0x158f @0x13
0x157c…15b3 at0014 = ╱65╱e╱ // 0x1590 @0x14
0x157c…15b3 at0015 = ╱72╱r╱ // 0x1591 @0x15
0x157c…15b3 at0016 = ╱20╱…╱ // 0x1592 @0x16
0x157c…15b3 at0017 = ╱72╱r╱ // 0x1593 @0x17
0x157c…15b3 at0018 = ╱65╱e╱ // 0x1594 @0x18
0x157c…15b3 at0019 = ╱73╱s╱ // 0x1595 @0x19
0x157c…15b3 at001a = ╱65╱e╱ // 0x1596 @0x1a
0x157c…15b3 at001b = ╱72╱r╱ // 0x1597 @0x1b
0x157c…15b3 at001c = ╱76╱v╱ // 0x1598 @0x1c
0x157c…15b3 at001d = ╱65╱e╱ // 0x1599 @0x1d
0x157c…15b3 at001e = ╱72╱r╱ // 0x159a @0x1e
0x157c…15b3 at001f = ╱65╱e╱ // 0x159b @0x1f
0x157c…15b3 at0020 = ╱74╱t╱ // 0x159c @0x20
0x157c…15b3 at0021 = ╱20╱…╱ // 0x159d @0x21
0x157c…15b3 at0022 = ╱61╱a╱ // 0x159e @0x22
0x157c…15b3 at0023 = ╱66╱f╱ // 0x159f @0x23
0x157c…15b3 at0024 = ╱20╱…╱ // 0x15a0 @0x24
0x157c…15b3 at0025 = ╱65╱e╱ // 0x15a1 @0x25
0x157c…15b3 at0026 = ╱6e╱n╱ // 0x15a2 @0x26
0x157c…15b3 at0027 = ╱20╱…╱ // 0x15a3 @0x27
0x157c…15b3 at0028 = ╱61╱a╱ // 0x15a4 @0x28
0x157c…15b3 at0029 = ╱6e╱n╱ // 0x15a5 @0x29
0x157c…15b3 at002a = ╱64╱d╱ // 0x15a6 @0x2a
0x157c…15b3 at002b = ╱65╱e╱ // 0x15a7 @0x2b
0x157c…15b3 at002c = ╱6e╱n╱ // 0x15a8 @0x2c
0x157c…15b3 at002d = ╱20╱…╱ // 0x15a9 @0x2d
0x157c…15b3 at002e = ╱62╱b╱ // 0x15aa @0x2e
0x157c…15b3 at002f = ╱72╱r╱ // 0x15ab @0x2f
0x157c…15b3 at0030 = ╱75╱u╱ // 0x15ac @0x30
0x157c…15b3 at0031 = ╱67╱g╱ // 0x15ad @0x31
0x157c…15b3 at0032 = ╱65╱e╱ // 0x15ae @0x32
0x157c…15b3 at0033 = ╱72╱r╱ // 0x15af @0x33
0x157c…15b3 at0034 = ╱2c╱,╱ // 0x15b0 @0x34
0x157c…15b3 at0035 = ╱22╱"╱ // 0x15b1 @0x35
0x157c…15b3 at0036 = EOL // 0x15b2 @0x36
0x157c…15b3 }
0x15b3…15c8 abb6 09914 CURSOR 12 , LINE + 1
0x15b3…15c8 LineComal80 {
0x15b3…15c8 ptr = 0xabb6 // 0x15b3 @0x0
0x15b3…15c8 lno = 0x26ba // 0x15b5 @0x2
0x15b3…15c8 at0004 = ╱a1╱ CURSOR ╱ // 0x15b7 @0x4
0x15b3…15c8 at0005 = ╱31╱1╱ // 0x15b8 @0x5
0x15b3…15c8 at0006 = ╱32╱2╱ // 0x15b9 @0x6
0x15b3…15c8 at0007 = ╱f20c00╱ // 0x15ba @0x7
0x15b3…15c8 at000a = ╱ec╱ , ╱ // 0x15bd @0xa
0x15b3…15c8 at000b = ╱4c╱L╱ // 0x15be @0xb
0x15b3…15c8 at000c = ╱49╱I╱ // 0x15bf @0xc
0x15b3…15c8 at000d = ╱4e╱N╱ // 0x15c0 @0xd
0x15b3…15c8 at000e = ╱45╱E╱ // 0x15c1 @0xe
0x15b3…15c8 at000f = ╱e5╱ + ╱ // 0x15c2 @0xf
0x15b3…15c8 at0010 = ╱31╱1╱ // 0x15c3 @0x10
0x15b3…15c8 at0011 = ╱f20100╱ // 0x15c4 @0x11
0x15b3…15c8 at0014 = EOL // 0x15c7 @0x14
0x15b3…15c8 }
0x15c8…1609 abf7 09915 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
0x15c8…1609 LineComal80 {
0x15c8…1609 ptr = 0xabf7 // 0x15c8 @0x0
0x15c8…1609 lno = 0x26bb // 0x15ca @0x2
0x15c8…1609 at0004 = ╱91╱ INPUT ╱ // 0x15cc @0x4
0x15c8…1609 at0005 = ╱22╱"╱ // 0x15cd @0x5
0x15c8…1609 at0006 = ╱3c╱<╱ // 0x15ce @0x6
0x15c8…1609 at0007 = ╱53╱S╱ // 0x15cf @0x7
0x15c8…1609 at0008 = ╱5a╱Z╱ // 0x15d0 @0x8
0x15c8…1609 at0009 = ╱3e╱>╱ // 0x15d1 @0x9
0x15c8…1609 at000a = ╱53╱S╱ // 0x15d2 @0xa
0x15c8…1609 at000b = ╱6b╱k╱ // 0x15d3 @0xb
0x15c8…1609 at000c = ╱61╱a╱ // 0x15d4 @0xc
0x15c8…1609 at000d = ╱6c╱l╱ // 0x15d5 @0xd
0x15c8…1609 at000e = ╱20╱…╱ // 0x15d6 @0xe
0x15c8…1609 at000f = ╱64╱d╱ // 0x15d7 @0xf
0x15c8…1609 at0010 = ╱65╱e╱ // 0x15d8 @0x10
0x15c8…1609 at0011 = ╱72╱r╱ // 0x15d9 @0x11
0x15c8…1609 at0012 = ╱20╱…╱ // 0x15da @0x12
0x15c8…1609 at0013 = ╱76╱v╱ // 0x15db @0x13
0x15c8…1609 at0014 = ╱65╱e╱ // 0x15dc @0x14
0x15c8…1609 at0015 = ╱6e╱n╱ // 0x15dd @0x15
0x15c8…1609 at0016 = ╱74╱t╱ // 0x15de @0x16
0x15c8…1609 at0017 = ╱65╱e╱ // 0x15df @0x17
0x15c8…1609 at0018 = ╱73╱s╱ // 0x15e0 @0x18
0x15c8…1609 at0019 = ╱20╱…╱ // 0x15e1 @0x19
0x15c8…1609 at001a = ╱70╱p╱ // 0x15e2 @0x1a
0x15c8…1609 at001b = ╱7d╱}╱ // 0x15e3 @0x1b
0x15c8…1609 at001c = ╱20╱…╱ // 0x15e4 @0x1c
0x15c8…1609 at001d = ╱61╱a╱ // 0x15e5 @0x1d
0x15c8…1609 at001e = ╱74╱t╱ // 0x15e6 @0x1e
0x15c8…1609 at001f = ╱20╱…╱ // 0x15e7 @0x1f
0x15c8…1609 at0020 = ╱64╱d╱ // 0x15e8 @0x20
0x15c8…1609 at0021 = ╱65╱e╱ // 0x15e9 @0x21
0x15c8…1609 at0022 = ╱6e╱n╱ // 0x15ea @0x22
0x15c8…1609 at0023 = ╱20╱…╱ // 0x15eb @0x23
0x15c8…1609 at0024 = ╱62╱b╱ // 0x15ec @0x24
0x15c8…1609 at0025 = ╱6c╱l╱ // 0x15ed @0x25
0x15c8…1609 at0026 = ╱69╱i╱ // 0x15ee @0x26
0x15c8…1609 at0027 = ╱76╱v╱ // 0x15ef @0x27
0x15c8…1609 at0028 = ╱65╱e╱ // 0x15f0 @0x28
0x15c8…1609 at0029 = ╱72╱r╱ // 0x15f1 @0x29
0x15c8…1609 at002a = ╱20╱…╱ // 0x15f2 @0x2a
0x15c8…1609 at002b = ╱6c╱l╱ // 0x15f3 @0x2b
0x15c8…1609 at002c = ╱65╱e╱ // 0x15f4 @0x2c
0x15c8…1609 at002d = ╱64╱d╱ // 0x15f5 @0x2d
0x15c8…1609 at002e = ╱69╱i╱ // 0x15f6 @0x2e
0x15c8…1609 at002f = ╱67╱g╱ // 0x15f7 @0x2f
0x15c8…1609 at0030 = ╱20╱…╱ // 0x15f8 @0x30
0x15c8…1609 at0031 = ╱3f╱?╱ // 0x15f9 @0x31
0x15c8…1609 at0032 = ╱20╱…╱ // 0x15fa @0x32
0x15c8…1609 at0033 = ╱28╱(╱ // 0x15fb @0x33
0x15c8…1609 at0034 = ╱6a╱j╱ // 0x15fc @0x34
0x15c8…1609 at0035 = ╱2f╱/╱ // 0x15fd @0x35
0x15c8…1609 at0036 = ╱6e╱n╱ // 0x15fe @0x36
0x15c8…1609 at0037 = ╱29╱)╱ // 0x15ff @0x37
0x15c8…1609 at0038 = ╱20╱…╱ // 0x1600 @0x38
0x15c8…1609 at0039 = ╱22╱"╱ // 0x1601 @0x39
0x15c8…1609 at003a = ╱f1╱ : ╱ // 0x1602 @0x3a
0x15c8…1609 at003b = ╱53╱S╱ // 0x1603 @0x3b
0x15c8…1609 at003c = ╱56╱V╱ // 0x1604 @0x3c
0x15c8…1609 at003d = ╱41╱A╱ // 0x1605 @0x3d
0x15c8…1609 at003e = ╱52╱R╱ // 0x1606 @0x3e
0x15c8…1609 at003f = ╱ef╱ $ ╱ // 0x1607 @0x3f
0x15c8…1609 at0040 = EOL // 0x1608 @0x40
0x15c8…1609 }
0x1609…1624 ac12 09916 IF VAR $ = "J" OR SVAR $ = "j" THEN
0x1609…1624 LineComal80 {
0x1609…1624 ptr = 0xac12 // 0x1609 @0x0
0x1609…1624 lno = 0x26bc // 0x160b @0x2
0x1609…1624 at0004 = ╱9b1d53╱ IF ╱ // 0x160d @0x4
0x1609…1624 at0007 = ╱56╱V╱ // 0x1610 @0x7
0x1609…1624 at0008 = ╱41╱A╱ // 0x1611 @0x8
0x1609…1624 at0009 = ╱52╱R╱ // 0x1612 @0x9
0x1609…1624 at000a = ╱ef╱ $ ╱ // 0x1613 @0xa
0x1609…1624 at000b = ╱df╱ = ╱ // 0x1614 @0xb
0x1609…1624 at000c = ╱22╱"╱ // 0x1615 @0xc
0x1609…1624 at000d = ╱4a╱J╱ // 0x1616 @0xd
0x1609…1624 at000e = ╱22╱"╱ // 0x1617 @0xe
0x1609…1624 at000f = ╱d8╱ OR ╱ // 0x1618 @0xf
0x1609…1624 at0010 = ╱53╱S╱ // 0x1619 @0x10
0x1609…1624 at0011 = ╱56╱V╱ // 0x161a @0x11
0x1609…1624 at0012 = ╱41╱A╱ // 0x161b @0x12
0x1609…1624 at0013 = ╱52╱R╱ // 0x161c @0x13
0x1609…1624 at0014 = ╱ef╱ $ ╱ // 0x161d @0x14
0x1609…1624 at0015 = ╱df╱ = ╱ // 0x161e @0x15
0x1609…1624 at0016 = ╱22╱"╱ // 0x161f @0x16
0x1609…1624 at0017 = ╱6a╱j╱ // 0x1620 @0x17
0x1609…1624 at0018 = ╱22╱"╱ // 0x1621 @0x18
0x1609…1624 at0019 = ╱b5╱ THEN ╱ // 0x1622 @0x19
0x1609…1624 at001a = EOL // 0x1623 @0x1a
0x1609…1624 }
0x1624…1634 ac22 09917 CURSOR 12 , LINE
0x1624…1634 LineComal80 {
0x1624…1634 ptr = 0xac22 // 0x1624 @0x0
0x1624…1634 lno = 0x26bd // 0x1626 @0x2
0x1624…1634 at0004 = ╱a1╱ CURSOR ╱ // 0x1628 @0x4
0x1624…1634 at0005 = ╱31╱1╱ // 0x1629 @0x5
0x1624…1634 at0006 = ╱32╱2╱ // 0x162a @0x6
0x1624…1634 at0007 = ╱f20c00╱ // 0x162b @0x7
0x1624…1634 at000a = ╱ec╱ , ╱ // 0x162e @0xa
0x1624…1634 at000b = ╱4c╱L╱ // 0x162f @0xb
0x1624…1634 at000c = ╱49╱I╱ // 0x1630 @0xc
0x1624…1634 at000d = ╱4e╱N╱ // 0x1631 @0xd
0x1624…1634 at000e = ╱45╱E╱ // 0x1632 @0xe
0x1624…1634 at000f = EOL // 0x1633 @0xf
0x1624…1634 }
0x1634…166f ac5d 09918 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
0x1634…166f LineComal80 {
0x1634…166f ptr = 0xac5d // 0x1634 @0x0
0x1634…166f lno = 0x26be // 0x1636 @0x2
0x1634…166f at0004 = ╱92╱ PRINT ╱ // 0x1638 @0x4
0x1634…166f at0005 = ╱22╱"╱ // 0x1639 @0x5
0x1634…166f at0006 = ╱3c╱<╱ // 0x163a @0x6
0x1634…166f at0007 = ╱5a╱Z╱ // 0x163b @0x7
0x1634…166f at0008 = ╱3e╱>╱ // 0x163c @0x8
0x1634…166f at0009 = ╱20╱…╱ // 0x163d @0x9
0x1634…166f at000a = ╱20╱…╱ // 0x163e @0xa
0x1634…166f at000b = ╱20╱…╱ // 0x163f @0xb
0x1634…166f at000c = ╱20╱…╱ // 0x1640 @0xc
0x1634…166f at000d = ╱20╱…╱ // 0x1641 @0xd
0x1634…166f at000e = ╱44╱D╱ // 0x1642 @0xe
0x1634…166f at000f = ╱65╱e╱ // 0x1643 @0xf
0x1634…166f at0010 = ╱72╱r╱ // 0x1644 @0x10
0x1634…166f at0011 = ╱20╱…╱ // 0x1645 @0x11
0x1634…166f at0012 = ╱76╱v╱ // 0x1646 @0x12
0x1634…166f at0013 = ╱65╱e╱ // 0x1647 @0x13
0x1634…166f at0014 = ╱6e╱n╱ // 0x1648 @0x14
0x1634…166f at0015 = ╱74╱t╱ // 0x1649 @0x15
0x1634…166f at0016 = ╱65╱e╱ // 0x164a @0x16
0x1634…166f at0017 = ╱73╱s╱ // 0x164b @0x17
0x1634…166f at0018 = ╱20╱…╱ // 0x164c @0x18
0x1634…166f at0019 = ╱70╱p╱ // 0x164d @0x19
0x1634…166f at001a = ╱7d╱}╱ // 0x164e @0x1a
0x1634…166f at001b = ╱20╱…╱ // 0x164f @0x1b
0x1634…166f at001c = ╱61╱a╱ // 0x1650 @0x1c
0x1634…166f at001d = ╱74╱t╱ // 0x1651 @0x1d
0x1634…166f at001e = ╱20╱…╱ // 0x1652 @0x1e
0x1634…166f at001f = ╱70╱p╱ // 0x1653 @0x1f
0x1634…166f at0020 = ╱72╱r╱ // 0x1654 @0x20
0x1634…166f at0021 = ╱69╱i╱ // 0x1655 @0x21
0x1634…166f at0022 = ╱6e╱n╱ // 0x1656 @0x22
0x1634…166f at0023 = ╱74╱t╱ // 0x1657 @0x23
0x1634…166f at0024 = ╱65╱e╱ // 0x1658 @0x24
0x1634…166f at0025 = ╱72╱r╱ // 0x1659 @0x25
0x1634…166f at0026 = ╱65╱e╱ // 0x165a @0x26
0x1634…166f at0027 = ╱6e╱n╱ // 0x165b @0x27
0x1634…166f at0028 = ╱20╱…╱ // 0x165c @0x28
0x1634…166f at0029 = ╱62╱b╱ // 0x165d @0x29
0x1634…166f at002a = ╱6c╱l╱ // 0x165e @0x2a
0x1634…166f at002b = ╱69╱i╱ // 0x165f @0x2b
0x1634…166f at002c = ╱76╱v╱ // 0x1660 @0x2c
0x1634…166f at002d = ╱65╱e╱ // 0x1661 @0x2d
0x1634…166f at002e = ╱72╱r╱ // 0x1662 @0x2e
0x1634…166f at002f = ╱20╱…╱ // 0x1663 @0x2f
0x1634…166f at0030 = ╱6c╱l╱ // 0x1664 @0x30
0x1634…166f at0031 = ╱65╱e╱ // 0x1665 @0x31
0x1634…166f at0032 = ╱64╱d╱ // 0x1666 @0x32
0x1634…166f at0033 = ╱69╱i╱ // 0x1667 @0x33
0x1634…166f at0034 = ╱67╱g╱ // 0x1668 @0x34
0x1634…166f at0035 = ╱2e╱.╱ // 0x1669 @0x35
0x1634…166f at0036 = ╱2e╱.╱ // 0x166a @0x36
0x1634…166f at0037 = ╱2e╱.╱ // 0x166b @0x37
0x1634…166f at0038 = ╱2e╱.╱ // 0x166c @0x38
0x1634…166f at0039 = ╱22╱"╱ // 0x166d @0x39
0x1634…166f at003a = EOL // 0x166e @0x3a
0x1634…166f }
0x166f…167b ac69 09919 PRINT "<SZ>"
0x166f…167b LineComal80 {
0x166f…167b ptr = 0xac69 // 0x166f @0x0
0x166f…167b lno = 0x26bf // 0x1671 @0x2
0x166f…167b at0004 = ╱92╱ PRINT ╱ // 0x1673 @0x4
0x166f…167b at0005 = ╱22╱"╱ // 0x1674 @0x5
0x166f…167b at0006 = ╱3c╱<╱ // 0x1675 @0x6
0x166f…167b at0007 = ╱53╱S╱ // 0x1676 @0x7
0x166f…167b at0008 = ╱5a╱Z╱ // 0x1677 @0x8
0x166f…167b at0009 = ╱3e╱>╱ // 0x1678 @0x9
0x166f…167b at000a = ╱22╱"╱ // 0x1679 @0xa
0x166f…167b at000b = EOL // 0x167a @0xb
0x166f…167b }
0x167b…1689 ac77 09920 WHILE ╱cd╱ ( "P" ) DO
0x167b…1689 LineComal80 {
0x167b…1689 ptr = 0xac77 // 0x167b @0x0
0x167b…1689 lno = 0x26c0 // 0x167d @0x2
0x167b…1689 at0004 = ╱931e╱ WHILE ╱ // 0x167f @0x4
0x167b…1689 at0006 = ╱cd╱ // 0x1681 @0x6
0x167b…1689 at0007 = ╱ed╱ ( ╱ // 0x1682 @0x7
0x167b…1689 at0008 = ╱22╱"╱ // 0x1683 @0x8
0x167b…1689 at0009 = ╱50╱P╱ // 0x1684 @0x9
0x167b…1689 at000a = ╱22╱"╱ // 0x1685 @0xa
0x167b…1689 at000b = ╱ee╱ ) ╱ // 0x1686 @0xb
0x167b…1689 at000c = ╱bb╱ DO ╱ // 0x1687 @0xc
0x167b…1689 at000d = EOL // 0x1688 @0xd
0x167b…1689 }
0x1689…169a ac88 09921 LET SEK := ╱ca╱ ( 5 )
0x1689…169a LineComal80 {
0x1689…169a ptr = 0xac88 // 0x1689 @0x0
0x1689…169a lno = 0x26c1 // 0x168b @0x2
0x1689…169a at0004 = ╱86╱ LET ╱ // 0x168d @0x4
0x1689…169a at0005 = ╱53╱S╱ // 0x168e @0x5
0x1689…169a at0006 = ╱45╱E╱ // 0x168f @0x6
0x1689…169a at0007 = ╱4b╱K╱ // 0x1690 @0x7
0x1689…169a at0008 = ╱f0╱ := ╱ // 0x1691 @0x8
0x1689…169a at0009 = ╱ca╱ // 0x1692 @0x9
0x1689…169a at000a = ╱ed╱ ( ╱ // 0x1693 @0xa
0x1689…169a at000b = ╱35╱5╱ // 0x1694 @0xb
0x1689…169a at000c = ╱f20500╱ // 0x1695 @0xc
0x1689…169a at000f = ╱ee╱ ) ╱ // 0x1698 @0xf
0x1689…169a at0010 = EOL // 0x1699 @0x10
0x1689…169a }
0x169a…16aa ac98 09922 SELECT OUTPUT "P" + PRTNR $
0x169a…16aa LineComal80 {
0x169a…16aa ptr = 0xac98 // 0x169a @0x0
0x169a…16aa lno = 0x26c2 // 0x169c @0x2
0x169a…16aa at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x169e @0x4
0x169a…16aa at0005 = ╱22╱"╱ // 0x169f @0x5
0x169a…16aa at0006 = ╱50╱P╱ // 0x16a0 @0x6
0x169a…16aa at0007 = ╱22╱"╱ // 0x16a1 @0x7
0x169a…16aa at0008 = ╱eb╱ + ╱ // 0x16a2 @0x8
0x169a…16aa at0009 = ╱50╱P╱ // 0x16a3 @0x9
0x169a…16aa at000a = ╱52╱R╱ // 0x16a4 @0xa
0x169a…16aa at000b = ╱54╱T╱ // 0x16a5 @0xb
0x169a…16aa at000c = ╱4e╱N╱ // 0x16a6 @0xc
0x169a…16aa at000d = ╱52╱R╱ // 0x16a7 @0xd
0x169a…16aa at000e = ╱ef╱ $ ╱ // 0x16a8 @0xe
0x169a…16aa at000f = EOL // 0x16a9 @0xf
0x169a…16aa }
0x16aa…16b0 ac9e 09923 ENDWHILE
0x16aa…16b0 LineComal80 {
0x16aa…16b0 ptr = 0xac9e // 0x16aa @0x0
0x16aa…16b0 lno = 0x26c3 // 0x16ac @0x2
0x16aa…16b0 at0004 = ╱94╱ ENDWHILE ╱ // 0x16ae @0x4
0x16aa…16b0 at0005 = EOL // 0x16af @0x5
0x16aa…16b0 }
0x16b0…16b7 aca5 09924 ELSE
0x16b0…16b7 LineComal80 {
0x16b0…16b7 ptr = 0xaca5 // 0x16b0 @0x0
0x16b0…16b7 lno = 0x26c4 // 0x16b2 @0x2
0x16b0…16b7 at0004 = ╱9a1f╱ ELSE ╱ // 0x16b4 @0x4
0x16b0…16b7 at0006 = EOL // 0x16b6 @0x6
0x16b0…16b7 }
0x16b7…16c5 acb3 09925 LET OK := FALSE
0x16b7…16c5 LineComal80 {
0x16b7…16c5 ptr = 0xacb3 // 0x16b7 @0x0
0x16b7…16c5 lno = 0x26c5 // 0x16b9 @0x2
0x16b7…16c5 at0004 = ╱86╱ LET ╱ // 0x16bb @0x4
0x16b7…16c5 at0005 = ╱4f╱O╱ // 0x16bc @0x5
0x16b7…16c5 at0006 = ╱4b╱K╱ // 0x16bd @0x6
0x16b7…16c5 at0007 = ╱f0╱ := ╱ // 0x16be @0x7
0x16b7…16c5 at0008 = ╱46╱F╱ // 0x16bf @0x8
0x16b7…16c5 at0009 = ╱41╱A╱ // 0x16c0 @0x9
0x16b7…16c5 at000a = ╱4c╱L╱ // 0x16c1 @0xa
0x16b7…16c5 at000b = ╱53╱S╱ // 0x16c2 @0xb
0x16b7…16c5 at000c = ╱45╱E╱ // 0x16c3 @0xc
0x16b7…16c5 at000d = EOL // 0x16c4 @0xd
0x16b7…16c5 }
0x16c5…16cb acb9 09926 ENDIF
0x16c5…16cb LineComal80 {
0x16c5…16cb ptr = 0xacb9 // 0x16c5 @0x0
0x16c5…16cb lno = 0x26c6 // 0x16c7 @0x2
0x16c5…16cb at0004 = ╱9c╱ ENDIF ╱ // 0x16c9 @0x4
0x16c5…16cb at0005 = EOL // 0x16ca @0x5
0x16c5…16cb }
0x16cb…16d1 acbf 09927 ENDIF
0x16cb…16d1 LineComal80 {
0x16cb…16d1 ptr = 0xacbf // 0x16cb @0x0
0x16cb…16d1 lno = 0x26c7 // 0x16cd @0x2
0x16cb…16d1 at0004 = ╱9c╱ ENDIF ╱ // 0x16cf @0x4
0x16cb…16d1 at0005 = EOL // 0x16d0 @0x5
0x16cb…16d1 }
0x16d1…16e0 acce 09928 CURSOR 1 , LINE
0x16d1…16e0 LineComal80 {
0x16d1…16e0 ptr = 0xacce // 0x16d1 @0x0
0x16d1…16e0 lno = 0x26c8 // 0x16d3 @0x2
0x16d1…16e0 at0004 = ╱a1╱ CURSOR ╱ // 0x16d5 @0x4
0x16d1…16e0 at0005 = ╱31╱1╱ // 0x16d6 @0x5
0x16d1…16e0 at0006 = ╱f20100╱ // 0x16d7 @0x6
0x16d1…16e0 at0009 = ╱ec╱ , ╱ // 0x16da @0x9
0x16d1…16e0 at000a = ╱4c╱L╱ // 0x16db @0xa
0x16d1…16e0 at000b = ╱49╱I╱ // 0x16dc @0xb
0x16d1…16e0 at000c = ╱4e╱N╱ // 0x16dd @0xc
0x16d1…16e0 at000d = ╱45╱E╱ // 0x16de @0xd
0x16d1…16e0 at000e = EOL // 0x16df @0xe
0x16d1…16e0 }
0x16e0…16eb acd9 09929 PRINT "<Z>"
0x16e0…16eb LineComal80 {
0x16e0…16eb ptr = 0xacd9 // 0x16e0 @0x0
0x16e0…16eb lno = 0x26c9 // 0x16e2 @0x2
0x16e0…16eb at0004 = ╱92╱ PRINT ╱ // 0x16e4 @0x4
0x16e0…16eb at0005 = ╱22╱"╱ // 0x16e5 @0x5
0x16e0…16eb at0006 = ╱3c╱<╱ // 0x16e6 @0x6
0x16e0…16eb at0007 = ╱5a╱Z╱ // 0x16e7 @0x7
0x16e0…16eb at0008 = ╱3e╱>╱ // 0x16e8 @0x8
0x16e0…16eb at0009 = ╱22╱"╱ // 0x16e9 @0x9
0x16e0…16eb at000a = EOL // 0x16ea @0xa
0x16e0…16eb }
0x16eb…16f7 ace5 09930 PRINT "<SZ>"
0x16eb…16f7 LineComal80 {
0x16eb…16f7 ptr = 0xace5 // 0x16eb @0x0
0x16eb…16f7 lno = 0x26ca // 0x16ed @0x2
0x16eb…16f7 at0004 = ╱92╱ PRINT ╱ // 0x16ef @0x4
0x16eb…16f7 at0005 = ╱22╱"╱ // 0x16f0 @0x5
0x16eb…16f7 at0006 = ╱3c╱<╱ // 0x16f1 @0x6
0x16eb…16f7 at0007 = ╱53╱S╱ // 0x16f2 @0x7
0x16eb…16f7 at0008 = ╱5a╱Z╱ // 0x16f3 @0x8
0x16eb…16f7 at0009 = ╱3e╱>╱ // 0x16f4 @0x9
0x16eb…16f7 at000a = ╱22╱"╱ // 0x16f5 @0xa
0x16eb…16f7 at000b = EOL // 0x16f6 @0xb
0x16eb…16f7 }
0x16f7…1705 acf3 09931 ENDPROC PRINTRES
0x16f7…1705 LineComal80 {
0x16f7…1705 ptr = 0xacf3 // 0x16f7 @0x0
0x16f7…1705 lno = 0x26cb // 0x16f9 @0x2
0x16f7…1705 at0004 = ╱9f╱ ENDPROC ╱ // 0x16fb @0x4
0x16f7…1705 at0005 = ╱50╱P╱ // 0x16fc @0x5
0x16f7…1705 at0006 = ╱52╱R╱ // 0x16fd @0x6
0x16f7…1705 at0007 = ╱49╱I╱ // 0x16fe @0x7
0x16f7…1705 at0008 = ╱4e╱N╱ // 0x16ff @0x8
0x16f7…1705 at0009 = ╱54╱T╱ // 0x1700 @0x9
0x16f7…1705 at000a = ╱52╱R╱ // 0x1701 @0xa
0x16f7…1705 at000b = ╱45╱E╱ // 0x1702 @0xb
0x16f7…1705 at000c = ╱53╱S╱ // 0x1703 @0xc
0x16f7…1705 at000d = EOL // 0x1704 @0xd
0x16f7…1705 }
0x1705…170b acf9 01930 //
0x1705…170b LineComal80 {
0x1705…170b ptr = 0xacf9 // 0x1705 @0x0
0x1705…170b lno = 0x078a // 0x1707 @0x2
0x1705…170b at0004 = ╱89╱ // ╱ // 0x1709 @0x4
0x1705…170b at0005 = EOL // 0x170a @0x5
0x1705…170b }
0x170b…172a ad18 01940 PROC PRINTREL // RELEASE…PRINTER
0x170b…172a LineComal80 {
0x170b…172a ptr = 0xad18 // 0x170b @0x0
0x170b…172a lno = 0x0794 // 0x170d @0x2
0x170b…172a at0004 = ╱9e1a╱ PROC ╱ // 0x170f @0x4
0x170b…172a at0006 = ╱50╱P╱ // 0x1711 @0x6
0x170b…172a at0007 = ╱52╱R╱ // 0x1712 @0x7
0x170b…172a at0008 = ╱49╱I╱ // 0x1713 @0x8
0x170b…172a at0009 = ╱4e╱N╱ // 0x1714 @0x9
0x170b…172a at000a = ╱54╱T╱ // 0x1715 @0xa
0x170b…172a at000b = ╱52╱R╱ // 0x1716 @0xb
0x170b…172a at000c = ╱45╱E╱ // 0x1717 @0xc
0x170b…172a at000d = ╱4c╱L╱ // 0x1718 @0xd
0x170b…172a at000e = ╱89╱ // ╱ // 0x1719 @0xe
0x170b…172a at000f = ╱52╱R╱ // 0x171a @0xf
0x170b…172a at0010 = ╱45╱E╱ // 0x171b @0x10
0x170b…172a at0011 = ╱4c╱L╱ // 0x171c @0x11
0x170b…172a at0012 = ╱45╱E╱ // 0x171d @0x12
0x170b…172a at0013 = ╱41╱A╱ // 0x171e @0x13
0x170b…172a at0014 = ╱53╱S╱ // 0x171f @0x14
0x170b…172a at0015 = ╱45╱E╱ // 0x1720 @0x15
0x170b…172a at0016 = ╱20╱…╱ // 0x1721 @0x16
0x170b…172a at0017 = ╱50╱P╱ // 0x1722 @0x17
0x170b…172a at0018 = ╱52╱R╱ // 0x1723 @0x18
0x170b…172a at0019 = ╱49╱I╱ // 0x1724 @0x19
0x170b…172a at001a = ╱4e╱N╱ // 0x1725 @0x1a
0x170b…172a at001b = ╱54╱T╱ // 0x1726 @0x1b
0x170b…172a at001c = ╱45╱E╱ // 0x1727 @0x1c
0x170b…172a at001d = ╱52╱R╱ // 0x1728 @0x1d
0x170b…172a at001e = EOL // 0x1729 @0x1e
0x170b…172a }
0x172a…1733 ad21 01950 SELECT OUTPUT "T"
0x172a…1733 LineComal80 {
0x172a…1733 ptr = 0xad21 // 0x172a @0x0
0x172a…1733 lno = 0x079e // 0x172c @0x2
0x172a…1733 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x172e @0x4
0x172a…1733 at0005 = ╱22╱"╱ // 0x172f @0x5
0x172a…1733 at0006 = ╱54╱T╱ // 0x1730 @0x6
0x172a…1733 at0007 = ╱22╱"╱ // 0x1731 @0x7
0x172a…1733 at0008 = EOL // 0x1732 @0x8
0x172a…1733 }
0x1733…1741 ad88 01960 ENDPROC PRINTREL
0x1733…1741 LineComal80 {
0x1733…1741 ptr = 0xad88 // 0x1733 @0x0
0x1733…1741 lno = 0x07a8 // 0x1735 @0x2
0x1733…1741 at0004 = ╱9f╱ ENDPROC ╱ // 0x1737 @0x4
0x1733…1741 at0005 = ╱50╱P╱ // 0x1738 @0x5
0x1733…1741 at0006 = ╱52╱R╱ // 0x1739 @0x6
0x1733…1741 at0007 = ╱49╱I╱ // 0x173a @0x7
0x1733…1741 at0008 = ╱4e╱N╱ // 0x173b @0x8
0x1733…1741 at0009 = ╱54╱T╱ // 0x173c @0x9
0x1733…1741 at000a = ╱52╱R╱ // 0x173d @0xa
0x1733…1741 at000b = ╱45╱E╱ // 0x173e @0xb
0x1733…1741 at000c = ╱4c╱L╱ // 0x173f @0xc
0x1733…1741 at000d = EOL // 0x1740 @0xd
0x1733…1741 }
0x1741…1761 a7f0 01770 PRINT "…" ; R_NR $ ; TAB ( 12 ) ; R_NAVN $
0x1741…1761 LineComal80 {
0x1741…1761 ptr = 0xa7f0 // 0x1741 @0x0
0x1741…1761 lno = 0x06ea // 0x1743 @0x2
0x1741…1761 at0004 = ╱92╱ PRINT ╱ // 0x1745 @0x4
0x1741…1761 at0005 = ╱22╱"╱ // 0x1746 @0x5
0x1741…1761 at0006 = ╱20╱…╱ // 0x1747 @0x6
0x1741…1761 at0007 = ╱22╱"╱ // 0x1748 @0x7
0x1741…1761 at0008 = ╱ea╱ ; ╱ // 0x1749 @0x8
0x1741…1761 at0009 = ╱52╱R╱ // 0x174a @0x9
0x1741…1761 at000a = ╱5f╱_╱ // 0x174b @0xa
0x1741…1761 at000b = ╱4e╱N╱ // 0x174c @0xb
0x1741…1761 at000c = ╱52╱R╱ // 0x174d @0xc
0x1741…1761 at000d = ╱ef╱ $ ╱ // 0x174e @0xd
0x1741…1761 at000e = ╱ea╱ ; ╱ // 0x174f @0xe
0x1741…1761 at000f = ╱d2╱ TAB ╱ // 0x1750 @0xf
0x1741…1761 at0010 = ╱ed╱ ( ╱ // 0x1751 @0x10
0x1741…1761 at0011 = ╱31╱1╱ // 0x1752 @0x11
0x1741…1761 at0012 = ╱32╱2╱ // 0x1753 @0x12
0x1741…1761 at0013 = ╱f20c00╱ // 0x1754 @0x13
0x1741…1761 at0016 = ╱ee╱ ) ╱ // 0x1757 @0x16
0x1741…1761 at0017 = ╱ea╱ ; ╱ // 0x1758 @0x17
0x1741…1761 at0018 = ╱52╱R╱ // 0x1759 @0x18
0x1741…1761 at0019 = ╱5f╱_╱ // 0x175a @0x19
0x1741…1761 at001a = ╱4e╱N╱ // 0x175b @0x1a
0x1741…1761 at001b = ╱41╱A╱ // 0x175c @0x1b
0x1741…1761 at001c = ╱56╱V╱ // 0x175d @0x1c
0x1741…1761 at001d = ╱4e╱N╱ // 0x175e @0x1d
0x1741…1761 at001e = ╱ef╱ $ ╱ // 0x175f @0x1e
0x1741…1761 at001f = EOL // 0x1760 @0x1f
0x1741…1761 }
0x1761…177d a9ba 01900 PRINT "…KONTONR………KONTONAVN"
0x1761…177d LineComal80 {
0x1761…177d ptr = 0xa9ba // 0x1761 @0x0
0x1761…177d lno = 0x076c // 0x1763 @0x2
0x1761…177d at0004 = ╱92╱ PRINT ╱ // 0x1765 @0x4
0x1761…177d at0005 = ╱22╱"╱ // 0x1766 @0x5
0x1761…177d at0006 = ╱20╱…╱ // 0x1767 @0x6
0x1761…177d at0007 = ╱4b╱K╱ // 0x1768 @0x7
0x1761…177d at0008 = ╱4f╱O╱ // 0x1769 @0x8
0x1761…177d at0009 = ╱4e╱N╱ // 0x176a @0x9
0x1761…177d at000a = ╱54╱T╱ // 0x176b @0xa
0x1761…177d at000b = ╱4f╱O╱ // 0x176c @0xb
0x1761…177d at000c = ╱4e╱N╱ // 0x176d @0xc
0x1761…177d at000d = ╱52╱R╱ // 0x176e @0xd
0x1761…177d at000e = ╱20╱…╱ // 0x176f @0xe
0x1761…177d at000f = ╱20╱…╱ // 0x1770 @0xf
0x1761…177d at0010 = ╱20╱…╱ // 0x1771 @0x10
0x1761…177d at0011 = ╱4b╱K╱ // 0x1772 @0x11
0x1761…177d at0012 = ╱4f╱O╱ // 0x1773 @0x12
0x1761…177d at0013 = ╱4e╱N╱ // 0x1774 @0x13
0x1761…177d at0014 = ╱54╱T╱ // 0x1775 @0x14
0x1761…177d at0015 = ╱4f╱O╱ // 0x1776 @0x15
0x1761…177d at0016 = ╱4e╱N╱ // 0x1777 @0x16
0x1761…177d at0017 = ╱41╱A╱ // 0x1778 @0x17
0x1761…177d at0018 = ╱56╱V╱ // 0x1779 @0x18
0x1761…177d at0019 = ╱4e╱N╱ // 0x177a @0x19
0x1761…177d at001a = ╱22╱"╱ // 0x177b @0x1a
0x1761…177d at001b = EOL // 0x177c @0x1b
0x1761…177d }
0x177d…179a a0c6 00970 EXEC PRINTRES ( "papir" , 12 )
0x177d…179a LineComal80 {
0x177d…179a ptr = 0xa0c6 // 0x177d @0x0
0x177d…179a lno = 0x03ca // 0x177f @0x2
0x177d…179a at0004 = ╱9d╱ EXEC ╱ // 0x1781 @0x4
0x177d…179a at0005 = ╱50╱P╱ // 0x1782 @0x5
0x177d…179a at0006 = ╱52╱R╱ // 0x1783 @0x6
0x177d…179a at0007 = ╱49╱I╱ // 0x1784 @0x7
0x177d…179a at0008 = ╱4e╱N╱ // 0x1785 @0x8
0x177d…179a at0009 = ╱54╱T╱ // 0x1786 @0x9
0x177d…179a at000a = ╱52╱R╱ // 0x1787 @0xa
0x177d…179a at000b = ╱45╱E╱ // 0x1788 @0xb
0x177d…179a at000c = ╱53╱S╱ // 0x1789 @0xc
0x177d…179a at000d = ╱ed╱ ( ╱ // 0x178a @0xd
0x177d…179a at000e = ╱22╱"╱ // 0x178b @0xe
0x177d…179a at000f = ╱70╱p╱ // 0x178c @0xf
0x177d…179a at0010 = ╱61╱a╱ // 0x178d @0x10
0x177d…179a at0011 = ╱70╱p╱ // 0x178e @0x11
0x177d…179a at0012 = ╱69╱i╱ // 0x178f @0x12
0x177d…179a at0013 = ╱72╱r╱ // 0x1790 @0x13
0x177d…179a at0014 = ╱22╱"╱ // 0x1791 @0x14
0x177d…179a at0015 = ╱ec╱ , ╱ // 0x1792 @0x15
0x177d…179a at0016 = ╱31╱1╱ // 0x1793 @0x16
0x177d…179a at0017 = ╱32╱2╱ // 0x1794 @0x17
0x177d…179a at0018 = ╱f20c00╱ // 0x1795 @0x18
0x177d…179a at001b = ╱ee╱ ) ╱ // 0x1798 @0x1b
0x177d…179a at001c = EOL // 0x1799 @0x1c
0x177d…179a }
0x179a…17a0 ad8e 09900 //
0x179a…17a0 LineComal80 {
0x179a…17a0 ptr = 0xad8e // 0x179a @0x0
0x179a…17a0 lno = 0x26ac // 0x179c @0x2
0x179a…17a0 at0004 = ╱89╱ // ╱ // 0x179e @0x4
0x179a…17a0 at0005 = EOL // 0x179f @0x5
0x179a…17a0 }
0x17a0…17d3 adc1 09901 PROC PRINTRES ( PAGETYPE $ , LINE ) // PRINTER…RESERVATION
0x17a0…17d3 LineComal80 {
0x17a0…17d3 ptr = 0xadc1 // 0x17a0 @0x0
0x17a0…17d3 lno = 0x26ad // 0x17a2 @0x2
0x17a0…17d3 at0004 = ╱9e1b╱ PROC ╱ // 0x17a4 @0x4
0x17a0…17d3 at0006 = ╱50╱P╱ // 0x17a6 @0x6
0x17a0…17d3 at0007 = ╱52╱R╱ // 0x17a7 @0x7
0x17a0…17d3 at0008 = ╱49╱I╱ // 0x17a8 @0x8
0x17a0…17d3 at0009 = ╱4e╱N╱ // 0x17a9 @0x9
0x17a0…17d3 at000a = ╱54╱T╱ // 0x17aa @0xa
0x17a0…17d3 at000b = ╱52╱R╱ // 0x17ab @0xb
0x17a0…17d3 at000c = ╱45╱E╱ // 0x17ac @0xc
0x17a0…17d3 at000d = ╱53╱S╱ // 0x17ad @0xd
0x17a0…17d3 at000e = ╱ed╱ ( ╱ // 0x17ae @0xe
0x17a0…17d3 at000f = ╱50╱P╱ // 0x17af @0xf
0x17a0…17d3 at0010 = ╱41╱A╱ // 0x17b0 @0x10
0x17a0…17d3 at0011 = ╱47╱G╱ // 0x17b1 @0x11
0x17a0…17d3 at0012 = ╱45╱E╱ // 0x17b2 @0x12
0x17a0…17d3 at0013 = ╱54╱T╱ // 0x17b3 @0x13
0x17a0…17d3 at0014 = ╱59╱Y╱ // 0x17b4 @0x14
0x17a0…17d3 at0015 = ╱50╱P╱ // 0x17b5 @0x15
0x17a0…17d3 at0016 = ╱45╱E╱ // 0x17b6 @0x16
0x17a0…17d3 at0017 = ╱ef╱ $ ╱ // 0x17b7 @0x17
0x17a0…17d3 at0018 = ╱ec╱ , ╱ // 0x17b8 @0x18
0x17a0…17d3 at0019 = ╱4c╱L╱ // 0x17b9 @0x19
0x17a0…17d3 at001a = ╱49╱I╱ // 0x17ba @0x1a
0x17a0…17d3 at001b = ╱4e╱N╱ // 0x17bb @0x1b
0x17a0…17d3 at001c = ╱45╱E╱ // 0x17bc @0x1c
0x17a0…17d3 at001d = ╱ee╱ ) ╱ // 0x17bd @0x1d
0x17a0…17d3 at001e = ╱89╱ // ╱ // 0x17be @0x1e
0x17a0…17d3 at001f = ╱50╱P╱ // 0x17bf @0x1f
0x17a0…17d3 at0020 = ╱52╱R╱ // 0x17c0 @0x20
0x17a0…17d3 at0021 = ╱49╱I╱ // 0x17c1 @0x21
0x17a0…17d3 at0022 = ╱4e╱N╱ // 0x17c2 @0x22
0x17a0…17d3 at0023 = ╱54╱T╱ // 0x17c3 @0x23
0x17a0…17d3 at0024 = ╱45╱E╱ // 0x17c4 @0x24
0x17a0…17d3 at0025 = ╱52╱R╱ // 0x17c5 @0x25
0x17a0…17d3 at0026 = ╱20╱…╱ // 0x17c6 @0x26
0x17a0…17d3 at0027 = ╱52╱R╱ // 0x17c7 @0x27
0x17a0…17d3 at0028 = ╱45╱E╱ // 0x17c8 @0x28
0x17a0…17d3 at0029 = ╱53╱S╱ // 0x17c9 @0x29
0x17a0…17d3 at002a = ╱45╱E╱ // 0x17ca @0x2a
0x17a0…17d3 at002b = ╱52╱R╱ // 0x17cb @0x2b
0x17a0…17d3 at002c = ╱56╱V╱ // 0x17cc @0x2c
0x17a0…17d3 at002d = ╱41╱A╱ // 0x17cd @0x2d
0x17a0…17d3 at002e = ╱54╱T╱ // 0x17ce @0x2e
0x17a0…17d3 at002f = ╱49╱I╱ // 0x17cf @0x2f
0x17a0…17d3 at0030 = ╱4f╱O╱ // 0x17d0 @0x30
0x17a0…17d3 at0031 = ╱4e╱N╱ // 0x17d1 @0x31
0x17a0…17d3 at0032 = EOL // 0x17d2 @0x32
0x17a0…17d3 }
0x17d3…17eb add9 09902 LET PRTNR $ := "1" ; OK := TRUE
0x17d3…17eb LineComal80 {
0x17d3…17eb ptr = 0xadd9 // 0x17d3 @0x0
0x17d3…17eb lno = 0x26ae // 0x17d5 @0x2
0x17d3…17eb at0004 = ╱86╱ LET ╱ // 0x17d7 @0x4
0x17d3…17eb at0005 = ╱50╱P╱ // 0x17d8 @0x5
0x17d3…17eb at0006 = ╱52╱R╱ // 0x17d9 @0x6
0x17d3…17eb at0007 = ╱54╱T╱ // 0x17da @0x7
0x17d3…17eb at0008 = ╱4e╱N╱ // 0x17db @0x8
0x17d3…17eb at0009 = ╱52╱R╱ // 0x17dc @0x9
0x17d3…17eb at000a = ╱ef╱ $ ╱ // 0x17dd @0xa
0x17d3…17eb at000b = ╱f0╱ := ╱ // 0x17de @0xb
0x17d3…17eb at000c = ╱22╱"╱ // 0x17df @0xc
0x17d3…17eb at000d = ╱31╱1╱ // 0x17e0 @0xd
0x17d3…17eb at000e = ╱22╱"╱ // 0x17e1 @0xe
0x17d3…17eb at000f = ╱ea╱ ; ╱ // 0x17e2 @0xf
0x17d3…17eb at0010 = ╱4f╱O╱ // 0x17e3 @0x10
0x17d3…17eb at0011 = ╱4b╱K╱ // 0x17e4 @0x11
0x17d3…17eb at0012 = ╱f0╱ := ╱ // 0x17e5 @0x12
0x17d3…17eb at0013 = ╱54╱T╱ // 0x17e6 @0x13
0x17d3…17eb at0014 = ╱52╱R╱ // 0x17e7 @0x14
0x17d3…17eb at0015 = ╱55╱U╱ // 0x17e8 @0x15
0x17d3…17eb at0016 = ╱45╱E╱ // 0x17e9 @0x16
0x17d3…17eb at0017 = EOL // 0x17ea @0x17
0x17d3…17eb }
0x17eb…17f2 ade0 09903 REPEAT
0x17eb…17f2 LineComal80 {
0x17eb…17f2 ptr = 0xade0 // 0x17eb @0x0
0x17eb…17f2 lno = 0x26af // 0x17ed @0x2
0x17eb…17f2 at0004 = ╱971c╱ REPEAT ╱ // 0x17ef @0x4
0x17eb…17f2 at0006 = EOL // 0x17f1 @0x6
0x17eb…17f2 }
0x17f2…1802 adf0 09904 CURSOR 15 , LINE
0x17f2…1802 LineComal80 {
0x17f2…1802 ptr = 0xadf0 // 0x17f2 @0x0
0x17f2…1802 lno = 0x26b0 // 0x17f4 @0x2
0x17f2…1802 at0004 = ╱a1╱ CURSOR ╱ // 0x17f6 @0x4
0x17f2…1802 at0005 = ╱31╱1╱ // 0x17f7 @0x5
0x17f2…1802 at0006 = ╱35╱5╱ // 0x17f8 @0x6
0x17f2…1802 at0007 = ╱f20f00╱ // 0x17f9 @0x7
0x17f2…1802 at000a = ╱ec╱ , ╱ // 0x17fc @0xa
0x17f2…1802 at000b = ╱4c╱L╱ // 0x17fd @0xb
0x17f2…1802 at000c = ╱49╱I╱ // 0x17fe @0xc
0x17f2…1802 at000d = ╱4e╱N╱ // 0x17ff @0xd
0x17f2…1802 at000e = ╱45╱E╱ // 0x1800 @0xe
0x17f2…1802 at000f = EOL // 0x1801 @0xf
0x17f2…1802 }
0x1802…183b ae29 09905 EDIT "<Z>Udskrivning…p}…printer…nr.…?…(1/2/3/4)…" : PRTNR $
0x1802…183b LineComal80 {
0x1802…183b ptr = 0xae29 // 0x1802 @0x0
0x1802…183b lno = 0x26b1 // 0x1804 @0x2
0x1802…183b at0004 = ╱b1╱ EDIT ╱ // 0x1806 @0x4
0x1802…183b at0005 = ╱22╱"╱ // 0x1807 @0x5
0x1802…183b at0006 = ╱3c╱<╱ // 0x1808 @0x6
0x1802…183b at0007 = ╱5a╱Z╱ // 0x1809 @0x7
0x1802…183b at0008 = ╱3e╱>╱ // 0x180a @0x8
0x1802…183b at0009 = ╱55╱U╱ // 0x180b @0x9
0x1802…183b at000a = ╱64╱d╱ // 0x180c @0xa
0x1802…183b at000b = ╱73╱s╱ // 0x180d @0xb
0x1802…183b at000c = ╱6b╱k╱ // 0x180e @0xc
0x1802…183b at000d = ╱72╱r╱ // 0x180f @0xd
0x1802…183b at000e = ╱69╱i╱ // 0x1810 @0xe
0x1802…183b at000f = ╱76╱v╱ // 0x1811 @0xf
0x1802…183b at0010 = ╱6e╱n╱ // 0x1812 @0x10
0x1802…183b at0011 = ╱69╱i╱ // 0x1813 @0x11
0x1802…183b at0012 = ╱6e╱n╱ // 0x1814 @0x12
0x1802…183b at0013 = ╱67╱g╱ // 0x1815 @0x13
0x1802…183b at0014 = ╱20╱…╱ // 0x1816 @0x14
0x1802…183b at0015 = ╱70╱p╱ // 0x1817 @0x15
0x1802…183b at0016 = ╱7d╱}╱ // 0x1818 @0x16
0x1802…183b at0017 = ╱20╱…╱ // 0x1819 @0x17
0x1802…183b at0018 = ╱70╱p╱ // 0x181a @0x18
0x1802…183b at0019 = ╱72╱r╱ // 0x181b @0x19
0x1802…183b at001a = ╱69╱i╱ // 0x181c @0x1a
0x1802…183b at001b = ╱6e╱n╱ // 0x181d @0x1b
0x1802…183b at001c = ╱74╱t╱ // 0x181e @0x1c
0x1802…183b at001d = ╱65╱e╱ // 0x181f @0x1d
0x1802…183b at001e = ╱72╱r╱ // 0x1820 @0x1e
0x1802…183b at001f = ╱20╱…╱ // 0x1821 @0x1f
0x1802…183b at0020 = ╱6e╱n╱ // 0x1822 @0x20
0x1802…183b at0021 = ╱72╱r╱ // 0x1823 @0x21
0x1802…183b at0022 = ╱2e╱.╱ // 0x1824 @0x22
0x1802…183b at0023 = ╱20╱…╱ // 0x1825 @0x23
0x1802…183b at0024 = ╱3f╱?╱ // 0x1826 @0x24
0x1802…183b at0025 = ╱20╱…╱ // 0x1827 @0x25
0x1802…183b at0026 = ╱28╱(╱ // 0x1828 @0x26
0x1802…183b at0027 = ╱31╱1╱ // 0x1829 @0x27
0x1802…183b at0028 = ╱2f╱/╱ // 0x182a @0x28
0x1802…183b at0029 = ╱32╱2╱ // 0x182b @0x29
0x1802…183b at002a = ╱2f╱/╱ // 0x182c @0x2a
0x1802…183b at002b = ╱33╱3╱ // 0x182d @0x2b
0x1802…183b at002c = ╱2f╱/╱ // 0x182e @0x2c
0x1802…183b at002d = ╱34╱4╱ // 0x182f @0x2d
0x1802…183b at002e = ╱29╱)╱ // 0x1830 @0x2e
0x1802…183b at002f = ╱20╱…╱ // 0x1831 @0x2f
0x1802…183b at0030 = ╱22╱"╱ // 0x1832 @0x30
0x1802…183b at0031 = ╱f1╱ : ╱ // 0x1833 @0x31
0x1802…183b at0032 = ╱50╱P╱ // 0x1834 @0x32
0x1802…183b at0033 = ╱52╱R╱ // 0x1835 @0x33
0x1802…183b at0034 = ╱54╱T╱ // 0x1836 @0x34
0x1802…183b at0035 = ╱4e╱N╱ // 0x1837 @0x35
0x1802…183b at0036 = ╱52╱R╱ // 0x1838 @0x36
0x1802…183b at0037 = ╱ef╱ $ ╱ // 0x1839 @0x37
0x1802…183b at0038 = EOL // 0x183a @0x38
0x1802…183b }
0x183b…185b ae49 09906 UNTIL "/" + PRTNR $ + "/" IN "/1/2/3/4/"
0x183b…185b LineComal80 {
0x183b…185b ptr = 0xae49 // 0x183b @0x0
0x183b…185b lno = 0x26b2 // 0x183d @0x2
0x183b…185b at0004 = ╱98╱ UNTIL ╱ // 0x183f @0x4
0x183b…185b at0005 = ╱22╱"╱ // 0x1840 @0x5
0x183b…185b at0006 = ╱2f╱/╱ // 0x1841 @0x6
0x183b…185b at0007 = ╱22╱"╱ // 0x1842 @0x7
0x183b…185b at0008 = ╱eb╱ + ╱ // 0x1843 @0x8
0x183b…185b at0009 = ╱50╱P╱ // 0x1844 @0x9
0x183b…185b at000a = ╱52╱R╱ // 0x1845 @0xa
0x183b…185b at000b = ╱54╱T╱ // 0x1846 @0xb
0x183b…185b at000c = ╱4e╱N╱ // 0x1847 @0xc
0x183b…185b at000d = ╱52╱R╱ // 0x1848 @0xd
0x183b…185b at000e = ╱ef╱ $ ╱ // 0x1849 @0xe
0x183b…185b at000f = ╱eb╱ + ╱ // 0x184a @0xf
0x183b…185b at0010 = ╱22╱"╱ // 0x184b @0x10
0x183b…185b at0011 = ╱2f╱/╱ // 0x184c @0x11
0x183b…185b at0012 = ╱22╱"╱ // 0x184d @0x12
0x183b…185b at0013 = ╱dc╱ IN ╱ // 0x184e @0x13
0x183b…185b at0014 = ╱22╱"╱ // 0x184f @0x14
0x183b…185b at0015 = ╱2f╱/╱ // 0x1850 @0x15
0x183b…185b at0016 = ╱31╱1╱ // 0x1851 @0x16
0x183b…185b at0017 = ╱2f╱/╱ // 0x1852 @0x17
0x183b…185b at0018 = ╱32╱2╱ // 0x1853 @0x18
0x183b…185b at0019 = ╱2f╱/╱ // 0x1854 @0x19
0x183b…185b at001a = ╱33╱3╱ // 0x1855 @0x1a
0x183b…185b at001b = ╱2f╱/╱ // 0x1856 @0x1b
0x183b…185b at001c = ╱34╱4╱ // 0x1857 @0x1c
0x183b…185b at001d = ╱2f╱/╱ // 0x1858 @0x1d
0x183b…185b at001e = ╱22╱"╱ // 0x1859 @0x1e
0x183b…185b at001f = EOL // 0x185a @0x1f
0x183b…185b }
0x185b…186a ae58 09907 CURSOR 1 , LINE
0x185b…186a LineComal80 {
0x185b…186a ptr = 0xae58 // 0x185b @0x0
0x185b…186a lno = 0x26b3 // 0x185d @0x2
0x185b…186a at0004 = ╱a1╱ CURSOR ╱ // 0x185f @0x4
0x185b…186a at0005 = ╱31╱1╱ // 0x1860 @0x5
0x185b…186a at0006 = ╱f20100╱ // 0x1861 @0x6
0x185b…186a at0009 = ╱ec╱ , ╱ // 0x1864 @0x9
0x185b…186a at000a = ╱4c╱L╱ // 0x1865 @0xa
0x185b…186a at000b = ╱49╱I╱ // 0x1866 @0xb
0x185b…186a at000c = ╱4e╱N╱ // 0x1867 @0xc
0x185b…186a at000d = ╱45╱E╱ // 0x1868 @0xd
0x185b…186a at000e = EOL // 0x1869 @0xe
0x185b…186a }
0x186a…1875 ae63 09908 PRINT "<Z>"
0x186a…1875 LineComal80 {
0x186a…1875 ptr = 0xae63 // 0x186a @0x0
0x186a…1875 lno = 0x26b4 // 0x186c @0x2
0x186a…1875 at0004 = ╱92╱ PRINT ╱ // 0x186e @0x4
0x186a…1875 at0005 = ╱22╱"╱ // 0x186f @0x5
0x186a…1875 at0006 = ╱3c╱<╱ // 0x1870 @0x6
0x186a…1875 at0007 = ╱5a╱Z╱ // 0x1871 @0x7
0x186a…1875 at0008 = ╱3e╱>╱ // 0x1872 @0x8
0x186a…1875 at0009 = ╱22╱"╱ // 0x1873 @0x9
0x186a…1875 at000a = EOL // 0x1874 @0xa
0x186a…1875 }
0x1875…1899 ae87 09909 CURSOR ( 39 - ╱cb╱ ( PAGETYPE $ ) ) DIV 2 , LINE
0x1875…1899 LineComal80 {
0x1875…1899 ptr = 0xae87 // 0x1875 @0x0
0x1875…1899 lno = 0x26b5 // 0x1877 @0x2
0x1875…1899 at0004 = ╱a1╱ CURSOR ╱ // 0x1879 @0x4
0x1875…1899 at0005 = ╱ed╱ ( ╱ // 0x187a @0x5
0x1875…1899 at0006 = ╱33╱3╱ // 0x187b @0x6
0x1875…1899 at0007 = ╱39╱9╱ // 0x187c @0x7
0x1875…1899 at0008 = ╱f22700╱ // 0x187d @0x8
0x1875…1899 at000b = ╱e6╱ - ╱ // 0x1880 @0xb
0x1875…1899 at000c = ╱cb╱ // 0x1881 @0xc
0x1875…1899 at000d = ╱ed╱ ( ╱ // 0x1882 @0xd
0x1875…1899 at000e = ╱50╱P╱ // 0x1883 @0xe
0x1875…1899 at000f = ╱41╱A╱ // 0x1884 @0xf
0x1875…1899 at0010 = ╱47╱G╱ // 0x1885 @0x10
0x1875…1899 at0011 = ╱45╱E╱ // 0x1886 @0x11
0x1875…1899 at0012 = ╱54╱T╱ // 0x1887 @0x12
0x1875…1899 at0013 = ╱59╱Y╱ // 0x1888 @0x13
0x1875…1899 at0014 = ╱50╱P╱ // 0x1889 @0x14
0x1875…1899 at0015 = ╱45╱E╱ // 0x188a @0x15
0x1875…1899 at0016 = ╱ef╱ $ ╱ // 0x188b @0x16
0x1875…1899 at0017 = ╱ee╱ ) ╱ // 0x188c @0x17
0x1875…1899 at0018 = ╱ee╱ ) ╱ // 0x188d @0x18
0x1875…1899 at0019 = ╱da╱ DIV ╱ // 0x188e @0x19
0x1875…1899 at001a = ╱32╱2╱ // 0x188f @0x1a
0x1875…1899 at001b = ╱f20200╱ // 0x1890 @0x1b
0x1875…1899 at001e = ╱ec╱ , ╱ // 0x1893 @0x1e
0x1875…1899 at001f = ╱4c╱L╱ // 0x1894 @0x1f
0x1875…1899 at0020 = ╱49╱I╱ // 0x1895 @0x20
0x1875…1899 at0021 = ╱4e╱N╱ // 0x1896 @0x21
0x1875…1899 at0022 = ╱45╱E╱ // 0x1897 @0x22
0x1875…1899 at0023 = EOL // 0x1898 @0x23
0x1875…1899 }
0x1899…18d9 aec7 09910 PRINT "<SZ>……………Monter…" ; PAGETYPE $ ; "…i…printeren…-…tryk…RETURN…"
0x1899…18d9 LineComal80 {
0x1899…18d9 ptr = 0xaec7 // 0x1899 @0x0
0x1899…18d9 lno = 0x26b6 // 0x189b @0x2
0x1899…18d9 at0004 = ╱92╱ PRINT ╱ // 0x189d @0x4
0x1899…18d9 at0005 = ╱22╱"╱ // 0x189e @0x5
0x1899…18d9 at0006 = ╱3c╱<╱ // 0x189f @0x6
0x1899…18d9 at0007 = ╱53╱S╱ // 0x18a0 @0x7
0x1899…18d9 at0008 = ╱5a╱Z╱ // 0x18a1 @0x8
0x1899…18d9 at0009 = ╱3e╱>╱ // 0x18a2 @0x9
0x1899…18d9 at000a = ╱20╱…╱ // 0x18a3 @0xa
0x1899…18d9 at000b = ╱20╱…╱ // 0x18a4 @0xb
0x1899…18d9 at000c = ╱20╱…╱ // 0x18a5 @0xc
0x1899…18d9 at000d = ╱20╱…╱ // 0x18a6 @0xd
0x1899…18d9 at000e = ╱20╱…╱ // 0x18a7 @0xe
0x1899…18d9 at000f = ╱4d╱M╱ // 0x18a8 @0xf
0x1899…18d9 at0010 = ╱6f╱o╱ // 0x18a9 @0x10
0x1899…18d9 at0011 = ╱6e╱n╱ // 0x18aa @0x11
0x1899…18d9 at0012 = ╱74╱t╱ // 0x18ab @0x12
0x1899…18d9 at0013 = ╱65╱e╱ // 0x18ac @0x13
0x1899…18d9 at0014 = ╱72╱r╱ // 0x18ad @0x14
0x1899…18d9 at0015 = ╱20╱…╱ // 0x18ae @0x15
0x1899…18d9 at0016 = ╱22╱"╱ // 0x18af @0x16
0x1899…18d9 at0017 = ╱ea╱ ; ╱ // 0x18b0 @0x17
0x1899…18d9 at0018 = ╱50╱P╱ // 0x18b1 @0x18
0x1899…18d9 at0019 = ╱41╱A╱ // 0x18b2 @0x19
0x1899…18d9 at001a = ╱47╱G╱ // 0x18b3 @0x1a
0x1899…18d9 at001b = ╱45╱E╱ // 0x18b4 @0x1b
0x1899…18d9 at001c = ╱54╱T╱ // 0x18b5 @0x1c
0x1899…18d9 at001d = ╱59╱Y╱ // 0x18b6 @0x1d
0x1899…18d9 at001e = ╱50╱P╱ // 0x18b7 @0x1e
0x1899…18d9 at001f = ╱45╱E╱ // 0x18b8 @0x1f
0x1899…18d9 at0020 = ╱ef╱ $ ╱ // 0x18b9 @0x20
0x1899…18d9 at0021 = ╱ea╱ ; ╱ // 0x18ba @0x21
0x1899…18d9 at0022 = ╱22╱"╱ // 0x18bb @0x22
0x1899…18d9 at0023 = ╱20╱…╱ // 0x18bc @0x23
0x1899…18d9 at0024 = ╱69╱i╱ // 0x18bd @0x24
0x1899…18d9 at0025 = ╱20╱…╱ // 0x18be @0x25
0x1899…18d9 at0026 = ╱70╱p╱ // 0x18bf @0x26
0x1899…18d9 at0027 = ╱72╱r╱ // 0x18c0 @0x27
0x1899…18d9 at0028 = ╱69╱i╱ // 0x18c1 @0x28
0x1899…18d9 at0029 = ╱6e╱n╱ // 0x18c2 @0x29
0x1899…18d9 at002a = ╱74╱t╱ // 0x18c3 @0x2a
0x1899…18d9 at002b = ╱65╱e╱ // 0x18c4 @0x2b
0x1899…18d9 at002c = ╱72╱r╱ // 0x18c5 @0x2c
0x1899…18d9 at002d = ╱65╱e╱ // 0x18c6 @0x2d
0x1899…18d9 at002e = ╱6e╱n╱ // 0x18c7 @0x2e
0x1899…18d9 at002f = ╱20╱…╱ // 0x18c8 @0x2f
0x1899…18d9 at0030 = ╱2d╱-╱ // 0x18c9 @0x30
0x1899…18d9 at0031 = ╱20╱…╱ // 0x18ca @0x31
0x1899…18d9 at0032 = ╱74╱t╱ // 0x18cb @0x32
0x1899…18d9 at0033 = ╱72╱r╱ // 0x18cc @0x33
0x1899…18d9 at0034 = ╱79╱y╱ // 0x18cd @0x34
0x1899…18d9 at0035 = ╱6b╱k╱ // 0x18ce @0x35
0x1899…18d9 at0036 = ╱20╱…╱ // 0x18cf @0x36
0x1899…18d9 at0037 = ╱52╱R╱ // 0x18d0 @0x37
0x1899…18d9 at0038 = ╱45╱E╱ // 0x18d1 @0x38
0x1899…18d9 at0039 = ╱54╱T╱ // 0x18d2 @0x39
0x1899…18d9 at003a = ╱55╱U╱ // 0x18d3 @0x3a
0x1899…18d9 at003b = ╱52╱R╱ // 0x18d4 @0x3b
0x1899…18d9 at003c = ╱4e╱N╱ // 0x18d5 @0x3c
0x1899…18d9 at003d = ╱20╱…╱ // 0x18d6 @0x3d
0x1899…18d9 at003e = ╱22╱"╱ // 0x18d7 @0x3e
0x1899…18d9 at003f = EOL // 0x18d8 @0x3f
0x1899…18d9 }
0x18d9…18e7 aed5 09911 INPUT "" : SVAR $
0x18d9…18e7 LineComal80 {
0x18d9…18e7 ptr = 0xaed5 // 0x18d9 @0x0
0x18d9…18e7 lno = 0x26b7 // 0x18db @0x2
0x18d9…18e7 at0004 = ╱91╱ INPUT ╱ // 0x18dd @0x4
0x18d9…18e7 at0005 = ╱22╱"╱ // 0x18de @0x5
0x18d9…18e7 at0006 = ╱22╱"╱ // 0x18df @0x6
0x18d9…18e7 at0007 = ╱f1╱ : ╱ // 0x18e0 @0x7
0x18d9…18e7 at0008 = ╱53╱S╱ // 0x18e1 @0x8
0x18d9…18e7 at0009 = ╱56╱V╱ // 0x18e2 @0x9
0x18d9…18e7 at000a = ╱41╱A╱ // 0x18e3 @0xa
0x18d9…18e7 at000b = ╱52╱R╱ // 0x18e4 @0xb
0x18d9…18e7 at000c = ╱ef╱ $ ╱ // 0x18e5 @0xc
0x18d9…18e7 at000d = EOL // 0x18e6 @0xd
0x18d9…18e7 }
0x18e7…18f7 aee5 09912 SELECT OUTPUT "P" + PRTNR $
0x18e7…18f7 LineComal80 {
0x18e7…18f7 ptr = 0xaee5 // 0x18e7 @0x0
0x18e7…18f7 lno = 0x26b8 // 0x18e9 @0x2
0x18e7…18f7 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x18eb @0x4
0x18e7…18f7 at0005 = ╱22╱"╱ // 0x18ec @0x5
0x18e7…18f7 at0006 = ╱50╱P╱ // 0x18ed @0x6
0x18e7…18f7 at0007 = ╱22╱"╱ // 0x18ee @0x7
0x18e7…18f7 at0008 = ╱eb╱ + ╱ // 0x18ef @0x8
0x18e7…18f7 at0009 = ╱50╱P╱ // 0x18f0 @0x9
0x18e7…18f7 at000a = ╱52╱R╱ // 0x18f1 @0xa
0x18e7…18f7 at000b = ╱54╱T╱ // 0x18f2 @0xb
0x18e7…18f7 at000c = ╱4e╱N╱ // 0x18f3 @0xc
0x18e7…18f7 at000d = ╱52╱R╱ // 0x18f4 @0xd
0x18e7…18f7 at000e = ╱ef╱ $ ╱ // 0x18f5 @0xe
0x18e7…18f7 at000f = EOL // 0x18f6 @0xf
0x18e7…18f7 }
0x18f7…1905 (83,) aef3 09913 IF ( "P" ) THEN
0x18f7…1905 LineComal80 {
0x18f7…1905 ptr = 0xaef3 // 0x18f7 @0x0
0x18f7…1905 lno = 0x26b9 // 0x18f9 @0x2
0x18f7…1905 at0004 = ╱9b1dcd╱ IF ╱ // 0x18fb @0x4
0x18f7…1905 at0007 = ╱ed╱ ( ╱ // 0x18fe @0x7
0x18f7…1905 at0008 = ╱22╱"╱ // 0x18ff @0x8
0x18f7…1905 at0009 = ╱50╱P╱ // 0x1900 @0x9
0x18f7…1905 at000a = ╱22╱"╱ // 0x1901 @0xa
0x18f7…1905 at000b = ╱ee╱ ) ╱ // 0x1902 @0xb
0x18f7…1905 at000c = ╱b5╱ THEN ╱ // 0x1903 @0xc
0x18f7…1905 at000d = EOL // 0x1904 @0xd
0x18f7…1905 }
0x1905…1915 af03 09914 CURSOR 12 , LINE
0x1905…1915 LineComal80 {
0x1905…1915 ptr = 0xaf03 // 0x1905 @0x0
0x1905…1915 lno = 0x26ba // 0x1907 @0x2
0x1905…1915 at0004 = ╱a1╱ CURSOR ╱ // 0x1909 @0x4
0x1905…1915 at0005 = ╱31╱1╱ // 0x190a @0x5
0x1905…1915 at0006 = ╱32╱2╱ // 0x190b @0x6
0x1905…1915 at0007 = ╱f20c00╱ // 0x190c @0x7
0x1905…1915 at000a = ╱ec╱ , ╱ // 0x190f @0xa
0x1905…1915 at000b = ╱4c╱L╱ // 0x1910 @0xb
0x1905…1915 at000c = ╱49╱I╱ // 0x1911 @0xc
0x1905…1915 at000d = ╱4e╱N╱ // 0x1912 @0xd
0x1905…1915 at000e = ╱45╱E╱ // 0x1913 @0xe
0x1905…1915 at000f = EOL // 0x1914 @0xf
0x1905…1915 }
0x1915…194c af3a 09915 PRINT "<SZ>Printeren…er…reserveret…af…en…anden…bruger,"
0x1915…194c LineComal80 {
0x1915…194c ptr = 0xaf3a // 0x1915 @0x0
0x1915…194c lno = 0x26bb // 0x1917 @0x2
0x1915…194c at0004 = ╱92╱ PRINT ╱ // 0x1919 @0x4
0x1915…194c at0005 = ╱22╱"╱ // 0x191a @0x5
0x1915…194c at0006 = ╱3c╱<╱ // 0x191b @0x6
0x1915…194c at0007 = ╱53╱S╱ // 0x191c @0x7
0x1915…194c at0008 = ╱5a╱Z╱ // 0x191d @0x8
0x1915…194c at0009 = ╱3e╱>╱ // 0x191e @0x9
0x1915…194c at000a = ╱50╱P╱ // 0x191f @0xa
0x1915…194c at000b = ╱72╱r╱ // 0x1920 @0xb
0x1915…194c at000c = ╱69╱i╱ // 0x1921 @0xc
0x1915…194c at000d = ╱6e╱n╱ // 0x1922 @0xd
0x1915…194c at000e = ╱74╱t╱ // 0x1923 @0xe
0x1915…194c at000f = ╱65╱e╱ // 0x1924 @0xf
0x1915…194c at0010 = ╱72╱r╱ // 0x1925 @0x10
0x1915…194c at0011 = ╱65╱e╱ // 0x1926 @0x11
0x1915…194c at0012 = ╱6e╱n╱ // 0x1927 @0x12
0x1915…194c at0013 = ╱20╱…╱ // 0x1928 @0x13
0x1915…194c at0014 = ╱65╱e╱ // 0x1929 @0x14
0x1915…194c at0015 = ╱72╱r╱ // 0x192a @0x15
0x1915…194c at0016 = ╱20╱…╱ // 0x192b @0x16
0x1915…194c at0017 = ╱72╱r╱ // 0x192c @0x17
0x1915…194c at0018 = ╱65╱e╱ // 0x192d @0x18
0x1915…194c at0019 = ╱73╱s╱ // 0x192e @0x19
0x1915…194c at001a = ╱65╱e╱ // 0x192f @0x1a
0x1915…194c at001b = ╱72╱r╱ // 0x1930 @0x1b
0x1915…194c at001c = ╱76╱v╱ // 0x1931 @0x1c
0x1915…194c at001d = ╱65╱e╱ // 0x1932 @0x1d
0x1915…194c at001e = ╱72╱r╱ // 0x1933 @0x1e
0x1915…194c at001f = ╱65╱e╱ // 0x1934 @0x1f
0x1915…194c at0020 = ╱74╱t╱ // 0x1935 @0x20
0x1915…194c at0021 = ╱20╱…╱ // 0x1936 @0x21
0x1915…194c at0022 = ╱61╱a╱ // 0x1937 @0x22
0x1915…194c at0023 = ╱66╱f╱ // 0x1938 @0x23
0x1915…194c at0024 = ╱20╱…╱ // 0x1939 @0x24
0x1915…194c at0025 = ╱65╱e╱ // 0x193a @0x25
0x1915…194c at0026 = ╱6e╱n╱ // 0x193b @0x26
0x1915…194c at0027 = ╱20╱…╱ // 0x193c @0x27
0x1915…194c at0028 = ╱61╱a╱ // 0x193d @0x28
0x1915…194c at0029 = ╱6e╱n╱ // 0x193e @0x29
0x1915…194c at002a = ╱64╱d╱ // 0x193f @0x2a
0x1915…194c at002b = ╱65╱e╱ // 0x1940 @0x2b
0x1915…194c at002c = ╱6e╱n╱ // 0x1941 @0x2c
0x1915…194c at002d = ╱20╱…╱ // 0x1942 @0x2d
0x1915…194c at002e = ╱62╱b╱ // 0x1943 @0x2e
0x1915…194c at002f = ╱72╱r╱ // 0x1944 @0x2f
0x1915…194c at0030 = ╱75╱u╱ // 0x1945 @0x30
0x1915…194c at0031 = ╱67╱g╱ // 0x1946 @0x31
0x1915…194c at0032 = ╱65╱e╱ // 0x1947 @0x32
0x1915…194c at0033 = ╱72╱r╱ // 0x1948 @0x33
0x1915…194c at0034 = ╱2c╱,╱ // 0x1949 @0x34
0x1915…194c at0035 = ╱22╱"╱ // 0x194a @0x35
0x1915…194c at0036 = EOL // 0x194b @0x36
0x1915…194c }
0x194c…1961 af4f 09916 CURSOR 12 , LINE + 1
0x194c…1961 LineComal80 {
0x194c…1961 ptr = 0xaf4f // 0x194c @0x0
0x194c…1961 lno = 0x26bc // 0x194e @0x2
0x194c…1961 at0004 = ╱a1╱ CURSOR ╱ // 0x1950 @0x4
0x194c…1961 at0005 = ╱31╱1╱ // 0x1951 @0x5
0x194c…1961 at0006 = ╱32╱2╱ // 0x1952 @0x6
0x194c…1961 at0007 = ╱f20c00╱ // 0x1953 @0x7
0x194c…1961 at000a = ╱ec╱ , ╱ // 0x1956 @0xa
0x194c…1961 at000b = ╱4c╱L╱ // 0x1957 @0xb
0x194c…1961 at000c = ╱49╱I╱ // 0x1958 @0xc
0x194c…1961 at000d = ╱4e╱N╱ // 0x1959 @0xd
0x194c…1961 at000e = ╱45╱E╱ // 0x195a @0xe
0x194c…1961 at000f = ╱e5╱ + ╱ // 0x195b @0xf
0x194c…1961 at0010 = ╱31╱1╱ // 0x195c @0x10
0x194c…1961 at0011 = ╱f20100╱ // 0x195d @0x11
0x194c…1961 at0014 = EOL // 0x1960 @0x14
0x194c…1961 }
0x1961…19a2 af90 09917 INPUT "<SZ>Skal…der…ventes…p}…at…den…bliver…ledig…?…(j/n)…" : SVAR $
0x1961…19a2 LineComal80 {
0x1961…19a2 ptr = 0xaf90 // 0x1961 @0x0
0x1961…19a2 lno = 0x26bd // 0x1963 @0x2
0x1961…19a2 at0004 = ╱91╱ INPUT ╱ // 0x1965 @0x4
0x1961…19a2 at0005 = ╱22╱"╱ // 0x1966 @0x5
0x1961…19a2 at0006 = ╱3c╱<╱ // 0x1967 @0x6
0x1961…19a2 at0007 = ╱53╱S╱ // 0x1968 @0x7
0x1961…19a2 at0008 = ╱5a╱Z╱ // 0x1969 @0x8
0x1961…19a2 at0009 = ╱3e╱>╱ // 0x196a @0x9
0x1961…19a2 at000a = ╱53╱S╱ // 0x196b @0xa
0x1961…19a2 at000b = ╱6b╱k╱ // 0x196c @0xb
0x1961…19a2 at000c = ╱61╱a╱ // 0x196d @0xc
0x1961…19a2 at000d = ╱6c╱l╱ // 0x196e @0xd
0x1961…19a2 at000e = ╱20╱…╱ // 0x196f @0xe
0x1961…19a2 at000f = ╱64╱d╱ // 0x1970 @0xf
0x1961…19a2 at0010 = ╱65╱e╱ // 0x1971 @0x10
0x1961…19a2 at0011 = ╱72╱r╱ // 0x1972 @0x11
0x1961…19a2 at0012 = ╱20╱…╱ // 0x1973 @0x12
0x1961…19a2 at0013 = ╱76╱v╱ // 0x1974 @0x13
0x1961…19a2 at0014 = ╱65╱e╱ // 0x1975 @0x14
0x1961…19a2 at0015 = ╱6e╱n╱ // 0x1976 @0x15
0x1961…19a2 at0016 = ╱74╱t╱ // 0x1977 @0x16
0x1961…19a2 at0017 = ╱65╱e╱ // 0x1978 @0x17
0x1961…19a2 at0018 = ╱73╱s╱ // 0x1979 @0x18
0x1961…19a2 at0019 = ╱20╱…╱ // 0x197a @0x19
0x1961…19a2 at001a = ╱70╱p╱ // 0x197b @0x1a
0x1961…19a2 at001b = ╱7d╱}╱ // 0x197c @0x1b
0x1961…19a2 at001c = ╱20╱…╱ // 0x197d @0x1c
0x1961…19a2 at001d = ╱61╱a╱ // 0x197e @0x1d
0x1961…19a2 at001e = ╱74╱t╱ // 0x197f @0x1e
0x1961…19a2 at001f = ╱20╱…╱ // 0x1980 @0x1f
0x1961…19a2 at0020 = ╱64╱d╱ // 0x1981 @0x20
0x1961…19a2 at0021 = ╱65╱e╱ // 0x1982 @0x21
0x1961…19a2 at0022 = ╱6e╱n╱ // 0x1983 @0x22
0x1961…19a2 at0023 = ╱20╱…╱ // 0x1984 @0x23
0x1961…19a2 at0024 = ╱62╱b╱ // 0x1985 @0x24
0x1961…19a2 at0025 = ╱6c╱l╱ // 0x1986 @0x25
0x1961…19a2 at0026 = ╱69╱i╱ // 0x1987 @0x26
0x1961…19a2 at0027 = ╱76╱v╱ // 0x1988 @0x27
0x1961…19a2 at0028 = ╱65╱e╱ // 0x1989 @0x28
0x1961…19a2 at0029 = ╱72╱r╱ // 0x198a @0x29
0x1961…19a2 at002a = ╱20╱…╱ // 0x198b @0x2a
0x1961…19a2 at002b = ╱6c╱l╱ // 0x198c @0x2b
0x1961…19a2 at002c = ╱65╱e╱ // 0x198d @0x2c
0x1961…19a2 at002d = ╱64╱d╱ // 0x198e @0x2d
0x1961…19a2 at002e = ╱69╱i╱ // 0x198f @0x2e
0x1961…19a2 at002f = ╱67╱g╱ // 0x1990 @0x2f
0x1961…19a2 at0030 = ╱20╱…╱ // 0x1991 @0x30
0x1961…19a2 at0031 = ╱3f╱?╱ // 0x1992 @0x31
0x1961…19a2 at0032 = ╱20╱…╱ // 0x1993 @0x32
0x1961…19a2 at0033 = ╱28╱(╱ // 0x1994 @0x33
0x1961…19a2 at0034 = ╱6a╱j╱ // 0x1995 @0x34
0x1961…19a2 at0035 = ╱2f╱/╱ // 0x1996 @0x35
0x1961…19a2 at0036 = ╱6e╱n╱ // 0x1997 @0x36
0x1961…19a2 at0037 = ╱29╱)╱ // 0x1998 @0x37
0x1961…19a2 at0038 = ╱20╱…╱ // 0x1999 @0x38
0x1961…19a2 at0039 = ╱22╱"╱ // 0x199a @0x39
0x1961…19a2 at003a = ╱f1╱ : ╱ // 0x199b @0x3a
0x1961…19a2 at003b = ╱53╱S╱ // 0x199c @0x3b
0x1961…19a2 at003c = ╱56╱V╱ // 0x199d @0x3c
0x1961…19a2 at003d = ╱41╱A╱ // 0x199e @0x3d
0x1961…19a2 at003e = ╱52╱R╱ // 0x199f @0x3e
0x1961…19a2 at003f = ╱ef╱ $ ╱ // 0x19a0 @0x3f
0x1961…19a2 at0040 = EOL // 0x19a1 @0x40
0x1961…19a2 }
0x19a2…19bd afab 09918 IF VAR $ = "J" OR SVAR $ = "j" THEN
0x19a2…19bd LineComal80 {
0x19a2…19bd ptr = 0xafab // 0x19a2 @0x0
0x19a2…19bd lno = 0x26be // 0x19a4 @0x2
0x19a2…19bd at0004 = ╱9b1e53╱ IF ╱ // 0x19a6 @0x4
0x19a2…19bd at0007 = ╱56╱V╱ // 0x19a9 @0x7
0x19a2…19bd at0008 = ╱41╱A╱ // 0x19aa @0x8
0x19a2…19bd at0009 = ╱52╱R╱ // 0x19ab @0x9
0x19a2…19bd at000a = ╱ef╱ $ ╱ // 0x19ac @0xa
0x19a2…19bd at000b = ╱df╱ = ╱ // 0x19ad @0xb
0x19a2…19bd at000c = ╱22╱"╱ // 0x19ae @0xc
0x19a2…19bd at000d = ╱4a╱J╱ // 0x19af @0xd
0x19a2…19bd at000e = ╱22╱"╱ // 0x19b0 @0xe
0x19a2…19bd at000f = ╱d8╱ OR ╱ // 0x19b1 @0xf
0x19a2…19bd at0010 = ╱53╱S╱ // 0x19b2 @0x10
0x19a2…19bd at0011 = ╱56╱V╱ // 0x19b3 @0x11
0x19a2…19bd at0012 = ╱41╱A╱ // 0x19b4 @0x12
0x19a2…19bd at0013 = ╱52╱R╱ // 0x19b5 @0x13
0x19a2…19bd at0014 = ╱ef╱ $ ╱ // 0x19b6 @0x14
0x19a2…19bd at0015 = ╱df╱ = ╱ // 0x19b7 @0x15
0x19a2…19bd at0016 = ╱22╱"╱ // 0x19b8 @0x16
0x19a2…19bd at0017 = ╱6a╱j╱ // 0x19b9 @0x17
0x19a2…19bd at0018 = ╱22╱"╱ // 0x19ba @0x18
0x19a2…19bd at0019 = ╱b5╱ THEN ╱ // 0x19bb @0x19
0x19a2…19bd at001a = EOL // 0x19bc @0x1a
0x19a2…19bd }
0x19bd…19cd afbb 09919 CURSOR 12 , LINE
0x19bd…19cd LineComal80 {
0x19bd…19cd ptr = 0xafbb // 0x19bd @0x0
0x19bd…19cd lno = 0x26bf // 0x19bf @0x2
0x19bd…19cd at0004 = ╱a1╱ CURSOR ╱ // 0x19c1 @0x4
0x19bd…19cd at0005 = ╱31╱1╱ // 0x19c2 @0x5
0x19bd…19cd at0006 = ╱32╱2╱ // 0x19c3 @0x6
0x19bd…19cd at0007 = ╱f20c00╱ // 0x19c4 @0x7
0x19bd…19cd at000a = ╱ec╱ , ╱ // 0x19c7 @0xa
0x19bd…19cd at000b = ╱4c╱L╱ // 0x19c8 @0xb
0x19bd…19cd at000c = ╱49╱I╱ // 0x19c9 @0xc
0x19bd…19cd at000d = ╱4e╱N╱ // 0x19ca @0xd
0x19bd…19cd at000e = ╱45╱E╱ // 0x19cb @0xe
0x19bd…19cd at000f = EOL // 0x19cc @0xf
0x19bd…19cd }
0x19cd…1a08 aff6 09920 PRINT "<Z>……………Der…ventes…p}…at…printeren…bliver…ledig...."
0x19cd…1a08 LineComal80 {
0x19cd…1a08 ptr = 0xaff6 // 0x19cd @0x0
0x19cd…1a08 lno = 0x26c0 // 0x19cf @0x2
0x19cd…1a08 at0004 = ╱92╱ PRINT ╱ // 0x19d1 @0x4
0x19cd…1a08 at0005 = ╱22╱"╱ // 0x19d2 @0x5
0x19cd…1a08 at0006 = ╱3c╱<╱ // 0x19d3 @0x6
0x19cd…1a08 at0007 = ╱5a╱Z╱ // 0x19d4 @0x7
0x19cd…1a08 at0008 = ╱3e╱>╱ // 0x19d5 @0x8
0x19cd…1a08 at0009 = ╱20╱…╱ // 0x19d6 @0x9
0x19cd…1a08 at000a = ╱20╱…╱ // 0x19d7 @0xa
0x19cd…1a08 at000b = ╱20╱…╱ // 0x19d8 @0xb
0x19cd…1a08 at000c = ╱20╱…╱ // 0x19d9 @0xc
0x19cd…1a08 at000d = ╱20╱…╱ // 0x19da @0xd
0x19cd…1a08 at000e = ╱44╱D╱ // 0x19db @0xe
0x19cd…1a08 at000f = ╱65╱e╱ // 0x19dc @0xf
0x19cd…1a08 at0010 = ╱72╱r╱ // 0x19dd @0x10
0x19cd…1a08 at0011 = ╱20╱…╱ // 0x19de @0x11
0x19cd…1a08 at0012 = ╱76╱v╱ // 0x19df @0x12
0x19cd…1a08 at0013 = ╱65╱e╱ // 0x19e0 @0x13
0x19cd…1a08 at0014 = ╱6e╱n╱ // 0x19e1 @0x14
0x19cd…1a08 at0015 = ╱74╱t╱ // 0x19e2 @0x15
0x19cd…1a08 at0016 = ╱65╱e╱ // 0x19e3 @0x16
0x19cd…1a08 at0017 = ╱73╱s╱ // 0x19e4 @0x17
0x19cd…1a08 at0018 = ╱20╱…╱ // 0x19e5 @0x18
0x19cd…1a08 at0019 = ╱70╱p╱ // 0x19e6 @0x19
0x19cd…1a08 at001a = ╱7d╱}╱ // 0x19e7 @0x1a
0x19cd…1a08 at001b = ╱20╱…╱ // 0x19e8 @0x1b
0x19cd…1a08 at001c = ╱61╱a╱ // 0x19e9 @0x1c
0x19cd…1a08 at001d = ╱74╱t╱ // 0x19ea @0x1d
0x19cd…1a08 at001e = ╱20╱…╱ // 0x19eb @0x1e
0x19cd…1a08 at001f = ╱70╱p╱ // 0x19ec @0x1f
0x19cd…1a08 at0020 = ╱72╱r╱ // 0x19ed @0x20
0x19cd…1a08 at0021 = ╱69╱i╱ // 0x19ee @0x21
0x19cd…1a08 at0022 = ╱6e╱n╱ // 0x19ef @0x22
0x19cd…1a08 at0023 = ╱74╱t╱ // 0x19f0 @0x23
0x19cd…1a08 at0024 = ╱65╱e╱ // 0x19f1 @0x24
0x19cd…1a08 at0025 = ╱72╱r╱ // 0x19f2 @0x25
0x19cd…1a08 at0026 = ╱65╱e╱ // 0x19f3 @0x26
0x19cd…1a08 at0027 = ╱6e╱n╱ // 0x19f4 @0x27
0x19cd…1a08 at0028 = ╱20╱…╱ // 0x19f5 @0x28
0x19cd…1a08 at0029 = ╱62╱b╱ // 0x19f6 @0x29
0x19cd…1a08 at002a = ╱6c╱l╱ // 0x19f7 @0x2a
0x19cd…1a08 at002b = ╱69╱i╱ // 0x19f8 @0x2b
0x19cd…1a08 at002c = ╱76╱v╱ // 0x19f9 @0x2c
0x19cd…1a08 at002d = ╱65╱e╱ // 0x19fa @0x2d
0x19cd…1a08 at002e = ╱72╱r╱ // 0x19fb @0x2e
0x19cd…1a08 at002f = ╱20╱…╱ // 0x19fc @0x2f
0x19cd…1a08 at0030 = ╱6c╱l╱ // 0x19fd @0x30
0x19cd…1a08 at0031 = ╱65╱e╱ // 0x19fe @0x31
0x19cd…1a08 at0032 = ╱64╱d╱ // 0x19ff @0x32
0x19cd…1a08 at0033 = ╱69╱i╱ // 0x1a00 @0x33
0x19cd…1a08 at0034 = ╱67╱g╱ // 0x1a01 @0x34
0x19cd…1a08 at0035 = ╱2e╱.╱ // 0x1a02 @0x35
0x19cd…1a08 at0036 = ╱2e╱.╱ // 0x1a03 @0x36
0x19cd…1a08 at0037 = ╱2e╱.╱ // 0x1a04 @0x37
0x19cd…1a08 at0038 = ╱2e╱.╱ // 0x1a05 @0x38
0x19cd…1a08 at0039 = ╱22╱"╱ // 0x1a06 @0x39
0x19cd…1a08 at003a = EOL // 0x1a07 @0x3a
0x19cd…1a08 }
0x1a08…1a14 b002 09921 PRINT "<SZ>"
0x1a08…1a14 LineComal80 {
0x1a08…1a14 ptr = 0xb002 // 0x1a08 @0x0
0x1a08…1a14 lno = 0x26c1 // 0x1a0a @0x2
0x1a08…1a14 at0004 = ╱92╱ PRINT ╱ // 0x1a0c @0x4
0x1a08…1a14 at0005 = ╱22╱"╱ // 0x1a0d @0x5
0x1a08…1a14 at0006 = ╱3c╱<╱ // 0x1a0e @0x6
0x1a08…1a14 at0007 = ╱53╱S╱ // 0x1a0f @0x7
0x1a08…1a14 at0008 = ╱5a╱Z╱ // 0x1a10 @0x8
0x1a08…1a14 at0009 = ╱3e╱>╱ // 0x1a11 @0x9
0x1a08…1a14 at000a = ╱22╱"╱ // 0x1a12 @0xa
0x1a08…1a14 at000b = EOL // 0x1a13 @0xb
0x1a08…1a14 }
0x1a14…1a22 b010 09922 WHILE ╱cd╱ ( "P" ) DO
0x1a14…1a22 LineComal80 {
0x1a14…1a22 ptr = 0xb010 // 0x1a14 @0x0
0x1a14…1a22 lno = 0x26c2 // 0x1a16 @0x2
0x1a14…1a22 at0004 = ╱931f╱ WHILE ╱ // 0x1a18 @0x4
0x1a14…1a22 at0006 = ╱cd╱ // 0x1a1a @0x6
0x1a14…1a22 at0007 = ╱ed╱ ( ╱ // 0x1a1b @0x7
0x1a14…1a22 at0008 = ╱22╱"╱ // 0x1a1c @0x8
0x1a14…1a22 at0009 = ╱50╱P╱ // 0x1a1d @0x9
0x1a14…1a22 at000a = ╱22╱"╱ // 0x1a1e @0xa
0x1a14…1a22 at000b = ╱ee╱ ) ╱ // 0x1a1f @0xb
0x1a14…1a22 at000c = ╱bb╱ DO ╱ // 0x1a20 @0xc
0x1a14…1a22 at000d = EOL // 0x1a21 @0xd
0x1a14…1a22 }
0x1a22…1a33 b021 09923 LET SEK := ╱ca╱ ( 5 )
0x1a22…1a33 LineComal80 {
0x1a22…1a33 ptr = 0xb021 // 0x1a22 @0x0
0x1a22…1a33 lno = 0x26c3 // 0x1a24 @0x2
0x1a22…1a33 at0004 = ╱86╱ LET ╱ // 0x1a26 @0x4
0x1a22…1a33 at0005 = ╱53╱S╱ // 0x1a27 @0x5
0x1a22…1a33 at0006 = ╱45╱E╱ // 0x1a28 @0x6
0x1a22…1a33 at0007 = ╱4b╱K╱ // 0x1a29 @0x7
0x1a22…1a33 at0008 = ╱f0╱ := ╱ // 0x1a2a @0x8
0x1a22…1a33 at0009 = ╱ca╱ // 0x1a2b @0x9
0x1a22…1a33 at000a = ╱ed╱ ( ╱ // 0x1a2c @0xa
0x1a22…1a33 at000b = ╱35╱5╱ // 0x1a2d @0xb
0x1a22…1a33 at000c = ╱f20500╱ // 0x1a2e @0xc
0x1a22…1a33 at000f = ╱ee╱ ) ╱ // 0x1a31 @0xf
0x1a22…1a33 at0010 = EOL // 0x1a32 @0x10
0x1a22…1a33 }
0x1a33…1a43 b031 09924 SELECT OUTPUT "P" + PRTNR $
0x1a33…1a43 LineComal80 {
0x1a33…1a43 ptr = 0xb031 // 0x1a33 @0x0
0x1a33…1a43 lno = 0x26c4 // 0x1a35 @0x2
0x1a33…1a43 at0004 = ╱96╱ SELECT OUTPUT ╱ // 0x1a37 @0x4
0x1a33…1a43 at0005 = ╱22╱"╱ // 0x1a38 @0x5
0x1a33…1a43 at0006 = ╱50╱P╱ // 0x1a39 @0x6
0x1a33…1a43 at0007 = ╱22╱"╱ // 0x1a3a @0x7
0x1a33…1a43 at0008 = ╱eb╱ + ╱ // 0x1a3b @0x8
0x1a33…1a43 at0009 = ╱50╱P╱ // 0x1a3c @0x9
0x1a33…1a43 at000a = ╱52╱R╱ // 0x1a3d @0xa
0x1a33…1a43 at000b = ╱54╱T╱ // 0x1a3e @0xb
0x1a33…1a43 at000c = ╱4e╱N╱ // 0x1a3f @0xc
0x1a33…1a43 at000d = ╱52╱R╱ // 0x1a40 @0xd
0x1a33…1a43 at000e = ╱ef╱ $ ╱ // 0x1a41 @0xe
0x1a33…1a43 at000f = EOL // 0x1a42 @0xf
0x1a33…1a43 }
0x1a43…1a49 b037 09925 ENDWHILE
0x1a43…1a49 LineComal80 {
0x1a43…1a49 ptr = 0xb037 // 0x1a43 @0x0
0x1a43…1a49 lno = 0x26c5 // 0x1a45 @0x2
0x1a43…1a49 at0004 = ╱94╱ ENDWHILE ╱ // 0x1a47 @0x4
0x1a43…1a49 at0005 = EOL // 0x1a48 @0x5
0x1a43…1a49 }
0x1a49…1a50 b03e 09926 ELSE
0x1a49…1a50 LineComal80 {
0x1a49…1a50 ptr = 0xb03e // 0x1a49 @0x0
0x1a49…1a50 lno = 0x26c6 // 0x1a4b @0x2
0x1a49…1a50 at0004 = ╱9a20╱ ELSE ╱ // 0x1a4d @0x4
0x1a49…1a50 at0006 = EOL // 0x1a4f @0x6
0x1a49…1a50 }
0x1a50…1a5e b04c 09927 LET OK := FALSE
0x1a50…1a5e LineComal80 {
0x1a50…1a5e ptr = 0xb04c // 0x1a50 @0x0
0x1a50…1a5e lno = 0x26c7 // 0x1a52 @0x2
0x1a50…1a5e at0004 = ╱86╱ LET ╱ // 0x1a54 @0x4
0x1a50…1a5e at0005 = ╱4f╱O╱ // 0x1a55 @0x5
0x1a50…1a5e at0006 = ╱4b╱K╱ // 0x1a56 @0x6
0x1a50…1a5e at0007 = ╱f0╱ := ╱ // 0x1a57 @0x7
0x1a50…1a5e at0008 = ╱46╱F╱ // 0x1a58 @0x8
0x1a50…1a5e at0009 = ╱41╱A╱ // 0x1a59 @0x9
0x1a50…1a5e at000a = ╱4c╱L╱ // 0x1a5a @0xa
0x1a50…1a5e at000b = ╱53╱S╱ // 0x1a5b @0xb
0x1a50…1a5e at000c = ╱45╱E╱ // 0x1a5c @0xc
0x1a50…1a5e at000d = EOL // 0x1a5d @0xd
0x1a50…1a5e }
0x1a5e…1a64 b052 09928 ENDIF
0x1a5e…1a64 LineComal80 {
0x1a5e…1a64 ptr = 0xb052 // 0x1a5e @0x0
0x1a5e…1a64 lno = 0x26c8 // 0x1a60 @0x2
0x1a5e…1a64 at0004 = ╱9c╱ ENDIF ╱ // 0x1a62 @0x4
0x1a5e…1a64 at0005 = EOL // 0x1a63 @0x5
0x1a5e…1a64 }
0x1a64…1a6a b058 09929 ENDIF
0x1a64…1a6a LineComal80 {
0x1a64…1a6a ptr = 0xb058 // 0x1a64 @0x0
0x1a64…1a6a lno = 0x26c9 // 0x1a66 @0x2
0x1a64…1a6a at0004 = ╱9c╱ ENDIF ╱ // 0x1a68 @0x4
0x1a64…1a6a at0005 = EOL // 0x1a69 @0x5
0x1a64…1a6a }
0x1a6a…1a79 b067 09930 CURSOR 1 , LINE
0x1a6a…1a79 LineComal80 {
0x1a6a…1a79 ptr = 0xb067 // 0x1a6a @0x0
0x1a6a…1a79 lno = 0x26ca // 0x1a6c @0x2
0x1a6a…1a79 at0004 = ╱a1╱ CURSOR ╱ // 0x1a6e @0x4
0x1a6a…1a79 at0005 = ╱31╱1╱ // 0x1a6f @0x5
0x1a6a…1a79 at0006 = ╱f20100╱ // 0x1a70 @0x6
0x1a6a…1a79 at0009 = ╱ec╱ , ╱ // 0x1a73 @0x9
0x1a6a…1a79 at000a = ╱4c╱L╱ // 0x1a74 @0xa
0x1a6a…1a79 at000b = ╱49╱I╱ // 0x1a75 @0xb
0x1a6a…1a79 at000c = ╱4e╱N╱ // 0x1a76 @0xc
0x1a6a…1a79 at000d = ╱45╱E╱ // 0x1a77 @0xd
0x1a6a…1a79 at000e = EOL // 0x1a78 @0xe
0x1a6a…1a79 }
0x1a79…1a84 b072 09931 PRINT "<Z>"
0x1a79…1a84 LineComal80 {
0x1a79…1a84 ptr = 0xb072 // 0x1a79 @0x0
0x1a79…1a84 lno = 0x26cb // 0x1a7b @0x2
0x1a79…1a84 at0004 = ╱92╱ PRINT ╱ // 0x1a7d @0x4
0x1a79…1a84 at0005 = ╱22╱"╱ // 0x1a7e @0x5
0x1a79…1a84 at0006 = ╱3c╱<╱ // 0x1a7f @0x6
0x1a79…1a84 at0007 = ╱5a╱Z╱ // 0x1a80 @0x7
0x1a79…1a84 at0008 = ╱3e╱>╱ // 0x1a81 @0x8
0x1a79…1a84 at0009 = ╱22╱"╱ // 0x1a82 @0x9
0x1a79…1a84 at000a = EOL // 0x1a83 @0xa
0x1a79…1a84 }
0x1a84…1a90 b07e 09932 PRINT "<SZ>"
0x1a84…1a90 LineComal80 {
0x1a84…1a90 ptr = 0xb07e // 0x1a84 @0x0
0x1a84…1a90 lno = 0x26cc // 0x1a86 @0x2
0x1a84…1a90 at0004 = ╱92╱ PRINT ╱ // 0x1a88 @0x4
0x1a84…1a90 at0005 = ╱22╱"╱ // 0x1a89 @0x5
0x1a84…1a90 at0006 = ╱3c╱<╱ // 0x1a8a @0x6
0x1a84…1a90 at0007 = ╱53╱S╱ // 0x1a8b @0x7
0x1a84…1a90 at0008 = ╱5a╱Z╱ // 0x1a8c @0x8
0x1a84…1a90 at0009 = ╱3e╱>╱ // 0x1a8d @0x9
0x1a84…1a90 at000a = ╱22╱"╱ // 0x1a8e @0xa
0x1a84…1a90 at000b = EOL // 0x1a8f @0xb
0x1a84…1a90 }
0x1a90…1a9e 0000 09933 ENDPROC PRINTRES
0x1a90…1a9e LineComal80 {
0x1a90…1a9e ptr = 0x0000 // 0x1a90 @0x0
0x1a90…1a9e lno = 0x26cd // 0x1a92 @0x2
0x1a90…1a9e at0004 = ╱9f╱ ENDPROC ╱ // 0x1a94 @0x4
0x1a90…1a9e at0005 = ╱50╱P╱ // 0x1a95 @0x5
0x1a90…1a9e at0006 = ╱52╱R╱ // 0x1a96 @0x6
0x1a90…1a9e at0007 = ╱49╱I╱ // 0x1a97 @0x7
0x1a90…1a9e at0008 = ╱4e╱N╱ // 0x1a98 @0x8
0x1a90…1a9e at0009 = ╱54╱T╱ // 0x1a99 @0x9
0x1a90…1a9e at000a = ╱52╱R╱ // 0x1a9a @0xa
0x1a90…1a9e at000b = ╱45╱E╱ // 0x1a9b @0xb
0x1a90…1a9e at000c = ╱53╱S╱ // 0x1a9c @0xc
0x1a90…1a9e at000d = EOL // 0x1a9d @0xd
0x1a90…1a9e }
0x1a9e…1aa4 (89,) 95ee 38382 ╱00╱ ╱00╱
0x1a9e…1aa4 LineComal80 {
0x1a9e…1aa4 ptr = 0x95ee // 0x1a9e @0x0
0x1a9e…1aa4 lno = 0x95ee // 0x1aa0 @0x2
0x1a9e…1aa4 at0004 = ╱00╱ // 0x1aa2 @0x4
0x1a9e…1aa4 at0005 = ╱00╱ // 0x1aa3 @0x5
0x1a9e…1aa4 }