|
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 - download
Length: 21077 (0x5255)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cd
Names: »SKAT85.B«
└─⟦fe8d363bb⟧ Bits:30004640 EASY-Skat 1985 (MIKADOS)
└─⟦this⟧ »SKAT85.B«
0010 INTEGER X,PR,Y,F8,FE,G,T0,T1,T2,T3,T4,O,W
0015 CLEAR
0020 LET STATUS,G1,B7,B8,U2,F0,F7,T,TKB,TKH,B3,C0,BD6,C6,F0,F7,OV,HS := 0
0025 LET AKT,SKG,D6,HFORMUE,BFORMUE,B6,HC3,BC3,HATP,BATP,GSLUT,FSLUT,F1,F2 := 0
0030 LET T0,T1,T2,T3,T4,O := 0
0035 DIM A1$(29) OF 29,A(29),H(23),K(23),LI$ OF 80,QT$ OF 80,S$ OF 80
0040 DIM FIL$ OF 15,PIL$ OF 45,SP$ OF 40,REV$ OF 80,ADR$ OF 80,HKL$ OF 38
0045 DIM BKL$ OF 38,NU$ OF 9
0050 LET LI$ := "" ; PIL$ := "" ; SP$ := "" ; NU$ := "#########" ; W := 100 ; GEMAFR := O
0055 LET REV$ := "Revisor Kaja Jensen"
0060 LET ADR$ := "Lysholmvej 14, 2650 Hvidovre, (01)784852"
0065 FOR X := 1 TO 8 DO
0070 LET LI$ := LI$ + "-" ; PIL$ := PIL$ + "." ; SP$ := SP$ + " "
0075 NEXT X
0080 LET F8,T4,G := O ; T2 := 2
0085 LET FIL$ := "dde:skatsys"
0090 OPEN FIL$,R
0095 GET FIL$ : SYS
0100 CLOSE FIL$
0105 IF YS = 1 THEN
0110 OPEN FIL$,W
0115 LET SYS := O
0120 PUT FIL$ : SYS
0125 CLOSE FIL$
0130 LET FIL$ := "dde:hskvar"
0135 OPEN FIL$,R
0140 FOR X := 1 TO 9 DO
0145 GET FIL$ : A(X)
0150 IF X < 24 THEN GET FIL$ : H(X),K(X)
0155 NEXT X
0160 GET FIL$ : F8,T1,T2,T4
0165 CLOSE FIL$
0170 LET FIL$ := "dde:fvar"
0175 OPEN FIL$,R
0180 GET FIL$ : PR,C4,HD6,C9,B0,T1,TKH,F6,F1
0185 GET FIL$ : F9,P1,P7,P8,P9,T0,B2,B1,B9
0190 GET FIL$ : T2,C6,BD6,C0,B3,E6,F2,T3,TKB
0195 GET FIL$ : F0,F7,SKG,AKT,D6,GSLUT
0200 GET FIL$ : HFORMUE,BFORMUE,HATP,BATP,G,FSLUT
0205 GET FIL$ : HKL$,BKL$
0210 CLOSE FIL$
0215 EXEC FORTSÆT
0220 ELSE
0225 PRINT TAB(29) ; ">>> EASY - SKAT <<<"
0230 LET FIL$ := "DDE:skatvejl"
0235 OPEN FIL$,R
0240 EXEC LFIL
0245 EXEC RETURN
0250 ENDIF
0255 LET X := O
0260 OPEN "dde:skatart",R
0265 REPEAT
0270 LET X := X + 1
0275 GET "dde:skatart" : A1$(X)
0280 UNTIL ╱cd╱ ("dde:skatart") = 19 OR ╱cd╱ ("dde:skatart") > O OR X = 29
0285 CLOSE
0290 LET E1 := 28 ; F3 := 64000 ; F4 := 70999 ; F5 := 1985 ; P1 := 111300 ; P2 := 182600
0295 LET P3 := 22700 ; P4 := 20300 ; P5 := 43900 ; P6 := 24000 ; P0 := 3.5 ; PA0 := 2
0300 LET U1 := .9 ; U2 := 1229200 ; M1 := 112700
0305 REPEAT
0310 REPEAT
0315 LABEL START :
0320 LET E8,E9,E6,C5,B9,AR,BD1,BD2,BDA2,BD3,BD4,BD5,BD6,E4,E7,E5,D8,E2 := O
0325 IF T4 = 1 THEN LET T2 := 1
0330 IF F8 >< 1 THEN EXEC NULSTIL2
0335 IF F8 = 1 THEN EXEC SÆTATILH
0340 REPEAT
0345 REPEAT
0350 LET FE := O ; QT$ := " HOVEPERSONEN " ; A(24) := HFORMUE
0355 EXEC INDKOMST
0360 LET HFORMUE := B6 ; A(24) := O
0365 EXEC FEJLMED
0370 EXEC FEJL
0375 UNTIL FE >< 1
0380 LET F6 := A(12) ; F9 := A(11) * (30 / W)
0385 EXEC SÆTHTILA
0390 EXEC REGN1
0395 IF >< 1 THEN
0400 PRINT "Er hovedpersonen tilkendt enke-, folke- eller invalidepension,"
0405 PRINT "dvs. har ret til personfradrag som pensionist" ;
0410 EXEC SVAR
0415 LET T1 := O
0420 IF $ = "j" THEN
0425 LET T1 := 2
0430 PRINT "Er hovedpersonen fyldt 67 år ved indkomstårets begyndelse" ;
0435 EXEC SVAR
0440 IF S$ = "j" THEN LET T1 := 1
0445 ENDIF
0450 ENDIF
0455 IF 1 = 1 THEN
0460 IF G = 1 THEN LET ATP := HATP
0465 EXEC INDATP
0470 LET HC3 := C3 + C5 ; HATP := ATP
0475 ENDIF
0480 LET B0 := A(1) ; B1 := C1 ; B2 := C2 ; C4 := C7 ; PR := O ; C3 := O
0485 IF T1 = 1 THEN LET C3 := HC3
0490 EXEC SKATIND
0495 PRINT
0500 PRINT "Ønskes rettelser til ovenstående" ;
0505 EXEC SVAR
0510 CLEAR
0515 UNTIL S$ = "n"
0520 IF >< 1 THEN
0525 PRINT "Skal der foretages beregning af en ægtefælle (gift kvinde)" ;
0530 EXEC SVAR
0535 EXEC NULSTIL2
0540 LET T2 := O
0545 IF $ = "j" THEN
0550 PRINT "Har ægtefællerne været gift hele kalenderåret" ;
0555 EXEC SVAR
0560 LET T2 := 2 ; T4 := O
0565 IF S$ = "j" THEN LET T2 := 1 ; T4 := 1
0570 IF F8 = 1 THEN EXEC SÆTATILK
0575 ENDIF
0580 ELSE
0585 IF 2 >< O THEN
0590 EXEC NULSTIL2
0595 IF F8 = 1 THEN EXEC SÆTATILK
0600 ENDIF
0605 ENDIF
0610 IF 2 >< O THEN
0615 REPEAT
0620 REPEAT
0625 LET FE := O ; QT$ := " DEN GIFTE KVINDE " ; A(24) := BFORMUE
0630 EXEC INDKOMST
0635 LET BFORMUE := B6 ; A(24) := O
0640 EXEC FEJLMED
0645 EXEC FEJL
0650 UNTIL FE >< 1
0655 LET F7 := A(12) ; F0 := A(11) * (30 / W)
0660 EXEC SÆTKTILA
0665 EXEC REGN1
0670 EXEC TTEST
0675 EXEC FEJL
0680 IF E = 1 THEN
0685 LET FE := O ; F8 := 1
0690 GOTO START
0695 ENDIF
0700 IF >< 1 THEN
0705 PRINT "Er den gifte kvinde tilkendt enke-, folke- eller invalidepension"
0710 PRINT "dvs. har ret til personfradrag som pensionist" ;
0715 EXEC SVAR
0720 LET T3 := O
0725 IF $ = "j" THEN
0730 LET T3 := 2
0735 PRINT "Er den gifte kvinde fyldt 67 år ved indkomstårets begyndelse" ;
0740 EXEC SVAR
0745 IF S$ = "j" THEN LET T3 := 1
0750 ENDIF
0755 ENDIF
0760 IF 3 = 1 THEN
0765 IF G = 1 THEN LET ATP := BATP
0770 EXEC INDATP
0775 LET BC3 := C3 + C5 ; BATP := ATP
0780 ENDIF
0785 LET B3 := A(1) ; B4 := C1 ; B5 := C2 ; C6 := C7 ; PR := O
0790 IF C6 < O THEN LET C6 := O
0795 LET C3 := O
0800 IF T3 = 1 THEN LET C3 := BC3
0805 EXEC SKATIND
0810 PRINT
0815 PRINT "Ønskes rettelser til ovenstående" ;
0820 EXEC SVAR
0825 CLEAR
0830 UNTIL S$ = "n"
0835 ENDIF
0840 IF C4 < O THEN LET C4 := O
0845 IF T2 = O THEN EXEC FORMUE
0850 IF T2 >< O THEN EXEC ÆFORMUE
0855 IF >< 1 THEN
0860 INPUT "Skriv kommuneskatteprocent: " : P7
0865 PRINT LI$
0870 INPUT "Skriv den amtskommunale skatteprocent: " : P8
0875 PRINT LI$
0880 INPUT "Skriv kirkeskatteprocenten: " : P9
0885 PRINT LI$
0890 PRINT "Ønskes klientens navn anvendt i opgørelsen i stedet for HOVED" ;
0895 PRINT "PERSONEN og GIFT"
0900 PRINT "KVINDE" ;
0905 EXEC SVAR
0910 LET HKL$ := "HOVEDPERSONEN" ; BKL$ := "DEN GIFTE KVINDE"
0915 IF $ = "j" THEN
0920 INPUT "Skriv hovedpersonens navn " : HKL$
0925 IF T2 >< O THEN INPUT "Skriv den gifte kvindes navn " : BKL$
0930 PRINT LI$
0935 ENDIF
0940 ENDIF
0945 IF T2 = 1 THEN EXEC REGN3
0950 IF 2 >< 1 THEN
0955 EXEC REGN4
0960 IF T2 = 2 THEN EXEC REGN5
0965 ELSE
0970 EXEC REGN6
0975 ENDIF
0980 EXEC REGN7
0985 IF T2 = O AND B7 > U2 + 99 THEN EXEC REGN8
0990 IF T4 = 1 AND B7 + B8 > U2 + 99 THEN EXEC REGN9
0995 IF 2 = 2 AND T4 = O AND B7 > U2 + 99 THEN
1000 EXEC REGN8
1005 LET HB9 := B9 ; HB7 := B7
1010 ENDIF
1015 IF 2 = 2 AND T4 = O AND B8 > U2 + 99 THEN
1020 LET B7 := B8
1025 EXEC REGN8
1030 LET E6 := B9 ; B9 := HB9 ; B7 := HB7
1035 ENDIF
1040 PRINT "Ønskes der print af beregningerne" ;
1045 EXEC SVAR
1050 LET PR := O
1055 IF S$ = "j" THEN LET PR := 1
1060 FOR Y := 1 TO R + 1 DO
1065 IF Y = 2 THEN OUTPUT "P"
1070 EXEC SIDESKIFT
1075 EXEC SÆTATILH
1080 LET QT$ := "INDKOMSTOPGØRELSE FOR " + HKL$ + ":"
1085 LET C3 := O
1090 IF T1 = 1 THEN LET C3 := HC3
1095 LET C1 := B1 ; C2 := B2 ; B6 := HFORMUE
1100 EXEC SKATIND
1105 EXEC SKIFT
1110 EXEC REGN10
1115 EXEC SKAT
1120 EXEC INDSKAT
1125 LET FS := B9
1130 EXEC FSKAT
1135 EXEC SIDESKIFT
1140 IF 2 >< O THEN
1145 EXEC SÆTATILK
1150 LET QT$ := "INDKOMSTOPGØRELSE FOR " + BKL$ + ":"
1155 LET C3 := O
1160 IF T3 = 1 THEN LET C3 := BC3
1165 LET C1 := B4 ; C2 := B5 ; B6 := BFORMUE
1170 EXEC SKATIND
1175 EXEC SKIFT
1180 EXEC REGN22
1185 EXEC SKAT
1190 EXEC INDSKAT
1195 LET FS := E6
1200 EXEC FSKAT
1205 EXEC SIDESKIFT
1210 ENDIF
1215 EXEC SKATPRO
1220 EXEC SKIFT
1225 NEXT Y
1230 OUTPUT "T"
1235 PRINT LI$
1240 PRINT "Ønskes beregning af forskudsregistrering, d.v.s skattekort " ;
1245 PRINT "m.v." ;
1250 EXEC SVAR
1255 IF $ = "j" THEN
1260 PRINT "*** VENT **** FORSKUDSREGISTREINGS PROGRAMMET INDLÆSES ***"
1265 EXEC PROGRAMSKIFT
1270 CHAIN "dde:forsk85"
1275 ENDIF
1280 PRINT "Ønskes årsopgørelse udskrevet" ;
1285 EXEC SVAR
1290 IF $ = "j" THEN
1295 PRINT "*** VENT **** ÅRSOPGØRELSES PROGRAMMET INDLÆSES ***"
1300 EXEC PROGRAMSKIFT
1305 CHAIN "DDE:ÅRSOP85"
1310 ENDIF
1315 EXEC FORTSÆT
1320 UNTIL F8 >< 1
1325 LET T2 := 2 ; T4 := O ; GSLUT,HFORMUE,BFORMUE := O
1330 UNTIL 1 >< 1
1335 PROC PROGRAMSKIFT
1340 LET FIL$ := "dde:fvar"
1345 OPEN FIL$,W
1350 PUT FIL$ : PR,C4,HD6,C9,B0,T1,TKH,F6,F1
1355 PUT FIL$ : F9,P1,P7,P8,P9,T0,B2,B1,B9
1360 PUT FIL$ : T2,C6,BD6,C0,B3,E6,F2,T3,TKB
1365 PUT FIL$ : F0,F7,SKG,AKT,D6,GSLUT
1370 PUT FIL$ : HFORMUE,BFORMUE,HATP,BATP,G,FSLUT
1375 PUT FIL$ : HKL$,BKL$
1380 CLOSE FIL$
1385 LET FIL$ := "dde:hskvar"
1390 OPEN FIL$,W
1395 FOR X := 1 TO 9 DO
1400 PUT FIL$ : A(X)
1405 IF X < 24 THEN PUT FIL$ : H(X),K(X)
1410 NEXT X
1415 PUT FIL$ : F8,T1,T2,T4
1420 CLOSE FIL$
1425 ENDPROC PROGRAMSKIFT
1430 PROC FORTSÆT
1435 CLEAR
1440 PRINT "*** BEREGNINGEN ER GENNEMFØRT *** Ønskes de indtastede"
1445 PRINT "indkomster/fradrag bevaret til en ny beregning" ;
1450 EXEC SVAR
1455 LET G,F8 := O ; FSLUT := O
1460 IF $ = "j" THEN
1465 LET F8 := 1 ; FSLUT := 1
1470 PRINT "Ønskes alle andre forudsætninger for beregningerne bevaret" ;
1475 EXEC SVAR
1480 IF S$ = "j" THEN LET G := 1
1485 ENDIF
1490 ENDPROC FORTSÆT
1495 PROC REGN20
1500 LET HD1 := D1 ; HD2 := D2 ; HDA2 := DA2 ; HD3 := D3 ; HD4 := D4 ; HD5 := D5 ; HD6 := D6
1505 ENDPROC REGN20
1510 PROC REGN10
1515 LET D1 := HD1 ; D2 := HD2 ; DA2 := HDA2 ; D3 := HD3 ; D4 := HD4 ; D5 := HD5 ; D6 := HD6
1520 ENDPROC REGN10
1525 PROC REGN21
1530 LET BD1 := D1 ; BD2 := D2 ; BDA2 := DA2 ; BD3 := D3 ; BD4 := D4 ; BD5 := D5 ; BD6 := D6
1535 ENDPROC REGN21
1540 PROC REGN22
1545 LET D1 := BD1 ; D2 := BD2 ; DA2 := BDA2 ; D3 := BD3 ; D4 := BD4 ; D5 := BD5 ; D6 := BD6
1550 ENDPROC REGN22
1555 PROC LFIL
1560 REPEAT
1565 GET FIL$ : S$
1570 IF ╱cd╱ (FIL$) = O THEN PRINT S$
1575 UNTIL ╱cd╱ (FIL$) = 19
1580 CLOSE FIL$
1585 ENDPROC LFIL
1590 PROC SKÆRM
1595 LET A1$(24) := "24. FORMUE " + PIL$(1 : 18)
1600 FOR X := 1 TO 2 DO
1605 PRINT A1$(X) ;
1610 IF A(X) >< O THEN PRINT USING NU$ : A(X) ;
1615 PRINT TAB(42) ; A1$(X + 12) ;
1620 IF A(X + 12) >< O THEN PRINT USING NU$ : A(X + 12) ;
1625 PRINT
1630 NEXT X
1635 ENDPROC SKÆRM
1640 PROC INDKOMST
1645 CLEAR
1650 PRINT TAB(29) ; ">>> EASY - SKAT <<<"
1655 PRINT TAB(20) ; "*** INDDATERING TIL " ; QT$ ; " ***"
1660 PRINT "Nr. Indkomst" ; TAB(33) ; "Beløb" ; TAB(42) ; "Nr. Fradrag" ; TAB(74) ;
1665 PRINT "Beløb"
1670 PRINT
1675 EXEC SKÆRM
1680 REPEAT
1685 REPEAT
1690 LET B6 := A(24)
1695 CURSOR 1,20
1700 INPUT "Skriv nummer på indkomst/fradrag (1 til 24, 0 for slut) ----> " : N
1705 IF N > 24 THEN PRINT "*** Nummeret skal være fra 1 til 24 ***" ; CHR$ (7)
1710 UNTIL N < 25
1715 IF = 2 OR N = 8 OR N = 18 OR N = 19 THEN
1720 EXEC WIN
1725 ELSE
1730 IF >< O THEN
1735 PRINT "Skriv beløbets størelse " + LI$(1 : 36) + ">" ;
1740 INPUT " " : A(N)
1745 IF = 11 THEN
1750 LET A(12) := INT(A(11) * 25 / W)
1755 CURSOR 30,16
1760 PRINT USING NU$ : A(12)
1765 ENDIF
1770 ENDIF
1775 ENDIF
1780 CURSOR 1,17
1785 FOR X := 1 TO 2 DO
1790 PRINT SP$ ;
1795 NEXT X
1800 IF >< O THEN
1805 IF N > 12 THEN CURSOR 71,N - 8
1810 IF N =< 12 THEN CURSOR 30,N + 4
1815 IF (N) >< O THEN
1820 PRINT USING NU$ : A(N)
1825 ELSE
1830 PRINT SP$(1 : 9)
1835 ENDIF
1840 ENDIF
1845 UNTIL N = O
1850 CLEAR
1855 ENDPROC INDKOMST
1860 PROC REGN1
1865 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)
1870 LET C1 := C1 + A(17) - A(22) - A(23)
1875 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)
1880 LET C2 := C2 + A(22) + A(8) ; C7 := C1 + C2
1885 ENDPROC REGN1
1890 PROC INDATP
1895 LET C3 := A(8) - A(9) - A(21) + A(22)
1900 IF C3 < O THEN LET C3 := O
1905 IF >< 1 THEN
1910 PRINT "Skriv størrelsen på modtaget ATP-beløb til brug for "
1915 INPUT "rentenedslag (evt, 0): " : ATP
1920 PRINT LI$
1925 ENDIF
1930 LET C3 := C3 + ATP ; C3 := C3 * 30 / W
1935 IF C3 > 3500 THEN LET C3 := 3500
1940 IF C7 > F3 + 99 THEN LET C3 := C3 - ((INT(C7 / W) * W) - F3) / 2
1945 IF C3 < O THEN LET C3 := O
1950 LET C3 := INT(C3 + .9) ; C5 := O
1955 IF C3 > A(8) - A(9) THEN LET C5 := C3 - A(8) + A(9)
1960 LET C3 := C3 - C5 ; C2 := C2 - C3 ; C1 := C1 - C5 ; C7 := C1 + C2
1965 ENDPROC INDATP
1970 PROC FEJLMED
1975 LET FE := O
1980 PRINT "FEJLMEDDELELSER:"
1985 IF A(9) > A(8) THEN EXEC FEJL1(1)
1990 IF A(5) > A(4) THEN EXEC FEJL1(2)
1995 IF A(7) > A(6) THEN EXEC FEJL1(3)
2000 IF A(15) > A(14) THEN EXEC FEJL1(4)
2005 IF A(17) > A(16) THEN EXEC FEJL1(5)
2010 IF A(23) > A(6) * 50 / W THEN EXEC FEJL1(6)
2015 IF (23) > M1 THEN
2020 LET FE := 1
2025 PRINT "Medarbejdende ægtefællefradrag er for stor. Må højst udgøre" ; M1 ;
2030 PRINT "."
2035 PRINT
2040 ENDIF
2045 IF A(12) > A(11) * 25 / W THEN EXEC FEJL1(7)
2050 IF A(22) > A(21) THEN EXEC FEJL1(8)
2055 IF A(9) > O OR A(22) > O) AND A(4) - A(5) = O AND A(6) - A(7) = O THEN
2060 IF A(14) - A(15) = O AND A(16) - A(17) = O THEN EXEC FEJL1(9)
2065 ENDIF
2070 ENDPROC FEJLMED
2075 PROC FEJL1(Æ)
2080 LET FIL$ := "dde:skfejl" ; FE := 1
2085 OPEN FIL$,R
2090 FOR Ø := 1 TO DO
2095 FOR Q := 1 TO DO
2100 GET FIL$ : S$
2105 IF ╱cb╱ (S$) > 2 AND Æ = Ø AND ╱cd╱ (FIL$) < 19 THEN PRINT S$
2110 NEXT Q
2115 NEXT Ø
2120 CLOSE FIL$
2125 ENDPROC FEJL1
2130 PROC FEJL
2135 IF E = O THEN
2140 PRINT "Ingen åbenbare fejl fundet."
2145 PRINT LI$
2150 ELSE
2155 PRINT "Skal der foretages rettelser" ;
2160 EXEC SVAR
2165 IF S$ = "n" THEN LET FE := O
2170 PRINT LI$
2175 ENDIF
2180 ENDPROC FEJL
2185 PROC TTEST
2190 PRINT "TOTALTEST:"
2195 IF (23) >< H(10) OR A(10) >< H(23) THEN
2200 LET FE := 1
2205 PRINT "Medarbejdende ægtefælleindkomst er ikke lig med medarbejdende "
2210 PRINT "ægtefællefradrag."
2215 PRINT
2220 ENDIF
2225 IF C4 > O AND C7 < O THEN LET FIL$ := "dde:skatfejb" ; FE := 1
2230 IF C4 < O AND C7 > O THEN LET FIL$ := "dde:skatfejh" ; FE := 1
2235 IF IL$(9 : 3) = "fej" AND FE = 1 THEN
2240 OPEN FIL$,R
2245 EXEC LFIL
2250 LET QT$ := "Det negative beløb udgør " ; QB := C7
2255 EXEC LSKRIV2
2260 PRINT
2265 ENDIF
2270 ENDPROC TTEST
2275 PROC NULSTIL2
2280 FOR X := 1 TO 3 DO
2285 LET A(X) := O
2290 NEXT X
2295 ENDPROC NULSTIL2
2300 PROC SÆTATILH
2305 FOR X := 1 TO 3 DO
2310 LET A(X) := H(X)
2315 NEXT X
2320 ENDPROC SÆTATILH
2325 PROC SÆTATILK
2330 FOR X := 1 TO 3 DO
2335 LET A(X) := K(X)
2340 NEXT X
2345 ENDPROC SÆTATILK
2350 PROC SÆTHTILA
2355 FOR X := 1 TO 3 DO
2360 LET H(X) := A(X)
2365 NEXT X
2370 ENDPROC SÆTHTILA
2375 PROC SÆTKTILA
2380 FOR X := 1 TO 3 DO
2385 LET K(X) := A(X)
2390 NEXT X
2395 ENDPROC SÆTKTILA
2400 PROC SKATIND
2405 LET S$ := NU$ + " KR."
2410 EXEC LSKRIV3
2415 PRINT
2420 LET C7,C7IK,C7FR := O
2425 FOR X := 1 TO 2 DO
2430 PRINT A1$(X,5 : 25) ;
2435 IF A(X) >< O THEN PRINT USING S$ : A(X) ;
2440 IF < 12 THEN
2445 PRINT TAB(41) ; A1$(X + 12,5 : 25) ;
2450 IF A(X + 12) >< O THEN PRINT USING S$ : A(X + 12) ;
2455 ELSE
2460 IF 3 > O THEN
2465 PRINT TAB(41) ; "RENTEINDTÆGTSNEDSLAG ...." ;
2470 PRINT USING S$ : C3 ;
2475 ENDIF
2480 ENDIF
2485 PRINT
2490 NEXT X
2495 FOR X := 1 TO 3 DO
2500 IF >< 5 AND X >< 7 AND X >< 9 AND X >< 15 AND X >< 17 AND X >< 22 THEN
2505 IF X =< 12 THEN LET C7IK := C7IK + A(X)
2510 IF X > 12 THEN LET C7FR := C7FR + A(X)
2515 ENDIF
2520 NEXT X
2525 LET QT$ := SP$(1 : 25) + LI$(1 : 12) + SP$(1 : 29) + LI$(1 : 12)
2530 EXEC LSKRIV3
2535 PRINT "INDKOMST IALT " ; PIL$(1 : 11) ;
2540 PRINT USING S$ : C7IK ;
2545 PRINT TAB(41) ; "FRADRAG IALT " ; PIL$(1 : 12) ;
2550 PRINT USING S$ : C7FR
2555 LET QT$ := SP$(1 : 25) + "============" + SP$(1 : 29) + "============"
2560 EXEC LSKRIV3
2565 PRINT
2570 PRINT "ARBEJDSINDKOMST " ; PIL$(1 : 9) ;
2575 PRINT USING S$ : C1 ;
2580 PRINT TAB(41) ; "FORMUEINDKOMST " ; PIL$(1 : 10) ;
2585 PRINT USING S$ : C2
2590 LET C7 := C1 + C2
2595 PRINT "SKATTEPLIGTIG INDKOMST " ; PIL$(1 : 42) ;
2600 PRINT USING S$ : C7
2605 PRINT "SKATTEPLIGTIG FORMUE " ; PIL$(1 : 44) ;
2610 PRINT USING S$ : B6
2615 ENDPROC SKATIND
2620 PROC FORMUE
2625 LET B7 := HFORMUE
2630 IF B7 < U2 + 99 THEN LET B7 := O
2635 ENDPROC FORMUE
2640 PROC ÆFORMUE
2645 LET B7 := HFORMUE ; B8 := BFORMUE
2650 IF T4 = 1 AND B7 + B8 < U2 + 99 THEN LET B7 := O ; B8 := O
2655 IF T4 = O AND B7 < U2 + 99 THEN LET B7 := O
2660 IF T4 = O AND B8 < U2 + 99 THEN LET B8 := O
2665 ENDPROC ÆFORMUE
2670 PROC REGN3
2675 IF B1 < O THEN LET B2 := B2 + B1 ; B1 := O
2680 IF B4 < O THEN LET B5 := B5 + B4 ; B4 := O
2685 IF 1 = B4 THEN
2690 IF B2 >= B5 THEN LET T0 := 1
2695 IF B2 < B5 THEN LET T0 := 2
2700 ELSE
2705 IF 1 > B4 THEN
2710 LET T0 := 1
2715 IF B5 < O AND ABS(B5) > C4 THEN EXEC REGN23
2720 ELSE
2725 LET T0 := 2
2730 IF B2 < O AND ABS(B2) > C6 THEN EXEC REGN24
2735 ENDIF
2740 ENDIF
2745 IF (T0 = 1 AND ABS(B5) =< 1000) OR (T0 = 2 AND ABS(B2) =< 1000) THEN LET T2 := 2
2750 ENDPROC REGN3
2755 PROC REGN23
2760 LET E4 := B5 + C4 ; B5 := B5 - E4 ; B4 := B4 + E4
2765 ENDPROC REGN23
2770 PROC REGN24
2775 LET E4 := B2 + C6 ; B2 := B2 - E4 ; B1 := B1 + E4
2780 ENDPROC REGN24
2785 PROC REGN25
2790 LET C7 := INT(C7 / W) * W
2795 IF 7 =< P1 OR C7 =< P2 THEN
2800 LET D1 := C7 * 16 / W * U1
2805 IF C7 > P1 THEN LET D1 := ((C7 - P1) * 32 / W * U1) + (P1 * 16 / W * U1)
2810 ELSE
2815 LET D1 := ((C7 - P2) * 44 / W * U1) + ((P2 - P1) * 32 / W * U1) + (P1 * 16 / W * U1)
2820 IF P7 + P8 > E1 THEN LET D1 := D1 - ((C7 - P2) * (P7 + P8 - E1) / W)
2825 ENDIF
2830 ENDPROC REGN25
2835 PROC REGN26
2840 LET D2 := C7 * P0 / W
2845 ENDPROC REGN26
2850 PROC REGN27
2855 LET DA2 := C7 * PA0 / W
2860 ENDPROC REGN27
2865 PROC REGN28
2870 LET D3 := C7 * P7 / W
2875 ENDPROC REGN28
2880 PROC REGN29
2885 LET D4 := C7 * P8 / W
2890 ENDPROC REGN29
2895 PROC REGN30
2900 LET D5 := C7 * P9 / W
2905 ENDPROC REGN30
2910 PROC REGN31
2915 LET D0 := D1 + D2 + DA2 + D3 + D4 + D5
2920 ENDPROC REGN31
2925 PROC REGN32
2930 LET D1 := D1 - (C8 * 16 / W * U1)
2935 ENDPROC REGN32
2940 PROC REGN33
2945 LET D2 := D2 - (C8 * P0 / W) ; D2AFR := D2 - INT(D2) ; D2 := INT(D2)
2950 ENDPROC REGN33
2955 PROC REGN34
2960 LET DA2 := DA2 - (C8 * PA0 / W) ; D2AFR := DA2 - INT(DA2) ; DA2 := INT(DA2)
2965 ENDPROC REGN34
2970 PROC REGN35
2975 LET D3 := D3 - (C8 * P7 / W)
2980 ENDPROC REGN35
2985 PROC REGN36
2990 LET D4 := D4 - (C8 * P8 / W)
2995 ENDPROC REGN36
3000 PROC REGN37
3005 LET D5 := D5 - (C8 * P9 / W)
3010 ENDPROC REGN37
3015 PROC REGN38
3020 LET D6 := D1 + D2 + DA2 + D3 + D4 + D5
3025 ENDPROC REGN38
3030 PROC REGN6
3035 LET C7 := (INT(C6 / W) * W) + B2
3040 IF T0 = 1 THEN LET C7 := (INT(C4 / W) * W) + B5
3045 LET D8 := C7
3050 EXEC REGN25
3055 LET E2 := D1 ; C7 := C6
3060 IF T0 = 1 THEN LET C7 := C4
3065 EXEC REGN25
3070 LET E2 := E2 - D1
3075 EXEC REGN51
3080 IF 0 = 1 THEN
3085 EXEC KIRKE
3090 ELSE
3095 EXEC GKIRKE
3100 ENDIF
3105 LET D5 := O
3110 IF (T0 = 1 AND TKH = 1) OR (T0 = 2 AND TKB = 1) THEN EXEC REGN30
3115 EXEC REGN31
3120 EXEC REGN39
3125 EXEC REGN50
3130 IF 0 = 1 THEN
3135 EXEC REGN20
3140 LET C9 := D0 ; D7 := D6 ; C7 := INT(B5 / W) * W
3145 ELSE
3150 EXEC REGN21
3155 LET C0 := D0 ; D9 := D6 ; C7 := INT(B2 / W) * W
3160 ENDIF
3165 EXEC REGN51
3170 IF 0 = 1 THEN
3175 EXEC GKIRKE
3180 ELSE
3185 EXEC KIRKE
3190 ENDIF
3195 LET D5 := O
3200 IF (T0 = 2 AND TKH = 1) OR (T0 = 1 AND TKB = 1) THEN EXEC REGN30
3205 LET C7 := B1
3210 IF T0 = 1 THEN LET C7 := B4
3215 EXEC REGN25
3220 LET AR := D1 ; D1 := D1 + E2 ; E8 := D2
3225 EXEC REGN26
3230 LET AR := AR + D2 ; D2 := D2 + E8 ; E8 := DA2
3235 EXEC REGN27
3240 LET AR := AR + DA2 ; DA2 := DA2 + E8 ; E8 := D3
3245 EXEC REGN28
3250 LET AR := AR + D3 ; D3 := D3 + E8 ; E8 := D4
3255 EXEC REGN29
3260 LET AR := AR + D4 ; D4 := D4 + E8
3265 IF 5 >< O THEN
3270 LET E8 := D5
3275 EXEC REGN30
3280 LET AR := AR + D5 ; D5 := D5 + E8
3285 ENDIF
3290 LET E8 := O
3295 EXEC REGN31
3300 EXEC REGN42
3305 EXEC REGN32
3310 EXEC REGN33
3315 LET GEMAFR := D2AFR
3320 EXEC REGN34
3325 LET GEMAFR := GEMAFR + D2AFR
3330 EXEC REGN40
3335 EXEC REGN35
3340 EXEC REGN36
3345 IF 5 > O THEN
3350 EXEC REGN37
3355 ELSE
3360 IF C8 > C7 THEN LET D5 := D5 - ((C8 - C7) * P9 / W)
3365 ENDIF
3370 EXEC REGN38
3375 IF 0 = 1 THEN
3380 EXEC REGN21
3385 LET C0 := D0 ; D9 := D6
3390 ELSE
3395 EXEC REGN20
3400 LET C9 := D0 ; D7 := D6
3405 ENDIF
3410 ENDPROC REGN6
3415 PROC KIRKE
3420 IF >< 1 THEN
3425 PRINT "Er hovedpersonen medlem af folkekirken" ;
3430 EXEC SVAR
3435 LET TKH := O
3440 IF S$ = "j" THEN LET TKH := 1
3445 ENDIF
3450 ENDPROC KIRKE
3455 PROC GKIRKE
3460 IF >< 1 THEN
3465 PRINT "Er den gifte kvinde medlem af folkekirken" ;
3470 EXEC SVAR
3475 LET TKB := O
3480 IF S$ = "j" THEN LET TKB := 1
3485 ENDIF
3490 ENDPROC GKIRKE
3495 PROC REGN39
3500 LET C8 := P3
3505 IF T0 = 1 AND T1 >< O THEN LET C8 := P6
3510 IF T0 = 2 AND T3 >< O THEN LET C8 := P6
3515 ENDPROC REGN39
3520 PROC REGN40
3525 IF C8 = P3 THEN LET C8 := P4
3530 ENDPROC REGN40
3535 PROC REGN42
3540 LET C8 := P3
3545 IF T0 = 1 AND T3 >< O THEN LET C8 := P6
3550 IF T0 = 2 AND T1 >< O THEN LET C8 := P6
3555 ENDPROC REGN42
3560 PROC REGN4
3565 LET C7 := C4
3570 EXEC REGN25
3575 EXEC REGN51
3580 EXEC KIRKE
3585 LET D5 := O
3590 IF TKH = 1 THEN EXEC REGN30
3595 EXEC REGN31
3600 IF T2 = O AND T1 >< O THEN LET C8 := P5
3605 IF T2 = 2 AND T1 >< O THEN LET C8 := P6
3610 IF T1 = O THEN LET C8 := P3
3615 EXEC REGN50
3620 EXEC REGN20
3625 LET C9 := D0 ; D7 := D6
3630 ENDPROC REGN4
3635 PROC REGN5
3640 LET C7 := C6
3645 EXEC REGN25
3650 EXEC REGN51
3655 EXEC GKIRKE
3660 LET D5 := O
3665 IF TKB = 1 THEN EXEC REGN30
3670 EXEC REGN31
3675 LET C8 := P6
3680 IF T3 = O THEN LET C8 := P3
3685 EXEC REGN50
3690 EXEC REGN21
3695 LET C0 := D0 ; D9 := D6
3700 ENDPROC REGN5
3705 PROC REGN7
3710 IF HD1 + HD2 + HDA2 < 0 AND HD3 + HD4 + HD5 > 0 THEN EXEC MSSIKS
3715 IF 2 = O THEN
3720 LET HD6 := HD1 + HD2 + HDA2 + HD3 + HD4 + HD5
3725 IF HD6 =< O THEN LET HD1 := O ; HD2 := O ; HDA2 := O ; HD3 := O ; HD4 := O ; HD5 := O ; HD6 := O
3730 ELSE
3735 IF HD1 + HD2 + HDA2 < 0 AND HD3 + HD4 + HD5 > 0 THEN EXEC MSSIKS1
3740 IF D1 < O THEN
3745 LET BD1 := BD1 + HD1 ; HD1 := O
3750 IF BD1 < O THEN LET BD1 := O
3755 ENDIF
3760 IF D2 < O THEN
3765 LET BD2 := BD2 + HD2 ; HD2 := O
3770 IF BD2 < O THEN LET BD2 := O
3775 ENDIF
3780 IF DA2 < O THEN
3785 LET BDA2 := BDA2 + HDA2 ; HDA2 := O
3790 IF BDA2 < O THEN LET BDA2 := O
3795 ENDIF
3800 IF D3 < O THEN
3805 LET BD3 := BD3 + HD3 ; HD3 := O
3810 IF BD3 < O THEN LET BD3 := O
3815 ENDIF
3820 IF D4 < O THEN
3825 LET BD4 := BD4 + HD4 ; HD4 := O
3830 IF BD4 < O THEN LET BD4 := O
3835 ENDIF
3840 IF D5 < O THEN
3845 LET BD5 := BD5 + HD5 ; HD5 := O
3850 IF BD5 < O THEN LET BD5 := O
3855 ENDIF
3860 IF D1 < O THEN
3865 LET HD1 := HD1 + BD1 ; BD1 := O
3870 IF HD1 < O THEN LET HD1 := O
3875 ENDIF
3880 IF D2 < O THEN
3885 LET HD2 := HD2 + BD2 ; BD2 := O
3890 IF HD2 < O THEN LET HD2 := O
3895 ENDIF
3900 IF DA2 < O THEN
3905 LET HDA2 := HDA2 + BDA2 ; BDA2 := O
3910 IF HDA2 < O THEN LET HDA2 := O
3915 ENDIF
3920 IF D3 < O THEN
3925 LET HD3 := HD3 + BD3 ; BD3 := O
3930 IF HD3 < O THEN LET HD3 := O
3935 ENDIF
3940 IF D4 < O THEN
3945 LET HD4 := HD4 + BD4 ; BD4 := O
3950 IF HD4 < O THEN LET HD4 := O
3955 ENDIF
3960 IF D5 < O THEN
3965 LET HD5 := HD5 + BD5 ; BD5 := O
3970 IF HD5 < O THEN LET HD5 := O
3975 ENDIF
3980 LET HD6 := HD1 + HD2 + HDA2 + HD3 + HD4 + HD5 ; BD6 := BD1 + BD2 + BDA2 + BD3 + BD4 + BD5
3985 ENDIF
3990 ENDPROC REGN7
3995 PROC MSSIKS
4000 LET F4 := ABS(HD1 + HD2 + HDA2)
4005 IF F4 > HD3 + HD4 + HD5 THEN LET F4 := HD3 + HD4 + HD5
4010 LET HD3 := HD3 - (F4 / (P7 + P8 + P9) * P7) ; HD4 := HD4 - (F4 / (P7 + P8 + P9) * P8)
4015 LET HD5 := HD5 - (F4 / (P7 + P8 + P9) * P9) ; D1 := HD1 ; D2 := HD2 ; DA2 := HDA2
4020 LET HD1 := HD1 + (F4 / (D1 + D2 + DA2) * D1) ; HD2 := HD2 + (F4 / (D1 + D2 + DA2) * D2)
4025 LET HDA2 := HDA2 + (F4 / (D1 + D2 + DA2) * DA2)
4030 ENDPROC MSSIKS
4035 PROC MSSIKS1
4040 LET F4 := ABS(BD1 + BD2 + BDA2)
4045 IF F4 > BD3 + BD4 + BD5 THEN LET F4 := BD3 + BD4 + BD5
4050 LET BD3 := BD3 - (F4 / (P7 + P8 + P9) * P7) ; BD4 := BD4 - (F4 / (P7 + P8 + P9) * P8)
4055 LET BD5 := BD5 - (F4 / (P7 + P8 + P9) * P9) ; D1 := BD1 ; D2 := BD2 ; DA2 := BDA2
4060 LET BD1 := BD1 + (F4 / (D1 + D2 + DA2) * D1) ; BD2 := BD2 + (F4 / (D1 + D2 + DA2) * D2)
4065 LET BDA2 := BDA2 + (F4 / (D1 + D2 + DA2) * DA2)
4070 ENDPROC MSSIKS1
4075 PROC REGN43
4080 IF T0 = 1 AND B4 < C8 THEN LET E9 := (((INT(B4 / W) * W) - C8) * ((16 * U1) + P0 + PA0) / W)
4085 IF T0 = 1 AND C4 < C8 THEN LET E8 := (((INT(C4 / W) * W) - C8) * ((16 * U1) + P0 + PA0) / W)
4090 IF T0 = 2 AND B1 < C8 THEN LET E8 := (((INT(B1 / W) * W) - C8) * ((16 * U1) + P0 + PA0) / W)
4095 IF T0 = 2 AND C6 < C8 THEN LET E9 := (((INT(C6 / W) * W) - C8) * ((16 * U1) + P0 + PA0) / W)
4100 ENDPROC REGN43
4105 PROC REGN44
4110 IF T0 = 1 AND B4 < C8 THEN LET E9 := E9 + ((((INT(B4 / W) * W) - C8) * (P7 + P8)) / W)
4115 IF T0 = 1 AND C4 < C8 THEN LET E8 := E8 + ((((INT(C4 / W) * W) - C8) * (P7 + P8)) / W)
4120 IF T0 = 2 AND B1 < C8 THEN LET E8 := E8 + ((((INT(B1 / W) * W) - C8) * (P7 + P8)) / W)
4125 IF T0 = 2 AND C6 < C8 THEN LET E9 := E9 + ((((INT(C6 / W) * W) - C8) * (P7 + P8)) / W)
4130 ENDPROC REGN44
4135 PROC REGN8
4140 LET B9 := O ; B7 := INT(B7 / W) * W ; B9 := (B7 - U2) * 22 / 1000
4145 IF 6 - D5 + B9 > C4 * 78 / W THEN
4150 LET E5 := (D6 - D5 + B9) - (C4 * 78 / W)
4155 IF 5 =< B9 * 60 / W THEN
4160 LET B9 := B9 - E5
4165 ELSE
4170 LET E5 := E5 - (B9 * 60 / W) ; B9 := B9 - (B9 * 60 / W)
4175 LET D1 := D1 - E5
4180 IF D1 < 0 THEN LET D1 := 0
4185 EXEC REGN38
4190 EXEC REGN7
4195 ENDIF
4200 ENDIF
4205 ENDPROC REGN8
4210 PROC REGN9
4215 IF B7 < O THEN LET B7 := O
4220 IF B8 < O THEN LET B8 := O
4225 LET B6 := B7 + B8 ; B6 := INT(B6 / W) * W ; E7 := (B6 - U2) * 22 / 1000
4230 IF B7 > O THEN LET B9 := E7 / B6 * B7
4235 IF B8 > O THEN LET E6 := E7 / B6 * B8
4240 IF 2 = 2 AND (T0 = 1 OR T0 = 2) THEN
4245 IF T0 = 1 THEN LET D8 := C4
4250 IF T0 = 2 THEN LET D8 := C6
4255 LET D0 := O
4260 ELSE
4265 IF 0 = 1 THEN
4270 LET C7 := B5
4275 ELSE
4280 LET C7 := B2
4285 ENDIF
4290 LET D0 := (INT(C7 / W) * W) * ((P0 + PA0 + P7 + P8) / W) ; D0 := D0 + E2
4295 ENDIF
4300 IF E8 < O THEN LET D0 := D0 + E8
4305 IF E9 < O THEN LET D0 := D0 + E9
4310 IF T0 = 1 AND E8 >= O THEN LET D0 := D0 + HD6 - HD5 + GEMAFR
4315 IF C0 < 0 THEN LET D0 := D0 - C0
4320 IF T0 = 2 AND E9 >= O THEN LET D0 := D0 + BD6 - BD5 + GEMAFR
4325 IF C9 < 0 THEN LET D0 := D0 - C9
4330 LET D0 := D0 + E7
4335 IF D0 =< D8 * 78 / W THEN EXIT
4340 LET E5 := D0 - (D8 * 78 / W)
4345 IF 5 =< E7 * 60 / W THEN
4350 LET B9 := B9 - (E5 / B6 * B7) ; E6 := E6 - (E5 / B6 * B8)
4355 ELSE
4360 LET D0 := E7 * 60 / W ; E5 := E5 - D0 ; B9 := B9 - (D0 / B6 * B7) ; E6 := E6 - (D0 / B6 * B8)
4365 EXEC REGN10
4370 LET D1 := D1 - (E5 / B6 * B7)
4375 EXEC REGN38
4380 LET D7 := D6
4385 EXEC REGN20
4390 EXEC REGN22
4395 LET D1 := D1 - (E5 / B6 * B8)
4400 EXEC REGN38
4405 LET D9 := D6
4410 EXEC REGN21
4415 EXEC REGN7
4420 ENDIF
4425 ENDPROC REGN9
4430 PROC SKAT
4435 LET QT$ := "SKATTEBEREGNING:"
4440 EXEC LSKRIV3
4445 PRINT
4450 LET QT$ := "STATSSKAT " + PIL$(1 : 24) ; QB := D1
4455 EXEC LSKRIV2
4460 LET QT$ := "FOLKEPENSIONSBIDRAG " + PIL$(1 : 14) ; QB := D2
4465 EXEC LSKRIV2
4470 LET QT$ := "DAGPENGEFONDBIDRAG " + PIL$(1 : 15) ; QB := DA2
4475 EXEC LSKRIV2
4480 LET QT$ := "KOMMUNESKAT " + PIL$(1 : 22) ; QB := D3
4485 EXEC LSKRIV2
4490 LET QT$ := "AMTSKOMMUNAL INDKOMSTSKAT " + PIL$(1 : 8) ; QB := D4
4495 EXEC LSKRIV2
4500 IF 5 > O THEN
4505 LET QT$ := "KIRKESKAT " + PIL$(1 : 24) ; QB := D5
4510 EXEC LSKRIV2
4515 ENDIF
4520 ENDPROC SKAT
4525 PROC INDSKAT
4530 LET QT$ := SP$(1 : 34) + LI$(1 : 16)
4535 EXEC LSKRIV3
4540 LET QT$ := "INDKOMSTSKAT IALT " + PIL$(1 : 16) ; QB := D6
4545 EXEC LSKRIV2
4550 ENDPROC INDSKAT
4555 PROC FSKAT
4560 IF S > O THEN
4565 LET QT$ := "FORMUESKAT " + PIL$(1 : 23) ; QB := FS
4570 EXEC LSKRIV2
4575 LET QT$ := SP$(1 : 34) + LI$(1 : 16)
4580 EXEC LSKRIV3
4585 LET QT$ := "*** TOTALSKAT " + PIL$(1 : 20) ; QB := D6 + FS
4590 EXEC LSKRIV2
4595 ENDIF
4600 LET QT$ := SP$(1 : 34) + "================"
4605 EXEC LSKRIV3
4610 ENDPROC FSKAT
4615 PROC SKATPRO
4620 LET QT$ := "Kommuneskatteprocent " ; QB := P7
4625 EXEC LSKRIV4
4630 LET QT$ := "Amtskommunal skatteprocent " ; QB := P8
4635 EXEC LSKRIV4
4640 LET QT$ := "Kirkeskatteprocent " ; QB := P9
4645 EXEC LSKRIV4
4650 IF 1 >< O THEN
4655 LET QT$ := "Hovedpersonen er beregnet med personfradrag som pensionist."
4660 EXEC LSKRIV3
4665 ENDIF
4670 IF 3 >< O THEN
4675 LET QT$ := "Den gifte kvinde er beregnet med personfradrag som pensionist."
4680 EXEC LSKRIV3
4685 ENDIF
4690 IF 4 = 1 THEN
4695 LET QT$ := "Beregningerne er sket efter reglerne om ligedeling ægtefæller."
4700 EXEC LSKRIV3
4705 ENDIF
4710 ENDPROC SKATPRO
4715 PROC LSKRIV2
4720 PRINT USING QT$ + "#########.## KR." : QB
4725 ENDPROC LSKRIV2
4730 PROC LSKRIV1
4735 PRINT USING QT$ + "######### KR." : QB
4740 ENDPROC LSKRIV1
4745 PROC LSKRIV4
4750 PRINT USING QT$ + "#######.# PCT." : QB
4755 ENDPROC LSKRIV4
4760 PROC SVAR
4765 REPEAT
4770 INPUT "? (j/n) " : S$
4775 IF S$ = "N" THEN LET S$ := "n"
4780 IF S$ = "J" THEN LET S$ := "j"
4785 IF S$ = "q" OR S$ = "Q" THEN END
4790 UNTIL S$ = "j" OR S$ = "n"
4795 PRINT LI$
4800 ENDPROC SVAR
4805 PROC LSKRIV
4810 PRINT
4815 ENDPROC LSKRIV
4820 PROC LSKRIV3
4825 PRINT QT$
4830 ENDPROC LSKRIV3
4835 PROC REGN50
4840 EXEC REGN32
4845 EXEC REGN33
4850 EXEC REGN34
4855 IF C8 = P3 THEN LET C8 := P4
4860 EXEC REGN35
4865 EXEC REGN36
4870 IF 5 > O THEN
4875 EXEC REGN37
4880 ELSE
4885 IF C8 > C7 THEN LET D5 := D5 - ((C8 - C7) * P9 / W)
4890 ENDIF
4895 EXEC REGN38
4900 ENDPROC REGN50
4905 PROC REGN51
4910 EXEC REGN26
4915 EXEC REGN27
4920 EXEC REGN28
4925 EXEC REGN29
4930 ENDPROC REGN51
4935 PROC RETURN
4940 LET S$ := "-"
4945 PRINT
4950 PRINT TAB(65) ;
4955 EDIT "TRYK -RETURN" : S$
4960 ENDPROC RETURN
4965 PROC SKIFT
4970 IF = 1 THEN
4975 EXEC RETURN
4980 CLEAR
4985 ELSE
4990 FOR X := 1 TO DO
4995 PRINT
5000 NEXT X
5005 ENDIF
5010 ENDPROC SKIFT
5015 PROC SIDESKIFT
5020 IF = 2 THEN
5025 PRINT CHR$ (12)
5030 PRINT REV$
5035 PRINT ADR$
5040 ENDIF
5045 EXEC SKIFT
5050 ENDPROC SIDESKIFT
5055 PROC WIN
5060 CURSOR 1,20
5065 PRINT SP$ + SP$
5070 LET X := 3 ; P := O ; A(N) := O ; FIL$ := "DDE:INDKOM"
5075 OPEN FIL$,R
5080 IF N = 18 THEN LET X := 6 ; P := 6
5085 IF N = 8 THEN LET P := 3
5090 IF N = 19 THEN LET P := 12
5095 CURSOR 1,23 - X
5100 FOR Y := 1 TO + X DO
5105 GET FIL$ : S$
5110 IF > P THEN
5115 PRINT S$
5120 ENDIF
5125 NEXT Y
5130 FOR Y := 1 TO DO
5135 CURSOR 65,22 - X + Y
5140 INPUT B
5145 LET A(N) := A(N) + B
5150 NEXT Y
5155 CLOSE FIL$
5160 ENDPROC WIN
0x0000…0027 (0,) 9615 0010 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 0015 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 0020 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 0025 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 0030 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 0035 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 0040 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 0045 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 0050 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 0055 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 0060 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 0065 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 0070 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 0075 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 0080 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 0085 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 0090 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 0095 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 0100 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 0105 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 0110 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 0115 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 0120 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 0125 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 0130 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 0135 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 0140 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 0145 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 0150 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 0155 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 0160 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 0165 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 0170 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 0175 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 0180 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 0185 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 0190 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 0195 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 0200 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 0205 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 0210 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 0215 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 0220 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 0225 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 0230 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 0235 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 0240 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 0245 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 0250 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 0255 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 0260 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 0265 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 0270 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 0275 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 0280 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 0285 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 0290 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 0295 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 0300 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 0305 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 0310 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 0315 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 0320 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 0325 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 0330 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 0335 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 0340 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 0345 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 0350 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 0355 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 0360 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 0365 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 0370 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 0375 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 0380 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 0385 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 0390 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 0395 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 0400 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 0405 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 0410 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 0415 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 0420 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 0425 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 0430 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 0435 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 0440 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 0445 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 0450 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 0455 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 0460 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 0465 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 0470 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 0475 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 0480 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 0485 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 0490 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 0495 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 0500 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 0505 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 0510 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 0515 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 0520 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 0525 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 0530 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 0535 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 0540 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 0545 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 0550 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 0555 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 0560 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 0565 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 0570 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 0575 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 0580 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 0585 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 0590 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 0595 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 0600 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 0605 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 0610 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 0615 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 0620 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 0625 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 0630 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 0635 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 0640 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 0645 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 0650 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 0655 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 0660 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 0665 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 0670 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 0675 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 0680 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 0685 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 0690 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 0695 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 0700 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 0705 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 0710 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 0715 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 0720 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 0725 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 0730 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 0735 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 0740 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 0745 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 0750 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 0755 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 0760 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 0765 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 0770 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 0775 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 0780 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 0785 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 0790 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 0795 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 0800 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 0805 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 0810 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 0815 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 0820 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 0825 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 0830 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 0835 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 0840 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 0845 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 0850 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 0855 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 0860 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 0865 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 0870 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 0875 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 0880 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 0885 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 0890 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 0895 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 0900 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 0905 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 0910 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 0915 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 0920 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 0925 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 0930 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 0935 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 0940 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 0945 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 0950 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 0955 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 0960 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 0965 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 0970 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 0975 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 0980 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 0985 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 0990 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 0995 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 1000 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 1005 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 1010 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 1015 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 1020 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 1025 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 1030 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 1035 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 1040 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 1045 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 1050 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 1055 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 1060 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 1065 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 1070 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 1075 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 1080 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 1085 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 1090 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 1095 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 1100 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 1105 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 1110 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 1115 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 1120 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 1125 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 1130 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 1135 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 1140 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 1145 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 1150 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 1155 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 1160 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 1165 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 1170 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 1175 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 1180 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 1185 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 1190 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 1195 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 1200 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 1205 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 1210 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 1215 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 1220 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 1225 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 1230 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 1235 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 1240 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 1245 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 1250 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 1255 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 1260 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 1265 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 1270 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 1275 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 1280 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 1285 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 1290 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 1295 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 1300 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 1305 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 1310 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 1315 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 1320 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 1325 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 1330 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 1335 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 1340 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 1345 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 1350 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 1355 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 1360 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 1365 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 1370 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 1375 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 1380 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 1385 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 1390 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 1395 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 1400 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 1405 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 1410 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 1415 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 1420 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 1425 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 1430 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 1435 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 1440 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 1445 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 1450 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 1455 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 1460 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 1465 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 1470 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 1475 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 1480 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 1485 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 1490 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 1495 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 1500 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 1505 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 1510 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 1515 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 1520 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 1525 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 1530 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 1535 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 1540 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 1545 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 1550 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 1555 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 1560 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 1565 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 1570 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 1575 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 1580 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 1585 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 1590 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 1595 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 1600 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 1605 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 1610 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 1615 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 1620 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 1625 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 1630 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 1635 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 1640 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 1645 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 1650 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 1655 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 1660 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 1665 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 1670 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 1675 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 1680 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 1685 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 1690 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 1695 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 1700 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 1705 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 1710 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 1715 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 1720 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 1725 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 1730 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 1735 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 1740 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 1745 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 1750 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 1755 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 1760 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 1765 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 1770 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 1775 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 1780 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 1785 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 1790 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 1795 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 1800 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 1805 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 1810 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 1815 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 1820 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 1825 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 1830 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 1835 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 1840 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 1845 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 1850 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 1855 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 1860 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 1865 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 1870 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 1875 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 1880 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 1885 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 1890 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 1895 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 1900 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 1905 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 1910 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 1915 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 1920 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 1925 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 1930 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 1935 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 1940 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 1945 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 1950 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 1955 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 1960 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 1965 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 1970 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 1975 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 1980 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 1985 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 1990 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 1995 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 2000 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 2005 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 2010 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 2015 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 2020 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 2025 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 2030 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 2035 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 2040 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 2045 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 2050 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 2055 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 2060 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 2065 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 2070 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 2075 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 2080 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 2085 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 2090 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 2095 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 2100 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 2105 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 2110 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 2115 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 2120 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 2125 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 2130 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 2135 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 2140 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 2145 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 2150 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 2155 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 2160 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 2165 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 2170 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 2175 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 2180 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 2185 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 2190 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 2195 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 2200 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 2205 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 2210 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 2215 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 2220 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 2225 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 2230 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 2235 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 2240 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 2245 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 2250 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 2255 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 2260 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 2265 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 2270 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 2275 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 2280 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 2285 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 2290 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 2295 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 2300 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 2305 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 2310 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 2315 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 2320 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 2325 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 2330 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 2335 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 2340 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 2345 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 2350 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 2355 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 2360 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 2365 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 2370 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 2375 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 2380 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 2385 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 2390 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 2395 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 2400 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 2405 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 2410 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 2415 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 2420 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 2425 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 2430 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 2435 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 2440 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 2445 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 2450 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 2455 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 2460 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 2465 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 2470 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 2475 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 2480 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 2485 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 2490 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 2495 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 2500 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 2505 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 2510 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 2515 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 2520 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 2525 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 2530 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 2535 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 2540 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 2545 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 2550 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 2555 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 2560 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 2565 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 2570 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 2575 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 2580 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 2585 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 2590 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 2595 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 2600 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 2605 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 2610 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 2615 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 2620 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 2625 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 2630 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 2635 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 2640 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 2645 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 2650 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 2655 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 2660 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 2665 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 2670 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 2675 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 2680 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 2685 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 2690 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 2695 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 2700 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 2705 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 2710 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 2715 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 2720 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 2725 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 2730 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 2735 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 2740 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 2745 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 2750 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 2755 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 2760 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 2765 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 2770 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 2775 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 2780 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 2785 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 2790 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 2795 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 2800 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 2805 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 2810 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 2815 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 2820 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 2825 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 2830 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 2835 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 2840 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 2845 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 2850 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 2855 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 2860 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 2865 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 2870 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 2875 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 2880 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 2885 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 2890 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 2895 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 2900 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 2905 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 2910 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 2915 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 2920 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 2925 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 2930 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 2935 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 2940 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 2945 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 2950 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 2955 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 2960 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 2965 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 2970 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 2975 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 2980 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 2985 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 2990 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 2995 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 3000 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 3005 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 3010 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 3015 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 3020 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 3025 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 3030 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 3035 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 3040 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 3045 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 3050 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 3055 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 3060 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 3065 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 3070 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 3075 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 3080 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 3085 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 3090 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 3095 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 3100 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 3105 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 3110 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 3115 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 3120 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 3125 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 3130 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 3135 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 3140 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 3145 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 3150 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 3155 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 3160 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 3165 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 3170 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 3175 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 3180 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 3185 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 3190 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 3195 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 3200 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 3205 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 3210 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 3215 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 3220 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 3225 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 3230 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 3235 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 3240 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 3245 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 3250 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 3255 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 3260 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 3265 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 3270 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 3275 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 3280 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 3285 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 3290 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 3295 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 3300 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 3305 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 3310 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 3315 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 3320 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 3325 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 3330 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 3335 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 3340 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 3345 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 3350 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 3355 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 3360 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 3365 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 3370 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 3375 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 3380 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 3385 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 3390 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 3395 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 3400 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 3405 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 3410 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 3415 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 3420 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 3425 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 3430 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 3435 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 3440 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 3445 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 3450 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 3455 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 3460 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 3465 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 3470 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 3475 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 3480 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 3485 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 3490 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 3495 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 3500 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 3505 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 3510 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 3515 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 3520 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 3525 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 3530 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 3535 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 3540 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 3545 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 3550 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 3555 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 3560 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 3565 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 3570 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 3575 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 3580 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 3585 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 3590 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 3595 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 3600 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 3605 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 3610 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 3615 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 3620 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 3625 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 3630 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 3635 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 3640 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 3645 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 3650 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 3655 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 3660 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 3665 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 3670 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 3675 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 3680 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 3685 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 3690 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 3695 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 3700 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 3705 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 3710 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 3715 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 3720 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 3725 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 3730 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 3735 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 3740 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 3745 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 3750 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 3755 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 3760 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 3765 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 3770 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 3775 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 3780 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 3785 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 3790 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 3795 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 3800 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 3805 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 3810 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 3815 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 3820 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 3825 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 3830 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 3835 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 3840 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 3845 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 3850 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 3855 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 3860 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 3865 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 3870 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 3875 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 3880 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 3885 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 3890 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 3895 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 3900 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 3905 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 3910 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 3915 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 3920 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 3925 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 3930 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 3935 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 3940 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 3945 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 3950 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 3955 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 3960 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 3965 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 3970 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 3975 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 3980 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 3985 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 3990 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 3995 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 4000 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 4005 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 4010 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 4015 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 4020 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 4025 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 4030 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 4035 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 4040 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 4045 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 4050 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 4055 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 4060 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 4065 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 4070 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 4075 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 4080 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 4085 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 4090 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 4095 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 4100 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 4105 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 4110 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 4115 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 4120 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 4125 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 4130 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 4135 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 4140 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 4145 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 4150 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 4155 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 4160 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 4165 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 4170 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 4175 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 4180 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 4185 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 4190 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 4195 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 4200 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 4205 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 4210 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 4215 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 4220 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 4225 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 4230 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 4235 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 4240 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 4245 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 4250 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 4255 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 4260 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 4265 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 4270 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 4275 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 4280 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 4285 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 4290 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 4295 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 4300 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 4305 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 4310 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 4315 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 4320 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 4325 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 4330 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 4335 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 4340 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 4345 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 4350 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 4355 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 4360 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 4365 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 4370 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 4375 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 4380 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 4385 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 4390 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 4395 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 4400 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 4405 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 4410 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 4415 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 4420 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 4425 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 4430 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 4435 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 4440 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 4445 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 4450 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 4455 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 4460 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 4465 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 4470 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 4475 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 4480 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 4485 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 4490 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 4495 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 4500 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 4505 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 4510 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 4515 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 4520 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 4525 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 4530 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 4535 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 4540 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 4545 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 4550 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 4555 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 4560 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 4565 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 4570 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 4575 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 4580 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 4585 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 4590 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 4595 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 4600 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 4605 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 4610 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 4615 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 4620 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 4625 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 4630 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 4635 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 4640 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 4645 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 4650 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 4655 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 4660 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 4665 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 4670 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 4675 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 4680 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 4685 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 4690 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 4695 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 4700 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 4705 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 4710 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 4715 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 4720 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 4725 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 4730 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 4735 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 4740 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 4745 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 4750 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 4755 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 4760 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 4765 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 4770 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 4775 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 4780 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 4785 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 4790 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 4795 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 4800 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 4805 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 4810 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 4815 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 4820 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 4825 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 4830 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 4835 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 4840 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 4845 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 4850 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 4855 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 4860 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 4865 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 4870 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 4875 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 4880 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 4885 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 4890 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 4895 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 4900 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 4905 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 4910 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 4915 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 4920 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 4925 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 4930 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 4935 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 4940 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 4945 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 4950 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 4955 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 4960 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 4965 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 4970 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 4975 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 4980 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 4985 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 4990 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 4995 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 5000 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 5005 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 5010 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 5015 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 5020 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 5025 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 5030 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 5035 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 5040 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 5045 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 5050 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 5055 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 5060 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 5065 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 5070 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 5075 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 5080 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 5085 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 5090 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 5095 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 5100 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 5105 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 5110 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 5115 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 5120 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 5125 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 5130 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 5135 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 5140 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 5145 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 5150 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 5155 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 5160 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,) ee 95 ee 95 00 00 ┆ ┆