|
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: 4603 (0x11fb)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_cd
Names: »ÅRSOP85.B«
└─⟦fe8d363bb⟧ Bits:30004640 EASY-Skat 1985 (MIKADOS)
└─⟦this⟧ »ÅRSOP85.B«
0100 ON ESC GOTO DUMMY
0110 INTEGER X,N,PR,Y,F8,FE,G,T0,T1,T2,T3,T4
0120 LET STATUS := 0 ; G1 := 0 ; B7 := 0 ; B8 := 0 ; U2 := 0 ; F0 := 0 ; F7 := 0 ; T3 := 0 ; T := 0 ; T0 := 0
0130 LET TKB := 0 ; TKH := 0
0140 DIM A1$(29) OF 29,A(29),H(23),K(23),LI$ OF 80,QT$ OF 80,S$ OF 80
0150 DIM FIL$ OF 15,PIL$ OF 80,SP$ OF 80,HKL$ OF 38,BKL$ OF 38
0160 LET LI$ := "" ; PIL$ := "" ; SP$ := ""
0170 FOR X := 1 TO 8 DO
0180 LET LI$ := LI$ + "-" ; PIL$ := PIL$ + "." ; SP$ := SP$ + " "
0190 NEXT X
0200 LET F8 := 0 ; G := 0 ; T2 := 2 ; T4 := 0
0210 LET FIL$ := "dde:skatsys"
0220 OPEN FIL$,R
0230 GET FIL$ : SYS
0240 CLOSE FIL$
0250 OPEN FIL$,W
0260 LET SYS := 1
0270 PUT FIL$ : SYS
0280 CLOSE FIL$
0290 LET FIL$ := "dde:hskvar"
0300 OPEN FIL$,R
0310 FOR X := 1 TO 9 DO
0320 GET FIL$ : A(X)
0330 IF X < 24 THEN GET FIL$ : H(X),K(X)
0340 NEXT X
0350 GET FIL$ : F8,T1,T2,T4
0360 CLOSE FIL$
0370 LET FIL$ := "dde:fvar"
0380 OPEN FIL$,R
0390 GET FIL$ : PR,C4,HD6,C9,B0,T1,TKH,F6,F1
0400 GET FIL$ : F9,P1,P7,P8,P9,T0,B2,B1,B9
0410 GET FIL$ : T2,C6,BD6,C0,B3,E6,F2,T3,TKB
0420 GET FIL$ : F0,F7,SKG,AKT,D6,GSLUT
0430 GET FIL$ : HFORMUE,BFORMUE,HATP,BATP,G,FSLUT
0440 GET FIL$ : HKL$,BKL$
0450 CLOSE FIL$
0460 LET X := 0
0470 OPEN "dde:skatart",R
0480 REPEAT
0490 LET X := X + 1
0500 GET "dde:skatart" : A1$(X)
0510 UNTIL ╱cd╱ ("dde:skatart") = 19 OR ╱cd╱ ("dde:skatart") > 0 OR X = 29
0520 CLOSE
0530 LET E1 := 28 ; F3 := 64000 ; F4 := 70999 ; F5 := 1985 ; P1 := 111300 ; P2 := 182600
0540 LET P3 := 22700 ; P4 := 20300 ; P5 := 43900 ; P6 := 24000 ; P0 := 3.5 ; PA0 := 2
0550 LET U1 := .9 ; U2 := 1229200 ; M1 := 112700
0560 LET D6 := HD6 ; SKG := F6 ; AKT := F9
0570 FOR X := 24 TO 9 DO
0580 LET A(X) := 0
0590 NEXT X
0600 IF >< 1 AND GSLUT >< 1 THEN
0610 LET FIL$ := "dde:skatsluh"
0620 OPEN FIL$,R
0630 EXEC LÆSF
0640 EXEC GEMHOP
0650 ELSE
0660 EXEC HENTHOP
0670 ENDIF
0680 FOR Y := 1 TO R + 1 DO
0690 IF Y = 2 THEN OUTPUT "p"
0700 IF = 2 THEN
0710 EXEC TLI
0720 ELSE
0730 CLEAR
0740 ENDIF
0750 LET QT$ := "ÅRSOPGØRELSE FOR " + HKL$ + ":"
0760 EXEC LSKRIV3
0770 EXEC ÅRSOPG
0780 IF Y = 1 THEN EXEC RETURN
0790 IF Y = 2 THEN OUTPUT "t"
0800 NEXT Y
0810 IF 2 >< 0 THEN
0820 LET D6 := BD6 ; SKG := F7 ; AKT := F0
0830 FOR X := 24 TO 9 DO
0840 LET A(X) := 0
0850 NEXT X
0860 CLEAR
0870 IF >< 1 AND GSLUT >< 1 THEN
0880 LET FIL$ := "dde:skatslub"
0890 OPEN FIL$,R
0900 EXEC LÆSF
0910 EXEC GEMBIP
0920 ELSE
0930 EXEC HENTBIP
0940 ENDIF
0950 FOR Y := 1 TO R + 1 DO
0960 IF Y = 2 THEN OUTPUT "p"
0970 IF = 2 THEN
0980 EXEC TLI
0990 ELSE
1000 CLEAR
1010 ENDIF
1020 LET QT$ := "ÅRSOPGØRELSE FOR " + BKL$ + ":"
1030 EXEC LSKRIV3
1040 EXEC ÅRSOPG
1050 IF Y = 1 THEN EXEC RETURN
1060 IF Y = 2 THEN OUTPUT "t"
1070 NEXT Y
1080 ENDIF
1090 PRINT "*** VENT *** HOVEDPROGRAMMET INDLÆSES ***"
1100 CHAIN "DDE:SKAT85"
1110 PROC LSKRIV2
1120 LET PRB := QB
1130 PRINT QT$ ;
1140 PRINT USING "#########.## KR." : PRB
1150 ENDPROC LSKRIV2
1160 PROC LSKRIV1
1170 LET PRB := QB
1180 PRINT QT$ ;
1190 PRINT USING "######### KR." : PRB
1200 ENDPROC LSKRIV1
1210 PROC LSKRIV4
1220 LET PRB := QB
1230 PRINT QT$ ;
1240 PRINT USING "######### PCT." : PRB
1250 ENDPROC LSKRIV4
1260 PROC SVAR
1270 REPEAT
1280 INPUT S$
1290 IF $ = "q" OR S$ = "Q" THEN
1300 PRINT "Programmet kan kun afsluttes fra hovedprogrammet." ; CHR$ (7)
1310 ENDIF
1320 UNTIL S$ = "j" OR S$ = "n"
1330 PRINT LI$
1340 ENDPROC SVAR
1350 PROC LSKRIV
1360 PRINT
1370 ENDPROC LSKRIV
1380 PROC LSKRIV3
1390 PRINT QT$
1400 ENDPROC LSKRIV3
1410 PROC ÅRSOPG
1420 IF Y = 1 THEN LET DD6 := D6
1430 LET A(27) := SKG + AKT
1440 PRINT
1450 LET QT$ := "SLUTSKAT" + PIL$(1 : 23) ; QB := INT(D6)
1460 EXEC LSKRIV1
1470 FOR X := 24 TO 9 DO
1480 IF (X) > 0 AND X >< 28 AND X >< 29 THEN
1490 IF = 1 THEN
1500 LET D6 := D6 - A(X)
1510 ENDIF
1520 PRINT "- " ;
1530 ENDIF
1540 IF (X) > 0 AND (X = 28 OR X = 29) THEN
1550 IF = 1 THEN
1560 LET D6 := D6 + A(X)
1570 ENDIF
1580 PRINT "+ " ;
1590 ENDIF
1600 IF (X) > 0 THEN
1610 LET QT$ := A1$(X) ; QB := A(X)
1620 EXEC LSKRIV1
1630 ENDIF
1640 NEXT X
1650 LET QT$ := SP$(1 : 32) + "------------"
1660 EXEC LSKRIV3
1670 IF (D6) > 0 THEN
1680 LET QT$ := "RESTSKAT" + PIL$(1 : 23) ; QB := INT(D6)
1690 EXEC LSKRIV1
1700 ENDIF
1710 IF (D6) = 0 THEN
1720 LET QT$ := "FORSKUDSSKATTEN STEMMER MED SLUTSKATTEN."
1730 EXEC LSKRIV3
1740 ENDIF
1750 IF (D6) < 0 THEN
1760 LET QT$ := "OVERSKYDENDE SKAT" + PIL$(1 : 14) ; QB := INT(D6)
1770 EXEC LSKRIV1
1780 ENDIF
1790 IF (D6) >< 0 THEN
1800 LET QT$ := SP$(1 : 32) + "============"
1810 EXEC LSKRIV3
1820 ENDIF
1830 IF (21) > 0 THEN
1840 LET QT$ := "Pålignet B-skat forudsættes betalt."
1850 EXEC LSKRIV3
1860 ENDIF
1870 ENDPROC ÅRSOPG
1880 PROC LÆSF
1890 FOR X := 24 TO 9 DO
1900 IF >< 27 THEN
1910 IF (FIL$) = 0 THEN
1920 GET FIL$ : S$
1930 PRINT S$
1940 GET FIL$ : S$
1950 PRINT S$ ;
1960 INPUT "" : A(X)
1970 PRINT LI$
1980 ENDIF
1990 ENDIF
2000 NEXT X
2010 CLEAR
2020 ENDPROC LÆSF
2030 PROC RETURN
2040 LET S$ := "-"
2050 PRINT
2060 PRINT TAB(65) ;
2070 EDIT "TRYK -RETURN" : S$
2080 ENDPROC RETURN
2090 PROC TLI
2100 FOR X := 1 TO DO
2110 PRINT
2120 NEXT X
2130 ENDPROC TLI
2140 PROC GEMHOP
2150 OPEN "DDE:HSLUT",W
2160 FOR X := 1 TO DO
2170 IF X >< 3 THEN PUT "DDE:HSLUT" : A(30 - X)
2180 NEXT X
2190 CLOSE "DDE:HSLUT"
2200 ENDPROC GEMHOP
2210 PROC GEMBIP
2220 OPEN "DDE:BSLUT",W
2230 FOR X := 1 TO DO
2240 IF X >< 3 THEN PUT "DDE:BSLUT" : A(30 - X)
2250 NEXT X
2260 CLOSE "DDE:BSLUT"
2270 ENDPROC GEMBIP
2280 PROC HENTHOP
2290 OPEN "DDE:HSLUT",R
2300 FOR X := 1 TO DO
2310 IF X >< 3 THEN GET "DDE:HSLUT" : A(30 - X)
2320 NEXT X
2330 CLOSE "DDE:HSLUT"
2340 ENDPROC HENTHOP
2350 PROC HENTBIP
2360 OPEN "DDE:BSLUT",R
2370 FOR X := 1 TO DO
2380 IF X >< 3 THEN GET "DDE:BSLUT" : A(30 - X)
2390 NEXT X
2400 CLOSE "DDE:BSLUT"
2410 ENDPROC HENTBIP
0x0000…0009 (0,) 95f7 0100 ON ESC GOTO DUMMY
0x0000…0009 LineComal80 {
0x0000…0009 ptr = 0x95f7 // 0x0 @0x0
0x0000…0009 lno = 0x0064 // 0x2 @0x2
0x0000…0009 at0004 = ╱85╱ ON ╱ // 0x4 @0x4
0x0000…0009 at0005 = ╱bc╱ ESC ╱ // 0x5 @0x5
0x0000…0009 at0006 = ╱81╱ GOTO ╱ // 0x6 @0x6
0x0000…0009 at0007 = ╱bd╱ DUMMY ╱ // 0x7 @0x7
0x0000…0009 at0008 = EOL // 0x8 @0x8
0x0000…0009 }
0x0009…002e 961c 0110 INTEGER X,N,PR,Y,F8,FE,G,T0,T1,T2,T3,T4
0x0009…002e LineComal80 {
0x0009…002e ptr = 0x961c // 0x9 @0x0
0x0009…002e lno = 0x006e // 0xb @0x2
0x0009…002e at0004 = ╱b2╱ INTEGER ╱ // 0xd @0x4
0x0009…002e at0005 = ╱58╱X╱ // 0xe @0x5
0x0009…002e at0006 = ╱ec╱,╱ // 0xf @0x6
0x0009…002e at0007 = ╱4e╱N╱ // 0x10 @0x7
0x0009…002e at0008 = ╱ec╱,╱ // 0x11 @0x8
0x0009…002e at0009 = ╱50╱P╱ // 0x12 @0x9
0x0009…002e at000a = ╱52╱R╱ // 0x13 @0xa
0x0009…002e at000b = ╱ec╱,╱ // 0x14 @0xb
0x0009…002e at000c = ╱59╱Y╱ // 0x15 @0xc
0x0009…002e at000d = ╱ec╱,╱ // 0x16 @0xd
0x0009…002e at000e = ╱46╱F╱ // 0x17 @0xe
0x0009…002e at000f = ╱38╱8╱ // 0x18 @0xf
0x0009…002e at0010 = ╱ec╱,╱ // 0x19 @0x10
0x0009…002e at0011 = ╱46╱F╱ // 0x1a @0x11
0x0009…002e at0012 = ╱45╱E╱ // 0x1b @0x12
0x0009…002e at0013 = ╱ec╱,╱ // 0x1c @0x13
0x0009…002e at0014 = ╱47╱G╱ // 0x1d @0x14
0x0009…002e at0015 = ╱ec╱,╱ // 0x1e @0x15
0x0009…002e at0016 = ╱54╱T╱ // 0x1f @0x16
0x0009…002e at0017 = ╱30╱0╱ // 0x20 @0x17
0x0009…002e at0018 = ╱ec╱,╱ // 0x21 @0x18
0x0009…002e at0019 = ╱54╱T╱ // 0x22 @0x19
0x0009…002e at001a = ╱31╱1╱ // 0x23 @0x1a
0x0009…002e at001b = ╱ec╱,╱ // 0x24 @0x1b
0x0009…002e at001c = ╱54╱T╱ // 0x25 @0x1c
0x0009…002e at001d = ╱32╱2╱ // 0x26 @0x1d
0x0009…002e at001e = ╱ec╱,╱ // 0x27 @0x1e
0x0009…002e at001f = ╱54╱T╱ // 0x28 @0x1f
0x0009…002e at0020 = ╱33╱3╱ // 0x29 @0x20
0x0009…002e at0021 = ╱ec╱,╱ // 0x2a @0x21
0x0009…002e at0022 = ╱54╱T╱ // 0x2b @0x22
0x0009…002e at0023 = ╱34╱4╱ // 0x2c @0x23
0x0009…002e at0024 = EOL // 0x2d @0x24
0x0009…002e }
0x002e…0086 9674 0120 LET STATUS := 0 ; G1 := 0 ; B7 := 0 ; B8 := 0 ; U2 := 0 ; F0 := 0 ; F7 := 0 ; T3 := 0 ; T := 0 ; T0 := 0
0x002e…0086 LineComal80 {
0x002e…0086 ptr = 0x9674 // 0x2e @0x0
0x002e…0086 lno = 0x0078 // 0x30 @0x2
0x002e…0086 at0004 = ╱86╱ LET ╱ // 0x32 @0x4
0x002e…0086 at0005 = ╱53╱S╱ // 0x33 @0x5
0x002e…0086 at0006 = ╱54╱T╱ // 0x34 @0x6
0x002e…0086 at0007 = ╱41╱A╱ // 0x35 @0x7
0x002e…0086 at0008 = ╱54╱T╱ // 0x36 @0x8
0x002e…0086 at0009 = ╱55╱U╱ // 0x37 @0x9
0x002e…0086 at000a = ╱53╱S╱ // 0x38 @0xa
0x002e…0086 at000b = ╱f0╱ := ╱ // 0x39 @0xb
0x002e…0086 at000c = ╱30╱0╱ // 0x3a @0xc
0x002e…0086 at000d = ╱f20000╱ // 0x3b @0xd
0x002e…0086 at0010 = ╱ea╱ ; ╱ // 0x3e @0x10
0x002e…0086 at0011 = ╱47╱G╱ // 0x3f @0x11
0x002e…0086 at0012 = ╱31╱1╱ // 0x40 @0x12
0x002e…0086 at0013 = ╱f0╱ := ╱ // 0x41 @0x13
0x002e…0086 at0014 = ╱30╱0╱ // 0x42 @0x14
0x002e…0086 at0015 = ╱f20000╱ // 0x43 @0x15
0x002e…0086 at0018 = ╱ea╱ ; ╱ // 0x46 @0x18
0x002e…0086 at0019 = ╱42╱B╱ // 0x47 @0x19
0x002e…0086 at001a = ╱37╱7╱ // 0x48 @0x1a
0x002e…0086 at001b = ╱f0╱ := ╱ // 0x49 @0x1b
0x002e…0086 at001c = ╱30╱0╱ // 0x4a @0x1c
0x002e…0086 at001d = ╱f20000╱ // 0x4b @0x1d
0x002e…0086 at0020 = ╱ea╱ ; ╱ // 0x4e @0x20
0x002e…0086 at0021 = ╱42╱B╱ // 0x4f @0x21
0x002e…0086 at0022 = ╱38╱8╱ // 0x50 @0x22
0x002e…0086 at0023 = ╱f0╱ := ╱ // 0x51 @0x23
0x002e…0086 at0024 = ╱30╱0╱ // 0x52 @0x24
0x002e…0086 at0025 = ╱f20000╱ // 0x53 @0x25
0x002e…0086 at0028 = ╱ea╱ ; ╱ // 0x56 @0x28
0x002e…0086 at0029 = ╱55╱U╱ // 0x57 @0x29
0x002e…0086 at002a = ╱32╱2╱ // 0x58 @0x2a
0x002e…0086 at002b = ╱f0╱ := ╱ // 0x59 @0x2b
0x002e…0086 at002c = ╱30╱0╱ // 0x5a @0x2c
0x002e…0086 at002d = ╱f20000╱ // 0x5b @0x2d
0x002e…0086 at0030 = ╱ea╱ ; ╱ // 0x5e @0x30
0x002e…0086 at0031 = ╱46╱F╱ // 0x5f @0x31
0x002e…0086 at0032 = ╱30╱0╱ // 0x60 @0x32
0x002e…0086 at0033 = ╱f0╱ := ╱ // 0x61 @0x33
0x002e…0086 at0034 = ╱30╱0╱ // 0x62 @0x34
0x002e…0086 at0035 = ╱f20000╱ // 0x63 @0x35
0x002e…0086 at0038 = ╱ea╱ ; ╱ // 0x66 @0x38
0x002e…0086 at0039 = ╱46╱F╱ // 0x67 @0x39
0x002e…0086 at003a = ╱37╱7╱ // 0x68 @0x3a
0x002e…0086 at003b = ╱f0╱ := ╱ // 0x69 @0x3b
0x002e…0086 at003c = ╱30╱0╱ // 0x6a @0x3c
0x002e…0086 at003d = ╱f20000╱ // 0x6b @0x3d
0x002e…0086 at0040 = ╱ea╱ ; ╱ // 0x6e @0x40
0x002e…0086 at0041 = ╱54╱T╱ // 0x6f @0x41
0x002e…0086 at0042 = ╱33╱3╱ // 0x70 @0x42
0x002e…0086 at0043 = ╱f0╱ := ╱ // 0x71 @0x43
0x002e…0086 at0044 = ╱30╱0╱ // 0x72 @0x44
0x002e…0086 at0045 = ╱f20000╱ // 0x73 @0x45
0x002e…0086 at0048 = ╱ea╱ ; ╱ // 0x76 @0x48
0x002e…0086 at0049 = ╱54╱T╱ // 0x77 @0x49
0x002e…0086 at004a = ╱f0╱ := ╱ // 0x78 @0x4a
0x002e…0086 at004b = ╱30╱0╱ // 0x79 @0x4b
0x002e…0086 at004c = ╱f20000╱ // 0x7a @0x4c
0x002e…0086 at004f = ╱ea╱ ; ╱ // 0x7d @0x4f
0x002e…0086 at0050 = ╱54╱T╱ // 0x7e @0x50
0x002e…0086 at0051 = ╱30╱0╱ // 0x7f @0x51
0x002e…0086 at0052 = ╱f0╱ := ╱ // 0x80 @0x52
0x002e…0086 at0053 = ╱30╱0╱ // 0x81 @0x53
0x002e…0086 at0054 = ╱f20000╱ // 0x82 @0x54
0x002e…0086 at0057 = EOL // 0x85 @0x57
0x002e…0086 }
0x0086…009d 968b 0130 LET TKB := 0 ; TKH := 0
0x0086…009d LineComal80 {
0x0086…009d ptr = 0x968b // 0x86 @0x0
0x0086…009d lno = 0x0082 // 0x88 @0x2
0x0086…009d at0004 = ╱86╱ LET ╱ // 0x8a @0x4
0x0086…009d at0005 = ╱54╱T╱ // 0x8b @0x5
0x0086…009d at0006 = ╱4b╱K╱ // 0x8c @0x6
0x0086…009d at0007 = ╱42╱B╱ // 0x8d @0x7
0x0086…009d at0008 = ╱f0╱ := ╱ // 0x8e @0x8
0x0086…009d at0009 = ╱30╱0╱ // 0x8f @0x9
0x0086…009d at000a = ╱f20000╱ // 0x90 @0xa
0x0086…009d at000d = ╱ea╱ ; ╱ // 0x93 @0xd
0x0086…009d at000e = ╱54╱T╱ // 0x94 @0xe
0x0086…009d at000f = ╱4b╱K╱ // 0x95 @0xf
0x0086…009d at0010 = ╱48╱H╱ // 0x96 @0x10
0x0086…009d at0011 = ╱f0╱ := ╱ // 0x97 @0x11
0x0086…009d at0012 = ╱30╱0╱ // 0x98 @0x12
0x0086…009d at0013 = ╱f20000╱ // 0x99 @0x13
0x0086…009d at0016 = EOL // 0x9c @0x16
0x0086…009d }
0x009d…00eb 96d9 0140 DIM A1$(29) OF 29,A(29),H(23),K(23),LI$ OF 80,QT$ OF 80,S$ OF 80
0x009d…00eb LineComal80 {
0x009d…00eb ptr = 0x96d9 // 0x9d @0x0
0x009d…00eb lno = 0x008c // 0x9f @0x2
0x009d…00eb at0004 = ╱87╱ DIM ╱ // 0xa1 @0x4
0x009d…00eb at0005 = ╱41╱A╱ // 0xa2 @0x5
0x009d…00eb at0006 = ╱31╱1╱ // 0xa3 @0x6
0x009d…00eb at0007 = ╱ef╱$╱ // 0xa4 @0x7
0x009d…00eb at0008 = ╱ed╱(╱ // 0xa5 @0x8
0x009d…00eb at0009 = ╱32╱2╱ // 0xa6 @0x9
0x009d…00eb at000a = ╱39╱9╱ // 0xa7 @0xa
0x009d…00eb at000b = ╱f21d00╱ // 0xa8 @0xb
0x009d…00eb at000e = ╱ee╱)╱ // 0xab @0xe
0x009d…00eb at000f = ╱ba╱ OF ╱ // 0xac @0xf
0x009d…00eb at0010 = ╱32╱2╱ // 0xad @0x10
0x009d…00eb at0011 = ╱39╱9╱ // 0xae @0x11
0x009d…00eb at0012 = ╱f21d00╱ // 0xaf @0x12
0x009d…00eb at0015 = ╱ec╱,╱ // 0xb2 @0x15
0x009d…00eb at0016 = ╱41╱A╱ // 0xb3 @0x16
0x009d…00eb at0017 = ╱ed╱(╱ // 0xb4 @0x17
0x009d…00eb at0018 = ╱32╱2╱ // 0xb5 @0x18
0x009d…00eb at0019 = ╱39╱9╱ // 0xb6 @0x19
0x009d…00eb at001a = ╱f21d00╱ // 0xb7 @0x1a
0x009d…00eb at001d = ╱ee╱)╱ // 0xba @0x1d
0x009d…00eb at001e = ╱ec╱,╱ // 0xbb @0x1e
0x009d…00eb at001f = ╱48╱H╱ // 0xbc @0x1f
0x009d…00eb at0020 = ╱ed╱(╱ // 0xbd @0x20
0x009d…00eb at0021 = ╱32╱2╱ // 0xbe @0x21
0x009d…00eb at0022 = ╱33╱3╱ // 0xbf @0x22
0x009d…00eb at0023 = ╱f21700╱ // 0xc0 @0x23
0x009d…00eb at0026 = ╱ee╱)╱ // 0xc3 @0x26
0x009d…00eb at0027 = ╱ec╱,╱ // 0xc4 @0x27
0x009d…00eb at0028 = ╱4b╱K╱ // 0xc5 @0x28
0x009d…00eb at0029 = ╱ed╱(╱ // 0xc6 @0x29
0x009d…00eb at002a = ╱32╱2╱ // 0xc7 @0x2a
0x009d…00eb at002b = ╱33╱3╱ // 0xc8 @0x2b
0x009d…00eb at002c = ╱f21700╱ // 0xc9 @0x2c
0x009d…00eb at002f = ╱ee╱)╱ // 0xcc @0x2f
0x009d…00eb at0030 = ╱ec╱,╱ // 0xcd @0x30
0x009d…00eb at0031 = ╱4c╱L╱ // 0xce @0x31
0x009d…00eb at0032 = ╱49╱I╱ // 0xcf @0x32
0x009d…00eb at0033 = ╱ef╱$╱ // 0xd0 @0x33
0x009d…00eb at0034 = ╱ba╱ OF ╱ // 0xd1 @0x34
0x009d…00eb at0035 = ╱38╱8╱ // 0xd2 @0x35
0x009d…00eb at0036 = ╱30╱0╱ // 0xd3 @0x36
0x009d…00eb at0037 = ╱f25000╱ // 0xd4 @0x37
0x009d…00eb at003a = ╱ec╱,╱ // 0xd7 @0x3a
0x009d…00eb at003b = ╱51╱Q╱ // 0xd8 @0x3b
0x009d…00eb at003c = ╱54╱T╱ // 0xd9 @0x3c
0x009d…00eb at003d = ╱ef╱$╱ // 0xda @0x3d
0x009d…00eb at003e = ╱ba╱ OF ╱ // 0xdb @0x3e
0x009d…00eb at003f = ╱38╱8╱ // 0xdc @0x3f
0x009d…00eb at0040 = ╱30╱0╱ // 0xdd @0x40
0x009d…00eb at0041 = ╱f25000╱ // 0xde @0x41
0x009d…00eb at0044 = ╱ec╱,╱ // 0xe1 @0x44
0x009d…00eb at0045 = ╱53╱S╱ // 0xe2 @0x45
0x009d…00eb at0046 = ╱ef╱$╱ // 0xe3 @0x46
0x009d…00eb at0047 = ╱ba╱ OF ╱ // 0xe4 @0x47
0x009d…00eb at0048 = ╱38╱8╱ // 0xe5 @0x48
0x009d…00eb at0049 = ╱30╱0╱ // 0xe6 @0x49
0x009d…00eb at004a = ╱f25000╱ // 0xe7 @0x4a
0x009d…00eb at004d = EOL // 0xea @0x4d
0x009d…00eb }
0x00eb…0126 9714 0150 DIM FIL$ OF 15,PIL$ OF 80,SP$ OF 80,HKL$ OF 38,BKL$ OF 38
0x00eb…0126 LineComal80 {
0x00eb…0126 ptr = 0x9714 // 0xeb @0x0
0x00eb…0126 lno = 0x0096 // 0xed @0x2
0x00eb…0126 at0004 = ╱87╱ DIM ╱ // 0xef @0x4
0x00eb…0126 at0005 = ╱46╱F╱ // 0xf0 @0x5
0x00eb…0126 at0006 = ╱49╱I╱ // 0xf1 @0x6
0x00eb…0126 at0007 = ╱4c╱L╱ // 0xf2 @0x7
0x00eb…0126 at0008 = ╱ef╱$╱ // 0xf3 @0x8
0x00eb…0126 at0009 = ╱ba╱ OF ╱ // 0xf4 @0x9
0x00eb…0126 at000a = ╱31╱1╱ // 0xf5 @0xa
0x00eb…0126 at000b = ╱35╱5╱ // 0xf6 @0xb
0x00eb…0126 at000c = ╱f20f00╱ // 0xf7 @0xc
0x00eb…0126 at000f = ╱ec╱,╱ // 0xfa @0xf
0x00eb…0126 at0010 = ╱50╱P╱ // 0xfb @0x10
0x00eb…0126 at0011 = ╱49╱I╱ // 0xfc @0x11
0x00eb…0126 at0012 = ╱4c╱L╱ // 0xfd @0x12
0x00eb…0126 at0013 = ╱ef╱$╱ // 0xfe @0x13
0x00eb…0126 at0014 = ╱ba╱ OF ╱ // 0xff @0x14
0x00eb…0126 at0015 = ╱38╱8╱ // 0x100 @0x15
0x00eb…0126 at0016 = ╱30╱0╱ // 0x101 @0x16
0x00eb…0126 at0017 = ╱f25000╱ // 0x102 @0x17
0x00eb…0126 at001a = ╱ec╱,╱ // 0x105 @0x1a
0x00eb…0126 at001b = ╱53╱S╱ // 0x106 @0x1b
0x00eb…0126 at001c = ╱50╱P╱ // 0x107 @0x1c
0x00eb…0126 at001d = ╱ef╱$╱ // 0x108 @0x1d
0x00eb…0126 at001e = ╱ba╱ OF ╱ // 0x109 @0x1e
0x00eb…0126 at001f = ╱38╱8╱ // 0x10a @0x1f
0x00eb…0126 at0020 = ╱30╱0╱ // 0x10b @0x20
0x00eb…0126 at0021 = ╱f25000╱ // 0x10c @0x21
0x00eb…0126 at0024 = ╱ec╱,╱ // 0x10f @0x24
0x00eb…0126 at0025 = ╱48╱H╱ // 0x110 @0x25
0x00eb…0126 at0026 = ╱4b╱K╱ // 0x111 @0x26
0x00eb…0126 at0027 = ╱4c╱L╱ // 0x112 @0x27
0x00eb…0126 at0028 = ╱ef╱$╱ // 0x113 @0x28
0x00eb…0126 at0029 = ╱ba╱ OF ╱ // 0x114 @0x29
0x00eb…0126 at002a = ╱33╱3╱ // 0x115 @0x2a
0x00eb…0126 at002b = ╱38╱8╱ // 0x116 @0x2b
0x00eb…0126 at002c = ╱f22600╱ // 0x117 @0x2c
0x00eb…0126 at002f = ╱ec╱,╱ // 0x11a @0x2f
0x00eb…0126 at0030 = ╱42╱B╱ // 0x11b @0x30
0x00eb…0126 at0031 = ╱4b╱K╱ // 0x11c @0x31
0x00eb…0126 at0032 = ╱4c╱L╱ // 0x11d @0x32
0x00eb…0126 at0033 = ╱ef╱$╱ // 0x11e @0x33
0x00eb…0126 at0034 = ╱ba╱ OF ╱ // 0x11f @0x34
0x00eb…0126 at0035 = ╱33╱3╱ // 0x120 @0x35
0x00eb…0126 at0036 = ╱38╱8╱ // 0x121 @0x36
0x00eb…0126 at0037 = ╱f22600╱ // 0x122 @0x37
0x00eb…0126 at003a = EOL // 0x125 @0x3a
0x00eb…0126 }
0x0126…0141 972f 0160 LET LI$ := "" ; PIL$ := "" ; SP$ := ""
0x0126…0141 LineComal80 {
0x0126…0141 ptr = 0x972f // 0x126 @0x0
0x0126…0141 lno = 0x00a0 // 0x128 @0x2
0x0126…0141 at0004 = ╱86╱ LET ╱ // 0x12a @0x4
0x0126…0141 at0005 = ╱4c╱L╱ // 0x12b @0x5
0x0126…0141 at0006 = ╱49╱I╱ // 0x12c @0x6
0x0126…0141 at0007 = ╱ef╱$╱ // 0x12d @0x7
0x0126…0141 at0008 = ╱f0╱ := ╱ // 0x12e @0x8
0x0126…0141 at0009 = ╱22╱"╱ // 0x12f @0x9
0x0126…0141 at000a = ╱22╱"╱ // 0x130 @0xa
0x0126…0141 at000b = ╱ea╱ ; ╱ // 0x131 @0xb
0x0126…0141 at000c = ╱50╱P╱ // 0x132 @0xc
0x0126…0141 at000d = ╱49╱I╱ // 0x133 @0xd
0x0126…0141 at000e = ╱4c╱L╱ // 0x134 @0xe
0x0126…0141 at000f = ╱ef╱$╱ // 0x135 @0xf
0x0126…0141 at0010 = ╱f0╱ := ╱ // 0x136 @0x10
0x0126…0141 at0011 = ╱22╱"╱ // 0x137 @0x11
0x0126…0141 at0012 = ╱22╱"╱ // 0x138 @0x12
0x0126…0141 at0013 = ╱ea╱ ; ╱ // 0x139 @0x13
0x0126…0141 at0014 = ╱53╱S╱ // 0x13a @0x14
0x0126…0141 at0015 = ╱50╱P╱ // 0x13b @0x15
0x0126…0141 at0016 = ╱ef╱$╱ // 0x13c @0x16
0x0126…0141 at0017 = ╱f0╱ := ╱ // 0x13d @0x17
0x0126…0141 at0018 = ╱22╱"╱ // 0x13e @0x18
0x0126…0141 at0019 = ╱22╱"╱ // 0x13f @0x19
0x0126…0141 at001a = EOL // 0x140 @0x1a
0x0126…0141 }
0x0141…0155 9743 0170 FOR X := 1 TO 8 DO
0x0141…0155 LineComal80 {
0x0141…0155 ptr = 0x9743 // 0x141 @0x0
0x0141…0155 lno = 0x00aa // 0x143 @0x2
0x0141…0155 at0004 = ╱8301╱ FOR ╱ // 0x145 @0x4
0x0141…0155 at0006 = ╱58╱X╱ // 0x147 @0x6
0x0141…0155 at0007 = ╱f0╱ := ╱ // 0x148 @0x7
0x0141…0155 at0008 = ╱31╱1╱ // 0x149 @0x8
0x0141…0155 at0009 = ╱f20100╱ // 0x14a @0x9
0x0141…0155 at000c = ╱b737╱ TO ╱ // 0x14d @0xc
0x0141…0155 at000e = ╱38╱8╱ // 0x14f @0xe
0x0141…0155 at000f = ╱f24e00╱ // 0x150 @0xf
0x0141…0155 at0012 = ╱bb╱ DO ╱ // 0x153 @0x12
0x0141…0155 at0013 = EOL // 0x154 @0x13
0x0141…0155 }
0x0155…0180 976e 0180 LET LI$ := LI$ + "-" ; PIL$ := PIL$ + "." ; SP$ := SP$ + " "
0x0155…0180 LineComal80 {
0x0155…0180 ptr = 0x976e // 0x155 @0x0
0x0155…0180 lno = 0x00b4 // 0x157 @0x2
0x0155…0180 at0004 = ╱86╱ LET ╱ // 0x159 @0x4
0x0155…0180 at0005 = ╱4c╱L╱ // 0x15a @0x5
0x0155…0180 at0006 = ╱49╱I╱ // 0x15b @0x6
0x0155…0180 at0007 = ╱ef╱$╱ // 0x15c @0x7
0x0155…0180 at0008 = ╱f0╱ := ╱ // 0x15d @0x8
0x0155…0180 at0009 = ╱4c╱L╱ // 0x15e @0x9
0x0155…0180 at000a = ╱49╱I╱ // 0x15f @0xa
0x0155…0180 at000b = ╱ef╱$╱ // 0x160 @0xb
0x0155…0180 at000c = ╱eb╱ + ╱ // 0x161 @0xc
0x0155…0180 at000d = ╱22╱"╱ // 0x162 @0xd
0x0155…0180 at000e = ╱2d╱-╱ // 0x163 @0xe
0x0155…0180 at000f = ╱22╱"╱ // 0x164 @0xf
0x0155…0180 at0010 = ╱ea╱ ; ╱ // 0x165 @0x10
0x0155…0180 at0011 = ╱50╱P╱ // 0x166 @0x11
0x0155…0180 at0012 = ╱49╱I╱ // 0x167 @0x12
0x0155…0180 at0013 = ╱4c╱L╱ // 0x168 @0x13
0x0155…0180 at0014 = ╱ef╱$╱ // 0x169 @0x14
0x0155…0180 at0015 = ╱f0╱ := ╱ // 0x16a @0x15
0x0155…0180 at0016 = ╱50╱P╱ // 0x16b @0x16
0x0155…0180 at0017 = ╱49╱I╱ // 0x16c @0x17
0x0155…0180 at0018 = ╱4c╱L╱ // 0x16d @0x18
0x0155…0180 at0019 = ╱ef╱$╱ // 0x16e @0x19
0x0155…0180 at001a = ╱eb╱ + ╱ // 0x16f @0x1a
0x0155…0180 at001b = ╱22╱"╱ // 0x170 @0x1b
0x0155…0180 at001c = ╱2e╱.╱ // 0x171 @0x1c
0x0155…0180 at001d = ╱22╱"╱ // 0x172 @0x1d
0x0155…0180 at001e = ╱ea╱ ; ╱ // 0x173 @0x1e
0x0155…0180 at001f = ╱53╱S╱ // 0x174 @0x1f
0x0155…0180 at0020 = ╱50╱P╱ // 0x175 @0x20
0x0155…0180 at0021 = ╱ef╱$╱ // 0x176 @0x21
0x0155…0180 at0022 = ╱f0╱ := ╱ // 0x177 @0x22
0x0155…0180 at0023 = ╱53╱S╱ // 0x178 @0x23
0x0155…0180 at0024 = ╱50╱P╱ // 0x179 @0x24
0x0155…0180 at0025 = ╱ef╱$╱ // 0x17a @0x25
0x0155…0180 at0026 = ╱eb╱ + ╱ // 0x17b @0x26
0x0155…0180 at0027 = ╱22╱"╱ // 0x17c @0x27
0x0155…0180 at0028 = ╱20╱…╱ // 0x17d @0x28
0x0155…0180 at0029 = ╱22╱"╱ // 0x17e @0x29
0x0155…0180 at002a = EOL // 0x17f @0x2a
0x0155…0180 }
0x0180…0187 9775 0190 NEXT X
0x0180…0187 LineComal80 {
0x0180…0187 ptr = 0x9775 // 0x180 @0x0
0x0180…0187 lno = 0x00be // 0x182 @0x2
0x0180…0187 at0004 = ╱84╱ NEXT ╱ // 0x184 @0x4
0x0180…0187 at0005 = ╱58╱X╱ // 0x185 @0x5
0x0180…0187 at0006 = EOL // 0x186 @0x6
0x0180…0187 }
0x0187…01ab 9799 0200 LET F8 := 0 ; G := 0 ; T2 := 2 ; T4 := 0
0x0187…01ab LineComal80 {
0x0187…01ab ptr = 0x9799 // 0x187 @0x0
0x0187…01ab lno = 0x00c8 // 0x189 @0x2
0x0187…01ab at0004 = ╱86╱ LET ╱ // 0x18b @0x4
0x0187…01ab at0005 = ╱46╱F╱ // 0x18c @0x5
0x0187…01ab at0006 = ╱38╱8╱ // 0x18d @0x6
0x0187…01ab at0007 = ╱f0╱ := ╱ // 0x18e @0x7
0x0187…01ab at0008 = ╱30╱0╱ // 0x18f @0x8
0x0187…01ab at0009 = ╱f20000╱ // 0x190 @0x9
0x0187…01ab at000c = ╱ea╱ ; ╱ // 0x193 @0xc
0x0187…01ab at000d = ╱47╱G╱ // 0x194 @0xd
0x0187…01ab at000e = ╱f0╱ := ╱ // 0x195 @0xe
0x0187…01ab at000f = ╱30╱0╱ // 0x196 @0xf
0x0187…01ab at0010 = ╱f20000╱ // 0x197 @0x10
0x0187…01ab at0013 = ╱ea╱ ; ╱ // 0x19a @0x13
0x0187…01ab at0014 = ╱54╱T╱ // 0x19b @0x14
0x0187…01ab at0015 = ╱32╱2╱ // 0x19c @0x15
0x0187…01ab at0016 = ╱f0╱ := ╱ // 0x19d @0x16
0x0187…01ab at0017 = ╱32╱2╱ // 0x19e @0x17
0x0187…01ab at0018 = ╱f20200╱ // 0x19f @0x18
0x0187…01ab at001b = ╱ea╱ ; ╱ // 0x1a2 @0x1b
0x0187…01ab at001c = ╱54╱T╱ // 0x1a3 @0x1c
0x0187…01ab at001d = ╱34╱4╱ // 0x1a4 @0x1d
0x0187…01ab at001e = ╱f0╱ := ╱ // 0x1a5 @0x1e
0x0187…01ab at001f = ╱30╱0╱ // 0x1a6 @0x1f
0x0187…01ab at0020 = ╱f20000╱ // 0x1a7 @0x20
0x0187…01ab at0023 = EOL // 0x1aa @0x23
0x0187…01ab }
0x01ab…01c3 97b1 0210 LET FIL$ := "dde:skatsys"
0x01ab…01c3 LineComal80 {
0x01ab…01c3 ptr = 0x97b1 // 0x1ab @0x0
0x01ab…01c3 lno = 0x00d2 // 0x1ad @0x2
0x01ab…01c3 at0004 = ╱86╱ LET ╱ // 0x1af @0x4
0x01ab…01c3 at0005 = ╱46╱F╱ // 0x1b0 @0x5
0x01ab…01c3 at0006 = ╱49╱I╱ // 0x1b1 @0x6
0x01ab…01c3 at0007 = ╱4c╱L╱ // 0x1b2 @0x7
0x01ab…01c3 at0008 = ╱ef╱$╱ // 0x1b3 @0x8
0x01ab…01c3 at0009 = ╱f0╱ := ╱ // 0x1b4 @0x9
0x01ab…01c3 at000a = ╱22╱"╱ // 0x1b5 @0xa
0x01ab…01c3 at000b = ╱64╱d╱ // 0x1b6 @0xb
0x01ab…01c3 at000c = ╱64╱d╱ // 0x1b7 @0xc
0x01ab…01c3 at000d = ╱65╱e╱ // 0x1b8 @0xd
0x01ab…01c3 at000e = ╱3a╱:╱ // 0x1b9 @0xe
0x01ab…01c3 at000f = ╱73╱s╱ // 0x1ba @0xf
0x01ab…01c3 at0010 = ╱6b╱k╱ // 0x1bb @0x10
0x01ab…01c3 at0011 = ╱61╱a╱ // 0x1bc @0x11
0x01ab…01c3 at0012 = ╱74╱t╱ // 0x1bd @0x12
0x01ab…01c3 at0013 = ╱73╱s╱ // 0x1be @0x13
0x01ab…01c3 at0014 = ╱79╱y╱ // 0x1bf @0x14
0x01ab…01c3 at0015 = ╱73╱s╱ // 0x1c0 @0x15
0x01ab…01c3 at0016 = ╱22╱"╱ // 0x1c1 @0x16
0x01ab…01c3 at0017 = EOL // 0x1c2 @0x17
0x01ab…01c3 }
0x01c3…01cf 97bd 0220 OPEN FIL$,R
0x01c3…01cf LineComal80 {
0x01c3…01cf ptr = 0x97bd // 0x1c3 @0x0
0x01c3…01cf lno = 0x00dc // 0x1c5 @0x2
0x01c3…01cf at0004 = ╱a7╱ OPEN ╱ // 0x1c7 @0x4
0x01c3…01cf at0005 = ╱46╱F╱ // 0x1c8 @0x5
0x01c3…01cf at0006 = ╱49╱I╱ // 0x1c9 @0x6
0x01c3…01cf at0007 = ╱4c╱L╱ // 0x1ca @0x7
0x01c3…01cf at0008 = ╱ef╱$╱ // 0x1cb @0x8
0x01c3…01cf at0009 = ╱ec╱,╱ // 0x1cc @0x9
0x01c3…01cf at000a = ╱52╱R╱ // 0x1cd @0xa
0x01c3…01cf at000b = EOL // 0x1ce @0xb
0x01c3…01cf }
0x01cf…01dd 97cb 0230 GET FIL$ : SYS
0x01cf…01dd LineComal80 {
0x01cf…01dd ptr = 0x97cb // 0x1cf @0x0
0x01cf…01dd lno = 0x00e6 // 0x1d1 @0x2
0x01cf…01dd at0004 = ╱a9╱ GET ╱ // 0x1d3 @0x4
0x01cf…01dd at0005 = ╱46╱F╱ // 0x1d4 @0x5
0x01cf…01dd at0006 = ╱49╱I╱ // 0x1d5 @0x6
0x01cf…01dd at0007 = ╱4c╱L╱ // 0x1d6 @0x7
0x01cf…01dd at0008 = ╱ef╱$╱ // 0x1d7 @0x8
0x01cf…01dd at0009 = ╱f1╱ : ╱ // 0x1d8 @0x9
0x01cf…01dd at000a = ╱53╱S╱ // 0x1d9 @0xa
0x01cf…01dd at000b = ╱59╱Y╱ // 0x1da @0xb
0x01cf…01dd at000c = ╱53╱S╱ // 0x1db @0xc
0x01cf…01dd at000d = EOL // 0x1dc @0xd
0x01cf…01dd }
0x01dd…01e7 97d5 0240 CLOSE FIL$
0x01dd…01e7 LineComal80 {
0x01dd…01e7 ptr = 0x97d5 // 0x1dd @0x0
0x01dd…01e7 lno = 0x00f0 // 0x1df @0x2
0x01dd…01e7 at0004 = ╱a8╱ CLOSE ╱ // 0x1e1 @0x4
0x01dd…01e7 at0005 = ╱46╱F╱ // 0x1e2 @0x5
0x01dd…01e7 at0006 = ╱49╱I╱ // 0x1e3 @0x6
0x01dd…01e7 at0007 = ╱4c╱L╱ // 0x1e4 @0x7
0x01dd…01e7 at0008 = ╱ef╱$╱ // 0x1e5 @0x8
0x01dd…01e7 at0009 = EOL // 0x1e6 @0x9
0x01dd…01e7 }
0x01e7…01f3 97e1 0250 OPEN FIL$,W
0x01e7…01f3 LineComal80 {
0x01e7…01f3 ptr = 0x97e1 // 0x1e7 @0x0
0x01e7…01f3 lno = 0x00fa // 0x1e9 @0x2
0x01e7…01f3 at0004 = ╱a7╱ OPEN ╱ // 0x1eb @0x4
0x01e7…01f3 at0005 = ╱46╱F╱ // 0x1ec @0x5
0x01e7…01f3 at0006 = ╱49╱I╱ // 0x1ed @0x6
0x01e7…01f3 at0007 = ╱4c╱L╱ // 0x1ee @0x7
0x01e7…01f3 at0008 = ╱ef╱$╱ // 0x1ef @0x8
0x01e7…01f3 at0009 = ╱ec╱,╱ // 0x1f0 @0x9
0x01e7…01f3 at000a = ╱57╱W╱ // 0x1f1 @0xa
0x01e7…01f3 at000b = EOL // 0x1f2 @0xb
0x01e7…01f3 }
0x01f3…0201 97ef 0260 LET SYS := 1
0x01f3…0201 LineComal80 {
0x01f3…0201 ptr = 0x97ef // 0x1f3 @0x0
0x01f3…0201 lno = 0x0104 // 0x1f5 @0x2
0x01f3…0201 at0004 = ╱86╱ LET ╱ // 0x1f7 @0x4
0x01f3…0201 at0005 = ╱53╱S╱ // 0x1f8 @0x5
0x01f3…0201 at0006 = ╱59╱Y╱ // 0x1f9 @0x6
0x01f3…0201 at0007 = ╱53╱S╱ // 0x1fa @0x7
0x01f3…0201 at0008 = ╱f0╱ := ╱ // 0x1fb @0x8
0x01f3…0201 at0009 = ╱31╱1╱ // 0x1fc @0x9
0x01f3…0201 at000a = ╱f20100╱ // 0x1fd @0xa
0x01f3…0201 at000d = EOL // 0x200 @0xd
0x01f3…0201 }
0x0201…020f 97fd 0270 PUT FIL$ : SYS
0x0201…020f LineComal80 {
0x0201…020f ptr = 0x97fd // 0x201 @0x0
0x0201…020f lno = 0x010e // 0x203 @0x2
0x0201…020f at0004 = ╱aa╱ PUT ╱ // 0x205 @0x4
0x0201…020f at0005 = ╱46╱F╱ // 0x206 @0x5
0x0201…020f at0006 = ╱49╱I╱ // 0x207 @0x6
0x0201…020f at0007 = ╱4c╱L╱ // 0x208 @0x7
0x0201…020f at0008 = ╱ef╱$╱ // 0x209 @0x8
0x0201…020f at0009 = ╱f1╱ : ╱ // 0x20a @0x9
0x0201…020f at000a = ╱53╱S╱ // 0x20b @0xa
0x0201…020f at000b = ╱59╱Y╱ // 0x20c @0xb
0x0201…020f at000c = ╱53╱S╱ // 0x20d @0xc
0x0201…020f at000d = EOL // 0x20e @0xd
0x0201…020f }
0x020f…0219 9807 0280 CLOSE FIL$
0x020f…0219 LineComal80 {
0x020f…0219 ptr = 0x9807 // 0x20f @0x0
0x020f…0219 lno = 0x0118 // 0x211 @0x2
0x020f…0219 at0004 = ╱a8╱ CLOSE ╱ // 0x213 @0x4
0x020f…0219 at0005 = ╱46╱F╱ // 0x214 @0x5
0x020f…0219 at0006 = ╱49╱I╱ // 0x215 @0x6
0x020f…0219 at0007 = ╱4c╱L╱ // 0x216 @0x7
0x020f…0219 at0008 = ╱ef╱$╱ // 0x217 @0x8
0x020f…0219 at0009 = EOL // 0x218 @0x9
0x020f…0219 }
0x0219…0230 981e 0290 LET FIL$ := "dde:hskvar"
0x0219…0230 LineComal80 {
0x0219…0230 ptr = 0x981e // 0x219 @0x0
0x0219…0230 lno = 0x0122 // 0x21b @0x2
0x0219…0230 at0004 = ╱86╱ LET ╱ // 0x21d @0x4
0x0219…0230 at0005 = ╱46╱F╱ // 0x21e @0x5
0x0219…0230 at0006 = ╱49╱I╱ // 0x21f @0x6
0x0219…0230 at0007 = ╱4c╱L╱ // 0x220 @0x7
0x0219…0230 at0008 = ╱ef╱$╱ // 0x221 @0x8
0x0219…0230 at0009 = ╱f0╱ := ╱ // 0x222 @0x9
0x0219…0230 at000a = ╱22╱"╱ // 0x223 @0xa
0x0219…0230 at000b = ╱64╱d╱ // 0x224 @0xb
0x0219…0230 at000c = ╱64╱d╱ // 0x225 @0xc
0x0219…0230 at000d = ╱65╱e╱ // 0x226 @0xd
0x0219…0230 at000e = ╱3a╱:╱ // 0x227 @0xe
0x0219…0230 at000f = ╱68╱h╱ // 0x228 @0xf
0x0219…0230 at0010 = ╱73╱s╱ // 0x229 @0x10
0x0219…0230 at0011 = ╱6b╱k╱ // 0x22a @0x11
0x0219…0230 at0012 = ╱76╱v╱ // 0x22b @0x12
0x0219…0230 at0013 = ╱61╱a╱ // 0x22c @0x13
0x0219…0230 at0014 = ╱72╱r╱ // 0x22d @0x14
0x0219…0230 at0015 = ╱22╱"╱ // 0x22e @0x15
0x0219…0230 at0016 = EOL // 0x22f @0x16
0x0219…0230 }
0x0230…023c 982a 0300 OPEN FIL$,R
0x0230…023c LineComal80 {
0x0230…023c ptr = 0x982a // 0x230 @0x0
0x0230…023c lno = 0x012c // 0x232 @0x2
0x0230…023c at0004 = ╱a7╱ OPEN ╱ // 0x234 @0x4
0x0230…023c at0005 = ╱46╱F╱ // 0x235 @0x5
0x0230…023c at0006 = ╱49╱I╱ // 0x236 @0x6
0x0230…023c at0007 = ╱4c╱L╱ // 0x237 @0x7
0x0230…023c at0008 = ╱ef╱$╱ // 0x238 @0x8
0x0230…023c at0009 = ╱ec╱,╱ // 0x239 @0x9
0x0230…023c at000a = ╱52╱R╱ // 0x23a @0xa
0x0230…023c at000b = EOL // 0x23b @0xb
0x0230…023c }
0x023c…0250 983e 0310 FOR X := 1 TO 9 DO
0x023c…0250 LineComal80 {
0x023c…0250 ptr = 0x983e // 0x23c @0x0
0x023c…0250 lno = 0x0136 // 0x23e @0x2
0x023c…0250 at0004 = ╱8302╱ FOR ╱ // 0x240 @0x4
0x023c…0250 at0006 = ╱58╱X╱ // 0x242 @0x6
0x023c…0250 at0007 = ╱f0╱ := ╱ // 0x243 @0x7
0x023c…0250 at0008 = ╱31╱1╱ // 0x244 @0x8
0x023c…0250 at0009 = ╱f20100╱ // 0x245 @0x9
0x023c…0250 at000c = ╱b732╱ TO ╱ // 0x248 @0xc
0x023c…0250 at000e = ╱39╱9╱ // 0x24a @0xe
0x023c…0250 at000f = ╱f21d00╱ // 0x24b @0xf
0x023c…0250 at0012 = ╱bb╱ DO ╱ // 0x24e @0x12
0x023c…0250 at0013 = EOL // 0x24f @0x13
0x023c…0250 }
0x0250…025f 984d 0320 GET FIL$ : A(X)
0x0250…025f LineComal80 {
0x0250…025f ptr = 0x984d // 0x250 @0x0
0x0250…025f lno = 0x0140 // 0x252 @0x2
0x0250…025f at0004 = ╱a9╱ GET ╱ // 0x254 @0x4
0x0250…025f at0005 = ╱46╱F╱ // 0x255 @0x5
0x0250…025f at0006 = ╱49╱I╱ // 0x256 @0x6
0x0250…025f at0007 = ╱4c╱L╱ // 0x257 @0x7
0x0250…025f at0008 = ╱ef╱$╱ // 0x258 @0x8
0x0250…025f at0009 = ╱f1╱ : ╱ // 0x259 @0x9
0x0250…025f at000a = ╱41╱A╱ // 0x25a @0xa
0x0250…025f at000b = ╱ed╱(╱ // 0x25b @0xb
0x0250…025f at000c = ╱58╱X╱ // 0x25c @0xc
0x0250…025f at000d = ╱ee╱)╱ // 0x25d @0xd
0x0250…025f at000e = EOL // 0x25e @0xe
0x0250…025f }
0x025f…027d 986b 0330 IF X < 24 THEN GET FIL$ : H(X),K(X)
0x025f…027d LineComal80 {
0x025f…027d ptr = 0x986b // 0x25f @0x0
0x025f…027d lno = 0x014a // 0x261 @0x2
0x025f…027d at0004 = ╱8200╱ IF ╱ // 0x263 @0x4
0x025f…027d at0006 = ╱58╱X╱ // 0x265 @0x6
0x025f…027d at0007 = ╱e0╱ < ╱ // 0x266 @0x7
0x025f…027d at0008 = ╱32╱2╱ // 0x267 @0x8
0x025f…027d at0009 = ╱34╱4╱ // 0x268 @0x9
0x025f…027d at000a = ╱f21800╱ // 0x269 @0xa
0x025f…027d at000d = ╱b5╱ THEN ╱ // 0x26c @0xd
0x025f…027d at000e = ╱a9╱ GET ╱ // 0x26d @0xe
0x025f…027d at000f = ╱46╱F╱ // 0x26e @0xf
0x025f…027d at0010 = ╱49╱I╱ // 0x26f @0x10
0x025f…027d at0011 = ╱4c╱L╱ // 0x270 @0x11
0x025f…027d at0012 = ╱ef╱$╱ // 0x271 @0x12
0x025f…027d at0013 = ╱f1╱ : ╱ // 0x272 @0x13
0x025f…027d at0014 = ╱48╱H╱ // 0x273 @0x14
0x025f…027d at0015 = ╱ed╱(╱ // 0x274 @0x15
0x025f…027d at0016 = ╱58╱X╱ // 0x275 @0x16
0x025f…027d at0017 = ╱ee╱)╱ // 0x276 @0x17
0x025f…027d at0018 = ╱ec╱,╱ // 0x277 @0x18
0x025f…027d at0019 = ╱4b╱K╱ // 0x278 @0x19
0x025f…027d at001a = ╱ed╱(╱ // 0x279 @0x1a
0x025f…027d at001b = ╱58╱X╱ // 0x27a @0x1b
0x025f…027d at001c = ╱ee╱)╱ // 0x27b @0x1c
0x025f…027d at001d = EOL // 0x27c @0x1d
0x025f…027d }
0x027d…0284 9872 0340 NEXT X
0x027d…0284 LineComal80 {
0x027d…0284 ptr = 0x9872 // 0x27d @0x0
0x027d…0284 lno = 0x0154 // 0x27f @0x2
0x027d…0284 at0004 = ╱84╱ NEXT ╱ // 0x281 @0x4
0x027d…0284 at0005 = ╱58╱X╱ // 0x282 @0x5
0x027d…0284 at0006 = EOL // 0x283 @0x6
0x027d…0284 }
0x0284…029a 9888 0350 GET FIL$ : F8,T1,T2,T4
0x0284…029a LineComal80 {
0x0284…029a ptr = 0x9888 // 0x284 @0x0
0x0284…029a lno = 0x015e // 0x286 @0x2
0x0284…029a at0004 = ╱a9╱ GET ╱ // 0x288 @0x4
0x0284…029a at0005 = ╱46╱F╱ // 0x289 @0x5
0x0284…029a at0006 = ╱49╱I╱ // 0x28a @0x6
0x0284…029a at0007 = ╱4c╱L╱ // 0x28b @0x7
0x0284…029a at0008 = ╱ef╱$╱ // 0x28c @0x8
0x0284…029a at0009 = ╱f1╱ : ╱ // 0x28d @0x9
0x0284…029a at000a = ╱46╱F╱ // 0x28e @0xa
0x0284…029a at000b = ╱38╱8╱ // 0x28f @0xb
0x0284…029a at000c = ╱ec╱,╱ // 0x290 @0xc
0x0284…029a at000d = ╱54╱T╱ // 0x291 @0xd
0x0284…029a at000e = ╱31╱1╱ // 0x292 @0xe
0x0284…029a at000f = ╱ec╱,╱ // 0x293 @0xf
0x0284…029a at0010 = ╱54╱T╱ // 0x294 @0x10
0x0284…029a at0011 = ╱32╱2╱ // 0x295 @0x11
0x0284…029a at0012 = ╱ec╱,╱ // 0x296 @0x12
0x0284…029a at0013 = ╱54╱T╱ // 0x297 @0x13
0x0284…029a at0014 = ╱34╱4╱ // 0x298 @0x14
0x0284…029a at0015 = EOL // 0x299 @0x15
0x0284…029a }
0x029a…02a4 9892 0360 CLOSE FIL$
0x029a…02a4 LineComal80 {
0x029a…02a4 ptr = 0x9892 // 0x29a @0x0
0x029a…02a4 lno = 0x0168 // 0x29c @0x2
0x029a…02a4 at0004 = ╱a8╱ CLOSE ╱ // 0x29e @0x4
0x029a…02a4 at0005 = ╱46╱F╱ // 0x29f @0x5
0x029a…02a4 at0006 = ╱49╱I╱ // 0x2a0 @0x6
0x029a…02a4 at0007 = ╱4c╱L╱ // 0x2a1 @0x7
0x029a…02a4 at0008 = ╱ef╱$╱ // 0x2a2 @0x8
0x029a…02a4 at0009 = EOL // 0x2a3 @0x9
0x029a…02a4 }
0x02a4…02b9 98a7 0370 LET FIL$ := "dde:fvar"
0x02a4…02b9 LineComal80 {
0x02a4…02b9 ptr = 0x98a7 // 0x2a4 @0x0
0x02a4…02b9 lno = 0x0172 // 0x2a6 @0x2
0x02a4…02b9 at0004 = ╱86╱ LET ╱ // 0x2a8 @0x4
0x02a4…02b9 at0005 = ╱46╱F╱ // 0x2a9 @0x5
0x02a4…02b9 at0006 = ╱49╱I╱ // 0x2aa @0x6
0x02a4…02b9 at0007 = ╱4c╱L╱ // 0x2ab @0x7
0x02a4…02b9 at0008 = ╱ef╱$╱ // 0x2ac @0x8
0x02a4…02b9 at0009 = ╱f0╱ := ╱ // 0x2ad @0x9
0x02a4…02b9 at000a = ╱22╱"╱ // 0x2ae @0xa
0x02a4…02b9 at000b = ╱64╱d╱ // 0x2af @0xb
0x02a4…02b9 at000c = ╱64╱d╱ // 0x2b0 @0xc
0x02a4…02b9 at000d = ╱65╱e╱ // 0x2b1 @0xd
0x02a4…02b9 at000e = ╱3a╱:╱ // 0x2b2 @0xe
0x02a4…02b9 at000f = ╱66╱f╱ // 0x2b3 @0xf
0x02a4…02b9 at0010 = ╱76╱v╱ // 0x2b4 @0x10
0x02a4…02b9 at0011 = ╱61╱a╱ // 0x2b5 @0x11
0x02a4…02b9 at0012 = ╱72╱r╱ // 0x2b6 @0x12
0x02a4…02b9 at0013 = ╱22╱"╱ // 0x2b7 @0x13
0x02a4…02b9 at0014 = EOL // 0x2b8 @0x14
0x02a4…02b9 }
0x02b9…02c5 98b3 0380 OPEN FIL$,R
0x02b9…02c5 LineComal80 {
0x02b9…02c5 ptr = 0x98b3 // 0x2b9 @0x0
0x02b9…02c5 lno = 0x017c // 0x2bb @0x2
0x02b9…02c5 at0004 = ╱a7╱ OPEN ╱ // 0x2bd @0x4
0x02b9…02c5 at0005 = ╱46╱F╱ // 0x2be @0x5
0x02b9…02c5 at0006 = ╱49╱I╱ // 0x2bf @0x6
0x02b9…02c5 at0007 = ╱4c╱L╱ // 0x2c0 @0x7
0x02b9…02c5 at0008 = ╱ef╱$╱ // 0x2c1 @0x8
0x02b9…02c5 at0009 = ╱ec╱,╱ // 0x2c2 @0x9
0x02b9…02c5 at000a = ╱52╱R╱ // 0x2c3 @0xa
0x02b9…02c5 at000b = EOL // 0x2c4 @0xb
0x02b9…02c5 }
0x02c5…02ec 98da 0390 GET FIL$ : PR,C4,HD6,C9,B0,T1,TKH,F6,F1
0x02c5…02ec LineComal80 {
0x02c5…02ec ptr = 0x98da // 0x2c5 @0x0
0x02c5…02ec lno = 0x0186 // 0x2c7 @0x2
0x02c5…02ec at0004 = ╱a9╱ GET ╱ // 0x2c9 @0x4
0x02c5…02ec at0005 = ╱46╱F╱ // 0x2ca @0x5
0x02c5…02ec at0006 = ╱49╱I╱ // 0x2cb @0x6
0x02c5…02ec at0007 = ╱4c╱L╱ // 0x2cc @0x7
0x02c5…02ec at0008 = ╱ef╱$╱ // 0x2cd @0x8
0x02c5…02ec at0009 = ╱f1╱ : ╱ // 0x2ce @0x9
0x02c5…02ec at000a = ╱50╱P╱ // 0x2cf @0xa
0x02c5…02ec at000b = ╱52╱R╱ // 0x2d0 @0xb
0x02c5…02ec at000c = ╱ec╱,╱ // 0x2d1 @0xc
0x02c5…02ec at000d = ╱43╱C╱ // 0x2d2 @0xd
0x02c5…02ec at000e = ╱34╱4╱ // 0x2d3 @0xe
0x02c5…02ec at000f = ╱ec╱,╱ // 0x2d4 @0xf
0x02c5…02ec at0010 = ╱48╱H╱ // 0x2d5 @0x10
0x02c5…02ec at0011 = ╱44╱D╱ // 0x2d6 @0x11
0x02c5…02ec at0012 = ╱36╱6╱ // 0x2d7 @0x12
0x02c5…02ec at0013 = ╱ec╱,╱ // 0x2d8 @0x13
0x02c5…02ec at0014 = ╱43╱C╱ // 0x2d9 @0x14
0x02c5…02ec at0015 = ╱39╱9╱ // 0x2da @0x15
0x02c5…02ec at0016 = ╱ec╱,╱ // 0x2db @0x16
0x02c5…02ec at0017 = ╱42╱B╱ // 0x2dc @0x17
0x02c5…02ec at0018 = ╱30╱0╱ // 0x2dd @0x18
0x02c5…02ec at0019 = ╱ec╱,╱ // 0x2de @0x19
0x02c5…02ec at001a = ╱54╱T╱ // 0x2df @0x1a
0x02c5…02ec at001b = ╱31╱1╱ // 0x2e0 @0x1b
0x02c5…02ec at001c = ╱ec╱,╱ // 0x2e1 @0x1c
0x02c5…02ec at001d = ╱54╱T╱ // 0x2e2 @0x1d
0x02c5…02ec at001e = ╱4b╱K╱ // 0x2e3 @0x1e
0x02c5…02ec at001f = ╱48╱H╱ // 0x2e4 @0x1f
0x02c5…02ec at0020 = ╱ec╱,╱ // 0x2e5 @0x20
0x02c5…02ec at0021 = ╱46╱F╱ // 0x2e6 @0x21
0x02c5…02ec at0022 = ╱36╱6╱ // 0x2e7 @0x22
0x02c5…02ec at0023 = ╱ec╱,╱ // 0x2e8 @0x23
0x02c5…02ec at0024 = ╱46╱F╱ // 0x2e9 @0x24
0x02c5…02ec at0025 = ╱31╱1╱ // 0x2ea @0x25
0x02c5…02ec at0026 = EOL // 0x2eb @0x26
0x02c5…02ec }
0x02ec…0311 98ff 0400 GET FIL$ : F9,P1,P7,P8,P9,T0,B2,B1,B9
0x02ec…0311 LineComal80 {
0x02ec…0311 ptr = 0x98ff // 0x2ec @0x0
0x02ec…0311 lno = 0x0190 // 0x2ee @0x2
0x02ec…0311 at0004 = ╱a9╱ GET ╱ // 0x2f0 @0x4
0x02ec…0311 at0005 = ╱46╱F╱ // 0x2f1 @0x5
0x02ec…0311 at0006 = ╱49╱I╱ // 0x2f2 @0x6
0x02ec…0311 at0007 = ╱4c╱L╱ // 0x2f3 @0x7
0x02ec…0311 at0008 = ╱ef╱$╱ // 0x2f4 @0x8
0x02ec…0311 at0009 = ╱f1╱ : ╱ // 0x2f5 @0x9
0x02ec…0311 at000a = ╱46╱F╱ // 0x2f6 @0xa
0x02ec…0311 at000b = ╱39╱9╱ // 0x2f7 @0xb
0x02ec…0311 at000c = ╱ec╱,╱ // 0x2f8 @0xc
0x02ec…0311 at000d = ╱50╱P╱ // 0x2f9 @0xd
0x02ec…0311 at000e = ╱31╱1╱ // 0x2fa @0xe
0x02ec…0311 at000f = ╱ec╱,╱ // 0x2fb @0xf
0x02ec…0311 at0010 = ╱50╱P╱ // 0x2fc @0x10
0x02ec…0311 at0011 = ╱37╱7╱ // 0x2fd @0x11
0x02ec…0311 at0012 = ╱ec╱,╱ // 0x2fe @0x12
0x02ec…0311 at0013 = ╱50╱P╱ // 0x2ff @0x13
0x02ec…0311 at0014 = ╱38╱8╱ // 0x300 @0x14
0x02ec…0311 at0015 = ╱ec╱,╱ // 0x301 @0x15
0x02ec…0311 at0016 = ╱50╱P╱ // 0x302 @0x16
0x02ec…0311 at0017 = ╱39╱9╱ // 0x303 @0x17
0x02ec…0311 at0018 = ╱ec╱,╱ // 0x304 @0x18
0x02ec…0311 at0019 = ╱54╱T╱ // 0x305 @0x19
0x02ec…0311 at001a = ╱30╱0╱ // 0x306 @0x1a
0x02ec…0311 at001b = ╱ec╱,╱ // 0x307 @0x1b
0x02ec…0311 at001c = ╱42╱B╱ // 0x308 @0x1c
0x02ec…0311 at001d = ╱32╱2╱ // 0x309 @0x1d
0x02ec…0311 at001e = ╱ec╱,╱ // 0x30a @0x1e
0x02ec…0311 at001f = ╱42╱B╱ // 0x30b @0x1f
0x02ec…0311 at0020 = ╱31╱1╱ // 0x30c @0x20
0x02ec…0311 at0021 = ╱ec╱,╱ // 0x30d @0x21
0x02ec…0311 at0022 = ╱42╱B╱ // 0x30e @0x22
0x02ec…0311 at0023 = ╱39╱9╱ // 0x30f @0x23
0x02ec…0311 at0024 = EOL // 0x310 @0x24
0x02ec…0311 }
0x0311…0338 9926 0410 GET FIL$ : T2,C6,BD6,C0,B3,E6,F2,T3,TKB
0x0311…0338 LineComal80 {
0x0311…0338 ptr = 0x9926 // 0x311 @0x0
0x0311…0338 lno = 0x019a // 0x313 @0x2
0x0311…0338 at0004 = ╱a9╱ GET ╱ // 0x315 @0x4
0x0311…0338 at0005 = ╱46╱F╱ // 0x316 @0x5
0x0311…0338 at0006 = ╱49╱I╱ // 0x317 @0x6
0x0311…0338 at0007 = ╱4c╱L╱ // 0x318 @0x7
0x0311…0338 at0008 = ╱ef╱$╱ // 0x319 @0x8
0x0311…0338 at0009 = ╱f1╱ : ╱ // 0x31a @0x9
0x0311…0338 at000a = ╱54╱T╱ // 0x31b @0xa
0x0311…0338 at000b = ╱32╱2╱ // 0x31c @0xb
0x0311…0338 at000c = ╱ec╱,╱ // 0x31d @0xc
0x0311…0338 at000d = ╱43╱C╱ // 0x31e @0xd
0x0311…0338 at000e = ╱36╱6╱ // 0x31f @0xe
0x0311…0338 at000f = ╱ec╱,╱ // 0x320 @0xf
0x0311…0338 at0010 = ╱42╱B╱ // 0x321 @0x10
0x0311…0338 at0011 = ╱44╱D╱ // 0x322 @0x11
0x0311…0338 at0012 = ╱36╱6╱ // 0x323 @0x12
0x0311…0338 at0013 = ╱ec╱,╱ // 0x324 @0x13
0x0311…0338 at0014 = ╱43╱C╱ // 0x325 @0x14
0x0311…0338 at0015 = ╱30╱0╱ // 0x326 @0x15
0x0311…0338 at0016 = ╱ec╱,╱ // 0x327 @0x16
0x0311…0338 at0017 = ╱42╱B╱ // 0x328 @0x17
0x0311…0338 at0018 = ╱33╱3╱ // 0x329 @0x18
0x0311…0338 at0019 = ╱ec╱,╱ // 0x32a @0x19
0x0311…0338 at001a = ╱45╱E╱ // 0x32b @0x1a
0x0311…0338 at001b = ╱36╱6╱ // 0x32c @0x1b
0x0311…0338 at001c = ╱ec╱,╱ // 0x32d @0x1c
0x0311…0338 at001d = ╱46╱F╱ // 0x32e @0x1d
0x0311…0338 at001e = ╱32╱2╱ // 0x32f @0x1e
0x0311…0338 at001f = ╱ec╱,╱ // 0x330 @0x1f
0x0311…0338 at0020 = ╱54╱T╱ // 0x331 @0x20
0x0311…0338 at0021 = ╱33╱3╱ // 0x332 @0x21
0x0311…0338 at0022 = ╱ec╱,╱ // 0x333 @0x22
0x0311…0338 at0023 = ╱54╱T╱ // 0x334 @0x23
0x0311…0338 at0024 = ╱4b╱K╱ // 0x335 @0x24
0x0311…0338 at0025 = ╱42╱B╱ // 0x336 @0x25
0x0311…0338 at0026 = EOL // 0x337 @0x26
0x0311…0338 }
0x0338…0359 9947 0420 GET FIL$ : F0,F7,SKG,AKT,D6,GSLUT
0x0338…0359 LineComal80 {
0x0338…0359 ptr = 0x9947 // 0x338 @0x0
0x0338…0359 lno = 0x01a4 // 0x33a @0x2
0x0338…0359 at0004 = ╱a9╱ GET ╱ // 0x33c @0x4
0x0338…0359 at0005 = ╱46╱F╱ // 0x33d @0x5
0x0338…0359 at0006 = ╱49╱I╱ // 0x33e @0x6
0x0338…0359 at0007 = ╱4c╱L╱ // 0x33f @0x7
0x0338…0359 at0008 = ╱ef╱$╱ // 0x340 @0x8
0x0338…0359 at0009 = ╱f1╱ : ╱ // 0x341 @0x9
0x0338…0359 at000a = ╱46╱F╱ // 0x342 @0xa
0x0338…0359 at000b = ╱30╱0╱ // 0x343 @0xb
0x0338…0359 at000c = ╱ec╱,╱ // 0x344 @0xc
0x0338…0359 at000d = ╱46╱F╱ // 0x345 @0xd
0x0338…0359 at000e = ╱37╱7╱ // 0x346 @0xe
0x0338…0359 at000f = ╱ec╱,╱ // 0x347 @0xf
0x0338…0359 at0010 = ╱53╱S╱ // 0x348 @0x10
0x0338…0359 at0011 = ╱4b╱K╱ // 0x349 @0x11
0x0338…0359 at0012 = ╱47╱G╱ // 0x34a @0x12
0x0338…0359 at0013 = ╱ec╱,╱ // 0x34b @0x13
0x0338…0359 at0014 = ╱41╱A╱ // 0x34c @0x14
0x0338…0359 at0015 = ╱4b╱K╱ // 0x34d @0x15
0x0338…0359 at0016 = ╱54╱T╱ // 0x34e @0x16
0x0338…0359 at0017 = ╱ec╱,╱ // 0x34f @0x17
0x0338…0359 at0018 = ╱44╱D╱ // 0x350 @0x18
0x0338…0359 at0019 = ╱36╱6╱ // 0x351 @0x19
0x0338…0359 at001a = ╱ec╱,╱ // 0x352 @0x1a
0x0338…0359 at001b = ╱47╱G╱ // 0x353 @0x1b
0x0338…0359 at001c = ╱53╱S╱ // 0x354 @0x1c
0x0338…0359 at001d = ╱4c╱L╱ // 0x355 @0x1d
0x0338…0359 at001e = ╱55╱U╱ // 0x356 @0x1e
0x0338…0359 at001f = ╱54╱T╱ // 0x357 @0x1f
0x0338…0359 at0020 = EOL // 0x358 @0x20
0x0338…0359 }
0x0359…0385 9973 0430 GET FIL$ : HFORMUE,BFORMUE,HATP,BATP,G,FSLUT
0x0359…0385 LineComal80 {
0x0359…0385 ptr = 0x9973 // 0x359 @0x0
0x0359…0385 lno = 0x01ae // 0x35b @0x2
0x0359…0385 at0004 = ╱a9╱ GET ╱ // 0x35d @0x4
0x0359…0385 at0005 = ╱46╱F╱ // 0x35e @0x5
0x0359…0385 at0006 = ╱49╱I╱ // 0x35f @0x6
0x0359…0385 at0007 = ╱4c╱L╱ // 0x360 @0x7
0x0359…0385 at0008 = ╱ef╱$╱ // 0x361 @0x8
0x0359…0385 at0009 = ╱f1╱ : ╱ // 0x362 @0x9
0x0359…0385 at000a = ╱48╱H╱ // 0x363 @0xa
0x0359…0385 at000b = ╱46╱F╱ // 0x364 @0xb
0x0359…0385 at000c = ╱4f╱O╱ // 0x365 @0xc
0x0359…0385 at000d = ╱52╱R╱ // 0x366 @0xd
0x0359…0385 at000e = ╱4d╱M╱ // 0x367 @0xe
0x0359…0385 at000f = ╱55╱U╱ // 0x368 @0xf
0x0359…0385 at0010 = ╱45╱E╱ // 0x369 @0x10
0x0359…0385 at0011 = ╱ec╱,╱ // 0x36a @0x11
0x0359…0385 at0012 = ╱42╱B╱ // 0x36b @0x12
0x0359…0385 at0013 = ╱46╱F╱ // 0x36c @0x13
0x0359…0385 at0014 = ╱4f╱O╱ // 0x36d @0x14
0x0359…0385 at0015 = ╱52╱R╱ // 0x36e @0x15
0x0359…0385 at0016 = ╱4d╱M╱ // 0x36f @0x16
0x0359…0385 at0017 = ╱55╱U╱ // 0x370 @0x17
0x0359…0385 at0018 = ╱45╱E╱ // 0x371 @0x18
0x0359…0385 at0019 = ╱ec╱,╱ // 0x372 @0x19
0x0359…0385 at001a = ╱48╱H╱ // 0x373 @0x1a
0x0359…0385 at001b = ╱41╱A╱ // 0x374 @0x1b
0x0359…0385 at001c = ╱54╱T╱ // 0x375 @0x1c
0x0359…0385 at001d = ╱50╱P╱ // 0x376 @0x1d
0x0359…0385 at001e = ╱ec╱,╱ // 0x377 @0x1e
0x0359…0385 at001f = ╱42╱B╱ // 0x378 @0x1f
0x0359…0385 at0020 = ╱41╱A╱ // 0x379 @0x20
0x0359…0385 at0021 = ╱54╱T╱ // 0x37a @0x21
0x0359…0385 at0022 = ╱50╱P╱ // 0x37b @0x22
0x0359…0385 at0023 = ╱ec╱,╱ // 0x37c @0x23
0x0359…0385 at0024 = ╱47╱G╱ // 0x37d @0x24
0x0359…0385 at0025 = ╱ec╱,╱ // 0x37e @0x25
0x0359…0385 at0026 = ╱46╱F╱ // 0x37f @0x26
0x0359…0385 at0027 = ╱53╱S╱ // 0x380 @0x27
0x0359…0385 at0028 = ╱4c╱L╱ // 0x381 @0x28
0x0359…0385 at0029 = ╱55╱U╱ // 0x382 @0x29
0x0359…0385 at002a = ╱54╱T╱ // 0x383 @0x2a
0x0359…0385 at002b = EOL // 0x384 @0x2b
0x0359…0385 }
0x0385…0399 9987 0440 GET FIL$ : HKL$,BKL$
0x0385…0399 LineComal80 {
0x0385…0399 ptr = 0x9987 // 0x385 @0x0
0x0385…0399 lno = 0x01b8 // 0x387 @0x2
0x0385…0399 at0004 = ╱a9╱ GET ╱ // 0x389 @0x4
0x0385…0399 at0005 = ╱46╱F╱ // 0x38a @0x5
0x0385…0399 at0006 = ╱49╱I╱ // 0x38b @0x6
0x0385…0399 at0007 = ╱4c╱L╱ // 0x38c @0x7
0x0385…0399 at0008 = ╱ef╱$╱ // 0x38d @0x8
0x0385…0399 at0009 = ╱f1╱ : ╱ // 0x38e @0x9
0x0385…0399 at000a = ╱48╱H╱ // 0x38f @0xa
0x0385…0399 at000b = ╱4b╱K╱ // 0x390 @0xb
0x0385…0399 at000c = ╱4c╱L╱ // 0x391 @0xc
0x0385…0399 at000d = ╱ef╱$╱ // 0x392 @0xd
0x0385…0399 at000e = ╱ec╱,╱ // 0x393 @0xe
0x0385…0399 at000f = ╱42╱B╱ // 0x394 @0xf
0x0385…0399 at0010 = ╱4b╱K╱ // 0x395 @0x10
0x0385…0399 at0011 = ╱4c╱L╱ // 0x396 @0x11
0x0385…0399 at0012 = ╱ef╱$╱ // 0x397 @0x12
0x0385…0399 at0013 = EOL // 0x398 @0x13
0x0385…0399 }
0x0399…03a3 9991 0450 CLOSE FIL$
0x0399…03a3 LineComal80 {
0x0399…03a3 ptr = 0x9991 // 0x399 @0x0
0x0399…03a3 lno = 0x01c2 // 0x39b @0x2
0x0399…03a3 at0004 = ╱a8╱ CLOSE ╱ // 0x39d @0x4
0x0399…03a3 at0005 = ╱46╱F╱ // 0x39e @0x5
0x0399…03a3 at0006 = ╱49╱I╱ // 0x39f @0x6
0x0399…03a3 at0007 = ╱4c╱L╱ // 0x3a0 @0x7
0x0399…03a3 at0008 = ╱ef╱$╱ // 0x3a1 @0x8
0x0399…03a3 at0009 = EOL // 0x3a2 @0x9
0x0399…03a3 }
0x03a3…03af 999d 0460 LET X := 0
0x03a3…03af LineComal80 {
0x03a3…03af ptr = 0x999d // 0x3a3 @0x0
0x03a3…03af lno = 0x01cc // 0x3a5 @0x2
0x03a3…03af at0004 = ╱86╱ LET ╱ // 0x3a7 @0x4
0x03a3…03af at0005 = ╱58╱X╱ // 0x3a8 @0x5
0x03a3…03af at0006 = ╱f0╱ := ╱ // 0x3a9 @0x6
0x03a3…03af at0007 = ╱30╱0╱ // 0x3aa @0x7
0x03a3…03af at0008 = ╱f20000╱ // 0x3ab @0x8
0x03a3…03af at000b = EOL // 0x3ae @0xb
0x03a3…03af }
0x03af…03c4 99b2 0470 OPEN "dde:skatart",R
0x03af…03c4 LineComal80 {
0x03af…03c4 ptr = 0x99b2 // 0x3af @0x0
0x03af…03c4 lno = 0x01d6 // 0x3b1 @0x2
0x03af…03c4 at0004 = ╱a7╱ OPEN ╱ // 0x3b3 @0x4
0x03af…03c4 at0005 = ╱22╱"╱ // 0x3b4 @0x5
0x03af…03c4 at0006 = ╱64╱d╱ // 0x3b5 @0x6
0x03af…03c4 at0007 = ╱64╱d╱ // 0x3b6 @0x7
0x03af…03c4 at0008 = ╱65╱e╱ // 0x3b7 @0x8
0x03af…03c4 at0009 = ╱3a╱:╱ // 0x3b8 @0x9
0x03af…03c4 at000a = ╱73╱s╱ // 0x3b9 @0xa
0x03af…03c4 at000b = ╱6b╱k╱ // 0x3ba @0xb
0x03af…03c4 at000c = ╱61╱a╱ // 0x3bb @0xc
0x03af…03c4 at000d = ╱74╱t╱ // 0x3bc @0xd
0x03af…03c4 at000e = ╱61╱a╱ // 0x3bd @0xe
0x03af…03c4 at000f = ╱72╱r╱ // 0x3be @0xf
0x03af…03c4 at0010 = ╱74╱t╱ // 0x3bf @0x10
0x03af…03c4 at0011 = ╱22╱"╱ // 0x3c0 @0x11
0x03af…03c4 at0012 = ╱ec╱,╱ // 0x3c1 @0x12
0x03af…03c4 at0013 = ╱52╱R╱ // 0x3c2 @0x13
0x03af…03c4 at0014 = EOL // 0x3c3 @0x14
0x03af…03c4 }
0x03c4…03cb 99b9 0480 REPEAT
0x03c4…03cb LineComal80 {
0x03c4…03cb ptr = 0x99b9 // 0x3c4 @0x0
0x03c4…03cb lno = 0x01e0 // 0x3c6 @0x2
0x03c4…03cb at0004 = ╱9703╱ REPEAT ╱ // 0x3c8 @0x4
0x03c4…03cb at0006 = EOL // 0x3ca @0x6
0x03c4…03cb }
0x03cb…03d9 99c7 0490 LET X := X + 1
0x03cb…03d9 LineComal80 {
0x03cb…03d9 ptr = 0x99c7 // 0x3cb @0x0
0x03cb…03d9 lno = 0x01ea // 0x3cd @0x2
0x03cb…03d9 at0004 = ╱86╱ LET ╱ // 0x3cf @0x4
0x03cb…03d9 at0005 = ╱58╱X╱ // 0x3d0 @0x5
0x03cb…03d9 at0006 = ╱f0╱ := ╱ // 0x3d1 @0x6
0x03cb…03d9 at0007 = ╱58╱X╱ // 0x3d2 @0x7
0x03cb…03d9 at0008 = ╱e5╱ + ╱ // 0x3d3 @0x8
0x03cb…03d9 at0009 = ╱31╱1╱ // 0x3d4 @0x9
0x03cb…03d9 at000a = ╱f20100╱ // 0x3d5 @0xa
0x03cb…03d9 at000d = EOL // 0x3d8 @0xd
0x03cb…03d9 }
0x03d9…03f3 99e1 0500 GET "dde:skatart" : A1$(X)
0x03d9…03f3 LineComal80 {
0x03d9…03f3 ptr = 0x99e1 // 0x3d9 @0x0
0x03d9…03f3 lno = 0x01f4 // 0x3db @0x2
0x03d9…03f3 at0004 = ╱a9╱ GET ╱ // 0x3dd @0x4
0x03d9…03f3 at0005 = ╱22╱"╱ // 0x3de @0x5
0x03d9…03f3 at0006 = ╱64╱d╱ // 0x3df @0x6
0x03d9…03f3 at0007 = ╱64╱d╱ // 0x3e0 @0x7
0x03d9…03f3 at0008 = ╱65╱e╱ // 0x3e1 @0x8
0x03d9…03f3 at0009 = ╱3a╱:╱ // 0x3e2 @0x9
0x03d9…03f3 at000a = ╱73╱s╱ // 0x3e3 @0xa
0x03d9…03f3 at000b = ╱6b╱k╱ // 0x3e4 @0xb
0x03d9…03f3 at000c = ╱61╱a╱ // 0x3e5 @0xc
0x03d9…03f3 at000d = ╱74╱t╱ // 0x3e6 @0xd
0x03d9…03f3 at000e = ╱61╱a╱ // 0x3e7 @0xe
0x03d9…03f3 at000f = ╱72╱r╱ // 0x3e8 @0xf
0x03d9…03f3 at0010 = ╱74╱t╱ // 0x3e9 @0x10
0x03d9…03f3 at0011 = ╱22╱"╱ // 0x3ea @0x11
0x03d9…03f3 at0012 = ╱f1╱ : ╱ // 0x3eb @0x12
0x03d9…03f3 at0013 = ╱41╱A╱ // 0x3ec @0x13
0x03d9…03f3 at0014 = ╱31╱1╱ // 0x3ed @0x14
0x03d9…03f3 at0015 = ╱ef╱$╱ // 0x3ee @0x15
0x03d9…03f3 at0016 = ╱ed╱(╱ // 0x3ef @0x16
0x03d9…03f3 at0017 = ╱58╱X╱ // 0x3f0 @0x17
0x03d9…03f3 at0018 = ╱ee╱)╱ // 0x3f1 @0x18
0x03d9…03f3 at0019 = EOL // 0x3f2 @0x19
0x03d9…03f3 }
0x03f3…042d 9a1b 0510 UNTIL ╱cd╱ ("dde:skatart") = 19 OR ╱cd╱ ("dde:skatart") > 0 OR X = 29
0x03f3…042d LineComal80 {
0x03f3…042d ptr = 0x9a1b // 0x3f3 @0x0
0x03f3…042d lno = 0x01fe // 0x3f5 @0x2
0x03f3…042d at0004 = ╱98╱ UNTIL ╱ // 0x3f7 @0x4
0x03f3…042d at0005 = ╱cd╱ // 0x3f8 @0x5
0x03f3…042d at0006 = ╱ed╱(╱ // 0x3f9 @0x6
0x03f3…042d at0007 = ╱22╱"╱ // 0x3fa @0x7
0x03f3…042d at0008 = ╱64╱d╱ // 0x3fb @0x8
0x03f3…042d at0009 = ╱64╱d╱ // 0x3fc @0x9
0x03f3…042d at000a = ╱65╱e╱ // 0x3fd @0xa
0x03f3…042d at000b = ╱3a╱:╱ // 0x3fe @0xb
0x03f3…042d at000c = ╱73╱s╱ // 0x3ff @0xc
0x03f3…042d at000d = ╱6b╱k╱ // 0x400 @0xd
0x03f3…042d at000e = ╱61╱a╱ // 0x401 @0xe
0x03f3…042d at000f = ╱74╱t╱ // 0x402 @0xf
0x03f3…042d at0010 = ╱61╱a╱ // 0x403 @0x10
0x03f3…042d at0011 = ╱72╱r╱ // 0x404 @0x11
0x03f3…042d at0012 = ╱74╱t╱ // 0x405 @0x12
0x03f3…042d at0013 = ╱22╱"╱ // 0x406 @0x13
0x03f3…042d at0014 = ╱ee╱)╱ // 0x407 @0x14
0x03f3…042d at0015 = ╱df╱ = ╱ // 0x408 @0x15
0x03f3…042d at0016 = ╱31╱1╱ // 0x409 @0x16
0x03f3…042d at0017 = ╱39╱9╱ // 0x40a @0x17
0x03f3…042d at0018 = ╱f21300╱ // 0x40b @0x18
0x03f3…042d at001b = ╱d8╱ OR ╱ // 0x40e @0x1b
0x03f3…042d at001c = ╱cd╱ // 0x40f @0x1c
0x03f3…042d at001d = ╱ed╱(╱ // 0x410 @0x1d
0x03f3…042d at001e = ╱22╱"╱ // 0x411 @0x1e
0x03f3…042d at001f = ╱64╱d╱ // 0x412 @0x1f
0x03f3…042d at0020 = ╱64╱d╱ // 0x413 @0x20
0x03f3…042d at0021 = ╱65╱e╱ // 0x414 @0x21
0x03f3…042d at0022 = ╱3a╱:╱ // 0x415 @0x22
0x03f3…042d at0023 = ╱73╱s╱ // 0x416 @0x23
0x03f3…042d at0024 = ╱6b╱k╱ // 0x417 @0x24
0x03f3…042d at0025 = ╱61╱a╱ // 0x418 @0x25
0x03f3…042d at0026 = ╱74╱t╱ // 0x419 @0x26
0x03f3…042d at0027 = ╱61╱a╱ // 0x41a @0x27
0x03f3…042d at0028 = ╱72╱r╱ // 0x41b @0x28
0x03f3…042d at0029 = ╱74╱t╱ // 0x41c @0x29
0x03f3…042d at002a = ╱22╱"╱ // 0x41d @0x2a
0x03f3…042d at002b = ╱ee╱)╱ // 0x41e @0x2b
0x03f3…042d at002c = ╱e1╱ > ╱ // 0x41f @0x2c
0x03f3…042d at002d = ╱30╱0╱ // 0x420 @0x2d
0x03f3…042d at002e = ╱f20000╱ // 0x421 @0x2e
0x03f3…042d at0031 = ╱d8╱ OR ╱ // 0x424 @0x31
0x03f3…042d at0032 = ╱58╱X╱ // 0x425 @0x32
0x03f3…042d at0033 = ╱df╱ = ╱ // 0x426 @0x33
0x03f3…042d at0034 = ╱32╱2╱ // 0x427 @0x34
0x03f3…042d at0035 = ╱39╱9╱ // 0x428 @0x35
0x03f3…042d at0036 = ╱f21d00╱ // 0x429 @0x36
0x03f3…042d at0039 = EOL // 0x42c @0x39
0x03f3…042d }
0x042d…0433 9a21 0520 CLOSE
0x042d…0433 LineComal80 {
0x042d…0433 ptr = 0x9a21 // 0x42d @0x0
0x042d…0433 lno = 0x0208 // 0x42f @0x2
0x042d…0433 at0004 = ╱a8╱ CLOSE ╱ // 0x431 @0x4
0x042d…0433 at0005 = EOL // 0x432 @0x5
0x042d…0433 }
0x0433…0496 9a84 0530 LET E1 := 28 ; F3 := 64000 ; F4 := 70999 ; F5 := 1985 ; P1 := 111300 ; P2 := 182600
0x0433…0496 LineComal80 {
0x0433…0496 ptr = 0x9a84 // 0x433 @0x0
0x0433…0496 lno = 0x0212 // 0x435 @0x2
0x0433…0496 at0004 = ╱86╱ LET ╱ // 0x437 @0x4
0x0433…0496 at0005 = ╱45╱E╱ // 0x438 @0x5
0x0433…0496 at0006 = ╱31╱1╱ // 0x439 @0x6
0x0433…0496 at0007 = ╱f0╱ := ╱ // 0x43a @0x7
0x0433…0496 at0008 = ╱32╱2╱ // 0x43b @0x8
0x0433…0496 at0009 = ╱38╱8╱ // 0x43c @0x9
0x0433…0496 at000a = ╱f21c00╱ // 0x43d @0xa
0x0433…0496 at000d = ╱ea╱ ; ╱ // 0x440 @0xd
0x0433…0496 at000e = ╱46╱F╱ // 0x441 @0xe
0x0433…0496 at000f = ╱33╱3╱ // 0x442 @0xf
0x0433…0496 at0010 = ╱f0╱ := ╱ // 0x443 @0x10
0x0433…0496 at0011 = ╱36╱6╱ // 0x444 @0x11
0x0433…0496 at0012 = ╱34╱4╱ // 0x445 @0x12
0x0433…0496 at0013 = ╱30╱0╱ // 0x446 @0x13
0x0433…0496 at0014 = ╱30╱0╱ // 0x447 @0x14
0x0433…0496 at0015 = ╱30╱0╱ // 0x448 @0x15
0x0433…0496 at0016 = ╱f88500000000004006╱ // 0x449 @0x16
0x0433…0496 at001f = ╱ea╱ ; ╱ // 0x452 @0x1f
0x0433…0496 at0020 = ╱46╱F╱ // 0x453 @0x20
0x0433…0496 at0021 = ╱34╱4╱ // 0x454 @0x21
0x0433…0496 at0022 = ╱f0╱ := ╱ // 0x455 @0x22
0x0433…0496 at0023 = ╱37╱7╱ // 0x456 @0x23
0x0433…0496 at0024 = ╱30╱0╱ // 0x457 @0x24
0x0433…0496 at0025 = ╱39╱9╱ // 0x458 @0x25
0x0433…0496 at0026 = ╱39╱9╱ // 0x459 @0x26
0x0433…0496 at0027 = ╱39╱9╱ // 0x45a @0x27
0x0433…0496 at0028 = ╱f88500000000990907╱ // 0x45b @0x28
0x0433…0496 at0031 = ╱ea╱ ; ╱ // 0x464 @0x31
0x0433…0496 at0032 = ╱46╱F╱ // 0x465 @0x32
0x0433…0496 at0033 = ╱35╱5╱ // 0x466 @0x33
0x0433…0496 at0034 = ╱f0╱ := ╱ // 0x467 @0x34
0x0433…0496 at0035 = ╱31╱1╱ // 0x468 @0x35
0x0433…0496 at0036 = ╱39╱9╱ // 0x469 @0x36
0x0433…0496 at0037 = ╱38╱8╱ // 0x46a @0x37
0x0433…0496 at0038 = ╱35╱5╱ // 0x46b @0x38
0x0433…0496 at0039 = ╱f2c107╱ // 0x46c @0x39
0x0433…0496 at003c = ╱ea╱ ; ╱ // 0x46f @0x3c
0x0433…0496 at003d = ╱50╱P╱ // 0x470 @0x3d
0x0433…0496 at003e = ╱31╱1╱ // 0x471 @0x3e
0x0433…0496 at003f = ╱f0╱ := ╱ // 0x472 @0x3f
0x0433…0496 at0040 = ╱31╱1╱ // 0x473 @0x40
0x0433…0496 at0041 = ╱31╱1╱ // 0x474 @0x41
0x0433…0496 at0042 = ╱31╱1╱ // 0x475 @0x42
0x0433…0496 at0043 = ╱33╱3╱ // 0x476 @0x43
0x0433…0496 at0044 = ╱30╱0╱ // 0x477 @0x44
0x0433…0496 at0045 = ╱30╱0╱ // 0x478 @0x45
0x0433…0496 at0046 = ╱f88600000000301101╱ // 0x479 @0x46
0x0433…0496 at004f = ╱ea╱ ; ╱ // 0x482 @0x4f
0x0433…0496 at0050 = ╱50╱P╱ // 0x483 @0x50
0x0433…0496 at0051 = ╱32╱2╱ // 0x484 @0x51
0x0433…0496 at0052 = ╱f0╱ := ╱ // 0x485 @0x52
0x0433…0496 at0053 = ╱31╱1╱ // 0x486 @0x53
0x0433…0496 at0054 = ╱38╱8╱ // 0x487 @0x54
0x0433…0496 at0055 = ╱32╱2╱ // 0x488 @0x55
0x0433…0496 at0056 = ╱36╱6╱ // 0x489 @0x56
0x0433…0496 at0057 = ╱30╱0╱ // 0x48a @0x57
0x0433…0496 at0058 = ╱30╱0╱ // 0x48b @0x58
0x0433…0496 at0059 = ╱f88600000000608201╱ // 0x48c @0x59
0x0433…0496 at0062 = EOL // 0x495 @0x62
0x0433…0496 }
0x0496…04ea 9ad8 0540 LET P3 := 22700 ; P4 := 20300 ; P5 := 43900 ; P6 := 24000 ; P0 := 3.5 ; PA0 := 2
0x0496…04ea LineComal80 {
0x0496…04ea ptr = 0x9ad8 // 0x496 @0x0
0x0496…04ea lno = 0x021c // 0x498 @0x2
0x0496…04ea at0004 = ╱86╱ LET ╱ // 0x49a @0x4
0x0496…04ea at0005 = ╱50╱P╱ // 0x49b @0x5
0x0496…04ea at0006 = ╱33╱3╱ // 0x49c @0x6
0x0496…04ea at0007 = ╱f0╱ := ╱ // 0x49d @0x7
0x0496…04ea at0008 = ╱32╱2╱ // 0x49e @0x8
0x0496…04ea at0009 = ╱32╱2╱ // 0x49f @0x9
0x0496…04ea at000a = ╱37╱7╱ // 0x4a0 @0xa
0x0496…04ea at000b = ╱30╱0╱ // 0x4a1 @0xb
0x0496…04ea at000c = ╱30╱0╱ // 0x4a2 @0xc
0x0496…04ea at000d = ╱f2ac58╱ // 0x4a3 @0xd
0x0496…04ea at0010 = ╱ea╱ ; ╱ // 0x4a6 @0x10
0x0496…04ea at0011 = ╱50╱P╱ // 0x4a7 @0x11
0x0496…04ea at0012 = ╱34╱4╱ // 0x4a8 @0x12
0x0496…04ea at0013 = ╱f0╱ := ╱ // 0x4a9 @0x13
0x0496…04ea at0014 = ╱32╱2╱ // 0x4aa @0x14
0x0496…04ea at0015 = ╱30╱0╱ // 0x4ab @0x15
0x0496…04ea at0016 = ╱33╱3╱ // 0x4ac @0x16
0x0496…04ea at0017 = ╱30╱0╱ // 0x4ad @0x17
0x0496…04ea at0018 = ╱30╱0╱ // 0x4ae @0x18
0x0496…04ea at0019 = ╱f24c4f╱ // 0x4af @0x19
0x0496…04ea at001c = ╱ea╱ ; ╱ // 0x4b2 @0x1c
0x0496…04ea at001d = ╱50╱P╱ // 0x4b3 @0x1d
0x0496…04ea at001e = ╱35╱5╱ // 0x4b4 @0x1e
0x0496…04ea at001f = ╱f0╱ := ╱ // 0x4b5 @0x1f
0x0496…04ea at0020 = ╱34╱4╱ // 0x4b6 @0x20
0x0496…04ea at0021 = ╱33╱3╱ // 0x4b7 @0x21
0x0496…04ea at0022 = ╱39╱9╱ // 0x4b8 @0x22
0x0496…04ea at0023 = ╱30╱0╱ // 0x4b9 @0x23
0x0496…04ea at0024 = ╱30╱0╱ // 0x4ba @0x24
0x0496…04ea at0025 = ╱f88500000000003904╱ // 0x4bb @0x25
0x0496…04ea at002e = ╱ea╱ ; ╱ // 0x4c4 @0x2e
0x0496…04ea at002f = ╱50╱P╱ // 0x4c5 @0x2f
0x0496…04ea at0030 = ╱36╱6╱ // 0x4c6 @0x30
0x0496…04ea at0031 = ╱f0╱ := ╱ // 0x4c7 @0x31
0x0496…04ea at0032 = ╱32╱2╱ // 0x4c8 @0x32
0x0496…04ea at0033 = ╱34╱4╱ // 0x4c9 @0x33
0x0496…04ea at0034 = ╱30╱0╱ // 0x4ca @0x34
0x0496…04ea at0035 = ╱30╱0╱ // 0x4cb @0x35
0x0496…04ea at0036 = ╱30╱0╱ // 0x4cc @0x36
0x0496…04ea at0037 = ╱f2c05d╱ // 0x4cd @0x37
0x0496…04ea at003a = ╱ea╱ ; ╱ // 0x4d0 @0x3a
0x0496…04ea at003b = ╱50╱P╱ // 0x4d1 @0x3b
0x0496…04ea at003c = ╱30╱0╱ // 0x4d2 @0x3c
0x0496…04ea at003d = ╱f0╱ := ╱ // 0x4d3 @0x3d
0x0496…04ea at003e = ╱33╱3╱ // 0x4d4 @0x3e
0x0496…04ea at003f = ╱2e╱.╱ // 0x4d5 @0x3f
0x0496…04ea at0040 = ╱35╱5╱ // 0x4d6 @0x40
0x0496…04ea at0041 = ╱f88100000000005003╱ // 0x4d7 @0x41
0x0496…04ea at004a = ╱ea╱ ; ╱ // 0x4e0 @0x4a
0x0496…04ea at004b = ╱50╱P╱ // 0x4e1 @0x4b
0x0496…04ea at004c = ╱41╱A╱ // 0x4e2 @0x4c
0x0496…04ea at004d = ╱30╱0╱ // 0x4e3 @0x4d
0x0496…04ea at004e = ╱f0╱ := ╱ // 0x4e4 @0x4e
0x0496…04ea at004f = ╱32╱2╱ // 0x4e5 @0x4f
0x0496…04ea at0050 = ╱f20200╱ // 0x4e6 @0x50
0x0496…04ea at0053 = EOL // 0x4e9 @0x53
0x0496…04ea }
0x04ea…0525 a701 0550 LET U1 := .9 ; U2 := 1229200 ; M1 := 112700
0x04ea…0525 LineComal80 {
0x04ea…0525 ptr = 0xa701 // 0x4ea @0x0
0x04ea…0525 lno = 0x0226 // 0x4ec @0x2
0x04ea…0525 at0004 = ╱86╱ LET ╱ // 0x4ee @0x4
0x04ea…0525 at0005 = ╱55╱U╱ // 0x4ef @0x5
0x04ea…0525 at0006 = ╱31╱1╱ // 0x4f0 @0x6
0x04ea…0525 at0007 = ╱f0╱ := ╱ // 0x4f1 @0x7
0x04ea…0525 at0008 = ╱2e╱.╱ // 0x4f2 @0x8
0x04ea…0525 at0009 = ╱39╱9╱ // 0x4f3 @0x9
0x04ea…0525 at000a = ╱f88000000000000009╱ // 0x4f4 @0xa
0x04ea…0525 at0013 = ╱ea╱ ; ╱ // 0x4fd @0x13
0x04ea…0525 at0014 = ╱55╱U╱ // 0x4fe @0x14
0x04ea…0525 at0015 = ╱32╱2╱ // 0x4ff @0x15
0x04ea…0525 at0016 = ╱f0╱ := ╱ // 0x500 @0x16
0x04ea…0525 at0017 = ╱31╱1╱ // 0x501 @0x17
0x04ea…0525 at0018 = ╱32╱2╱ // 0x502 @0x18
0x04ea…0525 at0019 = ╱32╱2╱ // 0x503 @0x19
0x04ea…0525 at001a = ╱39╱9╱ // 0x504 @0x1a
0x04ea…0525 at001b = ╱32╱2╱ // 0x505 @0x1b
0x04ea…0525 at001c = ╱30╱0╱ // 0x506 @0x1c
0x04ea…0525 at001d = ╱30╱0╱ // 0x507 @0x1d
0x04ea…0525 at001e = ╱f88700000000922201╱ // 0x508 @0x1e
0x04ea…0525 at0027 = ╱ea╱ ; ╱ // 0x511 @0x27
0x04ea…0525 at0028 = ╱4d╱M╱ // 0x512 @0x28
0x04ea…0525 at0029 = ╱31╱1╱ // 0x513 @0x29
0x04ea…0525 at002a = ╱f0╱ := ╱ // 0x514 @0x2a
0x04ea…0525 at002b = ╱31╱1╱ // 0x515 @0x2b
0x04ea…0525 at002c = ╱31╱1╱ // 0x516 @0x2c
0x04ea…0525 at002d = ╱32╱2╱ // 0x517 @0x2d
0x04ea…0525 at002e = ╱37╱7╱ // 0x518 @0x2e
0x04ea…0525 at002f = ╱30╱0╱ // 0x519 @0x2f
0x04ea…0525 at0030 = ╱30╱0╱ // 0x51a @0x30
0x04ea…0525 at0031 = ╱f88600000000701201╱ // 0x51b @0x31
0x04ea…0525 at003a = EOL // 0x524 @0x3a
0x04ea…0525 }
0x0525…053f 9b2d 0560 LET D6 := HD6 ; SKG := F6 ; AKT := F9
0x0525…053f LineComal80 {
0x0525…053f ptr = 0x9b2d // 0x525 @0x0
0x0525…053f lno = 0x0230 // 0x527 @0x2
0x0525…053f at0004 = ╱86╱ LET ╱ // 0x529 @0x4
0x0525…053f at0005 = ╱44╱D╱ // 0x52a @0x5
0x0525…053f at0006 = ╱36╱6╱ // 0x52b @0x6
0x0525…053f at0007 = ╱f0╱ := ╱ // 0x52c @0x7
0x0525…053f at0008 = ╱48╱H╱ // 0x52d @0x8
0x0525…053f at0009 = ╱44╱D╱ // 0x52e @0x9
0x0525…053f at000a = ╱36╱6╱ // 0x52f @0xa
0x0525…053f at000b = ╱ea╱ ; ╱ // 0x530 @0xb
0x0525…053f at000c = ╱53╱S╱ // 0x531 @0xc
0x0525…053f at000d = ╱4b╱K╱ // 0x532 @0xd
0x0525…053f at000e = ╱47╱G╱ // 0x533 @0xe
0x0525…053f at000f = ╱f0╱ := ╱ // 0x534 @0xf
0x0525…053f at0010 = ╱46╱F╱ // 0x535 @0x10
0x0525…053f at0011 = ╱36╱6╱ // 0x536 @0x11
0x0525…053f at0012 = ╱ea╱ ; ╱ // 0x537 @0x12
0x0525…053f at0013 = ╱41╱A╱ // 0x538 @0x13
0x0525…053f at0014 = ╱4b╱K╱ // 0x539 @0x14
0x0525…053f at0015 = ╱54╱T╱ // 0x53a @0x15
0x0525…053f at0016 = ╱f0╱ := ╱ // 0x53b @0x16
0x0525…053f at0017 = ╱46╱F╱ // 0x53c @0x17
0x0525…053f at0018 = ╱39╱9╱ // 0x53d @0x18
0x0525…053f at0019 = EOL // 0x53e @0x19
0x0525…053f }
0x053f…0554 9b42 0570 FOR X := 24 TO 9 DO
0x053f…0554 LineComal80 {
0x053f…0554 ptr = 0x9b42 // 0x53f @0x0
0x053f…0554 lno = 0x023a // 0x541 @0x2
0x053f…0554 at0004 = ╱8304╱ FOR ╱ // 0x543 @0x4
0x053f…0554 at0006 = ╱58╱X╱ // 0x545 @0x6
0x053f…0554 at0007 = ╱f0╱ := ╱ // 0x546 @0x7
0x053f…0554 at0008 = ╱32╱2╱ // 0x547 @0x8
0x053f…0554 at0009 = ╱34╱4╱ // 0x548 @0x9
0x053f…0554 at000a = ╱f21800╱ // 0x549 @0xa
0x053f…0554 at000d = ╱b732╱ TO ╱ // 0x54c @0xd
0x053f…0554 at000f = ╱39╱9╱ // 0x54e @0xf
0x053f…0554 at0010 = ╱f21d00╱ // 0x54f @0x10
0x053f…0554 at0013 = ╱bb╱ DO ╱ // 0x552 @0x13
0x053f…0554 at0014 = EOL // 0x553 @0x14
0x053f…0554 }
0x0554…0563 9b51 0580 LET A(X) := 0
0x0554…0563 LineComal80 {
0x0554…0563 ptr = 0x9b51 // 0x554 @0x0
0x0554…0563 lno = 0x0244 // 0x556 @0x2
0x0554…0563 at0004 = ╱86╱ LET ╱ // 0x558 @0x4
0x0554…0563 at0005 = ╱41╱A╱ // 0x559 @0x5
0x0554…0563 at0006 = ╱ed╱(╱ // 0x55a @0x6
0x0554…0563 at0007 = ╱58╱X╱ // 0x55b @0x7
0x0554…0563 at0008 = ╱ee╱)╱ // 0x55c @0x8
0x0554…0563 at0009 = ╱f0╱ := ╱ // 0x55d @0x9
0x0554…0563 at000a = ╱30╱0╱ // 0x55e @0xa
0x0554…0563 at000b = ╱f20000╱ // 0x55f @0xb
0x0554…0563 at000e = EOL // 0x562 @0xe
0x0554…0563 }
0x0563…056a 9b58 0590 NEXT X
0x0563…056a LineComal80 {
0x0563…056a ptr = 0x9b58 // 0x563 @0x0
0x0563…056a lno = 0x024e // 0x565 @0x2
0x0563…056a at0004 = ╱84╱ NEXT ╱ // 0x567 @0x4
0x0563…056a at0005 = ╱58╱X╱ // 0x568 @0x5
0x0563…056a at0006 = EOL // 0x569 @0x6
0x0563…056a }
0x056a…0583 (18,) 9b71 0600 IF >< 1 AND GSLUT >< 1 THEN
0x056a…0583 LineComal80 {
0x056a…0583 ptr = 0x9b71 // 0x56a @0x0
0x056a…0583 lno = 0x0258 // 0x56c @0x2
0x056a…0583 at0004 = ╱9b0547╱ IF ╱ // 0x56e @0x4
0x056a…0583 at0007 = ╱e4╱ >< ╱ // 0x571 @0x7
0x056a…0583 at0008 = ╱31╱1╱ // 0x572 @0x8
0x056a…0583 at0009 = ╱f20100╱ // 0x573 @0x9
0x056a…0583 at000c = ╱d9╱ AND ╱ // 0x576 @0xc
0x056a…0583 at000d = ╱47╱G╱ // 0x577 @0xd
0x056a…0583 at000e = ╱53╱S╱ // 0x578 @0xe
0x056a…0583 at000f = ╱4c╱L╱ // 0x579 @0xf
0x056a…0583 at0010 = ╱55╱U╱ // 0x57a @0x10
0x056a…0583 at0011 = ╱54╱T╱ // 0x57b @0x11
0x056a…0583 at0012 = ╱e4╱ >< ╱ // 0x57c @0x12
0x056a…0583 at0013 = ╱31╱1╱ // 0x57d @0x13
0x056a…0583 at0014 = ╱f20100╱ // 0x57e @0x14
0x056a…0583 at0017 = ╱b5╱ THEN ╱ // 0x581 @0x17
0x056a…0583 at0018 = EOL // 0x582 @0x18
0x056a…0583 }
0x0583…059c 9b8a 0610 LET FIL$ := "dde:skatsluh"
0x0583…059c LineComal80 {
0x0583…059c ptr = 0x9b8a // 0x583 @0x0
0x0583…059c lno = 0x0262 // 0x585 @0x2
0x0583…059c at0004 = ╱86╱ LET ╱ // 0x587 @0x4
0x0583…059c at0005 = ╱46╱F╱ // 0x588 @0x5
0x0583…059c at0006 = ╱49╱I╱ // 0x589 @0x6
0x0583…059c at0007 = ╱4c╱L╱ // 0x58a @0x7
0x0583…059c at0008 = ╱ef╱$╱ // 0x58b @0x8
0x0583…059c at0009 = ╱f0╱ := ╱ // 0x58c @0x9
0x0583…059c at000a = ╱22╱"╱ // 0x58d @0xa
0x0583…059c at000b = ╱64╱d╱ // 0x58e @0xb
0x0583…059c at000c = ╱64╱d╱ // 0x58f @0xc
0x0583…059c at000d = ╱65╱e╱ // 0x590 @0xd
0x0583…059c at000e = ╱3a╱:╱ // 0x591 @0xe
0x0583…059c at000f = ╱73╱s╱ // 0x592 @0xf
0x0583…059c at0010 = ╱6b╱k╱ // 0x593 @0x10
0x0583…059c at0011 = ╱61╱a╱ // 0x594 @0x11
0x0583…059c at0012 = ╱74╱t╱ // 0x595 @0x12
0x0583…059c at0013 = ╱73╱s╱ // 0x596 @0x13
0x0583…059c at0014 = ╱6c╱l╱ // 0x597 @0x14
0x0583…059c at0015 = ╱75╱u╱ // 0x598 @0x15
0x0583…059c at0016 = ╱68╱h╱ // 0x599 @0x16
0x0583…059c at0017 = ╱22╱"╱ // 0x59a @0x17
0x0583…059c at0018 = EOL // 0x59b @0x18
0x0583…059c }
0x059c…05a8 9b96 0620 OPEN FIL$,R
0x059c…05a8 LineComal80 {
0x059c…05a8 ptr = 0x9b96 // 0x59c @0x0
0x059c…05a8 lno = 0x026c // 0x59e @0x2
0x059c…05a8 at0004 = ╱a7╱ OPEN ╱ // 0x5a0 @0x4
0x059c…05a8 at0005 = ╱46╱F╱ // 0x5a1 @0x5
0x059c…05a8 at0006 = ╱49╱I╱ // 0x5a2 @0x6
0x059c…05a8 at0007 = ╱4c╱L╱ // 0x5a3 @0x7
0x059c…05a8 at0008 = ╱ef╱$╱ // 0x5a4 @0x8
0x059c…05a8 at0009 = ╱ec╱,╱ // 0x5a5 @0x9
0x059c…05a8 at000a = ╱52╱R╱ // 0x5a6 @0xa
0x059c…05a8 at000b = EOL // 0x5a7 @0xb
0x059c…05a8 }
0x05a8…05b2 9ba0 0630 EXEC LÆSF
0x05a8…05b2 LineComal80 {
0x05a8…05b2 ptr = 0x9ba0 // 0x5a8 @0x0
0x05a8…05b2 lno = 0x0276 // 0x5aa @0x2
0x05a8…05b2 at0004 = ╱9d╱ EXEC ╱ // 0x5ac @0x4
0x05a8…05b2 at0005 = ╱4c╱L╱ // 0x5ad @0x5
0x05a8…05b2 at0006 = ╱5b╱Æ╱ // 0x5ae @0x6
0x05a8…05b2 at0007 = ╱53╱S╱ // 0x5af @0x7
0x05a8…05b2 at0008 = ╱46╱F╱ // 0x5b0 @0x8
0x05a8…05b2 at0009 = EOL // 0x5b1 @0x9
0x05a8…05b2 }
0x05b2…05be 9bac 0640 EXEC GEMHOP
0x05b2…05be LineComal80 {
0x05b2…05be ptr = 0x9bac // 0x5b2 @0x0
0x05b2…05be lno = 0x0280 // 0x5b4 @0x2
0x05b2…05be at0004 = ╱9d╱ EXEC ╱ // 0x5b6 @0x4
0x05b2…05be at0005 = ╱47╱G╱ // 0x5b7 @0x5
0x05b2…05be at0006 = ╱45╱E╱ // 0x5b8 @0x6
0x05b2…05be at0007 = ╱4d╱M╱ // 0x5b9 @0x7
0x05b2…05be at0008 = ╱48╱H╱ // 0x5ba @0x8
0x05b2…05be at0009 = ╱4f╱O╱ // 0x5bb @0x9
0x05b2…05be at000a = ╱50╱P╱ // 0x5bc @0xa
0x05b2…05be at000b = EOL // 0x5bd @0xb
0x05b2…05be }
0x05be…05c5 9bb3 0650 ELSE
0x05be…05c5 LineComal80 {
0x05be…05c5 ptr = 0x9bb3 // 0x5be @0x0
0x05be…05c5 lno = 0x028a // 0x5c0 @0x2
0x05be…05c5 at0004 = ╱9a06╱ ELSE ╱ // 0x5c2 @0x4
0x05be…05c5 at0006 = EOL // 0x5c4 @0x6
0x05be…05c5 }
0x05c5…05d2 9bc0 0660 EXEC HENTHOP
0x05c5…05d2 LineComal80 {
0x05c5…05d2 ptr = 0x9bc0 // 0x5c5 @0x0
0x05c5…05d2 lno = 0x0294 // 0x5c7 @0x2
0x05c5…05d2 at0004 = ╱9d╱ EXEC ╱ // 0x5c9 @0x4
0x05c5…05d2 at0005 = ╱48╱H╱ // 0x5ca @0x5
0x05c5…05d2 at0006 = ╱45╱E╱ // 0x5cb @0x6
0x05c5…05d2 at0007 = ╱4e╱N╱ // 0x5cc @0x7
0x05c5…05d2 at0008 = ╱54╱T╱ // 0x5cd @0x8
0x05c5…05d2 at0009 = ╱48╱H╱ // 0x5ce @0x9
0x05c5…05d2 at000a = ╱4f╱O╱ // 0x5cf @0xa
0x05c5…05d2 at000b = ╱50╱P╱ // 0x5d0 @0xb
0x05c5…05d2 at000c = EOL // 0x5d1 @0xc
0x05c5…05d2 }
0x05d2…05d8 9bc6 0670 ENDIF
0x05d2…05d8 LineComal80 {
0x05d2…05d8 ptr = 0x9bc6 // 0x5d2 @0x0
0x05d2…05d8 lno = 0x029e // 0x5d4 @0x2
0x05d2…05d8 at0004 = ╱9c╱ ENDIF ╱ // 0x5d6 @0x4
0x05d2…05d8 at0005 = EOL // 0x5d7 @0x5
0x05d2…05d8 }
0x05d8…05ee 9bdc 0680 FOR Y := 1 TO R + 1 DO
0x05d8…05ee LineComal80 {
0x05d8…05ee ptr = 0x9bdc // 0x5d8 @0x0
0x05d8…05ee lno = 0x02a8 // 0x5da @0x2
0x05d8…05ee at0004 = ╱8307╱ FOR ╱ // 0x5dc @0x4
0x05d8…05ee at0006 = ╱59╱Y╱ // 0x5de @0x6
0x05d8…05ee at0007 = ╱f0╱ := ╱ // 0x5df @0x7
0x05d8…05ee at0008 = ╱31╱1╱ // 0x5e0 @0x8
0x05d8…05ee at0009 = ╱f20100╱ // 0x5e1 @0x9
0x05d8…05ee at000c = ╱b750╱ TO ╱ // 0x5e4 @0xc
0x05d8…05ee at000e = ╱52╱R╱ // 0x5e6 @0xe
0x05d8…05ee at000f = ╱e5╱ + ╱ // 0x5e7 @0xf
0x05d8…05ee at0010 = ╱31╱1╱ // 0x5e8 @0x10
0x05d8…05ee at0011 = ╱f20100╱ // 0x5e9 @0x11
0x05d8…05ee at0014 = ╱bb╱ DO ╱ // 0x5ec @0x14
0x05d8…05ee at0015 = EOL // 0x5ed @0x15
0x05d8…05ee }
0x05ee…0600 9bee 0690 IF Y = 2 THEN OUTPUT "p"
0x05ee…0600 LineComal80 {
0x05ee…0600 ptr = 0x9bee // 0x5ee @0x0
0x05ee…0600 lno = 0x02b2 // 0x5f0 @0x2
0x05ee…0600 at0004 = ╱8200╱ IF ╱ // 0x5f2 @0x4
0x05ee…0600 at0006 = ╱59╱Y╱ // 0x5f4 @0x6
0x05ee…0600 at0007 = ╱df╱ = ╱ // 0x5f5 @0x7
0x05ee…0600 at0008 = ╱32╱2╱ // 0x5f6 @0x8
0x05ee…0600 at0009 = ╱f20200╱ // 0x5f7 @0x9
0x05ee…0600 at000c = ╱b5╱ THEN ╱ // 0x5fa @0xc
0x05ee…0600 at000d = ╱a5╱ OUTPUT ╱ // 0x5fb @0xd
0x05ee…0600 at000e = ╱22╱"╱ // 0x5fc @0xe
0x05ee…0600 at000f = ╱70╱p╱ // 0x5fd @0xf
0x05ee…0600 at0010 = ╱22╱"╱ // 0x5fe @0x10
0x05ee…0600 at0011 = EOL // 0x5ff @0x11
0x05ee…0600 }
0x0600…060e 9bfc 0700 IF = 2 THEN
0x0600…060e LineComal80 {
0x0600…060e ptr = 0x9bfc // 0x600 @0x0
0x0600…060e lno = 0x02bc // 0x602 @0x2
0x0600…060e at0004 = ╱9b0859╱ IF ╱ // 0x604 @0x4
0x0600…060e at0007 = ╱df╱ = ╱ // 0x607 @0x7
0x0600…060e at0008 = ╱32╱2╱ // 0x608 @0x8
0x0600…060e at0009 = ╱f20200╱ // 0x609 @0x9
0x0600…060e at000c = ╱b5╱ THEN ╱ // 0x60c @0xc
0x0600…060e at000d = EOL // 0x60d @0xd
0x0600…060e }
0x060e…0617 9c05 0710 EXEC TLI
0x060e…0617 LineComal80 {
0x060e…0617 ptr = 0x9c05 // 0x60e @0x0
0x060e…0617 lno = 0x02c6 // 0x610 @0x2
0x060e…0617 at0004 = ╱9d╱ EXEC ╱ // 0x612 @0x4
0x060e…0617 at0005 = ╱54╱T╱ // 0x613 @0x5
0x060e…0617 at0006 = ╱4c╱L╱ // 0x614 @0x6
0x060e…0617 at0007 = ╱49╱I╱ // 0x615 @0x7
0x060e…0617 at0008 = EOL // 0x616 @0x8
0x060e…0617 }
0x0617…061e 9c0c 0720 ELSE
0x0617…061e LineComal80 {
0x0617…061e ptr = 0x9c0c // 0x617 @0x0
0x0617…061e lno = 0x02d0 // 0x619 @0x2
0x0617…061e at0004 = ╱9a09╱ ELSE ╱ // 0x61b @0x4
0x0617…061e at0006 = EOL // 0x61d @0x6
0x0617…061e }
0x061e…0624 9c12 0730 CLEAR
0x061e…0624 LineComal80 {
0x061e…0624 ptr = 0x9c12 // 0x61e @0x0
0x061e…0624 lno = 0x02da // 0x620 @0x2
0x061e…0624 at0004 = ╱a0╱ CLEAR ╱ // 0x622 @0x4
0x061e…0624 at0005 = EOL // 0x623 @0x5
0x061e…0624 }
0x0624…062a 9c18 0740 ENDIF
0x0624…062a LineComal80 {
0x0624…062a ptr = 0x9c18 // 0x624 @0x0
0x0624…062a lno = 0x02e4 // 0x626 @0x2
0x0624…062a at0004 = ╱9c╱ ENDIF ╱ // 0x628 @0x4
0x0624…062a at0005 = EOL // 0x629 @0x5
0x0624…062a }
0x062a…0650 9c3e 0750 LET QT$ := "ÅRSOPGØRELSE FOR " + HKL$ + ":"
0x062a…0650 LineComal80 {
0x062a…0650 ptr = 0x9c3e // 0x62a @0x0
0x062a…0650 lno = 0x02ee // 0x62c @0x2
0x062a…0650 at0004 = ╱86╱ LET ╱ // 0x62e @0x4
0x062a…0650 at0005 = ╱51╱Q╱ // 0x62f @0x5
0x062a…0650 at0006 = ╱54╱T╱ // 0x630 @0x6
0x062a…0650 at0007 = ╱ef╱$╱ // 0x631 @0x7
0x062a…0650 at0008 = ╱f0╱ := ╱ // 0x632 @0x8
0x062a…0650 at0009 = ╱22╱"╱ // 0x633 @0x9
0x062a…0650 at000a = ╱5d╱Å╱ // 0x634 @0xa
0x062a…0650 at000b = ╱52╱R╱ // 0x635 @0xb
0x062a…0650 at000c = ╱53╱S╱ // 0x636 @0xc
0x062a…0650 at000d = ╱4f╱O╱ // 0x637 @0xd
0x062a…0650 at000e = ╱50╱P╱ // 0x638 @0xe
0x062a…0650 at000f = ╱47╱G╱ // 0x639 @0xf
0x062a…0650 at0010 = ╱5c╱Ø╱ // 0x63a @0x10
0x062a…0650 at0011 = ╱52╱R╱ // 0x63b @0x11
0x062a…0650 at0012 = ╱45╱E╱ // 0x63c @0x12
0x062a…0650 at0013 = ╱4c╱L╱ // 0x63d @0x13
0x062a…0650 at0014 = ╱53╱S╱ // 0x63e @0x14
0x062a…0650 at0015 = ╱45╱E╱ // 0x63f @0x15
0x062a…0650 at0016 = ╱20╱…╱ // 0x640 @0x16
0x062a…0650 at0017 = ╱46╱F╱ // 0x641 @0x17
0x062a…0650 at0018 = ╱4f╱O╱ // 0x642 @0x18
0x062a…0650 at0019 = ╱52╱R╱ // 0x643 @0x19
0x062a…0650 at001a = ╱20╱…╱ // 0x644 @0x1a
0x062a…0650 at001b = ╱22╱"╱ // 0x645 @0x1b
0x062a…0650 at001c = ╱eb╱ + ╱ // 0x646 @0x1c
0x062a…0650 at001d = ╱48╱H╱ // 0x647 @0x1d
0x062a…0650 at001e = ╱4b╱K╱ // 0x648 @0x1e
0x062a…0650 at001f = ╱4c╱L╱ // 0x649 @0x1f
0x062a…0650 at0020 = ╱ef╱$╱ // 0x64a @0x20
0x062a…0650 at0021 = ╱eb╱ + ╱ // 0x64b @0x21
0x062a…0650 at0022 = ╱22╱"╱ // 0x64c @0x22
0x062a…0650 at0023 = ╱3a╱:╱ // 0x64d @0x23
0x062a…0650 at0024 = ╱22╱"╱ // 0x64e @0x24
0x062a…0650 at0025 = EOL // 0x64f @0x25
0x062a…0650 }
0x0650…065d 9c4b 0760 EXEC LSKRIV3
0x0650…065d LineComal80 {
0x0650…065d ptr = 0x9c4b // 0x650 @0x0
0x0650…065d lno = 0x02f8 // 0x652 @0x2
0x0650…065d at0004 = ╱9d╱ EXEC ╱ // 0x654 @0x4
0x0650…065d at0005 = ╱4c╱L╱ // 0x655 @0x5
0x0650…065d at0006 = ╱53╱S╱ // 0x656 @0x6
0x0650…065d at0007 = ╱4b╱K╱ // 0x657 @0x7
0x0650…065d at0008 = ╱52╱R╱ // 0x658 @0x8
0x0650…065d at0009 = ╱49╱I╱ // 0x659 @0x9
0x0650…065d at000a = ╱56╱V╱ // 0x65a @0xa
0x0650…065d at000b = ╱33╱3╱ // 0x65b @0xb
0x0650…065d at000c = EOL // 0x65c @0xc
0x0650…065d }
0x065d…0669 9c57 0770 EXEC ÅRSOPG
0x065d…0669 LineComal80 {
0x065d…0669 ptr = 0x9c57 // 0x65d @0x0
0x065d…0669 lno = 0x0302 // 0x65f @0x2
0x065d…0669 at0004 = ╱9d╱ EXEC ╱ // 0x661 @0x4
0x065d…0669 at0005 = ╱5d╱Å╱ // 0x662 @0x5
0x065d…0669 at0006 = ╱52╱R╱ // 0x663 @0x6
0x065d…0669 at0007 = ╱53╱S╱ // 0x664 @0x7
0x065d…0669 at0008 = ╱4f╱O╱ // 0x665 @0x8
0x065d…0669 at0009 = ╱50╱P╱ // 0x666 @0x9
0x065d…0669 at000a = ╱47╱G╱ // 0x667 @0xa
0x065d…0669 at000b = EOL // 0x668 @0xb
0x065d…0669 }
0x0669…067e 9c6c 0780 IF Y = 1 THEN EXEC RETURN
0x0669…067e LineComal80 {
0x0669…067e ptr = 0x9c6c // 0x669 @0x0
0x0669…067e lno = 0x030c // 0x66b @0x2
0x0669…067e at0004 = ╱8200╱ IF ╱ // 0x66d @0x4
0x0669…067e at0006 = ╱59╱Y╱ // 0x66f @0x6
0x0669…067e at0007 = ╱df╱ = ╱ // 0x670 @0x7
0x0669…067e at0008 = ╱31╱1╱ // 0x671 @0x8
0x0669…067e at0009 = ╱f20100╱ // 0x672 @0x9
0x0669…067e at000c = ╱b5╱ THEN ╱ // 0x675 @0xc
0x0669…067e at000d = ╱9d╱ EXEC ╱ // 0x676 @0xd
0x0669…067e at000e = ╱52╱R╱ // 0x677 @0xe
0x0669…067e at000f = ╱45╱E╱ // 0x678 @0xf
0x0669…067e at0010 = ╱54╱T╱ // 0x679 @0x10
0x0669…067e at0011 = ╱55╱U╱ // 0x67a @0x11
0x0669…067e at0012 = ╱52╱R╱ // 0x67b @0x12
0x0669…067e at0013 = ╱4e╱N╱ // 0x67c @0x13
0x0669…067e at0014 = EOL // 0x67d @0x14
0x0669…067e }
0x067e…0690 9c7e 0790 IF Y = 2 THEN OUTPUT "t"
0x067e…0690 LineComal80 {
0x067e…0690 ptr = 0x9c7e // 0x67e @0x0
0x067e…0690 lno = 0x0316 // 0x680 @0x2
0x067e…0690 at0004 = ╱8200╱ IF ╱ // 0x682 @0x4
0x067e…0690 at0006 = ╱59╱Y╱ // 0x684 @0x6
0x067e…0690 at0007 = ╱df╱ = ╱ // 0x685 @0x7
0x067e…0690 at0008 = ╱32╱2╱ // 0x686 @0x8
0x067e…0690 at0009 = ╱f20200╱ // 0x687 @0x9
0x067e…0690 at000c = ╱b5╱ THEN ╱ // 0x68a @0xc
0x067e…0690 at000d = ╱a5╱ OUTPUT ╱ // 0x68b @0xd
0x067e…0690 at000e = ╱22╱"╱ // 0x68c @0xe
0x067e…0690 at000f = ╱74╱t╱ // 0x68d @0xf
0x067e…0690 at0010 = ╱22╱"╱ // 0x68e @0x10
0x067e…0690 at0011 = EOL // 0x68f @0x11
0x067e…0690 }
0x0690…0697 9c85 0800 NEXT Y
0x0690…0697 LineComal80 {
0x0690…0697 ptr = 0x9c85 // 0x690 @0x0
0x0690…0697 lno = 0x0320 // 0x692 @0x2
0x0690…0697 at0004 = ╱84╱ NEXT ╱ // 0x694 @0x4
0x0690…0697 at0005 = ╱59╱Y╱ // 0x695 @0x5
0x0690…0697 at0006 = EOL // 0x696 @0x6
0x0690…0697 }
0x0697…06a6 a71e 0810 IF 2 >< 0 THEN
0x0697…06a6 LineComal80 {
0x0697…06a6 ptr = 0xa71e // 0x697 @0x0
0x0697…06a6 lno = 0x032a // 0x699 @0x2
0x0697…06a6 at0004 = ╱9b0a54╱ IF ╱ // 0x69b @0x4
0x0697…06a6 at0007 = ╱32╱2╱ // 0x69e @0x7
0x0697…06a6 at0008 = ╱e4╱ >< ╱ // 0x69f @0x8
0x0697…06a6 at0009 = ╱30╱0╱ // 0x6a0 @0x9
0x0697…06a6 at000a = ╱f20000╱ // 0x6a1 @0xa
0x0697…06a6 at000d = ╱b5╱ THEN ╱ // 0x6a4 @0xd
0x0697…06a6 at000e = EOL // 0x6a5 @0xe
0x0697…06a6 }
0x06a6…06c0 9cae 0820 LET D6 := BD6 ; SKG := F7 ; AKT := F0
0x06a6…06c0 LineComal80 {
0x06a6…06c0 ptr = 0x9cae // 0x6a6 @0x0
0x06a6…06c0 lno = 0x0334 // 0x6a8 @0x2
0x06a6…06c0 at0004 = ╱86╱ LET ╱ // 0x6aa @0x4
0x06a6…06c0 at0005 = ╱44╱D╱ // 0x6ab @0x5
0x06a6…06c0 at0006 = ╱36╱6╱ // 0x6ac @0x6
0x06a6…06c0 at0007 = ╱f0╱ := ╱ // 0x6ad @0x7
0x06a6…06c0 at0008 = ╱42╱B╱ // 0x6ae @0x8
0x06a6…06c0 at0009 = ╱44╱D╱ // 0x6af @0x9
0x06a6…06c0 at000a = ╱36╱6╱ // 0x6b0 @0xa
0x06a6…06c0 at000b = ╱ea╱ ; ╱ // 0x6b1 @0xb
0x06a6…06c0 at000c = ╱53╱S╱ // 0x6b2 @0xc
0x06a6…06c0 at000d = ╱4b╱K╱ // 0x6b3 @0xd
0x06a6…06c0 at000e = ╱47╱G╱ // 0x6b4 @0xe
0x06a6…06c0 at000f = ╱f0╱ := ╱ // 0x6b5 @0xf
0x06a6…06c0 at0010 = ╱46╱F╱ // 0x6b6 @0x10
0x06a6…06c0 at0011 = ╱37╱7╱ // 0x6b7 @0x11
0x06a6…06c0 at0012 = ╱ea╱ ; ╱ // 0x6b8 @0x12
0x06a6…06c0 at0013 = ╱41╱A╱ // 0x6b9 @0x13
0x06a6…06c0 at0014 = ╱4b╱K╱ // 0x6ba @0x14
0x06a6…06c0 at0015 = ╱54╱T╱ // 0x6bb @0x15
0x06a6…06c0 at0016 = ╱f0╱ := ╱ // 0x6bc @0x16
0x06a6…06c0 at0017 = ╱46╱F╱ // 0x6bd @0x17
0x06a6…06c0 at0018 = ╱30╱0╱ // 0x6be @0x18
0x06a6…06c0 at0019 = EOL // 0x6bf @0x19
0x06a6…06c0 }
0x06c0…06d5 9cc3 0830 FOR X := 24 TO 9 DO
0x06c0…06d5 LineComal80 {
0x06c0…06d5 ptr = 0x9cc3 // 0x6c0 @0x0
0x06c0…06d5 lno = 0x033e // 0x6c2 @0x2
0x06c0…06d5 at0004 = ╱830b╱ FOR ╱ // 0x6c4 @0x4
0x06c0…06d5 at0006 = ╱58╱X╱ // 0x6c6 @0x6
0x06c0…06d5 at0007 = ╱f0╱ := ╱ // 0x6c7 @0x7
0x06c0…06d5 at0008 = ╱32╱2╱ // 0x6c8 @0x8
0x06c0…06d5 at0009 = ╱34╱4╱ // 0x6c9 @0x9
0x06c0…06d5 at000a = ╱f21800╱ // 0x6ca @0xa
0x06c0…06d5 at000d = ╱b732╱ TO ╱ // 0x6cd @0xd
0x06c0…06d5 at000f = ╱39╱9╱ // 0x6cf @0xf
0x06c0…06d5 at0010 = ╱f21d00╱ // 0x6d0 @0x10
0x06c0…06d5 at0013 = ╱bb╱ DO ╱ // 0x6d3 @0x13
0x06c0…06d5 at0014 = EOL // 0x6d4 @0x14
0x06c0…06d5 }
0x06d5…06e4 9cd2 0840 LET A(X) := 0
0x06d5…06e4 LineComal80 {
0x06d5…06e4 ptr = 0x9cd2 // 0x6d5 @0x0
0x06d5…06e4 lno = 0x0348 // 0x6d7 @0x2
0x06d5…06e4 at0004 = ╱86╱ LET ╱ // 0x6d9 @0x4
0x06d5…06e4 at0005 = ╱41╱A╱ // 0x6da @0x5
0x06d5…06e4 at0006 = ╱ed╱(╱ // 0x6db @0x6
0x06d5…06e4 at0007 = ╱58╱X╱ // 0x6dc @0x7
0x06d5…06e4 at0008 = ╱ee╱)╱ // 0x6dd @0x8
0x06d5…06e4 at0009 = ╱f0╱ := ╱ // 0x6de @0x9
0x06d5…06e4 at000a = ╱30╱0╱ // 0x6df @0xa
0x06d5…06e4 at000b = ╱f20000╱ // 0x6e0 @0xb
0x06d5…06e4 at000e = EOL // 0x6e3 @0xe
0x06d5…06e4 }
0x06e4…06eb 9cd9 0850 NEXT X
0x06e4…06eb LineComal80 {
0x06e4…06eb ptr = 0x9cd9 // 0x6e4 @0x0
0x06e4…06eb lno = 0x0352 // 0x6e6 @0x2
0x06e4…06eb at0004 = ╱84╱ NEXT ╱ // 0x6e8 @0x4
0x06e4…06eb at0005 = ╱58╱X╱ // 0x6e9 @0x5
0x06e4…06eb at0006 = EOL // 0x6ea @0x6
0x06e4…06eb }
0x06eb…06f1 (23,) 9cdf 0860 CLEAR
0x06eb…06f1 LineComal80 {
0x06eb…06f1 ptr = 0x9cdf // 0x6eb @0x0
0x06eb…06f1 lno = 0x035c // 0x6ed @0x2
0x06eb…06f1 at0004 = ╱a0╱ CLEAR ╱ // 0x6ef @0x4
0x06eb…06f1 at0005 = EOL // 0x6f0 @0x5
0x06eb…06f1 }
0x06f1…070a 9cf8 0870 IF >< 1 AND GSLUT >< 1 THEN
0x06f1…070a LineComal80 {
0x06f1…070a ptr = 0x9cf8 // 0x6f1 @0x0
0x06f1…070a lno = 0x0366 // 0x6f3 @0x2
0x06f1…070a at0004 = ╱9b0c47╱ IF ╱ // 0x6f5 @0x4
0x06f1…070a at0007 = ╱e4╱ >< ╱ // 0x6f8 @0x7
0x06f1…070a at0008 = ╱31╱1╱ // 0x6f9 @0x8
0x06f1…070a at0009 = ╱f20100╱ // 0x6fa @0x9
0x06f1…070a at000c = ╱d9╱ AND ╱ // 0x6fd @0xc
0x06f1…070a at000d = ╱47╱G╱ // 0x6fe @0xd
0x06f1…070a at000e = ╱53╱S╱ // 0x6ff @0xe
0x06f1…070a at000f = ╱4c╱L╱ // 0x700 @0xf
0x06f1…070a at0010 = ╱55╱U╱ // 0x701 @0x10
0x06f1…070a at0011 = ╱54╱T╱ // 0x702 @0x11
0x06f1…070a at0012 = ╱e4╱ >< ╱ // 0x703 @0x12
0x06f1…070a at0013 = ╱31╱1╱ // 0x704 @0x13
0x06f1…070a at0014 = ╱f20100╱ // 0x705 @0x14
0x06f1…070a at0017 = ╱b5╱ THEN ╱ // 0x708 @0x17
0x06f1…070a at0018 = EOL // 0x709 @0x18
0x06f1…070a }
0x070a…0723 9d11 0880 LET FIL$ := "dde:skatslub"
0x070a…0723 LineComal80 {
0x070a…0723 ptr = 0x9d11 // 0x70a @0x0
0x070a…0723 lno = 0x0370 // 0x70c @0x2
0x070a…0723 at0004 = ╱86╱ LET ╱ // 0x70e @0x4
0x070a…0723 at0005 = ╱46╱F╱ // 0x70f @0x5
0x070a…0723 at0006 = ╱49╱I╱ // 0x710 @0x6
0x070a…0723 at0007 = ╱4c╱L╱ // 0x711 @0x7
0x070a…0723 at0008 = ╱ef╱$╱ // 0x712 @0x8
0x070a…0723 at0009 = ╱f0╱ := ╱ // 0x713 @0x9
0x070a…0723 at000a = ╱22╱"╱ // 0x714 @0xa
0x070a…0723 at000b = ╱64╱d╱ // 0x715 @0xb
0x070a…0723 at000c = ╱64╱d╱ // 0x716 @0xc
0x070a…0723 at000d = ╱65╱e╱ // 0x717 @0xd
0x070a…0723 at000e = ╱3a╱:╱ // 0x718 @0xe
0x070a…0723 at000f = ╱73╱s╱ // 0x719 @0xf
0x070a…0723 at0010 = ╱6b╱k╱ // 0x71a @0x10
0x070a…0723 at0011 = ╱61╱a╱ // 0x71b @0x11
0x070a…0723 at0012 = ╱74╱t╱ // 0x71c @0x12
0x070a…0723 at0013 = ╱73╱s╱ // 0x71d @0x13
0x070a…0723 at0014 = ╱6c╱l╱ // 0x71e @0x14
0x070a…0723 at0015 = ╱75╱u╱ // 0x71f @0x15
0x070a…0723 at0016 = ╱62╱b╱ // 0x720 @0x16
0x070a…0723 at0017 = ╱22╱"╱ // 0x721 @0x17
0x070a…0723 at0018 = EOL // 0x722 @0x18
0x070a…0723 }
0x0723…072f 9d1d 0890 OPEN FIL$,R
0x0723…072f LineComal80 {
0x0723…072f ptr = 0x9d1d // 0x723 @0x0
0x0723…072f lno = 0x037a // 0x725 @0x2
0x0723…072f at0004 = ╱a7╱ OPEN ╱ // 0x727 @0x4
0x0723…072f at0005 = ╱46╱F╱ // 0x728 @0x5
0x0723…072f at0006 = ╱49╱I╱ // 0x729 @0x6
0x0723…072f at0007 = ╱4c╱L╱ // 0x72a @0x7
0x0723…072f at0008 = ╱ef╱$╱ // 0x72b @0x8
0x0723…072f at0009 = ╱ec╱,╱ // 0x72c @0x9
0x0723…072f at000a = ╱52╱R╱ // 0x72d @0xa
0x0723…072f at000b = EOL // 0x72e @0xb
0x0723…072f }
0x072f…0739 9d27 0900 EXEC LÆSF
0x072f…0739 LineComal80 {
0x072f…0739 ptr = 0x9d27 // 0x72f @0x0
0x072f…0739 lno = 0x0384 // 0x731 @0x2
0x072f…0739 at0004 = ╱9d╱ EXEC ╱ // 0x733 @0x4
0x072f…0739 at0005 = ╱4c╱L╱ // 0x734 @0x5
0x072f…0739 at0006 = ╱5b╱Æ╱ // 0x735 @0x6
0x072f…0739 at0007 = ╱53╱S╱ // 0x736 @0x7
0x072f…0739 at0008 = ╱46╱F╱ // 0x737 @0x8
0x072f…0739 at0009 = EOL // 0x738 @0x9
0x072f…0739 }
0x0739…0745 9d33 0910 EXEC GEMBIP
0x0739…0745 LineComal80 {
0x0739…0745 ptr = 0x9d33 // 0x739 @0x0
0x0739…0745 lno = 0x038e // 0x73b @0x2
0x0739…0745 at0004 = ╱9d╱ EXEC ╱ // 0x73d @0x4
0x0739…0745 at0005 = ╱47╱G╱ // 0x73e @0x5
0x0739…0745 at0006 = ╱45╱E╱ // 0x73f @0x6
0x0739…0745 at0007 = ╱4d╱M╱ // 0x740 @0x7
0x0739…0745 at0008 = ╱42╱B╱ // 0x741 @0x8
0x0739…0745 at0009 = ╱49╱I╱ // 0x742 @0x9
0x0739…0745 at000a = ╱50╱P╱ // 0x743 @0xa
0x0739…0745 at000b = EOL // 0x744 @0xb
0x0739…0745 }
0x0745…074c 9d3a 0920 ELSE
0x0745…074c LineComal80 {
0x0745…074c ptr = 0x9d3a // 0x745 @0x0
0x0745…074c lno = 0x0398 // 0x747 @0x2
0x0745…074c at0004 = ╱9a0d╱ ELSE ╱ // 0x749 @0x4
0x0745…074c at0006 = EOL // 0x74b @0x6
0x0745…074c }
0x074c…0759 9d47 0930 EXEC HENTBIP
0x074c…0759 LineComal80 {
0x074c…0759 ptr = 0x9d47 // 0x74c @0x0
0x074c…0759 lno = 0x03a2 // 0x74e @0x2
0x074c…0759 at0004 = ╱9d╱ EXEC ╱ // 0x750 @0x4
0x074c…0759 at0005 = ╱48╱H╱ // 0x751 @0x5
0x074c…0759 at0006 = ╱45╱E╱ // 0x752 @0x6
0x074c…0759 at0007 = ╱4e╱N╱ // 0x753 @0x7
0x074c…0759 at0008 = ╱54╱T╱ // 0x754 @0x8
0x074c…0759 at0009 = ╱42╱B╱ // 0x755 @0x9
0x074c…0759 at000a = ╱49╱I╱ // 0x756 @0xa
0x074c…0759 at000b = ╱50╱P╱ // 0x757 @0xb
0x074c…0759 at000c = EOL // 0x758 @0xc
0x074c…0759 }
0x0759…075f 9d4d 0940 ENDIF
0x0759…075f LineComal80 {
0x0759…075f ptr = 0x9d4d // 0x759 @0x0
0x0759…075f lno = 0x03ac // 0x75b @0x2
0x0759…075f at0004 = ╱9c╱ ENDIF ╱ // 0x75d @0x4
0x0759…075f at0005 = EOL // 0x75e @0x5
0x0759…075f }
0x075f…0775 9d63 0950 FOR Y := 1 TO R + 1 DO
0x075f…0775 LineComal80 {
0x075f…0775 ptr = 0x9d63 // 0x75f @0x0
0x075f…0775 lno = 0x03b6 // 0x761 @0x2
0x075f…0775 at0004 = ╱830e╱ FOR ╱ // 0x763 @0x4
0x075f…0775 at0006 = ╱59╱Y╱ // 0x765 @0x6
0x075f…0775 at0007 = ╱f0╱ := ╱ // 0x766 @0x7
0x075f…0775 at0008 = ╱31╱1╱ // 0x767 @0x8
0x075f…0775 at0009 = ╱f20100╱ // 0x768 @0x9
0x075f…0775 at000c = ╱b750╱ TO ╱ // 0x76b @0xc
0x075f…0775 at000e = ╱52╱R╱ // 0x76d @0xe
0x075f…0775 at000f = ╱e5╱ + ╱ // 0x76e @0xf
0x075f…0775 at0010 = ╱31╱1╱ // 0x76f @0x10
0x075f…0775 at0011 = ╱f20100╱ // 0x770 @0x11
0x075f…0775 at0014 = ╱bb╱ DO ╱ // 0x773 @0x14
0x075f…0775 at0015 = EOL // 0x774 @0x15
0x075f…0775 }
0x0775…0787 9d75 0960 IF Y = 2 THEN OUTPUT "p"
0x0775…0787 LineComal80 {
0x0775…0787 ptr = 0x9d75 // 0x775 @0x0
0x0775…0787 lno = 0x03c0 // 0x777 @0x2
0x0775…0787 at0004 = ╱8200╱ IF ╱ // 0x779 @0x4
0x0775…0787 at0006 = ╱59╱Y╱ // 0x77b @0x6
0x0775…0787 at0007 = ╱df╱ = ╱ // 0x77c @0x7
0x0775…0787 at0008 = ╱32╱2╱ // 0x77d @0x8
0x0775…0787 at0009 = ╱f20200╱ // 0x77e @0x9
0x0775…0787 at000c = ╱b5╱ THEN ╱ // 0x781 @0xc
0x0775…0787 at000d = ╱a5╱ OUTPUT ╱ // 0x782 @0xd
0x0775…0787 at000e = ╱22╱"╱ // 0x783 @0xe
0x0775…0787 at000f = ╱70╱p╱ // 0x784 @0xf
0x0775…0787 at0010 = ╱22╱"╱ // 0x785 @0x10
0x0775…0787 at0011 = EOL // 0x786 @0x11
0x0775…0787 }
0x0787…0795 9d83 0970 IF = 2 THEN
0x0787…0795 LineComal80 {
0x0787…0795 ptr = 0x9d83 // 0x787 @0x0
0x0787…0795 lno = 0x03ca // 0x789 @0x2
0x0787…0795 at0004 = ╱9b0f59╱ IF ╱ // 0x78b @0x4
0x0787…0795 at0007 = ╱df╱ = ╱ // 0x78e @0x7
0x0787…0795 at0008 = ╱32╱2╱ // 0x78f @0x8
0x0787…0795 at0009 = ╱f20200╱ // 0x790 @0x9
0x0787…0795 at000c = ╱b5╱ THEN ╱ // 0x793 @0xc
0x0787…0795 at000d = EOL // 0x794 @0xd
0x0787…0795 }
0x0795…079e 9d8c 0980 EXEC TLI
0x0795…079e LineComal80 {
0x0795…079e ptr = 0x9d8c // 0x795 @0x0
0x0795…079e lno = 0x03d4 // 0x797 @0x2
0x0795…079e at0004 = ╱9d╱ EXEC ╱ // 0x799 @0x4
0x0795…079e at0005 = ╱54╱T╱ // 0x79a @0x5
0x0795…079e at0006 = ╱4c╱L╱ // 0x79b @0x6
0x0795…079e at0007 = ╱49╱I╱ // 0x79c @0x7
0x0795…079e at0008 = EOL // 0x79d @0x8
0x0795…079e }
0x079e…07a5 9d93 0990 ELSE
0x079e…07a5 LineComal80 {
0x079e…07a5 ptr = 0x9d93 // 0x79e @0x0
0x079e…07a5 lno = 0x03de // 0x7a0 @0x2
0x079e…07a5 at0004 = ╱9a10╱ ELSE ╱ // 0x7a2 @0x4
0x079e…07a5 at0006 = EOL // 0x7a4 @0x6
0x079e…07a5 }
0x07a5…07ab 9d99 1000 CLEAR
0x07a5…07ab LineComal80 {
0x07a5…07ab ptr = 0x9d99 // 0x7a5 @0x0
0x07a5…07ab lno = 0x03e8 // 0x7a7 @0x2
0x07a5…07ab at0004 = ╱a0╱ CLEAR ╱ // 0x7a9 @0x4
0x07a5…07ab at0005 = EOL // 0x7aa @0x5
0x07a5…07ab }
0x07ab…07b1 9d9f 1010 ENDIF
0x07ab…07b1 LineComal80 {
0x07ab…07b1 ptr = 0x9d9f // 0x7ab @0x0
0x07ab…07b1 lno = 0x03f2 // 0x7ad @0x2
0x07ab…07b1 at0004 = ╱9c╱ ENDIF ╱ // 0x7af @0x4
0x07ab…07b1 at0005 = EOL // 0x7b0 @0x5
0x07ab…07b1 }
0x07b1…07d7 9dc5 1020 LET QT$ := "ÅRSOPGØRELSE FOR " + BKL$ + ":"
0x07b1…07d7 LineComal80 {
0x07b1…07d7 ptr = 0x9dc5 // 0x7b1 @0x0
0x07b1…07d7 lno = 0x03fc // 0x7b3 @0x2
0x07b1…07d7 at0004 = ╱86╱ LET ╱ // 0x7b5 @0x4
0x07b1…07d7 at0005 = ╱51╱Q╱ // 0x7b6 @0x5
0x07b1…07d7 at0006 = ╱54╱T╱ // 0x7b7 @0x6
0x07b1…07d7 at0007 = ╱ef╱$╱ // 0x7b8 @0x7
0x07b1…07d7 at0008 = ╱f0╱ := ╱ // 0x7b9 @0x8
0x07b1…07d7 at0009 = ╱22╱"╱ // 0x7ba @0x9
0x07b1…07d7 at000a = ╱5d╱Å╱ // 0x7bb @0xa
0x07b1…07d7 at000b = ╱52╱R╱ // 0x7bc @0xb
0x07b1…07d7 at000c = ╱53╱S╱ // 0x7bd @0xc
0x07b1…07d7 at000d = ╱4f╱O╱ // 0x7be @0xd
0x07b1…07d7 at000e = ╱50╱P╱ // 0x7bf @0xe
0x07b1…07d7 at000f = ╱47╱G╱ // 0x7c0 @0xf
0x07b1…07d7 at0010 = ╱5c╱Ø╱ // 0x7c1 @0x10
0x07b1…07d7 at0011 = ╱52╱R╱ // 0x7c2 @0x11
0x07b1…07d7 at0012 = ╱45╱E╱ // 0x7c3 @0x12
0x07b1…07d7 at0013 = ╱4c╱L╱ // 0x7c4 @0x13
0x07b1…07d7 at0014 = ╱53╱S╱ // 0x7c5 @0x14
0x07b1…07d7 at0015 = ╱45╱E╱ // 0x7c6 @0x15
0x07b1…07d7 at0016 = ╱20╱…╱ // 0x7c7 @0x16
0x07b1…07d7 at0017 = ╱46╱F╱ // 0x7c8 @0x17
0x07b1…07d7 at0018 = ╱4f╱O╱ // 0x7c9 @0x18
0x07b1…07d7 at0019 = ╱52╱R╱ // 0x7ca @0x19
0x07b1…07d7 at001a = ╱20╱…╱ // 0x7cb @0x1a
0x07b1…07d7 at001b = ╱22╱"╱ // 0x7cc @0x1b
0x07b1…07d7 at001c = ╱eb╱ + ╱ // 0x7cd @0x1c
0x07b1…07d7 at001d = ╱42╱B╱ // 0x7ce @0x1d
0x07b1…07d7 at001e = ╱4b╱K╱ // 0x7cf @0x1e
0x07b1…07d7 at001f = ╱4c╱L╱ // 0x7d0 @0x1f
0x07b1…07d7 at0020 = ╱ef╱$╱ // 0x7d1 @0x20
0x07b1…07d7 at0021 = ╱eb╱ + ╱ // 0x7d2 @0x21
0x07b1…07d7 at0022 = ╱22╱"╱ // 0x7d3 @0x22
0x07b1…07d7 at0023 = ╱3a╱:╱ // 0x7d4 @0x23
0x07b1…07d7 at0024 = ╱22╱"╱ // 0x7d5 @0x24
0x07b1…07d7 at0025 = EOL // 0x7d6 @0x25
0x07b1…07d7 }
0x07d7…07e4 9dd2 1030 EXEC LSKRIV3
0x07d7…07e4 LineComal80 {
0x07d7…07e4 ptr = 0x9dd2 // 0x7d7 @0x0
0x07d7…07e4 lno = 0x0406 // 0x7d9 @0x2
0x07d7…07e4 at0004 = ╱9d╱ EXEC ╱ // 0x7db @0x4
0x07d7…07e4 at0005 = ╱4c╱L╱ // 0x7dc @0x5
0x07d7…07e4 at0006 = ╱53╱S╱ // 0x7dd @0x6
0x07d7…07e4 at0007 = ╱4b╱K╱ // 0x7de @0x7
0x07d7…07e4 at0008 = ╱52╱R╱ // 0x7df @0x8
0x07d7…07e4 at0009 = ╱49╱I╱ // 0x7e0 @0x9
0x07d7…07e4 at000a = ╱56╱V╱ // 0x7e1 @0xa
0x07d7…07e4 at000b = ╱33╱3╱ // 0x7e2 @0xb
0x07d7…07e4 at000c = EOL // 0x7e3 @0xc
0x07d7…07e4 }
0x07e4…07f0 9dde 1040 EXEC ÅRSOPG
0x07e4…07f0 LineComal80 {
0x07e4…07f0 ptr = 0x9dde // 0x7e4 @0x0
0x07e4…07f0 lno = 0x0410 // 0x7e6 @0x2
0x07e4…07f0 at0004 = ╱9d╱ EXEC ╱ // 0x7e8 @0x4
0x07e4…07f0 at0005 = ╱5d╱Å╱ // 0x7e9 @0x5
0x07e4…07f0 at0006 = ╱52╱R╱ // 0x7ea @0x6
0x07e4…07f0 at0007 = ╱53╱S╱ // 0x7eb @0x7
0x07e4…07f0 at0008 = ╱4f╱O╱ // 0x7ec @0x8
0x07e4…07f0 at0009 = ╱50╱P╱ // 0x7ed @0x9
0x07e4…07f0 at000a = ╱47╱G╱ // 0x7ee @0xa
0x07e4…07f0 at000b = EOL // 0x7ef @0xb
0x07e4…07f0 }
0x07f0…0805 9df3 1050 IF Y = 1 THEN EXEC RETURN
0x07f0…0805 LineComal80 {
0x07f0…0805 ptr = 0x9df3 // 0x7f0 @0x0
0x07f0…0805 lno = 0x041a // 0x7f2 @0x2
0x07f0…0805 at0004 = ╱8200╱ IF ╱ // 0x7f4 @0x4
0x07f0…0805 at0006 = ╱59╱Y╱ // 0x7f6 @0x6
0x07f0…0805 at0007 = ╱df╱ = ╱ // 0x7f7 @0x7
0x07f0…0805 at0008 = ╱31╱1╱ // 0x7f8 @0x8
0x07f0…0805 at0009 = ╱f20100╱ // 0x7f9 @0x9
0x07f0…0805 at000c = ╱b5╱ THEN ╱ // 0x7fc @0xc
0x07f0…0805 at000d = ╱9d╱ EXEC ╱ // 0x7fd @0xd
0x07f0…0805 at000e = ╱52╱R╱ // 0x7fe @0xe
0x07f0…0805 at000f = ╱45╱E╱ // 0x7ff @0xf
0x07f0…0805 at0010 = ╱54╱T╱ // 0x800 @0x10
0x07f0…0805 at0011 = ╱55╱U╱ // 0x801 @0x11
0x07f0…0805 at0012 = ╱52╱R╱ // 0x802 @0x12
0x07f0…0805 at0013 = ╱4e╱N╱ // 0x803 @0x13
0x07f0…0805 at0014 = EOL // 0x804 @0x14
0x07f0…0805 }
0x0805…0817 9e05 1060 IF Y = 2 THEN OUTPUT "t"
0x0805…0817 LineComal80 {
0x0805…0817 ptr = 0x9e05 // 0x805 @0x0
0x0805…0817 lno = 0x0424 // 0x807 @0x2
0x0805…0817 at0004 = ╱8200╱ IF ╱ // 0x809 @0x4
0x0805…0817 at0006 = ╱59╱Y╱ // 0x80b @0x6
0x0805…0817 at0007 = ╱df╱ = ╱ // 0x80c @0x7
0x0805…0817 at0008 = ╱32╱2╱ // 0x80d @0x8
0x0805…0817 at0009 = ╱f20200╱ // 0x80e @0x9
0x0805…0817 at000c = ╱b5╱ THEN ╱ // 0x811 @0xc
0x0805…0817 at000d = ╱a5╱ OUTPUT ╱ // 0x812 @0xd
0x0805…0817 at000e = ╱22╱"╱ // 0x813 @0xe
0x0805…0817 at000f = ╱74╱t╱ // 0x814 @0xf
0x0805…0817 at0010 = ╱22╱"╱ // 0x815 @0x10
0x0805…0817 at0011 = EOL // 0x816 @0x11
0x0805…0817 }
0x0817…081e 9e0c 1070 NEXT Y
0x0817…081e LineComal80 {
0x0817…081e ptr = 0x9e0c // 0x817 @0x0
0x0817…081e lno = 0x042e // 0x819 @0x2
0x0817…081e at0004 = ╱84╱ NEXT ╱ // 0x81b @0x4
0x0817…081e at0005 = ╱59╱Y╱ // 0x81c @0x5
0x0817…081e at0006 = EOL // 0x81d @0x6
0x0817…081e }
0x081e…0824 9e12 1080 ENDIF
0x081e…0824 LineComal80 {
0x081e…0824 ptr = 0x9e12 // 0x81e @0x0
0x081e…0824 lno = 0x0438 // 0x820 @0x2
0x081e…0824 at0004 = ╱9c╱ ENDIF ╱ // 0x822 @0x4
0x081e…0824 at0005 = EOL // 0x823 @0x5
0x081e…0824 }
0x0824…0855 9e43 1090 PRINT "*** VENT *** HOVEDPROGRAMMET INDLÆSES ***"
0x0824…0855 LineComal80 {
0x0824…0855 ptr = 0x9e43 // 0x824 @0x0
0x0824…0855 lno = 0x0442 // 0x826 @0x2
0x0824…0855 at0004 = ╱92╱ PRINT ╱ // 0x828 @0x4
0x0824…0855 at0005 = ╱22╱"╱ // 0x829 @0x5
0x0824…0855 at0006 = ╱2a╱*╱ // 0x82a @0x6
0x0824…0855 at0007 = ╱2a╱*╱ // 0x82b @0x7
0x0824…0855 at0008 = ╱2a╱*╱ // 0x82c @0x8
0x0824…0855 at0009 = ╱20╱…╱ // 0x82d @0x9
0x0824…0855 at000a = ╱56╱V╱ // 0x82e @0xa
0x0824…0855 at000b = ╱45╱E╱ // 0x82f @0xb
0x0824…0855 at000c = ╱4e╱N╱ // 0x830 @0xc
0x0824…0855 at000d = ╱54╱T╱ // 0x831 @0xd
0x0824…0855 at000e = ╱20╱…╱ // 0x832 @0xe
0x0824…0855 at000f = ╱2a╱*╱ // 0x833 @0xf
0x0824…0855 at0010 = ╱2a╱*╱ // 0x834 @0x10
0x0824…0855 at0011 = ╱2a╱*╱ // 0x835 @0x11
0x0824…0855 at0012 = ╱20╱…╱ // 0x836 @0x12
0x0824…0855 at0013 = ╱48╱H╱ // 0x837 @0x13
0x0824…0855 at0014 = ╱4f╱O╱ // 0x838 @0x14
0x0824…0855 at0015 = ╱56╱V╱ // 0x839 @0x15
0x0824…0855 at0016 = ╱45╱E╱ // 0x83a @0x16
0x0824…0855 at0017 = ╱44╱D╱ // 0x83b @0x17
0x0824…0855 at0018 = ╱50╱P╱ // 0x83c @0x18
0x0824…0855 at0019 = ╱52╱R╱ // 0x83d @0x19
0x0824…0855 at001a = ╱4f╱O╱ // 0x83e @0x1a
0x0824…0855 at001b = ╱47╱G╱ // 0x83f @0x1b
0x0824…0855 at001c = ╱52╱R╱ // 0x840 @0x1c
0x0824…0855 at001d = ╱41╱A╱ // 0x841 @0x1d
0x0824…0855 at001e = ╱4d╱M╱ // 0x842 @0x1e
0x0824…0855 at001f = ╱4d╱M╱ // 0x843 @0x1f
0x0824…0855 at0020 = ╱45╱E╱ // 0x844 @0x20
0x0824…0855 at0021 = ╱54╱T╱ // 0x845 @0x21
0x0824…0855 at0022 = ╱20╱…╱ // 0x846 @0x22
0x0824…0855 at0023 = ╱49╱I╱ // 0x847 @0x23
0x0824…0855 at0024 = ╱4e╱N╱ // 0x848 @0x24
0x0824…0855 at0025 = ╱44╱D╱ // 0x849 @0x25
0x0824…0855 at0026 = ╱4c╱L╱ // 0x84a @0x26
0x0824…0855 at0027 = ╱5b╱Æ╱ // 0x84b @0x27
0x0824…0855 at0028 = ╱53╱S╱ // 0x84c @0x28
0x0824…0855 at0029 = ╱45╱E╱ // 0x84d @0x29
0x0824…0855 at002a = ╱53╱S╱ // 0x84e @0x2a
0x0824…0855 at002b = ╱20╱…╱ // 0x84f @0x2b
0x0824…0855 at002c = ╱2a╱*╱ // 0x850 @0x2c
0x0824…0855 at002d = ╱2a╱*╱ // 0x851 @0x2d
0x0824…0855 at002e = ╱2a╱*╱ // 0x852 @0x2e
0x0824…0855 at002f = ╱22╱"╱ // 0x853 @0x2f
0x0824…0855 at0030 = EOL // 0x854 @0x30
0x0824…0855 }
0x0855…0867 9e55 1100 CHAIN "DDE:SKAT85"
0x0855…0867 LineComal80 {
0x0855…0867 ptr = 0x9e55 // 0x855 @0x0
0x0855…0867 lno = 0x044c // 0x857 @0x2
0x0855…0867 at0004 = ╱ac╱ CHAIN ╱ // 0x859 @0x4
0x0855…0867 at0005 = ╱22╱"╱ // 0x85a @0x5
0x0855…0867 at0006 = ╱44╱D╱ // 0x85b @0x6
0x0855…0867 at0007 = ╱44╱D╱ // 0x85c @0x7
0x0855…0867 at0008 = ╱45╱E╱ // 0x85d @0x8
0x0855…0867 at0009 = ╱3a╱:╱ // 0x85e @0x9
0x0855…0867 at000a = ╱53╱S╱ // 0x85f @0xa
0x0855…0867 at000b = ╱4b╱K╱ // 0x860 @0xb
0x0855…0867 at000c = ╱41╱A╱ // 0x861 @0xc
0x0855…0867 at000d = ╱54╱T╱ // 0x862 @0xd
0x0855…0867 at000e = ╱38╱8╱ // 0x863 @0xe
0x0855…0867 at000f = ╱35╱5╱ // 0x864 @0xf
0x0855…0867 at0010 = ╱22╱"╱ // 0x865 @0x10
0x0855…0867 at0011 = EOL // 0x866 @0x11
0x0855…0867 }
0x0867…0875 9e63 1110 PROC LSKRIV2
0x0867…0875 LineComal80 {
0x0867…0875 ptr = 0x9e63 // 0x867 @0x0
0x0867…0875 lno = 0x0456 // 0x869 @0x2
0x0867…0875 at0004 = ╱9e11╱ PROC ╱ // 0x86b @0x4
0x0867…0875 at0006 = ╱4c╱L╱ // 0x86d @0x6
0x0867…0875 at0007 = ╱53╱S╱ // 0x86e @0x7
0x0867…0875 at0008 = ╱4b╱K╱ // 0x86f @0x8
0x0867…0875 at0009 = ╱52╱R╱ // 0x870 @0x9
0x0867…0875 at000a = ╱49╱I╱ // 0x871 @0xa
0x0867…0875 at000b = ╱56╱V╱ // 0x872 @0xb
0x0867…0875 at000c = ╱32╱2╱ // 0x873 @0xc
0x0867…0875 at000d = EOL // 0x874 @0xd
0x0867…0875 }
0x0875…0881 9e6f 1120 LET PRB := QB
0x0875…0881 LineComal80 {
0x0875…0881 ptr = 0x9e6f // 0x875 @0x0
0x0875…0881 lno = 0x0460 // 0x877 @0x2
0x0875…0881 at0004 = ╱86╱ LET ╱ // 0x879 @0x4
0x0875…0881 at0005 = ╱50╱P╱ // 0x87a @0x5
0x0875…0881 at0006 = ╱52╱R╱ // 0x87b @0x6
0x0875…0881 at0007 = ╱42╱B╱ // 0x87c @0x7
0x0875…0881 at0008 = ╱f0╱ := ╱ // 0x87d @0x8
0x0875…0881 at0009 = ╱51╱Q╱ // 0x87e @0x9
0x0875…0881 at000a = ╱42╱B╱ // 0x87f @0xa
0x0875…0881 at000b = EOL // 0x880 @0xb
0x0875…0881 }
0x0881…088b 9e79 1130 PRINT QT$ ;
0x0881…088b LineComal80 {
0x0881…088b ptr = 0x9e79 // 0x881 @0x0
0x0881…088b lno = 0x046a // 0x883 @0x2
0x0881…088b at0004 = ╱92╱ PRINT ╱ // 0x885 @0x4
0x0881…088b at0005 = ╱51╱Q╱ // 0x886 @0x5
0x0881…088b at0006 = ╱54╱T╱ // 0x887 @0x6
0x0881…088b at0007 = ╱ef╱$╱ // 0x888 @0x7
0x0881…088b at0008 = ╱ea╱ ; ╱ // 0x889 @0x8
0x0881…088b at0009 = EOL // 0x88a @0x9
0x0881…088b }
0x088b…08a8 9e96 1140 PRINT USING "#########.## KR." : PRB
0x088b…08a8 LineComal80 {
0x088b…08a8 ptr = 0x9e96 // 0x88b @0x0
0x088b…08a8 lno = 0x0474 // 0x88d @0x2
0x088b…08a8 at0004 = ╱92╱ PRINT ╱ // 0x88f @0x4
0x088b…08a8 at0005 = ╱b9╱ USING ╱ // 0x890 @0x5
0x088b…08a8 at0006 = ╱22╱"╱ // 0x891 @0x6
0x088b…08a8 at0007 = ╱23╱#╱ // 0x892 @0x7
0x088b…08a8 at0008 = ╱23╱#╱ // 0x893 @0x8
0x088b…08a8 at0009 = ╱23╱#╱ // 0x894 @0x9
0x088b…08a8 at000a = ╱23╱#╱ // 0x895 @0xa
0x088b…08a8 at000b = ╱23╱#╱ // 0x896 @0xb
0x088b…08a8 at000c = ╱23╱#╱ // 0x897 @0xc
0x088b…08a8 at000d = ╱23╱#╱ // 0x898 @0xd
0x088b…08a8 at000e = ╱23╱#╱ // 0x899 @0xe
0x088b…08a8 at000f = ╱23╱#╱ // 0x89a @0xf
0x088b…08a8 at0010 = ╱2e╱.╱ // 0x89b @0x10
0x088b…08a8 at0011 = ╱23╱#╱ // 0x89c @0x11
0x088b…08a8 at0012 = ╱23╱#╱ // 0x89d @0x12
0x088b…08a8 at0013 = ╱20╱…╱ // 0x89e @0x13
0x088b…08a8 at0014 = ╱4b╱K╱ // 0x89f @0x14
0x088b…08a8 at0015 = ╱52╱R╱ // 0x8a0 @0x15
0x088b…08a8 at0016 = ╱2e╱.╱ // 0x8a1 @0x16
0x088b…08a8 at0017 = ╱22╱"╱ // 0x8a2 @0x17
0x088b…08a8 at0018 = ╱f1╱ : ╱ // 0x8a3 @0x18
0x088b…08a8 at0019 = ╱50╱P╱ // 0x8a4 @0x19
0x088b…08a8 at001a = ╱52╱R╱ // 0x8a5 @0x1a
0x088b…08a8 at001b = ╱42╱B╱ // 0x8a6 @0x1b
0x088b…08a8 at001c = EOL // 0x8a7 @0x1c
0x088b…08a8 }
0x08a8…08b5 9ea3 1150 ENDPROC LSKRIV2
0x08a8…08b5 LineComal80 {
0x08a8…08b5 ptr = 0x9ea3 // 0x8a8 @0x0
0x08a8…08b5 lno = 0x047e // 0x8aa @0x2
0x08a8…08b5 at0004 = ╱9f╱ ENDPROC ╱ // 0x8ac @0x4
0x08a8…08b5 at0005 = ╱4c╱L╱ // 0x8ad @0x5
0x08a8…08b5 at0006 = ╱53╱S╱ // 0x8ae @0x6
0x08a8…08b5 at0007 = ╱4b╱K╱ // 0x8af @0x7
0x08a8…08b5 at0008 = ╱52╱R╱ // 0x8b0 @0x8
0x08a8…08b5 at0009 = ╱49╱I╱ // 0x8b1 @0x9
0x08a8…08b5 at000a = ╱56╱V╱ // 0x8b2 @0xa
0x08a8…08b5 at000b = ╱32╱2╱ // 0x8b3 @0xb
0x08a8…08b5 at000c = EOL // 0x8b4 @0xc
0x08a8…08b5 }
0x08b5…08c3 9eb1 1160 PROC LSKRIV1
0x08b5…08c3 LineComal80 {
0x08b5…08c3 ptr = 0x9eb1 // 0x8b5 @0x0
0x08b5…08c3 lno = 0x0488 // 0x8b7 @0x2
0x08b5…08c3 at0004 = ╱9e12╱ PROC ╱ // 0x8b9 @0x4
0x08b5…08c3 at0006 = ╱4c╱L╱ // 0x8bb @0x6
0x08b5…08c3 at0007 = ╱53╱S╱ // 0x8bc @0x7
0x08b5…08c3 at0008 = ╱4b╱K╱ // 0x8bd @0x8
0x08b5…08c3 at0009 = ╱52╱R╱ // 0x8be @0x9
0x08b5…08c3 at000a = ╱49╱I╱ // 0x8bf @0xa
0x08b5…08c3 at000b = ╱56╱V╱ // 0x8c0 @0xb
0x08b5…08c3 at000c = ╱31╱1╱ // 0x8c1 @0xc
0x08b5…08c3 at000d = EOL // 0x8c2 @0xd
0x08b5…08c3 }
0x08c3…08cf 9ebd 1170 LET PRB := QB
0x08c3…08cf LineComal80 {
0x08c3…08cf ptr = 0x9ebd // 0x8c3 @0x0
0x08c3…08cf lno = 0x0492 // 0x8c5 @0x2
0x08c3…08cf at0004 = ╱86╱ LET ╱ // 0x8c7 @0x4
0x08c3…08cf at0005 = ╱50╱P╱ // 0x8c8 @0x5
0x08c3…08cf at0006 = ╱52╱R╱ // 0x8c9 @0x6
0x08c3…08cf at0007 = ╱42╱B╱ // 0x8ca @0x7
0x08c3…08cf at0008 = ╱f0╱ := ╱ // 0x8cb @0x8
0x08c3…08cf at0009 = ╱51╱Q╱ // 0x8cc @0x9
0x08c3…08cf at000a = ╱42╱B╱ // 0x8cd @0xa
0x08c3…08cf at000b = EOL // 0x8ce @0xb
0x08c3…08cf }
0x08cf…08d9 9ec7 1180 PRINT QT$ ;
0x08cf…08d9 LineComal80 {
0x08cf…08d9 ptr = 0x9ec7 // 0x8cf @0x0
0x08cf…08d9 lno = 0x049c // 0x8d1 @0x2
0x08cf…08d9 at0004 = ╱92╱ PRINT ╱ // 0x8d3 @0x4
0x08cf…08d9 at0005 = ╱51╱Q╱ // 0x8d4 @0x5
0x08cf…08d9 at0006 = ╱54╱T╱ // 0x8d5 @0x6
0x08cf…08d9 at0007 = ╱ef╱$╱ // 0x8d6 @0x7
0x08cf…08d9 at0008 = ╱ea╱ ; ╱ // 0x8d7 @0x8
0x08cf…08d9 at0009 = EOL // 0x8d8 @0x9
0x08cf…08d9 }
0x08d9…08f3 9ee1 1190 PRINT USING "######### KR." : PRB
0x08d9…08f3 LineComal80 {
0x08d9…08f3 ptr = 0x9ee1 // 0x8d9 @0x0
0x08d9…08f3 lno = 0x04a6 // 0x8db @0x2
0x08d9…08f3 at0004 = ╱92╱ PRINT ╱ // 0x8dd @0x4
0x08d9…08f3 at0005 = ╱b9╱ USING ╱ // 0x8de @0x5
0x08d9…08f3 at0006 = ╱22╱"╱ // 0x8df @0x6
0x08d9…08f3 at0007 = ╱23╱#╱ // 0x8e0 @0x7
0x08d9…08f3 at0008 = ╱23╱#╱ // 0x8e1 @0x8
0x08d9…08f3 at0009 = ╱23╱#╱ // 0x8e2 @0x9
0x08d9…08f3 at000a = ╱23╱#╱ // 0x8e3 @0xa
0x08d9…08f3 at000b = ╱23╱#╱ // 0x8e4 @0xb
0x08d9…08f3 at000c = ╱23╱#╱ // 0x8e5 @0xc
0x08d9…08f3 at000d = ╱23╱#╱ // 0x8e6 @0xd
0x08d9…08f3 at000e = ╱23╱#╱ // 0x8e7 @0xe
0x08d9…08f3 at000f = ╱23╱#╱ // 0x8e8 @0xf
0x08d9…08f3 at0010 = ╱20╱…╱ // 0x8e9 @0x10
0x08d9…08f3 at0011 = ╱4b╱K╱ // 0x8ea @0x11
0x08d9…08f3 at0012 = ╱52╱R╱ // 0x8eb @0x12
0x08d9…08f3 at0013 = ╱2e╱.╱ // 0x8ec @0x13
0x08d9…08f3 at0014 = ╱22╱"╱ // 0x8ed @0x14
0x08d9…08f3 at0015 = ╱f1╱ : ╱ // 0x8ee @0x15
0x08d9…08f3 at0016 = ╱50╱P╱ // 0x8ef @0x16
0x08d9…08f3 at0017 = ╱52╱R╱ // 0x8f0 @0x17
0x08d9…08f3 at0018 = ╱42╱B╱ // 0x8f1 @0x18
0x08d9…08f3 at0019 = EOL // 0x8f2 @0x19
0x08d9…08f3 }
0x08f3…0900 9eee 1200 ENDPROC LSKRIV1
0x08f3…0900 LineComal80 {
0x08f3…0900 ptr = 0x9eee // 0x8f3 @0x0
0x08f3…0900 lno = 0x04b0 // 0x8f5 @0x2
0x08f3…0900 at0004 = ╱9f╱ ENDPROC ╱ // 0x8f7 @0x4
0x08f3…0900 at0005 = ╱4c╱L╱ // 0x8f8 @0x5
0x08f3…0900 at0006 = ╱53╱S╱ // 0x8f9 @0x6
0x08f3…0900 at0007 = ╱4b╱K╱ // 0x8fa @0x7
0x08f3…0900 at0008 = ╱52╱R╱ // 0x8fb @0x8
0x08f3…0900 at0009 = ╱49╱I╱ // 0x8fc @0x9
0x08f3…0900 at000a = ╱56╱V╱ // 0x8fd @0xa
0x08f3…0900 at000b = ╱31╱1╱ // 0x8fe @0xb
0x08f3…0900 at000c = EOL // 0x8ff @0xc
0x08f3…0900 }
0x0900…090e 9efc 1210 PROC LSKRIV4
0x0900…090e LineComal80 {
0x0900…090e ptr = 0x9efc // 0x900 @0x0
0x0900…090e lno = 0x04ba // 0x902 @0x2
0x0900…090e at0004 = ╱9e13╱ PROC ╱ // 0x904 @0x4
0x0900…090e at0006 = ╱4c╱L╱ // 0x906 @0x6
0x0900…090e at0007 = ╱53╱S╱ // 0x907 @0x7
0x0900…090e at0008 = ╱4b╱K╱ // 0x908 @0x8
0x0900…090e at0009 = ╱52╱R╱ // 0x909 @0x9
0x0900…090e at000a = ╱49╱I╱ // 0x90a @0xa
0x0900…090e at000b = ╱56╱V╱ // 0x90b @0xb
0x0900…090e at000c = ╱34╱4╱ // 0x90c @0xc
0x0900…090e at000d = EOL // 0x90d @0xd
0x0900…090e }
0x090e…091a 9f08 1220 LET PRB := QB
0x090e…091a LineComal80 {
0x090e…091a ptr = 0x9f08 // 0x90e @0x0
0x090e…091a lno = 0x04c4 // 0x910 @0x2
0x090e…091a at0004 = ╱86╱ LET ╱ // 0x912 @0x4
0x090e…091a at0005 = ╱50╱P╱ // 0x913 @0x5
0x090e…091a at0006 = ╱52╱R╱ // 0x914 @0x6
0x090e…091a at0007 = ╱42╱B╱ // 0x915 @0x7
0x090e…091a at0008 = ╱f0╱ := ╱ // 0x916 @0x8
0x090e…091a at0009 = ╱51╱Q╱ // 0x917 @0x9
0x090e…091a at000a = ╱42╱B╱ // 0x918 @0xa
0x090e…091a at000b = EOL // 0x919 @0xb
0x090e…091a }
0x091a…0924 9f12 1230 PRINT QT$ ;
0x091a…0924 LineComal80 {
0x091a…0924 ptr = 0x9f12 // 0x91a @0x0
0x091a…0924 lno = 0x04ce // 0x91c @0x2
0x091a…0924 at0004 = ╱92╱ PRINT ╱ // 0x91e @0x4
0x091a…0924 at0005 = ╱51╱Q╱ // 0x91f @0x5
0x091a…0924 at0006 = ╱54╱T╱ // 0x920 @0x6
0x091a…0924 at0007 = ╱ef╱$╱ // 0x921 @0x7
0x091a…0924 at0008 = ╱ea╱ ; ╱ // 0x922 @0x8
0x091a…0924 at0009 = EOL // 0x923 @0x9
0x091a…0924 }
0x0924…093f 9f2d 1240 PRINT USING "######### PCT." : PRB
0x0924…093f LineComal80 {
0x0924…093f ptr = 0x9f2d // 0x924 @0x0
0x0924…093f lno = 0x04d8 // 0x926 @0x2
0x0924…093f at0004 = ╱92╱ PRINT ╱ // 0x928 @0x4
0x0924…093f at0005 = ╱b9╱ USING ╱ // 0x929 @0x5
0x0924…093f at0006 = ╱22╱"╱ // 0x92a @0x6
0x0924…093f at0007 = ╱23╱#╱ // 0x92b @0x7
0x0924…093f at0008 = ╱23╱#╱ // 0x92c @0x8
0x0924…093f at0009 = ╱23╱#╱ // 0x92d @0x9
0x0924…093f at000a = ╱23╱#╱ // 0x92e @0xa
0x0924…093f at000b = ╱23╱#╱ // 0x92f @0xb
0x0924…093f at000c = ╱23╱#╱ // 0x930 @0xc
0x0924…093f at000d = ╱23╱#╱ // 0x931 @0xd
0x0924…093f at000e = ╱23╱#╱ // 0x932 @0xe
0x0924…093f at000f = ╱23╱#╱ // 0x933 @0xf
0x0924…093f at0010 = ╱20╱…╱ // 0x934 @0x10
0x0924…093f at0011 = ╱50╱P╱ // 0x935 @0x11
0x0924…093f at0012 = ╱43╱C╱ // 0x936 @0x12
0x0924…093f at0013 = ╱54╱T╱ // 0x937 @0x13
0x0924…093f at0014 = ╱2e╱.╱ // 0x938 @0x14
0x0924…093f at0015 = ╱22╱"╱ // 0x939 @0x15
0x0924…093f at0016 = ╱f1╱ : ╱ // 0x93a @0x16
0x0924…093f at0017 = ╱50╱P╱ // 0x93b @0x17
0x0924…093f at0018 = ╱52╱R╱ // 0x93c @0x18
0x0924…093f at0019 = ╱42╱B╱ // 0x93d @0x19
0x0924…093f at001a = EOL // 0x93e @0x1a
0x0924…093f }
0x093f…094c 9f3a 1250 ENDPROC LSKRIV4
0x093f…094c LineComal80 {
0x093f…094c ptr = 0x9f3a // 0x93f @0x0
0x093f…094c lno = 0x04e2 // 0x941 @0x2
0x093f…094c at0004 = ╱9f╱ ENDPROC ╱ // 0x943 @0x4
0x093f…094c at0005 = ╱4c╱L╱ // 0x944 @0x5
0x093f…094c at0006 = ╱53╱S╱ // 0x945 @0x6
0x093f…094c at0007 = ╱4b╱K╱ // 0x946 @0x7
0x093f…094c at0008 = ╱52╱R╱ // 0x947 @0x8
0x093f…094c at0009 = ╱49╱I╱ // 0x948 @0x9
0x093f…094c at000a = ╱56╱V╱ // 0x949 @0xa
0x093f…094c at000b = ╱34╱4╱ // 0x94a @0xb
0x093f…094c at000c = EOL // 0x94b @0xc
0x093f…094c }
0x094c…0957 9f45 1260 PROC SVAR
0x094c…0957 LineComal80 {
0x094c…0957 ptr = 0x9f45 // 0x94c @0x0
0x094c…0957 lno = 0x04ec // 0x94e @0x2
0x094c…0957 at0004 = ╱9e14╱ PROC ╱ // 0x950 @0x4
0x094c…0957 at0006 = ╱53╱S╱ // 0x952 @0x6
0x094c…0957 at0007 = ╱56╱V╱ // 0x953 @0x7
0x094c…0957 at0008 = ╱41╱A╱ // 0x954 @0x8
0x094c…0957 at0009 = ╱52╱R╱ // 0x955 @0x9
0x094c…0957 at000a = EOL // 0x956 @0xa
0x094c…0957 }
0x0957…095e 9f4c 1270 REPEAT
0x0957…095e LineComal80 {
0x0957…095e ptr = 0x9f4c // 0x957 @0x0
0x0957…095e lno = 0x04f6 // 0x959 @0x2
0x0957…095e at0004 = ╱9715╱ REPEAT ╱ // 0x95b @0x4
0x0957…095e at0006 = EOL // 0x95d @0x6
0x0957…095e }
0x095e…0966 9f54 1280 INPUT S$
0x095e…0966 LineComal80 {
0x095e…0966 ptr = 0x9f54 // 0x95e @0x0
0x095e…0966 lno = 0x0500 // 0x960 @0x2
0x095e…0966 at0004 = ╱91╱ INPUT ╱ // 0x962 @0x4
0x095e…0966 at0005 = ╱53╱S╱ // 0x963 @0x5
0x095e…0966 at0006 = ╱ef╱$╱ // 0x964 @0x6
0x095e…0966 at0007 = EOL // 0x965 @0x7
0x095e…0966 }
0x0966…097b 9f69 1290 IF $ = "q" OR S$ = "Q" THEN
0x0966…097b LineComal80 {
0x0966…097b ptr = 0x9f69 // 0x966 @0x0
0x0966…097b lno = 0x050a // 0x968 @0x2
0x0966…097b at0004 = ╱9b1653╱ IF ╱ // 0x96a @0x4
0x0966…097b at0007 = ╱ef╱$╱ // 0x96d @0x7
0x0966…097b at0008 = ╱df╱ = ╱ // 0x96e @0x8
0x0966…097b at0009 = ╱22╱"╱ // 0x96f @0x9
0x0966…097b at000a = ╱71╱q╱ // 0x970 @0xa
0x0966…097b at000b = ╱22╱"╱ // 0x971 @0xb
0x0966…097b at000c = ╱d8╱ OR ╱ // 0x972 @0xc
0x0966…097b at000d = ╱53╱S╱ // 0x973 @0xd
0x0966…097b at000e = ╱ef╱$╱ // 0x974 @0xe
0x0966…097b at000f = ╱df╱ = ╱ // 0x975 @0xf
0x0966…097b at0010 = ╱22╱"╱ // 0x976 @0x10
0x0966…097b at0011 = ╱51╱Q╱ // 0x977 @0x11
0x0966…097b at0012 = ╱22╱"╱ // 0x978 @0x12
0x0966…097b at0013 = ╱b5╱ THEN ╱ // 0x979 @0x13
0x0966…097b at0014 = EOL // 0x97a @0x14
0x0966…097b }
0x097b…09bc 9faa 1300 PRINT "Programmet kan kun afsluttes fra hovedprogrammet." ; CHR$ (7)
0x097b…09bc LineComal80 {
0x097b…09bc ptr = 0x9faa // 0x97b @0x0
0x097b…09bc lno = 0x0514 // 0x97d @0x2
0x097b…09bc at0004 = ╱92╱ PRINT ╱ // 0x97f @0x4
0x097b…09bc at0005 = ╱22╱"╱ // 0x980 @0x5
0x097b…09bc at0006 = ╱50╱P╱ // 0x981 @0x6
0x097b…09bc at0007 = ╱72╱r╱ // 0x982 @0x7
0x097b…09bc at0008 = ╱6f╱o╱ // 0x983 @0x8
0x097b…09bc at0009 = ╱67╱g╱ // 0x984 @0x9
0x097b…09bc at000a = ╱72╱r╱ // 0x985 @0xa
0x097b…09bc at000b = ╱61╱a╱ // 0x986 @0xb
0x097b…09bc at000c = ╱6d╱m╱ // 0x987 @0xc
0x097b…09bc at000d = ╱6d╱m╱ // 0x988 @0xd
0x097b…09bc at000e = ╱65╱e╱ // 0x989 @0xe
0x097b…09bc at000f = ╱74╱t╱ // 0x98a @0xf
0x097b…09bc at0010 = ╱20╱…╱ // 0x98b @0x10
0x097b…09bc at0011 = ╱6b╱k╱ // 0x98c @0x11
0x097b…09bc at0012 = ╱61╱a╱ // 0x98d @0x12
0x097b…09bc at0013 = ╱6e╱n╱ // 0x98e @0x13
0x097b…09bc at0014 = ╱20╱…╱ // 0x98f @0x14
0x097b…09bc at0015 = ╱6b╱k╱ // 0x990 @0x15
0x097b…09bc at0016 = ╱75╱u╱ // 0x991 @0x16
0x097b…09bc at0017 = ╱6e╱n╱ // 0x992 @0x17
0x097b…09bc at0018 = ╱20╱…╱ // 0x993 @0x18
0x097b…09bc at0019 = ╱61╱a╱ // 0x994 @0x19
0x097b…09bc at001a = ╱66╱f╱ // 0x995 @0x1a
0x097b…09bc at001b = ╱73╱s╱ // 0x996 @0x1b
0x097b…09bc at001c = ╱6c╱l╱ // 0x997 @0x1c
0x097b…09bc at001d = ╱75╱u╱ // 0x998 @0x1d
0x097b…09bc at001e = ╱74╱t╱ // 0x999 @0x1e
0x097b…09bc at001f = ╱74╱t╱ // 0x99a @0x1f
0x097b…09bc at0020 = ╱65╱e╱ // 0x99b @0x20
0x097b…09bc at0021 = ╱73╱s╱ // 0x99c @0x21
0x097b…09bc at0022 = ╱20╱…╱ // 0x99d @0x22
0x097b…09bc at0023 = ╱66╱f╱ // 0x99e @0x23
0x097b…09bc at0024 = ╱72╱r╱ // 0x99f @0x24
0x097b…09bc at0025 = ╱61╱a╱ // 0x9a0 @0x25
0x097b…09bc at0026 = ╱20╱…╱ // 0x9a1 @0x26
0x097b…09bc at0027 = ╱68╱h╱ // 0x9a2 @0x27
0x097b…09bc at0028 = ╱6f╱o╱ // 0x9a3 @0x28
0x097b…09bc at0029 = ╱76╱v╱ // 0x9a4 @0x29
0x097b…09bc at002a = ╱65╱e╱ // 0x9a5 @0x2a
0x097b…09bc at002b = ╱64╱d╱ // 0x9a6 @0x2b
0x097b…09bc at002c = ╱70╱p╱ // 0x9a7 @0x2c
0x097b…09bc at002d = ╱72╱r╱ // 0x9a8 @0x2d
0x097b…09bc at002e = ╱6f╱o╱ // 0x9a9 @0x2e
0x097b…09bc at002f = ╱67╱g╱ // 0x9aa @0x2f
0x097b…09bc at0030 = ╱72╱r╱ // 0x9ab @0x30
0x097b…09bc at0031 = ╱61╱a╱ // 0x9ac @0x31
0x097b…09bc at0032 = ╱6d╱m╱ // 0x9ad @0x32
0x097b…09bc at0033 = ╱6d╱m╱ // 0x9ae @0x33
0x097b…09bc at0034 = ╱65╱e╱ // 0x9af @0x34
0x097b…09bc at0035 = ╱74╱t╱ // 0x9b0 @0x35
0x097b…09bc at0036 = ╱2e╱.╱ // 0x9b1 @0x36
0x097b…09bc at0037 = ╱22╱"╱ // 0x9b2 @0x37
0x097b…09bc at0038 = ╱ea╱ ; ╱ // 0x9b3 @0x38
0x097b…09bc at0039 = ╱d0╱ CHR$ ╱ // 0x9b4 @0x39
0x097b…09bc at003a = ╱ed╱(╱ // 0x9b5 @0x3a
0x097b…09bc at003b = ╱37╱7╱ // 0x9b6 @0x3b
0x097b…09bc at003c = ╱f20700╱ // 0x9b7 @0x3c
0x097b…09bc at003f = ╱ee╱)╱ // 0x9ba @0x3f
0x097b…09bc at0040 = EOL // 0x9bb @0x40
0x097b…09bc }
0x09bc…09c2 9fb0 1310 ENDIF
0x09bc…09c2 LineComal80 {
0x09bc…09c2 ptr = 0x9fb0 // 0x9bc @0x0
0x09bc…09c2 lno = 0x051e // 0x9be @0x2
0x09bc…09c2 at0004 = ╱9c╱ ENDIF ╱ // 0x9c0 @0x4
0x09bc…09c2 at0005 = EOL // 0x9c1 @0x5
0x09bc…09c2 }
0x09c2…09d5 9fc3 1320 UNTIL S$ = "j" OR S$ = "n"
0x09c2…09d5 LineComal80 {
0x09c2…09d5 ptr = 0x9fc3 // 0x9c2 @0x0
0x09c2…09d5 lno = 0x0528 // 0x9c4 @0x2
0x09c2…09d5 at0004 = ╱98╱ UNTIL ╱ // 0x9c6 @0x4
0x09c2…09d5 at0005 = ╱53╱S╱ // 0x9c7 @0x5
0x09c2…09d5 at0006 = ╱ef╱$╱ // 0x9c8 @0x6
0x09c2…09d5 at0007 = ╱df╱ = ╱ // 0x9c9 @0x7
0x09c2…09d5 at0008 = ╱22╱"╱ // 0x9ca @0x8
0x09c2…09d5 at0009 = ╱6a╱j╱ // 0x9cb @0x9
0x09c2…09d5 at000a = ╱22╱"╱ // 0x9cc @0xa
0x09c2…09d5 at000b = ╱d8╱ OR ╱ // 0x9cd @0xb
0x09c2…09d5 at000c = ╱53╱S╱ // 0x9ce @0xc
0x09c2…09d5 at000d = ╱ef╱$╱ // 0x9cf @0xd
0x09c2…09d5 at000e = ╱df╱ = ╱ // 0x9d0 @0xe
0x09c2…09d5 at000f = ╱22╱"╱ // 0x9d1 @0xf
0x09c2…09d5 at0010 = ╱6e╱n╱ // 0x9d2 @0x10
0x09c2…09d5 at0011 = ╱22╱"╱ // 0x9d3 @0x11
0x09c2…09d5 at0012 = EOL // 0x9d4 @0x12
0x09c2…09d5 }
0x09d5…09de 9fcc 1330 PRINT LI$
0x09d5…09de LineComal80 {
0x09d5…09de ptr = 0x9fcc // 0x9d5 @0x0
0x09d5…09de lno = 0x0532 // 0x9d7 @0x2
0x09d5…09de at0004 = ╱92╱ PRINT ╱ // 0x9d9 @0x4
0x09d5…09de at0005 = ╱4c╱L╱ // 0x9da @0x5
0x09d5…09de at0006 = ╱49╱I╱ // 0x9db @0x6
0x09d5…09de at0007 = ╱ef╱$╱ // 0x9dc @0x7
0x09d5…09de at0008 = EOL // 0x9dd @0x8
0x09d5…09de }
0x09de…09e8 9fd6 1340 ENDPROC SVAR
0x09de…09e8 LineComal80 {
0x09de…09e8 ptr = 0x9fd6 // 0x9de @0x0
0x09de…09e8 lno = 0x053c // 0x9e0 @0x2
0x09de…09e8 at0004 = ╱9f╱ ENDPROC ╱ // 0x9e2 @0x4
0x09de…09e8 at0005 = ╱53╱S╱ // 0x9e3 @0x5
0x09de…09e8 at0006 = ╱56╱V╱ // 0x9e4 @0x6
0x09de…09e8 at0007 = ╱41╱A╱ // 0x9e5 @0x7
0x09de…09e8 at0008 = ╱52╱R╱ // 0x9e6 @0x8
0x09de…09e8 at0009 = EOL // 0x9e7 @0x9
0x09de…09e8 }
0x09e8…09f5 9fe3 1350 PROC LSKRIV
0x09e8…09f5 LineComal80 {
0x09e8…09f5 ptr = 0x9fe3 // 0x9e8 @0x0
0x09e8…09f5 lno = 0x0546 // 0x9ea @0x2
0x09e8…09f5 at0004 = ╱9e17╱ PROC ╱ // 0x9ec @0x4
0x09e8…09f5 at0006 = ╱4c╱L╱ // 0x9ee @0x6
0x09e8…09f5 at0007 = ╱53╱S╱ // 0x9ef @0x7
0x09e8…09f5 at0008 = ╱4b╱K╱ // 0x9f0 @0x8
0x09e8…09f5 at0009 = ╱52╱R╱ // 0x9f1 @0x9
0x09e8…09f5 at000a = ╱49╱I╱ // 0x9f2 @0xa
0x09e8…09f5 at000b = ╱56╱V╱ // 0x9f3 @0xb
0x09e8…09f5 at000c = EOL // 0x9f4 @0xc
0x09e8…09f5 }
0x09f5…09fb 9fe9 1360 PRINT
0x09f5…09fb LineComal80 {
0x09f5…09fb ptr = 0x9fe9 // 0x9f5 @0x0
0x09f5…09fb lno = 0x0550 // 0x9f7 @0x2
0x09f5…09fb at0004 = ╱92╱ PRINT ╱ // 0x9f9 @0x4
0x09f5…09fb at0005 = EOL // 0x9fa @0x5
0x09f5…09fb }
0x09fb…0a07 9ff5 1370 ENDPROC LSKRIV
0x09fb…0a07 LineComal80 {
0x09fb…0a07 ptr = 0x9ff5 // 0x9fb @0x0
0x09fb…0a07 lno = 0x055a // 0x9fd @0x2
0x09fb…0a07 at0004 = ╱9f╱ ENDPROC ╱ // 0x9ff @0x4
0x09fb…0a07 at0005 = ╱4c╱L╱ // 0xa00 @0x5
0x09fb…0a07 at0006 = ╱53╱S╱ // 0xa01 @0x6
0x09fb…0a07 at0007 = ╱4b╱K╱ // 0xa02 @0x7
0x09fb…0a07 at0008 = ╱52╱R╱ // 0xa03 @0x8
0x09fb…0a07 at0009 = ╱49╱I╱ // 0xa04 @0x9
0x09fb…0a07 at000a = ╱56╱V╱ // 0xa05 @0xa
0x09fb…0a07 at000b = EOL // 0xa06 @0xb
0x09fb…0a07 }
0x0a07…0a15 a003 1380 PROC LSKRIV3
0x0a07…0a15 LineComal80 {
0x0a07…0a15 ptr = 0xa003 // 0xa07 @0x0
0x0a07…0a15 lno = 0x0564 // 0xa09 @0x2
0x0a07…0a15 at0004 = ╱9e18╱ PROC ╱ // 0xa0b @0x4
0x0a07…0a15 at0006 = ╱4c╱L╱ // 0xa0d @0x6
0x0a07…0a15 at0007 = ╱53╱S╱ // 0xa0e @0x7
0x0a07…0a15 at0008 = ╱4b╱K╱ // 0xa0f @0x8
0x0a07…0a15 at0009 = ╱52╱R╱ // 0xa10 @0x9
0x0a07…0a15 at000a = ╱49╱I╱ // 0xa11 @0xa
0x0a07…0a15 at000b = ╱56╱V╱ // 0xa12 @0xb
0x0a07…0a15 at000c = ╱33╱3╱ // 0xa13 @0xc
0x0a07…0a15 at000d = EOL // 0xa14 @0xd
0x0a07…0a15 }
0x0a15…0a1e a00c 1390 PRINT QT$
0x0a15…0a1e LineComal80 {
0x0a15…0a1e ptr = 0xa00c // 0xa15 @0x0
0x0a15…0a1e lno = 0x056e // 0xa17 @0x2
0x0a15…0a1e at0004 = ╱92╱ PRINT ╱ // 0xa19 @0x4
0x0a15…0a1e at0005 = ╱51╱Q╱ // 0xa1a @0x5
0x0a15…0a1e at0006 = ╱54╱T╱ // 0xa1b @0x6
0x0a15…0a1e at0007 = ╱ef╱$╱ // 0xa1c @0x7
0x0a15…0a1e at0008 = EOL // 0xa1d @0x8
0x0a15…0a1e }
0x0a1e…0a2b a019 1400 ENDPROC LSKRIV3
0x0a1e…0a2b LineComal80 {
0x0a1e…0a2b ptr = 0xa019 // 0xa1e @0x0
0x0a1e…0a2b lno = 0x0578 // 0xa20 @0x2
0x0a1e…0a2b at0004 = ╱9f╱ ENDPROC ╱ // 0xa22 @0x4
0x0a1e…0a2b at0005 = ╱4c╱L╱ // 0xa23 @0x5
0x0a1e…0a2b at0006 = ╱53╱S╱ // 0xa24 @0x6
0x0a1e…0a2b at0007 = ╱4b╱K╱ // 0xa25 @0x7
0x0a1e…0a2b at0008 = ╱52╱R╱ // 0xa26 @0x8
0x0a1e…0a2b at0009 = ╱49╱I╱ // 0xa27 @0x9
0x0a1e…0a2b at000a = ╱56╱V╱ // 0xa28 @0xa
0x0a1e…0a2b at000b = ╱33╱3╱ // 0xa29 @0xb
0x0a1e…0a2b at000c = EOL // 0xa2a @0xc
0x0a1e…0a2b }
0x0a2b…0a38 a026 1410 PROC ÅRSOPG
0x0a2b…0a38 LineComal80 {
0x0a2b…0a38 ptr = 0xa026 // 0xa2b @0x0
0x0a2b…0a38 lno = 0x0582 // 0xa2d @0x2
0x0a2b…0a38 at0004 = ╱9e19╱ PROC ╱ // 0xa2f @0x4
0x0a2b…0a38 at0006 = ╱5d╱Å╱ // 0xa31 @0x6
0x0a2b…0a38 at0007 = ╱52╱R╱ // 0xa32 @0x7
0x0a2b…0a38 at0008 = ╱53╱S╱ // 0xa33 @0x8
0x0a2b…0a38 at0009 = ╱4f╱O╱ // 0xa34 @0x9
0x0a2b…0a38 at000a = ╱50╱P╱ // 0xa35 @0xa
0x0a2b…0a38 at000b = ╱47╱G╱ // 0xa36 @0xb
0x0a2b…0a38 at000c = EOL // 0xa37 @0xc
0x0a2b…0a38 }
0x0a38…0a4d a03b 1420 IF Y = 1 THEN LET DD6 := D6
0x0a38…0a4d LineComal80 {
0x0a38…0a4d ptr = 0xa03b // 0xa38 @0x0
0x0a38…0a4d lno = 0x058c // 0xa3a @0x2
0x0a38…0a4d at0004 = ╱8200╱ IF ╱ // 0xa3c @0x4
0x0a38…0a4d at0006 = ╱59╱Y╱ // 0xa3e @0x6
0x0a38…0a4d at0007 = ╱df╱ = ╱ // 0xa3f @0x7
0x0a38…0a4d at0008 = ╱31╱1╱ // 0xa40 @0x8
0x0a38…0a4d at0009 = ╱f20100╱ // 0xa41 @0x9
0x0a38…0a4d at000c = ╱b5╱ THEN ╱ // 0xa44 @0xc
0x0a38…0a4d at000d = ╱86╱ LET ╱ // 0xa45 @0xd
0x0a38…0a4d at000e = ╱44╱D╱ // 0xa46 @0xe
0x0a38…0a4d at000f = ╱44╱D╱ // 0xa47 @0xf
0x0a38…0a4d at0010 = ╱36╱6╱ // 0xa48 @0x10
0x0a38…0a4d at0011 = ╱f0╱ := ╱ // 0xa49 @0x11
0x0a38…0a4d at0012 = ╱44╱D╱ // 0xa4a @0x12
0x0a38…0a4d at0013 = ╱36╱6╱ // 0xa4b @0x13
0x0a38…0a4d at0014 = EOL // 0xa4c @0x14
0x0a38…0a4d }
0x0a4d…0a63 a051 1430 LET A(27) := SKG + AKT
0x0a4d…0a63 LineComal80 {
0x0a4d…0a63 ptr = 0xa051 // 0xa4d @0x0
0x0a4d…0a63 lno = 0x0596 // 0xa4f @0x2
0x0a4d…0a63 at0004 = ╱86╱ LET ╱ // 0xa51 @0x4
0x0a4d…0a63 at0005 = ╱41╱A╱ // 0xa52 @0x5
0x0a4d…0a63 at0006 = ╱ed╱(╱ // 0xa53 @0x6
0x0a4d…0a63 at0007 = ╱32╱2╱ // 0xa54 @0x7
0x0a4d…0a63 at0008 = ╱37╱7╱ // 0xa55 @0x8
0x0a4d…0a63 at0009 = ╱f21b00╱ // 0xa56 @0x9
0x0a4d…0a63 at000c = ╱ee╱)╱ // 0xa59 @0xc
0x0a4d…0a63 at000d = ╱f0╱ := ╱ // 0xa5a @0xd
0x0a4d…0a63 at000e = ╱53╱S╱ // 0xa5b @0xe
0x0a4d…0a63 at000f = ╱4b╱K╱ // 0xa5c @0xf
0x0a4d…0a63 at0010 = ╱47╱G╱ // 0xa5d @0x10
0x0a4d…0a63 at0011 = ╱e5╱ + ╱ // 0xa5e @0x11
0x0a4d…0a63 at0012 = ╱41╱A╱ // 0xa5f @0x12
0x0a4d…0a63 at0013 = ╱4b╱K╱ // 0xa60 @0x13
0x0a4d…0a63 at0014 = ╱54╱T╱ // 0xa61 @0x14
0x0a4d…0a63 at0015 = EOL // 0xa62 @0x15
0x0a4d…0a63 }
0x0a63…0a69 a7b4 1440 PRINT
0x0a63…0a69 LineComal80 {
0x0a63…0a69 ptr = 0xa7b4 // 0xa63 @0x0
0x0a63…0a69 lno = 0x05a0 // 0xa65 @0x2
0x0a63…0a69 at0004 = ╱92╱ PRINT ╱ // 0xa67 @0x4
0x0a63…0a69 at0005 = EOL // 0xa68 @0x5
0x0a63…0a69 }
0x0a69…0a97 a085 1450 LET QT$ := "SLUTSKAT" + PIL$(1 : 23) ; QB := INT(D6)
0x0a69…0a97 LineComal80 {
0x0a69…0a97 ptr = 0xa085 // 0xa69 @0x0
0x0a69…0a97 lno = 0x05aa // 0xa6b @0x2
0x0a69…0a97 at0004 = ╱86╱ LET ╱ // 0xa6d @0x4
0x0a69…0a97 at0005 = ╱51╱Q╱ // 0xa6e @0x5
0x0a69…0a97 at0006 = ╱54╱T╱ // 0xa6f @0x6
0x0a69…0a97 at0007 = ╱ef╱$╱ // 0xa70 @0x7
0x0a69…0a97 at0008 = ╱f0╱ := ╱ // 0xa71 @0x8
0x0a69…0a97 at0009 = ╱22╱"╱ // 0xa72 @0x9
0x0a69…0a97 at000a = ╱53╱S╱ // 0xa73 @0xa
0x0a69…0a97 at000b = ╱4c╱L╱ // 0xa74 @0xb
0x0a69…0a97 at000c = ╱55╱U╱ // 0xa75 @0xc
0x0a69…0a97 at000d = ╱54╱T╱ // 0xa76 @0xd
0x0a69…0a97 at000e = ╱53╱S╱ // 0xa77 @0xe
0x0a69…0a97 at000f = ╱4b╱K╱ // 0xa78 @0xf
0x0a69…0a97 at0010 = ╱41╱A╱ // 0xa79 @0x10
0x0a69…0a97 at0011 = ╱54╱T╱ // 0xa7a @0x11
0x0a69…0a97 at0012 = ╱22╱"╱ // 0xa7b @0x12
0x0a69…0a97 at0013 = ╱eb╱ + ╱ // 0xa7c @0x13
0x0a69…0a97 at0014 = ╱50╱P╱ // 0xa7d @0x14
0x0a69…0a97 at0015 = ╱49╱I╱ // 0xa7e @0x15
0x0a69…0a97 at0016 = ╱4c╱L╱ // 0xa7f @0x16
0x0a69…0a97 at0017 = ╱ef╱$╱ // 0xa80 @0x17
0x0a69…0a97 at0018 = ╱ed╱(╱ // 0xa81 @0x18
0x0a69…0a97 at0019 = ╱31╱1╱ // 0xa82 @0x19
0x0a69…0a97 at001a = ╱f20100╱ // 0xa83 @0x1a
0x0a69…0a97 at001d = ╱f1╱ : ╱ // 0xa86 @0x1d
0x0a69…0a97 at001e = ╱32╱2╱ // 0xa87 @0x1e
0x0a69…0a97 at001f = ╱33╱3╱ // 0xa88 @0x1f
0x0a69…0a97 at0020 = ╱f21700╱ // 0xa89 @0x20
0x0a69…0a97 at0023 = ╱ee╱)╱ // 0xa8c @0x23
0x0a69…0a97 at0024 = ╱ea╱ ; ╱ // 0xa8d @0x24
0x0a69…0a97 at0025 = ╱51╱Q╱ // 0xa8e @0x25
0x0a69…0a97 at0026 = ╱42╱B╱ // 0xa8f @0x26
0x0a69…0a97 at0027 = ╱f0╱ := ╱ // 0xa90 @0x27
0x0a69…0a97 at0028 = ╱c6╱INT╱ // 0xa91 @0x28
0x0a69…0a97 at0029 = ╱ed╱(╱ // 0xa92 @0x29
0x0a69…0a97 at002a = ╱44╱D╱ // 0xa93 @0x2a
0x0a69…0a97 at002b = ╱36╱6╱ // 0xa94 @0x2b
0x0a69…0a97 at002c = ╱ee╱)╱ // 0xa95 @0x2c
0x0a69…0a97 at002d = EOL // 0xa96 @0x2d
0x0a69…0a97 }
0x0a97…0aa4 a092 1460 EXEC LSKRIV1
0x0a97…0aa4 LineComal80 {
0x0a97…0aa4 ptr = 0xa092 // 0xa97 @0x0
0x0a97…0aa4 lno = 0x05b4 // 0xa99 @0x2
0x0a97…0aa4 at0004 = ╱9d╱ EXEC ╱ // 0xa9b @0x4
0x0a97…0aa4 at0005 = ╱4c╱L╱ // 0xa9c @0x5
0x0a97…0aa4 at0006 = ╱53╱S╱ // 0xa9d @0x6
0x0a97…0aa4 at0007 = ╱4b╱K╱ // 0xa9e @0x7
0x0a97…0aa4 at0008 = ╱52╱R╱ // 0xa9f @0x8
0x0a97…0aa4 at0009 = ╱49╱I╱ // 0xaa0 @0x9
0x0a97…0aa4 at000a = ╱56╱V╱ // 0xaa1 @0xa
0x0a97…0aa4 at000b = ╱31╱1╱ // 0xaa2 @0xb
0x0a97…0aa4 at000c = EOL // 0xaa3 @0xc
0x0a97…0aa4 }
0x0aa4…0ab9 a0a7 1470 FOR X := 24 TO 9 DO
0x0aa4…0ab9 LineComal80 {
0x0aa4…0ab9 ptr = 0xa0a7 // 0xaa4 @0x0
0x0aa4…0ab9 lno = 0x05be // 0xaa6 @0x2
0x0aa4…0ab9 at0004 = ╱831a╱ FOR ╱ // 0xaa8 @0x4
0x0aa4…0ab9 at0006 = ╱58╱X╱ // 0xaaa @0x6
0x0aa4…0ab9 at0007 = ╱f0╱ := ╱ // 0xaab @0x7
0x0aa4…0ab9 at0008 = ╱32╱2╱ // 0xaac @0x8
0x0aa4…0ab9 at0009 = ╱34╱4╱ // 0xaad @0x9
0x0aa4…0ab9 at000a = ╱f21800╱ // 0xaae @0xa
0x0aa4…0ab9 at000d = ╱b732╱ TO ╱ // 0xab1 @0xd
0x0aa4…0ab9 at000f = ╱39╱9╱ // 0xab3 @0xf
0x0aa4…0ab9 at0010 = ╱f21d00╱ // 0xab4 @0x10
0x0aa4…0ab9 at0013 = ╱bb╱ DO ╱ // 0xab7 @0x13
0x0aa4…0ab9 at0014 = EOL // 0xab8 @0x14
0x0aa4…0ab9 }
0x0ab9…0ada a0c8 1480 IF (X) > 0 AND X >< 28 AND X >< 29 THEN
0x0ab9…0ada LineComal80 {
0x0ab9…0ada ptr = 0xa0c8 // 0xab9 @0x0
0x0ab9…0ada lno = 0x05c8 // 0xabb @0x2
0x0ab9…0ada at0004 = ╱9b1b41╱ IF ╱ // 0xabd @0x4
0x0ab9…0ada at0007 = ╱ed╱(╱ // 0xac0 @0x7
0x0ab9…0ada at0008 = ╱58╱X╱ // 0xac1 @0x8
0x0ab9…0ada at0009 = ╱ee╱)╱ // 0xac2 @0x9
0x0ab9…0ada at000a = ╱e1╱ > ╱ // 0xac3 @0xa
0x0ab9…0ada at000b = ╱30╱0╱ // 0xac4 @0xb
0x0ab9…0ada at000c = ╱f20000╱ // 0xac5 @0xc
0x0ab9…0ada at000f = ╱d9╱ AND ╱ // 0xac8 @0xf
0x0ab9…0ada at0010 = ╱58╱X╱ // 0xac9 @0x10
0x0ab9…0ada at0011 = ╱e4╱ >< ╱ // 0xaca @0x11
0x0ab9…0ada at0012 = ╱32╱2╱ // 0xacb @0x12
0x0ab9…0ada at0013 = ╱38╱8╱ // 0xacc @0x13
0x0ab9…0ada at0014 = ╱f21c00╱ // 0xacd @0x14
0x0ab9…0ada at0017 = ╱d9╱ AND ╱ // 0xad0 @0x17
0x0ab9…0ada at0018 = ╱58╱X╱ // 0xad1 @0x18
0x0ab9…0ada at0019 = ╱e4╱ >< ╱ // 0xad2 @0x19
0x0ab9…0ada at001a = ╱32╱2╱ // 0xad3 @0x1a
0x0ab9…0ada at001b = ╱39╱9╱ // 0xad4 @0x1b
0x0ab9…0ada at001c = ╱f21d00╱ // 0xad5 @0x1c
0x0ab9…0ada at001f = ╱b5╱ THEN ╱ // 0xad8 @0x1f
0x0ab9…0ada at0020 = EOL // 0xad9 @0x20
0x0ab9…0ada }
0x0ada…0ae8 a0d6 1490 IF = 1 THEN
0x0ada…0ae8 LineComal80 {
0x0ada…0ae8 ptr = 0xa0d6 // 0xada @0x0
0x0ada…0ae8 lno = 0x05d2 // 0xadc @0x2
0x0ada…0ae8 at0004 = ╱9b1c59╱ IF ╱ // 0xade @0x4
0x0ada…0ae8 at0007 = ╱df╱ = ╱ // 0xae1 @0x7
0x0ada…0ae8 at0008 = ╱31╱1╱ // 0xae2 @0x8
0x0ada…0ae8 at0009 = ╱f20100╱ // 0xae3 @0x9
0x0ada…0ae8 at000c = ╱b5╱ THEN ╱ // 0xae6 @0xc
0x0ada…0ae8 at000d = EOL // 0xae7 @0xd
0x0ada…0ae8 }
0x0ae8…0af8 a0e6 1500 LET D6 := D6 - A(X)
0x0ae8…0af8 LineComal80 {
0x0ae8…0af8 ptr = 0xa0e6 // 0xae8 @0x0
0x0ae8…0af8 lno = 0x05dc // 0xaea @0x2
0x0ae8…0af8 at0004 = ╱86╱ LET ╱ // 0xaec @0x4
0x0ae8…0af8 at0005 = ╱44╱D╱ // 0xaed @0x5
0x0ae8…0af8 at0006 = ╱36╱6╱ // 0xaee @0x6
0x0ae8…0af8 at0007 = ╱f0╱ := ╱ // 0xaef @0x7
0x0ae8…0af8 at0008 = ╱44╱D╱ // 0xaf0 @0x8
0x0ae8…0af8 at0009 = ╱36╱6╱ // 0xaf1 @0x9
0x0ae8…0af8 at000a = ╱e6╱ - ╱ // 0xaf2 @0xa
0x0ae8…0af8 at000b = ╱41╱A╱ // 0xaf3 @0xb
0x0ae8…0af8 at000c = ╱ed╱(╱ // 0xaf4 @0xc
0x0ae8…0af8 at000d = ╱58╱X╱ // 0xaf5 @0xd
0x0ae8…0af8 at000e = ╱ee╱)╱ // 0xaf6 @0xe
0x0ae8…0af8 at000f = EOL // 0xaf7 @0xf
0x0ae8…0af8 }
0x0af8…0afe a0ec 1510 ENDIF
0x0af8…0afe LineComal80 {
0x0af8…0afe ptr = 0xa0ec // 0xaf8 @0x0
0x0af8…0afe lno = 0x05e6 // 0xafa @0x2
0x0af8…0afe at0004 = ╱9c╱ ENDIF ╱ // 0xafc @0x4
0x0af8…0afe at0005 = EOL // 0xafd @0x5
0x0af8…0afe }
0x0afe…0b09 a0f7 1520 PRINT "- " ;
0x0afe…0b09 LineComal80 {
0x0afe…0b09 ptr = 0xa0f7 // 0xafe @0x0
0x0afe…0b09 lno = 0x05f0 // 0xb00 @0x2
0x0afe…0b09 at0004 = ╱92╱ PRINT ╱ // 0xb02 @0x4
0x0afe…0b09 at0005 = ╱22╱"╱ // 0xb03 @0x5
0x0afe…0b09 at0006 = ╱2d╱-╱ // 0xb04 @0x6
0x0afe…0b09 at0007 = ╱20╱…╱ // 0xb05 @0x7
0x0afe…0b09 at0008 = ╱22╱"╱ // 0xb06 @0x8
0x0afe…0b09 at0009 = ╱ea╱ ; ╱ // 0xb07 @0x9
0x0afe…0b09 at000a = EOL // 0xb08 @0xa
0x0afe…0b09 }
0x0b09…0b0f a0fd 1530 ENDIF
0x0b09…0b0f LineComal80 {
0x0b09…0b0f ptr = 0xa0fd // 0xb09 @0x0
0x0b09…0b0f lno = 0x05fa // 0xb0b @0x2
0x0b09…0b0f at0004 = ╱9c╱ ENDIF ╱ // 0xb0d @0x4
0x0b09…0b0f at0005 = EOL // 0xb0e @0x5
0x0b09…0b0f }
0x0b0f…0b32 a120 1540 IF (X) > 0 AND (X = 28 OR X = 29) THEN
0x0b0f…0b32 LineComal80 {
0x0b0f…0b32 ptr = 0xa120 // 0xb0f @0x0
0x0b0f…0b32 lno = 0x0604 // 0xb11 @0x2
0x0b0f…0b32 at0004 = ╱9b1d41╱ IF ╱ // 0xb13 @0x4
0x0b0f…0b32 at0007 = ╱ed╱(╱ // 0xb16 @0x7
0x0b0f…0b32 at0008 = ╱58╱X╱ // 0xb17 @0x8
0x0b0f…0b32 at0009 = ╱ee╱)╱ // 0xb18 @0x9
0x0b0f…0b32 at000a = ╱e1╱ > ╱ // 0xb19 @0xa
0x0b0f…0b32 at000b = ╱30╱0╱ // 0xb1a @0xb
0x0b0f…0b32 at000c = ╱f20000╱ // 0xb1b @0xc
0x0b0f…0b32 at000f = ╱d9╱ AND ╱ // 0xb1e @0xf
0x0b0f…0b32 at0010 = ╱ed╱(╱ // 0xb1f @0x10
0x0b0f…0b32 at0011 = ╱58╱X╱ // 0xb20 @0x11
0x0b0f…0b32 at0012 = ╱df╱ = ╱ // 0xb21 @0x12
0x0b0f…0b32 at0013 = ╱32╱2╱ // 0xb22 @0x13
0x0b0f…0b32 at0014 = ╱38╱8╱ // 0xb23 @0x14
0x0b0f…0b32 at0015 = ╱f21c00╱ // 0xb24 @0x15
0x0b0f…0b32 at0018 = ╱d8╱ OR ╱ // 0xb27 @0x18
0x0b0f…0b32 at0019 = ╱58╱X╱ // 0xb28 @0x19
0x0b0f…0b32 at001a = ╱df╱ = ╱ // 0xb29 @0x1a
0x0b0f…0b32 at001b = ╱32╱2╱ // 0xb2a @0x1b
0x0b0f…0b32 at001c = ╱39╱9╱ // 0xb2b @0x1c
0x0b0f…0b32 at001d = ╱f21d00╱ // 0xb2c @0x1d
0x0b0f…0b32 at0020 = ╱ee╱)╱ // 0xb2f @0x20
0x0b0f…0b32 at0021 = ╱b5╱ THEN ╱ // 0xb30 @0x21
0x0b0f…0b32 at0022 = EOL // 0xb31 @0x22
0x0b0f…0b32 }
0x0b32…0b40 a12e 1550 IF = 1 THEN
0x0b32…0b40 LineComal80 {
0x0b32…0b40 ptr = 0xa12e // 0xb32 @0x0
0x0b32…0b40 lno = 0x060e // 0xb34 @0x2
0x0b32…0b40 at0004 = ╱9b1e59╱ IF ╱ // 0xb36 @0x4
0x0b32…0b40 at0007 = ╱df╱ = ╱ // 0xb39 @0x7
0x0b32…0b40 at0008 = ╱31╱1╱ // 0xb3a @0x8
0x0b32…0b40 at0009 = ╱f20100╱ // 0xb3b @0x9
0x0b32…0b40 at000c = ╱b5╱ THEN ╱ // 0xb3e @0xc
0x0b32…0b40 at000d = EOL // 0xb3f @0xd
0x0b32…0b40 }
0x0b40…0b50 a13e 1560 LET D6 := D6 + A(X)
0x0b40…0b50 LineComal80 {
0x0b40…0b50 ptr = 0xa13e // 0xb40 @0x0
0x0b40…0b50 lno = 0x0618 // 0xb42 @0x2
0x0b40…0b50 at0004 = ╱86╱ LET ╱ // 0xb44 @0x4
0x0b40…0b50 at0005 = ╱44╱D╱ // 0xb45 @0x5
0x0b40…0b50 at0006 = ╱36╱6╱ // 0xb46 @0x6
0x0b40…0b50 at0007 = ╱f0╱ := ╱ // 0xb47 @0x7
0x0b40…0b50 at0008 = ╱44╱D╱ // 0xb48 @0x8
0x0b40…0b50 at0009 = ╱36╱6╱ // 0xb49 @0x9
0x0b40…0b50 at000a = ╱e5╱ + ╱ // 0xb4a @0xa
0x0b40…0b50 at000b = ╱41╱A╱ // 0xb4b @0xb
0x0b40…0b50 at000c = ╱ed╱(╱ // 0xb4c @0xc
0x0b40…0b50 at000d = ╱58╱X╱ // 0xb4d @0xd
0x0b40…0b50 at000e = ╱ee╱)╱ // 0xb4e @0xe
0x0b40…0b50 at000f = EOL // 0xb4f @0xf
0x0b40…0b50 }
0x0b50…0b56 a144 1570 ENDIF
0x0b50…0b56 LineComal80 {
0x0b50…0b56 ptr = 0xa144 // 0xb50 @0x0
0x0b50…0b56 lno = 0x0622 // 0xb52 @0x2
0x0b50…0b56 at0004 = ╱9c╱ ENDIF ╱ // 0xb54 @0x4
0x0b50…0b56 at0005 = EOL // 0xb55 @0x5
0x0b50…0b56 }
0x0b56…0b61 a14f 1580 PRINT "+ " ;
0x0b56…0b61 LineComal80 {
0x0b56…0b61 ptr = 0xa14f // 0xb56 @0x0
0x0b56…0b61 lno = 0x062c // 0xb58 @0x2
0x0b56…0b61 at0004 = ╱92╱ PRINT ╱ // 0xb5a @0x4
0x0b56…0b61 at0005 = ╱22╱"╱ // 0xb5b @0x5
0x0b56…0b61 at0006 = ╱2b╱+╱ // 0xb5c @0x6
0x0b56…0b61 at0007 = ╱20╱…╱ // 0xb5d @0x7
0x0b56…0b61 at0008 = ╱22╱"╱ // 0xb5e @0x8
0x0b56…0b61 at0009 = ╱ea╱ ; ╱ // 0xb5f @0x9
0x0b56…0b61 at000a = EOL // 0xb60 @0xa
0x0b56…0b61 }
0x0b61…0b67 a155 1590 ENDIF
0x0b61…0b67 LineComal80 {
0x0b61…0b67 ptr = 0xa155 // 0xb61 @0x0
0x0b61…0b67 lno = 0x0636 // 0xb63 @0x2
0x0b61…0b67 at0004 = ╱9c╱ ENDIF ╱ // 0xb65 @0x4
0x0b61…0b67 at0005 = EOL // 0xb66 @0x5
0x0b61…0b67 }
0x0b67…0b78 a166 1600 IF (X) > 0 THEN
0x0b67…0b78 LineComal80 {
0x0b67…0b78 ptr = 0xa166 // 0xb67 @0x0
0x0b67…0b78 lno = 0x0640 // 0xb69 @0x2
0x0b67…0b78 at0004 = ╱9b1f41╱ IF ╱ // 0xb6b @0x4
0x0b67…0b78 at0007 = ╱ed╱(╱ // 0xb6e @0x7
0x0b67…0b78 at0008 = ╱58╱X╱ // 0xb6f @0x8
0x0b67…0b78 at0009 = ╱ee╱)╱ // 0xb70 @0x9
0x0b67…0b78 at000a = ╱e1╱ > ╱ // 0xb71 @0xa
0x0b67…0b78 at000b = ╱30╱0╱ // 0xb72 @0xb
0x0b67…0b78 at000c = ╱f20000╱ // 0xb73 @0xc
0x0b67…0b78 at000f = ╱b5╱ THEN ╱ // 0xb76 @0xf
0x0b67…0b78 at0010 = EOL // 0xb77 @0x10
0x0b67…0b78 }
0x0b78…0b90 a17e 1610 LET QT$ := A1$(X) ; QB := A(X)
0x0b78…0b90 LineComal80 {
0x0b78…0b90 ptr = 0xa17e // 0xb78 @0x0
0x0b78…0b90 lno = 0x064a // 0xb7a @0x2
0x0b78…0b90 at0004 = ╱86╱ LET ╱ // 0xb7c @0x4
0x0b78…0b90 at0005 = ╱51╱Q╱ // 0xb7d @0x5
0x0b78…0b90 at0006 = ╱54╱T╱ // 0xb7e @0x6
0x0b78…0b90 at0007 = ╱ef╱$╱ // 0xb7f @0x7
0x0b78…0b90 at0008 = ╱f0╱ := ╱ // 0xb80 @0x8
0x0b78…0b90 at0009 = ╱41╱A╱ // 0xb81 @0x9
0x0b78…0b90 at000a = ╱31╱1╱ // 0xb82 @0xa
0x0b78…0b90 at000b = ╱ef╱$╱ // 0xb83 @0xb
0x0b78…0b90 at000c = ╱ed╱(╱ // 0xb84 @0xc
0x0b78…0b90 at000d = ╱58╱X╱ // 0xb85 @0xd
0x0b78…0b90 at000e = ╱ee╱)╱ // 0xb86 @0xe
0x0b78…0b90 at000f = ╱ea╱ ; ╱ // 0xb87 @0xf
0x0b78…0b90 at0010 = ╱51╱Q╱ // 0xb88 @0x10
0x0b78…0b90 at0011 = ╱42╱B╱ // 0xb89 @0x11
0x0b78…0b90 at0012 = ╱f0╱ := ╱ // 0xb8a @0x12
0x0b78…0b90 at0013 = ╱41╱A╱ // 0xb8b @0x13
0x0b78…0b90 at0014 = ╱ed╱(╱ // 0xb8c @0x14
0x0b78…0b90 at0015 = ╱58╱X╱ // 0xb8d @0x15
0x0b78…0b90 at0016 = ╱ee╱)╱ // 0xb8e @0x16
0x0b78…0b90 at0017 = EOL // 0xb8f @0x17
0x0b78…0b90 }
0x0b90…0b9d a18b 1620 EXEC LSKRIV1
0x0b90…0b9d LineComal80 {
0x0b90…0b9d ptr = 0xa18b // 0xb90 @0x0
0x0b90…0b9d lno = 0x0654 // 0xb92 @0x2
0x0b90…0b9d at0004 = ╱9d╱ EXEC ╱ // 0xb94 @0x4
0x0b90…0b9d at0005 = ╱4c╱L╱ // 0xb95 @0x5
0x0b90…0b9d at0006 = ╱53╱S╱ // 0xb96 @0x6
0x0b90…0b9d at0007 = ╱4b╱K╱ // 0xb97 @0x7
0x0b90…0b9d at0008 = ╱52╱R╱ // 0xb98 @0x8
0x0b90…0b9d at0009 = ╱49╱I╱ // 0xb99 @0x9
0x0b90…0b9d at000a = ╱56╱V╱ // 0xb9a @0xa
0x0b90…0b9d at000b = ╱31╱1╱ // 0xb9b @0xb
0x0b90…0b9d at000c = EOL // 0xb9c @0xc
0x0b90…0b9d }
0x0b9d…0ba3 a191 1630 ENDIF
0x0b9d…0ba3 LineComal80 {
0x0b9d…0ba3 ptr = 0xa191 // 0xb9d @0x0
0x0b9d…0ba3 lno = 0x065e // 0xb9f @0x2
0x0b9d…0ba3 at0004 = ╱9c╱ ENDIF ╱ // 0xba1 @0x4
0x0b9d…0ba3 at0005 = EOL // 0xba2 @0x5
0x0b9d…0ba3 }
0x0ba3…0baa a198 1640 NEXT X
0x0ba3…0baa LineComal80 {
0x0ba3…0baa ptr = 0xa198 // 0xba3 @0x0
0x0ba3…0baa lno = 0x0668 // 0xba5 @0x2
0x0ba3…0baa at0004 = ╱84╱ NEXT ╱ // 0xba7 @0x4
0x0ba3…0baa at0005 = ╱58╱X╱ // 0xba8 @0x5
0x0ba3…0baa at0006 = EOL // 0xba9 @0x6
0x0ba3…0baa }
0x0baa…0bd2 a1c0 1650 LET QT$ := SP$(1 : 32) + "------------"
0x0baa…0bd2 LineComal80 {
0x0baa…0bd2 ptr = 0xa1c0 // 0xbaa @0x0
0x0baa…0bd2 lno = 0x0672 // 0xbac @0x2
0x0baa…0bd2 at0004 = ╱86╱ LET ╱ // 0xbae @0x4
0x0baa…0bd2 at0005 = ╱51╱Q╱ // 0xbaf @0x5
0x0baa…0bd2 at0006 = ╱54╱T╱ // 0xbb0 @0x6
0x0baa…0bd2 at0007 = ╱ef╱$╱ // 0xbb1 @0x7
0x0baa…0bd2 at0008 = ╱f0╱ := ╱ // 0xbb2 @0x8
0x0baa…0bd2 at0009 = ╱53╱S╱ // 0xbb3 @0x9
0x0baa…0bd2 at000a = ╱50╱P╱ // 0xbb4 @0xa
0x0baa…0bd2 at000b = ╱ef╱$╱ // 0xbb5 @0xb
0x0baa…0bd2 at000c = ╱ed╱(╱ // 0xbb6 @0xc
0x0baa…0bd2 at000d = ╱31╱1╱ // 0xbb7 @0xd
0x0baa…0bd2 at000e = ╱f20100╱ // 0xbb8 @0xe
0x0baa…0bd2 at0011 = ╱f1╱ : ╱ // 0xbbb @0x11
0x0baa…0bd2 at0012 = ╱33╱3╱ // 0xbbc @0x12
0x0baa…0bd2 at0013 = ╱32╱2╱ // 0xbbd @0x13
0x0baa…0bd2 at0014 = ╱f22000╱ // 0xbbe @0x14
0x0baa…0bd2 at0017 = ╱ee╱)╱ // 0xbc1 @0x17
0x0baa…0bd2 at0018 = ╱eb╱ + ╱ // 0xbc2 @0x18
0x0baa…0bd2 at0019 = ╱22╱"╱ // 0xbc3 @0x19
0x0baa…0bd2 at001a = ╱2d╱-╱ // 0xbc4 @0x1a
0x0baa…0bd2 at001b = ╱2d╱-╱ // 0xbc5 @0x1b
0x0baa…0bd2 at001c = ╱2d╱-╱ // 0xbc6 @0x1c
0x0baa…0bd2 at001d = ╱2d╱-╱ // 0xbc7 @0x1d
0x0baa…0bd2 at001e = ╱2d╱-╱ // 0xbc8 @0x1e
0x0baa…0bd2 at001f = ╱2d╱-╱ // 0xbc9 @0x1f
0x0baa…0bd2 at0020 = ╱2d╱-╱ // 0xbca @0x20
0x0baa…0bd2 at0021 = ╱2d╱-╱ // 0xbcb @0x21
0x0baa…0bd2 at0022 = ╱2d╱-╱ // 0xbcc @0x22
0x0baa…0bd2 at0023 = ╱2d╱-╱ // 0xbcd @0x23
0x0baa…0bd2 at0024 = ╱2d╱-╱ // 0xbce @0x24
0x0baa…0bd2 at0025 = ╱2d╱-╱ // 0xbcf @0x25
0x0baa…0bd2 at0026 = ╱22╱"╱ // 0xbd0 @0x26
0x0baa…0bd2 at0027 = EOL // 0xbd1 @0x27
0x0baa…0bd2 }
0x0bd2…0bdf a1cd 1660 EXEC LSKRIV3
0x0bd2…0bdf LineComal80 {
0x0bd2…0bdf ptr = 0xa1cd // 0xbd2 @0x0
0x0bd2…0bdf lno = 0x067c // 0xbd4 @0x2
0x0bd2…0bdf at0004 = ╱9d╱ EXEC ╱ // 0xbd6 @0x4
0x0bd2…0bdf at0005 = ╱4c╱L╱ // 0xbd7 @0x5
0x0bd2…0bdf at0006 = ╱53╱S╱ // 0xbd8 @0x6
0x0bd2…0bdf at0007 = ╱4b╱K╱ // 0xbd9 @0x7
0x0bd2…0bdf at0008 = ╱52╱R╱ // 0xbda @0x8
0x0bd2…0bdf at0009 = ╱49╱I╱ // 0xbdb @0x9
0x0bd2…0bdf at000a = ╱56╱V╱ // 0xbdc @0xa
0x0bd2…0bdf at000b = ╱33╱3╱ // 0xbdd @0xb
0x0bd2…0bdf at000c = EOL // 0xbde @0xc
0x0bd2…0bdf }
0x0bdf…0bf1 a786 1670 IF (D6) > 0 THEN
0x0bdf…0bf1 LineComal80 {
0x0bdf…0bf1 ptr = 0xa786 // 0xbdf @0x0
0x0bdf…0bf1 lno = 0x0686 // 0xbe1 @0x2
0x0bdf…0bf1 at0004 = ╱9b20c6╱ IF ╱ // 0xbe3 @0x4
0x0bdf…0bf1 at0007 = ╱ed╱(╱ // 0xbe6 @0x7
0x0bdf…0bf1 at0008 = ╱44╱D╱ // 0xbe7 @0x8
0x0bdf…0bf1 at0009 = ╱36╱6╱ // 0xbe8 @0x9
0x0bdf…0bf1 at000a = ╱ee╱)╱ // 0xbe9 @0xa
0x0bdf…0bf1 at000b = ╱e1╱ > ╱ // 0xbea @0xb
0x0bdf…0bf1 at000c = ╱30╱0╱ // 0xbeb @0xc
0x0bdf…0bf1 at000d = ╱f20000╱ // 0xbec @0xd
0x0bdf…0bf1 at0010 = ╱b5╱ THEN ╱ // 0xbef @0x10
0x0bdf…0bf1 at0011 = EOL // 0xbf0 @0x11
0x0bdf…0bf1 }
0x0bf1…0c1f a20d 1680 LET QT$ := "RESTSKAT" + PIL$(1 : 23) ; QB := INT(D6)
0x0bf1…0c1f LineComal80 {
0x0bf1…0c1f ptr = 0xa20d // 0xbf1 @0x0
0x0bf1…0c1f lno = 0x0690 // 0xbf3 @0x2
0x0bf1…0c1f at0004 = ╱86╱ LET ╱ // 0xbf5 @0x4
0x0bf1…0c1f at0005 = ╱51╱Q╱ // 0xbf6 @0x5
0x0bf1…0c1f at0006 = ╱54╱T╱ // 0xbf7 @0x6
0x0bf1…0c1f at0007 = ╱ef╱$╱ // 0xbf8 @0x7
0x0bf1…0c1f at0008 = ╱f0╱ := ╱ // 0xbf9 @0x8
0x0bf1…0c1f at0009 = ╱22╱"╱ // 0xbfa @0x9
0x0bf1…0c1f at000a = ╱52╱R╱ // 0xbfb @0xa
0x0bf1…0c1f at000b = ╱45╱E╱ // 0xbfc @0xb
0x0bf1…0c1f at000c = ╱53╱S╱ // 0xbfd @0xc
0x0bf1…0c1f at000d = ╱54╱T╱ // 0xbfe @0xd
0x0bf1…0c1f at000e = ╱53╱S╱ // 0xbff @0xe
0x0bf1…0c1f at000f = ╱4b╱K╱ // 0xc00 @0xf
0x0bf1…0c1f at0010 = ╱41╱A╱ // 0xc01 @0x10
0x0bf1…0c1f at0011 = ╱54╱T╱ // 0xc02 @0x11
0x0bf1…0c1f at0012 = ╱22╱"╱ // 0xc03 @0x12
0x0bf1…0c1f at0013 = ╱eb╱ + ╱ // 0xc04 @0x13
0x0bf1…0c1f at0014 = ╱50╱P╱ // 0xc05 @0x14
0x0bf1…0c1f at0015 = ╱49╱I╱ // 0xc06 @0x15
0x0bf1…0c1f at0016 = ╱4c╱L╱ // 0xc07 @0x16
0x0bf1…0c1f at0017 = ╱ef╱$╱ // 0xc08 @0x17
0x0bf1…0c1f at0018 = ╱ed╱(╱ // 0xc09 @0x18
0x0bf1…0c1f at0019 = ╱31╱1╱ // 0xc0a @0x19
0x0bf1…0c1f at001a = ╱f20100╱ // 0xc0b @0x1a
0x0bf1…0c1f at001d = ╱f1╱ : ╱ // 0xc0e @0x1d
0x0bf1…0c1f at001e = ╱32╱2╱ // 0xc0f @0x1e
0x0bf1…0c1f at001f = ╱33╱3╱ // 0xc10 @0x1f
0x0bf1…0c1f at0020 = ╱f21700╱ // 0xc11 @0x20
0x0bf1…0c1f at0023 = ╱ee╱)╱ // 0xc14 @0x23
0x0bf1…0c1f at0024 = ╱ea╱ ; ╱ // 0xc15 @0x24
0x0bf1…0c1f at0025 = ╱51╱Q╱ // 0xc16 @0x25
0x0bf1…0c1f at0026 = ╱42╱B╱ // 0xc17 @0x26
0x0bf1…0c1f at0027 = ╱f0╱ := ╱ // 0xc18 @0x27
0x0bf1…0c1f at0028 = ╱c6╱INT╱ // 0xc19 @0x28
0x0bf1…0c1f at0029 = ╱ed╱(╱ // 0xc1a @0x29
0x0bf1…0c1f at002a = ╱44╱D╱ // 0xc1b @0x2a
0x0bf1…0c1f at002b = ╱36╱6╱ // 0xc1c @0x2b
0x0bf1…0c1f at002c = ╱ee╱)╱ // 0xc1d @0x2c
0x0bf1…0c1f at002d = EOL // 0xc1e @0x2d
0x0bf1…0c1f }
0x0c1f…0c2c a21a 1690 EXEC LSKRIV1
0x0c1f…0c2c LineComal80 {
0x0c1f…0c2c ptr = 0xa21a // 0xc1f @0x0
0x0c1f…0c2c lno = 0x069a // 0xc21 @0x2
0x0c1f…0c2c at0004 = ╱9d╱ EXEC ╱ // 0xc23 @0x4
0x0c1f…0c2c at0005 = ╱4c╱L╱ // 0xc24 @0x5
0x0c1f…0c2c at0006 = ╱53╱S╱ // 0xc25 @0x6
0x0c1f…0c2c at0007 = ╱4b╱K╱ // 0xc26 @0x7
0x0c1f…0c2c at0008 = ╱52╱R╱ // 0xc27 @0x8
0x0c1f…0c2c at0009 = ╱49╱I╱ // 0xc28 @0x9
0x0c1f…0c2c at000a = ╱56╱V╱ // 0xc29 @0xa
0x0c1f…0c2c at000b = ╱31╱1╱ // 0xc2a @0xb
0x0c1f…0c2c at000c = EOL // 0xc2b @0xc
0x0c1f…0c2c }
0x0c2c…0c32 a220 1700 ENDIF
0x0c2c…0c32 LineComal80 {
0x0c2c…0c32 ptr = 0xa220 // 0xc2c @0x0
0x0c2c…0c32 lno = 0x06a4 // 0xc2e @0x2
0x0c2c…0c32 at0004 = ╱9c╱ ENDIF ╱ // 0xc30 @0x4
0x0c2c…0c32 at0005 = EOL // 0xc31 @0x5
0x0c2c…0c32 }
0x0c32…0c44 a232 1710 IF (D6) = 0 THEN
0x0c32…0c44 LineComal80 {
0x0c32…0c44 ptr = 0xa232 // 0xc32 @0x0
0x0c32…0c44 lno = 0x06ae // 0xc34 @0x2
0x0c32…0c44 at0004 = ╱9b21c6╱ IF ╱ // 0xc36 @0x4
0x0c32…0c44 at0007 = ╱ed╱(╱ // 0xc39 @0x7
0x0c32…0c44 at0008 = ╱44╱D╱ // 0xc3a @0x8
0x0c32…0c44 at0009 = ╱36╱6╱ // 0xc3b @0x9
0x0c32…0c44 at000a = ╱ee╱)╱ // 0xc3c @0xa
0x0c32…0c44 at000b = ╱df╱ = ╱ // 0xc3d @0xb
0x0c32…0c44 at000c = ╱30╱0╱ // 0xc3e @0xc
0x0c32…0c44 at000d = ╱f20000╱ // 0xc3f @0xd
0x0c32…0c44 at0010 = ╱b5╱ THEN ╱ // 0xc42 @0x10
0x0c32…0c44 at0011 = EOL // 0xc43 @0x11
0x0c32…0c44 }
0x0c44…0c78 a266 1720 LET QT$ := "FORSKUDSSKATTEN STEMMER MED SLUTSKATTEN."
0x0c44…0c78 LineComal80 {
0x0c44…0c78 ptr = 0xa266 // 0xc44 @0x0
0x0c44…0c78 lno = 0x06b8 // 0xc46 @0x2
0x0c44…0c78 at0004 = ╱86╱ LET ╱ // 0xc48 @0x4
0x0c44…0c78 at0005 = ╱51╱Q╱ // 0xc49 @0x5
0x0c44…0c78 at0006 = ╱54╱T╱ // 0xc4a @0x6
0x0c44…0c78 at0007 = ╱ef╱$╱ // 0xc4b @0x7
0x0c44…0c78 at0008 = ╱f0╱ := ╱ // 0xc4c @0x8
0x0c44…0c78 at0009 = ╱22╱"╱ // 0xc4d @0x9
0x0c44…0c78 at000a = ╱46╱F╱ // 0xc4e @0xa
0x0c44…0c78 at000b = ╱4f╱O╱ // 0xc4f @0xb
0x0c44…0c78 at000c = ╱52╱R╱ // 0xc50 @0xc
0x0c44…0c78 at000d = ╱53╱S╱ // 0xc51 @0xd
0x0c44…0c78 at000e = ╱4b╱K╱ // 0xc52 @0xe
0x0c44…0c78 at000f = ╱55╱U╱ // 0xc53 @0xf
0x0c44…0c78 at0010 = ╱44╱D╱ // 0xc54 @0x10
0x0c44…0c78 at0011 = ╱53╱S╱ // 0xc55 @0x11
0x0c44…0c78 at0012 = ╱53╱S╱ // 0xc56 @0x12
0x0c44…0c78 at0013 = ╱4b╱K╱ // 0xc57 @0x13
0x0c44…0c78 at0014 = ╱41╱A╱ // 0xc58 @0x14
0x0c44…0c78 at0015 = ╱54╱T╱ // 0xc59 @0x15
0x0c44…0c78 at0016 = ╱54╱T╱ // 0xc5a @0x16
0x0c44…0c78 at0017 = ╱45╱E╱ // 0xc5b @0x17
0x0c44…0c78 at0018 = ╱4e╱N╱ // 0xc5c @0x18
0x0c44…0c78 at0019 = ╱20╱…╱ // 0xc5d @0x19
0x0c44…0c78 at001a = ╱53╱S╱ // 0xc5e @0x1a
0x0c44…0c78 at001b = ╱54╱T╱ // 0xc5f @0x1b
0x0c44…0c78 at001c = ╱45╱E╱ // 0xc60 @0x1c
0x0c44…0c78 at001d = ╱4d╱M╱ // 0xc61 @0x1d
0x0c44…0c78 at001e = ╱4d╱M╱ // 0xc62 @0x1e
0x0c44…0c78 at001f = ╱45╱E╱ // 0xc63 @0x1f
0x0c44…0c78 at0020 = ╱52╱R╱ // 0xc64 @0x20
0x0c44…0c78 at0021 = ╱20╱…╱ // 0xc65 @0x21
0x0c44…0c78 at0022 = ╱4d╱M╱ // 0xc66 @0x22
0x0c44…0c78 at0023 = ╱45╱E╱ // 0xc67 @0x23
0x0c44…0c78 at0024 = ╱44╱D╱ // 0xc68 @0x24
0x0c44…0c78 at0025 = ╱20╱…╱ // 0xc69 @0x25
0x0c44…0c78 at0026 = ╱53╱S╱ // 0xc6a @0x26
0x0c44…0c78 at0027 = ╱4c╱L╱ // 0xc6b @0x27
0x0c44…0c78 at0028 = ╱55╱U╱ // 0xc6c @0x28
0x0c44…0c78 at0029 = ╱54╱T╱ // 0xc6d @0x29
0x0c44…0c78 at002a = ╱53╱S╱ // 0xc6e @0x2a
0x0c44…0c78 at002b = ╱4b╱K╱ // 0xc6f @0x2b
0x0c44…0c78 at002c = ╱41╱A╱ // 0xc70 @0x2c
0x0c44…0c78 at002d = ╱54╱T╱ // 0xc71 @0x2d
0x0c44…0c78 at002e = ╱54╱T╱ // 0xc72 @0x2e
0x0c44…0c78 at002f = ╱45╱E╱ // 0xc73 @0x2f
0x0c44…0c78 at0030 = ╱4e╱N╱ // 0xc74 @0x30
0x0c44…0c78 at0031 = ╱2e╱.╱ // 0xc75 @0x31
0x0c44…0c78 at0032 = ╱22╱"╱ // 0xc76 @0x32
0x0c44…0c78 at0033 = EOL // 0xc77 @0x33
0x0c44…0c78 }
0x0c78…0c85 a273 1730 EXEC LSKRIV3
0x0c78…0c85 LineComal80 {
0x0c78…0c85 ptr = 0xa273 // 0xc78 @0x0
0x0c78…0c85 lno = 0x06c2 // 0xc7a @0x2
0x0c78…0c85 at0004 = ╱9d╱ EXEC ╱ // 0xc7c @0x4
0x0c78…0c85 at0005 = ╱4c╱L╱ // 0xc7d @0x5
0x0c78…0c85 at0006 = ╱53╱S╱ // 0xc7e @0x6
0x0c78…0c85 at0007 = ╱4b╱K╱ // 0xc7f @0x7
0x0c78…0c85 at0008 = ╱52╱R╱ // 0xc80 @0x8
0x0c78…0c85 at0009 = ╱49╱I╱ // 0xc81 @0x9
0x0c78…0c85 at000a = ╱56╱V╱ // 0xc82 @0xa
0x0c78…0c85 at000b = ╱33╱3╱ // 0xc83 @0xb
0x0c78…0c85 at000c = EOL // 0xc84 @0xc
0x0c78…0c85 }
0x0c85…0c8b a279 1740 ENDIF
0x0c85…0c8b LineComal80 {
0x0c85…0c8b ptr = 0xa279 // 0xc85 @0x0
0x0c85…0c8b lno = 0x06cc // 0xc87 @0x2
0x0c85…0c8b at0004 = ╱9c╱ ENDIF ╱ // 0xc89 @0x4
0x0c85…0c8b at0005 = EOL // 0xc8a @0x5
0x0c85…0c8b }
0x0c8b…0c9d a6a4 1750 IF (D6) < 0 THEN
0x0c8b…0c9d LineComal80 {
0x0c8b…0c9d ptr = 0xa6a4 // 0xc8b @0x0
0x0c8b…0c9d lno = 0x06d6 // 0xc8d @0x2
0x0c8b…0c9d at0004 = ╱9b22c6╱ IF ╱ // 0xc8f @0x4
0x0c8b…0c9d at0007 = ╱ed╱(╱ // 0xc92 @0x7
0x0c8b…0c9d at0008 = ╱44╱D╱ // 0xc93 @0x8
0x0c8b…0c9d at0009 = ╱36╱6╱ // 0xc94 @0x9
0x0c8b…0c9d at000a = ╱ee╱)╱ // 0xc95 @0xa
0x0c8b…0c9d at000b = ╱e0╱ < ╱ // 0xc96 @0xb
0x0c8b…0c9d at000c = ╱30╱0╱ // 0xc97 @0xc
0x0c8b…0c9d at000d = ╱f20000╱ // 0xc98 @0xd
0x0c8b…0c9d at0010 = ╱b5╱ THEN ╱ // 0xc9b @0x10
0x0c8b…0c9d at0011 = EOL // 0xc9c @0x11
0x0c8b…0c9d }
0x0c9d…0cd4 a2c2 1760 LET QT$ := "OVERSKYDENDE SKAT" + PIL$(1 : 14) ; QB := INT(D6)
0x0c9d…0cd4 LineComal80 {
0x0c9d…0cd4 ptr = 0xa2c2 // 0xc9d @0x0
0x0c9d…0cd4 lno = 0x06e0 // 0xc9f @0x2
0x0c9d…0cd4 at0004 = ╱86╱ LET ╱ // 0xca1 @0x4
0x0c9d…0cd4 at0005 = ╱51╱Q╱ // 0xca2 @0x5
0x0c9d…0cd4 at0006 = ╱54╱T╱ // 0xca3 @0x6
0x0c9d…0cd4 at0007 = ╱ef╱$╱ // 0xca4 @0x7
0x0c9d…0cd4 at0008 = ╱f0╱ := ╱ // 0xca5 @0x8
0x0c9d…0cd4 at0009 = ╱22╱"╱ // 0xca6 @0x9
0x0c9d…0cd4 at000a = ╱4f╱O╱ // 0xca7 @0xa
0x0c9d…0cd4 at000b = ╱56╱V╱ // 0xca8 @0xb
0x0c9d…0cd4 at000c = ╱45╱E╱ // 0xca9 @0xc
0x0c9d…0cd4 at000d = ╱52╱R╱ // 0xcaa @0xd
0x0c9d…0cd4 at000e = ╱53╱S╱ // 0xcab @0xe
0x0c9d…0cd4 at000f = ╱4b╱K╱ // 0xcac @0xf
0x0c9d…0cd4 at0010 = ╱59╱Y╱ // 0xcad @0x10
0x0c9d…0cd4 at0011 = ╱44╱D╱ // 0xcae @0x11
0x0c9d…0cd4 at0012 = ╱45╱E╱ // 0xcaf @0x12
0x0c9d…0cd4 at0013 = ╱4e╱N╱ // 0xcb0 @0x13
0x0c9d…0cd4 at0014 = ╱44╱D╱ // 0xcb1 @0x14
0x0c9d…0cd4 at0015 = ╱45╱E╱ // 0xcb2 @0x15
0x0c9d…0cd4 at0016 = ╱20╱…╱ // 0xcb3 @0x16
0x0c9d…0cd4 at0017 = ╱53╱S╱ // 0xcb4 @0x17
0x0c9d…0cd4 at0018 = ╱4b╱K╱ // 0xcb5 @0x18
0x0c9d…0cd4 at0019 = ╱41╱A╱ // 0xcb6 @0x19
0x0c9d…0cd4 at001a = ╱54╱T╱ // 0xcb7 @0x1a
0x0c9d…0cd4 at001b = ╱22╱"╱ // 0xcb8 @0x1b
0x0c9d…0cd4 at001c = ╱eb╱ + ╱ // 0xcb9 @0x1c
0x0c9d…0cd4 at001d = ╱50╱P╱ // 0xcba @0x1d
0x0c9d…0cd4 at001e = ╱49╱I╱ // 0xcbb @0x1e
0x0c9d…0cd4 at001f = ╱4c╱L╱ // 0xcbc @0x1f
0x0c9d…0cd4 at0020 = ╱ef╱$╱ // 0xcbd @0x20
0x0c9d…0cd4 at0021 = ╱ed╱(╱ // 0xcbe @0x21
0x0c9d…0cd4 at0022 = ╱31╱1╱ // 0xcbf @0x22
0x0c9d…0cd4 at0023 = ╱f20100╱ // 0xcc0 @0x23
0x0c9d…0cd4 at0026 = ╱f1╱ : ╱ // 0xcc3 @0x26
0x0c9d…0cd4 at0027 = ╱31╱1╱ // 0xcc4 @0x27
0x0c9d…0cd4 at0028 = ╱34╱4╱ // 0xcc5 @0x28
0x0c9d…0cd4 at0029 = ╱f20e00╱ // 0xcc6 @0x29
0x0c9d…0cd4 at002c = ╱ee╱)╱ // 0xcc9 @0x2c
0x0c9d…0cd4 at002d = ╱ea╱ ; ╱ // 0xcca @0x2d
0x0c9d…0cd4 at002e = ╱51╱Q╱ // 0xccb @0x2e
0x0c9d…0cd4 at002f = ╱42╱B╱ // 0xccc @0x2f
0x0c9d…0cd4 at0030 = ╱f0╱ := ╱ // 0xccd @0x30
0x0c9d…0cd4 at0031 = ╱c6╱INT╱ // 0xcce @0x31
0x0c9d…0cd4 at0032 = ╱ed╱(╱ // 0xccf @0x32
0x0c9d…0cd4 at0033 = ╱44╱D╱ // 0xcd0 @0x33
0x0c9d…0cd4 at0034 = ╱36╱6╱ // 0xcd1 @0x34
0x0c9d…0cd4 at0035 = ╱ee╱)╱ // 0xcd2 @0x35
0x0c9d…0cd4 at0036 = EOL // 0xcd3 @0x36
0x0c9d…0cd4 }
0x0cd4…0ce1 a2cf 1770 EXEC LSKRIV1
0x0cd4…0ce1 LineComal80 {
0x0cd4…0ce1 ptr = 0xa2cf // 0xcd4 @0x0
0x0cd4…0ce1 lno = 0x06ea // 0xcd6 @0x2
0x0cd4…0ce1 at0004 = ╱9d╱ EXEC ╱ // 0xcd8 @0x4
0x0cd4…0ce1 at0005 = ╱4c╱L╱ // 0xcd9 @0x5
0x0cd4…0ce1 at0006 = ╱53╱S╱ // 0xcda @0x6
0x0cd4…0ce1 at0007 = ╱4b╱K╱ // 0xcdb @0x7
0x0cd4…0ce1 at0008 = ╱52╱R╱ // 0xcdc @0x8
0x0cd4…0ce1 at0009 = ╱49╱I╱ // 0xcdd @0x9
0x0cd4…0ce1 at000a = ╱56╱V╱ // 0xcde @0xa
0x0cd4…0ce1 at000b = ╱31╱1╱ // 0xcdf @0xb
0x0cd4…0ce1 at000c = EOL // 0xce0 @0xc
0x0cd4…0ce1 }
0x0ce1…0ce7 a2d5 1780 ENDIF
0x0ce1…0ce7 LineComal80 {
0x0ce1…0ce7 ptr = 0xa2d5 // 0xce1 @0x0
0x0ce1…0ce7 lno = 0x06f4 // 0xce3 @0x2
0x0ce1…0ce7 at0004 = ╱9c╱ ENDIF ╱ // 0xce5 @0x4
0x0ce1…0ce7 at0005 = EOL // 0xce6 @0x5
0x0ce1…0ce7 }
0x0ce7…0cf9 a2e7 1790 IF (D6) >< 0 THEN
0x0ce7…0cf9 LineComal80 {
0x0ce7…0cf9 ptr = 0xa2e7 // 0xce7 @0x0
0x0ce7…0cf9 lno = 0x06fe // 0xce9 @0x2
0x0ce7…0cf9 at0004 = ╱9b23c6╱ IF ╱ // 0xceb @0x4
0x0ce7…0cf9 at0007 = ╱ed╱(╱ // 0xcee @0x7
0x0ce7…0cf9 at0008 = ╱44╱D╱ // 0xcef @0x8
0x0ce7…0cf9 at0009 = ╱36╱6╱ // 0xcf0 @0x9
0x0ce7…0cf9 at000a = ╱ee╱)╱ // 0xcf1 @0xa
0x0ce7…0cf9 at000b = ╱e4╱ >< ╱ // 0xcf2 @0xb
0x0ce7…0cf9 at000c = ╱30╱0╱ // 0xcf3 @0xc
0x0ce7…0cf9 at000d = ╱f20000╱ // 0xcf4 @0xd
0x0ce7…0cf9 at0010 = ╱b5╱ THEN ╱ // 0xcf7 @0x10
0x0ce7…0cf9 at0011 = EOL // 0xcf8 @0x11
0x0ce7…0cf9 }
0x0cf9…0d21 a30f 1800 LET QT$ := SP$(1 : 32) + "============"
0x0cf9…0d21 LineComal80 {
0x0cf9…0d21 ptr = 0xa30f // 0xcf9 @0x0
0x0cf9…0d21 lno = 0x0708 // 0xcfb @0x2
0x0cf9…0d21 at0004 = ╱86╱ LET ╱ // 0xcfd @0x4
0x0cf9…0d21 at0005 = ╱51╱Q╱ // 0xcfe @0x5
0x0cf9…0d21 at0006 = ╱54╱T╱ // 0xcff @0x6
0x0cf9…0d21 at0007 = ╱ef╱$╱ // 0xd00 @0x7
0x0cf9…0d21 at0008 = ╱f0╱ := ╱ // 0xd01 @0x8
0x0cf9…0d21 at0009 = ╱53╱S╱ // 0xd02 @0x9
0x0cf9…0d21 at000a = ╱50╱P╱ // 0xd03 @0xa
0x0cf9…0d21 at000b = ╱ef╱$╱ // 0xd04 @0xb
0x0cf9…0d21 at000c = ╱ed╱(╱ // 0xd05 @0xc
0x0cf9…0d21 at000d = ╱31╱1╱ // 0xd06 @0xd
0x0cf9…0d21 at000e = ╱f20100╱ // 0xd07 @0xe
0x0cf9…0d21 at0011 = ╱f1╱ : ╱ // 0xd0a @0x11
0x0cf9…0d21 at0012 = ╱33╱3╱ // 0xd0b @0x12
0x0cf9…0d21 at0013 = ╱32╱2╱ // 0xd0c @0x13
0x0cf9…0d21 at0014 = ╱f22000╱ // 0xd0d @0x14
0x0cf9…0d21 at0017 = ╱ee╱)╱ // 0xd10 @0x17
0x0cf9…0d21 at0018 = ╱eb╱ + ╱ // 0xd11 @0x18
0x0cf9…0d21 at0019 = ╱22╱"╱ // 0xd12 @0x19
0x0cf9…0d21 at001a = ╱3d╱=╱ // 0xd13 @0x1a
0x0cf9…0d21 at001b = ╱3d╱=╱ // 0xd14 @0x1b
0x0cf9…0d21 at001c = ╱3d╱=╱ // 0xd15 @0x1c
0x0cf9…0d21 at001d = ╱3d╱=╱ // 0xd16 @0x1d
0x0cf9…0d21 at001e = ╱3d╱=╱ // 0xd17 @0x1e
0x0cf9…0d21 at001f = ╱3d╱=╱ // 0xd18 @0x1f
0x0cf9…0d21 at0020 = ╱3d╱=╱ // 0xd19 @0x20
0x0cf9…0d21 at0021 = ╱3d╱=╱ // 0xd1a @0x21
0x0cf9…0d21 at0022 = ╱3d╱=╱ // 0xd1b @0x22
0x0cf9…0d21 at0023 = ╱3d╱=╱ // 0xd1c @0x23
0x0cf9…0d21 at0024 = ╱3d╱=╱ // 0xd1d @0x24
0x0cf9…0d21 at0025 = ╱3d╱=╱ // 0xd1e @0x25
0x0cf9…0d21 at0026 = ╱22╱"╱ // 0xd1f @0x26
0x0cf9…0d21 at0027 = EOL // 0xd20 @0x27
0x0cf9…0d21 }
0x0d21…0d2e a31c 1810 EXEC LSKRIV3
0x0d21…0d2e LineComal80 {
0x0d21…0d2e ptr = 0xa31c // 0xd21 @0x0
0x0d21…0d2e lno = 0x0712 // 0xd23 @0x2
0x0d21…0d2e at0004 = ╱9d╱ EXEC ╱ // 0xd25 @0x4
0x0d21…0d2e at0005 = ╱4c╱L╱ // 0xd26 @0x5
0x0d21…0d2e at0006 = ╱53╱S╱ // 0xd27 @0x6
0x0d21…0d2e at0007 = ╱4b╱K╱ // 0xd28 @0x7
0x0d21…0d2e at0008 = ╱52╱R╱ // 0xd29 @0x8
0x0d21…0d2e at0009 = ╱49╱I╱ // 0xd2a @0x9
0x0d21…0d2e at000a = ╱56╱V╱ // 0xd2b @0xa
0x0d21…0d2e at000b = ╱33╱3╱ // 0xd2c @0xb
0x0d21…0d2e at000c = EOL // 0xd2d @0xc
0x0d21…0d2e }
0x0d2e…0d34 a322 1820 ENDIF
0x0d2e…0d34 LineComal80 {
0x0d2e…0d34 ptr = 0xa322 // 0xd2e @0x0
0x0d2e…0d34 lno = 0x071c // 0xd30 @0x2
0x0d2e…0d34 at0004 = ╱9c╱ ENDIF ╱ // 0xd32 @0x4
0x0d2e…0d34 at0005 = EOL // 0xd33 @0x5
0x0d2e…0d34 }
0x0d34…0d49 a337 1830 IF (21) > 0 THEN
0x0d34…0d49 LineComal80 {
0x0d34…0d49 ptr = 0xa337 // 0xd34 @0x0
0x0d34…0d49 lno = 0x0726 // 0xd36 @0x2
0x0d34…0d49 at0004 = ╱9b2441╱ IF ╱ // 0xd38 @0x4
0x0d34…0d49 at0007 = ╱ed╱(╱ // 0xd3b @0x7
0x0d34…0d49 at0008 = ╱32╱2╱ // 0xd3c @0x8
0x0d34…0d49 at0009 = ╱31╱1╱ // 0xd3d @0x9
0x0d34…0d49 at000a = ╱f21500╱ // 0xd3e @0xa
0x0d34…0d49 at000d = ╱ee╱)╱ // 0xd41 @0xd
0x0d34…0d49 at000e = ╱e1╱ > ╱ // 0xd42 @0xe
0x0d34…0d49 at000f = ╱30╱0╱ // 0xd43 @0xf
0x0d34…0d49 at0010 = ╱f20000╱ // 0xd44 @0x10
0x0d34…0d49 at0013 = ╱b5╱ THEN ╱ // 0xd47 @0x13
0x0d34…0d49 at0014 = EOL // 0xd48 @0x14
0x0d34…0d49 }
0x0d49…0d78 a366 1840 LET QT$ := "Pålignet B-skat forudsættes betalt."
0x0d49…0d78 LineComal80 {
0x0d49…0d78 ptr = 0xa366 // 0xd49 @0x0
0x0d49…0d78 lno = 0x0730 // 0xd4b @0x2
0x0d49…0d78 at0004 = ╱86╱ LET ╱ // 0xd4d @0x4
0x0d49…0d78 at0005 = ╱51╱Q╱ // 0xd4e @0x5
0x0d49…0d78 at0006 = ╱54╱T╱ // 0xd4f @0x6
0x0d49…0d78 at0007 = ╱ef╱$╱ // 0xd50 @0x7
0x0d49…0d78 at0008 = ╱f0╱ := ╱ // 0xd51 @0x8
0x0d49…0d78 at0009 = ╱22╱"╱ // 0xd52 @0x9
0x0d49…0d78 at000a = ╱50╱P╱ // 0xd53 @0xa
0x0d49…0d78 at000b = ╱7d╱å╱ // 0xd54 @0xb
0x0d49…0d78 at000c = ╱6c╱l╱ // 0xd55 @0xc
0x0d49…0d78 at000d = ╱69╱i╱ // 0xd56 @0xd
0x0d49…0d78 at000e = ╱67╱g╱ // 0xd57 @0xe
0x0d49…0d78 at000f = ╱6e╱n╱ // 0xd58 @0xf
0x0d49…0d78 at0010 = ╱65╱e╱ // 0xd59 @0x10
0x0d49…0d78 at0011 = ╱74╱t╱ // 0xd5a @0x11
0x0d49…0d78 at0012 = ╱20╱…╱ // 0xd5b @0x12
0x0d49…0d78 at0013 = ╱42╱B╱ // 0xd5c @0x13
0x0d49…0d78 at0014 = ╱2d╱-╱ // 0xd5d @0x14
0x0d49…0d78 at0015 = ╱73╱s╱ // 0xd5e @0x15
0x0d49…0d78 at0016 = ╱6b╱k╱ // 0xd5f @0x16
0x0d49…0d78 at0017 = ╱61╱a╱ // 0xd60 @0x17
0x0d49…0d78 at0018 = ╱74╱t╱ // 0xd61 @0x18
0x0d49…0d78 at0019 = ╱20╱…╱ // 0xd62 @0x19
0x0d49…0d78 at001a = ╱66╱f╱ // 0xd63 @0x1a
0x0d49…0d78 at001b = ╱6f╱o╱ // 0xd64 @0x1b
0x0d49…0d78 at001c = ╱72╱r╱ // 0xd65 @0x1c
0x0d49…0d78 at001d = ╱75╱u╱ // 0xd66 @0x1d
0x0d49…0d78 at001e = ╱64╱d╱ // 0xd67 @0x1e
0x0d49…0d78 at001f = ╱73╱s╱ // 0xd68 @0x1f
0x0d49…0d78 at0020 = ╱7b╱æ╱ // 0xd69 @0x20
0x0d49…0d78 at0021 = ╱74╱t╱ // 0xd6a @0x21
0x0d49…0d78 at0022 = ╱74╱t╱ // 0xd6b @0x22
0x0d49…0d78 at0023 = ╱65╱e╱ // 0xd6c @0x23
0x0d49…0d78 at0024 = ╱73╱s╱ // 0xd6d @0x24
0x0d49…0d78 at0025 = ╱20╱…╱ // 0xd6e @0x25
0x0d49…0d78 at0026 = ╱62╱b╱ // 0xd6f @0x26
0x0d49…0d78 at0027 = ╱65╱e╱ // 0xd70 @0x27
0x0d49…0d78 at0028 = ╱74╱t╱ // 0xd71 @0x28
0x0d49…0d78 at0029 = ╱61╱a╱ // 0xd72 @0x29
0x0d49…0d78 at002a = ╱6c╱l╱ // 0xd73 @0x2a
0x0d49…0d78 at002b = ╱74╱t╱ // 0xd74 @0x2b
0x0d49…0d78 at002c = ╱2e╱.╱ // 0xd75 @0x2c
0x0d49…0d78 at002d = ╱22╱"╱ // 0xd76 @0x2d
0x0d49…0d78 at002e = EOL // 0xd77 @0x2e
0x0d49…0d78 }
0x0d78…0d85 a373 1850 EXEC LSKRIV3
0x0d78…0d85 LineComal80 {
0x0d78…0d85 ptr = 0xa373 // 0xd78 @0x0
0x0d78…0d85 lno = 0x073a // 0xd7a @0x2
0x0d78…0d85 at0004 = ╱9d╱ EXEC ╱ // 0xd7c @0x4
0x0d78…0d85 at0005 = ╱4c╱L╱ // 0xd7d @0x5
0x0d78…0d85 at0006 = ╱53╱S╱ // 0xd7e @0x6
0x0d78…0d85 at0007 = ╱4b╱K╱ // 0xd7f @0x7
0x0d78…0d85 at0008 = ╱52╱R╱ // 0xd80 @0x8
0x0d78…0d85 at0009 = ╱49╱I╱ // 0xd81 @0x9
0x0d78…0d85 at000a = ╱56╱V╱ // 0xd82 @0xa
0x0d78…0d85 at000b = ╱33╱3╱ // 0xd83 @0xb
0x0d78…0d85 at000c = EOL // 0xd84 @0xc
0x0d78…0d85 }
0x0d85…0d8b a379 1860 ENDIF
0x0d85…0d8b LineComal80 {
0x0d85…0d8b ptr = 0xa379 // 0xd85 @0x0
0x0d85…0d8b lno = 0x0744 // 0xd87 @0x2
0x0d85…0d8b at0004 = ╱9c╱ ENDIF ╱ // 0xd89 @0x4
0x0d85…0d8b at0005 = EOL // 0xd8a @0x5
0x0d85…0d8b }
0x0d8b…0d97 a385 1870 ENDPROC ÅRSOPG
0x0d8b…0d97 LineComal80 {
0x0d8b…0d97 ptr = 0xa385 // 0xd8b @0x0
0x0d8b…0d97 lno = 0x074e // 0xd8d @0x2
0x0d8b…0d97 at0004 = ╱9f╱ ENDPROC ╱ // 0xd8f @0x4
0x0d8b…0d97 at0005 = ╱5d╱Å╱ // 0xd90 @0x5
0x0d8b…0d97 at0006 = ╱52╱R╱ // 0xd91 @0x6
0x0d8b…0d97 at0007 = ╱53╱S╱ // 0xd92 @0x7
0x0d8b…0d97 at0008 = ╱4f╱O╱ // 0xd93 @0x8
0x0d8b…0d97 at0009 = ╱50╱P╱ // 0xd94 @0x9
0x0d8b…0d97 at000a = ╱47╱G╱ // 0xd95 @0xa
0x0d8b…0d97 at000b = EOL // 0xd96 @0xb
0x0d8b…0d97 }
0x0d97…0da2 a390 1880 PROC LÆSF
0x0d97…0da2 LineComal80 {
0x0d97…0da2 ptr = 0xa390 // 0xd97 @0x0
0x0d97…0da2 lno = 0x0758 // 0xd99 @0x2
0x0d97…0da2 at0004 = ╱9e25╱ PROC ╱ // 0xd9b @0x4
0x0d97…0da2 at0006 = ╱4c╱L╱ // 0xd9d @0x6
0x0d97…0da2 at0007 = ╱5b╱Æ╱ // 0xd9e @0x7
0x0d97…0da2 at0008 = ╱53╱S╱ // 0xd9f @0x8
0x0d97…0da2 at0009 = ╱46╱F╱ // 0xda0 @0x9
0x0d97…0da2 at000a = EOL // 0xda1 @0xa
0x0d97…0da2 }
0x0da2…0db7 a3a5 1890 FOR X := 24 TO 9 DO
0x0da2…0db7 LineComal80 {
0x0da2…0db7 ptr = 0xa3a5 // 0xda2 @0x0
0x0da2…0db7 lno = 0x0762 // 0xda4 @0x2
0x0da2…0db7 at0004 = ╱8326╱ FOR ╱ // 0xda6 @0x4
0x0da2…0db7 at0006 = ╱58╱X╱ // 0xda8 @0x6
0x0da2…0db7 at0007 = ╱f0╱ := ╱ // 0xda9 @0x7
0x0da2…0db7 at0008 = ╱32╱2╱ // 0xdaa @0x8
0x0da2…0db7 at0009 = ╱34╱4╱ // 0xdab @0x9
0x0da2…0db7 at000a = ╱f21800╱ // 0xdac @0xa
0x0da2…0db7 at000d = ╱b732╱ TO ╱ // 0xdaf @0xd
0x0da2…0db7 at000f = ╱39╱9╱ // 0xdb1 @0xf
0x0da2…0db7 at0010 = ╱f21d00╱ // 0xdb2 @0x10
0x0da2…0db7 at0013 = ╱bb╱ DO ╱ // 0xdb5 @0x13
0x0da2…0db7 at0014 = EOL // 0xdb6 @0x14
0x0da2…0db7 }
0x0db7…0dc6 a3b4 1900 IF >< 27 THEN
0x0db7…0dc6 LineComal80 {
0x0db7…0dc6 ptr = 0xa3b4 // 0xdb7 @0x0
0x0db7…0dc6 lno = 0x076c // 0xdb9 @0x2
0x0db7…0dc6 at0004 = ╱9b2758╱ IF ╱ // 0xdbb @0x4
0x0db7…0dc6 at0007 = ╱e4╱ >< ╱ // 0xdbe @0x7
0x0db7…0dc6 at0008 = ╱32╱2╱ // 0xdbf @0x8
0x0db7…0dc6 at0009 = ╱37╱7╱ // 0xdc0 @0x9
0x0db7…0dc6 at000a = ╱f21b00╱ // 0xdc1 @0xa
0x0db7…0dc6 at000d = ╱b5╱ THEN ╱ // 0xdc4 @0xd
0x0db7…0dc6 at000e = EOL // 0xdc5 @0xe
0x0db7…0dc6 }
0x0dc6…0dda a3c8 1910 IF (FIL$) = 0 THEN
0x0dc6…0dda LineComal80 {
0x0dc6…0dda ptr = 0xa3c8 // 0xdc6 @0x0
0x0dc6…0dda lno = 0x0776 // 0xdc8 @0x2
0x0dc6…0dda at0004 = ╱9b28cd╱ IF ╱ // 0xdca @0x4
0x0dc6…0dda at0007 = ╱ed╱(╱ // 0xdcd @0x7
0x0dc6…0dda at0008 = ╱46╱F╱ // 0xdce @0x8
0x0dc6…0dda at0009 = ╱49╱I╱ // 0xdcf @0x9
0x0dc6…0dda at000a = ╱4c╱L╱ // 0xdd0 @0xa
0x0dc6…0dda at000b = ╱ef╱$╱ // 0xdd1 @0xb
0x0dc6…0dda at000c = ╱ee╱)╱ // 0xdd2 @0xc
0x0dc6…0dda at000d = ╱df╱ = ╱ // 0xdd3 @0xd
0x0dc6…0dda at000e = ╱30╱0╱ // 0xdd4 @0xe
0x0dc6…0dda at000f = ╱f20000╱ // 0xdd5 @0xf
0x0dc6…0dda at0012 = ╱b5╱ THEN ╱ // 0xdd8 @0x12
0x0dc6…0dda at0013 = EOL // 0xdd9 @0x13
0x0dc6…0dda }
0x0dda…0de7 a3d5 1920 GET FIL$ : S$
0x0dda…0de7 LineComal80 {
0x0dda…0de7 ptr = 0xa3d5 // 0xdda @0x0
0x0dda…0de7 lno = 0x0780 // 0xddc @0x2
0x0dda…0de7 at0004 = ╱a9╱ GET ╱ // 0xdde @0x4
0x0dda…0de7 at0005 = ╱46╱F╱ // 0xddf @0x5
0x0dda…0de7 at0006 = ╱49╱I╱ // 0xde0 @0x6
0x0dda…0de7 at0007 = ╱4c╱L╱ // 0xde1 @0x7
0x0dda…0de7 at0008 = ╱ef╱$╱ // 0xde2 @0x8
0x0dda…0de7 at0009 = ╱f1╱ : ╱ // 0xde3 @0x9
0x0dda…0de7 at000a = ╱53╱S╱ // 0xde4 @0xa
0x0dda…0de7 at000b = ╱ef╱$╱ // 0xde5 @0xb
0x0dda…0de7 at000c = EOL // 0xde6 @0xc
0x0dda…0de7 }
0x0de7…0def a3dd 1930 PRINT S$
0x0de7…0def LineComal80 {
0x0de7…0def ptr = 0xa3dd // 0xde7 @0x0
0x0de7…0def lno = 0x078a // 0xde9 @0x2
0x0de7…0def at0004 = ╱92╱ PRINT ╱ // 0xdeb @0x4
0x0de7…0def at0005 = ╱53╱S╱ // 0xdec @0x5
0x0de7…0def at0006 = ╱ef╱$╱ // 0xded @0x6
0x0de7…0def at0007 = EOL // 0xdee @0x7
0x0de7…0def }
0x0def…0dfc a3ea 1940 GET FIL$ : S$
0x0def…0dfc LineComal80 {
0x0def…0dfc ptr = 0xa3ea // 0xdef @0x0
0x0def…0dfc lno = 0x0794 // 0xdf1 @0x2
0x0def…0dfc at0004 = ╱a9╱ GET ╱ // 0xdf3 @0x4
0x0def…0dfc at0005 = ╱46╱F╱ // 0xdf4 @0x5
0x0def…0dfc at0006 = ╱49╱I╱ // 0xdf5 @0x6
0x0def…0dfc at0007 = ╱4c╱L╱ // 0xdf6 @0x7
0x0def…0dfc at0008 = ╱ef╱$╱ // 0xdf7 @0x8
0x0def…0dfc at0009 = ╱f1╱ : ╱ // 0xdf8 @0x9
0x0def…0dfc at000a = ╱53╱S╱ // 0xdf9 @0xa
0x0def…0dfc at000b = ╱ef╱$╱ // 0xdfa @0xb
0x0def…0dfc at000c = EOL // 0xdfb @0xc
0x0def…0dfc }
0x0dfc…0e05 a3f3 1950 PRINT S$ ;
0x0dfc…0e05 LineComal80 {
0x0dfc…0e05 ptr = 0xa3f3 // 0xdfc @0x0
0x0dfc…0e05 lno = 0x079e // 0xdfe @0x2
0x0dfc…0e05 at0004 = ╱92╱ PRINT ╱ // 0xe00 @0x4
0x0dfc…0e05 at0005 = ╱53╱S╱ // 0xe01 @0x5
0x0dfc…0e05 at0006 = ╱ef╱$╱ // 0xe02 @0x6
0x0dfc…0e05 at0007 = ╱ea╱ ; ╱ // 0xe03 @0x7
0x0dfc…0e05 at0008 = EOL // 0xe04 @0x8
0x0dfc…0e05 }
0x0e05…0e12 a400 1960 INPUT "" : A(X)
0x0e05…0e12 LineComal80 {
0x0e05…0e12 ptr = 0xa400 // 0xe05 @0x0
0x0e05…0e12 lno = 0x07a8 // 0xe07 @0x2
0x0e05…0e12 at0004 = ╱91╱ INPUT ╱ // 0xe09 @0x4
0x0e05…0e12 at0005 = ╱22╱"╱ // 0xe0a @0x5
0x0e05…0e12 at0006 = ╱22╱"╱ // 0xe0b @0x6
0x0e05…0e12 at0007 = ╱f1╱ : ╱ // 0xe0c @0x7
0x0e05…0e12 at0008 = ╱41╱A╱ // 0xe0d @0x8
0x0e05…0e12 at0009 = ╱ed╱(╱ // 0xe0e @0x9
0x0e05…0e12 at000a = ╱58╱X╱ // 0xe0f @0xa
0x0e05…0e12 at000b = ╱ee╱)╱ // 0xe10 @0xb
0x0e05…0e12 at000c = EOL // 0xe11 @0xc
0x0e05…0e12 }
0x0e12…0e1b a409 1970 PRINT LI$
0x0e12…0e1b LineComal80 {
0x0e12…0e1b ptr = 0xa409 // 0xe12 @0x0
0x0e12…0e1b lno = 0x07b2 // 0xe14 @0x2
0x0e12…0e1b at0004 = ╱92╱ PRINT ╱ // 0xe16 @0x4
0x0e12…0e1b at0005 = ╱4c╱L╱ // 0xe17 @0x5
0x0e12…0e1b at0006 = ╱49╱I╱ // 0xe18 @0x6
0x0e12…0e1b at0007 = ╱ef╱$╱ // 0xe19 @0x7
0x0e12…0e1b at0008 = EOL // 0xe1a @0x8
0x0e12…0e1b }
0x0e1b…0e21 a40f 1980 ENDIF
0x0e1b…0e21 LineComal80 {
0x0e1b…0e21 ptr = 0xa40f // 0xe1b @0x0
0x0e1b…0e21 lno = 0x07bc // 0xe1d @0x2
0x0e1b…0e21 at0004 = ╱9c╱ ENDIF ╱ // 0xe1f @0x4
0x0e1b…0e21 at0005 = EOL // 0xe20 @0x5
0x0e1b…0e21 }
0x0e21…0e27 a415 1990 ENDIF
0x0e21…0e27 LineComal80 {
0x0e21…0e27 ptr = 0xa415 // 0xe21 @0x0
0x0e21…0e27 lno = 0x07c6 // 0xe23 @0x2
0x0e21…0e27 at0004 = ╱9c╱ ENDIF ╱ // 0xe25 @0x4
0x0e21…0e27 at0005 = EOL // 0xe26 @0x5
0x0e21…0e27 }
0x0e27…0e2e a41c 2000 NEXT X
0x0e27…0e2e LineComal80 {
0x0e27…0e2e ptr = 0xa41c // 0xe27 @0x0
0x0e27…0e2e lno = 0x07d0 // 0xe29 @0x2
0x0e27…0e2e at0004 = ╱84╱ NEXT ╱ // 0xe2b @0x4
0x0e27…0e2e at0005 = ╱58╱X╱ // 0xe2c @0x5
0x0e27…0e2e at0006 = EOL // 0xe2d @0x6
0x0e27…0e2e }
0x0e2e…0e34 a422 2010 CLEAR
0x0e2e…0e34 LineComal80 {
0x0e2e…0e34 ptr = 0xa422 // 0xe2e @0x0
0x0e2e…0e34 lno = 0x07da // 0xe30 @0x2
0x0e2e…0e34 at0004 = ╱a0╱ CLEAR ╱ // 0xe32 @0x4
0x0e2e…0e34 at0005 = EOL // 0xe33 @0x5
0x0e2e…0e34 }
0x0e34…0e3e a42c 2020 ENDPROC LÆSF
0x0e34…0e3e LineComal80 {
0x0e34…0e3e ptr = 0xa42c // 0xe34 @0x0
0x0e34…0e3e lno = 0x07e4 // 0xe36 @0x2
0x0e34…0e3e at0004 = ╱9f╱ ENDPROC ╱ // 0xe38 @0x4
0x0e34…0e3e at0005 = ╱4c╱L╱ // 0xe39 @0x5
0x0e34…0e3e at0006 = ╱5b╱Æ╱ // 0xe3a @0x6
0x0e34…0e3e at0007 = ╱53╱S╱ // 0xe3b @0x7
0x0e34…0e3e at0008 = ╱46╱F╱ // 0xe3c @0x8
0x0e34…0e3e at0009 = EOL // 0xe3d @0x9
0x0e34…0e3e }
0x0e3e…0e4b a439 2030 PROC RETURN
0x0e3e…0e4b LineComal80 {
0x0e3e…0e4b ptr = 0xa439 // 0xe3e @0x0
0x0e3e…0e4b lno = 0x07ee // 0xe40 @0x2
0x0e3e…0e4b at0004 = ╱9e29╱ PROC ╱ // 0xe42 @0x4
0x0e3e…0e4b at0006 = ╱52╱R╱ // 0xe44 @0x6
0x0e3e…0e4b at0007 = ╱45╱E╱ // 0xe45 @0x7
0x0e3e…0e4b at0008 = ╱54╱T╱ // 0xe46 @0x8
0x0e3e…0e4b at0009 = ╱55╱U╱ // 0xe47 @0x9
0x0e3e…0e4b at000a = ╱52╱R╱ // 0xe48 @0xa
0x0e3e…0e4b at000b = ╱4e╱N╱ // 0xe49 @0xb
0x0e3e…0e4b at000c = EOL // 0xe4a @0xc
0x0e3e…0e4b }
0x0e4b…0e57 a445 2040 LET S$ := "-"
0x0e4b…0e57 LineComal80 {
0x0e4b…0e57 ptr = 0xa445 // 0xe4b @0x0
0x0e4b…0e57 lno = 0x07f8 // 0xe4d @0x2
0x0e4b…0e57 at0004 = ╱86╱ LET ╱ // 0xe4f @0x4
0x0e4b…0e57 at0005 = ╱53╱S╱ // 0xe50 @0x5
0x0e4b…0e57 at0006 = ╱ef╱$╱ // 0xe51 @0x6
0x0e4b…0e57 at0007 = ╱f0╱ := ╱ // 0xe52 @0x7
0x0e4b…0e57 at0008 = ╱22╱"╱ // 0xe53 @0x8
0x0e4b…0e57 at0009 = ╱2d╱-╱ // 0xe54 @0x9
0x0e4b…0e57 at000a = ╱22╱"╱ // 0xe55 @0xa
0x0e4b…0e57 at000b = EOL // 0xe56 @0xb
0x0e4b…0e57 }
0x0e57…0e5d a44b 2050 PRINT
0x0e57…0e5d LineComal80 {
0x0e57…0e5d ptr = 0xa44b // 0xe57 @0x0
0x0e57…0e5d lno = 0x0802 // 0xe59 @0x2
0x0e57…0e5d at0004 = ╱92╱ PRINT ╱ // 0xe5b @0x4
0x0e57…0e5d at0005 = EOL // 0xe5c @0x5
0x0e57…0e5d }
0x0e5d…0e6c a45a 2060 PRINT TAB(65) ;
0x0e5d…0e6c LineComal80 {
0x0e5d…0e6c ptr = 0xa45a // 0xe5d @0x0
0x0e5d…0e6c lno = 0x080c // 0xe5f @0x2
0x0e5d…0e6c at0004 = ╱92╱ PRINT ╱ // 0xe61 @0x4
0x0e5d…0e6c at0005 = ╱d2╱TAB╱ // 0xe62 @0x5
0x0e5d…0e6c at0006 = ╱ed╱(╱ // 0xe63 @0x6
0x0e5d…0e6c at0007 = ╱36╱6╱ // 0xe64 @0x7
0x0e5d…0e6c at0008 = ╱35╱5╱ // 0xe65 @0x8
0x0e5d…0e6c at0009 = ╱f24100╱ // 0xe66 @0x9
0x0e5d…0e6c at000c = ╱ee╱)╱ // 0xe69 @0xc
0x0e5d…0e6c at000d = ╱ea╱ ; ╱ // 0xe6a @0xd
0x0e5d…0e6c at000e = EOL // 0xe6b @0xe
0x0e5d…0e6c }
0x0e6c…0e83 a471 2070 EDIT "TRYK -RETURN" : S$
0x0e6c…0e83 LineComal80 {
0x0e6c…0e83 ptr = 0xa471 // 0xe6c @0x0
0x0e6c…0e83 lno = 0x0816 // 0xe6e @0x2
0x0e6c…0e83 at0004 = ╱b1╱ EDIT ╱ // 0xe70 @0x4
0x0e6c…0e83 at0005 = ╱22╱"╱ // 0xe71 @0x5
0x0e6c…0e83 at0006 = ╱54╱T╱ // 0xe72 @0x6
0x0e6c…0e83 at0007 = ╱52╱R╱ // 0xe73 @0x7
0x0e6c…0e83 at0008 = ╱59╱Y╱ // 0xe74 @0x8
0x0e6c…0e83 at0009 = ╱4b╱K╱ // 0xe75 @0x9
0x0e6c…0e83 at000a = ╱20╱…╱ // 0xe76 @0xa
0x0e6c…0e83 at000b = ╱2d╱-╱ // 0xe77 @0xb
0x0e6c…0e83 at000c = ╱52╱R╱ // 0xe78 @0xc
0x0e6c…0e83 at000d = ╱45╱E╱ // 0xe79 @0xd
0x0e6c…0e83 at000e = ╱54╱T╱ // 0xe7a @0xe
0x0e6c…0e83 at000f = ╱55╱U╱ // 0xe7b @0xf
0x0e6c…0e83 at0010 = ╱52╱R╱ // 0xe7c @0x10
0x0e6c…0e83 at0011 = ╱4e╱N╱ // 0xe7d @0x11
0x0e6c…0e83 at0012 = ╱22╱"╱ // 0xe7e @0x12
0x0e6c…0e83 at0013 = ╱f1╱ : ╱ // 0xe7f @0x13
0x0e6c…0e83 at0014 = ╱53╱S╱ // 0xe80 @0x14
0x0e6c…0e83 at0015 = ╱ef╱$╱ // 0xe81 @0x15
0x0e6c…0e83 at0016 = EOL // 0xe82 @0x16
0x0e6c…0e83 }
0x0e83…0e8f a47d 2080 ENDPROC RETURN
0x0e83…0e8f LineComal80 {
0x0e83…0e8f ptr = 0xa47d // 0xe83 @0x0
0x0e83…0e8f lno = 0x0820 // 0xe85 @0x2
0x0e83…0e8f at0004 = ╱9f╱ ENDPROC ╱ // 0xe87 @0x4
0x0e83…0e8f at0005 = ╱52╱R╱ // 0xe88 @0x5
0x0e83…0e8f at0006 = ╱45╱E╱ // 0xe89 @0x6
0x0e83…0e8f at0007 = ╱54╱T╱ // 0xe8a @0x7
0x0e83…0e8f at0008 = ╱55╱U╱ // 0xe8b @0x8
0x0e83…0e8f at0009 = ╱52╱R╱ // 0xe8c @0x9
0x0e83…0e8f at000a = ╱4e╱N╱ // 0xe8d @0xa
0x0e83…0e8f at000b = EOL // 0xe8e @0xb
0x0e83…0e8f }
0x0e8f…0e99 a487 2090 PROC TLI
0x0e8f…0e99 LineComal80 {
0x0e8f…0e99 ptr = 0xa487 // 0xe8f @0x0
0x0e8f…0e99 lno = 0x082a // 0xe91 @0x2
0x0e8f…0e99 at0004 = ╱9e2a╱ PROC ╱ // 0xe93 @0x4
0x0e8f…0e99 at0006 = ╱54╱T╱ // 0xe95 @0x6
0x0e8f…0e99 at0007 = ╱4c╱L╱ // 0xe96 @0x7
0x0e8f…0e99 at0008 = ╱49╱I╱ // 0xe97 @0x8
0x0e8f…0e99 at0009 = EOL // 0xe98 @0x9
0x0e8f…0e99 }
0x0e99…0eac a49a 2100 FOR X := 1 TO DO
0x0e99…0eac LineComal80 {
0x0e99…0eac ptr = 0xa49a // 0xe99 @0x0
0x0e99…0eac lno = 0x0834 // 0xe9b @0x2
0x0e99…0eac at0004 = ╱832b╱ FOR ╱ // 0xe9d @0x4
0x0e99…0eac at0006 = ╱58╱X╱ // 0xe9f @0x6
0x0e99…0eac at0007 = ╱f0╱ := ╱ // 0xea0 @0x7
0x0e99…0eac at0008 = ╱31╱1╱ // 0xea1 @0x8
0x0e99…0eac at0009 = ╱f20100╱ // 0xea2 @0x9
0x0e99…0eac at000c = ╱b735╱ TO ╱ // 0xea5 @0xc
0x0e99…0eac at000e = ╱f20500╱ // 0xea7 @0xe
0x0e99…0eac at0011 = ╱bb╱ DO ╱ // 0xeaa @0x11
0x0e99…0eac at0012 = EOL // 0xeab @0x12
0x0e99…0eac }
0x0eac…0eb2 a4a0 2110 PRINT
0x0eac…0eb2 LineComal80 {
0x0eac…0eb2 ptr = 0xa4a0 // 0xeac @0x0
0x0eac…0eb2 lno = 0x083e // 0xeae @0x2
0x0eac…0eb2 at0004 = ╱92╱ PRINT ╱ // 0xeb0 @0x4
0x0eac…0eb2 at0005 = EOL // 0xeb1 @0x5
0x0eac…0eb2 }
0x0eb2…0eb9 a4a7 2120 NEXT X
0x0eb2…0eb9 LineComal80 {
0x0eb2…0eb9 ptr = 0xa4a7 // 0xeb2 @0x0
0x0eb2…0eb9 lno = 0x0848 // 0xeb4 @0x2
0x0eb2…0eb9 at0004 = ╱84╱ NEXT ╱ // 0xeb6 @0x4
0x0eb2…0eb9 at0005 = ╱58╱X╱ // 0xeb7 @0x5
0x0eb2…0eb9 at0006 = EOL // 0xeb8 @0x6
0x0eb2…0eb9 }
0x0eb9…0ec2 a4b0 2130 ENDPROC TLI
0x0eb9…0ec2 LineComal80 {
0x0eb9…0ec2 ptr = 0xa4b0 // 0xeb9 @0x0
0x0eb9…0ec2 lno = 0x0852 // 0xebb @0x2
0x0eb9…0ec2 at0004 = ╱9f╱ ENDPROC ╱ // 0xebd @0x4
0x0eb9…0ec2 at0005 = ╱54╱T╱ // 0xebe @0x5
0x0eb9…0ec2 at0006 = ╱4c╱L╱ // 0xebf @0x6
0x0eb9…0ec2 at0007 = ╱49╱I╱ // 0xec0 @0x7
0x0eb9…0ec2 at0008 = EOL // 0xec1 @0x8
0x0eb9…0ec2 }
0x0ec2…0ecf a4bd 2140 PROC GEMHOP
0x0ec2…0ecf LineComal80 {
0x0ec2…0ecf ptr = 0xa4bd // 0xec2 @0x0
0x0ec2…0ecf lno = 0x085c // 0xec4 @0x2
0x0ec2…0ecf at0004 = ╱9e2c╱ PROC ╱ // 0xec6 @0x4
0x0ec2…0ecf at0006 = ╱47╱G╱ // 0xec8 @0x6
0x0ec2…0ecf at0007 = ╱45╱E╱ // 0xec9 @0x7
0x0ec2…0ecf at0008 = ╱4d╱M╱ // 0xeca @0x8
0x0ec2…0ecf at0009 = ╱48╱H╱ // 0xecb @0x9
0x0ec2…0ecf at000a = ╱4f╱O╱ // 0xecc @0xa
0x0ec2…0ecf at000b = ╱50╱P╱ // 0xecd @0xb
0x0ec2…0ecf at000c = EOL // 0xece @0xc
0x0ec2…0ecf }
0x0ecf…0ee2 a4d0 2150 OPEN "DDE:HSLUT",W
0x0ecf…0ee2 LineComal80 {
0x0ecf…0ee2 ptr = 0xa4d0 // 0xecf @0x0
0x0ecf…0ee2 lno = 0x0866 // 0xed1 @0x2
0x0ecf…0ee2 at0004 = ╱a7╱ OPEN ╱ // 0xed3 @0x4
0x0ecf…0ee2 at0005 = ╱22╱"╱ // 0xed4 @0x5
0x0ecf…0ee2 at0006 = ╱44╱D╱ // 0xed5 @0x6
0x0ecf…0ee2 at0007 = ╱44╱D╱ // 0xed6 @0x7
0x0ecf…0ee2 at0008 = ╱45╱E╱ // 0xed7 @0x8
0x0ecf…0ee2 at0009 = ╱3a╱:╱ // 0xed8 @0x9
0x0ecf…0ee2 at000a = ╱48╱H╱ // 0xed9 @0xa
0x0ecf…0ee2 at000b = ╱53╱S╱ // 0xeda @0xb
0x0ecf…0ee2 at000c = ╱4c╱L╱ // 0xedb @0xc
0x0ecf…0ee2 at000d = ╱55╱U╱ // 0xedc @0xd
0x0ecf…0ee2 at000e = ╱54╱T╱ // 0xedd @0xe
0x0ecf…0ee2 at000f = ╱22╱"╱ // 0xede @0xf
0x0ecf…0ee2 at0010 = ╱ec╱,╱ // 0xedf @0x10
0x0ecf…0ee2 at0011 = ╱57╱W╱ // 0xee0 @0x11
0x0ecf…0ee2 at0012 = EOL // 0xee1 @0x12
0x0ecf…0ee2 }
0x0ee2…0ef5 a4e3 2160 FOR X := 1 TO DO
0x0ee2…0ef5 LineComal80 {
0x0ee2…0ef5 ptr = 0xa4e3 // 0xee2 @0x0
0x0ee2…0ef5 lno = 0x0870 // 0xee4 @0x2
0x0ee2…0ef5 at0004 = ╱832d╱ FOR ╱ // 0xee6 @0x4
0x0ee2…0ef5 at0006 = ╱58╱X╱ // 0xee8 @0x6
0x0ee2…0ef5 at0007 = ╱f0╱ := ╱ // 0xee9 @0x7
0x0ee2…0ef5 at0008 = ╱31╱1╱ // 0xeea @0x8
0x0ee2…0ef5 at0009 = ╱f20100╱ // 0xeeb @0x9
0x0ee2…0ef5 at000c = ╱b736╱ TO ╱ // 0xeee @0xc
0x0ee2…0ef5 at000e = ╱f20600╱ // 0xef0 @0xe
0x0ee2…0ef5 at0011 = ╱bb╱ DO ╱ // 0xef3 @0x11
0x0ee2…0ef5 at0012 = EOL // 0xef4 @0x12
0x0ee2…0ef5 }
0x0ef5…0f1a a508 2170 IF X >< 3 THEN PUT "DDE:HSLUT" : A(30 - X)
0x0ef5…0f1a LineComal80 {
0x0ef5…0f1a ptr = 0xa508 // 0xef5 @0x0
0x0ef5…0f1a lno = 0x087a // 0xef7 @0x2
0x0ef5…0f1a at0004 = ╱8200╱ IF ╱ // 0xef9 @0x4
0x0ef5…0f1a at0006 = ╱58╱X╱ // 0xefb @0x6
0x0ef5…0f1a at0007 = ╱e4╱ >< ╱ // 0xefc @0x7
0x0ef5…0f1a at0008 = ╱33╱3╱ // 0xefd @0x8
0x0ef5…0f1a at0009 = ╱f20300╱ // 0xefe @0x9
0x0ef5…0f1a at000c = ╱b5╱ THEN ╱ // 0xf01 @0xc
0x0ef5…0f1a at000d = ╱aa╱ PUT ╱ // 0xf02 @0xd
0x0ef5…0f1a at000e = ╱22╱"╱ // 0xf03 @0xe
0x0ef5…0f1a at000f = ╱44╱D╱ // 0xf04 @0xf
0x0ef5…0f1a at0010 = ╱44╱D╱ // 0xf05 @0x10
0x0ef5…0f1a at0011 = ╱45╱E╱ // 0xf06 @0x11
0x0ef5…0f1a at0012 = ╱3a╱:╱ // 0xf07 @0x12
0x0ef5…0f1a at0013 = ╱48╱H╱ // 0xf08 @0x13
0x0ef5…0f1a at0014 = ╱53╱S╱ // 0xf09 @0x14
0x0ef5…0f1a at0015 = ╱4c╱L╱ // 0xf0a @0x15
0x0ef5…0f1a at0016 = ╱55╱U╱ // 0xf0b @0x16
0x0ef5…0f1a at0017 = ╱54╱T╱ // 0xf0c @0x17
0x0ef5…0f1a at0018 = ╱22╱"╱ // 0xf0d @0x18
0x0ef5…0f1a at0019 = ╱f1╱ : ╱ // 0xf0e @0x19
0x0ef5…0f1a at001a = ╱41╱A╱ // 0xf0f @0x1a
0x0ef5…0f1a at001b = ╱ed╱(╱ // 0xf10 @0x1b
0x0ef5…0f1a at001c = ╱33╱3╱ // 0xf11 @0x1c
0x0ef5…0f1a at001d = ╱30╱0╱ // 0xf12 @0x1d
0x0ef5…0f1a at001e = ╱f21e00╱ // 0xf13 @0x1e
0x0ef5…0f1a at0021 = ╱e6╱ - ╱ // 0xf16 @0x21
0x0ef5…0f1a at0022 = ╱58╱X╱ // 0xf17 @0x22
0x0ef5…0f1a at0023 = ╱ee╱)╱ // 0xf18 @0x23
0x0ef5…0f1a at0024 = EOL // 0xf19 @0x24
0x0ef5…0f1a }
0x0f1a…0f21 a50f 2180 NEXT X
0x0f1a…0f21 LineComal80 {
0x0f1a…0f21 ptr = 0xa50f // 0xf1a @0x0
0x0f1a…0f21 lno = 0x0884 // 0xf1c @0x2
0x0f1a…0f21 at0004 = ╱84╱ NEXT ╱ // 0xf1e @0x4
0x0f1a…0f21 at0005 = ╱58╱X╱ // 0xf1f @0x5
0x0f1a…0f21 at0006 = EOL // 0xf20 @0x6
0x0f1a…0f21 }
0x0f21…0f32 a520 2190 CLOSE "DDE:HSLUT"
0x0f21…0f32 LineComal80 {
0x0f21…0f32 ptr = 0xa520 // 0xf21 @0x0
0x0f21…0f32 lno = 0x088e // 0xf23 @0x2
0x0f21…0f32 at0004 = ╱a8╱ CLOSE ╱ // 0xf25 @0x4
0x0f21…0f32 at0005 = ╱22╱"╱ // 0xf26 @0x5
0x0f21…0f32 at0006 = ╱44╱D╱ // 0xf27 @0x6
0x0f21…0f32 at0007 = ╱44╱D╱ // 0xf28 @0x7
0x0f21…0f32 at0008 = ╱45╱E╱ // 0xf29 @0x8
0x0f21…0f32 at0009 = ╱3a╱:╱ // 0xf2a @0x9
0x0f21…0f32 at000a = ╱48╱H╱ // 0xf2b @0xa
0x0f21…0f32 at000b = ╱53╱S╱ // 0xf2c @0xb
0x0f21…0f32 at000c = ╱4c╱L╱ // 0xf2d @0xc
0x0f21…0f32 at000d = ╱55╱U╱ // 0xf2e @0xd
0x0f21…0f32 at000e = ╱54╱T╱ // 0xf2f @0xe
0x0f21…0f32 at000f = ╱22╱"╱ // 0xf30 @0xf
0x0f21…0f32 at0010 = EOL // 0xf31 @0x10
0x0f21…0f32 }
0x0f32…0f3e a52c 2200 ENDPROC GEMHOP
0x0f32…0f3e LineComal80 {
0x0f32…0f3e ptr = 0xa52c // 0xf32 @0x0
0x0f32…0f3e lno = 0x0898 // 0xf34 @0x2
0x0f32…0f3e at0004 = ╱9f╱ ENDPROC ╱ // 0xf36 @0x4
0x0f32…0f3e at0005 = ╱47╱G╱ // 0xf37 @0x5
0x0f32…0f3e at0006 = ╱45╱E╱ // 0xf38 @0x6
0x0f32…0f3e at0007 = ╱4d╱M╱ // 0xf39 @0x7
0x0f32…0f3e at0008 = ╱48╱H╱ // 0xf3a @0x8
0x0f32…0f3e at0009 = ╱4f╱O╱ // 0xf3b @0x9
0x0f32…0f3e at000a = ╱50╱P╱ // 0xf3c @0xa
0x0f32…0f3e at000b = EOL // 0xf3d @0xb
0x0f32…0f3e }
0x0f3e…0f4b a539 2210 PROC GEMBIP
0x0f3e…0f4b LineComal80 {
0x0f3e…0f4b ptr = 0xa539 // 0xf3e @0x0
0x0f3e…0f4b lno = 0x08a2 // 0xf40 @0x2
0x0f3e…0f4b at0004 = ╱9e2e╱ PROC ╱ // 0xf42 @0x4
0x0f3e…0f4b at0006 = ╱47╱G╱ // 0xf44 @0x6
0x0f3e…0f4b at0007 = ╱45╱E╱ // 0xf45 @0x7
0x0f3e…0f4b at0008 = ╱4d╱M╱ // 0xf46 @0x8
0x0f3e…0f4b at0009 = ╱42╱B╱ // 0xf47 @0x9
0x0f3e…0f4b at000a = ╱49╱I╱ // 0xf48 @0xa
0x0f3e…0f4b at000b = ╱50╱P╱ // 0xf49 @0xb
0x0f3e…0f4b at000c = EOL // 0xf4a @0xc
0x0f3e…0f4b }
0x0f4b…0f5e a54c 2220 OPEN "DDE:BSLUT",W
0x0f4b…0f5e LineComal80 {
0x0f4b…0f5e ptr = 0xa54c // 0xf4b @0x0
0x0f4b…0f5e lno = 0x08ac // 0xf4d @0x2
0x0f4b…0f5e at0004 = ╱a7╱ OPEN ╱ // 0xf4f @0x4
0x0f4b…0f5e at0005 = ╱22╱"╱ // 0xf50 @0x5
0x0f4b…0f5e at0006 = ╱44╱D╱ // 0xf51 @0x6
0x0f4b…0f5e at0007 = ╱44╱D╱ // 0xf52 @0x7
0x0f4b…0f5e at0008 = ╱45╱E╱ // 0xf53 @0x8
0x0f4b…0f5e at0009 = ╱3a╱:╱ // 0xf54 @0x9
0x0f4b…0f5e at000a = ╱42╱B╱ // 0xf55 @0xa
0x0f4b…0f5e at000b = ╱53╱S╱ // 0xf56 @0xb
0x0f4b…0f5e at000c = ╱4c╱L╱ // 0xf57 @0xc
0x0f4b…0f5e at000d = ╱55╱U╱ // 0xf58 @0xd
0x0f4b…0f5e at000e = ╱54╱T╱ // 0xf59 @0xe
0x0f4b…0f5e at000f = ╱22╱"╱ // 0xf5a @0xf
0x0f4b…0f5e at0010 = ╱ec╱,╱ // 0xf5b @0x10
0x0f4b…0f5e at0011 = ╱57╱W╱ // 0xf5c @0x11
0x0f4b…0f5e at0012 = EOL // 0xf5d @0x12
0x0f4b…0f5e }
0x0f5e…0f71 a55f 2230 FOR X := 1 TO DO
0x0f5e…0f71 LineComal80 {
0x0f5e…0f71 ptr = 0xa55f // 0xf5e @0x0
0x0f5e…0f71 lno = 0x08b6 // 0xf60 @0x2
0x0f5e…0f71 at0004 = ╱832f╱ FOR ╱ // 0xf62 @0x4
0x0f5e…0f71 at0006 = ╱58╱X╱ // 0xf64 @0x6
0x0f5e…0f71 at0007 = ╱f0╱ := ╱ // 0xf65 @0x7
0x0f5e…0f71 at0008 = ╱31╱1╱ // 0xf66 @0x8
0x0f5e…0f71 at0009 = ╱f20100╱ // 0xf67 @0x9
0x0f5e…0f71 at000c = ╱b736╱ TO ╱ // 0xf6a @0xc
0x0f5e…0f71 at000e = ╱f20600╱ // 0xf6c @0xe
0x0f5e…0f71 at0011 = ╱bb╱ DO ╱ // 0xf6f @0x11
0x0f5e…0f71 at0012 = EOL // 0xf70 @0x12
0x0f5e…0f71 }
0x0f71…0f96 a584 2240 IF X >< 3 THEN PUT "DDE:BSLUT" : A(30 - X)
0x0f71…0f96 LineComal80 {
0x0f71…0f96 ptr = 0xa584 // 0xf71 @0x0
0x0f71…0f96 lno = 0x08c0 // 0xf73 @0x2
0x0f71…0f96 at0004 = ╱8200╱ IF ╱ // 0xf75 @0x4
0x0f71…0f96 at0006 = ╱58╱X╱ // 0xf77 @0x6
0x0f71…0f96 at0007 = ╱e4╱ >< ╱ // 0xf78 @0x7
0x0f71…0f96 at0008 = ╱33╱3╱ // 0xf79 @0x8
0x0f71…0f96 at0009 = ╱f20300╱ // 0xf7a @0x9
0x0f71…0f96 at000c = ╱b5╱ THEN ╱ // 0xf7d @0xc
0x0f71…0f96 at000d = ╱aa╱ PUT ╱ // 0xf7e @0xd
0x0f71…0f96 at000e = ╱22╱"╱ // 0xf7f @0xe
0x0f71…0f96 at000f = ╱44╱D╱ // 0xf80 @0xf
0x0f71…0f96 at0010 = ╱44╱D╱ // 0xf81 @0x10
0x0f71…0f96 at0011 = ╱45╱E╱ // 0xf82 @0x11
0x0f71…0f96 at0012 = ╱3a╱:╱ // 0xf83 @0x12
0x0f71…0f96 at0013 = ╱42╱B╱ // 0xf84 @0x13
0x0f71…0f96 at0014 = ╱53╱S╱ // 0xf85 @0x14
0x0f71…0f96 at0015 = ╱4c╱L╱ // 0xf86 @0x15
0x0f71…0f96 at0016 = ╱55╱U╱ // 0xf87 @0x16
0x0f71…0f96 at0017 = ╱54╱T╱ // 0xf88 @0x17
0x0f71…0f96 at0018 = ╱22╱"╱ // 0xf89 @0x18
0x0f71…0f96 at0019 = ╱f1╱ : ╱ // 0xf8a @0x19
0x0f71…0f96 at001a = ╱41╱A╱ // 0xf8b @0x1a
0x0f71…0f96 at001b = ╱ed╱(╱ // 0xf8c @0x1b
0x0f71…0f96 at001c = ╱33╱3╱ // 0xf8d @0x1c
0x0f71…0f96 at001d = ╱30╱0╱ // 0xf8e @0x1d
0x0f71…0f96 at001e = ╱f21e00╱ // 0xf8f @0x1e
0x0f71…0f96 at0021 = ╱e6╱ - ╱ // 0xf92 @0x21
0x0f71…0f96 at0022 = ╱58╱X╱ // 0xf93 @0x22
0x0f71…0f96 at0023 = ╱ee╱)╱ // 0xf94 @0x23
0x0f71…0f96 at0024 = EOL // 0xf95 @0x24
0x0f71…0f96 }
0x0f96…0f9d a58b 2250 NEXT X
0x0f96…0f9d LineComal80 {
0x0f96…0f9d ptr = 0xa58b // 0xf96 @0x0
0x0f96…0f9d lno = 0x08ca // 0xf98 @0x2
0x0f96…0f9d at0004 = ╱84╱ NEXT ╱ // 0xf9a @0x4
0x0f96…0f9d at0005 = ╱58╱X╱ // 0xf9b @0x5
0x0f96…0f9d at0006 = EOL // 0xf9c @0x6
0x0f96…0f9d }
0x0f9d…0fae a59c 2260 CLOSE "DDE:BSLUT"
0x0f9d…0fae LineComal80 {
0x0f9d…0fae ptr = 0xa59c // 0xf9d @0x0
0x0f9d…0fae lno = 0x08d4 // 0xf9f @0x2
0x0f9d…0fae at0004 = ╱a8╱ CLOSE ╱ // 0xfa1 @0x4
0x0f9d…0fae at0005 = ╱22╱"╱ // 0xfa2 @0x5
0x0f9d…0fae at0006 = ╱44╱D╱ // 0xfa3 @0x6
0x0f9d…0fae at0007 = ╱44╱D╱ // 0xfa4 @0x7
0x0f9d…0fae at0008 = ╱45╱E╱ // 0xfa5 @0x8
0x0f9d…0fae at0009 = ╱3a╱:╱ // 0xfa6 @0x9
0x0f9d…0fae at000a = ╱42╱B╱ // 0xfa7 @0xa
0x0f9d…0fae at000b = ╱53╱S╱ // 0xfa8 @0xb
0x0f9d…0fae at000c = ╱4c╱L╱ // 0xfa9 @0xc
0x0f9d…0fae at000d = ╱55╱U╱ // 0xfaa @0xd
0x0f9d…0fae at000e = ╱54╱T╱ // 0xfab @0xe
0x0f9d…0fae at000f = ╱22╱"╱ // 0xfac @0xf
0x0f9d…0fae at0010 = EOL // 0xfad @0x10
0x0f9d…0fae }
0x0fae…0fba a5a8 2270 ENDPROC GEMBIP
0x0fae…0fba LineComal80 {
0x0fae…0fba ptr = 0xa5a8 // 0xfae @0x0
0x0fae…0fba lno = 0x08de // 0xfb0 @0x2
0x0fae…0fba at0004 = ╱9f╱ ENDPROC ╱ // 0xfb2 @0x4
0x0fae…0fba at0005 = ╱47╱G╱ // 0xfb3 @0x5
0x0fae…0fba at0006 = ╱45╱E╱ // 0xfb4 @0x6
0x0fae…0fba at0007 = ╱4d╱M╱ // 0xfb5 @0x7
0x0fae…0fba at0008 = ╱42╱B╱ // 0xfb6 @0x8
0x0fae…0fba at0009 = ╱49╱I╱ // 0xfb7 @0x9
0x0fae…0fba at000a = ╱50╱P╱ // 0xfb8 @0xa
0x0fae…0fba at000b = EOL // 0xfb9 @0xb
0x0fae…0fba }
0x0fba…0fc8 a5b6 2280 PROC HENTHOP
0x0fba…0fc8 LineComal80 {
0x0fba…0fc8 ptr = 0xa5b6 // 0xfba @0x0
0x0fba…0fc8 lno = 0x08e8 // 0xfbc @0x2
0x0fba…0fc8 at0004 = ╱9e30╱ PROC ╱ // 0xfbe @0x4
0x0fba…0fc8 at0006 = ╱48╱H╱ // 0xfc0 @0x6
0x0fba…0fc8 at0007 = ╱45╱E╱ // 0xfc1 @0x7
0x0fba…0fc8 at0008 = ╱4e╱N╱ // 0xfc2 @0x8
0x0fba…0fc8 at0009 = ╱54╱T╱ // 0xfc3 @0x9
0x0fba…0fc8 at000a = ╱48╱H╱ // 0xfc4 @0xa
0x0fba…0fc8 at000b = ╱4f╱O╱ // 0xfc5 @0xb
0x0fba…0fc8 at000c = ╱50╱P╱ // 0xfc6 @0xc
0x0fba…0fc8 at000d = EOL // 0xfc7 @0xd
0x0fba…0fc8 }
0x0fc8…0fdb a5c9 2290 OPEN "DDE:HSLUT",R
0x0fc8…0fdb LineComal80 {
0x0fc8…0fdb ptr = 0xa5c9 // 0xfc8 @0x0
0x0fc8…0fdb lno = 0x08f2 // 0xfca @0x2
0x0fc8…0fdb at0004 = ╱a7╱ OPEN ╱ // 0xfcc @0x4
0x0fc8…0fdb at0005 = ╱22╱"╱ // 0xfcd @0x5
0x0fc8…0fdb at0006 = ╱44╱D╱ // 0xfce @0x6
0x0fc8…0fdb at0007 = ╱44╱D╱ // 0xfcf @0x7
0x0fc8…0fdb at0008 = ╱45╱E╱ // 0xfd0 @0x8
0x0fc8…0fdb at0009 = ╱3a╱:╱ // 0xfd1 @0x9
0x0fc8…0fdb at000a = ╱48╱H╱ // 0xfd2 @0xa
0x0fc8…0fdb at000b = ╱53╱S╱ // 0xfd3 @0xb
0x0fc8…0fdb at000c = ╱4c╱L╱ // 0xfd4 @0xc
0x0fc8…0fdb at000d = ╱55╱U╱ // 0xfd5 @0xd
0x0fc8…0fdb at000e = ╱54╱T╱ // 0xfd6 @0xe
0x0fc8…0fdb at000f = ╱22╱"╱ // 0xfd7 @0xf
0x0fc8…0fdb at0010 = ╱ec╱,╱ // 0xfd8 @0x10
0x0fc8…0fdb at0011 = ╱52╱R╱ // 0xfd9 @0x11
0x0fc8…0fdb at0012 = EOL // 0xfda @0x12
0x0fc8…0fdb }
0x0fdb…0fee a5dc 2300 FOR X := 1 TO DO
0x0fdb…0fee LineComal80 {
0x0fdb…0fee ptr = 0xa5dc // 0xfdb @0x0
0x0fdb…0fee lno = 0x08fc // 0xfdd @0x2
0x0fdb…0fee at0004 = ╱8331╱ FOR ╱ // 0xfdf @0x4
0x0fdb…0fee at0006 = ╱58╱X╱ // 0xfe1 @0x6
0x0fdb…0fee at0007 = ╱f0╱ := ╱ // 0xfe2 @0x7
0x0fdb…0fee at0008 = ╱31╱1╱ // 0xfe3 @0x8
0x0fdb…0fee at0009 = ╱f20100╱ // 0xfe4 @0x9
0x0fdb…0fee at000c = ╱b736╱ TO ╱ // 0xfe7 @0xc
0x0fdb…0fee at000e = ╱f20600╱ // 0xfe9 @0xe
0x0fdb…0fee at0011 = ╱bb╱ DO ╱ // 0xfec @0x11
0x0fdb…0fee at0012 = EOL // 0xfed @0x12
0x0fdb…0fee }
0x0fee…1013 a601 2310 IF X >< 3 THEN GET "DDE:HSLUT" : A(30 - X)
0x0fee…1013 LineComal80 {
0x0fee…1013 ptr = 0xa601 // 0xfee @0x0
0x0fee…1013 lno = 0x0906 // 0xff0 @0x2
0x0fee…1013 at0004 = ╱8200╱ IF ╱ // 0xff2 @0x4
0x0fee…1013 at0006 = ╱58╱X╱ // 0xff4 @0x6
0x0fee…1013 at0007 = ╱e4╱ >< ╱ // 0xff5 @0x7
0x0fee…1013 at0008 = ╱33╱3╱ // 0xff6 @0x8
0x0fee…1013 at0009 = ╱f20300╱ // 0xff7 @0x9
0x0fee…1013 at000c = ╱b5╱ THEN ╱ // 0xffa @0xc
0x0fee…1013 at000d = ╱a9╱ GET ╱ // 0xffb @0xd
0x0fee…1013 at000e = ╱22╱"╱ // 0xffc @0xe
0x0fee…1013 at000f = ╱44╱D╱ // 0xffd @0xf
0x0fee…1013 at0010 = ╱44╱D╱ // 0xffe @0x10
0x0fee…1013 at0011 = ╱45╱E╱ // 0xfff @0x11
0x0fee…1013 at0012 = ╱3a╱:╱ // 0x1000 @0x12
0x0fee…1013 at0013 = ╱48╱H╱ // 0x1001 @0x13
0x0fee…1013 at0014 = ╱53╱S╱ // 0x1002 @0x14
0x0fee…1013 at0015 = ╱4c╱L╱ // 0x1003 @0x15
0x0fee…1013 at0016 = ╱55╱U╱ // 0x1004 @0x16
0x0fee…1013 at0017 = ╱54╱T╱ // 0x1005 @0x17
0x0fee…1013 at0018 = ╱22╱"╱ // 0x1006 @0x18
0x0fee…1013 at0019 = ╱f1╱ : ╱ // 0x1007 @0x19
0x0fee…1013 at001a = ╱41╱A╱ // 0x1008 @0x1a
0x0fee…1013 at001b = ╱ed╱(╱ // 0x1009 @0x1b
0x0fee…1013 at001c = ╱33╱3╱ // 0x100a @0x1c
0x0fee…1013 at001d = ╱30╱0╱ // 0x100b @0x1d
0x0fee…1013 at001e = ╱f21e00╱ // 0x100c @0x1e
0x0fee…1013 at0021 = ╱e6╱ - ╱ // 0x100f @0x21
0x0fee…1013 at0022 = ╱58╱X╱ // 0x1010 @0x22
0x0fee…1013 at0023 = ╱ee╱)╱ // 0x1011 @0x23
0x0fee…1013 at0024 = EOL // 0x1012 @0x24
0x0fee…1013 }
0x1013…101a a608 2320 NEXT X
0x1013…101a LineComal80 {
0x1013…101a ptr = 0xa608 // 0x1013 @0x0
0x1013…101a lno = 0x0910 // 0x1015 @0x2
0x1013…101a at0004 = ╱84╱ NEXT ╱ // 0x1017 @0x4
0x1013…101a at0005 = ╱58╱X╱ // 0x1018 @0x5
0x1013…101a at0006 = EOL // 0x1019 @0x6
0x1013…101a }
0x101a…102b a619 2330 CLOSE "DDE:HSLUT"
0x101a…102b LineComal80 {
0x101a…102b ptr = 0xa619 // 0x101a @0x0
0x101a…102b lno = 0x091a // 0x101c @0x2
0x101a…102b at0004 = ╱a8╱ CLOSE ╱ // 0x101e @0x4
0x101a…102b at0005 = ╱22╱"╱ // 0x101f @0x5
0x101a…102b at0006 = ╱44╱D╱ // 0x1020 @0x6
0x101a…102b at0007 = ╱44╱D╱ // 0x1021 @0x7
0x101a…102b at0008 = ╱45╱E╱ // 0x1022 @0x8
0x101a…102b at0009 = ╱3a╱:╱ // 0x1023 @0x9
0x101a…102b at000a = ╱48╱H╱ // 0x1024 @0xa
0x101a…102b at000b = ╱53╱S╱ // 0x1025 @0xb
0x101a…102b at000c = ╱4c╱L╱ // 0x1026 @0xc
0x101a…102b at000d = ╱55╱U╱ // 0x1027 @0xd
0x101a…102b at000e = ╱54╱T╱ // 0x1028 @0xe
0x101a…102b at000f = ╱22╱"╱ // 0x1029 @0xf
0x101a…102b at0010 = EOL // 0x102a @0x10
0x101a…102b }
0x102b…1038 a626 2340 ENDPROC HENTHOP
0x102b…1038 LineComal80 {
0x102b…1038 ptr = 0xa626 // 0x102b @0x0
0x102b…1038 lno = 0x0924 // 0x102d @0x2
0x102b…1038 at0004 = ╱9f╱ ENDPROC ╱ // 0x102f @0x4
0x102b…1038 at0005 = ╱48╱H╱ // 0x1030 @0x5
0x102b…1038 at0006 = ╱45╱E╱ // 0x1031 @0x6
0x102b…1038 at0007 = ╱4e╱N╱ // 0x1032 @0x7
0x102b…1038 at0008 = ╱54╱T╱ // 0x1033 @0x8
0x102b…1038 at0009 = ╱48╱H╱ // 0x1034 @0x9
0x102b…1038 at000a = ╱4f╱O╱ // 0x1035 @0xa
0x102b…1038 at000b = ╱50╱P╱ // 0x1036 @0xb
0x102b…1038 at000c = EOL // 0x1037 @0xc
0x102b…1038 }
0x1038…1046 a634 2350 PROC HENTBIP
0x1038…1046 LineComal80 {
0x1038…1046 ptr = 0xa634 // 0x1038 @0x0
0x1038…1046 lno = 0x092e // 0x103a @0x2
0x1038…1046 at0004 = ╱9e32╱ PROC ╱ // 0x103c @0x4
0x1038…1046 at0006 = ╱48╱H╱ // 0x103e @0x6
0x1038…1046 at0007 = ╱45╱E╱ // 0x103f @0x7
0x1038…1046 at0008 = ╱4e╱N╱ // 0x1040 @0x8
0x1038…1046 at0009 = ╱54╱T╱ // 0x1041 @0x9
0x1038…1046 at000a = ╱42╱B╱ // 0x1042 @0xa
0x1038…1046 at000b = ╱49╱I╱ // 0x1043 @0xb
0x1038…1046 at000c = ╱50╱P╱ // 0x1044 @0xc
0x1038…1046 at000d = EOL // 0x1045 @0xd
0x1038…1046 }
0x1046…1059 a647 2360 OPEN "DDE:BSLUT",R
0x1046…1059 LineComal80 {
0x1046…1059 ptr = 0xa647 // 0x1046 @0x0
0x1046…1059 lno = 0x0938 // 0x1048 @0x2
0x1046…1059 at0004 = ╱a7╱ OPEN ╱ // 0x104a @0x4
0x1046…1059 at0005 = ╱22╱"╱ // 0x104b @0x5
0x1046…1059 at0006 = ╱44╱D╱ // 0x104c @0x6
0x1046…1059 at0007 = ╱44╱D╱ // 0x104d @0x7
0x1046…1059 at0008 = ╱45╱E╱ // 0x104e @0x8
0x1046…1059 at0009 = ╱3a╱:╱ // 0x104f @0x9
0x1046…1059 at000a = ╱42╱B╱ // 0x1050 @0xa
0x1046…1059 at000b = ╱53╱S╱ // 0x1051 @0xb
0x1046…1059 at000c = ╱4c╱L╱ // 0x1052 @0xc
0x1046…1059 at000d = ╱55╱U╱ // 0x1053 @0xd
0x1046…1059 at000e = ╱54╱T╱ // 0x1054 @0xe
0x1046…1059 at000f = ╱22╱"╱ // 0x1055 @0xf
0x1046…1059 at0010 = ╱ec╱,╱ // 0x1056 @0x10
0x1046…1059 at0011 = ╱52╱R╱ // 0x1057 @0x11
0x1046…1059 at0012 = EOL // 0x1058 @0x12
0x1046…1059 }
0x1059…106c a65a 2370 FOR X := 1 TO DO
0x1059…106c LineComal80 {
0x1059…106c ptr = 0xa65a // 0x1059 @0x0
0x1059…106c lno = 0x0942 // 0x105b @0x2
0x1059…106c at0004 = ╱8333╱ FOR ╱ // 0x105d @0x4
0x1059…106c at0006 = ╱58╱X╱ // 0x105f @0x6
0x1059…106c at0007 = ╱f0╱ := ╱ // 0x1060 @0x7
0x1059…106c at0008 = ╱31╱1╱ // 0x1061 @0x8
0x1059…106c at0009 = ╱f20100╱ // 0x1062 @0x9
0x1059…106c at000c = ╱b736╱ TO ╱ // 0x1065 @0xc
0x1059…106c at000e = ╱f20600╱ // 0x1067 @0xe
0x1059…106c at0011 = ╱bb╱ DO ╱ // 0x106a @0x11
0x1059…106c at0012 = EOL // 0x106b @0x12
0x1059…106c }
0x106c…1091 a67f 2380 IF X >< 3 THEN GET "DDE:BSLUT" : A(30 - X)
0x106c…1091 LineComal80 {
0x106c…1091 ptr = 0xa67f // 0x106c @0x0
0x106c…1091 lno = 0x094c // 0x106e @0x2
0x106c…1091 at0004 = ╱8200╱ IF ╱ // 0x1070 @0x4
0x106c…1091 at0006 = ╱58╱X╱ // 0x1072 @0x6
0x106c…1091 at0007 = ╱e4╱ >< ╱ // 0x1073 @0x7
0x106c…1091 at0008 = ╱33╱3╱ // 0x1074 @0x8
0x106c…1091 at0009 = ╱f20300╱ // 0x1075 @0x9
0x106c…1091 at000c = ╱b5╱ THEN ╱ // 0x1078 @0xc
0x106c…1091 at000d = ╱a9╱ GET ╱ // 0x1079 @0xd
0x106c…1091 at000e = ╱22╱"╱ // 0x107a @0xe
0x106c…1091 at000f = ╱44╱D╱ // 0x107b @0xf
0x106c…1091 at0010 = ╱44╱D╱ // 0x107c @0x10
0x106c…1091 at0011 = ╱45╱E╱ // 0x107d @0x11
0x106c…1091 at0012 = ╱3a╱:╱ // 0x107e @0x12
0x106c…1091 at0013 = ╱42╱B╱ // 0x107f @0x13
0x106c…1091 at0014 = ╱53╱S╱ // 0x1080 @0x14
0x106c…1091 at0015 = ╱4c╱L╱ // 0x1081 @0x15
0x106c…1091 at0016 = ╱55╱U╱ // 0x1082 @0x16
0x106c…1091 at0017 = ╱54╱T╱ // 0x1083 @0x17
0x106c…1091 at0018 = ╱22╱"╱ // 0x1084 @0x18
0x106c…1091 at0019 = ╱f1╱ : ╱ // 0x1085 @0x19
0x106c…1091 at001a = ╱41╱A╱ // 0x1086 @0x1a
0x106c…1091 at001b = ╱ed╱(╱ // 0x1087 @0x1b
0x106c…1091 at001c = ╱33╱3╱ // 0x1088 @0x1c
0x106c…1091 at001d = ╱30╱0╱ // 0x1089 @0x1d
0x106c…1091 at001e = ╱f21e00╱ // 0x108a @0x1e
0x106c…1091 at0021 = ╱e6╱ - ╱ // 0x108d @0x21
0x106c…1091 at0022 = ╱58╱X╱ // 0x108e @0x22
0x106c…1091 at0023 = ╱ee╱)╱ // 0x108f @0x23
0x106c…1091 at0024 = EOL // 0x1090 @0x24
0x106c…1091 }
0x1091…1098 a686 2390 NEXT X
0x1091…1098 LineComal80 {
0x1091…1098 ptr = 0xa686 // 0x1091 @0x0
0x1091…1098 lno = 0x0956 // 0x1093 @0x2
0x1091…1098 at0004 = ╱84╱ NEXT ╱ // 0x1095 @0x4
0x1091…1098 at0005 = ╱58╱X╱ // 0x1096 @0x5
0x1091…1098 at0006 = EOL // 0x1097 @0x6
0x1091…1098 }
0x1098…10a9 a697 2400 CLOSE "DDE:BSLUT"
0x1098…10a9 LineComal80 {
0x1098…10a9 ptr = 0xa697 // 0x1098 @0x0
0x1098…10a9 lno = 0x0960 // 0x109a @0x2
0x1098…10a9 at0004 = ╱a8╱ CLOSE ╱ // 0x109c @0x4
0x1098…10a9 at0005 = ╱22╱"╱ // 0x109d @0x5
0x1098…10a9 at0006 = ╱44╱D╱ // 0x109e @0x6
0x1098…10a9 at0007 = ╱44╱D╱ // 0x109f @0x7
0x1098…10a9 at0008 = ╱45╱E╱ // 0x10a0 @0x8
0x1098…10a9 at0009 = ╱3a╱:╱ // 0x10a1 @0x9
0x1098…10a9 at000a = ╱42╱B╱ // 0x10a2 @0xa
0x1098…10a9 at000b = ╱53╱S╱ // 0x10a3 @0xb
0x1098…10a9 at000c = ╱4c╱L╱ // 0x10a4 @0xc
0x1098…10a9 at000d = ╱55╱U╱ // 0x10a5 @0xd
0x1098…10a9 at000e = ╱54╱T╱ // 0x10a6 @0xe
0x1098…10a9 at000f = ╱22╱"╱ // 0x10a7 @0xf
0x1098…10a9 at0010 = EOL // 0x10a8 @0x10
0x1098…10a9 }
0x10a9…10b6 0000 2410 ENDPROC HENTBIP
0x10a9…10b6 LineComal80 {
0x10a9…10b6 ptr = 0x0000 // 0x10a9 @0x0
0x10a9…10b6 lno = 0x096a // 0x10ab @0x2
0x10a9…10b6 at0004 = ╱9f╱ ENDPROC ╱ // 0x10ad @0x4
0x10a9…10b6 at0005 = ╱48╱H╱ // 0x10ae @0x5
0x10a9…10b6 at0006 = ╱45╱E╱ // 0x10af @0x6
0x10a9…10b6 at0007 = ╱4e╱N╱ // 0x10b0 @0x7
0x10a9…10b6 at0008 = ╱54╱T╱ // 0x10b1 @0x8
0x10a9…10b6 at0009 = ╱42╱B╱ // 0x10b2 @0x9
0x10a9…10b6 at000a = ╱49╱I╱ // 0x10b3 @0xa
0x10a9…10b6 at000b = ╱50╱P╱ // 0x10b4 @0xb
0x10a9…10b6 at000c = EOL // 0x10b5 @0xc
0x10a9…10b6 }
0x10b6…10c0 c2 a2 e0 06 86 51 54 ef f0 22 ┆ QT "┆
0x10c0…10d8 4f 56 45 52 53 4b 59 44 45 4e 44 45 20 53 4b 41 54 22 eb 50 49 4c ef ed ┆OVERSKYDENDE SKAT" PIL ┆
0x10d8…10f8 (56,) 31 f2 01 00 f1 31 34 f2 0e 00 ee ea 51 42 f0 c4 ed 44 36 ee ff 91 99 c7 01 8d ff 91 99 c7 01 ff ┆1 14 QB D6 ┆
0x10f8…1118 91 99 c7 01 86 48 44 36 f0 48 44 36 e5 42 39 ea 42 44 36 f0 42 44 36 e5 45 36 ff 2d 9b 30 02 86 ┆ HD6 HD6 B9 BD6 BD6 E6 - 0 ┆
0x1118…1125 44 36 f0 48 44 36 e5 42 39 ea 53 4b 47 ┆D6 HD6 B9 SKG┆
0x1125…1145 (57,) f0 46 36 ea 41 4b 54 f0 46 39 ff ae 9c 34 03 86 44 36 f0 42 44 36 e5 45 36 ea 53 4b 47 f0 46 37 ┆ F6 AKT F9 4 D6 BD6 E6 SKG F7┆
0x1145…1165 ea 41 4b 54 f0 46 30 ff dc 9b ad 02 86 4d 49 44 44 36 f0 44 36 ff 7e 9c 1b 03 86 44 36 f0 4d 49 ┆ AKT F0 MIDD6 D6 ü D6 MI┆
0x1165…1172 44 44 36 ff 0d a2 90 06 86 51 54 ef f0 ┆DD6 QT ┆
0x1172…1192 (58,) 22 52 45 53 54 53 4b 41 54 22 eb 50 49 4c ef ed 31 f2 01 00 f1 32 33 f2 17 00 ee ea 51 42 f0 c6 ┆"RESTSKAT" PIL 1 23 QB ┆
0x1192…11b2 ed 44 44 36 ee ff 0d a2 90 06 86 51 54 ef f0 22 52 45 53 54 53 4b 41 54 22 eb 50 49 4c ef ed 31 ┆ DD6 QT "RESTSKAT" PIL 1┆
0x11b2…11bf f2 01 00 f1 32 33 f2 17 00 ee ea 51 42 ┆ 23 QB┆
0x11bf…11df (59,) f0 c6 ed 44 36 ee ff 85 a0 aa 05 86 51 54 ef f0 22 53 4c 55 54 53 4b 41 54 22 eb 50 49 4c ef ed ┆ D6 QT "SLUTSKAT" PIL ┆
0x11df…11f5 31 f2 01 00 f1 32 33 f2 17 00 ee ea 51 42 f0 c6 ed 44 44 36 ee ff ┆1 23 QB DD6 ┆
0x11f5…11fb (60,) ee 95 ee 95 00 00 ┆ ┆