|
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: 8004 (0x1f44)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cc, UNKNOWN_TOKEN_cd
Names: »FORSK85«
└─⟦fe8d363bb⟧ Bits:30004640 EASY-Skat 1985 (MIKADOS)
└─⟦this⟧ »FORSK85«
00100 ON ESC GOTO DUMMY
00110 DIM HKL $ OF 38 , BKL $ OF 38 , BJ $ OF 4
00120 LET FSLUT := 0 ; HKL $ := "" ; BKL $ := "" ; ZH := 0 ; ZB := 0
00130 INTEGER F5 , X , Y , PR , F8 , FE , G , T0 , T1 , T2 , T3 , T4 , RESTRATE , NYRATE
00140 DIM LI $ OF 80 , QT $ OF 80 , FIL $ OF 15 , S $ OF 80 , J $ OF 4 , PIL $ OF 80 , HJ $ OF 4
00150 // ----------------------…skatvar…-----------------------------
00160 LET F5 := 1985 ; U1 := .9 ; P0 := 3.5 ; PA0 := 2 ; P2 := 182600
00170 // ------------------------------------------------------------
00180 LET T2 := 0 ; F8 := 0 ; T4 := 0 ; G := 0
00190 LET LI $ := "" ; PIL $ := ""
00200 FOR X := 1 TO 9 DO
00210 LET LI $ := LI $ + "-"
00220 LET PIL $ := PIL $ + "."
00230 NEXT X
00240 OPEN "dde:fvar" , R
00250 GET "dde:fvar" : PR , C4 , HD6 , C9 , B0 , T1 , TKH , F6 , F1
00260 GET "dde:fvar" : F9 , P1 , P7 , P8 , P9 , T0 , B2 , B1 , B9
00270 GET "dde:fvar" : T2 , C6 , BD6 , C0 , B3 , E6 , F2 , T3 , TKB
00280 GET "dde:fvar" : F0 , F7 , SKG , AKT , D6 , GSLUT
00290 GET "DDE:FVAR" : HFORMUE , BFORMUE , HATP , BATP , G , FSLUT
00300 GET "dde:fvar" : HKL $ , BKL $
00310 CLOSE "dde:fvar"
00320 OPEN "DDE:FORSKVAR" , R
00330 GET "DDE:FORSKVAR" : ZH , HJ $ , HAIH , HASQ , HBSKF , F1
00340 GET "DDE:FORSKVAR" : ZB , BJ $ , BAIH , BASQ , BBSKF , F2
00350 CLOSE "DDE:FORSKVAR"
00360 IF >< 1 AND FSLUT >< 1 THEN
00370 LET HBSKF := 0 ; BBSKF := 0
00380 PRINT "Skriv…hovedpersonens…indregnede…restskat…i…" ; F5 - 2 ; "(evt.…0)…" ;
00390 INPUT F1
00400 PRINT LI $
00410 IF 2 >< 0 THEN
00420 IF >< 1 AND FSLUT >< 1 THEN
00430 PRINT "Skriv…den…gifte…kvindes…indregnede…restskat…i…" ; F5 - 2 ; "(evt.…0)…" ;
00440 INPUT F2
00450 PRINT LI $
00460 ENDIF
00470 ENDIF
00480 ENDIF
00490 LET C7 := INT ( C4 / 100 ) * 100
00500 LET D6 := HD6 ; D0 := C9 ; AI := B0 ; B6 := B9 ; IR := F1 ; TP := T1 ; TK := TKH ; D6 := D6 - F9 - F6
00510 EXEC REGN12
00520 IF = 1 AND FSLUT = 1 THEN
00530 LET Z := ZH ; J $ := HJ $ ; AIH := HAIH ; ASQ := HASQ ; BSKF := HBSKF
00540 ELSE
00550 CLEAR
00560 LET FIL $ := "dde:skatdath"
00570 OPEN FIL $ , R
00580 EXEC L[SFIL
00590 LET ZH := Z
00600 ENDIF
00610 IF > 0 THEN
00620 EXEC INDASKAT
00630 LET HJ $ := J $ ; HAIH := AIH ; HASQ := ASQ ; HBSKF := BSKF
00640 ENDIF
00650 IF I = 0 THEN
00660 EXEC REGN13
00670 ELSE
00680 IF 6 < 100 THEN
00690 EXEC REGN14
00700 ELSE
00710 IF T2 = 1 AND T0 = 2 AND B2 > 0 THEN LET D0 := AR ; C7 := INT ( B1 / 100 ) * 100
00720 EXEC REGN15
00730 EXEC REGN16
00740 IF INT ( FR ) > 0 THEN EXEC REGN11
00750 ENDIF
00760 EXEC REGN17
00770 ENDIF
00780 LET QT $ := "FORSKUDSOPG\RELSE…FOR…" + HKL $ + ":"
00790 EXEC [NDFORS
00800 IF 2 >< 0 THEN
00810 LET C7 := INT ( C6 / 100 ) * 100
00820 LET D6 := BD6 ; D0 := C0 ; AI := B3 ; B6 := E6 ; IR := F2 ; TP := T3 ; TK := TKB ; D6 := D6 - F0 - F7
00830 EXEC REGN12
00840 IF = 1 AND FSLUT = 1 THEN
00850 LET Z := ZB ; J $ := BJ $ ; AIH := BAIH ; ASQ := BASQ ; BSKF := BBSKF
00860 ELSE
00870 CLEAR
00880 LET FIL $ := "dde:skatdatb"
00890 OPEN FIL $ , R
00900 EXEC L[SFIL
00910 LET ZB := Z
00920 ENDIF
00930 IF > 0 THEN
00940 EXEC INDASKAT
00950 LET BJ $ := J $ ; BAIH := AIH ; BASQ := ASQ ; BBSKF := BSKF
00960 ENDIF
00970 IF I = 0 THEN
00980 EXEC REGN13
00990 ELSE
01000 IF 6 < 100 THEN
01010 EXEC REGN14
01020 ELSE
01030 IF T2 = 1 AND T0 = 1 AND B2 > 0 THEN LET D0 := AR ; C7 := INT ( B1 / 100 ) * 100
01040 EXEC REGN15
01050 EXEC REGN16
01060 IF INT ( FR ) > 0 THEN EXEC REGN11
01070 ENDIF
01080 EXEC REGN17
01090 ENDIF
01100 LET QT $ := "FORSKUDSOPG\RELSE…FOR…" + BKL $ + ":"
01110 EXEC [NDFORS
01120 ENDIF
01130 LET SYS := 1
01140 OPEN "DDE:FORSKVAR" , W
01150 PUT "DDE:FORSKVAR" : ZH , HJ $ , HAIH , HASQ , HBSKF , F1
01160 PUT "DDE:FORSKVAR" : ZB , BJ $ , BAIH , BASQ , BBSKF , F2
01170 CLOSE "DDE:FORSKVAR"
01180 OPEN "dde:skatsys" , W
01190 PUT "dde:skatsys" : SYS
01200 CLOSE "dde:skatsys"
01210 PRINT "***…VENT…***…HOVEDPROGRAMMET…INDL[SES…***"
01220 CHAIN "dde:skat85"
01230 PROC LSKRIV2
01240 LET PRB := QB
01250 PRINT QT $ ; TAB ( 35 ) ;
01260 PRINT USING "#########.##…KR." : PRB
01270 ENDPROC LSKRIV2
01280 PROC LSKRIV1
01290 LET PRB := QB
01300 PRINT QT $ ; TAB ( 35 ) ;
01310 PRINT USING "#########…KR." : PRB
01320 ENDPROC LSKRIV1
01330 PROC LSKRIV4
01340 LET PRB := QB
01350 PRINT QT $ ; TAB ( 35 ) ;
01360 PRINT USING "#########…PCT." : PRB
01370 ENDPROC LSKRIV4
01380 PROC SVAR
01390 REPEAT
01400 INPUT S $
01410 IF S $ = "J" THEN LET S $ := "j"
01420 IF S $ = "N" THEN LET S $ := "n"
01430 IF $ = "Q" OR S $ = "q" THEN
01440 PRINT "Programmet…kan…kun…afsluttes…fra…hovedprogrammet." ; CHR$ ( 7 )
01450 ENDIF
01460 UNTIL S $ = "j" OR S $ = "n"
01470 PRINT LI $
01480 ENDPROC SVAR
01490 PROC LSKRIV
01500 PRINT
01510 ENDPROC LSKRIV
01520 PROC LSKRIV3
01530 PRINT QT $
01540 ENDPROC LSKRIV3
01550 PROC REGN12
01560 LET Z := 0 ; AIH := 0 ; ASQ := 0 ; PCT := 0 ; BSK := 0 ; MAX := 0 ; FR := 0 ; BSKF := 0 ; NYRATE := 1
01570 LET RESTRATE := 10
01580 ENDPROC REGN12
01590 PROC INDASKAT
01600 IF >< 1 AND FSLUT >< 1 THEN
01610 IF I >< 0 THEN
01620 INPUT "Skriv…A-indkomst…(l|n)…fra…1.…januar…til…{ndringsdato:…" : AIH
01630 PRINT LI $
01640 INPUT "Skriv…betalt…A-skat…fra…1.…januar…til…{ndringsdato:…" : ASQ
01650 PRINT LI $
01660 ENDIF
01670 PRINT "Skriv…forfalden…B-skat…til…og…med…m}ned…" ;
01680 PRINT ( ╱cc╱ ( J $ ( 3 : 1 ) ) - 48 ) * 10 + ╱cc╱ ( J $ ( 4 : 1 ) ) - 48 ;
01690 INPUT "(evt.…0):" : BSKF
01700 PRINT LI $
01710 ENDIF
01720 IF ╱cc╱ ( J $ ( 3 : 1 ) ) - 48 ) * 10 + ╱cc╱ ( J $ ( 4 : 1 ) ) - 48 =< 5 THEN
01730 LET NYRATE := ( ╱cc╱ ( J $ ( 3 : 1 ) ) - 48 ) * 10 + ╱cc╱ ( J $ ( 4 : 1 ) ) - 47
01740 ELSE
01750 LET NYRATE := ( ╱cc╱ ( J $ ( 3 : 1 ) ) - 48 ) * 10 + ╱cc╱ ( J $ ( 4 : 1 ) ) - 48
01760 ENDIF
01770 LET RESTRATE := 11 - NYRATE
01780 LET D6 := D6 - ASQ - BSKF ; AI := AI - AIH
01790 ENDPROC INDASKAT
01800 PROC REGN15
01810 IF 7 > 0 THEN
01820 LET PCT := ( D0 * 100 ) / ( INT ( C7 / 100 ) * 100 )
01830 ELSE
01840 LET PCT := ( 16 * U1 ) + P0 + PA0 + P7 + P8 + ( P9 * ( TK = 1 ) )
01850 ENDIF
01860 LET PCT := INT ( PCT * 10 ) / 10
01870 ENDPROC REGN15
01880 PROC REGN17
01890 IF C7 =< P1 THEN LET PCT := PCT + 1 ; PCT := INT ( PCT )
01900 IF C7 > P1 THEN LET PCT := PCT + 1.5 ; PCT := INT ( PCT )
01910 ENDPROC REGN17
01920 PROC REGN16
01930 LET FR := AI - ( D6 * 100 / PCT )
01940 IF R >= 0 THEN
01950 IF R >< 0 AND INT ( B6 ) >< 0 THEN
01960 LET FR := FR - ( ( ( IR + B6 ) * 100 ) / PCT )
01970 IF R < 0 THEN
01980 LET BSK := FR * PCT / 100 ; BSK := ABS ( INT ( BSK ) ) ; FR := 0
01990 ENDIF
02000 ENDIF
02010 IF RESTRATE > 0 AND BSK > 0 THEN EXEC AFRUND
02020 ELSE
02030 LET BSK := FR * PCT / 100 ; BSK := ABS ( INT ( BSK ) ) ; FR := 0
02040 IF R >< 0 AND INT ( B6 ) >< 0 THEN
02050 LET BSK := BSK + IR + INT ( B6 )
02060 ENDIF
02070 ENDIF
02080 IF RESTRATE > 0 AND BSK > 0 THEN EXEC AFRUND
02090 ENDPROC REGN16
02100 PROC REGN11
02110 LET FR1 := FR * 365 / ( 365 - Z ) / 12
02120 LET FR2 := FR * 365 / ( 365 - Z ) / 26
02130 LET FR3 := FR * 365 / ( 365 - Z ) / 52
02140 LET FR4 := FR / ( 365 - Z )
02150 ENDPROC REGN11
02160 PROC REGN13
02170 LET BSK := INT ( D6 + IR + B6 )
02180 IF RESTRATE > 0 AND BSK > 0 THEN EXEC AFRUND
02190 ENDPROC REGN13
02200 PROC AFRUND
02210 LET BSKRATE := INT ( BSK / RESTRATE ) ; BSK := BSKRATE * RESTRATE
02220 ENDPROC AFRUND
02230 PROC REGN14
02240 IF C7 =< P1 THEN LET PCT := ( 16 * U1 ) + P0 + PA0 + P7 + P8 + ( P9 * ( TK = 1 ) )
02250 IF C7 > P1 THEN LET PCT := ( 32 * U1 ) + P0 + PA0 + P7 + P8 + ( P9 * ( TK = 1 ) )
02260 IF C7 > P2 THEN LET PCT := ( 44 * U1 ) + P0 + PA0 + P7 + P8 + ( P9 * ( TK = 1 ) )
02270 LET PCT := INT ( PCT * 100 ) / 100
02280 IF P = 0 AND IR =< 100 THEN
02290 LET MAX := AI - ( D6 * 100 / PCT ) ; MAX := INT ( MAX )
02300 IF INT ( B6 ) = 0 AND IR = 0 THEN EXIT
02310 LET BSK := IR + INT ( B6 )
02320 IF RESTRATE > 0 AND BSK > 0 THEN EXEC AFRUND
02330 ELSE
02340 LET FR := AI - ( IR * 100 / PCT )
02350 IF FR < 0 THEN LET BSK := ( FR * PCT / 100 ) ; BSK := ABS ( INT ( BSK ) ) ; FR := 0
02360 IF RESTRATE > 0 AND BSK > 0 THEN EXEC AFRUND
02370 IF INT ( FR ) > 0 THEN EXEC REGN11
02380 ENDIF
02390 ENDPROC REGN14
02400 PROC [NDFORS
02410 FOR Y := 1 TO R + 1 DO
02420 IF Y = 2 THEN OUTPUT "P"
02430 EXEC LSKRIV3
02440 PRINT
02450 IF CT > 0 THEN
02460 LET QT $ := "TR[KPROCENT…" + PIL $ ( 1 : 20 ) ; QB := PCT
02470 EXEC LSKRIV4
02480 ENDIF
02490 IF R > 0 THEN
02500 LET QT $ := "FRADRAG…PR.…M]NED…" + PIL $ ( 1 : 14 ) ; QB := FR1
02510 EXEC LSKRIV1
02520 LET QT $ := "FRADRAG…PR.…14-DAG…" + PIL $ ( 1 : 13 ) ; QB := FR2
02530 EXEC LSKRIV1
02540 LET QT $ := "FRADRAG…PR.…UGE…" + PIL $ ( 1 : 16 ) ; QB := FR3
02550 EXEC LSKRIV1
02560 LET QT $ := "FRADRAG…PR.…DAG…" + PIL $ ( 1 : 16 ) ; QB := FR4
02570 EXEC LSKRIV1
02580 ENDIF
02590 IF AX > 0 THEN
02600 LET QT $ := "MAKSIMAL…A-INDKOMST" + PIL $ ( 1 : 13 ) ; QB := MAX
02610 EXEC LSKRIV1
02620 ENDIF
02630 IF SK > 0 AND RESTRATE > 0 THEN
02640 LET QT $ := "B-SKAT…FOR…RESTEN…AF…]RET" + PIL $ ( 1 : 6 ) ; QB := BSK
02650 EXEC LSKRIV1
02660 PRINT "B-SKATTEN…FORDELES…OVER…" ; RESTRATE ; "RATE(R).…F\RSTE…RATE…ER…" ;
02670 PRINT "NR.…" ; NYRATE ; "."
02680 LET QT $ := "RATEBEL\BET…UDG\R…" + PIL $ ( 1 : 14 ) ; QB := BSK / RESTRATE
02690 EXEC LSKRIV1
02700 ENDIF
02710 IF SK > 0 AND RESTRATE =< 0 THEN
02720 LET QT $ := "B-SKAT…KAN…IKKE…[NDRES…EFTER…DEN…31/10.…DER…KAN…EVT.…INDBETALES"
02730 LET QT $ := QT $ + "…FRIVILLIGT"
02740 EXEC LSKRIV3
02750 LET QT $ := "EFTER…KILDESKATTELOVENS…PGF.…59.…SAMMENLIGN…B-SKAT…MED…SKATTEBE"
02760 LET QT $ := QT $ + "REGNINGEN."
02770 EXEC LSKRIV3
02780 ENDIF
02790 IF SK < 0 THEN
02800 LET QT $ := "DER…ER…BETALT…FOR…MEGET…I…FORSKUDSSKAT.…SKATTEV[SENET…KAN…EVT."
02810 LET QT $ := QT $ + "…ANMODES…OM"
02820 EXEC LSKRIV3
02830 LET QT $ := "TILBAGEBETALING…INDEN…DEN…30/12.…SAMMENLIGN…B-SKAT…MED…SKATTE"
02840 LET QT $ := QT $ + "BEREGNINGEN."
02850 EXEC LSKRIV3
02860 ENDIF
02870 PRINT
02880 PRINT
02890 IF SKF > 0 THEN
02900 LET QT $ := "ALLEREDE…FORFALDEN…B-SKAT…UDG\R…" ; QB := BSKF
02910 EXEC LSKRIV1
02920 LET QT $ := "DEN…FORFALDNE…B-SKAT…FORUDS[TTES…BETALT."
02930 EXEC LSKRIV3
02940 ENDIF
02950 IF R > 0 THEN
02960 PRINT "INDREGNET…RESTSKAT…FRA…" ; F5 - 2 ; ":…………" ;
02970 LET QT $ := "" ; QB := IR
02980 EXEC LSKRIV1
02990 ENDIF
03000 IF IH > 0 THEN
03010 LET QT $ := "A-INDKOMST…TIL…[NDRINGSDATO:……………" ; QB := AIH
03020 EXEC LSKRIV1
03030 ENDIF
03040 IF SQ > 0 THEN
03050 LET QT $ := "A-SKAT…TIL…[NDRINGSDATO:………………………" ; QB := ASQ
03060 EXEC LSKRIV1
03070 ENDIF
03080 IF > 0 THEN
03090 LET QT $ := "[NDRINGSDATO:…" + PIL $ ( 1 : 18 ) + "…………………" ; QT $ := QT $ + J $
03100 EXEC LSKRIV3
03110 ENDIF
03120 IF Y = 1 THEN EXEC RETURN
03130 NEXT Y
03140 OUTPUT "t"
03150 ENDPROC [NDFORS
03160 PROC L[SFIL
03170 LET STATUS := 0
03180 REPEAT
03190 GET FIL $ : S $
03200 PRINT S $
03210 UNTIL ╱cd╱ ( FIL $ ) = 19
03220 CLOSE FIL $
03230 REPEAT
03240 INPUT "Skriv…skattekortets…beregningsdato…(gyldighedsdato):…" : J $
03250 CLEAR
03260 IF ╱cb╱ ( J $ ) >< 4 THEN PRINT CHR$ ( 7 )
03270 UNTIL ╱cb╱ ( J $ ) = 4
03280 IF $ >< "0101" THEN
03290 LET Z := 0
03300 LET M]NED := ( ╱cc╱ ( J $ ( 3 ) ) - 48 ) * 10 + ╱cc╱ ( J $ ( 4 ) ) - 48
03310 LET DAG := ( ╱cc╱ ( J $ ( 1 ) ) - 48 ) * 10 + ╱cc╱ ( J $ ( 2 ) ) - 48
03320 FOR X := 2 TO ]NED DO
03330 LET Z := Z + 31
03340 IF X = 5 OR X = 7 OR X = 10 OR X = 12 THEN LET Z := Z - 1
03350 IF X = 3 THEN LET Z := Z - 3
03360 NEXT X
03370 LET Z := Z + DAG - 1
03380 ENDIF
03390 ENDPROC L[SFIL
03400 PROC RETURN
03410 PRINT
03420 PRINT TAB ( 65 ) ;
03430 LET S $ := "-"
03440 EDIT "TRYK…-RETURN" : S $
03450 ENDPROC RETURN
38382 ╱00╱ ╱00╱
0x0000…0009 (0,) 95f7 00100 ON ESC GOTO DUMMY
0x0000…0009 LineComal80 {
0x0000…0009 ptr = 0x95f7 // 0x0 @0x0
0x0000…0009 lno = 0x0064 // 0x2 @0x2
0x0000…0009 at0004 = ╱85╱ ON ╱ // 0x4 @0x4
0x0000…0009 at0005 = ╱bc╱ ESC ╱ // 0x5 @0x5
0x0000…0009 at0006 = ╱81╱ GOTO ╱ // 0x6 @0x6
0x0000…0009 at0007 = ╱bd╱ DUMMY ╱ // 0x7 @0x7
0x0000…0009 at0008 = EOL // 0x8 @0x8
0x0000…0009 }
0x0009…002d 961b 00110 DIM HKL $ OF 38 , BKL $ OF 38 , BJ $ OF 4
0x0009…002d LineComal80 {
0x0009…002d ptr = 0x961b // 0x9 @0x0
0x0009…002d lno = 0x006e // 0xb @0x2
0x0009…002d at0004 = ╱87╱ DIM ╱ // 0xd @0x4
0x0009…002d at0005 = ╱48╱H╱ // 0xe @0x5
0x0009…002d at0006 = ╱4b╱K╱ // 0xf @0x6
0x0009…002d at0007 = ╱4c╱L╱ // 0x10 @0x7
0x0009…002d at0008 = ╱ef╱ $ ╱ // 0x11 @0x8
0x0009…002d at0009 = ╱ba╱ OF ╱ // 0x12 @0x9
0x0009…002d at000a = ╱33╱3╱ // 0x13 @0xa
0x0009…002d at000b = ╱38╱8╱ // 0x14 @0xb
0x0009…002d at000c = ╱f22600╱ // 0x15 @0xc
0x0009…002d at000f = ╱ec╱ , ╱ // 0x18 @0xf
0x0009…002d at0010 = ╱42╱B╱ // 0x19 @0x10
0x0009…002d at0011 = ╱4b╱K╱ // 0x1a @0x11
0x0009…002d at0012 = ╱4c╱L╱ // 0x1b @0x12
0x0009…002d at0013 = ╱ef╱ $ ╱ // 0x1c @0x13
0x0009…002d at0014 = ╱ba╱ OF ╱ // 0x1d @0x14
0x0009…002d at0015 = ╱33╱3╱ // 0x1e @0x15
0x0009…002d at0016 = ╱38╱8╱ // 0x1f @0x16
0x0009…002d at0017 = ╱f22600╱ // 0x20 @0x17
0x0009…002d at001a = ╱ec╱ , ╱ // 0x23 @0x1a
0x0009…002d at001b = ╱42╱B╱ // 0x24 @0x1b
0x0009…002d at001c = ╱4a╱J╱ // 0x25 @0x1c
0x0009…002d at001d = ╱ef╱ $ ╱ // 0x26 @0x1d
0x0009…002d at001e = ╱ba╱ OF ╱ // 0x27 @0x1e
0x0009…002d at001f = ╱34╱4╱ // 0x28 @0x1f
0x0009…002d at0020 = ╱f20400╱ // 0x29 @0x20
0x0009…002d at0023 = EOL // 0x2c @0x23
0x0009…002d }
0x002d…005d 964b 00120 LET FSLUT := 0 ; HKL $ := "" ; BKL $ := "" ; ZH := 0 ; ZB := 0
0x002d…005d LineComal80 {
0x002d…005d ptr = 0x964b // 0x2d @0x0
0x002d…005d lno = 0x0078 // 0x2f @0x2
0x002d…005d at0004 = ╱86╱ LET ╱ // 0x31 @0x4
0x002d…005d at0005 = ╱46╱F╱ // 0x32 @0x5
0x002d…005d at0006 = ╱53╱S╱ // 0x33 @0x6
0x002d…005d at0007 = ╱4c╱L╱ // 0x34 @0x7
0x002d…005d at0008 = ╱55╱U╱ // 0x35 @0x8
0x002d…005d at0009 = ╱54╱T╱ // 0x36 @0x9
0x002d…005d at000a = ╱f0╱ := ╱ // 0x37 @0xa
0x002d…005d at000b = ╱30╱0╱ // 0x38 @0xb
0x002d…005d at000c = ╱f20000╱ // 0x39 @0xc
0x002d…005d at000f = ╱ea╱ ; ╱ // 0x3c @0xf
0x002d…005d at0010 = ╱48╱H╱ // 0x3d @0x10
0x002d…005d at0011 = ╱4b╱K╱ // 0x3e @0x11
0x002d…005d at0012 = ╱4c╱L╱ // 0x3f @0x12
0x002d…005d at0013 = ╱ef╱ $ ╱ // 0x40 @0x13
0x002d…005d at0014 = ╱f0╱ := ╱ // 0x41 @0x14
0x002d…005d at0015 = ╱22╱"╱ // 0x42 @0x15
0x002d…005d at0016 = ╱22╱"╱ // 0x43 @0x16
0x002d…005d at0017 = ╱ea╱ ; ╱ // 0x44 @0x17
0x002d…005d at0018 = ╱42╱B╱ // 0x45 @0x18
0x002d…005d at0019 = ╱4b╱K╱ // 0x46 @0x19
0x002d…005d at001a = ╱4c╱L╱ // 0x47 @0x1a
0x002d…005d at001b = ╱ef╱ $ ╱ // 0x48 @0x1b
0x002d…005d at001c = ╱f0╱ := ╱ // 0x49 @0x1c
0x002d…005d at001d = ╱22╱"╱ // 0x4a @0x1d
0x002d…005d at001e = ╱22╱"╱ // 0x4b @0x1e
0x002d…005d at001f = ╱ea╱ ; ╱ // 0x4c @0x1f
0x002d…005d at0020 = ╱5a╱Z╱ // 0x4d @0x20
0x002d…005d at0021 = ╱48╱H╱ // 0x4e @0x21
0x002d…005d at0022 = ╱f0╱ := ╱ // 0x4f @0x22
0x002d…005d at0023 = ╱30╱0╱ // 0x50 @0x23
0x002d…005d at0024 = ╱f20000╱ // 0x51 @0x24
0x002d…005d at0027 = ╱ea╱ ; ╱ // 0x54 @0x27
0x002d…005d at0028 = ╱5a╱Z╱ // 0x55 @0x28
0x002d…005d at0029 = ╱42╱B╱ // 0x56 @0x29
0x002d…005d at002a = ╱f0╱ := ╱ // 0x57 @0x2a
0x002d…005d at002b = ╱30╱0╱ // 0x58 @0x2b
0x002d…005d at002c = ╱f20000╱ // 0x59 @0x2c
0x002d…005d at002f = EOL // 0x5c @0x2f
0x002d…005d }
0x005d…0093 9681 00130 INTEGER F5 , X , Y , PR , F8 , FE , G , T0 , T1 , T2 , T3 , T4 , RESTRATE , NYRATE
0x005d…0093 LineComal80 {
0x005d…0093 ptr = 0x9681 // 0x5d @0x0
0x005d…0093 lno = 0x0082 // 0x5f @0x2
0x005d…0093 at0004 = ╱b2╱ INTEGER ╱ // 0x61 @0x4
0x005d…0093 at0005 = ╱46╱F╱ // 0x62 @0x5
0x005d…0093 at0006 = ╱35╱5╱ // 0x63 @0x6
0x005d…0093 at0007 = ╱ec╱ , ╱ // 0x64 @0x7
0x005d…0093 at0008 = ╱58╱X╱ // 0x65 @0x8
0x005d…0093 at0009 = ╱ec╱ , ╱ // 0x66 @0x9
0x005d…0093 at000a = ╱59╱Y╱ // 0x67 @0xa
0x005d…0093 at000b = ╱ec╱ , ╱ // 0x68 @0xb
0x005d…0093 at000c = ╱50╱P╱ // 0x69 @0xc
0x005d…0093 at000d = ╱52╱R╱ // 0x6a @0xd
0x005d…0093 at000e = ╱ec╱ , ╱ // 0x6b @0xe
0x005d…0093 at000f = ╱46╱F╱ // 0x6c @0xf
0x005d…0093 at0010 = ╱38╱8╱ // 0x6d @0x10
0x005d…0093 at0011 = ╱ec╱ , ╱ // 0x6e @0x11
0x005d…0093 at0012 = ╱46╱F╱ // 0x6f @0x12
0x005d…0093 at0013 = ╱45╱E╱ // 0x70 @0x13
0x005d…0093 at0014 = ╱ec╱ , ╱ // 0x71 @0x14
0x005d…0093 at0015 = ╱47╱G╱ // 0x72 @0x15
0x005d…0093 at0016 = ╱ec╱ , ╱ // 0x73 @0x16
0x005d…0093 at0017 = ╱54╱T╱ // 0x74 @0x17
0x005d…0093 at0018 = ╱30╱0╱ // 0x75 @0x18
0x005d…0093 at0019 = ╱ec╱ , ╱ // 0x76 @0x19
0x005d…0093 at001a = ╱54╱T╱ // 0x77 @0x1a
0x005d…0093 at001b = ╱31╱1╱ // 0x78 @0x1b
0x005d…0093 at001c = ╱ec╱ , ╱ // 0x79 @0x1c
0x005d…0093 at001d = ╱54╱T╱ // 0x7a @0x1d
0x005d…0093 at001e = ╱32╱2╱ // 0x7b @0x1e
0x005d…0093 at001f = ╱ec╱ , ╱ // 0x7c @0x1f
0x005d…0093 at0020 = ╱54╱T╱ // 0x7d @0x20
0x005d…0093 at0021 = ╱33╱3╱ // 0x7e @0x21
0x005d…0093 at0022 = ╱ec╱ , ╱ // 0x7f @0x22
0x005d…0093 at0023 = ╱54╱T╱ // 0x80 @0x23
0x005d…0093 at0024 = ╱34╱4╱ // 0x81 @0x24
0x005d…0093 at0025 = ╱ec╱ , ╱ // 0x82 @0x25
0x005d…0093 at0026 = ╱52╱R╱ // 0x83 @0x26
0x005d…0093 at0027 = ╱45╱E╱ // 0x84 @0x27
0x005d…0093 at0028 = ╱53╱S╱ // 0x85 @0x28
0x005d…0093 at0029 = ╱54╱T╱ // 0x86 @0x29
0x005d…0093 at002a = ╱52╱R╱ // 0x87 @0x2a
0x005d…0093 at002b = ╱41╱A╱ // 0x88 @0x2b
0x005d…0093 at002c = ╱54╱T╱ // 0x89 @0x2c
0x005d…0093 at002d = ╱45╱E╱ // 0x8a @0x2d
0x005d…0093 at002e = ╱ec╱ , ╱ // 0x8b @0x2e
0x005d…0093 at002f = ╱4e╱N╱ // 0x8c @0x2f
0x005d…0093 at0030 = ╱59╱Y╱ // 0x8d @0x30
0x005d…0093 at0031 = ╱52╱R╱ // 0x8e @0x31
0x005d…0093 at0032 = ╱41╱A╱ // 0x8f @0x32
0x005d…0093 at0033 = ╱54╱T╱ // 0x90 @0x33
0x005d…0093 at0034 = ╱45╱E╱ // 0x91 @0x34
0x005d…0093 at0035 = EOL // 0x92 @0x35
0x005d…0093 }
0x0093…00dc 96ca 00140 DIM LI $ OF 80 , QT $ OF 80 , FIL $ OF 15 , S $ OF 80 , J $ OF 4 , PIL $ OF 80 , HJ $ OF 4
0x0093…00dc LineComal80 {
0x0093…00dc ptr = 0x96ca // 0x93 @0x0
0x0093…00dc lno = 0x008c // 0x95 @0x2
0x0093…00dc at0004 = ╱87╱ DIM ╱ // 0x97 @0x4
0x0093…00dc at0005 = ╱4c╱L╱ // 0x98 @0x5
0x0093…00dc at0006 = ╱49╱I╱ // 0x99 @0x6
0x0093…00dc at0007 = ╱ef╱ $ ╱ // 0x9a @0x7
0x0093…00dc at0008 = ╱ba╱ OF ╱ // 0x9b @0x8
0x0093…00dc at0009 = ╱38╱8╱ // 0x9c @0x9
0x0093…00dc at000a = ╱30╱0╱ // 0x9d @0xa
0x0093…00dc at000b = ╱f25000╱ // 0x9e @0xb
0x0093…00dc at000e = ╱ec╱ , ╱ // 0xa1 @0xe
0x0093…00dc at000f = ╱51╱Q╱ // 0xa2 @0xf
0x0093…00dc at0010 = ╱54╱T╱ // 0xa3 @0x10
0x0093…00dc at0011 = ╱ef╱ $ ╱ // 0xa4 @0x11
0x0093…00dc at0012 = ╱ba╱ OF ╱ // 0xa5 @0x12
0x0093…00dc at0013 = ╱38╱8╱ // 0xa6 @0x13
0x0093…00dc at0014 = ╱30╱0╱ // 0xa7 @0x14
0x0093…00dc at0015 = ╱f25000╱ // 0xa8 @0x15
0x0093…00dc at0018 = ╱ec╱ , ╱ // 0xab @0x18
0x0093…00dc at0019 = ╱46╱F╱ // 0xac @0x19
0x0093…00dc at001a = ╱49╱I╱ // 0xad @0x1a
0x0093…00dc at001b = ╱4c╱L╱ // 0xae @0x1b
0x0093…00dc at001c = ╱ef╱ $ ╱ // 0xaf @0x1c
0x0093…00dc at001d = ╱ba╱ OF ╱ // 0xb0 @0x1d
0x0093…00dc at001e = ╱31╱1╱ // 0xb1 @0x1e
0x0093…00dc at001f = ╱35╱5╱ // 0xb2 @0x1f
0x0093…00dc at0020 = ╱f20f00╱ // 0xb3 @0x20
0x0093…00dc at0023 = ╱ec╱ , ╱ // 0xb6 @0x23
0x0093…00dc at0024 = ╱53╱S╱ // 0xb7 @0x24
0x0093…00dc at0025 = ╱ef╱ $ ╱ // 0xb8 @0x25
0x0093…00dc at0026 = ╱ba╱ OF ╱ // 0xb9 @0x26
0x0093…00dc at0027 = ╱38╱8╱ // 0xba @0x27
0x0093…00dc at0028 = ╱30╱0╱ // 0xbb @0x28
0x0093…00dc at0029 = ╱f25000╱ // 0xbc @0x29
0x0093…00dc at002c = ╱ec╱ , ╱ // 0xbf @0x2c
0x0093…00dc at002d = ╱4a╱J╱ // 0xc0 @0x2d
0x0093…00dc at002e = ╱ef╱ $ ╱ // 0xc1 @0x2e
0x0093…00dc at002f = ╱ba╱ OF ╱ // 0xc2 @0x2f
0x0093…00dc at0030 = ╱34╱4╱ // 0xc3 @0x30
0x0093…00dc at0031 = ╱f20400╱ // 0xc4 @0x31
0x0093…00dc at0034 = ╱ec╱ , ╱ // 0xc7 @0x34
0x0093…00dc at0035 = ╱50╱P╱ // 0xc8 @0x35
0x0093…00dc at0036 = ╱49╱I╱ // 0xc9 @0x36
0x0093…00dc at0037 = ╱4c╱L╱ // 0xca @0x37
0x0093…00dc at0038 = ╱ef╱ $ ╱ // 0xcb @0x38
0x0093…00dc at0039 = ╱ba╱ OF ╱ // 0xcc @0x39
0x0093…00dc at003a = ╱38╱8╱ // 0xcd @0x3a
0x0093…00dc at003b = ╱30╱0╱ // 0xce @0x3b
0x0093…00dc at003c = ╱f25000╱ // 0xcf @0x3c
0x0093…00dc at003f = ╱ec╱ , ╱ // 0xd2 @0x3f
0x0093…00dc at0040 = ╱48╱H╱ // 0xd3 @0x40
0x0093…00dc at0041 = ╱4a╱J╱ // 0xd4 @0x41
0x0093…00dc at0042 = ╱ef╱ $ ╱ // 0xd5 @0x42
0x0093…00dc at0043 = ╱ba╱ OF ╱ // 0xd6 @0x43
0x0093…00dc at0044 = ╱34╱4╱ // 0xd7 @0x44
0x0093…00dc at0045 = ╱f20400╱ // 0xd8 @0x45
0x0093…00dc at0048 = EOL // 0xdb @0x48
0x0093…00dc }
0x00dc…011e 970c 00150 // ----------------------…skatvar…-----------------------------
0x00dc…011e LineComal80 {
0x00dc…011e ptr = 0x970c // 0xdc @0x0
0x00dc…011e lno = 0x0096 // 0xde @0x2
0x00dc…011e at0004 = ╱89╱ // ╱ // 0xe0 @0x4
0x00dc…011e at0005 = ╱2d╱-╱ // 0xe1 @0x5
0x00dc…011e at0006 = ╱2d╱-╱ // 0xe2 @0x6
0x00dc…011e at0007 = ╱2d╱-╱ // 0xe3 @0x7
0x00dc…011e at0008 = ╱2d╱-╱ // 0xe4 @0x8
0x00dc…011e at0009 = ╱2d╱-╱ // 0xe5 @0x9
0x00dc…011e at000a = ╱2d╱-╱ // 0xe6 @0xa
0x00dc…011e at000b = ╱2d╱-╱ // 0xe7 @0xb
0x00dc…011e at000c = ╱2d╱-╱ // 0xe8 @0xc
0x00dc…011e at000d = ╱2d╱-╱ // 0xe9 @0xd
0x00dc…011e at000e = ╱2d╱-╱ // 0xea @0xe
0x00dc…011e at000f = ╱2d╱-╱ // 0xeb @0xf
0x00dc…011e at0010 = ╱2d╱-╱ // 0xec @0x10
0x00dc…011e at0011 = ╱2d╱-╱ // 0xed @0x11
0x00dc…011e at0012 = ╱2d╱-╱ // 0xee @0x12
0x00dc…011e at0013 = ╱2d╱-╱ // 0xef @0x13
0x00dc…011e at0014 = ╱2d╱-╱ // 0xf0 @0x14
0x00dc…011e at0015 = ╱2d╱-╱ // 0xf1 @0x15
0x00dc…011e at0016 = ╱2d╱-╱ // 0xf2 @0x16
0x00dc…011e at0017 = ╱2d╱-╱ // 0xf3 @0x17
0x00dc…011e at0018 = ╱2d╱-╱ // 0xf4 @0x18
0x00dc…011e at0019 = ╱2d╱-╱ // 0xf5 @0x19
0x00dc…011e at001a = ╱2d╱-╱ // 0xf6 @0x1a
0x00dc…011e at001b = ╱20╱…╱ // 0xf7 @0x1b
0x00dc…011e at001c = ╱73╱s╱ // 0xf8 @0x1c
0x00dc…011e at001d = ╱6b╱k╱ // 0xf9 @0x1d
0x00dc…011e at001e = ╱61╱a╱ // 0xfa @0x1e
0x00dc…011e at001f = ╱74╱t╱ // 0xfb @0x1f
0x00dc…011e at0020 = ╱76╱v╱ // 0xfc @0x20
0x00dc…011e at0021 = ╱61╱a╱ // 0xfd @0x21
0x00dc…011e at0022 = ╱72╱r╱ // 0xfe @0x22
0x00dc…011e at0023 = ╱20╱…╱ // 0xff @0x23
0x00dc…011e at0024 = ╱2d╱-╱ // 0x100 @0x24
0x00dc…011e at0025 = ╱2d╱-╱ // 0x101 @0x25
0x00dc…011e at0026 = ╱2d╱-╱ // 0x102 @0x26
0x00dc…011e at0027 = ╱2d╱-╱ // 0x103 @0x27
0x00dc…011e at0028 = ╱2d╱-╱ // 0x104 @0x28
0x00dc…011e at0029 = ╱2d╱-╱ // 0x105 @0x29
0x00dc…011e at002a = ╱2d╱-╱ // 0x106 @0x2a
0x00dc…011e at002b = ╱2d╱-╱ // 0x107 @0x2b
0x00dc…011e at002c = ╱2d╱-╱ // 0x108 @0x2c
0x00dc…011e at002d = ╱2d╱-╱ // 0x109 @0x2d
0x00dc…011e at002e = ╱2d╱-╱ // 0x10a @0x2e
0x00dc…011e at002f = ╱2d╱-╱ // 0x10b @0x2f
0x00dc…011e at0030 = ╱2d╱-╱ // 0x10c @0x30
0x00dc…011e at0031 = ╱2d╱-╱ // 0x10d @0x31
0x00dc…011e at0032 = ╱2d╱-╱ // 0x10e @0x32
0x00dc…011e at0033 = ╱2d╱-╱ // 0x10f @0x33
0x00dc…011e at0034 = ╱2d╱-╱ // 0x110 @0x34
0x00dc…011e at0035 = ╱2d╱-╱ // 0x111 @0x35
0x00dc…011e at0036 = ╱2d╱-╱ // 0x112 @0x36
0x00dc…011e at0037 = ╱2d╱-╱ // 0x113 @0x37
0x00dc…011e at0038 = ╱2d╱-╱ // 0x114 @0x38
0x00dc…011e at0039 = ╱2d╱-╱ // 0x115 @0x39
0x00dc…011e at003a = ╱2d╱-╱ // 0x116 @0x3a
0x00dc…011e at003b = ╱2d╱-╱ // 0x117 @0x3b
0x00dc…011e at003c = ╱2d╱-╱ // 0x118 @0x3c
0x00dc…011e at003d = ╱2d╱-╱ // 0x119 @0x3d
0x00dc…011e at003e = ╱2d╱-╱ // 0x11a @0x3e
0x00dc…011e at003f = ╱2d╱-╱ // 0x11b @0x3f
0x00dc…011e at0040 = ╱2d╱-╱ // 0x11c @0x40
0x00dc…011e at0041 = EOL // 0x11d @0x41
0x00dc…011e }
0x011e…0169 9757 00160 LET F5 := 1985 ; U1 := .9 ; P0 := 3.5 ; PA0 := 2 ; P2 := 182600
0x011e…0169 LineComal80 {
0x011e…0169 ptr = 0x9757 // 0x11e @0x0
0x011e…0169 lno = 0x00a0 // 0x120 @0x2
0x011e…0169 at0004 = ╱86╱ LET ╱ // 0x122 @0x4
0x011e…0169 at0005 = ╱46╱F╱ // 0x123 @0x5
0x011e…0169 at0006 = ╱35╱5╱ // 0x124 @0x6
0x011e…0169 at0007 = ╱f0╱ := ╱ // 0x125 @0x7
0x011e…0169 at0008 = ╱31╱1╱ // 0x126 @0x8
0x011e…0169 at0009 = ╱39╱9╱ // 0x127 @0x9
0x011e…0169 at000a = ╱38╱8╱ // 0x128 @0xa
0x011e…0169 at000b = ╱35╱5╱ // 0x129 @0xb
0x011e…0169 at000c = ╱f2c107╱ // 0x12a @0xc
0x011e…0169 at000f = ╱ea╱ ; ╱ // 0x12d @0xf
0x011e…0169 at0010 = ╱55╱U╱ // 0x12e @0x10
0x011e…0169 at0011 = ╱31╱1╱ // 0x12f @0x11
0x011e…0169 at0012 = ╱f0╱ := ╱ // 0x130 @0x12
0x011e…0169 at0013 = ╱2e╱.╱ // 0x131 @0x13
0x011e…0169 at0014 = ╱39╱9╱ // 0x132 @0x14
0x011e…0169 at0015 = ╱f88000000000000009╱ // 0x133 @0x15
0x011e…0169 at001e = ╱ea╱ ; ╱ // 0x13c @0x1e
0x011e…0169 at001f = ╱50╱P╱ // 0x13d @0x1f
0x011e…0169 at0020 = ╱30╱0╱ // 0x13e @0x20
0x011e…0169 at0021 = ╱f0╱ := ╱ // 0x13f @0x21
0x011e…0169 at0022 = ╱33╱3╱ // 0x140 @0x22
0x011e…0169 at0023 = ╱2e╱.╱ // 0x141 @0x23
0x011e…0169 at0024 = ╱35╱5╱ // 0x142 @0x24
0x011e…0169 at0025 = ╱f88100000000005003╱ // 0x143 @0x25
0x011e…0169 at002e = ╱ea╱ ; ╱ // 0x14c @0x2e
0x011e…0169 at002f = ╱50╱P╱ // 0x14d @0x2f
0x011e…0169 at0030 = ╱41╱A╱ // 0x14e @0x30
0x011e…0169 at0031 = ╱30╱0╱ // 0x14f @0x31
0x011e…0169 at0032 = ╱f0╱ := ╱ // 0x150 @0x32
0x011e…0169 at0033 = ╱32╱2╱ // 0x151 @0x33
0x011e…0169 at0034 = ╱f20200╱ // 0x152 @0x34
0x011e…0169 at0037 = ╱ea╱ ; ╱ // 0x155 @0x37
0x011e…0169 at0038 = ╱50╱P╱ // 0x156 @0x38
0x011e…0169 at0039 = ╱32╱2╱ // 0x157 @0x39
0x011e…0169 at003a = ╱f0╱ := ╱ // 0x158 @0x3a
0x011e…0169 at003b = ╱31╱1╱ // 0x159 @0x3b
0x011e…0169 at003c = ╱38╱8╱ // 0x15a @0x3c
0x011e…0169 at003d = ╱32╱2╱ // 0x15b @0x3d
0x011e…0169 at003e = ╱36╱6╱ // 0x15c @0x3e
0x011e…0169 at003f = ╱30╱0╱ // 0x15d @0x3f
0x011e…0169 at0040 = ╱30╱0╱ // 0x15e @0x40
0x011e…0169 at0041 = ╱f88600000000608201╱ // 0x15f @0x41
0x011e…0169 at004a = EOL // 0x168 @0x4a
0x011e…0169 }
0x0169…01ab 9799 00170 // ------------------------------------------------------------
0x0169…01ab LineComal80 {
0x0169…01ab ptr = 0x9799 // 0x169 @0x0
0x0169…01ab lno = 0x00aa // 0x16b @0x2
0x0169…01ab at0004 = ╱89╱ // ╱ // 0x16d @0x4
0x0169…01ab at0005 = ╱2d╱-╱ // 0x16e @0x5
0x0169…01ab at0006 = ╱2d╱-╱ // 0x16f @0x6
0x0169…01ab at0007 = ╱2d╱-╱ // 0x170 @0x7
0x0169…01ab at0008 = ╱2d╱-╱ // 0x171 @0x8
0x0169…01ab at0009 = ╱2d╱-╱ // 0x172 @0x9
0x0169…01ab at000a = ╱2d╱-╱ // 0x173 @0xa
0x0169…01ab at000b = ╱2d╱-╱ // 0x174 @0xb
0x0169…01ab at000c = ╱2d╱-╱ // 0x175 @0xc
0x0169…01ab at000d = ╱2d╱-╱ // 0x176 @0xd
0x0169…01ab at000e = ╱2d╱-╱ // 0x177 @0xe
0x0169…01ab at000f = ╱2d╱-╱ // 0x178 @0xf
0x0169…01ab at0010 = ╱2d╱-╱ // 0x179 @0x10
0x0169…01ab at0011 = ╱2d╱-╱ // 0x17a @0x11
0x0169…01ab at0012 = ╱2d╱-╱ // 0x17b @0x12
0x0169…01ab at0013 = ╱2d╱-╱ // 0x17c @0x13
0x0169…01ab at0014 = ╱2d╱-╱ // 0x17d @0x14
0x0169…01ab at0015 = ╱2d╱-╱ // 0x17e @0x15
0x0169…01ab at0016 = ╱2d╱-╱ // 0x17f @0x16
0x0169…01ab at0017 = ╱2d╱-╱ // 0x180 @0x17
0x0169…01ab at0018 = ╱2d╱-╱ // 0x181 @0x18
0x0169…01ab at0019 = ╱2d╱-╱ // 0x182 @0x19
0x0169…01ab at001a = ╱2d╱-╱ // 0x183 @0x1a
0x0169…01ab at001b = ╱2d╱-╱ // 0x184 @0x1b
0x0169…01ab at001c = ╱2d╱-╱ // 0x185 @0x1c
0x0169…01ab at001d = ╱2d╱-╱ // 0x186 @0x1d
0x0169…01ab at001e = ╱2d╱-╱ // 0x187 @0x1e
0x0169…01ab at001f = ╱2d╱-╱ // 0x188 @0x1f
0x0169…01ab at0020 = ╱2d╱-╱ // 0x189 @0x20
0x0169…01ab at0021 = ╱2d╱-╱ // 0x18a @0x21
0x0169…01ab at0022 = ╱2d╱-╱ // 0x18b @0x22
0x0169…01ab at0023 = ╱2d╱-╱ // 0x18c @0x23
0x0169…01ab at0024 = ╱2d╱-╱ // 0x18d @0x24
0x0169…01ab at0025 = ╱2d╱-╱ // 0x18e @0x25
0x0169…01ab at0026 = ╱2d╱-╱ // 0x18f @0x26
0x0169…01ab at0027 = ╱2d╱-╱ // 0x190 @0x27
0x0169…01ab at0028 = ╱2d╱-╱ // 0x191 @0x28
0x0169…01ab at0029 = ╱2d╱-╱ // 0x192 @0x29
0x0169…01ab at002a = ╱2d╱-╱ // 0x193 @0x2a
0x0169…01ab at002b = ╱2d╱-╱ // 0x194 @0x2b
0x0169…01ab at002c = ╱2d╱-╱ // 0x195 @0x2c
0x0169…01ab at002d = ╱2d╱-╱ // 0x196 @0x2d
0x0169…01ab at002e = ╱2d╱-╱ // 0x197 @0x2e
0x0169…01ab at002f = ╱2d╱-╱ // 0x198 @0x2f
0x0169…01ab at0030 = ╱2d╱-╱ // 0x199 @0x30
0x0169…01ab at0031 = ╱2d╱-╱ // 0x19a @0x31
0x0169…01ab at0032 = ╱2d╱-╱ // 0x19b @0x32
0x0169…01ab at0033 = ╱2d╱-╱ // 0x19c @0x33
0x0169…01ab at0034 = ╱2d╱-╱ // 0x19d @0x34
0x0169…01ab at0035 = ╱2d╱-╱ // 0x19e @0x35
0x0169…01ab at0036 = ╱2d╱-╱ // 0x19f @0x36
0x0169…01ab at0037 = ╱2d╱-╱ // 0x1a0 @0x37
0x0169…01ab at0038 = ╱2d╱-╱ // 0x1a1 @0x38
0x0169…01ab at0039 = ╱2d╱-╱ // 0x1a2 @0x39
0x0169…01ab at003a = ╱2d╱-╱ // 0x1a3 @0x3a
0x0169…01ab at003b = ╱2d╱-╱ // 0x1a4 @0x3b
0x0169…01ab at003c = ╱2d╱-╱ // 0x1a5 @0x3c
0x0169…01ab at003d = ╱2d╱-╱ // 0x1a6 @0x3d
0x0169…01ab at003e = ╱2d╱-╱ // 0x1a7 @0x3e
0x0169…01ab at003f = ╱2d╱-╱ // 0x1a8 @0x3f
0x0169…01ab at0040 = ╱2d╱-╱ // 0x1a9 @0x40
0x0169…01ab at0041 = EOL // 0x1aa @0x41
0x0169…01ab }
0x01ab…01cf 97bd 00180 LET T2 := 0 ; F8 := 0 ; T4 := 0 ; G := 0
0x01ab…01cf LineComal80 {
0x01ab…01cf ptr = 0x97bd // 0x1ab @0x0
0x01ab…01cf lno = 0x00b4 // 0x1ad @0x2
0x01ab…01cf at0004 = ╱86╱ LET ╱ // 0x1af @0x4
0x01ab…01cf at0005 = ╱54╱T╱ // 0x1b0 @0x5
0x01ab…01cf at0006 = ╱32╱2╱ // 0x1b1 @0x6
0x01ab…01cf at0007 = ╱f0╱ := ╱ // 0x1b2 @0x7
0x01ab…01cf at0008 = ╱30╱0╱ // 0x1b3 @0x8
0x01ab…01cf at0009 = ╱f20000╱ // 0x1b4 @0x9
0x01ab…01cf at000c = ╱ea╱ ; ╱ // 0x1b7 @0xc
0x01ab…01cf at000d = ╱46╱F╱ // 0x1b8 @0xd
0x01ab…01cf at000e = ╱38╱8╱ // 0x1b9 @0xe
0x01ab…01cf at000f = ╱f0╱ := ╱ // 0x1ba @0xf
0x01ab…01cf at0010 = ╱30╱0╱ // 0x1bb @0x10
0x01ab…01cf at0011 = ╱f20000╱ // 0x1bc @0x11
0x01ab…01cf at0014 = ╱ea╱ ; ╱ // 0x1bf @0x14
0x01ab…01cf at0015 = ╱54╱T╱ // 0x1c0 @0x15
0x01ab…01cf at0016 = ╱34╱4╱ // 0x1c1 @0x16
0x01ab…01cf at0017 = ╱f0╱ := ╱ // 0x1c2 @0x17
0x01ab…01cf at0018 = ╱30╱0╱ // 0x1c3 @0x18
0x01ab…01cf at0019 = ╱f20000╱ // 0x1c4 @0x19
0x01ab…01cf at001c = ╱ea╱ ; ╱ // 0x1c7 @0x1c
0x01ab…01cf at001d = ╱47╱G╱ // 0x1c8 @0x1d
0x01ab…01cf at001e = ╱f0╱ := ╱ // 0x1c9 @0x1e
0x01ab…01cf at001f = ╱30╱0╱ // 0x1ca @0x1f
0x01ab…01cf at0020 = ╱f20000╱ // 0x1cb @0x20
0x01ab…01cf at0023 = EOL // 0x1ce @0x23
0x01ab…01cf }
0x01cf…01e3 97d1 00190 LET LI $ := "" ; PIL $ := ""
0x01cf…01e3 LineComal80 {
0x01cf…01e3 ptr = 0x97d1 // 0x1cf @0x0
0x01cf…01e3 lno = 0x00be // 0x1d1 @0x2
0x01cf…01e3 at0004 = ╱86╱ LET ╱ // 0x1d3 @0x4
0x01cf…01e3 at0005 = ╱4c╱L╱ // 0x1d4 @0x5
0x01cf…01e3 at0006 = ╱49╱I╱ // 0x1d5 @0x6
0x01cf…01e3 at0007 = ╱ef╱ $ ╱ // 0x1d6 @0x7
0x01cf…01e3 at0008 = ╱f0╱ := ╱ // 0x1d7 @0x8
0x01cf…01e3 at0009 = ╱22╱"╱ // 0x1d8 @0x9
0x01cf…01e3 at000a = ╱22╱"╱ // 0x1d9 @0xa
0x01cf…01e3 at000b = ╱ea╱ ; ╱ // 0x1da @0xb
0x01cf…01e3 at000c = ╱50╱P╱ // 0x1db @0xc
0x01cf…01e3 at000d = ╱49╱I╱ // 0x1dc @0xd
0x01cf…01e3 at000e = ╱4c╱L╱ // 0x1dd @0xe
0x01cf…01e3 at000f = ╱ef╱ $ ╱ // 0x1de @0xf
0x01cf…01e3 at0010 = ╱f0╱ := ╱ // 0x1df @0x10
0x01cf…01e3 at0011 = ╱22╱"╱ // 0x1e0 @0x11
0x01cf…01e3 at0012 = ╱22╱"╱ // 0x1e1 @0x12
0x01cf…01e3 at0013 = EOL // 0x1e2 @0x13
0x01cf…01e3 }
0x01e3…01f7 97e5 00200 FOR X := 1 TO 9 DO
0x01e3…01f7 LineComal80 {
0x01e3…01f7 ptr = 0x97e5 // 0x1e3 @0x0
0x01e3…01f7 lno = 0x00c8 // 0x1e5 @0x2
0x01e3…01f7 at0004 = ╱8300╱ FOR ╱ // 0x1e7 @0x4
0x01e3…01f7 at0006 = ╱58╱X╱ // 0x1e9 @0x6
0x01e3…01f7 at0007 = ╱f0╱ := ╱ // 0x1ea @0x7
0x01e3…01f7 at0008 = ╱31╱1╱ // 0x1eb @0x8
0x01e3…01f7 at0009 = ╱f20100╱ // 0x1ec @0x9
0x01e3…01f7 at000c = ╱b737╱ TO ╱ // 0x1ef @0xc
0x01e3…01f7 at000e = ╱39╱9╱ // 0x1f1 @0xe
0x01e3…01f7 at000f = ╱f24f00╱ // 0x1f2 @0xf
0x01e3…01f7 at0012 = ╱bb╱ DO ╱ // 0x1f5 @0x12
0x01e3…01f7 at0013 = EOL // 0x1f6 @0x13
0x01e3…01f7 }
0x01f7…0208 97f6 00210 LET LI $ := LI $ + "-"
0x01f7…0208 LineComal80 {
0x01f7…0208 ptr = 0x97f6 // 0x1f7 @0x0
0x01f7…0208 lno = 0x00d2 // 0x1f9 @0x2
0x01f7…0208 at0004 = ╱86╱ LET ╱ // 0x1fb @0x4
0x01f7…0208 at0005 = ╱4c╱L╱ // 0x1fc @0x5
0x01f7…0208 at0006 = ╱49╱I╱ // 0x1fd @0x6
0x01f7…0208 at0007 = ╱ef╱ $ ╱ // 0x1fe @0x7
0x01f7…0208 at0008 = ╱f0╱ := ╱ // 0x1ff @0x8
0x01f7…0208 at0009 = ╱4c╱L╱ // 0x200 @0x9
0x01f7…0208 at000a = ╱49╱I╱ // 0x201 @0xa
0x01f7…0208 at000b = ╱ef╱ $ ╱ // 0x202 @0xb
0x01f7…0208 at000c = ╱eb╱ + ╱ // 0x203 @0xc
0x01f7…0208 at000d = ╱22╱"╱ // 0x204 @0xd
0x01f7…0208 at000e = ╱2d╱-╱ // 0x205 @0xe
0x01f7…0208 at000f = ╱22╱"╱ // 0x206 @0xf
0x01f7…0208 at0010 = EOL // 0x207 @0x10
0x01f7…0208 }
0x0208…021b 9809 00220 LET PIL $ := PIL $ + "."
0x0208…021b LineComal80 {
0x0208…021b ptr = 0x9809 // 0x208 @0x0
0x0208…021b lno = 0x00dc // 0x20a @0x2
0x0208…021b at0004 = ╱86╱ LET ╱ // 0x20c @0x4
0x0208…021b at0005 = ╱50╱P╱ // 0x20d @0x5
0x0208…021b at0006 = ╱49╱I╱ // 0x20e @0x6
0x0208…021b at0007 = ╱4c╱L╱ // 0x20f @0x7
0x0208…021b at0008 = ╱ef╱ $ ╱ // 0x210 @0x8
0x0208…021b at0009 = ╱f0╱ := ╱ // 0x211 @0x9
0x0208…021b at000a = ╱50╱P╱ // 0x212 @0xa
0x0208…021b at000b = ╱49╱I╱ // 0x213 @0xb
0x0208…021b at000c = ╱4c╱L╱ // 0x214 @0xc
0x0208…021b at000d = ╱ef╱ $ ╱ // 0x215 @0xd
0x0208…021b at000e = ╱eb╱ + ╱ // 0x216 @0xe
0x0208…021b at000f = ╱22╱"╱ // 0x217 @0xf
0x0208…021b at0010 = ╱2e╱.╱ // 0x218 @0x10
0x0208…021b at0011 = ╱22╱"╱ // 0x219 @0x11
0x0208…021b at0012 = EOL // 0x21a @0x12
0x0208…021b }
0x021b…0222 (7,) 9810 00230 NEXT X
0x021b…0222 LineComal80 {
0x021b…0222 ptr = 0x9810 // 0x21b @0x0
0x021b…0222 lno = 0x00e6 // 0x21d @0x2
0x021b…0222 at0004 = ╱84╱ NEXT ╱ // 0x21f @0x4
0x021b…0222 at0005 = ╱58╱X╱ // 0x220 @0x5
0x021b…0222 at0006 = EOL // 0x221 @0x6
0x021b…0222 }
0x0222…0234 9822 00240 OPEN "dde:fvar" , R
0x0222…0234 LineComal80 {
0x0222…0234 ptr = 0x9822 // 0x222 @0x0
0x0222…0234 lno = 0x00f0 // 0x224 @0x2
0x0222…0234 at0004 = ╱a7╱ OPEN ╱ // 0x226 @0x4
0x0222…0234 at0005 = ╱22╱"╱ // 0x227 @0x5
0x0222…0234 at0006 = ╱64╱d╱ // 0x228 @0x6
0x0222…0234 at0007 = ╱64╱d╱ // 0x229 @0x7
0x0222…0234 at0008 = ╱65╱e╱ // 0x22a @0x8
0x0222…0234 at0009 = ╱3a╱:╱ // 0x22b @0x9
0x0222…0234 at000a = ╱66╱f╱ // 0x22c @0xa
0x0222…0234 at000b = ╱76╱v╱ // 0x22d @0xb
0x0222…0234 at000c = ╱61╱a╱ // 0x22e @0xc
0x0222…0234 at000d = ╱72╱r╱ // 0x22f @0xd
0x0222…0234 at000e = ╱22╱"╱ // 0x230 @0xe
0x0222…0234 at000f = ╱ec╱ , ╱ // 0x231 @0xf
0x0222…0234 at0010 = ╱52╱R╱ // 0x232 @0x10
0x0222…0234 at0011 = EOL // 0x233 @0x11
0x0222…0234 }
0x0234…0261 984f 00250 GET "dde:fvar" : PR , C4 , HD6 , C9 , B0 , T1 , TKH , F6 , F1
0x0234…0261 LineComal80 {
0x0234…0261 ptr = 0x984f // 0x234 @0x0
0x0234…0261 lno = 0x00fa // 0x236 @0x2
0x0234…0261 at0004 = ╱a9╱ GET ╱ // 0x238 @0x4
0x0234…0261 at0005 = ╱22╱"╱ // 0x239 @0x5
0x0234…0261 at0006 = ╱64╱d╱ // 0x23a @0x6
0x0234…0261 at0007 = ╱64╱d╱ // 0x23b @0x7
0x0234…0261 at0008 = ╱65╱e╱ // 0x23c @0x8
0x0234…0261 at0009 = ╱3a╱:╱ // 0x23d @0x9
0x0234…0261 at000a = ╱66╱f╱ // 0x23e @0xa
0x0234…0261 at000b = ╱76╱v╱ // 0x23f @0xb
0x0234…0261 at000c = ╱61╱a╱ // 0x240 @0xc
0x0234…0261 at000d = ╱72╱r╱ // 0x241 @0xd
0x0234…0261 at000e = ╱22╱"╱ // 0x242 @0xe
0x0234…0261 at000f = ╱f1╱ : ╱ // 0x243 @0xf
0x0234…0261 at0010 = ╱50╱P╱ // 0x244 @0x10
0x0234…0261 at0011 = ╱52╱R╱ // 0x245 @0x11
0x0234…0261 at0012 = ╱ec╱ , ╱ // 0x246 @0x12
0x0234…0261 at0013 = ╱43╱C╱ // 0x247 @0x13
0x0234…0261 at0014 = ╱34╱4╱ // 0x248 @0x14
0x0234…0261 at0015 = ╱ec╱ , ╱ // 0x249 @0x15
0x0234…0261 at0016 = ╱48╱H╱ // 0x24a @0x16
0x0234…0261 at0017 = ╱44╱D╱ // 0x24b @0x17
0x0234…0261 at0018 = ╱36╱6╱ // 0x24c @0x18
0x0234…0261 at0019 = ╱ec╱ , ╱ // 0x24d @0x19
0x0234…0261 at001a = ╱43╱C╱ // 0x24e @0x1a
0x0234…0261 at001b = ╱39╱9╱ // 0x24f @0x1b
0x0234…0261 at001c = ╱ec╱ , ╱ // 0x250 @0x1c
0x0234…0261 at001d = ╱42╱B╱ // 0x251 @0x1d
0x0234…0261 at001e = ╱30╱0╱ // 0x252 @0x1e
0x0234…0261 at001f = ╱ec╱ , ╱ // 0x253 @0x1f
0x0234…0261 at0020 = ╱54╱T╱ // 0x254 @0x20
0x0234…0261 at0021 = ╱31╱1╱ // 0x255 @0x21
0x0234…0261 at0022 = ╱ec╱ , ╱ // 0x256 @0x22
0x0234…0261 at0023 = ╱54╱T╱ // 0x257 @0x23
0x0234…0261 at0024 = ╱4b╱K╱ // 0x258 @0x24
0x0234…0261 at0025 = ╱48╱H╱ // 0x259 @0x25
0x0234…0261 at0026 = ╱ec╱ , ╱ // 0x25a @0x26
0x0234…0261 at0027 = ╱46╱F╱ // 0x25b @0x27
0x0234…0261 at0028 = ╱36╱6╱ // 0x25c @0x28
0x0234…0261 at0029 = ╱ec╱ , ╱ // 0x25d @0x29
0x0234…0261 at002a = ╱46╱F╱ // 0x25e @0x2a
0x0234…0261 at002b = ╱31╱1╱ // 0x25f @0x2b
0x0234…0261 at002c = EOL // 0x260 @0x2c
0x0234…0261 }
0x0261…028c 987a 00260 GET "dde:fvar" : F9 , P1 , P7 , P8 , P9 , T0 , B2 , B1 , B9
0x0261…028c LineComal80 {
0x0261…028c ptr = 0x987a // 0x261 @0x0
0x0261…028c lno = 0x0104 // 0x263 @0x2
0x0261…028c at0004 = ╱a9╱ GET ╱ // 0x265 @0x4
0x0261…028c at0005 = ╱22╱"╱ // 0x266 @0x5
0x0261…028c at0006 = ╱64╱d╱ // 0x267 @0x6
0x0261…028c at0007 = ╱64╱d╱ // 0x268 @0x7
0x0261…028c at0008 = ╱65╱e╱ // 0x269 @0x8
0x0261…028c at0009 = ╱3a╱:╱ // 0x26a @0x9
0x0261…028c at000a = ╱66╱f╱ // 0x26b @0xa
0x0261…028c at000b = ╱76╱v╱ // 0x26c @0xb
0x0261…028c at000c = ╱61╱a╱ // 0x26d @0xc
0x0261…028c at000d = ╱72╱r╱ // 0x26e @0xd
0x0261…028c at000e = ╱22╱"╱ // 0x26f @0xe
0x0261…028c at000f = ╱f1╱ : ╱ // 0x270 @0xf
0x0261…028c at0010 = ╱46╱F╱ // 0x271 @0x10
0x0261…028c at0011 = ╱39╱9╱ // 0x272 @0x11
0x0261…028c at0012 = ╱ec╱ , ╱ // 0x273 @0x12
0x0261…028c at0013 = ╱50╱P╱ // 0x274 @0x13
0x0261…028c at0014 = ╱31╱1╱ // 0x275 @0x14
0x0261…028c at0015 = ╱ec╱ , ╱ // 0x276 @0x15
0x0261…028c at0016 = ╱50╱P╱ // 0x277 @0x16
0x0261…028c at0017 = ╱37╱7╱ // 0x278 @0x17
0x0261…028c at0018 = ╱ec╱ , ╱ // 0x279 @0x18
0x0261…028c at0019 = ╱50╱P╱ // 0x27a @0x19
0x0261…028c at001a = ╱38╱8╱ // 0x27b @0x1a
0x0261…028c at001b = ╱ec╱ , ╱ // 0x27c @0x1b
0x0261…028c at001c = ╱50╱P╱ // 0x27d @0x1c
0x0261…028c at001d = ╱39╱9╱ // 0x27e @0x1d
0x0261…028c at001e = ╱ec╱ , ╱ // 0x27f @0x1e
0x0261…028c at001f = ╱54╱T╱ // 0x280 @0x1f
0x0261…028c at0020 = ╱30╱0╱ // 0x281 @0x20
0x0261…028c at0021 = ╱ec╱ , ╱ // 0x282 @0x21
0x0261…028c at0022 = ╱42╱B╱ // 0x283 @0x22
0x0261…028c at0023 = ╱32╱2╱ // 0x284 @0x23
0x0261…028c at0024 = ╱ec╱ , ╱ // 0x285 @0x24
0x0261…028c at0025 = ╱42╱B╱ // 0x286 @0x25
0x0261…028c at0026 = ╱31╱1╱ // 0x287 @0x26
0x0261…028c at0027 = ╱ec╱ , ╱ // 0x288 @0x27
0x0261…028c at0028 = ╱42╱B╱ // 0x289 @0x28
0x0261…028c at0029 = ╱39╱9╱ // 0x28a @0x29
0x0261…028c at002a = EOL // 0x28b @0x2a
0x0261…028c }
0x028c…02b9 98a7 00270 GET "dde:fvar" : T2 , C6 , BD6 , C0 , B3 , E6 , F2 , T3 , TKB
0x028c…02b9 LineComal80 {
0x028c…02b9 ptr = 0x98a7 // 0x28c @0x0
0x028c…02b9 lno = 0x010e // 0x28e @0x2
0x028c…02b9 at0004 = ╱a9╱ GET ╱ // 0x290 @0x4
0x028c…02b9 at0005 = ╱22╱"╱ // 0x291 @0x5
0x028c…02b9 at0006 = ╱64╱d╱ // 0x292 @0x6
0x028c…02b9 at0007 = ╱64╱d╱ // 0x293 @0x7
0x028c…02b9 at0008 = ╱65╱e╱ // 0x294 @0x8
0x028c…02b9 at0009 = ╱3a╱:╱ // 0x295 @0x9
0x028c…02b9 at000a = ╱66╱f╱ // 0x296 @0xa
0x028c…02b9 at000b = ╱76╱v╱ // 0x297 @0xb
0x028c…02b9 at000c = ╱61╱a╱ // 0x298 @0xc
0x028c…02b9 at000d = ╱72╱r╱ // 0x299 @0xd
0x028c…02b9 at000e = ╱22╱"╱ // 0x29a @0xe
0x028c…02b9 at000f = ╱f1╱ : ╱ // 0x29b @0xf
0x028c…02b9 at0010 = ╱54╱T╱ // 0x29c @0x10
0x028c…02b9 at0011 = ╱32╱2╱ // 0x29d @0x11
0x028c…02b9 at0012 = ╱ec╱ , ╱ // 0x29e @0x12
0x028c…02b9 at0013 = ╱43╱C╱ // 0x29f @0x13
0x028c…02b9 at0014 = ╱36╱6╱ // 0x2a0 @0x14
0x028c…02b9 at0015 = ╱ec╱ , ╱ // 0x2a1 @0x15
0x028c…02b9 at0016 = ╱42╱B╱ // 0x2a2 @0x16
0x028c…02b9 at0017 = ╱44╱D╱ // 0x2a3 @0x17
0x028c…02b9 at0018 = ╱36╱6╱ // 0x2a4 @0x18
0x028c…02b9 at0019 = ╱ec╱ , ╱ // 0x2a5 @0x19
0x028c…02b9 at001a = ╱43╱C╱ // 0x2a6 @0x1a
0x028c…02b9 at001b = ╱30╱0╱ // 0x2a7 @0x1b
0x028c…02b9 at001c = ╱ec╱ , ╱ // 0x2a8 @0x1c
0x028c…02b9 at001d = ╱42╱B╱ // 0x2a9 @0x1d
0x028c…02b9 at001e = ╱33╱3╱ // 0x2aa @0x1e
0x028c…02b9 at001f = ╱ec╱ , ╱ // 0x2ab @0x1f
0x028c…02b9 at0020 = ╱45╱E╱ // 0x2ac @0x20
0x028c…02b9 at0021 = ╱36╱6╱ // 0x2ad @0x21
0x028c…02b9 at0022 = ╱ec╱ , ╱ // 0x2ae @0x22
0x028c…02b9 at0023 = ╱46╱F╱ // 0x2af @0x23
0x028c…02b9 at0024 = ╱32╱2╱ // 0x2b0 @0x24
0x028c…02b9 at0025 = ╱ec╱ , ╱ // 0x2b1 @0x25
0x028c…02b9 at0026 = ╱54╱T╱ // 0x2b2 @0x26
0x028c…02b9 at0027 = ╱33╱3╱ // 0x2b3 @0x27
0x028c…02b9 at0028 = ╱ec╱ , ╱ // 0x2b4 @0x28
0x028c…02b9 at0029 = ╱54╱T╱ // 0x2b5 @0x29
0x028c…02b9 at002a = ╱4b╱K╱ // 0x2b6 @0x2a
0x028c…02b9 at002b = ╱42╱B╱ // 0x2b7 @0x2b
0x028c…02b9 at002c = EOL // 0x2b8 @0x2c
0x028c…02b9 }
0x02b9…02e0 98ce 00280 GET "dde:fvar" : F0 , F7 , SKG , AKT , D6 , GSLUT
0x02b9…02e0 LineComal80 {
0x02b9…02e0 ptr = 0x98ce // 0x2b9 @0x0
0x02b9…02e0 lno = 0x0118 // 0x2bb @0x2
0x02b9…02e0 at0004 = ╱a9╱ GET ╱ // 0x2bd @0x4
0x02b9…02e0 at0005 = ╱22╱"╱ // 0x2be @0x5
0x02b9…02e0 at0006 = ╱64╱d╱ // 0x2bf @0x6
0x02b9…02e0 at0007 = ╱64╱d╱ // 0x2c0 @0x7
0x02b9…02e0 at0008 = ╱65╱e╱ // 0x2c1 @0x8
0x02b9…02e0 at0009 = ╱3a╱:╱ // 0x2c2 @0x9
0x02b9…02e0 at000a = ╱66╱f╱ // 0x2c3 @0xa
0x02b9…02e0 at000b = ╱76╱v╱ // 0x2c4 @0xb
0x02b9…02e0 at000c = ╱61╱a╱ // 0x2c5 @0xc
0x02b9…02e0 at000d = ╱72╱r╱ // 0x2c6 @0xd
0x02b9…02e0 at000e = ╱22╱"╱ // 0x2c7 @0xe
0x02b9…02e0 at000f = ╱f1╱ : ╱ // 0x2c8 @0xf
0x02b9…02e0 at0010 = ╱46╱F╱ // 0x2c9 @0x10
0x02b9…02e0 at0011 = ╱30╱0╱ // 0x2ca @0x11
0x02b9…02e0 at0012 = ╱ec╱ , ╱ // 0x2cb @0x12
0x02b9…02e0 at0013 = ╱46╱F╱ // 0x2cc @0x13
0x02b9…02e0 at0014 = ╱37╱7╱ // 0x2cd @0x14
0x02b9…02e0 at0015 = ╱ec╱ , ╱ // 0x2ce @0x15
0x02b9…02e0 at0016 = ╱53╱S╱ // 0x2cf @0x16
0x02b9…02e0 at0017 = ╱4b╱K╱ // 0x2d0 @0x17
0x02b9…02e0 at0018 = ╱47╱G╱ // 0x2d1 @0x18
0x02b9…02e0 at0019 = ╱ec╱ , ╱ // 0x2d2 @0x19
0x02b9…02e0 at001a = ╱41╱A╱ // 0x2d3 @0x1a
0x02b9…02e0 at001b = ╱4b╱K╱ // 0x2d4 @0x1b
0x02b9…02e0 at001c = ╱54╱T╱ // 0x2d5 @0x1c
0x02b9…02e0 at001d = ╱ec╱ , ╱ // 0x2d6 @0x1d
0x02b9…02e0 at001e = ╱44╱D╱ // 0x2d7 @0x1e
0x02b9…02e0 at001f = ╱36╱6╱ // 0x2d8 @0x1f
0x02b9…02e0 at0020 = ╱ec╱ , ╱ // 0x2d9 @0x20
0x02b9…02e0 at0021 = ╱47╱G╱ // 0x2da @0x21
0x02b9…02e0 at0022 = ╱53╱S╱ // 0x2db @0x22
0x02b9…02e0 at0023 = ╱4c╱L╱ // 0x2dc @0x23
0x02b9…02e0 at0024 = ╱55╱U╱ // 0x2dd @0x24
0x02b9…02e0 at0025 = ╱54╱T╱ // 0x2de @0x25
0x02b9…02e0 at0026 = EOL // 0x2df @0x26
0x02b9…02e0 }
0x02e0…0312 9900 00290 GET "DDE:FVAR" : HFORMUE , BFORMUE , HATP , BATP , G , FSLUT
0x02e0…0312 LineComal80 {
0x02e0…0312 ptr = 0x9900 // 0x2e0 @0x0
0x02e0…0312 lno = 0x0122 // 0x2e2 @0x2
0x02e0…0312 at0004 = ╱a9╱ GET ╱ // 0x2e4 @0x4
0x02e0…0312 at0005 = ╱22╱"╱ // 0x2e5 @0x5
0x02e0…0312 at0006 = ╱44╱D╱ // 0x2e6 @0x6
0x02e0…0312 at0007 = ╱44╱D╱ // 0x2e7 @0x7
0x02e0…0312 at0008 = ╱45╱E╱ // 0x2e8 @0x8
0x02e0…0312 at0009 = ╱3a╱:╱ // 0x2e9 @0x9
0x02e0…0312 at000a = ╱46╱F╱ // 0x2ea @0xa
0x02e0…0312 at000b = ╱56╱V╱ // 0x2eb @0xb
0x02e0…0312 at000c = ╱41╱A╱ // 0x2ec @0xc
0x02e0…0312 at000d = ╱52╱R╱ // 0x2ed @0xd
0x02e0…0312 at000e = ╱22╱"╱ // 0x2ee @0xe
0x02e0…0312 at000f = ╱f1╱ : ╱ // 0x2ef @0xf
0x02e0…0312 at0010 = ╱48╱H╱ // 0x2f0 @0x10
0x02e0…0312 at0011 = ╱46╱F╱ // 0x2f1 @0x11
0x02e0…0312 at0012 = ╱4f╱O╱ // 0x2f2 @0x12
0x02e0…0312 at0013 = ╱52╱R╱ // 0x2f3 @0x13
0x02e0…0312 at0014 = ╱4d╱M╱ // 0x2f4 @0x14
0x02e0…0312 at0015 = ╱55╱U╱ // 0x2f5 @0x15
0x02e0…0312 at0016 = ╱45╱E╱ // 0x2f6 @0x16
0x02e0…0312 at0017 = ╱ec╱ , ╱ // 0x2f7 @0x17
0x02e0…0312 at0018 = ╱42╱B╱ // 0x2f8 @0x18
0x02e0…0312 at0019 = ╱46╱F╱ // 0x2f9 @0x19
0x02e0…0312 at001a = ╱4f╱O╱ // 0x2fa @0x1a
0x02e0…0312 at001b = ╱52╱R╱ // 0x2fb @0x1b
0x02e0…0312 at001c = ╱4d╱M╱ // 0x2fc @0x1c
0x02e0…0312 at001d = ╱55╱U╱ // 0x2fd @0x1d
0x02e0…0312 at001e = ╱45╱E╱ // 0x2fe @0x1e
0x02e0…0312 at001f = ╱ec╱ , ╱ // 0x2ff @0x1f
0x02e0…0312 at0020 = ╱48╱H╱ // 0x300 @0x20
0x02e0…0312 at0021 = ╱41╱A╱ // 0x301 @0x21
0x02e0…0312 at0022 = ╱54╱T╱ // 0x302 @0x22
0x02e0…0312 at0023 = ╱50╱P╱ // 0x303 @0x23
0x02e0…0312 at0024 = ╱ec╱ , ╱ // 0x304 @0x24
0x02e0…0312 at0025 = ╱42╱B╱ // 0x305 @0x25
0x02e0…0312 at0026 = ╱41╱A╱ // 0x306 @0x26
0x02e0…0312 at0027 = ╱54╱T╱ // 0x307 @0x27
0x02e0…0312 at0028 = ╱50╱P╱ // 0x308 @0x28
0x02e0…0312 at0029 = ╱ec╱ , ╱ // 0x309 @0x29
0x02e0…0312 at002a = ╱47╱G╱ // 0x30a @0x2a
0x02e0…0312 at002b = ╱ec╱ , ╱ // 0x30b @0x2b
0x02e0…0312 at002c = ╱46╱F╱ // 0x30c @0x2c
0x02e0…0312 at002d = ╱53╱S╱ // 0x30d @0x2d
0x02e0…0312 at002e = ╱4c╱L╱ // 0x30e @0x2e
0x02e0…0312 at002f = ╱55╱U╱ // 0x30f @0x2f
0x02e0…0312 at0030 = ╱54╱T╱ // 0x310 @0x30
0x02e0…0312 at0031 = EOL // 0x311 @0x31
0x02e0…0312 }
0x0312…032c 991a 00300 GET "dde:fvar" : HKL $ , BKL $
0x0312…032c LineComal80 {
0x0312…032c ptr = 0x991a // 0x312 @0x0
0x0312…032c lno = 0x012c // 0x314 @0x2
0x0312…032c at0004 = ╱a9╱ GET ╱ // 0x316 @0x4
0x0312…032c at0005 = ╱22╱"╱ // 0x317 @0x5
0x0312…032c at0006 = ╱64╱d╱ // 0x318 @0x6
0x0312…032c at0007 = ╱64╱d╱ // 0x319 @0x7
0x0312…032c at0008 = ╱65╱e╱ // 0x31a @0x8
0x0312…032c at0009 = ╱3a╱:╱ // 0x31b @0x9
0x0312…032c at000a = ╱66╱f╱ // 0x31c @0xa
0x0312…032c at000b = ╱76╱v╱ // 0x31d @0xb
0x0312…032c at000c = ╱61╱a╱ // 0x31e @0xc
0x0312…032c at000d = ╱72╱r╱ // 0x31f @0xd
0x0312…032c at000e = ╱22╱"╱ // 0x320 @0xe
0x0312…032c at000f = ╱f1╱ : ╱ // 0x321 @0xf
0x0312…032c at0010 = ╱48╱H╱ // 0x322 @0x10
0x0312…032c at0011 = ╱4b╱K╱ // 0x323 @0x11
0x0312…032c at0012 = ╱4c╱L╱ // 0x324 @0x12
0x0312…032c at0013 = ╱ef╱ $ ╱ // 0x325 @0x13
0x0312…032c at0014 = ╱ec╱ , ╱ // 0x326 @0x14
0x0312…032c at0015 = ╱42╱B╱ // 0x327 @0x15
0x0312…032c at0016 = ╱4b╱K╱ // 0x328 @0x16
0x0312…032c at0017 = ╱4c╱L╱ // 0x329 @0x17
0x0312…032c at0018 = ╱ef╱ $ ╱ // 0x32a @0x18
0x0312…032c at0019 = EOL // 0x32b @0x19
0x0312…032c }
0x032c…033c 992a 00310 CLOSE "dde:fvar"
0x032c…033c LineComal80 {
0x032c…033c ptr = 0x992a // 0x32c @0x0
0x032c…033c lno = 0x0136 // 0x32e @0x2
0x032c…033c at0004 = ╱a8╱ CLOSE ╱ // 0x330 @0x4
0x032c…033c at0005 = ╱22╱"╱ // 0x331 @0x5
0x032c…033c at0006 = ╱64╱d╱ // 0x332 @0x6
0x032c…033c at0007 = ╱64╱d╱ // 0x333 @0x7
0x032c…033c at0008 = ╱65╱e╱ // 0x334 @0x8
0x032c…033c at0009 = ╱3a╱:╱ // 0x335 @0x9
0x032c…033c at000a = ╱66╱f╱ // 0x336 @0xa
0x032c…033c at000b = ╱76╱v╱ // 0x337 @0xb
0x032c…033c at000c = ╱61╱a╱ // 0x338 @0xc
0x032c…033c at000d = ╱72╱r╱ // 0x339 @0xd
0x032c…033c at000e = ╱22╱"╱ // 0x33a @0xe
0x032c…033c at000f = EOL // 0x33b @0xf
0x032c…033c }
0x033c…0352 9940 00320 OPEN "DDE:FORSKVAR" , R
0x033c…0352 LineComal80 {
0x033c…0352 ptr = 0x9940 // 0x33c @0x0
0x033c…0352 lno = 0x0140 // 0x33e @0x2
0x033c…0352 at0004 = ╱a7╱ OPEN ╱ // 0x340 @0x4
0x033c…0352 at0005 = ╱22╱"╱ // 0x341 @0x5
0x033c…0352 at0006 = ╱44╱D╱ // 0x342 @0x6
0x033c…0352 at0007 = ╱44╱D╱ // 0x343 @0x7
0x033c…0352 at0008 = ╱45╱E╱ // 0x344 @0x8
0x033c…0352 at0009 = ╱3a╱:╱ // 0x345 @0x9
0x033c…0352 at000a = ╱46╱F╱ // 0x346 @0xa
0x033c…0352 at000b = ╱4f╱O╱ // 0x347 @0xb
0x033c…0352 at000c = ╱52╱R╱ // 0x348 @0xc
0x033c…0352 at000d = ╱53╱S╱ // 0x349 @0xd
0x033c…0352 at000e = ╱4b╱K╱ // 0x34a @0xe
0x033c…0352 at000f = ╱56╱V╱ // 0x34b @0xf
0x033c…0352 at0010 = ╱41╱A╱ // 0x34c @0x10
0x033c…0352 at0011 = ╱52╱R╱ // 0x34d @0x11
0x033c…0352 at0012 = ╱22╱"╱ // 0x34e @0x12
0x033c…0352 at0013 = ╱ec╱ , ╱ // 0x34f @0x13
0x033c…0352 at0014 = ╱52╱R╱ // 0x350 @0x14
0x033c…0352 at0015 = EOL // 0x351 @0x15
0x033c…0352 }
0x0352…0380 996e 00330 GET "DDE:FORSKVAR" : ZH , HJ $ , HAIH , HASQ , HBSKF , F1
0x0352…0380 LineComal80 {
0x0352…0380 ptr = 0x996e // 0x352 @0x0
0x0352…0380 lno = 0x014a // 0x354 @0x2
0x0352…0380 at0004 = ╱a9╱ GET ╱ // 0x356 @0x4
0x0352…0380 at0005 = ╱22╱"╱ // 0x357 @0x5
0x0352…0380 at0006 = ╱44╱D╱ // 0x358 @0x6
0x0352…0380 at0007 = ╱44╱D╱ // 0x359 @0x7
0x0352…0380 at0008 = ╱45╱E╱ // 0x35a @0x8
0x0352…0380 at0009 = ╱3a╱:╱ // 0x35b @0x9
0x0352…0380 at000a = ╱46╱F╱ // 0x35c @0xa
0x0352…0380 at000b = ╱4f╱O╱ // 0x35d @0xb
0x0352…0380 at000c = ╱52╱R╱ // 0x35e @0xc
0x0352…0380 at000d = ╱53╱S╱ // 0x35f @0xd
0x0352…0380 at000e = ╱4b╱K╱ // 0x360 @0xe
0x0352…0380 at000f = ╱56╱V╱ // 0x361 @0xf
0x0352…0380 at0010 = ╱41╱A╱ // 0x362 @0x10
0x0352…0380 at0011 = ╱52╱R╱ // 0x363 @0x11
0x0352…0380 at0012 = ╱22╱"╱ // 0x364 @0x12
0x0352…0380 at0013 = ╱f1╱ : ╱ // 0x365 @0x13
0x0352…0380 at0014 = ╱5a╱Z╱ // 0x366 @0x14
0x0352…0380 at0015 = ╱48╱H╱ // 0x367 @0x15
0x0352…0380 at0016 = ╱ec╱ , ╱ // 0x368 @0x16
0x0352…0380 at0017 = ╱48╱H╱ // 0x369 @0x17
0x0352…0380 at0018 = ╱4a╱J╱ // 0x36a @0x18
0x0352…0380 at0019 = ╱ef╱ $ ╱ // 0x36b @0x19
0x0352…0380 at001a = ╱ec╱ , ╱ // 0x36c @0x1a
0x0352…0380 at001b = ╱48╱H╱ // 0x36d @0x1b
0x0352…0380 at001c = ╱41╱A╱ // 0x36e @0x1c
0x0352…0380 at001d = ╱49╱I╱ // 0x36f @0x1d
0x0352…0380 at001e = ╱48╱H╱ // 0x370 @0x1e
0x0352…0380 at001f = ╱ec╱ , ╱ // 0x371 @0x1f
0x0352…0380 at0020 = ╱48╱H╱ // 0x372 @0x20
0x0352…0380 at0021 = ╱41╱A╱ // 0x373 @0x21
0x0352…0380 at0022 = ╱53╱S╱ // 0x374 @0x22
0x0352…0380 at0023 = ╱51╱Q╱ // 0x375 @0x23
0x0352…0380 at0024 = ╱ec╱ , ╱ // 0x376 @0x24
0x0352…0380 at0025 = ╱48╱H╱ // 0x377 @0x25
0x0352…0380 at0026 = ╱42╱B╱ // 0x378 @0x26
0x0352…0380 at0027 = ╱53╱S╱ // 0x379 @0x27
0x0352…0380 at0028 = ╱4b╱K╱ // 0x37a @0x28
0x0352…0380 at0029 = ╱46╱F╱ // 0x37b @0x29
0x0352…0380 at002a = ╱ec╱ , ╱ // 0x37c @0x2a
0x0352…0380 at002b = ╱46╱F╱ // 0x37d @0x2b
0x0352…0380 at002c = ╱31╱1╱ // 0x37e @0x2c
0x0352…0380 at002d = EOL // 0x37f @0x2d
0x0352…0380 }
0x0380…03ae 999c 00340 GET "DDE:FORSKVAR" : ZB , BJ $ , BAIH , BASQ , BBSKF , F2
0x0380…03ae LineComal80 {
0x0380…03ae ptr = 0x999c // 0x380 @0x0
0x0380…03ae lno = 0x0154 // 0x382 @0x2
0x0380…03ae at0004 = ╱a9╱ GET ╱ // 0x384 @0x4
0x0380…03ae at0005 = ╱22╱"╱ // 0x385 @0x5
0x0380…03ae at0006 = ╱44╱D╱ // 0x386 @0x6
0x0380…03ae at0007 = ╱44╱D╱ // 0x387 @0x7
0x0380…03ae at0008 = ╱45╱E╱ // 0x388 @0x8
0x0380…03ae at0009 = ╱3a╱:╱ // 0x389 @0x9
0x0380…03ae at000a = ╱46╱F╱ // 0x38a @0xa
0x0380…03ae at000b = ╱4f╱O╱ // 0x38b @0xb
0x0380…03ae at000c = ╱52╱R╱ // 0x38c @0xc
0x0380…03ae at000d = ╱53╱S╱ // 0x38d @0xd
0x0380…03ae at000e = ╱4b╱K╱ // 0x38e @0xe
0x0380…03ae at000f = ╱56╱V╱ // 0x38f @0xf
0x0380…03ae at0010 = ╱41╱A╱ // 0x390 @0x10
0x0380…03ae at0011 = ╱52╱R╱ // 0x391 @0x11
0x0380…03ae at0012 = ╱22╱"╱ // 0x392 @0x12
0x0380…03ae at0013 = ╱f1╱ : ╱ // 0x393 @0x13
0x0380…03ae at0014 = ╱5a╱Z╱ // 0x394 @0x14
0x0380…03ae at0015 = ╱42╱B╱ // 0x395 @0x15
0x0380…03ae at0016 = ╱ec╱ , ╱ // 0x396 @0x16
0x0380…03ae at0017 = ╱42╱B╱ // 0x397 @0x17
0x0380…03ae at0018 = ╱4a╱J╱ // 0x398 @0x18
0x0380…03ae at0019 = ╱ef╱ $ ╱ // 0x399 @0x19
0x0380…03ae at001a = ╱ec╱ , ╱ // 0x39a @0x1a
0x0380…03ae at001b = ╱42╱B╱ // 0x39b @0x1b
0x0380…03ae at001c = ╱41╱A╱ // 0x39c @0x1c
0x0380…03ae at001d = ╱49╱I╱ // 0x39d @0x1d
0x0380…03ae at001e = ╱48╱H╱ // 0x39e @0x1e
0x0380…03ae at001f = ╱ec╱ , ╱ // 0x39f @0x1f
0x0380…03ae at0020 = ╱42╱B╱ // 0x3a0 @0x20
0x0380…03ae at0021 = ╱41╱A╱ // 0x3a1 @0x21
0x0380…03ae at0022 = ╱53╱S╱ // 0x3a2 @0x22
0x0380…03ae at0023 = ╱51╱Q╱ // 0x3a3 @0x23
0x0380…03ae at0024 = ╱ec╱ , ╱ // 0x3a4 @0x24
0x0380…03ae at0025 = ╱42╱B╱ // 0x3a5 @0x25
0x0380…03ae at0026 = ╱42╱B╱ // 0x3a6 @0x26
0x0380…03ae at0027 = ╱53╱S╱ // 0x3a7 @0x27
0x0380…03ae at0028 = ╱4b╱K╱ // 0x3a8 @0x28
0x0380…03ae at0029 = ╱46╱F╱ // 0x3a9 @0x29
0x0380…03ae at002a = ╱ec╱ , ╱ // 0x3aa @0x2a
0x0380…03ae at002b = ╱46╱F╱ // 0x3ab @0x2b
0x0380…03ae at002c = ╱32╱2╱ // 0x3ac @0x2c
0x0380…03ae at002d = EOL // 0x3ad @0x2d
0x0380…03ae }
0x03ae…03c2 99b0 00350 CLOSE "DDE:FORSKVAR"
0x03ae…03c2 LineComal80 {
0x03ae…03c2 ptr = 0x99b0 // 0x3ae @0x0
0x03ae…03c2 lno = 0x015e // 0x3b0 @0x2
0x03ae…03c2 at0004 = ╱a8╱ CLOSE ╱ // 0x3b2 @0x4
0x03ae…03c2 at0005 = ╱22╱"╱ // 0x3b3 @0x5
0x03ae…03c2 at0006 = ╱44╱D╱ // 0x3b4 @0x6
0x03ae…03c2 at0007 = ╱44╱D╱ // 0x3b5 @0x7
0x03ae…03c2 at0008 = ╱45╱E╱ // 0x3b6 @0x8
0x03ae…03c2 at0009 = ╱3a╱:╱ // 0x3b7 @0x9
0x03ae…03c2 at000a = ╱46╱F╱ // 0x3b8 @0xa
0x03ae…03c2 at000b = ╱4f╱O╱ // 0x3b9 @0xb
0x03ae…03c2 at000c = ╱52╱R╱ // 0x3ba @0xc
0x03ae…03c2 at000d = ╱53╱S╱ // 0x3bb @0xd
0x03ae…03c2 at000e = ╱4b╱K╱ // 0x3bc @0xe
0x03ae…03c2 at000f = ╱56╱V╱ // 0x3bd @0xf
0x03ae…03c2 at0010 = ╱41╱A╱ // 0x3be @0x10
0x03ae…03c2 at0011 = ╱52╱R╱ // 0x3bf @0x11
0x03ae…03c2 at0012 = ╱22╱"╱ // 0x3c0 @0x12
0x03ae…03c2 at0013 = EOL // 0x3c1 @0x13
0x03ae…03c2 }
0x03c2…03db 99c9 00360 IF >< 1 AND FSLUT >< 1 THEN
0x03c2…03db LineComal80 {
0x03c2…03db ptr = 0x99c9 // 0x3c2 @0x0
0x03c2…03db lno = 0x0168 // 0x3c4 @0x2
0x03c2…03db at0004 = ╱9b0047╱ IF ╱ // 0x3c6 @0x4
0x03c2…03db at0007 = ╱e4╱ >< ╱ // 0x3c9 @0x7
0x03c2…03db at0008 = ╱31╱1╱ // 0x3ca @0x8
0x03c2…03db at0009 = ╱f20100╱ // 0x3cb @0x9
0x03c2…03db at000c = ╱d9╱ AND ╱ // 0x3ce @0xc
0x03c2…03db at000d = ╱46╱F╱ // 0x3cf @0xd
0x03c2…03db at000e = ╱53╱S╱ // 0x3d0 @0xe
0x03c2…03db at000f = ╱4c╱L╱ // 0x3d1 @0xf
0x03c2…03db at0010 = ╱55╱U╱ // 0x3d2 @0x10
0x03c2…03db at0011 = ╱54╱T╱ // 0x3d3 @0x11
0x03c2…03db at0012 = ╱e4╱ >< ╱ // 0x3d4 @0x12
0x03c2…03db at0013 = ╱31╱1╱ // 0x3d5 @0x13
0x03c2…03db at0014 = ╱f20100╱ // 0x3d6 @0x14
0x03c2…03db at0017 = ╱b5╱ THEN ╱ // 0x3d9 @0x17
0x03c2…03db at0018 = EOL // 0x3da @0x18
0x03c2…03db }
0x03db…03f6 99e4 00370 LET HBSKF := 0 ; BBSKF := 0
0x03db…03f6 LineComal80 {
0x03db…03f6 ptr = 0x99e4 // 0x3db @0x0
0x03db…03f6 lno = 0x0172 // 0x3dd @0x2
0x03db…03f6 at0004 = ╱86╱ LET ╱ // 0x3df @0x4
0x03db…03f6 at0005 = ╱48╱H╱ // 0x3e0 @0x5
0x03db…03f6 at0006 = ╱42╱B╱ // 0x3e1 @0x6
0x03db…03f6 at0007 = ╱53╱S╱ // 0x3e2 @0x7
0x03db…03f6 at0008 = ╱4b╱K╱ // 0x3e3 @0x8
0x03db…03f6 at0009 = ╱46╱F╱ // 0x3e4 @0x9
0x03db…03f6 at000a = ╱f0╱ := ╱ // 0x3e5 @0xa
0x03db…03f6 at000b = ╱30╱0╱ // 0x3e6 @0xb
0x03db…03f6 at000c = ╱f20000╱ // 0x3e7 @0xc
0x03db…03f6 at000f = ╱ea╱ ; ╱ // 0x3ea @0xf
0x03db…03f6 at0010 = ╱42╱B╱ // 0x3eb @0x10
0x03db…03f6 at0011 = ╱42╱B╱ // 0x3ec @0x11
0x03db…03f6 at0012 = ╱53╱S╱ // 0x3ed @0x12
0x03db…03f6 at0013 = ╱4b╱K╱ // 0x3ee @0x13
0x03db…03f6 at0014 = ╱46╱F╱ // 0x3ef @0x14
0x03db…03f6 at0015 = ╱f0╱ := ╱ // 0x3f0 @0x15
0x03db…03f6 at0016 = ╱30╱0╱ // 0x3f1 @0x16
0x03db…03f6 at0017 = ╱f20000╱ // 0x3f2 @0x17
0x03db…03f6 at001a = EOL // 0x3f5 @0x1a
0x03db…03f6 }
0x03f6…043e 9a2c 00380 PRINT "Skriv…hovedpersonens…indregnede…restskat…i…" ; F5 - 2 ; "(evt.…0)…" ;
0x03f6…043e LineComal80 {
0x03f6…043e ptr = 0x9a2c // 0x3f6 @0x0
0x03f6…043e lno = 0x017c // 0x3f8 @0x2
0x03f6…043e at0004 = ╱92╱ PRINT ╱ // 0x3fa @0x4
0x03f6…043e at0005 = ╱22╱"╱ // 0x3fb @0x5
0x03f6…043e at0006 = ╱53╱S╱ // 0x3fc @0x6
0x03f6…043e at0007 = ╱6b╱k╱ // 0x3fd @0x7
0x03f6…043e at0008 = ╱72╱r╱ // 0x3fe @0x8
0x03f6…043e at0009 = ╱69╱i╱ // 0x3ff @0x9
0x03f6…043e at000a = ╱76╱v╱ // 0x400 @0xa
0x03f6…043e at000b = ╱20╱…╱ // 0x401 @0xb
0x03f6…043e at000c = ╱68╱h╱ // 0x402 @0xc
0x03f6…043e at000d = ╱6f╱o╱ // 0x403 @0xd
0x03f6…043e at000e = ╱76╱v╱ // 0x404 @0xe
0x03f6…043e at000f = ╱65╱e╱ // 0x405 @0xf
0x03f6…043e at0010 = ╱64╱d╱ // 0x406 @0x10
0x03f6…043e at0011 = ╱70╱p╱ // 0x407 @0x11
0x03f6…043e at0012 = ╱65╱e╱ // 0x408 @0x12
0x03f6…043e at0013 = ╱72╱r╱ // 0x409 @0x13
0x03f6…043e at0014 = ╱73╱s╱ // 0x40a @0x14
0x03f6…043e at0015 = ╱6f╱o╱ // 0x40b @0x15
0x03f6…043e at0016 = ╱6e╱n╱ // 0x40c @0x16
0x03f6…043e at0017 = ╱65╱e╱ // 0x40d @0x17
0x03f6…043e at0018 = ╱6e╱n╱ // 0x40e @0x18
0x03f6…043e at0019 = ╱73╱s╱ // 0x40f @0x19
0x03f6…043e at001a = ╱20╱…╱ // 0x410 @0x1a
0x03f6…043e at001b = ╱69╱i╱ // 0x411 @0x1b
0x03f6…043e at001c = ╱6e╱n╱ // 0x412 @0x1c
0x03f6…043e at001d = ╱64╱d╱ // 0x413 @0x1d
0x03f6…043e at001e = ╱72╱r╱ // 0x414 @0x1e
0x03f6…043e at001f = ╱65╱e╱ // 0x415 @0x1f
0x03f6…043e at0020 = ╱67╱g╱ // 0x416 @0x20
0x03f6…043e at0021 = ╱6e╱n╱ // 0x417 @0x21
0x03f6…043e at0022 = ╱65╱e╱ // 0x418 @0x22
0x03f6…043e at0023 = ╱64╱d╱ // 0x419 @0x23
0x03f6…043e at0024 = ╱65╱e╱ // 0x41a @0x24
0x03f6…043e at0025 = ╱20╱…╱ // 0x41b @0x25
0x03f6…043e at0026 = ╱72╱r╱ // 0x41c @0x26
0x03f6…043e at0027 = ╱65╱e╱ // 0x41d @0x27
0x03f6…043e at0028 = ╱73╱s╱ // 0x41e @0x28
0x03f6…043e at0029 = ╱74╱t╱ // 0x41f @0x29
0x03f6…043e at002a = ╱73╱s╱ // 0x420 @0x2a
0x03f6…043e at002b = ╱6b╱k╱ // 0x421 @0x2b
0x03f6…043e at002c = ╱61╱a╱ // 0x422 @0x2c
0x03f6…043e at002d = ╱74╱t╱ // 0x423 @0x2d
0x03f6…043e at002e = ╱20╱…╱ // 0x424 @0x2e
0x03f6…043e at002f = ╱69╱i╱ // 0x425 @0x2f
0x03f6…043e at0030 = ╱20╱…╱ // 0x426 @0x30
0x03f6…043e at0031 = ╱22╱"╱ // 0x427 @0x31
0x03f6…043e at0032 = ╱ea╱ ; ╱ // 0x428 @0x32
0x03f6…043e at0033 = ╱46╱F╱ // 0x429 @0x33
0x03f6…043e at0034 = ╱35╱5╱ // 0x42a @0x34
0x03f6…043e at0035 = ╱e6╱ - ╱ // 0x42b @0x35
0x03f6…043e at0036 = ╱32╱2╱ // 0x42c @0x36
0x03f6…043e at0037 = ╱f20200╱ // 0x42d @0x37
0x03f6…043e at003a = ╱ea╱ ; ╱ // 0x430 @0x3a
0x03f6…043e at003b = ╱22╱"╱ // 0x431 @0x3b
0x03f6…043e at003c = ╱28╱(╱ // 0x432 @0x3c
0x03f6…043e at003d = ╱65╱e╱ // 0x433 @0x3d
0x03f6…043e at003e = ╱76╱v╱ // 0x434 @0x3e
0x03f6…043e at003f = ╱74╱t╱ // 0x435 @0x3f
0x03f6…043e at0040 = ╱2e╱.╱ // 0x436 @0x40
0x03f6…043e at0041 = ╱20╱…╱ // 0x437 @0x41
0x03f6…043e at0042 = ╱30╱0╱ // 0x438 @0x42
0x03f6…043e at0043 = ╱29╱)╱ // 0x439 @0x43
0x03f6…043e at0044 = ╱20╱…╱ // 0x43a @0x44
0x03f6…043e at0045 = ╱22╱"╱ // 0x43b @0x45
0x03f6…043e at0046 = ╱ea╱ ; ╱ // 0x43c @0x46
0x03f6…043e at0047 = EOL // 0x43d @0x47
0x03f6…043e }
0x043e…0446 9a34 00390 INPUT F1
0x043e…0446 LineComal80 {
0x043e…0446 ptr = 0x9a34 // 0x43e @0x0
0x043e…0446 lno = 0x0186 // 0x440 @0x2
0x043e…0446 at0004 = ╱91╱ INPUT ╱ // 0x442 @0x4
0x043e…0446 at0005 = ╱46╱F╱ // 0x443 @0x5
0x043e…0446 at0006 = ╱31╱1╱ // 0x444 @0x6
0x043e…0446 at0007 = EOL // 0x445 @0x7
0x043e…0446 }
0x0446…044f 9a3d 00400 PRINT LI $
0x0446…044f LineComal80 {
0x0446…044f ptr = 0x9a3d // 0x446 @0x0
0x0446…044f lno = 0x0190 // 0x448 @0x2
0x0446…044f at0004 = ╱92╱ PRINT ╱ // 0x44a @0x4
0x0446…044f at0005 = ╱4c╱L╱ // 0x44b @0x5
0x0446…044f at0006 = ╱49╱I╱ // 0x44c @0x6
0x0446…044f at0007 = ╱ef╱ $ ╱ // 0x44d @0x7
0x0446…044f at0008 = EOL // 0x44e @0x8
0x0446…044f }
0x044f…045e 9a4c 00410 IF 2 >< 0 THEN
0x044f…045e LineComal80 {
0x044f…045e ptr = 0x9a4c // 0x44f @0x0
0x044f…045e lno = 0x019a // 0x451 @0x2
0x044f…045e at0004 = ╱9b0054╱ IF ╱ // 0x453 @0x4
0x044f…045e at0007 = ╱32╱2╱ // 0x456 @0x7
0x044f…045e at0008 = ╱e4╱ >< ╱ // 0x457 @0x8
0x044f…045e at0009 = ╱30╱0╱ // 0x458 @0x9
0x044f…045e at000a = ╱f20000╱ // 0x459 @0xa
0x044f…045e at000d = ╱b5╱ THEN ╱ // 0x45c @0xd
0x044f…045e at000e = EOL // 0x45d @0xe
0x044f…045e }
0x045e…0477 9a65 00420 IF >< 1 AND FSLUT >< 1 THEN
0x045e…0477 LineComal80 {
0x045e…0477 ptr = 0x9a65 // 0x45e @0x0
0x045e…0477 lno = 0x01a4 // 0x460 @0x2
0x045e…0477 at0004 = ╱9b0047╱ IF ╱ // 0x462 @0x4
0x045e…0477 at0007 = ╱e4╱ >< ╱ // 0x465 @0x7
0x045e…0477 at0008 = ╱31╱1╱ // 0x466 @0x8
0x045e…0477 at0009 = ╱f20100╱ // 0x467 @0x9
0x045e…0477 at000c = ╱d9╱ AND ╱ // 0x46a @0xc
0x045e…0477 at000d = ╱46╱F╱ // 0x46b @0xd
0x045e…0477 at000e = ╱53╱S╱ // 0x46c @0xe
0x045e…0477 at000f = ╱4c╱L╱ // 0x46d @0xf
0x045e…0477 at0010 = ╱55╱U╱ // 0x46e @0x10
0x045e…0477 at0011 = ╱54╱T╱ // 0x46f @0x11
0x045e…0477 at0012 = ╱e4╱ >< ╱ // 0x470 @0x12
0x045e…0477 at0013 = ╱31╱1╱ // 0x471 @0x13
0x045e…0477 at0014 = ╱f20100╱ // 0x472 @0x14
0x045e…0477 at0017 = ╱b5╱ THEN ╱ // 0x475 @0x17
0x045e…0477 at0018 = EOL // 0x476 @0x18
0x045e…0477 }
0x0477…04c2 9ab0 00430 PRINT "Skriv…den…gifte…kvindes…indregnede…restskat…i…" ; F5 - 2 ; "(evt.…0)…" ;
0x0477…04c2 LineComal80 {
0x0477…04c2 ptr = 0x9ab0 // 0x477 @0x0
0x0477…04c2 lno = 0x01ae // 0x479 @0x2
0x0477…04c2 at0004 = ╱92╱ PRINT ╱ // 0x47b @0x4
0x0477…04c2 at0005 = ╱22╱"╱ // 0x47c @0x5
0x0477…04c2 at0006 = ╱53╱S╱ // 0x47d @0x6
0x0477…04c2 at0007 = ╱6b╱k╱ // 0x47e @0x7
0x0477…04c2 at0008 = ╱72╱r╱ // 0x47f @0x8
0x0477…04c2 at0009 = ╱69╱i╱ // 0x480 @0x9
0x0477…04c2 at000a = ╱76╱v╱ // 0x481 @0xa
0x0477…04c2 at000b = ╱20╱…╱ // 0x482 @0xb
0x0477…04c2 at000c = ╱64╱d╱ // 0x483 @0xc
0x0477…04c2 at000d = ╱65╱e╱ // 0x484 @0xd
0x0477…04c2 at000e = ╱6e╱n╱ // 0x485 @0xe
0x0477…04c2 at000f = ╱20╱…╱ // 0x486 @0xf
0x0477…04c2 at0010 = ╱67╱g╱ // 0x487 @0x10
0x0477…04c2 at0011 = ╱69╱i╱ // 0x488 @0x11
0x0477…04c2 at0012 = ╱66╱f╱ // 0x489 @0x12
0x0477…04c2 at0013 = ╱74╱t╱ // 0x48a @0x13
0x0477…04c2 at0014 = ╱65╱e╱ // 0x48b @0x14
0x0477…04c2 at0015 = ╱20╱…╱ // 0x48c @0x15
0x0477…04c2 at0016 = ╱6b╱k╱ // 0x48d @0x16
0x0477…04c2 at0017 = ╱76╱v╱ // 0x48e @0x17
0x0477…04c2 at0018 = ╱69╱i╱ // 0x48f @0x18
0x0477…04c2 at0019 = ╱6e╱n╱ // 0x490 @0x19
0x0477…04c2 at001a = ╱64╱d╱ // 0x491 @0x1a
0x0477…04c2 at001b = ╱65╱e╱ // 0x492 @0x1b
0x0477…04c2 at001c = ╱73╱s╱ // 0x493 @0x1c
0x0477…04c2 at001d = ╱20╱…╱ // 0x494 @0x1d
0x0477…04c2 at001e = ╱69╱i╱ // 0x495 @0x1e
0x0477…04c2 at001f = ╱6e╱n╱ // 0x496 @0x1f
0x0477…04c2 at0020 = ╱64╱d╱ // 0x497 @0x20
0x0477…04c2 at0021 = ╱72╱r╱ // 0x498 @0x21
0x0477…04c2 at0022 = ╱65╱e╱ // 0x499 @0x22
0x0477…04c2 at0023 = ╱67╱g╱ // 0x49a @0x23
0x0477…04c2 at0024 = ╱6e╱n╱ // 0x49b @0x24
0x0477…04c2 at0025 = ╱65╱e╱ // 0x49c @0x25
0x0477…04c2 at0026 = ╱64╱d╱ // 0x49d @0x26
0x0477…04c2 at0027 = ╱65╱e╱ // 0x49e @0x27
0x0477…04c2 at0028 = ╱20╱…╱ // 0x49f @0x28
0x0477…04c2 at0029 = ╱72╱r╱ // 0x4a0 @0x29
0x0477…04c2 at002a = ╱65╱e╱ // 0x4a1 @0x2a
0x0477…04c2 at002b = ╱73╱s╱ // 0x4a2 @0x2b
0x0477…04c2 at002c = ╱74╱t╱ // 0x4a3 @0x2c
0x0477…04c2 at002d = ╱73╱s╱ // 0x4a4 @0x2d
0x0477…04c2 at002e = ╱6b╱k╱ // 0x4a5 @0x2e
0x0477…04c2 at002f = ╱61╱a╱ // 0x4a6 @0x2f
0x0477…04c2 at0030 = ╱74╱t╱ // 0x4a7 @0x30
0x0477…04c2 at0031 = ╱20╱…╱ // 0x4a8 @0x31
0x0477…04c2 at0032 = ╱69╱i╱ // 0x4a9 @0x32
0x0477…04c2 at0033 = ╱20╱…╱ // 0x4aa @0x33
0x0477…04c2 at0034 = ╱22╱"╱ // 0x4ab @0x34
0x0477…04c2 at0035 = ╱ea╱ ; ╱ // 0x4ac @0x35
0x0477…04c2 at0036 = ╱46╱F╱ // 0x4ad @0x36
0x0477…04c2 at0037 = ╱35╱5╱ // 0x4ae @0x37
0x0477…04c2 at0038 = ╱e6╱ - ╱ // 0x4af @0x38
0x0477…04c2 at0039 = ╱32╱2╱ // 0x4b0 @0x39
0x0477…04c2 at003a = ╱f20200╱ // 0x4b1 @0x3a
0x0477…04c2 at003d = ╱ea╱ ; ╱ // 0x4b4 @0x3d
0x0477…04c2 at003e = ╱22╱"╱ // 0x4b5 @0x3e
0x0477…04c2 at003f = ╱28╱(╱ // 0x4b6 @0x3f
0x0477…04c2 at0040 = ╱65╱e╱ // 0x4b7 @0x40
0x0477…04c2 at0041 = ╱76╱v╱ // 0x4b8 @0x41
0x0477…04c2 at0042 = ╱74╱t╱ // 0x4b9 @0x42
0x0477…04c2 at0043 = ╱2e╱.╱ // 0x4ba @0x43
0x0477…04c2 at0044 = ╱20╱…╱ // 0x4bb @0x44
0x0477…04c2 at0045 = ╱30╱0╱ // 0x4bc @0x45
0x0477…04c2 at0046 = ╱29╱)╱ // 0x4bd @0x46
0x0477…04c2 at0047 = ╱20╱…╱ // 0x4be @0x47
0x0477…04c2 at0048 = ╱22╱"╱ // 0x4bf @0x48
0x0477…04c2 at0049 = ╱ea╱ ; ╱ // 0x4c0 @0x49
0x0477…04c2 at004a = EOL // 0x4c1 @0x4a
0x0477…04c2 }
0x04c2…04ca 9ab8 00440 INPUT F2
0x04c2…04ca LineComal80 {
0x04c2…04ca ptr = 0x9ab8 // 0x4c2 @0x0
0x04c2…04ca lno = 0x01b8 // 0x4c4 @0x2
0x04c2…04ca at0004 = ╱91╱ INPUT ╱ // 0x4c6 @0x4
0x04c2…04ca at0005 = ╱46╱F╱ // 0x4c7 @0x5
0x04c2…04ca at0006 = ╱32╱2╱ // 0x4c8 @0x6
0x04c2…04ca at0007 = EOL // 0x4c9 @0x7
0x04c2…04ca }
0x04ca…04d3 9ac1 00450 PRINT LI $
0x04ca…04d3 LineComal80 {
0x04ca…04d3 ptr = 0x9ac1 // 0x4ca @0x0
0x04ca…04d3 lno = 0x01c2 // 0x4cc @0x2
0x04ca…04d3 at0004 = ╱92╱ PRINT ╱ // 0x4ce @0x4
0x04ca…04d3 at0005 = ╱4c╱L╱ // 0x4cf @0x5
0x04ca…04d3 at0006 = ╱49╱I╱ // 0x4d0 @0x6
0x04ca…04d3 at0007 = ╱ef╱ $ ╱ // 0x4d1 @0x7
0x04ca…04d3 at0008 = EOL // 0x4d2 @0x8
0x04ca…04d3 }
0x04d3…04d9 9ac7 00460 ENDIF
0x04d3…04d9 LineComal80 {
0x04d3…04d9 ptr = 0x9ac7 // 0x4d3 @0x0
0x04d3…04d9 lno = 0x01cc // 0x4d5 @0x2
0x04d3…04d9 at0004 = ╱9c╱ ENDIF ╱ // 0x4d7 @0x4
0x04d3…04d9 at0005 = EOL // 0x4d8 @0x5
0x04d3…04d9 }
0x04d9…04df 9acd 00470 ENDIF
0x04d9…04df LineComal80 {
0x04d9…04df ptr = 0x9acd // 0x4d9 @0x0
0x04d9…04df lno = 0x01d6 // 0x4db @0x2
0x04d9…04df at0004 = ╱9c╱ ENDIF ╱ // 0x4dd @0x4
0x04d9…04df at0005 = EOL // 0x4de @0x5
0x04d9…04df }
0x04df…04e5 9ad3 00480 ENDIF
0x04df…04e5 LineComal80 {
0x04df…04e5 ptr = 0x9ad3 // 0x4df @0x0
0x04df…04e5 lno = 0x01e0 // 0x4e1 @0x2
0x04df…04e5 at0004 = ╱9c╱ ENDIF ╱ // 0x4e3 @0x4
0x04df…04e5 at0005 = EOL // 0x4e4 @0x5
0x04df…04e5 }
0x04e5…0501 9aef 00490 LET C7 := INT ( C4 / 100 ) * 100
0x04e5…0501 LineComal80 {
0x04e5…0501 ptr = 0x9aef // 0x4e5 @0x0
0x04e5…0501 lno = 0x01ea // 0x4e7 @0x2
0x04e5…0501 at0004 = ╱86╱ LET ╱ // 0x4e9 @0x4
0x04e5…0501 at0005 = ╱43╱C╱ // 0x4ea @0x5
0x04e5…0501 at0006 = ╱37╱7╱ // 0x4eb @0x6
0x04e5…0501 at0007 = ╱f0╱ := ╱ // 0x4ec @0x7
0x04e5…0501 at0008 = ╱c6╱ INT ╱ // 0x4ed @0x8
0x04e5…0501 at0009 = ╱ed╱ ( ╱ // 0x4ee @0x9
0x04e5…0501 at000a = ╱43╱C╱ // 0x4ef @0xa
0x04e5…0501 at000b = ╱34╱4╱ // 0x4f0 @0xb
0x04e5…0501 at000c = ╱e8╱ / ╱ // 0x4f1 @0xc
0x04e5…0501 at000d = ╱31╱1╱ // 0x4f2 @0xd
0x04e5…0501 at000e = ╱30╱0╱ // 0x4f3 @0xe
0x04e5…0501 at000f = ╱30╱0╱ // 0x4f4 @0xf
0x04e5…0501 at0010 = ╱f26400╱ // 0x4f5 @0x10
0x04e5…0501 at0013 = ╱ee╱ ) ╱ // 0x4f8 @0x13
0x04e5…0501 at0014 = ╱e7╱ * ╱ // 0x4f9 @0x14
0x04e5…0501 at0015 = ╱31╱1╱ // 0x4fa @0x15
0x04e5…0501 at0016 = ╱30╱0╱ // 0x4fb @0x16
0x04e5…0501 at0017 = ╱30╱0╱ // 0x4fc @0x17
0x04e5…0501 at0018 = ╱f26400╱ // 0x4fd @0x18
0x04e5…0501 at001b = EOL // 0x500 @0x1b
0x04e5…0501 }
0x0501…053e 9b2c 00500 LET D6 := HD6 ; D0 := C9 ; AI := B0 ; B6 := B9 ; IR := F1 ; TP := T1 ; TK := TKH ; D6 := D6 - F9 - F6
0x0501…053e LineComal80 {
0x0501…053e ptr = 0x9b2c // 0x501 @0x0
0x0501…053e lno = 0x01f4 // 0x503 @0x2
0x0501…053e at0004 = ╱86╱ LET ╱ // 0x505 @0x4
0x0501…053e at0005 = ╱44╱D╱ // 0x506 @0x5
0x0501…053e at0006 = ╱36╱6╱ // 0x507 @0x6
0x0501…053e at0007 = ╱f0╱ := ╱ // 0x508 @0x7
0x0501…053e at0008 = ╱48╱H╱ // 0x509 @0x8
0x0501…053e at0009 = ╱44╱D╱ // 0x50a @0x9
0x0501…053e at000a = ╱36╱6╱ // 0x50b @0xa
0x0501…053e at000b = ╱ea╱ ; ╱ // 0x50c @0xb
0x0501…053e at000c = ╱44╱D╱ // 0x50d @0xc
0x0501…053e at000d = ╱30╱0╱ // 0x50e @0xd
0x0501…053e at000e = ╱f0╱ := ╱ // 0x50f @0xe
0x0501…053e at000f = ╱43╱C╱ // 0x510 @0xf
0x0501…053e at0010 = ╱39╱9╱ // 0x511 @0x10
0x0501…053e at0011 = ╱ea╱ ; ╱ // 0x512 @0x11
0x0501…053e at0012 = ╱41╱A╱ // 0x513 @0x12
0x0501…053e at0013 = ╱49╱I╱ // 0x514 @0x13
0x0501…053e at0014 = ╱f0╱ := ╱ // 0x515 @0x14
0x0501…053e at0015 = ╱42╱B╱ // 0x516 @0x15
0x0501…053e at0016 = ╱30╱0╱ // 0x517 @0x16
0x0501…053e at0017 = ╱ea╱ ; ╱ // 0x518 @0x17
0x0501…053e at0018 = ╱42╱B╱ // 0x519 @0x18
0x0501…053e at0019 = ╱36╱6╱ // 0x51a @0x19
0x0501…053e at001a = ╱f0╱ := ╱ // 0x51b @0x1a
0x0501…053e at001b = ╱42╱B╱ // 0x51c @0x1b
0x0501…053e at001c = ╱39╱9╱ // 0x51d @0x1c
0x0501…053e at001d = ╱ea╱ ; ╱ // 0x51e @0x1d
0x0501…053e at001e = ╱49╱I╱ // 0x51f @0x1e
0x0501…053e at001f = ╱52╱R╱ // 0x520 @0x1f
0x0501…053e at0020 = ╱f0╱ := ╱ // 0x521 @0x20
0x0501…053e at0021 = ╱46╱F╱ // 0x522 @0x21
0x0501…053e at0022 = ╱31╱1╱ // 0x523 @0x22
0x0501…053e at0023 = ╱ea╱ ; ╱ // 0x524 @0x23
0x0501…053e at0024 = ╱54╱T╱ // 0x525 @0x24
0x0501…053e at0025 = ╱50╱P╱ // 0x526 @0x25
0x0501…053e at0026 = ╱f0╱ := ╱ // 0x527 @0x26
0x0501…053e at0027 = ╱54╱T╱ // 0x528 @0x27
0x0501…053e at0028 = ╱31╱1╱ // 0x529 @0x28
0x0501…053e at0029 = ╱ea╱ ; ╱ // 0x52a @0x29
0x0501…053e at002a = ╱54╱T╱ // 0x52b @0x2a
0x0501…053e at002b = ╱4b╱K╱ // 0x52c @0x2b
0x0501…053e at002c = ╱f0╱ := ╱ // 0x52d @0x2c
0x0501…053e at002d = ╱54╱T╱ // 0x52e @0x2d
0x0501…053e at002e = ╱4b╱K╱ // 0x52f @0x2e
0x0501…053e at002f = ╱48╱H╱ // 0x530 @0x2f
0x0501…053e at0030 = ╱ea╱ ; ╱ // 0x531 @0x30
0x0501…053e at0031 = ╱44╱D╱ // 0x532 @0x31
0x0501…053e at0032 = ╱36╱6╱ // 0x533 @0x32
0x0501…053e at0033 = ╱f0╱ := ╱ // 0x534 @0x33
0x0501…053e at0034 = ╱44╱D╱ // 0x535 @0x34
0x0501…053e at0035 = ╱36╱6╱ // 0x536 @0x35
0x0501…053e at0036 = ╱e6╱ - ╱ // 0x537 @0x36
0x0501…053e at0037 = ╱46╱F╱ // 0x538 @0x37
0x0501…053e at0038 = ╱39╱9╱ // 0x539 @0x38
0x0501…053e at0039 = ╱e6╱ - ╱ // 0x53a @0x39
0x0501…053e at003a = ╱46╱F╱ // 0x53b @0x3a
0x0501…053e at003b = ╱36╱6╱ // 0x53c @0x3b
0x0501…053e at003c = EOL // 0x53d @0x3c
0x0501…053e }
0x053e…054a 9b38 00510 EXEC REGN12
0x053e…054a LineComal80 {
0x053e…054a ptr = 0x9b38 // 0x53e @0x0
0x053e…054a lno = 0x01fe // 0x540 @0x2
0x053e…054a at0004 = ╱9d╱ EXEC ╱ // 0x542 @0x4
0x053e…054a at0005 = ╱52╱R╱ // 0x543 @0x5
0x053e…054a at0006 = ╱45╱E╱ // 0x544 @0x6
0x053e…054a at0007 = ╱47╱G╱ // 0x545 @0x7
0x053e…054a at0008 = ╱4e╱N╱ // 0x546 @0x8
0x053e…054a at0009 = ╱31╱1╱ // 0x547 @0x9
0x053e…054a at000a = ╱32╱2╱ // 0x548 @0xa
0x053e…054a at000b = EOL // 0x549 @0xb
0x053e…054a }
0x054a…0563 9b51 00520 IF = 1 AND FSLUT = 1 THEN
0x054a…0563 LineComal80 {
0x054a…0563 ptr = 0x9b51 // 0x54a @0x0
0x054a…0563 lno = 0x0208 // 0x54c @0x2
0x054a…0563 at0004 = ╱9b0047╱ IF ╱ // 0x54e @0x4
0x054a…0563 at0007 = ╱df╱ = ╱ // 0x551 @0x7
0x054a…0563 at0008 = ╱31╱1╱ // 0x552 @0x8
0x054a…0563 at0009 = ╱f20100╱ // 0x553 @0x9
0x054a…0563 at000c = ╱d9╱ AND ╱ // 0x556 @0xc
0x054a…0563 at000d = ╱46╱F╱ // 0x557 @0xd
0x054a…0563 at000e = ╱53╱S╱ // 0x558 @0xe
0x054a…0563 at000f = ╱4c╱L╱ // 0x559 @0xf
0x054a…0563 at0010 = ╱55╱U╱ // 0x55a @0x10
0x054a…0563 at0011 = ╱54╱T╱ // 0x55b @0x11
0x054a…0563 at0012 = ╱df╱ = ╱ // 0x55c @0x12
0x054a…0563 at0013 = ╱31╱1╱ // 0x55d @0x13
0x054a…0563 at0014 = ╱f20100╱ // 0x55e @0x14
0x054a…0563 at0017 = ╱b5╱ THEN ╱ // 0x561 @0x17
0x054a…0563 at0018 = EOL // 0x562 @0x18
0x054a…0563 }
0x0563…0591 9b7f 00530 LET Z := ZH ; J $ := HJ $ ; AIH := HAIH ; ASQ := HASQ ; BSKF := HBSKF
0x0563…0591 LineComal80 {
0x0563…0591 ptr = 0x9b7f // 0x563 @0x0
0x0563…0591 lno = 0x0212 // 0x565 @0x2
0x0563…0591 at0004 = ╱86╱ LET ╱ // 0x567 @0x4
0x0563…0591 at0005 = ╱5a╱Z╱ // 0x568 @0x5
0x0563…0591 at0006 = ╱f0╱ := ╱ // 0x569 @0x6
0x0563…0591 at0007 = ╱5a╱Z╱ // 0x56a @0x7
0x0563…0591 at0008 = ╱48╱H╱ // 0x56b @0x8
0x0563…0591 at0009 = ╱ea╱ ; ╱ // 0x56c @0x9
0x0563…0591 at000a = ╱4a╱J╱ // 0x56d @0xa
0x0563…0591 at000b = ╱ef╱ $ ╱ // 0x56e @0xb
0x0563…0591 at000c = ╱f0╱ := ╱ // 0x56f @0xc
0x0563…0591 at000d = ╱48╱H╱ // 0x570 @0xd
0x0563…0591 at000e = ╱4a╱J╱ // 0x571 @0xe
0x0563…0591 at000f = ╱ef╱ $ ╱ // 0x572 @0xf
0x0563…0591 at0010 = ╱ea╱ ; ╱ // 0x573 @0x10
0x0563…0591 at0011 = ╱41╱A╱ // 0x574 @0x11
0x0563…0591 at0012 = ╱49╱I╱ // 0x575 @0x12
0x0563…0591 at0013 = ╱48╱H╱ // 0x576 @0x13
0x0563…0591 at0014 = ╱f0╱ := ╱ // 0x577 @0x14
0x0563…0591 at0015 = ╱48╱H╱ // 0x578 @0x15
0x0563…0591 at0016 = ╱41╱A╱ // 0x579 @0x16
0x0563…0591 at0017 = ╱49╱I╱ // 0x57a @0x17
0x0563…0591 at0018 = ╱48╱H╱ // 0x57b @0x18
0x0563…0591 at0019 = ╱ea╱ ; ╱ // 0x57c @0x19
0x0563…0591 at001a = ╱41╱A╱ // 0x57d @0x1a
0x0563…0591 at001b = ╱53╱S╱ // 0x57e @0x1b
0x0563…0591 at001c = ╱51╱Q╱ // 0x57f @0x1c
0x0563…0591 at001d = ╱f0╱ := ╱ // 0x580 @0x1d
0x0563…0591 at001e = ╱48╱H╱ // 0x581 @0x1e
0x0563…0591 at001f = ╱41╱A╱ // 0x582 @0x1f
0x0563…0591 at0020 = ╱53╱S╱ // 0x583 @0x20
0x0563…0591 at0021 = ╱51╱Q╱ // 0x584 @0x21
0x0563…0591 at0022 = ╱ea╱ ; ╱ // 0x585 @0x22
0x0563…0591 at0023 = ╱42╱B╱ // 0x586 @0x23
0x0563…0591 at0024 = ╱53╱S╱ // 0x587 @0x24
0x0563…0591 at0025 = ╱4b╱K╱ // 0x588 @0x25
0x0563…0591 at0026 = ╱46╱F╱ // 0x589 @0x26
0x0563…0591 at0027 = ╱f0╱ := ╱ // 0x58a @0x27
0x0563…0591 at0028 = ╱48╱H╱ // 0x58b @0x28
0x0563…0591 at0029 = ╱42╱B╱ // 0x58c @0x29
0x0563…0591 at002a = ╱53╱S╱ // 0x58d @0x2a
0x0563…0591 at002b = ╱4b╱K╱ // 0x58e @0x2b
0x0563…0591 at002c = ╱46╱F╱ // 0x58f @0x2c
0x0563…0591 at002d = EOL // 0x590 @0x2d
0x0563…0591 }
0x0591…0598 9b86 00540 ELSE
0x0591…0598 LineComal80 {
0x0591…0598 ptr = 0x9b86 // 0x591 @0x0
0x0591…0598 lno = 0x021c // 0x593 @0x2
0x0591…0598 at0004 = ╱9a00╱ ELSE ╱ // 0x595 @0x4
0x0591…0598 at0006 = EOL // 0x597 @0x6
0x0591…0598 }
0x0598…059e 9b8c 00550 CLEAR
0x0598…059e LineComal80 {
0x0598…059e ptr = 0x9b8c // 0x598 @0x0
0x0598…059e lno = 0x0226 // 0x59a @0x2
0x0598…059e at0004 = ╱a0╱ CLEAR ╱ // 0x59c @0x4
0x0598…059e at0005 = EOL // 0x59d @0x5
0x0598…059e }
0x059e…05b7 9ba5 00560 LET FIL $ := "dde:skatdath"
0x059e…05b7 LineComal80 {
0x059e…05b7 ptr = 0x9ba5 // 0x59e @0x0
0x059e…05b7 lno = 0x0230 // 0x5a0 @0x2
0x059e…05b7 at0004 = ╱86╱ LET ╱ // 0x5a2 @0x4
0x059e…05b7 at0005 = ╱46╱F╱ // 0x5a3 @0x5
0x059e…05b7 at0006 = ╱49╱I╱ // 0x5a4 @0x6
0x059e…05b7 at0007 = ╱4c╱L╱ // 0x5a5 @0x7
0x059e…05b7 at0008 = ╱ef╱ $ ╱ // 0x5a6 @0x8
0x059e…05b7 at0009 = ╱f0╱ := ╱ // 0x5a7 @0x9
0x059e…05b7 at000a = ╱22╱"╱ // 0x5a8 @0xa
0x059e…05b7 at000b = ╱64╱d╱ // 0x5a9 @0xb
0x059e…05b7 at000c = ╱64╱d╱ // 0x5aa @0xc
0x059e…05b7 at000d = ╱65╱e╱ // 0x5ab @0xd
0x059e…05b7 at000e = ╱3a╱:╱ // 0x5ac @0xe
0x059e…05b7 at000f = ╱73╱s╱ // 0x5ad @0xf
0x059e…05b7 at0010 = ╱6b╱k╱ // 0x5ae @0x10
0x059e…05b7 at0011 = ╱61╱a╱ // 0x5af @0x11
0x059e…05b7 at0012 = ╱74╱t╱ // 0x5b0 @0x12
0x059e…05b7 at0013 = ╱64╱d╱ // 0x5b1 @0x13
0x059e…05b7 at0014 = ╱61╱a╱ // 0x5b2 @0x14
0x059e…05b7 at0015 = ╱74╱t╱ // 0x5b3 @0x15
0x059e…05b7 at0016 = ╱68╱h╱ // 0x5b4 @0x16
0x059e…05b7 at0017 = ╱22╱"╱ // 0x5b5 @0x17
0x059e…05b7 at0018 = EOL // 0x5b6 @0x18
0x059e…05b7 }
0x05b7…05c3 (19,) 9bb1 00570 OPEN FIL $ , R
0x05b7…05c3 LineComal80 {
0x05b7…05c3 ptr = 0x9bb1 // 0x5b7 @0x0
0x05b7…05c3 lno = 0x023a // 0x5b9 @0x2
0x05b7…05c3 at0004 = ╱a7╱ OPEN ╱ // 0x5bb @0x4
0x05b7…05c3 at0005 = ╱46╱F╱ // 0x5bc @0x5
0x05b7…05c3 at0006 = ╱49╱I╱ // 0x5bd @0x6
0x05b7…05c3 at0007 = ╱4c╱L╱ // 0x5be @0x7
0x05b7…05c3 at0008 = ╱ef╱ $ ╱ // 0x5bf @0x8
0x05b7…05c3 at0009 = ╱ec╱ , ╱ // 0x5c0 @0x9
0x05b7…05c3 at000a = ╱52╱R╱ // 0x5c1 @0xa
0x05b7…05c3 at000b = EOL // 0x5c2 @0xb
0x05b7…05c3 }
0x05c3…05cf 9bbd 00580 EXEC L[SFIL
0x05c3…05cf LineComal80 {
0x05c3…05cf ptr = 0x9bbd // 0x5c3 @0x0
0x05c3…05cf lno = 0x0244 // 0x5c5 @0x2
0x05c3…05cf at0004 = ╱9d╱ EXEC ╱ // 0x5c7 @0x4
0x05c3…05cf at0005 = ╱4c╱L╱ // 0x5c8 @0x5
0x05c3…05cf at0006 = ╱5b╱[╱ // 0x5c9 @0x6
0x05c3…05cf at0007 = ╱53╱S╱ // 0x5ca @0x7
0x05c3…05cf at0008 = ╱46╱F╱ // 0x5cb @0x8
0x05c3…05cf at0009 = ╱49╱I╱ // 0x5cc @0x9
0x05c3…05cf at000a = ╱4c╱L╱ // 0x5cd @0xa
0x05c3…05cf at000b = EOL // 0x5ce @0xb
0x05c3…05cf }
0x05cf…05d9 9bc7 00590 LET ZH := Z
0x05cf…05d9 LineComal80 {
0x05cf…05d9 ptr = 0x9bc7 // 0x5cf @0x0
0x05cf…05d9 lno = 0x024e // 0x5d1 @0x2
0x05cf…05d9 at0004 = ╱86╱ LET ╱ // 0x5d3 @0x4
0x05cf…05d9 at0005 = ╱5a╱Z╱ // 0x5d4 @0x5
0x05cf…05d9 at0006 = ╱48╱H╱ // 0x5d5 @0x6
0x05cf…05d9 at0007 = ╱f0╱ := ╱ // 0x5d6 @0x7
0x05cf…05d9 at0008 = ╱5a╱Z╱ // 0x5d7 @0x8
0x05cf…05d9 at0009 = EOL // 0x5d8 @0x9
0x05cf…05d9 }
0x05d9…05df 9bcd 00600 ENDIF
0x05d9…05df LineComal80 {
0x05d9…05df ptr = 0x9bcd // 0x5d9 @0x0
0x05d9…05df lno = 0x0258 // 0x5db @0x2
0x05d9…05df at0004 = ╱9c╱ ENDIF ╱ // 0x5dd @0x4
0x05d9…05df at0005 = EOL // 0x5de @0x5
0x05d9…05df }
0x05df…05ed 9bdb 00610 IF > 0 THEN
0x05df…05ed LineComal80 {
0x05df…05ed ptr = 0x9bdb // 0x5df @0x0
0x05df…05ed lno = 0x0262 // 0x5e1 @0x2
0x05df…05ed at0004 = ╱9b005a╱ IF ╱ // 0x5e3 @0x4
0x05df…05ed at0007 = ╱e1╱ > ╱ // 0x5e6 @0x7
0x05df…05ed at0008 = ╱30╱0╱ // 0x5e7 @0x8
0x05df…05ed at0009 = ╱f20000╱ // 0x5e8 @0x9
0x05df…05ed at000c = ╱b5╱ THEN ╱ // 0x5eb @0xc
0x05df…05ed at000d = EOL // 0x5ec @0xd
0x05df…05ed }
0x05ed…05fb 9be9 00620 EXEC INDASKAT
0x05ed…05fb LineComal80 {
0x05ed…05fb ptr = 0x9be9 // 0x5ed @0x0
0x05ed…05fb lno = 0x026c // 0x5ef @0x2
0x05ed…05fb at0004 = ╱9d╱ EXEC ╱ // 0x5f1 @0x4
0x05ed…05fb at0005 = ╱49╱I╱ // 0x5f2 @0x5
0x05ed…05fb at0006 = ╱4e╱N╱ // 0x5f3 @0x6
0x05ed…05fb at0007 = ╱44╱D╱ // 0x5f4 @0x7
0x05ed…05fb at0008 = ╱41╱A╱ // 0x5f5 @0x8
0x05ed…05fb at0009 = ╱53╱S╱ // 0x5f6 @0x9
0x05ed…05fb at000a = ╱4b╱K╱ // 0x5f7 @0xa
0x05ed…05fb at000b = ╱41╱A╱ // 0x5f8 @0xb
0x05ed…05fb at000c = ╱54╱T╱ // 0x5f9 @0xc
0x05ed…05fb at000d = EOL // 0x5fa @0xd
0x05ed…05fb }
0x05fb…0624 9c12 00630 LET HJ $ := J $ ; HAIH := AIH ; HASQ := ASQ ; HBSKF := BSKF
0x05fb…0624 LineComal80 {
0x05fb…0624 ptr = 0x9c12 // 0x5fb @0x0
0x05fb…0624 lno = 0x0276 // 0x5fd @0x2
0x05fb…0624 at0004 = ╱86╱ LET ╱ // 0x5ff @0x4
0x05fb…0624 at0005 = ╱48╱H╱ // 0x600 @0x5
0x05fb…0624 at0006 = ╱4a╱J╱ // 0x601 @0x6
0x05fb…0624 at0007 = ╱ef╱ $ ╱ // 0x602 @0x7
0x05fb…0624 at0008 = ╱f0╱ := ╱ // 0x603 @0x8
0x05fb…0624 at0009 = ╱4a╱J╱ // 0x604 @0x9
0x05fb…0624 at000a = ╱ef╱ $ ╱ // 0x605 @0xa
0x05fb…0624 at000b = ╱ea╱ ; ╱ // 0x606 @0xb
0x05fb…0624 at000c = ╱48╱H╱ // 0x607 @0xc
0x05fb…0624 at000d = ╱41╱A╱ // 0x608 @0xd
0x05fb…0624 at000e = ╱49╱I╱ // 0x609 @0xe
0x05fb…0624 at000f = ╱48╱H╱ // 0x60a @0xf
0x05fb…0624 at0010 = ╱f0╱ := ╱ // 0x60b @0x10
0x05fb…0624 at0011 = ╱41╱A╱ // 0x60c @0x11
0x05fb…0624 at0012 = ╱49╱I╱ // 0x60d @0x12
0x05fb…0624 at0013 = ╱48╱H╱ // 0x60e @0x13
0x05fb…0624 at0014 = ╱ea╱ ; ╱ // 0x60f @0x14
0x05fb…0624 at0015 = ╱48╱H╱ // 0x610 @0x15
0x05fb…0624 at0016 = ╱41╱A╱ // 0x611 @0x16
0x05fb…0624 at0017 = ╱53╱S╱ // 0x612 @0x17
0x05fb…0624 at0018 = ╱51╱Q╱ // 0x613 @0x18
0x05fb…0624 at0019 = ╱f0╱ := ╱ // 0x614 @0x19
0x05fb…0624 at001a = ╱41╱A╱ // 0x615 @0x1a
0x05fb…0624 at001b = ╱53╱S╱ // 0x616 @0x1b
0x05fb…0624 at001c = ╱51╱Q╱ // 0x617 @0x1c
0x05fb…0624 at001d = ╱ea╱ ; ╱ // 0x618 @0x1d
0x05fb…0624 at001e = ╱48╱H╱ // 0x619 @0x1e
0x05fb…0624 at001f = ╱42╱B╱ // 0x61a @0x1f
0x05fb…0624 at0020 = ╱53╱S╱ // 0x61b @0x20
0x05fb…0624 at0021 = ╱4b╱K╱ // 0x61c @0x21
0x05fb…0624 at0022 = ╱46╱F╱ // 0x61d @0x22
0x05fb…0624 at0023 = ╱f0╱ := ╱ // 0x61e @0x23
0x05fb…0624 at0024 = ╱42╱B╱ // 0x61f @0x24
0x05fb…0624 at0025 = ╱53╱S╱ // 0x620 @0x25
0x05fb…0624 at0026 = ╱4b╱K╱ // 0x621 @0x26
0x05fb…0624 at0027 = ╱46╱F╱ // 0x622 @0x27
0x05fb…0624 at0028 = EOL // 0x623 @0x28
0x05fb…0624 }
0x0624…062a 9c18 00640 ENDIF
0x0624…062a LineComal80 {
0x0624…062a ptr = 0x9c18 // 0x624 @0x0
0x0624…062a lno = 0x0280 // 0x626 @0x2
0x0624…062a at0004 = ╱9c╱ ENDIF ╱ // 0x628 @0x4
0x0624…062a at0005 = EOL // 0x629 @0x5
0x0624…062a }
0x062a…0639 9c27 00650 IF I = 0 THEN
0x062a…0639 LineComal80 {
0x062a…0639 ptr = 0x9c27 // 0x62a @0x0
0x062a…0639 lno = 0x028a // 0x62c @0x2
0x062a…0639 at0004 = ╱9b0041╱ IF ╱ // 0x62e @0x4
0x062a…0639 at0007 = ╱49╱I╱ // 0x631 @0x7
0x062a…0639 at0008 = ╱df╱ = ╱ // 0x632 @0x8
0x062a…0639 at0009 = ╱30╱0╱ // 0x633 @0x9
0x062a…0639 at000a = ╱f20000╱ // 0x634 @0xa
0x062a…0639 at000d = ╱b5╱ THEN ╱ // 0x637 @0xd
0x062a…0639 at000e = EOL // 0x638 @0xe
0x062a…0639 }
0x0639…0645 9c33 00660 EXEC REGN13
0x0639…0645 LineComal80 {
0x0639…0645 ptr = 0x9c33 // 0x639 @0x0
0x0639…0645 lno = 0x0294 // 0x63b @0x2
0x0639…0645 at0004 = ╱9d╱ EXEC ╱ // 0x63d @0x4
0x0639…0645 at0005 = ╱52╱R╱ // 0x63e @0x5
0x0639…0645 at0006 = ╱45╱E╱ // 0x63f @0x6
0x0639…0645 at0007 = ╱47╱G╱ // 0x640 @0x7
0x0639…0645 at0008 = ╱4e╱N╱ // 0x641 @0x8
0x0639…0645 at0009 = ╱31╱1╱ // 0x642 @0x9
0x0639…0645 at000a = ╱33╱3╱ // 0x643 @0xa
0x0639…0645 at000b = EOL // 0x644 @0xb
0x0639…0645 }
0x0645…064c 9c3a 00670 ELSE
0x0645…064c LineComal80 {
0x0645…064c ptr = 0x9c3a // 0x645 @0x0
0x0645…064c lno = 0x029e // 0x647 @0x2
0x0645…064c at0004 = ╱9a00╱ ELSE ╱ // 0x649 @0x4
0x0645…064c at0006 = EOL // 0x64b @0x6
0x0645…064c }
0x064c…065d 9c4b 00680 IF 6 < 100 THEN
0x064c…065d LineComal80 {
0x064c…065d ptr = 0x9c4b // 0x64c @0x0
0x064c…065d lno = 0x02a8 // 0x64e @0x2
0x064c…065d at0004 = ╱9b0044╱ IF ╱ // 0x650 @0x4
0x064c…065d at0007 = ╱36╱6╱ // 0x653 @0x7
0x064c…065d at0008 = ╱e0╱ < ╱ // 0x654 @0x8
0x064c…065d at0009 = ╱31╱1╱ // 0x655 @0x9
0x064c…065d at000a = ╱30╱0╱ // 0x656 @0xa
0x064c…065d at000b = ╱30╱0╱ // 0x657 @0xb
0x064c…065d at000c = ╱f26400╱ // 0x658 @0xc
0x064c…065d at000f = ╱b5╱ THEN ╱ // 0x65b @0xf
0x064c…065d at0010 = EOL // 0x65c @0x10
0x064c…065d }
0x065d…0669 9c57 00690 EXEC REGN14
0x065d…0669 LineComal80 {
0x065d…0669 ptr = 0x9c57 // 0x65d @0x0
0x065d…0669 lno = 0x02b2 // 0x65f @0x2
0x065d…0669 at0004 = ╱9d╱ EXEC ╱ // 0x661 @0x4
0x065d…0669 at0005 = ╱52╱R╱ // 0x662 @0x5
0x065d…0669 at0006 = ╱45╱E╱ // 0x663 @0x6
0x065d…0669 at0007 = ╱47╱G╱ // 0x664 @0x7
0x065d…0669 at0008 = ╱4e╱N╱ // 0x665 @0x8
0x065d…0669 at0009 = ╱31╱1╱ // 0x666 @0x9
0x065d…0669 at000a = ╱34╱4╱ // 0x667 @0xa
0x065d…0669 at000b = EOL // 0x668 @0xb
0x065d…0669 }
0x0669…0670 9c5e 00700 ELSE
0x0669…0670 LineComal80 {
0x0669…0670 ptr = 0x9c5e // 0x669 @0x0
0x0669…0670 lno = 0x02bc // 0x66b @0x2
0x0669…0670 at0004 = ╱9a00╱ ELSE ╱ // 0x66d @0x4
0x0669…0670 at0006 = EOL // 0x66f @0x6
0x0669…0670 }
0x0670…06ac 9c9a 00710 IF T2 = 1 AND T0 = 2 AND B2 > 0 THEN LET D0 := AR ; C7 := INT ( B1 / 100 ) * 100
0x0670…06ac LineComal80 {
0x0670…06ac ptr = 0x9c9a // 0x670 @0x0
0x0670…06ac lno = 0x02c6 // 0x672 @0x2
0x0670…06ac at0004 = ╱8200╱ IF ╱ // 0x674 @0x4
0x0670…06ac at0006 = ╱54╱T╱ // 0x676 @0x6
0x0670…06ac at0007 = ╱32╱2╱ // 0x677 @0x7
0x0670…06ac at0008 = ╱df╱ = ╱ // 0x678 @0x8
0x0670…06ac at0009 = ╱31╱1╱ // 0x679 @0x9
0x0670…06ac at000a = ╱f20100╱ // 0x67a @0xa
0x0670…06ac at000d = ╱d9╱ AND ╱ // 0x67d @0xd
0x0670…06ac at000e = ╱54╱T╱ // 0x67e @0xe
0x0670…06ac at000f = ╱30╱0╱ // 0x67f @0xf
0x0670…06ac at0010 = ╱df╱ = ╱ // 0x680 @0x10
0x0670…06ac at0011 = ╱32╱2╱ // 0x681 @0x11
0x0670…06ac at0012 = ╱f20200╱ // 0x682 @0x12
0x0670…06ac at0015 = ╱d9╱ AND ╱ // 0x685 @0x15
0x0670…06ac at0016 = ╱42╱B╱ // 0x686 @0x16
0x0670…06ac at0017 = ╱32╱2╱ // 0x687 @0x17
0x0670…06ac at0018 = ╱e1╱ > ╱ // 0x688 @0x18
0x0670…06ac at0019 = ╱30╱0╱ // 0x689 @0x19
0x0670…06ac at001a = ╱f20000╱ // 0x68a @0x1a
0x0670…06ac at001d = ╱b5╱ THEN ╱ // 0x68d @0x1d
0x0670…06ac at001e = ╱86╱ LET ╱ // 0x68e @0x1e
0x0670…06ac at001f = ╱44╱D╱ // 0x68f @0x1f
0x0670…06ac at0020 = ╱30╱0╱ // 0x690 @0x20
0x0670…06ac at0021 = ╱f0╱ := ╱ // 0x691 @0x21
0x0670…06ac at0022 = ╱41╱A╱ // 0x692 @0x22
0x0670…06ac at0023 = ╱52╱R╱ // 0x693 @0x23
0x0670…06ac at0024 = ╱ea╱ ; ╱ // 0x694 @0x24
0x0670…06ac at0025 = ╱43╱C╱ // 0x695 @0x25
0x0670…06ac at0026 = ╱37╱7╱ // 0x696 @0x26
0x0670…06ac at0027 = ╱f0╱ := ╱ // 0x697 @0x27
0x0670…06ac at0028 = ╱c6╱ INT ╱ // 0x698 @0x28
0x0670…06ac at0029 = ╱ed╱ ( ╱ // 0x699 @0x29
0x0670…06ac at002a = ╱42╱B╱ // 0x69a @0x2a
0x0670…06ac at002b = ╱31╱1╱ // 0x69b @0x2b
0x0670…06ac at002c = ╱e8╱ / ╱ // 0x69c @0x2c
0x0670…06ac at002d = ╱31╱1╱ // 0x69d @0x2d
0x0670…06ac at002e = ╱30╱0╱ // 0x69e @0x2e
0x0670…06ac at002f = ╱30╱0╱ // 0x69f @0x2f
0x0670…06ac at0030 = ╱f26400╱ // 0x6a0 @0x30
0x0670…06ac at0033 = ╱ee╱ ) ╱ // 0x6a3 @0x33
0x0670…06ac at0034 = ╱e7╱ * ╱ // 0x6a4 @0x34
0x0670…06ac at0035 = ╱31╱1╱ // 0x6a5 @0x35
0x0670…06ac at0036 = ╱30╱0╱ // 0x6a6 @0x36
0x0670…06ac at0037 = ╱30╱0╱ // 0x6a7 @0x37
0x0670…06ac at0038 = ╱f26400╱ // 0x6a8 @0x38
0x0670…06ac at003b = EOL // 0x6ab @0x3b
0x0670…06ac }
0x06ac…06b8 9ca6 00720 EXEC REGN15
0x06ac…06b8 LineComal80 {
0x06ac…06b8 ptr = 0x9ca6 // 0x6ac @0x0
0x06ac…06b8 lno = 0x02d0 // 0x6ae @0x2
0x06ac…06b8 at0004 = ╱9d╱ EXEC ╱ // 0x6b0 @0x4
0x06ac…06b8 at0005 = ╱52╱R╱ // 0x6b1 @0x5
0x06ac…06b8 at0006 = ╱45╱E╱ // 0x6b2 @0x6
0x06ac…06b8 at0007 = ╱47╱G╱ // 0x6b3 @0x7
0x06ac…06b8 at0008 = ╱4e╱N╱ // 0x6b4 @0x8
0x06ac…06b8 at0009 = ╱31╱1╱ // 0x6b5 @0x9
0x06ac…06b8 at000a = ╱35╱5╱ // 0x6b6 @0xa
0x06ac…06b8 at000b = EOL // 0x6b7 @0xb
0x06ac…06b8 }
0x06b8…06c4 9cb2 00730 EXEC REGN16
0x06b8…06c4 LineComal80 {
0x06b8…06c4 ptr = 0x9cb2 // 0x6b8 @0x0
0x06b8…06c4 lno = 0x02da // 0x6ba @0x2
0x06b8…06c4 at0004 = ╱9d╱ EXEC ╱ // 0x6bc @0x4
0x06b8…06c4 at0005 = ╱52╱R╱ // 0x6bd @0x5
0x06b8…06c4 at0006 = ╱45╱E╱ // 0x6be @0x6
0x06b8…06c4 at0007 = ╱47╱G╱ // 0x6bf @0x7
0x06b8…06c4 at0008 = ╱4e╱N╱ // 0x6c0 @0x8
0x06b8…06c4 at0009 = ╱31╱1╱ // 0x6c1 @0x9
0x06b8…06c4 at000a = ╱36╱6╱ // 0x6c2 @0xa
0x06b8…06c4 at000b = EOL // 0x6c3 @0xb
0x06b8…06c4 }
0x06c4…06dd 9ccb 00740 IF INT ( FR ) > 0 THEN EXEC REGN11
0x06c4…06dd LineComal80 {
0x06c4…06dd ptr = 0x9ccb // 0x6c4 @0x0
0x06c4…06dd lno = 0x02e4 // 0x6c6 @0x2
0x06c4…06dd at0004 = ╱8200╱ IF ╱ // 0x6c8 @0x4
0x06c4…06dd at0006 = ╱c6╱ INT ╱ // 0x6ca @0x6
0x06c4…06dd at0007 = ╱ed╱ ( ╱ // 0x6cb @0x7
0x06c4…06dd at0008 = ╱46╱F╱ // 0x6cc @0x8
0x06c4…06dd at0009 = ╱52╱R╱ // 0x6cd @0x9
0x06c4…06dd at000a = ╱ee╱ ) ╱ // 0x6ce @0xa
0x06c4…06dd at000b = ╱e1╱ > ╱ // 0x6cf @0xb
0x06c4…06dd at000c = ╱30╱0╱ // 0x6d0 @0xc
0x06c4…06dd at000d = ╱f20000╱ // 0x6d1 @0xd
0x06c4…06dd at0010 = ╱b5╱ THEN ╱ // 0x6d4 @0x10
0x06c4…06dd at0011 = ╱9d╱ EXEC ╱ // 0x6d5 @0x11
0x06c4…06dd at0012 = ╱52╱R╱ // 0x6d6 @0x12
0x06c4…06dd at0013 = ╱45╱E╱ // 0x6d7 @0x13
0x06c4…06dd at0014 = ╱47╱G╱ // 0x6d8 @0x14
0x06c4…06dd at0015 = ╱4e╱N╱ // 0x6d9 @0x15
0x06c4…06dd at0016 = ╱31╱1╱ // 0x6da @0x16
0x06c4…06dd at0017 = ╱31╱1╱ // 0x6db @0x17
0x06c4…06dd at0018 = EOL // 0x6dc @0x18
0x06c4…06dd }
0x06dd…06e3 9cd1 00750 ENDIF
0x06dd…06e3 LineComal80 {
0x06dd…06e3 ptr = 0x9cd1 // 0x6dd @0x0
0x06dd…06e3 lno = 0x02ee // 0x6df @0x2
0x06dd…06e3 at0004 = ╱9c╱ ENDIF ╱ // 0x6e1 @0x4
0x06dd…06e3 at0005 = EOL // 0x6e2 @0x5
0x06dd…06e3 }
0x06e3…06ef 9cdd 00760 EXEC REGN17
0x06e3…06ef LineComal80 {
0x06e3…06ef ptr = 0x9cdd // 0x6e3 @0x0
0x06e3…06ef lno = 0x02f8 // 0x6e5 @0x2
0x06e3…06ef at0004 = ╱9d╱ EXEC ╱ // 0x6e7 @0x4
0x06e3…06ef at0005 = ╱52╱R╱ // 0x6e8 @0x5
0x06e3…06ef at0006 = ╱45╱E╱ // 0x6e9 @0x6
0x06e3…06ef at0007 = ╱47╱G╱ // 0x6ea @0x7
0x06e3…06ef at0008 = ╱4e╱N╱ // 0x6eb @0x8
0x06e3…06ef at0009 = ╱31╱1╱ // 0x6ec @0x9
0x06e3…06ef at000a = ╱37╱7╱ // 0x6ed @0xa
0x06e3…06ef at000b = EOL // 0x6ee @0xb
0x06e3…06ef }
0x06ef…06f5 9ce3 00770 ENDIF
0x06ef…06f5 LineComal80 {
0x06ef…06f5 ptr = 0x9ce3 // 0x6ef @0x0
0x06ef…06f5 lno = 0x0302 // 0x6f1 @0x2
0x06ef…06f5 at0004 = ╱9c╱ ENDIF ╱ // 0x6f3 @0x4
0x06ef…06f5 at0005 = EOL // 0x6f4 @0x5
0x06ef…06f5 }
0x06f5…0720 9d0e 00780 LET QT $ := "FORSKUDSOPG\RELSE…FOR…" + HKL $ + ":"
0x06f5…0720 LineComal80 {
0x06f5…0720 ptr = 0x9d0e // 0x6f5 @0x0
0x06f5…0720 lno = 0x030c // 0x6f7 @0x2
0x06f5…0720 at0004 = ╱86╱ LET ╱ // 0x6f9 @0x4
0x06f5…0720 at0005 = ╱51╱Q╱ // 0x6fa @0x5
0x06f5…0720 at0006 = ╱54╱T╱ // 0x6fb @0x6
0x06f5…0720 at0007 = ╱ef╱ $ ╱ // 0x6fc @0x7
0x06f5…0720 at0008 = ╱f0╱ := ╱ // 0x6fd @0x8
0x06f5…0720 at0009 = ╱22╱"╱ // 0x6fe @0x9
0x06f5…0720 at000a = ╱46╱F╱ // 0x6ff @0xa
0x06f5…0720 at000b = ╱4f╱O╱ // 0x700 @0xb
0x06f5…0720 at000c = ╱52╱R╱ // 0x701 @0xc
0x06f5…0720 at000d = ╱53╱S╱ // 0x702 @0xd
0x06f5…0720 at000e = ╱4b╱K╱ // 0x703 @0xe
0x06f5…0720 at000f = ╱55╱U╱ // 0x704 @0xf
0x06f5…0720 at0010 = ╱44╱D╱ // 0x705 @0x10
0x06f5…0720 at0011 = ╱53╱S╱ // 0x706 @0x11
0x06f5…0720 at0012 = ╱4f╱O╱ // 0x707 @0x12
0x06f5…0720 at0013 = ╱50╱P╱ // 0x708 @0x13
0x06f5…0720 at0014 = ╱47╱G╱ // 0x709 @0x14
0x06f5…0720 at0015 = ╱5c╱\╱ // 0x70a @0x15
0x06f5…0720 at0016 = ╱52╱R╱ // 0x70b @0x16
0x06f5…0720 at0017 = ╱45╱E╱ // 0x70c @0x17
0x06f5…0720 at0018 = ╱4c╱L╱ // 0x70d @0x18
0x06f5…0720 at0019 = ╱53╱S╱ // 0x70e @0x19
0x06f5…0720 at001a = ╱45╱E╱ // 0x70f @0x1a
0x06f5…0720 at001b = ╱20╱…╱ // 0x710 @0x1b
0x06f5…0720 at001c = ╱46╱F╱ // 0x711 @0x1c
0x06f5…0720 at001d = ╱4f╱O╱ // 0x712 @0x1d
0x06f5…0720 at001e = ╱52╱R╱ // 0x713 @0x1e
0x06f5…0720 at001f = ╱20╱…╱ // 0x714 @0x1f
0x06f5…0720 at0020 = ╱22╱"╱ // 0x715 @0x20
0x06f5…0720 at0021 = ╱eb╱ + ╱ // 0x716 @0x21
0x06f5…0720 at0022 = ╱48╱H╱ // 0x717 @0x22
0x06f5…0720 at0023 = ╱4b╱K╱ // 0x718 @0x23
0x06f5…0720 at0024 = ╱4c╱L╱ // 0x719 @0x24
0x06f5…0720 at0025 = ╱ef╱ $ ╱ // 0x71a @0x25
0x06f5…0720 at0026 = ╱eb╱ + ╱ // 0x71b @0x26
0x06f5…0720 at0027 = ╱22╱"╱ // 0x71c @0x27
0x06f5…0720 at0028 = ╱3a╱:╱ // 0x71d @0x28
0x06f5…0720 at0029 = ╱22╱"╱ // 0x71e @0x29
0x06f5…0720 at002a = EOL // 0x71f @0x2a
0x06f5…0720 }
0x0720…072d 9d1b 00790 EXEC [NDFORS
0x0720…072d LineComal80 {
0x0720…072d ptr = 0x9d1b // 0x720 @0x0
0x0720…072d lno = 0x0316 // 0x722 @0x2
0x0720…072d at0004 = ╱9d╱ EXEC ╱ // 0x724 @0x4
0x0720…072d at0005 = ╱5b╱[╱ // 0x725 @0x5
0x0720…072d at0006 = ╱4e╱N╱ // 0x726 @0x6
0x0720…072d at0007 = ╱44╱D╱ // 0x727 @0x7
0x0720…072d at0008 = ╱46╱F╱ // 0x728 @0x8
0x0720…072d at0009 = ╱4f╱O╱ // 0x729 @0x9
0x0720…072d at000a = ╱52╱R╱ // 0x72a @0xa
0x0720…072d at000b = ╱53╱S╱ // 0x72b @0xb
0x0720…072d at000c = EOL // 0x72c @0xc
0x0720…072d }
0x072d…073c 9d2a 00800 IF 2 >< 0 THEN
0x072d…073c LineComal80 {
0x072d…073c ptr = 0x9d2a // 0x72d @0x0
0x072d…073c lno = 0x0320 // 0x72f @0x2
0x072d…073c at0004 = ╱9b0054╱ IF ╱ // 0x731 @0x4
0x072d…073c at0007 = ╱32╱2╱ // 0x734 @0x7
0x072d…073c at0008 = ╱e4╱ >< ╱ // 0x735 @0x8
0x072d…073c at0009 = ╱30╱0╱ // 0x736 @0x9
0x072d…073c at000a = ╱f20000╱ // 0x737 @0xa
0x072d…073c at000d = ╱b5╱ THEN ╱ // 0x73a @0xd
0x072d…073c at000e = EOL // 0x73b @0xe
0x072d…073c }
0x073c…0758 9d46 00810 LET C7 := INT ( C6 / 100 ) * 100
0x073c…0758 LineComal80 {
0x073c…0758 ptr = 0x9d46 // 0x73c @0x0
0x073c…0758 lno = 0x032a // 0x73e @0x2
0x073c…0758 at0004 = ╱86╱ LET ╱ // 0x740 @0x4
0x073c…0758 at0005 = ╱43╱C╱ // 0x741 @0x5
0x073c…0758 at0006 = ╱37╱7╱ // 0x742 @0x6
0x073c…0758 at0007 = ╱f0╱ := ╱ // 0x743 @0x7
0x073c…0758 at0008 = ╱c6╱ INT ╱ // 0x744 @0x8
0x073c…0758 at0009 = ╱ed╱ ( ╱ // 0x745 @0x9
0x073c…0758 at000a = ╱43╱C╱ // 0x746 @0xa
0x073c…0758 at000b = ╱36╱6╱ // 0x747 @0xb
0x073c…0758 at000c = ╱e8╱ / ╱ // 0x748 @0xc
0x073c…0758 at000d = ╱31╱1╱ // 0x749 @0xd
0x073c…0758 at000e = ╱30╱0╱ // 0x74a @0xe
0x073c…0758 at000f = ╱30╱0╱ // 0x74b @0xf
0x073c…0758 at0010 = ╱f26400╱ // 0x74c @0x10
0x073c…0758 at0013 = ╱ee╱ ) ╱ // 0x74f @0x13
0x073c…0758 at0014 = ╱e7╱ * ╱ // 0x750 @0x14
0x073c…0758 at0015 = ╱31╱1╱ // 0x751 @0x15
0x073c…0758 at0016 = ╱30╱0╱ // 0x752 @0x16
0x073c…0758 at0017 = ╱30╱0╱ // 0x753 @0x17
0x073c…0758 at0018 = ╱f26400╱ // 0x754 @0x18
0x073c…0758 at001b = EOL // 0x757 @0x1b
0x073c…0758 }
0x0758…0795 9d83 00820 LET D6 := BD6 ; D0 := C0 ; AI := B3 ; B6 := E6 ; IR := F2 ; TP := T3 ; TK := TKB ; D6 := D6 - F0 - F7
0x0758…0795 LineComal80 {
0x0758…0795 ptr = 0x9d83 // 0x758 @0x0
0x0758…0795 lno = 0x0334 // 0x75a @0x2
0x0758…0795 at0004 = ╱86╱ LET ╱ // 0x75c @0x4
0x0758…0795 at0005 = ╱44╱D╱ // 0x75d @0x5
0x0758…0795 at0006 = ╱36╱6╱ // 0x75e @0x6
0x0758…0795 at0007 = ╱f0╱ := ╱ // 0x75f @0x7
0x0758…0795 at0008 = ╱42╱B╱ // 0x760 @0x8
0x0758…0795 at0009 = ╱44╱D╱ // 0x761 @0x9
0x0758…0795 at000a = ╱36╱6╱ // 0x762 @0xa
0x0758…0795 at000b = ╱ea╱ ; ╱ // 0x763 @0xb
0x0758…0795 at000c = ╱44╱D╱ // 0x764 @0xc
0x0758…0795 at000d = ╱30╱0╱ // 0x765 @0xd
0x0758…0795 at000e = ╱f0╱ := ╱ // 0x766 @0xe
0x0758…0795 at000f = ╱43╱C╱ // 0x767 @0xf
0x0758…0795 at0010 = ╱30╱0╱ // 0x768 @0x10
0x0758…0795 at0011 = ╱ea╱ ; ╱ // 0x769 @0x11
0x0758…0795 at0012 = ╱41╱A╱ // 0x76a @0x12
0x0758…0795 at0013 = ╱49╱I╱ // 0x76b @0x13
0x0758…0795 at0014 = ╱f0╱ := ╱ // 0x76c @0x14
0x0758…0795 at0015 = ╱42╱B╱ // 0x76d @0x15
0x0758…0795 at0016 = ╱33╱3╱ // 0x76e @0x16
0x0758…0795 at0017 = ╱ea╱ ; ╱ // 0x76f @0x17
0x0758…0795 at0018 = ╱42╱B╱ // 0x770 @0x18
0x0758…0795 at0019 = ╱36╱6╱ // 0x771 @0x19
0x0758…0795 at001a = ╱f0╱ := ╱ // 0x772 @0x1a
0x0758…0795 at001b = ╱45╱E╱ // 0x773 @0x1b
0x0758…0795 at001c = ╱36╱6╱ // 0x774 @0x1c
0x0758…0795 at001d = ╱ea╱ ; ╱ // 0x775 @0x1d
0x0758…0795 at001e = ╱49╱I╱ // 0x776 @0x1e
0x0758…0795 at001f = ╱52╱R╱ // 0x777 @0x1f
0x0758…0795 at0020 = ╱f0╱ := ╱ // 0x778 @0x20
0x0758…0795 at0021 = ╱46╱F╱ // 0x779 @0x21
0x0758…0795 at0022 = ╱32╱2╱ // 0x77a @0x22
0x0758…0795 at0023 = ╱ea╱ ; ╱ // 0x77b @0x23
0x0758…0795 at0024 = ╱54╱T╱ // 0x77c @0x24
0x0758…0795 at0025 = ╱50╱P╱ // 0x77d @0x25
0x0758…0795 at0026 = ╱f0╱ := ╱ // 0x77e @0x26
0x0758…0795 at0027 = ╱54╱T╱ // 0x77f @0x27
0x0758…0795 at0028 = ╱33╱3╱ // 0x780 @0x28
0x0758…0795 at0029 = ╱ea╱ ; ╱ // 0x781 @0x29
0x0758…0795 at002a = ╱54╱T╱ // 0x782 @0x2a
0x0758…0795 at002b = ╱4b╱K╱ // 0x783 @0x2b
0x0758…0795 at002c = ╱f0╱ := ╱ // 0x784 @0x2c
0x0758…0795 at002d = ╱54╱T╱ // 0x785 @0x2d
0x0758…0795 at002e = ╱4b╱K╱ // 0x786 @0x2e
0x0758…0795 at002f = ╱42╱B╱ // 0x787 @0x2f
0x0758…0795 at0030 = ╱ea╱ ; ╱ // 0x788 @0x30
0x0758…0795 at0031 = ╱44╱D╱ // 0x789 @0x31
0x0758…0795 at0032 = ╱36╱6╱ // 0x78a @0x32
0x0758…0795 at0033 = ╱f0╱ := ╱ // 0x78b @0x33
0x0758…0795 at0034 = ╱44╱D╱ // 0x78c @0x34
0x0758…0795 at0035 = ╱36╱6╱ // 0x78d @0x35
0x0758…0795 at0036 = ╱e6╱ - ╱ // 0x78e @0x36
0x0758…0795 at0037 = ╱46╱F╱ // 0x78f @0x37
0x0758…0795 at0038 = ╱30╱0╱ // 0x790 @0x38
0x0758…0795 at0039 = ╱e6╱ - ╱ // 0x791 @0x39
0x0758…0795 at003a = ╱46╱F╱ // 0x792 @0x3a
0x0758…0795 at003b = ╱37╱7╱ // 0x793 @0x3b
0x0758…0795 at003c = EOL // 0x794 @0x3c
0x0758…0795 }
0x0795…07a1 9d8f 00830 EXEC REGN12
0x0795…07a1 LineComal80 {
0x0795…07a1 ptr = 0x9d8f // 0x795 @0x0
0x0795…07a1 lno = 0x033e // 0x797 @0x2
0x0795…07a1 at0004 = ╱9d╱ EXEC ╱ // 0x799 @0x4
0x0795…07a1 at0005 = ╱52╱R╱ // 0x79a @0x5
0x0795…07a1 at0006 = ╱45╱E╱ // 0x79b @0x6
0x0795…07a1 at0007 = ╱47╱G╱ // 0x79c @0x7
0x0795…07a1 at0008 = ╱4e╱N╱ // 0x79d @0x8
0x0795…07a1 at0009 = ╱31╱1╱ // 0x79e @0x9
0x0795…07a1 at000a = ╱32╱2╱ // 0x79f @0xa
0x0795…07a1 at000b = EOL // 0x7a0 @0xb
0x0795…07a1 }
0x07a1…07ba 9da8 00840 IF = 1 AND FSLUT = 1 THEN
0x07a1…07ba LineComal80 {
0x07a1…07ba ptr = 0x9da8 // 0x7a1 @0x0
0x07a1…07ba lno = 0x0348 // 0x7a3 @0x2
0x07a1…07ba at0004 = ╱9b0047╱ IF ╱ // 0x7a5 @0x4
0x07a1…07ba at0007 = ╱df╱ = ╱ // 0x7a8 @0x7
0x07a1…07ba at0008 = ╱31╱1╱ // 0x7a9 @0x8
0x07a1…07ba at0009 = ╱f20100╱ // 0x7aa @0x9
0x07a1…07ba at000c = ╱d9╱ AND ╱ // 0x7ad @0xc
0x07a1…07ba at000d = ╱46╱F╱ // 0x7ae @0xd
0x07a1…07ba at000e = ╱53╱S╱ // 0x7af @0xe
0x07a1…07ba at000f = ╱4c╱L╱ // 0x7b0 @0xf
0x07a1…07ba at0010 = ╱55╱U╱ // 0x7b1 @0x10
0x07a1…07ba at0011 = ╱54╱T╱ // 0x7b2 @0x11
0x07a1…07ba at0012 = ╱df╱ = ╱ // 0x7b3 @0x12
0x07a1…07ba at0013 = ╱31╱1╱ // 0x7b4 @0x13
0x07a1…07ba at0014 = ╱f20100╱ // 0x7b5 @0x14
0x07a1…07ba at0017 = ╱b5╱ THEN ╱ // 0x7b8 @0x17
0x07a1…07ba at0018 = EOL // 0x7b9 @0x18
0x07a1…07ba }
0x07ba…07e8 9dd6 00850 LET Z := ZB ; J $ := BJ $ ; AIH := BAIH ; ASQ := BASQ ; BSKF := BBSKF
0x07ba…07e8 LineComal80 {
0x07ba…07e8 ptr = 0x9dd6 // 0x7ba @0x0
0x07ba…07e8 lno = 0x0352 // 0x7bc @0x2
0x07ba…07e8 at0004 = ╱86╱ LET ╱ // 0x7be @0x4
0x07ba…07e8 at0005 = ╱5a╱Z╱ // 0x7bf @0x5
0x07ba…07e8 at0006 = ╱f0╱ := ╱ // 0x7c0 @0x6
0x07ba…07e8 at0007 = ╱5a╱Z╱ // 0x7c1 @0x7
0x07ba…07e8 at0008 = ╱42╱B╱ // 0x7c2 @0x8
0x07ba…07e8 at0009 = ╱ea╱ ; ╱ // 0x7c3 @0x9
0x07ba…07e8 at000a = ╱4a╱J╱ // 0x7c4 @0xa
0x07ba…07e8 at000b = ╱ef╱ $ ╱ // 0x7c5 @0xb
0x07ba…07e8 at000c = ╱f0╱ := ╱ // 0x7c6 @0xc
0x07ba…07e8 at000d = ╱42╱B╱ // 0x7c7 @0xd
0x07ba…07e8 at000e = ╱4a╱J╱ // 0x7c8 @0xe
0x07ba…07e8 at000f = ╱ef╱ $ ╱ // 0x7c9 @0xf
0x07ba…07e8 at0010 = ╱ea╱ ; ╱ // 0x7ca @0x10
0x07ba…07e8 at0011 = ╱41╱A╱ // 0x7cb @0x11
0x07ba…07e8 at0012 = ╱49╱I╱ // 0x7cc @0x12
0x07ba…07e8 at0013 = ╱48╱H╱ // 0x7cd @0x13
0x07ba…07e8 at0014 = ╱f0╱ := ╱ // 0x7ce @0x14
0x07ba…07e8 at0015 = ╱42╱B╱ // 0x7cf @0x15
0x07ba…07e8 at0016 = ╱41╱A╱ // 0x7d0 @0x16
0x07ba…07e8 at0017 = ╱49╱I╱ // 0x7d1 @0x17
0x07ba…07e8 at0018 = ╱48╱H╱ // 0x7d2 @0x18
0x07ba…07e8 at0019 = ╱ea╱ ; ╱ // 0x7d3 @0x19
0x07ba…07e8 at001a = ╱41╱A╱ // 0x7d4 @0x1a
0x07ba…07e8 at001b = ╱53╱S╱ // 0x7d5 @0x1b
0x07ba…07e8 at001c = ╱51╱Q╱ // 0x7d6 @0x1c
0x07ba…07e8 at001d = ╱f0╱ := ╱ // 0x7d7 @0x1d
0x07ba…07e8 at001e = ╱42╱B╱ // 0x7d8 @0x1e
0x07ba…07e8 at001f = ╱41╱A╱ // 0x7d9 @0x1f
0x07ba…07e8 at0020 = ╱53╱S╱ // 0x7da @0x20
0x07ba…07e8 at0021 = ╱51╱Q╱ // 0x7db @0x21
0x07ba…07e8 at0022 = ╱ea╱ ; ╱ // 0x7dc @0x22
0x07ba…07e8 at0023 = ╱42╱B╱ // 0x7dd @0x23
0x07ba…07e8 at0024 = ╱53╱S╱ // 0x7de @0x24
0x07ba…07e8 at0025 = ╱4b╱K╱ // 0x7df @0x25
0x07ba…07e8 at0026 = ╱46╱F╱ // 0x7e0 @0x26
0x07ba…07e8 at0027 = ╱f0╱ := ╱ // 0x7e1 @0x27
0x07ba…07e8 at0028 = ╱42╱B╱ // 0x7e2 @0x28
0x07ba…07e8 at0029 = ╱42╱B╱ // 0x7e3 @0x29
0x07ba…07e8 at002a = ╱53╱S╱ // 0x7e4 @0x2a
0x07ba…07e8 at002b = ╱4b╱K╱ // 0x7e5 @0x2b
0x07ba…07e8 at002c = ╱46╱F╱ // 0x7e6 @0x2c
0x07ba…07e8 at002d = EOL // 0x7e7 @0x2d
0x07ba…07e8 }
0x07e8…07ef 9ddd 00860 ELSE
0x07e8…07ef LineComal80 {
0x07e8…07ef ptr = 0x9ddd // 0x7e8 @0x0
0x07e8…07ef lno = 0x035c // 0x7ea @0x2
0x07e8…07ef at0004 = ╱9a00╱ ELSE ╱ // 0x7ec @0x4
0x07e8…07ef at0006 = EOL // 0x7ee @0x6
0x07e8…07ef }
0x07ef…07f5 9de3 00870 CLEAR
0x07ef…07f5 LineComal80 {
0x07ef…07f5 ptr = 0x9de3 // 0x7ef @0x0
0x07ef…07f5 lno = 0x0366 // 0x7f1 @0x2
0x07ef…07f5 at0004 = ╱a0╱ CLEAR ╱ // 0x7f3 @0x4
0x07ef…07f5 at0005 = EOL // 0x7f4 @0x5
0x07ef…07f5 }
0x07f5…080e 9dfc 00880 LET FIL $ := "dde:skatdatb"
0x07f5…080e LineComal80 {
0x07f5…080e ptr = 0x9dfc // 0x7f5 @0x0
0x07f5…080e lno = 0x0370 // 0x7f7 @0x2
0x07f5…080e at0004 = ╱86╱ LET ╱ // 0x7f9 @0x4
0x07f5…080e at0005 = ╱46╱F╱ // 0x7fa @0x5
0x07f5…080e at0006 = ╱49╱I╱ // 0x7fb @0x6
0x07f5…080e at0007 = ╱4c╱L╱ // 0x7fc @0x7
0x07f5…080e at0008 = ╱ef╱ $ ╱ // 0x7fd @0x8
0x07f5…080e at0009 = ╱f0╱ := ╱ // 0x7fe @0x9
0x07f5…080e at000a = ╱22╱"╱ // 0x7ff @0xa
0x07f5…080e at000b = ╱64╱d╱ // 0x800 @0xb
0x07f5…080e at000c = ╱64╱d╱ // 0x801 @0xc
0x07f5…080e at000d = ╱65╱e╱ // 0x802 @0xd
0x07f5…080e at000e = ╱3a╱:╱ // 0x803 @0xe
0x07f5…080e at000f = ╱73╱s╱ // 0x804 @0xf
0x07f5…080e at0010 = ╱6b╱k╱ // 0x805 @0x10
0x07f5…080e at0011 = ╱61╱a╱ // 0x806 @0x11
0x07f5…080e at0012 = ╱74╱t╱ // 0x807 @0x12
0x07f5…080e at0013 = ╱64╱d╱ // 0x808 @0x13
0x07f5…080e at0014 = ╱61╱a╱ // 0x809 @0x14
0x07f5…080e at0015 = ╱74╱t╱ // 0x80a @0x15
0x07f5…080e at0016 = ╱62╱b╱ // 0x80b @0x16
0x07f5…080e at0017 = ╱22╱"╱ // 0x80c @0x17
0x07f5…080e at0018 = EOL // 0x80d @0x18
0x07f5…080e }
0x080e…081a 9e08 00890 OPEN FIL $ , R
0x080e…081a LineComal80 {
0x080e…081a ptr = 0x9e08 // 0x80e @0x0
0x080e…081a lno = 0x037a // 0x810 @0x2
0x080e…081a at0004 = ╱a7╱ OPEN ╱ // 0x812 @0x4
0x080e…081a at0005 = ╱46╱F╱ // 0x813 @0x5
0x080e…081a at0006 = ╱49╱I╱ // 0x814 @0x6
0x080e…081a at0007 = ╱4c╱L╱ // 0x815 @0x7
0x080e…081a at0008 = ╱ef╱ $ ╱ // 0x816 @0x8
0x080e…081a at0009 = ╱ec╱ , ╱ // 0x817 @0x9
0x080e…081a at000a = ╱52╱R╱ // 0x818 @0xa
0x080e…081a at000b = EOL // 0x819 @0xb
0x080e…081a }
0x081a…0826 9e14 00900 EXEC L[SFIL
0x081a…0826 LineComal80 {
0x081a…0826 ptr = 0x9e14 // 0x81a @0x0
0x081a…0826 lno = 0x0384 // 0x81c @0x2
0x081a…0826 at0004 = ╱9d╱ EXEC ╱ // 0x81e @0x4
0x081a…0826 at0005 = ╱4c╱L╱ // 0x81f @0x5
0x081a…0826 at0006 = ╱5b╱[╱ // 0x820 @0x6
0x081a…0826 at0007 = ╱53╱S╱ // 0x821 @0x7
0x081a…0826 at0008 = ╱46╱F╱ // 0x822 @0x8
0x081a…0826 at0009 = ╱49╱I╱ // 0x823 @0x9
0x081a…0826 at000a = ╱4c╱L╱ // 0x824 @0xa
0x081a…0826 at000b = EOL // 0x825 @0xb
0x081a…0826 }
0x0826…0830 9e1e 00910 LET ZB := Z
0x0826…0830 LineComal80 {
0x0826…0830 ptr = 0x9e1e // 0x826 @0x0
0x0826…0830 lno = 0x038e // 0x828 @0x2
0x0826…0830 at0004 = ╱86╱ LET ╱ // 0x82a @0x4
0x0826…0830 at0005 = ╱5a╱Z╱ // 0x82b @0x5
0x0826…0830 at0006 = ╱42╱B╱ // 0x82c @0x6
0x0826…0830 at0007 = ╱f0╱ := ╱ // 0x82d @0x7
0x0826…0830 at0008 = ╱5a╱Z╱ // 0x82e @0x8
0x0826…0830 at0009 = EOL // 0x82f @0x9
0x0826…0830 }
0x0830…0836 9e24 00920 ENDIF
0x0830…0836 LineComal80 {
0x0830…0836 ptr = 0x9e24 // 0x830 @0x0
0x0830…0836 lno = 0x0398 // 0x832 @0x2
0x0830…0836 at0004 = ╱9c╱ ENDIF ╱ // 0x834 @0x4
0x0830…0836 at0005 = EOL // 0x835 @0x5
0x0830…0836 }
0x0836…0844 9e32 00930 IF > 0 THEN
0x0836…0844 LineComal80 {
0x0836…0844 ptr = 0x9e32 // 0x836 @0x0
0x0836…0844 lno = 0x03a2 // 0x838 @0x2
0x0836…0844 at0004 = ╱9b005a╱ IF ╱ // 0x83a @0x4
0x0836…0844 at0007 = ╱e1╱ > ╱ // 0x83d @0x7
0x0836…0844 at0008 = ╱30╱0╱ // 0x83e @0x8
0x0836…0844 at0009 = ╱f20000╱ // 0x83f @0x9
0x0836…0844 at000c = ╱b5╱ THEN ╱ // 0x842 @0xc
0x0836…0844 at000d = EOL // 0x843 @0xd
0x0836…0844 }
0x0844…0852 9e40 00940 EXEC INDASKAT
0x0844…0852 LineComal80 {
0x0844…0852 ptr = 0x9e40 // 0x844 @0x0
0x0844…0852 lno = 0x03ac // 0x846 @0x2
0x0844…0852 at0004 = ╱9d╱ EXEC ╱ // 0x848 @0x4
0x0844…0852 at0005 = ╱49╱I╱ // 0x849 @0x5
0x0844…0852 at0006 = ╱4e╱N╱ // 0x84a @0x6
0x0844…0852 at0007 = ╱44╱D╱ // 0x84b @0x7
0x0844…0852 at0008 = ╱41╱A╱ // 0x84c @0x8
0x0844…0852 at0009 = ╱53╱S╱ // 0x84d @0x9
0x0844…0852 at000a = ╱4b╱K╱ // 0x84e @0xa
0x0844…0852 at000b = ╱41╱A╱ // 0x84f @0xb
0x0844…0852 at000c = ╱54╱T╱ // 0x850 @0xc
0x0844…0852 at000d = EOL // 0x851 @0xd
0x0844…0852 }
0x0852…087b 9e69 00950 LET BJ $ := J $ ; BAIH := AIH ; BASQ := ASQ ; BBSKF := BSKF
0x0852…087b LineComal80 {
0x0852…087b ptr = 0x9e69 // 0x852 @0x0
0x0852…087b lno = 0x03b6 // 0x854 @0x2
0x0852…087b at0004 = ╱86╱ LET ╱ // 0x856 @0x4
0x0852…087b at0005 = ╱42╱B╱ // 0x857 @0x5
0x0852…087b at0006 = ╱4a╱J╱ // 0x858 @0x6
0x0852…087b at0007 = ╱ef╱ $ ╱ // 0x859 @0x7
0x0852…087b at0008 = ╱f0╱ := ╱ // 0x85a @0x8
0x0852…087b at0009 = ╱4a╱J╱ // 0x85b @0x9
0x0852…087b at000a = ╱ef╱ $ ╱ // 0x85c @0xa
0x0852…087b at000b = ╱ea╱ ; ╱ // 0x85d @0xb
0x0852…087b at000c = ╱42╱B╱ // 0x85e @0xc
0x0852…087b at000d = ╱41╱A╱ // 0x85f @0xd
0x0852…087b at000e = ╱49╱I╱ // 0x860 @0xe
0x0852…087b at000f = ╱48╱H╱ // 0x861 @0xf
0x0852…087b at0010 = ╱f0╱ := ╱ // 0x862 @0x10
0x0852…087b at0011 = ╱41╱A╱ // 0x863 @0x11
0x0852…087b at0012 = ╱49╱I╱ // 0x864 @0x12
0x0852…087b at0013 = ╱48╱H╱ // 0x865 @0x13
0x0852…087b at0014 = ╱ea╱ ; ╱ // 0x866 @0x14
0x0852…087b at0015 = ╱42╱B╱ // 0x867 @0x15
0x0852…087b at0016 = ╱41╱A╱ // 0x868 @0x16
0x0852…087b at0017 = ╱53╱S╱ // 0x869 @0x17
0x0852…087b at0018 = ╱51╱Q╱ // 0x86a @0x18
0x0852…087b at0019 = ╱f0╱ := ╱ // 0x86b @0x19
0x0852…087b at001a = ╱41╱A╱ // 0x86c @0x1a
0x0852…087b at001b = ╱53╱S╱ // 0x86d @0x1b
0x0852…087b at001c = ╱51╱Q╱ // 0x86e @0x1c
0x0852…087b at001d = ╱ea╱ ; ╱ // 0x86f @0x1d
0x0852…087b at001e = ╱42╱B╱ // 0x870 @0x1e
0x0852…087b at001f = ╱42╱B╱ // 0x871 @0x1f
0x0852…087b at0020 = ╱53╱S╱ // 0x872 @0x20
0x0852…087b at0021 = ╱4b╱K╱ // 0x873 @0x21
0x0852…087b at0022 = ╱46╱F╱ // 0x874 @0x22
0x0852…087b at0023 = ╱f0╱ := ╱ // 0x875 @0x23
0x0852…087b at0024 = ╱42╱B╱ // 0x876 @0x24
0x0852…087b at0025 = ╱53╱S╱ // 0x877 @0x25
0x0852…087b at0026 = ╱4b╱K╱ // 0x878 @0x26
0x0852…087b at0027 = ╱46╱F╱ // 0x879 @0x27
0x0852…087b at0028 = EOL // 0x87a @0x28
0x0852…087b }
0x087b…0881 9e6f 00960 ENDIF
0x087b…0881 LineComal80 {
0x087b…0881 ptr = 0x9e6f // 0x87b @0x0
0x087b…0881 lno = 0x03c0 // 0x87d @0x2
0x087b…0881 at0004 = ╱9c╱ ENDIF ╱ // 0x87f @0x4
0x087b…0881 at0005 = EOL // 0x880 @0x5
0x087b…0881 }
0x0881…0890 9e7e 00970 IF I = 0 THEN
0x0881…0890 LineComal80 {
0x0881…0890 ptr = 0x9e7e // 0x881 @0x0
0x0881…0890 lno = 0x03ca // 0x883 @0x2
0x0881…0890 at0004 = ╱9b0041╱ IF ╱ // 0x885 @0x4
0x0881…0890 at0007 = ╱49╱I╱ // 0x888 @0x7
0x0881…0890 at0008 = ╱df╱ = ╱ // 0x889 @0x8
0x0881…0890 at0009 = ╱30╱0╱ // 0x88a @0x9
0x0881…0890 at000a = ╱f20000╱ // 0x88b @0xa
0x0881…0890 at000d = ╱b5╱ THEN ╱ // 0x88e @0xd
0x0881…0890 at000e = EOL // 0x88f @0xe
0x0881…0890 }
0x0890…089c 9e8a 00980 EXEC REGN13
0x0890…089c LineComal80 {
0x0890…089c ptr = 0x9e8a // 0x890 @0x0
0x0890…089c lno = 0x03d4 // 0x892 @0x2
0x0890…089c at0004 = ╱9d╱ EXEC ╱ // 0x894 @0x4
0x0890…089c at0005 = ╱52╱R╱ // 0x895 @0x5
0x0890…089c at0006 = ╱45╱E╱ // 0x896 @0x6
0x0890…089c at0007 = ╱47╱G╱ // 0x897 @0x7
0x0890…089c at0008 = ╱4e╱N╱ // 0x898 @0x8
0x0890…089c at0009 = ╱31╱1╱ // 0x899 @0x9
0x0890…089c at000a = ╱33╱3╱ // 0x89a @0xa
0x0890…089c at000b = EOL // 0x89b @0xb
0x0890…089c }
0x089c…08a3 9e91 00990 ELSE
0x089c…08a3 LineComal80 {
0x089c…08a3 ptr = 0x9e91 // 0x89c @0x0
0x089c…08a3 lno = 0x03de // 0x89e @0x2
0x089c…08a3 at0004 = ╱9a00╱ ELSE ╱ // 0x8a0 @0x4
0x089c…08a3 at0006 = EOL // 0x8a2 @0x6
0x089c…08a3 }
0x08a3…08b4 9ea2 01000 IF 6 < 100 THEN
0x08a3…08b4 LineComal80 {
0x08a3…08b4 ptr = 0x9ea2 // 0x8a3 @0x0
0x08a3…08b4 lno = 0x03e8 // 0x8a5 @0x2
0x08a3…08b4 at0004 = ╱9b0044╱ IF ╱ // 0x8a7 @0x4
0x08a3…08b4 at0007 = ╱36╱6╱ // 0x8aa @0x7
0x08a3…08b4 at0008 = ╱e0╱ < ╱ // 0x8ab @0x8
0x08a3…08b4 at0009 = ╱31╱1╱ // 0x8ac @0x9
0x08a3…08b4 at000a = ╱30╱0╱ // 0x8ad @0xa
0x08a3…08b4 at000b = ╱30╱0╱ // 0x8ae @0xb
0x08a3…08b4 at000c = ╱f26400╱ // 0x8af @0xc
0x08a3…08b4 at000f = ╱b5╱ THEN ╱ // 0x8b2 @0xf
0x08a3…08b4 at0010 = EOL // 0x8b3 @0x10
0x08a3…08b4 }
0x08b4…08c0 9eae 01010 EXEC REGN14
0x08b4…08c0 LineComal80 {
0x08b4…08c0 ptr = 0x9eae // 0x8b4 @0x0
0x08b4…08c0 lno = 0x03f2 // 0x8b6 @0x2
0x08b4…08c0 at0004 = ╱9d╱ EXEC ╱ // 0x8b8 @0x4
0x08b4…08c0 at0005 = ╱52╱R╱ // 0x8b9 @0x5
0x08b4…08c0 at0006 = ╱45╱E╱ // 0x8ba @0x6
0x08b4…08c0 at0007 = ╱47╱G╱ // 0x8bb @0x7
0x08b4…08c0 at0008 = ╱4e╱N╱ // 0x8bc @0x8
0x08b4…08c0 at0009 = ╱31╱1╱ // 0x8bd @0x9
0x08b4…08c0 at000a = ╱34╱4╱ // 0x8be @0xa
0x08b4…08c0 at000b = EOL // 0x8bf @0xb
0x08b4…08c0 }
0x08c0…08c7 9eb5 01020 ELSE
0x08c0…08c7 LineComal80 {
0x08c0…08c7 ptr = 0x9eb5 // 0x8c0 @0x0
0x08c0…08c7 lno = 0x03fc // 0x8c2 @0x2
0x08c0…08c7 at0004 = ╱9a00╱ ELSE ╱ // 0x8c4 @0x4
0x08c0…08c7 at0006 = EOL // 0x8c6 @0x6
0x08c0…08c7 }
0x08c7…0903 9ef1 01030 IF T2 = 1 AND T0 = 1 AND B2 > 0 THEN LET D0 := AR ; C7 := INT ( B1 / 100 ) * 100
0x08c7…0903 LineComal80 {
0x08c7…0903 ptr = 0x9ef1 // 0x8c7 @0x0
0x08c7…0903 lno = 0x0406 // 0x8c9 @0x2
0x08c7…0903 at0004 = ╱8200╱ IF ╱ // 0x8cb @0x4
0x08c7…0903 at0006 = ╱54╱T╱ // 0x8cd @0x6
0x08c7…0903 at0007 = ╱32╱2╱ // 0x8ce @0x7
0x08c7…0903 at0008 = ╱df╱ = ╱ // 0x8cf @0x8
0x08c7…0903 at0009 = ╱31╱1╱ // 0x8d0 @0x9
0x08c7…0903 at000a = ╱f20100╱ // 0x8d1 @0xa
0x08c7…0903 at000d = ╱d9╱ AND ╱ // 0x8d4 @0xd
0x08c7…0903 at000e = ╱54╱T╱ // 0x8d5 @0xe
0x08c7…0903 at000f = ╱30╱0╱ // 0x8d6 @0xf
0x08c7…0903 at0010 = ╱df╱ = ╱ // 0x8d7 @0x10
0x08c7…0903 at0011 = ╱31╱1╱ // 0x8d8 @0x11
0x08c7…0903 at0012 = ╱f20100╱ // 0x8d9 @0x12
0x08c7…0903 at0015 = ╱d9╱ AND ╱ // 0x8dc @0x15
0x08c7…0903 at0016 = ╱42╱B╱ // 0x8dd @0x16
0x08c7…0903 at0017 = ╱32╱2╱ // 0x8de @0x17
0x08c7…0903 at0018 = ╱e1╱ > ╱ // 0x8df @0x18
0x08c7…0903 at0019 = ╱30╱0╱ // 0x8e0 @0x19
0x08c7…0903 at001a = ╱f20000╱ // 0x8e1 @0x1a
0x08c7…0903 at001d = ╱b5╱ THEN ╱ // 0x8e4 @0x1d
0x08c7…0903 at001e = ╱86╱ LET ╱ // 0x8e5 @0x1e
0x08c7…0903 at001f = ╱44╱D╱ // 0x8e6 @0x1f
0x08c7…0903 at0020 = ╱30╱0╱ // 0x8e7 @0x20
0x08c7…0903 at0021 = ╱f0╱ := ╱ // 0x8e8 @0x21
0x08c7…0903 at0022 = ╱41╱A╱ // 0x8e9 @0x22
0x08c7…0903 at0023 = ╱52╱R╱ // 0x8ea @0x23
0x08c7…0903 at0024 = ╱ea╱ ; ╱ // 0x8eb @0x24
0x08c7…0903 at0025 = ╱43╱C╱ // 0x8ec @0x25
0x08c7…0903 at0026 = ╱37╱7╱ // 0x8ed @0x26
0x08c7…0903 at0027 = ╱f0╱ := ╱ // 0x8ee @0x27
0x08c7…0903 at0028 = ╱c6╱ INT ╱ // 0x8ef @0x28
0x08c7…0903 at0029 = ╱ed╱ ( ╱ // 0x8f0 @0x29
0x08c7…0903 at002a = ╱42╱B╱ // 0x8f1 @0x2a
0x08c7…0903 at002b = ╱31╱1╱ // 0x8f2 @0x2b
0x08c7…0903 at002c = ╱e8╱ / ╱ // 0x8f3 @0x2c
0x08c7…0903 at002d = ╱31╱1╱ // 0x8f4 @0x2d
0x08c7…0903 at002e = ╱30╱0╱ // 0x8f5 @0x2e
0x08c7…0903 at002f = ╱30╱0╱ // 0x8f6 @0x2f
0x08c7…0903 at0030 = ╱f26400╱ // 0x8f7 @0x30
0x08c7…0903 at0033 = ╱ee╱ ) ╱ // 0x8fa @0x33
0x08c7…0903 at0034 = ╱e7╱ * ╱ // 0x8fb @0x34
0x08c7…0903 at0035 = ╱31╱1╱ // 0x8fc @0x35
0x08c7…0903 at0036 = ╱30╱0╱ // 0x8fd @0x36
0x08c7…0903 at0037 = ╱30╱0╱ // 0x8fe @0x37
0x08c7…0903 at0038 = ╱f26400╱ // 0x8ff @0x38
0x08c7…0903 at003b = EOL // 0x902 @0x3b
0x08c7…0903 }
0x0903…090f 9efd 01040 EXEC REGN15
0x0903…090f LineComal80 {
0x0903…090f ptr = 0x9efd // 0x903 @0x0
0x0903…090f lno = 0x0410 // 0x905 @0x2
0x0903…090f at0004 = ╱9d╱ EXEC ╱ // 0x907 @0x4
0x0903…090f at0005 = ╱52╱R╱ // 0x908 @0x5
0x0903…090f at0006 = ╱45╱E╱ // 0x909 @0x6
0x0903…090f at0007 = ╱47╱G╱ // 0x90a @0x7
0x0903…090f at0008 = ╱4e╱N╱ // 0x90b @0x8
0x0903…090f at0009 = ╱31╱1╱ // 0x90c @0x9
0x0903…090f at000a = ╱35╱5╱ // 0x90d @0xa
0x0903…090f at000b = EOL // 0x90e @0xb
0x0903…090f }
0x090f…091b 9f09 01050 EXEC REGN16
0x090f…091b LineComal80 {
0x090f…091b ptr = 0x9f09 // 0x90f @0x0
0x090f…091b lno = 0x041a // 0x911 @0x2
0x090f…091b at0004 = ╱9d╱ EXEC ╱ // 0x913 @0x4
0x090f…091b at0005 = ╱52╱R╱ // 0x914 @0x5
0x090f…091b at0006 = ╱45╱E╱ // 0x915 @0x6
0x090f…091b at0007 = ╱47╱G╱ // 0x916 @0x7
0x090f…091b at0008 = ╱4e╱N╱ // 0x917 @0x8
0x090f…091b at0009 = ╱31╱1╱ // 0x918 @0x9
0x090f…091b at000a = ╱36╱6╱ // 0x919 @0xa
0x090f…091b at000b = EOL // 0x91a @0xb
0x090f…091b }
0x091b…0934 9f22 01060 IF INT ( FR ) > 0 THEN EXEC REGN11
0x091b…0934 LineComal80 {
0x091b…0934 ptr = 0x9f22 // 0x91b @0x0
0x091b…0934 lno = 0x0424 // 0x91d @0x2
0x091b…0934 at0004 = ╱8200╱ IF ╱ // 0x91f @0x4
0x091b…0934 at0006 = ╱c6╱ INT ╱ // 0x921 @0x6
0x091b…0934 at0007 = ╱ed╱ ( ╱ // 0x922 @0x7
0x091b…0934 at0008 = ╱46╱F╱ // 0x923 @0x8
0x091b…0934 at0009 = ╱52╱R╱ // 0x924 @0x9
0x091b…0934 at000a = ╱ee╱ ) ╱ // 0x925 @0xa
0x091b…0934 at000b = ╱e1╱ > ╱ // 0x926 @0xb
0x091b…0934 at000c = ╱30╱0╱ // 0x927 @0xc
0x091b…0934 at000d = ╱f20000╱ // 0x928 @0xd
0x091b…0934 at0010 = ╱b5╱ THEN ╱ // 0x92b @0x10
0x091b…0934 at0011 = ╱9d╱ EXEC ╱ // 0x92c @0x11
0x091b…0934 at0012 = ╱52╱R╱ // 0x92d @0x12
0x091b…0934 at0013 = ╱45╱E╱ // 0x92e @0x13
0x091b…0934 at0014 = ╱47╱G╱ // 0x92f @0x14
0x091b…0934 at0015 = ╱4e╱N╱ // 0x930 @0x15
0x091b…0934 at0016 = ╱31╱1╱ // 0x931 @0x16
0x091b…0934 at0017 = ╱31╱1╱ // 0x932 @0x17
0x091b…0934 at0018 = EOL // 0x933 @0x18
0x091b…0934 }
0x0934…093a 9f28 01070 ENDIF
0x0934…093a LineComal80 {
0x0934…093a ptr = 0x9f28 // 0x934 @0x0
0x0934…093a lno = 0x042e // 0x936 @0x2
0x0934…093a at0004 = ╱9c╱ ENDIF ╱ // 0x938 @0x4
0x0934…093a at0005 = EOL // 0x939 @0x5
0x0934…093a }
0x093a…0946 9f34 01080 EXEC REGN17
0x093a…0946 LineComal80 {
0x093a…0946 ptr = 0x9f34 // 0x93a @0x0
0x093a…0946 lno = 0x0438 // 0x93c @0x2
0x093a…0946 at0004 = ╱9d╱ EXEC ╱ // 0x93e @0x4
0x093a…0946 at0005 = ╱52╱R╱ // 0x93f @0x5
0x093a…0946 at0006 = ╱45╱E╱ // 0x940 @0x6
0x093a…0946 at0007 = ╱47╱G╱ // 0x941 @0x7
0x093a…0946 at0008 = ╱4e╱N╱ // 0x942 @0x8
0x093a…0946 at0009 = ╱31╱1╱ // 0x943 @0x9
0x093a…0946 at000a = ╱37╱7╱ // 0x944 @0xa
0x093a…0946 at000b = EOL // 0x945 @0xb
0x093a…0946 }
0x0946…094c 9f3a 01090 ENDIF
0x0946…094c LineComal80 {
0x0946…094c ptr = 0x9f3a // 0x946 @0x0
0x0946…094c lno = 0x0442 // 0x948 @0x2
0x0946…094c at0004 = ╱9c╱ ENDIF ╱ // 0x94a @0x4
0x0946…094c at0005 = EOL // 0x94b @0x5
0x0946…094c }
0x094c…0977 9f65 01100 LET QT $ := "FORSKUDSOPG\RELSE…FOR…" + BKL $ + ":"
0x094c…0977 LineComal80 {
0x094c…0977 ptr = 0x9f65 // 0x94c @0x0
0x094c…0977 lno = 0x044c // 0x94e @0x2
0x094c…0977 at0004 = ╱86╱ LET ╱ // 0x950 @0x4
0x094c…0977 at0005 = ╱51╱Q╱ // 0x951 @0x5
0x094c…0977 at0006 = ╱54╱T╱ // 0x952 @0x6
0x094c…0977 at0007 = ╱ef╱ $ ╱ // 0x953 @0x7
0x094c…0977 at0008 = ╱f0╱ := ╱ // 0x954 @0x8
0x094c…0977 at0009 = ╱22╱"╱ // 0x955 @0x9
0x094c…0977 at000a = ╱46╱F╱ // 0x956 @0xa
0x094c…0977 at000b = ╱4f╱O╱ // 0x957 @0xb
0x094c…0977 at000c = ╱52╱R╱ // 0x958 @0xc
0x094c…0977 at000d = ╱53╱S╱ // 0x959 @0xd
0x094c…0977 at000e = ╱4b╱K╱ // 0x95a @0xe
0x094c…0977 at000f = ╱55╱U╱ // 0x95b @0xf
0x094c…0977 at0010 = ╱44╱D╱ // 0x95c @0x10
0x094c…0977 at0011 = ╱53╱S╱ // 0x95d @0x11
0x094c…0977 at0012 = ╱4f╱O╱ // 0x95e @0x12
0x094c…0977 at0013 = ╱50╱P╱ // 0x95f @0x13
0x094c…0977 at0014 = ╱47╱G╱ // 0x960 @0x14
0x094c…0977 at0015 = ╱5c╱\╱ // 0x961 @0x15
0x094c…0977 at0016 = ╱52╱R╱ // 0x962 @0x16
0x094c…0977 at0017 = ╱45╱E╱ // 0x963 @0x17
0x094c…0977 at0018 = ╱4c╱L╱ // 0x964 @0x18
0x094c…0977 at0019 = ╱53╱S╱ // 0x965 @0x19
0x094c…0977 at001a = ╱45╱E╱ // 0x966 @0x1a
0x094c…0977 at001b = ╱20╱…╱ // 0x967 @0x1b
0x094c…0977 at001c = ╱46╱F╱ // 0x968 @0x1c
0x094c…0977 at001d = ╱4f╱O╱ // 0x969 @0x1d
0x094c…0977 at001e = ╱52╱R╱ // 0x96a @0x1e
0x094c…0977 at001f = ╱20╱…╱ // 0x96b @0x1f
0x094c…0977 at0020 = ╱22╱"╱ // 0x96c @0x20
0x094c…0977 at0021 = ╱eb╱ + ╱ // 0x96d @0x21
0x094c…0977 at0022 = ╱42╱B╱ // 0x96e @0x22
0x094c…0977 at0023 = ╱4b╱K╱ // 0x96f @0x23
0x094c…0977 at0024 = ╱4c╱L╱ // 0x970 @0x24
0x094c…0977 at0025 = ╱ef╱ $ ╱ // 0x971 @0x25
0x094c…0977 at0026 = ╱eb╱ + ╱ // 0x972 @0x26
0x094c…0977 at0027 = ╱22╱"╱ // 0x973 @0x27
0x094c…0977 at0028 = ╱3a╱:╱ // 0x974 @0x28
0x094c…0977 at0029 = ╱22╱"╱ // 0x975 @0x29
0x094c…0977 at002a = EOL // 0x976 @0x2a
0x094c…0977 }
0x0977…0984 9f72 01110 EXEC [NDFORS
0x0977…0984 LineComal80 {
0x0977…0984 ptr = 0x9f72 // 0x977 @0x0
0x0977…0984 lno = 0x0456 // 0x979 @0x2
0x0977…0984 at0004 = ╱9d╱ EXEC ╱ // 0x97b @0x4
0x0977…0984 at0005 = ╱5b╱[╱ // 0x97c @0x5
0x0977…0984 at0006 = ╱4e╱N╱ // 0x97d @0x6
0x0977…0984 at0007 = ╱44╱D╱ // 0x97e @0x7
0x0977…0984 at0008 = ╱46╱F╱ // 0x97f @0x8
0x0977…0984 at0009 = ╱4f╱O╱ // 0x980 @0x9
0x0977…0984 at000a = ╱52╱R╱ // 0x981 @0xa
0x0977…0984 at000b = ╱53╱S╱ // 0x982 @0xb
0x0977…0984 at000c = EOL // 0x983 @0xc
0x0977…0984 }
0x0984…098a 9f78 01120 ENDIF
0x0984…098a LineComal80 {
0x0984…098a ptr = 0x9f78 // 0x984 @0x0
0x0984…098a lno = 0x0460 // 0x986 @0x2
0x0984…098a at0004 = ╱9c╱ ENDIF ╱ // 0x988 @0x4
0x0984…098a at0005 = EOL // 0x989 @0x5
0x0984…098a }
0x098a…0998 9f86 01130 LET SYS := 1
0x098a…0998 LineComal80 {
0x098a…0998 ptr = 0x9f86 // 0x98a @0x0
0x098a…0998 lno = 0x046a // 0x98c @0x2
0x098a…0998 at0004 = ╱86╱ LET ╱ // 0x98e @0x4
0x098a…0998 at0005 = ╱53╱S╱ // 0x98f @0x5
0x098a…0998 at0006 = ╱59╱Y╱ // 0x990 @0x6
0x098a…0998 at0007 = ╱53╱S╱ // 0x991 @0x7
0x098a…0998 at0008 = ╱f0╱ := ╱ // 0x992 @0x8
0x098a…0998 at0009 = ╱31╱1╱ // 0x993 @0x9
0x098a…0998 at000a = ╱f20100╱ // 0x994 @0xa
0x098a…0998 at000d = EOL // 0x997 @0xd
0x098a…0998 }
0x0998…09ae 9f9c 01140 OPEN "DDE:FORSKVAR" , W
0x0998…09ae LineComal80 {
0x0998…09ae ptr = 0x9f9c // 0x998 @0x0
0x0998…09ae lno = 0x0474 // 0x99a @0x2
0x0998…09ae at0004 = ╱a7╱ OPEN ╱ // 0x99c @0x4
0x0998…09ae at0005 = ╱22╱"╱ // 0x99d @0x5
0x0998…09ae at0006 = ╱44╱D╱ // 0x99e @0x6
0x0998…09ae at0007 = ╱44╱D╱ // 0x99f @0x7
0x0998…09ae at0008 = ╱45╱E╱ // 0x9a0 @0x8
0x0998…09ae at0009 = ╱3a╱:╱ // 0x9a1 @0x9
0x0998…09ae at000a = ╱46╱F╱ // 0x9a2 @0xa
0x0998…09ae at000b = ╱4f╱O╱ // 0x9a3 @0xb
0x0998…09ae at000c = ╱52╱R╱ // 0x9a4 @0xc
0x0998…09ae at000d = ╱53╱S╱ // 0x9a5 @0xd
0x0998…09ae at000e = ╱4b╱K╱ // 0x9a6 @0xe
0x0998…09ae at000f = ╱56╱V╱ // 0x9a7 @0xf
0x0998…09ae at0010 = ╱41╱A╱ // 0x9a8 @0x10
0x0998…09ae at0011 = ╱52╱R╱ // 0x9a9 @0x11
0x0998…09ae at0012 = ╱22╱"╱ // 0x9aa @0x12
0x0998…09ae at0013 = ╱ec╱ , ╱ // 0x9ab @0x13
0x0998…09ae at0014 = ╱57╱W╱ // 0x9ac @0x14
0x0998…09ae at0015 = EOL // 0x9ad @0x15
0x0998…09ae }
0x09ae…09dc 9fca 01150 PUT "DDE:FORSKVAR" : ZH , HJ $ , HAIH , HASQ , HBSKF , F1
0x09ae…09dc LineComal80 {
0x09ae…09dc ptr = 0x9fca // 0x9ae @0x0
0x09ae…09dc lno = 0x047e // 0x9b0 @0x2
0x09ae…09dc at0004 = ╱aa╱ PUT ╱ // 0x9b2 @0x4
0x09ae…09dc at0005 = ╱22╱"╱ // 0x9b3 @0x5
0x09ae…09dc at0006 = ╱44╱D╱ // 0x9b4 @0x6
0x09ae…09dc at0007 = ╱44╱D╱ // 0x9b5 @0x7
0x09ae…09dc at0008 = ╱45╱E╱ // 0x9b6 @0x8
0x09ae…09dc at0009 = ╱3a╱:╱ // 0x9b7 @0x9
0x09ae…09dc at000a = ╱46╱F╱ // 0x9b8 @0xa
0x09ae…09dc at000b = ╱4f╱O╱ // 0x9b9 @0xb
0x09ae…09dc at000c = ╱52╱R╱ // 0x9ba @0xc
0x09ae…09dc at000d = ╱53╱S╱ // 0x9bb @0xd
0x09ae…09dc at000e = ╱4b╱K╱ // 0x9bc @0xe
0x09ae…09dc at000f = ╱56╱V╱ // 0x9bd @0xf
0x09ae…09dc at0010 = ╱41╱A╱ // 0x9be @0x10
0x09ae…09dc at0011 = ╱52╱R╱ // 0x9bf @0x11
0x09ae…09dc at0012 = ╱22╱"╱ // 0x9c0 @0x12
0x09ae…09dc at0013 = ╱f1╱ : ╱ // 0x9c1 @0x13
0x09ae…09dc at0014 = ╱5a╱Z╱ // 0x9c2 @0x14
0x09ae…09dc at0015 = ╱48╱H╱ // 0x9c3 @0x15
0x09ae…09dc at0016 = ╱ec╱ , ╱ // 0x9c4 @0x16
0x09ae…09dc at0017 = ╱48╱H╱ // 0x9c5 @0x17
0x09ae…09dc at0018 = ╱4a╱J╱ // 0x9c6 @0x18
0x09ae…09dc at0019 = ╱ef╱ $ ╱ // 0x9c7 @0x19
0x09ae…09dc at001a = ╱ec╱ , ╱ // 0x9c8 @0x1a
0x09ae…09dc at001b = ╱48╱H╱ // 0x9c9 @0x1b
0x09ae…09dc at001c = ╱41╱A╱ // 0x9ca @0x1c
0x09ae…09dc at001d = ╱49╱I╱ // 0x9cb @0x1d
0x09ae…09dc at001e = ╱48╱H╱ // 0x9cc @0x1e
0x09ae…09dc at001f = ╱ec╱ , ╱ // 0x9cd @0x1f
0x09ae…09dc at0020 = ╱48╱H╱ // 0x9ce @0x20
0x09ae…09dc at0021 = ╱41╱A╱ // 0x9cf @0x21
0x09ae…09dc at0022 = ╱53╱S╱ // 0x9d0 @0x22
0x09ae…09dc at0023 = ╱51╱Q╱ // 0x9d1 @0x23
0x09ae…09dc at0024 = ╱ec╱ , ╱ // 0x9d2 @0x24
0x09ae…09dc at0025 = ╱48╱H╱ // 0x9d3 @0x25
0x09ae…09dc at0026 = ╱42╱B╱ // 0x9d4 @0x26
0x09ae…09dc at0027 = ╱53╱S╱ // 0x9d5 @0x27
0x09ae…09dc at0028 = ╱4b╱K╱ // 0x9d6 @0x28
0x09ae…09dc at0029 = ╱46╱F╱ // 0x9d7 @0x29
0x09ae…09dc at002a = ╱ec╱ , ╱ // 0x9d8 @0x2a
0x09ae…09dc at002b = ╱46╱F╱ // 0x9d9 @0x2b
0x09ae…09dc at002c = ╱31╱1╱ // 0x9da @0x2c
0x09ae…09dc at002d = EOL // 0x9db @0x2d
0x09ae…09dc }
0x09dc…0a0a 9ff8 01160 PUT "DDE:FORSKVAR" : ZB , BJ $ , BAIH , BASQ , BBSKF , F2
0x09dc…0a0a LineComal80 {
0x09dc…0a0a ptr = 0x9ff8 // 0x9dc @0x0
0x09dc…0a0a lno = 0x0488 // 0x9de @0x2
0x09dc…0a0a at0004 = ╱aa╱ PUT ╱ // 0x9e0 @0x4
0x09dc…0a0a at0005 = ╱22╱"╱ // 0x9e1 @0x5
0x09dc…0a0a at0006 = ╱44╱D╱ // 0x9e2 @0x6
0x09dc…0a0a at0007 = ╱44╱D╱ // 0x9e3 @0x7
0x09dc…0a0a at0008 = ╱45╱E╱ // 0x9e4 @0x8
0x09dc…0a0a at0009 = ╱3a╱:╱ // 0x9e5 @0x9
0x09dc…0a0a at000a = ╱46╱F╱ // 0x9e6 @0xa
0x09dc…0a0a at000b = ╱4f╱O╱ // 0x9e7 @0xb
0x09dc…0a0a at000c = ╱52╱R╱ // 0x9e8 @0xc
0x09dc…0a0a at000d = ╱53╱S╱ // 0x9e9 @0xd
0x09dc…0a0a at000e = ╱4b╱K╱ // 0x9ea @0xe
0x09dc…0a0a at000f = ╱56╱V╱ // 0x9eb @0xf
0x09dc…0a0a at0010 = ╱41╱A╱ // 0x9ec @0x10
0x09dc…0a0a at0011 = ╱52╱R╱ // 0x9ed @0x11
0x09dc…0a0a at0012 = ╱22╱"╱ // 0x9ee @0x12
0x09dc…0a0a at0013 = ╱f1╱ : ╱ // 0x9ef @0x13
0x09dc…0a0a at0014 = ╱5a╱Z╱ // 0x9f0 @0x14
0x09dc…0a0a at0015 = ╱42╱B╱ // 0x9f1 @0x15
0x09dc…0a0a at0016 = ╱ec╱ , ╱ // 0x9f2 @0x16
0x09dc…0a0a at0017 = ╱42╱B╱ // 0x9f3 @0x17
0x09dc…0a0a at0018 = ╱4a╱J╱ // 0x9f4 @0x18
0x09dc…0a0a at0019 = ╱ef╱ $ ╱ // 0x9f5 @0x19
0x09dc…0a0a at001a = ╱ec╱ , ╱ // 0x9f6 @0x1a
0x09dc…0a0a at001b = ╱42╱B╱ // 0x9f7 @0x1b
0x09dc…0a0a at001c = ╱41╱A╱ // 0x9f8 @0x1c
0x09dc…0a0a at001d = ╱49╱I╱ // 0x9f9 @0x1d
0x09dc…0a0a at001e = ╱48╱H╱ // 0x9fa @0x1e
0x09dc…0a0a at001f = ╱ec╱ , ╱ // 0x9fb @0x1f
0x09dc…0a0a at0020 = ╱42╱B╱ // 0x9fc @0x20
0x09dc…0a0a at0021 = ╱41╱A╱ // 0x9fd @0x21
0x09dc…0a0a at0022 = ╱53╱S╱ // 0x9fe @0x22
0x09dc…0a0a at0023 = ╱51╱Q╱ // 0x9ff @0x23
0x09dc…0a0a at0024 = ╱ec╱ , ╱ // 0xa00 @0x24
0x09dc…0a0a at0025 = ╱42╱B╱ // 0xa01 @0x25
0x09dc…0a0a at0026 = ╱42╱B╱ // 0xa02 @0x26
0x09dc…0a0a at0027 = ╱53╱S╱ // 0xa03 @0x27
0x09dc…0a0a at0028 = ╱4b╱K╱ // 0xa04 @0x28
0x09dc…0a0a at0029 = ╱46╱F╱ // 0xa05 @0x29
0x09dc…0a0a at002a = ╱ec╱ , ╱ // 0xa06 @0x2a
0x09dc…0a0a at002b = ╱46╱F╱ // 0xa07 @0x2b
0x09dc…0a0a at002c = ╱32╱2╱ // 0xa08 @0x2c
0x09dc…0a0a at002d = EOL // 0xa09 @0x2d
0x09dc…0a0a }
0x0a0a…0a1e a00c 01170 CLOSE "DDE:FORSKVAR"
0x0a0a…0a1e LineComal80 {
0x0a0a…0a1e ptr = 0xa00c // 0xa0a @0x0
0x0a0a…0a1e lno = 0x0492 // 0xa0c @0x2
0x0a0a…0a1e at0004 = ╱a8╱ CLOSE ╱ // 0xa0e @0x4
0x0a0a…0a1e at0005 = ╱22╱"╱ // 0xa0f @0x5
0x0a0a…0a1e at0006 = ╱44╱D╱ // 0xa10 @0x6
0x0a0a…0a1e at0007 = ╱44╱D╱ // 0xa11 @0x7
0x0a0a…0a1e at0008 = ╱45╱E╱ // 0xa12 @0x8
0x0a0a…0a1e at0009 = ╱3a╱:╱ // 0xa13 @0x9
0x0a0a…0a1e at000a = ╱46╱F╱ // 0xa14 @0xa
0x0a0a…0a1e at000b = ╱4f╱O╱ // 0xa15 @0xb
0x0a0a…0a1e at000c = ╱52╱R╱ // 0xa16 @0xc
0x0a0a…0a1e at000d = ╱53╱S╱ // 0xa17 @0xd
0x0a0a…0a1e at000e = ╱4b╱K╱ // 0xa18 @0xe
0x0a0a…0a1e at000f = ╱56╱V╱ // 0xa19 @0xf
0x0a0a…0a1e at0010 = ╱41╱A╱ // 0xa1a @0x10
0x0a0a…0a1e at0011 = ╱52╱R╱ // 0xa1b @0x11
0x0a0a…0a1e at0012 = ╱22╱"╱ // 0xa1c @0x12
0x0a0a…0a1e at0013 = EOL // 0xa1d @0x13
0x0a0a…0a1e }
0x0a1e…0a33 a021 01180 OPEN "dde:skatsys" , W
0x0a1e…0a33 LineComal80 {
0x0a1e…0a33 ptr = 0xa021 // 0xa1e @0x0
0x0a1e…0a33 lno = 0x049c // 0xa20 @0x2
0x0a1e…0a33 at0004 = ╱a7╱ OPEN ╱ // 0xa22 @0x4
0x0a1e…0a33 at0005 = ╱22╱"╱ // 0xa23 @0x5
0x0a1e…0a33 at0006 = ╱64╱d╱ // 0xa24 @0x6
0x0a1e…0a33 at0007 = ╱64╱d╱ // 0xa25 @0x7
0x0a1e…0a33 at0008 = ╱65╱e╱ // 0xa26 @0x8
0x0a1e…0a33 at0009 = ╱3a╱:╱ // 0xa27 @0x9
0x0a1e…0a33 at000a = ╱73╱s╱ // 0xa28 @0xa
0x0a1e…0a33 at000b = ╱6b╱k╱ // 0xa29 @0xb
0x0a1e…0a33 at000c = ╱61╱a╱ // 0xa2a @0xc
0x0a1e…0a33 at000d = ╱74╱t╱ // 0xa2b @0xd
0x0a1e…0a33 at000e = ╱73╱s╱ // 0xa2c @0xe
0x0a1e…0a33 at000f = ╱79╱y╱ // 0xa2d @0xf
0x0a1e…0a33 at0010 = ╱73╱s╱ // 0xa2e @0x10
0x0a1e…0a33 at0011 = ╱22╱"╱ // 0xa2f @0x11
0x0a1e…0a33 at0012 = ╱ec╱ , ╱ // 0xa30 @0x12
0x0a1e…0a33 at0013 = ╱57╱W╱ // 0xa31 @0x13
0x0a1e…0a33 at0014 = EOL // 0xa32 @0x14
0x0a1e…0a33 }
0x0a33…0a4a a038 01190 PUT "dde:skatsys" : SYS
0x0a33…0a4a LineComal80 {
0x0a33…0a4a ptr = 0xa038 // 0xa33 @0x0
0x0a33…0a4a lno = 0x04a6 // 0xa35 @0x2
0x0a33…0a4a at0004 = ╱aa╱ PUT ╱ // 0xa37 @0x4
0x0a33…0a4a at0005 = ╱22╱"╱ // 0xa38 @0x5
0x0a33…0a4a at0006 = ╱64╱d╱ // 0xa39 @0x6
0x0a33…0a4a at0007 = ╱64╱d╱ // 0xa3a @0x7
0x0a33…0a4a at0008 = ╱65╱e╱ // 0xa3b @0x8
0x0a33…0a4a at0009 = ╱3a╱:╱ // 0xa3c @0x9
0x0a33…0a4a at000a = ╱73╱s╱ // 0xa3d @0xa
0x0a33…0a4a at000b = ╱6b╱k╱ // 0xa3e @0xb
0x0a33…0a4a at000c = ╱61╱a╱ // 0xa3f @0xc
0x0a33…0a4a at000d = ╱74╱t╱ // 0xa40 @0xd
0x0a33…0a4a at000e = ╱73╱s╱ // 0xa41 @0xe
0x0a33…0a4a at000f = ╱79╱y╱ // 0xa42 @0xf
0x0a33…0a4a at0010 = ╱73╱s╱ // 0xa43 @0x10
0x0a33…0a4a at0011 = ╱22╱"╱ // 0xa44 @0x11
0x0a33…0a4a at0012 = ╱f1╱ : ╱ // 0xa45 @0x12
0x0a33…0a4a at0013 = ╱53╱S╱ // 0xa46 @0x13
0x0a33…0a4a at0014 = ╱59╱Y╱ // 0xa47 @0x14
0x0a33…0a4a at0015 = ╱53╱S╱ // 0xa48 @0x15
0x0a33…0a4a at0016 = EOL // 0xa49 @0x16
0x0a33…0a4a }
0x0a4a…0a5d a04b 01200 CLOSE "dde:skatsys"
0x0a4a…0a5d LineComal80 {
0x0a4a…0a5d ptr = 0xa04b // 0xa4a @0x0
0x0a4a…0a5d lno = 0x04b0 // 0xa4c @0x2
0x0a4a…0a5d at0004 = ╱a8╱ CLOSE ╱ // 0xa4e @0x4
0x0a4a…0a5d at0005 = ╱22╱"╱ // 0xa4f @0x5
0x0a4a…0a5d at0006 = ╱64╱d╱ // 0xa50 @0x6
0x0a4a…0a5d at0007 = ╱64╱d╱ // 0xa51 @0x7
0x0a4a…0a5d at0008 = ╱65╱e╱ // 0xa52 @0x8
0x0a4a…0a5d at0009 = ╱3a╱:╱ // 0xa53 @0x9
0x0a4a…0a5d at000a = ╱73╱s╱ // 0xa54 @0xa
0x0a4a…0a5d at000b = ╱6b╱k╱ // 0xa55 @0xb
0x0a4a…0a5d at000c = ╱61╱a╱ // 0xa56 @0xc
0x0a4a…0a5d at000d = ╱74╱t╱ // 0xa57 @0xd
0x0a4a…0a5d at000e = ╱73╱s╱ // 0xa58 @0xe
0x0a4a…0a5d at000f = ╱79╱y╱ // 0xa59 @0xf
0x0a4a…0a5d at0010 = ╱73╱s╱ // 0xa5a @0x10
0x0a4a…0a5d at0011 = ╱22╱"╱ // 0xa5b @0x11
0x0a4a…0a5d at0012 = EOL // 0xa5c @0x12
0x0a4a…0a5d }
0x0a5d…0a8e a07c 01210 PRINT "***…VENT…***…HOVEDPROGRAMMET…INDL[SES…***"
0x0a5d…0a8e LineComal80 {
0x0a5d…0a8e ptr = 0xa07c // 0xa5d @0x0
0x0a5d…0a8e lno = 0x04ba // 0xa5f @0x2
0x0a5d…0a8e at0004 = ╱92╱ PRINT ╱ // 0xa61 @0x4
0x0a5d…0a8e at0005 = ╱22╱"╱ // 0xa62 @0x5
0x0a5d…0a8e at0006 = ╱2a╱*╱ // 0xa63 @0x6
0x0a5d…0a8e at0007 = ╱2a╱*╱ // 0xa64 @0x7
0x0a5d…0a8e at0008 = ╱2a╱*╱ // 0xa65 @0x8
0x0a5d…0a8e at0009 = ╱20╱…╱ // 0xa66 @0x9
0x0a5d…0a8e at000a = ╱56╱V╱ // 0xa67 @0xa
0x0a5d…0a8e at000b = ╱45╱E╱ // 0xa68 @0xb
0x0a5d…0a8e at000c = ╱4e╱N╱ // 0xa69 @0xc
0x0a5d…0a8e at000d = ╱54╱T╱ // 0xa6a @0xd
0x0a5d…0a8e at000e = ╱20╱…╱ // 0xa6b @0xe
0x0a5d…0a8e at000f = ╱2a╱*╱ // 0xa6c @0xf
0x0a5d…0a8e at0010 = ╱2a╱*╱ // 0xa6d @0x10
0x0a5d…0a8e at0011 = ╱2a╱*╱ // 0xa6e @0x11
0x0a5d…0a8e at0012 = ╱20╱…╱ // 0xa6f @0x12
0x0a5d…0a8e at0013 = ╱48╱H╱ // 0xa70 @0x13
0x0a5d…0a8e at0014 = ╱4f╱O╱ // 0xa71 @0x14
0x0a5d…0a8e at0015 = ╱56╱V╱ // 0xa72 @0x15
0x0a5d…0a8e at0016 = ╱45╱E╱ // 0xa73 @0x16
0x0a5d…0a8e at0017 = ╱44╱D╱ // 0xa74 @0x17
0x0a5d…0a8e at0018 = ╱50╱P╱ // 0xa75 @0x18
0x0a5d…0a8e at0019 = ╱52╱R╱ // 0xa76 @0x19
0x0a5d…0a8e at001a = ╱4f╱O╱ // 0xa77 @0x1a
0x0a5d…0a8e at001b = ╱47╱G╱ // 0xa78 @0x1b
0x0a5d…0a8e at001c = ╱52╱R╱ // 0xa79 @0x1c
0x0a5d…0a8e at001d = ╱41╱A╱ // 0xa7a @0x1d
0x0a5d…0a8e at001e = ╱4d╱M╱ // 0xa7b @0x1e
0x0a5d…0a8e at001f = ╱4d╱M╱ // 0xa7c @0x1f
0x0a5d…0a8e at0020 = ╱45╱E╱ // 0xa7d @0x20
0x0a5d…0a8e at0021 = ╱54╱T╱ // 0xa7e @0x21
0x0a5d…0a8e at0022 = ╱20╱…╱ // 0xa7f @0x22
0x0a5d…0a8e at0023 = ╱49╱I╱ // 0xa80 @0x23
0x0a5d…0a8e at0024 = ╱4e╱N╱ // 0xa81 @0x24
0x0a5d…0a8e at0025 = ╱44╱D╱ // 0xa82 @0x25
0x0a5d…0a8e at0026 = ╱4c╱L╱ // 0xa83 @0x26
0x0a5d…0a8e at0027 = ╱5b╱[╱ // 0xa84 @0x27
0x0a5d…0a8e at0028 = ╱53╱S╱ // 0xa85 @0x28
0x0a5d…0a8e at0029 = ╱45╱E╱ // 0xa86 @0x29
0x0a5d…0a8e at002a = ╱53╱S╱ // 0xa87 @0x2a
0x0a5d…0a8e at002b = ╱20╱…╱ // 0xa88 @0x2b
0x0a5d…0a8e at002c = ╱2a╱*╱ // 0xa89 @0x2c
0x0a5d…0a8e at002d = ╱2a╱*╱ // 0xa8a @0x2d
0x0a5d…0a8e at002e = ╱2a╱*╱ // 0xa8b @0x2e
0x0a5d…0a8e at002f = ╱22╱"╱ // 0xa8c @0x2f
0x0a5d…0a8e at0030 = EOL // 0xa8d @0x30
0x0a5d…0a8e }
0x0a8e…0aa0 a08e 01220 CHAIN "dde:skat85"
0x0a8e…0aa0 LineComal80 {
0x0a8e…0aa0 ptr = 0xa08e // 0xa8e @0x0
0x0a8e…0aa0 lno = 0x04c4 // 0xa90 @0x2
0x0a8e…0aa0 at0004 = ╱ac╱ CHAIN ╱ // 0xa92 @0x4
0x0a8e…0aa0 at0005 = ╱22╱"╱ // 0xa93 @0x5
0x0a8e…0aa0 at0006 = ╱64╱d╱ // 0xa94 @0x6
0x0a8e…0aa0 at0007 = ╱64╱d╱ // 0xa95 @0x7
0x0a8e…0aa0 at0008 = ╱65╱e╱ // 0xa96 @0x8
0x0a8e…0aa0 at0009 = ╱3a╱:╱ // 0xa97 @0x9
0x0a8e…0aa0 at000a = ╱73╱s╱ // 0xa98 @0xa
0x0a8e…0aa0 at000b = ╱6b╱k╱ // 0xa99 @0xb
0x0a8e…0aa0 at000c = ╱61╱a╱ // 0xa9a @0xc
0x0a8e…0aa0 at000d = ╱74╱t╱ // 0xa9b @0xd
0x0a8e…0aa0 at000e = ╱38╱8╱ // 0xa9c @0xe
0x0a8e…0aa0 at000f = ╱35╱5╱ // 0xa9d @0xf
0x0a8e…0aa0 at0010 = ╱22╱"╱ // 0xa9e @0x10
0x0a8e…0aa0 at0011 = EOL // 0xa9f @0x11
0x0a8e…0aa0 }
0x0aa0…0aae a09c 01230 PROC LSKRIV2
0x0aa0…0aae LineComal80 {
0x0aa0…0aae ptr = 0xa09c // 0xaa0 @0x0
0x0aa0…0aae lno = 0x04ce // 0xaa2 @0x2
0x0aa0…0aae at0004 = ╱9e00╱ PROC ╱ // 0xaa4 @0x4
0x0aa0…0aae at0006 = ╱4c╱L╱ // 0xaa6 @0x6
0x0aa0…0aae at0007 = ╱53╱S╱ // 0xaa7 @0x7
0x0aa0…0aae at0008 = ╱4b╱K╱ // 0xaa8 @0x8
0x0aa0…0aae at0009 = ╱52╱R╱ // 0xaa9 @0x9
0x0aa0…0aae at000a = ╱49╱I╱ // 0xaaa @0xa
0x0aa0…0aae at000b = ╱56╱V╱ // 0xaab @0xb
0x0aa0…0aae at000c = ╱32╱2╱ // 0xaac @0xc
0x0aa0…0aae at000d = EOL // 0xaad @0xd
0x0aa0…0aae }
0x0aae…0aba a0a8 01240 LET PRB := QB
0x0aae…0aba LineComal80 {
0x0aae…0aba ptr = 0xa0a8 // 0xaae @0x0
0x0aae…0aba lno = 0x04d8 // 0xab0 @0x2
0x0aae…0aba at0004 = ╱86╱ LET ╱ // 0xab2 @0x4
0x0aae…0aba at0005 = ╱50╱P╱ // 0xab3 @0x5
0x0aae…0aba at0006 = ╱52╱R╱ // 0xab4 @0x6
0x0aae…0aba at0007 = ╱42╱B╱ // 0xab5 @0x7
0x0aae…0aba at0008 = ╱f0╱ := ╱ // 0xab6 @0x8
0x0aae…0aba at0009 = ╱51╱Q╱ // 0xab7 @0x9
0x0aae…0aba at000a = ╱42╱B╱ // 0xab8 @0xa
0x0aae…0aba at000b = EOL // 0xab9 @0xb
0x0aae…0aba }
0x0aba…0acd a0bb 01250 PRINT QT $ ; TAB ( 35 ) ;
0x0aba…0acd LineComal80 {
0x0aba…0acd ptr = 0xa0bb // 0xaba @0x0
0x0aba…0acd lno = 0x04e2 // 0xabc @0x2
0x0aba…0acd at0004 = ╱92╱ PRINT ╱ // 0xabe @0x4
0x0aba…0acd at0005 = ╱51╱Q╱ // 0xabf @0x5
0x0aba…0acd at0006 = ╱54╱T╱ // 0xac0 @0x6
0x0aba…0acd at0007 = ╱ef╱ $ ╱ // 0xac1 @0x7
0x0aba…0acd at0008 = ╱ea╱ ; ╱ // 0xac2 @0x8
0x0aba…0acd at0009 = ╱d2╱ TAB ╱ // 0xac3 @0x9
0x0aba…0acd at000a = ╱ed╱ ( ╱ // 0xac4 @0xa
0x0aba…0acd at000b = ╱33╱3╱ // 0xac5 @0xb
0x0aba…0acd at000c = ╱35╱5╱ // 0xac6 @0xc
0x0aba…0acd at000d = ╱f22300╱ // 0xac7 @0xd
0x0aba…0acd at0010 = ╱ee╱ ) ╱ // 0xaca @0x10
0x0aba…0acd at0011 = ╱ea╱ ; ╱ // 0xacb @0x11
0x0aba…0acd at0012 = EOL // 0xacc @0x12
0x0aba…0acd }
0x0acd…0aea a0d8 01260 PRINT USING "#########.##…KR." : PRB
0x0acd…0aea LineComal80 {
0x0acd…0aea ptr = 0xa0d8 // 0xacd @0x0
0x0acd…0aea lno = 0x04ec // 0xacf @0x2
0x0acd…0aea at0004 = ╱92╱ PRINT ╱ // 0xad1 @0x4
0x0acd…0aea at0005 = ╱b9╱ USING ╱ // 0xad2 @0x5
0x0acd…0aea at0006 = ╱22╱"╱ // 0xad3 @0x6
0x0acd…0aea at0007 = ╱23╱#╱ // 0xad4 @0x7
0x0acd…0aea at0008 = ╱23╱#╱ // 0xad5 @0x8
0x0acd…0aea at0009 = ╱23╱#╱ // 0xad6 @0x9
0x0acd…0aea at000a = ╱23╱#╱ // 0xad7 @0xa
0x0acd…0aea at000b = ╱23╱#╱ // 0xad8 @0xb
0x0acd…0aea at000c = ╱23╱#╱ // 0xad9 @0xc
0x0acd…0aea at000d = ╱23╱#╱ // 0xada @0xd
0x0acd…0aea at000e = ╱23╱#╱ // 0xadb @0xe
0x0acd…0aea at000f = ╱23╱#╱ // 0xadc @0xf
0x0acd…0aea at0010 = ╱2e╱.╱ // 0xadd @0x10
0x0acd…0aea at0011 = ╱23╱#╱ // 0xade @0x11
0x0acd…0aea at0012 = ╱23╱#╱ // 0xadf @0x12
0x0acd…0aea at0013 = ╱20╱…╱ // 0xae0 @0x13
0x0acd…0aea at0014 = ╱4b╱K╱ // 0xae1 @0x14
0x0acd…0aea at0015 = ╱52╱R╱ // 0xae2 @0x15
0x0acd…0aea at0016 = ╱2e╱.╱ // 0xae3 @0x16
0x0acd…0aea at0017 = ╱22╱"╱ // 0xae4 @0x17
0x0acd…0aea at0018 = ╱f1╱ : ╱ // 0xae5 @0x18
0x0acd…0aea at0019 = ╱50╱P╱ // 0xae6 @0x19
0x0acd…0aea at001a = ╱52╱R╱ // 0xae7 @0x1a
0x0acd…0aea at001b = ╱42╱B╱ // 0xae8 @0x1b
0x0acd…0aea at001c = EOL // 0xae9 @0x1c
0x0acd…0aea }
0x0aea…0af7 a0e5 01270 ENDPROC LSKRIV2
0x0aea…0af7 LineComal80 {
0x0aea…0af7 ptr = 0xa0e5 // 0xaea @0x0
0x0aea…0af7 lno = 0x04f6 // 0xaec @0x2
0x0aea…0af7 at0004 = ╱9f╱ ENDPROC ╱ // 0xaee @0x4
0x0aea…0af7 at0005 = ╱4c╱L╱ // 0xaef @0x5
0x0aea…0af7 at0006 = ╱53╱S╱ // 0xaf0 @0x6
0x0aea…0af7 at0007 = ╱4b╱K╱ // 0xaf1 @0x7
0x0aea…0af7 at0008 = ╱52╱R╱ // 0xaf2 @0x8
0x0aea…0af7 at0009 = ╱49╱I╱ // 0xaf3 @0x9
0x0aea…0af7 at000a = ╱56╱V╱ // 0xaf4 @0xa
0x0aea…0af7 at000b = ╱32╱2╱ // 0xaf5 @0xb
0x0aea…0af7 at000c = EOL // 0xaf6 @0xc
0x0aea…0af7 }
0x0af7…0b05 a0f3 01280 PROC LSKRIV1
0x0af7…0b05 LineComal80 {
0x0af7…0b05 ptr = 0xa0f3 // 0xaf7 @0x0
0x0af7…0b05 lno = 0x0500 // 0xaf9 @0x2
0x0af7…0b05 at0004 = ╱9e00╱ PROC ╱ // 0xafb @0x4
0x0af7…0b05 at0006 = ╱4c╱L╱ // 0xafd @0x6
0x0af7…0b05 at0007 = ╱53╱S╱ // 0xafe @0x7
0x0af7…0b05 at0008 = ╱4b╱K╱ // 0xaff @0x8
0x0af7…0b05 at0009 = ╱52╱R╱ // 0xb00 @0x9
0x0af7…0b05 at000a = ╱49╱I╱ // 0xb01 @0xa
0x0af7…0b05 at000b = ╱56╱V╱ // 0xb02 @0xb
0x0af7…0b05 at000c = ╱31╱1╱ // 0xb03 @0xc
0x0af7…0b05 at000d = EOL // 0xb04 @0xd
0x0af7…0b05 }
0x0b05…0b11 a0ff 01290 LET PRB := QB
0x0b05…0b11 LineComal80 {
0x0b05…0b11 ptr = 0xa0ff // 0xb05 @0x0
0x0b05…0b11 lno = 0x050a // 0xb07 @0x2
0x0b05…0b11 at0004 = ╱86╱ LET ╱ // 0xb09 @0x4
0x0b05…0b11 at0005 = ╱50╱P╱ // 0xb0a @0x5
0x0b05…0b11 at0006 = ╱52╱R╱ // 0xb0b @0x6
0x0b05…0b11 at0007 = ╱42╱B╱ // 0xb0c @0x7
0x0b05…0b11 at0008 = ╱f0╱ := ╱ // 0xb0d @0x8
0x0b05…0b11 at0009 = ╱51╱Q╱ // 0xb0e @0x9
0x0b05…0b11 at000a = ╱42╱B╱ // 0xb0f @0xa
0x0b05…0b11 at000b = EOL // 0xb10 @0xb
0x0b05…0b11 }
0x0b11…0b24 a112 01300 PRINT QT $ ; TAB ( 35 ) ;
0x0b11…0b24 LineComal80 {
0x0b11…0b24 ptr = 0xa112 // 0xb11 @0x0
0x0b11…0b24 lno = 0x0514 // 0xb13 @0x2
0x0b11…0b24 at0004 = ╱92╱ PRINT ╱ // 0xb15 @0x4
0x0b11…0b24 at0005 = ╱51╱Q╱ // 0xb16 @0x5
0x0b11…0b24 at0006 = ╱54╱T╱ // 0xb17 @0x6
0x0b11…0b24 at0007 = ╱ef╱ $ ╱ // 0xb18 @0x7
0x0b11…0b24 at0008 = ╱ea╱ ; ╱ // 0xb19 @0x8
0x0b11…0b24 at0009 = ╱d2╱ TAB ╱ // 0xb1a @0x9
0x0b11…0b24 at000a = ╱ed╱ ( ╱ // 0xb1b @0xa
0x0b11…0b24 at000b = ╱33╱3╱ // 0xb1c @0xb
0x0b11…0b24 at000c = ╱35╱5╱ // 0xb1d @0xc
0x0b11…0b24 at000d = ╱f22300╱ // 0xb1e @0xd
0x0b11…0b24 at0010 = ╱ee╱ ) ╱ // 0xb21 @0x10
0x0b11…0b24 at0011 = ╱ea╱ ; ╱ // 0xb22 @0x11
0x0b11…0b24 at0012 = EOL // 0xb23 @0x12
0x0b11…0b24 }
0x0b24…0b3e a12c 01310 PRINT USING "#########…KR." : PRB
0x0b24…0b3e LineComal80 {
0x0b24…0b3e ptr = 0xa12c // 0xb24 @0x0
0x0b24…0b3e lno = 0x051e // 0xb26 @0x2
0x0b24…0b3e at0004 = ╱92╱ PRINT ╱ // 0xb28 @0x4
0x0b24…0b3e at0005 = ╱b9╱ USING ╱ // 0xb29 @0x5
0x0b24…0b3e at0006 = ╱22╱"╱ // 0xb2a @0x6
0x0b24…0b3e at0007 = ╱23╱#╱ // 0xb2b @0x7
0x0b24…0b3e at0008 = ╱23╱#╱ // 0xb2c @0x8
0x0b24…0b3e at0009 = ╱23╱#╱ // 0xb2d @0x9
0x0b24…0b3e at000a = ╱23╱#╱ // 0xb2e @0xa
0x0b24…0b3e at000b = ╱23╱#╱ // 0xb2f @0xb
0x0b24…0b3e at000c = ╱23╱#╱ // 0xb30 @0xc
0x0b24…0b3e at000d = ╱23╱#╱ // 0xb31 @0xd
0x0b24…0b3e at000e = ╱23╱#╱ // 0xb32 @0xe
0x0b24…0b3e at000f = ╱23╱#╱ // 0xb33 @0xf
0x0b24…0b3e at0010 = ╱20╱…╱ // 0xb34 @0x10
0x0b24…0b3e at0011 = ╱4b╱K╱ // 0xb35 @0x11
0x0b24…0b3e at0012 = ╱52╱R╱ // 0xb36 @0x12
0x0b24…0b3e at0013 = ╱2e╱.╱ // 0xb37 @0x13
0x0b24…0b3e at0014 = ╱22╱"╱ // 0xb38 @0x14
0x0b24…0b3e at0015 = ╱f1╱ : ╱ // 0xb39 @0x15
0x0b24…0b3e at0016 = ╱50╱P╱ // 0xb3a @0x16
0x0b24…0b3e at0017 = ╱52╱R╱ // 0xb3b @0x17
0x0b24…0b3e at0018 = ╱42╱B╱ // 0xb3c @0x18
0x0b24…0b3e at0019 = EOL // 0xb3d @0x19
0x0b24…0b3e }
0x0b3e…0b4b a139 01320 ENDPROC LSKRIV1
0x0b3e…0b4b LineComal80 {
0x0b3e…0b4b ptr = 0xa139 // 0xb3e @0x0
0x0b3e…0b4b lno = 0x0528 // 0xb40 @0x2
0x0b3e…0b4b at0004 = ╱9f╱ ENDPROC ╱ // 0xb42 @0x4
0x0b3e…0b4b at0005 = ╱4c╱L╱ // 0xb43 @0x5
0x0b3e…0b4b at0006 = ╱53╱S╱ // 0xb44 @0x6
0x0b3e…0b4b at0007 = ╱4b╱K╱ // 0xb45 @0x7
0x0b3e…0b4b at0008 = ╱52╱R╱ // 0xb46 @0x8
0x0b3e…0b4b at0009 = ╱49╱I╱ // 0xb47 @0x9
0x0b3e…0b4b at000a = ╱56╱V╱ // 0xb48 @0xa
0x0b3e…0b4b at000b = ╱31╱1╱ // 0xb49 @0xb
0x0b3e…0b4b at000c = EOL // 0xb4a @0xc
0x0b3e…0b4b }
0x0b4b…0b59 a147 01330 PROC LSKRIV4
0x0b4b…0b59 LineComal80 {
0x0b4b…0b59 ptr = 0xa147 // 0xb4b @0x0
0x0b4b…0b59 lno = 0x0532 // 0xb4d @0x2
0x0b4b…0b59 at0004 = ╱9e00╱ PROC ╱ // 0xb4f @0x4
0x0b4b…0b59 at0006 = ╱4c╱L╱ // 0xb51 @0x6
0x0b4b…0b59 at0007 = ╱53╱S╱ // 0xb52 @0x7
0x0b4b…0b59 at0008 = ╱4b╱K╱ // 0xb53 @0x8
0x0b4b…0b59 at0009 = ╱52╱R╱ // 0xb54 @0x9
0x0b4b…0b59 at000a = ╱49╱I╱ // 0xb55 @0xa
0x0b4b…0b59 at000b = ╱56╱V╱ // 0xb56 @0xb
0x0b4b…0b59 at000c = ╱34╱4╱ // 0xb57 @0xc
0x0b4b…0b59 at000d = EOL // 0xb58 @0xd
0x0b4b…0b59 }
0x0b59…0b65 a153 01340 LET PRB := QB
0x0b59…0b65 LineComal80 {
0x0b59…0b65 ptr = 0xa153 // 0xb59 @0x0
0x0b59…0b65 lno = 0x053c // 0xb5b @0x2
0x0b59…0b65 at0004 = ╱86╱ LET ╱ // 0xb5d @0x4
0x0b59…0b65 at0005 = ╱50╱P╱ // 0xb5e @0x5
0x0b59…0b65 at0006 = ╱52╱R╱ // 0xb5f @0x6
0x0b59…0b65 at0007 = ╱42╱B╱ // 0xb60 @0x7
0x0b59…0b65 at0008 = ╱f0╱ := ╱ // 0xb61 @0x8
0x0b59…0b65 at0009 = ╱51╱Q╱ // 0xb62 @0x9
0x0b59…0b65 at000a = ╱42╱B╱ // 0xb63 @0xa
0x0b59…0b65 at000b = EOL // 0xb64 @0xb
0x0b59…0b65 }
0x0b65…0b78 a166 01350 PRINT QT $ ; TAB ( 35 ) ;
0x0b65…0b78 LineComal80 {
0x0b65…0b78 ptr = 0xa166 // 0xb65 @0x0
0x0b65…0b78 lno = 0x0546 // 0xb67 @0x2
0x0b65…0b78 at0004 = ╱92╱ PRINT ╱ // 0xb69 @0x4
0x0b65…0b78 at0005 = ╱51╱Q╱ // 0xb6a @0x5
0x0b65…0b78 at0006 = ╱54╱T╱ // 0xb6b @0x6
0x0b65…0b78 at0007 = ╱ef╱ $ ╱ // 0xb6c @0x7
0x0b65…0b78 at0008 = ╱ea╱ ; ╱ // 0xb6d @0x8
0x0b65…0b78 at0009 = ╱d2╱ TAB ╱ // 0xb6e @0x9
0x0b65…0b78 at000a = ╱ed╱ ( ╱ // 0xb6f @0xa
0x0b65…0b78 at000b = ╱33╱3╱ // 0xb70 @0xb
0x0b65…0b78 at000c = ╱35╱5╱ // 0xb71 @0xc
0x0b65…0b78 at000d = ╱f22300╱ // 0xb72 @0xd
0x0b65…0b78 at0010 = ╱ee╱ ) ╱ // 0xb75 @0x10
0x0b65…0b78 at0011 = ╱ea╱ ; ╱ // 0xb76 @0x11
0x0b65…0b78 at0012 = EOL // 0xb77 @0x12
0x0b65…0b78 }
0x0b78…0b93 a181 01360 PRINT USING "#########…PCT." : PRB
0x0b78…0b93 LineComal80 {
0x0b78…0b93 ptr = 0xa181 // 0xb78 @0x0
0x0b78…0b93 lno = 0x0550 // 0xb7a @0x2
0x0b78…0b93 at0004 = ╱92╱ PRINT ╱ // 0xb7c @0x4
0x0b78…0b93 at0005 = ╱b9╱ USING ╱ // 0xb7d @0x5
0x0b78…0b93 at0006 = ╱22╱"╱ // 0xb7e @0x6
0x0b78…0b93 at0007 = ╱23╱#╱ // 0xb7f @0x7
0x0b78…0b93 at0008 = ╱23╱#╱ // 0xb80 @0x8
0x0b78…0b93 at0009 = ╱23╱#╱ // 0xb81 @0x9
0x0b78…0b93 at000a = ╱23╱#╱ // 0xb82 @0xa
0x0b78…0b93 at000b = ╱23╱#╱ // 0xb83 @0xb
0x0b78…0b93 at000c = ╱23╱#╱ // 0xb84 @0xc
0x0b78…0b93 at000d = ╱23╱#╱ // 0xb85 @0xd
0x0b78…0b93 at000e = ╱23╱#╱ // 0xb86 @0xe
0x0b78…0b93 at000f = ╱23╱#╱ // 0xb87 @0xf
0x0b78…0b93 at0010 = ╱20╱…╱ // 0xb88 @0x10
0x0b78…0b93 at0011 = ╱50╱P╱ // 0xb89 @0x11
0x0b78…0b93 at0012 = ╱43╱C╱ // 0xb8a @0x12
0x0b78…0b93 at0013 = ╱54╱T╱ // 0xb8b @0x13
0x0b78…0b93 at0014 = ╱2e╱.╱ // 0xb8c @0x14
0x0b78…0b93 at0015 = ╱22╱"╱ // 0xb8d @0x15
0x0b78…0b93 at0016 = ╱f1╱ : ╱ // 0xb8e @0x16
0x0b78…0b93 at0017 = ╱50╱P╱ // 0xb8f @0x17
0x0b78…0b93 at0018 = ╱52╱R╱ // 0xb90 @0x18
0x0b78…0b93 at0019 = ╱42╱B╱ // 0xb91 @0x19
0x0b78…0b93 at001a = EOL // 0xb92 @0x1a
0x0b78…0b93 }
0x0b93…0ba0 a18e 01370 ENDPROC LSKRIV4
0x0b93…0ba0 LineComal80 {
0x0b93…0ba0 ptr = 0xa18e // 0xb93 @0x0
0x0b93…0ba0 lno = 0x055a // 0xb95 @0x2
0x0b93…0ba0 at0004 = ╱9f╱ ENDPROC ╱ // 0xb97 @0x4
0x0b93…0ba0 at0005 = ╱4c╱L╱ // 0xb98 @0x5
0x0b93…0ba0 at0006 = ╱53╱S╱ // 0xb99 @0x6
0x0b93…0ba0 at0007 = ╱4b╱K╱ // 0xb9a @0x7
0x0b93…0ba0 at0008 = ╱52╱R╱ // 0xb9b @0x8
0x0b93…0ba0 at0009 = ╱49╱I╱ // 0xb9c @0x9
0x0b93…0ba0 at000a = ╱56╱V╱ // 0xb9d @0xa
0x0b93…0ba0 at000b = ╱34╱4╱ // 0xb9e @0xb
0x0b93…0ba0 at000c = EOL // 0xb9f @0xc
0x0b93…0ba0 }
0x0ba0…0bab a199 01380 PROC SVAR
0x0ba0…0bab LineComal80 {
0x0ba0…0bab ptr = 0xa199 // 0xba0 @0x0
0x0ba0…0bab lno = 0x0564 // 0xba2 @0x2
0x0ba0…0bab at0004 = ╱9e00╱ PROC ╱ // 0xba4 @0x4
0x0ba0…0bab at0006 = ╱53╱S╱ // 0xba6 @0x6
0x0ba0…0bab at0007 = ╱56╱V╱ // 0xba7 @0x7
0x0ba0…0bab at0008 = ╱41╱A╱ // 0xba8 @0x8
0x0ba0…0bab at0009 = ╱52╱R╱ // 0xba9 @0x9
0x0ba0…0bab at000a = EOL // 0xbaa @0xa
0x0ba0…0bab }
0x0bab…0bb2 a1a0 01390 REPEAT
0x0bab…0bb2 LineComal80 {
0x0bab…0bb2 ptr = 0xa1a0 // 0xbab @0x0
0x0bab…0bb2 lno = 0x056e // 0xbad @0x2
0x0bab…0bb2 at0004 = ╱9700╱ REPEAT ╱ // 0xbaf @0x4
0x0bab…0bb2 at0006 = EOL // 0xbb1 @0x6
0x0bab…0bb2 }
0x0bb2…0bba a1a8 01400 INPUT S $
0x0bb2…0bba LineComal80 {
0x0bb2…0bba ptr = 0xa1a8 // 0xbb2 @0x0
0x0bb2…0bba lno = 0x0578 // 0xbb4 @0x2
0x0bb2…0bba at0004 = ╱91╱ INPUT ╱ // 0xbb6 @0x4
0x0bb2…0bba at0005 = ╱53╱S╱ // 0xbb7 @0x5
0x0bb2…0bba at0006 = ╱ef╱ $ ╱ // 0xbb8 @0x6
0x0bb2…0bba at0007 = EOL // 0xbb9 @0x7
0x0bb2…0bba }
0x0bba…0bcf a1bd 01410 IF S $ = "J" THEN LET S $ := "j"
0x0bba…0bcf LineComal80 {
0x0bba…0bcf ptr = 0xa1bd // 0xbba @0x0
0x0bba…0bcf lno = 0x0582 // 0xbbc @0x2
0x0bba…0bcf at0004 = ╱8200╱ IF ╱ // 0xbbe @0x4
0x0bba…0bcf at0006 = ╱53╱S╱ // 0xbc0 @0x6
0x0bba…0bcf at0007 = ╱ef╱ $ ╱ // 0xbc1 @0x7
0x0bba…0bcf at0008 = ╱df╱ = ╱ // 0xbc2 @0x8
0x0bba…0bcf at0009 = ╱22╱"╱ // 0xbc3 @0x9
0x0bba…0bcf at000a = ╱4a╱J╱ // 0xbc4 @0xa
0x0bba…0bcf at000b = ╱22╱"╱ // 0xbc5 @0xb
0x0bba…0bcf at000c = ╱b5╱ THEN ╱ // 0xbc6 @0xc
0x0bba…0bcf at000d = ╱86╱ LET ╱ // 0xbc7 @0xd
0x0bba…0bcf at000e = ╱53╱S╱ // 0xbc8 @0xe
0x0bba…0bcf at000f = ╱ef╱ $ ╱ // 0xbc9 @0xf
0x0bba…0bcf at0010 = ╱f0╱ := ╱ // 0xbca @0x10
0x0bba…0bcf at0011 = ╱22╱"╱ // 0xbcb @0x11
0x0bba…0bcf at0012 = ╱6a╱j╱ // 0xbcc @0x12
0x0bba…0bcf at0013 = ╱22╱"╱ // 0xbcd @0x13
0x0bba…0bcf at0014 = EOL // 0xbce @0x14
0x0bba…0bcf }
0x0bcf…0be4 a1d2 01420 IF S $ = "N" THEN LET S $ := "n"
0x0bcf…0be4 LineComal80 {
0x0bcf…0be4 ptr = 0xa1d2 // 0xbcf @0x0
0x0bcf…0be4 lno = 0x058c // 0xbd1 @0x2
0x0bcf…0be4 at0004 = ╱8200╱ IF ╱ // 0xbd3 @0x4
0x0bcf…0be4 at0006 = ╱53╱S╱ // 0xbd5 @0x6
0x0bcf…0be4 at0007 = ╱ef╱ $ ╱ // 0xbd6 @0x7
0x0bcf…0be4 at0008 = ╱df╱ = ╱ // 0xbd7 @0x8
0x0bcf…0be4 at0009 = ╱22╱"╱ // 0xbd8 @0x9
0x0bcf…0be4 at000a = ╱4e╱N╱ // 0xbd9 @0xa
0x0bcf…0be4 at000b = ╱22╱"╱ // 0xbda @0xb
0x0bcf…0be4 at000c = ╱b5╱ THEN ╱ // 0xbdb @0xc
0x0bcf…0be4 at000d = ╱86╱ LET ╱ // 0xbdc @0xd
0x0bcf…0be4 at000e = ╱53╱S╱ // 0xbdd @0xe
0x0bcf…0be4 at000f = ╱ef╱ $ ╱ // 0xbde @0xf
0x0bcf…0be4 at0010 = ╱f0╱ := ╱ // 0xbdf @0x10
0x0bcf…0be4 at0011 = ╱22╱"╱ // 0xbe0 @0x11
0x0bcf…0be4 at0012 = ╱6e╱n╱ // 0xbe1 @0x12
0x0bcf…0be4 at0013 = ╱22╱"╱ // 0xbe2 @0x13
0x0bcf…0be4 at0014 = EOL // 0xbe3 @0x14
0x0bcf…0be4 }
0x0be4…0bf9 a1e7 01430 IF $ = "Q" OR S $ = "q" THEN
0x0be4…0bf9 LineComal80 {
0x0be4…0bf9 ptr = 0xa1e7 // 0xbe4 @0x0
0x0be4…0bf9 lno = 0x0596 // 0xbe6 @0x2
0x0be4…0bf9 at0004 = ╱9b0053╱ IF ╱ // 0xbe8 @0x4
0x0be4…0bf9 at0007 = ╱ef╱ $ ╱ // 0xbeb @0x7
0x0be4…0bf9 at0008 = ╱df╱ = ╱ // 0xbec @0x8
0x0be4…0bf9 at0009 = ╱22╱"╱ // 0xbed @0x9
0x0be4…0bf9 at000a = ╱51╱Q╱ // 0xbee @0xa
0x0be4…0bf9 at000b = ╱22╱"╱ // 0xbef @0xb
0x0be4…0bf9 at000c = ╱d8╱ OR ╱ // 0xbf0 @0xc
0x0be4…0bf9 at000d = ╱53╱S╱ // 0xbf1 @0xd
0x0be4…0bf9 at000e = ╱ef╱ $ ╱ // 0xbf2 @0xe
0x0be4…0bf9 at000f = ╱df╱ = ╱ // 0xbf3 @0xf
0x0be4…0bf9 at0010 = ╱22╱"╱ // 0xbf4 @0x10
0x0be4…0bf9 at0011 = ╱71╱q╱ // 0xbf5 @0x11
0x0be4…0bf9 at0012 = ╱22╱"╱ // 0xbf6 @0x12
0x0be4…0bf9 at0013 = ╱b5╱ THEN ╱ // 0xbf7 @0x13
0x0be4…0bf9 at0014 = EOL // 0xbf8 @0x14
0x0be4…0bf9 }
0x0bf9…0c3a a228 01440 PRINT "Programmet…kan…kun…afsluttes…fra…hovedprogrammet." ; CHR$ ( 7 )
0x0bf9…0c3a LineComal80 {
0x0bf9…0c3a ptr = 0xa228 // 0xbf9 @0x0
0x0bf9…0c3a lno = 0x05a0 // 0xbfb @0x2
0x0bf9…0c3a at0004 = ╱92╱ PRINT ╱ // 0xbfd @0x4
0x0bf9…0c3a at0005 = ╱22╱"╱ // 0xbfe @0x5
0x0bf9…0c3a at0006 = ╱50╱P╱ // 0xbff @0x6
0x0bf9…0c3a at0007 = ╱72╱r╱ // 0xc00 @0x7
0x0bf9…0c3a at0008 = ╱6f╱o╱ // 0xc01 @0x8
0x0bf9…0c3a at0009 = ╱67╱g╱ // 0xc02 @0x9
0x0bf9…0c3a at000a = ╱72╱r╱ // 0xc03 @0xa
0x0bf9…0c3a at000b = ╱61╱a╱ // 0xc04 @0xb
0x0bf9…0c3a at000c = ╱6d╱m╱ // 0xc05 @0xc
0x0bf9…0c3a at000d = ╱6d╱m╱ // 0xc06 @0xd
0x0bf9…0c3a at000e = ╱65╱e╱ // 0xc07 @0xe
0x0bf9…0c3a at000f = ╱74╱t╱ // 0xc08 @0xf
0x0bf9…0c3a at0010 = ╱20╱…╱ // 0xc09 @0x10
0x0bf9…0c3a at0011 = ╱6b╱k╱ // 0xc0a @0x11
0x0bf9…0c3a at0012 = ╱61╱a╱ // 0xc0b @0x12
0x0bf9…0c3a at0013 = ╱6e╱n╱ // 0xc0c @0x13
0x0bf9…0c3a at0014 = ╱20╱…╱ // 0xc0d @0x14
0x0bf9…0c3a at0015 = ╱6b╱k╱ // 0xc0e @0x15
0x0bf9…0c3a at0016 = ╱75╱u╱ // 0xc0f @0x16
0x0bf9…0c3a at0017 = ╱6e╱n╱ // 0xc10 @0x17
0x0bf9…0c3a at0018 = ╱20╱…╱ // 0xc11 @0x18
0x0bf9…0c3a at0019 = ╱61╱a╱ // 0xc12 @0x19
0x0bf9…0c3a at001a = ╱66╱f╱ // 0xc13 @0x1a
0x0bf9…0c3a at001b = ╱73╱s╱ // 0xc14 @0x1b
0x0bf9…0c3a at001c = ╱6c╱l╱ // 0xc15 @0x1c
0x0bf9…0c3a at001d = ╱75╱u╱ // 0xc16 @0x1d
0x0bf9…0c3a at001e = ╱74╱t╱ // 0xc17 @0x1e
0x0bf9…0c3a at001f = ╱74╱t╱ // 0xc18 @0x1f
0x0bf9…0c3a at0020 = ╱65╱e╱ // 0xc19 @0x20
0x0bf9…0c3a at0021 = ╱73╱s╱ // 0xc1a @0x21
0x0bf9…0c3a at0022 = ╱20╱…╱ // 0xc1b @0x22
0x0bf9…0c3a at0023 = ╱66╱f╱ // 0xc1c @0x23
0x0bf9…0c3a at0024 = ╱72╱r╱ // 0xc1d @0x24
0x0bf9…0c3a at0025 = ╱61╱a╱ // 0xc1e @0x25
0x0bf9…0c3a at0026 = ╱20╱…╱ // 0xc1f @0x26
0x0bf9…0c3a at0027 = ╱68╱h╱ // 0xc20 @0x27
0x0bf9…0c3a at0028 = ╱6f╱o╱ // 0xc21 @0x28
0x0bf9…0c3a at0029 = ╱76╱v╱ // 0xc22 @0x29
0x0bf9…0c3a at002a = ╱65╱e╱ // 0xc23 @0x2a
0x0bf9…0c3a at002b = ╱64╱d╱ // 0xc24 @0x2b
0x0bf9…0c3a at002c = ╱70╱p╱ // 0xc25 @0x2c
0x0bf9…0c3a at002d = ╱72╱r╱ // 0xc26 @0x2d
0x0bf9…0c3a at002e = ╱6f╱o╱ // 0xc27 @0x2e
0x0bf9…0c3a at002f = ╱67╱g╱ // 0xc28 @0x2f
0x0bf9…0c3a at0030 = ╱72╱r╱ // 0xc29 @0x30
0x0bf9…0c3a at0031 = ╱61╱a╱ // 0xc2a @0x31
0x0bf9…0c3a at0032 = ╱6d╱m╱ // 0xc2b @0x32
0x0bf9…0c3a at0033 = ╱6d╱m╱ // 0xc2c @0x33
0x0bf9…0c3a at0034 = ╱65╱e╱ // 0xc2d @0x34
0x0bf9…0c3a at0035 = ╱74╱t╱ // 0xc2e @0x35
0x0bf9…0c3a at0036 = ╱2e╱.╱ // 0xc2f @0x36
0x0bf9…0c3a at0037 = ╱22╱"╱ // 0xc30 @0x37
0x0bf9…0c3a at0038 = ╱ea╱ ; ╱ // 0xc31 @0x38
0x0bf9…0c3a at0039 = ╱d0╱ CHR$ ╱ // 0xc32 @0x39
0x0bf9…0c3a at003a = ╱ed╱ ( ╱ // 0xc33 @0x3a
0x0bf9…0c3a at003b = ╱37╱7╱ // 0xc34 @0x3b
0x0bf9…0c3a at003c = ╱f20700╱ // 0xc35 @0x3c
0x0bf9…0c3a at003f = ╱ee╱ ) ╱ // 0xc38 @0x3f
0x0bf9…0c3a at0040 = EOL // 0xc39 @0x40
0x0bf9…0c3a }
0x0c3a…0c40 a22e 01450 ENDIF
0x0c3a…0c40 LineComal80 {
0x0c3a…0c40 ptr = 0xa22e // 0xc3a @0x0
0x0c3a…0c40 lno = 0x05aa // 0xc3c @0x2
0x0c3a…0c40 at0004 = ╱9c╱ ENDIF ╱ // 0xc3e @0x4
0x0c3a…0c40 at0005 = EOL // 0xc3f @0x5
0x0c3a…0c40 }
0x0c40…0c53 a241 01460 UNTIL S $ = "j" OR S $ = "n"
0x0c40…0c53 LineComal80 {
0x0c40…0c53 ptr = 0xa241 // 0xc40 @0x0
0x0c40…0c53 lno = 0x05b4 // 0xc42 @0x2
0x0c40…0c53 at0004 = ╱98╱ UNTIL ╱ // 0xc44 @0x4
0x0c40…0c53 at0005 = ╱53╱S╱ // 0xc45 @0x5
0x0c40…0c53 at0006 = ╱ef╱ $ ╱ // 0xc46 @0x6
0x0c40…0c53 at0007 = ╱df╱ = ╱ // 0xc47 @0x7
0x0c40…0c53 at0008 = ╱22╱"╱ // 0xc48 @0x8
0x0c40…0c53 at0009 = ╱6a╱j╱ // 0xc49 @0x9
0x0c40…0c53 at000a = ╱22╱"╱ // 0xc4a @0xa
0x0c40…0c53 at000b = ╱d8╱ OR ╱ // 0xc4b @0xb
0x0c40…0c53 at000c = ╱53╱S╱ // 0xc4c @0xc
0x0c40…0c53 at000d = ╱ef╱ $ ╱ // 0xc4d @0xd
0x0c40…0c53 at000e = ╱df╱ = ╱ // 0xc4e @0xe
0x0c40…0c53 at000f = ╱22╱"╱ // 0xc4f @0xf
0x0c40…0c53 at0010 = ╱6e╱n╱ // 0xc50 @0x10
0x0c40…0c53 at0011 = ╱22╱"╱ // 0xc51 @0x11
0x0c40…0c53 at0012 = EOL // 0xc52 @0x12
0x0c40…0c53 }
0x0c53…0c5c a24a 01470 PRINT LI $
0x0c53…0c5c LineComal80 {
0x0c53…0c5c ptr = 0xa24a // 0xc53 @0x0
0x0c53…0c5c lno = 0x05be // 0xc55 @0x2
0x0c53…0c5c at0004 = ╱92╱ PRINT ╱ // 0xc57 @0x4
0x0c53…0c5c at0005 = ╱4c╱L╱ // 0xc58 @0x5
0x0c53…0c5c at0006 = ╱49╱I╱ // 0xc59 @0x6
0x0c53…0c5c at0007 = ╱ef╱ $ ╱ // 0xc5a @0x7
0x0c53…0c5c at0008 = EOL // 0xc5b @0x8
0x0c53…0c5c }
0x0c5c…0c66 a254 01480 ENDPROC SVAR
0x0c5c…0c66 LineComal80 {
0x0c5c…0c66 ptr = 0xa254 // 0xc5c @0x0
0x0c5c…0c66 lno = 0x05c8 // 0xc5e @0x2
0x0c5c…0c66 at0004 = ╱9f╱ ENDPROC ╱ // 0xc60 @0x4
0x0c5c…0c66 at0005 = ╱53╱S╱ // 0xc61 @0x5
0x0c5c…0c66 at0006 = ╱56╱V╱ // 0xc62 @0x6
0x0c5c…0c66 at0007 = ╱41╱A╱ // 0xc63 @0x7
0x0c5c…0c66 at0008 = ╱52╱R╱ // 0xc64 @0x8
0x0c5c…0c66 at0009 = EOL // 0xc65 @0x9
0x0c5c…0c66 }
0x0c66…0c73 a261 01490 PROC LSKRIV
0x0c66…0c73 LineComal80 {
0x0c66…0c73 ptr = 0xa261 // 0xc66 @0x0
0x0c66…0c73 lno = 0x05d2 // 0xc68 @0x2
0x0c66…0c73 at0004 = ╱9e00╱ PROC ╱ // 0xc6a @0x4
0x0c66…0c73 at0006 = ╱4c╱L╱ // 0xc6c @0x6
0x0c66…0c73 at0007 = ╱53╱S╱ // 0xc6d @0x7
0x0c66…0c73 at0008 = ╱4b╱K╱ // 0xc6e @0x8
0x0c66…0c73 at0009 = ╱52╱R╱ // 0xc6f @0x9
0x0c66…0c73 at000a = ╱49╱I╱ // 0xc70 @0xa
0x0c66…0c73 at000b = ╱56╱V╱ // 0xc71 @0xb
0x0c66…0c73 at000c = EOL // 0xc72 @0xc
0x0c66…0c73 }
0x0c73…0c79 a267 01500 PRINT
0x0c73…0c79 LineComal80 {
0x0c73…0c79 ptr = 0xa267 // 0xc73 @0x0
0x0c73…0c79 lno = 0x05dc // 0xc75 @0x2
0x0c73…0c79 at0004 = ╱92╱ PRINT ╱ // 0xc77 @0x4
0x0c73…0c79 at0005 = EOL // 0xc78 @0x5
0x0c73…0c79 }
0x0c79…0c85 a273 01510 ENDPROC LSKRIV
0x0c79…0c85 LineComal80 {
0x0c79…0c85 ptr = 0xa273 // 0xc79 @0x0
0x0c79…0c85 lno = 0x05e6 // 0xc7b @0x2
0x0c79…0c85 at0004 = ╱9f╱ ENDPROC ╱ // 0xc7d @0x4
0x0c79…0c85 at0005 = ╱4c╱L╱ // 0xc7e @0x5
0x0c79…0c85 at0006 = ╱53╱S╱ // 0xc7f @0x6
0x0c79…0c85 at0007 = ╱4b╱K╱ // 0xc80 @0x7
0x0c79…0c85 at0008 = ╱52╱R╱ // 0xc81 @0x8
0x0c79…0c85 at0009 = ╱49╱I╱ // 0xc82 @0x9
0x0c79…0c85 at000a = ╱56╱V╱ // 0xc83 @0xa
0x0c79…0c85 at000b = EOL // 0xc84 @0xb
0x0c79…0c85 }
0x0c85…0c93 a281 01520 PROC LSKRIV3
0x0c85…0c93 LineComal80 {
0x0c85…0c93 ptr = 0xa281 // 0xc85 @0x0
0x0c85…0c93 lno = 0x05f0 // 0xc87 @0x2
0x0c85…0c93 at0004 = ╱9e00╱ PROC ╱ // 0xc89 @0x4
0x0c85…0c93 at0006 = ╱4c╱L╱ // 0xc8b @0x6
0x0c85…0c93 at0007 = ╱53╱S╱ // 0xc8c @0x7
0x0c85…0c93 at0008 = ╱4b╱K╱ // 0xc8d @0x8
0x0c85…0c93 at0009 = ╱52╱R╱ // 0xc8e @0x9
0x0c85…0c93 at000a = ╱49╱I╱ // 0xc8f @0xa
0x0c85…0c93 at000b = ╱56╱V╱ // 0xc90 @0xb
0x0c85…0c93 at000c = ╱33╱3╱ // 0xc91 @0xc
0x0c85…0c93 at000d = EOL // 0xc92 @0xd
0x0c85…0c93 }
0x0c93…0c9c a28a 01530 PRINT QT $
0x0c93…0c9c LineComal80 {
0x0c93…0c9c ptr = 0xa28a // 0xc93 @0x0
0x0c93…0c9c lno = 0x05fa // 0xc95 @0x2
0x0c93…0c9c at0004 = ╱92╱ PRINT ╱ // 0xc97 @0x4
0x0c93…0c9c at0005 = ╱51╱Q╱ // 0xc98 @0x5
0x0c93…0c9c at0006 = ╱54╱T╱ // 0xc99 @0x6
0x0c93…0c9c at0007 = ╱ef╱ $ ╱ // 0xc9a @0x7
0x0c93…0c9c at0008 = EOL // 0xc9b @0x8
0x0c93…0c9c }
0x0c9c…0ca9 a297 01540 ENDPROC LSKRIV3
0x0c9c…0ca9 LineComal80 {
0x0c9c…0ca9 ptr = 0xa297 // 0xc9c @0x0
0x0c9c…0ca9 lno = 0x0604 // 0xc9e @0x2
0x0c9c…0ca9 at0004 = ╱9f╱ ENDPROC ╱ // 0xca0 @0x4
0x0c9c…0ca9 at0005 = ╱4c╱L╱ // 0xca1 @0x5
0x0c9c…0ca9 at0006 = ╱53╱S╱ // 0xca2 @0x6
0x0c9c…0ca9 at0007 = ╱4b╱K╱ // 0xca3 @0x7
0x0c9c…0ca9 at0008 = ╱52╱R╱ // 0xca4 @0x8
0x0c9c…0ca9 at0009 = ╱49╱I╱ // 0xca5 @0x9
0x0c9c…0ca9 at000a = ╱56╱V╱ // 0xca6 @0xa
0x0c9c…0ca9 at000b = ╱33╱3╱ // 0xca7 @0xb
0x0c9c…0ca9 at000c = EOL // 0xca8 @0xc
0x0c9c…0ca9 }
0x0ca9…0cb6 a2a4 01550 PROC REGN12
0x0ca9…0cb6 LineComal80 {
0x0ca9…0cb6 ptr = 0xa2a4 // 0xca9 @0x0
0x0ca9…0cb6 lno = 0x060e // 0xcab @0x2
0x0ca9…0cb6 at0004 = ╱9e00╱ PROC ╱ // 0xcad @0x4
0x0ca9…0cb6 at0006 = ╱52╱R╱ // 0xcaf @0x6
0x0ca9…0cb6 at0007 = ╱45╱E╱ // 0xcb0 @0x7
0x0ca9…0cb6 at0008 = ╱47╱G╱ // 0xcb1 @0x8
0x0ca9…0cb6 at0009 = ╱4e╱N╱ // 0xcb2 @0x9
0x0ca9…0cb6 at000a = ╱31╱1╱ // 0xcb3 @0xa
0x0ca9…0cb6 at000b = ╱32╱2╱ // 0xcb4 @0xb
0x0ca9…0cb6 at000c = EOL // 0xcb5 @0xc
0x0ca9…0cb6 }
0x0cb6…0d0d a2fb 01560 LET Z := 0 ; AIH := 0 ; ASQ := 0 ; PCT := 0 ; BSK := 0 ; MAX := 0 ; FR := 0 ; BSKF := 0 ; NYRATE := 1
0x0cb6…0d0d LineComal80 {
0x0cb6…0d0d ptr = 0xa2fb // 0xcb6 @0x0
0x0cb6…0d0d lno = 0x0618 // 0xcb8 @0x2
0x0cb6…0d0d at0004 = ╱86╱ LET ╱ // 0xcba @0x4
0x0cb6…0d0d at0005 = ╱5a╱Z╱ // 0xcbb @0x5
0x0cb6…0d0d at0006 = ╱f0╱ := ╱ // 0xcbc @0x6
0x0cb6…0d0d at0007 = ╱30╱0╱ // 0xcbd @0x7
0x0cb6…0d0d at0008 = ╱f20000╱ // 0xcbe @0x8
0x0cb6…0d0d at000b = ╱ea╱ ; ╱ // 0xcc1 @0xb
0x0cb6…0d0d at000c = ╱41╱A╱ // 0xcc2 @0xc
0x0cb6…0d0d at000d = ╱49╱I╱ // 0xcc3 @0xd
0x0cb6…0d0d at000e = ╱48╱H╱ // 0xcc4 @0xe
0x0cb6…0d0d at000f = ╱f0╱ := ╱ // 0xcc5 @0xf
0x0cb6…0d0d at0010 = ╱30╱0╱ // 0xcc6 @0x10
0x0cb6…0d0d at0011 = ╱f20000╱ // 0xcc7 @0x11
0x0cb6…0d0d at0014 = ╱ea╱ ; ╱ // 0xcca @0x14
0x0cb6…0d0d at0015 = ╱41╱A╱ // 0xccb @0x15
0x0cb6…0d0d at0016 = ╱53╱S╱ // 0xccc @0x16
0x0cb6…0d0d at0017 = ╱51╱Q╱ // 0xccd @0x17
0x0cb6…0d0d at0018 = ╱f0╱ := ╱ // 0xcce @0x18
0x0cb6…0d0d at0019 = ╱30╱0╱ // 0xccf @0x19
0x0cb6…0d0d at001a = ╱f20000╱ // 0xcd0 @0x1a
0x0cb6…0d0d at001d = ╱ea╱ ; ╱ // 0xcd3 @0x1d
0x0cb6…0d0d at001e = ╱50╱P╱ // 0xcd4 @0x1e
0x0cb6…0d0d at001f = ╱43╱C╱ // 0xcd5 @0x1f
0x0cb6…0d0d at0020 = ╱54╱T╱ // 0xcd6 @0x20
0x0cb6…0d0d at0021 = ╱f0╱ := ╱ // 0xcd7 @0x21
0x0cb6…0d0d at0022 = ╱30╱0╱ // 0xcd8 @0x22
0x0cb6…0d0d at0023 = ╱f20000╱ // 0xcd9 @0x23
0x0cb6…0d0d at0026 = ╱ea╱ ; ╱ // 0xcdc @0x26
0x0cb6…0d0d at0027 = ╱42╱B╱ // 0xcdd @0x27
0x0cb6…0d0d at0028 = ╱53╱S╱ // 0xcde @0x28
0x0cb6…0d0d at0029 = ╱4b╱K╱ // 0xcdf @0x29
0x0cb6…0d0d at002a = ╱f0╱ := ╱ // 0xce0 @0x2a
0x0cb6…0d0d at002b = ╱30╱0╱ // 0xce1 @0x2b
0x0cb6…0d0d at002c = ╱f20000╱ // 0xce2 @0x2c
0x0cb6…0d0d at002f = ╱ea╱ ; ╱ // 0xce5 @0x2f
0x0cb6…0d0d at0030 = ╱4d╱M╱ // 0xce6 @0x30
0x0cb6…0d0d at0031 = ╱41╱A╱ // 0xce7 @0x31
0x0cb6…0d0d at0032 = ╱58╱X╱ // 0xce8 @0x32
0x0cb6…0d0d at0033 = ╱f0╱ := ╱ // 0xce9 @0x33
0x0cb6…0d0d at0034 = ╱30╱0╱ // 0xcea @0x34
0x0cb6…0d0d at0035 = ╱f20000╱ // 0xceb @0x35
0x0cb6…0d0d at0038 = ╱ea╱ ; ╱ // 0xcee @0x38
0x0cb6…0d0d at0039 = ╱46╱F╱ // 0xcef @0x39
0x0cb6…0d0d at003a = ╱52╱R╱ // 0xcf0 @0x3a
0x0cb6…0d0d at003b = ╱f0╱ := ╱ // 0xcf1 @0x3b
0x0cb6…0d0d at003c = ╱30╱0╱ // 0xcf2 @0x3c
0x0cb6…0d0d at003d = ╱f20000╱ // 0xcf3 @0x3d
0x0cb6…0d0d at0040 = ╱ea╱ ; ╱ // 0xcf6 @0x40
0x0cb6…0d0d at0041 = ╱42╱B╱ // 0xcf7 @0x41
0x0cb6…0d0d at0042 = ╱53╱S╱ // 0xcf8 @0x42
0x0cb6…0d0d at0043 = ╱4b╱K╱ // 0xcf9 @0x43
0x0cb6…0d0d at0044 = ╱46╱F╱ // 0xcfa @0x44
0x0cb6…0d0d at0045 = ╱f0╱ := ╱ // 0xcfb @0x45
0x0cb6…0d0d at0046 = ╱30╱0╱ // 0xcfc @0x46
0x0cb6…0d0d at0047 = ╱f20000╱ // 0xcfd @0x47
0x0cb6…0d0d at004a = ╱ea╱ ; ╱ // 0xd00 @0x4a
0x0cb6…0d0d at004b = ╱4e╱N╱ // 0xd01 @0x4b
0x0cb6…0d0d at004c = ╱59╱Y╱ // 0xd02 @0x4c
0x0cb6…0d0d at004d = ╱52╱R╱ // 0xd03 @0x4d
0x0cb6…0d0d at004e = ╱41╱A╱ // 0xd04 @0x4e
0x0cb6…0d0d at004f = ╱54╱T╱ // 0xd05 @0x4f
0x0cb6…0d0d at0050 = ╱45╱E╱ // 0xd06 @0x50
0x0cb6…0d0d at0051 = ╱f0╱ := ╱ // 0xd07 @0x51
0x0cb6…0d0d at0052 = ╱31╱1╱ // 0xd08 @0x52
0x0cb6…0d0d at0053 = ╱f20100╱ // 0xd09 @0x53
0x0cb6…0d0d at0056 = EOL // 0xd0c @0x56
0x0cb6…0d0d }
0x0d0d…0d21 a30f 01570 LET RESTRATE := 10
0x0d0d…0d21 LineComal80 {
0x0d0d…0d21 ptr = 0xa30f // 0xd0d @0x0
0x0d0d…0d21 lno = 0x0622 // 0xd0f @0x2
0x0d0d…0d21 at0004 = ╱86╱ LET ╱ // 0xd11 @0x4
0x0d0d…0d21 at0005 = ╱52╱R╱ // 0xd12 @0x5
0x0d0d…0d21 at0006 = ╱45╱E╱ // 0xd13 @0x6
0x0d0d…0d21 at0007 = ╱53╱S╱ // 0xd14 @0x7
0x0d0d…0d21 at0008 = ╱54╱T╱ // 0xd15 @0x8
0x0d0d…0d21 at0009 = ╱52╱R╱ // 0xd16 @0x9
0x0d0d…0d21 at000a = ╱41╱A╱ // 0xd17 @0xa
0x0d0d…0d21 at000b = ╱54╱T╱ // 0xd18 @0xb
0x0d0d…0d21 at000c = ╱45╱E╱ // 0xd19 @0xc
0x0d0d…0d21 at000d = ╱f0╱ := ╱ // 0xd1a @0xd
0x0d0d…0d21 at000e = ╱31╱1╱ // 0xd1b @0xe
0x0d0d…0d21 at000f = ╱30╱0╱ // 0xd1c @0xf
0x0d0d…0d21 at0010 = ╱f20a00╱ // 0xd1d @0x10
0x0d0d…0d21 at0013 = EOL // 0xd20 @0x13
0x0d0d…0d21 }
0x0d21…0d2d a31b 01580 ENDPROC REGN12
0x0d21…0d2d LineComal80 {
0x0d21…0d2d ptr = 0xa31b // 0xd21 @0x0
0x0d21…0d2d lno = 0x062c // 0xd23 @0x2
0x0d21…0d2d at0004 = ╱9f╱ ENDPROC ╱ // 0xd25 @0x4
0x0d21…0d2d at0005 = ╱52╱R╱ // 0xd26 @0x5
0x0d21…0d2d at0006 = ╱45╱E╱ // 0xd27 @0x6
0x0d21…0d2d at0007 = ╱47╱G╱ // 0xd28 @0x7
0x0d21…0d2d at0008 = ╱4e╱N╱ // 0xd29 @0x8
0x0d21…0d2d at0009 = ╱31╱1╱ // 0xd2a @0x9
0x0d21…0d2d at000a = ╱32╱2╱ // 0xd2b @0xa
0x0d21…0d2d at000b = EOL // 0xd2c @0xb
0x0d21…0d2d }
0x0d2d…0d3c a32a 01590 PROC INDASKAT
0x0d2d…0d3c LineComal80 {
0x0d2d…0d3c ptr = 0xa32a // 0xd2d @0x0
0x0d2d…0d3c lno = 0x0636 // 0xd2f @0x2
0x0d2d…0d3c at0004 = ╱9e00╱ PROC ╱ // 0xd31 @0x4
0x0d2d…0d3c at0006 = ╱49╱I╱ // 0xd33 @0x6
0x0d2d…0d3c at0007 = ╱4e╱N╱ // 0xd34 @0x7
0x0d2d…0d3c at0008 = ╱44╱D╱ // 0xd35 @0x8
0x0d2d…0d3c at0009 = ╱41╱A╱ // 0xd36 @0x9
0x0d2d…0d3c at000a = ╱53╱S╱ // 0xd37 @0xa
0x0d2d…0d3c at000b = ╱4b╱K╱ // 0xd38 @0xb
0x0d2d…0d3c at000c = ╱41╱A╱ // 0xd39 @0xc
0x0d2d…0d3c at000d = ╱54╱T╱ // 0xd3a @0xd
0x0d2d…0d3c at000e = EOL // 0xd3b @0xe
0x0d2d…0d3c }
0x0d3c…0d55 (44,) a343 01600 IF >< 1 AND FSLUT >< 1 THEN
0x0d3c…0d55 LineComal80 {
0x0d3c…0d55 ptr = 0xa343 // 0xd3c @0x0
0x0d3c…0d55 lno = 0x0640 // 0xd3e @0x2
0x0d3c…0d55 at0004 = ╱9b0047╱ IF ╱ // 0xd40 @0x4
0x0d3c…0d55 at0007 = ╱e4╱ >< ╱ // 0xd43 @0x7
0x0d3c…0d55 at0008 = ╱31╱1╱ // 0xd44 @0x8
0x0d3c…0d55 at0009 = ╱f20100╱ // 0xd45 @0x9
0x0d3c…0d55 at000c = ╱d9╱ AND ╱ // 0xd48 @0xc
0x0d3c…0d55 at000d = ╱46╱F╱ // 0xd49 @0xd
0x0d3c…0d55 at000e = ╱53╱S╱ // 0xd4a @0xe
0x0d3c…0d55 at000f = ╱4c╱L╱ // 0xd4b @0xf
0x0d3c…0d55 at0010 = ╱55╱U╱ // 0xd4c @0x10
0x0d3c…0d55 at0011 = ╱54╱T╱ // 0xd4d @0x11
0x0d3c…0d55 at0012 = ╱e4╱ >< ╱ // 0xd4e @0x12
0x0d3c…0d55 at0013 = ╱31╱1╱ // 0xd4f @0x13
0x0d3c…0d55 at0014 = ╱f20100╱ // 0xd50 @0x14
0x0d3c…0d55 at0017 = ╱b5╱ THEN ╱ // 0xd53 @0x17
0x0d3c…0d55 at0018 = EOL // 0xd54 @0x18
0x0d3c…0d55 }
0x0d55…0d64 a352 01610 IF I >< 0 THEN
0x0d55…0d64 LineComal80 {
0x0d55…0d64 ptr = 0xa352 // 0xd55 @0x0
0x0d55…0d64 lno = 0x064a // 0xd57 @0x2
0x0d55…0d64 at0004 = ╱9b0041╱ IF ╱ // 0xd59 @0x4
0x0d55…0d64 at0007 = ╱49╱I╱ // 0xd5c @0x7
0x0d55…0d64 at0008 = ╱e4╱ >< ╱ // 0xd5d @0x8
0x0d55…0d64 at0009 = ╱30╱0╱ // 0xd5e @0x9
0x0d55…0d64 at000a = ╱f20000╱ // 0xd5f @0xa
0x0d55…0d64 at000d = ╱b5╱ THEN ╱ // 0xd62 @0xd
0x0d55…0d64 at000e = EOL // 0xd63 @0xe
0x0d55…0d64 }
0x0d64…0da7 a395 01620 INPUT "Skriv…A-indkomst…(l|n)…fra…1.…januar…til…{ndringsdato:…" : AIH
0x0d64…0da7 LineComal80 {
0x0d64…0da7 ptr = 0xa395 // 0xd64 @0x0
0x0d64…0da7 lno = 0x0654 // 0xd66 @0x2
0x0d64…0da7 at0004 = ╱91╱ INPUT ╱ // 0xd68 @0x4
0x0d64…0da7 at0005 = ╱22╱"╱ // 0xd69 @0x5
0x0d64…0da7 at0006 = ╱53╱S╱ // 0xd6a @0x6
0x0d64…0da7 at0007 = ╱6b╱k╱ // 0xd6b @0x7
0x0d64…0da7 at0008 = ╱72╱r╱ // 0xd6c @0x8
0x0d64…0da7 at0009 = ╱69╱i╱ // 0xd6d @0x9
0x0d64…0da7 at000a = ╱76╱v╱ // 0xd6e @0xa
0x0d64…0da7 at000b = ╱20╱…╱ // 0xd6f @0xb
0x0d64…0da7 at000c = ╱41╱A╱ // 0xd70 @0xc
0x0d64…0da7 at000d = ╱2d╱-╱ // 0xd71 @0xd
0x0d64…0da7 at000e = ╱69╱i╱ // 0xd72 @0xe
0x0d64…0da7 at000f = ╱6e╱n╱ // 0xd73 @0xf
0x0d64…0da7 at0010 = ╱64╱d╱ // 0xd74 @0x10
0x0d64…0da7 at0011 = ╱6b╱k╱ // 0xd75 @0x11
0x0d64…0da7 at0012 = ╱6f╱o╱ // 0xd76 @0x12
0x0d64…0da7 at0013 = ╱6d╱m╱ // 0xd77 @0x13
0x0d64…0da7 at0014 = ╱73╱s╱ // 0xd78 @0x14
0x0d64…0da7 at0015 = ╱74╱t╱ // 0xd79 @0x15
0x0d64…0da7 at0016 = ╱20╱…╱ // 0xd7a @0x16
0x0d64…0da7 at0017 = ╱28╱(╱ // 0xd7b @0x17
0x0d64…0da7 at0018 = ╱6c╱l╱ // 0xd7c @0x18
0x0d64…0da7 at0019 = ╱7c╱|╱ // 0xd7d @0x19
0x0d64…0da7 at001a = ╱6e╱n╱ // 0xd7e @0x1a
0x0d64…0da7 at001b = ╱29╱)╱ // 0xd7f @0x1b
0x0d64…0da7 at001c = ╱20╱…╱ // 0xd80 @0x1c
0x0d64…0da7 at001d = ╱66╱f╱ // 0xd81 @0x1d
0x0d64…0da7 at001e = ╱72╱r╱ // 0xd82 @0x1e
0x0d64…0da7 at001f = ╱61╱a╱ // 0xd83 @0x1f
0x0d64…0da7 at0020 = ╱20╱…╱ // 0xd84 @0x20
0x0d64…0da7 at0021 = ╱31╱1╱ // 0xd85 @0x21
0x0d64…0da7 at0022 = ╱2e╱.╱ // 0xd86 @0x22
0x0d64…0da7 at0023 = ╱20╱…╱ // 0xd87 @0x23
0x0d64…0da7 at0024 = ╱6a╱j╱ // 0xd88 @0x24
0x0d64…0da7 at0025 = ╱61╱a╱ // 0xd89 @0x25
0x0d64…0da7 at0026 = ╱6e╱n╱ // 0xd8a @0x26
0x0d64…0da7 at0027 = ╱75╱u╱ // 0xd8b @0x27
0x0d64…0da7 at0028 = ╱61╱a╱ // 0xd8c @0x28
0x0d64…0da7 at0029 = ╱72╱r╱ // 0xd8d @0x29
0x0d64…0da7 at002a = ╱20╱…╱ // 0xd8e @0x2a
0x0d64…0da7 at002b = ╱74╱t╱ // 0xd8f @0x2b
0x0d64…0da7 at002c = ╱69╱i╱ // 0xd90 @0x2c
0x0d64…0da7 at002d = ╱6c╱l╱ // 0xd91 @0x2d
0x0d64…0da7 at002e = ╱20╱…╱ // 0xd92 @0x2e
0x0d64…0da7 at002f = ╱7b╱{╱ // 0xd93 @0x2f
0x0d64…0da7 at0030 = ╱6e╱n╱ // 0xd94 @0x30
0x0d64…0da7 at0031 = ╱64╱d╱ // 0xd95 @0x31
0x0d64…0da7 at0032 = ╱72╱r╱ // 0xd96 @0x32
0x0d64…0da7 at0033 = ╱69╱i╱ // 0xd97 @0x33
0x0d64…0da7 at0034 = ╱6e╱n╱ // 0xd98 @0x34
0x0d64…0da7 at0035 = ╱67╱g╱ // 0xd99 @0x35
0x0d64…0da7 at0036 = ╱73╱s╱ // 0xd9a @0x36
0x0d64…0da7 at0037 = ╱64╱d╱ // 0xd9b @0x37
0x0d64…0da7 at0038 = ╱61╱a╱ // 0xd9c @0x38
0x0d64…0da7 at0039 = ╱74╱t╱ // 0xd9d @0x39
0x0d64…0da7 at003a = ╱6f╱o╱ // 0xd9e @0x3a
0x0d64…0da7 at003b = ╱3a╱:╱ // 0xd9f @0x3b
0x0d64…0da7 at003c = ╱20╱…╱ // 0xda0 @0x3c
0x0d64…0da7 at003d = ╱22╱"╱ // 0xda1 @0x3d
0x0d64…0da7 at003e = ╱f1╱ : ╱ // 0xda2 @0x3e
0x0d64…0da7 at003f = ╱41╱A╱ // 0xda3 @0x3f
0x0d64…0da7 at0040 = ╱49╱I╱ // 0xda4 @0x40
0x0d64…0da7 at0041 = ╱48╱H╱ // 0xda5 @0x41
0x0d64…0da7 at0042 = EOL // 0xda6 @0x42
0x0d64…0da7 }
0x0da7…0db0 a39e 01630 PRINT LI $
0x0da7…0db0 LineComal80 {
0x0da7…0db0 ptr = 0xa39e // 0xda7 @0x0
0x0da7…0db0 lno = 0x065e // 0xda9 @0x2
0x0da7…0db0 at0004 = ╱92╱ PRINT ╱ // 0xdab @0x4
0x0da7…0db0 at0005 = ╱4c╱L╱ // 0xdac @0x5
0x0da7…0db0 at0006 = ╱49╱I╱ // 0xdad @0x6
0x0da7…0db0 at0007 = ╱ef╱ $ ╱ // 0xdae @0x7
0x0da7…0db0 at0008 = EOL // 0xdaf @0x8
0x0da7…0db0 }
0x0db0…0df0 a3de 01640 INPUT "Skriv…betalt…A-skat…fra…1.…januar…til…{ndringsdato:…" : ASQ
0x0db0…0df0 LineComal80 {
0x0db0…0df0 ptr = 0xa3de // 0xdb0 @0x0
0x0db0…0df0 lno = 0x0668 // 0xdb2 @0x2
0x0db0…0df0 at0004 = ╱91╱ INPUT ╱ // 0xdb4 @0x4
0x0db0…0df0 at0005 = ╱22╱"╱ // 0xdb5 @0x5
0x0db0…0df0 at0006 = ╱53╱S╱ // 0xdb6 @0x6
0x0db0…0df0 at0007 = ╱6b╱k╱ // 0xdb7 @0x7
0x0db0…0df0 at0008 = ╱72╱r╱ // 0xdb8 @0x8
0x0db0…0df0 at0009 = ╱69╱i╱ // 0xdb9 @0x9
0x0db0…0df0 at000a = ╱76╱v╱ // 0xdba @0xa
0x0db0…0df0 at000b = ╱20╱…╱ // 0xdbb @0xb
0x0db0…0df0 at000c = ╱62╱b╱ // 0xdbc @0xc
0x0db0…0df0 at000d = ╱65╱e╱ // 0xdbd @0xd
0x0db0…0df0 at000e = ╱74╱t╱ // 0xdbe @0xe
0x0db0…0df0 at000f = ╱61╱a╱ // 0xdbf @0xf
0x0db0…0df0 at0010 = ╱6c╱l╱ // 0xdc0 @0x10
0x0db0…0df0 at0011 = ╱74╱t╱ // 0xdc1 @0x11
0x0db0…0df0 at0012 = ╱20╱…╱ // 0xdc2 @0x12
0x0db0…0df0 at0013 = ╱41╱A╱ // 0xdc3 @0x13
0x0db0…0df0 at0014 = ╱2d╱-╱ // 0xdc4 @0x14
0x0db0…0df0 at0015 = ╱73╱s╱ // 0xdc5 @0x15
0x0db0…0df0 at0016 = ╱6b╱k╱ // 0xdc6 @0x16
0x0db0…0df0 at0017 = ╱61╱a╱ // 0xdc7 @0x17
0x0db0…0df0 at0018 = ╱74╱t╱ // 0xdc8 @0x18
0x0db0…0df0 at0019 = ╱20╱…╱ // 0xdc9 @0x19
0x0db0…0df0 at001a = ╱66╱f╱ // 0xdca @0x1a
0x0db0…0df0 at001b = ╱72╱r╱ // 0xdcb @0x1b
0x0db0…0df0 at001c = ╱61╱a╱ // 0xdcc @0x1c
0x0db0…0df0 at001d = ╱20╱…╱ // 0xdcd @0x1d
0x0db0…0df0 at001e = ╱31╱1╱ // 0xdce @0x1e
0x0db0…0df0 at001f = ╱2e╱.╱ // 0xdcf @0x1f
0x0db0…0df0 at0020 = ╱20╱…╱ // 0xdd0 @0x20
0x0db0…0df0 at0021 = ╱6a╱j╱ // 0xdd1 @0x21
0x0db0…0df0 at0022 = ╱61╱a╱ // 0xdd2 @0x22
0x0db0…0df0 at0023 = ╱6e╱n╱ // 0xdd3 @0x23
0x0db0…0df0 at0024 = ╱75╱u╱ // 0xdd4 @0x24
0x0db0…0df0 at0025 = ╱61╱a╱ // 0xdd5 @0x25
0x0db0…0df0 at0026 = ╱72╱r╱ // 0xdd6 @0x26
0x0db0…0df0 at0027 = ╱20╱…╱ // 0xdd7 @0x27
0x0db0…0df0 at0028 = ╱74╱t╱ // 0xdd8 @0x28
0x0db0…0df0 at0029 = ╱69╱i╱ // 0xdd9 @0x29
0x0db0…0df0 at002a = ╱6c╱l╱ // 0xdda @0x2a
0x0db0…0df0 at002b = ╱20╱…╱ // 0xddb @0x2b
0x0db0…0df0 at002c = ╱7b╱{╱ // 0xddc @0x2c
0x0db0…0df0 at002d = ╱6e╱n╱ // 0xddd @0x2d
0x0db0…0df0 at002e = ╱64╱d╱ // 0xdde @0x2e
0x0db0…0df0 at002f = ╱72╱r╱ // 0xddf @0x2f
0x0db0…0df0 at0030 = ╱69╱i╱ // 0xde0 @0x30
0x0db0…0df0 at0031 = ╱6e╱n╱ // 0xde1 @0x31
0x0db0…0df0 at0032 = ╱67╱g╱ // 0xde2 @0x32
0x0db0…0df0 at0033 = ╱73╱s╱ // 0xde3 @0x33
0x0db0…0df0 at0034 = ╱64╱d╱ // 0xde4 @0x34
0x0db0…0df0 at0035 = ╱61╱a╱ // 0xde5 @0x35
0x0db0…0df0 at0036 = ╱74╱t╱ // 0xde6 @0x36
0x0db0…0df0 at0037 = ╱6f╱o╱ // 0xde7 @0x37
0x0db0…0df0 at0038 = ╱3a╱:╱ // 0xde8 @0x38
0x0db0…0df0 at0039 = ╱20╱…╱ // 0xde9 @0x39
0x0db0…0df0 at003a = ╱22╱"╱ // 0xdea @0x3a
0x0db0…0df0 at003b = ╱f1╱ : ╱ // 0xdeb @0x3b
0x0db0…0df0 at003c = ╱41╱A╱ // 0xdec @0x3c
0x0db0…0df0 at003d = ╱53╱S╱ // 0xded @0x3d
0x0db0…0df0 at003e = ╱51╱Q╱ // 0xdee @0x3e
0x0db0…0df0 at003f = EOL // 0xdef @0x3f
0x0db0…0df0 }
0x0df0…0df9 a3e7 01650 PRINT LI $
0x0df0…0df9 LineComal80 {
0x0df0…0df9 ptr = 0xa3e7 // 0xdf0 @0x0
0x0df0…0df9 lno = 0x0672 // 0xdf2 @0x2
0x0df0…0df9 at0004 = ╱92╱ PRINT ╱ // 0xdf4 @0x4
0x0df0…0df9 at0005 = ╱4c╱L╱ // 0xdf5 @0x5
0x0df0…0df9 at0006 = ╱49╱I╱ // 0xdf6 @0x6
0x0df0…0df9 at0007 = ╱ef╱ $ ╱ // 0xdf7 @0x7
0x0df0…0df9 at0008 = EOL // 0xdf8 @0x8
0x0df0…0df9 }
0x0df9…0dff a3ed 01660 ENDIF
0x0df9…0dff LineComal80 {
0x0df9…0dff ptr = 0xa3ed // 0xdf9 @0x0
0x0df9…0dff lno = 0x067c // 0xdfb @0x2
0x0df9…0dff at0004 = ╱9c╱ ENDIF ╱ // 0xdfd @0x4
0x0df9…0dff at0005 = EOL // 0xdfe @0x5
0x0df9…0dff }
0x0dff…0e30 a41e 01670 PRINT "Skriv…forfalden…B-skat…til…og…med…m}ned…" ;
0x0dff…0e30 LineComal80 {
0x0dff…0e30 ptr = 0xa41e // 0xdff @0x0
0x0dff…0e30 lno = 0x0686 // 0xe01 @0x2
0x0dff…0e30 at0004 = ╱92╱ PRINT ╱ // 0xe03 @0x4
0x0dff…0e30 at0005 = ╱22╱"╱ // 0xe04 @0x5
0x0dff…0e30 at0006 = ╱53╱S╱ // 0xe05 @0x6
0x0dff…0e30 at0007 = ╱6b╱k╱ // 0xe06 @0x7
0x0dff…0e30 at0008 = ╱72╱r╱ // 0xe07 @0x8
0x0dff…0e30 at0009 = ╱69╱i╱ // 0xe08 @0x9
0x0dff…0e30 at000a = ╱76╱v╱ // 0xe09 @0xa
0x0dff…0e30 at000b = ╱20╱…╱ // 0xe0a @0xb
0x0dff…0e30 at000c = ╱66╱f╱ // 0xe0b @0xc
0x0dff…0e30 at000d = ╱6f╱o╱ // 0xe0c @0xd
0x0dff…0e30 at000e = ╱72╱r╱ // 0xe0d @0xe
0x0dff…0e30 at000f = ╱66╱f╱ // 0xe0e @0xf
0x0dff…0e30 at0010 = ╱61╱a╱ // 0xe0f @0x10
0x0dff…0e30 at0011 = ╱6c╱l╱ // 0xe10 @0x11
0x0dff…0e30 at0012 = ╱64╱d╱ // 0xe11 @0x12
0x0dff…0e30 at0013 = ╱65╱e╱ // 0xe12 @0x13
0x0dff…0e30 at0014 = ╱6e╱n╱ // 0xe13 @0x14
0x0dff…0e30 at0015 = ╱20╱…╱ // 0xe14 @0x15
0x0dff…0e30 at0016 = ╱42╱B╱ // 0xe15 @0x16
0x0dff…0e30 at0017 = ╱2d╱-╱ // 0xe16 @0x17
0x0dff…0e30 at0018 = ╱73╱s╱ // 0xe17 @0x18
0x0dff…0e30 at0019 = ╱6b╱k╱ // 0xe18 @0x19
0x0dff…0e30 at001a = ╱61╱a╱ // 0xe19 @0x1a
0x0dff…0e30 at001b = ╱74╱t╱ // 0xe1a @0x1b
0x0dff…0e30 at001c = ╱20╱…╱ // 0xe1b @0x1c
0x0dff…0e30 at001d = ╱74╱t╱ // 0xe1c @0x1d
0x0dff…0e30 at001e = ╱69╱i╱ // 0xe1d @0x1e
0x0dff…0e30 at001f = ╱6c╱l╱ // 0xe1e @0x1f
0x0dff…0e30 at0020 = ╱20╱…╱ // 0xe1f @0x20
0x0dff…0e30 at0021 = ╱6f╱o╱ // 0xe20 @0x21
0x0dff…0e30 at0022 = ╱67╱g╱ // 0xe21 @0x22
0x0dff…0e30 at0023 = ╱20╱…╱ // 0xe22 @0x23
0x0dff…0e30 at0024 = ╱6d╱m╱ // 0xe23 @0x24
0x0dff…0e30 at0025 = ╱65╱e╱ // 0xe24 @0x25
0x0dff…0e30 at0026 = ╱64╱d╱ // 0xe25 @0x26
0x0dff…0e30 at0027 = ╱20╱…╱ // 0xe26 @0x27
0x0dff…0e30 at0028 = ╱6d╱m╱ // 0xe27 @0x28
0x0dff…0e30 at0029 = ╱7d╱}╱ // 0xe28 @0x29
0x0dff…0e30 at002a = ╱6e╱n╱ // 0xe29 @0x2a
0x0dff…0e30 at002b = ╱65╱e╱ // 0xe2a @0x2b
0x0dff…0e30 at002c = ╱64╱d╱ // 0xe2b @0x2c
0x0dff…0e30 at002d = ╱20╱…╱ // 0xe2c @0x2d
0x0dff…0e30 at002e = ╱22╱"╱ // 0xe2d @0x2e
0x0dff…0e30 at002f = ╱ea╱ ; ╱ // 0xe2e @0x2f
0x0dff…0e30 at0030 = EOL // 0xe2f @0x30
0x0dff…0e30 }
0x0e30…0e6c a45a 01680 PRINT ( ╱cc╱ ( J $ ( 3 : 1 ) ) - 48 ) * 10 + ╱cc╱ ( J $ ( 4 : 1 ) ) - 48 ;
0x0e30…0e6c LineComal80 {
0x0e30…0e6c ptr = 0xa45a // 0xe30 @0x0
0x0e30…0e6c lno = 0x0690 // 0xe32 @0x2
0x0e30…0e6c at0004 = ╱92╱ PRINT ╱ // 0xe34 @0x4
0x0e30…0e6c at0005 = ╱ed╱ ( ╱ // 0xe35 @0x5
0x0e30…0e6c at0006 = ╱cc╱ // 0xe36 @0x6
0x0e30…0e6c at0007 = ╱ed╱ ( ╱ // 0xe37 @0x7
0x0e30…0e6c at0008 = ╱4a╱J╱ // 0xe38 @0x8
0x0e30…0e6c at0009 = ╱ef╱ $ ╱ // 0xe39 @0x9
0x0e30…0e6c at000a = ╱ed╱ ( ╱ // 0xe3a @0xa
0x0e30…0e6c at000b = ╱33╱3╱ // 0xe3b @0xb
0x0e30…0e6c at000c = ╱f20300╱ // 0xe3c @0xc
0x0e30…0e6c at000f = ╱f1╱ : ╱ // 0xe3f @0xf
0x0e30…0e6c at0010 = ╱31╱1╱ // 0xe40 @0x10
0x0e30…0e6c at0011 = ╱f20100╱ // 0xe41 @0x11
0x0e30…0e6c at0014 = ╱ee╱ ) ╱ // 0xe44 @0x14
0x0e30…0e6c at0015 = ╱ee╱ ) ╱ // 0xe45 @0x15
0x0e30…0e6c at0016 = ╱e6╱ - ╱ // 0xe46 @0x16
0x0e30…0e6c at0017 = ╱34╱4╱ // 0xe47 @0x17
0x0e30…0e6c at0018 = ╱38╱8╱ // 0xe48 @0x18
0x0e30…0e6c at0019 = ╱f23000╱ // 0xe49 @0x19
0x0e30…0e6c at001c = ╱ee╱ ) ╱ // 0xe4c @0x1c
0x0e30…0e6c at001d = ╱e7╱ * ╱ // 0xe4d @0x1d
0x0e30…0e6c at001e = ╱31╱1╱ // 0xe4e @0x1e
0x0e30…0e6c at001f = ╱30╱0╱ // 0xe4f @0x1f
0x0e30…0e6c at0020 = ╱f20a00╱ // 0xe50 @0x20
0x0e30…0e6c at0023 = ╱e5╱ + ╱ // 0xe53 @0x23
0x0e30…0e6c at0024 = ╱cc╱ // 0xe54 @0x24
0x0e30…0e6c at0025 = ╱ed╱ ( ╱ // 0xe55 @0x25
0x0e30…0e6c at0026 = ╱4a╱J╱ // 0xe56 @0x26
0x0e30…0e6c at0027 = ╱ef╱ $ ╱ // 0xe57 @0x27
0x0e30…0e6c at0028 = ╱ed╱ ( ╱ // 0xe58 @0x28
0x0e30…0e6c at0029 = ╱34╱4╱ // 0xe59 @0x29
0x0e30…0e6c at002a = ╱f20400╱ // 0xe5a @0x2a
0x0e30…0e6c at002d = ╱f1╱ : ╱ // 0xe5d @0x2d
0x0e30…0e6c at002e = ╱31╱1╱ // 0xe5e @0x2e
0x0e30…0e6c at002f = ╱f20100╱ // 0xe5f @0x2f
0x0e30…0e6c at0032 = ╱ee╱ ) ╱ // 0xe62 @0x32
0x0e30…0e6c at0033 = ╱ee╱ ) ╱ // 0xe63 @0x33
0x0e30…0e6c at0034 = ╱e6╱ - ╱ // 0xe64 @0x34
0x0e30…0e6c at0035 = ╱34╱4╱ // 0xe65 @0x35
0x0e30…0e6c at0036 = ╱38╱8╱ // 0xe66 @0x36
0x0e30…0e6c at0037 = ╱f23000╱ // 0xe67 @0x37
0x0e30…0e6c at003a = ╱ea╱ ; ╱ // 0xe6a @0x3a
0x0e30…0e6c at003b = EOL // 0xe6b @0x3b
0x0e30…0e6c }
0x0e6c…0e82 a470 01690 INPUT "(evt.…0):" : BSKF
0x0e6c…0e82 LineComal80 {
0x0e6c…0e82 ptr = 0xa470 // 0xe6c @0x0
0x0e6c…0e82 lno = 0x069a // 0xe6e @0x2
0x0e6c…0e82 at0004 = ╱91╱ INPUT ╱ // 0xe70 @0x4
0x0e6c…0e82 at0005 = ╱22╱"╱ // 0xe71 @0x5
0x0e6c…0e82 at0006 = ╱28╱(╱ // 0xe72 @0x6
0x0e6c…0e82 at0007 = ╱65╱e╱ // 0xe73 @0x7
0x0e6c…0e82 at0008 = ╱76╱v╱ // 0xe74 @0x8
0x0e6c…0e82 at0009 = ╱74╱t╱ // 0xe75 @0x9
0x0e6c…0e82 at000a = ╱2e╱.╱ // 0xe76 @0xa
0x0e6c…0e82 at000b = ╱20╱…╱ // 0xe77 @0xb
0x0e6c…0e82 at000c = ╱30╱0╱ // 0xe78 @0xc
0x0e6c…0e82 at000d = ╱29╱)╱ // 0xe79 @0xd
0x0e6c…0e82 at000e = ╱3a╱:╱ // 0xe7a @0xe
0x0e6c…0e82 at000f = ╱22╱"╱ // 0xe7b @0xf
0x0e6c…0e82 at0010 = ╱f1╱ : ╱ // 0xe7c @0x10
0x0e6c…0e82 at0011 = ╱42╱B╱ // 0xe7d @0x11
0x0e6c…0e82 at0012 = ╱53╱S╱ // 0xe7e @0x12
0x0e6c…0e82 at0013 = ╱4b╱K╱ // 0xe7f @0x13
0x0e6c…0e82 at0014 = ╱46╱F╱ // 0xe80 @0x14
0x0e6c…0e82 at0015 = EOL // 0xe81 @0x15
0x0e6c…0e82 }
0x0e82…0e8b a479 01700 PRINT LI $
0x0e82…0e8b LineComal80 {
0x0e82…0e8b ptr = 0xa479 // 0xe82 @0x0
0x0e82…0e8b lno = 0x06a4 // 0xe84 @0x2
0x0e82…0e8b at0004 = ╱92╱ PRINT ╱ // 0xe86 @0x4
0x0e82…0e8b at0005 = ╱4c╱L╱ // 0xe87 @0x5
0x0e82…0e8b at0006 = ╱49╱I╱ // 0xe88 @0x6
0x0e82…0e8b at0007 = ╱ef╱ $ ╱ // 0xe89 @0x7
0x0e82…0e8b at0008 = EOL // 0xe8a @0x8
0x0e82…0e8b }
0x0e8b…0e91 a47f 01710 ENDIF
0x0e8b…0e91 LineComal80 {
0x0e8b…0e91 ptr = 0xa47f // 0xe8b @0x0
0x0e8b…0e91 lno = 0x06ae // 0xe8d @0x2
0x0e8b…0e91 at0004 = ╱9c╱ ENDIF ╱ // 0xe8f @0x4
0x0e8b…0e91 at0005 = EOL // 0xe90 @0x5
0x0e8b…0e91 }
0x0e91…0ed3 a4c1 01720 IF ╱cc╱ ( J $ ( 3 : 1 ) ) - 48 ) * 10 + ╱cc╱ ( J $ ( 4 : 1 ) ) - 48 =< 5 THEN
0x0e91…0ed3 LineComal80 {
0x0e91…0ed3 ptr = 0xa4c1 // 0xe91 @0x0
0x0e91…0ed3 lno = 0x06b8 // 0xe93 @0x2
0x0e91…0ed3 at0004 = ╱9b00ed╱ IF ╱ // 0xe95 @0x4
0x0e91…0ed3 at0007 = ╱cc╱ // 0xe98 @0x7
0x0e91…0ed3 at0008 = ╱ed╱ ( ╱ // 0xe99 @0x8
0x0e91…0ed3 at0009 = ╱4a╱J╱ // 0xe9a @0x9
0x0e91…0ed3 at000a = ╱ef╱ $ ╱ // 0xe9b @0xa
0x0e91…0ed3 at000b = ╱ed╱ ( ╱ // 0xe9c @0xb
0x0e91…0ed3 at000c = ╱33╱3╱ // 0xe9d @0xc
0x0e91…0ed3 at000d = ╱f20300╱ // 0xe9e @0xd
0x0e91…0ed3 at0010 = ╱f1╱ : ╱ // 0xea1 @0x10
0x0e91…0ed3 at0011 = ╱31╱1╱ // 0xea2 @0x11
0x0e91…0ed3 at0012 = ╱f20100╱ // 0xea3 @0x12
0x0e91…0ed3 at0015 = ╱ee╱ ) ╱ // 0xea6 @0x15
0x0e91…0ed3 at0016 = ╱ee╱ ) ╱ // 0xea7 @0x16
0x0e91…0ed3 at0017 = ╱e6╱ - ╱ // 0xea8 @0x17
0x0e91…0ed3 at0018 = ╱34╱4╱ // 0xea9 @0x18
0x0e91…0ed3 at0019 = ╱38╱8╱ // 0xeaa @0x19
0x0e91…0ed3 at001a = ╱f23000╱ // 0xeab @0x1a
0x0e91…0ed3 at001d = ╱ee╱ ) ╱ // 0xeae @0x1d
0x0e91…0ed3 at001e = ╱e7╱ * ╱ // 0xeaf @0x1e
0x0e91…0ed3 at001f = ╱31╱1╱ // 0xeb0 @0x1f
0x0e91…0ed3 at0020 = ╱30╱0╱ // 0xeb1 @0x20
0x0e91…0ed3 at0021 = ╱f20a00╱ // 0xeb2 @0x21
0x0e91…0ed3 at0024 = ╱e5╱ + ╱ // 0xeb5 @0x24
0x0e91…0ed3 at0025 = ╱cc╱ // 0xeb6 @0x25
0x0e91…0ed3 at0026 = ╱ed╱ ( ╱ // 0xeb7 @0x26
0x0e91…0ed3 at0027 = ╱4a╱J╱ // 0xeb8 @0x27
0x0e91…0ed3 at0028 = ╱ef╱ $ ╱ // 0xeb9 @0x28
0x0e91…0ed3 at0029 = ╱ed╱ ( ╱ // 0xeba @0x29
0x0e91…0ed3 at002a = ╱34╱4╱ // 0xebb @0x2a
0x0e91…0ed3 at002b = ╱f20400╱ // 0xebc @0x2b
0x0e91…0ed3 at002e = ╱f1╱ : ╱ // 0xebf @0x2e
0x0e91…0ed3 at002f = ╱31╱1╱ // 0xec0 @0x2f
0x0e91…0ed3 at0030 = ╱f20100╱ // 0xec1 @0x30
0x0e91…0ed3 at0033 = ╱ee╱ ) ╱ // 0xec4 @0x33
0x0e91…0ed3 at0034 = ╱ee╱ ) ╱ // 0xec5 @0x34
0x0e91…0ed3 at0035 = ╱e6╱ - ╱ // 0xec6 @0x35
0x0e91…0ed3 at0036 = ╱34╱4╱ // 0xec7 @0x36
0x0e91…0ed3 at0037 = ╱38╱8╱ // 0xec8 @0x37
0x0e91…0ed3 at0038 = ╱f23000╱ // 0xec9 @0x38
0x0e91…0ed3 at003b = ╱e2╱ =< ╱ // 0xecc @0x3b
0x0e91…0ed3 at003c = ╱35╱5╱ // 0xecd @0x3c
0x0e91…0ed3 at003d = ╱f20500╱ // 0xece @0x3d
0x0e91…0ed3 at0040 = ╱b5╱ THEN ╱ // 0xed1 @0x40
0x0e91…0ed3 at0041 = EOL // 0xed2 @0x41
0x0e91…0ed3 }
0x0ed3…0f15 a503 01730 LET NYRATE := ( ╱cc╱ ( J $ ( 3 : 1 ) ) - 48 ) * 10 + ╱cc╱ ( J $ ( 4 : 1 ) ) - 47
0x0ed3…0f15 LineComal80 {
0x0ed3…0f15 ptr = 0xa503 // 0xed3 @0x0
0x0ed3…0f15 lno = 0x06c2 // 0xed5 @0x2
0x0ed3…0f15 at0004 = ╱86╱ LET ╱ // 0xed7 @0x4
0x0ed3…0f15 at0005 = ╱4e╱N╱ // 0xed8 @0x5
0x0ed3…0f15 at0006 = ╱59╱Y╱ // 0xed9 @0x6
0x0ed3…0f15 at0007 = ╱52╱R╱ // 0xeda @0x7
0x0ed3…0f15 at0008 = ╱41╱A╱ // 0xedb @0x8
0x0ed3…0f15 at0009 = ╱54╱T╱ // 0xedc @0x9
0x0ed3…0f15 at000a = ╱45╱E╱ // 0xedd @0xa
0x0ed3…0f15 at000b = ╱f0╱ := ╱ // 0xede @0xb
0x0ed3…0f15 at000c = ╱ed╱ ( ╱ // 0xedf @0xc
0x0ed3…0f15 at000d = ╱cc╱ // 0xee0 @0xd
0x0ed3…0f15 at000e = ╱ed╱ ( ╱ // 0xee1 @0xe
0x0ed3…0f15 at000f = ╱4a╱J╱ // 0xee2 @0xf
0x0ed3…0f15 at0010 = ╱ef╱ $ ╱ // 0xee3 @0x10
0x0ed3…0f15 at0011 = ╱ed╱ ( ╱ // 0xee4 @0x11
0x0ed3…0f15 at0012 = ╱33╱3╱ // 0xee5 @0x12
0x0ed3…0f15 at0013 = ╱f20300╱ // 0xee6 @0x13
0x0ed3…0f15 at0016 = ╱f1╱ : ╱ // 0xee9 @0x16
0x0ed3…0f15 at0017 = ╱31╱1╱ // 0xeea @0x17
0x0ed3…0f15 at0018 = ╱f20100╱ // 0xeeb @0x18
0x0ed3…0f15 at001b = ╱ee╱ ) ╱ // 0xeee @0x1b
0x0ed3…0f15 at001c = ╱ee╱ ) ╱ // 0xeef @0x1c
0x0ed3…0f15 at001d = ╱e6╱ - ╱ // 0xef0 @0x1d
0x0ed3…0f15 at001e = ╱34╱4╱ // 0xef1 @0x1e
0x0ed3…0f15 at001f = ╱38╱8╱ // 0xef2 @0x1f
0x0ed3…0f15 at0020 = ╱f23000╱ // 0xef3 @0x20
0x0ed3…0f15 at0023 = ╱ee╱ ) ╱ // 0xef6 @0x23
0x0ed3…0f15 at0024 = ╱e7╱ * ╱ // 0xef7 @0x24
0x0ed3…0f15 at0025 = ╱31╱1╱ // 0xef8 @0x25
0x0ed3…0f15 at0026 = ╱30╱0╱ // 0xef9 @0x26
0x0ed3…0f15 at0027 = ╱f20a00╱ // 0xefa @0x27
0x0ed3…0f15 at002a = ╱e5╱ + ╱ // 0xefd @0x2a
0x0ed3…0f15 at002b = ╱cc╱ // 0xefe @0x2b
0x0ed3…0f15 at002c = ╱ed╱ ( ╱ // 0xeff @0x2c
0x0ed3…0f15 at002d = ╱4a╱J╱ // 0xf00 @0x2d
0x0ed3…0f15 at002e = ╱ef╱ $ ╱ // 0xf01 @0x2e
0x0ed3…0f15 at002f = ╱ed╱ ( ╱ // 0xf02 @0x2f
0x0ed3…0f15 at0030 = ╱34╱4╱ // 0xf03 @0x30
0x0ed3…0f15 at0031 = ╱f20400╱ // 0xf04 @0x31
0x0ed3…0f15 at0034 = ╱f1╱ : ╱ // 0xf07 @0x34
0x0ed3…0f15 at0035 = ╱31╱1╱ // 0xf08 @0x35
0x0ed3…0f15 at0036 = ╱f20100╱ // 0xf09 @0x36
0x0ed3…0f15 at0039 = ╱ee╱ ) ╱ // 0xf0c @0x39
0x0ed3…0f15 at003a = ╱ee╱ ) ╱ // 0xf0d @0x3a
0x0ed3…0f15 at003b = ╱e6╱ - ╱ // 0xf0e @0x3b
0x0ed3…0f15 at003c = ╱34╱4╱ // 0xf0f @0x3c
0x0ed3…0f15 at003d = ╱37╱7╱ // 0xf10 @0x3d
0x0ed3…0f15 at003e = ╱f22f00╱ // 0xf11 @0x3e
0x0ed3…0f15 at0041 = EOL // 0xf14 @0x41
0x0ed3…0f15 }
0x0f15…0f1c a50a 01740 ELSE
0x0f15…0f1c LineComal80 {
0x0f15…0f1c ptr = 0xa50a // 0xf15 @0x0
0x0f15…0f1c lno = 0x06cc // 0xf17 @0x2
0x0f15…0f1c at0004 = ╱9a00╱ ELSE ╱ // 0xf19 @0x4
0x0f15…0f1c at0006 = EOL // 0xf1b @0x6
0x0f15…0f1c }
0x0f1c…0f5e a54c 01750 LET NYRATE := ( ╱cc╱ ( J $ ( 3 : 1 ) ) - 48 ) * 10 + ╱cc╱ ( J $ ( 4 : 1 ) ) - 48
0x0f1c…0f5e LineComal80 {
0x0f1c…0f5e ptr = 0xa54c // 0xf1c @0x0
0x0f1c…0f5e lno = 0x06d6 // 0xf1e @0x2
0x0f1c…0f5e at0004 = ╱86╱ LET ╱ // 0xf20 @0x4
0x0f1c…0f5e at0005 = ╱4e╱N╱ // 0xf21 @0x5
0x0f1c…0f5e at0006 = ╱59╱Y╱ // 0xf22 @0x6
0x0f1c…0f5e at0007 = ╱52╱R╱ // 0xf23 @0x7
0x0f1c…0f5e at0008 = ╱41╱A╱ // 0xf24 @0x8
0x0f1c…0f5e at0009 = ╱54╱T╱ // 0xf25 @0x9
0x0f1c…0f5e at000a = ╱45╱E╱ // 0xf26 @0xa
0x0f1c…0f5e at000b = ╱f0╱ := ╱ // 0xf27 @0xb
0x0f1c…0f5e at000c = ╱ed╱ ( ╱ // 0xf28 @0xc
0x0f1c…0f5e at000d = ╱cc╱ // 0xf29 @0xd
0x0f1c…0f5e at000e = ╱ed╱ ( ╱ // 0xf2a @0xe
0x0f1c…0f5e at000f = ╱4a╱J╱ // 0xf2b @0xf
0x0f1c…0f5e at0010 = ╱ef╱ $ ╱ // 0xf2c @0x10
0x0f1c…0f5e at0011 = ╱ed╱ ( ╱ // 0xf2d @0x11
0x0f1c…0f5e at0012 = ╱33╱3╱ // 0xf2e @0x12
0x0f1c…0f5e at0013 = ╱f20300╱ // 0xf2f @0x13
0x0f1c…0f5e at0016 = ╱f1╱ : ╱ // 0xf32 @0x16
0x0f1c…0f5e at0017 = ╱31╱1╱ // 0xf33 @0x17
0x0f1c…0f5e at0018 = ╱f20100╱ // 0xf34 @0x18
0x0f1c…0f5e at001b = ╱ee╱ ) ╱ // 0xf37 @0x1b
0x0f1c…0f5e at001c = ╱ee╱ ) ╱ // 0xf38 @0x1c
0x0f1c…0f5e at001d = ╱e6╱ - ╱ // 0xf39 @0x1d
0x0f1c…0f5e at001e = ╱34╱4╱ // 0xf3a @0x1e
0x0f1c…0f5e at001f = ╱38╱8╱ // 0xf3b @0x1f
0x0f1c…0f5e at0020 = ╱f23000╱ // 0xf3c @0x20
0x0f1c…0f5e at0023 = ╱ee╱ ) ╱ // 0xf3f @0x23
0x0f1c…0f5e at0024 = ╱e7╱ * ╱ // 0xf40 @0x24
0x0f1c…0f5e at0025 = ╱31╱1╱ // 0xf41 @0x25
0x0f1c…0f5e at0026 = ╱30╱0╱ // 0xf42 @0x26
0x0f1c…0f5e at0027 = ╱f20a00╱ // 0xf43 @0x27
0x0f1c…0f5e at002a = ╱e5╱ + ╱ // 0xf46 @0x2a
0x0f1c…0f5e at002b = ╱cc╱ // 0xf47 @0x2b
0x0f1c…0f5e at002c = ╱ed╱ ( ╱ // 0xf48 @0x2c
0x0f1c…0f5e at002d = ╱4a╱J╱ // 0xf49 @0x2d
0x0f1c…0f5e at002e = ╱ef╱ $ ╱ // 0xf4a @0x2e
0x0f1c…0f5e at002f = ╱ed╱ ( ╱ // 0xf4b @0x2f
0x0f1c…0f5e at0030 = ╱34╱4╱ // 0xf4c @0x30
0x0f1c…0f5e at0031 = ╱f20400╱ // 0xf4d @0x31
0x0f1c…0f5e at0034 = ╱f1╱ : ╱ // 0xf50 @0x34
0x0f1c…0f5e at0035 = ╱31╱1╱ // 0xf51 @0x35
0x0f1c…0f5e at0036 = ╱f20100╱ // 0xf52 @0x36
0x0f1c…0f5e at0039 = ╱ee╱ ) ╱ // 0xf55 @0x39
0x0f1c…0f5e at003a = ╱ee╱ ) ╱ // 0xf56 @0x3a
0x0f1c…0f5e at003b = ╱e6╱ - ╱ // 0xf57 @0x3b
0x0f1c…0f5e at003c = ╱34╱4╱ // 0xf58 @0x3c
0x0f1c…0f5e at003d = ╱38╱8╱ // 0xf59 @0x3d
0x0f1c…0f5e at003e = ╱f23000╱ // 0xf5a @0x3e
0x0f1c…0f5e at0041 = EOL // 0xf5d @0x41
0x0f1c…0f5e }
0x0f5e…0f64 a552 01760 ENDIF
0x0f5e…0f64 LineComal80 {
0x0f5e…0f64 ptr = 0xa552 // 0xf5e @0x0
0x0f5e…0f64 lno = 0x06e0 // 0xf60 @0x2
0x0f5e…0f64 at0004 = ╱9c╱ ENDIF ╱ // 0xf62 @0x4
0x0f5e…0f64 at0005 = EOL // 0xf63 @0x5
0x0f5e…0f64 }
0x0f64…0f7f a56d 01770 LET RESTRATE := 11 - NYRATE
0x0f64…0f7f LineComal80 {
0x0f64…0f7f ptr = 0xa56d // 0xf64 @0x0
0x0f64…0f7f lno = 0x06ea // 0xf66 @0x2
0x0f64…0f7f at0004 = ╱86╱ LET ╱ // 0xf68 @0x4
0x0f64…0f7f at0005 = ╱52╱R╱ // 0xf69 @0x5
0x0f64…0f7f at0006 = ╱45╱E╱ // 0xf6a @0x6
0x0f64…0f7f at0007 = ╱53╱S╱ // 0xf6b @0x7
0x0f64…0f7f at0008 = ╱54╱T╱ // 0xf6c @0x8
0x0f64…0f7f at0009 = ╱52╱R╱ // 0xf6d @0x9
0x0f64…0f7f at000a = ╱41╱A╱ // 0xf6e @0xa
0x0f64…0f7f at000b = ╱54╱T╱ // 0xf6f @0xb
0x0f64…0f7f at000c = ╱45╱E╱ // 0xf70 @0xc
0x0f64…0f7f at000d = ╱f0╱ := ╱ // 0xf71 @0xd
0x0f64…0f7f at000e = ╱31╱1╱ // 0xf72 @0xe
0x0f64…0f7f at000f = ╱31╱1╱ // 0xf73 @0xf
0x0f64…0f7f at0010 = ╱f20b00╱ // 0xf74 @0x10
0x0f64…0f7f at0013 = ╱e6╱ - ╱ // 0xf77 @0x13
0x0f64…0f7f at0014 = ╱4e╱N╱ // 0xf78 @0x14
0x0f64…0f7f at0015 = ╱59╱Y╱ // 0xf79 @0x15
0x0f64…0f7f at0016 = ╱52╱R╱ // 0xf7a @0x16
0x0f64…0f7f at0017 = ╱41╱A╱ // 0xf7b @0x17
0x0f64…0f7f at0018 = ╱54╱T╱ // 0xf7c @0x18
0x0f64…0f7f at0019 = ╱45╱E╱ // 0xf7d @0x19
0x0f64…0f7f at001a = EOL // 0xf7e @0x1a
0x0f64…0f7f }
0x0f7f…0f9d a58b 01780 LET D6 := D6 - ASQ - BSKF ; AI := AI - AIH
0x0f7f…0f9d LineComal80 {
0x0f7f…0f9d ptr = 0xa58b // 0xf7f @0x0
0x0f7f…0f9d lno = 0x06f4 // 0xf81 @0x2
0x0f7f…0f9d at0004 = ╱86╱ LET ╱ // 0xf83 @0x4
0x0f7f…0f9d at0005 = ╱44╱D╱ // 0xf84 @0x5
0x0f7f…0f9d at0006 = ╱36╱6╱ // 0xf85 @0x6
0x0f7f…0f9d at0007 = ╱f0╱ := ╱ // 0xf86 @0x7
0x0f7f…0f9d at0008 = ╱44╱D╱ // 0xf87 @0x8
0x0f7f…0f9d at0009 = ╱36╱6╱ // 0xf88 @0x9
0x0f7f…0f9d at000a = ╱e6╱ - ╱ // 0xf89 @0xa
0x0f7f…0f9d at000b = ╱41╱A╱ // 0xf8a @0xb
0x0f7f…0f9d at000c = ╱53╱S╱ // 0xf8b @0xc
0x0f7f…0f9d at000d = ╱51╱Q╱ // 0xf8c @0xd
0x0f7f…0f9d at000e = ╱e6╱ - ╱ // 0xf8d @0xe
0x0f7f…0f9d at000f = ╱42╱B╱ // 0xf8e @0xf
0x0f7f…0f9d at0010 = ╱53╱S╱ // 0xf8f @0x10
0x0f7f…0f9d at0011 = ╱4b╱K╱ // 0xf90 @0x11
0x0f7f…0f9d at0012 = ╱46╱F╱ // 0xf91 @0x12
0x0f7f…0f9d at0013 = ╱ea╱ ; ╱ // 0xf92 @0x13
0x0f7f…0f9d at0014 = ╱41╱A╱ // 0xf93 @0x14
0x0f7f…0f9d at0015 = ╱49╱I╱ // 0xf94 @0x15
0x0f7f…0f9d at0016 = ╱f0╱ := ╱ // 0xf95 @0x16
0x0f7f…0f9d at0017 = ╱41╱A╱ // 0xf96 @0x17
0x0f7f…0f9d at0018 = ╱49╱I╱ // 0xf97 @0x18
0x0f7f…0f9d at0019 = ╱e6╱ - ╱ // 0xf98 @0x19
0x0f7f…0f9d at001a = ╱41╱A╱ // 0xf99 @0x1a
0x0f7f…0f9d at001b = ╱49╱I╱ // 0xf9a @0x1b
0x0f7f…0f9d at001c = ╱48╱H╱ // 0xf9b @0x1c
0x0f7f…0f9d at001d = EOL // 0xf9c @0x1d
0x0f7f…0f9d }
0x0f9d…0fab a599 01790 ENDPROC INDASKAT
0x0f9d…0fab LineComal80 {
0x0f9d…0fab ptr = 0xa599 // 0xf9d @0x0
0x0f9d…0fab lno = 0x06fe // 0xf9f @0x2
0x0f9d…0fab at0004 = ╱9f╱ ENDPROC ╱ // 0xfa1 @0x4
0x0f9d…0fab at0005 = ╱49╱I╱ // 0xfa2 @0x5
0x0f9d…0fab at0006 = ╱4e╱N╱ // 0xfa3 @0x6
0x0f9d…0fab at0007 = ╱44╱D╱ // 0xfa4 @0x7
0x0f9d…0fab at0008 = ╱41╱A╱ // 0xfa5 @0x8
0x0f9d…0fab at0009 = ╱53╱S╱ // 0xfa6 @0x9
0x0f9d…0fab at000a = ╱4b╱K╱ // 0xfa7 @0xa
0x0f9d…0fab at000b = ╱41╱A╱ // 0xfa8 @0xb
0x0f9d…0fab at000c = ╱54╱T╱ // 0xfa9 @0xc
0x0f9d…0fab at000d = EOL // 0xfaa @0xd
0x0f9d…0fab }
0x0fab…0fb8 a5a6 01800 PROC REGN15
0x0fab…0fb8 LineComal80 {
0x0fab…0fb8 ptr = 0xa5a6 // 0xfab @0x0
0x0fab…0fb8 lno = 0x0708 // 0xfad @0x2
0x0fab…0fb8 at0004 = ╱9e00╱ PROC ╱ // 0xfaf @0x4
0x0fab…0fb8 at0006 = ╱52╱R╱ // 0xfb1 @0x6
0x0fab…0fb8 at0007 = ╱45╱E╱ // 0xfb2 @0x7
0x0fab…0fb8 at0008 = ╱47╱G╱ // 0xfb3 @0x8
0x0fab…0fb8 at0009 = ╱4e╱N╱ // 0xfb4 @0x9
0x0fab…0fb8 at000a = ╱31╱1╱ // 0xfb5 @0xa
0x0fab…0fb8 at000b = ╱35╱5╱ // 0xfb6 @0xb
0x0fab…0fb8 at000c = EOL // 0xfb7 @0xc
0x0fab…0fb8 }
0x0fb8…0fc7 a5b5 01810 IF 7 > 0 THEN
0x0fb8…0fc7 LineComal80 {
0x0fb8…0fc7 ptr = 0xa5b5 // 0xfb8 @0x0
0x0fb8…0fc7 lno = 0x0712 // 0xfba @0x2
0x0fb8…0fc7 at0004 = ╱9b0043╱ IF ╱ // 0xfbc @0x4
0x0fb8…0fc7 at0007 = ╱37╱7╱ // 0xfbf @0x7
0x0fb8…0fc7 at0008 = ╱e1╱ > ╱ // 0xfc0 @0x8
0x0fb8…0fc7 at0009 = ╱30╱0╱ // 0xfc1 @0x9
0x0fb8…0fc7 at000a = ╱f20000╱ // 0xfc2 @0xa
0x0fb8…0fc7 at000d = ╱b5╱ THEN ╱ // 0xfc5 @0xd
0x0fb8…0fc7 at000e = EOL // 0xfc6 @0xe
0x0fb8…0fc7 }
0x0fc7…0ff2 a5e0 01820 LET PCT := ( D0 * 100 ) / ( INT ( C7 / 100 ) * 100 )
0x0fc7…0ff2 LineComal80 {
0x0fc7…0ff2 ptr = 0xa5e0 // 0xfc7 @0x0
0x0fc7…0ff2 lno = 0x071c // 0xfc9 @0x2
0x0fc7…0ff2 at0004 = ╱86╱ LET ╱ // 0xfcb @0x4
0x0fc7…0ff2 at0005 = ╱50╱P╱ // 0xfcc @0x5
0x0fc7…0ff2 at0006 = ╱43╱C╱ // 0xfcd @0x6
0x0fc7…0ff2 at0007 = ╱54╱T╱ // 0xfce @0x7
0x0fc7…0ff2 at0008 = ╱f0╱ := ╱ // 0xfcf @0x8
0x0fc7…0ff2 at0009 = ╱ed╱ ( ╱ // 0xfd0 @0x9
0x0fc7…0ff2 at000a = ╱44╱D╱ // 0xfd1 @0xa
0x0fc7…0ff2 at000b = ╱30╱0╱ // 0xfd2 @0xb
0x0fc7…0ff2 at000c = ╱e7╱ * ╱ // 0xfd3 @0xc
0x0fc7…0ff2 at000d = ╱31╱1╱ // 0xfd4 @0xd
0x0fc7…0ff2 at000e = ╱30╱0╱ // 0xfd5 @0xe
0x0fc7…0ff2 at000f = ╱30╱0╱ // 0xfd6 @0xf
0x0fc7…0ff2 at0010 = ╱f26400╱ // 0xfd7 @0x10
0x0fc7…0ff2 at0013 = ╱ee╱ ) ╱ // 0xfda @0x13
0x0fc7…0ff2 at0014 = ╱e8╱ / ╱ // 0xfdb @0x14
0x0fc7…0ff2 at0015 = ╱ed╱ ( ╱ // 0xfdc @0x15
0x0fc7…0ff2 at0016 = ╱c6╱ INT ╱ // 0xfdd @0x16
0x0fc7…0ff2 at0017 = ╱ed╱ ( ╱ // 0xfde @0x17
0x0fc7…0ff2 at0018 = ╱43╱C╱ // 0xfdf @0x18
0x0fc7…0ff2 at0019 = ╱37╱7╱ // 0xfe0 @0x19
0x0fc7…0ff2 at001a = ╱e8╱ / ╱ // 0xfe1 @0x1a
0x0fc7…0ff2 at001b = ╱31╱1╱ // 0xfe2 @0x1b
0x0fc7…0ff2 at001c = ╱30╱0╱ // 0xfe3 @0x1c
0x0fc7…0ff2 at001d = ╱30╱0╱ // 0xfe4 @0x1d
0x0fc7…0ff2 at001e = ╱f26400╱ // 0xfe5 @0x1e
0x0fc7…0ff2 at0021 = ╱ee╱ ) ╱ // 0xfe8 @0x21
0x0fc7…0ff2 at0022 = ╱e7╱ * ╱ // 0xfe9 @0x22
0x0fc7…0ff2 at0023 = ╱31╱1╱ // 0xfea @0x23
0x0fc7…0ff2 at0024 = ╱30╱0╱ // 0xfeb @0x24
0x0fc7…0ff2 at0025 = ╱30╱0╱ // 0xfec @0x25
0x0fc7…0ff2 at0026 = ╱f26400╱ // 0xfed @0x26
0x0fc7…0ff2 at0029 = ╱ee╱ ) ╱ // 0xff0 @0x29
0x0fc7…0ff2 at002a = EOL // 0xff1 @0x2a
0x0fc7…0ff2 }
0x0ff2…0ff9 a5e7 01830 ELSE
0x0ff2…0ff9 LineComal80 {
0x0ff2…0ff9 ptr = 0xa5e7 // 0xff2 @0x0
0x0ff2…0ff9 lno = 0x0726 // 0xff4 @0x2
0x0ff2…0ff9 at0004 = ╱9a00╱ ELSE ╱ // 0xff6 @0x4
0x0ff2…0ff9 at0006 = EOL // 0xff8 @0x6
0x0ff2…0ff9 }
0x0ff9…1029 a617 01840 LET PCT := ( 16 * U1 ) + P0 + PA0 + P7 + P8 + ( P9 * ( TK = 1 ) )
0x0ff9…1029 LineComal80 {
0x0ff9…1029 ptr = 0xa617 // 0xff9 @0x0
0x0ff9…1029 lno = 0x0730 // 0xffb @0x2
0x0ff9…1029 at0004 = ╱86╱ LET ╱ // 0xffd @0x4
0x0ff9…1029 at0005 = ╱50╱P╱ // 0xffe @0x5
0x0ff9…1029 at0006 = ╱43╱C╱ // 0xfff @0x6
0x0ff9…1029 at0007 = ╱54╱T╱ // 0x1000 @0x7
0x0ff9…1029 at0008 = ╱f0╱ := ╱ // 0x1001 @0x8
0x0ff9…1029 at0009 = ╱ed╱ ( ╱ // 0x1002 @0x9
0x0ff9…1029 at000a = ╱31╱1╱ // 0x1003 @0xa
0x0ff9…1029 at000b = ╱36╱6╱ // 0x1004 @0xb
0x0ff9…1029 at000c = ╱f21000╱ // 0x1005 @0xc
0x0ff9…1029 at000f = ╱e7╱ * ╱ // 0x1008 @0xf
0x0ff9…1029 at0010 = ╱55╱U╱ // 0x1009 @0x10
0x0ff9…1029 at0011 = ╱31╱1╱ // 0x100a @0x11
0x0ff9…1029 at0012 = ╱ee╱ ) ╱ // 0x100b @0x12
0x0ff9…1029 at0013 = ╱e5╱ + ╱ // 0x100c @0x13
0x0ff9…1029 at0014 = ╱50╱P╱ // 0x100d @0x14
0x0ff9…1029 at0015 = ╱30╱0╱ // 0x100e @0x15
0x0ff9…1029 at0016 = ╱e5╱ + ╱ // 0x100f @0x16
0x0ff9…1029 at0017 = ╱50╱P╱ // 0x1010 @0x17
0x0ff9…1029 at0018 = ╱41╱A╱ // 0x1011 @0x18
0x0ff9…1029 at0019 = ╱30╱0╱ // 0x1012 @0x19
0x0ff9…1029 at001a = ╱e5╱ + ╱ // 0x1013 @0x1a
0x0ff9…1029 at001b = ╱50╱P╱ // 0x1014 @0x1b
0x0ff9…1029 at001c = ╱37╱7╱ // 0x1015 @0x1c
0x0ff9…1029 at001d = ╱e5╱ + ╱ // 0x1016 @0x1d
0x0ff9…1029 at001e = ╱50╱P╱ // 0x1017 @0x1e
0x0ff9…1029 at001f = ╱38╱8╱ // 0x1018 @0x1f
0x0ff9…1029 at0020 = ╱e5╱ + ╱ // 0x1019 @0x20
0x0ff9…1029 at0021 = ╱ed╱ ( ╱ // 0x101a @0x21
0x0ff9…1029 at0022 = ╱50╱P╱ // 0x101b @0x22
0x0ff9…1029 at0023 = ╱39╱9╱ // 0x101c @0x23
0x0ff9…1029 at0024 = ╱e7╱ * ╱ // 0x101d @0x24
0x0ff9…1029 at0025 = ╱ed╱ ( ╱ // 0x101e @0x25
0x0ff9…1029 at0026 = ╱54╱T╱ // 0x101f @0x26
0x0ff9…1029 at0027 = ╱4b╱K╱ // 0x1020 @0x27
0x0ff9…1029 at0028 = ╱df╱ = ╱ // 0x1021 @0x28
0x0ff9…1029 at0029 = ╱31╱1╱ // 0x1022 @0x29
0x0ff9…1029 at002a = ╱f20100╱ // 0x1023 @0x2a
0x0ff9…1029 at002d = ╱ee╱ ) ╱ // 0x1026 @0x2d
0x0ff9…1029 at002e = ╱ee╱ ) ╱ // 0x1027 @0x2e
0x0ff9…1029 at002f = EOL // 0x1028 @0x2f
0x0ff9…1029 }
0x1029…102f a61d 01850 ENDIF
0x1029…102f LineComal80 {
0x1029…102f ptr = 0xa61d // 0x1029 @0x0
0x1029…102f lno = 0x073a // 0x102b @0x2
0x1029…102f at0004 = ╱9c╱ ENDIF ╱ // 0x102d @0x4
0x1029…102f at0005 = EOL // 0x102e @0x5
0x1029…102f }
0x102f…104b a639 01860 LET PCT := INT ( PCT * 10 ) / 10
0x102f…104b LineComal80 {
0x102f…104b ptr = 0xa639 // 0x102f @0x0
0x102f…104b lno = 0x0744 // 0x1031 @0x2
0x102f…104b at0004 = ╱86╱ LET ╱ // 0x1033 @0x4
0x102f…104b at0005 = ╱50╱P╱ // 0x1034 @0x5
0x102f…104b at0006 = ╱43╱C╱ // 0x1035 @0x6
0x102f…104b at0007 = ╱54╱T╱ // 0x1036 @0x7
0x102f…104b at0008 = ╱f0╱ := ╱ // 0x1037 @0x8
0x102f…104b at0009 = ╱c6╱ INT ╱ // 0x1038 @0x9
0x102f…104b at000a = ╱ed╱ ( ╱ // 0x1039 @0xa
0x102f…104b at000b = ╱50╱P╱ // 0x103a @0xb
0x102f…104b at000c = ╱43╱C╱ // 0x103b @0xc
0x102f…104b at000d = ╱54╱T╱ // 0x103c @0xd
0x102f…104b at000e = ╱e7╱ * ╱ // 0x103d @0xe
0x102f…104b at000f = ╱31╱1╱ // 0x103e @0xf
0x102f…104b at0010 = ╱30╱0╱ // 0x103f @0x10
0x102f…104b at0011 = ╱f20a00╱ // 0x1040 @0x11
0x102f…104b at0014 = ╱ee╱ ) ╱ // 0x1043 @0x14
0x102f…104b at0015 = ╱e8╱ / ╱ // 0x1044 @0x15
0x102f…104b at0016 = ╱31╱1╱ // 0x1045 @0x16
0x102f…104b at0017 = ╱30╱0╱ // 0x1046 @0x17
0x102f…104b at0018 = ╱f20a00╱ // 0x1047 @0x18
0x102f…104b at001b = EOL // 0x104a @0x1b
0x102f…104b }
0x104b…1057 a645 01870 ENDPROC REGN15
0x104b…1057 LineComal80 {
0x104b…1057 ptr = 0xa645 // 0x104b @0x0
0x104b…1057 lno = 0x074e // 0x104d @0x2
0x104b…1057 at0004 = ╱9f╱ ENDPROC ╱ // 0x104f @0x4
0x104b…1057 at0005 = ╱52╱R╱ // 0x1050 @0x5
0x104b…1057 at0006 = ╱45╱E╱ // 0x1051 @0x6
0x104b…1057 at0007 = ╱47╱G╱ // 0x1052 @0x7
0x104b…1057 at0008 = ╱4e╱N╱ // 0x1053 @0x8
0x104b…1057 at0009 = ╱31╱1╱ // 0x1054 @0x9
0x104b…1057 at000a = ╱35╱5╱ // 0x1055 @0xa
0x104b…1057 at000b = EOL // 0x1056 @0xb
0x104b…1057 }
0x1057…1064 a652 01880 PROC REGN17
0x1057…1064 LineComal80 {
0x1057…1064 ptr = 0xa652 // 0x1057 @0x0
0x1057…1064 lno = 0x0758 // 0x1059 @0x2
0x1057…1064 at0004 = ╱9e00╱ PROC ╱ // 0x105b @0x4
0x1057…1064 at0006 = ╱52╱R╱ // 0x105d @0x6
0x1057…1064 at0007 = ╱45╱E╱ // 0x105e @0x7
0x1057…1064 at0008 = ╱47╱G╱ // 0x105f @0x8
0x1057…1064 at0009 = ╱4e╱N╱ // 0x1060 @0x9
0x1057…1064 at000a = ╱31╱1╱ // 0x1061 @0xa
0x1057…1064 at000b = ╱37╱7╱ // 0x1062 @0xb
0x1057…1064 at000c = EOL // 0x1063 @0xc
0x1057…1064 }
0x1064…1089 a677 01890 IF C7 =< P1 THEN LET PCT := PCT + 1 ; PCT := INT ( PCT )
0x1064…1089 LineComal80 {
0x1064…1089 ptr = 0xa677 // 0x1064 @0x0
0x1064…1089 lno = 0x0762 // 0x1066 @0x2
0x1064…1089 at0004 = ╱8200╱ IF ╱ // 0x1068 @0x4
0x1064…1089 at0006 = ╱43╱C╱ // 0x106a @0x6
0x1064…1089 at0007 = ╱37╱7╱ // 0x106b @0x7
0x1064…1089 at0008 = ╱e2╱ =< ╱ // 0x106c @0x8
0x1064…1089 at0009 = ╱50╱P╱ // 0x106d @0x9
0x1064…1089 at000a = ╱31╱1╱ // 0x106e @0xa
0x1064…1089 at000b = ╱b5╱ THEN ╱ // 0x106f @0xb
0x1064…1089 at000c = ╱86╱ LET ╱ // 0x1070 @0xc
0x1064…1089 at000d = ╱50╱P╱ // 0x1071 @0xd
0x1064…1089 at000e = ╱43╱C╱ // 0x1072 @0xe
0x1064…1089 at000f = ╱54╱T╱ // 0x1073 @0xf
0x1064…1089 at0010 = ╱f0╱ := ╱ // 0x1074 @0x10
0x1064…1089 at0011 = ╱50╱P╱ // 0x1075 @0x11
0x1064…1089 at0012 = ╱43╱C╱ // 0x1076 @0x12
0x1064…1089 at0013 = ╱54╱T╱ // 0x1077 @0x13
0x1064…1089 at0014 = ╱e5╱ + ╱ // 0x1078 @0x14
0x1064…1089 at0015 = ╱31╱1╱ // 0x1079 @0x15
0x1064…1089 at0016 = ╱f20100╱ // 0x107a @0x16
0x1064…1089 at0019 = ╱ea╱ ; ╱ // 0x107d @0x19
0x1064…1089 at001a = ╱50╱P╱ // 0x107e @0x1a
0x1064…1089 at001b = ╱43╱C╱ // 0x107f @0x1b
0x1064…1089 at001c = ╱54╱T╱ // 0x1080 @0x1c
0x1064…1089 at001d = ╱f0╱ := ╱ // 0x1081 @0x1d
0x1064…1089 at001e = ╱c6╱ INT ╱ // 0x1082 @0x1e
0x1064…1089 at001f = ╱ed╱ ( ╱ // 0x1083 @0x1f
0x1064…1089 at0020 = ╱50╱P╱ // 0x1084 @0x20
0x1064…1089 at0021 = ╱43╱C╱ // 0x1085 @0x21
0x1064…1089 at0022 = ╱54╱T╱ // 0x1086 @0x22
0x1064…1089 at0023 = ╱ee╱ ) ╱ // 0x1087 @0x23
0x1064…1089 at0024 = EOL // 0x1088 @0x24
0x1064…1089 }
0x1089…10b6 a6a4 01900 IF C7 > P1 THEN LET PCT := PCT + 1.5 ; PCT := INT ( PCT )
0x1089…10b6 LineComal80 {
0x1089…10b6 ptr = 0xa6a4 // 0x1089 @0x0
0x1089…10b6 lno = 0x076c // 0x108b @0x2
0x1089…10b6 at0004 = ╱8200╱ IF ╱ // 0x108d @0x4
0x1089…10b6 at0006 = ╱43╱C╱ // 0x108f @0x6
0x1089…10b6 at0007 = ╱37╱7╱ // 0x1090 @0x7
0x1089…10b6 at0008 = ╱e1╱ > ╱ // 0x1091 @0x8
0x1089…10b6 at0009 = ╱50╱P╱ // 0x1092 @0x9
0x1089…10b6 at000a = ╱31╱1╱ // 0x1093 @0xa
0x1089…10b6 at000b = ╱b5╱ THEN ╱ // 0x1094 @0xb
0x1089…10b6 at000c = ╱86╱ LET ╱ // 0x1095 @0xc
0x1089…10b6 at000d = ╱50╱P╱ // 0x1096 @0xd
0x1089…10b6 at000e = ╱43╱C╱ // 0x1097 @0xe
0x1089…10b6 at000f = ╱54╱T╱ // 0x1098 @0xf
0x1089…10b6 at0010 = ╱f0╱ := ╱ // 0x1099 @0x10
0x1089…10b6 at0011 = ╱50╱P╱ // 0x109a @0x11
0x1089…10b6 at0012 = ╱43╱C╱ // 0x109b @0x12
0x1089…10b6 at0013 = ╱54╱T╱ // 0x109c @0x13
0x1089…10b6 at0014 = ╱e5╱ + ╱ // 0x109d @0x14
0x1089…10b6 at0015 = ╱31╱1╱ // 0x109e @0x15
0x1089…10b6 at0016 = ╱2e╱.╱ // 0x109f @0x16
0x1089…10b6 at0017 = ╱35╱5╱ // 0x10a0 @0x17
0x1089…10b6 at0018 = ╱f88100000000005001╱ // 0x10a1 @0x18
0x1089…10b6 at0021 = ╱ea╱ ; ╱ // 0x10aa @0x21
0x1089…10b6 at0022 = ╱50╱P╱ // 0x10ab @0x22
0x1089…10b6 at0023 = ╱43╱C╱ // 0x10ac @0x23
0x1089…10b6 at0024 = ╱54╱T╱ // 0x10ad @0x24
0x1089…10b6 at0025 = ╱f0╱ := ╱ // 0x10ae @0x25
0x1089…10b6 at0026 = ╱c6╱ INT ╱ // 0x10af @0x26
0x1089…10b6 at0027 = ╱ed╱ ( ╱ // 0x10b0 @0x27
0x1089…10b6 at0028 = ╱50╱P╱ // 0x10b1 @0x28
0x1089…10b6 at0029 = ╱43╱C╱ // 0x10b2 @0x29
0x1089…10b6 at002a = ╱54╱T╱ // 0x10b3 @0x2a
0x1089…10b6 at002b = ╱ee╱ ) ╱ // 0x10b4 @0x2b
0x1089…10b6 at002c = EOL // 0x10b5 @0x2c
0x1089…10b6 }
0x10b6…10c2 a6b0 01910 ENDPROC REGN17
0x10b6…10c2 LineComal80 {
0x10b6…10c2 ptr = 0xa6b0 // 0x10b6 @0x0
0x10b6…10c2 lno = 0x0776 // 0x10b8 @0x2
0x10b6…10c2 at0004 = ╱9f╱ ENDPROC ╱ // 0x10ba @0x4
0x10b6…10c2 at0005 = ╱52╱R╱ // 0x10bb @0x5
0x10b6…10c2 at0006 = ╱45╱E╱ // 0x10bc @0x6
0x10b6…10c2 at0007 = ╱47╱G╱ // 0x10bd @0x7
0x10b6…10c2 at0008 = ╱4e╱N╱ // 0x10be @0x8
0x10b6…10c2 at0009 = ╱31╱1╱ // 0x10bf @0x9
0x10b6…10c2 at000a = ╱37╱7╱ // 0x10c0 @0xa
0x10b6…10c2 at000b = EOL // 0x10c1 @0xb
0x10b6…10c2 }
0x10c2…10cf a6bd 01920 PROC REGN16
0x10c2…10cf LineComal80 {
0x10c2…10cf ptr = 0xa6bd // 0x10c2 @0x0
0x10c2…10cf lno = 0x0780 // 0x10c4 @0x2
0x10c2…10cf at0004 = ╱9e00╱ PROC ╱ // 0x10c6 @0x4
0x10c2…10cf at0006 = ╱52╱R╱ // 0x10c8 @0x6
0x10c2…10cf at0007 = ╱45╱E╱ // 0x10c9 @0x7
0x10c2…10cf at0008 = ╱47╱G╱ // 0x10ca @0x8
0x10c2…10cf at0009 = ╱4e╱N╱ // 0x10cb @0x9
0x10c2…10cf at000a = ╱31╱1╱ // 0x10cc @0xa
0x10c2…10cf at000b = ╱36╱6╱ // 0x10cd @0xb
0x10c2…10cf at000c = EOL // 0x10ce @0xc
0x10c2…10cf }
0x10cf…10ea a6d8 01930 LET FR := AI - ( D6 * 100 / PCT )
0x10cf…10ea LineComal80 {
0x10cf…10ea ptr = 0xa6d8 // 0x10cf @0x0
0x10cf…10ea lno = 0x078a // 0x10d1 @0x2
0x10cf…10ea at0004 = ╱86╱ LET ╱ // 0x10d3 @0x4
0x10cf…10ea at0005 = ╱46╱F╱ // 0x10d4 @0x5
0x10cf…10ea at0006 = ╱52╱R╱ // 0x10d5 @0x6
0x10cf…10ea at0007 = ╱f0╱ := ╱ // 0x10d6 @0x7
0x10cf…10ea at0008 = ╱41╱A╱ // 0x10d7 @0x8
0x10cf…10ea at0009 = ╱49╱I╱ // 0x10d8 @0x9
0x10cf…10ea at000a = ╱e6╱ - ╱ // 0x10d9 @0xa
0x10cf…10ea at000b = ╱ed╱ ( ╱ // 0x10da @0xb
0x10cf…10ea at000c = ╱44╱D╱ // 0x10db @0xc
0x10cf…10ea at000d = ╱36╱6╱ // 0x10dc @0xd
0x10cf…10ea at000e = ╱e7╱ * ╱ // 0x10dd @0xe
0x10cf…10ea at000f = ╱31╱1╱ // 0x10de @0xf
0x10cf…10ea at0010 = ╱30╱0╱ // 0x10df @0x10
0x10cf…10ea at0011 = ╱30╱0╱ // 0x10e0 @0x11
0x10cf…10ea at0012 = ╱f26400╱ // 0x10e1 @0x12
0x10cf…10ea at0015 = ╱e8╱ / ╱ // 0x10e4 @0x15
0x10cf…10ea at0016 = ╱50╱P╱ // 0x10e5 @0x16
0x10cf…10ea at0017 = ╱43╱C╱ // 0x10e6 @0x17
0x10cf…10ea at0018 = ╱54╱T╱ // 0x10e7 @0x18
0x10cf…10ea at0019 = ╱ee╱ ) ╱ // 0x10e8 @0x19
0x10cf…10ea at001a = EOL // 0x10e9 @0x1a
0x10cf…10ea }
0x10ea…10f9 a6e7 01940 IF R >= 0 THEN
0x10ea…10f9 LineComal80 {
0x10ea…10f9 ptr = 0xa6e7 // 0x10ea @0x0
0x10ea…10f9 lno = 0x0794 // 0x10ec @0x2
0x10ea…10f9 at0004 = ╱9b0046╱ IF ╱ // 0x10ee @0x4
0x10ea…10f9 at0007 = ╱52╱R╱ // 0x10f1 @0x7
0x10ea…10f9 at0008 = ╱e3╱ >= ╱ // 0x10f2 @0x8
0x10ea…10f9 at0009 = ╱30╱0╱ // 0x10f3 @0x9
0x10ea…10f9 at000a = ╱f20000╱ // 0x10f4 @0xa
0x10ea…10f9 at000d = ╱b5╱ THEN ╱ // 0x10f7 @0xd
0x10ea…10f9 at000e = EOL // 0x10f8 @0xe
0x10ea…10f9 }
0x10f9…1113 a701 01950 IF R >< 0 AND INT ( B6 ) >< 0 THEN
0x10f9…1113 LineComal80 {
0x10f9…1113 ptr = 0xa701 // 0x10f9 @0x0
0x10f9…1113 lno = 0x079e // 0x10fb @0x2
0x10f9…1113 at0004 = ╱9b0049╱ IF ╱ // 0x10fd @0x4
0x10f9…1113 at0007 = ╱52╱R╱ // 0x1100 @0x7
0x10f9…1113 at0008 = ╱e4╱ >< ╱ // 0x1101 @0x8
0x10f9…1113 at0009 = ╱30╱0╱ // 0x1102 @0x9
0x10f9…1113 at000a = ╱f20000╱ // 0x1103 @0xa
0x10f9…1113 at000d = ╱d9╱ AND ╱ // 0x1106 @0xd
0x10f9…1113 at000e = ╱c6╱ INT ╱ // 0x1107 @0xe
0x10f9…1113 at000f = ╱ed╱ ( ╱ // 0x1108 @0xf
0x10f9…1113 at0010 = ╱42╱B╱ // 0x1109 @0x10
0x10f9…1113 at0011 = ╱36╱6╱ // 0x110a @0x11
0x10f9…1113 at0012 = ╱ee╱ ) ╱ // 0x110b @0x12
0x10f9…1113 at0013 = ╱e4╱ >< ╱ // 0x110c @0x13
0x10f9…1113 at0014 = ╱30╱0╱ // 0x110d @0x14
0x10f9…1113 at0015 = ╱f20000╱ // 0x110e @0x15
0x10f9…1113 at0018 = ╱b5╱ THEN ╱ // 0x1111 @0x18
0x10f9…1113 at0019 = EOL // 0x1112 @0x19
0x10f9…1113 }
0x1113…1135 a723 01960 LET FR := FR - ( ( ( IR + B6 ) * 100 ) / PCT )
0x1113…1135 LineComal80 {
0x1113…1135 ptr = 0xa723 // 0x1113 @0x0
0x1113…1135 lno = 0x07a8 // 0x1115 @0x2
0x1113…1135 at0004 = ╱86╱ LET ╱ // 0x1117 @0x4
0x1113…1135 at0005 = ╱46╱F╱ // 0x1118 @0x5
0x1113…1135 at0006 = ╱52╱R╱ // 0x1119 @0x6
0x1113…1135 at0007 = ╱f0╱ := ╱ // 0x111a @0x7
0x1113…1135 at0008 = ╱46╱F╱ // 0x111b @0x8
0x1113…1135 at0009 = ╱52╱R╱ // 0x111c @0x9
0x1113…1135 at000a = ╱e6╱ - ╱ // 0x111d @0xa
0x1113…1135 at000b = ╱ed╱ ( ╱ // 0x111e @0xb
0x1113…1135 at000c = ╱ed╱ ( ╱ // 0x111f @0xc
0x1113…1135 at000d = ╱ed╱ ( ╱ // 0x1120 @0xd
0x1113…1135 at000e = ╱49╱I╱ // 0x1121 @0xe
0x1113…1135 at000f = ╱52╱R╱ // 0x1122 @0xf
0x1113…1135 at0010 = ╱e5╱ + ╱ // 0x1123 @0x10
0x1113…1135 at0011 = ╱42╱B╱ // 0x1124 @0x11
0x1113…1135 at0012 = ╱36╱6╱ // 0x1125 @0x12
0x1113…1135 at0013 = ╱ee╱ ) ╱ // 0x1126 @0x13
0x1113…1135 at0014 = ╱e7╱ * ╱ // 0x1127 @0x14
0x1113…1135 at0015 = ╱31╱1╱ // 0x1128 @0x15
0x1113…1135 at0016 = ╱30╱0╱ // 0x1129 @0x16
0x1113…1135 at0017 = ╱30╱0╱ // 0x112a @0x17
0x1113…1135 at0018 = ╱f26400╱ // 0x112b @0x18
0x1113…1135 at001b = ╱ee╱ ) ╱ // 0x112e @0x1b
0x1113…1135 at001c = ╱e8╱ / ╱ // 0x112f @0x1c
0x1113…1135 at001d = ╱50╱P╱ // 0x1130 @0x1d
0x1113…1135 at001e = ╱43╱C╱ // 0x1131 @0x1e
0x1113…1135 at001f = ╱54╱T╱ // 0x1132 @0x1f
0x1113…1135 at0020 = ╱ee╱ ) ╱ // 0x1133 @0x20
0x1113…1135 at0021 = EOL // 0x1134 @0x21
0x1113…1135 }
0x1135…1144 a732 01970 IF R < 0 THEN
0x1135…1144 LineComal80 {
0x1135…1144 ptr = 0xa732 // 0x1135 @0x0
0x1135…1144 lno = 0x07b2 // 0x1137 @0x2
0x1135…1144 at0004 = ╱9b0046╱ IF ╱ // 0x1139 @0x4
0x1135…1144 at0007 = ╱52╱R╱ // 0x113c @0x7
0x1135…1144 at0008 = ╱e0╱ < ╱ // 0x113d @0x8
0x1135…1144 at0009 = ╱30╱0╱ // 0x113e @0x9
0x1135…1144 at000a = ╱f20000╱ // 0x113f @0xa
0x1135…1144 at000d = ╱b5╱ THEN ╱ // 0x1142 @0xd
0x1135…1144 at000e = EOL // 0x1143 @0xe
0x1135…1144 }
0x1144…1171 a75f 01980 LET BSK := FR * PCT / 100 ; BSK := ABS ( INT ( BSK ) ) ; FR := 0
0x1144…1171 LineComal80 {
0x1144…1171 ptr = 0xa75f // 0x1144 @0x0
0x1144…1171 lno = 0x07bc // 0x1146 @0x2
0x1144…1171 at0004 = ╱86╱ LET ╱ // 0x1148 @0x4
0x1144…1171 at0005 = ╱42╱B╱ // 0x1149 @0x5
0x1144…1171 at0006 = ╱53╱S╱ // 0x114a @0x6
0x1144…1171 at0007 = ╱4b╱K╱ // 0x114b @0x7
0x1144…1171 at0008 = ╱f0╱ := ╱ // 0x114c @0x8
0x1144…1171 at0009 = ╱46╱F╱ // 0x114d @0x9
0x1144…1171 at000a = ╱52╱R╱ // 0x114e @0xa
0x1144…1171 at000b = ╱e7╱ * ╱ // 0x114f @0xb
0x1144…1171 at000c = ╱50╱P╱ // 0x1150 @0xc
0x1144…1171 at000d = ╱43╱C╱ // 0x1151 @0xd
0x1144…1171 at000e = ╱54╱T╱ // 0x1152 @0xe
0x1144…1171 at000f = ╱e8╱ / ╱ // 0x1153 @0xf
0x1144…1171 at0010 = ╱31╱1╱ // 0x1154 @0x10
0x1144…1171 at0011 = ╱30╱0╱ // 0x1155 @0x11
0x1144…1171 at0012 = ╱30╱0╱ // 0x1156 @0x12
0x1144…1171 at0013 = ╱f26400╱ // 0x1157 @0x13
0x1144…1171 at0016 = ╱ea╱ ; ╱ // 0x115a @0x16
0x1144…1171 at0017 = ╱42╱B╱ // 0x115b @0x17
0x1144…1171 at0018 = ╱53╱S╱ // 0x115c @0x18
0x1144…1171 at0019 = ╱4b╱K╱ // 0x115d @0x19
0x1144…1171 at001a = ╱f0╱ := ╱ // 0x115e @0x1a
0x1144…1171 at001b = ╱c4╱ ABS ╱ // 0x115f @0x1b
0x1144…1171 at001c = ╱ed╱ ( ╱ // 0x1160 @0x1c
0x1144…1171 at001d = ╱c6╱ INT ╱ // 0x1161 @0x1d
0x1144…1171 at001e = ╱ed╱ ( ╱ // 0x1162 @0x1e
0x1144…1171 at001f = ╱42╱B╱ // 0x1163 @0x1f
0x1144…1171 at0020 = ╱53╱S╱ // 0x1164 @0x20
0x1144…1171 at0021 = ╱4b╱K╱ // 0x1165 @0x21
0x1144…1171 at0022 = ╱ee╱ ) ╱ // 0x1166 @0x22
0x1144…1171 at0023 = ╱ee╱ ) ╱ // 0x1167 @0x23
0x1144…1171 at0024 = ╱ea╱ ; ╱ // 0x1168 @0x24
0x1144…1171 at0025 = ╱46╱F╱ // 0x1169 @0x25
0x1144…1171 at0026 = ╱52╱R╱ // 0x116a @0x26
0x1144…1171 at0027 = ╱f0╱ := ╱ // 0x116b @0x27
0x1144…1171 at0028 = ╱30╱0╱ // 0x116c @0x28
0x1144…1171 at0029 = ╱f20000╱ // 0x116d @0x29
0x1144…1171 at002c = EOL // 0x1170 @0x2c
0x1144…1171 }
0x1171…1177 a765 01990 ENDIF
0x1171…1177 LineComal80 {
0x1171…1177 ptr = 0xa765 // 0x1171 @0x0
0x1171…1177 lno = 0x07c6 // 0x1173 @0x2
0x1171…1177 at0004 = ╱9c╱ ENDIF ╱ // 0x1175 @0x4
0x1171…1177 at0005 = EOL // 0x1176 @0x5
0x1171…1177 }
0x1177…117d a76b 02000 ENDIF
0x1177…117d LineComal80 {
0x1177…117d ptr = 0xa76b // 0x1177 @0x0
0x1177…117d lno = 0x07d0 // 0x1179 @0x2
0x1177…117d at0004 = ╱9c╱ ENDIF ╱ // 0x117b @0x4
0x1177…117d at0005 = EOL // 0x117c @0x5
0x1177…117d }
0x117d…11a2 a790 02010 IF RESTRATE > 0 AND BSK > 0 THEN EXEC AFRUND
0x117d…11a2 LineComal80 {
0x117d…11a2 ptr = 0xa790 // 0x117d @0x0
0x117d…11a2 lno = 0x07da // 0x117f @0x2
0x117d…11a2 at0004 = ╱8200╱ IF ╱ // 0x1181 @0x4
0x117d…11a2 at0006 = ╱52╱R╱ // 0x1183 @0x6
0x117d…11a2 at0007 = ╱45╱E╱ // 0x1184 @0x7
0x117d…11a2 at0008 = ╱53╱S╱ // 0x1185 @0x8
0x117d…11a2 at0009 = ╱54╱T╱ // 0x1186 @0x9
0x117d…11a2 at000a = ╱52╱R╱ // 0x1187 @0xa
0x117d…11a2 at000b = ╱41╱A╱ // 0x1188 @0xb
0x117d…11a2 at000c = ╱54╱T╱ // 0x1189 @0xc
0x117d…11a2 at000d = ╱45╱E╱ // 0x118a @0xd
0x117d…11a2 at000e = ╱e1╱ > ╱ // 0x118b @0xe
0x117d…11a2 at000f = ╱30╱0╱ // 0x118c @0xf
0x117d…11a2 at0010 = ╱f20000╱ // 0x118d @0x10
0x117d…11a2 at0013 = ╱d9╱ AND ╱ // 0x1190 @0x13
0x117d…11a2 at0014 = ╱42╱B╱ // 0x1191 @0x14
0x117d…11a2 at0015 = ╱53╱S╱ // 0x1192 @0x15
0x117d…11a2 at0016 = ╱4b╱K╱ // 0x1193 @0x16
0x117d…11a2 at0017 = ╱e1╱ > ╱ // 0x1194 @0x17
0x117d…11a2 at0018 = ╱30╱0╱ // 0x1195 @0x18
0x117d…11a2 at0019 = ╱f20000╱ // 0x1196 @0x19
0x117d…11a2 at001c = ╱b5╱ THEN ╱ // 0x1199 @0x1c
0x117d…11a2 at001d = ╱9d╱ EXEC ╱ // 0x119a @0x1d
0x117d…11a2 at001e = ╱41╱A╱ // 0x119b @0x1e
0x117d…11a2 at001f = ╱46╱F╱ // 0x119c @0x1f
0x117d…11a2 at0020 = ╱52╱R╱ // 0x119d @0x20
0x117d…11a2 at0021 = ╱55╱U╱ // 0x119e @0x21
0x117d…11a2 at0022 = ╱4e╱N╱ // 0x119f @0x22
0x117d…11a2 at0023 = ╱44╱D╱ // 0x11a0 @0x23
0x117d…11a2 at0024 = EOL // 0x11a1 @0x24
0x117d…11a2 }
0x11a2…11a9 a797 02020 ELSE
0x11a2…11a9 LineComal80 {
0x11a2…11a9 ptr = 0xa797 // 0x11a2 @0x0
0x11a2…11a9 lno = 0x07e4 // 0x11a4 @0x2
0x11a2…11a9 at0004 = ╱9a00╱ ELSE ╱ // 0x11a6 @0x4
0x11a2…11a9 at0006 = EOL // 0x11a8 @0x6
0x11a2…11a9 }
0x11a9…11d6 a7c4 02030 LET BSK := FR * PCT / 100 ; BSK := ABS ( INT ( BSK ) ) ; FR := 0
0x11a9…11d6 LineComal80 {
0x11a9…11d6 ptr = 0xa7c4 // 0x11a9 @0x0
0x11a9…11d6 lno = 0x07ee // 0x11ab @0x2
0x11a9…11d6 at0004 = ╱86╱ LET ╱ // 0x11ad @0x4
0x11a9…11d6 at0005 = ╱42╱B╱ // 0x11ae @0x5
0x11a9…11d6 at0006 = ╱53╱S╱ // 0x11af @0x6
0x11a9…11d6 at0007 = ╱4b╱K╱ // 0x11b0 @0x7
0x11a9…11d6 at0008 = ╱f0╱ := ╱ // 0x11b1 @0x8
0x11a9…11d6 at0009 = ╱46╱F╱ // 0x11b2 @0x9
0x11a9…11d6 at000a = ╱52╱R╱ // 0x11b3 @0xa
0x11a9…11d6 at000b = ╱e7╱ * ╱ // 0x11b4 @0xb
0x11a9…11d6 at000c = ╱50╱P╱ // 0x11b5 @0xc
0x11a9…11d6 at000d = ╱43╱C╱ // 0x11b6 @0xd
0x11a9…11d6 at000e = ╱54╱T╱ // 0x11b7 @0xe
0x11a9…11d6 at000f = ╱e8╱ / ╱ // 0x11b8 @0xf
0x11a9…11d6 at0010 = ╱31╱1╱ // 0x11b9 @0x10
0x11a9…11d6 at0011 = ╱30╱0╱ // 0x11ba @0x11
0x11a9…11d6 at0012 = ╱30╱0╱ // 0x11bb @0x12
0x11a9…11d6 at0013 = ╱f26400╱ // 0x11bc @0x13
0x11a9…11d6 at0016 = ╱ea╱ ; ╱ // 0x11bf @0x16
0x11a9…11d6 at0017 = ╱42╱B╱ // 0x11c0 @0x17
0x11a9…11d6 at0018 = ╱53╱S╱ // 0x11c1 @0x18
0x11a9…11d6 at0019 = ╱4b╱K╱ // 0x11c2 @0x19
0x11a9…11d6 at001a = ╱f0╱ := ╱ // 0x11c3 @0x1a
0x11a9…11d6 at001b = ╱c4╱ ABS ╱ // 0x11c4 @0x1b
0x11a9…11d6 at001c = ╱ed╱ ( ╱ // 0x11c5 @0x1c
0x11a9…11d6 at001d = ╱c6╱ INT ╱ // 0x11c6 @0x1d
0x11a9…11d6 at001e = ╱ed╱ ( ╱ // 0x11c7 @0x1e
0x11a9…11d6 at001f = ╱42╱B╱ // 0x11c8 @0x1f
0x11a9…11d6 at0020 = ╱53╱S╱ // 0x11c9 @0x20
0x11a9…11d6 at0021 = ╱4b╱K╱ // 0x11ca @0x21
0x11a9…11d6 at0022 = ╱ee╱ ) ╱ // 0x11cb @0x22
0x11a9…11d6 at0023 = ╱ee╱ ) ╱ // 0x11cc @0x23
0x11a9…11d6 at0024 = ╱ea╱ ; ╱ // 0x11cd @0x24
0x11a9…11d6 at0025 = ╱46╱F╱ // 0x11ce @0x25
0x11a9…11d6 at0026 = ╱52╱R╱ // 0x11cf @0x26
0x11a9…11d6 at0027 = ╱f0╱ := ╱ // 0x11d0 @0x27
0x11a9…11d6 at0028 = ╱30╱0╱ // 0x11d1 @0x28
0x11a9…11d6 at0029 = ╱f20000╱ // 0x11d2 @0x29
0x11a9…11d6 at002c = EOL // 0x11d5 @0x2c
0x11a9…11d6 }
0x11d6…11f0 a7de 02040 IF R >< 0 AND INT ( B6 ) >< 0 THEN
0x11d6…11f0 LineComal80 {
0x11d6…11f0 ptr = 0xa7de // 0x11d6 @0x0
0x11d6…11f0 lno = 0x07f8 // 0x11d8 @0x2
0x11d6…11f0 at0004 = ╱9b0049╱ IF ╱ // 0x11da @0x4
0x11d6…11f0 at0007 = ╱52╱R╱ // 0x11dd @0x7
0x11d6…11f0 at0008 = ╱e4╱ >< ╱ // 0x11de @0x8
0x11d6…11f0 at0009 = ╱30╱0╱ // 0x11df @0x9
0x11d6…11f0 at000a = ╱f20000╱ // 0x11e0 @0xa
0x11d6…11f0 at000d = ╱d9╱ AND ╱ // 0x11e3 @0xd
0x11d6…11f0 at000e = ╱c6╱ INT ╱ // 0x11e4 @0xe
0x11d6…11f0 at000f = ╱ed╱ ( ╱ // 0x11e5 @0xf
0x11d6…11f0 at0010 = ╱42╱B╱ // 0x11e6 @0x10
0x11d6…11f0 at0011 = ╱36╱6╱ // 0x11e7 @0x11
0x11d6…11f0 at0012 = ╱ee╱ ) ╱ // 0x11e8 @0x12
0x11d6…11f0 at0013 = ╱e4╱ >< ╱ // 0x11e9 @0x13
0x11d6…11f0 at0014 = ╱30╱0╱ // 0x11ea @0x14
0x11d6…11f0 at0015 = ╱f20000╱ // 0x11eb @0x15
0x11d6…11f0 at0018 = ╱b5╱ THEN ╱ // 0x11ee @0x18
0x11d6…11f0 at0019 = EOL // 0x11ef @0x19
0x11d6…11f0 }
0x11f0…1206 a7f4 02050 LET BSK := BSK + IR + INT ( B6 )
0x11f0…1206 LineComal80 {
0x11f0…1206 ptr = 0xa7f4 // 0x11f0 @0x0
0x11f0…1206 lno = 0x0802 // 0x11f2 @0x2
0x11f0…1206 at0004 = ╱86╱ LET ╱ // 0x11f4 @0x4
0x11f0…1206 at0005 = ╱42╱B╱ // 0x11f5 @0x5
0x11f0…1206 at0006 = ╱53╱S╱ // 0x11f6 @0x6
0x11f0…1206 at0007 = ╱4b╱K╱ // 0x11f7 @0x7
0x11f0…1206 at0008 = ╱f0╱ := ╱ // 0x11f8 @0x8
0x11f0…1206 at0009 = ╱42╱B╱ // 0x11f9 @0x9
0x11f0…1206 at000a = ╱53╱S╱ // 0x11fa @0xa
0x11f0…1206 at000b = ╱4b╱K╱ // 0x11fb @0xb
0x11f0…1206 at000c = ╱e5╱ + ╱ // 0x11fc @0xc
0x11f0…1206 at000d = ╱49╱I╱ // 0x11fd @0xd
0x11f0…1206 at000e = ╱52╱R╱ // 0x11fe @0xe
0x11f0…1206 at000f = ╱e5╱ + ╱ // 0x11ff @0xf
0x11f0…1206 at0010 = ╱c6╱ INT ╱ // 0x1200 @0x10
0x11f0…1206 at0011 = ╱ed╱ ( ╱ // 0x1201 @0x11
0x11f0…1206 at0012 = ╱42╱B╱ // 0x1202 @0x12
0x11f0…1206 at0013 = ╱36╱6╱ // 0x1203 @0x13
0x11f0…1206 at0014 = ╱ee╱ ) ╱ // 0x1204 @0x14
0x11f0…1206 at0015 = EOL // 0x1205 @0x15
0x11f0…1206 }
0x1206…120c a7fa 02060 ENDIF
0x1206…120c LineComal80 {
0x1206…120c ptr = 0xa7fa // 0x1206 @0x0
0x1206…120c lno = 0x080c // 0x1208 @0x2
0x1206…120c at0004 = ╱9c╱ ENDIF ╱ // 0x120a @0x4
0x1206…120c at0005 = EOL // 0x120b @0x5
0x1206…120c }
0x120c…1212 (60,) a800 02070 ENDIF
0x120c…1212 LineComal80 {
0x120c…1212 ptr = 0xa800 // 0x120c @0x0
0x120c…1212 lno = 0x0816 // 0x120e @0x2
0x120c…1212 at0004 = ╱9c╱ ENDIF ╱ // 0x1210 @0x4
0x120c…1212 at0005 = EOL // 0x1211 @0x5
0x120c…1212 }
0x1212…1237 a825 02080 IF RESTRATE > 0 AND BSK > 0 THEN EXEC AFRUND
0x1212…1237 LineComal80 {
0x1212…1237 ptr = 0xa825 // 0x1212 @0x0
0x1212…1237 lno = 0x0820 // 0x1214 @0x2
0x1212…1237 at0004 = ╱8200╱ IF ╱ // 0x1216 @0x4
0x1212…1237 at0006 = ╱52╱R╱ // 0x1218 @0x6
0x1212…1237 at0007 = ╱45╱E╱ // 0x1219 @0x7
0x1212…1237 at0008 = ╱53╱S╱ // 0x121a @0x8
0x1212…1237 at0009 = ╱54╱T╱ // 0x121b @0x9
0x1212…1237 at000a = ╱52╱R╱ // 0x121c @0xa
0x1212…1237 at000b = ╱41╱A╱ // 0x121d @0xb
0x1212…1237 at000c = ╱54╱T╱ // 0x121e @0xc
0x1212…1237 at000d = ╱45╱E╱ // 0x121f @0xd
0x1212…1237 at000e = ╱e1╱ > ╱ // 0x1220 @0xe
0x1212…1237 at000f = ╱30╱0╱ // 0x1221 @0xf
0x1212…1237 at0010 = ╱f20000╱ // 0x1222 @0x10
0x1212…1237 at0013 = ╱d9╱ AND ╱ // 0x1225 @0x13
0x1212…1237 at0014 = ╱42╱B╱ // 0x1226 @0x14
0x1212…1237 at0015 = ╱53╱S╱ // 0x1227 @0x15
0x1212…1237 at0016 = ╱4b╱K╱ // 0x1228 @0x16
0x1212…1237 at0017 = ╱e1╱ > ╱ // 0x1229 @0x17
0x1212…1237 at0018 = ╱30╱0╱ // 0x122a @0x18
0x1212…1237 at0019 = ╱f20000╱ // 0x122b @0x19
0x1212…1237 at001c = ╱b5╱ THEN ╱ // 0x122e @0x1c
0x1212…1237 at001d = ╱9d╱ EXEC ╱ // 0x122f @0x1d
0x1212…1237 at001e = ╱41╱A╱ // 0x1230 @0x1e
0x1212…1237 at001f = ╱46╱F╱ // 0x1231 @0x1f
0x1212…1237 at0020 = ╱52╱R╱ // 0x1232 @0x20
0x1212…1237 at0021 = ╱55╱U╱ // 0x1233 @0x21
0x1212…1237 at0022 = ╱4e╱N╱ // 0x1234 @0x22
0x1212…1237 at0023 = ╱44╱D╱ // 0x1235 @0x23
0x1212…1237 at0024 = EOL // 0x1236 @0x24
0x1212…1237 }
0x1237…1243 a831 02090 ENDPROC REGN16
0x1237…1243 LineComal80 {
0x1237…1243 ptr = 0xa831 // 0x1237 @0x0
0x1237…1243 lno = 0x082a // 0x1239 @0x2
0x1237…1243 at0004 = ╱9f╱ ENDPROC ╱ // 0x123b @0x4
0x1237…1243 at0005 = ╱52╱R╱ // 0x123c @0x5
0x1237…1243 at0006 = ╱45╱E╱ // 0x123d @0x6
0x1237…1243 at0007 = ╱47╱G╱ // 0x123e @0x7
0x1237…1243 at0008 = ╱4e╱N╱ // 0x123f @0x8
0x1237…1243 at0009 = ╱31╱1╱ // 0x1240 @0x9
0x1237…1243 at000a = ╱36╱6╱ // 0x1241 @0xa
0x1237…1243 at000b = EOL // 0x1242 @0xb
0x1237…1243 }
0x1243…1250 a83e 02100 PROC REGN11
0x1243…1250 LineComal80 {
0x1243…1250 ptr = 0xa83e // 0x1243 @0x0
0x1243…1250 lno = 0x0834 // 0x1245 @0x2
0x1243…1250 at0004 = ╱9e00╱ PROC ╱ // 0x1247 @0x4
0x1243…1250 at0006 = ╱52╱R╱ // 0x1249 @0x6
0x1243…1250 at0007 = ╱45╱E╱ // 0x124a @0x7
0x1243…1250 at0008 = ╱47╱G╱ // 0x124b @0x8
0x1243…1250 at0009 = ╱4e╱N╱ // 0x124c @0x9
0x1243…1250 at000a = ╱31╱1╱ // 0x124d @0xa
0x1243…1250 at000b = ╱31╱1╱ // 0x124e @0xb
0x1243…1250 at000c = EOL // 0x124f @0xc
0x1243…1250 }
0x1250…1274 a862 02110 LET FR1 := FR * 365 / ( 365 - Z ) / 12
0x1250…1274 LineComal80 {
0x1250…1274 ptr = 0xa862 // 0x1250 @0x0
0x1250…1274 lno = 0x083e // 0x1252 @0x2
0x1250…1274 at0004 = ╱86╱ LET ╱ // 0x1254 @0x4
0x1250…1274 at0005 = ╱46╱F╱ // 0x1255 @0x5
0x1250…1274 at0006 = ╱52╱R╱ // 0x1256 @0x6
0x1250…1274 at0007 = ╱31╱1╱ // 0x1257 @0x7
0x1250…1274 at0008 = ╱f0╱ := ╱ // 0x1258 @0x8
0x1250…1274 at0009 = ╱46╱F╱ // 0x1259 @0x9
0x1250…1274 at000a = ╱52╱R╱ // 0x125a @0xa
0x1250…1274 at000b = ╱e7╱ * ╱ // 0x125b @0xb
0x1250…1274 at000c = ╱33╱3╱ // 0x125c @0xc
0x1250…1274 at000d = ╱36╱6╱ // 0x125d @0xd
0x1250…1274 at000e = ╱35╱5╱ // 0x125e @0xe
0x1250…1274 at000f = ╱f26d01╱ // 0x125f @0xf
0x1250…1274 at0012 = ╱e8╱ / ╱ // 0x1262 @0x12
0x1250…1274 at0013 = ╱ed╱ ( ╱ // 0x1263 @0x13
0x1250…1274 at0014 = ╱33╱3╱ // 0x1264 @0x14
0x1250…1274 at0015 = ╱36╱6╱ // 0x1265 @0x15
0x1250…1274 at0016 = ╱35╱5╱ // 0x1266 @0x16
0x1250…1274 at0017 = ╱f26d01╱ // 0x1267 @0x17
0x1250…1274 at001a = ╱e6╱ - ╱ // 0x126a @0x1a
0x1250…1274 at001b = ╱5a╱Z╱ // 0x126b @0x1b
0x1250…1274 at001c = ╱ee╱ ) ╱ // 0x126c @0x1c
0x1250…1274 at001d = ╱e8╱ / ╱ // 0x126d @0x1d
0x1250…1274 at001e = ╱31╱1╱ // 0x126e @0x1e
0x1250…1274 at001f = ╱32╱2╱ // 0x126f @0x1f
0x1250…1274 at0020 = ╱f20c00╱ // 0x1270 @0x20
0x1250…1274 at0023 = EOL // 0x1273 @0x23
0x1250…1274 }
0x1274…1298 a886 02120 LET FR2 := FR * 365 / ( 365 - Z ) / 26
0x1274…1298 LineComal80 {
0x1274…1298 ptr = 0xa886 // 0x1274 @0x0
0x1274…1298 lno = 0x0848 // 0x1276 @0x2
0x1274…1298 at0004 = ╱86╱ LET ╱ // 0x1278 @0x4
0x1274…1298 at0005 = ╱46╱F╱ // 0x1279 @0x5
0x1274…1298 at0006 = ╱52╱R╱ // 0x127a @0x6
0x1274…1298 at0007 = ╱32╱2╱ // 0x127b @0x7
0x1274…1298 at0008 = ╱f0╱ := ╱ // 0x127c @0x8
0x1274…1298 at0009 = ╱46╱F╱ // 0x127d @0x9
0x1274…1298 at000a = ╱52╱R╱ // 0x127e @0xa
0x1274…1298 at000b = ╱e7╱ * ╱ // 0x127f @0xb
0x1274…1298 at000c = ╱33╱3╱ // 0x1280 @0xc
0x1274…1298 at000d = ╱36╱6╱ // 0x1281 @0xd
0x1274…1298 at000e = ╱35╱5╱ // 0x1282 @0xe
0x1274…1298 at000f = ╱f26d01╱ // 0x1283 @0xf
0x1274…1298 at0012 = ╱e8╱ / ╱ // 0x1286 @0x12
0x1274…1298 at0013 = ╱ed╱ ( ╱ // 0x1287 @0x13
0x1274…1298 at0014 = ╱33╱3╱ // 0x1288 @0x14
0x1274…1298 at0015 = ╱36╱6╱ // 0x1289 @0x15
0x1274…1298 at0016 = ╱35╱5╱ // 0x128a @0x16
0x1274…1298 at0017 = ╱f26d01╱ // 0x128b @0x17
0x1274…1298 at001a = ╱e6╱ - ╱ // 0x128e @0x1a
0x1274…1298 at001b = ╱5a╱Z╱ // 0x128f @0x1b
0x1274…1298 at001c = ╱ee╱ ) ╱ // 0x1290 @0x1c
0x1274…1298 at001d = ╱e8╱ / ╱ // 0x1291 @0x1d
0x1274…1298 at001e = ╱32╱2╱ // 0x1292 @0x1e
0x1274…1298 at001f = ╱36╱6╱ // 0x1293 @0x1f
0x1274…1298 at0020 = ╱f21a00╱ // 0x1294 @0x20
0x1274…1298 at0023 = EOL // 0x1297 @0x23
0x1274…1298 }
0x1298…12bc a8aa 02130 LET FR3 := FR * 365 / ( 365 - Z ) / 52
0x1298…12bc LineComal80 {
0x1298…12bc ptr = 0xa8aa // 0x1298 @0x0
0x1298…12bc lno = 0x0852 // 0x129a @0x2
0x1298…12bc at0004 = ╱86╱ LET ╱ // 0x129c @0x4
0x1298…12bc at0005 = ╱46╱F╱ // 0x129d @0x5
0x1298…12bc at0006 = ╱52╱R╱ // 0x129e @0x6
0x1298…12bc at0007 = ╱33╱3╱ // 0x129f @0x7
0x1298…12bc at0008 = ╱f0╱ := ╱ // 0x12a0 @0x8
0x1298…12bc at0009 = ╱46╱F╱ // 0x12a1 @0x9
0x1298…12bc at000a = ╱52╱R╱ // 0x12a2 @0xa
0x1298…12bc at000b = ╱e7╱ * ╱ // 0x12a3 @0xb
0x1298…12bc at000c = ╱33╱3╱ // 0x12a4 @0xc
0x1298…12bc at000d = ╱36╱6╱ // 0x12a5 @0xd
0x1298…12bc at000e = ╱35╱5╱ // 0x12a6 @0xe
0x1298…12bc at000f = ╱f26d01╱ // 0x12a7 @0xf
0x1298…12bc at0012 = ╱e8╱ / ╱ // 0x12aa @0x12
0x1298…12bc at0013 = ╱ed╱ ( ╱ // 0x12ab @0x13
0x1298…12bc at0014 = ╱33╱3╱ // 0x12ac @0x14
0x1298…12bc at0015 = ╱36╱6╱ // 0x12ad @0x15
0x1298…12bc at0016 = ╱35╱5╱ // 0x12ae @0x16
0x1298…12bc at0017 = ╱f26d01╱ // 0x12af @0x17
0x1298…12bc at001a = ╱e6╱ - ╱ // 0x12b2 @0x1a
0x1298…12bc at001b = ╱5a╱Z╱ // 0x12b3 @0x1b
0x1298…12bc at001c = ╱ee╱ ) ╱ // 0x12b4 @0x1c
0x1298…12bc at001d = ╱e8╱ / ╱ // 0x12b5 @0x1d
0x1298…12bc at001e = ╱35╱5╱ // 0x12b6 @0x1e
0x1298…12bc at001f = ╱32╱2╱ // 0x12b7 @0x1f
0x1298…12bc at0020 = ╱f23400╱ // 0x12b8 @0x20
0x1298…12bc at0023 = EOL // 0x12bb @0x23
0x1298…12bc }
0x12bc…12d3 a8c1 02140 LET FR4 := FR / ( 365 - Z )
0x12bc…12d3 LineComal80 {
0x12bc…12d3 ptr = 0xa8c1 // 0x12bc @0x0
0x12bc…12d3 lno = 0x085c // 0x12be @0x2
0x12bc…12d3 at0004 = ╱86╱ LET ╱ // 0x12c0 @0x4
0x12bc…12d3 at0005 = ╱46╱F╱ // 0x12c1 @0x5
0x12bc…12d3 at0006 = ╱52╱R╱ // 0x12c2 @0x6
0x12bc…12d3 at0007 = ╱34╱4╱ // 0x12c3 @0x7
0x12bc…12d3 at0008 = ╱f0╱ := ╱ // 0x12c4 @0x8
0x12bc…12d3 at0009 = ╱46╱F╱ // 0x12c5 @0x9
0x12bc…12d3 at000a = ╱52╱R╱ // 0x12c6 @0xa
0x12bc…12d3 at000b = ╱e8╱ / ╱ // 0x12c7 @0xb
0x12bc…12d3 at000c = ╱ed╱ ( ╱ // 0x12c8 @0xc
0x12bc…12d3 at000d = ╱33╱3╱ // 0x12c9 @0xd
0x12bc…12d3 at000e = ╱36╱6╱ // 0x12ca @0xe
0x12bc…12d3 at000f = ╱35╱5╱ // 0x12cb @0xf
0x12bc…12d3 at0010 = ╱f26d01╱ // 0x12cc @0x10
0x12bc…12d3 at0013 = ╱e6╱ - ╱ // 0x12cf @0x13
0x12bc…12d3 at0014 = ╱5a╱Z╱ // 0x12d0 @0x14
0x12bc…12d3 at0015 = ╱ee╱ ) ╱ // 0x12d1 @0x15
0x12bc…12d3 at0016 = EOL // 0x12d2 @0x16
0x12bc…12d3 }
0x12d3…12df a8cd 02150 ENDPROC REGN11
0x12d3…12df LineComal80 {
0x12d3…12df ptr = 0xa8cd // 0x12d3 @0x0
0x12d3…12df lno = 0x0866 // 0x12d5 @0x2
0x12d3…12df at0004 = ╱9f╱ ENDPROC ╱ // 0x12d7 @0x4
0x12d3…12df at0005 = ╱52╱R╱ // 0x12d8 @0x5
0x12d3…12df at0006 = ╱45╱E╱ // 0x12d9 @0x6
0x12d3…12df at0007 = ╱47╱G╱ // 0x12da @0x7
0x12d3…12df at0008 = ╱4e╱N╱ // 0x12db @0x8
0x12d3…12df at0009 = ╱31╱1╱ // 0x12dc @0x9
0x12d3…12df at000a = ╱31╱1╱ // 0x12dd @0xa
0x12d3…12df at000b = EOL // 0x12de @0xb
0x12d3…12df }
0x12df…12ec a8da 02160 PROC REGN13
0x12df…12ec LineComal80 {
0x12df…12ec ptr = 0xa8da // 0x12df @0x0
0x12df…12ec lno = 0x0870 // 0x12e1 @0x2
0x12df…12ec at0004 = ╱9e00╱ PROC ╱ // 0x12e3 @0x4
0x12df…12ec at0006 = ╱52╱R╱ // 0x12e5 @0x6
0x12df…12ec at0007 = ╱45╱E╱ // 0x12e6 @0x7
0x12df…12ec at0008 = ╱47╱G╱ // 0x12e7 @0x8
0x12df…12ec at0009 = ╱4e╱N╱ // 0x12e8 @0x9
0x12df…12ec at000a = ╱31╱1╱ // 0x12e9 @0xa
0x12df…12ec at000b = ╱33╱3╱ // 0x12ea @0xb
0x12df…12ec at000c = EOL // 0x12eb @0xc
0x12df…12ec }
0x12ec…1301 a8ef 02170 LET BSK := INT ( D6 + IR + B6 )
0x12ec…1301 LineComal80 {
0x12ec…1301 ptr = 0xa8ef // 0x12ec @0x0
0x12ec…1301 lno = 0x087a // 0x12ee @0x2
0x12ec…1301 at0004 = ╱86╱ LET ╱ // 0x12f0 @0x4
0x12ec…1301 at0005 = ╱42╱B╱ // 0x12f1 @0x5
0x12ec…1301 at0006 = ╱53╱S╱ // 0x12f2 @0x6
0x12ec…1301 at0007 = ╱4b╱K╱ // 0x12f3 @0x7
0x12ec…1301 at0008 = ╱f0╱ := ╱ // 0x12f4 @0x8
0x12ec…1301 at0009 = ╱c6╱ INT ╱ // 0x12f5 @0x9
0x12ec…1301 at000a = ╱ed╱ ( ╱ // 0x12f6 @0xa
0x12ec…1301 at000b = ╱44╱D╱ // 0x12f7 @0xb
0x12ec…1301 at000c = ╱36╱6╱ // 0x12f8 @0xc
0x12ec…1301 at000d = ╱e5╱ + ╱ // 0x12f9 @0xd
0x12ec…1301 at000e = ╱49╱I╱ // 0x12fa @0xe
0x12ec…1301 at000f = ╱52╱R╱ // 0x12fb @0xf
0x12ec…1301 at0010 = ╱e5╱ + ╱ // 0x12fc @0x10
0x12ec…1301 at0011 = ╱42╱B╱ // 0x12fd @0x11
0x12ec…1301 at0012 = ╱36╱6╱ // 0x12fe @0x12
0x12ec…1301 at0013 = ╱ee╱ ) ╱ // 0x12ff @0x13
0x12ec…1301 at0014 = EOL // 0x1300 @0x14
0x12ec…1301 }
0x1301…1326 a914 02180 IF RESTRATE > 0 AND BSK > 0 THEN EXEC AFRUND
0x1301…1326 LineComal80 {
0x1301…1326 ptr = 0xa914 // 0x1301 @0x0
0x1301…1326 lno = 0x0884 // 0x1303 @0x2
0x1301…1326 at0004 = ╱8200╱ IF ╱ // 0x1305 @0x4
0x1301…1326 at0006 = ╱52╱R╱ // 0x1307 @0x6
0x1301…1326 at0007 = ╱45╱E╱ // 0x1308 @0x7
0x1301…1326 at0008 = ╱53╱S╱ // 0x1309 @0x8
0x1301…1326 at0009 = ╱54╱T╱ // 0x130a @0x9
0x1301…1326 at000a = ╱52╱R╱ // 0x130b @0xa
0x1301…1326 at000b = ╱41╱A╱ // 0x130c @0xb
0x1301…1326 at000c = ╱54╱T╱ // 0x130d @0xc
0x1301…1326 at000d = ╱45╱E╱ // 0x130e @0xd
0x1301…1326 at000e = ╱e1╱ > ╱ // 0x130f @0xe
0x1301…1326 at000f = ╱30╱0╱ // 0x1310 @0xf
0x1301…1326 at0010 = ╱f20000╱ // 0x1311 @0x10
0x1301…1326 at0013 = ╱d9╱ AND ╱ // 0x1314 @0x13
0x1301…1326 at0014 = ╱42╱B╱ // 0x1315 @0x14
0x1301…1326 at0015 = ╱53╱S╱ // 0x1316 @0x15
0x1301…1326 at0016 = ╱4b╱K╱ // 0x1317 @0x16
0x1301…1326 at0017 = ╱e1╱ > ╱ // 0x1318 @0x17
0x1301…1326 at0018 = ╱30╱0╱ // 0x1319 @0x18
0x1301…1326 at0019 = ╱f20000╱ // 0x131a @0x19
0x1301…1326 at001c = ╱b5╱ THEN ╱ // 0x131d @0x1c
0x1301…1326 at001d = ╱9d╱ EXEC ╱ // 0x131e @0x1d
0x1301…1326 at001e = ╱41╱A╱ // 0x131f @0x1e
0x1301…1326 at001f = ╱46╱F╱ // 0x1320 @0x1f
0x1301…1326 at0020 = ╱52╱R╱ // 0x1321 @0x20
0x1301…1326 at0021 = ╱55╱U╱ // 0x1322 @0x21
0x1301…1326 at0022 = ╱4e╱N╱ // 0x1323 @0x22
0x1301…1326 at0023 = ╱44╱D╱ // 0x1324 @0x23
0x1301…1326 at0024 = EOL // 0x1325 @0x24
0x1301…1326 }
0x1326…1332 a920 02190 ENDPROC REGN13
0x1326…1332 LineComal80 {
0x1326…1332 ptr = 0xa920 // 0x1326 @0x0
0x1326…1332 lno = 0x088e // 0x1328 @0x2
0x1326…1332 at0004 = ╱9f╱ ENDPROC ╱ // 0x132a @0x4
0x1326…1332 at0005 = ╱52╱R╱ // 0x132b @0x5
0x1326…1332 at0006 = ╱45╱E╱ // 0x132c @0x6
0x1326…1332 at0007 = ╱47╱G╱ // 0x132d @0x7
0x1326…1332 at0008 = ╱4e╱N╱ // 0x132e @0x8
0x1326…1332 at0009 = ╱31╱1╱ // 0x132f @0x9
0x1326…1332 at000a = ╱33╱3╱ // 0x1330 @0xa
0x1326…1332 at000b = EOL // 0x1331 @0xb
0x1326…1332 }
0x1332…133f a92d 02200 PROC AFRUND
0x1332…133f LineComal80 {
0x1332…133f ptr = 0xa92d // 0x1332 @0x0
0x1332…133f lno = 0x0898 // 0x1334 @0x2
0x1332…133f at0004 = ╱9e00╱ PROC ╱ // 0x1336 @0x4
0x1332…133f at0006 = ╱41╱A╱ // 0x1338 @0x6
0x1332…133f at0007 = ╱46╱F╱ // 0x1339 @0x7
0x1332…133f at0008 = ╱52╱R╱ // 0x133a @0x8
0x1332…133f at0009 = ╱55╱U╱ // 0x133b @0x9
0x1332…133f at000a = ╱4e╱N╱ // 0x133c @0xa
0x1332…133f at000b = ╱44╱D╱ // 0x133d @0xb
0x1332…133f at000c = EOL // 0x133e @0xc
0x1332…133f }
0x133f…1371 a95f 02210 LET BSKRATE := INT ( BSK / RESTRATE ) ; BSK := BSKRATE * RESTRATE
0x133f…1371 LineComal80 {
0x133f…1371 ptr = 0xa95f // 0x133f @0x0
0x133f…1371 lno = 0x08a2 // 0x1341 @0x2
0x133f…1371 at0004 = ╱86╱ LET ╱ // 0x1343 @0x4
0x133f…1371 at0005 = ╱42╱B╱ // 0x1344 @0x5
0x133f…1371 at0006 = ╱53╱S╱ // 0x1345 @0x6
0x133f…1371 at0007 = ╱4b╱K╱ // 0x1346 @0x7
0x133f…1371 at0008 = ╱52╱R╱ // 0x1347 @0x8
0x133f…1371 at0009 = ╱41╱A╱ // 0x1348 @0x9
0x133f…1371 at000a = ╱54╱T╱ // 0x1349 @0xa
0x133f…1371 at000b = ╱45╱E╱ // 0x134a @0xb
0x133f…1371 at000c = ╱f0╱ := ╱ // 0x134b @0xc
0x133f…1371 at000d = ╱c6╱ INT ╱ // 0x134c @0xd
0x133f…1371 at000e = ╱ed╱ ( ╱ // 0x134d @0xe
0x133f…1371 at000f = ╱42╱B╱ // 0x134e @0xf
0x133f…1371 at0010 = ╱53╱S╱ // 0x134f @0x10
0x133f…1371 at0011 = ╱4b╱K╱ // 0x1350 @0x11
0x133f…1371 at0012 = ╱e8╱ / ╱ // 0x1351 @0x12
0x133f…1371 at0013 = ╱52╱R╱ // 0x1352 @0x13
0x133f…1371 at0014 = ╱45╱E╱ // 0x1353 @0x14
0x133f…1371 at0015 = ╱53╱S╱ // 0x1354 @0x15
0x133f…1371 at0016 = ╱54╱T╱ // 0x1355 @0x16
0x133f…1371 at0017 = ╱52╱R╱ // 0x1356 @0x17
0x133f…1371 at0018 = ╱41╱A╱ // 0x1357 @0x18
0x133f…1371 at0019 = ╱54╱T╱ // 0x1358 @0x19
0x133f…1371 at001a = ╱45╱E╱ // 0x1359 @0x1a
0x133f…1371 at001b = ╱ee╱ ) ╱ // 0x135a @0x1b
0x133f…1371 at001c = ╱ea╱ ; ╱ // 0x135b @0x1c
0x133f…1371 at001d = ╱42╱B╱ // 0x135c @0x1d
0x133f…1371 at001e = ╱53╱S╱ // 0x135d @0x1e
0x133f…1371 at001f = ╱4b╱K╱ // 0x135e @0x1f
0x133f…1371 at0020 = ╱f0╱ := ╱ // 0x135f @0x20
0x133f…1371 at0021 = ╱42╱B╱ // 0x1360 @0x21
0x133f…1371 at0022 = ╱53╱S╱ // 0x1361 @0x22
0x133f…1371 at0023 = ╱4b╱K╱ // 0x1362 @0x23
0x133f…1371 at0024 = ╱52╱R╱ // 0x1363 @0x24
0x133f…1371 at0025 = ╱41╱A╱ // 0x1364 @0x25
0x133f…1371 at0026 = ╱54╱T╱ // 0x1365 @0x26
0x133f…1371 at0027 = ╱45╱E╱ // 0x1366 @0x27
0x133f…1371 at0028 = ╱e7╱ * ╱ // 0x1367 @0x28
0x133f…1371 at0029 = ╱52╱R╱ // 0x1368 @0x29
0x133f…1371 at002a = ╱45╱E╱ // 0x1369 @0x2a
0x133f…1371 at002b = ╱53╱S╱ // 0x136a @0x2b
0x133f…1371 at002c = ╱54╱T╱ // 0x136b @0x2c
0x133f…1371 at002d = ╱52╱R╱ // 0x136c @0x2d
0x133f…1371 at002e = ╱41╱A╱ // 0x136d @0x2e
0x133f…1371 at002f = ╱54╱T╱ // 0x136e @0x2f
0x133f…1371 at0030 = ╱45╱E╱ // 0x136f @0x30
0x133f…1371 at0031 = EOL // 0x1370 @0x31
0x133f…1371 }
0x1371…137d a96b 02220 ENDPROC AFRUND
0x1371…137d LineComal80 {
0x1371…137d ptr = 0xa96b // 0x1371 @0x0
0x1371…137d lno = 0x08ac // 0x1373 @0x2
0x1371…137d at0004 = ╱9f╱ ENDPROC ╱ // 0x1375 @0x4
0x1371…137d at0005 = ╱41╱A╱ // 0x1376 @0x5
0x1371…137d at0006 = ╱46╱F╱ // 0x1377 @0x6
0x1371…137d at0007 = ╱52╱R╱ // 0x1378 @0x7
0x1371…137d at0008 = ╱55╱U╱ // 0x1379 @0x8
0x1371…137d at0009 = ╱4e╱N╱ // 0x137a @0x9
0x1371…137d at000a = ╱44╱D╱ // 0x137b @0xa
0x1371…137d at000b = EOL // 0x137c @0xb
0x1371…137d }
0x137d…138a a978 02230 PROC REGN14
0x137d…138a LineComal80 {
0x137d…138a ptr = 0xa978 // 0x137d @0x0
0x137d…138a lno = 0x08b6 // 0x137f @0x2
0x137d…138a at0004 = ╱9e00╱ PROC ╱ // 0x1381 @0x4
0x137d…138a at0006 = ╱52╱R╱ // 0x1383 @0x6
0x137d…138a at0007 = ╱45╱E╱ // 0x1384 @0x7
0x137d…138a at0008 = ╱47╱G╱ // 0x1385 @0x8
0x137d…138a at0009 = ╱4e╱N╱ // 0x1386 @0x9
0x137d…138a at000a = ╱31╱1╱ // 0x1387 @0xa
0x137d…138a at000b = ╱34╱4╱ // 0x1388 @0xb
0x137d…138a at000c = EOL // 0x1389 @0xc
0x137d…138a }
0x138a…13c2 a9b0 02240 IF C7 =< P1 THEN LET PCT := ( 16 * U1 ) + P0 + PA0 + P7 + P8 + ( P9 * ( TK = 1 ) )
0x138a…13c2 LineComal80 {
0x138a…13c2 ptr = 0xa9b0 // 0x138a @0x0
0x138a…13c2 lno = 0x08c0 // 0x138c @0x2
0x138a…13c2 at0004 = ╱8200╱ IF ╱ // 0x138e @0x4
0x138a…13c2 at0006 = ╱43╱C╱ // 0x1390 @0x6
0x138a…13c2 at0007 = ╱37╱7╱ // 0x1391 @0x7
0x138a…13c2 at0008 = ╱e2╱ =< ╱ // 0x1392 @0x8
0x138a…13c2 at0009 = ╱50╱P╱ // 0x1393 @0x9
0x138a…13c2 at000a = ╱31╱1╱ // 0x1394 @0xa
0x138a…13c2 at000b = ╱b5╱ THEN ╱ // 0x1395 @0xb
0x138a…13c2 at000c = ╱86╱ LET ╱ // 0x1396 @0xc
0x138a…13c2 at000d = ╱50╱P╱ // 0x1397 @0xd
0x138a…13c2 at000e = ╱43╱C╱ // 0x1398 @0xe
0x138a…13c2 at000f = ╱54╱T╱ // 0x1399 @0xf
0x138a…13c2 at0010 = ╱f0╱ := ╱ // 0x139a @0x10
0x138a…13c2 at0011 = ╱ed╱ ( ╱ // 0x139b @0x11
0x138a…13c2 at0012 = ╱31╱1╱ // 0x139c @0x12
0x138a…13c2 at0013 = ╱36╱6╱ // 0x139d @0x13
0x138a…13c2 at0014 = ╱f21000╱ // 0x139e @0x14
0x138a…13c2 at0017 = ╱e7╱ * ╱ // 0x13a1 @0x17
0x138a…13c2 at0018 = ╱55╱U╱ // 0x13a2 @0x18
0x138a…13c2 at0019 = ╱31╱1╱ // 0x13a3 @0x19
0x138a…13c2 at001a = ╱ee╱ ) ╱ // 0x13a4 @0x1a
0x138a…13c2 at001b = ╱e5╱ + ╱ // 0x13a5 @0x1b
0x138a…13c2 at001c = ╱50╱P╱ // 0x13a6 @0x1c
0x138a…13c2 at001d = ╱30╱0╱ // 0x13a7 @0x1d
0x138a…13c2 at001e = ╱e5╱ + ╱ // 0x13a8 @0x1e
0x138a…13c2 at001f = ╱50╱P╱ // 0x13a9 @0x1f
0x138a…13c2 at0020 = ╱41╱A╱ // 0x13aa @0x20
0x138a…13c2 at0021 = ╱30╱0╱ // 0x13ab @0x21
0x138a…13c2 at0022 = ╱e5╱ + ╱ // 0x13ac @0x22
0x138a…13c2 at0023 = ╱50╱P╱ // 0x13ad @0x23
0x138a…13c2 at0024 = ╱37╱7╱ // 0x13ae @0x24
0x138a…13c2 at0025 = ╱e5╱ + ╱ // 0x13af @0x25
0x138a…13c2 at0026 = ╱50╱P╱ // 0x13b0 @0x26
0x138a…13c2 at0027 = ╱38╱8╱ // 0x13b1 @0x27
0x138a…13c2 at0028 = ╱e5╱ + ╱ // 0x13b2 @0x28
0x138a…13c2 at0029 = ╱ed╱ ( ╱ // 0x13b3 @0x29
0x138a…13c2 at002a = ╱50╱P╱ // 0x13b4 @0x2a
0x138a…13c2 at002b = ╱39╱9╱ // 0x13b5 @0x2b
0x138a…13c2 at002c = ╱e7╱ * ╱ // 0x13b6 @0x2c
0x138a…13c2 at002d = ╱ed╱ ( ╱ // 0x13b7 @0x2d
0x138a…13c2 at002e = ╱54╱T╱ // 0x13b8 @0x2e
0x138a…13c2 at002f = ╱4b╱K╱ // 0x13b9 @0x2f
0x138a…13c2 at0030 = ╱df╱ = ╱ // 0x13ba @0x30
0x138a…13c2 at0031 = ╱31╱1╱ // 0x13bb @0x31
0x138a…13c2 at0032 = ╱f20100╱ // 0x13bc @0x32
0x138a…13c2 at0035 = ╱ee╱ ) ╱ // 0x13bf @0x35
0x138a…13c2 at0036 = ╱ee╱ ) ╱ // 0x13c0 @0x36
0x138a…13c2 at0037 = EOL // 0x13c1 @0x37
0x138a…13c2 }
0x13c2…13fa a9e8 02250 IF C7 > P1 THEN LET PCT := ( 32 * U1 ) + P0 + PA0 + P7 + P8 + ( P9 * ( TK = 1 ) )
0x13c2…13fa LineComal80 {
0x13c2…13fa ptr = 0xa9e8 // 0x13c2 @0x0
0x13c2…13fa lno = 0x08ca // 0x13c4 @0x2
0x13c2…13fa at0004 = ╱8200╱ IF ╱ // 0x13c6 @0x4
0x13c2…13fa at0006 = ╱43╱C╱ // 0x13c8 @0x6
0x13c2…13fa at0007 = ╱37╱7╱ // 0x13c9 @0x7
0x13c2…13fa at0008 = ╱e1╱ > ╱ // 0x13ca @0x8
0x13c2…13fa at0009 = ╱50╱P╱ // 0x13cb @0x9
0x13c2…13fa at000a = ╱31╱1╱ // 0x13cc @0xa
0x13c2…13fa at000b = ╱b5╱ THEN ╱ // 0x13cd @0xb
0x13c2…13fa at000c = ╱86╱ LET ╱ // 0x13ce @0xc
0x13c2…13fa at000d = ╱50╱P╱ // 0x13cf @0xd
0x13c2…13fa at000e = ╱43╱C╱ // 0x13d0 @0xe
0x13c2…13fa at000f = ╱54╱T╱ // 0x13d1 @0xf
0x13c2…13fa at0010 = ╱f0╱ := ╱ // 0x13d2 @0x10
0x13c2…13fa at0011 = ╱ed╱ ( ╱ // 0x13d3 @0x11
0x13c2…13fa at0012 = ╱33╱3╱ // 0x13d4 @0x12
0x13c2…13fa at0013 = ╱32╱2╱ // 0x13d5 @0x13
0x13c2…13fa at0014 = ╱f22000╱ // 0x13d6 @0x14
0x13c2…13fa at0017 = ╱e7╱ * ╱ // 0x13d9 @0x17
0x13c2…13fa at0018 = ╱55╱U╱ // 0x13da @0x18
0x13c2…13fa at0019 = ╱31╱1╱ // 0x13db @0x19
0x13c2…13fa at001a = ╱ee╱ ) ╱ // 0x13dc @0x1a
0x13c2…13fa at001b = ╱e5╱ + ╱ // 0x13dd @0x1b
0x13c2…13fa at001c = ╱50╱P╱ // 0x13de @0x1c
0x13c2…13fa at001d = ╱30╱0╱ // 0x13df @0x1d
0x13c2…13fa at001e = ╱e5╱ + ╱ // 0x13e0 @0x1e
0x13c2…13fa at001f = ╱50╱P╱ // 0x13e1 @0x1f
0x13c2…13fa at0020 = ╱41╱A╱ // 0x13e2 @0x20
0x13c2…13fa at0021 = ╱30╱0╱ // 0x13e3 @0x21
0x13c2…13fa at0022 = ╱e5╱ + ╱ // 0x13e4 @0x22
0x13c2…13fa at0023 = ╱50╱P╱ // 0x13e5 @0x23
0x13c2…13fa at0024 = ╱37╱7╱ // 0x13e6 @0x24
0x13c2…13fa at0025 = ╱e5╱ + ╱ // 0x13e7 @0x25
0x13c2…13fa at0026 = ╱50╱P╱ // 0x13e8 @0x26
0x13c2…13fa at0027 = ╱38╱8╱ // 0x13e9 @0x27
0x13c2…13fa at0028 = ╱e5╱ + ╱ // 0x13ea @0x28
0x13c2…13fa at0029 = ╱ed╱ ( ╱ // 0x13eb @0x29
0x13c2…13fa at002a = ╱50╱P╱ // 0x13ec @0x2a
0x13c2…13fa at002b = ╱39╱9╱ // 0x13ed @0x2b
0x13c2…13fa at002c = ╱e7╱ * ╱ // 0x13ee @0x2c
0x13c2…13fa at002d = ╱ed╱ ( ╱ // 0x13ef @0x2d
0x13c2…13fa at002e = ╱54╱T╱ // 0x13f0 @0x2e
0x13c2…13fa at002f = ╱4b╱K╱ // 0x13f1 @0x2f
0x13c2…13fa at0030 = ╱df╱ = ╱ // 0x13f2 @0x30
0x13c2…13fa at0031 = ╱31╱1╱ // 0x13f3 @0x31
0x13c2…13fa at0032 = ╱f20100╱ // 0x13f4 @0x32
0x13c2…13fa at0035 = ╱ee╱ ) ╱ // 0x13f7 @0x35
0x13c2…13fa at0036 = ╱ee╱ ) ╱ // 0x13f8 @0x36
0x13c2…13fa at0037 = EOL // 0x13f9 @0x37
0x13c2…13fa }
0x13fa…1432 aa20 02260 IF C7 > P2 THEN LET PCT := ( 44 * U1 ) + P0 + PA0 + P7 + P8 + ( P9 * ( TK = 1 ) )
0x13fa…1432 LineComal80 {
0x13fa…1432 ptr = 0xaa20 // 0x13fa @0x0
0x13fa…1432 lno = 0x08d4 // 0x13fc @0x2
0x13fa…1432 at0004 = ╱8200╱ IF ╱ // 0x13fe @0x4
0x13fa…1432 at0006 = ╱43╱C╱ // 0x1400 @0x6
0x13fa…1432 at0007 = ╱37╱7╱ // 0x1401 @0x7
0x13fa…1432 at0008 = ╱e1╱ > ╱ // 0x1402 @0x8
0x13fa…1432 at0009 = ╱50╱P╱ // 0x1403 @0x9
0x13fa…1432 at000a = ╱32╱2╱ // 0x1404 @0xa
0x13fa…1432 at000b = ╱b5╱ THEN ╱ // 0x1405 @0xb
0x13fa…1432 at000c = ╱86╱ LET ╱ // 0x1406 @0xc
0x13fa…1432 at000d = ╱50╱P╱ // 0x1407 @0xd
0x13fa…1432 at000e = ╱43╱C╱ // 0x1408 @0xe
0x13fa…1432 at000f = ╱54╱T╱ // 0x1409 @0xf
0x13fa…1432 at0010 = ╱f0╱ := ╱ // 0x140a @0x10
0x13fa…1432 at0011 = ╱ed╱ ( ╱ // 0x140b @0x11
0x13fa…1432 at0012 = ╱34╱4╱ // 0x140c @0x12
0x13fa…1432 at0013 = ╱34╱4╱ // 0x140d @0x13
0x13fa…1432 at0014 = ╱f22c00╱ // 0x140e @0x14
0x13fa…1432 at0017 = ╱e7╱ * ╱ // 0x1411 @0x17
0x13fa…1432 at0018 = ╱55╱U╱ // 0x1412 @0x18
0x13fa…1432 at0019 = ╱31╱1╱ // 0x1413 @0x19
0x13fa…1432 at001a = ╱ee╱ ) ╱ // 0x1414 @0x1a
0x13fa…1432 at001b = ╱e5╱ + ╱ // 0x1415 @0x1b
0x13fa…1432 at001c = ╱50╱P╱ // 0x1416 @0x1c
0x13fa…1432 at001d = ╱30╱0╱ // 0x1417 @0x1d
0x13fa…1432 at001e = ╱e5╱ + ╱ // 0x1418 @0x1e
0x13fa…1432 at001f = ╱50╱P╱ // 0x1419 @0x1f
0x13fa…1432 at0020 = ╱41╱A╱ // 0x141a @0x20
0x13fa…1432 at0021 = ╱30╱0╱ // 0x141b @0x21
0x13fa…1432 at0022 = ╱e5╱ + ╱ // 0x141c @0x22
0x13fa…1432 at0023 = ╱50╱P╱ // 0x141d @0x23
0x13fa…1432 at0024 = ╱37╱7╱ // 0x141e @0x24
0x13fa…1432 at0025 = ╱e5╱ + ╱ // 0x141f @0x25
0x13fa…1432 at0026 = ╱50╱P╱ // 0x1420 @0x26
0x13fa…1432 at0027 = ╱38╱8╱ // 0x1421 @0x27
0x13fa…1432 at0028 = ╱e5╱ + ╱ // 0x1422 @0x28
0x13fa…1432 at0029 = ╱ed╱ ( ╱ // 0x1423 @0x29
0x13fa…1432 at002a = ╱50╱P╱ // 0x1424 @0x2a
0x13fa…1432 at002b = ╱39╱9╱ // 0x1425 @0x2b
0x13fa…1432 at002c = ╱e7╱ * ╱ // 0x1426 @0x2c
0x13fa…1432 at002d = ╱ed╱ ( ╱ // 0x1427 @0x2d
0x13fa…1432 at002e = ╱54╱T╱ // 0x1428 @0x2e
0x13fa…1432 at002f = ╱4b╱K╱ // 0x1429 @0x2f
0x13fa…1432 at0030 = ╱df╱ = ╱ // 0x142a @0x30
0x13fa…1432 at0031 = ╱31╱1╱ // 0x142b @0x31
0x13fa…1432 at0032 = ╱f20100╱ // 0x142c @0x32
0x13fa…1432 at0035 = ╱ee╱ ) ╱ // 0x142f @0x35
0x13fa…1432 at0036 = ╱ee╱ ) ╱ // 0x1430 @0x36
0x13fa…1432 at0037 = EOL // 0x1431 @0x37
0x13fa…1432 }
0x1432…1450 aa3e 02270 LET PCT := INT ( PCT * 100 ) / 100
0x1432…1450 LineComal80 {
0x1432…1450 ptr = 0xaa3e // 0x1432 @0x0
0x1432…1450 lno = 0x08de // 0x1434 @0x2
0x1432…1450 at0004 = ╱86╱ LET ╱ // 0x1436 @0x4
0x1432…1450 at0005 = ╱50╱P╱ // 0x1437 @0x5
0x1432…1450 at0006 = ╱43╱C╱ // 0x1438 @0x6
0x1432…1450 at0007 = ╱54╱T╱ // 0x1439 @0x7
0x1432…1450 at0008 = ╱f0╱ := ╱ // 0x143a @0x8
0x1432…1450 at0009 = ╱c6╱ INT ╱ // 0x143b @0x9
0x1432…1450 at000a = ╱ed╱ ( ╱ // 0x143c @0xa
0x1432…1450 at000b = ╱50╱P╱ // 0x143d @0xb
0x1432…1450 at000c = ╱43╱C╱ // 0x143e @0xc
0x1432…1450 at000d = ╱54╱T╱ // 0x143f @0xd
0x1432…1450 at000e = ╱e7╱ * ╱ // 0x1440 @0xe
0x1432…1450 at000f = ╱31╱1╱ // 0x1441 @0xf
0x1432…1450 at0010 = ╱30╱0╱ // 0x1442 @0x10
0x1432…1450 at0011 = ╱30╱0╱ // 0x1443 @0x11
0x1432…1450 at0012 = ╱f26400╱ // 0x1444 @0x12
0x1432…1450 at0015 = ╱ee╱ ) ╱ // 0x1447 @0x15
0x1432…1450 at0016 = ╱e8╱ / ╱ // 0x1448 @0x16
0x1432…1450 at0017 = ╱31╱1╱ // 0x1449 @0x17
0x1432…1450 at0018 = ╱30╱0╱ // 0x144a @0x18
0x1432…1450 at0019 = ╱30╱0╱ // 0x144b @0x19
0x1432…1450 at001a = ╱f26400╱ // 0x144c @0x1a
0x1432…1450 at001d = EOL // 0x144f @0x1d
0x1432…1450 }
0x1450…1469 aa57 02280 IF P = 0 AND IR =< 100 THEN
0x1450…1469 LineComal80 {
0x1450…1469 ptr = 0xaa57 // 0x1450 @0x0
0x1450…1469 lno = 0x08e8 // 0x1452 @0x2
0x1450…1469 at0004 = ╱9b0054╱ IF ╱ // 0x1454 @0x4
0x1450…1469 at0007 = ╱50╱P╱ // 0x1457 @0x7
0x1450…1469 at0008 = ╱df╱ = ╱ // 0x1458 @0x8
0x1450…1469 at0009 = ╱30╱0╱ // 0x1459 @0x9
0x1450…1469 at000a = ╱f20000╱ // 0x145a @0xa
0x1450…1469 at000d = ╱d9╱ AND ╱ // 0x145d @0xd
0x1450…1469 at000e = ╱49╱I╱ // 0x145e @0xe
0x1450…1469 at000f = ╱52╱R╱ // 0x145f @0xf
0x1450…1469 at0010 = ╱e2╱ =< ╱ // 0x1460 @0x10
0x1450…1469 at0011 = ╱31╱1╱ // 0x1461 @0x11
0x1450…1469 at0012 = ╱30╱0╱ // 0x1462 @0x12
0x1450…1469 at0013 = ╱30╱0╱ // 0x1463 @0x13
0x1450…1469 at0014 = ╱f26400╱ // 0x1464 @0x14
0x1450…1469 at0017 = ╱b5╱ THEN ╱ // 0x1467 @0x17
0x1450…1469 at0018 = EOL // 0x1468 @0x18
0x1450…1469 }
0x1469…1490 aa7e 02290 LET MAX := AI - ( D6 * 100 / PCT ) ; MAX := INT ( MAX )
0x1469…1490 LineComal80 {
0x1469…1490 ptr = 0xaa7e // 0x1469 @0x0
0x1469…1490 lno = 0x08f2 // 0x146b @0x2
0x1469…1490 at0004 = ╱86╱ LET ╱ // 0x146d @0x4
0x1469…1490 at0005 = ╱4d╱M╱ // 0x146e @0x5
0x1469…1490 at0006 = ╱41╱A╱ // 0x146f @0x6
0x1469…1490 at0007 = ╱58╱X╱ // 0x1470 @0x7
0x1469…1490 at0008 = ╱f0╱ := ╱ // 0x1471 @0x8
0x1469…1490 at0009 = ╱41╱A╱ // 0x1472 @0x9
0x1469…1490 at000a = ╱49╱I╱ // 0x1473 @0xa
0x1469…1490 at000b = ╱e6╱ - ╱ // 0x1474 @0xb
0x1469…1490 at000c = ╱ed╱ ( ╱ // 0x1475 @0xc
0x1469…1490 at000d = ╱44╱D╱ // 0x1476 @0xd
0x1469…1490 at000e = ╱36╱6╱ // 0x1477 @0xe
0x1469…1490 at000f = ╱e7╱ * ╱ // 0x1478 @0xf
0x1469…1490 at0010 = ╱31╱1╱ // 0x1479 @0x10
0x1469…1490 at0011 = ╱30╱0╱ // 0x147a @0x11
0x1469…1490 at0012 = ╱30╱0╱ // 0x147b @0x12
0x1469…1490 at0013 = ╱f26400╱ // 0x147c @0x13
0x1469…1490 at0016 = ╱e8╱ / ╱ // 0x147f @0x16
0x1469…1490 at0017 = ╱50╱P╱ // 0x1480 @0x17
0x1469…1490 at0018 = ╱43╱C╱ // 0x1481 @0x18
0x1469…1490 at0019 = ╱54╱T╱ // 0x1482 @0x19
0x1469…1490 at001a = ╱ee╱ ) ╱ // 0x1483 @0x1a
0x1469…1490 at001b = ╱ea╱ ; ╱ // 0x1484 @0x1b
0x1469…1490 at001c = ╱4d╱M╱ // 0x1485 @0x1c
0x1469…1490 at001d = ╱41╱A╱ // 0x1486 @0x1d
0x1469…1490 at001e = ╱58╱X╱ // 0x1487 @0x1e
0x1469…1490 at001f = ╱f0╱ := ╱ // 0x1488 @0x1f
0x1469…1490 at0020 = ╱c6╱ INT ╱ // 0x1489 @0x20
0x1469…1490 at0021 = ╱ed╱ ( ╱ // 0x148a @0x21
0x1469…1490 at0022 = ╱4d╱M╱ // 0x148b @0x22
0x1469…1490 at0023 = ╱41╱A╱ // 0x148c @0x23
0x1469…1490 at0024 = ╱58╱X╱ // 0x148d @0x24
0x1469…1490 at0025 = ╱ee╱ ) ╱ // 0x148e @0x25
0x1469…1490 at0026 = EOL // 0x148f @0x26
0x1469…1490 }
0x1490…14ab aa99 02300 IF INT ( B6 ) = 0 AND IR = 0 THEN EXIT
0x1490…14ab LineComal80 {
0x1490…14ab ptr = 0xaa99 // 0x1490 @0x0
0x1490…14ab lno = 0x08fc // 0x1492 @0x2
0x1490…14ab at0004 = ╱8200╱ IF ╱ // 0x1494 @0x4
0x1490…14ab at0006 = ╱c6╱ INT ╱ // 0x1496 @0x6
0x1490…14ab at0007 = ╱ed╱ ( ╱ // 0x1497 @0x7
0x1490…14ab at0008 = ╱42╱B╱ // 0x1498 @0x8
0x1490…14ab at0009 = ╱36╱6╱ // 0x1499 @0x9
0x1490…14ab at000a = ╱ee╱ ) ╱ // 0x149a @0xa
0x1490…14ab at000b = ╱df╱ = ╱ // 0x149b @0xb
0x1490…14ab at000c = ╱30╱0╱ // 0x149c @0xc
0x1490…14ab at000d = ╱f20000╱ // 0x149d @0xd
0x1490…14ab at0010 = ╱d9╱ AND ╱ // 0x14a0 @0x10
0x1490…14ab at0011 = ╱49╱I╱ // 0x14a1 @0x11
0x1490…14ab at0012 = ╱52╱R╱ // 0x14a2 @0x12
0x1490…14ab at0013 = ╱df╱ = ╱ // 0x14a3 @0x13
0x1490…14ab at0014 = ╱30╱0╱ // 0x14a4 @0x14
0x1490…14ab at0015 = ╱f20000╱ // 0x14a5 @0x15
0x1490…14ab at0018 = ╱b5╱ THEN ╱ // 0x14a8 @0x18
0x1490…14ab at0019 = ╱99╱ EXIT ╱ // 0x14a9 @0x19
0x1490…14ab at001a = EOL // 0x14aa @0x1a
0x1490…14ab }
0x14ab…14bd aaab 02310 LET BSK := IR + INT ( B6 )
0x14ab…14bd LineComal80 {
0x14ab…14bd ptr = 0xaaab // 0x14ab @0x0
0x14ab…14bd lno = 0x0906 // 0x14ad @0x2
0x14ab…14bd at0004 = ╱86╱ LET ╱ // 0x14af @0x4
0x14ab…14bd at0005 = ╱42╱B╱ // 0x14b0 @0x5
0x14ab…14bd at0006 = ╱53╱S╱ // 0x14b1 @0x6
0x14ab…14bd at0007 = ╱4b╱K╱ // 0x14b2 @0x7
0x14ab…14bd at0008 = ╱f0╱ := ╱ // 0x14b3 @0x8
0x14ab…14bd at0009 = ╱49╱I╱ // 0x14b4 @0x9
0x14ab…14bd at000a = ╱52╱R╱ // 0x14b5 @0xa
0x14ab…14bd at000b = ╱e5╱ + ╱ // 0x14b6 @0xb
0x14ab…14bd at000c = ╱c6╱ INT ╱ // 0x14b7 @0xc
0x14ab…14bd at000d = ╱ed╱ ( ╱ // 0x14b8 @0xd
0x14ab…14bd at000e = ╱42╱B╱ // 0x14b9 @0xe
0x14ab…14bd at000f = ╱36╱6╱ // 0x14ba @0xf
0x14ab…14bd at0010 = ╱ee╱ ) ╱ // 0x14bb @0x10
0x14ab…14bd at0011 = EOL // 0x14bc @0x11
0x14ab…14bd }
0x14bd…14e2 aad0 02320 IF RESTRATE > 0 AND BSK > 0 THEN EXEC AFRUND
0x14bd…14e2 LineComal80 {
0x14bd…14e2 ptr = 0xaad0 // 0x14bd @0x0
0x14bd…14e2 lno = 0x0910 // 0x14bf @0x2
0x14bd…14e2 at0004 = ╱8200╱ IF ╱ // 0x14c1 @0x4
0x14bd…14e2 at0006 = ╱52╱R╱ // 0x14c3 @0x6
0x14bd…14e2 at0007 = ╱45╱E╱ // 0x14c4 @0x7
0x14bd…14e2 at0008 = ╱53╱S╱ // 0x14c5 @0x8
0x14bd…14e2 at0009 = ╱54╱T╱ // 0x14c6 @0x9
0x14bd…14e2 at000a = ╱52╱R╱ // 0x14c7 @0xa
0x14bd…14e2 at000b = ╱41╱A╱ // 0x14c8 @0xb
0x14bd…14e2 at000c = ╱54╱T╱ // 0x14c9 @0xc
0x14bd…14e2 at000d = ╱45╱E╱ // 0x14ca @0xd
0x14bd…14e2 at000e = ╱e1╱ > ╱ // 0x14cb @0xe
0x14bd…14e2 at000f = ╱30╱0╱ // 0x14cc @0xf
0x14bd…14e2 at0010 = ╱f20000╱ // 0x14cd @0x10
0x14bd…14e2 at0013 = ╱d9╱ AND ╱ // 0x14d0 @0x13
0x14bd…14e2 at0014 = ╱42╱B╱ // 0x14d1 @0x14
0x14bd…14e2 at0015 = ╱53╱S╱ // 0x14d2 @0x15
0x14bd…14e2 at0016 = ╱4b╱K╱ // 0x14d3 @0x16
0x14bd…14e2 at0017 = ╱e1╱ > ╱ // 0x14d4 @0x17
0x14bd…14e2 at0018 = ╱30╱0╱ // 0x14d5 @0x18
0x14bd…14e2 at0019 = ╱f20000╱ // 0x14d6 @0x19
0x14bd…14e2 at001c = ╱b5╱ THEN ╱ // 0x14d9 @0x1c
0x14bd…14e2 at001d = ╱9d╱ EXEC ╱ // 0x14da @0x1d
0x14bd…14e2 at001e = ╱41╱A╱ // 0x14db @0x1e
0x14bd…14e2 at001f = ╱46╱F╱ // 0x14dc @0x1f
0x14bd…14e2 at0020 = ╱52╱R╱ // 0x14dd @0x20
0x14bd…14e2 at0021 = ╱55╱U╱ // 0x14de @0x21
0x14bd…14e2 at0022 = ╱4e╱N╱ // 0x14df @0x22
0x14bd…14e2 at0023 = ╱44╱D╱ // 0x14e0 @0x23
0x14bd…14e2 at0024 = EOL // 0x14e1 @0x24
0x14bd…14e2 }
0x14e2…14e9 aad7 02330 ELSE
0x14e2…14e9 LineComal80 {
0x14e2…14e9 ptr = 0xaad7 // 0x14e2 @0x0
0x14e2…14e9 lno = 0x091a // 0x14e4 @0x2
0x14e2…14e9 at0004 = ╱9a00╱ ELSE ╱ // 0x14e6 @0x4
0x14e2…14e9 at0006 = EOL // 0x14e8 @0x6
0x14e2…14e9 }
0x14e9…1504 aaf2 02340 LET FR := AI - ( IR * 100 / PCT )
0x14e9…1504 LineComal80 {
0x14e9…1504 ptr = 0xaaf2 // 0x14e9 @0x0
0x14e9…1504 lno = 0x0924 // 0x14eb @0x2
0x14e9…1504 at0004 = ╱86╱ LET ╱ // 0x14ed @0x4
0x14e9…1504 at0005 = ╱46╱F╱ // 0x14ee @0x5
0x14e9…1504 at0006 = ╱52╱R╱ // 0x14ef @0x6
0x14e9…1504 at0007 = ╱f0╱ := ╱ // 0x14f0 @0x7
0x14e9…1504 at0008 = ╱41╱A╱ // 0x14f1 @0x8
0x14e9…1504 at0009 = ╱49╱I╱ // 0x14f2 @0x9
0x14e9…1504 at000a = ╱e6╱ - ╱ // 0x14f3 @0xa
0x14e9…1504 at000b = ╱ed╱ ( ╱ // 0x14f4 @0xb
0x14e9…1504 at000c = ╱49╱I╱ // 0x14f5 @0xc
0x14e9…1504 at000d = ╱52╱R╱ // 0x14f6 @0xd
0x14e9…1504 at000e = ╱e7╱ * ╱ // 0x14f7 @0xe
0x14e9…1504 at000f = ╱31╱1╱ // 0x14f8 @0xf
0x14e9…1504 at0010 = ╱30╱0╱ // 0x14f9 @0x10
0x14e9…1504 at0011 = ╱30╱0╱ // 0x14fa @0x11
0x14e9…1504 at0012 = ╱f26400╱ // 0x14fb @0x12
0x14e9…1504 at0015 = ╱e8╱ / ╱ // 0x14fe @0x15
0x14e9…1504 at0016 = ╱50╱P╱ // 0x14ff @0x16
0x14e9…1504 at0017 = ╱43╱C╱ // 0x1500 @0x17
0x14e9…1504 at0018 = ╱54╱T╱ // 0x1501 @0x18
0x14e9…1504 at0019 = ╱ee╱ ) ╱ // 0x1502 @0x19
0x14e9…1504 at001a = EOL // 0x1503 @0x1a
0x14e9…1504 }
0x1504…153d ab2b 02350 IF FR < 0 THEN LET BSK := ( FR * PCT / 100 ) ; BSK := ABS ( INT ( BSK ) ) ; FR := 0
0x1504…153d LineComal80 {
0x1504…153d ptr = 0xab2b // 0x1504 @0x0
0x1504…153d lno = 0x092e // 0x1506 @0x2
0x1504…153d at0004 = ╱8200╱ IF ╱ // 0x1508 @0x4
0x1504…153d at0006 = ╱46╱F╱ // 0x150a @0x6
0x1504…153d at0007 = ╱52╱R╱ // 0x150b @0x7
0x1504…153d at0008 = ╱e0╱ < ╱ // 0x150c @0x8
0x1504…153d at0009 = ╱30╱0╱ // 0x150d @0x9
0x1504…153d at000a = ╱f20000╱ // 0x150e @0xa
0x1504…153d at000d = ╱b5╱ THEN ╱ // 0x1511 @0xd
0x1504…153d at000e = ╱86╱ LET ╱ // 0x1512 @0xe
0x1504…153d at000f = ╱42╱B╱ // 0x1513 @0xf
0x1504…153d at0010 = ╱53╱S╱ // 0x1514 @0x10
0x1504…153d at0011 = ╱4b╱K╱ // 0x1515 @0x11
0x1504…153d at0012 = ╱f0╱ := ╱ // 0x1516 @0x12
0x1504…153d at0013 = ╱ed╱ ( ╱ // 0x1517 @0x13
0x1504…153d at0014 = ╱46╱F╱ // 0x1518 @0x14
0x1504…153d at0015 = ╱52╱R╱ // 0x1519 @0x15
0x1504…153d at0016 = ╱e7╱ * ╱ // 0x151a @0x16
0x1504…153d at0017 = ╱50╱P╱ // 0x151b @0x17
0x1504…153d at0018 = ╱43╱C╱ // 0x151c @0x18
0x1504…153d at0019 = ╱54╱T╱ // 0x151d @0x19
0x1504…153d at001a = ╱e8╱ / ╱ // 0x151e @0x1a
0x1504…153d at001b = ╱31╱1╱ // 0x151f @0x1b
0x1504…153d at001c = ╱30╱0╱ // 0x1520 @0x1c
0x1504…153d at001d = ╱30╱0╱ // 0x1521 @0x1d
0x1504…153d at001e = ╱f26400╱ // 0x1522 @0x1e
0x1504…153d at0021 = ╱ee╱ ) ╱ // 0x1525 @0x21
0x1504…153d at0022 = ╱ea╱ ; ╱ // 0x1526 @0x22
0x1504…153d at0023 = ╱42╱B╱ // 0x1527 @0x23
0x1504…153d at0024 = ╱53╱S╱ // 0x1528 @0x24
0x1504…153d at0025 = ╱4b╱K╱ // 0x1529 @0x25
0x1504…153d at0026 = ╱f0╱ := ╱ // 0x152a @0x26
0x1504…153d at0027 = ╱c4╱ ABS ╱ // 0x152b @0x27
0x1504…153d at0028 = ╱ed╱ ( ╱ // 0x152c @0x28
0x1504…153d at0029 = ╱c6╱ INT ╱ // 0x152d @0x29
0x1504…153d at002a = ╱ed╱ ( ╱ // 0x152e @0x2a
0x1504…153d at002b = ╱42╱B╱ // 0x152f @0x2b
0x1504…153d at002c = ╱53╱S╱ // 0x1530 @0x2c
0x1504…153d at002d = ╱4b╱K╱ // 0x1531 @0x2d
0x1504…153d at002e = ╱ee╱ ) ╱ // 0x1532 @0x2e
0x1504…153d at002f = ╱ee╱ ) ╱ // 0x1533 @0x2f
0x1504…153d at0030 = ╱ea╱ ; ╱ // 0x1534 @0x30
0x1504…153d at0031 = ╱46╱F╱ // 0x1535 @0x31
0x1504…153d at0032 = ╱52╱R╱ // 0x1536 @0x32
0x1504…153d at0033 = ╱f0╱ := ╱ // 0x1537 @0x33
0x1504…153d at0034 = ╱30╱0╱ // 0x1538 @0x34
0x1504…153d at0035 = ╱f20000╱ // 0x1539 @0x35
0x1504…153d at0038 = EOL // 0x153c @0x38
0x1504…153d }
0x153d…1562 ab50 02360 IF RESTRATE > 0 AND BSK > 0 THEN EXEC AFRUND
0x153d…1562 LineComal80 {
0x153d…1562 ptr = 0xab50 // 0x153d @0x0
0x153d…1562 lno = 0x0938 // 0x153f @0x2
0x153d…1562 at0004 = ╱8200╱ IF ╱ // 0x1541 @0x4
0x153d…1562 at0006 = ╱52╱R╱ // 0x1543 @0x6
0x153d…1562 at0007 = ╱45╱E╱ // 0x1544 @0x7
0x153d…1562 at0008 = ╱53╱S╱ // 0x1545 @0x8
0x153d…1562 at0009 = ╱54╱T╱ // 0x1546 @0x9
0x153d…1562 at000a = ╱52╱R╱ // 0x1547 @0xa
0x153d…1562 at000b = ╱41╱A╱ // 0x1548 @0xb
0x153d…1562 at000c = ╱54╱T╱ // 0x1549 @0xc
0x153d…1562 at000d = ╱45╱E╱ // 0x154a @0xd
0x153d…1562 at000e = ╱e1╱ > ╱ // 0x154b @0xe
0x153d…1562 at000f = ╱30╱0╱ // 0x154c @0xf
0x153d…1562 at0010 = ╱f20000╱ // 0x154d @0x10
0x153d…1562 at0013 = ╱d9╱ AND ╱ // 0x1550 @0x13
0x153d…1562 at0014 = ╱42╱B╱ // 0x1551 @0x14
0x153d…1562 at0015 = ╱53╱S╱ // 0x1552 @0x15
0x153d…1562 at0016 = ╱4b╱K╱ // 0x1553 @0x16
0x153d…1562 at0017 = ╱e1╱ > ╱ // 0x1554 @0x17
0x153d…1562 at0018 = ╱30╱0╱ // 0x1555 @0x18
0x153d…1562 at0019 = ╱f20000╱ // 0x1556 @0x19
0x153d…1562 at001c = ╱b5╱ THEN ╱ // 0x1559 @0x1c
0x153d…1562 at001d = ╱9d╱ EXEC ╱ // 0x155a @0x1d
0x153d…1562 at001e = ╱41╱A╱ // 0x155b @0x1e
0x153d…1562 at001f = ╱46╱F╱ // 0x155c @0x1f
0x153d…1562 at0020 = ╱52╱R╱ // 0x155d @0x20
0x153d…1562 at0021 = ╱55╱U╱ // 0x155e @0x21
0x153d…1562 at0022 = ╱4e╱N╱ // 0x155f @0x22
0x153d…1562 at0023 = ╱44╱D╱ // 0x1560 @0x23
0x153d…1562 at0024 = EOL // 0x1561 @0x24
0x153d…1562 }
0x1562…157b ab69 02370 IF INT ( FR ) > 0 THEN EXEC REGN11
0x1562…157b LineComal80 {
0x1562…157b ptr = 0xab69 // 0x1562 @0x0
0x1562…157b lno = 0x0942 // 0x1564 @0x2
0x1562…157b at0004 = ╱8200╱ IF ╱ // 0x1566 @0x4
0x1562…157b at0006 = ╱c6╱ INT ╱ // 0x1568 @0x6
0x1562…157b at0007 = ╱ed╱ ( ╱ // 0x1569 @0x7
0x1562…157b at0008 = ╱46╱F╱ // 0x156a @0x8
0x1562…157b at0009 = ╱52╱R╱ // 0x156b @0x9
0x1562…157b at000a = ╱ee╱ ) ╱ // 0x156c @0xa
0x1562…157b at000b = ╱e1╱ > ╱ // 0x156d @0xb
0x1562…157b at000c = ╱30╱0╱ // 0x156e @0xc
0x1562…157b at000d = ╱f20000╱ // 0x156f @0xd
0x1562…157b at0010 = ╱b5╱ THEN ╱ // 0x1572 @0x10
0x1562…157b at0011 = ╱9d╱ EXEC ╱ // 0x1573 @0x11
0x1562…157b at0012 = ╱52╱R╱ // 0x1574 @0x12
0x1562…157b at0013 = ╱45╱E╱ // 0x1575 @0x13
0x1562…157b at0014 = ╱47╱G╱ // 0x1576 @0x14
0x1562…157b at0015 = ╱4e╱N╱ // 0x1577 @0x15
0x1562…157b at0016 = ╱31╱1╱ // 0x1578 @0x16
0x1562…157b at0017 = ╱31╱1╱ // 0x1579 @0x17
0x1562…157b at0018 = EOL // 0x157a @0x18
0x1562…157b }
0x157b…1581 ab6f 02380 ENDIF
0x157b…1581 LineComal80 {
0x157b…1581 ptr = 0xab6f // 0x157b @0x0
0x157b…1581 lno = 0x094c // 0x157d @0x2
0x157b…1581 at0004 = ╱9c╱ ENDIF ╱ // 0x157f @0x4
0x157b…1581 at0005 = EOL // 0x1580 @0x5
0x157b…1581 }
0x1581…158d ab7b 02390 ENDPROC REGN14
0x1581…158d LineComal80 {
0x1581…158d ptr = 0xab7b // 0x1581 @0x0
0x1581…158d lno = 0x0956 // 0x1583 @0x2
0x1581…158d at0004 = ╱9f╱ ENDPROC ╱ // 0x1585 @0x4
0x1581…158d at0005 = ╱52╱R╱ // 0x1586 @0x5
0x1581…158d at0006 = ╱45╱E╱ // 0x1587 @0x6
0x1581…158d at0007 = ╱47╱G╱ // 0x1588 @0x7
0x1581…158d at0008 = ╱4e╱N╱ // 0x1589 @0x8
0x1581…158d at0009 = ╱31╱1╱ // 0x158a @0x9
0x1581…158d at000a = ╱34╱4╱ // 0x158b @0xa
0x1581…158d at000b = EOL // 0x158c @0xb
0x1581…158d }
0x158d…159b ab89 02400 PROC [NDFORS
0x158d…159b LineComal80 {
0x158d…159b ptr = 0xab89 // 0x158d @0x0
0x158d…159b lno = 0x0960 // 0x158f @0x2
0x158d…159b at0004 = ╱9e00╱ PROC ╱ // 0x1591 @0x4
0x158d…159b at0006 = ╱5b╱[╱ // 0x1593 @0x6
0x158d…159b at0007 = ╱4e╱N╱ // 0x1594 @0x7
0x158d…159b at0008 = ╱44╱D╱ // 0x1595 @0x8
0x158d…159b at0009 = ╱46╱F╱ // 0x1596 @0x9
0x158d…159b at000a = ╱4f╱O╱ // 0x1597 @0xa
0x158d…159b at000b = ╱52╱R╱ // 0x1598 @0xb
0x158d…159b at000c = ╱53╱S╱ // 0x1599 @0xc
0x158d…159b at000d = EOL // 0x159a @0xd
0x158d…159b }
0x159b…15b1 ab9f 02410 FOR Y := 1 TO R + 1 DO
0x159b…15b1 LineComal80 {
0x159b…15b1 ptr = 0xab9f // 0x159b @0x0
0x159b…15b1 lno = 0x096a // 0x159d @0x2
0x159b…15b1 at0004 = ╱8300╱ FOR ╱ // 0x159f @0x4
0x159b…15b1 at0006 = ╱59╱Y╱ // 0x15a1 @0x6
0x159b…15b1 at0007 = ╱f0╱ := ╱ // 0x15a2 @0x7
0x159b…15b1 at0008 = ╱31╱1╱ // 0x15a3 @0x8
0x159b…15b1 at0009 = ╱f20100╱ // 0x15a4 @0x9
0x159b…15b1 at000c = ╱b750╱ TO ╱ // 0x15a7 @0xc
0x159b…15b1 at000e = ╱52╱R╱ // 0x15a9 @0xe
0x159b…15b1 at000f = ╱e5╱ + ╱ // 0x15aa @0xf
0x159b…15b1 at0010 = ╱31╱1╱ // 0x15ab @0x10
0x159b…15b1 at0011 = ╱f20100╱ // 0x15ac @0x11
0x159b…15b1 at0014 = ╱bb╱ DO ╱ // 0x15af @0x14
0x159b…15b1 at0015 = EOL // 0x15b0 @0x15
0x159b…15b1 }
0x15b1…15c3 abb1 02420 IF Y = 2 THEN OUTPUT "P"
0x15b1…15c3 LineComal80 {
0x15b1…15c3 ptr = 0xabb1 // 0x15b1 @0x0
0x15b1…15c3 lno = 0x0974 // 0x15b3 @0x2
0x15b1…15c3 at0004 = ╱8200╱ IF ╱ // 0x15b5 @0x4
0x15b1…15c3 at0006 = ╱59╱Y╱ // 0x15b7 @0x6
0x15b1…15c3 at0007 = ╱df╱ = ╱ // 0x15b8 @0x7
0x15b1…15c3 at0008 = ╱32╱2╱ // 0x15b9 @0x8
0x15b1…15c3 at0009 = ╱f20200╱ // 0x15ba @0x9
0x15b1…15c3 at000c = ╱b5╱ THEN ╱ // 0x15bd @0xc
0x15b1…15c3 at000d = ╱a5╱ OUTPUT ╱ // 0x15be @0xd
0x15b1…15c3 at000e = ╱22╱"╱ // 0x15bf @0xe
0x15b1…15c3 at000f = ╱50╱P╱ // 0x15c0 @0xf
0x15b1…15c3 at0010 = ╱22╱"╱ // 0x15c1 @0x10
0x15b1…15c3 at0011 = EOL // 0x15c2 @0x11
0x15b1…15c3 }
0x15c3…15d0 abbe 02430 EXEC LSKRIV3
0x15c3…15d0 LineComal80 {
0x15c3…15d0 ptr = 0xabbe // 0x15c3 @0x0
0x15c3…15d0 lno = 0x097e // 0x15c5 @0x2
0x15c3…15d0 at0004 = ╱9d╱ EXEC ╱ // 0x15c7 @0x4
0x15c3…15d0 at0005 = ╱4c╱L╱ // 0x15c8 @0x5
0x15c3…15d0 at0006 = ╱53╱S╱ // 0x15c9 @0x6
0x15c3…15d0 at0007 = ╱4b╱K╱ // 0x15ca @0x7
0x15c3…15d0 at0008 = ╱52╱R╱ // 0x15cb @0x8
0x15c3…15d0 at0009 = ╱49╱I╱ // 0x15cc @0x9
0x15c3…15d0 at000a = ╱56╱V╱ // 0x15cd @0xa
0x15c3…15d0 at000b = ╱33╱3╱ // 0x15ce @0xb
0x15c3…15d0 at000c = EOL // 0x15cf @0xc
0x15c3…15d0 }
0x15d0…15d6 abc4 02440 PRINT
0x15d0…15d6 LineComal80 {
0x15d0…15d6 ptr = 0xabc4 // 0x15d0 @0x0
0x15d0…15d6 lno = 0x0988 // 0x15d2 @0x2
0x15d0…15d6 at0004 = ╱92╱ PRINT ╱ // 0x15d4 @0x4
0x15d0…15d6 at0005 = EOL // 0x15d5 @0x5
0x15d0…15d6 }
0x15d6…15e6 abd4 02450 IF CT > 0 THEN
0x15d6…15e6 LineComal80 {
0x15d6…15e6 ptr = 0xabd4 // 0x15d6 @0x0
0x15d6…15e6 lno = 0x0992 // 0x15d8 @0x2
0x15d6…15e6 at0004 = ╱9b0050╱ IF ╱ // 0x15da @0x4
0x15d6…15e6 at0007 = ╱43╱C╱ // 0x15dd @0x7
0x15d6…15e6 at0008 = ╱54╱T╱ // 0x15de @0x8
0x15d6…15e6 at0009 = ╱e1╱ > ╱ // 0x15df @0x9
0x15d6…15e6 at000a = ╱30╱0╱ // 0x15e0 @0xa
0x15d6…15e6 at000b = ╱f20000╱ // 0x15e1 @0xb
0x15d6…15e6 at000e = ╱b5╱ THEN ╱ // 0x15e4 @0xe
0x15d6…15e6 at000f = EOL // 0x15e5 @0xf
0x15d6…15e6 }
0x15e6…1616 ac04 02460 LET QT $ := "TR[KPROCENT…" + PIL $ ( 1 : 20 ) ; QB := PCT
0x15e6…1616 LineComal80 {
0x15e6…1616 ptr = 0xac04 // 0x15e6 @0x0
0x15e6…1616 lno = 0x099c // 0x15e8 @0x2
0x15e6…1616 at0004 = ╱86╱ LET ╱ // 0x15ea @0x4
0x15e6…1616 at0005 = ╱51╱Q╱ // 0x15eb @0x5
0x15e6…1616 at0006 = ╱54╱T╱ // 0x15ec @0x6
0x15e6…1616 at0007 = ╱ef╱ $ ╱ // 0x15ed @0x7
0x15e6…1616 at0008 = ╱f0╱ := ╱ // 0x15ee @0x8
0x15e6…1616 at0009 = ╱22╱"╱ // 0x15ef @0x9
0x15e6…1616 at000a = ╱54╱T╱ // 0x15f0 @0xa
0x15e6…1616 at000b = ╱52╱R╱ // 0x15f1 @0xb
0x15e6…1616 at000c = ╱5b╱[╱ // 0x15f2 @0xc
0x15e6…1616 at000d = ╱4b╱K╱ // 0x15f3 @0xd
0x15e6…1616 at000e = ╱50╱P╱ // 0x15f4 @0xe
0x15e6…1616 at000f = ╱52╱R╱ // 0x15f5 @0xf
0x15e6…1616 at0010 = ╱4f╱O╱ // 0x15f6 @0x10
0x15e6…1616 at0011 = ╱43╱C╱ // 0x15f7 @0x11
0x15e6…1616 at0012 = ╱45╱E╱ // 0x15f8 @0x12
0x15e6…1616 at0013 = ╱4e╱N╱ // 0x15f9 @0x13
0x15e6…1616 at0014 = ╱54╱T╱ // 0x15fa @0x14
0x15e6…1616 at0015 = ╱20╱…╱ // 0x15fb @0x15
0x15e6…1616 at0016 = ╱22╱"╱ // 0x15fc @0x16
0x15e6…1616 at0017 = ╱eb╱ + ╱ // 0x15fd @0x17
0x15e6…1616 at0018 = ╱50╱P╱ // 0x15fe @0x18
0x15e6…1616 at0019 = ╱49╱I╱ // 0x15ff @0x19
0x15e6…1616 at001a = ╱4c╱L╱ // 0x1600 @0x1a
0x15e6…1616 at001b = ╱ef╱ $ ╱ // 0x1601 @0x1b
0x15e6…1616 at001c = ╱ed╱ ( ╱ // 0x1602 @0x1c
0x15e6…1616 at001d = ╱31╱1╱ // 0x1603 @0x1d
0x15e6…1616 at001e = ╱f20100╱ // 0x1604 @0x1e
0x15e6…1616 at0021 = ╱f1╱ : ╱ // 0x1607 @0x21
0x15e6…1616 at0022 = ╱32╱2╱ // 0x1608 @0x22
0x15e6…1616 at0023 = ╱30╱0╱ // 0x1609 @0x23
0x15e6…1616 at0024 = ╱f21400╱ // 0x160a @0x24
0x15e6…1616 at0027 = ╱ee╱ ) ╱ // 0x160d @0x27
0x15e6…1616 at0028 = ╱ea╱ ; ╱ // 0x160e @0x28
0x15e6…1616 at0029 = ╱51╱Q╱ // 0x160f @0x29
0x15e6…1616 at002a = ╱42╱B╱ // 0x1610 @0x2a
0x15e6…1616 at002b = ╱f0╱ := ╱ // 0x1611 @0x2b
0x15e6…1616 at002c = ╱50╱P╱ // 0x1612 @0x2c
0x15e6…1616 at002d = ╱43╱C╱ // 0x1613 @0x2d
0x15e6…1616 at002e = ╱54╱T╱ // 0x1614 @0x2e
0x15e6…1616 at002f = EOL // 0x1615 @0x2f
0x15e6…1616 }
0x1616…1623 ac11 02470 EXEC LSKRIV4
0x1616…1623 LineComal80 {
0x1616…1623 ptr = 0xac11 // 0x1616 @0x0
0x1616…1623 lno = 0x09a6 // 0x1618 @0x2
0x1616…1623 at0004 = ╱9d╱ EXEC ╱ // 0x161a @0x4
0x1616…1623 at0005 = ╱4c╱L╱ // 0x161b @0x5
0x1616…1623 at0006 = ╱53╱S╱ // 0x161c @0x6
0x1616…1623 at0007 = ╱4b╱K╱ // 0x161d @0x7
0x1616…1623 at0008 = ╱52╱R╱ // 0x161e @0x8
0x1616…1623 at0009 = ╱49╱I╱ // 0x161f @0x9
0x1616…1623 at000a = ╱56╱V╱ // 0x1620 @0xa
0x1616…1623 at000b = ╱34╱4╱ // 0x1621 @0xb
0x1616…1623 at000c = EOL // 0x1622 @0xc
0x1616…1623 }
0x1623…1629 ac17 02480 ENDIF
0x1623…1629 LineComal80 {
0x1623…1629 ptr = 0xac17 // 0x1623 @0x0
0x1623…1629 lno = 0x09b0 // 0x1625 @0x2
0x1623…1629 at0004 = ╱9c╱ ENDIF ╱ // 0x1627 @0x4
0x1623…1629 at0005 = EOL // 0x1628 @0x5
0x1623…1629 }
0x1629…1638 ac26 02490 IF R > 0 THEN
0x1629…1638 LineComal80 {
0x1629…1638 ptr = 0xac26 // 0x1629 @0x0
0x1629…1638 lno = 0x09ba // 0x162b @0x2
0x1629…1638 at0004 = ╱9b0046╱ IF ╱ // 0x162d @0x4
0x1629…1638 at0007 = ╱52╱R╱ // 0x1630 @0x7
0x1629…1638 at0008 = ╱e1╱ > ╱ // 0x1631 @0x8
0x1629…1638 at0009 = ╱30╱0╱ // 0x1632 @0x9
0x1629…1638 at000a = ╱f20000╱ // 0x1633 @0xa
0x1629…1638 at000d = ╱b5╱ THEN ╱ // 0x1636 @0xd
0x1629…1638 at000e = EOL // 0x1637 @0xe
0x1629…1638 }
0x1638…166e ac5c 02500 LET QT $ := "FRADRAG…PR.…M]NED…" + PIL $ ( 1 : 14 ) ; QB := FR1
0x1638…166e LineComal80 {
0x1638…166e ptr = 0xac5c // 0x1638 @0x0
0x1638…166e lno = 0x09c4 // 0x163a @0x2
0x1638…166e at0004 = ╱86╱ LET ╱ // 0x163c @0x4
0x1638…166e at0005 = ╱51╱Q╱ // 0x163d @0x5
0x1638…166e at0006 = ╱54╱T╱ // 0x163e @0x6
0x1638…166e at0007 = ╱ef╱ $ ╱ // 0x163f @0x7
0x1638…166e at0008 = ╱f0╱ := ╱ // 0x1640 @0x8
0x1638…166e at0009 = ╱22╱"╱ // 0x1641 @0x9
0x1638…166e at000a = ╱46╱F╱ // 0x1642 @0xa
0x1638…166e at000b = ╱52╱R╱ // 0x1643 @0xb
0x1638…166e at000c = ╱41╱A╱ // 0x1644 @0xc
0x1638…166e at000d = ╱44╱D╱ // 0x1645 @0xd
0x1638…166e at000e = ╱52╱R╱ // 0x1646 @0xe
0x1638…166e at000f = ╱41╱A╱ // 0x1647 @0xf
0x1638…166e at0010 = ╱47╱G╱ // 0x1648 @0x10
0x1638…166e at0011 = ╱20╱…╱ // 0x1649 @0x11
0x1638…166e at0012 = ╱50╱P╱ // 0x164a @0x12
0x1638…166e at0013 = ╱52╱R╱ // 0x164b @0x13
0x1638…166e at0014 = ╱2e╱.╱ // 0x164c @0x14
0x1638…166e at0015 = ╱20╱…╱ // 0x164d @0x15
0x1638…166e at0016 = ╱4d╱M╱ // 0x164e @0x16
0x1638…166e at0017 = ╱5d╱]╱ // 0x164f @0x17
0x1638…166e at0018 = ╱4e╱N╱ // 0x1650 @0x18
0x1638…166e at0019 = ╱45╱E╱ // 0x1651 @0x19
0x1638…166e at001a = ╱44╱D╱ // 0x1652 @0x1a
0x1638…166e at001b = ╱20╱…╱ // 0x1653 @0x1b
0x1638…166e at001c = ╱22╱"╱ // 0x1654 @0x1c
0x1638…166e at001d = ╱eb╱ + ╱ // 0x1655 @0x1d
0x1638…166e at001e = ╱50╱P╱ // 0x1656 @0x1e
0x1638…166e at001f = ╱49╱I╱ // 0x1657 @0x1f
0x1638…166e at0020 = ╱4c╱L╱ // 0x1658 @0x20
0x1638…166e at0021 = ╱ef╱ $ ╱ // 0x1659 @0x21
0x1638…166e at0022 = ╱ed╱ ( ╱ // 0x165a @0x22
0x1638…166e at0023 = ╱31╱1╱ // 0x165b @0x23
0x1638…166e at0024 = ╱f20100╱ // 0x165c @0x24
0x1638…166e at0027 = ╱f1╱ : ╱ // 0x165f @0x27
0x1638…166e at0028 = ╱31╱1╱ // 0x1660 @0x28
0x1638…166e at0029 = ╱34╱4╱ // 0x1661 @0x29
0x1638…166e at002a = ╱f20e00╱ // 0x1662 @0x2a
0x1638…166e at002d = ╱ee╱ ) ╱ // 0x1665 @0x2d
0x1638…166e at002e = ╱ea╱ ; ╱ // 0x1666 @0x2e
0x1638…166e at002f = ╱51╱Q╱ // 0x1667 @0x2f
0x1638…166e at0030 = ╱42╱B╱ // 0x1668 @0x30
0x1638…166e at0031 = ╱f0╱ := ╱ // 0x1669 @0x31
0x1638…166e at0032 = ╱46╱F╱ // 0x166a @0x32
0x1638…166e at0033 = ╱52╱R╱ // 0x166b @0x33
0x1638…166e at0034 = ╱31╱1╱ // 0x166c @0x34
0x1638…166e at0035 = EOL // 0x166d @0x35
0x1638…166e }
0x166e…167b ac69 02510 EXEC LSKRIV1
0x166e…167b LineComal80 {
0x166e…167b ptr = 0xac69 // 0x166e @0x0
0x166e…167b lno = 0x09ce // 0x1670 @0x2
0x166e…167b at0004 = ╱9d╱ EXEC ╱ // 0x1672 @0x4
0x166e…167b at0005 = ╱4c╱L╱ // 0x1673 @0x5
0x166e…167b at0006 = ╱53╱S╱ // 0x1674 @0x6
0x166e…167b at0007 = ╱4b╱K╱ // 0x1675 @0x7
0x166e…167b at0008 = ╱52╱R╱ // 0x1676 @0x8
0x166e…167b at0009 = ╱49╱I╱ // 0x1677 @0x9
0x166e…167b at000a = ╱56╱V╱ // 0x1678 @0xa
0x166e…167b at000b = ╱31╱1╱ // 0x1679 @0xb
0x166e…167b at000c = EOL // 0x167a @0xc
0x166e…167b }
0x167b…16b2 aca0 02520 LET QT $ := "FRADRAG…PR.…14-DAG…" + PIL $ ( 1 : 13 ) ; QB := FR2
0x167b…16b2 LineComal80 {
0x167b…16b2 ptr = 0xaca0 // 0x167b @0x0
0x167b…16b2 lno = 0x09d8 // 0x167d @0x2
0x167b…16b2 at0004 = ╱86╱ LET ╱ // 0x167f @0x4
0x167b…16b2 at0005 = ╱51╱Q╱ // 0x1680 @0x5
0x167b…16b2 at0006 = ╱54╱T╱ // 0x1681 @0x6
0x167b…16b2 at0007 = ╱ef╱ $ ╱ // 0x1682 @0x7
0x167b…16b2 at0008 = ╱f0╱ := ╱ // 0x1683 @0x8
0x167b…16b2 at0009 = ╱22╱"╱ // 0x1684 @0x9
0x167b…16b2 at000a = ╱46╱F╱ // 0x1685 @0xa
0x167b…16b2 at000b = ╱52╱R╱ // 0x1686 @0xb
0x167b…16b2 at000c = ╱41╱A╱ // 0x1687 @0xc
0x167b…16b2 at000d = ╱44╱D╱ // 0x1688 @0xd
0x167b…16b2 at000e = ╱52╱R╱ // 0x1689 @0xe
0x167b…16b2 at000f = ╱41╱A╱ // 0x168a @0xf
0x167b…16b2 at0010 = ╱47╱G╱ // 0x168b @0x10
0x167b…16b2 at0011 = ╱20╱…╱ // 0x168c @0x11
0x167b…16b2 at0012 = ╱50╱P╱ // 0x168d @0x12
0x167b…16b2 at0013 = ╱52╱R╱ // 0x168e @0x13
0x167b…16b2 at0014 = ╱2e╱.╱ // 0x168f @0x14
0x167b…16b2 at0015 = ╱20╱…╱ // 0x1690 @0x15
0x167b…16b2 at0016 = ╱31╱1╱ // 0x1691 @0x16
0x167b…16b2 at0017 = ╱34╱4╱ // 0x1692 @0x17
0x167b…16b2 at0018 = ╱2d╱-╱ // 0x1693 @0x18
0x167b…16b2 at0019 = ╱44╱D╱ // 0x1694 @0x19
0x167b…16b2 at001a = ╱41╱A╱ // 0x1695 @0x1a
0x167b…16b2 at001b = ╱47╱G╱ // 0x1696 @0x1b
0x167b…16b2 at001c = ╱20╱…╱ // 0x1697 @0x1c
0x167b…16b2 at001d = ╱22╱"╱ // 0x1698 @0x1d
0x167b…16b2 at001e = ╱eb╱ + ╱ // 0x1699 @0x1e
0x167b…16b2 at001f = ╱50╱P╱ // 0x169a @0x1f
0x167b…16b2 at0020 = ╱49╱I╱ // 0x169b @0x20
0x167b…16b2 at0021 = ╱4c╱L╱ // 0x169c @0x21
0x167b…16b2 at0022 = ╱ef╱ $ ╱ // 0x169d @0x22
0x167b…16b2 at0023 = ╱ed╱ ( ╱ // 0x169e @0x23
0x167b…16b2 at0024 = ╱31╱1╱ // 0x169f @0x24
0x167b…16b2 at0025 = ╱f20100╱ // 0x16a0 @0x25
0x167b…16b2 at0028 = ╱f1╱ : ╱ // 0x16a3 @0x28
0x167b…16b2 at0029 = ╱31╱1╱ // 0x16a4 @0x29
0x167b…16b2 at002a = ╱33╱3╱ // 0x16a5 @0x2a
0x167b…16b2 at002b = ╱f20d00╱ // 0x16a6 @0x2b
0x167b…16b2 at002e = ╱ee╱ ) ╱ // 0x16a9 @0x2e
0x167b…16b2 at002f = ╱ea╱ ; ╱ // 0x16aa @0x2f
0x167b…16b2 at0030 = ╱51╱Q╱ // 0x16ab @0x30
0x167b…16b2 at0031 = ╱42╱B╱ // 0x16ac @0x31
0x167b…16b2 at0032 = ╱f0╱ := ╱ // 0x16ad @0x32
0x167b…16b2 at0033 = ╱46╱F╱ // 0x16ae @0x33
0x167b…16b2 at0034 = ╱52╱R╱ // 0x16af @0x34
0x167b…16b2 at0035 = ╱32╱2╱ // 0x16b0 @0x35
0x167b…16b2 at0036 = EOL // 0x16b1 @0x36
0x167b…16b2 }
0x16b2…16bf acad 02530 EXEC LSKRIV1
0x16b2…16bf LineComal80 {
0x16b2…16bf ptr = 0xacad // 0x16b2 @0x0
0x16b2…16bf lno = 0x09e2 // 0x16b4 @0x2
0x16b2…16bf at0004 = ╱9d╱ EXEC ╱ // 0x16b6 @0x4
0x16b2…16bf at0005 = ╱4c╱L╱ // 0x16b7 @0x5
0x16b2…16bf at0006 = ╱53╱S╱ // 0x16b8 @0x6
0x16b2…16bf at0007 = ╱4b╱K╱ // 0x16b9 @0x7
0x16b2…16bf at0008 = ╱52╱R╱ // 0x16ba @0x8
0x16b2…16bf at0009 = ╱49╱I╱ // 0x16bb @0x9
0x16b2…16bf at000a = ╱56╱V╱ // 0x16bc @0xa
0x16b2…16bf at000b = ╱31╱1╱ // 0x16bd @0xb
0x16b2…16bf at000c = EOL // 0x16be @0xc
0x16b2…16bf }
0x16bf…16f3 ace1 02540 LET QT $ := "FRADRAG…PR.…UGE…" + PIL $ ( 1 : 16 ) ; QB := FR3
0x16bf…16f3 LineComal80 {
0x16bf…16f3 ptr = 0xace1 // 0x16bf @0x0
0x16bf…16f3 lno = 0x09ec // 0x16c1 @0x2
0x16bf…16f3 at0004 = ╱86╱ LET ╱ // 0x16c3 @0x4
0x16bf…16f3 at0005 = ╱51╱Q╱ // 0x16c4 @0x5
0x16bf…16f3 at0006 = ╱54╱T╱ // 0x16c5 @0x6
0x16bf…16f3 at0007 = ╱ef╱ $ ╱ // 0x16c6 @0x7
0x16bf…16f3 at0008 = ╱f0╱ := ╱ // 0x16c7 @0x8
0x16bf…16f3 at0009 = ╱22╱"╱ // 0x16c8 @0x9
0x16bf…16f3 at000a = ╱46╱F╱ // 0x16c9 @0xa
0x16bf…16f3 at000b = ╱52╱R╱ // 0x16ca @0xb
0x16bf…16f3 at000c = ╱41╱A╱ // 0x16cb @0xc
0x16bf…16f3 at000d = ╱44╱D╱ // 0x16cc @0xd
0x16bf…16f3 at000e = ╱52╱R╱ // 0x16cd @0xe
0x16bf…16f3 at000f = ╱41╱A╱ // 0x16ce @0xf
0x16bf…16f3 at0010 = ╱47╱G╱ // 0x16cf @0x10
0x16bf…16f3 at0011 = ╱20╱…╱ // 0x16d0 @0x11
0x16bf…16f3 at0012 = ╱50╱P╱ // 0x16d1 @0x12
0x16bf…16f3 at0013 = ╱52╱R╱ // 0x16d2 @0x13
0x16bf…16f3 at0014 = ╱2e╱.╱ // 0x16d3 @0x14
0x16bf…16f3 at0015 = ╱20╱…╱ // 0x16d4 @0x15
0x16bf…16f3 at0016 = ╱55╱U╱ // 0x16d5 @0x16
0x16bf…16f3 at0017 = ╱47╱G╱ // 0x16d6 @0x17
0x16bf…16f3 at0018 = ╱45╱E╱ // 0x16d7 @0x18
0x16bf…16f3 at0019 = ╱20╱…╱ // 0x16d8 @0x19
0x16bf…16f3 at001a = ╱22╱"╱ // 0x16d9 @0x1a
0x16bf…16f3 at001b = ╱eb╱ + ╱ // 0x16da @0x1b
0x16bf…16f3 at001c = ╱50╱P╱ // 0x16db @0x1c
0x16bf…16f3 at001d = ╱49╱I╱ // 0x16dc @0x1d
0x16bf…16f3 at001e = ╱4c╱L╱ // 0x16dd @0x1e
0x16bf…16f3 at001f = ╱ef╱ $ ╱ // 0x16de @0x1f
0x16bf…16f3 at0020 = ╱ed╱ ( ╱ // 0x16df @0x20
0x16bf…16f3 at0021 = ╱31╱1╱ // 0x16e0 @0x21
0x16bf…16f3 at0022 = ╱f20100╱ // 0x16e1 @0x22
0x16bf…16f3 at0025 = ╱f1╱ : ╱ // 0x16e4 @0x25
0x16bf…16f3 at0026 = ╱31╱1╱ // 0x16e5 @0x26
0x16bf…16f3 at0027 = ╱36╱6╱ // 0x16e6 @0x27
0x16bf…16f3 at0028 = ╱f21000╱ // 0x16e7 @0x28
0x16bf…16f3 at002b = ╱ee╱ ) ╱ // 0x16ea @0x2b
0x16bf…16f3 at002c = ╱ea╱ ; ╱ // 0x16eb @0x2c
0x16bf…16f3 at002d = ╱51╱Q╱ // 0x16ec @0x2d
0x16bf…16f3 at002e = ╱42╱B╱ // 0x16ed @0x2e
0x16bf…16f3 at002f = ╱f0╱ := ╱ // 0x16ee @0x2f
0x16bf…16f3 at0030 = ╱46╱F╱ // 0x16ef @0x30
0x16bf…16f3 at0031 = ╱52╱R╱ // 0x16f0 @0x31
0x16bf…16f3 at0032 = ╱33╱3╱ // 0x16f1 @0x32
0x16bf…16f3 at0033 = EOL // 0x16f2 @0x33
0x16bf…16f3 }
0x16f3…1700 acee 02550 EXEC LSKRIV1
0x16f3…1700 LineComal80 {
0x16f3…1700 ptr = 0xacee // 0x16f3 @0x0
0x16f3…1700 lno = 0x09f6 // 0x16f5 @0x2
0x16f3…1700 at0004 = ╱9d╱ EXEC ╱ // 0x16f7 @0x4
0x16f3…1700 at0005 = ╱4c╱L╱ // 0x16f8 @0x5
0x16f3…1700 at0006 = ╱53╱S╱ // 0x16f9 @0x6
0x16f3…1700 at0007 = ╱4b╱K╱ // 0x16fa @0x7
0x16f3…1700 at0008 = ╱52╱R╱ // 0x16fb @0x8
0x16f3…1700 at0009 = ╱49╱I╱ // 0x16fc @0x9
0x16f3…1700 at000a = ╱56╱V╱ // 0x16fd @0xa
0x16f3…1700 at000b = ╱31╱1╱ // 0x16fe @0xb
0x16f3…1700 at000c = EOL // 0x16ff @0xc
0x16f3…1700 }
0x1700…1734 ad22 02560 LET QT $ := "FRADRAG…PR.…DAG…" + PIL $ ( 1 : 16 ) ; QB := FR4
0x1700…1734 LineComal80 {
0x1700…1734 ptr = 0xad22 // 0x1700 @0x0
0x1700…1734 lno = 0x0a00 // 0x1702 @0x2
0x1700…1734 at0004 = ╱86╱ LET ╱ // 0x1704 @0x4
0x1700…1734 at0005 = ╱51╱Q╱ // 0x1705 @0x5
0x1700…1734 at0006 = ╱54╱T╱ // 0x1706 @0x6
0x1700…1734 at0007 = ╱ef╱ $ ╱ // 0x1707 @0x7
0x1700…1734 at0008 = ╱f0╱ := ╱ // 0x1708 @0x8
0x1700…1734 at0009 = ╱22╱"╱ // 0x1709 @0x9
0x1700…1734 at000a = ╱46╱F╱ // 0x170a @0xa
0x1700…1734 at000b = ╱52╱R╱ // 0x170b @0xb
0x1700…1734 at000c = ╱41╱A╱ // 0x170c @0xc
0x1700…1734 at000d = ╱44╱D╱ // 0x170d @0xd
0x1700…1734 at000e = ╱52╱R╱ // 0x170e @0xe
0x1700…1734 at000f = ╱41╱A╱ // 0x170f @0xf
0x1700…1734 at0010 = ╱47╱G╱ // 0x1710 @0x10
0x1700…1734 at0011 = ╱20╱…╱ // 0x1711 @0x11
0x1700…1734 at0012 = ╱50╱P╱ // 0x1712 @0x12
0x1700…1734 at0013 = ╱52╱R╱ // 0x1713 @0x13
0x1700…1734 at0014 = ╱2e╱.╱ // 0x1714 @0x14
0x1700…1734 at0015 = ╱20╱…╱ // 0x1715 @0x15
0x1700…1734 at0016 = ╱44╱D╱ // 0x1716 @0x16
0x1700…1734 at0017 = ╱41╱A╱ // 0x1717 @0x17
0x1700…1734 at0018 = ╱47╱G╱ // 0x1718 @0x18
0x1700…1734 at0019 = ╱20╱…╱ // 0x1719 @0x19
0x1700…1734 at001a = ╱22╱"╱ // 0x171a @0x1a
0x1700…1734 at001b = ╱eb╱ + ╱ // 0x171b @0x1b
0x1700…1734 at001c = ╱50╱P╱ // 0x171c @0x1c
0x1700…1734 at001d = ╱49╱I╱ // 0x171d @0x1d
0x1700…1734 at001e = ╱4c╱L╱ // 0x171e @0x1e
0x1700…1734 at001f = ╱ef╱ $ ╱ // 0x171f @0x1f
0x1700…1734 at0020 = ╱ed╱ ( ╱ // 0x1720 @0x20
0x1700…1734 at0021 = ╱31╱1╱ // 0x1721 @0x21
0x1700…1734 at0022 = ╱f20100╱ // 0x1722 @0x22
0x1700…1734 at0025 = ╱f1╱ : ╱ // 0x1725 @0x25
0x1700…1734 at0026 = ╱31╱1╱ // 0x1726 @0x26
0x1700…1734 at0027 = ╱36╱6╱ // 0x1727 @0x27
0x1700…1734 at0028 = ╱f21000╱ // 0x1728 @0x28
0x1700…1734 at002b = ╱ee╱ ) ╱ // 0x172b @0x2b
0x1700…1734 at002c = ╱ea╱ ; ╱ // 0x172c @0x2c
0x1700…1734 at002d = ╱51╱Q╱ // 0x172d @0x2d
0x1700…1734 at002e = ╱42╱B╱ // 0x172e @0x2e
0x1700…1734 at002f = ╱f0╱ := ╱ // 0x172f @0x2f
0x1700…1734 at0030 = ╱46╱F╱ // 0x1730 @0x30
0x1700…1734 at0031 = ╱52╱R╱ // 0x1731 @0x31
0x1700…1734 at0032 = ╱34╱4╱ // 0x1732 @0x32
0x1700…1734 at0033 = EOL // 0x1733 @0x33
0x1700…1734 }
0x1734…1741 ad2f 02570 EXEC LSKRIV1
0x1734…1741 LineComal80 {
0x1734…1741 ptr = 0xad2f // 0x1734 @0x0
0x1734…1741 lno = 0x0a0a // 0x1736 @0x2
0x1734…1741 at0004 = ╱9d╱ EXEC ╱ // 0x1738 @0x4
0x1734…1741 at0005 = ╱4c╱L╱ // 0x1739 @0x5
0x1734…1741 at0006 = ╱53╱S╱ // 0x173a @0x6
0x1734…1741 at0007 = ╱4b╱K╱ // 0x173b @0x7
0x1734…1741 at0008 = ╱52╱R╱ // 0x173c @0x8
0x1734…1741 at0009 = ╱49╱I╱ // 0x173d @0x9
0x1734…1741 at000a = ╱56╱V╱ // 0x173e @0xa
0x1734…1741 at000b = ╱31╱1╱ // 0x173f @0xb
0x1734…1741 at000c = EOL // 0x1740 @0xc
0x1734…1741 }
0x1741…1747 ad35 02580 ENDIF
0x1741…1747 LineComal80 {
0x1741…1747 ptr = 0xad35 // 0x1741 @0x0
0x1741…1747 lno = 0x0a14 // 0x1743 @0x2
0x1741…1747 at0004 = ╱9c╱ ENDIF ╱ // 0x1745 @0x4
0x1741…1747 at0005 = EOL // 0x1746 @0x5
0x1741…1747 }
0x1747…1757 ad45 02590 IF AX > 0 THEN
0x1747…1757 LineComal80 {
0x1747…1757 ptr = 0xad45 // 0x1747 @0x0
0x1747…1757 lno = 0x0a1e // 0x1749 @0x2
0x1747…1757 at0004 = ╱9b004d╱ IF ╱ // 0x174b @0x4
0x1747…1757 at0007 = ╱41╱A╱ // 0x174e @0x7
0x1747…1757 at0008 = ╱58╱X╱ // 0x174f @0x8
0x1747…1757 at0009 = ╱e1╱ > ╱ // 0x1750 @0x9
0x1747…1757 at000a = ╱30╱0╱ // 0x1751 @0xa
0x1747…1757 at000b = ╱f20000╱ // 0x1752 @0xb
0x1747…1757 at000e = ╱b5╱ THEN ╱ // 0x1755 @0xe
0x1747…1757 at000f = EOL // 0x1756 @0xf
0x1747…1757 }
0x1757…178e ad7c 02600 LET QT $ := "MAKSIMAL…A-INDKOMST" + PIL $ ( 1 : 13 ) ; QB := MAX
0x1757…178e LineComal80 {
0x1757…178e ptr = 0xad7c // 0x1757 @0x0
0x1757…178e lno = 0x0a28 // 0x1759 @0x2
0x1757…178e at0004 = ╱86╱ LET ╱ // 0x175b @0x4
0x1757…178e at0005 = ╱51╱Q╱ // 0x175c @0x5
0x1757…178e at0006 = ╱54╱T╱ // 0x175d @0x6
0x1757…178e at0007 = ╱ef╱ $ ╱ // 0x175e @0x7
0x1757…178e at0008 = ╱f0╱ := ╱ // 0x175f @0x8
0x1757…178e at0009 = ╱22╱"╱ // 0x1760 @0x9
0x1757…178e at000a = ╱4d╱M╱ // 0x1761 @0xa
0x1757…178e at000b = ╱41╱A╱ // 0x1762 @0xb
0x1757…178e at000c = ╱4b╱K╱ // 0x1763 @0xc
0x1757…178e at000d = ╱53╱S╱ // 0x1764 @0xd
0x1757…178e at000e = ╱49╱I╱ // 0x1765 @0xe
0x1757…178e at000f = ╱4d╱M╱ // 0x1766 @0xf
0x1757…178e at0010 = ╱41╱A╱ // 0x1767 @0x10
0x1757…178e at0011 = ╱4c╱L╱ // 0x1768 @0x11
0x1757…178e at0012 = ╱20╱…╱ // 0x1769 @0x12
0x1757…178e at0013 = ╱41╱A╱ // 0x176a @0x13
0x1757…178e at0014 = ╱2d╱-╱ // 0x176b @0x14
0x1757…178e at0015 = ╱49╱I╱ // 0x176c @0x15
0x1757…178e at0016 = ╱4e╱N╱ // 0x176d @0x16
0x1757…178e at0017 = ╱44╱D╱ // 0x176e @0x17
0x1757…178e at0018 = ╱4b╱K╱ // 0x176f @0x18
0x1757…178e at0019 = ╱4f╱O╱ // 0x1770 @0x19
0x1757…178e at001a = ╱4d╱M╱ // 0x1771 @0x1a
0x1757…178e at001b = ╱53╱S╱ // 0x1772 @0x1b
0x1757…178e at001c = ╱54╱T╱ // 0x1773 @0x1c
0x1757…178e at001d = ╱22╱"╱ // 0x1774 @0x1d
0x1757…178e at001e = ╱eb╱ + ╱ // 0x1775 @0x1e
0x1757…178e at001f = ╱50╱P╱ // 0x1776 @0x1f
0x1757…178e at0020 = ╱49╱I╱ // 0x1777 @0x20
0x1757…178e at0021 = ╱4c╱L╱ // 0x1778 @0x21
0x1757…178e at0022 = ╱ef╱ $ ╱ // 0x1779 @0x22
0x1757…178e at0023 = ╱ed╱ ( ╱ // 0x177a @0x23
0x1757…178e at0024 = ╱31╱1╱ // 0x177b @0x24
0x1757…178e at0025 = ╱f20100╱ // 0x177c @0x25
0x1757…178e at0028 = ╱f1╱ : ╱ // 0x177f @0x28
0x1757…178e at0029 = ╱31╱1╱ // 0x1780 @0x29
0x1757…178e at002a = ╱33╱3╱ // 0x1781 @0x2a
0x1757…178e at002b = ╱f20d00╱ // 0x1782 @0x2b
0x1757…178e at002e = ╱ee╱ ) ╱ // 0x1785 @0x2e
0x1757…178e at002f = ╱ea╱ ; ╱ // 0x1786 @0x2f
0x1757…178e at0030 = ╱51╱Q╱ // 0x1787 @0x30
0x1757…178e at0031 = ╱42╱B╱ // 0x1788 @0x31
0x1757…178e at0032 = ╱f0╱ := ╱ // 0x1789 @0x32
0x1757…178e at0033 = ╱4d╱M╱ // 0x178a @0x33
0x1757…178e at0034 = ╱41╱A╱ // 0x178b @0x34
0x1757…178e at0035 = ╱58╱X╱ // 0x178c @0x35
0x1757…178e at0036 = EOL // 0x178d @0x36
0x1757…178e }
0x178e…179b ad89 02610 EXEC LSKRIV1
0x178e…179b LineComal80 {
0x178e…179b ptr = 0xad89 // 0x178e @0x0
0x178e…179b lno = 0x0a32 // 0x1790 @0x2
0x178e…179b at0004 = ╱9d╱ EXEC ╱ // 0x1792 @0x4
0x178e…179b at0005 = ╱4c╱L╱ // 0x1793 @0x5
0x178e…179b at0006 = ╱53╱S╱ // 0x1794 @0x6
0x178e…179b at0007 = ╱4b╱K╱ // 0x1795 @0x7
0x178e…179b at0008 = ╱52╱R╱ // 0x1796 @0x8
0x178e…179b at0009 = ╱49╱I╱ // 0x1797 @0x9
0x178e…179b at000a = ╱56╱V╱ // 0x1798 @0xa
0x178e…179b at000b = ╱31╱1╱ // 0x1799 @0xb
0x178e…179b at000c = EOL // 0x179a @0xc
0x178e…179b }
0x179b…17a1 ad8f 02620 ENDIF
0x179b…17a1 LineComal80 {
0x179b…17a1 ptr = 0xad8f // 0x179b @0x0
0x179b…17a1 lno = 0x0a3c // 0x179d @0x2
0x179b…17a1 at0004 = ╱9c╱ ENDIF ╱ // 0x179f @0x4
0x179b…17a1 at0005 = EOL // 0x17a0 @0x5
0x179b…17a1 }
0x17a1…17bf adad 02630 IF SK > 0 AND RESTRATE > 0 THEN
0x17a1…17bf LineComal80 {
0x17a1…17bf ptr = 0xadad // 0x17a1 @0x0
0x17a1…17bf lno = 0x0a46 // 0x17a3 @0x2
0x17a1…17bf at0004 = ╱9b0042╱ IF ╱ // 0x17a5 @0x4
0x17a1…17bf at0007 = ╱53╱S╱ // 0x17a8 @0x7
0x17a1…17bf at0008 = ╱4b╱K╱ // 0x17a9 @0x8
0x17a1…17bf at0009 = ╱e1╱ > ╱ // 0x17aa @0x9
0x17a1…17bf at000a = ╱30╱0╱ // 0x17ab @0xa
0x17a1…17bf at000b = ╱f20000╱ // 0x17ac @0xb
0x17a1…17bf at000e = ╱d9╱ AND ╱ // 0x17af @0xe
0x17a1…17bf at000f = ╱52╱R╱ // 0x17b0 @0xf
0x17a1…17bf at0010 = ╱45╱E╱ // 0x17b1 @0x10
0x17a1…17bf at0011 = ╱53╱S╱ // 0x17b2 @0x11
0x17a1…17bf at0012 = ╱54╱T╱ // 0x17b3 @0x12
0x17a1…17bf at0013 = ╱52╱R╱ // 0x17b4 @0x13
0x17a1…17bf at0014 = ╱41╱A╱ // 0x17b5 @0x14
0x17a1…17bf at0015 = ╱54╱T╱ // 0x17b6 @0x15
0x17a1…17bf at0016 = ╱45╱E╱ // 0x17b7 @0x16
0x17a1…17bf at0017 = ╱e1╱ > ╱ // 0x17b8 @0x17
0x17a1…17bf at0018 = ╱30╱0╱ // 0x17b9 @0x18
0x17a1…17bf at0019 = ╱f20000╱ // 0x17ba @0x19
0x17a1…17bf at001c = ╱b5╱ THEN ╱ // 0x17bd @0x1c
0x17a1…17bf at001d = EOL // 0x17be @0x1d
0x17a1…17bf }
0x17bf…17fb ade9 02640 LET QT $ := "B-SKAT…FOR…RESTEN…AF…]RET" + PIL $ ( 1 : 6 ) ; QB := BSK
0x17bf…17fb LineComal80 {
0x17bf…17fb ptr = 0xade9 // 0x17bf @0x0
0x17bf…17fb lno = 0x0a50 // 0x17c1 @0x2
0x17bf…17fb at0004 = ╱86╱ LET ╱ // 0x17c3 @0x4
0x17bf…17fb at0005 = ╱51╱Q╱ // 0x17c4 @0x5
0x17bf…17fb at0006 = ╱54╱T╱ // 0x17c5 @0x6
0x17bf…17fb at0007 = ╱ef╱ $ ╱ // 0x17c6 @0x7
0x17bf…17fb at0008 = ╱f0╱ := ╱ // 0x17c7 @0x8
0x17bf…17fb at0009 = ╱22╱"╱ // 0x17c8 @0x9
0x17bf…17fb at000a = ╱42╱B╱ // 0x17c9 @0xa
0x17bf…17fb at000b = ╱2d╱-╱ // 0x17ca @0xb
0x17bf…17fb at000c = ╱53╱S╱ // 0x17cb @0xc
0x17bf…17fb at000d = ╱4b╱K╱ // 0x17cc @0xd
0x17bf…17fb at000e = ╱41╱A╱ // 0x17cd @0xe
0x17bf…17fb at000f = ╱54╱T╱ // 0x17ce @0xf
0x17bf…17fb at0010 = ╱20╱…╱ // 0x17cf @0x10
0x17bf…17fb at0011 = ╱46╱F╱ // 0x17d0 @0x11
0x17bf…17fb at0012 = ╱4f╱O╱ // 0x17d1 @0x12
0x17bf…17fb at0013 = ╱52╱R╱ // 0x17d2 @0x13
0x17bf…17fb at0014 = ╱20╱…╱ // 0x17d3 @0x14
0x17bf…17fb at0015 = ╱52╱R╱ // 0x17d4 @0x15
0x17bf…17fb at0016 = ╱45╱E╱ // 0x17d5 @0x16
0x17bf…17fb at0017 = ╱53╱S╱ // 0x17d6 @0x17
0x17bf…17fb at0018 = ╱54╱T╱ // 0x17d7 @0x18
0x17bf…17fb at0019 = ╱45╱E╱ // 0x17d8 @0x19
0x17bf…17fb at001a = ╱4e╱N╱ // 0x17d9 @0x1a
0x17bf…17fb at001b = ╱20╱…╱ // 0x17da @0x1b
0x17bf…17fb at001c = ╱41╱A╱ // 0x17db @0x1c
0x17bf…17fb at001d = ╱46╱F╱ // 0x17dc @0x1d
0x17bf…17fb at001e = ╱20╱…╱ // 0x17dd @0x1e
0x17bf…17fb at001f = ╱5d╱]╱ // 0x17de @0x1f
0x17bf…17fb at0020 = ╱52╱R╱ // 0x17df @0x20
0x17bf…17fb at0021 = ╱45╱E╱ // 0x17e0 @0x21
0x17bf…17fb at0022 = ╱54╱T╱ // 0x17e1 @0x22
0x17bf…17fb at0023 = ╱22╱"╱ // 0x17e2 @0x23
0x17bf…17fb at0024 = ╱eb╱ + ╱ // 0x17e3 @0x24
0x17bf…17fb at0025 = ╱50╱P╱ // 0x17e4 @0x25
0x17bf…17fb at0026 = ╱49╱I╱ // 0x17e5 @0x26
0x17bf…17fb at0027 = ╱4c╱L╱ // 0x17e6 @0x27
0x17bf…17fb at0028 = ╱ef╱ $ ╱ // 0x17e7 @0x28
0x17bf…17fb at0029 = ╱ed╱ ( ╱ // 0x17e8 @0x29
0x17bf…17fb at002a = ╱31╱1╱ // 0x17e9 @0x2a
0x17bf…17fb at002b = ╱f20100╱ // 0x17ea @0x2b
0x17bf…17fb at002e = ╱f1╱ : ╱ // 0x17ed @0x2e
0x17bf…17fb at002f = ╱36╱6╱ // 0x17ee @0x2f
0x17bf…17fb at0030 = ╱f20600╱ // 0x17ef @0x30
0x17bf…17fb at0033 = ╱ee╱ ) ╱ // 0x17f2 @0x33
0x17bf…17fb at0034 = ╱ea╱ ; ╱ // 0x17f3 @0x34
0x17bf…17fb at0035 = ╱51╱Q╱ // 0x17f4 @0x35
0x17bf…17fb at0036 = ╱42╱B╱ // 0x17f5 @0x36
0x17bf…17fb at0037 = ╱f0╱ := ╱ // 0x17f6 @0x37
0x17bf…17fb at0038 = ╱42╱B╱ // 0x17f7 @0x38
0x17bf…17fb at0039 = ╱53╱S╱ // 0x17f8 @0x39
0x17bf…17fb at003a = ╱4b╱K╱ // 0x17f9 @0x3a
0x17bf…17fb at003b = EOL // 0x17fa @0x3b
0x17bf…17fb }
0x17fb…1808 adf6 02650 EXEC LSKRIV1
0x17fb…1808 LineComal80 {
0x17fb…1808 ptr = 0xadf6 // 0x17fb @0x0
0x17fb…1808 lno = 0x0a5a // 0x17fd @0x2
0x17fb…1808 at0004 = ╱9d╱ EXEC ╱ // 0x17ff @0x4
0x17fb…1808 at0005 = ╱4c╱L╱ // 0x1800 @0x5
0x17fb…1808 at0006 = ╱53╱S╱ // 0x1801 @0x6
0x17fb…1808 at0007 = ╱4b╱K╱ // 0x1802 @0x7
0x17fb…1808 at0008 = ╱52╱R╱ // 0x1803 @0x8
0x17fb…1808 at0009 = ╱49╱I╱ // 0x1804 @0x9
0x17fb…1808 at000a = ╱56╱V╱ // 0x1805 @0xa
0x17fb…1808 at000b = ╱31╱1╱ // 0x1806 @0xb
0x17fb…1808 at000c = EOL // 0x1807 @0xc
0x17fb…1808 }
0x1808…184d ae3b 02660 PRINT "B-SKATTEN…FORDELES…OVER…" ; RESTRATE ; "RATE(R).…F\RSTE…RATE…ER…" ;
0x1808…184d LineComal80 {
0x1808…184d ptr = 0xae3b // 0x1808 @0x0
0x1808…184d lno = 0x0a64 // 0x180a @0x2
0x1808…184d at0004 = ╱92╱ PRINT ╱ // 0x180c @0x4
0x1808…184d at0005 = ╱22╱"╱ // 0x180d @0x5
0x1808…184d at0006 = ╱42╱B╱ // 0x180e @0x6
0x1808…184d at0007 = ╱2d╱-╱ // 0x180f @0x7
0x1808…184d at0008 = ╱53╱S╱ // 0x1810 @0x8
0x1808…184d at0009 = ╱4b╱K╱ // 0x1811 @0x9
0x1808…184d at000a = ╱41╱A╱ // 0x1812 @0xa
0x1808…184d at000b = ╱54╱T╱ // 0x1813 @0xb
0x1808…184d at000c = ╱54╱T╱ // 0x1814 @0xc
0x1808…184d at000d = ╱45╱E╱ // 0x1815 @0xd
0x1808…184d at000e = ╱4e╱N╱ // 0x1816 @0xe
0x1808…184d at000f = ╱20╱…╱ // 0x1817 @0xf
0x1808…184d at0010 = ╱46╱F╱ // 0x1818 @0x10
0x1808…184d at0011 = ╱4f╱O╱ // 0x1819 @0x11
0x1808…184d at0012 = ╱52╱R╱ // 0x181a @0x12
0x1808…184d at0013 = ╱44╱D╱ // 0x181b @0x13
0x1808…184d at0014 = ╱45╱E╱ // 0x181c @0x14
0x1808…184d at0015 = ╱4c╱L╱ // 0x181d @0x15
0x1808…184d at0016 = ╱45╱E╱ // 0x181e @0x16
0x1808…184d at0017 = ╱53╱S╱ // 0x181f @0x17
0x1808…184d at0018 = ╱20╱…╱ // 0x1820 @0x18
0x1808…184d at0019 = ╱4f╱O╱ // 0x1821 @0x19
0x1808…184d at001a = ╱56╱V╱ // 0x1822 @0x1a
0x1808…184d at001b = ╱45╱E╱ // 0x1823 @0x1b
0x1808…184d at001c = ╱52╱R╱ // 0x1824 @0x1c
0x1808…184d at001d = ╱20╱…╱ // 0x1825 @0x1d
0x1808…184d at001e = ╱22╱"╱ // 0x1826 @0x1e
0x1808…184d at001f = ╱ea╱ ; ╱ // 0x1827 @0x1f
0x1808…184d at0020 = ╱52╱R╱ // 0x1828 @0x20
0x1808…184d at0021 = ╱45╱E╱ // 0x1829 @0x21
0x1808…184d at0022 = ╱53╱S╱ // 0x182a @0x22
0x1808…184d at0023 = ╱54╱T╱ // 0x182b @0x23
0x1808…184d at0024 = ╱52╱R╱ // 0x182c @0x24
0x1808…184d at0025 = ╱41╱A╱ // 0x182d @0x25
0x1808…184d at0026 = ╱54╱T╱ // 0x182e @0x26
0x1808…184d at0027 = ╱45╱E╱ // 0x182f @0x27
0x1808…184d at0028 = ╱ea╱ ; ╱ // 0x1830 @0x28
0x1808…184d at0029 = ╱22╱"╱ // 0x1831 @0x29
0x1808…184d at002a = ╱52╱R╱ // 0x1832 @0x2a
0x1808…184d at002b = ╱41╱A╱ // 0x1833 @0x2b
0x1808…184d at002c = ╱54╱T╱ // 0x1834 @0x2c
0x1808…184d at002d = ╱45╱E╱ // 0x1835 @0x2d
0x1808…184d at002e = ╱28╱(╱ // 0x1836 @0x2e
0x1808…184d at002f = ╱52╱R╱ // 0x1837 @0x2f
0x1808…184d at0030 = ╱29╱)╱ // 0x1838 @0x30
0x1808…184d at0031 = ╱2e╱.╱ // 0x1839 @0x31
0x1808…184d at0032 = ╱20╱…╱ // 0x183a @0x32
0x1808…184d at0033 = ╱46╱F╱ // 0x183b @0x33
0x1808…184d at0034 = ╱5c╱\╱ // 0x183c @0x34
0x1808…184d at0035 = ╱52╱R╱ // 0x183d @0x35
0x1808…184d at0036 = ╱53╱S╱ // 0x183e @0x36
0x1808…184d at0037 = ╱54╱T╱ // 0x183f @0x37
0x1808…184d at0038 = ╱45╱E╱ // 0x1840 @0x38
0x1808…184d at0039 = ╱20╱…╱ // 0x1841 @0x39
0x1808…184d at003a = ╱52╱R╱ // 0x1842 @0x3a
0x1808…184d at003b = ╱41╱A╱ // 0x1843 @0x3b
0x1808…184d at003c = ╱54╱T╱ // 0x1844 @0x3c
0x1808…184d at003d = ╱45╱E╱ // 0x1845 @0x3d
0x1808…184d at003e = ╱20╱…╱ // 0x1846 @0x3e
0x1808…184d at003f = ╱45╱E╱ // 0x1847 @0x3f
0x1808…184d at0040 = ╱52╱R╱ // 0x1848 @0x40
0x1808…184d at0041 = ╱20╱…╱ // 0x1849 @0x41
0x1808…184d at0042 = ╱22╱"╱ // 0x184a @0x42
0x1808…184d at0043 = ╱ea╱ ; ╱ // 0x184b @0x43
0x1808…184d at0044 = EOL // 0x184c @0x44
0x1808…184d }
0x184d…1864 ae52 02670 PRINT "NR.…" ; NYRATE ; "."
0x184d…1864 LineComal80 {
0x184d…1864 ptr = 0xae52 // 0x184d @0x0
0x184d…1864 lno = 0x0a6e // 0x184f @0x2
0x184d…1864 at0004 = ╱92╱ PRINT ╱ // 0x1851 @0x4
0x184d…1864 at0005 = ╱22╱"╱ // 0x1852 @0x5
0x184d…1864 at0006 = ╱4e╱N╱ // 0x1853 @0x6
0x184d…1864 at0007 = ╱52╱R╱ // 0x1854 @0x7
0x184d…1864 at0008 = ╱2e╱.╱ // 0x1855 @0x8
0x184d…1864 at0009 = ╱20╱…╱ // 0x1856 @0x9
0x184d…1864 at000a = ╱22╱"╱ // 0x1857 @0xa
0x184d…1864 at000b = ╱ea╱ ; ╱ // 0x1858 @0xb
0x184d…1864 at000c = ╱4e╱N╱ // 0x1859 @0xc
0x184d…1864 at000d = ╱59╱Y╱ // 0x185a @0xd
0x184d…1864 at000e = ╱52╱R╱ // 0x185b @0xe
0x184d…1864 at000f = ╱41╱A╱ // 0x185c @0xf
0x184d…1864 at0010 = ╱54╱T╱ // 0x185d @0x10
0x184d…1864 at0011 = ╱45╱E╱ // 0x185e @0x11
0x184d…1864 at0012 = ╱ea╱ ; ╱ // 0x185f @0x12
0x184d…1864 at0013 = ╱22╱"╱ // 0x1860 @0x13
0x184d…1864 at0014 = ╱2e╱.╱ // 0x1861 @0x14
0x184d…1864 at0015 = ╱22╱"╱ // 0x1862 @0x15
0x184d…1864 at0016 = EOL // 0x1863 @0x16
0x184d…1864 }
0x1864…18a3 ae91 02680 LET QT $ := "RATEBEL\BET…UDG\R…" + PIL $ ( 1 : 14 ) ; QB := BSK / RESTRATE
0x1864…18a3 LineComal80 {
0x1864…18a3 ptr = 0xae91 // 0x1864 @0x0
0x1864…18a3 lno = 0x0a78 // 0x1866 @0x2
0x1864…18a3 at0004 = ╱86╱ LET ╱ // 0x1868 @0x4
0x1864…18a3 at0005 = ╱51╱Q╱ // 0x1869 @0x5
0x1864…18a3 at0006 = ╱54╱T╱ // 0x186a @0x6
0x1864…18a3 at0007 = ╱ef╱ $ ╱ // 0x186b @0x7
0x1864…18a3 at0008 = ╱f0╱ := ╱ // 0x186c @0x8
0x1864…18a3 at0009 = ╱22╱"╱ // 0x186d @0x9
0x1864…18a3 at000a = ╱52╱R╱ // 0x186e @0xa
0x1864…18a3 at000b = ╱41╱A╱ // 0x186f @0xb
0x1864…18a3 at000c = ╱54╱T╱ // 0x1870 @0xc
0x1864…18a3 at000d = ╱45╱E╱ // 0x1871 @0xd
0x1864…18a3 at000e = ╱42╱B╱ // 0x1872 @0xe
0x1864…18a3 at000f = ╱45╱E╱ // 0x1873 @0xf
0x1864…18a3 at0010 = ╱4c╱L╱ // 0x1874 @0x10
0x1864…18a3 at0011 = ╱5c╱\╱ // 0x1875 @0x11
0x1864…18a3 at0012 = ╱42╱B╱ // 0x1876 @0x12
0x1864…18a3 at0013 = ╱45╱E╱ // 0x1877 @0x13
0x1864…18a3 at0014 = ╱54╱T╱ // 0x1878 @0x14
0x1864…18a3 at0015 = ╱20╱…╱ // 0x1879 @0x15
0x1864…18a3 at0016 = ╱55╱U╱ // 0x187a @0x16
0x1864…18a3 at0017 = ╱44╱D╱ // 0x187b @0x17
0x1864…18a3 at0018 = ╱47╱G╱ // 0x187c @0x18
0x1864…18a3 at0019 = ╱5c╱\╱ // 0x187d @0x19
0x1864…18a3 at001a = ╱52╱R╱ // 0x187e @0x1a
0x1864…18a3 at001b = ╱20╱…╱ // 0x187f @0x1b
0x1864…18a3 at001c = ╱22╱"╱ // 0x1880 @0x1c
0x1864…18a3 at001d = ╱eb╱ + ╱ // 0x1881 @0x1d
0x1864…18a3 at001e = ╱50╱P╱ // 0x1882 @0x1e
0x1864…18a3 at001f = ╱49╱I╱ // 0x1883 @0x1f
0x1864…18a3 at0020 = ╱4c╱L╱ // 0x1884 @0x20
0x1864…18a3 at0021 = ╱ef╱ $ ╱ // 0x1885 @0x21
0x1864…18a3 at0022 = ╱ed╱ ( ╱ // 0x1886 @0x22
0x1864…18a3 at0023 = ╱31╱1╱ // 0x1887 @0x23
0x1864…18a3 at0024 = ╱f20100╱ // 0x1888 @0x24
0x1864…18a3 at0027 = ╱f1╱ : ╱ // 0x188b @0x27
0x1864…18a3 at0028 = ╱31╱1╱ // 0x188c @0x28
0x1864…18a3 at0029 = ╱34╱4╱ // 0x188d @0x29
0x1864…18a3 at002a = ╱f20e00╱ // 0x188e @0x2a
0x1864…18a3 at002d = ╱ee╱ ) ╱ // 0x1891 @0x2d
0x1864…18a3 at002e = ╱ea╱ ; ╱ // 0x1892 @0x2e
0x1864…18a3 at002f = ╱51╱Q╱ // 0x1893 @0x2f
0x1864…18a3 at0030 = ╱42╱B╱ // 0x1894 @0x30
0x1864…18a3 at0031 = ╱f0╱ := ╱ // 0x1895 @0x31
0x1864…18a3 at0032 = ╱42╱B╱ // 0x1896 @0x32
0x1864…18a3 at0033 = ╱53╱S╱ // 0x1897 @0x33
0x1864…18a3 at0034 = ╱4b╱K╱ // 0x1898 @0x34
0x1864…18a3 at0035 = ╱e8╱ / ╱ // 0x1899 @0x35
0x1864…18a3 at0036 = ╱52╱R╱ // 0x189a @0x36
0x1864…18a3 at0037 = ╱45╱E╱ // 0x189b @0x37
0x1864…18a3 at0038 = ╱53╱S╱ // 0x189c @0x38
0x1864…18a3 at0039 = ╱54╱T╱ // 0x189d @0x39
0x1864…18a3 at003a = ╱52╱R╱ // 0x189e @0x3a
0x1864…18a3 at003b = ╱41╱A╱ // 0x189f @0x3b
0x1864…18a3 at003c = ╱54╱T╱ // 0x18a0 @0x3c
0x1864…18a3 at003d = ╱45╱E╱ // 0x18a1 @0x3d
0x1864…18a3 at003e = EOL // 0x18a2 @0x3e
0x1864…18a3 }
0x18a3…18b0 ae9e 02690 EXEC LSKRIV1
0x18a3…18b0 LineComal80 {
0x18a3…18b0 ptr = 0xae9e // 0x18a3 @0x0
0x18a3…18b0 lno = 0x0a82 // 0x18a5 @0x2
0x18a3…18b0 at0004 = ╱9d╱ EXEC ╱ // 0x18a7 @0x4
0x18a3…18b0 at0005 = ╱4c╱L╱ // 0x18a8 @0x5
0x18a3…18b0 at0006 = ╱53╱S╱ // 0x18a9 @0x6
0x18a3…18b0 at0007 = ╱4b╱K╱ // 0x18aa @0x7
0x18a3…18b0 at0008 = ╱52╱R╱ // 0x18ab @0x8
0x18a3…18b0 at0009 = ╱49╱I╱ // 0x18ac @0x9
0x18a3…18b0 at000a = ╱56╱V╱ // 0x18ad @0xa
0x18a3…18b0 at000b = ╱31╱1╱ // 0x18ae @0xb
0x18a3…18b0 at000c = EOL // 0x18af @0xc
0x18a3…18b0 }
0x18b0…18b6 aea4 02700 ENDIF
0x18b0…18b6 LineComal80 {
0x18b0…18b6 ptr = 0xaea4 // 0x18b0 @0x0
0x18b0…18b6 lno = 0x0a8c // 0x18b2 @0x2
0x18b0…18b6 at0004 = ╱9c╱ ENDIF ╱ // 0x18b4 @0x4
0x18b0…18b6 at0005 = EOL // 0x18b5 @0x5
0x18b0…18b6 }
0x18b6…18d4 aec2 02710 IF SK > 0 AND RESTRATE =< 0 THEN
0x18b6…18d4 LineComal80 {
0x18b6…18d4 ptr = 0xaec2 // 0x18b6 @0x0
0x18b6…18d4 lno = 0x0a96 // 0x18b8 @0x2
0x18b6…18d4 at0004 = ╱9b0042╱ IF ╱ // 0x18ba @0x4
0x18b6…18d4 at0007 = ╱53╱S╱ // 0x18bd @0x7
0x18b6…18d4 at0008 = ╱4b╱K╱ // 0x18be @0x8
0x18b6…18d4 at0009 = ╱e1╱ > ╱ // 0x18bf @0x9
0x18b6…18d4 at000a = ╱30╱0╱ // 0x18c0 @0xa
0x18b6…18d4 at000b = ╱f20000╱ // 0x18c1 @0xb
0x18b6…18d4 at000e = ╱d9╱ AND ╱ // 0x18c4 @0xe
0x18b6…18d4 at000f = ╱52╱R╱ // 0x18c5 @0xf
0x18b6…18d4 at0010 = ╱45╱E╱ // 0x18c6 @0x10
0x18b6…18d4 at0011 = ╱53╱S╱ // 0x18c7 @0x11
0x18b6…18d4 at0012 = ╱54╱T╱ // 0x18c8 @0x12
0x18b6…18d4 at0013 = ╱52╱R╱ // 0x18c9 @0x13
0x18b6…18d4 at0014 = ╱41╱A╱ // 0x18ca @0x14
0x18b6…18d4 at0015 = ╱54╱T╱ // 0x18cb @0x15
0x18b6…18d4 at0016 = ╱45╱E╱ // 0x18cc @0x16
0x18b6…18d4 at0017 = ╱e2╱ =< ╱ // 0x18cd @0x17
0x18b6…18d4 at0018 = ╱30╱0╱ // 0x18ce @0x18
0x18b6…18d4 at0019 = ╱f20000╱ // 0x18cf @0x19
0x18b6…18d4 at001c = ╱b5╱ THEN ╱ // 0x18d2 @0x1c
0x18b6…18d4 at001d = EOL // 0x18d3 @0x1d
0x18b6…18d4 }
0x18d4…191f af0d 02720 LET QT $ := "B-SKAT…KAN…IKKE…[NDRES…EFTER…DEN…31/10.…DER…KAN…EVT.…INDBETALES"
0x18d4…191f LineComal80 {
0x18d4…191f ptr = 0xaf0d // 0x18d4 @0x0
0x18d4…191f lno = 0x0aa0 // 0x18d6 @0x2
0x18d4…191f at0004 = ╱86╱ LET ╱ // 0x18d8 @0x4
0x18d4…191f at0005 = ╱51╱Q╱ // 0x18d9 @0x5
0x18d4…191f at0006 = ╱54╱T╱ // 0x18da @0x6
0x18d4…191f at0007 = ╱ef╱ $ ╱ // 0x18db @0x7
0x18d4…191f at0008 = ╱f0╱ := ╱ // 0x18dc @0x8
0x18d4…191f at0009 = ╱22╱"╱ // 0x18dd @0x9
0x18d4…191f at000a = ╱42╱B╱ // 0x18de @0xa
0x18d4…191f at000b = ╱2d╱-╱ // 0x18df @0xb
0x18d4…191f at000c = ╱53╱S╱ // 0x18e0 @0xc
0x18d4…191f at000d = ╱4b╱K╱ // 0x18e1 @0xd
0x18d4…191f at000e = ╱41╱A╱ // 0x18e2 @0xe
0x18d4…191f at000f = ╱54╱T╱ // 0x18e3 @0xf
0x18d4…191f at0010 = ╱20╱…╱ // 0x18e4 @0x10
0x18d4…191f at0011 = ╱4b╱K╱ // 0x18e5 @0x11
0x18d4…191f at0012 = ╱41╱A╱ // 0x18e6 @0x12
0x18d4…191f at0013 = ╱4e╱N╱ // 0x18e7 @0x13
0x18d4…191f at0014 = ╱20╱…╱ // 0x18e8 @0x14
0x18d4…191f at0015 = ╱49╱I╱ // 0x18e9 @0x15
0x18d4…191f at0016 = ╱4b╱K╱ // 0x18ea @0x16
0x18d4…191f at0017 = ╱4b╱K╱ // 0x18eb @0x17
0x18d4…191f at0018 = ╱45╱E╱ // 0x18ec @0x18
0x18d4…191f at0019 = ╱20╱…╱ // 0x18ed @0x19
0x18d4…191f at001a = ╱5b╱[╱ // 0x18ee @0x1a
0x18d4…191f at001b = ╱4e╱N╱ // 0x18ef @0x1b
0x18d4…191f at001c = ╱44╱D╱ // 0x18f0 @0x1c
0x18d4…191f at001d = ╱52╱R╱ // 0x18f1 @0x1d
0x18d4…191f at001e = ╱45╱E╱ // 0x18f2 @0x1e
0x18d4…191f at001f = ╱53╱S╱ // 0x18f3 @0x1f
0x18d4…191f at0020 = ╱20╱…╱ // 0x18f4 @0x20
0x18d4…191f at0021 = ╱45╱E╱ // 0x18f5 @0x21
0x18d4…191f at0022 = ╱46╱F╱ // 0x18f6 @0x22
0x18d4…191f at0023 = ╱54╱T╱ // 0x18f7 @0x23
0x18d4…191f at0024 = ╱45╱E╱ // 0x18f8 @0x24
0x18d4…191f at0025 = ╱52╱R╱ // 0x18f9 @0x25
0x18d4…191f at0026 = ╱20╱…╱ // 0x18fa @0x26
0x18d4…191f at0027 = ╱44╱D╱ // 0x18fb @0x27
0x18d4…191f at0028 = ╱45╱E╱ // 0x18fc @0x28
0x18d4…191f at0029 = ╱4e╱N╱ // 0x18fd @0x29
0x18d4…191f at002a = ╱20╱…╱ // 0x18fe @0x2a
0x18d4…191f at002b = ╱33╱3╱ // 0x18ff @0x2b
0x18d4…191f at002c = ╱31╱1╱ // 0x1900 @0x2c
0x18d4…191f at002d = ╱2f╱/╱ // 0x1901 @0x2d
0x18d4…191f at002e = ╱31╱1╱ // 0x1902 @0x2e
0x18d4…191f at002f = ╱30╱0╱ // 0x1903 @0x2f
0x18d4…191f at0030 = ╱2e╱.╱ // 0x1904 @0x30
0x18d4…191f at0031 = ╱20╱…╱ // 0x1905 @0x31
0x18d4…191f at0032 = ╱44╱D╱ // 0x1906 @0x32
0x18d4…191f at0033 = ╱45╱E╱ // 0x1907 @0x33
0x18d4…191f at0034 = ╱52╱R╱ // 0x1908 @0x34
0x18d4…191f at0035 = ╱20╱…╱ // 0x1909 @0x35
0x18d4…191f at0036 = ╱4b╱K╱ // 0x190a @0x36
0x18d4…191f at0037 = ╱41╱A╱ // 0x190b @0x37
0x18d4…191f at0038 = ╱4e╱N╱ // 0x190c @0x38
0x18d4…191f at0039 = ╱20╱…╱ // 0x190d @0x39
0x18d4…191f at003a = ╱45╱E╱ // 0x190e @0x3a
0x18d4…191f at003b = ╱56╱V╱ // 0x190f @0x3b
0x18d4…191f at003c = ╱54╱T╱ // 0x1910 @0x3c
0x18d4…191f at003d = ╱2e╱.╱ // 0x1911 @0x3d
0x18d4…191f at003e = ╱20╱…╱ // 0x1912 @0x3e
0x18d4…191f at003f = ╱49╱I╱ // 0x1913 @0x3f
0x18d4…191f at0040 = ╱4e╱N╱ // 0x1914 @0x40
0x18d4…191f at0041 = ╱44╱D╱ // 0x1915 @0x41
0x18d4…191f at0042 = ╱42╱B╱ // 0x1916 @0x42
0x18d4…191f at0043 = ╱45╱E╱ // 0x1917 @0x43
0x18d4…191f at0044 = ╱54╱T╱ // 0x1918 @0x44
0x18d4…191f at0045 = ╱41╱A╱ // 0x1919 @0x45
0x18d4…191f at0046 = ╱4c╱L╱ // 0x191a @0x46
0x18d4…191f at0047 = ╱45╱E╱ // 0x191b @0x47
0x18d4…191f at0048 = ╱53╱S╱ // 0x191c @0x48
0x18d4…191f at0049 = ╱22╱"╱ // 0x191d @0x49
0x18d4…191f at004a = EOL // 0x191e @0x4a
0x18d4…191f }
0x191f…193a af28 02730 LET QT $ := QT $ + "…FRIVILLIGT"
0x191f…193a LineComal80 {
0x191f…193a ptr = 0xaf28 // 0x191f @0x0
0x191f…193a lno = 0x0aaa // 0x1921 @0x2
0x191f…193a at0004 = ╱86╱ LET ╱ // 0x1923 @0x4
0x191f…193a at0005 = ╱51╱Q╱ // 0x1924 @0x5
0x191f…193a at0006 = ╱54╱T╱ // 0x1925 @0x6
0x191f…193a at0007 = ╱ef╱ $ ╱ // 0x1926 @0x7
0x191f…193a at0008 = ╱f0╱ := ╱ // 0x1927 @0x8
0x191f…193a at0009 = ╱51╱Q╱ // 0x1928 @0x9
0x191f…193a at000a = ╱54╱T╱ // 0x1929 @0xa
0x191f…193a at000b = ╱ef╱ $ ╱ // 0x192a @0xb
0x191f…193a at000c = ╱eb╱ + ╱ // 0x192b @0xc
0x191f…193a at000d = ╱22╱"╱ // 0x192c @0xd
0x191f…193a at000e = ╱20╱…╱ // 0x192d @0xe
0x191f…193a at000f = ╱46╱F╱ // 0x192e @0xf
0x191f…193a at0010 = ╱52╱R╱ // 0x192f @0x10
0x191f…193a at0011 = ╱49╱I╱ // 0x1930 @0x11
0x191f…193a at0012 = ╱56╱V╱ // 0x1931 @0x12
0x191f…193a at0013 = ╱49╱I╱ // 0x1932 @0x13
0x191f…193a at0014 = ╱4c╱L╱ // 0x1933 @0x14
0x191f…193a at0015 = ╱4c╱L╱ // 0x1934 @0x15
0x191f…193a at0016 = ╱49╱I╱ // 0x1935 @0x16
0x191f…193a at0017 = ╱47╱G╱ // 0x1936 @0x17
0x191f…193a at0018 = ╱54╱T╱ // 0x1937 @0x18
0x191f…193a at0019 = ╱22╱"╱ // 0x1938 @0x19
0x191f…193a at001a = EOL // 0x1939 @0x1a
0x191f…193a }
0x193a…1947 af35 02740 EXEC LSKRIV3
0x193a…1947 LineComal80 {
0x193a…1947 ptr = 0xaf35 // 0x193a @0x0
0x193a…1947 lno = 0x0ab4 // 0x193c @0x2
0x193a…1947 at0004 = ╱9d╱ EXEC ╱ // 0x193e @0x4
0x193a…1947 at0005 = ╱4c╱L╱ // 0x193f @0x5
0x193a…1947 at0006 = ╱53╱S╱ // 0x1940 @0x6
0x193a…1947 at0007 = ╱4b╱K╱ // 0x1941 @0x7
0x193a…1947 at0008 = ╱52╱R╱ // 0x1942 @0x8
0x193a…1947 at0009 = ╱49╱I╱ // 0x1943 @0x9
0x193a…1947 at000a = ╱56╱V╱ // 0x1944 @0xa
0x193a…1947 at000b = ╱33╱3╱ // 0x1945 @0xb
0x193a…1947 at000c = EOL // 0x1946 @0xc
0x193a…1947 }
0x1947…1992 af80 02750 LET QT $ := "EFTER…KILDESKATTELOVENS…PGF.…59.…SAMMENLIGN…B-SKAT…MED…SKATTEBE"
0x1947…1992 LineComal80 {
0x1947…1992 ptr = 0xaf80 // 0x1947 @0x0
0x1947…1992 lno = 0x0abe // 0x1949 @0x2
0x1947…1992 at0004 = ╱86╱ LET ╱ // 0x194b @0x4
0x1947…1992 at0005 = ╱51╱Q╱ // 0x194c @0x5
0x1947…1992 at0006 = ╱54╱T╱ // 0x194d @0x6
0x1947…1992 at0007 = ╱ef╱ $ ╱ // 0x194e @0x7
0x1947…1992 at0008 = ╱f0╱ := ╱ // 0x194f @0x8
0x1947…1992 at0009 = ╱22╱"╱ // 0x1950 @0x9
0x1947…1992 at000a = ╱45╱E╱ // 0x1951 @0xa
0x1947…1992 at000b = ╱46╱F╱ // 0x1952 @0xb
0x1947…1992 at000c = ╱54╱T╱ // 0x1953 @0xc
0x1947…1992 at000d = ╱45╱E╱ // 0x1954 @0xd
0x1947…1992 at000e = ╱52╱R╱ // 0x1955 @0xe
0x1947…1992 at000f = ╱20╱…╱ // 0x1956 @0xf
0x1947…1992 at0010 = ╱4b╱K╱ // 0x1957 @0x10
0x1947…1992 at0011 = ╱49╱I╱ // 0x1958 @0x11
0x1947…1992 at0012 = ╱4c╱L╱ // 0x1959 @0x12
0x1947…1992 at0013 = ╱44╱D╱ // 0x195a @0x13
0x1947…1992 at0014 = ╱45╱E╱ // 0x195b @0x14
0x1947…1992 at0015 = ╱53╱S╱ // 0x195c @0x15
0x1947…1992 at0016 = ╱4b╱K╱ // 0x195d @0x16
0x1947…1992 at0017 = ╱41╱A╱ // 0x195e @0x17
0x1947…1992 at0018 = ╱54╱T╱ // 0x195f @0x18
0x1947…1992 at0019 = ╱54╱T╱ // 0x1960 @0x19
0x1947…1992 at001a = ╱45╱E╱ // 0x1961 @0x1a
0x1947…1992 at001b = ╱4c╱L╱ // 0x1962 @0x1b
0x1947…1992 at001c = ╱4f╱O╱ // 0x1963 @0x1c
0x1947…1992 at001d = ╱56╱V╱ // 0x1964 @0x1d
0x1947…1992 at001e = ╱45╱E╱ // 0x1965 @0x1e
0x1947…1992 at001f = ╱4e╱N╱ // 0x1966 @0x1f
0x1947…1992 at0020 = ╱53╱S╱ // 0x1967 @0x20
0x1947…1992 at0021 = ╱20╱…╱ // 0x1968 @0x21
0x1947…1992 at0022 = ╱50╱P╱ // 0x1969 @0x22
0x1947…1992 at0023 = ╱47╱G╱ // 0x196a @0x23
0x1947…1992 at0024 = ╱46╱F╱ // 0x196b @0x24
0x1947…1992 at0025 = ╱2e╱.╱ // 0x196c @0x25
0x1947…1992 at0026 = ╱20╱…╱ // 0x196d @0x26
0x1947…1992 at0027 = ╱35╱5╱ // 0x196e @0x27
0x1947…1992 at0028 = ╱39╱9╱ // 0x196f @0x28
0x1947…1992 at0029 = ╱2e╱.╱ // 0x1970 @0x29
0x1947…1992 at002a = ╱20╱…╱ // 0x1971 @0x2a
0x1947…1992 at002b = ╱53╱S╱ // 0x1972 @0x2b
0x1947…1992 at002c = ╱41╱A╱ // 0x1973 @0x2c
0x1947…1992 at002d = ╱4d╱M╱ // 0x1974 @0x2d
0x1947…1992 at002e = ╱4d╱M╱ // 0x1975 @0x2e
0x1947…1992 at002f = ╱45╱E╱ // 0x1976 @0x2f
0x1947…1992 at0030 = ╱4e╱N╱ // 0x1977 @0x30
0x1947…1992 at0031 = ╱4c╱L╱ // 0x1978 @0x31
0x1947…1992 at0032 = ╱49╱I╱ // 0x1979 @0x32
0x1947…1992 at0033 = ╱47╱G╱ // 0x197a @0x33
0x1947…1992 at0034 = ╱4e╱N╱ // 0x197b @0x34
0x1947…1992 at0035 = ╱20╱…╱ // 0x197c @0x35
0x1947…1992 at0036 = ╱42╱B╱ // 0x197d @0x36
0x1947…1992 at0037 = ╱2d╱-╱ // 0x197e @0x37
0x1947…1992 at0038 = ╱53╱S╱ // 0x197f @0x38
0x1947…1992 at0039 = ╱4b╱K╱ // 0x1980 @0x39
0x1947…1992 at003a = ╱41╱A╱ // 0x1981 @0x3a
0x1947…1992 at003b = ╱54╱T╱ // 0x1982 @0x3b
0x1947…1992 at003c = ╱20╱…╱ // 0x1983 @0x3c
0x1947…1992 at003d = ╱4d╱M╱ // 0x1984 @0x3d
0x1947…1992 at003e = ╱45╱E╱ // 0x1985 @0x3e
0x1947…1992 at003f = ╱44╱D╱ // 0x1986 @0x3f
0x1947…1992 at0040 = ╱20╱…╱ // 0x1987 @0x40
0x1947…1992 at0041 = ╱53╱S╱ // 0x1988 @0x41
0x1947…1992 at0042 = ╱4b╱K╱ // 0x1989 @0x42
0x1947…1992 at0043 = ╱41╱A╱ // 0x198a @0x43
0x1947…1992 at0044 = ╱54╱T╱ // 0x198b @0x44
0x1947…1992 at0045 = ╱54╱T╱ // 0x198c @0x45
0x1947…1992 at0046 = ╱45╱E╱ // 0x198d @0x46
0x1947…1992 at0047 = ╱42╱B╱ // 0x198e @0x47
0x1947…1992 at0048 = ╱45╱E╱ // 0x198f @0x48
0x1947…1992 at0049 = ╱22╱"╱ // 0x1990 @0x49
0x1947…1992 at004a = EOL // 0x1991 @0x4a
0x1947…1992 }
0x1992…19ac af9a 02760 LET QT $ := QT $ + "REGNINGEN."
0x1992…19ac LineComal80 {
0x1992…19ac ptr = 0xaf9a // 0x1992 @0x0
0x1992…19ac lno = 0x0ac8 // 0x1994 @0x2
0x1992…19ac at0004 = ╱86╱ LET ╱ // 0x1996 @0x4
0x1992…19ac at0005 = ╱51╱Q╱ // 0x1997 @0x5
0x1992…19ac at0006 = ╱54╱T╱ // 0x1998 @0x6
0x1992…19ac at0007 = ╱ef╱ $ ╱ // 0x1999 @0x7
0x1992…19ac at0008 = ╱f0╱ := ╱ // 0x199a @0x8
0x1992…19ac at0009 = ╱51╱Q╱ // 0x199b @0x9
0x1992…19ac at000a = ╱54╱T╱ // 0x199c @0xa
0x1992…19ac at000b = ╱ef╱ $ ╱ // 0x199d @0xb
0x1992…19ac at000c = ╱eb╱ + ╱ // 0x199e @0xc
0x1992…19ac at000d = ╱22╱"╱ // 0x199f @0xd
0x1992…19ac at000e = ╱52╱R╱ // 0x19a0 @0xe
0x1992…19ac at000f = ╱45╱E╱ // 0x19a1 @0xf
0x1992…19ac at0010 = ╱47╱G╱ // 0x19a2 @0x10
0x1992…19ac at0011 = ╱4e╱N╱ // 0x19a3 @0x11
0x1992…19ac at0012 = ╱49╱I╱ // 0x19a4 @0x12
0x1992…19ac at0013 = ╱4e╱N╱ // 0x19a5 @0x13
0x1992…19ac at0014 = ╱47╱G╱ // 0x19a6 @0x14
0x1992…19ac at0015 = ╱45╱E╱ // 0x19a7 @0x15
0x1992…19ac at0016 = ╱4e╱N╱ // 0x19a8 @0x16
0x1992…19ac at0017 = ╱2e╱.╱ // 0x19a9 @0x17
0x1992…19ac at0018 = ╱22╱"╱ // 0x19aa @0x18
0x1992…19ac at0019 = EOL // 0x19ab @0x19
0x1992…19ac }
0x19ac…19b9 afa7 02770 EXEC LSKRIV3
0x19ac…19b9 LineComal80 {
0x19ac…19b9 ptr = 0xafa7 // 0x19ac @0x0
0x19ac…19b9 lno = 0x0ad2 // 0x19ae @0x2
0x19ac…19b9 at0004 = ╱9d╱ EXEC ╱ // 0x19b0 @0x4
0x19ac…19b9 at0005 = ╱4c╱L╱ // 0x19b1 @0x5
0x19ac…19b9 at0006 = ╱53╱S╱ // 0x19b2 @0x6
0x19ac…19b9 at0007 = ╱4b╱K╱ // 0x19b3 @0x7
0x19ac…19b9 at0008 = ╱52╱R╱ // 0x19b4 @0x8
0x19ac…19b9 at0009 = ╱49╱I╱ // 0x19b5 @0x9
0x19ac…19b9 at000a = ╱56╱V╱ // 0x19b6 @0xa
0x19ac…19b9 at000b = ╱33╱3╱ // 0x19b7 @0xb
0x19ac…19b9 at000c = EOL // 0x19b8 @0xc
0x19ac…19b9 }
0x19b9…19bf afad 02780 ENDIF
0x19b9…19bf LineComal80 {
0x19b9…19bf ptr = 0xafad // 0x19b9 @0x0
0x19b9…19bf lno = 0x0adc // 0x19bb @0x2
0x19b9…19bf at0004 = ╱9c╱ ENDIF ╱ // 0x19bd @0x4
0x19b9…19bf at0005 = EOL // 0x19be @0x5
0x19b9…19bf }
0x19bf…19cf afbd 02790 IF SK < 0 THEN
0x19bf…19cf LineComal80 {
0x19bf…19cf ptr = 0xafbd // 0x19bf @0x0
0x19bf…19cf lno = 0x0ae6 // 0x19c1 @0x2
0x19bf…19cf at0004 = ╱9b0042╱ IF ╱ // 0x19c3 @0x4
0x19bf…19cf at0007 = ╱53╱S╱ // 0x19c6 @0x7
0x19bf…19cf at0008 = ╱4b╱K╱ // 0x19c7 @0x8
0x19bf…19cf at0009 = ╱e0╱ < ╱ // 0x19c8 @0x9
0x19bf…19cf at000a = ╱30╱0╱ // 0x19c9 @0xa
0x19bf…19cf at000b = ╱f20000╱ // 0x19ca @0xb
0x19bf…19cf at000e = ╱b5╱ THEN ╱ // 0x19cd @0xe
0x19bf…19cf at000f = EOL // 0x19ce @0xf
0x19bf…19cf }
0x19cf…1a19 b007 02800 LET QT $ := "DER…ER…BETALT…FOR…MEGET…I…FORSKUDSSKAT.…SKATTEV[SENET…KAN…EVT."
0x19cf…1a19 LineComal80 {
0x19cf…1a19 ptr = 0xb007 // 0x19cf @0x0
0x19cf…1a19 lno = 0x0af0 // 0x19d1 @0x2
0x19cf…1a19 at0004 = ╱86╱ LET ╱ // 0x19d3 @0x4
0x19cf…1a19 at0005 = ╱51╱Q╱ // 0x19d4 @0x5
0x19cf…1a19 at0006 = ╱54╱T╱ // 0x19d5 @0x6
0x19cf…1a19 at0007 = ╱ef╱ $ ╱ // 0x19d6 @0x7
0x19cf…1a19 at0008 = ╱f0╱ := ╱ // 0x19d7 @0x8
0x19cf…1a19 at0009 = ╱22╱"╱ // 0x19d8 @0x9
0x19cf…1a19 at000a = ╱44╱D╱ // 0x19d9 @0xa
0x19cf…1a19 at000b = ╱45╱E╱ // 0x19da @0xb
0x19cf…1a19 at000c = ╱52╱R╱ // 0x19db @0xc
0x19cf…1a19 at000d = ╱20╱…╱ // 0x19dc @0xd
0x19cf…1a19 at000e = ╱45╱E╱ // 0x19dd @0xe
0x19cf…1a19 at000f = ╱52╱R╱ // 0x19de @0xf
0x19cf…1a19 at0010 = ╱20╱…╱ // 0x19df @0x10
0x19cf…1a19 at0011 = ╱42╱B╱ // 0x19e0 @0x11
0x19cf…1a19 at0012 = ╱45╱E╱ // 0x19e1 @0x12
0x19cf…1a19 at0013 = ╱54╱T╱ // 0x19e2 @0x13
0x19cf…1a19 at0014 = ╱41╱A╱ // 0x19e3 @0x14
0x19cf…1a19 at0015 = ╱4c╱L╱ // 0x19e4 @0x15
0x19cf…1a19 at0016 = ╱54╱T╱ // 0x19e5 @0x16
0x19cf…1a19 at0017 = ╱20╱…╱ // 0x19e6 @0x17
0x19cf…1a19 at0018 = ╱46╱F╱ // 0x19e7 @0x18
0x19cf…1a19 at0019 = ╱4f╱O╱ // 0x19e8 @0x19
0x19cf…1a19 at001a = ╱52╱R╱ // 0x19e9 @0x1a
0x19cf…1a19 at001b = ╱20╱…╱ // 0x19ea @0x1b
0x19cf…1a19 at001c = ╱4d╱M╱ // 0x19eb @0x1c
0x19cf…1a19 at001d = ╱45╱E╱ // 0x19ec @0x1d
0x19cf…1a19 at001e = ╱47╱G╱ // 0x19ed @0x1e
0x19cf…1a19 at001f = ╱45╱E╱ // 0x19ee @0x1f
0x19cf…1a19 at0020 = ╱54╱T╱ // 0x19ef @0x20
0x19cf…1a19 at0021 = ╱20╱…╱ // 0x19f0 @0x21
0x19cf…1a19 at0022 = ╱49╱I╱ // 0x19f1 @0x22
0x19cf…1a19 at0023 = ╱20╱…╱ // 0x19f2 @0x23
0x19cf…1a19 at0024 = ╱46╱F╱ // 0x19f3 @0x24
0x19cf…1a19 at0025 = ╱4f╱O╱ // 0x19f4 @0x25
0x19cf…1a19 at0026 = ╱52╱R╱ // 0x19f5 @0x26
0x19cf…1a19 at0027 = ╱53╱S╱ // 0x19f6 @0x27
0x19cf…1a19 at0028 = ╱4b╱K╱ // 0x19f7 @0x28
0x19cf…1a19 at0029 = ╱55╱U╱ // 0x19f8 @0x29
0x19cf…1a19 at002a = ╱44╱D╱ // 0x19f9 @0x2a
0x19cf…1a19 at002b = ╱53╱S╱ // 0x19fa @0x2b
0x19cf…1a19 at002c = ╱53╱S╱ // 0x19fb @0x2c
0x19cf…1a19 at002d = ╱4b╱K╱ // 0x19fc @0x2d
0x19cf…1a19 at002e = ╱41╱A╱ // 0x19fd @0x2e
0x19cf…1a19 at002f = ╱54╱T╱ // 0x19fe @0x2f
0x19cf…1a19 at0030 = ╱2e╱.╱ // 0x19ff @0x30
0x19cf…1a19 at0031 = ╱20╱…╱ // 0x1a00 @0x31
0x19cf…1a19 at0032 = ╱53╱S╱ // 0x1a01 @0x32
0x19cf…1a19 at0033 = ╱4b╱K╱ // 0x1a02 @0x33
0x19cf…1a19 at0034 = ╱41╱A╱ // 0x1a03 @0x34
0x19cf…1a19 at0035 = ╱54╱T╱ // 0x1a04 @0x35
0x19cf…1a19 at0036 = ╱54╱T╱ // 0x1a05 @0x36
0x19cf…1a19 at0037 = ╱45╱E╱ // 0x1a06 @0x37
0x19cf…1a19 at0038 = ╱56╱V╱ // 0x1a07 @0x38
0x19cf…1a19 at0039 = ╱5b╱[╱ // 0x1a08 @0x39
0x19cf…1a19 at003a = ╱53╱S╱ // 0x1a09 @0x3a
0x19cf…1a19 at003b = ╱45╱E╱ // 0x1a0a @0x3b
0x19cf…1a19 at003c = ╱4e╱N╱ // 0x1a0b @0x3c
0x19cf…1a19 at003d = ╱45╱E╱ // 0x1a0c @0x3d
0x19cf…1a19 at003e = ╱54╱T╱ // 0x1a0d @0x3e
0x19cf…1a19 at003f = ╱20╱…╱ // 0x1a0e @0x3f
0x19cf…1a19 at0040 = ╱4b╱K╱ // 0x1a0f @0x40
0x19cf…1a19 at0041 = ╱41╱A╱ // 0x1a10 @0x41
0x19cf…1a19 at0042 = ╱4e╱N╱ // 0x1a11 @0x42
0x19cf…1a19 at0043 = ╱20╱…╱ // 0x1a12 @0x43
0x19cf…1a19 at0044 = ╱45╱E╱ // 0x1a13 @0x44
0x19cf…1a19 at0045 = ╱56╱V╱ // 0x1a14 @0x45
0x19cf…1a19 at0046 = ╱54╱T╱ // 0x1a15 @0x46
0x19cf…1a19 at0047 = ╱2e╱.╱ // 0x1a16 @0x47
0x19cf…1a19 at0048 = ╱22╱"╱ // 0x1a17 @0x48
0x19cf…1a19 at0049 = EOL // 0x1a18 @0x49
0x19cf…1a19 }
0x1a19…1a34 b022 02810 LET QT $ := QT $ + "…ANMODES…OM"
0x1a19…1a34 LineComal80 {
0x1a19…1a34 ptr = 0xb022 // 0x1a19 @0x0
0x1a19…1a34 lno = 0x0afa // 0x1a1b @0x2
0x1a19…1a34 at0004 = ╱86╱ LET ╱ // 0x1a1d @0x4
0x1a19…1a34 at0005 = ╱51╱Q╱ // 0x1a1e @0x5
0x1a19…1a34 at0006 = ╱54╱T╱ // 0x1a1f @0x6
0x1a19…1a34 at0007 = ╱ef╱ $ ╱ // 0x1a20 @0x7
0x1a19…1a34 at0008 = ╱f0╱ := ╱ // 0x1a21 @0x8
0x1a19…1a34 at0009 = ╱51╱Q╱ // 0x1a22 @0x9
0x1a19…1a34 at000a = ╱54╱T╱ // 0x1a23 @0xa
0x1a19…1a34 at000b = ╱ef╱ $ ╱ // 0x1a24 @0xb
0x1a19…1a34 at000c = ╱eb╱ + ╱ // 0x1a25 @0xc
0x1a19…1a34 at000d = ╱22╱"╱ // 0x1a26 @0xd
0x1a19…1a34 at000e = ╱20╱…╱ // 0x1a27 @0xe
0x1a19…1a34 at000f = ╱41╱A╱ // 0x1a28 @0xf
0x1a19…1a34 at0010 = ╱4e╱N╱ // 0x1a29 @0x10
0x1a19…1a34 at0011 = ╱4d╱M╱ // 0x1a2a @0x11
0x1a19…1a34 at0012 = ╱4f╱O╱ // 0x1a2b @0x12
0x1a19…1a34 at0013 = ╱44╱D╱ // 0x1a2c @0x13
0x1a19…1a34 at0014 = ╱45╱E╱ // 0x1a2d @0x14
0x1a19…1a34 at0015 = ╱53╱S╱ // 0x1a2e @0x15
0x1a19…1a34 at0016 = ╱20╱…╱ // 0x1a2f @0x16
0x1a19…1a34 at0017 = ╱4f╱O╱ // 0x1a30 @0x17
0x1a19…1a34 at0018 = ╱4d╱M╱ // 0x1a31 @0x18
0x1a19…1a34 at0019 = ╱22╱"╱ // 0x1a32 @0x19
0x1a19…1a34 at001a = EOL // 0x1a33 @0x1a
0x1a19…1a34 }
0x1a34…1a41 b02f 02820 EXEC LSKRIV3
0x1a34…1a41 LineComal80 {
0x1a34…1a41 ptr = 0xb02f // 0x1a34 @0x0
0x1a34…1a41 lno = 0x0b04 // 0x1a36 @0x2
0x1a34…1a41 at0004 = ╱9d╱ EXEC ╱ // 0x1a38 @0x4
0x1a34…1a41 at0005 = ╱4c╱L╱ // 0x1a39 @0x5
0x1a34…1a41 at0006 = ╱53╱S╱ // 0x1a3a @0x6
0x1a34…1a41 at0007 = ╱4b╱K╱ // 0x1a3b @0x7
0x1a34…1a41 at0008 = ╱52╱R╱ // 0x1a3c @0x8
0x1a34…1a41 at0009 = ╱49╱I╱ // 0x1a3d @0x9
0x1a34…1a41 at000a = ╱56╱V╱ // 0x1a3e @0xa
0x1a34…1a41 at000b = ╱33╱3╱ // 0x1a3f @0xb
0x1a34…1a41 at000c = EOL // 0x1a40 @0xc
0x1a34…1a41 }
0x1a41…1a8a b078 02830 LET QT $ := "TILBAGEBETALING…INDEN…DEN…30/12.…SAMMENLIGN…B-SKAT…MED…SKATTE"
0x1a41…1a8a LineComal80 {
0x1a41…1a8a ptr = 0xb078 // 0x1a41 @0x0
0x1a41…1a8a lno = 0x0b0e // 0x1a43 @0x2
0x1a41…1a8a at0004 = ╱86╱ LET ╱ // 0x1a45 @0x4
0x1a41…1a8a at0005 = ╱51╱Q╱ // 0x1a46 @0x5
0x1a41…1a8a at0006 = ╱54╱T╱ // 0x1a47 @0x6
0x1a41…1a8a at0007 = ╱ef╱ $ ╱ // 0x1a48 @0x7
0x1a41…1a8a at0008 = ╱f0╱ := ╱ // 0x1a49 @0x8
0x1a41…1a8a at0009 = ╱22╱"╱ // 0x1a4a @0x9
0x1a41…1a8a at000a = ╱54╱T╱ // 0x1a4b @0xa
0x1a41…1a8a at000b = ╱49╱I╱ // 0x1a4c @0xb
0x1a41…1a8a at000c = ╱4c╱L╱ // 0x1a4d @0xc
0x1a41…1a8a at000d = ╱42╱B╱ // 0x1a4e @0xd
0x1a41…1a8a at000e = ╱41╱A╱ // 0x1a4f @0xe
0x1a41…1a8a at000f = ╱47╱G╱ // 0x1a50 @0xf
0x1a41…1a8a at0010 = ╱45╱E╱ // 0x1a51 @0x10
0x1a41…1a8a at0011 = ╱42╱B╱ // 0x1a52 @0x11
0x1a41…1a8a at0012 = ╱45╱E╱ // 0x1a53 @0x12
0x1a41…1a8a at0013 = ╱54╱T╱ // 0x1a54 @0x13
0x1a41…1a8a at0014 = ╱41╱A╱ // 0x1a55 @0x14
0x1a41…1a8a at0015 = ╱4c╱L╱ // 0x1a56 @0x15
0x1a41…1a8a at0016 = ╱49╱I╱ // 0x1a57 @0x16
0x1a41…1a8a at0017 = ╱4e╱N╱ // 0x1a58 @0x17
0x1a41…1a8a at0018 = ╱47╱G╱ // 0x1a59 @0x18
0x1a41…1a8a at0019 = ╱20╱…╱ // 0x1a5a @0x19
0x1a41…1a8a at001a = ╱49╱I╱ // 0x1a5b @0x1a
0x1a41…1a8a at001b = ╱4e╱N╱ // 0x1a5c @0x1b
0x1a41…1a8a at001c = ╱44╱D╱ // 0x1a5d @0x1c
0x1a41…1a8a at001d = ╱45╱E╱ // 0x1a5e @0x1d
0x1a41…1a8a at001e = ╱4e╱N╱ // 0x1a5f @0x1e
0x1a41…1a8a at001f = ╱20╱…╱ // 0x1a60 @0x1f
0x1a41…1a8a at0020 = ╱44╱D╱ // 0x1a61 @0x20
0x1a41…1a8a at0021 = ╱45╱E╱ // 0x1a62 @0x21
0x1a41…1a8a at0022 = ╱4e╱N╱ // 0x1a63 @0x22
0x1a41…1a8a at0023 = ╱20╱…╱ // 0x1a64 @0x23
0x1a41…1a8a at0024 = ╱33╱3╱ // 0x1a65 @0x24
0x1a41…1a8a at0025 = ╱30╱0╱ // 0x1a66 @0x25
0x1a41…1a8a at0026 = ╱2f╱/╱ // 0x1a67 @0x26
0x1a41…1a8a at0027 = ╱31╱1╱ // 0x1a68 @0x27
0x1a41…1a8a at0028 = ╱32╱2╱ // 0x1a69 @0x28
0x1a41…1a8a at0029 = ╱2e╱.╱ // 0x1a6a @0x29
0x1a41…1a8a at002a = ╱20╱…╱ // 0x1a6b @0x2a
0x1a41…1a8a at002b = ╱53╱S╱ // 0x1a6c @0x2b
0x1a41…1a8a at002c = ╱41╱A╱ // 0x1a6d @0x2c
0x1a41…1a8a at002d = ╱4d╱M╱ // 0x1a6e @0x2d
0x1a41…1a8a at002e = ╱4d╱M╱ // 0x1a6f @0x2e
0x1a41…1a8a at002f = ╱45╱E╱ // 0x1a70 @0x2f
0x1a41…1a8a at0030 = ╱4e╱N╱ // 0x1a71 @0x30
0x1a41…1a8a at0031 = ╱4c╱L╱ // 0x1a72 @0x31
0x1a41…1a8a at0032 = ╱49╱I╱ // 0x1a73 @0x32
0x1a41…1a8a at0033 = ╱47╱G╱ // 0x1a74 @0x33
0x1a41…1a8a at0034 = ╱4e╱N╱ // 0x1a75 @0x34
0x1a41…1a8a at0035 = ╱20╱…╱ // 0x1a76 @0x35
0x1a41…1a8a at0036 = ╱42╱B╱ // 0x1a77 @0x36
0x1a41…1a8a at0037 = ╱2d╱-╱ // 0x1a78 @0x37
0x1a41…1a8a at0038 = ╱53╱S╱ // 0x1a79 @0x38
0x1a41…1a8a at0039 = ╱4b╱K╱ // 0x1a7a @0x39
0x1a41…1a8a at003a = ╱41╱A╱ // 0x1a7b @0x3a
0x1a41…1a8a at003b = ╱54╱T╱ // 0x1a7c @0x3b
0x1a41…1a8a at003c = ╱20╱…╱ // 0x1a7d @0x3c
0x1a41…1a8a at003d = ╱4d╱M╱ // 0x1a7e @0x3d
0x1a41…1a8a at003e = ╱45╱E╱ // 0x1a7f @0x3e
0x1a41…1a8a at003f = ╱44╱D╱ // 0x1a80 @0x3f
0x1a41…1a8a at0040 = ╱20╱…╱ // 0x1a81 @0x40
0x1a41…1a8a at0041 = ╱53╱S╱ // 0x1a82 @0x41
0x1a41…1a8a at0042 = ╱4b╱K╱ // 0x1a83 @0x42
0x1a41…1a8a at0043 = ╱41╱A╱ // 0x1a84 @0x43
0x1a41…1a8a at0044 = ╱54╱T╱ // 0x1a85 @0x44
0x1a41…1a8a at0045 = ╱54╱T╱ // 0x1a86 @0x45
0x1a41…1a8a at0046 = ╱45╱E╱ // 0x1a87 @0x46
0x1a41…1a8a at0047 = ╱22╱"╱ // 0x1a88 @0x47
0x1a41…1a8a at0048 = EOL // 0x1a89 @0x48
0x1a41…1a8a }
0x1a8a…1aa6 b094 02840 LET QT $ := QT $ + "BEREGNINGEN."
0x1a8a…1aa6 LineComal80 {
0x1a8a…1aa6 ptr = 0xb094 // 0x1a8a @0x0
0x1a8a…1aa6 lno = 0x0b18 // 0x1a8c @0x2
0x1a8a…1aa6 at0004 = ╱86╱ LET ╱ // 0x1a8e @0x4
0x1a8a…1aa6 at0005 = ╱51╱Q╱ // 0x1a8f @0x5
0x1a8a…1aa6 at0006 = ╱54╱T╱ // 0x1a90 @0x6
0x1a8a…1aa6 at0007 = ╱ef╱ $ ╱ // 0x1a91 @0x7
0x1a8a…1aa6 at0008 = ╱f0╱ := ╱ // 0x1a92 @0x8
0x1a8a…1aa6 at0009 = ╱51╱Q╱ // 0x1a93 @0x9
0x1a8a…1aa6 at000a = ╱54╱T╱ // 0x1a94 @0xa
0x1a8a…1aa6 at000b = ╱ef╱ $ ╱ // 0x1a95 @0xb
0x1a8a…1aa6 at000c = ╱eb╱ + ╱ // 0x1a96 @0xc
0x1a8a…1aa6 at000d = ╱22╱"╱ // 0x1a97 @0xd
0x1a8a…1aa6 at000e = ╱42╱B╱ // 0x1a98 @0xe
0x1a8a…1aa6 at000f = ╱45╱E╱ // 0x1a99 @0xf
0x1a8a…1aa6 at0010 = ╱52╱R╱ // 0x1a9a @0x10
0x1a8a…1aa6 at0011 = ╱45╱E╱ // 0x1a9b @0x11
0x1a8a…1aa6 at0012 = ╱47╱G╱ // 0x1a9c @0x12
0x1a8a…1aa6 at0013 = ╱4e╱N╱ // 0x1a9d @0x13
0x1a8a…1aa6 at0014 = ╱49╱I╱ // 0x1a9e @0x14
0x1a8a…1aa6 at0015 = ╱4e╱N╱ // 0x1a9f @0x15
0x1a8a…1aa6 at0016 = ╱47╱G╱ // 0x1aa0 @0x16
0x1a8a…1aa6 at0017 = ╱45╱E╱ // 0x1aa1 @0x17
0x1a8a…1aa6 at0018 = ╱4e╱N╱ // 0x1aa2 @0x18
0x1a8a…1aa6 at0019 = ╱2e╱.╱ // 0x1aa3 @0x19
0x1a8a…1aa6 at001a = ╱22╱"╱ // 0x1aa4 @0x1a
0x1a8a…1aa6 at001b = EOL // 0x1aa5 @0x1b
0x1a8a…1aa6 }
0x1aa6…1ab3 b0a1 02850 EXEC LSKRIV3
0x1aa6…1ab3 LineComal80 {
0x1aa6…1ab3 ptr = 0xb0a1 // 0x1aa6 @0x0
0x1aa6…1ab3 lno = 0x0b22 // 0x1aa8 @0x2
0x1aa6…1ab3 at0004 = ╱9d╱ EXEC ╱ // 0x1aaa @0x4
0x1aa6…1ab3 at0005 = ╱4c╱L╱ // 0x1aab @0x5
0x1aa6…1ab3 at0006 = ╱53╱S╱ // 0x1aac @0x6
0x1aa6…1ab3 at0007 = ╱4b╱K╱ // 0x1aad @0x7
0x1aa6…1ab3 at0008 = ╱52╱R╱ // 0x1aae @0x8
0x1aa6…1ab3 at0009 = ╱49╱I╱ // 0x1aaf @0x9
0x1aa6…1ab3 at000a = ╱56╱V╱ // 0x1ab0 @0xa
0x1aa6…1ab3 at000b = ╱33╱3╱ // 0x1ab1 @0xb
0x1aa6…1ab3 at000c = EOL // 0x1ab2 @0xc
0x1aa6…1ab3 }
0x1ab3…1ab9 b0a7 02860 ENDIF
0x1ab3…1ab9 LineComal80 {
0x1ab3…1ab9 ptr = 0xb0a7 // 0x1ab3 @0x0
0x1ab3…1ab9 lno = 0x0b2c // 0x1ab5 @0x2
0x1ab3…1ab9 at0004 = ╱9c╱ ENDIF ╱ // 0x1ab7 @0x4
0x1ab3…1ab9 at0005 = EOL // 0x1ab8 @0x5
0x1ab3…1ab9 }
0x1ab9…1abf b0ad 02870 PRINT
0x1ab9…1abf LineComal80 {
0x1ab9…1abf ptr = 0xb0ad // 0x1ab9 @0x0
0x1ab9…1abf lno = 0x0b36 // 0x1abb @0x2
0x1ab9…1abf at0004 = ╱92╱ PRINT ╱ // 0x1abd @0x4
0x1ab9…1abf at0005 = EOL // 0x1abe @0x5
0x1ab9…1abf }
0x1abf…1ac5 b0b3 02880 PRINT
0x1abf…1ac5 LineComal80 {
0x1abf…1ac5 ptr = 0xb0b3 // 0x1abf @0x0
0x1abf…1ac5 lno = 0x0b40 // 0x1ac1 @0x2
0x1abf…1ac5 at0004 = ╱92╱ PRINT ╱ // 0x1ac3 @0x4
0x1abf…1ac5 at0005 = EOL // 0x1ac4 @0x5
0x1abf…1ac5 }
0x1ac5…1ad6 (89,) b0c4 02890 IF SKF > 0 THEN
0x1ac5…1ad6 LineComal80 {
0x1ac5…1ad6 ptr = 0xb0c4 // 0x1ac5 @0x0
0x1ac5…1ad6 lno = 0x0b4a // 0x1ac7 @0x2
0x1ac5…1ad6 at0004 = ╱9b0042╱ IF ╱ // 0x1ac9 @0x4
0x1ac5…1ad6 at0007 = ╱53╱S╱ // 0x1acc @0x7
0x1ac5…1ad6 at0008 = ╱4b╱K╱ // 0x1acd @0x8
0x1ac5…1ad6 at0009 = ╱46╱F╱ // 0x1ace @0x9
0x1ac5…1ad6 at000a = ╱e1╱ > ╱ // 0x1acf @0xa
0x1ac5…1ad6 at000b = ╱30╱0╱ // 0x1ad0 @0xb
0x1ac5…1ad6 at000c = ╱f20000╱ // 0x1ad1 @0xc
0x1ac5…1ad6 at000f = ╱b5╱ THEN ╱ // 0x1ad4 @0xf
0x1ac5…1ad6 at0010 = EOL // 0x1ad5 @0x10
0x1ac5…1ad6 }
0x1ad6…1b0a b0f8 02900 LET QT $ := "ALLEREDE…FORFALDEN…B-SKAT…UDG\R…" ; QB := BSKF
0x1ad6…1b0a LineComal80 {
0x1ad6…1b0a ptr = 0xb0f8 // 0x1ad6 @0x0
0x1ad6…1b0a lno = 0x0b54 // 0x1ad8 @0x2
0x1ad6…1b0a at0004 = ╱86╱ LET ╱ // 0x1ada @0x4
0x1ad6…1b0a at0005 = ╱51╱Q╱ // 0x1adb @0x5
0x1ad6…1b0a at0006 = ╱54╱T╱ // 0x1adc @0x6
0x1ad6…1b0a at0007 = ╱ef╱ $ ╱ // 0x1add @0x7
0x1ad6…1b0a at0008 = ╱f0╱ := ╱ // 0x1ade @0x8
0x1ad6…1b0a at0009 = ╱22╱"╱ // 0x1adf @0x9
0x1ad6…1b0a at000a = ╱41╱A╱ // 0x1ae0 @0xa
0x1ad6…1b0a at000b = ╱4c╱L╱ // 0x1ae1 @0xb
0x1ad6…1b0a at000c = ╱4c╱L╱ // 0x1ae2 @0xc
0x1ad6…1b0a at000d = ╱45╱E╱ // 0x1ae3 @0xd
0x1ad6…1b0a at000e = ╱52╱R╱ // 0x1ae4 @0xe
0x1ad6…1b0a at000f = ╱45╱E╱ // 0x1ae5 @0xf
0x1ad6…1b0a at0010 = ╱44╱D╱ // 0x1ae6 @0x10
0x1ad6…1b0a at0011 = ╱45╱E╱ // 0x1ae7 @0x11
0x1ad6…1b0a at0012 = ╱20╱…╱ // 0x1ae8 @0x12
0x1ad6…1b0a at0013 = ╱46╱F╱ // 0x1ae9 @0x13
0x1ad6…1b0a at0014 = ╱4f╱O╱ // 0x1aea @0x14
0x1ad6…1b0a at0015 = ╱52╱R╱ // 0x1aeb @0x15
0x1ad6…1b0a at0016 = ╱46╱F╱ // 0x1aec @0x16
0x1ad6…1b0a at0017 = ╱41╱A╱ // 0x1aed @0x17
0x1ad6…1b0a at0018 = ╱4c╱L╱ // 0x1aee @0x18
0x1ad6…1b0a at0019 = ╱44╱D╱ // 0x1aef @0x19
0x1ad6…1b0a at001a = ╱45╱E╱ // 0x1af0 @0x1a
0x1ad6…1b0a at001b = ╱4e╱N╱ // 0x1af1 @0x1b
0x1ad6…1b0a at001c = ╱20╱…╱ // 0x1af2 @0x1c
0x1ad6…1b0a at001d = ╱42╱B╱ // 0x1af3 @0x1d
0x1ad6…1b0a at001e = ╱2d╱-╱ // 0x1af4 @0x1e
0x1ad6…1b0a at001f = ╱53╱S╱ // 0x1af5 @0x1f
0x1ad6…1b0a at0020 = ╱4b╱K╱ // 0x1af6 @0x20
0x1ad6…1b0a at0021 = ╱41╱A╱ // 0x1af7 @0x21
0x1ad6…1b0a at0022 = ╱54╱T╱ // 0x1af8 @0x22
0x1ad6…1b0a at0023 = ╱20╱…╱ // 0x1af9 @0x23
0x1ad6…1b0a at0024 = ╱55╱U╱ // 0x1afa @0x24
0x1ad6…1b0a at0025 = ╱44╱D╱ // 0x1afb @0x25
0x1ad6…1b0a at0026 = ╱47╱G╱ // 0x1afc @0x26
0x1ad6…1b0a at0027 = ╱5c╱\╱ // 0x1afd @0x27
0x1ad6…1b0a at0028 = ╱52╱R╱ // 0x1afe @0x28
0x1ad6…1b0a at0029 = ╱20╱…╱ // 0x1aff @0x29
0x1ad6…1b0a at002a = ╱22╱"╱ // 0x1b00 @0x2a
0x1ad6…1b0a at002b = ╱ea╱ ; ╱ // 0x1b01 @0x2b
0x1ad6…1b0a at002c = ╱51╱Q╱ // 0x1b02 @0x2c
0x1ad6…1b0a at002d = ╱42╱B╱ // 0x1b03 @0x2d
0x1ad6…1b0a at002e = ╱f0╱ := ╱ // 0x1b04 @0x2e
0x1ad6…1b0a at002f = ╱42╱B╱ // 0x1b05 @0x2f
0x1ad6…1b0a at0030 = ╱53╱S╱ // 0x1b06 @0x30
0x1ad6…1b0a at0031 = ╱4b╱K╱ // 0x1b07 @0x31
0x1ad6…1b0a at0032 = ╱46╱F╱ // 0x1b08 @0x32
0x1ad6…1b0a at0033 = EOL // 0x1b09 @0x33
0x1ad6…1b0a }
0x1b0a…1b17 b105 02910 EXEC LSKRIV1
0x1b0a…1b17 LineComal80 {
0x1b0a…1b17 ptr = 0xb105 // 0x1b0a @0x0
0x1b0a…1b17 lno = 0x0b5e // 0x1b0c @0x2
0x1b0a…1b17 at0004 = ╱9d╱ EXEC ╱ // 0x1b0e @0x4
0x1b0a…1b17 at0005 = ╱4c╱L╱ // 0x1b0f @0x5
0x1b0a…1b17 at0006 = ╱53╱S╱ // 0x1b10 @0x6
0x1b0a…1b17 at0007 = ╱4b╱K╱ // 0x1b11 @0x7
0x1b0a…1b17 at0008 = ╱52╱R╱ // 0x1b12 @0x8
0x1b0a…1b17 at0009 = ╱49╱I╱ // 0x1b13 @0x9
0x1b0a…1b17 at000a = ╱56╱V╱ // 0x1b14 @0xa
0x1b0a…1b17 at000b = ╱31╱1╱ // 0x1b15 @0xb
0x1b0a…1b17 at000c = EOL // 0x1b16 @0xc
0x1b0a…1b17 }
0x1b17…1b4b b139 02920 LET QT $ := "DEN…FORFALDNE…B-SKAT…FORUDS[TTES…BETALT."
0x1b17…1b4b LineComal80 {
0x1b17…1b4b ptr = 0xb139 // 0x1b17 @0x0
0x1b17…1b4b lno = 0x0b68 // 0x1b19 @0x2
0x1b17…1b4b at0004 = ╱86╱ LET ╱ // 0x1b1b @0x4
0x1b17…1b4b at0005 = ╱51╱Q╱ // 0x1b1c @0x5
0x1b17…1b4b at0006 = ╱54╱T╱ // 0x1b1d @0x6
0x1b17…1b4b at0007 = ╱ef╱ $ ╱ // 0x1b1e @0x7
0x1b17…1b4b at0008 = ╱f0╱ := ╱ // 0x1b1f @0x8
0x1b17…1b4b at0009 = ╱22╱"╱ // 0x1b20 @0x9
0x1b17…1b4b at000a = ╱44╱D╱ // 0x1b21 @0xa
0x1b17…1b4b at000b = ╱45╱E╱ // 0x1b22 @0xb
0x1b17…1b4b at000c = ╱4e╱N╱ // 0x1b23 @0xc
0x1b17…1b4b at000d = ╱20╱…╱ // 0x1b24 @0xd
0x1b17…1b4b at000e = ╱46╱F╱ // 0x1b25 @0xe
0x1b17…1b4b at000f = ╱4f╱O╱ // 0x1b26 @0xf
0x1b17…1b4b at0010 = ╱52╱R╱ // 0x1b27 @0x10
0x1b17…1b4b at0011 = ╱46╱F╱ // 0x1b28 @0x11
0x1b17…1b4b at0012 = ╱41╱A╱ // 0x1b29 @0x12
0x1b17…1b4b at0013 = ╱4c╱L╱ // 0x1b2a @0x13
0x1b17…1b4b at0014 = ╱44╱D╱ // 0x1b2b @0x14
0x1b17…1b4b at0015 = ╱4e╱N╱ // 0x1b2c @0x15
0x1b17…1b4b at0016 = ╱45╱E╱ // 0x1b2d @0x16
0x1b17…1b4b at0017 = ╱20╱…╱ // 0x1b2e @0x17
0x1b17…1b4b at0018 = ╱42╱B╱ // 0x1b2f @0x18
0x1b17…1b4b at0019 = ╱2d╱-╱ // 0x1b30 @0x19
0x1b17…1b4b at001a = ╱53╱S╱ // 0x1b31 @0x1a
0x1b17…1b4b at001b = ╱4b╱K╱ // 0x1b32 @0x1b
0x1b17…1b4b at001c = ╱41╱A╱ // 0x1b33 @0x1c
0x1b17…1b4b at001d = ╱54╱T╱ // 0x1b34 @0x1d
0x1b17…1b4b at001e = ╱20╱…╱ // 0x1b35 @0x1e
0x1b17…1b4b at001f = ╱46╱F╱ // 0x1b36 @0x1f
0x1b17…1b4b at0020 = ╱4f╱O╱ // 0x1b37 @0x20
0x1b17…1b4b at0021 = ╱52╱R╱ // 0x1b38 @0x21
0x1b17…1b4b at0022 = ╱55╱U╱ // 0x1b39 @0x22
0x1b17…1b4b at0023 = ╱44╱D╱ // 0x1b3a @0x23
0x1b17…1b4b at0024 = ╱53╱S╱ // 0x1b3b @0x24
0x1b17…1b4b at0025 = ╱5b╱[╱ // 0x1b3c @0x25
0x1b17…1b4b at0026 = ╱54╱T╱ // 0x1b3d @0x26
0x1b17…1b4b at0027 = ╱54╱T╱ // 0x1b3e @0x27
0x1b17…1b4b at0028 = ╱45╱E╱ // 0x1b3f @0x28
0x1b17…1b4b at0029 = ╱53╱S╱ // 0x1b40 @0x29
0x1b17…1b4b at002a = ╱20╱…╱ // 0x1b41 @0x2a
0x1b17…1b4b at002b = ╱42╱B╱ // 0x1b42 @0x2b
0x1b17…1b4b at002c = ╱45╱E╱ // 0x1b43 @0x2c
0x1b17…1b4b at002d = ╱54╱T╱ // 0x1b44 @0x2d
0x1b17…1b4b at002e = ╱41╱A╱ // 0x1b45 @0x2e
0x1b17…1b4b at002f = ╱4c╱L╱ // 0x1b46 @0x2f
0x1b17…1b4b at0030 = ╱54╱T╱ // 0x1b47 @0x30
0x1b17…1b4b at0031 = ╱2e╱.╱ // 0x1b48 @0x31
0x1b17…1b4b at0032 = ╱22╱"╱ // 0x1b49 @0x32
0x1b17…1b4b at0033 = EOL // 0x1b4a @0x33
0x1b17…1b4b }
0x1b4b…1b58 b146 02930 EXEC LSKRIV3
0x1b4b…1b58 LineComal80 {
0x1b4b…1b58 ptr = 0xb146 // 0x1b4b @0x0
0x1b4b…1b58 lno = 0x0b72 // 0x1b4d @0x2
0x1b4b…1b58 at0004 = ╱9d╱ EXEC ╱ // 0x1b4f @0x4
0x1b4b…1b58 at0005 = ╱4c╱L╱ // 0x1b50 @0x5
0x1b4b…1b58 at0006 = ╱53╱S╱ // 0x1b51 @0x6
0x1b4b…1b58 at0007 = ╱4b╱K╱ // 0x1b52 @0x7
0x1b4b…1b58 at0008 = ╱52╱R╱ // 0x1b53 @0x8
0x1b4b…1b58 at0009 = ╱49╱I╱ // 0x1b54 @0x9
0x1b4b…1b58 at000a = ╱56╱V╱ // 0x1b55 @0xa
0x1b4b…1b58 at000b = ╱33╱3╱ // 0x1b56 @0xb
0x1b4b…1b58 at000c = EOL // 0x1b57 @0xc
0x1b4b…1b58 }
0x1b58…1b5e b14c 02940 ENDIF
0x1b58…1b5e LineComal80 {
0x1b58…1b5e ptr = 0xb14c // 0x1b58 @0x0
0x1b58…1b5e lno = 0x0b7c // 0x1b5a @0x2
0x1b58…1b5e at0004 = ╱9c╱ ENDIF ╱ // 0x1b5c @0x4
0x1b58…1b5e at0005 = EOL // 0x1b5d @0x5
0x1b58…1b5e }
0x1b5e…1b6d b15b 02950 IF R > 0 THEN
0x1b5e…1b6d LineComal80 {
0x1b5e…1b6d ptr = 0xb15b // 0x1b5e @0x0
0x1b5e…1b6d lno = 0x0b86 // 0x1b60 @0x2
0x1b5e…1b6d at0004 = ╱9b0049╱ IF ╱ // 0x1b62 @0x4
0x1b5e…1b6d at0007 = ╱52╱R╱ // 0x1b65 @0x7
0x1b5e…1b6d at0008 = ╱e1╱ > ╱ // 0x1b66 @0x8
0x1b5e…1b6d at0009 = ╱30╱0╱ // 0x1b67 @0x9
0x1b5e…1b6d at000a = ╱f20000╱ // 0x1b68 @0xa
0x1b5e…1b6d at000d = ╱b5╱ THEN ╱ // 0x1b6b @0xd
0x1b5e…1b6d at000e = EOL // 0x1b6c @0xe
0x1b5e…1b6d }
0x1b6d…1b9d b18b 02960 PRINT "INDREGNET…RESTSKAT…FRA…" ; F5 - 2 ; ":…………" ;
0x1b6d…1b9d LineComal80 {
0x1b6d…1b9d ptr = 0xb18b // 0x1b6d @0x0
0x1b6d…1b9d lno = 0x0b90 // 0x1b6f @0x2
0x1b6d…1b9d at0004 = ╱92╱ PRINT ╱ // 0x1b71 @0x4
0x1b6d…1b9d at0005 = ╱22╱"╱ // 0x1b72 @0x5
0x1b6d…1b9d at0006 = ╱49╱I╱ // 0x1b73 @0x6
0x1b6d…1b9d at0007 = ╱4e╱N╱ // 0x1b74 @0x7
0x1b6d…1b9d at0008 = ╱44╱D╱ // 0x1b75 @0x8
0x1b6d…1b9d at0009 = ╱52╱R╱ // 0x1b76 @0x9
0x1b6d…1b9d at000a = ╱45╱E╱ // 0x1b77 @0xa
0x1b6d…1b9d at000b = ╱47╱G╱ // 0x1b78 @0xb
0x1b6d…1b9d at000c = ╱4e╱N╱ // 0x1b79 @0xc
0x1b6d…1b9d at000d = ╱45╱E╱ // 0x1b7a @0xd
0x1b6d…1b9d at000e = ╱54╱T╱ // 0x1b7b @0xe
0x1b6d…1b9d at000f = ╱20╱…╱ // 0x1b7c @0xf
0x1b6d…1b9d at0010 = ╱52╱R╱ // 0x1b7d @0x10
0x1b6d…1b9d at0011 = ╱45╱E╱ // 0x1b7e @0x11
0x1b6d…1b9d at0012 = ╱53╱S╱ // 0x1b7f @0x12
0x1b6d…1b9d at0013 = ╱54╱T╱ // 0x1b80 @0x13
0x1b6d…1b9d at0014 = ╱53╱S╱ // 0x1b81 @0x14
0x1b6d…1b9d at0015 = ╱4b╱K╱ // 0x1b82 @0x15
0x1b6d…1b9d at0016 = ╱41╱A╱ // 0x1b83 @0x16
0x1b6d…1b9d at0017 = ╱54╱T╱ // 0x1b84 @0x17
0x1b6d…1b9d at0018 = ╱20╱…╱ // 0x1b85 @0x18
0x1b6d…1b9d at0019 = ╱46╱F╱ // 0x1b86 @0x19
0x1b6d…1b9d at001a = ╱52╱R╱ // 0x1b87 @0x1a
0x1b6d…1b9d at001b = ╱41╱A╱ // 0x1b88 @0x1b
0x1b6d…1b9d at001c = ╱20╱…╱ // 0x1b89 @0x1c
0x1b6d…1b9d at001d = ╱22╱"╱ // 0x1b8a @0x1d
0x1b6d…1b9d at001e = ╱ea╱ ; ╱ // 0x1b8b @0x1e
0x1b6d…1b9d at001f = ╱46╱F╱ // 0x1b8c @0x1f
0x1b6d…1b9d at0020 = ╱35╱5╱ // 0x1b8d @0x20
0x1b6d…1b9d at0021 = ╱e6╱ - ╱ // 0x1b8e @0x21
0x1b6d…1b9d at0022 = ╱32╱2╱ // 0x1b8f @0x22
0x1b6d…1b9d at0023 = ╱f20200╱ // 0x1b90 @0x23
0x1b6d…1b9d at0026 = ╱ea╱ ; ╱ // 0x1b93 @0x26
0x1b6d…1b9d at0027 = ╱22╱"╱ // 0x1b94 @0x27
0x1b6d…1b9d at0028 = ╱3a╱:╱ // 0x1b95 @0x28
0x1b6d…1b9d at0029 = ╱20╱…╱ // 0x1b96 @0x29
0x1b6d…1b9d at002a = ╱20╱…╱ // 0x1b97 @0x2a
0x1b6d…1b9d at002b = ╱20╱…╱ // 0x1b98 @0x2b
0x1b6d…1b9d at002c = ╱20╱…╱ // 0x1b99 @0x2c
0x1b6d…1b9d at002d = ╱22╱"╱ // 0x1b9a @0x2d
0x1b6d…1b9d at002e = ╱ea╱ ; ╱ // 0x1b9b @0x2e
0x1b6d…1b9d at002f = EOL // 0x1b9c @0x2f
0x1b6d…1b9d }
0x1b9d…1baf b19d 02970 LET QT $ := "" ; QB := IR
0x1b9d…1baf LineComal80 {
0x1b9d…1baf ptr = 0xb19d // 0x1b9d @0x0
0x1b9d…1baf lno = 0x0b9a // 0x1b9f @0x2
0x1b9d…1baf at0004 = ╱86╱ LET ╱ // 0x1ba1 @0x4
0x1b9d…1baf at0005 = ╱51╱Q╱ // 0x1ba2 @0x5
0x1b9d…1baf at0006 = ╱54╱T╱ // 0x1ba3 @0x6
0x1b9d…1baf at0007 = ╱ef╱ $ ╱ // 0x1ba4 @0x7
0x1b9d…1baf at0008 = ╱f0╱ := ╱ // 0x1ba5 @0x8
0x1b9d…1baf at0009 = ╱22╱"╱ // 0x1ba6 @0x9
0x1b9d…1baf at000a = ╱22╱"╱ // 0x1ba7 @0xa
0x1b9d…1baf at000b = ╱ea╱ ; ╱ // 0x1ba8 @0xb
0x1b9d…1baf at000c = ╱51╱Q╱ // 0x1ba9 @0xc
0x1b9d…1baf at000d = ╱42╱B╱ // 0x1baa @0xd
0x1b9d…1baf at000e = ╱f0╱ := ╱ // 0x1bab @0xe
0x1b9d…1baf at000f = ╱49╱I╱ // 0x1bac @0xf
0x1b9d…1baf at0010 = ╱52╱R╱ // 0x1bad @0x10
0x1b9d…1baf at0011 = EOL // 0x1bae @0x11
0x1b9d…1baf }
0x1baf…1bbc b1aa 02980 EXEC LSKRIV1
0x1baf…1bbc LineComal80 {
0x1baf…1bbc ptr = 0xb1aa // 0x1baf @0x0
0x1baf…1bbc lno = 0x0ba4 // 0x1bb1 @0x2
0x1baf…1bbc at0004 = ╱9d╱ EXEC ╱ // 0x1bb3 @0x4
0x1baf…1bbc at0005 = ╱4c╱L╱ // 0x1bb4 @0x5
0x1baf…1bbc at0006 = ╱53╱S╱ // 0x1bb5 @0x6
0x1baf…1bbc at0007 = ╱4b╱K╱ // 0x1bb6 @0x7
0x1baf…1bbc at0008 = ╱52╱R╱ // 0x1bb7 @0x8
0x1baf…1bbc at0009 = ╱49╱I╱ // 0x1bb8 @0x9
0x1baf…1bbc at000a = ╱56╱V╱ // 0x1bb9 @0xa
0x1baf…1bbc at000b = ╱31╱1╱ // 0x1bba @0xb
0x1baf…1bbc at000c = EOL // 0x1bbb @0xc
0x1baf…1bbc }
0x1bbc…1bc2 b1b0 02990 ENDIF
0x1bbc…1bc2 LineComal80 {
0x1bbc…1bc2 ptr = 0xb1b0 // 0x1bbc @0x0
0x1bbc…1bc2 lno = 0x0bae // 0x1bbe @0x2
0x1bbc…1bc2 at0004 = ╱9c╱ ENDIF ╱ // 0x1bc0 @0x4
0x1bbc…1bc2 at0005 = EOL // 0x1bc1 @0x5
0x1bbc…1bc2 }
0x1bc2…1bd2 b1c0 03000 IF IH > 0 THEN
0x1bc2…1bd2 LineComal80 {
0x1bc2…1bd2 ptr = 0xb1c0 // 0x1bc2 @0x0
0x1bc2…1bd2 lno = 0x0bb8 // 0x1bc4 @0x2
0x1bc2…1bd2 at0004 = ╱9b0041╱ IF ╱ // 0x1bc6 @0x4
0x1bc2…1bd2 at0007 = ╱49╱I╱ // 0x1bc9 @0x7
0x1bc2…1bd2 at0008 = ╱48╱H╱ // 0x1bca @0x8
0x1bc2…1bd2 at0009 = ╱e1╱ > ╱ // 0x1bcb @0x9
0x1bc2…1bd2 at000a = ╱30╱0╱ // 0x1bcc @0xa
0x1bc2…1bd2 at000b = ╱f20000╱ // 0x1bcd @0xb
0x1bc2…1bd2 at000e = ╱b5╱ THEN ╱ // 0x1bd0 @0xe
0x1bc2…1bd2 at000f = EOL // 0x1bd1 @0xf
0x1bc2…1bd2 }
0x1bd2…1c06 b1f4 03010 LET QT $ := "A-INDKOMST…TIL…[NDRINGSDATO:……………" ; QB := AIH
0x1bd2…1c06 LineComal80 {
0x1bd2…1c06 ptr = 0xb1f4 // 0x1bd2 @0x0
0x1bd2…1c06 lno = 0x0bc2 // 0x1bd4 @0x2
0x1bd2…1c06 at0004 = ╱86╱ LET ╱ // 0x1bd6 @0x4
0x1bd2…1c06 at0005 = ╱51╱Q╱ // 0x1bd7 @0x5
0x1bd2…1c06 at0006 = ╱54╱T╱ // 0x1bd8 @0x6
0x1bd2…1c06 at0007 = ╱ef╱ $ ╱ // 0x1bd9 @0x7
0x1bd2…1c06 at0008 = ╱f0╱ := ╱ // 0x1bda @0x8
0x1bd2…1c06 at0009 = ╱22╱"╱ // 0x1bdb @0x9
0x1bd2…1c06 at000a = ╱41╱A╱ // 0x1bdc @0xa
0x1bd2…1c06 at000b = ╱2d╱-╱ // 0x1bdd @0xb
0x1bd2…1c06 at000c = ╱49╱I╱ // 0x1bde @0xc
0x1bd2…1c06 at000d = ╱4e╱N╱ // 0x1bdf @0xd
0x1bd2…1c06 at000e = ╱44╱D╱ // 0x1be0 @0xe
0x1bd2…1c06 at000f = ╱4b╱K╱ // 0x1be1 @0xf
0x1bd2…1c06 at0010 = ╱4f╱O╱ // 0x1be2 @0x10
0x1bd2…1c06 at0011 = ╱4d╱M╱ // 0x1be3 @0x11
0x1bd2…1c06 at0012 = ╱53╱S╱ // 0x1be4 @0x12
0x1bd2…1c06 at0013 = ╱54╱T╱ // 0x1be5 @0x13
0x1bd2…1c06 at0014 = ╱20╱…╱ // 0x1be6 @0x14
0x1bd2…1c06 at0015 = ╱54╱T╱ // 0x1be7 @0x15
0x1bd2…1c06 at0016 = ╱49╱I╱ // 0x1be8 @0x16
0x1bd2…1c06 at0017 = ╱4c╱L╱ // 0x1be9 @0x17
0x1bd2…1c06 at0018 = ╱20╱…╱ // 0x1bea @0x18
0x1bd2…1c06 at0019 = ╱5b╱[╱ // 0x1beb @0x19
0x1bd2…1c06 at001a = ╱4e╱N╱ // 0x1bec @0x1a
0x1bd2…1c06 at001b = ╱44╱D╱ // 0x1bed @0x1b
0x1bd2…1c06 at001c = ╱52╱R╱ // 0x1bee @0x1c
0x1bd2…1c06 at001d = ╱49╱I╱ // 0x1bef @0x1d
0x1bd2…1c06 at001e = ╱4e╱N╱ // 0x1bf0 @0x1e
0x1bd2…1c06 at001f = ╱47╱G╱ // 0x1bf1 @0x1f
0x1bd2…1c06 at0020 = ╱53╱S╱ // 0x1bf2 @0x20
0x1bd2…1c06 at0021 = ╱44╱D╱ // 0x1bf3 @0x21
0x1bd2…1c06 at0022 = ╱41╱A╱ // 0x1bf4 @0x22
0x1bd2…1c06 at0023 = ╱54╱T╱ // 0x1bf5 @0x23
0x1bd2…1c06 at0024 = ╱4f╱O╱ // 0x1bf6 @0x24
0x1bd2…1c06 at0025 = ╱3a╱:╱ // 0x1bf7 @0x25
0x1bd2…1c06 at0026 = ╱20╱…╱ // 0x1bf8 @0x26
0x1bd2…1c06 at0027 = ╱20╱…╱ // 0x1bf9 @0x27
0x1bd2…1c06 at0028 = ╱20╱…╱ // 0x1bfa @0x28
0x1bd2…1c06 at0029 = ╱20╱…╱ // 0x1bfb @0x29
0x1bd2…1c06 at002a = ╱20╱…╱ // 0x1bfc @0x2a
0x1bd2…1c06 at002b = ╱22╱"╱ // 0x1bfd @0x2b
0x1bd2…1c06 at002c = ╱ea╱ ; ╱ // 0x1bfe @0x2c
0x1bd2…1c06 at002d = ╱51╱Q╱ // 0x1bff @0x2d
0x1bd2…1c06 at002e = ╱42╱B╱ // 0x1c00 @0x2e
0x1bd2…1c06 at002f = ╱f0╱ := ╱ // 0x1c01 @0x2f
0x1bd2…1c06 at0030 = ╱41╱A╱ // 0x1c02 @0x30
0x1bd2…1c06 at0031 = ╱49╱I╱ // 0x1c03 @0x31
0x1bd2…1c06 at0032 = ╱48╱H╱ // 0x1c04 @0x32
0x1bd2…1c06 at0033 = EOL // 0x1c05 @0x33
0x1bd2…1c06 }
0x1c06…1c13 b201 03020 EXEC LSKRIV1
0x1c06…1c13 LineComal80 {
0x1c06…1c13 ptr = 0xb201 // 0x1c06 @0x0
0x1c06…1c13 lno = 0x0bcc // 0x1c08 @0x2
0x1c06…1c13 at0004 = ╱9d╱ EXEC ╱ // 0x1c0a @0x4
0x1c06…1c13 at0005 = ╱4c╱L╱ // 0x1c0b @0x5
0x1c06…1c13 at0006 = ╱53╱S╱ // 0x1c0c @0x6
0x1c06…1c13 at0007 = ╱4b╱K╱ // 0x1c0d @0x7
0x1c06…1c13 at0008 = ╱52╱R╱ // 0x1c0e @0x8
0x1c06…1c13 at0009 = ╱49╱I╱ // 0x1c0f @0x9
0x1c06…1c13 at000a = ╱56╱V╱ // 0x1c10 @0xa
0x1c06…1c13 at000b = ╱31╱1╱ // 0x1c11 @0xb
0x1c06…1c13 at000c = EOL // 0x1c12 @0xc
0x1c06…1c13 }
0x1c13…1c19 b207 03030 ENDIF
0x1c13…1c19 LineComal80 {
0x1c13…1c19 ptr = 0xb207 // 0x1c13 @0x0
0x1c13…1c19 lno = 0x0bd6 // 0x1c15 @0x2
0x1c13…1c19 at0004 = ╱9c╱ ENDIF ╱ // 0x1c17 @0x4
0x1c13…1c19 at0005 = EOL // 0x1c18 @0x5
0x1c13…1c19 }
0x1c19…1c29 b217 03040 IF SQ > 0 THEN
0x1c19…1c29 LineComal80 {
0x1c19…1c29 ptr = 0xb217 // 0x1c19 @0x0
0x1c19…1c29 lno = 0x0be0 // 0x1c1b @0x2
0x1c19…1c29 at0004 = ╱9b0041╱ IF ╱ // 0x1c1d @0x4
0x1c19…1c29 at0007 = ╱53╱S╱ // 0x1c20 @0x7
0x1c19…1c29 at0008 = ╱51╱Q╱ // 0x1c21 @0x8
0x1c19…1c29 at0009 = ╱e1╱ > ╱ // 0x1c22 @0x9
0x1c19…1c29 at000a = ╱30╱0╱ // 0x1c23 @0xa
0x1c19…1c29 at000b = ╱f20000╱ // 0x1c24 @0xb
0x1c19…1c29 at000e = ╱b5╱ THEN ╱ // 0x1c27 @0xe
0x1c19…1c29 at000f = EOL // 0x1c28 @0xf
0x1c19…1c29 }
0x1c29…1c5d b24b 03050 LET QT $ := "A-SKAT…TIL…[NDRINGSDATO:………………………" ; QB := ASQ
0x1c29…1c5d LineComal80 {
0x1c29…1c5d ptr = 0xb24b // 0x1c29 @0x0
0x1c29…1c5d lno = 0x0bea // 0x1c2b @0x2
0x1c29…1c5d at0004 = ╱86╱ LET ╱ // 0x1c2d @0x4
0x1c29…1c5d at0005 = ╱51╱Q╱ // 0x1c2e @0x5
0x1c29…1c5d at0006 = ╱54╱T╱ // 0x1c2f @0x6
0x1c29…1c5d at0007 = ╱ef╱ $ ╱ // 0x1c30 @0x7
0x1c29…1c5d at0008 = ╱f0╱ := ╱ // 0x1c31 @0x8
0x1c29…1c5d at0009 = ╱22╱"╱ // 0x1c32 @0x9
0x1c29…1c5d at000a = ╱41╱A╱ // 0x1c33 @0xa
0x1c29…1c5d at000b = ╱2d╱-╱ // 0x1c34 @0xb
0x1c29…1c5d at000c = ╱53╱S╱ // 0x1c35 @0xc
0x1c29…1c5d at000d = ╱4b╱K╱ // 0x1c36 @0xd
0x1c29…1c5d at000e = ╱41╱A╱ // 0x1c37 @0xe
0x1c29…1c5d at000f = ╱54╱T╱ // 0x1c38 @0xf
0x1c29…1c5d at0010 = ╱20╱…╱ // 0x1c39 @0x10
0x1c29…1c5d at0011 = ╱54╱T╱ // 0x1c3a @0x11
0x1c29…1c5d at0012 = ╱49╱I╱ // 0x1c3b @0x12
0x1c29…1c5d at0013 = ╱4c╱L╱ // 0x1c3c @0x13
0x1c29…1c5d at0014 = ╱20╱…╱ // 0x1c3d @0x14
0x1c29…1c5d at0015 = ╱5b╱[╱ // 0x1c3e @0x15
0x1c29…1c5d at0016 = ╱4e╱N╱ // 0x1c3f @0x16
0x1c29…1c5d at0017 = ╱44╱D╱ // 0x1c40 @0x17
0x1c29…1c5d at0018 = ╱52╱R╱ // 0x1c41 @0x18
0x1c29…1c5d at0019 = ╱49╱I╱ // 0x1c42 @0x19
0x1c29…1c5d at001a = ╱4e╱N╱ // 0x1c43 @0x1a
0x1c29…1c5d at001b = ╱47╱G╱ // 0x1c44 @0x1b
0x1c29…1c5d at001c = ╱53╱S╱ // 0x1c45 @0x1c
0x1c29…1c5d at001d = ╱44╱D╱ // 0x1c46 @0x1d
0x1c29…1c5d at001e = ╱41╱A╱ // 0x1c47 @0x1e
0x1c29…1c5d at001f = ╱54╱T╱ // 0x1c48 @0x1f
0x1c29…1c5d at0020 = ╱4f╱O╱ // 0x1c49 @0x20
0x1c29…1c5d at0021 = ╱3a╱:╱ // 0x1c4a @0x21
0x1c29…1c5d at0022 = ╱20╱…╱ // 0x1c4b @0x22
0x1c29…1c5d at0023 = ╱20╱…╱ // 0x1c4c @0x23
0x1c29…1c5d at0024 = ╱20╱…╱ // 0x1c4d @0x24
0x1c29…1c5d at0025 = ╱20╱…╱ // 0x1c4e @0x25
0x1c29…1c5d at0026 = ╱20╱…╱ // 0x1c4f @0x26
0x1c29…1c5d at0027 = ╱20╱…╱ // 0x1c50 @0x27
0x1c29…1c5d at0028 = ╱20╱…╱ // 0x1c51 @0x28
0x1c29…1c5d at0029 = ╱20╱…╱ // 0x1c52 @0x29
0x1c29…1c5d at002a = ╱20╱…╱ // 0x1c53 @0x2a
0x1c29…1c5d at002b = ╱22╱"╱ // 0x1c54 @0x2b
0x1c29…1c5d at002c = ╱ea╱ ; ╱ // 0x1c55 @0x2c
0x1c29…1c5d at002d = ╱51╱Q╱ // 0x1c56 @0x2d
0x1c29…1c5d at002e = ╱42╱B╱ // 0x1c57 @0x2e
0x1c29…1c5d at002f = ╱f0╱ := ╱ // 0x1c58 @0x2f
0x1c29…1c5d at0030 = ╱41╱A╱ // 0x1c59 @0x30
0x1c29…1c5d at0031 = ╱53╱S╱ // 0x1c5a @0x31
0x1c29…1c5d at0032 = ╱51╱Q╱ // 0x1c5b @0x32
0x1c29…1c5d at0033 = EOL // 0x1c5c @0x33
0x1c29…1c5d }
0x1c5d…1c6a b258 03060 EXEC LSKRIV1
0x1c5d…1c6a LineComal80 {
0x1c5d…1c6a ptr = 0xb258 // 0x1c5d @0x0
0x1c5d…1c6a lno = 0x0bf4 // 0x1c5f @0x2
0x1c5d…1c6a at0004 = ╱9d╱ EXEC ╱ // 0x1c61 @0x4
0x1c5d…1c6a at0005 = ╱4c╱L╱ // 0x1c62 @0x5
0x1c5d…1c6a at0006 = ╱53╱S╱ // 0x1c63 @0x6
0x1c5d…1c6a at0007 = ╱4b╱K╱ // 0x1c64 @0x7
0x1c5d…1c6a at0008 = ╱52╱R╱ // 0x1c65 @0x8
0x1c5d…1c6a at0009 = ╱49╱I╱ // 0x1c66 @0x9
0x1c5d…1c6a at000a = ╱56╱V╱ // 0x1c67 @0xa
0x1c5d…1c6a at000b = ╱31╱1╱ // 0x1c68 @0xb
0x1c5d…1c6a at000c = EOL // 0x1c69 @0xc
0x1c5d…1c6a }
0x1c6a…1c70 b25e 03070 ENDIF
0x1c6a…1c70 LineComal80 {
0x1c6a…1c70 ptr = 0xb25e // 0x1c6a @0x0
0x1c6a…1c70 lno = 0x0bfe // 0x1c6c @0x2
0x1c6a…1c70 at0004 = ╱9c╱ ENDIF ╱ // 0x1c6e @0x4
0x1c6a…1c70 at0005 = EOL // 0x1c6f @0x5
0x1c6a…1c70 }
0x1c70…1c7e b26c 03080 IF > 0 THEN
0x1c70…1c7e LineComal80 {
0x1c70…1c7e ptr = 0xb26c // 0x1c70 @0x0
0x1c70…1c7e lno = 0x0c08 // 0x1c72 @0x2
0x1c70…1c7e at0004 = ╱9b005a╱ IF ╱ // 0x1c74 @0x4
0x1c70…1c7e at0007 = ╱e1╱ > ╱ // 0x1c77 @0x7
0x1c70…1c7e at0008 = ╱30╱0╱ // 0x1c78 @0x8
0x1c70…1c7e at0009 = ╱f20000╱ // 0x1c79 @0x9
0x1c70…1c7e at000c = ╱b5╱ THEN ╱ // 0x1c7c @0xc
0x1c70…1c7e at000d = EOL // 0x1c7d @0xd
0x1c70…1c7e }
0x1c7e…1cbe b2ac 03090 LET QT $ := "[NDRINGSDATO:…" + PIL $ ( 1 : 18 ) + "…………………" ; QT $ := QT $ + J $
0x1c7e…1cbe LineComal80 {
0x1c7e…1cbe ptr = 0xb2ac // 0x1c7e @0x0
0x1c7e…1cbe lno = 0x0c12 // 0x1c80 @0x2
0x1c7e…1cbe at0004 = ╱86╱ LET ╱ // 0x1c82 @0x4
0x1c7e…1cbe at0005 = ╱51╱Q╱ // 0x1c83 @0x5
0x1c7e…1cbe at0006 = ╱54╱T╱ // 0x1c84 @0x6
0x1c7e…1cbe at0007 = ╱ef╱ $ ╱ // 0x1c85 @0x7
0x1c7e…1cbe at0008 = ╱f0╱ := ╱ // 0x1c86 @0x8
0x1c7e…1cbe at0009 = ╱22╱"╱ // 0x1c87 @0x9
0x1c7e…1cbe at000a = ╱5b╱[╱ // 0x1c88 @0xa
0x1c7e…1cbe at000b = ╱4e╱N╱ // 0x1c89 @0xb
0x1c7e…1cbe at000c = ╱44╱D╱ // 0x1c8a @0xc
0x1c7e…1cbe at000d = ╱52╱R╱ // 0x1c8b @0xd
0x1c7e…1cbe at000e = ╱49╱I╱ // 0x1c8c @0xe
0x1c7e…1cbe at000f = ╱4e╱N╱ // 0x1c8d @0xf
0x1c7e…1cbe at0010 = ╱47╱G╱ // 0x1c8e @0x10
0x1c7e…1cbe at0011 = ╱53╱S╱ // 0x1c8f @0x11
0x1c7e…1cbe at0012 = ╱44╱D╱ // 0x1c90 @0x12
0x1c7e…1cbe at0013 = ╱41╱A╱ // 0x1c91 @0x13
0x1c7e…1cbe at0014 = ╱54╱T╱ // 0x1c92 @0x14
0x1c7e…1cbe at0015 = ╱4f╱O╱ // 0x1c93 @0x15
0x1c7e…1cbe at0016 = ╱3a╱:╱ // 0x1c94 @0x16
0x1c7e…1cbe at0017 = ╱20╱…╱ // 0x1c95 @0x17
0x1c7e…1cbe at0018 = ╱22╱"╱ // 0x1c96 @0x18
0x1c7e…1cbe at0019 = ╱eb╱ + ╱ // 0x1c97 @0x19
0x1c7e…1cbe at001a = ╱50╱P╱ // 0x1c98 @0x1a
0x1c7e…1cbe at001b = ╱49╱I╱ // 0x1c99 @0x1b
0x1c7e…1cbe at001c = ╱4c╱L╱ // 0x1c9a @0x1c
0x1c7e…1cbe at001d = ╱ef╱ $ ╱ // 0x1c9b @0x1d
0x1c7e…1cbe at001e = ╱ed╱ ( ╱ // 0x1c9c @0x1e
0x1c7e…1cbe at001f = ╱31╱1╱ // 0x1c9d @0x1f
0x1c7e…1cbe at0020 = ╱f20100╱ // 0x1c9e @0x20
0x1c7e…1cbe at0023 = ╱f1╱ : ╱ // 0x1ca1 @0x23
0x1c7e…1cbe at0024 = ╱31╱1╱ // 0x1ca2 @0x24
0x1c7e…1cbe at0025 = ╱38╱8╱ // 0x1ca3 @0x25
0x1c7e…1cbe at0026 = ╱f21200╱ // 0x1ca4 @0x26
0x1c7e…1cbe at0029 = ╱ee╱ ) ╱ // 0x1ca7 @0x29
0x1c7e…1cbe at002a = ╱eb╱ + ╱ // 0x1ca8 @0x2a
0x1c7e…1cbe at002b = ╱22╱"╱ // 0x1ca9 @0x2b
0x1c7e…1cbe at002c = ╱20╱…╱ // 0x1caa @0x2c
0x1c7e…1cbe at002d = ╱20╱…╱ // 0x1cab @0x2d
0x1c7e…1cbe at002e = ╱20╱…╱ // 0x1cac @0x2e
0x1c7e…1cbe at002f = ╱20╱…╱ // 0x1cad @0x2f
0x1c7e…1cbe at0030 = ╱20╱…╱ // 0x1cae @0x30
0x1c7e…1cbe at0031 = ╱20╱…╱ // 0x1caf @0x31
0x1c7e…1cbe at0032 = ╱20╱…╱ // 0x1cb0 @0x32
0x1c7e…1cbe at0033 = ╱22╱"╱ // 0x1cb1 @0x33
0x1c7e…1cbe at0034 = ╱ea╱ ; ╱ // 0x1cb2 @0x34
0x1c7e…1cbe at0035 = ╱51╱Q╱ // 0x1cb3 @0x35
0x1c7e…1cbe at0036 = ╱54╱T╱ // 0x1cb4 @0x36
0x1c7e…1cbe at0037 = ╱ef╱ $ ╱ // 0x1cb5 @0x37
0x1c7e…1cbe at0038 = ╱f0╱ := ╱ // 0x1cb6 @0x38
0x1c7e…1cbe at0039 = ╱51╱Q╱ // 0x1cb7 @0x39
0x1c7e…1cbe at003a = ╱54╱T╱ // 0x1cb8 @0x3a
0x1c7e…1cbe at003b = ╱ef╱ $ ╱ // 0x1cb9 @0x3b
0x1c7e…1cbe at003c = ╱eb╱ + ╱ // 0x1cba @0x3c
0x1c7e…1cbe at003d = ╱4a╱J╱ // 0x1cbb @0x3d
0x1c7e…1cbe at003e = ╱ef╱ $ ╱ // 0x1cbc @0x3e
0x1c7e…1cbe at003f = EOL // 0x1cbd @0x3f
0x1c7e…1cbe }
0x1cbe…1ccb b2b9 03100 EXEC LSKRIV3
0x1cbe…1ccb LineComal80 {
0x1cbe…1ccb ptr = 0xb2b9 // 0x1cbe @0x0
0x1cbe…1ccb lno = 0x0c1c // 0x1cc0 @0x2
0x1cbe…1ccb at0004 = ╱9d╱ EXEC ╱ // 0x1cc2 @0x4
0x1cbe…1ccb at0005 = ╱4c╱L╱ // 0x1cc3 @0x5
0x1cbe…1ccb at0006 = ╱53╱S╱ // 0x1cc4 @0x6
0x1cbe…1ccb at0007 = ╱4b╱K╱ // 0x1cc5 @0x7
0x1cbe…1ccb at0008 = ╱52╱R╱ // 0x1cc6 @0x8
0x1cbe…1ccb at0009 = ╱49╱I╱ // 0x1cc7 @0x9
0x1cbe…1ccb at000a = ╱56╱V╱ // 0x1cc8 @0xa
0x1cbe…1ccb at000b = ╱33╱3╱ // 0x1cc9 @0xb
0x1cbe…1ccb at000c = EOL // 0x1cca @0xc
0x1cbe…1ccb }
0x1ccb…1cd1 b2bf 03110 ENDIF
0x1ccb…1cd1 LineComal80 {
0x1ccb…1cd1 ptr = 0xb2bf // 0x1ccb @0x0
0x1ccb…1cd1 lno = 0x0c26 // 0x1ccd @0x2
0x1ccb…1cd1 at0004 = ╱9c╱ ENDIF ╱ // 0x1ccf @0x4
0x1ccb…1cd1 at0005 = EOL // 0x1cd0 @0x5
0x1ccb…1cd1 }
0x1cd1…1ce6 b2d4 03120 IF Y = 1 THEN EXEC RETURN
0x1cd1…1ce6 LineComal80 {
0x1cd1…1ce6 ptr = 0xb2d4 // 0x1cd1 @0x0
0x1cd1…1ce6 lno = 0x0c30 // 0x1cd3 @0x2
0x1cd1…1ce6 at0004 = ╱8200╱ IF ╱ // 0x1cd5 @0x4
0x1cd1…1ce6 at0006 = ╱59╱Y╱ // 0x1cd7 @0x6
0x1cd1…1ce6 at0007 = ╱df╱ = ╱ // 0x1cd8 @0x7
0x1cd1…1ce6 at0008 = ╱31╱1╱ // 0x1cd9 @0x8
0x1cd1…1ce6 at0009 = ╱f20100╱ // 0x1cda @0x9
0x1cd1…1ce6 at000c = ╱b5╱ THEN ╱ // 0x1cdd @0xc
0x1cd1…1ce6 at000d = ╱9d╱ EXEC ╱ // 0x1cde @0xd
0x1cd1…1ce6 at000e = ╱52╱R╱ // 0x1cdf @0xe
0x1cd1…1ce6 at000f = ╱45╱E╱ // 0x1ce0 @0xf
0x1cd1…1ce6 at0010 = ╱54╱T╱ // 0x1ce1 @0x10
0x1cd1…1ce6 at0011 = ╱55╱U╱ // 0x1ce2 @0x11
0x1cd1…1ce6 at0012 = ╱52╱R╱ // 0x1ce3 @0x12
0x1cd1…1ce6 at0013 = ╱4e╱N╱ // 0x1ce4 @0x13
0x1cd1…1ce6 at0014 = EOL // 0x1ce5 @0x14
0x1cd1…1ce6 }
0x1ce6…1ced b2db 03130 NEXT Y
0x1ce6…1ced LineComal80 {
0x1ce6…1ced ptr = 0xb2db // 0x1ce6 @0x0
0x1ce6…1ced lno = 0x0c3a // 0x1ce8 @0x2
0x1ce6…1ced at0004 = ╱84╱ NEXT ╱ // 0x1cea @0x4
0x1ce6…1ced at0005 = ╱59╱Y╱ // 0x1ceb @0x5
0x1ce6…1ced at0006 = EOL // 0x1cec @0x6
0x1ce6…1ced }
0x1ced…1cf6 b2e4 03140 OUTPUT "t"
0x1ced…1cf6 LineComal80 {
0x1ced…1cf6 ptr = 0xb2e4 // 0x1ced @0x0
0x1ced…1cf6 lno = 0x0c44 // 0x1cef @0x2
0x1ced…1cf6 at0004 = ╱a5╱ OUTPUT ╱ // 0x1cf1 @0x4
0x1ced…1cf6 at0005 = ╱22╱"╱ // 0x1cf2 @0x5
0x1ced…1cf6 at0006 = ╱74╱t╱ // 0x1cf3 @0x6
0x1ced…1cf6 at0007 = ╱22╱"╱ // 0x1cf4 @0x7
0x1ced…1cf6 at0008 = EOL // 0x1cf5 @0x8
0x1ced…1cf6 }
0x1cf6…1d03 b2f1 03150 ENDPROC [NDFORS
0x1cf6…1d03 LineComal80 {
0x1cf6…1d03 ptr = 0xb2f1 // 0x1cf6 @0x0
0x1cf6…1d03 lno = 0x0c4e // 0x1cf8 @0x2
0x1cf6…1d03 at0004 = ╱9f╱ ENDPROC ╱ // 0x1cfa @0x4
0x1cf6…1d03 at0005 = ╱5b╱[╱ // 0x1cfb @0x5
0x1cf6…1d03 at0006 = ╱4e╱N╱ // 0x1cfc @0x6
0x1cf6…1d03 at0007 = ╱44╱D╱ // 0x1cfd @0x7
0x1cf6…1d03 at0008 = ╱46╱F╱ // 0x1cfe @0x8
0x1cf6…1d03 at0009 = ╱4f╱O╱ // 0x1cff @0x9
0x1cf6…1d03 at000a = ╱52╱R╱ // 0x1d00 @0xa
0x1cf6…1d03 at000b = ╱53╱S╱ // 0x1d01 @0xb
0x1cf6…1d03 at000c = EOL // 0x1d02 @0xc
0x1cf6…1d03 }
0x1d03…1d10 b2fe 03160 PROC L[SFIL
0x1d03…1d10 LineComal80 {
0x1d03…1d10 ptr = 0xb2fe // 0x1d03 @0x0
0x1d03…1d10 lno = 0x0c58 // 0x1d05 @0x2
0x1d03…1d10 at0004 = ╱9e00╱ PROC ╱ // 0x1d07 @0x4
0x1d03…1d10 at0006 = ╱4c╱L╱ // 0x1d09 @0x6
0x1d03…1d10 at0007 = ╱5b╱[╱ // 0x1d0a @0x7
0x1d03…1d10 at0008 = ╱53╱S╱ // 0x1d0b @0x8
0x1d03…1d10 at0009 = ╱46╱F╱ // 0x1d0c @0x9
0x1d03…1d10 at000a = ╱49╱I╱ // 0x1d0d @0xa
0x1d03…1d10 at000b = ╱4c╱L╱ // 0x1d0e @0xb
0x1d03…1d10 at000c = EOL // 0x1d0f @0xc
0x1d03…1d10 }
0x1d10…1d21 b30f 03170 LET STATUS := 0
0x1d10…1d21 LineComal80 {
0x1d10…1d21 ptr = 0xb30f // 0x1d10 @0x0
0x1d10…1d21 lno = 0x0c62 // 0x1d12 @0x2
0x1d10…1d21 at0004 = ╱86╱ LET ╱ // 0x1d14 @0x4
0x1d10…1d21 at0005 = ╱53╱S╱ // 0x1d15 @0x5
0x1d10…1d21 at0006 = ╱54╱T╱ // 0x1d16 @0x6
0x1d10…1d21 at0007 = ╱41╱A╱ // 0x1d17 @0x7
0x1d10…1d21 at0008 = ╱54╱T╱ // 0x1d18 @0x8
0x1d10…1d21 at0009 = ╱55╱U╱ // 0x1d19 @0x9
0x1d10…1d21 at000a = ╱53╱S╱ // 0x1d1a @0xa
0x1d10…1d21 at000b = ╱f0╱ := ╱ // 0x1d1b @0xb
0x1d10…1d21 at000c = ╱30╱0╱ // 0x1d1c @0xc
0x1d10…1d21 at000d = ╱f20000╱ // 0x1d1d @0xd
0x1d10…1d21 at0010 = EOL // 0x1d20 @0x10
0x1d10…1d21 }
0x1d21…1d28 b316 03180 REPEAT
0x1d21…1d28 LineComal80 {
0x1d21…1d28 ptr = 0xb316 // 0x1d21 @0x0
0x1d21…1d28 lno = 0x0c6c // 0x1d23 @0x2
0x1d21…1d28 at0004 = ╱9700╱ REPEAT ╱ // 0x1d25 @0x4
0x1d21…1d28 at0006 = EOL // 0x1d27 @0x6
0x1d21…1d28 }
0x1d28…1d35 b323 03190 GET FIL $ : S $
0x1d28…1d35 LineComal80 {
0x1d28…1d35 ptr = 0xb323 // 0x1d28 @0x0
0x1d28…1d35 lno = 0x0c76 // 0x1d2a @0x2
0x1d28…1d35 at0004 = ╱a9╱ GET ╱ // 0x1d2c @0x4
0x1d28…1d35 at0005 = ╱46╱F╱ // 0x1d2d @0x5
0x1d28…1d35 at0006 = ╱49╱I╱ // 0x1d2e @0x6
0x1d28…1d35 at0007 = ╱4c╱L╱ // 0x1d2f @0x7
0x1d28…1d35 at0008 = ╱ef╱ $ ╱ // 0x1d30 @0x8
0x1d28…1d35 at0009 = ╱f1╱ : ╱ // 0x1d31 @0x9
0x1d28…1d35 at000a = ╱53╱S╱ // 0x1d32 @0xa
0x1d28…1d35 at000b = ╱ef╱ $ ╱ // 0x1d33 @0xb
0x1d28…1d35 at000c = EOL // 0x1d34 @0xc
0x1d28…1d35 }
0x1d35…1d3d b32b 03200 PRINT S $
0x1d35…1d3d LineComal80 {
0x1d35…1d3d ptr = 0xb32b // 0x1d35 @0x0
0x1d35…1d3d lno = 0x0c80 // 0x1d37 @0x2
0x1d35…1d3d at0004 = ╱92╱ PRINT ╱ // 0x1d39 @0x4
0x1d35…1d3d at0005 = ╱53╱S╱ // 0x1d3a @0x5
0x1d35…1d3d at0006 = ╱ef╱ $ ╱ // 0x1d3b @0x6
0x1d35…1d3d at0007 = EOL // 0x1d3c @0x7
0x1d35…1d3d }
0x1d3d…1d50 b33e 03210 UNTIL ╱cd╱ ( FIL $ ) = 19
0x1d3d…1d50 LineComal80 {
0x1d3d…1d50 ptr = 0xb33e // 0x1d3d @0x0
0x1d3d…1d50 lno = 0x0c8a // 0x1d3f @0x2
0x1d3d…1d50 at0004 = ╱98╱ UNTIL ╱ // 0x1d41 @0x4
0x1d3d…1d50 at0005 = ╱cd╱ // 0x1d42 @0x5
0x1d3d…1d50 at0006 = ╱ed╱ ( ╱ // 0x1d43 @0x6
0x1d3d…1d50 at0007 = ╱46╱F╱ // 0x1d44 @0x7
0x1d3d…1d50 at0008 = ╱49╱I╱ // 0x1d45 @0x8
0x1d3d…1d50 at0009 = ╱4c╱L╱ // 0x1d46 @0x9
0x1d3d…1d50 at000a = ╱ef╱ $ ╱ // 0x1d47 @0xa
0x1d3d…1d50 at000b = ╱ee╱ ) ╱ // 0x1d48 @0xb
0x1d3d…1d50 at000c = ╱df╱ = ╱ // 0x1d49 @0xc
0x1d3d…1d50 at000d = ╱31╱1╱ // 0x1d4a @0xd
0x1d3d…1d50 at000e = ╱39╱9╱ // 0x1d4b @0xe
0x1d3d…1d50 at000f = ╱f21300╱ // 0x1d4c @0xf
0x1d3d…1d50 at0012 = EOL // 0x1d4f @0x12
0x1d3d…1d50 }
0x1d50…1d5a b348 03220 CLOSE FIL $
0x1d50…1d5a LineComal80 {
0x1d50…1d5a ptr = 0xb348 // 0x1d50 @0x0
0x1d50…1d5a lno = 0x0c94 // 0x1d52 @0x2
0x1d50…1d5a at0004 = ╱a8╱ CLOSE ╱ // 0x1d54 @0x4
0x1d50…1d5a at0005 = ╱46╱F╱ // 0x1d55 @0x5
0x1d50…1d5a at0006 = ╱49╱I╱ // 0x1d56 @0x6
0x1d50…1d5a at0007 = ╱4c╱L╱ // 0x1d57 @0x7
0x1d50…1d5a at0008 = ╱ef╱ $ ╱ // 0x1d58 @0x8
0x1d50…1d5a at0009 = EOL // 0x1d59 @0x9
0x1d50…1d5a }
0x1d5a…1d61 b34f 03230 REPEAT
0x1d5a…1d61 LineComal80 {
0x1d5a…1d61 ptr = 0xb34f // 0x1d5a @0x0
0x1d5a…1d61 lno = 0x0c9e // 0x1d5c @0x2
0x1d5a…1d61 at0004 = ╱9700╱ REPEAT ╱ // 0x1d5e @0x4
0x1d5a…1d61 at0006 = EOL // 0x1d60 @0x6
0x1d5a…1d61 }
0x1d61…1da1 b38f 03240 INPUT "Skriv…skattekortets…beregningsdato…(gyldighedsdato):…" : J $
0x1d61…1da1 LineComal80 {
0x1d61…1da1 ptr = 0xb38f // 0x1d61 @0x0
0x1d61…1da1 lno = 0x0ca8 // 0x1d63 @0x2
0x1d61…1da1 at0004 = ╱91╱ INPUT ╱ // 0x1d65 @0x4
0x1d61…1da1 at0005 = ╱22╱"╱ // 0x1d66 @0x5
0x1d61…1da1 at0006 = ╱53╱S╱ // 0x1d67 @0x6
0x1d61…1da1 at0007 = ╱6b╱k╱ // 0x1d68 @0x7
0x1d61…1da1 at0008 = ╱72╱r╱ // 0x1d69 @0x8
0x1d61…1da1 at0009 = ╱69╱i╱ // 0x1d6a @0x9
0x1d61…1da1 at000a = ╱76╱v╱ // 0x1d6b @0xa
0x1d61…1da1 at000b = ╱20╱…╱ // 0x1d6c @0xb
0x1d61…1da1 at000c = ╱73╱s╱ // 0x1d6d @0xc
0x1d61…1da1 at000d = ╱6b╱k╱ // 0x1d6e @0xd
0x1d61…1da1 at000e = ╱61╱a╱ // 0x1d6f @0xe
0x1d61…1da1 at000f = ╱74╱t╱ // 0x1d70 @0xf
0x1d61…1da1 at0010 = ╱74╱t╱ // 0x1d71 @0x10
0x1d61…1da1 at0011 = ╱65╱e╱ // 0x1d72 @0x11
0x1d61…1da1 at0012 = ╱6b╱k╱ // 0x1d73 @0x12
0x1d61…1da1 at0013 = ╱6f╱o╱ // 0x1d74 @0x13
0x1d61…1da1 at0014 = ╱72╱r╱ // 0x1d75 @0x14
0x1d61…1da1 at0015 = ╱74╱t╱ // 0x1d76 @0x15
0x1d61…1da1 at0016 = ╱65╱e╱ // 0x1d77 @0x16
0x1d61…1da1 at0017 = ╱74╱t╱ // 0x1d78 @0x17
0x1d61…1da1 at0018 = ╱73╱s╱ // 0x1d79 @0x18
0x1d61…1da1 at0019 = ╱20╱…╱ // 0x1d7a @0x19
0x1d61…1da1 at001a = ╱62╱b╱ // 0x1d7b @0x1a
0x1d61…1da1 at001b = ╱65╱e╱ // 0x1d7c @0x1b
0x1d61…1da1 at001c = ╱72╱r╱ // 0x1d7d @0x1c
0x1d61…1da1 at001d = ╱65╱e╱ // 0x1d7e @0x1d
0x1d61…1da1 at001e = ╱67╱g╱ // 0x1d7f @0x1e
0x1d61…1da1 at001f = ╱6e╱n╱ // 0x1d80 @0x1f
0x1d61…1da1 at0020 = ╱69╱i╱ // 0x1d81 @0x20
0x1d61…1da1 at0021 = ╱6e╱n╱ // 0x1d82 @0x21
0x1d61…1da1 at0022 = ╱67╱g╱ // 0x1d83 @0x22
0x1d61…1da1 at0023 = ╱73╱s╱ // 0x1d84 @0x23
0x1d61…1da1 at0024 = ╱64╱d╱ // 0x1d85 @0x24
0x1d61…1da1 at0025 = ╱61╱a╱ // 0x1d86 @0x25
0x1d61…1da1 at0026 = ╱74╱t╱ // 0x1d87 @0x26
0x1d61…1da1 at0027 = ╱6f╱o╱ // 0x1d88 @0x27
0x1d61…1da1 at0028 = ╱20╱…╱ // 0x1d89 @0x28
0x1d61…1da1 at0029 = ╱28╱(╱ // 0x1d8a @0x29
0x1d61…1da1 at002a = ╱67╱g╱ // 0x1d8b @0x2a
0x1d61…1da1 at002b = ╱79╱y╱ // 0x1d8c @0x2b
0x1d61…1da1 at002c = ╱6c╱l╱ // 0x1d8d @0x2c
0x1d61…1da1 at002d = ╱64╱d╱ // 0x1d8e @0x2d
0x1d61…1da1 at002e = ╱69╱i╱ // 0x1d8f @0x2e
0x1d61…1da1 at002f = ╱67╱g╱ // 0x1d90 @0x2f
0x1d61…1da1 at0030 = ╱68╱h╱ // 0x1d91 @0x30
0x1d61…1da1 at0031 = ╱65╱e╱ // 0x1d92 @0x31
0x1d61…1da1 at0032 = ╱64╱d╱ // 0x1d93 @0x32
0x1d61…1da1 at0033 = ╱73╱s╱ // 0x1d94 @0x33
0x1d61…1da1 at0034 = ╱64╱d╱ // 0x1d95 @0x34
0x1d61…1da1 at0035 = ╱61╱a╱ // 0x1d96 @0x35
0x1d61…1da1 at0036 = ╱74╱t╱ // 0x1d97 @0x36
0x1d61…1da1 at0037 = ╱6f╱o╱ // 0x1d98 @0x37
0x1d61…1da1 at0038 = ╱29╱)╱ // 0x1d99 @0x38
0x1d61…1da1 at0039 = ╱3a╱:╱ // 0x1d9a @0x39
0x1d61…1da1 at003a = ╱20╱…╱ // 0x1d9b @0x3a
0x1d61…1da1 at003b = ╱22╱"╱ // 0x1d9c @0x3b
0x1d61…1da1 at003c = ╱f1╱ : ╱ // 0x1d9d @0x3c
0x1d61…1da1 at003d = ╱4a╱J╱ // 0x1d9e @0x3d
0x1d61…1da1 at003e = ╱ef╱ $ ╱ // 0x1d9f @0x3e
0x1d61…1da1 at003f = EOL // 0x1da0 @0x3f
0x1d61…1da1 }
0x1da1…1da7 b395 03250 CLEAR
0x1da1…1da7 LineComal80 {
0x1da1…1da7 ptr = 0xb395 // 0x1da1 @0x0
0x1da1…1da7 lno = 0x0cb2 // 0x1da3 @0x2
0x1da1…1da7 at0004 = ╱a0╱ CLEAR ╱ // 0x1da5 @0x4
0x1da1…1da7 at0005 = EOL // 0x1da6 @0x5
0x1da1…1da7 }
0x1da7…1dc1 b3af 03260 IF ╱cb╱ ( J $ ) >< 4 THEN PRINT CHR$ ( 7 )
0x1da7…1dc1 LineComal80 {
0x1da7…1dc1 ptr = 0xb3af // 0x1da7 @0x0
0x1da7…1dc1 lno = 0x0cbc // 0x1da9 @0x2
0x1da7…1dc1 at0004 = ╱8200╱ IF ╱ // 0x1dab @0x4
0x1da7…1dc1 at0006 = ╱cb╱ // 0x1dad @0x6
0x1da7…1dc1 at0007 = ╱ed╱ ( ╱ // 0x1dae @0x7
0x1da7…1dc1 at0008 = ╱4a╱J╱ // 0x1daf @0x8
0x1da7…1dc1 at0009 = ╱ef╱ $ ╱ // 0x1db0 @0x9
0x1da7…1dc1 at000a = ╱ee╱ ) ╱ // 0x1db1 @0xa
0x1da7…1dc1 at000b = ╱e4╱ >< ╱ // 0x1db2 @0xb
0x1da7…1dc1 at000c = ╱34╱4╱ // 0x1db3 @0xc
0x1da7…1dc1 at000d = ╱f20400╱ // 0x1db4 @0xd
0x1da7…1dc1 at0010 = ╱b5╱ THEN ╱ // 0x1db7 @0x10
0x1da7…1dc1 at0011 = ╱92╱ PRINT ╱ // 0x1db8 @0x11
0x1da7…1dc1 at0012 = ╱d0╱ CHR$ ╱ // 0x1db9 @0x12
0x1da7…1dc1 at0013 = ╱ed╱ ( ╱ // 0x1dba @0x13
0x1da7…1dc1 at0014 = ╱37╱7╱ // 0x1dbb @0x14
0x1da7…1dc1 at0015 = ╱f20700╱ // 0x1dbc @0x15
0x1da7…1dc1 at0018 = ╱ee╱ ) ╱ // 0x1dbf @0x18
0x1da7…1dc1 at0019 = EOL // 0x1dc0 @0x19
0x1da7…1dc1 }
0x1dc1…1dd1 b3bf 03270 UNTIL ╱cb╱ ( J $ ) = 4
0x1dc1…1dd1 LineComal80 {
0x1dc1…1dd1 ptr = 0xb3bf // 0x1dc1 @0x0
0x1dc1…1dd1 lno = 0x0cc6 // 0x1dc3 @0x2
0x1dc1…1dd1 at0004 = ╱98╱ UNTIL ╱ // 0x1dc5 @0x4
0x1dc1…1dd1 at0005 = ╱cb╱ // 0x1dc6 @0x5
0x1dc1…1dd1 at0006 = ╱ed╱ ( ╱ // 0x1dc7 @0x6
0x1dc1…1dd1 at0007 = ╱4a╱J╱ // 0x1dc8 @0x7
0x1dc1…1dd1 at0008 = ╱ef╱ $ ╱ // 0x1dc9 @0x8
0x1dc1…1dd1 at0009 = ╱ee╱ ) ╱ // 0x1dca @0x9
0x1dc1…1dd1 at000a = ╱df╱ = ╱ // 0x1dcb @0xa
0x1dc1…1dd1 at000b = ╱34╱4╱ // 0x1dcc @0xb
0x1dc1…1dd1 at000c = ╱f20400╱ // 0x1dcd @0xc
0x1dc1…1dd1 at000f = EOL // 0x1dd0 @0xf
0x1dc1…1dd1 }
0x1dd1…1de2 b3d0 03280 IF $ >< "0101" THEN
0x1dd1…1de2 LineComal80 {
0x1dd1…1de2 ptr = 0xb3d0 // 0x1dd1 @0x0
0x1dd1…1de2 lno = 0x0cd0 // 0x1dd3 @0x2
0x1dd1…1de2 at0004 = ╱9b004a╱ IF ╱ // 0x1dd5 @0x4
0x1dd1…1de2 at0007 = ╱ef╱ $ ╱ // 0x1dd8 @0x7
0x1dd1…1de2 at0008 = ╱e4╱ >< ╱ // 0x1dd9 @0x8
0x1dd1…1de2 at0009 = ╱22╱"╱ // 0x1dda @0x9
0x1dd1…1de2 at000a = ╱30╱0╱ // 0x1ddb @0xa
0x1dd1…1de2 at000b = ╱31╱1╱ // 0x1ddc @0xb
0x1dd1…1de2 at000c = ╱30╱0╱ // 0x1ddd @0xc
0x1dd1…1de2 at000d = ╱31╱1╱ // 0x1dde @0xd
0x1dd1…1de2 at000e = ╱22╱"╱ // 0x1ddf @0xe
0x1dd1…1de2 at000f = ╱b5╱ THEN ╱ // 0x1de0 @0xf
0x1dd1…1de2 at0010 = EOL // 0x1de1 @0x10
0x1dd1…1de2 }
0x1de2…1dee b3dc 03290 LET Z := 0
0x1de2…1dee LineComal80 {
0x1de2…1dee ptr = 0xb3dc // 0x1de2 @0x0
0x1de2…1dee lno = 0x0cda // 0x1de4 @0x2
0x1de2…1dee at0004 = ╱86╱ LET ╱ // 0x1de6 @0x4
0x1de2…1dee at0005 = ╱5a╱Z╱ // 0x1de7 @0x5
0x1de2…1dee at0006 = ╱f0╱ := ╱ // 0x1de8 @0x6
0x1de2…1dee at0007 = ╱30╱0╱ // 0x1de9 @0x7
0x1de2…1dee at0008 = ╱f20000╱ // 0x1dea @0x8
0x1de2…1dee at000b = EOL // 0x1ded @0xb
0x1de2…1dee }
0x1dee…1e25 b413 03300 LET M]NED := ( ╱cc╱ ( J $ ( 3 ) ) - 48 ) * 10 + ╱cc╱ ( J $ ( 4 ) ) - 48
0x1dee…1e25 LineComal80 {
0x1dee…1e25 ptr = 0xb413 // 0x1dee @0x0
0x1dee…1e25 lno = 0x0ce4 // 0x1df0 @0x2
0x1dee…1e25 at0004 = ╱86╱ LET ╱ // 0x1df2 @0x4
0x1dee…1e25 at0005 = ╱4d╱M╱ // 0x1df3 @0x5
0x1dee…1e25 at0006 = ╱5d╱]╱ // 0x1df4 @0x6
0x1dee…1e25 at0007 = ╱4e╱N╱ // 0x1df5 @0x7
0x1dee…1e25 at0008 = ╱45╱E╱ // 0x1df6 @0x8
0x1dee…1e25 at0009 = ╱44╱D╱ // 0x1df7 @0x9
0x1dee…1e25 at000a = ╱f0╱ := ╱ // 0x1df8 @0xa
0x1dee…1e25 at000b = ╱ed╱ ( ╱ // 0x1df9 @0xb
0x1dee…1e25 at000c = ╱cc╱ // 0x1dfa @0xc
0x1dee…1e25 at000d = ╱ed╱ ( ╱ // 0x1dfb @0xd
0x1dee…1e25 at000e = ╱4a╱J╱ // 0x1dfc @0xe
0x1dee…1e25 at000f = ╱ef╱ $ ╱ // 0x1dfd @0xf
0x1dee…1e25 at0010 = ╱ed╱ ( ╱ // 0x1dfe @0x10
0x1dee…1e25 at0011 = ╱33╱3╱ // 0x1dff @0x11
0x1dee…1e25 at0012 = ╱f20300╱ // 0x1e00 @0x12
0x1dee…1e25 at0015 = ╱ee╱ ) ╱ // 0x1e03 @0x15
0x1dee…1e25 at0016 = ╱ee╱ ) ╱ // 0x1e04 @0x16
0x1dee…1e25 at0017 = ╱e6╱ - ╱ // 0x1e05 @0x17
0x1dee…1e25 at0018 = ╱34╱4╱ // 0x1e06 @0x18
0x1dee…1e25 at0019 = ╱38╱8╱ // 0x1e07 @0x19
0x1dee…1e25 at001a = ╱f23000╱ // 0x1e08 @0x1a
0x1dee…1e25 at001d = ╱ee╱ ) ╱ // 0x1e0b @0x1d
0x1dee…1e25 at001e = ╱e7╱ * ╱ // 0x1e0c @0x1e
0x1dee…1e25 at001f = ╱31╱1╱ // 0x1e0d @0x1f
0x1dee…1e25 at0020 = ╱30╱0╱ // 0x1e0e @0x20
0x1dee…1e25 at0021 = ╱f20a00╱ // 0x1e0f @0x21
0x1dee…1e25 at0024 = ╱e5╱ + ╱ // 0x1e12 @0x24
0x1dee…1e25 at0025 = ╱cc╱ // 0x1e13 @0x25
0x1dee…1e25 at0026 = ╱ed╱ ( ╱ // 0x1e14 @0x26
0x1dee…1e25 at0027 = ╱4a╱J╱ // 0x1e15 @0x27
0x1dee…1e25 at0028 = ╱ef╱ $ ╱ // 0x1e16 @0x28
0x1dee…1e25 at0029 = ╱ed╱ ( ╱ // 0x1e17 @0x29
0x1dee…1e25 at002a = ╱34╱4╱ // 0x1e18 @0x2a
0x1dee…1e25 at002b = ╱f20400╱ // 0x1e19 @0x2b
0x1dee…1e25 at002e = ╱ee╱ ) ╱ // 0x1e1c @0x2e
0x1dee…1e25 at002f = ╱ee╱ ) ╱ // 0x1e1d @0x2f
0x1dee…1e25 at0030 = ╱e6╱ - ╱ // 0x1e1e @0x30
0x1dee…1e25 at0031 = ╱34╱4╱ // 0x1e1f @0x31
0x1dee…1e25 at0032 = ╱38╱8╱ // 0x1e20 @0x32
0x1dee…1e25 at0033 = ╱f23000╱ // 0x1e21 @0x33
0x1dee…1e25 at0036 = EOL // 0x1e24 @0x36
0x1dee…1e25 }
0x1e25…1e5a b448 03310 LET DAG := ( ╱cc╱ ( J $ ( 1 ) ) - 48 ) * 10 + ╱cc╱ ( J $ ( 2 ) ) - 48
0x1e25…1e5a LineComal80 {
0x1e25…1e5a ptr = 0xb448 // 0x1e25 @0x0
0x1e25…1e5a lno = 0x0cee // 0x1e27 @0x2
0x1e25…1e5a at0004 = ╱86╱ LET ╱ // 0x1e29 @0x4
0x1e25…1e5a at0005 = ╱44╱D╱ // 0x1e2a @0x5
0x1e25…1e5a at0006 = ╱41╱A╱ // 0x1e2b @0x6
0x1e25…1e5a at0007 = ╱47╱G╱ // 0x1e2c @0x7
0x1e25…1e5a at0008 = ╱f0╱ := ╱ // 0x1e2d @0x8
0x1e25…1e5a at0009 = ╱ed╱ ( ╱ // 0x1e2e @0x9
0x1e25…1e5a at000a = ╱cc╱ // 0x1e2f @0xa
0x1e25…1e5a at000b = ╱ed╱ ( ╱ // 0x1e30 @0xb
0x1e25…1e5a at000c = ╱4a╱J╱ // 0x1e31 @0xc
0x1e25…1e5a at000d = ╱ef╱ $ ╱ // 0x1e32 @0xd
0x1e25…1e5a at000e = ╱ed╱ ( ╱ // 0x1e33 @0xe
0x1e25…1e5a at000f = ╱31╱1╱ // 0x1e34 @0xf
0x1e25…1e5a at0010 = ╱f20100╱ // 0x1e35 @0x10
0x1e25…1e5a at0013 = ╱ee╱ ) ╱ // 0x1e38 @0x13
0x1e25…1e5a at0014 = ╱ee╱ ) ╱ // 0x1e39 @0x14
0x1e25…1e5a at0015 = ╱e6╱ - ╱ // 0x1e3a @0x15
0x1e25…1e5a at0016 = ╱34╱4╱ // 0x1e3b @0x16
0x1e25…1e5a at0017 = ╱38╱8╱ // 0x1e3c @0x17
0x1e25…1e5a at0018 = ╱f23000╱ // 0x1e3d @0x18
0x1e25…1e5a at001b = ╱ee╱ ) ╱ // 0x1e40 @0x1b
0x1e25…1e5a at001c = ╱e7╱ * ╱ // 0x1e41 @0x1c
0x1e25…1e5a at001d = ╱31╱1╱ // 0x1e42 @0x1d
0x1e25…1e5a at001e = ╱30╱0╱ // 0x1e43 @0x1e
0x1e25…1e5a at001f = ╱f20a00╱ // 0x1e44 @0x1f
0x1e25…1e5a at0022 = ╱e5╱ + ╱ // 0x1e47 @0x22
0x1e25…1e5a at0023 = ╱cc╱ // 0x1e48 @0x23
0x1e25…1e5a at0024 = ╱ed╱ ( ╱ // 0x1e49 @0x24
0x1e25…1e5a at0025 = ╱4a╱J╱ // 0x1e4a @0x25
0x1e25…1e5a at0026 = ╱ef╱ $ ╱ // 0x1e4b @0x26
0x1e25…1e5a at0027 = ╱ed╱ ( ╱ // 0x1e4c @0x27
0x1e25…1e5a at0028 = ╱32╱2╱ // 0x1e4d @0x28
0x1e25…1e5a at0029 = ╱f20200╱ // 0x1e4e @0x29
0x1e25…1e5a at002c = ╱ee╱ ) ╱ // 0x1e51 @0x2c
0x1e25…1e5a at002d = ╱ee╱ ) ╱ // 0x1e52 @0x2d
0x1e25…1e5a at002e = ╱e6╱ - ╱ // 0x1e53 @0x2e
0x1e25…1e5a at002f = ╱34╱4╱ // 0x1e54 @0x2f
0x1e25…1e5a at0030 = ╱38╱8╱ // 0x1e55 @0x30
0x1e25…1e5a at0031 = ╱f23000╱ // 0x1e56 @0x31
0x1e25…1e5a at0034 = EOL // 0x1e59 @0x34
0x1e25…1e5a }
0x1e5a…1e6e b45c 03320 FOR X := 2 TO ]NED DO
0x1e5a…1e6e LineComal80 {
0x1e5a…1e6e ptr = 0xb45c // 0x1e5a @0x0
0x1e5a…1e6e lno = 0x0cf8 // 0x1e5c @0x2
0x1e5a…1e6e at0004 = ╱8300╱ FOR ╱ // 0x1e5e @0x4
0x1e5a…1e6e at0006 = ╱58╱X╱ // 0x1e60 @0x6
0x1e5a…1e6e at0007 = ╱f0╱ := ╱ // 0x1e61 @0x7
0x1e5a…1e6e at0008 = ╱32╱2╱ // 0x1e62 @0x8
0x1e5a…1e6e at0009 = ╱f20200╱ // 0x1e63 @0x9
0x1e5a…1e6e at000c = ╱b74d╱ TO ╱ // 0x1e66 @0xc
0x1e5a…1e6e at000e = ╱5d╱]╱ // 0x1e68 @0xe
0x1e5a…1e6e at000f = ╱4e╱N╱ // 0x1e69 @0xf
0x1e5a…1e6e at0010 = ╱45╱E╱ // 0x1e6a @0x10
0x1e5a…1e6e at0011 = ╱44╱D╱ // 0x1e6b @0x11
0x1e5a…1e6e at0012 = ╱bb╱ DO ╱ // 0x1e6c @0x12
0x1e5a…1e6e at0013 = EOL // 0x1e6d @0x13
0x1e5a…1e6e }
0x1e6e…1e7d b46b 03330 LET Z := Z + 31
0x1e6e…1e7d LineComal80 {
0x1e6e…1e7d ptr = 0xb46b // 0x1e6e @0x0
0x1e6e…1e7d lno = 0x0d02 // 0x1e70 @0x2
0x1e6e…1e7d at0004 = ╱86╱ LET ╱ // 0x1e72 @0x4
0x1e6e…1e7d at0005 = ╱5a╱Z╱ // 0x1e73 @0x5
0x1e6e…1e7d at0006 = ╱f0╱ := ╱ // 0x1e74 @0x6
0x1e6e…1e7d at0007 = ╱5a╱Z╱ // 0x1e75 @0x7
0x1e6e…1e7d at0008 = ╱e5╱ + ╱ // 0x1e76 @0x8
0x1e6e…1e7d at0009 = ╱33╱3╱ // 0x1e77 @0x9
0x1e6e…1e7d at000a = ╱31╱1╱ // 0x1e78 @0xa
0x1e6e…1e7d at000b = ╱f21f00╱ // 0x1e79 @0xb
0x1e6e…1e7d at000e = EOL // 0x1e7c @0xe
0x1e6e…1e7d }
0x1e7d…1eab b499 03340 IF X = 5 OR X = 7 OR X = 10 OR X = 12 THEN LET Z := Z - 1
0x1e7d…1eab LineComal80 {
0x1e7d…1eab ptr = 0xb499 // 0x1e7d @0x0
0x1e7d…1eab lno = 0x0d0c // 0x1e7f @0x2
0x1e7d…1eab at0004 = ╱8200╱ IF ╱ // 0x1e81 @0x4
0x1e7d…1eab at0006 = ╱58╱X╱ // 0x1e83 @0x6
0x1e7d…1eab at0007 = ╱df╱ = ╱ // 0x1e84 @0x7
0x1e7d…1eab at0008 = ╱35╱5╱ // 0x1e85 @0x8
0x1e7d…1eab at0009 = ╱f20500╱ // 0x1e86 @0x9
0x1e7d…1eab at000c = ╱d8╱ OR ╱ // 0x1e89 @0xc
0x1e7d…1eab at000d = ╱58╱X╱ // 0x1e8a @0xd
0x1e7d…1eab at000e = ╱df╱ = ╱ // 0x1e8b @0xe
0x1e7d…1eab at000f = ╱37╱7╱ // 0x1e8c @0xf
0x1e7d…1eab at0010 = ╱f20700╱ // 0x1e8d @0x10
0x1e7d…1eab at0013 = ╱d8╱ OR ╱ // 0x1e90 @0x13
0x1e7d…1eab at0014 = ╱58╱X╱ // 0x1e91 @0x14
0x1e7d…1eab at0015 = ╱df╱ = ╱ // 0x1e92 @0x15
0x1e7d…1eab at0016 = ╱31╱1╱ // 0x1e93 @0x16
0x1e7d…1eab at0017 = ╱30╱0╱ // 0x1e94 @0x17
0x1e7d…1eab at0018 = ╱f20a00╱ // 0x1e95 @0x18
0x1e7d…1eab at001b = ╱d8╱ OR ╱ // 0x1e98 @0x1b
0x1e7d…1eab at001c = ╱58╱X╱ // 0x1e99 @0x1c
0x1e7d…1eab at001d = ╱df╱ = ╱ // 0x1e9a @0x1d
0x1e7d…1eab at001e = ╱31╱1╱ // 0x1e9b @0x1e
0x1e7d…1eab at001f = ╱32╱2╱ // 0x1e9c @0x1f
0x1e7d…1eab at0020 = ╱f20c00╱ // 0x1e9d @0x20
0x1e7d…1eab at0023 = ╱b5╱ THEN ╱ // 0x1ea0 @0x23
0x1e7d…1eab at0024 = ╱86╱ LET ╱ // 0x1ea1 @0x24
0x1e7d…1eab at0025 = ╱5a╱Z╱ // 0x1ea2 @0x25
0x1e7d…1eab at0026 = ╱f0╱ := ╱ // 0x1ea3 @0x26
0x1e7d…1eab at0027 = ╱5a╱Z╱ // 0x1ea4 @0x27
0x1e7d…1eab at0028 = ╱e6╱ - ╱ // 0x1ea5 @0x28
0x1e7d…1eab at0029 = ╱31╱1╱ // 0x1ea6 @0x29
0x1e7d…1eab at002a = ╱f20100╱ // 0x1ea7 @0x2a
0x1e7d…1eab at002d = EOL // 0x1eaa @0x2d
0x1e7d…1eab }
0x1eab…1ec2 b4b0 03350 IF X = 3 THEN LET Z := Z - 3
0x1eab…1ec2 LineComal80 {
0x1eab…1ec2 ptr = 0xb4b0 // 0x1eab @0x0
0x1eab…1ec2 lno = 0x0d16 // 0x1ead @0x2
0x1eab…1ec2 at0004 = ╱8200╱ IF ╱ // 0x1eaf @0x4
0x1eab…1ec2 at0006 = ╱58╱X╱ // 0x1eb1 @0x6
0x1eab…1ec2 at0007 = ╱df╱ = ╱ // 0x1eb2 @0x7
0x1eab…1ec2 at0008 = ╱33╱3╱ // 0x1eb3 @0x8
0x1eab…1ec2 at0009 = ╱f20300╱ // 0x1eb4 @0x9
0x1eab…1ec2 at000c = ╱b5╱ THEN ╱ // 0x1eb7 @0xc
0x1eab…1ec2 at000d = ╱86╱ LET ╱ // 0x1eb8 @0xd
0x1eab…1ec2 at000e = ╱5a╱Z╱ // 0x1eb9 @0xe
0x1eab…1ec2 at000f = ╱f0╱ := ╱ // 0x1eba @0xf
0x1eab…1ec2 at0010 = ╱5a╱Z╱ // 0x1ebb @0x10
0x1eab…1ec2 at0011 = ╱e6╱ - ╱ // 0x1ebc @0x11
0x1eab…1ec2 at0012 = ╱33╱3╱ // 0x1ebd @0x12
0x1eab…1ec2 at0013 = ╱f20300╱ // 0x1ebe @0x13
0x1eab…1ec2 at0016 = EOL // 0x1ec1 @0x16
0x1eab…1ec2 }
0x1ec2…1ec9 b4b7 03360 NEXT X
0x1ec2…1ec9 LineComal80 {
0x1ec2…1ec9 ptr = 0xb4b7 // 0x1ec2 @0x0
0x1ec2…1ec9 lno = 0x0d20 // 0x1ec4 @0x2
0x1ec2…1ec9 at0004 = ╱84╱ NEXT ╱ // 0x1ec6 @0x4
0x1ec2…1ec9 at0005 = ╱58╱X╱ // 0x1ec7 @0x5
0x1ec2…1ec9 at0006 = EOL // 0x1ec8 @0x6
0x1ec2…1ec9 }
0x1ec9…1edb b4c9 03370 LET Z := Z + DAG - 1
0x1ec9…1edb LineComal80 {
0x1ec9…1edb ptr = 0xb4c9 // 0x1ec9 @0x0
0x1ec9…1edb lno = 0x0d2a // 0x1ecb @0x2
0x1ec9…1edb at0004 = ╱86╱ LET ╱ // 0x1ecd @0x4
0x1ec9…1edb at0005 = ╱5a╱Z╱ // 0x1ece @0x5
0x1ec9…1edb at0006 = ╱f0╱ := ╱ // 0x1ecf @0x6
0x1ec9…1edb at0007 = ╱5a╱Z╱ // 0x1ed0 @0x7
0x1ec9…1edb at0008 = ╱e5╱ + ╱ // 0x1ed1 @0x8
0x1ec9…1edb at0009 = ╱44╱D╱ // 0x1ed2 @0x9
0x1ec9…1edb at000a = ╱41╱A╱ // 0x1ed3 @0xa
0x1ec9…1edb at000b = ╱47╱G╱ // 0x1ed4 @0xb
0x1ec9…1edb at000c = ╱e6╱ - ╱ // 0x1ed5 @0xc
0x1ec9…1edb at000d = ╱31╱1╱ // 0x1ed6 @0xd
0x1ec9…1edb at000e = ╱f20100╱ // 0x1ed7 @0xe
0x1ec9…1edb at0011 = EOL // 0x1eda @0x11
0x1ec9…1edb }
0x1edb…1ee1 b4cf 03380 ENDIF
0x1edb…1ee1 LineComal80 {
0x1edb…1ee1 ptr = 0xb4cf // 0x1edb @0x0
0x1edb…1ee1 lno = 0x0d34 // 0x1edd @0x2
0x1edb…1ee1 at0004 = ╱9c╱ ENDIF ╱ // 0x1edf @0x4
0x1edb…1ee1 at0005 = EOL // 0x1ee0 @0x5
0x1edb…1ee1 }
0x1ee1…1eed b4db 03390 ENDPROC L[SFIL
0x1ee1…1eed LineComal80 {
0x1ee1…1eed ptr = 0xb4db // 0x1ee1 @0x0
0x1ee1…1eed lno = 0x0d3e // 0x1ee3 @0x2
0x1ee1…1eed at0004 = ╱9f╱ ENDPROC ╱ // 0x1ee5 @0x4
0x1ee1…1eed at0005 = ╱4c╱L╱ // 0x1ee6 @0x5
0x1ee1…1eed at0006 = ╱5b╱[╱ // 0x1ee7 @0x6
0x1ee1…1eed at0007 = ╱53╱S╱ // 0x1ee8 @0x7
0x1ee1…1eed at0008 = ╱46╱F╱ // 0x1ee9 @0x8
0x1ee1…1eed at0009 = ╱49╱I╱ // 0x1eea @0x9
0x1ee1…1eed at000a = ╱4c╱L╱ // 0x1eeb @0xa
0x1ee1…1eed at000b = EOL // 0x1eec @0xb
0x1ee1…1eed }
0x1eed…1efa b4e8 03400 PROC RETURN
0x1eed…1efa LineComal80 {
0x1eed…1efa ptr = 0xb4e8 // 0x1eed @0x0
0x1eed…1efa lno = 0x0d48 // 0x1eef @0x2
0x1eed…1efa at0004 = ╱9e00╱ PROC ╱ // 0x1ef1 @0x4
0x1eed…1efa at0006 = ╱52╱R╱ // 0x1ef3 @0x6
0x1eed…1efa at0007 = ╱45╱E╱ // 0x1ef4 @0x7
0x1eed…1efa at0008 = ╱54╱T╱ // 0x1ef5 @0x8
0x1eed…1efa at0009 = ╱55╱U╱ // 0x1ef6 @0x9
0x1eed…1efa at000a = ╱52╱R╱ // 0x1ef7 @0xa
0x1eed…1efa at000b = ╱4e╱N╱ // 0x1ef8 @0xb
0x1eed…1efa at000c = EOL // 0x1ef9 @0xc
0x1eed…1efa }
0x1efa…1f00 b4ee 03410 PRINT
0x1efa…1f00 LineComal80 {
0x1efa…1f00 ptr = 0xb4ee // 0x1efa @0x0
0x1efa…1f00 lno = 0x0d52 // 0x1efc @0x2
0x1efa…1f00 at0004 = ╱92╱ PRINT ╱ // 0x1efe @0x4
0x1efa…1f00 at0005 = EOL // 0x1eff @0x5
0x1efa…1f00 }
0x1f00…1f0f b4fd 03420 PRINT TAB ( 65 ) ;
0x1f00…1f0f LineComal80 {
0x1f00…1f0f ptr = 0xb4fd // 0x1f00 @0x0
0x1f00…1f0f lno = 0x0d5c // 0x1f02 @0x2
0x1f00…1f0f at0004 = ╱92╱ PRINT ╱ // 0x1f04 @0x4
0x1f00…1f0f at0005 = ╱d2╱ TAB ╱ // 0x1f05 @0x5
0x1f00…1f0f at0006 = ╱ed╱ ( ╱ // 0x1f06 @0x6
0x1f00…1f0f at0007 = ╱36╱6╱ // 0x1f07 @0x7
0x1f00…1f0f at0008 = ╱35╱5╱ // 0x1f08 @0x8
0x1f00…1f0f at0009 = ╱f24100╱ // 0x1f09 @0x9
0x1f00…1f0f at000c = ╱ee╱ ) ╱ // 0x1f0c @0xc
0x1f00…1f0f at000d = ╱ea╱ ; ╱ // 0x1f0d @0xd
0x1f00…1f0f at000e = EOL // 0x1f0e @0xe
0x1f00…1f0f }
0x1f0f…1f1b b509 03430 LET S $ := "-"
0x1f0f…1f1b LineComal80 {
0x1f0f…1f1b ptr = 0xb509 // 0x1f0f @0x0
0x1f0f…1f1b lno = 0x0d66 // 0x1f11 @0x2
0x1f0f…1f1b at0004 = ╱86╱ LET ╱ // 0x1f13 @0x4
0x1f0f…1f1b at0005 = ╱53╱S╱ // 0x1f14 @0x5
0x1f0f…1f1b at0006 = ╱ef╱ $ ╱ // 0x1f15 @0x6
0x1f0f…1f1b at0007 = ╱f0╱ := ╱ // 0x1f16 @0x7
0x1f0f…1f1b at0008 = ╱22╱"╱ // 0x1f17 @0x8
0x1f0f…1f1b at0009 = ╱2d╱-╱ // 0x1f18 @0x9
0x1f0f…1f1b at000a = ╱22╱"╱ // 0x1f19 @0xa
0x1f0f…1f1b at000b = EOL // 0x1f1a @0xb
0x1f0f…1f1b }
0x1f1b…1f32 b520 03440 EDIT "TRYK…-RETURN" : S $
0x1f1b…1f32 LineComal80 {
0x1f1b…1f32 ptr = 0xb520 // 0x1f1b @0x0
0x1f1b…1f32 lno = 0x0d70 // 0x1f1d @0x2
0x1f1b…1f32 at0004 = ╱b1╱ EDIT ╱ // 0x1f1f @0x4
0x1f1b…1f32 at0005 = ╱22╱"╱ // 0x1f20 @0x5
0x1f1b…1f32 at0006 = ╱54╱T╱ // 0x1f21 @0x6
0x1f1b…1f32 at0007 = ╱52╱R╱ // 0x1f22 @0x7
0x1f1b…1f32 at0008 = ╱59╱Y╱ // 0x1f23 @0x8
0x1f1b…1f32 at0009 = ╱4b╱K╱ // 0x1f24 @0x9
0x1f1b…1f32 at000a = ╱20╱…╱ // 0x1f25 @0xa
0x1f1b…1f32 at000b = ╱2d╱-╱ // 0x1f26 @0xb
0x1f1b…1f32 at000c = ╱52╱R╱ // 0x1f27 @0xc
0x1f1b…1f32 at000d = ╱45╱E╱ // 0x1f28 @0xd
0x1f1b…1f32 at000e = ╱54╱T╱ // 0x1f29 @0xe
0x1f1b…1f32 at000f = ╱55╱U╱ // 0x1f2a @0xf
0x1f1b…1f32 at0010 = ╱52╱R╱ // 0x1f2b @0x10
0x1f1b…1f32 at0011 = ╱4e╱N╱ // 0x1f2c @0x11
0x1f1b…1f32 at0012 = ╱22╱"╱ // 0x1f2d @0x12
0x1f1b…1f32 at0013 = ╱f1╱ : ╱ // 0x1f2e @0x13
0x1f1b…1f32 at0014 = ╱53╱S╱ // 0x1f2f @0x14
0x1f1b…1f32 at0015 = ╱ef╱ $ ╱ // 0x1f30 @0x15
0x1f1b…1f32 at0016 = EOL // 0x1f31 @0x16
0x1f1b…1f32 }
0x1f32…1f3e 0000 03450 ENDPROC RETURN
0x1f32…1f3e LineComal80 {
0x1f32…1f3e ptr = 0x0000 // 0x1f32 @0x0
0x1f32…1f3e lno = 0x0d7a // 0x1f34 @0x2
0x1f32…1f3e at0004 = ╱9f╱ ENDPROC ╱ // 0x1f36 @0x4
0x1f32…1f3e at0005 = ╱52╱R╱ // 0x1f37 @0x5
0x1f32…1f3e at0006 = ╱45╱E╱ // 0x1f38 @0x6
0x1f32…1f3e at0007 = ╱54╱T╱ // 0x1f39 @0x7
0x1f32…1f3e at0008 = ╱55╱U╱ // 0x1f3a @0x8
0x1f32…1f3e at0009 = ╱52╱R╱ // 0x1f3b @0x9
0x1f32…1f3e at000a = ╱4e╱N╱ // 0x1f3c @0xa
0x1f32…1f3e at000b = EOL // 0x1f3d @0xb
0x1f32…1f3e }
0x1f3e…1f44 (104,) 95ee 38382 ╱00╱ ╱00╱
0x1f3e…1f44 LineComal80 {
0x1f3e…1f44 ptr = 0x95ee // 0x1f3e @0x0
0x1f3e…1f44 lno = 0x95ee // 0x1f40 @0x2
0x1f3e…1f44 at0004 = ╱00╱ // 0x1f42 @0x4
0x1f3e…1f44 at0005 = ╱00╱ // 0x1f43 @0x5
0x1f3e…1f44 }