|
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: 21077 (0x5255)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cd
Names: »SKAT85«
└─⟦fe8d363bb⟧ Bits:30004640 EASY-Skat 1985 (MIKADOS)
└─⟦this⟧ »SKAT85«
00010 INTEGER X , PR , Y , F8 , FE , G , T0 , T1 , T2 , T3 , T4 , O , W
00015 CLEAR
00020 LET STATUS , G1 , B7 , B8 , U2 , F0 , F7 , T , TKB , TKH , B3 , C0 , BD6 , C6 , F0 , F7 , OV , HS := 0
00025 LET AKT , SKG , D6 , HFORMUE , BFORMUE , B6 , HC3 , BC3 , HATP , BATP , GSLUT , FSLUT , F1 , F2 := 0
00030 LET T0 , T1 , T2 , T3 , T4 , O := 0
00035 DIM A1 $ ( 29 ) OF 29 , A ( 29 ) , H ( 23 ) , K ( 23 ) , LI $ OF 80 , QT $ OF 80 , S $ OF 80
00040 DIM FIL $ OF 15 , PIL $ OF 45 , SP $ OF 40 , REV $ OF 80 , ADR $ OF 80 , HKL $ OF 38
00045 DIM BKL $ OF 38 , NU $ OF 9
00050 LET LI $ := "" ; PIL $ := "" ; SP $ := "" ; NU $ := "#########" ; W := 100 ; GEMAFR := O
00055 LET REV $ := "Revisor…Kaja…Jensen"
00060 LET ADR $ := "Lysholmvej…14,…2650…Hvidovre,…(01)784852"
00065 FOR X := 1 TO 8 DO
00070 LET LI $ := LI $ + "-" ; PIL $ := PIL $ + "." ; SP $ := SP $ + "…"
00075 NEXT X
00080 LET F8 , T4 , G := O ; T2 := 2
00085 LET FIL $ := "dde:skatsys"
00090 OPEN FIL $ , R
00095 GET FIL $ : SYS
00100 CLOSE FIL $
00105 IF YS = 1 THEN
00110 OPEN FIL $ , W
00115 LET SYS := O
00120 PUT FIL $ : SYS
00125 CLOSE FIL $
00130 LET FIL $ := "dde:hskvar"
00135 OPEN FIL $ , R
00140 FOR X := 1 TO 9 DO
00145 GET FIL $ : A ( X )
00150 IF X < 24 THEN GET FIL $ : H ( X ) , K ( X )
00155 NEXT X
00160 GET FIL $ : F8 , T1 , T2 , T4
00165 CLOSE FIL $
00170 LET FIL $ := "dde:fvar"
00175 OPEN FIL $ , R
00180 GET FIL $ : PR , C4 , HD6 , C9 , B0 , T1 , TKH , F6 , F1
00185 GET FIL $ : F9 , P1 , P7 , P8 , P9 , T0 , B2 , B1 , B9
00190 GET FIL $ : T2 , C6 , BD6 , C0 , B3 , E6 , F2 , T3 , TKB
00195 GET FIL $ : F0 , F7 , SKG , AKT , D6 , GSLUT
00200 GET FIL $ : HFORMUE , BFORMUE , HATP , BATP , G , FSLUT
00205 GET FIL $ : HKL $ , BKL $
00210 CLOSE FIL $
00215 EXEC FORTS[T
00220 ELSE
00225 PRINT TAB ( 29 ) ; ">>>…EASY…-…SKAT…<<<"
00230 LET FIL $ := "DDE:skatvejl"
00235 OPEN FIL $ , R
00240 EXEC LFIL
00245 EXEC RETURN
00250 ENDIF
00255 LET X := O
00260 OPEN "dde:skatart" , R
00265 REPEAT
00270 LET X := X + 1
00275 GET "dde:skatart" : A1 $ ( X )
00280 UNTIL ╱cd╱ ( "dde:skatart" ) = 19 OR ╱cd╱ ( "dde:skatart" ) > O OR X = 29
00285 CLOSE
00290 LET E1 := 28 ; F3 := 64000 ; F4 := 70999 ; F5 := 1985 ; P1 := 111300 ; P2 := 182600
00295 LET P3 := 22700 ; P4 := 20300 ; P5 := 43900 ; P6 := 24000 ; P0 := 3.5 ; PA0 := 2
00300 LET U1 := .9 ; U2 := 1229200 ; M1 := 112700
00305 REPEAT
00310 REPEAT
00315 LABEL START :
00320 LET E8 , E9 , E6 , C5 , B9 , AR , BD1 , BD2 , BDA2 , BD3 , BD4 , BD5 , BD6 , E4 , E7 , E5 , D8 , E2 := O
00325 IF T4 = 1 THEN LET T2 := 1
00330 IF F8 >< 1 THEN EXEC NULSTIL2
00335 IF F8 = 1 THEN EXEC S[TATILH
00340 REPEAT
00345 REPEAT
00350 LET FE := O ; QT $ := "…HOVEPERSONEN…" ; A ( 24 ) := HFORMUE
00355 EXEC INDKOMST
00360 LET HFORMUE := B6 ; A ( 24 ) := O
00365 EXEC FEJLMED
00370 EXEC FEJL
00375 UNTIL FE >< 1
00380 LET F6 := A ( 12 ) ; F9 := A ( 11 ) * ( 30 / W )
00385 EXEC S[THTILA
00390 EXEC REGN1
00395 IF >< 1 THEN
00400 PRINT "Er…hovedpersonen…tilkendt…enke-,…folke-…eller…invalidepension,"
00405 PRINT "dvs.…har…ret…til…personfradrag…som…pensionist" ;
00410 EXEC SVAR
00415 LET T1 := O
00420 IF $ = "j" THEN
00425 LET T1 := 2
00430 PRINT "Er…hovedpersonen…fyldt…67…}r…ved…indkomst}rets…begyndelse" ;
00435 EXEC SVAR
00440 IF S $ = "j" THEN LET T1 := 1
00445 ENDIF
00450 ENDIF
00455 IF 1 = 1 THEN
00460 IF G = 1 THEN LET ATP := HATP
00465 EXEC INDATP
00470 LET HC3 := C3 + C5 ; HATP := ATP
00475 ENDIF
00480 LET B0 := A ( 1 ) ; B1 := C1 ; B2 := C2 ; C4 := C7 ; PR := O ; C3 := O
00485 IF T1 = 1 THEN LET C3 := HC3
00490 EXEC SKATIND
00495 PRINT
00500 PRINT "\nskes…rettelser…til…ovenst}ende" ;
00505 EXEC SVAR
00510 CLEAR
00515 UNTIL S $ = "n"
00520 IF >< 1 THEN
00525 PRINT "Skal…der…foretages…beregning…af…en…{gtef{lle…(gift…kvinde)" ;
00530 EXEC SVAR
00535 EXEC NULSTIL2
00540 LET T2 := O
00545 IF $ = "j" THEN
00550 PRINT "Har…{gtef{llerne…v{ret…gift…hele…kalender}ret" ;
00555 EXEC SVAR
00560 LET T2 := 2 ; T4 := O
00565 IF S $ = "j" THEN LET T2 := 1 ; T4 := 1
00570 IF F8 = 1 THEN EXEC S[TATILK
00575 ENDIF
00580 ELSE
00585 IF 2 >< O THEN
00590 EXEC NULSTIL2
00595 IF F8 = 1 THEN EXEC S[TATILK
00600 ENDIF
00605 ENDIF
00610 IF 2 >< O THEN
00615 REPEAT
00620 REPEAT
00625 LET FE := O ; QT $ := "…DEN…GIFTE…KVINDE…" ; A ( 24 ) := BFORMUE
00630 EXEC INDKOMST
00635 LET BFORMUE := B6 ; A ( 24 ) := O
00640 EXEC FEJLMED
00645 EXEC FEJL
00650 UNTIL FE >< 1
00655 LET F7 := A ( 12 ) ; F0 := A ( 11 ) * ( 30 / W )
00660 EXEC S[TKTILA
00665 EXEC REGN1
00670 EXEC TTEST
00675 EXEC FEJL
00680 IF E = 1 THEN
00685 LET FE := O ; F8 := 1
00690 GOTO START
00695 ENDIF
00700 IF >< 1 THEN
00705 PRINT "Er…den…gifte…kvinde…tilkendt…enke-,…folke-…eller…invalidepension"
00710 PRINT "dvs.…har…ret…til…personfradrag…som…pensionist" ;
00715 EXEC SVAR
00720 LET T3 := O
00725 IF $ = "j" THEN
00730 LET T3 := 2
00735 PRINT "Er…den…gifte…kvinde…fyldt…67…}r…ved…indkomst}rets…begyndelse" ;
00740 EXEC SVAR
00745 IF S $ = "j" THEN LET T3 := 1
00750 ENDIF
00755 ENDIF
00760 IF 3 = 1 THEN
00765 IF G = 1 THEN LET ATP := BATP
00770 EXEC INDATP
00775 LET BC3 := C3 + C5 ; BATP := ATP
00780 ENDIF
00785 LET B3 := A ( 1 ) ; B4 := C1 ; B5 := C2 ; C6 := C7 ; PR := O
00790 IF C6 < O THEN LET C6 := O
00795 LET C3 := O
00800 IF T3 = 1 THEN LET C3 := BC3
00805 EXEC SKATIND
00810 PRINT
00815 PRINT "\nskes…rettelser…til…ovenst}ende" ;
00820 EXEC SVAR
00825 CLEAR
00830 UNTIL S $ = "n"
00835 ENDIF
00840 IF C4 < O THEN LET C4 := O
00845 IF T2 = O THEN EXEC FORMUE
00850 IF T2 >< O THEN EXEC [FORMUE
00855 IF >< 1 THEN
00860 INPUT "Skriv…kommuneskatteprocent:…" : P7
00865 PRINT LI $
00870 INPUT "Skriv…den…amtskommunale…skatteprocent:…" : P8
00875 PRINT LI $
00880 INPUT "Skriv…kirkeskatteprocenten:…" : P9
00885 PRINT LI $
00890 PRINT "\nskes…klientens…navn…anvendt…i…opg|relsen…i…stedet…for…HOVED" ;
00895 PRINT "PERSONEN…og…GIFT"
00900 PRINT "KVINDE" ;
00905 EXEC SVAR
00910 LET HKL $ := "HOVEDPERSONEN" ; BKL $ := "DEN…GIFTE…KVINDE"
00915 IF $ = "j" THEN
00920 INPUT "Skriv…hovedpersonens…navn…………" : HKL $
00925 IF T2 >< O THEN INPUT "Skriv…den…gifte…kvindes…navn…" : BKL $
00930 PRINT LI $
00935 ENDIF
00940 ENDIF
00945 IF T2 = 1 THEN EXEC REGN3
00950 IF 2 >< 1 THEN
00955 EXEC REGN4
00960 IF T2 = 2 THEN EXEC REGN5
00965 ELSE
00970 EXEC REGN6
00975 ENDIF
00980 EXEC REGN7
00985 IF T2 = O AND B7 > U2 + 99 THEN EXEC REGN8
00990 IF T4 = 1 AND B7 + B8 > U2 + 99 THEN EXEC REGN9
00995 IF 2 = 2 AND T4 = O AND B7 > U2 + 99 THEN
01000 EXEC REGN8
01005 LET HB9 := B9 ; HB7 := B7
01010 ENDIF
01015 IF 2 = 2 AND T4 = O AND B8 > U2 + 99 THEN
01020 LET B7 := B8
01025 EXEC REGN8
01030 LET E6 := B9 ; B9 := HB9 ; B7 := HB7
01035 ENDIF
01040 PRINT "\nskes…der…print…af…beregningerne" ;
01045 EXEC SVAR
01050 LET PR := O
01055 IF S $ = "j" THEN LET PR := 1
01060 FOR Y := 1 TO R + 1 DO
01065 IF Y = 2 THEN OUTPUT "P"
01070 EXEC SIDESKIFT
01075 EXEC S[TATILH
01080 LET QT $ := "INDKOMSTOPG\RELSE…FOR…" + HKL $ + ":"
01085 LET C3 := O
01090 IF T1 = 1 THEN LET C3 := HC3
01095 LET C1 := B1 ; C2 := B2 ; B6 := HFORMUE
01100 EXEC SKATIND
01105 EXEC SKIFT
01110 EXEC REGN10
01115 EXEC SKAT
01120 EXEC INDSKAT
01125 LET FS := B9
01130 EXEC FSKAT
01135 EXEC SIDESKIFT
01140 IF 2 >< O THEN
01145 EXEC S[TATILK
01150 LET QT $ := "INDKOMSTOPG\RELSE…FOR…" + BKL $ + ":"
01155 LET C3 := O
01160 IF T3 = 1 THEN LET C3 := BC3
01165 LET C1 := B4 ; C2 := B5 ; B6 := BFORMUE
01170 EXEC SKATIND
01175 EXEC SKIFT
01180 EXEC REGN22
01185 EXEC SKAT
01190 EXEC INDSKAT
01195 LET FS := E6
01200 EXEC FSKAT
01205 EXEC SIDESKIFT
01210 ENDIF
01215 EXEC SKATPRO
01220 EXEC SKIFT
01225 NEXT Y
01230 OUTPUT "T"
01235 PRINT LI $
01240 PRINT "\nskes…beregning…af…forskudsregistrering,…d.v.s…skattekort…" ;
01245 PRINT "m.v." ;
01250 EXEC SVAR
01255 IF $ = "j" THEN
01260 PRINT "***…VENT…****…FORSKUDSREGISTREINGS…PROGRAMMET…INDL[SES…***"
01265 EXEC PROGRAMSKIFT
01270 CHAIN "dde:forsk85"
01275 ENDIF
01280 PRINT "\nskes…}rsopg|relse…udskrevet" ;
01285 EXEC SVAR
01290 IF $ = "j" THEN
01295 PRINT "***…VENT…****…]RSOPG\RELSES…PROGRAMMET…INDL[SES…***"
01300 EXEC PROGRAMSKIFT
01305 CHAIN "DDE:]RSOP85"
01310 ENDIF
01315 EXEC FORTS[T
01320 UNTIL F8 >< 1
01325 LET T2 := 2 ; T4 := O ; GSLUT , HFORMUE , BFORMUE := O
01330 UNTIL 1 >< 1
01335 PROC PROGRAMSKIFT
01340 LET FIL $ := "dde:fvar"
01345 OPEN FIL $ , W
01350 PUT FIL $ : PR , C4 , HD6 , C9 , B0 , T1 , TKH , F6 , F1
01355 PUT FIL $ : F9 , P1 , P7 , P8 , P9 , T0 , B2 , B1 , B9
01360 PUT FIL $ : T2 , C6 , BD6 , C0 , B3 , E6 , F2 , T3 , TKB
01365 PUT FIL $ : F0 , F7 , SKG , AKT , D6 , GSLUT
01370 PUT FIL $ : HFORMUE , BFORMUE , HATP , BATP , G , FSLUT
01375 PUT FIL $ : HKL $ , BKL $
01380 CLOSE FIL $
01385 LET FIL $ := "dde:hskvar"
01390 OPEN FIL $ , W
01395 FOR X := 1 TO 9 DO
01400 PUT FIL $ : A ( X )
01405 IF X < 24 THEN PUT FIL $ : H ( X ) , K ( X )
01410 NEXT X
01415 PUT FIL $ : F8 , T1 , T2 , T4
01420 CLOSE FIL $
01425 ENDPROC PROGRAMSKIFT
01430 PROC FORTS[T
01435 CLEAR
01440 PRINT "***…BEREGNINGEN…ER…GENNEMF\RT…***…\nskes…de…indtastede"
01445 PRINT "indkomster/fradrag…bevaret…til…en…ny…beregning" ;
01450 EXEC SVAR
01455 LET G , F8 := O ; FSLUT := O
01460 IF $ = "j" THEN
01465 LET F8 := 1 ; FSLUT := 1
01470 PRINT "\nskes…alle…andre…foruds{tninger…for…beregningerne…bevaret" ;
01475 EXEC SVAR
01480 IF S $ = "j" THEN LET G := 1
01485 ENDIF
01490 ENDPROC FORTS[T
01495 PROC REGN20
01500 LET HD1 := D1 ; HD2 := D2 ; HDA2 := DA2 ; HD3 := D3 ; HD4 := D4 ; HD5 := D5 ; HD6 := D6
01505 ENDPROC REGN20
01510 PROC REGN10
01515 LET D1 := HD1 ; D2 := HD2 ; DA2 := HDA2 ; D3 := HD3 ; D4 := HD4 ; D5 := HD5 ; D6 := HD6
01520 ENDPROC REGN10
01525 PROC REGN21
01530 LET BD1 := D1 ; BD2 := D2 ; BDA2 := DA2 ; BD3 := D3 ; BD4 := D4 ; BD5 := D5 ; BD6 := D6
01535 ENDPROC REGN21
01540 PROC REGN22
01545 LET D1 := BD1 ; D2 := BD2 ; DA2 := BDA2 ; D3 := BD3 ; D4 := BD4 ; D5 := BD5 ; D6 := BD6
01550 ENDPROC REGN22
01555 PROC LFIL
01560 REPEAT
01565 GET FIL $ : S $
01570 IF ╱cd╱ ( FIL $ ) = O THEN PRINT S $
01575 UNTIL ╱cd╱ ( FIL $ ) = 19
01580 CLOSE FIL $
01585 ENDPROC LFIL
01590 PROC SK[RM
01595 LET A1 $ ( 24 ) := "24.…FORMUE…" + PIL $ ( 1 : 18 )
01600 FOR X := 1 TO 2 DO
01605 PRINT A1 $ ( X ) ;
01610 IF A ( X ) >< O THEN PRINT USING NU $ : A ( X ) ;
01615 PRINT TAB ( 42 ) ; A1 $ ( X + 12 ) ;
01620 IF A ( X + 12 ) >< O THEN PRINT USING NU $ : A ( X + 12 ) ;
01625 PRINT
01630 NEXT X
01635 ENDPROC SK[RM
01640 PROC INDKOMST
01645 CLEAR
01650 PRINT TAB ( 29 ) ; ">>>…EASY…-…SKAT…<<<"
01655 PRINT TAB ( 20 ) ; "***…INDDATERING…TIL…" ; QT $ ; "…***"
01660 PRINT "Nr.…Indkomst" ; TAB ( 33 ) ; "Bel|b" ; TAB ( 42 ) ; "Nr.…Fradrag" ; TAB ( 74 ) ;
01665 PRINT "Bel|b"
01670 PRINT
01675 EXEC SK[RM
01680 REPEAT
01685 REPEAT
01690 LET B6 := A ( 24 )
01695 CURSOR 1 , 20
01700 INPUT "Skriv…nummer…p}…indkomst/fradrag…(1…til…24,…0…for…slut)…---->…" : N
01705 IF N > 24 THEN PRINT "***…Nummeret…skal…v{re…fra…1…til…24…***" ; CHR$ ( 7 )
01710 UNTIL N < 25
01715 IF = 2 OR N = 8 OR N = 18 OR N = 19 THEN
01720 EXEC WIN
01725 ELSE
01730 IF >< O THEN
01735 PRINT "Skriv…bel|bets…st|relse…" + LI $ ( 1 : 36 ) + ">" ;
01740 INPUT "…" : A ( N )
01745 IF = 11 THEN
01750 LET A ( 12 ) := INT ( A ( 11 ) * 25 / W )
01755 CURSOR 30 , 16
01760 PRINT USING NU $ : A ( 12 )
01765 ENDIF
01770 ENDIF
01775 ENDIF
01780 CURSOR 1 , 17
01785 FOR X := 1 TO 2 DO
01790 PRINT SP $ ;
01795 NEXT X
01800 IF >< O THEN
01805 IF N > 12 THEN CURSOR 71 , N - 8
01810 IF N =< 12 THEN CURSOR 30 , N + 4
01815 IF ( N ) >< O THEN
01820 PRINT USING NU $ : A ( N )
01825 ELSE
01830 PRINT SP $ ( 1 : 9 )
01835 ENDIF
01840 ENDIF
01845 UNTIL N = O
01850 CLEAR
01855 ENDPROC INDKOMST
01860 PROC REGN1
01865 LET C1 := A ( 1 ) + A ( 2 ) + A ( 4 ) - A ( 5 ) - A ( 7 ) + A ( 6 ) + A ( 9 ) + A ( 10 ) - A ( 14 ) - A ( 18 ) + A ( 15 ) - A ( 16 )
01870 LET C1 := C1 + A ( 17 ) - A ( 22 ) - A ( 23 )
01875 LET C2 := A ( 3 ) + A ( 5 ) + A ( 7 ) - A ( 9 ) + A ( 12 ) + A ( 11 ) - A ( 15 ) - A ( 13 ) - A ( 17 ) - A ( 19 ) - A ( 20 ) - A ( 21 )
01880 LET C2 := C2 + A ( 22 ) + A ( 8 ) ; C7 := C1 + C2
01885 ENDPROC REGN1
01890 PROC INDATP
01895 LET C3 := A ( 8 ) - A ( 9 ) - A ( 21 ) + A ( 22 )
01900 IF C3 < O THEN LET C3 := O
01905 IF >< 1 THEN
01910 PRINT "Skriv…st|rrelsen…p}…modtaget…ATP-bel|b…til…brug…for…"
01915 INPUT "rentenedslag…(evt,…0):…" : ATP
01920 PRINT LI $
01925 ENDIF
01930 LET C3 := C3 + ATP ; C3 := C3 * 30 / W
01935 IF C3 > 3500 THEN LET C3 := 3500
01940 IF C7 > F3 + 99 THEN LET C3 := C3 - ( ( INT ( C7 / W ) * W ) - F3 ) / 2
01945 IF C3 < O THEN LET C3 := O
01950 LET C3 := INT ( C3 + .9 ) ; C5 := O
01955 IF C3 > A ( 8 ) - A ( 9 ) THEN LET C5 := C3 - A ( 8 ) + A ( 9 )
01960 LET C3 := C3 - C5 ; C2 := C2 - C3 ; C1 := C1 - C5 ; C7 := C1 + C2
01965 ENDPROC INDATP
01970 PROC FEJLMED
01975 LET FE := O
01980 PRINT "FEJLMEDDELELSER:"
01985 IF A ( 9 ) > A ( 8 ) THEN EXEC FEJL1 ( 1 )
01990 IF A ( 5 ) > A ( 4 ) THEN EXEC FEJL1 ( 2 )
01995 IF A ( 7 ) > A ( 6 ) THEN EXEC FEJL1 ( 3 )
02000 IF A ( 15 ) > A ( 14 ) THEN EXEC FEJL1 ( 4 )
02005 IF A ( 17 ) > A ( 16 ) THEN EXEC FEJL1 ( 5 )
02010 IF A ( 23 ) > A ( 6 ) * 50 / W THEN EXEC FEJL1 ( 6 )
02015 IF ( 23 ) > M1 THEN
02020 LET FE := 1
02025 PRINT "Medarbejdende…{gtef{llefradrag…er…for…stor.…M}…h|jst…udg|re" ; M1 ;
02030 PRINT "."
02035 PRINT
02040 ENDIF
02045 IF A ( 12 ) > A ( 11 ) * 25 / W THEN EXEC FEJL1 ( 7 )
02050 IF A ( 22 ) > A ( 21 ) THEN EXEC FEJL1 ( 8 )
02055 IF A ( 9 ) > O OR A ( 22 ) > O ) AND A ( 4 ) - A ( 5 ) = O AND A ( 6 ) - A ( 7 ) = O THEN
02060 IF A ( 14 ) - A ( 15 ) = O AND A ( 16 ) - A ( 17 ) = O THEN EXEC FEJL1 ( 9 )
02065 ENDIF
02070 ENDPROC FEJLMED
02075 PROC FEJL1 ( [ )
02080 LET FIL $ := "dde:skfejl" ; FE := 1
02085 OPEN FIL $ , R
02090 FOR \ := 1 TO DO
02095 FOR Q := 1 TO DO
02100 GET FIL $ : S $
02105 IF ╱cb╱ ( S $ ) > 2 AND [ = \ AND ╱cd╱ ( FIL $ ) < 19 THEN PRINT S $
02110 NEXT Q
02115 NEXT \
02120 CLOSE FIL $
02125 ENDPROC FEJL1
02130 PROC FEJL
02135 IF E = O THEN
02140 PRINT "Ingen…}benbare…fejl…fundet."
02145 PRINT LI $
02150 ELSE
02155 PRINT "Skal…der…foretages…rettelser" ;
02160 EXEC SVAR
02165 IF S $ = "n" THEN LET FE := O
02170 PRINT LI $
02175 ENDIF
02180 ENDPROC FEJL
02185 PROC TTEST
02190 PRINT "TOTALTEST:"
02195 IF ( 23 ) >< H ( 10 ) OR A ( 10 ) >< H ( 23 ) THEN
02200 LET FE := 1
02205 PRINT "Medarbejdende…{gtef{lleindkomst…er…ikke…lig…med…medarbejdende…"
02210 PRINT "{gtef{llefradrag."
02215 PRINT
02220 ENDIF
02225 IF C4 > O AND C7 < O THEN LET FIL $ := "dde:skatfejb" ; FE := 1
02230 IF C4 < O AND C7 > O THEN LET FIL $ := "dde:skatfejh" ; FE := 1
02235 IF IL $ ( 9 : 3 ) = "fej" AND FE = 1 THEN
02240 OPEN FIL $ , R
02245 EXEC LFIL
02250 LET QT $ := "Det…negative…bel|b…udg|r…" ; QB := C7
02255 EXEC LSKRIV2
02260 PRINT
02265 ENDIF
02270 ENDPROC TTEST
02275 PROC NULSTIL2
02280 FOR X := 1 TO 3 DO
02285 LET A ( X ) := O
02290 NEXT X
02295 ENDPROC NULSTIL2
02300 PROC S[TATILH
02305 FOR X := 1 TO 3 DO
02310 LET A ( X ) := H ( X )
02315 NEXT X
02320 ENDPROC S[TATILH
02325 PROC S[TATILK
02330 FOR X := 1 TO 3 DO
02335 LET A ( X ) := K ( X )
02340 NEXT X
02345 ENDPROC S[TATILK
02350 PROC S[THTILA
02355 FOR X := 1 TO 3 DO
02360 LET H ( X ) := A ( X )
02365 NEXT X
02370 ENDPROC S[THTILA
02375 PROC S[TKTILA
02380 FOR X := 1 TO 3 DO
02385 LET K ( X ) := A ( X )
02390 NEXT X
02395 ENDPROC S[TKTILA
02400 PROC SKATIND
02405 LET S $ := NU $ + "…KR."
02410 EXEC LSKRIV3
02415 PRINT
02420 LET C7 , C7IK , C7FR := O
02425 FOR X := 1 TO 2 DO
02430 PRINT A1 $ ( X , 5 : 25 ) ;
02435 IF A ( X ) >< O THEN PRINT USING S $ : A ( X ) ;
02440 IF < 12 THEN
02445 PRINT TAB ( 41 ) ; A1 $ ( X + 12 , 5 : 25 ) ;
02450 IF A ( X + 12 ) >< O THEN PRINT USING S $ : A ( X + 12 ) ;
02455 ELSE
02460 IF 3 > O THEN
02465 PRINT TAB ( 41 ) ; "RENTEINDT[GTSNEDSLAG…...." ;
02470 PRINT USING S $ : C3 ;
02475 ENDIF
02480 ENDIF
02485 PRINT
02490 NEXT X
02495 FOR X := 1 TO 3 DO
02500 IF >< 5 AND X >< 7 AND X >< 9 AND X >< 15 AND X >< 17 AND X >< 22 THEN
02505 IF X =< 12 THEN LET C7IK := C7IK + A ( X )
02510 IF X > 12 THEN LET C7FR := C7FR + A ( X )
02515 ENDIF
02520 NEXT X
02525 LET QT $ := SP $ ( 1 : 25 ) + LI $ ( 1 : 12 ) + SP $ ( 1 : 29 ) + LI $ ( 1 : 12 )
02530 EXEC LSKRIV3
02535 PRINT "INDKOMST…IALT…" ; PIL $ ( 1 : 11 ) ;
02540 PRINT USING S $ : C7IK ;
02545 PRINT TAB ( 41 ) ; "FRADRAG…IALT…" ; PIL $ ( 1 : 12 ) ;
02550 PRINT USING S $ : C7FR
02555 LET QT $ := SP $ ( 1 : 25 ) + "============" + SP $ ( 1 : 29 ) + "============"
02560 EXEC LSKRIV3
02565 PRINT
02570 PRINT "ARBEJDSINDKOMST…" ; PIL $ ( 1 : 9 ) ;
02575 PRINT USING S $ : C1 ;
02580 PRINT TAB ( 41 ) ; "FORMUEINDKOMST…" ; PIL $ ( 1 : 10 ) ;
02585 PRINT USING S $ : C2
02590 LET C7 := C1 + C2
02595 PRINT "SKATTEPLIGTIG…INDKOMST…" ; PIL $ ( 1 : 42 ) ;
02600 PRINT USING S $ : C7
02605 PRINT "SKATTEPLIGTIG…FORMUE…" ; PIL $ ( 1 : 44 ) ;
02610 PRINT USING S $ : B6
02615 ENDPROC SKATIND
02620 PROC FORMUE
02625 LET B7 := HFORMUE
02630 IF B7 < U2 + 99 THEN LET B7 := O
02635 ENDPROC FORMUE
02640 PROC [FORMUE
02645 LET B7 := HFORMUE ; B8 := BFORMUE
02650 IF T4 = 1 AND B7 + B8 < U2 + 99 THEN LET B7 := O ; B8 := O
02655 IF T4 = O AND B7 < U2 + 99 THEN LET B7 := O
02660 IF T4 = O AND B8 < U2 + 99 THEN LET B8 := O
02665 ENDPROC [FORMUE
02670 PROC REGN3
02675 IF B1 < O THEN LET B2 := B2 + B1 ; B1 := O
02680 IF B4 < O THEN LET B5 := B5 + B4 ; B4 := O
02685 IF 1 = B4 THEN
02690 IF B2 >= B5 THEN LET T0 := 1
02695 IF B2 < B5 THEN LET T0 := 2
02700 ELSE
02705 IF 1 > B4 THEN
02710 LET T0 := 1
02715 IF B5 < O AND ABS ( B5 ) > C4 THEN EXEC REGN23
02720 ELSE
02725 LET T0 := 2
02730 IF B2 < O AND ABS ( B2 ) > C6 THEN EXEC REGN24
02735 ENDIF
02740 ENDIF
02745 IF ( T0 = 1 AND ABS ( B5 ) =< 1000 ) OR ( T0 = 2 AND ABS ( B2 ) =< 1000 ) THEN LET T2 := 2
02750 ENDPROC REGN3
02755 PROC REGN23
02760 LET E4 := B5 + C4 ; B5 := B5 - E4 ; B4 := B4 + E4
02765 ENDPROC REGN23
02770 PROC REGN24
02775 LET E4 := B2 + C6 ; B2 := B2 - E4 ; B1 := B1 + E4
02780 ENDPROC REGN24
02785 PROC REGN25
02790 LET C7 := INT ( C7 / W ) * W
02795 IF 7 =< P1 OR C7 =< P2 THEN
02800 LET D1 := C7 * 16 / W * U1
02805 IF C7 > P1 THEN LET D1 := ( ( C7 - P1 ) * 32 / W * U1 ) + ( P1 * 16 / W * U1 )
02810 ELSE
02815 LET D1 := ( ( C7 - P2 ) * 44 / W * U1 ) + ( ( P2 - P1 ) * 32 / W * U1 ) + ( P1 * 16 / W * U1 )
02820 IF P7 + P8 > E1 THEN LET D1 := D1 - ( ( C7 - P2 ) * ( P7 + P8 - E1 ) / W )
02825 ENDIF
02830 ENDPROC REGN25
02835 PROC REGN26
02840 LET D2 := C7 * P0 / W
02845 ENDPROC REGN26
02850 PROC REGN27
02855 LET DA2 := C7 * PA0 / W
02860 ENDPROC REGN27
02865 PROC REGN28
02870 LET D3 := C7 * P7 / W
02875 ENDPROC REGN28
02880 PROC REGN29
02885 LET D4 := C7 * P8 / W
02890 ENDPROC REGN29
02895 PROC REGN30
02900 LET D5 := C7 * P9 / W
02905 ENDPROC REGN30
02910 PROC REGN31
02915 LET D0 := D1 + D2 + DA2 + D3 + D4 + D5
02920 ENDPROC REGN31
02925 PROC REGN32
02930 LET D1 := D1 - ( C8 * 16 / W * U1 )
02935 ENDPROC REGN32
02940 PROC REGN33
02945 LET D2 := D2 - ( C8 * P0 / W ) ; D2AFR := D2 - INT ( D2 ) ; D2 := INT ( D2 )
02950 ENDPROC REGN33
02955 PROC REGN34
02960 LET DA2 := DA2 - ( C8 * PA0 / W ) ; D2AFR := DA2 - INT ( DA2 ) ; DA2 := INT ( DA2 )
02965 ENDPROC REGN34
02970 PROC REGN35
02975 LET D3 := D3 - ( C8 * P7 / W )
02980 ENDPROC REGN35
02985 PROC REGN36
02990 LET D4 := D4 - ( C8 * P8 / W )
02995 ENDPROC REGN36
03000 PROC REGN37
03005 LET D5 := D5 - ( C8 * P9 / W )
03010 ENDPROC REGN37
03015 PROC REGN38
03020 LET D6 := D1 + D2 + DA2 + D3 + D4 + D5
03025 ENDPROC REGN38
03030 PROC REGN6
03035 LET C7 := ( INT ( C6 / W ) * W ) + B2
03040 IF T0 = 1 THEN LET C7 := ( INT ( C4 / W ) * W ) + B5
03045 LET D8 := C7
03050 EXEC REGN25
03055 LET E2 := D1 ; C7 := C6
03060 IF T0 = 1 THEN LET C7 := C4
03065 EXEC REGN25
03070 LET E2 := E2 - D1
03075 EXEC REGN51
03080 IF 0 = 1 THEN
03085 EXEC KIRKE
03090 ELSE
03095 EXEC GKIRKE
03100 ENDIF
03105 LET D5 := O
03110 IF ( T0 = 1 AND TKH = 1 ) OR ( T0 = 2 AND TKB = 1 ) THEN EXEC REGN30
03115 EXEC REGN31
03120 EXEC REGN39
03125 EXEC REGN50
03130 IF 0 = 1 THEN
03135 EXEC REGN20
03140 LET C9 := D0 ; D7 := D6 ; C7 := INT ( B5 / W ) * W
03145 ELSE
03150 EXEC REGN21
03155 LET C0 := D0 ; D9 := D6 ; C7 := INT ( B2 / W ) * W
03160 ENDIF
03165 EXEC REGN51
03170 IF 0 = 1 THEN
03175 EXEC GKIRKE
03180 ELSE
03185 EXEC KIRKE
03190 ENDIF
03195 LET D5 := O
03200 IF ( T0 = 2 AND TKH = 1 ) OR ( T0 = 1 AND TKB = 1 ) THEN EXEC REGN30
03205 LET C7 := B1
03210 IF T0 = 1 THEN LET C7 := B4
03215 EXEC REGN25
03220 LET AR := D1 ; D1 := D1 + E2 ; E8 := D2
03225 EXEC REGN26
03230 LET AR := AR + D2 ; D2 := D2 + E8 ; E8 := DA2
03235 EXEC REGN27
03240 LET AR := AR + DA2 ; DA2 := DA2 + E8 ; E8 := D3
03245 EXEC REGN28
03250 LET AR := AR + D3 ; D3 := D3 + E8 ; E8 := D4
03255 EXEC REGN29
03260 LET AR := AR + D4 ; D4 := D4 + E8
03265 IF 5 >< O THEN
03270 LET E8 := D5
03275 EXEC REGN30
03280 LET AR := AR + D5 ; D5 := D5 + E8
03285 ENDIF
03290 LET E8 := O
03295 EXEC REGN31
03300 EXEC REGN42
03305 EXEC REGN32
03310 EXEC REGN33
03315 LET GEMAFR := D2AFR
03320 EXEC REGN34
03325 LET GEMAFR := GEMAFR + D2AFR
03330 EXEC REGN40
03335 EXEC REGN35
03340 EXEC REGN36
03345 IF 5 > O THEN
03350 EXEC REGN37
03355 ELSE
03360 IF C8 > C7 THEN LET D5 := D5 - ( ( C8 - C7 ) * P9 / W )
03365 ENDIF
03370 EXEC REGN38
03375 IF 0 = 1 THEN
03380 EXEC REGN21
03385 LET C0 := D0 ; D9 := D6
03390 ELSE
03395 EXEC REGN20
03400 LET C9 := D0 ; D7 := D6
03405 ENDIF
03410 ENDPROC REGN6
03415 PROC KIRKE
03420 IF >< 1 THEN
03425 PRINT "Er…hovedpersonen…medlem…af…folkekirken" ;
03430 EXEC SVAR
03435 LET TKH := O
03440 IF S $ = "j" THEN LET TKH := 1
03445 ENDIF
03450 ENDPROC KIRKE
03455 PROC GKIRKE
03460 IF >< 1 THEN
03465 PRINT "Er…den…gifte…kvinde…medlem…af…folkekirken" ;
03470 EXEC SVAR
03475 LET TKB := O
03480 IF S $ = "j" THEN LET TKB := 1
03485 ENDIF
03490 ENDPROC GKIRKE
03495 PROC REGN39
03500 LET C8 := P3
03505 IF T0 = 1 AND T1 >< O THEN LET C8 := P6
03510 IF T0 = 2 AND T3 >< O THEN LET C8 := P6
03515 ENDPROC REGN39
03520 PROC REGN40
03525 IF C8 = P3 THEN LET C8 := P4
03530 ENDPROC REGN40
03535 PROC REGN42
03540 LET C8 := P3
03545 IF T0 = 1 AND T3 >< O THEN LET C8 := P6
03550 IF T0 = 2 AND T1 >< O THEN LET C8 := P6
03555 ENDPROC REGN42
03560 PROC REGN4
03565 LET C7 := C4
03570 EXEC REGN25
03575 EXEC REGN51
03580 EXEC KIRKE
03585 LET D5 := O
03590 IF TKH = 1 THEN EXEC REGN30
03595 EXEC REGN31
03600 IF T2 = O AND T1 >< O THEN LET C8 := P5
03605 IF T2 = 2 AND T1 >< O THEN LET C8 := P6
03610 IF T1 = O THEN LET C8 := P3
03615 EXEC REGN50
03620 EXEC REGN20
03625 LET C9 := D0 ; D7 := D6
03630 ENDPROC REGN4
03635 PROC REGN5
03640 LET C7 := C6
03645 EXEC REGN25
03650 EXEC REGN51
03655 EXEC GKIRKE
03660 LET D5 := O
03665 IF TKB = 1 THEN EXEC REGN30
03670 EXEC REGN31
03675 LET C8 := P6
03680 IF T3 = O THEN LET C8 := P3
03685 EXEC REGN50
03690 EXEC REGN21
03695 LET C0 := D0 ; D9 := D6
03700 ENDPROC REGN5
03705 PROC REGN7
03710 IF HD1 + HD2 + HDA2 < 0 AND HD3 + HD4 + HD5 > 0 THEN EXEC MSSIKS
03715 IF 2 = O THEN
03720 LET HD6 := HD1 + HD2 + HDA2 + HD3 + HD4 + HD5
03725 IF HD6 =< O THEN LET HD1 := O ; HD2 := O ; HDA2 := O ; HD3 := O ; HD4 := O ; HD5 := O ; HD6 := O
03730 ELSE
03735 IF HD1 + HD2 + HDA2 < 0 AND HD3 + HD4 + HD5 > 0 THEN EXEC MSSIKS1
03740 IF D1 < O THEN
03745 LET BD1 := BD1 + HD1 ; HD1 := O
03750 IF BD1 < O THEN LET BD1 := O
03755 ENDIF
03760 IF D2 < O THEN
03765 LET BD2 := BD2 + HD2 ; HD2 := O
03770 IF BD2 < O THEN LET BD2 := O
03775 ENDIF
03780 IF DA2 < O THEN
03785 LET BDA2 := BDA2 + HDA2 ; HDA2 := O
03790 IF BDA2 < O THEN LET BDA2 := O
03795 ENDIF
03800 IF D3 < O THEN
03805 LET BD3 := BD3 + HD3 ; HD3 := O
03810 IF BD3 < O THEN LET BD3 := O
03815 ENDIF
03820 IF D4 < O THEN
03825 LET BD4 := BD4 + HD4 ; HD4 := O
03830 IF BD4 < O THEN LET BD4 := O
03835 ENDIF
03840 IF D5 < O THEN
03845 LET BD5 := BD5 + HD5 ; HD5 := O
03850 IF BD5 < O THEN LET BD5 := O
03855 ENDIF
03860 IF D1 < O THEN
03865 LET HD1 := HD1 + BD1 ; BD1 := O
03870 IF HD1 < O THEN LET HD1 := O
03875 ENDIF
03880 IF D2 < O THEN
03885 LET HD2 := HD2 + BD2 ; BD2 := O
03890 IF HD2 < O THEN LET HD2 := O
03895 ENDIF
03900 IF DA2 < O THEN
03905 LET HDA2 := HDA2 + BDA2 ; BDA2 := O
03910 IF HDA2 < O THEN LET HDA2 := O
03915 ENDIF
03920 IF D3 < O THEN
03925 LET HD3 := HD3 + BD3 ; BD3 := O
03930 IF HD3 < O THEN LET HD3 := O
03935 ENDIF
03940 IF D4 < O THEN
03945 LET HD4 := HD4 + BD4 ; BD4 := O
03950 IF HD4 < O THEN LET HD4 := O
03955 ENDIF
03960 IF D5 < O THEN
03965 LET HD5 := HD5 + BD5 ; BD5 := O
03970 IF HD5 < O THEN LET HD5 := O
03975 ENDIF
03980 LET HD6 := HD1 + HD2 + HDA2 + HD3 + HD4 + HD5 ; BD6 := BD1 + BD2 + BDA2 + BD3 + BD4 + BD5
03985 ENDIF
03990 ENDPROC REGN7
03995 PROC MSSIKS
04000 LET F4 := ABS ( HD1 + HD2 + HDA2 )
04005 IF F4 > HD3 + HD4 + HD5 THEN LET F4 := HD3 + HD4 + HD5
04010 LET HD3 := HD3 - ( F4 / ( P7 + P8 + P9 ) * P7 ) ; HD4 := HD4 - ( F4 / ( P7 + P8 + P9 ) * P8 )
04015 LET HD5 := HD5 - ( F4 / ( P7 + P8 + P9 ) * P9 ) ; D1 := HD1 ; D2 := HD2 ; DA2 := HDA2
04020 LET HD1 := HD1 + ( F4 / ( D1 + D2 + DA2 ) * D1 ) ; HD2 := HD2 + ( F4 / ( D1 + D2 + DA2 ) * D2 )
04025 LET HDA2 := HDA2 + ( F4 / ( D1 + D2 + DA2 ) * DA2 )
04030 ENDPROC MSSIKS
04035 PROC MSSIKS1
04040 LET F4 := ABS ( BD1 + BD2 + BDA2 )
04045 IF F4 > BD3 + BD4 + BD5 THEN LET F4 := BD3 + BD4 + BD5
04050 LET BD3 := BD3 - ( F4 / ( P7 + P8 + P9 ) * P7 ) ; BD4 := BD4 - ( F4 / ( P7 + P8 + P9 ) * P8 )
04055 LET BD5 := BD5 - ( F4 / ( P7 + P8 + P9 ) * P9 ) ; D1 := BD1 ; D2 := BD2 ; DA2 := BDA2
04060 LET BD1 := BD1 + ( F4 / ( D1 + D2 + DA2 ) * D1 ) ; BD2 := BD2 + ( F4 / ( D1 + D2 + DA2 ) * D2 )
04065 LET BDA2 := BDA2 + ( F4 / ( D1 + D2 + DA2 ) * DA2 )
04070 ENDPROC MSSIKS1
04075 PROC REGN43
04080 IF T0 = 1 AND B4 < C8 THEN LET E9 := ( ( ( INT ( B4 / W ) * W ) - C8 ) * ( ( 16 * U1 ) + P0 + PA0 ) / W )
04085 IF T0 = 1 AND C4 < C8 THEN LET E8 := ( ( ( INT ( C4 / W ) * W ) - C8 ) * ( ( 16 * U1 ) + P0 + PA0 ) / W )
04090 IF T0 = 2 AND B1 < C8 THEN LET E8 := ( ( ( INT ( B1 / W ) * W ) - C8 ) * ( ( 16 * U1 ) + P0 + PA0 ) / W )
04095 IF T0 = 2 AND C6 < C8 THEN LET E9 := ( ( ( INT ( C6 / W ) * W ) - C8 ) * ( ( 16 * U1 ) + P0 + PA0 ) / W )
04100 ENDPROC REGN43
04105 PROC REGN44
04110 IF T0 = 1 AND B4 < C8 THEN LET E9 := E9 + ( ( ( ( INT ( B4 / W ) * W ) - C8 ) * ( P7 + P8 ) ) / W )
04115 IF T0 = 1 AND C4 < C8 THEN LET E8 := E8 + ( ( ( ( INT ( C4 / W ) * W ) - C8 ) * ( P7 + P8 ) ) / W )
04120 IF T0 = 2 AND B1 < C8 THEN LET E8 := E8 + ( ( ( ( INT ( B1 / W ) * W ) - C8 ) * ( P7 + P8 ) ) / W )
04125 IF T0 = 2 AND C6 < C8 THEN LET E9 := E9 + ( ( ( ( INT ( C6 / W ) * W ) - C8 ) * ( P7 + P8 ) ) / W )
04130 ENDPROC REGN44
04135 PROC REGN8
04140 LET B9 := O ; B7 := INT ( B7 / W ) * W ; B9 := ( B7 - U2 ) * 22 / 1000
04145 IF 6 - D5 + B9 > C4 * 78 / W THEN
04150 LET E5 := ( D6 - D5 + B9 ) - ( C4 * 78 / W )
04155 IF 5 =< B9 * 60 / W THEN
04160 LET B9 := B9 - E5
04165 ELSE
04170 LET E5 := E5 - ( B9 * 60 / W ) ; B9 := B9 - ( B9 * 60 / W )
04175 LET D1 := D1 - E5
04180 IF D1 < 0 THEN LET D1 := 0
04185 EXEC REGN38
04190 EXEC REGN7
04195 ENDIF
04200 ENDIF
04205 ENDPROC REGN8
04210 PROC REGN9
04215 IF B7 < O THEN LET B7 := O
04220 IF B8 < O THEN LET B8 := O
04225 LET B6 := B7 + B8 ; B6 := INT ( B6 / W ) * W ; E7 := ( B6 - U2 ) * 22 / 1000
04230 IF B7 > O THEN LET B9 := E7 / B6 * B7
04235 IF B8 > O THEN LET E6 := E7 / B6 * B8
04240 IF 2 = 2 AND ( T0 = 1 OR T0 = 2 ) THEN
04245 IF T0 = 1 THEN LET D8 := C4
04250 IF T0 = 2 THEN LET D8 := C6
04255 LET D0 := O
04260 ELSE
04265 IF 0 = 1 THEN
04270 LET C7 := B5
04275 ELSE
04280 LET C7 := B2
04285 ENDIF
04290 LET D0 := ( INT ( C7 / W ) * W ) * ( ( P0 + PA0 + P7 + P8 ) / W ) ; D0 := D0 + E2
04295 ENDIF
04300 IF E8 < O THEN LET D0 := D0 + E8
04305 IF E9 < O THEN LET D0 := D0 + E9
04310 IF T0 = 1 AND E8 >= O THEN LET D0 := D0 + HD6 - HD5 + GEMAFR
04315 IF C0 < 0 THEN LET D0 := D0 - C0
04320 IF T0 = 2 AND E9 >= O THEN LET D0 := D0 + BD6 - BD5 + GEMAFR
04325 IF C9 < 0 THEN LET D0 := D0 - C9
04330 LET D0 := D0 + E7
04335 IF D0 =< D8 * 78 / W THEN EXIT
04340 LET E5 := D0 - ( D8 * 78 / W )
04345 IF 5 =< E7 * 60 / W THEN
04350 LET B9 := B9 - ( E5 / B6 * B7 ) ; E6 := E6 - ( E5 / B6 * B8 )
04355 ELSE
04360 LET D0 := E7 * 60 / W ; E5 := E5 - D0 ; B9 := B9 - ( D0 / B6 * B7 ) ; E6 := E6 - ( D0 / B6 * B8 )
04365 EXEC REGN10
04370 LET D1 := D1 - ( E5 / B6 * B7 )
04375 EXEC REGN38
04380 LET D7 := D6
04385 EXEC REGN20
04390 EXEC REGN22
04395 LET D1 := D1 - ( E5 / B6 * B8 )
04400 EXEC REGN38
04405 LET D9 := D6
04410 EXEC REGN21
04415 EXEC REGN7
04420 ENDIF
04425 ENDPROC REGN9
04430 PROC SKAT
04435 LET QT $ := "SKATTEBEREGNING:"
04440 EXEC LSKRIV3
04445 PRINT
04450 LET QT $ := "STATSSKAT…" + PIL $ ( 1 : 24 ) ; QB := D1
04455 EXEC LSKRIV2
04460 LET QT $ := "FOLKEPENSIONSBIDRAG…" + PIL $ ( 1 : 14 ) ; QB := D2
04465 EXEC LSKRIV2
04470 LET QT $ := "DAGPENGEFONDBIDRAG…" + PIL $ ( 1 : 15 ) ; QB := DA2
04475 EXEC LSKRIV2
04480 LET QT $ := "KOMMUNESKAT…" + PIL $ ( 1 : 22 ) ; QB := D3
04485 EXEC LSKRIV2
04490 LET QT $ := "AMTSKOMMUNAL…INDKOMSTSKAT…" + PIL $ ( 1 : 8 ) ; QB := D4
04495 EXEC LSKRIV2
04500 IF 5 > O THEN
04505 LET QT $ := "KIRKESKAT…" + PIL $ ( 1 : 24 ) ; QB := D5
04510 EXEC LSKRIV2
04515 ENDIF
04520 ENDPROC SKAT
04525 PROC INDSKAT
04530 LET QT $ := SP $ ( 1 : 34 ) + LI $ ( 1 : 16 )
04535 EXEC LSKRIV3
04540 LET QT $ := "INDKOMSTSKAT…IALT…" + PIL $ ( 1 : 16 ) ; QB := D6
04545 EXEC LSKRIV2
04550 ENDPROC INDSKAT
04555 PROC FSKAT
04560 IF S > O THEN
04565 LET QT $ := "FORMUESKAT…" + PIL $ ( 1 : 23 ) ; QB := FS
04570 EXEC LSKRIV2
04575 LET QT $ := SP $ ( 1 : 34 ) + LI $ ( 1 : 16 )
04580 EXEC LSKRIV3
04585 LET QT $ := "***…TOTALSKAT…" + PIL $ ( 1 : 20 ) ; QB := D6 + FS
04590 EXEC LSKRIV2
04595 ENDIF
04600 LET QT $ := SP $ ( 1 : 34 ) + "================"
04605 EXEC LSKRIV3
04610 ENDPROC FSKAT
04615 PROC SKATPRO
04620 LET QT $ := "Kommuneskatteprocent…………………" ; QB := P7
04625 EXEC LSKRIV4
04630 LET QT $ := "Amtskommunal…skatteprocent…" ; QB := P8
04635 EXEC LSKRIV4
04640 LET QT $ := "Kirkeskatteprocent………………………" ; QB := P9
04645 EXEC LSKRIV4
04650 IF 1 >< O THEN
04655 LET QT $ := "Hovedpersonen…er…beregnet…med…personfradrag…som…pensionist."
04660 EXEC LSKRIV3
04665 ENDIF
04670 IF 3 >< O THEN
04675 LET QT $ := "Den…gifte…kvinde…er…beregnet…med…personfradrag…som…pensionist."
04680 EXEC LSKRIV3
04685 ENDIF
04690 IF 4 = 1 THEN
04695 LET QT $ := "Beregningerne…er…sket…efter…reglerne…om…ligedeling…{gtef{ller."
04700 EXEC LSKRIV3
04705 ENDIF
04710 ENDPROC SKATPRO
04715 PROC LSKRIV2
04720 PRINT USING QT $ + "#########.##…KR." : QB
04725 ENDPROC LSKRIV2
04730 PROC LSKRIV1
04735 PRINT USING QT $ + "#########…KR." : QB
04740 ENDPROC LSKRIV1
04745 PROC LSKRIV4
04750 PRINT USING QT $ + "#######.#…PCT." : QB
04755 ENDPROC LSKRIV4
04760 PROC SVAR
04765 REPEAT
04770 INPUT "?…(j/n)…" : S $
04775 IF S $ = "N" THEN LET S $ := "n"
04780 IF S $ = "J" THEN LET S $ := "j"
04785 IF S $ = "q" OR S $ = "Q" THEN END
04790 UNTIL S $ = "j" OR S $ = "n"
04795 PRINT LI $
04800 ENDPROC SVAR
04805 PROC LSKRIV
04810 PRINT
04815 ENDPROC LSKRIV
04820 PROC LSKRIV3
04825 PRINT QT $
04830 ENDPROC LSKRIV3
04835 PROC REGN50
04840 EXEC REGN32
04845 EXEC REGN33
04850 EXEC REGN34
04855 IF C8 = P3 THEN LET C8 := P4
04860 EXEC REGN35
04865 EXEC REGN36
04870 IF 5 > O THEN
04875 EXEC REGN37
04880 ELSE
04885 IF C8 > C7 THEN LET D5 := D5 - ( ( C8 - C7 ) * P9 / W )
04890 ENDIF
04895 EXEC REGN38
04900 ENDPROC REGN50
04905 PROC REGN51
04910 EXEC REGN26
04915 EXEC REGN27
04920 EXEC REGN28
04925 EXEC REGN29
04930 ENDPROC REGN51
04935 PROC RETURN
04940 LET S $ := "-"
04945 PRINT
04950 PRINT TAB ( 65 ) ;
04955 EDIT "TRYK…-RETURN" : S $
04960 ENDPROC RETURN
04965 PROC SKIFT
04970 IF = 1 THEN
04975 EXEC RETURN
04980 CLEAR
04985 ELSE
04990 FOR X := 1 TO DO
04995 PRINT
05000 NEXT X
05005 ENDIF
05010 ENDPROC SKIFT
05015 PROC SIDESKIFT
05020 IF = 2 THEN
05025 PRINT CHR$ ( 12 )
05030 PRINT REV $
05035 PRINT ADR $
05040 ENDIF
05045 EXEC SKIFT
05050 ENDPROC SIDESKIFT
05055 PROC WIN
05060 CURSOR 1 , 20
05065 PRINT SP $ + SP $
05070 LET X := 3 ; P := O ; A ( N ) := O ; FIL $ := "DDE:INDKOM"
05075 OPEN FIL $ , R
05080 IF N = 18 THEN LET X := 6 ; P := 6
05085 IF N = 8 THEN LET P := 3
05090 IF N = 19 THEN LET P := 12
05095 CURSOR 1 , 23 - X
05100 FOR Y := 1 TO + X DO
05105 GET FIL $ : S $
05110 IF > P THEN
05115 PRINT S $
05120 ENDIF
05125 NEXT Y
05130 FOR Y := 1 TO DO
05135 CURSOR 65 , 22 - X + Y
05140 INPUT B
05145 LET A ( N ) := A ( N ) + B
05150 NEXT Y
05155 CLOSE FIL $
05160 ENDPROC WIN
38382 ╱00╱ ╱00╱
0x0000…0027 (0,) 9615 00010 INTEGER X , PR , Y , F8 , FE , G , T0 , T1 , T2 , T3 , T4 , O , W
0x0000…0027 LineComal80 {
0x0000…0027 ptr = 0x9615 // 0x0 @0x0
0x0000…0027 lno = 0x000a // 0x2 @0x2
0x0000…0027 at0004 = ╱b2╱ INTEGER ╱ // 0x4 @0x4
0x0000…0027 at0005 = ╱58╱X╱ // 0x5 @0x5
0x0000…0027 at0006 = ╱ec╱ , ╱ // 0x6 @0x6
0x0000…0027 at0007 = ╱50╱P╱ // 0x7 @0x7
0x0000…0027 at0008 = ╱52╱R╱ // 0x8 @0x8
0x0000…0027 at0009 = ╱ec╱ , ╱ // 0x9 @0x9
0x0000…0027 at000a = ╱59╱Y╱ // 0xa @0xa
0x0000…0027 at000b = ╱ec╱ , ╱ // 0xb @0xb
0x0000…0027 at000c = ╱46╱F╱ // 0xc @0xc
0x0000…0027 at000d = ╱38╱8╱ // 0xd @0xd
0x0000…0027 at000e = ╱ec╱ , ╱ // 0xe @0xe
0x0000…0027 at000f = ╱46╱F╱ // 0xf @0xf
0x0000…0027 at0010 = ╱45╱E╱ // 0x10 @0x10
0x0000…0027 at0011 = ╱ec╱ , ╱ // 0x11 @0x11
0x0000…0027 at0012 = ╱47╱G╱ // 0x12 @0x12
0x0000…0027 at0013 = ╱ec╱ , ╱ // 0x13 @0x13
0x0000…0027 at0014 = ╱54╱T╱ // 0x14 @0x14
0x0000…0027 at0015 = ╱30╱0╱ // 0x15 @0x15
0x0000…0027 at0016 = ╱ec╱ , ╱ // 0x16 @0x16
0x0000…0027 at0017 = ╱54╱T╱ // 0x17 @0x17
0x0000…0027 at0018 = ╱31╱1╱ // 0x18 @0x18
0x0000…0027 at0019 = ╱ec╱ , ╱ // 0x19 @0x19
0x0000…0027 at001a = ╱54╱T╱ // 0x1a @0x1a
0x0000…0027 at001b = ╱32╱2╱ // 0x1b @0x1b
0x0000…0027 at001c = ╱ec╱ , ╱ // 0x1c @0x1c
0x0000…0027 at001d = ╱54╱T╱ // 0x1d @0x1d
0x0000…0027 at001e = ╱33╱3╱ // 0x1e @0x1e
0x0000…0027 at001f = ╱ec╱ , ╱ // 0x1f @0x1f
0x0000…0027 at0020 = ╱54╱T╱ // 0x20 @0x20
0x0000…0027 at0021 = ╱34╱4╱ // 0x21 @0x21
0x0000…0027 at0022 = ╱ec╱ , ╱ // 0x22 @0x22
0x0000…0027 at0023 = ╱4f╱O╱ // 0x23 @0x23
0x0000…0027 at0024 = ╱ec╱ , ╱ // 0x24 @0x24
0x0000…0027 at0025 = ╱57╱W╱ // 0x25 @0x25
0x0000…0027 at0026 = EOL // 0x26 @0x26
0x0000…0027 }
0x0027…002d 961b 00015 CLEAR
0x0027…002d LineComal80 {
0x0027…002d ptr = 0x961b // 0x27 @0x0
0x0027…002d lno = 0x000f // 0x29 @0x2
0x0027…002d at0004 = ╱a0╱ CLEAR ╱ // 0x2b @0x4
0x0027…002d at0005 = EOL // 0x2c @0x5
0x0027…002d }
0x002d…0073 9661 00020 LET STATUS , G1 , B7 , B8 , U2 , F0 , F7 , T , TKB , TKH , B3 , C0 , BD6 , C6 , F0 , F7 , OV , HS := 0
0x002d…0073 LineComal80 {
0x002d…0073 ptr = 0x9661 // 0x2d @0x0
0x002d…0073 lno = 0x0014 // 0x2f @0x2
0x002d…0073 at0004 = ╱86╱ LET ╱ // 0x31 @0x4
0x002d…0073 at0005 = ╱53╱S╱ // 0x32 @0x5
0x002d…0073 at0006 = ╱54╱T╱ // 0x33 @0x6
0x002d…0073 at0007 = ╱41╱A╱ // 0x34 @0x7
0x002d…0073 at0008 = ╱54╱T╱ // 0x35 @0x8
0x002d…0073 at0009 = ╱55╱U╱ // 0x36 @0x9
0x002d…0073 at000a = ╱53╱S╱ // 0x37 @0xa
0x002d…0073 at000b = ╱ec╱ , ╱ // 0x38 @0xb
0x002d…0073 at000c = ╱47╱G╱ // 0x39 @0xc
0x002d…0073 at000d = ╱31╱1╱ // 0x3a @0xd
0x002d…0073 at000e = ╱ec╱ , ╱ // 0x3b @0xe
0x002d…0073 at000f = ╱42╱B╱ // 0x3c @0xf
0x002d…0073 at0010 = ╱37╱7╱ // 0x3d @0x10
0x002d…0073 at0011 = ╱ec╱ , ╱ // 0x3e @0x11
0x002d…0073 at0012 = ╱42╱B╱ // 0x3f @0x12
0x002d…0073 at0013 = ╱38╱8╱ // 0x40 @0x13
0x002d…0073 at0014 = ╱ec╱ , ╱ // 0x41 @0x14
0x002d…0073 at0015 = ╱55╱U╱ // 0x42 @0x15
0x002d…0073 at0016 = ╱32╱2╱ // 0x43 @0x16
0x002d…0073 at0017 = ╱ec╱ , ╱ // 0x44 @0x17
0x002d…0073 at0018 = ╱46╱F╱ // 0x45 @0x18
0x002d…0073 at0019 = ╱30╱0╱ // 0x46 @0x19
0x002d…0073 at001a = ╱ec╱ , ╱ // 0x47 @0x1a
0x002d…0073 at001b = ╱46╱F╱ // 0x48 @0x1b
0x002d…0073 at001c = ╱37╱7╱ // 0x49 @0x1c
0x002d…0073 at001d = ╱ec╱ , ╱ // 0x4a @0x1d
0x002d…0073 at001e = ╱54╱T╱ // 0x4b @0x1e
0x002d…0073 at001f = ╱ec╱ , ╱ // 0x4c @0x1f
0x002d…0073 at0020 = ╱54╱T╱ // 0x4d @0x20
0x002d…0073 at0021 = ╱4b╱K╱ // 0x4e @0x21
0x002d…0073 at0022 = ╱42╱B╱ // 0x4f @0x22
0x002d…0073 at0023 = ╱ec╱ , ╱ // 0x50 @0x23
0x002d…0073 at0024 = ╱54╱T╱ // 0x51 @0x24
0x002d…0073 at0025 = ╱4b╱K╱ // 0x52 @0x25
0x002d…0073 at0026 = ╱48╱H╱ // 0x53 @0x26
0x002d…0073 at0027 = ╱ec╱ , ╱ // 0x54 @0x27
0x002d…0073 at0028 = ╱42╱B╱ // 0x55 @0x28
0x002d…0073 at0029 = ╱33╱3╱ // 0x56 @0x29
0x002d…0073 at002a = ╱ec╱ , ╱ // 0x57 @0x2a
0x002d…0073 at002b = ╱43╱C╱ // 0x58 @0x2b
0x002d…0073 at002c = ╱30╱0╱ // 0x59 @0x2c
0x002d…0073 at002d = ╱ec╱ , ╱ // 0x5a @0x2d
0x002d…0073 at002e = ╱42╱B╱ // 0x5b @0x2e
0x002d…0073 at002f = ╱44╱D╱ // 0x5c @0x2f
0x002d…0073 at0030 = ╱36╱6╱ // 0x5d @0x30
0x002d…0073 at0031 = ╱ec╱ , ╱ // 0x5e @0x31
0x002d…0073 at0032 = ╱43╱C╱ // 0x5f @0x32
0x002d…0073 at0033 = ╱36╱6╱ // 0x60 @0x33
0x002d…0073 at0034 = ╱ec╱ , ╱ // 0x61 @0x34
0x002d…0073 at0035 = ╱46╱F╱ // 0x62 @0x35
0x002d…0073 at0036 = ╱30╱0╱ // 0x63 @0x36
0x002d…0073 at0037 = ╱ec╱ , ╱ // 0x64 @0x37
0x002d…0073 at0038 = ╱46╱F╱ // 0x65 @0x38
0x002d…0073 at0039 = ╱37╱7╱ // 0x66 @0x39
0x002d…0073 at003a = ╱ec╱ , ╱ // 0x67 @0x3a
0x002d…0073 at003b = ╱4f╱O╱ // 0x68 @0x3b
0x002d…0073 at003c = ╱56╱V╱ // 0x69 @0x3c
0x002d…0073 at003d = ╱ec╱ , ╱ // 0x6a @0x3d
0x002d…0073 at003e = ╱48╱H╱ // 0x6b @0x3e
0x002d…0073 at003f = ╱53╱S╱ // 0x6c @0x3f
0x002d…0073 at0040 = ╱f0╱ := ╱ // 0x6d @0x40
0x002d…0073 at0041 = ╱30╱0╱ // 0x6e @0x41
0x002d…0073 at0042 = ╱f20000╱ // 0x6f @0x42
0x002d…0073 at0045 = EOL // 0x72 @0x45
0x002d…0073 }
0x0073…00bf 96ad 00025 LET AKT , SKG , D6 , HFORMUE , BFORMUE , B6 , HC3 , BC3 , HATP , BATP , GSLUT , FSLUT , F1 , F2 := 0
0x0073…00bf LineComal80 {
0x0073…00bf ptr = 0x96ad // 0x73 @0x0
0x0073…00bf lno = 0x0019 // 0x75 @0x2
0x0073…00bf at0004 = ╱86╱ LET ╱ // 0x77 @0x4
0x0073…00bf at0005 = ╱41╱A╱ // 0x78 @0x5
0x0073…00bf at0006 = ╱4b╱K╱ // 0x79 @0x6
0x0073…00bf at0007 = ╱54╱T╱ // 0x7a @0x7
0x0073…00bf at0008 = ╱ec╱ , ╱ // 0x7b @0x8
0x0073…00bf at0009 = ╱53╱S╱ // 0x7c @0x9
0x0073…00bf at000a = ╱4b╱K╱ // 0x7d @0xa
0x0073…00bf at000b = ╱47╱G╱ // 0x7e @0xb
0x0073…00bf at000c = ╱ec╱ , ╱ // 0x7f @0xc
0x0073…00bf at000d = ╱44╱D╱ // 0x80 @0xd
0x0073…00bf at000e = ╱36╱6╱ // 0x81 @0xe
0x0073…00bf at000f = ╱ec╱ , ╱ // 0x82 @0xf
0x0073…00bf at0010 = ╱48╱H╱ // 0x83 @0x10
0x0073…00bf at0011 = ╱46╱F╱ // 0x84 @0x11
0x0073…00bf at0012 = ╱4f╱O╱ // 0x85 @0x12
0x0073…00bf at0013 = ╱52╱R╱ // 0x86 @0x13
0x0073…00bf at0014 = ╱4d╱M╱ // 0x87 @0x14
0x0073…00bf at0015 = ╱55╱U╱ // 0x88 @0x15
0x0073…00bf at0016 = ╱45╱E╱ // 0x89 @0x16
0x0073…00bf at0017 = ╱ec╱ , ╱ // 0x8a @0x17
0x0073…00bf at0018 = ╱42╱B╱ // 0x8b @0x18
0x0073…00bf at0019 = ╱46╱F╱ // 0x8c @0x19
0x0073…00bf at001a = ╱4f╱O╱ // 0x8d @0x1a
0x0073…00bf at001b = ╱52╱R╱ // 0x8e @0x1b
0x0073…00bf at001c = ╱4d╱M╱ // 0x8f @0x1c
0x0073…00bf at001d = ╱55╱U╱ // 0x90 @0x1d
0x0073…00bf at001e = ╱45╱E╱ // 0x91 @0x1e
0x0073…00bf at001f = ╱ec╱ , ╱ // 0x92 @0x1f
0x0073…00bf at0020 = ╱42╱B╱ // 0x93 @0x20
0x0073…00bf at0021 = ╱36╱6╱ // 0x94 @0x21
0x0073…00bf at0022 = ╱ec╱ , ╱ // 0x95 @0x22
0x0073…00bf at0023 = ╱48╱H╱ // 0x96 @0x23
0x0073…00bf at0024 = ╱43╱C╱ // 0x97 @0x24
0x0073…00bf at0025 = ╱33╱3╱ // 0x98 @0x25
0x0073…00bf at0026 = ╱ec╱ , ╱ // 0x99 @0x26
0x0073…00bf at0027 = ╱42╱B╱ // 0x9a @0x27
0x0073…00bf at0028 = ╱43╱C╱ // 0x9b @0x28
0x0073…00bf at0029 = ╱33╱3╱ // 0x9c @0x29
0x0073…00bf at002a = ╱ec╱ , ╱ // 0x9d @0x2a
0x0073…00bf at002b = ╱48╱H╱ // 0x9e @0x2b
0x0073…00bf at002c = ╱41╱A╱ // 0x9f @0x2c
0x0073…00bf at002d = ╱54╱T╱ // 0xa0 @0x2d
0x0073…00bf at002e = ╱50╱P╱ // 0xa1 @0x2e
0x0073…00bf at002f = ╱ec╱ , ╱ // 0xa2 @0x2f
0x0073…00bf at0030 = ╱42╱B╱ // 0xa3 @0x30
0x0073…00bf at0031 = ╱41╱A╱ // 0xa4 @0x31
0x0073…00bf at0032 = ╱54╱T╱ // 0xa5 @0x32
0x0073…00bf at0033 = ╱50╱P╱ // 0xa6 @0x33
0x0073…00bf at0034 = ╱ec╱ , ╱ // 0xa7 @0x34
0x0073…00bf at0035 = ╱47╱G╱ // 0xa8 @0x35
0x0073…00bf at0036 = ╱53╱S╱ // 0xa9 @0x36
0x0073…00bf at0037 = ╱4c╱L╱ // 0xaa @0x37
0x0073…00bf at0038 = ╱55╱U╱ // 0xab @0x38
0x0073…00bf at0039 = ╱54╱T╱ // 0xac @0x39
0x0073…00bf at003a = ╱ec╱ , ╱ // 0xad @0x3a
0x0073…00bf at003b = ╱46╱F╱ // 0xae @0x3b
0x0073…00bf at003c = ╱53╱S╱ // 0xaf @0x3c
0x0073…00bf at003d = ╱4c╱L╱ // 0xb0 @0x3d
0x0073…00bf at003e = ╱55╱U╱ // 0xb1 @0x3e
0x0073…00bf at003f = ╱54╱T╱ // 0xb2 @0x3f
0x0073…00bf at0040 = ╱ec╱ , ╱ // 0xb3 @0x40
0x0073…00bf at0041 = ╱46╱F╱ // 0xb4 @0x41
0x0073…00bf at0042 = ╱31╱1╱ // 0xb5 @0x42
0x0073…00bf at0043 = ╱ec╱ , ╱ // 0xb6 @0x43
0x0073…00bf at0044 = ╱46╱F╱ // 0xb7 @0x44
0x0073…00bf at0045 = ╱32╱2╱ // 0xb8 @0x45
0x0073…00bf at0046 = ╱f0╱ := ╱ // 0xb9 @0x46
0x0073…00bf at0047 = ╱30╱0╱ // 0xba @0x47
0x0073…00bf at0048 = ╱f20000╱ // 0xbb @0x48
0x0073…00bf at004b = EOL // 0xbe @0x4b
0x0073…00bf }
0x00bf…00da 96c8 00030 LET T0 , T1 , T2 , T3 , T4 , O := 0
0x00bf…00da LineComal80 {
0x00bf…00da ptr = 0x96c8 // 0xbf @0x0
0x00bf…00da lno = 0x001e // 0xc1 @0x2
0x00bf…00da at0004 = ╱86╱ LET ╱ // 0xc3 @0x4
0x00bf…00da at0005 = ╱54╱T╱ // 0xc4 @0x5
0x00bf…00da at0006 = ╱30╱0╱ // 0xc5 @0x6
0x00bf…00da at0007 = ╱ec╱ , ╱ // 0xc6 @0x7
0x00bf…00da at0008 = ╱54╱T╱ // 0xc7 @0x8
0x00bf…00da at0009 = ╱31╱1╱ // 0xc8 @0x9
0x00bf…00da at000a = ╱ec╱ , ╱ // 0xc9 @0xa
0x00bf…00da at000b = ╱54╱T╱ // 0xca @0xb
0x00bf…00da at000c = ╱32╱2╱ // 0xcb @0xc
0x00bf…00da at000d = ╱ec╱ , ╱ // 0xcc @0xd
0x00bf…00da at000e = ╱54╱T╱ // 0xcd @0xe
0x00bf…00da at000f = ╱33╱3╱ // 0xce @0xf
0x00bf…00da at0010 = ╱ec╱ , ╱ // 0xcf @0x10
0x00bf…00da at0011 = ╱54╱T╱ // 0xd0 @0x11
0x00bf…00da at0012 = ╱34╱4╱ // 0xd1 @0x12
0x00bf…00da at0013 = ╱ec╱ , ╱ // 0xd2 @0x13
0x00bf…00da at0014 = ╱4f╱O╱ // 0xd3 @0x14
0x00bf…00da at0015 = ╱f0╱ := ╱ // 0xd4 @0x15
0x00bf…00da at0016 = ╱30╱0╱ // 0xd5 @0x16
0x00bf…00da at0017 = ╱f20000╱ // 0xd6 @0x17
0x00bf…00da at001a = EOL // 0xd9 @0x1a
0x00bf…00da }
0x00da…0128 9716 00035 DIM A1 $ ( 29 ) OF 29 , A ( 29 ) , H ( 23 ) , K ( 23 ) , LI $ OF 80 , QT $ OF 80 , S $ OF 80
0x00da…0128 LineComal80 {
0x00da…0128 ptr = 0x9716 // 0xda @0x0
0x00da…0128 lno = 0x0023 // 0xdc @0x2
0x00da…0128 at0004 = ╱87╱ DIM ╱ // 0xde @0x4
0x00da…0128 at0005 = ╱41╱A╱ // 0xdf @0x5
0x00da…0128 at0006 = ╱31╱1╱ // 0xe0 @0x6
0x00da…0128 at0007 = ╱ef╱ $ ╱ // 0xe1 @0x7
0x00da…0128 at0008 = ╱ed╱ ( ╱ // 0xe2 @0x8
0x00da…0128 at0009 = ╱32╱2╱ // 0xe3 @0x9
0x00da…0128 at000a = ╱39╱9╱ // 0xe4 @0xa
0x00da…0128 at000b = ╱f21d00╱ // 0xe5 @0xb
0x00da…0128 at000e = ╱ee╱ ) ╱ // 0xe8 @0xe
0x00da…0128 at000f = ╱ba╱ OF ╱ // 0xe9 @0xf
0x00da…0128 at0010 = ╱32╱2╱ // 0xea @0x10
0x00da…0128 at0011 = ╱39╱9╱ // 0xeb @0x11
0x00da…0128 at0012 = ╱f21d00╱ // 0xec @0x12
0x00da…0128 at0015 = ╱ec╱ , ╱ // 0xef @0x15
0x00da…0128 at0016 = ╱41╱A╱ // 0xf0 @0x16
0x00da…0128 at0017 = ╱ed╱ ( ╱ // 0xf1 @0x17
0x00da…0128 at0018 = ╱32╱2╱ // 0xf2 @0x18
0x00da…0128 at0019 = ╱39╱9╱ // 0xf3 @0x19
0x00da…0128 at001a = ╱f21d00╱ // 0xf4 @0x1a
0x00da…0128 at001d = ╱ee╱ ) ╱ // 0xf7 @0x1d
0x00da…0128 at001e = ╱ec╱ , ╱ // 0xf8 @0x1e
0x00da…0128 at001f = ╱48╱H╱ // 0xf9 @0x1f
0x00da…0128 at0020 = ╱ed╱ ( ╱ // 0xfa @0x20
0x00da…0128 at0021 = ╱32╱2╱ // 0xfb @0x21
0x00da…0128 at0022 = ╱33╱3╱ // 0xfc @0x22
0x00da…0128 at0023 = ╱f21700╱ // 0xfd @0x23
0x00da…0128 at0026 = ╱ee╱ ) ╱ // 0x100 @0x26
0x00da…0128 at0027 = ╱ec╱ , ╱ // 0x101 @0x27
0x00da…0128 at0028 = ╱4b╱K╱ // 0x102 @0x28
0x00da…0128 at0029 = ╱ed╱ ( ╱ // 0x103 @0x29
0x00da…0128 at002a = ╱32╱2╱ // 0x104 @0x2a
0x00da…0128 at002b = ╱33╱3╱ // 0x105 @0x2b
0x00da…0128 at002c = ╱f21700╱ // 0x106 @0x2c
0x00da…0128 at002f = ╱ee╱ ) ╱ // 0x109 @0x2f
0x00da…0128 at0030 = ╱ec╱ , ╱ // 0x10a @0x30
0x00da…0128 at0031 = ╱4c╱L╱ // 0x10b @0x31
0x00da…0128 at0032 = ╱49╱I╱ // 0x10c @0x32
0x00da…0128 at0033 = ╱ef╱ $ ╱ // 0x10d @0x33
0x00da…0128 at0034 = ╱ba╱ OF ╱ // 0x10e @0x34
0x00da…0128 at0035 = ╱38╱8╱ // 0x10f @0x35
0x00da…0128 at0036 = ╱30╱0╱ // 0x110 @0x36
0x00da…0128 at0037 = ╱f25000╱ // 0x111 @0x37
0x00da…0128 at003a = ╱ec╱ , ╱ // 0x114 @0x3a
0x00da…0128 at003b = ╱51╱Q╱ // 0x115 @0x3b
0x00da…0128 at003c = ╱54╱T╱ // 0x116 @0x3c
0x00da…0128 at003d = ╱ef╱ $ ╱ // 0x117 @0x3d
0x00da…0128 at003e = ╱ba╱ OF ╱ // 0x118 @0x3e
0x00da…0128 at003f = ╱38╱8╱ // 0x119 @0x3f
0x00da…0128 at0040 = ╱30╱0╱ // 0x11a @0x40
0x00da…0128 at0041 = ╱f25000╱ // 0x11b @0x41
0x00da…0128 at0044 = ╱ec╱ , ╱ // 0x11e @0x44
0x00da…0128 at0045 = ╱53╱S╱ // 0x11f @0x45
0x00da…0128 at0046 = ╱ef╱ $ ╱ // 0x120 @0x46
0x00da…0128 at0047 = ╱ba╱ OF ╱ // 0x121 @0x47
0x00da…0128 at0048 = ╱38╱8╱ // 0x122 @0x48
0x00da…0128 at0049 = ╱30╱0╱ // 0x123 @0x49
0x00da…0128 at004a = ╱f25000╱ // 0x124 @0x4a
0x00da…0128 at004d = EOL // 0x127 @0x4d
0x00da…0128 }
0x0128…016e 975c 00040 DIM FIL $ OF 15 , PIL $ OF 45 , SP $ OF 40 , REV $ OF 80 , ADR $ OF 80 , HKL $ OF 38
0x0128…016e LineComal80 {
0x0128…016e ptr = 0x975c // 0x128 @0x0
0x0128…016e lno = 0x0028 // 0x12a @0x2
0x0128…016e at0004 = ╱87╱ DIM ╱ // 0x12c @0x4
0x0128…016e at0005 = ╱46╱F╱ // 0x12d @0x5
0x0128…016e at0006 = ╱49╱I╱ // 0x12e @0x6
0x0128…016e at0007 = ╱4c╱L╱ // 0x12f @0x7
0x0128…016e at0008 = ╱ef╱ $ ╱ // 0x130 @0x8
0x0128…016e at0009 = ╱ba╱ OF ╱ // 0x131 @0x9
0x0128…016e at000a = ╱31╱1╱ // 0x132 @0xa
0x0128…016e at000b = ╱35╱5╱ // 0x133 @0xb
0x0128…016e at000c = ╱f20f00╱ // 0x134 @0xc
0x0128…016e at000f = ╱ec╱ , ╱ // 0x137 @0xf
0x0128…016e at0010 = ╱50╱P╱ // 0x138 @0x10
0x0128…016e at0011 = ╱49╱I╱ // 0x139 @0x11
0x0128…016e at0012 = ╱4c╱L╱ // 0x13a @0x12
0x0128…016e at0013 = ╱ef╱ $ ╱ // 0x13b @0x13
0x0128…016e at0014 = ╱ba╱ OF ╱ // 0x13c @0x14
0x0128…016e at0015 = ╱34╱4╱ // 0x13d @0x15
0x0128…016e at0016 = ╱35╱5╱ // 0x13e @0x16
0x0128…016e at0017 = ╱f22d00╱ // 0x13f @0x17
0x0128…016e at001a = ╱ec╱ , ╱ // 0x142 @0x1a
0x0128…016e at001b = ╱53╱S╱ // 0x143 @0x1b
0x0128…016e at001c = ╱50╱P╱ // 0x144 @0x1c
0x0128…016e at001d = ╱ef╱ $ ╱ // 0x145 @0x1d
0x0128…016e at001e = ╱ba╱ OF ╱ // 0x146 @0x1e
0x0128…016e at001f = ╱34╱4╱ // 0x147 @0x1f
0x0128…016e at0020 = ╱30╱0╱ // 0x148 @0x20
0x0128…016e at0021 = ╱f22800╱ // 0x149 @0x21
0x0128…016e at0024 = ╱ec╱ , ╱ // 0x14c @0x24
0x0128…016e at0025 = ╱52╱R╱ // 0x14d @0x25
0x0128…016e at0026 = ╱45╱E╱ // 0x14e @0x26
0x0128…016e at0027 = ╱56╱V╱ // 0x14f @0x27
0x0128…016e at0028 = ╱ef╱ $ ╱ // 0x150 @0x28
0x0128…016e at0029 = ╱ba╱ OF ╱ // 0x151 @0x29
0x0128…016e at002a = ╱38╱8╱ // 0x152 @0x2a
0x0128…016e at002b = ╱30╱0╱ // 0x153 @0x2b
0x0128…016e at002c = ╱f25000╱ // 0x154 @0x2c
0x0128…016e at002f = ╱ec╱ , ╱ // 0x157 @0x2f
0x0128…016e at0030 = ╱41╱A╱ // 0x158 @0x30
0x0128…016e at0031 = ╱44╱D╱ // 0x159 @0x31
0x0128…016e at0032 = ╱52╱R╱ // 0x15a @0x32
0x0128…016e at0033 = ╱ef╱ $ ╱ // 0x15b @0x33
0x0128…016e at0034 = ╱ba╱ OF ╱ // 0x15c @0x34
0x0128…016e at0035 = ╱38╱8╱ // 0x15d @0x35
0x0128…016e at0036 = ╱30╱0╱ // 0x15e @0x36
0x0128…016e at0037 = ╱f25000╱ // 0x15f @0x37
0x0128…016e at003a = ╱ec╱ , ╱ // 0x162 @0x3a
0x0128…016e at003b = ╱48╱H╱ // 0x163 @0x3b
0x0128…016e at003c = ╱4b╱K╱ // 0x164 @0x3c
0x0128…016e at003d = ╱4c╱L╱ // 0x165 @0x3d
0x0128…016e at003e = ╱ef╱ $ ╱ // 0x166 @0x3e
0x0128…016e at003f = ╱ba╱ OF ╱ // 0x167 @0x3f
0x0128…016e at0040 = ╱33╱3╱ // 0x168 @0x40
0x0128…016e at0041 = ╱38╱8╱ // 0x169 @0x41
0x0128…016e at0042 = ╱f22600╱ // 0x16a @0x42
0x0128…016e at0045 = EOL // 0x16d @0x45
0x0128…016e }
0x016e…0187 9775 00045 DIM BKL $ OF 38 , NU $ OF 9
0x016e…0187 LineComal80 {
0x016e…0187 ptr = 0x9775 // 0x16e @0x0
0x016e…0187 lno = 0x002d // 0x170 @0x2
0x016e…0187 at0004 = ╱87╱ DIM ╱ // 0x172 @0x4
0x016e…0187 at0005 = ╱42╱B╱ // 0x173 @0x5
0x016e…0187 at0006 = ╱4b╱K╱ // 0x174 @0x6
0x016e…0187 at0007 = ╱4c╱L╱ // 0x175 @0x7
0x016e…0187 at0008 = ╱ef╱ $ ╱ // 0x176 @0x8
0x016e…0187 at0009 = ╱ba╱ OF ╱ // 0x177 @0x9
0x016e…0187 at000a = ╱33╱3╱ // 0x178 @0xa
0x016e…0187 at000b = ╱38╱8╱ // 0x179 @0xb
0x016e…0187 at000c = ╱f22600╱ // 0x17a @0xc
0x016e…0187 at000f = ╱ec╱ , ╱ // 0x17d @0xf
0x016e…0187 at0010 = ╱4e╱N╱ // 0x17e @0x10
0x016e…0187 at0011 = ╱55╱U╱ // 0x17f @0x11
0x016e…0187 at0012 = ╱ef╱ $ ╱ // 0x180 @0x12
0x016e…0187 at0013 = ╱ba╱ OF ╱ // 0x181 @0x13
0x016e…0187 at0014 = ╱39╱9╱ // 0x182 @0x14
0x016e…0187 at0015 = ╱f20900╱ // 0x183 @0x15
0x016e…0187 at0018 = EOL // 0x186 @0x18
0x016e…0187 }
0x0187…01c4 97b2 00050 LET LI $ := "" ; PIL $ := "" ; SP $ := "" ; NU $ := "#########" ; W := 100 ; GEMAFR := O
0x0187…01c4 LineComal80 {
0x0187…01c4 ptr = 0x97b2 // 0x187 @0x0
0x0187…01c4 lno = 0x0032 // 0x189 @0x2
0x0187…01c4 at0004 = ╱86╱ LET ╱ // 0x18b @0x4
0x0187…01c4 at0005 = ╱4c╱L╱ // 0x18c @0x5
0x0187…01c4 at0006 = ╱49╱I╱ // 0x18d @0x6
0x0187…01c4 at0007 = ╱ef╱ $ ╱ // 0x18e @0x7
0x0187…01c4 at0008 = ╱f0╱ := ╱ // 0x18f @0x8
0x0187…01c4 at0009 = ╱22╱"╱ // 0x190 @0x9
0x0187…01c4 at000a = ╱22╱"╱ // 0x191 @0xa
0x0187…01c4 at000b = ╱ea╱ ; ╱ // 0x192 @0xb
0x0187…01c4 at000c = ╱50╱P╱ // 0x193 @0xc
0x0187…01c4 at000d = ╱49╱I╱ // 0x194 @0xd
0x0187…01c4 at000e = ╱4c╱L╱ // 0x195 @0xe
0x0187…01c4 at000f = ╱ef╱ $ ╱ // 0x196 @0xf
0x0187…01c4 at0010 = ╱f0╱ := ╱ // 0x197 @0x10
0x0187…01c4 at0011 = ╱22╱"╱ // 0x198 @0x11
0x0187…01c4 at0012 = ╱22╱"╱ // 0x199 @0x12
0x0187…01c4 at0013 = ╱ea╱ ; ╱ // 0x19a @0x13
0x0187…01c4 at0014 = ╱53╱S╱ // 0x19b @0x14
0x0187…01c4 at0015 = ╱50╱P╱ // 0x19c @0x15
0x0187…01c4 at0016 = ╱ef╱ $ ╱ // 0x19d @0x16
0x0187…01c4 at0017 = ╱f0╱ := ╱ // 0x19e @0x17
0x0187…01c4 at0018 = ╱22╱"╱ // 0x19f @0x18
0x0187…01c4 at0019 = ╱22╱"╱ // 0x1a0 @0x19
0x0187…01c4 at001a = ╱ea╱ ; ╱ // 0x1a1 @0x1a
0x0187…01c4 at001b = ╱4e╱N╱ // 0x1a2 @0x1b
0x0187…01c4 at001c = ╱55╱U╱ // 0x1a3 @0x1c
0x0187…01c4 at001d = ╱ef╱ $ ╱ // 0x1a4 @0x1d
0x0187…01c4 at001e = ╱f0╱ := ╱ // 0x1a5 @0x1e
0x0187…01c4 at001f = ╱22╱"╱ // 0x1a6 @0x1f
0x0187…01c4 at0020 = ╱23╱#╱ // 0x1a7 @0x20
0x0187…01c4 at0021 = ╱23╱#╱ // 0x1a8 @0x21
0x0187…01c4 at0022 = ╱23╱#╱ // 0x1a9 @0x22
0x0187…01c4 at0023 = ╱23╱#╱ // 0x1aa @0x23
0x0187…01c4 at0024 = ╱23╱#╱ // 0x1ab @0x24
0x0187…01c4 at0025 = ╱23╱#╱ // 0x1ac @0x25
0x0187…01c4 at0026 = ╱23╱#╱ // 0x1ad @0x26
0x0187…01c4 at0027 = ╱23╱#╱ // 0x1ae @0x27
0x0187…01c4 at0028 = ╱23╱#╱ // 0x1af @0x28
0x0187…01c4 at0029 = ╱22╱"╱ // 0x1b0 @0x29
0x0187…01c4 at002a = ╱ea╱ ; ╱ // 0x1b1 @0x2a
0x0187…01c4 at002b = ╱57╱W╱ // 0x1b2 @0x2b
0x0187…01c4 at002c = ╱f0╱ := ╱ // 0x1b3 @0x2c
0x0187…01c4 at002d = ╱31╱1╱ // 0x1b4 @0x2d
0x0187…01c4 at002e = ╱30╱0╱ // 0x1b5 @0x2e
0x0187…01c4 at002f = ╱30╱0╱ // 0x1b6 @0x2f
0x0187…01c4 at0030 = ╱f26400╱ // 0x1b7 @0x30
0x0187…01c4 at0033 = ╱ea╱ ; ╱ // 0x1ba @0x33
0x0187…01c4 at0034 = ╱47╱G╱ // 0x1bb @0x34
0x0187…01c4 at0035 = ╱45╱E╱ // 0x1bc @0x35
0x0187…01c4 at0036 = ╱4d╱M╱ // 0x1bd @0x36
0x0187…01c4 at0037 = ╱41╱A╱ // 0x1be @0x37
0x0187…01c4 at0038 = ╱46╱F╱ // 0x1bf @0x38
0x0187…01c4 at0039 = ╱52╱R╱ // 0x1c0 @0x39
0x0187…01c4 at003a = ╱f0╱ := ╱ // 0x1c1 @0x3a
0x0187…01c4 at003b = ╱4f╱O╱ // 0x1c2 @0x3b
0x0187…01c4 at003c = EOL // 0x1c3 @0x3c
0x0187…01c4 }
0x01c4…01e4 97d2 00055 LET REV $ := "Revisor…Kaja…Jensen"
0x01c4…01e4 LineComal80 {
0x01c4…01e4 ptr = 0x97d2 // 0x1c4 @0x0
0x01c4…01e4 lno = 0x0037 // 0x1c6 @0x2
0x01c4…01e4 at0004 = ╱86╱ LET ╱ // 0x1c8 @0x4
0x01c4…01e4 at0005 = ╱52╱R╱ // 0x1c9 @0x5
0x01c4…01e4 at0006 = ╱45╱E╱ // 0x1ca @0x6
0x01c4…01e4 at0007 = ╱56╱V╱ // 0x1cb @0x7
0x01c4…01e4 at0008 = ╱ef╱ $ ╱ // 0x1cc @0x8
0x01c4…01e4 at0009 = ╱f0╱ := ╱ // 0x1cd @0x9
0x01c4…01e4 at000a = ╱22╱"╱ // 0x1ce @0xa
0x01c4…01e4 at000b = ╱52╱R╱ // 0x1cf @0xb
0x01c4…01e4 at000c = ╱65╱e╱ // 0x1d0 @0xc
0x01c4…01e4 at000d = ╱76╱v╱ // 0x1d1 @0xd
0x01c4…01e4 at000e = ╱69╱i╱ // 0x1d2 @0xe
0x01c4…01e4 at000f = ╱73╱s╱ // 0x1d3 @0xf
0x01c4…01e4 at0010 = ╱6f╱o╱ // 0x1d4 @0x10
0x01c4…01e4 at0011 = ╱72╱r╱ // 0x1d5 @0x11
0x01c4…01e4 at0012 = ╱20╱…╱ // 0x1d6 @0x12
0x01c4…01e4 at0013 = ╱4b╱K╱ // 0x1d7 @0x13
0x01c4…01e4 at0014 = ╱61╱a╱ // 0x1d8 @0x14
0x01c4…01e4 at0015 = ╱6a╱j╱ // 0x1d9 @0x15
0x01c4…01e4 at0016 = ╱61╱a╱ // 0x1da @0x16
0x01c4…01e4 at0017 = ╱20╱…╱ // 0x1db @0x17
0x01c4…01e4 at0018 = ╱4a╱J╱ // 0x1dc @0x18
0x01c4…01e4 at0019 = ╱65╱e╱ // 0x1dd @0x19
0x01c4…01e4 at001a = ╱6e╱n╱ // 0x1de @0x1a
0x01c4…01e4 at001b = ╱73╱s╱ // 0x1df @0x1b
0x01c4…01e4 at001c = ╱65╱e╱ // 0x1e0 @0x1c
0x01c4…01e4 at001d = ╱6e╱n╱ // 0x1e1 @0x1d
0x01c4…01e4 at001e = ╱22╱"╱ // 0x1e2 @0x1e
0x01c4…01e4 at001f = EOL // 0x1e3 @0x1f
0x01c4…01e4 }
0x01e4…0219 9807 00060 LET ADR $ := "Lysholmvej…14,…2650…Hvidovre,…(01)784852"
0x01e4…0219 LineComal80 {
0x01e4…0219 ptr = 0x9807 // 0x1e4 @0x0
0x01e4…0219 lno = 0x003c // 0x1e6 @0x2
0x01e4…0219 at0004 = ╱86╱ LET ╱ // 0x1e8 @0x4
0x01e4…0219 at0005 = ╱41╱A╱ // 0x1e9 @0x5
0x01e4…0219 at0006 = ╱44╱D╱ // 0x1ea @0x6
0x01e4…0219 at0007 = ╱52╱R╱ // 0x1eb @0x7
0x01e4…0219 at0008 = ╱ef╱ $ ╱ // 0x1ec @0x8
0x01e4…0219 at0009 = ╱f0╱ := ╱ // 0x1ed @0x9
0x01e4…0219 at000a = ╱22╱"╱ // 0x1ee @0xa
0x01e4…0219 at000b = ╱4c╱L╱ // 0x1ef @0xb
0x01e4…0219 at000c = ╱79╱y╱ // 0x1f0 @0xc
0x01e4…0219 at000d = ╱73╱s╱ // 0x1f1 @0xd
0x01e4…0219 at000e = ╱68╱h╱ // 0x1f2 @0xe
0x01e4…0219 at000f = ╱6f╱o╱ // 0x1f3 @0xf
0x01e4…0219 at0010 = ╱6c╱l╱ // 0x1f4 @0x10
0x01e4…0219 at0011 = ╱6d╱m╱ // 0x1f5 @0x11
0x01e4…0219 at0012 = ╱76╱v╱ // 0x1f6 @0x12
0x01e4…0219 at0013 = ╱65╱e╱ // 0x1f7 @0x13
0x01e4…0219 at0014 = ╱6a╱j╱ // 0x1f8 @0x14
0x01e4…0219 at0015 = ╱20╱…╱ // 0x1f9 @0x15
0x01e4…0219 at0016 = ╱31╱1╱ // 0x1fa @0x16
0x01e4…0219 at0017 = ╱34╱4╱ // 0x1fb @0x17
0x01e4…0219 at0018 = ╱2c╱,╱ // 0x1fc @0x18
0x01e4…0219 at0019 = ╱20╱…╱ // 0x1fd @0x19
0x01e4…0219 at001a = ╱32╱2╱ // 0x1fe @0x1a
0x01e4…0219 at001b = ╱36╱6╱ // 0x1ff @0x1b
0x01e4…0219 at001c = ╱35╱5╱ // 0x200 @0x1c
0x01e4…0219 at001d = ╱30╱0╱ // 0x201 @0x1d
0x01e4…0219 at001e = ╱20╱…╱ // 0x202 @0x1e
0x01e4…0219 at001f = ╱48╱H╱ // 0x203 @0x1f
0x01e4…0219 at0020 = ╱76╱v╱ // 0x204 @0x20
0x01e4…0219 at0021 = ╱69╱i╱ // 0x205 @0x21
0x01e4…0219 at0022 = ╱64╱d╱ // 0x206 @0x22
0x01e4…0219 at0023 = ╱6f╱o╱ // 0x207 @0x23
0x01e4…0219 at0024 = ╱76╱v╱ // 0x208 @0x24
0x01e4…0219 at0025 = ╱72╱r╱ // 0x209 @0x25
0x01e4…0219 at0026 = ╱65╱e╱ // 0x20a @0x26
0x01e4…0219 at0027 = ╱2c╱,╱ // 0x20b @0x27
0x01e4…0219 at0028 = ╱20╱…╱ // 0x20c @0x28
0x01e4…0219 at0029 = ╱28╱(╱ // 0x20d @0x29
0x01e4…0219 at002a = ╱30╱0╱ // 0x20e @0x2a
0x01e4…0219 at002b = ╱31╱1╱ // 0x20f @0x2b
0x01e4…0219 at002c = ╱29╱)╱ // 0x210 @0x2c
0x01e4…0219 at002d = ╱37╱7╱ // 0x211 @0x2d
0x01e4…0219 at002e = ╱38╱8╱ // 0x212 @0x2e
0x01e4…0219 at002f = ╱34╱4╱ // 0x213 @0x2f
0x01e4…0219 at0030 = ╱38╱8╱ // 0x214 @0x30
0x01e4…0219 at0031 = ╱35╱5╱ // 0x215 @0x31
0x01e4…0219 at0032 = ╱32╱2╱ // 0x216 @0x32
0x01e4…0219 at0033 = ╱22╱"╱ // 0x217 @0x33
0x01e4…0219 at0034 = EOL // 0x218 @0x34
0x01e4…0219 }
0x0219…022d 981b 00065 FOR X := 1 TO 8 DO
0x0219…022d LineComal80 {
0x0219…022d ptr = 0x981b // 0x219 @0x0
0x0219…022d lno = 0x0041 // 0x21b @0x2
0x0219…022d at0004 = ╱8300╱ FOR ╱ // 0x21d @0x4
0x0219…022d at0006 = ╱58╱X╱ // 0x21f @0x6
0x0219…022d at0007 = ╱f0╱ := ╱ // 0x220 @0x7
0x0219…022d at0008 = ╱31╱1╱ // 0x221 @0x8
0x0219…022d at0009 = ╱f20100╱ // 0x222 @0x9
0x0219…022d at000c = ╱b737╱ TO ╱ // 0x225 @0xc
0x0219…022d at000e = ╱38╱8╱ // 0x227 @0xe
0x0219…022d at000f = ╱f24e00╱ // 0x228 @0xf
0x0219…022d at0012 = ╱bb╱ DO ╱ // 0x22b @0x12
0x0219…022d at0013 = EOL // 0x22c @0x13
0x0219…022d }
0x022d…0258 9846 00070 LET LI $ := LI $ + "-" ; PIL $ := PIL $ + "." ; SP $ := SP $ + "…"
0x022d…0258 LineComal80 {
0x022d…0258 ptr = 0x9846 // 0x22d @0x0
0x022d…0258 lno = 0x0046 // 0x22f @0x2
0x022d…0258 at0004 = ╱86╱ LET ╱ // 0x231 @0x4
0x022d…0258 at0005 = ╱4c╱L╱ // 0x232 @0x5
0x022d…0258 at0006 = ╱49╱I╱ // 0x233 @0x6
0x022d…0258 at0007 = ╱ef╱ $ ╱ // 0x234 @0x7
0x022d…0258 at0008 = ╱f0╱ := ╱ // 0x235 @0x8
0x022d…0258 at0009 = ╱4c╱L╱ // 0x236 @0x9
0x022d…0258 at000a = ╱49╱I╱ // 0x237 @0xa
0x022d…0258 at000b = ╱ef╱ $ ╱ // 0x238 @0xb
0x022d…0258 at000c = ╱eb╱ + ╱ // 0x239 @0xc
0x022d…0258 at000d = ╱22╱"╱ // 0x23a @0xd
0x022d…0258 at000e = ╱2d╱-╱ // 0x23b @0xe
0x022d…0258 at000f = ╱22╱"╱ // 0x23c @0xf
0x022d…0258 at0010 = ╱ea╱ ; ╱ // 0x23d @0x10
0x022d…0258 at0011 = ╱50╱P╱ // 0x23e @0x11
0x022d…0258 at0012 = ╱49╱I╱ // 0x23f @0x12
0x022d…0258 at0013 = ╱4c╱L╱ // 0x240 @0x13
0x022d…0258 at0014 = ╱ef╱ $ ╱ // 0x241 @0x14
0x022d…0258 at0015 = ╱f0╱ := ╱ // 0x242 @0x15
0x022d…0258 at0016 = ╱50╱P╱ // 0x243 @0x16
0x022d…0258 at0017 = ╱49╱I╱ // 0x244 @0x17
0x022d…0258 at0018 = ╱4c╱L╱ // 0x245 @0x18
0x022d…0258 at0019 = ╱ef╱ $ ╱ // 0x246 @0x19
0x022d…0258 at001a = ╱eb╱ + ╱ // 0x247 @0x1a
0x022d…0258 at001b = ╱22╱"╱ // 0x248 @0x1b
0x022d…0258 at001c = ╱2e╱.╱ // 0x249 @0x1c
0x022d…0258 at001d = ╱22╱"╱ // 0x24a @0x1d
0x022d…0258 at001e = ╱ea╱ ; ╱ // 0x24b @0x1e
0x022d…0258 at001f = ╱53╱S╱ // 0x24c @0x1f
0x022d…0258 at0020 = ╱50╱P╱ // 0x24d @0x20
0x022d…0258 at0021 = ╱ef╱ $ ╱ // 0x24e @0x21
0x022d…0258 at0022 = ╱f0╱ := ╱ // 0x24f @0x22
0x022d…0258 at0023 = ╱53╱S╱ // 0x250 @0x23
0x022d…0258 at0024 = ╱50╱P╱ // 0x251 @0x24
0x022d…0258 at0025 = ╱ef╱ $ ╱ // 0x252 @0x25
0x022d…0258 at0026 = ╱eb╱ + ╱ // 0x253 @0x26
0x022d…0258 at0027 = ╱22╱"╱ // 0x254 @0x27
0x022d…0258 at0028 = ╱20╱…╱ // 0x255 @0x28
0x022d…0258 at0029 = ╱22╱"╱ // 0x256 @0x29
0x022d…0258 at002a = EOL // 0x257 @0x2a
0x022d…0258 }
0x0258…025f 984d 00075 NEXT X
0x0258…025f LineComal80 {
0x0258…025f ptr = 0x984d // 0x258 @0x0
0x0258…025f lno = 0x004b // 0x25a @0x2
0x0258…025f at0004 = ╱84╱ NEXT ╱ // 0x25c @0x4
0x0258…025f at0005 = ╱58╱X╱ // 0x25d @0x5
0x0258…025f at0006 = EOL // 0x25e @0x6
0x0258…025f }
0x025f…0276 9864 00080 LET F8 , T4 , G := O ; T2 := 2
0x025f…0276 LineComal80 {
0x025f…0276 ptr = 0x9864 // 0x25f @0x0
0x025f…0276 lno = 0x0050 // 0x261 @0x2
0x025f…0276 at0004 = ╱86╱ LET ╱ // 0x263 @0x4
0x025f…0276 at0005 = ╱46╱F╱ // 0x264 @0x5
0x025f…0276 at0006 = ╱38╱8╱ // 0x265 @0x6
0x025f…0276 at0007 = ╱ec╱ , ╱ // 0x266 @0x7
0x025f…0276 at0008 = ╱54╱T╱ // 0x267 @0x8
0x025f…0276 at0009 = ╱34╱4╱ // 0x268 @0x9
0x025f…0276 at000a = ╱ec╱ , ╱ // 0x269 @0xa
0x025f…0276 at000b = ╱47╱G╱ // 0x26a @0xb
0x025f…0276 at000c = ╱f0╱ := ╱ // 0x26b @0xc
0x025f…0276 at000d = ╱4f╱O╱ // 0x26c @0xd
0x025f…0276 at000e = ╱ea╱ ; ╱ // 0x26d @0xe
0x025f…0276 at000f = ╱54╱T╱ // 0x26e @0xf
0x025f…0276 at0010 = ╱32╱2╱ // 0x26f @0x10
0x025f…0276 at0011 = ╱f0╱ := ╱ // 0x270 @0x11
0x025f…0276 at0012 = ╱32╱2╱ // 0x271 @0x12
0x025f…0276 at0013 = ╱f20200╱ // 0x272 @0x13
0x025f…0276 at0016 = EOL // 0x275 @0x16
0x025f…0276 }
0x0276…028e 987c 00085 LET FIL $ := "dde:skatsys"
0x0276…028e LineComal80 {
0x0276…028e ptr = 0x987c // 0x276 @0x0
0x0276…028e lno = 0x0055 // 0x278 @0x2
0x0276…028e at0004 = ╱86╱ LET ╱ // 0x27a @0x4
0x0276…028e at0005 = ╱46╱F╱ // 0x27b @0x5
0x0276…028e at0006 = ╱49╱I╱ // 0x27c @0x6
0x0276…028e at0007 = ╱4c╱L╱ // 0x27d @0x7
0x0276…028e at0008 = ╱ef╱ $ ╱ // 0x27e @0x8
0x0276…028e at0009 = ╱f0╱ := ╱ // 0x27f @0x9
0x0276…028e at000a = ╱22╱"╱ // 0x280 @0xa
0x0276…028e at000b = ╱64╱d╱ // 0x281 @0xb
0x0276…028e at000c = ╱64╱d╱ // 0x282 @0xc
0x0276…028e at000d = ╱65╱e╱ // 0x283 @0xd
0x0276…028e at000e = ╱3a╱:╱ // 0x284 @0xe
0x0276…028e at000f = ╱73╱s╱ // 0x285 @0xf
0x0276…028e at0010 = ╱6b╱k╱ // 0x286 @0x10
0x0276…028e at0011 = ╱61╱a╱ // 0x287 @0x11
0x0276…028e at0012 = ╱74╱t╱ // 0x288 @0x12
0x0276…028e at0013 = ╱73╱s╱ // 0x289 @0x13
0x0276…028e at0014 = ╱79╱y╱ // 0x28a @0x14
0x0276…028e at0015 = ╱73╱s╱ // 0x28b @0x15
0x0276…028e at0016 = ╱22╱"╱ // 0x28c @0x16
0x0276…028e at0017 = EOL // 0x28d @0x17
0x0276…028e }
0x028e…029a 9888 00090 OPEN FIL $ , R
0x028e…029a LineComal80 {
0x028e…029a ptr = 0x9888 // 0x28e @0x0
0x028e…029a lno = 0x005a // 0x290 @0x2
0x028e…029a at0004 = ╱a7╱ OPEN ╱ // 0x292 @0x4
0x028e…029a at0005 = ╱46╱F╱ // 0x293 @0x5
0x028e…029a at0006 = ╱49╱I╱ // 0x294 @0x6
0x028e…029a at0007 = ╱4c╱L╱ // 0x295 @0x7
0x028e…029a at0008 = ╱ef╱ $ ╱ // 0x296 @0x8
0x028e…029a at0009 = ╱ec╱ , ╱ // 0x297 @0x9
0x028e…029a at000a = ╱52╱R╱ // 0x298 @0xa
0x028e…029a at000b = EOL // 0x299 @0xb
0x028e…029a }
0x029a…02a8 9896 00095 GET FIL $ : SYS
0x029a…02a8 LineComal80 {
0x029a…02a8 ptr = 0x9896 // 0x29a @0x0
0x029a…02a8 lno = 0x005f // 0x29c @0x2
0x029a…02a8 at0004 = ╱a9╱ GET ╱ // 0x29e @0x4
0x029a…02a8 at0005 = ╱46╱F╱ // 0x29f @0x5
0x029a…02a8 at0006 = ╱49╱I╱ // 0x2a0 @0x6
0x029a…02a8 at0007 = ╱4c╱L╱ // 0x2a1 @0x7
0x029a…02a8 at0008 = ╱ef╱ $ ╱ // 0x2a2 @0x8
0x029a…02a8 at0009 = ╱f1╱ : ╱ // 0x2a3 @0x9
0x029a…02a8 at000a = ╱53╱S╱ // 0x2a4 @0xa
0x029a…02a8 at000b = ╱59╱Y╱ // 0x2a5 @0xb
0x029a…02a8 at000c = ╱53╱S╱ // 0x2a6 @0xc
0x029a…02a8 at000d = EOL // 0x2a7 @0xd
0x029a…02a8 }
0x02a8…02b2 98a0 00100 CLOSE FIL $
0x02a8…02b2 LineComal80 {
0x02a8…02b2 ptr = 0x98a0 // 0x2a8 @0x0
0x02a8…02b2 lno = 0x0064 // 0x2aa @0x2
0x02a8…02b2 at0004 = ╱a8╱ CLOSE ╱ // 0x2ac @0x4
0x02a8…02b2 at0005 = ╱46╱F╱ // 0x2ad @0x5
0x02a8…02b2 at0006 = ╱49╱I╱ // 0x2ae @0x6
0x02a8…02b2 at0007 = ╱4c╱L╱ // 0x2af @0x7
0x02a8…02b2 at0008 = ╱ef╱ $ ╱ // 0x2b0 @0x8
0x02a8…02b2 at0009 = EOL // 0x2b1 @0x9
0x02a8…02b2 }
0x02b2…02c2 98b0 00105 IF YS = 1 THEN
0x02b2…02c2 LineComal80 {
0x02b2…02c2 ptr = 0x98b0 // 0x2b2 @0x0
0x02b2…02c2 lno = 0x0069 // 0x2b4 @0x2
0x02b2…02c2 at0004 = ╱9b0053╱ IF ╱ // 0x2b6 @0x4
0x02b2…02c2 at0007 = ╱59╱Y╱ // 0x2b9 @0x7
0x02b2…02c2 at0008 = ╱53╱S╱ // 0x2ba @0x8
0x02b2…02c2 at0009 = ╱df╱ = ╱ // 0x2bb @0x9
0x02b2…02c2 at000a = ╱31╱1╱ // 0x2bc @0xa
0x02b2…02c2 at000b = ╱f20100╱ // 0x2bd @0xb
0x02b2…02c2 at000e = ╱b5╱ THEN ╱ // 0x2c0 @0xe
0x02b2…02c2 at000f = EOL // 0x2c1 @0xf
0x02b2…02c2 }
0x02c2…02ce 98bc 00110 OPEN FIL $ , W
0x02c2…02ce LineComal80 {
0x02c2…02ce ptr = 0x98bc // 0x2c2 @0x0
0x02c2…02ce lno = 0x006e // 0x2c4 @0x2
0x02c2…02ce at0004 = ╱a7╱ OPEN ╱ // 0x2c6 @0x4
0x02c2…02ce at0005 = ╱46╱F╱ // 0x2c7 @0x5
0x02c2…02ce at0006 = ╱49╱I╱ // 0x2c8 @0x6
0x02c2…02ce at0007 = ╱4c╱L╱ // 0x2c9 @0x7
0x02c2…02ce at0008 = ╱ef╱ $ ╱ // 0x2ca @0x8
0x02c2…02ce at0009 = ╱ec╱ , ╱ // 0x2cb @0x9
0x02c2…02ce at000a = ╱57╱W╱ // 0x2cc @0xa
0x02c2…02ce at000b = EOL // 0x2cd @0xb
0x02c2…02ce }
0x02ce…02d9 98c7 00115 LET SYS := O
0x02ce…02d9 LineComal80 {
0x02ce…02d9 ptr = 0x98c7 // 0x2ce @0x0
0x02ce…02d9 lno = 0x0073 // 0x2d0 @0x2
0x02ce…02d9 at0004 = ╱86╱ LET ╱ // 0x2d2 @0x4
0x02ce…02d9 at0005 = ╱53╱S╱ // 0x2d3 @0x5
0x02ce…02d9 at0006 = ╱59╱Y╱ // 0x2d4 @0x6
0x02ce…02d9 at0007 = ╱53╱S╱ // 0x2d5 @0x7
0x02ce…02d9 at0008 = ╱f0╱ := ╱ // 0x2d6 @0x8
0x02ce…02d9 at0009 = ╱4f╱O╱ // 0x2d7 @0x9
0x02ce…02d9 at000a = EOL // 0x2d8 @0xa
0x02ce…02d9 }
0x02d9…02e7 98d5 00120 PUT FIL $ : SYS
0x02d9…02e7 LineComal80 {
0x02d9…02e7 ptr = 0x98d5 // 0x2d9 @0x0
0x02d9…02e7 lno = 0x0078 // 0x2db @0x2
0x02d9…02e7 at0004 = ╱aa╱ PUT ╱ // 0x2dd @0x4
0x02d9…02e7 at0005 = ╱46╱F╱ // 0x2de @0x5
0x02d9…02e7 at0006 = ╱49╱I╱ // 0x2df @0x6
0x02d9…02e7 at0007 = ╱4c╱L╱ // 0x2e0 @0x7
0x02d9…02e7 at0008 = ╱ef╱ $ ╱ // 0x2e1 @0x8
0x02d9…02e7 at0009 = ╱f1╱ : ╱ // 0x2e2 @0x9
0x02d9…02e7 at000a = ╱53╱S╱ // 0x2e3 @0xa
0x02d9…02e7 at000b = ╱59╱Y╱ // 0x2e4 @0xb
0x02d9…02e7 at000c = ╱53╱S╱ // 0x2e5 @0xc
0x02d9…02e7 at000d = EOL // 0x2e6 @0xd
0x02d9…02e7 }
0x02e7…02f1 98df 00125 CLOSE FIL $
0x02e7…02f1 LineComal80 {
0x02e7…02f1 ptr = 0x98df // 0x2e7 @0x0
0x02e7…02f1 lno = 0x007d // 0x2e9 @0x2
0x02e7…02f1 at0004 = ╱a8╱ CLOSE ╱ // 0x2eb @0x4
0x02e7…02f1 at0005 = ╱46╱F╱ // 0x2ec @0x5
0x02e7…02f1 at0006 = ╱49╱I╱ // 0x2ed @0x6
0x02e7…02f1 at0007 = ╱4c╱L╱ // 0x2ee @0x7
0x02e7…02f1 at0008 = ╱ef╱ $ ╱ // 0x2ef @0x8
0x02e7…02f1 at0009 = EOL // 0x2f0 @0x9
0x02e7…02f1 }
0x02f1…0308 98f6 00130 LET FIL $ := "dde:hskvar"
0x02f1…0308 LineComal80 {
0x02f1…0308 ptr = 0x98f6 // 0x2f1 @0x0
0x02f1…0308 lno = 0x0082 // 0x2f3 @0x2
0x02f1…0308 at0004 = ╱86╱ LET ╱ // 0x2f5 @0x4
0x02f1…0308 at0005 = ╱46╱F╱ // 0x2f6 @0x5
0x02f1…0308 at0006 = ╱49╱I╱ // 0x2f7 @0x6
0x02f1…0308 at0007 = ╱4c╱L╱ // 0x2f8 @0x7
0x02f1…0308 at0008 = ╱ef╱ $ ╱ // 0x2f9 @0x8
0x02f1…0308 at0009 = ╱f0╱ := ╱ // 0x2fa @0x9
0x02f1…0308 at000a = ╱22╱"╱ // 0x2fb @0xa
0x02f1…0308 at000b = ╱64╱d╱ // 0x2fc @0xb
0x02f1…0308 at000c = ╱64╱d╱ // 0x2fd @0xc
0x02f1…0308 at000d = ╱65╱e╱ // 0x2fe @0xd
0x02f1…0308 at000e = ╱3a╱:╱ // 0x2ff @0xe
0x02f1…0308 at000f = ╱68╱h╱ // 0x300 @0xf
0x02f1…0308 at0010 = ╱73╱s╱ // 0x301 @0x10
0x02f1…0308 at0011 = ╱6b╱k╱ // 0x302 @0x11
0x02f1…0308 at0012 = ╱76╱v╱ // 0x303 @0x12
0x02f1…0308 at0013 = ╱61╱a╱ // 0x304 @0x13
0x02f1…0308 at0014 = ╱72╱r╱ // 0x305 @0x14
0x02f1…0308 at0015 = ╱22╱"╱ // 0x306 @0x15
0x02f1…0308 at0016 = EOL // 0x307 @0x16
0x02f1…0308 }
0x0308…0314 9902 00135 OPEN FIL $ , R
0x0308…0314 LineComal80 {
0x0308…0314 ptr = 0x9902 // 0x308 @0x0
0x0308…0314 lno = 0x0087 // 0x30a @0x2
0x0308…0314 at0004 = ╱a7╱ OPEN ╱ // 0x30c @0x4
0x0308…0314 at0005 = ╱46╱F╱ // 0x30d @0x5
0x0308…0314 at0006 = ╱49╱I╱ // 0x30e @0x6
0x0308…0314 at0007 = ╱4c╱L╱ // 0x30f @0x7
0x0308…0314 at0008 = ╱ef╱ $ ╱ // 0x310 @0x8
0x0308…0314 at0009 = ╱ec╱ , ╱ // 0x311 @0x9
0x0308…0314 at000a = ╱52╱R╱ // 0x312 @0xa
0x0308…0314 at000b = EOL // 0x313 @0xb
0x0308…0314 }
0x0314…0328 9916 00140 FOR X := 1 TO 9 DO
0x0314…0328 LineComal80 {
0x0314…0328 ptr = 0x9916 // 0x314 @0x0
0x0314…0328 lno = 0x008c // 0x316 @0x2
0x0314…0328 at0004 = ╱8300╱ FOR ╱ // 0x318 @0x4
0x0314…0328 at0006 = ╱58╱X╱ // 0x31a @0x6
0x0314…0328 at0007 = ╱f0╱ := ╱ // 0x31b @0x7
0x0314…0328 at0008 = ╱31╱1╱ // 0x31c @0x8
0x0314…0328 at0009 = ╱f20100╱ // 0x31d @0x9
0x0314…0328 at000c = ╱b732╱ TO ╱ // 0x320 @0xc
0x0314…0328 at000e = ╱39╱9╱ // 0x322 @0xe
0x0314…0328 at000f = ╱f21d00╱ // 0x323 @0xf
0x0314…0328 at0012 = ╱bb╱ DO ╱ // 0x326 @0x12
0x0314…0328 at0013 = EOL // 0x327 @0x13
0x0314…0328 }
0x0328…0337 9925 00145 GET FIL $ : A ( X )
0x0328…0337 LineComal80 {
0x0328…0337 ptr = 0x9925 // 0x328 @0x0
0x0328…0337 lno = 0x0091 // 0x32a @0x2
0x0328…0337 at0004 = ╱a9╱ GET ╱ // 0x32c @0x4
0x0328…0337 at0005 = ╱46╱F╱ // 0x32d @0x5
0x0328…0337 at0006 = ╱49╱I╱ // 0x32e @0x6
0x0328…0337 at0007 = ╱4c╱L╱ // 0x32f @0x7
0x0328…0337 at0008 = ╱ef╱ $ ╱ // 0x330 @0x8
0x0328…0337 at0009 = ╱f1╱ : ╱ // 0x331 @0x9
0x0328…0337 at000a = ╱41╱A╱ // 0x332 @0xa
0x0328…0337 at000b = ╱ed╱ ( ╱ // 0x333 @0xb
0x0328…0337 at000c = ╱58╱X╱ // 0x334 @0xc
0x0328…0337 at000d = ╱ee╱ ) ╱ // 0x335 @0xd
0x0328…0337 at000e = EOL // 0x336 @0xe
0x0328…0337 }
0x0337…0355 9943 00150 IF X < 24 THEN GET FIL $ : H ( X ) , K ( X )
0x0337…0355 LineComal80 {
0x0337…0355 ptr = 0x9943 // 0x337 @0x0
0x0337…0355 lno = 0x0096 // 0x339 @0x2
0x0337…0355 at0004 = ╱8200╱ IF ╱ // 0x33b @0x4
0x0337…0355 at0006 = ╱58╱X╱ // 0x33d @0x6
0x0337…0355 at0007 = ╱e0╱ < ╱ // 0x33e @0x7
0x0337…0355 at0008 = ╱32╱2╱ // 0x33f @0x8
0x0337…0355 at0009 = ╱34╱4╱ // 0x340 @0x9
0x0337…0355 at000a = ╱f21800╱ // 0x341 @0xa
0x0337…0355 at000d = ╱b5╱ THEN ╱ // 0x344 @0xd
0x0337…0355 at000e = ╱a9╱ GET ╱ // 0x345 @0xe
0x0337…0355 at000f = ╱46╱F╱ // 0x346 @0xf
0x0337…0355 at0010 = ╱49╱I╱ // 0x347 @0x10
0x0337…0355 at0011 = ╱4c╱L╱ // 0x348 @0x11
0x0337…0355 at0012 = ╱ef╱ $ ╱ // 0x349 @0x12
0x0337…0355 at0013 = ╱f1╱ : ╱ // 0x34a @0x13
0x0337…0355 at0014 = ╱48╱H╱ // 0x34b @0x14
0x0337…0355 at0015 = ╱ed╱ ( ╱ // 0x34c @0x15
0x0337…0355 at0016 = ╱58╱X╱ // 0x34d @0x16
0x0337…0355 at0017 = ╱ee╱ ) ╱ // 0x34e @0x17
0x0337…0355 at0018 = ╱ec╱ , ╱ // 0x34f @0x18
0x0337…0355 at0019 = ╱4b╱K╱ // 0x350 @0x19
0x0337…0355 at001a = ╱ed╱ ( ╱ // 0x351 @0x1a
0x0337…0355 at001b = ╱58╱X╱ // 0x352 @0x1b
0x0337…0355 at001c = ╱ee╱ ) ╱ // 0x353 @0x1c
0x0337…0355 at001d = EOL // 0x354 @0x1d
0x0337…0355 }
0x0355…035c 994a 00155 NEXT X
0x0355…035c LineComal80 {
0x0355…035c ptr = 0x994a // 0x355 @0x0
0x0355…035c lno = 0x009b // 0x357 @0x2
0x0355…035c at0004 = ╱84╱ NEXT ╱ // 0x359 @0x4
0x0355…035c at0005 = ╱58╱X╱ // 0x35a @0x5
0x0355…035c at0006 = EOL // 0x35b @0x6
0x0355…035c }
0x035c…0372 9960 00160 GET FIL $ : F8 , T1 , T2 , T4
0x035c…0372 LineComal80 {
0x035c…0372 ptr = 0x9960 // 0x35c @0x0
0x035c…0372 lno = 0x00a0 // 0x35e @0x2
0x035c…0372 at0004 = ╱a9╱ GET ╱ // 0x360 @0x4
0x035c…0372 at0005 = ╱46╱F╱ // 0x361 @0x5
0x035c…0372 at0006 = ╱49╱I╱ // 0x362 @0x6
0x035c…0372 at0007 = ╱4c╱L╱ // 0x363 @0x7
0x035c…0372 at0008 = ╱ef╱ $ ╱ // 0x364 @0x8
0x035c…0372 at0009 = ╱f1╱ : ╱ // 0x365 @0x9
0x035c…0372 at000a = ╱46╱F╱ // 0x366 @0xa
0x035c…0372 at000b = ╱38╱8╱ // 0x367 @0xb
0x035c…0372 at000c = ╱ec╱ , ╱ // 0x368 @0xc
0x035c…0372 at000d = ╱54╱T╱ // 0x369 @0xd
0x035c…0372 at000e = ╱31╱1╱ // 0x36a @0xe
0x035c…0372 at000f = ╱ec╱ , ╱ // 0x36b @0xf
0x035c…0372 at0010 = ╱54╱T╱ // 0x36c @0x10
0x035c…0372 at0011 = ╱32╱2╱ // 0x36d @0x11
0x035c…0372 at0012 = ╱ec╱ , ╱ // 0x36e @0x12
0x035c…0372 at0013 = ╱54╱T╱ // 0x36f @0x13
0x035c…0372 at0014 = ╱34╱4╱ // 0x370 @0x14
0x035c…0372 at0015 = EOL // 0x371 @0x15
0x035c…0372 }
0x0372…037c 996a 00165 CLOSE FIL $
0x0372…037c LineComal80 {
0x0372…037c ptr = 0x996a // 0x372 @0x0
0x0372…037c lno = 0x00a5 // 0x374 @0x2
0x0372…037c at0004 = ╱a8╱ CLOSE ╱ // 0x376 @0x4
0x0372…037c at0005 = ╱46╱F╱ // 0x377 @0x5
0x0372…037c at0006 = ╱49╱I╱ // 0x378 @0x6
0x0372…037c at0007 = ╱4c╱L╱ // 0x379 @0x7
0x0372…037c at0008 = ╱ef╱ $ ╱ // 0x37a @0x8
0x0372…037c at0009 = EOL // 0x37b @0x9
0x0372…037c }
0x037c…0391 997f 00170 LET FIL $ := "dde:fvar"
0x037c…0391 LineComal80 {
0x037c…0391 ptr = 0x997f // 0x37c @0x0
0x037c…0391 lno = 0x00aa // 0x37e @0x2
0x037c…0391 at0004 = ╱86╱ LET ╱ // 0x380 @0x4
0x037c…0391 at0005 = ╱46╱F╱ // 0x381 @0x5
0x037c…0391 at0006 = ╱49╱I╱ // 0x382 @0x6
0x037c…0391 at0007 = ╱4c╱L╱ // 0x383 @0x7
0x037c…0391 at0008 = ╱ef╱ $ ╱ // 0x384 @0x8
0x037c…0391 at0009 = ╱f0╱ := ╱ // 0x385 @0x9
0x037c…0391 at000a = ╱22╱"╱ // 0x386 @0xa
0x037c…0391 at000b = ╱64╱d╱ // 0x387 @0xb
0x037c…0391 at000c = ╱64╱d╱ // 0x388 @0xc
0x037c…0391 at000d = ╱65╱e╱ // 0x389 @0xd
0x037c…0391 at000e = ╱3a╱:╱ // 0x38a @0xe
0x037c…0391 at000f = ╱66╱f╱ // 0x38b @0xf
0x037c…0391 at0010 = ╱76╱v╱ // 0x38c @0x10
0x037c…0391 at0011 = ╱61╱a╱ // 0x38d @0x11
0x037c…0391 at0012 = ╱72╱r╱ // 0x38e @0x12
0x037c…0391 at0013 = ╱22╱"╱ // 0x38f @0x13
0x037c…0391 at0014 = EOL // 0x390 @0x14
0x037c…0391 }
0x0391…039d 998b 00175 OPEN FIL $ , R
0x0391…039d LineComal80 {
0x0391…039d ptr = 0x998b // 0x391 @0x0
0x0391…039d lno = 0x00af // 0x393 @0x2
0x0391…039d at0004 = ╱a7╱ OPEN ╱ // 0x395 @0x4
0x0391…039d at0005 = ╱46╱F╱ // 0x396 @0x5
0x0391…039d at0006 = ╱49╱I╱ // 0x397 @0x6
0x0391…039d at0007 = ╱4c╱L╱ // 0x398 @0x7
0x0391…039d at0008 = ╱ef╱ $ ╱ // 0x399 @0x8
0x0391…039d at0009 = ╱ec╱ , ╱ // 0x39a @0x9
0x0391…039d at000a = ╱52╱R╱ // 0x39b @0xa
0x0391…039d at000b = EOL // 0x39c @0xb
0x0391…039d }
0x039d…03c4 99b2 00180 GET FIL $ : PR , C4 , HD6 , C9 , B0 , T1 , TKH , F6 , F1
0x039d…03c4 LineComal80 {
0x039d…03c4 ptr = 0x99b2 // 0x39d @0x0
0x039d…03c4 lno = 0x00b4 // 0x39f @0x2
0x039d…03c4 at0004 = ╱a9╱ GET ╱ // 0x3a1 @0x4
0x039d…03c4 at0005 = ╱46╱F╱ // 0x3a2 @0x5
0x039d…03c4 at0006 = ╱49╱I╱ // 0x3a3 @0x6
0x039d…03c4 at0007 = ╱4c╱L╱ // 0x3a4 @0x7
0x039d…03c4 at0008 = ╱ef╱ $ ╱ // 0x3a5 @0x8
0x039d…03c4 at0009 = ╱f1╱ : ╱ // 0x3a6 @0x9
0x039d…03c4 at000a = ╱50╱P╱ // 0x3a7 @0xa
0x039d…03c4 at000b = ╱52╱R╱ // 0x3a8 @0xb
0x039d…03c4 at000c = ╱ec╱ , ╱ // 0x3a9 @0xc
0x039d…03c4 at000d = ╱43╱C╱ // 0x3aa @0xd
0x039d…03c4 at000e = ╱34╱4╱ // 0x3ab @0xe
0x039d…03c4 at000f = ╱ec╱ , ╱ // 0x3ac @0xf
0x039d…03c4 at0010 = ╱48╱H╱ // 0x3ad @0x10
0x039d…03c4 at0011 = ╱44╱D╱ // 0x3ae @0x11
0x039d…03c4 at0012 = ╱36╱6╱ // 0x3af @0x12
0x039d…03c4 at0013 = ╱ec╱ , ╱ // 0x3b0 @0x13
0x039d…03c4 at0014 = ╱43╱C╱ // 0x3b1 @0x14
0x039d…03c4 at0015 = ╱39╱9╱ // 0x3b2 @0x15
0x039d…03c4 at0016 = ╱ec╱ , ╱ // 0x3b3 @0x16
0x039d…03c4 at0017 = ╱42╱B╱ // 0x3b4 @0x17
0x039d…03c4 at0018 = ╱30╱0╱ // 0x3b5 @0x18
0x039d…03c4 at0019 = ╱ec╱ , ╱ // 0x3b6 @0x19
0x039d…03c4 at001a = ╱54╱T╱ // 0x3b7 @0x1a
0x039d…03c4 at001b = ╱31╱1╱ // 0x3b8 @0x1b
0x039d…03c4 at001c = ╱ec╱ , ╱ // 0x3b9 @0x1c
0x039d…03c4 at001d = ╱54╱T╱ // 0x3ba @0x1d
0x039d…03c4 at001e = ╱4b╱K╱ // 0x3bb @0x1e
0x039d…03c4 at001f = ╱48╱H╱ // 0x3bc @0x1f
0x039d…03c4 at0020 = ╱ec╱ , ╱ // 0x3bd @0x20
0x039d…03c4 at0021 = ╱46╱F╱ // 0x3be @0x21
0x039d…03c4 at0022 = ╱36╱6╱ // 0x3bf @0x22
0x039d…03c4 at0023 = ╱ec╱ , ╱ // 0x3c0 @0x23
0x039d…03c4 at0024 = ╱46╱F╱ // 0x3c1 @0x24
0x039d…03c4 at0025 = ╱31╱1╱ // 0x3c2 @0x25
0x039d…03c4 at0026 = EOL // 0x3c3 @0x26
0x039d…03c4 }
0x03c4…03e9 99d7 00185 GET FIL $ : F9 , P1 , P7 , P8 , P9 , T0 , B2 , B1 , B9
0x03c4…03e9 LineComal80 {
0x03c4…03e9 ptr = 0x99d7 // 0x3c4 @0x0
0x03c4…03e9 lno = 0x00b9 // 0x3c6 @0x2
0x03c4…03e9 at0004 = ╱a9╱ GET ╱ // 0x3c8 @0x4
0x03c4…03e9 at0005 = ╱46╱F╱ // 0x3c9 @0x5
0x03c4…03e9 at0006 = ╱49╱I╱ // 0x3ca @0x6
0x03c4…03e9 at0007 = ╱4c╱L╱ // 0x3cb @0x7
0x03c4…03e9 at0008 = ╱ef╱ $ ╱ // 0x3cc @0x8
0x03c4…03e9 at0009 = ╱f1╱ : ╱ // 0x3cd @0x9
0x03c4…03e9 at000a = ╱46╱F╱ // 0x3ce @0xa
0x03c4…03e9 at000b = ╱39╱9╱ // 0x3cf @0xb
0x03c4…03e9 at000c = ╱ec╱ , ╱ // 0x3d0 @0xc
0x03c4…03e9 at000d = ╱50╱P╱ // 0x3d1 @0xd
0x03c4…03e9 at000e = ╱31╱1╱ // 0x3d2 @0xe
0x03c4…03e9 at000f = ╱ec╱ , ╱ // 0x3d3 @0xf
0x03c4…03e9 at0010 = ╱50╱P╱ // 0x3d4 @0x10
0x03c4…03e9 at0011 = ╱37╱7╱ // 0x3d5 @0x11
0x03c4…03e9 at0012 = ╱ec╱ , ╱ // 0x3d6 @0x12
0x03c4…03e9 at0013 = ╱50╱P╱ // 0x3d7 @0x13
0x03c4…03e9 at0014 = ╱38╱8╱ // 0x3d8 @0x14
0x03c4…03e9 at0015 = ╱ec╱ , ╱ // 0x3d9 @0x15
0x03c4…03e9 at0016 = ╱50╱P╱ // 0x3da @0x16
0x03c4…03e9 at0017 = ╱39╱9╱ // 0x3db @0x17
0x03c4…03e9 at0018 = ╱ec╱ , ╱ // 0x3dc @0x18
0x03c4…03e9 at0019 = ╱54╱T╱ // 0x3dd @0x19
0x03c4…03e9 at001a = ╱30╱0╱ // 0x3de @0x1a
0x03c4…03e9 at001b = ╱ec╱ , ╱ // 0x3df @0x1b
0x03c4…03e9 at001c = ╱42╱B╱ // 0x3e0 @0x1c
0x03c4…03e9 at001d = ╱32╱2╱ // 0x3e1 @0x1d
0x03c4…03e9 at001e = ╱ec╱ , ╱ // 0x3e2 @0x1e
0x03c4…03e9 at001f = ╱42╱B╱ // 0x3e3 @0x1f
0x03c4…03e9 at0020 = ╱31╱1╱ // 0x3e4 @0x20
0x03c4…03e9 at0021 = ╱ec╱ , ╱ // 0x3e5 @0x21
0x03c4…03e9 at0022 = ╱42╱B╱ // 0x3e6 @0x22
0x03c4…03e9 at0023 = ╱39╱9╱ // 0x3e7 @0x23
0x03c4…03e9 at0024 = EOL // 0x3e8 @0x24
0x03c4…03e9 }
0x03e9…0410 (13,) 99fe 00190 GET FIL $ : T2 , C6 , BD6 , C0 , B3 , E6 , F2 , T3 , TKB
0x03e9…0410 LineComal80 {
0x03e9…0410 ptr = 0x99fe // 0x3e9 @0x0
0x03e9…0410 lno = 0x00be // 0x3eb @0x2
0x03e9…0410 at0004 = ╱a9╱ GET ╱ // 0x3ed @0x4
0x03e9…0410 at0005 = ╱46╱F╱ // 0x3ee @0x5
0x03e9…0410 at0006 = ╱49╱I╱ // 0x3ef @0x6
0x03e9…0410 at0007 = ╱4c╱L╱ // 0x3f0 @0x7
0x03e9…0410 at0008 = ╱ef╱ $ ╱ // 0x3f1 @0x8
0x03e9…0410 at0009 = ╱f1╱ : ╱ // 0x3f2 @0x9
0x03e9…0410 at000a = ╱54╱T╱ // 0x3f3 @0xa
0x03e9…0410 at000b = ╱32╱2╱ // 0x3f4 @0xb
0x03e9…0410 at000c = ╱ec╱ , ╱ // 0x3f5 @0xc
0x03e9…0410 at000d = ╱43╱C╱ // 0x3f6 @0xd
0x03e9…0410 at000e = ╱36╱6╱ // 0x3f7 @0xe
0x03e9…0410 at000f = ╱ec╱ , ╱ // 0x3f8 @0xf
0x03e9…0410 at0010 = ╱42╱B╱ // 0x3f9 @0x10
0x03e9…0410 at0011 = ╱44╱D╱ // 0x3fa @0x11
0x03e9…0410 at0012 = ╱36╱6╱ // 0x3fb @0x12
0x03e9…0410 at0013 = ╱ec╱ , ╱ // 0x3fc @0x13
0x03e9…0410 at0014 = ╱43╱C╱ // 0x3fd @0x14
0x03e9…0410 at0015 = ╱30╱0╱ // 0x3fe @0x15
0x03e9…0410 at0016 = ╱ec╱ , ╱ // 0x3ff @0x16
0x03e9…0410 at0017 = ╱42╱B╱ // 0x400 @0x17
0x03e9…0410 at0018 = ╱33╱3╱ // 0x401 @0x18
0x03e9…0410 at0019 = ╱ec╱ , ╱ // 0x402 @0x19
0x03e9…0410 at001a = ╱45╱E╱ // 0x403 @0x1a
0x03e9…0410 at001b = ╱36╱6╱ // 0x404 @0x1b
0x03e9…0410 at001c = ╱ec╱ , ╱ // 0x405 @0x1c
0x03e9…0410 at001d = ╱46╱F╱ // 0x406 @0x1d
0x03e9…0410 at001e = ╱32╱2╱ // 0x407 @0x1e
0x03e9…0410 at001f = ╱ec╱ , ╱ // 0x408 @0x1f
0x03e9…0410 at0020 = ╱54╱T╱ // 0x409 @0x20
0x03e9…0410 at0021 = ╱33╱3╱ // 0x40a @0x21
0x03e9…0410 at0022 = ╱ec╱ , ╱ // 0x40b @0x22
0x03e9…0410 at0023 = ╱54╱T╱ // 0x40c @0x23
0x03e9…0410 at0024 = ╱4b╱K╱ // 0x40d @0x24
0x03e9…0410 at0025 = ╱42╱B╱ // 0x40e @0x25
0x03e9…0410 at0026 = EOL // 0x40f @0x26
0x03e9…0410 }
0x0410…0431 9a1f 00195 GET FIL $ : F0 , F7 , SKG , AKT , D6 , GSLUT
0x0410…0431 LineComal80 {
0x0410…0431 ptr = 0x9a1f // 0x410 @0x0
0x0410…0431 lno = 0x00c3 // 0x412 @0x2
0x0410…0431 at0004 = ╱a9╱ GET ╱ // 0x414 @0x4
0x0410…0431 at0005 = ╱46╱F╱ // 0x415 @0x5
0x0410…0431 at0006 = ╱49╱I╱ // 0x416 @0x6
0x0410…0431 at0007 = ╱4c╱L╱ // 0x417 @0x7
0x0410…0431 at0008 = ╱ef╱ $ ╱ // 0x418 @0x8
0x0410…0431 at0009 = ╱f1╱ : ╱ // 0x419 @0x9
0x0410…0431 at000a = ╱46╱F╱ // 0x41a @0xa
0x0410…0431 at000b = ╱30╱0╱ // 0x41b @0xb
0x0410…0431 at000c = ╱ec╱ , ╱ // 0x41c @0xc
0x0410…0431 at000d = ╱46╱F╱ // 0x41d @0xd
0x0410…0431 at000e = ╱37╱7╱ // 0x41e @0xe
0x0410…0431 at000f = ╱ec╱ , ╱ // 0x41f @0xf
0x0410…0431 at0010 = ╱53╱S╱ // 0x420 @0x10
0x0410…0431 at0011 = ╱4b╱K╱ // 0x421 @0x11
0x0410…0431 at0012 = ╱47╱G╱ // 0x422 @0x12
0x0410…0431 at0013 = ╱ec╱ , ╱ // 0x423 @0x13
0x0410…0431 at0014 = ╱41╱A╱ // 0x424 @0x14
0x0410…0431 at0015 = ╱4b╱K╱ // 0x425 @0x15
0x0410…0431 at0016 = ╱54╱T╱ // 0x426 @0x16
0x0410…0431 at0017 = ╱ec╱ , ╱ // 0x427 @0x17
0x0410…0431 at0018 = ╱44╱D╱ // 0x428 @0x18
0x0410…0431 at0019 = ╱36╱6╱ // 0x429 @0x19
0x0410…0431 at001a = ╱ec╱ , ╱ // 0x42a @0x1a
0x0410…0431 at001b = ╱47╱G╱ // 0x42b @0x1b
0x0410…0431 at001c = ╱53╱S╱ // 0x42c @0x1c
0x0410…0431 at001d = ╱4c╱L╱ // 0x42d @0x1d
0x0410…0431 at001e = ╱55╱U╱ // 0x42e @0x1e
0x0410…0431 at001f = ╱54╱T╱ // 0x42f @0x1f
0x0410…0431 at0020 = EOL // 0x430 @0x20
0x0410…0431 }
0x0431…045d 9a4b 00200 GET FIL $ : HFORMUE , BFORMUE , HATP , BATP , G , FSLUT
0x0431…045d LineComal80 {
0x0431…045d ptr = 0x9a4b // 0x431 @0x0
0x0431…045d lno = 0x00c8 // 0x433 @0x2
0x0431…045d at0004 = ╱a9╱ GET ╱ // 0x435 @0x4
0x0431…045d at0005 = ╱46╱F╱ // 0x436 @0x5
0x0431…045d at0006 = ╱49╱I╱ // 0x437 @0x6
0x0431…045d at0007 = ╱4c╱L╱ // 0x438 @0x7
0x0431…045d at0008 = ╱ef╱ $ ╱ // 0x439 @0x8
0x0431…045d at0009 = ╱f1╱ : ╱ // 0x43a @0x9
0x0431…045d at000a = ╱48╱H╱ // 0x43b @0xa
0x0431…045d at000b = ╱46╱F╱ // 0x43c @0xb
0x0431…045d at000c = ╱4f╱O╱ // 0x43d @0xc
0x0431…045d at000d = ╱52╱R╱ // 0x43e @0xd
0x0431…045d at000e = ╱4d╱M╱ // 0x43f @0xe
0x0431…045d at000f = ╱55╱U╱ // 0x440 @0xf
0x0431…045d at0010 = ╱45╱E╱ // 0x441 @0x10
0x0431…045d at0011 = ╱ec╱ , ╱ // 0x442 @0x11
0x0431…045d at0012 = ╱42╱B╱ // 0x443 @0x12
0x0431…045d at0013 = ╱46╱F╱ // 0x444 @0x13
0x0431…045d at0014 = ╱4f╱O╱ // 0x445 @0x14
0x0431…045d at0015 = ╱52╱R╱ // 0x446 @0x15
0x0431…045d at0016 = ╱4d╱M╱ // 0x447 @0x16
0x0431…045d at0017 = ╱55╱U╱ // 0x448 @0x17
0x0431…045d at0018 = ╱45╱E╱ // 0x449 @0x18
0x0431…045d at0019 = ╱ec╱ , ╱ // 0x44a @0x19
0x0431…045d at001a = ╱48╱H╱ // 0x44b @0x1a
0x0431…045d at001b = ╱41╱A╱ // 0x44c @0x1b
0x0431…045d at001c = ╱54╱T╱ // 0x44d @0x1c
0x0431…045d at001d = ╱50╱P╱ // 0x44e @0x1d
0x0431…045d at001e = ╱ec╱ , ╱ // 0x44f @0x1e
0x0431…045d at001f = ╱42╱B╱ // 0x450 @0x1f
0x0431…045d at0020 = ╱41╱A╱ // 0x451 @0x20
0x0431…045d at0021 = ╱54╱T╱ // 0x452 @0x21
0x0431…045d at0022 = ╱50╱P╱ // 0x453 @0x22
0x0431…045d at0023 = ╱ec╱ , ╱ // 0x454 @0x23
0x0431…045d at0024 = ╱47╱G╱ // 0x455 @0x24
0x0431…045d at0025 = ╱ec╱ , ╱ // 0x456 @0x25
0x0431…045d at0026 = ╱46╱F╱ // 0x457 @0x26
0x0431…045d at0027 = ╱53╱S╱ // 0x458 @0x27
0x0431…045d at0028 = ╱4c╱L╱ // 0x459 @0x28
0x0431…045d at0029 = ╱55╱U╱ // 0x45a @0x29
0x0431…045d at002a = ╱54╱T╱ // 0x45b @0x2a
0x0431…045d at002b = EOL // 0x45c @0x2b
0x0431…045d }
0x045d…0471 9a5f 00205 GET FIL $ : HKL $ , BKL $
0x045d…0471 LineComal80 {
0x045d…0471 ptr = 0x9a5f // 0x45d @0x0
0x045d…0471 lno = 0x00cd // 0x45f @0x2
0x045d…0471 at0004 = ╱a9╱ GET ╱ // 0x461 @0x4
0x045d…0471 at0005 = ╱46╱F╱ // 0x462 @0x5
0x045d…0471 at0006 = ╱49╱I╱ // 0x463 @0x6
0x045d…0471 at0007 = ╱4c╱L╱ // 0x464 @0x7
0x045d…0471 at0008 = ╱ef╱ $ ╱ // 0x465 @0x8
0x045d…0471 at0009 = ╱f1╱ : ╱ // 0x466 @0x9
0x045d…0471 at000a = ╱48╱H╱ // 0x467 @0xa
0x045d…0471 at000b = ╱4b╱K╱ // 0x468 @0xb
0x045d…0471 at000c = ╱4c╱L╱ // 0x469 @0xc
0x045d…0471 at000d = ╱ef╱ $ ╱ // 0x46a @0xd
0x045d…0471 at000e = ╱ec╱ , ╱ // 0x46b @0xe
0x045d…0471 at000f = ╱42╱B╱ // 0x46c @0xf
0x045d…0471 at0010 = ╱4b╱K╱ // 0x46d @0x10
0x045d…0471 at0011 = ╱4c╱L╱ // 0x46e @0x11
0x045d…0471 at0012 = ╱ef╱ $ ╱ // 0x46f @0x12
0x045d…0471 at0013 = EOL // 0x470 @0x13
0x045d…0471 }
0x0471…047b 9a69 00210 CLOSE FIL $
0x0471…047b LineComal80 {
0x0471…047b ptr = 0x9a69 // 0x471 @0x0
0x0471…047b lno = 0x00d2 // 0x473 @0x2
0x0471…047b at0004 = ╱a8╱ CLOSE ╱ // 0x475 @0x4
0x0471…047b at0005 = ╱46╱F╱ // 0x476 @0x5
0x0471…047b at0006 = ╱49╱I╱ // 0x477 @0x6
0x0471…047b at0007 = ╱4c╱L╱ // 0x478 @0x7
0x0471…047b at0008 = ╱ef╱ $ ╱ // 0x479 @0x8
0x0471…047b at0009 = EOL // 0x47a @0x9
0x0471…047b }
0x047b…0488 9a76 00215 EXEC FORTS[T
0x047b…0488 LineComal80 {
0x047b…0488 ptr = 0x9a76 // 0x47b @0x0
0x047b…0488 lno = 0x00d7 // 0x47d @0x2
0x047b…0488 at0004 = ╱9d╱ EXEC ╱ // 0x47f @0x4
0x047b…0488 at0005 = ╱46╱F╱ // 0x480 @0x5
0x047b…0488 at0006 = ╱4f╱O╱ // 0x481 @0x6
0x047b…0488 at0007 = ╱52╱R╱ // 0x482 @0x7
0x047b…0488 at0008 = ╱54╱T╱ // 0x483 @0x8
0x047b…0488 at0009 = ╱53╱S╱ // 0x484 @0x9
0x047b…0488 at000a = ╱5b╱[╱ // 0x485 @0xa
0x047b…0488 at000b = ╱54╱T╱ // 0x486 @0xb
0x047b…0488 at000c = EOL // 0x487 @0xc
0x047b…0488 }
0x0488…048f 9a7d 00220 ELSE
0x0488…048f LineComal80 {
0x0488…048f ptr = 0x9a7d // 0x488 @0x0
0x0488…048f lno = 0x00dc // 0x48a @0x2
0x0488…048f at0004 = ╱9a00╱ ELSE ╱ // 0x48c @0x4
0x0488…048f at0006 = EOL // 0x48e @0x6
0x0488…048f }
0x048f…04b3 9aa1 00225 PRINT TAB ( 29 ) ; ">>>…EASY…-…SKAT…<<<"
0x048f…04b3 LineComal80 {
0x048f…04b3 ptr = 0x9aa1 // 0x48f @0x0
0x048f…04b3 lno = 0x00e1 // 0x491 @0x2
0x048f…04b3 at0004 = ╱92╱ PRINT ╱ // 0x493 @0x4
0x048f…04b3 at0005 = ╱d2╱ TAB ╱ // 0x494 @0x5
0x048f…04b3 at0006 = ╱ed╱ ( ╱ // 0x495 @0x6
0x048f…04b3 at0007 = ╱32╱2╱ // 0x496 @0x7
0x048f…04b3 at0008 = ╱39╱9╱ // 0x497 @0x8
0x048f…04b3 at0009 = ╱f21d00╱ // 0x498 @0x9
0x048f…04b3 at000c = ╱ee╱ ) ╱ // 0x49b @0xc
0x048f…04b3 at000d = ╱ea╱ ; ╱ // 0x49c @0xd
0x048f…04b3 at000e = ╱22╱"╱ // 0x49d @0xe
0x048f…04b3 at000f = ╱3e╱>╱ // 0x49e @0xf
0x048f…04b3 at0010 = ╱3e╱>╱ // 0x49f @0x10
0x048f…04b3 at0011 = ╱3e╱>╱ // 0x4a0 @0x11
0x048f…04b3 at0012 = ╱20╱…╱ // 0x4a1 @0x12
0x048f…04b3 at0013 = ╱45╱E╱ // 0x4a2 @0x13
0x048f…04b3 at0014 = ╱41╱A╱ // 0x4a3 @0x14
0x048f…04b3 at0015 = ╱53╱S╱ // 0x4a4 @0x15
0x048f…04b3 at0016 = ╱59╱Y╱ // 0x4a5 @0x16
0x048f…04b3 at0017 = ╱20╱…╱ // 0x4a6 @0x17
0x048f…04b3 at0018 = ╱2d╱-╱ // 0x4a7 @0x18
0x048f…04b3 at0019 = ╱20╱…╱ // 0x4a8 @0x19
0x048f…04b3 at001a = ╱53╱S╱ // 0x4a9 @0x1a
0x048f…04b3 at001b = ╱4b╱K╱ // 0x4aa @0x1b
0x048f…04b3 at001c = ╱41╱A╱ // 0x4ab @0x1c
0x048f…04b3 at001d = ╱54╱T╱ // 0x4ac @0x1d
0x048f…04b3 at001e = ╱20╱…╱ // 0x4ad @0x1e
0x048f…04b3 at001f = ╱3c╱<╱ // 0x4ae @0x1f
0x048f…04b3 at0020 = ╱3c╱<╱ // 0x4af @0x20
0x048f…04b3 at0021 = ╱3c╱<╱ // 0x4b0 @0x21
0x048f…04b3 at0022 = ╱22╱"╱ // 0x4b1 @0x22
0x048f…04b3 at0023 = EOL // 0x4b2 @0x23
0x048f…04b3 }
0x04b3…04cc 9aba 00230 LET FIL $ := "DDE:skatvejl"
0x04b3…04cc LineComal80 {
0x04b3…04cc ptr = 0x9aba // 0x4b3 @0x0
0x04b3…04cc lno = 0x00e6 // 0x4b5 @0x2
0x04b3…04cc at0004 = ╱86╱ LET ╱ // 0x4b7 @0x4
0x04b3…04cc at0005 = ╱46╱F╱ // 0x4b8 @0x5
0x04b3…04cc at0006 = ╱49╱I╱ // 0x4b9 @0x6
0x04b3…04cc at0007 = ╱4c╱L╱ // 0x4ba @0x7
0x04b3…04cc at0008 = ╱ef╱ $ ╱ // 0x4bb @0x8
0x04b3…04cc at0009 = ╱f0╱ := ╱ // 0x4bc @0x9
0x04b3…04cc at000a = ╱22╱"╱ // 0x4bd @0xa
0x04b3…04cc at000b = ╱44╱D╱ // 0x4be @0xb
0x04b3…04cc at000c = ╱44╱D╱ // 0x4bf @0xc
0x04b3…04cc at000d = ╱45╱E╱ // 0x4c0 @0xd
0x04b3…04cc at000e = ╱3a╱:╱ // 0x4c1 @0xe
0x04b3…04cc at000f = ╱73╱s╱ // 0x4c2 @0xf
0x04b3…04cc at0010 = ╱6b╱k╱ // 0x4c3 @0x10
0x04b3…04cc at0011 = ╱61╱a╱ // 0x4c4 @0x11
0x04b3…04cc at0012 = ╱74╱t╱ // 0x4c5 @0x12
0x04b3…04cc at0013 = ╱76╱v╱ // 0x4c6 @0x13
0x04b3…04cc at0014 = ╱65╱e╱ // 0x4c7 @0x14
0x04b3…04cc at0015 = ╱6a╱j╱ // 0x4c8 @0x15
0x04b3…04cc at0016 = ╱6c╱l╱ // 0x4c9 @0x16
0x04b3…04cc at0017 = ╱22╱"╱ // 0x4ca @0x17
0x04b3…04cc at0018 = EOL // 0x4cb @0x18
0x04b3…04cc }
0x04cc…04d8 9ac6 00235 OPEN FIL $ , R
0x04cc…04d8 LineComal80 {
0x04cc…04d8 ptr = 0x9ac6 // 0x4cc @0x0
0x04cc…04d8 lno = 0x00eb // 0x4ce @0x2
0x04cc…04d8 at0004 = ╱a7╱ OPEN ╱ // 0x4d0 @0x4
0x04cc…04d8 at0005 = ╱46╱F╱ // 0x4d1 @0x5
0x04cc…04d8 at0006 = ╱49╱I╱ // 0x4d2 @0x6
0x04cc…04d8 at0007 = ╱4c╱L╱ // 0x4d3 @0x7
0x04cc…04d8 at0008 = ╱ef╱ $ ╱ // 0x4d4 @0x8
0x04cc…04d8 at0009 = ╱ec╱ , ╱ // 0x4d5 @0x9
0x04cc…04d8 at000a = ╱52╱R╱ // 0x4d6 @0xa
0x04cc…04d8 at000b = EOL // 0x4d7 @0xb
0x04cc…04d8 }
0x04d8…04e2 9ad0 00240 EXEC LFIL
0x04d8…04e2 LineComal80 {
0x04d8…04e2 ptr = 0x9ad0 // 0x4d8 @0x0
0x04d8…04e2 lno = 0x00f0 // 0x4da @0x2
0x04d8…04e2 at0004 = ╱9d╱ EXEC ╱ // 0x4dc @0x4
0x04d8…04e2 at0005 = ╱4c╱L╱ // 0x4dd @0x5
0x04d8…04e2 at0006 = ╱46╱F╱ // 0x4de @0x6
0x04d8…04e2 at0007 = ╱49╱I╱ // 0x4df @0x7
0x04d8…04e2 at0008 = ╱4c╱L╱ // 0x4e0 @0x8
0x04d8…04e2 at0009 = EOL // 0x4e1 @0x9
0x04d8…04e2 }
0x04e2…04ee 9adc 00245 EXEC RETURN
0x04e2…04ee LineComal80 {
0x04e2…04ee ptr = 0x9adc // 0x4e2 @0x0
0x04e2…04ee lno = 0x00f5 // 0x4e4 @0x2
0x04e2…04ee at0004 = ╱9d╱ EXEC ╱ // 0x4e6 @0x4
0x04e2…04ee at0005 = ╱52╱R╱ // 0x4e7 @0x5
0x04e2…04ee at0006 = ╱45╱E╱ // 0x4e8 @0x6
0x04e2…04ee at0007 = ╱54╱T╱ // 0x4e9 @0x7
0x04e2…04ee at0008 = ╱55╱U╱ // 0x4ea @0x8
0x04e2…04ee at0009 = ╱52╱R╱ // 0x4eb @0x9
0x04e2…04ee at000a = ╱4e╱N╱ // 0x4ec @0xa
0x04e2…04ee at000b = EOL // 0x4ed @0xb
0x04e2…04ee }
0x04ee…04f4 9ae2 00250 ENDIF
0x04ee…04f4 LineComal80 {
0x04ee…04f4 ptr = 0x9ae2 // 0x4ee @0x0
0x04ee…04f4 lno = 0x00fa // 0x4f0 @0x2
0x04ee…04f4 at0004 = ╱9c╱ ENDIF ╱ // 0x4f2 @0x4
0x04ee…04f4 at0005 = EOL // 0x4f3 @0x5
0x04ee…04f4 }
0x04f4…04fd 9aeb 00255 LET X := O
0x04f4…04fd LineComal80 {
0x04f4…04fd ptr = 0x9aeb // 0x4f4 @0x0
0x04f4…04fd lno = 0x00ff // 0x4f6 @0x2
0x04f4…04fd at0004 = ╱86╱ LET ╱ // 0x4f8 @0x4
0x04f4…04fd at0005 = ╱58╱X╱ // 0x4f9 @0x5
0x04f4…04fd at0006 = ╱f0╱ := ╱ // 0x4fa @0x6
0x04f4…04fd at0007 = ╱4f╱O╱ // 0x4fb @0x7
0x04f4…04fd at0008 = EOL // 0x4fc @0x8
0x04f4…04fd }
0x04fd…0512 9b00 00260 OPEN "dde:skatart" , R
0x04fd…0512 LineComal80 {
0x04fd…0512 ptr = 0x9b00 // 0x4fd @0x0
0x04fd…0512 lno = 0x0104 // 0x4ff @0x2
0x04fd…0512 at0004 = ╱a7╱ OPEN ╱ // 0x501 @0x4
0x04fd…0512 at0005 = ╱22╱"╱ // 0x502 @0x5
0x04fd…0512 at0006 = ╱64╱d╱ // 0x503 @0x6
0x04fd…0512 at0007 = ╱64╱d╱ // 0x504 @0x7
0x04fd…0512 at0008 = ╱65╱e╱ // 0x505 @0x8
0x04fd…0512 at0009 = ╱3a╱:╱ // 0x506 @0x9
0x04fd…0512 at000a = ╱73╱s╱ // 0x507 @0xa
0x04fd…0512 at000b = ╱6b╱k╱ // 0x508 @0xb
0x04fd…0512 at000c = ╱61╱a╱ // 0x509 @0xc
0x04fd…0512 at000d = ╱74╱t╱ // 0x50a @0xd
0x04fd…0512 at000e = ╱61╱a╱ // 0x50b @0xe
0x04fd…0512 at000f = ╱72╱r╱ // 0x50c @0xf
0x04fd…0512 at0010 = ╱74╱t╱ // 0x50d @0x10
0x04fd…0512 at0011 = ╱22╱"╱ // 0x50e @0x11
0x04fd…0512 at0012 = ╱ec╱ , ╱ // 0x50f @0x12
0x04fd…0512 at0013 = ╱52╱R╱ // 0x510 @0x13
0x04fd…0512 at0014 = EOL // 0x511 @0x14
0x04fd…0512 }
0x0512…0519 9b07 00265 REPEAT
0x0512…0519 LineComal80 {
0x0512…0519 ptr = 0x9b07 // 0x512 @0x0
0x0512…0519 lno = 0x0109 // 0x514 @0x2
0x0512…0519 at0004 = ╱9700╱ REPEAT ╱ // 0x516 @0x4
0x0512…0519 at0006 = EOL // 0x518 @0x6
0x0512…0519 }
0x0519…0527 9b15 00270 LET X := X + 1
0x0519…0527 LineComal80 {
0x0519…0527 ptr = 0x9b15 // 0x519 @0x0
0x0519…0527 lno = 0x010e // 0x51b @0x2
0x0519…0527 at0004 = ╱86╱ LET ╱ // 0x51d @0x4
0x0519…0527 at0005 = ╱58╱X╱ // 0x51e @0x5
0x0519…0527 at0006 = ╱f0╱ := ╱ // 0x51f @0x6
0x0519…0527 at0007 = ╱58╱X╱ // 0x520 @0x7
0x0519…0527 at0008 = ╱e5╱ + ╱ // 0x521 @0x8
0x0519…0527 at0009 = ╱31╱1╱ // 0x522 @0x9
0x0519…0527 at000a = ╱f20100╱ // 0x523 @0xa
0x0519…0527 at000d = EOL // 0x526 @0xd
0x0519…0527 }
0x0527…0541 9b2f 00275 GET "dde:skatart" : A1 $ ( X )
0x0527…0541 LineComal80 {
0x0527…0541 ptr = 0x9b2f // 0x527 @0x0
0x0527…0541 lno = 0x0113 // 0x529 @0x2
0x0527…0541 at0004 = ╱a9╱ GET ╱ // 0x52b @0x4
0x0527…0541 at0005 = ╱22╱"╱ // 0x52c @0x5
0x0527…0541 at0006 = ╱64╱d╱ // 0x52d @0x6
0x0527…0541 at0007 = ╱64╱d╱ // 0x52e @0x7
0x0527…0541 at0008 = ╱65╱e╱ // 0x52f @0x8
0x0527…0541 at0009 = ╱3a╱:╱ // 0x530 @0x9
0x0527…0541 at000a = ╱73╱s╱ // 0x531 @0xa
0x0527…0541 at000b = ╱6b╱k╱ // 0x532 @0xb
0x0527…0541 at000c = ╱61╱a╱ // 0x533 @0xc
0x0527…0541 at000d = ╱74╱t╱ // 0x534 @0xd
0x0527…0541 at000e = ╱61╱a╱ // 0x535 @0xe
0x0527…0541 at000f = ╱72╱r╱ // 0x536 @0xf
0x0527…0541 at0010 = ╱74╱t╱ // 0x537 @0x10
0x0527…0541 at0011 = ╱22╱"╱ // 0x538 @0x11
0x0527…0541 at0012 = ╱f1╱ : ╱ // 0x539 @0x12
0x0527…0541 at0013 = ╱41╱A╱ // 0x53a @0x13
0x0527…0541 at0014 = ╱31╱1╱ // 0x53b @0x14
0x0527…0541 at0015 = ╱ef╱ $ ╱ // 0x53c @0x15
0x0527…0541 at0016 = ╱ed╱ ( ╱ // 0x53d @0x16
0x0527…0541 at0017 = ╱58╱X╱ // 0x53e @0x17
0x0527…0541 at0018 = ╱ee╱ ) ╱ // 0x53f @0x18
0x0527…0541 at0019 = EOL // 0x540 @0x19
0x0527…0541 }
0x0541…0578 9b66 00280 UNTIL ╱cd╱ ( "dde:skatart" ) = 19 OR ╱cd╱ ( "dde:skatart" ) > O OR X = 29
0x0541…0578 LineComal80 {
0x0541…0578 ptr = 0x9b66 // 0x541 @0x0
0x0541…0578 lno = 0x0118 // 0x543 @0x2
0x0541…0578 at0004 = ╱98╱ UNTIL ╱ // 0x545 @0x4
0x0541…0578 at0005 = ╱cd╱ // 0x546 @0x5
0x0541…0578 at0006 = ╱ed╱ ( ╱ // 0x547 @0x6
0x0541…0578 at0007 = ╱22╱"╱ // 0x548 @0x7
0x0541…0578 at0008 = ╱64╱d╱ // 0x549 @0x8
0x0541…0578 at0009 = ╱64╱d╱ // 0x54a @0x9
0x0541…0578 at000a = ╱65╱e╱ // 0x54b @0xa
0x0541…0578 at000b = ╱3a╱:╱ // 0x54c @0xb
0x0541…0578 at000c = ╱73╱s╱ // 0x54d @0xc
0x0541…0578 at000d = ╱6b╱k╱ // 0x54e @0xd
0x0541…0578 at000e = ╱61╱a╱ // 0x54f @0xe
0x0541…0578 at000f = ╱74╱t╱ // 0x550 @0xf
0x0541…0578 at0010 = ╱61╱a╱ // 0x551 @0x10
0x0541…0578 at0011 = ╱72╱r╱ // 0x552 @0x11
0x0541…0578 at0012 = ╱74╱t╱ // 0x553 @0x12
0x0541…0578 at0013 = ╱22╱"╱ // 0x554 @0x13
0x0541…0578 at0014 = ╱ee╱ ) ╱ // 0x555 @0x14
0x0541…0578 at0015 = ╱df╱ = ╱ // 0x556 @0x15
0x0541…0578 at0016 = ╱31╱1╱ // 0x557 @0x16
0x0541…0578 at0017 = ╱39╱9╱ // 0x558 @0x17
0x0541…0578 at0018 = ╱f21300╱ // 0x559 @0x18
0x0541…0578 at001b = ╱d8╱ OR ╱ // 0x55c @0x1b
0x0541…0578 at001c = ╱cd╱ // 0x55d @0x1c
0x0541…0578 at001d = ╱ed╱ ( ╱ // 0x55e @0x1d
0x0541…0578 at001e = ╱22╱"╱ // 0x55f @0x1e
0x0541…0578 at001f = ╱64╱d╱ // 0x560 @0x1f
0x0541…0578 at0020 = ╱64╱d╱ // 0x561 @0x20
0x0541…0578 at0021 = ╱65╱e╱ // 0x562 @0x21
0x0541…0578 at0022 = ╱3a╱:╱ // 0x563 @0x22
0x0541…0578 at0023 = ╱73╱s╱ // 0x564 @0x23
0x0541…0578 at0024 = ╱6b╱k╱ // 0x565 @0x24
0x0541…0578 at0025 = ╱61╱a╱ // 0x566 @0x25
0x0541…0578 at0026 = ╱74╱t╱ // 0x567 @0x26
0x0541…0578 at0027 = ╱61╱a╱ // 0x568 @0x27
0x0541…0578 at0028 = ╱72╱r╱ // 0x569 @0x28
0x0541…0578 at0029 = ╱74╱t╱ // 0x56a @0x29
0x0541…0578 at002a = ╱22╱"╱ // 0x56b @0x2a
0x0541…0578 at002b = ╱ee╱ ) ╱ // 0x56c @0x2b
0x0541…0578 at002c = ╱e1╱ > ╱ // 0x56d @0x2c
0x0541…0578 at002d = ╱4f╱O╱ // 0x56e @0x2d
0x0541…0578 at002e = ╱d8╱ OR ╱ // 0x56f @0x2e
0x0541…0578 at002f = ╱58╱X╱ // 0x570 @0x2f
0x0541…0578 at0030 = ╱df╱ = ╱ // 0x571 @0x30
0x0541…0578 at0031 = ╱32╱2╱ // 0x572 @0x31
0x0541…0578 at0032 = ╱39╱9╱ // 0x573 @0x32
0x0541…0578 at0033 = ╱f21d00╱ // 0x574 @0x33
0x0541…0578 at0036 = EOL // 0x577 @0x36
0x0541…0578 }
0x0578…057e 9b6c 00285 CLOSE
0x0578…057e LineComal80 {
0x0578…057e ptr = 0x9b6c // 0x578 @0x0
0x0578…057e lno = 0x011d // 0x57a @0x2
0x0578…057e at0004 = ╱a8╱ CLOSE ╱ // 0x57c @0x4
0x0578…057e at0005 = EOL // 0x57d @0x5
0x0578…057e }
0x057e…05e1 9bcf 00290 LET E1 := 28 ; F3 := 64000 ; F4 := 70999 ; F5 := 1985 ; P1 := 111300 ; P2 := 182600
0x057e…05e1 LineComal80 {
0x057e…05e1 ptr = 0x9bcf // 0x57e @0x0
0x057e…05e1 lno = 0x0122 // 0x580 @0x2
0x057e…05e1 at0004 = ╱86╱ LET ╱ // 0x582 @0x4
0x057e…05e1 at0005 = ╱45╱E╱ // 0x583 @0x5
0x057e…05e1 at0006 = ╱31╱1╱ // 0x584 @0x6
0x057e…05e1 at0007 = ╱f0╱ := ╱ // 0x585 @0x7
0x057e…05e1 at0008 = ╱32╱2╱ // 0x586 @0x8
0x057e…05e1 at0009 = ╱38╱8╱ // 0x587 @0x9
0x057e…05e1 at000a = ╱f21c00╱ // 0x588 @0xa
0x057e…05e1 at000d = ╱ea╱ ; ╱ // 0x58b @0xd
0x057e…05e1 at000e = ╱46╱F╱ // 0x58c @0xe
0x057e…05e1 at000f = ╱33╱3╱ // 0x58d @0xf
0x057e…05e1 at0010 = ╱f0╱ := ╱ // 0x58e @0x10
0x057e…05e1 at0011 = ╱36╱6╱ // 0x58f @0x11
0x057e…05e1 at0012 = ╱34╱4╱ // 0x590 @0x12
0x057e…05e1 at0013 = ╱30╱0╱ // 0x591 @0x13
0x057e…05e1 at0014 = ╱30╱0╱ // 0x592 @0x14
0x057e…05e1 at0015 = ╱30╱0╱ // 0x593 @0x15
0x057e…05e1 at0016 = ╱f88500000000004006╱ // 0x594 @0x16
0x057e…05e1 at001f = ╱ea╱ ; ╱ // 0x59d @0x1f
0x057e…05e1 at0020 = ╱46╱F╱ // 0x59e @0x20
0x057e…05e1 at0021 = ╱34╱4╱ // 0x59f @0x21
0x057e…05e1 at0022 = ╱f0╱ := ╱ // 0x5a0 @0x22
0x057e…05e1 at0023 = ╱37╱7╱ // 0x5a1 @0x23
0x057e…05e1 at0024 = ╱30╱0╱ // 0x5a2 @0x24
0x057e…05e1 at0025 = ╱39╱9╱ // 0x5a3 @0x25
0x057e…05e1 at0026 = ╱39╱9╱ // 0x5a4 @0x26
0x057e…05e1 at0027 = ╱39╱9╱ // 0x5a5 @0x27
0x057e…05e1 at0028 = ╱f88500000000990907╱ // 0x5a6 @0x28
0x057e…05e1 at0031 = ╱ea╱ ; ╱ // 0x5af @0x31
0x057e…05e1 at0032 = ╱46╱F╱ // 0x5b0 @0x32
0x057e…05e1 at0033 = ╱35╱5╱ // 0x5b1 @0x33
0x057e…05e1 at0034 = ╱f0╱ := ╱ // 0x5b2 @0x34
0x057e…05e1 at0035 = ╱31╱1╱ // 0x5b3 @0x35
0x057e…05e1 at0036 = ╱39╱9╱ // 0x5b4 @0x36
0x057e…05e1 at0037 = ╱38╱8╱ // 0x5b5 @0x37
0x057e…05e1 at0038 = ╱35╱5╱ // 0x5b6 @0x38
0x057e…05e1 at0039 = ╱f2c107╱ // 0x5b7 @0x39
0x057e…05e1 at003c = ╱ea╱ ; ╱ // 0x5ba @0x3c
0x057e…05e1 at003d = ╱50╱P╱ // 0x5bb @0x3d
0x057e…05e1 at003e = ╱31╱1╱ // 0x5bc @0x3e
0x057e…05e1 at003f = ╱f0╱ := ╱ // 0x5bd @0x3f
0x057e…05e1 at0040 = ╱31╱1╱ // 0x5be @0x40
0x057e…05e1 at0041 = ╱31╱1╱ // 0x5bf @0x41
0x057e…05e1 at0042 = ╱31╱1╱ // 0x5c0 @0x42
0x057e…05e1 at0043 = ╱33╱3╱ // 0x5c1 @0x43
0x057e…05e1 at0044 = ╱30╱0╱ // 0x5c2 @0x44
0x057e…05e1 at0045 = ╱30╱0╱ // 0x5c3 @0x45
0x057e…05e1 at0046 = ╱f88600000000301101╱ // 0x5c4 @0x46
0x057e…05e1 at004f = ╱ea╱ ; ╱ // 0x5cd @0x4f
0x057e…05e1 at0050 = ╱50╱P╱ // 0x5ce @0x50
0x057e…05e1 at0051 = ╱32╱2╱ // 0x5cf @0x51
0x057e…05e1 at0052 = ╱f0╱ := ╱ // 0x5d0 @0x52
0x057e…05e1 at0053 = ╱31╱1╱ // 0x5d1 @0x53
0x057e…05e1 at0054 = ╱38╱8╱ // 0x5d2 @0x54
0x057e…05e1 at0055 = ╱32╱2╱ // 0x5d3 @0x55
0x057e…05e1 at0056 = ╱36╱6╱ // 0x5d4 @0x56
0x057e…05e1 at0057 = ╱30╱0╱ // 0x5d5 @0x57
0x057e…05e1 at0058 = ╱30╱0╱ // 0x5d6 @0x58
0x057e…05e1 at0059 = ╱f88600000000608201╱ // 0x5d7 @0x59
0x057e…05e1 at0062 = EOL // 0x5e0 @0x62
0x057e…05e1 }
0x05e1…0635 9c23 00295 LET P3 := 22700 ; P4 := 20300 ; P5 := 43900 ; P6 := 24000 ; P0 := 3.5 ; PA0 := 2
0x05e1…0635 LineComal80 {
0x05e1…0635 ptr = 0x9c23 // 0x5e1 @0x0
0x05e1…0635 lno = 0x0127 // 0x5e3 @0x2
0x05e1…0635 at0004 = ╱86╱ LET ╱ // 0x5e5 @0x4
0x05e1…0635 at0005 = ╱50╱P╱ // 0x5e6 @0x5
0x05e1…0635 at0006 = ╱33╱3╱ // 0x5e7 @0x6
0x05e1…0635 at0007 = ╱f0╱ := ╱ // 0x5e8 @0x7
0x05e1…0635 at0008 = ╱32╱2╱ // 0x5e9 @0x8
0x05e1…0635 at0009 = ╱32╱2╱ // 0x5ea @0x9
0x05e1…0635 at000a = ╱37╱7╱ // 0x5eb @0xa
0x05e1…0635 at000b = ╱30╱0╱ // 0x5ec @0xb
0x05e1…0635 at000c = ╱30╱0╱ // 0x5ed @0xc
0x05e1…0635 at000d = ╱f2ac58╱ // 0x5ee @0xd
0x05e1…0635 at0010 = ╱ea╱ ; ╱ // 0x5f1 @0x10
0x05e1…0635 at0011 = ╱50╱P╱ // 0x5f2 @0x11
0x05e1…0635 at0012 = ╱34╱4╱ // 0x5f3 @0x12
0x05e1…0635 at0013 = ╱f0╱ := ╱ // 0x5f4 @0x13
0x05e1…0635 at0014 = ╱32╱2╱ // 0x5f5 @0x14
0x05e1…0635 at0015 = ╱30╱0╱ // 0x5f6 @0x15
0x05e1…0635 at0016 = ╱33╱3╱ // 0x5f7 @0x16
0x05e1…0635 at0017 = ╱30╱0╱ // 0x5f8 @0x17
0x05e1…0635 at0018 = ╱30╱0╱ // 0x5f9 @0x18
0x05e1…0635 at0019 = ╱f24c4f╱ // 0x5fa @0x19
0x05e1…0635 at001c = ╱ea╱ ; ╱ // 0x5fd @0x1c
0x05e1…0635 at001d = ╱50╱P╱ // 0x5fe @0x1d
0x05e1…0635 at001e = ╱35╱5╱ // 0x5ff @0x1e
0x05e1…0635 at001f = ╱f0╱ := ╱ // 0x600 @0x1f
0x05e1…0635 at0020 = ╱34╱4╱ // 0x601 @0x20
0x05e1…0635 at0021 = ╱33╱3╱ // 0x602 @0x21
0x05e1…0635 at0022 = ╱39╱9╱ // 0x603 @0x22
0x05e1…0635 at0023 = ╱30╱0╱ // 0x604 @0x23
0x05e1…0635 at0024 = ╱30╱0╱ // 0x605 @0x24
0x05e1…0635 at0025 = ╱f88500000000003904╱ // 0x606 @0x25
0x05e1…0635 at002e = ╱ea╱ ; ╱ // 0x60f @0x2e
0x05e1…0635 at002f = ╱50╱P╱ // 0x610 @0x2f
0x05e1…0635 at0030 = ╱36╱6╱ // 0x611 @0x30
0x05e1…0635 at0031 = ╱f0╱ := ╱ // 0x612 @0x31
0x05e1…0635 at0032 = ╱32╱2╱ // 0x613 @0x32
0x05e1…0635 at0033 = ╱34╱4╱ // 0x614 @0x33
0x05e1…0635 at0034 = ╱30╱0╱ // 0x615 @0x34
0x05e1…0635 at0035 = ╱30╱0╱ // 0x616 @0x35
0x05e1…0635 at0036 = ╱30╱0╱ // 0x617 @0x36
0x05e1…0635 at0037 = ╱f2c05d╱ // 0x618 @0x37
0x05e1…0635 at003a = ╱ea╱ ; ╱ // 0x61b @0x3a
0x05e1…0635 at003b = ╱50╱P╱ // 0x61c @0x3b
0x05e1…0635 at003c = ╱30╱0╱ // 0x61d @0x3c
0x05e1…0635 at003d = ╱f0╱ := ╱ // 0x61e @0x3d
0x05e1…0635 at003e = ╱33╱3╱ // 0x61f @0x3e
0x05e1…0635 at003f = ╱2e╱.╱ // 0x620 @0x3f
0x05e1…0635 at0040 = ╱35╱5╱ // 0x621 @0x40
0x05e1…0635 at0041 = ╱f88100000000005003╱ // 0x622 @0x41
0x05e1…0635 at004a = ╱ea╱ ; ╱ // 0x62b @0x4a
0x05e1…0635 at004b = ╱50╱P╱ // 0x62c @0x4b
0x05e1…0635 at004c = ╱41╱A╱ // 0x62d @0x4c
0x05e1…0635 at004d = ╱30╱0╱ // 0x62e @0x4d
0x05e1…0635 at004e = ╱f0╱ := ╱ // 0x62f @0x4e
0x05e1…0635 at004f = ╱32╱2╱ // 0x630 @0x4f
0x05e1…0635 at0050 = ╱f20200╱ // 0x631 @0x50
0x05e1…0635 at0053 = EOL // 0x634 @0x53
0x05e1…0635 }
0x0635…0670 9c5e 00300 LET U1 := .9 ; U2 := 1229200 ; M1 := 112700
0x0635…0670 LineComal80 {
0x0635…0670 ptr = 0x9c5e // 0x635 @0x0
0x0635…0670 lno = 0x012c // 0x637 @0x2
0x0635…0670 at0004 = ╱86╱ LET ╱ // 0x639 @0x4
0x0635…0670 at0005 = ╱55╱U╱ // 0x63a @0x5
0x0635…0670 at0006 = ╱31╱1╱ // 0x63b @0x6
0x0635…0670 at0007 = ╱f0╱ := ╱ // 0x63c @0x7
0x0635…0670 at0008 = ╱2e╱.╱ // 0x63d @0x8
0x0635…0670 at0009 = ╱39╱9╱ // 0x63e @0x9
0x0635…0670 at000a = ╱f88000000000000009╱ // 0x63f @0xa
0x0635…0670 at0013 = ╱ea╱ ; ╱ // 0x648 @0x13
0x0635…0670 at0014 = ╱55╱U╱ // 0x649 @0x14
0x0635…0670 at0015 = ╱32╱2╱ // 0x64a @0x15
0x0635…0670 at0016 = ╱f0╱ := ╱ // 0x64b @0x16
0x0635…0670 at0017 = ╱31╱1╱ // 0x64c @0x17
0x0635…0670 at0018 = ╱32╱2╱ // 0x64d @0x18
0x0635…0670 at0019 = ╱32╱2╱ // 0x64e @0x19
0x0635…0670 at001a = ╱39╱9╱ // 0x64f @0x1a
0x0635…0670 at001b = ╱32╱2╱ // 0x650 @0x1b
0x0635…0670 at001c = ╱30╱0╱ // 0x651 @0x1c
0x0635…0670 at001d = ╱30╱0╱ // 0x652 @0x1d
0x0635…0670 at001e = ╱f88700000000922201╱ // 0x653 @0x1e
0x0635…0670 at0027 = ╱ea╱ ; ╱ // 0x65c @0x27
0x0635…0670 at0028 = ╱4d╱M╱ // 0x65d @0x28
0x0635…0670 at0029 = ╱31╱1╱ // 0x65e @0x29
0x0635…0670 at002a = ╱f0╱ := ╱ // 0x65f @0x2a
0x0635…0670 at002b = ╱31╱1╱ // 0x660 @0x2b
0x0635…0670 at002c = ╱31╱1╱ // 0x661 @0x2c
0x0635…0670 at002d = ╱32╱2╱ // 0x662 @0x2d
0x0635…0670 at002e = ╱37╱7╱ // 0x663 @0x2e
0x0635…0670 at002f = ╱30╱0╱ // 0x664 @0x2f
0x0635…0670 at0030 = ╱30╱0╱ // 0x665 @0x30
0x0635…0670 at0031 = ╱f88600000000701201╱ // 0x666 @0x31
0x0635…0670 at003a = EOL // 0x66f @0x3a
0x0635…0670 }
0x0670…0677 9c65 00305 REPEAT
0x0670…0677 LineComal80 {
0x0670…0677 ptr = 0x9c65 // 0x670 @0x0
0x0670…0677 lno = 0x0131 // 0x672 @0x2
0x0670…0677 at0004 = ╱9700╱ REPEAT ╱ // 0x674 @0x4
0x0670…0677 at0006 = EOL // 0x676 @0x6
0x0670…0677 }
0x0677…067e 9c6c 00310 REPEAT
0x0677…067e LineComal80 {
0x0677…067e ptr = 0x9c6c // 0x677 @0x0
0x0677…067e lno = 0x0136 // 0x679 @0x2
0x0677…067e at0004 = ╱9700╱ REPEAT ╱ // 0x67b @0x4
0x0677…067e at0006 = EOL // 0x67d @0x6
0x0677…067e }
0x067e…068a 9c78 00315 LABEL START :
0x067e…068a LineComal80 {
0x067e…068a ptr = 0x9c78 // 0x67e @0x0
0x067e…068a lno = 0x013b // 0x680 @0x2
0x067e…068a at0004 = ╱88╱ LABEL ╱ // 0x682 @0x4
0x067e…068a at0005 = ╱53╱S╱ // 0x683 @0x5
0x067e…068a at0006 = ╱54╱T╱ // 0x684 @0x6
0x067e…068a at0007 = ╱41╱A╱ // 0x685 @0x7
0x067e…068a at0008 = ╱52╱R╱ // 0x686 @0x8
0x067e…068a at0009 = ╱54╱T╱ // 0x687 @0x9
0x067e…068a at000a = ╱f1╱ : ╱ // 0x688 @0xa
0x067e…068a at000b = EOL // 0x689 @0xb
0x067e…068a }
0x068a…06cf 9cbd 00320 LET E8 , E9 , E6 , C5 , B9 , AR , BD1 , BD2 , BDA2 , BD3 , BD4 , BD5 , BD6 , E4 , E7 , E5 , D8 , E2 := O
0x068a…06cf LineComal80 {
0x068a…06cf ptr = 0x9cbd // 0x68a @0x0
0x068a…06cf lno = 0x0140 // 0x68c @0x2
0x068a…06cf at0004 = ╱86╱ LET ╱ // 0x68e @0x4
0x068a…06cf at0005 = ╱45╱E╱ // 0x68f @0x5
0x068a…06cf at0006 = ╱38╱8╱ // 0x690 @0x6
0x068a…06cf at0007 = ╱ec╱ , ╱ // 0x691 @0x7
0x068a…06cf at0008 = ╱45╱E╱ // 0x692 @0x8
0x068a…06cf at0009 = ╱39╱9╱ // 0x693 @0x9
0x068a…06cf at000a = ╱ec╱ , ╱ // 0x694 @0xa
0x068a…06cf at000b = ╱45╱E╱ // 0x695 @0xb
0x068a…06cf at000c = ╱36╱6╱ // 0x696 @0xc
0x068a…06cf at000d = ╱ec╱ , ╱ // 0x697 @0xd
0x068a…06cf at000e = ╱43╱C╱ // 0x698 @0xe
0x068a…06cf at000f = ╱35╱5╱ // 0x699 @0xf
0x068a…06cf at0010 = ╱ec╱ , ╱ // 0x69a @0x10
0x068a…06cf at0011 = ╱42╱B╱ // 0x69b @0x11
0x068a…06cf at0012 = ╱39╱9╱ // 0x69c @0x12
0x068a…06cf at0013 = ╱ec╱ , ╱ // 0x69d @0x13
0x068a…06cf at0014 = ╱41╱A╱ // 0x69e @0x14
0x068a…06cf at0015 = ╱52╱R╱ // 0x69f @0x15
0x068a…06cf at0016 = ╱ec╱ , ╱ // 0x6a0 @0x16
0x068a…06cf at0017 = ╱42╱B╱ // 0x6a1 @0x17
0x068a…06cf at0018 = ╱44╱D╱ // 0x6a2 @0x18
0x068a…06cf at0019 = ╱31╱1╱ // 0x6a3 @0x19
0x068a…06cf at001a = ╱ec╱ , ╱ // 0x6a4 @0x1a
0x068a…06cf at001b = ╱42╱B╱ // 0x6a5 @0x1b
0x068a…06cf at001c = ╱44╱D╱ // 0x6a6 @0x1c
0x068a…06cf at001d = ╱32╱2╱ // 0x6a7 @0x1d
0x068a…06cf at001e = ╱ec╱ , ╱ // 0x6a8 @0x1e
0x068a…06cf at001f = ╱42╱B╱ // 0x6a9 @0x1f
0x068a…06cf at0020 = ╱44╱D╱ // 0x6aa @0x20
0x068a…06cf at0021 = ╱41╱A╱ // 0x6ab @0x21
0x068a…06cf at0022 = ╱32╱2╱ // 0x6ac @0x22
0x068a…06cf at0023 = ╱ec╱ , ╱ // 0x6ad @0x23
0x068a…06cf at0024 = ╱42╱B╱ // 0x6ae @0x24
0x068a…06cf at0025 = ╱44╱D╱ // 0x6af @0x25
0x068a…06cf at0026 = ╱33╱3╱ // 0x6b0 @0x26
0x068a…06cf at0027 = ╱ec╱ , ╱ // 0x6b1 @0x27
0x068a…06cf at0028 = ╱42╱B╱ // 0x6b2 @0x28
0x068a…06cf at0029 = ╱44╱D╱ // 0x6b3 @0x29
0x068a…06cf at002a = ╱34╱4╱ // 0x6b4 @0x2a
0x068a…06cf at002b = ╱ec╱ , ╱ // 0x6b5 @0x2b
0x068a…06cf at002c = ╱42╱B╱ // 0x6b6 @0x2c
0x068a…06cf at002d = ╱44╱D╱ // 0x6b7 @0x2d
0x068a…06cf at002e = ╱35╱5╱ // 0x6b8 @0x2e
0x068a…06cf at002f = ╱ec╱ , ╱ // 0x6b9 @0x2f
0x068a…06cf at0030 = ╱42╱B╱ // 0x6ba @0x30
0x068a…06cf at0031 = ╱44╱D╱ // 0x6bb @0x31
0x068a…06cf at0032 = ╱36╱6╱ // 0x6bc @0x32
0x068a…06cf at0033 = ╱ec╱ , ╱ // 0x6bd @0x33
0x068a…06cf at0034 = ╱45╱E╱ // 0x6be @0x34
0x068a…06cf at0035 = ╱34╱4╱ // 0x6bf @0x35
0x068a…06cf at0036 = ╱ec╱ , ╱ // 0x6c0 @0x36
0x068a…06cf at0037 = ╱45╱E╱ // 0x6c1 @0x37
0x068a…06cf at0038 = ╱37╱7╱ // 0x6c2 @0x38
0x068a…06cf at0039 = ╱ec╱ , ╱ // 0x6c3 @0x39
0x068a…06cf at003a = ╱45╱E╱ // 0x6c4 @0x3a
0x068a…06cf at003b = ╱35╱5╱ // 0x6c5 @0x3b
0x068a…06cf at003c = ╱ec╱ , ╱ // 0x6c6 @0x3c
0x068a…06cf at003d = ╱44╱D╱ // 0x6c7 @0x3d
0x068a…06cf at003e = ╱38╱8╱ // 0x6c8 @0x3e
0x068a…06cf at003f = ╱ec╱ , ╱ // 0x6c9 @0x3f
0x068a…06cf at0040 = ╱45╱E╱ // 0x6ca @0x40
0x068a…06cf at0041 = ╱32╱2╱ // 0x6cb @0x41
0x068a…06cf at0042 = ╱f0╱ := ╱ // 0x6cc @0x42
0x068a…06cf at0043 = ╱4f╱O╱ // 0x6cd @0x43
0x068a…06cf at0044 = EOL // 0x6ce @0x44
0x068a…06cf }
0x06cf…06e6 9cd4 00325 IF T4 = 1 THEN LET T2 := 1
0x06cf…06e6 LineComal80 {
0x06cf…06e6 ptr = 0x9cd4 // 0x6cf @0x0
0x06cf…06e6 lno = 0x0145 // 0x6d1 @0x2
0x06cf…06e6 at0004 = ╱8200╱ IF ╱ // 0x6d3 @0x4
0x06cf…06e6 at0006 = ╱54╱T╱ // 0x6d5 @0x6
0x06cf…06e6 at0007 = ╱34╱4╱ // 0x6d6 @0x7
0x06cf…06e6 at0008 = ╱df╱ = ╱ // 0x6d7 @0x8
0x06cf…06e6 at0009 = ╱31╱1╱ // 0x6d8 @0x9
0x06cf…06e6 at000a = ╱f20100╱ // 0x6d9 @0xa
0x06cf…06e6 at000d = ╱b5╱ THEN ╱ // 0x6dc @0xd
0x06cf…06e6 at000e = ╱86╱ LET ╱ // 0x6dd @0xe
0x06cf…06e6 at000f = ╱54╱T╱ // 0x6de @0xf
0x06cf…06e6 at0010 = ╱32╱2╱ // 0x6df @0x10
0x06cf…06e6 at0011 = ╱f0╱ := ╱ // 0x6e0 @0x11
0x06cf…06e6 at0012 = ╱31╱1╱ // 0x6e1 @0x12
0x06cf…06e6 at0013 = ╱f20100╱ // 0x6e2 @0x13
0x06cf…06e6 at0016 = EOL // 0x6e5 @0x16
0x06cf…06e6 }
0x06e6…06fe 9cec 00330 IF F8 >< 1 THEN EXEC NULSTIL2
0x06e6…06fe LineComal80 {
0x06e6…06fe ptr = 0x9cec // 0x6e6 @0x0
0x06e6…06fe lno = 0x014a // 0x6e8 @0x2
0x06e6…06fe at0004 = ╱8200╱ IF ╱ // 0x6ea @0x4
0x06e6…06fe at0006 = ╱46╱F╱ // 0x6ec @0x6
0x06e6…06fe at0007 = ╱38╱8╱ // 0x6ed @0x7
0x06e6…06fe at0008 = ╱e4╱ >< ╱ // 0x6ee @0x8
0x06e6…06fe at0009 = ╱31╱1╱ // 0x6ef @0x9
0x06e6…06fe at000a = ╱f20100╱ // 0x6f0 @0xa
0x06e6…06fe at000d = ╱b5╱ THEN ╱ // 0x6f3 @0xd
0x06e6…06fe at000e = ╱9d╱ EXEC ╱ // 0x6f4 @0xe
0x06e6…06fe at000f = ╱4e╱N╱ // 0x6f5 @0xf
0x06e6…06fe at0010 = ╱55╱U╱ // 0x6f6 @0x10
0x06e6…06fe at0011 = ╱4c╱L╱ // 0x6f7 @0x11
0x06e6…06fe at0012 = ╱53╱S╱ // 0x6f8 @0x12
0x06e6…06fe at0013 = ╱54╱T╱ // 0x6f9 @0x13
0x06e6…06fe at0014 = ╱49╱I╱ // 0x6fa @0x14
0x06e6…06fe at0015 = ╱4c╱L╱ // 0x6fb @0x15
0x06e6…06fe at0016 = ╱32╱2╱ // 0x6fc @0x16
0x06e6…06fe at0017 = EOL // 0x6fd @0x17
0x06e6…06fe }
0x06fe…0716 9d04 00335 IF F8 = 1 THEN EXEC S[TATILH
0x06fe…0716 LineComal80 {
0x06fe…0716 ptr = 0x9d04 // 0x6fe @0x0
0x06fe…0716 lno = 0x014f // 0x700 @0x2
0x06fe…0716 at0004 = ╱8200╱ IF ╱ // 0x702 @0x4
0x06fe…0716 at0006 = ╱46╱F╱ // 0x704 @0x6
0x06fe…0716 at0007 = ╱38╱8╱ // 0x705 @0x7
0x06fe…0716 at0008 = ╱df╱ = ╱ // 0x706 @0x8
0x06fe…0716 at0009 = ╱31╱1╱ // 0x707 @0x9
0x06fe…0716 at000a = ╱f20100╱ // 0x708 @0xa
0x06fe…0716 at000d = ╱b5╱ THEN ╱ // 0x70b @0xd
0x06fe…0716 at000e = ╱9d╱ EXEC ╱ // 0x70c @0xe
0x06fe…0716 at000f = ╱53╱S╱ // 0x70d @0xf
0x06fe…0716 at0010 = ╱5b╱[╱ // 0x70e @0x10
0x06fe…0716 at0011 = ╱54╱T╱ // 0x70f @0x11
0x06fe…0716 at0012 = ╱41╱A╱ // 0x710 @0x12
0x06fe…0716 at0013 = ╱54╱T╱ // 0x711 @0x13
0x06fe…0716 at0014 = ╱49╱I╱ // 0x712 @0x14
0x06fe…0716 at0015 = ╱4c╱L╱ // 0x713 @0x15
0x06fe…0716 at0016 = ╱48╱H╱ // 0x714 @0x16
0x06fe…0716 at0017 = EOL // 0x715 @0x17
0x06fe…0716 }
0x0716…071d 9d0b 00340 REPEAT
0x0716…071d LineComal80 {
0x0716…071d ptr = 0x9d0b // 0x716 @0x0
0x0716…071d lno = 0x0154 // 0x718 @0x2
0x0716…071d at0004 = ╱9700╱ REPEAT ╱ // 0x71a @0x4
0x0716…071d at0006 = EOL // 0x71c @0x6
0x0716…071d }
0x071d…0724 9d12 00345 REPEAT
0x071d…0724 LineComal80 {
0x071d…0724 ptr = 0x9d12 // 0x71d @0x0
0x071d…0724 lno = 0x0159 // 0x71f @0x2
0x071d…0724 at0004 = ╱9700╱ REPEAT ╱ // 0x721 @0x4
0x071d…0724 at0006 = EOL // 0x723 @0x6
0x071d…0724 }
0x0724…0754 9d42 00350 LET FE := O ; QT $ := "…HOVEPERSONEN…" ; A ( 24 ) := HFORMUE
0x0724…0754 LineComal80 {
0x0724…0754 ptr = 0x9d42 // 0x724 @0x0
0x0724…0754 lno = 0x015e // 0x726 @0x2
0x0724…0754 at0004 = ╱86╱ LET ╱ // 0x728 @0x4
0x0724…0754 at0005 = ╱46╱F╱ // 0x729 @0x5
0x0724…0754 at0006 = ╱45╱E╱ // 0x72a @0x6
0x0724…0754 at0007 = ╱f0╱ := ╱ // 0x72b @0x7
0x0724…0754 at0008 = ╱4f╱O╱ // 0x72c @0x8
0x0724…0754 at0009 = ╱ea╱ ; ╱ // 0x72d @0x9
0x0724…0754 at000a = ╱51╱Q╱ // 0x72e @0xa
0x0724…0754 at000b = ╱54╱T╱ // 0x72f @0xb
0x0724…0754 at000c = ╱ef╱ $ ╱ // 0x730 @0xc
0x0724…0754 at000d = ╱f0╱ := ╱ // 0x731 @0xd
0x0724…0754 at000e = ╱22╱"╱ // 0x732 @0xe
0x0724…0754 at000f = ╱20╱…╱ // 0x733 @0xf
0x0724…0754 at0010 = ╱48╱H╱ // 0x734 @0x10
0x0724…0754 at0011 = ╱4f╱O╱ // 0x735 @0x11
0x0724…0754 at0012 = ╱56╱V╱ // 0x736 @0x12
0x0724…0754 at0013 = ╱45╱E╱ // 0x737 @0x13
0x0724…0754 at0014 = ╱50╱P╱ // 0x738 @0x14
0x0724…0754 at0015 = ╱45╱E╱ // 0x739 @0x15
0x0724…0754 at0016 = ╱52╱R╱ // 0x73a @0x16
0x0724…0754 at0017 = ╱53╱S╱ // 0x73b @0x17
0x0724…0754 at0018 = ╱4f╱O╱ // 0x73c @0x18
0x0724…0754 at0019 = ╱4e╱N╱ // 0x73d @0x19
0x0724…0754 at001a = ╱45╱E╱ // 0x73e @0x1a
0x0724…0754 at001b = ╱4e╱N╱ // 0x73f @0x1b
0x0724…0754 at001c = ╱20╱…╱ // 0x740 @0x1c
0x0724…0754 at001d = ╱22╱"╱ // 0x741 @0x1d
0x0724…0754 at001e = ╱ea╱ ; ╱ // 0x742 @0x1e
0x0724…0754 at001f = ╱41╱A╱ // 0x743 @0x1f
0x0724…0754 at0020 = ╱ed╱ ( ╱ // 0x744 @0x20
0x0724…0754 at0021 = ╱32╱2╱ // 0x745 @0x21
0x0724…0754 at0022 = ╱34╱4╱ // 0x746 @0x22
0x0724…0754 at0023 = ╱f21800╱ // 0x747 @0x23
0x0724…0754 at0026 = ╱ee╱ ) ╱ // 0x74a @0x26
0x0724…0754 at0027 = ╱f0╱ := ╱ // 0x74b @0x27
0x0724…0754 at0028 = ╱48╱H╱ // 0x74c @0x28
0x0724…0754 at0029 = ╱46╱F╱ // 0x74d @0x29
0x0724…0754 at002a = ╱4f╱O╱ // 0x74e @0x2a
0x0724…0754 at002b = ╱52╱R╱ // 0x74f @0x2b
0x0724…0754 at002c = ╱4d╱M╱ // 0x750 @0x2c
0x0724…0754 at002d = ╱55╱U╱ // 0x751 @0x2d
0x0724…0754 at002e = ╱45╱E╱ // 0x752 @0x2e
0x0724…0754 at002f = EOL // 0x753 @0x2f
0x0724…0754 }
0x0754…0762 9d50 00355 EXEC INDKOMST
0x0754…0762 LineComal80 {
0x0754…0762 ptr = 0x9d50 // 0x754 @0x0
0x0754…0762 lno = 0x0163 // 0x756 @0x2
0x0754…0762 at0004 = ╱9d╱ EXEC ╱ // 0x758 @0x4
0x0754…0762 at0005 = ╱49╱I╱ // 0x759 @0x5
0x0754…0762 at0006 = ╱4e╱N╱ // 0x75a @0x6
0x0754…0762 at0007 = ╱44╱D╱ // 0x75b @0x7
0x0754…0762 at0008 = ╱4b╱K╱ // 0x75c @0x8
0x0754…0762 at0009 = ╱4f╱O╱ // 0x75d @0x9
0x0754…0762 at000a = ╱4d╱M╱ // 0x75e @0xa
0x0754…0762 at000b = ╱53╱S╱ // 0x75f @0xb
0x0754…0762 at000c = ╱54╱T╱ // 0x760 @0xc
0x0754…0762 at000d = EOL // 0x761 @0xd
0x0754…0762 }
0x0762…077d 9d6b 00360 LET HFORMUE := B6 ; A ( 24 ) := O
0x0762…077d LineComal80 {
0x0762…077d ptr = 0x9d6b // 0x762 @0x0
0x0762…077d lno = 0x0168 // 0x764 @0x2
0x0762…077d at0004 = ╱86╱ LET ╱ // 0x766 @0x4
0x0762…077d at0005 = ╱48╱H╱ // 0x767 @0x5
0x0762…077d at0006 = ╱46╱F╱ // 0x768 @0x6
0x0762…077d at0007 = ╱4f╱O╱ // 0x769 @0x7
0x0762…077d at0008 = ╱52╱R╱ // 0x76a @0x8
0x0762…077d at0009 = ╱4d╱M╱ // 0x76b @0x9
0x0762…077d at000a = ╱55╱U╱ // 0x76c @0xa
0x0762…077d at000b = ╱45╱E╱ // 0x76d @0xb
0x0762…077d at000c = ╱f0╱ := ╱ // 0x76e @0xc
0x0762…077d at000d = ╱42╱B╱ // 0x76f @0xd
0x0762…077d at000e = ╱36╱6╱ // 0x770 @0xe
0x0762…077d at000f = ╱ea╱ ; ╱ // 0x771 @0xf
0x0762…077d at0010 = ╱41╱A╱ // 0x772 @0x10
0x0762…077d at0011 = ╱ed╱ ( ╱ // 0x773 @0x11
0x0762…077d at0012 = ╱32╱2╱ // 0x774 @0x12
0x0762…077d at0013 = ╱34╱4╱ // 0x775 @0x13
0x0762…077d at0014 = ╱f21800╱ // 0x776 @0x14
0x0762…077d at0017 = ╱ee╱ ) ╱ // 0x779 @0x17
0x0762…077d at0018 = ╱f0╱ := ╱ // 0x77a @0x18
0x0762…077d at0019 = ╱4f╱O╱ // 0x77b @0x19
0x0762…077d at001a = EOL // 0x77c @0x1a
0x0762…077d }
0x077d…078a 9d78 00365 EXEC FEJLMED
0x077d…078a LineComal80 {
0x077d…078a ptr = 0x9d78 // 0x77d @0x0
0x077d…078a lno = 0x016d // 0x77f @0x2
0x077d…078a at0004 = ╱9d╱ EXEC ╱ // 0x781 @0x4
0x077d…078a at0005 = ╱46╱F╱ // 0x782 @0x5
0x077d…078a at0006 = ╱45╱E╱ // 0x783 @0x6
0x077d…078a at0007 = ╱4a╱J╱ // 0x784 @0x7
0x077d…078a at0008 = ╱4c╱L╱ // 0x785 @0x8
0x077d…078a at0009 = ╱4d╱M╱ // 0x786 @0x9
0x077d…078a at000a = ╱45╱E╱ // 0x787 @0xa
0x077d…078a at000b = ╱44╱D╱ // 0x788 @0xb
0x077d…078a at000c = EOL // 0x789 @0xc
0x077d…078a }
0x078a…0794 9d82 00370 EXEC FEJL
0x078a…0794 LineComal80 {
0x078a…0794 ptr = 0x9d82 // 0x78a @0x0
0x078a…0794 lno = 0x0172 // 0x78c @0x2
0x078a…0794 at0004 = ╱9d╱ EXEC ╱ // 0x78e @0x4
0x078a…0794 at0005 = ╱46╱F╱ // 0x78f @0x5
0x078a…0794 at0006 = ╱45╱E╱ // 0x790 @0x6
0x078a…0794 at0007 = ╱4a╱J╱ // 0x791 @0x7
0x078a…0794 at0008 = ╱4c╱L╱ // 0x792 @0x8
0x078a…0794 at0009 = EOL // 0x793 @0x9
0x078a…0794 }
0x0794…07a1 9d8f 00375 UNTIL FE >< 1
0x0794…07a1 LineComal80 {
0x0794…07a1 ptr = 0x9d8f // 0x794 @0x0
0x0794…07a1 lno = 0x0177 // 0x796 @0x2
0x0794…07a1 at0004 = ╱98╱ UNTIL ╱ // 0x798 @0x4
0x0794…07a1 at0005 = ╱46╱F╱ // 0x799 @0x5
0x0794…07a1 at0006 = ╱45╱E╱ // 0x79a @0x6
0x0794…07a1 at0007 = ╱e4╱ >< ╱ // 0x79b @0x7
0x0794…07a1 at0008 = ╱31╱1╱ // 0x79c @0x8
0x0794…07a1 at0009 = ╱f20100╱ // 0x79d @0x9
0x0794…07a1 at000c = EOL // 0x7a0 @0xc
0x0794…07a1 }
0x07a1…07c8 9db6 00380 LET F6 := A ( 12 ) ; F9 := A ( 11 ) * ( 30 / W )
0x07a1…07c8 LineComal80 {
0x07a1…07c8 ptr = 0x9db6 // 0x7a1 @0x0
0x07a1…07c8 lno = 0x017c // 0x7a3 @0x2
0x07a1…07c8 at0004 = ╱86╱ LET ╱ // 0x7a5 @0x4
0x07a1…07c8 at0005 = ╱46╱F╱ // 0x7a6 @0x5
0x07a1…07c8 at0006 = ╱36╱6╱ // 0x7a7 @0x6
0x07a1…07c8 at0007 = ╱f0╱ := ╱ // 0x7a8 @0x7
0x07a1…07c8 at0008 = ╱41╱A╱ // 0x7a9 @0x8
0x07a1…07c8 at0009 = ╱ed╱ ( ╱ // 0x7aa @0x9
0x07a1…07c8 at000a = ╱31╱1╱ // 0x7ab @0xa
0x07a1…07c8 at000b = ╱32╱2╱ // 0x7ac @0xb
0x07a1…07c8 at000c = ╱f20c00╱ // 0x7ad @0xc
0x07a1…07c8 at000f = ╱ee╱ ) ╱ // 0x7b0 @0xf
0x07a1…07c8 at0010 = ╱ea╱ ; ╱ // 0x7b1 @0x10
0x07a1…07c8 at0011 = ╱46╱F╱ // 0x7b2 @0x11
0x07a1…07c8 at0012 = ╱39╱9╱ // 0x7b3 @0x12
0x07a1…07c8 at0013 = ╱f0╱ := ╱ // 0x7b4 @0x13
0x07a1…07c8 at0014 = ╱41╱A╱ // 0x7b5 @0x14
0x07a1…07c8 at0015 = ╱ed╱ ( ╱ // 0x7b6 @0x15
0x07a1…07c8 at0016 = ╱31╱1╱ // 0x7b7 @0x16
0x07a1…07c8 at0017 = ╱31╱1╱ // 0x7b8 @0x17
0x07a1…07c8 at0018 = ╱f20b00╱ // 0x7b9 @0x18
0x07a1…07c8 at001b = ╱ee╱ ) ╱ // 0x7bc @0x1b
0x07a1…07c8 at001c = ╱e7╱ * ╱ // 0x7bd @0x1c
0x07a1…07c8 at001d = ╱ed╱ ( ╱ // 0x7be @0x1d
0x07a1…07c8 at001e = ╱33╱3╱ // 0x7bf @0x1e
0x07a1…07c8 at001f = ╱30╱0╱ // 0x7c0 @0x1f
0x07a1…07c8 at0020 = ╱f21e00╱ // 0x7c1 @0x20
0x07a1…07c8 at0023 = ╱e8╱ / ╱ // 0x7c4 @0x23
0x07a1…07c8 at0024 = ╱57╱W╱ // 0x7c5 @0x24
0x07a1…07c8 at0025 = ╱ee╱ ) ╱ // 0x7c6 @0x25
0x07a1…07c8 at0026 = EOL // 0x7c7 @0x26
0x07a1…07c8 }
0x07c8…07d6 9dc4 00385 EXEC S[THTILA
0x07c8…07d6 LineComal80 {
0x07c8…07d6 ptr = 0x9dc4 // 0x7c8 @0x0
0x07c8…07d6 lno = 0x0181 // 0x7ca @0x2
0x07c8…07d6 at0004 = ╱9d╱ EXEC ╱ // 0x7cc @0x4
0x07c8…07d6 at0005 = ╱53╱S╱ // 0x7cd @0x5
0x07c8…07d6 at0006 = ╱5b╱[╱ // 0x7ce @0x6
0x07c8…07d6 at0007 = ╱54╱T╱ // 0x7cf @0x7
0x07c8…07d6 at0008 = ╱48╱H╱ // 0x7d0 @0x8
0x07c8…07d6 at0009 = ╱54╱T╱ // 0x7d1 @0x9
0x07c8…07d6 at000a = ╱49╱I╱ // 0x7d2 @0xa
0x07c8…07d6 at000b = ╱4c╱L╱ // 0x7d3 @0xb
0x07c8…07d6 at000c = ╱41╱A╱ // 0x7d4 @0xc
0x07c8…07d6 at000d = EOL // 0x7d5 @0xd
0x07c8…07d6 }
0x07d6…07e1 9dcf 00390 EXEC REGN1
0x07d6…07e1 LineComal80 {
0x07d6…07e1 ptr = 0x9dcf // 0x7d6 @0x0
0x07d6…07e1 lno = 0x0186 // 0x7d8 @0x2
0x07d6…07e1 at0004 = ╱9d╱ EXEC ╱ // 0x7da @0x4
0x07d6…07e1 at0005 = ╱52╱R╱ // 0x7db @0x5
0x07d6…07e1 at0006 = ╱45╱E╱ // 0x7dc @0x6
0x07d6…07e1 at0007 = ╱47╱G╱ // 0x7dd @0x7
0x07d6…07e1 at0008 = ╱4e╱N╱ // 0x7de @0x8
0x07d6…07e1 at0009 = ╱31╱1╱ // 0x7df @0x9
0x07d6…07e1 at000a = EOL // 0x7e0 @0xa
0x07d6…07e1 }
0x07e1…07ef 9ddd 00395 IF >< 1 THEN
0x07e1…07ef LineComal80 {
0x07e1…07ef ptr = 0x9ddd // 0x7e1 @0x0
0x07e1…07ef lno = 0x018b // 0x7e3 @0x2
0x07e1…07ef at0004 = ╱9b0047╱ IF ╱ // 0x7e5 @0x4
0x07e1…07ef at0007 = ╱e4╱ >< ╱ // 0x7e8 @0x7
0x07e1…07ef at0008 = ╱31╱1╱ // 0x7e9 @0x8
0x07e1…07ef at0009 = ╱f20100╱ // 0x7ea @0x9
0x07e1…07ef at000c = ╱b5╱ THEN ╱ // 0x7ed @0xc
0x07e1…07ef at000d = EOL // 0x7ee @0xd
0x07e1…07ef }
0x07ef…0835 9e23 00400 PRINT "Er…hovedpersonen…tilkendt…enke-,…folke-…eller…invalidepension,"
0x07ef…0835 LineComal80 {
0x07ef…0835 ptr = 0x9e23 // 0x7ef @0x0
0x07ef…0835 lno = 0x0190 // 0x7f1 @0x2
0x07ef…0835 at0004 = ╱92╱ PRINT ╱ // 0x7f3 @0x4
0x07ef…0835 at0005 = ╱22╱"╱ // 0x7f4 @0x5
0x07ef…0835 at0006 = ╱45╱E╱ // 0x7f5 @0x6
0x07ef…0835 at0007 = ╱72╱r╱ // 0x7f6 @0x7
0x07ef…0835 at0008 = ╱20╱…╱ // 0x7f7 @0x8
0x07ef…0835 at0009 = ╱68╱h╱ // 0x7f8 @0x9
0x07ef…0835 at000a = ╱6f╱o╱ // 0x7f9 @0xa
0x07ef…0835 at000b = ╱76╱v╱ // 0x7fa @0xb
0x07ef…0835 at000c = ╱65╱e╱ // 0x7fb @0xc
0x07ef…0835 at000d = ╱64╱d╱ // 0x7fc @0xd
0x07ef…0835 at000e = ╱70╱p╱ // 0x7fd @0xe
0x07ef…0835 at000f = ╱65╱e╱ // 0x7fe @0xf
0x07ef…0835 at0010 = ╱72╱r╱ // 0x7ff @0x10
0x07ef…0835 at0011 = ╱73╱s╱ // 0x800 @0x11
0x07ef…0835 at0012 = ╱6f╱o╱ // 0x801 @0x12
0x07ef…0835 at0013 = ╱6e╱n╱ // 0x802 @0x13
0x07ef…0835 at0014 = ╱65╱e╱ // 0x803 @0x14
0x07ef…0835 at0015 = ╱6e╱n╱ // 0x804 @0x15
0x07ef…0835 at0016 = ╱20╱…╱ // 0x805 @0x16
0x07ef…0835 at0017 = ╱74╱t╱ // 0x806 @0x17
0x07ef…0835 at0018 = ╱69╱i╱ // 0x807 @0x18
0x07ef…0835 at0019 = ╱6c╱l╱ // 0x808 @0x19
0x07ef…0835 at001a = ╱6b╱k╱ // 0x809 @0x1a
0x07ef…0835 at001b = ╱65╱e╱ // 0x80a @0x1b
0x07ef…0835 at001c = ╱6e╱n╱ // 0x80b @0x1c
0x07ef…0835 at001d = ╱64╱d╱ // 0x80c @0x1d
0x07ef…0835 at001e = ╱74╱t╱ // 0x80d @0x1e
0x07ef…0835 at001f = ╱20╱…╱ // 0x80e @0x1f
0x07ef…0835 at0020 = ╱65╱e╱ // 0x80f @0x20
0x07ef…0835 at0021 = ╱6e╱n╱ // 0x810 @0x21
0x07ef…0835 at0022 = ╱6b╱k╱ // 0x811 @0x22
0x07ef…0835 at0023 = ╱65╱e╱ // 0x812 @0x23
0x07ef…0835 at0024 = ╱2d╱-╱ // 0x813 @0x24
0x07ef…0835 at0025 = ╱2c╱,╱ // 0x814 @0x25
0x07ef…0835 at0026 = ╱20╱…╱ // 0x815 @0x26
0x07ef…0835 at0027 = ╱66╱f╱ // 0x816 @0x27
0x07ef…0835 at0028 = ╱6f╱o╱ // 0x817 @0x28
0x07ef…0835 at0029 = ╱6c╱l╱ // 0x818 @0x29
0x07ef…0835 at002a = ╱6b╱k╱ // 0x819 @0x2a
0x07ef…0835 at002b = ╱65╱e╱ // 0x81a @0x2b
0x07ef…0835 at002c = ╱2d╱-╱ // 0x81b @0x2c
0x07ef…0835 at002d = ╱20╱…╱ // 0x81c @0x2d
0x07ef…0835 at002e = ╱65╱e╱ // 0x81d @0x2e
0x07ef…0835 at002f = ╱6c╱l╱ // 0x81e @0x2f
0x07ef…0835 at0030 = ╱6c╱l╱ // 0x81f @0x30
0x07ef…0835 at0031 = ╱65╱e╱ // 0x820 @0x31
0x07ef…0835 at0032 = ╱72╱r╱ // 0x821 @0x32
0x07ef…0835 at0033 = ╱20╱…╱ // 0x822 @0x33
0x07ef…0835 at0034 = ╱69╱i╱ // 0x823 @0x34
0x07ef…0835 at0035 = ╱6e╱n╱ // 0x824 @0x35
0x07ef…0835 at0036 = ╱76╱v╱ // 0x825 @0x36
0x07ef…0835 at0037 = ╱61╱a╱ // 0x826 @0x37
0x07ef…0835 at0038 = ╱6c╱l╱ // 0x827 @0x38
0x07ef…0835 at0039 = ╱69╱i╱ // 0x828 @0x39
0x07ef…0835 at003a = ╱64╱d╱ // 0x829 @0x3a
0x07ef…0835 at003b = ╱65╱e╱ // 0x82a @0x3b
0x07ef…0835 at003c = ╱70╱p╱ // 0x82b @0x3c
0x07ef…0835 at003d = ╱65╱e╱ // 0x82c @0x3d
0x07ef…0835 at003e = ╱6e╱n╱ // 0x82d @0x3e
0x07ef…0835 at003f = ╱73╱s╱ // 0x82e @0x3f
0x07ef…0835 at0040 = ╱69╱i╱ // 0x82f @0x40
0x07ef…0835 at0041 = ╱6f╱o╱ // 0x830 @0x41
0x07ef…0835 at0042 = ╱6e╱n╱ // 0x831 @0x42
0x07ef…0835 at0043 = ╱2c╱,╱ // 0x832 @0x43
0x07ef…0835 at0044 = ╱22╱"╱ // 0x833 @0x44
0x07ef…0835 at0045 = EOL // 0x834 @0x45
0x07ef…0835 }
0x0835…086b 9e59 00405 PRINT "dvs.…har…ret…til…personfradrag…som…pensionist" ;
0x0835…086b LineComal80 {
0x0835…086b ptr = 0x9e59 // 0x835 @0x0
0x0835…086b lno = 0x0195 // 0x837 @0x2
0x0835…086b at0004 = ╱92╱ PRINT ╱ // 0x839 @0x4
0x0835…086b at0005 = ╱22╱"╱ // 0x83a @0x5
0x0835…086b at0006 = ╱64╱d╱ // 0x83b @0x6
0x0835…086b at0007 = ╱76╱v╱ // 0x83c @0x7
0x0835…086b at0008 = ╱73╱s╱ // 0x83d @0x8
0x0835…086b at0009 = ╱2e╱.╱ // 0x83e @0x9
0x0835…086b at000a = ╱20╱…╱ // 0x83f @0xa
0x0835…086b at000b = ╱68╱h╱ // 0x840 @0xb
0x0835…086b at000c = ╱61╱a╱ // 0x841 @0xc
0x0835…086b at000d = ╱72╱r╱ // 0x842 @0xd
0x0835…086b at000e = ╱20╱…╱ // 0x843 @0xe
0x0835…086b at000f = ╱72╱r╱ // 0x844 @0xf
0x0835…086b at0010 = ╱65╱e╱ // 0x845 @0x10
0x0835…086b at0011 = ╱74╱t╱ // 0x846 @0x11
0x0835…086b at0012 = ╱20╱…╱ // 0x847 @0x12
0x0835…086b at0013 = ╱74╱t╱ // 0x848 @0x13
0x0835…086b at0014 = ╱69╱i╱ // 0x849 @0x14
0x0835…086b at0015 = ╱6c╱l╱ // 0x84a @0x15
0x0835…086b at0016 = ╱20╱…╱ // 0x84b @0x16
0x0835…086b at0017 = ╱70╱p╱ // 0x84c @0x17
0x0835…086b at0018 = ╱65╱e╱ // 0x84d @0x18
0x0835…086b at0019 = ╱72╱r╱ // 0x84e @0x19
0x0835…086b at001a = ╱73╱s╱ // 0x84f @0x1a
0x0835…086b at001b = ╱6f╱o╱ // 0x850 @0x1b
0x0835…086b at001c = ╱6e╱n╱ // 0x851 @0x1c
0x0835…086b at001d = ╱66╱f╱ // 0x852 @0x1d
0x0835…086b at001e = ╱72╱r╱ // 0x853 @0x1e
0x0835…086b at001f = ╱61╱a╱ // 0x854 @0x1f
0x0835…086b at0020 = ╱64╱d╱ // 0x855 @0x20
0x0835…086b at0021 = ╱72╱r╱ // 0x856 @0x21
0x0835…086b at0022 = ╱61╱a╱ // 0x857 @0x22
0x0835…086b at0023 = ╱67╱g╱ // 0x858 @0x23
0x0835…086b at0024 = ╱20╱…╱ // 0x859 @0x24
0x0835…086b at0025 = ╱73╱s╱ // 0x85a @0x25
0x0835…086b at0026 = ╱6f╱o╱ // 0x85b @0x26
0x0835…086b at0027 = ╱6d╱m╱ // 0x85c @0x27
0x0835…086b at0028 = ╱20╱…╱ // 0x85d @0x28
0x0835…086b at0029 = ╱70╱p╱ // 0x85e @0x29
0x0835…086b at002a = ╱65╱e╱ // 0x85f @0x2a
0x0835…086b at002b = ╱6e╱n╱ // 0x860 @0x2b
0x0835…086b at002c = ╱73╱s╱ // 0x861 @0x2c
0x0835…086b at002d = ╱69╱i╱ // 0x862 @0x2d
0x0835…086b at002e = ╱6f╱o╱ // 0x863 @0x2e
0x0835…086b at002f = ╱6e╱n╱ // 0x864 @0x2f
0x0835…086b at0030 = ╱69╱i╱ // 0x865 @0x30
0x0835…086b at0031 = ╱73╱s╱ // 0x866 @0x31
0x0835…086b at0032 = ╱74╱t╱ // 0x867 @0x32
0x0835…086b at0033 = ╱22╱"╱ // 0x868 @0x33
0x0835…086b at0034 = ╱ea╱ ; ╱ // 0x869 @0x34
0x0835…086b at0035 = EOL // 0x86a @0x35
0x0835…086b }
0x086b…0875 9e63 00410 EXEC SVAR
0x086b…0875 LineComal80 {
0x086b…0875 ptr = 0x9e63 // 0x86b @0x0
0x086b…0875 lno = 0x019a // 0x86d @0x2
0x086b…0875 at0004 = ╱9d╱ EXEC ╱ // 0x86f @0x4
0x086b…0875 at0005 = ╱53╱S╱ // 0x870 @0x5
0x086b…0875 at0006 = ╱56╱V╱ // 0x871 @0x6
0x086b…0875 at0007 = ╱41╱A╱ // 0x872 @0x7
0x086b…0875 at0008 = ╱52╱R╱ // 0x873 @0x8
0x086b…0875 at0009 = EOL // 0x874 @0x9
0x086b…0875 }
0x0875…087f 9e6d 00415 LET T1 := O
0x0875…087f LineComal80 {
0x0875…087f ptr = 0x9e6d // 0x875 @0x0
0x0875…087f lno = 0x019f // 0x877 @0x2
0x0875…087f at0004 = ╱86╱ LET ╱ // 0x879 @0x4
0x0875…087f at0005 = ╱54╱T╱ // 0x87a @0x5
0x0875…087f at0006 = ╱31╱1╱ // 0x87b @0x6
0x0875…087f at0007 = ╱f0╱ := ╱ // 0x87c @0x7
0x0875…087f at0008 = ╱4f╱O╱ // 0x87d @0x8
0x0875…087f at0009 = EOL // 0x87e @0x9
0x0875…087f }
0x087f…088d 9e7b 00420 IF $ = "j" THEN
0x087f…088d LineComal80 {
0x087f…088d ptr = 0x9e7b // 0x87f @0x0
0x087f…088d lno = 0x01a4 // 0x881 @0x2
0x087f…088d at0004 = ╱9b0053╱ IF ╱ // 0x883 @0x4
0x087f…088d at0007 = ╱ef╱ $ ╱ // 0x886 @0x7
0x087f…088d at0008 = ╱df╱ = ╱ // 0x887 @0x8
0x087f…088d at0009 = ╱22╱"╱ // 0x888 @0x9
0x087f…088d at000a = ╱6a╱j╱ // 0x889 @0xa
0x087f…088d at000b = ╱22╱"╱ // 0x88a @0xb
0x087f…088d at000c = ╱b5╱ THEN ╱ // 0x88b @0xc
0x087f…088d at000d = EOL // 0x88c @0xd
0x087f…088d }
0x088d…089a 9e88 00425 LET T1 := 2
0x088d…089a LineComal80 {
0x088d…089a ptr = 0x9e88 // 0x88d @0x0
0x088d…089a lno = 0x01a9 // 0x88f @0x2
0x088d…089a at0004 = ╱86╱ LET ╱ // 0x891 @0x4
0x088d…089a at0005 = ╱54╱T╱ // 0x892 @0x5
0x088d…089a at0006 = ╱31╱1╱ // 0x893 @0x6
0x088d…089a at0007 = ╱f0╱ := ╱ // 0x894 @0x7
0x088d…089a at0008 = ╱32╱2╱ // 0x895 @0x8
0x088d…089a at0009 = ╱f20200╱ // 0x896 @0x9
0x088d…089a at000c = EOL // 0x899 @0xc
0x088d…089a }
0x089a…08dc 9eca 00430 PRINT "Er…hovedpersonen…fyldt…67…}r…ved…indkomst}rets…begyndelse" ;
0x089a…08dc LineComal80 {
0x089a…08dc ptr = 0x9eca // 0x89a @0x0
0x089a…08dc lno = 0x01ae // 0x89c @0x2
0x089a…08dc at0004 = ╱92╱ PRINT ╱ // 0x89e @0x4
0x089a…08dc at0005 = ╱22╱"╱ // 0x89f @0x5
0x089a…08dc at0006 = ╱45╱E╱ // 0x8a0 @0x6
0x089a…08dc at0007 = ╱72╱r╱ // 0x8a1 @0x7
0x089a…08dc at0008 = ╱20╱…╱ // 0x8a2 @0x8
0x089a…08dc at0009 = ╱68╱h╱ // 0x8a3 @0x9
0x089a…08dc at000a = ╱6f╱o╱ // 0x8a4 @0xa
0x089a…08dc at000b = ╱76╱v╱ // 0x8a5 @0xb
0x089a…08dc at000c = ╱65╱e╱ // 0x8a6 @0xc
0x089a…08dc at000d = ╱64╱d╱ // 0x8a7 @0xd
0x089a…08dc at000e = ╱70╱p╱ // 0x8a8 @0xe
0x089a…08dc at000f = ╱65╱e╱ // 0x8a9 @0xf
0x089a…08dc at0010 = ╱72╱r╱ // 0x8aa @0x10
0x089a…08dc at0011 = ╱73╱s╱ // 0x8ab @0x11
0x089a…08dc at0012 = ╱6f╱o╱ // 0x8ac @0x12
0x089a…08dc at0013 = ╱6e╱n╱ // 0x8ad @0x13
0x089a…08dc at0014 = ╱65╱e╱ // 0x8ae @0x14
0x089a…08dc at0015 = ╱6e╱n╱ // 0x8af @0x15
0x089a…08dc at0016 = ╱20╱…╱ // 0x8b0 @0x16
0x089a…08dc at0017 = ╱66╱f╱ // 0x8b1 @0x17
0x089a…08dc at0018 = ╱79╱y╱ // 0x8b2 @0x18
0x089a…08dc at0019 = ╱6c╱l╱ // 0x8b3 @0x19
0x089a…08dc at001a = ╱64╱d╱ // 0x8b4 @0x1a
0x089a…08dc at001b = ╱74╱t╱ // 0x8b5 @0x1b
0x089a…08dc at001c = ╱20╱…╱ // 0x8b6 @0x1c
0x089a…08dc at001d = ╱36╱6╱ // 0x8b7 @0x1d
0x089a…08dc at001e = ╱37╱7╱ // 0x8b8 @0x1e
0x089a…08dc at001f = ╱20╱…╱ // 0x8b9 @0x1f
0x089a…08dc at0020 = ╱7d╱}╱ // 0x8ba @0x20
0x089a…08dc at0021 = ╱72╱r╱ // 0x8bb @0x21
0x089a…08dc at0022 = ╱20╱…╱ // 0x8bc @0x22
0x089a…08dc at0023 = ╱76╱v╱ // 0x8bd @0x23
0x089a…08dc at0024 = ╱65╱e╱ // 0x8be @0x24
0x089a…08dc at0025 = ╱64╱d╱ // 0x8bf @0x25
0x089a…08dc at0026 = ╱20╱…╱ // 0x8c0 @0x26
0x089a…08dc at0027 = ╱69╱i╱ // 0x8c1 @0x27
0x089a…08dc at0028 = ╱6e╱n╱ // 0x8c2 @0x28
0x089a…08dc at0029 = ╱64╱d╱ // 0x8c3 @0x29
0x089a…08dc at002a = ╱6b╱k╱ // 0x8c4 @0x2a
0x089a…08dc at002b = ╱6f╱o╱ // 0x8c5 @0x2b
0x089a…08dc at002c = ╱6d╱m╱ // 0x8c6 @0x2c
0x089a…08dc at002d = ╱73╱s╱ // 0x8c7 @0x2d
0x089a…08dc at002e = ╱74╱t╱ // 0x8c8 @0x2e
0x089a…08dc at002f = ╱7d╱}╱ // 0x8c9 @0x2f
0x089a…08dc at0030 = ╱72╱r╱ // 0x8ca @0x30
0x089a…08dc at0031 = ╱65╱e╱ // 0x8cb @0x31
0x089a…08dc at0032 = ╱74╱t╱ // 0x8cc @0x32
0x089a…08dc at0033 = ╱73╱s╱ // 0x8cd @0x33
0x089a…08dc at0034 = ╱20╱…╱ // 0x8ce @0x34
0x089a…08dc at0035 = ╱62╱b╱ // 0x8cf @0x35
0x089a…08dc at0036 = ╱65╱e╱ // 0x8d0 @0x36
0x089a…08dc at0037 = ╱67╱g╱ // 0x8d1 @0x37
0x089a…08dc at0038 = ╱79╱y╱ // 0x8d2 @0x38
0x089a…08dc at0039 = ╱6e╱n╱ // 0x8d3 @0x39
0x089a…08dc at003a = ╱64╱d╱ // 0x8d4 @0x3a
0x089a…08dc at003b = ╱65╱e╱ // 0x8d5 @0x3b
0x089a…08dc at003c = ╱6c╱l╱ // 0x8d6 @0x3c
0x089a…08dc at003d = ╱73╱s╱ // 0x8d7 @0x3d
0x089a…08dc at003e = ╱65╱e╱ // 0x8d8 @0x3e
0x089a…08dc at003f = ╱22╱"╱ // 0x8d9 @0x3f
0x089a…08dc at0040 = ╱ea╱ ; ╱ // 0x8da @0x40
0x089a…08dc at0041 = EOL // 0x8db @0x41
0x089a…08dc }
0x08dc…08e6 9ed4 00435 EXEC SVAR
0x08dc…08e6 LineComal80 {
0x08dc…08e6 ptr = 0x9ed4 // 0x8dc @0x0
0x08dc…08e6 lno = 0x01b3 // 0x8de @0x2
0x08dc…08e6 at0004 = ╱9d╱ EXEC ╱ // 0x8e0 @0x4
0x08dc…08e6 at0005 = ╱53╱S╱ // 0x8e1 @0x5
0x08dc…08e6 at0006 = ╱56╱V╱ // 0x8e2 @0x6
0x08dc…08e6 at0007 = ╱41╱A╱ // 0x8e3 @0x7
0x08dc…08e6 at0008 = ╱52╱R╱ // 0x8e4 @0x8
0x08dc…08e6 at0009 = EOL // 0x8e5 @0x9
0x08dc…08e6 }
0x08e6…08fc 9eea 00440 IF S $ = "j" THEN LET T1 := 1
0x08e6…08fc LineComal80 {
0x08e6…08fc ptr = 0x9eea // 0x8e6 @0x0
0x08e6…08fc lno = 0x01b8 // 0x8e8 @0x2
0x08e6…08fc at0004 = ╱8200╱ IF ╱ // 0x8ea @0x4
0x08e6…08fc at0006 = ╱53╱S╱ // 0x8ec @0x6
0x08e6…08fc at0007 = ╱ef╱ $ ╱ // 0x8ed @0x7
0x08e6…08fc at0008 = ╱df╱ = ╱ // 0x8ee @0x8
0x08e6…08fc at0009 = ╱22╱"╱ // 0x8ef @0x9
0x08e6…08fc at000a = ╱6a╱j╱ // 0x8f0 @0xa
0x08e6…08fc at000b = ╱22╱"╱ // 0x8f1 @0xb
0x08e6…08fc at000c = ╱b5╱ THEN ╱ // 0x8f2 @0xc
0x08e6…08fc at000d = ╱86╱ LET ╱ // 0x8f3 @0xd
0x08e6…08fc at000e = ╱54╱T╱ // 0x8f4 @0xe
0x08e6…08fc at000f = ╱31╱1╱ // 0x8f5 @0xf
0x08e6…08fc at0010 = ╱f0╱ := ╱ // 0x8f6 @0x10
0x08e6…08fc at0011 = ╱31╱1╱ // 0x8f7 @0x11
0x08e6…08fc at0012 = ╱f20100╱ // 0x8f8 @0x12
0x08e6…08fc at0015 = EOL // 0x8fb @0x15
0x08e6…08fc }
0x08fc…0902 9ef0 00445 ENDIF
0x08fc…0902 LineComal80 {
0x08fc…0902 ptr = 0x9ef0 // 0x8fc @0x0
0x08fc…0902 lno = 0x01bd // 0x8fe @0x2
0x08fc…0902 at0004 = ╱9c╱ ENDIF ╱ // 0x900 @0x4
0x08fc…0902 at0005 = EOL // 0x901 @0x5
0x08fc…0902 }
0x0902…0908 9ef6 00450 ENDIF
0x0902…0908 LineComal80 {
0x0902…0908 ptr = 0x9ef6 // 0x902 @0x0
0x0902…0908 lno = 0x01c2 // 0x904 @0x2
0x0902…0908 at0004 = ╱9c╱ ENDIF ╱ // 0x906 @0x4
0x0902…0908 at0005 = EOL // 0x907 @0x5
0x0902…0908 }
0x0908…0917 9f05 00455 IF 1 = 1 THEN
0x0908…0917 LineComal80 {
0x0908…0917 ptr = 0x9f05 // 0x908 @0x0
0x0908…0917 lno = 0x01c7 // 0x90a @0x2
0x0908…0917 at0004 = ╱9b0054╱ IF ╱ // 0x90c @0x4
0x0908…0917 at0007 = ╱31╱1╱ // 0x90f @0x7
0x0908…0917 at0008 = ╱df╱ = ╱ // 0x910 @0x8
0x0908…0917 at0009 = ╱31╱1╱ // 0x911 @0x9
0x0908…0917 at000a = ╱f20100╱ // 0x912 @0xa
0x0908…0917 at000d = ╱b5╱ THEN ╱ // 0x915 @0xd
0x0908…0917 at000e = EOL // 0x916 @0xe
0x0908…0917 }
0x0917…092e 9f1c 00460 IF G = 1 THEN LET ATP := HATP
0x0917…092e LineComal80 {
0x0917…092e ptr = 0x9f1c // 0x917 @0x0
0x0917…092e lno = 0x01cc // 0x919 @0x2
0x0917…092e at0004 = ╱8200╱ IF ╱ // 0x91b @0x4
0x0917…092e at0006 = ╱47╱G╱ // 0x91d @0x6
0x0917…092e at0007 = ╱df╱ = ╱ // 0x91e @0x7
0x0917…092e at0008 = ╱31╱1╱ // 0x91f @0x8
0x0917…092e at0009 = ╱f20100╱ // 0x920 @0x9
0x0917…092e at000c = ╱b5╱ THEN ╱ // 0x923 @0xc
0x0917…092e at000d = ╱86╱ LET ╱ // 0x924 @0xd
0x0917…092e at000e = ╱41╱A╱ // 0x925 @0xe
0x0917…092e at000f = ╱54╱T╱ // 0x926 @0xf
0x0917…092e at0010 = ╱50╱P╱ // 0x927 @0x10
0x0917…092e at0011 = ╱f0╱ := ╱ // 0x928 @0x11
0x0917…092e at0012 = ╱48╱H╱ // 0x929 @0x12
0x0917…092e at0013 = ╱41╱A╱ // 0x92a @0x13
0x0917…092e at0014 = ╱54╱T╱ // 0x92b @0x14
0x0917…092e at0015 = ╱50╱P╱ // 0x92c @0x15
0x0917…092e at0016 = EOL // 0x92d @0x16
0x0917…092e }
0x092e…093a 9f28 00465 EXEC INDATP
0x092e…093a LineComal80 {
0x092e…093a ptr = 0x9f28 // 0x92e @0x0
0x092e…093a lno = 0x01d1 // 0x930 @0x2
0x092e…093a at0004 = ╱9d╱ EXEC ╱ // 0x932 @0x4
0x092e…093a at0005 = ╱49╱I╱ // 0x933 @0x5
0x092e…093a at0006 = ╱4e╱N╱ // 0x934 @0x6
0x092e…093a at0007 = ╱44╱D╱ // 0x935 @0x7
0x092e…093a at0008 = ╱41╱A╱ // 0x936 @0x8
0x092e…093a at0009 = ╱54╱T╱ // 0x937 @0x9
0x092e…093a at000a = ╱50╱P╱ // 0x938 @0xa
0x092e…093a at000b = EOL // 0x939 @0xb
0x092e…093a }
0x093a…0952 9f40 00470 LET HC3 := C3 + C5 ; HATP := ATP
0x093a…0952 LineComal80 {
0x093a…0952 ptr = 0x9f40 // 0x93a @0x0
0x093a…0952 lno = 0x01d6 // 0x93c @0x2
0x093a…0952 at0004 = ╱86╱ LET ╱ // 0x93e @0x4
0x093a…0952 at0005 = ╱48╱H╱ // 0x93f @0x5
0x093a…0952 at0006 = ╱43╱C╱ // 0x940 @0x6
0x093a…0952 at0007 = ╱33╱3╱ // 0x941 @0x7
0x093a…0952 at0008 = ╱f0╱ := ╱ // 0x942 @0x8
0x093a…0952 at0009 = ╱43╱C╱ // 0x943 @0x9
0x093a…0952 at000a = ╱33╱3╱ // 0x944 @0xa
0x093a…0952 at000b = ╱e5╱ + ╱ // 0x945 @0xb
0x093a…0952 at000c = ╱43╱C╱ // 0x946 @0xc
0x093a…0952 at000d = ╱35╱5╱ // 0x947 @0xd
0x093a…0952 at000e = ╱ea╱ ; ╱ // 0x948 @0xe
0x093a…0952 at000f = ╱48╱H╱ // 0x949 @0xf
0x093a…0952 at0010 = ╱41╱A╱ // 0x94a @0x10
0x093a…0952 at0011 = ╱54╱T╱ // 0x94b @0x11
0x093a…0952 at0012 = ╱50╱P╱ // 0x94c @0x12
0x093a…0952 at0013 = ╱f0╱ := ╱ // 0x94d @0x13
0x093a…0952 at0014 = ╱41╱A╱ // 0x94e @0x14
0x093a…0952 at0015 = ╱54╱T╱ // 0x94f @0x15
0x093a…0952 at0016 = ╱50╱P╱ // 0x950 @0x16
0x093a…0952 at0017 = EOL // 0x951 @0x17
0x093a…0952 }
0x0952…0958 9f46 00475 ENDIF
0x0952…0958 LineComal80 {
0x0952…0958 ptr = 0x9f46 // 0x952 @0x0
0x0952…0958 lno = 0x01db // 0x954 @0x2
0x0952…0958 at0004 = ╱9c╱ ENDIF ╱ // 0x956 @0x4
0x0952…0958 at0005 = EOL // 0x957 @0x5
0x0952…0958 }
0x0958…0984 9f72 00480 LET B0 := A ( 1 ) ; B1 := C1 ; B2 := C2 ; C4 := C7 ; PR := O ; C3 := O
0x0958…0984 LineComal80 {
0x0958…0984 ptr = 0x9f72 // 0x958 @0x0
0x0958…0984 lno = 0x01e0 // 0x95a @0x2
0x0958…0984 at0004 = ╱86╱ LET ╱ // 0x95c @0x4
0x0958…0984 at0005 = ╱42╱B╱ // 0x95d @0x5
0x0958…0984 at0006 = ╱30╱0╱ // 0x95e @0x6
0x0958…0984 at0007 = ╱f0╱ := ╱ // 0x95f @0x7
0x0958…0984 at0008 = ╱41╱A╱ // 0x960 @0x8
0x0958…0984 at0009 = ╱ed╱ ( ╱ // 0x961 @0x9
0x0958…0984 at000a = ╱31╱1╱ // 0x962 @0xa
0x0958…0984 at000b = ╱f20100╱ // 0x963 @0xb
0x0958…0984 at000e = ╱ee╱ ) ╱ // 0x966 @0xe
0x0958…0984 at000f = ╱ea╱ ; ╱ // 0x967 @0xf
0x0958…0984 at0010 = ╱42╱B╱ // 0x968 @0x10
0x0958…0984 at0011 = ╱31╱1╱ // 0x969 @0x11
0x0958…0984 at0012 = ╱f0╱ := ╱ // 0x96a @0x12
0x0958…0984 at0013 = ╱43╱C╱ // 0x96b @0x13
0x0958…0984 at0014 = ╱31╱1╱ // 0x96c @0x14
0x0958…0984 at0015 = ╱ea╱ ; ╱ // 0x96d @0x15
0x0958…0984 at0016 = ╱42╱B╱ // 0x96e @0x16
0x0958…0984 at0017 = ╱32╱2╱ // 0x96f @0x17
0x0958…0984 at0018 = ╱f0╱ := ╱ // 0x970 @0x18
0x0958…0984 at0019 = ╱43╱C╱ // 0x971 @0x19
0x0958…0984 at001a = ╱32╱2╱ // 0x972 @0x1a
0x0958…0984 at001b = ╱ea╱ ; ╱ // 0x973 @0x1b
0x0958…0984 at001c = ╱43╱C╱ // 0x974 @0x1c
0x0958…0984 at001d = ╱34╱4╱ // 0x975 @0x1d
0x0958…0984 at001e = ╱f0╱ := ╱ // 0x976 @0x1e
0x0958…0984 at001f = ╱43╱C╱ // 0x977 @0x1f
0x0958…0984 at0020 = ╱37╱7╱ // 0x978 @0x20
0x0958…0984 at0021 = ╱ea╱ ; ╱ // 0x979 @0x21
0x0958…0984 at0022 = ╱50╱P╱ // 0x97a @0x22
0x0958…0984 at0023 = ╱52╱R╱ // 0x97b @0x23
0x0958…0984 at0024 = ╱f0╱ := ╱ // 0x97c @0x24
0x0958…0984 at0025 = ╱4f╱O╱ // 0x97d @0x25
0x0958…0984 at0026 = ╱ea╱ ; ╱ // 0x97e @0x26
0x0958…0984 at0027 = ╱43╱C╱ // 0x97f @0x27
0x0958…0984 at0028 = ╱33╱3╱ // 0x980 @0x28
0x0958…0984 at0029 = ╱f0╱ := ╱ // 0x981 @0x29
0x0958…0984 at002a = ╱4f╱O╱ // 0x982 @0x2a
0x0958…0984 at002b = EOL // 0x983 @0x2b
0x0958…0984 }
0x0984…099a 9f88 00485 IF T1 = 1 THEN LET C3 := HC3
0x0984…099a LineComal80 {
0x0984…099a ptr = 0x9f88 // 0x984 @0x0
0x0984…099a lno = 0x01e5 // 0x986 @0x2
0x0984…099a at0004 = ╱8200╱ IF ╱ // 0x988 @0x4
0x0984…099a at0006 = ╱54╱T╱ // 0x98a @0x6
0x0984…099a at0007 = ╱31╱1╱ // 0x98b @0x7
0x0984…099a at0008 = ╱df╱ = ╱ // 0x98c @0x8
0x0984…099a at0009 = ╱31╱1╱ // 0x98d @0x9
0x0984…099a at000a = ╱f20100╱ // 0x98e @0xa
0x0984…099a at000d = ╱b5╱ THEN ╱ // 0x991 @0xd
0x0984…099a at000e = ╱86╱ LET ╱ // 0x992 @0xe
0x0984…099a at000f = ╱43╱C╱ // 0x993 @0xf
0x0984…099a at0010 = ╱33╱3╱ // 0x994 @0x10
0x0984…099a at0011 = ╱f0╱ := ╱ // 0x995 @0x11
0x0984…099a at0012 = ╱48╱H╱ // 0x996 @0x12
0x0984…099a at0013 = ╱43╱C╱ // 0x997 @0x13
0x0984…099a at0014 = ╱33╱3╱ // 0x998 @0x14
0x0984…099a at0015 = EOL // 0x999 @0x15
0x0984…099a }
0x099a…09a7 9f95 00490 EXEC SKATIND
0x099a…09a7 LineComal80 {
0x099a…09a7 ptr = 0x9f95 // 0x99a @0x0
0x099a…09a7 lno = 0x01ea // 0x99c @0x2
0x099a…09a7 at0004 = ╱9d╱ EXEC ╱ // 0x99e @0x4
0x099a…09a7 at0005 = ╱53╱S╱ // 0x99f @0x5
0x099a…09a7 at0006 = ╱4b╱K╱ // 0x9a0 @0x6
0x099a…09a7 at0007 = ╱41╱A╱ // 0x9a1 @0x7
0x099a…09a7 at0008 = ╱54╱T╱ // 0x9a2 @0x8
0x099a…09a7 at0009 = ╱49╱I╱ // 0x9a3 @0x9
0x099a…09a7 at000a = ╱4e╱N╱ // 0x9a4 @0xa
0x099a…09a7 at000b = ╱44╱D╱ // 0x9a5 @0xb
0x099a…09a7 at000c = EOL // 0x9a6 @0xc
0x099a…09a7 }
0x09a7…09ad 9f9b 00495 PRINT
0x09a7…09ad LineComal80 {
0x09a7…09ad ptr = 0x9f9b // 0x9a7 @0x0
0x09a7…09ad lno = 0x01ef // 0x9a9 @0x2
0x09a7…09ad at0004 = ╱92╱ PRINT ╱ // 0x9ab @0x4
0x09a7…09ad at0005 = EOL // 0x9ac @0x5
0x09a7…09ad }
0x09ad…09d6 9fc4 00500 PRINT "\nskes…rettelser…til…ovenst}ende" ;
0x09ad…09d6 LineComal80 {
0x09ad…09d6 ptr = 0x9fc4 // 0x9ad @0x0
0x09ad…09d6 lno = 0x01f4 // 0x9af @0x2
0x09ad…09d6 at0004 = ╱92╱ PRINT ╱ // 0x9b1 @0x4
0x09ad…09d6 at0005 = ╱22╱"╱ // 0x9b2 @0x5
0x09ad…09d6 at0006 = ╱5c╱\╱ // 0x9b3 @0x6
0x09ad…09d6 at0007 = ╱6e╱n╱ // 0x9b4 @0x7
0x09ad…09d6 at0008 = ╱73╱s╱ // 0x9b5 @0x8
0x09ad…09d6 at0009 = ╱6b╱k╱ // 0x9b6 @0x9
0x09ad…09d6 at000a = ╱65╱e╱ // 0x9b7 @0xa
0x09ad…09d6 at000b = ╱73╱s╱ // 0x9b8 @0xb
0x09ad…09d6 at000c = ╱20╱…╱ // 0x9b9 @0xc
0x09ad…09d6 at000d = ╱72╱r╱ // 0x9ba @0xd
0x09ad…09d6 at000e = ╱65╱e╱ // 0x9bb @0xe
0x09ad…09d6 at000f = ╱74╱t╱ // 0x9bc @0xf
0x09ad…09d6 at0010 = ╱74╱t╱ // 0x9bd @0x10
0x09ad…09d6 at0011 = ╱65╱e╱ // 0x9be @0x11
0x09ad…09d6 at0012 = ╱6c╱l╱ // 0x9bf @0x12
0x09ad…09d6 at0013 = ╱73╱s╱ // 0x9c0 @0x13
0x09ad…09d6 at0014 = ╱65╱e╱ // 0x9c1 @0x14
0x09ad…09d6 at0015 = ╱72╱r╱ // 0x9c2 @0x15
0x09ad…09d6 at0016 = ╱20╱…╱ // 0x9c3 @0x16
0x09ad…09d6 at0017 = ╱74╱t╱ // 0x9c4 @0x17
0x09ad…09d6 at0018 = ╱69╱i╱ // 0x9c5 @0x18
0x09ad…09d6 at0019 = ╱6c╱l╱ // 0x9c6 @0x19
0x09ad…09d6 at001a = ╱20╱…╱ // 0x9c7 @0x1a
0x09ad…09d6 at001b = ╱6f╱o╱ // 0x9c8 @0x1b
0x09ad…09d6 at001c = ╱76╱v╱ // 0x9c9 @0x1c
0x09ad…09d6 at001d = ╱65╱e╱ // 0x9ca @0x1d
0x09ad…09d6 at001e = ╱6e╱n╱ // 0x9cb @0x1e
0x09ad…09d6 at001f = ╱73╱s╱ // 0x9cc @0x1f
0x09ad…09d6 at0020 = ╱74╱t╱ // 0x9cd @0x20
0x09ad…09d6 at0021 = ╱7d╱}╱ // 0x9ce @0x21
0x09ad…09d6 at0022 = ╱65╱e╱ // 0x9cf @0x22
0x09ad…09d6 at0023 = ╱6e╱n╱ // 0x9d0 @0x23
0x09ad…09d6 at0024 = ╱64╱d╱ // 0x9d1 @0x24
0x09ad…09d6 at0025 = ╱65╱e╱ // 0x9d2 @0x25
0x09ad…09d6 at0026 = ╱22╱"╱ // 0x9d3 @0x26
0x09ad…09d6 at0027 = ╱ea╱ ; ╱ // 0x9d4 @0x27
0x09ad…09d6 at0028 = EOL // 0x9d5 @0x28
0x09ad…09d6 }
0x09d6…09e0 9fce 00505 EXEC SVAR
0x09d6…09e0 LineComal80 {
0x09d6…09e0 ptr = 0x9fce // 0x9d6 @0x0
0x09d6…09e0 lno = 0x01f9 // 0x9d8 @0x2
0x09d6…09e0 at0004 = ╱9d╱ EXEC ╱ // 0x9da @0x4
0x09d6…09e0 at0005 = ╱53╱S╱ // 0x9db @0x5
0x09d6…09e0 at0006 = ╱56╱V╱ // 0x9dc @0x6
0x09d6…09e0 at0007 = ╱41╱A╱ // 0x9dd @0x7
0x09d6…09e0 at0008 = ╱52╱R╱ // 0x9de @0x8
0x09d6…09e0 at0009 = EOL // 0x9df @0x9
0x09d6…09e0 }
0x09e0…09e6 9fd4 00510 CLEAR
0x09e0…09e6 LineComal80 {
0x09e0…09e6 ptr = 0x9fd4 // 0x9e0 @0x0
0x09e0…09e6 lno = 0x01fe // 0x9e2 @0x2
0x09e0…09e6 at0004 = ╱a0╱ CLEAR ╱ // 0x9e4 @0x4
0x09e0…09e6 at0005 = EOL // 0x9e5 @0x5
0x09e0…09e6 }
0x09e6…09f2 9fe0 00515 UNTIL S $ = "n"
0x09e6…09f2 LineComal80 {
0x09e6…09f2 ptr = 0x9fe0 // 0x9e6 @0x0
0x09e6…09f2 lno = 0x0203 // 0x9e8 @0x2
0x09e6…09f2 at0004 = ╱98╱ UNTIL ╱ // 0x9ea @0x4
0x09e6…09f2 at0005 = ╱53╱S╱ // 0x9eb @0x5
0x09e6…09f2 at0006 = ╱ef╱ $ ╱ // 0x9ec @0x6
0x09e6…09f2 at0007 = ╱df╱ = ╱ // 0x9ed @0x7
0x09e6…09f2 at0008 = ╱22╱"╱ // 0x9ee @0x8
0x09e6…09f2 at0009 = ╱6e╱n╱ // 0x9ef @0x9
0x09e6…09f2 at000a = ╱22╱"╱ // 0x9f0 @0xa
0x09e6…09f2 at000b = EOL // 0x9f1 @0xb
0x09e6…09f2 }
0x09f2…0a00 9fee 00520 IF >< 1 THEN
0x09f2…0a00 LineComal80 {
0x09f2…0a00 ptr = 0x9fee // 0x9f2 @0x0
0x09f2…0a00 lno = 0x0208 // 0x9f4 @0x2
0x09f2…0a00 at0004 = ╱9b0047╱ IF ╱ // 0x9f6 @0x4
0x09f2…0a00 at0007 = ╱e4╱ >< ╱ // 0x9f9 @0x7
0x09f2…0a00 at0008 = ╱31╱1╱ // 0x9fa @0x8
0x09f2…0a00 at0009 = ╱f20100╱ // 0x9fb @0x9
0x09f2…0a00 at000c = ╱b5╱ THEN ╱ // 0x9fe @0xc
0x09f2…0a00 at000d = EOL // 0x9ff @0xd
0x09f2…0a00 }
0x0a00…0a43 a031 00525 PRINT "Skal…der…foretages…beregning…af…en…{gtef{lle…(gift…kvinde)" ;
0x0a00…0a43 LineComal80 {
0x0a00…0a43 ptr = 0xa031 // 0xa00 @0x0
0x0a00…0a43 lno = 0x020d // 0xa02 @0x2
0x0a00…0a43 at0004 = ╱92╱ PRINT ╱ // 0xa04 @0x4
0x0a00…0a43 at0005 = ╱22╱"╱ // 0xa05 @0x5
0x0a00…0a43 at0006 = ╱53╱S╱ // 0xa06 @0x6
0x0a00…0a43 at0007 = ╱6b╱k╱ // 0xa07 @0x7
0x0a00…0a43 at0008 = ╱61╱a╱ // 0xa08 @0x8
0x0a00…0a43 at0009 = ╱6c╱l╱ // 0xa09 @0x9
0x0a00…0a43 at000a = ╱20╱…╱ // 0xa0a @0xa
0x0a00…0a43 at000b = ╱64╱d╱ // 0xa0b @0xb
0x0a00…0a43 at000c = ╱65╱e╱ // 0xa0c @0xc
0x0a00…0a43 at000d = ╱72╱r╱ // 0xa0d @0xd
0x0a00…0a43 at000e = ╱20╱…╱ // 0xa0e @0xe
0x0a00…0a43 at000f = ╱66╱f╱ // 0xa0f @0xf
0x0a00…0a43 at0010 = ╱6f╱o╱ // 0xa10 @0x10
0x0a00…0a43 at0011 = ╱72╱r╱ // 0xa11 @0x11
0x0a00…0a43 at0012 = ╱65╱e╱ // 0xa12 @0x12
0x0a00…0a43 at0013 = ╱74╱t╱ // 0xa13 @0x13
0x0a00…0a43 at0014 = ╱61╱a╱ // 0xa14 @0x14
0x0a00…0a43 at0015 = ╱67╱g╱ // 0xa15 @0x15
0x0a00…0a43 at0016 = ╱65╱e╱ // 0xa16 @0x16
0x0a00…0a43 at0017 = ╱73╱s╱ // 0xa17 @0x17
0x0a00…0a43 at0018 = ╱20╱…╱ // 0xa18 @0x18
0x0a00…0a43 at0019 = ╱62╱b╱ // 0xa19 @0x19
0x0a00…0a43 at001a = ╱65╱e╱ // 0xa1a @0x1a
0x0a00…0a43 at001b = ╱72╱r╱ // 0xa1b @0x1b
0x0a00…0a43 at001c = ╱65╱e╱ // 0xa1c @0x1c
0x0a00…0a43 at001d = ╱67╱g╱ // 0xa1d @0x1d
0x0a00…0a43 at001e = ╱6e╱n╱ // 0xa1e @0x1e
0x0a00…0a43 at001f = ╱69╱i╱ // 0xa1f @0x1f
0x0a00…0a43 at0020 = ╱6e╱n╱ // 0xa20 @0x20
0x0a00…0a43 at0021 = ╱67╱g╱ // 0xa21 @0x21
0x0a00…0a43 at0022 = ╱20╱…╱ // 0xa22 @0x22
0x0a00…0a43 at0023 = ╱61╱a╱ // 0xa23 @0x23
0x0a00…0a43 at0024 = ╱66╱f╱ // 0xa24 @0x24
0x0a00…0a43 at0025 = ╱20╱…╱ // 0xa25 @0x25
0x0a00…0a43 at0026 = ╱65╱e╱ // 0xa26 @0x26
0x0a00…0a43 at0027 = ╱6e╱n╱ // 0xa27 @0x27
0x0a00…0a43 at0028 = ╱20╱…╱ // 0xa28 @0x28
0x0a00…0a43 at0029 = ╱7b╱{╱ // 0xa29 @0x29
0x0a00…0a43 at002a = ╱67╱g╱ // 0xa2a @0x2a
0x0a00…0a43 at002b = ╱74╱t╱ // 0xa2b @0x2b
0x0a00…0a43 at002c = ╱65╱e╱ // 0xa2c @0x2c
0x0a00…0a43 at002d = ╱66╱f╱ // 0xa2d @0x2d
0x0a00…0a43 at002e = ╱7b╱{╱ // 0xa2e @0x2e
0x0a00…0a43 at002f = ╱6c╱l╱ // 0xa2f @0x2f
0x0a00…0a43 at0030 = ╱6c╱l╱ // 0xa30 @0x30
0x0a00…0a43 at0031 = ╱65╱e╱ // 0xa31 @0x31
0x0a00…0a43 at0032 = ╱20╱…╱ // 0xa32 @0x32
0x0a00…0a43 at0033 = ╱28╱(╱ // 0xa33 @0x33
0x0a00…0a43 at0034 = ╱67╱g╱ // 0xa34 @0x34
0x0a00…0a43 at0035 = ╱69╱i╱ // 0xa35 @0x35
0x0a00…0a43 at0036 = ╱66╱f╱ // 0xa36 @0x36
0x0a00…0a43 at0037 = ╱74╱t╱ // 0xa37 @0x37
0x0a00…0a43 at0038 = ╱20╱…╱ // 0xa38 @0x38
0x0a00…0a43 at0039 = ╱6b╱k╱ // 0xa39 @0x39
0x0a00…0a43 at003a = ╱76╱v╱ // 0xa3a @0x3a
0x0a00…0a43 at003b = ╱69╱i╱ // 0xa3b @0x3b
0x0a00…0a43 at003c = ╱6e╱n╱ // 0xa3c @0x3c
0x0a00…0a43 at003d = ╱64╱d╱ // 0xa3d @0x3d
0x0a00…0a43 at003e = ╱65╱e╱ // 0xa3e @0x3e
0x0a00…0a43 at003f = ╱29╱)╱ // 0xa3f @0x3f
0x0a00…0a43 at0040 = ╱22╱"╱ // 0xa40 @0x40
0x0a00…0a43 at0041 = ╱ea╱ ; ╱ // 0xa41 @0x41
0x0a00…0a43 at0042 = EOL // 0xa42 @0x42
0x0a00…0a43 }
0x0a43…0a4d a03b 00530 EXEC SVAR
0x0a43…0a4d LineComal80 {
0x0a43…0a4d ptr = 0xa03b // 0xa43 @0x0
0x0a43…0a4d lno = 0x0212 // 0xa45 @0x2
0x0a43…0a4d at0004 = ╱9d╱ EXEC ╱ // 0xa47 @0x4
0x0a43…0a4d at0005 = ╱53╱S╱ // 0xa48 @0x5
0x0a43…0a4d at0006 = ╱56╱V╱ // 0xa49 @0x6
0x0a43…0a4d at0007 = ╱41╱A╱ // 0xa4a @0x7
0x0a43…0a4d at0008 = ╱52╱R╱ // 0xa4b @0x8
0x0a43…0a4d at0009 = EOL // 0xa4c @0x9
0x0a43…0a4d }
0x0a4d…0a5b a049 00535 EXEC NULSTIL2
0x0a4d…0a5b LineComal80 {
0x0a4d…0a5b ptr = 0xa049 // 0xa4d @0x0
0x0a4d…0a5b lno = 0x0217 // 0xa4f @0x2
0x0a4d…0a5b at0004 = ╱9d╱ EXEC ╱ // 0xa51 @0x4
0x0a4d…0a5b at0005 = ╱4e╱N╱ // 0xa52 @0x5
0x0a4d…0a5b at0006 = ╱55╱U╱ // 0xa53 @0x6
0x0a4d…0a5b at0007 = ╱4c╱L╱ // 0xa54 @0x7
0x0a4d…0a5b at0008 = ╱53╱S╱ // 0xa55 @0x8
0x0a4d…0a5b at0009 = ╱54╱T╱ // 0xa56 @0x9
0x0a4d…0a5b at000a = ╱49╱I╱ // 0xa57 @0xa
0x0a4d…0a5b at000b = ╱4c╱L╱ // 0xa58 @0xb
0x0a4d…0a5b at000c = ╱32╱2╱ // 0xa59 @0xc
0x0a4d…0a5b at000d = EOL // 0xa5a @0xd
0x0a4d…0a5b }
0x0a5b…0a65 a053 00540 LET T2 := O
0x0a5b…0a65 LineComal80 {
0x0a5b…0a65 ptr = 0xa053 // 0xa5b @0x0
0x0a5b…0a65 lno = 0x021c // 0xa5d @0x2
0x0a5b…0a65 at0004 = ╱86╱ LET ╱ // 0xa5f @0x4
0x0a5b…0a65 at0005 = ╱54╱T╱ // 0xa60 @0x5
0x0a5b…0a65 at0006 = ╱32╱2╱ // 0xa61 @0x6
0x0a5b…0a65 at0007 = ╱f0╱ := ╱ // 0xa62 @0x7
0x0a5b…0a65 at0008 = ╱4f╱O╱ // 0xa63 @0x8
0x0a5b…0a65 at0009 = EOL // 0xa64 @0x9
0x0a5b…0a65 }
0x0a65…0a73 a061 00545 IF $ = "j" THEN
0x0a65…0a73 LineComal80 {
0x0a65…0a73 ptr = 0xa061 // 0xa65 @0x0
0x0a65…0a73 lno = 0x0221 // 0xa67 @0x2
0x0a65…0a73 at0004 = ╱9b0053╱ IF ╱ // 0xa69 @0x4
0x0a65…0a73 at0007 = ╱ef╱ $ ╱ // 0xa6c @0x7
0x0a65…0a73 at0008 = ╱df╱ = ╱ // 0xa6d @0x8
0x0a65…0a73 at0009 = ╱22╱"╱ // 0xa6e @0x9
0x0a65…0a73 at000a = ╱6a╱j╱ // 0xa6f @0xa
0x0a65…0a73 at000b = ╱22╱"╱ // 0xa70 @0xb
0x0a65…0a73 at000c = ╱b5╱ THEN ╱ // 0xa71 @0xc
0x0a65…0a73 at000d = EOL // 0xa72 @0xd
0x0a65…0a73 }
0x0a73…0aa9 a097 00550 PRINT "Har…{gtef{llerne…v{ret…gift…hele…kalender}ret" ;
0x0a73…0aa9 LineComal80 {
0x0a73…0aa9 ptr = 0xa097 // 0xa73 @0x0
0x0a73…0aa9 lno = 0x0226 // 0xa75 @0x2
0x0a73…0aa9 at0004 = ╱92╱ PRINT ╱ // 0xa77 @0x4
0x0a73…0aa9 at0005 = ╱22╱"╱ // 0xa78 @0x5
0x0a73…0aa9 at0006 = ╱48╱H╱ // 0xa79 @0x6
0x0a73…0aa9 at0007 = ╱61╱a╱ // 0xa7a @0x7
0x0a73…0aa9 at0008 = ╱72╱r╱ // 0xa7b @0x8
0x0a73…0aa9 at0009 = ╱20╱…╱ // 0xa7c @0x9
0x0a73…0aa9 at000a = ╱7b╱{╱ // 0xa7d @0xa
0x0a73…0aa9 at000b = ╱67╱g╱ // 0xa7e @0xb
0x0a73…0aa9 at000c = ╱74╱t╱ // 0xa7f @0xc
0x0a73…0aa9 at000d = ╱65╱e╱ // 0xa80 @0xd
0x0a73…0aa9 at000e = ╱66╱f╱ // 0xa81 @0xe
0x0a73…0aa9 at000f = ╱7b╱{╱ // 0xa82 @0xf
0x0a73…0aa9 at0010 = ╱6c╱l╱ // 0xa83 @0x10
0x0a73…0aa9 at0011 = ╱6c╱l╱ // 0xa84 @0x11
0x0a73…0aa9 at0012 = ╱65╱e╱ // 0xa85 @0x12
0x0a73…0aa9 at0013 = ╱72╱r╱ // 0xa86 @0x13
0x0a73…0aa9 at0014 = ╱6e╱n╱ // 0xa87 @0x14
0x0a73…0aa9 at0015 = ╱65╱e╱ // 0xa88 @0x15
0x0a73…0aa9 at0016 = ╱20╱…╱ // 0xa89 @0x16
0x0a73…0aa9 at0017 = ╱76╱v╱ // 0xa8a @0x17
0x0a73…0aa9 at0018 = ╱7b╱{╱ // 0xa8b @0x18
0x0a73…0aa9 at0019 = ╱72╱r╱ // 0xa8c @0x19
0x0a73…0aa9 at001a = ╱65╱e╱ // 0xa8d @0x1a
0x0a73…0aa9 at001b = ╱74╱t╱ // 0xa8e @0x1b
0x0a73…0aa9 at001c = ╱20╱…╱ // 0xa8f @0x1c
0x0a73…0aa9 at001d = ╱67╱g╱ // 0xa90 @0x1d
0x0a73…0aa9 at001e = ╱69╱i╱ // 0xa91 @0x1e
0x0a73…0aa9 at001f = ╱66╱f╱ // 0xa92 @0x1f
0x0a73…0aa9 at0020 = ╱74╱t╱ // 0xa93 @0x20
0x0a73…0aa9 at0021 = ╱20╱…╱ // 0xa94 @0x21
0x0a73…0aa9 at0022 = ╱68╱h╱ // 0xa95 @0x22
0x0a73…0aa9 at0023 = ╱65╱e╱ // 0xa96 @0x23
0x0a73…0aa9 at0024 = ╱6c╱l╱ // 0xa97 @0x24
0x0a73…0aa9 at0025 = ╱65╱e╱ // 0xa98 @0x25
0x0a73…0aa9 at0026 = ╱20╱…╱ // 0xa99 @0x26
0x0a73…0aa9 at0027 = ╱6b╱k╱ // 0xa9a @0x27
0x0a73…0aa9 at0028 = ╱61╱a╱ // 0xa9b @0x28
0x0a73…0aa9 at0029 = ╱6c╱l╱ // 0xa9c @0x29
0x0a73…0aa9 at002a = ╱65╱e╱ // 0xa9d @0x2a
0x0a73…0aa9 at002b = ╱6e╱n╱ // 0xa9e @0x2b
0x0a73…0aa9 at002c = ╱64╱d╱ // 0xa9f @0x2c
0x0a73…0aa9 at002d = ╱65╱e╱ // 0xaa0 @0x2d
0x0a73…0aa9 at002e = ╱72╱r╱ // 0xaa1 @0x2e
0x0a73…0aa9 at002f = ╱7d╱}╱ // 0xaa2 @0x2f
0x0a73…0aa9 at0030 = ╱72╱r╱ // 0xaa3 @0x30
0x0a73…0aa9 at0031 = ╱65╱e╱ // 0xaa4 @0x31
0x0a73…0aa9 at0032 = ╱74╱t╱ // 0xaa5 @0x32
0x0a73…0aa9 at0033 = ╱22╱"╱ // 0xaa6 @0x33
0x0a73…0aa9 at0034 = ╱ea╱ ; ╱ // 0xaa7 @0x34
0x0a73…0aa9 at0035 = EOL // 0xaa8 @0x35
0x0a73…0aa9 }
0x0aa9…0ab3 a0a1 00555 EXEC SVAR
0x0aa9…0ab3 LineComal80 {
0x0aa9…0ab3 ptr = 0xa0a1 // 0xaa9 @0x0
0x0aa9…0ab3 lno = 0x022b // 0xaab @0x2
0x0aa9…0ab3 at0004 = ╱9d╱ EXEC ╱ // 0xaad @0x4
0x0aa9…0ab3 at0005 = ╱53╱S╱ // 0xaae @0x5
0x0aa9…0ab3 at0006 = ╱56╱V╱ // 0xaaf @0x6
0x0aa9…0ab3 at0007 = ╱41╱A╱ // 0xab0 @0x7
0x0aa9…0ab3 at0008 = ╱52╱R╱ // 0xab1 @0x8
0x0aa9…0ab3 at0009 = EOL // 0xab2 @0x9
0x0aa9…0ab3 }
0x0ab3…0ac5 a0b3 00560 LET T2 := 2 ; T4 := O
0x0ab3…0ac5 LineComal80 {
0x0ab3…0ac5 ptr = 0xa0b3 // 0xab3 @0x0
0x0ab3…0ac5 lno = 0x0230 // 0xab5 @0x2
0x0ab3…0ac5 at0004 = ╱86╱ LET ╱ // 0xab7 @0x4
0x0ab3…0ac5 at0005 = ╱54╱T╱ // 0xab8 @0x5
0x0ab3…0ac5 at0006 = ╱32╱2╱ // 0xab9 @0x6
0x0ab3…0ac5 at0007 = ╱f0╱ := ╱ // 0xaba @0x7
0x0ab3…0ac5 at0008 = ╱32╱2╱ // 0xabb @0x8
0x0ab3…0ac5 at0009 = ╱f20200╱ // 0xabc @0x9
0x0ab3…0ac5 at000c = ╱ea╱ ; ╱ // 0xabf @0xc
0x0ab3…0ac5 at000d = ╱54╱T╱ // 0xac0 @0xd
0x0ab3…0ac5 at000e = ╱34╱4╱ // 0xac1 @0xe
0x0ab3…0ac5 at000f = ╱f0╱ := ╱ // 0xac2 @0xf
0x0ab3…0ac5 at0010 = ╱4f╱O╱ // 0xac3 @0x10
0x0ab3…0ac5 at0011 = EOL // 0xac4 @0x11
0x0ab3…0ac5 }
0x0ac5…0ae3 a0d1 00565 IF S $ = "j" THEN LET T2 := 1 ; T4 := 1
0x0ac5…0ae3 LineComal80 {
0x0ac5…0ae3 ptr = 0xa0d1 // 0xac5 @0x0
0x0ac5…0ae3 lno = 0x0235 // 0xac7 @0x2
0x0ac5…0ae3 at0004 = ╱8200╱ IF ╱ // 0xac9 @0x4
0x0ac5…0ae3 at0006 = ╱53╱S╱ // 0xacb @0x6
0x0ac5…0ae3 at0007 = ╱ef╱ $ ╱ // 0xacc @0x7
0x0ac5…0ae3 at0008 = ╱df╱ = ╱ // 0xacd @0x8
0x0ac5…0ae3 at0009 = ╱22╱"╱ // 0xace @0x9
0x0ac5…0ae3 at000a = ╱6a╱j╱ // 0xacf @0xa
0x0ac5…0ae3 at000b = ╱22╱"╱ // 0xad0 @0xb
0x0ac5…0ae3 at000c = ╱b5╱ THEN ╱ // 0xad1 @0xc
0x0ac5…0ae3 at000d = ╱86╱ LET ╱ // 0xad2 @0xd
0x0ac5…0ae3 at000e = ╱54╱T╱ // 0xad3 @0xe
0x0ac5…0ae3 at000f = ╱32╱2╱ // 0xad4 @0xf
0x0ac5…0ae3 at0010 = ╱f0╱ := ╱ // 0xad5 @0x10
0x0ac5…0ae3 at0011 = ╱31╱1╱ // 0xad6 @0x11
0x0ac5…0ae3 at0012 = ╱f20100╱ // 0xad7 @0x12
0x0ac5…0ae3 at0015 = ╱ea╱ ; ╱ // 0xada @0x15
0x0ac5…0ae3 at0016 = ╱54╱T╱ // 0xadb @0x16
0x0ac5…0ae3 at0017 = ╱34╱4╱ // 0xadc @0x17
0x0ac5…0ae3 at0018 = ╱f0╱ := ╱ // 0xadd @0x18
0x0ac5…0ae3 at0019 = ╱31╱1╱ // 0xade @0x19
0x0ac5…0ae3 at001a = ╱f20100╱ // 0xadf @0x1a
0x0ac5…0ae3 at001d = EOL // 0xae2 @0x1d
0x0ac5…0ae3 }
0x0ae3…0afb a0e9 00570 IF F8 = 1 THEN EXEC S[TATILK
0x0ae3…0afb LineComal80 {
0x0ae3…0afb ptr = 0xa0e9 // 0xae3 @0x0
0x0ae3…0afb lno = 0x023a // 0xae5 @0x2
0x0ae3…0afb at0004 = ╱8200╱ IF ╱ // 0xae7 @0x4
0x0ae3…0afb at0006 = ╱46╱F╱ // 0xae9 @0x6
0x0ae3…0afb at0007 = ╱38╱8╱ // 0xaea @0x7
0x0ae3…0afb at0008 = ╱df╱ = ╱ // 0xaeb @0x8
0x0ae3…0afb at0009 = ╱31╱1╱ // 0xaec @0x9
0x0ae3…0afb at000a = ╱f20100╱ // 0xaed @0xa
0x0ae3…0afb at000d = ╱b5╱ THEN ╱ // 0xaf0 @0xd
0x0ae3…0afb at000e = ╱9d╱ EXEC ╱ // 0xaf1 @0xe
0x0ae3…0afb at000f = ╱53╱S╱ // 0xaf2 @0xf
0x0ae3…0afb at0010 = ╱5b╱[╱ // 0xaf3 @0x10
0x0ae3…0afb at0011 = ╱54╱T╱ // 0xaf4 @0x11
0x0ae3…0afb at0012 = ╱41╱A╱ // 0xaf5 @0x12
0x0ae3…0afb at0013 = ╱54╱T╱ // 0xaf6 @0x13
0x0ae3…0afb at0014 = ╱49╱I╱ // 0xaf7 @0x14
0x0ae3…0afb at0015 = ╱4c╱L╱ // 0xaf8 @0x15
0x0ae3…0afb at0016 = ╱4b╱K╱ // 0xaf9 @0x16
0x0ae3…0afb at0017 = EOL // 0xafa @0x17
0x0ae3…0afb }
0x0afb…0b01 a0ef 00575 ENDIF
0x0afb…0b01 LineComal80 {
0x0afb…0b01 ptr = 0xa0ef // 0xafb @0x0
0x0afb…0b01 lno = 0x023f // 0xafd @0x2
0x0afb…0b01 at0004 = ╱9c╱ ENDIF ╱ // 0xaff @0x4
0x0afb…0b01 at0005 = EOL // 0xb00 @0x5
0x0afb…0b01 }
0x0b01…0b08 a0f6 00580 ELSE
0x0b01…0b08 LineComal80 {
0x0b01…0b08 ptr = 0xa0f6 // 0xb01 @0x0
0x0b01…0b08 lno = 0x0244 // 0xb03 @0x2
0x0b01…0b08 at0004 = ╱9a00╱ ELSE ╱ // 0xb05 @0x4
0x0b01…0b08 at0006 = EOL // 0xb07 @0x6
0x0b01…0b08 }
0x0b08…0b14 a102 00585 IF 2 >< O THEN
0x0b08…0b14 LineComal80 {
0x0b08…0b14 ptr = 0xa102 // 0xb08 @0x0
0x0b08…0b14 lno = 0x0249 // 0xb0a @0x2
0x0b08…0b14 at0004 = ╱9b0054╱ IF ╱ // 0xb0c @0x4
0x0b08…0b14 at0007 = ╱32╱2╱ // 0xb0f @0x7
0x0b08…0b14 at0008 = ╱e4╱ >< ╱ // 0xb10 @0x8
0x0b08…0b14 at0009 = ╱4f╱O╱ // 0xb11 @0x9
0x0b08…0b14 at000a = ╱b5╱ THEN ╱ // 0xb12 @0xa
0x0b08…0b14 at000b = EOL // 0xb13 @0xb
0x0b08…0b14 }
0x0b14…0b22 a110 00590 EXEC NULSTIL2
0x0b14…0b22 LineComal80 {
0x0b14…0b22 ptr = 0xa110 // 0xb14 @0x0
0x0b14…0b22 lno = 0x024e // 0xb16 @0x2
0x0b14…0b22 at0004 = ╱9d╱ EXEC ╱ // 0xb18 @0x4
0x0b14…0b22 at0005 = ╱4e╱N╱ // 0xb19 @0x5
0x0b14…0b22 at0006 = ╱55╱U╱ // 0xb1a @0x6
0x0b14…0b22 at0007 = ╱4c╱L╱ // 0xb1b @0x7
0x0b14…0b22 at0008 = ╱53╱S╱ // 0xb1c @0x8
0x0b14…0b22 at0009 = ╱54╱T╱ // 0xb1d @0x9
0x0b14…0b22 at000a = ╱49╱I╱ // 0xb1e @0xa
0x0b14…0b22 at000b = ╱4c╱L╱ // 0xb1f @0xb
0x0b14…0b22 at000c = ╱32╱2╱ // 0xb20 @0xc
0x0b14…0b22 at000d = EOL // 0xb21 @0xd
0x0b14…0b22 }
0x0b22…0b3a a128 00595 IF F8 = 1 THEN EXEC S[TATILK
0x0b22…0b3a LineComal80 {
0x0b22…0b3a ptr = 0xa128 // 0xb22 @0x0
0x0b22…0b3a lno = 0x0253 // 0xb24 @0x2
0x0b22…0b3a at0004 = ╱8200╱ IF ╱ // 0xb26 @0x4
0x0b22…0b3a at0006 = ╱46╱F╱ // 0xb28 @0x6
0x0b22…0b3a at0007 = ╱38╱8╱ // 0xb29 @0x7
0x0b22…0b3a at0008 = ╱df╱ = ╱ // 0xb2a @0x8
0x0b22…0b3a at0009 = ╱31╱1╱ // 0xb2b @0x9
0x0b22…0b3a at000a = ╱f20100╱ // 0xb2c @0xa
0x0b22…0b3a at000d = ╱b5╱ THEN ╱ // 0xb2f @0xd
0x0b22…0b3a at000e = ╱9d╱ EXEC ╱ // 0xb30 @0xe
0x0b22…0b3a at000f = ╱53╱S╱ // 0xb31 @0xf
0x0b22…0b3a at0010 = ╱5b╱[╱ // 0xb32 @0x10
0x0b22…0b3a at0011 = ╱54╱T╱ // 0xb33 @0x11
0x0b22…0b3a at0012 = ╱41╱A╱ // 0xb34 @0x12
0x0b22…0b3a at0013 = ╱54╱T╱ // 0xb35 @0x13
0x0b22…0b3a at0014 = ╱49╱I╱ // 0xb36 @0x14
0x0b22…0b3a at0015 = ╱4c╱L╱ // 0xb37 @0x15
0x0b22…0b3a at0016 = ╱4b╱K╱ // 0xb38 @0x16
0x0b22…0b3a at0017 = EOL // 0xb39 @0x17
0x0b22…0b3a }
0x0b3a…0b40 a12e 00600 ENDIF
0x0b3a…0b40 LineComal80 {
0x0b3a…0b40 ptr = 0xa12e // 0xb3a @0x0
0x0b3a…0b40 lno = 0x0258 // 0xb3c @0x2
0x0b3a…0b40 at0004 = ╱9c╱ ENDIF ╱ // 0xb3e @0x4
0x0b3a…0b40 at0005 = EOL // 0xb3f @0x5
0x0b3a…0b40 }
0x0b40…0b46 a134 00605 ENDIF
0x0b40…0b46 LineComal80 {
0x0b40…0b46 ptr = 0xa134 // 0xb40 @0x0
0x0b40…0b46 lno = 0x025d // 0xb42 @0x2
0x0b40…0b46 at0004 = ╱9c╱ ENDIF ╱ // 0xb44 @0x4
0x0b40…0b46 at0005 = EOL // 0xb45 @0x5
0x0b40…0b46 }
0x0b46…0b52 a140 00610 IF 2 >< O THEN
0x0b46…0b52 LineComal80 {
0x0b46…0b52 ptr = 0xa140 // 0xb46 @0x0
0x0b46…0b52 lno = 0x0262 // 0xb48 @0x2
0x0b46…0b52 at0004 = ╱9b0054╱ IF ╱ // 0xb4a @0x4
0x0b46…0b52 at0007 = ╱32╱2╱ // 0xb4d @0x7
0x0b46…0b52 at0008 = ╱e4╱ >< ╱ // 0xb4e @0x8
0x0b46…0b52 at0009 = ╱4f╱O╱ // 0xb4f @0x9
0x0b46…0b52 at000a = ╱b5╱ THEN ╱ // 0xb50 @0xa
0x0b46…0b52 at000b = EOL // 0xb51 @0xb
0x0b46…0b52 }
0x0b52…0b59 a147 00615 REPEAT
0x0b52…0b59 LineComal80 {
0x0b52…0b59 ptr = 0xa147 // 0xb52 @0x0
0x0b52…0b59 lno = 0x0267 // 0xb54 @0x2
0x0b52…0b59 at0004 = ╱9700╱ REPEAT ╱ // 0xb56 @0x4
0x0b52…0b59 at0006 = EOL // 0xb58 @0x6
0x0b52…0b59 }
0x0b59…0b60 a14e 00620 REPEAT
0x0b59…0b60 LineComal80 {
0x0b59…0b60 ptr = 0xa14e // 0xb59 @0x0
0x0b59…0b60 lno = 0x026c // 0xb5b @0x2
0x0b59…0b60 at0004 = ╱9700╱ REPEAT ╱ // 0xb5d @0x4
0x0b59…0b60 at0006 = EOL // 0xb5f @0x6
0x0b59…0b60 }
0x0b60…0b94 a182 00625 LET FE := O ; QT $ := "…DEN…GIFTE…KVINDE…" ; A ( 24 ) := BFORMUE
0x0b60…0b94 LineComal80 {
0x0b60…0b94 ptr = 0xa182 // 0xb60 @0x0
0x0b60…0b94 lno = 0x0271 // 0xb62 @0x2
0x0b60…0b94 at0004 = ╱86╱ LET ╱ // 0xb64 @0x4
0x0b60…0b94 at0005 = ╱46╱F╱ // 0xb65 @0x5
0x0b60…0b94 at0006 = ╱45╱E╱ // 0xb66 @0x6
0x0b60…0b94 at0007 = ╱f0╱ := ╱ // 0xb67 @0x7
0x0b60…0b94 at0008 = ╱4f╱O╱ // 0xb68 @0x8
0x0b60…0b94 at0009 = ╱ea╱ ; ╱ // 0xb69 @0x9
0x0b60…0b94 at000a = ╱51╱Q╱ // 0xb6a @0xa
0x0b60…0b94 at000b = ╱54╱T╱ // 0xb6b @0xb
0x0b60…0b94 at000c = ╱ef╱ $ ╱ // 0xb6c @0xc
0x0b60…0b94 at000d = ╱f0╱ := ╱ // 0xb6d @0xd
0x0b60…0b94 at000e = ╱22╱"╱ // 0xb6e @0xe
0x0b60…0b94 at000f = ╱20╱…╱ // 0xb6f @0xf
0x0b60…0b94 at0010 = ╱44╱D╱ // 0xb70 @0x10
0x0b60…0b94 at0011 = ╱45╱E╱ // 0xb71 @0x11
0x0b60…0b94 at0012 = ╱4e╱N╱ // 0xb72 @0x12
0x0b60…0b94 at0013 = ╱20╱…╱ // 0xb73 @0x13
0x0b60…0b94 at0014 = ╱47╱G╱ // 0xb74 @0x14
0x0b60…0b94 at0015 = ╱49╱I╱ // 0xb75 @0x15
0x0b60…0b94 at0016 = ╱46╱F╱ // 0xb76 @0x16
0x0b60…0b94 at0017 = ╱54╱T╱ // 0xb77 @0x17
0x0b60…0b94 at0018 = ╱45╱E╱ // 0xb78 @0x18
0x0b60…0b94 at0019 = ╱20╱…╱ // 0xb79 @0x19
0x0b60…0b94 at001a = ╱4b╱K╱ // 0xb7a @0x1a
0x0b60…0b94 at001b = ╱56╱V╱ // 0xb7b @0x1b
0x0b60…0b94 at001c = ╱49╱I╱ // 0xb7c @0x1c
0x0b60…0b94 at001d = ╱4e╱N╱ // 0xb7d @0x1d
0x0b60…0b94 at001e = ╱44╱D╱ // 0xb7e @0x1e
0x0b60…0b94 at001f = ╱45╱E╱ // 0xb7f @0x1f
0x0b60…0b94 at0020 = ╱20╱…╱ // 0xb80 @0x20
0x0b60…0b94 at0021 = ╱22╱"╱ // 0xb81 @0x21
0x0b60…0b94 at0022 = ╱ea╱ ; ╱ // 0xb82 @0x22
0x0b60…0b94 at0023 = ╱41╱A╱ // 0xb83 @0x23
0x0b60…0b94 at0024 = ╱ed╱ ( ╱ // 0xb84 @0x24
0x0b60…0b94 at0025 = ╱32╱2╱ // 0xb85 @0x25
0x0b60…0b94 at0026 = ╱34╱4╱ // 0xb86 @0x26
0x0b60…0b94 at0027 = ╱f21800╱ // 0xb87 @0x27
0x0b60…0b94 at002a = ╱ee╱ ) ╱ // 0xb8a @0x2a
0x0b60…0b94 at002b = ╱f0╱ := ╱ // 0xb8b @0x2b
0x0b60…0b94 at002c = ╱42╱B╱ // 0xb8c @0x2c
0x0b60…0b94 at002d = ╱46╱F╱ // 0xb8d @0x2d
0x0b60…0b94 at002e = ╱4f╱O╱ // 0xb8e @0x2e
0x0b60…0b94 at002f = ╱52╱R╱ // 0xb8f @0x2f
0x0b60…0b94 at0030 = ╱4d╱M╱ // 0xb90 @0x30
0x0b60…0b94 at0031 = ╱55╱U╱ // 0xb91 @0x31
0x0b60…0b94 at0032 = ╱45╱E╱ // 0xb92 @0x32
0x0b60…0b94 at0033 = EOL // 0xb93 @0x33
0x0b60…0b94 }
0x0b94…0ba2 a190 00630 EXEC INDKOMST
0x0b94…0ba2 LineComal80 {
0x0b94…0ba2 ptr = 0xa190 // 0xb94 @0x0
0x0b94…0ba2 lno = 0x0276 // 0xb96 @0x2
0x0b94…0ba2 at0004 = ╱9d╱ EXEC ╱ // 0xb98 @0x4
0x0b94…0ba2 at0005 = ╱49╱I╱ // 0xb99 @0x5
0x0b94…0ba2 at0006 = ╱4e╱N╱ // 0xb9a @0x6
0x0b94…0ba2 at0007 = ╱44╱D╱ // 0xb9b @0x7
0x0b94…0ba2 at0008 = ╱4b╱K╱ // 0xb9c @0x8
0x0b94…0ba2 at0009 = ╱4f╱O╱ // 0xb9d @0x9
0x0b94…0ba2 at000a = ╱4d╱M╱ // 0xb9e @0xa
0x0b94…0ba2 at000b = ╱53╱S╱ // 0xb9f @0xb
0x0b94…0ba2 at000c = ╱54╱T╱ // 0xba0 @0xc
0x0b94…0ba2 at000d = EOL // 0xba1 @0xd
0x0b94…0ba2 }
0x0ba2…0bbd a1ab 00635 LET BFORMUE := B6 ; A ( 24 ) := O
0x0ba2…0bbd LineComal80 {
0x0ba2…0bbd ptr = 0xa1ab // 0xba2 @0x0
0x0ba2…0bbd lno = 0x027b // 0xba4 @0x2
0x0ba2…0bbd at0004 = ╱86╱ LET ╱ // 0xba6 @0x4
0x0ba2…0bbd at0005 = ╱42╱B╱ // 0xba7 @0x5
0x0ba2…0bbd at0006 = ╱46╱F╱ // 0xba8 @0x6
0x0ba2…0bbd at0007 = ╱4f╱O╱ // 0xba9 @0x7
0x0ba2…0bbd at0008 = ╱52╱R╱ // 0xbaa @0x8
0x0ba2…0bbd at0009 = ╱4d╱M╱ // 0xbab @0x9
0x0ba2…0bbd at000a = ╱55╱U╱ // 0xbac @0xa
0x0ba2…0bbd at000b = ╱45╱E╱ // 0xbad @0xb
0x0ba2…0bbd at000c = ╱f0╱ := ╱ // 0xbae @0xc
0x0ba2…0bbd at000d = ╱42╱B╱ // 0xbaf @0xd
0x0ba2…0bbd at000e = ╱36╱6╱ // 0xbb0 @0xe
0x0ba2…0bbd at000f = ╱ea╱ ; ╱ // 0xbb1 @0xf
0x0ba2…0bbd at0010 = ╱41╱A╱ // 0xbb2 @0x10
0x0ba2…0bbd at0011 = ╱ed╱ ( ╱ // 0xbb3 @0x11
0x0ba2…0bbd at0012 = ╱32╱2╱ // 0xbb4 @0x12
0x0ba2…0bbd at0013 = ╱34╱4╱ // 0xbb5 @0x13
0x0ba2…0bbd at0014 = ╱f21800╱ // 0xbb6 @0x14
0x0ba2…0bbd at0017 = ╱ee╱ ) ╱ // 0xbb9 @0x17
0x0ba2…0bbd at0018 = ╱f0╱ := ╱ // 0xbba @0x18
0x0ba2…0bbd at0019 = ╱4f╱O╱ // 0xbbb @0x19
0x0ba2…0bbd at001a = EOL // 0xbbc @0x1a
0x0ba2…0bbd }
0x0bbd…0bca a1b8 00640 EXEC FEJLMED
0x0bbd…0bca LineComal80 {
0x0bbd…0bca ptr = 0xa1b8 // 0xbbd @0x0
0x0bbd…0bca lno = 0x0280 // 0xbbf @0x2
0x0bbd…0bca at0004 = ╱9d╱ EXEC ╱ // 0xbc1 @0x4
0x0bbd…0bca at0005 = ╱46╱F╱ // 0xbc2 @0x5
0x0bbd…0bca at0006 = ╱45╱E╱ // 0xbc3 @0x6
0x0bbd…0bca at0007 = ╱4a╱J╱ // 0xbc4 @0x7
0x0bbd…0bca at0008 = ╱4c╱L╱ // 0xbc5 @0x8
0x0bbd…0bca at0009 = ╱4d╱M╱ // 0xbc6 @0x9
0x0bbd…0bca at000a = ╱45╱E╱ // 0xbc7 @0xa
0x0bbd…0bca at000b = ╱44╱D╱ // 0xbc8 @0xb
0x0bbd…0bca at000c = EOL // 0xbc9 @0xc
0x0bbd…0bca }
0x0bca…0bd4 a1c2 00645 EXEC FEJL
0x0bca…0bd4 LineComal80 {
0x0bca…0bd4 ptr = 0xa1c2 // 0xbca @0x0
0x0bca…0bd4 lno = 0x0285 // 0xbcc @0x2
0x0bca…0bd4 at0004 = ╱9d╱ EXEC ╱ // 0xbce @0x4
0x0bca…0bd4 at0005 = ╱46╱F╱ // 0xbcf @0x5
0x0bca…0bd4 at0006 = ╱45╱E╱ // 0xbd0 @0x6
0x0bca…0bd4 at0007 = ╱4a╱J╱ // 0xbd1 @0x7
0x0bca…0bd4 at0008 = ╱4c╱L╱ // 0xbd2 @0x8
0x0bca…0bd4 at0009 = EOL // 0xbd3 @0x9
0x0bca…0bd4 }
0x0bd4…0be1 a1cf 00650 UNTIL FE >< 1
0x0bd4…0be1 LineComal80 {
0x0bd4…0be1 ptr = 0xa1cf // 0xbd4 @0x0
0x0bd4…0be1 lno = 0x028a // 0xbd6 @0x2
0x0bd4…0be1 at0004 = ╱98╱ UNTIL ╱ // 0xbd8 @0x4
0x0bd4…0be1 at0005 = ╱46╱F╱ // 0xbd9 @0x5
0x0bd4…0be1 at0006 = ╱45╱E╱ // 0xbda @0x6
0x0bd4…0be1 at0007 = ╱e4╱ >< ╱ // 0xbdb @0x7
0x0bd4…0be1 at0008 = ╱31╱1╱ // 0xbdc @0x8
0x0bd4…0be1 at0009 = ╱f20100╱ // 0xbdd @0x9
0x0bd4…0be1 at000c = EOL // 0xbe0 @0xc
0x0bd4…0be1 }
0x0be1…0c08 a1f6 00655 LET F7 := A ( 12 ) ; F0 := A ( 11 ) * ( 30 / W )
0x0be1…0c08 LineComal80 {
0x0be1…0c08 ptr = 0xa1f6 // 0xbe1 @0x0
0x0be1…0c08 lno = 0x028f // 0xbe3 @0x2
0x0be1…0c08 at0004 = ╱86╱ LET ╱ // 0xbe5 @0x4
0x0be1…0c08 at0005 = ╱46╱F╱ // 0xbe6 @0x5
0x0be1…0c08 at0006 = ╱37╱7╱ // 0xbe7 @0x6
0x0be1…0c08 at0007 = ╱f0╱ := ╱ // 0xbe8 @0x7
0x0be1…0c08 at0008 = ╱41╱A╱ // 0xbe9 @0x8
0x0be1…0c08 at0009 = ╱ed╱ ( ╱ // 0xbea @0x9
0x0be1…0c08 at000a = ╱31╱1╱ // 0xbeb @0xa
0x0be1…0c08 at000b = ╱32╱2╱ // 0xbec @0xb
0x0be1…0c08 at000c = ╱f20c00╱ // 0xbed @0xc
0x0be1…0c08 at000f = ╱ee╱ ) ╱ // 0xbf0 @0xf
0x0be1…0c08 at0010 = ╱ea╱ ; ╱ // 0xbf1 @0x10
0x0be1…0c08 at0011 = ╱46╱F╱ // 0xbf2 @0x11
0x0be1…0c08 at0012 = ╱30╱0╱ // 0xbf3 @0x12
0x0be1…0c08 at0013 = ╱f0╱ := ╱ // 0xbf4 @0x13
0x0be1…0c08 at0014 = ╱41╱A╱ // 0xbf5 @0x14
0x0be1…0c08 at0015 = ╱ed╱ ( ╱ // 0xbf6 @0x15
0x0be1…0c08 at0016 = ╱31╱1╱ // 0xbf7 @0x16
0x0be1…0c08 at0017 = ╱31╱1╱ // 0xbf8 @0x17
0x0be1…0c08 at0018 = ╱f20b00╱ // 0xbf9 @0x18
0x0be1…0c08 at001b = ╱ee╱ ) ╱ // 0xbfc @0x1b
0x0be1…0c08 at001c = ╱e7╱ * ╱ // 0xbfd @0x1c
0x0be1…0c08 at001d = ╱ed╱ ( ╱ // 0xbfe @0x1d
0x0be1…0c08 at001e = ╱33╱3╱ // 0xbff @0x1e
0x0be1…0c08 at001f = ╱30╱0╱ // 0xc00 @0x1f
0x0be1…0c08 at0020 = ╱f21e00╱ // 0xc01 @0x20
0x0be1…0c08 at0023 = ╱e8╱ / ╱ // 0xc04 @0x23
0x0be1…0c08 at0024 = ╱57╱W╱ // 0xc05 @0x24
0x0be1…0c08 at0025 = ╱ee╱ ) ╱ // 0xc06 @0x25
0x0be1…0c08 at0026 = EOL // 0xc07 @0x26
0x0be1…0c08 }
0x0c08…0c16 (40,) a204 00660 EXEC S[TKTILA
0x0c08…0c16 LineComal80 {
0x0c08…0c16 ptr = 0xa204 // 0xc08 @0x0
0x0c08…0c16 lno = 0x0294 // 0xc0a @0x2
0x0c08…0c16 at0004 = ╱9d╱ EXEC ╱ // 0xc0c @0x4
0x0c08…0c16 at0005 = ╱53╱S╱ // 0xc0d @0x5
0x0c08…0c16 at0006 = ╱5b╱[╱ // 0xc0e @0x6
0x0c08…0c16 at0007 = ╱54╱T╱ // 0xc0f @0x7
0x0c08…0c16 at0008 = ╱4b╱K╱ // 0xc10 @0x8
0x0c08…0c16 at0009 = ╱54╱T╱ // 0xc11 @0x9
0x0c08…0c16 at000a = ╱49╱I╱ // 0xc12 @0xa
0x0c08…0c16 at000b = ╱4c╱L╱ // 0xc13 @0xb
0x0c08…0c16 at000c = ╱41╱A╱ // 0xc14 @0xc
0x0c08…0c16 at000d = EOL // 0xc15 @0xd
0x0c08…0c16 }
0x0c16…0c21 a20f 00665 EXEC REGN1
0x0c16…0c21 LineComal80 {
0x0c16…0c21 ptr = 0xa20f // 0xc16 @0x0
0x0c16…0c21 lno = 0x0299 // 0xc18 @0x2
0x0c16…0c21 at0004 = ╱9d╱ EXEC ╱ // 0xc1a @0x4
0x0c16…0c21 at0005 = ╱52╱R╱ // 0xc1b @0x5
0x0c16…0c21 at0006 = ╱45╱E╱ // 0xc1c @0x6
0x0c16…0c21 at0007 = ╱47╱G╱ // 0xc1d @0x7
0x0c16…0c21 at0008 = ╱4e╱N╱ // 0xc1e @0x8
0x0c16…0c21 at0009 = ╱31╱1╱ // 0xc1f @0x9
0x0c16…0c21 at000a = EOL // 0xc20 @0xa
0x0c16…0c21 }
0x0c21…0c2c a21a 00670 EXEC TTEST
0x0c21…0c2c LineComal80 {
0x0c21…0c2c ptr = 0xa21a // 0xc21 @0x0
0x0c21…0c2c lno = 0x029e // 0xc23 @0x2
0x0c21…0c2c at0004 = ╱9d╱ EXEC ╱ // 0xc25 @0x4
0x0c21…0c2c at0005 = ╱54╱T╱ // 0xc26 @0x5
0x0c21…0c2c at0006 = ╱54╱T╱ // 0xc27 @0x6
0x0c21…0c2c at0007 = ╱45╱E╱ // 0xc28 @0x7
0x0c21…0c2c at0008 = ╱53╱S╱ // 0xc29 @0x8
0x0c21…0c2c at0009 = ╱54╱T╱ // 0xc2a @0x9
0x0c21…0c2c at000a = EOL // 0xc2b @0xa
0x0c21…0c2c }
0x0c2c…0c36 a224 00675 EXEC FEJL
0x0c2c…0c36 LineComal80 {
0x0c2c…0c36 ptr = 0xa224 // 0xc2c @0x0
0x0c2c…0c36 lno = 0x02a3 // 0xc2e @0x2
0x0c2c…0c36 at0004 = ╱9d╱ EXEC ╱ // 0xc30 @0x4
0x0c2c…0c36 at0005 = ╱46╱F╱ // 0xc31 @0x5
0x0c2c…0c36 at0006 = ╱45╱E╱ // 0xc32 @0x6
0x0c2c…0c36 at0007 = ╱4a╱J╱ // 0xc33 @0x7
0x0c2c…0c36 at0008 = ╱4c╱L╱ // 0xc34 @0x8
0x0c2c…0c36 at0009 = EOL // 0xc35 @0x9
0x0c2c…0c36 }
0x0c36…0c45 a233 00680 IF E = 1 THEN
0x0c36…0c45 LineComal80 {
0x0c36…0c45 ptr = 0xa233 // 0xc36 @0x0
0x0c36…0c45 lno = 0x02a8 // 0xc38 @0x2
0x0c36…0c45 at0004 = ╱9b0046╱ IF ╱ // 0xc3a @0x4
0x0c36…0c45 at0007 = ╱45╱E╱ // 0xc3d @0x7
0x0c36…0c45 at0008 = ╱df╱ = ╱ // 0xc3e @0x8
0x0c36…0c45 at0009 = ╱31╱1╱ // 0xc3f @0x9
0x0c36…0c45 at000a = ╱f20100╱ // 0xc40 @0xa
0x0c36…0c45 at000d = ╱b5╱ THEN ╱ // 0xc43 @0xd
0x0c36…0c45 at000e = EOL // 0xc44 @0xe
0x0c36…0c45 }
0x0c45…0c57 a245 00685 LET FE := O ; F8 := 1
0x0c45…0c57 LineComal80 {
0x0c45…0c57 ptr = 0xa245 // 0xc45 @0x0
0x0c45…0c57 lno = 0x02ad // 0xc47 @0x2
0x0c45…0c57 at0004 = ╱86╱ LET ╱ // 0xc49 @0x4
0x0c45…0c57 at0005 = ╱46╱F╱ // 0xc4a @0x5
0x0c45…0c57 at0006 = ╱45╱E╱ // 0xc4b @0x6
0x0c45…0c57 at0007 = ╱f0╱ := ╱ // 0xc4c @0x7
0x0c45…0c57 at0008 = ╱4f╱O╱ // 0xc4d @0x8
0x0c45…0c57 at0009 = ╱ea╱ ; ╱ // 0xc4e @0x9
0x0c45…0c57 at000a = ╱46╱F╱ // 0xc4f @0xa
0x0c45…0c57 at000b = ╱38╱8╱ // 0xc50 @0xb
0x0c45…0c57 at000c = ╱f0╱ := ╱ // 0xc51 @0xc
0x0c45…0c57 at000d = ╱31╱1╱ // 0xc52 @0xd
0x0c45…0c57 at000e = ╱f20100╱ // 0xc53 @0xe
0x0c45…0c57 at0011 = EOL // 0xc56 @0x11
0x0c45…0c57 }
0x0c57…0c62 a250 00690 GOTO START
0x0c57…0c62 LineComal80 {
0x0c57…0c62 ptr = 0xa250 // 0xc57 @0x0
0x0c57…0c62 lno = 0x02b2 // 0xc59 @0x2
0x0c57…0c62 at0004 = ╱81╱ GOTO ╱ // 0xc5b @0x4
0x0c57…0c62 at0005 = ╱53╱S╱ // 0xc5c @0x5
0x0c57…0c62 at0006 = ╱54╱T╱ // 0xc5d @0x6
0x0c57…0c62 at0007 = ╱41╱A╱ // 0xc5e @0x7
0x0c57…0c62 at0008 = ╱52╱R╱ // 0xc5f @0x8
0x0c57…0c62 at0009 = ╱54╱T╱ // 0xc60 @0x9
0x0c57…0c62 at000a = EOL // 0xc61 @0xa
0x0c57…0c62 }
0x0c62…0c68 a256 00695 ENDIF
0x0c62…0c68 LineComal80 {
0x0c62…0c68 ptr = 0xa256 // 0xc62 @0x0
0x0c62…0c68 lno = 0x02b7 // 0xc64 @0x2
0x0c62…0c68 at0004 = ╱9c╱ ENDIF ╱ // 0xc66 @0x4
0x0c62…0c68 at0005 = EOL // 0xc67 @0x5
0x0c62…0c68 }
0x0c68…0c76 a264 00700 IF >< 1 THEN
0x0c68…0c76 LineComal80 {
0x0c68…0c76 ptr = 0xa264 // 0xc68 @0x0
0x0c68…0c76 lno = 0x02bc // 0xc6a @0x2
0x0c68…0c76 at0004 = ╱9b0047╱ IF ╱ // 0xc6c @0x4
0x0c68…0c76 at0007 = ╱e4╱ >< ╱ // 0xc6f @0x7
0x0c68…0c76 at0008 = ╱31╱1╱ // 0xc70 @0x8
0x0c68…0c76 at0009 = ╱f20100╱ // 0xc71 @0x9
0x0c68…0c76 at000c = ╱b5╱ THEN ╱ // 0xc74 @0xc
0x0c68…0c76 at000d = EOL // 0xc75 @0xd
0x0c68…0c76 }
0x0c76…0cbe a2ac 00705 PRINT "Er…den…gifte…kvinde…tilkendt…enke-,…folke-…eller…invalidepension"
0x0c76…0cbe LineComal80 {
0x0c76…0cbe ptr = 0xa2ac // 0xc76 @0x0
0x0c76…0cbe lno = 0x02c1 // 0xc78 @0x2
0x0c76…0cbe at0004 = ╱92╱ PRINT ╱ // 0xc7a @0x4
0x0c76…0cbe at0005 = ╱22╱"╱ // 0xc7b @0x5
0x0c76…0cbe at0006 = ╱45╱E╱ // 0xc7c @0x6
0x0c76…0cbe at0007 = ╱72╱r╱ // 0xc7d @0x7
0x0c76…0cbe at0008 = ╱20╱…╱ // 0xc7e @0x8
0x0c76…0cbe at0009 = ╱64╱d╱ // 0xc7f @0x9
0x0c76…0cbe at000a = ╱65╱e╱ // 0xc80 @0xa
0x0c76…0cbe at000b = ╱6e╱n╱ // 0xc81 @0xb
0x0c76…0cbe at000c = ╱20╱…╱ // 0xc82 @0xc
0x0c76…0cbe at000d = ╱67╱g╱ // 0xc83 @0xd
0x0c76…0cbe at000e = ╱69╱i╱ // 0xc84 @0xe
0x0c76…0cbe at000f = ╱66╱f╱ // 0xc85 @0xf
0x0c76…0cbe at0010 = ╱74╱t╱ // 0xc86 @0x10
0x0c76…0cbe at0011 = ╱65╱e╱ // 0xc87 @0x11
0x0c76…0cbe at0012 = ╱20╱…╱ // 0xc88 @0x12
0x0c76…0cbe at0013 = ╱6b╱k╱ // 0xc89 @0x13
0x0c76…0cbe at0014 = ╱76╱v╱ // 0xc8a @0x14
0x0c76…0cbe at0015 = ╱69╱i╱ // 0xc8b @0x15
0x0c76…0cbe at0016 = ╱6e╱n╱ // 0xc8c @0x16
0x0c76…0cbe at0017 = ╱64╱d╱ // 0xc8d @0x17
0x0c76…0cbe at0018 = ╱65╱e╱ // 0xc8e @0x18
0x0c76…0cbe at0019 = ╱20╱…╱ // 0xc8f @0x19
0x0c76…0cbe at001a = ╱74╱t╱ // 0xc90 @0x1a
0x0c76…0cbe at001b = ╱69╱i╱ // 0xc91 @0x1b
0x0c76…0cbe at001c = ╱6c╱l╱ // 0xc92 @0x1c
0x0c76…0cbe at001d = ╱6b╱k╱ // 0xc93 @0x1d
0x0c76…0cbe at001e = ╱65╱e╱ // 0xc94 @0x1e
0x0c76…0cbe at001f = ╱6e╱n╱ // 0xc95 @0x1f
0x0c76…0cbe at0020 = ╱64╱d╱ // 0xc96 @0x20
0x0c76…0cbe at0021 = ╱74╱t╱ // 0xc97 @0x21
0x0c76…0cbe at0022 = ╱20╱…╱ // 0xc98 @0x22
0x0c76…0cbe at0023 = ╱65╱e╱ // 0xc99 @0x23
0x0c76…0cbe at0024 = ╱6e╱n╱ // 0xc9a @0x24
0x0c76…0cbe at0025 = ╱6b╱k╱ // 0xc9b @0x25
0x0c76…0cbe at0026 = ╱65╱e╱ // 0xc9c @0x26
0x0c76…0cbe at0027 = ╱2d╱-╱ // 0xc9d @0x27
0x0c76…0cbe at0028 = ╱2c╱,╱ // 0xc9e @0x28
0x0c76…0cbe at0029 = ╱20╱…╱ // 0xc9f @0x29
0x0c76…0cbe at002a = ╱66╱f╱ // 0xca0 @0x2a
0x0c76…0cbe at002b = ╱6f╱o╱ // 0xca1 @0x2b
0x0c76…0cbe at002c = ╱6c╱l╱ // 0xca2 @0x2c
0x0c76…0cbe at002d = ╱6b╱k╱ // 0xca3 @0x2d
0x0c76…0cbe at002e = ╱65╱e╱ // 0xca4 @0x2e
0x0c76…0cbe at002f = ╱2d╱-╱ // 0xca5 @0x2f
0x0c76…0cbe at0030 = ╱20╱…╱ // 0xca6 @0x30
0x0c76…0cbe at0031 = ╱65╱e╱ // 0xca7 @0x31
0x0c76…0cbe at0032 = ╱6c╱l╱ // 0xca8 @0x32
0x0c76…0cbe at0033 = ╱6c╱l╱ // 0xca9 @0x33
0x0c76…0cbe at0034 = ╱65╱e╱ // 0xcaa @0x34
0x0c76…0cbe at0035 = ╱72╱r╱ // 0xcab @0x35
0x0c76…0cbe at0036 = ╱20╱…╱ // 0xcac @0x36
0x0c76…0cbe at0037 = ╱69╱i╱ // 0xcad @0x37
0x0c76…0cbe at0038 = ╱6e╱n╱ // 0xcae @0x38
0x0c76…0cbe at0039 = ╱76╱v╱ // 0xcaf @0x39
0x0c76…0cbe at003a = ╱61╱a╱ // 0xcb0 @0x3a
0x0c76…0cbe at003b = ╱6c╱l╱ // 0xcb1 @0x3b
0x0c76…0cbe at003c = ╱69╱i╱ // 0xcb2 @0x3c
0x0c76…0cbe at003d = ╱64╱d╱ // 0xcb3 @0x3d
0x0c76…0cbe at003e = ╱65╱e╱ // 0xcb4 @0x3e
0x0c76…0cbe at003f = ╱70╱p╱ // 0xcb5 @0x3f
0x0c76…0cbe at0040 = ╱65╱e╱ // 0xcb6 @0x40
0x0c76…0cbe at0041 = ╱6e╱n╱ // 0xcb7 @0x41
0x0c76…0cbe at0042 = ╱73╱s╱ // 0xcb8 @0x42
0x0c76…0cbe at0043 = ╱69╱i╱ // 0xcb9 @0x43
0x0c76…0cbe at0044 = ╱6f╱o╱ // 0xcba @0x44
0x0c76…0cbe at0045 = ╱6e╱n╱ // 0xcbb @0x45
0x0c76…0cbe at0046 = ╱22╱"╱ // 0xcbc @0x46
0x0c76…0cbe at0047 = EOL // 0xcbd @0x47
0x0c76…0cbe }
0x0cbe…0cf4 a2e2 00710 PRINT "dvs.…har…ret…til…personfradrag…som…pensionist" ;
0x0cbe…0cf4 LineComal80 {
0x0cbe…0cf4 ptr = 0xa2e2 // 0xcbe @0x0
0x0cbe…0cf4 lno = 0x02c6 // 0xcc0 @0x2
0x0cbe…0cf4 at0004 = ╱92╱ PRINT ╱ // 0xcc2 @0x4
0x0cbe…0cf4 at0005 = ╱22╱"╱ // 0xcc3 @0x5
0x0cbe…0cf4 at0006 = ╱64╱d╱ // 0xcc4 @0x6
0x0cbe…0cf4 at0007 = ╱76╱v╱ // 0xcc5 @0x7
0x0cbe…0cf4 at0008 = ╱73╱s╱ // 0xcc6 @0x8
0x0cbe…0cf4 at0009 = ╱2e╱.╱ // 0xcc7 @0x9
0x0cbe…0cf4 at000a = ╱20╱…╱ // 0xcc8 @0xa
0x0cbe…0cf4 at000b = ╱68╱h╱ // 0xcc9 @0xb
0x0cbe…0cf4 at000c = ╱61╱a╱ // 0xcca @0xc
0x0cbe…0cf4 at000d = ╱72╱r╱ // 0xccb @0xd
0x0cbe…0cf4 at000e = ╱20╱…╱ // 0xccc @0xe
0x0cbe…0cf4 at000f = ╱72╱r╱ // 0xccd @0xf
0x0cbe…0cf4 at0010 = ╱65╱e╱ // 0xcce @0x10
0x0cbe…0cf4 at0011 = ╱74╱t╱ // 0xccf @0x11
0x0cbe…0cf4 at0012 = ╱20╱…╱ // 0xcd0 @0x12
0x0cbe…0cf4 at0013 = ╱74╱t╱ // 0xcd1 @0x13
0x0cbe…0cf4 at0014 = ╱69╱i╱ // 0xcd2 @0x14
0x0cbe…0cf4 at0015 = ╱6c╱l╱ // 0xcd3 @0x15
0x0cbe…0cf4 at0016 = ╱20╱…╱ // 0xcd4 @0x16
0x0cbe…0cf4 at0017 = ╱70╱p╱ // 0xcd5 @0x17
0x0cbe…0cf4 at0018 = ╱65╱e╱ // 0xcd6 @0x18
0x0cbe…0cf4 at0019 = ╱72╱r╱ // 0xcd7 @0x19
0x0cbe…0cf4 at001a = ╱73╱s╱ // 0xcd8 @0x1a
0x0cbe…0cf4 at001b = ╱6f╱o╱ // 0xcd9 @0x1b
0x0cbe…0cf4 at001c = ╱6e╱n╱ // 0xcda @0x1c
0x0cbe…0cf4 at001d = ╱66╱f╱ // 0xcdb @0x1d
0x0cbe…0cf4 at001e = ╱72╱r╱ // 0xcdc @0x1e
0x0cbe…0cf4 at001f = ╱61╱a╱ // 0xcdd @0x1f
0x0cbe…0cf4 at0020 = ╱64╱d╱ // 0xcde @0x20
0x0cbe…0cf4 at0021 = ╱72╱r╱ // 0xcdf @0x21
0x0cbe…0cf4 at0022 = ╱61╱a╱ // 0xce0 @0x22
0x0cbe…0cf4 at0023 = ╱67╱g╱ // 0xce1 @0x23
0x0cbe…0cf4 at0024 = ╱20╱…╱ // 0xce2 @0x24
0x0cbe…0cf4 at0025 = ╱73╱s╱ // 0xce3 @0x25
0x0cbe…0cf4 at0026 = ╱6f╱o╱ // 0xce4 @0x26
0x0cbe…0cf4 at0027 = ╱6d╱m╱ // 0xce5 @0x27
0x0cbe…0cf4 at0028 = ╱20╱…╱ // 0xce6 @0x28
0x0cbe…0cf4 at0029 = ╱70╱p╱ // 0xce7 @0x29
0x0cbe…0cf4 at002a = ╱65╱e╱ // 0xce8 @0x2a
0x0cbe…0cf4 at002b = ╱6e╱n╱ // 0xce9 @0x2b
0x0cbe…0cf4 at002c = ╱73╱s╱ // 0xcea @0x2c
0x0cbe…0cf4 at002d = ╱69╱i╱ // 0xceb @0x2d
0x0cbe…0cf4 at002e = ╱6f╱o╱ // 0xcec @0x2e
0x0cbe…0cf4 at002f = ╱6e╱n╱ // 0xced @0x2f
0x0cbe…0cf4 at0030 = ╱69╱i╱ // 0xcee @0x30
0x0cbe…0cf4 at0031 = ╱73╱s╱ // 0xcef @0x31
0x0cbe…0cf4 at0032 = ╱74╱t╱ // 0xcf0 @0x32
0x0cbe…0cf4 at0033 = ╱22╱"╱ // 0xcf1 @0x33
0x0cbe…0cf4 at0034 = ╱ea╱ ; ╱ // 0xcf2 @0x34
0x0cbe…0cf4 at0035 = EOL // 0xcf3 @0x35
0x0cbe…0cf4 }
0x0cf4…0cfe a2ec 00715 EXEC SVAR
0x0cf4…0cfe LineComal80 {
0x0cf4…0cfe ptr = 0xa2ec // 0xcf4 @0x0
0x0cf4…0cfe lno = 0x02cb // 0xcf6 @0x2
0x0cf4…0cfe at0004 = ╱9d╱ EXEC ╱ // 0xcf8 @0x4
0x0cf4…0cfe at0005 = ╱53╱S╱ // 0xcf9 @0x5
0x0cf4…0cfe at0006 = ╱56╱V╱ // 0xcfa @0x6
0x0cf4…0cfe at0007 = ╱41╱A╱ // 0xcfb @0x7
0x0cf4…0cfe at0008 = ╱52╱R╱ // 0xcfc @0x8
0x0cf4…0cfe at0009 = EOL // 0xcfd @0x9
0x0cf4…0cfe }
0x0cfe…0d08 a2f6 00720 LET T3 := O
0x0cfe…0d08 LineComal80 {
0x0cfe…0d08 ptr = 0xa2f6 // 0xcfe @0x0
0x0cfe…0d08 lno = 0x02d0 // 0xd00 @0x2
0x0cfe…0d08 at0004 = ╱86╱ LET ╱ // 0xd02 @0x4
0x0cfe…0d08 at0005 = ╱54╱T╱ // 0xd03 @0x5
0x0cfe…0d08 at0006 = ╱33╱3╱ // 0xd04 @0x6
0x0cfe…0d08 at0007 = ╱f0╱ := ╱ // 0xd05 @0x7
0x0cfe…0d08 at0008 = ╱4f╱O╱ // 0xd06 @0x8
0x0cfe…0d08 at0009 = EOL // 0xd07 @0x9
0x0cfe…0d08 }
0x0d08…0d16 a304 00725 IF $ = "j" THEN
0x0d08…0d16 LineComal80 {
0x0d08…0d16 ptr = 0xa304 // 0xd08 @0x0
0x0d08…0d16 lno = 0x02d5 // 0xd0a @0x2
0x0d08…0d16 at0004 = ╱9b0053╱ IF ╱ // 0xd0c @0x4
0x0d08…0d16 at0007 = ╱ef╱ $ ╱ // 0xd0f @0x7
0x0d08…0d16 at0008 = ╱df╱ = ╱ // 0xd10 @0x8
0x0d08…0d16 at0009 = ╱22╱"╱ // 0xd11 @0x9
0x0d08…0d16 at000a = ╱6a╱j╱ // 0xd12 @0xa
0x0d08…0d16 at000b = ╱22╱"╱ // 0xd13 @0xb
0x0d08…0d16 at000c = ╱b5╱ THEN ╱ // 0xd14 @0xc
0x0d08…0d16 at000d = EOL // 0xd15 @0xd
0x0d08…0d16 }
0x0d16…0d23 a311 00730 LET T3 := 2
0x0d16…0d23 LineComal80 {
0x0d16…0d23 ptr = 0xa311 // 0xd16 @0x0
0x0d16…0d23 lno = 0x02da // 0xd18 @0x2
0x0d16…0d23 at0004 = ╱86╱ LET ╱ // 0xd1a @0x4
0x0d16…0d23 at0005 = ╱54╱T╱ // 0xd1b @0x5
0x0d16…0d23 at0006 = ╱33╱3╱ // 0xd1c @0x6
0x0d16…0d23 at0007 = ╱f0╱ := ╱ // 0xd1d @0x7
0x0d16…0d23 at0008 = ╱32╱2╱ // 0xd1e @0x8
0x0d16…0d23 at0009 = ╱f20200╱ // 0xd1f @0x9
0x0d16…0d23 at000c = EOL // 0xd22 @0xc
0x0d16…0d23 }
0x0d23…0d68 a356 00735 PRINT "Er…den…gifte…kvinde…fyldt…67…}r…ved…indkomst}rets…begyndelse" ;
0x0d23…0d68 LineComal80 {
0x0d23…0d68 ptr = 0xa356 // 0xd23 @0x0
0x0d23…0d68 lno = 0x02df // 0xd25 @0x2
0x0d23…0d68 at0004 = ╱92╱ PRINT ╱ // 0xd27 @0x4
0x0d23…0d68 at0005 = ╱22╱"╱ // 0xd28 @0x5
0x0d23…0d68 at0006 = ╱45╱E╱ // 0xd29 @0x6
0x0d23…0d68 at0007 = ╱72╱r╱ // 0xd2a @0x7
0x0d23…0d68 at0008 = ╱20╱…╱ // 0xd2b @0x8
0x0d23…0d68 at0009 = ╱64╱d╱ // 0xd2c @0x9
0x0d23…0d68 at000a = ╱65╱e╱ // 0xd2d @0xa
0x0d23…0d68 at000b = ╱6e╱n╱ // 0xd2e @0xb
0x0d23…0d68 at000c = ╱20╱…╱ // 0xd2f @0xc
0x0d23…0d68 at000d = ╱67╱g╱ // 0xd30 @0xd
0x0d23…0d68 at000e = ╱69╱i╱ // 0xd31 @0xe
0x0d23…0d68 at000f = ╱66╱f╱ // 0xd32 @0xf
0x0d23…0d68 at0010 = ╱74╱t╱ // 0xd33 @0x10
0x0d23…0d68 at0011 = ╱65╱e╱ // 0xd34 @0x11
0x0d23…0d68 at0012 = ╱20╱…╱ // 0xd35 @0x12
0x0d23…0d68 at0013 = ╱6b╱k╱ // 0xd36 @0x13
0x0d23…0d68 at0014 = ╱76╱v╱ // 0xd37 @0x14
0x0d23…0d68 at0015 = ╱69╱i╱ // 0xd38 @0x15
0x0d23…0d68 at0016 = ╱6e╱n╱ // 0xd39 @0x16
0x0d23…0d68 at0017 = ╱64╱d╱ // 0xd3a @0x17
0x0d23…0d68 at0018 = ╱65╱e╱ // 0xd3b @0x18
0x0d23…0d68 at0019 = ╱20╱…╱ // 0xd3c @0x19
0x0d23…0d68 at001a = ╱66╱f╱ // 0xd3d @0x1a
0x0d23…0d68 at001b = ╱79╱y╱ // 0xd3e @0x1b
0x0d23…0d68 at001c = ╱6c╱l╱ // 0xd3f @0x1c
0x0d23…0d68 at001d = ╱64╱d╱ // 0xd40 @0x1d
0x0d23…0d68 at001e = ╱74╱t╱ // 0xd41 @0x1e
0x0d23…0d68 at001f = ╱20╱…╱ // 0xd42 @0x1f
0x0d23…0d68 at0020 = ╱36╱6╱ // 0xd43 @0x20
0x0d23…0d68 at0021 = ╱37╱7╱ // 0xd44 @0x21
0x0d23…0d68 at0022 = ╱20╱…╱ // 0xd45 @0x22
0x0d23…0d68 at0023 = ╱7d╱}╱ // 0xd46 @0x23
0x0d23…0d68 at0024 = ╱72╱r╱ // 0xd47 @0x24
0x0d23…0d68 at0025 = ╱20╱…╱ // 0xd48 @0x25
0x0d23…0d68 at0026 = ╱76╱v╱ // 0xd49 @0x26
0x0d23…0d68 at0027 = ╱65╱e╱ // 0xd4a @0x27
0x0d23…0d68 at0028 = ╱64╱d╱ // 0xd4b @0x28
0x0d23…0d68 at0029 = ╱20╱…╱ // 0xd4c @0x29
0x0d23…0d68 at002a = ╱69╱i╱ // 0xd4d @0x2a
0x0d23…0d68 at002b = ╱6e╱n╱ // 0xd4e @0x2b
0x0d23…0d68 at002c = ╱64╱d╱ // 0xd4f @0x2c
0x0d23…0d68 at002d = ╱6b╱k╱ // 0xd50 @0x2d
0x0d23…0d68 at002e = ╱6f╱o╱ // 0xd51 @0x2e
0x0d23…0d68 at002f = ╱6d╱m╱ // 0xd52 @0x2f
0x0d23…0d68 at0030 = ╱73╱s╱ // 0xd53 @0x30
0x0d23…0d68 at0031 = ╱74╱t╱ // 0xd54 @0x31
0x0d23…0d68 at0032 = ╱7d╱}╱ // 0xd55 @0x32
0x0d23…0d68 at0033 = ╱72╱r╱ // 0xd56 @0x33
0x0d23…0d68 at0034 = ╱65╱e╱ // 0xd57 @0x34
0x0d23…0d68 at0035 = ╱74╱t╱ // 0xd58 @0x35
0x0d23…0d68 at0036 = ╱73╱s╱ // 0xd59 @0x36
0x0d23…0d68 at0037 = ╱20╱…╱ // 0xd5a @0x37
0x0d23…0d68 at0038 = ╱62╱b╱ // 0xd5b @0x38
0x0d23…0d68 at0039 = ╱65╱e╱ // 0xd5c @0x39
0x0d23…0d68 at003a = ╱67╱g╱ // 0xd5d @0x3a
0x0d23…0d68 at003b = ╱79╱y╱ // 0xd5e @0x3b
0x0d23…0d68 at003c = ╱6e╱n╱ // 0xd5f @0x3c
0x0d23…0d68 at003d = ╱64╱d╱ // 0xd60 @0x3d
0x0d23…0d68 at003e = ╱65╱e╱ // 0xd61 @0x3e
0x0d23…0d68 at003f = ╱6c╱l╱ // 0xd62 @0x3f
0x0d23…0d68 at0040 = ╱73╱s╱ // 0xd63 @0x40
0x0d23…0d68 at0041 = ╱65╱e╱ // 0xd64 @0x41
0x0d23…0d68 at0042 = ╱22╱"╱ // 0xd65 @0x42
0x0d23…0d68 at0043 = ╱ea╱ ; ╱ // 0xd66 @0x43
0x0d23…0d68 at0044 = EOL // 0xd67 @0x44
0x0d23…0d68 }
0x0d68…0d72 a360 00740 EXEC SVAR
0x0d68…0d72 LineComal80 {
0x0d68…0d72 ptr = 0xa360 // 0xd68 @0x0
0x0d68…0d72 lno = 0x02e4 // 0xd6a @0x2
0x0d68…0d72 at0004 = ╱9d╱ EXEC ╱ // 0xd6c @0x4
0x0d68…0d72 at0005 = ╱53╱S╱ // 0xd6d @0x5
0x0d68…0d72 at0006 = ╱56╱V╱ // 0xd6e @0x6
0x0d68…0d72 at0007 = ╱41╱A╱ // 0xd6f @0x7
0x0d68…0d72 at0008 = ╱52╱R╱ // 0xd70 @0x8
0x0d68…0d72 at0009 = EOL // 0xd71 @0x9
0x0d68…0d72 }
0x0d72…0d88 a376 00745 IF S $ = "j" THEN LET T3 := 1
0x0d72…0d88 LineComal80 {
0x0d72…0d88 ptr = 0xa376 // 0xd72 @0x0
0x0d72…0d88 lno = 0x02e9 // 0xd74 @0x2
0x0d72…0d88 at0004 = ╱8200╱ IF ╱ // 0xd76 @0x4
0x0d72…0d88 at0006 = ╱53╱S╱ // 0xd78 @0x6
0x0d72…0d88 at0007 = ╱ef╱ $ ╱ // 0xd79 @0x7
0x0d72…0d88 at0008 = ╱df╱ = ╱ // 0xd7a @0x8
0x0d72…0d88 at0009 = ╱22╱"╱ // 0xd7b @0x9
0x0d72…0d88 at000a = ╱6a╱j╱ // 0xd7c @0xa
0x0d72…0d88 at000b = ╱22╱"╱ // 0xd7d @0xb
0x0d72…0d88 at000c = ╱b5╱ THEN ╱ // 0xd7e @0xc
0x0d72…0d88 at000d = ╱86╱ LET ╱ // 0xd7f @0xd
0x0d72…0d88 at000e = ╱54╱T╱ // 0xd80 @0xe
0x0d72…0d88 at000f = ╱33╱3╱ // 0xd81 @0xf
0x0d72…0d88 at0010 = ╱f0╱ := ╱ // 0xd82 @0x10
0x0d72…0d88 at0011 = ╱31╱1╱ // 0xd83 @0x11
0x0d72…0d88 at0012 = ╱f20100╱ // 0xd84 @0x12
0x0d72…0d88 at0015 = EOL // 0xd87 @0x15
0x0d72…0d88 }
0x0d88…0d8e a37c 00750 ENDIF
0x0d88…0d8e LineComal80 {
0x0d88…0d8e ptr = 0xa37c // 0xd88 @0x0
0x0d88…0d8e lno = 0x02ee // 0xd8a @0x2
0x0d88…0d8e at0004 = ╱9c╱ ENDIF ╱ // 0xd8c @0x4
0x0d88…0d8e at0005 = EOL // 0xd8d @0x5
0x0d88…0d8e }
0x0d8e…0d94 a382 00755 ENDIF
0x0d8e…0d94 LineComal80 {
0x0d8e…0d94 ptr = 0xa382 // 0xd8e @0x0
0x0d8e…0d94 lno = 0x02f3 // 0xd90 @0x2
0x0d8e…0d94 at0004 = ╱9c╱ ENDIF ╱ // 0xd92 @0x4
0x0d8e…0d94 at0005 = EOL // 0xd93 @0x5
0x0d8e…0d94 }
0x0d94…0da3 a391 00760 IF 3 = 1 THEN
0x0d94…0da3 LineComal80 {
0x0d94…0da3 ptr = 0xa391 // 0xd94 @0x0
0x0d94…0da3 lno = 0x02f8 // 0xd96 @0x2
0x0d94…0da3 at0004 = ╱9b0054╱ IF ╱ // 0xd98 @0x4
0x0d94…0da3 at0007 = ╱33╱3╱ // 0xd9b @0x7
0x0d94…0da3 at0008 = ╱df╱ = ╱ // 0xd9c @0x8
0x0d94…0da3 at0009 = ╱31╱1╱ // 0xd9d @0x9
0x0d94…0da3 at000a = ╱f20100╱ // 0xd9e @0xa
0x0d94…0da3 at000d = ╱b5╱ THEN ╱ // 0xda1 @0xd
0x0d94…0da3 at000e = EOL // 0xda2 @0xe
0x0d94…0da3 }
0x0da3…0dba a3a8 00765 IF G = 1 THEN LET ATP := BATP
0x0da3…0dba LineComal80 {
0x0da3…0dba ptr = 0xa3a8 // 0xda3 @0x0
0x0da3…0dba lno = 0x02fd // 0xda5 @0x2
0x0da3…0dba at0004 = ╱8200╱ IF ╱ // 0xda7 @0x4
0x0da3…0dba at0006 = ╱47╱G╱ // 0xda9 @0x6
0x0da3…0dba at0007 = ╱df╱ = ╱ // 0xdaa @0x7
0x0da3…0dba at0008 = ╱31╱1╱ // 0xdab @0x8
0x0da3…0dba at0009 = ╱f20100╱ // 0xdac @0x9
0x0da3…0dba at000c = ╱b5╱ THEN ╱ // 0xdaf @0xc
0x0da3…0dba at000d = ╱86╱ LET ╱ // 0xdb0 @0xd
0x0da3…0dba at000e = ╱41╱A╱ // 0xdb1 @0xe
0x0da3…0dba at000f = ╱54╱T╱ // 0xdb2 @0xf
0x0da3…0dba at0010 = ╱50╱P╱ // 0xdb3 @0x10
0x0da3…0dba at0011 = ╱f0╱ := ╱ // 0xdb4 @0x11
0x0da3…0dba at0012 = ╱42╱B╱ // 0xdb5 @0x12
0x0da3…0dba at0013 = ╱41╱A╱ // 0xdb6 @0x13
0x0da3…0dba at0014 = ╱54╱T╱ // 0xdb7 @0x14
0x0da3…0dba at0015 = ╱50╱P╱ // 0xdb8 @0x15
0x0da3…0dba at0016 = EOL // 0xdb9 @0x16
0x0da3…0dba }
0x0dba…0dc6 a3b4 00770 EXEC INDATP
0x0dba…0dc6 LineComal80 {
0x0dba…0dc6 ptr = 0xa3b4 // 0xdba @0x0
0x0dba…0dc6 lno = 0x0302 // 0xdbc @0x2
0x0dba…0dc6 at0004 = ╱9d╱ EXEC ╱ // 0xdbe @0x4
0x0dba…0dc6 at0005 = ╱49╱I╱ // 0xdbf @0x5
0x0dba…0dc6 at0006 = ╱4e╱N╱ // 0xdc0 @0x6
0x0dba…0dc6 at0007 = ╱44╱D╱ // 0xdc1 @0x7
0x0dba…0dc6 at0008 = ╱41╱A╱ // 0xdc2 @0x8
0x0dba…0dc6 at0009 = ╱54╱T╱ // 0xdc3 @0x9
0x0dba…0dc6 at000a = ╱50╱P╱ // 0xdc4 @0xa
0x0dba…0dc6 at000b = EOL // 0xdc5 @0xb
0x0dba…0dc6 }
0x0dc6…0dde a3cc 00775 LET BC3 := C3 + C5 ; BATP := ATP
0x0dc6…0dde LineComal80 {
0x0dc6…0dde ptr = 0xa3cc // 0xdc6 @0x0
0x0dc6…0dde lno = 0x0307 // 0xdc8 @0x2
0x0dc6…0dde at0004 = ╱86╱ LET ╱ // 0xdca @0x4
0x0dc6…0dde at0005 = ╱42╱B╱ // 0xdcb @0x5
0x0dc6…0dde at0006 = ╱43╱C╱ // 0xdcc @0x6
0x0dc6…0dde at0007 = ╱33╱3╱ // 0xdcd @0x7
0x0dc6…0dde at0008 = ╱f0╱ := ╱ // 0xdce @0x8
0x0dc6…0dde at0009 = ╱43╱C╱ // 0xdcf @0x9
0x0dc6…0dde at000a = ╱33╱3╱ // 0xdd0 @0xa
0x0dc6…0dde at000b = ╱e5╱ + ╱ // 0xdd1 @0xb
0x0dc6…0dde at000c = ╱43╱C╱ // 0xdd2 @0xc
0x0dc6…0dde at000d = ╱35╱5╱ // 0xdd3 @0xd
0x0dc6…0dde at000e = ╱ea╱ ; ╱ // 0xdd4 @0xe
0x0dc6…0dde at000f = ╱42╱B╱ // 0xdd5 @0xf
0x0dc6…0dde at0010 = ╱41╱A╱ // 0xdd6 @0x10
0x0dc6…0dde at0011 = ╱54╱T╱ // 0xdd7 @0x11
0x0dc6…0dde at0012 = ╱50╱P╱ // 0xdd8 @0x12
0x0dc6…0dde at0013 = ╱f0╱ := ╱ // 0xdd9 @0x13
0x0dc6…0dde at0014 = ╱41╱A╱ // 0xdda @0x14
0x0dc6…0dde at0015 = ╱54╱T╱ // 0xddb @0x15
0x0dc6…0dde at0016 = ╱50╱P╱ // 0xddc @0x16
0x0dc6…0dde at0017 = EOL // 0xddd @0x17
0x0dc6…0dde }
0x0dde…0de4 a3d2 00780 ENDIF
0x0dde…0de4 LineComal80 {
0x0dde…0de4 ptr = 0xa3d2 // 0xdde @0x0
0x0dde…0de4 lno = 0x030c // 0xde0 @0x2
0x0dde…0de4 at0004 = ╱9c╱ ENDIF ╱ // 0xde2 @0x4
0x0dde…0de4 at0005 = EOL // 0xde3 @0x5
0x0dde…0de4 }
0x0de4…0e0b a3f9 00785 LET B3 := A ( 1 ) ; B4 := C1 ; B5 := C2 ; C6 := C7 ; PR := O
0x0de4…0e0b LineComal80 {
0x0de4…0e0b ptr = 0xa3f9 // 0xde4 @0x0
0x0de4…0e0b lno = 0x0311 // 0xde6 @0x2
0x0de4…0e0b at0004 = ╱86╱ LET ╱ // 0xde8 @0x4
0x0de4…0e0b at0005 = ╱42╱B╱ // 0xde9 @0x5
0x0de4…0e0b at0006 = ╱33╱3╱ // 0xdea @0x6
0x0de4…0e0b at0007 = ╱f0╱ := ╱ // 0xdeb @0x7
0x0de4…0e0b at0008 = ╱41╱A╱ // 0xdec @0x8
0x0de4…0e0b at0009 = ╱ed╱ ( ╱ // 0xded @0x9
0x0de4…0e0b at000a = ╱31╱1╱ // 0xdee @0xa
0x0de4…0e0b at000b = ╱f20100╱ // 0xdef @0xb
0x0de4…0e0b at000e = ╱ee╱ ) ╱ // 0xdf2 @0xe
0x0de4…0e0b at000f = ╱ea╱ ; ╱ // 0xdf3 @0xf
0x0de4…0e0b at0010 = ╱42╱B╱ // 0xdf4 @0x10
0x0de4…0e0b at0011 = ╱34╱4╱ // 0xdf5 @0x11
0x0de4…0e0b at0012 = ╱f0╱ := ╱ // 0xdf6 @0x12
0x0de4…0e0b at0013 = ╱43╱C╱ // 0xdf7 @0x13
0x0de4…0e0b at0014 = ╱31╱1╱ // 0xdf8 @0x14
0x0de4…0e0b at0015 = ╱ea╱ ; ╱ // 0xdf9 @0x15
0x0de4…0e0b at0016 = ╱42╱B╱ // 0xdfa @0x16
0x0de4…0e0b at0017 = ╱35╱5╱ // 0xdfb @0x17
0x0de4…0e0b at0018 = ╱f0╱ := ╱ // 0xdfc @0x18
0x0de4…0e0b at0019 = ╱43╱C╱ // 0xdfd @0x19
0x0de4…0e0b at001a = ╱32╱2╱ // 0xdfe @0x1a
0x0de4…0e0b at001b = ╱ea╱ ; ╱ // 0xdff @0x1b
0x0de4…0e0b at001c = ╱43╱C╱ // 0xe00 @0x1c
0x0de4…0e0b at001d = ╱36╱6╱ // 0xe01 @0x1d
0x0de4…0e0b at001e = ╱f0╱ := ╱ // 0xe02 @0x1e
0x0de4…0e0b at001f = ╱43╱C╱ // 0xe03 @0x1f
0x0de4…0e0b at0020 = ╱37╱7╱ // 0xe04 @0x20
0x0de4…0e0b at0021 = ╱ea╱ ; ╱ // 0xe05 @0x21
0x0de4…0e0b at0022 = ╱50╱P╱ // 0xe06 @0x22
0x0de4…0e0b at0023 = ╱52╱R╱ // 0xe07 @0x23
0x0de4…0e0b at0024 = ╱f0╱ := ╱ // 0xe08 @0x24
0x0de4…0e0b at0025 = ╱4f╱O╱ // 0xe09 @0x25
0x0de4…0e0b at0026 = EOL // 0xe0a @0x26
0x0de4…0e0b }
0x0e0b…0e1c a40a 00790 IF C6 < O THEN LET C6 := O
0x0e0b…0e1c LineComal80 {
0x0e0b…0e1c ptr = 0xa40a // 0xe0b @0x0
0x0e0b…0e1c lno = 0x0316 // 0xe0d @0x2
0x0e0b…0e1c at0004 = ╱8200╱ IF ╱ // 0xe0f @0x4
0x0e0b…0e1c at0006 = ╱43╱C╱ // 0xe11 @0x6
0x0e0b…0e1c at0007 = ╱36╱6╱ // 0xe12 @0x7
0x0e0b…0e1c at0008 = ╱e0╱ < ╱ // 0xe13 @0x8
0x0e0b…0e1c at0009 = ╱4f╱O╱ // 0xe14 @0x9
0x0e0b…0e1c at000a = ╱b5╱ THEN ╱ // 0xe15 @0xa
0x0e0b…0e1c at000b = ╱86╱ LET ╱ // 0xe16 @0xb
0x0e0b…0e1c at000c = ╱43╱C╱ // 0xe17 @0xc
0x0e0b…0e1c at000d = ╱36╱6╱ // 0xe18 @0xd
0x0e0b…0e1c at000e = ╱f0╱ := ╱ // 0xe19 @0xe
0x0e0b…0e1c at000f = ╱4f╱O╱ // 0xe1a @0xf
0x0e0b…0e1c at0010 = EOL // 0xe1b @0x10
0x0e0b…0e1c }
0x0e1c…0e26 a414 00795 LET C3 := O
0x0e1c…0e26 LineComal80 {
0x0e1c…0e26 ptr = 0xa414 // 0xe1c @0x0
0x0e1c…0e26 lno = 0x031b // 0xe1e @0x2
0x0e1c…0e26 at0004 = ╱86╱ LET ╱ // 0xe20 @0x4
0x0e1c…0e26 at0005 = ╱43╱C╱ // 0xe21 @0x5
0x0e1c…0e26 at0006 = ╱33╱3╱ // 0xe22 @0x6
0x0e1c…0e26 at0007 = ╱f0╱ := ╱ // 0xe23 @0x7
0x0e1c…0e26 at0008 = ╱4f╱O╱ // 0xe24 @0x8
0x0e1c…0e26 at0009 = EOL // 0xe25 @0x9
0x0e1c…0e26 }
0x0e26…0e3c a42a 00800 IF T3 = 1 THEN LET C3 := BC3
0x0e26…0e3c LineComal80 {
0x0e26…0e3c ptr = 0xa42a // 0xe26 @0x0
0x0e26…0e3c lno = 0x0320 // 0xe28 @0x2
0x0e26…0e3c at0004 = ╱8200╱ IF ╱ // 0xe2a @0x4
0x0e26…0e3c at0006 = ╱54╱T╱ // 0xe2c @0x6
0x0e26…0e3c at0007 = ╱33╱3╱ // 0xe2d @0x7
0x0e26…0e3c at0008 = ╱df╱ = ╱ // 0xe2e @0x8
0x0e26…0e3c at0009 = ╱31╱1╱ // 0xe2f @0x9
0x0e26…0e3c at000a = ╱f20100╱ // 0xe30 @0xa
0x0e26…0e3c at000d = ╱b5╱ THEN ╱ // 0xe33 @0xd
0x0e26…0e3c at000e = ╱86╱ LET ╱ // 0xe34 @0xe
0x0e26…0e3c at000f = ╱43╱C╱ // 0xe35 @0xf
0x0e26…0e3c at0010 = ╱33╱3╱ // 0xe36 @0x10
0x0e26…0e3c at0011 = ╱f0╱ := ╱ // 0xe37 @0x11
0x0e26…0e3c at0012 = ╱42╱B╱ // 0xe38 @0x12
0x0e26…0e3c at0013 = ╱43╱C╱ // 0xe39 @0x13
0x0e26…0e3c at0014 = ╱33╱3╱ // 0xe3a @0x14
0x0e26…0e3c at0015 = EOL // 0xe3b @0x15
0x0e26…0e3c }
0x0e3c…0e49 a437 00805 EXEC SKATIND
0x0e3c…0e49 LineComal80 {
0x0e3c…0e49 ptr = 0xa437 // 0xe3c @0x0
0x0e3c…0e49 lno = 0x0325 // 0xe3e @0x2
0x0e3c…0e49 at0004 = ╱9d╱ EXEC ╱ // 0xe40 @0x4
0x0e3c…0e49 at0005 = ╱53╱S╱ // 0xe41 @0x5
0x0e3c…0e49 at0006 = ╱4b╱K╱ // 0xe42 @0x6
0x0e3c…0e49 at0007 = ╱41╱A╱ // 0xe43 @0x7
0x0e3c…0e49 at0008 = ╱54╱T╱ // 0xe44 @0x8
0x0e3c…0e49 at0009 = ╱49╱I╱ // 0xe45 @0x9
0x0e3c…0e49 at000a = ╱4e╱N╱ // 0xe46 @0xa
0x0e3c…0e49 at000b = ╱44╱D╱ // 0xe47 @0xb
0x0e3c…0e49 at000c = EOL // 0xe48 @0xc
0x0e3c…0e49 }
0x0e49…0e4f a43d 00810 PRINT
0x0e49…0e4f LineComal80 {
0x0e49…0e4f ptr = 0xa43d // 0xe49 @0x0
0x0e49…0e4f lno = 0x032a // 0xe4b @0x2
0x0e49…0e4f at0004 = ╱92╱ PRINT ╱ // 0xe4d @0x4
0x0e49…0e4f at0005 = EOL // 0xe4e @0x5
0x0e49…0e4f }
0x0e4f…0e78 a466 00815 PRINT "\nskes…rettelser…til…ovenst}ende" ;
0x0e4f…0e78 LineComal80 {
0x0e4f…0e78 ptr = 0xa466 // 0xe4f @0x0
0x0e4f…0e78 lno = 0x032f // 0xe51 @0x2
0x0e4f…0e78 at0004 = ╱92╱ PRINT ╱ // 0xe53 @0x4
0x0e4f…0e78 at0005 = ╱22╱"╱ // 0xe54 @0x5
0x0e4f…0e78 at0006 = ╱5c╱\╱ // 0xe55 @0x6
0x0e4f…0e78 at0007 = ╱6e╱n╱ // 0xe56 @0x7
0x0e4f…0e78 at0008 = ╱73╱s╱ // 0xe57 @0x8
0x0e4f…0e78 at0009 = ╱6b╱k╱ // 0xe58 @0x9
0x0e4f…0e78 at000a = ╱65╱e╱ // 0xe59 @0xa
0x0e4f…0e78 at000b = ╱73╱s╱ // 0xe5a @0xb
0x0e4f…0e78 at000c = ╱20╱…╱ // 0xe5b @0xc
0x0e4f…0e78 at000d = ╱72╱r╱ // 0xe5c @0xd
0x0e4f…0e78 at000e = ╱65╱e╱ // 0xe5d @0xe
0x0e4f…0e78 at000f = ╱74╱t╱ // 0xe5e @0xf
0x0e4f…0e78 at0010 = ╱74╱t╱ // 0xe5f @0x10
0x0e4f…0e78 at0011 = ╱65╱e╱ // 0xe60 @0x11
0x0e4f…0e78 at0012 = ╱6c╱l╱ // 0xe61 @0x12
0x0e4f…0e78 at0013 = ╱73╱s╱ // 0xe62 @0x13
0x0e4f…0e78 at0014 = ╱65╱e╱ // 0xe63 @0x14
0x0e4f…0e78 at0015 = ╱72╱r╱ // 0xe64 @0x15
0x0e4f…0e78 at0016 = ╱20╱…╱ // 0xe65 @0x16
0x0e4f…0e78 at0017 = ╱74╱t╱ // 0xe66 @0x17
0x0e4f…0e78 at0018 = ╱69╱i╱ // 0xe67 @0x18
0x0e4f…0e78 at0019 = ╱6c╱l╱ // 0xe68 @0x19
0x0e4f…0e78 at001a = ╱20╱…╱ // 0xe69 @0x1a
0x0e4f…0e78 at001b = ╱6f╱o╱ // 0xe6a @0x1b
0x0e4f…0e78 at001c = ╱76╱v╱ // 0xe6b @0x1c
0x0e4f…0e78 at001d = ╱65╱e╱ // 0xe6c @0x1d
0x0e4f…0e78 at001e = ╱6e╱n╱ // 0xe6d @0x1e
0x0e4f…0e78 at001f = ╱73╱s╱ // 0xe6e @0x1f
0x0e4f…0e78 at0020 = ╱74╱t╱ // 0xe6f @0x20
0x0e4f…0e78 at0021 = ╱7d╱}╱ // 0xe70 @0x21
0x0e4f…0e78 at0022 = ╱65╱e╱ // 0xe71 @0x22
0x0e4f…0e78 at0023 = ╱6e╱n╱ // 0xe72 @0x23
0x0e4f…0e78 at0024 = ╱64╱d╱ // 0xe73 @0x24
0x0e4f…0e78 at0025 = ╱65╱e╱ // 0xe74 @0x25
0x0e4f…0e78 at0026 = ╱22╱"╱ // 0xe75 @0x26
0x0e4f…0e78 at0027 = ╱ea╱ ; ╱ // 0xe76 @0x27
0x0e4f…0e78 at0028 = EOL // 0xe77 @0x28
0x0e4f…0e78 }
0x0e78…0e82 a470 00820 EXEC SVAR
0x0e78…0e82 LineComal80 {
0x0e78…0e82 ptr = 0xa470 // 0xe78 @0x0
0x0e78…0e82 lno = 0x0334 // 0xe7a @0x2
0x0e78…0e82 at0004 = ╱9d╱ EXEC ╱ // 0xe7c @0x4
0x0e78…0e82 at0005 = ╱53╱S╱ // 0xe7d @0x5
0x0e78…0e82 at0006 = ╱56╱V╱ // 0xe7e @0x6
0x0e78…0e82 at0007 = ╱41╱A╱ // 0xe7f @0x7
0x0e78…0e82 at0008 = ╱52╱R╱ // 0xe80 @0x8
0x0e78…0e82 at0009 = EOL // 0xe81 @0x9
0x0e78…0e82 }
0x0e82…0e88 a476 00825 CLEAR
0x0e82…0e88 LineComal80 {
0x0e82…0e88 ptr = 0xa476 // 0xe82 @0x0
0x0e82…0e88 lno = 0x0339 // 0xe84 @0x2
0x0e82…0e88 at0004 = ╱a0╱ CLEAR ╱ // 0xe86 @0x4
0x0e82…0e88 at0005 = EOL // 0xe87 @0x5
0x0e82…0e88 }
0x0e88…0e94 a482 00830 UNTIL S $ = "n"
0x0e88…0e94 LineComal80 {
0x0e88…0e94 ptr = 0xa482 // 0xe88 @0x0
0x0e88…0e94 lno = 0x033e // 0xe8a @0x2
0x0e88…0e94 at0004 = ╱98╱ UNTIL ╱ // 0xe8c @0x4
0x0e88…0e94 at0005 = ╱53╱S╱ // 0xe8d @0x5
0x0e88…0e94 at0006 = ╱ef╱ $ ╱ // 0xe8e @0x6
0x0e88…0e94 at0007 = ╱df╱ = ╱ // 0xe8f @0x7
0x0e88…0e94 at0008 = ╱22╱"╱ // 0xe90 @0x8
0x0e88…0e94 at0009 = ╱6e╱n╱ // 0xe91 @0x9
0x0e88…0e94 at000a = ╱22╱"╱ // 0xe92 @0xa
0x0e88…0e94 at000b = EOL // 0xe93 @0xb
0x0e88…0e94 }
0x0e94…0e9a a488 00835 ENDIF
0x0e94…0e9a LineComal80 {
0x0e94…0e9a ptr = 0xa488 // 0xe94 @0x0
0x0e94…0e9a lno = 0x0343 // 0xe96 @0x2
0x0e94…0e9a at0004 = ╱9c╱ ENDIF ╱ // 0xe98 @0x4
0x0e94…0e9a at0005 = EOL // 0xe99 @0x5
0x0e94…0e9a }
0x0e9a…0eab a499 00840 IF C4 < O THEN LET C4 := O
0x0e9a…0eab LineComal80 {
0x0e9a…0eab ptr = 0xa499 // 0xe9a @0x0
0x0e9a…0eab lno = 0x0348 // 0xe9c @0x2
0x0e9a…0eab at0004 = ╱8200╱ IF ╱ // 0xe9e @0x4
0x0e9a…0eab at0006 = ╱43╱C╱ // 0xea0 @0x6
0x0e9a…0eab at0007 = ╱34╱4╱ // 0xea1 @0x7
0x0e9a…0eab at0008 = ╱e0╱ < ╱ // 0xea2 @0x8
0x0e9a…0eab at0009 = ╱4f╱O╱ // 0xea3 @0x9
0x0e9a…0eab at000a = ╱b5╱ THEN ╱ // 0xea4 @0xa
0x0e9a…0eab at000b = ╱86╱ LET ╱ // 0xea5 @0xb
0x0e9a…0eab at000c = ╱43╱C╱ // 0xea6 @0xc
0x0e9a…0eab at000d = ╱34╱4╱ // 0xea7 @0xd
0x0e9a…0eab at000e = ╱f0╱ := ╱ // 0xea8 @0xe
0x0e9a…0eab at000f = ╱4f╱O╱ // 0xea9 @0xf
0x0e9a…0eab at0010 = EOL // 0xeaa @0x10
0x0e9a…0eab }
0x0eab…0ebe a4ac 00845 IF T2 = O THEN EXEC FORMUE
0x0eab…0ebe LineComal80 {
0x0eab…0ebe ptr = 0xa4ac // 0xeab @0x0
0x0eab…0ebe lno = 0x034d // 0xead @0x2
0x0eab…0ebe at0004 = ╱8200╱ IF ╱ // 0xeaf @0x4
0x0eab…0ebe at0006 = ╱54╱T╱ // 0xeb1 @0x6
0x0eab…0ebe at0007 = ╱32╱2╱ // 0xeb2 @0x7
0x0eab…0ebe at0008 = ╱df╱ = ╱ // 0xeb3 @0x8
0x0eab…0ebe at0009 = ╱4f╱O╱ // 0xeb4 @0x9
0x0eab…0ebe at000a = ╱b5╱ THEN ╱ // 0xeb5 @0xa
0x0eab…0ebe at000b = ╱9d╱ EXEC ╱ // 0xeb6 @0xb
0x0eab…0ebe at000c = ╱46╱F╱ // 0xeb7 @0xc
0x0eab…0ebe at000d = ╱4f╱O╱ // 0xeb8 @0xd
0x0eab…0ebe at000e = ╱52╱R╱ // 0xeb9 @0xe
0x0eab…0ebe at000f = ╱4d╱M╱ // 0xeba @0xf
0x0eab…0ebe at0010 = ╱55╱U╱ // 0xebb @0x10
0x0eab…0ebe at0011 = ╱45╱E╱ // 0xebc @0x11
0x0eab…0ebe at0012 = EOL // 0xebd @0x12
0x0eab…0ebe }
0x0ebe…0ed2 a4c0 00850 IF T2 >< O THEN EXEC [FORMUE
0x0ebe…0ed2 LineComal80 {
0x0ebe…0ed2 ptr = 0xa4c0 // 0xebe @0x0
0x0ebe…0ed2 lno = 0x0352 // 0xec0 @0x2
0x0ebe…0ed2 at0004 = ╱8200╱ IF ╱ // 0xec2 @0x4
0x0ebe…0ed2 at0006 = ╱54╱T╱ // 0xec4 @0x6
0x0ebe…0ed2 at0007 = ╱32╱2╱ // 0xec5 @0x7
0x0ebe…0ed2 at0008 = ╱e4╱ >< ╱ // 0xec6 @0x8
0x0ebe…0ed2 at0009 = ╱4f╱O╱ // 0xec7 @0x9
0x0ebe…0ed2 at000a = ╱b5╱ THEN ╱ // 0xec8 @0xa
0x0ebe…0ed2 at000b = ╱9d╱ EXEC ╱ // 0xec9 @0xb
0x0ebe…0ed2 at000c = ╱5b╱[╱ // 0xeca @0xc
0x0ebe…0ed2 at000d = ╱46╱F╱ // 0xecb @0xd
0x0ebe…0ed2 at000e = ╱4f╱O╱ // 0xecc @0xe
0x0ebe…0ed2 at000f = ╱52╱R╱ // 0xecd @0xf
0x0ebe…0ed2 at0010 = ╱4d╱M╱ // 0xece @0x10
0x0ebe…0ed2 at0011 = ╱55╱U╱ // 0xecf @0x11
0x0ebe…0ed2 at0012 = ╱45╱E╱ // 0xed0 @0x12
0x0ebe…0ed2 at0013 = EOL // 0xed1 @0x13
0x0ebe…0ed2 }
0x0ed2…0ee0 a4ce 00855 IF >< 1 THEN
0x0ed2…0ee0 LineComal80 {
0x0ed2…0ee0 ptr = 0xa4ce // 0xed2 @0x0
0x0ed2…0ee0 lno = 0x0357 // 0xed4 @0x2
0x0ed2…0ee0 at0004 = ╱9b0047╱ IF ╱ // 0xed6 @0x4
0x0ed2…0ee0 at0007 = ╱e4╱ >< ╱ // 0xed9 @0x7
0x0ed2…0ee0 at0008 = ╱31╱1╱ // 0xeda @0x8
0x0ed2…0ee0 at0009 = ╱f20100╱ // 0xedb @0x9
0x0ed2…0ee0 at000c = ╱b5╱ THEN ╱ // 0xede @0xc
0x0ed2…0ee0 at000d = EOL // 0xedf @0xd
0x0ed2…0ee0 }
0x0ee0…0f07 a4f5 00860 INPUT "Skriv…kommuneskatteprocent:…" : P7
0x0ee0…0f07 LineComal80 {
0x0ee0…0f07 ptr = 0xa4f5 // 0xee0 @0x0
0x0ee0…0f07 lno = 0x035c // 0xee2 @0x2
0x0ee0…0f07 at0004 = ╱91╱ INPUT ╱ // 0xee4 @0x4
0x0ee0…0f07 at0005 = ╱22╱"╱ // 0xee5 @0x5
0x0ee0…0f07 at0006 = ╱53╱S╱ // 0xee6 @0x6
0x0ee0…0f07 at0007 = ╱6b╱k╱ // 0xee7 @0x7
0x0ee0…0f07 at0008 = ╱72╱r╱ // 0xee8 @0x8
0x0ee0…0f07 at0009 = ╱69╱i╱ // 0xee9 @0x9
0x0ee0…0f07 at000a = ╱76╱v╱ // 0xeea @0xa
0x0ee0…0f07 at000b = ╱20╱…╱ // 0xeeb @0xb
0x0ee0…0f07 at000c = ╱6b╱k╱ // 0xeec @0xc
0x0ee0…0f07 at000d = ╱6f╱o╱ // 0xeed @0xd
0x0ee0…0f07 at000e = ╱6d╱m╱ // 0xeee @0xe
0x0ee0…0f07 at000f = ╱6d╱m╱ // 0xeef @0xf
0x0ee0…0f07 at0010 = ╱75╱u╱ // 0xef0 @0x10
0x0ee0…0f07 at0011 = ╱6e╱n╱ // 0xef1 @0x11
0x0ee0…0f07 at0012 = ╱65╱e╱ // 0xef2 @0x12
0x0ee0…0f07 at0013 = ╱73╱s╱ // 0xef3 @0x13
0x0ee0…0f07 at0014 = ╱6b╱k╱ // 0xef4 @0x14
0x0ee0…0f07 at0015 = ╱61╱a╱ // 0xef5 @0x15
0x0ee0…0f07 at0016 = ╱74╱t╱ // 0xef6 @0x16
0x0ee0…0f07 at0017 = ╱74╱t╱ // 0xef7 @0x17
0x0ee0…0f07 at0018 = ╱65╱e╱ // 0xef8 @0x18
0x0ee0…0f07 at0019 = ╱70╱p╱ // 0xef9 @0x19
0x0ee0…0f07 at001a = ╱72╱r╱ // 0xefa @0x1a
0x0ee0…0f07 at001b = ╱6f╱o╱ // 0xefb @0x1b
0x0ee0…0f07 at001c = ╱63╱c╱ // 0xefc @0x1c
0x0ee0…0f07 at001d = ╱65╱e╱ // 0xefd @0x1d
0x0ee0…0f07 at001e = ╱6e╱n╱ // 0xefe @0x1e
0x0ee0…0f07 at001f = ╱74╱t╱ // 0xeff @0x1f
0x0ee0…0f07 at0020 = ╱3a╱:╱ // 0xf00 @0x20
0x0ee0…0f07 at0021 = ╱20╱…╱ // 0xf01 @0x21
0x0ee0…0f07 at0022 = ╱22╱"╱ // 0xf02 @0x22
0x0ee0…0f07 at0023 = ╱f1╱ : ╱ // 0xf03 @0x23
0x0ee0…0f07 at0024 = ╱50╱P╱ // 0xf04 @0x24
0x0ee0…0f07 at0025 = ╱37╱7╱ // 0xf05 @0x25
0x0ee0…0f07 at0026 = EOL // 0xf06 @0x26
0x0ee0…0f07 }
0x0f07…0f10 a4fe 00865 PRINT LI $
0x0f07…0f10 LineComal80 {
0x0f07…0f10 ptr = 0xa4fe // 0xf07 @0x0
0x0f07…0f10 lno = 0x0361 // 0xf09 @0x2
0x0f07…0f10 at0004 = ╱92╱ PRINT ╱ // 0xf0b @0x4
0x0f07…0f10 at0005 = ╱4c╱L╱ // 0xf0c @0x5
0x0f07…0f10 at0006 = ╱49╱I╱ // 0xf0d @0x6
0x0f07…0f10 at0007 = ╱ef╱ $ ╱ // 0xf0e @0x7
0x0f07…0f10 at0008 = EOL // 0xf0f @0x8
0x0f07…0f10 }
0x0f10…0f42 a530 00870 INPUT "Skriv…den…amtskommunale…skatteprocent:…" : P8
0x0f10…0f42 LineComal80 {
0x0f10…0f42 ptr = 0xa530 // 0xf10 @0x0
0x0f10…0f42 lno = 0x0366 // 0xf12 @0x2
0x0f10…0f42 at0004 = ╱91╱ INPUT ╱ // 0xf14 @0x4
0x0f10…0f42 at0005 = ╱22╱"╱ // 0xf15 @0x5
0x0f10…0f42 at0006 = ╱53╱S╱ // 0xf16 @0x6
0x0f10…0f42 at0007 = ╱6b╱k╱ // 0xf17 @0x7
0x0f10…0f42 at0008 = ╱72╱r╱ // 0xf18 @0x8
0x0f10…0f42 at0009 = ╱69╱i╱ // 0xf19 @0x9
0x0f10…0f42 at000a = ╱76╱v╱ // 0xf1a @0xa
0x0f10…0f42 at000b = ╱20╱…╱ // 0xf1b @0xb
0x0f10…0f42 at000c = ╱64╱d╱ // 0xf1c @0xc
0x0f10…0f42 at000d = ╱65╱e╱ // 0xf1d @0xd
0x0f10…0f42 at000e = ╱6e╱n╱ // 0xf1e @0xe
0x0f10…0f42 at000f = ╱20╱…╱ // 0xf1f @0xf
0x0f10…0f42 at0010 = ╱61╱a╱ // 0xf20 @0x10
0x0f10…0f42 at0011 = ╱6d╱m╱ // 0xf21 @0x11
0x0f10…0f42 at0012 = ╱74╱t╱ // 0xf22 @0x12
0x0f10…0f42 at0013 = ╱73╱s╱ // 0xf23 @0x13
0x0f10…0f42 at0014 = ╱6b╱k╱ // 0xf24 @0x14
0x0f10…0f42 at0015 = ╱6f╱o╱ // 0xf25 @0x15
0x0f10…0f42 at0016 = ╱6d╱m╱ // 0xf26 @0x16
0x0f10…0f42 at0017 = ╱6d╱m╱ // 0xf27 @0x17
0x0f10…0f42 at0018 = ╱75╱u╱ // 0xf28 @0x18
0x0f10…0f42 at0019 = ╱6e╱n╱ // 0xf29 @0x19
0x0f10…0f42 at001a = ╱61╱a╱ // 0xf2a @0x1a
0x0f10…0f42 at001b = ╱6c╱l╱ // 0xf2b @0x1b
0x0f10…0f42 at001c = ╱65╱e╱ // 0xf2c @0x1c
0x0f10…0f42 at001d = ╱20╱…╱ // 0xf2d @0x1d
0x0f10…0f42 at001e = ╱73╱s╱ // 0xf2e @0x1e
0x0f10…0f42 at001f = ╱6b╱k╱ // 0xf2f @0x1f
0x0f10…0f42 at0020 = ╱61╱a╱ // 0xf30 @0x20
0x0f10…0f42 at0021 = ╱74╱t╱ // 0xf31 @0x21
0x0f10…0f42 at0022 = ╱74╱t╱ // 0xf32 @0x22
0x0f10…0f42 at0023 = ╱65╱e╱ // 0xf33 @0x23
0x0f10…0f42 at0024 = ╱70╱p╱ // 0xf34 @0x24
0x0f10…0f42 at0025 = ╱72╱r╱ // 0xf35 @0x25
0x0f10…0f42 at0026 = ╱6f╱o╱ // 0xf36 @0x26
0x0f10…0f42 at0027 = ╱63╱c╱ // 0xf37 @0x27
0x0f10…0f42 at0028 = ╱65╱e╱ // 0xf38 @0x28
0x0f10…0f42 at0029 = ╱6e╱n╱ // 0xf39 @0x29
0x0f10…0f42 at002a = ╱74╱t╱ // 0xf3a @0x2a
0x0f10…0f42 at002b = ╱3a╱:╱ // 0xf3b @0x2b
0x0f10…0f42 at002c = ╱20╱…╱ // 0xf3c @0x2c
0x0f10…0f42 at002d = ╱22╱"╱ // 0xf3d @0x2d
0x0f10…0f42 at002e = ╱f1╱ : ╱ // 0xf3e @0x2e
0x0f10…0f42 at002f = ╱50╱P╱ // 0xf3f @0x2f
0x0f10…0f42 at0030 = ╱38╱8╱ // 0xf40 @0x30
0x0f10…0f42 at0031 = EOL // 0xf41 @0x31
0x0f10…0f42 }
0x0f42…0f4b a539 00875 PRINT LI $
0x0f42…0f4b LineComal80 {
0x0f42…0f4b ptr = 0xa539 // 0xf42 @0x0
0x0f42…0f4b lno = 0x036b // 0xf44 @0x2
0x0f42…0f4b at0004 = ╱92╱ PRINT ╱ // 0xf46 @0x4
0x0f42…0f4b at0005 = ╱4c╱L╱ // 0xf47 @0x5
0x0f42…0f4b at0006 = ╱49╱I╱ // 0xf48 @0x6
0x0f42…0f4b at0007 = ╱ef╱ $ ╱ // 0xf49 @0x7
0x0f42…0f4b at0008 = EOL // 0xf4a @0x8
0x0f42…0f4b }
0x0f4b…0f72 a560 00880 INPUT "Skriv…kirkeskatteprocenten:…" : P9
0x0f4b…0f72 LineComal80 {
0x0f4b…0f72 ptr = 0xa560 // 0xf4b @0x0
0x0f4b…0f72 lno = 0x0370 // 0xf4d @0x2
0x0f4b…0f72 at0004 = ╱91╱ INPUT ╱ // 0xf4f @0x4
0x0f4b…0f72 at0005 = ╱22╱"╱ // 0xf50 @0x5
0x0f4b…0f72 at0006 = ╱53╱S╱ // 0xf51 @0x6
0x0f4b…0f72 at0007 = ╱6b╱k╱ // 0xf52 @0x7
0x0f4b…0f72 at0008 = ╱72╱r╱ // 0xf53 @0x8
0x0f4b…0f72 at0009 = ╱69╱i╱ // 0xf54 @0x9
0x0f4b…0f72 at000a = ╱76╱v╱ // 0xf55 @0xa
0x0f4b…0f72 at000b = ╱20╱…╱ // 0xf56 @0xb
0x0f4b…0f72 at000c = ╱6b╱k╱ // 0xf57 @0xc
0x0f4b…0f72 at000d = ╱69╱i╱ // 0xf58 @0xd
0x0f4b…0f72 at000e = ╱72╱r╱ // 0xf59 @0xe
0x0f4b…0f72 at000f = ╱6b╱k╱ // 0xf5a @0xf
0x0f4b…0f72 at0010 = ╱65╱e╱ // 0xf5b @0x10
0x0f4b…0f72 at0011 = ╱73╱s╱ // 0xf5c @0x11
0x0f4b…0f72 at0012 = ╱6b╱k╱ // 0xf5d @0x12
0x0f4b…0f72 at0013 = ╱61╱a╱ // 0xf5e @0x13
0x0f4b…0f72 at0014 = ╱74╱t╱ // 0xf5f @0x14
0x0f4b…0f72 at0015 = ╱74╱t╱ // 0xf60 @0x15
0x0f4b…0f72 at0016 = ╱65╱e╱ // 0xf61 @0x16
0x0f4b…0f72 at0017 = ╱70╱p╱ // 0xf62 @0x17
0x0f4b…0f72 at0018 = ╱72╱r╱ // 0xf63 @0x18
0x0f4b…0f72 at0019 = ╱6f╱o╱ // 0xf64 @0x19
0x0f4b…0f72 at001a = ╱63╱c╱ // 0xf65 @0x1a
0x0f4b…0f72 at001b = ╱65╱e╱ // 0xf66 @0x1b
0x0f4b…0f72 at001c = ╱6e╱n╱ // 0xf67 @0x1c
0x0f4b…0f72 at001d = ╱74╱t╱ // 0xf68 @0x1d
0x0f4b…0f72 at001e = ╱65╱e╱ // 0xf69 @0x1e
0x0f4b…0f72 at001f = ╱6e╱n╱ // 0xf6a @0x1f
0x0f4b…0f72 at0020 = ╱3a╱:╱ // 0xf6b @0x20
0x0f4b…0f72 at0021 = ╱20╱…╱ // 0xf6c @0x21
0x0f4b…0f72 at0022 = ╱22╱"╱ // 0xf6d @0x22
0x0f4b…0f72 at0023 = ╱f1╱ : ╱ // 0xf6e @0x23
0x0f4b…0f72 at0024 = ╱50╱P╱ // 0xf6f @0x24
0x0f4b…0f72 at0025 = ╱39╱9╱ // 0xf70 @0x25
0x0f4b…0f72 at0026 = EOL // 0xf71 @0x26
0x0f4b…0f72 }
0x0f72…0f7b a569 00885 PRINT LI $
0x0f72…0f7b LineComal80 {
0x0f72…0f7b ptr = 0xa569 // 0xf72 @0x0
0x0f72…0f7b lno = 0x0375 // 0xf74 @0x2
0x0f72…0f7b at0004 = ╱92╱ PRINT ╱ // 0xf76 @0x4
0x0f72…0f7b at0005 = ╱4c╱L╱ // 0xf77 @0x5
0x0f72…0f7b at0006 = ╱49╱I╱ // 0xf78 @0x6
0x0f72…0f7b at0007 = ╱ef╱ $ ╱ // 0xf79 @0x7
0x0f72…0f7b at0008 = EOL // 0xf7a @0x8
0x0f72…0f7b }
0x0f7b…0fc1 a5af 00890 PRINT "\nskes…klientens…navn…anvendt…i…opg|relsen…i…stedet…for…HOVED" ;
0x0f7b…0fc1 LineComal80 {
0x0f7b…0fc1 ptr = 0xa5af // 0xf7b @0x0
0x0f7b…0fc1 lno = 0x037a // 0xf7d @0x2
0x0f7b…0fc1 at0004 = ╱92╱ PRINT ╱ // 0xf7f @0x4
0x0f7b…0fc1 at0005 = ╱22╱"╱ // 0xf80 @0x5
0x0f7b…0fc1 at0006 = ╱5c╱\╱ // 0xf81 @0x6
0x0f7b…0fc1 at0007 = ╱6e╱n╱ // 0xf82 @0x7
0x0f7b…0fc1 at0008 = ╱73╱s╱ // 0xf83 @0x8
0x0f7b…0fc1 at0009 = ╱6b╱k╱ // 0xf84 @0x9
0x0f7b…0fc1 at000a = ╱65╱e╱ // 0xf85 @0xa
0x0f7b…0fc1 at000b = ╱73╱s╱ // 0xf86 @0xb
0x0f7b…0fc1 at000c = ╱20╱…╱ // 0xf87 @0xc
0x0f7b…0fc1 at000d = ╱6b╱k╱ // 0xf88 @0xd
0x0f7b…0fc1 at000e = ╱6c╱l╱ // 0xf89 @0xe
0x0f7b…0fc1 at000f = ╱69╱i╱ // 0xf8a @0xf
0x0f7b…0fc1 at0010 = ╱65╱e╱ // 0xf8b @0x10
0x0f7b…0fc1 at0011 = ╱6e╱n╱ // 0xf8c @0x11
0x0f7b…0fc1 at0012 = ╱74╱t╱ // 0xf8d @0x12
0x0f7b…0fc1 at0013 = ╱65╱e╱ // 0xf8e @0x13
0x0f7b…0fc1 at0014 = ╱6e╱n╱ // 0xf8f @0x14
0x0f7b…0fc1 at0015 = ╱73╱s╱ // 0xf90 @0x15
0x0f7b…0fc1 at0016 = ╱20╱…╱ // 0xf91 @0x16
0x0f7b…0fc1 at0017 = ╱6e╱n╱ // 0xf92 @0x17
0x0f7b…0fc1 at0018 = ╱61╱a╱ // 0xf93 @0x18
0x0f7b…0fc1 at0019 = ╱76╱v╱ // 0xf94 @0x19
0x0f7b…0fc1 at001a = ╱6e╱n╱ // 0xf95 @0x1a
0x0f7b…0fc1 at001b = ╱20╱…╱ // 0xf96 @0x1b
0x0f7b…0fc1 at001c = ╱61╱a╱ // 0xf97 @0x1c
0x0f7b…0fc1 at001d = ╱6e╱n╱ // 0xf98 @0x1d
0x0f7b…0fc1 at001e = ╱76╱v╱ // 0xf99 @0x1e
0x0f7b…0fc1 at001f = ╱65╱e╱ // 0xf9a @0x1f
0x0f7b…0fc1 at0020 = ╱6e╱n╱ // 0xf9b @0x20
0x0f7b…0fc1 at0021 = ╱64╱d╱ // 0xf9c @0x21
0x0f7b…0fc1 at0022 = ╱74╱t╱ // 0xf9d @0x22
0x0f7b…0fc1 at0023 = ╱20╱…╱ // 0xf9e @0x23
0x0f7b…0fc1 at0024 = ╱69╱i╱ // 0xf9f @0x24
0x0f7b…0fc1 at0025 = ╱20╱…╱ // 0xfa0 @0x25
0x0f7b…0fc1 at0026 = ╱6f╱o╱ // 0xfa1 @0x26
0x0f7b…0fc1 at0027 = ╱70╱p╱ // 0xfa2 @0x27
0x0f7b…0fc1 at0028 = ╱67╱g╱ // 0xfa3 @0x28
0x0f7b…0fc1 at0029 = ╱7c╱|╱ // 0xfa4 @0x29
0x0f7b…0fc1 at002a = ╱72╱r╱ // 0xfa5 @0x2a
0x0f7b…0fc1 at002b = ╱65╱e╱ // 0xfa6 @0x2b
0x0f7b…0fc1 at002c = ╱6c╱l╱ // 0xfa7 @0x2c
0x0f7b…0fc1 at002d = ╱73╱s╱ // 0xfa8 @0x2d
0x0f7b…0fc1 at002e = ╱65╱e╱ // 0xfa9 @0x2e
0x0f7b…0fc1 at002f = ╱6e╱n╱ // 0xfaa @0x2f
0x0f7b…0fc1 at0030 = ╱20╱…╱ // 0xfab @0x30
0x0f7b…0fc1 at0031 = ╱69╱i╱ // 0xfac @0x31
0x0f7b…0fc1 at0032 = ╱20╱…╱ // 0xfad @0x32
0x0f7b…0fc1 at0033 = ╱73╱s╱ // 0xfae @0x33
0x0f7b…0fc1 at0034 = ╱74╱t╱ // 0xfaf @0x34
0x0f7b…0fc1 at0035 = ╱65╱e╱ // 0xfb0 @0x35
0x0f7b…0fc1 at0036 = ╱64╱d╱ // 0xfb1 @0x36
0x0f7b…0fc1 at0037 = ╱65╱e╱ // 0xfb2 @0x37
0x0f7b…0fc1 at0038 = ╱74╱t╱ // 0xfb3 @0x38
0x0f7b…0fc1 at0039 = ╱20╱…╱ // 0xfb4 @0x39
0x0f7b…0fc1 at003a = ╱66╱f╱ // 0xfb5 @0x3a
0x0f7b…0fc1 at003b = ╱6f╱o╱ // 0xfb6 @0x3b
0x0f7b…0fc1 at003c = ╱72╱r╱ // 0xfb7 @0x3c
0x0f7b…0fc1 at003d = ╱20╱…╱ // 0xfb8 @0x3d
0x0f7b…0fc1 at003e = ╱48╱H╱ // 0xfb9 @0x3e
0x0f7b…0fc1 at003f = ╱4f╱O╱ // 0xfba @0x3f
0x0f7b…0fc1 at0040 = ╱56╱V╱ // 0xfbb @0x40
0x0f7b…0fc1 at0041 = ╱45╱E╱ // 0xfbc @0x41
0x0f7b…0fc1 at0042 = ╱44╱D╱ // 0xfbd @0x42
0x0f7b…0fc1 at0043 = ╱22╱"╱ // 0xfbe @0x43
0x0f7b…0fc1 at0044 = ╱ea╱ ; ╱ // 0xfbf @0x44
0x0f7b…0fc1 at0045 = EOL // 0xfc0 @0x45
0x0f7b…0fc1 }
0x0fc1…0fd9 a5c7 00895 PRINT "PERSONEN…og…GIFT"
0x0fc1…0fd9 LineComal80 {
0x0fc1…0fd9 ptr = 0xa5c7 // 0xfc1 @0x0
0x0fc1…0fd9 lno = 0x037f // 0xfc3 @0x2
0x0fc1…0fd9 at0004 = ╱92╱ PRINT ╱ // 0xfc5 @0x4
0x0fc1…0fd9 at0005 = ╱22╱"╱ // 0xfc6 @0x5
0x0fc1…0fd9 at0006 = ╱50╱P╱ // 0xfc7 @0x6
0x0fc1…0fd9 at0007 = ╱45╱E╱ // 0xfc8 @0x7
0x0fc1…0fd9 at0008 = ╱52╱R╱ // 0xfc9 @0x8
0x0fc1…0fd9 at0009 = ╱53╱S╱ // 0xfca @0x9
0x0fc1…0fd9 at000a = ╱4f╱O╱ // 0xfcb @0xa
0x0fc1…0fd9 at000b = ╱4e╱N╱ // 0xfcc @0xb
0x0fc1…0fd9 at000c = ╱45╱E╱ // 0xfcd @0xc
0x0fc1…0fd9 at000d = ╱4e╱N╱ // 0xfce @0xd
0x0fc1…0fd9 at000e = ╱20╱…╱ // 0xfcf @0xe
0x0fc1…0fd9 at000f = ╱6f╱o╱ // 0xfd0 @0xf
0x0fc1…0fd9 at0010 = ╱67╱g╱ // 0xfd1 @0x10
0x0fc1…0fd9 at0011 = ╱20╱…╱ // 0xfd2 @0x11
0x0fc1…0fd9 at0012 = ╱47╱G╱ // 0xfd3 @0x12
0x0fc1…0fd9 at0013 = ╱49╱I╱ // 0xfd4 @0x13
0x0fc1…0fd9 at0014 = ╱46╱F╱ // 0xfd5 @0x14
0x0fc1…0fd9 at0015 = ╱54╱T╱ // 0xfd6 @0x15
0x0fc1…0fd9 at0016 = ╱22╱"╱ // 0xfd7 @0x16
0x0fc1…0fd9 at0017 = EOL // 0xfd8 @0x17
0x0fc1…0fd9 }
0x0fd9…0fe8 a5d6 00900 PRINT "KVINDE" ;
0x0fd9…0fe8 LineComal80 {
0x0fd9…0fe8 ptr = 0xa5d6 // 0xfd9 @0x0
0x0fd9…0fe8 lno = 0x0384 // 0xfdb @0x2
0x0fd9…0fe8 at0004 = ╱92╱ PRINT ╱ // 0xfdd @0x4
0x0fd9…0fe8 at0005 = ╱22╱"╱ // 0xfde @0x5
0x0fd9…0fe8 at0006 = ╱4b╱K╱ // 0xfdf @0x6
0x0fd9…0fe8 at0007 = ╱56╱V╱ // 0xfe0 @0x7
0x0fd9…0fe8 at0008 = ╱49╱I╱ // 0xfe1 @0x8
0x0fd9…0fe8 at0009 = ╱4e╱N╱ // 0xfe2 @0x9
0x0fd9…0fe8 at000a = ╱44╱D╱ // 0xfe3 @0xa
0x0fd9…0fe8 at000b = ╱45╱E╱ // 0xfe4 @0xb
0x0fd9…0fe8 at000c = ╱22╱"╱ // 0xfe5 @0xc
0x0fd9…0fe8 at000d = ╱ea╱ ; ╱ // 0xfe6 @0xd
0x0fd9…0fe8 at000e = EOL // 0xfe7 @0xe
0x0fd9…0fe8 }
0x0fe8…0ff2 a5e0 00905 EXEC SVAR
0x0fe8…0ff2 LineComal80 {
0x0fe8…0ff2 ptr = 0xa5e0 // 0xfe8 @0x0
0x0fe8…0ff2 lno = 0x0389 // 0xfea @0x2
0x0fe8…0ff2 at0004 = ╱9d╱ EXEC ╱ // 0xfec @0x4
0x0fe8…0ff2 at0005 = ╱53╱S╱ // 0xfed @0x5
0x0fe8…0ff2 at0006 = ╱56╱V╱ // 0xfee @0x6
0x0fe8…0ff2 at0007 = ╱41╱A╱ // 0xfef @0x7
0x0fe8…0ff2 at0008 = ╱52╱R╱ // 0xff0 @0x8
0x0fe8…0ff2 at0009 = EOL // 0xff1 @0x9
0x0fe8…0ff2 }
0x0ff2…1024 a612 00910 LET HKL $ := "HOVEDPERSONEN" ; BKL $ := "DEN…GIFTE…KVINDE"
0x0ff2…1024 LineComal80 {
0x0ff2…1024 ptr = 0xa612 // 0xff2 @0x0
0x0ff2…1024 lno = 0x038e // 0xff4 @0x2
0x0ff2…1024 at0004 = ╱86╱ LET ╱ // 0xff6 @0x4
0x0ff2…1024 at0005 = ╱48╱H╱ // 0xff7 @0x5
0x0ff2…1024 at0006 = ╱4b╱K╱ // 0xff8 @0x6
0x0ff2…1024 at0007 = ╱4c╱L╱ // 0xff9 @0x7
0x0ff2…1024 at0008 = ╱ef╱ $ ╱ // 0xffa @0x8
0x0ff2…1024 at0009 = ╱f0╱ := ╱ // 0xffb @0x9
0x0ff2…1024 at000a = ╱22╱"╱ // 0xffc @0xa
0x0ff2…1024 at000b = ╱48╱H╱ // 0xffd @0xb
0x0ff2…1024 at000c = ╱4f╱O╱ // 0xffe @0xc
0x0ff2…1024 at000d = ╱56╱V╱ // 0xfff @0xd
0x0ff2…1024 at000e = ╱45╱E╱ // 0x1000 @0xe
0x0ff2…1024 at000f = ╱44╱D╱ // 0x1001 @0xf
0x0ff2…1024 at0010 = ╱50╱P╱ // 0x1002 @0x10
0x0ff2…1024 at0011 = ╱45╱E╱ // 0x1003 @0x11
0x0ff2…1024 at0012 = ╱52╱R╱ // 0x1004 @0x12
0x0ff2…1024 at0013 = ╱53╱S╱ // 0x1005 @0x13
0x0ff2…1024 at0014 = ╱4f╱O╱ // 0x1006 @0x14
0x0ff2…1024 at0015 = ╱4e╱N╱ // 0x1007 @0x15
0x0ff2…1024 at0016 = ╱45╱E╱ // 0x1008 @0x16
0x0ff2…1024 at0017 = ╱4e╱N╱ // 0x1009 @0x17
0x0ff2…1024 at0018 = ╱22╱"╱ // 0x100a @0x18
0x0ff2…1024 at0019 = ╱ea╱ ; ╱ // 0x100b @0x19
0x0ff2…1024 at001a = ╱42╱B╱ // 0x100c @0x1a
0x0ff2…1024 at001b = ╱4b╱K╱ // 0x100d @0x1b
0x0ff2…1024 at001c = ╱4c╱L╱ // 0x100e @0x1c
0x0ff2…1024 at001d = ╱ef╱ $ ╱ // 0x100f @0x1d
0x0ff2…1024 at001e = ╱f0╱ := ╱ // 0x1010 @0x1e
0x0ff2…1024 at001f = ╱22╱"╱ // 0x1011 @0x1f
0x0ff2…1024 at0020 = ╱44╱D╱ // 0x1012 @0x20
0x0ff2…1024 at0021 = ╱45╱E╱ // 0x1013 @0x21
0x0ff2…1024 at0022 = ╱4e╱N╱ // 0x1014 @0x22
0x0ff2…1024 at0023 = ╱20╱…╱ // 0x1015 @0x23
0x0ff2…1024 at0024 = ╱47╱G╱ // 0x1016 @0x24
0x0ff2…1024 at0025 = ╱49╱I╱ // 0x1017 @0x25
0x0ff2…1024 at0026 = ╱46╱F╱ // 0x1018 @0x26
0x0ff2…1024 at0027 = ╱54╱T╱ // 0x1019 @0x27
0x0ff2…1024 at0028 = ╱45╱E╱ // 0x101a @0x28
0x0ff2…1024 at0029 = ╱20╱…╱ // 0x101b @0x29
0x0ff2…1024 at002a = ╱4b╱K╱ // 0x101c @0x2a
0x0ff2…1024 at002b = ╱56╱V╱ // 0x101d @0x2b
0x0ff2…1024 at002c = ╱49╱I╱ // 0x101e @0x2c
0x0ff2…1024 at002d = ╱4e╱N╱ // 0x101f @0x2d
0x0ff2…1024 at002e = ╱44╱D╱ // 0x1020 @0x2e
0x0ff2…1024 at002f = ╱45╱E╱ // 0x1021 @0x2f
0x0ff2…1024 at0030 = ╱22╱"╱ // 0x1022 @0x30
0x0ff2…1024 at0031 = EOL // 0x1023 @0x31
0x0ff2…1024 }
0x1024…1032 a620 00915 IF $ = "j" THEN
0x1024…1032 LineComal80 {
0x1024…1032 ptr = 0xa620 // 0x1024 @0x0
0x1024…1032 lno = 0x0393 // 0x1026 @0x2
0x1024…1032 at0004 = ╱9b0053╱ IF ╱ // 0x1028 @0x4
0x1024…1032 at0007 = ╱ef╱ $ ╱ // 0x102b @0x7
0x1024…1032 at0008 = ╱df╱ = ╱ // 0x102c @0x8
0x1024…1032 at0009 = ╱22╱"╱ // 0x102d @0x9
0x1024…1032 at000a = ╱6a╱j╱ // 0x102e @0xa
0x1024…1032 at000b = ╱22╱"╱ // 0x102f @0xb
0x1024…1032 at000c = ╱b5╱ THEN ╱ // 0x1030 @0xc
0x1024…1032 at000d = EOL // 0x1031 @0xd
0x1024…1032 }
0x1032…105c a64a 00920 INPUT "Skriv…hovedpersonens…navn…………" : HKL $
0x1032…105c LineComal80 {
0x1032…105c ptr = 0xa64a // 0x1032 @0x0
0x1032…105c lno = 0x0398 // 0x1034 @0x2
0x1032…105c at0004 = ╱91╱ INPUT ╱ // 0x1036 @0x4
0x1032…105c at0005 = ╱22╱"╱ // 0x1037 @0x5
0x1032…105c at0006 = ╱53╱S╱ // 0x1038 @0x6
0x1032…105c at0007 = ╱6b╱k╱ // 0x1039 @0x7
0x1032…105c at0008 = ╱72╱r╱ // 0x103a @0x8
0x1032…105c at0009 = ╱69╱i╱ // 0x103b @0x9
0x1032…105c at000a = ╱76╱v╱ // 0x103c @0xa
0x1032…105c at000b = ╱20╱…╱ // 0x103d @0xb
0x1032…105c at000c = ╱68╱h╱ // 0x103e @0xc
0x1032…105c at000d = ╱6f╱o╱ // 0x103f @0xd
0x1032…105c at000e = ╱76╱v╱ // 0x1040 @0xe
0x1032…105c at000f = ╱65╱e╱ // 0x1041 @0xf
0x1032…105c at0010 = ╱64╱d╱ // 0x1042 @0x10
0x1032…105c at0011 = ╱70╱p╱ // 0x1043 @0x11
0x1032…105c at0012 = ╱65╱e╱ // 0x1044 @0x12
0x1032…105c at0013 = ╱72╱r╱ // 0x1045 @0x13
0x1032…105c at0014 = ╱73╱s╱ // 0x1046 @0x14
0x1032…105c at0015 = ╱6f╱o╱ // 0x1047 @0x15
0x1032…105c at0016 = ╱6e╱n╱ // 0x1048 @0x16
0x1032…105c at0017 = ╱65╱e╱ // 0x1049 @0x17
0x1032…105c at0018 = ╱6e╱n╱ // 0x104a @0x18
0x1032…105c at0019 = ╱73╱s╱ // 0x104b @0x19
0x1032…105c at001a = ╱20╱…╱ // 0x104c @0x1a
0x1032…105c at001b = ╱6e╱n╱ // 0x104d @0x1b
0x1032…105c at001c = ╱61╱a╱ // 0x104e @0x1c
0x1032…105c at001d = ╱76╱v╱ // 0x104f @0x1d
0x1032…105c at001e = ╱6e╱n╱ // 0x1050 @0x1e
0x1032…105c at001f = ╱20╱…╱ // 0x1051 @0x1f
0x1032…105c at0020 = ╱20╱…╱ // 0x1052 @0x20
0x1032…105c at0021 = ╱20╱…╱ // 0x1053 @0x21
0x1032…105c at0022 = ╱20╱…╱ // 0x1054 @0x22
0x1032…105c at0023 = ╱22╱"╱ // 0x1055 @0x23
0x1032…105c at0024 = ╱f1╱ : ╱ // 0x1056 @0x24
0x1032…105c at0025 = ╱48╱H╱ // 0x1057 @0x25
0x1032…105c at0026 = ╱4b╱K╱ // 0x1058 @0x26
0x1032…105c at0027 = ╱4c╱L╱ // 0x1059 @0x27
0x1032…105c at0028 = ╱ef╱ $ ╱ // 0x105a @0x28
0x1032…105c at0029 = EOL // 0x105b @0x29
0x1032…105c }
0x105c…108d a67b 00925 IF T2 >< O THEN INPUT "Skriv…den…gifte…kvindes…navn…" : BKL $
0x105c…108d LineComal80 {
0x105c…108d ptr = 0xa67b // 0x105c @0x0
0x105c…108d lno = 0x039d // 0x105e @0x2
0x105c…108d at0004 = ╱8200╱ IF ╱ // 0x1060 @0x4
0x105c…108d at0006 = ╱54╱T╱ // 0x1062 @0x6
0x105c…108d at0007 = ╱32╱2╱ // 0x1063 @0x7
0x105c…108d at0008 = ╱e4╱ >< ╱ // 0x1064 @0x8
0x105c…108d at0009 = ╱4f╱O╱ // 0x1065 @0x9
0x105c…108d at000a = ╱b5╱ THEN ╱ // 0x1066 @0xa
0x105c…108d at000b = ╱91╱ INPUT ╱ // 0x1067 @0xb
0x105c…108d at000c = ╱22╱"╱ // 0x1068 @0xc
0x105c…108d at000d = ╱53╱S╱ // 0x1069 @0xd
0x105c…108d at000e = ╱6b╱k╱ // 0x106a @0xe
0x105c…108d at000f = ╱72╱r╱ // 0x106b @0xf
0x105c…108d at0010 = ╱69╱i╱ // 0x106c @0x10
0x105c…108d at0011 = ╱76╱v╱ // 0x106d @0x11
0x105c…108d at0012 = ╱20╱…╱ // 0x106e @0x12
0x105c…108d at0013 = ╱64╱d╱ // 0x106f @0x13
0x105c…108d at0014 = ╱65╱e╱ // 0x1070 @0x14
0x105c…108d at0015 = ╱6e╱n╱ // 0x1071 @0x15
0x105c…108d at0016 = ╱20╱…╱ // 0x1072 @0x16
0x105c…108d at0017 = ╱67╱g╱ // 0x1073 @0x17
0x105c…108d at0018 = ╱69╱i╱ // 0x1074 @0x18
0x105c…108d at0019 = ╱66╱f╱ // 0x1075 @0x19
0x105c…108d at001a = ╱74╱t╱ // 0x1076 @0x1a
0x105c…108d at001b = ╱65╱e╱ // 0x1077 @0x1b
0x105c…108d at001c = ╱20╱…╱ // 0x1078 @0x1c
0x105c…108d at001d = ╱6b╱k╱ // 0x1079 @0x1d
0x105c…108d at001e = ╱76╱v╱ // 0x107a @0x1e
0x105c…108d at001f = ╱69╱i╱ // 0x107b @0x1f
0x105c…108d at0020 = ╱6e╱n╱ // 0x107c @0x20
0x105c…108d at0021 = ╱64╱d╱ // 0x107d @0x21
0x105c…108d at0022 = ╱65╱e╱ // 0x107e @0x22
0x105c…108d at0023 = ╱73╱s╱ // 0x107f @0x23
0x105c…108d at0024 = ╱20╱…╱ // 0x1080 @0x24
0x105c…108d at0025 = ╱6e╱n╱ // 0x1081 @0x25
0x105c…108d at0026 = ╱61╱a╱ // 0x1082 @0x26
0x105c…108d at0027 = ╱76╱v╱ // 0x1083 @0x27
0x105c…108d at0028 = ╱6e╱n╱ // 0x1084 @0x28
0x105c…108d at0029 = ╱20╱…╱ // 0x1085 @0x29
0x105c…108d at002a = ╱22╱"╱ // 0x1086 @0x2a
0x105c…108d at002b = ╱f1╱ : ╱ // 0x1087 @0x2b
0x105c…108d at002c = ╱42╱B╱ // 0x1088 @0x2c
0x105c…108d at002d = ╱4b╱K╱ // 0x1089 @0x2d
0x105c…108d at002e = ╱4c╱L╱ // 0x108a @0x2e
0x105c…108d at002f = ╱ef╱ $ ╱ // 0x108b @0x2f
0x105c…108d at0030 = EOL // 0x108c @0x30
0x105c…108d }
0x108d…1096 a684 00930 PRINT LI $
0x108d…1096 LineComal80 {
0x108d…1096 ptr = 0xa684 // 0x108d @0x0
0x108d…1096 lno = 0x03a2 // 0x108f @0x2
0x108d…1096 at0004 = ╱92╱ PRINT ╱ // 0x1091 @0x4
0x108d…1096 at0005 = ╱4c╱L╱ // 0x1092 @0x5
0x108d…1096 at0006 = ╱49╱I╱ // 0x1093 @0x6
0x108d…1096 at0007 = ╱ef╱ $ ╱ // 0x1094 @0x7
0x108d…1096 at0008 = EOL // 0x1095 @0x8
0x108d…1096 }
0x1096…109c a68a 00935 ENDIF
0x1096…109c LineComal80 {
0x1096…109c ptr = 0xa68a // 0x1096 @0x0
0x1096…109c lno = 0x03a7 // 0x1098 @0x2
0x1096…109c at0004 = ╱9c╱ ENDIF ╱ // 0x109a @0x4
0x1096…109c at0005 = EOL // 0x109b @0x5
0x1096…109c }
0x109c…10a2 a690 00940 ENDIF
0x109c…10a2 LineComal80 {
0x109c…10a2 ptr = 0xa690 // 0x109c @0x0
0x109c…10a2 lno = 0x03ac // 0x109e @0x2
0x109c…10a2 at0004 = ╱9c╱ ENDIF ╱ // 0x10a0 @0x4
0x109c…10a2 at0005 = EOL // 0x10a1 @0x5
0x109c…10a2 }
0x10a2…10b7 a6a5 00945 IF T2 = 1 THEN EXEC REGN3
0x10a2…10b7 LineComal80 {
0x10a2…10b7 ptr = 0xa6a5 // 0x10a2 @0x0
0x10a2…10b7 lno = 0x03b1 // 0x10a4 @0x2
0x10a2…10b7 at0004 = ╱8200╱ IF ╱ // 0x10a6 @0x4
0x10a2…10b7 at0006 = ╱54╱T╱ // 0x10a8 @0x6
0x10a2…10b7 at0007 = ╱32╱2╱ // 0x10a9 @0x7
0x10a2…10b7 at0008 = ╱df╱ = ╱ // 0x10aa @0x8
0x10a2…10b7 at0009 = ╱31╱1╱ // 0x10ab @0x9
0x10a2…10b7 at000a = ╱f20100╱ // 0x10ac @0xa
0x10a2…10b7 at000d = ╱b5╱ THEN ╱ // 0x10af @0xd
0x10a2…10b7 at000e = ╱9d╱ EXEC ╱ // 0x10b0 @0xe
0x10a2…10b7 at000f = ╱52╱R╱ // 0x10b1 @0xf
0x10a2…10b7 at0010 = ╱45╱E╱ // 0x10b2 @0x10
0x10a2…10b7 at0011 = ╱47╱G╱ // 0x10b3 @0x11
0x10a2…10b7 at0012 = ╱4e╱N╱ // 0x10b4 @0x12
0x10a2…10b7 at0013 = ╱33╱3╱ // 0x10b5 @0x13
0x10a2…10b7 at0014 = EOL // 0x10b6 @0x14
0x10a2…10b7 }
0x10b7…10c6 a6b4 00950 IF 2 >< 1 THEN
0x10b7…10c6 LineComal80 {
0x10b7…10c6 ptr = 0xa6b4 // 0x10b7 @0x0
0x10b7…10c6 lno = 0x03b6 // 0x10b9 @0x2
0x10b7…10c6 at0004 = ╱9b0054╱ IF ╱ // 0x10bb @0x4
0x10b7…10c6 at0007 = ╱32╱2╱ // 0x10be @0x7
0x10b7…10c6 at0008 = ╱e4╱ >< ╱ // 0x10bf @0x8
0x10b7…10c6 at0009 = ╱31╱1╱ // 0x10c0 @0x9
0x10b7…10c6 at000a = ╱f20100╱ // 0x10c1 @0xa
0x10b7…10c6 at000d = ╱b5╱ THEN ╱ // 0x10c4 @0xd
0x10b7…10c6 at000e = EOL // 0x10c5 @0xe
0x10b7…10c6 }
0x10c6…10d1 a6bf 00955 EXEC REGN4
0x10c6…10d1 LineComal80 {
0x10c6…10d1 ptr = 0xa6bf // 0x10c6 @0x0
0x10c6…10d1 lno = 0x03bb // 0x10c8 @0x2
0x10c6…10d1 at0004 = ╱9d╱ EXEC ╱ // 0x10ca @0x4
0x10c6…10d1 at0005 = ╱52╱R╱ // 0x10cb @0x5
0x10c6…10d1 at0006 = ╱45╱E╱ // 0x10cc @0x6
0x10c6…10d1 at0007 = ╱47╱G╱ // 0x10cd @0x7
0x10c6…10d1 at0008 = ╱4e╱N╱ // 0x10ce @0x8
0x10c6…10d1 at0009 = ╱34╱4╱ // 0x10cf @0x9
0x10c6…10d1 at000a = EOL // 0x10d0 @0xa
0x10c6…10d1 }
0x10d1…10e6 a6d4 00960 IF T2 = 2 THEN EXEC REGN5
0x10d1…10e6 LineComal80 {
0x10d1…10e6 ptr = 0xa6d4 // 0x10d1 @0x0
0x10d1…10e6 lno = 0x03c0 // 0x10d3 @0x2
0x10d1…10e6 at0004 = ╱8200╱ IF ╱ // 0x10d5 @0x4
0x10d1…10e6 at0006 = ╱54╱T╱ // 0x10d7 @0x6
0x10d1…10e6 at0007 = ╱32╱2╱ // 0x10d8 @0x7
0x10d1…10e6 at0008 = ╱df╱ = ╱ // 0x10d9 @0x8
0x10d1…10e6 at0009 = ╱32╱2╱ // 0x10da @0x9
0x10d1…10e6 at000a = ╱f20200╱ // 0x10db @0xa
0x10d1…10e6 at000d = ╱b5╱ THEN ╱ // 0x10de @0xd
0x10d1…10e6 at000e = ╱9d╱ EXEC ╱ // 0x10df @0xe
0x10d1…10e6 at000f = ╱52╱R╱ // 0x10e0 @0xf
0x10d1…10e6 at0010 = ╱45╱E╱ // 0x10e1 @0x10
0x10d1…10e6 at0011 = ╱47╱G╱ // 0x10e2 @0x11
0x10d1…10e6 at0012 = ╱4e╱N╱ // 0x10e3 @0x12
0x10d1…10e6 at0013 = ╱35╱5╱ // 0x10e4 @0x13
0x10d1…10e6 at0014 = EOL // 0x10e5 @0x14
0x10d1…10e6 }
0x10e6…10ed a6db 00965 ELSE
0x10e6…10ed LineComal80 {
0x10e6…10ed ptr = 0xa6db // 0x10e6 @0x0
0x10e6…10ed lno = 0x03c5 // 0x10e8 @0x2
0x10e6…10ed at0004 = ╱9a00╱ ELSE ╱ // 0x10ea @0x4
0x10e6…10ed at0006 = EOL // 0x10ec @0x6
0x10e6…10ed }
0x10ed…10f8 a6e6 00970 EXEC REGN6
0x10ed…10f8 LineComal80 {
0x10ed…10f8 ptr = 0xa6e6 // 0x10ed @0x0
0x10ed…10f8 lno = 0x03ca // 0x10ef @0x2
0x10ed…10f8 at0004 = ╱9d╱ EXEC ╱ // 0x10f1 @0x4
0x10ed…10f8 at0005 = ╱52╱R╱ // 0x10f2 @0x5
0x10ed…10f8 at0006 = ╱45╱E╱ // 0x10f3 @0x6
0x10ed…10f8 at0007 = ╱47╱G╱ // 0x10f4 @0x7
0x10ed…10f8 at0008 = ╱4e╱N╱ // 0x10f5 @0x8
0x10ed…10f8 at0009 = ╱36╱6╱ // 0x10f6 @0x9
0x10ed…10f8 at000a = EOL // 0x10f7 @0xa
0x10ed…10f8 }
0x10f8…10fe a6ec 00975 ENDIF
0x10f8…10fe LineComal80 {
0x10f8…10fe ptr = 0xa6ec // 0x10f8 @0x0
0x10f8…10fe lno = 0x03cf // 0x10fa @0x2
0x10f8…10fe at0004 = ╱9c╱ ENDIF ╱ // 0x10fc @0x4
0x10f8…10fe at0005 = EOL // 0x10fd @0x5
0x10f8…10fe }
0x10fe…1109 a6f7 00980 EXEC REGN7
0x10fe…1109 LineComal80 {
0x10fe…1109 ptr = 0xa6f7 // 0x10fe @0x0
0x10fe…1109 lno = 0x03d4 // 0x1100 @0x2
0x10fe…1109 at0004 = ╱9d╱ EXEC ╱ // 0x1102 @0x4
0x10fe…1109 at0005 = ╱52╱R╱ // 0x1103 @0x5
0x10fe…1109 at0006 = ╱45╱E╱ // 0x1104 @0x6
0x10fe…1109 at0007 = ╱47╱G╱ // 0x1105 @0x7
0x10fe…1109 at0008 = ╱4e╱N╱ // 0x1106 @0x8
0x10fe…1109 at0009 = ╱37╱7╱ // 0x1107 @0x9
0x10fe…1109 at000a = EOL // 0x1108 @0xa
0x10fe…1109 }
0x1109…1127 a715 00985 IF T2 = O AND B7 > U2 + 99 THEN EXEC REGN8
0x1109…1127 LineComal80 {
0x1109…1127 ptr = 0xa715 // 0x1109 @0x0
0x1109…1127 lno = 0x03d9 // 0x110b @0x2
0x1109…1127 at0004 = ╱8200╱ IF ╱ // 0x110d @0x4
0x1109…1127 at0006 = ╱54╱T╱ // 0x110f @0x6
0x1109…1127 at0007 = ╱32╱2╱ // 0x1110 @0x7
0x1109…1127 at0008 = ╱df╱ = ╱ // 0x1111 @0x8
0x1109…1127 at0009 = ╱4f╱O╱ // 0x1112 @0x9
0x1109…1127 at000a = ╱d9╱ AND ╱ // 0x1113 @0xa
0x1109…1127 at000b = ╱42╱B╱ // 0x1114 @0xb
0x1109…1127 at000c = ╱37╱7╱ // 0x1115 @0xc
0x1109…1127 at000d = ╱e1╱ > ╱ // 0x1116 @0xd
0x1109…1127 at000e = ╱55╱U╱ // 0x1117 @0xe
0x1109…1127 at000f = ╱32╱2╱ // 0x1118 @0xf
0x1109…1127 at0010 = ╱e5╱ + ╱ // 0x1119 @0x10
0x1109…1127 at0011 = ╱39╱9╱ // 0x111a @0x11
0x1109…1127 at0012 = ╱39╱9╱ // 0x111b @0x12
0x1109…1127 at0013 = ╱f26300╱ // 0x111c @0x13
0x1109…1127 at0016 = ╱b5╱ THEN ╱ // 0x111f @0x16
0x1109…1127 at0017 = ╱9d╱ EXEC ╱ // 0x1120 @0x17
0x1109…1127 at0018 = ╱52╱R╱ // 0x1121 @0x18
0x1109…1127 at0019 = ╱45╱E╱ // 0x1122 @0x19
0x1109…1127 at001a = ╱47╱G╱ // 0x1123 @0x1a
0x1109…1127 at001b = ╱4e╱N╱ // 0x1124 @0x1b
0x1109…1127 at001c = ╱38╱8╱ // 0x1125 @0x1c
0x1109…1127 at001d = EOL // 0x1126 @0x1d
0x1109…1127 }
0x1127…114b a739 00990 IF T4 = 1 AND B7 + B8 > U2 + 99 THEN EXEC REGN9
0x1127…114b LineComal80 {
0x1127…114b ptr = 0xa739 // 0x1127 @0x0
0x1127…114b lno = 0x03de // 0x1129 @0x2
0x1127…114b at0004 = ╱8200╱ IF ╱ // 0x112b @0x4
0x1127…114b at0006 = ╱54╱T╱ // 0x112d @0x6
0x1127…114b at0007 = ╱34╱4╱ // 0x112e @0x7
0x1127…114b at0008 = ╱df╱ = ╱ // 0x112f @0x8
0x1127…114b at0009 = ╱31╱1╱ // 0x1130 @0x9
0x1127…114b at000a = ╱f20100╱ // 0x1131 @0xa
0x1127…114b at000d = ╱d9╱ AND ╱ // 0x1134 @0xd
0x1127…114b at000e = ╱42╱B╱ // 0x1135 @0xe
0x1127…114b at000f = ╱37╱7╱ // 0x1136 @0xf
0x1127…114b at0010 = ╱e5╱ + ╱ // 0x1137 @0x10
0x1127…114b at0011 = ╱42╱B╱ // 0x1138 @0x11
0x1127…114b at0012 = ╱38╱8╱ // 0x1139 @0x12
0x1127…114b at0013 = ╱e1╱ > ╱ // 0x113a @0x13
0x1127…114b at0014 = ╱55╱U╱ // 0x113b @0x14
0x1127…114b at0015 = ╱32╱2╱ // 0x113c @0x15
0x1127…114b at0016 = ╱e5╱ + ╱ // 0x113d @0x16
0x1127…114b at0017 = ╱39╱9╱ // 0x113e @0x17
0x1127…114b at0018 = ╱39╱9╱ // 0x113f @0x18
0x1127…114b at0019 = ╱f26300╱ // 0x1140 @0x19
0x1127…114b at001c = ╱b5╱ THEN ╱ // 0x1143 @0x1c
0x1127…114b at001d = ╱9d╱ EXEC ╱ // 0x1144 @0x1d
0x1127…114b at001e = ╱52╱R╱ // 0x1145 @0x1e
0x1127…114b at001f = ╱45╱E╱ // 0x1146 @0x1f
0x1127…114b at0020 = ╱47╱G╱ // 0x1147 @0x20
0x1127…114b at0021 = ╱4e╱N╱ // 0x1148 @0x21
0x1127…114b at0022 = ╱39╱9╱ // 0x1149 @0x22
0x1127…114b at0023 = EOL // 0x114a @0x23
0x1127…114b }
0x114b…116b a759 00995 IF 2 = 2 AND T4 = O AND B7 > U2 + 99 THEN
0x114b…116b LineComal80 {
0x114b…116b ptr = 0xa759 // 0x114b @0x0
0x114b…116b lno = 0x03e3 // 0x114d @0x2
0x114b…116b at0004 = ╱9b0054╱ IF ╱ // 0x114f @0x4
0x114b…116b at0007 = ╱32╱2╱ // 0x1152 @0x7
0x114b…116b at0008 = ╱df╱ = ╱ // 0x1153 @0x8
0x114b…116b at0009 = ╱32╱2╱ // 0x1154 @0x9
0x114b…116b at000a = ╱f20200╱ // 0x1155 @0xa
0x114b…116b at000d = ╱d9╱ AND ╱ // 0x1158 @0xd
0x114b…116b at000e = ╱54╱T╱ // 0x1159 @0xe
0x114b…116b at000f = ╱34╱4╱ // 0x115a @0xf
0x114b…116b at0010 = ╱df╱ = ╱ // 0x115b @0x10
0x114b…116b at0011 = ╱4f╱O╱ // 0x115c @0x11
0x114b…116b at0012 = ╱d9╱ AND ╱ // 0x115d @0x12
0x114b…116b at0013 = ╱42╱B╱ // 0x115e @0x13
0x114b…116b at0014 = ╱37╱7╱ // 0x115f @0x14
0x114b…116b at0015 = ╱e1╱ > ╱ // 0x1160 @0x15
0x114b…116b at0016 = ╱55╱U╱ // 0x1161 @0x16
0x114b…116b at0017 = ╱32╱2╱ // 0x1162 @0x17
0x114b…116b at0018 = ╱e5╱ + ╱ // 0x1163 @0x18
0x114b…116b at0019 = ╱39╱9╱ // 0x1164 @0x19
0x114b…116b at001a = ╱39╱9╱ // 0x1165 @0x1a
0x114b…116b at001b = ╱f26300╱ // 0x1166 @0x1b
0x114b…116b at001e = ╱b5╱ THEN ╱ // 0x1169 @0x1e
0x114b…116b at001f = EOL // 0x116a @0x1f
0x114b…116b }
0x116b…1176 a764 01000 EXEC REGN8
0x116b…1176 LineComal80 {
0x116b…1176 ptr = 0xa764 // 0x116b @0x0
0x116b…1176 lno = 0x03e8 // 0x116d @0x2
0x116b…1176 at0004 = ╱9d╱ EXEC ╱ // 0x116f @0x4
0x116b…1176 at0005 = ╱52╱R╱ // 0x1170 @0x5
0x116b…1176 at0006 = ╱45╱E╱ // 0x1171 @0x6
0x116b…1176 at0007 = ╱47╱G╱ // 0x1172 @0x7
0x116b…1176 at0008 = ╱4e╱N╱ // 0x1173 @0x8
0x116b…1176 at0009 = ╱38╱8╱ // 0x1174 @0x9
0x116b…1176 at000a = EOL // 0x1175 @0xa
0x116b…1176 }
0x1176…1189 a777 01005 LET HB9 := B9 ; HB7 := B7
0x1176…1189 LineComal80 {
0x1176…1189 ptr = 0xa777 // 0x1176 @0x0
0x1176…1189 lno = 0x03ed // 0x1178 @0x2
0x1176…1189 at0004 = ╱86╱ LET ╱ // 0x117a @0x4
0x1176…1189 at0005 = ╱48╱H╱ // 0x117b @0x5
0x1176…1189 at0006 = ╱42╱B╱ // 0x117c @0x6
0x1176…1189 at0007 = ╱39╱9╱ // 0x117d @0x7
0x1176…1189 at0008 = ╱f0╱ := ╱ // 0x117e @0x8
0x1176…1189 at0009 = ╱42╱B╱ // 0x117f @0x9
0x1176…1189 at000a = ╱39╱9╱ // 0x1180 @0xa
0x1176…1189 at000b = ╱ea╱ ; ╱ // 0x1181 @0xb
0x1176…1189 at000c = ╱48╱H╱ // 0x1182 @0xc
0x1176…1189 at000d = ╱42╱B╱ // 0x1183 @0xd
0x1176…1189 at000e = ╱37╱7╱ // 0x1184 @0xe
0x1176…1189 at000f = ╱f0╱ := ╱ // 0x1185 @0xf
0x1176…1189 at0010 = ╱42╱B╱ // 0x1186 @0x10
0x1176…1189 at0011 = ╱37╱7╱ // 0x1187 @0x11
0x1176…1189 at0012 = EOL // 0x1188 @0x12
0x1176…1189 }
0x1189…118f a77d 01010 ENDIF
0x1189…118f LineComal80 {
0x1189…118f ptr = 0xa77d // 0x1189 @0x0
0x1189…118f lno = 0x03f2 // 0x118b @0x2
0x1189…118f at0004 = ╱9c╱ ENDIF ╱ // 0x118d @0x4
0x1189…118f at0005 = EOL // 0x118e @0x5
0x1189…118f }
0x118f…11af a79d 01015 IF 2 = 2 AND T4 = O AND B8 > U2 + 99 THEN
0x118f…11af LineComal80 {
0x118f…11af ptr = 0xa79d // 0x118f @0x0
0x118f…11af lno = 0x03f7 // 0x1191 @0x2
0x118f…11af at0004 = ╱9b0054╱ IF ╱ // 0x1193 @0x4
0x118f…11af at0007 = ╱32╱2╱ // 0x1196 @0x7
0x118f…11af at0008 = ╱df╱ = ╱ // 0x1197 @0x8
0x118f…11af at0009 = ╱32╱2╱ // 0x1198 @0x9
0x118f…11af at000a = ╱f20200╱ // 0x1199 @0xa
0x118f…11af at000d = ╱d9╱ AND ╱ // 0x119c @0xd
0x118f…11af at000e = ╱54╱T╱ // 0x119d @0xe
0x118f…11af at000f = ╱34╱4╱ // 0x119e @0xf
0x118f…11af at0010 = ╱df╱ = ╱ // 0x119f @0x10
0x118f…11af at0011 = ╱4f╱O╱ // 0x11a0 @0x11
0x118f…11af at0012 = ╱d9╱ AND ╱ // 0x11a1 @0x12
0x118f…11af at0013 = ╱42╱B╱ // 0x11a2 @0x13
0x118f…11af at0014 = ╱38╱8╱ // 0x11a3 @0x14
0x118f…11af at0015 = ╱e1╱ > ╱ // 0x11a4 @0x15
0x118f…11af at0016 = ╱55╱U╱ // 0x11a5 @0x16
0x118f…11af at0017 = ╱32╱2╱ // 0x11a6 @0x17
0x118f…11af at0018 = ╱e5╱ + ╱ // 0x11a7 @0x18
0x118f…11af at0019 = ╱39╱9╱ // 0x11a8 @0x19
0x118f…11af at001a = ╱39╱9╱ // 0x11a9 @0x1a
0x118f…11af at001b = ╱f26300╱ // 0x11aa @0x1b
0x118f…11af at001e = ╱b5╱ THEN ╱ // 0x11ad @0x1e
0x118f…11af at001f = EOL // 0x11ae @0x1f
0x118f…11af }
0x11af…11ba a7a8 01020 LET B7 := B8
0x11af…11ba LineComal80 {
0x11af…11ba ptr = 0xa7a8 // 0x11af @0x0
0x11af…11ba lno = 0x03fc // 0x11b1 @0x2
0x11af…11ba at0004 = ╱86╱ LET ╱ // 0x11b3 @0x4
0x11af…11ba at0005 = ╱42╱B╱ // 0x11b4 @0x5
0x11af…11ba at0006 = ╱37╱7╱ // 0x11b5 @0x6
0x11af…11ba at0007 = ╱f0╱ := ╱ // 0x11b6 @0x7
0x11af…11ba at0008 = ╱42╱B╱ // 0x11b7 @0x8
0x11af…11ba at0009 = ╱38╱8╱ // 0x11b8 @0x9
0x11af…11ba at000a = EOL // 0x11b9 @0xa
0x11af…11ba }
0x11ba…11c5 a7b3 01025 EXEC REGN8
0x11ba…11c5 LineComal80 {
0x11ba…11c5 ptr = 0xa7b3 // 0x11ba @0x0
0x11ba…11c5 lno = 0x0401 // 0x11bc @0x2
0x11ba…11c5 at0004 = ╱9d╱ EXEC ╱ // 0x11be @0x4
0x11ba…11c5 at0005 = ╱52╱R╱ // 0x11bf @0x5
0x11ba…11c5 at0006 = ╱45╱E╱ // 0x11c0 @0x6
0x11ba…11c5 at0007 = ╱47╱G╱ // 0x11c1 @0x7
0x11ba…11c5 at0008 = ╱4e╱N╱ // 0x11c2 @0x8
0x11ba…11c5 at0009 = ╱38╱8╱ // 0x11c3 @0x9
0x11ba…11c5 at000a = EOL // 0x11c4 @0xa
0x11ba…11c5 }
0x11c5…11de a7cc 01030 LET E6 := B9 ; B9 := HB9 ; B7 := HB7
0x11c5…11de LineComal80 {
0x11c5…11de ptr = 0xa7cc // 0x11c5 @0x0
0x11c5…11de lno = 0x0406 // 0x11c7 @0x2
0x11c5…11de at0004 = ╱86╱ LET ╱ // 0x11c9 @0x4
0x11c5…11de at0005 = ╱45╱E╱ // 0x11ca @0x5
0x11c5…11de at0006 = ╱36╱6╱ // 0x11cb @0x6
0x11c5…11de at0007 = ╱f0╱ := ╱ // 0x11cc @0x7
0x11c5…11de at0008 = ╱42╱B╱ // 0x11cd @0x8
0x11c5…11de at0009 = ╱39╱9╱ // 0x11ce @0x9
0x11c5…11de at000a = ╱ea╱ ; ╱ // 0x11cf @0xa
0x11c5…11de at000b = ╱42╱B╱ // 0x11d0 @0xb
0x11c5…11de at000c = ╱39╱9╱ // 0x11d1 @0xc
0x11c5…11de at000d = ╱f0╱ := ╱ // 0x11d2 @0xd
0x11c5…11de at000e = ╱48╱H╱ // 0x11d3 @0xe
0x11c5…11de at000f = ╱42╱B╱ // 0x11d4 @0xf
0x11c5…11de at0010 = ╱39╱9╱ // 0x11d5 @0x10
0x11c5…11de at0011 = ╱ea╱ ; ╱ // 0x11d6 @0x11
0x11c5…11de at0012 = ╱42╱B╱ // 0x11d7 @0x12
0x11c5…11de at0013 = ╱37╱7╱ // 0x11d8 @0x13
0x11c5…11de at0014 = ╱f0╱ := ╱ // 0x11d9 @0x14
0x11c5…11de at0015 = ╱48╱H╱ // 0x11da @0x15
0x11c5…11de at0016 = ╱42╱B╱ // 0x11db @0x16
0x11c5…11de at0017 = ╱37╱7╱ // 0x11dc @0x17
0x11c5…11de at0018 = EOL // 0x11dd @0x18
0x11c5…11de }
0x11de…11e4 a7d2 01035 ENDIF
0x11de…11e4 LineComal80 {
0x11de…11e4 ptr = 0xa7d2 // 0x11de @0x0
0x11de…11e4 lno = 0x040b // 0x11e0 @0x2
0x11de…11e4 at0004 = ╱9c╱ ENDIF ╱ // 0x11e2 @0x4
0x11de…11e4 at0005 = EOL // 0x11e3 @0x5
0x11de…11e4 }
0x11e4…120e a7fc 01040 PRINT "\nskes…der…print…af…beregningerne" ;
0x11e4…120e LineComal80 {
0x11e4…120e ptr = 0xa7fc // 0x11e4 @0x0
0x11e4…120e lno = 0x0410 // 0x11e6 @0x2
0x11e4…120e at0004 = ╱92╱ PRINT ╱ // 0x11e8 @0x4
0x11e4…120e at0005 = ╱22╱"╱ // 0x11e9 @0x5
0x11e4…120e at0006 = ╱5c╱\╱ // 0x11ea @0x6
0x11e4…120e at0007 = ╱6e╱n╱ // 0x11eb @0x7
0x11e4…120e at0008 = ╱73╱s╱ // 0x11ec @0x8
0x11e4…120e at0009 = ╱6b╱k╱ // 0x11ed @0x9
0x11e4…120e at000a = ╱65╱e╱ // 0x11ee @0xa
0x11e4…120e at000b = ╱73╱s╱ // 0x11ef @0xb
0x11e4…120e at000c = ╱20╱…╱ // 0x11f0 @0xc
0x11e4…120e at000d = ╱64╱d╱ // 0x11f1 @0xd
0x11e4…120e at000e = ╱65╱e╱ // 0x11f2 @0xe
0x11e4…120e at000f = ╱72╱r╱ // 0x11f3 @0xf
0x11e4…120e at0010 = ╱20╱…╱ // 0x11f4 @0x10
0x11e4…120e at0011 = ╱70╱p╱ // 0x11f5 @0x11
0x11e4…120e at0012 = ╱72╱r╱ // 0x11f6 @0x12
0x11e4…120e at0013 = ╱69╱i╱ // 0x11f7 @0x13
0x11e4…120e at0014 = ╱6e╱n╱ // 0x11f8 @0x14
0x11e4…120e at0015 = ╱74╱t╱ // 0x11f9 @0x15
0x11e4…120e at0016 = ╱20╱…╱ // 0x11fa @0x16
0x11e4…120e at0017 = ╱61╱a╱ // 0x11fb @0x17
0x11e4…120e at0018 = ╱66╱f╱ // 0x11fc @0x18
0x11e4…120e at0019 = ╱20╱…╱ // 0x11fd @0x19
0x11e4…120e at001a = ╱62╱b╱ // 0x11fe @0x1a
0x11e4…120e at001b = ╱65╱e╱ // 0x11ff @0x1b
0x11e4…120e at001c = ╱72╱r╱ // 0x1200 @0x1c
0x11e4…120e at001d = ╱65╱e╱ // 0x1201 @0x1d
0x11e4…120e at001e = ╱67╱g╱ // 0x1202 @0x1e
0x11e4…120e at001f = ╱6e╱n╱ // 0x1203 @0x1f
0x11e4…120e at0020 = ╱69╱i╱ // 0x1204 @0x20
0x11e4…120e at0021 = ╱6e╱n╱ // 0x1205 @0x21
0x11e4…120e at0022 = ╱67╱g╱ // 0x1206 @0x22
0x11e4…120e at0023 = ╱65╱e╱ // 0x1207 @0x23
0x11e4…120e at0024 = ╱72╱r╱ // 0x1208 @0x24
0x11e4…120e at0025 = ╱6e╱n╱ // 0x1209 @0x25
0x11e4…120e at0026 = ╱65╱e╱ // 0x120a @0x26
0x11e4…120e at0027 = ╱22╱"╱ // 0x120b @0x27
0x11e4…120e at0028 = ╱ea╱ ; ╱ // 0x120c @0x28
0x11e4…120e at0029 = EOL // 0x120d @0x29
0x11e4…120e }
0x120e…1218 a806 01045 EXEC SVAR
0x120e…1218 LineComal80 {
0x120e…1218 ptr = 0xa806 // 0x120e @0x0
0x120e…1218 lno = 0x0415 // 0x1210 @0x2
0x120e…1218 at0004 = ╱9d╱ EXEC ╱ // 0x1212 @0x4
0x120e…1218 at0005 = ╱53╱S╱ // 0x1213 @0x5
0x120e…1218 at0006 = ╱56╱V╱ // 0x1214 @0x6
0x120e…1218 at0007 = ╱41╱A╱ // 0x1215 @0x7
0x120e…1218 at0008 = ╱52╱R╱ // 0x1216 @0x8
0x120e…1218 at0009 = EOL // 0x1217 @0x9
0x120e…1218 }
0x1218…1222 a810 01050 LET PR := O
0x1218…1222 LineComal80 {
0x1218…1222 ptr = 0xa810 // 0x1218 @0x0
0x1218…1222 lno = 0x041a // 0x121a @0x2
0x1218…1222 at0004 = ╱86╱ LET ╱ // 0x121c @0x4
0x1218…1222 at0005 = ╱50╱P╱ // 0x121d @0x5
0x1218…1222 at0006 = ╱52╱R╱ // 0x121e @0x6
0x1218…1222 at0007 = ╱f0╱ := ╱ // 0x121f @0x7
0x1218…1222 at0008 = ╱4f╱O╱ // 0x1220 @0x8
0x1218…1222 at0009 = EOL // 0x1221 @0x9
0x1218…1222 }
0x1222…1238 a826 01055 IF S $ = "j" THEN LET PR := 1
0x1222…1238 LineComal80 {
0x1222…1238 ptr = 0xa826 // 0x1222 @0x0
0x1222…1238 lno = 0x041f // 0x1224 @0x2
0x1222…1238 at0004 = ╱8200╱ IF ╱ // 0x1226 @0x4
0x1222…1238 at0006 = ╱53╱S╱ // 0x1228 @0x6
0x1222…1238 at0007 = ╱ef╱ $ ╱ // 0x1229 @0x7
0x1222…1238 at0008 = ╱df╱ = ╱ // 0x122a @0x8
0x1222…1238 at0009 = ╱22╱"╱ // 0x122b @0x9
0x1222…1238 at000a = ╱6a╱j╱ // 0x122c @0xa
0x1222…1238 at000b = ╱22╱"╱ // 0x122d @0xb
0x1222…1238 at000c = ╱b5╱ THEN ╱ // 0x122e @0xc
0x1222…1238 at000d = ╱86╱ LET ╱ // 0x122f @0xd
0x1222…1238 at000e = ╱50╱P╱ // 0x1230 @0xe
0x1222…1238 at000f = ╱52╱R╱ // 0x1231 @0xf
0x1222…1238 at0010 = ╱f0╱ := ╱ // 0x1232 @0x10
0x1222…1238 at0011 = ╱31╱1╱ // 0x1233 @0x11
0x1222…1238 at0012 = ╱f20100╱ // 0x1234 @0x12
0x1222…1238 at0015 = EOL // 0x1237 @0x15
0x1222…1238 }
0x1238…124e a83c 01060 FOR Y := 1 TO R + 1 DO
0x1238…124e LineComal80 {
0x1238…124e ptr = 0xa83c // 0x1238 @0x0
0x1238…124e lno = 0x0424 // 0x123a @0x2
0x1238…124e at0004 = ╱8300╱ FOR ╱ // 0x123c @0x4
0x1238…124e at0006 = ╱59╱Y╱ // 0x123e @0x6
0x1238…124e at0007 = ╱f0╱ := ╱ // 0x123f @0x7
0x1238…124e at0008 = ╱31╱1╱ // 0x1240 @0x8
0x1238…124e at0009 = ╱f20100╱ // 0x1241 @0x9
0x1238…124e at000c = ╱b750╱ TO ╱ // 0x1244 @0xc
0x1238…124e at000e = ╱52╱R╱ // 0x1246 @0xe
0x1238…124e at000f = ╱e5╱ + ╱ // 0x1247 @0xf
0x1238…124e at0010 = ╱31╱1╱ // 0x1248 @0x10
0x1238…124e at0011 = ╱f20100╱ // 0x1249 @0x11
0x1238…124e at0014 = ╱bb╱ DO ╱ // 0x124c @0x14
0x1238…124e at0015 = EOL // 0x124d @0x15
0x1238…124e }
0x124e…1260 a84e 01065 IF Y = 2 THEN OUTPUT "P"
0x124e…1260 LineComal80 {
0x124e…1260 ptr = 0xa84e // 0x124e @0x0
0x124e…1260 lno = 0x0429 // 0x1250 @0x2
0x124e…1260 at0004 = ╱8200╱ IF ╱ // 0x1252 @0x4
0x124e…1260 at0006 = ╱59╱Y╱ // 0x1254 @0x6
0x124e…1260 at0007 = ╱df╱ = ╱ // 0x1255 @0x7
0x124e…1260 at0008 = ╱32╱2╱ // 0x1256 @0x8
0x124e…1260 at0009 = ╱f20200╱ // 0x1257 @0x9
0x124e…1260 at000c = ╱b5╱ THEN ╱ // 0x125a @0xc
0x124e…1260 at000d = ╱a5╱ OUTPUT ╱ // 0x125b @0xd
0x124e…1260 at000e = ╱22╱"╱ // 0x125c @0xe
0x124e…1260 at000f = ╱50╱P╱ // 0x125d @0xf
0x124e…1260 at0010 = ╱22╱"╱ // 0x125e @0x10
0x124e…1260 at0011 = EOL // 0x125f @0x11
0x124e…1260 }
0x1260…126f a85d 01070 EXEC SIDESKIFT
0x1260…126f LineComal80 {
0x1260…126f ptr = 0xa85d // 0x1260 @0x0
0x1260…126f lno = 0x042e // 0x1262 @0x2
0x1260…126f at0004 = ╱9d╱ EXEC ╱ // 0x1264 @0x4
0x1260…126f at0005 = ╱53╱S╱ // 0x1265 @0x5
0x1260…126f at0006 = ╱49╱I╱ // 0x1266 @0x6
0x1260…126f at0007 = ╱44╱D╱ // 0x1267 @0x7
0x1260…126f at0008 = ╱45╱E╱ // 0x1268 @0x8
0x1260…126f at0009 = ╱53╱S╱ // 0x1269 @0x9
0x1260…126f at000a = ╱4b╱K╱ // 0x126a @0xa
0x1260…126f at000b = ╱49╱I╱ // 0x126b @0xb
0x1260…126f at000c = ╱46╱F╱ // 0x126c @0xc
0x1260…126f at000d = ╱54╱T╱ // 0x126d @0xd
0x1260…126f at000e = EOL // 0x126e @0xe
0x1260…126f }
0x126f…127d a86b 01075 EXEC S[TATILH
0x126f…127d LineComal80 {
0x126f…127d ptr = 0xa86b // 0x126f @0x0
0x126f…127d lno = 0x0433 // 0x1271 @0x2
0x126f…127d at0004 = ╱9d╱ EXEC ╱ // 0x1273 @0x4
0x126f…127d at0005 = ╱53╱S╱ // 0x1274 @0x5
0x126f…127d at0006 = ╱5b╱[╱ // 0x1275 @0x6
0x126f…127d at0007 = ╱54╱T╱ // 0x1276 @0x7
0x126f…127d at0008 = ╱41╱A╱ // 0x1277 @0x8
0x126f…127d at0009 = ╱54╱T╱ // 0x1278 @0x9
0x126f…127d at000a = ╱49╱I╱ // 0x1279 @0xa
0x126f…127d at000b = ╱4c╱L╱ // 0x127a @0xb
0x126f…127d at000c = ╱48╱H╱ // 0x127b @0xc
0x126f…127d at000d = EOL // 0x127c @0xd
0x126f…127d }
0x127d…12a8 a896 01080 LET QT $ := "INDKOMSTOPG\RELSE…FOR…" + HKL $ + ":"
0x127d…12a8 LineComal80 {
0x127d…12a8 ptr = 0xa896 // 0x127d @0x0
0x127d…12a8 lno = 0x0438 // 0x127f @0x2
0x127d…12a8 at0004 = ╱86╱ LET ╱ // 0x1281 @0x4
0x127d…12a8 at0005 = ╱51╱Q╱ // 0x1282 @0x5
0x127d…12a8 at0006 = ╱54╱T╱ // 0x1283 @0x6
0x127d…12a8 at0007 = ╱ef╱ $ ╱ // 0x1284 @0x7
0x127d…12a8 at0008 = ╱f0╱ := ╱ // 0x1285 @0x8
0x127d…12a8 at0009 = ╱22╱"╱ // 0x1286 @0x9
0x127d…12a8 at000a = ╱49╱I╱ // 0x1287 @0xa
0x127d…12a8 at000b = ╱4e╱N╱ // 0x1288 @0xb
0x127d…12a8 at000c = ╱44╱D╱ // 0x1289 @0xc
0x127d…12a8 at000d = ╱4b╱K╱ // 0x128a @0xd
0x127d…12a8 at000e = ╱4f╱O╱ // 0x128b @0xe
0x127d…12a8 at000f = ╱4d╱M╱ // 0x128c @0xf
0x127d…12a8 at0010 = ╱53╱S╱ // 0x128d @0x10
0x127d…12a8 at0011 = ╱54╱T╱ // 0x128e @0x11
0x127d…12a8 at0012 = ╱4f╱O╱ // 0x128f @0x12
0x127d…12a8 at0013 = ╱50╱P╱ // 0x1290 @0x13
0x127d…12a8 at0014 = ╱47╱G╱ // 0x1291 @0x14
0x127d…12a8 at0015 = ╱5c╱\╱ // 0x1292 @0x15
0x127d…12a8 at0016 = ╱52╱R╱ // 0x1293 @0x16
0x127d…12a8 at0017 = ╱45╱E╱ // 0x1294 @0x17
0x127d…12a8 at0018 = ╱4c╱L╱ // 0x1295 @0x18
0x127d…12a8 at0019 = ╱53╱S╱ // 0x1296 @0x19
0x127d…12a8 at001a = ╱45╱E╱ // 0x1297 @0x1a
0x127d…12a8 at001b = ╱20╱…╱ // 0x1298 @0x1b
0x127d…12a8 at001c = ╱46╱F╱ // 0x1299 @0x1c
0x127d…12a8 at001d = ╱4f╱O╱ // 0x129a @0x1d
0x127d…12a8 at001e = ╱52╱R╱ // 0x129b @0x1e
0x127d…12a8 at001f = ╱20╱…╱ // 0x129c @0x1f
0x127d…12a8 at0020 = ╱22╱"╱ // 0x129d @0x20
0x127d…12a8 at0021 = ╱eb╱ + ╱ // 0x129e @0x21
0x127d…12a8 at0022 = ╱48╱H╱ // 0x129f @0x22
0x127d…12a8 at0023 = ╱4b╱K╱ // 0x12a0 @0x23
0x127d…12a8 at0024 = ╱4c╱L╱ // 0x12a1 @0x24
0x127d…12a8 at0025 = ╱ef╱ $ ╱ // 0x12a2 @0x25
0x127d…12a8 at0026 = ╱eb╱ + ╱ // 0x12a3 @0x26
0x127d…12a8 at0027 = ╱22╱"╱ // 0x12a4 @0x27
0x127d…12a8 at0028 = ╱3a╱:╱ // 0x12a5 @0x28
0x127d…12a8 at0029 = ╱22╱"╱ // 0x12a6 @0x29
0x127d…12a8 at002a = EOL // 0x12a7 @0x2a
0x127d…12a8 }
0x12a8…12b2 a8a0 01085 LET C3 := O
0x12a8…12b2 LineComal80 {
0x12a8…12b2 ptr = 0xa8a0 // 0x12a8 @0x0
0x12a8…12b2 lno = 0x043d // 0x12aa @0x2
0x12a8…12b2 at0004 = ╱86╱ LET ╱ // 0x12ac @0x4
0x12a8…12b2 at0005 = ╱43╱C╱ // 0x12ad @0x5
0x12a8…12b2 at0006 = ╱33╱3╱ // 0x12ae @0x6
0x12a8…12b2 at0007 = ╱f0╱ := ╱ // 0x12af @0x7
0x12a8…12b2 at0008 = ╱4f╱O╱ // 0x12b0 @0x8
0x12a8…12b2 at0009 = EOL // 0x12b1 @0x9
0x12a8…12b2 }
0x12b2…12c8 a8b6 01090 IF T1 = 1 THEN LET C3 := HC3
0x12b2…12c8 LineComal80 {
0x12b2…12c8 ptr = 0xa8b6 // 0x12b2 @0x0
0x12b2…12c8 lno = 0x0442 // 0x12b4 @0x2
0x12b2…12c8 at0004 = ╱8200╱ IF ╱ // 0x12b6 @0x4
0x12b2…12c8 at0006 = ╱54╱T╱ // 0x12b8 @0x6
0x12b2…12c8 at0007 = ╱31╱1╱ // 0x12b9 @0x7
0x12b2…12c8 at0008 = ╱df╱ = ╱ // 0x12ba @0x8
0x12b2…12c8 at0009 = ╱31╱1╱ // 0x12bb @0x9
0x12b2…12c8 at000a = ╱f20100╱ // 0x12bc @0xa
0x12b2…12c8 at000d = ╱b5╱ THEN ╱ // 0x12bf @0xd
0x12b2…12c8 at000e = ╱86╱ LET ╱ // 0x12c0 @0xe
0x12b2…12c8 at000f = ╱43╱C╱ // 0x12c1 @0xf
0x12b2…12c8 at0010 = ╱33╱3╱ // 0x12c2 @0x10
0x12b2…12c8 at0011 = ╱f0╱ := ╱ // 0x12c3 @0x11
0x12b2…12c8 at0012 = ╱48╱H╱ // 0x12c4 @0x12
0x12b2…12c8 at0013 = ╱43╱C╱ // 0x12c5 @0x13
0x12b2…12c8 at0014 = ╱33╱3╱ // 0x12c6 @0x14
0x12b2…12c8 at0015 = EOL // 0x12c7 @0x15
0x12b2…12c8 }
0x12c8…12e4 a8d2 01095 LET C1 := B1 ; C2 := B2 ; B6 := HFORMUE
0x12c8…12e4 LineComal80 {
0x12c8…12e4 ptr = 0xa8d2 // 0x12c8 @0x0
0x12c8…12e4 lno = 0x0447 // 0x12ca @0x2
0x12c8…12e4 at0004 = ╱86╱ LET ╱ // 0x12cc @0x4
0x12c8…12e4 at0005 = ╱43╱C╱ // 0x12cd @0x5
0x12c8…12e4 at0006 = ╱31╱1╱ // 0x12ce @0x6
0x12c8…12e4 at0007 = ╱f0╱ := ╱ // 0x12cf @0x7
0x12c8…12e4 at0008 = ╱42╱B╱ // 0x12d0 @0x8
0x12c8…12e4 at0009 = ╱31╱1╱ // 0x12d1 @0x9
0x12c8…12e4 at000a = ╱ea╱ ; ╱ // 0x12d2 @0xa
0x12c8…12e4 at000b = ╱43╱C╱ // 0x12d3 @0xb
0x12c8…12e4 at000c = ╱32╱2╱ // 0x12d4 @0xc
0x12c8…12e4 at000d = ╱f0╱ := ╱ // 0x12d5 @0xd
0x12c8…12e4 at000e = ╱42╱B╱ // 0x12d6 @0xe
0x12c8…12e4 at000f = ╱32╱2╱ // 0x12d7 @0xf
0x12c8…12e4 at0010 = ╱ea╱ ; ╱ // 0x12d8 @0x10
0x12c8…12e4 at0011 = ╱42╱B╱ // 0x12d9 @0x11
0x12c8…12e4 at0012 = ╱36╱6╱ // 0x12da @0x12
0x12c8…12e4 at0013 = ╱f0╱ := ╱ // 0x12db @0x13
0x12c8…12e4 at0014 = ╱48╱H╱ // 0x12dc @0x14
0x12c8…12e4 at0015 = ╱46╱F╱ // 0x12dd @0x15
0x12c8…12e4 at0016 = ╱4f╱O╱ // 0x12de @0x16
0x12c8…12e4 at0017 = ╱52╱R╱ // 0x12df @0x17
0x12c8…12e4 at0018 = ╱4d╱M╱ // 0x12e0 @0x18
0x12c8…12e4 at0019 = ╱55╱U╱ // 0x12e1 @0x19
0x12c8…12e4 at001a = ╱45╱E╱ // 0x12e2 @0x1a
0x12c8…12e4 at001b = EOL // 0x12e3 @0x1b
0x12c8…12e4 }
0x12e4…12f1 a8df 01100 EXEC SKATIND
0x12e4…12f1 LineComal80 {
0x12e4…12f1 ptr = 0xa8df // 0x12e4 @0x0
0x12e4…12f1 lno = 0x044c // 0x12e6 @0x2
0x12e4…12f1 at0004 = ╱9d╱ EXEC ╱ // 0x12e8 @0x4
0x12e4…12f1 at0005 = ╱53╱S╱ // 0x12e9 @0x5
0x12e4…12f1 at0006 = ╱4b╱K╱ // 0x12ea @0x6
0x12e4…12f1 at0007 = ╱41╱A╱ // 0x12eb @0x7
0x12e4…12f1 at0008 = ╱54╱T╱ // 0x12ec @0x8
0x12e4…12f1 at0009 = ╱49╱I╱ // 0x12ed @0x9
0x12e4…12f1 at000a = ╱4e╱N╱ // 0x12ee @0xa
0x12e4…12f1 at000b = ╱44╱D╱ // 0x12ef @0xb
0x12e4…12f1 at000c = EOL // 0x12f0 @0xc
0x12e4…12f1 }
0x12f1…12fc a8ea 01105 EXEC SKIFT
0x12f1…12fc LineComal80 {
0x12f1…12fc ptr = 0xa8ea // 0x12f1 @0x0
0x12f1…12fc lno = 0x0451 // 0x12f3 @0x2
0x12f1…12fc at0004 = ╱9d╱ EXEC ╱ // 0x12f5 @0x4
0x12f1…12fc at0005 = ╱53╱S╱ // 0x12f6 @0x5
0x12f1…12fc at0006 = ╱4b╱K╱ // 0x12f7 @0x6
0x12f1…12fc at0007 = ╱49╱I╱ // 0x12f8 @0x7
0x12f1…12fc at0008 = ╱46╱F╱ // 0x12f9 @0x8
0x12f1…12fc at0009 = ╱54╱T╱ // 0x12fa @0x9
0x12f1…12fc at000a = EOL // 0x12fb @0xa
0x12f1…12fc }
0x12fc…1308 a8f6 01110 EXEC REGN10
0x12fc…1308 LineComal80 {
0x12fc…1308 ptr = 0xa8f6 // 0x12fc @0x0
0x12fc…1308 lno = 0x0456 // 0x12fe @0x2
0x12fc…1308 at0004 = ╱9d╱ EXEC ╱ // 0x1300 @0x4
0x12fc…1308 at0005 = ╱52╱R╱ // 0x1301 @0x5
0x12fc…1308 at0006 = ╱45╱E╱ // 0x1302 @0x6
0x12fc…1308 at0007 = ╱47╱G╱ // 0x1303 @0x7
0x12fc…1308 at0008 = ╱4e╱N╱ // 0x1304 @0x8
0x12fc…1308 at0009 = ╱31╱1╱ // 0x1305 @0x9
0x12fc…1308 at000a = ╱30╱0╱ // 0x1306 @0xa
0x12fc…1308 at000b = EOL // 0x1307 @0xb
0x12fc…1308 }
0x1308…1312 a900 01115 EXEC SKAT
0x1308…1312 LineComal80 {
0x1308…1312 ptr = 0xa900 // 0x1308 @0x0
0x1308…1312 lno = 0x045b // 0x130a @0x2
0x1308…1312 at0004 = ╱9d╱ EXEC ╱ // 0x130c @0x4
0x1308…1312 at0005 = ╱53╱S╱ // 0x130d @0x5
0x1308…1312 at0006 = ╱4b╱K╱ // 0x130e @0x6
0x1308…1312 at0007 = ╱41╱A╱ // 0x130f @0x7
0x1308…1312 at0008 = ╱54╱T╱ // 0x1310 @0x8
0x1308…1312 at0009 = EOL // 0x1311 @0x9
0x1308…1312 }
0x1312…131f a90d 01120 EXEC INDSKAT
0x1312…131f LineComal80 {
0x1312…131f ptr = 0xa90d // 0x1312 @0x0
0x1312…131f lno = 0x0460 // 0x1314 @0x2
0x1312…131f at0004 = ╱9d╱ EXEC ╱ // 0x1316 @0x4
0x1312…131f at0005 = ╱49╱I╱ // 0x1317 @0x5
0x1312…131f at0006 = ╱4e╱N╱ // 0x1318 @0x6
0x1312…131f at0007 = ╱44╱D╱ // 0x1319 @0x7
0x1312…131f at0008 = ╱53╱S╱ // 0x131a @0x8
0x1312…131f at0009 = ╱4b╱K╱ // 0x131b @0x9
0x1312…131f at000a = ╱41╱A╱ // 0x131c @0xa
0x1312…131f at000b = ╱54╱T╱ // 0x131d @0xb
0x1312…131f at000c = EOL // 0x131e @0xc
0x1312…131f }
0x131f…132a a918 01125 LET FS := B9
0x131f…132a LineComal80 {
0x131f…132a ptr = 0xa918 // 0x131f @0x0
0x131f…132a lno = 0x0465 // 0x1321 @0x2
0x131f…132a at0004 = ╱86╱ LET ╱ // 0x1323 @0x4
0x131f…132a at0005 = ╱46╱F╱ // 0x1324 @0x5
0x131f…132a at0006 = ╱53╱S╱ // 0x1325 @0x6
0x131f…132a at0007 = ╱f0╱ := ╱ // 0x1326 @0x7
0x131f…132a at0008 = ╱42╱B╱ // 0x1327 @0x8
0x131f…132a at0009 = ╱39╱9╱ // 0x1328 @0x9
0x131f…132a at000a = EOL // 0x1329 @0xa
0x131f…132a }
0x132a…1335 a923 01130 EXEC FSKAT
0x132a…1335 LineComal80 {
0x132a…1335 ptr = 0xa923 // 0x132a @0x0
0x132a…1335 lno = 0x046a // 0x132c @0x2
0x132a…1335 at0004 = ╱9d╱ EXEC ╱ // 0x132e @0x4
0x132a…1335 at0005 = ╱46╱F╱ // 0x132f @0x5
0x132a…1335 at0006 = ╱53╱S╱ // 0x1330 @0x6
0x132a…1335 at0007 = ╱4b╱K╱ // 0x1331 @0x7
0x132a…1335 at0008 = ╱41╱A╱ // 0x1332 @0x8
0x132a…1335 at0009 = ╱54╱T╱ // 0x1333 @0x9
0x132a…1335 at000a = EOL // 0x1334 @0xa
0x132a…1335 }
0x1335…1344 a932 01135 EXEC SIDESKIFT
0x1335…1344 LineComal80 {
0x1335…1344 ptr = 0xa932 // 0x1335 @0x0
0x1335…1344 lno = 0x046f // 0x1337 @0x2
0x1335…1344 at0004 = ╱9d╱ EXEC ╱ // 0x1339 @0x4
0x1335…1344 at0005 = ╱53╱S╱ // 0x133a @0x5
0x1335…1344 at0006 = ╱49╱I╱ // 0x133b @0x6
0x1335…1344 at0007 = ╱44╱D╱ // 0x133c @0x7
0x1335…1344 at0008 = ╱45╱E╱ // 0x133d @0x8
0x1335…1344 at0009 = ╱53╱S╱ // 0x133e @0x9
0x1335…1344 at000a = ╱4b╱K╱ // 0x133f @0xa
0x1335…1344 at000b = ╱49╱I╱ // 0x1340 @0xb
0x1335…1344 at000c = ╱46╱F╱ // 0x1341 @0xc
0x1335…1344 at000d = ╱54╱T╱ // 0x1342 @0xd
0x1335…1344 at000e = EOL // 0x1343 @0xe
0x1335…1344 }
0x1344…1350 a93e 01140 IF 2 >< O THEN
0x1344…1350 LineComal80 {
0x1344…1350 ptr = 0xa93e // 0x1344 @0x0
0x1344…1350 lno = 0x0474 // 0x1346 @0x2
0x1344…1350 at0004 = ╱9b0054╱ IF ╱ // 0x1348 @0x4
0x1344…1350 at0007 = ╱32╱2╱ // 0x134b @0x7
0x1344…1350 at0008 = ╱e4╱ >< ╱ // 0x134c @0x8
0x1344…1350 at0009 = ╱4f╱O╱ // 0x134d @0x9
0x1344…1350 at000a = ╱b5╱ THEN ╱ // 0x134e @0xa
0x1344…1350 at000b = EOL // 0x134f @0xb
0x1344…1350 }
0x1350…135e a94c 01145 EXEC S[TATILK
0x1350…135e LineComal80 {
0x1350…135e ptr = 0xa94c // 0x1350 @0x0
0x1350…135e lno = 0x0479 // 0x1352 @0x2
0x1350…135e at0004 = ╱9d╱ EXEC ╱ // 0x1354 @0x4
0x1350…135e at0005 = ╱53╱S╱ // 0x1355 @0x5
0x1350…135e at0006 = ╱5b╱[╱ // 0x1356 @0x6
0x1350…135e at0007 = ╱54╱T╱ // 0x1357 @0x7
0x1350…135e at0008 = ╱41╱A╱ // 0x1358 @0x8
0x1350…135e at0009 = ╱54╱T╱ // 0x1359 @0x9
0x1350…135e at000a = ╱49╱I╱ // 0x135a @0xa
0x1350…135e at000b = ╱4c╱L╱ // 0x135b @0xb
0x1350…135e at000c = ╱4b╱K╱ // 0x135c @0xc
0x1350…135e at000d = EOL // 0x135d @0xd
0x1350…135e }
0x135e…1389 a977 01150 LET QT $ := "INDKOMSTOPG\RELSE…FOR…" + BKL $ + ":"
0x135e…1389 LineComal80 {
0x135e…1389 ptr = 0xa977 // 0x135e @0x0
0x135e…1389 lno = 0x047e // 0x1360 @0x2
0x135e…1389 at0004 = ╱86╱ LET ╱ // 0x1362 @0x4
0x135e…1389 at0005 = ╱51╱Q╱ // 0x1363 @0x5
0x135e…1389 at0006 = ╱54╱T╱ // 0x1364 @0x6
0x135e…1389 at0007 = ╱ef╱ $ ╱ // 0x1365 @0x7
0x135e…1389 at0008 = ╱f0╱ := ╱ // 0x1366 @0x8
0x135e…1389 at0009 = ╱22╱"╱ // 0x1367 @0x9
0x135e…1389 at000a = ╱49╱I╱ // 0x1368 @0xa
0x135e…1389 at000b = ╱4e╱N╱ // 0x1369 @0xb
0x135e…1389 at000c = ╱44╱D╱ // 0x136a @0xc
0x135e…1389 at000d = ╱4b╱K╱ // 0x136b @0xd
0x135e…1389 at000e = ╱4f╱O╱ // 0x136c @0xe
0x135e…1389 at000f = ╱4d╱M╱ // 0x136d @0xf
0x135e…1389 at0010 = ╱53╱S╱ // 0x136e @0x10
0x135e…1389 at0011 = ╱54╱T╱ // 0x136f @0x11
0x135e…1389 at0012 = ╱4f╱O╱ // 0x1370 @0x12
0x135e…1389 at0013 = ╱50╱P╱ // 0x1371 @0x13
0x135e…1389 at0014 = ╱47╱G╱ // 0x1372 @0x14
0x135e…1389 at0015 = ╱5c╱\╱ // 0x1373 @0x15
0x135e…1389 at0016 = ╱52╱R╱ // 0x1374 @0x16
0x135e…1389 at0017 = ╱45╱E╱ // 0x1375 @0x17
0x135e…1389 at0018 = ╱4c╱L╱ // 0x1376 @0x18
0x135e…1389 at0019 = ╱53╱S╱ // 0x1377 @0x19
0x135e…1389 at001a = ╱45╱E╱ // 0x1378 @0x1a
0x135e…1389 at001b = ╱20╱…╱ // 0x1379 @0x1b
0x135e…1389 at001c = ╱46╱F╱ // 0x137a @0x1c
0x135e…1389 at001d = ╱4f╱O╱ // 0x137b @0x1d
0x135e…1389 at001e = ╱52╱R╱ // 0x137c @0x1e
0x135e…1389 at001f = ╱20╱…╱ // 0x137d @0x1f
0x135e…1389 at0020 = ╱22╱"╱ // 0x137e @0x20
0x135e…1389 at0021 = ╱eb╱ + ╱ // 0x137f @0x21
0x135e…1389 at0022 = ╱42╱B╱ // 0x1380 @0x22
0x135e…1389 at0023 = ╱4b╱K╱ // 0x1381 @0x23
0x135e…1389 at0024 = ╱4c╱L╱ // 0x1382 @0x24
0x135e…1389 at0025 = ╱ef╱ $ ╱ // 0x1383 @0x25
0x135e…1389 at0026 = ╱eb╱ + ╱ // 0x1384 @0x26
0x135e…1389 at0027 = ╱22╱"╱ // 0x1385 @0x27
0x135e…1389 at0028 = ╱3a╱:╱ // 0x1386 @0x28
0x135e…1389 at0029 = ╱22╱"╱ // 0x1387 @0x29
0x135e…1389 at002a = EOL // 0x1388 @0x2a
0x135e…1389 }
0x1389…1393 a981 01155 LET C3 := O
0x1389…1393 LineComal80 {
0x1389…1393 ptr = 0xa981 // 0x1389 @0x0
0x1389…1393 lno = 0x0483 // 0x138b @0x2
0x1389…1393 at0004 = ╱86╱ LET ╱ // 0x138d @0x4
0x1389…1393 at0005 = ╱43╱C╱ // 0x138e @0x5
0x1389…1393 at0006 = ╱33╱3╱ // 0x138f @0x6
0x1389…1393 at0007 = ╱f0╱ := ╱ // 0x1390 @0x7
0x1389…1393 at0008 = ╱4f╱O╱ // 0x1391 @0x8
0x1389…1393 at0009 = EOL // 0x1392 @0x9
0x1389…1393 }
0x1393…13a9 a997 01160 IF T3 = 1 THEN LET C3 := BC3
0x1393…13a9 LineComal80 {
0x1393…13a9 ptr = 0xa997 // 0x1393 @0x0
0x1393…13a9 lno = 0x0488 // 0x1395 @0x2
0x1393…13a9 at0004 = ╱8200╱ IF ╱ // 0x1397 @0x4
0x1393…13a9 at0006 = ╱54╱T╱ // 0x1399 @0x6
0x1393…13a9 at0007 = ╱33╱3╱ // 0x139a @0x7
0x1393…13a9 at0008 = ╱df╱ = ╱ // 0x139b @0x8
0x1393…13a9 at0009 = ╱31╱1╱ // 0x139c @0x9
0x1393…13a9 at000a = ╱f20100╱ // 0x139d @0xa
0x1393…13a9 at000d = ╱b5╱ THEN ╱ // 0x13a0 @0xd
0x1393…13a9 at000e = ╱86╱ LET ╱ // 0x13a1 @0xe
0x1393…13a9 at000f = ╱43╱C╱ // 0x13a2 @0xf
0x1393…13a9 at0010 = ╱33╱3╱ // 0x13a3 @0x10
0x1393…13a9 at0011 = ╱f0╱ := ╱ // 0x13a4 @0x11
0x1393…13a9 at0012 = ╱42╱B╱ // 0x13a5 @0x12
0x1393…13a9 at0013 = ╱43╱C╱ // 0x13a6 @0x13
0x1393…13a9 at0014 = ╱33╱3╱ // 0x13a7 @0x14
0x1393…13a9 at0015 = EOL // 0x13a8 @0x15
0x1393…13a9 }
0x13a9…13c5 a9b3 01165 LET C1 := B4 ; C2 := B5 ; B6 := BFORMUE
0x13a9…13c5 LineComal80 {
0x13a9…13c5 ptr = 0xa9b3 // 0x13a9 @0x0
0x13a9…13c5 lno = 0x048d // 0x13ab @0x2
0x13a9…13c5 at0004 = ╱86╱ LET ╱ // 0x13ad @0x4
0x13a9…13c5 at0005 = ╱43╱C╱ // 0x13ae @0x5
0x13a9…13c5 at0006 = ╱31╱1╱ // 0x13af @0x6
0x13a9…13c5 at0007 = ╱f0╱ := ╱ // 0x13b0 @0x7
0x13a9…13c5 at0008 = ╱42╱B╱ // 0x13b1 @0x8
0x13a9…13c5 at0009 = ╱34╱4╱ // 0x13b2 @0x9
0x13a9…13c5 at000a = ╱ea╱ ; ╱ // 0x13b3 @0xa
0x13a9…13c5 at000b = ╱43╱C╱ // 0x13b4 @0xb
0x13a9…13c5 at000c = ╱32╱2╱ // 0x13b5 @0xc
0x13a9…13c5 at000d = ╱f0╱ := ╱ // 0x13b6 @0xd
0x13a9…13c5 at000e = ╱42╱B╱ // 0x13b7 @0xe
0x13a9…13c5 at000f = ╱35╱5╱ // 0x13b8 @0xf
0x13a9…13c5 at0010 = ╱ea╱ ; ╱ // 0x13b9 @0x10
0x13a9…13c5 at0011 = ╱42╱B╱ // 0x13ba @0x11
0x13a9…13c5 at0012 = ╱36╱6╱ // 0x13bb @0x12
0x13a9…13c5 at0013 = ╱f0╱ := ╱ // 0x13bc @0x13
0x13a9…13c5 at0014 = ╱42╱B╱ // 0x13bd @0x14
0x13a9…13c5 at0015 = ╱46╱F╱ // 0x13be @0x15
0x13a9…13c5 at0016 = ╱4f╱O╱ // 0x13bf @0x16
0x13a9…13c5 at0017 = ╱52╱R╱ // 0x13c0 @0x17
0x13a9…13c5 at0018 = ╱4d╱M╱ // 0x13c1 @0x18
0x13a9…13c5 at0019 = ╱55╱U╱ // 0x13c2 @0x19
0x13a9…13c5 at001a = ╱45╱E╱ // 0x13c3 @0x1a
0x13a9…13c5 at001b = EOL // 0x13c4 @0x1b
0x13a9…13c5 }
0x13c5…13d2 a9c0 01170 EXEC SKATIND
0x13c5…13d2 LineComal80 {
0x13c5…13d2 ptr = 0xa9c0 // 0x13c5 @0x0
0x13c5…13d2 lno = 0x0492 // 0x13c7 @0x2
0x13c5…13d2 at0004 = ╱9d╱ EXEC ╱ // 0x13c9 @0x4
0x13c5…13d2 at0005 = ╱53╱S╱ // 0x13ca @0x5
0x13c5…13d2 at0006 = ╱4b╱K╱ // 0x13cb @0x6
0x13c5…13d2 at0007 = ╱41╱A╱ // 0x13cc @0x7
0x13c5…13d2 at0008 = ╱54╱T╱ // 0x13cd @0x8
0x13c5…13d2 at0009 = ╱49╱I╱ // 0x13ce @0x9
0x13c5…13d2 at000a = ╱4e╱N╱ // 0x13cf @0xa
0x13c5…13d2 at000b = ╱44╱D╱ // 0x13d0 @0xb
0x13c5…13d2 at000c = EOL // 0x13d1 @0xc
0x13c5…13d2 }
0x13d2…13dd a9cb 01175 EXEC SKIFT
0x13d2…13dd LineComal80 {
0x13d2…13dd ptr = 0xa9cb // 0x13d2 @0x0
0x13d2…13dd lno = 0x0497 // 0x13d4 @0x2
0x13d2…13dd at0004 = ╱9d╱ EXEC ╱ // 0x13d6 @0x4
0x13d2…13dd at0005 = ╱53╱S╱ // 0x13d7 @0x5
0x13d2…13dd at0006 = ╱4b╱K╱ // 0x13d8 @0x6
0x13d2…13dd at0007 = ╱49╱I╱ // 0x13d9 @0x7
0x13d2…13dd at0008 = ╱46╱F╱ // 0x13da @0x8
0x13d2…13dd at0009 = ╱54╱T╱ // 0x13db @0x9
0x13d2…13dd at000a = EOL // 0x13dc @0xa
0x13d2…13dd }
0x13dd…13e9 a9d7 01180 EXEC REGN22
0x13dd…13e9 LineComal80 {
0x13dd…13e9 ptr = 0xa9d7 // 0x13dd @0x0
0x13dd…13e9 lno = 0x049c // 0x13df @0x2
0x13dd…13e9 at0004 = ╱9d╱ EXEC ╱ // 0x13e1 @0x4
0x13dd…13e9 at0005 = ╱52╱R╱ // 0x13e2 @0x5
0x13dd…13e9 at0006 = ╱45╱E╱ // 0x13e3 @0x6
0x13dd…13e9 at0007 = ╱47╱G╱ // 0x13e4 @0x7
0x13dd…13e9 at0008 = ╱4e╱N╱ // 0x13e5 @0x8
0x13dd…13e9 at0009 = ╱32╱2╱ // 0x13e6 @0x9
0x13dd…13e9 at000a = ╱32╱2╱ // 0x13e7 @0xa
0x13dd…13e9 at000b = EOL // 0x13e8 @0xb
0x13dd…13e9 }
0x13e9…13f3 a9e1 01185 EXEC SKAT
0x13e9…13f3 LineComal80 {
0x13e9…13f3 ptr = 0xa9e1 // 0x13e9 @0x0
0x13e9…13f3 lno = 0x04a1 // 0x13eb @0x2
0x13e9…13f3 at0004 = ╱9d╱ EXEC ╱ // 0x13ed @0x4
0x13e9…13f3 at0005 = ╱53╱S╱ // 0x13ee @0x5
0x13e9…13f3 at0006 = ╱4b╱K╱ // 0x13ef @0x6
0x13e9…13f3 at0007 = ╱41╱A╱ // 0x13f0 @0x7
0x13e9…13f3 at0008 = ╱54╱T╱ // 0x13f1 @0x8
0x13e9…13f3 at0009 = EOL // 0x13f2 @0x9
0x13e9…13f3 }
0x13f3…1400 a9ee 01190 EXEC INDSKAT
0x13f3…1400 LineComal80 {
0x13f3…1400 ptr = 0xa9ee // 0x13f3 @0x0
0x13f3…1400 lno = 0x04a6 // 0x13f5 @0x2
0x13f3…1400 at0004 = ╱9d╱ EXEC ╱ // 0x13f7 @0x4
0x13f3…1400 at0005 = ╱49╱I╱ // 0x13f8 @0x5
0x13f3…1400 at0006 = ╱4e╱N╱ // 0x13f9 @0x6
0x13f3…1400 at0007 = ╱44╱D╱ // 0x13fa @0x7
0x13f3…1400 at0008 = ╱53╱S╱ // 0x13fb @0x8
0x13f3…1400 at0009 = ╱4b╱K╱ // 0x13fc @0x9
0x13f3…1400 at000a = ╱41╱A╱ // 0x13fd @0xa
0x13f3…1400 at000b = ╱54╱T╱ // 0x13fe @0xb
0x13f3…1400 at000c = EOL // 0x13ff @0xc
0x13f3…1400 }
0x1400…140b a9f9 01195 LET FS := E6
0x1400…140b LineComal80 {
0x1400…140b ptr = 0xa9f9 // 0x1400 @0x0
0x1400…140b lno = 0x04ab // 0x1402 @0x2
0x1400…140b at0004 = ╱86╱ LET ╱ // 0x1404 @0x4
0x1400…140b at0005 = ╱46╱F╱ // 0x1405 @0x5
0x1400…140b at0006 = ╱53╱S╱ // 0x1406 @0x6
0x1400…140b at0007 = ╱f0╱ := ╱ // 0x1407 @0x7
0x1400…140b at0008 = ╱45╱E╱ // 0x1408 @0x8
0x1400…140b at0009 = ╱36╱6╱ // 0x1409 @0x9
0x1400…140b at000a = EOL // 0x140a @0xa
0x1400…140b }
0x140b…1416 aa04 01200 EXEC FSKAT
0x140b…1416 LineComal80 {
0x140b…1416 ptr = 0xaa04 // 0x140b @0x0
0x140b…1416 lno = 0x04b0 // 0x140d @0x2
0x140b…1416 at0004 = ╱9d╱ EXEC ╱ // 0x140f @0x4
0x140b…1416 at0005 = ╱46╱F╱ // 0x1410 @0x5
0x140b…1416 at0006 = ╱53╱S╱ // 0x1411 @0x6
0x140b…1416 at0007 = ╱4b╱K╱ // 0x1412 @0x7
0x140b…1416 at0008 = ╱41╱A╱ // 0x1413 @0x8
0x140b…1416 at0009 = ╱54╱T╱ // 0x1414 @0x9
0x140b…1416 at000a = EOL // 0x1415 @0xa
0x140b…1416 }
0x1416…1425 aa13 01205 EXEC SIDESKIFT
0x1416…1425 LineComal80 {
0x1416…1425 ptr = 0xaa13 // 0x1416 @0x0
0x1416…1425 lno = 0x04b5 // 0x1418 @0x2
0x1416…1425 at0004 = ╱9d╱ EXEC ╱ // 0x141a @0x4
0x1416…1425 at0005 = ╱53╱S╱ // 0x141b @0x5
0x1416…1425 at0006 = ╱49╱I╱ // 0x141c @0x6
0x1416…1425 at0007 = ╱44╱D╱ // 0x141d @0x7
0x1416…1425 at0008 = ╱45╱E╱ // 0x141e @0x8
0x1416…1425 at0009 = ╱53╱S╱ // 0x141f @0x9
0x1416…1425 at000a = ╱4b╱K╱ // 0x1420 @0xa
0x1416…1425 at000b = ╱49╱I╱ // 0x1421 @0xb
0x1416…1425 at000c = ╱46╱F╱ // 0x1422 @0xc
0x1416…1425 at000d = ╱54╱T╱ // 0x1423 @0xd
0x1416…1425 at000e = EOL // 0x1424 @0xe
0x1416…1425 }
0x1425…142b aa19 01210 ENDIF
0x1425…142b LineComal80 {
0x1425…142b ptr = 0xaa19 // 0x1425 @0x0
0x1425…142b lno = 0x04ba // 0x1427 @0x2
0x1425…142b at0004 = ╱9c╱ ENDIF ╱ // 0x1429 @0x4
0x1425…142b at0005 = EOL // 0x142a @0x5
0x1425…142b }
0x142b…1438 aa26 01215 EXEC SKATPRO
0x142b…1438 LineComal80 {
0x142b…1438 ptr = 0xaa26 // 0x142b @0x0
0x142b…1438 lno = 0x04bf // 0x142d @0x2
0x142b…1438 at0004 = ╱9d╱ EXEC ╱ // 0x142f @0x4
0x142b…1438 at0005 = ╱53╱S╱ // 0x1430 @0x5
0x142b…1438 at0006 = ╱4b╱K╱ // 0x1431 @0x6
0x142b…1438 at0007 = ╱41╱A╱ // 0x1432 @0x7
0x142b…1438 at0008 = ╱54╱T╱ // 0x1433 @0x8
0x142b…1438 at0009 = ╱50╱P╱ // 0x1434 @0x9
0x142b…1438 at000a = ╱52╱R╱ // 0x1435 @0xa
0x142b…1438 at000b = ╱4f╱O╱ // 0x1436 @0xb
0x142b…1438 at000c = EOL // 0x1437 @0xc
0x142b…1438 }
0x1438…1443 aa31 01220 EXEC SKIFT
0x1438…1443 LineComal80 {
0x1438…1443 ptr = 0xaa31 // 0x1438 @0x0
0x1438…1443 lno = 0x04c4 // 0x143a @0x2
0x1438…1443 at0004 = ╱9d╱ EXEC ╱ // 0x143c @0x4
0x1438…1443 at0005 = ╱53╱S╱ // 0x143d @0x5
0x1438…1443 at0006 = ╱4b╱K╱ // 0x143e @0x6
0x1438…1443 at0007 = ╱49╱I╱ // 0x143f @0x7
0x1438…1443 at0008 = ╱46╱F╱ // 0x1440 @0x8
0x1438…1443 at0009 = ╱54╱T╱ // 0x1441 @0x9
0x1438…1443 at000a = EOL // 0x1442 @0xa
0x1438…1443 }
0x1443…144a aa38 01225 NEXT Y
0x1443…144a LineComal80 {
0x1443…144a ptr = 0xaa38 // 0x1443 @0x0
0x1443…144a lno = 0x04c9 // 0x1445 @0x2
0x1443…144a at0004 = ╱84╱ NEXT ╱ // 0x1447 @0x4
0x1443…144a at0005 = ╱59╱Y╱ // 0x1448 @0x5
0x1443…144a at0006 = EOL // 0x1449 @0x6
0x1443…144a }
0x144a…1453 aa41 01230 OUTPUT "T"
0x144a…1453 LineComal80 {
0x144a…1453 ptr = 0xaa41 // 0x144a @0x0
0x144a…1453 lno = 0x04ce // 0x144c @0x2
0x144a…1453 at0004 = ╱a5╱ OUTPUT ╱ // 0x144e @0x4
0x144a…1453 at0005 = ╱22╱"╱ // 0x144f @0x5
0x144a…1453 at0006 = ╱54╱T╱ // 0x1450 @0x6
0x144a…1453 at0007 = ╱22╱"╱ // 0x1451 @0x7
0x144a…1453 at0008 = EOL // 0x1452 @0x8
0x144a…1453 }
0x1453…145c aa4a 01235 PRINT LI $
0x1453…145c LineComal80 {
0x1453…145c ptr = 0xaa4a // 0x1453 @0x0
0x1453…145c lno = 0x04d3 // 0x1455 @0x2
0x1453…145c at0004 = ╱92╱ PRINT ╱ // 0x1457 @0x4
0x1453…145c at0005 = ╱4c╱L╱ // 0x1458 @0x5
0x1453…145c at0006 = ╱49╱I╱ // 0x1459 @0x6
0x1453…145c at0007 = ╱ef╱ $ ╱ // 0x145a @0x7
0x1453…145c at0008 = EOL // 0x145b @0x8
0x1453…145c }
0x145c…14a0 aa8e 01240 PRINT "\nskes…beregning…af…forskudsregistrering,…d.v.s…skattekort…" ;
0x145c…14a0 LineComal80 {
0x145c…14a0 ptr = 0xaa8e // 0x145c @0x0
0x145c…14a0 lno = 0x04d8 // 0x145e @0x2
0x145c…14a0 at0004 = ╱92╱ PRINT ╱ // 0x1460 @0x4
0x145c…14a0 at0005 = ╱22╱"╱ // 0x1461 @0x5
0x145c…14a0 at0006 = ╱5c╱\╱ // 0x1462 @0x6
0x145c…14a0 at0007 = ╱6e╱n╱ // 0x1463 @0x7
0x145c…14a0 at0008 = ╱73╱s╱ // 0x1464 @0x8
0x145c…14a0 at0009 = ╱6b╱k╱ // 0x1465 @0x9
0x145c…14a0 at000a = ╱65╱e╱ // 0x1466 @0xa
0x145c…14a0 at000b = ╱73╱s╱ // 0x1467 @0xb
0x145c…14a0 at000c = ╱20╱…╱ // 0x1468 @0xc
0x145c…14a0 at000d = ╱62╱b╱ // 0x1469 @0xd
0x145c…14a0 at000e = ╱65╱e╱ // 0x146a @0xe
0x145c…14a0 at000f = ╱72╱r╱ // 0x146b @0xf
0x145c…14a0 at0010 = ╱65╱e╱ // 0x146c @0x10
0x145c…14a0 at0011 = ╱67╱g╱ // 0x146d @0x11
0x145c…14a0 at0012 = ╱6e╱n╱ // 0x146e @0x12
0x145c…14a0 at0013 = ╱69╱i╱ // 0x146f @0x13
0x145c…14a0 at0014 = ╱6e╱n╱ // 0x1470 @0x14
0x145c…14a0 at0015 = ╱67╱g╱ // 0x1471 @0x15
0x145c…14a0 at0016 = ╱20╱…╱ // 0x1472 @0x16
0x145c…14a0 at0017 = ╱61╱a╱ // 0x1473 @0x17
0x145c…14a0 at0018 = ╱66╱f╱ // 0x1474 @0x18
0x145c…14a0 at0019 = ╱20╱…╱ // 0x1475 @0x19
0x145c…14a0 at001a = ╱66╱f╱ // 0x1476 @0x1a
0x145c…14a0 at001b = ╱6f╱o╱ // 0x1477 @0x1b
0x145c…14a0 at001c = ╱72╱r╱ // 0x1478 @0x1c
0x145c…14a0 at001d = ╱73╱s╱ // 0x1479 @0x1d
0x145c…14a0 at001e = ╱6b╱k╱ // 0x147a @0x1e
0x145c…14a0 at001f = ╱75╱u╱ // 0x147b @0x1f
0x145c…14a0 at0020 = ╱64╱d╱ // 0x147c @0x20
0x145c…14a0 at0021 = ╱73╱s╱ // 0x147d @0x21
0x145c…14a0 at0022 = ╱72╱r╱ // 0x147e @0x22
0x145c…14a0 at0023 = ╱65╱e╱ // 0x147f @0x23
0x145c…14a0 at0024 = ╱67╱g╱ // 0x1480 @0x24
0x145c…14a0 at0025 = ╱69╱i╱ // 0x1481 @0x25
0x145c…14a0 at0026 = ╱73╱s╱ // 0x1482 @0x26
0x145c…14a0 at0027 = ╱74╱t╱ // 0x1483 @0x27
0x145c…14a0 at0028 = ╱72╱r╱ // 0x1484 @0x28
0x145c…14a0 at0029 = ╱65╱e╱ // 0x1485 @0x29
0x145c…14a0 at002a = ╱72╱r╱ // 0x1486 @0x2a
0x145c…14a0 at002b = ╱69╱i╱ // 0x1487 @0x2b
0x145c…14a0 at002c = ╱6e╱n╱ // 0x1488 @0x2c
0x145c…14a0 at002d = ╱67╱g╱ // 0x1489 @0x2d
0x145c…14a0 at002e = ╱2c╱,╱ // 0x148a @0x2e
0x145c…14a0 at002f = ╱20╱…╱ // 0x148b @0x2f
0x145c…14a0 at0030 = ╱64╱d╱ // 0x148c @0x30
0x145c…14a0 at0031 = ╱2e╱.╱ // 0x148d @0x31
0x145c…14a0 at0032 = ╱76╱v╱ // 0x148e @0x32
0x145c…14a0 at0033 = ╱2e╱.╱ // 0x148f @0x33
0x145c…14a0 at0034 = ╱73╱s╱ // 0x1490 @0x34
0x145c…14a0 at0035 = ╱20╱…╱ // 0x1491 @0x35
0x145c…14a0 at0036 = ╱73╱s╱ // 0x1492 @0x36
0x145c…14a0 at0037 = ╱6b╱k╱ // 0x1493 @0x37
0x145c…14a0 at0038 = ╱61╱a╱ // 0x1494 @0x38
0x145c…14a0 at0039 = ╱74╱t╱ // 0x1495 @0x39
0x145c…14a0 at003a = ╱74╱t╱ // 0x1496 @0x3a
0x145c…14a0 at003b = ╱65╱e╱ // 0x1497 @0x3b
0x145c…14a0 at003c = ╱6b╱k╱ // 0x1498 @0x3c
0x145c…14a0 at003d = ╱6f╱o╱ // 0x1499 @0x3d
0x145c…14a0 at003e = ╱72╱r╱ // 0x149a @0x3e
0x145c…14a0 at003f = ╱74╱t╱ // 0x149b @0x3f
0x145c…14a0 at0040 = ╱20╱…╱ // 0x149c @0x40
0x145c…14a0 at0041 = ╱22╱"╱ // 0x149d @0x41
0x145c…14a0 at0042 = ╱ea╱ ; ╱ // 0x149e @0x42
0x145c…14a0 at0043 = EOL // 0x149f @0x43
0x145c…14a0 }
0x14a0…14ad aa9b 01245 PRINT "m.v." ;
0x14a0…14ad LineComal80 {
0x14a0…14ad ptr = 0xaa9b // 0x14a0 @0x0
0x14a0…14ad lno = 0x04dd // 0x14a2 @0x2
0x14a0…14ad at0004 = ╱92╱ PRINT ╱ // 0x14a4 @0x4
0x14a0…14ad at0005 = ╱22╱"╱ // 0x14a5 @0x5
0x14a0…14ad at0006 = ╱6d╱m╱ // 0x14a6 @0x6
0x14a0…14ad at0007 = ╱2e╱.╱ // 0x14a7 @0x7
0x14a0…14ad at0008 = ╱76╱v╱ // 0x14a8 @0x8
0x14a0…14ad at0009 = ╱2e╱.╱ // 0x14a9 @0x9
0x14a0…14ad at000a = ╱22╱"╱ // 0x14aa @0xa
0x14a0…14ad at000b = ╱ea╱ ; ╱ // 0x14ab @0xb
0x14a0…14ad at000c = EOL // 0x14ac @0xc
0x14a0…14ad }
0x14ad…14b7 aaa5 01250 EXEC SVAR
0x14ad…14b7 LineComal80 {
0x14ad…14b7 ptr = 0xaaa5 // 0x14ad @0x0
0x14ad…14b7 lno = 0x04e2 // 0x14af @0x2
0x14ad…14b7 at0004 = ╱9d╱ EXEC ╱ // 0x14b1 @0x4
0x14ad…14b7 at0005 = ╱53╱S╱ // 0x14b2 @0x5
0x14ad…14b7 at0006 = ╱56╱V╱ // 0x14b3 @0x6
0x14ad…14b7 at0007 = ╱41╱A╱ // 0x14b4 @0x7
0x14ad…14b7 at0008 = ╱52╱R╱ // 0x14b5 @0x8
0x14ad…14b7 at0009 = EOL // 0x14b6 @0x9
0x14ad…14b7 }
0x14b7…14c5 aab3 01255 IF $ = "j" THEN
0x14b7…14c5 LineComal80 {
0x14b7…14c5 ptr = 0xaab3 // 0x14b7 @0x0
0x14b7…14c5 lno = 0x04e7 // 0x14b9 @0x2
0x14b7…14c5 at0004 = ╱9b0053╱ IF ╱ // 0x14bb @0x4
0x14b7…14c5 at0007 = ╱ef╱ $ ╱ // 0x14be @0x7
0x14b7…14c5 at0008 = ╱df╱ = ╱ // 0x14bf @0x8
0x14b7…14c5 at0009 = ╱22╱"╱ // 0x14c0 @0x9
0x14b7…14c5 at000a = ╱6a╱j╱ // 0x14c1 @0xa
0x14b7…14c5 at000b = ╱22╱"╱ // 0x14c2 @0xb
0x14b7…14c5 at000c = ╱b5╱ THEN ╱ // 0x14c3 @0xc
0x14b7…14c5 at000d = EOL // 0x14c4 @0xd
0x14b7…14c5 }
0x14c5…1507 aaf5 01260 PRINT "***…VENT…****…FORSKUDSREGISTREINGS…PROGRAMMET…INDL[SES…***"
0x14c5…1507 LineComal80 {
0x14c5…1507 ptr = 0xaaf5 // 0x14c5 @0x0
0x14c5…1507 lno = 0x04ec // 0x14c7 @0x2
0x14c5…1507 at0004 = ╱92╱ PRINT ╱ // 0x14c9 @0x4
0x14c5…1507 at0005 = ╱22╱"╱ // 0x14ca @0x5
0x14c5…1507 at0006 = ╱2a╱*╱ // 0x14cb @0x6
0x14c5…1507 at0007 = ╱2a╱*╱ // 0x14cc @0x7
0x14c5…1507 at0008 = ╱2a╱*╱ // 0x14cd @0x8
0x14c5…1507 at0009 = ╱20╱…╱ // 0x14ce @0x9
0x14c5…1507 at000a = ╱56╱V╱ // 0x14cf @0xa
0x14c5…1507 at000b = ╱45╱E╱ // 0x14d0 @0xb
0x14c5…1507 at000c = ╱4e╱N╱ // 0x14d1 @0xc
0x14c5…1507 at000d = ╱54╱T╱ // 0x14d2 @0xd
0x14c5…1507 at000e = ╱20╱…╱ // 0x14d3 @0xe
0x14c5…1507 at000f = ╱2a╱*╱ // 0x14d4 @0xf
0x14c5…1507 at0010 = ╱2a╱*╱ // 0x14d5 @0x10
0x14c5…1507 at0011 = ╱2a╱*╱ // 0x14d6 @0x11
0x14c5…1507 at0012 = ╱2a╱*╱ // 0x14d7 @0x12
0x14c5…1507 at0013 = ╱20╱…╱ // 0x14d8 @0x13
0x14c5…1507 at0014 = ╱46╱F╱ // 0x14d9 @0x14
0x14c5…1507 at0015 = ╱4f╱O╱ // 0x14da @0x15
0x14c5…1507 at0016 = ╱52╱R╱ // 0x14db @0x16
0x14c5…1507 at0017 = ╱53╱S╱ // 0x14dc @0x17
0x14c5…1507 at0018 = ╱4b╱K╱ // 0x14dd @0x18
0x14c5…1507 at0019 = ╱55╱U╱ // 0x14de @0x19
0x14c5…1507 at001a = ╱44╱D╱ // 0x14df @0x1a
0x14c5…1507 at001b = ╱53╱S╱ // 0x14e0 @0x1b
0x14c5…1507 at001c = ╱52╱R╱ // 0x14e1 @0x1c
0x14c5…1507 at001d = ╱45╱E╱ // 0x14e2 @0x1d
0x14c5…1507 at001e = ╱47╱G╱ // 0x14e3 @0x1e
0x14c5…1507 at001f = ╱49╱I╱ // 0x14e4 @0x1f
0x14c5…1507 at0020 = ╱53╱S╱ // 0x14e5 @0x20
0x14c5…1507 at0021 = ╱54╱T╱ // 0x14e6 @0x21
0x14c5…1507 at0022 = ╱52╱R╱ // 0x14e7 @0x22
0x14c5…1507 at0023 = ╱45╱E╱ // 0x14e8 @0x23
0x14c5…1507 at0024 = ╱49╱I╱ // 0x14e9 @0x24
0x14c5…1507 at0025 = ╱4e╱N╱ // 0x14ea @0x25
0x14c5…1507 at0026 = ╱47╱G╱ // 0x14eb @0x26
0x14c5…1507 at0027 = ╱53╱S╱ // 0x14ec @0x27
0x14c5…1507 at0028 = ╱20╱…╱ // 0x14ed @0x28
0x14c5…1507 at0029 = ╱50╱P╱ // 0x14ee @0x29
0x14c5…1507 at002a = ╱52╱R╱ // 0x14ef @0x2a
0x14c5…1507 at002b = ╱4f╱O╱ // 0x14f0 @0x2b
0x14c5…1507 at002c = ╱47╱G╱ // 0x14f1 @0x2c
0x14c5…1507 at002d = ╱52╱R╱ // 0x14f2 @0x2d
0x14c5…1507 at002e = ╱41╱A╱ // 0x14f3 @0x2e
0x14c5…1507 at002f = ╱4d╱M╱ // 0x14f4 @0x2f
0x14c5…1507 at0030 = ╱4d╱M╱ // 0x14f5 @0x30
0x14c5…1507 at0031 = ╱45╱E╱ // 0x14f6 @0x31
0x14c5…1507 at0032 = ╱54╱T╱ // 0x14f7 @0x32
0x14c5…1507 at0033 = ╱20╱…╱ // 0x14f8 @0x33
0x14c5…1507 at0034 = ╱49╱I╱ // 0x14f9 @0x34
0x14c5…1507 at0035 = ╱4e╱N╱ // 0x14fa @0x35
0x14c5…1507 at0036 = ╱44╱D╱ // 0x14fb @0x36
0x14c5…1507 at0037 = ╱4c╱L╱ // 0x14fc @0x37
0x14c5…1507 at0038 = ╱5b╱[╱ // 0x14fd @0x38
0x14c5…1507 at0039 = ╱53╱S╱ // 0x14fe @0x39
0x14c5…1507 at003a = ╱45╱E╱ // 0x14ff @0x3a
0x14c5…1507 at003b = ╱53╱S╱ // 0x1500 @0x3b
0x14c5…1507 at003c = ╱20╱…╱ // 0x1501 @0x3c
0x14c5…1507 at003d = ╱2a╱*╱ // 0x1502 @0x3d
0x14c5…1507 at003e = ╱2a╱*╱ // 0x1503 @0x3e
0x14c5…1507 at003f = ╱2a╱*╱ // 0x1504 @0x3f
0x14c5…1507 at0040 = ╱22╱"╱ // 0x1505 @0x40
0x14c5…1507 at0041 = EOL // 0x1506 @0x41
0x14c5…1507 }
0x1507…1519 ab07 01265 EXEC PROGRAMSKIFT
0x1507…1519 LineComal80 {
0x1507…1519 ptr = 0xab07 // 0x1507 @0x0
0x1507…1519 lno = 0x04f1 // 0x1509 @0x2
0x1507…1519 at0004 = ╱9d╱ EXEC ╱ // 0x150b @0x4
0x1507…1519 at0005 = ╱50╱P╱ // 0x150c @0x5
0x1507…1519 at0006 = ╱52╱R╱ // 0x150d @0x6
0x1507…1519 at0007 = ╱4f╱O╱ // 0x150e @0x7
0x1507…1519 at0008 = ╱47╱G╱ // 0x150f @0x8
0x1507…1519 at0009 = ╱52╱R╱ // 0x1510 @0x9
0x1507…1519 at000a = ╱41╱A╱ // 0x1511 @0xa
0x1507…1519 at000b = ╱4d╱M╱ // 0x1512 @0xb
0x1507…1519 at000c = ╱53╱S╱ // 0x1513 @0xc
0x1507…1519 at000d = ╱4b╱K╱ // 0x1514 @0xd
0x1507…1519 at000e = ╱49╱I╱ // 0x1515 @0xe
0x1507…1519 at000f = ╱46╱F╱ // 0x1516 @0xf
0x1507…1519 at0010 = ╱54╱T╱ // 0x1517 @0x10
0x1507…1519 at0011 = EOL // 0x1518 @0x11
0x1507…1519 }
0x1519…152c ab1a 01270 CHAIN "dde:forsk85"
0x1519…152c LineComal80 {
0x1519…152c ptr = 0xab1a // 0x1519 @0x0
0x1519…152c lno = 0x04f6 // 0x151b @0x2
0x1519…152c at0004 = ╱ac╱ CHAIN ╱ // 0x151d @0x4
0x1519…152c at0005 = ╱22╱"╱ // 0x151e @0x5
0x1519…152c at0006 = ╱64╱d╱ // 0x151f @0x6
0x1519…152c at0007 = ╱64╱d╱ // 0x1520 @0x7
0x1519…152c at0008 = ╱65╱e╱ // 0x1521 @0x8
0x1519…152c at0009 = ╱3a╱:╱ // 0x1522 @0x9
0x1519…152c at000a = ╱66╱f╱ // 0x1523 @0xa
0x1519…152c at000b = ╱6f╱o╱ // 0x1524 @0xb
0x1519…152c at000c = ╱72╱r╱ // 0x1525 @0xc
0x1519…152c at000d = ╱73╱s╱ // 0x1526 @0xd
0x1519…152c at000e = ╱6b╱k╱ // 0x1527 @0xe
0x1519…152c at000f = ╱38╱8╱ // 0x1528 @0xf
0x1519…152c at0010 = ╱35╱5╱ // 0x1529 @0x10
0x1519…152c at0011 = ╱22╱"╱ // 0x152a @0x11
0x1519…152c at0012 = EOL // 0x152b @0x12
0x1519…152c }
0x152c…1532 ab20 01275 ENDIF
0x152c…1532 LineComal80 {
0x152c…1532 ptr = 0xab20 // 0x152c @0x0
0x152c…1532 lno = 0x04fb // 0x152e @0x2
0x152c…1532 at0004 = ╱9c╱ ENDIF ╱ // 0x1530 @0x4
0x152c…1532 at0005 = EOL // 0x1531 @0x5
0x152c…1532 }
0x1532…1558 ab46 01280 PRINT "\nskes…}rsopg|relse…udskrevet" ;
0x1532…1558 LineComal80 {
0x1532…1558 ptr = 0xab46 // 0x1532 @0x0
0x1532…1558 lno = 0x0500 // 0x1534 @0x2
0x1532…1558 at0004 = ╱92╱ PRINT ╱ // 0x1536 @0x4
0x1532…1558 at0005 = ╱22╱"╱ // 0x1537 @0x5
0x1532…1558 at0006 = ╱5c╱\╱ // 0x1538 @0x6
0x1532…1558 at0007 = ╱6e╱n╱ // 0x1539 @0x7
0x1532…1558 at0008 = ╱73╱s╱ // 0x153a @0x8
0x1532…1558 at0009 = ╱6b╱k╱ // 0x153b @0x9
0x1532…1558 at000a = ╱65╱e╱ // 0x153c @0xa
0x1532…1558 at000b = ╱73╱s╱ // 0x153d @0xb
0x1532…1558 at000c = ╱20╱…╱ // 0x153e @0xc
0x1532…1558 at000d = ╱7d╱}╱ // 0x153f @0xd
0x1532…1558 at000e = ╱72╱r╱ // 0x1540 @0xe
0x1532…1558 at000f = ╱73╱s╱ // 0x1541 @0xf
0x1532…1558 at0010 = ╱6f╱o╱ // 0x1542 @0x10
0x1532…1558 at0011 = ╱70╱p╱ // 0x1543 @0x11
0x1532…1558 at0012 = ╱67╱g╱ // 0x1544 @0x12
0x1532…1558 at0013 = ╱7c╱|╱ // 0x1545 @0x13
0x1532…1558 at0014 = ╱72╱r╱ // 0x1546 @0x14
0x1532…1558 at0015 = ╱65╱e╱ // 0x1547 @0x15
0x1532…1558 at0016 = ╱6c╱l╱ // 0x1548 @0x16
0x1532…1558 at0017 = ╱73╱s╱ // 0x1549 @0x17
0x1532…1558 at0018 = ╱65╱e╱ // 0x154a @0x18
0x1532…1558 at0019 = ╱20╱…╱ // 0x154b @0x19
0x1532…1558 at001a = ╱75╱u╱ // 0x154c @0x1a
0x1532…1558 at001b = ╱64╱d╱ // 0x154d @0x1b
0x1532…1558 at001c = ╱73╱s╱ // 0x154e @0x1c
0x1532…1558 at001d = ╱6b╱k╱ // 0x154f @0x1d
0x1532…1558 at001e = ╱72╱r╱ // 0x1550 @0x1e
0x1532…1558 at001f = ╱65╱e╱ // 0x1551 @0x1f
0x1532…1558 at0020 = ╱76╱v╱ // 0x1552 @0x20
0x1532…1558 at0021 = ╱65╱e╱ // 0x1553 @0x21
0x1532…1558 at0022 = ╱74╱t╱ // 0x1554 @0x22
0x1532…1558 at0023 = ╱22╱"╱ // 0x1555 @0x23
0x1532…1558 at0024 = ╱ea╱ ; ╱ // 0x1556 @0x24
0x1532…1558 at0025 = EOL // 0x1557 @0x25
0x1532…1558 }
0x1558…1562 ab50 01285 EXEC SVAR
0x1558…1562 LineComal80 {
0x1558…1562 ptr = 0xab50 // 0x1558 @0x0
0x1558…1562 lno = 0x0505 // 0x155a @0x2
0x1558…1562 at0004 = ╱9d╱ EXEC ╱ // 0x155c @0x4
0x1558…1562 at0005 = ╱53╱S╱ // 0x155d @0x5
0x1558…1562 at0006 = ╱56╱V╱ // 0x155e @0x6
0x1558…1562 at0007 = ╱41╱A╱ // 0x155f @0x7
0x1558…1562 at0008 = ╱52╱R╱ // 0x1560 @0x8
0x1558…1562 at0009 = EOL // 0x1561 @0x9
0x1558…1562 }
0x1562…1570 ab5e 01290 IF $ = "j" THEN
0x1562…1570 LineComal80 {
0x1562…1570 ptr = 0xab5e // 0x1562 @0x0
0x1562…1570 lno = 0x050a // 0x1564 @0x2
0x1562…1570 at0004 = ╱9b0053╱ IF ╱ // 0x1566 @0x4
0x1562…1570 at0007 = ╱ef╱ $ ╱ // 0x1569 @0x7
0x1562…1570 at0008 = ╱df╱ = ╱ // 0x156a @0x8
0x1562…1570 at0009 = ╱22╱"╱ // 0x156b @0x9
0x1562…1570 at000a = ╱6a╱j╱ // 0x156c @0xa
0x1562…1570 at000b = ╱22╱"╱ // 0x156d @0xb
0x1562…1570 at000c = ╱b5╱ THEN ╱ // 0x156e @0xc
0x1562…1570 at000d = EOL // 0x156f @0xd
0x1562…1570 }
0x1570…15ab ab99 01295 PRINT "***…VENT…****…]RSOPG\RELSES…PROGRAMMET…INDL[SES…***"
0x1570…15ab LineComal80 {
0x1570…15ab ptr = 0xab99 // 0x1570 @0x0
0x1570…15ab lno = 0x050f // 0x1572 @0x2
0x1570…15ab at0004 = ╱92╱ PRINT ╱ // 0x1574 @0x4
0x1570…15ab at0005 = ╱22╱"╱ // 0x1575 @0x5
0x1570…15ab at0006 = ╱2a╱*╱ // 0x1576 @0x6
0x1570…15ab at0007 = ╱2a╱*╱ // 0x1577 @0x7
0x1570…15ab at0008 = ╱2a╱*╱ // 0x1578 @0x8
0x1570…15ab at0009 = ╱20╱…╱ // 0x1579 @0x9
0x1570…15ab at000a = ╱56╱V╱ // 0x157a @0xa
0x1570…15ab at000b = ╱45╱E╱ // 0x157b @0xb
0x1570…15ab at000c = ╱4e╱N╱ // 0x157c @0xc
0x1570…15ab at000d = ╱54╱T╱ // 0x157d @0xd
0x1570…15ab at000e = ╱20╱…╱ // 0x157e @0xe
0x1570…15ab at000f = ╱2a╱*╱ // 0x157f @0xf
0x1570…15ab at0010 = ╱2a╱*╱ // 0x1580 @0x10
0x1570…15ab at0011 = ╱2a╱*╱ // 0x1581 @0x11
0x1570…15ab at0012 = ╱2a╱*╱ // 0x1582 @0x12
0x1570…15ab at0013 = ╱20╱…╱ // 0x1583 @0x13
0x1570…15ab at0014 = ╱5d╱]╱ // 0x1584 @0x14
0x1570…15ab at0015 = ╱52╱R╱ // 0x1585 @0x15
0x1570…15ab at0016 = ╱53╱S╱ // 0x1586 @0x16
0x1570…15ab at0017 = ╱4f╱O╱ // 0x1587 @0x17
0x1570…15ab at0018 = ╱50╱P╱ // 0x1588 @0x18
0x1570…15ab at0019 = ╱47╱G╱ // 0x1589 @0x19
0x1570…15ab at001a = ╱5c╱\╱ // 0x158a @0x1a
0x1570…15ab at001b = ╱52╱R╱ // 0x158b @0x1b
0x1570…15ab at001c = ╱45╱E╱ // 0x158c @0x1c
0x1570…15ab at001d = ╱4c╱L╱ // 0x158d @0x1d
0x1570…15ab at001e = ╱53╱S╱ // 0x158e @0x1e
0x1570…15ab at001f = ╱45╱E╱ // 0x158f @0x1f
0x1570…15ab at0020 = ╱53╱S╱ // 0x1590 @0x20
0x1570…15ab at0021 = ╱20╱…╱ // 0x1591 @0x21
0x1570…15ab at0022 = ╱50╱P╱ // 0x1592 @0x22
0x1570…15ab at0023 = ╱52╱R╱ // 0x1593 @0x23
0x1570…15ab at0024 = ╱4f╱O╱ // 0x1594 @0x24
0x1570…15ab at0025 = ╱47╱G╱ // 0x1595 @0x25
0x1570…15ab at0026 = ╱52╱R╱ // 0x1596 @0x26
0x1570…15ab at0027 = ╱41╱A╱ // 0x1597 @0x27
0x1570…15ab at0028 = ╱4d╱M╱ // 0x1598 @0x28
0x1570…15ab at0029 = ╱4d╱M╱ // 0x1599 @0x29
0x1570…15ab at002a = ╱45╱E╱ // 0x159a @0x2a
0x1570…15ab at002b = ╱54╱T╱ // 0x159b @0x2b
0x1570…15ab at002c = ╱20╱…╱ // 0x159c @0x2c
0x1570…15ab at002d = ╱49╱I╱ // 0x159d @0x2d
0x1570…15ab at002e = ╱4e╱N╱ // 0x159e @0x2e
0x1570…15ab at002f = ╱44╱D╱ // 0x159f @0x2f
0x1570…15ab at0030 = ╱4c╱L╱ // 0x15a0 @0x30
0x1570…15ab at0031 = ╱5b╱[╱ // 0x15a1 @0x31
0x1570…15ab at0032 = ╱53╱S╱ // 0x15a2 @0x32
0x1570…15ab at0033 = ╱45╱E╱ // 0x15a3 @0x33
0x1570…15ab at0034 = ╱53╱S╱ // 0x15a4 @0x34
0x1570…15ab at0035 = ╱20╱…╱ // 0x15a5 @0x35
0x1570…15ab at0036 = ╱2a╱*╱ // 0x15a6 @0x36
0x1570…15ab at0037 = ╱2a╱*╱ // 0x15a7 @0x37
0x1570…15ab at0038 = ╱2a╱*╱ // 0x15a8 @0x38
0x1570…15ab at0039 = ╱22╱"╱ // 0x15a9 @0x39
0x1570…15ab at003a = EOL // 0x15aa @0x3a
0x1570…15ab }
0x15ab…15bd abab 01300 EXEC PROGRAMSKIFT
0x15ab…15bd LineComal80 {
0x15ab…15bd ptr = 0xabab // 0x15ab @0x0
0x15ab…15bd lno = 0x0514 // 0x15ad @0x2
0x15ab…15bd at0004 = ╱9d╱ EXEC ╱ // 0x15af @0x4
0x15ab…15bd at0005 = ╱50╱P╱ // 0x15b0 @0x5
0x15ab…15bd at0006 = ╱52╱R╱ // 0x15b1 @0x6
0x15ab…15bd at0007 = ╱4f╱O╱ // 0x15b2 @0x7
0x15ab…15bd at0008 = ╱47╱G╱ // 0x15b3 @0x8
0x15ab…15bd at0009 = ╱52╱R╱ // 0x15b4 @0x9
0x15ab…15bd at000a = ╱41╱A╱ // 0x15b5 @0xa
0x15ab…15bd at000b = ╱4d╱M╱ // 0x15b6 @0xb
0x15ab…15bd at000c = ╱53╱S╱ // 0x15b7 @0xc
0x15ab…15bd at000d = ╱4b╱K╱ // 0x15b8 @0xd
0x15ab…15bd at000e = ╱49╱I╱ // 0x15b9 @0xe
0x15ab…15bd at000f = ╱46╱F╱ // 0x15ba @0xf
0x15ab…15bd at0010 = ╱54╱T╱ // 0x15bb @0x10
0x15ab…15bd at0011 = EOL // 0x15bc @0x11
0x15ab…15bd }
0x15bd…15d0 abbe 01305 CHAIN "DDE:]RSOP85"
0x15bd…15d0 LineComal80 {
0x15bd…15d0 ptr = 0xabbe // 0x15bd @0x0
0x15bd…15d0 lno = 0x0519 // 0x15bf @0x2
0x15bd…15d0 at0004 = ╱ac╱ CHAIN ╱ // 0x15c1 @0x4
0x15bd…15d0 at0005 = ╱22╱"╱ // 0x15c2 @0x5
0x15bd…15d0 at0006 = ╱44╱D╱ // 0x15c3 @0x6
0x15bd…15d0 at0007 = ╱44╱D╱ // 0x15c4 @0x7
0x15bd…15d0 at0008 = ╱45╱E╱ // 0x15c5 @0x8
0x15bd…15d0 at0009 = ╱3a╱:╱ // 0x15c6 @0x9
0x15bd…15d0 at000a = ╱5d╱]╱ // 0x15c7 @0xa
0x15bd…15d0 at000b = ╱52╱R╱ // 0x15c8 @0xb
0x15bd…15d0 at000c = ╱53╱S╱ // 0x15c9 @0xc
0x15bd…15d0 at000d = ╱4f╱O╱ // 0x15ca @0xd
0x15bd…15d0 at000e = ╱50╱P╱ // 0x15cb @0xe
0x15bd…15d0 at000f = ╱38╱8╱ // 0x15cc @0xf
0x15bd…15d0 at0010 = ╱35╱5╱ // 0x15cd @0x10
0x15bd…15d0 at0011 = ╱22╱"╱ // 0x15ce @0x11
0x15bd…15d0 at0012 = EOL // 0x15cf @0x12
0x15bd…15d0 }
0x15d0…15d6 abc4 01310 ENDIF
0x15d0…15d6 LineComal80 {
0x15d0…15d6 ptr = 0xabc4 // 0x15d0 @0x0
0x15d0…15d6 lno = 0x051e // 0x15d2 @0x2
0x15d0…15d6 at0004 = ╱9c╱ ENDIF ╱ // 0x15d4 @0x4
0x15d0…15d6 at0005 = EOL // 0x15d5 @0x5
0x15d0…15d6 }
0x15d6…15e3 abd1 01315 EXEC FORTS[T
0x15d6…15e3 LineComal80 {
0x15d6…15e3 ptr = 0xabd1 // 0x15d6 @0x0
0x15d6…15e3 lno = 0x0523 // 0x15d8 @0x2
0x15d6…15e3 at0004 = ╱9d╱ EXEC ╱ // 0x15da @0x4
0x15d6…15e3 at0005 = ╱46╱F╱ // 0x15db @0x5
0x15d6…15e3 at0006 = ╱4f╱O╱ // 0x15dc @0x6
0x15d6…15e3 at0007 = ╱52╱R╱ // 0x15dd @0x7
0x15d6…15e3 at0008 = ╱54╱T╱ // 0x15de @0x8
0x15d6…15e3 at0009 = ╱53╱S╱ // 0x15df @0x9
0x15d6…15e3 at000a = ╱5b╱[╱ // 0x15e0 @0xa
0x15d6…15e3 at000b = ╱54╱T╱ // 0x15e1 @0xb
0x15d6…15e3 at000c = EOL // 0x15e2 @0xc
0x15d6…15e3 }
0x15e3…15f0 abde 01320 UNTIL F8 >< 1
0x15e3…15f0 LineComal80 {
0x15e3…15f0 ptr = 0xabde // 0x15e3 @0x0
0x15e3…15f0 lno = 0x0528 // 0x15e5 @0x2
0x15e3…15f0 at0004 = ╱98╱ UNTIL ╱ // 0x15e7 @0x4
0x15e3…15f0 at0005 = ╱46╱F╱ // 0x15e8 @0x5
0x15e3…15f0 at0006 = ╱38╱8╱ // 0x15e9 @0x6
0x15e3…15f0 at0007 = ╱e4╱ >< ╱ // 0x15ea @0x7
0x15e3…15f0 at0008 = ╱31╱1╱ // 0x15eb @0x8
0x15e3…15f0 at0009 = ╱f20100╱ // 0x15ec @0x9
0x15e3…15f0 at000c = EOL // 0x15ef @0xc
0x15e3…15f0 }
0x15f0…161a ac08 01325 LET T2 := 2 ; T4 := O ; GSLUT , HFORMUE , BFORMUE := O
0x15f0…161a LineComal80 {
0x15f0…161a ptr = 0xac08 // 0x15f0 @0x0
0x15f0…161a lno = 0x052d // 0x15f2 @0x2
0x15f0…161a at0004 = ╱86╱ LET ╱ // 0x15f4 @0x4
0x15f0…161a at0005 = ╱54╱T╱ // 0x15f5 @0x5
0x15f0…161a at0006 = ╱32╱2╱ // 0x15f6 @0x6
0x15f0…161a at0007 = ╱f0╱ := ╱ // 0x15f7 @0x7
0x15f0…161a at0008 = ╱32╱2╱ // 0x15f8 @0x8
0x15f0…161a at0009 = ╱f20200╱ // 0x15f9 @0x9
0x15f0…161a at000c = ╱ea╱ ; ╱ // 0x15fc @0xc
0x15f0…161a at000d = ╱54╱T╱ // 0x15fd @0xd
0x15f0…161a at000e = ╱34╱4╱ // 0x15fe @0xe
0x15f0…161a at000f = ╱f0╱ := ╱ // 0x15ff @0xf
0x15f0…161a at0010 = ╱4f╱O╱ // 0x1600 @0x10
0x15f0…161a at0011 = ╱ea╱ ; ╱ // 0x1601 @0x11
0x15f0…161a at0012 = ╱47╱G╱ // 0x1602 @0x12
0x15f0…161a at0013 = ╱53╱S╱ // 0x1603 @0x13
0x15f0…161a at0014 = ╱4c╱L╱ // 0x1604 @0x14
0x15f0…161a at0015 = ╱55╱U╱ // 0x1605 @0x15
0x15f0…161a at0016 = ╱54╱T╱ // 0x1606 @0x16
0x15f0…161a at0017 = ╱ec╱ , ╱ // 0x1607 @0x17
0x15f0…161a at0018 = ╱48╱H╱ // 0x1608 @0x18
0x15f0…161a at0019 = ╱46╱F╱ // 0x1609 @0x19
0x15f0…161a at001a = ╱4f╱O╱ // 0x160a @0x1a
0x15f0…161a at001b = ╱52╱R╱ // 0x160b @0x1b
0x15f0…161a at001c = ╱4d╱M╱ // 0x160c @0x1c
0x15f0…161a at001d = ╱55╱U╱ // 0x160d @0x1d
0x15f0…161a at001e = ╱45╱E╱ // 0x160e @0x1e
0x15f0…161a at001f = ╱ec╱ , ╱ // 0x160f @0x1f
0x15f0…161a at0020 = ╱42╱B╱ // 0x1610 @0x20
0x15f0…161a at0021 = ╱46╱F╱ // 0x1611 @0x21
0x15f0…161a at0022 = ╱4f╱O╱ // 0x1612 @0x22
0x15f0…161a at0023 = ╱52╱R╱ // 0x1613 @0x23
0x15f0…161a at0024 = ╱4d╱M╱ // 0x1614 @0x24
0x15f0…161a at0025 = ╱55╱U╱ // 0x1615 @0x25
0x15f0…161a at0026 = ╱45╱E╱ // 0x1616 @0x26
0x15f0…161a at0027 = ╱f0╱ := ╱ // 0x1617 @0x27
0x15f0…161a at0028 = ╱4f╱O╱ // 0x1618 @0x28
0x15f0…161a at0029 = EOL // 0x1619 @0x29
0x15f0…161a }
0x161a…1629 ac17 01330 UNTIL 1 >< 1
0x161a…1629 LineComal80 {
0x161a…1629 ptr = 0xac17 // 0x161a @0x0
0x161a…1629 lno = 0x0532 // 0x161c @0x2
0x161a…1629 at0004 = ╱98╱ UNTIL ╱ // 0x161e @0x4
0x161a…1629 at0005 = ╱31╱1╱ // 0x161f @0x5
0x161a…1629 at0006 = ╱f20100╱ // 0x1620 @0x6
0x161a…1629 at0009 = ╱e4╱ >< ╱ // 0x1623 @0x9
0x161a…1629 at000a = ╱31╱1╱ // 0x1624 @0xa
0x161a…1629 at000b = ╱f20100╱ // 0x1625 @0xb
0x161a…1629 at000e = EOL // 0x1628 @0xe
0x161a…1629 }
0x1629…163c ac2a 01335 PROC PROGRAMSKIFT
0x1629…163c LineComal80 {
0x1629…163c ptr = 0xac2a // 0x1629 @0x0
0x1629…163c lno = 0x0537 // 0x162b @0x2
0x1629…163c at0004 = ╱9e00╱ PROC ╱ // 0x162d @0x4
0x1629…163c at0006 = ╱50╱P╱ // 0x162f @0x6
0x1629…163c at0007 = ╱52╱R╱ // 0x1630 @0x7
0x1629…163c at0008 = ╱4f╱O╱ // 0x1631 @0x8
0x1629…163c at0009 = ╱47╱G╱ // 0x1632 @0x9
0x1629…163c at000a = ╱52╱R╱ // 0x1633 @0xa
0x1629…163c at000b = ╱41╱A╱ // 0x1634 @0xb
0x1629…163c at000c = ╱4d╱M╱ // 0x1635 @0xc
0x1629…163c at000d = ╱53╱S╱ // 0x1636 @0xd
0x1629…163c at000e = ╱4b╱K╱ // 0x1637 @0xe
0x1629…163c at000f = ╱49╱I╱ // 0x1638 @0xf
0x1629…163c at0010 = ╱46╱F╱ // 0x1639 @0x10
0x1629…163c at0011 = ╱54╱T╱ // 0x163a @0x11
0x1629…163c at0012 = EOL // 0x163b @0x12
0x1629…163c }
0x163c…1651 ac3f 01340 LET FIL $ := "dde:fvar"
0x163c…1651 LineComal80 {
0x163c…1651 ptr = 0xac3f // 0x163c @0x0
0x163c…1651 lno = 0x053c // 0x163e @0x2
0x163c…1651 at0004 = ╱86╱ LET ╱ // 0x1640 @0x4
0x163c…1651 at0005 = ╱46╱F╱ // 0x1641 @0x5
0x163c…1651 at0006 = ╱49╱I╱ // 0x1642 @0x6
0x163c…1651 at0007 = ╱4c╱L╱ // 0x1643 @0x7
0x163c…1651 at0008 = ╱ef╱ $ ╱ // 0x1644 @0x8
0x163c…1651 at0009 = ╱f0╱ := ╱ // 0x1645 @0x9
0x163c…1651 at000a = ╱22╱"╱ // 0x1646 @0xa
0x163c…1651 at000b = ╱64╱d╱ // 0x1647 @0xb
0x163c…1651 at000c = ╱64╱d╱ // 0x1648 @0xc
0x163c…1651 at000d = ╱65╱e╱ // 0x1649 @0xd
0x163c…1651 at000e = ╱3a╱:╱ // 0x164a @0xe
0x163c…1651 at000f = ╱66╱f╱ // 0x164b @0xf
0x163c…1651 at0010 = ╱76╱v╱ // 0x164c @0x10
0x163c…1651 at0011 = ╱61╱a╱ // 0x164d @0x11
0x163c…1651 at0012 = ╱72╱r╱ // 0x164e @0x12
0x163c…1651 at0013 = ╱22╱"╱ // 0x164f @0x13
0x163c…1651 at0014 = EOL // 0x1650 @0x14
0x163c…1651 }
0x1651…165d ac4b 01345 OPEN FIL $ , W
0x1651…165d LineComal80 {
0x1651…165d ptr = 0xac4b // 0x1651 @0x0
0x1651…165d lno = 0x0541 // 0x1653 @0x2
0x1651…165d at0004 = ╱a7╱ OPEN ╱ // 0x1655 @0x4
0x1651…165d at0005 = ╱46╱F╱ // 0x1656 @0x5
0x1651…165d at0006 = ╱49╱I╱ // 0x1657 @0x6
0x1651…165d at0007 = ╱4c╱L╱ // 0x1658 @0x7
0x1651…165d at0008 = ╱ef╱ $ ╱ // 0x1659 @0x8
0x1651…165d at0009 = ╱ec╱ , ╱ // 0x165a @0x9
0x1651…165d at000a = ╱57╱W╱ // 0x165b @0xa
0x1651…165d at000b = EOL // 0x165c @0xb
0x1651…165d }
0x165d…1684 ac72 01350 PUT FIL $ : PR , C4 , HD6 , C9 , B0 , T1 , TKH , F6 , F1
0x165d…1684 LineComal80 {
0x165d…1684 ptr = 0xac72 // 0x165d @0x0
0x165d…1684 lno = 0x0546 // 0x165f @0x2
0x165d…1684 at0004 = ╱aa╱ PUT ╱ // 0x1661 @0x4
0x165d…1684 at0005 = ╱46╱F╱ // 0x1662 @0x5
0x165d…1684 at0006 = ╱49╱I╱ // 0x1663 @0x6
0x165d…1684 at0007 = ╱4c╱L╱ // 0x1664 @0x7
0x165d…1684 at0008 = ╱ef╱ $ ╱ // 0x1665 @0x8
0x165d…1684 at0009 = ╱f1╱ : ╱ // 0x1666 @0x9
0x165d…1684 at000a = ╱50╱P╱ // 0x1667 @0xa
0x165d…1684 at000b = ╱52╱R╱ // 0x1668 @0xb
0x165d…1684 at000c = ╱ec╱ , ╱ // 0x1669 @0xc
0x165d…1684 at000d = ╱43╱C╱ // 0x166a @0xd
0x165d…1684 at000e = ╱34╱4╱ // 0x166b @0xe
0x165d…1684 at000f = ╱ec╱ , ╱ // 0x166c @0xf
0x165d…1684 at0010 = ╱48╱H╱ // 0x166d @0x10
0x165d…1684 at0011 = ╱44╱D╱ // 0x166e @0x11
0x165d…1684 at0012 = ╱36╱6╱ // 0x166f @0x12
0x165d…1684 at0013 = ╱ec╱ , ╱ // 0x1670 @0x13
0x165d…1684 at0014 = ╱43╱C╱ // 0x1671 @0x14
0x165d…1684 at0015 = ╱39╱9╱ // 0x1672 @0x15
0x165d…1684 at0016 = ╱ec╱ , ╱ // 0x1673 @0x16
0x165d…1684 at0017 = ╱42╱B╱ // 0x1674 @0x17
0x165d…1684 at0018 = ╱30╱0╱ // 0x1675 @0x18
0x165d…1684 at0019 = ╱ec╱ , ╱ // 0x1676 @0x19
0x165d…1684 at001a = ╱54╱T╱ // 0x1677 @0x1a
0x165d…1684 at001b = ╱31╱1╱ // 0x1678 @0x1b
0x165d…1684 at001c = ╱ec╱ , ╱ // 0x1679 @0x1c
0x165d…1684 at001d = ╱54╱T╱ // 0x167a @0x1d
0x165d…1684 at001e = ╱4b╱K╱ // 0x167b @0x1e
0x165d…1684 at001f = ╱48╱H╱ // 0x167c @0x1f
0x165d…1684 at0020 = ╱ec╱ , ╱ // 0x167d @0x20
0x165d…1684 at0021 = ╱46╱F╱ // 0x167e @0x21
0x165d…1684 at0022 = ╱36╱6╱ // 0x167f @0x22
0x165d…1684 at0023 = ╱ec╱ , ╱ // 0x1680 @0x23
0x165d…1684 at0024 = ╱46╱F╱ // 0x1681 @0x24
0x165d…1684 at0025 = ╱31╱1╱ // 0x1682 @0x25
0x165d…1684 at0026 = EOL // 0x1683 @0x26
0x165d…1684 }
0x1684…16a9 ac97 01355 PUT FIL $ : F9 , P1 , P7 , P8 , P9 , T0 , B2 , B1 , B9
0x1684…16a9 LineComal80 {
0x1684…16a9 ptr = 0xac97 // 0x1684 @0x0
0x1684…16a9 lno = 0x054b // 0x1686 @0x2
0x1684…16a9 at0004 = ╱aa╱ PUT ╱ // 0x1688 @0x4
0x1684…16a9 at0005 = ╱46╱F╱ // 0x1689 @0x5
0x1684…16a9 at0006 = ╱49╱I╱ // 0x168a @0x6
0x1684…16a9 at0007 = ╱4c╱L╱ // 0x168b @0x7
0x1684…16a9 at0008 = ╱ef╱ $ ╱ // 0x168c @0x8
0x1684…16a9 at0009 = ╱f1╱ : ╱ // 0x168d @0x9
0x1684…16a9 at000a = ╱46╱F╱ // 0x168e @0xa
0x1684…16a9 at000b = ╱39╱9╱ // 0x168f @0xb
0x1684…16a9 at000c = ╱ec╱ , ╱ // 0x1690 @0xc
0x1684…16a9 at000d = ╱50╱P╱ // 0x1691 @0xd
0x1684…16a9 at000e = ╱31╱1╱ // 0x1692 @0xe
0x1684…16a9 at000f = ╱ec╱ , ╱ // 0x1693 @0xf
0x1684…16a9 at0010 = ╱50╱P╱ // 0x1694 @0x10
0x1684…16a9 at0011 = ╱37╱7╱ // 0x1695 @0x11
0x1684…16a9 at0012 = ╱ec╱ , ╱ // 0x1696 @0x12
0x1684…16a9 at0013 = ╱50╱P╱ // 0x1697 @0x13
0x1684…16a9 at0014 = ╱38╱8╱ // 0x1698 @0x14
0x1684…16a9 at0015 = ╱ec╱ , ╱ // 0x1699 @0x15
0x1684…16a9 at0016 = ╱50╱P╱ // 0x169a @0x16
0x1684…16a9 at0017 = ╱39╱9╱ // 0x169b @0x17
0x1684…16a9 at0018 = ╱ec╱ , ╱ // 0x169c @0x18
0x1684…16a9 at0019 = ╱54╱T╱ // 0x169d @0x19
0x1684…16a9 at001a = ╱30╱0╱ // 0x169e @0x1a
0x1684…16a9 at001b = ╱ec╱ , ╱ // 0x169f @0x1b
0x1684…16a9 at001c = ╱42╱B╱ // 0x16a0 @0x1c
0x1684…16a9 at001d = ╱32╱2╱ // 0x16a1 @0x1d
0x1684…16a9 at001e = ╱ec╱ , ╱ // 0x16a2 @0x1e
0x1684…16a9 at001f = ╱42╱B╱ // 0x16a3 @0x1f
0x1684…16a9 at0020 = ╱31╱1╱ // 0x16a4 @0x20
0x1684…16a9 at0021 = ╱ec╱ , ╱ // 0x16a5 @0x21
0x1684…16a9 at0022 = ╱42╱B╱ // 0x16a6 @0x22
0x1684…16a9 at0023 = ╱39╱9╱ // 0x16a7 @0x23
0x1684…16a9 at0024 = EOL // 0x16a8 @0x24
0x1684…16a9 }
0x16a9…16d0 acbe 01360 PUT FIL $ : T2 , C6 , BD6 , C0 , B3 , E6 , F2 , T3 , TKB
0x16a9…16d0 LineComal80 {
0x16a9…16d0 ptr = 0xacbe // 0x16a9 @0x0
0x16a9…16d0 lno = 0x0550 // 0x16ab @0x2
0x16a9…16d0 at0004 = ╱aa╱ PUT ╱ // 0x16ad @0x4
0x16a9…16d0 at0005 = ╱46╱F╱ // 0x16ae @0x5
0x16a9…16d0 at0006 = ╱49╱I╱ // 0x16af @0x6
0x16a9…16d0 at0007 = ╱4c╱L╱ // 0x16b0 @0x7
0x16a9…16d0 at0008 = ╱ef╱ $ ╱ // 0x16b1 @0x8
0x16a9…16d0 at0009 = ╱f1╱ : ╱ // 0x16b2 @0x9
0x16a9…16d0 at000a = ╱54╱T╱ // 0x16b3 @0xa
0x16a9…16d0 at000b = ╱32╱2╱ // 0x16b4 @0xb
0x16a9…16d0 at000c = ╱ec╱ , ╱ // 0x16b5 @0xc
0x16a9…16d0 at000d = ╱43╱C╱ // 0x16b6 @0xd
0x16a9…16d0 at000e = ╱36╱6╱ // 0x16b7 @0xe
0x16a9…16d0 at000f = ╱ec╱ , ╱ // 0x16b8 @0xf
0x16a9…16d0 at0010 = ╱42╱B╱ // 0x16b9 @0x10
0x16a9…16d0 at0011 = ╱44╱D╱ // 0x16ba @0x11
0x16a9…16d0 at0012 = ╱36╱6╱ // 0x16bb @0x12
0x16a9…16d0 at0013 = ╱ec╱ , ╱ // 0x16bc @0x13
0x16a9…16d0 at0014 = ╱43╱C╱ // 0x16bd @0x14
0x16a9…16d0 at0015 = ╱30╱0╱ // 0x16be @0x15
0x16a9…16d0 at0016 = ╱ec╱ , ╱ // 0x16bf @0x16
0x16a9…16d0 at0017 = ╱42╱B╱ // 0x16c0 @0x17
0x16a9…16d0 at0018 = ╱33╱3╱ // 0x16c1 @0x18
0x16a9…16d0 at0019 = ╱ec╱ , ╱ // 0x16c2 @0x19
0x16a9…16d0 at001a = ╱45╱E╱ // 0x16c3 @0x1a
0x16a9…16d0 at001b = ╱36╱6╱ // 0x16c4 @0x1b
0x16a9…16d0 at001c = ╱ec╱ , ╱ // 0x16c5 @0x1c
0x16a9…16d0 at001d = ╱46╱F╱ // 0x16c6 @0x1d
0x16a9…16d0 at001e = ╱32╱2╱ // 0x16c7 @0x1e
0x16a9…16d0 at001f = ╱ec╱ , ╱ // 0x16c8 @0x1f
0x16a9…16d0 at0020 = ╱54╱T╱ // 0x16c9 @0x20
0x16a9…16d0 at0021 = ╱33╱3╱ // 0x16ca @0x21
0x16a9…16d0 at0022 = ╱ec╱ , ╱ // 0x16cb @0x22
0x16a9…16d0 at0023 = ╱54╱T╱ // 0x16cc @0x23
0x16a9…16d0 at0024 = ╱4b╱K╱ // 0x16cd @0x24
0x16a9…16d0 at0025 = ╱42╱B╱ // 0x16ce @0x25
0x16a9…16d0 at0026 = EOL // 0x16cf @0x26
0x16a9…16d0 }
0x16d0…16f1 acdf 01365 PUT FIL $ : F0 , F7 , SKG , AKT , D6 , GSLUT
0x16d0…16f1 LineComal80 {
0x16d0…16f1 ptr = 0xacdf // 0x16d0 @0x0
0x16d0…16f1 lno = 0x0555 // 0x16d2 @0x2
0x16d0…16f1 at0004 = ╱aa╱ PUT ╱ // 0x16d4 @0x4
0x16d0…16f1 at0005 = ╱46╱F╱ // 0x16d5 @0x5
0x16d0…16f1 at0006 = ╱49╱I╱ // 0x16d6 @0x6
0x16d0…16f1 at0007 = ╱4c╱L╱ // 0x16d7 @0x7
0x16d0…16f1 at0008 = ╱ef╱ $ ╱ // 0x16d8 @0x8
0x16d0…16f1 at0009 = ╱f1╱ : ╱ // 0x16d9 @0x9
0x16d0…16f1 at000a = ╱46╱F╱ // 0x16da @0xa
0x16d0…16f1 at000b = ╱30╱0╱ // 0x16db @0xb
0x16d0…16f1 at000c = ╱ec╱ , ╱ // 0x16dc @0xc
0x16d0…16f1 at000d = ╱46╱F╱ // 0x16dd @0xd
0x16d0…16f1 at000e = ╱37╱7╱ // 0x16de @0xe
0x16d0…16f1 at000f = ╱ec╱ , ╱ // 0x16df @0xf
0x16d0…16f1 at0010 = ╱53╱S╱ // 0x16e0 @0x10
0x16d0…16f1 at0011 = ╱4b╱K╱ // 0x16e1 @0x11
0x16d0…16f1 at0012 = ╱47╱G╱ // 0x16e2 @0x12
0x16d0…16f1 at0013 = ╱ec╱ , ╱ // 0x16e3 @0x13
0x16d0…16f1 at0014 = ╱41╱A╱ // 0x16e4 @0x14
0x16d0…16f1 at0015 = ╱4b╱K╱ // 0x16e5 @0x15
0x16d0…16f1 at0016 = ╱54╱T╱ // 0x16e6 @0x16
0x16d0…16f1 at0017 = ╱ec╱ , ╱ // 0x16e7 @0x17
0x16d0…16f1 at0018 = ╱44╱D╱ // 0x16e8 @0x18
0x16d0…16f1 at0019 = ╱36╱6╱ // 0x16e9 @0x19
0x16d0…16f1 at001a = ╱ec╱ , ╱ // 0x16ea @0x1a
0x16d0…16f1 at001b = ╱47╱G╱ // 0x16eb @0x1b
0x16d0…16f1 at001c = ╱53╱S╱ // 0x16ec @0x1c
0x16d0…16f1 at001d = ╱4c╱L╱ // 0x16ed @0x1d
0x16d0…16f1 at001e = ╱55╱U╱ // 0x16ee @0x1e
0x16d0…16f1 at001f = ╱54╱T╱ // 0x16ef @0x1f
0x16d0…16f1 at0020 = EOL // 0x16f0 @0x20
0x16d0…16f1 }
0x16f1…171d ad0b 01370 PUT FIL $ : HFORMUE , BFORMUE , HATP , BATP , G , FSLUT
0x16f1…171d LineComal80 {
0x16f1…171d ptr = 0xad0b // 0x16f1 @0x0
0x16f1…171d lno = 0x055a // 0x16f3 @0x2
0x16f1…171d at0004 = ╱aa╱ PUT ╱ // 0x16f5 @0x4
0x16f1…171d at0005 = ╱46╱F╱ // 0x16f6 @0x5
0x16f1…171d at0006 = ╱49╱I╱ // 0x16f7 @0x6
0x16f1…171d at0007 = ╱4c╱L╱ // 0x16f8 @0x7
0x16f1…171d at0008 = ╱ef╱ $ ╱ // 0x16f9 @0x8
0x16f1…171d at0009 = ╱f1╱ : ╱ // 0x16fa @0x9
0x16f1…171d at000a = ╱48╱H╱ // 0x16fb @0xa
0x16f1…171d at000b = ╱46╱F╱ // 0x16fc @0xb
0x16f1…171d at000c = ╱4f╱O╱ // 0x16fd @0xc
0x16f1…171d at000d = ╱52╱R╱ // 0x16fe @0xd
0x16f1…171d at000e = ╱4d╱M╱ // 0x16ff @0xe
0x16f1…171d at000f = ╱55╱U╱ // 0x1700 @0xf
0x16f1…171d at0010 = ╱45╱E╱ // 0x1701 @0x10
0x16f1…171d at0011 = ╱ec╱ , ╱ // 0x1702 @0x11
0x16f1…171d at0012 = ╱42╱B╱ // 0x1703 @0x12
0x16f1…171d at0013 = ╱46╱F╱ // 0x1704 @0x13
0x16f1…171d at0014 = ╱4f╱O╱ // 0x1705 @0x14
0x16f1…171d at0015 = ╱52╱R╱ // 0x1706 @0x15
0x16f1…171d at0016 = ╱4d╱M╱ // 0x1707 @0x16
0x16f1…171d at0017 = ╱55╱U╱ // 0x1708 @0x17
0x16f1…171d at0018 = ╱45╱E╱ // 0x1709 @0x18
0x16f1…171d at0019 = ╱ec╱ , ╱ // 0x170a @0x19
0x16f1…171d at001a = ╱48╱H╱ // 0x170b @0x1a
0x16f1…171d at001b = ╱41╱A╱ // 0x170c @0x1b
0x16f1…171d at001c = ╱54╱T╱ // 0x170d @0x1c
0x16f1…171d at001d = ╱50╱P╱ // 0x170e @0x1d
0x16f1…171d at001e = ╱ec╱ , ╱ // 0x170f @0x1e
0x16f1…171d at001f = ╱42╱B╱ // 0x1710 @0x1f
0x16f1…171d at0020 = ╱41╱A╱ // 0x1711 @0x20
0x16f1…171d at0021 = ╱54╱T╱ // 0x1712 @0x21
0x16f1…171d at0022 = ╱50╱P╱ // 0x1713 @0x22
0x16f1…171d at0023 = ╱ec╱ , ╱ // 0x1714 @0x23
0x16f1…171d at0024 = ╱47╱G╱ // 0x1715 @0x24
0x16f1…171d at0025 = ╱ec╱ , ╱ // 0x1716 @0x25
0x16f1…171d at0026 = ╱46╱F╱ // 0x1717 @0x26
0x16f1…171d at0027 = ╱53╱S╱ // 0x1718 @0x27
0x16f1…171d at0028 = ╱4c╱L╱ // 0x1719 @0x28
0x16f1…171d at0029 = ╱55╱U╱ // 0x171a @0x29
0x16f1…171d at002a = ╱54╱T╱ // 0x171b @0x2a
0x16f1…171d at002b = EOL // 0x171c @0x2b
0x16f1…171d }
0x171d…1731 ad1f 01375 PUT FIL $ : HKL $ , BKL $
0x171d…1731 LineComal80 {
0x171d…1731 ptr = 0xad1f // 0x171d @0x0
0x171d…1731 lno = 0x055f // 0x171f @0x2
0x171d…1731 at0004 = ╱aa╱ PUT ╱ // 0x1721 @0x4
0x171d…1731 at0005 = ╱46╱F╱ // 0x1722 @0x5
0x171d…1731 at0006 = ╱49╱I╱ // 0x1723 @0x6
0x171d…1731 at0007 = ╱4c╱L╱ // 0x1724 @0x7
0x171d…1731 at0008 = ╱ef╱ $ ╱ // 0x1725 @0x8
0x171d…1731 at0009 = ╱f1╱ : ╱ // 0x1726 @0x9
0x171d…1731 at000a = ╱48╱H╱ // 0x1727 @0xa
0x171d…1731 at000b = ╱4b╱K╱ // 0x1728 @0xb
0x171d…1731 at000c = ╱4c╱L╱ // 0x1729 @0xc
0x171d…1731 at000d = ╱ef╱ $ ╱ // 0x172a @0xd
0x171d…1731 at000e = ╱ec╱ , ╱ // 0x172b @0xe
0x171d…1731 at000f = ╱42╱B╱ // 0x172c @0xf
0x171d…1731 at0010 = ╱4b╱K╱ // 0x172d @0x10
0x171d…1731 at0011 = ╱4c╱L╱ // 0x172e @0x11
0x171d…1731 at0012 = ╱ef╱ $ ╱ // 0x172f @0x12
0x171d…1731 at0013 = EOL // 0x1730 @0x13
0x171d…1731 }
0x1731…173b ad29 01380 CLOSE FIL $
0x1731…173b LineComal80 {
0x1731…173b ptr = 0xad29 // 0x1731 @0x0
0x1731…173b lno = 0x0564 // 0x1733 @0x2
0x1731…173b at0004 = ╱a8╱ CLOSE ╱ // 0x1735 @0x4
0x1731…173b at0005 = ╱46╱F╱ // 0x1736 @0x5
0x1731…173b at0006 = ╱49╱I╱ // 0x1737 @0x6
0x1731…173b at0007 = ╱4c╱L╱ // 0x1738 @0x7
0x1731…173b at0008 = ╱ef╱ $ ╱ // 0x1739 @0x8
0x1731…173b at0009 = EOL // 0x173a @0x9
0x1731…173b }
0x173b…1752 ad40 01385 LET FIL $ := "dde:hskvar"
0x173b…1752 LineComal80 {
0x173b…1752 ptr = 0xad40 // 0x173b @0x0
0x173b…1752 lno = 0x0569 // 0x173d @0x2
0x173b…1752 at0004 = ╱86╱ LET ╱ // 0x173f @0x4
0x173b…1752 at0005 = ╱46╱F╱ // 0x1740 @0x5
0x173b…1752 at0006 = ╱49╱I╱ // 0x1741 @0x6
0x173b…1752 at0007 = ╱4c╱L╱ // 0x1742 @0x7
0x173b…1752 at0008 = ╱ef╱ $ ╱ // 0x1743 @0x8
0x173b…1752 at0009 = ╱f0╱ := ╱ // 0x1744 @0x9
0x173b…1752 at000a = ╱22╱"╱ // 0x1745 @0xa
0x173b…1752 at000b = ╱64╱d╱ // 0x1746 @0xb
0x173b…1752 at000c = ╱64╱d╱ // 0x1747 @0xc
0x173b…1752 at000d = ╱65╱e╱ // 0x1748 @0xd
0x173b…1752 at000e = ╱3a╱:╱ // 0x1749 @0xe
0x173b…1752 at000f = ╱68╱h╱ // 0x174a @0xf
0x173b…1752 at0010 = ╱73╱s╱ // 0x174b @0x10
0x173b…1752 at0011 = ╱6b╱k╱ // 0x174c @0x11
0x173b…1752 at0012 = ╱76╱v╱ // 0x174d @0x12
0x173b…1752 at0013 = ╱61╱a╱ // 0x174e @0x13
0x173b…1752 at0014 = ╱72╱r╱ // 0x174f @0x14
0x173b…1752 at0015 = ╱22╱"╱ // 0x1750 @0x15
0x173b…1752 at0016 = EOL // 0x1751 @0x16
0x173b…1752 }
0x1752…175e ad4c 01390 OPEN FIL $ , W
0x1752…175e LineComal80 {
0x1752…175e ptr = 0xad4c // 0x1752 @0x0
0x1752…175e lno = 0x056e // 0x1754 @0x2
0x1752…175e at0004 = ╱a7╱ OPEN ╱ // 0x1756 @0x4
0x1752…175e at0005 = ╱46╱F╱ // 0x1757 @0x5
0x1752…175e at0006 = ╱49╱I╱ // 0x1758 @0x6
0x1752…175e at0007 = ╱4c╱L╱ // 0x1759 @0x7
0x1752…175e at0008 = ╱ef╱ $ ╱ // 0x175a @0x8
0x1752…175e at0009 = ╱ec╱ , ╱ // 0x175b @0x9
0x1752…175e at000a = ╱57╱W╱ // 0x175c @0xa
0x1752…175e at000b = EOL // 0x175d @0xb
0x1752…175e }
0x175e…1772 ad60 01395 FOR X := 1 TO 9 DO
0x175e…1772 LineComal80 {
0x175e…1772 ptr = 0xad60 // 0x175e @0x0
0x175e…1772 lno = 0x0573 // 0x1760 @0x2
0x175e…1772 at0004 = ╱8300╱ FOR ╱ // 0x1762 @0x4
0x175e…1772 at0006 = ╱58╱X╱ // 0x1764 @0x6
0x175e…1772 at0007 = ╱f0╱ := ╱ // 0x1765 @0x7
0x175e…1772 at0008 = ╱31╱1╱ // 0x1766 @0x8
0x175e…1772 at0009 = ╱f20100╱ // 0x1767 @0x9
0x175e…1772 at000c = ╱b732╱ TO ╱ // 0x176a @0xc
0x175e…1772 at000e = ╱39╱9╱ // 0x176c @0xe
0x175e…1772 at000f = ╱f21d00╱ // 0x176d @0xf
0x175e…1772 at0012 = ╱bb╱ DO ╱ // 0x1770 @0x12
0x175e…1772 at0013 = EOL // 0x1771 @0x13
0x175e…1772 }
0x1772…1781 ad6f 01400 PUT FIL $ : A ( X )
0x1772…1781 LineComal80 {
0x1772…1781 ptr = 0xad6f // 0x1772 @0x0
0x1772…1781 lno = 0x0578 // 0x1774 @0x2
0x1772…1781 at0004 = ╱aa╱ PUT ╱ // 0x1776 @0x4
0x1772…1781 at0005 = ╱46╱F╱ // 0x1777 @0x5
0x1772…1781 at0006 = ╱49╱I╱ // 0x1778 @0x6
0x1772…1781 at0007 = ╱4c╱L╱ // 0x1779 @0x7
0x1772…1781 at0008 = ╱ef╱ $ ╱ // 0x177a @0x8
0x1772…1781 at0009 = ╱f1╱ : ╱ // 0x177b @0x9
0x1772…1781 at000a = ╱41╱A╱ // 0x177c @0xa
0x1772…1781 at000b = ╱ed╱ ( ╱ // 0x177d @0xb
0x1772…1781 at000c = ╱58╱X╱ // 0x177e @0xc
0x1772…1781 at000d = ╱ee╱ ) ╱ // 0x177f @0xd
0x1772…1781 at000e = EOL // 0x1780 @0xe
0x1772…1781 }
0x1781…179f ad8d 01405 IF X < 24 THEN PUT FIL $ : H ( X ) , K ( X )
0x1781…179f LineComal80 {
0x1781…179f ptr = 0xad8d // 0x1781 @0x0
0x1781…179f lno = 0x057d // 0x1783 @0x2
0x1781…179f at0004 = ╱8200╱ IF ╱ // 0x1785 @0x4
0x1781…179f at0006 = ╱58╱X╱ // 0x1787 @0x6
0x1781…179f at0007 = ╱e0╱ < ╱ // 0x1788 @0x7
0x1781…179f at0008 = ╱32╱2╱ // 0x1789 @0x8
0x1781…179f at0009 = ╱34╱4╱ // 0x178a @0x9
0x1781…179f at000a = ╱f21800╱ // 0x178b @0xa
0x1781…179f at000d = ╱b5╱ THEN ╱ // 0x178e @0xd
0x1781…179f at000e = ╱aa╱ PUT ╱ // 0x178f @0xe
0x1781…179f at000f = ╱46╱F╱ // 0x1790 @0xf
0x1781…179f at0010 = ╱49╱I╱ // 0x1791 @0x10
0x1781…179f at0011 = ╱4c╱L╱ // 0x1792 @0x11
0x1781…179f at0012 = ╱ef╱ $ ╱ // 0x1793 @0x12
0x1781…179f at0013 = ╱f1╱ : ╱ // 0x1794 @0x13
0x1781…179f at0014 = ╱48╱H╱ // 0x1795 @0x14
0x1781…179f at0015 = ╱ed╱ ( ╱ // 0x1796 @0x15
0x1781…179f at0016 = ╱58╱X╱ // 0x1797 @0x16
0x1781…179f at0017 = ╱ee╱ ) ╱ // 0x1798 @0x17
0x1781…179f at0018 = ╱ec╱ , ╱ // 0x1799 @0x18
0x1781…179f at0019 = ╱4b╱K╱ // 0x179a @0x19
0x1781…179f at001a = ╱ed╱ ( ╱ // 0x179b @0x1a
0x1781…179f at001b = ╱58╱X╱ // 0x179c @0x1b
0x1781…179f at001c = ╱ee╱ ) ╱ // 0x179d @0x1c
0x1781…179f at001d = EOL // 0x179e @0x1d
0x1781…179f }
0x179f…17a6 ad94 01410 NEXT X
0x179f…17a6 LineComal80 {
0x179f…17a6 ptr = 0xad94 // 0x179f @0x0
0x179f…17a6 lno = 0x0582 // 0x17a1 @0x2
0x179f…17a6 at0004 = ╱84╱ NEXT ╱ // 0x17a3 @0x4
0x179f…17a6 at0005 = ╱58╱X╱ // 0x17a4 @0x5
0x179f…17a6 at0006 = EOL // 0x17a5 @0x6
0x179f…17a6 }
0x17a6…17bc adaa 01415 PUT FIL $ : F8 , T1 , T2 , T4
0x17a6…17bc LineComal80 {
0x17a6…17bc ptr = 0xadaa // 0x17a6 @0x0
0x17a6…17bc lno = 0x0587 // 0x17a8 @0x2
0x17a6…17bc at0004 = ╱aa╱ PUT ╱ // 0x17aa @0x4
0x17a6…17bc at0005 = ╱46╱F╱ // 0x17ab @0x5
0x17a6…17bc at0006 = ╱49╱I╱ // 0x17ac @0x6
0x17a6…17bc at0007 = ╱4c╱L╱ // 0x17ad @0x7
0x17a6…17bc at0008 = ╱ef╱ $ ╱ // 0x17ae @0x8
0x17a6…17bc at0009 = ╱f1╱ : ╱ // 0x17af @0x9
0x17a6…17bc at000a = ╱46╱F╱ // 0x17b0 @0xa
0x17a6…17bc at000b = ╱38╱8╱ // 0x17b1 @0xb
0x17a6…17bc at000c = ╱ec╱ , ╱ // 0x17b2 @0xc
0x17a6…17bc at000d = ╱54╱T╱ // 0x17b3 @0xd
0x17a6…17bc at000e = ╱31╱1╱ // 0x17b4 @0xe
0x17a6…17bc at000f = ╱ec╱ , ╱ // 0x17b5 @0xf
0x17a6…17bc at0010 = ╱54╱T╱ // 0x17b6 @0x10
0x17a6…17bc at0011 = ╱32╱2╱ // 0x17b7 @0x11
0x17a6…17bc at0012 = ╱ec╱ , ╱ // 0x17b8 @0x12
0x17a6…17bc at0013 = ╱54╱T╱ // 0x17b9 @0x13
0x17a6…17bc at0014 = ╱34╱4╱ // 0x17ba @0x14
0x17a6…17bc at0015 = EOL // 0x17bb @0x15
0x17a6…17bc }
0x17bc…17c6 adb4 01420 CLOSE FIL $
0x17bc…17c6 LineComal80 {
0x17bc…17c6 ptr = 0xadb4 // 0x17bc @0x0
0x17bc…17c6 lno = 0x058c // 0x17be @0x2
0x17bc…17c6 at0004 = ╱a8╱ CLOSE ╱ // 0x17c0 @0x4
0x17bc…17c6 at0005 = ╱46╱F╱ // 0x17c1 @0x5
0x17bc…17c6 at0006 = ╱49╱I╱ // 0x17c2 @0x6
0x17bc…17c6 at0007 = ╱4c╱L╱ // 0x17c3 @0x7
0x17bc…17c6 at0008 = ╱ef╱ $ ╱ // 0x17c4 @0x8
0x17bc…17c6 at0009 = EOL // 0x17c5 @0x9
0x17bc…17c6 }
0x17c6…17d8 adc6 01425 ENDPROC PROGRAMSKIFT
0x17c6…17d8 LineComal80 {
0x17c6…17d8 ptr = 0xadc6 // 0x17c6 @0x0
0x17c6…17d8 lno = 0x0591 // 0x17c8 @0x2
0x17c6…17d8 at0004 = ╱9f╱ ENDPROC ╱ // 0x17ca @0x4
0x17c6…17d8 at0005 = ╱50╱P╱ // 0x17cb @0x5
0x17c6…17d8 at0006 = ╱52╱R╱ // 0x17cc @0x6
0x17c6…17d8 at0007 = ╱4f╱O╱ // 0x17cd @0x7
0x17c6…17d8 at0008 = ╱47╱G╱ // 0x17ce @0x8
0x17c6…17d8 at0009 = ╱52╱R╱ // 0x17cf @0x9
0x17c6…17d8 at000a = ╱41╱A╱ // 0x17d0 @0xa
0x17c6…17d8 at000b = ╱4d╱M╱ // 0x17d1 @0xb
0x17c6…17d8 at000c = ╱53╱S╱ // 0x17d2 @0xc
0x17c6…17d8 at000d = ╱4b╱K╱ // 0x17d3 @0xd
0x17c6…17d8 at000e = ╱49╱I╱ // 0x17d4 @0xe
0x17c6…17d8 at000f = ╱46╱F╱ // 0x17d5 @0xf
0x17c6…17d8 at0010 = ╱54╱T╱ // 0x17d6 @0x10
0x17c6…17d8 at0011 = EOL // 0x17d7 @0x11
0x17c6…17d8 }
0x17d8…17e6 add4 01430 PROC FORTS[T
0x17d8…17e6 LineComal80 {
0x17d8…17e6 ptr = 0xadd4 // 0x17d8 @0x0
0x17d8…17e6 lno = 0x0596 // 0x17da @0x2
0x17d8…17e6 at0004 = ╱9e00╱ PROC ╱ // 0x17dc @0x4
0x17d8…17e6 at0006 = ╱46╱F╱ // 0x17de @0x6
0x17d8…17e6 at0007 = ╱4f╱O╱ // 0x17df @0x7
0x17d8…17e6 at0008 = ╱52╱R╱ // 0x17e0 @0x8
0x17d8…17e6 at0009 = ╱54╱T╱ // 0x17e1 @0x9
0x17d8…17e6 at000a = ╱53╱S╱ // 0x17e2 @0xa
0x17d8…17e6 at000b = ╱5b╱[╱ // 0x17e3 @0xb
0x17d8…17e6 at000c = ╱54╱T╱ // 0x17e4 @0xc
0x17d8…17e6 at000d = EOL // 0x17e5 @0xd
0x17d8…17e6 }
0x17e6…17ec adda 01435 CLEAR
0x17e6…17ec LineComal80 {
0x17e6…17ec ptr = 0xadda // 0x17e6 @0x0
0x17e6…17ec lno = 0x059b // 0x17e8 @0x2
0x17e6…17ec at0004 = ╱a0╱ CLEAR ╱ // 0x17ea @0x4
0x17e6…17ec at0005 = EOL // 0x17eb @0x5
0x17e6…17ec }
0x17ec…182a ae18 01440 PRINT "***…BEREGNINGEN…ER…GENNEMF\RT…***…\nskes…de…indtastede"
0x17ec…182a LineComal80 {
0x17ec…182a ptr = 0xae18 // 0x17ec @0x0
0x17ec…182a lno = 0x05a0 // 0x17ee @0x2
0x17ec…182a at0004 = ╱92╱ PRINT ╱ // 0x17f0 @0x4
0x17ec…182a at0005 = ╱22╱"╱ // 0x17f1 @0x5
0x17ec…182a at0006 = ╱2a╱*╱ // 0x17f2 @0x6
0x17ec…182a at0007 = ╱2a╱*╱ // 0x17f3 @0x7
0x17ec…182a at0008 = ╱2a╱*╱ // 0x17f4 @0x8
0x17ec…182a at0009 = ╱20╱…╱ // 0x17f5 @0x9
0x17ec…182a at000a = ╱42╱B╱ // 0x17f6 @0xa
0x17ec…182a at000b = ╱45╱E╱ // 0x17f7 @0xb
0x17ec…182a at000c = ╱52╱R╱ // 0x17f8 @0xc
0x17ec…182a at000d = ╱45╱E╱ // 0x17f9 @0xd
0x17ec…182a at000e = ╱47╱G╱ // 0x17fa @0xe
0x17ec…182a at000f = ╱4e╱N╱ // 0x17fb @0xf
0x17ec…182a at0010 = ╱49╱I╱ // 0x17fc @0x10
0x17ec…182a at0011 = ╱4e╱N╱ // 0x17fd @0x11
0x17ec…182a at0012 = ╱47╱G╱ // 0x17fe @0x12
0x17ec…182a at0013 = ╱45╱E╱ // 0x17ff @0x13
0x17ec…182a at0014 = ╱4e╱N╱ // 0x1800 @0x14
0x17ec…182a at0015 = ╱20╱…╱ // 0x1801 @0x15
0x17ec…182a at0016 = ╱45╱E╱ // 0x1802 @0x16
0x17ec…182a at0017 = ╱52╱R╱ // 0x1803 @0x17
0x17ec…182a at0018 = ╱20╱…╱ // 0x1804 @0x18
0x17ec…182a at0019 = ╱47╱G╱ // 0x1805 @0x19
0x17ec…182a at001a = ╱45╱E╱ // 0x1806 @0x1a
0x17ec…182a at001b = ╱4e╱N╱ // 0x1807 @0x1b
0x17ec…182a at001c = ╱4e╱N╱ // 0x1808 @0x1c
0x17ec…182a at001d = ╱45╱E╱ // 0x1809 @0x1d
0x17ec…182a at001e = ╱4d╱M╱ // 0x180a @0x1e
0x17ec…182a at001f = ╱46╱F╱ // 0x180b @0x1f
0x17ec…182a at0020 = ╱5c╱\╱ // 0x180c @0x20
0x17ec…182a at0021 = ╱52╱R╱ // 0x180d @0x21
0x17ec…182a at0022 = ╱54╱T╱ // 0x180e @0x22
0x17ec…182a at0023 = ╱20╱…╱ // 0x180f @0x23
0x17ec…182a at0024 = ╱2a╱*╱ // 0x1810 @0x24
0x17ec…182a at0025 = ╱2a╱*╱ // 0x1811 @0x25
0x17ec…182a at0026 = ╱2a╱*╱ // 0x1812 @0x26
0x17ec…182a at0027 = ╱20╱…╱ // 0x1813 @0x27
0x17ec…182a at0028 = ╱5c╱\╱ // 0x1814 @0x28
0x17ec…182a at0029 = ╱6e╱n╱ // 0x1815 @0x29
0x17ec…182a at002a = ╱73╱s╱ // 0x1816 @0x2a
0x17ec…182a at002b = ╱6b╱k╱ // 0x1817 @0x2b
0x17ec…182a at002c = ╱65╱e╱ // 0x1818 @0x2c
0x17ec…182a at002d = ╱73╱s╱ // 0x1819 @0x2d
0x17ec…182a at002e = ╱20╱…╱ // 0x181a @0x2e
0x17ec…182a at002f = ╱64╱d╱ // 0x181b @0x2f
0x17ec…182a at0030 = ╱65╱e╱ // 0x181c @0x30
0x17ec…182a at0031 = ╱20╱…╱ // 0x181d @0x31
0x17ec…182a at0032 = ╱69╱i╱ // 0x181e @0x32
0x17ec…182a at0033 = ╱6e╱n╱ // 0x181f @0x33
0x17ec…182a at0034 = ╱64╱d╱ // 0x1820 @0x34
0x17ec…182a at0035 = ╱74╱t╱ // 0x1821 @0x35
0x17ec…182a at0036 = ╱61╱a╱ // 0x1822 @0x36
0x17ec…182a at0037 = ╱73╱s╱ // 0x1823 @0x37
0x17ec…182a at0038 = ╱74╱t╱ // 0x1824 @0x38
0x17ec…182a at0039 = ╱65╱e╱ // 0x1825 @0x39
0x17ec…182a at003a = ╱64╱d╱ // 0x1826 @0x3a
0x17ec…182a at003b = ╱65╱e╱ // 0x1827 @0x3b
0x17ec…182a at003c = ╱22╱"╱ // 0x1828 @0x3c
0x17ec…182a at003d = EOL // 0x1829 @0x3d
0x17ec…182a }
0x182a…1861 ae4f 01445 PRINT "indkomster/fradrag…bevaret…til…en…ny…beregning" ;
0x182a…1861 LineComal80 {
0x182a…1861 ptr = 0xae4f // 0x182a @0x0
0x182a…1861 lno = 0x05a5 // 0x182c @0x2
0x182a…1861 at0004 = ╱92╱ PRINT ╱ // 0x182e @0x4
0x182a…1861 at0005 = ╱22╱"╱ // 0x182f @0x5
0x182a…1861 at0006 = ╱69╱i╱ // 0x1830 @0x6
0x182a…1861 at0007 = ╱6e╱n╱ // 0x1831 @0x7
0x182a…1861 at0008 = ╱64╱d╱ // 0x1832 @0x8
0x182a…1861 at0009 = ╱6b╱k╱ // 0x1833 @0x9
0x182a…1861 at000a = ╱6f╱o╱ // 0x1834 @0xa
0x182a…1861 at000b = ╱6d╱m╱ // 0x1835 @0xb
0x182a…1861 at000c = ╱73╱s╱ // 0x1836 @0xc
0x182a…1861 at000d = ╱74╱t╱ // 0x1837 @0xd
0x182a…1861 at000e = ╱65╱e╱ // 0x1838 @0xe
0x182a…1861 at000f = ╱72╱r╱ // 0x1839 @0xf
0x182a…1861 at0010 = ╱2f╱/╱ // 0x183a @0x10
0x182a…1861 at0011 = ╱66╱f╱ // 0x183b @0x11
0x182a…1861 at0012 = ╱72╱r╱ // 0x183c @0x12
0x182a…1861 at0013 = ╱61╱a╱ // 0x183d @0x13
0x182a…1861 at0014 = ╱64╱d╱ // 0x183e @0x14
0x182a…1861 at0015 = ╱72╱r╱ // 0x183f @0x15
0x182a…1861 at0016 = ╱61╱a╱ // 0x1840 @0x16
0x182a…1861 at0017 = ╱67╱g╱ // 0x1841 @0x17
0x182a…1861 at0018 = ╱20╱…╱ // 0x1842 @0x18
0x182a…1861 at0019 = ╱62╱b╱ // 0x1843 @0x19
0x182a…1861 at001a = ╱65╱e╱ // 0x1844 @0x1a
0x182a…1861 at001b = ╱76╱v╱ // 0x1845 @0x1b
0x182a…1861 at001c = ╱61╱a╱ // 0x1846 @0x1c
0x182a…1861 at001d = ╱72╱r╱ // 0x1847 @0x1d
0x182a…1861 at001e = ╱65╱e╱ // 0x1848 @0x1e
0x182a…1861 at001f = ╱74╱t╱ // 0x1849 @0x1f
0x182a…1861 at0020 = ╱20╱…╱ // 0x184a @0x20
0x182a…1861 at0021 = ╱74╱t╱ // 0x184b @0x21
0x182a…1861 at0022 = ╱69╱i╱ // 0x184c @0x22
0x182a…1861 at0023 = ╱6c╱l╱ // 0x184d @0x23
0x182a…1861 at0024 = ╱20╱…╱ // 0x184e @0x24
0x182a…1861 at0025 = ╱65╱e╱ // 0x184f @0x25
0x182a…1861 at0026 = ╱6e╱n╱ // 0x1850 @0x26
0x182a…1861 at0027 = ╱20╱…╱ // 0x1851 @0x27
0x182a…1861 at0028 = ╱6e╱n╱ // 0x1852 @0x28
0x182a…1861 at0029 = ╱79╱y╱ // 0x1853 @0x29
0x182a…1861 at002a = ╱20╱…╱ // 0x1854 @0x2a
0x182a…1861 at002b = ╱62╱b╱ // 0x1855 @0x2b
0x182a…1861 at002c = ╱65╱e╱ // 0x1856 @0x2c
0x182a…1861 at002d = ╱72╱r╱ // 0x1857 @0x2d
0x182a…1861 at002e = ╱65╱e╱ // 0x1858 @0x2e
0x182a…1861 at002f = ╱67╱g╱ // 0x1859 @0x2f
0x182a…1861 at0030 = ╱6e╱n╱ // 0x185a @0x30
0x182a…1861 at0031 = ╱69╱i╱ // 0x185b @0x31
0x182a…1861 at0032 = ╱6e╱n╱ // 0x185c @0x32
0x182a…1861 at0033 = ╱67╱g╱ // 0x185d @0x33
0x182a…1861 at0034 = ╱22╱"╱ // 0x185e @0x34
0x182a…1861 at0035 = ╱ea╱ ; ╱ // 0x185f @0x35
0x182a…1861 at0036 = EOL // 0x1860 @0x36
0x182a…1861 }
0x1861…186b ae59 01450 EXEC SVAR
0x1861…186b LineComal80 {
0x1861…186b ptr = 0xae59 // 0x1861 @0x0
0x1861…186b lno = 0x05aa // 0x1863 @0x2
0x1861…186b at0004 = ╱9d╱ EXEC ╱ // 0x1865 @0x4
0x1861…186b at0005 = ╱53╱S╱ // 0x1866 @0x5
0x1861…186b at0006 = ╱56╱V╱ // 0x1867 @0x6
0x1861…186b at0007 = ╱41╱A╱ // 0x1868 @0x7
0x1861…186b at0008 = ╱52╱R╱ // 0x1869 @0x8
0x1861…186b at0009 = EOL // 0x186a @0x9
0x1861…186b }
0x186b…187f ae6d 01455 LET G , F8 := O ; FSLUT := O
0x186b…187f LineComal80 {
0x186b…187f ptr = 0xae6d // 0x186b @0x0
0x186b…187f lno = 0x05af // 0x186d @0x2
0x186b…187f at0004 = ╱86╱ LET ╱ // 0x186f @0x4
0x186b…187f at0005 = ╱47╱G╱ // 0x1870 @0x5
0x186b…187f at0006 = ╱ec╱ , ╱ // 0x1871 @0x6
0x186b…187f at0007 = ╱46╱F╱ // 0x1872 @0x7
0x186b…187f at0008 = ╱38╱8╱ // 0x1873 @0x8
0x186b…187f at0009 = ╱f0╱ := ╱ // 0x1874 @0x9
0x186b…187f at000a = ╱4f╱O╱ // 0x1875 @0xa
0x186b…187f at000b = ╱ea╱ ; ╱ // 0x1876 @0xb
0x186b…187f at000c = ╱46╱F╱ // 0x1877 @0xc
0x186b…187f at000d = ╱53╱S╱ // 0x1878 @0xd
0x186b…187f at000e = ╱4c╱L╱ // 0x1879 @0xe
0x186b…187f at000f = ╱55╱U╱ // 0x187a @0xf
0x186b…187f at0010 = ╱54╱T╱ // 0x187b @0x10
0x186b…187f at0011 = ╱f0╱ := ╱ // 0x187c @0x11
0x186b…187f at0012 = ╱4f╱O╱ // 0x187d @0x12
0x186b…187f at0013 = EOL // 0x187e @0x13
0x186b…187f }
0x187f…188d ae7b 01460 IF $ = "j" THEN
0x187f…188d LineComal80 {
0x187f…188d ptr = 0xae7b // 0x187f @0x0
0x187f…188d lno = 0x05b4 // 0x1881 @0x2
0x187f…188d at0004 = ╱9b0053╱ IF ╱ // 0x1883 @0x4
0x187f…188d at0007 = ╱ef╱ $ ╱ // 0x1886 @0x7
0x187f…188d at0008 = ╱df╱ = ╱ // 0x1887 @0x8
0x187f…188d at0009 = ╱22╱"╱ // 0x1888 @0x9
0x187f…188d at000a = ╱6a╱j╱ // 0x1889 @0xa
0x187f…188d at000b = ╱22╱"╱ // 0x188a @0xb
0x187f…188d at000c = ╱b5╱ THEN ╱ // 0x188b @0xc
0x187f…188d at000d = EOL // 0x188c @0xd
0x187f…188d }
0x188d…18a5 ae93 01465 LET F8 := 1 ; FSLUT := 1
0x188d…18a5 LineComal80 {
0x188d…18a5 ptr = 0xae93 // 0x188d @0x0
0x188d…18a5 lno = 0x05b9 // 0x188f @0x2
0x188d…18a5 at0004 = ╱86╱ LET ╱ // 0x1891 @0x4
0x188d…18a5 at0005 = ╱46╱F╱ // 0x1892 @0x5
0x188d…18a5 at0006 = ╱38╱8╱ // 0x1893 @0x6
0x188d…18a5 at0007 = ╱f0╱ := ╱ // 0x1894 @0x7
0x188d…18a5 at0008 = ╱31╱1╱ // 0x1895 @0x8
0x188d…18a5 at0009 = ╱f20100╱ // 0x1896 @0x9
0x188d…18a5 at000c = ╱ea╱ ; ╱ // 0x1899 @0xc
0x188d…18a5 at000d = ╱46╱F╱ // 0x189a @0xd
0x188d…18a5 at000e = ╱53╱S╱ // 0x189b @0xe
0x188d…18a5 at000f = ╱4c╱L╱ // 0x189c @0xf
0x188d…18a5 at0010 = ╱55╱U╱ // 0x189d @0x10
0x188d…18a5 at0011 = ╱54╱T╱ // 0x189e @0x11
0x188d…18a5 at0012 = ╱f0╱ := ╱ // 0x189f @0x12
0x188d…18a5 at0013 = ╱31╱1╱ // 0x18a0 @0x13
0x188d…18a5 at0014 = ╱f20100╱ // 0x18a1 @0x14
0x188d…18a5 at0017 = EOL // 0x18a4 @0x17
0x188d…18a5 }
0x18a5…18e8 aed6 01470 PRINT "\nskes…alle…andre…foruds{tninger…for…beregningerne…bevaret" ;
0x18a5…18e8 LineComal80 {
0x18a5…18e8 ptr = 0xaed6 // 0x18a5 @0x0
0x18a5…18e8 lno = 0x05be // 0x18a7 @0x2
0x18a5…18e8 at0004 = ╱92╱ PRINT ╱ // 0x18a9 @0x4
0x18a5…18e8 at0005 = ╱22╱"╱ // 0x18aa @0x5
0x18a5…18e8 at0006 = ╱5c╱\╱ // 0x18ab @0x6
0x18a5…18e8 at0007 = ╱6e╱n╱ // 0x18ac @0x7
0x18a5…18e8 at0008 = ╱73╱s╱ // 0x18ad @0x8
0x18a5…18e8 at0009 = ╱6b╱k╱ // 0x18ae @0x9
0x18a5…18e8 at000a = ╱65╱e╱ // 0x18af @0xa
0x18a5…18e8 at000b = ╱73╱s╱ // 0x18b0 @0xb
0x18a5…18e8 at000c = ╱20╱…╱ // 0x18b1 @0xc
0x18a5…18e8 at000d = ╱61╱a╱ // 0x18b2 @0xd
0x18a5…18e8 at000e = ╱6c╱l╱ // 0x18b3 @0xe
0x18a5…18e8 at000f = ╱6c╱l╱ // 0x18b4 @0xf
0x18a5…18e8 at0010 = ╱65╱e╱ // 0x18b5 @0x10
0x18a5…18e8 at0011 = ╱20╱…╱ // 0x18b6 @0x11
0x18a5…18e8 at0012 = ╱61╱a╱ // 0x18b7 @0x12
0x18a5…18e8 at0013 = ╱6e╱n╱ // 0x18b8 @0x13
0x18a5…18e8 at0014 = ╱64╱d╱ // 0x18b9 @0x14
0x18a5…18e8 at0015 = ╱72╱r╱ // 0x18ba @0x15
0x18a5…18e8 at0016 = ╱65╱e╱ // 0x18bb @0x16
0x18a5…18e8 at0017 = ╱20╱…╱ // 0x18bc @0x17
0x18a5…18e8 at0018 = ╱66╱f╱ // 0x18bd @0x18
0x18a5…18e8 at0019 = ╱6f╱o╱ // 0x18be @0x19
0x18a5…18e8 at001a = ╱72╱r╱ // 0x18bf @0x1a
0x18a5…18e8 at001b = ╱75╱u╱ // 0x18c0 @0x1b
0x18a5…18e8 at001c = ╱64╱d╱ // 0x18c1 @0x1c
0x18a5…18e8 at001d = ╱73╱s╱ // 0x18c2 @0x1d
0x18a5…18e8 at001e = ╱7b╱{╱ // 0x18c3 @0x1e
0x18a5…18e8 at001f = ╱74╱t╱ // 0x18c4 @0x1f
0x18a5…18e8 at0020 = ╱6e╱n╱ // 0x18c5 @0x20
0x18a5…18e8 at0021 = ╱69╱i╱ // 0x18c6 @0x21
0x18a5…18e8 at0022 = ╱6e╱n╱ // 0x18c7 @0x22
0x18a5…18e8 at0023 = ╱67╱g╱ // 0x18c8 @0x23
0x18a5…18e8 at0024 = ╱65╱e╱ // 0x18c9 @0x24
0x18a5…18e8 at0025 = ╱72╱r╱ // 0x18ca @0x25
0x18a5…18e8 at0026 = ╱20╱…╱ // 0x18cb @0x26
0x18a5…18e8 at0027 = ╱66╱f╱ // 0x18cc @0x27
0x18a5…18e8 at0028 = ╱6f╱o╱ // 0x18cd @0x28
0x18a5…18e8 at0029 = ╱72╱r╱ // 0x18ce @0x29
0x18a5…18e8 at002a = ╱20╱…╱ // 0x18cf @0x2a
0x18a5…18e8 at002b = ╱62╱b╱ // 0x18d0 @0x2b
0x18a5…18e8 at002c = ╱65╱e╱ // 0x18d1 @0x2c
0x18a5…18e8 at002d = ╱72╱r╱ // 0x18d2 @0x2d
0x18a5…18e8 at002e = ╱65╱e╱ // 0x18d3 @0x2e
0x18a5…18e8 at002f = ╱67╱g╱ // 0x18d4 @0x2f
0x18a5…18e8 at0030 = ╱6e╱n╱ // 0x18d5 @0x30
0x18a5…18e8 at0031 = ╱69╱i╱ // 0x18d6 @0x31
0x18a5…18e8 at0032 = ╱6e╱n╱ // 0x18d7 @0x32
0x18a5…18e8 at0033 = ╱67╱g╱ // 0x18d8 @0x33
0x18a5…18e8 at0034 = ╱65╱e╱ // 0x18d9 @0x34
0x18a5…18e8 at0035 = ╱72╱r╱ // 0x18da @0x35
0x18a5…18e8 at0036 = ╱6e╱n╱ // 0x18db @0x36
0x18a5…18e8 at0037 = ╱65╱e╱ // 0x18dc @0x37
0x18a5…18e8 at0038 = ╱20╱…╱ // 0x18dd @0x38
0x18a5…18e8 at0039 = ╱62╱b╱ // 0x18de @0x39
0x18a5…18e8 at003a = ╱65╱e╱ // 0x18df @0x3a
0x18a5…18e8 at003b = ╱76╱v╱ // 0x18e0 @0x3b
0x18a5…18e8 at003c = ╱61╱a╱ // 0x18e1 @0x3c
0x18a5…18e8 at003d = ╱72╱r╱ // 0x18e2 @0x3d
0x18a5…18e8 at003e = ╱65╱e╱ // 0x18e3 @0x3e
0x18a5…18e8 at003f = ╱74╱t╱ // 0x18e4 @0x3f
0x18a5…18e8 at0040 = ╱22╱"╱ // 0x18e5 @0x40
0x18a5…18e8 at0041 = ╱ea╱ ; ╱ // 0x18e6 @0x41
0x18a5…18e8 at0042 = EOL // 0x18e7 @0x42
0x18a5…18e8 }
0x18e8…18f2 aee0 01475 EXEC SVAR
0x18e8…18f2 LineComal80 {
0x18e8…18f2 ptr = 0xaee0 // 0x18e8 @0x0
0x18e8…18f2 lno = 0x05c3 // 0x18ea @0x2
0x18e8…18f2 at0004 = ╱9d╱ EXEC ╱ // 0x18ec @0x4
0x18e8…18f2 at0005 = ╱53╱S╱ // 0x18ed @0x5
0x18e8…18f2 at0006 = ╱56╱V╱ // 0x18ee @0x6
0x18e8…18f2 at0007 = ╱41╱A╱ // 0x18ef @0x7
0x18e8…18f2 at0008 = ╱52╱R╱ // 0x18f0 @0x8
0x18e8…18f2 at0009 = EOL // 0x18f1 @0x9
0x18e8…18f2 }
0x18f2…1907 aef5 01480 IF S $ = "j" THEN LET G := 1
0x18f2…1907 LineComal80 {
0x18f2…1907 ptr = 0xaef5 // 0x18f2 @0x0
0x18f2…1907 lno = 0x05c8 // 0x18f4 @0x2
0x18f2…1907 at0004 = ╱8200╱ IF ╱ // 0x18f6 @0x4
0x18f2…1907 at0006 = ╱53╱S╱ // 0x18f8 @0x6
0x18f2…1907 at0007 = ╱ef╱ $ ╱ // 0x18f9 @0x7
0x18f2…1907 at0008 = ╱df╱ = ╱ // 0x18fa @0x8
0x18f2…1907 at0009 = ╱22╱"╱ // 0x18fb @0x9
0x18f2…1907 at000a = ╱6a╱j╱ // 0x18fc @0xa
0x18f2…1907 at000b = ╱22╱"╱ // 0x18fd @0xb
0x18f2…1907 at000c = ╱b5╱ THEN ╱ // 0x18fe @0xc
0x18f2…1907 at000d = ╱86╱ LET ╱ // 0x18ff @0xd
0x18f2…1907 at000e = ╱47╱G╱ // 0x1900 @0xe
0x18f2…1907 at000f = ╱f0╱ := ╱ // 0x1901 @0xf
0x18f2…1907 at0010 = ╱31╱1╱ // 0x1902 @0x10
0x18f2…1907 at0011 = ╱f20100╱ // 0x1903 @0x11
0x18f2…1907 at0014 = EOL // 0x1906 @0x14
0x18f2…1907 }
0x1907…190d aefb 01485 ENDIF
0x1907…190d LineComal80 {
0x1907…190d ptr = 0xaefb // 0x1907 @0x0
0x1907…190d lno = 0x05cd // 0x1909 @0x2
0x1907…190d at0004 = ╱9c╱ ENDIF ╱ // 0x190b @0x4
0x1907…190d at0005 = EOL // 0x190c @0x5
0x1907…190d }
0x190d…191a af08 01490 ENDPROC FORTS[T
0x190d…191a LineComal80 {
0x190d…191a ptr = 0xaf08 // 0x190d @0x0
0x190d…191a lno = 0x05d2 // 0x190f @0x2
0x190d…191a at0004 = ╱9f╱ ENDPROC ╱ // 0x1911 @0x4
0x190d…191a at0005 = ╱46╱F╱ // 0x1912 @0x5
0x190d…191a at0006 = ╱4f╱O╱ // 0x1913 @0x6
0x190d…191a at0007 = ╱52╱R╱ // 0x1914 @0x7
0x190d…191a at0008 = ╱54╱T╱ // 0x1915 @0x8
0x190d…191a at0009 = ╱53╱S╱ // 0x1916 @0x9
0x190d…191a at000a = ╱5b╱[╱ // 0x1917 @0xa
0x190d…191a at000b = ╱54╱T╱ // 0x1918 @0xb
0x190d…191a at000c = EOL // 0x1919 @0xc
0x190d…191a }
0x191a…1927 af15 01495 PROC REGN20
0x191a…1927 LineComal80 {
0x191a…1927 ptr = 0xaf15 // 0x191a @0x0
0x191a…1927 lno = 0x05d7 // 0x191c @0x2
0x191a…1927 at0004 = ╱9e00╱ PROC ╱ // 0x191e @0x4
0x191a…1927 at0006 = ╱52╱R╱ // 0x1920 @0x6
0x191a…1927 at0007 = ╱45╱E╱ // 0x1921 @0x7
0x191a…1927 at0008 = ╱47╱G╱ // 0x1922 @0x8
0x191a…1927 at0009 = ╱4e╱N╱ // 0x1923 @0x9
0x191a…1927 at000a = ╱32╱2╱ // 0x1924 @0xa
0x191a…1927 at000b = ╱30╱0╱ // 0x1925 @0xb
0x191a…1927 at000c = EOL // 0x1926 @0xc
0x191a…1927 }
0x1927…195f af4d 01500 LET HD1 := D1 ; HD2 := D2 ; HDA2 := DA2 ; HD3 := D3 ; HD4 := D4 ; HD5 := D5 ; HD6 := D6
0x1927…195f LineComal80 {
0x1927…195f ptr = 0xaf4d // 0x1927 @0x0
0x1927…195f lno = 0x05dc // 0x1929 @0x2
0x1927…195f at0004 = ╱86╱ LET ╱ // 0x192b @0x4
0x1927…195f at0005 = ╱48╱H╱ // 0x192c @0x5
0x1927…195f at0006 = ╱44╱D╱ // 0x192d @0x6
0x1927…195f at0007 = ╱31╱1╱ // 0x192e @0x7
0x1927…195f at0008 = ╱f0╱ := ╱ // 0x192f @0x8
0x1927…195f at0009 = ╱44╱D╱ // 0x1930 @0x9
0x1927…195f at000a = ╱31╱1╱ // 0x1931 @0xa
0x1927…195f at000b = ╱ea╱ ; ╱ // 0x1932 @0xb
0x1927…195f at000c = ╱48╱H╱ // 0x1933 @0xc
0x1927…195f at000d = ╱44╱D╱ // 0x1934 @0xd
0x1927…195f at000e = ╱32╱2╱ // 0x1935 @0xe
0x1927…195f at000f = ╱f0╱ := ╱ // 0x1936 @0xf
0x1927…195f at0010 = ╱44╱D╱ // 0x1937 @0x10
0x1927…195f at0011 = ╱32╱2╱ // 0x1938 @0x11
0x1927…195f at0012 = ╱ea╱ ; ╱ // 0x1939 @0x12
0x1927…195f at0013 = ╱48╱H╱ // 0x193a @0x13
0x1927…195f at0014 = ╱44╱D╱ // 0x193b @0x14
0x1927…195f at0015 = ╱41╱A╱ // 0x193c @0x15
0x1927…195f at0016 = ╱32╱2╱ // 0x193d @0x16
0x1927…195f at0017 = ╱f0╱ := ╱ // 0x193e @0x17
0x1927…195f at0018 = ╱44╱D╱ // 0x193f @0x18
0x1927…195f at0019 = ╱41╱A╱ // 0x1940 @0x19
0x1927…195f at001a = ╱32╱2╱ // 0x1941 @0x1a
0x1927…195f at001b = ╱ea╱ ; ╱ // 0x1942 @0x1b
0x1927…195f at001c = ╱48╱H╱ // 0x1943 @0x1c
0x1927…195f at001d = ╱44╱D╱ // 0x1944 @0x1d
0x1927…195f at001e = ╱33╱3╱ // 0x1945 @0x1e
0x1927…195f at001f = ╱f0╱ := ╱ // 0x1946 @0x1f
0x1927…195f at0020 = ╱44╱D╱ // 0x1947 @0x20
0x1927…195f at0021 = ╱33╱3╱ // 0x1948 @0x21
0x1927…195f at0022 = ╱ea╱ ; ╱ // 0x1949 @0x22
0x1927…195f at0023 = ╱48╱H╱ // 0x194a @0x23
0x1927…195f at0024 = ╱44╱D╱ // 0x194b @0x24
0x1927…195f at0025 = ╱34╱4╱ // 0x194c @0x25
0x1927…195f at0026 = ╱f0╱ := ╱ // 0x194d @0x26
0x1927…195f at0027 = ╱44╱D╱ // 0x194e @0x27
0x1927…195f at0028 = ╱34╱4╱ // 0x194f @0x28
0x1927…195f at0029 = ╱ea╱ ; ╱ // 0x1950 @0x29
0x1927…195f at002a = ╱48╱H╱ // 0x1951 @0x2a
0x1927…195f at002b = ╱44╱D╱ // 0x1952 @0x2b
0x1927…195f at002c = ╱35╱5╱ // 0x1953 @0x2c
0x1927…195f at002d = ╱f0╱ := ╱ // 0x1954 @0x2d
0x1927…195f at002e = ╱44╱D╱ // 0x1955 @0x2e
0x1927…195f at002f = ╱35╱5╱ // 0x1956 @0x2f
0x1927…195f at0030 = ╱ea╱ ; ╱ // 0x1957 @0x30
0x1927…195f at0031 = ╱48╱H╱ // 0x1958 @0x31
0x1927…195f at0032 = ╱44╱D╱ // 0x1959 @0x32
0x1927…195f at0033 = ╱36╱6╱ // 0x195a @0x33
0x1927…195f at0034 = ╱f0╱ := ╱ // 0x195b @0x34
0x1927…195f at0035 = ╱44╱D╱ // 0x195c @0x35
0x1927…195f at0036 = ╱36╱6╱ // 0x195d @0x36
0x1927…195f at0037 = EOL // 0x195e @0x37
0x1927…195f }
0x195f…196b af59 01505 ENDPROC REGN20
0x195f…196b LineComal80 {
0x195f…196b ptr = 0xaf59 // 0x195f @0x0
0x195f…196b lno = 0x05e1 // 0x1961 @0x2
0x195f…196b at0004 = ╱9f╱ ENDPROC ╱ // 0x1963 @0x4
0x195f…196b at0005 = ╱52╱R╱ // 0x1964 @0x5
0x195f…196b at0006 = ╱45╱E╱ // 0x1965 @0x6
0x195f…196b at0007 = ╱47╱G╱ // 0x1966 @0x7
0x195f…196b at0008 = ╱4e╱N╱ // 0x1967 @0x8
0x195f…196b at0009 = ╱32╱2╱ // 0x1968 @0x9
0x195f…196b at000a = ╱30╱0╱ // 0x1969 @0xa
0x195f…196b at000b = EOL // 0x196a @0xb
0x195f…196b }
0x196b…1978 af66 01510 PROC REGN10
0x196b…1978 LineComal80 {
0x196b…1978 ptr = 0xaf66 // 0x196b @0x0
0x196b…1978 lno = 0x05e6 // 0x196d @0x2
0x196b…1978 at0004 = ╱9e00╱ PROC ╱ // 0x196f @0x4
0x196b…1978 at0006 = ╱52╱R╱ // 0x1971 @0x6
0x196b…1978 at0007 = ╱45╱E╱ // 0x1972 @0x7
0x196b…1978 at0008 = ╱47╱G╱ // 0x1973 @0x8
0x196b…1978 at0009 = ╱4e╱N╱ // 0x1974 @0x9
0x196b…1978 at000a = ╱31╱1╱ // 0x1975 @0xa
0x196b…1978 at000b = ╱30╱0╱ // 0x1976 @0xb
0x196b…1978 at000c = EOL // 0x1977 @0xc
0x196b…1978 }
0x1978…19b0 af9e 01515 LET D1 := HD1 ; D2 := HD2 ; DA2 := HDA2 ; D3 := HD3 ; D4 := HD4 ; D5 := HD5 ; D6 := HD6
0x1978…19b0 LineComal80 {
0x1978…19b0 ptr = 0xaf9e // 0x1978 @0x0
0x1978…19b0 lno = 0x05eb // 0x197a @0x2
0x1978…19b0 at0004 = ╱86╱ LET ╱ // 0x197c @0x4
0x1978…19b0 at0005 = ╱44╱D╱ // 0x197d @0x5
0x1978…19b0 at0006 = ╱31╱1╱ // 0x197e @0x6
0x1978…19b0 at0007 = ╱f0╱ := ╱ // 0x197f @0x7
0x1978…19b0 at0008 = ╱48╱H╱ // 0x1980 @0x8
0x1978…19b0 at0009 = ╱44╱D╱ // 0x1981 @0x9
0x1978…19b0 at000a = ╱31╱1╱ // 0x1982 @0xa
0x1978…19b0 at000b = ╱ea╱ ; ╱ // 0x1983 @0xb
0x1978…19b0 at000c = ╱44╱D╱ // 0x1984 @0xc
0x1978…19b0 at000d = ╱32╱2╱ // 0x1985 @0xd
0x1978…19b0 at000e = ╱f0╱ := ╱ // 0x1986 @0xe
0x1978…19b0 at000f = ╱48╱H╱ // 0x1987 @0xf
0x1978…19b0 at0010 = ╱44╱D╱ // 0x1988 @0x10
0x1978…19b0 at0011 = ╱32╱2╱ // 0x1989 @0x11
0x1978…19b0 at0012 = ╱ea╱ ; ╱ // 0x198a @0x12
0x1978…19b0 at0013 = ╱44╱D╱ // 0x198b @0x13
0x1978…19b0 at0014 = ╱41╱A╱ // 0x198c @0x14
0x1978…19b0 at0015 = ╱32╱2╱ // 0x198d @0x15
0x1978…19b0 at0016 = ╱f0╱ := ╱ // 0x198e @0x16
0x1978…19b0 at0017 = ╱48╱H╱ // 0x198f @0x17
0x1978…19b0 at0018 = ╱44╱D╱ // 0x1990 @0x18
0x1978…19b0 at0019 = ╱41╱A╱ // 0x1991 @0x19
0x1978…19b0 at001a = ╱32╱2╱ // 0x1992 @0x1a
0x1978…19b0 at001b = ╱ea╱ ; ╱ // 0x1993 @0x1b
0x1978…19b0 at001c = ╱44╱D╱ // 0x1994 @0x1c
0x1978…19b0 at001d = ╱33╱3╱ // 0x1995 @0x1d
0x1978…19b0 at001e = ╱f0╱ := ╱ // 0x1996 @0x1e
0x1978…19b0 at001f = ╱48╱H╱ // 0x1997 @0x1f
0x1978…19b0 at0020 = ╱44╱D╱ // 0x1998 @0x20
0x1978…19b0 at0021 = ╱33╱3╱ // 0x1999 @0x21
0x1978…19b0 at0022 = ╱ea╱ ; ╱ // 0x199a @0x22
0x1978…19b0 at0023 = ╱44╱D╱ // 0x199b @0x23
0x1978…19b0 at0024 = ╱34╱4╱ // 0x199c @0x24
0x1978…19b0 at0025 = ╱f0╱ := ╱ // 0x199d @0x25
0x1978…19b0 at0026 = ╱48╱H╱ // 0x199e @0x26
0x1978…19b0 at0027 = ╱44╱D╱ // 0x199f @0x27
0x1978…19b0 at0028 = ╱34╱4╱ // 0x19a0 @0x28
0x1978…19b0 at0029 = ╱ea╱ ; ╱ // 0x19a1 @0x29
0x1978…19b0 at002a = ╱44╱D╱ // 0x19a2 @0x2a
0x1978…19b0 at002b = ╱35╱5╱ // 0x19a3 @0x2b
0x1978…19b0 at002c = ╱f0╱ := ╱ // 0x19a4 @0x2c
0x1978…19b0 at002d = ╱48╱H╱ // 0x19a5 @0x2d
0x1978…19b0 at002e = ╱44╱D╱ // 0x19a6 @0x2e
0x1978…19b0 at002f = ╱35╱5╱ // 0x19a7 @0x2f
0x1978…19b0 at0030 = ╱ea╱ ; ╱ // 0x19a8 @0x30
0x1978…19b0 at0031 = ╱44╱D╱ // 0x19a9 @0x31
0x1978…19b0 at0032 = ╱36╱6╱ // 0x19aa @0x32
0x1978…19b0 at0033 = ╱f0╱ := ╱ // 0x19ab @0x33
0x1978…19b0 at0034 = ╱48╱H╱ // 0x19ac @0x34
0x1978…19b0 at0035 = ╱44╱D╱ // 0x19ad @0x35
0x1978…19b0 at0036 = ╱36╱6╱ // 0x19ae @0x36
0x1978…19b0 at0037 = EOL // 0x19af @0x37
0x1978…19b0 }
0x19b0…19bc afaa 01520 ENDPROC REGN10
0x19b0…19bc LineComal80 {
0x19b0…19bc ptr = 0xafaa // 0x19b0 @0x0
0x19b0…19bc lno = 0x05f0 // 0x19b2 @0x2
0x19b0…19bc at0004 = ╱9f╱ ENDPROC ╱ // 0x19b4 @0x4
0x19b0…19bc at0005 = ╱52╱R╱ // 0x19b5 @0x5
0x19b0…19bc at0006 = ╱45╱E╱ // 0x19b6 @0x6
0x19b0…19bc at0007 = ╱47╱G╱ // 0x19b7 @0x7
0x19b0…19bc at0008 = ╱4e╱N╱ // 0x19b8 @0x8
0x19b0…19bc at0009 = ╱31╱1╱ // 0x19b9 @0x9
0x19b0…19bc at000a = ╱30╱0╱ // 0x19ba @0xa
0x19b0…19bc at000b = EOL // 0x19bb @0xb
0x19b0…19bc }
0x19bc…19c9 afb7 01525 PROC REGN21
0x19bc…19c9 LineComal80 {
0x19bc…19c9 ptr = 0xafb7 // 0x19bc @0x0
0x19bc…19c9 lno = 0x05f5 // 0x19be @0x2
0x19bc…19c9 at0004 = ╱9e00╱ PROC ╱ // 0x19c0 @0x4
0x19bc…19c9 at0006 = ╱52╱R╱ // 0x19c2 @0x6
0x19bc…19c9 at0007 = ╱45╱E╱ // 0x19c3 @0x7
0x19bc…19c9 at0008 = ╱47╱G╱ // 0x19c4 @0x8
0x19bc…19c9 at0009 = ╱4e╱N╱ // 0x19c5 @0x9
0x19bc…19c9 at000a = ╱32╱2╱ // 0x19c6 @0xa
0x19bc…19c9 at000b = ╱31╱1╱ // 0x19c7 @0xb
0x19bc…19c9 at000c = EOL // 0x19c8 @0xc
0x19bc…19c9 }
0x19c9…1a01 afef 01530 LET BD1 := D1 ; BD2 := D2 ; BDA2 := DA2 ; BD3 := D3 ; BD4 := D4 ; BD5 := D5 ; BD6 := D6
0x19c9…1a01 LineComal80 {
0x19c9…1a01 ptr = 0xafef // 0x19c9 @0x0
0x19c9…1a01 lno = 0x05fa // 0x19cb @0x2
0x19c9…1a01 at0004 = ╱86╱ LET ╱ // 0x19cd @0x4
0x19c9…1a01 at0005 = ╱42╱B╱ // 0x19ce @0x5
0x19c9…1a01 at0006 = ╱44╱D╱ // 0x19cf @0x6
0x19c9…1a01 at0007 = ╱31╱1╱ // 0x19d0 @0x7
0x19c9…1a01 at0008 = ╱f0╱ := ╱ // 0x19d1 @0x8
0x19c9…1a01 at0009 = ╱44╱D╱ // 0x19d2 @0x9
0x19c9…1a01 at000a = ╱31╱1╱ // 0x19d3 @0xa
0x19c9…1a01 at000b = ╱ea╱ ; ╱ // 0x19d4 @0xb
0x19c9…1a01 at000c = ╱42╱B╱ // 0x19d5 @0xc
0x19c9…1a01 at000d = ╱44╱D╱ // 0x19d6 @0xd
0x19c9…1a01 at000e = ╱32╱2╱ // 0x19d7 @0xe
0x19c9…1a01 at000f = ╱f0╱ := ╱ // 0x19d8 @0xf
0x19c9…1a01 at0010 = ╱44╱D╱ // 0x19d9 @0x10
0x19c9…1a01 at0011 = ╱32╱2╱ // 0x19da @0x11
0x19c9…1a01 at0012 = ╱ea╱ ; ╱ // 0x19db @0x12
0x19c9…1a01 at0013 = ╱42╱B╱ // 0x19dc @0x13
0x19c9…1a01 at0014 = ╱44╱D╱ // 0x19dd @0x14
0x19c9…1a01 at0015 = ╱41╱A╱ // 0x19de @0x15
0x19c9…1a01 at0016 = ╱32╱2╱ // 0x19df @0x16
0x19c9…1a01 at0017 = ╱f0╱ := ╱ // 0x19e0 @0x17
0x19c9…1a01 at0018 = ╱44╱D╱ // 0x19e1 @0x18
0x19c9…1a01 at0019 = ╱41╱A╱ // 0x19e2 @0x19
0x19c9…1a01 at001a = ╱32╱2╱ // 0x19e3 @0x1a
0x19c9…1a01 at001b = ╱ea╱ ; ╱ // 0x19e4 @0x1b
0x19c9…1a01 at001c = ╱42╱B╱ // 0x19e5 @0x1c
0x19c9…1a01 at001d = ╱44╱D╱ // 0x19e6 @0x1d
0x19c9…1a01 at001e = ╱33╱3╱ // 0x19e7 @0x1e
0x19c9…1a01 at001f = ╱f0╱ := ╱ // 0x19e8 @0x1f
0x19c9…1a01 at0020 = ╱44╱D╱ // 0x19e9 @0x20
0x19c9…1a01 at0021 = ╱33╱3╱ // 0x19ea @0x21
0x19c9…1a01 at0022 = ╱ea╱ ; ╱ // 0x19eb @0x22
0x19c9…1a01 at0023 = ╱42╱B╱ // 0x19ec @0x23
0x19c9…1a01 at0024 = ╱44╱D╱ // 0x19ed @0x24
0x19c9…1a01 at0025 = ╱34╱4╱ // 0x19ee @0x25
0x19c9…1a01 at0026 = ╱f0╱ := ╱ // 0x19ef @0x26
0x19c9…1a01 at0027 = ╱44╱D╱ // 0x19f0 @0x27
0x19c9…1a01 at0028 = ╱34╱4╱ // 0x19f1 @0x28
0x19c9…1a01 at0029 = ╱ea╱ ; ╱ // 0x19f2 @0x29
0x19c9…1a01 at002a = ╱42╱B╱ // 0x19f3 @0x2a
0x19c9…1a01 at002b = ╱44╱D╱ // 0x19f4 @0x2b
0x19c9…1a01 at002c = ╱35╱5╱ // 0x19f5 @0x2c
0x19c9…1a01 at002d = ╱f0╱ := ╱ // 0x19f6 @0x2d
0x19c9…1a01 at002e = ╱44╱D╱ // 0x19f7 @0x2e
0x19c9…1a01 at002f = ╱35╱5╱ // 0x19f8 @0x2f
0x19c9…1a01 at0030 = ╱ea╱ ; ╱ // 0x19f9 @0x30
0x19c9…1a01 at0031 = ╱42╱B╱ // 0x19fa @0x31
0x19c9…1a01 at0032 = ╱44╱D╱ // 0x19fb @0x32
0x19c9…1a01 at0033 = ╱36╱6╱ // 0x19fc @0x33
0x19c9…1a01 at0034 = ╱f0╱ := ╱ // 0x19fd @0x34
0x19c9…1a01 at0035 = ╱44╱D╱ // 0x19fe @0x35
0x19c9…1a01 at0036 = ╱36╱6╱ // 0x19ff @0x36
0x19c9…1a01 at0037 = EOL // 0x1a00 @0x37
0x19c9…1a01 }
0x1a01…1a0d affb 01535 ENDPROC REGN21
0x1a01…1a0d LineComal80 {
0x1a01…1a0d ptr = 0xaffb // 0x1a01 @0x0
0x1a01…1a0d lno = 0x05ff // 0x1a03 @0x2
0x1a01…1a0d at0004 = ╱9f╱ ENDPROC ╱ // 0x1a05 @0x4
0x1a01…1a0d at0005 = ╱52╱R╱ // 0x1a06 @0x5
0x1a01…1a0d at0006 = ╱45╱E╱ // 0x1a07 @0x6
0x1a01…1a0d at0007 = ╱47╱G╱ // 0x1a08 @0x7
0x1a01…1a0d at0008 = ╱4e╱N╱ // 0x1a09 @0x8
0x1a01…1a0d at0009 = ╱32╱2╱ // 0x1a0a @0x9
0x1a01…1a0d at000a = ╱31╱1╱ // 0x1a0b @0xa
0x1a01…1a0d at000b = EOL // 0x1a0c @0xb
0x1a01…1a0d }
0x1a0d…1a1a b008 01540 PROC REGN22
0x1a0d…1a1a LineComal80 {
0x1a0d…1a1a ptr = 0xb008 // 0x1a0d @0x0
0x1a0d…1a1a lno = 0x0604 // 0x1a0f @0x2
0x1a0d…1a1a at0004 = ╱9e00╱ PROC ╱ // 0x1a11 @0x4
0x1a0d…1a1a at0006 = ╱52╱R╱ // 0x1a13 @0x6
0x1a0d…1a1a at0007 = ╱45╱E╱ // 0x1a14 @0x7
0x1a0d…1a1a at0008 = ╱47╱G╱ // 0x1a15 @0x8
0x1a0d…1a1a at0009 = ╱4e╱N╱ // 0x1a16 @0x9
0x1a0d…1a1a at000a = ╱32╱2╱ // 0x1a17 @0xa
0x1a0d…1a1a at000b = ╱32╱2╱ // 0x1a18 @0xb
0x1a0d…1a1a at000c = EOL // 0x1a19 @0xc
0x1a0d…1a1a }
0x1a1a…1a52 b040 01545 LET D1 := BD1 ; D2 := BD2 ; DA2 := BDA2 ; D3 := BD3 ; D4 := BD4 ; D5 := BD5 ; D6 := BD6
0x1a1a…1a52 LineComal80 {
0x1a1a…1a52 ptr = 0xb040 // 0x1a1a @0x0
0x1a1a…1a52 lno = 0x0609 // 0x1a1c @0x2
0x1a1a…1a52 at0004 = ╱86╱ LET ╱ // 0x1a1e @0x4
0x1a1a…1a52 at0005 = ╱44╱D╱ // 0x1a1f @0x5
0x1a1a…1a52 at0006 = ╱31╱1╱ // 0x1a20 @0x6
0x1a1a…1a52 at0007 = ╱f0╱ := ╱ // 0x1a21 @0x7
0x1a1a…1a52 at0008 = ╱42╱B╱ // 0x1a22 @0x8
0x1a1a…1a52 at0009 = ╱44╱D╱ // 0x1a23 @0x9
0x1a1a…1a52 at000a = ╱31╱1╱ // 0x1a24 @0xa
0x1a1a…1a52 at000b = ╱ea╱ ; ╱ // 0x1a25 @0xb
0x1a1a…1a52 at000c = ╱44╱D╱ // 0x1a26 @0xc
0x1a1a…1a52 at000d = ╱32╱2╱ // 0x1a27 @0xd
0x1a1a…1a52 at000e = ╱f0╱ := ╱ // 0x1a28 @0xe
0x1a1a…1a52 at000f = ╱42╱B╱ // 0x1a29 @0xf
0x1a1a…1a52 at0010 = ╱44╱D╱ // 0x1a2a @0x10
0x1a1a…1a52 at0011 = ╱32╱2╱ // 0x1a2b @0x11
0x1a1a…1a52 at0012 = ╱ea╱ ; ╱ // 0x1a2c @0x12
0x1a1a…1a52 at0013 = ╱44╱D╱ // 0x1a2d @0x13
0x1a1a…1a52 at0014 = ╱41╱A╱ // 0x1a2e @0x14
0x1a1a…1a52 at0015 = ╱32╱2╱ // 0x1a2f @0x15
0x1a1a…1a52 at0016 = ╱f0╱ := ╱ // 0x1a30 @0x16
0x1a1a…1a52 at0017 = ╱42╱B╱ // 0x1a31 @0x17
0x1a1a…1a52 at0018 = ╱44╱D╱ // 0x1a32 @0x18
0x1a1a…1a52 at0019 = ╱41╱A╱ // 0x1a33 @0x19
0x1a1a…1a52 at001a = ╱32╱2╱ // 0x1a34 @0x1a
0x1a1a…1a52 at001b = ╱ea╱ ; ╱ // 0x1a35 @0x1b
0x1a1a…1a52 at001c = ╱44╱D╱ // 0x1a36 @0x1c
0x1a1a…1a52 at001d = ╱33╱3╱ // 0x1a37 @0x1d
0x1a1a…1a52 at001e = ╱f0╱ := ╱ // 0x1a38 @0x1e
0x1a1a…1a52 at001f = ╱42╱B╱ // 0x1a39 @0x1f
0x1a1a…1a52 at0020 = ╱44╱D╱ // 0x1a3a @0x20
0x1a1a…1a52 at0021 = ╱33╱3╱ // 0x1a3b @0x21
0x1a1a…1a52 at0022 = ╱ea╱ ; ╱ // 0x1a3c @0x22
0x1a1a…1a52 at0023 = ╱44╱D╱ // 0x1a3d @0x23
0x1a1a…1a52 at0024 = ╱34╱4╱ // 0x1a3e @0x24
0x1a1a…1a52 at0025 = ╱f0╱ := ╱ // 0x1a3f @0x25
0x1a1a…1a52 at0026 = ╱42╱B╱ // 0x1a40 @0x26
0x1a1a…1a52 at0027 = ╱44╱D╱ // 0x1a41 @0x27
0x1a1a…1a52 at0028 = ╱34╱4╱ // 0x1a42 @0x28
0x1a1a…1a52 at0029 = ╱ea╱ ; ╱ // 0x1a43 @0x29
0x1a1a…1a52 at002a = ╱44╱D╱ // 0x1a44 @0x2a
0x1a1a…1a52 at002b = ╱35╱5╱ // 0x1a45 @0x2b
0x1a1a…1a52 at002c = ╱f0╱ := ╱ // 0x1a46 @0x2c
0x1a1a…1a52 at002d = ╱42╱B╱ // 0x1a47 @0x2d
0x1a1a…1a52 at002e = ╱44╱D╱ // 0x1a48 @0x2e
0x1a1a…1a52 at002f = ╱35╱5╱ // 0x1a49 @0x2f
0x1a1a…1a52 at0030 = ╱ea╱ ; ╱ // 0x1a4a @0x30
0x1a1a…1a52 at0031 = ╱44╱D╱ // 0x1a4b @0x31
0x1a1a…1a52 at0032 = ╱36╱6╱ // 0x1a4c @0x32
0x1a1a…1a52 at0033 = ╱f0╱ := ╱ // 0x1a4d @0x33
0x1a1a…1a52 at0034 = ╱42╱B╱ // 0x1a4e @0x34
0x1a1a…1a52 at0035 = ╱44╱D╱ // 0x1a4f @0x35
0x1a1a…1a52 at0036 = ╱36╱6╱ // 0x1a50 @0x36
0x1a1a…1a52 at0037 = EOL // 0x1a51 @0x37
0x1a1a…1a52 }
0x1a52…1a5e b04c 01550 ENDPROC REGN22
0x1a52…1a5e LineComal80 {
0x1a52…1a5e ptr = 0xb04c // 0x1a52 @0x0
0x1a52…1a5e lno = 0x060e // 0x1a54 @0x2
0x1a52…1a5e at0004 = ╱9f╱ ENDPROC ╱ // 0x1a56 @0x4
0x1a52…1a5e at0005 = ╱52╱R╱ // 0x1a57 @0x5
0x1a52…1a5e at0006 = ╱45╱E╱ // 0x1a58 @0x6
0x1a52…1a5e at0007 = ╱47╱G╱ // 0x1a59 @0x7
0x1a52…1a5e at0008 = ╱4e╱N╱ // 0x1a5a @0x8
0x1a52…1a5e at0009 = ╱32╱2╱ // 0x1a5b @0x9
0x1a52…1a5e at000a = ╱32╱2╱ // 0x1a5c @0xa
0x1a52…1a5e at000b = EOL // 0x1a5d @0xb
0x1a52…1a5e }
0x1a5e…1a69 b057 01555 PROC LFIL
0x1a5e…1a69 LineComal80 {
0x1a5e…1a69 ptr = 0xb057 // 0x1a5e @0x0
0x1a5e…1a69 lno = 0x0613 // 0x1a60 @0x2
0x1a5e…1a69 at0004 = ╱9e00╱ PROC ╱ // 0x1a62 @0x4
0x1a5e…1a69 at0006 = ╱4c╱L╱ // 0x1a64 @0x6
0x1a5e…1a69 at0007 = ╱46╱F╱ // 0x1a65 @0x7
0x1a5e…1a69 at0008 = ╱49╱I╱ // 0x1a66 @0x8
0x1a5e…1a69 at0009 = ╱4c╱L╱ // 0x1a67 @0x9
0x1a5e…1a69 at000a = EOL // 0x1a68 @0xa
0x1a5e…1a69 }
0x1a69…1a70 b05e 01560 REPEAT
0x1a69…1a70 LineComal80 {
0x1a69…1a70 ptr = 0xb05e // 0x1a69 @0x0
0x1a69…1a70 lno = 0x0618 // 0x1a6b @0x2
0x1a69…1a70 at0004 = ╱9700╱ REPEAT ╱ // 0x1a6d @0x4
0x1a69…1a70 at0006 = EOL // 0x1a6f @0x6
0x1a69…1a70 }
0x1a70…1a7d b06b 01565 GET FIL $ : S $
0x1a70…1a7d LineComal80 {
0x1a70…1a7d ptr = 0xb06b // 0x1a70 @0x0
0x1a70…1a7d lno = 0x061d // 0x1a72 @0x2
0x1a70…1a7d at0004 = ╱a9╱ GET ╱ // 0x1a74 @0x4
0x1a70…1a7d at0005 = ╱46╱F╱ // 0x1a75 @0x5
0x1a70…1a7d at0006 = ╱49╱I╱ // 0x1a76 @0x6
0x1a70…1a7d at0007 = ╱4c╱L╱ // 0x1a77 @0x7
0x1a70…1a7d at0008 = ╱ef╱ $ ╱ // 0x1a78 @0x8
0x1a70…1a7d at0009 = ╱f1╱ : ╱ // 0x1a79 @0x9
0x1a70…1a7d at000a = ╱53╱S╱ // 0x1a7a @0xa
0x1a70…1a7d at000b = ╱ef╱ $ ╱ // 0x1a7b @0xb
0x1a70…1a7d at000c = EOL // 0x1a7c @0xc
0x1a70…1a7d }
0x1a7d…1a91 b07f 01570 IF ╱cd╱ ( FIL $ ) = O THEN PRINT S $
0x1a7d…1a91 LineComal80 {
0x1a7d…1a91 ptr = 0xb07f // 0x1a7d @0x0
0x1a7d…1a91 lno = 0x0622 // 0x1a7f @0x2
0x1a7d…1a91 at0004 = ╱8200╱ IF ╱ // 0x1a81 @0x4
0x1a7d…1a91 at0006 = ╱cd╱ // 0x1a83 @0x6
0x1a7d…1a91 at0007 = ╱ed╱ ( ╱ // 0x1a84 @0x7
0x1a7d…1a91 at0008 = ╱46╱F╱ // 0x1a85 @0x8
0x1a7d…1a91 at0009 = ╱49╱I╱ // 0x1a86 @0x9
0x1a7d…1a91 at000a = ╱4c╱L╱ // 0x1a87 @0xa
0x1a7d…1a91 at000b = ╱ef╱ $ ╱ // 0x1a88 @0xb
0x1a7d…1a91 at000c = ╱ee╱ ) ╱ // 0x1a89 @0xc
0x1a7d…1a91 at000d = ╱df╱ = ╱ // 0x1a8a @0xd
0x1a7d…1a91 at000e = ╱4f╱O╱ // 0x1a8b @0xe
0x1a7d…1a91 at000f = ╱b5╱ THEN ╱ // 0x1a8c @0xf
0x1a7d…1a91 at0010 = ╱92╱ PRINT ╱ // 0x1a8d @0x10
0x1a7d…1a91 at0011 = ╱53╱S╱ // 0x1a8e @0x11
0x1a7d…1a91 at0012 = ╱ef╱ $ ╱ // 0x1a8f @0x12
0x1a7d…1a91 at0013 = EOL // 0x1a90 @0x13
0x1a7d…1a91 }
0x1a91…1aa4 b092 01575 UNTIL ╱cd╱ ( FIL $ ) = 19
0x1a91…1aa4 LineComal80 {
0x1a91…1aa4 ptr = 0xb092 // 0x1a91 @0x0
0x1a91…1aa4 lno = 0x0627 // 0x1a93 @0x2
0x1a91…1aa4 at0004 = ╱98╱ UNTIL ╱ // 0x1a95 @0x4
0x1a91…1aa4 at0005 = ╱cd╱ // 0x1a96 @0x5
0x1a91…1aa4 at0006 = ╱ed╱ ( ╱ // 0x1a97 @0x6
0x1a91…1aa4 at0007 = ╱46╱F╱ // 0x1a98 @0x7
0x1a91…1aa4 at0008 = ╱49╱I╱ // 0x1a99 @0x8
0x1a91…1aa4 at0009 = ╱4c╱L╱ // 0x1a9a @0x9
0x1a91…1aa4 at000a = ╱ef╱ $ ╱ // 0x1a9b @0xa
0x1a91…1aa4 at000b = ╱ee╱ ) ╱ // 0x1a9c @0xb
0x1a91…1aa4 at000c = ╱df╱ = ╱ // 0x1a9d @0xc
0x1a91…1aa4 at000d = ╱31╱1╱ // 0x1a9e @0xd
0x1a91…1aa4 at000e = ╱39╱9╱ // 0x1a9f @0xe
0x1a91…1aa4 at000f = ╱f21300╱ // 0x1aa0 @0xf
0x1a91…1aa4 at0012 = EOL // 0x1aa3 @0x12
0x1a91…1aa4 }
0x1aa4…1aae b09c 01580 CLOSE FIL $
0x1aa4…1aae LineComal80 {
0x1aa4…1aae ptr = 0xb09c // 0x1aa4 @0x0
0x1aa4…1aae lno = 0x062c // 0x1aa6 @0x2
0x1aa4…1aae at0004 = ╱a8╱ CLOSE ╱ // 0x1aa8 @0x4
0x1aa4…1aae at0005 = ╱46╱F╱ // 0x1aa9 @0x5
0x1aa4…1aae at0006 = ╱49╱I╱ // 0x1aaa @0x6
0x1aa4…1aae at0007 = ╱4c╱L╱ // 0x1aab @0x7
0x1aa4…1aae at0008 = ╱ef╱ $ ╱ // 0x1aac @0x8
0x1aa4…1aae at0009 = EOL // 0x1aad @0x9
0x1aa4…1aae }
0x1aae…1ab8 b0a6 01585 ENDPROC LFIL
0x1aae…1ab8 LineComal80 {
0x1aae…1ab8 ptr = 0xb0a6 // 0x1aae @0x0
0x1aae…1ab8 lno = 0x0631 // 0x1ab0 @0x2
0x1aae…1ab8 at0004 = ╱9f╱ ENDPROC ╱ // 0x1ab2 @0x4
0x1aae…1ab8 at0005 = ╱4c╱L╱ // 0x1ab3 @0x5
0x1aae…1ab8 at0006 = ╱46╱F╱ // 0x1ab4 @0x6
0x1aae…1ab8 at0007 = ╱49╱I╱ // 0x1ab5 @0x7
0x1aae…1ab8 at0008 = ╱4c╱L╱ // 0x1ab6 @0x8
0x1aae…1ab8 at0009 = EOL // 0x1ab7 @0x9
0x1aae…1ab8 }
0x1ab8…1ac4 b0b2 01590 PROC SK[RM
0x1ab8…1ac4 LineComal80 {
0x1ab8…1ac4 ptr = 0xb0b2 // 0x1ab8 @0x0
0x1ab8…1ac4 lno = 0x0636 // 0x1aba @0x2
0x1ab8…1ac4 at0004 = ╱9e00╱ PROC ╱ // 0x1abc @0x4
0x1ab8…1ac4 at0006 = ╱53╱S╱ // 0x1abe @0x6
0x1ab8…1ac4 at0007 = ╱4b╱K╱ // 0x1abf @0x7
0x1ab8…1ac4 at0008 = ╱5b╱[╱ // 0x1ac0 @0x8
0x1ab8…1ac4 at0009 = ╱52╱R╱ // 0x1ac1 @0x9
0x1ab8…1ac4 at000a = ╱4d╱M╱ // 0x1ac2 @0xa
0x1ab8…1ac4 at000b = EOL // 0x1ac3 @0xb
0x1ab8…1ac4 }
0x1ac4…1af3 b0e1 01595 LET A1 $ ( 24 ) := "24.…FORMUE…" + PIL $ ( 1 : 18 )
0x1ac4…1af3 LineComal80 {
0x1ac4…1af3 ptr = 0xb0e1 // 0x1ac4 @0x0
0x1ac4…1af3 lno = 0x063b // 0x1ac6 @0x2
0x1ac4…1af3 at0004 = ╱86╱ LET ╱ // 0x1ac8 @0x4
0x1ac4…1af3 at0005 = ╱41╱A╱ // 0x1ac9 @0x5
0x1ac4…1af3 at0006 = ╱31╱1╱ // 0x1aca @0x6
0x1ac4…1af3 at0007 = ╱ef╱ $ ╱ // 0x1acb @0x7
0x1ac4…1af3 at0008 = ╱ed╱ ( ╱ // 0x1acc @0x8
0x1ac4…1af3 at0009 = ╱32╱2╱ // 0x1acd @0x9
0x1ac4…1af3 at000a = ╱34╱4╱ // 0x1ace @0xa
0x1ac4…1af3 at000b = ╱f21800╱ // 0x1acf @0xb
0x1ac4…1af3 at000e = ╱ee╱ ) ╱ // 0x1ad2 @0xe
0x1ac4…1af3 at000f = ╱f0╱ := ╱ // 0x1ad3 @0xf
0x1ac4…1af3 at0010 = ╱22╱"╱ // 0x1ad4 @0x10
0x1ac4…1af3 at0011 = ╱32╱2╱ // 0x1ad5 @0x11
0x1ac4…1af3 at0012 = ╱34╱4╱ // 0x1ad6 @0x12
0x1ac4…1af3 at0013 = ╱2e╱.╱ // 0x1ad7 @0x13
0x1ac4…1af3 at0014 = ╱20╱…╱ // 0x1ad8 @0x14
0x1ac4…1af3 at0015 = ╱46╱F╱ // 0x1ad9 @0x15
0x1ac4…1af3 at0016 = ╱4f╱O╱ // 0x1ada @0x16
0x1ac4…1af3 at0017 = ╱52╱R╱ // 0x1adb @0x17
0x1ac4…1af3 at0018 = ╱4d╱M╱ // 0x1adc @0x18
0x1ac4…1af3 at0019 = ╱55╱U╱ // 0x1add @0x19
0x1ac4…1af3 at001a = ╱45╱E╱ // 0x1ade @0x1a
0x1ac4…1af3 at001b = ╱20╱…╱ // 0x1adf @0x1b
0x1ac4…1af3 at001c = ╱22╱"╱ // 0x1ae0 @0x1c
0x1ac4…1af3 at001d = ╱eb╱ + ╱ // 0x1ae1 @0x1d
0x1ac4…1af3 at001e = ╱50╱P╱ // 0x1ae2 @0x1e
0x1ac4…1af3 at001f = ╱49╱I╱ // 0x1ae3 @0x1f
0x1ac4…1af3 at0020 = ╱4c╱L╱ // 0x1ae4 @0x20
0x1ac4…1af3 at0021 = ╱ef╱ $ ╱ // 0x1ae5 @0x21
0x1ac4…1af3 at0022 = ╱ed╱ ( ╱ // 0x1ae6 @0x22
0x1ac4…1af3 at0023 = ╱31╱1╱ // 0x1ae7 @0x23
0x1ac4…1af3 at0024 = ╱f20100╱ // 0x1ae8 @0x24
0x1ac4…1af3 at0027 = ╱f1╱ : ╱ // 0x1aeb @0x27
0x1ac4…1af3 at0028 = ╱31╱1╱ // 0x1aec @0x28
0x1ac4…1af3 at0029 = ╱38╱8╱ // 0x1aed @0x29
0x1ac4…1af3 at002a = ╱f21200╱ // 0x1aee @0x2a
0x1ac4…1af3 at002d = ╱ee╱ ) ╱ // 0x1af1 @0x2d
0x1ac4…1af3 at002e = EOL // 0x1af2 @0x2e
0x1ac4…1af3 }
0x1af3…1b07 b0f5 01600 FOR X := 1 TO 2 DO
0x1af3…1b07 LineComal80 {
0x1af3…1b07 ptr = 0xb0f5 // 0x1af3 @0x0
0x1af3…1b07 lno = 0x0640 // 0x1af5 @0x2
0x1af3…1b07 at0004 = ╱8300╱ FOR ╱ // 0x1af7 @0x4
0x1af3…1b07 at0006 = ╱58╱X╱ // 0x1af9 @0x6
0x1af3…1b07 at0007 = ╱f0╱ := ╱ // 0x1afa @0x7
0x1af3…1b07 at0008 = ╱31╱1╱ // 0x1afb @0x8
0x1af3…1b07 at0009 = ╱f20100╱ // 0x1afc @0x9
0x1af3…1b07 at000c = ╱b731╱ TO ╱ // 0x1aff @0xc
0x1af3…1b07 at000e = ╱32╱2╱ // 0x1b01 @0xe
0x1af3…1b07 at000f = ╱f20c00╱ // 0x1b02 @0xf
0x1af3…1b07 at0012 = ╱bb╱ DO ╱ // 0x1b05 @0x12
0x1af3…1b07 at0013 = EOL // 0x1b06 @0x13
0x1af3…1b07 }
0x1b07…1b14 b102 01605 PRINT A1 $ ( X ) ;
0x1b07…1b14 LineComal80 {
0x1b07…1b14 ptr = 0xb102 // 0x1b07 @0x0
0x1b07…1b14 lno = 0x0645 // 0x1b09 @0x2
0x1b07…1b14 at0004 = ╱92╱ PRINT ╱ // 0x1b0b @0x4
0x1b07…1b14 at0005 = ╱41╱A╱ // 0x1b0c @0x5
0x1b07…1b14 at0006 = ╱31╱1╱ // 0x1b0d @0x6
0x1b07…1b14 at0007 = ╱ef╱ $ ╱ // 0x1b0e @0x7
0x1b07…1b14 at0008 = ╱ed╱ ( ╱ // 0x1b0f @0x8
0x1b07…1b14 at0009 = ╱58╱X╱ // 0x1b10 @0x9
0x1b07…1b14 at000a = ╱ee╱ ) ╱ // 0x1b11 @0xa
0x1b07…1b14 at000b = ╱ea╱ ; ╱ // 0x1b12 @0xb
0x1b07…1b14 at000c = EOL // 0x1b13 @0xc
0x1b07…1b14 }
0x1b14…1b2d b11b 01610 IF A ( X ) >< O THEN PRINT USING NU $ : A ( X ) ;
0x1b14…1b2d LineComal80 {
0x1b14…1b2d ptr = 0xb11b // 0x1b14 @0x0
0x1b14…1b2d lno = 0x064a // 0x1b16 @0x2
0x1b14…1b2d at0004 = ╱8200╱ IF ╱ // 0x1b18 @0x4
0x1b14…1b2d at0006 = ╱41╱A╱ // 0x1b1a @0x6
0x1b14…1b2d at0007 = ╱ed╱ ( ╱ // 0x1b1b @0x7
0x1b14…1b2d at0008 = ╱58╱X╱ // 0x1b1c @0x8
0x1b14…1b2d at0009 = ╱ee╱ ) ╱ // 0x1b1d @0x9
0x1b14…1b2d at000a = ╱e4╱ >< ╱ // 0x1b1e @0xa
0x1b14…1b2d at000b = ╱4f╱O╱ // 0x1b1f @0xb
0x1b14…1b2d at000c = ╱b5╱ THEN ╱ // 0x1b20 @0xc
0x1b14…1b2d at000d = ╱92╱ PRINT ╱ // 0x1b21 @0xd
0x1b14…1b2d at000e = ╱b9╱ USING ╱ // 0x1b22 @0xe
0x1b14…1b2d at000f = ╱4e╱N╱ // 0x1b23 @0xf
0x1b14…1b2d at0010 = ╱55╱U╱ // 0x1b24 @0x10
0x1b14…1b2d at0011 = ╱ef╱ $ ╱ // 0x1b25 @0x11
0x1b14…1b2d at0012 = ╱f1╱ : ╱ // 0x1b26 @0x12
0x1b14…1b2d at0013 = ╱41╱A╱ // 0x1b27 @0x13
0x1b14…1b2d at0014 = ╱ed╱ ( ╱ // 0x1b28 @0x14
0x1b14…1b2d at0015 = ╱58╱X╱ // 0x1b29 @0x15
0x1b14…1b2d at0016 = ╱ee╱ ) ╱ // 0x1b2a @0x16
0x1b14…1b2d at0017 = ╱ea╱ ; ╱ // 0x1b2b @0x17
0x1b14…1b2d at0018 = EOL // 0x1b2c @0x18
0x1b14…1b2d }
0x1b2d…1b49 b137 01615 PRINT TAB ( 42 ) ; A1 $ ( X + 12 ) ;
0x1b2d…1b49 LineComal80 {
0x1b2d…1b49 ptr = 0xb137 // 0x1b2d @0x0
0x1b2d…1b49 lno = 0x064f // 0x1b2f @0x2
0x1b2d…1b49 at0004 = ╱92╱ PRINT ╱ // 0x1b31 @0x4
0x1b2d…1b49 at0005 = ╱d2╱ TAB ╱ // 0x1b32 @0x5
0x1b2d…1b49 at0006 = ╱ed╱ ( ╱ // 0x1b33 @0x6
0x1b2d…1b49 at0007 = ╱34╱4╱ // 0x1b34 @0x7
0x1b2d…1b49 at0008 = ╱32╱2╱ // 0x1b35 @0x8
0x1b2d…1b49 at0009 = ╱f22a00╱ // 0x1b36 @0x9
0x1b2d…1b49 at000c = ╱ee╱ ) ╱ // 0x1b39 @0xc
0x1b2d…1b49 at000d = ╱ea╱ ; ╱ // 0x1b3a @0xd
0x1b2d…1b49 at000e = ╱41╱A╱ // 0x1b3b @0xe
0x1b2d…1b49 at000f = ╱31╱1╱ // 0x1b3c @0xf
0x1b2d…1b49 at0010 = ╱ef╱ $ ╱ // 0x1b3d @0x10
0x1b2d…1b49 at0011 = ╱ed╱ ( ╱ // 0x1b3e @0x11
0x1b2d…1b49 at0012 = ╱58╱X╱ // 0x1b3f @0x12
0x1b2d…1b49 at0013 = ╱e5╱ + ╱ // 0x1b40 @0x13
0x1b2d…1b49 at0014 = ╱31╱1╱ // 0x1b41 @0x14
0x1b2d…1b49 at0015 = ╱32╱2╱ // 0x1b42 @0x15
0x1b2d…1b49 at0016 = ╱f20c00╱ // 0x1b43 @0x16
0x1b2d…1b49 at0019 = ╱ee╱ ) ╱ // 0x1b46 @0x19
0x1b2d…1b49 at001a = ╱ea╱ ; ╱ // 0x1b47 @0x1a
0x1b2d…1b49 at001b = EOL // 0x1b48 @0x1b
0x1b2d…1b49 }
0x1b49…1b6e b15c 01620 IF A ( X + 12 ) >< O THEN PRINT USING NU $ : A ( X + 12 ) ;
0x1b49…1b6e LineComal80 {
0x1b49…1b6e ptr = 0xb15c // 0x1b49 @0x0
0x1b49…1b6e lno = 0x0654 // 0x1b4b @0x2
0x1b49…1b6e at0004 = ╱8200╱ IF ╱ // 0x1b4d @0x4
0x1b49…1b6e at0006 = ╱41╱A╱ // 0x1b4f @0x6
0x1b49…1b6e at0007 = ╱ed╱ ( ╱ // 0x1b50 @0x7
0x1b49…1b6e at0008 = ╱58╱X╱ // 0x1b51 @0x8
0x1b49…1b6e at0009 = ╱e5╱ + ╱ // 0x1b52 @0x9
0x1b49…1b6e at000a = ╱31╱1╱ // 0x1b53 @0xa
0x1b49…1b6e at000b = ╱32╱2╱ // 0x1b54 @0xb
0x1b49…1b6e at000c = ╱f20c00╱ // 0x1b55 @0xc
0x1b49…1b6e at000f = ╱ee╱ ) ╱ // 0x1b58 @0xf
0x1b49…1b6e at0010 = ╱e4╱ >< ╱ // 0x1b59 @0x10
0x1b49…1b6e at0011 = ╱4f╱O╱ // 0x1b5a @0x11
0x1b49…1b6e at0012 = ╱b5╱ THEN ╱ // 0x1b5b @0x12
0x1b49…1b6e at0013 = ╱92╱ PRINT ╱ // 0x1b5c @0x13
0x1b49…1b6e at0014 = ╱b9╱ USING ╱ // 0x1b5d @0x14
0x1b49…1b6e at0015 = ╱4e╱N╱ // 0x1b5e @0x15
0x1b49…1b6e at0016 = ╱55╱U╱ // 0x1b5f @0x16
0x1b49…1b6e at0017 = ╱ef╱ $ ╱ // 0x1b60 @0x17
0x1b49…1b6e at0018 = ╱f1╱ : ╱ // 0x1b61 @0x18
0x1b49…1b6e at0019 = ╱41╱A╱ // 0x1b62 @0x19
0x1b49…1b6e at001a = ╱ed╱ ( ╱ // 0x1b63 @0x1a
0x1b49…1b6e at001b = ╱58╱X╱ // 0x1b64 @0x1b
0x1b49…1b6e at001c = ╱e5╱ + ╱ // 0x1b65 @0x1c
0x1b49…1b6e at001d = ╱31╱1╱ // 0x1b66 @0x1d
0x1b49…1b6e at001e = ╱32╱2╱ // 0x1b67 @0x1e
0x1b49…1b6e at001f = ╱f20c00╱ // 0x1b68 @0x1f
0x1b49…1b6e at0022 = ╱ee╱ ) ╱ // 0x1b6b @0x22
0x1b49…1b6e at0023 = ╱ea╱ ; ╱ // 0x1b6c @0x23
0x1b49…1b6e at0024 = EOL // 0x1b6d @0x24
0x1b49…1b6e }
0x1b6e…1b74 b162 01625 PRINT
0x1b6e…1b74 LineComal80 {
0x1b6e…1b74 ptr = 0xb162 // 0x1b6e @0x0
0x1b6e…1b74 lno = 0x0659 // 0x1b70 @0x2
0x1b6e…1b74 at0004 = ╱92╱ PRINT ╱ // 0x1b72 @0x4
0x1b6e…1b74 at0005 = EOL // 0x1b73 @0x5
0x1b6e…1b74 }
0x1b74…1b7b b169 01630 NEXT X
0x1b74…1b7b LineComal80 {
0x1b74…1b7b ptr = 0xb169 // 0x1b74 @0x0
0x1b74…1b7b lno = 0x065e // 0x1b76 @0x2
0x1b74…1b7b at0004 = ╱84╱ NEXT ╱ // 0x1b78 @0x4
0x1b74…1b7b at0005 = ╱58╱X╱ // 0x1b79 @0x5
0x1b74…1b7b at0006 = EOL // 0x1b7a @0x6
0x1b74…1b7b }
0x1b7b…1b86 b174 01635 ENDPROC SK[RM
0x1b7b…1b86 LineComal80 {
0x1b7b…1b86 ptr = 0xb174 // 0x1b7b @0x0
0x1b7b…1b86 lno = 0x0663 // 0x1b7d @0x2
0x1b7b…1b86 at0004 = ╱9f╱ ENDPROC ╱ // 0x1b7f @0x4
0x1b7b…1b86 at0005 = ╱53╱S╱ // 0x1b80 @0x5
0x1b7b…1b86 at0006 = ╱4b╱K╱ // 0x1b81 @0x6
0x1b7b…1b86 at0007 = ╱5b╱[╱ // 0x1b82 @0x7
0x1b7b…1b86 at0008 = ╱52╱R╱ // 0x1b83 @0x8
0x1b7b…1b86 at0009 = ╱4d╱M╱ // 0x1b84 @0x9
0x1b7b…1b86 at000a = EOL // 0x1b85 @0xa
0x1b7b…1b86 }
0x1b86…1b95 b183 01640 PROC INDKOMST
0x1b86…1b95 LineComal80 {
0x1b86…1b95 ptr = 0xb183 // 0x1b86 @0x0
0x1b86…1b95 lno = 0x0668 // 0x1b88 @0x2
0x1b86…1b95 at0004 = ╱9e00╱ PROC ╱ // 0x1b8a @0x4
0x1b86…1b95 at0006 = ╱49╱I╱ // 0x1b8c @0x6
0x1b86…1b95 at0007 = ╱4e╱N╱ // 0x1b8d @0x7
0x1b86…1b95 at0008 = ╱44╱D╱ // 0x1b8e @0x8
0x1b86…1b95 at0009 = ╱4b╱K╱ // 0x1b8f @0x9
0x1b86…1b95 at000a = ╱4f╱O╱ // 0x1b90 @0xa
0x1b86…1b95 at000b = ╱4d╱M╱ // 0x1b91 @0xb
0x1b86…1b95 at000c = ╱53╱S╱ // 0x1b92 @0xc
0x1b86…1b95 at000d = ╱54╱T╱ // 0x1b93 @0xd
0x1b86…1b95 at000e = EOL // 0x1b94 @0xe
0x1b86…1b95 }
0x1b95…1b9b b189 01645 CLEAR
0x1b95…1b9b LineComal80 {
0x1b95…1b9b ptr = 0xb189 // 0x1b95 @0x0
0x1b95…1b9b lno = 0x066d // 0x1b97 @0x2
0x1b95…1b9b at0004 = ╱a0╱ CLEAR ╱ // 0x1b99 @0x4
0x1b95…1b9b at0005 = EOL // 0x1b9a @0x5
0x1b95…1b9b }
0x1b9b…1bbf b1ad 01650 PRINT TAB ( 29 ) ; ">>>…EASY…-…SKAT…<<<"
0x1b9b…1bbf LineComal80 {
0x1b9b…1bbf ptr = 0xb1ad // 0x1b9b @0x0
0x1b9b…1bbf lno = 0x0672 // 0x1b9d @0x2
0x1b9b…1bbf at0004 = ╱92╱ PRINT ╱ // 0x1b9f @0x4
0x1b9b…1bbf at0005 = ╱d2╱ TAB ╱ // 0x1ba0 @0x5
0x1b9b…1bbf at0006 = ╱ed╱ ( ╱ // 0x1ba1 @0x6
0x1b9b…1bbf at0007 = ╱32╱2╱ // 0x1ba2 @0x7
0x1b9b…1bbf at0008 = ╱39╱9╱ // 0x1ba3 @0x8
0x1b9b…1bbf at0009 = ╱f21d00╱ // 0x1ba4 @0x9
0x1b9b…1bbf at000c = ╱ee╱ ) ╱ // 0x1ba7 @0xc
0x1b9b…1bbf at000d = ╱ea╱ ; ╱ // 0x1ba8 @0xd
0x1b9b…1bbf at000e = ╱22╱"╱ // 0x1ba9 @0xe
0x1b9b…1bbf at000f = ╱3e╱>╱ // 0x1baa @0xf
0x1b9b…1bbf at0010 = ╱3e╱>╱ // 0x1bab @0x10
0x1b9b…1bbf at0011 = ╱3e╱>╱ // 0x1bac @0x11
0x1b9b…1bbf at0012 = ╱20╱…╱ // 0x1bad @0x12
0x1b9b…1bbf at0013 = ╱45╱E╱ // 0x1bae @0x13
0x1b9b…1bbf at0014 = ╱41╱A╱ // 0x1baf @0x14
0x1b9b…1bbf at0015 = ╱53╱S╱ // 0x1bb0 @0x15
0x1b9b…1bbf at0016 = ╱59╱Y╱ // 0x1bb1 @0x16
0x1b9b…1bbf at0017 = ╱20╱…╱ // 0x1bb2 @0x17
0x1b9b…1bbf at0018 = ╱2d╱-╱ // 0x1bb3 @0x18
0x1b9b…1bbf at0019 = ╱20╱…╱ // 0x1bb4 @0x19
0x1b9b…1bbf at001a = ╱53╱S╱ // 0x1bb5 @0x1a
0x1b9b…1bbf at001b = ╱4b╱K╱ // 0x1bb6 @0x1b
0x1b9b…1bbf at001c = ╱41╱A╱ // 0x1bb7 @0x1c
0x1b9b…1bbf at001d = ╱54╱T╱ // 0x1bb8 @0x1d
0x1b9b…1bbf at001e = ╱20╱…╱ // 0x1bb9 @0x1e
0x1b9b…1bbf at001f = ╱3c╱<╱ // 0x1bba @0x1f
0x1b9b…1bbf at0020 = ╱3c╱<╱ // 0x1bbb @0x20
0x1b9b…1bbf at0021 = ╱3c╱<╱ // 0x1bbc @0x21
0x1b9b…1bbf at0022 = ╱22╱"╱ // 0x1bbd @0x22
0x1b9b…1bbf at0023 = EOL // 0x1bbe @0x23
0x1b9b…1bbf }
0x1bbf…1bef b1dd 01655 PRINT TAB ( 20 ) ; "***…INDDATERING…TIL…" ; QT $ ; "…***"
0x1bbf…1bef LineComal80 {
0x1bbf…1bef ptr = 0xb1dd // 0x1bbf @0x0
0x1bbf…1bef lno = 0x0677 // 0x1bc1 @0x2
0x1bbf…1bef at0004 = ╱92╱ PRINT ╱ // 0x1bc3 @0x4
0x1bbf…1bef at0005 = ╱d2╱ TAB ╱ // 0x1bc4 @0x5
0x1bbf…1bef at0006 = ╱ed╱ ( ╱ // 0x1bc5 @0x6
0x1bbf…1bef at0007 = ╱32╱2╱ // 0x1bc6 @0x7
0x1bbf…1bef at0008 = ╱30╱0╱ // 0x1bc7 @0x8
0x1bbf…1bef at0009 = ╱f21400╱ // 0x1bc8 @0x9
0x1bbf…1bef at000c = ╱ee╱ ) ╱ // 0x1bcb @0xc
0x1bbf…1bef at000d = ╱ea╱ ; ╱ // 0x1bcc @0xd
0x1bbf…1bef at000e = ╱22╱"╱ // 0x1bcd @0xe
0x1bbf…1bef at000f = ╱2a╱*╱ // 0x1bce @0xf
0x1bbf…1bef at0010 = ╱2a╱*╱ // 0x1bcf @0x10
0x1bbf…1bef at0011 = ╱2a╱*╱ // 0x1bd0 @0x11
0x1bbf…1bef at0012 = ╱20╱…╱ // 0x1bd1 @0x12
0x1bbf…1bef at0013 = ╱49╱I╱ // 0x1bd2 @0x13
0x1bbf…1bef at0014 = ╱4e╱N╱ // 0x1bd3 @0x14
0x1bbf…1bef at0015 = ╱44╱D╱ // 0x1bd4 @0x15
0x1bbf…1bef at0016 = ╱44╱D╱ // 0x1bd5 @0x16
0x1bbf…1bef at0017 = ╱41╱A╱ // 0x1bd6 @0x17
0x1bbf…1bef at0018 = ╱54╱T╱ // 0x1bd7 @0x18
0x1bbf…1bef at0019 = ╱45╱E╱ // 0x1bd8 @0x19
0x1bbf…1bef at001a = ╱52╱R╱ // 0x1bd9 @0x1a
0x1bbf…1bef at001b = ╱49╱I╱ // 0x1bda @0x1b
0x1bbf…1bef at001c = ╱4e╱N╱ // 0x1bdb @0x1c
0x1bbf…1bef at001d = ╱47╱G╱ // 0x1bdc @0x1d
0x1bbf…1bef at001e = ╱20╱…╱ // 0x1bdd @0x1e
0x1bbf…1bef at001f = ╱54╱T╱ // 0x1bde @0x1f
0x1bbf…1bef at0020 = ╱49╱I╱ // 0x1bdf @0x20
0x1bbf…1bef at0021 = ╱4c╱L╱ // 0x1be0 @0x21
0x1bbf…1bef at0022 = ╱20╱…╱ // 0x1be1 @0x22
0x1bbf…1bef at0023 = ╱22╱"╱ // 0x1be2 @0x23
0x1bbf…1bef at0024 = ╱ea╱ ; ╱ // 0x1be3 @0x24
0x1bbf…1bef at0025 = ╱51╱Q╱ // 0x1be4 @0x25
0x1bbf…1bef at0026 = ╱54╱T╱ // 0x1be5 @0x26
0x1bbf…1bef at0027 = ╱ef╱ $ ╱ // 0x1be6 @0x27
0x1bbf…1bef at0028 = ╱ea╱ ; ╱ // 0x1be7 @0x28
0x1bbf…1bef at0029 = ╱22╱"╱ // 0x1be8 @0x29
0x1bbf…1bef at002a = ╱20╱…╱ // 0x1be9 @0x2a
0x1bbf…1bef at002b = ╱2a╱*╱ // 0x1bea @0x2b
0x1bbf…1bef at002c = ╱2a╱*╱ // 0x1beb @0x2c
0x1bbf…1bef at002d = ╱2a╱*╱ // 0x1bec @0x2d
0x1bbf…1bef at002e = ╱22╱"╱ // 0x1bed @0x2e
0x1bbf…1bef at002f = EOL // 0x1bee @0x2f
0x1bbf…1bef }
0x1bef…1c35 b223 01660 PRINT "Nr.…Indkomst" ; TAB ( 33 ) ; "Bel|b" ; TAB ( 42 ) ; "Nr.…Fradrag" ; TAB ( 74 ) ;
0x1bef…1c35 LineComal80 {
0x1bef…1c35 ptr = 0xb223 // 0x1bef @0x0
0x1bef…1c35 lno = 0x067c // 0x1bf1 @0x2
0x1bef…1c35 at0004 = ╱92╱ PRINT ╱ // 0x1bf3 @0x4
0x1bef…1c35 at0005 = ╱22╱"╱ // 0x1bf4 @0x5
0x1bef…1c35 at0006 = ╱4e╱N╱ // 0x1bf5 @0x6
0x1bef…1c35 at0007 = ╱72╱r╱ // 0x1bf6 @0x7
0x1bef…1c35 at0008 = ╱2e╱.╱ // 0x1bf7 @0x8
0x1bef…1c35 at0009 = ╱20╱…╱ // 0x1bf8 @0x9
0x1bef…1c35 at000a = ╱49╱I╱ // 0x1bf9 @0xa
0x1bef…1c35 at000b = ╱6e╱n╱ // 0x1bfa @0xb
0x1bef…1c35 at000c = ╱64╱d╱ // 0x1bfb @0xc
0x1bef…1c35 at000d = ╱6b╱k╱ // 0x1bfc @0xd
0x1bef…1c35 at000e = ╱6f╱o╱ // 0x1bfd @0xe
0x1bef…1c35 at000f = ╱6d╱m╱ // 0x1bfe @0xf
0x1bef…1c35 at0010 = ╱73╱s╱ // 0x1bff @0x10
0x1bef…1c35 at0011 = ╱74╱t╱ // 0x1c00 @0x11
0x1bef…1c35 at0012 = ╱22╱"╱ // 0x1c01 @0x12
0x1bef…1c35 at0013 = ╱ea╱ ; ╱ // 0x1c02 @0x13
0x1bef…1c35 at0014 = ╱d2╱ TAB ╱ // 0x1c03 @0x14
0x1bef…1c35 at0015 = ╱ed╱ ( ╱ // 0x1c04 @0x15
0x1bef…1c35 at0016 = ╱33╱3╱ // 0x1c05 @0x16
0x1bef…1c35 at0017 = ╱33╱3╱ // 0x1c06 @0x17
0x1bef…1c35 at0018 = ╱f22100╱ // 0x1c07 @0x18
0x1bef…1c35 at001b = ╱ee╱ ) ╱ // 0x1c0a @0x1b
0x1bef…1c35 at001c = ╱ea╱ ; ╱ // 0x1c0b @0x1c
0x1bef…1c35 at001d = ╱22╱"╱ // 0x1c0c @0x1d
0x1bef…1c35 at001e = ╱42╱B╱ // 0x1c0d @0x1e
0x1bef…1c35 at001f = ╱65╱e╱ // 0x1c0e @0x1f
0x1bef…1c35 at0020 = ╱6c╱l╱ // 0x1c0f @0x20
0x1bef…1c35 at0021 = ╱7c╱|╱ // 0x1c10 @0x21
0x1bef…1c35 at0022 = ╱62╱b╱ // 0x1c11 @0x22
0x1bef…1c35 at0023 = ╱22╱"╱ // 0x1c12 @0x23
0x1bef…1c35 at0024 = ╱ea╱ ; ╱ // 0x1c13 @0x24
0x1bef…1c35 at0025 = ╱d2╱ TAB ╱ // 0x1c14 @0x25
0x1bef…1c35 at0026 = ╱ed╱ ( ╱ // 0x1c15 @0x26
0x1bef…1c35 at0027 = ╱34╱4╱ // 0x1c16 @0x27
0x1bef…1c35 at0028 = ╱32╱2╱ // 0x1c17 @0x28
0x1bef…1c35 at0029 = ╱f22a00╱ // 0x1c18 @0x29
0x1bef…1c35 at002c = ╱ee╱ ) ╱ // 0x1c1b @0x2c
0x1bef…1c35 at002d = ╱ea╱ ; ╱ // 0x1c1c @0x2d
0x1bef…1c35 at002e = ╱22╱"╱ // 0x1c1d @0x2e
0x1bef…1c35 at002f = ╱4e╱N╱ // 0x1c1e @0x2f
0x1bef…1c35 at0030 = ╱72╱r╱ // 0x1c1f @0x30
0x1bef…1c35 at0031 = ╱2e╱.╱ // 0x1c20 @0x31
0x1bef…1c35 at0032 = ╱20╱…╱ // 0x1c21 @0x32
0x1bef…1c35 at0033 = ╱46╱F╱ // 0x1c22 @0x33
0x1bef…1c35 at0034 = ╱72╱r╱ // 0x1c23 @0x34
0x1bef…1c35 at0035 = ╱61╱a╱ // 0x1c24 @0x35
0x1bef…1c35 at0036 = ╱64╱d╱ // 0x1c25 @0x36
0x1bef…1c35 at0037 = ╱72╱r╱ // 0x1c26 @0x37
0x1bef…1c35 at0038 = ╱61╱a╱ // 0x1c27 @0x38
0x1bef…1c35 at0039 = ╱67╱g╱ // 0x1c28 @0x39
0x1bef…1c35 at003a = ╱22╱"╱ // 0x1c29 @0x3a
0x1bef…1c35 at003b = ╱ea╱ ; ╱ // 0x1c2a @0x3b
0x1bef…1c35 at003c = ╱d2╱ TAB ╱ // 0x1c2b @0x3c
0x1bef…1c35 at003d = ╱ed╱ ( ╱ // 0x1c2c @0x3d
0x1bef…1c35 at003e = ╱37╱7╱ // 0x1c2d @0x3e
0x1bef…1c35 at003f = ╱34╱4╱ // 0x1c2e @0x3f
0x1bef…1c35 at0040 = ╱f24a00╱ // 0x1c2f @0x40
0x1bef…1c35 at0043 = ╱ee╱ ) ╱ // 0x1c32 @0x43
0x1bef…1c35 at0044 = ╱ea╱ ; ╱ // 0x1c33 @0x44
0x1bef…1c35 at0045 = EOL // 0x1c34 @0x45
0x1bef…1c35 }
0x1c35…1c42 b230 01665 PRINT "Bel|b"
0x1c35…1c42 LineComal80 {
0x1c35…1c42 ptr = 0xb230 // 0x1c35 @0x0
0x1c35…1c42 lno = 0x0681 // 0x1c37 @0x2
0x1c35…1c42 at0004 = ╱92╱ PRINT ╱ // 0x1c39 @0x4
0x1c35…1c42 at0005 = ╱22╱"╱ // 0x1c3a @0x5
0x1c35…1c42 at0006 = ╱42╱B╱ // 0x1c3b @0x6
0x1c35…1c42 at0007 = ╱65╱e╱ // 0x1c3c @0x7
0x1c35…1c42 at0008 = ╱6c╱l╱ // 0x1c3d @0x8
0x1c35…1c42 at0009 = ╱7c╱|╱ // 0x1c3e @0x9
0x1c35…1c42 at000a = ╱62╱b╱ // 0x1c3f @0xa
0x1c35…1c42 at000b = ╱22╱"╱ // 0x1c40 @0xb
0x1c35…1c42 at000c = EOL // 0x1c41 @0xc
0x1c35…1c42 }
0x1c42…1c48 b236 01670 PRINT
0x1c42…1c48 LineComal80 {
0x1c42…1c48 ptr = 0xb236 // 0x1c42 @0x0
0x1c42…1c48 lno = 0x0686 // 0x1c44 @0x2
0x1c42…1c48 at0004 = ╱92╱ PRINT ╱ // 0x1c46 @0x4
0x1c42…1c48 at0005 = EOL // 0x1c47 @0x5
0x1c42…1c48 }
0x1c48…1c53 b241 01675 EXEC SK[RM
0x1c48…1c53 LineComal80 {
0x1c48…1c53 ptr = 0xb241 // 0x1c48 @0x0
0x1c48…1c53 lno = 0x068b // 0x1c4a @0x2
0x1c48…1c53 at0004 = ╱9d╱ EXEC ╱ // 0x1c4c @0x4
0x1c48…1c53 at0005 = ╱53╱S╱ // 0x1c4d @0x5
0x1c48…1c53 at0006 = ╱4b╱K╱ // 0x1c4e @0x6
0x1c48…1c53 at0007 = ╱5b╱[╱ // 0x1c4f @0x7
0x1c48…1c53 at0008 = ╱52╱R╱ // 0x1c50 @0x8
0x1c48…1c53 at0009 = ╱4d╱M╱ // 0x1c51 @0x9
0x1c48…1c53 at000a = EOL // 0x1c52 @0xa
0x1c48…1c53 }
0x1c53…1c5a b248 01680 REPEAT
0x1c53…1c5a LineComal80 {
0x1c53…1c5a ptr = 0xb248 // 0x1c53 @0x0
0x1c53…1c5a lno = 0x0690 // 0x1c55 @0x2
0x1c53…1c5a at0004 = ╱9700╱ REPEAT ╱ // 0x1c57 @0x4
0x1c53…1c5a at0006 = EOL // 0x1c59 @0x6
0x1c53…1c5a }
0x1c5a…1c61 b24f 01685 REPEAT
0x1c5a…1c61 LineComal80 {
0x1c5a…1c61 ptr = 0xb24f // 0x1c5a @0x0
0x1c5a…1c61 lno = 0x0695 // 0x1c5c @0x2
0x1c5a…1c61 at0004 = ╱9700╱ REPEAT ╱ // 0x1c5e @0x4
0x1c5a…1c61 at0006 = EOL // 0x1c60 @0x6
0x1c5a…1c61 }
0x1c61…1c72 b260 01690 LET B6 := A ( 24 )
0x1c61…1c72 LineComal80 {
0x1c61…1c72 ptr = 0xb260 // 0x1c61 @0x0
0x1c61…1c72 lno = 0x069a // 0x1c63 @0x2
0x1c61…1c72 at0004 = ╱86╱ LET ╱ // 0x1c65 @0x4
0x1c61…1c72 at0005 = ╱42╱B╱ // 0x1c66 @0x5
0x1c61…1c72 at0006 = ╱36╱6╱ // 0x1c67 @0x6
0x1c61…1c72 at0007 = ╱f0╱ := ╱ // 0x1c68 @0x7
0x1c61…1c72 at0008 = ╱41╱A╱ // 0x1c69 @0x8
0x1c61…1c72 at0009 = ╱ed╱ ( ╱ // 0x1c6a @0x9
0x1c61…1c72 at000a = ╱32╱2╱ // 0x1c6b @0xa
0x1c61…1c72 at000b = ╱34╱4╱ // 0x1c6c @0xb
0x1c61…1c72 at000c = ╱f21800╱ // 0x1c6d @0xc
0x1c61…1c72 at000f = ╱ee╱ ) ╱ // 0x1c70 @0xf
0x1c61…1c72 at0010 = EOL // 0x1c71 @0x10
0x1c61…1c72 }
0x1c72…1c82 b270 01695 CURSOR 1 , 20
0x1c72…1c82 LineComal80 {
0x1c72…1c82 ptr = 0xb270 // 0x1c72 @0x0
0x1c72…1c82 lno = 0x069f // 0x1c74 @0x2
0x1c72…1c82 at0004 = ╱a1╱ CURSOR ╱ // 0x1c76 @0x4
0x1c72…1c82 at0005 = ╱31╱1╱ // 0x1c77 @0x5
0x1c72…1c82 at0006 = ╱f20100╱ // 0x1c78 @0x6
0x1c72…1c82 at0009 = ╱ec╱ , ╱ // 0x1c7b @0x9
0x1c72…1c82 at000a = ╱32╱2╱ // 0x1c7c @0xa
0x1c72…1c82 at000b = ╱30╱0╱ // 0x1c7d @0xb
0x1c72…1c82 at000c = ╱f21400╱ // 0x1c7e @0xc
0x1c72…1c82 at000f = EOL // 0x1c81 @0xf
0x1c72…1c82 }
0x1c82…1cca b2b8 01700 INPUT "Skriv…nummer…p}…indkomst/fradrag…(1…til…24,…0…for…slut)…---->…" : N
0x1c82…1cca LineComal80 {
0x1c82…1cca ptr = 0xb2b8 // 0x1c82 @0x0
0x1c82…1cca lno = 0x06a4 // 0x1c84 @0x2
0x1c82…1cca at0004 = ╱91╱ INPUT ╱ // 0x1c86 @0x4
0x1c82…1cca at0005 = ╱22╱"╱ // 0x1c87 @0x5
0x1c82…1cca at0006 = ╱53╱S╱ // 0x1c88 @0x6
0x1c82…1cca at0007 = ╱6b╱k╱ // 0x1c89 @0x7
0x1c82…1cca at0008 = ╱72╱r╱ // 0x1c8a @0x8
0x1c82…1cca at0009 = ╱69╱i╱ // 0x1c8b @0x9
0x1c82…1cca at000a = ╱76╱v╱ // 0x1c8c @0xa
0x1c82…1cca at000b = ╱20╱…╱ // 0x1c8d @0xb
0x1c82…1cca at000c = ╱6e╱n╱ // 0x1c8e @0xc
0x1c82…1cca at000d = ╱75╱u╱ // 0x1c8f @0xd
0x1c82…1cca at000e = ╱6d╱m╱ // 0x1c90 @0xe
0x1c82…1cca at000f = ╱6d╱m╱ // 0x1c91 @0xf
0x1c82…1cca at0010 = ╱65╱e╱ // 0x1c92 @0x10
0x1c82…1cca at0011 = ╱72╱r╱ // 0x1c93 @0x11
0x1c82…1cca at0012 = ╱20╱…╱ // 0x1c94 @0x12
0x1c82…1cca at0013 = ╱70╱p╱ // 0x1c95 @0x13
0x1c82…1cca at0014 = ╱7d╱}╱ // 0x1c96 @0x14
0x1c82…1cca at0015 = ╱20╱…╱ // 0x1c97 @0x15
0x1c82…1cca at0016 = ╱69╱i╱ // 0x1c98 @0x16
0x1c82…1cca at0017 = ╱6e╱n╱ // 0x1c99 @0x17
0x1c82…1cca at0018 = ╱64╱d╱ // 0x1c9a @0x18
0x1c82…1cca at0019 = ╱6b╱k╱ // 0x1c9b @0x19
0x1c82…1cca at001a = ╱6f╱o╱ // 0x1c9c @0x1a
0x1c82…1cca at001b = ╱6d╱m╱ // 0x1c9d @0x1b
0x1c82…1cca at001c = ╱73╱s╱ // 0x1c9e @0x1c
0x1c82…1cca at001d = ╱74╱t╱ // 0x1c9f @0x1d
0x1c82…1cca at001e = ╱2f╱/╱ // 0x1ca0 @0x1e
0x1c82…1cca at001f = ╱66╱f╱ // 0x1ca1 @0x1f
0x1c82…1cca at0020 = ╱72╱r╱ // 0x1ca2 @0x20
0x1c82…1cca at0021 = ╱61╱a╱ // 0x1ca3 @0x21
0x1c82…1cca at0022 = ╱64╱d╱ // 0x1ca4 @0x22
0x1c82…1cca at0023 = ╱72╱r╱ // 0x1ca5 @0x23
0x1c82…1cca at0024 = ╱61╱a╱ // 0x1ca6 @0x24
0x1c82…1cca at0025 = ╱67╱g╱ // 0x1ca7 @0x25
0x1c82…1cca at0026 = ╱20╱…╱ // 0x1ca8 @0x26
0x1c82…1cca at0027 = ╱28╱(╱ // 0x1ca9 @0x27
0x1c82…1cca at0028 = ╱31╱1╱ // 0x1caa @0x28
0x1c82…1cca at0029 = ╱20╱…╱ // 0x1cab @0x29
0x1c82…1cca at002a = ╱74╱t╱ // 0x1cac @0x2a
0x1c82…1cca at002b = ╱69╱i╱ // 0x1cad @0x2b
0x1c82…1cca at002c = ╱6c╱l╱ // 0x1cae @0x2c
0x1c82…1cca at002d = ╱20╱…╱ // 0x1caf @0x2d
0x1c82…1cca at002e = ╱32╱2╱ // 0x1cb0 @0x2e
0x1c82…1cca at002f = ╱34╱4╱ // 0x1cb1 @0x2f
0x1c82…1cca at0030 = ╱2c╱,╱ // 0x1cb2 @0x30
0x1c82…1cca at0031 = ╱20╱…╱ // 0x1cb3 @0x31
0x1c82…1cca at0032 = ╱30╱0╱ // 0x1cb4 @0x32
0x1c82…1cca at0033 = ╱20╱…╱ // 0x1cb5 @0x33
0x1c82…1cca at0034 = ╱66╱f╱ // 0x1cb6 @0x34
0x1c82…1cca at0035 = ╱6f╱o╱ // 0x1cb7 @0x35
0x1c82…1cca at0036 = ╱72╱r╱ // 0x1cb8 @0x36
0x1c82…1cca at0037 = ╱20╱…╱ // 0x1cb9 @0x37
0x1c82…1cca at0038 = ╱73╱s╱ // 0x1cba @0x38
0x1c82…1cca at0039 = ╱6c╱l╱ // 0x1cbb @0x39
0x1c82…1cca at003a = ╱75╱u╱ // 0x1cbc @0x3a
0x1c82…1cca at003b = ╱74╱t╱ // 0x1cbd @0x3b
0x1c82…1cca at003c = ╱29╱)╱ // 0x1cbe @0x3c
0x1c82…1cca at003d = ╱20╱…╱ // 0x1cbf @0x3d
0x1c82…1cca at003e = ╱2d╱-╱ // 0x1cc0 @0x3e
0x1c82…1cca at003f = ╱2d╱-╱ // 0x1cc1 @0x3f
0x1c82…1cca at0040 = ╱2d╱-╱ // 0x1cc2 @0x40
0x1c82…1cca at0041 = ╱2d╱-╱ // 0x1cc3 @0x41
0x1c82…1cca at0042 = ╱3e╱>╱ // 0x1cc4 @0x42
0x1c82…1cca at0043 = ╱20╱…╱ // 0x1cc5 @0x43
0x1c82…1cca at0044 = ╱22╱"╱ // 0x1cc6 @0x44
0x1c82…1cca at0045 = ╱f1╱ : ╱ // 0x1cc7 @0x45
0x1c82…1cca at0046 = ╱4e╱N╱ // 0x1cc8 @0x46
0x1c82…1cca at0047 = EOL // 0x1cc9 @0x47
0x1c82…1cca }
0x1cca…1d0b b2f9 01705 IF N > 24 THEN PRINT "***…Nummeret…skal…v{re…fra…1…til…24…***" ; CHR$ ( 7 )
0x1cca…1d0b LineComal80 {
0x1cca…1d0b ptr = 0xb2f9 // 0x1cca @0x0
0x1cca…1d0b lno = 0x06a9 // 0x1ccc @0x2
0x1cca…1d0b at0004 = ╱8200╱ IF ╱ // 0x1cce @0x4
0x1cca…1d0b at0006 = ╱4e╱N╱ // 0x1cd0 @0x6
0x1cca…1d0b at0007 = ╱e1╱ > ╱ // 0x1cd1 @0x7
0x1cca…1d0b at0008 = ╱32╱2╱ // 0x1cd2 @0x8
0x1cca…1d0b at0009 = ╱34╱4╱ // 0x1cd3 @0x9
0x1cca…1d0b at000a = ╱f21800╱ // 0x1cd4 @0xa
0x1cca…1d0b at000d = ╱b5╱ THEN ╱ // 0x1cd7 @0xd
0x1cca…1d0b at000e = ╱92╱ PRINT ╱ // 0x1cd8 @0xe
0x1cca…1d0b at000f = ╱22╱"╱ // 0x1cd9 @0xf
0x1cca…1d0b at0010 = ╱2a╱*╱ // 0x1cda @0x10
0x1cca…1d0b at0011 = ╱2a╱*╱ // 0x1cdb @0x11
0x1cca…1d0b at0012 = ╱2a╱*╱ // 0x1cdc @0x12
0x1cca…1d0b at0013 = ╱20╱…╱ // 0x1cdd @0x13
0x1cca…1d0b at0014 = ╱4e╱N╱ // 0x1cde @0x14
0x1cca…1d0b at0015 = ╱75╱u╱ // 0x1cdf @0x15
0x1cca…1d0b at0016 = ╱6d╱m╱ // 0x1ce0 @0x16
0x1cca…1d0b at0017 = ╱6d╱m╱ // 0x1ce1 @0x17
0x1cca…1d0b at0018 = ╱65╱e╱ // 0x1ce2 @0x18
0x1cca…1d0b at0019 = ╱72╱r╱ // 0x1ce3 @0x19
0x1cca…1d0b at001a = ╱65╱e╱ // 0x1ce4 @0x1a
0x1cca…1d0b at001b = ╱74╱t╱ // 0x1ce5 @0x1b
0x1cca…1d0b at001c = ╱20╱…╱ // 0x1ce6 @0x1c
0x1cca…1d0b at001d = ╱73╱s╱ // 0x1ce7 @0x1d
0x1cca…1d0b at001e = ╱6b╱k╱ // 0x1ce8 @0x1e
0x1cca…1d0b at001f = ╱61╱a╱ // 0x1ce9 @0x1f
0x1cca…1d0b at0020 = ╱6c╱l╱ // 0x1cea @0x20
0x1cca…1d0b at0021 = ╱20╱…╱ // 0x1ceb @0x21
0x1cca…1d0b at0022 = ╱76╱v╱ // 0x1cec @0x22
0x1cca…1d0b at0023 = ╱7b╱{╱ // 0x1ced @0x23
0x1cca…1d0b at0024 = ╱72╱r╱ // 0x1cee @0x24
0x1cca…1d0b at0025 = ╱65╱e╱ // 0x1cef @0x25
0x1cca…1d0b at0026 = ╱20╱…╱ // 0x1cf0 @0x26
0x1cca…1d0b at0027 = ╱66╱f╱ // 0x1cf1 @0x27
0x1cca…1d0b at0028 = ╱72╱r╱ // 0x1cf2 @0x28
0x1cca…1d0b at0029 = ╱61╱a╱ // 0x1cf3 @0x29
0x1cca…1d0b at002a = ╱20╱…╱ // 0x1cf4 @0x2a
0x1cca…1d0b at002b = ╱31╱1╱ // 0x1cf5 @0x2b
0x1cca…1d0b at002c = ╱20╱…╱ // 0x1cf6 @0x2c
0x1cca…1d0b at002d = ╱74╱t╱ // 0x1cf7 @0x2d
0x1cca…1d0b at002e = ╱69╱i╱ // 0x1cf8 @0x2e
0x1cca…1d0b at002f = ╱6c╱l╱ // 0x1cf9 @0x2f
0x1cca…1d0b at0030 = ╱20╱…╱ // 0x1cfa @0x30
0x1cca…1d0b at0031 = ╱32╱2╱ // 0x1cfb @0x31
0x1cca…1d0b at0032 = ╱34╱4╱ // 0x1cfc @0x32
0x1cca…1d0b at0033 = ╱20╱…╱ // 0x1cfd @0x33
0x1cca…1d0b at0034 = ╱2a╱*╱ // 0x1cfe @0x34
0x1cca…1d0b at0035 = ╱2a╱*╱ // 0x1cff @0x35
0x1cca…1d0b at0036 = ╱2a╱*╱ // 0x1d00 @0x36
0x1cca…1d0b at0037 = ╱22╱"╱ // 0x1d01 @0x37
0x1cca…1d0b at0038 = ╱ea╱ ; ╱ // 0x1d02 @0x38
0x1cca…1d0b at0039 = ╱d0╱ CHR$ ╱ // 0x1d03 @0x39
0x1cca…1d0b at003a = ╱ed╱ ( ╱ // 0x1d04 @0x3a
0x1cca…1d0b at003b = ╱37╱7╱ // 0x1d05 @0x3b
0x1cca…1d0b at003c = ╱f20700╱ // 0x1d06 @0x3c
0x1cca…1d0b at003f = ╱ee╱ ) ╱ // 0x1d09 @0x3f
0x1cca…1d0b at0040 = EOL // 0x1d0a @0x40
0x1cca…1d0b }
0x1d0b…1d18 b306 01710 UNTIL N < 25
0x1d0b…1d18 LineComal80 {
0x1d0b…1d18 ptr = 0xb306 // 0x1d0b @0x0
0x1d0b…1d18 lno = 0x06ae // 0x1d0d @0x2
0x1d0b…1d18 at0004 = ╱98╱ UNTIL ╱ // 0x1d0f @0x4
0x1d0b…1d18 at0005 = ╱4e╱N╱ // 0x1d10 @0x5
0x1d0b…1d18 at0006 = ╱e0╱ < ╱ // 0x1d11 @0x6
0x1d0b…1d18 at0007 = ╱32╱2╱ // 0x1d12 @0x7
0x1d0b…1d18 at0008 = ╱35╱5╱ // 0x1d13 @0x8
0x1d0b…1d18 at0009 = ╱f21900╱ // 0x1d14 @0x9
0x1d0b…1d18 at000c = EOL // 0x1d17 @0xc
0x1d0b…1d18 }
0x1d18…1d3d b32b 01715 IF = 2 OR N = 8 OR N = 18 OR N = 19 THEN
0x1d18…1d3d LineComal80 {
0x1d18…1d3d ptr = 0xb32b // 0x1d18 @0x0
0x1d18…1d3d lno = 0x06b3 // 0x1d1a @0x2
0x1d18…1d3d at0004 = ╱9b004e╱ IF ╱ // 0x1d1c @0x4
0x1d18…1d3d at0007 = ╱df╱ = ╱ // 0x1d1f @0x7
0x1d18…1d3d at0008 = ╱32╱2╱ // 0x1d20 @0x8
0x1d18…1d3d at0009 = ╱f20200╱ // 0x1d21 @0x9
0x1d18…1d3d at000c = ╱d8╱ OR ╱ // 0x1d24 @0xc
0x1d18…1d3d at000d = ╱4e╱N╱ // 0x1d25 @0xd
0x1d18…1d3d at000e = ╱df╱ = ╱ // 0x1d26 @0xe
0x1d18…1d3d at000f = ╱38╱8╱ // 0x1d27 @0xf
0x1d18…1d3d at0010 = ╱f20800╱ // 0x1d28 @0x10
0x1d18…1d3d at0013 = ╱d8╱ OR ╱ // 0x1d2b @0x13
0x1d18…1d3d at0014 = ╱4e╱N╱ // 0x1d2c @0x14
0x1d18…1d3d at0015 = ╱df╱ = ╱ // 0x1d2d @0x15
0x1d18…1d3d at0016 = ╱31╱1╱ // 0x1d2e @0x16
0x1d18…1d3d at0017 = ╱38╱8╱ // 0x1d2f @0x17
0x1d18…1d3d at0018 = ╱f21200╱ // 0x1d30 @0x18
0x1d18…1d3d at001b = ╱d8╱ OR ╱ // 0x1d33 @0x1b
0x1d18…1d3d at001c = ╱4e╱N╱ // 0x1d34 @0x1c
0x1d18…1d3d at001d = ╱df╱ = ╱ // 0x1d35 @0x1d
0x1d18…1d3d at001e = ╱31╱1╱ // 0x1d36 @0x1e
0x1d18…1d3d at001f = ╱39╱9╱ // 0x1d37 @0x1f
0x1d18…1d3d at0020 = ╱f21300╱ // 0x1d38 @0x20
0x1d18…1d3d at0023 = ╱b5╱ THEN ╱ // 0x1d3b @0x23
0x1d18…1d3d at0024 = EOL // 0x1d3c @0x24
0x1d18…1d3d }
0x1d3d…1d46 b334 01720 EXEC WIN
0x1d3d…1d46 LineComal80 {
0x1d3d…1d46 ptr = 0xb334 // 0x1d3d @0x0
0x1d3d…1d46 lno = 0x06b8 // 0x1d3f @0x2
0x1d3d…1d46 at0004 = ╱9d╱ EXEC ╱ // 0x1d41 @0x4
0x1d3d…1d46 at0005 = ╱57╱W╱ // 0x1d42 @0x5
0x1d3d…1d46 at0006 = ╱49╱I╱ // 0x1d43 @0x6
0x1d3d…1d46 at0007 = ╱4e╱N╱ // 0x1d44 @0x7
0x1d3d…1d46 at0008 = EOL // 0x1d45 @0x8
0x1d3d…1d46 }
0x1d46…1d4d b33b 01725 ELSE
0x1d46…1d4d LineComal80 {
0x1d46…1d4d ptr = 0xb33b // 0x1d46 @0x0
0x1d46…1d4d lno = 0x06bd // 0x1d48 @0x2
0x1d46…1d4d at0004 = ╱9a00╱ ELSE ╱ // 0x1d4a @0x4
0x1d46…1d4d at0006 = EOL // 0x1d4c @0x6
0x1d46…1d4d }
0x1d4d…1d58 b346 01730 IF >< O THEN
0x1d4d…1d58 LineComal80 {
0x1d4d…1d58 ptr = 0xb346 // 0x1d4d @0x0
0x1d4d…1d58 lno = 0x06c2 // 0x1d4f @0x2
0x1d4d…1d58 at0004 = ╱9b004e╱ IF ╱ // 0x1d51 @0x4
0x1d4d…1d58 at0007 = ╱e4╱ >< ╱ // 0x1d54 @0x7
0x1d4d…1d58 at0008 = ╱4f╱O╱ // 0x1d55 @0x8
0x1d4d…1d58 at0009 = ╱b5╱ THEN ╱ // 0x1d56 @0x9
0x1d4d…1d58 at000a = EOL // 0x1d57 @0xa
0x1d4d…1d58 }
0x1d58…1d8d b37b 01735 PRINT "Skriv…bel|bets…st|relse…" + LI $ ( 1 : 36 ) + ">" ;
0x1d58…1d8d LineComal80 {
0x1d58…1d8d ptr = 0xb37b // 0x1d58 @0x0
0x1d58…1d8d lno = 0x06c7 // 0x1d5a @0x2
0x1d58…1d8d at0004 = ╱92╱ PRINT ╱ // 0x1d5c @0x4
0x1d58…1d8d at0005 = ╱22╱"╱ // 0x1d5d @0x5
0x1d58…1d8d at0006 = ╱53╱S╱ // 0x1d5e @0x6
0x1d58…1d8d at0007 = ╱6b╱k╱ // 0x1d5f @0x7
0x1d58…1d8d at0008 = ╱72╱r╱ // 0x1d60 @0x8
0x1d58…1d8d at0009 = ╱69╱i╱ // 0x1d61 @0x9
0x1d58…1d8d at000a = ╱76╱v╱ // 0x1d62 @0xa
0x1d58…1d8d at000b = ╱20╱…╱ // 0x1d63 @0xb
0x1d58…1d8d at000c = ╱62╱b╱ // 0x1d64 @0xc
0x1d58…1d8d at000d = ╱65╱e╱ // 0x1d65 @0xd
0x1d58…1d8d at000e = ╱6c╱l╱ // 0x1d66 @0xe
0x1d58…1d8d at000f = ╱7c╱|╱ // 0x1d67 @0xf
0x1d58…1d8d at0010 = ╱62╱b╱ // 0x1d68 @0x10
0x1d58…1d8d at0011 = ╱65╱e╱ // 0x1d69 @0x11
0x1d58…1d8d at0012 = ╱74╱t╱ // 0x1d6a @0x12
0x1d58…1d8d at0013 = ╱73╱s╱ // 0x1d6b @0x13
0x1d58…1d8d at0014 = ╱20╱…╱ // 0x1d6c @0x14
0x1d58…1d8d at0015 = ╱73╱s╱ // 0x1d6d @0x15
0x1d58…1d8d at0016 = ╱74╱t╱ // 0x1d6e @0x16
0x1d58…1d8d at0017 = ╱7c╱|╱ // 0x1d6f @0x17
0x1d58…1d8d at0018 = ╱72╱r╱ // 0x1d70 @0x18
0x1d58…1d8d at0019 = ╱65╱e╱ // 0x1d71 @0x19
0x1d58…1d8d at001a = ╱6c╱l╱ // 0x1d72 @0x1a
0x1d58…1d8d at001b = ╱73╱s╱ // 0x1d73 @0x1b
0x1d58…1d8d at001c = ╱65╱e╱ // 0x1d74 @0x1c
0x1d58…1d8d at001d = ╱20╱…╱ // 0x1d75 @0x1d
0x1d58…1d8d at001e = ╱22╱"╱ // 0x1d76 @0x1e
0x1d58…1d8d at001f = ╱eb╱ + ╱ // 0x1d77 @0x1f
0x1d58…1d8d at0020 = ╱4c╱L╱ // 0x1d78 @0x20
0x1d58…1d8d at0021 = ╱49╱I╱ // 0x1d79 @0x21
0x1d58…1d8d at0022 = ╱ef╱ $ ╱ // 0x1d7a @0x22
0x1d58…1d8d at0023 = ╱ed╱ ( ╱ // 0x1d7b @0x23
0x1d58…1d8d at0024 = ╱31╱1╱ // 0x1d7c @0x24
0x1d58…1d8d at0025 = ╱f20100╱ // 0x1d7d @0x25
0x1d58…1d8d at0028 = ╱f1╱ : ╱ // 0x1d80 @0x28
0x1d58…1d8d at0029 = ╱33╱3╱ // 0x1d81 @0x29
0x1d58…1d8d at002a = ╱36╱6╱ // 0x1d82 @0x2a
0x1d58…1d8d at002b = ╱f22400╱ // 0x1d83 @0x2b
0x1d58…1d8d at002e = ╱ee╱ ) ╱ // 0x1d86 @0x2e
0x1d58…1d8d at002f = ╱eb╱ + ╱ // 0x1d87 @0x2f
0x1d58…1d8d at0030 = ╱22╱"╱ // 0x1d88 @0x30
0x1d58…1d8d at0031 = ╱3e╱>╱ // 0x1d89 @0x31
0x1d58…1d8d at0032 = ╱22╱"╱ // 0x1d8a @0x32
0x1d58…1d8d at0033 = ╱ea╱ ; ╱ // 0x1d8b @0x33
0x1d58…1d8d at0034 = EOL // 0x1d8c @0x34
0x1d58…1d8d }
0x1d8d…1d9b b389 01740 INPUT "…" : A ( N )
0x1d8d…1d9b LineComal80 {
0x1d8d…1d9b ptr = 0xb389 // 0x1d8d @0x0
0x1d8d…1d9b lno = 0x06cc // 0x1d8f @0x2
0x1d8d…1d9b at0004 = ╱91╱ INPUT ╱ // 0x1d91 @0x4
0x1d8d…1d9b at0005 = ╱22╱"╱ // 0x1d92 @0x5
0x1d8d…1d9b at0006 = ╱20╱…╱ // 0x1d93 @0x6
0x1d8d…1d9b at0007 = ╱22╱"╱ // 0x1d94 @0x7
0x1d8d…1d9b at0008 = ╱f1╱ : ╱ // 0x1d95 @0x8
0x1d8d…1d9b at0009 = ╱41╱A╱ // 0x1d96 @0x9
0x1d8d…1d9b at000a = ╱ed╱ ( ╱ // 0x1d97 @0xa
0x1d8d…1d9b at000b = ╱4e╱N╱ // 0x1d98 @0xb
0x1d8d…1d9b at000c = ╱ee╱ ) ╱ // 0x1d99 @0xc
0x1d8d…1d9b at000d = EOL // 0x1d9a @0xd
0x1d8d…1d9b }
0x1d9b…1daa b398 01745 IF = 11 THEN
0x1d9b…1daa LineComal80 {
0x1d9b…1daa ptr = 0xb398 // 0x1d9b @0x0
0x1d9b…1daa lno = 0x06d1 // 0x1d9d @0x2
0x1d9b…1daa at0004 = ╱9b004e╱ IF ╱ // 0x1d9f @0x4
0x1d9b…1daa at0007 = ╱df╱ = ╱ // 0x1da2 @0x7
0x1d9b…1daa at0008 = ╱31╱1╱ // 0x1da3 @0x8
0x1d9b…1daa at0009 = ╱31╱1╱ // 0x1da4 @0x9
0x1d9b…1daa at000a = ╱f20b00╱ // 0x1da5 @0xa
0x1d9b…1daa at000d = ╱b5╱ THEN ╱ // 0x1da8 @0xd
0x1d9b…1daa at000e = EOL // 0x1da9 @0xe
0x1d9b…1daa }
0x1daa…1dcc b3ba 01750 LET A ( 12 ) := INT ( A ( 11 ) * 25 / W )
0x1daa…1dcc LineComal80 {
0x1daa…1dcc ptr = 0xb3ba // 0x1daa @0x0
0x1daa…1dcc lno = 0x06d6 // 0x1dac @0x2
0x1daa…1dcc at0004 = ╱86╱ LET ╱ // 0x1dae @0x4
0x1daa…1dcc at0005 = ╱41╱A╱ // 0x1daf @0x5
0x1daa…1dcc at0006 = ╱ed╱ ( ╱ // 0x1db0 @0x6
0x1daa…1dcc at0007 = ╱31╱1╱ // 0x1db1 @0x7
0x1daa…1dcc at0008 = ╱32╱2╱ // 0x1db2 @0x8
0x1daa…1dcc at0009 = ╱f20c00╱ // 0x1db3 @0x9
0x1daa…1dcc at000c = ╱ee╱ ) ╱ // 0x1db6 @0xc
0x1daa…1dcc at000d = ╱f0╱ := ╱ // 0x1db7 @0xd
0x1daa…1dcc at000e = ╱c6╱ INT ╱ // 0x1db8 @0xe
0x1daa…1dcc at000f = ╱ed╱ ( ╱ // 0x1db9 @0xf
0x1daa…1dcc at0010 = ╱41╱A╱ // 0x1dba @0x10
0x1daa…1dcc at0011 = ╱ed╱ ( ╱ // 0x1dbb @0x11
0x1daa…1dcc at0012 = ╱31╱1╱ // 0x1dbc @0x12
0x1daa…1dcc at0013 = ╱31╱1╱ // 0x1dbd @0x13
0x1daa…1dcc at0014 = ╱f20b00╱ // 0x1dbe @0x14
0x1daa…1dcc at0017 = ╱ee╱ ) ╱ // 0x1dc1 @0x17
0x1daa…1dcc at0018 = ╱e7╱ * ╱ // 0x1dc2 @0x18
0x1daa…1dcc at0019 = ╱32╱2╱ // 0x1dc3 @0x19
0x1daa…1dcc at001a = ╱35╱5╱ // 0x1dc4 @0x1a
0x1daa…1dcc at001b = ╱f21900╱ // 0x1dc5 @0x1b
0x1daa…1dcc at001e = ╱e8╱ / ╱ // 0x1dc8 @0x1e
0x1daa…1dcc at001f = ╱57╱W╱ // 0x1dc9 @0x1f
0x1daa…1dcc at0020 = ╱ee╱ ) ╱ // 0x1dca @0x20
0x1daa…1dcc at0021 = EOL // 0x1dcb @0x21
0x1daa…1dcc }
0x1dcc…1ddd b3cb 01755 CURSOR 30 , 16
0x1dcc…1ddd LineComal80 {
0x1dcc…1ddd ptr = 0xb3cb // 0x1dcc @0x0
0x1dcc…1ddd lno = 0x06db // 0x1dce @0x2
0x1dcc…1ddd at0004 = ╱a1╱ CURSOR ╱ // 0x1dd0 @0x4
0x1dcc…1ddd at0005 = ╱33╱3╱ // 0x1dd1 @0x5
0x1dcc…1ddd at0006 = ╱30╱0╱ // 0x1dd2 @0x6
0x1dcc…1ddd at0007 = ╱f21e00╱ // 0x1dd3 @0x7
0x1dcc…1ddd at000a = ╱ec╱ , ╱ // 0x1dd6 @0xa
0x1dcc…1ddd at000b = ╱31╱1╱ // 0x1dd7 @0xb
0x1dcc…1ddd at000c = ╱36╱6╱ // 0x1dd8 @0xc
0x1dcc…1ddd at000d = ╱f21000╱ // 0x1dd9 @0xd
0x1dcc…1ddd at0010 = EOL // 0x1ddc @0x10
0x1dcc…1ddd }
0x1ddd…1df0 b3de 01760 PRINT USING NU $ : A ( 12 )
0x1ddd…1df0 LineComal80 {
0x1ddd…1df0 ptr = 0xb3de // 0x1ddd @0x0
0x1ddd…1df0 lno = 0x06e0 // 0x1ddf @0x2
0x1ddd…1df0 at0004 = ╱92╱ PRINT ╱ // 0x1de1 @0x4
0x1ddd…1df0 at0005 = ╱b9╱ USING ╱ // 0x1de2 @0x5
0x1ddd…1df0 at0006 = ╱4e╱N╱ // 0x1de3 @0x6
0x1ddd…1df0 at0007 = ╱55╱U╱ // 0x1de4 @0x7
0x1ddd…1df0 at0008 = ╱ef╱ $ ╱ // 0x1de5 @0x8
0x1ddd…1df0 at0009 = ╱f1╱ : ╱ // 0x1de6 @0x9
0x1ddd…1df0 at000a = ╱41╱A╱ // 0x1de7 @0xa
0x1ddd…1df0 at000b = ╱ed╱ ( ╱ // 0x1de8 @0xb
0x1ddd…1df0 at000c = ╱31╱1╱ // 0x1de9 @0xc
0x1ddd…1df0 at000d = ╱32╱2╱ // 0x1dea @0xd
0x1ddd…1df0 at000e = ╱f20c00╱ // 0x1deb @0xe
0x1ddd…1df0 at0011 = ╱ee╱ ) ╱ // 0x1dee @0x11
0x1ddd…1df0 at0012 = EOL // 0x1def @0x12
0x1ddd…1df0 }
0x1df0…1df6 b3e4 01765 ENDIF
0x1df0…1df6 LineComal80 {
0x1df0…1df6 ptr = 0xb3e4 // 0x1df0 @0x0
0x1df0…1df6 lno = 0x06e5 // 0x1df2 @0x2
0x1df0…1df6 at0004 = ╱9c╱ ENDIF ╱ // 0x1df4 @0x4
0x1df0…1df6 at0005 = EOL // 0x1df5 @0x5
0x1df0…1df6 }
0x1df6…1dfc b3ea 01770 ENDIF
0x1df6…1dfc LineComal80 {
0x1df6…1dfc ptr = 0xb3ea // 0x1df6 @0x0
0x1df6…1dfc lno = 0x06ea // 0x1df8 @0x2
0x1df6…1dfc at0004 = ╱9c╱ ENDIF ╱ // 0x1dfa @0x4
0x1df6…1dfc at0005 = EOL // 0x1dfb @0x5
0x1df6…1dfc }
0x1dfc…1e02 b3f0 01775 ENDIF
0x1dfc…1e02 LineComal80 {
0x1dfc…1e02 ptr = 0xb3f0 // 0x1dfc @0x0
0x1dfc…1e02 lno = 0x06ef // 0x1dfe @0x2
0x1dfc…1e02 at0004 = ╱9c╱ ENDIF ╱ // 0x1e00 @0x4
0x1dfc…1e02 at0005 = EOL // 0x1e01 @0x5
0x1dfc…1e02 }
0x1e02…1e12 b400 01780 CURSOR 1 , 17
0x1e02…1e12 LineComal80 {
0x1e02…1e12 ptr = 0xb400 // 0x1e02 @0x0
0x1e02…1e12 lno = 0x06f4 // 0x1e04 @0x2
0x1e02…1e12 at0004 = ╱a1╱ CURSOR ╱ // 0x1e06 @0x4
0x1e02…1e12 at0005 = ╱31╱1╱ // 0x1e07 @0x5
0x1e02…1e12 at0006 = ╱f20100╱ // 0x1e08 @0x6
0x1e02…1e12 at0009 = ╱ec╱ , ╱ // 0x1e0b @0x9
0x1e02…1e12 at000a = ╱31╱1╱ // 0x1e0c @0xa
0x1e02…1e12 at000b = ╱37╱7╱ // 0x1e0d @0xb
0x1e02…1e12 at000c = ╱f21100╱ // 0x1e0e @0xc
0x1e02…1e12 at000f = EOL // 0x1e11 @0xf
0x1e02…1e12 }
0x1e12…1e26 b414 01785 FOR X := 1 TO 2 DO
0x1e12…1e26 LineComal80 {
0x1e12…1e26 ptr = 0xb414 // 0x1e12 @0x0
0x1e12…1e26 lno = 0x06f9 // 0x1e14 @0x2
0x1e12…1e26 at0004 = ╱8300╱ FOR ╱ // 0x1e16 @0x4
0x1e12…1e26 at0006 = ╱58╱X╱ // 0x1e18 @0x6
0x1e12…1e26 at0007 = ╱f0╱ := ╱ // 0x1e19 @0x7
0x1e12…1e26 at0008 = ╱31╱1╱ // 0x1e1a @0x8
0x1e12…1e26 at0009 = ╱f20100╱ // 0x1e1b @0x9
0x1e12…1e26 at000c = ╱b731╱ TO ╱ // 0x1e1e @0xc
0x1e12…1e26 at000e = ╱32╱2╱ // 0x1e20 @0xe
0x1e12…1e26 at000f = ╱f20c00╱ // 0x1e21 @0xf
0x1e12…1e26 at0012 = ╱bb╱ DO ╱ // 0x1e24 @0x12
0x1e12…1e26 at0013 = EOL // 0x1e25 @0x13
0x1e12…1e26 }
0x1e26…1e30 b41e 01790 PRINT SP $ ;
0x1e26…1e30 LineComal80 {
0x1e26…1e30 ptr = 0xb41e // 0x1e26 @0x0
0x1e26…1e30 lno = 0x06fe // 0x1e28 @0x2
0x1e26…1e30 at0004 = ╱92╱ PRINT ╱ // 0x1e2a @0x4
0x1e26…1e30 at0005 = ╱53╱S╱ // 0x1e2b @0x5
0x1e26…1e30 at0006 = ╱50╱P╱ // 0x1e2c @0x6
0x1e26…1e30 at0007 = ╱ef╱ $ ╱ // 0x1e2d @0x7
0x1e26…1e30 at0008 = ╱ea╱ ; ╱ // 0x1e2e @0x8
0x1e26…1e30 at0009 = EOL // 0x1e2f @0x9
0x1e26…1e30 }
0x1e30…1e37 b425 01795 NEXT X
0x1e30…1e37 LineComal80 {
0x1e30…1e37 ptr = 0xb425 // 0x1e30 @0x0
0x1e30…1e37 lno = 0x0703 // 0x1e32 @0x2
0x1e30…1e37 at0004 = ╱84╱ NEXT ╱ // 0x1e34 @0x4
0x1e30…1e37 at0005 = ╱58╱X╱ // 0x1e35 @0x5
0x1e30…1e37 at0006 = EOL // 0x1e36 @0x6
0x1e30…1e37 }
0x1e37…1e42 b430 01800 IF >< O THEN
0x1e37…1e42 LineComal80 {
0x1e37…1e42 ptr = 0xb430 // 0x1e37 @0x0
0x1e37…1e42 lno = 0x0708 // 0x1e39 @0x2
0x1e37…1e42 at0004 = ╱9b004e╱ IF ╱ // 0x1e3b @0x4
0x1e37…1e42 at0007 = ╱e4╱ >< ╱ // 0x1e3e @0x7
0x1e37…1e42 at0008 = ╱4f╱O╱ // 0x1e3f @0x8
0x1e37…1e42 at0009 = ╱b5╱ THEN ╱ // 0x1e40 @0x9
0x1e37…1e42 at000a = EOL // 0x1e41 @0xa
0x1e37…1e42 }
0x1e42…1e5e b44c 01805 IF N > 12 THEN CURSOR 71 , N - 8
0x1e42…1e5e LineComal80 {
0x1e42…1e5e ptr = 0xb44c // 0x1e42 @0x0
0x1e42…1e5e lno = 0x070d // 0x1e44 @0x2
0x1e42…1e5e at0004 = ╱8200╱ IF ╱ // 0x1e46 @0x4
0x1e42…1e5e at0006 = ╱4e╱N╱ // 0x1e48 @0x6
0x1e42…1e5e at0007 = ╱e1╱ > ╱ // 0x1e49 @0x7
0x1e42…1e5e at0008 = ╱31╱1╱ // 0x1e4a @0x8
0x1e42…1e5e at0009 = ╱32╱2╱ // 0x1e4b @0x9
0x1e42…1e5e at000a = ╱f20c00╱ // 0x1e4c @0xa
0x1e42…1e5e at000d = ╱b5╱ THEN ╱ // 0x1e4f @0xd
0x1e42…1e5e at000e = ╱a1╱ CURSOR ╱ // 0x1e50 @0xe
0x1e42…1e5e at000f = ╱37╱7╱ // 0x1e51 @0xf
0x1e42…1e5e at0010 = ╱31╱1╱ // 0x1e52 @0x10
0x1e42…1e5e at0011 = ╱f24700╱ // 0x1e53 @0x11
0x1e42…1e5e at0014 = ╱ec╱ , ╱ // 0x1e56 @0x14
0x1e42…1e5e at0015 = ╱4e╱N╱ // 0x1e57 @0x15
0x1e42…1e5e at0016 = ╱e6╱ - ╱ // 0x1e58 @0x16
0x1e42…1e5e at0017 = ╱38╱8╱ // 0x1e59 @0x17
0x1e42…1e5e at0018 = ╱f20800╱ // 0x1e5a @0x18
0x1e42…1e5e at001b = EOL // 0x1e5d @0x1b
0x1e42…1e5e }
0x1e5e…1e7a b468 01810 IF N =< 12 THEN CURSOR 30 , N + 4
0x1e5e…1e7a LineComal80 {
0x1e5e…1e7a ptr = 0xb468 // 0x1e5e @0x0
0x1e5e…1e7a lno = 0x0712 // 0x1e60 @0x2
0x1e5e…1e7a at0004 = ╱8200╱ IF ╱ // 0x1e62 @0x4
0x1e5e…1e7a at0006 = ╱4e╱N╱ // 0x1e64 @0x6
0x1e5e…1e7a at0007 = ╱e2╱ =< ╱ // 0x1e65 @0x7
0x1e5e…1e7a at0008 = ╱31╱1╱ // 0x1e66 @0x8
0x1e5e…1e7a at0009 = ╱32╱2╱ // 0x1e67 @0x9
0x1e5e…1e7a at000a = ╱f20c00╱ // 0x1e68 @0xa
0x1e5e…1e7a at000d = ╱b5╱ THEN ╱ // 0x1e6b @0xd
0x1e5e…1e7a at000e = ╱a1╱ CURSOR ╱ // 0x1e6c @0xe
0x1e5e…1e7a at000f = ╱33╱3╱ // 0x1e6d @0xf
0x1e5e…1e7a at0010 = ╱30╱0╱ // 0x1e6e @0x10
0x1e5e…1e7a at0011 = ╱f21e00╱ // 0x1e6f @0x11
0x1e5e…1e7a at0014 = ╱ec╱ , ╱ // 0x1e72 @0x14
0x1e5e…1e7a at0015 = ╱4e╱N╱ // 0x1e73 @0x15
0x1e5e…1e7a at0016 = ╱e5╱ + ╱ // 0x1e74 @0x16
0x1e5e…1e7a at0017 = ╱34╱4╱ // 0x1e75 @0x17
0x1e5e…1e7a at0018 = ╱f20400╱ // 0x1e76 @0x18
0x1e5e…1e7a at001b = EOL // 0x1e79 @0x1b
0x1e5e…1e7a }
0x1e7a…1e88 b476 01815 IF ( N ) >< O THEN
0x1e7a…1e88 LineComal80 {
0x1e7a…1e88 ptr = 0xb476 // 0x1e7a @0x0
0x1e7a…1e88 lno = 0x0717 // 0x1e7c @0x2
0x1e7a…1e88 at0004 = ╱9b0041╱ IF ╱ // 0x1e7e @0x4
0x1e7a…1e88 at0007 = ╱ed╱ ( ╱ // 0x1e81 @0x7
0x1e7a…1e88 at0008 = ╱4e╱N╱ // 0x1e82 @0x8
0x1e7a…1e88 at0009 = ╱ee╱ ) ╱ // 0x1e83 @0x9
0x1e7a…1e88 at000a = ╱e4╱ >< ╱ // 0x1e84 @0xa
0x1e7a…1e88 at000b = ╱4f╱O╱ // 0x1e85 @0xb
0x1e7a…1e88 at000c = ╱b5╱ THEN ╱ // 0x1e86 @0xc
0x1e7a…1e88 at000d = EOL // 0x1e87 @0xd
0x1e7a…1e88 }
0x1e88…1e97 b485 01820 PRINT USING NU $ : A ( N )
0x1e88…1e97 LineComal80 {
0x1e88…1e97 ptr = 0xb485 // 0x1e88 @0x0
0x1e88…1e97 lno = 0x071c // 0x1e8a @0x2
0x1e88…1e97 at0004 = ╱92╱ PRINT ╱ // 0x1e8c @0x4
0x1e88…1e97 at0005 = ╱b9╱ USING ╱ // 0x1e8d @0x5
0x1e88…1e97 at0006 = ╱4e╱N╱ // 0x1e8e @0x6
0x1e88…1e97 at0007 = ╱55╱U╱ // 0x1e8f @0x7
0x1e88…1e97 at0008 = ╱ef╱ $ ╱ // 0x1e90 @0x8
0x1e88…1e97 at0009 = ╱f1╱ : ╱ // 0x1e91 @0x9
0x1e88…1e97 at000a = ╱41╱A╱ // 0x1e92 @0xa
0x1e88…1e97 at000b = ╱ed╱ ( ╱ // 0x1e93 @0xb
0x1e88…1e97 at000c = ╱4e╱N╱ // 0x1e94 @0xc
0x1e88…1e97 at000d = ╱ee╱ ) ╱ // 0x1e95 @0xd
0x1e88…1e97 at000e = EOL // 0x1e96 @0xe
0x1e88…1e97 }
0x1e97…1e9e b48c 01825 ELSE
0x1e97…1e9e LineComal80 {
0x1e97…1e9e ptr = 0xb48c // 0x1e97 @0x0
0x1e97…1e9e lno = 0x0721 // 0x1e99 @0x2
0x1e97…1e9e at0004 = ╱9a00╱ ELSE ╱ // 0x1e9b @0x4
0x1e97…1e9e at0006 = EOL // 0x1e9d @0x6
0x1e97…1e9e }
0x1e9e…1eb2 b4a0 01830 PRINT SP $ ( 1 : 9 )
0x1e9e…1eb2 LineComal80 {
0x1e9e…1eb2 ptr = 0xb4a0 // 0x1e9e @0x0
0x1e9e…1eb2 lno = 0x0726 // 0x1ea0 @0x2
0x1e9e…1eb2 at0004 = ╱92╱ PRINT ╱ // 0x1ea2 @0x4
0x1e9e…1eb2 at0005 = ╱53╱S╱ // 0x1ea3 @0x5
0x1e9e…1eb2 at0006 = ╱50╱P╱ // 0x1ea4 @0x6
0x1e9e…1eb2 at0007 = ╱ef╱ $ ╱ // 0x1ea5 @0x7
0x1e9e…1eb2 at0008 = ╱ed╱ ( ╱ // 0x1ea6 @0x8
0x1e9e…1eb2 at0009 = ╱31╱1╱ // 0x1ea7 @0x9
0x1e9e…1eb2 at000a = ╱f20100╱ // 0x1ea8 @0xa
0x1e9e…1eb2 at000d = ╱f1╱ : ╱ // 0x1eab @0xd
0x1e9e…1eb2 at000e = ╱39╱9╱ // 0x1eac @0xe
0x1e9e…1eb2 at000f = ╱f20900╱ // 0x1ead @0xf
0x1e9e…1eb2 at0012 = ╱ee╱ ) ╱ // 0x1eb0 @0x12
0x1e9e…1eb2 at0013 = EOL // 0x1eb1 @0x13
0x1e9e…1eb2 }
0x1eb2…1eb8 b4a6 01835 ENDIF
0x1eb2…1eb8 LineComal80 {
0x1eb2…1eb8 ptr = 0xb4a6 // 0x1eb2 @0x0
0x1eb2…1eb8 lno = 0x072b // 0x1eb4 @0x2
0x1eb2…1eb8 at0004 = ╱9c╱ ENDIF ╱ // 0x1eb6 @0x4
0x1eb2…1eb8 at0005 = EOL // 0x1eb7 @0x5
0x1eb2…1eb8 }
0x1eb8…1ebe b4ac 01840 ENDIF
0x1eb8…1ebe LineComal80 {
0x1eb8…1ebe ptr = 0xb4ac // 0x1eb8 @0x0
0x1eb8…1ebe lno = 0x0730 // 0x1eba @0x2
0x1eb8…1ebe at0004 = ╱9c╱ ENDIF ╱ // 0x1ebc @0x4
0x1eb8…1ebe at0005 = EOL // 0x1ebd @0x5
0x1eb8…1ebe }
0x1ebe…1ec7 b4b5 01845 UNTIL N = O
0x1ebe…1ec7 LineComal80 {
0x1ebe…1ec7 ptr = 0xb4b5 // 0x1ebe @0x0
0x1ebe…1ec7 lno = 0x0735 // 0x1ec0 @0x2
0x1ebe…1ec7 at0004 = ╱98╱ UNTIL ╱ // 0x1ec2 @0x4
0x1ebe…1ec7 at0005 = ╱4e╱N╱ // 0x1ec3 @0x5
0x1ebe…1ec7 at0006 = ╱df╱ = ╱ // 0x1ec4 @0x6
0x1ebe…1ec7 at0007 = ╱4f╱O╱ // 0x1ec5 @0x7
0x1ebe…1ec7 at0008 = EOL // 0x1ec6 @0x8
0x1ebe…1ec7 }
0x1ec7…1ecd b4bb 01850 CLEAR
0x1ec7…1ecd LineComal80 {
0x1ec7…1ecd ptr = 0xb4bb // 0x1ec7 @0x0
0x1ec7…1ecd lno = 0x073a // 0x1ec9 @0x2
0x1ec7…1ecd at0004 = ╱a0╱ CLEAR ╱ // 0x1ecb @0x4
0x1ec7…1ecd at0005 = EOL // 0x1ecc @0x5
0x1ec7…1ecd }
0x1ecd…1edb b4c9 01855 ENDPROC INDKOMST
0x1ecd…1edb LineComal80 {
0x1ecd…1edb ptr = 0xb4c9 // 0x1ecd @0x0
0x1ecd…1edb lno = 0x073f // 0x1ecf @0x2
0x1ecd…1edb at0004 = ╱9f╱ ENDPROC ╱ // 0x1ed1 @0x4
0x1ecd…1edb at0005 = ╱49╱I╱ // 0x1ed2 @0x5
0x1ecd…1edb at0006 = ╱4e╱N╱ // 0x1ed3 @0x6
0x1ecd…1edb at0007 = ╱44╱D╱ // 0x1ed4 @0x7
0x1ecd…1edb at0008 = ╱4b╱K╱ // 0x1ed5 @0x8
0x1ecd…1edb at0009 = ╱4f╱O╱ // 0x1ed6 @0x9
0x1ecd…1edb at000a = ╱4d╱M╱ // 0x1ed7 @0xa
0x1ecd…1edb at000b = ╱53╱S╱ // 0x1ed8 @0xb
0x1ecd…1edb at000c = ╱54╱T╱ // 0x1ed9 @0xc
0x1ecd…1edb at000d = EOL // 0x1eda @0xd
0x1ecd…1edb }
0x1edb…1ee7 b4d5 01860 PROC REGN1
0x1edb…1ee7 LineComal80 {
0x1edb…1ee7 ptr = 0xb4d5 // 0x1edb @0x0
0x1edb…1ee7 lno = 0x0744 // 0x1edd @0x2
0x1edb…1ee7 at0004 = ╱9e00╱ PROC ╱ // 0x1edf @0x4
0x1edb…1ee7 at0006 = ╱52╱R╱ // 0x1ee1 @0x6
0x1edb…1ee7 at0007 = ╱45╱E╱ // 0x1ee2 @0x7
0x1edb…1ee7 at0008 = ╱47╱G╱ // 0x1ee3 @0x8
0x1edb…1ee7 at0009 = ╱4e╱N╱ // 0x1ee4 @0x9
0x1edb…1ee7 at000a = ╱31╱1╱ // 0x1ee5 @0xa
0x1edb…1ee7 at000b = EOL // 0x1ee6 @0xb
0x1edb…1ee7 }
0x1ee7…1f54 b542 01865 LET C1 := A ( 1 ) + A ( 2 ) + A ( 4 ) - A ( 5 ) - A ( 7 ) + A ( 6 ) + A ( 9 ) + A ( 10 ) - A ( 14 ) - A ( 18 ) + A ( 15 ) - A ( 16 )
0x1ee7…1f54 LineComal80 {
0x1ee7…1f54 ptr = 0xb542 // 0x1ee7 @0x0
0x1ee7…1f54 lno = 0x0749 // 0x1ee9 @0x2
0x1ee7…1f54 at0004 = ╱86╱ LET ╱ // 0x1eeb @0x4
0x1ee7…1f54 at0005 = ╱43╱C╱ // 0x1eec @0x5
0x1ee7…1f54 at0006 = ╱31╱1╱ // 0x1eed @0x6
0x1ee7…1f54 at0007 = ╱f0╱ := ╱ // 0x1eee @0x7
0x1ee7…1f54 at0008 = ╱41╱A╱ // 0x1eef @0x8
0x1ee7…1f54 at0009 = ╱ed╱ ( ╱ // 0x1ef0 @0x9
0x1ee7…1f54 at000a = ╱31╱1╱ // 0x1ef1 @0xa
0x1ee7…1f54 at000b = ╱f20100╱ // 0x1ef2 @0xb
0x1ee7…1f54 at000e = ╱ee╱ ) ╱ // 0x1ef5 @0xe
0x1ee7…1f54 at000f = ╱e5╱ + ╱ // 0x1ef6 @0xf
0x1ee7…1f54 at0010 = ╱41╱A╱ // 0x1ef7 @0x10
0x1ee7…1f54 at0011 = ╱ed╱ ( ╱ // 0x1ef8 @0x11
0x1ee7…1f54 at0012 = ╱32╱2╱ // 0x1ef9 @0x12
0x1ee7…1f54 at0013 = ╱f20200╱ // 0x1efa @0x13
0x1ee7…1f54 at0016 = ╱ee╱ ) ╱ // 0x1efd @0x16
0x1ee7…1f54 at0017 = ╱e5╱ + ╱ // 0x1efe @0x17
0x1ee7…1f54 at0018 = ╱41╱A╱ // 0x1eff @0x18
0x1ee7…1f54 at0019 = ╱ed╱ ( ╱ // 0x1f00 @0x19
0x1ee7…1f54 at001a = ╱34╱4╱ // 0x1f01 @0x1a
0x1ee7…1f54 at001b = ╱f20400╱ // 0x1f02 @0x1b
0x1ee7…1f54 at001e = ╱ee╱ ) ╱ // 0x1f05 @0x1e
0x1ee7…1f54 at001f = ╱e6╱ - ╱ // 0x1f06 @0x1f
0x1ee7…1f54 at0020 = ╱41╱A╱ // 0x1f07 @0x20
0x1ee7…1f54 at0021 = ╱ed╱ ( ╱ // 0x1f08 @0x21
0x1ee7…1f54 at0022 = ╱35╱5╱ // 0x1f09 @0x22
0x1ee7…1f54 at0023 = ╱f20500╱ // 0x1f0a @0x23
0x1ee7…1f54 at0026 = ╱ee╱ ) ╱ // 0x1f0d @0x26
0x1ee7…1f54 at0027 = ╱e6╱ - ╱ // 0x1f0e @0x27
0x1ee7…1f54 at0028 = ╱41╱A╱ // 0x1f0f @0x28
0x1ee7…1f54 at0029 = ╱ed╱ ( ╱ // 0x1f10 @0x29
0x1ee7…1f54 at002a = ╱37╱7╱ // 0x1f11 @0x2a
0x1ee7…1f54 at002b = ╱f20700╱ // 0x1f12 @0x2b
0x1ee7…1f54 at002e = ╱ee╱ ) ╱ // 0x1f15 @0x2e
0x1ee7…1f54 at002f = ╱e5╱ + ╱ // 0x1f16 @0x2f
0x1ee7…1f54 at0030 = ╱41╱A╱ // 0x1f17 @0x30
0x1ee7…1f54 at0031 = ╱ed╱ ( ╱ // 0x1f18 @0x31
0x1ee7…1f54 at0032 = ╱36╱6╱ // 0x1f19 @0x32
0x1ee7…1f54 at0033 = ╱f20600╱ // 0x1f1a @0x33
0x1ee7…1f54 at0036 = ╱ee╱ ) ╱ // 0x1f1d @0x36
0x1ee7…1f54 at0037 = ╱e5╱ + ╱ // 0x1f1e @0x37
0x1ee7…1f54 at0038 = ╱41╱A╱ // 0x1f1f @0x38
0x1ee7…1f54 at0039 = ╱ed╱ ( ╱ // 0x1f20 @0x39
0x1ee7…1f54 at003a = ╱39╱9╱ // 0x1f21 @0x3a
0x1ee7…1f54 at003b = ╱f20900╱ // 0x1f22 @0x3b
0x1ee7…1f54 at003e = ╱ee╱ ) ╱ // 0x1f25 @0x3e
0x1ee7…1f54 at003f = ╱e5╱ + ╱ // 0x1f26 @0x3f
0x1ee7…1f54 at0040 = ╱41╱A╱ // 0x1f27 @0x40
0x1ee7…1f54 at0041 = ╱ed╱ ( ╱ // 0x1f28 @0x41
0x1ee7…1f54 at0042 = ╱31╱1╱ // 0x1f29 @0x42
0x1ee7…1f54 at0043 = ╱30╱0╱ // 0x1f2a @0x43
0x1ee7…1f54 at0044 = ╱f20a00╱ // 0x1f2b @0x44
0x1ee7…1f54 at0047 = ╱ee╱ ) ╱ // 0x1f2e @0x47
0x1ee7…1f54 at0048 = ╱e6╱ - ╱ // 0x1f2f @0x48
0x1ee7…1f54 at0049 = ╱41╱A╱ // 0x1f30 @0x49
0x1ee7…1f54 at004a = ╱ed╱ ( ╱ // 0x1f31 @0x4a
0x1ee7…1f54 at004b = ╱31╱1╱ // 0x1f32 @0x4b
0x1ee7…1f54 at004c = ╱34╱4╱ // 0x1f33 @0x4c
0x1ee7…1f54 at004d = ╱f20e00╱ // 0x1f34 @0x4d
0x1ee7…1f54 at0050 = ╱ee╱ ) ╱ // 0x1f37 @0x50
0x1ee7…1f54 at0051 = ╱e6╱ - ╱ // 0x1f38 @0x51
0x1ee7…1f54 at0052 = ╱41╱A╱ // 0x1f39 @0x52
0x1ee7…1f54 at0053 = ╱ed╱ ( ╱ // 0x1f3a @0x53
0x1ee7…1f54 at0054 = ╱31╱1╱ // 0x1f3b @0x54
0x1ee7…1f54 at0055 = ╱38╱8╱ // 0x1f3c @0x55
0x1ee7…1f54 at0056 = ╱f21200╱ // 0x1f3d @0x56
0x1ee7…1f54 at0059 = ╱ee╱ ) ╱ // 0x1f40 @0x59
0x1ee7…1f54 at005a = ╱e5╱ + ╱ // 0x1f41 @0x5a
0x1ee7…1f54 at005b = ╱41╱A╱ // 0x1f42 @0x5b
0x1ee7…1f54 at005c = ╱ed╱ ( ╱ // 0x1f43 @0x5c
0x1ee7…1f54 at005d = ╱31╱1╱ // 0x1f44 @0x5d
0x1ee7…1f54 at005e = ╱35╱5╱ // 0x1f45 @0x5e
0x1ee7…1f54 at005f = ╱f20f00╱ // 0x1f46 @0x5f
0x1ee7…1f54 at0062 = ╱ee╱ ) ╱ // 0x1f49 @0x62
0x1ee7…1f54 at0063 = ╱e6╱ - ╱ // 0x1f4a @0x63
0x1ee7…1f54 at0064 = ╱41╱A╱ // 0x1f4b @0x64
0x1ee7…1f54 at0065 = ╱ed╱ ( ╱ // 0x1f4c @0x65
0x1ee7…1f54 at0066 = ╱31╱1╱ // 0x1f4d @0x66
0x1ee7…1f54 at0067 = ╱36╱6╱ // 0x1f4e @0x67
0x1ee7…1f54 at0068 = ╱f21000╱ // 0x1f4f @0x68
0x1ee7…1f54 at006b = ╱ee╱ ) ╱ // 0x1f52 @0x6b
0x1ee7…1f54 at006c = EOL // 0x1f53 @0x6c
0x1ee7…1f54 }
0x1f54…1f7a b568 01870 LET C1 := C1 + A ( 17 ) - A ( 22 ) - A ( 23 )
0x1f54…1f7a LineComal80 {
0x1f54…1f7a ptr = 0xb568 // 0x1f54 @0x0
0x1f54…1f7a lno = 0x074e // 0x1f56 @0x2
0x1f54…1f7a at0004 = ╱86╱ LET ╱ // 0x1f58 @0x4
0x1f54…1f7a at0005 = ╱43╱C╱ // 0x1f59 @0x5
0x1f54…1f7a at0006 = ╱31╱1╱ // 0x1f5a @0x6
0x1f54…1f7a at0007 = ╱f0╱ := ╱ // 0x1f5b @0x7
0x1f54…1f7a at0008 = ╱43╱C╱ // 0x1f5c @0x8
0x1f54…1f7a at0009 = ╱31╱1╱ // 0x1f5d @0x9
0x1f54…1f7a at000a = ╱e5╱ + ╱ // 0x1f5e @0xa
0x1f54…1f7a at000b = ╱41╱A╱ // 0x1f5f @0xb
0x1f54…1f7a at000c = ╱ed╱ ( ╱ // 0x1f60 @0xc
0x1f54…1f7a at000d = ╱31╱1╱ // 0x1f61 @0xd
0x1f54…1f7a at000e = ╱37╱7╱ // 0x1f62 @0xe
0x1f54…1f7a at000f = ╱f21100╱ // 0x1f63 @0xf
0x1f54…1f7a at0012 = ╱ee╱ ) ╱ // 0x1f66 @0x12
0x1f54…1f7a at0013 = ╱e6╱ - ╱ // 0x1f67 @0x13
0x1f54…1f7a at0014 = ╱41╱A╱ // 0x1f68 @0x14
0x1f54…1f7a at0015 = ╱ed╱ ( ╱ // 0x1f69 @0x15
0x1f54…1f7a at0016 = ╱32╱2╱ // 0x1f6a @0x16
0x1f54…1f7a at0017 = ╱32╱2╱ // 0x1f6b @0x17
0x1f54…1f7a at0018 = ╱f21600╱ // 0x1f6c @0x18
0x1f54…1f7a at001b = ╱ee╱ ) ╱ // 0x1f6f @0x1b
0x1f54…1f7a at001c = ╱e6╱ - ╱ // 0x1f70 @0x1c
0x1f54…1f7a at001d = ╱41╱A╱ // 0x1f71 @0x1d
0x1f54…1f7a at001e = ╱ed╱ ( ╱ // 0x1f72 @0x1e
0x1f54…1f7a at001f = ╱32╱2╱ // 0x1f73 @0x1f
0x1f54…1f7a at0020 = ╱33╱3╱ // 0x1f74 @0x20
0x1f54…1f7a at0021 = ╱f21700╱ // 0x1f75 @0x21
0x1f54…1f7a at0024 = ╱ee╱ ) ╱ // 0x1f78 @0x24
0x1f54…1f7a at0025 = EOL // 0x1f79 @0x25
0x1f54…1f7a }
0x1f7a…1fea b5d8 01875 LET C2 := A ( 3 ) + A ( 5 ) + A ( 7 ) - A ( 9 ) + A ( 12 ) + A ( 11 ) - A ( 15 ) - A ( 13 ) - A ( 17 ) - A ( 19 ) - A ( 20 ) - A ( 21 )
0x1f7a…1fea LineComal80 {
0x1f7a…1fea ptr = 0xb5d8 // 0x1f7a @0x0
0x1f7a…1fea lno = 0x0753 // 0x1f7c @0x2
0x1f7a…1fea at0004 = ╱86╱ LET ╱ // 0x1f7e @0x4
0x1f7a…1fea at0005 = ╱43╱C╱ // 0x1f7f @0x5
0x1f7a…1fea at0006 = ╱32╱2╱ // 0x1f80 @0x6
0x1f7a…1fea at0007 = ╱f0╱ := ╱ // 0x1f81 @0x7
0x1f7a…1fea at0008 = ╱41╱A╱ // 0x1f82 @0x8
0x1f7a…1fea at0009 = ╱ed╱ ( ╱ // 0x1f83 @0x9
0x1f7a…1fea at000a = ╱33╱3╱ // 0x1f84 @0xa
0x1f7a…1fea at000b = ╱f20300╱ // 0x1f85 @0xb
0x1f7a…1fea at000e = ╱ee╱ ) ╱ // 0x1f88 @0xe
0x1f7a…1fea at000f = ╱e5╱ + ╱ // 0x1f89 @0xf
0x1f7a…1fea at0010 = ╱41╱A╱ // 0x1f8a @0x10
0x1f7a…1fea at0011 = ╱ed╱ ( ╱ // 0x1f8b @0x11
0x1f7a…1fea at0012 = ╱35╱5╱ // 0x1f8c @0x12
0x1f7a…1fea at0013 = ╱f20500╱ // 0x1f8d @0x13
0x1f7a…1fea at0016 = ╱ee╱ ) ╱ // 0x1f90 @0x16
0x1f7a…1fea at0017 = ╱e5╱ + ╱ // 0x1f91 @0x17
0x1f7a…1fea at0018 = ╱41╱A╱ // 0x1f92 @0x18
0x1f7a…1fea at0019 = ╱ed╱ ( ╱ // 0x1f93 @0x19
0x1f7a…1fea at001a = ╱37╱7╱ // 0x1f94 @0x1a
0x1f7a…1fea at001b = ╱f20700╱ // 0x1f95 @0x1b
0x1f7a…1fea at001e = ╱ee╱ ) ╱ // 0x1f98 @0x1e
0x1f7a…1fea at001f = ╱e6╱ - ╱ // 0x1f99 @0x1f
0x1f7a…1fea at0020 = ╱41╱A╱ // 0x1f9a @0x20
0x1f7a…1fea at0021 = ╱ed╱ ( ╱ // 0x1f9b @0x21
0x1f7a…1fea at0022 = ╱39╱9╱ // 0x1f9c @0x22
0x1f7a…1fea at0023 = ╱f20900╱ // 0x1f9d @0x23
0x1f7a…1fea at0026 = ╱ee╱ ) ╱ // 0x1fa0 @0x26
0x1f7a…1fea at0027 = ╱e5╱ + ╱ // 0x1fa1 @0x27
0x1f7a…1fea at0028 = ╱41╱A╱ // 0x1fa2 @0x28
0x1f7a…1fea at0029 = ╱ed╱ ( ╱ // 0x1fa3 @0x29
0x1f7a…1fea at002a = ╱31╱1╱ // 0x1fa4 @0x2a
0x1f7a…1fea at002b = ╱32╱2╱ // 0x1fa5 @0x2b
0x1f7a…1fea at002c = ╱f20c00╱ // 0x1fa6 @0x2c
0x1f7a…1fea at002f = ╱ee╱ ) ╱ // 0x1fa9 @0x2f
0x1f7a…1fea at0030 = ╱e5╱ + ╱ // 0x1faa @0x30
0x1f7a…1fea at0031 = ╱41╱A╱ // 0x1fab @0x31
0x1f7a…1fea at0032 = ╱ed╱ ( ╱ // 0x1fac @0x32
0x1f7a…1fea at0033 = ╱31╱1╱ // 0x1fad @0x33
0x1f7a…1fea at0034 = ╱31╱1╱ // 0x1fae @0x34
0x1f7a…1fea at0035 = ╱f20b00╱ // 0x1faf @0x35
0x1f7a…1fea at0038 = ╱ee╱ ) ╱ // 0x1fb2 @0x38
0x1f7a…1fea at0039 = ╱e6╱ - ╱ // 0x1fb3 @0x39
0x1f7a…1fea at003a = ╱41╱A╱ // 0x1fb4 @0x3a
0x1f7a…1fea at003b = ╱ed╱ ( ╱ // 0x1fb5 @0x3b
0x1f7a…1fea at003c = ╱31╱1╱ // 0x1fb6 @0x3c
0x1f7a…1fea at003d = ╱35╱5╱ // 0x1fb7 @0x3d
0x1f7a…1fea at003e = ╱f20f00╱ // 0x1fb8 @0x3e
0x1f7a…1fea at0041 = ╱ee╱ ) ╱ // 0x1fbb @0x41
0x1f7a…1fea at0042 = ╱e6╱ - ╱ // 0x1fbc @0x42
0x1f7a…1fea at0043 = ╱41╱A╱ // 0x1fbd @0x43
0x1f7a…1fea at0044 = ╱ed╱ ( ╱ // 0x1fbe @0x44
0x1f7a…1fea at0045 = ╱31╱1╱ // 0x1fbf @0x45
0x1f7a…1fea at0046 = ╱33╱3╱ // 0x1fc0 @0x46
0x1f7a…1fea at0047 = ╱f20d00╱ // 0x1fc1 @0x47
0x1f7a…1fea at004a = ╱ee╱ ) ╱ // 0x1fc4 @0x4a
0x1f7a…1fea at004b = ╱e6╱ - ╱ // 0x1fc5 @0x4b
0x1f7a…1fea at004c = ╱41╱A╱ // 0x1fc6 @0x4c
0x1f7a…1fea at004d = ╱ed╱ ( ╱ // 0x1fc7 @0x4d
0x1f7a…1fea at004e = ╱31╱1╱ // 0x1fc8 @0x4e
0x1f7a…1fea at004f = ╱37╱7╱ // 0x1fc9 @0x4f
0x1f7a…1fea at0050 = ╱f21100╱ // 0x1fca @0x50
0x1f7a…1fea at0053 = ╱ee╱ ) ╱ // 0x1fcd @0x53
0x1f7a…1fea at0054 = ╱e6╱ - ╱ // 0x1fce @0x54
0x1f7a…1fea at0055 = ╱41╱A╱ // 0x1fcf @0x55
0x1f7a…1fea at0056 = ╱ed╱ ( ╱ // 0x1fd0 @0x56
0x1f7a…1fea at0057 = ╱31╱1╱ // 0x1fd1 @0x57
0x1f7a…1fea at0058 = ╱39╱9╱ // 0x1fd2 @0x58
0x1f7a…1fea at0059 = ╱f21300╱ // 0x1fd3 @0x59
0x1f7a…1fea at005c = ╱ee╱ ) ╱ // 0x1fd6 @0x5c
0x1f7a…1fea at005d = ╱e6╱ - ╱ // 0x1fd7 @0x5d
0x1f7a…1fea at005e = ╱41╱A╱ // 0x1fd8 @0x5e
0x1f7a…1fea at005f = ╱ed╱ ( ╱ // 0x1fd9 @0x5f
0x1f7a…1fea at0060 = ╱32╱2╱ // 0x1fda @0x60
0x1f7a…1fea at0061 = ╱30╱0╱ // 0x1fdb @0x61
0x1f7a…1fea at0062 = ╱f21400╱ // 0x1fdc @0x62
0x1f7a…1fea at0065 = ╱ee╱ ) ╱ // 0x1fdf @0x65
0x1f7a…1fea at0066 = ╱e6╱ - ╱ // 0x1fe0 @0x66
0x1f7a…1fea at0067 = ╱41╱A╱ // 0x1fe1 @0x67
0x1f7a…1fea at0068 = ╱ed╱ ( ╱ // 0x1fe2 @0x68
0x1f7a…1fea at0069 = ╱32╱2╱ // 0x1fe3 @0x69
0x1f7a…1fea at006a = ╱31╱1╱ // 0x1fe4 @0x6a
0x1f7a…1fea at006b = ╱f21500╱ // 0x1fe5 @0x6b
0x1f7a…1fea at006e = ╱ee╱ ) ╱ // 0x1fe8 @0x6e
0x1f7a…1fea at006f = EOL // 0x1fe9 @0x6f
0x1f7a…1fea }
0x1fea…200f b5fd 01880 LET C2 := C2 + A ( 22 ) + A ( 8 ) ; C7 := C1 + C2
0x1fea…200f LineComal80 {
0x1fea…200f ptr = 0xb5fd // 0x1fea @0x0
0x1fea…200f lno = 0x0758 // 0x1fec @0x2
0x1fea…200f at0004 = ╱86╱ LET ╱ // 0x1fee @0x4
0x1fea…200f at0005 = ╱43╱C╱ // 0x1fef @0x5
0x1fea…200f at0006 = ╱32╱2╱ // 0x1ff0 @0x6
0x1fea…200f at0007 = ╱f0╱ := ╱ // 0x1ff1 @0x7
0x1fea…200f at0008 = ╱43╱C╱ // 0x1ff2 @0x8
0x1fea…200f at0009 = ╱32╱2╱ // 0x1ff3 @0x9
0x1fea…200f at000a = ╱e5╱ + ╱ // 0x1ff4 @0xa
0x1fea…200f at000b = ╱41╱A╱ // 0x1ff5 @0xb
0x1fea…200f at000c = ╱ed╱ ( ╱ // 0x1ff6 @0xc
0x1fea…200f at000d = ╱32╱2╱ // 0x1ff7 @0xd
0x1fea…200f at000e = ╱32╱2╱ // 0x1ff8 @0xe
0x1fea…200f at000f = ╱f21600╱ // 0x1ff9 @0xf
0x1fea…200f at0012 = ╱ee╱ ) ╱ // 0x1ffc @0x12
0x1fea…200f at0013 = ╱e5╱ + ╱ // 0x1ffd @0x13
0x1fea…200f at0014 = ╱41╱A╱ // 0x1ffe @0x14
0x1fea…200f at0015 = ╱ed╱ ( ╱ // 0x1fff @0x15
0x1fea…200f at0016 = ╱38╱8╱ // 0x2000 @0x16
0x1fea…200f at0017 = ╱f20800╱ // 0x2001 @0x17
0x1fea…200f at001a = ╱ee╱ ) ╱ // 0x2004 @0x1a
0x1fea…200f at001b = ╱ea╱ ; ╱ // 0x2005 @0x1b
0x1fea…200f at001c = ╱43╱C╱ // 0x2006 @0x1c
0x1fea…200f at001d = ╱37╱7╱ // 0x2007 @0x1d
0x1fea…200f at001e = ╱f0╱ := ╱ // 0x2008 @0x1e
0x1fea…200f at001f = ╱43╱C╱ // 0x2009 @0x1f
0x1fea…200f at0020 = ╱31╱1╱ // 0x200a @0x20
0x1fea…200f at0021 = ╱e5╱ + ╱ // 0x200b @0x21
0x1fea…200f at0022 = ╱43╱C╱ // 0x200c @0x22
0x1fea…200f at0023 = ╱32╱2╱ // 0x200d @0x23
0x1fea…200f at0024 = EOL // 0x200e @0x24
0x1fea…200f }
0x200f…201a b608 01885 ENDPROC REGN1
0x200f…201a LineComal80 {
0x200f…201a ptr = 0xb608 // 0x200f @0x0
0x200f…201a lno = 0x075d // 0x2011 @0x2
0x200f…201a at0004 = ╱9f╱ ENDPROC ╱ // 0x2013 @0x4
0x200f…201a at0005 = ╱52╱R╱ // 0x2014 @0x5
0x200f…201a at0006 = ╱45╱E╱ // 0x2015 @0x6
0x200f…201a at0007 = ╱47╱G╱ // 0x2016 @0x7
0x200f…201a at0008 = ╱4e╱N╱ // 0x2017 @0x8
0x200f…201a at0009 = ╱31╱1╱ // 0x2018 @0x9
0x200f…201a at000a = EOL // 0x2019 @0xa
0x200f…201a }
0x201a…2027 b615 01890 PROC INDATP
0x201a…2027 LineComal80 {
0x201a…2027 ptr = 0xb615 // 0x201a @0x0
0x201a…2027 lno = 0x0762 // 0x201c @0x2
0x201a…2027 at0004 = ╱9e00╱ PROC ╱ // 0x201e @0x4
0x201a…2027 at0006 = ╱49╱I╱ // 0x2020 @0x6
0x201a…2027 at0007 = ╱4e╱N╱ // 0x2021 @0x7
0x201a…2027 at0008 = ╱44╱D╱ // 0x2022 @0x8
0x201a…2027 at0009 = ╱41╱A╱ // 0x2023 @0x9
0x201a…2027 at000a = ╱54╱T╱ // 0x2024 @0xa
0x201a…2027 at000b = ╱50╱P╱ // 0x2025 @0xb
0x201a…2027 at000c = EOL // 0x2026 @0xc
0x201a…2027 }
0x2027…2051 b63f 01895 LET C3 := A ( 8 ) - A ( 9 ) - A ( 21 ) + A ( 22 )
0x2027…2051 LineComal80 {
0x2027…2051 ptr = 0xb63f // 0x2027 @0x0
0x2027…2051 lno = 0x0767 // 0x2029 @0x2
0x2027…2051 at0004 = ╱86╱ LET ╱ // 0x202b @0x4
0x2027…2051 at0005 = ╱43╱C╱ // 0x202c @0x5
0x2027…2051 at0006 = ╱33╱3╱ // 0x202d @0x6
0x2027…2051 at0007 = ╱f0╱ := ╱ // 0x202e @0x7
0x2027…2051 at0008 = ╱41╱A╱ // 0x202f @0x8
0x2027…2051 at0009 = ╱ed╱ ( ╱ // 0x2030 @0x9
0x2027…2051 at000a = ╱38╱8╱ // 0x2031 @0xa
0x2027…2051 at000b = ╱f20800╱ // 0x2032 @0xb
0x2027…2051 at000e = ╱ee╱ ) ╱ // 0x2035 @0xe
0x2027…2051 at000f = ╱e6╱ - ╱ // 0x2036 @0xf
0x2027…2051 at0010 = ╱41╱A╱ // 0x2037 @0x10
0x2027…2051 at0011 = ╱ed╱ ( ╱ // 0x2038 @0x11
0x2027…2051 at0012 = ╱39╱9╱ // 0x2039 @0x12
0x2027…2051 at0013 = ╱f20900╱ // 0x203a @0x13
0x2027…2051 at0016 = ╱ee╱ ) ╱ // 0x203d @0x16
0x2027…2051 at0017 = ╱e6╱ - ╱ // 0x203e @0x17
0x2027…2051 at0018 = ╱41╱A╱ // 0x203f @0x18
0x2027…2051 at0019 = ╱ed╱ ( ╱ // 0x2040 @0x19
0x2027…2051 at001a = ╱32╱2╱ // 0x2041 @0x1a
0x2027…2051 at001b = ╱31╱1╱ // 0x2042 @0x1b
0x2027…2051 at001c = ╱f21500╱ // 0x2043 @0x1c
0x2027…2051 at001f = ╱ee╱ ) ╱ // 0x2046 @0x1f
0x2027…2051 at0020 = ╱e5╱ + ╱ // 0x2047 @0x20
0x2027…2051 at0021 = ╱41╱A╱ // 0x2048 @0x21
0x2027…2051 at0022 = ╱ed╱ ( ╱ // 0x2049 @0x22
0x2027…2051 at0023 = ╱32╱2╱ // 0x204a @0x23
0x2027…2051 at0024 = ╱32╱2╱ // 0x204b @0x24
0x2027…2051 at0025 = ╱f21600╱ // 0x204c @0x25
0x2027…2051 at0028 = ╱ee╱ ) ╱ // 0x204f @0x28
0x2027…2051 at0029 = EOL // 0x2050 @0x29
0x2027…2051 }
0x2051…2062 b650 01900 IF C3 < O THEN LET C3 := O
0x2051…2062 LineComal80 {
0x2051…2062 ptr = 0xb650 // 0x2051 @0x0
0x2051…2062 lno = 0x076c // 0x2053 @0x2
0x2051…2062 at0004 = ╱8200╱ IF ╱ // 0x2055 @0x4
0x2051…2062 at0006 = ╱43╱C╱ // 0x2057 @0x6
0x2051…2062 at0007 = ╱33╱3╱ // 0x2058 @0x7
0x2051…2062 at0008 = ╱e0╱ < ╱ // 0x2059 @0x8
0x2051…2062 at0009 = ╱4f╱O╱ // 0x205a @0x9
0x2051…2062 at000a = ╱b5╱ THEN ╱ // 0x205b @0xa
0x2051…2062 at000b = ╱86╱ LET ╱ // 0x205c @0xb
0x2051…2062 at000c = ╱43╱C╱ // 0x205d @0xc
0x2051…2062 at000d = ╱33╱3╱ // 0x205e @0xd
0x2051…2062 at000e = ╱f0╱ := ╱ // 0x205f @0xe
0x2051…2062 at000f = ╱4f╱O╱ // 0x2060 @0xf
0x2051…2062 at0010 = EOL // 0x2061 @0x10
0x2051…2062 }
0x2062…2070 b65e 01905 IF >< 1 THEN
0x2062…2070 LineComal80 {
0x2062…2070 ptr = 0xb65e // 0x2062 @0x0
0x2062…2070 lno = 0x0771 // 0x2064 @0x2
0x2062…2070 at0004 = ╱9b0047╱ IF ╱ // 0x2066 @0x4
0x2062…2070 at0007 = ╱e4╱ >< ╱ // 0x2069 @0x7
0x2062…2070 at0008 = ╱31╱1╱ // 0x206a @0x8
0x2062…2070 at0009 = ╱f20100╱ // 0x206b @0x9
0x2062…2070 at000c = ╱b5╱ THEN ╱ // 0x206e @0xc
0x2062…2070 at000d = EOL // 0x206f @0xd
0x2062…2070 }
0x2070…20ac b69a 01910 PRINT "Skriv…st|rrelsen…p}…modtaget…ATP-bel|b…til…brug…for…"
0x2070…20ac LineComal80 {
0x2070…20ac ptr = 0xb69a // 0x2070 @0x0
0x2070…20ac lno = 0x0776 // 0x2072 @0x2
0x2070…20ac at0004 = ╱92╱ PRINT ╱ // 0x2074 @0x4
0x2070…20ac at0005 = ╱22╱"╱ // 0x2075 @0x5
0x2070…20ac at0006 = ╱53╱S╱ // 0x2076 @0x6
0x2070…20ac at0007 = ╱6b╱k╱ // 0x2077 @0x7
0x2070…20ac at0008 = ╱72╱r╱ // 0x2078 @0x8
0x2070…20ac at0009 = ╱69╱i╱ // 0x2079 @0x9
0x2070…20ac at000a = ╱76╱v╱ // 0x207a @0xa
0x2070…20ac at000b = ╱20╱…╱ // 0x207b @0xb
0x2070…20ac at000c = ╱73╱s╱ // 0x207c @0xc
0x2070…20ac at000d = ╱74╱t╱ // 0x207d @0xd
0x2070…20ac at000e = ╱7c╱|╱ // 0x207e @0xe
0x2070…20ac at000f = ╱72╱r╱ // 0x207f @0xf
0x2070…20ac at0010 = ╱72╱r╱ // 0x2080 @0x10
0x2070…20ac at0011 = ╱65╱e╱ // 0x2081 @0x11
0x2070…20ac at0012 = ╱6c╱l╱ // 0x2082 @0x12
0x2070…20ac at0013 = ╱73╱s╱ // 0x2083 @0x13
0x2070…20ac at0014 = ╱65╱e╱ // 0x2084 @0x14
0x2070…20ac at0015 = ╱6e╱n╱ // 0x2085 @0x15
0x2070…20ac at0016 = ╱20╱…╱ // 0x2086 @0x16
0x2070…20ac at0017 = ╱70╱p╱ // 0x2087 @0x17
0x2070…20ac at0018 = ╱7d╱}╱ // 0x2088 @0x18
0x2070…20ac at0019 = ╱20╱…╱ // 0x2089 @0x19
0x2070…20ac at001a = ╱6d╱m╱ // 0x208a @0x1a
0x2070…20ac at001b = ╱6f╱o╱ // 0x208b @0x1b
0x2070…20ac at001c = ╱64╱d╱ // 0x208c @0x1c
0x2070…20ac at001d = ╱74╱t╱ // 0x208d @0x1d
0x2070…20ac at001e = ╱61╱a╱ // 0x208e @0x1e
0x2070…20ac at001f = ╱67╱g╱ // 0x208f @0x1f
0x2070…20ac at0020 = ╱65╱e╱ // 0x2090 @0x20
0x2070…20ac at0021 = ╱74╱t╱ // 0x2091 @0x21
0x2070…20ac at0022 = ╱20╱…╱ // 0x2092 @0x22
0x2070…20ac at0023 = ╱41╱A╱ // 0x2093 @0x23
0x2070…20ac at0024 = ╱54╱T╱ // 0x2094 @0x24
0x2070…20ac at0025 = ╱50╱P╱ // 0x2095 @0x25
0x2070…20ac at0026 = ╱2d╱-╱ // 0x2096 @0x26
0x2070…20ac at0027 = ╱62╱b╱ // 0x2097 @0x27
0x2070…20ac at0028 = ╱65╱e╱ // 0x2098 @0x28
0x2070…20ac at0029 = ╱6c╱l╱ // 0x2099 @0x29
0x2070…20ac at002a = ╱7c╱|╱ // 0x209a @0x2a
0x2070…20ac at002b = ╱62╱b╱ // 0x209b @0x2b
0x2070…20ac at002c = ╱20╱…╱ // 0x209c @0x2c
0x2070…20ac at002d = ╱74╱t╱ // 0x209d @0x2d
0x2070…20ac at002e = ╱69╱i╱ // 0x209e @0x2e
0x2070…20ac at002f = ╱6c╱l╱ // 0x209f @0x2f
0x2070…20ac at0030 = ╱20╱…╱ // 0x20a0 @0x30
0x2070…20ac at0031 = ╱62╱b╱ // 0x20a1 @0x31
0x2070…20ac at0032 = ╱72╱r╱ // 0x20a2 @0x32
0x2070…20ac at0033 = ╱75╱u╱ // 0x20a3 @0x33
0x2070…20ac at0034 = ╱67╱g╱ // 0x20a4 @0x34
0x2070…20ac at0035 = ╱20╱…╱ // 0x20a5 @0x35
0x2070…20ac at0036 = ╱66╱f╱ // 0x20a6 @0x36
0x2070…20ac at0037 = ╱6f╱o╱ // 0x20a7 @0x37
0x2070…20ac at0038 = ╱72╱r╱ // 0x20a8 @0x38
0x2070…20ac at0039 = ╱20╱…╱ // 0x20a9 @0x39
0x2070…20ac at003a = ╱22╱"╱ // 0x20aa @0x3a
0x2070…20ac at003b = EOL // 0x20ab @0x3b
0x2070…20ac }
0x20ac…20cf b6bd 01915 INPUT "rentenedslag…(evt,…0):…" : ATP
0x20ac…20cf LineComal80 {
0x20ac…20cf ptr = 0xb6bd // 0x20ac @0x0
0x20ac…20cf lno = 0x077b // 0x20ae @0x2
0x20ac…20cf at0004 = ╱91╱ INPUT ╱ // 0x20b0 @0x4
0x20ac…20cf at0005 = ╱22╱"╱ // 0x20b1 @0x5
0x20ac…20cf at0006 = ╱72╱r╱ // 0x20b2 @0x6
0x20ac…20cf at0007 = ╱65╱e╱ // 0x20b3 @0x7
0x20ac…20cf at0008 = ╱6e╱n╱ // 0x20b4 @0x8
0x20ac…20cf at0009 = ╱74╱t╱ // 0x20b5 @0x9
0x20ac…20cf at000a = ╱65╱e╱ // 0x20b6 @0xa
0x20ac…20cf at000b = ╱6e╱n╱ // 0x20b7 @0xb
0x20ac…20cf at000c = ╱65╱e╱ // 0x20b8 @0xc
0x20ac…20cf at000d = ╱64╱d╱ // 0x20b9 @0xd
0x20ac…20cf at000e = ╱73╱s╱ // 0x20ba @0xe
0x20ac…20cf at000f = ╱6c╱l╱ // 0x20bb @0xf
0x20ac…20cf at0010 = ╱61╱a╱ // 0x20bc @0x10
0x20ac…20cf at0011 = ╱67╱g╱ // 0x20bd @0x11
0x20ac…20cf at0012 = ╱20╱…╱ // 0x20be @0x12
0x20ac…20cf at0013 = ╱28╱(╱ // 0x20bf @0x13
0x20ac…20cf at0014 = ╱65╱e╱ // 0x20c0 @0x14
0x20ac…20cf at0015 = ╱76╱v╱ // 0x20c1 @0x15
0x20ac…20cf at0016 = ╱74╱t╱ // 0x20c2 @0x16
0x20ac…20cf at0017 = ╱2c╱,╱ // 0x20c3 @0x17
0x20ac…20cf at0018 = ╱20╱…╱ // 0x20c4 @0x18
0x20ac…20cf at0019 = ╱30╱0╱ // 0x20c5 @0x19
0x20ac…20cf at001a = ╱29╱)╱ // 0x20c6 @0x1a
0x20ac…20cf at001b = ╱3a╱:╱ // 0x20c7 @0x1b
0x20ac…20cf at001c = ╱20╱…╱ // 0x20c8 @0x1c
0x20ac…20cf at001d = ╱22╱"╱ // 0x20c9 @0x1d
0x20ac…20cf at001e = ╱f1╱ : ╱ // 0x20ca @0x1e
0x20ac…20cf at001f = ╱41╱A╱ // 0x20cb @0x1f
0x20ac…20cf at0020 = ╱54╱T╱ // 0x20cc @0x20
0x20ac…20cf at0021 = ╱50╱P╱ // 0x20cd @0x21
0x20ac…20cf at0022 = EOL // 0x20ce @0x22
0x20ac…20cf }
0x20cf…20d8 b6c6 01920 PRINT LI $
0x20cf…20d8 LineComal80 {
0x20cf…20d8 ptr = 0xb6c6 // 0x20cf @0x0
0x20cf…20d8 lno = 0x0780 // 0x20d1 @0x2
0x20cf…20d8 at0004 = ╱92╱ PRINT ╱ // 0x20d3 @0x4
0x20cf…20d8 at0005 = ╱4c╱L╱ // 0x20d4 @0x5
0x20cf…20d8 at0006 = ╱49╱I╱ // 0x20d5 @0x6
0x20cf…20d8 at0007 = ╱ef╱ $ ╱ // 0x20d6 @0x7
0x20cf…20d8 at0008 = EOL // 0x20d7 @0x8
0x20cf…20d8 }
0x20d8…20de b6cc 01925 ENDIF
0x20d8…20de LineComal80 {
0x20d8…20de ptr = 0xb6cc // 0x20d8 @0x0
0x20d8…20de lno = 0x0785 // 0x20da @0x2
0x20d8…20de at0004 = ╱9c╱ ENDIF ╱ // 0x20dc @0x4
0x20d8…20de at0005 = EOL // 0x20dd @0x5
0x20d8…20de }
0x20de…20fb b6e9 01930 LET C3 := C3 + ATP ; C3 := C3 * 30 / W
0x20de…20fb LineComal80 {
0x20de…20fb ptr = 0xb6e9 // 0x20de @0x0
0x20de…20fb lno = 0x078a // 0x20e0 @0x2
0x20de…20fb at0004 = ╱86╱ LET ╱ // 0x20e2 @0x4
0x20de…20fb at0005 = ╱43╱C╱ // 0x20e3 @0x5
0x20de…20fb at0006 = ╱33╱3╱ // 0x20e4 @0x6
0x20de…20fb at0007 = ╱f0╱ := ╱ // 0x20e5 @0x7
0x20de…20fb at0008 = ╱43╱C╱ // 0x20e6 @0x8
0x20de…20fb at0009 = ╱33╱3╱ // 0x20e7 @0x9
0x20de…20fb at000a = ╱e5╱ + ╱ // 0x20e8 @0xa
0x20de…20fb at000b = ╱41╱A╱ // 0x20e9 @0xb
0x20de…20fb at000c = ╱54╱T╱ // 0x20ea @0xc
0x20de…20fb at000d = ╱50╱P╱ // 0x20eb @0xd
0x20de…20fb at000e = ╱ea╱ ; ╱ // 0x20ec @0xe
0x20de…20fb at000f = ╱43╱C╱ // 0x20ed @0xf
0x20de…20fb at0010 = ╱33╱3╱ // 0x20ee @0x10
0x20de…20fb at0011 = ╱f0╱ := ╱ // 0x20ef @0x11
0x20de…20fb at0012 = ╱43╱C╱ // 0x20f0 @0x12
0x20de…20fb at0013 = ╱33╱3╱ // 0x20f1 @0x13
0x20de…20fb at0014 = ╱e7╱ * ╱ // 0x20f2 @0x14
0x20de…20fb at0015 = ╱33╱3╱ // 0x20f3 @0x15
0x20de…20fb at0016 = ╱30╱0╱ // 0x20f4 @0x16
0x20de…20fb at0017 = ╱f21e00╱ // 0x20f5 @0x17
0x20de…20fb at001a = ╱e8╱ / ╱ // 0x20f8 @0x1a
0x20de…20fb at001b = ╱57╱W╱ // 0x20f9 @0x1b
0x20de…20fb at001c = EOL // 0x20fa @0x1c
0x20de…20fb }
0x20fb…2118 b706 01935 IF C3 > 3500 THEN LET C3 := 3500
0x20fb…2118 LineComal80 {
0x20fb…2118 ptr = 0xb706 // 0x20fb @0x0
0x20fb…2118 lno = 0x078f // 0x20fd @0x2
0x20fb…2118 at0004 = ╱8200╱ IF ╱ // 0x20ff @0x4
0x20fb…2118 at0006 = ╱43╱C╱ // 0x2101 @0x6
0x20fb…2118 at0007 = ╱33╱3╱ // 0x2102 @0x7
0x20fb…2118 at0008 = ╱e1╱ > ╱ // 0x2103 @0x8
0x20fb…2118 at0009 = ╱33╱3╱ // 0x2104 @0x9
0x20fb…2118 at000a = ╱35╱5╱ // 0x2105 @0xa
0x20fb…2118 at000b = ╱30╱0╱ // 0x2106 @0xb
0x20fb…2118 at000c = ╱30╱0╱ // 0x2107 @0xc
0x20fb…2118 at000d = ╱f2ac0d╱ // 0x2108 @0xd
0x20fb…2118 at0010 = ╱b5╱ THEN ╱ // 0x210b @0x10
0x20fb…2118 at0011 = ╱86╱ LET ╱ // 0x210c @0x11
0x20fb…2118 at0012 = ╱43╱C╱ // 0x210d @0x12
0x20fb…2118 at0013 = ╱33╱3╱ // 0x210e @0x13
0x20fb…2118 at0014 = ╱f0╱ := ╱ // 0x210f @0x14
0x20fb…2118 at0015 = ╱33╱3╱ // 0x2110 @0x15
0x20fb…2118 at0016 = ╱35╱5╱ // 0x2111 @0x16
0x20fb…2118 at0017 = ╱30╱0╱ // 0x2112 @0x17
0x20fb…2118 at0018 = ╱30╱0╱ // 0x2113 @0x18
0x20fb…2118 at0019 = ╱f2ac0d╱ // 0x2114 @0x19
0x20fb…2118 at001c = EOL // 0x2117 @0x1c
0x20fb…2118 }
0x2118…2147 b735 01940 IF C7 > F3 + 99 THEN LET C3 := C3 - ( ( INT ( C7 / W ) * W ) - F3 ) / 2
0x2118…2147 LineComal80 {
0x2118…2147 ptr = 0xb735 // 0x2118 @0x0
0x2118…2147 lno = 0x0794 // 0x211a @0x2
0x2118…2147 at0004 = ╱8200╱ IF ╱ // 0x211c @0x4
0x2118…2147 at0006 = ╱43╱C╱ // 0x211e @0x6
0x2118…2147 at0007 = ╱37╱7╱ // 0x211f @0x7
0x2118…2147 at0008 = ╱e1╱ > ╱ // 0x2120 @0x8
0x2118…2147 at0009 = ╱46╱F╱ // 0x2121 @0x9
0x2118…2147 at000a = ╱33╱3╱ // 0x2122 @0xa
0x2118…2147 at000b = ╱e5╱ + ╱ // 0x2123 @0xb
0x2118…2147 at000c = ╱39╱9╱ // 0x2124 @0xc
0x2118…2147 at000d = ╱39╱9╱ // 0x2125 @0xd
0x2118…2147 at000e = ╱f26300╱ // 0x2126 @0xe
0x2118…2147 at0011 = ╱b5╱ THEN ╱ // 0x2129 @0x11
0x2118…2147 at0012 = ╱86╱ LET ╱ // 0x212a @0x12
0x2118…2147 at0013 = ╱43╱C╱ // 0x212b @0x13
0x2118…2147 at0014 = ╱33╱3╱ // 0x212c @0x14
0x2118…2147 at0015 = ╱f0╱ := ╱ // 0x212d @0x15
0x2118…2147 at0016 = ╱43╱C╱ // 0x212e @0x16
0x2118…2147 at0017 = ╱33╱3╱ // 0x212f @0x17
0x2118…2147 at0018 = ╱e6╱ - ╱ // 0x2130 @0x18
0x2118…2147 at0019 = ╱ed╱ ( ╱ // 0x2131 @0x19
0x2118…2147 at001a = ╱ed╱ ( ╱ // 0x2132 @0x1a
0x2118…2147 at001b = ╱c6╱ INT ╱ // 0x2133 @0x1b
0x2118…2147 at001c = ╱ed╱ ( ╱ // 0x2134 @0x1c
0x2118…2147 at001d = ╱43╱C╱ // 0x2135 @0x1d
0x2118…2147 at001e = ╱37╱7╱ // 0x2136 @0x1e
0x2118…2147 at001f = ╱e8╱ / ╱ // 0x2137 @0x1f
0x2118…2147 at0020 = ╱57╱W╱ // 0x2138 @0x20
0x2118…2147 at0021 = ╱ee╱ ) ╱ // 0x2139 @0x21
0x2118…2147 at0022 = ╱e7╱ * ╱ // 0x213a @0x22
0x2118…2147 at0023 = ╱57╱W╱ // 0x213b @0x23
0x2118…2147 at0024 = ╱ee╱ ) ╱ // 0x213c @0x24
0x2118…2147 at0025 = ╱e6╱ - ╱ // 0x213d @0x25
0x2118…2147 at0026 = ╱46╱F╱ // 0x213e @0x26
0x2118…2147 at0027 = ╱33╱3╱ // 0x213f @0x27
0x2118…2147 at0028 = ╱ee╱ ) ╱ // 0x2140 @0x28
0x2118…2147 at0029 = ╱e8╱ / ╱ // 0x2141 @0x29
0x2118…2147 at002a = ╱32╱2╱ // 0x2142 @0x2a
0x2118…2147 at002b = ╱f20200╱ // 0x2143 @0x2b
0x2118…2147 at002e = EOL // 0x2146 @0x2e
0x2118…2147 }
0x2147…2158 b746 01945 IF C3 < O THEN LET C3 := O
0x2147…2158 LineComal80 {
0x2147…2158 ptr = 0xb746 // 0x2147 @0x0
0x2147…2158 lno = 0x0799 // 0x2149 @0x2
0x2147…2158 at0004 = ╱8200╱ IF ╱ // 0x214b @0x4
0x2147…2158 at0006 = ╱43╱C╱ // 0x214d @0x6
0x2147…2158 at0007 = ╱33╱3╱ // 0x214e @0x7
0x2147…2158 at0008 = ╱e0╱ < ╱ // 0x214f @0x8
0x2147…2158 at0009 = ╱4f╱O╱ // 0x2150 @0x9
0x2147…2158 at000a = ╱b5╱ THEN ╱ // 0x2151 @0xa
0x2147…2158 at000b = ╱86╱ LET ╱ // 0x2152 @0xb
0x2147…2158 at000c = ╱43╱C╱ // 0x2153 @0xc
0x2147…2158 at000d = ╱33╱3╱ // 0x2154 @0xd
0x2147…2158 at000e = ╱f0╱ := ╱ // 0x2155 @0xe
0x2147…2158 at000f = ╱4f╱O╱ // 0x2156 @0xf
0x2147…2158 at0010 = EOL // 0x2157 @0x10
0x2147…2158 }
0x2158…2177 b765 01950 LET C3 := INT ( C3 + .9 ) ; C5 := O
0x2158…2177 LineComal80 {
0x2158…2177 ptr = 0xb765 // 0x2158 @0x0
0x2158…2177 lno = 0x079e // 0x215a @0x2
0x2158…2177 at0004 = ╱86╱ LET ╱ // 0x215c @0x4
0x2158…2177 at0005 = ╱43╱C╱ // 0x215d @0x5
0x2158…2177 at0006 = ╱33╱3╱ // 0x215e @0x6
0x2158…2177 at0007 = ╱f0╱ := ╱ // 0x215f @0x7
0x2158…2177 at0008 = ╱c6╱ INT ╱ // 0x2160 @0x8
0x2158…2177 at0009 = ╱ed╱ ( ╱ // 0x2161 @0x9
0x2158…2177 at000a = ╱43╱C╱ // 0x2162 @0xa
0x2158…2177 at000b = ╱33╱3╱ // 0x2163 @0xb
0x2158…2177 at000c = ╱e5╱ + ╱ // 0x2164 @0xc
0x2158…2177 at000d = ╱2e╱.╱ // 0x2165 @0xd
0x2158…2177 at000e = ╱39╱9╱ // 0x2166 @0xe
0x2158…2177 at000f = ╱f88000000000000009╱ // 0x2167 @0xf
0x2158…2177 at0018 = ╱ee╱ ) ╱ // 0x2170 @0x18
0x2158…2177 at0019 = ╱ea╱ ; ╱ // 0x2171 @0x19
0x2158…2177 at001a = ╱43╱C╱ // 0x2172 @0x1a
0x2158…2177 at001b = ╱35╱5╱ // 0x2173 @0x1b
0x2158…2177 at001c = ╱f0╱ := ╱ // 0x2174 @0x1c
0x2158…2177 at001d = ╱4f╱O╱ // 0x2175 @0x1d
0x2158…2177 at001e = EOL // 0x2176 @0x1e
0x2158…2177 }
0x2177…21a7 b795 01955 IF C3 > A ( 8 ) - A ( 9 ) THEN LET C5 := C3 - A ( 8 ) + A ( 9 )
0x2177…21a7 LineComal80 {
0x2177…21a7 ptr = 0xb795 // 0x2177 @0x0
0x2177…21a7 lno = 0x07a3 // 0x2179 @0x2
0x2177…21a7 at0004 = ╱8200╱ IF ╱ // 0x217b @0x4
0x2177…21a7 at0006 = ╱43╱C╱ // 0x217d @0x6
0x2177…21a7 at0007 = ╱33╱3╱ // 0x217e @0x7
0x2177…21a7 at0008 = ╱e1╱ > ╱ // 0x217f @0x8
0x2177…21a7 at0009 = ╱41╱A╱ // 0x2180 @0x9
0x2177…21a7 at000a = ╱ed╱ ( ╱ // 0x2181 @0xa
0x2177…21a7 at000b = ╱38╱8╱ // 0x2182 @0xb
0x2177…21a7 at000c = ╱f20800╱ // 0x2183 @0xc
0x2177…21a7 at000f = ╱ee╱ ) ╱ // 0x2186 @0xf
0x2177…21a7 at0010 = ╱e6╱ - ╱ // 0x2187 @0x10
0x2177…21a7 at0011 = ╱41╱A╱ // 0x2188 @0x11
0x2177…21a7 at0012 = ╱ed╱ ( ╱ // 0x2189 @0x12
0x2177…21a7 at0013 = ╱39╱9╱ // 0x218a @0x13
0x2177…21a7 at0014 = ╱f20900╱ // 0x218b @0x14
0x2177…21a7 at0017 = ╱ee╱ ) ╱ // 0x218e @0x17
0x2177…21a7 at0018 = ╱b5╱ THEN ╱ // 0x218f @0x18
0x2177…21a7 at0019 = ╱86╱ LET ╱ // 0x2190 @0x19
0x2177…21a7 at001a = ╱43╱C╱ // 0x2191 @0x1a
0x2177…21a7 at001b = ╱35╱5╱ // 0x2192 @0x1b
0x2177…21a7 at001c = ╱f0╱ := ╱ // 0x2193 @0x1c
0x2177…21a7 at001d = ╱43╱C╱ // 0x2194 @0x1d
0x2177…21a7 at001e = ╱33╱3╱ // 0x2195 @0x1e
0x2177…21a7 at001f = ╱e6╱ - ╱ // 0x2196 @0x1f
0x2177…21a7 at0020 = ╱41╱A╱ // 0x2197 @0x20
0x2177…21a7 at0021 = ╱ed╱ ( ╱ // 0x2198 @0x21
0x2177…21a7 at0022 = ╱38╱8╱ // 0x2199 @0x22
0x2177…21a7 at0023 = ╱f20800╱ // 0x219a @0x23
0x2177…21a7 at0026 = ╱ee╱ ) ╱ // 0x219d @0x26
0x2177…21a7 at0027 = ╱e5╱ + ╱ // 0x219e @0x27
0x2177…21a7 at0028 = ╱41╱A╱ // 0x219f @0x28
0x2177…21a7 at0029 = ╱ed╱ ( ╱ // 0x21a0 @0x29
0x2177…21a7 at002a = ╱39╱9╱ // 0x21a1 @0x2a
0x2177…21a7 at002b = ╱f20900╱ // 0x21a2 @0x2b
0x2177…21a7 at002e = ╱ee╱ ) ╱ // 0x21a5 @0x2e
0x2177…21a7 at002f = EOL // 0x21a6 @0x2f
0x2177…21a7 }
0x21a7…21d0 b7be 01960 LET C3 := C3 - C5 ; C2 := C2 - C3 ; C1 := C1 - C5 ; C7 := C1 + C2
0x21a7…21d0 LineComal80 {
0x21a7…21d0 ptr = 0xb7be // 0x21a7 @0x0
0x21a7…21d0 lno = 0x07a8 // 0x21a9 @0x2
0x21a7…21d0 at0004 = ╱86╱ LET ╱ // 0x21ab @0x4
0x21a7…21d0 at0005 = ╱43╱C╱ // 0x21ac @0x5
0x21a7…21d0 at0006 = ╱33╱3╱ // 0x21ad @0x6
0x21a7…21d0 at0007 = ╱f0╱ := ╱ // 0x21ae @0x7
0x21a7…21d0 at0008 = ╱43╱C╱ // 0x21af @0x8
0x21a7…21d0 at0009 = ╱33╱3╱ // 0x21b0 @0x9
0x21a7…21d0 at000a = ╱e6╱ - ╱ // 0x21b1 @0xa
0x21a7…21d0 at000b = ╱43╱C╱ // 0x21b2 @0xb
0x21a7…21d0 at000c = ╱35╱5╱ // 0x21b3 @0xc
0x21a7…21d0 at000d = ╱ea╱ ; ╱ // 0x21b4 @0xd
0x21a7…21d0 at000e = ╱43╱C╱ // 0x21b5 @0xe
0x21a7…21d0 at000f = ╱32╱2╱ // 0x21b6 @0xf
0x21a7…21d0 at0010 = ╱f0╱ := ╱ // 0x21b7 @0x10
0x21a7…21d0 at0011 = ╱43╱C╱ // 0x21b8 @0x11
0x21a7…21d0 at0012 = ╱32╱2╱ // 0x21b9 @0x12
0x21a7…21d0 at0013 = ╱e6╱ - ╱ // 0x21ba @0x13
0x21a7…21d0 at0014 = ╱43╱C╱ // 0x21bb @0x14
0x21a7…21d0 at0015 = ╱33╱3╱ // 0x21bc @0x15
0x21a7…21d0 at0016 = ╱ea╱ ; ╱ // 0x21bd @0x16
0x21a7…21d0 at0017 = ╱43╱C╱ // 0x21be @0x17
0x21a7…21d0 at0018 = ╱31╱1╱ // 0x21bf @0x18
0x21a7…21d0 at0019 = ╱f0╱ := ╱ // 0x21c0 @0x19
0x21a7…21d0 at001a = ╱43╱C╱ // 0x21c1 @0x1a
0x21a7…21d0 at001b = ╱31╱1╱ // 0x21c2 @0x1b
0x21a7…21d0 at001c = ╱e6╱ - ╱ // 0x21c3 @0x1c
0x21a7…21d0 at001d = ╱43╱C╱ // 0x21c4 @0x1d
0x21a7…21d0 at001e = ╱35╱5╱ // 0x21c5 @0x1e
0x21a7…21d0 at001f = ╱ea╱ ; ╱ // 0x21c6 @0x1f
0x21a7…21d0 at0020 = ╱43╱C╱ // 0x21c7 @0x20
0x21a7…21d0 at0021 = ╱37╱7╱ // 0x21c8 @0x21
0x21a7…21d0 at0022 = ╱f0╱ := ╱ // 0x21c9 @0x22
0x21a7…21d0 at0023 = ╱43╱C╱ // 0x21ca @0x23
0x21a7…21d0 at0024 = ╱31╱1╱ // 0x21cb @0x24
0x21a7…21d0 at0025 = ╱e5╱ + ╱ // 0x21cc @0x25
0x21a7…21d0 at0026 = ╱43╱C╱ // 0x21cd @0x26
0x21a7…21d0 at0027 = ╱32╱2╱ // 0x21ce @0x27
0x21a7…21d0 at0028 = EOL // 0x21cf @0x28
0x21a7…21d0 }
0x21d0…21dc b7ca 01965 ENDPROC INDATP
0x21d0…21dc LineComal80 {
0x21d0…21dc ptr = 0xb7ca // 0x21d0 @0x0
0x21d0…21dc lno = 0x07ad // 0x21d2 @0x2
0x21d0…21dc at0004 = ╱9f╱ ENDPROC ╱ // 0x21d4 @0x4
0x21d0…21dc at0005 = ╱49╱I╱ // 0x21d5 @0x5
0x21d0…21dc at0006 = ╱4e╱N╱ // 0x21d6 @0x6
0x21d0…21dc at0007 = ╱44╱D╱ // 0x21d7 @0x7
0x21d0…21dc at0008 = ╱41╱A╱ // 0x21d8 @0x8
0x21d0…21dc at0009 = ╱54╱T╱ // 0x21d9 @0x9
0x21d0…21dc at000a = ╱50╱P╱ // 0x21da @0xa
0x21d0…21dc at000b = EOL // 0x21db @0xb
0x21d0…21dc }
0x21dc…21ea b7d8 01970 PROC FEJLMED
0x21dc…21ea LineComal80 {
0x21dc…21ea ptr = 0xb7d8 // 0x21dc @0x0
0x21dc…21ea lno = 0x07b2 // 0x21de @0x2
0x21dc…21ea at0004 = ╱9e00╱ PROC ╱ // 0x21e0 @0x4
0x21dc…21ea at0006 = ╱46╱F╱ // 0x21e2 @0x6
0x21dc…21ea at0007 = ╱45╱E╱ // 0x21e3 @0x7
0x21dc…21ea at0008 = ╱4a╱J╱ // 0x21e4 @0x8
0x21dc…21ea at0009 = ╱4c╱L╱ // 0x21e5 @0x9
0x21dc…21ea at000a = ╱4d╱M╱ // 0x21e6 @0xa
0x21dc…21ea at000b = ╱45╱E╱ // 0x21e7 @0xb
0x21dc…21ea at000c = ╱44╱D╱ // 0x21e8 @0xc
0x21dc…21ea at000d = EOL // 0x21e9 @0xd
0x21dc…21ea }
0x21ea…21f4 b7e2 01975 LET FE := O
0x21ea…21f4 LineComal80 {
0x21ea…21f4 ptr = 0xb7e2 // 0x21ea @0x0
0x21ea…21f4 lno = 0x07b7 // 0x21ec @0x2
0x21ea…21f4 at0004 = ╱86╱ LET ╱ // 0x21ee @0x4
0x21ea…21f4 at0005 = ╱46╱F╱ // 0x21ef @0x5
0x21ea…21f4 at0006 = ╱45╱E╱ // 0x21f0 @0x6
0x21ea…21f4 at0007 = ╱f0╱ := ╱ // 0x21f1 @0x7
0x21ea…21f4 at0008 = ╱4f╱O╱ // 0x21f2 @0x8
0x21ea…21f4 at0009 = EOL // 0x21f3 @0x9
0x21ea…21f4 }
0x21f4…220c b7fa 01980 PRINT "FEJLMEDDELELSER:"
0x21f4…220c LineComal80 {
0x21f4…220c ptr = 0xb7fa // 0x21f4 @0x0
0x21f4…220c lno = 0x07bc // 0x21f6 @0x2
0x21f4…220c at0004 = ╱92╱ PRINT ╱ // 0x21f8 @0x4
0x21f4…220c at0005 = ╱22╱"╱ // 0x21f9 @0x5
0x21f4…220c at0006 = ╱46╱F╱ // 0x21fa @0x6
0x21f4…220c at0007 = ╱45╱E╱ // 0x21fb @0x7
0x21f4…220c at0008 = ╱4a╱J╱ // 0x21fc @0x8
0x21f4…220c at0009 = ╱4c╱L╱ // 0x21fd @0x9
0x21f4…220c at000a = ╱4d╱M╱ // 0x21fe @0xa
0x21f4…220c at000b = ╱45╱E╱ // 0x21ff @0xb
0x21f4…220c at000c = ╱44╱D╱ // 0x2200 @0xc
0x21f4…220c at000d = ╱44╱D╱ // 0x2201 @0xd
0x21f4…220c at000e = ╱45╱E╱ // 0x2202 @0xe
0x21f4…220c at000f = ╱4c╱L╱ // 0x2203 @0xf
0x21f4…220c at0010 = ╱45╱E╱ // 0x2204 @0x10
0x21f4…220c at0011 = ╱4c╱L╱ // 0x2205 @0x11
0x21f4…220c at0012 = ╱53╱S╱ // 0x2206 @0x12
0x21f4…220c at0013 = ╱45╱E╱ // 0x2207 @0x13
0x21f4…220c at0014 = ╱52╱R╱ // 0x2208 @0x14
0x21f4…220c at0015 = ╱3a╱:╱ // 0x2209 @0x15
0x21f4…220c at0016 = ╱22╱"╱ // 0x220a @0x16
0x21f4…220c at0017 = EOL // 0x220b @0x17
0x21f4…220c }
0x220c…222f b81d 01985 IF A ( 9 ) > A ( 8 ) THEN EXEC FEJL1 ( 1 )
0x220c…222f LineComal80 {
0x220c…222f ptr = 0xb81d // 0x220c @0x0
0x220c…222f lno = 0x07c1 // 0x220e @0x2
0x220c…222f at0004 = ╱8200╱ IF ╱ // 0x2210 @0x4
0x220c…222f at0006 = ╱41╱A╱ // 0x2212 @0x6
0x220c…222f at0007 = ╱ed╱ ( ╱ // 0x2213 @0x7
0x220c…222f at0008 = ╱39╱9╱ // 0x2214 @0x8
0x220c…222f at0009 = ╱f20900╱ // 0x2215 @0x9
0x220c…222f at000c = ╱ee╱ ) ╱ // 0x2218 @0xc
0x220c…222f at000d = ╱e1╱ > ╱ // 0x2219 @0xd
0x220c…222f at000e = ╱41╱A╱ // 0x221a @0xe
0x220c…222f at000f = ╱ed╱ ( ╱ // 0x221b @0xf
0x220c…222f at0010 = ╱38╱8╱ // 0x221c @0x10
0x220c…222f at0011 = ╱f20800╱ // 0x221d @0x11
0x220c…222f at0014 = ╱ee╱ ) ╱ // 0x2220 @0x14
0x220c…222f at0015 = ╱b5╱ THEN ╱ // 0x2221 @0x15
0x220c…222f at0016 = ╱9d╱ EXEC ╱ // 0x2222 @0x16
0x220c…222f at0017 = ╱46╱F╱ // 0x2223 @0x17
0x220c…222f at0018 = ╱45╱E╱ // 0x2224 @0x18
0x220c…222f at0019 = ╱4a╱J╱ // 0x2225 @0x19
0x220c…222f at001a = ╱4c╱L╱ // 0x2226 @0x1a
0x220c…222f at001b = ╱31╱1╱ // 0x2227 @0x1b
0x220c…222f at001c = ╱ed╱ ( ╱ // 0x2228 @0x1c
0x220c…222f at001d = ╱31╱1╱ // 0x2229 @0x1d
0x220c…222f at001e = ╱f20100╱ // 0x222a @0x1e
0x220c…222f at0021 = ╱ee╱ ) ╱ // 0x222d @0x21
0x220c…222f at0022 = EOL // 0x222e @0x22
0x220c…222f }
0x222f…2252 b840 01990 IF A ( 5 ) > A ( 4 ) THEN EXEC FEJL1 ( 2 )
0x222f…2252 LineComal80 {
0x222f…2252 ptr = 0xb840 // 0x222f @0x0
0x222f…2252 lno = 0x07c6 // 0x2231 @0x2
0x222f…2252 at0004 = ╱8200╱ IF ╱ // 0x2233 @0x4
0x222f…2252 at0006 = ╱41╱A╱ // 0x2235 @0x6
0x222f…2252 at0007 = ╱ed╱ ( ╱ // 0x2236 @0x7
0x222f…2252 at0008 = ╱35╱5╱ // 0x2237 @0x8
0x222f…2252 at0009 = ╱f20500╱ // 0x2238 @0x9
0x222f…2252 at000c = ╱ee╱ ) ╱ // 0x223b @0xc
0x222f…2252 at000d = ╱e1╱ > ╱ // 0x223c @0xd
0x222f…2252 at000e = ╱41╱A╱ // 0x223d @0xe
0x222f…2252 at000f = ╱ed╱ ( ╱ // 0x223e @0xf
0x222f…2252 at0010 = ╱34╱4╱ // 0x223f @0x10
0x222f…2252 at0011 = ╱f20400╱ // 0x2240 @0x11
0x222f…2252 at0014 = ╱ee╱ ) ╱ // 0x2243 @0x14
0x222f…2252 at0015 = ╱b5╱ THEN ╱ // 0x2244 @0x15
0x222f…2252 at0016 = ╱9d╱ EXEC ╱ // 0x2245 @0x16
0x222f…2252 at0017 = ╱46╱F╱ // 0x2246 @0x17
0x222f…2252 at0018 = ╱45╱E╱ // 0x2247 @0x18
0x222f…2252 at0019 = ╱4a╱J╱ // 0x2248 @0x19
0x222f…2252 at001a = ╱4c╱L╱ // 0x2249 @0x1a
0x222f…2252 at001b = ╱31╱1╱ // 0x224a @0x1b
0x222f…2252 at001c = ╱ed╱ ( ╱ // 0x224b @0x1c
0x222f…2252 at001d = ╱32╱2╱ // 0x224c @0x1d
0x222f…2252 at001e = ╱f20200╱ // 0x224d @0x1e
0x222f…2252 at0021 = ╱ee╱ ) ╱ // 0x2250 @0x21
0x222f…2252 at0022 = EOL // 0x2251 @0x22
0x222f…2252 }
0x2252…2275 b863 01995 IF A ( 7 ) > A ( 6 ) THEN EXEC FEJL1 ( 3 )
0x2252…2275 LineComal80 {
0x2252…2275 ptr = 0xb863 // 0x2252 @0x0
0x2252…2275 lno = 0x07cb // 0x2254 @0x2
0x2252…2275 at0004 = ╱8200╱ IF ╱ // 0x2256 @0x4
0x2252…2275 at0006 = ╱41╱A╱ // 0x2258 @0x6
0x2252…2275 at0007 = ╱ed╱ ( ╱ // 0x2259 @0x7
0x2252…2275 at0008 = ╱37╱7╱ // 0x225a @0x8
0x2252…2275 at0009 = ╱f20700╱ // 0x225b @0x9
0x2252…2275 at000c = ╱ee╱ ) ╱ // 0x225e @0xc
0x2252…2275 at000d = ╱e1╱ > ╱ // 0x225f @0xd
0x2252…2275 at000e = ╱41╱A╱ // 0x2260 @0xe
0x2252…2275 at000f = ╱ed╱ ( ╱ // 0x2261 @0xf
0x2252…2275 at0010 = ╱36╱6╱ // 0x2262 @0x10
0x2252…2275 at0011 = ╱f20600╱ // 0x2263 @0x11
0x2252…2275 at0014 = ╱ee╱ ) ╱ // 0x2266 @0x14
0x2252…2275 at0015 = ╱b5╱ THEN ╱ // 0x2267 @0x15
0x2252…2275 at0016 = ╱9d╱ EXEC ╱ // 0x2268 @0x16
0x2252…2275 at0017 = ╱46╱F╱ // 0x2269 @0x17
0x2252…2275 at0018 = ╱45╱E╱ // 0x226a @0x18
0x2252…2275 at0019 = ╱4a╱J╱ // 0x226b @0x19
0x2252…2275 at001a = ╱4c╱L╱ // 0x226c @0x1a
0x2252…2275 at001b = ╱31╱1╱ // 0x226d @0x1b
0x2252…2275 at001c = ╱ed╱ ( ╱ // 0x226e @0x1c
0x2252…2275 at001d = ╱33╱3╱ // 0x226f @0x1d
0x2252…2275 at001e = ╱f20300╱ // 0x2270 @0x1e
0x2252…2275 at0021 = ╱ee╱ ) ╱ // 0x2273 @0x21
0x2252…2275 at0022 = EOL // 0x2274 @0x22
0x2252…2275 }
0x2275…229a b888 02000 IF A ( 15 ) > A ( 14 ) THEN EXEC FEJL1 ( 4 )
0x2275…229a LineComal80 {
0x2275…229a ptr = 0xb888 // 0x2275 @0x0
0x2275…229a lno = 0x07d0 // 0x2277 @0x2
0x2275…229a at0004 = ╱8200╱ IF ╱ // 0x2279 @0x4
0x2275…229a at0006 = ╱41╱A╱ // 0x227b @0x6
0x2275…229a at0007 = ╱ed╱ ( ╱ // 0x227c @0x7
0x2275…229a at0008 = ╱31╱1╱ // 0x227d @0x8
0x2275…229a at0009 = ╱35╱5╱ // 0x227e @0x9
0x2275…229a at000a = ╱f20f00╱ // 0x227f @0xa
0x2275…229a at000d = ╱ee╱ ) ╱ // 0x2282 @0xd
0x2275…229a at000e = ╱e1╱ > ╱ // 0x2283 @0xe
0x2275…229a at000f = ╱41╱A╱ // 0x2284 @0xf
0x2275…229a at0010 = ╱ed╱ ( ╱ // 0x2285 @0x10
0x2275…229a at0011 = ╱31╱1╱ // 0x2286 @0x11
0x2275…229a at0012 = ╱34╱4╱ // 0x2287 @0x12
0x2275…229a at0013 = ╱f20e00╱ // 0x2288 @0x13
0x2275…229a at0016 = ╱ee╱ ) ╱ // 0x228b @0x16
0x2275…229a at0017 = ╱b5╱ THEN ╱ // 0x228c @0x17
0x2275…229a at0018 = ╱9d╱ EXEC ╱ // 0x228d @0x18
0x2275…229a at0019 = ╱46╱F╱ // 0x228e @0x19
0x2275…229a at001a = ╱45╱E╱ // 0x228f @0x1a
0x2275…229a at001b = ╱4a╱J╱ // 0x2290 @0x1b
0x2275…229a at001c = ╱4c╱L╱ // 0x2291 @0x1c
0x2275…229a at001d = ╱31╱1╱ // 0x2292 @0x1d
0x2275…229a at001e = ╱ed╱ ( ╱ // 0x2293 @0x1e
0x2275…229a at001f = ╱34╱4╱ // 0x2294 @0x1f
0x2275…229a at0020 = ╱f20400╱ // 0x2295 @0x20
0x2275…229a at0023 = ╱ee╱ ) ╱ // 0x2298 @0x23
0x2275…229a at0024 = EOL // 0x2299 @0x24
0x2275…229a }
0x229a…22bf b8ad 02005 IF A ( 17 ) > A ( 16 ) THEN EXEC FEJL1 ( 5 )
0x229a…22bf LineComal80 {
0x229a…22bf ptr = 0xb8ad // 0x229a @0x0
0x229a…22bf lno = 0x07d5 // 0x229c @0x2
0x229a…22bf at0004 = ╱8200╱ IF ╱ // 0x229e @0x4
0x229a…22bf at0006 = ╱41╱A╱ // 0x22a0 @0x6
0x229a…22bf at0007 = ╱ed╱ ( ╱ // 0x22a1 @0x7
0x229a…22bf at0008 = ╱31╱1╱ // 0x22a2 @0x8
0x229a…22bf at0009 = ╱37╱7╱ // 0x22a3 @0x9
0x229a…22bf at000a = ╱f21100╱ // 0x22a4 @0xa
0x229a…22bf at000d = ╱ee╱ ) ╱ // 0x22a7 @0xd
0x229a…22bf at000e = ╱e1╱ > ╱ // 0x22a8 @0xe
0x229a…22bf at000f = ╱41╱A╱ // 0x22a9 @0xf
0x229a…22bf at0010 = ╱ed╱ ( ╱ // 0x22aa @0x10
0x229a…22bf at0011 = ╱31╱1╱ // 0x22ab @0x11
0x229a…22bf at0012 = ╱36╱6╱ // 0x22ac @0x12
0x229a…22bf at0013 = ╱f21000╱ // 0x22ad @0x13
0x229a…22bf at0016 = ╱ee╱ ) ╱ // 0x22b0 @0x16
0x229a…22bf at0017 = ╱b5╱ THEN ╱ // 0x22b1 @0x17
0x229a…22bf at0018 = ╱9d╱ EXEC ╱ // 0x22b2 @0x18
0x229a…22bf at0019 = ╱46╱F╱ // 0x22b3 @0x19
0x229a…22bf at001a = ╱45╱E╱ // 0x22b4 @0x1a
0x229a…22bf at001b = ╱4a╱J╱ // 0x22b5 @0x1b
0x229a…22bf at001c = ╱4c╱L╱ // 0x22b6 @0x1c
0x229a…22bf at001d = ╱31╱1╱ // 0x22b7 @0x1d
0x229a…22bf at001e = ╱ed╱ ( ╱ // 0x22b8 @0x1e
0x229a…22bf at001f = ╱35╱5╱ // 0x22b9 @0x1f
0x229a…22bf at0020 = ╱f20500╱ // 0x22ba @0x20
0x229a…22bf at0023 = ╱ee╱ ) ╱ // 0x22bd @0x23
0x229a…22bf at0024 = EOL // 0x22be @0x24
0x229a…22bf }
0x22bf…22eb b8d9 02010 IF A ( 23 ) > A ( 6 ) * 50 / W THEN EXEC FEJL1 ( 6 )
0x22bf…22eb LineComal80 {
0x22bf…22eb ptr = 0xb8d9 // 0x22bf @0x0
0x22bf…22eb lno = 0x07da // 0x22c1 @0x2
0x22bf…22eb at0004 = ╱8200╱ IF ╱ // 0x22c3 @0x4
0x22bf…22eb at0006 = ╱41╱A╱ // 0x22c5 @0x6
0x22bf…22eb at0007 = ╱ed╱ ( ╱ // 0x22c6 @0x7
0x22bf…22eb at0008 = ╱32╱2╱ // 0x22c7 @0x8
0x22bf…22eb at0009 = ╱33╱3╱ // 0x22c8 @0x9
0x22bf…22eb at000a = ╱f21700╱ // 0x22c9 @0xa
0x22bf…22eb at000d = ╱ee╱ ) ╱ // 0x22cc @0xd
0x22bf…22eb at000e = ╱e1╱ > ╱ // 0x22cd @0xe
0x22bf…22eb at000f = ╱41╱A╱ // 0x22ce @0xf
0x22bf…22eb at0010 = ╱ed╱ ( ╱ // 0x22cf @0x10
0x22bf…22eb at0011 = ╱36╱6╱ // 0x22d0 @0x11
0x22bf…22eb at0012 = ╱f20600╱ // 0x22d1 @0x12
0x22bf…22eb at0015 = ╱ee╱ ) ╱ // 0x22d4 @0x15
0x22bf…22eb at0016 = ╱e7╱ * ╱ // 0x22d5 @0x16
0x22bf…22eb at0017 = ╱35╱5╱ // 0x22d6 @0x17
0x22bf…22eb at0018 = ╱30╱0╱ // 0x22d7 @0x18
0x22bf…22eb at0019 = ╱f23200╱ // 0x22d8 @0x19
0x22bf…22eb at001c = ╱e8╱ / ╱ // 0x22db @0x1c
0x22bf…22eb at001d = ╱57╱W╱ // 0x22dc @0x1d
0x22bf…22eb at001e = ╱b5╱ THEN ╱ // 0x22dd @0x1e
0x22bf…22eb at001f = ╱9d╱ EXEC ╱ // 0x22de @0x1f
0x22bf…22eb at0020 = ╱46╱F╱ // 0x22df @0x20
0x22bf…22eb at0021 = ╱45╱E╱ // 0x22e0 @0x21
0x22bf…22eb at0022 = ╱4a╱J╱ // 0x22e1 @0x22
0x22bf…22eb at0023 = ╱4c╱L╱ // 0x22e2 @0x23
0x22bf…22eb at0024 = ╱31╱1╱ // 0x22e3 @0x24
0x22bf…22eb at0025 = ╱ed╱ ( ╱ // 0x22e4 @0x25
0x22bf…22eb at0026 = ╱36╱6╱ // 0x22e5 @0x26
0x22bf…22eb at0027 = ╱f20600╱ // 0x22e6 @0x27
0x22bf…22eb at002a = ╱ee╱ ) ╱ // 0x22e9 @0x2a
0x22bf…22eb at002b = EOL // 0x22ea @0x2b
0x22bf…22eb }
0x22eb…22fe b8ec 02015 IF ( 23 ) > M1 THEN
0x22eb…22fe LineComal80 {
0x22eb…22fe ptr = 0xb8ec // 0x22eb @0x0
0x22eb…22fe lno = 0x07df // 0x22ed @0x2
0x22eb…22fe at0004 = ╱9b0041╱ IF ╱ // 0x22ef @0x4
0x22eb…22fe at0007 = ╱ed╱ ( ╱ // 0x22f2 @0x7
0x22eb…22fe at0008 = ╱32╱2╱ // 0x22f3 @0x8
0x22eb…22fe at0009 = ╱33╱3╱ // 0x22f4 @0x9
0x22eb…22fe at000a = ╱f21700╱ // 0x22f5 @0xa
0x22eb…22fe at000d = ╱ee╱ ) ╱ // 0x22f8 @0xd
0x22eb…22fe at000e = ╱e1╱ > ╱ // 0x22f9 @0xe
0x22eb…22fe at000f = ╱4d╱M╱ // 0x22fa @0xf
0x22eb…22fe at0010 = ╱31╱1╱ // 0x22fb @0x10
0x22eb…22fe at0011 = ╱b5╱ THEN ╱ // 0x22fc @0x11
0x22eb…22fe at0012 = EOL // 0x22fd @0x12
0x22eb…22fe }
0x22fe…230b b8f9 02020 LET FE := 1
0x22fe…230b LineComal80 {
0x22fe…230b ptr = 0xb8f9 // 0x22fe @0x0
0x22fe…230b lno = 0x07e4 // 0x2300 @0x2
0x22fe…230b at0004 = ╱86╱ LET ╱ // 0x2302 @0x4
0x22fe…230b at0005 = ╱46╱F╱ // 0x2303 @0x5
0x22fe…230b at0006 = ╱45╱E╱ // 0x2304 @0x6
0x22fe…230b at0007 = ╱f0╱ := ╱ // 0x2305 @0x7
0x22fe…230b at0008 = ╱31╱1╱ // 0x2306 @0x8
0x22fe…230b at0009 = ╱f20100╱ // 0x2307 @0x9
0x22fe…230b at000c = EOL // 0x230a @0xc
0x22fe…230b }
0x230b…2352 b940 02025 PRINT "Medarbejdende…{gtef{llefradrag…er…for…stor.…M}…h|jst…udg|re" ; M1 ;
0x230b…2352 LineComal80 {
0x230b…2352 ptr = 0xb940 // 0x230b @0x0
0x230b…2352 lno = 0x07e9 // 0x230d @0x2
0x230b…2352 at0004 = ╱92╱ PRINT ╱ // 0x230f @0x4
0x230b…2352 at0005 = ╱22╱"╱ // 0x2310 @0x5
0x230b…2352 at0006 = ╱4d╱M╱ // 0x2311 @0x6
0x230b…2352 at0007 = ╱65╱e╱ // 0x2312 @0x7
0x230b…2352 at0008 = ╱64╱d╱ // 0x2313 @0x8
0x230b…2352 at0009 = ╱61╱a╱ // 0x2314 @0x9
0x230b…2352 at000a = ╱72╱r╱ // 0x2315 @0xa
0x230b…2352 at000b = ╱62╱b╱ // 0x2316 @0xb
0x230b…2352 at000c = ╱65╱e╱ // 0x2317 @0xc
0x230b…2352 at000d = ╱6a╱j╱ // 0x2318 @0xd
0x230b…2352 at000e = ╱64╱d╱ // 0x2319 @0xe
0x230b…2352 at000f = ╱65╱e╱ // 0x231a @0xf
0x230b…2352 at0010 = ╱6e╱n╱ // 0x231b @0x10
0x230b…2352 at0011 = ╱64╱d╱ // 0x231c @0x11
0x230b…2352 at0012 = ╱65╱e╱ // 0x231d @0x12
0x230b…2352 at0013 = ╱20╱…╱ // 0x231e @0x13
0x230b…2352 at0014 = ╱7b╱{╱ // 0x231f @0x14
0x230b…2352 at0015 = ╱67╱g╱ // 0x2320 @0x15
0x230b…2352 at0016 = ╱74╱t╱ // 0x2321 @0x16
0x230b…2352 at0017 = ╱65╱e╱ // 0x2322 @0x17
0x230b…2352 at0018 = ╱66╱f╱ // 0x2323 @0x18
0x230b…2352 at0019 = ╱7b╱{╱ // 0x2324 @0x19
0x230b…2352 at001a = ╱6c╱l╱ // 0x2325 @0x1a
0x230b…2352 at001b = ╱6c╱l╱ // 0x2326 @0x1b
0x230b…2352 at001c = ╱65╱e╱ // 0x2327 @0x1c
0x230b…2352 at001d = ╱66╱f╱ // 0x2328 @0x1d
0x230b…2352 at001e = ╱72╱r╱ // 0x2329 @0x1e
0x230b…2352 at001f = ╱61╱a╱ // 0x232a @0x1f
0x230b…2352 at0020 = ╱64╱d╱ // 0x232b @0x20
0x230b…2352 at0021 = ╱72╱r╱ // 0x232c @0x21
0x230b…2352 at0022 = ╱61╱a╱ // 0x232d @0x22
0x230b…2352 at0023 = ╱67╱g╱ // 0x232e @0x23
0x230b…2352 at0024 = ╱20╱…╱ // 0x232f @0x24
0x230b…2352 at0025 = ╱65╱e╱ // 0x2330 @0x25
0x230b…2352 at0026 = ╱72╱r╱ // 0x2331 @0x26
0x230b…2352 at0027 = ╱20╱…╱ // 0x2332 @0x27
0x230b…2352 at0028 = ╱66╱f╱ // 0x2333 @0x28
0x230b…2352 at0029 = ╱6f╱o╱ // 0x2334 @0x29
0x230b…2352 at002a = ╱72╱r╱ // 0x2335 @0x2a
0x230b…2352 at002b = ╱20╱…╱ // 0x2336 @0x2b
0x230b…2352 at002c = ╱73╱s╱ // 0x2337 @0x2c
0x230b…2352 at002d = ╱74╱t╱ // 0x2338 @0x2d
0x230b…2352 at002e = ╱6f╱o╱ // 0x2339 @0x2e
0x230b…2352 at002f = ╱72╱r╱ // 0x233a @0x2f
0x230b…2352 at0030 = ╱2e╱.╱ // 0x233b @0x30
0x230b…2352 at0031 = ╱20╱…╱ // 0x233c @0x31
0x230b…2352 at0032 = ╱4d╱M╱ // 0x233d @0x32
0x230b…2352 at0033 = ╱7d╱}╱ // 0x233e @0x33
0x230b…2352 at0034 = ╱20╱…╱ // 0x233f @0x34
0x230b…2352 at0035 = ╱68╱h╱ // 0x2340 @0x35
0x230b…2352 at0036 = ╱7c╱|╱ // 0x2341 @0x36
0x230b…2352 at0037 = ╱6a╱j╱ // 0x2342 @0x37
0x230b…2352 at0038 = ╱73╱s╱ // 0x2343 @0x38
0x230b…2352 at0039 = ╱74╱t╱ // 0x2344 @0x39
0x230b…2352 at003a = ╱20╱…╱ // 0x2345 @0x3a
0x230b…2352 at003b = ╱75╱u╱ // 0x2346 @0x3b
0x230b…2352 at003c = ╱64╱d╱ // 0x2347 @0x3c
0x230b…2352 at003d = ╱67╱g╱ // 0x2348 @0x3d
0x230b…2352 at003e = ╱7c╱|╱ // 0x2349 @0x3e
0x230b…2352 at003f = ╱72╱r╱ // 0x234a @0x3f
0x230b…2352 at0040 = ╱65╱e╱ // 0x234b @0x40
0x230b…2352 at0041 = ╱22╱"╱ // 0x234c @0x41
0x230b…2352 at0042 = ╱ea╱ ; ╱ // 0x234d @0x42
0x230b…2352 at0043 = ╱4d╱M╱ // 0x234e @0x43
0x230b…2352 at0044 = ╱31╱1╱ // 0x234f @0x44
0x230b…2352 at0045 = ╱ea╱ ; ╱ // 0x2350 @0x45
0x230b…2352 at0046 = EOL // 0x2351 @0x46
0x230b…2352 }
0x2352…235b b949 02030 PRINT "."
0x2352…235b LineComal80 {
0x2352…235b ptr = 0xb949 // 0x2352 @0x0
0x2352…235b lno = 0x07ee // 0x2354 @0x2
0x2352…235b at0004 = ╱92╱ PRINT ╱ // 0x2356 @0x4
0x2352…235b at0005 = ╱22╱"╱ // 0x2357 @0x5
0x2352…235b at0006 = ╱2e╱.╱ // 0x2358 @0x6
0x2352…235b at0007 = ╱22╱"╱ // 0x2359 @0x7
0x2352…235b at0008 = EOL // 0x235a @0x8
0x2352…235b }
0x235b…2361 b94f 02035 PRINT
0x235b…2361 LineComal80 {
0x235b…2361 ptr = 0xb94f // 0x235b @0x0
0x235b…2361 lno = 0x07f3 // 0x235d @0x2
0x235b…2361 at0004 = ╱92╱ PRINT ╱ // 0x235f @0x4
0x235b…2361 at0005 = EOL // 0x2360 @0x5
0x235b…2361 }
0x2361…2367 b955 02040 ENDIF
0x2361…2367 LineComal80 {
0x2361…2367 ptr = 0xb955 // 0x2361 @0x0
0x2361…2367 lno = 0x07f8 // 0x2363 @0x2
0x2361…2367 at0004 = ╱9c╱ ENDIF ╱ // 0x2365 @0x4
0x2361…2367 at0005 = EOL // 0x2366 @0x5
0x2361…2367 }
0x2367…2394 b982 02045 IF A ( 12 ) > A ( 11 ) * 25 / W THEN EXEC FEJL1 ( 7 )
0x2367…2394 LineComal80 {
0x2367…2394 ptr = 0xb982 // 0x2367 @0x0
0x2367…2394 lno = 0x07fd // 0x2369 @0x2
0x2367…2394 at0004 = ╱8200╱ IF ╱ // 0x236b @0x4
0x2367…2394 at0006 = ╱41╱A╱ // 0x236d @0x6
0x2367…2394 at0007 = ╱ed╱ ( ╱ // 0x236e @0x7
0x2367…2394 at0008 = ╱31╱1╱ // 0x236f @0x8
0x2367…2394 at0009 = ╱32╱2╱ // 0x2370 @0x9
0x2367…2394 at000a = ╱f20c00╱ // 0x2371 @0xa
0x2367…2394 at000d = ╱ee╱ ) ╱ // 0x2374 @0xd
0x2367…2394 at000e = ╱e1╱ > ╱ // 0x2375 @0xe
0x2367…2394 at000f = ╱41╱A╱ // 0x2376 @0xf
0x2367…2394 at0010 = ╱ed╱ ( ╱ // 0x2377 @0x10
0x2367…2394 at0011 = ╱31╱1╱ // 0x2378 @0x11
0x2367…2394 at0012 = ╱31╱1╱ // 0x2379 @0x12
0x2367…2394 at0013 = ╱f20b00╱ // 0x237a @0x13
0x2367…2394 at0016 = ╱ee╱ ) ╱ // 0x237d @0x16
0x2367…2394 at0017 = ╱e7╱ * ╱ // 0x237e @0x17
0x2367…2394 at0018 = ╱32╱2╱ // 0x237f @0x18
0x2367…2394 at0019 = ╱35╱5╱ // 0x2380 @0x19
0x2367…2394 at001a = ╱f21900╱ // 0x2381 @0x1a
0x2367…2394 at001d = ╱e8╱ / ╱ // 0x2384 @0x1d
0x2367…2394 at001e = ╱57╱W╱ // 0x2385 @0x1e
0x2367…2394 at001f = ╱b5╱ THEN ╱ // 0x2386 @0x1f
0x2367…2394 at0020 = ╱9d╱ EXEC ╱ // 0x2387 @0x20
0x2367…2394 at0021 = ╱46╱F╱ // 0x2388 @0x21
0x2367…2394 at0022 = ╱45╱E╱ // 0x2389 @0x22
0x2367…2394 at0023 = ╱4a╱J╱ // 0x238a @0x23
0x2367…2394 at0024 = ╱4c╱L╱ // 0x238b @0x24
0x2367…2394 at0025 = ╱31╱1╱ // 0x238c @0x25
0x2367…2394 at0026 = ╱ed╱ ( ╱ // 0x238d @0x26
0x2367…2394 at0027 = ╱37╱7╱ // 0x238e @0x27
0x2367…2394 at0028 = ╱f20700╱ // 0x238f @0x28
0x2367…2394 at002b = ╱ee╱ ) ╱ // 0x2392 @0x2b
0x2367…2394 at002c = EOL // 0x2393 @0x2c
0x2367…2394 }
0x2394…23b9 b9a7 02050 IF A ( 22 ) > A ( 21 ) THEN EXEC FEJL1 ( 8 )
0x2394…23b9 LineComal80 {
0x2394…23b9 ptr = 0xb9a7 // 0x2394 @0x0
0x2394…23b9 lno = 0x0802 // 0x2396 @0x2
0x2394…23b9 at0004 = ╱8200╱ IF ╱ // 0x2398 @0x4
0x2394…23b9 at0006 = ╱41╱A╱ // 0x239a @0x6
0x2394…23b9 at0007 = ╱ed╱ ( ╱ // 0x239b @0x7
0x2394…23b9 at0008 = ╱32╱2╱ // 0x239c @0x8
0x2394…23b9 at0009 = ╱32╱2╱ // 0x239d @0x9
0x2394…23b9 at000a = ╱f21600╱ // 0x239e @0xa
0x2394…23b9 at000d = ╱ee╱ ) ╱ // 0x23a1 @0xd
0x2394…23b9 at000e = ╱e1╱ > ╱ // 0x23a2 @0xe
0x2394…23b9 at000f = ╱41╱A╱ // 0x23a3 @0xf
0x2394…23b9 at0010 = ╱ed╱ ( ╱ // 0x23a4 @0x10
0x2394…23b9 at0011 = ╱32╱2╱ // 0x23a5 @0x11
0x2394…23b9 at0012 = ╱31╱1╱ // 0x23a6 @0x12
0x2394…23b9 at0013 = ╱f21500╱ // 0x23a7 @0x13
0x2394…23b9 at0016 = ╱ee╱ ) ╱ // 0x23aa @0x16
0x2394…23b9 at0017 = ╱b5╱ THEN ╱ // 0x23ab @0x17
0x2394…23b9 at0018 = ╱9d╱ EXEC ╱ // 0x23ac @0x18
0x2394…23b9 at0019 = ╱46╱F╱ // 0x23ad @0x19
0x2394…23b9 at001a = ╱45╱E╱ // 0x23ae @0x1a
0x2394…23b9 at001b = ╱4a╱J╱ // 0x23af @0x1b
0x2394…23b9 at001c = ╱4c╱L╱ // 0x23b0 @0x1c
0x2394…23b9 at001d = ╱31╱1╱ // 0x23b1 @0x1d
0x2394…23b9 at001e = ╱ed╱ ( ╱ // 0x23b2 @0x1e
0x2394…23b9 at001f = ╱38╱8╱ // 0x23b3 @0x1f
0x2394…23b9 at0020 = ╱f20800╱ // 0x23b4 @0x20
0x2394…23b9 at0023 = ╱ee╱ ) ╱ // 0x23b7 @0x23
0x2394…23b9 at0024 = EOL // 0x23b8 @0x24
0x2394…23b9 }
0x23b9…23fb b9e9 02055 IF A ( 9 ) > O OR A ( 22 ) > O ) AND A ( 4 ) - A ( 5 ) = O AND A ( 6 ) - A ( 7 ) = O THEN
0x23b9…23fb LineComal80 {
0x23b9…23fb ptr = 0xb9e9 // 0x23b9 @0x0
0x23b9…23fb lno = 0x0807 // 0x23bb @0x2
0x23b9…23fb at0004 = ╱9b00ed╱ IF ╱ // 0x23bd @0x4
0x23b9…23fb at0007 = ╱41╱A╱ // 0x23c0 @0x7
0x23b9…23fb at0008 = ╱ed╱ ( ╱ // 0x23c1 @0x8
0x23b9…23fb at0009 = ╱39╱9╱ // 0x23c2 @0x9
0x23b9…23fb at000a = ╱f20900╱ // 0x23c3 @0xa
0x23b9…23fb at000d = ╱ee╱ ) ╱ // 0x23c6 @0xd
0x23b9…23fb at000e = ╱e1╱ > ╱ // 0x23c7 @0xe
0x23b9…23fb at000f = ╱4f╱O╱ // 0x23c8 @0xf
0x23b9…23fb at0010 = ╱d8╱ OR ╱ // 0x23c9 @0x10
0x23b9…23fb at0011 = ╱41╱A╱ // 0x23ca @0x11
0x23b9…23fb at0012 = ╱ed╱ ( ╱ // 0x23cb @0x12
0x23b9…23fb at0013 = ╱32╱2╱ // 0x23cc @0x13
0x23b9…23fb at0014 = ╱32╱2╱ // 0x23cd @0x14
0x23b9…23fb at0015 = ╱f21600╱ // 0x23ce @0x15
0x23b9…23fb at0018 = ╱ee╱ ) ╱ // 0x23d1 @0x18
0x23b9…23fb at0019 = ╱e1╱ > ╱ // 0x23d2 @0x19
0x23b9…23fb at001a = ╱4f╱O╱ // 0x23d3 @0x1a
0x23b9…23fb at001b = ╱ee╱ ) ╱ // 0x23d4 @0x1b
0x23b9…23fb at001c = ╱d9╱ AND ╱ // 0x23d5 @0x1c
0x23b9…23fb at001d = ╱41╱A╱ // 0x23d6 @0x1d
0x23b9…23fb at001e = ╱ed╱ ( ╱ // 0x23d7 @0x1e
0x23b9…23fb at001f = ╱34╱4╱ // 0x23d8 @0x1f
0x23b9…23fb at0020 = ╱f20400╱ // 0x23d9 @0x20
0x23b9…23fb at0023 = ╱ee╱ ) ╱ // 0x23dc @0x23
0x23b9…23fb at0024 = ╱e6╱ - ╱ // 0x23dd @0x24
0x23b9…23fb at0025 = ╱41╱A╱ // 0x23de @0x25
0x23b9…23fb at0026 = ╱ed╱ ( ╱ // 0x23df @0x26
0x23b9…23fb at0027 = ╱35╱5╱ // 0x23e0 @0x27
0x23b9…23fb at0028 = ╱f20500╱ // 0x23e1 @0x28
0x23b9…23fb at002b = ╱ee╱ ) ╱ // 0x23e4 @0x2b
0x23b9…23fb at002c = ╱df╱ = ╱ // 0x23e5 @0x2c
0x23b9…23fb at002d = ╱4f╱O╱ // 0x23e6 @0x2d
0x23b9…23fb at002e = ╱d9╱ AND ╱ // 0x23e7 @0x2e
0x23b9…23fb at002f = ╱41╱A╱ // 0x23e8 @0x2f
0x23b9…23fb at0030 = ╱ed╱ ( ╱ // 0x23e9 @0x30
0x23b9…23fb at0031 = ╱36╱6╱ // 0x23ea @0x31
0x23b9…23fb at0032 = ╱f20600╱ // 0x23eb @0x32
0x23b9…23fb at0035 = ╱ee╱ ) ╱ // 0x23ee @0x35
0x23b9…23fb at0036 = ╱e6╱ - ╱ // 0x23ef @0x36
0x23b9…23fb at0037 = ╱41╱A╱ // 0x23f0 @0x37
0x23b9…23fb at0038 = ╱ed╱ ( ╱ // 0x23f1 @0x38
0x23b9…23fb at0039 = ╱37╱7╱ // 0x23f2 @0x39
0x23b9…23fb at003a = ╱f20700╱ // 0x23f3 @0x3a
0x23b9…23fb at003d = ╱ee╱ ) ╱ // 0x23f6 @0x3d
0x23b9…23fb at003e = ╱df╱ = ╱ // 0x23f7 @0x3e
0x23b9…23fb at003f = ╱4f╱O╱ // 0x23f8 @0x3f
0x23b9…23fb at0040 = ╱b5╱ THEN ╱ // 0x23f9 @0x40
0x23b9…23fb at0041 = EOL // 0x23fa @0x41
0x23b9…23fb }
0x23fb…2436 ba24 02060 IF A ( 14 ) - A ( 15 ) = O AND A ( 16 ) - A ( 17 ) = O THEN EXEC FEJL1 ( 9 )
0x23fb…2436 LineComal80 {
0x23fb…2436 ptr = 0xba24 // 0x23fb @0x0
0x23fb…2436 lno = 0x080c // 0x23fd @0x2
0x23fb…2436 at0004 = ╱8200╱ IF ╱ // 0x23ff @0x4
0x23fb…2436 at0006 = ╱41╱A╱ // 0x2401 @0x6
0x23fb…2436 at0007 = ╱ed╱ ( ╱ // 0x2402 @0x7
0x23fb…2436 at0008 = ╱31╱1╱ // 0x2403 @0x8
0x23fb…2436 at0009 = ╱34╱4╱ // 0x2404 @0x9
0x23fb…2436 at000a = ╱f20e00╱ // 0x2405 @0xa
0x23fb…2436 at000d = ╱ee╱ ) ╱ // 0x2408 @0xd
0x23fb…2436 at000e = ╱e6╱ - ╱ // 0x2409 @0xe
0x23fb…2436 at000f = ╱41╱A╱ // 0x240a @0xf
0x23fb…2436 at0010 = ╱ed╱ ( ╱ // 0x240b @0x10
0x23fb…2436 at0011 = ╱31╱1╱ // 0x240c @0x11
0x23fb…2436 at0012 = ╱35╱5╱ // 0x240d @0x12
0x23fb…2436 at0013 = ╱f20f00╱ // 0x240e @0x13
0x23fb…2436 at0016 = ╱ee╱ ) ╱ // 0x2411 @0x16
0x23fb…2436 at0017 = ╱df╱ = ╱ // 0x2412 @0x17
0x23fb…2436 at0018 = ╱4f╱O╱ // 0x2413 @0x18
0x23fb…2436 at0019 = ╱d9╱ AND ╱ // 0x2414 @0x19
0x23fb…2436 at001a = ╱41╱A╱ // 0x2415 @0x1a
0x23fb…2436 at001b = ╱ed╱ ( ╱ // 0x2416 @0x1b
0x23fb…2436 at001c = ╱31╱1╱ // 0x2417 @0x1c
0x23fb…2436 at001d = ╱36╱6╱ // 0x2418 @0x1d
0x23fb…2436 at001e = ╱f21000╱ // 0x2419 @0x1e
0x23fb…2436 at0021 = ╱ee╱ ) ╱ // 0x241c @0x21
0x23fb…2436 at0022 = ╱e6╱ - ╱ // 0x241d @0x22
0x23fb…2436 at0023 = ╱41╱A╱ // 0x241e @0x23
0x23fb…2436 at0024 = ╱ed╱ ( ╱ // 0x241f @0x24
0x23fb…2436 at0025 = ╱31╱1╱ // 0x2420 @0x25
0x23fb…2436 at0026 = ╱37╱7╱ // 0x2421 @0x26
0x23fb…2436 at0027 = ╱f21100╱ // 0x2422 @0x27
0x23fb…2436 at002a = ╱ee╱ ) ╱ // 0x2425 @0x2a
0x23fb…2436 at002b = ╱df╱ = ╱ // 0x2426 @0x2b
0x23fb…2436 at002c = ╱4f╱O╱ // 0x2427 @0x2c
0x23fb…2436 at002d = ╱b5╱ THEN ╱ // 0x2428 @0x2d
0x23fb…2436 at002e = ╱9d╱ EXEC ╱ // 0x2429 @0x2e
0x23fb…2436 at002f = ╱46╱F╱ // 0x242a @0x2f
0x23fb…2436 at0030 = ╱45╱E╱ // 0x242b @0x30
0x23fb…2436 at0031 = ╱4a╱J╱ // 0x242c @0x31
0x23fb…2436 at0032 = ╱4c╱L╱ // 0x242d @0x32
0x23fb…2436 at0033 = ╱31╱1╱ // 0x242e @0x33
0x23fb…2436 at0034 = ╱ed╱ ( ╱ // 0x242f @0x34
0x23fb…2436 at0035 = ╱39╱9╱ // 0x2430 @0x35
0x23fb…2436 at0036 = ╱f20900╱ // 0x2431 @0x36
0x23fb…2436 at0039 = ╱ee╱ ) ╱ // 0x2434 @0x39
0x23fb…2436 at003a = EOL // 0x2435 @0x3a
0x23fb…2436 }
0x2436…243c ba2a 02065 ENDIF
0x2436…243c LineComal80 {
0x2436…243c ptr = 0xba2a // 0x2436 @0x0
0x2436…243c lno = 0x0811 // 0x2438 @0x2
0x2436…243c at0004 = ╱9c╱ ENDIF ╱ // 0x243a @0x4
0x2436…243c at0005 = EOL // 0x243b @0x5
0x2436…243c }
0x243c…2449 ba37 02070 ENDPROC FEJLMED
0x243c…2449 LineComal80 {
0x243c…2449 ptr = 0xba37 // 0x243c @0x0
0x243c…2449 lno = 0x0816 // 0x243e @0x2
0x243c…2449 at0004 = ╱9f╱ ENDPROC ╱ // 0x2440 @0x4
0x243c…2449 at0005 = ╱46╱F╱ // 0x2441 @0x5
0x243c…2449 at0006 = ╱45╱E╱ // 0x2442 @0x6
0x243c…2449 at0007 = ╱4a╱J╱ // 0x2443 @0x7
0x243c…2449 at0008 = ╱4c╱L╱ // 0x2444 @0x8
0x243c…2449 at0009 = ╱4d╱M╱ // 0x2445 @0x9
0x243c…2449 at000a = ╱45╱E╱ // 0x2446 @0xa
0x243c…2449 at000b = ╱44╱D╱ // 0x2447 @0xb
0x243c…2449 at000c = EOL // 0x2448 @0xc
0x243c…2449 }
0x2449…2458 ba46 02075 PROC FEJL1 ( [ )
0x2449…2458 LineComal80 {
0x2449…2458 ptr = 0xba46 // 0x2449 @0x0
0x2449…2458 lno = 0x081b // 0x244b @0x2
0x2449…2458 at0004 = ╱9e00╱ PROC ╱ // 0x244d @0x4
0x2449…2458 at0006 = ╱46╱F╱ // 0x244f @0x6
0x2449…2458 at0007 = ╱45╱E╱ // 0x2450 @0x7
0x2449…2458 at0008 = ╱4a╱J╱ // 0x2451 @0x8
0x2449…2458 at0009 = ╱4c╱L╱ // 0x2452 @0x9
0x2449…2458 at000a = ╱31╱1╱ // 0x2453 @0xa
0x2449…2458 at000b = ╱ed╱ ( ╱ // 0x2454 @0xb
0x2449…2458 at000c = ╱5b╱[╱ // 0x2455 @0xc
0x2449…2458 at000d = ╱ee╱ ) ╱ // 0x2456 @0xd
0x2449…2458 at000e = EOL // 0x2457 @0xe
0x2449…2458 }
0x2458…2477 ba65 02080 LET FIL $ := "dde:skfejl" ; FE := 1
0x2458…2477 LineComal80 {
0x2458…2477 ptr = 0xba65 // 0x2458 @0x0
0x2458…2477 lno = 0x0820 // 0x245a @0x2
0x2458…2477 at0004 = ╱86╱ LET ╱ // 0x245c @0x4
0x2458…2477 at0005 = ╱46╱F╱ // 0x245d @0x5
0x2458…2477 at0006 = ╱49╱I╱ // 0x245e @0x6
0x2458…2477 at0007 = ╱4c╱L╱ // 0x245f @0x7
0x2458…2477 at0008 = ╱ef╱ $ ╱ // 0x2460 @0x8
0x2458…2477 at0009 = ╱f0╱ := ╱ // 0x2461 @0x9
0x2458…2477 at000a = ╱22╱"╱ // 0x2462 @0xa
0x2458…2477 at000b = ╱64╱d╱ // 0x2463 @0xb
0x2458…2477 at000c = ╱64╱d╱ // 0x2464 @0xc
0x2458…2477 at000d = ╱65╱e╱ // 0x2465 @0xd
0x2458…2477 at000e = ╱3a╱:╱ // 0x2466 @0xe
0x2458…2477 at000f = ╱73╱s╱ // 0x2467 @0xf
0x2458…2477 at0010 = ╱6b╱k╱ // 0x2468 @0x10
0x2458…2477 at0011 = ╱66╱f╱ // 0x2469 @0x11
0x2458…2477 at0012 = ╱65╱e╱ // 0x246a @0x12
0x2458…2477 at0013 = ╱6a╱j╱ // 0x246b @0x13
0x2458…2477 at0014 = ╱6c╱l╱ // 0x246c @0x14
0x2458…2477 at0015 = ╱22╱"╱ // 0x246d @0x15
0x2458…2477 at0016 = ╱ea╱ ; ╱ // 0x246e @0x16
0x2458…2477 at0017 = ╱46╱F╱ // 0x246f @0x17
0x2458…2477 at0018 = ╱45╱E╱ // 0x2470 @0x18
0x2458…2477 at0019 = ╱f0╱ := ╱ // 0x2471 @0x19
0x2458…2477 at001a = ╱31╱1╱ // 0x2472 @0x1a
0x2458…2477 at001b = ╱f20100╱ // 0x2473 @0x1b
0x2458…2477 at001e = EOL // 0x2476 @0x1e
0x2458…2477 }
0x2477…2483 ba71 02085 OPEN FIL $ , R
0x2477…2483 LineComal80 {
0x2477…2483 ptr = 0xba71 // 0x2477 @0x0
0x2477…2483 lno = 0x0825 // 0x2479 @0x2
0x2477…2483 at0004 = ╱a7╱ OPEN ╱ // 0x247b @0x4
0x2477…2483 at0005 = ╱46╱F╱ // 0x247c @0x5
0x2477…2483 at0006 = ╱49╱I╱ // 0x247d @0x6
0x2477…2483 at0007 = ╱4c╱L╱ // 0x247e @0x7
0x2477…2483 at0008 = ╱ef╱ $ ╱ // 0x247f @0x8
0x2477…2483 at0009 = ╱ec╱ , ╱ // 0x2480 @0x9
0x2477…2483 at000a = ╱52╱R╱ // 0x2481 @0xa
0x2477…2483 at000b = EOL // 0x2482 @0xb
0x2477…2483 }
0x2483…2496 ba84 02090 FOR \ := 1 TO DO
0x2483…2496 LineComal80 {
0x2483…2496 ptr = 0xba84 // 0x2483 @0x0
0x2483…2496 lno = 0x082a // 0x2485 @0x2
0x2483…2496 at0004 = ╱8300╱ FOR ╱ // 0x2487 @0x4
0x2483…2496 at0006 = ╱5c╱\╱ // 0x2489 @0x6
0x2483…2496 at0007 = ╱f0╱ := ╱ // 0x248a @0x7
0x2483…2496 at0008 = ╱31╱1╱ // 0x248b @0x8
0x2483…2496 at0009 = ╱f20100╱ // 0x248c @0x9
0x2483…2496 at000c = ╱b739╱ TO ╱ // 0x248f @0xc
0x2483…2496 at000e = ╱f20900╱ // 0x2491 @0xe
0x2483…2496 at0011 = ╱bb╱ DO ╱ // 0x2494 @0x11
0x2483…2496 at0012 = EOL // 0x2495 @0x12
0x2483…2496 }
0x2496…24a9 ba97 02095 FOR Q := 1 TO DO
0x2496…24a9 LineComal80 {
0x2496…24a9 ptr = 0xba97 // 0x2496 @0x0
0x2496…24a9 lno = 0x082f // 0x2498 @0x2
0x2496…24a9 at0004 = ╱8300╱ FOR ╱ // 0x249a @0x4
0x2496…24a9 at0006 = ╱51╱Q╱ // 0x249c @0x6
0x2496…24a9 at0007 = ╱f0╱ := ╱ // 0x249d @0x7
0x2496…24a9 at0008 = ╱31╱1╱ // 0x249e @0x8
0x2496…24a9 at0009 = ╱f20100╱ // 0x249f @0x9
0x2496…24a9 at000c = ╱b734╱ TO ╱ // 0x24a2 @0xc
0x2496…24a9 at000e = ╱f20400╱ // 0x24a4 @0xe
0x2496…24a9 at0011 = ╱bb╱ DO ╱ // 0x24a7 @0x11
0x2496…24a9 at0012 = EOL // 0x24a8 @0x12
0x2496…24a9 }
0x24a9…24b6 baa4 02100 GET FIL $ : S $
0x24a9…24b6 LineComal80 {
0x24a9…24b6 ptr = 0xbaa4 // 0x24a9 @0x0
0x24a9…24b6 lno = 0x0834 // 0x24ab @0x2
0x24a9…24b6 at0004 = ╱a9╱ GET ╱ // 0x24ad @0x4
0x24a9…24b6 at0005 = ╱46╱F╱ // 0x24ae @0x5
0x24a9…24b6 at0006 = ╱49╱I╱ // 0x24af @0x6
0x24a9…24b6 at0007 = ╱4c╱L╱ // 0x24b0 @0x7
0x24a9…24b6 at0008 = ╱ef╱ $ ╱ // 0x24b1 @0x8
0x24a9…24b6 at0009 = ╱f1╱ : ╱ // 0x24b2 @0x9
0x24a9…24b6 at000a = ╱53╱S╱ // 0x24b3 @0xa
0x24a9…24b6 at000b = ╱ef╱ $ ╱ // 0x24b4 @0xb
0x24a9…24b6 at000c = EOL // 0x24b5 @0xc
0x24a9…24b6 }
0x24b6…24dd bacb 02105 IF ╱cb╱ ( S $ ) > 2 AND [ = \ AND ╱cd╱ ( FIL $ ) < 19 THEN PRINT S $
0x24b6…24dd LineComal80 {
0x24b6…24dd ptr = 0xbacb // 0x24b6 @0x0
0x24b6…24dd lno = 0x0839 // 0x24b8 @0x2
0x24b6…24dd at0004 = ╱8200╱ IF ╱ // 0x24ba @0x4
0x24b6…24dd at0006 = ╱cb╱ // 0x24bc @0x6
0x24b6…24dd at0007 = ╱ed╱ ( ╱ // 0x24bd @0x7
0x24b6…24dd at0008 = ╱53╱S╱ // 0x24be @0x8
0x24b6…24dd at0009 = ╱ef╱ $ ╱ // 0x24bf @0x9
0x24b6…24dd at000a = ╱ee╱ ) ╱ // 0x24c0 @0xa
0x24b6…24dd at000b = ╱e1╱ > ╱ // 0x24c1 @0xb
0x24b6…24dd at000c = ╱32╱2╱ // 0x24c2 @0xc
0x24b6…24dd at000d = ╱f20200╱ // 0x24c3 @0xd
0x24b6…24dd at0010 = ╱d9╱ AND ╱ // 0x24c6 @0x10
0x24b6…24dd at0011 = ╱5b╱[╱ // 0x24c7 @0x11
0x24b6…24dd at0012 = ╱df╱ = ╱ // 0x24c8 @0x12
0x24b6…24dd at0013 = ╱5c╱\╱ // 0x24c9 @0x13
0x24b6…24dd at0014 = ╱d9╱ AND ╱ // 0x24ca @0x14
0x24b6…24dd at0015 = ╱cd╱ // 0x24cb @0x15
0x24b6…24dd at0016 = ╱ed╱ ( ╱ // 0x24cc @0x16
0x24b6…24dd at0017 = ╱46╱F╱ // 0x24cd @0x17
0x24b6…24dd at0018 = ╱49╱I╱ // 0x24ce @0x18
0x24b6…24dd at0019 = ╱4c╱L╱ // 0x24cf @0x19
0x24b6…24dd at001a = ╱ef╱ $ ╱ // 0x24d0 @0x1a
0x24b6…24dd at001b = ╱ee╱ ) ╱ // 0x24d1 @0x1b
0x24b6…24dd at001c = ╱e0╱ < ╱ // 0x24d2 @0x1c
0x24b6…24dd at001d = ╱31╱1╱ // 0x24d3 @0x1d
0x24b6…24dd at001e = ╱39╱9╱ // 0x24d4 @0x1e
0x24b6…24dd at001f = ╱f21300╱ // 0x24d5 @0x1f
0x24b6…24dd at0022 = ╱b5╱ THEN ╱ // 0x24d8 @0x22
0x24b6…24dd at0023 = ╱92╱ PRINT ╱ // 0x24d9 @0x23
0x24b6…24dd at0024 = ╱53╱S╱ // 0x24da @0x24
0x24b6…24dd at0025 = ╱ef╱ $ ╱ // 0x24db @0x25
0x24b6…24dd at0026 = EOL // 0x24dc @0x26
0x24b6…24dd }
0x24dd…24e4 bad2 02110 NEXT Q
0x24dd…24e4 LineComal80 {
0x24dd…24e4 ptr = 0xbad2 // 0x24dd @0x0
0x24dd…24e4 lno = 0x083e // 0x24df @0x2
0x24dd…24e4 at0004 = ╱84╱ NEXT ╱ // 0x24e1 @0x4
0x24dd…24e4 at0005 = ╱51╱Q╱ // 0x24e2 @0x5
0x24dd…24e4 at0006 = EOL // 0x24e3 @0x6
0x24dd…24e4 }
0x24e4…24eb bad9 02115 NEXT \
0x24e4…24eb LineComal80 {
0x24e4…24eb ptr = 0xbad9 // 0x24e4 @0x0
0x24e4…24eb lno = 0x0843 // 0x24e6 @0x2
0x24e4…24eb at0004 = ╱84╱ NEXT ╱ // 0x24e8 @0x4
0x24e4…24eb at0005 = ╱5c╱\╱ // 0x24e9 @0x5
0x24e4…24eb at0006 = EOL // 0x24ea @0x6
0x24e4…24eb }
0x24eb…24f5 bae3 02120 CLOSE FIL $
0x24eb…24f5 LineComal80 {
0x24eb…24f5 ptr = 0xbae3 // 0x24eb @0x0
0x24eb…24f5 lno = 0x0848 // 0x24ed @0x2
0x24eb…24f5 at0004 = ╱a8╱ CLOSE ╱ // 0x24ef @0x4
0x24eb…24f5 at0005 = ╱46╱F╱ // 0x24f0 @0x5
0x24eb…24f5 at0006 = ╱49╱I╱ // 0x24f1 @0x6
0x24eb…24f5 at0007 = ╱4c╱L╱ // 0x24f2 @0x7
0x24eb…24f5 at0008 = ╱ef╱ $ ╱ // 0x24f3 @0x8
0x24eb…24f5 at0009 = EOL // 0x24f4 @0x9
0x24eb…24f5 }
0x24f5…2500 baee 02125 ENDPROC FEJL1
0x24f5…2500 LineComal80 {
0x24f5…2500 ptr = 0xbaee // 0x24f5 @0x0
0x24f5…2500 lno = 0x084d // 0x24f7 @0x2
0x24f5…2500 at0004 = ╱9f╱ ENDPROC ╱ // 0x24f9 @0x4
0x24f5…2500 at0005 = ╱46╱F╱ // 0x24fa @0x5
0x24f5…2500 at0006 = ╱45╱E╱ // 0x24fb @0x6
0x24f5…2500 at0007 = ╱4a╱J╱ // 0x24fc @0x7
0x24f5…2500 at0008 = ╱4c╱L╱ // 0x24fd @0x8
0x24f5…2500 at0009 = ╱31╱1╱ // 0x24fe @0x9
0x24f5…2500 at000a = EOL // 0x24ff @0xa
0x24f5…2500 }
0x2500…250b baf9 02130 PROC FEJL
0x2500…250b LineComal80 {
0x2500…250b ptr = 0xbaf9 // 0x2500 @0x0
0x2500…250b lno = 0x0852 // 0x2502 @0x2
0x2500…250b at0004 = ╱9e00╱ PROC ╱ // 0x2504 @0x4
0x2500…250b at0006 = ╱46╱F╱ // 0x2506 @0x6
0x2500…250b at0007 = ╱45╱E╱ // 0x2507 @0x7
0x2500…250b at0008 = ╱4a╱J╱ // 0x2508 @0x8
0x2500…250b at0009 = ╱4c╱L╱ // 0x2509 @0x9
0x2500…250b at000a = EOL // 0x250a @0xa
0x2500…250b }
0x250b…2517 bb05 02135 IF E = O THEN
0x250b…2517 LineComal80 {
0x250b…2517 ptr = 0xbb05 // 0x250b @0x0
0x250b…2517 lno = 0x0857 // 0x250d @0x2
0x250b…2517 at0004 = ╱9b0046╱ IF ╱ // 0x250f @0x4
0x250b…2517 at0007 = ╱45╱E╱ // 0x2512 @0x7
0x250b…2517 at0008 = ╱df╱ = ╱ // 0x2513 @0x8
0x250b…2517 at0009 = ╱4f╱O╱ // 0x2514 @0x9
0x250b…2517 at000a = ╱b5╱ THEN ╱ // 0x2515 @0xa
0x250b…2517 at000b = EOL // 0x2516 @0xb
0x250b…2517 }
0x2517…253a bb28 02140 PRINT "Ingen…}benbare…fejl…fundet."
0x2517…253a LineComal80 {
0x2517…253a ptr = 0xbb28 // 0x2517 @0x0
0x2517…253a lno = 0x085c // 0x2519 @0x2
0x2517…253a at0004 = ╱92╱ PRINT ╱ // 0x251b @0x4
0x2517…253a at0005 = ╱22╱"╱ // 0x251c @0x5
0x2517…253a at0006 = ╱49╱I╱ // 0x251d @0x6
0x2517…253a at0007 = ╱6e╱n╱ // 0x251e @0x7
0x2517…253a at0008 = ╱67╱g╱ // 0x251f @0x8
0x2517…253a at0009 = ╱65╱e╱ // 0x2520 @0x9
0x2517…253a at000a = ╱6e╱n╱ // 0x2521 @0xa
0x2517…253a at000b = ╱20╱…╱ // 0x2522 @0xb
0x2517…253a at000c = ╱7d╱}╱ // 0x2523 @0xc
0x2517…253a at000d = ╱62╱b╱ // 0x2524 @0xd
0x2517…253a at000e = ╱65╱e╱ // 0x2525 @0xe
0x2517…253a at000f = ╱6e╱n╱ // 0x2526 @0xf
0x2517…253a at0010 = ╱62╱b╱ // 0x2527 @0x10
0x2517…253a at0011 = ╱61╱a╱ // 0x2528 @0x11
0x2517…253a at0012 = ╱72╱r╱ // 0x2529 @0x12
0x2517…253a at0013 = ╱65╱e╱ // 0x252a @0x13
0x2517…253a at0014 = ╱20╱…╱ // 0x252b @0x14
0x2517…253a at0015 = ╱66╱f╱ // 0x252c @0x15
0x2517…253a at0016 = ╱65╱e╱ // 0x252d @0x16
0x2517…253a at0017 = ╱6a╱j╱ // 0x252e @0x17
0x2517…253a at0018 = ╱6c╱l╱ // 0x252f @0x18
0x2517…253a at0019 = ╱20╱…╱ // 0x2530 @0x19
0x2517…253a at001a = ╱66╱f╱ // 0x2531 @0x1a
0x2517…253a at001b = ╱75╱u╱ // 0x2532 @0x1b
0x2517…253a at001c = ╱6e╱n╱ // 0x2533 @0x1c
0x2517…253a at001d = ╱64╱d╱ // 0x2534 @0x1d
0x2517…253a at001e = ╱65╱e╱ // 0x2535 @0x1e
0x2517…253a at001f = ╱74╱t╱ // 0x2536 @0x1f
0x2517…253a at0020 = ╱2e╱.╱ // 0x2537 @0x20
0x2517…253a at0021 = ╱22╱"╱ // 0x2538 @0x21
0x2517…253a at0022 = EOL // 0x2539 @0x22
0x2517…253a }
0x253a…2543 bb31 02145 PRINT LI $
0x253a…2543 LineComal80 {
0x253a…2543 ptr = 0xbb31 // 0x253a @0x0
0x253a…2543 lno = 0x0861 // 0x253c @0x2
0x253a…2543 at0004 = ╱92╱ PRINT ╱ // 0x253e @0x4
0x253a…2543 at0005 = ╱4c╱L╱ // 0x253f @0x5
0x253a…2543 at0006 = ╱49╱I╱ // 0x2540 @0x6
0x253a…2543 at0007 = ╱ef╱ $ ╱ // 0x2541 @0x7
0x253a…2543 at0008 = EOL // 0x2542 @0x8
0x253a…2543 }
0x2543…254a bb38 02150 ELSE
0x2543…254a LineComal80 {
0x2543…254a ptr = 0xbb38 // 0x2543 @0x0
0x2543…254a lno = 0x0866 // 0x2545 @0x2
0x2543…254a at0004 = ╱9a00╱ ELSE ╱ // 0x2547 @0x4
0x2543…254a at0006 = EOL // 0x2549 @0x6
0x2543…254a }
0x254a…256f bb5d 02155 PRINT "Skal…der…foretages…rettelser" ;
0x254a…256f LineComal80 {
0x254a…256f ptr = 0xbb5d // 0x254a @0x0
0x254a…256f lno = 0x086b // 0x254c @0x2
0x254a…256f at0004 = ╱92╱ PRINT ╱ // 0x254e @0x4
0x254a…256f at0005 = ╱22╱"╱ // 0x254f @0x5
0x254a…256f at0006 = ╱53╱S╱ // 0x2550 @0x6
0x254a…256f at0007 = ╱6b╱k╱ // 0x2551 @0x7
0x254a…256f at0008 = ╱61╱a╱ // 0x2552 @0x8
0x254a…256f at0009 = ╱6c╱l╱ // 0x2553 @0x9
0x254a…256f at000a = ╱20╱…╱ // 0x2554 @0xa
0x254a…256f at000b = ╱64╱d╱ // 0x2555 @0xb
0x254a…256f at000c = ╱65╱e╱ // 0x2556 @0xc
0x254a…256f at000d = ╱72╱r╱ // 0x2557 @0xd
0x254a…256f at000e = ╱20╱…╱ // 0x2558 @0xe
0x254a…256f at000f = ╱66╱f╱ // 0x2559 @0xf
0x254a…256f at0010 = ╱6f╱o╱ // 0x255a @0x10
0x254a…256f at0011 = ╱72╱r╱ // 0x255b @0x11
0x254a…256f at0012 = ╱65╱e╱ // 0x255c @0x12
0x254a…256f at0013 = ╱74╱t╱ // 0x255d @0x13
0x254a…256f at0014 = ╱61╱a╱ // 0x255e @0x14
0x254a…256f at0015 = ╱67╱g╱ // 0x255f @0x15
0x254a…256f at0016 = ╱65╱e╱ // 0x2560 @0x16
0x254a…256f at0017 = ╱73╱s╱ // 0x2561 @0x17
0x254a…256f at0018 = ╱20╱…╱ // 0x2562 @0x18
0x254a…256f at0019 = ╱72╱r╱ // 0x2563 @0x19
0x254a…256f at001a = ╱65╱e╱ // 0x2564 @0x1a
0x254a…256f at001b = ╱74╱t╱ // 0x2565 @0x1b
0x254a…256f at001c = ╱74╱t╱ // 0x2566 @0x1c
0x254a…256f at001d = ╱65╱e╱ // 0x2567 @0x1d
0x254a…256f at001e = ╱6c╱l╱ // 0x2568 @0x1e
0x254a…256f at001f = ╱73╱s╱ // 0x2569 @0x1f
0x254a…256f at0020 = ╱65╱e╱ // 0x256a @0x20
0x254a…256f at0021 = ╱72╱r╱ // 0x256b @0x21
0x254a…256f at0022 = ╱22╱"╱ // 0x256c @0x22
0x254a…256f at0023 = ╱ea╱ ; ╱ // 0x256d @0x23
0x254a…256f at0024 = EOL // 0x256e @0x24
0x254a…256f }
0x256f…2579 bb67 02160 EXEC SVAR
0x256f…2579 LineComal80 {
0x256f…2579 ptr = 0xbb67 // 0x256f @0x0
0x256f…2579 lno = 0x0870 // 0x2571 @0x2
0x256f…2579 at0004 = ╱9d╱ EXEC ╱ // 0x2573 @0x4
0x256f…2579 at0005 = ╱53╱S╱ // 0x2574 @0x5
0x256f…2579 at0006 = ╱56╱V╱ // 0x2575 @0x6
0x256f…2579 at0007 = ╱41╱A╱ // 0x2576 @0x7
0x256f…2579 at0008 = ╱52╱R╱ // 0x2577 @0x8
0x256f…2579 at0009 = EOL // 0x2578 @0x9
0x256f…2579 }
0x2579…258c bb7a 02165 IF S $ = "n" THEN LET FE := O
0x2579…258c LineComal80 {
0x2579…258c ptr = 0xbb7a // 0x2579 @0x0
0x2579…258c lno = 0x0875 // 0x257b @0x2
0x2579…258c at0004 = ╱8200╱ IF ╱ // 0x257d @0x4
0x2579…258c at0006 = ╱53╱S╱ // 0x257f @0x6
0x2579…258c at0007 = ╱ef╱ $ ╱ // 0x2580 @0x7
0x2579…258c at0008 = ╱df╱ = ╱ // 0x2581 @0x8
0x2579…258c at0009 = ╱22╱"╱ // 0x2582 @0x9
0x2579…258c at000a = ╱6e╱n╱ // 0x2583 @0xa
0x2579…258c at000b = ╱22╱"╱ // 0x2584 @0xb
0x2579…258c at000c = ╱b5╱ THEN ╱ // 0x2585 @0xc
0x2579…258c at000d = ╱86╱ LET ╱ // 0x2586 @0xd
0x2579…258c at000e = ╱46╱F╱ // 0x2587 @0xe
0x2579…258c at000f = ╱45╱E╱ // 0x2588 @0xf
0x2579…258c at0010 = ╱f0╱ := ╱ // 0x2589 @0x10
0x2579…258c at0011 = ╱4f╱O╱ // 0x258a @0x11
0x2579…258c at0012 = EOL // 0x258b @0x12
0x2579…258c }
0x258c…2595 bb83 02170 PRINT LI $
0x258c…2595 LineComal80 {
0x258c…2595 ptr = 0xbb83 // 0x258c @0x0
0x258c…2595 lno = 0x087a // 0x258e @0x2
0x258c…2595 at0004 = ╱92╱ PRINT ╱ // 0x2590 @0x4
0x258c…2595 at0005 = ╱4c╱L╱ // 0x2591 @0x5
0x258c…2595 at0006 = ╱49╱I╱ // 0x2592 @0x6
0x258c…2595 at0007 = ╱ef╱ $ ╱ // 0x2593 @0x7
0x258c…2595 at0008 = EOL // 0x2594 @0x8
0x258c…2595 }
0x2595…259b bb89 02175 ENDIF
0x2595…259b LineComal80 {
0x2595…259b ptr = 0xbb89 // 0x2595 @0x0
0x2595…259b lno = 0x087f // 0x2597 @0x2
0x2595…259b at0004 = ╱9c╱ ENDIF ╱ // 0x2599 @0x4
0x2595…259b at0005 = EOL // 0x259a @0x5
0x2595…259b }
0x259b…25a5 bb93 02180 ENDPROC FEJL
0x259b…25a5 LineComal80 {
0x259b…25a5 ptr = 0xbb93 // 0x259b @0x0
0x259b…25a5 lno = 0x0884 // 0x259d @0x2
0x259b…25a5 at0004 = ╱9f╱ ENDPROC ╱ // 0x259f @0x4
0x259b…25a5 at0005 = ╱46╱F╱ // 0x25a0 @0x5
0x259b…25a5 at0006 = ╱45╱E╱ // 0x25a1 @0x6
0x259b…25a5 at0007 = ╱4a╱J╱ // 0x25a2 @0x7
0x259b…25a5 at0008 = ╱4c╱L╱ // 0x25a3 @0x8
0x259b…25a5 at0009 = EOL // 0x25a4 @0x9
0x259b…25a5 }
0x25a5…25b1 bb9f 02185 PROC TTEST
0x25a5…25b1 LineComal80 {
0x25a5…25b1 ptr = 0xbb9f // 0x25a5 @0x0
0x25a5…25b1 lno = 0x0889 // 0x25a7 @0x2
0x25a5…25b1 at0004 = ╱9e00╱ PROC ╱ // 0x25a9 @0x4
0x25a5…25b1 at0006 = ╱54╱T╱ // 0x25ab @0x6
0x25a5…25b1 at0007 = ╱54╱T╱ // 0x25ac @0x7
0x25a5…25b1 at0008 = ╱45╱E╱ // 0x25ad @0x8
0x25a5…25b1 at0009 = ╱53╱S╱ // 0x25ae @0x9
0x25a5…25b1 at000a = ╱54╱T╱ // 0x25af @0xa
0x25a5…25b1 at000b = EOL // 0x25b0 @0xb
0x25a5…25b1 }
0x25b1…25c3 bbb1 02190 PRINT "TOTALTEST:"
0x25b1…25c3 LineComal80 {
0x25b1…25c3 ptr = 0xbbb1 // 0x25b1 @0x0
0x25b1…25c3 lno = 0x088e // 0x25b3 @0x2
0x25b1…25c3 at0004 = ╱92╱ PRINT ╱ // 0x25b5 @0x4
0x25b1…25c3 at0005 = ╱22╱"╱ // 0x25b6 @0x5
0x25b1…25c3 at0006 = ╱54╱T╱ // 0x25b7 @0x6
0x25b1…25c3 at0007 = ╱4f╱O╱ // 0x25b8 @0x7
0x25b1…25c3 at0008 = ╱54╱T╱ // 0x25b9 @0x8
0x25b1…25c3 at0009 = ╱41╱A╱ // 0x25ba @0x9
0x25b1…25c3 at000a = ╱4c╱L╱ // 0x25bb @0xa
0x25b1…25c3 at000b = ╱54╱T╱ // 0x25bc @0xb
0x25b1…25c3 at000c = ╱45╱E╱ // 0x25bd @0xc
0x25b1…25c3 at000d = ╱53╱S╱ // 0x25be @0xd
0x25b1…25c3 at000e = ╱54╱T╱ // 0x25bf @0xe
0x25b1…25c3 at000f = ╱3a╱:╱ // 0x25c0 @0xf
0x25b1…25c3 at0010 = ╱22╱"╱ // 0x25c1 @0x10
0x25b1…25c3 at0011 = EOL // 0x25c2 @0x11
0x25b1…25c3 }
0x25c3…25ee bbdc 02195 IF ( 23 ) >< H ( 10 ) OR A ( 10 ) >< H ( 23 ) THEN
0x25c3…25ee LineComal80 {
0x25c3…25ee ptr = 0xbbdc // 0x25c3 @0x0
0x25c3…25ee lno = 0x0893 // 0x25c5 @0x2
0x25c3…25ee at0004 = ╱9b0041╱ IF ╱ // 0x25c7 @0x4
0x25c3…25ee at0007 = ╱ed╱ ( ╱ // 0x25ca @0x7
0x25c3…25ee at0008 = ╱32╱2╱ // 0x25cb @0x8
0x25c3…25ee at0009 = ╱33╱3╱ // 0x25cc @0x9
0x25c3…25ee at000a = ╱f21700╱ // 0x25cd @0xa
0x25c3…25ee at000d = ╱ee╱ ) ╱ // 0x25d0 @0xd
0x25c3…25ee at000e = ╱e4╱ >< ╱ // 0x25d1 @0xe
0x25c3…25ee at000f = ╱48╱H╱ // 0x25d2 @0xf
0x25c3…25ee at0010 = ╱ed╱ ( ╱ // 0x25d3 @0x10
0x25c3…25ee at0011 = ╱31╱1╱ // 0x25d4 @0x11
0x25c3…25ee at0012 = ╱30╱0╱ // 0x25d5 @0x12
0x25c3…25ee at0013 = ╱f20a00╱ // 0x25d6 @0x13
0x25c3…25ee at0016 = ╱ee╱ ) ╱ // 0x25d9 @0x16
0x25c3…25ee at0017 = ╱d8╱ OR ╱ // 0x25da @0x17
0x25c3…25ee at0018 = ╱41╱A╱ // 0x25db @0x18
0x25c3…25ee at0019 = ╱ed╱ ( ╱ // 0x25dc @0x19
0x25c3…25ee at001a = ╱31╱1╱ // 0x25dd @0x1a
0x25c3…25ee at001b = ╱30╱0╱ // 0x25de @0x1b
0x25c3…25ee at001c = ╱f20a00╱ // 0x25df @0x1c
0x25c3…25ee at001f = ╱ee╱ ) ╱ // 0x25e2 @0x1f
0x25c3…25ee at0020 = ╱e4╱ >< ╱ // 0x25e3 @0x20
0x25c3…25ee at0021 = ╱48╱H╱ // 0x25e4 @0x21
0x25c3…25ee at0022 = ╱ed╱ ( ╱ // 0x25e5 @0x22
0x25c3…25ee at0023 = ╱32╱2╱ // 0x25e6 @0x23
0x25c3…25ee at0024 = ╱33╱3╱ // 0x25e7 @0x24
0x25c3…25ee at0025 = ╱f21700╱ // 0x25e8 @0x25
0x25c3…25ee at0028 = ╱ee╱ ) ╱ // 0x25eb @0x28
0x25c3…25ee at0029 = ╱b5╱ THEN ╱ // 0x25ec @0x29
0x25c3…25ee at002a = EOL // 0x25ed @0x2a
0x25c3…25ee }
0x25ee…25fb bbe9 02200 LET FE := 1
0x25ee…25fb LineComal80 {
0x25ee…25fb ptr = 0xbbe9 // 0x25ee @0x0
0x25ee…25fb lno = 0x0898 // 0x25f0 @0x2
0x25ee…25fb at0004 = ╱86╱ LET ╱ // 0x25f2 @0x4
0x25ee…25fb at0005 = ╱46╱F╱ // 0x25f3 @0x5
0x25ee…25fb at0006 = ╱45╱E╱ // 0x25f4 @0x6
0x25ee…25fb at0007 = ╱f0╱ := ╱ // 0x25f5 @0x7
0x25ee…25fb at0008 = ╱31╱1╱ // 0x25f6 @0x8
0x25ee…25fb at0009 = ╱f20100╱ // 0x25f7 @0x9
0x25ee…25fb at000c = EOL // 0x25fa @0xc
0x25ee…25fb }
0x25fb…2641 bc2f 02205 PRINT "Medarbejdende…{gtef{lleindkomst…er…ikke…lig…med…medarbejdende…"
0x25fb…2641 LineComal80 {
0x25fb…2641 ptr = 0xbc2f // 0x25fb @0x0
0x25fb…2641 lno = 0x089d // 0x25fd @0x2
0x25fb…2641 at0004 = ╱92╱ PRINT ╱ // 0x25ff @0x4
0x25fb…2641 at0005 = ╱22╱"╱ // 0x2600 @0x5
0x25fb…2641 at0006 = ╱4d╱M╱ // 0x2601 @0x6
0x25fb…2641 at0007 = ╱65╱e╱ // 0x2602 @0x7
0x25fb…2641 at0008 = ╱64╱d╱ // 0x2603 @0x8
0x25fb…2641 at0009 = ╱61╱a╱ // 0x2604 @0x9
0x25fb…2641 at000a = ╱72╱r╱ // 0x2605 @0xa
0x25fb…2641 at000b = ╱62╱b╱ // 0x2606 @0xb
0x25fb…2641 at000c = ╱65╱e╱ // 0x2607 @0xc
0x25fb…2641 at000d = ╱6a╱j╱ // 0x2608 @0xd
0x25fb…2641 at000e = ╱64╱d╱ // 0x2609 @0xe
0x25fb…2641 at000f = ╱65╱e╱ // 0x260a @0xf
0x25fb…2641 at0010 = ╱6e╱n╱ // 0x260b @0x10
0x25fb…2641 at0011 = ╱64╱d╱ // 0x260c @0x11
0x25fb…2641 at0012 = ╱65╱e╱ // 0x260d @0x12
0x25fb…2641 at0013 = ╱20╱…╱ // 0x260e @0x13
0x25fb…2641 at0014 = ╱7b╱{╱ // 0x260f @0x14
0x25fb…2641 at0015 = ╱67╱g╱ // 0x2610 @0x15
0x25fb…2641 at0016 = ╱74╱t╱ // 0x2611 @0x16
0x25fb…2641 at0017 = ╱65╱e╱ // 0x2612 @0x17
0x25fb…2641 at0018 = ╱66╱f╱ // 0x2613 @0x18
0x25fb…2641 at0019 = ╱7b╱{╱ // 0x2614 @0x19
0x25fb…2641 at001a = ╱6c╱l╱ // 0x2615 @0x1a
0x25fb…2641 at001b = ╱6c╱l╱ // 0x2616 @0x1b
0x25fb…2641 at001c = ╱65╱e╱ // 0x2617 @0x1c
0x25fb…2641 at001d = ╱69╱i╱ // 0x2618 @0x1d
0x25fb…2641 at001e = ╱6e╱n╱ // 0x2619 @0x1e
0x25fb…2641 at001f = ╱64╱d╱ // 0x261a @0x1f
0x25fb…2641 at0020 = ╱6b╱k╱ // 0x261b @0x20
0x25fb…2641 at0021 = ╱6f╱o╱ // 0x261c @0x21
0x25fb…2641 at0022 = ╱6d╱m╱ // 0x261d @0x22
0x25fb…2641 at0023 = ╱73╱s╱ // 0x261e @0x23
0x25fb…2641 at0024 = ╱74╱t╱ // 0x261f @0x24
0x25fb…2641 at0025 = ╱20╱…╱ // 0x2620 @0x25
0x25fb…2641 at0026 = ╱65╱e╱ // 0x2621 @0x26
0x25fb…2641 at0027 = ╱72╱r╱ // 0x2622 @0x27
0x25fb…2641 at0028 = ╱20╱…╱ // 0x2623 @0x28
0x25fb…2641 at0029 = ╱69╱i╱ // 0x2624 @0x29
0x25fb…2641 at002a = ╱6b╱k╱ // 0x2625 @0x2a
0x25fb…2641 at002b = ╱6b╱k╱ // 0x2626 @0x2b
0x25fb…2641 at002c = ╱65╱e╱ // 0x2627 @0x2c
0x25fb…2641 at002d = ╱20╱…╱ // 0x2628 @0x2d
0x25fb…2641 at002e = ╱6c╱l╱ // 0x2629 @0x2e
0x25fb…2641 at002f = ╱69╱i╱ // 0x262a @0x2f
0x25fb…2641 at0030 = ╱67╱g╱ // 0x262b @0x30
0x25fb…2641 at0031 = ╱20╱…╱ // 0x262c @0x31
0x25fb…2641 at0032 = ╱6d╱m╱ // 0x262d @0x32
0x25fb…2641 at0033 = ╱65╱e╱ // 0x262e @0x33
0x25fb…2641 at0034 = ╱64╱d╱ // 0x262f @0x34
0x25fb…2641 at0035 = ╱20╱…╱ // 0x2630 @0x35
0x25fb…2641 at0036 = ╱6d╱m╱ // 0x2631 @0x36
0x25fb…2641 at0037 = ╱65╱e╱ // 0x2632 @0x37
0x25fb…2641 at0038 = ╱64╱d╱ // 0x2633 @0x38
0x25fb…2641 at0039 = ╱61╱a╱ // 0x2634 @0x39
0x25fb…2641 at003a = ╱72╱r╱ // 0x2635 @0x3a
0x25fb…2641 at003b = ╱62╱b╱ // 0x2636 @0x3b
0x25fb…2641 at003c = ╱65╱e╱ // 0x2637 @0x3c
0x25fb…2641 at003d = ╱6a╱j╱ // 0x2638 @0x3d
0x25fb…2641 at003e = ╱64╱d╱ // 0x2639 @0x3e
0x25fb…2641 at003f = ╱65╱e╱ // 0x263a @0x3f
0x25fb…2641 at0040 = ╱6e╱n╱ // 0x263b @0x40
0x25fb…2641 at0041 = ╱64╱d╱ // 0x263c @0x41
0x25fb…2641 at0042 = ╱65╱e╱ // 0x263d @0x42
0x25fb…2641 at0043 = ╱20╱…╱ // 0x263e @0x43
0x25fb…2641 at0044 = ╱22╱"╱ // 0x263f @0x44
0x25fb…2641 at0045 = EOL // 0x2640 @0x45
0x25fb…2641 }
0x2641…265a bc48 02210 PRINT "{gtef{llefradrag."
0x2641…265a LineComal80 {
0x2641…265a ptr = 0xbc48 // 0x2641 @0x0
0x2641…265a lno = 0x08a2 // 0x2643 @0x2
0x2641…265a at0004 = ╱92╱ PRINT ╱ // 0x2645 @0x4
0x2641…265a at0005 = ╱22╱"╱ // 0x2646 @0x5
0x2641…265a at0006 = ╱7b╱{╱ // 0x2647 @0x6
0x2641…265a at0007 = ╱67╱g╱ // 0x2648 @0x7
0x2641…265a at0008 = ╱74╱t╱ // 0x2649 @0x8
0x2641…265a at0009 = ╱65╱e╱ // 0x264a @0x9
0x2641…265a at000a = ╱66╱f╱ // 0x264b @0xa
0x2641…265a at000b = ╱7b╱{╱ // 0x264c @0xb
0x2641…265a at000c = ╱6c╱l╱ // 0x264d @0xc
0x2641…265a at000d = ╱6c╱l╱ // 0x264e @0xd
0x2641…265a at000e = ╱65╱e╱ // 0x264f @0xe
0x2641…265a at000f = ╱66╱f╱ // 0x2650 @0xf
0x2641…265a at0010 = ╱72╱r╱ // 0x2651 @0x10
0x2641…265a at0011 = ╱61╱a╱ // 0x2652 @0x11
0x2641…265a at0012 = ╱64╱d╱ // 0x2653 @0x12
0x2641…265a at0013 = ╱72╱r╱ // 0x2654 @0x13
0x2641…265a at0014 = ╱61╱a╱ // 0x2655 @0x14
0x2641…265a at0015 = ╱67╱g╱ // 0x2656 @0x15
0x2641…265a at0016 = ╱2e╱.╱ // 0x2657 @0x16
0x2641…265a at0017 = ╱22╱"╱ // 0x2658 @0x17
0x2641…265a at0018 = EOL // 0x2659 @0x18
0x2641…265a }
0x265a…2660 bc4e 02215 PRINT
0x265a…2660 LineComal80 {
0x265a…2660 ptr = 0xbc4e // 0x265a @0x0
0x265a…2660 lno = 0x08a7 // 0x265c @0x2
0x265a…2660 at0004 = ╱92╱ PRINT ╱ // 0x265e @0x4
0x265a…2660 at0005 = EOL // 0x265f @0x5
0x265a…2660 }
0x2660…2666 bc54 02220 ENDIF
0x2660…2666 LineComal80 {
0x2660…2666 ptr = 0xbc54 // 0x2660 @0x0
0x2660…2666 lno = 0x08ac // 0x2662 @0x2
0x2660…2666 at0004 = ╱9c╱ ENDIF ╱ // 0x2664 @0x4
0x2660…2666 at0005 = EOL // 0x2665 @0x5
0x2660…2666 }
0x2666…2693 bc81 02225 IF C4 > O AND C7 < O THEN LET FIL $ := "dde:skatfejb" ; FE := 1
0x2666…2693 LineComal80 {
0x2666…2693 ptr = 0xbc81 // 0x2666 @0x0
0x2666…2693 lno = 0x08b1 // 0x2668 @0x2
0x2666…2693 at0004 = ╱8200╱ IF ╱ // 0x266a @0x4
0x2666…2693 at0006 = ╱43╱C╱ // 0x266c @0x6
0x2666…2693 at0007 = ╱34╱4╱ // 0x266d @0x7
0x2666…2693 at0008 = ╱e1╱ > ╱ // 0x266e @0x8
0x2666…2693 at0009 = ╱4f╱O╱ // 0x266f @0x9
0x2666…2693 at000a = ╱d9╱ AND ╱ // 0x2670 @0xa
0x2666…2693 at000b = ╱43╱C╱ // 0x2671 @0xb
0x2666…2693 at000c = ╱37╱7╱ // 0x2672 @0xc
0x2666…2693 at000d = ╱e0╱ < ╱ // 0x2673 @0xd
0x2666…2693 at000e = ╱4f╱O╱ // 0x2674 @0xe
0x2666…2693 at000f = ╱b5╱ THEN ╱ // 0x2675 @0xf
0x2666…2693 at0010 = ╱86╱ LET ╱ // 0x2676 @0x10
0x2666…2693 at0011 = ╱46╱F╱ // 0x2677 @0x11
0x2666…2693 at0012 = ╱49╱I╱ // 0x2678 @0x12
0x2666…2693 at0013 = ╱4c╱L╱ // 0x2679 @0x13
0x2666…2693 at0014 = ╱ef╱ $ ╱ // 0x267a @0x14
0x2666…2693 at0015 = ╱f0╱ := ╱ // 0x267b @0x15
0x2666…2693 at0016 = ╱22╱"╱ // 0x267c @0x16
0x2666…2693 at0017 = ╱64╱d╱ // 0x267d @0x17
0x2666…2693 at0018 = ╱64╱d╱ // 0x267e @0x18
0x2666…2693 at0019 = ╱65╱e╱ // 0x267f @0x19
0x2666…2693 at001a = ╱3a╱:╱ // 0x2680 @0x1a
0x2666…2693 at001b = ╱73╱s╱ // 0x2681 @0x1b
0x2666…2693 at001c = ╱6b╱k╱ // 0x2682 @0x1c
0x2666…2693 at001d = ╱61╱a╱ // 0x2683 @0x1d
0x2666…2693 at001e = ╱74╱t╱ // 0x2684 @0x1e
0x2666…2693 at001f = ╱66╱f╱ // 0x2685 @0x1f
0x2666…2693 at0020 = ╱65╱e╱ // 0x2686 @0x20
0x2666…2693 at0021 = ╱6a╱j╱ // 0x2687 @0x21
0x2666…2693 at0022 = ╱62╱b╱ // 0x2688 @0x22
0x2666…2693 at0023 = ╱22╱"╱ // 0x2689 @0x23
0x2666…2693 at0024 = ╱ea╱ ; ╱ // 0x268a @0x24
0x2666…2693 at0025 = ╱46╱F╱ // 0x268b @0x25
0x2666…2693 at0026 = ╱45╱E╱ // 0x268c @0x26
0x2666…2693 at0027 = ╱f0╱ := ╱ // 0x268d @0x27
0x2666…2693 at0028 = ╱31╱1╱ // 0x268e @0x28
0x2666…2693 at0029 = ╱f20100╱ // 0x268f @0x29
0x2666…2693 at002c = EOL // 0x2692 @0x2c
0x2666…2693 }
0x2693…26c0 bcae 02230 IF C4 < O AND C7 > O THEN LET FIL $ := "dde:skatfejh" ; FE := 1
0x2693…26c0 LineComal80 {
0x2693…26c0 ptr = 0xbcae // 0x2693 @0x0
0x2693…26c0 lno = 0x08b6 // 0x2695 @0x2
0x2693…26c0 at0004 = ╱8200╱ IF ╱ // 0x2697 @0x4
0x2693…26c0 at0006 = ╱43╱C╱ // 0x2699 @0x6
0x2693…26c0 at0007 = ╱34╱4╱ // 0x269a @0x7
0x2693…26c0 at0008 = ╱e0╱ < ╱ // 0x269b @0x8
0x2693…26c0 at0009 = ╱4f╱O╱ // 0x269c @0x9
0x2693…26c0 at000a = ╱d9╱ AND ╱ // 0x269d @0xa
0x2693…26c0 at000b = ╱43╱C╱ // 0x269e @0xb
0x2693…26c0 at000c = ╱37╱7╱ // 0x269f @0xc
0x2693…26c0 at000d = ╱e1╱ > ╱ // 0x26a0 @0xd
0x2693…26c0 at000e = ╱4f╱O╱ // 0x26a1 @0xe
0x2693…26c0 at000f = ╱b5╱ THEN ╱ // 0x26a2 @0xf
0x2693…26c0 at0010 = ╱86╱ LET ╱ // 0x26a3 @0x10
0x2693…26c0 at0011 = ╱46╱F╱ // 0x26a4 @0x11
0x2693…26c0 at0012 = ╱49╱I╱ // 0x26a5 @0x12
0x2693…26c0 at0013 = ╱4c╱L╱ // 0x26a6 @0x13
0x2693…26c0 at0014 = ╱ef╱ $ ╱ // 0x26a7 @0x14
0x2693…26c0 at0015 = ╱f0╱ := ╱ // 0x26a8 @0x15
0x2693…26c0 at0016 = ╱22╱"╱ // 0x26a9 @0x16
0x2693…26c0 at0017 = ╱64╱d╱ // 0x26aa @0x17
0x2693…26c0 at0018 = ╱64╱d╱ // 0x26ab @0x18
0x2693…26c0 at0019 = ╱65╱e╱ // 0x26ac @0x19
0x2693…26c0 at001a = ╱3a╱:╱ // 0x26ad @0x1a
0x2693…26c0 at001b = ╱73╱s╱ // 0x26ae @0x1b
0x2693…26c0 at001c = ╱6b╱k╱ // 0x26af @0x1c
0x2693…26c0 at001d = ╱61╱a╱ // 0x26b0 @0x1d
0x2693…26c0 at001e = ╱74╱t╱ // 0x26b1 @0x1e
0x2693…26c0 at001f = ╱66╱f╱ // 0x26b2 @0x1f
0x2693…26c0 at0020 = ╱65╱e╱ // 0x26b3 @0x20
0x2693…26c0 at0021 = ╱6a╱j╱ // 0x26b4 @0x21
0x2693…26c0 at0022 = ╱68╱h╱ // 0x26b5 @0x22
0x2693…26c0 at0023 = ╱22╱"╱ // 0x26b6 @0x23
0x2693…26c0 at0024 = ╱ea╱ ; ╱ // 0x26b7 @0x24
0x2693…26c0 at0025 = ╱46╱F╱ // 0x26b8 @0x25
0x2693…26c0 at0026 = ╱45╱E╱ // 0x26b9 @0x26
0x2693…26c0 at0027 = ╱f0╱ := ╱ // 0x26ba @0x27
0x2693…26c0 at0028 = ╱31╱1╱ // 0x26bb @0x28
0x2693…26c0 at0029 = ╱f20100╱ // 0x26bc @0x29
0x2693…26c0 at002c = EOL // 0x26bf @0x2c
0x2693…26c0 }
0x26c0…26e5 bcd3 02235 IF IL $ ( 9 : 3 ) = "fej" AND FE = 1 THEN
0x26c0…26e5 LineComal80 {
0x26c0…26e5 ptr = 0xbcd3 // 0x26c0 @0x0
0x26c0…26e5 lno = 0x08bb // 0x26c2 @0x2
0x26c0…26e5 at0004 = ╱9b0046╱ IF ╱ // 0x26c4 @0x4
0x26c0…26e5 at0007 = ╱49╱I╱ // 0x26c7 @0x7
0x26c0…26e5 at0008 = ╱4c╱L╱ // 0x26c8 @0x8
0x26c0…26e5 at0009 = ╱ef╱ $ ╱ // 0x26c9 @0x9
0x26c0…26e5 at000a = ╱ed╱ ( ╱ // 0x26ca @0xa
0x26c0…26e5 at000b = ╱39╱9╱ // 0x26cb @0xb
0x26c0…26e5 at000c = ╱f20900╱ // 0x26cc @0xc
0x26c0…26e5 at000f = ╱f1╱ : ╱ // 0x26cf @0xf
0x26c0…26e5 at0010 = ╱33╱3╱ // 0x26d0 @0x10
0x26c0…26e5 at0011 = ╱f20300╱ // 0x26d1 @0x11
0x26c0…26e5 at0014 = ╱ee╱ ) ╱ // 0x26d4 @0x14
0x26c0…26e5 at0015 = ╱df╱ = ╱ // 0x26d5 @0x15
0x26c0…26e5 at0016 = ╱22╱"╱ // 0x26d6 @0x16
0x26c0…26e5 at0017 = ╱66╱f╱ // 0x26d7 @0x17
0x26c0…26e5 at0018 = ╱65╱e╱ // 0x26d8 @0x18
0x26c0…26e5 at0019 = ╱6a╱j╱ // 0x26d9 @0x19
0x26c0…26e5 at001a = ╱22╱"╱ // 0x26da @0x1a
0x26c0…26e5 at001b = ╱d9╱ AND ╱ // 0x26db @0x1b
0x26c0…26e5 at001c = ╱46╱F╱ // 0x26dc @0x1c
0x26c0…26e5 at001d = ╱45╱E╱ // 0x26dd @0x1d
0x26c0…26e5 at001e = ╱df╱ = ╱ // 0x26de @0x1e
0x26c0…26e5 at001f = ╱31╱1╱ // 0x26df @0x1f
0x26c0…26e5 at0020 = ╱f20100╱ // 0x26e0 @0x20
0x26c0…26e5 at0023 = ╱b5╱ THEN ╱ // 0x26e3 @0x23
0x26c0…26e5 at0024 = EOL // 0x26e4 @0x24
0x26c0…26e5 }
0x26e5…26f1 bcdf 02240 OPEN FIL $ , R
0x26e5…26f1 LineComal80 {
0x26e5…26f1 ptr = 0xbcdf // 0x26e5 @0x0
0x26e5…26f1 lno = 0x08c0 // 0x26e7 @0x2
0x26e5…26f1 at0004 = ╱a7╱ OPEN ╱ // 0x26e9 @0x4
0x26e5…26f1 at0005 = ╱46╱F╱ // 0x26ea @0x5
0x26e5…26f1 at0006 = ╱49╱I╱ // 0x26eb @0x6
0x26e5…26f1 at0007 = ╱4c╱L╱ // 0x26ec @0x7
0x26e5…26f1 at0008 = ╱ef╱ $ ╱ // 0x26ed @0x8
0x26e5…26f1 at0009 = ╱ec╱ , ╱ // 0x26ee @0x9
0x26e5…26f1 at000a = ╱52╱R╱ // 0x26ef @0xa
0x26e5…26f1 at000b = EOL // 0x26f0 @0xb
0x26e5…26f1 }
0x26f1…26fb bce9 02245 EXEC LFIL
0x26f1…26fb LineComal80 {
0x26f1…26fb ptr = 0xbce9 // 0x26f1 @0x0
0x26f1…26fb lno = 0x08c5 // 0x26f3 @0x2
0x26f1…26fb at0004 = ╱9d╱ EXEC ╱ // 0x26f5 @0x4
0x26f1…26fb at0005 = ╱4c╱L╱ // 0x26f6 @0x5
0x26f1…26fb at0006 = ╱46╱F╱ // 0x26f7 @0x6
0x26f1…26fb at0007 = ╱49╱I╱ // 0x26f8 @0x7
0x26f1…26fb at0008 = ╱4c╱L╱ // 0x26f9 @0x8
0x26f1…26fb at0009 = EOL // 0x26fa @0x9
0x26f1…26fb }
0x26fb…2726 bd14 02250 LET QT $ := "Det…negative…bel|b…udg|r…" ; QB := C7
0x26fb…2726 LineComal80 {
0x26fb…2726 ptr = 0xbd14 // 0x26fb @0x0
0x26fb…2726 lno = 0x08ca // 0x26fd @0x2
0x26fb…2726 at0004 = ╱86╱ LET ╱ // 0x26ff @0x4
0x26fb…2726 at0005 = ╱51╱Q╱ // 0x2700 @0x5
0x26fb…2726 at0006 = ╱54╱T╱ // 0x2701 @0x6
0x26fb…2726 at0007 = ╱ef╱ $ ╱ // 0x2702 @0x7
0x26fb…2726 at0008 = ╱f0╱ := ╱ // 0x2703 @0x8
0x26fb…2726 at0009 = ╱22╱"╱ // 0x2704 @0x9
0x26fb…2726 at000a = ╱44╱D╱ // 0x2705 @0xa
0x26fb…2726 at000b = ╱65╱e╱ // 0x2706 @0xb
0x26fb…2726 at000c = ╱74╱t╱ // 0x2707 @0xc
0x26fb…2726 at000d = ╱20╱…╱ // 0x2708 @0xd
0x26fb…2726 at000e = ╱6e╱n╱ // 0x2709 @0xe
0x26fb…2726 at000f = ╱65╱e╱ // 0x270a @0xf
0x26fb…2726 at0010 = ╱67╱g╱ // 0x270b @0x10
0x26fb…2726 at0011 = ╱61╱a╱ // 0x270c @0x11
0x26fb…2726 at0012 = ╱74╱t╱ // 0x270d @0x12
0x26fb…2726 at0013 = ╱69╱i╱ // 0x270e @0x13
0x26fb…2726 at0014 = ╱76╱v╱ // 0x270f @0x14
0x26fb…2726 at0015 = ╱65╱e╱ // 0x2710 @0x15
0x26fb…2726 at0016 = ╱20╱…╱ // 0x2711 @0x16
0x26fb…2726 at0017 = ╱62╱b╱ // 0x2712 @0x17
0x26fb…2726 at0018 = ╱65╱e╱ // 0x2713 @0x18
0x26fb…2726 at0019 = ╱6c╱l╱ // 0x2714 @0x19
0x26fb…2726 at001a = ╱7c╱|╱ // 0x2715 @0x1a
0x26fb…2726 at001b = ╱62╱b╱ // 0x2716 @0x1b
0x26fb…2726 at001c = ╱20╱…╱ // 0x2717 @0x1c
0x26fb…2726 at001d = ╱75╱u╱ // 0x2718 @0x1d
0x26fb…2726 at001e = ╱64╱d╱ // 0x2719 @0x1e
0x26fb…2726 at001f = ╱67╱g╱ // 0x271a @0x1f
0x26fb…2726 at0020 = ╱7c╱|╱ // 0x271b @0x20
0x26fb…2726 at0021 = ╱72╱r╱ // 0x271c @0x21
0x26fb…2726 at0022 = ╱20╱…╱ // 0x271d @0x22
0x26fb…2726 at0023 = ╱22╱"╱ // 0x271e @0x23
0x26fb…2726 at0024 = ╱ea╱ ; ╱ // 0x271f @0x24
0x26fb…2726 at0025 = ╱51╱Q╱ // 0x2720 @0x25
0x26fb…2726 at0026 = ╱42╱B╱ // 0x2721 @0x26
0x26fb…2726 at0027 = ╱f0╱ := ╱ // 0x2722 @0x27
0x26fb…2726 at0028 = ╱43╱C╱ // 0x2723 @0x28
0x26fb…2726 at0029 = ╱37╱7╱ // 0x2724 @0x29
0x26fb…2726 at002a = EOL // 0x2725 @0x2a
0x26fb…2726 }
0x2726…2733 bd21 02255 EXEC LSKRIV2
0x2726…2733 LineComal80 {
0x2726…2733 ptr = 0xbd21 // 0x2726 @0x0
0x2726…2733 lno = 0x08cf // 0x2728 @0x2
0x2726…2733 at0004 = ╱9d╱ EXEC ╱ // 0x272a @0x4
0x2726…2733 at0005 = ╱4c╱L╱ // 0x272b @0x5
0x2726…2733 at0006 = ╱53╱S╱ // 0x272c @0x6
0x2726…2733 at0007 = ╱4b╱K╱ // 0x272d @0x7
0x2726…2733 at0008 = ╱52╱R╱ // 0x272e @0x8
0x2726…2733 at0009 = ╱49╱I╱ // 0x272f @0x9
0x2726…2733 at000a = ╱56╱V╱ // 0x2730 @0xa
0x2726…2733 at000b = ╱32╱2╱ // 0x2731 @0xb
0x2726…2733 at000c = EOL // 0x2732 @0xc
0x2726…2733 }
0x2733…2739 bd27 02260 PRINT
0x2733…2739 LineComal80 {
0x2733…2739 ptr = 0xbd27 // 0x2733 @0x0
0x2733…2739 lno = 0x08d4 // 0x2735 @0x2
0x2733…2739 at0004 = ╱92╱ PRINT ╱ // 0x2737 @0x4
0x2733…2739 at0005 = EOL // 0x2738 @0x5
0x2733…2739 }
0x2739…273f bd2d 02265 ENDIF
0x2739…273f LineComal80 {
0x2739…273f ptr = 0xbd2d // 0x2739 @0x0
0x2739…273f lno = 0x08d9 // 0x273b @0x2
0x2739…273f at0004 = ╱9c╱ ENDIF ╱ // 0x273d @0x4
0x2739…273f at0005 = EOL // 0x273e @0x5
0x2739…273f }
0x273f…274a bd38 02270 ENDPROC TTEST
0x273f…274a LineComal80 {
0x273f…274a ptr = 0xbd38 // 0x273f @0x0
0x273f…274a lno = 0x08de // 0x2741 @0x2
0x273f…274a at0004 = ╱9f╱ ENDPROC ╱ // 0x2743 @0x4
0x273f…274a at0005 = ╱54╱T╱ // 0x2744 @0x5
0x273f…274a at0006 = ╱54╱T╱ // 0x2745 @0x6
0x273f…274a at0007 = ╱45╱E╱ // 0x2746 @0x7
0x273f…274a at0008 = ╱53╱S╱ // 0x2747 @0x8
0x273f…274a at0009 = ╱54╱T╱ // 0x2748 @0x9
0x273f…274a at000a = EOL // 0x2749 @0xa
0x273f…274a }
0x274a…2759 bd47 02275 PROC NULSTIL2
0x274a…2759 LineComal80 {
0x274a…2759 ptr = 0xbd47 // 0x274a @0x0
0x274a…2759 lno = 0x08e3 // 0x274c @0x2
0x274a…2759 at0004 = ╱9e00╱ PROC ╱ // 0x274e @0x4
0x274a…2759 at0006 = ╱4e╱N╱ // 0x2750 @0x6
0x274a…2759 at0007 = ╱55╱U╱ // 0x2751 @0x7
0x274a…2759 at0008 = ╱4c╱L╱ // 0x2752 @0x8
0x274a…2759 at0009 = ╱53╱S╱ // 0x2753 @0x9
0x274a…2759 at000a = ╱54╱T╱ // 0x2754 @0xa
0x274a…2759 at000b = ╱49╱I╱ // 0x2755 @0xb
0x274a…2759 at000c = ╱4c╱L╱ // 0x2756 @0xc
0x274a…2759 at000d = ╱32╱2╱ // 0x2757 @0xd
0x274a…2759 at000e = EOL // 0x2758 @0xe
0x274a…2759 }
0x2759…276d bd5b 02280 FOR X := 1 TO 3 DO
0x2759…276d LineComal80 {
0x2759…276d ptr = 0xbd5b // 0x2759 @0x0
0x2759…276d lno = 0x08e8 // 0x275b @0x2
0x2759…276d at0004 = ╱8300╱ FOR ╱ // 0x275d @0x4
0x2759…276d at0006 = ╱58╱X╱ // 0x275f @0x6
0x2759…276d at0007 = ╱f0╱ := ╱ // 0x2760 @0x7
0x2759…276d at0008 = ╱31╱1╱ // 0x2761 @0x8
0x2759…276d at0009 = ╱f20100╱ // 0x2762 @0x9
0x2759…276d at000c = ╱b732╱ TO ╱ // 0x2765 @0xc
0x2759…276d at000e = ╱33╱3╱ // 0x2767 @0xe
0x2759…276d at000f = ╱f21700╱ // 0x2768 @0xf
0x2759…276d at0012 = ╱bb╱ DO ╱ // 0x276b @0x12
0x2759…276d at0013 = EOL // 0x276c @0x13
0x2759…276d }
0x276d…2779 bd67 02285 LET A ( X ) := O
0x276d…2779 LineComal80 {
0x276d…2779 ptr = 0xbd67 // 0x276d @0x0
0x276d…2779 lno = 0x08ed // 0x276f @0x2
0x276d…2779 at0004 = ╱86╱ LET ╱ // 0x2771 @0x4
0x276d…2779 at0005 = ╱41╱A╱ // 0x2772 @0x5
0x276d…2779 at0006 = ╱ed╱ ( ╱ // 0x2773 @0x6
0x276d…2779 at0007 = ╱58╱X╱ // 0x2774 @0x7
0x276d…2779 at0008 = ╱ee╱ ) ╱ // 0x2775 @0x8
0x276d…2779 at0009 = ╱f0╱ := ╱ // 0x2776 @0x9
0x276d…2779 at000a = ╱4f╱O╱ // 0x2777 @0xa
0x276d…2779 at000b = EOL // 0x2778 @0xb
0x276d…2779 }
0x2779…2780 bd6e 02290 NEXT X
0x2779…2780 LineComal80 {
0x2779…2780 ptr = 0xbd6e // 0x2779 @0x0
0x2779…2780 lno = 0x08f2 // 0x277b @0x2
0x2779…2780 at0004 = ╱84╱ NEXT ╱ // 0x277d @0x4
0x2779…2780 at0005 = ╱58╱X╱ // 0x277e @0x5
0x2779…2780 at0006 = EOL // 0x277f @0x6
0x2779…2780 }
0x2780…278e bd7c 02295 ENDPROC NULSTIL2
0x2780…278e LineComal80 {
0x2780…278e ptr = 0xbd7c // 0x2780 @0x0
0x2780…278e lno = 0x08f7 // 0x2782 @0x2
0x2780…278e at0004 = ╱9f╱ ENDPROC ╱ // 0x2784 @0x4
0x2780…278e at0005 = ╱4e╱N╱ // 0x2785 @0x5
0x2780…278e at0006 = ╱55╱U╱ // 0x2786 @0x6
0x2780…278e at0007 = ╱4c╱L╱ // 0x2787 @0x7
0x2780…278e at0008 = ╱53╱S╱ // 0x2788 @0x8
0x2780…278e at0009 = ╱54╱T╱ // 0x2789 @0x9
0x2780…278e at000a = ╱49╱I╱ // 0x278a @0xa
0x2780…278e at000b = ╱4c╱L╱ // 0x278b @0xb
0x2780…278e at000c = ╱32╱2╱ // 0x278c @0xc
0x2780…278e at000d = EOL // 0x278d @0xd
0x2780…278e }
0x278e…279d bd8b 02300 PROC S[TATILH
0x278e…279d LineComal80 {
0x278e…279d ptr = 0xbd8b // 0x278e @0x0
0x278e…279d lno = 0x08fc // 0x2790 @0x2
0x278e…279d at0004 = ╱9e00╱ PROC ╱ // 0x2792 @0x4
0x278e…279d at0006 = ╱53╱S╱ // 0x2794 @0x6
0x278e…279d at0007 = ╱5b╱[╱ // 0x2795 @0x7
0x278e…279d at0008 = ╱54╱T╱ // 0x2796 @0x8
0x278e…279d at0009 = ╱41╱A╱ // 0x2797 @0x9
0x278e…279d at000a = ╱54╱T╱ // 0x2798 @0xa
0x278e…279d at000b = ╱49╱I╱ // 0x2799 @0xb
0x278e…279d at000c = ╱4c╱L╱ // 0x279a @0xc
0x278e…279d at000d = ╱48╱H╱ // 0x279b @0xd
0x278e…279d at000e = EOL // 0x279c @0xe
0x278e…279d }
0x279d…27b1 bd9f 02305 FOR X := 1 TO 3 DO
0x279d…27b1 LineComal80 {
0x279d…27b1 ptr = 0xbd9f // 0x279d @0x0
0x279d…27b1 lno = 0x0901 // 0x279f @0x2
0x279d…27b1 at0004 = ╱8300╱ FOR ╱ // 0x27a1 @0x4
0x279d…27b1 at0006 = ╱58╱X╱ // 0x27a3 @0x6
0x279d…27b1 at0007 = ╱f0╱ := ╱ // 0x27a4 @0x7
0x279d…27b1 at0008 = ╱31╱1╱ // 0x27a5 @0x8
0x279d…27b1 at0009 = ╱f20100╱ // 0x27a6 @0x9
0x279d…27b1 at000c = ╱b732╱ TO ╱ // 0x27a9 @0xc
0x279d…27b1 at000e = ╱33╱3╱ // 0x27ab @0xe
0x279d…27b1 at000f = ╱f21700╱ // 0x27ac @0xf
0x279d…27b1 at0012 = ╱bb╱ DO ╱ // 0x27af @0x12
0x279d…27b1 at0013 = EOL // 0x27b0 @0x13
0x279d…27b1 }
0x27b1…27c0 bdae 02310 LET A ( X ) := H ( X )
0x27b1…27c0 LineComal80 {
0x27b1…27c0 ptr = 0xbdae // 0x27b1 @0x0
0x27b1…27c0 lno = 0x0906 // 0x27b3 @0x2
0x27b1…27c0 at0004 = ╱86╱ LET ╱ // 0x27b5 @0x4
0x27b1…27c0 at0005 = ╱41╱A╱ // 0x27b6 @0x5
0x27b1…27c0 at0006 = ╱ed╱ ( ╱ // 0x27b7 @0x6
0x27b1…27c0 at0007 = ╱58╱X╱ // 0x27b8 @0x7
0x27b1…27c0 at0008 = ╱ee╱ ) ╱ // 0x27b9 @0x8
0x27b1…27c0 at0009 = ╱f0╱ := ╱ // 0x27ba @0x9
0x27b1…27c0 at000a = ╱48╱H╱ // 0x27bb @0xa
0x27b1…27c0 at000b = ╱ed╱ ( ╱ // 0x27bc @0xb
0x27b1…27c0 at000c = ╱58╱X╱ // 0x27bd @0xc
0x27b1…27c0 at000d = ╱ee╱ ) ╱ // 0x27be @0xd
0x27b1…27c0 at000e = EOL // 0x27bf @0xe
0x27b1…27c0 }
0x27c0…27c7 bdb5 02315 NEXT X
0x27c0…27c7 LineComal80 {
0x27c0…27c7 ptr = 0xbdb5 // 0x27c0 @0x0
0x27c0…27c7 lno = 0x090b // 0x27c2 @0x2
0x27c0…27c7 at0004 = ╱84╱ NEXT ╱ // 0x27c4 @0x4
0x27c0…27c7 at0005 = ╱58╱X╱ // 0x27c5 @0x5
0x27c0…27c7 at0006 = EOL // 0x27c6 @0x6
0x27c0…27c7 }
0x27c7…27d5 bdc3 02320 ENDPROC S[TATILH
0x27c7…27d5 LineComal80 {
0x27c7…27d5 ptr = 0xbdc3 // 0x27c7 @0x0
0x27c7…27d5 lno = 0x0910 // 0x27c9 @0x2
0x27c7…27d5 at0004 = ╱9f╱ ENDPROC ╱ // 0x27cb @0x4
0x27c7…27d5 at0005 = ╱53╱S╱ // 0x27cc @0x5
0x27c7…27d5 at0006 = ╱5b╱[╱ // 0x27cd @0x6
0x27c7…27d5 at0007 = ╱54╱T╱ // 0x27ce @0x7
0x27c7…27d5 at0008 = ╱41╱A╱ // 0x27cf @0x8
0x27c7…27d5 at0009 = ╱54╱T╱ // 0x27d0 @0x9
0x27c7…27d5 at000a = ╱49╱I╱ // 0x27d1 @0xa
0x27c7…27d5 at000b = ╱4c╱L╱ // 0x27d2 @0xb
0x27c7…27d5 at000c = ╱48╱H╱ // 0x27d3 @0xc
0x27c7…27d5 at000d = EOL // 0x27d4 @0xd
0x27c7…27d5 }
0x27d5…27e4 bdd2 02325 PROC S[TATILK
0x27d5…27e4 LineComal80 {
0x27d5…27e4 ptr = 0xbdd2 // 0x27d5 @0x0
0x27d5…27e4 lno = 0x0915 // 0x27d7 @0x2
0x27d5…27e4 at0004 = ╱9e00╱ PROC ╱ // 0x27d9 @0x4
0x27d5…27e4 at0006 = ╱53╱S╱ // 0x27db @0x6
0x27d5…27e4 at0007 = ╱5b╱[╱ // 0x27dc @0x7
0x27d5…27e4 at0008 = ╱54╱T╱ // 0x27dd @0x8
0x27d5…27e4 at0009 = ╱41╱A╱ // 0x27de @0x9
0x27d5…27e4 at000a = ╱54╱T╱ // 0x27df @0xa
0x27d5…27e4 at000b = ╱49╱I╱ // 0x27e0 @0xb
0x27d5…27e4 at000c = ╱4c╱L╱ // 0x27e1 @0xc
0x27d5…27e4 at000d = ╱4b╱K╱ // 0x27e2 @0xd
0x27d5…27e4 at000e = EOL // 0x27e3 @0xe
0x27d5…27e4 }
0x27e4…27f8 bde6 02330 FOR X := 1 TO 3 DO
0x27e4…27f8 LineComal80 {
0x27e4…27f8 ptr = 0xbde6 // 0x27e4 @0x0
0x27e4…27f8 lno = 0x091a // 0x27e6 @0x2
0x27e4…27f8 at0004 = ╱8300╱ FOR ╱ // 0x27e8 @0x4
0x27e4…27f8 at0006 = ╱58╱X╱ // 0x27ea @0x6
0x27e4…27f8 at0007 = ╱f0╱ := ╱ // 0x27eb @0x7
0x27e4…27f8 at0008 = ╱31╱1╱ // 0x27ec @0x8
0x27e4…27f8 at0009 = ╱f20100╱ // 0x27ed @0x9
0x27e4…27f8 at000c = ╱b732╱ TO ╱ // 0x27f0 @0xc
0x27e4…27f8 at000e = ╱33╱3╱ // 0x27f2 @0xe
0x27e4…27f8 at000f = ╱f21700╱ // 0x27f3 @0xf
0x27e4…27f8 at0012 = ╱bb╱ DO ╱ // 0x27f6 @0x12
0x27e4…27f8 at0013 = EOL // 0x27f7 @0x13
0x27e4…27f8 }
0x27f8…2807 bdf5 02335 LET A ( X ) := K ( X )
0x27f8…2807 LineComal80 {
0x27f8…2807 ptr = 0xbdf5 // 0x27f8 @0x0
0x27f8…2807 lno = 0x091f // 0x27fa @0x2
0x27f8…2807 at0004 = ╱86╱ LET ╱ // 0x27fc @0x4
0x27f8…2807 at0005 = ╱41╱A╱ // 0x27fd @0x5
0x27f8…2807 at0006 = ╱ed╱ ( ╱ // 0x27fe @0x6
0x27f8…2807 at0007 = ╱58╱X╱ // 0x27ff @0x7
0x27f8…2807 at0008 = ╱ee╱ ) ╱ // 0x2800 @0x8
0x27f8…2807 at0009 = ╱f0╱ := ╱ // 0x2801 @0x9
0x27f8…2807 at000a = ╱4b╱K╱ // 0x2802 @0xa
0x27f8…2807 at000b = ╱ed╱ ( ╱ // 0x2803 @0xb
0x27f8…2807 at000c = ╱58╱X╱ // 0x2804 @0xc
0x27f8…2807 at000d = ╱ee╱ ) ╱ // 0x2805 @0xd
0x27f8…2807 at000e = EOL // 0x2806 @0xe
0x27f8…2807 }
0x2807…280e bdfc 02340 NEXT X
0x2807…280e LineComal80 {
0x2807…280e ptr = 0xbdfc // 0x2807 @0x0
0x2807…280e lno = 0x0924 // 0x2809 @0x2
0x2807…280e at0004 = ╱84╱ NEXT ╱ // 0x280b @0x4
0x2807…280e at0005 = ╱58╱X╱ // 0x280c @0x5
0x2807…280e at0006 = EOL // 0x280d @0x6
0x2807…280e }
0x280e…281c be0a 02345 ENDPROC S[TATILK
0x280e…281c LineComal80 {
0x280e…281c ptr = 0xbe0a // 0x280e @0x0
0x280e…281c lno = 0x0929 // 0x2810 @0x2
0x280e…281c at0004 = ╱9f╱ ENDPROC ╱ // 0x2812 @0x4
0x280e…281c at0005 = ╱53╱S╱ // 0x2813 @0x5
0x280e…281c at0006 = ╱5b╱[╱ // 0x2814 @0x6
0x280e…281c at0007 = ╱54╱T╱ // 0x2815 @0x7
0x280e…281c at0008 = ╱41╱A╱ // 0x2816 @0x8
0x280e…281c at0009 = ╱54╱T╱ // 0x2817 @0x9
0x280e…281c at000a = ╱49╱I╱ // 0x2818 @0xa
0x280e…281c at000b = ╱4c╱L╱ // 0x2819 @0xb
0x280e…281c at000c = ╱4b╱K╱ // 0x281a @0xc
0x280e…281c at000d = EOL // 0x281b @0xd
0x280e…281c }
0x281c…282b be19 02350 PROC S[THTILA
0x281c…282b LineComal80 {
0x281c…282b ptr = 0xbe19 // 0x281c @0x0
0x281c…282b lno = 0x092e // 0x281e @0x2
0x281c…282b at0004 = ╱9e00╱ PROC ╱ // 0x2820 @0x4
0x281c…282b at0006 = ╱53╱S╱ // 0x2822 @0x6
0x281c…282b at0007 = ╱5b╱[╱ // 0x2823 @0x7
0x281c…282b at0008 = ╱54╱T╱ // 0x2824 @0x8
0x281c…282b at0009 = ╱48╱H╱ // 0x2825 @0x9
0x281c…282b at000a = ╱54╱T╱ // 0x2826 @0xa
0x281c…282b at000b = ╱49╱I╱ // 0x2827 @0xb
0x281c…282b at000c = ╱4c╱L╱ // 0x2828 @0xc
0x281c…282b at000d = ╱41╱A╱ // 0x2829 @0xd
0x281c…282b at000e = EOL // 0x282a @0xe
0x281c…282b }
0x282b…283f be2d 02355 FOR X := 1 TO 3 DO
0x282b…283f LineComal80 {
0x282b…283f ptr = 0xbe2d // 0x282b @0x0
0x282b…283f lno = 0x0933 // 0x282d @0x2
0x282b…283f at0004 = ╱8300╱ FOR ╱ // 0x282f @0x4
0x282b…283f at0006 = ╱58╱X╱ // 0x2831 @0x6
0x282b…283f at0007 = ╱f0╱ := ╱ // 0x2832 @0x7
0x282b…283f at0008 = ╱31╱1╱ // 0x2833 @0x8
0x282b…283f at0009 = ╱f20100╱ // 0x2834 @0x9
0x282b…283f at000c = ╱b732╱ TO ╱ // 0x2837 @0xc
0x282b…283f at000e = ╱33╱3╱ // 0x2839 @0xe
0x282b…283f at000f = ╱f21700╱ // 0x283a @0xf
0x282b…283f at0012 = ╱bb╱ DO ╱ // 0x283d @0x12
0x282b…283f at0013 = EOL // 0x283e @0x13
0x282b…283f }
0x283f…284e be3c 02360 LET H ( X ) := A ( X )
0x283f…284e LineComal80 {
0x283f…284e ptr = 0xbe3c // 0x283f @0x0
0x283f…284e lno = 0x0938 // 0x2841 @0x2
0x283f…284e at0004 = ╱86╱ LET ╱ // 0x2843 @0x4
0x283f…284e at0005 = ╱48╱H╱ // 0x2844 @0x5
0x283f…284e at0006 = ╱ed╱ ( ╱ // 0x2845 @0x6
0x283f…284e at0007 = ╱58╱X╱ // 0x2846 @0x7
0x283f…284e at0008 = ╱ee╱ ) ╱ // 0x2847 @0x8
0x283f…284e at0009 = ╱f0╱ := ╱ // 0x2848 @0x9
0x283f…284e at000a = ╱41╱A╱ // 0x2849 @0xa
0x283f…284e at000b = ╱ed╱ ( ╱ // 0x284a @0xb
0x283f…284e at000c = ╱58╱X╱ // 0x284b @0xc
0x283f…284e at000d = ╱ee╱ ) ╱ // 0x284c @0xd
0x283f…284e at000e = EOL // 0x284d @0xe
0x283f…284e }
0x284e…2855 (134,) be43 02365 NEXT X
0x284e…2855 LineComal80 {
0x284e…2855 ptr = 0xbe43 // 0x284e @0x0
0x284e…2855 lno = 0x093d // 0x2850 @0x2
0x284e…2855 at0004 = ╱84╱ NEXT ╱ // 0x2852 @0x4
0x284e…2855 at0005 = ╱58╱X╱ // 0x2853 @0x5
0x284e…2855 at0006 = EOL // 0x2854 @0x6
0x284e…2855 }
0x2855…2863 be51 02370 ENDPROC S[THTILA
0x2855…2863 LineComal80 {
0x2855…2863 ptr = 0xbe51 // 0x2855 @0x0
0x2855…2863 lno = 0x0942 // 0x2857 @0x2
0x2855…2863 at0004 = ╱9f╱ ENDPROC ╱ // 0x2859 @0x4
0x2855…2863 at0005 = ╱53╱S╱ // 0x285a @0x5
0x2855…2863 at0006 = ╱5b╱[╱ // 0x285b @0x6
0x2855…2863 at0007 = ╱54╱T╱ // 0x285c @0x7
0x2855…2863 at0008 = ╱48╱H╱ // 0x285d @0x8
0x2855…2863 at0009 = ╱54╱T╱ // 0x285e @0x9
0x2855…2863 at000a = ╱49╱I╱ // 0x285f @0xa
0x2855…2863 at000b = ╱4c╱L╱ // 0x2860 @0xb
0x2855…2863 at000c = ╱41╱A╱ // 0x2861 @0xc
0x2855…2863 at000d = EOL // 0x2862 @0xd
0x2855…2863 }
0x2863…2872 be60 02375 PROC S[TKTILA
0x2863…2872 LineComal80 {
0x2863…2872 ptr = 0xbe60 // 0x2863 @0x0
0x2863…2872 lno = 0x0947 // 0x2865 @0x2
0x2863…2872 at0004 = ╱9e00╱ PROC ╱ // 0x2867 @0x4
0x2863…2872 at0006 = ╱53╱S╱ // 0x2869 @0x6
0x2863…2872 at0007 = ╱5b╱[╱ // 0x286a @0x7
0x2863…2872 at0008 = ╱54╱T╱ // 0x286b @0x8
0x2863…2872 at0009 = ╱4b╱K╱ // 0x286c @0x9
0x2863…2872 at000a = ╱54╱T╱ // 0x286d @0xa
0x2863…2872 at000b = ╱49╱I╱ // 0x286e @0xb
0x2863…2872 at000c = ╱4c╱L╱ // 0x286f @0xc
0x2863…2872 at000d = ╱41╱A╱ // 0x2870 @0xd
0x2863…2872 at000e = EOL // 0x2871 @0xe
0x2863…2872 }
0x2872…2886 be74 02380 FOR X := 1 TO 3 DO
0x2872…2886 LineComal80 {
0x2872…2886 ptr = 0xbe74 // 0x2872 @0x0
0x2872…2886 lno = 0x094c // 0x2874 @0x2
0x2872…2886 at0004 = ╱8300╱ FOR ╱ // 0x2876 @0x4
0x2872…2886 at0006 = ╱58╱X╱ // 0x2878 @0x6
0x2872…2886 at0007 = ╱f0╱ := ╱ // 0x2879 @0x7
0x2872…2886 at0008 = ╱31╱1╱ // 0x287a @0x8
0x2872…2886 at0009 = ╱f20100╱ // 0x287b @0x9
0x2872…2886 at000c = ╱b732╱ TO ╱ // 0x287e @0xc
0x2872…2886 at000e = ╱33╱3╱ // 0x2880 @0xe
0x2872…2886 at000f = ╱f21700╱ // 0x2881 @0xf
0x2872…2886 at0012 = ╱bb╱ DO ╱ // 0x2884 @0x12
0x2872…2886 at0013 = EOL // 0x2885 @0x13
0x2872…2886 }
0x2886…2895 be83 02385 LET K ( X ) := A ( X )
0x2886…2895 LineComal80 {
0x2886…2895 ptr = 0xbe83 // 0x2886 @0x0
0x2886…2895 lno = 0x0951 // 0x2888 @0x2
0x2886…2895 at0004 = ╱86╱ LET ╱ // 0x288a @0x4
0x2886…2895 at0005 = ╱4b╱K╱ // 0x288b @0x5
0x2886…2895 at0006 = ╱ed╱ ( ╱ // 0x288c @0x6
0x2886…2895 at0007 = ╱58╱X╱ // 0x288d @0x7
0x2886…2895 at0008 = ╱ee╱ ) ╱ // 0x288e @0x8
0x2886…2895 at0009 = ╱f0╱ := ╱ // 0x288f @0x9
0x2886…2895 at000a = ╱41╱A╱ // 0x2890 @0xa
0x2886…2895 at000b = ╱ed╱ ( ╱ // 0x2891 @0xb
0x2886…2895 at000c = ╱58╱X╱ // 0x2892 @0xc
0x2886…2895 at000d = ╱ee╱ ) ╱ // 0x2893 @0xd
0x2886…2895 at000e = EOL // 0x2894 @0xe
0x2886…2895 }
0x2895…289c be8a 02390 NEXT X
0x2895…289c LineComal80 {
0x2895…289c ptr = 0xbe8a // 0x2895 @0x0
0x2895…289c lno = 0x0956 // 0x2897 @0x2
0x2895…289c at0004 = ╱84╱ NEXT ╱ // 0x2899 @0x4
0x2895…289c at0005 = ╱58╱X╱ // 0x289a @0x5
0x2895…289c at0006 = EOL // 0x289b @0x6
0x2895…289c }
0x289c…28aa be98 02395 ENDPROC S[TKTILA
0x289c…28aa LineComal80 {
0x289c…28aa ptr = 0xbe98 // 0x289c @0x0
0x289c…28aa lno = 0x095b // 0x289e @0x2
0x289c…28aa at0004 = ╱9f╱ ENDPROC ╱ // 0x28a0 @0x4
0x289c…28aa at0005 = ╱53╱S╱ // 0x28a1 @0x5
0x289c…28aa at0006 = ╱5b╱[╱ // 0x28a2 @0x6
0x289c…28aa at0007 = ╱54╱T╱ // 0x28a3 @0x7
0x289c…28aa at0008 = ╱4b╱K╱ // 0x28a4 @0x8
0x289c…28aa at0009 = ╱54╱T╱ // 0x28a5 @0x9
0x289c…28aa at000a = ╱49╱I╱ // 0x28a6 @0xa
0x289c…28aa at000b = ╱4c╱L╱ // 0x28a7 @0xb
0x289c…28aa at000c = ╱41╱A╱ // 0x28a8 @0xc
0x289c…28aa at000d = EOL // 0x28a9 @0xd
0x289c…28aa }
0x28aa…28b8 bea6 02400 PROC SKATIND
0x28aa…28b8 LineComal80 {
0x28aa…28b8 ptr = 0xbea6 // 0x28aa @0x0
0x28aa…28b8 lno = 0x0960 // 0x28ac @0x2
0x28aa…28b8 at0004 = ╱9e00╱ PROC ╱ // 0x28ae @0x4
0x28aa…28b8 at0006 = ╱53╱S╱ // 0x28b0 @0x6
0x28aa…28b8 at0007 = ╱4b╱K╱ // 0x28b1 @0x7
0x28aa…28b8 at0008 = ╱41╱A╱ // 0x28b2 @0x8
0x28aa…28b8 at0009 = ╱54╱T╱ // 0x28b3 @0x9
0x28aa…28b8 at000a = ╱49╱I╱ // 0x28b4 @0xa
0x28aa…28b8 at000b = ╱4e╱N╱ // 0x28b5 @0xb
0x28aa…28b8 at000c = ╱44╱D╱ // 0x28b6 @0xc
0x28aa…28b8 at000d = EOL // 0x28b7 @0xd
0x28aa…28b8 }
0x28b8…28cb beb9 02405 LET S $ := NU $ + "…KR."
0x28b8…28cb LineComal80 {
0x28b8…28cb ptr = 0xbeb9 // 0x28b8 @0x0
0x28b8…28cb lno = 0x0965 // 0x28ba @0x2
0x28b8…28cb at0004 = ╱86╱ LET ╱ // 0x28bc @0x4
0x28b8…28cb at0005 = ╱53╱S╱ // 0x28bd @0x5
0x28b8…28cb at0006 = ╱ef╱ $ ╱ // 0x28be @0x6
0x28b8…28cb at0007 = ╱f0╱ := ╱ // 0x28bf @0x7
0x28b8…28cb at0008 = ╱4e╱N╱ // 0x28c0 @0x8
0x28b8…28cb at0009 = ╱55╱U╱ // 0x28c1 @0x9
0x28b8…28cb at000a = ╱ef╱ $ ╱ // 0x28c2 @0xa
0x28b8…28cb at000b = ╱eb╱ + ╱ // 0x28c3 @0xb
0x28b8…28cb at000c = ╱22╱"╱ // 0x28c4 @0xc
0x28b8…28cb at000d = ╱20╱…╱ // 0x28c5 @0xd
0x28b8…28cb at000e = ╱4b╱K╱ // 0x28c6 @0xe
0x28b8…28cb at000f = ╱52╱R╱ // 0x28c7 @0xf
0x28b8…28cb at0010 = ╱2e╱.╱ // 0x28c8 @0x10
0x28b8…28cb at0011 = ╱22╱"╱ // 0x28c9 @0x11
0x28b8…28cb at0012 = EOL // 0x28ca @0x12
0x28b8…28cb }
0x28cb…28d8 bec6 02410 EXEC LSKRIV3
0x28cb…28d8 LineComal80 {
0x28cb…28d8 ptr = 0xbec6 // 0x28cb @0x0
0x28cb…28d8 lno = 0x096a // 0x28cd @0x2
0x28cb…28d8 at0004 = ╱9d╱ EXEC ╱ // 0x28cf @0x4
0x28cb…28d8 at0005 = ╱4c╱L╱ // 0x28d0 @0x5
0x28cb…28d8 at0006 = ╱53╱S╱ // 0x28d1 @0x6
0x28cb…28d8 at0007 = ╱4b╱K╱ // 0x28d2 @0x7
0x28cb…28d8 at0008 = ╱52╱R╱ // 0x28d3 @0x8
0x28cb…28d8 at0009 = ╱49╱I╱ // 0x28d4 @0x9
0x28cb…28d8 at000a = ╱56╱V╱ // 0x28d5 @0xa
0x28cb…28d8 at000b = ╱33╱3╱ // 0x28d6 @0xb
0x28cb…28d8 at000c = EOL // 0x28d7 @0xc
0x28cb…28d8 }
0x28d8…28de becc 02415 PRINT
0x28d8…28de LineComal80 {
0x28d8…28de ptr = 0xbecc // 0x28d8 @0x0
0x28d8…28de lno = 0x096f // 0x28da @0x2
0x28d8…28de at0004 = ╱92╱ PRINT ╱ // 0x28dc @0x4
0x28d8…28de at0005 = EOL // 0x28dd @0x5
0x28d8…28de }
0x28de…28f2 bee0 02420 LET C7 , C7IK , C7FR := O
0x28de…28f2 LineComal80 {
0x28de…28f2 ptr = 0xbee0 // 0x28de @0x0
0x28de…28f2 lno = 0x0974 // 0x28e0 @0x2
0x28de…28f2 at0004 = ╱86╱ LET ╱ // 0x28e2 @0x4
0x28de…28f2 at0005 = ╱43╱C╱ // 0x28e3 @0x5
0x28de…28f2 at0006 = ╱37╱7╱ // 0x28e4 @0x6
0x28de…28f2 at0007 = ╱ec╱ , ╱ // 0x28e5 @0x7
0x28de…28f2 at0008 = ╱43╱C╱ // 0x28e6 @0x8
0x28de…28f2 at0009 = ╱37╱7╱ // 0x28e7 @0x9
0x28de…28f2 at000a = ╱49╱I╱ // 0x28e8 @0xa
0x28de…28f2 at000b = ╱4b╱K╱ // 0x28e9 @0xb
0x28de…28f2 at000c = ╱ec╱ , ╱ // 0x28ea @0xc
0x28de…28f2 at000d = ╱43╱C╱ // 0x28eb @0xd
0x28de…28f2 at000e = ╱37╱7╱ // 0x28ec @0xe
0x28de…28f2 at000f = ╱46╱F╱ // 0x28ed @0xf
0x28de…28f2 at0010 = ╱52╱R╱ // 0x28ee @0x10
0x28de…28f2 at0011 = ╱f0╱ := ╱ // 0x28ef @0x11
0x28de…28f2 at0012 = ╱4f╱O╱ // 0x28f0 @0x12
0x28de…28f2 at0013 = EOL // 0x28f1 @0x13
0x28de…28f2 }
0x28f2…2906 bef4 02425 FOR X := 1 TO 2 DO
0x28f2…2906 LineComal80 {
0x28f2…2906 ptr = 0xbef4 // 0x28f2 @0x0
0x28f2…2906 lno = 0x0979 // 0x28f4 @0x2
0x28f2…2906 at0004 = ╱8300╱ FOR ╱ // 0x28f6 @0x4
0x28f2…2906 at0006 = ╱58╱X╱ // 0x28f8 @0x6
0x28f2…2906 at0007 = ╱f0╱ := ╱ // 0x28f9 @0x7
0x28f2…2906 at0008 = ╱31╱1╱ // 0x28fa @0x8
0x28f2…2906 at0009 = ╱f20100╱ // 0x28fb @0x9
0x28f2…2906 at000c = ╱b731╱ TO ╱ // 0x28fe @0xc
0x28f2…2906 at000e = ╱32╱2╱ // 0x2900 @0xe
0x28f2…2906 at000f = ╱f20c00╱ // 0x2901 @0xf
0x28f2…2906 at0012 = ╱bb╱ DO ╱ // 0x2904 @0x12
0x28f2…2906 at0013 = EOL // 0x2905 @0x13
0x28f2…2906 }
0x2906…291e bf0c 02430 PRINT A1 $ ( X , 5 : 25 ) ;
0x2906…291e LineComal80 {
0x2906…291e ptr = 0xbf0c // 0x2906 @0x0
0x2906…291e lno = 0x097e // 0x2908 @0x2
0x2906…291e at0004 = ╱92╱ PRINT ╱ // 0x290a @0x4
0x2906…291e at0005 = ╱41╱A╱ // 0x290b @0x5
0x2906…291e at0006 = ╱31╱1╱ // 0x290c @0x6
0x2906…291e at0007 = ╱ef╱ $ ╱ // 0x290d @0x7
0x2906…291e at0008 = ╱ed╱ ( ╱ // 0x290e @0x8
0x2906…291e at0009 = ╱58╱X╱ // 0x290f @0x9
0x2906…291e at000a = ╱ec╱ , ╱ // 0x2910 @0xa
0x2906…291e at000b = ╱35╱5╱ // 0x2911 @0xb
0x2906…291e at000c = ╱f20500╱ // 0x2912 @0xc
0x2906…291e at000f = ╱f1╱ : ╱ // 0x2915 @0xf
0x2906…291e at0010 = ╱32╱2╱ // 0x2916 @0x10
0x2906…291e at0011 = ╱35╱5╱ // 0x2917 @0x11
0x2906…291e at0012 = ╱f21900╱ // 0x2918 @0x12
0x2906…291e at0015 = ╱ee╱ ) ╱ // 0x291b @0x15
0x2906…291e at0016 = ╱ea╱ ; ╱ // 0x291c @0x16
0x2906…291e at0017 = EOL // 0x291d @0x17
0x2906…291e }
0x291e…2936 bf24 02435 IF A ( X ) >< O THEN PRINT USING S $ : A ( X ) ;
0x291e…2936 LineComal80 {
0x291e…2936 ptr = 0xbf24 // 0x291e @0x0
0x291e…2936 lno = 0x0983 // 0x2920 @0x2
0x291e…2936 at0004 = ╱8200╱ IF ╱ // 0x2922 @0x4
0x291e…2936 at0006 = ╱41╱A╱ // 0x2924 @0x6
0x291e…2936 at0007 = ╱ed╱ ( ╱ // 0x2925 @0x7
0x291e…2936 at0008 = ╱58╱X╱ // 0x2926 @0x8
0x291e…2936 at0009 = ╱ee╱ ) ╱ // 0x2927 @0x9
0x291e…2936 at000a = ╱e4╱ >< ╱ // 0x2928 @0xa
0x291e…2936 at000b = ╱4f╱O╱ // 0x2929 @0xb
0x291e…2936 at000c = ╱b5╱ THEN ╱ // 0x292a @0xc
0x291e…2936 at000d = ╱92╱ PRINT ╱ // 0x292b @0xd
0x291e…2936 at000e = ╱b9╱ USING ╱ // 0x292c @0xe
0x291e…2936 at000f = ╱53╱S╱ // 0x292d @0xf
0x291e…2936 at0010 = ╱ef╱ $ ╱ // 0x292e @0x10
0x291e…2936 at0011 = ╱f1╱ : ╱ // 0x292f @0x11
0x291e…2936 at0012 = ╱41╱A╱ // 0x2930 @0x12
0x291e…2936 at0013 = ╱ed╱ ( ╱ // 0x2931 @0x13
0x291e…2936 at0014 = ╱58╱X╱ // 0x2932 @0x14
0x291e…2936 at0015 = ╱ee╱ ) ╱ // 0x2933 @0x15
0x291e…2936 at0016 = ╱ea╱ ; ╱ // 0x2934 @0x16
0x291e…2936 at0017 = EOL // 0x2935 @0x17
0x291e…2936 }
0x2936…2945 bf33 02440 IF < 12 THEN
0x2936…2945 LineComal80 {
0x2936…2945 ptr = 0xbf33 // 0x2936 @0x0
0x2936…2945 lno = 0x0988 // 0x2938 @0x2
0x2936…2945 at0004 = ╱9b0058╱ IF ╱ // 0x293a @0x4
0x2936…2945 at0007 = ╱e0╱ < ╱ // 0x293d @0x7
0x2936…2945 at0008 = ╱31╱1╱ // 0x293e @0x8
0x2936…2945 at0009 = ╱32╱2╱ // 0x293f @0x9
0x2936…2945 at000a = ╱f20c00╱ // 0x2940 @0xa
0x2936…2945 at000d = ╱b5╱ THEN ╱ // 0x2943 @0xd
0x2936…2945 at000e = EOL // 0x2944 @0xe
0x2936…2945 }
0x2945…296c bf5a 02445 PRINT TAB ( 41 ) ; A1 $ ( X + 12 , 5 : 25 ) ;
0x2945…296c LineComal80 {
0x2945…296c ptr = 0xbf5a // 0x2945 @0x0
0x2945…296c lno = 0x098d // 0x2947 @0x2
0x2945…296c at0004 = ╱92╱ PRINT ╱ // 0x2949 @0x4
0x2945…296c at0005 = ╱d2╱ TAB ╱ // 0x294a @0x5
0x2945…296c at0006 = ╱ed╱ ( ╱ // 0x294b @0x6
0x2945…296c at0007 = ╱34╱4╱ // 0x294c @0x7
0x2945…296c at0008 = ╱31╱1╱ // 0x294d @0x8
0x2945…296c at0009 = ╱f22900╱ // 0x294e @0x9
0x2945…296c at000c = ╱ee╱ ) ╱ // 0x2951 @0xc
0x2945…296c at000d = ╱ea╱ ; ╱ // 0x2952 @0xd
0x2945…296c at000e = ╱41╱A╱ // 0x2953 @0xe
0x2945…296c at000f = ╱31╱1╱ // 0x2954 @0xf
0x2945…296c at0010 = ╱ef╱ $ ╱ // 0x2955 @0x10
0x2945…296c at0011 = ╱ed╱ ( ╱ // 0x2956 @0x11
0x2945…296c at0012 = ╱58╱X╱ // 0x2957 @0x12
0x2945…296c at0013 = ╱e5╱ + ╱ // 0x2958 @0x13
0x2945…296c at0014 = ╱31╱1╱ // 0x2959 @0x14
0x2945…296c at0015 = ╱32╱2╱ // 0x295a @0x15
0x2945…296c at0016 = ╱f20c00╱ // 0x295b @0x16
0x2945…296c at0019 = ╱ec╱ , ╱ // 0x295e @0x19
0x2945…296c at001a = ╱35╱5╱ // 0x295f @0x1a
0x2945…296c at001b = ╱f20500╱ // 0x2960 @0x1b
0x2945…296c at001e = ╱f1╱ : ╱ // 0x2963 @0x1e
0x2945…296c at001f = ╱32╱2╱ // 0x2964 @0x1f
0x2945…296c at0020 = ╱35╱5╱ // 0x2965 @0x20
0x2945…296c at0021 = ╱f21900╱ // 0x2966 @0x21
0x2945…296c at0024 = ╱ee╱ ) ╱ // 0x2969 @0x24
0x2945…296c at0025 = ╱ea╱ ; ╱ // 0x296a @0x25
0x2945…296c at0026 = EOL // 0x296b @0x26
0x2945…296c }
0x296c…2990 bf7e 02450 IF A ( X + 12 ) >< O THEN PRINT USING S $ : A ( X + 12 ) ;
0x296c…2990 LineComal80 {
0x296c…2990 ptr = 0xbf7e // 0x296c @0x0
0x296c…2990 lno = 0x0992 // 0x296e @0x2
0x296c…2990 at0004 = ╱8200╱ IF ╱ // 0x2970 @0x4
0x296c…2990 at0006 = ╱41╱A╱ // 0x2972 @0x6
0x296c…2990 at0007 = ╱ed╱ ( ╱ // 0x2973 @0x7
0x296c…2990 at0008 = ╱58╱X╱ // 0x2974 @0x8
0x296c…2990 at0009 = ╱e5╱ + ╱ // 0x2975 @0x9
0x296c…2990 at000a = ╱31╱1╱ // 0x2976 @0xa
0x296c…2990 at000b = ╱32╱2╱ // 0x2977 @0xb
0x296c…2990 at000c = ╱f20c00╱ // 0x2978 @0xc
0x296c…2990 at000f = ╱ee╱ ) ╱ // 0x297b @0xf
0x296c…2990 at0010 = ╱e4╱ >< ╱ // 0x297c @0x10
0x296c…2990 at0011 = ╱4f╱O╱ // 0x297d @0x11
0x296c…2990 at0012 = ╱b5╱ THEN ╱ // 0x297e @0x12
0x296c…2990 at0013 = ╱92╱ PRINT ╱ // 0x297f @0x13
0x296c…2990 at0014 = ╱b9╱ USING ╱ // 0x2980 @0x14
0x296c…2990 at0015 = ╱53╱S╱ // 0x2981 @0x15
0x296c…2990 at0016 = ╱ef╱ $ ╱ // 0x2982 @0x16
0x296c…2990 at0017 = ╱f1╱ : ╱ // 0x2983 @0x17
0x296c…2990 at0018 = ╱41╱A╱ // 0x2984 @0x18
0x296c…2990 at0019 = ╱ed╱ ( ╱ // 0x2985 @0x19
0x296c…2990 at001a = ╱58╱X╱ // 0x2986 @0x1a
0x296c…2990 at001b = ╱e5╱ + ╱ // 0x2987 @0x1b
0x296c…2990 at001c = ╱31╱1╱ // 0x2988 @0x1c
0x296c…2990 at001d = ╱32╱2╱ // 0x2989 @0x1d
0x296c…2990 at001e = ╱f20c00╱ // 0x298a @0x1e
0x296c…2990 at0021 = ╱ee╱ ) ╱ // 0x298d @0x21
0x296c…2990 at0022 = ╱ea╱ ; ╱ // 0x298e @0x22
0x296c…2990 at0023 = EOL // 0x298f @0x23
0x296c…2990 }
0x2990…2997 bf85 02455 ELSE
0x2990…2997 LineComal80 {
0x2990…2997 ptr = 0xbf85 // 0x2990 @0x0
0x2990…2997 lno = 0x0997 // 0x2992 @0x2
0x2990…2997 at0004 = ╱9a00╱ ELSE ╱ // 0x2994 @0x4
0x2990…2997 at0006 = EOL // 0x2996 @0x6
0x2990…2997 }
0x2997…29a3 bf91 02460 IF 3 > O THEN
0x2997…29a3 LineComal80 {
0x2997…29a3 ptr = 0xbf91 // 0x2997 @0x0
0x2997…29a3 lno = 0x099c // 0x2999 @0x2
0x2997…29a3 at0004 = ╱9b0043╱ IF ╱ // 0x299b @0x4
0x2997…29a3 at0007 = ╱33╱3╱ // 0x299e @0x7
0x2997…29a3 at0008 = ╱e1╱ > ╱ // 0x299f @0x8
0x2997…29a3 at0009 = ╱4f╱O╱ // 0x29a0 @0x9
0x2997…29a3 at000a = ╱b5╱ THEN ╱ // 0x29a1 @0xa
0x2997…29a3 at000b = EOL // 0x29a2 @0xb
0x2997…29a3 }
0x29a3…29ce bfbc 02465 PRINT TAB ( 41 ) ; "RENTEINDT[GTSNEDSLAG…...." ;
0x29a3…29ce LineComal80 {
0x29a3…29ce ptr = 0xbfbc // 0x29a3 @0x0
0x29a3…29ce lno = 0x09a1 // 0x29a5 @0x2
0x29a3…29ce at0004 = ╱92╱ PRINT ╱ // 0x29a7 @0x4
0x29a3…29ce at0005 = ╱d2╱ TAB ╱ // 0x29a8 @0x5
0x29a3…29ce at0006 = ╱ed╱ ( ╱ // 0x29a9 @0x6
0x29a3…29ce at0007 = ╱34╱4╱ // 0x29aa @0x7
0x29a3…29ce at0008 = ╱31╱1╱ // 0x29ab @0x8
0x29a3…29ce at0009 = ╱f22900╱ // 0x29ac @0x9
0x29a3…29ce at000c = ╱ee╱ ) ╱ // 0x29af @0xc
0x29a3…29ce at000d = ╱ea╱ ; ╱ // 0x29b0 @0xd
0x29a3…29ce at000e = ╱22╱"╱ // 0x29b1 @0xe
0x29a3…29ce at000f = ╱52╱R╱ // 0x29b2 @0xf
0x29a3…29ce at0010 = ╱45╱E╱ // 0x29b3 @0x10
0x29a3…29ce at0011 = ╱4e╱N╱ // 0x29b4 @0x11
0x29a3…29ce at0012 = ╱54╱T╱ // 0x29b5 @0x12
0x29a3…29ce at0013 = ╱45╱E╱ // 0x29b6 @0x13
0x29a3…29ce at0014 = ╱49╱I╱ // 0x29b7 @0x14
0x29a3…29ce at0015 = ╱4e╱N╱ // 0x29b8 @0x15
0x29a3…29ce at0016 = ╱44╱D╱ // 0x29b9 @0x16
0x29a3…29ce at0017 = ╱54╱T╱ // 0x29ba @0x17
0x29a3…29ce at0018 = ╱5b╱[╱ // 0x29bb @0x18
0x29a3…29ce at0019 = ╱47╱G╱ // 0x29bc @0x19
0x29a3…29ce at001a = ╱54╱T╱ // 0x29bd @0x1a
0x29a3…29ce at001b = ╱53╱S╱ // 0x29be @0x1b
0x29a3…29ce at001c = ╱4e╱N╱ // 0x29bf @0x1c
0x29a3…29ce at001d = ╱45╱E╱ // 0x29c0 @0x1d
0x29a3…29ce at001e = ╱44╱D╱ // 0x29c1 @0x1e
0x29a3…29ce at001f = ╱53╱S╱ // 0x29c2 @0x1f
0x29a3…29ce at0020 = ╱4c╱L╱ // 0x29c3 @0x20
0x29a3…29ce at0021 = ╱41╱A╱ // 0x29c4 @0x21
0x29a3…29ce at0022 = ╱47╱G╱ // 0x29c5 @0x22
0x29a3…29ce at0023 = ╱20╱…╱ // 0x29c6 @0x23
0x29a3…29ce at0024 = ╱2e╱.╱ // 0x29c7 @0x24
0x29a3…29ce at0025 = ╱2e╱.╱ // 0x29c8 @0x25
0x29a3…29ce at0026 = ╱2e╱.╱ // 0x29c9 @0x26
0x29a3…29ce at0027 = ╱2e╱.╱ // 0x29ca @0x27
0x29a3…29ce at0028 = ╱22╱"╱ // 0x29cb @0x28
0x29a3…29ce at0029 = ╱ea╱ ; ╱ // 0x29cc @0x29
0x29a3…29ce at002a = EOL // 0x29cd @0x2a
0x29a3…29ce }
0x29ce…29db bfc9 02470 PRINT USING S $ : C3 ;
0x29ce…29db LineComal80 {
0x29ce…29db ptr = 0xbfc9 // 0x29ce @0x0
0x29ce…29db lno = 0x09a6 // 0x29d0 @0x2
0x29ce…29db at0004 = ╱92╱ PRINT ╱ // 0x29d2 @0x4
0x29ce…29db at0005 = ╱b9╱ USING ╱ // 0x29d3 @0x5
0x29ce…29db at0006 = ╱53╱S╱ // 0x29d4 @0x6
0x29ce…29db at0007 = ╱ef╱ $ ╱ // 0x29d5 @0x7
0x29ce…29db at0008 = ╱f1╱ : ╱ // 0x29d6 @0x8
0x29ce…29db at0009 = ╱43╱C╱ // 0x29d7 @0x9
0x29ce…29db at000a = ╱33╱3╱ // 0x29d8 @0xa
0x29ce…29db at000b = ╱ea╱ ; ╱ // 0x29d9 @0xb
0x29ce…29db at000c = EOL // 0x29da @0xc
0x29ce…29db }
0x29db…29e1 bfcf 02475 ENDIF
0x29db…29e1 LineComal80 {
0x29db…29e1 ptr = 0xbfcf // 0x29db @0x0
0x29db…29e1 lno = 0x09ab // 0x29dd @0x2
0x29db…29e1 at0004 = ╱9c╱ ENDIF ╱ // 0x29df @0x4
0x29db…29e1 at0005 = EOL // 0x29e0 @0x5
0x29db…29e1 }
0x29e1…29e7 bfd5 02480 ENDIF
0x29e1…29e7 LineComal80 {
0x29e1…29e7 ptr = 0xbfd5 // 0x29e1 @0x0
0x29e1…29e7 lno = 0x09b0 // 0x29e3 @0x2
0x29e1…29e7 at0004 = ╱9c╱ ENDIF ╱ // 0x29e5 @0x4
0x29e1…29e7 at0005 = EOL // 0x29e6 @0x5
0x29e1…29e7 }
0x29e7…29ed bfdb 02485 PRINT
0x29e7…29ed LineComal80 {
0x29e7…29ed ptr = 0xbfdb // 0x29e7 @0x0
0x29e7…29ed lno = 0x09b5 // 0x29e9 @0x2
0x29e7…29ed at0004 = ╱92╱ PRINT ╱ // 0x29eb @0x4
0x29e7…29ed at0005 = EOL // 0x29ec @0x5
0x29e7…29ed }
0x29ed…29f4 bfe2 02490 NEXT X
0x29ed…29f4 LineComal80 {
0x29ed…29f4 ptr = 0xbfe2 // 0x29ed @0x0
0x29ed…29f4 lno = 0x09ba // 0x29ef @0x2
0x29ed…29f4 at0004 = ╱84╱ NEXT ╱ // 0x29f1 @0x4
0x29ed…29f4 at0005 = ╱58╱X╱ // 0x29f2 @0x5
0x29ed…29f4 at0006 = EOL // 0x29f3 @0x6
0x29ed…29f4 }
0x29f4…2a08 bff6 02495 FOR X := 1 TO 3 DO
0x29f4…2a08 LineComal80 {
0x29f4…2a08 ptr = 0xbff6 // 0x29f4 @0x0
0x29f4…2a08 lno = 0x09bf // 0x29f6 @0x2
0x29f4…2a08 at0004 = ╱8300╱ FOR ╱ // 0x29f8 @0x4
0x29f4…2a08 at0006 = ╱58╱X╱ // 0x29fa @0x6
0x29f4…2a08 at0007 = ╱f0╱ := ╱ // 0x29fb @0x7
0x29f4…2a08 at0008 = ╱31╱1╱ // 0x29fc @0x8
0x29f4…2a08 at0009 = ╱f20100╱ // 0x29fd @0x9
0x29f4…2a08 at000c = ╱b732╱ TO ╱ // 0x2a00 @0xc
0x29f4…2a08 at000e = ╱33╱3╱ // 0x2a02 @0xe
0x29f4…2a08 at000f = ╱f21700╱ // 0x2a03 @0xf
0x29f4…2a08 at0012 = ╱bb╱ DO ╱ // 0x2a06 @0x12
0x29f4…2a08 at0013 = EOL // 0x2a07 @0x13
0x29f4…2a08 }
0x2a08…2a3c c02a 02500 IF >< 5 AND X >< 7 AND X >< 9 AND X >< 15 AND X >< 17 AND X >< 22 THEN
0x2a08…2a3c LineComal80 {
0x2a08…2a3c ptr = 0xc02a // 0x2a08 @0x0
0x2a08…2a3c lno = 0x09c4 // 0x2a0a @0x2
0x2a08…2a3c at0004 = ╱9b0058╱ IF ╱ // 0x2a0c @0x4
0x2a08…2a3c at0007 = ╱e4╱ >< ╱ // 0x2a0f @0x7
0x2a08…2a3c at0008 = ╱35╱5╱ // 0x2a10 @0x8
0x2a08…2a3c at0009 = ╱f20500╱ // 0x2a11 @0x9
0x2a08…2a3c at000c = ╱d9╱ AND ╱ // 0x2a14 @0xc
0x2a08…2a3c at000d = ╱58╱X╱ // 0x2a15 @0xd
0x2a08…2a3c at000e = ╱e4╱ >< ╱ // 0x2a16 @0xe
0x2a08…2a3c at000f = ╱37╱7╱ // 0x2a17 @0xf
0x2a08…2a3c at0010 = ╱f20700╱ // 0x2a18 @0x10
0x2a08…2a3c at0013 = ╱d9╱ AND ╱ // 0x2a1b @0x13
0x2a08…2a3c at0014 = ╱58╱X╱ // 0x2a1c @0x14
0x2a08…2a3c at0015 = ╱e4╱ >< ╱ // 0x2a1d @0x15
0x2a08…2a3c at0016 = ╱39╱9╱ // 0x2a1e @0x16
0x2a08…2a3c at0017 = ╱f20900╱ // 0x2a1f @0x17
0x2a08…2a3c at001a = ╱d9╱ AND ╱ // 0x2a22 @0x1a
0x2a08…2a3c at001b = ╱58╱X╱ // 0x2a23 @0x1b
0x2a08…2a3c at001c = ╱e4╱ >< ╱ // 0x2a24 @0x1c
0x2a08…2a3c at001d = ╱31╱1╱ // 0x2a25 @0x1d
0x2a08…2a3c at001e = ╱35╱5╱ // 0x2a26 @0x1e
0x2a08…2a3c at001f = ╱f20f00╱ // 0x2a27 @0x1f
0x2a08…2a3c at0022 = ╱d9╱ AND ╱ // 0x2a2a @0x22
0x2a08…2a3c at0023 = ╱58╱X╱ // 0x2a2b @0x23
0x2a08…2a3c at0024 = ╱e4╱ >< ╱ // 0x2a2c @0x24
0x2a08…2a3c at0025 = ╱31╱1╱ // 0x2a2d @0x25
0x2a08…2a3c at0026 = ╱37╱7╱ // 0x2a2e @0x26
0x2a08…2a3c at0027 = ╱f21100╱ // 0x2a2f @0x27
0x2a08…2a3c at002a = ╱d9╱ AND ╱ // 0x2a32 @0x2a
0x2a08…2a3c at002b = ╱58╱X╱ // 0x2a33 @0x2b
0x2a08…2a3c at002c = ╱e4╱ >< ╱ // 0x2a34 @0x2c
0x2a08…2a3c at002d = ╱32╱2╱ // 0x2a35 @0x2d
0x2a08…2a3c at002e = ╱32╱2╱ // 0x2a36 @0x2e
0x2a08…2a3c at002f = ╱f21600╱ // 0x2a37 @0x2f
0x2a08…2a3c at0032 = ╱b5╱ THEN ╱ // 0x2a3a @0x32
0x2a08…2a3c at0033 = EOL // 0x2a3b @0x33
0x2a08…2a3c }
0x2a3c…2a5a c048 02505 IF X =< 12 THEN LET C7IK := C7IK + A ( X )
0x2a3c…2a5a LineComal80 {
0x2a3c…2a5a ptr = 0xc048 // 0x2a3c @0x0
0x2a3c…2a5a lno = 0x09c9 // 0x2a3e @0x2
0x2a3c…2a5a at0004 = ╱8200╱ IF ╱ // 0x2a40 @0x4
0x2a3c…2a5a at0006 = ╱58╱X╱ // 0x2a42 @0x6
0x2a3c…2a5a at0007 = ╱e2╱ =< ╱ // 0x2a43 @0x7
0x2a3c…2a5a at0008 = ╱31╱1╱ // 0x2a44 @0x8
0x2a3c…2a5a at0009 = ╱32╱2╱ // 0x2a45 @0x9
0x2a3c…2a5a at000a = ╱f20c00╱ // 0x2a46 @0xa
0x2a3c…2a5a at000d = ╱b5╱ THEN ╱ // 0x2a49 @0xd
0x2a3c…2a5a at000e = ╱86╱ LET ╱ // 0x2a4a @0xe
0x2a3c…2a5a at000f = ╱43╱C╱ // 0x2a4b @0xf
0x2a3c…2a5a at0010 = ╱37╱7╱ // 0x2a4c @0x10
0x2a3c…2a5a at0011 = ╱49╱I╱ // 0x2a4d @0x11
0x2a3c…2a5a at0012 = ╱4b╱K╱ // 0x2a4e @0x12
0x2a3c…2a5a at0013 = ╱f0╱ := ╱ // 0x2a4f @0x13
0x2a3c…2a5a at0014 = ╱43╱C╱ // 0x2a50 @0x14
0x2a3c…2a5a at0015 = ╱37╱7╱ // 0x2a51 @0x15
0x2a3c…2a5a at0016 = ╱49╱I╱ // 0x2a52 @0x16
0x2a3c…2a5a at0017 = ╱4b╱K╱ // 0x2a53 @0x17
0x2a3c…2a5a at0018 = ╱e5╱ + ╱ // 0x2a54 @0x18
0x2a3c…2a5a at0019 = ╱41╱A╱ // 0x2a55 @0x19
0x2a3c…2a5a at001a = ╱ed╱ ( ╱ // 0x2a56 @0x1a
0x2a3c…2a5a at001b = ╱58╱X╱ // 0x2a57 @0x1b
0x2a3c…2a5a at001c = ╱ee╱ ) ╱ // 0x2a58 @0x1c
0x2a3c…2a5a at001d = EOL // 0x2a59 @0x1d
0x2a3c…2a5a }
0x2a5a…2a78 c066 02510 IF X > 12 THEN LET C7FR := C7FR + A ( X )
0x2a5a…2a78 LineComal80 {
0x2a5a…2a78 ptr = 0xc066 // 0x2a5a @0x0
0x2a5a…2a78 lno = 0x09ce // 0x2a5c @0x2
0x2a5a…2a78 at0004 = ╱8200╱ IF ╱ // 0x2a5e @0x4
0x2a5a…2a78 at0006 = ╱58╱X╱ // 0x2a60 @0x6
0x2a5a…2a78 at0007 = ╱e1╱ > ╱ // 0x2a61 @0x7
0x2a5a…2a78 at0008 = ╱31╱1╱ // 0x2a62 @0x8
0x2a5a…2a78 at0009 = ╱32╱2╱ // 0x2a63 @0x9
0x2a5a…2a78 at000a = ╱f20c00╱ // 0x2a64 @0xa
0x2a5a…2a78 at000d = ╱b5╱ THEN ╱ // 0x2a67 @0xd
0x2a5a…2a78 at000e = ╱86╱ LET ╱ // 0x2a68 @0xe
0x2a5a…2a78 at000f = ╱43╱C╱ // 0x2a69 @0xf
0x2a5a…2a78 at0010 = ╱37╱7╱ // 0x2a6a @0x10
0x2a5a…2a78 at0011 = ╱46╱F╱ // 0x2a6b @0x11
0x2a5a…2a78 at0012 = ╱52╱R╱ // 0x2a6c @0x12
0x2a5a…2a78 at0013 = ╱f0╱ := ╱ // 0x2a6d @0x13
0x2a5a…2a78 at0014 = ╱43╱C╱ // 0x2a6e @0x14
0x2a5a…2a78 at0015 = ╱37╱7╱ // 0x2a6f @0x15
0x2a5a…2a78 at0016 = ╱46╱F╱ // 0x2a70 @0x16
0x2a5a…2a78 at0017 = ╱52╱R╱ // 0x2a71 @0x17
0x2a5a…2a78 at0018 = ╱e5╱ + ╱ // 0x2a72 @0x18
0x2a5a…2a78 at0019 = ╱41╱A╱ // 0x2a73 @0x19
0x2a5a…2a78 at001a = ╱ed╱ ( ╱ // 0x2a74 @0x1a
0x2a5a…2a78 at001b = ╱58╱X╱ // 0x2a75 @0x1b
0x2a5a…2a78 at001c = ╱ee╱ ) ╱ // 0x2a76 @0x1c
0x2a5a…2a78 at001d = EOL // 0x2a77 @0x1d
0x2a5a…2a78 }
0x2a78…2a7e c06c 02515 ENDIF
0x2a78…2a7e LineComal80 {
0x2a78…2a7e ptr = 0xc06c // 0x2a78 @0x0
0x2a78…2a7e lno = 0x09d3 // 0x2a7a @0x2
0x2a78…2a7e at0004 = ╱9c╱ ENDIF ╱ // 0x2a7c @0x4
0x2a78…2a7e at0005 = EOL // 0x2a7d @0x5
0x2a78…2a7e }
0x2a7e…2a85 c073 02520 NEXT X
0x2a7e…2a85 LineComal80 {
0x2a7e…2a85 ptr = 0xc073 // 0x2a7e @0x0
0x2a7e…2a85 lno = 0x09d8 // 0x2a80 @0x2
0x2a7e…2a85 at0004 = ╱84╱ NEXT ╱ // 0x2a82 @0x4
0x2a7e…2a85 at0005 = ╱58╱X╱ // 0x2a83 @0x5
0x2a7e…2a85 at0006 = EOL // 0x2a84 @0x6
0x2a7e…2a85 }
0x2a85…2ace c0bc 02525 LET QT $ := SP $ ( 1 : 25 ) + LI $ ( 1 : 12 ) + SP $ ( 1 : 29 ) + LI $ ( 1 : 12 )
0x2a85…2ace LineComal80 {
0x2a85…2ace ptr = 0xc0bc // 0x2a85 @0x0
0x2a85…2ace lno = 0x09dd // 0x2a87 @0x2
0x2a85…2ace at0004 = ╱86╱ LET ╱ // 0x2a89 @0x4
0x2a85…2ace at0005 = ╱51╱Q╱ // 0x2a8a @0x5
0x2a85…2ace at0006 = ╱54╱T╱ // 0x2a8b @0x6
0x2a85…2ace at0007 = ╱ef╱ $ ╱ // 0x2a8c @0x7
0x2a85…2ace at0008 = ╱f0╱ := ╱ // 0x2a8d @0x8
0x2a85…2ace at0009 = ╱53╱S╱ // 0x2a8e @0x9
0x2a85…2ace at000a = ╱50╱P╱ // 0x2a8f @0xa
0x2a85…2ace at000b = ╱ef╱ $ ╱ // 0x2a90 @0xb
0x2a85…2ace at000c = ╱ed╱ ( ╱ // 0x2a91 @0xc
0x2a85…2ace at000d = ╱31╱1╱ // 0x2a92 @0xd
0x2a85…2ace at000e = ╱f20100╱ // 0x2a93 @0xe
0x2a85…2ace at0011 = ╱f1╱ : ╱ // 0x2a96 @0x11
0x2a85…2ace at0012 = ╱32╱2╱ // 0x2a97 @0x12
0x2a85…2ace at0013 = ╱35╱5╱ // 0x2a98 @0x13
0x2a85…2ace at0014 = ╱f21900╱ // 0x2a99 @0x14
0x2a85…2ace at0017 = ╱ee╱ ) ╱ // 0x2a9c @0x17
0x2a85…2ace at0018 = ╱eb╱ + ╱ // 0x2a9d @0x18
0x2a85…2ace at0019 = ╱4c╱L╱ // 0x2a9e @0x19
0x2a85…2ace at001a = ╱49╱I╱ // 0x2a9f @0x1a
0x2a85…2ace at001b = ╱ef╱ $ ╱ // 0x2aa0 @0x1b
0x2a85…2ace at001c = ╱ed╱ ( ╱ // 0x2aa1 @0x1c
0x2a85…2ace at001d = ╱31╱1╱ // 0x2aa2 @0x1d
0x2a85…2ace at001e = ╱f20100╱ // 0x2aa3 @0x1e
0x2a85…2ace at0021 = ╱f1╱ : ╱ // 0x2aa6 @0x21
0x2a85…2ace at0022 = ╱31╱1╱ // 0x2aa7 @0x22
0x2a85…2ace at0023 = ╱32╱2╱ // 0x2aa8 @0x23
0x2a85…2ace at0024 = ╱f20c00╱ // 0x2aa9 @0x24
0x2a85…2ace at0027 = ╱ee╱ ) ╱ // 0x2aac @0x27
0x2a85…2ace at0028 = ╱eb╱ + ╱ // 0x2aad @0x28
0x2a85…2ace at0029 = ╱53╱S╱ // 0x2aae @0x29
0x2a85…2ace at002a = ╱50╱P╱ // 0x2aaf @0x2a
0x2a85…2ace at002b = ╱ef╱ $ ╱ // 0x2ab0 @0x2b
0x2a85…2ace at002c = ╱ed╱ ( ╱ // 0x2ab1 @0x2c
0x2a85…2ace at002d = ╱31╱1╱ // 0x2ab2 @0x2d
0x2a85…2ace at002e = ╱f20100╱ // 0x2ab3 @0x2e
0x2a85…2ace at0031 = ╱f1╱ : ╱ // 0x2ab6 @0x31
0x2a85…2ace at0032 = ╱32╱2╱ // 0x2ab7 @0x32
0x2a85…2ace at0033 = ╱39╱9╱ // 0x2ab8 @0x33
0x2a85…2ace at0034 = ╱f21d00╱ // 0x2ab9 @0x34
0x2a85…2ace at0037 = ╱ee╱ ) ╱ // 0x2abc @0x37
0x2a85…2ace at0038 = ╱eb╱ + ╱ // 0x2abd @0x38
0x2a85…2ace at0039 = ╱4c╱L╱ // 0x2abe @0x39
0x2a85…2ace at003a = ╱49╱I╱ // 0x2abf @0x3a
0x2a85…2ace at003b = ╱ef╱ $ ╱ // 0x2ac0 @0x3b
0x2a85…2ace at003c = ╱ed╱ ( ╱ // 0x2ac1 @0x3c
0x2a85…2ace at003d = ╱31╱1╱ // 0x2ac2 @0x3d
0x2a85…2ace at003e = ╱f20100╱ // 0x2ac3 @0x3e
0x2a85…2ace at0041 = ╱f1╱ : ╱ // 0x2ac6 @0x41
0x2a85…2ace at0042 = ╱31╱1╱ // 0x2ac7 @0x42
0x2a85…2ace at0043 = ╱32╱2╱ // 0x2ac8 @0x43
0x2a85…2ace at0044 = ╱f20c00╱ // 0x2ac9 @0x44
0x2a85…2ace at0047 = ╱ee╱ ) ╱ // 0x2acc @0x47
0x2a85…2ace at0048 = EOL // 0x2acd @0x48
0x2a85…2ace }
0x2ace…2adb c0c9 02530 EXEC LSKRIV3
0x2ace…2adb LineComal80 {
0x2ace…2adb ptr = 0xc0c9 // 0x2ace @0x0
0x2ace…2adb lno = 0x09e2 // 0x2ad0 @0x2
0x2ace…2adb at0004 = ╱9d╱ EXEC ╱ // 0x2ad2 @0x4
0x2ace…2adb at0005 = ╱4c╱L╱ // 0x2ad3 @0x5
0x2ace…2adb at0006 = ╱53╱S╱ // 0x2ad4 @0x6
0x2ace…2adb at0007 = ╱4b╱K╱ // 0x2ad5 @0x7
0x2ace…2adb at0008 = ╱52╱R╱ // 0x2ad6 @0x8
0x2ace…2adb at0009 = ╱49╱I╱ // 0x2ad7 @0x9
0x2ace…2adb at000a = ╱56╱V╱ // 0x2ad8 @0xa
0x2ace…2adb at000b = ╱33╱3╱ // 0x2ad9 @0xb
0x2ace…2adb at000c = EOL // 0x2ada @0xc
0x2ace…2adb }
0x2adb…2b03 c0f1 02535 PRINT "INDKOMST…IALT…" ; PIL $ ( 1 : 11 ) ;
0x2adb…2b03 LineComal80 {
0x2adb…2b03 ptr = 0xc0f1 // 0x2adb @0x0
0x2adb…2b03 lno = 0x09e7 // 0x2add @0x2
0x2adb…2b03 at0004 = ╱92╱ PRINT ╱ // 0x2adf @0x4
0x2adb…2b03 at0005 = ╱22╱"╱ // 0x2ae0 @0x5
0x2adb…2b03 at0006 = ╱49╱I╱ // 0x2ae1 @0x6
0x2adb…2b03 at0007 = ╱4e╱N╱ // 0x2ae2 @0x7
0x2adb…2b03 at0008 = ╱44╱D╱ // 0x2ae3 @0x8
0x2adb…2b03 at0009 = ╱4b╱K╱ // 0x2ae4 @0x9
0x2adb…2b03 at000a = ╱4f╱O╱ // 0x2ae5 @0xa
0x2adb…2b03 at000b = ╱4d╱M╱ // 0x2ae6 @0xb
0x2adb…2b03 at000c = ╱53╱S╱ // 0x2ae7 @0xc
0x2adb…2b03 at000d = ╱54╱T╱ // 0x2ae8 @0xd
0x2adb…2b03 at000e = ╱20╱…╱ // 0x2ae9 @0xe
0x2adb…2b03 at000f = ╱49╱I╱ // 0x2aea @0xf
0x2adb…2b03 at0010 = ╱41╱A╱ // 0x2aeb @0x10
0x2adb…2b03 at0011 = ╱4c╱L╱ // 0x2aec @0x11
0x2adb…2b03 at0012 = ╱54╱T╱ // 0x2aed @0x12
0x2adb…2b03 at0013 = ╱20╱…╱ // 0x2aee @0x13
0x2adb…2b03 at0014 = ╱22╱"╱ // 0x2aef @0x14
0x2adb…2b03 at0015 = ╱ea╱ ; ╱ // 0x2af0 @0x15
0x2adb…2b03 at0016 = ╱50╱P╱ // 0x2af1 @0x16
0x2adb…2b03 at0017 = ╱49╱I╱ // 0x2af2 @0x17
0x2adb…2b03 at0018 = ╱4c╱L╱ // 0x2af3 @0x18
0x2adb…2b03 at0019 = ╱ef╱ $ ╱ // 0x2af4 @0x19
0x2adb…2b03 at001a = ╱ed╱ ( ╱ // 0x2af5 @0x1a
0x2adb…2b03 at001b = ╱31╱1╱ // 0x2af6 @0x1b
0x2adb…2b03 at001c = ╱f20100╱ // 0x2af7 @0x1c
0x2adb…2b03 at001f = ╱f1╱ : ╱ // 0x2afa @0x1f
0x2adb…2b03 at0020 = ╱31╱1╱ // 0x2afb @0x20
0x2adb…2b03 at0021 = ╱31╱1╱ // 0x2afc @0x21
0x2adb…2b03 at0022 = ╱f20b00╱ // 0x2afd @0x22
0x2adb…2b03 at0025 = ╱ee╱ ) ╱ // 0x2b00 @0x25
0x2adb…2b03 at0026 = ╱ea╱ ; ╱ // 0x2b01 @0x26
0x2adb…2b03 at0027 = EOL // 0x2b02 @0x27
0x2adb…2b03 }
0x2b03…2b12 (143,) c100 02540 PRINT USING S $ : C7IK ;
0x2b03…2b12 LineComal80 {
0x2b03…2b12 ptr = 0xc100 // 0x2b03 @0x0
0x2b03…2b12 lno = 0x09ec // 0x2b05 @0x2
0x2b03…2b12 at0004 = ╱92╱ PRINT ╱ // 0x2b07 @0x4
0x2b03…2b12 at0005 = ╱b9╱ USING ╱ // 0x2b08 @0x5
0x2b03…2b12 at0006 = ╱53╱S╱ // 0x2b09 @0x6
0x2b03…2b12 at0007 = ╱ef╱ $ ╱ // 0x2b0a @0x7
0x2b03…2b12 at0008 = ╱f1╱ : ╱ // 0x2b0b @0x8
0x2b03…2b12 at0009 = ╱43╱C╱ // 0x2b0c @0x9
0x2b03…2b12 at000a = ╱37╱7╱ // 0x2b0d @0xa
0x2b03…2b12 at000b = ╱49╱I╱ // 0x2b0e @0xb
0x2b03…2b12 at000c = ╱4b╱K╱ // 0x2b0f @0xc
0x2b03…2b12 at000d = ╱ea╱ ; ╱ // 0x2b10 @0xd
0x2b03…2b12 at000e = EOL // 0x2b11 @0xe
0x2b03…2b12 }
0x2b12…2b42 c130 02545 PRINT TAB ( 41 ) ; "FRADRAG…IALT…" ; PIL $ ( 1 : 12 ) ;
0x2b12…2b42 LineComal80 {
0x2b12…2b42 ptr = 0xc130 // 0x2b12 @0x0
0x2b12…2b42 lno = 0x09f1 // 0x2b14 @0x2
0x2b12…2b42 at0004 = ╱92╱ PRINT ╱ // 0x2b16 @0x4
0x2b12…2b42 at0005 = ╱d2╱ TAB ╱ // 0x2b17 @0x5
0x2b12…2b42 at0006 = ╱ed╱ ( ╱ // 0x2b18 @0x6
0x2b12…2b42 at0007 = ╱34╱4╱ // 0x2b19 @0x7
0x2b12…2b42 at0008 = ╱31╱1╱ // 0x2b1a @0x8
0x2b12…2b42 at0009 = ╱f22900╱ // 0x2b1b @0x9
0x2b12…2b42 at000c = ╱ee╱ ) ╱ // 0x2b1e @0xc
0x2b12…2b42 at000d = ╱ea╱ ; ╱ // 0x2b1f @0xd
0x2b12…2b42 at000e = ╱22╱"╱ // 0x2b20 @0xe
0x2b12…2b42 at000f = ╱46╱F╱ // 0x2b21 @0xf
0x2b12…2b42 at0010 = ╱52╱R╱ // 0x2b22 @0x10
0x2b12…2b42 at0011 = ╱41╱A╱ // 0x2b23 @0x11
0x2b12…2b42 at0012 = ╱44╱D╱ // 0x2b24 @0x12
0x2b12…2b42 at0013 = ╱52╱R╱ // 0x2b25 @0x13
0x2b12…2b42 at0014 = ╱41╱A╱ // 0x2b26 @0x14
0x2b12…2b42 at0015 = ╱47╱G╱ // 0x2b27 @0x15
0x2b12…2b42 at0016 = ╱20╱…╱ // 0x2b28 @0x16
0x2b12…2b42 at0017 = ╱49╱I╱ // 0x2b29 @0x17
0x2b12…2b42 at0018 = ╱41╱A╱ // 0x2b2a @0x18
0x2b12…2b42 at0019 = ╱4c╱L╱ // 0x2b2b @0x19
0x2b12…2b42 at001a = ╱54╱T╱ // 0x2b2c @0x1a
0x2b12…2b42 at001b = ╱20╱…╱ // 0x2b2d @0x1b
0x2b12…2b42 at001c = ╱22╱"╱ // 0x2b2e @0x1c
0x2b12…2b42 at001d = ╱ea╱ ; ╱ // 0x2b2f @0x1d
0x2b12…2b42 at001e = ╱50╱P╱ // 0x2b30 @0x1e
0x2b12…2b42 at001f = ╱49╱I╱ // 0x2b31 @0x1f
0x2b12…2b42 at0020 = ╱4c╱L╱ // 0x2b32 @0x20
0x2b12…2b42 at0021 = ╱ef╱ $ ╱ // 0x2b33 @0x21
0x2b12…2b42 at0022 = ╱ed╱ ( ╱ // 0x2b34 @0x22
0x2b12…2b42 at0023 = ╱31╱1╱ // 0x2b35 @0x23
0x2b12…2b42 at0024 = ╱f20100╱ // 0x2b36 @0x24
0x2b12…2b42 at0027 = ╱f1╱ : ╱ // 0x2b39 @0x27
0x2b12…2b42 at0028 = ╱31╱1╱ // 0x2b3a @0x28
0x2b12…2b42 at0029 = ╱32╱2╱ // 0x2b3b @0x29
0x2b12…2b42 at002a = ╱f20c00╱ // 0x2b3c @0x2a
0x2b12…2b42 at002d = ╱ee╱ ) ╱ // 0x2b3f @0x2d
0x2b12…2b42 at002e = ╱ea╱ ; ╱ // 0x2b40 @0x2e
0x2b12…2b42 at002f = EOL // 0x2b41 @0x2f
0x2b12…2b42 }
0x2b42…2b50 c13e 02550 PRINT USING S $ : C7FR
0x2b42…2b50 LineComal80 {
0x2b42…2b50 ptr = 0xc13e // 0x2b42 @0x0
0x2b42…2b50 lno = 0x09f6 // 0x2b44 @0x2
0x2b42…2b50 at0004 = ╱92╱ PRINT ╱ // 0x2b46 @0x4
0x2b42…2b50 at0005 = ╱b9╱ USING ╱ // 0x2b47 @0x5
0x2b42…2b50 at0006 = ╱53╱S╱ // 0x2b48 @0x6
0x2b42…2b50 at0007 = ╱ef╱ $ ╱ // 0x2b49 @0x7
0x2b42…2b50 at0008 = ╱f1╱ : ╱ // 0x2b4a @0x8
0x2b42…2b50 at0009 = ╱43╱C╱ // 0x2b4b @0x9
0x2b42…2b50 at000a = ╱37╱7╱ // 0x2b4c @0xa
0x2b42…2b50 at000b = ╱46╱F╱ // 0x2b4d @0xb
0x2b42…2b50 at000c = ╱52╱R╱ // 0x2b4e @0xc
0x2b42…2b50 at000d = EOL // 0x2b4f @0xd
0x2b42…2b50 }
0x2b50…2b97 (144,) c185 02555 LET QT $ := SP $ ( 1 : 25 ) + "============" + SP $ ( 1 : 29 ) + "============"
0x2b50…2b97 LineComal80 {
0x2b50…2b97 ptr = 0xc185 // 0x2b50 @0x0
0x2b50…2b97 lno = 0x09fb // 0x2b52 @0x2
0x2b50…2b97 at0004 = ╱86╱ LET ╱ // 0x2b54 @0x4
0x2b50…2b97 at0005 = ╱51╱Q╱ // 0x2b55 @0x5
0x2b50…2b97 at0006 = ╱54╱T╱ // 0x2b56 @0x6
0x2b50…2b97 at0007 = ╱ef╱ $ ╱ // 0x2b57 @0x7
0x2b50…2b97 at0008 = ╱f0╱ := ╱ // 0x2b58 @0x8
0x2b50…2b97 at0009 = ╱53╱S╱ // 0x2b59 @0x9
0x2b50…2b97 at000a = ╱50╱P╱ // 0x2b5a @0xa
0x2b50…2b97 at000b = ╱ef╱ $ ╱ // 0x2b5b @0xb
0x2b50…2b97 at000c = ╱ed╱ ( ╱ // 0x2b5c @0xc
0x2b50…2b97 at000d = ╱31╱1╱ // 0x2b5d @0xd
0x2b50…2b97 at000e = ╱f20100╱ // 0x2b5e @0xe
0x2b50…2b97 at0011 = ╱f1╱ : ╱ // 0x2b61 @0x11
0x2b50…2b97 at0012 = ╱32╱2╱ // 0x2b62 @0x12
0x2b50…2b97 at0013 = ╱35╱5╱ // 0x2b63 @0x13
0x2b50…2b97 at0014 = ╱f21900╱ // 0x2b64 @0x14
0x2b50…2b97 at0017 = ╱ee╱ ) ╱ // 0x2b67 @0x17
0x2b50…2b97 at0018 = ╱eb╱ + ╱ // 0x2b68 @0x18
0x2b50…2b97 at0019 = ╱22╱"╱ // 0x2b69 @0x19
0x2b50…2b97 at001a = ╱3d╱=╱ // 0x2b6a @0x1a
0x2b50…2b97 at001b = ╱3d╱=╱ // 0x2b6b @0x1b
0x2b50…2b97 at001c = ╱3d╱=╱ // 0x2b6c @0x1c
0x2b50…2b97 at001d = ╱3d╱=╱ // 0x2b6d @0x1d
0x2b50…2b97 at001e = ╱3d╱=╱ // 0x2b6e @0x1e
0x2b50…2b97 at001f = ╱3d╱=╱ // 0x2b6f @0x1f
0x2b50…2b97 at0020 = ╱3d╱=╱ // 0x2b70 @0x20
0x2b50…2b97 at0021 = ╱3d╱=╱ // 0x2b71 @0x21
0x2b50…2b97 at0022 = ╱3d╱=╱ // 0x2b72 @0x22
0x2b50…2b97 at0023 = ╱3d╱=╱ // 0x2b73 @0x23
0x2b50…2b97 at0024 = ╱3d╱=╱ // 0x2b74 @0x24
0x2b50…2b97 at0025 = ╱3d╱=╱ // 0x2b75 @0x25
0x2b50…2b97 at0026 = ╱22╱"╱ // 0x2b76 @0x26
0x2b50…2b97 at0027 = ╱eb╱ + ╱ // 0x2b77 @0x27
0x2b50…2b97 at0028 = ╱53╱S╱ // 0x2b78 @0x28
0x2b50…2b97 at0029 = ╱50╱P╱ // 0x2b79 @0x29
0x2b50…2b97 at002a = ╱ef╱ $ ╱ // 0x2b7a @0x2a
0x2b50…2b97 at002b = ╱ed╱ ( ╱ // 0x2b7b @0x2b
0x2b50…2b97 at002c = ╱31╱1╱ // 0x2b7c @0x2c
0x2b50…2b97 at002d = ╱f20100╱ // 0x2b7d @0x2d
0x2b50…2b97 at0030 = ╱f1╱ : ╱ // 0x2b80 @0x30
0x2b50…2b97 at0031 = ╱32╱2╱ // 0x2b81 @0x31
0x2b50…2b97 at0032 = ╱39╱9╱ // 0x2b82 @0x32
0x2b50…2b97 at0033 = ╱f21d00╱ // 0x2b83 @0x33
0x2b50…2b97 at0036 = ╱ee╱ ) ╱ // 0x2b86 @0x36
0x2b50…2b97 at0037 = ╱eb╱ + ╱ // 0x2b87 @0x37
0x2b50…2b97 at0038 = ╱22╱"╱ // 0x2b88 @0x38
0x2b50…2b97 at0039 = ╱3d╱=╱ // 0x2b89 @0x39
0x2b50…2b97 at003a = ╱3d╱=╱ // 0x2b8a @0x3a
0x2b50…2b97 at003b = ╱3d╱=╱ // 0x2b8b @0x3b
0x2b50…2b97 at003c = ╱3d╱=╱ // 0x2b8c @0x3c
0x2b50…2b97 at003d = ╱3d╱=╱ // 0x2b8d @0x3d
0x2b50…2b97 at003e = ╱3d╱=╱ // 0x2b8e @0x3e
0x2b50…2b97 at003f = ╱3d╱=╱ // 0x2b8f @0x3f
0x2b50…2b97 at0040 = ╱3d╱=╱ // 0x2b90 @0x40
0x2b50…2b97 at0041 = ╱3d╱=╱ // 0x2b91 @0x41
0x2b50…2b97 at0042 = ╱3d╱=╱ // 0x2b92 @0x42
0x2b50…2b97 at0043 = ╱3d╱=╱ // 0x2b93 @0x43
0x2b50…2b97 at0044 = ╱3d╱=╱ // 0x2b94 @0x44
0x2b50…2b97 at0045 = ╱22╱"╱ // 0x2b95 @0x45
0x2b50…2b97 at0046 = EOL // 0x2b96 @0x46
0x2b50…2b97 }
0x2b97…2ba4 c192 02560 EXEC LSKRIV3
0x2b97…2ba4 LineComal80 {
0x2b97…2ba4 ptr = 0xc192 // 0x2b97 @0x0
0x2b97…2ba4 lno = 0x0a00 // 0x2b99 @0x2
0x2b97…2ba4 at0004 = ╱9d╱ EXEC ╱ // 0x2b9b @0x4
0x2b97…2ba4 at0005 = ╱4c╱L╱ // 0x2b9c @0x5
0x2b97…2ba4 at0006 = ╱53╱S╱ // 0x2b9d @0x6
0x2b97…2ba4 at0007 = ╱4b╱K╱ // 0x2b9e @0x7
0x2b97…2ba4 at0008 = ╱52╱R╱ // 0x2b9f @0x8
0x2b97…2ba4 at0009 = ╱49╱I╱ // 0x2ba0 @0x9
0x2b97…2ba4 at000a = ╱56╱V╱ // 0x2ba1 @0xa
0x2b97…2ba4 at000b = ╱33╱3╱ // 0x2ba2 @0xb
0x2b97…2ba4 at000c = EOL // 0x2ba3 @0xc
0x2b97…2ba4 }
0x2ba4…2baa c198 02565 PRINT
0x2ba4…2baa LineComal80 {
0x2ba4…2baa ptr = 0xc198 // 0x2ba4 @0x0
0x2ba4…2baa lno = 0x0a05 // 0x2ba6 @0x2
0x2ba4…2baa at0004 = ╱92╱ PRINT ╱ // 0x2ba8 @0x4
0x2ba4…2baa at0005 = EOL // 0x2ba9 @0x5
0x2ba4…2baa }
0x2baa…2bd3 c1c1 02570 PRINT "ARBEJDSINDKOMST…" ; PIL $ ( 1 : 9 ) ;
0x2baa…2bd3 LineComal80 {
0x2baa…2bd3 ptr = 0xc1c1 // 0x2baa @0x0
0x2baa…2bd3 lno = 0x0a0a // 0x2bac @0x2
0x2baa…2bd3 at0004 = ╱92╱ PRINT ╱ // 0x2bae @0x4
0x2baa…2bd3 at0005 = ╱22╱"╱ // 0x2baf @0x5
0x2baa…2bd3 at0006 = ╱41╱A╱ // 0x2bb0 @0x6
0x2baa…2bd3 at0007 = ╱52╱R╱ // 0x2bb1 @0x7
0x2baa…2bd3 at0008 = ╱42╱B╱ // 0x2bb2 @0x8
0x2baa…2bd3 at0009 = ╱45╱E╱ // 0x2bb3 @0x9
0x2baa…2bd3 at000a = ╱4a╱J╱ // 0x2bb4 @0xa
0x2baa…2bd3 at000b = ╱44╱D╱ // 0x2bb5 @0xb
0x2baa…2bd3 at000c = ╱53╱S╱ // 0x2bb6 @0xc
0x2baa…2bd3 at000d = ╱49╱I╱ // 0x2bb7 @0xd
0x2baa…2bd3 at000e = ╱4e╱N╱ // 0x2bb8 @0xe
0x2baa…2bd3 at000f = ╱44╱D╱ // 0x2bb9 @0xf
0x2baa…2bd3 at0010 = ╱4b╱K╱ // 0x2bba @0x10
0x2baa…2bd3 at0011 = ╱4f╱O╱ // 0x2bbb @0x11
0x2baa…2bd3 at0012 = ╱4d╱M╱ // 0x2bbc @0x12
0x2baa…2bd3 at0013 = ╱53╱S╱ // 0x2bbd @0x13
0x2baa…2bd3 at0014 = ╱54╱T╱ // 0x2bbe @0x14
0x2baa…2bd3 at0015 = ╱20╱…╱ // 0x2bbf @0x15
0x2baa…2bd3 at0016 = ╱22╱"╱ // 0x2bc0 @0x16
0x2baa…2bd3 at0017 = ╱ea╱ ; ╱ // 0x2bc1 @0x17
0x2baa…2bd3 at0018 = ╱50╱P╱ // 0x2bc2 @0x18
0x2baa…2bd3 at0019 = ╱49╱I╱ // 0x2bc3 @0x19
0x2baa…2bd3 at001a = ╱4c╱L╱ // 0x2bc4 @0x1a
0x2baa…2bd3 at001b = ╱ef╱ $ ╱ // 0x2bc5 @0x1b
0x2baa…2bd3 at001c = ╱ed╱ ( ╱ // 0x2bc6 @0x1c
0x2baa…2bd3 at001d = ╱31╱1╱ // 0x2bc7 @0x1d
0x2baa…2bd3 at001e = ╱f20100╱ // 0x2bc8 @0x1e
0x2baa…2bd3 at0021 = ╱f1╱ : ╱ // 0x2bcb @0x21
0x2baa…2bd3 at0022 = ╱39╱9╱ // 0x2bcc @0x22
0x2baa…2bd3 at0023 = ╱f20900╱ // 0x2bcd @0x23
0x2baa…2bd3 at0026 = ╱ee╱ ) ╱ // 0x2bd0 @0x26
0x2baa…2bd3 at0027 = ╱ea╱ ; ╱ // 0x2bd1 @0x27
0x2baa…2bd3 at0028 = EOL // 0x2bd2 @0x28
0x2baa…2bd3 }
0x2bd3…2be0 c1ce 02575 PRINT USING S $ : C1 ;
0x2bd3…2be0 LineComal80 {
0x2bd3…2be0 ptr = 0xc1ce // 0x2bd3 @0x0
0x2bd3…2be0 lno = 0x0a0f // 0x2bd5 @0x2
0x2bd3…2be0 at0004 = ╱92╱ PRINT ╱ // 0x2bd7 @0x4
0x2bd3…2be0 at0005 = ╱b9╱ USING ╱ // 0x2bd8 @0x5
0x2bd3…2be0 at0006 = ╱53╱S╱ // 0x2bd9 @0x6
0x2bd3…2be0 at0007 = ╱ef╱ $ ╱ // 0x2bda @0x7
0x2bd3…2be0 at0008 = ╱f1╱ : ╱ // 0x2bdb @0x8
0x2bd3…2be0 at0009 = ╱43╱C╱ // 0x2bdc @0x9
0x2bd3…2be0 at000a = ╱31╱1╱ // 0x2bdd @0xa
0x2bd3…2be0 at000b = ╱ea╱ ; ╱ // 0x2bde @0xb
0x2bd3…2be0 at000c = EOL // 0x2bdf @0xc
0x2bd3…2be0 }
0x2be0…2c12 c200 02580 PRINT TAB ( 41 ) ; "FORMUEINDKOMST…" ; PIL $ ( 1 : 10 ) ;
0x2be0…2c12 LineComal80 {
0x2be0…2c12 ptr = 0xc200 // 0x2be0 @0x0
0x2be0…2c12 lno = 0x0a14 // 0x2be2 @0x2
0x2be0…2c12 at0004 = ╱92╱ PRINT ╱ // 0x2be4 @0x4
0x2be0…2c12 at0005 = ╱d2╱ TAB ╱ // 0x2be5 @0x5
0x2be0…2c12 at0006 = ╱ed╱ ( ╱ // 0x2be6 @0x6
0x2be0…2c12 at0007 = ╱34╱4╱ // 0x2be7 @0x7
0x2be0…2c12 at0008 = ╱31╱1╱ // 0x2be8 @0x8
0x2be0…2c12 at0009 = ╱f22900╱ // 0x2be9 @0x9
0x2be0…2c12 at000c = ╱ee╱ ) ╱ // 0x2bec @0xc
0x2be0…2c12 at000d = ╱ea╱ ; ╱ // 0x2bed @0xd
0x2be0…2c12 at000e = ╱22╱"╱ // 0x2bee @0xe
0x2be0…2c12 at000f = ╱46╱F╱ // 0x2bef @0xf
0x2be0…2c12 at0010 = ╱4f╱O╱ // 0x2bf0 @0x10
0x2be0…2c12 at0011 = ╱52╱R╱ // 0x2bf1 @0x11
0x2be0…2c12 at0012 = ╱4d╱M╱ // 0x2bf2 @0x12
0x2be0…2c12 at0013 = ╱55╱U╱ // 0x2bf3 @0x13
0x2be0…2c12 at0014 = ╱45╱E╱ // 0x2bf4 @0x14
0x2be0…2c12 at0015 = ╱49╱I╱ // 0x2bf5 @0x15
0x2be0…2c12 at0016 = ╱4e╱N╱ // 0x2bf6 @0x16
0x2be0…2c12 at0017 = ╱44╱D╱ // 0x2bf7 @0x17
0x2be0…2c12 at0018 = ╱4b╱K╱ // 0x2bf8 @0x18
0x2be0…2c12 at0019 = ╱4f╱O╱ // 0x2bf9 @0x19
0x2be0…2c12 at001a = ╱4d╱M╱ // 0x2bfa @0x1a
0x2be0…2c12 at001b = ╱53╱S╱ // 0x2bfb @0x1b
0x2be0…2c12 at001c = ╱54╱T╱ // 0x2bfc @0x1c
0x2be0…2c12 at001d = ╱20╱…╱ // 0x2bfd @0x1d
0x2be0…2c12 at001e = ╱22╱"╱ // 0x2bfe @0x1e
0x2be0…2c12 at001f = ╱ea╱ ; ╱ // 0x2bff @0x1f
0x2be0…2c12 at0020 = ╱50╱P╱ // 0x2c00 @0x20
0x2be0…2c12 at0021 = ╱49╱I╱ // 0x2c01 @0x21
0x2be0…2c12 at0022 = ╱4c╱L╱ // 0x2c02 @0x22
0x2be0…2c12 at0023 = ╱ef╱ $ ╱ // 0x2c03 @0x23
0x2be0…2c12 at0024 = ╱ed╱ ( ╱ // 0x2c04 @0x24
0x2be0…2c12 at0025 = ╱31╱1╱ // 0x2c05 @0x25
0x2be0…2c12 at0026 = ╱f20100╱ // 0x2c06 @0x26
0x2be0…2c12 at0029 = ╱f1╱ : ╱ // 0x2c09 @0x29
0x2be0…2c12 at002a = ╱31╱1╱ // 0x2c0a @0x2a
0x2be0…2c12 at002b = ╱30╱0╱ // 0x2c0b @0x2b
0x2be0…2c12 at002c = ╱f20a00╱ // 0x2c0c @0x2c
0x2be0…2c12 at002f = ╱ee╱ ) ╱ // 0x2c0f @0x2f
0x2be0…2c12 at0030 = ╱ea╱ ; ╱ // 0x2c10 @0x30
0x2be0…2c12 at0031 = EOL // 0x2c11 @0x31
0x2be0…2c12 }
0x2c12…2c1e c20c 02585 PRINT USING S $ : C2
0x2c12…2c1e LineComal80 {
0x2c12…2c1e ptr = 0xc20c // 0x2c12 @0x0
0x2c12…2c1e lno = 0x0a19 // 0x2c14 @0x2
0x2c12…2c1e at0004 = ╱92╱ PRINT ╱ // 0x2c16 @0x4
0x2c12…2c1e at0005 = ╱b9╱ USING ╱ // 0x2c17 @0x5
0x2c12…2c1e at0006 = ╱53╱S╱ // 0x2c18 @0x6
0x2c12…2c1e at0007 = ╱ef╱ $ ╱ // 0x2c19 @0x7
0x2c12…2c1e at0008 = ╱f1╱ : ╱ // 0x2c1a @0x8
0x2c12…2c1e at0009 = ╱43╱C╱ // 0x2c1b @0x9
0x2c12…2c1e at000a = ╱32╱2╱ // 0x2c1c @0xa
0x2c12…2c1e at000b = EOL // 0x2c1d @0xb
0x2c12…2c1e }
0x2c1e…2c2c c21a 02590 LET C7 := C1 + C2
0x2c1e…2c2c LineComal80 {
0x2c1e…2c2c ptr = 0xc21a // 0x2c1e @0x0
0x2c1e…2c2c lno = 0x0a1e // 0x2c20 @0x2
0x2c1e…2c2c at0004 = ╱86╱ LET ╱ // 0x2c22 @0x4
0x2c1e…2c2c at0005 = ╱43╱C╱ // 0x2c23 @0x5
0x2c1e…2c2c at0006 = ╱37╱7╱ // 0x2c24 @0x6
0x2c1e…2c2c at0007 = ╱f0╱ := ╱ // 0x2c25 @0x7
0x2c1e…2c2c at0008 = ╱43╱C╱ // 0x2c26 @0x8
0x2c1e…2c2c at0009 = ╱31╱1╱ // 0x2c27 @0x9
0x2c1e…2c2c at000a = ╱e5╱ + ╱ // 0x2c28 @0xa
0x2c1e…2c2c at000b = ╱43╱C╱ // 0x2c29 @0xb
0x2c1e…2c2c at000c = ╱32╱2╱ // 0x2c2a @0xc
0x2c1e…2c2c at000d = EOL // 0x2c2b @0xd
0x2c1e…2c2c }
0x2c2c…2c5d c24b 02595 PRINT "SKATTEPLIGTIG…INDKOMST…" ; PIL $ ( 1 : 42 ) ;
0x2c2c…2c5d LineComal80 {
0x2c2c…2c5d ptr = 0xc24b // 0x2c2c @0x0
0x2c2c…2c5d lno = 0x0a23 // 0x2c2e @0x2
0x2c2c…2c5d at0004 = ╱92╱ PRINT ╱ // 0x2c30 @0x4
0x2c2c…2c5d at0005 = ╱22╱"╱ // 0x2c31 @0x5
0x2c2c…2c5d at0006 = ╱53╱S╱ // 0x2c32 @0x6
0x2c2c…2c5d at0007 = ╱4b╱K╱ // 0x2c33 @0x7
0x2c2c…2c5d at0008 = ╱41╱A╱ // 0x2c34 @0x8
0x2c2c…2c5d at0009 = ╱54╱T╱ // 0x2c35 @0x9
0x2c2c…2c5d at000a = ╱54╱T╱ // 0x2c36 @0xa
0x2c2c…2c5d at000b = ╱45╱E╱ // 0x2c37 @0xb
0x2c2c…2c5d at000c = ╱50╱P╱ // 0x2c38 @0xc
0x2c2c…2c5d at000d = ╱4c╱L╱ // 0x2c39 @0xd
0x2c2c…2c5d at000e = ╱49╱I╱ // 0x2c3a @0xe
0x2c2c…2c5d at000f = ╱47╱G╱ // 0x2c3b @0xf
0x2c2c…2c5d at0010 = ╱54╱T╱ // 0x2c3c @0x10
0x2c2c…2c5d at0011 = ╱49╱I╱ // 0x2c3d @0x11
0x2c2c…2c5d at0012 = ╱47╱G╱ // 0x2c3e @0x12
0x2c2c…2c5d at0013 = ╱20╱…╱ // 0x2c3f @0x13
0x2c2c…2c5d at0014 = ╱49╱I╱ // 0x2c40 @0x14
0x2c2c…2c5d at0015 = ╱4e╱N╱ // 0x2c41 @0x15
0x2c2c…2c5d at0016 = ╱44╱D╱ // 0x2c42 @0x16
0x2c2c…2c5d at0017 = ╱4b╱K╱ // 0x2c43 @0x17
0x2c2c…2c5d at0018 = ╱4f╱O╱ // 0x2c44 @0x18
0x2c2c…2c5d at0019 = ╱4d╱M╱ // 0x2c45 @0x19
0x2c2c…2c5d at001a = ╱53╱S╱ // 0x2c46 @0x1a
0x2c2c…2c5d at001b = ╱54╱T╱ // 0x2c47 @0x1b
0x2c2c…2c5d at001c = ╱20╱…╱ // 0x2c48 @0x1c
0x2c2c…2c5d at001d = ╱22╱"╱ // 0x2c49 @0x1d
0x2c2c…2c5d at001e = ╱ea╱ ; ╱ // 0x2c4a @0x1e
0x2c2c…2c5d at001f = ╱50╱P╱ // 0x2c4b @0x1f
0x2c2c…2c5d at0020 = ╱49╱I╱ // 0x2c4c @0x20
0x2c2c…2c5d at0021 = ╱4c╱L╱ // 0x2c4d @0x21
0x2c2c…2c5d at0022 = ╱ef╱ $ ╱ // 0x2c4e @0x22
0x2c2c…2c5d at0023 = ╱ed╱ ( ╱ // 0x2c4f @0x23
0x2c2c…2c5d at0024 = ╱31╱1╱ // 0x2c50 @0x24
0x2c2c…2c5d at0025 = ╱f20100╱ // 0x2c51 @0x25
0x2c2c…2c5d at0028 = ╱f1╱ : ╱ // 0x2c54 @0x28
0x2c2c…2c5d at0029 = ╱34╱4╱ // 0x2c55 @0x29
0x2c2c…2c5d at002a = ╱32╱2╱ // 0x2c56 @0x2a
0x2c2c…2c5d at002b = ╱f22a00╱ // 0x2c57 @0x2b
0x2c2c…2c5d at002e = ╱ee╱ ) ╱ // 0x2c5a @0x2e
0x2c2c…2c5d at002f = ╱ea╱ ; ╱ // 0x2c5b @0x2f
0x2c2c…2c5d at0030 = EOL // 0x2c5c @0x30
0x2c2c…2c5d }
0x2c5d…2c69 c257 02600 PRINT USING S $ : C7
0x2c5d…2c69 LineComal80 {
0x2c5d…2c69 ptr = 0xc257 // 0x2c5d @0x0
0x2c5d…2c69 lno = 0x0a28 // 0x2c5f @0x2
0x2c5d…2c69 at0004 = ╱92╱ PRINT ╱ // 0x2c61 @0x4
0x2c5d…2c69 at0005 = ╱b9╱ USING ╱ // 0x2c62 @0x5
0x2c5d…2c69 at0006 = ╱53╱S╱ // 0x2c63 @0x6
0x2c5d…2c69 at0007 = ╱ef╱ $ ╱ // 0x2c64 @0x7
0x2c5d…2c69 at0008 = ╱f1╱ : ╱ // 0x2c65 @0x8
0x2c5d…2c69 at0009 = ╱43╱C╱ // 0x2c66 @0x9
0x2c5d…2c69 at000a = ╱37╱7╱ // 0x2c67 @0xa
0x2c5d…2c69 at000b = EOL // 0x2c68 @0xb
0x2c5d…2c69 }
0x2c69…2c98 c286 02605 PRINT "SKATTEPLIGTIG…FORMUE…" ; PIL $ ( 1 : 44 ) ;
0x2c69…2c98 LineComal80 {
0x2c69…2c98 ptr = 0xc286 // 0x2c69 @0x0
0x2c69…2c98 lno = 0x0a2d // 0x2c6b @0x2
0x2c69…2c98 at0004 = ╱92╱ PRINT ╱ // 0x2c6d @0x4
0x2c69…2c98 at0005 = ╱22╱"╱ // 0x2c6e @0x5
0x2c69…2c98 at0006 = ╱53╱S╱ // 0x2c6f @0x6
0x2c69…2c98 at0007 = ╱4b╱K╱ // 0x2c70 @0x7
0x2c69…2c98 at0008 = ╱41╱A╱ // 0x2c71 @0x8
0x2c69…2c98 at0009 = ╱54╱T╱ // 0x2c72 @0x9
0x2c69…2c98 at000a = ╱54╱T╱ // 0x2c73 @0xa
0x2c69…2c98 at000b = ╱45╱E╱ // 0x2c74 @0xb
0x2c69…2c98 at000c = ╱50╱P╱ // 0x2c75 @0xc
0x2c69…2c98 at000d = ╱4c╱L╱ // 0x2c76 @0xd
0x2c69…2c98 at000e = ╱49╱I╱ // 0x2c77 @0xe
0x2c69…2c98 at000f = ╱47╱G╱ // 0x2c78 @0xf
0x2c69…2c98 at0010 = ╱54╱T╱ // 0x2c79 @0x10
0x2c69…2c98 at0011 = ╱49╱I╱ // 0x2c7a @0x11
0x2c69…2c98 at0012 = ╱47╱G╱ // 0x2c7b @0x12
0x2c69…2c98 at0013 = ╱20╱…╱ // 0x2c7c @0x13
0x2c69…2c98 at0014 = ╱46╱F╱ // 0x2c7d @0x14
0x2c69…2c98 at0015 = ╱4f╱O╱ // 0x2c7e @0x15
0x2c69…2c98 at0016 = ╱52╱R╱ // 0x2c7f @0x16
0x2c69…2c98 at0017 = ╱4d╱M╱ // 0x2c80 @0x17
0x2c69…2c98 at0018 = ╱55╱U╱ // 0x2c81 @0x18
0x2c69…2c98 at0019 = ╱45╱E╱ // 0x2c82 @0x19
0x2c69…2c98 at001a = ╱20╱…╱ // 0x2c83 @0x1a
0x2c69…2c98 at001b = ╱22╱"╱ // 0x2c84 @0x1b
0x2c69…2c98 at001c = ╱ea╱ ; ╱ // 0x2c85 @0x1c
0x2c69…2c98 at001d = ╱50╱P╱ // 0x2c86 @0x1d
0x2c69…2c98 at001e = ╱49╱I╱ // 0x2c87 @0x1e
0x2c69…2c98 at001f = ╱4c╱L╱ // 0x2c88 @0x1f
0x2c69…2c98 at0020 = ╱ef╱ $ ╱ // 0x2c89 @0x20
0x2c69…2c98 at0021 = ╱ed╱ ( ╱ // 0x2c8a @0x21
0x2c69…2c98 at0022 = ╱31╱1╱ // 0x2c8b @0x22
0x2c69…2c98 at0023 = ╱f20100╱ // 0x2c8c @0x23
0x2c69…2c98 at0026 = ╱f1╱ : ╱ // 0x2c8f @0x26
0x2c69…2c98 at0027 = ╱34╱4╱ // 0x2c90 @0x27
0x2c69…2c98 at0028 = ╱34╱4╱ // 0x2c91 @0x28
0x2c69…2c98 at0029 = ╱f22c00╱ // 0x2c92 @0x29
0x2c69…2c98 at002c = ╱ee╱ ) ╱ // 0x2c95 @0x2c
0x2c69…2c98 at002d = ╱ea╱ ; ╱ // 0x2c96 @0x2d
0x2c69…2c98 at002e = EOL // 0x2c97 @0x2e
0x2c69…2c98 }
0x2c98…2ca4 c292 02610 PRINT USING S $ : B6
0x2c98…2ca4 LineComal80 {
0x2c98…2ca4 ptr = 0xc292 // 0x2c98 @0x0
0x2c98…2ca4 lno = 0x0a32 // 0x2c9a @0x2
0x2c98…2ca4 at0004 = ╱92╱ PRINT ╱ // 0x2c9c @0x4
0x2c98…2ca4 at0005 = ╱b9╱ USING ╱ // 0x2c9d @0x5
0x2c98…2ca4 at0006 = ╱53╱S╱ // 0x2c9e @0x6
0x2c98…2ca4 at0007 = ╱ef╱ $ ╱ // 0x2c9f @0x7
0x2c98…2ca4 at0008 = ╱f1╱ : ╱ // 0x2ca0 @0x8
0x2c98…2ca4 at0009 = ╱42╱B╱ // 0x2ca1 @0x9
0x2c98…2ca4 at000a = ╱36╱6╱ // 0x2ca2 @0xa
0x2c98…2ca4 at000b = EOL // 0x2ca3 @0xb
0x2c98…2ca4 }
0x2ca4…2cb1 c29f 02615 ENDPROC SKATIND
0x2ca4…2cb1 LineComal80 {
0x2ca4…2cb1 ptr = 0xc29f // 0x2ca4 @0x0
0x2ca4…2cb1 lno = 0x0a37 // 0x2ca6 @0x2
0x2ca4…2cb1 at0004 = ╱9f╱ ENDPROC ╱ // 0x2ca8 @0x4
0x2ca4…2cb1 at0005 = ╱53╱S╱ // 0x2ca9 @0x5
0x2ca4…2cb1 at0006 = ╱4b╱K╱ // 0x2caa @0x6
0x2ca4…2cb1 at0007 = ╱41╱A╱ // 0x2cab @0x7
0x2ca4…2cb1 at0008 = ╱54╱T╱ // 0x2cac @0x8
0x2ca4…2cb1 at0009 = ╱49╱I╱ // 0x2cad @0x9
0x2ca4…2cb1 at000a = ╱4e╱N╱ // 0x2cae @0xa
0x2ca4…2cb1 at000b = ╱44╱D╱ // 0x2caf @0xb
0x2ca4…2cb1 at000c = EOL // 0x2cb0 @0xc
0x2ca4…2cb1 }
0x2cb1…2cbe c2ac 02620 PROC FORMUE
0x2cb1…2cbe LineComal80 {
0x2cb1…2cbe ptr = 0xc2ac // 0x2cb1 @0x0
0x2cb1…2cbe lno = 0x0a3c // 0x2cb3 @0x2
0x2cb1…2cbe at0004 = ╱9e00╱ PROC ╱ // 0x2cb5 @0x4
0x2cb1…2cbe at0006 = ╱46╱F╱ // 0x2cb7 @0x6
0x2cb1…2cbe at0007 = ╱4f╱O╱ // 0x2cb8 @0x7
0x2cb1…2cbe at0008 = ╱52╱R╱ // 0x2cb9 @0x8
0x2cb1…2cbe at0009 = ╱4d╱M╱ // 0x2cba @0x9
0x2cb1…2cbe at000a = ╱55╱U╱ // 0x2cbb @0xa
0x2cb1…2cbe at000b = ╱45╱E╱ // 0x2cbc @0xb
0x2cb1…2cbe at000c = EOL // 0x2cbd @0xc
0x2cb1…2cbe }
0x2cbe…2cce c2bc 02625 LET B7 := HFORMUE
0x2cbe…2cce LineComal80 {
0x2cbe…2cce ptr = 0xc2bc // 0x2cbe @0x0
0x2cbe…2cce lno = 0x0a41 // 0x2cc0 @0x2
0x2cbe…2cce at0004 = ╱86╱ LET ╱ // 0x2cc2 @0x4
0x2cbe…2cce at0005 = ╱42╱B╱ // 0x2cc3 @0x5
0x2cbe…2cce at0006 = ╱37╱7╱ // 0x2cc4 @0x6
0x2cbe…2cce at0007 = ╱f0╱ := ╱ // 0x2cc5 @0x7
0x2cbe…2cce at0008 = ╱48╱H╱ // 0x2cc6 @0x8
0x2cbe…2cce at0009 = ╱46╱F╱ // 0x2cc7 @0x9
0x2cbe…2cce at000a = ╱4f╱O╱ // 0x2cc8 @0xa
0x2cbe…2cce at000b = ╱52╱R╱ // 0x2cc9 @0xb
0x2cbe…2cce at000c = ╱4d╱M╱ // 0x2cca @0xc
0x2cbe…2cce at000d = ╱55╱U╱ // 0x2ccb @0xd
0x2cbe…2cce at000e = ╱45╱E╱ // 0x2ccc @0xe
0x2cbe…2cce at000f = EOL // 0x2ccd @0xf
0x2cbe…2cce }
0x2cce…2ce6 c2d4 02630 IF B7 < U2 + 99 THEN LET B7 := O
0x2cce…2ce6 LineComal80 {
0x2cce…2ce6 ptr = 0xc2d4 // 0x2cce @0x0
0x2cce…2ce6 lno = 0x0a46 // 0x2cd0 @0x2
0x2cce…2ce6 at0004 = ╱8200╱ IF ╱ // 0x2cd2 @0x4
0x2cce…2ce6 at0006 = ╱42╱B╱ // 0x2cd4 @0x6
0x2cce…2ce6 at0007 = ╱37╱7╱ // 0x2cd5 @0x7
0x2cce…2ce6 at0008 = ╱e0╱ < ╱ // 0x2cd6 @0x8
0x2cce…2ce6 at0009 = ╱55╱U╱ // 0x2cd7 @0x9
0x2cce…2ce6 at000a = ╱32╱2╱ // 0x2cd8 @0xa
0x2cce…2ce6 at000b = ╱e5╱ + ╱ // 0x2cd9 @0xb
0x2cce…2ce6 at000c = ╱39╱9╱ // 0x2cda @0xc
0x2cce…2ce6 at000d = ╱39╱9╱ // 0x2cdb @0xd
0x2cce…2ce6 at000e = ╱f26300╱ // 0x2cdc @0xe
0x2cce…2ce6 at0011 = ╱b5╱ THEN ╱ // 0x2cdf @0x11
0x2cce…2ce6 at0012 = ╱86╱ LET ╱ // 0x2ce0 @0x12
0x2cce…2ce6 at0013 = ╱42╱B╱ // 0x2ce1 @0x13
0x2cce…2ce6 at0014 = ╱37╱7╱ // 0x2ce2 @0x14
0x2cce…2ce6 at0015 = ╱f0╱ := ╱ // 0x2ce3 @0x15
0x2cce…2ce6 at0016 = ╱4f╱O╱ // 0x2ce4 @0x16
0x2cce…2ce6 at0017 = EOL // 0x2ce5 @0x17
0x2cce…2ce6 }
0x2ce6…2cf2 c2e0 02635 ENDPROC FORMUE
0x2ce6…2cf2 LineComal80 {
0x2ce6…2cf2 ptr = 0xc2e0 // 0x2ce6 @0x0
0x2ce6…2cf2 lno = 0x0a4b // 0x2ce8 @0x2
0x2ce6…2cf2 at0004 = ╱9f╱ ENDPROC ╱ // 0x2cea @0x4
0x2ce6…2cf2 at0005 = ╱46╱F╱ // 0x2ceb @0x5
0x2ce6…2cf2 at0006 = ╱4f╱O╱ // 0x2cec @0x6
0x2ce6…2cf2 at0007 = ╱52╱R╱ // 0x2ced @0x7
0x2ce6…2cf2 at0008 = ╱4d╱M╱ // 0x2cee @0x8
0x2ce6…2cf2 at0009 = ╱55╱U╱ // 0x2cef @0x9
0x2ce6…2cf2 at000a = ╱45╱E╱ // 0x2cf0 @0xa
0x2ce6…2cf2 at000b = EOL // 0x2cf1 @0xb
0x2ce6…2cf2 }
0x2cf2…2d00 c2ee 02640 PROC [FORMUE
0x2cf2…2d00 LineComal80 {
0x2cf2…2d00 ptr = 0xc2ee // 0x2cf2 @0x0
0x2cf2…2d00 lno = 0x0a50 // 0x2cf4 @0x2
0x2cf2…2d00 at0004 = ╱9e00╱ PROC ╱ // 0x2cf6 @0x4
0x2cf2…2d00 at0006 = ╱5b╱[╱ // 0x2cf8 @0x6
0x2cf2…2d00 at0007 = ╱46╱F╱ // 0x2cf9 @0x7
0x2cf2…2d00 at0008 = ╱4f╱O╱ // 0x2cfa @0x8
0x2cf2…2d00 at0009 = ╱52╱R╱ // 0x2cfb @0x9
0x2cf2…2d00 at000a = ╱4d╱M╱ // 0x2cfc @0xa
0x2cf2…2d00 at000b = ╱55╱U╱ // 0x2cfd @0xb
0x2cf2…2d00 at000c = ╱45╱E╱ // 0x2cfe @0xc
0x2cf2…2d00 at000d = EOL // 0x2cff @0xd
0x2cf2…2d00 }
0x2d00…2d1b c309 02645 LET B7 := HFORMUE ; B8 := BFORMUE
0x2d00…2d1b LineComal80 {
0x2d00…2d1b ptr = 0xc309 // 0x2d00 @0x0
0x2d00…2d1b lno = 0x0a55 // 0x2d02 @0x2
0x2d00…2d1b at0004 = ╱86╱ LET ╱ // 0x2d04 @0x4
0x2d00…2d1b at0005 = ╱42╱B╱ // 0x2d05 @0x5
0x2d00…2d1b at0006 = ╱37╱7╱ // 0x2d06 @0x6
0x2d00…2d1b at0007 = ╱f0╱ := ╱ // 0x2d07 @0x7
0x2d00…2d1b at0008 = ╱48╱H╱ // 0x2d08 @0x8
0x2d00…2d1b at0009 = ╱46╱F╱ // 0x2d09 @0x9
0x2d00…2d1b at000a = ╱4f╱O╱ // 0x2d0a @0xa
0x2d00…2d1b at000b = ╱52╱R╱ // 0x2d0b @0xb
0x2d00…2d1b at000c = ╱4d╱M╱ // 0x2d0c @0xc
0x2d00…2d1b at000d = ╱55╱U╱ // 0x2d0d @0xd
0x2d00…2d1b at000e = ╱45╱E╱ // 0x2d0e @0xe
0x2d00…2d1b at000f = ╱ea╱ ; ╱ // 0x2d0f @0xf
0x2d00…2d1b at0010 = ╱42╱B╱ // 0x2d10 @0x10
0x2d00…2d1b at0011 = ╱38╱8╱ // 0x2d11 @0x11
0x2d00…2d1b at0012 = ╱f0╱ := ╱ // 0x2d12 @0x12
0x2d00…2d1b at0013 = ╱42╱B╱ // 0x2d13 @0x13
0x2d00…2d1b at0014 = ╱46╱F╱ // 0x2d14 @0x14
0x2d00…2d1b at0015 = ╱4f╱O╱ // 0x2d15 @0x15
0x2d00…2d1b at0016 = ╱52╱R╱ // 0x2d16 @0x16
0x2d00…2d1b at0017 = ╱4d╱M╱ // 0x2d17 @0x17
0x2d00…2d1b at0018 = ╱55╱U╱ // 0x2d18 @0x18
0x2d00…2d1b at0019 = ╱45╱E╱ // 0x2d19 @0x19
0x2d00…2d1b at001a = EOL // 0x2d1a @0x1a
0x2d00…2d1b }
0x2d1b…2d43 c331 02650 IF T4 = 1 AND B7 + B8 < U2 + 99 THEN LET B7 := O ; B8 := O
0x2d1b…2d43 LineComal80 {
0x2d1b…2d43 ptr = 0xc331 // 0x2d1b @0x0
0x2d1b…2d43 lno = 0x0a5a // 0x2d1d @0x2
0x2d1b…2d43 at0004 = ╱8200╱ IF ╱ // 0x2d1f @0x4
0x2d1b…2d43 at0006 = ╱54╱T╱ // 0x2d21 @0x6
0x2d1b…2d43 at0007 = ╱34╱4╱ // 0x2d22 @0x7
0x2d1b…2d43 at0008 = ╱df╱ = ╱ // 0x2d23 @0x8
0x2d1b…2d43 at0009 = ╱31╱1╱ // 0x2d24 @0x9
0x2d1b…2d43 at000a = ╱f20100╱ // 0x2d25 @0xa
0x2d1b…2d43 at000d = ╱d9╱ AND ╱ // 0x2d28 @0xd
0x2d1b…2d43 at000e = ╱42╱B╱ // 0x2d29 @0xe
0x2d1b…2d43 at000f = ╱37╱7╱ // 0x2d2a @0xf
0x2d1b…2d43 at0010 = ╱e5╱ + ╱ // 0x2d2b @0x10
0x2d1b…2d43 at0011 = ╱42╱B╱ // 0x2d2c @0x11
0x2d1b…2d43 at0012 = ╱38╱8╱ // 0x2d2d @0x12
0x2d1b…2d43 at0013 = ╱e0╱ < ╱ // 0x2d2e @0x13
0x2d1b…2d43 at0014 = ╱55╱U╱ // 0x2d2f @0x14
0x2d1b…2d43 at0015 = ╱32╱2╱ // 0x2d30 @0x15
0x2d1b…2d43 at0016 = ╱e5╱ + ╱ // 0x2d31 @0x16
0x2d1b…2d43 at0017 = ╱39╱9╱ // 0x2d32 @0x17
0x2d1b…2d43 at0018 = ╱39╱9╱ // 0x2d33 @0x18
0x2d1b…2d43 at0019 = ╱f26300╱ // 0x2d34 @0x19
0x2d1b…2d43 at001c = ╱b5╱ THEN ╱ // 0x2d37 @0x1c
0x2d1b…2d43 at001d = ╱86╱ LET ╱ // 0x2d38 @0x1d
0x2d1b…2d43 at001e = ╱42╱B╱ // 0x2d39 @0x1e
0x2d1b…2d43 at001f = ╱37╱7╱ // 0x2d3a @0x1f
0x2d1b…2d43 at0020 = ╱f0╱ := ╱ // 0x2d3b @0x20
0x2d1b…2d43 at0021 = ╱4f╱O╱ // 0x2d3c @0x21
0x2d1b…2d43 at0022 = ╱ea╱ ; ╱ // 0x2d3d @0x22
0x2d1b…2d43 at0023 = ╱42╱B╱ // 0x2d3e @0x23
0x2d1b…2d43 at0024 = ╱38╱8╱ // 0x2d3f @0x24
0x2d1b…2d43 at0025 = ╱f0╱ := ╱ // 0x2d40 @0x25
0x2d1b…2d43 at0026 = ╱4f╱O╱ // 0x2d41 @0x26
0x2d1b…2d43 at0027 = EOL // 0x2d42 @0x27
0x2d1b…2d43 }
0x2d43…2d60 c34e 02655 IF T4 = O AND B7 < U2 + 99 THEN LET B7 := O
0x2d43…2d60 LineComal80 {
0x2d43…2d60 ptr = 0xc34e // 0x2d43 @0x0
0x2d43…2d60 lno = 0x0a5f // 0x2d45 @0x2
0x2d43…2d60 at0004 = ╱8200╱ IF ╱ // 0x2d47 @0x4
0x2d43…2d60 at0006 = ╱54╱T╱ // 0x2d49 @0x6
0x2d43…2d60 at0007 = ╱34╱4╱ // 0x2d4a @0x7
0x2d43…2d60 at0008 = ╱df╱ = ╱ // 0x2d4b @0x8
0x2d43…2d60 at0009 = ╱4f╱O╱ // 0x2d4c @0x9
0x2d43…2d60 at000a = ╱d9╱ AND ╱ // 0x2d4d @0xa
0x2d43…2d60 at000b = ╱42╱B╱ // 0x2d4e @0xb
0x2d43…2d60 at000c = ╱37╱7╱ // 0x2d4f @0xc
0x2d43…2d60 at000d = ╱e0╱ < ╱ // 0x2d50 @0xd
0x2d43…2d60 at000e = ╱55╱U╱ // 0x2d51 @0xe
0x2d43…2d60 at000f = ╱32╱2╱ // 0x2d52 @0xf
0x2d43…2d60 at0010 = ╱e5╱ + ╱ // 0x2d53 @0x10
0x2d43…2d60 at0011 = ╱39╱9╱ // 0x2d54 @0x11
0x2d43…2d60 at0012 = ╱39╱9╱ // 0x2d55 @0x12
0x2d43…2d60 at0013 = ╱f26300╱ // 0x2d56 @0x13
0x2d43…2d60 at0016 = ╱b5╱ THEN ╱ // 0x2d59 @0x16
0x2d43…2d60 at0017 = ╱86╱ LET ╱ // 0x2d5a @0x17
0x2d43…2d60 at0018 = ╱42╱B╱ // 0x2d5b @0x18
0x2d43…2d60 at0019 = ╱37╱7╱ // 0x2d5c @0x19
0x2d43…2d60 at001a = ╱f0╱ := ╱ // 0x2d5d @0x1a
0x2d43…2d60 at001b = ╱4f╱O╱ // 0x2d5e @0x1b
0x2d43…2d60 at001c = EOL // 0x2d5f @0x1c
0x2d43…2d60 }
0x2d60…2d7d c36b 02660 IF T4 = O AND B8 < U2 + 99 THEN LET B8 := O
0x2d60…2d7d LineComal80 {
0x2d60…2d7d ptr = 0xc36b // 0x2d60 @0x0
0x2d60…2d7d lno = 0x0a64 // 0x2d62 @0x2
0x2d60…2d7d at0004 = ╱8200╱ IF ╱ // 0x2d64 @0x4
0x2d60…2d7d at0006 = ╱54╱T╱ // 0x2d66 @0x6
0x2d60…2d7d at0007 = ╱34╱4╱ // 0x2d67 @0x7
0x2d60…2d7d at0008 = ╱df╱ = ╱ // 0x2d68 @0x8
0x2d60…2d7d at0009 = ╱4f╱O╱ // 0x2d69 @0x9
0x2d60…2d7d at000a = ╱d9╱ AND ╱ // 0x2d6a @0xa
0x2d60…2d7d at000b = ╱42╱B╱ // 0x2d6b @0xb
0x2d60…2d7d at000c = ╱38╱8╱ // 0x2d6c @0xc
0x2d60…2d7d at000d = ╱e0╱ < ╱ // 0x2d6d @0xd
0x2d60…2d7d at000e = ╱55╱U╱ // 0x2d6e @0xe
0x2d60…2d7d at000f = ╱32╱2╱ // 0x2d6f @0xf
0x2d60…2d7d at0010 = ╱e5╱ + ╱ // 0x2d70 @0x10
0x2d60…2d7d at0011 = ╱39╱9╱ // 0x2d71 @0x11
0x2d60…2d7d at0012 = ╱39╱9╱ // 0x2d72 @0x12
0x2d60…2d7d at0013 = ╱f26300╱ // 0x2d73 @0x13
0x2d60…2d7d at0016 = ╱b5╱ THEN ╱ // 0x2d76 @0x16
0x2d60…2d7d at0017 = ╱86╱ LET ╱ // 0x2d77 @0x17
0x2d60…2d7d at0018 = ╱42╱B╱ // 0x2d78 @0x18
0x2d60…2d7d at0019 = ╱38╱8╱ // 0x2d79 @0x19
0x2d60…2d7d at001a = ╱f0╱ := ╱ // 0x2d7a @0x1a
0x2d60…2d7d at001b = ╱4f╱O╱ // 0x2d7b @0x1b
0x2d60…2d7d at001c = EOL // 0x2d7c @0x1c
0x2d60…2d7d }
0x2d7d…2d8a c378 02665 ENDPROC [FORMUE
0x2d7d…2d8a LineComal80 {
0x2d7d…2d8a ptr = 0xc378 // 0x2d7d @0x0
0x2d7d…2d8a lno = 0x0a69 // 0x2d7f @0x2
0x2d7d…2d8a at0004 = ╱9f╱ ENDPROC ╱ // 0x2d81 @0x4
0x2d7d…2d8a at0005 = ╱5b╱[╱ // 0x2d82 @0x5
0x2d7d…2d8a at0006 = ╱46╱F╱ // 0x2d83 @0x6
0x2d7d…2d8a at0007 = ╱4f╱O╱ // 0x2d84 @0x7
0x2d7d…2d8a at0008 = ╱52╱R╱ // 0x2d85 @0x8
0x2d7d…2d8a at0009 = ╱4d╱M╱ // 0x2d86 @0x9
0x2d7d…2d8a at000a = ╱55╱U╱ // 0x2d87 @0xa
0x2d7d…2d8a at000b = ╱45╱E╱ // 0x2d88 @0xb
0x2d7d…2d8a at000c = EOL // 0x2d89 @0xc
0x2d7d…2d8a }
0x2d8a…2d96 c384 02670 PROC REGN3
0x2d8a…2d96 LineComal80 {
0x2d8a…2d96 ptr = 0xc384 // 0x2d8a @0x0
0x2d8a…2d96 lno = 0x0a6e // 0x2d8c @0x2
0x2d8a…2d96 at0004 = ╱9e00╱ PROC ╱ // 0x2d8e @0x4
0x2d8a…2d96 at0006 = ╱52╱R╱ // 0x2d90 @0x6
0x2d8a…2d96 at0007 = ╱45╱E╱ // 0x2d91 @0x7
0x2d8a…2d96 at0008 = ╱47╱G╱ // 0x2d92 @0x8
0x2d8a…2d96 at0009 = ╱4e╱N╱ // 0x2d93 @0x9
0x2d8a…2d96 at000a = ╱33╱3╱ // 0x2d94 @0xa
0x2d8a…2d96 at000b = EOL // 0x2d95 @0xb
0x2d8a…2d96 }
0x2d96…2db0 c39e 02675 IF B1 < O THEN LET B2 := B2 + B1 ; B1 := O
0x2d96…2db0 LineComal80 {
0x2d96…2db0 ptr = 0xc39e // 0x2d96 @0x0
0x2d96…2db0 lno = 0x0a73 // 0x2d98 @0x2
0x2d96…2db0 at0004 = ╱8200╱ IF ╱ // 0x2d9a @0x4
0x2d96…2db0 at0006 = ╱42╱B╱ // 0x2d9c @0x6
0x2d96…2db0 at0007 = ╱31╱1╱ // 0x2d9d @0x7
0x2d96…2db0 at0008 = ╱e0╱ < ╱ // 0x2d9e @0x8
0x2d96…2db0 at0009 = ╱4f╱O╱ // 0x2d9f @0x9
0x2d96…2db0 at000a = ╱b5╱ THEN ╱ // 0x2da0 @0xa
0x2d96…2db0 at000b = ╱86╱ LET ╱ // 0x2da1 @0xb
0x2d96…2db0 at000c = ╱42╱B╱ // 0x2da2 @0xc
0x2d96…2db0 at000d = ╱32╱2╱ // 0x2da3 @0xd
0x2d96…2db0 at000e = ╱f0╱ := ╱ // 0x2da4 @0xe
0x2d96…2db0 at000f = ╱42╱B╱ // 0x2da5 @0xf
0x2d96…2db0 at0010 = ╱32╱2╱ // 0x2da6 @0x10
0x2d96…2db0 at0011 = ╱e5╱ + ╱ // 0x2da7 @0x11
0x2d96…2db0 at0012 = ╱42╱B╱ // 0x2da8 @0x12
0x2d96…2db0 at0013 = ╱31╱1╱ // 0x2da9 @0x13
0x2d96…2db0 at0014 = ╱ea╱ ; ╱ // 0x2daa @0x14
0x2d96…2db0 at0015 = ╱42╱B╱ // 0x2dab @0x15
0x2d96…2db0 at0016 = ╱31╱1╱ // 0x2dac @0x16
0x2d96…2db0 at0017 = ╱f0╱ := ╱ // 0x2dad @0x17
0x2d96…2db0 at0018 = ╱4f╱O╱ // 0x2dae @0x18
0x2d96…2db0 at0019 = EOL // 0x2daf @0x19
0x2d96…2db0 }
0x2db0…2dca c3b8 02680 IF B4 < O THEN LET B5 := B5 + B4 ; B4 := O
0x2db0…2dca LineComal80 {
0x2db0…2dca ptr = 0xc3b8 // 0x2db0 @0x0
0x2db0…2dca lno = 0x0a78 // 0x2db2 @0x2
0x2db0…2dca at0004 = ╱8200╱ IF ╱ // 0x2db4 @0x4
0x2db0…2dca at0006 = ╱42╱B╱ // 0x2db6 @0x6
0x2db0…2dca at0007 = ╱34╱4╱ // 0x2db7 @0x7
0x2db0…2dca at0008 = ╱e0╱ < ╱ // 0x2db8 @0x8
0x2db0…2dca at0009 = ╱4f╱O╱ // 0x2db9 @0x9
0x2db0…2dca at000a = ╱b5╱ THEN ╱ // 0x2dba @0xa
0x2db0…2dca at000b = ╱86╱ LET ╱ // 0x2dbb @0xb
0x2db0…2dca at000c = ╱42╱B╱ // 0x2dbc @0xc
0x2db0…2dca at000d = ╱35╱5╱ // 0x2dbd @0xd
0x2db0…2dca at000e = ╱f0╱ := ╱ // 0x2dbe @0xe
0x2db0…2dca at000f = ╱42╱B╱ // 0x2dbf @0xf
0x2db0…2dca at0010 = ╱35╱5╱ // 0x2dc0 @0x10
0x2db0…2dca at0011 = ╱e5╱ + ╱ // 0x2dc1 @0x11
0x2db0…2dca at0012 = ╱42╱B╱ // 0x2dc2 @0x12
0x2db0…2dca at0013 = ╱34╱4╱ // 0x2dc3 @0x13
0x2db0…2dca at0014 = ╱ea╱ ; ╱ // 0x2dc4 @0x14
0x2db0…2dca at0015 = ╱42╱B╱ // 0x2dc5 @0x15
0x2db0…2dca at0016 = ╱34╱4╱ // 0x2dc6 @0x16
0x2db0…2dca at0017 = ╱f0╱ := ╱ // 0x2dc7 @0x17
0x2db0…2dca at0018 = ╱4f╱O╱ // 0x2dc8 @0x18
0x2db0…2dca at0019 = EOL // 0x2dc9 @0x19
0x2db0…2dca }
0x2dca…2dd7 c3c5 02685 IF 1 = B4 THEN
0x2dca…2dd7 LineComal80 {
0x2dca…2dd7 ptr = 0xc3c5 // 0x2dca @0x0
0x2dca…2dd7 lno = 0x0a7d // 0x2dcc @0x2
0x2dca…2dd7 at0004 = ╱9b0042╱ IF ╱ // 0x2dce @0x4
0x2dca…2dd7 at0007 = ╱31╱1╱ // 0x2dd1 @0x7
0x2dca…2dd7 at0008 = ╱df╱ = ╱ // 0x2dd2 @0x8
0x2dca…2dd7 at0009 = ╱42╱B╱ // 0x2dd3 @0x9
0x2dca…2dd7 at000a = ╱34╱4╱ // 0x2dd4 @0xa
0x2dca…2dd7 at000b = ╱b5╱ THEN ╱ // 0x2dd5 @0xb
0x2dca…2dd7 at000c = EOL // 0x2dd6 @0xc
0x2dca…2dd7 }
0x2dd7…2dec c3da 02690 IF B2 >= B5 THEN LET T0 := 1
0x2dd7…2dec LineComal80 {
0x2dd7…2dec ptr = 0xc3da // 0x2dd7 @0x0
0x2dd7…2dec lno = 0x0a82 // 0x2dd9 @0x2
0x2dd7…2dec at0004 = ╱8200╱ IF ╱ // 0x2ddb @0x4
0x2dd7…2dec at0006 = ╱42╱B╱ // 0x2ddd @0x6
0x2dd7…2dec at0007 = ╱32╱2╱ // 0x2dde @0x7
0x2dd7…2dec at0008 = ╱e3╱ >= ╱ // 0x2ddf @0x8
0x2dd7…2dec at0009 = ╱42╱B╱ // 0x2de0 @0x9
0x2dd7…2dec at000a = ╱35╱5╱ // 0x2de1 @0xa
0x2dd7…2dec at000b = ╱b5╱ THEN ╱ // 0x2de2 @0xb
0x2dd7…2dec at000c = ╱86╱ LET ╱ // 0x2de3 @0xc
0x2dd7…2dec at000d = ╱54╱T╱ // 0x2de4 @0xd
0x2dd7…2dec at000e = ╱30╱0╱ // 0x2de5 @0xe
0x2dd7…2dec at000f = ╱f0╱ := ╱ // 0x2de6 @0xf
0x2dd7…2dec at0010 = ╱31╱1╱ // 0x2de7 @0x10
0x2dd7…2dec at0011 = ╱f20100╱ // 0x2de8 @0x11
0x2dd7…2dec at0014 = EOL // 0x2deb @0x14
0x2dd7…2dec }
0x2dec…2e01 c3ef 02695 IF B2 < B5 THEN LET T0 := 2
0x2dec…2e01 LineComal80 {
0x2dec…2e01 ptr = 0xc3ef // 0x2dec @0x0
0x2dec…2e01 lno = 0x0a87 // 0x2dee @0x2
0x2dec…2e01 at0004 = ╱8200╱ IF ╱ // 0x2df0 @0x4
0x2dec…2e01 at0006 = ╱42╱B╱ // 0x2df2 @0x6
0x2dec…2e01 at0007 = ╱32╱2╱ // 0x2df3 @0x7
0x2dec…2e01 at0008 = ╱e0╱ < ╱ // 0x2df4 @0x8
0x2dec…2e01 at0009 = ╱42╱B╱ // 0x2df5 @0x9
0x2dec…2e01 at000a = ╱35╱5╱ // 0x2df6 @0xa
0x2dec…2e01 at000b = ╱b5╱ THEN ╱ // 0x2df7 @0xb
0x2dec…2e01 at000c = ╱86╱ LET ╱ // 0x2df8 @0xc
0x2dec…2e01 at000d = ╱54╱T╱ // 0x2df9 @0xd
0x2dec…2e01 at000e = ╱30╱0╱ // 0x2dfa @0xe
0x2dec…2e01 at000f = ╱f0╱ := ╱ // 0x2dfb @0xf
0x2dec…2e01 at0010 = ╱32╱2╱ // 0x2dfc @0x10
0x2dec…2e01 at0011 = ╱f20200╱ // 0x2dfd @0x11
0x2dec…2e01 at0014 = EOL // 0x2e00 @0x14
0x2dec…2e01 }
0x2e01…2e08 c3f6 02700 ELSE
0x2e01…2e08 LineComal80 {
0x2e01…2e08 ptr = 0xc3f6 // 0x2e01 @0x0
0x2e01…2e08 lno = 0x0a8c // 0x2e03 @0x2
0x2e01…2e08 at0004 = ╱9a00╱ ELSE ╱ // 0x2e05 @0x4
0x2e01…2e08 at0006 = EOL // 0x2e07 @0x6
0x2e01…2e08 }
0x2e08…2e15 c403 02705 IF 1 > B4 THEN
0x2e08…2e15 LineComal80 {
0x2e08…2e15 ptr = 0xc403 // 0x2e08 @0x0
0x2e08…2e15 lno = 0x0a91 // 0x2e0a @0x2
0x2e08…2e15 at0004 = ╱9b0042╱ IF ╱ // 0x2e0c @0x4
0x2e08…2e15 at0007 = ╱31╱1╱ // 0x2e0f @0x7
0x2e08…2e15 at0008 = ╱e1╱ > ╱ // 0x2e10 @0x8
0x2e08…2e15 at0009 = ╱42╱B╱ // 0x2e11 @0x9
0x2e08…2e15 at000a = ╱34╱4╱ // 0x2e12 @0xa
0x2e08…2e15 at000b = ╱b5╱ THEN ╱ // 0x2e13 @0xb
0x2e08…2e15 at000c = EOL // 0x2e14 @0xc
0x2e08…2e15 }
0x2e15…2e22 c410 02710 LET T0 := 1
0x2e15…2e22 LineComal80 {
0x2e15…2e22 ptr = 0xc410 // 0x2e15 @0x0
0x2e15…2e22 lno = 0x0a96 // 0x2e17 @0x2
0x2e15…2e22 at0004 = ╱86╱ LET ╱ // 0x2e19 @0x4
0x2e15…2e22 at0005 = ╱54╱T╱ // 0x2e1a @0x5
0x2e15…2e22 at0006 = ╱30╱0╱ // 0x2e1b @0x6
0x2e15…2e22 at0007 = ╱f0╱ := ╱ // 0x2e1c @0x7
0x2e15…2e22 at0008 = ╱31╱1╱ // 0x2e1d @0x8
0x2e15…2e22 at0009 = ╱f20100╱ // 0x2e1e @0x9
0x2e15…2e22 at000c = EOL // 0x2e21 @0xc
0x2e15…2e22 }
0x2e22…2e3e c42c 02715 IF B5 < O AND ABS ( B5 ) > C4 THEN EXEC REGN23
0x2e22…2e3e LineComal80 {
0x2e22…2e3e ptr = 0xc42c // 0x2e22 @0x0
0x2e22…2e3e lno = 0x0a9b // 0x2e24 @0x2
0x2e22…2e3e at0004 = ╱8200╱ IF ╱ // 0x2e26 @0x4
0x2e22…2e3e at0006 = ╱42╱B╱ // 0x2e28 @0x6
0x2e22…2e3e at0007 = ╱35╱5╱ // 0x2e29 @0x7
0x2e22…2e3e at0008 = ╱e0╱ < ╱ // 0x2e2a @0x8
0x2e22…2e3e at0009 = ╱4f╱O╱ // 0x2e2b @0x9
0x2e22…2e3e at000a = ╱d9╱ AND ╱ // 0x2e2c @0xa
0x2e22…2e3e at000b = ╱c4╱ ABS ╱ // 0x2e2d @0xb
0x2e22…2e3e at000c = ╱ed╱ ( ╱ // 0x2e2e @0xc
0x2e22…2e3e at000d = ╱42╱B╱ // 0x2e2f @0xd
0x2e22…2e3e at000e = ╱35╱5╱ // 0x2e30 @0xe
0x2e22…2e3e at000f = ╱ee╱ ) ╱ // 0x2e31 @0xf
0x2e22…2e3e at0010 = ╱e1╱ > ╱ // 0x2e32 @0x10
0x2e22…2e3e at0011 = ╱43╱C╱ // 0x2e33 @0x11
0x2e22…2e3e at0012 = ╱34╱4╱ // 0x2e34 @0x12
0x2e22…2e3e at0013 = ╱b5╱ THEN ╱ // 0x2e35 @0x13
0x2e22…2e3e at0014 = ╱9d╱ EXEC ╱ // 0x2e36 @0x14
0x2e22…2e3e at0015 = ╱52╱R╱ // 0x2e37 @0x15
0x2e22…2e3e at0016 = ╱45╱E╱ // 0x2e38 @0x16
0x2e22…2e3e at0017 = ╱47╱G╱ // 0x2e39 @0x17
0x2e22…2e3e at0018 = ╱4e╱N╱ // 0x2e3a @0x18
0x2e22…2e3e at0019 = ╱32╱2╱ // 0x2e3b @0x19
0x2e22…2e3e at001a = ╱33╱3╱ // 0x2e3c @0x1a
0x2e22…2e3e at001b = EOL // 0x2e3d @0x1b
0x2e22…2e3e }
0x2e3e…2e45 c433 02720 ELSE
0x2e3e…2e45 LineComal80 {
0x2e3e…2e45 ptr = 0xc433 // 0x2e3e @0x0
0x2e3e…2e45 lno = 0x0aa0 // 0x2e40 @0x2
0x2e3e…2e45 at0004 = ╱9a00╱ ELSE ╱ // 0x2e42 @0x4
0x2e3e…2e45 at0006 = EOL // 0x2e44 @0x6
0x2e3e…2e45 }
0x2e45…2e52 c440 02725 LET T0 := 2
0x2e45…2e52 LineComal80 {
0x2e45…2e52 ptr = 0xc440 // 0x2e45 @0x0
0x2e45…2e52 lno = 0x0aa5 // 0x2e47 @0x2
0x2e45…2e52 at0004 = ╱86╱ LET ╱ // 0x2e49 @0x4
0x2e45…2e52 at0005 = ╱54╱T╱ // 0x2e4a @0x5
0x2e45…2e52 at0006 = ╱30╱0╱ // 0x2e4b @0x6
0x2e45…2e52 at0007 = ╱f0╱ := ╱ // 0x2e4c @0x7
0x2e45…2e52 at0008 = ╱32╱2╱ // 0x2e4d @0x8
0x2e45…2e52 at0009 = ╱f20200╱ // 0x2e4e @0x9
0x2e45…2e52 at000c = EOL // 0x2e51 @0xc
0x2e45…2e52 }
0x2e52…2e6e (154,) c45c 02730 IF B2 < O AND ABS ( B2 ) > C6 THEN EXEC REGN24
0x2e52…2e6e LineComal80 {
0x2e52…2e6e ptr = 0xc45c // 0x2e52 @0x0
0x2e52…2e6e lno = 0x0aaa // 0x2e54 @0x2
0x2e52…2e6e at0004 = ╱8200╱ IF ╱ // 0x2e56 @0x4
0x2e52…2e6e at0006 = ╱42╱B╱ // 0x2e58 @0x6
0x2e52…2e6e at0007 = ╱32╱2╱ // 0x2e59 @0x7
0x2e52…2e6e at0008 = ╱e0╱ < ╱ // 0x2e5a @0x8
0x2e52…2e6e at0009 = ╱4f╱O╱ // 0x2e5b @0x9
0x2e52…2e6e at000a = ╱d9╱ AND ╱ // 0x2e5c @0xa
0x2e52…2e6e at000b = ╱c4╱ ABS ╱ // 0x2e5d @0xb
0x2e52…2e6e at000c = ╱ed╱ ( ╱ // 0x2e5e @0xc
0x2e52…2e6e at000d = ╱42╱B╱ // 0x2e5f @0xd
0x2e52…2e6e at000e = ╱32╱2╱ // 0x2e60 @0xe
0x2e52…2e6e at000f = ╱ee╱ ) ╱ // 0x2e61 @0xf
0x2e52…2e6e at0010 = ╱e1╱ > ╱ // 0x2e62 @0x10
0x2e52…2e6e at0011 = ╱43╱C╱ // 0x2e63 @0x11
0x2e52…2e6e at0012 = ╱36╱6╱ // 0x2e64 @0x12
0x2e52…2e6e at0013 = ╱b5╱ THEN ╱ // 0x2e65 @0x13
0x2e52…2e6e at0014 = ╱9d╱ EXEC ╱ // 0x2e66 @0x14
0x2e52…2e6e at0015 = ╱52╱R╱ // 0x2e67 @0x15
0x2e52…2e6e at0016 = ╱45╱E╱ // 0x2e68 @0x16
0x2e52…2e6e at0017 = ╱47╱G╱ // 0x2e69 @0x17
0x2e52…2e6e at0018 = ╱4e╱N╱ // 0x2e6a @0x18
0x2e52…2e6e at0019 = ╱32╱2╱ // 0x2e6b @0x19
0x2e52…2e6e at001a = ╱34╱4╱ // 0x2e6c @0x1a
0x2e52…2e6e at001b = EOL // 0x2e6d @0x1b
0x2e52…2e6e }
0x2e6e…2e74 c462 02735 ENDIF
0x2e6e…2e74 LineComal80 {
0x2e6e…2e74 ptr = 0xc462 // 0x2e6e @0x0
0x2e6e…2e74 lno = 0x0aaf // 0x2e70 @0x2
0x2e6e…2e74 at0004 = ╱9c╱ ENDIF ╱ // 0x2e72 @0x4
0x2e6e…2e74 at0005 = EOL // 0x2e73 @0x5
0x2e6e…2e74 }
0x2e74…2e7a c468 02740 ENDIF
0x2e74…2e7a LineComal80 {
0x2e74…2e7a ptr = 0xc468 // 0x2e74 @0x0
0x2e74…2e7a lno = 0x0ab4 // 0x2e76 @0x2
0x2e74…2e7a at0004 = ╱9c╱ ENDIF ╱ // 0x2e78 @0x4
0x2e74…2e7a at0005 = EOL // 0x2e79 @0x5
0x2e74…2e7a }
0x2e7a…2eb9 c4a7 02745 IF ( T0 = 1 AND ABS ( B5 ) =< 1000 ) OR ( T0 = 2 AND ABS ( B2 ) =< 1000 ) THEN LET T2 := 2
0x2e7a…2eb9 LineComal80 {
0x2e7a…2eb9 ptr = 0xc4a7 // 0x2e7a @0x0
0x2e7a…2eb9 lno = 0x0ab9 // 0x2e7c @0x2
0x2e7a…2eb9 at0004 = ╱8200╱ IF ╱ // 0x2e7e @0x4
0x2e7a…2eb9 at0006 = ╱ed╱ ( ╱ // 0x2e80 @0x6
0x2e7a…2eb9 at0007 = ╱54╱T╱ // 0x2e81 @0x7
0x2e7a…2eb9 at0008 = ╱30╱0╱ // 0x2e82 @0x8
0x2e7a…2eb9 at0009 = ╱df╱ = ╱ // 0x2e83 @0x9
0x2e7a…2eb9 at000a = ╱31╱1╱ // 0x2e84 @0xa
0x2e7a…2eb9 at000b = ╱f20100╱ // 0x2e85 @0xb
0x2e7a…2eb9 at000e = ╱d9╱ AND ╱ // 0x2e88 @0xe
0x2e7a…2eb9 at000f = ╱c4╱ ABS ╱ // 0x2e89 @0xf
0x2e7a…2eb9 at0010 = ╱ed╱ ( ╱ // 0x2e8a @0x10
0x2e7a…2eb9 at0011 = ╱42╱B╱ // 0x2e8b @0x11
0x2e7a…2eb9 at0012 = ╱35╱5╱ // 0x2e8c @0x12
0x2e7a…2eb9 at0013 = ╱ee╱ ) ╱ // 0x2e8d @0x13
0x2e7a…2eb9 at0014 = ╱e2╱ =< ╱ // 0x2e8e @0x14
0x2e7a…2eb9 at0015 = ╱31╱1╱ // 0x2e8f @0x15
0x2e7a…2eb9 at0016 = ╱30╱0╱ // 0x2e90 @0x16
0x2e7a…2eb9 at0017 = ╱30╱0╱ // 0x2e91 @0x17
0x2e7a…2eb9 at0018 = ╱30╱0╱ // 0x2e92 @0x18
0x2e7a…2eb9 at0019 = ╱f2e803╱ // 0x2e93 @0x19
0x2e7a…2eb9 at001c = ╱ee╱ ) ╱ // 0x2e96 @0x1c
0x2e7a…2eb9 at001d = ╱d8╱ OR ╱ // 0x2e97 @0x1d
0x2e7a…2eb9 at001e = ╱ed╱ ( ╱ // 0x2e98 @0x1e
0x2e7a…2eb9 at001f = ╱54╱T╱ // 0x2e99 @0x1f
0x2e7a…2eb9 at0020 = ╱30╱0╱ // 0x2e9a @0x20
0x2e7a…2eb9 at0021 = ╱df╱ = ╱ // 0x2e9b @0x21
0x2e7a…2eb9 at0022 = ╱32╱2╱ // 0x2e9c @0x22
0x2e7a…2eb9 at0023 = ╱f20200╱ // 0x2e9d @0x23
0x2e7a…2eb9 at0026 = ╱d9╱ AND ╱ // 0x2ea0 @0x26
0x2e7a…2eb9 at0027 = ╱c4╱ ABS ╱ // 0x2ea1 @0x27
0x2e7a…2eb9 at0028 = ╱ed╱ ( ╱ // 0x2ea2 @0x28
0x2e7a…2eb9 at0029 = ╱42╱B╱ // 0x2ea3 @0x29
0x2e7a…2eb9 at002a = ╱32╱2╱ // 0x2ea4 @0x2a
0x2e7a…2eb9 at002b = ╱ee╱ ) ╱ // 0x2ea5 @0x2b
0x2e7a…2eb9 at002c = ╱e2╱ =< ╱ // 0x2ea6 @0x2c
0x2e7a…2eb9 at002d = ╱31╱1╱ // 0x2ea7 @0x2d
0x2e7a…2eb9 at002e = ╱30╱0╱ // 0x2ea8 @0x2e
0x2e7a…2eb9 at002f = ╱30╱0╱ // 0x2ea9 @0x2f
0x2e7a…2eb9 at0030 = ╱30╱0╱ // 0x2eaa @0x30
0x2e7a…2eb9 at0031 = ╱f2e803╱ // 0x2eab @0x31
0x2e7a…2eb9 at0034 = ╱ee╱ ) ╱ // 0x2eae @0x34
0x2e7a…2eb9 at0035 = ╱b5╱ THEN ╱ // 0x2eaf @0x35
0x2e7a…2eb9 at0036 = ╱86╱ LET ╱ // 0x2eb0 @0x36
0x2e7a…2eb9 at0037 = ╱54╱T╱ // 0x2eb1 @0x37
0x2e7a…2eb9 at0038 = ╱32╱2╱ // 0x2eb2 @0x38
0x2e7a…2eb9 at0039 = ╱f0╱ := ╱ // 0x2eb3 @0x39
0x2e7a…2eb9 at003a = ╱32╱2╱ // 0x2eb4 @0x3a
0x2e7a…2eb9 at003b = ╱f20200╱ // 0x2eb5 @0x3b
0x2e7a…2eb9 at003e = EOL // 0x2eb8 @0x3e
0x2e7a…2eb9 }
0x2eb9…2ec4 c4b2 02750 ENDPROC REGN3
0x2eb9…2ec4 LineComal80 {
0x2eb9…2ec4 ptr = 0xc4b2 // 0x2eb9 @0x0
0x2eb9…2ec4 lno = 0x0abe // 0x2ebb @0x2
0x2eb9…2ec4 at0004 = ╱9f╱ ENDPROC ╱ // 0x2ebd @0x4
0x2eb9…2ec4 at0005 = ╱52╱R╱ // 0x2ebe @0x5
0x2eb9…2ec4 at0006 = ╱45╱E╱ // 0x2ebf @0x6
0x2eb9…2ec4 at0007 = ╱47╱G╱ // 0x2ec0 @0x7
0x2eb9…2ec4 at0008 = ╱4e╱N╱ // 0x2ec1 @0x8
0x2eb9…2ec4 at0009 = ╱33╱3╱ // 0x2ec2 @0x9
0x2eb9…2ec4 at000a = EOL // 0x2ec3 @0xa
0x2eb9…2ec4 }
0x2ec4…2ed1 c4bf 02755 PROC REGN23
0x2ec4…2ed1 LineComal80 {
0x2ec4…2ed1 ptr = 0xc4bf // 0x2ec4 @0x0
0x2ec4…2ed1 lno = 0x0ac3 // 0x2ec6 @0x2
0x2ec4…2ed1 at0004 = ╱9e00╱ PROC ╱ // 0x2ec8 @0x4
0x2ec4…2ed1 at0006 = ╱52╱R╱ // 0x2eca @0x6
0x2ec4…2ed1 at0007 = ╱45╱E╱ // 0x2ecb @0x7
0x2ec4…2ed1 at0008 = ╱47╱G╱ // 0x2ecc @0x8
0x2ec4…2ed1 at0009 = ╱4e╱N╱ // 0x2ecd @0x9
0x2ec4…2ed1 at000a = ╱32╱2╱ // 0x2ece @0xa
0x2ec4…2ed1 at000b = ╱33╱3╱ // 0x2ecf @0xb
0x2ec4…2ed1 at000c = EOL // 0x2ed0 @0xc
0x2ec4…2ed1 }
0x2ed1…2ef1 c4df 02760 LET E4 := B5 + C4 ; B5 := B5 - E4 ; B4 := B4 + E4
0x2ed1…2ef1 LineComal80 {
0x2ed1…2ef1 ptr = 0xc4df // 0x2ed1 @0x0
0x2ed1…2ef1 lno = 0x0ac8 // 0x2ed3 @0x2
0x2ed1…2ef1 at0004 = ╱86╱ LET ╱ // 0x2ed5 @0x4
0x2ed1…2ef1 at0005 = ╱45╱E╱ // 0x2ed6 @0x5
0x2ed1…2ef1 at0006 = ╱34╱4╱ // 0x2ed7 @0x6
0x2ed1…2ef1 at0007 = ╱f0╱ := ╱ // 0x2ed8 @0x7
0x2ed1…2ef1 at0008 = ╱42╱B╱ // 0x2ed9 @0x8
0x2ed1…2ef1 at0009 = ╱35╱5╱ // 0x2eda @0x9
0x2ed1…2ef1 at000a = ╱e5╱ + ╱ // 0x2edb @0xa
0x2ed1…2ef1 at000b = ╱43╱C╱ // 0x2edc @0xb
0x2ed1…2ef1 at000c = ╱34╱4╱ // 0x2edd @0xc
0x2ed1…2ef1 at000d = ╱ea╱ ; ╱ // 0x2ede @0xd
0x2ed1…2ef1 at000e = ╱42╱B╱ // 0x2edf @0xe
0x2ed1…2ef1 at000f = ╱35╱5╱ // 0x2ee0 @0xf
0x2ed1…2ef1 at0010 = ╱f0╱ := ╱ // 0x2ee1 @0x10
0x2ed1…2ef1 at0011 = ╱42╱B╱ // 0x2ee2 @0x11
0x2ed1…2ef1 at0012 = ╱35╱5╱ // 0x2ee3 @0x12
0x2ed1…2ef1 at0013 = ╱e6╱ - ╱ // 0x2ee4 @0x13
0x2ed1…2ef1 at0014 = ╱45╱E╱ // 0x2ee5 @0x14
0x2ed1…2ef1 at0015 = ╱34╱4╱ // 0x2ee6 @0x15
0x2ed1…2ef1 at0016 = ╱ea╱ ; ╱ // 0x2ee7 @0x16
0x2ed1…2ef1 at0017 = ╱42╱B╱ // 0x2ee8 @0x17
0x2ed1…2ef1 at0018 = ╱34╱4╱ // 0x2ee9 @0x18
0x2ed1…2ef1 at0019 = ╱f0╱ := ╱ // 0x2eea @0x19
0x2ed1…2ef1 at001a = ╱42╱B╱ // 0x2eeb @0x1a
0x2ed1…2ef1 at001b = ╱34╱4╱ // 0x2eec @0x1b
0x2ed1…2ef1 at001c = ╱e5╱ + ╱ // 0x2eed @0x1c
0x2ed1…2ef1 at001d = ╱45╱E╱ // 0x2eee @0x1d
0x2ed1…2ef1 at001e = ╱34╱4╱ // 0x2eef @0x1e
0x2ed1…2ef1 at001f = EOL // 0x2ef0 @0x1f
0x2ed1…2ef1 }
0x2ef1…2efd c4eb 02765 ENDPROC REGN23
0x2ef1…2efd LineComal80 {
0x2ef1…2efd ptr = 0xc4eb // 0x2ef1 @0x0
0x2ef1…2efd lno = 0x0acd // 0x2ef3 @0x2
0x2ef1…2efd at0004 = ╱9f╱ ENDPROC ╱ // 0x2ef5 @0x4
0x2ef1…2efd at0005 = ╱52╱R╱ // 0x2ef6 @0x5
0x2ef1…2efd at0006 = ╱45╱E╱ // 0x2ef7 @0x6
0x2ef1…2efd at0007 = ╱47╱G╱ // 0x2ef8 @0x7
0x2ef1…2efd at0008 = ╱4e╱N╱ // 0x2ef9 @0x8
0x2ef1…2efd at0009 = ╱32╱2╱ // 0x2efa @0x9
0x2ef1…2efd at000a = ╱33╱3╱ // 0x2efb @0xa
0x2ef1…2efd at000b = EOL // 0x2efc @0xb
0x2ef1…2efd }
0x2efd…2f0a c4f8 02770 PROC REGN24
0x2efd…2f0a LineComal80 {
0x2efd…2f0a ptr = 0xc4f8 // 0x2efd @0x0
0x2efd…2f0a lno = 0x0ad2 // 0x2eff @0x2
0x2efd…2f0a at0004 = ╱9e00╱ PROC ╱ // 0x2f01 @0x4
0x2efd…2f0a at0006 = ╱52╱R╱ // 0x2f03 @0x6
0x2efd…2f0a at0007 = ╱45╱E╱ // 0x2f04 @0x7
0x2efd…2f0a at0008 = ╱47╱G╱ // 0x2f05 @0x8
0x2efd…2f0a at0009 = ╱4e╱N╱ // 0x2f06 @0x9
0x2efd…2f0a at000a = ╱32╱2╱ // 0x2f07 @0xa
0x2efd…2f0a at000b = ╱34╱4╱ // 0x2f08 @0xb
0x2efd…2f0a at000c = EOL // 0x2f09 @0xc
0x2efd…2f0a }
0x2f0a…2f2a c518 02775 LET E4 := B2 + C6 ; B2 := B2 - E4 ; B1 := B1 + E4
0x2f0a…2f2a LineComal80 {
0x2f0a…2f2a ptr = 0xc518 // 0x2f0a @0x0
0x2f0a…2f2a lno = 0x0ad7 // 0x2f0c @0x2
0x2f0a…2f2a at0004 = ╱86╱ LET ╱ // 0x2f0e @0x4
0x2f0a…2f2a at0005 = ╱45╱E╱ // 0x2f0f @0x5
0x2f0a…2f2a at0006 = ╱34╱4╱ // 0x2f10 @0x6
0x2f0a…2f2a at0007 = ╱f0╱ := ╱ // 0x2f11 @0x7
0x2f0a…2f2a at0008 = ╱42╱B╱ // 0x2f12 @0x8
0x2f0a…2f2a at0009 = ╱32╱2╱ // 0x2f13 @0x9
0x2f0a…2f2a at000a = ╱e5╱ + ╱ // 0x2f14 @0xa
0x2f0a…2f2a at000b = ╱43╱C╱ // 0x2f15 @0xb
0x2f0a…2f2a at000c = ╱36╱6╱ // 0x2f16 @0xc
0x2f0a…2f2a at000d = ╱ea╱ ; ╱ // 0x2f17 @0xd
0x2f0a…2f2a at000e = ╱42╱B╱ // 0x2f18 @0xe
0x2f0a…2f2a at000f = ╱32╱2╱ // 0x2f19 @0xf
0x2f0a…2f2a at0010 = ╱f0╱ := ╱ // 0x2f1a @0x10
0x2f0a…2f2a at0011 = ╱42╱B╱ // 0x2f1b @0x11
0x2f0a…2f2a at0012 = ╱32╱2╱ // 0x2f1c @0x12
0x2f0a…2f2a at0013 = ╱e6╱ - ╱ // 0x2f1d @0x13
0x2f0a…2f2a at0014 = ╱45╱E╱ // 0x2f1e @0x14
0x2f0a…2f2a at0015 = ╱34╱4╱ // 0x2f1f @0x15
0x2f0a…2f2a at0016 = ╱ea╱ ; ╱ // 0x2f20 @0x16
0x2f0a…2f2a at0017 = ╱42╱B╱ // 0x2f21 @0x17
0x2f0a…2f2a at0018 = ╱31╱1╱ // 0x2f22 @0x18
0x2f0a…2f2a at0019 = ╱f0╱ := ╱ // 0x2f23 @0x19
0x2f0a…2f2a at001a = ╱42╱B╱ // 0x2f24 @0x1a
0x2f0a…2f2a at001b = ╱31╱1╱ // 0x2f25 @0x1b
0x2f0a…2f2a at001c = ╱e5╱ + ╱ // 0x2f26 @0x1c
0x2f0a…2f2a at001d = ╱45╱E╱ // 0x2f27 @0x1d
0x2f0a…2f2a at001e = ╱34╱4╱ // 0x2f28 @0x1e
0x2f0a…2f2a at001f = EOL // 0x2f29 @0x1f
0x2f0a…2f2a }
0x2f2a…2f36 c524 02780 ENDPROC REGN24
0x2f2a…2f36 LineComal80 {
0x2f2a…2f36 ptr = 0xc524 // 0x2f2a @0x0
0x2f2a…2f36 lno = 0x0adc // 0x2f2c @0x2
0x2f2a…2f36 at0004 = ╱9f╱ ENDPROC ╱ // 0x2f2e @0x4
0x2f2a…2f36 at0005 = ╱52╱R╱ // 0x2f2f @0x5
0x2f2a…2f36 at0006 = ╱45╱E╱ // 0x2f30 @0x6
0x2f2a…2f36 at0007 = ╱47╱G╱ // 0x2f31 @0x7
0x2f2a…2f36 at0008 = ╱4e╱N╱ // 0x2f32 @0x8
0x2f2a…2f36 at0009 = ╱32╱2╱ // 0x2f33 @0x9
0x2f2a…2f36 at000a = ╱34╱4╱ // 0x2f34 @0xa
0x2f2a…2f36 at000b = EOL // 0x2f35 @0xb
0x2f2a…2f36 }
0x2f36…2f43 c531 02785 PROC REGN25
0x2f36…2f43 LineComal80 {
0x2f36…2f43 ptr = 0xc531 // 0x2f36 @0x0
0x2f36…2f43 lno = 0x0ae1 // 0x2f38 @0x2
0x2f36…2f43 at0004 = ╱9e00╱ PROC ╱ // 0x2f3a @0x4
0x2f36…2f43 at0006 = ╱52╱R╱ // 0x2f3c @0x6
0x2f36…2f43 at0007 = ╱45╱E╱ // 0x2f3d @0x7
0x2f36…2f43 at0008 = ╱47╱G╱ // 0x2f3e @0x8
0x2f36…2f43 at0009 = ╱4e╱N╱ // 0x2f3f @0x9
0x2f36…2f43 at000a = ╱32╱2╱ // 0x2f40 @0xa
0x2f36…2f43 at000b = ╱35╱5╱ // 0x2f41 @0xb
0x2f36…2f43 at000c = EOL // 0x2f42 @0xc
0x2f36…2f43 }
0x2f43…2f55 c543 02790 LET C7 := INT ( C7 / W ) * W
0x2f43…2f55 LineComal80 {
0x2f43…2f55 ptr = 0xc543 // 0x2f43 @0x0
0x2f43…2f55 lno = 0x0ae6 // 0x2f45 @0x2
0x2f43…2f55 at0004 = ╱86╱ LET ╱ // 0x2f47 @0x4
0x2f43…2f55 at0005 = ╱43╱C╱ // 0x2f48 @0x5
0x2f43…2f55 at0006 = ╱37╱7╱ // 0x2f49 @0x6
0x2f43…2f55 at0007 = ╱f0╱ := ╱ // 0x2f4a @0x7
0x2f43…2f55 at0008 = ╱c6╱ INT ╱ // 0x2f4b @0x8
0x2f43…2f55 at0009 = ╱ed╱ ( ╱ // 0x2f4c @0x9
0x2f43…2f55 at000a = ╱43╱C╱ // 0x2f4d @0xa
0x2f43…2f55 at000b = ╱37╱7╱ // 0x2f4e @0xb
0x2f43…2f55 at000c = ╱e8╱ / ╱ // 0x2f4f @0xc
0x2f43…2f55 at000d = ╱57╱W╱ // 0x2f50 @0xd
0x2f43…2f55 at000e = ╱ee╱ ) ╱ // 0x2f51 @0xe
0x2f43…2f55 at000f = ╱e7╱ * ╱ // 0x2f52 @0xf
0x2f43…2f55 at0010 = ╱57╱W╱ // 0x2f53 @0x10
0x2f43…2f55 at0011 = EOL // 0x2f54 @0x11
0x2f43…2f55 }
0x2f55…2f68 c556 02795 IF 7 =< P1 OR C7 =< P2 THEN
0x2f55…2f68 LineComal80 {
0x2f55…2f68 ptr = 0xc556 // 0x2f55 @0x0
0x2f55…2f68 lno = 0x0aeb // 0x2f57 @0x2
0x2f55…2f68 at0004 = ╱9b0043╱ IF ╱ // 0x2f59 @0x4
0x2f55…2f68 at0007 = ╱37╱7╱ // 0x2f5c @0x7
0x2f55…2f68 at0008 = ╱e2╱ =< ╱ // 0x2f5d @0x8
0x2f55…2f68 at0009 = ╱50╱P╱ // 0x2f5e @0x9
0x2f55…2f68 at000a = ╱31╱1╱ // 0x2f5f @0xa
0x2f55…2f68 at000b = ╱d8╱ OR ╱ // 0x2f60 @0xb
0x2f55…2f68 at000c = ╱43╱C╱ // 0x2f61 @0xc
0x2f55…2f68 at000d = ╱37╱7╱ // 0x2f62 @0xd
0x2f55…2f68 at000e = ╱e2╱ =< ╱ // 0x2f63 @0xe
0x2f55…2f68 at000f = ╱50╱P╱ // 0x2f64 @0xf
0x2f55…2f68 at0010 = ╱32╱2╱ // 0x2f65 @0x10
0x2f55…2f68 at0011 = ╱b5╱ THEN ╱ // 0x2f66 @0x11
0x2f55…2f68 at0012 = EOL // 0x2f67 @0x12
0x2f55…2f68 }
0x2f68…2f7e c56c 02800 LET D1 := C7 * 16 / W * U1
0x2f68…2f7e LineComal80 {
0x2f68…2f7e ptr = 0xc56c // 0x2f68 @0x0
0x2f68…2f7e lno = 0x0af0 // 0x2f6a @0x2
0x2f68…2f7e at0004 = ╱86╱ LET ╱ // 0x2f6c @0x4
0x2f68…2f7e at0005 = ╱44╱D╱ // 0x2f6d @0x5
0x2f68…2f7e at0006 = ╱31╱1╱ // 0x2f6e @0x6
0x2f68…2f7e at0007 = ╱f0╱ := ╱ // 0x2f6f @0x7
0x2f68…2f7e at0008 = ╱43╱C╱ // 0x2f70 @0x8
0x2f68…2f7e at0009 = ╱37╱7╱ // 0x2f71 @0x9
0x2f68…2f7e at000a = ╱e7╱ * ╱ // 0x2f72 @0xa
0x2f68…2f7e at000b = ╱31╱1╱ // 0x2f73 @0xb
0x2f68…2f7e at000c = ╱36╱6╱ // 0x2f74 @0xc
0x2f68…2f7e at000d = ╱f21000╱ // 0x2f75 @0xd
0x2f68…2f7e at0010 = ╱e8╱ / ╱ // 0x2f78 @0x10
0x2f68…2f7e at0011 = ╱57╱W╱ // 0x2f79 @0x11
0x2f68…2f7e at0012 = ╱e7╱ * ╱ // 0x2f7a @0x12
0x2f68…2f7e at0013 = ╱55╱U╱ // 0x2f7b @0x13
0x2f68…2f7e at0014 = ╱31╱1╱ // 0x2f7c @0x14
0x2f68…2f7e at0015 = EOL // 0x2f7d @0x15
0x2f68…2f7e }
0x2f7e…2fb3 c5a1 02805 IF C7 > P1 THEN LET D1 := ( ( C7 - P1 ) * 32 / W * U1 ) + ( P1 * 16 / W * U1 )
0x2f7e…2fb3 LineComal80 {
0x2f7e…2fb3 ptr = 0xc5a1 // 0x2f7e @0x0
0x2f7e…2fb3 lno = 0x0af5 // 0x2f80 @0x2
0x2f7e…2fb3 at0004 = ╱8200╱ IF ╱ // 0x2f82 @0x4
0x2f7e…2fb3 at0006 = ╱43╱C╱ // 0x2f84 @0x6
0x2f7e…2fb3 at0007 = ╱37╱7╱ // 0x2f85 @0x7
0x2f7e…2fb3 at0008 = ╱e1╱ > ╱ // 0x2f86 @0x8
0x2f7e…2fb3 at0009 = ╱50╱P╱ // 0x2f87 @0x9
0x2f7e…2fb3 at000a = ╱31╱1╱ // 0x2f88 @0xa
0x2f7e…2fb3 at000b = ╱b5╱ THEN ╱ // 0x2f89 @0xb
0x2f7e…2fb3 at000c = ╱86╱ LET ╱ // 0x2f8a @0xc
0x2f7e…2fb3 at000d = ╱44╱D╱ // 0x2f8b @0xd
0x2f7e…2fb3 at000e = ╱31╱1╱ // 0x2f8c @0xe
0x2f7e…2fb3 at000f = ╱f0╱ := ╱ // 0x2f8d @0xf
0x2f7e…2fb3 at0010 = ╱ed╱ ( ╱ // 0x2f8e @0x10
0x2f7e…2fb3 at0011 = ╱ed╱ ( ╱ // 0x2f8f @0x11
0x2f7e…2fb3 at0012 = ╱43╱C╱ // 0x2f90 @0x12
0x2f7e…2fb3 at0013 = ╱37╱7╱ // 0x2f91 @0x13
0x2f7e…2fb3 at0014 = ╱e6╱ - ╱ // 0x2f92 @0x14
0x2f7e…2fb3 at0015 = ╱50╱P╱ // 0x2f93 @0x15
0x2f7e…2fb3 at0016 = ╱31╱1╱ // 0x2f94 @0x16
0x2f7e…2fb3 at0017 = ╱ee╱ ) ╱ // 0x2f95 @0x17
0x2f7e…2fb3 at0018 = ╱e7╱ * ╱ // 0x2f96 @0x18
0x2f7e…2fb3 at0019 = ╱33╱3╱ // 0x2f97 @0x19
0x2f7e…2fb3 at001a = ╱32╱2╱ // 0x2f98 @0x1a
0x2f7e…2fb3 at001b = ╱f22000╱ // 0x2f99 @0x1b
0x2f7e…2fb3 at001e = ╱e8╱ / ╱ // 0x2f9c @0x1e
0x2f7e…2fb3 at001f = ╱57╱W╱ // 0x2f9d @0x1f
0x2f7e…2fb3 at0020 = ╱e7╱ * ╱ // 0x2f9e @0x20
0x2f7e…2fb3 at0021 = ╱55╱U╱ // 0x2f9f @0x21
0x2f7e…2fb3 at0022 = ╱31╱1╱ // 0x2fa0 @0x22
0x2f7e…2fb3 at0023 = ╱ee╱ ) ╱ // 0x2fa1 @0x23
0x2f7e…2fb3 at0024 = ╱e5╱ + ╱ // 0x2fa2 @0x24
0x2f7e…2fb3 at0025 = ╱ed╱ ( ╱ // 0x2fa3 @0x25
0x2f7e…2fb3 at0026 = ╱50╱P╱ // 0x2fa4 @0x26
0x2f7e…2fb3 at0027 = ╱31╱1╱ // 0x2fa5 @0x27
0x2f7e…2fb3 at0028 = ╱e7╱ * ╱ // 0x2fa6 @0x28
0x2f7e…2fb3 at0029 = ╱31╱1╱ // 0x2fa7 @0x29
0x2f7e…2fb3 at002a = ╱36╱6╱ // 0x2fa8 @0x2a
0x2f7e…2fb3 at002b = ╱f21000╱ // 0x2fa9 @0x2b
0x2f7e…2fb3 at002e = ╱e8╱ / ╱ // 0x2fac @0x2e
0x2f7e…2fb3 at002f = ╱57╱W╱ // 0x2fad @0x2f
0x2f7e…2fb3 at0030 = ╱e7╱ * ╱ // 0x2fae @0x30
0x2f7e…2fb3 at0031 = ╱55╱U╱ // 0x2faf @0x31
0x2f7e…2fb3 at0032 = ╱31╱1╱ // 0x2fb0 @0x32
0x2f7e…2fb3 at0033 = ╱ee╱ ) ╱ // 0x2fb1 @0x33
0x2f7e…2fb3 at0034 = EOL // 0x2fb2 @0x34
0x2f7e…2fb3 }
0x2fb3…2fba c5a8 02810 ELSE
0x2fb3…2fba LineComal80 {
0x2fb3…2fba ptr = 0xc5a8 // 0x2fb3 @0x0
0x2fb3…2fba lno = 0x0afa // 0x2fb5 @0x2
0x2fb3…2fba at0004 = ╱9a00╱ ELSE ╱ // 0x2fb7 @0x4
0x2fb3…2fba at0006 = EOL // 0x2fb9 @0x6
0x2fb3…2fba }
0x2fba…2ffc c5ea 02815 LET D1 := ( ( C7 - P2 ) * 44 / W * U1 ) + ( ( P2 - P1 ) * 32 / W * U1 ) + ( P1 * 16 / W * U1 )
0x2fba…2ffc LineComal80 {
0x2fba…2ffc ptr = 0xc5ea // 0x2fba @0x0
0x2fba…2ffc lno = 0x0aff // 0x2fbc @0x2
0x2fba…2ffc at0004 = ╱86╱ LET ╱ // 0x2fbe @0x4
0x2fba…2ffc at0005 = ╱44╱D╱ // 0x2fbf @0x5
0x2fba…2ffc at0006 = ╱31╱1╱ // 0x2fc0 @0x6
0x2fba…2ffc at0007 = ╱f0╱ := ╱ // 0x2fc1 @0x7
0x2fba…2ffc at0008 = ╱ed╱ ( ╱ // 0x2fc2 @0x8
0x2fba…2ffc at0009 = ╱ed╱ ( ╱ // 0x2fc3 @0x9
0x2fba…2ffc at000a = ╱43╱C╱ // 0x2fc4 @0xa
0x2fba…2ffc at000b = ╱37╱7╱ // 0x2fc5 @0xb
0x2fba…2ffc at000c = ╱e6╱ - ╱ // 0x2fc6 @0xc
0x2fba…2ffc at000d = ╱50╱P╱ // 0x2fc7 @0xd
0x2fba…2ffc at000e = ╱32╱2╱ // 0x2fc8 @0xe
0x2fba…2ffc at000f = ╱ee╱ ) ╱ // 0x2fc9 @0xf
0x2fba…2ffc at0010 = ╱e7╱ * ╱ // 0x2fca @0x10
0x2fba…2ffc at0011 = ╱34╱4╱ // 0x2fcb @0x11
0x2fba…2ffc at0012 = ╱34╱4╱ // 0x2fcc @0x12
0x2fba…2ffc at0013 = ╱f22c00╱ // 0x2fcd @0x13
0x2fba…2ffc at0016 = ╱e8╱ / ╱ // 0x2fd0 @0x16
0x2fba…2ffc at0017 = ╱57╱W╱ // 0x2fd1 @0x17
0x2fba…2ffc at0018 = ╱e7╱ * ╱ // 0x2fd2 @0x18
0x2fba…2ffc at0019 = ╱55╱U╱ // 0x2fd3 @0x19
0x2fba…2ffc at001a = ╱31╱1╱ // 0x2fd4 @0x1a
0x2fba…2ffc at001b = ╱ee╱ ) ╱ // 0x2fd5 @0x1b
0x2fba…2ffc at001c = ╱e5╱ + ╱ // 0x2fd6 @0x1c
0x2fba…2ffc at001d = ╱ed╱ ( ╱ // 0x2fd7 @0x1d
0x2fba…2ffc at001e = ╱ed╱ ( ╱ // 0x2fd8 @0x1e
0x2fba…2ffc at001f = ╱50╱P╱ // 0x2fd9 @0x1f
0x2fba…2ffc at0020 = ╱32╱2╱ // 0x2fda @0x20
0x2fba…2ffc at0021 = ╱e6╱ - ╱ // 0x2fdb @0x21
0x2fba…2ffc at0022 = ╱50╱P╱ // 0x2fdc @0x22
0x2fba…2ffc at0023 = ╱31╱1╱ // 0x2fdd @0x23
0x2fba…2ffc at0024 = ╱ee╱ ) ╱ // 0x2fde @0x24
0x2fba…2ffc at0025 = ╱e7╱ * ╱ // 0x2fdf @0x25
0x2fba…2ffc at0026 = ╱33╱3╱ // 0x2fe0 @0x26
0x2fba…2ffc at0027 = ╱32╱2╱ // 0x2fe1 @0x27
0x2fba…2ffc at0028 = ╱f22000╱ // 0x2fe2 @0x28
0x2fba…2ffc at002b = ╱e8╱ / ╱ // 0x2fe5 @0x2b
0x2fba…2ffc at002c = ╱57╱W╱ // 0x2fe6 @0x2c
0x2fba…2ffc at002d = ╱e7╱ * ╱ // 0x2fe7 @0x2d
0x2fba…2ffc at002e = ╱55╱U╱ // 0x2fe8 @0x2e
0x2fba…2ffc at002f = ╱31╱1╱ // 0x2fe9 @0x2f
0x2fba…2ffc at0030 = ╱ee╱ ) ╱ // 0x2fea @0x30
0x2fba…2ffc at0031 = ╱e5╱ + ╱ // 0x2feb @0x31
0x2fba…2ffc at0032 = ╱ed╱ ( ╱ // 0x2fec @0x32
0x2fba…2ffc at0033 = ╱50╱P╱ // 0x2fed @0x33
0x2fba…2ffc at0034 = ╱31╱1╱ // 0x2fee @0x34
0x2fba…2ffc at0035 = ╱e7╱ * ╱ // 0x2fef @0x35
0x2fba…2ffc at0036 = ╱31╱1╱ // 0x2ff0 @0x36
0x2fba…2ffc at0037 = ╱36╱6╱ // 0x2ff1 @0x37
0x2fba…2ffc at0038 = ╱f21000╱ // 0x2ff2 @0x38
0x2fba…2ffc at003b = ╱e8╱ / ╱ // 0x2ff5 @0x3b
0x2fba…2ffc at003c = ╱57╱W╱ // 0x2ff6 @0x3c
0x2fba…2ffc at003d = ╱e7╱ * ╱ // 0x2ff7 @0x3d
0x2fba…2ffc at003e = ╱55╱U╱ // 0x2ff8 @0x3e
0x2fba…2ffc at003f = ╱31╱1╱ // 0x2ff9 @0x3f
0x2fba…2ffc at0040 = ╱ee╱ ) ╱ // 0x2ffa @0x40
0x2fba…2ffc at0041 = EOL // 0x2ffb @0x41
0x2fba…2ffc }
0x2ffc…3029 c617 02820 IF P7 + P8 > E1 THEN LET D1 := D1 - ( ( C7 - P2 ) * ( P7 + P8 - E1 ) / W )
0x2ffc…3029 LineComal80 {
0x2ffc…3029 ptr = 0xc617 // 0x2ffc @0x0
0x2ffc…3029 lno = 0x0b04 // 0x2ffe @0x2
0x2ffc…3029 at0004 = ╱8200╱ IF ╱ // 0x3000 @0x4
0x2ffc…3029 at0006 = ╱50╱P╱ // 0x3002 @0x6
0x2ffc…3029 at0007 = ╱37╱7╱ // 0x3003 @0x7
0x2ffc…3029 at0008 = ╱e5╱ + ╱ // 0x3004 @0x8
0x2ffc…3029 at0009 = ╱50╱P╱ // 0x3005 @0x9
0x2ffc…3029 at000a = ╱38╱8╱ // 0x3006 @0xa
0x2ffc…3029 at000b = ╱e1╱ > ╱ // 0x3007 @0xb
0x2ffc…3029 at000c = ╱45╱E╱ // 0x3008 @0xc
0x2ffc…3029 at000d = ╱31╱1╱ // 0x3009 @0xd
0x2ffc…3029 at000e = ╱b5╱ THEN ╱ // 0x300a @0xe
0x2ffc…3029 at000f = ╱86╱ LET ╱ // 0x300b @0xf
0x2ffc…3029 at0010 = ╱44╱D╱ // 0x300c @0x10
0x2ffc…3029 at0011 = ╱31╱1╱ // 0x300d @0x11
0x2ffc…3029 at0012 = ╱f0╱ := ╱ // 0x300e @0x12
0x2ffc…3029 at0013 = ╱44╱D╱ // 0x300f @0x13
0x2ffc…3029 at0014 = ╱31╱1╱ // 0x3010 @0x14
0x2ffc…3029 at0015 = ╱e6╱ - ╱ // 0x3011 @0x15
0x2ffc…3029 at0016 = ╱ed╱ ( ╱ // 0x3012 @0x16
0x2ffc…3029 at0017 = ╱ed╱ ( ╱ // 0x3013 @0x17
0x2ffc…3029 at0018 = ╱43╱C╱ // 0x3014 @0x18
0x2ffc…3029 at0019 = ╱37╱7╱ // 0x3015 @0x19
0x2ffc…3029 at001a = ╱e6╱ - ╱ // 0x3016 @0x1a
0x2ffc…3029 at001b = ╱50╱P╱ // 0x3017 @0x1b
0x2ffc…3029 at001c = ╱32╱2╱ // 0x3018 @0x1c
0x2ffc…3029 at001d = ╱ee╱ ) ╱ // 0x3019 @0x1d
0x2ffc…3029 at001e = ╱e7╱ * ╱ // 0x301a @0x1e
0x2ffc…3029 at001f = ╱ed╱ ( ╱ // 0x301b @0x1f
0x2ffc…3029 at0020 = ╱50╱P╱ // 0x301c @0x20
0x2ffc…3029 at0021 = ╱37╱7╱ // 0x301d @0x21
0x2ffc…3029 at0022 = ╱e5╱ + ╱ // 0x301e @0x22
0x2ffc…3029 at0023 = ╱50╱P╱ // 0x301f @0x23
0x2ffc…3029 at0024 = ╱38╱8╱ // 0x3020 @0x24
0x2ffc…3029 at0025 = ╱e6╱ - ╱ // 0x3021 @0x25
0x2ffc…3029 at0026 = ╱45╱E╱ // 0x3022 @0x26
0x2ffc…3029 at0027 = ╱31╱1╱ // 0x3023 @0x27
0x2ffc…3029 at0028 = ╱ee╱ ) ╱ // 0x3024 @0x28
0x2ffc…3029 at0029 = ╱e8╱ / ╱ // 0x3025 @0x29
0x2ffc…3029 at002a = ╱57╱W╱ // 0x3026 @0x2a
0x2ffc…3029 at002b = ╱ee╱ ) ╱ // 0x3027 @0x2b
0x2ffc…3029 at002c = EOL // 0x3028 @0x2c
0x2ffc…3029 }
0x3029…302f c61d 02825 ENDIF
0x3029…302f LineComal80 {
0x3029…302f ptr = 0xc61d // 0x3029 @0x0
0x3029…302f lno = 0x0b09 // 0x302b @0x2
0x3029…302f at0004 = ╱9c╱ ENDIF ╱ // 0x302d @0x4
0x3029…302f at0005 = EOL // 0x302e @0x5
0x3029…302f }
0x302f…303b c629 02830 ENDPROC REGN25
0x302f…303b LineComal80 {
0x302f…303b ptr = 0xc629 // 0x302f @0x0
0x302f…303b lno = 0x0b0e // 0x3031 @0x2
0x302f…303b at0004 = ╱9f╱ ENDPROC ╱ // 0x3033 @0x4
0x302f…303b at0005 = ╱52╱R╱ // 0x3034 @0x5
0x302f…303b at0006 = ╱45╱E╱ // 0x3035 @0x6
0x302f…303b at0007 = ╱47╱G╱ // 0x3036 @0x7
0x302f…303b at0008 = ╱4e╱N╱ // 0x3037 @0x8
0x302f…303b at0009 = ╱32╱2╱ // 0x3038 @0x9
0x302f…303b at000a = ╱35╱5╱ // 0x3039 @0xa
0x302f…303b at000b = EOL // 0x303a @0xb
0x302f…303b }
0x303b…3048 c636 02835 PROC REGN26
0x303b…3048 LineComal80 {
0x303b…3048 ptr = 0xc636 // 0x303b @0x0
0x303b…3048 lno = 0x0b13 // 0x303d @0x2
0x303b…3048 at0004 = ╱9e00╱ PROC ╱ // 0x303f @0x4
0x303b…3048 at0006 = ╱52╱R╱ // 0x3041 @0x6
0x303b…3048 at0007 = ╱45╱E╱ // 0x3042 @0x7
0x303b…3048 at0008 = ╱47╱G╱ // 0x3043 @0x8
0x303b…3048 at0009 = ╱4e╱N╱ // 0x3044 @0x9
0x303b…3048 at000a = ╱32╱2╱ // 0x3045 @0xa
0x303b…3048 at000b = ╱36╱6╱ // 0x3046 @0xb
0x303b…3048 at000c = EOL // 0x3047 @0xc
0x303b…3048 }
0x3048…3058 c646 02840 LET D2 := C7 * P0 / W
0x3048…3058 LineComal80 {
0x3048…3058 ptr = 0xc646 // 0x3048 @0x0
0x3048…3058 lno = 0x0b18 // 0x304a @0x2
0x3048…3058 at0004 = ╱86╱ LET ╱ // 0x304c @0x4
0x3048…3058 at0005 = ╱44╱D╱ // 0x304d @0x5
0x3048…3058 at0006 = ╱32╱2╱ // 0x304e @0x6
0x3048…3058 at0007 = ╱f0╱ := ╱ // 0x304f @0x7
0x3048…3058 at0008 = ╱43╱C╱ // 0x3050 @0x8
0x3048…3058 at0009 = ╱37╱7╱ // 0x3051 @0x9
0x3048…3058 at000a = ╱e7╱ * ╱ // 0x3052 @0xa
0x3048…3058 at000b = ╱50╱P╱ // 0x3053 @0xb
0x3048…3058 at000c = ╱30╱0╱ // 0x3054 @0xc
0x3048…3058 at000d = ╱e8╱ / ╱ // 0x3055 @0xd
0x3048…3058 at000e = ╱57╱W╱ // 0x3056 @0xe
0x3048…3058 at000f = EOL // 0x3057 @0xf
0x3048…3058 }
0x3058…3064 c652 02845 ENDPROC REGN26
0x3058…3064 LineComal80 {
0x3058…3064 ptr = 0xc652 // 0x3058 @0x0
0x3058…3064 lno = 0x0b1d // 0x305a @0x2
0x3058…3064 at0004 = ╱9f╱ ENDPROC ╱ // 0x305c @0x4
0x3058…3064 at0005 = ╱52╱R╱ // 0x305d @0x5
0x3058…3064 at0006 = ╱45╱E╱ // 0x305e @0x6
0x3058…3064 at0007 = ╱47╱G╱ // 0x305f @0x7
0x3058…3064 at0008 = ╱4e╱N╱ // 0x3060 @0x8
0x3058…3064 at0009 = ╱32╱2╱ // 0x3061 @0x9
0x3058…3064 at000a = ╱36╱6╱ // 0x3062 @0xa
0x3058…3064 at000b = EOL // 0x3063 @0xb
0x3058…3064 }
0x3064…3071 c65f 02850 PROC REGN27
0x3064…3071 LineComal80 {
0x3064…3071 ptr = 0xc65f // 0x3064 @0x0
0x3064…3071 lno = 0x0b22 // 0x3066 @0x2
0x3064…3071 at0004 = ╱9e00╱ PROC ╱ // 0x3068 @0x4
0x3064…3071 at0006 = ╱52╱R╱ // 0x306a @0x6
0x3064…3071 at0007 = ╱45╱E╱ // 0x306b @0x7
0x3064…3071 at0008 = ╱47╱G╱ // 0x306c @0x8
0x3064…3071 at0009 = ╱4e╱N╱ // 0x306d @0x9
0x3064…3071 at000a = ╱32╱2╱ // 0x306e @0xa
0x3064…3071 at000b = ╱37╱7╱ // 0x306f @0xb
0x3064…3071 at000c = EOL // 0x3070 @0xc
0x3064…3071 }
0x3071…3083 c671 02855 LET DA2 := C7 * PA0 / W
0x3071…3083 LineComal80 {
0x3071…3083 ptr = 0xc671 // 0x3071 @0x0
0x3071…3083 lno = 0x0b27 // 0x3073 @0x2
0x3071…3083 at0004 = ╱86╱ LET ╱ // 0x3075 @0x4
0x3071…3083 at0005 = ╱44╱D╱ // 0x3076 @0x5
0x3071…3083 at0006 = ╱41╱A╱ // 0x3077 @0x6
0x3071…3083 at0007 = ╱32╱2╱ // 0x3078 @0x7
0x3071…3083 at0008 = ╱f0╱ := ╱ // 0x3079 @0x8
0x3071…3083 at0009 = ╱43╱C╱ // 0x307a @0x9
0x3071…3083 at000a = ╱37╱7╱ // 0x307b @0xa
0x3071…3083 at000b = ╱e7╱ * ╱ // 0x307c @0xb
0x3071…3083 at000c = ╱50╱P╱ // 0x307d @0xc
0x3071…3083 at000d = ╱41╱A╱ // 0x307e @0xd
0x3071…3083 at000e = ╱30╱0╱ // 0x307f @0xe
0x3071…3083 at000f = ╱e8╱ / ╱ // 0x3080 @0xf
0x3071…3083 at0010 = ╱57╱W╱ // 0x3081 @0x10
0x3071…3083 at0011 = EOL // 0x3082 @0x11
0x3071…3083 }
0x3083…308f c67d 02860 ENDPROC REGN27
0x3083…308f LineComal80 {
0x3083…308f ptr = 0xc67d // 0x3083 @0x0
0x3083…308f lno = 0x0b2c // 0x3085 @0x2
0x3083…308f at0004 = ╱9f╱ ENDPROC ╱ // 0x3087 @0x4
0x3083…308f at0005 = ╱52╱R╱ // 0x3088 @0x5
0x3083…308f at0006 = ╱45╱E╱ // 0x3089 @0x6
0x3083…308f at0007 = ╱47╱G╱ // 0x308a @0x7
0x3083…308f at0008 = ╱4e╱N╱ // 0x308b @0x8
0x3083…308f at0009 = ╱32╱2╱ // 0x308c @0x9
0x3083…308f at000a = ╱37╱7╱ // 0x308d @0xa
0x3083…308f at000b = EOL // 0x308e @0xb
0x3083…308f }
0x308f…309c c68a 02865 PROC REGN28
0x308f…309c LineComal80 {
0x308f…309c ptr = 0xc68a // 0x308f @0x0
0x308f…309c lno = 0x0b31 // 0x3091 @0x2
0x308f…309c at0004 = ╱9e00╱ PROC ╱ // 0x3093 @0x4
0x308f…309c at0006 = ╱52╱R╱ // 0x3095 @0x6
0x308f…309c at0007 = ╱45╱E╱ // 0x3096 @0x7
0x308f…309c at0008 = ╱47╱G╱ // 0x3097 @0x8
0x308f…309c at0009 = ╱4e╱N╱ // 0x3098 @0x9
0x308f…309c at000a = ╱32╱2╱ // 0x3099 @0xa
0x308f…309c at000b = ╱38╱8╱ // 0x309a @0xb
0x308f…309c at000c = EOL // 0x309b @0xc
0x308f…309c }
0x309c…30ac c69a 02870 LET D3 := C7 * P7 / W
0x309c…30ac LineComal80 {
0x309c…30ac ptr = 0xc69a // 0x309c @0x0
0x309c…30ac lno = 0x0b36 // 0x309e @0x2
0x309c…30ac at0004 = ╱86╱ LET ╱ // 0x30a0 @0x4
0x309c…30ac at0005 = ╱44╱D╱ // 0x30a1 @0x5
0x309c…30ac at0006 = ╱33╱3╱ // 0x30a2 @0x6
0x309c…30ac at0007 = ╱f0╱ := ╱ // 0x30a3 @0x7
0x309c…30ac at0008 = ╱43╱C╱ // 0x30a4 @0x8
0x309c…30ac at0009 = ╱37╱7╱ // 0x30a5 @0x9
0x309c…30ac at000a = ╱e7╱ * ╱ // 0x30a6 @0xa
0x309c…30ac at000b = ╱50╱P╱ // 0x30a7 @0xb
0x309c…30ac at000c = ╱37╱7╱ // 0x30a8 @0xc
0x309c…30ac at000d = ╱e8╱ / ╱ // 0x30a9 @0xd
0x309c…30ac at000e = ╱57╱W╱ // 0x30aa @0xe
0x309c…30ac at000f = EOL // 0x30ab @0xf
0x309c…30ac }
0x30ac…30b8 c6a6 02875 ENDPROC REGN28
0x30ac…30b8 LineComal80 {
0x30ac…30b8 ptr = 0xc6a6 // 0x30ac @0x0
0x30ac…30b8 lno = 0x0b3b // 0x30ae @0x2
0x30ac…30b8 at0004 = ╱9f╱ ENDPROC ╱ // 0x30b0 @0x4
0x30ac…30b8 at0005 = ╱52╱R╱ // 0x30b1 @0x5
0x30ac…30b8 at0006 = ╱45╱E╱ // 0x30b2 @0x6
0x30ac…30b8 at0007 = ╱47╱G╱ // 0x30b3 @0x7
0x30ac…30b8 at0008 = ╱4e╱N╱ // 0x30b4 @0x8
0x30ac…30b8 at0009 = ╱32╱2╱ // 0x30b5 @0x9
0x30ac…30b8 at000a = ╱38╱8╱ // 0x30b6 @0xa
0x30ac…30b8 at000b = EOL // 0x30b7 @0xb
0x30ac…30b8 }
0x30b8…30c5 c6b3 02880 PROC REGN29
0x30b8…30c5 LineComal80 {
0x30b8…30c5 ptr = 0xc6b3 // 0x30b8 @0x0
0x30b8…30c5 lno = 0x0b40 // 0x30ba @0x2
0x30b8…30c5 at0004 = ╱9e00╱ PROC ╱ // 0x30bc @0x4
0x30b8…30c5 at0006 = ╱52╱R╱ // 0x30be @0x6
0x30b8…30c5 at0007 = ╱45╱E╱ // 0x30bf @0x7
0x30b8…30c5 at0008 = ╱47╱G╱ // 0x30c0 @0x8
0x30b8…30c5 at0009 = ╱4e╱N╱ // 0x30c1 @0x9
0x30b8…30c5 at000a = ╱32╱2╱ // 0x30c2 @0xa
0x30b8…30c5 at000b = ╱39╱9╱ // 0x30c3 @0xb
0x30b8…30c5 at000c = EOL // 0x30c4 @0xc
0x30b8…30c5 }
0x30c5…30d5 c6c3 02885 LET D4 := C7 * P8 / W
0x30c5…30d5 LineComal80 {
0x30c5…30d5 ptr = 0xc6c3 // 0x30c5 @0x0
0x30c5…30d5 lno = 0x0b45 // 0x30c7 @0x2
0x30c5…30d5 at0004 = ╱86╱ LET ╱ // 0x30c9 @0x4
0x30c5…30d5 at0005 = ╱44╱D╱ // 0x30ca @0x5
0x30c5…30d5 at0006 = ╱34╱4╱ // 0x30cb @0x6
0x30c5…30d5 at0007 = ╱f0╱ := ╱ // 0x30cc @0x7
0x30c5…30d5 at0008 = ╱43╱C╱ // 0x30cd @0x8
0x30c5…30d5 at0009 = ╱37╱7╱ // 0x30ce @0x9
0x30c5…30d5 at000a = ╱e7╱ * ╱ // 0x30cf @0xa
0x30c5…30d5 at000b = ╱50╱P╱ // 0x30d0 @0xb
0x30c5…30d5 at000c = ╱38╱8╱ // 0x30d1 @0xc
0x30c5…30d5 at000d = ╱e8╱ / ╱ // 0x30d2 @0xd
0x30c5…30d5 at000e = ╱57╱W╱ // 0x30d3 @0xe
0x30c5…30d5 at000f = EOL // 0x30d4 @0xf
0x30c5…30d5 }
0x30d5…30e1 c6cf 02890 ENDPROC REGN29
0x30d5…30e1 LineComal80 {
0x30d5…30e1 ptr = 0xc6cf // 0x30d5 @0x0
0x30d5…30e1 lno = 0x0b4a // 0x30d7 @0x2
0x30d5…30e1 at0004 = ╱9f╱ ENDPROC ╱ // 0x30d9 @0x4
0x30d5…30e1 at0005 = ╱52╱R╱ // 0x30da @0x5
0x30d5…30e1 at0006 = ╱45╱E╱ // 0x30db @0x6
0x30d5…30e1 at0007 = ╱47╱G╱ // 0x30dc @0x7
0x30d5…30e1 at0008 = ╱4e╱N╱ // 0x30dd @0x8
0x30d5…30e1 at0009 = ╱32╱2╱ // 0x30de @0x9
0x30d5…30e1 at000a = ╱39╱9╱ // 0x30df @0xa
0x30d5…30e1 at000b = EOL // 0x30e0 @0xb
0x30d5…30e1 }
0x30e1…30ee c6dc 02895 PROC REGN30
0x30e1…30ee LineComal80 {
0x30e1…30ee ptr = 0xc6dc // 0x30e1 @0x0
0x30e1…30ee lno = 0x0b4f // 0x30e3 @0x2
0x30e1…30ee at0004 = ╱9e00╱ PROC ╱ // 0x30e5 @0x4
0x30e1…30ee at0006 = ╱52╱R╱ // 0x30e7 @0x6
0x30e1…30ee at0007 = ╱45╱E╱ // 0x30e8 @0x7
0x30e1…30ee at0008 = ╱47╱G╱ // 0x30e9 @0x8
0x30e1…30ee at0009 = ╱4e╱N╱ // 0x30ea @0x9
0x30e1…30ee at000a = ╱33╱3╱ // 0x30eb @0xa
0x30e1…30ee at000b = ╱30╱0╱ // 0x30ec @0xb
0x30e1…30ee at000c = EOL // 0x30ed @0xc
0x30e1…30ee }
0x30ee…30fe c6ec 02900 LET D5 := C7 * P9 / W
0x30ee…30fe LineComal80 {
0x30ee…30fe ptr = 0xc6ec // 0x30ee @0x0
0x30ee…30fe lno = 0x0b54 // 0x30f0 @0x2
0x30ee…30fe at0004 = ╱86╱ LET ╱ // 0x30f2 @0x4
0x30ee…30fe at0005 = ╱44╱D╱ // 0x30f3 @0x5
0x30ee…30fe at0006 = ╱35╱5╱ // 0x30f4 @0x6
0x30ee…30fe at0007 = ╱f0╱ := ╱ // 0x30f5 @0x7
0x30ee…30fe at0008 = ╱43╱C╱ // 0x30f6 @0x8
0x30ee…30fe at0009 = ╱37╱7╱ // 0x30f7 @0x9
0x30ee…30fe at000a = ╱e7╱ * ╱ // 0x30f8 @0xa
0x30ee…30fe at000b = ╱50╱P╱ // 0x30f9 @0xb
0x30ee…30fe at000c = ╱39╱9╱ // 0x30fa @0xc
0x30ee…30fe at000d = ╱e8╱ / ╱ // 0x30fb @0xd
0x30ee…30fe at000e = ╱57╱W╱ // 0x30fc @0xe
0x30ee…30fe at000f = EOL // 0x30fd @0xf
0x30ee…30fe }
0x30fe…310a c6f8 02905 ENDPROC REGN30
0x30fe…310a LineComal80 {
0x30fe…310a ptr = 0xc6f8 // 0x30fe @0x0
0x30fe…310a lno = 0x0b59 // 0x3100 @0x2
0x30fe…310a at0004 = ╱9f╱ ENDPROC ╱ // 0x3102 @0x4
0x30fe…310a at0005 = ╱52╱R╱ // 0x3103 @0x5
0x30fe…310a at0006 = ╱45╱E╱ // 0x3104 @0x6
0x30fe…310a at0007 = ╱47╱G╱ // 0x3105 @0x7
0x30fe…310a at0008 = ╱4e╱N╱ // 0x3106 @0x8
0x30fe…310a at0009 = ╱33╱3╱ // 0x3107 @0x9
0x30fe…310a at000a = ╱30╱0╱ // 0x3108 @0xa
0x30fe…310a at000b = EOL // 0x3109 @0xb
0x30fe…310a }
0x310a…3117 c705 02910 PROC REGN31
0x310a…3117 LineComal80 {
0x310a…3117 ptr = 0xc705 // 0x310a @0x0
0x310a…3117 lno = 0x0b5e // 0x310c @0x2
0x310a…3117 at0004 = ╱9e00╱ PROC ╱ // 0x310e @0x4
0x310a…3117 at0006 = ╱52╱R╱ // 0x3110 @0x6
0x310a…3117 at0007 = ╱45╱E╱ // 0x3111 @0x7
0x310a…3117 at0008 = ╱47╱G╱ // 0x3112 @0x8
0x310a…3117 at0009 = ╱4e╱N╱ // 0x3113 @0x9
0x310a…3117 at000a = ╱33╱3╱ // 0x3114 @0xa
0x310a…3117 at000b = ╱31╱1╱ // 0x3115 @0xb
0x310a…3117 at000c = EOL // 0x3116 @0xc
0x310a…3117 }
0x3117…3132 c720 02915 LET D0 := D1 + D2 + DA2 + D3 + D4 + D5
0x3117…3132 LineComal80 {
0x3117…3132 ptr = 0xc720 // 0x3117 @0x0
0x3117…3132 lno = 0x0b63 // 0x3119 @0x2
0x3117…3132 at0004 = ╱86╱ LET ╱ // 0x311b @0x4
0x3117…3132 at0005 = ╱44╱D╱ // 0x311c @0x5
0x3117…3132 at0006 = ╱30╱0╱ // 0x311d @0x6
0x3117…3132 at0007 = ╱f0╱ := ╱ // 0x311e @0x7
0x3117…3132 at0008 = ╱44╱D╱ // 0x311f @0x8
0x3117…3132 at0009 = ╱31╱1╱ // 0x3120 @0x9
0x3117…3132 at000a = ╱e5╱ + ╱ // 0x3121 @0xa
0x3117…3132 at000b = ╱44╱D╱ // 0x3122 @0xb
0x3117…3132 at000c = ╱32╱2╱ // 0x3123 @0xc
0x3117…3132 at000d = ╱e5╱ + ╱ // 0x3124 @0xd
0x3117…3132 at000e = ╱44╱D╱ // 0x3125 @0xe
0x3117…3132 at000f = ╱41╱A╱ // 0x3126 @0xf
0x3117…3132 at0010 = ╱32╱2╱ // 0x3127 @0x10
0x3117…3132 at0011 = ╱e5╱ + ╱ // 0x3128 @0x11
0x3117…3132 at0012 = ╱44╱D╱ // 0x3129 @0x12
0x3117…3132 at0013 = ╱33╱3╱ // 0x312a @0x13
0x3117…3132 at0014 = ╱e5╱ + ╱ // 0x312b @0x14
0x3117…3132 at0015 = ╱44╱D╱ // 0x312c @0x15
0x3117…3132 at0016 = ╱34╱4╱ // 0x312d @0x16
0x3117…3132 at0017 = ╱e5╱ + ╱ // 0x312e @0x17
0x3117…3132 at0018 = ╱44╱D╱ // 0x312f @0x18
0x3117…3132 at0019 = ╱35╱5╱ // 0x3130 @0x19
0x3117…3132 at001a = EOL // 0x3131 @0x1a
0x3117…3132 }
0x3132…313e c72c 02920 ENDPROC REGN31
0x3132…313e LineComal80 {
0x3132…313e ptr = 0xc72c // 0x3132 @0x0
0x3132…313e lno = 0x0b68 // 0x3134 @0x2
0x3132…313e at0004 = ╱9f╱ ENDPROC ╱ // 0x3136 @0x4
0x3132…313e at0005 = ╱52╱R╱ // 0x3137 @0x5
0x3132…313e at0006 = ╱45╱E╱ // 0x3138 @0x6
0x3132…313e at0007 = ╱47╱G╱ // 0x3139 @0x7
0x3132…313e at0008 = ╱4e╱N╱ // 0x313a @0x8
0x3132…313e at0009 = ╱33╱3╱ // 0x313b @0x9
0x3132…313e at000a = ╱31╱1╱ // 0x313c @0xa
0x3132…313e at000b = EOL // 0x313d @0xb
0x3132…313e }
0x313e…314b c739 02925 PROC REGN32
0x313e…314b LineComal80 {
0x313e…314b ptr = 0xc739 // 0x313e @0x0
0x313e…314b lno = 0x0b6d // 0x3140 @0x2
0x313e…314b at0004 = ╱9e00╱ PROC ╱ // 0x3142 @0x4
0x313e…314b at0006 = ╱52╱R╱ // 0x3144 @0x6
0x313e…314b at0007 = ╱45╱E╱ // 0x3145 @0x7
0x313e…314b at0008 = ╱47╱G╱ // 0x3146 @0x8
0x313e…314b at0009 = ╱4e╱N╱ // 0x3147 @0x9
0x313e…314b at000a = ╱33╱3╱ // 0x3148 @0xa
0x313e…314b at000b = ╱32╱2╱ // 0x3149 @0xb
0x313e…314b at000c = EOL // 0x314a @0xc
0x313e…314b }
0x314b…3166 c754 02930 LET D1 := D1 - ( C8 * 16 / W * U1 )
0x314b…3166 LineComal80 {
0x314b…3166 ptr = 0xc754 // 0x314b @0x0
0x314b…3166 lno = 0x0b72 // 0x314d @0x2
0x314b…3166 at0004 = ╱86╱ LET ╱ // 0x314f @0x4
0x314b…3166 at0005 = ╱44╱D╱ // 0x3150 @0x5
0x314b…3166 at0006 = ╱31╱1╱ // 0x3151 @0x6
0x314b…3166 at0007 = ╱f0╱ := ╱ // 0x3152 @0x7
0x314b…3166 at0008 = ╱44╱D╱ // 0x3153 @0x8
0x314b…3166 at0009 = ╱31╱1╱ // 0x3154 @0x9
0x314b…3166 at000a = ╱e6╱ - ╱ // 0x3155 @0xa
0x314b…3166 at000b = ╱ed╱ ( ╱ // 0x3156 @0xb
0x314b…3166 at000c = ╱43╱C╱ // 0x3157 @0xc
0x314b…3166 at000d = ╱38╱8╱ // 0x3158 @0xd
0x314b…3166 at000e = ╱e7╱ * ╱ // 0x3159 @0xe
0x314b…3166 at000f = ╱31╱1╱ // 0x315a @0xf
0x314b…3166 at0010 = ╱36╱6╱ // 0x315b @0x10
0x314b…3166 at0011 = ╱f21000╱ // 0x315c @0x11
0x314b…3166 at0014 = ╱e8╱ / ╱ // 0x315f @0x14
0x314b…3166 at0015 = ╱57╱W╱ // 0x3160 @0x15
0x314b…3166 at0016 = ╱e7╱ * ╱ // 0x3161 @0x16
0x314b…3166 at0017 = ╱55╱U╱ // 0x3162 @0x17
0x314b…3166 at0018 = ╱31╱1╱ // 0x3163 @0x18
0x314b…3166 at0019 = ╱ee╱ ) ╱ // 0x3164 @0x19
0x314b…3166 at001a = EOL // 0x3165 @0x1a
0x314b…3166 }
0x3166…3172 c760 02935 ENDPROC REGN32
0x3166…3172 LineComal80 {
0x3166…3172 ptr = 0xc760 // 0x3166 @0x0
0x3166…3172 lno = 0x0b77 // 0x3168 @0x2
0x3166…3172 at0004 = ╱9f╱ ENDPROC ╱ // 0x316a @0x4
0x3166…3172 at0005 = ╱52╱R╱ // 0x316b @0x5
0x3166…3172 at0006 = ╱45╱E╱ // 0x316c @0x6
0x3166…3172 at0007 = ╱47╱G╱ // 0x316d @0x7
0x3166…3172 at0008 = ╱4e╱N╱ // 0x316e @0x8
0x3166…3172 at0009 = ╱33╱3╱ // 0x316f @0x9
0x3166…3172 at000a = ╱32╱2╱ // 0x3170 @0xa
0x3166…3172 at000b = EOL // 0x3171 @0xb
0x3166…3172 }
0x3172…317f c76d 02940 PROC REGN33
0x3172…317f LineComal80 {
0x3172…317f ptr = 0xc76d // 0x3172 @0x0
0x3172…317f lno = 0x0b7c // 0x3174 @0x2
0x3172…317f at0004 = ╱9e00╱ PROC ╱ // 0x3176 @0x4
0x3172…317f at0006 = ╱52╱R╱ // 0x3178 @0x6
0x3172…317f at0007 = ╱45╱E╱ // 0x3179 @0x7
0x3172…317f at0008 = ╱47╱G╱ // 0x317a @0x8
0x3172…317f at0009 = ╱4e╱N╱ // 0x317b @0x9
0x3172…317f at000a = ╱33╱3╱ // 0x317c @0xa
0x3172…317f at000b = ╱33╱3╱ // 0x317d @0xb
0x3172…317f at000c = EOL // 0x317e @0xc
0x3172…317f }
0x317f…31ac c79a 02945 LET D2 := D2 - ( C8 * P0 / W ) ; D2AFR := D2 - INT ( D2 ) ; D2 := INT ( D2 )
0x317f…31ac LineComal80 {
0x317f…31ac ptr = 0xc79a // 0x317f @0x0
0x317f…31ac lno = 0x0b81 // 0x3181 @0x2
0x317f…31ac at0004 = ╱86╱ LET ╱ // 0x3183 @0x4
0x317f…31ac at0005 = ╱44╱D╱ // 0x3184 @0x5
0x317f…31ac at0006 = ╱32╱2╱ // 0x3185 @0x6
0x317f…31ac at0007 = ╱f0╱ := ╱ // 0x3186 @0x7
0x317f…31ac at0008 = ╱44╱D╱ // 0x3187 @0x8
0x317f…31ac at0009 = ╱32╱2╱ // 0x3188 @0x9
0x317f…31ac at000a = ╱e6╱ - ╱ // 0x3189 @0xa
0x317f…31ac at000b = ╱ed╱ ( ╱ // 0x318a @0xb
0x317f…31ac at000c = ╱43╱C╱ // 0x318b @0xc
0x317f…31ac at000d = ╱38╱8╱ // 0x318c @0xd
0x317f…31ac at000e = ╱e7╱ * ╱ // 0x318d @0xe
0x317f…31ac at000f = ╱50╱P╱ // 0x318e @0xf
0x317f…31ac at0010 = ╱30╱0╱ // 0x318f @0x10
0x317f…31ac at0011 = ╱e8╱ / ╱ // 0x3190 @0x11
0x317f…31ac at0012 = ╱57╱W╱ // 0x3191 @0x12
0x317f…31ac at0013 = ╱ee╱ ) ╱ // 0x3192 @0x13
0x317f…31ac at0014 = ╱ea╱ ; ╱ // 0x3193 @0x14
0x317f…31ac at0015 = ╱44╱D╱ // 0x3194 @0x15
0x317f…31ac at0016 = ╱32╱2╱ // 0x3195 @0x16
0x317f…31ac at0017 = ╱41╱A╱ // 0x3196 @0x17
0x317f…31ac at0018 = ╱46╱F╱ // 0x3197 @0x18
0x317f…31ac at0019 = ╱52╱R╱ // 0x3198 @0x19
0x317f…31ac at001a = ╱f0╱ := ╱ // 0x3199 @0x1a
0x317f…31ac at001b = ╱44╱D╱ // 0x319a @0x1b
0x317f…31ac at001c = ╱32╱2╱ // 0x319b @0x1c
0x317f…31ac at001d = ╱e6╱ - ╱ // 0x319c @0x1d
0x317f…31ac at001e = ╱c6╱ INT ╱ // 0x319d @0x1e
0x317f…31ac at001f = ╱ed╱ ( ╱ // 0x319e @0x1f
0x317f…31ac at0020 = ╱44╱D╱ // 0x319f @0x20
0x317f…31ac at0021 = ╱32╱2╱ // 0x31a0 @0x21
0x317f…31ac at0022 = ╱ee╱ ) ╱ // 0x31a1 @0x22
0x317f…31ac at0023 = ╱ea╱ ; ╱ // 0x31a2 @0x23
0x317f…31ac at0024 = ╱44╱D╱ // 0x31a3 @0x24
0x317f…31ac at0025 = ╱32╱2╱ // 0x31a4 @0x25
0x317f…31ac at0026 = ╱f0╱ := ╱ // 0x31a5 @0x26
0x317f…31ac at0027 = ╱c6╱ INT ╱ // 0x31a6 @0x27
0x317f…31ac at0028 = ╱ed╱ ( ╱ // 0x31a7 @0x28
0x317f…31ac at0029 = ╱44╱D╱ // 0x31a8 @0x29
0x317f…31ac at002a = ╱32╱2╱ // 0x31a9 @0x2a
0x317f…31ac at002b = ╱ee╱ ) ╱ // 0x31aa @0x2b
0x317f…31ac at002c = EOL // 0x31ab @0x2c
0x317f…31ac }
0x31ac…31b8 c7a6 02950 ENDPROC REGN33
0x31ac…31b8 LineComal80 {
0x31ac…31b8 ptr = 0xc7a6 // 0x31ac @0x0
0x31ac…31b8 lno = 0x0b86 // 0x31ae @0x2
0x31ac…31b8 at0004 = ╱9f╱ ENDPROC ╱ // 0x31b0 @0x4
0x31ac…31b8 at0005 = ╱52╱R╱ // 0x31b1 @0x5
0x31ac…31b8 at0006 = ╱45╱E╱ // 0x31b2 @0x6
0x31ac…31b8 at0007 = ╱47╱G╱ // 0x31b3 @0x7
0x31ac…31b8 at0008 = ╱4e╱N╱ // 0x31b4 @0x8
0x31ac…31b8 at0009 = ╱33╱3╱ // 0x31b5 @0x9
0x31ac…31b8 at000a = ╱33╱3╱ // 0x31b6 @0xa
0x31ac…31b8 at000b = EOL // 0x31b7 @0xb
0x31ac…31b8 }
0x31b8…31c5 c7b3 02955 PROC REGN34
0x31b8…31c5 LineComal80 {
0x31b8…31c5 ptr = 0xc7b3 // 0x31b8 @0x0
0x31b8…31c5 lno = 0x0b8b // 0x31ba @0x2
0x31b8…31c5 at0004 = ╱9e00╱ PROC ╱ // 0x31bc @0x4
0x31b8…31c5 at0006 = ╱52╱R╱ // 0x31be @0x6
0x31b8…31c5 at0007 = ╱45╱E╱ // 0x31bf @0x7
0x31b8…31c5 at0008 = ╱47╱G╱ // 0x31c0 @0x8
0x31b8…31c5 at0009 = ╱4e╱N╱ // 0x31c1 @0x9
0x31b8…31c5 at000a = ╱33╱3╱ // 0x31c2 @0xa
0x31b8…31c5 at000b = ╱34╱4╱ // 0x31c3 @0xb
0x31b8…31c5 at000c = EOL // 0x31c4 @0xc
0x31b8…31c5 }
0x31c5…31f9 c7e7 02960 LET DA2 := DA2 - ( C8 * PA0 / W ) ; D2AFR := DA2 - INT ( DA2 ) ; DA2 := INT ( DA2 )
0x31c5…31f9 LineComal80 {
0x31c5…31f9 ptr = 0xc7e7 // 0x31c5 @0x0
0x31c5…31f9 lno = 0x0b90 // 0x31c7 @0x2
0x31c5…31f9 at0004 = ╱86╱ LET ╱ // 0x31c9 @0x4
0x31c5…31f9 at0005 = ╱44╱D╱ // 0x31ca @0x5
0x31c5…31f9 at0006 = ╱41╱A╱ // 0x31cb @0x6
0x31c5…31f9 at0007 = ╱32╱2╱ // 0x31cc @0x7
0x31c5…31f9 at0008 = ╱f0╱ := ╱ // 0x31cd @0x8
0x31c5…31f9 at0009 = ╱44╱D╱ // 0x31ce @0x9
0x31c5…31f9 at000a = ╱41╱A╱ // 0x31cf @0xa
0x31c5…31f9 at000b = ╱32╱2╱ // 0x31d0 @0xb
0x31c5…31f9 at000c = ╱e6╱ - ╱ // 0x31d1 @0xc
0x31c5…31f9 at000d = ╱ed╱ ( ╱ // 0x31d2 @0xd
0x31c5…31f9 at000e = ╱43╱C╱ // 0x31d3 @0xe
0x31c5…31f9 at000f = ╱38╱8╱ // 0x31d4 @0xf
0x31c5…31f9 at0010 = ╱e7╱ * ╱ // 0x31d5 @0x10
0x31c5…31f9 at0011 = ╱50╱P╱ // 0x31d6 @0x11
0x31c5…31f9 at0012 = ╱41╱A╱ // 0x31d7 @0x12
0x31c5…31f9 at0013 = ╱30╱0╱ // 0x31d8 @0x13
0x31c5…31f9 at0014 = ╱e8╱ / ╱ // 0x31d9 @0x14
0x31c5…31f9 at0015 = ╱57╱W╱ // 0x31da @0x15
0x31c5…31f9 at0016 = ╱ee╱ ) ╱ // 0x31db @0x16
0x31c5…31f9 at0017 = ╱ea╱ ; ╱ // 0x31dc @0x17
0x31c5…31f9 at0018 = ╱44╱D╱ // 0x31dd @0x18
0x31c5…31f9 at0019 = ╱32╱2╱ // 0x31de @0x19
0x31c5…31f9 at001a = ╱41╱A╱ // 0x31df @0x1a
0x31c5…31f9 at001b = ╱46╱F╱ // 0x31e0 @0x1b
0x31c5…31f9 at001c = ╱52╱R╱ // 0x31e1 @0x1c
0x31c5…31f9 at001d = ╱f0╱ := ╱ // 0x31e2 @0x1d
0x31c5…31f9 at001e = ╱44╱D╱ // 0x31e3 @0x1e
0x31c5…31f9 at001f = ╱41╱A╱ // 0x31e4 @0x1f
0x31c5…31f9 at0020 = ╱32╱2╱ // 0x31e5 @0x20
0x31c5…31f9 at0021 = ╱e6╱ - ╱ // 0x31e6 @0x21
0x31c5…31f9 at0022 = ╱c6╱ INT ╱ // 0x31e7 @0x22
0x31c5…31f9 at0023 = ╱ed╱ ( ╱ // 0x31e8 @0x23
0x31c5…31f9 at0024 = ╱44╱D╱ // 0x31e9 @0x24
0x31c5…31f9 at0025 = ╱41╱A╱ // 0x31ea @0x25
0x31c5…31f9 at0026 = ╱32╱2╱ // 0x31eb @0x26
0x31c5…31f9 at0027 = ╱ee╱ ) ╱ // 0x31ec @0x27
0x31c5…31f9 at0028 = ╱ea╱ ; ╱ // 0x31ed @0x28
0x31c5…31f9 at0029 = ╱44╱D╱ // 0x31ee @0x29
0x31c5…31f9 at002a = ╱41╱A╱ // 0x31ef @0x2a
0x31c5…31f9 at002b = ╱32╱2╱ // 0x31f0 @0x2b
0x31c5…31f9 at002c = ╱f0╱ := ╱ // 0x31f1 @0x2c
0x31c5…31f9 at002d = ╱c6╱ INT ╱ // 0x31f2 @0x2d
0x31c5…31f9 at002e = ╱ed╱ ( ╱ // 0x31f3 @0x2e
0x31c5…31f9 at002f = ╱44╱D╱ // 0x31f4 @0x2f
0x31c5…31f9 at0030 = ╱41╱A╱ // 0x31f5 @0x30
0x31c5…31f9 at0031 = ╱32╱2╱ // 0x31f6 @0x31
0x31c5…31f9 at0032 = ╱ee╱ ) ╱ // 0x31f7 @0x32
0x31c5…31f9 at0033 = EOL // 0x31f8 @0x33
0x31c5…31f9 }
0x31f9…3205 c7f3 02965 ENDPROC REGN34
0x31f9…3205 LineComal80 {
0x31f9…3205 ptr = 0xc7f3 // 0x31f9 @0x0
0x31f9…3205 lno = 0x0b95 // 0x31fb @0x2
0x31f9…3205 at0004 = ╱9f╱ ENDPROC ╱ // 0x31fd @0x4
0x31f9…3205 at0005 = ╱52╱R╱ // 0x31fe @0x5
0x31f9…3205 at0006 = ╱45╱E╱ // 0x31ff @0x6
0x31f9…3205 at0007 = ╱47╱G╱ // 0x3200 @0x7
0x31f9…3205 at0008 = ╱4e╱N╱ // 0x3201 @0x8
0x31f9…3205 at0009 = ╱33╱3╱ // 0x3202 @0x9
0x31f9…3205 at000a = ╱34╱4╱ // 0x3203 @0xa
0x31f9…3205 at000b = EOL // 0x3204 @0xb
0x31f9…3205 }
0x3205…3212 c800 02970 PROC REGN35
0x3205…3212 LineComal80 {
0x3205…3212 ptr = 0xc800 // 0x3205 @0x0
0x3205…3212 lno = 0x0b9a // 0x3207 @0x2
0x3205…3212 at0004 = ╱9e00╱ PROC ╱ // 0x3209 @0x4
0x3205…3212 at0006 = ╱52╱R╱ // 0x320b @0x6
0x3205…3212 at0007 = ╱45╱E╱ // 0x320c @0x7
0x3205…3212 at0008 = ╱47╱G╱ // 0x320d @0x8
0x3205…3212 at0009 = ╱4e╱N╱ // 0x320e @0x9
0x3205…3212 at000a = ╱33╱3╱ // 0x320f @0xa
0x3205…3212 at000b = ╱35╱5╱ // 0x3210 @0xb
0x3205…3212 at000c = EOL // 0x3211 @0xc
0x3205…3212 }
0x3212…3227 c815 02975 LET D3 := D3 - ( C8 * P7 / W )
0x3212…3227 LineComal80 {
0x3212…3227 ptr = 0xc815 // 0x3212 @0x0
0x3212…3227 lno = 0x0b9f // 0x3214 @0x2
0x3212…3227 at0004 = ╱86╱ LET ╱ // 0x3216 @0x4
0x3212…3227 at0005 = ╱44╱D╱ // 0x3217 @0x5
0x3212…3227 at0006 = ╱33╱3╱ // 0x3218 @0x6
0x3212…3227 at0007 = ╱f0╱ := ╱ // 0x3219 @0x7
0x3212…3227 at0008 = ╱44╱D╱ // 0x321a @0x8
0x3212…3227 at0009 = ╱33╱3╱ // 0x321b @0x9
0x3212…3227 at000a = ╱e6╱ - ╱ // 0x321c @0xa
0x3212…3227 at000b = ╱ed╱ ( ╱ // 0x321d @0xb
0x3212…3227 at000c = ╱43╱C╱ // 0x321e @0xc
0x3212…3227 at000d = ╱38╱8╱ // 0x321f @0xd
0x3212…3227 at000e = ╱e7╱ * ╱ // 0x3220 @0xe
0x3212…3227 at000f = ╱50╱P╱ // 0x3221 @0xf
0x3212…3227 at0010 = ╱37╱7╱ // 0x3222 @0x10
0x3212…3227 at0011 = ╱e8╱ / ╱ // 0x3223 @0x11
0x3212…3227 at0012 = ╱57╱W╱ // 0x3224 @0x12
0x3212…3227 at0013 = ╱ee╱ ) ╱ // 0x3225 @0x13
0x3212…3227 at0014 = EOL // 0x3226 @0x14
0x3212…3227 }
0x3227…3233 c821 02980 ENDPROC REGN35
0x3227…3233 LineComal80 {
0x3227…3233 ptr = 0xc821 // 0x3227 @0x0
0x3227…3233 lno = 0x0ba4 // 0x3229 @0x2
0x3227…3233 at0004 = ╱9f╱ ENDPROC ╱ // 0x322b @0x4
0x3227…3233 at0005 = ╱52╱R╱ // 0x322c @0x5
0x3227…3233 at0006 = ╱45╱E╱ // 0x322d @0x6
0x3227…3233 at0007 = ╱47╱G╱ // 0x322e @0x7
0x3227…3233 at0008 = ╱4e╱N╱ // 0x322f @0x8
0x3227…3233 at0009 = ╱33╱3╱ // 0x3230 @0x9
0x3227…3233 at000a = ╱35╱5╱ // 0x3231 @0xa
0x3227…3233 at000b = EOL // 0x3232 @0xb
0x3227…3233 }
0x3233…3240 c82e 02985 PROC REGN36
0x3233…3240 LineComal80 {
0x3233…3240 ptr = 0xc82e // 0x3233 @0x0
0x3233…3240 lno = 0x0ba9 // 0x3235 @0x2
0x3233…3240 at0004 = ╱9e00╱ PROC ╱ // 0x3237 @0x4
0x3233…3240 at0006 = ╱52╱R╱ // 0x3239 @0x6
0x3233…3240 at0007 = ╱45╱E╱ // 0x323a @0x7
0x3233…3240 at0008 = ╱47╱G╱ // 0x323b @0x8
0x3233…3240 at0009 = ╱4e╱N╱ // 0x323c @0x9
0x3233…3240 at000a = ╱33╱3╱ // 0x323d @0xa
0x3233…3240 at000b = ╱36╱6╱ // 0x323e @0xb
0x3233…3240 at000c = EOL // 0x323f @0xc
0x3233…3240 }
0x3240…3255 c843 02990 LET D4 := D4 - ( C8 * P8 / W )
0x3240…3255 LineComal80 {
0x3240…3255 ptr = 0xc843 // 0x3240 @0x0
0x3240…3255 lno = 0x0bae // 0x3242 @0x2
0x3240…3255 at0004 = ╱86╱ LET ╱ // 0x3244 @0x4
0x3240…3255 at0005 = ╱44╱D╱ // 0x3245 @0x5
0x3240…3255 at0006 = ╱34╱4╱ // 0x3246 @0x6
0x3240…3255 at0007 = ╱f0╱ := ╱ // 0x3247 @0x7
0x3240…3255 at0008 = ╱44╱D╱ // 0x3248 @0x8
0x3240…3255 at0009 = ╱34╱4╱ // 0x3249 @0x9
0x3240…3255 at000a = ╱e6╱ - ╱ // 0x324a @0xa
0x3240…3255 at000b = ╱ed╱ ( ╱ // 0x324b @0xb
0x3240…3255 at000c = ╱43╱C╱ // 0x324c @0xc
0x3240…3255 at000d = ╱38╱8╱ // 0x324d @0xd
0x3240…3255 at000e = ╱e7╱ * ╱ // 0x324e @0xe
0x3240…3255 at000f = ╱50╱P╱ // 0x324f @0xf
0x3240…3255 at0010 = ╱38╱8╱ // 0x3250 @0x10
0x3240…3255 at0011 = ╱e8╱ / ╱ // 0x3251 @0x11
0x3240…3255 at0012 = ╱57╱W╱ // 0x3252 @0x12
0x3240…3255 at0013 = ╱ee╱ ) ╱ // 0x3253 @0x13
0x3240…3255 at0014 = EOL // 0x3254 @0x14
0x3240…3255 }
0x3255…3261 c84f 02995 ENDPROC REGN36
0x3255…3261 LineComal80 {
0x3255…3261 ptr = 0xc84f // 0x3255 @0x0
0x3255…3261 lno = 0x0bb3 // 0x3257 @0x2
0x3255…3261 at0004 = ╱9f╱ ENDPROC ╱ // 0x3259 @0x4
0x3255…3261 at0005 = ╱52╱R╱ // 0x325a @0x5
0x3255…3261 at0006 = ╱45╱E╱ // 0x325b @0x6
0x3255…3261 at0007 = ╱47╱G╱ // 0x325c @0x7
0x3255…3261 at0008 = ╱4e╱N╱ // 0x325d @0x8
0x3255…3261 at0009 = ╱33╱3╱ // 0x325e @0x9
0x3255…3261 at000a = ╱36╱6╱ // 0x325f @0xa
0x3255…3261 at000b = EOL // 0x3260 @0xb
0x3255…3261 }
0x3261…326e c85c 03000 PROC REGN37
0x3261…326e LineComal80 {
0x3261…326e ptr = 0xc85c // 0x3261 @0x0
0x3261…326e lno = 0x0bb8 // 0x3263 @0x2
0x3261…326e at0004 = ╱9e00╱ PROC ╱ // 0x3265 @0x4
0x3261…326e at0006 = ╱52╱R╱ // 0x3267 @0x6
0x3261…326e at0007 = ╱45╱E╱ // 0x3268 @0x7
0x3261…326e at0008 = ╱47╱G╱ // 0x3269 @0x8
0x3261…326e at0009 = ╱4e╱N╱ // 0x326a @0x9
0x3261…326e at000a = ╱33╱3╱ // 0x326b @0xa
0x3261…326e at000b = ╱37╱7╱ // 0x326c @0xb
0x3261…326e at000c = EOL // 0x326d @0xc
0x3261…326e }
0x326e…3283 c871 03005 LET D5 := D5 - ( C8 * P9 / W )
0x326e…3283 LineComal80 {
0x326e…3283 ptr = 0xc871 // 0x326e @0x0
0x326e…3283 lno = 0x0bbd // 0x3270 @0x2
0x326e…3283 at0004 = ╱86╱ LET ╱ // 0x3272 @0x4
0x326e…3283 at0005 = ╱44╱D╱ // 0x3273 @0x5
0x326e…3283 at0006 = ╱35╱5╱ // 0x3274 @0x6
0x326e…3283 at0007 = ╱f0╱ := ╱ // 0x3275 @0x7
0x326e…3283 at0008 = ╱44╱D╱ // 0x3276 @0x8
0x326e…3283 at0009 = ╱35╱5╱ // 0x3277 @0x9
0x326e…3283 at000a = ╱e6╱ - ╱ // 0x3278 @0xa
0x326e…3283 at000b = ╱ed╱ ( ╱ // 0x3279 @0xb
0x326e…3283 at000c = ╱43╱C╱ // 0x327a @0xc
0x326e…3283 at000d = ╱38╱8╱ // 0x327b @0xd
0x326e…3283 at000e = ╱e7╱ * ╱ // 0x327c @0xe
0x326e…3283 at000f = ╱50╱P╱ // 0x327d @0xf
0x326e…3283 at0010 = ╱39╱9╱ // 0x327e @0x10
0x326e…3283 at0011 = ╱e8╱ / ╱ // 0x327f @0x11
0x326e…3283 at0012 = ╱57╱W╱ // 0x3280 @0x12
0x326e…3283 at0013 = ╱ee╱ ) ╱ // 0x3281 @0x13
0x326e…3283 at0014 = EOL // 0x3282 @0x14
0x326e…3283 }
0x3283…328f c87d 03010 ENDPROC REGN37
0x3283…328f LineComal80 {
0x3283…328f ptr = 0xc87d // 0x3283 @0x0
0x3283…328f lno = 0x0bc2 // 0x3285 @0x2
0x3283…328f at0004 = ╱9f╱ ENDPROC ╱ // 0x3287 @0x4
0x3283…328f at0005 = ╱52╱R╱ // 0x3288 @0x5
0x3283…328f at0006 = ╱45╱E╱ // 0x3289 @0x6
0x3283…328f at0007 = ╱47╱G╱ // 0x328a @0x7
0x3283…328f at0008 = ╱4e╱N╱ // 0x328b @0x8
0x3283…328f at0009 = ╱33╱3╱ // 0x328c @0x9
0x3283…328f at000a = ╱37╱7╱ // 0x328d @0xa
0x3283…328f at000b = EOL // 0x328e @0xb
0x3283…328f }
0x328f…329c c88a 03015 PROC REGN38
0x328f…329c LineComal80 {
0x328f…329c ptr = 0xc88a // 0x328f @0x0
0x328f…329c lno = 0x0bc7 // 0x3291 @0x2
0x328f…329c at0004 = ╱9e00╱ PROC ╱ // 0x3293 @0x4
0x328f…329c at0006 = ╱52╱R╱ // 0x3295 @0x6
0x328f…329c at0007 = ╱45╱E╱ // 0x3296 @0x7
0x328f…329c at0008 = ╱47╱G╱ // 0x3297 @0x8
0x328f…329c at0009 = ╱4e╱N╱ // 0x3298 @0x9
0x328f…329c at000a = ╱33╱3╱ // 0x3299 @0xa
0x328f…329c at000b = ╱38╱8╱ // 0x329a @0xb
0x328f…329c at000c = EOL // 0x329b @0xc
0x328f…329c }
0x329c…32b7 c8a5 03020 LET D6 := D1 + D2 + DA2 + D3 + D4 + D5
0x329c…32b7 LineComal80 {
0x329c…32b7 ptr = 0xc8a5 // 0x329c @0x0
0x329c…32b7 lno = 0x0bcc // 0x329e @0x2
0x329c…32b7 at0004 = ╱86╱ LET ╱ // 0x32a0 @0x4
0x329c…32b7 at0005 = ╱44╱D╱ // 0x32a1 @0x5
0x329c…32b7 at0006 = ╱36╱6╱ // 0x32a2 @0x6
0x329c…32b7 at0007 = ╱f0╱ := ╱ // 0x32a3 @0x7
0x329c…32b7 at0008 = ╱44╱D╱ // 0x32a4 @0x8
0x329c…32b7 at0009 = ╱31╱1╱ // 0x32a5 @0x9
0x329c…32b7 at000a = ╱e5╱ + ╱ // 0x32a6 @0xa
0x329c…32b7 at000b = ╱44╱D╱ // 0x32a7 @0xb
0x329c…32b7 at000c = ╱32╱2╱ // 0x32a8 @0xc
0x329c…32b7 at000d = ╱e5╱ + ╱ // 0x32a9 @0xd
0x329c…32b7 at000e = ╱44╱D╱ // 0x32aa @0xe
0x329c…32b7 at000f = ╱41╱A╱ // 0x32ab @0xf
0x329c…32b7 at0010 = ╱32╱2╱ // 0x32ac @0x10
0x329c…32b7 at0011 = ╱e5╱ + ╱ // 0x32ad @0x11
0x329c…32b7 at0012 = ╱44╱D╱ // 0x32ae @0x12
0x329c…32b7 at0013 = ╱33╱3╱ // 0x32af @0x13
0x329c…32b7 at0014 = ╱e5╱ + ╱ // 0x32b0 @0x14
0x329c…32b7 at0015 = ╱44╱D╱ // 0x32b1 @0x15
0x329c…32b7 at0016 = ╱34╱4╱ // 0x32b2 @0x16
0x329c…32b7 at0017 = ╱e5╱ + ╱ // 0x32b3 @0x17
0x329c…32b7 at0018 = ╱44╱D╱ // 0x32b4 @0x18
0x329c…32b7 at0019 = ╱35╱5╱ // 0x32b5 @0x19
0x329c…32b7 at001a = EOL // 0x32b6 @0x1a
0x329c…32b7 }
0x32b7…32c3 c8b1 03025 ENDPROC REGN38
0x32b7…32c3 LineComal80 {
0x32b7…32c3 ptr = 0xc8b1 // 0x32b7 @0x0
0x32b7…32c3 lno = 0x0bd1 // 0x32b9 @0x2
0x32b7…32c3 at0004 = ╱9f╱ ENDPROC ╱ // 0x32bb @0x4
0x32b7…32c3 at0005 = ╱52╱R╱ // 0x32bc @0x5
0x32b7…32c3 at0006 = ╱45╱E╱ // 0x32bd @0x6
0x32b7…32c3 at0007 = ╱47╱G╱ // 0x32be @0x7
0x32b7…32c3 at0008 = ╱4e╱N╱ // 0x32bf @0x8
0x32b7…32c3 at0009 = ╱33╱3╱ // 0x32c0 @0x9
0x32b7…32c3 at000a = ╱38╱8╱ // 0x32c1 @0xa
0x32b7…32c3 at000b = EOL // 0x32c2 @0xb
0x32b7…32c3 }
0x32c3…32cf c8bd 03030 PROC REGN6
0x32c3…32cf LineComal80 {
0x32c3…32cf ptr = 0xc8bd // 0x32c3 @0x0
0x32c3…32cf lno = 0x0bd6 // 0x32c5 @0x2
0x32c3…32cf at0004 = ╱9e00╱ PROC ╱ // 0x32c7 @0x4
0x32c3…32cf at0006 = ╱52╱R╱ // 0x32c9 @0x6
0x32c3…32cf at0007 = ╱45╱E╱ // 0x32ca @0x7
0x32c3…32cf at0008 = ╱47╱G╱ // 0x32cb @0x8
0x32c3…32cf at0009 = ╱4e╱N╱ // 0x32cc @0x9
0x32c3…32cf at000a = ╱36╱6╱ // 0x32cd @0xa
0x32c3…32cf at000b = EOL // 0x32ce @0xb
0x32c3…32cf }
0x32cf…32e6 c8d4 03035 LET C7 := ( INT ( C6 / W ) * W ) + B2
0x32cf…32e6 LineComal80 {
0x32cf…32e6 ptr = 0xc8d4 // 0x32cf @0x0
0x32cf…32e6 lno = 0x0bdb // 0x32d1 @0x2
0x32cf…32e6 at0004 = ╱86╱ LET ╱ // 0x32d3 @0x4
0x32cf…32e6 at0005 = ╱43╱C╱ // 0x32d4 @0x5
0x32cf…32e6 at0006 = ╱37╱7╱ // 0x32d5 @0x6
0x32cf…32e6 at0007 = ╱f0╱ := ╱ // 0x32d6 @0x7
0x32cf…32e6 at0008 = ╱ed╱ ( ╱ // 0x32d7 @0x8
0x32cf…32e6 at0009 = ╱c6╱ INT ╱ // 0x32d8 @0x9
0x32cf…32e6 at000a = ╱ed╱ ( ╱ // 0x32d9 @0xa
0x32cf…32e6 at000b = ╱43╱C╱ // 0x32da @0xb
0x32cf…32e6 at000c = ╱36╱6╱ // 0x32db @0xc
0x32cf…32e6 at000d = ╱e8╱ / ╱ // 0x32dc @0xd
0x32cf…32e6 at000e = ╱57╱W╱ // 0x32dd @0xe
0x32cf…32e6 at000f = ╱ee╱ ) ╱ // 0x32de @0xf
0x32cf…32e6 at0010 = ╱e7╱ * ╱ // 0x32df @0x10
0x32cf…32e6 at0011 = ╱57╱W╱ // 0x32e0 @0x11
0x32cf…32e6 at0012 = ╱ee╱ ) ╱ // 0x32e1 @0x12
0x32cf…32e6 at0013 = ╱e5╱ + ╱ // 0x32e2 @0x13
0x32cf…32e6 at0014 = ╱42╱B╱ // 0x32e3 @0x14
0x32cf…32e6 at0015 = ╱32╱2╱ // 0x32e4 @0x15
0x32cf…32e6 at0016 = EOL // 0x32e5 @0x16
0x32cf…32e6 }
0x32e6…3307 c8f5 03040 IF T0 = 1 THEN LET C7 := ( INT ( C4 / W ) * W ) + B5
0x32e6…3307 LineComal80 {
0x32e6…3307 ptr = 0xc8f5 // 0x32e6 @0x0
0x32e6…3307 lno = 0x0be0 // 0x32e8 @0x2
0x32e6…3307 at0004 = ╱8200╱ IF ╱ // 0x32ea @0x4
0x32e6…3307 at0006 = ╱54╱T╱ // 0x32ec @0x6
0x32e6…3307 at0007 = ╱30╱0╱ // 0x32ed @0x7
0x32e6…3307 at0008 = ╱df╱ = ╱ // 0x32ee @0x8
0x32e6…3307 at0009 = ╱31╱1╱ // 0x32ef @0x9
0x32e6…3307 at000a = ╱f20100╱ // 0x32f0 @0xa
0x32e6…3307 at000d = ╱b5╱ THEN ╱ // 0x32f3 @0xd
0x32e6…3307 at000e = ╱86╱ LET ╱ // 0x32f4 @0xe
0x32e6…3307 at000f = ╱43╱C╱ // 0x32f5 @0xf
0x32e6…3307 at0010 = ╱37╱7╱ // 0x32f6 @0x10
0x32e6…3307 at0011 = ╱f0╱ := ╱ // 0x32f7 @0x11
0x32e6…3307 at0012 = ╱ed╱ ( ╱ // 0x32f8 @0x12
0x32e6…3307 at0013 = ╱c6╱ INT ╱ // 0x32f9 @0x13
0x32e6…3307 at0014 = ╱ed╱ ( ╱ // 0x32fa @0x14
0x32e6…3307 at0015 = ╱43╱C╱ // 0x32fb @0x15
0x32e6…3307 at0016 = ╱34╱4╱ // 0x32fc @0x16
0x32e6…3307 at0017 = ╱e8╱ / ╱ // 0x32fd @0x17
0x32e6…3307 at0018 = ╱57╱W╱ // 0x32fe @0x18
0x32e6…3307 at0019 = ╱ee╱ ) ╱ // 0x32ff @0x19
0x32e6…3307 at001a = ╱e7╱ * ╱ // 0x3300 @0x1a
0x32e6…3307 at001b = ╱57╱W╱ // 0x3301 @0x1b
0x32e6…3307 at001c = ╱ee╱ ) ╱ // 0x3302 @0x1c
0x32e6…3307 at001d = ╱e5╱ + ╱ // 0x3303 @0x1d
0x32e6…3307 at001e = ╱42╱B╱ // 0x3304 @0x1e
0x32e6…3307 at001f = ╱35╱5╱ // 0x3305 @0x1f
0x32e6…3307 at0020 = EOL // 0x3306 @0x20
0x32e6…3307 }
0x3307…3312 c900 03045 LET D8 := C7
0x3307…3312 LineComal80 {
0x3307…3312 ptr = 0xc900 // 0x3307 @0x0
0x3307…3312 lno = 0x0be5 // 0x3309 @0x2
0x3307…3312 at0004 = ╱86╱ LET ╱ // 0x330b @0x4
0x3307…3312 at0005 = ╱44╱D╱ // 0x330c @0x5
0x3307…3312 at0006 = ╱38╱8╱ // 0x330d @0x6
0x3307…3312 at0007 = ╱f0╱ := ╱ // 0x330e @0x7
0x3307…3312 at0008 = ╱43╱C╱ // 0x330f @0x8
0x3307…3312 at0009 = ╱37╱7╱ // 0x3310 @0x9
0x3307…3312 at000a = EOL // 0x3311 @0xa
0x3307…3312 }
0x3312…331e c90c 03050 EXEC REGN25
0x3312…331e LineComal80 {
0x3312…331e ptr = 0xc90c // 0x3312 @0x0
0x3312…331e lno = 0x0bea // 0x3314 @0x2
0x3312…331e at0004 = ╱9d╱ EXEC ╱ // 0x3316 @0x4
0x3312…331e at0005 = ╱52╱R╱ // 0x3317 @0x5
0x3312…331e at0006 = ╱45╱E╱ // 0x3318 @0x6
0x3312…331e at0007 = ╱47╱G╱ // 0x3319 @0x7
0x3312…331e at0008 = ╱4e╱N╱ // 0x331a @0x8
0x3312…331e at0009 = ╱32╱2╱ // 0x331b @0x9
0x3312…331e at000a = ╱35╱5╱ // 0x331c @0xa
0x3312…331e at000b = EOL // 0x331d @0xb
0x3312…331e }
0x331e…332f c91d 03055 LET E2 := D1 ; C7 := C6
0x331e…332f LineComal80 {
0x331e…332f ptr = 0xc91d // 0x331e @0x0
0x331e…332f lno = 0x0bef // 0x3320 @0x2
0x331e…332f at0004 = ╱86╱ LET ╱ // 0x3322 @0x4
0x331e…332f at0005 = ╱45╱E╱ // 0x3323 @0x5
0x331e…332f at0006 = ╱32╱2╱ // 0x3324 @0x6
0x331e…332f at0007 = ╱f0╱ := ╱ // 0x3325 @0x7
0x331e…332f at0008 = ╱44╱D╱ // 0x3326 @0x8
0x331e…332f at0009 = ╱31╱1╱ // 0x3327 @0x9
0x331e…332f at000a = ╱ea╱ ; ╱ // 0x3328 @0xa
0x331e…332f at000b = ╱43╱C╱ // 0x3329 @0xb
0x331e…332f at000c = ╱37╱7╱ // 0x332a @0xc
0x331e…332f at000d = ╱f0╱ := ╱ // 0x332b @0xd
0x331e…332f at000e = ╱43╱C╱ // 0x332c @0xe
0x331e…332f at000f = ╱36╱6╱ // 0x332d @0xf
0x331e…332f at0010 = EOL // 0x332e @0x10
0x331e…332f }
0x332f…3344 c932 03060 IF T0 = 1 THEN LET C7 := C4
0x332f…3344 LineComal80 {
0x332f…3344 ptr = 0xc932 // 0x332f @0x0
0x332f…3344 lno = 0x0bf4 // 0x3331 @0x2
0x332f…3344 at0004 = ╱8200╱ IF ╱ // 0x3333 @0x4
0x332f…3344 at0006 = ╱54╱T╱ // 0x3335 @0x6
0x332f…3344 at0007 = ╱30╱0╱ // 0x3336 @0x7
0x332f…3344 at0008 = ╱df╱ = ╱ // 0x3337 @0x8
0x332f…3344 at0009 = ╱31╱1╱ // 0x3338 @0x9
0x332f…3344 at000a = ╱f20100╱ // 0x3339 @0xa
0x332f…3344 at000d = ╱b5╱ THEN ╱ // 0x333c @0xd
0x332f…3344 at000e = ╱86╱ LET ╱ // 0x333d @0xe
0x332f…3344 at000f = ╱43╱C╱ // 0x333e @0xf
0x332f…3344 at0010 = ╱37╱7╱ // 0x333f @0x10
0x332f…3344 at0011 = ╱f0╱ := ╱ // 0x3340 @0x11
0x332f…3344 at0012 = ╱43╱C╱ // 0x3341 @0x12
0x332f…3344 at0013 = ╱34╱4╱ // 0x3342 @0x13
0x332f…3344 at0014 = EOL // 0x3343 @0x14
0x332f…3344 }
0x3344…3350 c93e 03065 EXEC REGN25
0x3344…3350 LineComal80 {
0x3344…3350 ptr = 0xc93e // 0x3344 @0x0
0x3344…3350 lno = 0x0bf9 // 0x3346 @0x2
0x3344…3350 at0004 = ╱9d╱ EXEC ╱ // 0x3348 @0x4
0x3344…3350 at0005 = ╱52╱R╱ // 0x3349 @0x5
0x3344…3350 at0006 = ╱45╱E╱ // 0x334a @0x6
0x3344…3350 at0007 = ╱47╱G╱ // 0x334b @0x7
0x3344…3350 at0008 = ╱4e╱N╱ // 0x334c @0x8
0x3344…3350 at0009 = ╱32╱2╱ // 0x334d @0x9
0x3344…3350 at000a = ╱35╱5╱ // 0x334e @0xa
0x3344…3350 at000b = EOL // 0x334f @0xb
0x3344…3350 }
0x3350…335e c94c 03070 LET E2 := E2 - D1
0x3350…335e LineComal80 {
0x3350…335e ptr = 0xc94c // 0x3350 @0x0
0x3350…335e lno = 0x0bfe // 0x3352 @0x2
0x3350…335e at0004 = ╱86╱ LET ╱ // 0x3354 @0x4
0x3350…335e at0005 = ╱45╱E╱ // 0x3355 @0x5
0x3350…335e at0006 = ╱32╱2╱ // 0x3356 @0x6
0x3350…335e at0007 = ╱f0╱ := ╱ // 0x3357 @0x7
0x3350…335e at0008 = ╱45╱E╱ // 0x3358 @0x8
0x3350…335e at0009 = ╱32╱2╱ // 0x3359 @0x9
0x3350…335e at000a = ╱e6╱ - ╱ // 0x335a @0xa
0x3350…335e at000b = ╱44╱D╱ // 0x335b @0xb
0x3350…335e at000c = ╱31╱1╱ // 0x335c @0xc
0x3350…335e at000d = EOL // 0x335d @0xd
0x3350…335e }
0x335e…336a c958 03075 EXEC REGN51
0x335e…336a LineComal80 {
0x335e…336a ptr = 0xc958 // 0x335e @0x0
0x335e…336a lno = 0x0c03 // 0x3360 @0x2
0x335e…336a at0004 = ╱9d╱ EXEC ╱ // 0x3362 @0x4
0x335e…336a at0005 = ╱52╱R╱ // 0x3363 @0x5
0x335e…336a at0006 = ╱45╱E╱ // 0x3364 @0x6
0x335e…336a at0007 = ╱47╱G╱ // 0x3365 @0x7
0x335e…336a at0008 = ╱4e╱N╱ // 0x3366 @0x8
0x335e…336a at0009 = ╱35╱5╱ // 0x3367 @0x9
0x335e…336a at000a = ╱31╱1╱ // 0x3368 @0xa
0x335e…336a at000b = EOL // 0x3369 @0xb
0x335e…336a }
0x336a…3379 c967 03080 IF 0 = 1 THEN
0x336a…3379 LineComal80 {
0x336a…3379 ptr = 0xc967 // 0x336a @0x0
0x336a…3379 lno = 0x0c08 // 0x336c @0x2
0x336a…3379 at0004 = ╱9b0054╱ IF ╱ // 0x336e @0x4
0x336a…3379 at0007 = ╱30╱0╱ // 0x3371 @0x7
0x336a…3379 at0008 = ╱df╱ = ╱ // 0x3372 @0x8
0x336a…3379 at0009 = ╱31╱1╱ // 0x3373 @0x9
0x336a…3379 at000a = ╱f20100╱ // 0x3374 @0xa
0x336a…3379 at000d = ╱b5╱ THEN ╱ // 0x3377 @0xd
0x336a…3379 at000e = EOL // 0x3378 @0xe
0x336a…3379 }
0x3379…3384 c972 03085 EXEC KIRKE
0x3379…3384 LineComal80 {
0x3379…3384 ptr = 0xc972 // 0x3379 @0x0
0x3379…3384 lno = 0x0c0d // 0x337b @0x2
0x3379…3384 at0004 = ╱9d╱ EXEC ╱ // 0x337d @0x4
0x3379…3384 at0005 = ╱4b╱K╱ // 0x337e @0x5
0x3379…3384 at0006 = ╱49╱I╱ // 0x337f @0x6
0x3379…3384 at0007 = ╱52╱R╱ // 0x3380 @0x7
0x3379…3384 at0008 = ╱4b╱K╱ // 0x3381 @0x8
0x3379…3384 at0009 = ╱45╱E╱ // 0x3382 @0x9
0x3379…3384 at000a = EOL // 0x3383 @0xa
0x3379…3384 }
0x3384…338b c979 03090 ELSE
0x3384…338b LineComal80 {
0x3384…338b ptr = 0xc979 // 0x3384 @0x0
0x3384…338b lno = 0x0c12 // 0x3386 @0x2
0x3384…338b at0004 = ╱9a00╱ ELSE ╱ // 0x3388 @0x4
0x3384…338b at0006 = EOL // 0x338a @0x6
0x3384…338b }
0x338b…3397 c985 03095 EXEC GKIRKE
0x338b…3397 LineComal80 {
0x338b…3397 ptr = 0xc985 // 0x338b @0x0
0x338b…3397 lno = 0x0c17 // 0x338d @0x2
0x338b…3397 at0004 = ╱9d╱ EXEC ╱ // 0x338f @0x4
0x338b…3397 at0005 = ╱47╱G╱ // 0x3390 @0x5
0x338b…3397 at0006 = ╱4b╱K╱ // 0x3391 @0x6
0x338b…3397 at0007 = ╱49╱I╱ // 0x3392 @0x7
0x338b…3397 at0008 = ╱52╱R╱ // 0x3393 @0x8
0x338b…3397 at0009 = ╱4b╱K╱ // 0x3394 @0x9
0x338b…3397 at000a = ╱45╱E╱ // 0x3395 @0xa
0x338b…3397 at000b = EOL // 0x3396 @0xb
0x338b…3397 }
0x3397…339d c98b 03100 ENDIF
0x3397…339d LineComal80 {
0x3397…339d ptr = 0xc98b // 0x3397 @0x0
0x3397…339d lno = 0x0c1c // 0x3399 @0x2
0x3397…339d at0004 = ╱9c╱ ENDIF ╱ // 0x339b @0x4
0x3397…339d at0005 = EOL // 0x339c @0x5
0x3397…339d }
0x339d…33a7 c995 03105 LET D5 := O
0x339d…33a7 LineComal80 {
0x339d…33a7 ptr = 0xc995 // 0x339d @0x0
0x339d…33a7 lno = 0x0c21 // 0x339f @0x2
0x339d…33a7 at0004 = ╱86╱ LET ╱ // 0x33a1 @0x4
0x339d…33a7 at0005 = ╱44╱D╱ // 0x33a2 @0x5
0x339d…33a7 at0006 = ╱35╱5╱ // 0x33a3 @0x6
0x339d…33a7 at0007 = ╱f0╱ := ╱ // 0x33a4 @0x7
0x339d…33a7 at0008 = ╱4f╱O╱ // 0x33a5 @0x8
0x339d…33a7 at0009 = EOL // 0x33a6 @0x9
0x339d…33a7 }
0x33a7…33db c9c9 03110 IF ( T0 = 1 AND TKH = 1 ) OR ( T0 = 2 AND TKB = 1 ) THEN EXEC REGN30
0x33a7…33db LineComal80 {
0x33a7…33db ptr = 0xc9c9 // 0x33a7 @0x0
0x33a7…33db lno = 0x0c26 // 0x33a9 @0x2
0x33a7…33db at0004 = ╱8200╱ IF ╱ // 0x33ab @0x4
0x33a7…33db at0006 = ╱ed╱ ( ╱ // 0x33ad @0x6
0x33a7…33db at0007 = ╱54╱T╱ // 0x33ae @0x7
0x33a7…33db at0008 = ╱30╱0╱ // 0x33af @0x8
0x33a7…33db at0009 = ╱df╱ = ╱ // 0x33b0 @0x9
0x33a7…33db at000a = ╱31╱1╱ // 0x33b1 @0xa
0x33a7…33db at000b = ╱f20100╱ // 0x33b2 @0xb
0x33a7…33db at000e = ╱d9╱ AND ╱ // 0x33b5 @0xe
0x33a7…33db at000f = ╱54╱T╱ // 0x33b6 @0xf
0x33a7…33db at0010 = ╱4b╱K╱ // 0x33b7 @0x10
0x33a7…33db at0011 = ╱48╱H╱ // 0x33b8 @0x11
0x33a7…33db at0012 = ╱df╱ = ╱ // 0x33b9 @0x12
0x33a7…33db at0013 = ╱31╱1╱ // 0x33ba @0x13
0x33a7…33db at0014 = ╱f20100╱ // 0x33bb @0x14
0x33a7…33db at0017 = ╱ee╱ ) ╱ // 0x33be @0x17
0x33a7…33db at0018 = ╱d8╱ OR ╱ // 0x33bf @0x18
0x33a7…33db at0019 = ╱ed╱ ( ╱ // 0x33c0 @0x19
0x33a7…33db at001a = ╱54╱T╱ // 0x33c1 @0x1a
0x33a7…33db at001b = ╱30╱0╱ // 0x33c2 @0x1b
0x33a7…33db at001c = ╱df╱ = ╱ // 0x33c3 @0x1c
0x33a7…33db at001d = ╱32╱2╱ // 0x33c4 @0x1d
0x33a7…33db at001e = ╱f20200╱ // 0x33c5 @0x1e
0x33a7…33db at0021 = ╱d9╱ AND ╱ // 0x33c8 @0x21
0x33a7…33db at0022 = ╱54╱T╱ // 0x33c9 @0x22
0x33a7…33db at0023 = ╱4b╱K╱ // 0x33ca @0x23
0x33a7…33db at0024 = ╱42╱B╱ // 0x33cb @0x24
0x33a7…33db at0025 = ╱df╱ = ╱ // 0x33cc @0x25
0x33a7…33db at0026 = ╱31╱1╱ // 0x33cd @0x26
0x33a7…33db at0027 = ╱f20100╱ // 0x33ce @0x27
0x33a7…33db at002a = ╱ee╱ ) ╱ // 0x33d1 @0x2a
0x33a7…33db at002b = ╱b5╱ THEN ╱ // 0x33d2 @0x2b
0x33a7…33db at002c = ╱9d╱ EXEC ╱ // 0x33d3 @0x2c
0x33a7…33db at002d = ╱52╱R╱ // 0x33d4 @0x2d
0x33a7…33db at002e = ╱45╱E╱ // 0x33d5 @0x2e
0x33a7…33db at002f = ╱47╱G╱ // 0x33d6 @0x2f
0x33a7…33db at0030 = ╱4e╱N╱ // 0x33d7 @0x30
0x33a7…33db at0031 = ╱33╱3╱ // 0x33d8 @0x31
0x33a7…33db at0032 = ╱30╱0╱ // 0x33d9 @0x32
0x33a7…33db at0033 = EOL // 0x33da @0x33
0x33a7…33db }
0x33db…33e7 c9d5 03115 EXEC REGN31
0x33db…33e7 LineComal80 {
0x33db…33e7 ptr = 0xc9d5 // 0x33db @0x0
0x33db…33e7 lno = 0x0c2b // 0x33dd @0x2
0x33db…33e7 at0004 = ╱9d╱ EXEC ╱ // 0x33df @0x4
0x33db…33e7 at0005 = ╱52╱R╱ // 0x33e0 @0x5
0x33db…33e7 at0006 = ╱45╱E╱ // 0x33e1 @0x6
0x33db…33e7 at0007 = ╱47╱G╱ // 0x33e2 @0x7
0x33db…33e7 at0008 = ╱4e╱N╱ // 0x33e3 @0x8
0x33db…33e7 at0009 = ╱33╱3╱ // 0x33e4 @0x9
0x33db…33e7 at000a = ╱31╱1╱ // 0x33e5 @0xa
0x33db…33e7 at000b = EOL // 0x33e6 @0xb
0x33db…33e7 }
0x33e7…33f3 c9e1 03120 EXEC REGN39
0x33e7…33f3 LineComal80 {
0x33e7…33f3 ptr = 0xc9e1 // 0x33e7 @0x0
0x33e7…33f3 lno = 0x0c30 // 0x33e9 @0x2
0x33e7…33f3 at0004 = ╱9d╱ EXEC ╱ // 0x33eb @0x4
0x33e7…33f3 at0005 = ╱52╱R╱ // 0x33ec @0x5
0x33e7…33f3 at0006 = ╱45╱E╱ // 0x33ed @0x6
0x33e7…33f3 at0007 = ╱47╱G╱ // 0x33ee @0x7
0x33e7…33f3 at0008 = ╱4e╱N╱ // 0x33ef @0x8
0x33e7…33f3 at0009 = ╱33╱3╱ // 0x33f0 @0x9
0x33e7…33f3 at000a = ╱39╱9╱ // 0x33f1 @0xa
0x33e7…33f3 at000b = EOL // 0x33f2 @0xb
0x33e7…33f3 }
0x33f3…33ff c9ed 03125 EXEC REGN50
0x33f3…33ff LineComal80 {
0x33f3…33ff ptr = 0xc9ed // 0x33f3 @0x0
0x33f3…33ff lno = 0x0c35 // 0x33f5 @0x2
0x33f3…33ff at0004 = ╱9d╱ EXEC ╱ // 0x33f7 @0x4
0x33f3…33ff at0005 = ╱52╱R╱ // 0x33f8 @0x5
0x33f3…33ff at0006 = ╱45╱E╱ // 0x33f9 @0x6
0x33f3…33ff at0007 = ╱47╱G╱ // 0x33fa @0x7
0x33f3…33ff at0008 = ╱4e╱N╱ // 0x33fb @0x8
0x33f3…33ff at0009 = ╱35╱5╱ // 0x33fc @0x9
0x33f3…33ff at000a = ╱30╱0╱ // 0x33fd @0xa
0x33f3…33ff at000b = EOL // 0x33fe @0xb
0x33f3…33ff }
0x33ff…340e c9fc 03130 IF 0 = 1 THEN
0x33ff…340e LineComal80 {
0x33ff…340e ptr = 0xc9fc // 0x33ff @0x0
0x33ff…340e lno = 0x0c3a // 0x3401 @0x2
0x33ff…340e at0004 = ╱9b0054╱ IF ╱ // 0x3403 @0x4
0x33ff…340e at0007 = ╱30╱0╱ // 0x3406 @0x7
0x33ff…340e at0008 = ╱df╱ = ╱ // 0x3407 @0x8
0x33ff…340e at0009 = ╱31╱1╱ // 0x3408 @0x9
0x33ff…340e at000a = ╱f20100╱ // 0x3409 @0xa
0x33ff…340e at000d = ╱b5╱ THEN ╱ // 0x340c @0xd
0x33ff…340e at000e = EOL // 0x340d @0xe
0x33ff…340e }
0x340e…341a ca08 03135 EXEC REGN20
0x340e…341a LineComal80 {
0x340e…341a ptr = 0xca08 // 0x340e @0x0
0x340e…341a lno = 0x0c3f // 0x3410 @0x2
0x340e…341a at0004 = ╱9d╱ EXEC ╱ // 0x3412 @0x4
0x340e…341a at0005 = ╱52╱R╱ // 0x3413 @0x5
0x340e…341a at0006 = ╱45╱E╱ // 0x3414 @0x6
0x340e…341a at0007 = ╱47╱G╱ // 0x3415 @0x7
0x340e…341a at0008 = ╱4e╱N╱ // 0x3416 @0x8
0x340e…341a at0009 = ╱32╱2╱ // 0x3417 @0x9
0x340e…341a at000a = ╱30╱0╱ // 0x3418 @0xa
0x340e…341a at000b = EOL // 0x3419 @0xb
0x340e…341a }
0x341a…3438 ca26 03140 LET C9 := D0 ; D7 := D6 ; C7 := INT ( B5 / W ) * W
0x341a…3438 LineComal80 {
0x341a…3438 ptr = 0xca26 // 0x341a @0x0
0x341a…3438 lno = 0x0c44 // 0x341c @0x2
0x341a…3438 at0004 = ╱86╱ LET ╱ // 0x341e @0x4
0x341a…3438 at0005 = ╱43╱C╱ // 0x341f @0x5
0x341a…3438 at0006 = ╱39╱9╱ // 0x3420 @0x6
0x341a…3438 at0007 = ╱f0╱ := ╱ // 0x3421 @0x7
0x341a…3438 at0008 = ╱44╱D╱ // 0x3422 @0x8
0x341a…3438 at0009 = ╱30╱0╱ // 0x3423 @0x9
0x341a…3438 at000a = ╱ea╱ ; ╱ // 0x3424 @0xa
0x341a…3438 at000b = ╱44╱D╱ // 0x3425 @0xb
0x341a…3438 at000c = ╱37╱7╱ // 0x3426 @0xc
0x341a…3438 at000d = ╱f0╱ := ╱ // 0x3427 @0xd
0x341a…3438 at000e = ╱44╱D╱ // 0x3428 @0xe
0x341a…3438 at000f = ╱36╱6╱ // 0x3429 @0xf
0x341a…3438 at0010 = ╱ea╱ ; ╱ // 0x342a @0x10
0x341a…3438 at0011 = ╱43╱C╱ // 0x342b @0x11
0x341a…3438 at0012 = ╱37╱7╱ // 0x342c @0x12
0x341a…3438 at0013 = ╱f0╱ := ╱ // 0x342d @0x13
0x341a…3438 at0014 = ╱c6╱ INT ╱ // 0x342e @0x14
0x341a…3438 at0015 = ╱ed╱ ( ╱ // 0x342f @0x15
0x341a…3438 at0016 = ╱42╱B╱ // 0x3430 @0x16
0x341a…3438 at0017 = ╱35╱5╱ // 0x3431 @0x17
0x341a…3438 at0018 = ╱e8╱ / ╱ // 0x3432 @0x18
0x341a…3438 at0019 = ╱57╱W╱ // 0x3433 @0x19
0x341a…3438 at001a = ╱ee╱ ) ╱ // 0x3434 @0x1a
0x341a…3438 at001b = ╱e7╱ * ╱ // 0x3435 @0x1b
0x341a…3438 at001c = ╱57╱W╱ // 0x3436 @0x1c
0x341a…3438 at001d = EOL // 0x3437 @0x1d
0x341a…3438 }
0x3438…343f ca2d 03145 ELSE
0x3438…343f LineComal80 {
0x3438…343f ptr = 0xca2d // 0x3438 @0x0
0x3438…343f lno = 0x0c49 // 0x343a @0x2
0x3438…343f at0004 = ╱9a00╱ ELSE ╱ // 0x343c @0x4
0x3438…343f at0006 = EOL // 0x343e @0x6
0x3438…343f }
0x343f…344b ca39 03150 EXEC REGN21
0x343f…344b LineComal80 {
0x343f…344b ptr = 0xca39 // 0x343f @0x0
0x343f…344b lno = 0x0c4e // 0x3441 @0x2
0x343f…344b at0004 = ╱9d╱ EXEC ╱ // 0x3443 @0x4
0x343f…344b at0005 = ╱52╱R╱ // 0x3444 @0x5
0x343f…344b at0006 = ╱45╱E╱ // 0x3445 @0x6
0x343f…344b at0007 = ╱47╱G╱ // 0x3446 @0x7
0x343f…344b at0008 = ╱4e╱N╱ // 0x3447 @0x8
0x343f…344b at0009 = ╱32╱2╱ // 0x3448 @0x9
0x343f…344b at000a = ╱31╱1╱ // 0x3449 @0xa
0x343f…344b at000b = EOL // 0x344a @0xb
0x343f…344b }
0x344b…3469 ca57 03155 LET C0 := D0 ; D9 := D6 ; C7 := INT ( B2 / W ) * W
0x344b…3469 LineComal80 {
0x344b…3469 ptr = 0xca57 // 0x344b @0x0
0x344b…3469 lno = 0x0c53 // 0x344d @0x2
0x344b…3469 at0004 = ╱86╱ LET ╱ // 0x344f @0x4
0x344b…3469 at0005 = ╱43╱C╱ // 0x3450 @0x5
0x344b…3469 at0006 = ╱30╱0╱ // 0x3451 @0x6
0x344b…3469 at0007 = ╱f0╱ := ╱ // 0x3452 @0x7
0x344b…3469 at0008 = ╱44╱D╱ // 0x3453 @0x8
0x344b…3469 at0009 = ╱30╱0╱ // 0x3454 @0x9
0x344b…3469 at000a = ╱ea╱ ; ╱ // 0x3455 @0xa
0x344b…3469 at000b = ╱44╱D╱ // 0x3456 @0xb
0x344b…3469 at000c = ╱39╱9╱ // 0x3457 @0xc
0x344b…3469 at000d = ╱f0╱ := ╱ // 0x3458 @0xd
0x344b…3469 at000e = ╱44╱D╱ // 0x3459 @0xe
0x344b…3469 at000f = ╱36╱6╱ // 0x345a @0xf
0x344b…3469 at0010 = ╱ea╱ ; ╱ // 0x345b @0x10
0x344b…3469 at0011 = ╱43╱C╱ // 0x345c @0x11
0x344b…3469 at0012 = ╱37╱7╱ // 0x345d @0x12
0x344b…3469 at0013 = ╱f0╱ := ╱ // 0x345e @0x13
0x344b…3469 at0014 = ╱c6╱ INT ╱ // 0x345f @0x14
0x344b…3469 at0015 = ╱ed╱ ( ╱ // 0x3460 @0x15
0x344b…3469 at0016 = ╱42╱B╱ // 0x3461 @0x16
0x344b…3469 at0017 = ╱32╱2╱ // 0x3462 @0x17
0x344b…3469 at0018 = ╱e8╱ / ╱ // 0x3463 @0x18
0x344b…3469 at0019 = ╱57╱W╱ // 0x3464 @0x19
0x344b…3469 at001a = ╱ee╱ ) ╱ // 0x3465 @0x1a
0x344b…3469 at001b = ╱e7╱ * ╱ // 0x3466 @0x1b
0x344b…3469 at001c = ╱57╱W╱ // 0x3467 @0x1c
0x344b…3469 at001d = EOL // 0x3468 @0x1d
0x344b…3469 }
0x3469…346f ca5d 03160 ENDIF
0x3469…346f LineComal80 {
0x3469…346f ptr = 0xca5d // 0x3469 @0x0
0x3469…346f lno = 0x0c58 // 0x346b @0x2
0x3469…346f at0004 = ╱9c╱ ENDIF ╱ // 0x346d @0x4
0x3469…346f at0005 = EOL // 0x346e @0x5
0x3469…346f }
0x346f…347b ca69 03165 EXEC REGN51
0x346f…347b LineComal80 {
0x346f…347b ptr = 0xca69 // 0x346f @0x0
0x346f…347b lno = 0x0c5d // 0x3471 @0x2
0x346f…347b at0004 = ╱9d╱ EXEC ╱ // 0x3473 @0x4
0x346f…347b at0005 = ╱52╱R╱ // 0x3474 @0x5
0x346f…347b at0006 = ╱45╱E╱ // 0x3475 @0x6
0x346f…347b at0007 = ╱47╱G╱ // 0x3476 @0x7
0x346f…347b at0008 = ╱4e╱N╱ // 0x3477 @0x8
0x346f…347b at0009 = ╱35╱5╱ // 0x3478 @0x9
0x346f…347b at000a = ╱31╱1╱ // 0x3479 @0xa
0x346f…347b at000b = EOL // 0x347a @0xb
0x346f…347b }
0x347b…348a ca78 03170 IF 0 = 1 THEN
0x347b…348a LineComal80 {
0x347b…348a ptr = 0xca78 // 0x347b @0x0
0x347b…348a lno = 0x0c62 // 0x347d @0x2
0x347b…348a at0004 = ╱9b0054╱ IF ╱ // 0x347f @0x4
0x347b…348a at0007 = ╱30╱0╱ // 0x3482 @0x7
0x347b…348a at0008 = ╱df╱ = ╱ // 0x3483 @0x8
0x347b…348a at0009 = ╱31╱1╱ // 0x3484 @0x9
0x347b…348a at000a = ╱f20100╱ // 0x3485 @0xa
0x347b…348a at000d = ╱b5╱ THEN ╱ // 0x3488 @0xd
0x347b…348a at000e = EOL // 0x3489 @0xe
0x347b…348a }
0x348a…3496 ca84 03175 EXEC GKIRKE
0x348a…3496 LineComal80 {
0x348a…3496 ptr = 0xca84 // 0x348a @0x0
0x348a…3496 lno = 0x0c67 // 0x348c @0x2
0x348a…3496 at0004 = ╱9d╱ EXEC ╱ // 0x348e @0x4
0x348a…3496 at0005 = ╱47╱G╱ // 0x348f @0x5
0x348a…3496 at0006 = ╱4b╱K╱ // 0x3490 @0x6
0x348a…3496 at0007 = ╱49╱I╱ // 0x3491 @0x7
0x348a…3496 at0008 = ╱52╱R╱ // 0x3492 @0x8
0x348a…3496 at0009 = ╱4b╱K╱ // 0x3493 @0x9
0x348a…3496 at000a = ╱45╱E╱ // 0x3494 @0xa
0x348a…3496 at000b = EOL // 0x3495 @0xb
0x348a…3496 }
0x3496…349d ca8b 03180 ELSE
0x3496…349d LineComal80 {
0x3496…349d ptr = 0xca8b // 0x3496 @0x0
0x3496…349d lno = 0x0c6c // 0x3498 @0x2
0x3496…349d at0004 = ╱9a00╱ ELSE ╱ // 0x349a @0x4
0x3496…349d at0006 = EOL // 0x349c @0x6
0x3496…349d }
0x349d…34a8 ca96 03185 EXEC KIRKE
0x349d…34a8 LineComal80 {
0x349d…34a8 ptr = 0xca96 // 0x349d @0x0
0x349d…34a8 lno = 0x0c71 // 0x349f @0x2
0x349d…34a8 at0004 = ╱9d╱ EXEC ╱ // 0x34a1 @0x4
0x349d…34a8 at0005 = ╱4b╱K╱ // 0x34a2 @0x5
0x349d…34a8 at0006 = ╱49╱I╱ // 0x34a3 @0x6
0x349d…34a8 at0007 = ╱52╱R╱ // 0x34a4 @0x7
0x349d…34a8 at0008 = ╱4b╱K╱ // 0x34a5 @0x8
0x349d…34a8 at0009 = ╱45╱E╱ // 0x34a6 @0x9
0x349d…34a8 at000a = EOL // 0x34a7 @0xa
0x349d…34a8 }
0x34a8…34ae ca9c 03190 ENDIF
0x34a8…34ae LineComal80 {
0x34a8…34ae ptr = 0xca9c // 0x34a8 @0x0
0x34a8…34ae lno = 0x0c76 // 0x34aa @0x2
0x34a8…34ae at0004 = ╱9c╱ ENDIF ╱ // 0x34ac @0x4
0x34a8…34ae at0005 = EOL // 0x34ad @0x5
0x34a8…34ae }
0x34ae…34b8 caa6 03195 LET D5 := O
0x34ae…34b8 LineComal80 {
0x34ae…34b8 ptr = 0xcaa6 // 0x34ae @0x0
0x34ae…34b8 lno = 0x0c7b // 0x34b0 @0x2
0x34ae…34b8 at0004 = ╱86╱ LET ╱ // 0x34b2 @0x4
0x34ae…34b8 at0005 = ╱44╱D╱ // 0x34b3 @0x5
0x34ae…34b8 at0006 = ╱35╱5╱ // 0x34b4 @0x6
0x34ae…34b8 at0007 = ╱f0╱ := ╱ // 0x34b5 @0x7
0x34ae…34b8 at0008 = ╱4f╱O╱ // 0x34b6 @0x8
0x34ae…34b8 at0009 = EOL // 0x34b7 @0x9
0x34ae…34b8 }
0x34b8…34ec cada 03200 IF ( T0 = 2 AND TKH = 1 ) OR ( T0 = 1 AND TKB = 1 ) THEN EXEC REGN30
0x34b8…34ec LineComal80 {
0x34b8…34ec ptr = 0xcada // 0x34b8 @0x0
0x34b8…34ec lno = 0x0c80 // 0x34ba @0x2
0x34b8…34ec at0004 = ╱8200╱ IF ╱ // 0x34bc @0x4
0x34b8…34ec at0006 = ╱ed╱ ( ╱ // 0x34be @0x6
0x34b8…34ec at0007 = ╱54╱T╱ // 0x34bf @0x7
0x34b8…34ec at0008 = ╱30╱0╱ // 0x34c0 @0x8
0x34b8…34ec at0009 = ╱df╱ = ╱ // 0x34c1 @0x9
0x34b8…34ec at000a = ╱32╱2╱ // 0x34c2 @0xa
0x34b8…34ec at000b = ╱f20200╱ // 0x34c3 @0xb
0x34b8…34ec at000e = ╱d9╱ AND ╱ // 0x34c6 @0xe
0x34b8…34ec at000f = ╱54╱T╱ // 0x34c7 @0xf
0x34b8…34ec at0010 = ╱4b╱K╱ // 0x34c8 @0x10
0x34b8…34ec at0011 = ╱48╱H╱ // 0x34c9 @0x11
0x34b8…34ec at0012 = ╱df╱ = ╱ // 0x34ca @0x12
0x34b8…34ec at0013 = ╱31╱1╱ // 0x34cb @0x13
0x34b8…34ec at0014 = ╱f20100╱ // 0x34cc @0x14
0x34b8…34ec at0017 = ╱ee╱ ) ╱ // 0x34cf @0x17
0x34b8…34ec at0018 = ╱d8╱ OR ╱ // 0x34d0 @0x18
0x34b8…34ec at0019 = ╱ed╱ ( ╱ // 0x34d1 @0x19
0x34b8…34ec at001a = ╱54╱T╱ // 0x34d2 @0x1a
0x34b8…34ec at001b = ╱30╱0╱ // 0x34d3 @0x1b
0x34b8…34ec at001c = ╱df╱ = ╱ // 0x34d4 @0x1c
0x34b8…34ec at001d = ╱31╱1╱ // 0x34d5 @0x1d
0x34b8…34ec at001e = ╱f20100╱ // 0x34d6 @0x1e
0x34b8…34ec at0021 = ╱d9╱ AND ╱ // 0x34d9 @0x21
0x34b8…34ec at0022 = ╱54╱T╱ // 0x34da @0x22
0x34b8…34ec at0023 = ╱4b╱K╱ // 0x34db @0x23
0x34b8…34ec at0024 = ╱42╱B╱ // 0x34dc @0x24
0x34b8…34ec at0025 = ╱df╱ = ╱ // 0x34dd @0x25
0x34b8…34ec at0026 = ╱31╱1╱ // 0x34de @0x26
0x34b8…34ec at0027 = ╱f20100╱ // 0x34df @0x27
0x34b8…34ec at002a = ╱ee╱ ) ╱ // 0x34e2 @0x2a
0x34b8…34ec at002b = ╱b5╱ THEN ╱ // 0x34e3 @0x2b
0x34b8…34ec at002c = ╱9d╱ EXEC ╱ // 0x34e4 @0x2c
0x34b8…34ec at002d = ╱52╱R╱ // 0x34e5 @0x2d
0x34b8…34ec at002e = ╱45╱E╱ // 0x34e6 @0x2e
0x34b8…34ec at002f = ╱47╱G╱ // 0x34e7 @0x2f
0x34b8…34ec at0030 = ╱4e╱N╱ // 0x34e8 @0x30
0x34b8…34ec at0031 = ╱33╱3╱ // 0x34e9 @0x31
0x34b8…34ec at0032 = ╱30╱0╱ // 0x34ea @0x32
0x34b8…34ec at0033 = EOL // 0x34eb @0x33
0x34b8…34ec }
0x34ec…34f7 cae5 03205 LET C7 := B1
0x34ec…34f7 LineComal80 {
0x34ec…34f7 ptr = 0xcae5 // 0x34ec @0x0
0x34ec…34f7 lno = 0x0c85 // 0x34ee @0x2
0x34ec…34f7 at0004 = ╱86╱ LET ╱ // 0x34f0 @0x4
0x34ec…34f7 at0005 = ╱43╱C╱ // 0x34f1 @0x5
0x34ec…34f7 at0006 = ╱37╱7╱ // 0x34f2 @0x6
0x34ec…34f7 at0007 = ╱f0╱ := ╱ // 0x34f3 @0x7
0x34ec…34f7 at0008 = ╱42╱B╱ // 0x34f4 @0x8
0x34ec…34f7 at0009 = ╱31╱1╱ // 0x34f5 @0x9
0x34ec…34f7 at000a = EOL // 0x34f6 @0xa
0x34ec…34f7 }
0x34f7…350c cafa 03210 IF T0 = 1 THEN LET C7 := B4
0x34f7…350c LineComal80 {
0x34f7…350c ptr = 0xcafa // 0x34f7 @0x0
0x34f7…350c lno = 0x0c8a // 0x34f9 @0x2
0x34f7…350c at0004 = ╱8200╱ IF ╱ // 0x34fb @0x4
0x34f7…350c at0006 = ╱54╱T╱ // 0x34fd @0x6
0x34f7…350c at0007 = ╱30╱0╱ // 0x34fe @0x7
0x34f7…350c at0008 = ╱df╱ = ╱ // 0x34ff @0x8
0x34f7…350c at0009 = ╱31╱1╱ // 0x3500 @0x9
0x34f7…350c at000a = ╱f20100╱ // 0x3501 @0xa
0x34f7…350c at000d = ╱b5╱ THEN ╱ // 0x3504 @0xd
0x34f7…350c at000e = ╱86╱ LET ╱ // 0x3505 @0xe
0x34f7…350c at000f = ╱43╱C╱ // 0x3506 @0xf
0x34f7…350c at0010 = ╱37╱7╱ // 0x3507 @0x10
0x34f7…350c at0011 = ╱f0╱ := ╱ // 0x3508 @0x11
0x34f7…350c at0012 = ╱42╱B╱ // 0x3509 @0x12
0x34f7…350c at0013 = ╱34╱4╱ // 0x350a @0x13
0x34f7…350c at0014 = EOL // 0x350b @0x14
0x34f7…350c }
0x350c…3518 cb06 03215 EXEC REGN25
0x350c…3518 LineComal80 {
0x350c…3518 ptr = 0xcb06 // 0x350c @0x0
0x350c…3518 lno = 0x0c8f // 0x350e @0x2
0x350c…3518 at0004 = ╱9d╱ EXEC ╱ // 0x3510 @0x4
0x350c…3518 at0005 = ╱52╱R╱ // 0x3511 @0x5
0x350c…3518 at0006 = ╱45╱E╱ // 0x3512 @0x6
0x350c…3518 at0007 = ╱47╱G╱ // 0x3513 @0x7
0x350c…3518 at0008 = ╱4e╱N╱ // 0x3514 @0x8
0x350c…3518 at0009 = ╱32╱2╱ // 0x3515 @0x9
0x350c…3518 at000a = ╱35╱5╱ // 0x3516 @0xa
0x350c…3518 at000b = EOL // 0x3517 @0xb
0x350c…3518 }
0x3518…3532 cb20 03220 LET AR := D1 ; D1 := D1 + E2 ; E8 := D2
0x3518…3532 LineComal80 {
0x3518…3532 ptr = 0xcb20 // 0x3518 @0x0
0x3518…3532 lno = 0x0c94 // 0x351a @0x2
0x3518…3532 at0004 = ╱86╱ LET ╱ // 0x351c @0x4
0x3518…3532 at0005 = ╱41╱A╱ // 0x351d @0x5
0x3518…3532 at0006 = ╱52╱R╱ // 0x351e @0x6
0x3518…3532 at0007 = ╱f0╱ := ╱ // 0x351f @0x7
0x3518…3532 at0008 = ╱44╱D╱ // 0x3520 @0x8
0x3518…3532 at0009 = ╱31╱1╱ // 0x3521 @0x9
0x3518…3532 at000a = ╱ea╱ ; ╱ // 0x3522 @0xa
0x3518…3532 at000b = ╱44╱D╱ // 0x3523 @0xb
0x3518…3532 at000c = ╱31╱1╱ // 0x3524 @0xc
0x3518…3532 at000d = ╱f0╱ := ╱ // 0x3525 @0xd
0x3518…3532 at000e = ╱44╱D╱ // 0x3526 @0xe
0x3518…3532 at000f = ╱31╱1╱ // 0x3527 @0xf
0x3518…3532 at0010 = ╱e5╱ + ╱ // 0x3528 @0x10
0x3518…3532 at0011 = ╱45╱E╱ // 0x3529 @0x11
0x3518…3532 at0012 = ╱32╱2╱ // 0x352a @0x12
0x3518…3532 at0013 = ╱ea╱ ; ╱ // 0x352b @0x13
0x3518…3532 at0014 = ╱45╱E╱ // 0x352c @0x14
0x3518…3532 at0015 = ╱38╱8╱ // 0x352d @0x15
0x3518…3532 at0016 = ╱f0╱ := ╱ // 0x352e @0x16
0x3518…3532 at0017 = ╱44╱D╱ // 0x352f @0x17
0x3518…3532 at0018 = ╱32╱2╱ // 0x3530 @0x18
0x3518…3532 at0019 = EOL // 0x3531 @0x19
0x3518…3532 }
0x3532…353e cb2c 03225 EXEC REGN26
0x3532…353e LineComal80 {
0x3532…353e ptr = 0xcb2c // 0x3532 @0x0
0x3532…353e lno = 0x0c99 // 0x3534 @0x2
0x3532…353e at0004 = ╱9d╱ EXEC ╱ // 0x3536 @0x4
0x3532…353e at0005 = ╱52╱R╱ // 0x3537 @0x5
0x3532…353e at0006 = ╱45╱E╱ // 0x3538 @0x6
0x3532…353e at0007 = ╱47╱G╱ // 0x3539 @0x7
0x3532…353e at0008 = ╱4e╱N╱ // 0x353a @0x8
0x3532…353e at0009 = ╱32╱2╱ // 0x353b @0x9
0x3532…353e at000a = ╱36╱6╱ // 0x353c @0xa
0x3532…353e at000b = EOL // 0x353d @0xb
0x3532…353e }
0x353e…355c cb4a 03230 LET AR := AR + D2 ; D2 := D2 + E8 ; E8 := DA2
0x353e…355c LineComal80 {
0x353e…355c ptr = 0xcb4a // 0x353e @0x0
0x353e…355c lno = 0x0c9e // 0x3540 @0x2
0x353e…355c at0004 = ╱86╱ LET ╱ // 0x3542 @0x4
0x353e…355c at0005 = ╱41╱A╱ // 0x3543 @0x5
0x353e…355c at0006 = ╱52╱R╱ // 0x3544 @0x6
0x353e…355c at0007 = ╱f0╱ := ╱ // 0x3545 @0x7
0x353e…355c at0008 = ╱41╱A╱ // 0x3546 @0x8
0x353e…355c at0009 = ╱52╱R╱ // 0x3547 @0x9
0x353e…355c at000a = ╱e5╱ + ╱ // 0x3548 @0xa
0x353e…355c at000b = ╱44╱D╱ // 0x3549 @0xb
0x353e…355c at000c = ╱32╱2╱ // 0x354a @0xc
0x353e…355c at000d = ╱ea╱ ; ╱ // 0x354b @0xd
0x353e…355c at000e = ╱44╱D╱ // 0x354c @0xe
0x353e…355c at000f = ╱32╱2╱ // 0x354d @0xf
0x353e…355c at0010 = ╱f0╱ := ╱ // 0x354e @0x10
0x353e…355c at0011 = ╱44╱D╱ // 0x354f @0x11
0x353e…355c at0012 = ╱32╱2╱ // 0x3550 @0x12
0x353e…355c at0013 = ╱e5╱ + ╱ // 0x3551 @0x13
0x353e…355c at0014 = ╱45╱E╱ // 0x3552 @0x14
0x353e…355c at0015 = ╱38╱8╱ // 0x3553 @0x15
0x353e…355c at0016 = ╱ea╱ ; ╱ // 0x3554 @0x16
0x353e…355c at0017 = ╱45╱E╱ // 0x3555 @0x17
0x353e…355c at0018 = ╱38╱8╱ // 0x3556 @0x18
0x353e…355c at0019 = ╱f0╱ := ╱ // 0x3557 @0x19
0x353e…355c at001a = ╱44╱D╱ // 0x3558 @0x1a
0x353e…355c at001b = ╱41╱A╱ // 0x3559 @0x1b
0x353e…355c at001c = ╱32╱2╱ // 0x355a @0x1c
0x353e…355c at001d = EOL // 0x355b @0x1d
0x353e…355c }
0x355c…3568 cb56 03235 EXEC REGN27
0x355c…3568 LineComal80 {
0x355c…3568 ptr = 0xcb56 // 0x355c @0x0
0x355c…3568 lno = 0x0ca3 // 0x355e @0x2
0x355c…3568 at0004 = ╱9d╱ EXEC ╱ // 0x3560 @0x4
0x355c…3568 at0005 = ╱52╱R╱ // 0x3561 @0x5
0x355c…3568 at0006 = ╱45╱E╱ // 0x3562 @0x6
0x355c…3568 at0007 = ╱47╱G╱ // 0x3563 @0x7
0x355c…3568 at0008 = ╱4e╱N╱ // 0x3564 @0x8
0x355c…3568 at0009 = ╱32╱2╱ // 0x3565 @0x9
0x355c…3568 at000a = ╱37╱7╱ // 0x3566 @0xa
0x355c…3568 at000b = EOL // 0x3567 @0xb
0x355c…3568 }
0x3568…3588 cb76 03240 LET AR := AR + DA2 ; DA2 := DA2 + E8 ; E8 := D3
0x3568…3588 LineComal80 {
0x3568…3588 ptr = 0xcb76 // 0x3568 @0x0
0x3568…3588 lno = 0x0ca8 // 0x356a @0x2
0x3568…3588 at0004 = ╱86╱ LET ╱ // 0x356c @0x4
0x3568…3588 at0005 = ╱41╱A╱ // 0x356d @0x5
0x3568…3588 at0006 = ╱52╱R╱ // 0x356e @0x6
0x3568…3588 at0007 = ╱f0╱ := ╱ // 0x356f @0x7
0x3568…3588 at0008 = ╱41╱A╱ // 0x3570 @0x8
0x3568…3588 at0009 = ╱52╱R╱ // 0x3571 @0x9
0x3568…3588 at000a = ╱e5╱ + ╱ // 0x3572 @0xa
0x3568…3588 at000b = ╱44╱D╱ // 0x3573 @0xb
0x3568…3588 at000c = ╱41╱A╱ // 0x3574 @0xc
0x3568…3588 at000d = ╱32╱2╱ // 0x3575 @0xd
0x3568…3588 at000e = ╱ea╱ ; ╱ // 0x3576 @0xe
0x3568…3588 at000f = ╱44╱D╱ // 0x3577 @0xf
0x3568…3588 at0010 = ╱41╱A╱ // 0x3578 @0x10
0x3568…3588 at0011 = ╱32╱2╱ // 0x3579 @0x11
0x3568…3588 at0012 = ╱f0╱ := ╱ // 0x357a @0x12
0x3568…3588 at0013 = ╱44╱D╱ // 0x357b @0x13
0x3568…3588 at0014 = ╱41╱A╱ // 0x357c @0x14
0x3568…3588 at0015 = ╱32╱2╱ // 0x357d @0x15
0x3568…3588 at0016 = ╱e5╱ + ╱ // 0x357e @0x16
0x3568…3588 at0017 = ╱45╱E╱ // 0x357f @0x17
0x3568…3588 at0018 = ╱38╱8╱ // 0x3580 @0x18
0x3568…3588 at0019 = ╱ea╱ ; ╱ // 0x3581 @0x19
0x3568…3588 at001a = ╱45╱E╱ // 0x3582 @0x1a
0x3568…3588 at001b = ╱38╱8╱ // 0x3583 @0x1b
0x3568…3588 at001c = ╱f0╱ := ╱ // 0x3584 @0x1c
0x3568…3588 at001d = ╱44╱D╱ // 0x3585 @0x1d
0x3568…3588 at001e = ╱33╱3╱ // 0x3586 @0x1e
0x3568…3588 at001f = EOL // 0x3587 @0x1f
0x3568…3588 }
0x3588…3594 cb82 03245 EXEC REGN28
0x3588…3594 LineComal80 {
0x3588…3594 ptr = 0xcb82 // 0x3588 @0x0
0x3588…3594 lno = 0x0cad // 0x358a @0x2
0x3588…3594 at0004 = ╱9d╱ EXEC ╱ // 0x358c @0x4
0x3588…3594 at0005 = ╱52╱R╱ // 0x358d @0x5
0x3588…3594 at0006 = ╱45╱E╱ // 0x358e @0x6
0x3588…3594 at0007 = ╱47╱G╱ // 0x358f @0x7
0x3588…3594 at0008 = ╱4e╱N╱ // 0x3590 @0x8
0x3588…3594 at0009 = ╱32╱2╱ // 0x3591 @0x9
0x3588…3594 at000a = ╱38╱8╱ // 0x3592 @0xa
0x3588…3594 at000b = EOL // 0x3593 @0xb
0x3588…3594 }
0x3594…35b1 cb9f 03250 LET AR := AR + D3 ; D3 := D3 + E8 ; E8 := D4
0x3594…35b1 LineComal80 {
0x3594…35b1 ptr = 0xcb9f // 0x3594 @0x0
0x3594…35b1 lno = 0x0cb2 // 0x3596 @0x2
0x3594…35b1 at0004 = ╱86╱ LET ╱ // 0x3598 @0x4
0x3594…35b1 at0005 = ╱41╱A╱ // 0x3599 @0x5
0x3594…35b1 at0006 = ╱52╱R╱ // 0x359a @0x6
0x3594…35b1 at0007 = ╱f0╱ := ╱ // 0x359b @0x7
0x3594…35b1 at0008 = ╱41╱A╱ // 0x359c @0x8
0x3594…35b1 at0009 = ╱52╱R╱ // 0x359d @0x9
0x3594…35b1 at000a = ╱e5╱ + ╱ // 0x359e @0xa
0x3594…35b1 at000b = ╱44╱D╱ // 0x359f @0xb
0x3594…35b1 at000c = ╱33╱3╱ // 0x35a0 @0xc
0x3594…35b1 at000d = ╱ea╱ ; ╱ // 0x35a1 @0xd
0x3594…35b1 at000e = ╱44╱D╱ // 0x35a2 @0xe
0x3594…35b1 at000f = ╱33╱3╱ // 0x35a3 @0xf
0x3594…35b1 at0010 = ╱f0╱ := ╱ // 0x35a4 @0x10
0x3594…35b1 at0011 = ╱44╱D╱ // 0x35a5 @0x11
0x3594…35b1 at0012 = ╱33╱3╱ // 0x35a6 @0x12
0x3594…35b1 at0013 = ╱e5╱ + ╱ // 0x35a7 @0x13
0x3594…35b1 at0014 = ╱45╱E╱ // 0x35a8 @0x14
0x3594…35b1 at0015 = ╱38╱8╱ // 0x35a9 @0x15
0x3594…35b1 at0016 = ╱ea╱ ; ╱ // 0x35aa @0x16
0x3594…35b1 at0017 = ╱45╱E╱ // 0x35ab @0x17
0x3594…35b1 at0018 = ╱38╱8╱ // 0x35ac @0x18
0x3594…35b1 at0019 = ╱f0╱ := ╱ // 0x35ad @0x19
0x3594…35b1 at001a = ╱44╱D╱ // 0x35ae @0x1a
0x3594…35b1 at001b = ╱34╱4╱ // 0x35af @0x1b
0x3594…35b1 at001c = EOL // 0x35b0 @0x1c
0x3594…35b1 }
0x35b1…35bd cbab 03255 EXEC REGN29
0x35b1…35bd LineComal80 {
0x35b1…35bd ptr = 0xcbab // 0x35b1 @0x0
0x35b1…35bd lno = 0x0cb7 // 0x35b3 @0x2
0x35b1…35bd at0004 = ╱9d╱ EXEC ╱ // 0x35b5 @0x4
0x35b1…35bd at0005 = ╱52╱R╱ // 0x35b6 @0x5
0x35b1…35bd at0006 = ╱45╱E╱ // 0x35b7 @0x6
0x35b1…35bd at0007 = ╱47╱G╱ // 0x35b8 @0x7
0x35b1…35bd at0008 = ╱4e╱N╱ // 0x35b9 @0x8
0x35b1…35bd at0009 = ╱32╱2╱ // 0x35ba @0x9
0x35b1…35bd at000a = ╱39╱9╱ // 0x35bb @0xa
0x35b1…35bd at000b = EOL // 0x35bc @0xb
0x35b1…35bd }
0x35bd…35d4 cbc2 03260 LET AR := AR + D4 ; D4 := D4 + E8
0x35bd…35d4 LineComal80 {
0x35bd…35d4 ptr = 0xcbc2 // 0x35bd @0x0
0x35bd…35d4 lno = 0x0cbc // 0x35bf @0x2
0x35bd…35d4 at0004 = ╱86╱ LET ╱ // 0x35c1 @0x4
0x35bd…35d4 at0005 = ╱41╱A╱ // 0x35c2 @0x5
0x35bd…35d4 at0006 = ╱52╱R╱ // 0x35c3 @0x6
0x35bd…35d4 at0007 = ╱f0╱ := ╱ // 0x35c4 @0x7
0x35bd…35d4 at0008 = ╱41╱A╱ // 0x35c5 @0x8
0x35bd…35d4 at0009 = ╱52╱R╱ // 0x35c6 @0x9
0x35bd…35d4 at000a = ╱e5╱ + ╱ // 0x35c7 @0xa
0x35bd…35d4 at000b = ╱44╱D╱ // 0x35c8 @0xb
0x35bd…35d4 at000c = ╱34╱4╱ // 0x35c9 @0xc
0x35bd…35d4 at000d = ╱ea╱ ; ╱ // 0x35ca @0xd
0x35bd…35d4 at000e = ╱44╱D╱ // 0x35cb @0xe
0x35bd…35d4 at000f = ╱34╱4╱ // 0x35cc @0xf
0x35bd…35d4 at0010 = ╱f0╱ := ╱ // 0x35cd @0x10
0x35bd…35d4 at0011 = ╱44╱D╱ // 0x35ce @0x11
0x35bd…35d4 at0012 = ╱34╱4╱ // 0x35cf @0x12
0x35bd…35d4 at0013 = ╱e5╱ + ╱ // 0x35d0 @0x13
0x35bd…35d4 at0014 = ╱45╱E╱ // 0x35d1 @0x14
0x35bd…35d4 at0015 = ╱38╱8╱ // 0x35d2 @0x15
0x35bd…35d4 at0016 = EOL // 0x35d3 @0x16
0x35bd…35d4 }
0x35d4…35e0 cbce 03265 IF 5 >< O THEN
0x35d4…35e0 LineComal80 {
0x35d4…35e0 ptr = 0xcbce // 0x35d4 @0x0
0x35d4…35e0 lno = 0x0cc1 // 0x35d6 @0x2
0x35d4…35e0 at0004 = ╱9b0044╱ IF ╱ // 0x35d8 @0x4
0x35d4…35e0 at0007 = ╱35╱5╱ // 0x35db @0x7
0x35d4…35e0 at0008 = ╱e4╱ >< ╱ // 0x35dc @0x8
0x35d4…35e0 at0009 = ╱4f╱O╱ // 0x35dd @0x9
0x35d4…35e0 at000a = ╱b5╱ THEN ╱ // 0x35de @0xa
0x35d4…35e0 at000b = EOL // 0x35df @0xb
0x35d4…35e0 }
0x35e0…35eb cbd9 03270 LET E8 := D5
0x35e0…35eb LineComal80 {
0x35e0…35eb ptr = 0xcbd9 // 0x35e0 @0x0
0x35e0…35eb lno = 0x0cc6 // 0x35e2 @0x2
0x35e0…35eb at0004 = ╱86╱ LET ╱ // 0x35e4 @0x4
0x35e0…35eb at0005 = ╱45╱E╱ // 0x35e5 @0x5
0x35e0…35eb at0006 = ╱38╱8╱ // 0x35e6 @0x6
0x35e0…35eb at0007 = ╱f0╱ := ╱ // 0x35e7 @0x7
0x35e0…35eb at0008 = ╱44╱D╱ // 0x35e8 @0x8
0x35e0…35eb at0009 = ╱35╱5╱ // 0x35e9 @0x9
0x35e0…35eb at000a = EOL // 0x35ea @0xa
0x35e0…35eb }
0x35eb…35f7 cbe5 03275 EXEC REGN30
0x35eb…35f7 LineComal80 {
0x35eb…35f7 ptr = 0xcbe5 // 0x35eb @0x0
0x35eb…35f7 lno = 0x0ccb // 0x35ed @0x2
0x35eb…35f7 at0004 = ╱9d╱ EXEC ╱ // 0x35ef @0x4
0x35eb…35f7 at0005 = ╱52╱R╱ // 0x35f0 @0x5
0x35eb…35f7 at0006 = ╱45╱E╱ // 0x35f1 @0x6
0x35eb…35f7 at0007 = ╱47╱G╱ // 0x35f2 @0x7
0x35eb…35f7 at0008 = ╱4e╱N╱ // 0x35f3 @0x8
0x35eb…35f7 at0009 = ╱33╱3╱ // 0x35f4 @0x9
0x35eb…35f7 at000a = ╱30╱0╱ // 0x35f5 @0xa
0x35eb…35f7 at000b = EOL // 0x35f6 @0xb
0x35eb…35f7 }
0x35f7…360e cbfc 03280 LET AR := AR + D5 ; D5 := D5 + E8
0x35f7…360e LineComal80 {
0x35f7…360e ptr = 0xcbfc // 0x35f7 @0x0
0x35f7…360e lno = 0x0cd0 // 0x35f9 @0x2
0x35f7…360e at0004 = ╱86╱ LET ╱ // 0x35fb @0x4
0x35f7…360e at0005 = ╱41╱A╱ // 0x35fc @0x5
0x35f7…360e at0006 = ╱52╱R╱ // 0x35fd @0x6
0x35f7…360e at0007 = ╱f0╱ := ╱ // 0x35fe @0x7
0x35f7…360e at0008 = ╱41╱A╱ // 0x35ff @0x8
0x35f7…360e at0009 = ╱52╱R╱ // 0x3600 @0x9
0x35f7…360e at000a = ╱e5╱ + ╱ // 0x3601 @0xa
0x35f7…360e at000b = ╱44╱D╱ // 0x3602 @0xb
0x35f7…360e at000c = ╱35╱5╱ // 0x3603 @0xc
0x35f7…360e at000d = ╱ea╱ ; ╱ // 0x3604 @0xd
0x35f7…360e at000e = ╱44╱D╱ // 0x3605 @0xe
0x35f7…360e at000f = ╱35╱5╱ // 0x3606 @0xf
0x35f7…360e at0010 = ╱f0╱ := ╱ // 0x3607 @0x10
0x35f7…360e at0011 = ╱44╱D╱ // 0x3608 @0x11
0x35f7…360e at0012 = ╱35╱5╱ // 0x3609 @0x12
0x35f7…360e at0013 = ╱e5╱ + ╱ // 0x360a @0x13
0x35f7…360e at0014 = ╱45╱E╱ // 0x360b @0x14
0x35f7…360e at0015 = ╱38╱8╱ // 0x360c @0x15
0x35f7…360e at0016 = EOL // 0x360d @0x16
0x35f7…360e }
0x360e…3614 cc02 03285 ENDIF
0x360e…3614 LineComal80 {
0x360e…3614 ptr = 0xcc02 // 0x360e @0x0
0x360e…3614 lno = 0x0cd5 // 0x3610 @0x2
0x360e…3614 at0004 = ╱9c╱ ENDIF ╱ // 0x3612 @0x4
0x360e…3614 at0005 = EOL // 0x3613 @0x5
0x360e…3614 }
0x3614…361e cc0c 03290 LET E8 := O
0x3614…361e LineComal80 {
0x3614…361e ptr = 0xcc0c // 0x3614 @0x0
0x3614…361e lno = 0x0cda // 0x3616 @0x2
0x3614…361e at0004 = ╱86╱ LET ╱ // 0x3618 @0x4
0x3614…361e at0005 = ╱45╱E╱ // 0x3619 @0x5
0x3614…361e at0006 = ╱38╱8╱ // 0x361a @0x6
0x3614…361e at0007 = ╱f0╱ := ╱ // 0x361b @0x7
0x3614…361e at0008 = ╱4f╱O╱ // 0x361c @0x8
0x3614…361e at0009 = EOL // 0x361d @0x9
0x3614…361e }
0x361e…362a cc18 03295 EXEC REGN31
0x361e…362a LineComal80 {
0x361e…362a ptr = 0xcc18 // 0x361e @0x0
0x361e…362a lno = 0x0cdf // 0x3620 @0x2
0x361e…362a at0004 = ╱9d╱ EXEC ╱ // 0x3622 @0x4
0x361e…362a at0005 = ╱52╱R╱ // 0x3623 @0x5
0x361e…362a at0006 = ╱45╱E╱ // 0x3624 @0x6
0x361e…362a at0007 = ╱47╱G╱ // 0x3625 @0x7
0x361e…362a at0008 = ╱4e╱N╱ // 0x3626 @0x8
0x361e…362a at0009 = ╱33╱3╱ // 0x3627 @0x9
0x361e…362a at000a = ╱31╱1╱ // 0x3628 @0xa
0x361e…362a at000b = EOL // 0x3629 @0xb
0x361e…362a }
0x362a…3636 cc24 03300 EXEC REGN42
0x362a…3636 LineComal80 {
0x362a…3636 ptr = 0xcc24 // 0x362a @0x0
0x362a…3636 lno = 0x0ce4 // 0x362c @0x2
0x362a…3636 at0004 = ╱9d╱ EXEC ╱ // 0x362e @0x4
0x362a…3636 at0005 = ╱52╱R╱ // 0x362f @0x5
0x362a…3636 at0006 = ╱45╱E╱ // 0x3630 @0x6
0x362a…3636 at0007 = ╱47╱G╱ // 0x3631 @0x7
0x362a…3636 at0008 = ╱4e╱N╱ // 0x3632 @0x8
0x362a…3636 at0009 = ╱34╱4╱ // 0x3633 @0x9
0x362a…3636 at000a = ╱32╱2╱ // 0x3634 @0xa
0x362a…3636 at000b = EOL // 0x3635 @0xb
0x362a…3636 }
0x3636…3642 cc30 03305 EXEC REGN32
0x3636…3642 LineComal80 {
0x3636…3642 ptr = 0xcc30 // 0x3636 @0x0
0x3636…3642 lno = 0x0ce9 // 0x3638 @0x2
0x3636…3642 at0004 = ╱9d╱ EXEC ╱ // 0x363a @0x4
0x3636…3642 at0005 = ╱52╱R╱ // 0x363b @0x5
0x3636…3642 at0006 = ╱45╱E╱ // 0x363c @0x6
0x3636…3642 at0007 = ╱47╱G╱ // 0x363d @0x7
0x3636…3642 at0008 = ╱4e╱N╱ // 0x363e @0x8
0x3636…3642 at0009 = ╱33╱3╱ // 0x363f @0x9
0x3636…3642 at000a = ╱32╱2╱ // 0x3640 @0xa
0x3636…3642 at000b = EOL // 0x3641 @0xb
0x3636…3642 }
0x3642…364e cc3c 03310 EXEC REGN33
0x3642…364e LineComal80 {
0x3642…364e ptr = 0xcc3c // 0x3642 @0x0
0x3642…364e lno = 0x0cee // 0x3644 @0x2
0x3642…364e at0004 = ╱9d╱ EXEC ╱ // 0x3646 @0x4
0x3642…364e at0005 = ╱52╱R╱ // 0x3647 @0x5
0x3642…364e at0006 = ╱45╱E╱ // 0x3648 @0x6
0x3642…364e at0007 = ╱47╱G╱ // 0x3649 @0x7
0x3642…364e at0008 = ╱4e╱N╱ // 0x364a @0x8
0x3642…364e at0009 = ╱33╱3╱ // 0x364b @0x9
0x3642…364e at000a = ╱33╱3╱ // 0x364c @0xa
0x3642…364e at000b = EOL // 0x364d @0xb
0x3642…364e }
0x364e…3660 cc4e 03315 LET GEMAFR := D2AFR
0x364e…3660 LineComal80 {
0x364e…3660 ptr = 0xcc4e // 0x364e @0x0
0x364e…3660 lno = 0x0cf3 // 0x3650 @0x2
0x364e…3660 at0004 = ╱86╱ LET ╱ // 0x3652 @0x4
0x364e…3660 at0005 = ╱47╱G╱ // 0x3653 @0x5
0x364e…3660 at0006 = ╱45╱E╱ // 0x3654 @0x6
0x364e…3660 at0007 = ╱4d╱M╱ // 0x3655 @0x7
0x364e…3660 at0008 = ╱41╱A╱ // 0x3656 @0x8
0x364e…3660 at0009 = ╱46╱F╱ // 0x3657 @0x9
0x364e…3660 at000a = ╱52╱R╱ // 0x3658 @0xa
0x364e…3660 at000b = ╱f0╱ := ╱ // 0x3659 @0xb
0x364e…3660 at000c = ╱44╱D╱ // 0x365a @0xc
0x364e…3660 at000d = ╱32╱2╱ // 0x365b @0xd
0x364e…3660 at000e = ╱41╱A╱ // 0x365c @0xe
0x364e…3660 at000f = ╱46╱F╱ // 0x365d @0xf
0x364e…3660 at0010 = ╱52╱R╱ // 0x365e @0x10
0x364e…3660 at0011 = EOL // 0x365f @0x11
0x364e…3660 }
0x3660…366c cc5a 03320 EXEC REGN34
0x3660…366c LineComal80 {
0x3660…366c ptr = 0xcc5a // 0x3660 @0x0
0x3660…366c lno = 0x0cf8 // 0x3662 @0x2
0x3660…366c at0004 = ╱9d╱ EXEC ╱ // 0x3664 @0x4
0x3660…366c at0005 = ╱52╱R╱ // 0x3665 @0x5
0x3660…366c at0006 = ╱45╱E╱ // 0x3666 @0x6
0x3660…366c at0007 = ╱47╱G╱ // 0x3667 @0x7
0x3660…366c at0008 = ╱4e╱N╱ // 0x3668 @0x8
0x3660…366c at0009 = ╱33╱3╱ // 0x3669 @0x9
0x3660…366c at000a = ╱34╱4╱ // 0x366a @0xa
0x3660…366c at000b = EOL // 0x366b @0xb
0x3660…366c }
0x366c…3685 cc73 03325 LET GEMAFR := GEMAFR + D2AFR
0x366c…3685 LineComal80 {
0x366c…3685 ptr = 0xcc73 // 0x366c @0x0
0x366c…3685 lno = 0x0cfd // 0x366e @0x2
0x366c…3685 at0004 = ╱86╱ LET ╱ // 0x3670 @0x4
0x366c…3685 at0005 = ╱47╱G╱ // 0x3671 @0x5
0x366c…3685 at0006 = ╱45╱E╱ // 0x3672 @0x6
0x366c…3685 at0007 = ╱4d╱M╱ // 0x3673 @0x7
0x366c…3685 at0008 = ╱41╱A╱ // 0x3674 @0x8
0x366c…3685 at0009 = ╱46╱F╱ // 0x3675 @0x9
0x366c…3685 at000a = ╱52╱R╱ // 0x3676 @0xa
0x366c…3685 at000b = ╱f0╱ := ╱ // 0x3677 @0xb
0x366c…3685 at000c = ╱47╱G╱ // 0x3678 @0xc
0x366c…3685 at000d = ╱45╱E╱ // 0x3679 @0xd
0x366c…3685 at000e = ╱4d╱M╱ // 0x367a @0xe
0x366c…3685 at000f = ╱41╱A╱ // 0x367b @0xf
0x366c…3685 at0010 = ╱46╱F╱ // 0x367c @0x10
0x366c…3685 at0011 = ╱52╱R╱ // 0x367d @0x11
0x366c…3685 at0012 = ╱e5╱ + ╱ // 0x367e @0x12
0x366c…3685 at0013 = ╱44╱D╱ // 0x367f @0x13
0x366c…3685 at0014 = ╱32╱2╱ // 0x3680 @0x14
0x366c…3685 at0015 = ╱41╱A╱ // 0x3681 @0x15
0x366c…3685 at0016 = ╱46╱F╱ // 0x3682 @0x16
0x366c…3685 at0017 = ╱52╱R╱ // 0x3683 @0x17
0x366c…3685 at0018 = EOL // 0x3684 @0x18
0x366c…3685 }
0x3685…3691 cc7f 03330 EXEC REGN40
0x3685…3691 LineComal80 {
0x3685…3691 ptr = 0xcc7f // 0x3685 @0x0
0x3685…3691 lno = 0x0d02 // 0x3687 @0x2
0x3685…3691 at0004 = ╱9d╱ EXEC ╱ // 0x3689 @0x4
0x3685…3691 at0005 = ╱52╱R╱ // 0x368a @0x5
0x3685…3691 at0006 = ╱45╱E╱ // 0x368b @0x6
0x3685…3691 at0007 = ╱47╱G╱ // 0x368c @0x7
0x3685…3691 at0008 = ╱4e╱N╱ // 0x368d @0x8
0x3685…3691 at0009 = ╱34╱4╱ // 0x368e @0x9
0x3685…3691 at000a = ╱30╱0╱ // 0x368f @0xa
0x3685…3691 at000b = EOL // 0x3690 @0xb
0x3685…3691 }
0x3691…369d cc8b 03335 EXEC REGN35
0x3691…369d LineComal80 {
0x3691…369d ptr = 0xcc8b // 0x3691 @0x0
0x3691…369d lno = 0x0d07 // 0x3693 @0x2
0x3691…369d at0004 = ╱9d╱ EXEC ╱ // 0x3695 @0x4
0x3691…369d at0005 = ╱52╱R╱ // 0x3696 @0x5
0x3691…369d at0006 = ╱45╱E╱ // 0x3697 @0x6
0x3691…369d at0007 = ╱47╱G╱ // 0x3698 @0x7
0x3691…369d at0008 = ╱4e╱N╱ // 0x3699 @0x8
0x3691…369d at0009 = ╱33╱3╱ // 0x369a @0x9
0x3691…369d at000a = ╱35╱5╱ // 0x369b @0xa
0x3691…369d at000b = EOL // 0x369c @0xb
0x3691…369d }
0x369d…36a9 cc97 03340 EXEC REGN36
0x369d…36a9 LineComal80 {
0x369d…36a9 ptr = 0xcc97 // 0x369d @0x0
0x369d…36a9 lno = 0x0d0c // 0x369f @0x2
0x369d…36a9 at0004 = ╱9d╱ EXEC ╱ // 0x36a1 @0x4
0x369d…36a9 at0005 = ╱52╱R╱ // 0x36a2 @0x5
0x369d…36a9 at0006 = ╱45╱E╱ // 0x36a3 @0x6
0x369d…36a9 at0007 = ╱47╱G╱ // 0x36a4 @0x7
0x369d…36a9 at0008 = ╱4e╱N╱ // 0x36a5 @0x8
0x369d…36a9 at0009 = ╱33╱3╱ // 0x36a6 @0x9
0x369d…36a9 at000a = ╱36╱6╱ // 0x36a7 @0xa
0x369d…36a9 at000b = EOL // 0x36a8 @0xb
0x369d…36a9 }
0x36a9…36b5 cca3 03345 IF 5 > O THEN
0x36a9…36b5 LineComal80 {
0x36a9…36b5 ptr = 0xcca3 // 0x36a9 @0x0
0x36a9…36b5 lno = 0x0d11 // 0x36ab @0x2
0x36a9…36b5 at0004 = ╱9b0044╱ IF ╱ // 0x36ad @0x4
0x36a9…36b5 at0007 = ╱35╱5╱ // 0x36b0 @0x7
0x36a9…36b5 at0008 = ╱e1╱ > ╱ // 0x36b1 @0x8
0x36a9…36b5 at0009 = ╱4f╱O╱ // 0x36b2 @0x9
0x36a9…36b5 at000a = ╱b5╱ THEN ╱ // 0x36b3 @0xa
0x36a9…36b5 at000b = EOL // 0x36b4 @0xb
0x36a9…36b5 }
0x36b5…36c1 ccaf 03350 EXEC REGN37
0x36b5…36c1 LineComal80 {
0x36b5…36c1 ptr = 0xccaf // 0x36b5 @0x0
0x36b5…36c1 lno = 0x0d16 // 0x36b7 @0x2
0x36b5…36c1 at0004 = ╱9d╱ EXEC ╱ // 0x36b9 @0x4
0x36b5…36c1 at0005 = ╱52╱R╱ // 0x36ba @0x5
0x36b5…36c1 at0006 = ╱45╱E╱ // 0x36bb @0x6
0x36b5…36c1 at0007 = ╱47╱G╱ // 0x36bc @0x7
0x36b5…36c1 at0008 = ╱4e╱N╱ // 0x36bd @0x8
0x36b5…36c1 at0009 = ╱33╱3╱ // 0x36be @0x9
0x36b5…36c1 at000a = ╱37╱7╱ // 0x36bf @0xa
0x36b5…36c1 at000b = EOL // 0x36c0 @0xb
0x36b5…36c1 }
0x36c1…36c8 ccb6 03355 ELSE
0x36c1…36c8 LineComal80 {
0x36c1…36c8 ptr = 0xccb6 // 0x36c1 @0x0
0x36c1…36c8 lno = 0x0d1b // 0x36c3 @0x2
0x36c1…36c8 at0004 = ╱9a00╱ ELSE ╱ // 0x36c5 @0x4
0x36c1…36c8 at0006 = EOL // 0x36c7 @0x6
0x36c1…36c8 }
0x36c8…36ea ccd8 03360 IF C8 > C7 THEN LET D5 := D5 - ( ( C8 - C7 ) * P9 / W )
0x36c8…36ea LineComal80 {
0x36c8…36ea ptr = 0xccd8 // 0x36c8 @0x0
0x36c8…36ea lno = 0x0d20 // 0x36ca @0x2
0x36c8…36ea at0004 = ╱8200╱ IF ╱ // 0x36cc @0x4
0x36c8…36ea at0006 = ╱43╱C╱ // 0x36ce @0x6
0x36c8…36ea at0007 = ╱38╱8╱ // 0x36cf @0x7
0x36c8…36ea at0008 = ╱e1╱ > ╱ // 0x36d0 @0x8
0x36c8…36ea at0009 = ╱43╱C╱ // 0x36d1 @0x9
0x36c8…36ea at000a = ╱37╱7╱ // 0x36d2 @0xa
0x36c8…36ea at000b = ╱b5╱ THEN ╱ // 0x36d3 @0xb
0x36c8…36ea at000c = ╱86╱ LET ╱ // 0x36d4 @0xc
0x36c8…36ea at000d = ╱44╱D╱ // 0x36d5 @0xd
0x36c8…36ea at000e = ╱35╱5╱ // 0x36d6 @0xe
0x36c8…36ea at000f = ╱f0╱ := ╱ // 0x36d7 @0xf
0x36c8…36ea at0010 = ╱44╱D╱ // 0x36d8 @0x10
0x36c8…36ea at0011 = ╱35╱5╱ // 0x36d9 @0x11
0x36c8…36ea at0012 = ╱e6╱ - ╱ // 0x36da @0x12
0x36c8…36ea at0013 = ╱ed╱ ( ╱ // 0x36db @0x13
0x36c8…36ea at0014 = ╱ed╱ ( ╱ // 0x36dc @0x14
0x36c8…36ea at0015 = ╱43╱C╱ // 0x36dd @0x15
0x36c8…36ea at0016 = ╱38╱8╱ // 0x36de @0x16
0x36c8…36ea at0017 = ╱e6╱ - ╱ // 0x36df @0x17
0x36c8…36ea at0018 = ╱43╱C╱ // 0x36e0 @0x18
0x36c8…36ea at0019 = ╱37╱7╱ // 0x36e1 @0x19
0x36c8…36ea at001a = ╱ee╱ ) ╱ // 0x36e2 @0x1a
0x36c8…36ea at001b = ╱e7╱ * ╱ // 0x36e3 @0x1b
0x36c8…36ea at001c = ╱50╱P╱ // 0x36e4 @0x1c
0x36c8…36ea at001d = ╱39╱9╱ // 0x36e5 @0x1d
0x36c8…36ea at001e = ╱e8╱ / ╱ // 0x36e6 @0x1e
0x36c8…36ea at001f = ╱57╱W╱ // 0x36e7 @0x1f
0x36c8…36ea at0020 = ╱ee╱ ) ╱ // 0x36e8 @0x20
0x36c8…36ea at0021 = EOL // 0x36e9 @0x21
0x36c8…36ea }
0x36ea…36f0 ccde 03365 ENDIF
0x36ea…36f0 LineComal80 {
0x36ea…36f0 ptr = 0xccde // 0x36ea @0x0
0x36ea…36f0 lno = 0x0d25 // 0x36ec @0x2
0x36ea…36f0 at0004 = ╱9c╱ ENDIF ╱ // 0x36ee @0x4
0x36ea…36f0 at0005 = EOL // 0x36ef @0x5
0x36ea…36f0 }
0x36f0…36fc ccea 03370 EXEC REGN38
0x36f0…36fc LineComal80 {
0x36f0…36fc ptr = 0xccea // 0x36f0 @0x0
0x36f0…36fc lno = 0x0d2a // 0x36f2 @0x2
0x36f0…36fc at0004 = ╱9d╱ EXEC ╱ // 0x36f4 @0x4
0x36f0…36fc at0005 = ╱52╱R╱ // 0x36f5 @0x5
0x36f0…36fc at0006 = ╱45╱E╱ // 0x36f6 @0x6
0x36f0…36fc at0007 = ╱47╱G╱ // 0x36f7 @0x7
0x36f0…36fc at0008 = ╱4e╱N╱ // 0x36f8 @0x8
0x36f0…36fc at0009 = ╱33╱3╱ // 0x36f9 @0x9
0x36f0…36fc at000a = ╱38╱8╱ // 0x36fa @0xa
0x36f0…36fc at000b = EOL // 0x36fb @0xb
0x36f0…36fc }
0x36fc…370b ccf9 03375 IF 0 = 1 THEN
0x36fc…370b LineComal80 {
0x36fc…370b ptr = 0xccf9 // 0x36fc @0x0
0x36fc…370b lno = 0x0d2f // 0x36fe @0x2
0x36fc…370b at0004 = ╱9b0054╱ IF ╱ // 0x3700 @0x4
0x36fc…370b at0007 = ╱30╱0╱ // 0x3703 @0x7
0x36fc…370b at0008 = ╱df╱ = ╱ // 0x3704 @0x8
0x36fc…370b at0009 = ╱31╱1╱ // 0x3705 @0x9
0x36fc…370b at000a = ╱f20100╱ // 0x3706 @0xa
0x36fc…370b at000d = ╱b5╱ THEN ╱ // 0x3709 @0xd
0x36fc…370b at000e = EOL // 0x370a @0xe
0x36fc…370b }
0x370b…3717 (183,) cd05 03380 EXEC REGN21
0x370b…3717 LineComal80 {
0x370b…3717 ptr = 0xcd05 // 0x370b @0x0
0x370b…3717 lno = 0x0d34 // 0x370d @0x2
0x370b…3717 at0004 = ╱9d╱ EXEC ╱ // 0x370f @0x4
0x370b…3717 at0005 = ╱52╱R╱ // 0x3710 @0x5
0x370b…3717 at0006 = ╱45╱E╱ // 0x3711 @0x6
0x370b…3717 at0007 = ╱47╱G╱ // 0x3712 @0x7
0x370b…3717 at0008 = ╱4e╱N╱ // 0x3713 @0x8
0x370b…3717 at0009 = ╱32╱2╱ // 0x3714 @0x9
0x370b…3717 at000a = ╱31╱1╱ // 0x3715 @0xa
0x370b…3717 at000b = EOL // 0x3716 @0xb
0x370b…3717 }
0x3717…3728 cd16 03385 LET C0 := D0 ; D9 := D6
0x3717…3728 LineComal80 {
0x3717…3728 ptr = 0xcd16 // 0x3717 @0x0
0x3717…3728 lno = 0x0d39 // 0x3719 @0x2
0x3717…3728 at0004 = ╱86╱ LET ╱ // 0x371b @0x4
0x3717…3728 at0005 = ╱43╱C╱ // 0x371c @0x5
0x3717…3728 at0006 = ╱30╱0╱ // 0x371d @0x6
0x3717…3728 at0007 = ╱f0╱ := ╱ // 0x371e @0x7
0x3717…3728 at0008 = ╱44╱D╱ // 0x371f @0x8
0x3717…3728 at0009 = ╱30╱0╱ // 0x3720 @0x9
0x3717…3728 at000a = ╱ea╱ ; ╱ // 0x3721 @0xa
0x3717…3728 at000b = ╱44╱D╱ // 0x3722 @0xb
0x3717…3728 at000c = ╱39╱9╱ // 0x3723 @0xc
0x3717…3728 at000d = ╱f0╱ := ╱ // 0x3724 @0xd
0x3717…3728 at000e = ╱44╱D╱ // 0x3725 @0xe
0x3717…3728 at000f = ╱36╱6╱ // 0x3726 @0xf
0x3717…3728 at0010 = EOL // 0x3727 @0x10
0x3717…3728 }
0x3728…372f cd1d 03390 ELSE
0x3728…372f LineComal80 {
0x3728…372f ptr = 0xcd1d // 0x3728 @0x0
0x3728…372f lno = 0x0d3e // 0x372a @0x2
0x3728…372f at0004 = ╱9a00╱ ELSE ╱ // 0x372c @0x4
0x3728…372f at0006 = EOL // 0x372e @0x6
0x3728…372f }
0x372f…373b cd29 03395 EXEC REGN20
0x372f…373b LineComal80 {
0x372f…373b ptr = 0xcd29 // 0x372f @0x0
0x372f…373b lno = 0x0d43 // 0x3731 @0x2
0x372f…373b at0004 = ╱9d╱ EXEC ╱ // 0x3733 @0x4
0x372f…373b at0005 = ╱52╱R╱ // 0x3734 @0x5
0x372f…373b at0006 = ╱45╱E╱ // 0x3735 @0x6
0x372f…373b at0007 = ╱47╱G╱ // 0x3736 @0x7
0x372f…373b at0008 = ╱4e╱N╱ // 0x3737 @0x8
0x372f…373b at0009 = ╱32╱2╱ // 0x3738 @0x9
0x372f…373b at000a = ╱30╱0╱ // 0x3739 @0xa
0x372f…373b at000b = EOL // 0x373a @0xb
0x372f…373b }
0x373b…374c cd3a 03400 LET C9 := D0 ; D7 := D6
0x373b…374c LineComal80 {
0x373b…374c ptr = 0xcd3a // 0x373b @0x0
0x373b…374c lno = 0x0d48 // 0x373d @0x2
0x373b…374c at0004 = ╱86╱ LET ╱ // 0x373f @0x4
0x373b…374c at0005 = ╱43╱C╱ // 0x3740 @0x5
0x373b…374c at0006 = ╱39╱9╱ // 0x3741 @0x6
0x373b…374c at0007 = ╱f0╱ := ╱ // 0x3742 @0x7
0x373b…374c at0008 = ╱44╱D╱ // 0x3743 @0x8
0x373b…374c at0009 = ╱30╱0╱ // 0x3744 @0x9
0x373b…374c at000a = ╱ea╱ ; ╱ // 0x3745 @0xa
0x373b…374c at000b = ╱44╱D╱ // 0x3746 @0xb
0x373b…374c at000c = ╱37╱7╱ // 0x3747 @0xc
0x373b…374c at000d = ╱f0╱ := ╱ // 0x3748 @0xd
0x373b…374c at000e = ╱44╱D╱ // 0x3749 @0xe
0x373b…374c at000f = ╱36╱6╱ // 0x374a @0xf
0x373b…374c at0010 = EOL // 0x374b @0x10
0x373b…374c }
0x374c…3752 cd40 03405 ENDIF
0x374c…3752 LineComal80 {
0x374c…3752 ptr = 0xcd40 // 0x374c @0x0
0x374c…3752 lno = 0x0d4d // 0x374e @0x2
0x374c…3752 at0004 = ╱9c╱ ENDIF ╱ // 0x3750 @0x4
0x374c…3752 at0005 = EOL // 0x3751 @0x5
0x374c…3752 }
0x3752…375d cd4b 03410 ENDPROC REGN6
0x3752…375d LineComal80 {
0x3752…375d ptr = 0xcd4b // 0x3752 @0x0
0x3752…375d lno = 0x0d52 // 0x3754 @0x2
0x3752…375d at0004 = ╱9f╱ ENDPROC ╱ // 0x3756 @0x4
0x3752…375d at0005 = ╱52╱R╱ // 0x3757 @0x5
0x3752…375d at0006 = ╱45╱E╱ // 0x3758 @0x6
0x3752…375d at0007 = ╱47╱G╱ // 0x3759 @0x7
0x3752…375d at0008 = ╱4e╱N╱ // 0x375a @0x8
0x3752…375d at0009 = ╱36╱6╱ // 0x375b @0x9
0x3752…375d at000a = EOL // 0x375c @0xa
0x3752…375d }
0x375d…3769 cd57 03415 PROC KIRKE
0x375d…3769 LineComal80 {
0x375d…3769 ptr = 0xcd57 // 0x375d @0x0
0x375d…3769 lno = 0x0d57 // 0x375f @0x2
0x375d…3769 at0004 = ╱9e00╱ PROC ╱ // 0x3761 @0x4
0x375d…3769 at0006 = ╱4b╱K╱ // 0x3763 @0x6
0x375d…3769 at0007 = ╱49╱I╱ // 0x3764 @0x7
0x375d…3769 at0008 = ╱52╱R╱ // 0x3765 @0x8
0x375d…3769 at0009 = ╱4b╱K╱ // 0x3766 @0x9
0x375d…3769 at000a = ╱45╱E╱ // 0x3767 @0xa
0x375d…3769 at000b = EOL // 0x3768 @0xb
0x375d…3769 }
0x3769…3777 cd65 03420 IF >< 1 THEN
0x3769…3777 LineComal80 {
0x3769…3777 ptr = 0xcd65 // 0x3769 @0x0
0x3769…3777 lno = 0x0d5c // 0x376b @0x2
0x3769…3777 at0004 = ╱9b0047╱ IF ╱ // 0x376d @0x4
0x3769…3777 at0007 = ╱e4╱ >< ╱ // 0x3770 @0x7
0x3769…3777 at0008 = ╱31╱1╱ // 0x3771 @0x8
0x3769…3777 at0009 = ╱f20100╱ // 0x3772 @0x9
0x3769…3777 at000c = ╱b5╱ THEN ╱ // 0x3775 @0xc
0x3769…3777 at000d = EOL // 0x3776 @0xd
0x3769…3777 }
0x3777…37a6 cd94 03425 PRINT "Er…hovedpersonen…medlem…af…folkekirken" ;
0x3777…37a6 LineComal80 {
0x3777…37a6 ptr = 0xcd94 // 0x3777 @0x0
0x3777…37a6 lno = 0x0d61 // 0x3779 @0x2
0x3777…37a6 at0004 = ╱92╱ PRINT ╱ // 0x377b @0x4
0x3777…37a6 at0005 = ╱22╱"╱ // 0x377c @0x5
0x3777…37a6 at0006 = ╱45╱E╱ // 0x377d @0x6
0x3777…37a6 at0007 = ╱72╱r╱ // 0x377e @0x7
0x3777…37a6 at0008 = ╱20╱…╱ // 0x377f @0x8
0x3777…37a6 at0009 = ╱68╱h╱ // 0x3780 @0x9
0x3777…37a6 at000a = ╱6f╱o╱ // 0x3781 @0xa
0x3777…37a6 at000b = ╱76╱v╱ // 0x3782 @0xb
0x3777…37a6 at000c = ╱65╱e╱ // 0x3783 @0xc
0x3777…37a6 at000d = ╱64╱d╱ // 0x3784 @0xd
0x3777…37a6 at000e = ╱70╱p╱ // 0x3785 @0xe
0x3777…37a6 at000f = ╱65╱e╱ // 0x3786 @0xf
0x3777…37a6 at0010 = ╱72╱r╱ // 0x3787 @0x10
0x3777…37a6 at0011 = ╱73╱s╱ // 0x3788 @0x11
0x3777…37a6 at0012 = ╱6f╱o╱ // 0x3789 @0x12
0x3777…37a6 at0013 = ╱6e╱n╱ // 0x378a @0x13
0x3777…37a6 at0014 = ╱65╱e╱ // 0x378b @0x14
0x3777…37a6 at0015 = ╱6e╱n╱ // 0x378c @0x15
0x3777…37a6 at0016 = ╱20╱…╱ // 0x378d @0x16
0x3777…37a6 at0017 = ╱6d╱m╱ // 0x378e @0x17
0x3777…37a6 at0018 = ╱65╱e╱ // 0x378f @0x18
0x3777…37a6 at0019 = ╱64╱d╱ // 0x3790 @0x19
0x3777…37a6 at001a = ╱6c╱l╱ // 0x3791 @0x1a
0x3777…37a6 at001b = ╱65╱e╱ // 0x3792 @0x1b
0x3777…37a6 at001c = ╱6d╱m╱ // 0x3793 @0x1c
0x3777…37a6 at001d = ╱20╱…╱ // 0x3794 @0x1d
0x3777…37a6 at001e = ╱61╱a╱ // 0x3795 @0x1e
0x3777…37a6 at001f = ╱66╱f╱ // 0x3796 @0x1f
0x3777…37a6 at0020 = ╱20╱…╱ // 0x3797 @0x20
0x3777…37a6 at0021 = ╱66╱f╱ // 0x3798 @0x21
0x3777…37a6 at0022 = ╱6f╱o╱ // 0x3799 @0x22
0x3777…37a6 at0023 = ╱6c╱l╱ // 0x379a @0x23
0x3777…37a6 at0024 = ╱6b╱k╱ // 0x379b @0x24
0x3777…37a6 at0025 = ╱65╱e╱ // 0x379c @0x25
0x3777…37a6 at0026 = ╱6b╱k╱ // 0x379d @0x26
0x3777…37a6 at0027 = ╱69╱i╱ // 0x379e @0x27
0x3777…37a6 at0028 = ╱72╱r╱ // 0x379f @0x28
0x3777…37a6 at0029 = ╱6b╱k╱ // 0x37a0 @0x29
0x3777…37a6 at002a = ╱65╱e╱ // 0x37a1 @0x2a
0x3777…37a6 at002b = ╱6e╱n╱ // 0x37a2 @0x2b
0x3777…37a6 at002c = ╱22╱"╱ // 0x37a3 @0x2c
0x3777…37a6 at002d = ╱ea╱ ; ╱ // 0x37a4 @0x2d
0x3777…37a6 at002e = EOL // 0x37a5 @0x2e
0x3777…37a6 }
0x37a6…37b0 cd9e 03430 EXEC SVAR
0x37a6…37b0 LineComal80 {
0x37a6…37b0 ptr = 0xcd9e // 0x37a6 @0x0
0x37a6…37b0 lno = 0x0d66 // 0x37a8 @0x2
0x37a6…37b0 at0004 = ╱9d╱ EXEC ╱ // 0x37aa @0x4
0x37a6…37b0 at0005 = ╱53╱S╱ // 0x37ab @0x5
0x37a6…37b0 at0006 = ╱56╱V╱ // 0x37ac @0x6
0x37a6…37b0 at0007 = ╱41╱A╱ // 0x37ad @0x7
0x37a6…37b0 at0008 = ╱52╱R╱ // 0x37ae @0x8
0x37a6…37b0 at0009 = EOL // 0x37af @0x9
0x37a6…37b0 }
0x37b0…37bb cda9 03435 LET TKH := O
0x37b0…37bb LineComal80 {
0x37b0…37bb ptr = 0xcda9 // 0x37b0 @0x0
0x37b0…37bb lno = 0x0d6b // 0x37b2 @0x2
0x37b0…37bb at0004 = ╱86╱ LET ╱ // 0x37b4 @0x4
0x37b0…37bb at0005 = ╱54╱T╱ // 0x37b5 @0x5
0x37b0…37bb at0006 = ╱4b╱K╱ // 0x37b6 @0x6
0x37b0…37bb at0007 = ╱48╱H╱ // 0x37b7 @0x7
0x37b0…37bb at0008 = ╱f0╱ := ╱ // 0x37b8 @0x8
0x37b0…37bb at0009 = ╱4f╱O╱ // 0x37b9 @0x9
0x37b0…37bb at000a = EOL // 0x37ba @0xa
0x37b0…37bb }
0x37bb…37d2 cdc0 03440 IF S $ = "j" THEN LET TKH := 1
0x37bb…37d2 LineComal80 {
0x37bb…37d2 ptr = 0xcdc0 // 0x37bb @0x0
0x37bb…37d2 lno = 0x0d70 // 0x37bd @0x2
0x37bb…37d2 at0004 = ╱8200╱ IF ╱ // 0x37bf @0x4
0x37bb…37d2 at0006 = ╱53╱S╱ // 0x37c1 @0x6
0x37bb…37d2 at0007 = ╱ef╱ $ ╱ // 0x37c2 @0x7
0x37bb…37d2 at0008 = ╱df╱ = ╱ // 0x37c3 @0x8
0x37bb…37d2 at0009 = ╱22╱"╱ // 0x37c4 @0x9
0x37bb…37d2 at000a = ╱6a╱j╱ // 0x37c5 @0xa
0x37bb…37d2 at000b = ╱22╱"╱ // 0x37c6 @0xb
0x37bb…37d2 at000c = ╱b5╱ THEN ╱ // 0x37c7 @0xc
0x37bb…37d2 at000d = ╱86╱ LET ╱ // 0x37c8 @0xd
0x37bb…37d2 at000e = ╱54╱T╱ // 0x37c9 @0xe
0x37bb…37d2 at000f = ╱4b╱K╱ // 0x37ca @0xf
0x37bb…37d2 at0010 = ╱48╱H╱ // 0x37cb @0x10
0x37bb…37d2 at0011 = ╱f0╱ := ╱ // 0x37cc @0x11
0x37bb…37d2 at0012 = ╱31╱1╱ // 0x37cd @0x12
0x37bb…37d2 at0013 = ╱f20100╱ // 0x37ce @0x13
0x37bb…37d2 at0016 = EOL // 0x37d1 @0x16
0x37bb…37d2 }
0x37d2…37d8 cdc6 03445 ENDIF
0x37d2…37d8 LineComal80 {
0x37d2…37d8 ptr = 0xcdc6 // 0x37d2 @0x0
0x37d2…37d8 lno = 0x0d75 // 0x37d4 @0x2
0x37d2…37d8 at0004 = ╱9c╱ ENDIF ╱ // 0x37d6 @0x4
0x37d2…37d8 at0005 = EOL // 0x37d7 @0x5
0x37d2…37d8 }
0x37d8…37e3 cdd1 03450 ENDPROC KIRKE
0x37d8…37e3 LineComal80 {
0x37d8…37e3 ptr = 0xcdd1 // 0x37d8 @0x0
0x37d8…37e3 lno = 0x0d7a // 0x37da @0x2
0x37d8…37e3 at0004 = ╱9f╱ ENDPROC ╱ // 0x37dc @0x4
0x37d8…37e3 at0005 = ╱4b╱K╱ // 0x37dd @0x5
0x37d8…37e3 at0006 = ╱49╱I╱ // 0x37de @0x6
0x37d8…37e3 at0007 = ╱52╱R╱ // 0x37df @0x7
0x37d8…37e3 at0008 = ╱4b╱K╱ // 0x37e0 @0x8
0x37d8…37e3 at0009 = ╱45╱E╱ // 0x37e1 @0x9
0x37d8…37e3 at000a = EOL // 0x37e2 @0xa
0x37d8…37e3 }
0x37e3…37f0 cdde 03455 PROC GKIRKE
0x37e3…37f0 LineComal80 {
0x37e3…37f0 ptr = 0xcdde // 0x37e3 @0x0
0x37e3…37f0 lno = 0x0d7f // 0x37e5 @0x2
0x37e3…37f0 at0004 = ╱9e00╱ PROC ╱ // 0x37e7 @0x4
0x37e3…37f0 at0006 = ╱47╱G╱ // 0x37e9 @0x6
0x37e3…37f0 at0007 = ╱4b╱K╱ // 0x37ea @0x7
0x37e3…37f0 at0008 = ╱49╱I╱ // 0x37eb @0x8
0x37e3…37f0 at0009 = ╱52╱R╱ // 0x37ec @0x9
0x37e3…37f0 at000a = ╱4b╱K╱ // 0x37ed @0xa
0x37e3…37f0 at000b = ╱45╱E╱ // 0x37ee @0xb
0x37e3…37f0 at000c = EOL // 0x37ef @0xc
0x37e3…37f0 }
0x37f0…37fe cdec 03460 IF >< 1 THEN
0x37f0…37fe LineComal80 {
0x37f0…37fe ptr = 0xcdec // 0x37f0 @0x0
0x37f0…37fe lno = 0x0d84 // 0x37f2 @0x2
0x37f0…37fe at0004 = ╱9b0047╱ IF ╱ // 0x37f4 @0x4
0x37f0…37fe at0007 = ╱e4╱ >< ╱ // 0x37f7 @0x7
0x37f0…37fe at0008 = ╱31╱1╱ // 0x37f8 @0x8
0x37f0…37fe at0009 = ╱f20100╱ // 0x37f9 @0x9
0x37f0…37fe at000c = ╱b5╱ THEN ╱ // 0x37fc @0xc
0x37f0…37fe at000d = EOL // 0x37fd @0xd
0x37f0…37fe }
0x37fe…3830 ce1e 03465 PRINT "Er…den…gifte…kvinde…medlem…af…folkekirken" ;
0x37fe…3830 LineComal80 {
0x37fe…3830 ptr = 0xce1e // 0x37fe @0x0
0x37fe…3830 lno = 0x0d89 // 0x3800 @0x2
0x37fe…3830 at0004 = ╱92╱ PRINT ╱ // 0x3802 @0x4
0x37fe…3830 at0005 = ╱22╱"╱ // 0x3803 @0x5
0x37fe…3830 at0006 = ╱45╱E╱ // 0x3804 @0x6
0x37fe…3830 at0007 = ╱72╱r╱ // 0x3805 @0x7
0x37fe…3830 at0008 = ╱20╱…╱ // 0x3806 @0x8
0x37fe…3830 at0009 = ╱64╱d╱ // 0x3807 @0x9
0x37fe…3830 at000a = ╱65╱e╱ // 0x3808 @0xa
0x37fe…3830 at000b = ╱6e╱n╱ // 0x3809 @0xb
0x37fe…3830 at000c = ╱20╱…╱ // 0x380a @0xc
0x37fe…3830 at000d = ╱67╱g╱ // 0x380b @0xd
0x37fe…3830 at000e = ╱69╱i╱ // 0x380c @0xe
0x37fe…3830 at000f = ╱66╱f╱ // 0x380d @0xf
0x37fe…3830 at0010 = ╱74╱t╱ // 0x380e @0x10
0x37fe…3830 at0011 = ╱65╱e╱ // 0x380f @0x11
0x37fe…3830 at0012 = ╱20╱…╱ // 0x3810 @0x12
0x37fe…3830 at0013 = ╱6b╱k╱ // 0x3811 @0x13
0x37fe…3830 at0014 = ╱76╱v╱ // 0x3812 @0x14
0x37fe…3830 at0015 = ╱69╱i╱ // 0x3813 @0x15
0x37fe…3830 at0016 = ╱6e╱n╱ // 0x3814 @0x16
0x37fe…3830 at0017 = ╱64╱d╱ // 0x3815 @0x17
0x37fe…3830 at0018 = ╱65╱e╱ // 0x3816 @0x18
0x37fe…3830 at0019 = ╱20╱…╱ // 0x3817 @0x19
0x37fe…3830 at001a = ╱6d╱m╱ // 0x3818 @0x1a
0x37fe…3830 at001b = ╱65╱e╱ // 0x3819 @0x1b
0x37fe…3830 at001c = ╱64╱d╱ // 0x381a @0x1c
0x37fe…3830 at001d = ╱6c╱l╱ // 0x381b @0x1d
0x37fe…3830 at001e = ╱65╱e╱ // 0x381c @0x1e
0x37fe…3830 at001f = ╱6d╱m╱ // 0x381d @0x1f
0x37fe…3830 at0020 = ╱20╱…╱ // 0x381e @0x20
0x37fe…3830 at0021 = ╱61╱a╱ // 0x381f @0x21
0x37fe…3830 at0022 = ╱66╱f╱ // 0x3820 @0x22
0x37fe…3830 at0023 = ╱20╱…╱ // 0x3821 @0x23
0x37fe…3830 at0024 = ╱66╱f╱ // 0x3822 @0x24
0x37fe…3830 at0025 = ╱6f╱o╱ // 0x3823 @0x25
0x37fe…3830 at0026 = ╱6c╱l╱ // 0x3824 @0x26
0x37fe…3830 at0027 = ╱6b╱k╱ // 0x3825 @0x27
0x37fe…3830 at0028 = ╱65╱e╱ // 0x3826 @0x28
0x37fe…3830 at0029 = ╱6b╱k╱ // 0x3827 @0x29
0x37fe…3830 at002a = ╱69╱i╱ // 0x3828 @0x2a
0x37fe…3830 at002b = ╱72╱r╱ // 0x3829 @0x2b
0x37fe…3830 at002c = ╱6b╱k╱ // 0x382a @0x2c
0x37fe…3830 at002d = ╱65╱e╱ // 0x382b @0x2d
0x37fe…3830 at002e = ╱6e╱n╱ // 0x382c @0x2e
0x37fe…3830 at002f = ╱22╱"╱ // 0x382d @0x2f
0x37fe…3830 at0030 = ╱ea╱ ; ╱ // 0x382e @0x30
0x37fe…3830 at0031 = EOL // 0x382f @0x31
0x37fe…3830 }
0x3830…383a ce28 03470 EXEC SVAR
0x3830…383a LineComal80 {
0x3830…383a ptr = 0xce28 // 0x3830 @0x0
0x3830…383a lno = 0x0d8e // 0x3832 @0x2
0x3830…383a at0004 = ╱9d╱ EXEC ╱ // 0x3834 @0x4
0x3830…383a at0005 = ╱53╱S╱ // 0x3835 @0x5
0x3830…383a at0006 = ╱56╱V╱ // 0x3836 @0x6
0x3830…383a at0007 = ╱41╱A╱ // 0x3837 @0x7
0x3830…383a at0008 = ╱52╱R╱ // 0x3838 @0x8
0x3830…383a at0009 = EOL // 0x3839 @0x9
0x3830…383a }
0x383a…3845 ce33 03475 LET TKB := O
0x383a…3845 LineComal80 {
0x383a…3845 ptr = 0xce33 // 0x383a @0x0
0x383a…3845 lno = 0x0d93 // 0x383c @0x2
0x383a…3845 at0004 = ╱86╱ LET ╱ // 0x383e @0x4
0x383a…3845 at0005 = ╱54╱T╱ // 0x383f @0x5
0x383a…3845 at0006 = ╱4b╱K╱ // 0x3840 @0x6
0x383a…3845 at0007 = ╱42╱B╱ // 0x3841 @0x7
0x383a…3845 at0008 = ╱f0╱ := ╱ // 0x3842 @0x8
0x383a…3845 at0009 = ╱4f╱O╱ // 0x3843 @0x9
0x383a…3845 at000a = EOL // 0x3844 @0xa
0x383a…3845 }
0x3845…385c ce4a 03480 IF S $ = "j" THEN LET TKB := 1
0x3845…385c LineComal80 {
0x3845…385c ptr = 0xce4a // 0x3845 @0x0
0x3845…385c lno = 0x0d98 // 0x3847 @0x2
0x3845…385c at0004 = ╱8200╱ IF ╱ // 0x3849 @0x4
0x3845…385c at0006 = ╱53╱S╱ // 0x384b @0x6
0x3845…385c at0007 = ╱ef╱ $ ╱ // 0x384c @0x7
0x3845…385c at0008 = ╱df╱ = ╱ // 0x384d @0x8
0x3845…385c at0009 = ╱22╱"╱ // 0x384e @0x9
0x3845…385c at000a = ╱6a╱j╱ // 0x384f @0xa
0x3845…385c at000b = ╱22╱"╱ // 0x3850 @0xb
0x3845…385c at000c = ╱b5╱ THEN ╱ // 0x3851 @0xc
0x3845…385c at000d = ╱86╱ LET ╱ // 0x3852 @0xd
0x3845…385c at000e = ╱54╱T╱ // 0x3853 @0xe
0x3845…385c at000f = ╱4b╱K╱ // 0x3854 @0xf
0x3845…385c at0010 = ╱42╱B╱ // 0x3855 @0x10
0x3845…385c at0011 = ╱f0╱ := ╱ // 0x3856 @0x11
0x3845…385c at0012 = ╱31╱1╱ // 0x3857 @0x12
0x3845…385c at0013 = ╱f20100╱ // 0x3858 @0x13
0x3845…385c at0016 = EOL // 0x385b @0x16
0x3845…385c }
0x385c…3862 ce50 03485 ENDIF
0x385c…3862 LineComal80 {
0x385c…3862 ptr = 0xce50 // 0x385c @0x0
0x385c…3862 lno = 0x0d9d // 0x385e @0x2
0x385c…3862 at0004 = ╱9c╱ ENDIF ╱ // 0x3860 @0x4
0x385c…3862 at0005 = EOL // 0x3861 @0x5
0x385c…3862 }
0x3862…386e ce5c 03490 ENDPROC GKIRKE
0x3862…386e LineComal80 {
0x3862…386e ptr = 0xce5c // 0x3862 @0x0
0x3862…386e lno = 0x0da2 // 0x3864 @0x2
0x3862…386e at0004 = ╱9f╱ ENDPROC ╱ // 0x3866 @0x4
0x3862…386e at0005 = ╱47╱G╱ // 0x3867 @0x5
0x3862…386e at0006 = ╱4b╱K╱ // 0x3868 @0x6
0x3862…386e at0007 = ╱49╱I╱ // 0x3869 @0x7
0x3862…386e at0008 = ╱52╱R╱ // 0x386a @0x8
0x3862…386e at0009 = ╱4b╱K╱ // 0x386b @0x9
0x3862…386e at000a = ╱45╱E╱ // 0x386c @0xa
0x3862…386e at000b = EOL // 0x386d @0xb
0x3862…386e }
0x386e…387b ce69 03495 PROC REGN39
0x386e…387b LineComal80 {
0x386e…387b ptr = 0xce69 // 0x386e @0x0
0x386e…387b lno = 0x0da7 // 0x3870 @0x2
0x386e…387b at0004 = ╱9e00╱ PROC ╱ // 0x3872 @0x4
0x386e…387b at0006 = ╱52╱R╱ // 0x3874 @0x6
0x386e…387b at0007 = ╱45╱E╱ // 0x3875 @0x7
0x386e…387b at0008 = ╱47╱G╱ // 0x3876 @0x8
0x386e…387b at0009 = ╱4e╱N╱ // 0x3877 @0x9
0x386e…387b at000a = ╱33╱3╱ // 0x3878 @0xa
0x386e…387b at000b = ╱39╱9╱ // 0x3879 @0xb
0x386e…387b at000c = EOL // 0x387a @0xc
0x386e…387b }
0x387b…3886 ce74 03500 LET C8 := P3
0x387b…3886 LineComal80 {
0x387b…3886 ptr = 0xce74 // 0x387b @0x0
0x387b…3886 lno = 0x0dac // 0x387d @0x2
0x387b…3886 at0004 = ╱86╱ LET ╱ // 0x387f @0x4
0x387b…3886 at0005 = ╱43╱C╱ // 0x3880 @0x5
0x387b…3886 at0006 = ╱38╱8╱ // 0x3881 @0x6
0x387b…3886 at0007 = ╱f0╱ := ╱ // 0x3882 @0x7
0x387b…3886 at0008 = ╱50╱P╱ // 0x3883 @0x8
0x387b…3886 at0009 = ╱33╱3╱ // 0x3884 @0x9
0x387b…3886 at000a = EOL // 0x3885 @0xa
0x387b…3886 }
0x3886…38a0 ce8e 03505 IF T0 = 1 AND T1 >< O THEN LET C8 := P6
0x3886…38a0 LineComal80 {
0x3886…38a0 ptr = 0xce8e // 0x3886 @0x0
0x3886…38a0 lno = 0x0db1 // 0x3888 @0x2
0x3886…38a0 at0004 = ╱8200╱ IF ╱ // 0x388a @0x4
0x3886…38a0 at0006 = ╱54╱T╱ // 0x388c @0x6
0x3886…38a0 at0007 = ╱30╱0╱ // 0x388d @0x7
0x3886…38a0 at0008 = ╱df╱ = ╱ // 0x388e @0x8
0x3886…38a0 at0009 = ╱31╱1╱ // 0x388f @0x9
0x3886…38a0 at000a = ╱f20100╱ // 0x3890 @0xa
0x3886…38a0 at000d = ╱d9╱ AND ╱ // 0x3893 @0xd
0x3886…38a0 at000e = ╱54╱T╱ // 0x3894 @0xe
0x3886…38a0 at000f = ╱31╱1╱ // 0x3895 @0xf
0x3886…38a0 at0010 = ╱e4╱ >< ╱ // 0x3896 @0x10
0x3886…38a0 at0011 = ╱4f╱O╱ // 0x3897 @0x11
0x3886…38a0 at0012 = ╱b5╱ THEN ╱ // 0x3898 @0x12
0x3886…38a0 at0013 = ╱86╱ LET ╱ // 0x3899 @0x13
0x3886…38a0 at0014 = ╱43╱C╱ // 0x389a @0x14
0x3886…38a0 at0015 = ╱38╱8╱ // 0x389b @0x15
0x3886…38a0 at0016 = ╱f0╱ := ╱ // 0x389c @0x16
0x3886…38a0 at0017 = ╱50╱P╱ // 0x389d @0x17
0x3886…38a0 at0018 = ╱36╱6╱ // 0x389e @0x18
0x3886…38a0 at0019 = EOL // 0x389f @0x19
0x3886…38a0 }
0x38a0…38ba cea8 03510 IF T0 = 2 AND T3 >< O THEN LET C8 := P6
0x38a0…38ba LineComal80 {
0x38a0…38ba ptr = 0xcea8 // 0x38a0 @0x0
0x38a0…38ba lno = 0x0db6 // 0x38a2 @0x2
0x38a0…38ba at0004 = ╱8200╱ IF ╱ // 0x38a4 @0x4
0x38a0…38ba at0006 = ╱54╱T╱ // 0x38a6 @0x6
0x38a0…38ba at0007 = ╱30╱0╱ // 0x38a7 @0x7
0x38a0…38ba at0008 = ╱df╱ = ╱ // 0x38a8 @0x8
0x38a0…38ba at0009 = ╱32╱2╱ // 0x38a9 @0x9
0x38a0…38ba at000a = ╱f20200╱ // 0x38aa @0xa
0x38a0…38ba at000d = ╱d9╱ AND ╱ // 0x38ad @0xd
0x38a0…38ba at000e = ╱54╱T╱ // 0x38ae @0xe
0x38a0…38ba at000f = ╱33╱3╱ // 0x38af @0xf
0x38a0…38ba at0010 = ╱e4╱ >< ╱ // 0x38b0 @0x10
0x38a0…38ba at0011 = ╱4f╱O╱ // 0x38b1 @0x11
0x38a0…38ba at0012 = ╱b5╱ THEN ╱ // 0x38b2 @0x12
0x38a0…38ba at0013 = ╱86╱ LET ╱ // 0x38b3 @0x13
0x38a0…38ba at0014 = ╱43╱C╱ // 0x38b4 @0x14
0x38a0…38ba at0015 = ╱38╱8╱ // 0x38b5 @0x15
0x38a0…38ba at0016 = ╱f0╱ := ╱ // 0x38b6 @0x16
0x38a0…38ba at0017 = ╱50╱P╱ // 0x38b7 @0x17
0x38a0…38ba at0018 = ╱36╱6╱ // 0x38b8 @0x18
0x38a0…38ba at0019 = EOL // 0x38b9 @0x19
0x38a0…38ba }
0x38ba…38c6 ceb4 03515 ENDPROC REGN39
0x38ba…38c6 LineComal80 {
0x38ba…38c6 ptr = 0xceb4 // 0x38ba @0x0
0x38ba…38c6 lno = 0x0dbb // 0x38bc @0x2
0x38ba…38c6 at0004 = ╱9f╱ ENDPROC ╱ // 0x38be @0x4
0x38ba…38c6 at0005 = ╱52╱R╱ // 0x38bf @0x5
0x38ba…38c6 at0006 = ╱45╱E╱ // 0x38c0 @0x6
0x38ba…38c6 at0007 = ╱47╱G╱ // 0x38c1 @0x7
0x38ba…38c6 at0008 = ╱4e╱N╱ // 0x38c2 @0x8
0x38ba…38c6 at0009 = ╱33╱3╱ // 0x38c3 @0x9
0x38ba…38c6 at000a = ╱39╱9╱ // 0x38c4 @0xa
0x38ba…38c6 at000b = EOL // 0x38c5 @0xb
0x38ba…38c6 }
0x38c6…38d3 cec1 03520 PROC REGN40
0x38c6…38d3 LineComal80 {
0x38c6…38d3 ptr = 0xcec1 // 0x38c6 @0x0
0x38c6…38d3 lno = 0x0dc0 // 0x38c8 @0x2
0x38c6…38d3 at0004 = ╱9e00╱ PROC ╱ // 0x38ca @0x4
0x38c6…38d3 at0006 = ╱52╱R╱ // 0x38cc @0x6
0x38c6…38d3 at0007 = ╱45╱E╱ // 0x38cd @0x7
0x38c6…38d3 at0008 = ╱47╱G╱ // 0x38ce @0x8
0x38c6…38d3 at0009 = ╱4e╱N╱ // 0x38cf @0x9
0x38c6…38d3 at000a = ╱34╱4╱ // 0x38d0 @0xa
0x38c6…38d3 at000b = ╱30╱0╱ // 0x38d1 @0xb
0x38c6…38d3 at000c = EOL // 0x38d2 @0xc
0x38c6…38d3 }
0x38d3…38e6 ced4 03525 IF C8 = P3 THEN LET C8 := P4
0x38d3…38e6 LineComal80 {
0x38d3…38e6 ptr = 0xced4 // 0x38d3 @0x0
0x38d3…38e6 lno = 0x0dc5 // 0x38d5 @0x2
0x38d3…38e6 at0004 = ╱8200╱ IF ╱ // 0x38d7 @0x4
0x38d3…38e6 at0006 = ╱43╱C╱ // 0x38d9 @0x6
0x38d3…38e6 at0007 = ╱38╱8╱ // 0x38da @0x7
0x38d3…38e6 at0008 = ╱df╱ = ╱ // 0x38db @0x8
0x38d3…38e6 at0009 = ╱50╱P╱ // 0x38dc @0x9
0x38d3…38e6 at000a = ╱33╱3╱ // 0x38dd @0xa
0x38d3…38e6 at000b = ╱b5╱ THEN ╱ // 0x38de @0xb
0x38d3…38e6 at000c = ╱86╱ LET ╱ // 0x38df @0xc
0x38d3…38e6 at000d = ╱43╱C╱ // 0x38e0 @0xd
0x38d3…38e6 at000e = ╱38╱8╱ // 0x38e1 @0xe
0x38d3…38e6 at000f = ╱f0╱ := ╱ // 0x38e2 @0xf
0x38d3…38e6 at0010 = ╱50╱P╱ // 0x38e3 @0x10
0x38d3…38e6 at0011 = ╱34╱4╱ // 0x38e4 @0x11
0x38d3…38e6 at0012 = EOL // 0x38e5 @0x12
0x38d3…38e6 }
0x38e6…38f2 cee0 03530 ENDPROC REGN40
0x38e6…38f2 LineComal80 {
0x38e6…38f2 ptr = 0xcee0 // 0x38e6 @0x0
0x38e6…38f2 lno = 0x0dca // 0x38e8 @0x2
0x38e6…38f2 at0004 = ╱9f╱ ENDPROC ╱ // 0x38ea @0x4
0x38e6…38f2 at0005 = ╱52╱R╱ // 0x38eb @0x5
0x38e6…38f2 at0006 = ╱45╱E╱ // 0x38ec @0x6
0x38e6…38f2 at0007 = ╱47╱G╱ // 0x38ed @0x7
0x38e6…38f2 at0008 = ╱4e╱N╱ // 0x38ee @0x8
0x38e6…38f2 at0009 = ╱34╱4╱ // 0x38ef @0x9
0x38e6…38f2 at000a = ╱30╱0╱ // 0x38f0 @0xa
0x38e6…38f2 at000b = EOL // 0x38f1 @0xb
0x38e6…38f2 }
0x38f2…38ff ceed 03535 PROC REGN42
0x38f2…38ff LineComal80 {
0x38f2…38ff ptr = 0xceed // 0x38f2 @0x0
0x38f2…38ff lno = 0x0dcf // 0x38f4 @0x2
0x38f2…38ff at0004 = ╱9e00╱ PROC ╱ // 0x38f6 @0x4
0x38f2…38ff at0006 = ╱52╱R╱ // 0x38f8 @0x6
0x38f2…38ff at0007 = ╱45╱E╱ // 0x38f9 @0x7
0x38f2…38ff at0008 = ╱47╱G╱ // 0x38fa @0x8
0x38f2…38ff at0009 = ╱4e╱N╱ // 0x38fb @0x9
0x38f2…38ff at000a = ╱34╱4╱ // 0x38fc @0xa
0x38f2…38ff at000b = ╱32╱2╱ // 0x38fd @0xb
0x38f2…38ff at000c = EOL // 0x38fe @0xc
0x38f2…38ff }
0x38ff…390a cef8 03540 LET C8 := P3
0x38ff…390a LineComal80 {
0x38ff…390a ptr = 0xcef8 // 0x38ff @0x0
0x38ff…390a lno = 0x0dd4 // 0x3901 @0x2
0x38ff…390a at0004 = ╱86╱ LET ╱ // 0x3903 @0x4
0x38ff…390a at0005 = ╱43╱C╱ // 0x3904 @0x5
0x38ff…390a at0006 = ╱38╱8╱ // 0x3905 @0x6
0x38ff…390a at0007 = ╱f0╱ := ╱ // 0x3906 @0x7
0x38ff…390a at0008 = ╱50╱P╱ // 0x3907 @0x8
0x38ff…390a at0009 = ╱33╱3╱ // 0x3908 @0x9
0x38ff…390a at000a = EOL // 0x3909 @0xa
0x38ff…390a }
0x390a…3924 cf12 03545 IF T0 = 1 AND T3 >< O THEN LET C8 := P6
0x390a…3924 LineComal80 {
0x390a…3924 ptr = 0xcf12 // 0x390a @0x0
0x390a…3924 lno = 0x0dd9 // 0x390c @0x2
0x390a…3924 at0004 = ╱8200╱ IF ╱ // 0x390e @0x4
0x390a…3924 at0006 = ╱54╱T╱ // 0x3910 @0x6
0x390a…3924 at0007 = ╱30╱0╱ // 0x3911 @0x7
0x390a…3924 at0008 = ╱df╱ = ╱ // 0x3912 @0x8
0x390a…3924 at0009 = ╱31╱1╱ // 0x3913 @0x9
0x390a…3924 at000a = ╱f20100╱ // 0x3914 @0xa
0x390a…3924 at000d = ╱d9╱ AND ╱ // 0x3917 @0xd
0x390a…3924 at000e = ╱54╱T╱ // 0x3918 @0xe
0x390a…3924 at000f = ╱33╱3╱ // 0x3919 @0xf
0x390a…3924 at0010 = ╱e4╱ >< ╱ // 0x391a @0x10
0x390a…3924 at0011 = ╱4f╱O╱ // 0x391b @0x11
0x390a…3924 at0012 = ╱b5╱ THEN ╱ // 0x391c @0x12
0x390a…3924 at0013 = ╱86╱ LET ╱ // 0x391d @0x13
0x390a…3924 at0014 = ╱43╱C╱ // 0x391e @0x14
0x390a…3924 at0015 = ╱38╱8╱ // 0x391f @0x15
0x390a…3924 at0016 = ╱f0╱ := ╱ // 0x3920 @0x16
0x390a…3924 at0017 = ╱50╱P╱ // 0x3921 @0x17
0x390a…3924 at0018 = ╱36╱6╱ // 0x3922 @0x18
0x390a…3924 at0019 = EOL // 0x3923 @0x19
0x390a…3924 }
0x3924…393e cf2c 03550 IF T0 = 2 AND T1 >< O THEN LET C8 := P6
0x3924…393e LineComal80 {
0x3924…393e ptr = 0xcf2c // 0x3924 @0x0
0x3924…393e lno = 0x0dde // 0x3926 @0x2
0x3924…393e at0004 = ╱8200╱ IF ╱ // 0x3928 @0x4
0x3924…393e at0006 = ╱54╱T╱ // 0x392a @0x6
0x3924…393e at0007 = ╱30╱0╱ // 0x392b @0x7
0x3924…393e at0008 = ╱df╱ = ╱ // 0x392c @0x8
0x3924…393e at0009 = ╱32╱2╱ // 0x392d @0x9
0x3924…393e at000a = ╱f20200╱ // 0x392e @0xa
0x3924…393e at000d = ╱d9╱ AND ╱ // 0x3931 @0xd
0x3924…393e at000e = ╱54╱T╱ // 0x3932 @0xe
0x3924…393e at000f = ╱31╱1╱ // 0x3933 @0xf
0x3924…393e at0010 = ╱e4╱ >< ╱ // 0x3934 @0x10
0x3924…393e at0011 = ╱4f╱O╱ // 0x3935 @0x11
0x3924…393e at0012 = ╱b5╱ THEN ╱ // 0x3936 @0x12
0x3924…393e at0013 = ╱86╱ LET ╱ // 0x3937 @0x13
0x3924…393e at0014 = ╱43╱C╱ // 0x3938 @0x14
0x3924…393e at0015 = ╱38╱8╱ // 0x3939 @0x15
0x3924…393e at0016 = ╱f0╱ := ╱ // 0x393a @0x16
0x3924…393e at0017 = ╱50╱P╱ // 0x393b @0x17
0x3924…393e at0018 = ╱36╱6╱ // 0x393c @0x18
0x3924…393e at0019 = EOL // 0x393d @0x19
0x3924…393e }
0x393e…394a cf38 03555 ENDPROC REGN42
0x393e…394a LineComal80 {
0x393e…394a ptr = 0xcf38 // 0x393e @0x0
0x393e…394a lno = 0x0de3 // 0x3940 @0x2
0x393e…394a at0004 = ╱9f╱ ENDPROC ╱ // 0x3942 @0x4
0x393e…394a at0005 = ╱52╱R╱ // 0x3943 @0x5
0x393e…394a at0006 = ╱45╱E╱ // 0x3944 @0x6
0x393e…394a at0007 = ╱47╱G╱ // 0x3945 @0x7
0x393e…394a at0008 = ╱4e╱N╱ // 0x3946 @0x8
0x393e…394a at0009 = ╱34╱4╱ // 0x3947 @0x9
0x393e…394a at000a = ╱32╱2╱ // 0x3948 @0xa
0x393e…394a at000b = EOL // 0x3949 @0xb
0x393e…394a }
0x394a…3956 cf44 03560 PROC REGN4
0x394a…3956 LineComal80 {
0x394a…3956 ptr = 0xcf44 // 0x394a @0x0
0x394a…3956 lno = 0x0de8 // 0x394c @0x2
0x394a…3956 at0004 = ╱9e00╱ PROC ╱ // 0x394e @0x4
0x394a…3956 at0006 = ╱52╱R╱ // 0x3950 @0x6
0x394a…3956 at0007 = ╱45╱E╱ // 0x3951 @0x7
0x394a…3956 at0008 = ╱47╱G╱ // 0x3952 @0x8
0x394a…3956 at0009 = ╱4e╱N╱ // 0x3953 @0x9
0x394a…3956 at000a = ╱34╱4╱ // 0x3954 @0xa
0x394a…3956 at000b = EOL // 0x3955 @0xb
0x394a…3956 }
0x3956…3961 cf4f 03565 LET C7 := C4
0x3956…3961 LineComal80 {
0x3956…3961 ptr = 0xcf4f // 0x3956 @0x0
0x3956…3961 lno = 0x0ded // 0x3958 @0x2
0x3956…3961 at0004 = ╱86╱ LET ╱ // 0x395a @0x4
0x3956…3961 at0005 = ╱43╱C╱ // 0x395b @0x5
0x3956…3961 at0006 = ╱37╱7╱ // 0x395c @0x6
0x3956…3961 at0007 = ╱f0╱ := ╱ // 0x395d @0x7
0x3956…3961 at0008 = ╱43╱C╱ // 0x395e @0x8
0x3956…3961 at0009 = ╱34╱4╱ // 0x395f @0x9
0x3956…3961 at000a = EOL // 0x3960 @0xa
0x3956…3961 }
0x3961…396d cf5b 03570 EXEC REGN25
0x3961…396d LineComal80 {
0x3961…396d ptr = 0xcf5b // 0x3961 @0x0
0x3961…396d lno = 0x0df2 // 0x3963 @0x2
0x3961…396d at0004 = ╱9d╱ EXEC ╱ // 0x3965 @0x4
0x3961…396d at0005 = ╱52╱R╱ // 0x3966 @0x5
0x3961…396d at0006 = ╱45╱E╱ // 0x3967 @0x6
0x3961…396d at0007 = ╱47╱G╱ // 0x3968 @0x7
0x3961…396d at0008 = ╱4e╱N╱ // 0x3969 @0x8
0x3961…396d at0009 = ╱32╱2╱ // 0x396a @0x9
0x3961…396d at000a = ╱35╱5╱ // 0x396b @0xa
0x3961…396d at000b = EOL // 0x396c @0xb
0x3961…396d }
0x396d…3979 cf67 03575 EXEC REGN51
0x396d…3979 LineComal80 {
0x396d…3979 ptr = 0xcf67 // 0x396d @0x0
0x396d…3979 lno = 0x0df7 // 0x396f @0x2
0x396d…3979 at0004 = ╱9d╱ EXEC ╱ // 0x3971 @0x4
0x396d…3979 at0005 = ╱52╱R╱ // 0x3972 @0x5
0x396d…3979 at0006 = ╱45╱E╱ // 0x3973 @0x6
0x396d…3979 at0007 = ╱47╱G╱ // 0x3974 @0x7
0x396d…3979 at0008 = ╱4e╱N╱ // 0x3975 @0x8
0x396d…3979 at0009 = ╱35╱5╱ // 0x3976 @0x9
0x396d…3979 at000a = ╱31╱1╱ // 0x3977 @0xa
0x396d…3979 at000b = EOL // 0x3978 @0xb
0x396d…3979 }
0x3979…3984 cf72 03580 EXEC KIRKE
0x3979…3984 LineComal80 {
0x3979…3984 ptr = 0xcf72 // 0x3979 @0x0
0x3979…3984 lno = 0x0dfc // 0x397b @0x2
0x3979…3984 at0004 = ╱9d╱ EXEC ╱ // 0x397d @0x4
0x3979…3984 at0005 = ╱4b╱K╱ // 0x397e @0x5
0x3979…3984 at0006 = ╱49╱I╱ // 0x397f @0x6
0x3979…3984 at0007 = ╱52╱R╱ // 0x3980 @0x7
0x3979…3984 at0008 = ╱4b╱K╱ // 0x3981 @0x8
0x3979…3984 at0009 = ╱45╱E╱ // 0x3982 @0x9
0x3979…3984 at000a = EOL // 0x3983 @0xa
0x3979…3984 }
0x3984…398e cf7c 03585 LET D5 := O
0x3984…398e LineComal80 {
0x3984…398e ptr = 0xcf7c // 0x3984 @0x0
0x3984…398e lno = 0x0e01 // 0x3986 @0x2
0x3984…398e at0004 = ╱86╱ LET ╱ // 0x3988 @0x4
0x3984…398e at0005 = ╱44╱D╱ // 0x3989 @0x5
0x3984…398e at0006 = ╱35╱5╱ // 0x398a @0x6
0x3984…398e at0007 = ╱f0╱ := ╱ // 0x398b @0x7
0x3984…398e at0008 = ╱4f╱O╱ // 0x398c @0x8
0x3984…398e at0009 = EOL // 0x398d @0x9
0x3984…398e }
0x398e…39a5 cf93 03590 IF TKH = 1 THEN EXEC REGN30
0x398e…39a5 LineComal80 {
0x398e…39a5 ptr = 0xcf93 // 0x398e @0x0
0x398e…39a5 lno = 0x0e06 // 0x3990 @0x2
0x398e…39a5 at0004 = ╱8200╱ IF ╱ // 0x3992 @0x4
0x398e…39a5 at0006 = ╱54╱T╱ // 0x3994 @0x6
0x398e…39a5 at0007 = ╱4b╱K╱ // 0x3995 @0x7
0x398e…39a5 at0008 = ╱48╱H╱ // 0x3996 @0x8
0x398e…39a5 at0009 = ╱df╱ = ╱ // 0x3997 @0x9
0x398e…39a5 at000a = ╱31╱1╱ // 0x3998 @0xa
0x398e…39a5 at000b = ╱f20100╱ // 0x3999 @0xb
0x398e…39a5 at000e = ╱b5╱ THEN ╱ // 0x399c @0xe
0x398e…39a5 at000f = ╱9d╱ EXEC ╱ // 0x399d @0xf
0x398e…39a5 at0010 = ╱52╱R╱ // 0x399e @0x10
0x398e…39a5 at0011 = ╱45╱E╱ // 0x399f @0x11
0x398e…39a5 at0012 = ╱47╱G╱ // 0x39a0 @0x12
0x398e…39a5 at0013 = ╱4e╱N╱ // 0x39a1 @0x13
0x398e…39a5 at0014 = ╱33╱3╱ // 0x39a2 @0x14
0x398e…39a5 at0015 = ╱30╱0╱ // 0x39a3 @0x15
0x398e…39a5 at0016 = EOL // 0x39a4 @0x16
0x398e…39a5 }
0x39a5…39b1 cf9f 03595 EXEC REGN31
0x39a5…39b1 LineComal80 {
0x39a5…39b1 ptr = 0xcf9f // 0x39a5 @0x0
0x39a5…39b1 lno = 0x0e0b // 0x39a7 @0x2
0x39a5…39b1 at0004 = ╱9d╱ EXEC ╱ // 0x39a9 @0x4
0x39a5…39b1 at0005 = ╱52╱R╱ // 0x39aa @0x5
0x39a5…39b1 at0006 = ╱45╱E╱ // 0x39ab @0x6
0x39a5…39b1 at0007 = ╱47╱G╱ // 0x39ac @0x7
0x39a5…39b1 at0008 = ╱4e╱N╱ // 0x39ad @0x8
0x39a5…39b1 at0009 = ╱33╱3╱ // 0x39ae @0x9
0x39a5…39b1 at000a = ╱31╱1╱ // 0x39af @0xa
0x39a5…39b1 at000b = EOL // 0x39b0 @0xb
0x39a5…39b1 }
0x39b1…39c8 cfb6 03600 IF T2 = O AND T1 >< O THEN LET C8 := P5
0x39b1…39c8 LineComal80 {
0x39b1…39c8 ptr = 0xcfb6 // 0x39b1 @0x0
0x39b1…39c8 lno = 0x0e10 // 0x39b3 @0x2
0x39b1…39c8 at0004 = ╱8200╱ IF ╱ // 0x39b5 @0x4
0x39b1…39c8 at0006 = ╱54╱T╱ // 0x39b7 @0x6
0x39b1…39c8 at0007 = ╱32╱2╱ // 0x39b8 @0x7
0x39b1…39c8 at0008 = ╱df╱ = ╱ // 0x39b9 @0x8
0x39b1…39c8 at0009 = ╱4f╱O╱ // 0x39ba @0x9
0x39b1…39c8 at000a = ╱d9╱ AND ╱ // 0x39bb @0xa
0x39b1…39c8 at000b = ╱54╱T╱ // 0x39bc @0xb
0x39b1…39c8 at000c = ╱31╱1╱ // 0x39bd @0xc
0x39b1…39c8 at000d = ╱e4╱ >< ╱ // 0x39be @0xd
0x39b1…39c8 at000e = ╱4f╱O╱ // 0x39bf @0xe
0x39b1…39c8 at000f = ╱b5╱ THEN ╱ // 0x39c0 @0xf
0x39b1…39c8 at0010 = ╱86╱ LET ╱ // 0x39c1 @0x10
0x39b1…39c8 at0011 = ╱43╱C╱ // 0x39c2 @0x11
0x39b1…39c8 at0012 = ╱38╱8╱ // 0x39c3 @0x12
0x39b1…39c8 at0013 = ╱f0╱ := ╱ // 0x39c4 @0x13
0x39b1…39c8 at0014 = ╱50╱P╱ // 0x39c5 @0x14
0x39b1…39c8 at0015 = ╱35╱5╱ // 0x39c6 @0x15
0x39b1…39c8 at0016 = EOL // 0x39c7 @0x16
0x39b1…39c8 }
0x39c8…39e2 cfd0 03605 IF T2 = 2 AND T1 >< O THEN LET C8 := P6
0x39c8…39e2 LineComal80 {
0x39c8…39e2 ptr = 0xcfd0 // 0x39c8 @0x0
0x39c8…39e2 lno = 0x0e15 // 0x39ca @0x2
0x39c8…39e2 at0004 = ╱8200╱ IF ╱ // 0x39cc @0x4
0x39c8…39e2 at0006 = ╱54╱T╱ // 0x39ce @0x6
0x39c8…39e2 at0007 = ╱32╱2╱ // 0x39cf @0x7
0x39c8…39e2 at0008 = ╱df╱ = ╱ // 0x39d0 @0x8
0x39c8…39e2 at0009 = ╱32╱2╱ // 0x39d1 @0x9
0x39c8…39e2 at000a = ╱f20200╱ // 0x39d2 @0xa
0x39c8…39e2 at000d = ╱d9╱ AND ╱ // 0x39d5 @0xd
0x39c8…39e2 at000e = ╱54╱T╱ // 0x39d6 @0xe
0x39c8…39e2 at000f = ╱31╱1╱ // 0x39d7 @0xf
0x39c8…39e2 at0010 = ╱e4╱ >< ╱ // 0x39d8 @0x10
0x39c8…39e2 at0011 = ╱4f╱O╱ // 0x39d9 @0x11
0x39c8…39e2 at0012 = ╱b5╱ THEN ╱ // 0x39da @0x12
0x39c8…39e2 at0013 = ╱86╱ LET ╱ // 0x39db @0x13
0x39c8…39e2 at0014 = ╱43╱C╱ // 0x39dc @0x14
0x39c8…39e2 at0015 = ╱38╱8╱ // 0x39dd @0x15
0x39c8…39e2 at0016 = ╱f0╱ := ╱ // 0x39de @0x16
0x39c8…39e2 at0017 = ╱50╱P╱ // 0x39df @0x17
0x39c8…39e2 at0018 = ╱36╱6╱ // 0x39e0 @0x18
0x39c8…39e2 at0019 = EOL // 0x39e1 @0x19
0x39c8…39e2 }
0x39e2…39f4 cfe2 03610 IF T1 = O THEN LET C8 := P3
0x39e2…39f4 LineComal80 {
0x39e2…39f4 ptr = 0xcfe2 // 0x39e2 @0x0
0x39e2…39f4 lno = 0x0e1a // 0x39e4 @0x2
0x39e2…39f4 at0004 = ╱8200╱ IF ╱ // 0x39e6 @0x4
0x39e2…39f4 at0006 = ╱54╱T╱ // 0x39e8 @0x6
0x39e2…39f4 at0007 = ╱31╱1╱ // 0x39e9 @0x7
0x39e2…39f4 at0008 = ╱df╱ = ╱ // 0x39ea @0x8
0x39e2…39f4 at0009 = ╱4f╱O╱ // 0x39eb @0x9
0x39e2…39f4 at000a = ╱b5╱ THEN ╱ // 0x39ec @0xa
0x39e2…39f4 at000b = ╱86╱ LET ╱ // 0x39ed @0xb
0x39e2…39f4 at000c = ╱43╱C╱ // 0x39ee @0xc
0x39e2…39f4 at000d = ╱38╱8╱ // 0x39ef @0xd
0x39e2…39f4 at000e = ╱f0╱ := ╱ // 0x39f0 @0xe
0x39e2…39f4 at000f = ╱50╱P╱ // 0x39f1 @0xf
0x39e2…39f4 at0010 = ╱33╱3╱ // 0x39f2 @0x10
0x39e2…39f4 at0011 = EOL // 0x39f3 @0x11
0x39e2…39f4 }
0x39f4…3a00 cfee 03615 EXEC REGN50
0x39f4…3a00 LineComal80 {
0x39f4…3a00 ptr = 0xcfee // 0x39f4 @0x0
0x39f4…3a00 lno = 0x0e1f // 0x39f6 @0x2
0x39f4…3a00 at0004 = ╱9d╱ EXEC ╱ // 0x39f8 @0x4
0x39f4…3a00 at0005 = ╱52╱R╱ // 0x39f9 @0x5
0x39f4…3a00 at0006 = ╱45╱E╱ // 0x39fa @0x6
0x39f4…3a00 at0007 = ╱47╱G╱ // 0x39fb @0x7
0x39f4…3a00 at0008 = ╱4e╱N╱ // 0x39fc @0x8
0x39f4…3a00 at0009 = ╱35╱5╱ // 0x39fd @0x9
0x39f4…3a00 at000a = ╱30╱0╱ // 0x39fe @0xa
0x39f4…3a00 at000b = EOL // 0x39ff @0xb
0x39f4…3a00 }
0x3a00…3a0c cffa 03620 EXEC REGN20
0x3a00…3a0c LineComal80 {
0x3a00…3a0c ptr = 0xcffa // 0x3a00 @0x0
0x3a00…3a0c lno = 0x0e24 // 0x3a02 @0x2
0x3a00…3a0c at0004 = ╱9d╱ EXEC ╱ // 0x3a04 @0x4
0x3a00…3a0c at0005 = ╱52╱R╱ // 0x3a05 @0x5
0x3a00…3a0c at0006 = ╱45╱E╱ // 0x3a06 @0x6
0x3a00…3a0c at0007 = ╱47╱G╱ // 0x3a07 @0x7
0x3a00…3a0c at0008 = ╱4e╱N╱ // 0x3a08 @0x8
0x3a00…3a0c at0009 = ╱32╱2╱ // 0x3a09 @0x9
0x3a00…3a0c at000a = ╱30╱0╱ // 0x3a0a @0xa
0x3a00…3a0c at000b = EOL // 0x3a0b @0xb
0x3a00…3a0c }
0x3a0c…3a1d d00b 03625 LET C9 := D0 ; D7 := D6
0x3a0c…3a1d LineComal80 {
0x3a0c…3a1d ptr = 0xd00b // 0x3a0c @0x0
0x3a0c…3a1d lno = 0x0e29 // 0x3a0e @0x2
0x3a0c…3a1d at0004 = ╱86╱ LET ╱ // 0x3a10 @0x4
0x3a0c…3a1d at0005 = ╱43╱C╱ // 0x3a11 @0x5
0x3a0c…3a1d at0006 = ╱39╱9╱ // 0x3a12 @0x6
0x3a0c…3a1d at0007 = ╱f0╱ := ╱ // 0x3a13 @0x7
0x3a0c…3a1d at0008 = ╱44╱D╱ // 0x3a14 @0x8
0x3a0c…3a1d at0009 = ╱30╱0╱ // 0x3a15 @0x9
0x3a0c…3a1d at000a = ╱ea╱ ; ╱ // 0x3a16 @0xa
0x3a0c…3a1d at000b = ╱44╱D╱ // 0x3a17 @0xb
0x3a0c…3a1d at000c = ╱37╱7╱ // 0x3a18 @0xc
0x3a0c…3a1d at000d = ╱f0╱ := ╱ // 0x3a19 @0xd
0x3a0c…3a1d at000e = ╱44╱D╱ // 0x3a1a @0xe
0x3a0c…3a1d at000f = ╱36╱6╱ // 0x3a1b @0xf
0x3a0c…3a1d at0010 = EOL // 0x3a1c @0x10
0x3a0c…3a1d }
0x3a1d…3a28 d016 03630 ENDPROC REGN4
0x3a1d…3a28 LineComal80 {
0x3a1d…3a28 ptr = 0xd016 // 0x3a1d @0x0
0x3a1d…3a28 lno = 0x0e2e // 0x3a1f @0x2
0x3a1d…3a28 at0004 = ╱9f╱ ENDPROC ╱ // 0x3a21 @0x4
0x3a1d…3a28 at0005 = ╱52╱R╱ // 0x3a22 @0x5
0x3a1d…3a28 at0006 = ╱45╱E╱ // 0x3a23 @0x6
0x3a1d…3a28 at0007 = ╱47╱G╱ // 0x3a24 @0x7
0x3a1d…3a28 at0008 = ╱4e╱N╱ // 0x3a25 @0x8
0x3a1d…3a28 at0009 = ╱34╱4╱ // 0x3a26 @0x9
0x3a1d…3a28 at000a = EOL // 0x3a27 @0xa
0x3a1d…3a28 }
0x3a28…3a34 d022 03635 PROC REGN5
0x3a28…3a34 LineComal80 {
0x3a28…3a34 ptr = 0xd022 // 0x3a28 @0x0
0x3a28…3a34 lno = 0x0e33 // 0x3a2a @0x2
0x3a28…3a34 at0004 = ╱9e00╱ PROC ╱ // 0x3a2c @0x4
0x3a28…3a34 at0006 = ╱52╱R╱ // 0x3a2e @0x6
0x3a28…3a34 at0007 = ╱45╱E╱ // 0x3a2f @0x7
0x3a28…3a34 at0008 = ╱47╱G╱ // 0x3a30 @0x8
0x3a28…3a34 at0009 = ╱4e╱N╱ // 0x3a31 @0x9
0x3a28…3a34 at000a = ╱35╱5╱ // 0x3a32 @0xa
0x3a28…3a34 at000b = EOL // 0x3a33 @0xb
0x3a28…3a34 }
0x3a34…3a3f d02d 03640 LET C7 := C6
0x3a34…3a3f LineComal80 {
0x3a34…3a3f ptr = 0xd02d // 0x3a34 @0x0
0x3a34…3a3f lno = 0x0e38 // 0x3a36 @0x2
0x3a34…3a3f at0004 = ╱86╱ LET ╱ // 0x3a38 @0x4
0x3a34…3a3f at0005 = ╱43╱C╱ // 0x3a39 @0x5
0x3a34…3a3f at0006 = ╱37╱7╱ // 0x3a3a @0x6
0x3a34…3a3f at0007 = ╱f0╱ := ╱ // 0x3a3b @0x7
0x3a34…3a3f at0008 = ╱43╱C╱ // 0x3a3c @0x8
0x3a34…3a3f at0009 = ╱36╱6╱ // 0x3a3d @0x9
0x3a34…3a3f at000a = EOL // 0x3a3e @0xa
0x3a34…3a3f }
0x3a3f…3a4b d039 03645 EXEC REGN25
0x3a3f…3a4b LineComal80 {
0x3a3f…3a4b ptr = 0xd039 // 0x3a3f @0x0
0x3a3f…3a4b lno = 0x0e3d // 0x3a41 @0x2
0x3a3f…3a4b at0004 = ╱9d╱ EXEC ╱ // 0x3a43 @0x4
0x3a3f…3a4b at0005 = ╱52╱R╱ // 0x3a44 @0x5
0x3a3f…3a4b at0006 = ╱45╱E╱ // 0x3a45 @0x6
0x3a3f…3a4b at0007 = ╱47╱G╱ // 0x3a46 @0x7
0x3a3f…3a4b at0008 = ╱4e╱N╱ // 0x3a47 @0x8
0x3a3f…3a4b at0009 = ╱32╱2╱ // 0x3a48 @0x9
0x3a3f…3a4b at000a = ╱35╱5╱ // 0x3a49 @0xa
0x3a3f…3a4b at000b = EOL // 0x3a4a @0xb
0x3a3f…3a4b }
0x3a4b…3a57 d045 03650 EXEC REGN51
0x3a4b…3a57 LineComal80 {
0x3a4b…3a57 ptr = 0xd045 // 0x3a4b @0x0
0x3a4b…3a57 lno = 0x0e42 // 0x3a4d @0x2
0x3a4b…3a57 at0004 = ╱9d╱ EXEC ╱ // 0x3a4f @0x4
0x3a4b…3a57 at0005 = ╱52╱R╱ // 0x3a50 @0x5
0x3a4b…3a57 at0006 = ╱45╱E╱ // 0x3a51 @0x6
0x3a4b…3a57 at0007 = ╱47╱G╱ // 0x3a52 @0x7
0x3a4b…3a57 at0008 = ╱4e╱N╱ // 0x3a53 @0x8
0x3a4b…3a57 at0009 = ╱35╱5╱ // 0x3a54 @0x9
0x3a4b…3a57 at000a = ╱31╱1╱ // 0x3a55 @0xa
0x3a4b…3a57 at000b = EOL // 0x3a56 @0xb
0x3a4b…3a57 }
0x3a57…3a63 d051 03655 EXEC GKIRKE
0x3a57…3a63 LineComal80 {
0x3a57…3a63 ptr = 0xd051 // 0x3a57 @0x0
0x3a57…3a63 lno = 0x0e47 // 0x3a59 @0x2
0x3a57…3a63 at0004 = ╱9d╱ EXEC ╱ // 0x3a5b @0x4
0x3a57…3a63 at0005 = ╱47╱G╱ // 0x3a5c @0x5
0x3a57…3a63 at0006 = ╱4b╱K╱ // 0x3a5d @0x6
0x3a57…3a63 at0007 = ╱49╱I╱ // 0x3a5e @0x7
0x3a57…3a63 at0008 = ╱52╱R╱ // 0x3a5f @0x8
0x3a57…3a63 at0009 = ╱4b╱K╱ // 0x3a60 @0x9
0x3a57…3a63 at000a = ╱45╱E╱ // 0x3a61 @0xa
0x3a57…3a63 at000b = EOL // 0x3a62 @0xb
0x3a57…3a63 }
0x3a63…3a6d d05b 03660 LET D5 := O
0x3a63…3a6d LineComal80 {
0x3a63…3a6d ptr = 0xd05b // 0x3a63 @0x0
0x3a63…3a6d lno = 0x0e4c // 0x3a65 @0x2
0x3a63…3a6d at0004 = ╱86╱ LET ╱ // 0x3a67 @0x4
0x3a63…3a6d at0005 = ╱44╱D╱ // 0x3a68 @0x5
0x3a63…3a6d at0006 = ╱35╱5╱ // 0x3a69 @0x6
0x3a63…3a6d at0007 = ╱f0╱ := ╱ // 0x3a6a @0x7
0x3a63…3a6d at0008 = ╱4f╱O╱ // 0x3a6b @0x8
0x3a63…3a6d at0009 = EOL // 0x3a6c @0x9
0x3a63…3a6d }
0x3a6d…3a84 d072 03665 IF TKB = 1 THEN EXEC REGN30
0x3a6d…3a84 LineComal80 {
0x3a6d…3a84 ptr = 0xd072 // 0x3a6d @0x0
0x3a6d…3a84 lno = 0x0e51 // 0x3a6f @0x2
0x3a6d…3a84 at0004 = ╱8200╱ IF ╱ // 0x3a71 @0x4
0x3a6d…3a84 at0006 = ╱54╱T╱ // 0x3a73 @0x6
0x3a6d…3a84 at0007 = ╱4b╱K╱ // 0x3a74 @0x7
0x3a6d…3a84 at0008 = ╱42╱B╱ // 0x3a75 @0x8
0x3a6d…3a84 at0009 = ╱df╱ = ╱ // 0x3a76 @0x9
0x3a6d…3a84 at000a = ╱31╱1╱ // 0x3a77 @0xa
0x3a6d…3a84 at000b = ╱f20100╱ // 0x3a78 @0xb
0x3a6d…3a84 at000e = ╱b5╱ THEN ╱ // 0x3a7b @0xe
0x3a6d…3a84 at000f = ╱9d╱ EXEC ╱ // 0x3a7c @0xf
0x3a6d…3a84 at0010 = ╱52╱R╱ // 0x3a7d @0x10
0x3a6d…3a84 at0011 = ╱45╱E╱ // 0x3a7e @0x11
0x3a6d…3a84 at0012 = ╱47╱G╱ // 0x3a7f @0x12
0x3a6d…3a84 at0013 = ╱4e╱N╱ // 0x3a80 @0x13
0x3a6d…3a84 at0014 = ╱33╱3╱ // 0x3a81 @0x14
0x3a6d…3a84 at0015 = ╱30╱0╱ // 0x3a82 @0x15
0x3a6d…3a84 at0016 = EOL // 0x3a83 @0x16
0x3a6d…3a84 }
0x3a84…3a90 d07e 03670 EXEC REGN31
0x3a84…3a90 LineComal80 {
0x3a84…3a90 ptr = 0xd07e // 0x3a84 @0x0
0x3a84…3a90 lno = 0x0e56 // 0x3a86 @0x2
0x3a84…3a90 at0004 = ╱9d╱ EXEC ╱ // 0x3a88 @0x4
0x3a84…3a90 at0005 = ╱52╱R╱ // 0x3a89 @0x5
0x3a84…3a90 at0006 = ╱45╱E╱ // 0x3a8a @0x6
0x3a84…3a90 at0007 = ╱47╱G╱ // 0x3a8b @0x7
0x3a84…3a90 at0008 = ╱4e╱N╱ // 0x3a8c @0x8
0x3a84…3a90 at0009 = ╱33╱3╱ // 0x3a8d @0x9
0x3a84…3a90 at000a = ╱31╱1╱ // 0x3a8e @0xa
0x3a84…3a90 at000b = EOL // 0x3a8f @0xb
0x3a84…3a90 }
0x3a90…3a9b d089 03675 LET C8 := P6
0x3a90…3a9b LineComal80 {
0x3a90…3a9b ptr = 0xd089 // 0x3a90 @0x0
0x3a90…3a9b lno = 0x0e5b // 0x3a92 @0x2
0x3a90…3a9b at0004 = ╱86╱ LET ╱ // 0x3a94 @0x4
0x3a90…3a9b at0005 = ╱43╱C╱ // 0x3a95 @0x5
0x3a90…3a9b at0006 = ╱38╱8╱ // 0x3a96 @0x6
0x3a90…3a9b at0007 = ╱f0╱ := ╱ // 0x3a97 @0x7
0x3a90…3a9b at0008 = ╱50╱P╱ // 0x3a98 @0x8
0x3a90…3a9b at0009 = ╱36╱6╱ // 0x3a99 @0x9
0x3a90…3a9b at000a = EOL // 0x3a9a @0xa
0x3a90…3a9b }
0x3a9b…3aad d09b 03680 IF T3 = O THEN LET C8 := P3
0x3a9b…3aad LineComal80 {
0x3a9b…3aad ptr = 0xd09b // 0x3a9b @0x0
0x3a9b…3aad lno = 0x0e60 // 0x3a9d @0x2
0x3a9b…3aad at0004 = ╱8200╱ IF ╱ // 0x3a9f @0x4
0x3a9b…3aad at0006 = ╱54╱T╱ // 0x3aa1 @0x6
0x3a9b…3aad at0007 = ╱33╱3╱ // 0x3aa2 @0x7
0x3a9b…3aad at0008 = ╱df╱ = ╱ // 0x3aa3 @0x8
0x3a9b…3aad at0009 = ╱4f╱O╱ // 0x3aa4 @0x9
0x3a9b…3aad at000a = ╱b5╱ THEN ╱ // 0x3aa5 @0xa
0x3a9b…3aad at000b = ╱86╱ LET ╱ // 0x3aa6 @0xb
0x3a9b…3aad at000c = ╱43╱C╱ // 0x3aa7 @0xc
0x3a9b…3aad at000d = ╱38╱8╱ // 0x3aa8 @0xd
0x3a9b…3aad at000e = ╱f0╱ := ╱ // 0x3aa9 @0xe
0x3a9b…3aad at000f = ╱50╱P╱ // 0x3aaa @0xf
0x3a9b…3aad at0010 = ╱33╱3╱ // 0x3aab @0x10
0x3a9b…3aad at0011 = EOL // 0x3aac @0x11
0x3a9b…3aad }
0x3aad…3ab9 d0a7 03685 EXEC REGN50
0x3aad…3ab9 LineComal80 {
0x3aad…3ab9 ptr = 0xd0a7 // 0x3aad @0x0
0x3aad…3ab9 lno = 0x0e65 // 0x3aaf @0x2
0x3aad…3ab9 at0004 = ╱9d╱ EXEC ╱ // 0x3ab1 @0x4
0x3aad…3ab9 at0005 = ╱52╱R╱ // 0x3ab2 @0x5
0x3aad…3ab9 at0006 = ╱45╱E╱ // 0x3ab3 @0x6
0x3aad…3ab9 at0007 = ╱47╱G╱ // 0x3ab4 @0x7
0x3aad…3ab9 at0008 = ╱4e╱N╱ // 0x3ab5 @0x8
0x3aad…3ab9 at0009 = ╱35╱5╱ // 0x3ab6 @0x9
0x3aad…3ab9 at000a = ╱30╱0╱ // 0x3ab7 @0xa
0x3aad…3ab9 at000b = EOL // 0x3ab8 @0xb
0x3aad…3ab9 }
0x3ab9…3ac5 d0b3 03690 EXEC REGN21
0x3ab9…3ac5 LineComal80 {
0x3ab9…3ac5 ptr = 0xd0b3 // 0x3ab9 @0x0
0x3ab9…3ac5 lno = 0x0e6a // 0x3abb @0x2
0x3ab9…3ac5 at0004 = ╱9d╱ EXEC ╱ // 0x3abd @0x4
0x3ab9…3ac5 at0005 = ╱52╱R╱ // 0x3abe @0x5
0x3ab9…3ac5 at0006 = ╱45╱E╱ // 0x3abf @0x6
0x3ab9…3ac5 at0007 = ╱47╱G╱ // 0x3ac0 @0x7
0x3ab9…3ac5 at0008 = ╱4e╱N╱ // 0x3ac1 @0x8
0x3ab9…3ac5 at0009 = ╱32╱2╱ // 0x3ac2 @0x9
0x3ab9…3ac5 at000a = ╱31╱1╱ // 0x3ac3 @0xa
0x3ab9…3ac5 at000b = EOL // 0x3ac4 @0xb
0x3ab9…3ac5 }
0x3ac5…3ad6 d0c4 03695 LET C0 := D0 ; D9 := D6
0x3ac5…3ad6 LineComal80 {
0x3ac5…3ad6 ptr = 0xd0c4 // 0x3ac5 @0x0
0x3ac5…3ad6 lno = 0x0e6f // 0x3ac7 @0x2
0x3ac5…3ad6 at0004 = ╱86╱ LET ╱ // 0x3ac9 @0x4
0x3ac5…3ad6 at0005 = ╱43╱C╱ // 0x3aca @0x5
0x3ac5…3ad6 at0006 = ╱30╱0╱ // 0x3acb @0x6
0x3ac5…3ad6 at0007 = ╱f0╱ := ╱ // 0x3acc @0x7
0x3ac5…3ad6 at0008 = ╱44╱D╱ // 0x3acd @0x8
0x3ac5…3ad6 at0009 = ╱30╱0╱ // 0x3ace @0x9
0x3ac5…3ad6 at000a = ╱ea╱ ; ╱ // 0x3acf @0xa
0x3ac5…3ad6 at000b = ╱44╱D╱ // 0x3ad0 @0xb
0x3ac5…3ad6 at000c = ╱39╱9╱ // 0x3ad1 @0xc
0x3ac5…3ad6 at000d = ╱f0╱ := ╱ // 0x3ad2 @0xd
0x3ac5…3ad6 at000e = ╱44╱D╱ // 0x3ad3 @0xe
0x3ac5…3ad6 at000f = ╱36╱6╱ // 0x3ad4 @0xf
0x3ac5…3ad6 at0010 = EOL // 0x3ad5 @0x10
0x3ac5…3ad6 }
0x3ad6…3ae1 d0cf 03700 ENDPROC REGN5
0x3ad6…3ae1 LineComal80 {
0x3ad6…3ae1 ptr = 0xd0cf // 0x3ad6 @0x0
0x3ad6…3ae1 lno = 0x0e74 // 0x3ad8 @0x2
0x3ad6…3ae1 at0004 = ╱9f╱ ENDPROC ╱ // 0x3ada @0x4
0x3ad6…3ae1 at0005 = ╱52╱R╱ // 0x3adb @0x5
0x3ad6…3ae1 at0006 = ╱45╱E╱ // 0x3adc @0x6
0x3ad6…3ae1 at0007 = ╱47╱G╱ // 0x3add @0x7
0x3ad6…3ae1 at0008 = ╱4e╱N╱ // 0x3ade @0x8
0x3ad6…3ae1 at0009 = ╱35╱5╱ // 0x3adf @0x9
0x3ad6…3ae1 at000a = EOL // 0x3ae0 @0xa
0x3ad6…3ae1 }
0x3ae1…3aed d0db 03705 PROC REGN7
0x3ae1…3aed LineComal80 {
0x3ae1…3aed ptr = 0xd0db // 0x3ae1 @0x0
0x3ae1…3aed lno = 0x0e79 // 0x3ae3 @0x2
0x3ae1…3aed at0004 = ╱9e00╱ PROC ╱ // 0x3ae5 @0x4
0x3ae1…3aed at0006 = ╱52╱R╱ // 0x3ae7 @0x6
0x3ae1…3aed at0007 = ╱45╱E╱ // 0x3ae8 @0x7
0x3ae1…3aed at0008 = ╱47╱G╱ // 0x3ae9 @0x8
0x3ae1…3aed at0009 = ╱4e╱N╱ // 0x3aea @0x9
0x3ae1…3aed at000a = ╱37╱7╱ // 0x3aeb @0xa
0x3ae1…3aed at000b = EOL // 0x3aec @0xb
0x3ae1…3aed }
0x3aed…3b1e d10c 03710 IF HD1 + HD2 + HDA2 < 0 AND HD3 + HD4 + HD5 > 0 THEN EXEC MSSIKS
0x3aed…3b1e LineComal80 {
0x3aed…3b1e ptr = 0xd10c // 0x3aed @0x0
0x3aed…3b1e lno = 0x0e7e // 0x3aef @0x2
0x3aed…3b1e at0004 = ╱8200╱ IF ╱ // 0x3af1 @0x4
0x3aed…3b1e at0006 = ╱48╱H╱ // 0x3af3 @0x6
0x3aed…3b1e at0007 = ╱44╱D╱ // 0x3af4 @0x7
0x3aed…3b1e at0008 = ╱31╱1╱ // 0x3af5 @0x8
0x3aed…3b1e at0009 = ╱e5╱ + ╱ // 0x3af6 @0x9
0x3aed…3b1e at000a = ╱48╱H╱ // 0x3af7 @0xa
0x3aed…3b1e at000b = ╱44╱D╱ // 0x3af8 @0xb
0x3aed…3b1e at000c = ╱32╱2╱ // 0x3af9 @0xc
0x3aed…3b1e at000d = ╱e5╱ + ╱ // 0x3afa @0xd
0x3aed…3b1e at000e = ╱48╱H╱ // 0x3afb @0xe
0x3aed…3b1e at000f = ╱44╱D╱ // 0x3afc @0xf
0x3aed…3b1e at0010 = ╱41╱A╱ // 0x3afd @0x10
0x3aed…3b1e at0011 = ╱32╱2╱ // 0x3afe @0x11
0x3aed…3b1e at0012 = ╱e0╱ < ╱ // 0x3aff @0x12
0x3aed…3b1e at0013 = ╱30╱0╱ // 0x3b00 @0x13
0x3aed…3b1e at0014 = ╱f20000╱ // 0x3b01 @0x14
0x3aed…3b1e at0017 = ╱d9╱ AND ╱ // 0x3b04 @0x17
0x3aed…3b1e at0018 = ╱48╱H╱ // 0x3b05 @0x18
0x3aed…3b1e at0019 = ╱44╱D╱ // 0x3b06 @0x19
0x3aed…3b1e at001a = ╱33╱3╱ // 0x3b07 @0x1a
0x3aed…3b1e at001b = ╱e5╱ + ╱ // 0x3b08 @0x1b
0x3aed…3b1e at001c = ╱48╱H╱ // 0x3b09 @0x1c
0x3aed…3b1e at001d = ╱44╱D╱ // 0x3b0a @0x1d
0x3aed…3b1e at001e = ╱34╱4╱ // 0x3b0b @0x1e
0x3aed…3b1e at001f = ╱e5╱ + ╱ // 0x3b0c @0x1f
0x3aed…3b1e at0020 = ╱48╱H╱ // 0x3b0d @0x20
0x3aed…3b1e at0021 = ╱44╱D╱ // 0x3b0e @0x21
0x3aed…3b1e at0022 = ╱35╱5╱ // 0x3b0f @0x22
0x3aed…3b1e at0023 = ╱e1╱ > ╱ // 0x3b10 @0x23
0x3aed…3b1e at0024 = ╱30╱0╱ // 0x3b11 @0x24
0x3aed…3b1e at0025 = ╱f20000╱ // 0x3b12 @0x25
0x3aed…3b1e at0028 = ╱b5╱ THEN ╱ // 0x3b15 @0x28
0x3aed…3b1e at0029 = ╱9d╱ EXEC ╱ // 0x3b16 @0x29
0x3aed…3b1e at002a = ╱4d╱M╱ // 0x3b17 @0x2a
0x3aed…3b1e at002b = ╱53╱S╱ // 0x3b18 @0x2b
0x3aed…3b1e at002c = ╱53╱S╱ // 0x3b19 @0x2c
0x3aed…3b1e at002d = ╱49╱I╱ // 0x3b1a @0x2d
0x3aed…3b1e at002e = ╱4b╱K╱ // 0x3b1b @0x2e
0x3aed…3b1e at002f = ╱53╱S╱ // 0x3b1c @0x2f
0x3aed…3b1e at0030 = EOL // 0x3b1d @0x30
0x3aed…3b1e }
0x3b1e…3b2a d118 03715 IF 2 = O THEN
0x3b1e…3b2a LineComal80 {
0x3b1e…3b2a ptr = 0xd118 // 0x3b1e @0x0
0x3b1e…3b2a lno = 0x0e83 // 0x3b20 @0x2
0x3b1e…3b2a at0004 = ╱9b0054╱ IF ╱ // 0x3b22 @0x4
0x3b1e…3b2a at0007 = ╱32╱2╱ // 0x3b25 @0x7
0x3b1e…3b2a at0008 = ╱df╱ = ╱ // 0x3b26 @0x8
0x3b1e…3b2a at0009 = ╱4f╱O╱ // 0x3b27 @0x9
0x3b1e…3b2a at000a = ╱b5╱ THEN ╱ // 0x3b28 @0xa
0x3b1e…3b2a at000b = EOL // 0x3b29 @0xb
0x3b1e…3b2a }
0x3b2a…3b4c d13a 03720 LET HD6 := HD1 + HD2 + HDA2 + HD3 + HD4 + HD5
0x3b2a…3b4c LineComal80 {
0x3b2a…3b4c ptr = 0xd13a // 0x3b2a @0x0
0x3b2a…3b4c lno = 0x0e88 // 0x3b2c @0x2
0x3b2a…3b4c at0004 = ╱86╱ LET ╱ // 0x3b2e @0x4
0x3b2a…3b4c at0005 = ╱48╱H╱ // 0x3b2f @0x5
0x3b2a…3b4c at0006 = ╱44╱D╱ // 0x3b30 @0x6
0x3b2a…3b4c at0007 = ╱36╱6╱ // 0x3b31 @0x7
0x3b2a…3b4c at0008 = ╱f0╱ := ╱ // 0x3b32 @0x8
0x3b2a…3b4c at0009 = ╱48╱H╱ // 0x3b33 @0x9
0x3b2a…3b4c at000a = ╱44╱D╱ // 0x3b34 @0xa
0x3b2a…3b4c at000b = ╱31╱1╱ // 0x3b35 @0xb
0x3b2a…3b4c at000c = ╱e5╱ + ╱ // 0x3b36 @0xc
0x3b2a…3b4c at000d = ╱48╱H╱ // 0x3b37 @0xd
0x3b2a…3b4c at000e = ╱44╱D╱ // 0x3b38 @0xe
0x3b2a…3b4c at000f = ╱32╱2╱ // 0x3b39 @0xf
0x3b2a…3b4c at0010 = ╱e5╱ + ╱ // 0x3b3a @0x10
0x3b2a…3b4c at0011 = ╱48╱H╱ // 0x3b3b @0x11
0x3b2a…3b4c at0012 = ╱44╱D╱ // 0x3b3c @0x12
0x3b2a…3b4c at0013 = ╱41╱A╱ // 0x3b3d @0x13
0x3b2a…3b4c at0014 = ╱32╱2╱ // 0x3b3e @0x14
0x3b2a…3b4c at0015 = ╱e5╱ + ╱ // 0x3b3f @0x15
0x3b2a…3b4c at0016 = ╱48╱H╱ // 0x3b40 @0x16
0x3b2a…3b4c at0017 = ╱44╱D╱ // 0x3b41 @0x17
0x3b2a…3b4c at0018 = ╱33╱3╱ // 0x3b42 @0x18
0x3b2a…3b4c at0019 = ╱e5╱ + ╱ // 0x3b43 @0x19
0x3b2a…3b4c at001a = ╱48╱H╱ // 0x3b44 @0x1a
0x3b2a…3b4c at001b = ╱44╱D╱ // 0x3b45 @0x1b
0x3b2a…3b4c at001c = ╱34╱4╱ // 0x3b46 @0x1c
0x3b2a…3b4c at001d = ╱e5╱ + ╱ // 0x3b47 @0x1d
0x3b2a…3b4c at001e = ╱48╱H╱ // 0x3b48 @0x1e
0x3b2a…3b4c at001f = ╱44╱D╱ // 0x3b49 @0x1f
0x3b2a…3b4c at0020 = ╱35╱5╱ // 0x3b4a @0x20
0x3b2a…3b4c at0021 = EOL // 0x3b4b @0x21
0x3b2a…3b4c }
0x3b4c…3b84 d172 03725 IF HD6 =< O THEN LET HD1 := O ; HD2 := O ; HDA2 := O ; HD3 := O ; HD4 := O ; HD5 := O ; HD6 := O
0x3b4c…3b84 LineComal80 {
0x3b4c…3b84 ptr = 0xd172 // 0x3b4c @0x0
0x3b4c…3b84 lno = 0x0e8d // 0x3b4e @0x2
0x3b4c…3b84 at0004 = ╱8200╱ IF ╱ // 0x3b50 @0x4
0x3b4c…3b84 at0006 = ╱48╱H╱ // 0x3b52 @0x6
0x3b4c…3b84 at0007 = ╱44╱D╱ // 0x3b53 @0x7
0x3b4c…3b84 at0008 = ╱36╱6╱ // 0x3b54 @0x8
0x3b4c…3b84 at0009 = ╱e2╱ =< ╱ // 0x3b55 @0x9
0x3b4c…3b84 at000a = ╱4f╱O╱ // 0x3b56 @0xa
0x3b4c…3b84 at000b = ╱b5╱ THEN ╱ // 0x3b57 @0xb
0x3b4c…3b84 at000c = ╱86╱ LET ╱ // 0x3b58 @0xc
0x3b4c…3b84 at000d = ╱48╱H╱ // 0x3b59 @0xd
0x3b4c…3b84 at000e = ╱44╱D╱ // 0x3b5a @0xe
0x3b4c…3b84 at000f = ╱31╱1╱ // 0x3b5b @0xf
0x3b4c…3b84 at0010 = ╱f0╱ := ╱ // 0x3b5c @0x10
0x3b4c…3b84 at0011 = ╱4f╱O╱ // 0x3b5d @0x11
0x3b4c…3b84 at0012 = ╱ea╱ ; ╱ // 0x3b5e @0x12
0x3b4c…3b84 at0013 = ╱48╱H╱ // 0x3b5f @0x13
0x3b4c…3b84 at0014 = ╱44╱D╱ // 0x3b60 @0x14
0x3b4c…3b84 at0015 = ╱32╱2╱ // 0x3b61 @0x15
0x3b4c…3b84 at0016 = ╱f0╱ := ╱ // 0x3b62 @0x16
0x3b4c…3b84 at0017 = ╱4f╱O╱ // 0x3b63 @0x17
0x3b4c…3b84 at0018 = ╱ea╱ ; ╱ // 0x3b64 @0x18
0x3b4c…3b84 at0019 = ╱48╱H╱ // 0x3b65 @0x19
0x3b4c…3b84 at001a = ╱44╱D╱ // 0x3b66 @0x1a
0x3b4c…3b84 at001b = ╱41╱A╱ // 0x3b67 @0x1b
0x3b4c…3b84 at001c = ╱32╱2╱ // 0x3b68 @0x1c
0x3b4c…3b84 at001d = ╱f0╱ := ╱ // 0x3b69 @0x1d
0x3b4c…3b84 at001e = ╱4f╱O╱ // 0x3b6a @0x1e
0x3b4c…3b84 at001f = ╱ea╱ ; ╱ // 0x3b6b @0x1f
0x3b4c…3b84 at0020 = ╱48╱H╱ // 0x3b6c @0x20
0x3b4c…3b84 at0021 = ╱44╱D╱ // 0x3b6d @0x21
0x3b4c…3b84 at0022 = ╱33╱3╱ // 0x3b6e @0x22
0x3b4c…3b84 at0023 = ╱f0╱ := ╱ // 0x3b6f @0x23
0x3b4c…3b84 at0024 = ╱4f╱O╱ // 0x3b70 @0x24
0x3b4c…3b84 at0025 = ╱ea╱ ; ╱ // 0x3b71 @0x25
0x3b4c…3b84 at0026 = ╱48╱H╱ // 0x3b72 @0x26
0x3b4c…3b84 at0027 = ╱44╱D╱ // 0x3b73 @0x27
0x3b4c…3b84 at0028 = ╱34╱4╱ // 0x3b74 @0x28
0x3b4c…3b84 at0029 = ╱f0╱ := ╱ // 0x3b75 @0x29
0x3b4c…3b84 at002a = ╱4f╱O╱ // 0x3b76 @0x2a
0x3b4c…3b84 at002b = ╱ea╱ ; ╱ // 0x3b77 @0x2b
0x3b4c…3b84 at002c = ╱48╱H╱ // 0x3b78 @0x2c
0x3b4c…3b84 at002d = ╱44╱D╱ // 0x3b79 @0x2d
0x3b4c…3b84 at002e = ╱35╱5╱ // 0x3b7a @0x2e
0x3b4c…3b84 at002f = ╱f0╱ := ╱ // 0x3b7b @0x2f
0x3b4c…3b84 at0030 = ╱4f╱O╱ // 0x3b7c @0x30
0x3b4c…3b84 at0031 = ╱ea╱ ; ╱ // 0x3b7d @0x31
0x3b4c…3b84 at0032 = ╱48╱H╱ // 0x3b7e @0x32
0x3b4c…3b84 at0033 = ╱44╱D╱ // 0x3b7f @0x33
0x3b4c…3b84 at0034 = ╱36╱6╱ // 0x3b80 @0x34
0x3b4c…3b84 at0035 = ╱f0╱ := ╱ // 0x3b81 @0x35
0x3b4c…3b84 at0036 = ╱4f╱O╱ // 0x3b82 @0x36
0x3b4c…3b84 at0037 = EOL // 0x3b83 @0x37
0x3b4c…3b84 }
0x3b84…3b8b d179 03730 ELSE
0x3b84…3b8b LineComal80 {
0x3b84…3b8b ptr = 0xd179 // 0x3b84 @0x0
0x3b84…3b8b lno = 0x0e92 // 0x3b86 @0x2
0x3b84…3b8b at0004 = ╱9a00╱ ELSE ╱ // 0x3b88 @0x4
0x3b84…3b8b at0006 = EOL // 0x3b8a @0x6
0x3b84…3b8b }
0x3b8b…3bbd d1ab 03735 IF HD1 + HD2 + HDA2 < 0 AND HD3 + HD4 + HD5 > 0 THEN EXEC MSSIKS1
0x3b8b…3bbd LineComal80 {
0x3b8b…3bbd ptr = 0xd1ab // 0x3b8b @0x0
0x3b8b…3bbd lno = 0x0e97 // 0x3b8d @0x2
0x3b8b…3bbd at0004 = ╱8200╱ IF ╱ // 0x3b8f @0x4
0x3b8b…3bbd at0006 = ╱48╱H╱ // 0x3b91 @0x6
0x3b8b…3bbd at0007 = ╱44╱D╱ // 0x3b92 @0x7
0x3b8b…3bbd at0008 = ╱31╱1╱ // 0x3b93 @0x8
0x3b8b…3bbd at0009 = ╱e5╱ + ╱ // 0x3b94 @0x9
0x3b8b…3bbd at000a = ╱48╱H╱ // 0x3b95 @0xa
0x3b8b…3bbd at000b = ╱44╱D╱ // 0x3b96 @0xb
0x3b8b…3bbd at000c = ╱32╱2╱ // 0x3b97 @0xc
0x3b8b…3bbd at000d = ╱e5╱ + ╱ // 0x3b98 @0xd
0x3b8b…3bbd at000e = ╱48╱H╱ // 0x3b99 @0xe
0x3b8b…3bbd at000f = ╱44╱D╱ // 0x3b9a @0xf
0x3b8b…3bbd at0010 = ╱41╱A╱ // 0x3b9b @0x10
0x3b8b…3bbd at0011 = ╱32╱2╱ // 0x3b9c @0x11
0x3b8b…3bbd at0012 = ╱e0╱ < ╱ // 0x3b9d @0x12
0x3b8b…3bbd at0013 = ╱30╱0╱ // 0x3b9e @0x13
0x3b8b…3bbd at0014 = ╱f20000╱ // 0x3b9f @0x14
0x3b8b…3bbd at0017 = ╱d9╱ AND ╱ // 0x3ba2 @0x17
0x3b8b…3bbd at0018 = ╱48╱H╱ // 0x3ba3 @0x18
0x3b8b…3bbd at0019 = ╱44╱D╱ // 0x3ba4 @0x19
0x3b8b…3bbd at001a = ╱33╱3╱ // 0x3ba5 @0x1a
0x3b8b…3bbd at001b = ╱e5╱ + ╱ // 0x3ba6 @0x1b
0x3b8b…3bbd at001c = ╱48╱H╱ // 0x3ba7 @0x1c
0x3b8b…3bbd at001d = ╱44╱D╱ // 0x3ba8 @0x1d
0x3b8b…3bbd at001e = ╱34╱4╱ // 0x3ba9 @0x1e
0x3b8b…3bbd at001f = ╱e5╱ + ╱ // 0x3baa @0x1f
0x3b8b…3bbd at0020 = ╱48╱H╱ // 0x3bab @0x20
0x3b8b…3bbd at0021 = ╱44╱D╱ // 0x3bac @0x21
0x3b8b…3bbd at0022 = ╱35╱5╱ // 0x3bad @0x22
0x3b8b…3bbd at0023 = ╱e1╱ > ╱ // 0x3bae @0x23
0x3b8b…3bbd at0024 = ╱30╱0╱ // 0x3baf @0x24
0x3b8b…3bbd at0025 = ╱f20000╱ // 0x3bb0 @0x25
0x3b8b…3bbd at0028 = ╱b5╱ THEN ╱ // 0x3bb3 @0x28
0x3b8b…3bbd at0029 = ╱9d╱ EXEC ╱ // 0x3bb4 @0x29
0x3b8b…3bbd at002a = ╱4d╱M╱ // 0x3bb5 @0x2a
0x3b8b…3bbd at002b = ╱53╱S╱ // 0x3bb6 @0x2b
0x3b8b…3bbd at002c = ╱53╱S╱ // 0x3bb7 @0x2c
0x3b8b…3bbd at002d = ╱49╱I╱ // 0x3bb8 @0x2d
0x3b8b…3bbd at002e = ╱4b╱K╱ // 0x3bb9 @0x2e
0x3b8b…3bbd at002f = ╱53╱S╱ // 0x3bba @0x2f
0x3b8b…3bbd at0030 = ╱31╱1╱ // 0x3bbb @0x30
0x3b8b…3bbd at0031 = EOL // 0x3bbc @0x31
0x3b8b…3bbd }
0x3bbd…3bca d1b8 03740 IF D1 < O THEN
0x3bbd…3bca LineComal80 {
0x3bbd…3bca ptr = 0xd1b8 // 0x3bbd @0x0
0x3bbd…3bca lno = 0x0e9c // 0x3bbf @0x2
0x3bbd…3bca at0004 = ╱9b0048╱ IF ╱ // 0x3bc1 @0x4
0x3bbd…3bca at0007 = ╱44╱D╱ // 0x3bc4 @0x7
0x3bbd…3bca at0008 = ╱31╱1╱ // 0x3bc5 @0x8
0x3bbd…3bca at0009 = ╱e0╱ < ╱ // 0x3bc6 @0x9
0x3bbd…3bca at000a = ╱4f╱O╱ // 0x3bc7 @0xa
0x3bbd…3bca at000b = ╱b5╱ THEN ╱ // 0x3bc8 @0xb
0x3bbd…3bca at000c = EOL // 0x3bc9 @0xc
0x3bbd…3bca }
0x3bca…3be1 d1cf 03745 LET BD1 := BD1 + HD1 ; HD1 := O
0x3bca…3be1 LineComal80 {
0x3bca…3be1 ptr = 0xd1cf // 0x3bca @0x0
0x3bca…3be1 lno = 0x0ea1 // 0x3bcc @0x2
0x3bca…3be1 at0004 = ╱86╱ LET ╱ // 0x3bce @0x4
0x3bca…3be1 at0005 = ╱42╱B╱ // 0x3bcf @0x5
0x3bca…3be1 at0006 = ╱44╱D╱ // 0x3bd0 @0x6
0x3bca…3be1 at0007 = ╱31╱1╱ // 0x3bd1 @0x7
0x3bca…3be1 at0008 = ╱f0╱ := ╱ // 0x3bd2 @0x8
0x3bca…3be1 at0009 = ╱42╱B╱ // 0x3bd3 @0x9
0x3bca…3be1 at000a = ╱44╱D╱ // 0x3bd4 @0xa
0x3bca…3be1 at000b = ╱31╱1╱ // 0x3bd5 @0xb
0x3bca…3be1 at000c = ╱e5╱ + ╱ // 0x3bd6 @0xc
0x3bca…3be1 at000d = ╱48╱H╱ // 0x3bd7 @0xd
0x3bca…3be1 at000e = ╱44╱D╱ // 0x3bd8 @0xe
0x3bca…3be1 at000f = ╱31╱1╱ // 0x3bd9 @0xf
0x3bca…3be1 at0010 = ╱ea╱ ; ╱ // 0x3bda @0x10
0x3bca…3be1 at0011 = ╱48╱H╱ // 0x3bdb @0x11
0x3bca…3be1 at0012 = ╱44╱D╱ // 0x3bdc @0x12
0x3bca…3be1 at0013 = ╱31╱1╱ // 0x3bdd @0x13
0x3bca…3be1 at0014 = ╱f0╱ := ╱ // 0x3bde @0x14
0x3bca…3be1 at0015 = ╱4f╱O╱ // 0x3bdf @0x15
0x3bca…3be1 at0016 = EOL // 0x3be0 @0x16
0x3bca…3be1 }
0x3be1…3bf4 d1e2 03750 IF BD1 < O THEN LET BD1 := O
0x3be1…3bf4 LineComal80 {
0x3be1…3bf4 ptr = 0xd1e2 // 0x3be1 @0x0
0x3be1…3bf4 lno = 0x0ea6 // 0x3be3 @0x2
0x3be1…3bf4 at0004 = ╱8200╱ IF ╱ // 0x3be5 @0x4
0x3be1…3bf4 at0006 = ╱42╱B╱ // 0x3be7 @0x6
0x3be1…3bf4 at0007 = ╱44╱D╱ // 0x3be8 @0x7
0x3be1…3bf4 at0008 = ╱31╱1╱ // 0x3be9 @0x8
0x3be1…3bf4 at0009 = ╱e0╱ < ╱ // 0x3bea @0x9
0x3be1…3bf4 at000a = ╱4f╱O╱ // 0x3beb @0xa
0x3be1…3bf4 at000b = ╱b5╱ THEN ╱ // 0x3bec @0xb
0x3be1…3bf4 at000c = ╱86╱ LET ╱ // 0x3bed @0xc
0x3be1…3bf4 at000d = ╱42╱B╱ // 0x3bee @0xd
0x3be1…3bf4 at000e = ╱44╱D╱ // 0x3bef @0xe
0x3be1…3bf4 at000f = ╱31╱1╱ // 0x3bf0 @0xf
0x3be1…3bf4 at0010 = ╱f0╱ := ╱ // 0x3bf1 @0x10
0x3be1…3bf4 at0011 = ╱4f╱O╱ // 0x3bf2 @0x11
0x3be1…3bf4 at0012 = EOL // 0x3bf3 @0x12
0x3be1…3bf4 }
0x3bf4…3bfa d1e8 03755 ENDIF
0x3bf4…3bfa LineComal80 {
0x3bf4…3bfa ptr = 0xd1e8 // 0x3bf4 @0x0
0x3bf4…3bfa lno = 0x0eab // 0x3bf6 @0x2
0x3bf4…3bfa at0004 = ╱9c╱ ENDIF ╱ // 0x3bf8 @0x4
0x3bf4…3bfa at0005 = EOL // 0x3bf9 @0x5
0x3bf4…3bfa }
0x3bfa…3c07 d1f5 03760 IF D2 < O THEN
0x3bfa…3c07 LineComal80 {
0x3bfa…3c07 ptr = 0xd1f5 // 0x3bfa @0x0
0x3bfa…3c07 lno = 0x0eb0 // 0x3bfc @0x2
0x3bfa…3c07 at0004 = ╱9b0048╱ IF ╱ // 0x3bfe @0x4
0x3bfa…3c07 at0007 = ╱44╱D╱ // 0x3c01 @0x7
0x3bfa…3c07 at0008 = ╱32╱2╱ // 0x3c02 @0x8
0x3bfa…3c07 at0009 = ╱e0╱ < ╱ // 0x3c03 @0x9
0x3bfa…3c07 at000a = ╱4f╱O╱ // 0x3c04 @0xa
0x3bfa…3c07 at000b = ╱b5╱ THEN ╱ // 0x3c05 @0xb
0x3bfa…3c07 at000c = EOL // 0x3c06 @0xc
0x3bfa…3c07 }
0x3c07…3c1e d20c 03765 LET BD2 := BD2 + HD2 ; HD2 := O
0x3c07…3c1e LineComal80 {
0x3c07…3c1e ptr = 0xd20c // 0x3c07 @0x0
0x3c07…3c1e lno = 0x0eb5 // 0x3c09 @0x2
0x3c07…3c1e at0004 = ╱86╱ LET ╱ // 0x3c0b @0x4
0x3c07…3c1e at0005 = ╱42╱B╱ // 0x3c0c @0x5
0x3c07…3c1e at0006 = ╱44╱D╱ // 0x3c0d @0x6
0x3c07…3c1e at0007 = ╱32╱2╱ // 0x3c0e @0x7
0x3c07…3c1e at0008 = ╱f0╱ := ╱ // 0x3c0f @0x8
0x3c07…3c1e at0009 = ╱42╱B╱ // 0x3c10 @0x9
0x3c07…3c1e at000a = ╱44╱D╱ // 0x3c11 @0xa
0x3c07…3c1e at000b = ╱32╱2╱ // 0x3c12 @0xb
0x3c07…3c1e at000c = ╱e5╱ + ╱ // 0x3c13 @0xc
0x3c07…3c1e at000d = ╱48╱H╱ // 0x3c14 @0xd
0x3c07…3c1e at000e = ╱44╱D╱ // 0x3c15 @0xe
0x3c07…3c1e at000f = ╱32╱2╱ // 0x3c16 @0xf
0x3c07…3c1e at0010 = ╱ea╱ ; ╱ // 0x3c17 @0x10
0x3c07…3c1e at0011 = ╱48╱H╱ // 0x3c18 @0x11
0x3c07…3c1e at0012 = ╱44╱D╱ // 0x3c19 @0x12
0x3c07…3c1e at0013 = ╱32╱2╱ // 0x3c1a @0x13
0x3c07…3c1e at0014 = ╱f0╱ := ╱ // 0x3c1b @0x14
0x3c07…3c1e at0015 = ╱4f╱O╱ // 0x3c1c @0x15
0x3c07…3c1e at0016 = EOL // 0x3c1d @0x16
0x3c07…3c1e }
0x3c1e…3c31 d21f 03770 IF BD2 < O THEN LET BD2 := O
0x3c1e…3c31 LineComal80 {
0x3c1e…3c31 ptr = 0xd21f // 0x3c1e @0x0
0x3c1e…3c31 lno = 0x0eba // 0x3c20 @0x2
0x3c1e…3c31 at0004 = ╱8200╱ IF ╱ // 0x3c22 @0x4
0x3c1e…3c31 at0006 = ╱42╱B╱ // 0x3c24 @0x6
0x3c1e…3c31 at0007 = ╱44╱D╱ // 0x3c25 @0x7
0x3c1e…3c31 at0008 = ╱32╱2╱ // 0x3c26 @0x8
0x3c1e…3c31 at0009 = ╱e0╱ < ╱ // 0x3c27 @0x9
0x3c1e…3c31 at000a = ╱4f╱O╱ // 0x3c28 @0xa
0x3c1e…3c31 at000b = ╱b5╱ THEN ╱ // 0x3c29 @0xb
0x3c1e…3c31 at000c = ╱86╱ LET ╱ // 0x3c2a @0xc
0x3c1e…3c31 at000d = ╱42╱B╱ // 0x3c2b @0xd
0x3c1e…3c31 at000e = ╱44╱D╱ // 0x3c2c @0xe
0x3c1e…3c31 at000f = ╱32╱2╱ // 0x3c2d @0xf
0x3c1e…3c31 at0010 = ╱f0╱ := ╱ // 0x3c2e @0x10
0x3c1e…3c31 at0011 = ╱4f╱O╱ // 0x3c2f @0x11
0x3c1e…3c31 at0012 = EOL // 0x3c30 @0x12
0x3c1e…3c31 }
0x3c31…3c37 d225 03775 ENDIF
0x3c31…3c37 LineComal80 {
0x3c31…3c37 ptr = 0xd225 // 0x3c31 @0x0
0x3c31…3c37 lno = 0x0ebf // 0x3c33 @0x2
0x3c31…3c37 at0004 = ╱9c╱ ENDIF ╱ // 0x3c35 @0x4
0x3c31…3c37 at0005 = EOL // 0x3c36 @0x5
0x3c31…3c37 }
0x3c37…3c45 d233 03780 IF DA2 < O THEN
0x3c37…3c45 LineComal80 {
0x3c37…3c45 ptr = 0xd233 // 0x3c37 @0x0
0x3c37…3c45 lno = 0x0ec4 // 0x3c39 @0x2
0x3c37…3c45 at0004 = ╱9b0048╱ IF ╱ // 0x3c3b @0x4
0x3c37…3c45 at0007 = ╱44╱D╱ // 0x3c3e @0x7
0x3c37…3c45 at0008 = ╱41╱A╱ // 0x3c3f @0x8
0x3c37…3c45 at0009 = ╱32╱2╱ // 0x3c40 @0x9
0x3c37…3c45 at000a = ╱e0╱ < ╱ // 0x3c41 @0xa
0x3c37…3c45 at000b = ╱4f╱O╱ // 0x3c42 @0xb
0x3c37…3c45 at000c = ╱b5╱ THEN ╱ // 0x3c43 @0xc
0x3c37…3c45 at000d = EOL // 0x3c44 @0xd
0x3c37…3c45 }
0x3c45…3c60 d24e 03785 LET BDA2 := BDA2 + HDA2 ; HDA2 := O
0x3c45…3c60 LineComal80 {
0x3c45…3c60 ptr = 0xd24e // 0x3c45 @0x0
0x3c45…3c60 lno = 0x0ec9 // 0x3c47 @0x2
0x3c45…3c60 at0004 = ╱86╱ LET ╱ // 0x3c49 @0x4
0x3c45…3c60 at0005 = ╱42╱B╱ // 0x3c4a @0x5
0x3c45…3c60 at0006 = ╱44╱D╱ // 0x3c4b @0x6
0x3c45…3c60 at0007 = ╱41╱A╱ // 0x3c4c @0x7
0x3c45…3c60 at0008 = ╱32╱2╱ // 0x3c4d @0x8
0x3c45…3c60 at0009 = ╱f0╱ := ╱ // 0x3c4e @0x9
0x3c45…3c60 at000a = ╱42╱B╱ // 0x3c4f @0xa
0x3c45…3c60 at000b = ╱44╱D╱ // 0x3c50 @0xb
0x3c45…3c60 at000c = ╱41╱A╱ // 0x3c51 @0xc
0x3c45…3c60 at000d = ╱32╱2╱ // 0x3c52 @0xd
0x3c45…3c60 at000e = ╱e5╱ + ╱ // 0x3c53 @0xe
0x3c45…3c60 at000f = ╱48╱H╱ // 0x3c54 @0xf
0x3c45…3c60 at0010 = ╱44╱D╱ // 0x3c55 @0x10
0x3c45…3c60 at0011 = ╱41╱A╱ // 0x3c56 @0x11
0x3c45…3c60 at0012 = ╱32╱2╱ // 0x3c57 @0x12
0x3c45…3c60 at0013 = ╱ea╱ ; ╱ // 0x3c58 @0x13
0x3c45…3c60 at0014 = ╱48╱H╱ // 0x3c59 @0x14
0x3c45…3c60 at0015 = ╱44╱D╱ // 0x3c5a @0x15
0x3c45…3c60 at0016 = ╱41╱A╱ // 0x3c5b @0x16
0x3c45…3c60 at0017 = ╱32╱2╱ // 0x3c5c @0x17
0x3c45…3c60 at0018 = ╱f0╱ := ╱ // 0x3c5d @0x18
0x3c45…3c60 at0019 = ╱4f╱O╱ // 0x3c5e @0x19
0x3c45…3c60 at001a = EOL // 0x3c5f @0x1a
0x3c45…3c60 }
0x3c60…3c75 d263 03790 IF BDA2 < O THEN LET BDA2 := O
0x3c60…3c75 LineComal80 {
0x3c60…3c75 ptr = 0xd263 // 0x3c60 @0x0
0x3c60…3c75 lno = 0x0ece // 0x3c62 @0x2
0x3c60…3c75 at0004 = ╱8200╱ IF ╱ // 0x3c64 @0x4
0x3c60…3c75 at0006 = ╱42╱B╱ // 0x3c66 @0x6
0x3c60…3c75 at0007 = ╱44╱D╱ // 0x3c67 @0x7
0x3c60…3c75 at0008 = ╱41╱A╱ // 0x3c68 @0x8
0x3c60…3c75 at0009 = ╱32╱2╱ // 0x3c69 @0x9
0x3c60…3c75 at000a = ╱e0╱ < ╱ // 0x3c6a @0xa
0x3c60…3c75 at000b = ╱4f╱O╱ // 0x3c6b @0xb
0x3c60…3c75 at000c = ╱b5╱ THEN ╱ // 0x3c6c @0xc
0x3c60…3c75 at000d = ╱86╱ LET ╱ // 0x3c6d @0xd
0x3c60…3c75 at000e = ╱42╱B╱ // 0x3c6e @0xe
0x3c60…3c75 at000f = ╱44╱D╱ // 0x3c6f @0xf
0x3c60…3c75 at0010 = ╱41╱A╱ // 0x3c70 @0x10
0x3c60…3c75 at0011 = ╱32╱2╱ // 0x3c71 @0x11
0x3c60…3c75 at0012 = ╱f0╱ := ╱ // 0x3c72 @0x12
0x3c60…3c75 at0013 = ╱4f╱O╱ // 0x3c73 @0x13
0x3c60…3c75 at0014 = EOL // 0x3c74 @0x14
0x3c60…3c75 }
0x3c75…3c7b (201,) d269 03795 ENDIF
0x3c75…3c7b LineComal80 {
0x3c75…3c7b ptr = 0xd269 // 0x3c75 @0x0
0x3c75…3c7b lno = 0x0ed3 // 0x3c77 @0x2
0x3c75…3c7b at0004 = ╱9c╱ ENDIF ╱ // 0x3c79 @0x4
0x3c75…3c7b at0005 = EOL // 0x3c7a @0x5
0x3c75…3c7b }
0x3c7b…3c88 d276 03800 IF D3 < O THEN
0x3c7b…3c88 LineComal80 {
0x3c7b…3c88 ptr = 0xd276 // 0x3c7b @0x0
0x3c7b…3c88 lno = 0x0ed8 // 0x3c7d @0x2
0x3c7b…3c88 at0004 = ╱9b0048╱ IF ╱ // 0x3c7f @0x4
0x3c7b…3c88 at0007 = ╱44╱D╱ // 0x3c82 @0x7
0x3c7b…3c88 at0008 = ╱33╱3╱ // 0x3c83 @0x8
0x3c7b…3c88 at0009 = ╱e0╱ < ╱ // 0x3c84 @0x9
0x3c7b…3c88 at000a = ╱4f╱O╱ // 0x3c85 @0xa
0x3c7b…3c88 at000b = ╱b5╱ THEN ╱ // 0x3c86 @0xb
0x3c7b…3c88 at000c = EOL // 0x3c87 @0xc
0x3c7b…3c88 }
0x3c88…3c9f d28d 03805 LET BD3 := BD3 + HD3 ; HD3 := O
0x3c88…3c9f LineComal80 {
0x3c88…3c9f ptr = 0xd28d // 0x3c88 @0x0
0x3c88…3c9f lno = 0x0edd // 0x3c8a @0x2
0x3c88…3c9f at0004 = ╱86╱ LET ╱ // 0x3c8c @0x4
0x3c88…3c9f at0005 = ╱42╱B╱ // 0x3c8d @0x5
0x3c88…3c9f at0006 = ╱44╱D╱ // 0x3c8e @0x6
0x3c88…3c9f at0007 = ╱33╱3╱ // 0x3c8f @0x7
0x3c88…3c9f at0008 = ╱f0╱ := ╱ // 0x3c90 @0x8
0x3c88…3c9f at0009 = ╱42╱B╱ // 0x3c91 @0x9
0x3c88…3c9f at000a = ╱44╱D╱ // 0x3c92 @0xa
0x3c88…3c9f at000b = ╱33╱3╱ // 0x3c93 @0xb
0x3c88…3c9f at000c = ╱e5╱ + ╱ // 0x3c94 @0xc
0x3c88…3c9f at000d = ╱48╱H╱ // 0x3c95 @0xd
0x3c88…3c9f at000e = ╱44╱D╱ // 0x3c96 @0xe
0x3c88…3c9f at000f = ╱33╱3╱ // 0x3c97 @0xf
0x3c88…3c9f at0010 = ╱ea╱ ; ╱ // 0x3c98 @0x10
0x3c88…3c9f at0011 = ╱48╱H╱ // 0x3c99 @0x11
0x3c88…3c9f at0012 = ╱44╱D╱ // 0x3c9a @0x12
0x3c88…3c9f at0013 = ╱33╱3╱ // 0x3c9b @0x13
0x3c88…3c9f at0014 = ╱f0╱ := ╱ // 0x3c9c @0x14
0x3c88…3c9f at0015 = ╱4f╱O╱ // 0x3c9d @0x15
0x3c88…3c9f at0016 = EOL // 0x3c9e @0x16
0x3c88…3c9f }
0x3c9f…3cb2 d2a0 03810 IF BD3 < O THEN LET BD3 := O
0x3c9f…3cb2 LineComal80 {
0x3c9f…3cb2 ptr = 0xd2a0 // 0x3c9f @0x0
0x3c9f…3cb2 lno = 0x0ee2 // 0x3ca1 @0x2
0x3c9f…3cb2 at0004 = ╱8200╱ IF ╱ // 0x3ca3 @0x4
0x3c9f…3cb2 at0006 = ╱42╱B╱ // 0x3ca5 @0x6
0x3c9f…3cb2 at0007 = ╱44╱D╱ // 0x3ca6 @0x7
0x3c9f…3cb2 at0008 = ╱33╱3╱ // 0x3ca7 @0x8
0x3c9f…3cb2 at0009 = ╱e0╱ < ╱ // 0x3ca8 @0x9
0x3c9f…3cb2 at000a = ╱4f╱O╱ // 0x3ca9 @0xa
0x3c9f…3cb2 at000b = ╱b5╱ THEN ╱ // 0x3caa @0xb
0x3c9f…3cb2 at000c = ╱86╱ LET ╱ // 0x3cab @0xc
0x3c9f…3cb2 at000d = ╱42╱B╱ // 0x3cac @0xd
0x3c9f…3cb2 at000e = ╱44╱D╱ // 0x3cad @0xe
0x3c9f…3cb2 at000f = ╱33╱3╱ // 0x3cae @0xf
0x3c9f…3cb2 at0010 = ╱f0╱ := ╱ // 0x3caf @0x10
0x3c9f…3cb2 at0011 = ╱4f╱O╱ // 0x3cb0 @0x11
0x3c9f…3cb2 at0012 = EOL // 0x3cb1 @0x12
0x3c9f…3cb2 }
0x3cb2…3cb8 d2a6 03815 ENDIF
0x3cb2…3cb8 LineComal80 {
0x3cb2…3cb8 ptr = 0xd2a6 // 0x3cb2 @0x0
0x3cb2…3cb8 lno = 0x0ee7 // 0x3cb4 @0x2
0x3cb2…3cb8 at0004 = ╱9c╱ ENDIF ╱ // 0x3cb6 @0x4
0x3cb2…3cb8 at0005 = EOL // 0x3cb7 @0x5
0x3cb2…3cb8 }
0x3cb8…3cc5 d2b3 03820 IF D4 < O THEN
0x3cb8…3cc5 LineComal80 {
0x3cb8…3cc5 ptr = 0xd2b3 // 0x3cb8 @0x0
0x3cb8…3cc5 lno = 0x0eec // 0x3cba @0x2
0x3cb8…3cc5 at0004 = ╱9b0048╱ IF ╱ // 0x3cbc @0x4
0x3cb8…3cc5 at0007 = ╱44╱D╱ // 0x3cbf @0x7
0x3cb8…3cc5 at0008 = ╱34╱4╱ // 0x3cc0 @0x8
0x3cb8…3cc5 at0009 = ╱e0╱ < ╱ // 0x3cc1 @0x9
0x3cb8…3cc5 at000a = ╱4f╱O╱ // 0x3cc2 @0xa
0x3cb8…3cc5 at000b = ╱b5╱ THEN ╱ // 0x3cc3 @0xb
0x3cb8…3cc5 at000c = EOL // 0x3cc4 @0xc
0x3cb8…3cc5 }
0x3cc5…3cdc d2ca 03825 LET BD4 := BD4 + HD4 ; HD4 := O
0x3cc5…3cdc LineComal80 {
0x3cc5…3cdc ptr = 0xd2ca // 0x3cc5 @0x0
0x3cc5…3cdc lno = 0x0ef1 // 0x3cc7 @0x2
0x3cc5…3cdc at0004 = ╱86╱ LET ╱ // 0x3cc9 @0x4
0x3cc5…3cdc at0005 = ╱42╱B╱ // 0x3cca @0x5
0x3cc5…3cdc at0006 = ╱44╱D╱ // 0x3ccb @0x6
0x3cc5…3cdc at0007 = ╱34╱4╱ // 0x3ccc @0x7
0x3cc5…3cdc at0008 = ╱f0╱ := ╱ // 0x3ccd @0x8
0x3cc5…3cdc at0009 = ╱42╱B╱ // 0x3cce @0x9
0x3cc5…3cdc at000a = ╱44╱D╱ // 0x3ccf @0xa
0x3cc5…3cdc at000b = ╱34╱4╱ // 0x3cd0 @0xb
0x3cc5…3cdc at000c = ╱e5╱ + ╱ // 0x3cd1 @0xc
0x3cc5…3cdc at000d = ╱48╱H╱ // 0x3cd2 @0xd
0x3cc5…3cdc at000e = ╱44╱D╱ // 0x3cd3 @0xe
0x3cc5…3cdc at000f = ╱34╱4╱ // 0x3cd4 @0xf
0x3cc5…3cdc at0010 = ╱ea╱ ; ╱ // 0x3cd5 @0x10
0x3cc5…3cdc at0011 = ╱48╱H╱ // 0x3cd6 @0x11
0x3cc5…3cdc at0012 = ╱44╱D╱ // 0x3cd7 @0x12
0x3cc5…3cdc at0013 = ╱34╱4╱ // 0x3cd8 @0x13
0x3cc5…3cdc at0014 = ╱f0╱ := ╱ // 0x3cd9 @0x14
0x3cc5…3cdc at0015 = ╱4f╱O╱ // 0x3cda @0x15
0x3cc5…3cdc at0016 = EOL // 0x3cdb @0x16
0x3cc5…3cdc }
0x3cdc…3cef d2dd 03830 IF BD4 < O THEN LET BD4 := O
0x3cdc…3cef LineComal80 {
0x3cdc…3cef ptr = 0xd2dd // 0x3cdc @0x0
0x3cdc…3cef lno = 0x0ef6 // 0x3cde @0x2
0x3cdc…3cef at0004 = ╱8200╱ IF ╱ // 0x3ce0 @0x4
0x3cdc…3cef at0006 = ╱42╱B╱ // 0x3ce2 @0x6
0x3cdc…3cef at0007 = ╱44╱D╱ // 0x3ce3 @0x7
0x3cdc…3cef at0008 = ╱34╱4╱ // 0x3ce4 @0x8
0x3cdc…3cef at0009 = ╱e0╱ < ╱ // 0x3ce5 @0x9
0x3cdc…3cef at000a = ╱4f╱O╱ // 0x3ce6 @0xa
0x3cdc…3cef at000b = ╱b5╱ THEN ╱ // 0x3ce7 @0xb
0x3cdc…3cef at000c = ╱86╱ LET ╱ // 0x3ce8 @0xc
0x3cdc…3cef at000d = ╱42╱B╱ // 0x3ce9 @0xd
0x3cdc…3cef at000e = ╱44╱D╱ // 0x3cea @0xe
0x3cdc…3cef at000f = ╱34╱4╱ // 0x3ceb @0xf
0x3cdc…3cef at0010 = ╱f0╱ := ╱ // 0x3cec @0x10
0x3cdc…3cef at0011 = ╱4f╱O╱ // 0x3ced @0x11
0x3cdc…3cef at0012 = EOL // 0x3cee @0x12
0x3cdc…3cef }
0x3cef…3cf5 d2e3 03835 ENDIF
0x3cef…3cf5 LineComal80 {
0x3cef…3cf5 ptr = 0xd2e3 // 0x3cef @0x0
0x3cef…3cf5 lno = 0x0efb // 0x3cf1 @0x2
0x3cef…3cf5 at0004 = ╱9c╱ ENDIF ╱ // 0x3cf3 @0x4
0x3cef…3cf5 at0005 = EOL // 0x3cf4 @0x5
0x3cef…3cf5 }
0x3cf5…3d02 d2f0 03840 IF D5 < O THEN
0x3cf5…3d02 LineComal80 {
0x3cf5…3d02 ptr = 0xd2f0 // 0x3cf5 @0x0
0x3cf5…3d02 lno = 0x0f00 // 0x3cf7 @0x2
0x3cf5…3d02 at0004 = ╱9b0048╱ IF ╱ // 0x3cf9 @0x4
0x3cf5…3d02 at0007 = ╱44╱D╱ // 0x3cfc @0x7
0x3cf5…3d02 at0008 = ╱35╱5╱ // 0x3cfd @0x8
0x3cf5…3d02 at0009 = ╱e0╱ < ╱ // 0x3cfe @0x9
0x3cf5…3d02 at000a = ╱4f╱O╱ // 0x3cff @0xa
0x3cf5…3d02 at000b = ╱b5╱ THEN ╱ // 0x3d00 @0xb
0x3cf5…3d02 at000c = EOL // 0x3d01 @0xc
0x3cf5…3d02 }
0x3d02…3d19 d307 03845 LET BD5 := BD5 + HD5 ; HD5 := O
0x3d02…3d19 LineComal80 {
0x3d02…3d19 ptr = 0xd307 // 0x3d02 @0x0
0x3d02…3d19 lno = 0x0f05 // 0x3d04 @0x2
0x3d02…3d19 at0004 = ╱86╱ LET ╱ // 0x3d06 @0x4
0x3d02…3d19 at0005 = ╱42╱B╱ // 0x3d07 @0x5
0x3d02…3d19 at0006 = ╱44╱D╱ // 0x3d08 @0x6
0x3d02…3d19 at0007 = ╱35╱5╱ // 0x3d09 @0x7
0x3d02…3d19 at0008 = ╱f0╱ := ╱ // 0x3d0a @0x8
0x3d02…3d19 at0009 = ╱42╱B╱ // 0x3d0b @0x9
0x3d02…3d19 at000a = ╱44╱D╱ // 0x3d0c @0xa
0x3d02…3d19 at000b = ╱35╱5╱ // 0x3d0d @0xb
0x3d02…3d19 at000c = ╱e5╱ + ╱ // 0x3d0e @0xc
0x3d02…3d19 at000d = ╱48╱H╱ // 0x3d0f @0xd
0x3d02…3d19 at000e = ╱44╱D╱ // 0x3d10 @0xe
0x3d02…3d19 at000f = ╱35╱5╱ // 0x3d11 @0xf
0x3d02…3d19 at0010 = ╱ea╱ ; ╱ // 0x3d12 @0x10
0x3d02…3d19 at0011 = ╱48╱H╱ // 0x3d13 @0x11
0x3d02…3d19 at0012 = ╱44╱D╱ // 0x3d14 @0x12
0x3d02…3d19 at0013 = ╱35╱5╱ // 0x3d15 @0x13
0x3d02…3d19 at0014 = ╱f0╱ := ╱ // 0x3d16 @0x14
0x3d02…3d19 at0015 = ╱4f╱O╱ // 0x3d17 @0x15
0x3d02…3d19 at0016 = EOL // 0x3d18 @0x16
0x3d02…3d19 }
0x3d19…3d2c d31a 03850 IF BD5 < O THEN LET BD5 := O
0x3d19…3d2c LineComal80 {
0x3d19…3d2c ptr = 0xd31a // 0x3d19 @0x0
0x3d19…3d2c lno = 0x0f0a // 0x3d1b @0x2
0x3d19…3d2c at0004 = ╱8200╱ IF ╱ // 0x3d1d @0x4
0x3d19…3d2c at0006 = ╱42╱B╱ // 0x3d1f @0x6
0x3d19…3d2c at0007 = ╱44╱D╱ // 0x3d20 @0x7
0x3d19…3d2c at0008 = ╱35╱5╱ // 0x3d21 @0x8
0x3d19…3d2c at0009 = ╱e0╱ < ╱ // 0x3d22 @0x9
0x3d19…3d2c at000a = ╱4f╱O╱ // 0x3d23 @0xa
0x3d19…3d2c at000b = ╱b5╱ THEN ╱ // 0x3d24 @0xb
0x3d19…3d2c at000c = ╱86╱ LET ╱ // 0x3d25 @0xc
0x3d19…3d2c at000d = ╱42╱B╱ // 0x3d26 @0xd
0x3d19…3d2c at000e = ╱44╱D╱ // 0x3d27 @0xe
0x3d19…3d2c at000f = ╱35╱5╱ // 0x3d28 @0xf
0x3d19…3d2c at0010 = ╱f0╱ := ╱ // 0x3d29 @0x10
0x3d19…3d2c at0011 = ╱4f╱O╱ // 0x3d2a @0x11
0x3d19…3d2c at0012 = EOL // 0x3d2b @0x12
0x3d19…3d2c }
0x3d2c…3d32 d320 03855 ENDIF
0x3d2c…3d32 LineComal80 {
0x3d2c…3d32 ptr = 0xd320 // 0x3d2c @0x0
0x3d2c…3d32 lno = 0x0f0f // 0x3d2e @0x2
0x3d2c…3d32 at0004 = ╱9c╱ ENDIF ╱ // 0x3d30 @0x4
0x3d2c…3d32 at0005 = EOL // 0x3d31 @0x5
0x3d2c…3d32 }
0x3d32…3d3f d32d 03860 IF D1 < O THEN
0x3d32…3d3f LineComal80 {
0x3d32…3d3f ptr = 0xd32d // 0x3d32 @0x0
0x3d32…3d3f lno = 0x0f14 // 0x3d34 @0x2
0x3d32…3d3f at0004 = ╱9b0042╱ IF ╱ // 0x3d36 @0x4
0x3d32…3d3f at0007 = ╱44╱D╱ // 0x3d39 @0x7
0x3d32…3d3f at0008 = ╱31╱1╱ // 0x3d3a @0x8
0x3d32…3d3f at0009 = ╱e0╱ < ╱ // 0x3d3b @0x9
0x3d32…3d3f at000a = ╱4f╱O╱ // 0x3d3c @0xa
0x3d32…3d3f at000b = ╱b5╱ THEN ╱ // 0x3d3d @0xb
0x3d32…3d3f at000c = EOL // 0x3d3e @0xc
0x3d32…3d3f }
0x3d3f…3d56 d344 03865 LET HD1 := HD1 + BD1 ; BD1 := O
0x3d3f…3d56 LineComal80 {
0x3d3f…3d56 ptr = 0xd344 // 0x3d3f @0x0
0x3d3f…3d56 lno = 0x0f19 // 0x3d41 @0x2
0x3d3f…3d56 at0004 = ╱86╱ LET ╱ // 0x3d43 @0x4
0x3d3f…3d56 at0005 = ╱48╱H╱ // 0x3d44 @0x5
0x3d3f…3d56 at0006 = ╱44╱D╱ // 0x3d45 @0x6
0x3d3f…3d56 at0007 = ╱31╱1╱ // 0x3d46 @0x7
0x3d3f…3d56 at0008 = ╱f0╱ := ╱ // 0x3d47 @0x8
0x3d3f…3d56 at0009 = ╱48╱H╱ // 0x3d48 @0x9
0x3d3f…3d56 at000a = ╱44╱D╱ // 0x3d49 @0xa
0x3d3f…3d56 at000b = ╱31╱1╱ // 0x3d4a @0xb
0x3d3f…3d56 at000c = ╱e5╱ + ╱ // 0x3d4b @0xc
0x3d3f…3d56 at000d = ╱42╱B╱ // 0x3d4c @0xd
0x3d3f…3d56 at000e = ╱44╱D╱ // 0x3d4d @0xe
0x3d3f…3d56 at000f = ╱31╱1╱ // 0x3d4e @0xf
0x3d3f…3d56 at0010 = ╱ea╱ ; ╱ // 0x3d4f @0x10
0x3d3f…3d56 at0011 = ╱42╱B╱ // 0x3d50 @0x11
0x3d3f…3d56 at0012 = ╱44╱D╱ // 0x3d51 @0x12
0x3d3f…3d56 at0013 = ╱31╱1╱ // 0x3d52 @0x13
0x3d3f…3d56 at0014 = ╱f0╱ := ╱ // 0x3d53 @0x14
0x3d3f…3d56 at0015 = ╱4f╱O╱ // 0x3d54 @0x15
0x3d3f…3d56 at0016 = EOL // 0x3d55 @0x16
0x3d3f…3d56 }
0x3d56…3d69 d357 03870 IF HD1 < O THEN LET HD1 := O
0x3d56…3d69 LineComal80 {
0x3d56…3d69 ptr = 0xd357 // 0x3d56 @0x0
0x3d56…3d69 lno = 0x0f1e // 0x3d58 @0x2
0x3d56…3d69 at0004 = ╱8200╱ IF ╱ // 0x3d5a @0x4
0x3d56…3d69 at0006 = ╱48╱H╱ // 0x3d5c @0x6
0x3d56…3d69 at0007 = ╱44╱D╱ // 0x3d5d @0x7
0x3d56…3d69 at0008 = ╱31╱1╱ // 0x3d5e @0x8
0x3d56…3d69 at0009 = ╱e0╱ < ╱ // 0x3d5f @0x9
0x3d56…3d69 at000a = ╱4f╱O╱ // 0x3d60 @0xa
0x3d56…3d69 at000b = ╱b5╱ THEN ╱ // 0x3d61 @0xb
0x3d56…3d69 at000c = ╱86╱ LET ╱ // 0x3d62 @0xc
0x3d56…3d69 at000d = ╱48╱H╱ // 0x3d63 @0xd
0x3d56…3d69 at000e = ╱44╱D╱ // 0x3d64 @0xe
0x3d56…3d69 at000f = ╱31╱1╱ // 0x3d65 @0xf
0x3d56…3d69 at0010 = ╱f0╱ := ╱ // 0x3d66 @0x10
0x3d56…3d69 at0011 = ╱4f╱O╱ // 0x3d67 @0x11
0x3d56…3d69 at0012 = EOL // 0x3d68 @0x12
0x3d56…3d69 }
0x3d69…3d6f d35d 03875 ENDIF
0x3d69…3d6f LineComal80 {
0x3d69…3d6f ptr = 0xd35d // 0x3d69 @0x0
0x3d69…3d6f lno = 0x0f23 // 0x3d6b @0x2
0x3d69…3d6f at0004 = ╱9c╱ ENDIF ╱ // 0x3d6d @0x4
0x3d69…3d6f at0005 = EOL // 0x3d6e @0x5
0x3d69…3d6f }
0x3d6f…3d7c d36a 03880 IF D2 < O THEN
0x3d6f…3d7c LineComal80 {
0x3d6f…3d7c ptr = 0xd36a // 0x3d6f @0x0
0x3d6f…3d7c lno = 0x0f28 // 0x3d71 @0x2
0x3d6f…3d7c at0004 = ╱9b0042╱ IF ╱ // 0x3d73 @0x4
0x3d6f…3d7c at0007 = ╱44╱D╱ // 0x3d76 @0x7
0x3d6f…3d7c at0008 = ╱32╱2╱ // 0x3d77 @0x8
0x3d6f…3d7c at0009 = ╱e0╱ < ╱ // 0x3d78 @0x9
0x3d6f…3d7c at000a = ╱4f╱O╱ // 0x3d79 @0xa
0x3d6f…3d7c at000b = ╱b5╱ THEN ╱ // 0x3d7a @0xb
0x3d6f…3d7c at000c = EOL // 0x3d7b @0xc
0x3d6f…3d7c }
0x3d7c…3d93 d381 03885 LET HD2 := HD2 + BD2 ; BD2 := O
0x3d7c…3d93 LineComal80 {
0x3d7c…3d93 ptr = 0xd381 // 0x3d7c @0x0
0x3d7c…3d93 lno = 0x0f2d // 0x3d7e @0x2
0x3d7c…3d93 at0004 = ╱86╱ LET ╱ // 0x3d80 @0x4
0x3d7c…3d93 at0005 = ╱48╱H╱ // 0x3d81 @0x5
0x3d7c…3d93 at0006 = ╱44╱D╱ // 0x3d82 @0x6
0x3d7c…3d93 at0007 = ╱32╱2╱ // 0x3d83 @0x7
0x3d7c…3d93 at0008 = ╱f0╱ := ╱ // 0x3d84 @0x8
0x3d7c…3d93 at0009 = ╱48╱H╱ // 0x3d85 @0x9
0x3d7c…3d93 at000a = ╱44╱D╱ // 0x3d86 @0xa
0x3d7c…3d93 at000b = ╱32╱2╱ // 0x3d87 @0xb
0x3d7c…3d93 at000c = ╱e5╱ + ╱ // 0x3d88 @0xc
0x3d7c…3d93 at000d = ╱42╱B╱ // 0x3d89 @0xd
0x3d7c…3d93 at000e = ╱44╱D╱ // 0x3d8a @0xe
0x3d7c…3d93 at000f = ╱32╱2╱ // 0x3d8b @0xf
0x3d7c…3d93 at0010 = ╱ea╱ ; ╱ // 0x3d8c @0x10
0x3d7c…3d93 at0011 = ╱42╱B╱ // 0x3d8d @0x11
0x3d7c…3d93 at0012 = ╱44╱D╱ // 0x3d8e @0x12
0x3d7c…3d93 at0013 = ╱32╱2╱ // 0x3d8f @0x13
0x3d7c…3d93 at0014 = ╱f0╱ := ╱ // 0x3d90 @0x14
0x3d7c…3d93 at0015 = ╱4f╱O╱ // 0x3d91 @0x15
0x3d7c…3d93 at0016 = EOL // 0x3d92 @0x16
0x3d7c…3d93 }
0x3d93…3da6 d394 03890 IF HD2 < O THEN LET HD2 := O
0x3d93…3da6 LineComal80 {
0x3d93…3da6 ptr = 0xd394 // 0x3d93 @0x0
0x3d93…3da6 lno = 0x0f32 // 0x3d95 @0x2
0x3d93…3da6 at0004 = ╱8200╱ IF ╱ // 0x3d97 @0x4
0x3d93…3da6 at0006 = ╱48╱H╱ // 0x3d99 @0x6
0x3d93…3da6 at0007 = ╱44╱D╱ // 0x3d9a @0x7
0x3d93…3da6 at0008 = ╱32╱2╱ // 0x3d9b @0x8
0x3d93…3da6 at0009 = ╱e0╱ < ╱ // 0x3d9c @0x9
0x3d93…3da6 at000a = ╱4f╱O╱ // 0x3d9d @0xa
0x3d93…3da6 at000b = ╱b5╱ THEN ╱ // 0x3d9e @0xb
0x3d93…3da6 at000c = ╱86╱ LET ╱ // 0x3d9f @0xc
0x3d93…3da6 at000d = ╱48╱H╱ // 0x3da0 @0xd
0x3d93…3da6 at000e = ╱44╱D╱ // 0x3da1 @0xe
0x3d93…3da6 at000f = ╱32╱2╱ // 0x3da2 @0xf
0x3d93…3da6 at0010 = ╱f0╱ := ╱ // 0x3da3 @0x10
0x3d93…3da6 at0011 = ╱4f╱O╱ // 0x3da4 @0x11
0x3d93…3da6 at0012 = EOL // 0x3da5 @0x12
0x3d93…3da6 }
0x3da6…3dac d39a 03895 ENDIF
0x3da6…3dac LineComal80 {
0x3da6…3dac ptr = 0xd39a // 0x3da6 @0x0
0x3da6…3dac lno = 0x0f37 // 0x3da8 @0x2
0x3da6…3dac at0004 = ╱9c╱ ENDIF ╱ // 0x3daa @0x4
0x3da6…3dac at0005 = EOL // 0x3dab @0x5
0x3da6…3dac }
0x3dac…3dba d3a8 03900 IF DA2 < O THEN
0x3dac…3dba LineComal80 {
0x3dac…3dba ptr = 0xd3a8 // 0x3dac @0x0
0x3dac…3dba lno = 0x0f3c // 0x3dae @0x2
0x3dac…3dba at0004 = ╱9b0042╱ IF ╱ // 0x3db0 @0x4
0x3dac…3dba at0007 = ╱44╱D╱ // 0x3db3 @0x7
0x3dac…3dba at0008 = ╱41╱A╱ // 0x3db4 @0x8
0x3dac…3dba at0009 = ╱32╱2╱ // 0x3db5 @0x9
0x3dac…3dba at000a = ╱e0╱ < ╱ // 0x3db6 @0xa
0x3dac…3dba at000b = ╱4f╱O╱ // 0x3db7 @0xb
0x3dac…3dba at000c = ╱b5╱ THEN ╱ // 0x3db8 @0xc
0x3dac…3dba at000d = EOL // 0x3db9 @0xd
0x3dac…3dba }
0x3dba…3dd5 d3c3 03905 LET HDA2 := HDA2 + BDA2 ; BDA2 := O
0x3dba…3dd5 LineComal80 {
0x3dba…3dd5 ptr = 0xd3c3 // 0x3dba @0x0
0x3dba…3dd5 lno = 0x0f41 // 0x3dbc @0x2
0x3dba…3dd5 at0004 = ╱86╱ LET ╱ // 0x3dbe @0x4
0x3dba…3dd5 at0005 = ╱48╱H╱ // 0x3dbf @0x5
0x3dba…3dd5 at0006 = ╱44╱D╱ // 0x3dc0 @0x6
0x3dba…3dd5 at0007 = ╱41╱A╱ // 0x3dc1 @0x7
0x3dba…3dd5 at0008 = ╱32╱2╱ // 0x3dc2 @0x8
0x3dba…3dd5 at0009 = ╱f0╱ := ╱ // 0x3dc3 @0x9
0x3dba…3dd5 at000a = ╱48╱H╱ // 0x3dc4 @0xa
0x3dba…3dd5 at000b = ╱44╱D╱ // 0x3dc5 @0xb
0x3dba…3dd5 at000c = ╱41╱A╱ // 0x3dc6 @0xc
0x3dba…3dd5 at000d = ╱32╱2╱ // 0x3dc7 @0xd
0x3dba…3dd5 at000e = ╱e5╱ + ╱ // 0x3dc8 @0xe
0x3dba…3dd5 at000f = ╱42╱B╱ // 0x3dc9 @0xf
0x3dba…3dd5 at0010 = ╱44╱D╱ // 0x3dca @0x10
0x3dba…3dd5 at0011 = ╱41╱A╱ // 0x3dcb @0x11
0x3dba…3dd5 at0012 = ╱32╱2╱ // 0x3dcc @0x12
0x3dba…3dd5 at0013 = ╱ea╱ ; ╱ // 0x3dcd @0x13
0x3dba…3dd5 at0014 = ╱42╱B╱ // 0x3dce @0x14
0x3dba…3dd5 at0015 = ╱44╱D╱ // 0x3dcf @0x15
0x3dba…3dd5 at0016 = ╱41╱A╱ // 0x3dd0 @0x16
0x3dba…3dd5 at0017 = ╱32╱2╱ // 0x3dd1 @0x17
0x3dba…3dd5 at0018 = ╱f0╱ := ╱ // 0x3dd2 @0x18
0x3dba…3dd5 at0019 = ╱4f╱O╱ // 0x3dd3 @0x19
0x3dba…3dd5 at001a = EOL // 0x3dd4 @0x1a
0x3dba…3dd5 }
0x3dd5…3dea d3d8 03910 IF HDA2 < O THEN LET HDA2 := O
0x3dd5…3dea LineComal80 {
0x3dd5…3dea ptr = 0xd3d8 // 0x3dd5 @0x0
0x3dd5…3dea lno = 0x0f46 // 0x3dd7 @0x2
0x3dd5…3dea at0004 = ╱8200╱ IF ╱ // 0x3dd9 @0x4
0x3dd5…3dea at0006 = ╱48╱H╱ // 0x3ddb @0x6
0x3dd5…3dea at0007 = ╱44╱D╱ // 0x3ddc @0x7
0x3dd5…3dea at0008 = ╱41╱A╱ // 0x3ddd @0x8
0x3dd5…3dea at0009 = ╱32╱2╱ // 0x3dde @0x9
0x3dd5…3dea at000a = ╱e0╱ < ╱ // 0x3ddf @0xa
0x3dd5…3dea at000b = ╱4f╱O╱ // 0x3de0 @0xb
0x3dd5…3dea at000c = ╱b5╱ THEN ╱ // 0x3de1 @0xc
0x3dd5…3dea at000d = ╱86╱ LET ╱ // 0x3de2 @0xd
0x3dd5…3dea at000e = ╱48╱H╱ // 0x3de3 @0xe
0x3dd5…3dea at000f = ╱44╱D╱ // 0x3de4 @0xf
0x3dd5…3dea at0010 = ╱41╱A╱ // 0x3de5 @0x10
0x3dd5…3dea at0011 = ╱32╱2╱ // 0x3de6 @0x11
0x3dd5…3dea at0012 = ╱f0╱ := ╱ // 0x3de7 @0x12
0x3dd5…3dea at0013 = ╱4f╱O╱ // 0x3de8 @0x13
0x3dd5…3dea at0014 = EOL // 0x3de9 @0x14
0x3dd5…3dea }
0x3dea…3df0 d3de 03915 ENDIF
0x3dea…3df0 LineComal80 {
0x3dea…3df0 ptr = 0xd3de // 0x3dea @0x0
0x3dea…3df0 lno = 0x0f4b // 0x3dec @0x2
0x3dea…3df0 at0004 = ╱9c╱ ENDIF ╱ // 0x3dee @0x4
0x3dea…3df0 at0005 = EOL // 0x3def @0x5
0x3dea…3df0 }
0x3df0…3dfd d3eb 03920 IF D3 < O THEN
0x3df0…3dfd LineComal80 {
0x3df0…3dfd ptr = 0xd3eb // 0x3df0 @0x0
0x3df0…3dfd lno = 0x0f50 // 0x3df2 @0x2
0x3df0…3dfd at0004 = ╱9b0042╱ IF ╱ // 0x3df4 @0x4
0x3df0…3dfd at0007 = ╱44╱D╱ // 0x3df7 @0x7
0x3df0…3dfd at0008 = ╱33╱3╱ // 0x3df8 @0x8
0x3df0…3dfd at0009 = ╱e0╱ < ╱ // 0x3df9 @0x9
0x3df0…3dfd at000a = ╱4f╱O╱ // 0x3dfa @0xa
0x3df0…3dfd at000b = ╱b5╱ THEN ╱ // 0x3dfb @0xb
0x3df0…3dfd at000c = EOL // 0x3dfc @0xc
0x3df0…3dfd }
0x3dfd…3e14 d402 03925 LET HD3 := HD3 + BD3 ; BD3 := O
0x3dfd…3e14 LineComal80 {
0x3dfd…3e14 ptr = 0xd402 // 0x3dfd @0x0
0x3dfd…3e14 lno = 0x0f55 // 0x3dff @0x2
0x3dfd…3e14 at0004 = ╱86╱ LET ╱ // 0x3e01 @0x4
0x3dfd…3e14 at0005 = ╱48╱H╱ // 0x3e02 @0x5
0x3dfd…3e14 at0006 = ╱44╱D╱ // 0x3e03 @0x6
0x3dfd…3e14 at0007 = ╱33╱3╱ // 0x3e04 @0x7
0x3dfd…3e14 at0008 = ╱f0╱ := ╱ // 0x3e05 @0x8
0x3dfd…3e14 at0009 = ╱48╱H╱ // 0x3e06 @0x9
0x3dfd…3e14 at000a = ╱44╱D╱ // 0x3e07 @0xa
0x3dfd…3e14 at000b = ╱33╱3╱ // 0x3e08 @0xb
0x3dfd…3e14 at000c = ╱e5╱ + ╱ // 0x3e09 @0xc
0x3dfd…3e14 at000d = ╱42╱B╱ // 0x3e0a @0xd
0x3dfd…3e14 at000e = ╱44╱D╱ // 0x3e0b @0xe
0x3dfd…3e14 at000f = ╱33╱3╱ // 0x3e0c @0xf
0x3dfd…3e14 at0010 = ╱ea╱ ; ╱ // 0x3e0d @0x10
0x3dfd…3e14 at0011 = ╱42╱B╱ // 0x3e0e @0x11
0x3dfd…3e14 at0012 = ╱44╱D╱ // 0x3e0f @0x12
0x3dfd…3e14 at0013 = ╱33╱3╱ // 0x3e10 @0x13
0x3dfd…3e14 at0014 = ╱f0╱ := ╱ // 0x3e11 @0x14
0x3dfd…3e14 at0015 = ╱4f╱O╱ // 0x3e12 @0x15
0x3dfd…3e14 at0016 = EOL // 0x3e13 @0x16
0x3dfd…3e14 }
0x3e14…3e27 d415 03930 IF HD3 < O THEN LET HD3 := O
0x3e14…3e27 LineComal80 {
0x3e14…3e27 ptr = 0xd415 // 0x3e14 @0x0
0x3e14…3e27 lno = 0x0f5a // 0x3e16 @0x2
0x3e14…3e27 at0004 = ╱8200╱ IF ╱ // 0x3e18 @0x4
0x3e14…3e27 at0006 = ╱48╱H╱ // 0x3e1a @0x6
0x3e14…3e27 at0007 = ╱44╱D╱ // 0x3e1b @0x7
0x3e14…3e27 at0008 = ╱33╱3╱ // 0x3e1c @0x8
0x3e14…3e27 at0009 = ╱e0╱ < ╱ // 0x3e1d @0x9
0x3e14…3e27 at000a = ╱4f╱O╱ // 0x3e1e @0xa
0x3e14…3e27 at000b = ╱b5╱ THEN ╱ // 0x3e1f @0xb
0x3e14…3e27 at000c = ╱86╱ LET ╱ // 0x3e20 @0xc
0x3e14…3e27 at000d = ╱48╱H╱ // 0x3e21 @0xd
0x3e14…3e27 at000e = ╱44╱D╱ // 0x3e22 @0xe
0x3e14…3e27 at000f = ╱33╱3╱ // 0x3e23 @0xf
0x3e14…3e27 at0010 = ╱f0╱ := ╱ // 0x3e24 @0x10
0x3e14…3e27 at0011 = ╱4f╱O╱ // 0x3e25 @0x11
0x3e14…3e27 at0012 = EOL // 0x3e26 @0x12
0x3e14…3e27 }
0x3e27…3e2d d41b 03935 ENDIF
0x3e27…3e2d LineComal80 {
0x3e27…3e2d ptr = 0xd41b // 0x3e27 @0x0
0x3e27…3e2d lno = 0x0f5f // 0x3e29 @0x2
0x3e27…3e2d at0004 = ╱9c╱ ENDIF ╱ // 0x3e2b @0x4
0x3e27…3e2d at0005 = EOL // 0x3e2c @0x5
0x3e27…3e2d }
0x3e2d…3e3a d428 03940 IF D4 < O THEN
0x3e2d…3e3a LineComal80 {
0x3e2d…3e3a ptr = 0xd428 // 0x3e2d @0x0
0x3e2d…3e3a lno = 0x0f64 // 0x3e2f @0x2
0x3e2d…3e3a at0004 = ╱9b0042╱ IF ╱ // 0x3e31 @0x4
0x3e2d…3e3a at0007 = ╱44╱D╱ // 0x3e34 @0x7
0x3e2d…3e3a at0008 = ╱34╱4╱ // 0x3e35 @0x8
0x3e2d…3e3a at0009 = ╱e0╱ < ╱ // 0x3e36 @0x9
0x3e2d…3e3a at000a = ╱4f╱O╱ // 0x3e37 @0xa
0x3e2d…3e3a at000b = ╱b5╱ THEN ╱ // 0x3e38 @0xb
0x3e2d…3e3a at000c = EOL // 0x3e39 @0xc
0x3e2d…3e3a }
0x3e3a…3e51 d43f 03945 LET HD4 := HD4 + BD4 ; BD4 := O
0x3e3a…3e51 LineComal80 {
0x3e3a…3e51 ptr = 0xd43f // 0x3e3a @0x0
0x3e3a…3e51 lno = 0x0f69 // 0x3e3c @0x2
0x3e3a…3e51 at0004 = ╱86╱ LET ╱ // 0x3e3e @0x4
0x3e3a…3e51 at0005 = ╱48╱H╱ // 0x3e3f @0x5
0x3e3a…3e51 at0006 = ╱44╱D╱ // 0x3e40 @0x6
0x3e3a…3e51 at0007 = ╱34╱4╱ // 0x3e41 @0x7
0x3e3a…3e51 at0008 = ╱f0╱ := ╱ // 0x3e42 @0x8
0x3e3a…3e51 at0009 = ╱48╱H╱ // 0x3e43 @0x9
0x3e3a…3e51 at000a = ╱44╱D╱ // 0x3e44 @0xa
0x3e3a…3e51 at000b = ╱34╱4╱ // 0x3e45 @0xb
0x3e3a…3e51 at000c = ╱e5╱ + ╱ // 0x3e46 @0xc
0x3e3a…3e51 at000d = ╱42╱B╱ // 0x3e47 @0xd
0x3e3a…3e51 at000e = ╱44╱D╱ // 0x3e48 @0xe
0x3e3a…3e51 at000f = ╱34╱4╱ // 0x3e49 @0xf
0x3e3a…3e51 at0010 = ╱ea╱ ; ╱ // 0x3e4a @0x10
0x3e3a…3e51 at0011 = ╱42╱B╱ // 0x3e4b @0x11
0x3e3a…3e51 at0012 = ╱44╱D╱ // 0x3e4c @0x12
0x3e3a…3e51 at0013 = ╱34╱4╱ // 0x3e4d @0x13
0x3e3a…3e51 at0014 = ╱f0╱ := ╱ // 0x3e4e @0x14
0x3e3a…3e51 at0015 = ╱4f╱O╱ // 0x3e4f @0x15
0x3e3a…3e51 at0016 = EOL // 0x3e50 @0x16
0x3e3a…3e51 }
0x3e51…3e64 d452 03950 IF HD4 < O THEN LET HD4 := O
0x3e51…3e64 LineComal80 {
0x3e51…3e64 ptr = 0xd452 // 0x3e51 @0x0
0x3e51…3e64 lno = 0x0f6e // 0x3e53 @0x2
0x3e51…3e64 at0004 = ╱8200╱ IF ╱ // 0x3e55 @0x4
0x3e51…3e64 at0006 = ╱48╱H╱ // 0x3e57 @0x6
0x3e51…3e64 at0007 = ╱44╱D╱ // 0x3e58 @0x7
0x3e51…3e64 at0008 = ╱34╱4╱ // 0x3e59 @0x8
0x3e51…3e64 at0009 = ╱e0╱ < ╱ // 0x3e5a @0x9
0x3e51…3e64 at000a = ╱4f╱O╱ // 0x3e5b @0xa
0x3e51…3e64 at000b = ╱b5╱ THEN ╱ // 0x3e5c @0xb
0x3e51…3e64 at000c = ╱86╱ LET ╱ // 0x3e5d @0xc
0x3e51…3e64 at000d = ╱48╱H╱ // 0x3e5e @0xd
0x3e51…3e64 at000e = ╱44╱D╱ // 0x3e5f @0xe
0x3e51…3e64 at000f = ╱34╱4╱ // 0x3e60 @0xf
0x3e51…3e64 at0010 = ╱f0╱ := ╱ // 0x3e61 @0x10
0x3e51…3e64 at0011 = ╱4f╱O╱ // 0x3e62 @0x11
0x3e51…3e64 at0012 = EOL // 0x3e63 @0x12
0x3e51…3e64 }
0x3e64…3e6a d458 03955 ENDIF
0x3e64…3e6a LineComal80 {
0x3e64…3e6a ptr = 0xd458 // 0x3e64 @0x0
0x3e64…3e6a lno = 0x0f73 // 0x3e66 @0x2
0x3e64…3e6a at0004 = ╱9c╱ ENDIF ╱ // 0x3e68 @0x4
0x3e64…3e6a at0005 = EOL // 0x3e69 @0x5
0x3e64…3e6a }
0x3e6a…3e77 d465 03960 IF D5 < O THEN
0x3e6a…3e77 LineComal80 {
0x3e6a…3e77 ptr = 0xd465 // 0x3e6a @0x0
0x3e6a…3e77 lno = 0x0f78 // 0x3e6c @0x2
0x3e6a…3e77 at0004 = ╱9b0042╱ IF ╱ // 0x3e6e @0x4
0x3e6a…3e77 at0007 = ╱44╱D╱ // 0x3e71 @0x7
0x3e6a…3e77 at0008 = ╱35╱5╱ // 0x3e72 @0x8
0x3e6a…3e77 at0009 = ╱e0╱ < ╱ // 0x3e73 @0x9
0x3e6a…3e77 at000a = ╱4f╱O╱ // 0x3e74 @0xa
0x3e6a…3e77 at000b = ╱b5╱ THEN ╱ // 0x3e75 @0xb
0x3e6a…3e77 at000c = EOL // 0x3e76 @0xc
0x3e6a…3e77 }
0x3e77…3e8e d47c 03965 LET HD5 := HD5 + BD5 ; BD5 := O
0x3e77…3e8e LineComal80 {
0x3e77…3e8e ptr = 0xd47c // 0x3e77 @0x0
0x3e77…3e8e lno = 0x0f7d // 0x3e79 @0x2
0x3e77…3e8e at0004 = ╱86╱ LET ╱ // 0x3e7b @0x4
0x3e77…3e8e at0005 = ╱48╱H╱ // 0x3e7c @0x5
0x3e77…3e8e at0006 = ╱44╱D╱ // 0x3e7d @0x6
0x3e77…3e8e at0007 = ╱35╱5╱ // 0x3e7e @0x7
0x3e77…3e8e at0008 = ╱f0╱ := ╱ // 0x3e7f @0x8
0x3e77…3e8e at0009 = ╱48╱H╱ // 0x3e80 @0x9
0x3e77…3e8e at000a = ╱44╱D╱ // 0x3e81 @0xa
0x3e77…3e8e at000b = ╱35╱5╱ // 0x3e82 @0xb
0x3e77…3e8e at000c = ╱e5╱ + ╱ // 0x3e83 @0xc
0x3e77…3e8e at000d = ╱42╱B╱ // 0x3e84 @0xd
0x3e77…3e8e at000e = ╱44╱D╱ // 0x3e85 @0xe
0x3e77…3e8e at000f = ╱35╱5╱ // 0x3e86 @0xf
0x3e77…3e8e at0010 = ╱ea╱ ; ╱ // 0x3e87 @0x10
0x3e77…3e8e at0011 = ╱42╱B╱ // 0x3e88 @0x11
0x3e77…3e8e at0012 = ╱44╱D╱ // 0x3e89 @0x12
0x3e77…3e8e at0013 = ╱35╱5╱ // 0x3e8a @0x13
0x3e77…3e8e at0014 = ╱f0╱ := ╱ // 0x3e8b @0x14
0x3e77…3e8e at0015 = ╱4f╱O╱ // 0x3e8c @0x15
0x3e77…3e8e at0016 = EOL // 0x3e8d @0x16
0x3e77…3e8e }
0x3e8e…3ea1 d48f 03970 IF HD5 < O THEN LET HD5 := O
0x3e8e…3ea1 LineComal80 {
0x3e8e…3ea1 ptr = 0xd48f // 0x3e8e @0x0
0x3e8e…3ea1 lno = 0x0f82 // 0x3e90 @0x2
0x3e8e…3ea1 at0004 = ╱8200╱ IF ╱ // 0x3e92 @0x4
0x3e8e…3ea1 at0006 = ╱48╱H╱ // 0x3e94 @0x6
0x3e8e…3ea1 at0007 = ╱44╱D╱ // 0x3e95 @0x7
0x3e8e…3ea1 at0008 = ╱35╱5╱ // 0x3e96 @0x8
0x3e8e…3ea1 at0009 = ╱e0╱ < ╱ // 0x3e97 @0x9
0x3e8e…3ea1 at000a = ╱4f╱O╱ // 0x3e98 @0xa
0x3e8e…3ea1 at000b = ╱b5╱ THEN ╱ // 0x3e99 @0xb
0x3e8e…3ea1 at000c = ╱86╱ LET ╱ // 0x3e9a @0xc
0x3e8e…3ea1 at000d = ╱48╱H╱ // 0x3e9b @0xd
0x3e8e…3ea1 at000e = ╱44╱D╱ // 0x3e9c @0xe
0x3e8e…3ea1 at000f = ╱35╱5╱ // 0x3e9d @0xf
0x3e8e…3ea1 at0010 = ╱f0╱ := ╱ // 0x3e9e @0x10
0x3e8e…3ea1 at0011 = ╱4f╱O╱ // 0x3e9f @0x11
0x3e8e…3ea1 at0012 = EOL // 0x3ea0 @0x12
0x3e8e…3ea1 }
0x3ea1…3ea7 d495 03975 ENDIF
0x3ea1…3ea7 LineComal80 {
0x3ea1…3ea7 ptr = 0xd495 // 0x3ea1 @0x0
0x3ea1…3ea7 lno = 0x0f87 // 0x3ea3 @0x2
0x3ea1…3ea7 at0004 = ╱9c╱ ENDIF ╱ // 0x3ea5 @0x4
0x3ea1…3ea7 at0005 = EOL // 0x3ea6 @0x5
0x3ea1…3ea7 }
0x3ea7…3ee6 d4d4 03980 LET HD6 := HD1 + HD2 + HDA2 + HD3 + HD4 + HD5 ; BD6 := BD1 + BD2 + BDA2 + BD3 + BD4 + BD5
0x3ea7…3ee6 LineComal80 {
0x3ea7…3ee6 ptr = 0xd4d4 // 0x3ea7 @0x0
0x3ea7…3ee6 lno = 0x0f8c // 0x3ea9 @0x2
0x3ea7…3ee6 at0004 = ╱86╱ LET ╱ // 0x3eab @0x4
0x3ea7…3ee6 at0005 = ╱48╱H╱ // 0x3eac @0x5
0x3ea7…3ee6 at0006 = ╱44╱D╱ // 0x3ead @0x6
0x3ea7…3ee6 at0007 = ╱36╱6╱ // 0x3eae @0x7
0x3ea7…3ee6 at0008 = ╱f0╱ := ╱ // 0x3eaf @0x8
0x3ea7…3ee6 at0009 = ╱48╱H╱ // 0x3eb0 @0x9
0x3ea7…3ee6 at000a = ╱44╱D╱ // 0x3eb1 @0xa
0x3ea7…3ee6 at000b = ╱31╱1╱ // 0x3eb2 @0xb
0x3ea7…3ee6 at000c = ╱e5╱ + ╱ // 0x3eb3 @0xc
0x3ea7…3ee6 at000d = ╱48╱H╱ // 0x3eb4 @0xd
0x3ea7…3ee6 at000e = ╱44╱D╱ // 0x3eb5 @0xe
0x3ea7…3ee6 at000f = ╱32╱2╱ // 0x3eb6 @0xf
0x3ea7…3ee6 at0010 = ╱e5╱ + ╱ // 0x3eb7 @0x10
0x3ea7…3ee6 at0011 = ╱48╱H╱ // 0x3eb8 @0x11
0x3ea7…3ee6 at0012 = ╱44╱D╱ // 0x3eb9 @0x12
0x3ea7…3ee6 at0013 = ╱41╱A╱ // 0x3eba @0x13
0x3ea7…3ee6 at0014 = ╱32╱2╱ // 0x3ebb @0x14
0x3ea7…3ee6 at0015 = ╱e5╱ + ╱ // 0x3ebc @0x15
0x3ea7…3ee6 at0016 = ╱48╱H╱ // 0x3ebd @0x16
0x3ea7…3ee6 at0017 = ╱44╱D╱ // 0x3ebe @0x17
0x3ea7…3ee6 at0018 = ╱33╱3╱ // 0x3ebf @0x18
0x3ea7…3ee6 at0019 = ╱e5╱ + ╱ // 0x3ec0 @0x19
0x3ea7…3ee6 at001a = ╱48╱H╱ // 0x3ec1 @0x1a
0x3ea7…3ee6 at001b = ╱44╱D╱ // 0x3ec2 @0x1b
0x3ea7…3ee6 at001c = ╱34╱4╱ // 0x3ec3 @0x1c
0x3ea7…3ee6 at001d = ╱e5╱ + ╱ // 0x3ec4 @0x1d
0x3ea7…3ee6 at001e = ╱48╱H╱ // 0x3ec5 @0x1e
0x3ea7…3ee6 at001f = ╱44╱D╱ // 0x3ec6 @0x1f
0x3ea7…3ee6 at0020 = ╱35╱5╱ // 0x3ec7 @0x20
0x3ea7…3ee6 at0021 = ╱ea╱ ; ╱ // 0x3ec8 @0x21
0x3ea7…3ee6 at0022 = ╱42╱B╱ // 0x3ec9 @0x22
0x3ea7…3ee6 at0023 = ╱44╱D╱ // 0x3eca @0x23
0x3ea7…3ee6 at0024 = ╱36╱6╱ // 0x3ecb @0x24
0x3ea7…3ee6 at0025 = ╱f0╱ := ╱ // 0x3ecc @0x25
0x3ea7…3ee6 at0026 = ╱42╱B╱ // 0x3ecd @0x26
0x3ea7…3ee6 at0027 = ╱44╱D╱ // 0x3ece @0x27
0x3ea7…3ee6 at0028 = ╱31╱1╱ // 0x3ecf @0x28
0x3ea7…3ee6 at0029 = ╱e5╱ + ╱ // 0x3ed0 @0x29
0x3ea7…3ee6 at002a = ╱42╱B╱ // 0x3ed1 @0x2a
0x3ea7…3ee6 at002b = ╱44╱D╱ // 0x3ed2 @0x2b
0x3ea7…3ee6 at002c = ╱32╱2╱ // 0x3ed3 @0x2c
0x3ea7…3ee6 at002d = ╱e5╱ + ╱ // 0x3ed4 @0x2d
0x3ea7…3ee6 at002e = ╱42╱B╱ // 0x3ed5 @0x2e
0x3ea7…3ee6 at002f = ╱44╱D╱ // 0x3ed6 @0x2f
0x3ea7…3ee6 at0030 = ╱41╱A╱ // 0x3ed7 @0x30
0x3ea7…3ee6 at0031 = ╱32╱2╱ // 0x3ed8 @0x31
0x3ea7…3ee6 at0032 = ╱e5╱ + ╱ // 0x3ed9 @0x32
0x3ea7…3ee6 at0033 = ╱42╱B╱ // 0x3eda @0x33
0x3ea7…3ee6 at0034 = ╱44╱D╱ // 0x3edb @0x34
0x3ea7…3ee6 at0035 = ╱33╱3╱ // 0x3edc @0x35
0x3ea7…3ee6 at0036 = ╱e5╱ + ╱ // 0x3edd @0x36
0x3ea7…3ee6 at0037 = ╱42╱B╱ // 0x3ede @0x37
0x3ea7…3ee6 at0038 = ╱44╱D╱ // 0x3edf @0x38
0x3ea7…3ee6 at0039 = ╱34╱4╱ // 0x3ee0 @0x39
0x3ea7…3ee6 at003a = ╱e5╱ + ╱ // 0x3ee1 @0x3a
0x3ea7…3ee6 at003b = ╱42╱B╱ // 0x3ee2 @0x3b
0x3ea7…3ee6 at003c = ╱44╱D╱ // 0x3ee3 @0x3c
0x3ea7…3ee6 at003d = ╱35╱5╱ // 0x3ee4 @0x3d
0x3ea7…3ee6 at003e = EOL // 0x3ee5 @0x3e
0x3ea7…3ee6 }
0x3ee6…3eec d4da 03985 ENDIF
0x3ee6…3eec LineComal80 {
0x3ee6…3eec ptr = 0xd4da // 0x3ee6 @0x0
0x3ee6…3eec lno = 0x0f91 // 0x3ee8 @0x2
0x3ee6…3eec at0004 = ╱9c╱ ENDIF ╱ // 0x3eea @0x4
0x3ee6…3eec at0005 = EOL // 0x3eeb @0x5
0x3ee6…3eec }
0x3eec…3ef7 d4e5 03990 ENDPROC REGN7
0x3eec…3ef7 LineComal80 {
0x3eec…3ef7 ptr = 0xd4e5 // 0x3eec @0x0
0x3eec…3ef7 lno = 0x0f96 // 0x3eee @0x2
0x3eec…3ef7 at0004 = ╱9f╱ ENDPROC ╱ // 0x3ef0 @0x4
0x3eec…3ef7 at0005 = ╱52╱R╱ // 0x3ef1 @0x5
0x3eec…3ef7 at0006 = ╱45╱E╱ // 0x3ef2 @0x6
0x3eec…3ef7 at0007 = ╱47╱G╱ // 0x3ef3 @0x7
0x3eec…3ef7 at0008 = ╱4e╱N╱ // 0x3ef4 @0x8
0x3eec…3ef7 at0009 = ╱37╱7╱ // 0x3ef5 @0x9
0x3eec…3ef7 at000a = EOL // 0x3ef6 @0xa
0x3eec…3ef7 }
0x3ef7…3f04 d4f2 03995 PROC MSSIKS
0x3ef7…3f04 LineComal80 {
0x3ef7…3f04 ptr = 0xd4f2 // 0x3ef7 @0x0
0x3ef7…3f04 lno = 0x0f9b // 0x3ef9 @0x2
0x3ef7…3f04 at0004 = ╱9e00╱ PROC ╱ // 0x3efb @0x4
0x3ef7…3f04 at0006 = ╱4d╱M╱ // 0x3efd @0x6
0x3ef7…3f04 at0007 = ╱53╱S╱ // 0x3efe @0x7
0x3ef7…3f04 at0008 = ╱53╱S╱ // 0x3eff @0x8
0x3ef7…3f04 at0009 = ╱49╱I╱ // 0x3f00 @0x9
0x3ef7…3f04 at000a = ╱4b╱K╱ // 0x3f01 @0xa
0x3ef7…3f04 at000b = ╱53╱S╱ // 0x3f02 @0xb
0x3ef7…3f04 at000c = EOL // 0x3f03 @0xc
0x3ef7…3f04 }
0x3f04…3f1c d50a 04000 LET F4 := ABS ( HD1 + HD2 + HDA2 )
0x3f04…3f1c LineComal80 {
0x3f04…3f1c ptr = 0xd50a // 0x3f04 @0x0
0x3f04…3f1c lno = 0x0fa0 // 0x3f06 @0x2
0x3f04…3f1c at0004 = ╱86╱ LET ╱ // 0x3f08 @0x4
0x3f04…3f1c at0005 = ╱46╱F╱ // 0x3f09 @0x5
0x3f04…3f1c at0006 = ╱34╱4╱ // 0x3f0a @0x6
0x3f04…3f1c at0007 = ╱f0╱ := ╱ // 0x3f0b @0x7
0x3f04…3f1c at0008 = ╱c4╱ ABS ╱ // 0x3f0c @0x8
0x3f04…3f1c at0009 = ╱ed╱ ( ╱ // 0x3f0d @0x9
0x3f04…3f1c at000a = ╱48╱H╱ // 0x3f0e @0xa
0x3f04…3f1c at000b = ╱44╱D╱ // 0x3f0f @0xb
0x3f04…3f1c at000c = ╱31╱1╱ // 0x3f10 @0xc
0x3f04…3f1c at000d = ╱e5╱ + ╱ // 0x3f11 @0xd
0x3f04…3f1c at000e = ╱48╱H╱ // 0x3f12 @0xe
0x3f04…3f1c at000f = ╱44╱D╱ // 0x3f13 @0xf
0x3f04…3f1c at0010 = ╱32╱2╱ // 0x3f14 @0x10
0x3f04…3f1c at0011 = ╱e5╱ + ╱ // 0x3f15 @0x11
0x3f04…3f1c at0012 = ╱48╱H╱ // 0x3f16 @0x12
0x3f04…3f1c at0013 = ╱44╱D╱ // 0x3f17 @0x13
0x3f04…3f1c at0014 = ╱41╱A╱ // 0x3f18 @0x14
0x3f04…3f1c at0015 = ╱32╱2╱ // 0x3f19 @0x15
0x3f04…3f1c at0016 = ╱ee╱ ) ╱ // 0x3f1a @0x16
0x3f04…3f1c at0017 = EOL // 0x3f1b @0x17
0x3f04…3f1c }
0x3f1c…3f41 d52f 04005 IF F4 > HD3 + HD4 + HD5 THEN LET F4 := HD3 + HD4 + HD5
0x3f1c…3f41 LineComal80 {
0x3f1c…3f41 ptr = 0xd52f // 0x3f1c @0x0
0x3f1c…3f41 lno = 0x0fa5 // 0x3f1e @0x2
0x3f1c…3f41 at0004 = ╱8200╱ IF ╱ // 0x3f20 @0x4
0x3f1c…3f41 at0006 = ╱46╱F╱ // 0x3f22 @0x6
0x3f1c…3f41 at0007 = ╱34╱4╱ // 0x3f23 @0x7
0x3f1c…3f41 at0008 = ╱e1╱ > ╱ // 0x3f24 @0x8
0x3f1c…3f41 at0009 = ╱48╱H╱ // 0x3f25 @0x9
0x3f1c…3f41 at000a = ╱44╱D╱ // 0x3f26 @0xa
0x3f1c…3f41 at000b = ╱33╱3╱ // 0x3f27 @0xb
0x3f1c…3f41 at000c = ╱e5╱ + ╱ // 0x3f28 @0xc
0x3f1c…3f41 at000d = ╱48╱H╱ // 0x3f29 @0xd
0x3f1c…3f41 at000e = ╱44╱D╱ // 0x3f2a @0xe
0x3f1c…3f41 at000f = ╱34╱4╱ // 0x3f2b @0xf
0x3f1c…3f41 at0010 = ╱e5╱ + ╱ // 0x3f2c @0x10
0x3f1c…3f41 at0011 = ╱48╱H╱ // 0x3f2d @0x11
0x3f1c…3f41 at0012 = ╱44╱D╱ // 0x3f2e @0x12
0x3f1c…3f41 at0013 = ╱35╱5╱ // 0x3f2f @0x13
0x3f1c…3f41 at0014 = ╱b5╱ THEN ╱ // 0x3f30 @0x14
0x3f1c…3f41 at0015 = ╱86╱ LET ╱ // 0x3f31 @0x15
0x3f1c…3f41 at0016 = ╱46╱F╱ // 0x3f32 @0x16
0x3f1c…3f41 at0017 = ╱34╱4╱ // 0x3f33 @0x17
0x3f1c…3f41 at0018 = ╱f0╱ := ╱ // 0x3f34 @0x18
0x3f1c…3f41 at0019 = ╱48╱H╱ // 0x3f35 @0x19
0x3f1c…3f41 at001a = ╱44╱D╱ // 0x3f36 @0x1a
0x3f1c…3f41 at001b = ╱33╱3╱ // 0x3f37 @0x1b
0x3f1c…3f41 at001c = ╱e5╱ + ╱ // 0x3f38 @0x1c
0x3f1c…3f41 at001d = ╱48╱H╱ // 0x3f39 @0x1d
0x3f1c…3f41 at001e = ╱44╱D╱ // 0x3f3a @0x1e
0x3f1c…3f41 at001f = ╱34╱4╱ // 0x3f3b @0x1f
0x3f1c…3f41 at0020 = ╱e5╱ + ╱ // 0x3f3c @0x20
0x3f1c…3f41 at0021 = ╱48╱H╱ // 0x3f3d @0x21
0x3f1c…3f41 at0022 = ╱44╱D╱ // 0x3f3e @0x22
0x3f1c…3f41 at0023 = ╱35╱5╱ // 0x3f3f @0x23
0x3f1c…3f41 at0024 = EOL // 0x3f40 @0x24
0x3f1c…3f41 }
0x3f41…3f7c d56a 04010 LET HD3 := HD3 - ( F4 / ( P7 + P8 + P9 ) * P7 ) ; HD4 := HD4 - ( F4 / ( P7 + P8 + P9 ) * P8 )
0x3f41…3f7c LineComal80 {
0x3f41…3f7c ptr = 0xd56a // 0x3f41 @0x0
0x3f41…3f7c lno = 0x0faa // 0x3f43 @0x2
0x3f41…3f7c at0004 = ╱86╱ LET ╱ // 0x3f45 @0x4
0x3f41…3f7c at0005 = ╱48╱H╱ // 0x3f46 @0x5
0x3f41…3f7c at0006 = ╱44╱D╱ // 0x3f47 @0x6
0x3f41…3f7c at0007 = ╱33╱3╱ // 0x3f48 @0x7
0x3f41…3f7c at0008 = ╱f0╱ := ╱ // 0x3f49 @0x8
0x3f41…3f7c at0009 = ╱48╱H╱ // 0x3f4a @0x9
0x3f41…3f7c at000a = ╱44╱D╱ // 0x3f4b @0xa
0x3f41…3f7c at000b = ╱33╱3╱ // 0x3f4c @0xb
0x3f41…3f7c at000c = ╱e6╱ - ╱ // 0x3f4d @0xc
0x3f41…3f7c at000d = ╱ed╱ ( ╱ // 0x3f4e @0xd
0x3f41…3f7c at000e = ╱46╱F╱ // 0x3f4f @0xe
0x3f41…3f7c at000f = ╱34╱4╱ // 0x3f50 @0xf
0x3f41…3f7c at0010 = ╱e8╱ / ╱ // 0x3f51 @0x10
0x3f41…3f7c at0011 = ╱ed╱ ( ╱ // 0x3f52 @0x11
0x3f41…3f7c at0012 = ╱50╱P╱ // 0x3f53 @0x12
0x3f41…3f7c at0013 = ╱37╱7╱ // 0x3f54 @0x13
0x3f41…3f7c at0014 = ╱e5╱ + ╱ // 0x3f55 @0x14
0x3f41…3f7c at0015 = ╱50╱P╱ // 0x3f56 @0x15
0x3f41…3f7c at0016 = ╱38╱8╱ // 0x3f57 @0x16
0x3f41…3f7c at0017 = ╱e5╱ + ╱ // 0x3f58 @0x17
0x3f41…3f7c at0018 = ╱50╱P╱ // 0x3f59 @0x18
0x3f41…3f7c at0019 = ╱39╱9╱ // 0x3f5a @0x19
0x3f41…3f7c at001a = ╱ee╱ ) ╱ // 0x3f5b @0x1a
0x3f41…3f7c at001b = ╱e7╱ * ╱ // 0x3f5c @0x1b
0x3f41…3f7c at001c = ╱50╱P╱ // 0x3f5d @0x1c
0x3f41…3f7c at001d = ╱37╱7╱ // 0x3f5e @0x1d
0x3f41…3f7c at001e = ╱ee╱ ) ╱ // 0x3f5f @0x1e
0x3f41…3f7c at001f = ╱ea╱ ; ╱ // 0x3f60 @0x1f
0x3f41…3f7c at0020 = ╱48╱H╱ // 0x3f61 @0x20
0x3f41…3f7c at0021 = ╱44╱D╱ // 0x3f62 @0x21
0x3f41…3f7c at0022 = ╱34╱4╱ // 0x3f63 @0x22
0x3f41…3f7c at0023 = ╱f0╱ := ╱ // 0x3f64 @0x23
0x3f41…3f7c at0024 = ╱48╱H╱ // 0x3f65 @0x24
0x3f41…3f7c at0025 = ╱44╱D╱ // 0x3f66 @0x25
0x3f41…3f7c at0026 = ╱34╱4╱ // 0x3f67 @0x26
0x3f41…3f7c at0027 = ╱e6╱ - ╱ // 0x3f68 @0x27
0x3f41…3f7c at0028 = ╱ed╱ ( ╱ // 0x3f69 @0x28
0x3f41…3f7c at0029 = ╱46╱F╱ // 0x3f6a @0x29
0x3f41…3f7c at002a = ╱34╱4╱ // 0x3f6b @0x2a
0x3f41…3f7c at002b = ╱e8╱ / ╱ // 0x3f6c @0x2b
0x3f41…3f7c at002c = ╱ed╱ ( ╱ // 0x3f6d @0x2c
0x3f41…3f7c at002d = ╱50╱P╱ // 0x3f6e @0x2d
0x3f41…3f7c at002e = ╱37╱7╱ // 0x3f6f @0x2e
0x3f41…3f7c at002f = ╱e5╱ + ╱ // 0x3f70 @0x2f
0x3f41…3f7c at0030 = ╱50╱P╱ // 0x3f71 @0x30
0x3f41…3f7c at0031 = ╱38╱8╱ // 0x3f72 @0x31
0x3f41…3f7c at0032 = ╱e5╱ + ╱ // 0x3f73 @0x32
0x3f41…3f7c at0033 = ╱50╱P╱ // 0x3f74 @0x33
0x3f41…3f7c at0034 = ╱39╱9╱ // 0x3f75 @0x34
0x3f41…3f7c at0035 = ╱ee╱ ) ╱ // 0x3f76 @0x35
0x3f41…3f7c at0036 = ╱e7╱ * ╱ // 0x3f77 @0x36
0x3f41…3f7c at0037 = ╱50╱P╱ // 0x3f78 @0x37
0x3f41…3f7c at0038 = ╱38╱8╱ // 0x3f79 @0x38
0x3f41…3f7c at0039 = ╱ee╱ ) ╱ // 0x3f7a @0x39
0x3f41…3f7c at003a = EOL // 0x3f7b @0x3a
0x3f41…3f7c }
0x3f7c…3fb3 d5a1 04015 LET HD5 := HD5 - ( F4 / ( P7 + P8 + P9 ) * P9 ) ; D1 := HD1 ; D2 := HD2 ; DA2 := HDA2
0x3f7c…3fb3 LineComal80 {
0x3f7c…3fb3 ptr = 0xd5a1 // 0x3f7c @0x0
0x3f7c…3fb3 lno = 0x0faf // 0x3f7e @0x2
0x3f7c…3fb3 at0004 = ╱86╱ LET ╱ // 0x3f80 @0x4
0x3f7c…3fb3 at0005 = ╱48╱H╱ // 0x3f81 @0x5
0x3f7c…3fb3 at0006 = ╱44╱D╱ // 0x3f82 @0x6
0x3f7c…3fb3 at0007 = ╱35╱5╱ // 0x3f83 @0x7
0x3f7c…3fb3 at0008 = ╱f0╱ := ╱ // 0x3f84 @0x8
0x3f7c…3fb3 at0009 = ╱48╱H╱ // 0x3f85 @0x9
0x3f7c…3fb3 at000a = ╱44╱D╱ // 0x3f86 @0xa
0x3f7c…3fb3 at000b = ╱35╱5╱ // 0x3f87 @0xb
0x3f7c…3fb3 at000c = ╱e6╱ - ╱ // 0x3f88 @0xc
0x3f7c…3fb3 at000d = ╱ed╱ ( ╱ // 0x3f89 @0xd
0x3f7c…3fb3 at000e = ╱46╱F╱ // 0x3f8a @0xe
0x3f7c…3fb3 at000f = ╱34╱4╱ // 0x3f8b @0xf
0x3f7c…3fb3 at0010 = ╱e8╱ / ╱ // 0x3f8c @0x10
0x3f7c…3fb3 at0011 = ╱ed╱ ( ╱ // 0x3f8d @0x11
0x3f7c…3fb3 at0012 = ╱50╱P╱ // 0x3f8e @0x12
0x3f7c…3fb3 at0013 = ╱37╱7╱ // 0x3f8f @0x13
0x3f7c…3fb3 at0014 = ╱e5╱ + ╱ // 0x3f90 @0x14
0x3f7c…3fb3 at0015 = ╱50╱P╱ // 0x3f91 @0x15
0x3f7c…3fb3 at0016 = ╱38╱8╱ // 0x3f92 @0x16
0x3f7c…3fb3 at0017 = ╱e5╱ + ╱ // 0x3f93 @0x17
0x3f7c…3fb3 at0018 = ╱50╱P╱ // 0x3f94 @0x18
0x3f7c…3fb3 at0019 = ╱39╱9╱ // 0x3f95 @0x19
0x3f7c…3fb3 at001a = ╱ee╱ ) ╱ // 0x3f96 @0x1a
0x3f7c…3fb3 at001b = ╱e7╱ * ╱ // 0x3f97 @0x1b
0x3f7c…3fb3 at001c = ╱50╱P╱ // 0x3f98 @0x1c
0x3f7c…3fb3 at001d = ╱39╱9╱ // 0x3f99 @0x1d
0x3f7c…3fb3 at001e = ╱ee╱ ) ╱ // 0x3f9a @0x1e
0x3f7c…3fb3 at001f = ╱ea╱ ; ╱ // 0x3f9b @0x1f
0x3f7c…3fb3 at0020 = ╱44╱D╱ // 0x3f9c @0x20
0x3f7c…3fb3 at0021 = ╱31╱1╱ // 0x3f9d @0x21
0x3f7c…3fb3 at0022 = ╱f0╱ := ╱ // 0x3f9e @0x22
0x3f7c…3fb3 at0023 = ╱48╱H╱ // 0x3f9f @0x23
0x3f7c…3fb3 at0024 = ╱44╱D╱ // 0x3fa0 @0x24
0x3f7c…3fb3 at0025 = ╱31╱1╱ // 0x3fa1 @0x25
0x3f7c…3fb3 at0026 = ╱ea╱ ; ╱ // 0x3fa2 @0x26
0x3f7c…3fb3 at0027 = ╱44╱D╱ // 0x3fa3 @0x27
0x3f7c…3fb3 at0028 = ╱32╱2╱ // 0x3fa4 @0x28
0x3f7c…3fb3 at0029 = ╱f0╱ := ╱ // 0x3fa5 @0x29
0x3f7c…3fb3 at002a = ╱48╱H╱ // 0x3fa6 @0x2a
0x3f7c…3fb3 at002b = ╱44╱D╱ // 0x3fa7 @0x2b
0x3f7c…3fb3 at002c = ╱32╱2╱ // 0x3fa8 @0x2c
0x3f7c…3fb3 at002d = ╱ea╱ ; ╱ // 0x3fa9 @0x2d
0x3f7c…3fb3 at002e = ╱44╱D╱ // 0x3faa @0x2e
0x3f7c…3fb3 at002f = ╱41╱A╱ // 0x3fab @0x2f
0x3f7c…3fb3 at0030 = ╱32╱2╱ // 0x3fac @0x30
0x3f7c…3fb3 at0031 = ╱f0╱ := ╱ // 0x3fad @0x31
0x3f7c…3fb3 at0032 = ╱48╱H╱ // 0x3fae @0x32
0x3f7c…3fb3 at0033 = ╱44╱D╱ // 0x3faf @0x33
0x3f7c…3fb3 at0034 = ╱41╱A╱ // 0x3fb0 @0x34
0x3f7c…3fb3 at0035 = ╱32╱2╱ // 0x3fb1 @0x35
0x3f7c…3fb3 at0036 = EOL // 0x3fb2 @0x36
0x3f7c…3fb3 }
0x3fb3…3ff0 d5de 04020 LET HD1 := HD1 + ( F4 / ( D1 + D2 + DA2 ) * D1 ) ; HD2 := HD2 + ( F4 / ( D1 + D2 + DA2 ) * D2 )
0x3fb3…3ff0 LineComal80 {
0x3fb3…3ff0 ptr = 0xd5de // 0x3fb3 @0x0
0x3fb3…3ff0 lno = 0x0fb4 // 0x3fb5 @0x2
0x3fb3…3ff0 at0004 = ╱86╱ LET ╱ // 0x3fb7 @0x4
0x3fb3…3ff0 at0005 = ╱48╱H╱ // 0x3fb8 @0x5
0x3fb3…3ff0 at0006 = ╱44╱D╱ // 0x3fb9 @0x6
0x3fb3…3ff0 at0007 = ╱31╱1╱ // 0x3fba @0x7
0x3fb3…3ff0 at0008 = ╱f0╱ := ╱ // 0x3fbb @0x8
0x3fb3…3ff0 at0009 = ╱48╱H╱ // 0x3fbc @0x9
0x3fb3…3ff0 at000a = ╱44╱D╱ // 0x3fbd @0xa
0x3fb3…3ff0 at000b = ╱31╱1╱ // 0x3fbe @0xb
0x3fb3…3ff0 at000c = ╱e5╱ + ╱ // 0x3fbf @0xc
0x3fb3…3ff0 at000d = ╱ed╱ ( ╱ // 0x3fc0 @0xd
0x3fb3…3ff0 at000e = ╱46╱F╱ // 0x3fc1 @0xe
0x3fb3…3ff0 at000f = ╱34╱4╱ // 0x3fc2 @0xf
0x3fb3…3ff0 at0010 = ╱e8╱ / ╱ // 0x3fc3 @0x10
0x3fb3…3ff0 at0011 = ╱ed╱ ( ╱ // 0x3fc4 @0x11
0x3fb3…3ff0 at0012 = ╱44╱D╱ // 0x3fc5 @0x12
0x3fb3…3ff0 at0013 = ╱31╱1╱ // 0x3fc6 @0x13
0x3fb3…3ff0 at0014 = ╱e5╱ + ╱ // 0x3fc7 @0x14
0x3fb3…3ff0 at0015 = ╱44╱D╱ // 0x3fc8 @0x15
0x3fb3…3ff0 at0016 = ╱32╱2╱ // 0x3fc9 @0x16
0x3fb3…3ff0 at0017 = ╱e5╱ + ╱ // 0x3fca @0x17
0x3fb3…3ff0 at0018 = ╱44╱D╱ // 0x3fcb @0x18
0x3fb3…3ff0 at0019 = ╱41╱A╱ // 0x3fcc @0x19
0x3fb3…3ff0 at001a = ╱32╱2╱ // 0x3fcd @0x1a
0x3fb3…3ff0 at001b = ╱ee╱ ) ╱ // 0x3fce @0x1b
0x3fb3…3ff0 at001c = ╱e7╱ * ╱ // 0x3fcf @0x1c
0x3fb3…3ff0 at001d = ╱44╱D╱ // 0x3fd0 @0x1d
0x3fb3…3ff0 at001e = ╱31╱1╱ // 0x3fd1 @0x1e
0x3fb3…3ff0 at001f = ╱ee╱ ) ╱ // 0x3fd2 @0x1f
0x3fb3…3ff0 at0020 = ╱ea╱ ; ╱ // 0x3fd3 @0x20
0x3fb3…3ff0 at0021 = ╱48╱H╱ // 0x3fd4 @0x21
0x3fb3…3ff0 at0022 = ╱44╱D╱ // 0x3fd5 @0x22
0x3fb3…3ff0 at0023 = ╱32╱2╱ // 0x3fd6 @0x23
0x3fb3…3ff0 at0024 = ╱f0╱ := ╱ // 0x3fd7 @0x24
0x3fb3…3ff0 at0025 = ╱48╱H╱ // 0x3fd8 @0x25
0x3fb3…3ff0 at0026 = ╱44╱D╱ // 0x3fd9 @0x26
0x3fb3…3ff0 at0027 = ╱32╱2╱ // 0x3fda @0x27
0x3fb3…3ff0 at0028 = ╱e5╱ + ╱ // 0x3fdb @0x28
0x3fb3…3ff0 at0029 = ╱ed╱ ( ╱ // 0x3fdc @0x29
0x3fb3…3ff0 at002a = ╱46╱F╱ // 0x3fdd @0x2a
0x3fb3…3ff0 at002b = ╱34╱4╱ // 0x3fde @0x2b
0x3fb3…3ff0 at002c = ╱e8╱ / ╱ // 0x3fdf @0x2c
0x3fb3…3ff0 at002d = ╱ed╱ ( ╱ // 0x3fe0 @0x2d
0x3fb3…3ff0 at002e = ╱44╱D╱ // 0x3fe1 @0x2e
0x3fb3…3ff0 at002f = ╱31╱1╱ // 0x3fe2 @0x2f
0x3fb3…3ff0 at0030 = ╱e5╱ + ╱ // 0x3fe3 @0x30
0x3fb3…3ff0 at0031 = ╱44╱D╱ // 0x3fe4 @0x31
0x3fb3…3ff0 at0032 = ╱32╱2╱ // 0x3fe5 @0x32
0x3fb3…3ff0 at0033 = ╱e5╱ + ╱ // 0x3fe6 @0x33
0x3fb3…3ff0 at0034 = ╱44╱D╱ // 0x3fe7 @0x34
0x3fb3…3ff0 at0035 = ╱41╱A╱ // 0x3fe8 @0x35
0x3fb3…3ff0 at0036 = ╱32╱2╱ // 0x3fe9 @0x36
0x3fb3…3ff0 at0037 = ╱ee╱ ) ╱ // 0x3fea @0x37
0x3fb3…3ff0 at0038 = ╱e7╱ * ╱ // 0x3feb @0x38
0x3fb3…3ff0 at0039 = ╱44╱D╱ // 0x3fec @0x39
0x3fb3…3ff0 at003a = ╱32╱2╱ // 0x3fed @0x3a
0x3fb3…3ff0 at003b = ╱ee╱ ) ╱ // 0x3fee @0x3b
0x3fb3…3ff0 at003c = EOL // 0x3fef @0x3c
0x3fb3…3ff0 }
0x3ff0…4014 d602 04025 LET HDA2 := HDA2 + ( F4 / ( D1 + D2 + DA2 ) * DA2 )
0x3ff0…4014 LineComal80 {
0x3ff0…4014 ptr = 0xd602 // 0x3ff0 @0x0
0x3ff0…4014 lno = 0x0fb9 // 0x3ff2 @0x2
0x3ff0…4014 at0004 = ╱86╱ LET ╱ // 0x3ff4 @0x4
0x3ff0…4014 at0005 = ╱48╱H╱ // 0x3ff5 @0x5
0x3ff0…4014 at0006 = ╱44╱D╱ // 0x3ff6 @0x6
0x3ff0…4014 at0007 = ╱41╱A╱ // 0x3ff7 @0x7
0x3ff0…4014 at0008 = ╱32╱2╱ // 0x3ff8 @0x8
0x3ff0…4014 at0009 = ╱f0╱ := ╱ // 0x3ff9 @0x9
0x3ff0…4014 at000a = ╱48╱H╱ // 0x3ffa @0xa
0x3ff0…4014 at000b = ╱44╱D╱ // 0x3ffb @0xb
0x3ff0…4014 at000c = ╱41╱A╱ // 0x3ffc @0xc
0x3ff0…4014 at000d = ╱32╱2╱ // 0x3ffd @0xd
0x3ff0…4014 at000e = ╱e5╱ + ╱ // 0x3ffe @0xe
0x3ff0…4014 at000f = ╱ed╱ ( ╱ // 0x3fff @0xf
0x3ff0…4014 at0010 = ╱46╱F╱ // 0x4000 @0x10
0x3ff0…4014 at0011 = ╱34╱4╱ // 0x4001 @0x11
0x3ff0…4014 at0012 = ╱e8╱ / ╱ // 0x4002 @0x12
0x3ff0…4014 at0013 = ╱ed╱ ( ╱ // 0x4003 @0x13
0x3ff0…4014 at0014 = ╱44╱D╱ // 0x4004 @0x14
0x3ff0…4014 at0015 = ╱31╱1╱ // 0x4005 @0x15
0x3ff0…4014 at0016 = ╱e5╱ + ╱ // 0x4006 @0x16
0x3ff0…4014 at0017 = ╱44╱D╱ // 0x4007 @0x17
0x3ff0…4014 at0018 = ╱32╱2╱ // 0x4008 @0x18
0x3ff0…4014 at0019 = ╱e5╱ + ╱ // 0x4009 @0x19
0x3ff0…4014 at001a = ╱44╱D╱ // 0x400a @0x1a
0x3ff0…4014 at001b = ╱41╱A╱ // 0x400b @0x1b
0x3ff0…4014 at001c = ╱32╱2╱ // 0x400c @0x1c
0x3ff0…4014 at001d = ╱ee╱ ) ╱ // 0x400d @0x1d
0x3ff0…4014 at001e = ╱e7╱ * ╱ // 0x400e @0x1e
0x3ff0…4014 at001f = ╱44╱D╱ // 0x400f @0x1f
0x3ff0…4014 at0020 = ╱41╱A╱ // 0x4010 @0x20
0x3ff0…4014 at0021 = ╱32╱2╱ // 0x4011 @0x21
0x3ff0…4014 at0022 = ╱ee╱ ) ╱ // 0x4012 @0x22
0x3ff0…4014 at0023 = EOL // 0x4013 @0x23
0x3ff0…4014 }
0x4014…4020 d60e 04030 ENDPROC MSSIKS
0x4014…4020 LineComal80 {
0x4014…4020 ptr = 0xd60e // 0x4014 @0x0
0x4014…4020 lno = 0x0fbe // 0x4016 @0x2
0x4014…4020 at0004 = ╱9f╱ ENDPROC ╱ // 0x4018 @0x4
0x4014…4020 at0005 = ╱4d╱M╱ // 0x4019 @0x5
0x4014…4020 at0006 = ╱53╱S╱ // 0x401a @0x6
0x4014…4020 at0007 = ╱53╱S╱ // 0x401b @0x7
0x4014…4020 at0008 = ╱49╱I╱ // 0x401c @0x8
0x4014…4020 at0009 = ╱4b╱K╱ // 0x401d @0x9
0x4014…4020 at000a = ╱53╱S╱ // 0x401e @0xa
0x4014…4020 at000b = EOL // 0x401f @0xb
0x4014…4020 }
0x4020…402e d61c 04035 PROC MSSIKS1
0x4020…402e LineComal80 {
0x4020…402e ptr = 0xd61c // 0x4020 @0x0
0x4020…402e lno = 0x0fc3 // 0x4022 @0x2
0x4020…402e at0004 = ╱9e00╱ PROC ╱ // 0x4024 @0x4
0x4020…402e at0006 = ╱4d╱M╱ // 0x4026 @0x6
0x4020…402e at0007 = ╱53╱S╱ // 0x4027 @0x7
0x4020…402e at0008 = ╱53╱S╱ // 0x4028 @0x8
0x4020…402e at0009 = ╱49╱I╱ // 0x4029 @0x9
0x4020…402e at000a = ╱4b╱K╱ // 0x402a @0xa
0x4020…402e at000b = ╱53╱S╱ // 0x402b @0xb
0x4020…402e at000c = ╱31╱1╱ // 0x402c @0xc
0x4020…402e at000d = EOL // 0x402d @0xd
0x4020…402e }
0x402e…4046 d634 04040 LET F4 := ABS ( BD1 + BD2 + BDA2 )
0x402e…4046 LineComal80 {
0x402e…4046 ptr = 0xd634 // 0x402e @0x0
0x402e…4046 lno = 0x0fc8 // 0x4030 @0x2
0x402e…4046 at0004 = ╱86╱ LET ╱ // 0x4032 @0x4
0x402e…4046 at0005 = ╱46╱F╱ // 0x4033 @0x5
0x402e…4046 at0006 = ╱34╱4╱ // 0x4034 @0x6
0x402e…4046 at0007 = ╱f0╱ := ╱ // 0x4035 @0x7
0x402e…4046 at0008 = ╱c4╱ ABS ╱ // 0x4036 @0x8
0x402e…4046 at0009 = ╱ed╱ ( ╱ // 0x4037 @0x9
0x402e…4046 at000a = ╱42╱B╱ // 0x4038 @0xa
0x402e…4046 at000b = ╱44╱D╱ // 0x4039 @0xb
0x402e…4046 at000c = ╱31╱1╱ // 0x403a @0xc
0x402e…4046 at000d = ╱e5╱ + ╱ // 0x403b @0xd
0x402e…4046 at000e = ╱42╱B╱ // 0x403c @0xe
0x402e…4046 at000f = ╱44╱D╱ // 0x403d @0xf
0x402e…4046 at0010 = ╱32╱2╱ // 0x403e @0x10
0x402e…4046 at0011 = ╱e5╱ + ╱ // 0x403f @0x11
0x402e…4046 at0012 = ╱42╱B╱ // 0x4040 @0x12
0x402e…4046 at0013 = ╱44╱D╱ // 0x4041 @0x13
0x402e…4046 at0014 = ╱41╱A╱ // 0x4042 @0x14
0x402e…4046 at0015 = ╱32╱2╱ // 0x4043 @0x15
0x402e…4046 at0016 = ╱ee╱ ) ╱ // 0x4044 @0x16
0x402e…4046 at0017 = EOL // 0x4045 @0x17
0x402e…4046 }
0x4046…406b d659 04045 IF F4 > BD3 + BD4 + BD5 THEN LET F4 := BD3 + BD4 + BD5
0x4046…406b LineComal80 {
0x4046…406b ptr = 0xd659 // 0x4046 @0x0
0x4046…406b lno = 0x0fcd // 0x4048 @0x2
0x4046…406b at0004 = ╱8200╱ IF ╱ // 0x404a @0x4
0x4046…406b at0006 = ╱46╱F╱ // 0x404c @0x6
0x4046…406b at0007 = ╱34╱4╱ // 0x404d @0x7
0x4046…406b at0008 = ╱e1╱ > ╱ // 0x404e @0x8
0x4046…406b at0009 = ╱42╱B╱ // 0x404f @0x9
0x4046…406b at000a = ╱44╱D╱ // 0x4050 @0xa
0x4046…406b at000b = ╱33╱3╱ // 0x4051 @0xb
0x4046…406b at000c = ╱e5╱ + ╱ // 0x4052 @0xc
0x4046…406b at000d = ╱42╱B╱ // 0x4053 @0xd
0x4046…406b at000e = ╱44╱D╱ // 0x4054 @0xe
0x4046…406b at000f = ╱34╱4╱ // 0x4055 @0xf
0x4046…406b at0010 = ╱e5╱ + ╱ // 0x4056 @0x10
0x4046…406b at0011 = ╱42╱B╱ // 0x4057 @0x11
0x4046…406b at0012 = ╱44╱D╱ // 0x4058 @0x12
0x4046…406b at0013 = ╱35╱5╱ // 0x4059 @0x13
0x4046…406b at0014 = ╱b5╱ THEN ╱ // 0x405a @0x14
0x4046…406b at0015 = ╱86╱ LET ╱ // 0x405b @0x15
0x4046…406b at0016 = ╱46╱F╱ // 0x405c @0x16
0x4046…406b at0017 = ╱34╱4╱ // 0x405d @0x17
0x4046…406b at0018 = ╱f0╱ := ╱ // 0x405e @0x18
0x4046…406b at0019 = ╱42╱B╱ // 0x405f @0x19
0x4046…406b at001a = ╱44╱D╱ // 0x4060 @0x1a
0x4046…406b at001b = ╱33╱3╱ // 0x4061 @0x1b
0x4046…406b at001c = ╱e5╱ + ╱ // 0x4062 @0x1c
0x4046…406b at001d = ╱42╱B╱ // 0x4063 @0x1d
0x4046…406b at001e = ╱44╱D╱ // 0x4064 @0x1e
0x4046…406b at001f = ╱34╱4╱ // 0x4065 @0x1f
0x4046…406b at0020 = ╱e5╱ + ╱ // 0x4066 @0x20
0x4046…406b at0021 = ╱42╱B╱ // 0x4067 @0x21
0x4046…406b at0022 = ╱44╱D╱ // 0x4068 @0x22
0x4046…406b at0023 = ╱35╱5╱ // 0x4069 @0x23
0x4046…406b at0024 = EOL // 0x406a @0x24
0x4046…406b }
0x406b…40a6 d694 04050 LET BD3 := BD3 - ( F4 / ( P7 + P8 + P9 ) * P7 ) ; BD4 := BD4 - ( F4 / ( P7 + P8 + P9 ) * P8 )
0x406b…40a6 LineComal80 {
0x406b…40a6 ptr = 0xd694 // 0x406b @0x0
0x406b…40a6 lno = 0x0fd2 // 0x406d @0x2
0x406b…40a6 at0004 = ╱86╱ LET ╱ // 0x406f @0x4
0x406b…40a6 at0005 = ╱42╱B╱ // 0x4070 @0x5
0x406b…40a6 at0006 = ╱44╱D╱ // 0x4071 @0x6
0x406b…40a6 at0007 = ╱33╱3╱ // 0x4072 @0x7
0x406b…40a6 at0008 = ╱f0╱ := ╱ // 0x4073 @0x8
0x406b…40a6 at0009 = ╱42╱B╱ // 0x4074 @0x9
0x406b…40a6 at000a = ╱44╱D╱ // 0x4075 @0xa
0x406b…40a6 at000b = ╱33╱3╱ // 0x4076 @0xb
0x406b…40a6 at000c = ╱e6╱ - ╱ // 0x4077 @0xc
0x406b…40a6 at000d = ╱ed╱ ( ╱ // 0x4078 @0xd
0x406b…40a6 at000e = ╱46╱F╱ // 0x4079 @0xe
0x406b…40a6 at000f = ╱34╱4╱ // 0x407a @0xf
0x406b…40a6 at0010 = ╱e8╱ / ╱ // 0x407b @0x10
0x406b…40a6 at0011 = ╱ed╱ ( ╱ // 0x407c @0x11
0x406b…40a6 at0012 = ╱50╱P╱ // 0x407d @0x12
0x406b…40a6 at0013 = ╱37╱7╱ // 0x407e @0x13
0x406b…40a6 at0014 = ╱e5╱ + ╱ // 0x407f @0x14
0x406b…40a6 at0015 = ╱50╱P╱ // 0x4080 @0x15
0x406b…40a6 at0016 = ╱38╱8╱ // 0x4081 @0x16
0x406b…40a6 at0017 = ╱e5╱ + ╱ // 0x4082 @0x17
0x406b…40a6 at0018 = ╱50╱P╱ // 0x4083 @0x18
0x406b…40a6 at0019 = ╱39╱9╱ // 0x4084 @0x19
0x406b…40a6 at001a = ╱ee╱ ) ╱ // 0x4085 @0x1a
0x406b…40a6 at001b = ╱e7╱ * ╱ // 0x4086 @0x1b
0x406b…40a6 at001c = ╱50╱P╱ // 0x4087 @0x1c
0x406b…40a6 at001d = ╱37╱7╱ // 0x4088 @0x1d
0x406b…40a6 at001e = ╱ee╱ ) ╱ // 0x4089 @0x1e
0x406b…40a6 at001f = ╱ea╱ ; ╱ // 0x408a @0x1f
0x406b…40a6 at0020 = ╱42╱B╱ // 0x408b @0x20
0x406b…40a6 at0021 = ╱44╱D╱ // 0x408c @0x21
0x406b…40a6 at0022 = ╱34╱4╱ // 0x408d @0x22
0x406b…40a6 at0023 = ╱f0╱ := ╱ // 0x408e @0x23
0x406b…40a6 at0024 = ╱42╱B╱ // 0x408f @0x24
0x406b…40a6 at0025 = ╱44╱D╱ // 0x4090 @0x25
0x406b…40a6 at0026 = ╱34╱4╱ // 0x4091 @0x26
0x406b…40a6 at0027 = ╱e6╱ - ╱ // 0x4092 @0x27
0x406b…40a6 at0028 = ╱ed╱ ( ╱ // 0x4093 @0x28
0x406b…40a6 at0029 = ╱46╱F╱ // 0x4094 @0x29
0x406b…40a6 at002a = ╱34╱4╱ // 0x4095 @0x2a
0x406b…40a6 at002b = ╱e8╱ / ╱ // 0x4096 @0x2b
0x406b…40a6 at002c = ╱ed╱ ( ╱ // 0x4097 @0x2c
0x406b…40a6 at002d = ╱50╱P╱ // 0x4098 @0x2d
0x406b…40a6 at002e = ╱37╱7╱ // 0x4099 @0x2e
0x406b…40a6 at002f = ╱e5╱ + ╱ // 0x409a @0x2f
0x406b…40a6 at0030 = ╱50╱P╱ // 0x409b @0x30
0x406b…40a6 at0031 = ╱38╱8╱ // 0x409c @0x31
0x406b…40a6 at0032 = ╱e5╱ + ╱ // 0x409d @0x32
0x406b…40a6 at0033 = ╱50╱P╱ // 0x409e @0x33
0x406b…40a6 at0034 = ╱39╱9╱ // 0x409f @0x34
0x406b…40a6 at0035 = ╱ee╱ ) ╱ // 0x40a0 @0x35
0x406b…40a6 at0036 = ╱e7╱ * ╱ // 0x40a1 @0x36
0x406b…40a6 at0037 = ╱50╱P╱ // 0x40a2 @0x37
0x406b…40a6 at0038 = ╱38╱8╱ // 0x40a3 @0x38
0x406b…40a6 at0039 = ╱ee╱ ) ╱ // 0x40a4 @0x39
0x406b…40a6 at003a = EOL // 0x40a5 @0x3a
0x406b…40a6 }
0x40a6…40dd d6cb 04055 LET BD5 := BD5 - ( F4 / ( P7 + P8 + P9 ) * P9 ) ; D1 := BD1 ; D2 := BD2 ; DA2 := BDA2
0x40a6…40dd LineComal80 {
0x40a6…40dd ptr = 0xd6cb // 0x40a6 @0x0
0x40a6…40dd lno = 0x0fd7 // 0x40a8 @0x2
0x40a6…40dd at0004 = ╱86╱ LET ╱ // 0x40aa @0x4
0x40a6…40dd at0005 = ╱42╱B╱ // 0x40ab @0x5
0x40a6…40dd at0006 = ╱44╱D╱ // 0x40ac @0x6
0x40a6…40dd at0007 = ╱35╱5╱ // 0x40ad @0x7
0x40a6…40dd at0008 = ╱f0╱ := ╱ // 0x40ae @0x8
0x40a6…40dd at0009 = ╱42╱B╱ // 0x40af @0x9
0x40a6…40dd at000a = ╱44╱D╱ // 0x40b0 @0xa
0x40a6…40dd at000b = ╱35╱5╱ // 0x40b1 @0xb
0x40a6…40dd at000c = ╱e6╱ - ╱ // 0x40b2 @0xc
0x40a6…40dd at000d = ╱ed╱ ( ╱ // 0x40b3 @0xd
0x40a6…40dd at000e = ╱46╱F╱ // 0x40b4 @0xe
0x40a6…40dd at000f = ╱34╱4╱ // 0x40b5 @0xf
0x40a6…40dd at0010 = ╱e8╱ / ╱ // 0x40b6 @0x10
0x40a6…40dd at0011 = ╱ed╱ ( ╱ // 0x40b7 @0x11
0x40a6…40dd at0012 = ╱50╱P╱ // 0x40b8 @0x12
0x40a6…40dd at0013 = ╱37╱7╱ // 0x40b9 @0x13
0x40a6…40dd at0014 = ╱e5╱ + ╱ // 0x40ba @0x14
0x40a6…40dd at0015 = ╱50╱P╱ // 0x40bb @0x15
0x40a6…40dd at0016 = ╱38╱8╱ // 0x40bc @0x16
0x40a6…40dd at0017 = ╱e5╱ + ╱ // 0x40bd @0x17
0x40a6…40dd at0018 = ╱50╱P╱ // 0x40be @0x18
0x40a6…40dd at0019 = ╱39╱9╱ // 0x40bf @0x19
0x40a6…40dd at001a = ╱ee╱ ) ╱ // 0x40c0 @0x1a
0x40a6…40dd at001b = ╱e7╱ * ╱ // 0x40c1 @0x1b
0x40a6…40dd at001c = ╱50╱P╱ // 0x40c2 @0x1c
0x40a6…40dd at001d = ╱39╱9╱ // 0x40c3 @0x1d
0x40a6…40dd at001e = ╱ee╱ ) ╱ // 0x40c4 @0x1e
0x40a6…40dd at001f = ╱ea╱ ; ╱ // 0x40c5 @0x1f
0x40a6…40dd at0020 = ╱44╱D╱ // 0x40c6 @0x20
0x40a6…40dd at0021 = ╱31╱1╱ // 0x40c7 @0x21
0x40a6…40dd at0022 = ╱f0╱ := ╱ // 0x40c8 @0x22
0x40a6…40dd at0023 = ╱42╱B╱ // 0x40c9 @0x23
0x40a6…40dd at0024 = ╱44╱D╱ // 0x40ca @0x24
0x40a6…40dd at0025 = ╱31╱1╱ // 0x40cb @0x25
0x40a6…40dd at0026 = ╱ea╱ ; ╱ // 0x40cc @0x26
0x40a6…40dd at0027 = ╱44╱D╱ // 0x40cd @0x27
0x40a6…40dd at0028 = ╱32╱2╱ // 0x40ce @0x28
0x40a6…40dd at0029 = ╱f0╱ := ╱ // 0x40cf @0x29
0x40a6…40dd at002a = ╱42╱B╱ // 0x40d0 @0x2a
0x40a6…40dd at002b = ╱44╱D╱ // 0x40d1 @0x2b
0x40a6…40dd at002c = ╱32╱2╱ // 0x40d2 @0x2c
0x40a6…40dd at002d = ╱ea╱ ; ╱ // 0x40d3 @0x2d
0x40a6…40dd at002e = ╱44╱D╱ // 0x40d4 @0x2e
0x40a6…40dd at002f = ╱41╱A╱ // 0x40d5 @0x2f
0x40a6…40dd at0030 = ╱32╱2╱ // 0x40d6 @0x30
0x40a6…40dd at0031 = ╱f0╱ := ╱ // 0x40d7 @0x31
0x40a6…40dd at0032 = ╱42╱B╱ // 0x40d8 @0x32
0x40a6…40dd at0033 = ╱44╱D╱ // 0x40d9 @0x33
0x40a6…40dd at0034 = ╱41╱A╱ // 0x40da @0x34
0x40a6…40dd at0035 = ╱32╱2╱ // 0x40db @0x35
0x40a6…40dd at0036 = EOL // 0x40dc @0x36
0x40a6…40dd }
0x40dd…411a d708 04060 LET BD1 := BD1 + ( F4 / ( D1 + D2 + DA2 ) * D1 ) ; BD2 := BD2 + ( F4 / ( D1 + D2 + DA2 ) * D2 )
0x40dd…411a LineComal80 {
0x40dd…411a ptr = 0xd708 // 0x40dd @0x0
0x40dd…411a lno = 0x0fdc // 0x40df @0x2
0x40dd…411a at0004 = ╱86╱ LET ╱ // 0x40e1 @0x4
0x40dd…411a at0005 = ╱42╱B╱ // 0x40e2 @0x5
0x40dd…411a at0006 = ╱44╱D╱ // 0x40e3 @0x6
0x40dd…411a at0007 = ╱31╱1╱ // 0x40e4 @0x7
0x40dd…411a at0008 = ╱f0╱ := ╱ // 0x40e5 @0x8
0x40dd…411a at0009 = ╱42╱B╱ // 0x40e6 @0x9
0x40dd…411a at000a = ╱44╱D╱ // 0x40e7 @0xa
0x40dd…411a at000b = ╱31╱1╱ // 0x40e8 @0xb
0x40dd…411a at000c = ╱e5╱ + ╱ // 0x40e9 @0xc
0x40dd…411a at000d = ╱ed╱ ( ╱ // 0x40ea @0xd
0x40dd…411a at000e = ╱46╱F╱ // 0x40eb @0xe
0x40dd…411a at000f = ╱34╱4╱ // 0x40ec @0xf
0x40dd…411a at0010 = ╱e8╱ / ╱ // 0x40ed @0x10
0x40dd…411a at0011 = ╱ed╱ ( ╱ // 0x40ee @0x11
0x40dd…411a at0012 = ╱44╱D╱ // 0x40ef @0x12
0x40dd…411a at0013 = ╱31╱1╱ // 0x40f0 @0x13
0x40dd…411a at0014 = ╱e5╱ + ╱ // 0x40f1 @0x14
0x40dd…411a at0015 = ╱44╱D╱ // 0x40f2 @0x15
0x40dd…411a at0016 = ╱32╱2╱ // 0x40f3 @0x16
0x40dd…411a at0017 = ╱e5╱ + ╱ // 0x40f4 @0x17
0x40dd…411a at0018 = ╱44╱D╱ // 0x40f5 @0x18
0x40dd…411a at0019 = ╱41╱A╱ // 0x40f6 @0x19
0x40dd…411a at001a = ╱32╱2╱ // 0x40f7 @0x1a
0x40dd…411a at001b = ╱ee╱ ) ╱ // 0x40f8 @0x1b
0x40dd…411a at001c = ╱e7╱ * ╱ // 0x40f9 @0x1c
0x40dd…411a at001d = ╱44╱D╱ // 0x40fa @0x1d
0x40dd…411a at001e = ╱31╱1╱ // 0x40fb @0x1e
0x40dd…411a at001f = ╱ee╱ ) ╱ // 0x40fc @0x1f
0x40dd…411a at0020 = ╱ea╱ ; ╱ // 0x40fd @0x20
0x40dd…411a at0021 = ╱42╱B╱ // 0x40fe @0x21
0x40dd…411a at0022 = ╱44╱D╱ // 0x40ff @0x22
0x40dd…411a at0023 = ╱32╱2╱ // 0x4100 @0x23
0x40dd…411a at0024 = ╱f0╱ := ╱ // 0x4101 @0x24
0x40dd…411a at0025 = ╱42╱B╱ // 0x4102 @0x25
0x40dd…411a at0026 = ╱44╱D╱ // 0x4103 @0x26
0x40dd…411a at0027 = ╱32╱2╱ // 0x4104 @0x27
0x40dd…411a at0028 = ╱e5╱ + ╱ // 0x4105 @0x28
0x40dd…411a at0029 = ╱ed╱ ( ╱ // 0x4106 @0x29
0x40dd…411a at002a = ╱46╱F╱ // 0x4107 @0x2a
0x40dd…411a at002b = ╱34╱4╱ // 0x4108 @0x2b
0x40dd…411a at002c = ╱e8╱ / ╱ // 0x4109 @0x2c
0x40dd…411a at002d = ╱ed╱ ( ╱ // 0x410a @0x2d
0x40dd…411a at002e = ╱44╱D╱ // 0x410b @0x2e
0x40dd…411a at002f = ╱31╱1╱ // 0x410c @0x2f
0x40dd…411a at0030 = ╱e5╱ + ╱ // 0x410d @0x30
0x40dd…411a at0031 = ╱44╱D╱ // 0x410e @0x31
0x40dd…411a at0032 = ╱32╱2╱ // 0x410f @0x32
0x40dd…411a at0033 = ╱e5╱ + ╱ // 0x4110 @0x33
0x40dd…411a at0034 = ╱44╱D╱ // 0x4111 @0x34
0x40dd…411a at0035 = ╱41╱A╱ // 0x4112 @0x35
0x40dd…411a at0036 = ╱32╱2╱ // 0x4113 @0x36
0x40dd…411a at0037 = ╱ee╱ ) ╱ // 0x4114 @0x37
0x40dd…411a at0038 = ╱e7╱ * ╱ // 0x4115 @0x38
0x40dd…411a at0039 = ╱44╱D╱ // 0x4116 @0x39
0x40dd…411a at003a = ╱32╱2╱ // 0x4117 @0x3a
0x40dd…411a at003b = ╱ee╱ ) ╱ // 0x4118 @0x3b
0x40dd…411a at003c = EOL // 0x4119 @0x3c
0x40dd…411a }
0x411a…413e d72c 04065 LET BDA2 := BDA2 + ( F4 / ( D1 + D2 + DA2 ) * DA2 )
0x411a…413e LineComal80 {
0x411a…413e ptr = 0xd72c // 0x411a @0x0
0x411a…413e lno = 0x0fe1 // 0x411c @0x2
0x411a…413e at0004 = ╱86╱ LET ╱ // 0x411e @0x4
0x411a…413e at0005 = ╱42╱B╱ // 0x411f @0x5
0x411a…413e at0006 = ╱44╱D╱ // 0x4120 @0x6
0x411a…413e at0007 = ╱41╱A╱ // 0x4121 @0x7
0x411a…413e at0008 = ╱32╱2╱ // 0x4122 @0x8
0x411a…413e at0009 = ╱f0╱ := ╱ // 0x4123 @0x9
0x411a…413e at000a = ╱42╱B╱ // 0x4124 @0xa
0x411a…413e at000b = ╱44╱D╱ // 0x4125 @0xb
0x411a…413e at000c = ╱41╱A╱ // 0x4126 @0xc
0x411a…413e at000d = ╱32╱2╱ // 0x4127 @0xd
0x411a…413e at000e = ╱e5╱ + ╱ // 0x4128 @0xe
0x411a…413e at000f = ╱ed╱ ( ╱ // 0x4129 @0xf
0x411a…413e at0010 = ╱46╱F╱ // 0x412a @0x10
0x411a…413e at0011 = ╱34╱4╱ // 0x412b @0x11
0x411a…413e at0012 = ╱e8╱ / ╱ // 0x412c @0x12
0x411a…413e at0013 = ╱ed╱ ( ╱ // 0x412d @0x13
0x411a…413e at0014 = ╱44╱D╱ // 0x412e @0x14
0x411a…413e at0015 = ╱31╱1╱ // 0x412f @0x15
0x411a…413e at0016 = ╱e5╱ + ╱ // 0x4130 @0x16
0x411a…413e at0017 = ╱44╱D╱ // 0x4131 @0x17
0x411a…413e at0018 = ╱32╱2╱ // 0x4132 @0x18
0x411a…413e at0019 = ╱e5╱ + ╱ // 0x4133 @0x19
0x411a…413e at001a = ╱44╱D╱ // 0x4134 @0x1a
0x411a…413e at001b = ╱41╱A╱ // 0x4135 @0x1b
0x411a…413e at001c = ╱32╱2╱ // 0x4136 @0x1c
0x411a…413e at001d = ╱ee╱ ) ╱ // 0x4137 @0x1d
0x411a…413e at001e = ╱e7╱ * ╱ // 0x4138 @0x1e
0x411a…413e at001f = ╱44╱D╱ // 0x4139 @0x1f
0x411a…413e at0020 = ╱41╱A╱ // 0x413a @0x20
0x411a…413e at0021 = ╱32╱2╱ // 0x413b @0x21
0x411a…413e at0022 = ╱ee╱ ) ╱ // 0x413c @0x22
0x411a…413e at0023 = EOL // 0x413d @0x23
0x411a…413e }
0x413e…414b d739 04070 ENDPROC MSSIKS1
0x413e…414b LineComal80 {
0x413e…414b ptr = 0xd739 // 0x413e @0x0
0x413e…414b lno = 0x0fe6 // 0x4140 @0x2
0x413e…414b at0004 = ╱9f╱ ENDPROC ╱ // 0x4142 @0x4
0x413e…414b at0005 = ╱4d╱M╱ // 0x4143 @0x5
0x413e…414b at0006 = ╱53╱S╱ // 0x4144 @0x6
0x413e…414b at0007 = ╱53╱S╱ // 0x4145 @0x7
0x413e…414b at0008 = ╱49╱I╱ // 0x4146 @0x8
0x413e…414b at0009 = ╱4b╱K╱ // 0x4147 @0x9
0x413e…414b at000a = ╱53╱S╱ // 0x4148 @0xa
0x413e…414b at000b = ╱31╱1╱ // 0x4149 @0xb
0x413e…414b at000c = EOL // 0x414a @0xc
0x413e…414b }
0x414b…4158 d746 04075 PROC REGN43
0x414b…4158 LineComal80 {
0x414b…4158 ptr = 0xd746 // 0x414b @0x0
0x414b…4158 lno = 0x0feb // 0x414d @0x2
0x414b…4158 at0004 = ╱9e00╱ PROC ╱ // 0x414f @0x4
0x414b…4158 at0006 = ╱52╱R╱ // 0x4151 @0x6
0x414b…4158 at0007 = ╱45╱E╱ // 0x4152 @0x7
0x414b…4158 at0008 = ╱47╱G╱ // 0x4153 @0x8
0x414b…4158 at0009 = ╱4e╱N╱ // 0x4154 @0x9
0x414b…4158 at000a = ╱34╱4╱ // 0x4155 @0xa
0x414b…4158 at000b = ╱33╱3╱ // 0x4156 @0xb
0x414b…4158 at000c = EOL // 0x4157 @0xc
0x414b…4158 }
0x4158…4199 d787 04080 IF T0 = 1 AND B4 < C8 THEN LET E9 := ( ( ( INT ( B4 / W ) * W ) - C8 ) * ( ( 16 * U1 ) + P0 + PA0 ) / W )
0x4158…4199 LineComal80 {
0x4158…4199 ptr = 0xd787 // 0x4158 @0x0
0x4158…4199 lno = 0x0ff0 // 0x415a @0x2
0x4158…4199 at0004 = ╱8200╱ IF ╱ // 0x415c @0x4
0x4158…4199 at0006 = ╱54╱T╱ // 0x415e @0x6
0x4158…4199 at0007 = ╱30╱0╱ // 0x415f @0x7
0x4158…4199 at0008 = ╱df╱ = ╱ // 0x4160 @0x8
0x4158…4199 at0009 = ╱31╱1╱ // 0x4161 @0x9
0x4158…4199 at000a = ╱f20100╱ // 0x4162 @0xa
0x4158…4199 at000d = ╱d9╱ AND ╱ // 0x4165 @0xd
0x4158…4199 at000e = ╱42╱B╱ // 0x4166 @0xe
0x4158…4199 at000f = ╱34╱4╱ // 0x4167 @0xf
0x4158…4199 at0010 = ╱e0╱ < ╱ // 0x4168 @0x10
0x4158…4199 at0011 = ╱43╱C╱ // 0x4169 @0x11
0x4158…4199 at0012 = ╱38╱8╱ // 0x416a @0x12
0x4158…4199 at0013 = ╱b5╱ THEN ╱ // 0x416b @0x13
0x4158…4199 at0014 = ╱86╱ LET ╱ // 0x416c @0x14
0x4158…4199 at0015 = ╱45╱E╱ // 0x416d @0x15
0x4158…4199 at0016 = ╱39╱9╱ // 0x416e @0x16
0x4158…4199 at0017 = ╱f0╱ := ╱ // 0x416f @0x17
0x4158…4199 at0018 = ╱ed╱ ( ╱ // 0x4170 @0x18
0x4158…4199 at0019 = ╱ed╱ ( ╱ // 0x4171 @0x19
0x4158…4199 at001a = ╱ed╱ ( ╱ // 0x4172 @0x1a
0x4158…4199 at001b = ╱c6╱ INT ╱ // 0x4173 @0x1b
0x4158…4199 at001c = ╱ed╱ ( ╱ // 0x4174 @0x1c
0x4158…4199 at001d = ╱42╱B╱ // 0x4175 @0x1d
0x4158…4199 at001e = ╱34╱4╱ // 0x4176 @0x1e
0x4158…4199 at001f = ╱e8╱ / ╱ // 0x4177 @0x1f
0x4158…4199 at0020 = ╱57╱W╱ // 0x4178 @0x20
0x4158…4199 at0021 = ╱ee╱ ) ╱ // 0x4179 @0x21
0x4158…4199 at0022 = ╱e7╱ * ╱ // 0x417a @0x22
0x4158…4199 at0023 = ╱57╱W╱ // 0x417b @0x23
0x4158…4199 at0024 = ╱ee╱ ) ╱ // 0x417c @0x24
0x4158…4199 at0025 = ╱e6╱ - ╱ // 0x417d @0x25
0x4158…4199 at0026 = ╱43╱C╱ // 0x417e @0x26
0x4158…4199 at0027 = ╱38╱8╱ // 0x417f @0x27
0x4158…4199 at0028 = ╱ee╱ ) ╱ // 0x4180 @0x28
0x4158…4199 at0029 = ╱e7╱ * ╱ // 0x4181 @0x29
0x4158…4199 at002a = ╱ed╱ ( ╱ // 0x4182 @0x2a
0x4158…4199 at002b = ╱ed╱ ( ╱ // 0x4183 @0x2b
0x4158…4199 at002c = ╱31╱1╱ // 0x4184 @0x2c
0x4158…4199 at002d = ╱36╱6╱ // 0x4185 @0x2d
0x4158…4199 at002e = ╱f21000╱ // 0x4186 @0x2e
0x4158…4199 at0031 = ╱e7╱ * ╱ // 0x4189 @0x31
0x4158…4199 at0032 = ╱55╱U╱ // 0x418a @0x32
0x4158…4199 at0033 = ╱31╱1╱ // 0x418b @0x33
0x4158…4199 at0034 = ╱ee╱ ) ╱ // 0x418c @0x34
0x4158…4199 at0035 = ╱e5╱ + ╱ // 0x418d @0x35
0x4158…4199 at0036 = ╱50╱P╱ // 0x418e @0x36
0x4158…4199 at0037 = ╱30╱0╱ // 0x418f @0x37
0x4158…4199 at0038 = ╱e5╱ + ╱ // 0x4190 @0x38
0x4158…4199 at0039 = ╱50╱P╱ // 0x4191 @0x39
0x4158…4199 at003a = ╱41╱A╱ // 0x4192 @0x3a
0x4158…4199 at003b = ╱30╱0╱ // 0x4193 @0x3b
0x4158…4199 at003c = ╱ee╱ ) ╱ // 0x4194 @0x3c
0x4158…4199 at003d = ╱e8╱ / ╱ // 0x4195 @0x3d
0x4158…4199 at003e = ╱57╱W╱ // 0x4196 @0x3e
0x4158…4199 at003f = ╱ee╱ ) ╱ // 0x4197 @0x3f
0x4158…4199 at0040 = EOL // 0x4198 @0x40
0x4158…4199 }
0x4199…41da d7c8 04085 IF T0 = 1 AND C4 < C8 THEN LET E8 := ( ( ( INT ( C4 / W ) * W ) - C8 ) * ( ( 16 * U1 ) + P0 + PA0 ) / W )
0x4199…41da LineComal80 {
0x4199…41da ptr = 0xd7c8 // 0x4199 @0x0
0x4199…41da lno = 0x0ff5 // 0x419b @0x2
0x4199…41da at0004 = ╱8200╱ IF ╱ // 0x419d @0x4
0x4199…41da at0006 = ╱54╱T╱ // 0x419f @0x6
0x4199…41da at0007 = ╱30╱0╱ // 0x41a0 @0x7
0x4199…41da at0008 = ╱df╱ = ╱ // 0x41a1 @0x8
0x4199…41da at0009 = ╱31╱1╱ // 0x41a2 @0x9
0x4199…41da at000a = ╱f20100╱ // 0x41a3 @0xa
0x4199…41da at000d = ╱d9╱ AND ╱ // 0x41a6 @0xd
0x4199…41da at000e = ╱43╱C╱ // 0x41a7 @0xe
0x4199…41da at000f = ╱34╱4╱ // 0x41a8 @0xf
0x4199…41da at0010 = ╱e0╱ < ╱ // 0x41a9 @0x10
0x4199…41da at0011 = ╱43╱C╱ // 0x41aa @0x11
0x4199…41da at0012 = ╱38╱8╱ // 0x41ab @0x12
0x4199…41da at0013 = ╱b5╱ THEN ╱ // 0x41ac @0x13
0x4199…41da at0014 = ╱86╱ LET ╱ // 0x41ad @0x14
0x4199…41da at0015 = ╱45╱E╱ // 0x41ae @0x15
0x4199…41da at0016 = ╱38╱8╱ // 0x41af @0x16
0x4199…41da at0017 = ╱f0╱ := ╱ // 0x41b0 @0x17
0x4199…41da at0018 = ╱ed╱ ( ╱ // 0x41b1 @0x18
0x4199…41da at0019 = ╱ed╱ ( ╱ // 0x41b2 @0x19
0x4199…41da at001a = ╱ed╱ ( ╱ // 0x41b3 @0x1a
0x4199…41da at001b = ╱c6╱ INT ╱ // 0x41b4 @0x1b
0x4199…41da at001c = ╱ed╱ ( ╱ // 0x41b5 @0x1c
0x4199…41da at001d = ╱43╱C╱ // 0x41b6 @0x1d
0x4199…41da at001e = ╱34╱4╱ // 0x41b7 @0x1e
0x4199…41da at001f = ╱e8╱ / ╱ // 0x41b8 @0x1f
0x4199…41da at0020 = ╱57╱W╱ // 0x41b9 @0x20
0x4199…41da at0021 = ╱ee╱ ) ╱ // 0x41ba @0x21
0x4199…41da at0022 = ╱e7╱ * ╱ // 0x41bb @0x22
0x4199…41da at0023 = ╱57╱W╱ // 0x41bc @0x23
0x4199…41da at0024 = ╱ee╱ ) ╱ // 0x41bd @0x24
0x4199…41da at0025 = ╱e6╱ - ╱ // 0x41be @0x25
0x4199…41da at0026 = ╱43╱C╱ // 0x41bf @0x26
0x4199…41da at0027 = ╱38╱8╱ // 0x41c0 @0x27
0x4199…41da at0028 = ╱ee╱ ) ╱ // 0x41c1 @0x28
0x4199…41da at0029 = ╱e7╱ * ╱ // 0x41c2 @0x29
0x4199…41da at002a = ╱ed╱ ( ╱ // 0x41c3 @0x2a
0x4199…41da at002b = ╱ed╱ ( ╱ // 0x41c4 @0x2b
0x4199…41da at002c = ╱31╱1╱ // 0x41c5 @0x2c
0x4199…41da at002d = ╱36╱6╱ // 0x41c6 @0x2d
0x4199…41da at002e = ╱f21000╱ // 0x41c7 @0x2e
0x4199…41da at0031 = ╱e7╱ * ╱ // 0x41ca @0x31
0x4199…41da at0032 = ╱55╱U╱ // 0x41cb @0x32
0x4199…41da at0033 = ╱31╱1╱ // 0x41cc @0x33
0x4199…41da at0034 = ╱ee╱ ) ╱ // 0x41cd @0x34
0x4199…41da at0035 = ╱e5╱ + ╱ // 0x41ce @0x35
0x4199…41da at0036 = ╱50╱P╱ // 0x41cf @0x36
0x4199…41da at0037 = ╱30╱0╱ // 0x41d0 @0x37
0x4199…41da at0038 = ╱e5╱ + ╱ // 0x41d1 @0x38
0x4199…41da at0039 = ╱50╱P╱ // 0x41d2 @0x39
0x4199…41da at003a = ╱41╱A╱ // 0x41d3 @0x3a
0x4199…41da at003b = ╱30╱0╱ // 0x41d4 @0x3b
0x4199…41da at003c = ╱ee╱ ) ╱ // 0x41d5 @0x3c
0x4199…41da at003d = ╱e8╱ / ╱ // 0x41d6 @0x3d
0x4199…41da at003e = ╱57╱W╱ // 0x41d7 @0x3e
0x4199…41da at003f = ╱ee╱ ) ╱ // 0x41d8 @0x3f
0x4199…41da at0040 = EOL // 0x41d9 @0x40
0x4199…41da }
0x41da…421b d809 04090 IF T0 = 2 AND B1 < C8 THEN LET E8 := ( ( ( INT ( B1 / W ) * W ) - C8 ) * ( ( 16 * U1 ) + P0 + PA0 ) / W )
0x41da…421b LineComal80 {
0x41da…421b ptr = 0xd809 // 0x41da @0x0
0x41da…421b lno = 0x0ffa // 0x41dc @0x2
0x41da…421b at0004 = ╱8200╱ IF ╱ // 0x41de @0x4
0x41da…421b at0006 = ╱54╱T╱ // 0x41e0 @0x6
0x41da…421b at0007 = ╱30╱0╱ // 0x41e1 @0x7
0x41da…421b at0008 = ╱df╱ = ╱ // 0x41e2 @0x8
0x41da…421b at0009 = ╱32╱2╱ // 0x41e3 @0x9
0x41da…421b at000a = ╱f20200╱ // 0x41e4 @0xa
0x41da…421b at000d = ╱d9╱ AND ╱ // 0x41e7 @0xd
0x41da…421b at000e = ╱42╱B╱ // 0x41e8 @0xe
0x41da…421b at000f = ╱31╱1╱ // 0x41e9 @0xf
0x41da…421b at0010 = ╱e0╱ < ╱ // 0x41ea @0x10
0x41da…421b at0011 = ╱43╱C╱ // 0x41eb @0x11
0x41da…421b at0012 = ╱38╱8╱ // 0x41ec @0x12
0x41da…421b at0013 = ╱b5╱ THEN ╱ // 0x41ed @0x13
0x41da…421b at0014 = ╱86╱ LET ╱ // 0x41ee @0x14
0x41da…421b at0015 = ╱45╱E╱ // 0x41ef @0x15
0x41da…421b at0016 = ╱38╱8╱ // 0x41f0 @0x16
0x41da…421b at0017 = ╱f0╱ := ╱ // 0x41f1 @0x17
0x41da…421b at0018 = ╱ed╱ ( ╱ // 0x41f2 @0x18
0x41da…421b at0019 = ╱ed╱ ( ╱ // 0x41f3 @0x19
0x41da…421b at001a = ╱ed╱ ( ╱ // 0x41f4 @0x1a
0x41da…421b at001b = ╱c6╱ INT ╱ // 0x41f5 @0x1b
0x41da…421b at001c = ╱ed╱ ( ╱ // 0x41f6 @0x1c
0x41da…421b at001d = ╱42╱B╱ // 0x41f7 @0x1d
0x41da…421b at001e = ╱31╱1╱ // 0x41f8 @0x1e
0x41da…421b at001f = ╱e8╱ / ╱ // 0x41f9 @0x1f
0x41da…421b at0020 = ╱57╱W╱ // 0x41fa @0x20
0x41da…421b at0021 = ╱ee╱ ) ╱ // 0x41fb @0x21
0x41da…421b at0022 = ╱e7╱ * ╱ // 0x41fc @0x22
0x41da…421b at0023 = ╱57╱W╱ // 0x41fd @0x23
0x41da…421b at0024 = ╱ee╱ ) ╱ // 0x41fe @0x24
0x41da…421b at0025 = ╱e6╱ - ╱ // 0x41ff @0x25
0x41da…421b at0026 = ╱43╱C╱ // 0x4200 @0x26
0x41da…421b at0027 = ╱38╱8╱ // 0x4201 @0x27
0x41da…421b at0028 = ╱ee╱ ) ╱ // 0x4202 @0x28
0x41da…421b at0029 = ╱e7╱ * ╱ // 0x4203 @0x29
0x41da…421b at002a = ╱ed╱ ( ╱ // 0x4204 @0x2a
0x41da…421b at002b = ╱ed╱ ( ╱ // 0x4205 @0x2b
0x41da…421b at002c = ╱31╱1╱ // 0x4206 @0x2c
0x41da…421b at002d = ╱36╱6╱ // 0x4207 @0x2d
0x41da…421b at002e = ╱f21000╱ // 0x4208 @0x2e
0x41da…421b at0031 = ╱e7╱ * ╱ // 0x420b @0x31
0x41da…421b at0032 = ╱55╱U╱ // 0x420c @0x32
0x41da…421b at0033 = ╱31╱1╱ // 0x420d @0x33
0x41da…421b at0034 = ╱ee╱ ) ╱ // 0x420e @0x34
0x41da…421b at0035 = ╱e5╱ + ╱ // 0x420f @0x35
0x41da…421b at0036 = ╱50╱P╱ // 0x4210 @0x36
0x41da…421b at0037 = ╱30╱0╱ // 0x4211 @0x37
0x41da…421b at0038 = ╱e5╱ + ╱ // 0x4212 @0x38
0x41da…421b at0039 = ╱50╱P╱ // 0x4213 @0x39
0x41da…421b at003a = ╱41╱A╱ // 0x4214 @0x3a
0x41da…421b at003b = ╱30╱0╱ // 0x4215 @0x3b
0x41da…421b at003c = ╱ee╱ ) ╱ // 0x4216 @0x3c
0x41da…421b at003d = ╱e8╱ / ╱ // 0x4217 @0x3d
0x41da…421b at003e = ╱57╱W╱ // 0x4218 @0x3e
0x41da…421b at003f = ╱ee╱ ) ╱ // 0x4219 @0x3f
0x41da…421b at0040 = EOL // 0x421a @0x40
0x41da…421b }
0x421b…425c d84a 04095 IF T0 = 2 AND C6 < C8 THEN LET E9 := ( ( ( INT ( C6 / W ) * W ) - C8 ) * ( ( 16 * U1 ) + P0 + PA0 ) / W )
0x421b…425c LineComal80 {
0x421b…425c ptr = 0xd84a // 0x421b @0x0
0x421b…425c lno = 0x0fff // 0x421d @0x2
0x421b…425c at0004 = ╱8200╱ IF ╱ // 0x421f @0x4
0x421b…425c at0006 = ╱54╱T╱ // 0x4221 @0x6
0x421b…425c at0007 = ╱30╱0╱ // 0x4222 @0x7
0x421b…425c at0008 = ╱df╱ = ╱ // 0x4223 @0x8
0x421b…425c at0009 = ╱32╱2╱ // 0x4224 @0x9
0x421b…425c at000a = ╱f20200╱ // 0x4225 @0xa
0x421b…425c at000d = ╱d9╱ AND ╱ // 0x4228 @0xd
0x421b…425c at000e = ╱43╱C╱ // 0x4229 @0xe
0x421b…425c at000f = ╱36╱6╱ // 0x422a @0xf
0x421b…425c at0010 = ╱e0╱ < ╱ // 0x422b @0x10
0x421b…425c at0011 = ╱43╱C╱ // 0x422c @0x11
0x421b…425c at0012 = ╱38╱8╱ // 0x422d @0x12
0x421b…425c at0013 = ╱b5╱ THEN ╱ // 0x422e @0x13
0x421b…425c at0014 = ╱86╱ LET ╱ // 0x422f @0x14
0x421b…425c at0015 = ╱45╱E╱ // 0x4230 @0x15
0x421b…425c at0016 = ╱39╱9╱ // 0x4231 @0x16
0x421b…425c at0017 = ╱f0╱ := ╱ // 0x4232 @0x17
0x421b…425c at0018 = ╱ed╱ ( ╱ // 0x4233 @0x18
0x421b…425c at0019 = ╱ed╱ ( ╱ // 0x4234 @0x19
0x421b…425c at001a = ╱ed╱ ( ╱ // 0x4235 @0x1a
0x421b…425c at001b = ╱c6╱ INT ╱ // 0x4236 @0x1b
0x421b…425c at001c = ╱ed╱ ( ╱ // 0x4237 @0x1c
0x421b…425c at001d = ╱43╱C╱ // 0x4238 @0x1d
0x421b…425c at001e = ╱36╱6╱ // 0x4239 @0x1e
0x421b…425c at001f = ╱e8╱ / ╱ // 0x423a @0x1f
0x421b…425c at0020 = ╱57╱W╱ // 0x423b @0x20
0x421b…425c at0021 = ╱ee╱ ) ╱ // 0x423c @0x21
0x421b…425c at0022 = ╱e7╱ * ╱ // 0x423d @0x22
0x421b…425c at0023 = ╱57╱W╱ // 0x423e @0x23
0x421b…425c at0024 = ╱ee╱ ) ╱ // 0x423f @0x24
0x421b…425c at0025 = ╱e6╱ - ╱ // 0x4240 @0x25
0x421b…425c at0026 = ╱43╱C╱ // 0x4241 @0x26
0x421b…425c at0027 = ╱38╱8╱ // 0x4242 @0x27
0x421b…425c at0028 = ╱ee╱ ) ╱ // 0x4243 @0x28
0x421b…425c at0029 = ╱e7╱ * ╱ // 0x4244 @0x29
0x421b…425c at002a = ╱ed╱ ( ╱ // 0x4245 @0x2a
0x421b…425c at002b = ╱ed╱ ( ╱ // 0x4246 @0x2b
0x421b…425c at002c = ╱31╱1╱ // 0x4247 @0x2c
0x421b…425c at002d = ╱36╱6╱ // 0x4248 @0x2d
0x421b…425c at002e = ╱f21000╱ // 0x4249 @0x2e
0x421b…425c at0031 = ╱e7╱ * ╱ // 0x424c @0x31
0x421b…425c at0032 = ╱55╱U╱ // 0x424d @0x32
0x421b…425c at0033 = ╱31╱1╱ // 0x424e @0x33
0x421b…425c at0034 = ╱ee╱ ) ╱ // 0x424f @0x34
0x421b…425c at0035 = ╱e5╱ + ╱ // 0x4250 @0x35
0x421b…425c at0036 = ╱50╱P╱ // 0x4251 @0x36
0x421b…425c at0037 = ╱30╱0╱ // 0x4252 @0x37
0x421b…425c at0038 = ╱e5╱ + ╱ // 0x4253 @0x38
0x421b…425c at0039 = ╱50╱P╱ // 0x4254 @0x39
0x421b…425c at003a = ╱41╱A╱ // 0x4255 @0x3a
0x421b…425c at003b = ╱30╱0╱ // 0x4256 @0x3b
0x421b…425c at003c = ╱ee╱ ) ╱ // 0x4257 @0x3c
0x421b…425c at003d = ╱e8╱ / ╱ // 0x4258 @0x3d
0x421b…425c at003e = ╱57╱W╱ // 0x4259 @0x3e
0x421b…425c at003f = ╱ee╱ ) ╱ // 0x425a @0x3f
0x421b…425c at0040 = EOL // 0x425b @0x40
0x421b…425c }
0x425c…4268 d856 04100 ENDPROC REGN43
0x425c…4268 LineComal80 {
0x425c…4268 ptr = 0xd856 // 0x425c @0x0
0x425c…4268 lno = 0x1004 // 0x425e @0x2
0x425c…4268 at0004 = ╱9f╱ ENDPROC ╱ // 0x4260 @0x4
0x425c…4268 at0005 = ╱52╱R╱ // 0x4261 @0x5
0x425c…4268 at0006 = ╱45╱E╱ // 0x4262 @0x6
0x425c…4268 at0007 = ╱47╱G╱ // 0x4263 @0x7
0x425c…4268 at0008 = ╱4e╱N╱ // 0x4264 @0x8
0x425c…4268 at0009 = ╱34╱4╱ // 0x4265 @0x9
0x425c…4268 at000a = ╱33╱3╱ // 0x4266 @0xa
0x425c…4268 at000b = EOL // 0x4267 @0xb
0x425c…4268 }
0x4268…4275 d863 04105 PROC REGN44
0x4268…4275 LineComal80 {
0x4268…4275 ptr = 0xd863 // 0x4268 @0x0
0x4268…4275 lno = 0x1009 // 0x426a @0x2
0x4268…4275 at0004 = ╱9e00╱ PROC ╱ // 0x426c @0x4
0x4268…4275 at0006 = ╱52╱R╱ // 0x426e @0x6
0x4268…4275 at0007 = ╱45╱E╱ // 0x426f @0x7
0x4268…4275 at0008 = ╱47╱G╱ // 0x4270 @0x8
0x4268…4275 at0009 = ╱4e╱N╱ // 0x4271 @0x9
0x4268…4275 at000a = ╱34╱4╱ // 0x4272 @0xa
0x4268…4275 at000b = ╱34╱4╱ // 0x4273 @0xb
0x4268…4275 at000c = EOL // 0x4274 @0xc
0x4268…4275 }
0x4275…42af d89d 04110 IF T0 = 1 AND B4 < C8 THEN LET E9 := E9 + ( ( ( ( INT ( B4 / W ) * W ) - C8 ) * ( P7 + P8 ) ) / W )
0x4275…42af LineComal80 {
0x4275…42af ptr = 0xd89d // 0x4275 @0x0
0x4275…42af lno = 0x100e // 0x4277 @0x2
0x4275…42af at0004 = ╱8200╱ IF ╱ // 0x4279 @0x4
0x4275…42af at0006 = ╱54╱T╱ // 0x427b @0x6
0x4275…42af at0007 = ╱30╱0╱ // 0x427c @0x7
0x4275…42af at0008 = ╱df╱ = ╱ // 0x427d @0x8
0x4275…42af at0009 = ╱31╱1╱ // 0x427e @0x9
0x4275…42af at000a = ╱f20100╱ // 0x427f @0xa
0x4275…42af at000d = ╱d9╱ AND ╱ // 0x4282 @0xd
0x4275…42af at000e = ╱42╱B╱ // 0x4283 @0xe
0x4275…42af at000f = ╱34╱4╱ // 0x4284 @0xf
0x4275…42af at0010 = ╱e0╱ < ╱ // 0x4285 @0x10
0x4275…42af at0011 = ╱43╱C╱ // 0x4286 @0x11
0x4275…42af at0012 = ╱38╱8╱ // 0x4287 @0x12
0x4275…42af at0013 = ╱b5╱ THEN ╱ // 0x4288 @0x13
0x4275…42af at0014 = ╱86╱ LET ╱ // 0x4289 @0x14
0x4275…42af at0015 = ╱45╱E╱ // 0x428a @0x15
0x4275…42af at0016 = ╱39╱9╱ // 0x428b @0x16
0x4275…42af at0017 = ╱f0╱ := ╱ // 0x428c @0x17
0x4275…42af at0018 = ╱45╱E╱ // 0x428d @0x18
0x4275…42af at0019 = ╱39╱9╱ // 0x428e @0x19
0x4275…42af at001a = ╱e5╱ + ╱ // 0x428f @0x1a
0x4275…42af at001b = ╱ed╱ ( ╱ // 0x4290 @0x1b
0x4275…42af at001c = ╱ed╱ ( ╱ // 0x4291 @0x1c
0x4275…42af at001d = ╱ed╱ ( ╱ // 0x4292 @0x1d
0x4275…42af at001e = ╱ed╱ ( ╱ // 0x4293 @0x1e
0x4275…42af at001f = ╱c6╱ INT ╱ // 0x4294 @0x1f
0x4275…42af at0020 = ╱ed╱ ( ╱ // 0x4295 @0x20
0x4275…42af at0021 = ╱42╱B╱ // 0x4296 @0x21
0x4275…42af at0022 = ╱34╱4╱ // 0x4297 @0x22
0x4275…42af at0023 = ╱e8╱ / ╱ // 0x4298 @0x23
0x4275…42af at0024 = ╱57╱W╱ // 0x4299 @0x24
0x4275…42af at0025 = ╱ee╱ ) ╱ // 0x429a @0x25
0x4275…42af at0026 = ╱e7╱ * ╱ // 0x429b @0x26
0x4275…42af at0027 = ╱57╱W╱ // 0x429c @0x27
0x4275…42af at0028 = ╱ee╱ ) ╱ // 0x429d @0x28
0x4275…42af at0029 = ╱e6╱ - ╱ // 0x429e @0x29
0x4275…42af at002a = ╱43╱C╱ // 0x429f @0x2a
0x4275…42af at002b = ╱38╱8╱ // 0x42a0 @0x2b
0x4275…42af at002c = ╱ee╱ ) ╱ // 0x42a1 @0x2c
0x4275…42af at002d = ╱e7╱ * ╱ // 0x42a2 @0x2d
0x4275…42af at002e = ╱ed╱ ( ╱ // 0x42a3 @0x2e
0x4275…42af at002f = ╱50╱P╱ // 0x42a4 @0x2f
0x4275…42af at0030 = ╱37╱7╱ // 0x42a5 @0x30
0x4275…42af at0031 = ╱e5╱ + ╱ // 0x42a6 @0x31
0x4275…42af at0032 = ╱50╱P╱ // 0x42a7 @0x32
0x4275…42af at0033 = ╱38╱8╱ // 0x42a8 @0x33
0x4275…42af at0034 = ╱ee╱ ) ╱ // 0x42a9 @0x34
0x4275…42af at0035 = ╱ee╱ ) ╱ // 0x42aa @0x35
0x4275…42af at0036 = ╱e8╱ / ╱ // 0x42ab @0x36
0x4275…42af at0037 = ╱57╱W╱ // 0x42ac @0x37
0x4275…42af at0038 = ╱ee╱ ) ╱ // 0x42ad @0x38
0x4275…42af at0039 = EOL // 0x42ae @0x39
0x4275…42af }
0x42af…42e9 d8d7 04115 IF T0 = 1 AND C4 < C8 THEN LET E8 := E8 + ( ( ( ( INT ( C4 / W ) * W ) - C8 ) * ( P7 + P8 ) ) / W )
0x42af…42e9 LineComal80 {
0x42af…42e9 ptr = 0xd8d7 // 0x42af @0x0
0x42af…42e9 lno = 0x1013 // 0x42b1 @0x2
0x42af…42e9 at0004 = ╱8200╱ IF ╱ // 0x42b3 @0x4
0x42af…42e9 at0006 = ╱54╱T╱ // 0x42b5 @0x6
0x42af…42e9 at0007 = ╱30╱0╱ // 0x42b6 @0x7
0x42af…42e9 at0008 = ╱df╱ = ╱ // 0x42b7 @0x8
0x42af…42e9 at0009 = ╱31╱1╱ // 0x42b8 @0x9
0x42af…42e9 at000a = ╱f20100╱ // 0x42b9 @0xa
0x42af…42e9 at000d = ╱d9╱ AND ╱ // 0x42bc @0xd
0x42af…42e9 at000e = ╱43╱C╱ // 0x42bd @0xe
0x42af…42e9 at000f = ╱34╱4╱ // 0x42be @0xf
0x42af…42e9 at0010 = ╱e0╱ < ╱ // 0x42bf @0x10
0x42af…42e9 at0011 = ╱43╱C╱ // 0x42c0 @0x11
0x42af…42e9 at0012 = ╱38╱8╱ // 0x42c1 @0x12
0x42af…42e9 at0013 = ╱b5╱ THEN ╱ // 0x42c2 @0x13
0x42af…42e9 at0014 = ╱86╱ LET ╱ // 0x42c3 @0x14
0x42af…42e9 at0015 = ╱45╱E╱ // 0x42c4 @0x15
0x42af…42e9 at0016 = ╱38╱8╱ // 0x42c5 @0x16
0x42af…42e9 at0017 = ╱f0╱ := ╱ // 0x42c6 @0x17
0x42af…42e9 at0018 = ╱45╱E╱ // 0x42c7 @0x18
0x42af…42e9 at0019 = ╱38╱8╱ // 0x42c8 @0x19
0x42af…42e9 at001a = ╱e5╱ + ╱ // 0x42c9 @0x1a
0x42af…42e9 at001b = ╱ed╱ ( ╱ // 0x42ca @0x1b
0x42af…42e9 at001c = ╱ed╱ ( ╱ // 0x42cb @0x1c
0x42af…42e9 at001d = ╱ed╱ ( ╱ // 0x42cc @0x1d
0x42af…42e9 at001e = ╱ed╱ ( ╱ // 0x42cd @0x1e
0x42af…42e9 at001f = ╱c6╱ INT ╱ // 0x42ce @0x1f
0x42af…42e9 at0020 = ╱ed╱ ( ╱ // 0x42cf @0x20
0x42af…42e9 at0021 = ╱43╱C╱ // 0x42d0 @0x21
0x42af…42e9 at0022 = ╱34╱4╱ // 0x42d1 @0x22
0x42af…42e9 at0023 = ╱e8╱ / ╱ // 0x42d2 @0x23
0x42af…42e9 at0024 = ╱57╱W╱ // 0x42d3 @0x24
0x42af…42e9 at0025 = ╱ee╱ ) ╱ // 0x42d4 @0x25
0x42af…42e9 at0026 = ╱e7╱ * ╱ // 0x42d5 @0x26
0x42af…42e9 at0027 = ╱57╱W╱ // 0x42d6 @0x27
0x42af…42e9 at0028 = ╱ee╱ ) ╱ // 0x42d7 @0x28
0x42af…42e9 at0029 = ╱e6╱ - ╱ // 0x42d8 @0x29
0x42af…42e9 at002a = ╱43╱C╱ // 0x42d9 @0x2a
0x42af…42e9 at002b = ╱38╱8╱ // 0x42da @0x2b
0x42af…42e9 at002c = ╱ee╱ ) ╱ // 0x42db @0x2c
0x42af…42e9 at002d = ╱e7╱ * ╱ // 0x42dc @0x2d
0x42af…42e9 at002e = ╱ed╱ ( ╱ // 0x42dd @0x2e
0x42af…42e9 at002f = ╱50╱P╱ // 0x42de @0x2f
0x42af…42e9 at0030 = ╱37╱7╱ // 0x42df @0x30
0x42af…42e9 at0031 = ╱e5╱ + ╱ // 0x42e0 @0x31
0x42af…42e9 at0032 = ╱50╱P╱ // 0x42e1 @0x32
0x42af…42e9 at0033 = ╱38╱8╱ // 0x42e2 @0x33
0x42af…42e9 at0034 = ╱ee╱ ) ╱ // 0x42e3 @0x34
0x42af…42e9 at0035 = ╱ee╱ ) ╱ // 0x42e4 @0x35
0x42af…42e9 at0036 = ╱e8╱ / ╱ // 0x42e5 @0x36
0x42af…42e9 at0037 = ╱57╱W╱ // 0x42e6 @0x37
0x42af…42e9 at0038 = ╱ee╱ ) ╱ // 0x42e7 @0x38
0x42af…42e9 at0039 = EOL // 0x42e8 @0x39
0x42af…42e9 }
0x42e9…4323 d911 04120 IF T0 = 2 AND B1 < C8 THEN LET E8 := E8 + ( ( ( ( INT ( B1 / W ) * W ) - C8 ) * ( P7 + P8 ) ) / W )
0x42e9…4323 LineComal80 {
0x42e9…4323 ptr = 0xd911 // 0x42e9 @0x0
0x42e9…4323 lno = 0x1018 // 0x42eb @0x2
0x42e9…4323 at0004 = ╱8200╱ IF ╱ // 0x42ed @0x4
0x42e9…4323 at0006 = ╱54╱T╱ // 0x42ef @0x6
0x42e9…4323 at0007 = ╱30╱0╱ // 0x42f0 @0x7
0x42e9…4323 at0008 = ╱df╱ = ╱ // 0x42f1 @0x8
0x42e9…4323 at0009 = ╱32╱2╱ // 0x42f2 @0x9
0x42e9…4323 at000a = ╱f20200╱ // 0x42f3 @0xa
0x42e9…4323 at000d = ╱d9╱ AND ╱ // 0x42f6 @0xd
0x42e9…4323 at000e = ╱42╱B╱ // 0x42f7 @0xe
0x42e9…4323 at000f = ╱31╱1╱ // 0x42f8 @0xf
0x42e9…4323 at0010 = ╱e0╱ < ╱ // 0x42f9 @0x10
0x42e9…4323 at0011 = ╱43╱C╱ // 0x42fa @0x11
0x42e9…4323 at0012 = ╱38╱8╱ // 0x42fb @0x12
0x42e9…4323 at0013 = ╱b5╱ THEN ╱ // 0x42fc @0x13
0x42e9…4323 at0014 = ╱86╱ LET ╱ // 0x42fd @0x14
0x42e9…4323 at0015 = ╱45╱E╱ // 0x42fe @0x15
0x42e9…4323 at0016 = ╱38╱8╱ // 0x42ff @0x16
0x42e9…4323 at0017 = ╱f0╱ := ╱ // 0x4300 @0x17
0x42e9…4323 at0018 = ╱45╱E╱ // 0x4301 @0x18
0x42e9…4323 at0019 = ╱38╱8╱ // 0x4302 @0x19
0x42e9…4323 at001a = ╱e5╱ + ╱ // 0x4303 @0x1a
0x42e9…4323 at001b = ╱ed╱ ( ╱ // 0x4304 @0x1b
0x42e9…4323 at001c = ╱ed╱ ( ╱ // 0x4305 @0x1c
0x42e9…4323 at001d = ╱ed╱ ( ╱ // 0x4306 @0x1d
0x42e9…4323 at001e = ╱ed╱ ( ╱ // 0x4307 @0x1e
0x42e9…4323 at001f = ╱c6╱ INT ╱ // 0x4308 @0x1f
0x42e9…4323 at0020 = ╱ed╱ ( ╱ // 0x4309 @0x20
0x42e9…4323 at0021 = ╱42╱B╱ // 0x430a @0x21
0x42e9…4323 at0022 = ╱31╱1╱ // 0x430b @0x22
0x42e9…4323 at0023 = ╱e8╱ / ╱ // 0x430c @0x23
0x42e9…4323 at0024 = ╱57╱W╱ // 0x430d @0x24
0x42e9…4323 at0025 = ╱ee╱ ) ╱ // 0x430e @0x25
0x42e9…4323 at0026 = ╱e7╱ * ╱ // 0x430f @0x26
0x42e9…4323 at0027 = ╱57╱W╱ // 0x4310 @0x27
0x42e9…4323 at0028 = ╱ee╱ ) ╱ // 0x4311 @0x28
0x42e9…4323 at0029 = ╱e6╱ - ╱ // 0x4312 @0x29
0x42e9…4323 at002a = ╱43╱C╱ // 0x4313 @0x2a
0x42e9…4323 at002b = ╱38╱8╱ // 0x4314 @0x2b
0x42e9…4323 at002c = ╱ee╱ ) ╱ // 0x4315 @0x2c
0x42e9…4323 at002d = ╱e7╱ * ╱ // 0x4316 @0x2d
0x42e9…4323 at002e = ╱ed╱ ( ╱ // 0x4317 @0x2e
0x42e9…4323 at002f = ╱50╱P╱ // 0x4318 @0x2f
0x42e9…4323 at0030 = ╱37╱7╱ // 0x4319 @0x30
0x42e9…4323 at0031 = ╱e5╱ + ╱ // 0x431a @0x31
0x42e9…4323 at0032 = ╱50╱P╱ // 0x431b @0x32
0x42e9…4323 at0033 = ╱38╱8╱ // 0x431c @0x33
0x42e9…4323 at0034 = ╱ee╱ ) ╱ // 0x431d @0x34
0x42e9…4323 at0035 = ╱ee╱ ) ╱ // 0x431e @0x35
0x42e9…4323 at0036 = ╱e8╱ / ╱ // 0x431f @0x36
0x42e9…4323 at0037 = ╱57╱W╱ // 0x4320 @0x37
0x42e9…4323 at0038 = ╱ee╱ ) ╱ // 0x4321 @0x38
0x42e9…4323 at0039 = EOL // 0x4322 @0x39
0x42e9…4323 }
0x4323…435d d94b 04125 IF T0 = 2 AND C6 < C8 THEN LET E9 := E9 + ( ( ( ( INT ( C6 / W ) * W ) - C8 ) * ( P7 + P8 ) ) / W )
0x4323…435d LineComal80 {
0x4323…435d ptr = 0xd94b // 0x4323 @0x0
0x4323…435d lno = 0x101d // 0x4325 @0x2
0x4323…435d at0004 = ╱8200╱ IF ╱ // 0x4327 @0x4
0x4323…435d at0006 = ╱54╱T╱ // 0x4329 @0x6
0x4323…435d at0007 = ╱30╱0╱ // 0x432a @0x7
0x4323…435d at0008 = ╱df╱ = ╱ // 0x432b @0x8
0x4323…435d at0009 = ╱32╱2╱ // 0x432c @0x9
0x4323…435d at000a = ╱f20200╱ // 0x432d @0xa
0x4323…435d at000d = ╱d9╱ AND ╱ // 0x4330 @0xd
0x4323…435d at000e = ╱43╱C╱ // 0x4331 @0xe
0x4323…435d at000f = ╱36╱6╱ // 0x4332 @0xf
0x4323…435d at0010 = ╱e0╱ < ╱ // 0x4333 @0x10
0x4323…435d at0011 = ╱43╱C╱ // 0x4334 @0x11
0x4323…435d at0012 = ╱38╱8╱ // 0x4335 @0x12
0x4323…435d at0013 = ╱b5╱ THEN ╱ // 0x4336 @0x13
0x4323…435d at0014 = ╱86╱ LET ╱ // 0x4337 @0x14
0x4323…435d at0015 = ╱45╱E╱ // 0x4338 @0x15
0x4323…435d at0016 = ╱39╱9╱ // 0x4339 @0x16
0x4323…435d at0017 = ╱f0╱ := ╱ // 0x433a @0x17
0x4323…435d at0018 = ╱45╱E╱ // 0x433b @0x18
0x4323…435d at0019 = ╱39╱9╱ // 0x433c @0x19
0x4323…435d at001a = ╱e5╱ + ╱ // 0x433d @0x1a
0x4323…435d at001b = ╱ed╱ ( ╱ // 0x433e @0x1b
0x4323…435d at001c = ╱ed╱ ( ╱ // 0x433f @0x1c
0x4323…435d at001d = ╱ed╱ ( ╱ // 0x4340 @0x1d
0x4323…435d at001e = ╱ed╱ ( ╱ // 0x4341 @0x1e
0x4323…435d at001f = ╱c6╱ INT ╱ // 0x4342 @0x1f
0x4323…435d at0020 = ╱ed╱ ( ╱ // 0x4343 @0x20
0x4323…435d at0021 = ╱43╱C╱ // 0x4344 @0x21
0x4323…435d at0022 = ╱36╱6╱ // 0x4345 @0x22
0x4323…435d at0023 = ╱e8╱ / ╱ // 0x4346 @0x23
0x4323…435d at0024 = ╱57╱W╱ // 0x4347 @0x24
0x4323…435d at0025 = ╱ee╱ ) ╱ // 0x4348 @0x25
0x4323…435d at0026 = ╱e7╱ * ╱ // 0x4349 @0x26
0x4323…435d at0027 = ╱57╱W╱ // 0x434a @0x27
0x4323…435d at0028 = ╱ee╱ ) ╱ // 0x434b @0x28
0x4323…435d at0029 = ╱e6╱ - ╱ // 0x434c @0x29
0x4323…435d at002a = ╱43╱C╱ // 0x434d @0x2a
0x4323…435d at002b = ╱38╱8╱ // 0x434e @0x2b
0x4323…435d at002c = ╱ee╱ ) ╱ // 0x434f @0x2c
0x4323…435d at002d = ╱e7╱ * ╱ // 0x4350 @0x2d
0x4323…435d at002e = ╱ed╱ ( ╱ // 0x4351 @0x2e
0x4323…435d at002f = ╱50╱P╱ // 0x4352 @0x2f
0x4323…435d at0030 = ╱37╱7╱ // 0x4353 @0x30
0x4323…435d at0031 = ╱e5╱ + ╱ // 0x4354 @0x31
0x4323…435d at0032 = ╱50╱P╱ // 0x4355 @0x32
0x4323…435d at0033 = ╱38╱8╱ // 0x4356 @0x33
0x4323…435d at0034 = ╱ee╱ ) ╱ // 0x4357 @0x34
0x4323…435d at0035 = ╱ee╱ ) ╱ // 0x4358 @0x35
0x4323…435d at0036 = ╱e8╱ / ╱ // 0x4359 @0x36
0x4323…435d at0037 = ╱57╱W╱ // 0x435a @0x37
0x4323…435d at0038 = ╱ee╱ ) ╱ // 0x435b @0x38
0x4323…435d at0039 = EOL // 0x435c @0x39
0x4323…435d }
0x435d…4369 d957 04130 ENDPROC REGN44
0x435d…4369 LineComal80 {
0x435d…4369 ptr = 0xd957 // 0x435d @0x0
0x435d…4369 lno = 0x1022 // 0x435f @0x2
0x435d…4369 at0004 = ╱9f╱ ENDPROC ╱ // 0x4361 @0x4
0x435d…4369 at0005 = ╱52╱R╱ // 0x4362 @0x5
0x435d…4369 at0006 = ╱45╱E╱ // 0x4363 @0x6
0x435d…4369 at0007 = ╱47╱G╱ // 0x4364 @0x7
0x435d…4369 at0008 = ╱4e╱N╱ // 0x4365 @0x8
0x435d…4369 at0009 = ╱34╱4╱ // 0x4366 @0x9
0x435d…4369 at000a = ╱34╱4╱ // 0x4367 @0xa
0x435d…4369 at000b = EOL // 0x4368 @0xb
0x435d…4369 }
0x4369…4375 d963 04135 PROC REGN8
0x4369…4375 LineComal80 {
0x4369…4375 ptr = 0xd963 // 0x4369 @0x0
0x4369…4375 lno = 0x1027 // 0x436b @0x2
0x4369…4375 at0004 = ╱9e00╱ PROC ╱ // 0x436d @0x4
0x4369…4375 at0006 = ╱52╱R╱ // 0x436f @0x6
0x4369…4375 at0007 = ╱45╱E╱ // 0x4370 @0x7
0x4369…4375 at0008 = ╱47╱G╱ // 0x4371 @0x8
0x4369…4375 at0009 = ╱4e╱N╱ // 0x4372 @0x9
0x4369…4375 at000a = ╱38╱8╱ // 0x4373 @0xa
0x4369…4375 at000b = EOL // 0x4374 @0xb
0x4369…4375 }
0x4375…43a5 d993 04140 LET B9 := O ; B7 := INT ( B7 / W ) * W ; B9 := ( B7 - U2 ) * 22 / 1000
0x4375…43a5 LineComal80 {
0x4375…43a5 ptr = 0xd993 // 0x4375 @0x0
0x4375…43a5 lno = 0x102c // 0x4377 @0x2
0x4375…43a5 at0004 = ╱86╱ LET ╱ // 0x4379 @0x4
0x4375…43a5 at0005 = ╱42╱B╱ // 0x437a @0x5
0x4375…43a5 at0006 = ╱39╱9╱ // 0x437b @0x6
0x4375…43a5 at0007 = ╱f0╱ := ╱ // 0x437c @0x7
0x4375…43a5 at0008 = ╱4f╱O╱ // 0x437d @0x8
0x4375…43a5 at0009 = ╱ea╱ ; ╱ // 0x437e @0x9
0x4375…43a5 at000a = ╱42╱B╱ // 0x437f @0xa
0x4375…43a5 at000b = ╱37╱7╱ // 0x4380 @0xb
0x4375…43a5 at000c = ╱f0╱ := ╱ // 0x4381 @0xc
0x4375…43a5 at000d = ╱c6╱ INT ╱ // 0x4382 @0xd
0x4375…43a5 at000e = ╱ed╱ ( ╱ // 0x4383 @0xe
0x4375…43a5 at000f = ╱42╱B╱ // 0x4384 @0xf
0x4375…43a5 at0010 = ╱37╱7╱ // 0x4385 @0x10
0x4375…43a5 at0011 = ╱e8╱ / ╱ // 0x4386 @0x11
0x4375…43a5 at0012 = ╱57╱W╱ // 0x4387 @0x12
0x4375…43a5 at0013 = ╱ee╱ ) ╱ // 0x4388 @0x13
0x4375…43a5 at0014 = ╱e7╱ * ╱ // 0x4389 @0x14
0x4375…43a5 at0015 = ╱57╱W╱ // 0x438a @0x15
0x4375…43a5 at0016 = ╱ea╱ ; ╱ // 0x438b @0x16
0x4375…43a5 at0017 = ╱42╱B╱ // 0x438c @0x17
0x4375…43a5 at0018 = ╱39╱9╱ // 0x438d @0x18
0x4375…43a5 at0019 = ╱f0╱ := ╱ // 0x438e @0x19
0x4375…43a5 at001a = ╱ed╱ ( ╱ // 0x438f @0x1a
0x4375…43a5 at001b = ╱42╱B╱ // 0x4390 @0x1b
0x4375…43a5 at001c = ╱37╱7╱ // 0x4391 @0x1c
0x4375…43a5 at001d = ╱e6╱ - ╱ // 0x4392 @0x1d
0x4375…43a5 at001e = ╱55╱U╱ // 0x4393 @0x1e
0x4375…43a5 at001f = ╱32╱2╱ // 0x4394 @0x1f
0x4375…43a5 at0020 = ╱ee╱ ) ╱ // 0x4395 @0x20
0x4375…43a5 at0021 = ╱e7╱ * ╱ // 0x4396 @0x21
0x4375…43a5 at0022 = ╱32╱2╱ // 0x4397 @0x22
0x4375…43a5 at0023 = ╱32╱2╱ // 0x4398 @0x23
0x4375…43a5 at0024 = ╱f21600╱ // 0x4399 @0x24
0x4375…43a5 at0027 = ╱e8╱ / ╱ // 0x439c @0x27
0x4375…43a5 at0028 = ╱31╱1╱ // 0x439d @0x28
0x4375…43a5 at0029 = ╱30╱0╱ // 0x439e @0x29
0x4375…43a5 at002a = ╱30╱0╱ // 0x439f @0x2a
0x4375…43a5 at002b = ╱30╱0╱ // 0x43a0 @0x2b
0x4375…43a5 at002c = ╱f2e803╱ // 0x43a1 @0x2c
0x4375…43a5 at002f = EOL // 0x43a4 @0x2f
0x4375…43a5 }
0x43a5…43c0 d9ae 04145 IF 6 - D5 + B9 > C4 * 78 / W THEN
0x43a5…43c0 LineComal80 {
0x43a5…43c0 ptr = 0xd9ae // 0x43a5 @0x0
0x43a5…43c0 lno = 0x1031 // 0x43a7 @0x2
0x43a5…43c0 at0004 = ╱9b0044╱ IF ╱ // 0x43a9 @0x4
0x43a5…43c0 at0007 = ╱36╱6╱ // 0x43ac @0x7
0x43a5…43c0 at0008 = ╱e6╱ - ╱ // 0x43ad @0x8
0x43a5…43c0 at0009 = ╱44╱D╱ // 0x43ae @0x9
0x43a5…43c0 at000a = ╱35╱5╱ // 0x43af @0xa
0x43a5…43c0 at000b = ╱e5╱ + ╱ // 0x43b0 @0xb
0x43a5…43c0 at000c = ╱42╱B╱ // 0x43b1 @0xc
0x43a5…43c0 at000d = ╱39╱9╱ // 0x43b2 @0xd
0x43a5…43c0 at000e = ╱e1╱ > ╱ // 0x43b3 @0xe
0x43a5…43c0 at000f = ╱43╱C╱ // 0x43b4 @0xf
0x43a5…43c0 at0010 = ╱34╱4╱ // 0x43b5 @0x10
0x43a5…43c0 at0011 = ╱e7╱ * ╱ // 0x43b6 @0x11
0x43a5…43c0 at0012 = ╱37╱7╱ // 0x43b7 @0x12
0x43a5…43c0 at0013 = ╱38╱8╱ // 0x43b8 @0x13
0x43a5…43c0 at0014 = ╱f24e00╱ // 0x43b9 @0x14
0x43a5…43c0 at0017 = ╱e8╱ / ╱ // 0x43bc @0x17
0x43a5…43c0 at0018 = ╱57╱W╱ // 0x43bd @0x18
0x43a5…43c0 at0019 = ╱b5╱ THEN ╱ // 0x43be @0x19
0x43a5…43c0 at001a = EOL // 0x43bf @0x1a
0x43a5…43c0 }
0x43c0…43e0 d9ce 04150 LET E5 := ( D6 - D5 + B9 ) - ( C4 * 78 / W )
0x43c0…43e0 LineComal80 {
0x43c0…43e0 ptr = 0xd9ce // 0x43c0 @0x0
0x43c0…43e0 lno = 0x1036 // 0x43c2 @0x2
0x43c0…43e0 at0004 = ╱86╱ LET ╱ // 0x43c4 @0x4
0x43c0…43e0 at0005 = ╱45╱E╱ // 0x43c5 @0x5
0x43c0…43e0 at0006 = ╱35╱5╱ // 0x43c6 @0x6
0x43c0…43e0 at0007 = ╱f0╱ := ╱ // 0x43c7 @0x7
0x43c0…43e0 at0008 = ╱ed╱ ( ╱ // 0x43c8 @0x8
0x43c0…43e0 at0009 = ╱44╱D╱ // 0x43c9 @0x9
0x43c0…43e0 at000a = ╱36╱6╱ // 0x43ca @0xa
0x43c0…43e0 at000b = ╱e6╱ - ╱ // 0x43cb @0xb
0x43c0…43e0 at000c = ╱44╱D╱ // 0x43cc @0xc
0x43c0…43e0 at000d = ╱35╱5╱ // 0x43cd @0xd
0x43c0…43e0 at000e = ╱e5╱ + ╱ // 0x43ce @0xe
0x43c0…43e0 at000f = ╱42╱B╱ // 0x43cf @0xf
0x43c0…43e0 at0010 = ╱39╱9╱ // 0x43d0 @0x10
0x43c0…43e0 at0011 = ╱ee╱ ) ╱ // 0x43d1 @0x11
0x43c0…43e0 at0012 = ╱e6╱ - ╱ // 0x43d2 @0x12
0x43c0…43e0 at0013 = ╱ed╱ ( ╱ // 0x43d3 @0x13
0x43c0…43e0 at0014 = ╱43╱C╱ // 0x43d4 @0x14
0x43c0…43e0 at0015 = ╱34╱4╱ // 0x43d5 @0x15
0x43c0…43e0 at0016 = ╱e7╱ * ╱ // 0x43d6 @0x16
0x43c0…43e0 at0017 = ╱37╱7╱ // 0x43d7 @0x17
0x43c0…43e0 at0018 = ╱38╱8╱ // 0x43d8 @0x18
0x43c0…43e0 at0019 = ╱f24e00╱ // 0x43d9 @0x19
0x43c0…43e0 at001c = ╱e8╱ / ╱ // 0x43dc @0x1c
0x43c0…43e0 at001d = ╱57╱W╱ // 0x43dd @0x1d
0x43c0…43e0 at001e = ╱ee╱ ) ╱ // 0x43de @0x1e
0x43c0…43e0 at001f = EOL // 0x43df @0x1f
0x43c0…43e0 }
0x43e0…43f5 d9e3 04155 IF 5 =< B9 * 60 / W THEN
0x43e0…43f5 LineComal80 {
0x43e0…43f5 ptr = 0xd9e3 // 0x43e0 @0x0
0x43e0…43f5 lno = 0x103b // 0x43e2 @0x2
0x43e0…43f5 at0004 = ╱9b0045╱ IF ╱ // 0x43e4 @0x4
0x43e0…43f5 at0007 = ╱35╱5╱ // 0x43e7 @0x7
0x43e0…43f5 at0008 = ╱e2╱ =< ╱ // 0x43e8 @0x8
0x43e0…43f5 at0009 = ╱42╱B╱ // 0x43e9 @0x9
0x43e0…43f5 at000a = ╱39╱9╱ // 0x43ea @0xa
0x43e0…43f5 at000b = ╱e7╱ * ╱ // 0x43eb @0xb
0x43e0…43f5 at000c = ╱36╱6╱ // 0x43ec @0xc
0x43e0…43f5 at000d = ╱30╱0╱ // 0x43ed @0xd
0x43e0…43f5 at000e = ╱f23c00╱ // 0x43ee @0xe
0x43e0…43f5 at0011 = ╱e8╱ / ╱ // 0x43f1 @0x11
0x43e0…43f5 at0012 = ╱57╱W╱ // 0x43f2 @0x12
0x43e0…43f5 at0013 = ╱b5╱ THEN ╱ // 0x43f3 @0x13
0x43e0…43f5 at0014 = EOL // 0x43f4 @0x14
0x43e0…43f5 }
0x43f5…4403 d9f1 04160 LET B9 := B9 - E5
0x43f5…4403 LineComal80 {
0x43f5…4403 ptr = 0xd9f1 // 0x43f5 @0x0
0x43f5…4403 lno = 0x1040 // 0x43f7 @0x2
0x43f5…4403 at0004 = ╱86╱ LET ╱ // 0x43f9 @0x4
0x43f5…4403 at0005 = ╱42╱B╱ // 0x43fa @0x5
0x43f5…4403 at0006 = ╱39╱9╱ // 0x43fb @0x6
0x43f5…4403 at0007 = ╱f0╱ := ╱ // 0x43fc @0x7
0x43f5…4403 at0008 = ╱42╱B╱ // 0x43fd @0x8
0x43f5…4403 at0009 = ╱39╱9╱ // 0x43fe @0x9
0x43f5…4403 at000a = ╱e6╱ - ╱ // 0x43ff @0xa
0x43f5…4403 at000b = ╱45╱E╱ // 0x4400 @0xb
0x43f5…4403 at000c = ╱35╱5╱ // 0x4401 @0xc
0x43f5…4403 at000d = EOL // 0x4402 @0xd
0x43f5…4403 }
0x4403…440a d9f8 04165 ELSE
0x4403…440a LineComal80 {
0x4403…440a ptr = 0xd9f8 // 0x4403 @0x0
0x4403…440a lno = 0x1045 // 0x4405 @0x2
0x4403…440a at0004 = ╱9a00╱ ELSE ╱ // 0x4407 @0x4
0x4403…440a at0006 = EOL // 0x4409 @0x6
0x4403…440a }
0x440a…4435 da23 04170 LET E5 := E5 - ( B9 * 60 / W ) ; B9 := B9 - ( B9 * 60 / W )
0x440a…4435 LineComal80 {
0x440a…4435 ptr = 0xda23 // 0x440a @0x0
0x440a…4435 lno = 0x104a // 0x440c @0x2
0x440a…4435 at0004 = ╱86╱ LET ╱ // 0x440e @0x4
0x440a…4435 at0005 = ╱45╱E╱ // 0x440f @0x5
0x440a…4435 at0006 = ╱35╱5╱ // 0x4410 @0x6
0x440a…4435 at0007 = ╱f0╱ := ╱ // 0x4411 @0x7
0x440a…4435 at0008 = ╱45╱E╱ // 0x4412 @0x8
0x440a…4435 at0009 = ╱35╱5╱ // 0x4413 @0x9
0x440a…4435 at000a = ╱e6╱ - ╱ // 0x4414 @0xa
0x440a…4435 at000b = ╱ed╱ ( ╱ // 0x4415 @0xb
0x440a…4435 at000c = ╱42╱B╱ // 0x4416 @0xc
0x440a…4435 at000d = ╱39╱9╱ // 0x4417 @0xd
0x440a…4435 at000e = ╱e7╱ * ╱ // 0x4418 @0xe
0x440a…4435 at000f = ╱36╱6╱ // 0x4419 @0xf
0x440a…4435 at0010 = ╱30╱0╱ // 0x441a @0x10
0x440a…4435 at0011 = ╱f23c00╱ // 0x441b @0x11
0x440a…4435 at0014 = ╱e8╱ / ╱ // 0x441e @0x14
0x440a…4435 at0015 = ╱57╱W╱ // 0x441f @0x15
0x440a…4435 at0016 = ╱ee╱ ) ╱ // 0x4420 @0x16
0x440a…4435 at0017 = ╱ea╱ ; ╱ // 0x4421 @0x17
0x440a…4435 at0018 = ╱42╱B╱ // 0x4422 @0x18
0x440a…4435 at0019 = ╱39╱9╱ // 0x4423 @0x19
0x440a…4435 at001a = ╱f0╱ := ╱ // 0x4424 @0x1a
0x440a…4435 at001b = ╱42╱B╱ // 0x4425 @0x1b
0x440a…4435 at001c = ╱39╱9╱ // 0x4426 @0x1c
0x440a…4435 at001d = ╱e6╱ - ╱ // 0x4427 @0x1d
0x440a…4435 at001e = ╱ed╱ ( ╱ // 0x4428 @0x1e
0x440a…4435 at001f = ╱42╱B╱ // 0x4429 @0x1f
0x440a…4435 at0020 = ╱39╱9╱ // 0x442a @0x20
0x440a…4435 at0021 = ╱e7╱ * ╱ // 0x442b @0x21
0x440a…4435 at0022 = ╱36╱6╱ // 0x442c @0x22
0x440a…4435 at0023 = ╱30╱0╱ // 0x442d @0x23
0x440a…4435 at0024 = ╱f23c00╱ // 0x442e @0x24
0x440a…4435 at0027 = ╱e8╱ / ╱ // 0x4431 @0x27
0x440a…4435 at0028 = ╱57╱W╱ // 0x4432 @0x28
0x440a…4435 at0029 = ╱ee╱ ) ╱ // 0x4433 @0x29
0x440a…4435 at002a = EOL // 0x4434 @0x2a
0x440a…4435 }
0x4435…4443 da31 04175 LET D1 := D1 - E5
0x4435…4443 LineComal80 {
0x4435…4443 ptr = 0xda31 // 0x4435 @0x0
0x4435…4443 lno = 0x104f // 0x4437 @0x2
0x4435…4443 at0004 = ╱86╱ LET ╱ // 0x4439 @0x4
0x4435…4443 at0005 = ╱44╱D╱ // 0x443a @0x5
0x4435…4443 at0006 = ╱31╱1╱ // 0x443b @0x6
0x4435…4443 at0007 = ╱f0╱ := ╱ // 0x443c @0x7
0x4435…4443 at0008 = ╱44╱D╱ // 0x443d @0x8
0x4435…4443 at0009 = ╱31╱1╱ // 0x443e @0x9
0x4435…4443 at000a = ╱e6╱ - ╱ // 0x443f @0xa
0x4435…4443 at000b = ╱45╱E╱ // 0x4440 @0xb
0x4435…4443 at000c = ╱35╱5╱ // 0x4441 @0xc
0x4435…4443 at000d = EOL // 0x4442 @0xd
0x4435…4443 }
0x4443…445a da48 04180 IF D1 < 0 THEN LET D1 := 0
0x4443…445a LineComal80 {
0x4443…445a ptr = 0xda48 // 0x4443 @0x0
0x4443…445a lno = 0x1054 // 0x4445 @0x2
0x4443…445a at0004 = ╱8200╱ IF ╱ // 0x4447 @0x4
0x4443…445a at0006 = ╱44╱D╱ // 0x4449 @0x6
0x4443…445a at0007 = ╱31╱1╱ // 0x444a @0x7
0x4443…445a at0008 = ╱e0╱ < ╱ // 0x444b @0x8
0x4443…445a at0009 = ╱30╱0╱ // 0x444c @0x9
0x4443…445a at000a = ╱f20000╱ // 0x444d @0xa
0x4443…445a at000d = ╱b5╱ THEN ╱ // 0x4450 @0xd
0x4443…445a at000e = ╱86╱ LET ╱ // 0x4451 @0xe
0x4443…445a at000f = ╱44╱D╱ // 0x4452 @0xf
0x4443…445a at0010 = ╱31╱1╱ // 0x4453 @0x10
0x4443…445a at0011 = ╱f0╱ := ╱ // 0x4454 @0x11
0x4443…445a at0012 = ╱30╱0╱ // 0x4455 @0x12
0x4443…445a at0013 = ╱f20000╱ // 0x4456 @0x13
0x4443…445a at0016 = EOL // 0x4459 @0x16
0x4443…445a }
0x445a…4466 da54 04185 EXEC REGN38
0x445a…4466 LineComal80 {
0x445a…4466 ptr = 0xda54 // 0x445a @0x0
0x445a…4466 lno = 0x1059 // 0x445c @0x2
0x445a…4466 at0004 = ╱9d╱ EXEC ╱ // 0x445e @0x4
0x445a…4466 at0005 = ╱52╱R╱ // 0x445f @0x5
0x445a…4466 at0006 = ╱45╱E╱ // 0x4460 @0x6
0x445a…4466 at0007 = ╱47╱G╱ // 0x4461 @0x7
0x445a…4466 at0008 = ╱4e╱N╱ // 0x4462 @0x8
0x445a…4466 at0009 = ╱33╱3╱ // 0x4463 @0x9
0x445a…4466 at000a = ╱38╱8╱ // 0x4464 @0xa
0x445a…4466 at000b = EOL // 0x4465 @0xb
0x445a…4466 }
0x4466…4471 da5f 04190 EXEC REGN7
0x4466…4471 LineComal80 {
0x4466…4471 ptr = 0xda5f // 0x4466 @0x0
0x4466…4471 lno = 0x105e // 0x4468 @0x2
0x4466…4471 at0004 = ╱9d╱ EXEC ╱ // 0x446a @0x4
0x4466…4471 at0005 = ╱52╱R╱ // 0x446b @0x5
0x4466…4471 at0006 = ╱45╱E╱ // 0x446c @0x6
0x4466…4471 at0007 = ╱47╱G╱ // 0x446d @0x7
0x4466…4471 at0008 = ╱4e╱N╱ // 0x446e @0x8
0x4466…4471 at0009 = ╱37╱7╱ // 0x446f @0x9
0x4466…4471 at000a = EOL // 0x4470 @0xa
0x4466…4471 }
0x4471…4477 da65 04195 ENDIF
0x4471…4477 LineComal80 {
0x4471…4477 ptr = 0xda65 // 0x4471 @0x0
0x4471…4477 lno = 0x1063 // 0x4473 @0x2
0x4471…4477 at0004 = ╱9c╱ ENDIF ╱ // 0x4475 @0x4
0x4471…4477 at0005 = EOL // 0x4476 @0x5
0x4471…4477 }
0x4477…447d da6b 04200 ENDIF
0x4477…447d LineComal80 {
0x4477…447d ptr = 0xda6b // 0x4477 @0x0
0x4477…447d lno = 0x1068 // 0x4479 @0x2
0x4477…447d at0004 = ╱9c╱ ENDIF ╱ // 0x447b @0x4
0x4477…447d at0005 = EOL // 0x447c @0x5
0x4477…447d }
0x447d…4488 da76 04205 ENDPROC REGN8
0x447d…4488 LineComal80 {
0x447d…4488 ptr = 0xda76 // 0x447d @0x0
0x447d…4488 lno = 0x106d // 0x447f @0x2
0x447d…4488 at0004 = ╱9f╱ ENDPROC ╱ // 0x4481 @0x4
0x447d…4488 at0005 = ╱52╱R╱ // 0x4482 @0x5
0x447d…4488 at0006 = ╱45╱E╱ // 0x4483 @0x6
0x447d…4488 at0007 = ╱47╱G╱ // 0x4484 @0x7
0x447d…4488 at0008 = ╱4e╱N╱ // 0x4485 @0x8
0x447d…4488 at0009 = ╱38╱8╱ // 0x4486 @0x9
0x447d…4488 at000a = EOL // 0x4487 @0xa
0x447d…4488 }
0x4488…4494 da82 04210 PROC REGN9
0x4488…4494 LineComal80 {
0x4488…4494 ptr = 0xda82 // 0x4488 @0x0
0x4488…4494 lno = 0x1072 // 0x448a @0x2
0x4488…4494 at0004 = ╱9e00╱ PROC ╱ // 0x448c @0x4
0x4488…4494 at0006 = ╱52╱R╱ // 0x448e @0x6
0x4488…4494 at0007 = ╱45╱E╱ // 0x448f @0x7
0x4488…4494 at0008 = ╱47╱G╱ // 0x4490 @0x8
0x4488…4494 at0009 = ╱4e╱N╱ // 0x4491 @0x9
0x4488…4494 at000a = ╱39╱9╱ // 0x4492 @0xa
0x4488…4494 at000b = EOL // 0x4493 @0xb
0x4488…4494 }
0x4494…44a5 (228,) da93 04215 IF B7 < O THEN LET B7 := O
0x4494…44a5 LineComal80 {
0x4494…44a5 ptr = 0xda93 // 0x4494 @0x0
0x4494…44a5 lno = 0x1077 // 0x4496 @0x2
0x4494…44a5 at0004 = ╱8200╱ IF ╱ // 0x4498 @0x4
0x4494…44a5 at0006 = ╱42╱B╱ // 0x449a @0x6
0x4494…44a5 at0007 = ╱37╱7╱ // 0x449b @0x7
0x4494…44a5 at0008 = ╱e0╱ < ╱ // 0x449c @0x8
0x4494…44a5 at0009 = ╱4f╱O╱ // 0x449d @0x9
0x4494…44a5 at000a = ╱b5╱ THEN ╱ // 0x449e @0xa
0x4494…44a5 at000b = ╱86╱ LET ╱ // 0x449f @0xb
0x4494…44a5 at000c = ╱42╱B╱ // 0x44a0 @0xc
0x4494…44a5 at000d = ╱37╱7╱ // 0x44a1 @0xd
0x4494…44a5 at000e = ╱f0╱ := ╱ // 0x44a2 @0xe
0x4494…44a5 at000f = ╱4f╱O╱ // 0x44a3 @0xf
0x4494…44a5 at0010 = EOL // 0x44a4 @0x10
0x4494…44a5 }
0x44a5…44b6 daa4 04220 IF B8 < O THEN LET B8 := O
0x44a5…44b6 LineComal80 {
0x44a5…44b6 ptr = 0xdaa4 // 0x44a5 @0x0
0x44a5…44b6 lno = 0x107c // 0x44a7 @0x2
0x44a5…44b6 at0004 = ╱8200╱ IF ╱ // 0x44a9 @0x4
0x44a5…44b6 at0006 = ╱42╱B╱ // 0x44ab @0x6
0x44a5…44b6 at0007 = ╱38╱8╱ // 0x44ac @0x7
0x44a5…44b6 at0008 = ╱e0╱ < ╱ // 0x44ad @0x8
0x44a5…44b6 at0009 = ╱4f╱O╱ // 0x44ae @0x9
0x44a5…44b6 at000a = ╱b5╱ THEN ╱ // 0x44af @0xa
0x44a5…44b6 at000b = ╱86╱ LET ╱ // 0x44b0 @0xb
0x44a5…44b6 at000c = ╱42╱B╱ // 0x44b1 @0xc
0x44a5…44b6 at000d = ╱38╱8╱ // 0x44b2 @0xd
0x44a5…44b6 at000e = ╱f0╱ := ╱ // 0x44b3 @0xe
0x44a5…44b6 at000f = ╱4f╱O╱ // 0x44b4 @0xf
0x44a5…44b6 at0010 = EOL // 0x44b5 @0x10
0x44a5…44b6 }
0x44b6…44ea dad8 04225 LET B6 := B7 + B8 ; B6 := INT ( B6 / W ) * W ; E7 := ( B6 - U2 ) * 22 / 1000
0x44b6…44ea LineComal80 {
0x44b6…44ea ptr = 0xdad8 // 0x44b6 @0x0
0x44b6…44ea lno = 0x1081 // 0x44b8 @0x2
0x44b6…44ea at0004 = ╱86╱ LET ╱ // 0x44ba @0x4
0x44b6…44ea at0005 = ╱42╱B╱ // 0x44bb @0x5
0x44b6…44ea at0006 = ╱36╱6╱ // 0x44bc @0x6
0x44b6…44ea at0007 = ╱f0╱ := ╱ // 0x44bd @0x7
0x44b6…44ea at0008 = ╱42╱B╱ // 0x44be @0x8
0x44b6…44ea at0009 = ╱37╱7╱ // 0x44bf @0x9
0x44b6…44ea at000a = ╱e5╱ + ╱ // 0x44c0 @0xa
0x44b6…44ea at000b = ╱42╱B╱ // 0x44c1 @0xb
0x44b6…44ea at000c = ╱38╱8╱ // 0x44c2 @0xc
0x44b6…44ea at000d = ╱ea╱ ; ╱ // 0x44c3 @0xd
0x44b6…44ea at000e = ╱42╱B╱ // 0x44c4 @0xe
0x44b6…44ea at000f = ╱36╱6╱ // 0x44c5 @0xf
0x44b6…44ea at0010 = ╱f0╱ := ╱ // 0x44c6 @0x10
0x44b6…44ea at0011 = ╱c6╱ INT ╱ // 0x44c7 @0x11
0x44b6…44ea at0012 = ╱ed╱ ( ╱ // 0x44c8 @0x12
0x44b6…44ea at0013 = ╱42╱B╱ // 0x44c9 @0x13
0x44b6…44ea at0014 = ╱36╱6╱ // 0x44ca @0x14
0x44b6…44ea at0015 = ╱e8╱ / ╱ // 0x44cb @0x15
0x44b6…44ea at0016 = ╱57╱W╱ // 0x44cc @0x16
0x44b6…44ea at0017 = ╱ee╱ ) ╱ // 0x44cd @0x17
0x44b6…44ea at0018 = ╱e7╱ * ╱ // 0x44ce @0x18
0x44b6…44ea at0019 = ╱57╱W╱ // 0x44cf @0x19
0x44b6…44ea at001a = ╱ea╱ ; ╱ // 0x44d0 @0x1a
0x44b6…44ea at001b = ╱45╱E╱ // 0x44d1 @0x1b
0x44b6…44ea at001c = ╱37╱7╱ // 0x44d2 @0x1c
0x44b6…44ea at001d = ╱f0╱ := ╱ // 0x44d3 @0x1d
0x44b6…44ea at001e = ╱ed╱ ( ╱ // 0x44d4 @0x1e
0x44b6…44ea at001f = ╱42╱B╱ // 0x44d5 @0x1f
0x44b6…44ea at0020 = ╱36╱6╱ // 0x44d6 @0x20
0x44b6…44ea at0021 = ╱e6╱ - ╱ // 0x44d7 @0x21
0x44b6…44ea at0022 = ╱55╱U╱ // 0x44d8 @0x22
0x44b6…44ea at0023 = ╱32╱2╱ // 0x44d9 @0x23
0x44b6…44ea at0024 = ╱ee╱ ) ╱ // 0x44da @0x24
0x44b6…44ea at0025 = ╱e7╱ * ╱ // 0x44db @0x25
0x44b6…44ea at0026 = ╱32╱2╱ // 0x44dc @0x26
0x44b6…44ea at0027 = ╱32╱2╱ // 0x44dd @0x27
0x44b6…44ea at0028 = ╱f21600╱ // 0x44de @0x28
0x44b6…44ea at002b = ╱e8╱ / ╱ // 0x44e1 @0x2b
0x44b6…44ea at002c = ╱31╱1╱ // 0x44e2 @0x2c
0x44b6…44ea at002d = ╱30╱0╱ // 0x44e3 @0x2d
0x44b6…44ea at002e = ╱30╱0╱ // 0x44e4 @0x2e
0x44b6…44ea at002f = ╱30╱0╱ // 0x44e5 @0x2f
0x44b6…44ea at0030 = ╱f2e803╱ // 0x44e6 @0x30
0x44b6…44ea at0033 = EOL // 0x44e9 @0x33
0x44b6…44ea }
0x44ea…4502 daf0 04230 IF B7 > O THEN LET B9 := E7 / B6 * B7
0x44ea…4502 LineComal80 {
0x44ea…4502 ptr = 0xdaf0 // 0x44ea @0x0
0x44ea…4502 lno = 0x1086 // 0x44ec @0x2
0x44ea…4502 at0004 = ╱8200╱ IF ╱ // 0x44ee @0x4
0x44ea…4502 at0006 = ╱42╱B╱ // 0x44f0 @0x6
0x44ea…4502 at0007 = ╱37╱7╱ // 0x44f1 @0x7
0x44ea…4502 at0008 = ╱e1╱ > ╱ // 0x44f2 @0x8
0x44ea…4502 at0009 = ╱4f╱O╱ // 0x44f3 @0x9
0x44ea…4502 at000a = ╱b5╱ THEN ╱ // 0x44f4 @0xa
0x44ea…4502 at000b = ╱86╱ LET ╱ // 0x44f5 @0xb
0x44ea…4502 at000c = ╱42╱B╱ // 0x44f6 @0xc
0x44ea…4502 at000d = ╱39╱9╱ // 0x44f7 @0xd
0x44ea…4502 at000e = ╱f0╱ := ╱ // 0x44f8 @0xe
0x44ea…4502 at000f = ╱45╱E╱ // 0x44f9 @0xf
0x44ea…4502 at0010 = ╱37╱7╱ // 0x44fa @0x10
0x44ea…4502 at0011 = ╱e8╱ / ╱ // 0x44fb @0x11
0x44ea…4502 at0012 = ╱42╱B╱ // 0x44fc @0x12
0x44ea…4502 at0013 = ╱36╱6╱ // 0x44fd @0x13
0x44ea…4502 at0014 = ╱e7╱ * ╱ // 0x44fe @0x14
0x44ea…4502 at0015 = ╱42╱B╱ // 0x44ff @0x15
0x44ea…4502 at0016 = ╱37╱7╱ // 0x4500 @0x16
0x44ea…4502 at0017 = EOL // 0x4501 @0x17
0x44ea…4502 }
0x4502…451a db08 04235 IF B8 > O THEN LET E6 := E7 / B6 * B8
0x4502…451a LineComal80 {
0x4502…451a ptr = 0xdb08 // 0x4502 @0x0
0x4502…451a lno = 0x108b // 0x4504 @0x2
0x4502…451a at0004 = ╱8200╱ IF ╱ // 0x4506 @0x4
0x4502…451a at0006 = ╱42╱B╱ // 0x4508 @0x6
0x4502…451a at0007 = ╱38╱8╱ // 0x4509 @0x7
0x4502…451a at0008 = ╱e1╱ > ╱ // 0x450a @0x8
0x4502…451a at0009 = ╱4f╱O╱ // 0x450b @0x9
0x4502…451a at000a = ╱b5╱ THEN ╱ // 0x450c @0xa
0x4502…451a at000b = ╱86╱ LET ╱ // 0x450d @0xb
0x4502…451a at000c = ╱45╱E╱ // 0x450e @0xc
0x4502…451a at000d = ╱36╱6╱ // 0x450f @0xd
0x4502…451a at000e = ╱f0╱ := ╱ // 0x4510 @0xe
0x4502…451a at000f = ╱45╱E╱ // 0x4511 @0xf
0x4502…451a at0010 = ╱37╱7╱ // 0x4512 @0x10
0x4502…451a at0011 = ╱e8╱ / ╱ // 0x4513 @0x11
0x4502…451a at0012 = ╱42╱B╱ // 0x4514 @0x12
0x4502…451a at0013 = ╱36╱6╱ // 0x4515 @0x13
0x4502…451a at0014 = ╱e7╱ * ╱ // 0x4516 @0x14
0x4502…451a at0015 = ╱42╱B╱ // 0x4517 @0x15
0x4502…451a at0016 = ╱38╱8╱ // 0x4518 @0x16
0x4502…451a at0017 = EOL // 0x4519 @0x17
0x4502…451a }
0x451a…453b db29 04240 IF 2 = 2 AND ( T0 = 1 OR T0 = 2 ) THEN
0x451a…453b LineComal80 {
0x451a…453b ptr = 0xdb29 // 0x451a @0x0
0x451a…453b lno = 0x1090 // 0x451c @0x2
0x451a…453b at0004 = ╱9b0054╱ IF ╱ // 0x451e @0x4
0x451a…453b at0007 = ╱32╱2╱ // 0x4521 @0x7
0x451a…453b at0008 = ╱df╱ = ╱ // 0x4522 @0x8
0x451a…453b at0009 = ╱32╱2╱ // 0x4523 @0x9
0x451a…453b at000a = ╱f20200╱ // 0x4524 @0xa
0x451a…453b at000d = ╱d9╱ AND ╱ // 0x4527 @0xd
0x451a…453b at000e = ╱ed╱ ( ╱ // 0x4528 @0xe
0x451a…453b at000f = ╱54╱T╱ // 0x4529 @0xf
0x451a…453b at0010 = ╱30╱0╱ // 0x452a @0x10
0x451a…453b at0011 = ╱df╱ = ╱ // 0x452b @0x11
0x451a…453b at0012 = ╱31╱1╱ // 0x452c @0x12
0x451a…453b at0013 = ╱f20100╱ // 0x452d @0x13
0x451a…453b at0016 = ╱d8╱ OR ╱ // 0x4530 @0x16
0x451a…453b at0017 = ╱54╱T╱ // 0x4531 @0x17
0x451a…453b at0018 = ╱30╱0╱ // 0x4532 @0x18
0x451a…453b at0019 = ╱df╱ = ╱ // 0x4533 @0x19
0x451a…453b at001a = ╱32╱2╱ // 0x4534 @0x1a
0x451a…453b at001b = ╱f20200╱ // 0x4535 @0x1b
0x451a…453b at001e = ╱ee╱ ) ╱ // 0x4538 @0x1e
0x451a…453b at001f = ╱b5╱ THEN ╱ // 0x4539 @0x1f
0x451a…453b at0020 = EOL // 0x453a @0x20
0x451a…453b }
0x453b…4550 db3e 04245 IF T0 = 1 THEN LET D8 := C4
0x453b…4550 LineComal80 {
0x453b…4550 ptr = 0xdb3e // 0x453b @0x0
0x453b…4550 lno = 0x1095 // 0x453d @0x2
0x453b…4550 at0004 = ╱8200╱ IF ╱ // 0x453f @0x4
0x453b…4550 at0006 = ╱54╱T╱ // 0x4541 @0x6
0x453b…4550 at0007 = ╱30╱0╱ // 0x4542 @0x7
0x453b…4550 at0008 = ╱df╱ = ╱ // 0x4543 @0x8
0x453b…4550 at0009 = ╱31╱1╱ // 0x4544 @0x9
0x453b…4550 at000a = ╱f20100╱ // 0x4545 @0xa
0x453b…4550 at000d = ╱b5╱ THEN ╱ // 0x4548 @0xd
0x453b…4550 at000e = ╱86╱ LET ╱ // 0x4549 @0xe
0x453b…4550 at000f = ╱44╱D╱ // 0x454a @0xf
0x453b…4550 at0010 = ╱38╱8╱ // 0x454b @0x10
0x453b…4550 at0011 = ╱f0╱ := ╱ // 0x454c @0x11
0x453b…4550 at0012 = ╱43╱C╱ // 0x454d @0x12
0x453b…4550 at0013 = ╱34╱4╱ // 0x454e @0x13
0x453b…4550 at0014 = EOL // 0x454f @0x14
0x453b…4550 }
0x4550…4565 db53 04250 IF T0 = 2 THEN LET D8 := C6
0x4550…4565 LineComal80 {
0x4550…4565 ptr = 0xdb53 // 0x4550 @0x0
0x4550…4565 lno = 0x109a // 0x4552 @0x2
0x4550…4565 at0004 = ╱8200╱ IF ╱ // 0x4554 @0x4
0x4550…4565 at0006 = ╱54╱T╱ // 0x4556 @0x6
0x4550…4565 at0007 = ╱30╱0╱ // 0x4557 @0x7
0x4550…4565 at0008 = ╱df╱ = ╱ // 0x4558 @0x8
0x4550…4565 at0009 = ╱32╱2╱ // 0x4559 @0x9
0x4550…4565 at000a = ╱f20200╱ // 0x455a @0xa
0x4550…4565 at000d = ╱b5╱ THEN ╱ // 0x455d @0xd
0x4550…4565 at000e = ╱86╱ LET ╱ // 0x455e @0xe
0x4550…4565 at000f = ╱44╱D╱ // 0x455f @0xf
0x4550…4565 at0010 = ╱38╱8╱ // 0x4560 @0x10
0x4550…4565 at0011 = ╱f0╱ := ╱ // 0x4561 @0x11
0x4550…4565 at0012 = ╱43╱C╱ // 0x4562 @0x12
0x4550…4565 at0013 = ╱36╱6╱ // 0x4563 @0x13
0x4550…4565 at0014 = EOL // 0x4564 @0x14
0x4550…4565 }
0x4565…456f db5d 04255 LET D0 := O
0x4565…456f LineComal80 {
0x4565…456f ptr = 0xdb5d // 0x4565 @0x0
0x4565…456f lno = 0x109f // 0x4567 @0x2
0x4565…456f at0004 = ╱86╱ LET ╱ // 0x4569 @0x4
0x4565…456f at0005 = ╱44╱D╱ // 0x456a @0x5
0x4565…456f at0006 = ╱30╱0╱ // 0x456b @0x6
0x4565…456f at0007 = ╱f0╱ := ╱ // 0x456c @0x7
0x4565…456f at0008 = ╱4f╱O╱ // 0x456d @0x8
0x4565…456f at0009 = EOL // 0x456e @0x9
0x4565…456f }
0x456f…4576 db64 04260 ELSE
0x456f…4576 LineComal80 {
0x456f…4576 ptr = 0xdb64 // 0x456f @0x0
0x456f…4576 lno = 0x10a4 // 0x4571 @0x2
0x456f…4576 at0004 = ╱9a00╱ ELSE ╱ // 0x4573 @0x4
0x456f…4576 at0006 = EOL // 0x4575 @0x6
0x456f…4576 }
0x4576…4585 db73 04265 IF 0 = 1 THEN
0x4576…4585 LineComal80 {
0x4576…4585 ptr = 0xdb73 // 0x4576 @0x0
0x4576…4585 lno = 0x10a9 // 0x4578 @0x2
0x4576…4585 at0004 = ╱9b0054╱ IF ╱ // 0x457a @0x4
0x4576…4585 at0007 = ╱30╱0╱ // 0x457d @0x7
0x4576…4585 at0008 = ╱df╱ = ╱ // 0x457e @0x8
0x4576…4585 at0009 = ╱31╱1╱ // 0x457f @0x9
0x4576…4585 at000a = ╱f20100╱ // 0x4580 @0xa
0x4576…4585 at000d = ╱b5╱ THEN ╱ // 0x4583 @0xd
0x4576…4585 at000e = EOL // 0x4584 @0xe
0x4576…4585 }
0x4585…4590 db7e 04270 LET C7 := B5
0x4585…4590 LineComal80 {
0x4585…4590 ptr = 0xdb7e // 0x4585 @0x0
0x4585…4590 lno = 0x10ae // 0x4587 @0x2
0x4585…4590 at0004 = ╱86╱ LET ╱ // 0x4589 @0x4
0x4585…4590 at0005 = ╱43╱C╱ // 0x458a @0x5
0x4585…4590 at0006 = ╱37╱7╱ // 0x458b @0x6
0x4585…4590 at0007 = ╱f0╱ := ╱ // 0x458c @0x7
0x4585…4590 at0008 = ╱42╱B╱ // 0x458d @0x8
0x4585…4590 at0009 = ╱35╱5╱ // 0x458e @0x9
0x4585…4590 at000a = EOL // 0x458f @0xa
0x4585…4590 }
0x4590…4597 db85 04275 ELSE
0x4590…4597 LineComal80 {
0x4590…4597 ptr = 0xdb85 // 0x4590 @0x0
0x4590…4597 lno = 0x10b3 // 0x4592 @0x2
0x4590…4597 at0004 = ╱9a00╱ ELSE ╱ // 0x4594 @0x4
0x4590…4597 at0006 = EOL // 0x4596 @0x6
0x4590…4597 }
0x4597…45a2 db90 04280 LET C7 := B2
0x4597…45a2 LineComal80 {
0x4597…45a2 ptr = 0xdb90 // 0x4597 @0x0
0x4597…45a2 lno = 0x10b8 // 0x4599 @0x2
0x4597…45a2 at0004 = ╱86╱ LET ╱ // 0x459b @0x4
0x4597…45a2 at0005 = ╱43╱C╱ // 0x459c @0x5
0x4597…45a2 at0006 = ╱37╱7╱ // 0x459d @0x6
0x4597…45a2 at0007 = ╱f0╱ := ╱ // 0x459e @0x7
0x4597…45a2 at0008 = ╱42╱B╱ // 0x459f @0x8
0x4597…45a2 at0009 = ╱32╱2╱ // 0x45a0 @0x9
0x4597…45a2 at000a = EOL // 0x45a1 @0xa
0x4597…45a2 }
0x45a2…45a8 db96 04285 ENDIF
0x45a2…45a8 LineComal80 {
0x45a2…45a8 ptr = 0xdb96 // 0x45a2 @0x0
0x45a2…45a8 lno = 0x10bd // 0x45a4 @0x2
0x45a2…45a8 at0004 = ╱9c╱ ENDIF ╱ // 0x45a6 @0x4
0x45a2…45a8 at0005 = EOL // 0x45a7 @0x5
0x45a2…45a8 }
0x45a8…45d8 dbc6 04290 LET D0 := ( INT ( C7 / W ) * W ) * ( ( P0 + PA0 + P7 + P8 ) / W ) ; D0 := D0 + E2
0x45a8…45d8 LineComal80 {
0x45a8…45d8 ptr = 0xdbc6 // 0x45a8 @0x0
0x45a8…45d8 lno = 0x10c2 // 0x45aa @0x2
0x45a8…45d8 at0004 = ╱86╱ LET ╱ // 0x45ac @0x4
0x45a8…45d8 at0005 = ╱44╱D╱ // 0x45ad @0x5
0x45a8…45d8 at0006 = ╱30╱0╱ // 0x45ae @0x6
0x45a8…45d8 at0007 = ╱f0╱ := ╱ // 0x45af @0x7
0x45a8…45d8 at0008 = ╱ed╱ ( ╱ // 0x45b0 @0x8
0x45a8…45d8 at0009 = ╱c6╱ INT ╱ // 0x45b1 @0x9
0x45a8…45d8 at000a = ╱ed╱ ( ╱ // 0x45b2 @0xa
0x45a8…45d8 at000b = ╱43╱C╱ // 0x45b3 @0xb
0x45a8…45d8 at000c = ╱37╱7╱ // 0x45b4 @0xc
0x45a8…45d8 at000d = ╱e8╱ / ╱ // 0x45b5 @0xd
0x45a8…45d8 at000e = ╱57╱W╱ // 0x45b6 @0xe
0x45a8…45d8 at000f = ╱ee╱ ) ╱ // 0x45b7 @0xf
0x45a8…45d8 at0010 = ╱e7╱ * ╱ // 0x45b8 @0x10
0x45a8…45d8 at0011 = ╱57╱W╱ // 0x45b9 @0x11
0x45a8…45d8 at0012 = ╱ee╱ ) ╱ // 0x45ba @0x12
0x45a8…45d8 at0013 = ╱e7╱ * ╱ // 0x45bb @0x13
0x45a8…45d8 at0014 = ╱ed╱ ( ╱ // 0x45bc @0x14
0x45a8…45d8 at0015 = ╱ed╱ ( ╱ // 0x45bd @0x15
0x45a8…45d8 at0016 = ╱50╱P╱ // 0x45be @0x16
0x45a8…45d8 at0017 = ╱30╱0╱ // 0x45bf @0x17
0x45a8…45d8 at0018 = ╱e5╱ + ╱ // 0x45c0 @0x18
0x45a8…45d8 at0019 = ╱50╱P╱ // 0x45c1 @0x19
0x45a8…45d8 at001a = ╱41╱A╱ // 0x45c2 @0x1a
0x45a8…45d8 at001b = ╱30╱0╱ // 0x45c3 @0x1b
0x45a8…45d8 at001c = ╱e5╱ + ╱ // 0x45c4 @0x1c
0x45a8…45d8 at001d = ╱50╱P╱ // 0x45c5 @0x1d
0x45a8…45d8 at001e = ╱37╱7╱ // 0x45c6 @0x1e
0x45a8…45d8 at001f = ╱e5╱ + ╱ // 0x45c7 @0x1f
0x45a8…45d8 at0020 = ╱50╱P╱ // 0x45c8 @0x20
0x45a8…45d8 at0021 = ╱38╱8╱ // 0x45c9 @0x21
0x45a8…45d8 at0022 = ╱ee╱ ) ╱ // 0x45ca @0x22
0x45a8…45d8 at0023 = ╱e8╱ / ╱ // 0x45cb @0x23
0x45a8…45d8 at0024 = ╱57╱W╱ // 0x45cc @0x24
0x45a8…45d8 at0025 = ╱ee╱ ) ╱ // 0x45cd @0x25
0x45a8…45d8 at0026 = ╱ea╱ ; ╱ // 0x45ce @0x26
0x45a8…45d8 at0027 = ╱44╱D╱ // 0x45cf @0x27
0x45a8…45d8 at0028 = ╱30╱0╱ // 0x45d0 @0x28
0x45a8…45d8 at0029 = ╱f0╱ := ╱ // 0x45d1 @0x29
0x45a8…45d8 at002a = ╱44╱D╱ // 0x45d2 @0x2a
0x45a8…45d8 at002b = ╱30╱0╱ // 0x45d3 @0x2b
0x45a8…45d8 at002c = ╱e5╱ + ╱ // 0x45d4 @0x2c
0x45a8…45d8 at002d = ╱45╱E╱ // 0x45d5 @0x2d
0x45a8…45d8 at002e = ╱32╱2╱ // 0x45d6 @0x2e
0x45a8…45d8 at002f = EOL // 0x45d7 @0x2f
0x45a8…45d8 }
0x45d8…45de dbcc 04295 ENDIF
0x45d8…45de LineComal80 {
0x45d8…45de ptr = 0xdbcc // 0x45d8 @0x0
0x45d8…45de lno = 0x10c7 // 0x45da @0x2
0x45d8…45de at0004 = ╱9c╱ ENDIF ╱ // 0x45dc @0x4
0x45d8…45de at0005 = EOL // 0x45dd @0x5
0x45d8…45de }
0x45de…45f3 dbe1 04300 IF E8 < O THEN LET D0 := D0 + E8
0x45de…45f3 LineComal80 {
0x45de…45f3 ptr = 0xdbe1 // 0x45de @0x0
0x45de…45f3 lno = 0x10cc // 0x45e0 @0x2
0x45de…45f3 at0004 = ╱8200╱ IF ╱ // 0x45e2 @0x4
0x45de…45f3 at0006 = ╱45╱E╱ // 0x45e4 @0x6
0x45de…45f3 at0007 = ╱38╱8╱ // 0x45e5 @0x7
0x45de…45f3 at0008 = ╱e0╱ < ╱ // 0x45e6 @0x8
0x45de…45f3 at0009 = ╱4f╱O╱ // 0x45e7 @0x9
0x45de…45f3 at000a = ╱b5╱ THEN ╱ // 0x45e8 @0xa
0x45de…45f3 at000b = ╱86╱ LET ╱ // 0x45e9 @0xb
0x45de…45f3 at000c = ╱44╱D╱ // 0x45ea @0xc
0x45de…45f3 at000d = ╱30╱0╱ // 0x45eb @0xd
0x45de…45f3 at000e = ╱f0╱ := ╱ // 0x45ec @0xe
0x45de…45f3 at000f = ╱44╱D╱ // 0x45ed @0xf
0x45de…45f3 at0010 = ╱30╱0╱ // 0x45ee @0x10
0x45de…45f3 at0011 = ╱e5╱ + ╱ // 0x45ef @0x11
0x45de…45f3 at0012 = ╱45╱E╱ // 0x45f0 @0x12
0x45de…45f3 at0013 = ╱38╱8╱ // 0x45f1 @0x13
0x45de…45f3 at0014 = EOL // 0x45f2 @0x14
0x45de…45f3 }
0x45f3…4608 dbf6 04305 IF E9 < O THEN LET D0 := D0 + E9
0x45f3…4608 LineComal80 {
0x45f3…4608 ptr = 0xdbf6 // 0x45f3 @0x0
0x45f3…4608 lno = 0x10d1 // 0x45f5 @0x2
0x45f3…4608 at0004 = ╱8200╱ IF ╱ // 0x45f7 @0x4
0x45f3…4608 at0006 = ╱45╱E╱ // 0x45f9 @0x6
0x45f3…4608 at0007 = ╱39╱9╱ // 0x45fa @0x7
0x45f3…4608 at0008 = ╱e0╱ < ╱ // 0x45fb @0x8
0x45f3…4608 at0009 = ╱4f╱O╱ // 0x45fc @0x9
0x45f3…4608 at000a = ╱b5╱ THEN ╱ // 0x45fd @0xa
0x45f3…4608 at000b = ╱86╱ LET ╱ // 0x45fe @0xb
0x45f3…4608 at000c = ╱44╱D╱ // 0x45ff @0xc
0x45f3…4608 at000d = ╱30╱0╱ // 0x4600 @0xd
0x45f3…4608 at000e = ╱f0╱ := ╱ // 0x4601 @0xe
0x45f3…4608 at000f = ╱44╱D╱ // 0x4602 @0xf
0x45f3…4608 at0010 = ╱30╱0╱ // 0x4603 @0x10
0x45f3…4608 at0011 = ╱e5╱ + ╱ // 0x4604 @0x11
0x45f3…4608 at0012 = ╱45╱E╱ // 0x4605 @0x12
0x45f3…4608 at0013 = ╱39╱9╱ // 0x4606 @0x13
0x45f3…4608 at0014 = EOL // 0x4607 @0x14
0x45f3…4608 }
0x4608…4631 dc1f 04310 IF T0 = 1 AND E8 >= O THEN LET D0 := D0 + HD6 - HD5 + GEMAFR
0x4608…4631 LineComal80 {
0x4608…4631 ptr = 0xdc1f // 0x4608 @0x0
0x4608…4631 lno = 0x10d6 // 0x460a @0x2
0x4608…4631 at0004 = ╱8200╱ IF ╱ // 0x460c @0x4
0x4608…4631 at0006 = ╱54╱T╱ // 0x460e @0x6
0x4608…4631 at0007 = ╱30╱0╱ // 0x460f @0x7
0x4608…4631 at0008 = ╱df╱ = ╱ // 0x4610 @0x8
0x4608…4631 at0009 = ╱31╱1╱ // 0x4611 @0x9
0x4608…4631 at000a = ╱f20100╱ // 0x4612 @0xa
0x4608…4631 at000d = ╱d9╱ AND ╱ // 0x4615 @0xd
0x4608…4631 at000e = ╱45╱E╱ // 0x4616 @0xe
0x4608…4631 at000f = ╱38╱8╱ // 0x4617 @0xf
0x4608…4631 at0010 = ╱e3╱ >= ╱ // 0x4618 @0x10
0x4608…4631 at0011 = ╱4f╱O╱ // 0x4619 @0x11
0x4608…4631 at0012 = ╱b5╱ THEN ╱ // 0x461a @0x12
0x4608…4631 at0013 = ╱86╱ LET ╱ // 0x461b @0x13
0x4608…4631 at0014 = ╱44╱D╱ // 0x461c @0x14
0x4608…4631 at0015 = ╱30╱0╱ // 0x461d @0x15
0x4608…4631 at0016 = ╱f0╱ := ╱ // 0x461e @0x16
0x4608…4631 at0017 = ╱44╱D╱ // 0x461f @0x17
0x4608…4631 at0018 = ╱30╱0╱ // 0x4620 @0x18
0x4608…4631 at0019 = ╱e5╱ + ╱ // 0x4621 @0x19
0x4608…4631 at001a = ╱48╱H╱ // 0x4622 @0x1a
0x4608…4631 at001b = ╱44╱D╱ // 0x4623 @0x1b
0x4608…4631 at001c = ╱36╱6╱ // 0x4624 @0x1c
0x4608…4631 at001d = ╱e6╱ - ╱ // 0x4625 @0x1d
0x4608…4631 at001e = ╱48╱H╱ // 0x4626 @0x1e
0x4608…4631 at001f = ╱44╱D╱ // 0x4627 @0x1f
0x4608…4631 at0020 = ╱35╱5╱ // 0x4628 @0x20
0x4608…4631 at0021 = ╱e5╱ + ╱ // 0x4629 @0x21
0x4608…4631 at0022 = ╱47╱G╱ // 0x462a @0x22
0x4608…4631 at0023 = ╱45╱E╱ // 0x462b @0x23
0x4608…4631 at0024 = ╱4d╱M╱ // 0x462c @0x24
0x4608…4631 at0025 = ╱41╱A╱ // 0x462d @0x25
0x4608…4631 at0026 = ╱46╱F╱ // 0x462e @0x26
0x4608…4631 at0027 = ╱52╱R╱ // 0x462f @0x27
0x4608…4631 at0028 = EOL // 0x4630 @0x28
0x4608…4631 }
0x4631…4649 dc37 04315 IF C0 < 0 THEN LET D0 := D0 - C0
0x4631…4649 LineComal80 {
0x4631…4649 ptr = 0xdc37 // 0x4631 @0x0
0x4631…4649 lno = 0x10db // 0x4633 @0x2
0x4631…4649 at0004 = ╱8200╱ IF ╱ // 0x4635 @0x4
0x4631…4649 at0006 = ╱43╱C╱ // 0x4637 @0x6
0x4631…4649 at0007 = ╱30╱0╱ // 0x4638 @0x7
0x4631…4649 at0008 = ╱e0╱ < ╱ // 0x4639 @0x8
0x4631…4649 at0009 = ╱30╱0╱ // 0x463a @0x9
0x4631…4649 at000a = ╱f20000╱ // 0x463b @0xa
0x4631…4649 at000d = ╱b5╱ THEN ╱ // 0x463e @0xd
0x4631…4649 at000e = ╱86╱ LET ╱ // 0x463f @0xe
0x4631…4649 at000f = ╱44╱D╱ // 0x4640 @0xf
0x4631…4649 at0010 = ╱30╱0╱ // 0x4641 @0x10
0x4631…4649 at0011 = ╱f0╱ := ╱ // 0x4642 @0x11
0x4631…4649 at0012 = ╱44╱D╱ // 0x4643 @0x12
0x4631…4649 at0013 = ╱30╱0╱ // 0x4644 @0x13
0x4631…4649 at0014 = ╱e6╱ - ╱ // 0x4645 @0x14
0x4631…4649 at0015 = ╱43╱C╱ // 0x4646 @0x15
0x4631…4649 at0016 = ╱30╱0╱ // 0x4647 @0x16
0x4631…4649 at0017 = EOL // 0x4648 @0x17
0x4631…4649 }
0x4649…4672 dc60 04320 IF T0 = 2 AND E9 >= O THEN LET D0 := D0 + BD6 - BD5 + GEMAFR
0x4649…4672 LineComal80 {
0x4649…4672 ptr = 0xdc60 // 0x4649 @0x0
0x4649…4672 lno = 0x10e0 // 0x464b @0x2
0x4649…4672 at0004 = ╱8200╱ IF ╱ // 0x464d @0x4
0x4649…4672 at0006 = ╱54╱T╱ // 0x464f @0x6
0x4649…4672 at0007 = ╱30╱0╱ // 0x4650 @0x7
0x4649…4672 at0008 = ╱df╱ = ╱ // 0x4651 @0x8
0x4649…4672 at0009 = ╱32╱2╱ // 0x4652 @0x9
0x4649…4672 at000a = ╱f20200╱ // 0x4653 @0xa
0x4649…4672 at000d = ╱d9╱ AND ╱ // 0x4656 @0xd
0x4649…4672 at000e = ╱45╱E╱ // 0x4657 @0xe
0x4649…4672 at000f = ╱39╱9╱ // 0x4658 @0xf
0x4649…4672 at0010 = ╱e3╱ >= ╱ // 0x4659 @0x10
0x4649…4672 at0011 = ╱4f╱O╱ // 0x465a @0x11
0x4649…4672 at0012 = ╱b5╱ THEN ╱ // 0x465b @0x12
0x4649…4672 at0013 = ╱86╱ LET ╱ // 0x465c @0x13
0x4649…4672 at0014 = ╱44╱D╱ // 0x465d @0x14
0x4649…4672 at0015 = ╱30╱0╱ // 0x465e @0x15
0x4649…4672 at0016 = ╱f0╱ := ╱ // 0x465f @0x16
0x4649…4672 at0017 = ╱44╱D╱ // 0x4660 @0x17
0x4649…4672 at0018 = ╱30╱0╱ // 0x4661 @0x18
0x4649…4672 at0019 = ╱e5╱ + ╱ // 0x4662 @0x19
0x4649…4672 at001a = ╱42╱B╱ // 0x4663 @0x1a
0x4649…4672 at001b = ╱44╱D╱ // 0x4664 @0x1b
0x4649…4672 at001c = ╱36╱6╱ // 0x4665 @0x1c
0x4649…4672 at001d = ╱e6╱ - ╱ // 0x4666 @0x1d
0x4649…4672 at001e = ╱42╱B╱ // 0x4667 @0x1e
0x4649…4672 at001f = ╱44╱D╱ // 0x4668 @0x1f
0x4649…4672 at0020 = ╱35╱5╱ // 0x4669 @0x20
0x4649…4672 at0021 = ╱e5╱ + ╱ // 0x466a @0x21
0x4649…4672 at0022 = ╱47╱G╱ // 0x466b @0x22
0x4649…4672 at0023 = ╱45╱E╱ // 0x466c @0x23
0x4649…4672 at0024 = ╱4d╱M╱ // 0x466d @0x24
0x4649…4672 at0025 = ╱41╱A╱ // 0x466e @0x25
0x4649…4672 at0026 = ╱46╱F╱ // 0x466f @0x26
0x4649…4672 at0027 = ╱52╱R╱ // 0x4670 @0x27
0x4649…4672 at0028 = EOL // 0x4671 @0x28
0x4649…4672 }
0x4672…468a dc78 04325 IF C9 < 0 THEN LET D0 := D0 - C9
0x4672…468a LineComal80 {
0x4672…468a ptr = 0xdc78 // 0x4672 @0x0
0x4672…468a lno = 0x10e5 // 0x4674 @0x2
0x4672…468a at0004 = ╱8200╱ IF ╱ // 0x4676 @0x4
0x4672…468a at0006 = ╱43╱C╱ // 0x4678 @0x6
0x4672…468a at0007 = ╱39╱9╱ // 0x4679 @0x7
0x4672…468a at0008 = ╱e0╱ < ╱ // 0x467a @0x8
0x4672…468a at0009 = ╱30╱0╱ // 0x467b @0x9
0x4672…468a at000a = ╱f20000╱ // 0x467c @0xa
0x4672…468a at000d = ╱b5╱ THEN ╱ // 0x467f @0xd
0x4672…468a at000e = ╱86╱ LET ╱ // 0x4680 @0xe
0x4672…468a at000f = ╱44╱D╱ // 0x4681 @0xf
0x4672…468a at0010 = ╱30╱0╱ // 0x4682 @0x10
0x4672…468a at0011 = ╱f0╱ := ╱ // 0x4683 @0x11
0x4672…468a at0012 = ╱44╱D╱ // 0x4684 @0x12
0x4672…468a at0013 = ╱30╱0╱ // 0x4685 @0x13
0x4672…468a at0014 = ╱e6╱ - ╱ // 0x4686 @0x14
0x4672…468a at0015 = ╱43╱C╱ // 0x4687 @0x15
0x4672…468a at0016 = ╱39╱9╱ // 0x4688 @0x16
0x4672…468a at0017 = EOL // 0x4689 @0x17
0x4672…468a }
0x468a…4698 dc86 04330 LET D0 := D0 + E7
0x468a…4698 LineComal80 {
0x468a…4698 ptr = 0xdc86 // 0x468a @0x0
0x468a…4698 lno = 0x10ea // 0x468c @0x2
0x468a…4698 at0004 = ╱86╱ LET ╱ // 0x468e @0x4
0x468a…4698 at0005 = ╱44╱D╱ // 0x468f @0x5
0x468a…4698 at0006 = ╱30╱0╱ // 0x4690 @0x6
0x468a…4698 at0007 = ╱f0╱ := ╱ // 0x4691 @0x7
0x468a…4698 at0008 = ╱44╱D╱ // 0x4692 @0x8
0x468a…4698 at0009 = ╱30╱0╱ // 0x4693 @0x9
0x468a…4698 at000a = ╱e5╱ + ╱ // 0x4694 @0xa
0x468a…4698 at000b = ╱45╱E╱ // 0x4695 @0xb
0x468a…4698 at000c = ╱37╱7╱ // 0x4696 @0xc
0x468a…4698 at000d = EOL // 0x4697 @0xd
0x468a…4698 }
0x4698…46ae dc9c 04335 IF D0 =< D8 * 78 / W THEN EXIT
0x4698…46ae LineComal80 {
0x4698…46ae ptr = 0xdc9c // 0x4698 @0x0
0x4698…46ae lno = 0x10ef // 0x469a @0x2
0x4698…46ae at0004 = ╱8200╱ IF ╱ // 0x469c @0x4
0x4698…46ae at0006 = ╱44╱D╱ // 0x469e @0x6
0x4698…46ae at0007 = ╱30╱0╱ // 0x469f @0x7
0x4698…46ae at0008 = ╱e2╱ =< ╱ // 0x46a0 @0x8
0x4698…46ae at0009 = ╱44╱D╱ // 0x46a1 @0x9
0x4698…46ae at000a = ╱38╱8╱ // 0x46a2 @0xa
0x4698…46ae at000b = ╱e7╱ * ╱ // 0x46a3 @0xb
0x4698…46ae at000c = ╱37╱7╱ // 0x46a4 @0xc
0x4698…46ae at000d = ╱38╱8╱ // 0x46a5 @0xd
0x4698…46ae at000e = ╱f24e00╱ // 0x46a6 @0xe
0x4698…46ae at0011 = ╱e8╱ / ╱ // 0x46a9 @0x11
0x4698…46ae at0012 = ╱57╱W╱ // 0x46aa @0x12
0x4698…46ae at0013 = ╱b5╱ THEN ╱ // 0x46ab @0x13
0x4698…46ae at0014 = ╱99╱ EXIT ╱ // 0x46ac @0x14
0x4698…46ae at0015 = EOL // 0x46ad @0x15
0x4698…46ae }
0x46ae…46c6 dcb4 04340 LET E5 := D0 - ( D8 * 78 / W )
0x46ae…46c6 LineComal80 {
0x46ae…46c6 ptr = 0xdcb4 // 0x46ae @0x0
0x46ae…46c6 lno = 0x10f4 // 0x46b0 @0x2
0x46ae…46c6 at0004 = ╱86╱ LET ╱ // 0x46b2 @0x4
0x46ae…46c6 at0005 = ╱45╱E╱ // 0x46b3 @0x5
0x46ae…46c6 at0006 = ╱35╱5╱ // 0x46b4 @0x6
0x46ae…46c6 at0007 = ╱f0╱ := ╱ // 0x46b5 @0x7
0x46ae…46c6 at0008 = ╱44╱D╱ // 0x46b6 @0x8
0x46ae…46c6 at0009 = ╱30╱0╱ // 0x46b7 @0x9
0x46ae…46c6 at000a = ╱e6╱ - ╱ // 0x46b8 @0xa
0x46ae…46c6 at000b = ╱ed╱ ( ╱ // 0x46b9 @0xb
0x46ae…46c6 at000c = ╱44╱D╱ // 0x46ba @0xc
0x46ae…46c6 at000d = ╱38╱8╱ // 0x46bb @0xd
0x46ae…46c6 at000e = ╱e7╱ * ╱ // 0x46bc @0xe
0x46ae…46c6 at000f = ╱37╱7╱ // 0x46bd @0xf
0x46ae…46c6 at0010 = ╱38╱8╱ // 0x46be @0x10
0x46ae…46c6 at0011 = ╱f24e00╱ // 0x46bf @0x11
0x46ae…46c6 at0014 = ╱e8╱ / ╱ // 0x46c2 @0x14
0x46ae…46c6 at0015 = ╱57╱W╱ // 0x46c3 @0x15
0x46ae…46c6 at0016 = ╱ee╱ ) ╱ // 0x46c4 @0x16
0x46ae…46c6 at0017 = EOL // 0x46c5 @0x17
0x46ae…46c6 }
0x46c6…46db dcc9 04345 IF 5 =< E7 * 60 / W THEN
0x46c6…46db LineComal80 {
0x46c6…46db ptr = 0xdcc9 // 0x46c6 @0x0
0x46c6…46db lno = 0x10f9 // 0x46c8 @0x2
0x46c6…46db at0004 = ╱9b0045╱ IF ╱ // 0x46ca @0x4
0x46c6…46db at0007 = ╱35╱5╱ // 0x46cd @0x7
0x46c6…46db at0008 = ╱e2╱ =< ╱ // 0x46ce @0x8
0x46c6…46db at0009 = ╱45╱E╱ // 0x46cf @0x9
0x46c6…46db at000a = ╱37╱7╱ // 0x46d0 @0xa
0x46c6…46db at000b = ╱e7╱ * ╱ // 0x46d1 @0xb
0x46c6…46db at000c = ╱36╱6╱ // 0x46d2 @0xc
0x46c6…46db at000d = ╱30╱0╱ // 0x46d3 @0xd
0x46c6…46db at000e = ╱f23c00╱ // 0x46d4 @0xe
0x46c6…46db at0011 = ╱e8╱ / ╱ // 0x46d7 @0x11
0x46c6…46db at0012 = ╱57╱W╱ // 0x46d8 @0x12
0x46c6…46db at0013 = ╱b5╱ THEN ╱ // 0x46d9 @0x13
0x46c6…46db at0014 = EOL // 0x46da @0x14
0x46c6…46db }
0x46db…4702 dcf0 04350 LET B9 := B9 - ( E5 / B6 * B7 ) ; E6 := E6 - ( E5 / B6 * B8 )
0x46db…4702 LineComal80 {
0x46db…4702 ptr = 0xdcf0 // 0x46db @0x0
0x46db…4702 lno = 0x10fe // 0x46dd @0x2
0x46db…4702 at0004 = ╱86╱ LET ╱ // 0x46df @0x4
0x46db…4702 at0005 = ╱42╱B╱ // 0x46e0 @0x5
0x46db…4702 at0006 = ╱39╱9╱ // 0x46e1 @0x6
0x46db…4702 at0007 = ╱f0╱ := ╱ // 0x46e2 @0x7
0x46db…4702 at0008 = ╱42╱B╱ // 0x46e3 @0x8
0x46db…4702 at0009 = ╱39╱9╱ // 0x46e4 @0x9
0x46db…4702 at000a = ╱e6╱ - ╱ // 0x46e5 @0xa
0x46db…4702 at000b = ╱ed╱ ( ╱ // 0x46e6 @0xb
0x46db…4702 at000c = ╱45╱E╱ // 0x46e7 @0xc
0x46db…4702 at000d = ╱35╱5╱ // 0x46e8 @0xd
0x46db…4702 at000e = ╱e8╱ / ╱ // 0x46e9 @0xe
0x46db…4702 at000f = ╱42╱B╱ // 0x46ea @0xf
0x46db…4702 at0010 = ╱36╱6╱ // 0x46eb @0x10
0x46db…4702 at0011 = ╱e7╱ * ╱ // 0x46ec @0x11
0x46db…4702 at0012 = ╱42╱B╱ // 0x46ed @0x12
0x46db…4702 at0013 = ╱37╱7╱ // 0x46ee @0x13
0x46db…4702 at0014 = ╱ee╱ ) ╱ // 0x46ef @0x14
0x46db…4702 at0015 = ╱ea╱ ; ╱ // 0x46f0 @0x15
0x46db…4702 at0016 = ╱45╱E╱ // 0x46f1 @0x16
0x46db…4702 at0017 = ╱36╱6╱ // 0x46f2 @0x17
0x46db…4702 at0018 = ╱f0╱ := ╱ // 0x46f3 @0x18
0x46db…4702 at0019 = ╱45╱E╱ // 0x46f4 @0x19
0x46db…4702 at001a = ╱36╱6╱ // 0x46f5 @0x1a
0x46db…4702 at001b = ╱e6╱ - ╱ // 0x46f6 @0x1b
0x46db…4702 at001c = ╱ed╱ ( ╱ // 0x46f7 @0x1c
0x46db…4702 at001d = ╱45╱E╱ // 0x46f8 @0x1d
0x46db…4702 at001e = ╱35╱5╱ // 0x46f9 @0x1e
0x46db…4702 at001f = ╱e8╱ / ╱ // 0x46fa @0x1f
0x46db…4702 at0020 = ╱42╱B╱ // 0x46fb @0x20
0x46db…4702 at0021 = ╱36╱6╱ // 0x46fc @0x21
0x46db…4702 at0022 = ╱e7╱ * ╱ // 0x46fd @0x22
0x46db…4702 at0023 = ╱42╱B╱ // 0x46fe @0x23
0x46db…4702 at0024 = ╱38╱8╱ // 0x46ff @0x24
0x46db…4702 at0025 = ╱ee╱ ) ╱ // 0x4700 @0x25
0x46db…4702 at0026 = EOL // 0x4701 @0x26
0x46db…4702 }
0x4702…4709 dcf7 04355 ELSE
0x4702…4709 LineComal80 {
0x4702…4709 ptr = 0xdcf7 // 0x4702 @0x0
0x4702…4709 lno = 0x1103 // 0x4704 @0x2
0x4702…4709 at0004 = ╱9a00╱ ELSE ╱ // 0x4706 @0x4
0x4702…4709 at0006 = EOL // 0x4708 @0x6
0x4702…4709 }
0x4709…4747 dd35 04360 LET D0 := E7 * 60 / W ; E5 := E5 - D0 ; B9 := B9 - ( D0 / B6 * B7 ) ; E6 := E6 - ( D0 / B6 * B8 )
0x4709…4747 LineComal80 {
0x4709…4747 ptr = 0xdd35 // 0x4709 @0x0
0x4709…4747 lno = 0x1108 // 0x470b @0x2
0x4709…4747 at0004 = ╱86╱ LET ╱ // 0x470d @0x4
0x4709…4747 at0005 = ╱44╱D╱ // 0x470e @0x5
0x4709…4747 at0006 = ╱30╱0╱ // 0x470f @0x6
0x4709…4747 at0007 = ╱f0╱ := ╱ // 0x4710 @0x7
0x4709…4747 at0008 = ╱45╱E╱ // 0x4711 @0x8
0x4709…4747 at0009 = ╱37╱7╱ // 0x4712 @0x9
0x4709…4747 at000a = ╱e7╱ * ╱ // 0x4713 @0xa
0x4709…4747 at000b = ╱36╱6╱ // 0x4714 @0xb
0x4709…4747 at000c = ╱30╱0╱ // 0x4715 @0xc
0x4709…4747 at000d = ╱f23c00╱ // 0x4716 @0xd
0x4709…4747 at0010 = ╱e8╱ / ╱ // 0x4719 @0x10
0x4709…4747 at0011 = ╱57╱W╱ // 0x471a @0x11
0x4709…4747 at0012 = ╱ea╱ ; ╱ // 0x471b @0x12
0x4709…4747 at0013 = ╱45╱E╱ // 0x471c @0x13
0x4709…4747 at0014 = ╱35╱5╱ // 0x471d @0x14
0x4709…4747 at0015 = ╱f0╱ := ╱ // 0x471e @0x15
0x4709…4747 at0016 = ╱45╱E╱ // 0x471f @0x16
0x4709…4747 at0017 = ╱35╱5╱ // 0x4720 @0x17
0x4709…4747 at0018 = ╱e6╱ - ╱ // 0x4721 @0x18
0x4709…4747 at0019 = ╱44╱D╱ // 0x4722 @0x19
0x4709…4747 at001a = ╱30╱0╱ // 0x4723 @0x1a
0x4709…4747 at001b = ╱ea╱ ; ╱ // 0x4724 @0x1b
0x4709…4747 at001c = ╱42╱B╱ // 0x4725 @0x1c
0x4709…4747 at001d = ╱39╱9╱ // 0x4726 @0x1d
0x4709…4747 at001e = ╱f0╱ := ╱ // 0x4727 @0x1e
0x4709…4747 at001f = ╱42╱B╱ // 0x4728 @0x1f
0x4709…4747 at0020 = ╱39╱9╱ // 0x4729 @0x20
0x4709…4747 at0021 = ╱e6╱ - ╱ // 0x472a @0x21
0x4709…4747 at0022 = ╱ed╱ ( ╱ // 0x472b @0x22
0x4709…4747 at0023 = ╱44╱D╱ // 0x472c @0x23
0x4709…4747 at0024 = ╱30╱0╱ // 0x472d @0x24
0x4709…4747 at0025 = ╱e8╱ / ╱ // 0x472e @0x25
0x4709…4747 at0026 = ╱42╱B╱ // 0x472f @0x26
0x4709…4747 at0027 = ╱36╱6╱ // 0x4730 @0x27
0x4709…4747 at0028 = ╱e7╱ * ╱ // 0x4731 @0x28
0x4709…4747 at0029 = ╱42╱B╱ // 0x4732 @0x29
0x4709…4747 at002a = ╱37╱7╱ // 0x4733 @0x2a
0x4709…4747 at002b = ╱ee╱ ) ╱ // 0x4734 @0x2b
0x4709…4747 at002c = ╱ea╱ ; ╱ // 0x4735 @0x2c
0x4709…4747 at002d = ╱45╱E╱ // 0x4736 @0x2d
0x4709…4747 at002e = ╱36╱6╱ // 0x4737 @0x2e
0x4709…4747 at002f = ╱f0╱ := ╱ // 0x4738 @0x2f
0x4709…4747 at0030 = ╱45╱E╱ // 0x4739 @0x30
0x4709…4747 at0031 = ╱36╱6╱ // 0x473a @0x31
0x4709…4747 at0032 = ╱e6╱ - ╱ // 0x473b @0x32
0x4709…4747 at0033 = ╱ed╱ ( ╱ // 0x473c @0x33
0x4709…4747 at0034 = ╱44╱D╱ // 0x473d @0x34
0x4709…4747 at0035 = ╱30╱0╱ // 0x473e @0x35
0x4709…4747 at0036 = ╱e8╱ / ╱ // 0x473f @0x36
0x4709…4747 at0037 = ╱42╱B╱ // 0x4740 @0x37
0x4709…4747 at0038 = ╱36╱6╱ // 0x4741 @0x38
0x4709…4747 at0039 = ╱e7╱ * ╱ // 0x4742 @0x39
0x4709…4747 at003a = ╱42╱B╱ // 0x4743 @0x3a
0x4709…4747 at003b = ╱38╱8╱ // 0x4744 @0x3b
0x4709…4747 at003c = ╱ee╱ ) ╱ // 0x4745 @0x3c
0x4709…4747 at003d = EOL // 0x4746 @0x3d
0x4709…4747 }
0x4747…4753 dd41 04365 EXEC REGN10
0x4747…4753 LineComal80 {
0x4747…4753 ptr = 0xdd41 // 0x4747 @0x0
0x4747…4753 lno = 0x110d // 0x4749 @0x2
0x4747…4753 at0004 = ╱9d╱ EXEC ╱ // 0x474b @0x4
0x4747…4753 at0005 = ╱52╱R╱ // 0x474c @0x5
0x4747…4753 at0006 = ╱45╱E╱ // 0x474d @0x6
0x4747…4753 at0007 = ╱47╱G╱ // 0x474e @0x7
0x4747…4753 at0008 = ╱4e╱N╱ // 0x474f @0x8
0x4747…4753 at0009 = ╱31╱1╱ // 0x4750 @0x9
0x4747…4753 at000a = ╱30╱0╱ // 0x4751 @0xa
0x4747…4753 at000b = EOL // 0x4752 @0xb
0x4747…4753 }
0x4753…4769 dd57 04370 LET D1 := D1 - ( E5 / B6 * B7 )
0x4753…4769 LineComal80 {
0x4753…4769 ptr = 0xdd57 // 0x4753 @0x0
0x4753…4769 lno = 0x1112 // 0x4755 @0x2
0x4753…4769 at0004 = ╱86╱ LET ╱ // 0x4757 @0x4
0x4753…4769 at0005 = ╱44╱D╱ // 0x4758 @0x5
0x4753…4769 at0006 = ╱31╱1╱ // 0x4759 @0x6
0x4753…4769 at0007 = ╱f0╱ := ╱ // 0x475a @0x7
0x4753…4769 at0008 = ╱44╱D╱ // 0x475b @0x8
0x4753…4769 at0009 = ╱31╱1╱ // 0x475c @0x9
0x4753…4769 at000a = ╱e6╱ - ╱ // 0x475d @0xa
0x4753…4769 at000b = ╱ed╱ ( ╱ // 0x475e @0xb
0x4753…4769 at000c = ╱45╱E╱ // 0x475f @0xc
0x4753…4769 at000d = ╱35╱5╱ // 0x4760 @0xd
0x4753…4769 at000e = ╱e8╱ / ╱ // 0x4761 @0xe
0x4753…4769 at000f = ╱42╱B╱ // 0x4762 @0xf
0x4753…4769 at0010 = ╱36╱6╱ // 0x4763 @0x10
0x4753…4769 at0011 = ╱e7╱ * ╱ // 0x4764 @0x11
0x4753…4769 at0012 = ╱42╱B╱ // 0x4765 @0x12
0x4753…4769 at0013 = ╱37╱7╱ // 0x4766 @0x13
0x4753…4769 at0014 = ╱ee╱ ) ╱ // 0x4767 @0x14
0x4753…4769 at0015 = EOL // 0x4768 @0x15
0x4753…4769 }
0x4769…4775 dd63 04375 EXEC REGN38
0x4769…4775 LineComal80 {
0x4769…4775 ptr = 0xdd63 // 0x4769 @0x0
0x4769…4775 lno = 0x1117 // 0x476b @0x2
0x4769…4775 at0004 = ╱9d╱ EXEC ╱ // 0x476d @0x4
0x4769…4775 at0005 = ╱52╱R╱ // 0x476e @0x5
0x4769…4775 at0006 = ╱45╱E╱ // 0x476f @0x6
0x4769…4775 at0007 = ╱47╱G╱ // 0x4770 @0x7
0x4769…4775 at0008 = ╱4e╱N╱ // 0x4771 @0x8
0x4769…4775 at0009 = ╱33╱3╱ // 0x4772 @0x9
0x4769…4775 at000a = ╱38╱8╱ // 0x4773 @0xa
0x4769…4775 at000b = EOL // 0x4774 @0xb
0x4769…4775 }
0x4775…4780 dd6e 04380 LET D7 := D6
0x4775…4780 LineComal80 {
0x4775…4780 ptr = 0xdd6e // 0x4775 @0x0
0x4775…4780 lno = 0x111c // 0x4777 @0x2
0x4775…4780 at0004 = ╱86╱ LET ╱ // 0x4779 @0x4
0x4775…4780 at0005 = ╱44╱D╱ // 0x477a @0x5
0x4775…4780 at0006 = ╱37╱7╱ // 0x477b @0x6
0x4775…4780 at0007 = ╱f0╱ := ╱ // 0x477c @0x7
0x4775…4780 at0008 = ╱44╱D╱ // 0x477d @0x8
0x4775…4780 at0009 = ╱36╱6╱ // 0x477e @0x9
0x4775…4780 at000a = EOL // 0x477f @0xa
0x4775…4780 }
0x4780…478c dd7a 04385 EXEC REGN20
0x4780…478c LineComal80 {
0x4780…478c ptr = 0xdd7a // 0x4780 @0x0
0x4780…478c lno = 0x1121 // 0x4782 @0x2
0x4780…478c at0004 = ╱9d╱ EXEC ╱ // 0x4784 @0x4
0x4780…478c at0005 = ╱52╱R╱ // 0x4785 @0x5
0x4780…478c at0006 = ╱45╱E╱ // 0x4786 @0x6
0x4780…478c at0007 = ╱47╱G╱ // 0x4787 @0x7
0x4780…478c at0008 = ╱4e╱N╱ // 0x4788 @0x8
0x4780…478c at0009 = ╱32╱2╱ // 0x4789 @0x9
0x4780…478c at000a = ╱30╱0╱ // 0x478a @0xa
0x4780…478c at000b = EOL // 0x478b @0xb
0x4780…478c }
0x478c…4798 dd86 04390 EXEC REGN22
0x478c…4798 LineComal80 {
0x478c…4798 ptr = 0xdd86 // 0x478c @0x0
0x478c…4798 lno = 0x1126 // 0x478e @0x2
0x478c…4798 at0004 = ╱9d╱ EXEC ╱ // 0x4790 @0x4
0x478c…4798 at0005 = ╱52╱R╱ // 0x4791 @0x5
0x478c…4798 at0006 = ╱45╱E╱ // 0x4792 @0x6
0x478c…4798 at0007 = ╱47╱G╱ // 0x4793 @0x7
0x478c…4798 at0008 = ╱4e╱N╱ // 0x4794 @0x8
0x478c…4798 at0009 = ╱32╱2╱ // 0x4795 @0x9
0x478c…4798 at000a = ╱32╱2╱ // 0x4796 @0xa
0x478c…4798 at000b = EOL // 0x4797 @0xb
0x478c…4798 }
0x4798…47ae dd9c 04395 LET D1 := D1 - ( E5 / B6 * B8 )
0x4798…47ae LineComal80 {
0x4798…47ae ptr = 0xdd9c // 0x4798 @0x0
0x4798…47ae lno = 0x112b // 0x479a @0x2
0x4798…47ae at0004 = ╱86╱ LET ╱ // 0x479c @0x4
0x4798…47ae at0005 = ╱44╱D╱ // 0x479d @0x5
0x4798…47ae at0006 = ╱31╱1╱ // 0x479e @0x6
0x4798…47ae at0007 = ╱f0╱ := ╱ // 0x479f @0x7
0x4798…47ae at0008 = ╱44╱D╱ // 0x47a0 @0x8
0x4798…47ae at0009 = ╱31╱1╱ // 0x47a1 @0x9
0x4798…47ae at000a = ╱e6╱ - ╱ // 0x47a2 @0xa
0x4798…47ae at000b = ╱ed╱ ( ╱ // 0x47a3 @0xb
0x4798…47ae at000c = ╱45╱E╱ // 0x47a4 @0xc
0x4798…47ae at000d = ╱35╱5╱ // 0x47a5 @0xd
0x4798…47ae at000e = ╱e8╱ / ╱ // 0x47a6 @0xe
0x4798…47ae at000f = ╱42╱B╱ // 0x47a7 @0xf
0x4798…47ae at0010 = ╱36╱6╱ // 0x47a8 @0x10
0x4798…47ae at0011 = ╱e7╱ * ╱ // 0x47a9 @0x11
0x4798…47ae at0012 = ╱42╱B╱ // 0x47aa @0x12
0x4798…47ae at0013 = ╱38╱8╱ // 0x47ab @0x13
0x4798…47ae at0014 = ╱ee╱ ) ╱ // 0x47ac @0x14
0x4798…47ae at0015 = EOL // 0x47ad @0x15
0x4798…47ae }
0x47ae…47ba dda8 04400 EXEC REGN38
0x47ae…47ba LineComal80 {
0x47ae…47ba ptr = 0xdda8 // 0x47ae @0x0
0x47ae…47ba lno = 0x1130 // 0x47b0 @0x2
0x47ae…47ba at0004 = ╱9d╱ EXEC ╱ // 0x47b2 @0x4
0x47ae…47ba at0005 = ╱52╱R╱ // 0x47b3 @0x5
0x47ae…47ba at0006 = ╱45╱E╱ // 0x47b4 @0x6
0x47ae…47ba at0007 = ╱47╱G╱ // 0x47b5 @0x7
0x47ae…47ba at0008 = ╱4e╱N╱ // 0x47b6 @0x8
0x47ae…47ba at0009 = ╱33╱3╱ // 0x47b7 @0x9
0x47ae…47ba at000a = ╱38╱8╱ // 0x47b8 @0xa
0x47ae…47ba at000b = EOL // 0x47b9 @0xb
0x47ae…47ba }
0x47ba…47c5 ddb3 04405 LET D9 := D6
0x47ba…47c5 LineComal80 {
0x47ba…47c5 ptr = 0xddb3 // 0x47ba @0x0
0x47ba…47c5 lno = 0x1135 // 0x47bc @0x2
0x47ba…47c5 at0004 = ╱86╱ LET ╱ // 0x47be @0x4
0x47ba…47c5 at0005 = ╱44╱D╱ // 0x47bf @0x5
0x47ba…47c5 at0006 = ╱39╱9╱ // 0x47c0 @0x6
0x47ba…47c5 at0007 = ╱f0╱ := ╱ // 0x47c1 @0x7
0x47ba…47c5 at0008 = ╱44╱D╱ // 0x47c2 @0x8
0x47ba…47c5 at0009 = ╱36╱6╱ // 0x47c3 @0x9
0x47ba…47c5 at000a = EOL // 0x47c4 @0xa
0x47ba…47c5 }
0x47c5…47d1 ddbf 04410 EXEC REGN21
0x47c5…47d1 LineComal80 {
0x47c5…47d1 ptr = 0xddbf // 0x47c5 @0x0
0x47c5…47d1 lno = 0x113a // 0x47c7 @0x2
0x47c5…47d1 at0004 = ╱9d╱ EXEC ╱ // 0x47c9 @0x4
0x47c5…47d1 at0005 = ╱52╱R╱ // 0x47ca @0x5
0x47c5…47d1 at0006 = ╱45╱E╱ // 0x47cb @0x6
0x47c5…47d1 at0007 = ╱47╱G╱ // 0x47cc @0x7
0x47c5…47d1 at0008 = ╱4e╱N╱ // 0x47cd @0x8
0x47c5…47d1 at0009 = ╱32╱2╱ // 0x47ce @0x9
0x47c5…47d1 at000a = ╱31╱1╱ // 0x47cf @0xa
0x47c5…47d1 at000b = EOL // 0x47d0 @0xb
0x47c5…47d1 }
0x47d1…47dc ddca 04415 EXEC REGN7
0x47d1…47dc LineComal80 {
0x47d1…47dc ptr = 0xddca // 0x47d1 @0x0
0x47d1…47dc lno = 0x113f // 0x47d3 @0x2
0x47d1…47dc at0004 = ╱9d╱ EXEC ╱ // 0x47d5 @0x4
0x47d1…47dc at0005 = ╱52╱R╱ // 0x47d6 @0x5
0x47d1…47dc at0006 = ╱45╱E╱ // 0x47d7 @0x6
0x47d1…47dc at0007 = ╱47╱G╱ // 0x47d8 @0x7
0x47d1…47dc at0008 = ╱4e╱N╱ // 0x47d9 @0x8
0x47d1…47dc at0009 = ╱37╱7╱ // 0x47da @0x9
0x47d1…47dc at000a = EOL // 0x47db @0xa
0x47d1…47dc }
0x47dc…47e2 ddd0 04420 ENDIF
0x47dc…47e2 LineComal80 {
0x47dc…47e2 ptr = 0xddd0 // 0x47dc @0x0
0x47dc…47e2 lno = 0x1144 // 0x47de @0x2
0x47dc…47e2 at0004 = ╱9c╱ ENDIF ╱ // 0x47e0 @0x4
0x47dc…47e2 at0005 = EOL // 0x47e1 @0x5
0x47dc…47e2 }
0x47e2…47ed dddb 04425 ENDPROC REGN9
0x47e2…47ed LineComal80 {
0x47e2…47ed ptr = 0xdddb // 0x47e2 @0x0
0x47e2…47ed lno = 0x1149 // 0x47e4 @0x2
0x47e2…47ed at0004 = ╱9f╱ ENDPROC ╱ // 0x47e6 @0x4
0x47e2…47ed at0005 = ╱52╱R╱ // 0x47e7 @0x5
0x47e2…47ed at0006 = ╱45╱E╱ // 0x47e8 @0x6
0x47e2…47ed at0007 = ╱47╱G╱ // 0x47e9 @0x7
0x47e2…47ed at0008 = ╱4e╱N╱ // 0x47ea @0x8
0x47e2…47ed at0009 = ╱39╱9╱ // 0x47eb @0x9
0x47e2…47ed at000a = EOL // 0x47ec @0xa
0x47e2…47ed }
0x47ed…47f8 dde6 04430 PROC SKAT
0x47ed…47f8 LineComal80 {
0x47ed…47f8 ptr = 0xdde6 // 0x47ed @0x0
0x47ed…47f8 lno = 0x114e // 0x47ef @0x2
0x47ed…47f8 at0004 = ╱9e00╱ PROC ╱ // 0x47f1 @0x4
0x47ed…47f8 at0006 = ╱53╱S╱ // 0x47f3 @0x6
0x47ed…47f8 at0007 = ╱4b╱K╱ // 0x47f4 @0x7
0x47ed…47f8 at0008 = ╱41╱A╱ // 0x47f5 @0x8
0x47ed…47f8 at0009 = ╱54╱T╱ // 0x47f6 @0x9
0x47ed…47f8 at000a = EOL // 0x47f7 @0xa
0x47ed…47f8 }
0x47f8…4814 de02 04435 LET QT $ := "SKATTEBEREGNING:"
0x47f8…4814 LineComal80 {
0x47f8…4814 ptr = 0xde02 // 0x47f8 @0x0
0x47f8…4814 lno = 0x1153 // 0x47fa @0x2
0x47f8…4814 at0004 = ╱86╱ LET ╱ // 0x47fc @0x4
0x47f8…4814 at0005 = ╱51╱Q╱ // 0x47fd @0x5
0x47f8…4814 at0006 = ╱54╱T╱ // 0x47fe @0x6
0x47f8…4814 at0007 = ╱ef╱ $ ╱ // 0x47ff @0x7
0x47f8…4814 at0008 = ╱f0╱ := ╱ // 0x4800 @0x8
0x47f8…4814 at0009 = ╱22╱"╱ // 0x4801 @0x9
0x47f8…4814 at000a = ╱53╱S╱ // 0x4802 @0xa
0x47f8…4814 at000b = ╱4b╱K╱ // 0x4803 @0xb
0x47f8…4814 at000c = ╱41╱A╱ // 0x4804 @0xc
0x47f8…4814 at000d = ╱54╱T╱ // 0x4805 @0xd
0x47f8…4814 at000e = ╱54╱T╱ // 0x4806 @0xe
0x47f8…4814 at000f = ╱45╱E╱ // 0x4807 @0xf
0x47f8…4814 at0010 = ╱42╱B╱ // 0x4808 @0x10
0x47f8…4814 at0011 = ╱45╱E╱ // 0x4809 @0x11
0x47f8…4814 at0012 = ╱52╱R╱ // 0x480a @0x12
0x47f8…4814 at0013 = ╱45╱E╱ // 0x480b @0x13
0x47f8…4814 at0014 = ╱47╱G╱ // 0x480c @0x14
0x47f8…4814 at0015 = ╱4e╱N╱ // 0x480d @0x15
0x47f8…4814 at0016 = ╱49╱I╱ // 0x480e @0x16
0x47f8…4814 at0017 = ╱4e╱N╱ // 0x480f @0x17
0x47f8…4814 at0018 = ╱47╱G╱ // 0x4810 @0x18
0x47f8…4814 at0019 = ╱3a╱:╱ // 0x4811 @0x19
0x47f8…4814 at001a = ╱22╱"╱ // 0x4812 @0x1a
0x47f8…4814 at001b = EOL // 0x4813 @0x1b
0x47f8…4814 }
0x4814…4821 de0f 04440 EXEC LSKRIV3
0x4814…4821 LineComal80 {
0x4814…4821 ptr = 0xde0f // 0x4814 @0x0
0x4814…4821 lno = 0x1158 // 0x4816 @0x2
0x4814…4821 at0004 = ╱9d╱ EXEC ╱ // 0x4818 @0x4
0x4814…4821 at0005 = ╱4c╱L╱ // 0x4819 @0x5
0x4814…4821 at0006 = ╱53╱S╱ // 0x481a @0x6
0x4814…4821 at0007 = ╱4b╱K╱ // 0x481b @0x7
0x4814…4821 at0008 = ╱52╱R╱ // 0x481c @0x8
0x4814…4821 at0009 = ╱49╱I╱ // 0x481d @0x9
0x4814…4821 at000a = ╱56╱V╱ // 0x481e @0xa
0x4814…4821 at000b = ╱33╱3╱ // 0x481f @0xb
0x4814…4821 at000c = EOL // 0x4820 @0xc
0x4814…4821 }
0x4821…4827 de15 04445 PRINT
0x4821…4827 LineComal80 {
0x4821…4827 ptr = 0xde15 // 0x4821 @0x0
0x4821…4827 lno = 0x115d // 0x4823 @0x2
0x4821…4827 at0004 = ╱92╱ PRINT ╱ // 0x4825 @0x4
0x4821…4827 at0005 = EOL // 0x4826 @0x5
0x4821…4827 }
0x4827…4854 de42 04450 LET QT $ := "STATSSKAT…" + PIL $ ( 1 : 24 ) ; QB := D1
0x4827…4854 LineComal80 {
0x4827…4854 ptr = 0xde42 // 0x4827 @0x0
0x4827…4854 lno = 0x1162 // 0x4829 @0x2
0x4827…4854 at0004 = ╱86╱ LET ╱ // 0x482b @0x4
0x4827…4854 at0005 = ╱51╱Q╱ // 0x482c @0x5
0x4827…4854 at0006 = ╱54╱T╱ // 0x482d @0x6
0x4827…4854 at0007 = ╱ef╱ $ ╱ // 0x482e @0x7
0x4827…4854 at0008 = ╱f0╱ := ╱ // 0x482f @0x8
0x4827…4854 at0009 = ╱22╱"╱ // 0x4830 @0x9
0x4827…4854 at000a = ╱53╱S╱ // 0x4831 @0xa
0x4827…4854 at000b = ╱54╱T╱ // 0x4832 @0xb
0x4827…4854 at000c = ╱41╱A╱ // 0x4833 @0xc
0x4827…4854 at000d = ╱54╱T╱ // 0x4834 @0xd
0x4827…4854 at000e = ╱53╱S╱ // 0x4835 @0xe
0x4827…4854 at000f = ╱53╱S╱ // 0x4836 @0xf
0x4827…4854 at0010 = ╱4b╱K╱ // 0x4837 @0x10
0x4827…4854 at0011 = ╱41╱A╱ // 0x4838 @0x11
0x4827…4854 at0012 = ╱54╱T╱ // 0x4839 @0x12
0x4827…4854 at0013 = ╱20╱…╱ // 0x483a @0x13
0x4827…4854 at0014 = ╱22╱"╱ // 0x483b @0x14
0x4827…4854 at0015 = ╱eb╱ + ╱ // 0x483c @0x15
0x4827…4854 at0016 = ╱50╱P╱ // 0x483d @0x16
0x4827…4854 at0017 = ╱49╱I╱ // 0x483e @0x17
0x4827…4854 at0018 = ╱4c╱L╱ // 0x483f @0x18
0x4827…4854 at0019 = ╱ef╱ $ ╱ // 0x4840 @0x19
0x4827…4854 at001a = ╱ed╱ ( ╱ // 0x4841 @0x1a
0x4827…4854 at001b = ╱31╱1╱ // 0x4842 @0x1b
0x4827…4854 at001c = ╱f20100╱ // 0x4843 @0x1c
0x4827…4854 at001f = ╱f1╱ : ╱ // 0x4846 @0x1f
0x4827…4854 at0020 = ╱32╱2╱ // 0x4847 @0x20
0x4827…4854 at0021 = ╱34╱4╱ // 0x4848 @0x21
0x4827…4854 at0022 = ╱f21800╱ // 0x4849 @0x22
0x4827…4854 at0025 = ╱ee╱ ) ╱ // 0x484c @0x25
0x4827…4854 at0026 = ╱ea╱ ; ╱ // 0x484d @0x26
0x4827…4854 at0027 = ╱51╱Q╱ // 0x484e @0x27
0x4827…4854 at0028 = ╱42╱B╱ // 0x484f @0x28
0x4827…4854 at0029 = ╱f0╱ := ╱ // 0x4850 @0x29
0x4827…4854 at002a = ╱44╱D╱ // 0x4851 @0x2a
0x4827…4854 at002b = ╱31╱1╱ // 0x4852 @0x2b
0x4827…4854 at002c = EOL // 0x4853 @0x2c
0x4827…4854 }
0x4854…4861 de4f 04455 EXEC LSKRIV2
0x4854…4861 LineComal80 {
0x4854…4861 ptr = 0xde4f // 0x4854 @0x0
0x4854…4861 lno = 0x1167 // 0x4856 @0x2
0x4854…4861 at0004 = ╱9d╱ EXEC ╱ // 0x4858 @0x4
0x4854…4861 at0005 = ╱4c╱L╱ // 0x4859 @0x5
0x4854…4861 at0006 = ╱53╱S╱ // 0x485a @0x6
0x4854…4861 at0007 = ╱4b╱K╱ // 0x485b @0x7
0x4854…4861 at0008 = ╱52╱R╱ // 0x485c @0x8
0x4854…4861 at0009 = ╱49╱I╱ // 0x485d @0x9
0x4854…4861 at000a = ╱56╱V╱ // 0x485e @0xa
0x4854…4861 at000b = ╱32╱2╱ // 0x485f @0xb
0x4854…4861 at000c = EOL // 0x4860 @0xc
0x4854…4861 }
0x4861…4898 de86 04460 LET QT $ := "FOLKEPENSIONSBIDRAG…" + PIL $ ( 1 : 14 ) ; QB := D2
0x4861…4898 LineComal80 {
0x4861…4898 ptr = 0xde86 // 0x4861 @0x0
0x4861…4898 lno = 0x116c // 0x4863 @0x2
0x4861…4898 at0004 = ╱86╱ LET ╱ // 0x4865 @0x4
0x4861…4898 at0005 = ╱51╱Q╱ // 0x4866 @0x5
0x4861…4898 at0006 = ╱54╱T╱ // 0x4867 @0x6
0x4861…4898 at0007 = ╱ef╱ $ ╱ // 0x4868 @0x7
0x4861…4898 at0008 = ╱f0╱ := ╱ // 0x4869 @0x8
0x4861…4898 at0009 = ╱22╱"╱ // 0x486a @0x9
0x4861…4898 at000a = ╱46╱F╱ // 0x486b @0xa
0x4861…4898 at000b = ╱4f╱O╱ // 0x486c @0xb
0x4861…4898 at000c = ╱4c╱L╱ // 0x486d @0xc
0x4861…4898 at000d = ╱4b╱K╱ // 0x486e @0xd
0x4861…4898 at000e = ╱45╱E╱ // 0x486f @0xe
0x4861…4898 at000f = ╱50╱P╱ // 0x4870 @0xf
0x4861…4898 at0010 = ╱45╱E╱ // 0x4871 @0x10
0x4861…4898 at0011 = ╱4e╱N╱ // 0x4872 @0x11
0x4861…4898 at0012 = ╱53╱S╱ // 0x4873 @0x12
0x4861…4898 at0013 = ╱49╱I╱ // 0x4874 @0x13
0x4861…4898 at0014 = ╱4f╱O╱ // 0x4875 @0x14
0x4861…4898 at0015 = ╱4e╱N╱ // 0x4876 @0x15
0x4861…4898 at0016 = ╱53╱S╱ // 0x4877 @0x16
0x4861…4898 at0017 = ╱42╱B╱ // 0x4878 @0x17
0x4861…4898 at0018 = ╱49╱I╱ // 0x4879 @0x18
0x4861…4898 at0019 = ╱44╱D╱ // 0x487a @0x19
0x4861…4898 at001a = ╱52╱R╱ // 0x487b @0x1a
0x4861…4898 at001b = ╱41╱A╱ // 0x487c @0x1b
0x4861…4898 at001c = ╱47╱G╱ // 0x487d @0x1c
0x4861…4898 at001d = ╱20╱…╱ // 0x487e @0x1d
0x4861…4898 at001e = ╱22╱"╱ // 0x487f @0x1e
0x4861…4898 at001f = ╱eb╱ + ╱ // 0x4880 @0x1f
0x4861…4898 at0020 = ╱50╱P╱ // 0x4881 @0x20
0x4861…4898 at0021 = ╱49╱I╱ // 0x4882 @0x21
0x4861…4898 at0022 = ╱4c╱L╱ // 0x4883 @0x22
0x4861…4898 at0023 = ╱ef╱ $ ╱ // 0x4884 @0x23
0x4861…4898 at0024 = ╱ed╱ ( ╱ // 0x4885 @0x24
0x4861…4898 at0025 = ╱31╱1╱ // 0x4886 @0x25
0x4861…4898 at0026 = ╱f20100╱ // 0x4887 @0x26
0x4861…4898 at0029 = ╱f1╱ : ╱ // 0x488a @0x29
0x4861…4898 at002a = ╱31╱1╱ // 0x488b @0x2a
0x4861…4898 at002b = ╱34╱4╱ // 0x488c @0x2b
0x4861…4898 at002c = ╱f20e00╱ // 0x488d @0x2c
0x4861…4898 at002f = ╱ee╱ ) ╱ // 0x4890 @0x2f
0x4861…4898 at0030 = ╱ea╱ ; ╱ // 0x4891 @0x30
0x4861…4898 at0031 = ╱51╱Q╱ // 0x4892 @0x31
0x4861…4898 at0032 = ╱42╱B╱ // 0x4893 @0x32
0x4861…4898 at0033 = ╱f0╱ := ╱ // 0x4894 @0x33
0x4861…4898 at0034 = ╱44╱D╱ // 0x4895 @0x34
0x4861…4898 at0035 = ╱32╱2╱ // 0x4896 @0x35
0x4861…4898 at0036 = EOL // 0x4897 @0x36
0x4861…4898 }
0x4898…48a5 de93 04465 EXEC LSKRIV2
0x4898…48a5 LineComal80 {
0x4898…48a5 ptr = 0xde93 // 0x4898 @0x0
0x4898…48a5 lno = 0x1171 // 0x489a @0x2
0x4898…48a5 at0004 = ╱9d╱ EXEC ╱ // 0x489c @0x4
0x4898…48a5 at0005 = ╱4c╱L╱ // 0x489d @0x5
0x4898…48a5 at0006 = ╱53╱S╱ // 0x489e @0x6
0x4898…48a5 at0007 = ╱4b╱K╱ // 0x489f @0x7
0x4898…48a5 at0008 = ╱52╱R╱ // 0x48a0 @0x8
0x4898…48a5 at0009 = ╱49╱I╱ // 0x48a1 @0x9
0x4898…48a5 at000a = ╱56╱V╱ // 0x48a2 @0xa
0x4898…48a5 at000b = ╱32╱2╱ // 0x48a3 @0xb
0x4898…48a5 at000c = EOL // 0x48a4 @0xc
0x4898…48a5 }
0x48a5…48dc deca 04470 LET QT $ := "DAGPENGEFONDBIDRAG…" + PIL $ ( 1 : 15 ) ; QB := DA2
0x48a5…48dc LineComal80 {
0x48a5…48dc ptr = 0xdeca // 0x48a5 @0x0
0x48a5…48dc lno = 0x1176 // 0x48a7 @0x2
0x48a5…48dc at0004 = ╱86╱ LET ╱ // 0x48a9 @0x4
0x48a5…48dc at0005 = ╱51╱Q╱ // 0x48aa @0x5
0x48a5…48dc at0006 = ╱54╱T╱ // 0x48ab @0x6
0x48a5…48dc at0007 = ╱ef╱ $ ╱ // 0x48ac @0x7
0x48a5…48dc at0008 = ╱f0╱ := ╱ // 0x48ad @0x8
0x48a5…48dc at0009 = ╱22╱"╱ // 0x48ae @0x9
0x48a5…48dc at000a = ╱44╱D╱ // 0x48af @0xa
0x48a5…48dc at000b = ╱41╱A╱ // 0x48b0 @0xb
0x48a5…48dc at000c = ╱47╱G╱ // 0x48b1 @0xc
0x48a5…48dc at000d = ╱50╱P╱ // 0x48b2 @0xd
0x48a5…48dc at000e = ╱45╱E╱ // 0x48b3 @0xe
0x48a5…48dc at000f = ╱4e╱N╱ // 0x48b4 @0xf
0x48a5…48dc at0010 = ╱47╱G╱ // 0x48b5 @0x10
0x48a5…48dc at0011 = ╱45╱E╱ // 0x48b6 @0x11
0x48a5…48dc at0012 = ╱46╱F╱ // 0x48b7 @0x12
0x48a5…48dc at0013 = ╱4f╱O╱ // 0x48b8 @0x13
0x48a5…48dc at0014 = ╱4e╱N╱ // 0x48b9 @0x14
0x48a5…48dc at0015 = ╱44╱D╱ // 0x48ba @0x15
0x48a5…48dc at0016 = ╱42╱B╱ // 0x48bb @0x16
0x48a5…48dc at0017 = ╱49╱I╱ // 0x48bc @0x17
0x48a5…48dc at0018 = ╱44╱D╱ // 0x48bd @0x18
0x48a5…48dc at0019 = ╱52╱R╱ // 0x48be @0x19
0x48a5…48dc at001a = ╱41╱A╱ // 0x48bf @0x1a
0x48a5…48dc at001b = ╱47╱G╱ // 0x48c0 @0x1b
0x48a5…48dc at001c = ╱20╱…╱ // 0x48c1 @0x1c
0x48a5…48dc at001d = ╱22╱"╱ // 0x48c2 @0x1d
0x48a5…48dc at001e = ╱eb╱ + ╱ // 0x48c3 @0x1e
0x48a5…48dc at001f = ╱50╱P╱ // 0x48c4 @0x1f
0x48a5…48dc at0020 = ╱49╱I╱ // 0x48c5 @0x20
0x48a5…48dc at0021 = ╱4c╱L╱ // 0x48c6 @0x21
0x48a5…48dc at0022 = ╱ef╱ $ ╱ // 0x48c7 @0x22
0x48a5…48dc at0023 = ╱ed╱ ( ╱ // 0x48c8 @0x23
0x48a5…48dc at0024 = ╱31╱1╱ // 0x48c9 @0x24
0x48a5…48dc at0025 = ╱f20100╱ // 0x48ca @0x25
0x48a5…48dc at0028 = ╱f1╱ : ╱ // 0x48cd @0x28
0x48a5…48dc at0029 = ╱31╱1╱ // 0x48ce @0x29
0x48a5…48dc at002a = ╱35╱5╱ // 0x48cf @0x2a
0x48a5…48dc at002b = ╱f20f00╱ // 0x48d0 @0x2b
0x48a5…48dc at002e = ╱ee╱ ) ╱ // 0x48d3 @0x2e
0x48a5…48dc at002f = ╱ea╱ ; ╱ // 0x48d4 @0x2f
0x48a5…48dc at0030 = ╱51╱Q╱ // 0x48d5 @0x30
0x48a5…48dc at0031 = ╱42╱B╱ // 0x48d6 @0x31
0x48a5…48dc at0032 = ╱f0╱ := ╱ // 0x48d7 @0x32
0x48a5…48dc at0033 = ╱44╱D╱ // 0x48d8 @0x33
0x48a5…48dc at0034 = ╱41╱A╱ // 0x48d9 @0x34
0x48a5…48dc at0035 = ╱32╱2╱ // 0x48da @0x35
0x48a5…48dc at0036 = EOL // 0x48db @0x36
0x48a5…48dc }
0x48dc…48e9 ded7 04475 EXEC LSKRIV2
0x48dc…48e9 LineComal80 {
0x48dc…48e9 ptr = 0xded7 // 0x48dc @0x0
0x48dc…48e9 lno = 0x117b // 0x48de @0x2
0x48dc…48e9 at0004 = ╱9d╱ EXEC ╱ // 0x48e0 @0x4
0x48dc…48e9 at0005 = ╱4c╱L╱ // 0x48e1 @0x5
0x48dc…48e9 at0006 = ╱53╱S╱ // 0x48e2 @0x6
0x48dc…48e9 at0007 = ╱4b╱K╱ // 0x48e3 @0x7
0x48dc…48e9 at0008 = ╱52╱R╱ // 0x48e4 @0x8
0x48dc…48e9 at0009 = ╱49╱I╱ // 0x48e5 @0x9
0x48dc…48e9 at000a = ╱56╱V╱ // 0x48e6 @0xa
0x48dc…48e9 at000b = ╱32╱2╱ // 0x48e7 @0xb
0x48dc…48e9 at000c = EOL // 0x48e8 @0xc
0x48dc…48e9 }
0x48e9…4918 df06 04480 LET QT $ := "KOMMUNESKAT…" + PIL $ ( 1 : 22 ) ; QB := D3
0x48e9…4918 LineComal80 {
0x48e9…4918 ptr = 0xdf06 // 0x48e9 @0x0
0x48e9…4918 lno = 0x1180 // 0x48eb @0x2
0x48e9…4918 at0004 = ╱86╱ LET ╱ // 0x48ed @0x4
0x48e9…4918 at0005 = ╱51╱Q╱ // 0x48ee @0x5
0x48e9…4918 at0006 = ╱54╱T╱ // 0x48ef @0x6
0x48e9…4918 at0007 = ╱ef╱ $ ╱ // 0x48f0 @0x7
0x48e9…4918 at0008 = ╱f0╱ := ╱ // 0x48f1 @0x8
0x48e9…4918 at0009 = ╱22╱"╱ // 0x48f2 @0x9
0x48e9…4918 at000a = ╱4b╱K╱ // 0x48f3 @0xa
0x48e9…4918 at000b = ╱4f╱O╱ // 0x48f4 @0xb
0x48e9…4918 at000c = ╱4d╱M╱ // 0x48f5 @0xc
0x48e9…4918 at000d = ╱4d╱M╱ // 0x48f6 @0xd
0x48e9…4918 at000e = ╱55╱U╱ // 0x48f7 @0xe
0x48e9…4918 at000f = ╱4e╱N╱ // 0x48f8 @0xf
0x48e9…4918 at0010 = ╱45╱E╱ // 0x48f9 @0x10
0x48e9…4918 at0011 = ╱53╱S╱ // 0x48fa @0x11
0x48e9…4918 at0012 = ╱4b╱K╱ // 0x48fb @0x12
0x48e9…4918 at0013 = ╱41╱A╱ // 0x48fc @0x13
0x48e9…4918 at0014 = ╱54╱T╱ // 0x48fd @0x14
0x48e9…4918 at0015 = ╱20╱…╱ // 0x48fe @0x15
0x48e9…4918 at0016 = ╱22╱"╱ // 0x48ff @0x16
0x48e9…4918 at0017 = ╱eb╱ + ╱ // 0x4900 @0x17
0x48e9…4918 at0018 = ╱50╱P╱ // 0x4901 @0x18
0x48e9…4918 at0019 = ╱49╱I╱ // 0x4902 @0x19
0x48e9…4918 at001a = ╱4c╱L╱ // 0x4903 @0x1a
0x48e9…4918 at001b = ╱ef╱ $ ╱ // 0x4904 @0x1b
0x48e9…4918 at001c = ╱ed╱ ( ╱ // 0x4905 @0x1c
0x48e9…4918 at001d = ╱31╱1╱ // 0x4906 @0x1d
0x48e9…4918 at001e = ╱f20100╱ // 0x4907 @0x1e
0x48e9…4918 at0021 = ╱f1╱ : ╱ // 0x490a @0x21
0x48e9…4918 at0022 = ╱32╱2╱ // 0x490b @0x22
0x48e9…4918 at0023 = ╱32╱2╱ // 0x490c @0x23
0x48e9…4918 at0024 = ╱f21600╱ // 0x490d @0x24
0x48e9…4918 at0027 = ╱ee╱ ) ╱ // 0x4910 @0x27
0x48e9…4918 at0028 = ╱ea╱ ; ╱ // 0x4911 @0x28
0x48e9…4918 at0029 = ╱51╱Q╱ // 0x4912 @0x29
0x48e9…4918 at002a = ╱42╱B╱ // 0x4913 @0x2a
0x48e9…4918 at002b = ╱f0╱ := ╱ // 0x4914 @0x2b
0x48e9…4918 at002c = ╱44╱D╱ // 0x4915 @0x2c
0x48e9…4918 at002d = ╱33╱3╱ // 0x4916 @0x2d
0x48e9…4918 at002e = EOL // 0x4917 @0x2e
0x48e9…4918 }
0x4918…4925 df13 04485 EXEC LSKRIV2
0x4918…4925 LineComal80 {
0x4918…4925 ptr = 0xdf13 // 0x4918 @0x0
0x4918…4925 lno = 0x1185 // 0x491a @0x2
0x4918…4925 at0004 = ╱9d╱ EXEC ╱ // 0x491c @0x4
0x4918…4925 at0005 = ╱4c╱L╱ // 0x491d @0x5
0x4918…4925 at0006 = ╱53╱S╱ // 0x491e @0x6
0x4918…4925 at0007 = ╱4b╱K╱ // 0x491f @0x7
0x4918…4925 at0008 = ╱52╱R╱ // 0x4920 @0x8
0x4918…4925 at0009 = ╱49╱I╱ // 0x4921 @0x9
0x4918…4925 at000a = ╱56╱V╱ // 0x4922 @0xa
0x4918…4925 at000b = ╱32╱2╱ // 0x4923 @0xb
0x4918…4925 at000c = EOL // 0x4924 @0xc
0x4918…4925 }
0x4925…4961 df4f 04490 LET QT $ := "AMTSKOMMUNAL…INDKOMSTSKAT…" + PIL $ ( 1 : 8 ) ; QB := D4
0x4925…4961 LineComal80 {
0x4925…4961 ptr = 0xdf4f // 0x4925 @0x0
0x4925…4961 lno = 0x118a // 0x4927 @0x2
0x4925…4961 at0004 = ╱86╱ LET ╱ // 0x4929 @0x4
0x4925…4961 at0005 = ╱51╱Q╱ // 0x492a @0x5
0x4925…4961 at0006 = ╱54╱T╱ // 0x492b @0x6
0x4925…4961 at0007 = ╱ef╱ $ ╱ // 0x492c @0x7
0x4925…4961 at0008 = ╱f0╱ := ╱ // 0x492d @0x8
0x4925…4961 at0009 = ╱22╱"╱ // 0x492e @0x9
0x4925…4961 at000a = ╱41╱A╱ // 0x492f @0xa
0x4925…4961 at000b = ╱4d╱M╱ // 0x4930 @0xb
0x4925…4961 at000c = ╱54╱T╱ // 0x4931 @0xc
0x4925…4961 at000d = ╱53╱S╱ // 0x4932 @0xd
0x4925…4961 at000e = ╱4b╱K╱ // 0x4933 @0xe
0x4925…4961 at000f = ╱4f╱O╱ // 0x4934 @0xf
0x4925…4961 at0010 = ╱4d╱M╱ // 0x4935 @0x10
0x4925…4961 at0011 = ╱4d╱M╱ // 0x4936 @0x11
0x4925…4961 at0012 = ╱55╱U╱ // 0x4937 @0x12
0x4925…4961 at0013 = ╱4e╱N╱ // 0x4938 @0x13
0x4925…4961 at0014 = ╱41╱A╱ // 0x4939 @0x14
0x4925…4961 at0015 = ╱4c╱L╱ // 0x493a @0x15
0x4925…4961 at0016 = ╱20╱…╱ // 0x493b @0x16
0x4925…4961 at0017 = ╱49╱I╱ // 0x493c @0x17
0x4925…4961 at0018 = ╱4e╱N╱ // 0x493d @0x18
0x4925…4961 at0019 = ╱44╱D╱ // 0x493e @0x19
0x4925…4961 at001a = ╱4b╱K╱ // 0x493f @0x1a
0x4925…4961 at001b = ╱4f╱O╱ // 0x4940 @0x1b
0x4925…4961 at001c = ╱4d╱M╱ // 0x4941 @0x1c
0x4925…4961 at001d = ╱53╱S╱ // 0x4942 @0x1d
0x4925…4961 at001e = ╱54╱T╱ // 0x4943 @0x1e
0x4925…4961 at001f = ╱53╱S╱ // 0x4944 @0x1f
0x4925…4961 at0020 = ╱4b╱K╱ // 0x4945 @0x20
0x4925…4961 at0021 = ╱41╱A╱ // 0x4946 @0x21
0x4925…4961 at0022 = ╱54╱T╱ // 0x4947 @0x22
0x4925…4961 at0023 = ╱20╱…╱ // 0x4948 @0x23
0x4925…4961 at0024 = ╱22╱"╱ // 0x4949 @0x24
0x4925…4961 at0025 = ╱eb╱ + ╱ // 0x494a @0x25
0x4925…4961 at0026 = ╱50╱P╱ // 0x494b @0x26
0x4925…4961 at0027 = ╱49╱I╱ // 0x494c @0x27
0x4925…4961 at0028 = ╱4c╱L╱ // 0x494d @0x28
0x4925…4961 at0029 = ╱ef╱ $ ╱ // 0x494e @0x29
0x4925…4961 at002a = ╱ed╱ ( ╱ // 0x494f @0x2a
0x4925…4961 at002b = ╱31╱1╱ // 0x4950 @0x2b
0x4925…4961 at002c = ╱f20100╱ // 0x4951 @0x2c
0x4925…4961 at002f = ╱f1╱ : ╱ // 0x4954 @0x2f
0x4925…4961 at0030 = ╱38╱8╱ // 0x4955 @0x30
0x4925…4961 at0031 = ╱f20800╱ // 0x4956 @0x31
0x4925…4961 at0034 = ╱ee╱ ) ╱ // 0x4959 @0x34
0x4925…4961 at0035 = ╱ea╱ ; ╱ // 0x495a @0x35
0x4925…4961 at0036 = ╱51╱Q╱ // 0x495b @0x36
0x4925…4961 at0037 = ╱42╱B╱ // 0x495c @0x37
0x4925…4961 at0038 = ╱f0╱ := ╱ // 0x495d @0x38
0x4925…4961 at0039 = ╱44╱D╱ // 0x495e @0x39
0x4925…4961 at003a = ╱34╱4╱ // 0x495f @0x3a
0x4925…4961 at003b = EOL // 0x4960 @0x3b
0x4925…4961 }
0x4961…496e df5c 04495 EXEC LSKRIV2
0x4961…496e LineComal80 {
0x4961…496e ptr = 0xdf5c // 0x4961 @0x0
0x4961…496e lno = 0x118f // 0x4963 @0x2
0x4961…496e at0004 = ╱9d╱ EXEC ╱ // 0x4965 @0x4
0x4961…496e at0005 = ╱4c╱L╱ // 0x4966 @0x5
0x4961…496e at0006 = ╱53╱S╱ // 0x4967 @0x6
0x4961…496e at0007 = ╱4b╱K╱ // 0x4968 @0x7
0x4961…496e at0008 = ╱52╱R╱ // 0x4969 @0x8
0x4961…496e at0009 = ╱49╱I╱ // 0x496a @0x9
0x4961…496e at000a = ╱56╱V╱ // 0x496b @0xa
0x4961…496e at000b = ╱32╱2╱ // 0x496c @0xb
0x4961…496e at000c = EOL // 0x496d @0xc
0x4961…496e }
0x496e…497a df68 04500 IF 5 > O THEN
0x496e…497a LineComal80 {
0x496e…497a ptr = 0xdf68 // 0x496e @0x0
0x496e…497a lno = 0x1194 // 0x4970 @0x2
0x496e…497a at0004 = ╱9b0044╱ IF ╱ // 0x4972 @0x4
0x496e…497a at0007 = ╱35╱5╱ // 0x4975 @0x7
0x496e…497a at0008 = ╱e1╱ > ╱ // 0x4976 @0x8
0x496e…497a at0009 = ╱4f╱O╱ // 0x4977 @0x9
0x496e…497a at000a = ╱b5╱ THEN ╱ // 0x4978 @0xa
0x496e…497a at000b = EOL // 0x4979 @0xb
0x496e…497a }
0x497a…49a7 df95 04505 LET QT $ := "KIRKESKAT…" + PIL $ ( 1 : 24 ) ; QB := D5
0x497a…49a7 LineComal80 {
0x497a…49a7 ptr = 0xdf95 // 0x497a @0x0
0x497a…49a7 lno = 0x1199 // 0x497c @0x2
0x497a…49a7 at0004 = ╱86╱ LET ╱ // 0x497e @0x4
0x497a…49a7 at0005 = ╱51╱Q╱ // 0x497f @0x5
0x497a…49a7 at0006 = ╱54╱T╱ // 0x4980 @0x6
0x497a…49a7 at0007 = ╱ef╱ $ ╱ // 0x4981 @0x7
0x497a…49a7 at0008 = ╱f0╱ := ╱ // 0x4982 @0x8
0x497a…49a7 at0009 = ╱22╱"╱ // 0x4983 @0x9
0x497a…49a7 at000a = ╱4b╱K╱ // 0x4984 @0xa
0x497a…49a7 at000b = ╱49╱I╱ // 0x4985 @0xb
0x497a…49a7 at000c = ╱52╱R╱ // 0x4986 @0xc
0x497a…49a7 at000d = ╱4b╱K╱ // 0x4987 @0xd
0x497a…49a7 at000e = ╱45╱E╱ // 0x4988 @0xe
0x497a…49a7 at000f = ╱53╱S╱ // 0x4989 @0xf
0x497a…49a7 at0010 = ╱4b╱K╱ // 0x498a @0x10
0x497a…49a7 at0011 = ╱41╱A╱ // 0x498b @0x11
0x497a…49a7 at0012 = ╱54╱T╱ // 0x498c @0x12
0x497a…49a7 at0013 = ╱20╱…╱ // 0x498d @0x13
0x497a…49a7 at0014 = ╱22╱"╱ // 0x498e @0x14
0x497a…49a7 at0015 = ╱eb╱ + ╱ // 0x498f @0x15
0x497a…49a7 at0016 = ╱50╱P╱ // 0x4990 @0x16
0x497a…49a7 at0017 = ╱49╱I╱ // 0x4991 @0x17
0x497a…49a7 at0018 = ╱4c╱L╱ // 0x4992 @0x18
0x497a…49a7 at0019 = ╱ef╱ $ ╱ // 0x4993 @0x19
0x497a…49a7 at001a = ╱ed╱ ( ╱ // 0x4994 @0x1a
0x497a…49a7 at001b = ╱31╱1╱ // 0x4995 @0x1b
0x497a…49a7 at001c = ╱f20100╱ // 0x4996 @0x1c
0x497a…49a7 at001f = ╱f1╱ : ╱ // 0x4999 @0x1f
0x497a…49a7 at0020 = ╱32╱2╱ // 0x499a @0x20
0x497a…49a7 at0021 = ╱34╱4╱ // 0x499b @0x21
0x497a…49a7 at0022 = ╱f21800╱ // 0x499c @0x22
0x497a…49a7 at0025 = ╱ee╱ ) ╱ // 0x499f @0x25
0x497a…49a7 at0026 = ╱ea╱ ; ╱ // 0x49a0 @0x26
0x497a…49a7 at0027 = ╱51╱Q╱ // 0x49a1 @0x27
0x497a…49a7 at0028 = ╱42╱B╱ // 0x49a2 @0x28
0x497a…49a7 at0029 = ╱f0╱ := ╱ // 0x49a3 @0x29
0x497a…49a7 at002a = ╱44╱D╱ // 0x49a4 @0x2a
0x497a…49a7 at002b = ╱35╱5╱ // 0x49a5 @0x2b
0x497a…49a7 at002c = EOL // 0x49a6 @0x2c
0x497a…49a7 }
0x49a7…49b4 dfa2 04510 EXEC LSKRIV2
0x49a7…49b4 LineComal80 {
0x49a7…49b4 ptr = 0xdfa2 // 0x49a7 @0x0
0x49a7…49b4 lno = 0x119e // 0x49a9 @0x2
0x49a7…49b4 at0004 = ╱9d╱ EXEC ╱ // 0x49ab @0x4
0x49a7…49b4 at0005 = ╱4c╱L╱ // 0x49ac @0x5
0x49a7…49b4 at0006 = ╱53╱S╱ // 0x49ad @0x6
0x49a7…49b4 at0007 = ╱4b╱K╱ // 0x49ae @0x7
0x49a7…49b4 at0008 = ╱52╱R╱ // 0x49af @0x8
0x49a7…49b4 at0009 = ╱49╱I╱ // 0x49b0 @0x9
0x49a7…49b4 at000a = ╱56╱V╱ // 0x49b1 @0xa
0x49a7…49b4 at000b = ╱32╱2╱ // 0x49b2 @0xb
0x49a7…49b4 at000c = EOL // 0x49b3 @0xc
0x49a7…49b4 }
0x49b4…49ba dfa8 04515 ENDIF
0x49b4…49ba LineComal80 {
0x49b4…49ba ptr = 0xdfa8 // 0x49b4 @0x0
0x49b4…49ba lno = 0x11a3 // 0x49b6 @0x2
0x49b4…49ba at0004 = ╱9c╱ ENDIF ╱ // 0x49b8 @0x4
0x49b4…49ba at0005 = EOL // 0x49b9 @0x5
0x49b4…49ba }
0x49ba…49c4 dfb2 04520 ENDPROC SKAT
0x49ba…49c4 LineComal80 {
0x49ba…49c4 ptr = 0xdfb2 // 0x49ba @0x0
0x49ba…49c4 lno = 0x11a8 // 0x49bc @0x2
0x49ba…49c4 at0004 = ╱9f╱ ENDPROC ╱ // 0x49be @0x4
0x49ba…49c4 at0005 = ╱53╱S╱ // 0x49bf @0x5
0x49ba…49c4 at0006 = ╱4b╱K╱ // 0x49c0 @0x6
0x49ba…49c4 at0007 = ╱41╱A╱ // 0x49c1 @0x7
0x49ba…49c4 at0008 = ╱54╱T╱ // 0x49c2 @0x8
0x49ba…49c4 at0009 = EOL // 0x49c3 @0x9
0x49ba…49c4 }
0x49c4…49d2 dfc0 04525 PROC INDSKAT
0x49c4…49d2 LineComal80 {
0x49c4…49d2 ptr = 0xdfc0 // 0x49c4 @0x0
0x49c4…49d2 lno = 0x11ad // 0x49c6 @0x2
0x49c4…49d2 at0004 = ╱9e00╱ PROC ╱ // 0x49c8 @0x4
0x49c4…49d2 at0006 = ╱49╱I╱ // 0x49ca @0x6
0x49c4…49d2 at0007 = ╱4e╱N╱ // 0x49cb @0x7
0x49c4…49d2 at0008 = ╱44╱D╱ // 0x49cc @0x8
0x49c4…49d2 at0009 = ╱53╱S╱ // 0x49cd @0x9
0x49c4…49d2 at000a = ╱4b╱K╱ // 0x49ce @0xa
0x49c4…49d2 at000b = ╱41╱A╱ // 0x49cf @0xb
0x49c4…49d2 at000c = ╱54╱T╱ // 0x49d0 @0xc
0x49c4…49d2 at000d = EOL // 0x49d1 @0xd
0x49c4…49d2 }
0x49d2…49fb dfe9 04530 LET QT $ := SP $ ( 1 : 34 ) + LI $ ( 1 : 16 )
0x49d2…49fb LineComal80 {
0x49d2…49fb ptr = 0xdfe9 // 0x49d2 @0x0
0x49d2…49fb lno = 0x11b2 // 0x49d4 @0x2
0x49d2…49fb at0004 = ╱86╱ LET ╱ // 0x49d6 @0x4
0x49d2…49fb at0005 = ╱51╱Q╱ // 0x49d7 @0x5
0x49d2…49fb at0006 = ╱54╱T╱ // 0x49d8 @0x6
0x49d2…49fb at0007 = ╱ef╱ $ ╱ // 0x49d9 @0x7
0x49d2…49fb at0008 = ╱f0╱ := ╱ // 0x49da @0x8
0x49d2…49fb at0009 = ╱53╱S╱ // 0x49db @0x9
0x49d2…49fb at000a = ╱50╱P╱ // 0x49dc @0xa
0x49d2…49fb at000b = ╱ef╱ $ ╱ // 0x49dd @0xb
0x49d2…49fb at000c = ╱ed╱ ( ╱ // 0x49de @0xc
0x49d2…49fb at000d = ╱31╱1╱ // 0x49df @0xd
0x49d2…49fb at000e = ╱f20100╱ // 0x49e0 @0xe
0x49d2…49fb at0011 = ╱f1╱ : ╱ // 0x49e3 @0x11
0x49d2…49fb at0012 = ╱33╱3╱ // 0x49e4 @0x12
0x49d2…49fb at0013 = ╱34╱4╱ // 0x49e5 @0x13
0x49d2…49fb at0014 = ╱f22200╱ // 0x49e6 @0x14
0x49d2…49fb at0017 = ╱ee╱ ) ╱ // 0x49e9 @0x17
0x49d2…49fb at0018 = ╱eb╱ + ╱ // 0x49ea @0x18
0x49d2…49fb at0019 = ╱4c╱L╱ // 0x49eb @0x19
0x49d2…49fb at001a = ╱49╱I╱ // 0x49ec @0x1a
0x49d2…49fb at001b = ╱ef╱ $ ╱ // 0x49ed @0x1b
0x49d2…49fb at001c = ╱ed╱ ( ╱ // 0x49ee @0x1c
0x49d2…49fb at001d = ╱31╱1╱ // 0x49ef @0x1d
0x49d2…49fb at001e = ╱f20100╱ // 0x49f0 @0x1e
0x49d2…49fb at0021 = ╱f1╱ : ╱ // 0x49f3 @0x21
0x49d2…49fb at0022 = ╱31╱1╱ // 0x49f4 @0x22
0x49d2…49fb at0023 = ╱36╱6╱ // 0x49f5 @0x23
0x49d2…49fb at0024 = ╱f21000╱ // 0x49f6 @0x24
0x49d2…49fb at0027 = ╱ee╱ ) ╱ // 0x49f9 @0x27
0x49d2…49fb at0028 = EOL // 0x49fa @0x28
0x49d2…49fb }
0x49fb…4a08 dff6 04535 EXEC LSKRIV3
0x49fb…4a08 LineComal80 {
0x49fb…4a08 ptr = 0xdff6 // 0x49fb @0x0
0x49fb…4a08 lno = 0x11b7 // 0x49fd @0x2
0x49fb…4a08 at0004 = ╱9d╱ EXEC ╱ // 0x49ff @0x4
0x49fb…4a08 at0005 = ╱4c╱L╱ // 0x4a00 @0x5
0x49fb…4a08 at0006 = ╱53╱S╱ // 0x4a01 @0x6
0x49fb…4a08 at0007 = ╱4b╱K╱ // 0x4a02 @0x7
0x49fb…4a08 at0008 = ╱52╱R╱ // 0x4a03 @0x8
0x49fb…4a08 at0009 = ╱49╱I╱ // 0x4a04 @0x9
0x49fb…4a08 at000a = ╱56╱V╱ // 0x4a05 @0xa
0x49fb…4a08 at000b = ╱33╱3╱ // 0x4a06 @0xb
0x49fb…4a08 at000c = EOL // 0x4a07 @0xc
0x49fb…4a08 }
0x4a08…4a3d e02b 04540 LET QT $ := "INDKOMSTSKAT…IALT…" + PIL $ ( 1 : 16 ) ; QB := D6
0x4a08…4a3d LineComal80 {
0x4a08…4a3d ptr = 0xe02b // 0x4a08 @0x0
0x4a08…4a3d lno = 0x11bc // 0x4a0a @0x2
0x4a08…4a3d at0004 = ╱86╱ LET ╱ // 0x4a0c @0x4
0x4a08…4a3d at0005 = ╱51╱Q╱ // 0x4a0d @0x5
0x4a08…4a3d at0006 = ╱54╱T╱ // 0x4a0e @0x6
0x4a08…4a3d at0007 = ╱ef╱ $ ╱ // 0x4a0f @0x7
0x4a08…4a3d at0008 = ╱f0╱ := ╱ // 0x4a10 @0x8
0x4a08…4a3d at0009 = ╱22╱"╱ // 0x4a11 @0x9
0x4a08…4a3d at000a = ╱49╱I╱ // 0x4a12 @0xa
0x4a08…4a3d at000b = ╱4e╱N╱ // 0x4a13 @0xb
0x4a08…4a3d at000c = ╱44╱D╱ // 0x4a14 @0xc
0x4a08…4a3d at000d = ╱4b╱K╱ // 0x4a15 @0xd
0x4a08…4a3d at000e = ╱4f╱O╱ // 0x4a16 @0xe
0x4a08…4a3d at000f = ╱4d╱M╱ // 0x4a17 @0xf
0x4a08…4a3d at0010 = ╱53╱S╱ // 0x4a18 @0x10
0x4a08…4a3d at0011 = ╱54╱T╱ // 0x4a19 @0x11
0x4a08…4a3d at0012 = ╱53╱S╱ // 0x4a1a @0x12
0x4a08…4a3d at0013 = ╱4b╱K╱ // 0x4a1b @0x13
0x4a08…4a3d at0014 = ╱41╱A╱ // 0x4a1c @0x14
0x4a08…4a3d at0015 = ╱54╱T╱ // 0x4a1d @0x15
0x4a08…4a3d at0016 = ╱20╱…╱ // 0x4a1e @0x16
0x4a08…4a3d at0017 = ╱49╱I╱ // 0x4a1f @0x17
0x4a08…4a3d at0018 = ╱41╱A╱ // 0x4a20 @0x18
0x4a08…4a3d at0019 = ╱4c╱L╱ // 0x4a21 @0x19
0x4a08…4a3d at001a = ╱54╱T╱ // 0x4a22 @0x1a
0x4a08…4a3d at001b = ╱20╱…╱ // 0x4a23 @0x1b
0x4a08…4a3d at001c = ╱22╱"╱ // 0x4a24 @0x1c
0x4a08…4a3d at001d = ╱eb╱ + ╱ // 0x4a25 @0x1d
0x4a08…4a3d at001e = ╱50╱P╱ // 0x4a26 @0x1e
0x4a08…4a3d at001f = ╱49╱I╱ // 0x4a27 @0x1f
0x4a08…4a3d at0020 = ╱4c╱L╱ // 0x4a28 @0x20
0x4a08…4a3d at0021 = ╱ef╱ $ ╱ // 0x4a29 @0x21
0x4a08…4a3d at0022 = ╱ed╱ ( ╱ // 0x4a2a @0x22
0x4a08…4a3d at0023 = ╱31╱1╱ // 0x4a2b @0x23
0x4a08…4a3d at0024 = ╱f20100╱ // 0x4a2c @0x24
0x4a08…4a3d at0027 = ╱f1╱ : ╱ // 0x4a2f @0x27
0x4a08…4a3d at0028 = ╱31╱1╱ // 0x4a30 @0x28
0x4a08…4a3d at0029 = ╱36╱6╱ // 0x4a31 @0x29
0x4a08…4a3d at002a = ╱f21000╱ // 0x4a32 @0x2a
0x4a08…4a3d at002d = ╱ee╱ ) ╱ // 0x4a35 @0x2d
0x4a08…4a3d at002e = ╱ea╱ ; ╱ // 0x4a36 @0x2e
0x4a08…4a3d at002f = ╱51╱Q╱ // 0x4a37 @0x2f
0x4a08…4a3d at0030 = ╱42╱B╱ // 0x4a38 @0x30
0x4a08…4a3d at0031 = ╱f0╱ := ╱ // 0x4a39 @0x31
0x4a08…4a3d at0032 = ╱44╱D╱ // 0x4a3a @0x32
0x4a08…4a3d at0033 = ╱36╱6╱ // 0x4a3b @0x33
0x4a08…4a3d at0034 = EOL // 0x4a3c @0x34
0x4a08…4a3d }
0x4a3d…4a4a e038 04545 EXEC LSKRIV2
0x4a3d…4a4a LineComal80 {
0x4a3d…4a4a ptr = 0xe038 // 0x4a3d @0x0
0x4a3d…4a4a lno = 0x11c1 // 0x4a3f @0x2
0x4a3d…4a4a at0004 = ╱9d╱ EXEC ╱ // 0x4a41 @0x4
0x4a3d…4a4a at0005 = ╱4c╱L╱ // 0x4a42 @0x5
0x4a3d…4a4a at0006 = ╱53╱S╱ // 0x4a43 @0x6
0x4a3d…4a4a at0007 = ╱4b╱K╱ // 0x4a44 @0x7
0x4a3d…4a4a at0008 = ╱52╱R╱ // 0x4a45 @0x8
0x4a3d…4a4a at0009 = ╱49╱I╱ // 0x4a46 @0x9
0x4a3d…4a4a at000a = ╱56╱V╱ // 0x4a47 @0xa
0x4a3d…4a4a at000b = ╱32╱2╱ // 0x4a48 @0xb
0x4a3d…4a4a at000c = EOL // 0x4a49 @0xc
0x4a3d…4a4a }
0x4a4a…4a57 e045 04550 ENDPROC INDSKAT
0x4a4a…4a57 LineComal80 {
0x4a4a…4a57 ptr = 0xe045 // 0x4a4a @0x0
0x4a4a…4a57 lno = 0x11c6 // 0x4a4c @0x2
0x4a4a…4a57 at0004 = ╱9f╱ ENDPROC ╱ // 0x4a4e @0x4
0x4a4a…4a57 at0005 = ╱49╱I╱ // 0x4a4f @0x5
0x4a4a…4a57 at0006 = ╱4e╱N╱ // 0x4a50 @0x6
0x4a4a…4a57 at0007 = ╱44╱D╱ // 0x4a51 @0x7
0x4a4a…4a57 at0008 = ╱53╱S╱ // 0x4a52 @0x8
0x4a4a…4a57 at0009 = ╱4b╱K╱ // 0x4a53 @0x9
0x4a4a…4a57 at000a = ╱41╱A╱ // 0x4a54 @0xa
0x4a4a…4a57 at000b = ╱54╱T╱ // 0x4a55 @0xb
0x4a4a…4a57 at000c = EOL // 0x4a56 @0xc
0x4a4a…4a57 }
0x4a57…4a63 e051 04555 PROC FSKAT
0x4a57…4a63 LineComal80 {
0x4a57…4a63 ptr = 0xe051 // 0x4a57 @0x0
0x4a57…4a63 lno = 0x11cb // 0x4a59 @0x2
0x4a57…4a63 at0004 = ╱9e00╱ PROC ╱ // 0x4a5b @0x4
0x4a57…4a63 at0006 = ╱46╱F╱ // 0x4a5d @0x6
0x4a57…4a63 at0007 = ╱53╱S╱ // 0x4a5e @0x7
0x4a57…4a63 at0008 = ╱4b╱K╱ // 0x4a5f @0x8
0x4a57…4a63 at0009 = ╱41╱A╱ // 0x4a60 @0x9
0x4a57…4a63 at000a = ╱54╱T╱ // 0x4a61 @0xa
0x4a57…4a63 at000b = EOL // 0x4a62 @0xb
0x4a57…4a63 }
0x4a63…4a6f e05d 04560 IF S > O THEN
0x4a63…4a6f LineComal80 {
0x4a63…4a6f ptr = 0xe05d // 0x4a63 @0x0
0x4a63…4a6f lno = 0x11d0 // 0x4a65 @0x2
0x4a63…4a6f at0004 = ╱9b0046╱ IF ╱ // 0x4a67 @0x4
0x4a63…4a6f at0007 = ╱53╱S╱ // 0x4a6a @0x7
0x4a63…4a6f at0008 = ╱e1╱ > ╱ // 0x4a6b @0x8
0x4a63…4a6f at0009 = ╱4f╱O╱ // 0x4a6c @0x9
0x4a63…4a6f at000a = ╱b5╱ THEN ╱ // 0x4a6d @0xa
0x4a63…4a6f at000b = EOL // 0x4a6e @0xb
0x4a63…4a6f }
0x4a6f…4a9d e08b 04565 LET QT $ := "FORMUESKAT…" + PIL $ ( 1 : 23 ) ; QB := FS
0x4a6f…4a9d LineComal80 {
0x4a6f…4a9d ptr = 0xe08b // 0x4a6f @0x0
0x4a6f…4a9d lno = 0x11d5 // 0x4a71 @0x2
0x4a6f…4a9d at0004 = ╱86╱ LET ╱ // 0x4a73 @0x4
0x4a6f…4a9d at0005 = ╱51╱Q╱ // 0x4a74 @0x5
0x4a6f…4a9d at0006 = ╱54╱T╱ // 0x4a75 @0x6
0x4a6f…4a9d at0007 = ╱ef╱ $ ╱ // 0x4a76 @0x7
0x4a6f…4a9d at0008 = ╱f0╱ := ╱ // 0x4a77 @0x8
0x4a6f…4a9d at0009 = ╱22╱"╱ // 0x4a78 @0x9
0x4a6f…4a9d at000a = ╱46╱F╱ // 0x4a79 @0xa
0x4a6f…4a9d at000b = ╱4f╱O╱ // 0x4a7a @0xb
0x4a6f…4a9d at000c = ╱52╱R╱ // 0x4a7b @0xc
0x4a6f…4a9d at000d = ╱4d╱M╱ // 0x4a7c @0xd
0x4a6f…4a9d at000e = ╱55╱U╱ // 0x4a7d @0xe
0x4a6f…4a9d at000f = ╱45╱E╱ // 0x4a7e @0xf
0x4a6f…4a9d at0010 = ╱53╱S╱ // 0x4a7f @0x10
0x4a6f…4a9d at0011 = ╱4b╱K╱ // 0x4a80 @0x11
0x4a6f…4a9d at0012 = ╱41╱A╱ // 0x4a81 @0x12
0x4a6f…4a9d at0013 = ╱54╱T╱ // 0x4a82 @0x13
0x4a6f…4a9d at0014 = ╱20╱…╱ // 0x4a83 @0x14
0x4a6f…4a9d at0015 = ╱22╱"╱ // 0x4a84 @0x15
0x4a6f…4a9d at0016 = ╱eb╱ + ╱ // 0x4a85 @0x16
0x4a6f…4a9d at0017 = ╱50╱P╱ // 0x4a86 @0x17
0x4a6f…4a9d at0018 = ╱49╱I╱ // 0x4a87 @0x18
0x4a6f…4a9d at0019 = ╱4c╱L╱ // 0x4a88 @0x19
0x4a6f…4a9d at001a = ╱ef╱ $ ╱ // 0x4a89 @0x1a
0x4a6f…4a9d at001b = ╱ed╱ ( ╱ // 0x4a8a @0x1b
0x4a6f…4a9d at001c = ╱31╱1╱ // 0x4a8b @0x1c
0x4a6f…4a9d at001d = ╱f20100╱ // 0x4a8c @0x1d
0x4a6f…4a9d at0020 = ╱f1╱ : ╱ // 0x4a8f @0x20
0x4a6f…4a9d at0021 = ╱32╱2╱ // 0x4a90 @0x21
0x4a6f…4a9d at0022 = ╱33╱3╱ // 0x4a91 @0x22
0x4a6f…4a9d at0023 = ╱f21700╱ // 0x4a92 @0x23
0x4a6f…4a9d at0026 = ╱ee╱ ) ╱ // 0x4a95 @0x26
0x4a6f…4a9d at0027 = ╱ea╱ ; ╱ // 0x4a96 @0x27
0x4a6f…4a9d at0028 = ╱51╱Q╱ // 0x4a97 @0x28
0x4a6f…4a9d at0029 = ╱42╱B╱ // 0x4a98 @0x29
0x4a6f…4a9d at002a = ╱f0╱ := ╱ // 0x4a99 @0x2a
0x4a6f…4a9d at002b = ╱46╱F╱ // 0x4a9a @0x2b
0x4a6f…4a9d at002c = ╱53╱S╱ // 0x4a9b @0x2c
0x4a6f…4a9d at002d = EOL // 0x4a9c @0x2d
0x4a6f…4a9d }
0x4a9d…4aaa e098 04570 EXEC LSKRIV2
0x4a9d…4aaa LineComal80 {
0x4a9d…4aaa ptr = 0xe098 // 0x4a9d @0x0
0x4a9d…4aaa lno = 0x11da // 0x4a9f @0x2
0x4a9d…4aaa at0004 = ╱9d╱ EXEC ╱ // 0x4aa1 @0x4
0x4a9d…4aaa at0005 = ╱4c╱L╱ // 0x4aa2 @0x5
0x4a9d…4aaa at0006 = ╱53╱S╱ // 0x4aa3 @0x6
0x4a9d…4aaa at0007 = ╱4b╱K╱ // 0x4aa4 @0x7
0x4a9d…4aaa at0008 = ╱52╱R╱ // 0x4aa5 @0x8
0x4a9d…4aaa at0009 = ╱49╱I╱ // 0x4aa6 @0x9
0x4a9d…4aaa at000a = ╱56╱V╱ // 0x4aa7 @0xa
0x4a9d…4aaa at000b = ╱32╱2╱ // 0x4aa8 @0xb
0x4a9d…4aaa at000c = EOL // 0x4aa9 @0xc
0x4a9d…4aaa }
0x4aaa…4ad3 e0c1 04575 LET QT $ := SP $ ( 1 : 34 ) + LI $ ( 1 : 16 )
0x4aaa…4ad3 LineComal80 {
0x4aaa…4ad3 ptr = 0xe0c1 // 0x4aaa @0x0
0x4aaa…4ad3 lno = 0x11df // 0x4aac @0x2
0x4aaa…4ad3 at0004 = ╱86╱ LET ╱ // 0x4aae @0x4
0x4aaa…4ad3 at0005 = ╱51╱Q╱ // 0x4aaf @0x5
0x4aaa…4ad3 at0006 = ╱54╱T╱ // 0x4ab0 @0x6
0x4aaa…4ad3 at0007 = ╱ef╱ $ ╱ // 0x4ab1 @0x7
0x4aaa…4ad3 at0008 = ╱f0╱ := ╱ // 0x4ab2 @0x8
0x4aaa…4ad3 at0009 = ╱53╱S╱ // 0x4ab3 @0x9
0x4aaa…4ad3 at000a = ╱50╱P╱ // 0x4ab4 @0xa
0x4aaa…4ad3 at000b = ╱ef╱ $ ╱ // 0x4ab5 @0xb
0x4aaa…4ad3 at000c = ╱ed╱ ( ╱ // 0x4ab6 @0xc
0x4aaa…4ad3 at000d = ╱31╱1╱ // 0x4ab7 @0xd
0x4aaa…4ad3 at000e = ╱f20100╱ // 0x4ab8 @0xe
0x4aaa…4ad3 at0011 = ╱f1╱ : ╱ // 0x4abb @0x11
0x4aaa…4ad3 at0012 = ╱33╱3╱ // 0x4abc @0x12
0x4aaa…4ad3 at0013 = ╱34╱4╱ // 0x4abd @0x13
0x4aaa…4ad3 at0014 = ╱f22200╱ // 0x4abe @0x14
0x4aaa…4ad3 at0017 = ╱ee╱ ) ╱ // 0x4ac1 @0x17
0x4aaa…4ad3 at0018 = ╱eb╱ + ╱ // 0x4ac2 @0x18
0x4aaa…4ad3 at0019 = ╱4c╱L╱ // 0x4ac3 @0x19
0x4aaa…4ad3 at001a = ╱49╱I╱ // 0x4ac4 @0x1a
0x4aaa…4ad3 at001b = ╱ef╱ $ ╱ // 0x4ac5 @0x1b
0x4aaa…4ad3 at001c = ╱ed╱ ( ╱ // 0x4ac6 @0x1c
0x4aaa…4ad3 at001d = ╱31╱1╱ // 0x4ac7 @0x1d
0x4aaa…4ad3 at001e = ╱f20100╱ // 0x4ac8 @0x1e
0x4aaa…4ad3 at0021 = ╱f1╱ : ╱ // 0x4acb @0x21
0x4aaa…4ad3 at0022 = ╱31╱1╱ // 0x4acc @0x22
0x4aaa…4ad3 at0023 = ╱36╱6╱ // 0x4acd @0x23
0x4aaa…4ad3 at0024 = ╱f21000╱ // 0x4ace @0x24
0x4aaa…4ad3 at0027 = ╱ee╱ ) ╱ // 0x4ad1 @0x27
0x4aaa…4ad3 at0028 = EOL // 0x4ad2 @0x28
0x4aaa…4ad3 }
0x4ad3…4ae0 e0ce 04580 EXEC LSKRIV3
0x4ad3…4ae0 LineComal80 {
0x4ad3…4ae0 ptr = 0xe0ce // 0x4ad3 @0x0
0x4ad3…4ae0 lno = 0x11e4 // 0x4ad5 @0x2
0x4ad3…4ae0 at0004 = ╱9d╱ EXEC ╱ // 0x4ad7 @0x4
0x4ad3…4ae0 at0005 = ╱4c╱L╱ // 0x4ad8 @0x5
0x4ad3…4ae0 at0006 = ╱53╱S╱ // 0x4ad9 @0x6
0x4ad3…4ae0 at0007 = ╱4b╱K╱ // 0x4ada @0x7
0x4ad3…4ae0 at0008 = ╱52╱R╱ // 0x4adb @0x8
0x4ad3…4ae0 at0009 = ╱49╱I╱ // 0x4adc @0x9
0x4ad3…4ae0 at000a = ╱56╱V╱ // 0x4add @0xa
0x4ad3…4ae0 at000b = ╱33╱3╱ // 0x4ade @0xb
0x4ad3…4ae0 at000c = EOL // 0x4adf @0xc
0x4ad3…4ae0 }
0x4ae0…4b14 e102 04585 LET QT $ := "***…TOTALSKAT…" + PIL $ ( 1 : 20 ) ; QB := D6 + FS
0x4ae0…4b14 LineComal80 {
0x4ae0…4b14 ptr = 0xe102 // 0x4ae0 @0x0
0x4ae0…4b14 lno = 0x11e9 // 0x4ae2 @0x2
0x4ae0…4b14 at0004 = ╱86╱ LET ╱ // 0x4ae4 @0x4
0x4ae0…4b14 at0005 = ╱51╱Q╱ // 0x4ae5 @0x5
0x4ae0…4b14 at0006 = ╱54╱T╱ // 0x4ae6 @0x6
0x4ae0…4b14 at0007 = ╱ef╱ $ ╱ // 0x4ae7 @0x7
0x4ae0…4b14 at0008 = ╱f0╱ := ╱ // 0x4ae8 @0x8
0x4ae0…4b14 at0009 = ╱22╱"╱ // 0x4ae9 @0x9
0x4ae0…4b14 at000a = ╱2a╱*╱ // 0x4aea @0xa
0x4ae0…4b14 at000b = ╱2a╱*╱ // 0x4aeb @0xb
0x4ae0…4b14 at000c = ╱2a╱*╱ // 0x4aec @0xc
0x4ae0…4b14 at000d = ╱20╱…╱ // 0x4aed @0xd
0x4ae0…4b14 at000e = ╱54╱T╱ // 0x4aee @0xe
0x4ae0…4b14 at000f = ╱4f╱O╱ // 0x4aef @0xf
0x4ae0…4b14 at0010 = ╱54╱T╱ // 0x4af0 @0x10
0x4ae0…4b14 at0011 = ╱41╱A╱ // 0x4af1 @0x11
0x4ae0…4b14 at0012 = ╱4c╱L╱ // 0x4af2 @0x12
0x4ae0…4b14 at0013 = ╱53╱S╱ // 0x4af3 @0x13
0x4ae0…4b14 at0014 = ╱4b╱K╱ // 0x4af4 @0x14
0x4ae0…4b14 at0015 = ╱41╱A╱ // 0x4af5 @0x15
0x4ae0…4b14 at0016 = ╱54╱T╱ // 0x4af6 @0x16
0x4ae0…4b14 at0017 = ╱20╱…╱ // 0x4af7 @0x17
0x4ae0…4b14 at0018 = ╱22╱"╱ // 0x4af8 @0x18
0x4ae0…4b14 at0019 = ╱eb╱ + ╱ // 0x4af9 @0x19
0x4ae0…4b14 at001a = ╱50╱P╱ // 0x4afa @0x1a
0x4ae0…4b14 at001b = ╱49╱I╱ // 0x4afb @0x1b
0x4ae0…4b14 at001c = ╱4c╱L╱ // 0x4afc @0x1c
0x4ae0…4b14 at001d = ╱ef╱ $ ╱ // 0x4afd @0x1d
0x4ae0…4b14 at001e = ╱ed╱ ( ╱ // 0x4afe @0x1e
0x4ae0…4b14 at001f = ╱31╱1╱ // 0x4aff @0x1f
0x4ae0…4b14 at0020 = ╱f20100╱ // 0x4b00 @0x20
0x4ae0…4b14 at0023 = ╱f1╱ : ╱ // 0x4b03 @0x23
0x4ae0…4b14 at0024 = ╱32╱2╱ // 0x4b04 @0x24
0x4ae0…4b14 at0025 = ╱30╱0╱ // 0x4b05 @0x25
0x4ae0…4b14 at0026 = ╱f21400╱ // 0x4b06 @0x26
0x4ae0…4b14 at0029 = ╱ee╱ ) ╱ // 0x4b09 @0x29
0x4ae0…4b14 at002a = ╱ea╱ ; ╱ // 0x4b0a @0x2a
0x4ae0…4b14 at002b = ╱51╱Q╱ // 0x4b0b @0x2b
0x4ae0…4b14 at002c = ╱42╱B╱ // 0x4b0c @0x2c
0x4ae0…4b14 at002d = ╱f0╱ := ╱ // 0x4b0d @0x2d
0x4ae0…4b14 at002e = ╱44╱D╱ // 0x4b0e @0x2e
0x4ae0…4b14 at002f = ╱36╱6╱ // 0x4b0f @0x2f
0x4ae0…4b14 at0030 = ╱e5╱ + ╱ // 0x4b10 @0x30
0x4ae0…4b14 at0031 = ╱46╱F╱ // 0x4b11 @0x31
0x4ae0…4b14 at0032 = ╱53╱S╱ // 0x4b12 @0x32
0x4ae0…4b14 at0033 = EOL // 0x4b13 @0x33
0x4ae0…4b14 }
0x4b14…4b21 e10f 04590 EXEC LSKRIV2
0x4b14…4b21 LineComal80 {
0x4b14…4b21 ptr = 0xe10f // 0x4b14 @0x0
0x4b14…4b21 lno = 0x11ee // 0x4b16 @0x2
0x4b14…4b21 at0004 = ╱9d╱ EXEC ╱ // 0x4b18 @0x4
0x4b14…4b21 at0005 = ╱4c╱L╱ // 0x4b19 @0x5
0x4b14…4b21 at0006 = ╱53╱S╱ // 0x4b1a @0x6
0x4b14…4b21 at0007 = ╱4b╱K╱ // 0x4b1b @0x7
0x4b14…4b21 at0008 = ╱52╱R╱ // 0x4b1c @0x8
0x4b14…4b21 at0009 = ╱49╱I╱ // 0x4b1d @0x9
0x4b14…4b21 at000a = ╱56╱V╱ // 0x4b1e @0xa
0x4b14…4b21 at000b = ╱32╱2╱ // 0x4b1f @0xb
0x4b14…4b21 at000c = EOL // 0x4b20 @0xc
0x4b14…4b21 }
0x4b21…4b27 e115 04595 ENDIF
0x4b21…4b27 LineComal80 {
0x4b21…4b27 ptr = 0xe115 // 0x4b21 @0x0
0x4b21…4b27 lno = 0x11f3 // 0x4b23 @0x2
0x4b21…4b27 at0004 = ╱9c╱ ENDIF ╱ // 0x4b25 @0x4
0x4b21…4b27 at0005 = EOL // 0x4b26 @0x5
0x4b21…4b27 }
0x4b27…4b53 e141 04600 LET QT $ := SP $ ( 1 : 34 ) + "================"
0x4b27…4b53 LineComal80 {
0x4b27…4b53 ptr = 0xe141 // 0x4b27 @0x0
0x4b27…4b53 lno = 0x11f8 // 0x4b29 @0x2
0x4b27…4b53 at0004 = ╱86╱ LET ╱ // 0x4b2b @0x4
0x4b27…4b53 at0005 = ╱51╱Q╱ // 0x4b2c @0x5
0x4b27…4b53 at0006 = ╱54╱T╱ // 0x4b2d @0x6
0x4b27…4b53 at0007 = ╱ef╱ $ ╱ // 0x4b2e @0x7
0x4b27…4b53 at0008 = ╱f0╱ := ╱ // 0x4b2f @0x8
0x4b27…4b53 at0009 = ╱53╱S╱ // 0x4b30 @0x9
0x4b27…4b53 at000a = ╱50╱P╱ // 0x4b31 @0xa
0x4b27…4b53 at000b = ╱ef╱ $ ╱ // 0x4b32 @0xb
0x4b27…4b53 at000c = ╱ed╱ ( ╱ // 0x4b33 @0xc
0x4b27…4b53 at000d = ╱31╱1╱ // 0x4b34 @0xd
0x4b27…4b53 at000e = ╱f20100╱ // 0x4b35 @0xe
0x4b27…4b53 at0011 = ╱f1╱ : ╱ // 0x4b38 @0x11
0x4b27…4b53 at0012 = ╱33╱3╱ // 0x4b39 @0x12
0x4b27…4b53 at0013 = ╱34╱4╱ // 0x4b3a @0x13
0x4b27…4b53 at0014 = ╱f22200╱ // 0x4b3b @0x14
0x4b27…4b53 at0017 = ╱ee╱ ) ╱ // 0x4b3e @0x17
0x4b27…4b53 at0018 = ╱eb╱ + ╱ // 0x4b3f @0x18
0x4b27…4b53 at0019 = ╱22╱"╱ // 0x4b40 @0x19
0x4b27…4b53 at001a = ╱3d╱=╱ // 0x4b41 @0x1a
0x4b27…4b53 at001b = ╱3d╱=╱ // 0x4b42 @0x1b
0x4b27…4b53 at001c = ╱3d╱=╱ // 0x4b43 @0x1c
0x4b27…4b53 at001d = ╱3d╱=╱ // 0x4b44 @0x1d
0x4b27…4b53 at001e = ╱3d╱=╱ // 0x4b45 @0x1e
0x4b27…4b53 at001f = ╱3d╱=╱ // 0x4b46 @0x1f
0x4b27…4b53 at0020 = ╱3d╱=╱ // 0x4b47 @0x20
0x4b27…4b53 at0021 = ╱3d╱=╱ // 0x4b48 @0x21
0x4b27…4b53 at0022 = ╱3d╱=╱ // 0x4b49 @0x22
0x4b27…4b53 at0023 = ╱3d╱=╱ // 0x4b4a @0x23
0x4b27…4b53 at0024 = ╱3d╱=╱ // 0x4b4b @0x24
0x4b27…4b53 at0025 = ╱3d╱=╱ // 0x4b4c @0x25
0x4b27…4b53 at0026 = ╱3d╱=╱ // 0x4b4d @0x26
0x4b27…4b53 at0027 = ╱3d╱=╱ // 0x4b4e @0x27
0x4b27…4b53 at0028 = ╱3d╱=╱ // 0x4b4f @0x28
0x4b27…4b53 at0029 = ╱3d╱=╱ // 0x4b50 @0x29
0x4b27…4b53 at002a = ╱22╱"╱ // 0x4b51 @0x2a
0x4b27…4b53 at002b = EOL // 0x4b52 @0x2b
0x4b27…4b53 }
0x4b53…4b60 e14e 04605 EXEC LSKRIV3
0x4b53…4b60 LineComal80 {
0x4b53…4b60 ptr = 0xe14e // 0x4b53 @0x0
0x4b53…4b60 lno = 0x11fd // 0x4b55 @0x2
0x4b53…4b60 at0004 = ╱9d╱ EXEC ╱ // 0x4b57 @0x4
0x4b53…4b60 at0005 = ╱4c╱L╱ // 0x4b58 @0x5
0x4b53…4b60 at0006 = ╱53╱S╱ // 0x4b59 @0x6
0x4b53…4b60 at0007 = ╱4b╱K╱ // 0x4b5a @0x7
0x4b53…4b60 at0008 = ╱52╱R╱ // 0x4b5b @0x8
0x4b53…4b60 at0009 = ╱49╱I╱ // 0x4b5c @0x9
0x4b53…4b60 at000a = ╱56╱V╱ // 0x4b5d @0xa
0x4b53…4b60 at000b = ╱33╱3╱ // 0x4b5e @0xb
0x4b53…4b60 at000c = EOL // 0x4b5f @0xc
0x4b53…4b60 }
0x4b60…4b6b e159 04610 ENDPROC FSKAT
0x4b60…4b6b LineComal80 {
0x4b60…4b6b ptr = 0xe159 // 0x4b60 @0x0
0x4b60…4b6b lno = 0x1202 // 0x4b62 @0x2
0x4b60…4b6b at0004 = ╱9f╱ ENDPROC ╱ // 0x4b64 @0x4
0x4b60…4b6b at0005 = ╱46╱F╱ // 0x4b65 @0x5
0x4b60…4b6b at0006 = ╱53╱S╱ // 0x4b66 @0x6
0x4b60…4b6b at0007 = ╱4b╱K╱ // 0x4b67 @0x7
0x4b60…4b6b at0008 = ╱41╱A╱ // 0x4b68 @0x8
0x4b60…4b6b at0009 = ╱54╱T╱ // 0x4b69 @0x9
0x4b60…4b6b at000a = EOL // 0x4b6a @0xa
0x4b60…4b6b }
0x4b6b…4b79 e167 04615 PROC SKATPRO
0x4b6b…4b79 LineComal80 {
0x4b6b…4b79 ptr = 0xe167 // 0x4b6b @0x0
0x4b6b…4b79 lno = 0x1207 // 0x4b6d @0x2
0x4b6b…4b79 at0004 = ╱9e00╱ PROC ╱ // 0x4b6f @0x4
0x4b6b…4b79 at0006 = ╱53╱S╱ // 0x4b71 @0x6
0x4b6b…4b79 at0007 = ╱4b╱K╱ // 0x4b72 @0x7
0x4b6b…4b79 at0008 = ╱41╱A╱ // 0x4b73 @0x8
0x4b6b…4b79 at0009 = ╱54╱T╱ // 0x4b74 @0x9
0x4b6b…4b79 at000a = ╱50╱P╱ // 0x4b75 @0xa
0x4b6b…4b79 at000b = ╱52╱R╱ // 0x4b76 @0xb
0x4b6b…4b79 at000c = ╱4f╱O╱ // 0x4b77 @0xc
0x4b6b…4b79 at000d = EOL // 0x4b78 @0xd
0x4b6b…4b79 }
0x4b79…4ba6 e194 04620 LET QT $ := "Kommuneskatteprocent…………………" ; QB := P7
0x4b79…4ba6 LineComal80 {
0x4b79…4ba6 ptr = 0xe194 // 0x4b79 @0x0
0x4b79…4ba6 lno = 0x120c // 0x4b7b @0x2
0x4b79…4ba6 at0004 = ╱86╱ LET ╱ // 0x4b7d @0x4
0x4b79…4ba6 at0005 = ╱51╱Q╱ // 0x4b7e @0x5
0x4b79…4ba6 at0006 = ╱54╱T╱ // 0x4b7f @0x6
0x4b79…4ba6 at0007 = ╱ef╱ $ ╱ // 0x4b80 @0x7
0x4b79…4ba6 at0008 = ╱f0╱ := ╱ // 0x4b81 @0x8
0x4b79…4ba6 at0009 = ╱22╱"╱ // 0x4b82 @0x9
0x4b79…4ba6 at000a = ╱4b╱K╱ // 0x4b83 @0xa
0x4b79…4ba6 at000b = ╱6f╱o╱ // 0x4b84 @0xb
0x4b79…4ba6 at000c = ╱6d╱m╱ // 0x4b85 @0xc
0x4b79…4ba6 at000d = ╱6d╱m╱ // 0x4b86 @0xd
0x4b79…4ba6 at000e = ╱75╱u╱ // 0x4b87 @0xe
0x4b79…4ba6 at000f = ╱6e╱n╱ // 0x4b88 @0xf
0x4b79…4ba6 at0010 = ╱65╱e╱ // 0x4b89 @0x10
0x4b79…4ba6 at0011 = ╱73╱s╱ // 0x4b8a @0x11
0x4b79…4ba6 at0012 = ╱6b╱k╱ // 0x4b8b @0x12
0x4b79…4ba6 at0013 = ╱61╱a╱ // 0x4b8c @0x13
0x4b79…4ba6 at0014 = ╱74╱t╱ // 0x4b8d @0x14
0x4b79…4ba6 at0015 = ╱74╱t╱ // 0x4b8e @0x15
0x4b79…4ba6 at0016 = ╱65╱e╱ // 0x4b8f @0x16
0x4b79…4ba6 at0017 = ╱70╱p╱ // 0x4b90 @0x17
0x4b79…4ba6 at0018 = ╱72╱r╱ // 0x4b91 @0x18
0x4b79…4ba6 at0019 = ╱6f╱o╱ // 0x4b92 @0x19
0x4b79…4ba6 at001a = ╱63╱c╱ // 0x4b93 @0x1a
0x4b79…4ba6 at001b = ╱65╱e╱ // 0x4b94 @0x1b
0x4b79…4ba6 at001c = ╱6e╱n╱ // 0x4b95 @0x1c
0x4b79…4ba6 at001d = ╱74╱t╱ // 0x4b96 @0x1d
0x4b79…4ba6 at001e = ╱20╱…╱ // 0x4b97 @0x1e
0x4b79…4ba6 at001f = ╱20╱…╱ // 0x4b98 @0x1f
0x4b79…4ba6 at0020 = ╱20╱…╱ // 0x4b99 @0x20
0x4b79…4ba6 at0021 = ╱20╱…╱ // 0x4b9a @0x21
0x4b79…4ba6 at0022 = ╱20╱…╱ // 0x4b9b @0x22
0x4b79…4ba6 at0023 = ╱20╱…╱ // 0x4b9c @0x23
0x4b79…4ba6 at0024 = ╱20╱…╱ // 0x4b9d @0x24
0x4b79…4ba6 at0025 = ╱22╱"╱ // 0x4b9e @0x25
0x4b79…4ba6 at0026 = ╱ea╱ ; ╱ // 0x4b9f @0x26
0x4b79…4ba6 at0027 = ╱51╱Q╱ // 0x4ba0 @0x27
0x4b79…4ba6 at0028 = ╱42╱B╱ // 0x4ba1 @0x28
0x4b79…4ba6 at0029 = ╱f0╱ := ╱ // 0x4ba2 @0x29
0x4b79…4ba6 at002a = ╱50╱P╱ // 0x4ba3 @0x2a
0x4b79…4ba6 at002b = ╱37╱7╱ // 0x4ba4 @0x2b
0x4b79…4ba6 at002c = EOL // 0x4ba5 @0x2c
0x4b79…4ba6 }
0x4ba6…4bb3 e1a1 04625 EXEC LSKRIV4
0x4ba6…4bb3 LineComal80 {
0x4ba6…4bb3 ptr = 0xe1a1 // 0x4ba6 @0x0
0x4ba6…4bb3 lno = 0x1211 // 0x4ba8 @0x2
0x4ba6…4bb3 at0004 = ╱9d╱ EXEC ╱ // 0x4baa @0x4
0x4ba6…4bb3 at0005 = ╱4c╱L╱ // 0x4bab @0x5
0x4ba6…4bb3 at0006 = ╱53╱S╱ // 0x4bac @0x6
0x4ba6…4bb3 at0007 = ╱4b╱K╱ // 0x4bad @0x7
0x4ba6…4bb3 at0008 = ╱52╱R╱ // 0x4bae @0x8
0x4ba6…4bb3 at0009 = ╱49╱I╱ // 0x4baf @0x9
0x4ba6…4bb3 at000a = ╱56╱V╱ // 0x4bb0 @0xa
0x4ba6…4bb3 at000b = ╱34╱4╱ // 0x4bb1 @0xb
0x4ba6…4bb3 at000c = EOL // 0x4bb2 @0xc
0x4ba6…4bb3 }
0x4bb3…4be0 e1ce 04630 LET QT $ := "Amtskommunal…skatteprocent…" ; QB := P8
0x4bb3…4be0 LineComal80 {
0x4bb3…4be0 ptr = 0xe1ce // 0x4bb3 @0x0
0x4bb3…4be0 lno = 0x1216 // 0x4bb5 @0x2
0x4bb3…4be0 at0004 = ╱86╱ LET ╱ // 0x4bb7 @0x4
0x4bb3…4be0 at0005 = ╱51╱Q╱ // 0x4bb8 @0x5
0x4bb3…4be0 at0006 = ╱54╱T╱ // 0x4bb9 @0x6
0x4bb3…4be0 at0007 = ╱ef╱ $ ╱ // 0x4bba @0x7
0x4bb3…4be0 at0008 = ╱f0╱ := ╱ // 0x4bbb @0x8
0x4bb3…4be0 at0009 = ╱22╱"╱ // 0x4bbc @0x9
0x4bb3…4be0 at000a = ╱41╱A╱ // 0x4bbd @0xa
0x4bb3…4be0 at000b = ╱6d╱m╱ // 0x4bbe @0xb
0x4bb3…4be0 at000c = ╱74╱t╱ // 0x4bbf @0xc
0x4bb3…4be0 at000d = ╱73╱s╱ // 0x4bc0 @0xd
0x4bb3…4be0 at000e = ╱6b╱k╱ // 0x4bc1 @0xe
0x4bb3…4be0 at000f = ╱6f╱o╱ // 0x4bc2 @0xf
0x4bb3…4be0 at0010 = ╱6d╱m╱ // 0x4bc3 @0x10
0x4bb3…4be0 at0011 = ╱6d╱m╱ // 0x4bc4 @0x11
0x4bb3…4be0 at0012 = ╱75╱u╱ // 0x4bc5 @0x12
0x4bb3…4be0 at0013 = ╱6e╱n╱ // 0x4bc6 @0x13
0x4bb3…4be0 at0014 = ╱61╱a╱ // 0x4bc7 @0x14
0x4bb3…4be0 at0015 = ╱6c╱l╱ // 0x4bc8 @0x15
0x4bb3…4be0 at0016 = ╱20╱…╱ // 0x4bc9 @0x16
0x4bb3…4be0 at0017 = ╱73╱s╱ // 0x4bca @0x17
0x4bb3…4be0 at0018 = ╱6b╱k╱ // 0x4bcb @0x18
0x4bb3…4be0 at0019 = ╱61╱a╱ // 0x4bcc @0x19
0x4bb3…4be0 at001a = ╱74╱t╱ // 0x4bcd @0x1a
0x4bb3…4be0 at001b = ╱74╱t╱ // 0x4bce @0x1b
0x4bb3…4be0 at001c = ╱65╱e╱ // 0x4bcf @0x1c
0x4bb3…4be0 at001d = ╱70╱p╱ // 0x4bd0 @0x1d
0x4bb3…4be0 at001e = ╱72╱r╱ // 0x4bd1 @0x1e
0x4bb3…4be0 at001f = ╱6f╱o╱ // 0x4bd2 @0x1f
0x4bb3…4be0 at0020 = ╱63╱c╱ // 0x4bd3 @0x20
0x4bb3…4be0 at0021 = ╱65╱e╱ // 0x4bd4 @0x21
0x4bb3…4be0 at0022 = ╱6e╱n╱ // 0x4bd5 @0x22
0x4bb3…4be0 at0023 = ╱74╱t╱ // 0x4bd6 @0x23
0x4bb3…4be0 at0024 = ╱20╱…╱ // 0x4bd7 @0x24
0x4bb3…4be0 at0025 = ╱22╱"╱ // 0x4bd8 @0x25
0x4bb3…4be0 at0026 = ╱ea╱ ; ╱ // 0x4bd9 @0x26
0x4bb3…4be0 at0027 = ╱51╱Q╱ // 0x4bda @0x27
0x4bb3…4be0 at0028 = ╱42╱B╱ // 0x4bdb @0x28
0x4bb3…4be0 at0029 = ╱f0╱ := ╱ // 0x4bdc @0x29
0x4bb3…4be0 at002a = ╱50╱P╱ // 0x4bdd @0x2a
0x4bb3…4be0 at002b = ╱38╱8╱ // 0x4bde @0x2b
0x4bb3…4be0 at002c = EOL // 0x4bdf @0x2c
0x4bb3…4be0 }
0x4be0…4bed e1db 04635 EXEC LSKRIV4
0x4be0…4bed LineComal80 {
0x4be0…4bed ptr = 0xe1db // 0x4be0 @0x0
0x4be0…4bed lno = 0x121b // 0x4be2 @0x2
0x4be0…4bed at0004 = ╱9d╱ EXEC ╱ // 0x4be4 @0x4
0x4be0…4bed at0005 = ╱4c╱L╱ // 0x4be5 @0x5
0x4be0…4bed at0006 = ╱53╱S╱ // 0x4be6 @0x6
0x4be0…4bed at0007 = ╱4b╱K╱ // 0x4be7 @0x7
0x4be0…4bed at0008 = ╱52╱R╱ // 0x4be8 @0x8
0x4be0…4bed at0009 = ╱49╱I╱ // 0x4be9 @0x9
0x4be0…4bed at000a = ╱56╱V╱ // 0x4bea @0xa
0x4be0…4bed at000b = ╱34╱4╱ // 0x4beb @0xb
0x4be0…4bed at000c = EOL // 0x4bec @0xc
0x4be0…4bed }
0x4bed…4c1a e208 04640 LET QT $ := "Kirkeskatteprocent………………………" ; QB := P9
0x4bed…4c1a LineComal80 {
0x4bed…4c1a ptr = 0xe208 // 0x4bed @0x0
0x4bed…4c1a lno = 0x1220 // 0x4bef @0x2
0x4bed…4c1a at0004 = ╱86╱ LET ╱ // 0x4bf1 @0x4
0x4bed…4c1a at0005 = ╱51╱Q╱ // 0x4bf2 @0x5
0x4bed…4c1a at0006 = ╱54╱T╱ // 0x4bf3 @0x6
0x4bed…4c1a at0007 = ╱ef╱ $ ╱ // 0x4bf4 @0x7
0x4bed…4c1a at0008 = ╱f0╱ := ╱ // 0x4bf5 @0x8
0x4bed…4c1a at0009 = ╱22╱"╱ // 0x4bf6 @0x9
0x4bed…4c1a at000a = ╱4b╱K╱ // 0x4bf7 @0xa
0x4bed…4c1a at000b = ╱69╱i╱ // 0x4bf8 @0xb
0x4bed…4c1a at000c = ╱72╱r╱ // 0x4bf9 @0xc
0x4bed…4c1a at000d = ╱6b╱k╱ // 0x4bfa @0xd
0x4bed…4c1a at000e = ╱65╱e╱ // 0x4bfb @0xe
0x4bed…4c1a at000f = ╱73╱s╱ // 0x4bfc @0xf
0x4bed…4c1a at0010 = ╱6b╱k╱ // 0x4bfd @0x10
0x4bed…4c1a at0011 = ╱61╱a╱ // 0x4bfe @0x11
0x4bed…4c1a at0012 = ╱74╱t╱ // 0x4bff @0x12
0x4bed…4c1a at0013 = ╱74╱t╱ // 0x4c00 @0x13
0x4bed…4c1a at0014 = ╱65╱e╱ // 0x4c01 @0x14
0x4bed…4c1a at0015 = ╱70╱p╱ // 0x4c02 @0x15
0x4bed…4c1a at0016 = ╱72╱r╱ // 0x4c03 @0x16
0x4bed…4c1a at0017 = ╱6f╱o╱ // 0x4c04 @0x17
0x4bed…4c1a at0018 = ╱63╱c╱ // 0x4c05 @0x18
0x4bed…4c1a at0019 = ╱65╱e╱ // 0x4c06 @0x19
0x4bed…4c1a at001a = ╱6e╱n╱ // 0x4c07 @0x1a
0x4bed…4c1a at001b = ╱74╱t╱ // 0x4c08 @0x1b
0x4bed…4c1a at001c = ╱20╱…╱ // 0x4c09 @0x1c
0x4bed…4c1a at001d = ╱20╱…╱ // 0x4c0a @0x1d
0x4bed…4c1a at001e = ╱20╱…╱ // 0x4c0b @0x1e
0x4bed…4c1a at001f = ╱20╱…╱ // 0x4c0c @0x1f
0x4bed…4c1a at0020 = ╱20╱…╱ // 0x4c0d @0x20
0x4bed…4c1a at0021 = ╱20╱…╱ // 0x4c0e @0x21
0x4bed…4c1a at0022 = ╱20╱…╱ // 0x4c0f @0x22
0x4bed…4c1a at0023 = ╱20╱…╱ // 0x4c10 @0x23
0x4bed…4c1a at0024 = ╱20╱…╱ // 0x4c11 @0x24
0x4bed…4c1a at0025 = ╱22╱"╱ // 0x4c12 @0x25
0x4bed…4c1a at0026 = ╱ea╱ ; ╱ // 0x4c13 @0x26
0x4bed…4c1a at0027 = ╱51╱Q╱ // 0x4c14 @0x27
0x4bed…4c1a at0028 = ╱42╱B╱ // 0x4c15 @0x28
0x4bed…4c1a at0029 = ╱f0╱ := ╱ // 0x4c16 @0x29
0x4bed…4c1a at002a = ╱50╱P╱ // 0x4c17 @0x2a
0x4bed…4c1a at002b = ╱39╱9╱ // 0x4c18 @0x2b
0x4bed…4c1a at002c = EOL // 0x4c19 @0x2c
0x4bed…4c1a }
0x4c1a…4c27 e215 04645 EXEC LSKRIV4
0x4c1a…4c27 LineComal80 {
0x4c1a…4c27 ptr = 0xe215 // 0x4c1a @0x0
0x4c1a…4c27 lno = 0x1225 // 0x4c1c @0x2
0x4c1a…4c27 at0004 = ╱9d╱ EXEC ╱ // 0x4c1e @0x4
0x4c1a…4c27 at0005 = ╱4c╱L╱ // 0x4c1f @0x5
0x4c1a…4c27 at0006 = ╱53╱S╱ // 0x4c20 @0x6
0x4c1a…4c27 at0007 = ╱4b╱K╱ // 0x4c21 @0x7
0x4c1a…4c27 at0008 = ╱52╱R╱ // 0x4c22 @0x8
0x4c1a…4c27 at0009 = ╱49╱I╱ // 0x4c23 @0x9
0x4c1a…4c27 at000a = ╱56╱V╱ // 0x4c24 @0xa
0x4c1a…4c27 at000b = ╱34╱4╱ // 0x4c25 @0xb
0x4c1a…4c27 at000c = EOL // 0x4c26 @0xc
0x4c1a…4c27 }
0x4c27…4c33 e221 04650 IF 1 >< O THEN
0x4c27…4c33 LineComal80 {
0x4c27…4c33 ptr = 0xe221 // 0x4c27 @0x0
0x4c27…4c33 lno = 0x122a // 0x4c29 @0x2
0x4c27…4c33 at0004 = ╱9b0054╱ IF ╱ // 0x4c2b @0x4
0x4c27…4c33 at0007 = ╱31╱1╱ // 0x4c2e @0x7
0x4c27…4c33 at0008 = ╱e4╱ >< ╱ // 0x4c2f @0x8
0x4c27…4c33 at0009 = ╱4f╱O╱ // 0x4c30 @0x9
0x4c27…4c33 at000a = ╱b5╱ THEN ╱ // 0x4c31 @0xa
0x4c27…4c33 at000b = EOL // 0x4c32 @0xb
0x4c27…4c33 }
0x4c33…4c7a e268 04655 LET QT $ := "Hovedpersonen…er…beregnet…med…personfradrag…som…pensionist."
0x4c33…4c7a LineComal80 {
0x4c33…4c7a ptr = 0xe268 // 0x4c33 @0x0
0x4c33…4c7a lno = 0x122f // 0x4c35 @0x2
0x4c33…4c7a at0004 = ╱86╱ LET ╱ // 0x4c37 @0x4
0x4c33…4c7a at0005 = ╱51╱Q╱ // 0x4c38 @0x5
0x4c33…4c7a at0006 = ╱54╱T╱ // 0x4c39 @0x6
0x4c33…4c7a at0007 = ╱ef╱ $ ╱ // 0x4c3a @0x7
0x4c33…4c7a at0008 = ╱f0╱ := ╱ // 0x4c3b @0x8
0x4c33…4c7a at0009 = ╱22╱"╱ // 0x4c3c @0x9
0x4c33…4c7a at000a = ╱48╱H╱ // 0x4c3d @0xa
0x4c33…4c7a at000b = ╱6f╱o╱ // 0x4c3e @0xb
0x4c33…4c7a at000c = ╱76╱v╱ // 0x4c3f @0xc
0x4c33…4c7a at000d = ╱65╱e╱ // 0x4c40 @0xd
0x4c33…4c7a at000e = ╱64╱d╱ // 0x4c41 @0xe
0x4c33…4c7a at000f = ╱70╱p╱ // 0x4c42 @0xf
0x4c33…4c7a at0010 = ╱65╱e╱ // 0x4c43 @0x10
0x4c33…4c7a at0011 = ╱72╱r╱ // 0x4c44 @0x11
0x4c33…4c7a at0012 = ╱73╱s╱ // 0x4c45 @0x12
0x4c33…4c7a at0013 = ╱6f╱o╱ // 0x4c46 @0x13
0x4c33…4c7a at0014 = ╱6e╱n╱ // 0x4c47 @0x14
0x4c33…4c7a at0015 = ╱65╱e╱ // 0x4c48 @0x15
0x4c33…4c7a at0016 = ╱6e╱n╱ // 0x4c49 @0x16
0x4c33…4c7a at0017 = ╱20╱…╱ // 0x4c4a @0x17
0x4c33…4c7a at0018 = ╱65╱e╱ // 0x4c4b @0x18
0x4c33…4c7a at0019 = ╱72╱r╱ // 0x4c4c @0x19
0x4c33…4c7a at001a = ╱20╱…╱ // 0x4c4d @0x1a
0x4c33…4c7a at001b = ╱62╱b╱ // 0x4c4e @0x1b
0x4c33…4c7a at001c = ╱65╱e╱ // 0x4c4f @0x1c
0x4c33…4c7a at001d = ╱72╱r╱ // 0x4c50 @0x1d
0x4c33…4c7a at001e = ╱65╱e╱ // 0x4c51 @0x1e
0x4c33…4c7a at001f = ╱67╱g╱ // 0x4c52 @0x1f
0x4c33…4c7a at0020 = ╱6e╱n╱ // 0x4c53 @0x20
0x4c33…4c7a at0021 = ╱65╱e╱ // 0x4c54 @0x21
0x4c33…4c7a at0022 = ╱74╱t╱ // 0x4c55 @0x22
0x4c33…4c7a at0023 = ╱20╱…╱ // 0x4c56 @0x23
0x4c33…4c7a at0024 = ╱6d╱m╱ // 0x4c57 @0x24
0x4c33…4c7a at0025 = ╱65╱e╱ // 0x4c58 @0x25
0x4c33…4c7a at0026 = ╱64╱d╱ // 0x4c59 @0x26
0x4c33…4c7a at0027 = ╱20╱…╱ // 0x4c5a @0x27
0x4c33…4c7a at0028 = ╱70╱p╱ // 0x4c5b @0x28
0x4c33…4c7a at0029 = ╱65╱e╱ // 0x4c5c @0x29
0x4c33…4c7a at002a = ╱72╱r╱ // 0x4c5d @0x2a
0x4c33…4c7a at002b = ╱73╱s╱ // 0x4c5e @0x2b
0x4c33…4c7a at002c = ╱6f╱o╱ // 0x4c5f @0x2c
0x4c33…4c7a at002d = ╱6e╱n╱ // 0x4c60 @0x2d
0x4c33…4c7a at002e = ╱66╱f╱ // 0x4c61 @0x2e
0x4c33…4c7a at002f = ╱72╱r╱ // 0x4c62 @0x2f
0x4c33…4c7a at0030 = ╱61╱a╱ // 0x4c63 @0x30
0x4c33…4c7a at0031 = ╱64╱d╱ // 0x4c64 @0x31
0x4c33…4c7a at0032 = ╱72╱r╱ // 0x4c65 @0x32
0x4c33…4c7a at0033 = ╱61╱a╱ // 0x4c66 @0x33
0x4c33…4c7a at0034 = ╱67╱g╱ // 0x4c67 @0x34
0x4c33…4c7a at0035 = ╱20╱…╱ // 0x4c68 @0x35
0x4c33…4c7a at0036 = ╱73╱s╱ // 0x4c69 @0x36
0x4c33…4c7a at0037 = ╱6f╱o╱ // 0x4c6a @0x37
0x4c33…4c7a at0038 = ╱6d╱m╱ // 0x4c6b @0x38
0x4c33…4c7a at0039 = ╱20╱…╱ // 0x4c6c @0x39
0x4c33…4c7a at003a = ╱70╱p╱ // 0x4c6d @0x3a
0x4c33…4c7a at003b = ╱65╱e╱ // 0x4c6e @0x3b
0x4c33…4c7a at003c = ╱6e╱n╱ // 0x4c6f @0x3c
0x4c33…4c7a at003d = ╱73╱s╱ // 0x4c70 @0x3d
0x4c33…4c7a at003e = ╱69╱i╱ // 0x4c71 @0x3e
0x4c33…4c7a at003f = ╱6f╱o╱ // 0x4c72 @0x3f
0x4c33…4c7a at0040 = ╱6e╱n╱ // 0x4c73 @0x40
0x4c33…4c7a at0041 = ╱69╱i╱ // 0x4c74 @0x41
0x4c33…4c7a at0042 = ╱73╱s╱ // 0x4c75 @0x42
0x4c33…4c7a at0043 = ╱74╱t╱ // 0x4c76 @0x43
0x4c33…4c7a at0044 = ╱2e╱.╱ // 0x4c77 @0x44
0x4c33…4c7a at0045 = ╱22╱"╱ // 0x4c78 @0x45
0x4c33…4c7a at0046 = EOL // 0x4c79 @0x46
0x4c33…4c7a }
0x4c7a…4c87 e275 04660 EXEC LSKRIV3
0x4c7a…4c87 LineComal80 {
0x4c7a…4c87 ptr = 0xe275 // 0x4c7a @0x0
0x4c7a…4c87 lno = 0x1234 // 0x4c7c @0x2
0x4c7a…4c87 at0004 = ╱9d╱ EXEC ╱ // 0x4c7e @0x4
0x4c7a…4c87 at0005 = ╱4c╱L╱ // 0x4c7f @0x5
0x4c7a…4c87 at0006 = ╱53╱S╱ // 0x4c80 @0x6
0x4c7a…4c87 at0007 = ╱4b╱K╱ // 0x4c81 @0x7
0x4c7a…4c87 at0008 = ╱52╱R╱ // 0x4c82 @0x8
0x4c7a…4c87 at0009 = ╱49╱I╱ // 0x4c83 @0x9
0x4c7a…4c87 at000a = ╱56╱V╱ // 0x4c84 @0xa
0x4c7a…4c87 at000b = ╱33╱3╱ // 0x4c85 @0xb
0x4c7a…4c87 at000c = EOL // 0x4c86 @0xc
0x4c7a…4c87 }
0x4c87…4c8d e27b 04665 ENDIF
0x4c87…4c8d LineComal80 {
0x4c87…4c8d ptr = 0xe27b // 0x4c87 @0x0
0x4c87…4c8d lno = 0x1239 // 0x4c89 @0x2
0x4c87…4c8d at0004 = ╱9c╱ ENDIF ╱ // 0x4c8b @0x4
0x4c87…4c8d at0005 = EOL // 0x4c8c @0x5
0x4c87…4c8d }
0x4c8d…4c99 e287 04670 IF 3 >< O THEN
0x4c8d…4c99 LineComal80 {
0x4c8d…4c99 ptr = 0xe287 // 0x4c8d @0x0
0x4c8d…4c99 lno = 0x123e // 0x4c8f @0x2
0x4c8d…4c99 at0004 = ╱9b0054╱ IF ╱ // 0x4c91 @0x4
0x4c8d…4c99 at0007 = ╱33╱3╱ // 0x4c94 @0x7
0x4c8d…4c99 at0008 = ╱e4╱ >< ╱ // 0x4c95 @0x8
0x4c8d…4c99 at0009 = ╱4f╱O╱ // 0x4c96 @0x9
0x4c8d…4c99 at000a = ╱b5╱ THEN ╱ // 0x4c97 @0xa
0x4c8d…4c99 at000b = EOL // 0x4c98 @0xb
0x4c8d…4c99 }
0x4c99…4ce3 e2d1 04675 LET QT $ := "Den…gifte…kvinde…er…beregnet…med…personfradrag…som…pensionist."
0x4c99…4ce3 LineComal80 {
0x4c99…4ce3 ptr = 0xe2d1 // 0x4c99 @0x0
0x4c99…4ce3 lno = 0x1243 // 0x4c9b @0x2
0x4c99…4ce3 at0004 = ╱86╱ LET ╱ // 0x4c9d @0x4
0x4c99…4ce3 at0005 = ╱51╱Q╱ // 0x4c9e @0x5
0x4c99…4ce3 at0006 = ╱54╱T╱ // 0x4c9f @0x6
0x4c99…4ce3 at0007 = ╱ef╱ $ ╱ // 0x4ca0 @0x7
0x4c99…4ce3 at0008 = ╱f0╱ := ╱ // 0x4ca1 @0x8
0x4c99…4ce3 at0009 = ╱22╱"╱ // 0x4ca2 @0x9
0x4c99…4ce3 at000a = ╱44╱D╱ // 0x4ca3 @0xa
0x4c99…4ce3 at000b = ╱65╱e╱ // 0x4ca4 @0xb
0x4c99…4ce3 at000c = ╱6e╱n╱ // 0x4ca5 @0xc
0x4c99…4ce3 at000d = ╱20╱…╱ // 0x4ca6 @0xd
0x4c99…4ce3 at000e = ╱67╱g╱ // 0x4ca7 @0xe
0x4c99…4ce3 at000f = ╱69╱i╱ // 0x4ca8 @0xf
0x4c99…4ce3 at0010 = ╱66╱f╱ // 0x4ca9 @0x10
0x4c99…4ce3 at0011 = ╱74╱t╱ // 0x4caa @0x11
0x4c99…4ce3 at0012 = ╱65╱e╱ // 0x4cab @0x12
0x4c99…4ce3 at0013 = ╱20╱…╱ // 0x4cac @0x13
0x4c99…4ce3 at0014 = ╱6b╱k╱ // 0x4cad @0x14
0x4c99…4ce3 at0015 = ╱76╱v╱ // 0x4cae @0x15
0x4c99…4ce3 at0016 = ╱69╱i╱ // 0x4caf @0x16
0x4c99…4ce3 at0017 = ╱6e╱n╱ // 0x4cb0 @0x17
0x4c99…4ce3 at0018 = ╱64╱d╱ // 0x4cb1 @0x18
0x4c99…4ce3 at0019 = ╱65╱e╱ // 0x4cb2 @0x19
0x4c99…4ce3 at001a = ╱20╱…╱ // 0x4cb3 @0x1a
0x4c99…4ce3 at001b = ╱65╱e╱ // 0x4cb4 @0x1b
0x4c99…4ce3 at001c = ╱72╱r╱ // 0x4cb5 @0x1c
0x4c99…4ce3 at001d = ╱20╱…╱ // 0x4cb6 @0x1d
0x4c99…4ce3 at001e = ╱62╱b╱ // 0x4cb7 @0x1e
0x4c99…4ce3 at001f = ╱65╱e╱ // 0x4cb8 @0x1f
0x4c99…4ce3 at0020 = ╱72╱r╱ // 0x4cb9 @0x20
0x4c99…4ce3 at0021 = ╱65╱e╱ // 0x4cba @0x21
0x4c99…4ce3 at0022 = ╱67╱g╱ // 0x4cbb @0x22
0x4c99…4ce3 at0023 = ╱6e╱n╱ // 0x4cbc @0x23
0x4c99…4ce3 at0024 = ╱65╱e╱ // 0x4cbd @0x24
0x4c99…4ce3 at0025 = ╱74╱t╱ // 0x4cbe @0x25
0x4c99…4ce3 at0026 = ╱20╱…╱ // 0x4cbf @0x26
0x4c99…4ce3 at0027 = ╱6d╱m╱ // 0x4cc0 @0x27
0x4c99…4ce3 at0028 = ╱65╱e╱ // 0x4cc1 @0x28
0x4c99…4ce3 at0029 = ╱64╱d╱ // 0x4cc2 @0x29
0x4c99…4ce3 at002a = ╱20╱…╱ // 0x4cc3 @0x2a
0x4c99…4ce3 at002b = ╱70╱p╱ // 0x4cc4 @0x2b
0x4c99…4ce3 at002c = ╱65╱e╱ // 0x4cc5 @0x2c
0x4c99…4ce3 at002d = ╱72╱r╱ // 0x4cc6 @0x2d
0x4c99…4ce3 at002e = ╱73╱s╱ // 0x4cc7 @0x2e
0x4c99…4ce3 at002f = ╱6f╱o╱ // 0x4cc8 @0x2f
0x4c99…4ce3 at0030 = ╱6e╱n╱ // 0x4cc9 @0x30
0x4c99…4ce3 at0031 = ╱66╱f╱ // 0x4cca @0x31
0x4c99…4ce3 at0032 = ╱72╱r╱ // 0x4ccb @0x32
0x4c99…4ce3 at0033 = ╱61╱a╱ // 0x4ccc @0x33
0x4c99…4ce3 at0034 = ╱64╱d╱ // 0x4ccd @0x34
0x4c99…4ce3 at0035 = ╱72╱r╱ // 0x4cce @0x35
0x4c99…4ce3 at0036 = ╱61╱a╱ // 0x4ccf @0x36
0x4c99…4ce3 at0037 = ╱67╱g╱ // 0x4cd0 @0x37
0x4c99…4ce3 at0038 = ╱20╱…╱ // 0x4cd1 @0x38
0x4c99…4ce3 at0039 = ╱73╱s╱ // 0x4cd2 @0x39
0x4c99…4ce3 at003a = ╱6f╱o╱ // 0x4cd3 @0x3a
0x4c99…4ce3 at003b = ╱6d╱m╱ // 0x4cd4 @0x3b
0x4c99…4ce3 at003c = ╱20╱…╱ // 0x4cd5 @0x3c
0x4c99…4ce3 at003d = ╱70╱p╱ // 0x4cd6 @0x3d
0x4c99…4ce3 at003e = ╱65╱e╱ // 0x4cd7 @0x3e
0x4c99…4ce3 at003f = ╱6e╱n╱ // 0x4cd8 @0x3f
0x4c99…4ce3 at0040 = ╱73╱s╱ // 0x4cd9 @0x40
0x4c99…4ce3 at0041 = ╱69╱i╱ // 0x4cda @0x41
0x4c99…4ce3 at0042 = ╱6f╱o╱ // 0x4cdb @0x42
0x4c99…4ce3 at0043 = ╱6e╱n╱ // 0x4cdc @0x43
0x4c99…4ce3 at0044 = ╱69╱i╱ // 0x4cdd @0x44
0x4c99…4ce3 at0045 = ╱73╱s╱ // 0x4cde @0x45
0x4c99…4ce3 at0046 = ╱74╱t╱ // 0x4cdf @0x46
0x4c99…4ce3 at0047 = ╱2e╱.╱ // 0x4ce0 @0x47
0x4c99…4ce3 at0048 = ╱22╱"╱ // 0x4ce1 @0x48
0x4c99…4ce3 at0049 = EOL // 0x4ce2 @0x49
0x4c99…4ce3 }
0x4ce3…4cf0 e2de 04680 EXEC LSKRIV3
0x4ce3…4cf0 LineComal80 {
0x4ce3…4cf0 ptr = 0xe2de // 0x4ce3 @0x0
0x4ce3…4cf0 lno = 0x1248 // 0x4ce5 @0x2
0x4ce3…4cf0 at0004 = ╱9d╱ EXEC ╱ // 0x4ce7 @0x4
0x4ce3…4cf0 at0005 = ╱4c╱L╱ // 0x4ce8 @0x5
0x4ce3…4cf0 at0006 = ╱53╱S╱ // 0x4ce9 @0x6
0x4ce3…4cf0 at0007 = ╱4b╱K╱ // 0x4cea @0x7
0x4ce3…4cf0 at0008 = ╱52╱R╱ // 0x4ceb @0x8
0x4ce3…4cf0 at0009 = ╱49╱I╱ // 0x4cec @0x9
0x4ce3…4cf0 at000a = ╱56╱V╱ // 0x4ced @0xa
0x4ce3…4cf0 at000b = ╱33╱3╱ // 0x4cee @0xb
0x4ce3…4cf0 at000c = EOL // 0x4cef @0xc
0x4ce3…4cf0 }
0x4cf0…4cf6 e2e4 04685 ENDIF
0x4cf0…4cf6 LineComal80 {
0x4cf0…4cf6 ptr = 0xe2e4 // 0x4cf0 @0x0
0x4cf0…4cf6 lno = 0x124d // 0x4cf2 @0x2
0x4cf0…4cf6 at0004 = ╱9c╱ ENDIF ╱ // 0x4cf4 @0x4
0x4cf0…4cf6 at0005 = EOL // 0x4cf5 @0x5
0x4cf0…4cf6 }
0x4cf6…4d05 e2f3 04690 IF 4 = 1 THEN
0x4cf6…4d05 LineComal80 {
0x4cf6…4d05 ptr = 0xe2f3 // 0x4cf6 @0x0
0x4cf6…4d05 lno = 0x1252 // 0x4cf8 @0x2
0x4cf6…4d05 at0004 = ╱9b0054╱ IF ╱ // 0x4cfa @0x4
0x4cf6…4d05 at0007 = ╱34╱4╱ // 0x4cfd @0x7
0x4cf6…4d05 at0008 = ╱df╱ = ╱ // 0x4cfe @0x8
0x4cf6…4d05 at0009 = ╱31╱1╱ // 0x4cff @0x9
0x4cf6…4d05 at000a = ╱f20100╱ // 0x4d00 @0xa
0x4cf6…4d05 at000d = ╱b5╱ THEN ╱ // 0x4d03 @0xd
0x4cf6…4d05 at000e = EOL // 0x4d04 @0xe
0x4cf6…4d05 }
0x4d05…4d4f e33d 04695 LET QT $ := "Beregningerne…er…sket…efter…reglerne…om…ligedeling…{gtef{ller."
0x4d05…4d4f LineComal80 {
0x4d05…4d4f ptr = 0xe33d // 0x4d05 @0x0
0x4d05…4d4f lno = 0x1257 // 0x4d07 @0x2
0x4d05…4d4f at0004 = ╱86╱ LET ╱ // 0x4d09 @0x4
0x4d05…4d4f at0005 = ╱51╱Q╱ // 0x4d0a @0x5
0x4d05…4d4f at0006 = ╱54╱T╱ // 0x4d0b @0x6
0x4d05…4d4f at0007 = ╱ef╱ $ ╱ // 0x4d0c @0x7
0x4d05…4d4f at0008 = ╱f0╱ := ╱ // 0x4d0d @0x8
0x4d05…4d4f at0009 = ╱22╱"╱ // 0x4d0e @0x9
0x4d05…4d4f at000a = ╱42╱B╱ // 0x4d0f @0xa
0x4d05…4d4f at000b = ╱65╱e╱ // 0x4d10 @0xb
0x4d05…4d4f at000c = ╱72╱r╱ // 0x4d11 @0xc
0x4d05…4d4f at000d = ╱65╱e╱ // 0x4d12 @0xd
0x4d05…4d4f at000e = ╱67╱g╱ // 0x4d13 @0xe
0x4d05…4d4f at000f = ╱6e╱n╱ // 0x4d14 @0xf
0x4d05…4d4f at0010 = ╱69╱i╱ // 0x4d15 @0x10
0x4d05…4d4f at0011 = ╱6e╱n╱ // 0x4d16 @0x11
0x4d05…4d4f at0012 = ╱67╱g╱ // 0x4d17 @0x12
0x4d05…4d4f at0013 = ╱65╱e╱ // 0x4d18 @0x13
0x4d05…4d4f at0014 = ╱72╱r╱ // 0x4d19 @0x14
0x4d05…4d4f at0015 = ╱6e╱n╱ // 0x4d1a @0x15
0x4d05…4d4f at0016 = ╱65╱e╱ // 0x4d1b @0x16
0x4d05…4d4f at0017 = ╱20╱…╱ // 0x4d1c @0x17
0x4d05…4d4f at0018 = ╱65╱e╱ // 0x4d1d @0x18
0x4d05…4d4f at0019 = ╱72╱r╱ // 0x4d1e @0x19
0x4d05…4d4f at001a = ╱20╱…╱ // 0x4d1f @0x1a
0x4d05…4d4f at001b = ╱73╱s╱ // 0x4d20 @0x1b
0x4d05…4d4f at001c = ╱6b╱k╱ // 0x4d21 @0x1c
0x4d05…4d4f at001d = ╱65╱e╱ // 0x4d22 @0x1d
0x4d05…4d4f at001e = ╱74╱t╱ // 0x4d23 @0x1e
0x4d05…4d4f at001f = ╱20╱…╱ // 0x4d24 @0x1f
0x4d05…4d4f at0020 = ╱65╱e╱ // 0x4d25 @0x20
0x4d05…4d4f at0021 = ╱66╱f╱ // 0x4d26 @0x21
0x4d05…4d4f at0022 = ╱74╱t╱ // 0x4d27 @0x22
0x4d05…4d4f at0023 = ╱65╱e╱ // 0x4d28 @0x23
0x4d05…4d4f at0024 = ╱72╱r╱ // 0x4d29 @0x24
0x4d05…4d4f at0025 = ╱20╱…╱ // 0x4d2a @0x25
0x4d05…4d4f at0026 = ╱72╱r╱ // 0x4d2b @0x26
0x4d05…4d4f at0027 = ╱65╱e╱ // 0x4d2c @0x27
0x4d05…4d4f at0028 = ╱67╱g╱ // 0x4d2d @0x28
0x4d05…4d4f at0029 = ╱6c╱l╱ // 0x4d2e @0x29
0x4d05…4d4f at002a = ╱65╱e╱ // 0x4d2f @0x2a
0x4d05…4d4f at002b = ╱72╱r╱ // 0x4d30 @0x2b
0x4d05…4d4f at002c = ╱6e╱n╱ // 0x4d31 @0x2c
0x4d05…4d4f at002d = ╱65╱e╱ // 0x4d32 @0x2d
0x4d05…4d4f at002e = ╱20╱…╱ // 0x4d33 @0x2e
0x4d05…4d4f at002f = ╱6f╱o╱ // 0x4d34 @0x2f
0x4d05…4d4f at0030 = ╱6d╱m╱ // 0x4d35 @0x30
0x4d05…4d4f at0031 = ╱20╱…╱ // 0x4d36 @0x31
0x4d05…4d4f at0032 = ╱6c╱l╱ // 0x4d37 @0x32
0x4d05…4d4f at0033 = ╱69╱i╱ // 0x4d38 @0x33
0x4d05…4d4f at0034 = ╱67╱g╱ // 0x4d39 @0x34
0x4d05…4d4f at0035 = ╱65╱e╱ // 0x4d3a @0x35
0x4d05…4d4f at0036 = ╱64╱d╱ // 0x4d3b @0x36
0x4d05…4d4f at0037 = ╱65╱e╱ // 0x4d3c @0x37
0x4d05…4d4f at0038 = ╱6c╱l╱ // 0x4d3d @0x38
0x4d05…4d4f at0039 = ╱69╱i╱ // 0x4d3e @0x39
0x4d05…4d4f at003a = ╱6e╱n╱ // 0x4d3f @0x3a
0x4d05…4d4f at003b = ╱67╱g╱ // 0x4d40 @0x3b
0x4d05…4d4f at003c = ╱20╱…╱ // 0x4d41 @0x3c
0x4d05…4d4f at003d = ╱7b╱{╱ // 0x4d42 @0x3d
0x4d05…4d4f at003e = ╱67╱g╱ // 0x4d43 @0x3e
0x4d05…4d4f at003f = ╱74╱t╱ // 0x4d44 @0x3f
0x4d05…4d4f at0040 = ╱65╱e╱ // 0x4d45 @0x40
0x4d05…4d4f at0041 = ╱66╱f╱ // 0x4d46 @0x41
0x4d05…4d4f at0042 = ╱7b╱{╱ // 0x4d47 @0x42
0x4d05…4d4f at0043 = ╱6c╱l╱ // 0x4d48 @0x43
0x4d05…4d4f at0044 = ╱6c╱l╱ // 0x4d49 @0x44
0x4d05…4d4f at0045 = ╱65╱e╱ // 0x4d4a @0x45
0x4d05…4d4f at0046 = ╱72╱r╱ // 0x4d4b @0x46
0x4d05…4d4f at0047 = ╱2e╱.╱ // 0x4d4c @0x47
0x4d05…4d4f at0048 = ╱22╱"╱ // 0x4d4d @0x48
0x4d05…4d4f at0049 = EOL // 0x4d4e @0x49
0x4d05…4d4f }
0x4d4f…4d5c e34a 04700 EXEC LSKRIV3
0x4d4f…4d5c LineComal80 {
0x4d4f…4d5c ptr = 0xe34a // 0x4d4f @0x0
0x4d4f…4d5c lno = 0x125c // 0x4d51 @0x2
0x4d4f…4d5c at0004 = ╱9d╱ EXEC ╱ // 0x4d53 @0x4
0x4d4f…4d5c at0005 = ╱4c╱L╱ // 0x4d54 @0x5
0x4d4f…4d5c at0006 = ╱53╱S╱ // 0x4d55 @0x6
0x4d4f…4d5c at0007 = ╱4b╱K╱ // 0x4d56 @0x7
0x4d4f…4d5c at0008 = ╱52╱R╱ // 0x4d57 @0x8
0x4d4f…4d5c at0009 = ╱49╱I╱ // 0x4d58 @0x9
0x4d4f…4d5c at000a = ╱56╱V╱ // 0x4d59 @0xa
0x4d4f…4d5c at000b = ╱33╱3╱ // 0x4d5a @0xb
0x4d4f…4d5c at000c = EOL // 0x4d5b @0xc
0x4d4f…4d5c }
0x4d5c…4d62 e350 04705 ENDIF
0x4d5c…4d62 LineComal80 {
0x4d5c…4d62 ptr = 0xe350 // 0x4d5c @0x0
0x4d5c…4d62 lno = 0x1261 // 0x4d5e @0x2
0x4d5c…4d62 at0004 = ╱9c╱ ENDIF ╱ // 0x4d60 @0x4
0x4d5c…4d62 at0005 = EOL // 0x4d61 @0x5
0x4d5c…4d62 }
0x4d62…4d6f e35d 04710 ENDPROC SKATPRO
0x4d62…4d6f LineComal80 {
0x4d62…4d6f ptr = 0xe35d // 0x4d62 @0x0
0x4d62…4d6f lno = 0x1266 // 0x4d64 @0x2
0x4d62…4d6f at0004 = ╱9f╱ ENDPROC ╱ // 0x4d66 @0x4
0x4d62…4d6f at0005 = ╱53╱S╱ // 0x4d67 @0x5
0x4d62…4d6f at0006 = ╱4b╱K╱ // 0x4d68 @0x6
0x4d62…4d6f at0007 = ╱41╱A╱ // 0x4d69 @0x7
0x4d62…4d6f at0008 = ╱54╱T╱ // 0x4d6a @0x8
0x4d62…4d6f at0009 = ╱50╱P╱ // 0x4d6b @0x9
0x4d62…4d6f at000a = ╱52╱R╱ // 0x4d6c @0xa
0x4d62…4d6f at000b = ╱4f╱O╱ // 0x4d6d @0xb
0x4d62…4d6f at000c = EOL // 0x4d6e @0xc
0x4d62…4d6f }
0x4d6f…4d7d e36b 04715 PROC LSKRIV2
0x4d6f…4d7d LineComal80 {
0x4d6f…4d7d ptr = 0xe36b // 0x4d6f @0x0
0x4d6f…4d7d lno = 0x126b // 0x4d71 @0x2
0x4d6f…4d7d at0004 = ╱9e00╱ PROC ╱ // 0x4d73 @0x4
0x4d6f…4d7d at0006 = ╱4c╱L╱ // 0x4d75 @0x6
0x4d6f…4d7d at0007 = ╱53╱S╱ // 0x4d76 @0x7
0x4d6f…4d7d at0008 = ╱4b╱K╱ // 0x4d77 @0x8
0x4d6f…4d7d at0009 = ╱52╱R╱ // 0x4d78 @0x9
0x4d6f…4d7d at000a = ╱49╱I╱ // 0x4d79 @0xa
0x4d6f…4d7d at000b = ╱56╱V╱ // 0x4d7a @0xb
0x4d6f…4d7d at000c = ╱32╱2╱ // 0x4d7b @0xc
0x4d6f…4d7d at000d = EOL // 0x4d7c @0xd
0x4d6f…4d7d }
0x4d7d…4d9d e38b 04720 PRINT USING QT $ + "#########.##…KR." : QB
0x4d7d…4d9d LineComal80 {
0x4d7d…4d9d ptr = 0xe38b // 0x4d7d @0x0
0x4d7d…4d9d lno = 0x1270 // 0x4d7f @0x2
0x4d7d…4d9d at0004 = ╱92╱ PRINT ╱ // 0x4d81 @0x4
0x4d7d…4d9d at0005 = ╱b9╱ USING ╱ // 0x4d82 @0x5
0x4d7d…4d9d at0006 = ╱51╱Q╱ // 0x4d83 @0x6
0x4d7d…4d9d at0007 = ╱54╱T╱ // 0x4d84 @0x7
0x4d7d…4d9d at0008 = ╱ef╱ $ ╱ // 0x4d85 @0x8
0x4d7d…4d9d at0009 = ╱eb╱ + ╱ // 0x4d86 @0x9
0x4d7d…4d9d at000a = ╱22╱"╱ // 0x4d87 @0xa
0x4d7d…4d9d at000b = ╱23╱#╱ // 0x4d88 @0xb
0x4d7d…4d9d at000c = ╱23╱#╱ // 0x4d89 @0xc
0x4d7d…4d9d at000d = ╱23╱#╱ // 0x4d8a @0xd
0x4d7d…4d9d at000e = ╱23╱#╱ // 0x4d8b @0xe
0x4d7d…4d9d at000f = ╱23╱#╱ // 0x4d8c @0xf
0x4d7d…4d9d at0010 = ╱23╱#╱ // 0x4d8d @0x10
0x4d7d…4d9d at0011 = ╱23╱#╱ // 0x4d8e @0x11
0x4d7d…4d9d at0012 = ╱23╱#╱ // 0x4d8f @0x12
0x4d7d…4d9d at0013 = ╱23╱#╱ // 0x4d90 @0x13
0x4d7d…4d9d at0014 = ╱2e╱.╱ // 0x4d91 @0x14
0x4d7d…4d9d at0015 = ╱23╱#╱ // 0x4d92 @0x15
0x4d7d…4d9d at0016 = ╱23╱#╱ // 0x4d93 @0x16
0x4d7d…4d9d at0017 = ╱20╱…╱ // 0x4d94 @0x17
0x4d7d…4d9d at0018 = ╱4b╱K╱ // 0x4d95 @0x18
0x4d7d…4d9d at0019 = ╱52╱R╱ // 0x4d96 @0x19
0x4d7d…4d9d at001a = ╱2e╱.╱ // 0x4d97 @0x1a
0x4d7d…4d9d at001b = ╱22╱"╱ // 0x4d98 @0x1b
0x4d7d…4d9d at001c = ╱f1╱ : ╱ // 0x4d99 @0x1c
0x4d7d…4d9d at001d = ╱51╱Q╱ // 0x4d9a @0x1d
0x4d7d…4d9d at001e = ╱42╱B╱ // 0x4d9b @0x1e
0x4d7d…4d9d at001f = EOL // 0x4d9c @0x1f
0x4d7d…4d9d }
0x4d9d…4daa e398 04725 ENDPROC LSKRIV2
0x4d9d…4daa LineComal80 {
0x4d9d…4daa ptr = 0xe398 // 0x4d9d @0x0
0x4d9d…4daa lno = 0x1275 // 0x4d9f @0x2
0x4d9d…4daa at0004 = ╱9f╱ ENDPROC ╱ // 0x4da1 @0x4
0x4d9d…4daa at0005 = ╱4c╱L╱ // 0x4da2 @0x5
0x4d9d…4daa at0006 = ╱53╱S╱ // 0x4da3 @0x6
0x4d9d…4daa at0007 = ╱4b╱K╱ // 0x4da4 @0x7
0x4d9d…4daa at0008 = ╱52╱R╱ // 0x4da5 @0x8
0x4d9d…4daa at0009 = ╱49╱I╱ // 0x4da6 @0x9
0x4d9d…4daa at000a = ╱56╱V╱ // 0x4da7 @0xa
0x4d9d…4daa at000b = ╱32╱2╱ // 0x4da8 @0xb
0x4d9d…4daa at000c = EOL // 0x4da9 @0xc
0x4d9d…4daa }
0x4daa…4db8 e3a6 04730 PROC LSKRIV1
0x4daa…4db8 LineComal80 {
0x4daa…4db8 ptr = 0xe3a6 // 0x4daa @0x0
0x4daa…4db8 lno = 0x127a // 0x4dac @0x2
0x4daa…4db8 at0004 = ╱9e00╱ PROC ╱ // 0x4dae @0x4
0x4daa…4db8 at0006 = ╱4c╱L╱ // 0x4db0 @0x6
0x4daa…4db8 at0007 = ╱53╱S╱ // 0x4db1 @0x7
0x4daa…4db8 at0008 = ╱4b╱K╱ // 0x4db2 @0x8
0x4daa…4db8 at0009 = ╱52╱R╱ // 0x4db3 @0x9
0x4daa…4db8 at000a = ╱49╱I╱ // 0x4db4 @0xa
0x4daa…4db8 at000b = ╱56╱V╱ // 0x4db5 @0xb
0x4daa…4db8 at000c = ╱31╱1╱ // 0x4db6 @0xc
0x4daa…4db8 at000d = EOL // 0x4db7 @0xd
0x4daa…4db8 }
0x4db8…4dd5 e3c3 04735 PRINT USING QT $ + "#########…KR." : QB
0x4db8…4dd5 LineComal80 {
0x4db8…4dd5 ptr = 0xe3c3 // 0x4db8 @0x0
0x4db8…4dd5 lno = 0x127f // 0x4dba @0x2
0x4db8…4dd5 at0004 = ╱92╱ PRINT ╱ // 0x4dbc @0x4
0x4db8…4dd5 at0005 = ╱b9╱ USING ╱ // 0x4dbd @0x5
0x4db8…4dd5 at0006 = ╱51╱Q╱ // 0x4dbe @0x6
0x4db8…4dd5 at0007 = ╱54╱T╱ // 0x4dbf @0x7
0x4db8…4dd5 at0008 = ╱ef╱ $ ╱ // 0x4dc0 @0x8
0x4db8…4dd5 at0009 = ╱eb╱ + ╱ // 0x4dc1 @0x9
0x4db8…4dd5 at000a = ╱22╱"╱ // 0x4dc2 @0xa
0x4db8…4dd5 at000b = ╱23╱#╱ // 0x4dc3 @0xb
0x4db8…4dd5 at000c = ╱23╱#╱ // 0x4dc4 @0xc
0x4db8…4dd5 at000d = ╱23╱#╱ // 0x4dc5 @0xd
0x4db8…4dd5 at000e = ╱23╱#╱ // 0x4dc6 @0xe
0x4db8…4dd5 at000f = ╱23╱#╱ // 0x4dc7 @0xf
0x4db8…4dd5 at0010 = ╱23╱#╱ // 0x4dc8 @0x10
0x4db8…4dd5 at0011 = ╱23╱#╱ // 0x4dc9 @0x11
0x4db8…4dd5 at0012 = ╱23╱#╱ // 0x4dca @0x12
0x4db8…4dd5 at0013 = ╱23╱#╱ // 0x4dcb @0x13
0x4db8…4dd5 at0014 = ╱20╱…╱ // 0x4dcc @0x14
0x4db8…4dd5 at0015 = ╱4b╱K╱ // 0x4dcd @0x15
0x4db8…4dd5 at0016 = ╱52╱R╱ // 0x4dce @0x16
0x4db8…4dd5 at0017 = ╱2e╱.╱ // 0x4dcf @0x17
0x4db8…4dd5 at0018 = ╱22╱"╱ // 0x4dd0 @0x18
0x4db8…4dd5 at0019 = ╱f1╱ : ╱ // 0x4dd1 @0x19
0x4db8…4dd5 at001a = ╱51╱Q╱ // 0x4dd2 @0x1a
0x4db8…4dd5 at001b = ╱42╱B╱ // 0x4dd3 @0x1b
0x4db8…4dd5 at001c = EOL // 0x4dd4 @0x1c
0x4db8…4dd5 }
0x4dd5…4de2 e3d0 04740 ENDPROC LSKRIV1
0x4dd5…4de2 LineComal80 {
0x4dd5…4de2 ptr = 0xe3d0 // 0x4dd5 @0x0
0x4dd5…4de2 lno = 0x1284 // 0x4dd7 @0x2
0x4dd5…4de2 at0004 = ╱9f╱ ENDPROC ╱ // 0x4dd9 @0x4
0x4dd5…4de2 at0005 = ╱4c╱L╱ // 0x4dda @0x5
0x4dd5…4de2 at0006 = ╱53╱S╱ // 0x4ddb @0x6
0x4dd5…4de2 at0007 = ╱4b╱K╱ // 0x4ddc @0x7
0x4dd5…4de2 at0008 = ╱52╱R╱ // 0x4ddd @0x8
0x4dd5…4de2 at0009 = ╱49╱I╱ // 0x4dde @0x9
0x4dd5…4de2 at000a = ╱56╱V╱ // 0x4ddf @0xa
0x4dd5…4de2 at000b = ╱31╱1╱ // 0x4de0 @0xb
0x4dd5…4de2 at000c = EOL // 0x4de1 @0xc
0x4dd5…4de2 }
0x4de2…4df0 e3de 04745 PROC LSKRIV4
0x4de2…4df0 LineComal80 {
0x4de2…4df0 ptr = 0xe3de // 0x4de2 @0x0
0x4de2…4df0 lno = 0x1289 // 0x4de4 @0x2
0x4de2…4df0 at0004 = ╱9e00╱ PROC ╱ // 0x4de6 @0x4
0x4de2…4df0 at0006 = ╱4c╱L╱ // 0x4de8 @0x6
0x4de2…4df0 at0007 = ╱53╱S╱ // 0x4de9 @0x7
0x4de2…4df0 at0008 = ╱4b╱K╱ // 0x4dea @0x8
0x4de2…4df0 at0009 = ╱52╱R╱ // 0x4deb @0x9
0x4de2…4df0 at000a = ╱49╱I╱ // 0x4dec @0xa
0x4de2…4df0 at000b = ╱56╱V╱ // 0x4ded @0xb
0x4de2…4df0 at000c = ╱34╱4╱ // 0x4dee @0xc
0x4de2…4df0 at000d = EOL // 0x4def @0xd
0x4de2…4df0 }
0x4df0…4e0e e3fc 04750 PRINT USING QT $ + "#######.#…PCT." : QB
0x4df0…4e0e LineComal80 {
0x4df0…4e0e ptr = 0xe3fc // 0x4df0 @0x0
0x4df0…4e0e lno = 0x128e // 0x4df2 @0x2
0x4df0…4e0e at0004 = ╱92╱ PRINT ╱ // 0x4df4 @0x4
0x4df0…4e0e at0005 = ╱b9╱ USING ╱ // 0x4df5 @0x5
0x4df0…4e0e at0006 = ╱51╱Q╱ // 0x4df6 @0x6
0x4df0…4e0e at0007 = ╱54╱T╱ // 0x4df7 @0x7
0x4df0…4e0e at0008 = ╱ef╱ $ ╱ // 0x4df8 @0x8
0x4df0…4e0e at0009 = ╱eb╱ + ╱ // 0x4df9 @0x9
0x4df0…4e0e at000a = ╱22╱"╱ // 0x4dfa @0xa
0x4df0…4e0e at000b = ╱23╱#╱ // 0x4dfb @0xb
0x4df0…4e0e at000c = ╱23╱#╱ // 0x4dfc @0xc
0x4df0…4e0e at000d = ╱23╱#╱ // 0x4dfd @0xd
0x4df0…4e0e at000e = ╱23╱#╱ // 0x4dfe @0xe
0x4df0…4e0e at000f = ╱23╱#╱ // 0x4dff @0xf
0x4df0…4e0e at0010 = ╱23╱#╱ // 0x4e00 @0x10
0x4df0…4e0e at0011 = ╱23╱#╱ // 0x4e01 @0x11
0x4df0…4e0e at0012 = ╱2e╱.╱ // 0x4e02 @0x12
0x4df0…4e0e at0013 = ╱23╱#╱ // 0x4e03 @0x13
0x4df0…4e0e at0014 = ╱20╱…╱ // 0x4e04 @0x14
0x4df0…4e0e at0015 = ╱50╱P╱ // 0x4e05 @0x15
0x4df0…4e0e at0016 = ╱43╱C╱ // 0x4e06 @0x16
0x4df0…4e0e at0017 = ╱54╱T╱ // 0x4e07 @0x17
0x4df0…4e0e at0018 = ╱2e╱.╱ // 0x4e08 @0x18
0x4df0…4e0e at0019 = ╱22╱"╱ // 0x4e09 @0x19
0x4df0…4e0e at001a = ╱f1╱ : ╱ // 0x4e0a @0x1a
0x4df0…4e0e at001b = ╱51╱Q╱ // 0x4e0b @0x1b
0x4df0…4e0e at001c = ╱42╱B╱ // 0x4e0c @0x1c
0x4df0…4e0e at001d = EOL // 0x4e0d @0x1d
0x4df0…4e0e }
0x4e0e…4e1b e409 04755 ENDPROC LSKRIV4
0x4e0e…4e1b LineComal80 {
0x4e0e…4e1b ptr = 0xe409 // 0x4e0e @0x0
0x4e0e…4e1b lno = 0x1293 // 0x4e10 @0x2
0x4e0e…4e1b at0004 = ╱9f╱ ENDPROC ╱ // 0x4e12 @0x4
0x4e0e…4e1b at0005 = ╱4c╱L╱ // 0x4e13 @0x5
0x4e0e…4e1b at0006 = ╱53╱S╱ // 0x4e14 @0x6
0x4e0e…4e1b at0007 = ╱4b╱K╱ // 0x4e15 @0x7
0x4e0e…4e1b at0008 = ╱52╱R╱ // 0x4e16 @0x8
0x4e0e…4e1b at0009 = ╱49╱I╱ // 0x4e17 @0x9
0x4e0e…4e1b at000a = ╱56╱V╱ // 0x4e18 @0xa
0x4e0e…4e1b at000b = ╱34╱4╱ // 0x4e19 @0xb
0x4e0e…4e1b at000c = EOL // 0x4e1a @0xc
0x4e0e…4e1b }
0x4e1b…4e26 e414 04760 PROC SVAR
0x4e1b…4e26 LineComal80 {
0x4e1b…4e26 ptr = 0xe414 // 0x4e1b @0x0
0x4e1b…4e26 lno = 0x1298 // 0x4e1d @0x2
0x4e1b…4e26 at0004 = ╱9e00╱ PROC ╱ // 0x4e1f @0x4
0x4e1b…4e26 at0006 = ╱53╱S╱ // 0x4e21 @0x6
0x4e1b…4e26 at0007 = ╱56╱V╱ // 0x4e22 @0x7
0x4e1b…4e26 at0008 = ╱41╱A╱ // 0x4e23 @0x8
0x4e1b…4e26 at0009 = ╱52╱R╱ // 0x4e24 @0x9
0x4e1b…4e26 at000a = EOL // 0x4e25 @0xa
0x4e1b…4e26 }
0x4e26…4e2d e41b 04765 REPEAT
0x4e26…4e2d LineComal80 {
0x4e26…4e2d ptr = 0xe41b // 0x4e26 @0x0
0x4e26…4e2d lno = 0x129d // 0x4e28 @0x2
0x4e26…4e2d at0004 = ╱9700╱ REPEAT ╱ // 0x4e2a @0x4
0x4e26…4e2d at0006 = EOL // 0x4e2c @0x6
0x4e26…4e2d }
0x4e2d…4e40 e42e 04770 INPUT "?…(j/n)…" : S $
0x4e2d…4e40 LineComal80 {
0x4e2d…4e40 ptr = 0xe42e // 0x4e2d @0x0
0x4e2d…4e40 lno = 0x12a2 // 0x4e2f @0x2
0x4e2d…4e40 at0004 = ╱91╱ INPUT ╱ // 0x4e31 @0x4
0x4e2d…4e40 at0005 = ╱22╱"╱ // 0x4e32 @0x5
0x4e2d…4e40 at0006 = ╱3f╱?╱ // 0x4e33 @0x6
0x4e2d…4e40 at0007 = ╱20╱…╱ // 0x4e34 @0x7
0x4e2d…4e40 at0008 = ╱28╱(╱ // 0x4e35 @0x8
0x4e2d…4e40 at0009 = ╱6a╱j╱ // 0x4e36 @0x9
0x4e2d…4e40 at000a = ╱2f╱/╱ // 0x4e37 @0xa
0x4e2d…4e40 at000b = ╱6e╱n╱ // 0x4e38 @0xb
0x4e2d…4e40 at000c = ╱29╱)╱ // 0x4e39 @0xc
0x4e2d…4e40 at000d = ╱20╱…╱ // 0x4e3a @0xd
0x4e2d…4e40 at000e = ╱22╱"╱ // 0x4e3b @0xe
0x4e2d…4e40 at000f = ╱f1╱ : ╱ // 0x4e3c @0xf
0x4e2d…4e40 at0010 = ╱53╱S╱ // 0x4e3d @0x10
0x4e2d…4e40 at0011 = ╱ef╱ $ ╱ // 0x4e3e @0x11
0x4e2d…4e40 at0012 = EOL // 0x4e3f @0x12
0x4e2d…4e40 }
0x4e40…4e55 e443 04775 IF S $ = "N" THEN LET S $ := "n"
0x4e40…4e55 LineComal80 {
0x4e40…4e55 ptr = 0xe443 // 0x4e40 @0x0
0x4e40…4e55 lno = 0x12a7 // 0x4e42 @0x2
0x4e40…4e55 at0004 = ╱8200╱ IF ╱ // 0x4e44 @0x4
0x4e40…4e55 at0006 = ╱53╱S╱ // 0x4e46 @0x6
0x4e40…4e55 at0007 = ╱ef╱ $ ╱ // 0x4e47 @0x7
0x4e40…4e55 at0008 = ╱df╱ = ╱ // 0x4e48 @0x8
0x4e40…4e55 at0009 = ╱22╱"╱ // 0x4e49 @0x9
0x4e40…4e55 at000a = ╱4e╱N╱ // 0x4e4a @0xa
0x4e40…4e55 at000b = ╱22╱"╱ // 0x4e4b @0xb
0x4e40…4e55 at000c = ╱b5╱ THEN ╱ // 0x4e4c @0xc
0x4e40…4e55 at000d = ╱86╱ LET ╱ // 0x4e4d @0xd
0x4e40…4e55 at000e = ╱53╱S╱ // 0x4e4e @0xe
0x4e40…4e55 at000f = ╱ef╱ $ ╱ // 0x4e4f @0xf
0x4e40…4e55 at0010 = ╱f0╱ := ╱ // 0x4e50 @0x10
0x4e40…4e55 at0011 = ╱22╱"╱ // 0x4e51 @0x11
0x4e40…4e55 at0012 = ╱6e╱n╱ // 0x4e52 @0x12
0x4e40…4e55 at0013 = ╱22╱"╱ // 0x4e53 @0x13
0x4e40…4e55 at0014 = EOL // 0x4e54 @0x14
0x4e40…4e55 }
0x4e55…4e6a e458 04780 IF S $ = "J" THEN LET S $ := "j"
0x4e55…4e6a LineComal80 {
0x4e55…4e6a ptr = 0xe458 // 0x4e55 @0x0
0x4e55…4e6a lno = 0x12ac // 0x4e57 @0x2
0x4e55…4e6a at0004 = ╱8200╱ IF ╱ // 0x4e59 @0x4
0x4e55…4e6a at0006 = ╱53╱S╱ // 0x4e5b @0x6
0x4e55…4e6a at0007 = ╱ef╱ $ ╱ // 0x4e5c @0x7
0x4e55…4e6a at0008 = ╱df╱ = ╱ // 0x4e5d @0x8
0x4e55…4e6a at0009 = ╱22╱"╱ // 0x4e5e @0x9
0x4e55…4e6a at000a = ╱4a╱J╱ // 0x4e5f @0xa
0x4e55…4e6a at000b = ╱22╱"╱ // 0x4e60 @0xb
0x4e55…4e6a at000c = ╱b5╱ THEN ╱ // 0x4e61 @0xc
0x4e55…4e6a at000d = ╱86╱ LET ╱ // 0x4e62 @0xd
0x4e55…4e6a at000e = ╱53╱S╱ // 0x4e63 @0xe
0x4e55…4e6a at000f = ╱ef╱ $ ╱ // 0x4e64 @0xf
0x4e55…4e6a at0010 = ╱f0╱ := ╱ // 0x4e65 @0x10
0x4e55…4e6a at0011 = ╱22╱"╱ // 0x4e66 @0x11
0x4e55…4e6a at0012 = ╱6a╱j╱ // 0x4e67 @0x12
0x4e55…4e6a at0013 = ╱22╱"╱ // 0x4e68 @0x13
0x4e55…4e6a at0014 = EOL // 0x4e69 @0x14
0x4e55…4e6a }
0x4e6a…4e80 e46e 04785 IF S $ = "q" OR S $ = "Q" THEN END
0x4e6a…4e80 LineComal80 {
0x4e6a…4e80 ptr = 0xe46e // 0x4e6a @0x0
0x4e6a…4e80 lno = 0x12b1 // 0x4e6c @0x2
0x4e6a…4e80 at0004 = ╱8200╱ IF ╱ // 0x4e6e @0x4
0x4e6a…4e80 at0006 = ╱53╱S╱ // 0x4e70 @0x6
0x4e6a…4e80 at0007 = ╱ef╱ $ ╱ // 0x4e71 @0x7
0x4e6a…4e80 at0008 = ╱df╱ = ╱ // 0x4e72 @0x8
0x4e6a…4e80 at0009 = ╱22╱"╱ // 0x4e73 @0x9
0x4e6a…4e80 at000a = ╱71╱q╱ // 0x4e74 @0xa
0x4e6a…4e80 at000b = ╱22╱"╱ // 0x4e75 @0xb
0x4e6a…4e80 at000c = ╱d8╱ OR ╱ // 0x4e76 @0xc
0x4e6a…4e80 at000d = ╱53╱S╱ // 0x4e77 @0xd
0x4e6a…4e80 at000e = ╱ef╱ $ ╱ // 0x4e78 @0xe
0x4e6a…4e80 at000f = ╱df╱ = ╱ // 0x4e79 @0xf
0x4e6a…4e80 at0010 = ╱22╱"╱ // 0x4e7a @0x10
0x4e6a…4e80 at0011 = ╱51╱Q╱ // 0x4e7b @0x11
0x4e6a…4e80 at0012 = ╱22╱"╱ // 0x4e7c @0x12
0x4e6a…4e80 at0013 = ╱b5╱ THEN ╱ // 0x4e7d @0x13
0x4e6a…4e80 at0014 = ╱8c╱ END ╱ // 0x4e7e @0x14
0x4e6a…4e80 at0015 = EOL // 0x4e7f @0x15
0x4e6a…4e80 }
0x4e80…4e93 e481 04790 UNTIL S $ = "j" OR S $ = "n"
0x4e80…4e93 LineComal80 {
0x4e80…4e93 ptr = 0xe481 // 0x4e80 @0x0
0x4e80…4e93 lno = 0x12b6 // 0x4e82 @0x2
0x4e80…4e93 at0004 = ╱98╱ UNTIL ╱ // 0x4e84 @0x4
0x4e80…4e93 at0005 = ╱53╱S╱ // 0x4e85 @0x5
0x4e80…4e93 at0006 = ╱ef╱ $ ╱ // 0x4e86 @0x6
0x4e80…4e93 at0007 = ╱df╱ = ╱ // 0x4e87 @0x7
0x4e80…4e93 at0008 = ╱22╱"╱ // 0x4e88 @0x8
0x4e80…4e93 at0009 = ╱6a╱j╱ // 0x4e89 @0x9
0x4e80…4e93 at000a = ╱22╱"╱ // 0x4e8a @0xa
0x4e80…4e93 at000b = ╱d8╱ OR ╱ // 0x4e8b @0xb
0x4e80…4e93 at000c = ╱53╱S╱ // 0x4e8c @0xc
0x4e80…4e93 at000d = ╱ef╱ $ ╱ // 0x4e8d @0xd
0x4e80…4e93 at000e = ╱df╱ = ╱ // 0x4e8e @0xe
0x4e80…4e93 at000f = ╱22╱"╱ // 0x4e8f @0xf
0x4e80…4e93 at0010 = ╱6e╱n╱ // 0x4e90 @0x10
0x4e80…4e93 at0011 = ╱22╱"╱ // 0x4e91 @0x11
0x4e80…4e93 at0012 = EOL // 0x4e92 @0x12
0x4e80…4e93 }
0x4e93…4e9c e48a 04795 PRINT LI $
0x4e93…4e9c LineComal80 {
0x4e93…4e9c ptr = 0xe48a // 0x4e93 @0x0
0x4e93…4e9c lno = 0x12bb // 0x4e95 @0x2
0x4e93…4e9c at0004 = ╱92╱ PRINT ╱ // 0x4e97 @0x4
0x4e93…4e9c at0005 = ╱4c╱L╱ // 0x4e98 @0x5
0x4e93…4e9c at0006 = ╱49╱I╱ // 0x4e99 @0x6
0x4e93…4e9c at0007 = ╱ef╱ $ ╱ // 0x4e9a @0x7
0x4e93…4e9c at0008 = EOL // 0x4e9b @0x8
0x4e93…4e9c }
0x4e9c…4ea6 e494 04800 ENDPROC SVAR
0x4e9c…4ea6 LineComal80 {
0x4e9c…4ea6 ptr = 0xe494 // 0x4e9c @0x0
0x4e9c…4ea6 lno = 0x12c0 // 0x4e9e @0x2
0x4e9c…4ea6 at0004 = ╱9f╱ ENDPROC ╱ // 0x4ea0 @0x4
0x4e9c…4ea6 at0005 = ╱53╱S╱ // 0x4ea1 @0x5
0x4e9c…4ea6 at0006 = ╱56╱V╱ // 0x4ea2 @0x6
0x4e9c…4ea6 at0007 = ╱41╱A╱ // 0x4ea3 @0x7
0x4e9c…4ea6 at0008 = ╱52╱R╱ // 0x4ea4 @0x8
0x4e9c…4ea6 at0009 = EOL // 0x4ea5 @0x9
0x4e9c…4ea6 }
0x4ea6…4eb3 e4a1 04805 PROC LSKRIV
0x4ea6…4eb3 LineComal80 {
0x4ea6…4eb3 ptr = 0xe4a1 // 0x4ea6 @0x0
0x4ea6…4eb3 lno = 0x12c5 // 0x4ea8 @0x2
0x4ea6…4eb3 at0004 = ╱9e00╱ PROC ╱ // 0x4eaa @0x4
0x4ea6…4eb3 at0006 = ╱4c╱L╱ // 0x4eac @0x6
0x4ea6…4eb3 at0007 = ╱53╱S╱ // 0x4ead @0x7
0x4ea6…4eb3 at0008 = ╱4b╱K╱ // 0x4eae @0x8
0x4ea6…4eb3 at0009 = ╱52╱R╱ // 0x4eaf @0x9
0x4ea6…4eb3 at000a = ╱49╱I╱ // 0x4eb0 @0xa
0x4ea6…4eb3 at000b = ╱56╱V╱ // 0x4eb1 @0xb
0x4ea6…4eb3 at000c = EOL // 0x4eb2 @0xc
0x4ea6…4eb3 }
0x4eb3…4eb9 e4a7 04810 PRINT
0x4eb3…4eb9 LineComal80 {
0x4eb3…4eb9 ptr = 0xe4a7 // 0x4eb3 @0x0
0x4eb3…4eb9 lno = 0x12ca // 0x4eb5 @0x2
0x4eb3…4eb9 at0004 = ╱92╱ PRINT ╱ // 0x4eb7 @0x4
0x4eb3…4eb9 at0005 = EOL // 0x4eb8 @0x5
0x4eb3…4eb9 }
0x4eb9…4ec5 e4b3 04815 ENDPROC LSKRIV
0x4eb9…4ec5 LineComal80 {
0x4eb9…4ec5 ptr = 0xe4b3 // 0x4eb9 @0x0
0x4eb9…4ec5 lno = 0x12cf // 0x4ebb @0x2
0x4eb9…4ec5 at0004 = ╱9f╱ ENDPROC ╱ // 0x4ebd @0x4
0x4eb9…4ec5 at0005 = ╱4c╱L╱ // 0x4ebe @0x5
0x4eb9…4ec5 at0006 = ╱53╱S╱ // 0x4ebf @0x6
0x4eb9…4ec5 at0007 = ╱4b╱K╱ // 0x4ec0 @0x7
0x4eb9…4ec5 at0008 = ╱52╱R╱ // 0x4ec1 @0x8
0x4eb9…4ec5 at0009 = ╱49╱I╱ // 0x4ec2 @0x9
0x4eb9…4ec5 at000a = ╱56╱V╱ // 0x4ec3 @0xa
0x4eb9…4ec5 at000b = EOL // 0x4ec4 @0xb
0x4eb9…4ec5 }
0x4ec5…4ed3 e4c1 04820 PROC LSKRIV3
0x4ec5…4ed3 LineComal80 {
0x4ec5…4ed3 ptr = 0xe4c1 // 0x4ec5 @0x0
0x4ec5…4ed3 lno = 0x12d4 // 0x4ec7 @0x2
0x4ec5…4ed3 at0004 = ╱9e00╱ PROC ╱ // 0x4ec9 @0x4
0x4ec5…4ed3 at0006 = ╱4c╱L╱ // 0x4ecb @0x6
0x4ec5…4ed3 at0007 = ╱53╱S╱ // 0x4ecc @0x7
0x4ec5…4ed3 at0008 = ╱4b╱K╱ // 0x4ecd @0x8
0x4ec5…4ed3 at0009 = ╱52╱R╱ // 0x4ece @0x9
0x4ec5…4ed3 at000a = ╱49╱I╱ // 0x4ecf @0xa
0x4ec5…4ed3 at000b = ╱56╱V╱ // 0x4ed0 @0xb
0x4ec5…4ed3 at000c = ╱33╱3╱ // 0x4ed1 @0xc
0x4ec5…4ed3 at000d = EOL // 0x4ed2 @0xd
0x4ec5…4ed3 }
0x4ed3…4edc e4ca 04825 PRINT QT $
0x4ed3…4edc LineComal80 {
0x4ed3…4edc ptr = 0xe4ca // 0x4ed3 @0x0
0x4ed3…4edc lno = 0x12d9 // 0x4ed5 @0x2
0x4ed3…4edc at0004 = ╱92╱ PRINT ╱ // 0x4ed7 @0x4
0x4ed3…4edc at0005 = ╱51╱Q╱ // 0x4ed8 @0x5
0x4ed3…4edc at0006 = ╱54╱T╱ // 0x4ed9 @0x6
0x4ed3…4edc at0007 = ╱ef╱ $ ╱ // 0x4eda @0x7
0x4ed3…4edc at0008 = EOL // 0x4edb @0x8
0x4ed3…4edc }
0x4edc…4ee9 e4d7 04830 ENDPROC LSKRIV3
0x4edc…4ee9 LineComal80 {
0x4edc…4ee9 ptr = 0xe4d7 // 0x4edc @0x0
0x4edc…4ee9 lno = 0x12de // 0x4ede @0x2
0x4edc…4ee9 at0004 = ╱9f╱ ENDPROC ╱ // 0x4ee0 @0x4
0x4edc…4ee9 at0005 = ╱4c╱L╱ // 0x4ee1 @0x5
0x4edc…4ee9 at0006 = ╱53╱S╱ // 0x4ee2 @0x6
0x4edc…4ee9 at0007 = ╱4b╱K╱ // 0x4ee3 @0x7
0x4edc…4ee9 at0008 = ╱52╱R╱ // 0x4ee4 @0x8
0x4edc…4ee9 at0009 = ╱49╱I╱ // 0x4ee5 @0x9
0x4edc…4ee9 at000a = ╱56╱V╱ // 0x4ee6 @0xa
0x4edc…4ee9 at000b = ╱33╱3╱ // 0x4ee7 @0xb
0x4edc…4ee9 at000c = EOL // 0x4ee8 @0xc
0x4edc…4ee9 }
0x4ee9…4ef6 e4e4 04835 PROC REGN50
0x4ee9…4ef6 LineComal80 {
0x4ee9…4ef6 ptr = 0xe4e4 // 0x4ee9 @0x0
0x4ee9…4ef6 lno = 0x12e3 // 0x4eeb @0x2
0x4ee9…4ef6 at0004 = ╱9e00╱ PROC ╱ // 0x4eed @0x4
0x4ee9…4ef6 at0006 = ╱52╱R╱ // 0x4eef @0x6
0x4ee9…4ef6 at0007 = ╱45╱E╱ // 0x4ef0 @0x7
0x4ee9…4ef6 at0008 = ╱47╱G╱ // 0x4ef1 @0x8
0x4ee9…4ef6 at0009 = ╱4e╱N╱ // 0x4ef2 @0x9
0x4ee9…4ef6 at000a = ╱35╱5╱ // 0x4ef3 @0xa
0x4ee9…4ef6 at000b = ╱30╱0╱ // 0x4ef4 @0xb
0x4ee9…4ef6 at000c = EOL // 0x4ef5 @0xc
0x4ee9…4ef6 }
0x4ef6…4f02 e4f0 04840 EXEC REGN32
0x4ef6…4f02 LineComal80 {
0x4ef6…4f02 ptr = 0xe4f0 // 0x4ef6 @0x0
0x4ef6…4f02 lno = 0x12e8 // 0x4ef8 @0x2
0x4ef6…4f02 at0004 = ╱9d╱ EXEC ╱ // 0x4efa @0x4
0x4ef6…4f02 at0005 = ╱52╱R╱ // 0x4efb @0x5
0x4ef6…4f02 at0006 = ╱45╱E╱ // 0x4efc @0x6
0x4ef6…4f02 at0007 = ╱47╱G╱ // 0x4efd @0x7
0x4ef6…4f02 at0008 = ╱4e╱N╱ // 0x4efe @0x8
0x4ef6…4f02 at0009 = ╱33╱3╱ // 0x4eff @0x9
0x4ef6…4f02 at000a = ╱32╱2╱ // 0x4f00 @0xa
0x4ef6…4f02 at000b = EOL // 0x4f01 @0xb
0x4ef6…4f02 }
0x4f02…4f0e e4fc 04845 EXEC REGN33
0x4f02…4f0e LineComal80 {
0x4f02…4f0e ptr = 0xe4fc // 0x4f02 @0x0
0x4f02…4f0e lno = 0x12ed // 0x4f04 @0x2
0x4f02…4f0e at0004 = ╱9d╱ EXEC ╱ // 0x4f06 @0x4
0x4f02…4f0e at0005 = ╱52╱R╱ // 0x4f07 @0x5
0x4f02…4f0e at0006 = ╱45╱E╱ // 0x4f08 @0x6
0x4f02…4f0e at0007 = ╱47╱G╱ // 0x4f09 @0x7
0x4f02…4f0e at0008 = ╱4e╱N╱ // 0x4f0a @0x8
0x4f02…4f0e at0009 = ╱33╱3╱ // 0x4f0b @0x9
0x4f02…4f0e at000a = ╱33╱3╱ // 0x4f0c @0xa
0x4f02…4f0e at000b = EOL // 0x4f0d @0xb
0x4f02…4f0e }
0x4f0e…4f1a e508 04850 EXEC REGN34
0x4f0e…4f1a LineComal80 {
0x4f0e…4f1a ptr = 0xe508 // 0x4f0e @0x0
0x4f0e…4f1a lno = 0x12f2 // 0x4f10 @0x2
0x4f0e…4f1a at0004 = ╱9d╱ EXEC ╱ // 0x4f12 @0x4
0x4f0e…4f1a at0005 = ╱52╱R╱ // 0x4f13 @0x5
0x4f0e…4f1a at0006 = ╱45╱E╱ // 0x4f14 @0x6
0x4f0e…4f1a at0007 = ╱47╱G╱ // 0x4f15 @0x7
0x4f0e…4f1a at0008 = ╱4e╱N╱ // 0x4f16 @0x8
0x4f0e…4f1a at0009 = ╱33╱3╱ // 0x4f17 @0x9
0x4f0e…4f1a at000a = ╱34╱4╱ // 0x4f18 @0xa
0x4f0e…4f1a at000b = EOL // 0x4f19 @0xb
0x4f0e…4f1a }
0x4f1a…4f2d e51b 04855 IF C8 = P3 THEN LET C8 := P4
0x4f1a…4f2d LineComal80 {
0x4f1a…4f2d ptr = 0xe51b // 0x4f1a @0x0
0x4f1a…4f2d lno = 0x12f7 // 0x4f1c @0x2
0x4f1a…4f2d at0004 = ╱8200╱ IF ╱ // 0x4f1e @0x4
0x4f1a…4f2d at0006 = ╱43╱C╱ // 0x4f20 @0x6
0x4f1a…4f2d at0007 = ╱38╱8╱ // 0x4f21 @0x7
0x4f1a…4f2d at0008 = ╱df╱ = ╱ // 0x4f22 @0x8
0x4f1a…4f2d at0009 = ╱50╱P╱ // 0x4f23 @0x9
0x4f1a…4f2d at000a = ╱33╱3╱ // 0x4f24 @0xa
0x4f1a…4f2d at000b = ╱b5╱ THEN ╱ // 0x4f25 @0xb
0x4f1a…4f2d at000c = ╱86╱ LET ╱ // 0x4f26 @0xc
0x4f1a…4f2d at000d = ╱43╱C╱ // 0x4f27 @0xd
0x4f1a…4f2d at000e = ╱38╱8╱ // 0x4f28 @0xe
0x4f1a…4f2d at000f = ╱f0╱ := ╱ // 0x4f29 @0xf
0x4f1a…4f2d at0010 = ╱50╱P╱ // 0x4f2a @0x10
0x4f1a…4f2d at0011 = ╱34╱4╱ // 0x4f2b @0x11
0x4f1a…4f2d at0012 = EOL // 0x4f2c @0x12
0x4f1a…4f2d }
0x4f2d…4f39 e527 04860 EXEC REGN35
0x4f2d…4f39 LineComal80 {
0x4f2d…4f39 ptr = 0xe527 // 0x4f2d @0x0
0x4f2d…4f39 lno = 0x12fc // 0x4f2f @0x2
0x4f2d…4f39 at0004 = ╱9d╱ EXEC ╱ // 0x4f31 @0x4
0x4f2d…4f39 at0005 = ╱52╱R╱ // 0x4f32 @0x5
0x4f2d…4f39 at0006 = ╱45╱E╱ // 0x4f33 @0x6
0x4f2d…4f39 at0007 = ╱47╱G╱ // 0x4f34 @0x7
0x4f2d…4f39 at0008 = ╱4e╱N╱ // 0x4f35 @0x8
0x4f2d…4f39 at0009 = ╱33╱3╱ // 0x4f36 @0x9
0x4f2d…4f39 at000a = ╱35╱5╱ // 0x4f37 @0xa
0x4f2d…4f39 at000b = EOL // 0x4f38 @0xb
0x4f2d…4f39 }
0x4f39…4f45 e533 04865 EXEC REGN36
0x4f39…4f45 LineComal80 {
0x4f39…4f45 ptr = 0xe533 // 0x4f39 @0x0
0x4f39…4f45 lno = 0x1301 // 0x4f3b @0x2
0x4f39…4f45 at0004 = ╱9d╱ EXEC ╱ // 0x4f3d @0x4
0x4f39…4f45 at0005 = ╱52╱R╱ // 0x4f3e @0x5
0x4f39…4f45 at0006 = ╱45╱E╱ // 0x4f3f @0x6
0x4f39…4f45 at0007 = ╱47╱G╱ // 0x4f40 @0x7
0x4f39…4f45 at0008 = ╱4e╱N╱ // 0x4f41 @0x8
0x4f39…4f45 at0009 = ╱33╱3╱ // 0x4f42 @0x9
0x4f39…4f45 at000a = ╱36╱6╱ // 0x4f43 @0xa
0x4f39…4f45 at000b = EOL // 0x4f44 @0xb
0x4f39…4f45 }
0x4f45…4f51 e53f 04870 IF 5 > O THEN
0x4f45…4f51 LineComal80 {
0x4f45…4f51 ptr = 0xe53f // 0x4f45 @0x0
0x4f45…4f51 lno = 0x1306 // 0x4f47 @0x2
0x4f45…4f51 at0004 = ╱9b0044╱ IF ╱ // 0x4f49 @0x4
0x4f45…4f51 at0007 = ╱35╱5╱ // 0x4f4c @0x7
0x4f45…4f51 at0008 = ╱e1╱ > ╱ // 0x4f4d @0x8
0x4f45…4f51 at0009 = ╱4f╱O╱ // 0x4f4e @0x9
0x4f45…4f51 at000a = ╱b5╱ THEN ╱ // 0x4f4f @0xa
0x4f45…4f51 at000b = EOL // 0x4f50 @0xb
0x4f45…4f51 }
0x4f51…4f5d e54b 04875 EXEC REGN37
0x4f51…4f5d LineComal80 {
0x4f51…4f5d ptr = 0xe54b // 0x4f51 @0x0
0x4f51…4f5d lno = 0x130b // 0x4f53 @0x2
0x4f51…4f5d at0004 = ╱9d╱ EXEC ╱ // 0x4f55 @0x4
0x4f51…4f5d at0005 = ╱52╱R╱ // 0x4f56 @0x5
0x4f51…4f5d at0006 = ╱45╱E╱ // 0x4f57 @0x6
0x4f51…4f5d at0007 = ╱47╱G╱ // 0x4f58 @0x7
0x4f51…4f5d at0008 = ╱4e╱N╱ // 0x4f59 @0x8
0x4f51…4f5d at0009 = ╱33╱3╱ // 0x4f5a @0x9
0x4f51…4f5d at000a = ╱37╱7╱ // 0x4f5b @0xa
0x4f51…4f5d at000b = EOL // 0x4f5c @0xb
0x4f51…4f5d }
0x4f5d…4f64 e552 04880 ELSE
0x4f5d…4f64 LineComal80 {
0x4f5d…4f64 ptr = 0xe552 // 0x4f5d @0x0
0x4f5d…4f64 lno = 0x1310 // 0x4f5f @0x2
0x4f5d…4f64 at0004 = ╱9a00╱ ELSE ╱ // 0x4f61 @0x4
0x4f5d…4f64 at0006 = EOL // 0x4f63 @0x6
0x4f5d…4f64 }
0x4f64…4f86 e574 04885 IF C8 > C7 THEN LET D5 := D5 - ( ( C8 - C7 ) * P9 / W )
0x4f64…4f86 LineComal80 {
0x4f64…4f86 ptr = 0xe574 // 0x4f64 @0x0
0x4f64…4f86 lno = 0x1315 // 0x4f66 @0x2
0x4f64…4f86 at0004 = ╱8200╱ IF ╱ // 0x4f68 @0x4
0x4f64…4f86 at0006 = ╱43╱C╱ // 0x4f6a @0x6
0x4f64…4f86 at0007 = ╱38╱8╱ // 0x4f6b @0x7
0x4f64…4f86 at0008 = ╱e1╱ > ╱ // 0x4f6c @0x8
0x4f64…4f86 at0009 = ╱43╱C╱ // 0x4f6d @0x9
0x4f64…4f86 at000a = ╱37╱7╱ // 0x4f6e @0xa
0x4f64…4f86 at000b = ╱b5╱ THEN ╱ // 0x4f6f @0xb
0x4f64…4f86 at000c = ╱86╱ LET ╱ // 0x4f70 @0xc
0x4f64…4f86 at000d = ╱44╱D╱ // 0x4f71 @0xd
0x4f64…4f86 at000e = ╱35╱5╱ // 0x4f72 @0xe
0x4f64…4f86 at000f = ╱f0╱ := ╱ // 0x4f73 @0xf
0x4f64…4f86 at0010 = ╱44╱D╱ // 0x4f74 @0x10
0x4f64…4f86 at0011 = ╱35╱5╱ // 0x4f75 @0x11
0x4f64…4f86 at0012 = ╱e6╱ - ╱ // 0x4f76 @0x12
0x4f64…4f86 at0013 = ╱ed╱ ( ╱ // 0x4f77 @0x13
0x4f64…4f86 at0014 = ╱ed╱ ( ╱ // 0x4f78 @0x14
0x4f64…4f86 at0015 = ╱43╱C╱ // 0x4f79 @0x15
0x4f64…4f86 at0016 = ╱38╱8╱ // 0x4f7a @0x16
0x4f64…4f86 at0017 = ╱e6╱ - ╱ // 0x4f7b @0x17
0x4f64…4f86 at0018 = ╱43╱C╱ // 0x4f7c @0x18
0x4f64…4f86 at0019 = ╱37╱7╱ // 0x4f7d @0x19
0x4f64…4f86 at001a = ╱ee╱ ) ╱ // 0x4f7e @0x1a
0x4f64…4f86 at001b = ╱e7╱ * ╱ // 0x4f7f @0x1b
0x4f64…4f86 at001c = ╱50╱P╱ // 0x4f80 @0x1c
0x4f64…4f86 at001d = ╱39╱9╱ // 0x4f81 @0x1d
0x4f64…4f86 at001e = ╱e8╱ / ╱ // 0x4f82 @0x1e
0x4f64…4f86 at001f = ╱57╱W╱ // 0x4f83 @0x1f
0x4f64…4f86 at0020 = ╱ee╱ ) ╱ // 0x4f84 @0x20
0x4f64…4f86 at0021 = EOL // 0x4f85 @0x21
0x4f64…4f86 }
0x4f86…4f8c e57a 04890 ENDIF
0x4f86…4f8c LineComal80 {
0x4f86…4f8c ptr = 0xe57a // 0x4f86 @0x0
0x4f86…4f8c lno = 0x131a // 0x4f88 @0x2
0x4f86…4f8c at0004 = ╱9c╱ ENDIF ╱ // 0x4f8a @0x4
0x4f86…4f8c at0005 = EOL // 0x4f8b @0x5
0x4f86…4f8c }
0x4f8c…4f98 e586 04895 EXEC REGN38
0x4f8c…4f98 LineComal80 {
0x4f8c…4f98 ptr = 0xe586 // 0x4f8c @0x0
0x4f8c…4f98 lno = 0x131f // 0x4f8e @0x2
0x4f8c…4f98 at0004 = ╱9d╱ EXEC ╱ // 0x4f90 @0x4
0x4f8c…4f98 at0005 = ╱52╱R╱ // 0x4f91 @0x5
0x4f8c…4f98 at0006 = ╱45╱E╱ // 0x4f92 @0x6
0x4f8c…4f98 at0007 = ╱47╱G╱ // 0x4f93 @0x7
0x4f8c…4f98 at0008 = ╱4e╱N╱ // 0x4f94 @0x8
0x4f8c…4f98 at0009 = ╱33╱3╱ // 0x4f95 @0x9
0x4f8c…4f98 at000a = ╱38╱8╱ // 0x4f96 @0xa
0x4f8c…4f98 at000b = EOL // 0x4f97 @0xb
0x4f8c…4f98 }
0x4f98…4fa4 e592 04900 ENDPROC REGN50
0x4f98…4fa4 LineComal80 {
0x4f98…4fa4 ptr = 0xe592 // 0x4f98 @0x0
0x4f98…4fa4 lno = 0x1324 // 0x4f9a @0x2
0x4f98…4fa4 at0004 = ╱9f╱ ENDPROC ╱ // 0x4f9c @0x4
0x4f98…4fa4 at0005 = ╱52╱R╱ // 0x4f9d @0x5
0x4f98…4fa4 at0006 = ╱45╱E╱ // 0x4f9e @0x6
0x4f98…4fa4 at0007 = ╱47╱G╱ // 0x4f9f @0x7
0x4f98…4fa4 at0008 = ╱4e╱N╱ // 0x4fa0 @0x8
0x4f98…4fa4 at0009 = ╱35╱5╱ // 0x4fa1 @0x9
0x4f98…4fa4 at000a = ╱30╱0╱ // 0x4fa2 @0xa
0x4f98…4fa4 at000b = EOL // 0x4fa3 @0xb
0x4f98…4fa4 }
0x4fa4…4fb1 e59f 04905 PROC REGN51
0x4fa4…4fb1 LineComal80 {
0x4fa4…4fb1 ptr = 0xe59f // 0x4fa4 @0x0
0x4fa4…4fb1 lno = 0x1329 // 0x4fa6 @0x2
0x4fa4…4fb1 at0004 = ╱9e00╱ PROC ╱ // 0x4fa8 @0x4
0x4fa4…4fb1 at0006 = ╱52╱R╱ // 0x4faa @0x6
0x4fa4…4fb1 at0007 = ╱45╱E╱ // 0x4fab @0x7
0x4fa4…4fb1 at0008 = ╱47╱G╱ // 0x4fac @0x8
0x4fa4…4fb1 at0009 = ╱4e╱N╱ // 0x4fad @0x9
0x4fa4…4fb1 at000a = ╱35╱5╱ // 0x4fae @0xa
0x4fa4…4fb1 at000b = ╱31╱1╱ // 0x4faf @0xb
0x4fa4…4fb1 at000c = EOL // 0x4fb0 @0xc
0x4fa4…4fb1 }
0x4fb1…4fbd e5ab 04910 EXEC REGN26
0x4fb1…4fbd LineComal80 {
0x4fb1…4fbd ptr = 0xe5ab // 0x4fb1 @0x0
0x4fb1…4fbd lno = 0x132e // 0x4fb3 @0x2
0x4fb1…4fbd at0004 = ╱9d╱ EXEC ╱ // 0x4fb5 @0x4
0x4fb1…4fbd at0005 = ╱52╱R╱ // 0x4fb6 @0x5
0x4fb1…4fbd at0006 = ╱45╱E╱ // 0x4fb7 @0x6
0x4fb1…4fbd at0007 = ╱47╱G╱ // 0x4fb8 @0x7
0x4fb1…4fbd at0008 = ╱4e╱N╱ // 0x4fb9 @0x8
0x4fb1…4fbd at0009 = ╱32╱2╱ // 0x4fba @0x9
0x4fb1…4fbd at000a = ╱36╱6╱ // 0x4fbb @0xa
0x4fb1…4fbd at000b = EOL // 0x4fbc @0xb
0x4fb1…4fbd }
0x4fbd…4fc9 e5b7 04915 EXEC REGN27
0x4fbd…4fc9 LineComal80 {
0x4fbd…4fc9 ptr = 0xe5b7 // 0x4fbd @0x0
0x4fbd…4fc9 lno = 0x1333 // 0x4fbf @0x2
0x4fbd…4fc9 at0004 = ╱9d╱ EXEC ╱ // 0x4fc1 @0x4
0x4fbd…4fc9 at0005 = ╱52╱R╱ // 0x4fc2 @0x5
0x4fbd…4fc9 at0006 = ╱45╱E╱ // 0x4fc3 @0x6
0x4fbd…4fc9 at0007 = ╱47╱G╱ // 0x4fc4 @0x7
0x4fbd…4fc9 at0008 = ╱4e╱N╱ // 0x4fc5 @0x8
0x4fbd…4fc9 at0009 = ╱32╱2╱ // 0x4fc6 @0x9
0x4fbd…4fc9 at000a = ╱37╱7╱ // 0x4fc7 @0xa
0x4fbd…4fc9 at000b = EOL // 0x4fc8 @0xb
0x4fbd…4fc9 }
0x4fc9…4fd5 e5c3 04920 EXEC REGN28
0x4fc9…4fd5 LineComal80 {
0x4fc9…4fd5 ptr = 0xe5c3 // 0x4fc9 @0x0
0x4fc9…4fd5 lno = 0x1338 // 0x4fcb @0x2
0x4fc9…4fd5 at0004 = ╱9d╱ EXEC ╱ // 0x4fcd @0x4
0x4fc9…4fd5 at0005 = ╱52╱R╱ // 0x4fce @0x5
0x4fc9…4fd5 at0006 = ╱45╱E╱ // 0x4fcf @0x6
0x4fc9…4fd5 at0007 = ╱47╱G╱ // 0x4fd0 @0x7
0x4fc9…4fd5 at0008 = ╱4e╱N╱ // 0x4fd1 @0x8
0x4fc9…4fd5 at0009 = ╱32╱2╱ // 0x4fd2 @0x9
0x4fc9…4fd5 at000a = ╱38╱8╱ // 0x4fd3 @0xa
0x4fc9…4fd5 at000b = EOL // 0x4fd4 @0xb
0x4fc9…4fd5 }
0x4fd5…4fe1 e5cf 04925 EXEC REGN29
0x4fd5…4fe1 LineComal80 {
0x4fd5…4fe1 ptr = 0xe5cf // 0x4fd5 @0x0
0x4fd5…4fe1 lno = 0x133d // 0x4fd7 @0x2
0x4fd5…4fe1 at0004 = ╱9d╱ EXEC ╱ // 0x4fd9 @0x4
0x4fd5…4fe1 at0005 = ╱52╱R╱ // 0x4fda @0x5
0x4fd5…4fe1 at0006 = ╱45╱E╱ // 0x4fdb @0x6
0x4fd5…4fe1 at0007 = ╱47╱G╱ // 0x4fdc @0x7
0x4fd5…4fe1 at0008 = ╱4e╱N╱ // 0x4fdd @0x8
0x4fd5…4fe1 at0009 = ╱32╱2╱ // 0x4fde @0x9
0x4fd5…4fe1 at000a = ╱39╱9╱ // 0x4fdf @0xa
0x4fd5…4fe1 at000b = EOL // 0x4fe0 @0xb
0x4fd5…4fe1 }
0x4fe1…4fed e5db 04930 ENDPROC REGN51
0x4fe1…4fed LineComal80 {
0x4fe1…4fed ptr = 0xe5db // 0x4fe1 @0x0
0x4fe1…4fed lno = 0x1342 // 0x4fe3 @0x2
0x4fe1…4fed at0004 = ╱9f╱ ENDPROC ╱ // 0x4fe5 @0x4
0x4fe1…4fed at0005 = ╱52╱R╱ // 0x4fe6 @0x5
0x4fe1…4fed at0006 = ╱45╱E╱ // 0x4fe7 @0x6
0x4fe1…4fed at0007 = ╱47╱G╱ // 0x4fe8 @0x7
0x4fe1…4fed at0008 = ╱4e╱N╱ // 0x4fe9 @0x8
0x4fe1…4fed at0009 = ╱35╱5╱ // 0x4fea @0x9
0x4fe1…4fed at000a = ╱31╱1╱ // 0x4feb @0xa
0x4fe1…4fed at000b = EOL // 0x4fec @0xb
0x4fe1…4fed }
0x4fed…4ffa e5e8 04935 PROC RETURN
0x4fed…4ffa LineComal80 {
0x4fed…4ffa ptr = 0xe5e8 // 0x4fed @0x0
0x4fed…4ffa lno = 0x1347 // 0x4fef @0x2
0x4fed…4ffa at0004 = ╱9e00╱ PROC ╱ // 0x4ff1 @0x4
0x4fed…4ffa at0006 = ╱52╱R╱ // 0x4ff3 @0x6
0x4fed…4ffa at0007 = ╱45╱E╱ // 0x4ff4 @0x7
0x4fed…4ffa at0008 = ╱54╱T╱ // 0x4ff5 @0x8
0x4fed…4ffa at0009 = ╱55╱U╱ // 0x4ff6 @0x9
0x4fed…4ffa at000a = ╱52╱R╱ // 0x4ff7 @0xa
0x4fed…4ffa at000b = ╱4e╱N╱ // 0x4ff8 @0xb
0x4fed…4ffa at000c = EOL // 0x4ff9 @0xc
0x4fed…4ffa }
0x4ffa…5006 e5f4 04940 LET S $ := "-"
0x4ffa…5006 LineComal80 {
0x4ffa…5006 ptr = 0xe5f4 // 0x4ffa @0x0
0x4ffa…5006 lno = 0x134c // 0x4ffc @0x2
0x4ffa…5006 at0004 = ╱86╱ LET ╱ // 0x4ffe @0x4
0x4ffa…5006 at0005 = ╱53╱S╱ // 0x4fff @0x5
0x4ffa…5006 at0006 = ╱ef╱ $ ╱ // 0x5000 @0x6
0x4ffa…5006 at0007 = ╱f0╱ := ╱ // 0x5001 @0x7
0x4ffa…5006 at0008 = ╱22╱"╱ // 0x5002 @0x8
0x4ffa…5006 at0009 = ╱2d╱-╱ // 0x5003 @0x9
0x4ffa…5006 at000a = ╱22╱"╱ // 0x5004 @0xa
0x4ffa…5006 at000b = EOL // 0x5005 @0xb
0x4ffa…5006 }
0x5006…500c e5fa 04945 PRINT
0x5006…500c LineComal80 {
0x5006…500c ptr = 0xe5fa // 0x5006 @0x0
0x5006…500c lno = 0x1351 // 0x5008 @0x2
0x5006…500c at0004 = ╱92╱ PRINT ╱ // 0x500a @0x4
0x5006…500c at0005 = EOL // 0x500b @0x5
0x5006…500c }
0x500c…501b e609 04950 PRINT TAB ( 65 ) ;
0x500c…501b LineComal80 {
0x500c…501b ptr = 0xe609 // 0x500c @0x0
0x500c…501b lno = 0x1356 // 0x500e @0x2
0x500c…501b at0004 = ╱92╱ PRINT ╱ // 0x5010 @0x4
0x500c…501b at0005 = ╱d2╱ TAB ╱ // 0x5011 @0x5
0x500c…501b at0006 = ╱ed╱ ( ╱ // 0x5012 @0x6
0x500c…501b at0007 = ╱36╱6╱ // 0x5013 @0x7
0x500c…501b at0008 = ╱35╱5╱ // 0x5014 @0x8
0x500c…501b at0009 = ╱f24100╱ // 0x5015 @0x9
0x500c…501b at000c = ╱ee╱ ) ╱ // 0x5018 @0xc
0x500c…501b at000d = ╱ea╱ ; ╱ // 0x5019 @0xd
0x500c…501b at000e = EOL // 0x501a @0xe
0x500c…501b }
0x501b…5032 e620 04955 EDIT "TRYK…-RETURN" : S $
0x501b…5032 LineComal80 {
0x501b…5032 ptr = 0xe620 // 0x501b @0x0
0x501b…5032 lno = 0x135b // 0x501d @0x2
0x501b…5032 at0004 = ╱b1╱ EDIT ╱ // 0x501f @0x4
0x501b…5032 at0005 = ╱22╱"╱ // 0x5020 @0x5
0x501b…5032 at0006 = ╱54╱T╱ // 0x5021 @0x6
0x501b…5032 at0007 = ╱52╱R╱ // 0x5022 @0x7
0x501b…5032 at0008 = ╱59╱Y╱ // 0x5023 @0x8
0x501b…5032 at0009 = ╱4b╱K╱ // 0x5024 @0x9
0x501b…5032 at000a = ╱20╱…╱ // 0x5025 @0xa
0x501b…5032 at000b = ╱2d╱-╱ // 0x5026 @0xb
0x501b…5032 at000c = ╱52╱R╱ // 0x5027 @0xc
0x501b…5032 at000d = ╱45╱E╱ // 0x5028 @0xd
0x501b…5032 at000e = ╱54╱T╱ // 0x5029 @0xe
0x501b…5032 at000f = ╱55╱U╱ // 0x502a @0xf
0x501b…5032 at0010 = ╱52╱R╱ // 0x502b @0x10
0x501b…5032 at0011 = ╱4e╱N╱ // 0x502c @0x11
0x501b…5032 at0012 = ╱22╱"╱ // 0x502d @0x12
0x501b…5032 at0013 = ╱f1╱ : ╱ // 0x502e @0x13
0x501b…5032 at0014 = ╱53╱S╱ // 0x502f @0x14
0x501b…5032 at0015 = ╱ef╱ $ ╱ // 0x5030 @0x15
0x501b…5032 at0016 = EOL // 0x5031 @0x16
0x501b…5032 }
0x5032…503e e62c 04960 ENDPROC RETURN
0x5032…503e LineComal80 {
0x5032…503e ptr = 0xe62c // 0x5032 @0x0
0x5032…503e lno = 0x1360 // 0x5034 @0x2
0x5032…503e at0004 = ╱9f╱ ENDPROC ╱ // 0x5036 @0x4
0x5032…503e at0005 = ╱52╱R╱ // 0x5037 @0x5
0x5032…503e at0006 = ╱45╱E╱ // 0x5038 @0x6
0x5032…503e at0007 = ╱54╱T╱ // 0x5039 @0x7
0x5032…503e at0008 = ╱55╱U╱ // 0x503a @0x8
0x5032…503e at0009 = ╱52╱R╱ // 0x503b @0x9
0x5032…503e at000a = ╱4e╱N╱ // 0x503c @0xa
0x5032…503e at000b = EOL // 0x503d @0xb
0x5032…503e }
0x503e…504a e638 04965 PROC SKIFT
0x503e…504a LineComal80 {
0x503e…504a ptr = 0xe638 // 0x503e @0x0
0x503e…504a lno = 0x1365 // 0x5040 @0x2
0x503e…504a at0004 = ╱9e00╱ PROC ╱ // 0x5042 @0x4
0x503e…504a at0006 = ╱53╱S╱ // 0x5044 @0x6
0x503e…504a at0007 = ╱4b╱K╱ // 0x5045 @0x7
0x503e…504a at0008 = ╱49╱I╱ // 0x5046 @0x8
0x503e…504a at0009 = ╱46╱F╱ // 0x5047 @0x9
0x503e…504a at000a = ╱54╱T╱ // 0x5048 @0xa
0x503e…504a at000b = EOL // 0x5049 @0xb
0x503e…504a }
0x504a…5058 e646 04970 IF = 1 THEN
0x504a…5058 LineComal80 {
0x504a…5058 ptr = 0xe646 // 0x504a @0x0
0x504a…5058 lno = 0x136a // 0x504c @0x2
0x504a…5058 at0004 = ╱9b0059╱ IF ╱ // 0x504e @0x4
0x504a…5058 at0007 = ╱df╱ = ╱ // 0x5051 @0x7
0x504a…5058 at0008 = ╱31╱1╱ // 0x5052 @0x8
0x504a…5058 at0009 = ╱f20100╱ // 0x5053 @0x9
0x504a…5058 at000c = ╱b5╱ THEN ╱ // 0x5056 @0xc
0x504a…5058 at000d = EOL // 0x5057 @0xd
0x504a…5058 }
0x5058…5064 e652 04975 EXEC RETURN
0x5058…5064 LineComal80 {
0x5058…5064 ptr = 0xe652 // 0x5058 @0x0
0x5058…5064 lno = 0x136f // 0x505a @0x2
0x5058…5064 at0004 = ╱9d╱ EXEC ╱ // 0x505c @0x4
0x5058…5064 at0005 = ╱52╱R╱ // 0x505d @0x5
0x5058…5064 at0006 = ╱45╱E╱ // 0x505e @0x6
0x5058…5064 at0007 = ╱54╱T╱ // 0x505f @0x7
0x5058…5064 at0008 = ╱55╱U╱ // 0x5060 @0x8
0x5058…5064 at0009 = ╱52╱R╱ // 0x5061 @0x9
0x5058…5064 at000a = ╱4e╱N╱ // 0x5062 @0xa
0x5058…5064 at000b = EOL // 0x5063 @0xb
0x5058…5064 }
0x5064…506a e658 04980 CLEAR
0x5064…506a LineComal80 {
0x5064…506a ptr = 0xe658 // 0x5064 @0x0
0x5064…506a lno = 0x1374 // 0x5066 @0x2
0x5064…506a at0004 = ╱a0╱ CLEAR ╱ // 0x5068 @0x4
0x5064…506a at0005 = EOL // 0x5069 @0x5
0x5064…506a }
0x506a…5071 e65f 04985 ELSE
0x506a…5071 LineComal80 {
0x506a…5071 ptr = 0xe65f // 0x506a @0x0
0x506a…5071 lno = 0x1379 // 0x506c @0x2
0x506a…5071 at0004 = ╱9a00╱ ELSE ╱ // 0x506e @0x4
0x506a…5071 at0006 = EOL // 0x5070 @0x6
0x506a…5071 }
0x5071…5084 e672 04990 FOR X := 1 TO DO
0x5071…5084 LineComal80 {
0x5071…5084 ptr = 0xe672 // 0x5071 @0x0
0x5071…5084 lno = 0x137e // 0x5073 @0x2
0x5071…5084 at0004 = ╱8300╱ FOR ╱ // 0x5075 @0x4
0x5071…5084 at0006 = ╱58╱X╱ // 0x5077 @0x6
0x5071…5084 at0007 = ╱f0╱ := ╱ // 0x5078 @0x7
0x5071…5084 at0008 = ╱31╱1╱ // 0x5079 @0x8
0x5071…5084 at0009 = ╱f20100╱ // 0x507a @0x9
0x5071…5084 at000c = ╱b735╱ TO ╱ // 0x507d @0xc
0x5071…5084 at000e = ╱f20500╱ // 0x507f @0xe
0x5071…5084 at0011 = ╱bb╱ DO ╱ // 0x5082 @0x11
0x5071…5084 at0012 = EOL // 0x5083 @0x12
0x5071…5084 }
0x5084…508a e678 04995 PRINT
0x5084…508a LineComal80 {
0x5084…508a ptr = 0xe678 // 0x5084 @0x0
0x5084…508a lno = 0x1383 // 0x5086 @0x2
0x5084…508a at0004 = ╱92╱ PRINT ╱ // 0x5088 @0x4
0x5084…508a at0005 = EOL // 0x5089 @0x5
0x5084…508a }
0x508a…5091 e67f 05000 NEXT X
0x508a…5091 LineComal80 {
0x508a…5091 ptr = 0xe67f // 0x508a @0x0
0x508a…5091 lno = 0x1388 // 0x508c @0x2
0x508a…5091 at0004 = ╱84╱ NEXT ╱ // 0x508e @0x4
0x508a…5091 at0005 = ╱58╱X╱ // 0x508f @0x5
0x508a…5091 at0006 = EOL // 0x5090 @0x6
0x508a…5091 }
0x5091…5097 e685 05005 ENDIF
0x5091…5097 LineComal80 {
0x5091…5097 ptr = 0xe685 // 0x5091 @0x0
0x5091…5097 lno = 0x138d // 0x5093 @0x2
0x5091…5097 at0004 = ╱9c╱ ENDIF ╱ // 0x5095 @0x4
0x5091…5097 at0005 = EOL // 0x5096 @0x5
0x5091…5097 }
0x5097…50a2 e690 05010 ENDPROC SKIFT
0x5097…50a2 LineComal80 {
0x5097…50a2 ptr = 0xe690 // 0x5097 @0x0
0x5097…50a2 lno = 0x1392 // 0x5099 @0x2
0x5097…50a2 at0004 = ╱9f╱ ENDPROC ╱ // 0x509b @0x4
0x5097…50a2 at0005 = ╱53╱S╱ // 0x509c @0x5
0x5097…50a2 at0006 = ╱4b╱K╱ // 0x509d @0x6
0x5097…50a2 at0007 = ╱49╱I╱ // 0x509e @0x7
0x5097…50a2 at0008 = ╱46╱F╱ // 0x509f @0x8
0x5097…50a2 at0009 = ╱54╱T╱ // 0x50a0 @0x9
0x5097…50a2 at000a = EOL // 0x50a1 @0xa
0x5097…50a2 }
0x50a2…50b2 e6a0 05015 PROC SIDESKIFT
0x50a2…50b2 LineComal80 {
0x50a2…50b2 ptr = 0xe6a0 // 0x50a2 @0x0
0x50a2…50b2 lno = 0x1397 // 0x50a4 @0x2
0x50a2…50b2 at0004 = ╱9e00╱ PROC ╱ // 0x50a6 @0x4
0x50a2…50b2 at0006 = ╱53╱S╱ // 0x50a8 @0x6
0x50a2…50b2 at0007 = ╱49╱I╱ // 0x50a9 @0x7
0x50a2…50b2 at0008 = ╱44╱D╱ // 0x50aa @0x8
0x50a2…50b2 at0009 = ╱45╱E╱ // 0x50ab @0x9
0x50a2…50b2 at000a = ╱53╱S╱ // 0x50ac @0xa
0x50a2…50b2 at000b = ╱4b╱K╱ // 0x50ad @0xb
0x50a2…50b2 at000c = ╱49╱I╱ // 0x50ae @0xc
0x50a2…50b2 at000d = ╱46╱F╱ // 0x50af @0xd
0x50a2…50b2 at000e = ╱54╱T╱ // 0x50b0 @0xe
0x50a2…50b2 at000f = EOL // 0x50b1 @0xf
0x50a2…50b2 }
0x50b2…50c0 e6ae 05020 IF = 2 THEN
0x50b2…50c0 LineComal80 {
0x50b2…50c0 ptr = 0xe6ae // 0x50b2 @0x0
0x50b2…50c0 lno = 0x139c // 0x50b4 @0x2
0x50b2…50c0 at0004 = ╱9b0059╱ IF ╱ // 0x50b6 @0x4
0x50b2…50c0 at0007 = ╱df╱ = ╱ // 0x50b9 @0x7
0x50b2…50c0 at0008 = ╱32╱2╱ // 0x50ba @0x8
0x50b2…50c0 at0009 = ╱f20200╱ // 0x50bb @0x9
0x50b2…50c0 at000c = ╱b5╱ THEN ╱ // 0x50be @0xc
0x50b2…50c0 at000d = EOL // 0x50bf @0xd
0x50b2…50c0 }
0x50c0…50ce e6bc 05025 PRINT CHR$ ( 12 )
0x50c0…50ce LineComal80 {
0x50c0…50ce ptr = 0xe6bc // 0x50c0 @0x0
0x50c0…50ce lno = 0x13a1 // 0x50c2 @0x2
0x50c0…50ce at0004 = ╱92╱ PRINT ╱ // 0x50c4 @0x4
0x50c0…50ce at0005 = ╱d0╱ CHR$ ╱ // 0x50c5 @0x5
0x50c0…50ce at0006 = ╱ed╱ ( ╱ // 0x50c6 @0x6
0x50c0…50ce at0007 = ╱31╱1╱ // 0x50c7 @0x7
0x50c0…50ce at0008 = ╱32╱2╱ // 0x50c8 @0x8
0x50c0…50ce at0009 = ╱f20c00╱ // 0x50c9 @0x9
0x50c0…50ce at000c = ╱ee╱ ) ╱ // 0x50cc @0xc
0x50c0…50ce at000d = EOL // 0x50cd @0xd
0x50c0…50ce }
0x50ce…50d8 e6c6 05030 PRINT REV $
0x50ce…50d8 LineComal80 {
0x50ce…50d8 ptr = 0xe6c6 // 0x50ce @0x0
0x50ce…50d8 lno = 0x13a6 // 0x50d0 @0x2
0x50ce…50d8 at0004 = ╱92╱ PRINT ╱ // 0x50d2 @0x4
0x50ce…50d8 at0005 = ╱52╱R╱ // 0x50d3 @0x5
0x50ce…50d8 at0006 = ╱45╱E╱ // 0x50d4 @0x6
0x50ce…50d8 at0007 = ╱56╱V╱ // 0x50d5 @0x7
0x50ce…50d8 at0008 = ╱ef╱ $ ╱ // 0x50d6 @0x8
0x50ce…50d8 at0009 = EOL // 0x50d7 @0x9
0x50ce…50d8 }
0x50d8…50e2 e6d0 05035 PRINT ADR $
0x50d8…50e2 LineComal80 {
0x50d8…50e2 ptr = 0xe6d0 // 0x50d8 @0x0
0x50d8…50e2 lno = 0x13ab // 0x50da @0x2
0x50d8…50e2 at0004 = ╱92╱ PRINT ╱ // 0x50dc @0x4
0x50d8…50e2 at0005 = ╱41╱A╱ // 0x50dd @0x5
0x50d8…50e2 at0006 = ╱44╱D╱ // 0x50de @0x6
0x50d8…50e2 at0007 = ╱52╱R╱ // 0x50df @0x7
0x50d8…50e2 at0008 = ╱ef╱ $ ╱ // 0x50e0 @0x8
0x50d8…50e2 at0009 = EOL // 0x50e1 @0x9
0x50d8…50e2 }
0x50e2…50e8 e6d6 05040 ENDIF
0x50e2…50e8 LineComal80 {
0x50e2…50e8 ptr = 0xe6d6 // 0x50e2 @0x0
0x50e2…50e8 lno = 0x13b0 // 0x50e4 @0x2
0x50e2…50e8 at0004 = ╱9c╱ ENDIF ╱ // 0x50e6 @0x4
0x50e2…50e8 at0005 = EOL // 0x50e7 @0x5
0x50e2…50e8 }
0x50e8…50f3 e6e1 05045 EXEC SKIFT
0x50e8…50f3 LineComal80 {
0x50e8…50f3 ptr = 0xe6e1 // 0x50e8 @0x0
0x50e8…50f3 lno = 0x13b5 // 0x50ea @0x2
0x50e8…50f3 at0004 = ╱9d╱ EXEC ╱ // 0x50ec @0x4
0x50e8…50f3 at0005 = ╱53╱S╱ // 0x50ed @0x5
0x50e8…50f3 at0006 = ╱4b╱K╱ // 0x50ee @0x6
0x50e8…50f3 at0007 = ╱49╱I╱ // 0x50ef @0x7
0x50e8…50f3 at0008 = ╱46╱F╱ // 0x50f0 @0x8
0x50e8…50f3 at0009 = ╱54╱T╱ // 0x50f1 @0x9
0x50e8…50f3 at000a = EOL // 0x50f2 @0xa
0x50e8…50f3 }
0x50f3…5102 e6f0 05050 ENDPROC SIDESKIFT
0x50f3…5102 LineComal80 {
0x50f3…5102 ptr = 0xe6f0 // 0x50f3 @0x0
0x50f3…5102 lno = 0x13ba // 0x50f5 @0x2
0x50f3…5102 at0004 = ╱9f╱ ENDPROC ╱ // 0x50f7 @0x4
0x50f3…5102 at0005 = ╱53╱S╱ // 0x50f8 @0x5
0x50f3…5102 at0006 = ╱49╱I╱ // 0x50f9 @0x6
0x50f3…5102 at0007 = ╱44╱D╱ // 0x50fa @0x7
0x50f3…5102 at0008 = ╱45╱E╱ // 0x50fb @0x8
0x50f3…5102 at0009 = ╱53╱S╱ // 0x50fc @0x9
0x50f3…5102 at000a = ╱4b╱K╱ // 0x50fd @0xa
0x50f3…5102 at000b = ╱49╱I╱ // 0x50fe @0xb
0x50f3…5102 at000c = ╱46╱F╱ // 0x50ff @0xc
0x50f3…5102 at000d = ╱54╱T╱ // 0x5100 @0xd
0x50f3…5102 at000e = EOL // 0x5101 @0xe
0x50f3…5102 }
0x5102…510c e6fa 05055 PROC WIN
0x5102…510c LineComal80 {
0x5102…510c ptr = 0xe6fa // 0x5102 @0x0
0x5102…510c lno = 0x13bf // 0x5104 @0x2
0x5102…510c at0004 = ╱9e00╱ PROC ╱ // 0x5106 @0x4
0x5102…510c at0006 = ╱57╱W╱ // 0x5108 @0x6
0x5102…510c at0007 = ╱49╱I╱ // 0x5109 @0x7
0x5102…510c at0008 = ╱4e╱N╱ // 0x510a @0x8
0x5102…510c at0009 = EOL // 0x510b @0x9
0x5102…510c }
0x510c…511c e70a 05060 CURSOR 1 , 20
0x510c…511c LineComal80 {
0x510c…511c ptr = 0xe70a // 0x510c @0x0
0x510c…511c lno = 0x13c4 // 0x510e @0x2
0x510c…511c at0004 = ╱a1╱ CURSOR ╱ // 0x5110 @0x4
0x510c…511c at0005 = ╱31╱1╱ // 0x5111 @0x5
0x510c…511c at0006 = ╱f20100╱ // 0x5112 @0x6
0x510c…511c at0009 = ╱ec╱ , ╱ // 0x5115 @0x9
0x510c…511c at000a = ╱32╱2╱ // 0x5116 @0xa
0x510c…511c at000b = ╱30╱0╱ // 0x5117 @0xb
0x510c…511c at000c = ╱f21400╱ // 0x5118 @0xc
0x510c…511c at000f = EOL // 0x511b @0xf
0x510c…511c }
0x511c…5129 e717 05065 PRINT SP $ + SP $
0x511c…5129 LineComal80 {
0x511c…5129 ptr = 0xe717 // 0x511c @0x0
0x511c…5129 lno = 0x13c9 // 0x511e @0x2
0x511c…5129 at0004 = ╱92╱ PRINT ╱ // 0x5120 @0x4
0x511c…5129 at0005 = ╱53╱S╱ // 0x5121 @0x5
0x511c…5129 at0006 = ╱50╱P╱ // 0x5122 @0x6
0x511c…5129 at0007 = ╱ef╱ $ ╱ // 0x5123 @0x7
0x511c…5129 at0008 = ╱eb╱ + ╱ // 0x5124 @0x8
0x511c…5129 at0009 = ╱53╱S╱ // 0x5125 @0x9
0x511c…5129 at000a = ╱50╱P╱ // 0x5126 @0xa
0x511c…5129 at000b = ╱ef╱ $ ╱ // 0x5127 @0xb
0x511c…5129 at000c = EOL // 0x5128 @0xc
0x511c…5129 }
0x5129…5152 e740 05070 LET X := 3 ; P := O ; A ( N ) := O ; FIL $ := "DDE:INDKOM"
0x5129…5152 LineComal80 {
0x5129…5152 ptr = 0xe740 // 0x5129 @0x0
0x5129…5152 lno = 0x13ce // 0x512b @0x2
0x5129…5152 at0004 = ╱86╱ LET ╱ // 0x512d @0x4
0x5129…5152 at0005 = ╱58╱X╱ // 0x512e @0x5
0x5129…5152 at0006 = ╱f0╱ := ╱ // 0x512f @0x6
0x5129…5152 at0007 = ╱33╱3╱ // 0x5130 @0x7
0x5129…5152 at0008 = ╱f20300╱ // 0x5131 @0x8
0x5129…5152 at000b = ╱ea╱ ; ╱ // 0x5134 @0xb
0x5129…5152 at000c = ╱50╱P╱ // 0x5135 @0xc
0x5129…5152 at000d = ╱f0╱ := ╱ // 0x5136 @0xd
0x5129…5152 at000e = ╱4f╱O╱ // 0x5137 @0xe
0x5129…5152 at000f = ╱ea╱ ; ╱ // 0x5138 @0xf
0x5129…5152 at0010 = ╱41╱A╱ // 0x5139 @0x10
0x5129…5152 at0011 = ╱ed╱ ( ╱ // 0x513a @0x11
0x5129…5152 at0012 = ╱4e╱N╱ // 0x513b @0x12
0x5129…5152 at0013 = ╱ee╱ ) ╱ // 0x513c @0x13
0x5129…5152 at0014 = ╱f0╱ := ╱ // 0x513d @0x14
0x5129…5152 at0015 = ╱4f╱O╱ // 0x513e @0x15
0x5129…5152 at0016 = ╱ea╱ ; ╱ // 0x513f @0x16
0x5129…5152 at0017 = ╱46╱F╱ // 0x5140 @0x17
0x5129…5152 at0018 = ╱49╱I╱ // 0x5141 @0x18
0x5129…5152 at0019 = ╱4c╱L╱ // 0x5142 @0x19
0x5129…5152 at001a = ╱ef╱ $ ╱ // 0x5143 @0x1a
0x5129…5152 at001b = ╱f0╱ := ╱ // 0x5144 @0x1b
0x5129…5152 at001c = ╱22╱"╱ // 0x5145 @0x1c
0x5129…5152 at001d = ╱44╱D╱ // 0x5146 @0x1d
0x5129…5152 at001e = ╱44╱D╱ // 0x5147 @0x1e
0x5129…5152 at001f = ╱45╱E╱ // 0x5148 @0x1f
0x5129…5152 at0020 = ╱3a╱:╱ // 0x5149 @0x20
0x5129…5152 at0021 = ╱49╱I╱ // 0x514a @0x21
0x5129…5152 at0022 = ╱4e╱N╱ // 0x514b @0x22
0x5129…5152 at0023 = ╱44╱D╱ // 0x514c @0x23
0x5129…5152 at0024 = ╱4b╱K╱ // 0x514d @0x24
0x5129…5152 at0025 = ╱4f╱O╱ // 0x514e @0x25
0x5129…5152 at0026 = ╱4d╱M╱ // 0x514f @0x26
0x5129…5152 at0027 = ╱22╱"╱ // 0x5150 @0x27
0x5129…5152 at0028 = EOL // 0x5151 @0x28
0x5129…5152 }
0x5152…515e e74c 05075 OPEN FIL $ , R
0x5152…515e LineComal80 {
0x5152…515e ptr = 0xe74c // 0x5152 @0x0
0x5152…515e lno = 0x13d3 // 0x5154 @0x2
0x5152…515e at0004 = ╱a7╱ OPEN ╱ // 0x5156 @0x4
0x5152…515e at0005 = ╱46╱F╱ // 0x5157 @0x5
0x5152…515e at0006 = ╱49╱I╱ // 0x5158 @0x6
0x5152…515e at0007 = ╱4c╱L╱ // 0x5159 @0x7
0x5152…515e at0008 = ╱ef╱ $ ╱ // 0x515a @0x8
0x5152…515e at0009 = ╱ec╱ , ╱ // 0x515b @0x9
0x5152…515e at000a = ╱52╱R╱ // 0x515c @0xa
0x5152…515e at000b = EOL // 0x515d @0xb
0x5152…515e }
0x515e…517b e769 05080 IF N = 18 THEN LET X := 6 ; P := 6
0x515e…517b LineComal80 {
0x515e…517b ptr = 0xe769 // 0x515e @0x0
0x515e…517b lno = 0x13d8 // 0x5160 @0x2
0x515e…517b at0004 = ╱8200╱ IF ╱ // 0x5162 @0x4
0x515e…517b at0006 = ╱4e╱N╱ // 0x5164 @0x6
0x515e…517b at0007 = ╱df╱ = ╱ // 0x5165 @0x7
0x515e…517b at0008 = ╱31╱1╱ // 0x5166 @0x8
0x515e…517b at0009 = ╱38╱8╱ // 0x5167 @0x9
0x515e…517b at000a = ╱f21200╱ // 0x5168 @0xa
0x515e…517b at000d = ╱b5╱ THEN ╱ // 0x516b @0xd
0x515e…517b at000e = ╱86╱ LET ╱ // 0x516c @0xe
0x515e…517b at000f = ╱58╱X╱ // 0x516d @0xf
0x515e…517b at0010 = ╱f0╱ := ╱ // 0x516e @0x10
0x515e…517b at0011 = ╱36╱6╱ // 0x516f @0x11
0x515e…517b at0012 = ╱f20600╱ // 0x5170 @0x12
0x515e…517b at0015 = ╱ea╱ ; ╱ // 0x5173 @0x15
0x515e…517b at0016 = ╱50╱P╱ // 0x5174 @0x16
0x515e…517b at0017 = ╱f0╱ := ╱ // 0x5175 @0x17
0x515e…517b at0018 = ╱36╱6╱ // 0x5176 @0x18
0x515e…517b at0019 = ╱f20600╱ // 0x5177 @0x19
0x515e…517b at001c = EOL // 0x517a @0x1c
0x515e…517b }
0x517b…5190 e77e 05085 IF N = 8 THEN LET P := 3
0x517b…5190 LineComal80 {
0x517b…5190 ptr = 0xe77e // 0x517b @0x0
0x517b…5190 lno = 0x13dd // 0x517d @0x2
0x517b…5190 at0004 = ╱8200╱ IF ╱ // 0x517f @0x4
0x517b…5190 at0006 = ╱4e╱N╱ // 0x5181 @0x6
0x517b…5190 at0007 = ╱df╱ = ╱ // 0x5182 @0x7
0x517b…5190 at0008 = ╱38╱8╱ // 0x5183 @0x8
0x517b…5190 at0009 = ╱f20800╱ // 0x5184 @0x9
0x517b…5190 at000c = ╱b5╱ THEN ╱ // 0x5187 @0xc
0x517b…5190 at000d = ╱86╱ LET ╱ // 0x5188 @0xd
0x517b…5190 at000e = ╱50╱P╱ // 0x5189 @0xe
0x517b…5190 at000f = ╱f0╱ := ╱ // 0x518a @0xf
0x517b…5190 at0010 = ╱33╱3╱ // 0x518b @0x10
0x517b…5190 at0011 = ╱f20300╱ // 0x518c @0x11
0x517b…5190 at0014 = EOL // 0x518f @0x14
0x517b…5190 }
0x5190…51a7 e795 05090 IF N = 19 THEN LET P := 12
0x5190…51a7 LineComal80 {
0x5190…51a7 ptr = 0xe795 // 0x5190 @0x0
0x5190…51a7 lno = 0x13e2 // 0x5192 @0x2
0x5190…51a7 at0004 = ╱8200╱ IF ╱ // 0x5194 @0x4
0x5190…51a7 at0006 = ╱4e╱N╱ // 0x5196 @0x6
0x5190…51a7 at0007 = ╱df╱ = ╱ // 0x5197 @0x7
0x5190…51a7 at0008 = ╱31╱1╱ // 0x5198 @0x8
0x5190…51a7 at0009 = ╱39╱9╱ // 0x5199 @0x9
0x5190…51a7 at000a = ╱f21300╱ // 0x519a @0xa
0x5190…51a7 at000d = ╱b5╱ THEN ╱ // 0x519d @0xd
0x5190…51a7 at000e = ╱86╱ LET ╱ // 0x519e @0xe
0x5190…51a7 at000f = ╱50╱P╱ // 0x519f @0xf
0x5190…51a7 at0010 = ╱f0╱ := ╱ // 0x51a0 @0x10
0x5190…51a7 at0011 = ╱31╱1╱ // 0x51a1 @0x11
0x5190…51a7 at0012 = ╱32╱2╱ // 0x51a2 @0x12
0x5190…51a7 at0013 = ╱f20c00╱ // 0x51a3 @0x13
0x5190…51a7 at0016 = EOL // 0x51a6 @0x16
0x5190…51a7 }
0x51a7…51b9 e7a7 05095 CURSOR 1 , 23 - X
0x51a7…51b9 LineComal80 {
0x51a7…51b9 ptr = 0xe7a7 // 0x51a7 @0x0
0x51a7…51b9 lno = 0x13e7 // 0x51a9 @0x2
0x51a7…51b9 at0004 = ╱a1╱ CURSOR ╱ // 0x51ab @0x4
0x51a7…51b9 at0005 = ╱31╱1╱ // 0x51ac @0x5
0x51a7…51b9 at0006 = ╱f20100╱ // 0x51ad @0x6
0x51a7…51b9 at0009 = ╱ec╱ , ╱ // 0x51b0 @0x9
0x51a7…51b9 at000a = ╱32╱2╱ // 0x51b1 @0xa
0x51a7…51b9 at000b = ╱33╱3╱ // 0x51b2 @0xb
0x51a7…51b9 at000c = ╱f21700╱ // 0x51b3 @0xc
0x51a7…51b9 at000f = ╱e6╱ - ╱ // 0x51b6 @0xf
0x51a7…51b9 at0010 = ╱58╱X╱ // 0x51b7 @0x10
0x51a7…51b9 at0011 = EOL // 0x51b8 @0x11
0x51a7…51b9 }
0x51b9…51cb e7b9 05100 FOR Y := 1 TO + X DO
0x51b9…51cb LineComal80 {
0x51b9…51cb ptr = 0xe7b9 // 0x51b9 @0x0
0x51b9…51cb lno = 0x13ec // 0x51bb @0x2
0x51b9…51cb at0004 = ╱8300╱ FOR ╱ // 0x51bd @0x4
0x51b9…51cb at0006 = ╱59╱Y╱ // 0x51bf @0x6
0x51b9…51cb at0007 = ╱f0╱ := ╱ // 0x51c0 @0x7
0x51b9…51cb at0008 = ╱31╱1╱ // 0x51c1 @0x8
0x51b9…51cb at0009 = ╱f20100╱ // 0x51c2 @0x9
0x51b9…51cb at000c = ╱b750╱ TO ╱ // 0x51c5 @0xc
0x51b9…51cb at000e = ╱e5╱ + ╱ // 0x51c7 @0xe
0x51b9…51cb at000f = ╱58╱X╱ // 0x51c8 @0xf
0x51b9…51cb at0010 = ╱bb╱ DO ╱ // 0x51c9 @0x10
0x51b9…51cb at0011 = EOL // 0x51ca @0x11
0x51b9…51cb }
0x51cb…51d8 e7c6 05105 GET FIL $ : S $
0x51cb…51d8 LineComal80 {
0x51cb…51d8 ptr = 0xe7c6 // 0x51cb @0x0
0x51cb…51d8 lno = 0x13f1 // 0x51cd @0x2
0x51cb…51d8 at0004 = ╱a9╱ GET ╱ // 0x51cf @0x4
0x51cb…51d8 at0005 = ╱46╱F╱ // 0x51d0 @0x5
0x51cb…51d8 at0006 = ╱49╱I╱ // 0x51d1 @0x6
0x51cb…51d8 at0007 = ╱4c╱L╱ // 0x51d2 @0x7
0x51cb…51d8 at0008 = ╱ef╱ $ ╱ // 0x51d3 @0x8
0x51cb…51d8 at0009 = ╱f1╱ : ╱ // 0x51d4 @0x9
0x51cb…51d8 at000a = ╱53╱S╱ // 0x51d5 @0xa
0x51cb…51d8 at000b = ╱ef╱ $ ╱ // 0x51d6 @0xb
0x51cb…51d8 at000c = EOL // 0x51d7 @0xc
0x51cb…51d8 }
0x51d8…51e3 e7d1 05110 IF > P THEN
0x51d8…51e3 LineComal80 {
0x51d8…51e3 ptr = 0xe7d1 // 0x51d8 @0x0
0x51d8…51e3 lno = 0x13f6 // 0x51da @0x2
0x51d8…51e3 at0004 = ╱9b0059╱ IF ╱ // 0x51dc @0x4
0x51d8…51e3 at0007 = ╱e1╱ > ╱ // 0x51df @0x7
0x51d8…51e3 at0008 = ╱50╱P╱ // 0x51e0 @0x8
0x51d8…51e3 at0009 = ╱b5╱ THEN ╱ // 0x51e1 @0x9
0x51d8…51e3 at000a = EOL // 0x51e2 @0xa
0x51d8…51e3 }
0x51e3…51eb e7d9 05115 PRINT S $
0x51e3…51eb LineComal80 {
0x51e3…51eb ptr = 0xe7d9 // 0x51e3 @0x0
0x51e3…51eb lno = 0x13fb // 0x51e5 @0x2
0x51e3…51eb at0004 = ╱92╱ PRINT ╱ // 0x51e7 @0x4
0x51e3…51eb at0005 = ╱53╱S╱ // 0x51e8 @0x5
0x51e3…51eb at0006 = ╱ef╱ $ ╱ // 0x51e9 @0x6
0x51e3…51eb at0007 = EOL // 0x51ea @0x7
0x51e3…51eb }
0x51eb…51f1 e7df 05120 ENDIF
0x51eb…51f1 LineComal80 {
0x51eb…51f1 ptr = 0xe7df // 0x51eb @0x0
0x51eb…51f1 lno = 0x1400 // 0x51ed @0x2
0x51eb…51f1 at0004 = ╱9c╱ ENDIF ╱ // 0x51ef @0x4
0x51eb…51f1 at0005 = EOL // 0x51f0 @0x5
0x51eb…51f1 }
0x51f1…51f8 e7e6 05125 NEXT Y
0x51f1…51f8 LineComal80 {
0x51f1…51f8 ptr = 0xe7e6 // 0x51f1 @0x0
0x51f1…51f8 lno = 0x1405 // 0x51f3 @0x2
0x51f1…51f8 at0004 = ╱84╱ NEXT ╱ // 0x51f5 @0x4
0x51f1…51f8 at0005 = ╱59╱Y╱ // 0x51f6 @0x5
0x51f1…51f8 at0006 = EOL // 0x51f7 @0x6
0x51f1…51f8 }
0x51f8…5208 e7f6 05130 FOR Y := 1 TO DO
0x51f8…5208 LineComal80 {
0x51f8…5208 ptr = 0xe7f6 // 0x51f8 @0x0
0x51f8…5208 lno = 0x140a // 0x51fa @0x2
0x51f8…5208 at0004 = ╱8300╱ FOR ╱ // 0x51fc @0x4
0x51f8…5208 at0006 = ╱59╱Y╱ // 0x51fe @0x6
0x51f8…5208 at0007 = ╱f0╱ := ╱ // 0x51ff @0x7
0x51f8…5208 at0008 = ╱31╱1╱ // 0x5200 @0x8
0x51f8…5208 at0009 = ╱f20100╱ // 0x5201 @0x9
0x51f8…5208 at000c = ╱b758╱ TO ╱ // 0x5204 @0xc
0x51f8…5208 at000e = ╱bb╱ DO ╱ // 0x5206 @0xe
0x51f8…5208 at000f = EOL // 0x5207 @0xf
0x51f8…5208 }
0x5208…521d e80b 05135 CURSOR 65 , 22 - X + Y
0x5208…521d LineComal80 {
0x5208…521d ptr = 0xe80b // 0x5208 @0x0
0x5208…521d lno = 0x140f // 0x520a @0x2
0x5208…521d at0004 = ╱a1╱ CURSOR ╱ // 0x520c @0x4
0x5208…521d at0005 = ╱36╱6╱ // 0x520d @0x5
0x5208…521d at0006 = ╱35╱5╱ // 0x520e @0x6
0x5208…521d at0007 = ╱f24100╱ // 0x520f @0x7
0x5208…521d at000a = ╱ec╱ , ╱ // 0x5212 @0xa
0x5208…521d at000b = ╱32╱2╱ // 0x5213 @0xb
0x5208…521d at000c = ╱32╱2╱ // 0x5214 @0xc
0x5208…521d at000d = ╱f21600╱ // 0x5215 @0xd
0x5208…521d at0010 = ╱e6╱ - ╱ // 0x5218 @0x10
0x5208…521d at0011 = ╱58╱X╱ // 0x5219 @0x11
0x5208…521d at0012 = ╱e5╱ + ╱ // 0x521a @0x12
0x5208…521d at0013 = ╱59╱Y╱ // 0x521b @0x13
0x5208…521d at0014 = EOL // 0x521c @0x14
0x5208…521d }
0x521d…5224 (273,) e812 05140 INPUT B
0x521d…5224 LineComal80 {
0x521d…5224 ptr = 0xe812 // 0x521d @0x0
0x521d…5224 lno = 0x1414 // 0x521f @0x2
0x521d…5224 at0004 = ╱91╱ INPUT ╱ // 0x5221 @0x4
0x521d…5224 at0005 = ╱42╱B╱ // 0x5222 @0x5
0x521d…5224 at0006 = EOL // 0x5223 @0x6
0x521d…5224 }
0x5224…5235 e823 05145 LET A ( N ) := A ( N ) + B
0x5224…5235 LineComal80 {
0x5224…5235 ptr = 0xe823 // 0x5224 @0x0
0x5224…5235 lno = 0x1419 // 0x5226 @0x2
0x5224…5235 at0004 = ╱86╱ LET ╱ // 0x5228 @0x4
0x5224…5235 at0005 = ╱41╱A╱ // 0x5229 @0x5
0x5224…5235 at0006 = ╱ed╱ ( ╱ // 0x522a @0x6
0x5224…5235 at0007 = ╱4e╱N╱ // 0x522b @0x7
0x5224…5235 at0008 = ╱ee╱ ) ╱ // 0x522c @0x8
0x5224…5235 at0009 = ╱f0╱ := ╱ // 0x522d @0x9
0x5224…5235 at000a = ╱41╱A╱ // 0x522e @0xa
0x5224…5235 at000b = ╱ed╱ ( ╱ // 0x522f @0xb
0x5224…5235 at000c = ╱4e╱N╱ // 0x5230 @0xc
0x5224…5235 at000d = ╱ee╱ ) ╱ // 0x5231 @0xd
0x5224…5235 at000e = ╱e5╱ + ╱ // 0x5232 @0xe
0x5224…5235 at000f = ╱42╱B╱ // 0x5233 @0xf
0x5224…5235 at0010 = EOL // 0x5234 @0x10
0x5224…5235 }
0x5235…523c e82a 05150 NEXT Y
0x5235…523c LineComal80 {
0x5235…523c ptr = 0xe82a // 0x5235 @0x0
0x5235…523c lno = 0x141e // 0x5237 @0x2
0x5235…523c at0004 = ╱84╱ NEXT ╱ // 0x5239 @0x4
0x5235…523c at0005 = ╱59╱Y╱ // 0x523a @0x5
0x5235…523c at0006 = EOL // 0x523b @0x6
0x5235…523c }
0x523c…5246 e834 05155 CLOSE FIL $
0x523c…5246 LineComal80 {
0x523c…5246 ptr = 0xe834 // 0x523c @0x0
0x523c…5246 lno = 0x1423 // 0x523e @0x2
0x523c…5246 at0004 = ╱a8╱ CLOSE ╱ // 0x5240 @0x4
0x523c…5246 at0005 = ╱46╱F╱ // 0x5241 @0x5
0x523c…5246 at0006 = ╱49╱I╱ // 0x5242 @0x6
0x523c…5246 at0007 = ╱4c╱L╱ // 0x5243 @0x7
0x523c…5246 at0008 = ╱ef╱ $ ╱ // 0x5244 @0x8
0x523c…5246 at0009 = EOL // 0x5245 @0x9
0x523c…5246 }
0x5246…524f 0000 05160 ENDPROC WIN
0x5246…524f LineComal80 {
0x5246…524f ptr = 0x0000 // 0x5246 @0x0
0x5246…524f lno = 0x1428 // 0x5248 @0x2
0x5246…524f at0004 = ╱9f╱ ENDPROC ╱ // 0x524a @0x4
0x5246…524f at0005 = ╱57╱W╱ // 0x524b @0x5
0x5246…524f at0006 = ╱49╱I╱ // 0x524c @0x6
0x5246…524f at0007 = ╱4e╱N╱ // 0x524d @0x7
0x5246…524f at0008 = EOL // 0x524e @0x8
0x5246…524f }
0x524f…5255 (274,) 95ee 38382 ╱00╱ ╱00╱
0x524f…5255 LineComal80 {
0x524f…5255 ptr = 0x95ee // 0x524f @0x0
0x524f…5255 lno = 0x95ee // 0x5251 @0x2
0x524f…5255 at0004 = ╱00╱ // 0x5253 @0x4
0x524f…5255 at0005 = ╱00╱ // 0x5254 @0x5
0x524f…5255 }