|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1922 (0x782)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cd
Names: »SKAT«
└─⟦fe8d363bb⟧ Bits:30004640 EASY-Skat 1985 (MIKADOS)
└─⟦this⟧ »SKAT«
00100 DIM A $ ( 23 ) OF 30 , S $ OF 80 00110 LET PR := 0 00120 CLEAR 00130 PRINT "EASY-SKAT…1985" ; TAB ( 65 ) ; "SERIE#…86.1.101" 00140 PRINT "VERSION…6.1…JANUAR…1986" 00150 PRINT "COPYRIGHT…(C)…H.S.M\LLER…1986" 00160 PRINT 00170 PRINT "ALLE…BEL\B…OG…BEREGNINGER…VEDR\RER…INDKOMST]RET…1985." 00180 PRINT 00190 OPEN "DDE:SKATINDL" , R 00200 REPEAT 00210 GET "DDE:SKATINDL" : S $ 00220 IF ╱cd╱ ( "DDE:SKATINDL" ) = 0 THEN PRINT S $ 00230 UNTIL ╱cd╱ ( "DDE:SKATINDL" ) = 19 00240 PRINT 00250 EXEC RETURN 00260 CLEAR 00270 PRINT "Indatering…af…bel|b…sker…i…en…oversigt,…der…indeholder…f|lgende" 00280 PRINT "indkomster…og…fradrag." 00290 PRINT 00300 PRINT 00310 OPEN "dde:skatart" , R 00320 FOR X := 1 TO 3 DO 00330 GET "dde:skatart" : A $ ( X ) 00340 LET A $ ( X ) := A $ ( X , 4 : 25 ) 00350 NEXT X 00360 FOR X := 1 TO 2 DO 00370 PRINT TAB ( 10 ) ; A $ ( X ) ; 00380 IF < 12 THEN 00390 PRINT TAB ( 45 ) ; A $ ( X + 12 ) 00400 ELSE 00410 PRINT 00420 ENDIF 00430 NEXT X 00440 PRINT 00450 PRINT "Det…er…nu…muligt…at…f}…forklaring…til…de…enkelte…indkomster…og…" ; 00460 PRINT "fradrag" 00470 PRINT "\nskes…der…forklaringer?…(j/n)" ; 00480 EXEC SVAR 00490 REPEAT 00500 IF $ = "j" THEN 00510 PRINT "\nskes…forklaringerne…udskrevet…p}…printer?…(j/n)" ; 00520 EXEC SVAR 00530 IF $ = "j" THEN 00540 LET PR := 1 00550 ELSE 00560 LET PR := 0 00570 ENDIF 00580 CLEAR 00590 IF PR = 1 THEN OUTPUT "P" 00600 OPEN "dde:skatfork" , R 00610 REPEAT 00620 GET "dde:skatfork" : S $ 00630 IF ( S $ ) < 6 THEN 00640 PRINT S $ 00650 ELSE 00660 IF PR = 1 AND S $ ( ╱cb╱ ( S $ ) - 5 : 6 ) >< "return" THEN PRINT S $ 00670 IF PR = 1 AND S $ ( ╱cb╱ ( S $ ) - 5 : 6 ) = "return" THEN PRINT 00680 IF PR = 0 AND S $ ( ╱cb╱ ( S $ ) - 5 : 6 ) >< "return" THEN PRINT S $ 00690 IF R = 0 AND S $ ( ╱cb╱ ( S $ ) - 5 : 6 ) = "return" THEN 00700 PRINT 00710 EXEC RETURN 00720 IF PR = 0 THEN CLEAR 00730 ENDIF 00740 ENDIF 00750 UNTIL ╱cd╱ ( "dde:skatfork" ) = 19 00760 CLOSE 00770 IF R = 0 THEN 00780 PRINT "\nskes…forklaringerne…gentaget?…(j/n)" ; 00790 EXEC SVAR 00800 ELSE 00810 OUTPUT "T" 00820 ENDIF 00830 ENDIF 00840 UNTIL PR = 1 OR S $ = "n" 00850 PRINT "***…VENT…***…BEREGNINGSPROGRAMMET…INDL[SES…***" 00860 CHAIN "DDE:SKAT85" 00870 PROC SVAR 00880 REPEAT 00890 INPUT S $ 00900 IF $ = "q" OR S $ = "Q" THEN 00910 PRINT "Programmet…kan…kun…afsluttes…fra…hovedprogrammet." ; CHR$ ( 7 ) 00920 ENDIF 00930 IF S $ = "N" THEN LET S $ := "n" 00940 IF S $ = "J" THEN LET S $ := "j" 00950 UNTIL S $ = "j" OR S $ = "n" 00960 ENDPROC SVAR 00970 PROC RETURN 00980 LET S $ := "-" 00990 PRINT 01000 PRINT TAB ( 65 ) ; 01010 EDIT "TRYK…-RETURN" : S $ 01020 ENDPROC RETURN 00130 PRINT "EASY-SKAT…1985" ; TAB ( 65 ) ; "SERIE#…85.1.101" 00130 PRINT "EASY-SKAT…1985" ; TAB ( 65 ) ; "SERIE#…85.1.102" 38382 ╱00╱ ╱00╱
0x000…01e (0,) 960c 00100 DIM A $ ( 23 ) OF 30 , S $ OF 80
0x000…01e LineComal80 {
0x000…01e ptr = 0x960c // 0x0 @0x0
0x000…01e lno = 0x0064 // 0x2 @0x2
0x000…01e at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x000…01e at0005 = ╱41╱A╱ // 0x5 @0x5
0x000…01e at0006 = ╱ef╱ $ ╱ // 0x6 @0x6
0x000…01e at0007 = ╱ed╱ ( ╱ // 0x7 @0x7
0x000…01e at0008 = ╱32╱2╱ // 0x8 @0x8
0x000…01e at0009 = ╱33╱3╱ // 0x9 @0x9
0x000…01e at000a = ╱f21700╱ // 0xa @0xa
0x000…01e at000d = ╱ee╱ ) ╱ // 0xd @0xd
0x000…01e at000e = ╱ba╱ OF ╱ // 0xe @0xe
0x000…01e at000f = ╱33╱3╱ // 0xf @0xf
0x000…01e at0010 = ╱30╱0╱ // 0x10 @0x10
0x000…01e at0011 = ╱f21e00╱ // 0x11 @0x11
0x000…01e at0014 = ╱ec╱ , ╱ // 0x14 @0x14
0x000…01e at0015 = ╱53╱S╱ // 0x15 @0x15
0x000…01e at0016 = ╱ef╱ $ ╱ // 0x16 @0x16
0x000…01e at0017 = ╱ba╱ OF ╱ // 0x17 @0x17
0x000…01e at0018 = ╱38╱8╱ // 0x18 @0x18
0x000…01e at0019 = ╱30╱0╱ // 0x19 @0x19
0x000…01e at001a = ╱f25000╱ // 0x1a @0x1a
0x000…01e at001d = EOL // 0x1d @0x1d
0x000…01e }
0x01e…02b 9619 00110 LET PR := 0
0x01e…02b LineComal80 {
0x01e…02b ptr = 0x9619 // 0x1e @0x0
0x01e…02b lno = 0x006e // 0x20 @0x2
0x01e…02b at0004 = ╱86╱ LET ╱ // 0x22 @0x4
0x01e…02b at0005 = ╱50╱P╱ // 0x23 @0x5
0x01e…02b at0006 = ╱52╱R╱ // 0x24 @0x6
0x01e…02b at0007 = ╱f0╱ := ╱ // 0x25 @0x7
0x01e…02b at0008 = ╱30╱0╱ // 0x26 @0x8
0x01e…02b at0009 = ╱f20000╱ // 0x27 @0x9
0x01e…02b at000c = EOL // 0x2a @0xc
0x01e…02b }
0x02b…031 9d39 00120 CLEAR
0x02b…031 LineComal80 {
0x02b…031 ptr = 0x9d39 // 0x2b @0x0
0x02b…031 lno = 0x0078 // 0x2d @0x2
0x02b…031 at0004 = ╱a0╱ CLEAR ╱ // 0x2f @0x4
0x02b…031 at0005 = EOL // 0x30 @0x5
0x02b…031 }
0x031…062 9650 00130 PRINT "EASY-SKAT…1985" ; TAB ( 65 ) ; "SERIE#…86.1.101"
0x031…062 LineComal80 {
0x031…062 ptr = 0x9650 // 0x31 @0x0
0x031…062 lno = 0x0082 // 0x33 @0x2
0x031…062 at0004 = ╱92╱ PRINT ╱ // 0x35 @0x4
0x031…062 at0005 = ╱22╱"╱ // 0x36 @0x5
0x031…062 at0006 = ╱45╱E╱ // 0x37 @0x6
0x031…062 at0007 = ╱41╱A╱ // 0x38 @0x7
0x031…062 at0008 = ╱53╱S╱ // 0x39 @0x8
0x031…062 at0009 = ╱59╱Y╱ // 0x3a @0x9
0x031…062 at000a = ╱2d╱-╱ // 0x3b @0xa
0x031…062 at000b = ╱53╱S╱ // 0x3c @0xb
0x031…062 at000c = ╱4b╱K╱ // 0x3d @0xc
0x031…062 at000d = ╱41╱A╱ // 0x3e @0xd
0x031…062 at000e = ╱54╱T╱ // 0x3f @0xe
0x031…062 at000f = ╱20╱…╱ // 0x40 @0xf
0x031…062 at0010 = ╱31╱1╱ // 0x41 @0x10
0x031…062 at0011 = ╱39╱9╱ // 0x42 @0x11
0x031…062 at0012 = ╱38╱8╱ // 0x43 @0x12
0x031…062 at0013 = ╱35╱5╱ // 0x44 @0x13
0x031…062 at0014 = ╱22╱"╱ // 0x45 @0x14
0x031…062 at0015 = ╱ea╱ ; ╱ // 0x46 @0x15
0x031…062 at0016 = ╱d2╱ TAB ╱ // 0x47 @0x16
0x031…062 at0017 = ╱ed╱ ( ╱ // 0x48 @0x17
0x031…062 at0018 = ╱36╱6╱ // 0x49 @0x18
0x031…062 at0019 = ╱35╱5╱ // 0x4a @0x19
0x031…062 at001a = ╱f24100╱ // 0x4b @0x1a
0x031…062 at001d = ╱ee╱ ) ╱ // 0x4e @0x1d
0x031…062 at001e = ╱ea╱ ; ╱ // 0x4f @0x1e
0x031…062 at001f = ╱22╱"╱ // 0x50 @0x1f
0x031…062 at0020 = ╱53╱S╱ // 0x51 @0x20
0x031…062 at0021 = ╱45╱E╱ // 0x52 @0x21
0x031…062 at0022 = ╱52╱R╱ // 0x53 @0x22
0x031…062 at0023 = ╱49╱I╱ // 0x54 @0x23
0x031…062 at0024 = ╱45╱E╱ // 0x55 @0x24
0x031…062 at0025 = ╱23╱#╱ // 0x56 @0x25
0x031…062 at0026 = ╱20╱…╱ // 0x57 @0x26
0x031…062 at0027 = ╱38╱8╱ // 0x58 @0x27
0x031…062 at0028 = ╱36╱6╱ // 0x59 @0x28
0x031…062 at0029 = ╱2e╱.╱ // 0x5a @0x29
0x031…062 at002a = ╱31╱1╱ // 0x5b @0x2a
0x031…062 at002b = ╱2e╱.╱ // 0x5c @0x2b
0x031…062 at002c = ╱31╱1╱ // 0x5d @0x2c
0x031…062 at002d = ╱30╱0╱ // 0x5e @0x2d
0x031…062 at002e = ╱31╱1╱ // 0x5f @0x2e
0x031…062 at002f = ╱22╱"╱ // 0x60 @0x2f
0x031…062 at0030 = EOL // 0x61 @0x30
0x031…062 }
0x062…081 966f 00140 PRINT "VERSION…6.1…JANUAR…1986"
0x062…081 LineComal80 {
0x062…081 ptr = 0x966f // 0x62 @0x0
0x062…081 lno = 0x008c // 0x64 @0x2
0x062…081 at0004 = ╱92╱ PRINT ╱ // 0x66 @0x4
0x062…081 at0005 = ╱22╱"╱ // 0x67 @0x5
0x062…081 at0006 = ╱56╱V╱ // 0x68 @0x6
0x062…081 at0007 = ╱45╱E╱ // 0x69 @0x7
0x062…081 at0008 = ╱52╱R╱ // 0x6a @0x8
0x062…081 at0009 = ╱53╱S╱ // 0x6b @0x9
0x062…081 at000a = ╱49╱I╱ // 0x6c @0xa
0x062…081 at000b = ╱4f╱O╱ // 0x6d @0xb
0x062…081 at000c = ╱4e╱N╱ // 0x6e @0xc
0x062…081 at000d = ╱20╱…╱ // 0x6f @0xd
0x062…081 at000e = ╱36╱6╱ // 0x70 @0xe
0x062…081 at000f = ╱2e╱.╱ // 0x71 @0xf
0x062…081 at0010 = ╱31╱1╱ // 0x72 @0x10
0x062…081 at0011 = ╱20╱…╱ // 0x73 @0x11
0x062…081 at0012 = ╱4a╱J╱ // 0x74 @0x12
0x062…081 at0013 = ╱41╱A╱ // 0x75 @0x13
0x062…081 at0014 = ╱4e╱N╱ // 0x76 @0x14
0x062…081 at0015 = ╱55╱U╱ // 0x77 @0x15
0x062…081 at0016 = ╱41╱A╱ // 0x78 @0x16
0x062…081 at0017 = ╱52╱R╱ // 0x79 @0x17
0x062…081 at0018 = ╱20╱…╱ // 0x7a @0x18
0x062…081 at0019 = ╱31╱1╱ // 0x7b @0x19
0x062…081 at001a = ╱39╱9╱ // 0x7c @0x1a
0x062…081 at001b = ╱38╱8╱ // 0x7d @0x1b
0x062…081 at001c = ╱36╱6╱ // 0x7e @0x1c
0x062…081 at001d = ╱22╱"╱ // 0x7f @0x1d
0x062…081 at001e = EOL // 0x80 @0x1e
0x062…081 }
0x081…0a6 9694 00150 PRINT "COPYRIGHT…(C)…H.S.M\LLER…1986"
0x081…0a6 LineComal80 {
0x081…0a6 ptr = 0x9694 // 0x81 @0x0
0x081…0a6 lno = 0x0096 // 0x83 @0x2
0x081…0a6 at0004 = ╱92╱ PRINT ╱ // 0x85 @0x4
0x081…0a6 at0005 = ╱22╱"╱ // 0x86 @0x5
0x081…0a6 at0006 = ╱43╱C╱ // 0x87 @0x6
0x081…0a6 at0007 = ╱4f╱O╱ // 0x88 @0x7
0x081…0a6 at0008 = ╱50╱P╱ // 0x89 @0x8
0x081…0a6 at0009 = ╱59╱Y╱ // 0x8a @0x9
0x081…0a6 at000a = ╱52╱R╱ // 0x8b @0xa
0x081…0a6 at000b = ╱49╱I╱ // 0x8c @0xb
0x081…0a6 at000c = ╱47╱G╱ // 0x8d @0xc
0x081…0a6 at000d = ╱48╱H╱ // 0x8e @0xd
0x081…0a6 at000e = ╱54╱T╱ // 0x8f @0xe
0x081…0a6 at000f = ╱20╱…╱ // 0x90 @0xf
0x081…0a6 at0010 = ╱28╱(╱ // 0x91 @0x10
0x081…0a6 at0011 = ╱43╱C╱ // 0x92 @0x11
0x081…0a6 at0012 = ╱29╱)╱ // 0x93 @0x12
0x081…0a6 at0013 = ╱20╱…╱ // 0x94 @0x13
0x081…0a6 at0014 = ╱48╱H╱ // 0x95 @0x14
0x081…0a6 at0015 = ╱2e╱.╱ // 0x96 @0x15
0x081…0a6 at0016 = ╱53╱S╱ // 0x97 @0x16
0x081…0a6 at0017 = ╱2e╱.╱ // 0x98 @0x17
0x081…0a6 at0018 = ╱4d╱M╱ // 0x99 @0x18
0x081…0a6 at0019 = ╱5c╱\╱ // 0x9a @0x19
0x081…0a6 at001a = ╱4c╱L╱ // 0x9b @0x1a
0x081…0a6 at001b = ╱4c╱L╱ // 0x9c @0x1b
0x081…0a6 at001c = ╱45╱E╱ // 0x9d @0x1c
0x081…0a6 at001d = ╱52╱R╱ // 0x9e @0x1d
0x081…0a6 at001e = ╱20╱…╱ // 0x9f @0x1e
0x081…0a6 at001f = ╱31╱1╱ // 0xa0 @0x1f
0x081…0a6 at0020 = ╱39╱9╱ // 0xa1 @0x20
0x081…0a6 at0021 = ╱38╱8╱ // 0xa2 @0x21
0x081…0a6 at0022 = ╱36╱6╱ // 0xa3 @0x22
0x081…0a6 at0023 = ╱22╱"╱ // 0xa4 @0x23
0x081…0a6 at0024 = EOL // 0xa5 @0x24
0x081…0a6 }
0x0a6…0ac 969a 00160 PRINT
0x0a6…0ac LineComal80 {
0x0a6…0ac ptr = 0x969a // 0xa6 @0x0
0x0a6…0ac lno = 0x00a0 // 0xa8 @0x2
0x0a6…0ac at0004 = ╱92╱ PRINT ╱ // 0xaa @0x4
0x0a6…0ac at0005 = EOL // 0xab @0x5
0x0a6…0ac }
0x0ac…0e9 96d7 00170 PRINT "ALLE…BEL\B…OG…BEREGNINGER…VEDR\RER…INDKOMST]RET…1985."
0x0ac…0e9 LineComal80 {
0x0ac…0e9 ptr = 0x96d7 // 0xac @0x0
0x0ac…0e9 lno = 0x00aa // 0xae @0x2
0x0ac…0e9 at0004 = ╱92╱ PRINT ╱ // 0xb0 @0x4
0x0ac…0e9 at0005 = ╱22╱"╱ // 0xb1 @0x5
0x0ac…0e9 at0006 = ╱41╱A╱ // 0xb2 @0x6
0x0ac…0e9 at0007 = ╱4c╱L╱ // 0xb3 @0x7
0x0ac…0e9 at0008 = ╱4c╱L╱ // 0xb4 @0x8
0x0ac…0e9 at0009 = ╱45╱E╱ // 0xb5 @0x9
0x0ac…0e9 at000a = ╱20╱…╱ // 0xb6 @0xa
0x0ac…0e9 at000b = ╱42╱B╱ // 0xb7 @0xb
0x0ac…0e9 at000c = ╱45╱E╱ // 0xb8 @0xc
0x0ac…0e9 at000d = ╱4c╱L╱ // 0xb9 @0xd
0x0ac…0e9 at000e = ╱5c╱\╱ // 0xba @0xe
0x0ac…0e9 at000f = ╱42╱B╱ // 0xbb @0xf
0x0ac…0e9 at0010 = ╱20╱…╱ // 0xbc @0x10
0x0ac…0e9 at0011 = ╱4f╱O╱ // 0xbd @0x11
0x0ac…0e9 at0012 = ╱47╱G╱ // 0xbe @0x12
0x0ac…0e9 at0013 = ╱20╱…╱ // 0xbf @0x13
0x0ac…0e9 at0014 = ╱42╱B╱ // 0xc0 @0x14
0x0ac…0e9 at0015 = ╱45╱E╱ // 0xc1 @0x15
0x0ac…0e9 at0016 = ╱52╱R╱ // 0xc2 @0x16
0x0ac…0e9 at0017 = ╱45╱E╱ // 0xc3 @0x17
0x0ac…0e9 at0018 = ╱47╱G╱ // 0xc4 @0x18
0x0ac…0e9 at0019 = ╱4e╱N╱ // 0xc5 @0x19
0x0ac…0e9 at001a = ╱49╱I╱ // 0xc6 @0x1a
0x0ac…0e9 at001b = ╱4e╱N╱ // 0xc7 @0x1b
0x0ac…0e9 at001c = ╱47╱G╱ // 0xc8 @0x1c
0x0ac…0e9 at001d = ╱45╱E╱ // 0xc9 @0x1d
0x0ac…0e9 at001e = ╱52╱R╱ // 0xca @0x1e
0x0ac…0e9 at001f = ╱20╱…╱ // 0xcb @0x1f
0x0ac…0e9 at0020 = ╱56╱V╱ // 0xcc @0x20
0x0ac…0e9 at0021 = ╱45╱E╱ // 0xcd @0x21
0x0ac…0e9 at0022 = ╱44╱D╱ // 0xce @0x22
0x0ac…0e9 at0023 = ╱52╱R╱ // 0xcf @0x23
0x0ac…0e9 at0024 = ╱5c╱\╱ // 0xd0 @0x24
0x0ac…0e9 at0025 = ╱52╱R╱ // 0xd1 @0x25
0x0ac…0e9 at0026 = ╱45╱E╱ // 0xd2 @0x26
0x0ac…0e9 at0027 = ╱52╱R╱ // 0xd3 @0x27
0x0ac…0e9 at0028 = ╱20╱…╱ // 0xd4 @0x28
0x0ac…0e9 at0029 = ╱49╱I╱ // 0xd5 @0x29
0x0ac…0e9 at002a = ╱4e╱N╱ // 0xd6 @0x2a
0x0ac…0e9 at002b = ╱44╱D╱ // 0xd7 @0x2b
0x0ac…0e9 at002c = ╱4b╱K╱ // 0xd8 @0x2c
0x0ac…0e9 at002d = ╱4f╱O╱ // 0xd9 @0x2d
0x0ac…0e9 at002e = ╱4d╱M╱ // 0xda @0x2e
0x0ac…0e9 at002f = ╱53╱S╱ // 0xdb @0x2f
0x0ac…0e9 at0030 = ╱54╱T╱ // 0xdc @0x30
0x0ac…0e9 at0031 = ╱5d╱]╱ // 0xdd @0x31
0x0ac…0e9 at0032 = ╱52╱R╱ // 0xde @0x32
0x0ac…0e9 at0033 = ╱45╱E╱ // 0xdf @0x33
0x0ac…0e9 at0034 = ╱54╱T╱ // 0xe0 @0x34
0x0ac…0e9 at0035 = ╱20╱…╱ // 0xe1 @0x35
0x0ac…0e9 at0036 = ╱31╱1╱ // 0xe2 @0x36
0x0ac…0e9 at0037 = ╱39╱9╱ // 0xe3 @0x37
0x0ac…0e9 at0038 = ╱38╱8╱ // 0xe4 @0x38
0x0ac…0e9 at0039 = ╱35╱5╱ // 0xe5 @0x39
0x0ac…0e9 at003a = ╱2e╱.╱ // 0xe6 @0x3a
0x0ac…0e9 at003b = ╱22╱"╱ // 0xe7 @0x3b
0x0ac…0e9 at003c = EOL // 0xe8 @0x3c
0x0ac…0e9 }
0x0e9…0ef 96dd 00180 PRINT
0x0e9…0ef LineComal80 {
0x0e9…0ef ptr = 0x96dd // 0xe9 @0x0
0x0e9…0ef lno = 0x00b4 // 0xeb @0x2
0x0e9…0ef at0004 = ╱92╱ PRINT ╱ // 0xed @0x4
0x0e9…0ef at0005 = EOL // 0xee @0x5
0x0e9…0ef }
0x0ef…105 96f3 00190 OPEN "DDE:SKATINDL" , R
0x0ef…105 LineComal80 {
0x0ef…105 ptr = 0x96f3 // 0xef @0x0
0x0ef…105 lno = 0x00be // 0xf1 @0x2
0x0ef…105 at0004 = ╱a7╱ OPEN ╱ // 0xf3 @0x4
0x0ef…105 at0005 = ╱22╱"╱ // 0xf4 @0x5
0x0ef…105 at0006 = ╱44╱D╱ // 0xf5 @0x6
0x0ef…105 at0007 = ╱44╱D╱ // 0xf6 @0x7
0x0ef…105 at0008 = ╱45╱E╱ // 0xf7 @0x8
0x0ef…105 at0009 = ╱3a╱:╱ // 0xf8 @0x9
0x0ef…105 at000a = ╱53╱S╱ // 0xf9 @0xa
0x0ef…105 at000b = ╱4b╱K╱ // 0xfa @0xb
0x0ef…105 at000c = ╱41╱A╱ // 0xfb @0xc
0x0ef…105 at000d = ╱54╱T╱ // 0xfc @0xd
0x0ef…105 at000e = ╱49╱I╱ // 0xfd @0xe
0x0ef…105 at000f = ╱4e╱N╱ // 0xfe @0xf
0x0ef…105 at0010 = ╱44╱D╱ // 0xff @0x10
0x0ef…105 at0011 = ╱4c╱L╱ // 0x100 @0x11
0x0ef…105 at0012 = ╱22╱"╱ // 0x101 @0x12
0x0ef…105 at0013 = ╱ec╱ , ╱ // 0x102 @0x13
0x0ef…105 at0014 = ╱52╱R╱ // 0x103 @0x14
0x0ef…105 at0015 = EOL // 0x104 @0x15
0x0ef…105 }
0x105…10c 96fa 00200 REPEAT
0x105…10c LineComal80 {
0x105…10c ptr = 0x96fa // 0x105 @0x0
0x105…10c lno = 0x00c8 // 0x107 @0x2
0x105…10c at0004 = ╱9700╱ REPEAT ╱ // 0x109 @0x4
0x105…10c at0006 = EOL // 0x10b @0x6
0x105…10c }
0x10c…123 9711 00210 GET "DDE:SKATINDL" : S $
0x10c…123 LineComal80 {
0x10c…123 ptr = 0x9711 // 0x10c @0x0
0x10c…123 lno = 0x00d2 // 0x10e @0x2
0x10c…123 at0004 = ╱a9╱ GET ╱ // 0x110 @0x4
0x10c…123 at0005 = ╱22╱"╱ // 0x111 @0x5
0x10c…123 at0006 = ╱44╱D╱ // 0x112 @0x6
0x10c…123 at0007 = ╱44╱D╱ // 0x113 @0x7
0x10c…123 at0008 = ╱45╱E╱ // 0x114 @0x8
0x10c…123 at0009 = ╱3a╱:╱ // 0x115 @0x9
0x10c…123 at000a = ╱53╱S╱ // 0x116 @0xa
0x10c…123 at000b = ╱4b╱K╱ // 0x117 @0xb
0x10c…123 at000c = ╱41╱A╱ // 0x118 @0xc
0x10c…123 at000d = ╱54╱T╱ // 0x119 @0xd
0x10c…123 at000e = ╱49╱I╱ // 0x11a @0xe
0x10c…123 at000f = ╱4e╱N╱ // 0x11b @0xf
0x10c…123 at0010 = ╱44╱D╱ // 0x11c @0x10
0x10c…123 at0011 = ╱4c╱L╱ // 0x11d @0x11
0x10c…123 at0012 = ╱22╱"╱ // 0x11e @0x12
0x10c…123 at0013 = ╱f1╱ : ╱ // 0x11f @0x13
0x10c…123 at0014 = ╱53╱S╱ // 0x120 @0x14
0x10c…123 at0015 = ╱ef╱ $ ╱ // 0x121 @0x15
0x10c…123 at0016 = EOL // 0x122 @0x16
0x10c…123 }
0x123…144 9732 00220 IF ╱cd╱ ( "DDE:SKATINDL" ) = 0 THEN PRINT S $
0x123…144 LineComal80 {
0x123…144 ptr = 0x9732 // 0x123 @0x0
0x123…144 lno = 0x00dc // 0x125 @0x2
0x123…144 at0004 = ╱8200╱ IF ╱ // 0x127 @0x4
0x123…144 at0006 = ╱cd╱ // 0x129 @0x6
0x123…144 at0007 = ╱ed╱ ( ╱ // 0x12a @0x7
0x123…144 at0008 = ╱22╱"╱ // 0x12b @0x8
0x123…144 at0009 = ╱44╱D╱ // 0x12c @0x9
0x123…144 at000a = ╱44╱D╱ // 0x12d @0xa
0x123…144 at000b = ╱45╱E╱ // 0x12e @0xb
0x123…144 at000c = ╱3a╱:╱ // 0x12f @0xc
0x123…144 at000d = ╱53╱S╱ // 0x130 @0xd
0x123…144 at000e = ╱4b╱K╱ // 0x131 @0xe
0x123…144 at000f = ╱41╱A╱ // 0x132 @0xf
0x123…144 at0010 = ╱54╱T╱ // 0x133 @0x10
0x123…144 at0011 = ╱49╱I╱ // 0x134 @0x11
0x123…144 at0012 = ╱4e╱N╱ // 0x135 @0x12
0x123…144 at0013 = ╱44╱D╱ // 0x136 @0x13
0x123…144 at0014 = ╱4c╱L╱ // 0x137 @0x14
0x123…144 at0015 = ╱22╱"╱ // 0x138 @0x15
0x123…144 at0016 = ╱ee╱ ) ╱ // 0x139 @0x16
0x123…144 at0017 = ╱df╱ = ╱ // 0x13a @0x17
0x123…144 at0018 = ╱30╱0╱ // 0x13b @0x18
0x123…144 at0019 = ╱f20000╱ // 0x13c @0x19
0x123…144 at001c = ╱b5╱ THEN ╱ // 0x13f @0x1c
0x123…144 at001d = ╱92╱ PRINT ╱ // 0x140 @0x1d
0x123…144 at001e = ╱53╱S╱ // 0x141 @0x1e
0x123…144 at001f = ╱ef╱ $ ╱ // 0x142 @0x1f
0x123…144 at0020 = EOL // 0x143 @0x20
0x123…144 }
0x144…161 974f 00230 UNTIL ╱cd╱ ( "DDE:SKATINDL" ) = 19
0x144…161 LineComal80 {
0x144…161 ptr = 0x974f // 0x144 @0x0
0x144…161 lno = 0x00e6 // 0x146 @0x2
0x144…161 at0004 = ╱98╱ UNTIL ╱ // 0x148 @0x4
0x144…161 at0005 = ╱cd╱ // 0x149 @0x5
0x144…161 at0006 = ╱ed╱ ( ╱ // 0x14a @0x6
0x144…161 at0007 = ╱22╱"╱ // 0x14b @0x7
0x144…161 at0008 = ╱44╱D╱ // 0x14c @0x8
0x144…161 at0009 = ╱44╱D╱ // 0x14d @0x9
0x144…161 at000a = ╱45╱E╱ // 0x14e @0xa
0x144…161 at000b = ╱3a╱:╱ // 0x14f @0xb
0x144…161 at000c = ╱53╱S╱ // 0x150 @0xc
0x144…161 at000d = ╱4b╱K╱ // 0x151 @0xd
0x144…161 at000e = ╱41╱A╱ // 0x152 @0xe
0x144…161 at000f = ╱54╱T╱ // 0x153 @0xf
0x144…161 at0010 = ╱49╱I╱ // 0x154 @0x10
0x144…161 at0011 = ╱4e╱N╱ // 0x155 @0x11
0x144…161 at0012 = ╱44╱D╱ // 0x156 @0x12
0x144…161 at0013 = ╱4c╱L╱ // 0x157 @0x13
0x144…161 at0014 = ╱22╱"╱ // 0x158 @0x14
0x144…161 at0015 = ╱ee╱ ) ╱ // 0x159 @0x15
0x144…161 at0016 = ╱df╱ = ╱ // 0x15a @0x16
0x144…161 at0017 = ╱31╱1╱ // 0x15b @0x17
0x144…161 at0018 = ╱39╱9╱ // 0x15c @0x18
0x144…161 at0019 = ╱f21300╱ // 0x15d @0x19
0x144…161 at001c = EOL // 0x160 @0x1c
0x144…161 }
0x161…167 9755 00240 PRINT
0x161…167 LineComal80 {
0x161…167 ptr = 0x9755 // 0x161 @0x0
0x161…167 lno = 0x00f0 // 0x163 @0x2
0x161…167 at0004 = ╱92╱ PRINT ╱ // 0x165 @0x4
0x161…167 at0005 = EOL // 0x166 @0x5
0x161…167 }
0x167…173 9761 00250 EXEC RETURN
0x167…173 LineComal80 {
0x167…173 ptr = 0x9761 // 0x167 @0x0
0x167…173 lno = 0x00fa // 0x169 @0x2
0x167…173 at0004 = ╱9d╱ EXEC ╱ // 0x16b @0x4
0x167…173 at0005 = ╱52╱R╱ // 0x16c @0x5
0x167…173 at0006 = ╱45╱E╱ // 0x16d @0x6
0x167…173 at0007 = ╱54╱T╱ // 0x16e @0x7
0x167…173 at0008 = ╱55╱U╱ // 0x16f @0x8
0x167…173 at0009 = ╱52╱R╱ // 0x170 @0x9
0x167…173 at000a = ╱4e╱N╱ // 0x171 @0xa
0x167…173 at000b = EOL // 0x172 @0xb
0x167…173 }
0x173…179 9767 00260 CLEAR
0x173…179 LineComal80 {
0x173…179 ptr = 0x9767 // 0x173 @0x0
0x173…179 lno = 0x0104 // 0x175 @0x2
0x173…179 at0004 = ╱a0╱ CLEAR ╱ // 0x177 @0x4
0x173…179 at0005 = EOL // 0x178 @0x5
0x173…179 }
0x179…1c0 97ae 00270 PRINT "Indatering…af…bel|b…sker…i…en…oversigt,…der…indeholder…f|lgende"
0x179…1c0 LineComal80 {
0x179…1c0 ptr = 0x97ae // 0x179 @0x0
0x179…1c0 lno = 0x010e // 0x17b @0x2
0x179…1c0 at0004 = ╱92╱ PRINT ╱ // 0x17d @0x4
0x179…1c0 at0005 = ╱22╱"╱ // 0x17e @0x5
0x179…1c0 at0006 = ╱49╱I╱ // 0x17f @0x6
0x179…1c0 at0007 = ╱6e╱n╱ // 0x180 @0x7
0x179…1c0 at0008 = ╱64╱d╱ // 0x181 @0x8
0x179…1c0 at0009 = ╱61╱a╱ // 0x182 @0x9
0x179…1c0 at000a = ╱74╱t╱ // 0x183 @0xa
0x179…1c0 at000b = ╱65╱e╱ // 0x184 @0xb
0x179…1c0 at000c = ╱72╱r╱ // 0x185 @0xc
0x179…1c0 at000d = ╱69╱i╱ // 0x186 @0xd
0x179…1c0 at000e = ╱6e╱n╱ // 0x187 @0xe
0x179…1c0 at000f = ╱67╱g╱ // 0x188 @0xf
0x179…1c0 at0010 = ╱20╱…╱ // 0x189 @0x10
0x179…1c0 at0011 = ╱61╱a╱ // 0x18a @0x11
0x179…1c0 at0012 = ╱66╱f╱ // 0x18b @0x12
0x179…1c0 at0013 = ╱20╱…╱ // 0x18c @0x13
0x179…1c0 at0014 = ╱62╱b╱ // 0x18d @0x14
0x179…1c0 at0015 = ╱65╱e╱ // 0x18e @0x15
0x179…1c0 at0016 = ╱6c╱l╱ // 0x18f @0x16
0x179…1c0 at0017 = ╱7c╱|╱ // 0x190 @0x17
0x179…1c0 at0018 = ╱62╱b╱ // 0x191 @0x18
0x179…1c0 at0019 = ╱20╱…╱ // 0x192 @0x19
0x179…1c0 at001a = ╱73╱s╱ // 0x193 @0x1a
0x179…1c0 at001b = ╱6b╱k╱ // 0x194 @0x1b
0x179…1c0 at001c = ╱65╱e╱ // 0x195 @0x1c
0x179…1c0 at001d = ╱72╱r╱ // 0x196 @0x1d
0x179…1c0 at001e = ╱20╱…╱ // 0x197 @0x1e
0x179…1c0 at001f = ╱69╱i╱ // 0x198 @0x1f
0x179…1c0 at0020 = ╱20╱…╱ // 0x199 @0x20
0x179…1c0 at0021 = ╱65╱e╱ // 0x19a @0x21
0x179…1c0 at0022 = ╱6e╱n╱ // 0x19b @0x22
0x179…1c0 at0023 = ╱20╱…╱ // 0x19c @0x23
0x179…1c0 at0024 = ╱6f╱o╱ // 0x19d @0x24
0x179…1c0 at0025 = ╱76╱v╱ // 0x19e @0x25
0x179…1c0 at0026 = ╱65╱e╱ // 0x19f @0x26
0x179…1c0 at0027 = ╱72╱r╱ // 0x1a0 @0x27
0x179…1c0 at0028 = ╱73╱s╱ // 0x1a1 @0x28
0x179…1c0 at0029 = ╱69╱i╱ // 0x1a2 @0x29
0x179…1c0 at002a = ╱67╱g╱ // 0x1a3 @0x2a
0x179…1c0 at002b = ╱74╱t╱ // 0x1a4 @0x2b
0x179…1c0 at002c = ╱2c╱,╱ // 0x1a5 @0x2c
0x179…1c0 at002d = ╱20╱…╱ // 0x1a6 @0x2d
0x179…1c0 at002e = ╱64╱d╱ // 0x1a7 @0x2e
0x179…1c0 at002f = ╱65╱e╱ // 0x1a8 @0x2f
0x179…1c0 at0030 = ╱72╱r╱ // 0x1a9 @0x30
0x179…1c0 at0031 = ╱20╱…╱ // 0x1aa @0x31
0x179…1c0 at0032 = ╱69╱i╱ // 0x1ab @0x32
0x179…1c0 at0033 = ╱6e╱n╱ // 0x1ac @0x33
0x179…1c0 at0034 = ╱64╱d╱ // 0x1ad @0x34
0x179…1c0 at0035 = ╱65╱e╱ // 0x1ae @0x35
0x179…1c0 at0036 = ╱68╱h╱ // 0x1af @0x36
0x179…1c0 at0037 = ╱6f╱o╱ // 0x1b0 @0x37
0x179…1c0 at0038 = ╱6c╱l╱ // 0x1b1 @0x38
0x179…1c0 at0039 = ╱64╱d╱ // 0x1b2 @0x39
0x179…1c0 at003a = ╱65╱e╱ // 0x1b3 @0x3a
0x179…1c0 at003b = ╱72╱r╱ // 0x1b4 @0x3b
0x179…1c0 at003c = ╱20╱…╱ // 0x1b5 @0x3c
0x179…1c0 at003d = ╱66╱f╱ // 0x1b6 @0x3d
0x179…1c0 at003e = ╱7c╱|╱ // 0x1b7 @0x3e
0x179…1c0 at003f = ╱6c╱l╱ // 0x1b8 @0x3f
0x179…1c0 at0040 = ╱67╱g╱ // 0x1b9 @0x40
0x179…1c0 at0041 = ╱65╱e╱ // 0x1ba @0x41
0x179…1c0 at0042 = ╱6e╱n╱ // 0x1bb @0x42
0x179…1c0 at0043 = ╱64╱d╱ // 0x1bc @0x43
0x179…1c0 at0044 = ╱65╱e╱ // 0x1bd @0x44
0x179…1c0 at0045 = ╱22╱"╱ // 0x1be @0x45
0x179…1c0 at0046 = EOL // 0x1bf @0x46
0x179…1c0 }
0x1c0…1de 97cc 00280 PRINT "indkomster…og…fradrag."
0x1c0…1de LineComal80 {
0x1c0…1de ptr = 0x97cc // 0x1c0 @0x0
0x1c0…1de lno = 0x0118 // 0x1c2 @0x2
0x1c0…1de at0004 = ╱92╱ PRINT ╱ // 0x1c4 @0x4
0x1c0…1de at0005 = ╱22╱"╱ // 0x1c5 @0x5
0x1c0…1de at0006 = ╱69╱i╱ // 0x1c6 @0x6
0x1c0…1de at0007 = ╱6e╱n╱ // 0x1c7 @0x7
0x1c0…1de at0008 = ╱64╱d╱ // 0x1c8 @0x8
0x1c0…1de at0009 = ╱6b╱k╱ // 0x1c9 @0x9
0x1c0…1de at000a = ╱6f╱o╱ // 0x1ca @0xa
0x1c0…1de at000b = ╱6d╱m╱ // 0x1cb @0xb
0x1c0…1de at000c = ╱73╱s╱ // 0x1cc @0xc
0x1c0…1de at000d = ╱74╱t╱ // 0x1cd @0xd
0x1c0…1de at000e = ╱65╱e╱ // 0x1ce @0xe
0x1c0…1de at000f = ╱72╱r╱ // 0x1cf @0xf
0x1c0…1de at0010 = ╱20╱…╱ // 0x1d0 @0x10
0x1c0…1de at0011 = ╱6f╱o╱ // 0x1d1 @0x11
0x1c0…1de at0012 = ╱67╱g╱ // 0x1d2 @0x12
0x1c0…1de at0013 = ╱20╱…╱ // 0x1d3 @0x13
0x1c0…1de at0014 = ╱66╱f╱ // 0x1d4 @0x14
0x1c0…1de at0015 = ╱72╱r╱ // 0x1d5 @0x15
0x1c0…1de at0016 = ╱61╱a╱ // 0x1d6 @0x16
0x1c0…1de at0017 = ╱64╱d╱ // 0x1d7 @0x17
0x1c0…1de at0018 = ╱72╱r╱ // 0x1d8 @0x18
0x1c0…1de at0019 = ╱61╱a╱ // 0x1d9 @0x19
0x1c0…1de at001a = ╱67╱g╱ // 0x1da @0x1a
0x1c0…1de at001b = ╱2e╱.╱ // 0x1db @0x1b
0x1c0…1de at001c = ╱22╱"╱ // 0x1dc @0x1c
0x1c0…1de at001d = EOL // 0x1dd @0x1d
0x1c0…1de }
0x1de…1e4 97d2 00290 PRINT
0x1de…1e4 LineComal80 {
0x1de…1e4 ptr = 0x97d2 // 0x1de @0x0
0x1de…1e4 lno = 0x0122 // 0x1e0 @0x2
0x1de…1e4 at0004 = ╱92╱ PRINT ╱ // 0x1e2 @0x4
0x1de…1e4 at0005 = EOL // 0x1e3 @0x5
0x1de…1e4 }
0x1e4…1ea 97d8 00300 PRINT
0x1e4…1ea LineComal80 {
0x1e4…1ea ptr = 0x97d8 // 0x1e4 @0x0
0x1e4…1ea lno = 0x012c // 0x1e6 @0x2
0x1e4…1ea at0004 = ╱92╱ PRINT ╱ // 0x1e8 @0x4
0x1e4…1ea at0005 = EOL // 0x1e9 @0x5
0x1e4…1ea }
0x1ea…1ff 97ed 00310 OPEN "dde:skatart" , R
0x1ea…1ff LineComal80 {
0x1ea…1ff ptr = 0x97ed // 0x1ea @0x0
0x1ea…1ff lno = 0x0136 // 0x1ec @0x2
0x1ea…1ff at0004 = ╱a7╱ OPEN ╱ // 0x1ee @0x4
0x1ea…1ff at0005 = ╱22╱"╱ // 0x1ef @0x5
0x1ea…1ff at0006 = ╱64╱d╱ // 0x1f0 @0x6
0x1ea…1ff at0007 = ╱64╱d╱ // 0x1f1 @0x7
0x1ea…1ff at0008 = ╱65╱e╱ // 0x1f2 @0x8
0x1ea…1ff at0009 = ╱3a╱:╱ // 0x1f3 @0x9
0x1ea…1ff at000a = ╱73╱s╱ // 0x1f4 @0xa
0x1ea…1ff at000b = ╱6b╱k╱ // 0x1f5 @0xb
0x1ea…1ff at000c = ╱61╱a╱ // 0x1f6 @0xc
0x1ea…1ff at000d = ╱74╱t╱ // 0x1f7 @0xd
0x1ea…1ff at000e = ╱61╱a╱ // 0x1f8 @0xe
0x1ea…1ff at000f = ╱72╱r╱ // 0x1f9 @0xf
0x1ea…1ff at0010 = ╱74╱t╱ // 0x1fa @0x10
0x1ea…1ff at0011 = ╱22╱"╱ // 0x1fb @0x11
0x1ea…1ff at0012 = ╱ec╱ , ╱ // 0x1fc @0x12
0x1ea…1ff at0013 = ╱52╱R╱ // 0x1fd @0x13
0x1ea…1ff at0014 = EOL // 0x1fe @0x14
0x1ea…1ff }
0x1ff…213 9801 00320 FOR X := 1 TO 3 DO
0x1ff…213 LineComal80 {
0x1ff…213 ptr = 0x9801 // 0x1ff @0x0
0x1ff…213 lno = 0x0140 // 0x201 @0x2
0x1ff…213 at0004 = ╱8300╱ FOR ╱ // 0x203 @0x4
0x1ff…213 at0006 = ╱58╱X╱ // 0x205 @0x6
0x1ff…213 at0007 = ╱f0╱ := ╱ // 0x206 @0x7
0x1ff…213 at0008 = ╱31╱1╱ // 0x207 @0x8
0x1ff…213 at0009 = ╱f20100╱ // 0x208 @0x9
0x1ff…213 at000c = ╱b732╱ TO ╱ // 0x20b @0xc
0x1ff…213 at000e = ╱33╱3╱ // 0x20d @0xe
0x1ff…213 at000f = ╱f21700╱ // 0x20e @0xf
0x1ff…213 at0012 = ╱bb╱ DO ╱ // 0x211 @0x12
0x1ff…213 at0013 = EOL // 0x212 @0x13
0x1ff…213 }
0x213…22c 981a 00330 GET "dde:skatart" : A $ ( X )
0x213…22c LineComal80 {
0x213…22c ptr = 0x981a // 0x213 @0x0
0x213…22c lno = 0x014a // 0x215 @0x2
0x213…22c at0004 = ╱a9╱ GET ╱ // 0x217 @0x4
0x213…22c at0005 = ╱22╱"╱ // 0x218 @0x5
0x213…22c at0006 = ╱64╱d╱ // 0x219 @0x6
0x213…22c at0007 = ╱64╱d╱ // 0x21a @0x7
0x213…22c at0008 = ╱65╱e╱ // 0x21b @0x8
0x213…22c at0009 = ╱3a╱:╱ // 0x21c @0x9
0x213…22c at000a = ╱73╱s╱ // 0x21d @0xa
0x213…22c at000b = ╱6b╱k╱ // 0x21e @0xb
0x213…22c at000c = ╱61╱a╱ // 0x21f @0xc
0x213…22c at000d = ╱74╱t╱ // 0x220 @0xd
0x213…22c at000e = ╱61╱a╱ // 0x221 @0xe
0x213…22c at000f = ╱72╱r╱ // 0x222 @0xf
0x213…22c at0010 = ╱74╱t╱ // 0x223 @0x10
0x213…22c at0011 = ╱22╱"╱ // 0x224 @0x11
0x213…22c at0012 = ╱f1╱ : ╱ // 0x225 @0x12
0x213…22c at0013 = ╱41╱A╱ // 0x226 @0x13
0x213…22c at0014 = ╱ef╱ $ ╱ // 0x227 @0x14
0x213…22c at0015 = ╱ed╱ ( ╱ // 0x228 @0x15
0x213…22c at0016 = ╱58╱X╱ // 0x229 @0x16
0x213…22c at0017 = ╱ee╱ ) ╱ // 0x22a @0x17
0x213…22c at0018 = EOL // 0x22b @0x18
0x213…22c }
0x22c…248 9836 00340 LET A $ ( X ) := A $ ( X , 4 : 25 )
0x22c…248 LineComal80 {
0x22c…248 ptr = 0x9836 // 0x22c @0x0
0x22c…248 lno = 0x0154 // 0x22e @0x2
0x22c…248 at0004 = ╱86╱ LET ╱ // 0x230 @0x4
0x22c…248 at0005 = ╱41╱A╱ // 0x231 @0x5
0x22c…248 at0006 = ╱ef╱ $ ╱ // 0x232 @0x6
0x22c…248 at0007 = ╱ed╱ ( ╱ // 0x233 @0x7
0x22c…248 at0008 = ╱58╱X╱ // 0x234 @0x8
0x22c…248 at0009 = ╱ee╱ ) ╱ // 0x235 @0x9
0x22c…248 at000a = ╱f0╱ := ╱ // 0x236 @0xa
0x22c…248 at000b = ╱41╱A╱ // 0x237 @0xb
0x22c…248 at000c = ╱ef╱ $ ╱ // 0x238 @0xc
0x22c…248 at000d = ╱ed╱ ( ╱ // 0x239 @0xd
0x22c…248 at000e = ╱58╱X╱ // 0x23a @0xe
0x22c…248 at000f = ╱ec╱ , ╱ // 0x23b @0xf
0x22c…248 at0010 = ╱34╱4╱ // 0x23c @0x10
0x22c…248 at0011 = ╱f20400╱ // 0x23d @0x11
0x22c…248 at0014 = ╱f1╱ : ╱ // 0x240 @0x14
0x22c…248 at0015 = ╱32╱2╱ // 0x241 @0x15
0x22c…248 at0016 = ╱35╱5╱ // 0x242 @0x16
0x22c…248 at0017 = ╱f21900╱ // 0x243 @0x17
0x22c…248 at001a = ╱ee╱ ) ╱ // 0x246 @0x1a
0x22c…248 at001b = EOL // 0x247 @0x1b
0x22c…248 }
0x248…24f 983d 00350 NEXT X
0x248…24f LineComal80 {
0x248…24f ptr = 0x983d // 0x248 @0x0
0x248…24f lno = 0x015e // 0x24a @0x2
0x248…24f at0004 = ╱84╱ NEXT ╱ // 0x24c @0x4
0x248…24f at0005 = ╱58╱X╱ // 0x24d @0x5
0x248…24f at0006 = EOL // 0x24e @0x6
0x248…24f }
0x24f…263 9851 00360 FOR X := 1 TO 2 DO
0x24f…263 LineComal80 {
0x24f…263 ptr = 0x9851 // 0x24f @0x0
0x24f…263 lno = 0x0168 // 0x251 @0x2
0x24f…263 at0004 = ╱8300╱ FOR ╱ // 0x253 @0x4
0x24f…263 at0006 = ╱58╱X╱ // 0x255 @0x6
0x24f…263 at0007 = ╱f0╱ := ╱ // 0x256 @0x7
0x24f…263 at0008 = ╱31╱1╱ // 0x257 @0x8
0x24f…263 at0009 = ╱f20100╱ // 0x258 @0x9
0x24f…263 at000c = ╱b731╱ TO ╱ // 0x25b @0xc
0x24f…263 at000e = ╱32╱2╱ // 0x25d @0xe
0x24f…263 at000f = ╱f20c00╱ // 0x25e @0xf
0x24f…263 at0012 = ╱bb╱ DO ╱ // 0x261 @0x12
0x24f…263 at0013 = EOL // 0x262 @0x13
0x24f…263 }
0x263…278 9866 00370 PRINT TAB ( 10 ) ; A $ ( X ) ;
0x263…278 LineComal80 {
0x263…278 ptr = 0x9866 // 0x263 @0x0
0x263…278 lno = 0x0172 // 0x265 @0x2
0x263…278 at0004 = ╱92╱ PRINT ╱ // 0x267 @0x4
0x263…278 at0005 = ╱d2╱ TAB ╱ // 0x268 @0x5
0x263…278 at0006 = ╱ed╱ ( ╱ // 0x269 @0x6
0x263…278 at0007 = ╱31╱1╱ // 0x26a @0x7
0x263…278 at0008 = ╱30╱0╱ // 0x26b @0x8
0x263…278 at0009 = ╱f20a00╱ // 0x26c @0x9
0x263…278 at000c = ╱ee╱ ) ╱ // 0x26f @0xc
0x263…278 at000d = ╱ea╱ ; ╱ // 0x270 @0xd
0x263…278 at000e = ╱41╱A╱ // 0x271 @0xe
0x263…278 at000f = ╱ef╱ $ ╱ // 0x272 @0xf
0x263…278 at0010 = ╱ed╱ ( ╱ // 0x273 @0x10
0x263…278 at0011 = ╱58╱X╱ // 0x274 @0x11
0x263…278 at0012 = ╱ee╱ ) ╱ // 0x275 @0x12
0x263…278 at0013 = ╱ea╱ ; ╱ // 0x276 @0x13
0x263…278 at0014 = EOL // 0x277 @0x14
0x263…278 }
0x278…287 9875 00380 IF < 12 THEN
0x278…287 LineComal80 {
0x278…287 ptr = 0x9875 // 0x278 @0x0
0x278…287 lno = 0x017c // 0x27a @0x2
0x278…287 at0004 = ╱9b0058╱ IF ╱ // 0x27c @0x4
0x278…287 at0007 = ╱e0╱ < ╱ // 0x27f @0x7
0x278…287 at0008 = ╱31╱1╱ // 0x280 @0x8
0x278…287 at0009 = ╱32╱2╱ // 0x281 @0x9
0x278…287 at000a = ╱f20c00╱ // 0x282 @0xa
0x278…287 at000d = ╱b5╱ THEN ╱ // 0x285 @0xd
0x278…287 at000e = EOL // 0x286 @0xe
0x278…287 }
0x287…2a1 988f 00390 PRINT TAB ( 45 ) ; A $ ( X + 12 )
0x287…2a1 LineComal80 {
0x287…2a1 ptr = 0x988f // 0x287 @0x0
0x287…2a1 lno = 0x0186 // 0x289 @0x2
0x287…2a1 at0004 = ╱92╱ PRINT ╱ // 0x28b @0x4
0x287…2a1 at0005 = ╱d2╱ TAB ╱ // 0x28c @0x5
0x287…2a1 at0006 = ╱ed╱ ( ╱ // 0x28d @0x6
0x287…2a1 at0007 = ╱34╱4╱ // 0x28e @0x7
0x287…2a1 at0008 = ╱35╱5╱ // 0x28f @0x8
0x287…2a1 at0009 = ╱f22d00╱ // 0x290 @0x9
0x287…2a1 at000c = ╱ee╱ ) ╱ // 0x293 @0xc
0x287…2a1 at000d = ╱ea╱ ; ╱ // 0x294 @0xd
0x287…2a1 at000e = ╱41╱A╱ // 0x295 @0xe
0x287…2a1 at000f = ╱ef╱ $ ╱ // 0x296 @0xf
0x287…2a1 at0010 = ╱ed╱ ( ╱ // 0x297 @0x10
0x287…2a1 at0011 = ╱58╱X╱ // 0x298 @0x11
0x287…2a1 at0012 = ╱e5╱ + ╱ // 0x299 @0x12
0x287…2a1 at0013 = ╱31╱1╱ // 0x29a @0x13
0x287…2a1 at0014 = ╱32╱2╱ // 0x29b @0x14
0x287…2a1 at0015 = ╱f20c00╱ // 0x29c @0x15
0x287…2a1 at0018 = ╱ee╱ ) ╱ // 0x29f @0x18
0x287…2a1 at0019 = EOL // 0x2a0 @0x19
0x287…2a1 }
0x2a1…2a8 9896 00400 ELSE
0x2a1…2a8 LineComal80 {
0x2a1…2a8 ptr = 0x9896 // 0x2a1 @0x0
0x2a1…2a8 lno = 0x0190 // 0x2a3 @0x2
0x2a1…2a8 at0004 = ╱9a00╱ ELSE ╱ // 0x2a5 @0x4
0x2a1…2a8 at0006 = EOL // 0x2a7 @0x6
0x2a1…2a8 }
0x2a8…2ae 989c 00410 PRINT
0x2a8…2ae LineComal80 {
0x2a8…2ae ptr = 0x989c // 0x2a8 @0x0
0x2a8…2ae lno = 0x019a // 0x2aa @0x2
0x2a8…2ae at0004 = ╱92╱ PRINT ╱ // 0x2ac @0x4
0x2a8…2ae at0005 = EOL // 0x2ad @0x5
0x2a8…2ae }
0x2ae…2b4 98a2 00420 ENDIF
0x2ae…2b4 LineComal80 {
0x2ae…2b4 ptr = 0x98a2 // 0x2ae @0x0
0x2ae…2b4 lno = 0x01a4 // 0x2b0 @0x2
0x2ae…2b4 at0004 = ╱9c╱ ENDIF ╱ // 0x2b2 @0x4
0x2ae…2b4 at0005 = EOL // 0x2b3 @0x5
0x2ae…2b4 }
0x2b4…2bb 98a9 00430 NEXT X
0x2b4…2bb LineComal80 {
0x2b4…2bb ptr = 0x98a9 // 0x2b4 @0x0
0x2b4…2bb lno = 0x01ae // 0x2b6 @0x2
0x2b4…2bb at0004 = ╱84╱ NEXT ╱ // 0x2b8 @0x4
0x2b4…2bb at0005 = ╱58╱X╱ // 0x2b9 @0x5
0x2b4…2bb at0006 = EOL // 0x2ba @0x6
0x2b4…2bb }
0x2bb…2c1 98af 00440 PRINT
0x2bb…2c1 LineComal80 {
0x2bb…2c1 ptr = 0x98af // 0x2bb @0x0
0x2bb…2c1 lno = 0x01b8 // 0x2bd @0x2
0x2bb…2c1 at0004 = ╱92╱ PRINT ╱ // 0x2bf @0x4
0x2bb…2c1 at0005 = EOL // 0x2c0 @0x5
0x2bb…2c1 }
0x2c1…309 98f7 00450 PRINT "Det…er…nu…muligt…at…f}…forklaring…til…de…enkelte…indkomster…og…" ;
0x2c1…309 LineComal80 {
0x2c1…309 ptr = 0x98f7 // 0x2c1 @0x0
0x2c1…309 lno = 0x01c2 // 0x2c3 @0x2
0x2c1…309 at0004 = ╱92╱ PRINT ╱ // 0x2c5 @0x4
0x2c1…309 at0005 = ╱22╱"╱ // 0x2c6 @0x5
0x2c1…309 at0006 = ╱44╱D╱ // 0x2c7 @0x6
0x2c1…309 at0007 = ╱65╱e╱ // 0x2c8 @0x7
0x2c1…309 at0008 = ╱74╱t╱ // 0x2c9 @0x8
0x2c1…309 at0009 = ╱20╱…╱ // 0x2ca @0x9
0x2c1…309 at000a = ╱65╱e╱ // 0x2cb @0xa
0x2c1…309 at000b = ╱72╱r╱ // 0x2cc @0xb
0x2c1…309 at000c = ╱20╱…╱ // 0x2cd @0xc
0x2c1…309 at000d = ╱6e╱n╱ // 0x2ce @0xd
0x2c1…309 at000e = ╱75╱u╱ // 0x2cf @0xe
0x2c1…309 at000f = ╱20╱…╱ // 0x2d0 @0xf
0x2c1…309 at0010 = ╱6d╱m╱ // 0x2d1 @0x10
0x2c1…309 at0011 = ╱75╱u╱ // 0x2d2 @0x11
0x2c1…309 at0012 = ╱6c╱l╱ // 0x2d3 @0x12
0x2c1…309 at0013 = ╱69╱i╱ // 0x2d4 @0x13
0x2c1…309 at0014 = ╱67╱g╱ // 0x2d5 @0x14
0x2c1…309 at0015 = ╱74╱t╱ // 0x2d6 @0x15
0x2c1…309 at0016 = ╱20╱…╱ // 0x2d7 @0x16
0x2c1…309 at0017 = ╱61╱a╱ // 0x2d8 @0x17
0x2c1…309 at0018 = ╱74╱t╱ // 0x2d9 @0x18
0x2c1…309 at0019 = ╱20╱…╱ // 0x2da @0x19
0x2c1…309 at001a = ╱66╱f╱ // 0x2db @0x1a
0x2c1…309 at001b = ╱7d╱}╱ // 0x2dc @0x1b
0x2c1…309 at001c = ╱20╱…╱ // 0x2dd @0x1c
0x2c1…309 at001d = ╱66╱f╱ // 0x2de @0x1d
0x2c1…309 at001e = ╱6f╱o╱ // 0x2df @0x1e
0x2c1…309 at001f = ╱72╱r╱ // 0x2e0 @0x1f
0x2c1…309 at0020 = ╱6b╱k╱ // 0x2e1 @0x20
0x2c1…309 at0021 = ╱6c╱l╱ // 0x2e2 @0x21
0x2c1…309 at0022 = ╱61╱a╱ // 0x2e3 @0x22
0x2c1…309 at0023 = ╱72╱r╱ // 0x2e4 @0x23
0x2c1…309 at0024 = ╱69╱i╱ // 0x2e5 @0x24
0x2c1…309 at0025 = ╱6e╱n╱ // 0x2e6 @0x25
0x2c1…309 at0026 = ╱67╱g╱ // 0x2e7 @0x26
0x2c1…309 at0027 = ╱20╱…╱ // 0x2e8 @0x27
0x2c1…309 at0028 = ╱74╱t╱ // 0x2e9 @0x28
0x2c1…309 at0029 = ╱69╱i╱ // 0x2ea @0x29
0x2c1…309 at002a = ╱6c╱l╱ // 0x2eb @0x2a
0x2c1…309 at002b = ╱20╱…╱ // 0x2ec @0x2b
0x2c1…309 at002c = ╱64╱d╱ // 0x2ed @0x2c
0x2c1…309 at002d = ╱65╱e╱ // 0x2ee @0x2d
0x2c1…309 at002e = ╱20╱…╱ // 0x2ef @0x2e
0x2c1…309 at002f = ╱65╱e╱ // 0x2f0 @0x2f
0x2c1…309 at0030 = ╱6e╱n╱ // 0x2f1 @0x30
0x2c1…309 at0031 = ╱6b╱k╱ // 0x2f2 @0x31
0x2c1…309 at0032 = ╱65╱e╱ // 0x2f3 @0x32
0x2c1…309 at0033 = ╱6c╱l╱ // 0x2f4 @0x33
0x2c1…309 at0034 = ╱74╱t╱ // 0x2f5 @0x34
0x2c1…309 at0035 = ╱65╱e╱ // 0x2f6 @0x35
0x2c1…309 at0036 = ╱20╱…╱ // 0x2f7 @0x36
0x2c1…309 at0037 = ╱69╱i╱ // 0x2f8 @0x37
0x2c1…309 at0038 = ╱6e╱n╱ // 0x2f9 @0x38
0x2c1…309 at0039 = ╱64╱d╱ // 0x2fa @0x39
0x2c1…309 at003a = ╱6b╱k╱ // 0x2fb @0x3a
0x2c1…309 at003b = ╱6f╱o╱ // 0x2fc @0x3b
0x2c1…309 at003c = ╱6d╱m╱ // 0x2fd @0x3c
0x2c1…309 at003d = ╱73╱s╱ // 0x2fe @0x3d
0x2c1…309 at003e = ╱74╱t╱ // 0x2ff @0x3e
0x2c1…309 at003f = ╱65╱e╱ // 0x300 @0x3f
0x2c1…309 at0040 = ╱72╱r╱ // 0x301 @0x40
0x2c1…309 at0041 = ╱20╱…╱ // 0x302 @0x41
0x2c1…309 at0042 = ╱6f╱o╱ // 0x303 @0x42
0x2c1…309 at0043 = ╱67╱g╱ // 0x304 @0x43
0x2c1…309 at0044 = ╱20╱…╱ // 0x305 @0x44
0x2c1…309 at0045 = ╱22╱"╱ // 0x306 @0x45
0x2c1…309 at0046 = ╱ea╱ ; ╱ // 0x307 @0x46
0x2c1…309 at0047 = EOL // 0x308 @0x47
0x2c1…309 }
0x309…318 9906 00460 PRINT "fradrag"
0x309…318 LineComal80 {
0x309…318 ptr = 0x9906 // 0x309 @0x0
0x309…318 lno = 0x01cc // 0x30b @0x2
0x309…318 at0004 = ╱92╱ PRINT ╱ // 0x30d @0x4
0x309…318 at0005 = ╱22╱"╱ // 0x30e @0x5
0x309…318 at0006 = ╱66╱f╱ // 0x30f @0x6
0x309…318 at0007 = ╱72╱r╱ // 0x310 @0x7
0x309…318 at0008 = ╱61╱a╱ // 0x311 @0x8
0x309…318 at0009 = ╱64╱d╱ // 0x312 @0x9
0x309…318 at000a = ╱72╱r╱ // 0x313 @0xa
0x309…318 at000b = ╱61╱a╱ // 0x314 @0xb
0x309…318 at000c = ╱67╱g╱ // 0x315 @0xc
0x309…318 at000d = ╱22╱"╱ // 0x316 @0xd
0x309…318 at000e = EOL // 0x317 @0xe
0x309…318 }
0x318…33f 992d 00470 PRINT "\nskes…der…forklaringer?…(j/n)" ;
0x318…33f LineComal80 {
0x318…33f ptr = 0x992d // 0x318 @0x0
0x318…33f lno = 0x01d6 // 0x31a @0x2
0x318…33f at0004 = ╱92╱ PRINT ╱ // 0x31c @0x4
0x318…33f at0005 = ╱22╱"╱ // 0x31d @0x5
0x318…33f at0006 = ╱5c╱\╱ // 0x31e @0x6
0x318…33f at0007 = ╱6e╱n╱ // 0x31f @0x7
0x318…33f at0008 = ╱73╱s╱ // 0x320 @0x8
0x318…33f at0009 = ╱6b╱k╱ // 0x321 @0x9
0x318…33f at000a = ╱65╱e╱ // 0x322 @0xa
0x318…33f at000b = ╱73╱s╱ // 0x323 @0xb
0x318…33f at000c = ╱20╱…╱ // 0x324 @0xc
0x318…33f at000d = ╱64╱d╱ // 0x325 @0xd
0x318…33f at000e = ╱65╱e╱ // 0x326 @0xe
0x318…33f at000f = ╱72╱r╱ // 0x327 @0xf
0x318…33f at0010 = ╱20╱…╱ // 0x328 @0x10
0x318…33f at0011 = ╱66╱f╱ // 0x329 @0x11
0x318…33f at0012 = ╱6f╱o╱ // 0x32a @0x12
0x318…33f at0013 = ╱72╱r╱ // 0x32b @0x13
0x318…33f at0014 = ╱6b╱k╱ // 0x32c @0x14
0x318…33f at0015 = ╱6c╱l╱ // 0x32d @0x15
0x318…33f at0016 = ╱61╱a╱ // 0x32e @0x16
0x318…33f at0017 = ╱72╱r╱ // 0x32f @0x17
0x318…33f at0018 = ╱69╱i╱ // 0x330 @0x18
0x318…33f at0019 = ╱6e╱n╱ // 0x331 @0x19
0x318…33f at001a = ╱67╱g╱ // 0x332 @0x1a
0x318…33f at001b = ╱65╱e╱ // 0x333 @0x1b
0x318…33f at001c = ╱72╱r╱ // 0x334 @0x1c
0x318…33f at001d = ╱3f╱?╱ // 0x335 @0x1d
0x318…33f at001e = ╱20╱…╱ // 0x336 @0x1e
0x318…33f at001f = ╱28╱(╱ // 0x337 @0x1f
0x318…33f at0020 = ╱6a╱j╱ // 0x338 @0x20
0x318…33f at0021 = ╱2f╱/╱ // 0x339 @0x21
0x318…33f at0022 = ╱6e╱n╱ // 0x33a @0x22
0x318…33f at0023 = ╱29╱)╱ // 0x33b @0x23
0x318…33f at0024 = ╱22╱"╱ // 0x33c @0x24
0x318…33f at0025 = ╱ea╱ ; ╱ // 0x33d @0x25
0x318…33f at0026 = EOL // 0x33e @0x26
0x318…33f }
0x33f…349 9937 00480 EXEC SVAR
0x33f…349 LineComal80 {
0x33f…349 ptr = 0x9937 // 0x33f @0x0
0x33f…349 lno = 0x01e0 // 0x341 @0x2
0x33f…349 at0004 = ╱9d╱ EXEC ╱ // 0x343 @0x4
0x33f…349 at0005 = ╱53╱S╱ // 0x344 @0x5
0x33f…349 at0006 = ╱56╱V╱ // 0x345 @0x6
0x33f…349 at0007 = ╱41╱A╱ // 0x346 @0x7
0x33f…349 at0008 = ╱52╱R╱ // 0x347 @0x8
0x33f…349 at0009 = EOL // 0x348 @0x9
0x33f…349 }
0x349…350 993e 00490 REPEAT
0x349…350 LineComal80 {
0x349…350 ptr = 0x993e // 0x349 @0x0
0x349…350 lno = 0x01ea // 0x34b @0x2
0x349…350 at0004 = ╱9700╱ REPEAT ╱ // 0x34d @0x4
0x349…350 at0006 = EOL // 0x34f @0x6
0x349…350 }
0x350…35e 994c 00500 IF $ = "j" THEN
0x350…35e LineComal80 {
0x350…35e ptr = 0x994c // 0x350 @0x0
0x350…35e lno = 0x01f4 // 0x352 @0x2
0x350…35e at0004 = ╱9b0053╱ IF ╱ // 0x354 @0x4
0x350…35e at0007 = ╱ef╱ $ ╱ // 0x357 @0x7
0x350…35e at0008 = ╱df╱ = ╱ // 0x358 @0x8
0x350…35e at0009 = ╱22╱"╱ // 0x359 @0x9
0x350…35e at000a = ╱6a╱j╱ // 0x35a @0xa
0x350…35e at000b = ╱22╱"╱ // 0x35b @0xb
0x350…35e at000c = ╱b5╱ THEN ╱ // 0x35c @0xc
0x350…35e at000d = EOL // 0x35d @0xd
0x350…35e }
0x35e…398 9986 00510 PRINT "\nskes…forklaringerne…udskrevet…p}…printer?…(j/n)" ;
0x35e…398 LineComal80 {
0x35e…398 ptr = 0x9986 // 0x35e @0x0
0x35e…398 lno = 0x01fe // 0x360 @0x2
0x35e…398 at0004 = ╱92╱ PRINT ╱ // 0x362 @0x4
0x35e…398 at0005 = ╱22╱"╱ // 0x363 @0x5
0x35e…398 at0006 = ╱5c╱\╱ // 0x364 @0x6
0x35e…398 at0007 = ╱6e╱n╱ // 0x365 @0x7
0x35e…398 at0008 = ╱73╱s╱ // 0x366 @0x8
0x35e…398 at0009 = ╱6b╱k╱ // 0x367 @0x9
0x35e…398 at000a = ╱65╱e╱ // 0x368 @0xa
0x35e…398 at000b = ╱73╱s╱ // 0x369 @0xb
0x35e…398 at000c = ╱20╱…╱ // 0x36a @0xc
0x35e…398 at000d = ╱66╱f╱ // 0x36b @0xd
0x35e…398 at000e = ╱6f╱o╱ // 0x36c @0xe
0x35e…398 at000f = ╱72╱r╱ // 0x36d @0xf
0x35e…398 at0010 = ╱6b╱k╱ // 0x36e @0x10
0x35e…398 at0011 = ╱6c╱l╱ // 0x36f @0x11
0x35e…398 at0012 = ╱61╱a╱ // 0x370 @0x12
0x35e…398 at0013 = ╱72╱r╱ // 0x371 @0x13
0x35e…398 at0014 = ╱69╱i╱ // 0x372 @0x14
0x35e…398 at0015 = ╱6e╱n╱ // 0x373 @0x15
0x35e…398 at0016 = ╱67╱g╱ // 0x374 @0x16
0x35e…398 at0017 = ╱65╱e╱ // 0x375 @0x17
0x35e…398 at0018 = ╱72╱r╱ // 0x376 @0x18
0x35e…398 at0019 = ╱6e╱n╱ // 0x377 @0x19
0x35e…398 at001a = ╱65╱e╱ // 0x378 @0x1a
0x35e…398 at001b = ╱20╱…╱ // 0x379 @0x1b
0x35e…398 at001c = ╱75╱u╱ // 0x37a @0x1c
0x35e…398 at001d = ╱64╱d╱ // 0x37b @0x1d
0x35e…398 at001e = ╱73╱s╱ // 0x37c @0x1e
0x35e…398 at001f = ╱6b╱k╱ // 0x37d @0x1f
0x35e…398 at0020 = ╱72╱r╱ // 0x37e @0x20
0x35e…398 at0021 = ╱65╱e╱ // 0x37f @0x21
0x35e…398 at0022 = ╱76╱v╱ // 0x380 @0x22
0x35e…398 at0023 = ╱65╱e╱ // 0x381 @0x23
0x35e…398 at0024 = ╱74╱t╱ // 0x382 @0x24
0x35e…398 at0025 = ╱20╱…╱ // 0x383 @0x25
0x35e…398 at0026 = ╱70╱p╱ // 0x384 @0x26
0x35e…398 at0027 = ╱7d╱}╱ // 0x385 @0x27
0x35e…398 at0028 = ╱20╱…╱ // 0x386 @0x28
0x35e…398 at0029 = ╱70╱p╱ // 0x387 @0x29
0x35e…398 at002a = ╱72╱r╱ // 0x388 @0x2a
0x35e…398 at002b = ╱69╱i╱ // 0x389 @0x2b
0x35e…398 at002c = ╱6e╱n╱ // 0x38a @0x2c
0x35e…398 at002d = ╱74╱t╱ // 0x38b @0x2d
0x35e…398 at002e = ╱65╱e╱ // 0x38c @0x2e
0x35e…398 at002f = ╱72╱r╱ // 0x38d @0x2f
0x35e…398 at0030 = ╱3f╱?╱ // 0x38e @0x30
0x35e…398 at0031 = ╱20╱…╱ // 0x38f @0x31
0x35e…398 at0032 = ╱28╱(╱ // 0x390 @0x32
0x35e…398 at0033 = ╱6a╱j╱ // 0x391 @0x33
0x35e…398 at0034 = ╱2f╱/╱ // 0x392 @0x34
0x35e…398 at0035 = ╱6e╱n╱ // 0x393 @0x35
0x35e…398 at0036 = ╱29╱)╱ // 0x394 @0x36
0x35e…398 at0037 = ╱22╱"╱ // 0x395 @0x37
0x35e…398 at0038 = ╱ea╱ ; ╱ // 0x396 @0x38
0x35e…398 at0039 = EOL // 0x397 @0x39
0x35e…398 }
0x398…3a2 9990 00520 EXEC SVAR
0x398…3a2 LineComal80 {
0x398…3a2 ptr = 0x9990 // 0x398 @0x0
0x398…3a2 lno = 0x0208 // 0x39a @0x2
0x398…3a2 at0004 = ╱9d╱ EXEC ╱ // 0x39c @0x4
0x398…3a2 at0005 = ╱53╱S╱ // 0x39d @0x5
0x398…3a2 at0006 = ╱56╱V╱ // 0x39e @0x6
0x398…3a2 at0007 = ╱41╱A╱ // 0x39f @0x7
0x398…3a2 at0008 = ╱52╱R╱ // 0x3a0 @0x8
0x398…3a2 at0009 = EOL // 0x3a1 @0x9
0x398…3a2 }
0x3a2…3b0 999e 00530 IF $ = "j" THEN
0x3a2…3b0 LineComal80 {
0x3a2…3b0 ptr = 0x999e // 0x3a2 @0x0
0x3a2…3b0 lno = 0x0212 // 0x3a4 @0x2
0x3a2…3b0 at0004 = ╱9b0053╱ IF ╱ // 0x3a6 @0x4
0x3a2…3b0 at0007 = ╱ef╱ $ ╱ // 0x3a9 @0x7
0x3a2…3b0 at0008 = ╱df╱ = ╱ // 0x3aa @0x8
0x3a2…3b0 at0009 = ╱22╱"╱ // 0x3ab @0x9
0x3a2…3b0 at000a = ╱6a╱j╱ // 0x3ac @0xa
0x3a2…3b0 at000b = ╱22╱"╱ // 0x3ad @0xb
0x3a2…3b0 at000c = ╱b5╱ THEN ╱ // 0x3ae @0xc
0x3a2…3b0 at000d = EOL // 0x3af @0xd
0x3a2…3b0 }
0x3b0…3bd 99ab 00540 LET PR := 1
0x3b0…3bd LineComal80 {
0x3b0…3bd ptr = 0x99ab // 0x3b0 @0x0
0x3b0…3bd lno = 0x021c // 0x3b2 @0x2
0x3b0…3bd at0004 = ╱86╱ LET ╱ // 0x3b4 @0x4
0x3b0…3bd at0005 = ╱50╱P╱ // 0x3b5 @0x5
0x3b0…3bd at0006 = ╱52╱R╱ // 0x3b6 @0x6
0x3b0…3bd at0007 = ╱f0╱ := ╱ // 0x3b7 @0x7
0x3b0…3bd at0008 = ╱31╱1╱ // 0x3b8 @0x8
0x3b0…3bd at0009 = ╱f20100╱ // 0x3b9 @0x9
0x3b0…3bd at000c = EOL // 0x3bc @0xc
0x3b0…3bd }
0x3bd…3c4 99b2 00550 ELSE
0x3bd…3c4 LineComal80 {
0x3bd…3c4 ptr = 0x99b2 // 0x3bd @0x0
0x3bd…3c4 lno = 0x0226 // 0x3bf @0x2
0x3bd…3c4 at0004 = ╱9a00╱ ELSE ╱ // 0x3c1 @0x4
0x3bd…3c4 at0006 = EOL // 0x3c3 @0x6
0x3bd…3c4 }
0x3c4…3d1 99bf 00560 LET PR := 0
0x3c4…3d1 LineComal80 {
0x3c4…3d1 ptr = 0x99bf // 0x3c4 @0x0
0x3c4…3d1 lno = 0x0230 // 0x3c6 @0x2
0x3c4…3d1 at0004 = ╱86╱ LET ╱ // 0x3c8 @0x4
0x3c4…3d1 at0005 = ╱50╱P╱ // 0x3c9 @0x5
0x3c4…3d1 at0006 = ╱52╱R╱ // 0x3ca @0x6
0x3c4…3d1 at0007 = ╱f0╱ := ╱ // 0x3cb @0x7
0x3c4…3d1 at0008 = ╱30╱0╱ // 0x3cc @0x8
0x3c4…3d1 at0009 = ╱f20000╱ // 0x3cd @0x9
0x3c4…3d1 at000c = EOL // 0x3d0 @0xc
0x3c4…3d1 }
0x3d1…3d7 99c5 00570 ENDIF
0x3d1…3d7 LineComal80 {
0x3d1…3d7 ptr = 0x99c5 // 0x3d1 @0x0
0x3d1…3d7 lno = 0x023a // 0x3d3 @0x2
0x3d1…3d7 at0004 = ╱9c╱ ENDIF ╱ // 0x3d5 @0x4
0x3d1…3d7 at0005 = EOL // 0x3d6 @0x5
0x3d1…3d7 }
0x3d7…3dd 99cb 00580 CLEAR
0x3d7…3dd LineComal80 {
0x3d7…3dd ptr = 0x99cb // 0x3d7 @0x0
0x3d7…3dd lno = 0x0244 // 0x3d9 @0x2
0x3d7…3dd at0004 = ╱a0╱ CLEAR ╱ // 0x3db @0x4
0x3d7…3dd at0005 = EOL // 0x3dc @0x5
0x3d7…3dd }
0x3dd…3f0 99de 00590 IF PR = 1 THEN OUTPUT "P"
0x3dd…3f0 LineComal80 {
0x3dd…3f0 ptr = 0x99de // 0x3dd @0x0
0x3dd…3f0 lno = 0x024e // 0x3df @0x2
0x3dd…3f0 at0004 = ╱8200╱ IF ╱ // 0x3e1 @0x4
0x3dd…3f0 at0006 = ╱50╱P╱ // 0x3e3 @0x6
0x3dd…3f0 at0007 = ╱52╱R╱ // 0x3e4 @0x7
0x3dd…3f0 at0008 = ╱df╱ = ╱ // 0x3e5 @0x8
0x3dd…3f0 at0009 = ╱31╱1╱ // 0x3e6 @0x9
0x3dd…3f0 at000a = ╱f20100╱ // 0x3e7 @0xa
0x3dd…3f0 at000d = ╱b5╱ THEN ╱ // 0x3ea @0xd
0x3dd…3f0 at000e = ╱a5╱ OUTPUT ╱ // 0x3eb @0xe
0x3dd…3f0 at000f = ╱22╱"╱ // 0x3ec @0xf
0x3dd…3f0 at0010 = ╱50╱P╱ // 0x3ed @0x10
0x3dd…3f0 at0011 = ╱22╱"╱ // 0x3ee @0x11
0x3dd…3f0 at0012 = EOL // 0x3ef @0x12
0x3dd…3f0 }
0x3f0…406 99f4 00600 OPEN "dde:skatfork" , R
0x3f0…406 LineComal80 {
0x3f0…406 ptr = 0x99f4 // 0x3f0 @0x0
0x3f0…406 lno = 0x0258 // 0x3f2 @0x2
0x3f0…406 at0004 = ╱a7╱ OPEN ╱ // 0x3f4 @0x4
0x3f0…406 at0005 = ╱22╱"╱ // 0x3f5 @0x5
0x3f0…406 at0006 = ╱64╱d╱ // 0x3f6 @0x6
0x3f0…406 at0007 = ╱64╱d╱ // 0x3f7 @0x7
0x3f0…406 at0008 = ╱65╱e╱ // 0x3f8 @0x8
0x3f0…406 at0009 = ╱3a╱:╱ // 0x3f9 @0x9
0x3f0…406 at000a = ╱73╱s╱ // 0x3fa @0xa
0x3f0…406 at000b = ╱6b╱k╱ // 0x3fb @0xb
0x3f0…406 at000c = ╱61╱a╱ // 0x3fc @0xc
0x3f0…406 at000d = ╱74╱t╱ // 0x3fd @0xd
0x3f0…406 at000e = ╱66╱f╱ // 0x3fe @0xe
0x3f0…406 at000f = ╱6f╱o╱ // 0x3ff @0xf
0x3f0…406 at0010 = ╱72╱r╱ // 0x400 @0x10
0x3f0…406 at0011 = ╱6b╱k╱ // 0x401 @0x11
0x3f0…406 at0012 = ╱22╱"╱ // 0x402 @0x12
0x3f0…406 at0013 = ╱ec╱ , ╱ // 0x403 @0x13
0x3f0…406 at0014 = ╱52╱R╱ // 0x404 @0x14
0x3f0…406 at0015 = EOL // 0x405 @0x15
0x3f0…406 }
0x406…40d 99fb 00610 REPEAT
0x406…40d LineComal80 {
0x406…40d ptr = 0x99fb // 0x406 @0x0
0x406…40d lno = 0x0262 // 0x408 @0x2
0x406…40d at0004 = ╱9700╱ REPEAT ╱ // 0x40a @0x4
0x406…40d at0006 = EOL // 0x40c @0x6
0x406…40d }
0x40d…424 9a12 00620 GET "dde:skatfork" : S $
0x40d…424 LineComal80 {
0x40d…424 ptr = 0x9a12 // 0x40d @0x0
0x40d…424 lno = 0x026c // 0x40f @0x2
0x40d…424 at0004 = ╱a9╱ GET ╱ // 0x411 @0x4
0x40d…424 at0005 = ╱22╱"╱ // 0x412 @0x5
0x40d…424 at0006 = ╱64╱d╱ // 0x413 @0x6
0x40d…424 at0007 = ╱64╱d╱ // 0x414 @0x7
0x40d…424 at0008 = ╱65╱e╱ // 0x415 @0x8
0x40d…424 at0009 = ╱3a╱:╱ // 0x416 @0x9
0x40d…424 at000a = ╱73╱s╱ // 0x417 @0xa
0x40d…424 at000b = ╱6b╱k╱ // 0x418 @0xb
0x40d…424 at000c = ╱61╱a╱ // 0x419 @0xc
0x40d…424 at000d = ╱74╱t╱ // 0x41a @0xd
0x40d…424 at000e = ╱66╱f╱ // 0x41b @0xe
0x40d…424 at000f = ╱6f╱o╱ // 0x41c @0xf
0x40d…424 at0010 = ╱72╱r╱ // 0x41d @0x10
0x40d…424 at0011 = ╱6b╱k╱ // 0x41e @0x11
0x40d…424 at0012 = ╱22╱"╱ // 0x41f @0x12
0x40d…424 at0013 = ╱f1╱ : ╱ // 0x420 @0x13
0x40d…424 at0014 = ╱53╱S╱ // 0x421 @0x14
0x40d…424 at0015 = ╱ef╱ $ ╱ // 0x422 @0x15
0x40d…424 at0016 = EOL // 0x423 @0x16
0x40d…424 }
0x424…436 9a24 00630 IF ( S $ ) < 6 THEN
0x424…436 LineComal80 {
0x424…436 ptr = 0x9a24 // 0x424 @0x0
0x424…436 lno = 0x0276 // 0x426 @0x2
0x424…436 at0004 = ╱9b00cb╱ IF ╱ // 0x428 @0x4
0x424…436 at0007 = ╱ed╱ ( ╱ // 0x42b @0x7
0x424…436 at0008 = ╱53╱S╱ // 0x42c @0x8
0x424…436 at0009 = ╱ef╱ $ ╱ // 0x42d @0x9
0x424…436 at000a = ╱ee╱ ) ╱ // 0x42e @0xa
0x424…436 at000b = ╱e0╱ < ╱ // 0x42f @0xb
0x424…436 at000c = ╱36╱6╱ // 0x430 @0xc
0x424…436 at000d = ╱f20600╱ // 0x431 @0xd
0x424…436 at0010 = ╱b5╱ THEN ╱ // 0x434 @0x10
0x424…436 at0011 = EOL // 0x435 @0x11
0x424…436 }
0x436…43e (14,) 9a2c 00640 PRINT S $
0x436…43e LineComal80 {
0x436…43e ptr = 0x9a2c // 0x436 @0x0
0x436…43e lno = 0x0280 // 0x438 @0x2
0x436…43e at0004 = ╱92╱ PRINT ╱ // 0x43a @0x4
0x436…43e at0005 = ╱53╱S╱ // 0x43b @0x5
0x436…43e at0006 = ╱ef╱ $ ╱ // 0x43c @0x6
0x436…43e at0007 = EOL // 0x43d @0x7
0x436…43e }
0x43e…445 9a33 00650 ELSE
0x43e…445 LineComal80 {
0x43e…445 ptr = 0x9a33 // 0x43e @0x0
0x43e…445 lno = 0x028a // 0x440 @0x2
0x43e…445 at0004 = ╱9a00╱ ELSE ╱ // 0x442 @0x4
0x43e…445 at0006 = EOL // 0x444 @0x6
0x43e…445 }
0x445…474 9a62 00660 IF PR = 1 AND S $ ( ╱cb╱ ( S $ ) - 5 : 6 ) >< "return" THEN PRINT S $
0x445…474 LineComal80 {
0x445…474 ptr = 0x9a62 // 0x445 @0x0
0x445…474 lno = 0x0294 // 0x447 @0x2
0x445…474 at0004 = ╱8200╱ IF ╱ // 0x449 @0x4
0x445…474 at0006 = ╱50╱P╱ // 0x44b @0x6
0x445…474 at0007 = ╱52╱R╱ // 0x44c @0x7
0x445…474 at0008 = ╱df╱ = ╱ // 0x44d @0x8
0x445…474 at0009 = ╱31╱1╱ // 0x44e @0x9
0x445…474 at000a = ╱f20100╱ // 0x44f @0xa
0x445…474 at000d = ╱d9╱ AND ╱ // 0x452 @0xd
0x445…474 at000e = ╱53╱S╱ // 0x453 @0xe
0x445…474 at000f = ╱ef╱ $ ╱ // 0x454 @0xf
0x445…474 at0010 = ╱ed╱ ( ╱ // 0x455 @0x10
0x445…474 at0011 = ╱cb╱ // 0x456 @0x11
0x445…474 at0012 = ╱ed╱ ( ╱ // 0x457 @0x12
0x445…474 at0013 = ╱53╱S╱ // 0x458 @0x13
0x445…474 at0014 = ╱ef╱ $ ╱ // 0x459 @0x14
0x445…474 at0015 = ╱ee╱ ) ╱ // 0x45a @0x15
0x445…474 at0016 = ╱e6╱ - ╱ // 0x45b @0x16
0x445…474 at0017 = ╱35╱5╱ // 0x45c @0x17
0x445…474 at0018 = ╱f20500╱ // 0x45d @0x18
0x445…474 at001b = ╱f1╱ : ╱ // 0x460 @0x1b
0x445…474 at001c = ╱36╱6╱ // 0x461 @0x1c
0x445…474 at001d = ╱f20600╱ // 0x462 @0x1d
0x445…474 at0020 = ╱ee╱ ) ╱ // 0x465 @0x20
0x445…474 at0021 = ╱e4╱ >< ╱ // 0x466 @0x21
0x445…474 at0022 = ╱22╱"╱ // 0x467 @0x22
0x445…474 at0023 = ╱72╱r╱ // 0x468 @0x23
0x445…474 at0024 = ╱65╱e╱ // 0x469 @0x24
0x445…474 at0025 = ╱74╱t╱ // 0x46a @0x25
0x445…474 at0026 = ╱75╱u╱ // 0x46b @0x26
0x445…474 at0027 = ╱72╱r╱ // 0x46c @0x27
0x445…474 at0028 = ╱6e╱n╱ // 0x46d @0x28
0x445…474 at0029 = ╱22╱"╱ // 0x46e @0x29
0x445…474 at002a = ╱b5╱ THEN ╱ // 0x46f @0x2a
0x445…474 at002b = ╱92╱ PRINT ╱ // 0x470 @0x2b
0x445…474 at002c = ╱53╱S╱ // 0x471 @0x2c
0x445…474 at002d = ╱ef╱ $ ╱ // 0x472 @0x2d
0x445…474 at002e = EOL // 0x473 @0x2e
0x445…474 }
0x474…4a1 9a8f 00670 IF PR = 1 AND S $ ( ╱cb╱ ( S $ ) - 5 : 6 ) = "return" THEN PRINT
0x474…4a1 LineComal80 {
0x474…4a1 ptr = 0x9a8f // 0x474 @0x0
0x474…4a1 lno = 0x029e // 0x476 @0x2
0x474…4a1 at0004 = ╱8200╱ IF ╱ // 0x478 @0x4
0x474…4a1 at0006 = ╱50╱P╱ // 0x47a @0x6
0x474…4a1 at0007 = ╱52╱R╱ // 0x47b @0x7
0x474…4a1 at0008 = ╱df╱ = ╱ // 0x47c @0x8
0x474…4a1 at0009 = ╱31╱1╱ // 0x47d @0x9
0x474…4a1 at000a = ╱f20100╱ // 0x47e @0xa
0x474…4a1 at000d = ╱d9╱ AND ╱ // 0x481 @0xd
0x474…4a1 at000e = ╱53╱S╱ // 0x482 @0xe
0x474…4a1 at000f = ╱ef╱ $ ╱ // 0x483 @0xf
0x474…4a1 at0010 = ╱ed╱ ( ╱ // 0x484 @0x10
0x474…4a1 at0011 = ╱cb╱ // 0x485 @0x11
0x474…4a1 at0012 = ╱ed╱ ( ╱ // 0x486 @0x12
0x474…4a1 at0013 = ╱53╱S╱ // 0x487 @0x13
0x474…4a1 at0014 = ╱ef╱ $ ╱ // 0x488 @0x14
0x474…4a1 at0015 = ╱ee╱ ) ╱ // 0x489 @0x15
0x474…4a1 at0016 = ╱e6╱ - ╱ // 0x48a @0x16
0x474…4a1 at0017 = ╱35╱5╱ // 0x48b @0x17
0x474…4a1 at0018 = ╱f20500╱ // 0x48c @0x18
0x474…4a1 at001b = ╱f1╱ : ╱ // 0x48f @0x1b
0x474…4a1 at001c = ╱36╱6╱ // 0x490 @0x1c
0x474…4a1 at001d = ╱f20600╱ // 0x491 @0x1d
0x474…4a1 at0020 = ╱ee╱ ) ╱ // 0x494 @0x20
0x474…4a1 at0021 = ╱df╱ = ╱ // 0x495 @0x21
0x474…4a1 at0022 = ╱22╱"╱ // 0x496 @0x22
0x474…4a1 at0023 = ╱72╱r╱ // 0x497 @0x23
0x474…4a1 at0024 = ╱65╱e╱ // 0x498 @0x24
0x474…4a1 at0025 = ╱74╱t╱ // 0x499 @0x25
0x474…4a1 at0026 = ╱75╱u╱ // 0x49a @0x26
0x474…4a1 at0027 = ╱72╱r╱ // 0x49b @0x27
0x474…4a1 at0028 = ╱6e╱n╱ // 0x49c @0x28
0x474…4a1 at0029 = ╱22╱"╱ // 0x49d @0x29
0x474…4a1 at002a = ╱b5╱ THEN ╱ // 0x49e @0x2a
0x474…4a1 at002b = ╱92╱ PRINT ╱ // 0x49f @0x2b
0x474…4a1 at002c = EOL // 0x4a0 @0x2c
0x474…4a1 }
0x4a1…4d0 9abe 00680 IF PR = 0 AND S $ ( ╱cb╱ ( S $ ) - 5 : 6 ) >< "return" THEN PRINT S $
0x4a1…4d0 LineComal80 {
0x4a1…4d0 ptr = 0x9abe // 0x4a1 @0x0
0x4a1…4d0 lno = 0x02a8 // 0x4a3 @0x2
0x4a1…4d0 at0004 = ╱8200╱ IF ╱ // 0x4a5 @0x4
0x4a1…4d0 at0006 = ╱50╱P╱ // 0x4a7 @0x6
0x4a1…4d0 at0007 = ╱52╱R╱ // 0x4a8 @0x7
0x4a1…4d0 at0008 = ╱df╱ = ╱ // 0x4a9 @0x8
0x4a1…4d0 at0009 = ╱30╱0╱ // 0x4aa @0x9
0x4a1…4d0 at000a = ╱f20000╱ // 0x4ab @0xa
0x4a1…4d0 at000d = ╱d9╱ AND ╱ // 0x4ae @0xd
0x4a1…4d0 at000e = ╱53╱S╱ // 0x4af @0xe
0x4a1…4d0 at000f = ╱ef╱ $ ╱ // 0x4b0 @0xf
0x4a1…4d0 at0010 = ╱ed╱ ( ╱ // 0x4b1 @0x10
0x4a1…4d0 at0011 = ╱cb╱ // 0x4b2 @0x11
0x4a1…4d0 at0012 = ╱ed╱ ( ╱ // 0x4b3 @0x12
0x4a1…4d0 at0013 = ╱53╱S╱ // 0x4b4 @0x13
0x4a1…4d0 at0014 = ╱ef╱ $ ╱ // 0x4b5 @0x14
0x4a1…4d0 at0015 = ╱ee╱ ) ╱ // 0x4b6 @0x15
0x4a1…4d0 at0016 = ╱e6╱ - ╱ // 0x4b7 @0x16
0x4a1…4d0 at0017 = ╱35╱5╱ // 0x4b8 @0x17
0x4a1…4d0 at0018 = ╱f20500╱ // 0x4b9 @0x18
0x4a1…4d0 at001b = ╱f1╱ : ╱ // 0x4bc @0x1b
0x4a1…4d0 at001c = ╱36╱6╱ // 0x4bd @0x1c
0x4a1…4d0 at001d = ╱f20600╱ // 0x4be @0x1d
0x4a1…4d0 at0020 = ╱ee╱ ) ╱ // 0x4c1 @0x20
0x4a1…4d0 at0021 = ╱e4╱ >< ╱ // 0x4c2 @0x21
0x4a1…4d0 at0022 = ╱22╱"╱ // 0x4c3 @0x22
0x4a1…4d0 at0023 = ╱72╱r╱ // 0x4c4 @0x23
0x4a1…4d0 at0024 = ╱65╱e╱ // 0x4c5 @0x24
0x4a1…4d0 at0025 = ╱74╱t╱ // 0x4c6 @0x25
0x4a1…4d0 at0026 = ╱75╱u╱ // 0x4c7 @0x26
0x4a1…4d0 at0027 = ╱72╱r╱ // 0x4c8 @0x27
0x4a1…4d0 at0028 = ╱6e╱n╱ // 0x4c9 @0x28
0x4a1…4d0 at0029 = ╱22╱"╱ // 0x4ca @0x29
0x4a1…4d0 at002a = ╱b5╱ THEN ╱ // 0x4cb @0x2a
0x4a1…4d0 at002b = ╱92╱ PRINT ╱ // 0x4cc @0x2b
0x4a1…4d0 at002c = ╱53╱S╱ // 0x4cd @0x2c
0x4a1…4d0 at002d = ╱ef╱ $ ╱ // 0x4ce @0x2d
0x4a1…4d0 at002e = EOL // 0x4cf @0x2e
0x4a1…4d0 }
0x4d0…4fc (16,) 9aea 00690 IF R = 0 AND S $ ( ╱cb╱ ( S $ ) - 5 : 6 ) = "return" THEN
0x4d0…4fc LineComal80 {
0x4d0…4fc ptr = 0x9aea // 0x4d0 @0x0
0x4d0…4fc lno = 0x02b2 // 0x4d2 @0x2
0x4d0…4fc at0004 = ╱9b0050╱ IF ╱ // 0x4d4 @0x4
0x4d0…4fc at0007 = ╱52╱R╱ // 0x4d7 @0x7
0x4d0…4fc at0008 = ╱df╱ = ╱ // 0x4d8 @0x8
0x4d0…4fc at0009 = ╱30╱0╱ // 0x4d9 @0x9
0x4d0…4fc at000a = ╱f20000╱ // 0x4da @0xa
0x4d0…4fc at000d = ╱d9╱ AND ╱ // 0x4dd @0xd
0x4d0…4fc at000e = ╱53╱S╱ // 0x4de @0xe
0x4d0…4fc at000f = ╱ef╱ $ ╱ // 0x4df @0xf
0x4d0…4fc at0010 = ╱ed╱ ( ╱ // 0x4e0 @0x10
0x4d0…4fc at0011 = ╱cb╱ // 0x4e1 @0x11
0x4d0…4fc at0012 = ╱ed╱ ( ╱ // 0x4e2 @0x12
0x4d0…4fc at0013 = ╱53╱S╱ // 0x4e3 @0x13
0x4d0…4fc at0014 = ╱ef╱ $ ╱ // 0x4e4 @0x14
0x4d0…4fc at0015 = ╱ee╱ ) ╱ // 0x4e5 @0x15
0x4d0…4fc at0016 = ╱e6╱ - ╱ // 0x4e6 @0x16
0x4d0…4fc at0017 = ╱35╱5╱ // 0x4e7 @0x17
0x4d0…4fc at0018 = ╱f20500╱ // 0x4e8 @0x18
0x4d0…4fc at001b = ╱f1╱ : ╱ // 0x4eb @0x1b
0x4d0…4fc at001c = ╱36╱6╱ // 0x4ec @0x1c
0x4d0…4fc at001d = ╱f20600╱ // 0x4ed @0x1d
0x4d0…4fc at0020 = ╱ee╱ ) ╱ // 0x4f0 @0x20
0x4d0…4fc at0021 = ╱df╱ = ╱ // 0x4f1 @0x21
0x4d0…4fc at0022 = ╱22╱"╱ // 0x4f2 @0x22
0x4d0…4fc at0023 = ╱72╱r╱ // 0x4f3 @0x23
0x4d0…4fc at0024 = ╱65╱e╱ // 0x4f4 @0x24
0x4d0…4fc at0025 = ╱74╱t╱ // 0x4f5 @0x25
0x4d0…4fc at0026 = ╱75╱u╱ // 0x4f6 @0x26
0x4d0…4fc at0027 = ╱72╱r╱ // 0x4f7 @0x27
0x4d0…4fc at0028 = ╱6e╱n╱ // 0x4f8 @0x28
0x4d0…4fc at0029 = ╱22╱"╱ // 0x4f9 @0x29
0x4d0…4fc at002a = ╱b5╱ THEN ╱ // 0x4fa @0x2a
0x4d0…4fc at002b = EOL // 0x4fb @0x2b
0x4d0…4fc }
0x4fc…502 9af0 00700 PRINT
0x4fc…502 LineComal80 {
0x4fc…502 ptr = 0x9af0 // 0x4fc @0x0
0x4fc…502 lno = 0x02bc // 0x4fe @0x2
0x4fc…502 at0004 = ╱92╱ PRINT ╱ // 0x500 @0x4
0x4fc…502 at0005 = EOL // 0x501 @0x5
0x4fc…502 }
0x502…50e 9afc 00710 EXEC RETURN
0x502…50e LineComal80 {
0x502…50e ptr = 0x9afc // 0x502 @0x0
0x502…50e lno = 0x02c6 // 0x504 @0x2
0x502…50e at0004 = ╱9d╱ EXEC ╱ // 0x506 @0x4
0x502…50e at0005 = ╱52╱R╱ // 0x507 @0x5
0x502…50e at0006 = ╱45╱E╱ // 0x508 @0x6
0x502…50e at0007 = ╱54╱T╱ // 0x509 @0x7
0x502…50e at0008 = ╱55╱U╱ // 0x50a @0x8
0x502…50e at0009 = ╱52╱R╱ // 0x50b @0x9
0x502…50e at000a = ╱4e╱N╱ // 0x50c @0xa
0x502…50e at000b = EOL // 0x50d @0xb
0x502…50e }
0x50e…51e 9b0c 00720 IF PR = 0 THEN CLEAR
0x50e…51e LineComal80 {
0x50e…51e ptr = 0x9b0c // 0x50e @0x0
0x50e…51e lno = 0x02d0 // 0x510 @0x2
0x50e…51e at0004 = ╱8200╱ IF ╱ // 0x512 @0x4
0x50e…51e at0006 = ╱50╱P╱ // 0x514 @0x6
0x50e…51e at0007 = ╱52╱R╱ // 0x515 @0x7
0x50e…51e at0008 = ╱df╱ = ╱ // 0x516 @0x8
0x50e…51e at0009 = ╱30╱0╱ // 0x517 @0x9
0x50e…51e at000a = ╱f20000╱ // 0x518 @0xa
0x50e…51e at000d = ╱b5╱ THEN ╱ // 0x51b @0xd
0x50e…51e at000e = ╱a0╱ CLEAR ╱ // 0x51c @0xe
0x50e…51e at000f = EOL // 0x51d @0xf
0x50e…51e }
0x51e…524 9b12 00730 ENDIF
0x51e…524 LineComal80 {
0x51e…524 ptr = 0x9b12 // 0x51e @0x0
0x51e…524 lno = 0x02da // 0x520 @0x2
0x51e…524 at0004 = ╱9c╱ ENDIF ╱ // 0x522 @0x4
0x51e…524 at0005 = EOL // 0x523 @0x5
0x51e…524 }
0x524…52a 9b18 00740 ENDIF
0x524…52a LineComal80 {
0x524…52a ptr = 0x9b18 // 0x524 @0x0
0x524…52a lno = 0x02e4 // 0x526 @0x2
0x524…52a at0004 = ╱9c╱ ENDIF ╱ // 0x528 @0x4
0x524…52a at0005 = EOL // 0x529 @0x5
0x524…52a }
0x52a…547 9b35 00750 UNTIL ╱cd╱ ( "dde:skatfork" ) = 19
0x52a…547 LineComal80 {
0x52a…547 ptr = 0x9b35 // 0x52a @0x0
0x52a…547 lno = 0x02ee // 0x52c @0x2
0x52a…547 at0004 = ╱98╱ UNTIL ╱ // 0x52e @0x4
0x52a…547 at0005 = ╱cd╱ // 0x52f @0x5
0x52a…547 at0006 = ╱ed╱ ( ╱ // 0x530 @0x6
0x52a…547 at0007 = ╱22╱"╱ // 0x531 @0x7
0x52a…547 at0008 = ╱64╱d╱ // 0x532 @0x8
0x52a…547 at0009 = ╱64╱d╱ // 0x533 @0x9
0x52a…547 at000a = ╱65╱e╱ // 0x534 @0xa
0x52a…547 at000b = ╱3a╱:╱ // 0x535 @0xb
0x52a…547 at000c = ╱73╱s╱ // 0x536 @0xc
0x52a…547 at000d = ╱6b╱k╱ // 0x537 @0xd
0x52a…547 at000e = ╱61╱a╱ // 0x538 @0xe
0x52a…547 at000f = ╱74╱t╱ // 0x539 @0xf
0x52a…547 at0010 = ╱66╱f╱ // 0x53a @0x10
0x52a…547 at0011 = ╱6f╱o╱ // 0x53b @0x11
0x52a…547 at0012 = ╱72╱r╱ // 0x53c @0x12
0x52a…547 at0013 = ╱6b╱k╱ // 0x53d @0x13
0x52a…547 at0014 = ╱22╱"╱ // 0x53e @0x14
0x52a…547 at0015 = ╱ee╱ ) ╱ // 0x53f @0x15
0x52a…547 at0016 = ╱df╱ = ╱ // 0x540 @0x16
0x52a…547 at0017 = ╱31╱1╱ // 0x541 @0x17
0x52a…547 at0018 = ╱39╱9╱ // 0x542 @0x18
0x52a…547 at0019 = ╱f21300╱ // 0x543 @0x19
0x52a…547 at001c = EOL // 0x546 @0x1c
0x52a…547 }
0x547…54d 9b3b 00760 CLOSE
0x547…54d LineComal80 {
0x547…54d ptr = 0x9b3b // 0x547 @0x0
0x547…54d lno = 0x02f8 // 0x549 @0x2
0x547…54d at0004 = ╱a8╱ CLOSE ╱ // 0x54b @0x4
0x547…54d at0005 = EOL // 0x54c @0x5
0x547…54d }
0x54d…55c 9b4a 00770 IF R = 0 THEN
0x54d…55c LineComal80 {
0x54d…55c ptr = 0x9b4a // 0x54d @0x0
0x54d…55c lno = 0x0302 // 0x54f @0x2
0x54d…55c at0004 = ╱9b0050╱ IF ╱ // 0x551 @0x4
0x54d…55c at0007 = ╱52╱R╱ // 0x554 @0x7
0x54d…55c at0008 = ╱df╱ = ╱ // 0x555 @0x8
0x54d…55c at0009 = ╱30╱0╱ // 0x556 @0x9
0x54d…55c at000a = ╱f20000╱ // 0x557 @0xa
0x54d…55c at000d = ╱b5╱ THEN ╱ // 0x55a @0xd
0x54d…55c at000e = EOL // 0x55b @0xe
0x54d…55c }
0x55c…58a 9b78 00780 PRINT "\nskes…forklaringerne…gentaget?…(j/n)" ;
0x55c…58a LineComal80 {
0x55c…58a ptr = 0x9b78 // 0x55c @0x0
0x55c…58a lno = 0x030c // 0x55e @0x2
0x55c…58a at0004 = ╱92╱ PRINT ╱ // 0x560 @0x4
0x55c…58a at0005 = ╱22╱"╱ // 0x561 @0x5
0x55c…58a at0006 = ╱5c╱\╱ // 0x562 @0x6
0x55c…58a at0007 = ╱6e╱n╱ // 0x563 @0x7
0x55c…58a at0008 = ╱73╱s╱ // 0x564 @0x8
0x55c…58a at0009 = ╱6b╱k╱ // 0x565 @0x9
0x55c…58a at000a = ╱65╱e╱ // 0x566 @0xa
0x55c…58a at000b = ╱73╱s╱ // 0x567 @0xb
0x55c…58a at000c = ╱20╱…╱ // 0x568 @0xc
0x55c…58a at000d = ╱66╱f╱ // 0x569 @0xd
0x55c…58a at000e = ╱6f╱o╱ // 0x56a @0xe
0x55c…58a at000f = ╱72╱r╱ // 0x56b @0xf
0x55c…58a at0010 = ╱6b╱k╱ // 0x56c @0x10
0x55c…58a at0011 = ╱6c╱l╱ // 0x56d @0x11
0x55c…58a at0012 = ╱61╱a╱ // 0x56e @0x12
0x55c…58a at0013 = ╱72╱r╱ // 0x56f @0x13
0x55c…58a at0014 = ╱69╱i╱ // 0x570 @0x14
0x55c…58a at0015 = ╱6e╱n╱ // 0x571 @0x15
0x55c…58a at0016 = ╱67╱g╱ // 0x572 @0x16
0x55c…58a at0017 = ╱65╱e╱ // 0x573 @0x17
0x55c…58a at0018 = ╱72╱r╱ // 0x574 @0x18
0x55c…58a at0019 = ╱6e╱n╱ // 0x575 @0x19
0x55c…58a at001a = ╱65╱e╱ // 0x576 @0x1a
0x55c…58a at001b = ╱20╱…╱ // 0x577 @0x1b
0x55c…58a at001c = ╱67╱g╱ // 0x578 @0x1c
0x55c…58a at001d = ╱65╱e╱ // 0x579 @0x1d
0x55c…58a at001e = ╱6e╱n╱ // 0x57a @0x1e
0x55c…58a at001f = ╱74╱t╱ // 0x57b @0x1f
0x55c…58a at0020 = ╱61╱a╱ // 0x57c @0x20
0x55c…58a at0021 = ╱67╱g╱ // 0x57d @0x21
0x55c…58a at0022 = ╱65╱e╱ // 0x57e @0x22
0x55c…58a at0023 = ╱74╱t╱ // 0x57f @0x23
0x55c…58a at0024 = ╱3f╱?╱ // 0x580 @0x24
0x55c…58a at0025 = ╱20╱…╱ // 0x581 @0x25
0x55c…58a at0026 = ╱28╱(╱ // 0x582 @0x26
0x55c…58a at0027 = ╱6a╱j╱ // 0x583 @0x27
0x55c…58a at0028 = ╱2f╱/╱ // 0x584 @0x28
0x55c…58a at0029 = ╱6e╱n╱ // 0x585 @0x29
0x55c…58a at002a = ╱29╱)╱ // 0x586 @0x2a
0x55c…58a at002b = ╱22╱"╱ // 0x587 @0x2b
0x55c…58a at002c = ╱ea╱ ; ╱ // 0x588 @0x2c
0x55c…58a at002d = EOL // 0x589 @0x2d
0x55c…58a }
0x58a…594 9b82 00790 EXEC SVAR
0x58a…594 LineComal80 {
0x58a…594 ptr = 0x9b82 // 0x58a @0x0
0x58a…594 lno = 0x0316 // 0x58c @0x2
0x58a…594 at0004 = ╱9d╱ EXEC ╱ // 0x58e @0x4
0x58a…594 at0005 = ╱53╱S╱ // 0x58f @0x5
0x58a…594 at0006 = ╱56╱V╱ // 0x590 @0x6
0x58a…594 at0007 = ╱41╱A╱ // 0x591 @0x7
0x58a…594 at0008 = ╱52╱R╱ // 0x592 @0x8
0x58a…594 at0009 = EOL // 0x593 @0x9
0x58a…594 }
0x594…59b 9b89 00800 ELSE
0x594…59b LineComal80 {
0x594…59b ptr = 0x9b89 // 0x594 @0x0
0x594…59b lno = 0x0320 // 0x596 @0x2
0x594…59b at0004 = ╱9a00╱ ELSE ╱ // 0x598 @0x4
0x594…59b at0006 = EOL // 0x59a @0x6
0x594…59b }
0x59b…5a4 9b92 00810 OUTPUT "T"
0x59b…5a4 LineComal80 {
0x59b…5a4 ptr = 0x9b92 // 0x59b @0x0
0x59b…5a4 lno = 0x032a // 0x59d @0x2
0x59b…5a4 at0004 = ╱a5╱ OUTPUT ╱ // 0x59f @0x4
0x59b…5a4 at0005 = ╱22╱"╱ // 0x5a0 @0x5
0x59b…5a4 at0006 = ╱54╱T╱ // 0x5a1 @0x6
0x59b…5a4 at0007 = ╱22╱"╱ // 0x5a2 @0x7
0x59b…5a4 at0008 = EOL // 0x5a3 @0x8
0x59b…5a4 }
0x5a4…5aa 9b98 00820 ENDIF
0x5a4…5aa LineComal80 {
0x5a4…5aa ptr = 0x9b98 // 0x5a4 @0x0
0x5a4…5aa lno = 0x0334 // 0x5a6 @0x2
0x5a4…5aa at0004 = ╱9c╱ ENDIF ╱ // 0x5a8 @0x4
0x5a4…5aa at0005 = EOL // 0x5a9 @0x5
0x5a4…5aa }
0x5aa…5b0 9b9e 00830 ENDIF
0x5aa…5b0 LineComal80 {
0x5aa…5b0 ptr = 0x9b9e // 0x5aa @0x0
0x5aa…5b0 lno = 0x033e // 0x5ac @0x2
0x5aa…5b0 at0004 = ╱9c╱ ENDIF ╱ // 0x5ae @0x4
0x5aa…5b0 at0005 = EOL // 0x5af @0x5
0x5aa…5b0 }
0x5b0…5c4 9bb2 00840 UNTIL PR = 1 OR S $ = "n"
0x5b0…5c4 LineComal80 {
0x5b0…5c4 ptr = 0x9bb2 // 0x5b0 @0x0
0x5b0…5c4 lno = 0x0348 // 0x5b2 @0x2
0x5b0…5c4 at0004 = ╱98╱ UNTIL ╱ // 0x5b4 @0x4
0x5b0…5c4 at0005 = ╱50╱P╱ // 0x5b5 @0x5
0x5b0…5c4 at0006 = ╱52╱R╱ // 0x5b6 @0x6
0x5b0…5c4 at0007 = ╱df╱ = ╱ // 0x5b7 @0x7
0x5b0…5c4 at0008 = ╱31╱1╱ // 0x5b8 @0x8
0x5b0…5c4 at0009 = ╱f20100╱ // 0x5b9 @0x9
0x5b0…5c4 at000c = ╱d8╱ OR ╱ // 0x5bc @0xc
0x5b0…5c4 at000d = ╱53╱S╱ // 0x5bd @0xd
0x5b0…5c4 at000e = ╱ef╱ $ ╱ // 0x5be @0xe
0x5b0…5c4 at000f = ╱df╱ = ╱ // 0x5bf @0xf
0x5b0…5c4 at0010 = ╱22╱"╱ // 0x5c0 @0x10
0x5b0…5c4 at0011 = ╱6e╱n╱ // 0x5c1 @0x11
0x5b0…5c4 at0012 = ╱22╱"╱ // 0x5c2 @0x12
0x5b0…5c4 at0013 = EOL // 0x5c3 @0x13
0x5b0…5c4 }
0x5c4…5fa 9be8 00850 PRINT "***…VENT…***…BEREGNINGSPROGRAMMET…INDL[SES…***"
0x5c4…5fa LineComal80 {
0x5c4…5fa ptr = 0x9be8 // 0x5c4 @0x0
0x5c4…5fa lno = 0x0352 // 0x5c6 @0x2
0x5c4…5fa at0004 = ╱92╱ PRINT ╱ // 0x5c8 @0x4
0x5c4…5fa at0005 = ╱22╱"╱ // 0x5c9 @0x5
0x5c4…5fa at0006 = ╱2a╱*╱ // 0x5ca @0x6
0x5c4…5fa at0007 = ╱2a╱*╱ // 0x5cb @0x7
0x5c4…5fa at0008 = ╱2a╱*╱ // 0x5cc @0x8
0x5c4…5fa at0009 = ╱20╱…╱ // 0x5cd @0x9
0x5c4…5fa at000a = ╱56╱V╱ // 0x5ce @0xa
0x5c4…5fa at000b = ╱45╱E╱ // 0x5cf @0xb
0x5c4…5fa at000c = ╱4e╱N╱ // 0x5d0 @0xc
0x5c4…5fa at000d = ╱54╱T╱ // 0x5d1 @0xd
0x5c4…5fa at000e = ╱20╱…╱ // 0x5d2 @0xe
0x5c4…5fa at000f = ╱2a╱*╱ // 0x5d3 @0xf
0x5c4…5fa at0010 = ╱2a╱*╱ // 0x5d4 @0x10
0x5c4…5fa at0011 = ╱2a╱*╱ // 0x5d5 @0x11
0x5c4…5fa at0012 = ╱20╱…╱ // 0x5d6 @0x12
0x5c4…5fa at0013 = ╱42╱B╱ // 0x5d7 @0x13
0x5c4…5fa at0014 = ╱45╱E╱ // 0x5d8 @0x14
0x5c4…5fa at0015 = ╱52╱R╱ // 0x5d9 @0x15
0x5c4…5fa at0016 = ╱45╱E╱ // 0x5da @0x16
0x5c4…5fa at0017 = ╱47╱G╱ // 0x5db @0x17
0x5c4…5fa at0018 = ╱4e╱N╱ // 0x5dc @0x18
0x5c4…5fa at0019 = ╱49╱I╱ // 0x5dd @0x19
0x5c4…5fa at001a = ╱4e╱N╱ // 0x5de @0x1a
0x5c4…5fa at001b = ╱47╱G╱ // 0x5df @0x1b
0x5c4…5fa at001c = ╱53╱S╱ // 0x5e0 @0x1c
0x5c4…5fa at001d = ╱50╱P╱ // 0x5e1 @0x1d
0x5c4…5fa at001e = ╱52╱R╱ // 0x5e2 @0x1e
0x5c4…5fa at001f = ╱4f╱O╱ // 0x5e3 @0x1f
0x5c4…5fa at0020 = ╱47╱G╱ // 0x5e4 @0x20
0x5c4…5fa at0021 = ╱52╱R╱ // 0x5e5 @0x21
0x5c4…5fa at0022 = ╱41╱A╱ // 0x5e6 @0x22
0x5c4…5fa at0023 = ╱4d╱M╱ // 0x5e7 @0x23
0x5c4…5fa at0024 = ╱4d╱M╱ // 0x5e8 @0x24
0x5c4…5fa at0025 = ╱45╱E╱ // 0x5e9 @0x25
0x5c4…5fa at0026 = ╱54╱T╱ // 0x5ea @0x26
0x5c4…5fa at0027 = ╱20╱…╱ // 0x5eb @0x27
0x5c4…5fa at0028 = ╱49╱I╱ // 0x5ec @0x28
0x5c4…5fa at0029 = ╱4e╱N╱ // 0x5ed @0x29
0x5c4…5fa at002a = ╱44╱D╱ // 0x5ee @0x2a
0x5c4…5fa at002b = ╱4c╱L╱ // 0x5ef @0x2b
0x5c4…5fa at002c = ╱5b╱[╱ // 0x5f0 @0x2c
0x5c4…5fa at002d = ╱53╱S╱ // 0x5f1 @0x2d
0x5c4…5fa at002e = ╱45╱E╱ // 0x5f2 @0x2e
0x5c4…5fa at002f = ╱53╱S╱ // 0x5f3 @0x2f
0x5c4…5fa at0030 = ╱20╱…╱ // 0x5f4 @0x30
0x5c4…5fa at0031 = ╱2a╱*╱ // 0x5f5 @0x31
0x5c4…5fa at0032 = ╱2a╱*╱ // 0x5f6 @0x32
0x5c4…5fa at0033 = ╱2a╱*╱ // 0x5f7 @0x33
0x5c4…5fa at0034 = ╱22╱"╱ // 0x5f8 @0x34
0x5c4…5fa at0035 = EOL // 0x5f9 @0x35
0x5c4…5fa }
0x5fa…60c 9bfa 00860 CHAIN "DDE:SKAT85"
0x5fa…60c LineComal80 {
0x5fa…60c ptr = 0x9bfa // 0x5fa @0x0
0x5fa…60c lno = 0x035c // 0x5fc @0x2
0x5fa…60c at0004 = ╱ac╱ CHAIN ╱ // 0x5fe @0x4
0x5fa…60c at0005 = ╱22╱"╱ // 0x5ff @0x5
0x5fa…60c at0006 = ╱44╱D╱ // 0x600 @0x6
0x5fa…60c at0007 = ╱44╱D╱ // 0x601 @0x7
0x5fa…60c at0008 = ╱45╱E╱ // 0x602 @0x8
0x5fa…60c at0009 = ╱3a╱:╱ // 0x603 @0x9
0x5fa…60c at000a = ╱53╱S╱ // 0x604 @0xa
0x5fa…60c at000b = ╱4b╱K╱ // 0x605 @0xb
0x5fa…60c at000c = ╱41╱A╱ // 0x606 @0xc
0x5fa…60c at000d = ╱54╱T╱ // 0x607 @0xd
0x5fa…60c at000e = ╱38╱8╱ // 0x608 @0xe
0x5fa…60c at000f = ╱35╱5╱ // 0x609 @0xf
0x5fa…60c at0010 = ╱22╱"╱ // 0x60a @0x10
0x5fa…60c at0011 = EOL // 0x60b @0x11
0x5fa…60c }
0x60c…617 9c05 00870 PROC SVAR
0x60c…617 LineComal80 {
0x60c…617 ptr = 0x9c05 // 0x60c @0x0
0x60c…617 lno = 0x0366 // 0x60e @0x2
0x60c…617 at0004 = ╱9e00╱ PROC ╱ // 0x610 @0x4
0x60c…617 at0006 = ╱53╱S╱ // 0x612 @0x6
0x60c…617 at0007 = ╱56╱V╱ // 0x613 @0x7
0x60c…617 at0008 = ╱41╱A╱ // 0x614 @0x8
0x60c…617 at0009 = ╱52╱R╱ // 0x615 @0x9
0x60c…617 at000a = EOL // 0x616 @0xa
0x60c…617 }
0x617…61e 9c0c 00880 REPEAT
0x617…61e LineComal80 {
0x617…61e ptr = 0x9c0c // 0x617 @0x0
0x617…61e lno = 0x0370 // 0x619 @0x2
0x617…61e at0004 = ╱9700╱ REPEAT ╱ // 0x61b @0x4
0x617…61e at0006 = EOL // 0x61d @0x6
0x617…61e }
0x61e…626 9c14 00890 INPUT S $
0x61e…626 LineComal80 {
0x61e…626 ptr = 0x9c14 // 0x61e @0x0
0x61e…626 lno = 0x037a // 0x620 @0x2
0x61e…626 at0004 = ╱91╱ INPUT ╱ // 0x622 @0x4
0x61e…626 at0005 = ╱53╱S╱ // 0x623 @0x5
0x61e…626 at0006 = ╱ef╱ $ ╱ // 0x624 @0x6
0x61e…626 at0007 = EOL // 0x625 @0x7
0x61e…626 }
0x626…63b 9c29 00900 IF $ = "q" OR S $ = "Q" THEN
0x626…63b LineComal80 {
0x626…63b ptr = 0x9c29 // 0x626 @0x0
0x626…63b lno = 0x0384 // 0x628 @0x2
0x626…63b at0004 = ╱9b0053╱ IF ╱ // 0x62a @0x4
0x626…63b at0007 = ╱ef╱ $ ╱ // 0x62d @0x7
0x626…63b at0008 = ╱df╱ = ╱ // 0x62e @0x8
0x626…63b at0009 = ╱22╱"╱ // 0x62f @0x9
0x626…63b at000a = ╱71╱q╱ // 0x630 @0xa
0x626…63b at000b = ╱22╱"╱ // 0x631 @0xb
0x626…63b at000c = ╱d8╱ OR ╱ // 0x632 @0xc
0x626…63b at000d = ╱53╱S╱ // 0x633 @0xd
0x626…63b at000e = ╱ef╱ $ ╱ // 0x634 @0xe
0x626…63b at000f = ╱df╱ = ╱ // 0x635 @0xf
0x626…63b at0010 = ╱22╱"╱ // 0x636 @0x10
0x626…63b at0011 = ╱51╱Q╱ // 0x637 @0x11
0x626…63b at0012 = ╱22╱"╱ // 0x638 @0x12
0x626…63b at0013 = ╱b5╱ THEN ╱ // 0x639 @0x13
0x626…63b at0014 = EOL // 0x63a @0x14
0x626…63b }
0x63b…67c 9c6a 00910 PRINT "Programmet…kan…kun…afsluttes…fra…hovedprogrammet." ; CHR$ ( 7 )
0x63b…67c LineComal80 {
0x63b…67c ptr = 0x9c6a // 0x63b @0x0
0x63b…67c lno = 0x038e // 0x63d @0x2
0x63b…67c at0004 = ╱92╱ PRINT ╱ // 0x63f @0x4
0x63b…67c at0005 = ╱22╱"╱ // 0x640 @0x5
0x63b…67c at0006 = ╱50╱P╱ // 0x641 @0x6
0x63b…67c at0007 = ╱72╱r╱ // 0x642 @0x7
0x63b…67c at0008 = ╱6f╱o╱ // 0x643 @0x8
0x63b…67c at0009 = ╱67╱g╱ // 0x644 @0x9
0x63b…67c at000a = ╱72╱r╱ // 0x645 @0xa
0x63b…67c at000b = ╱61╱a╱ // 0x646 @0xb
0x63b…67c at000c = ╱6d╱m╱ // 0x647 @0xc
0x63b…67c at000d = ╱6d╱m╱ // 0x648 @0xd
0x63b…67c at000e = ╱65╱e╱ // 0x649 @0xe
0x63b…67c at000f = ╱74╱t╱ // 0x64a @0xf
0x63b…67c at0010 = ╱20╱…╱ // 0x64b @0x10
0x63b…67c at0011 = ╱6b╱k╱ // 0x64c @0x11
0x63b…67c at0012 = ╱61╱a╱ // 0x64d @0x12
0x63b…67c at0013 = ╱6e╱n╱ // 0x64e @0x13
0x63b…67c at0014 = ╱20╱…╱ // 0x64f @0x14
0x63b…67c at0015 = ╱6b╱k╱ // 0x650 @0x15
0x63b…67c at0016 = ╱75╱u╱ // 0x651 @0x16
0x63b…67c at0017 = ╱6e╱n╱ // 0x652 @0x17
0x63b…67c at0018 = ╱20╱…╱ // 0x653 @0x18
0x63b…67c at0019 = ╱61╱a╱ // 0x654 @0x19
0x63b…67c at001a = ╱66╱f╱ // 0x655 @0x1a
0x63b…67c at001b = ╱73╱s╱ // 0x656 @0x1b
0x63b…67c at001c = ╱6c╱l╱ // 0x657 @0x1c
0x63b…67c at001d = ╱75╱u╱ // 0x658 @0x1d
0x63b…67c at001e = ╱74╱t╱ // 0x659 @0x1e
0x63b…67c at001f = ╱74╱t╱ // 0x65a @0x1f
0x63b…67c at0020 = ╱65╱e╱ // 0x65b @0x20
0x63b…67c at0021 = ╱73╱s╱ // 0x65c @0x21
0x63b…67c at0022 = ╱20╱…╱ // 0x65d @0x22
0x63b…67c at0023 = ╱66╱f╱ // 0x65e @0x23
0x63b…67c at0024 = ╱72╱r╱ // 0x65f @0x24
0x63b…67c at0025 = ╱61╱a╱ // 0x660 @0x25
0x63b…67c at0026 = ╱20╱…╱ // 0x661 @0x26
0x63b…67c at0027 = ╱68╱h╱ // 0x662 @0x27
0x63b…67c at0028 = ╱6f╱o╱ // 0x663 @0x28
0x63b…67c at0029 = ╱76╱v╱ // 0x664 @0x29
0x63b…67c at002a = ╱65╱e╱ // 0x665 @0x2a
0x63b…67c at002b = ╱64╱d╱ // 0x666 @0x2b
0x63b…67c at002c = ╱70╱p╱ // 0x667 @0x2c
0x63b…67c at002d = ╱72╱r╱ // 0x668 @0x2d
0x63b…67c at002e = ╱6f╱o╱ // 0x669 @0x2e
0x63b…67c at002f = ╱67╱g╱ // 0x66a @0x2f
0x63b…67c at0030 = ╱72╱r╱ // 0x66b @0x30
0x63b…67c at0031 = ╱61╱a╱ // 0x66c @0x31
0x63b…67c at0032 = ╱6d╱m╱ // 0x66d @0x32
0x63b…67c at0033 = ╱6d╱m╱ // 0x66e @0x33
0x63b…67c at0034 = ╱65╱e╱ // 0x66f @0x34
0x63b…67c at0035 = ╱74╱t╱ // 0x670 @0x35
0x63b…67c at0036 = ╱2e╱.╱ // 0x671 @0x36
0x63b…67c at0037 = ╱22╱"╱ // 0x672 @0x37
0x63b…67c at0038 = ╱ea╱ ; ╱ // 0x673 @0x38
0x63b…67c at0039 = ╱d0╱ CHR$ ╱ // 0x674 @0x39
0x63b…67c at003a = ╱ed╱ ( ╱ // 0x675 @0x3a
0x63b…67c at003b = ╱37╱7╱ // 0x676 @0x3b
0x63b…67c at003c = ╱f20700╱ // 0x677 @0x3c
0x63b…67c at003f = ╱ee╱ ) ╱ // 0x67a @0x3f
0x63b…67c at0040 = EOL // 0x67b @0x40
0x63b…67c }
0x67c…682 9c70 00920 ENDIF
0x67c…682 LineComal80 {
0x67c…682 ptr = 0x9c70 // 0x67c @0x0
0x67c…682 lno = 0x0398 // 0x67e @0x2
0x67c…682 at0004 = ╱9c╱ ENDIF ╱ // 0x680 @0x4
0x67c…682 at0005 = EOL // 0x681 @0x5
0x67c…682 }
0x682…697 9c85 00930 IF S $ = "N" THEN LET S $ := "n"
0x682…697 LineComal80 {
0x682…697 ptr = 0x9c85 // 0x682 @0x0
0x682…697 lno = 0x03a2 // 0x684 @0x2
0x682…697 at0004 = ╱8200╱ IF ╱ // 0x686 @0x4
0x682…697 at0006 = ╱53╱S╱ // 0x688 @0x6
0x682…697 at0007 = ╱ef╱ $ ╱ // 0x689 @0x7
0x682…697 at0008 = ╱df╱ = ╱ // 0x68a @0x8
0x682…697 at0009 = ╱22╱"╱ // 0x68b @0x9
0x682…697 at000a = ╱4e╱N╱ // 0x68c @0xa
0x682…697 at000b = ╱22╱"╱ // 0x68d @0xb
0x682…697 at000c = ╱b5╱ THEN ╱ // 0x68e @0xc
0x682…697 at000d = ╱86╱ LET ╱ // 0x68f @0xd
0x682…697 at000e = ╱53╱S╱ // 0x690 @0xe
0x682…697 at000f = ╱ef╱ $ ╱ // 0x691 @0xf
0x682…697 at0010 = ╱f0╱ := ╱ // 0x692 @0x10
0x682…697 at0011 = ╱22╱"╱ // 0x693 @0x11
0x682…697 at0012 = ╱6e╱n╱ // 0x694 @0x12
0x682…697 at0013 = ╱22╱"╱ // 0x695 @0x13
0x682…697 at0014 = EOL // 0x696 @0x14
0x682…697 }
0x697…6ac 9c9a 00940 IF S $ = "J" THEN LET S $ := "j"
0x697…6ac LineComal80 {
0x697…6ac ptr = 0x9c9a // 0x697 @0x0
0x697…6ac lno = 0x03ac // 0x699 @0x2
0x697…6ac at0004 = ╱8200╱ IF ╱ // 0x69b @0x4
0x697…6ac at0006 = ╱53╱S╱ // 0x69d @0x6
0x697…6ac at0007 = ╱ef╱ $ ╱ // 0x69e @0x7
0x697…6ac at0008 = ╱df╱ = ╱ // 0x69f @0x8
0x697…6ac at0009 = ╱22╱"╱ // 0x6a0 @0x9
0x697…6ac at000a = ╱4a╱J╱ // 0x6a1 @0xa
0x697…6ac at000b = ╱22╱"╱ // 0x6a2 @0xb
0x697…6ac at000c = ╱b5╱ THEN ╱ // 0x6a3 @0xc
0x697…6ac at000d = ╱86╱ LET ╱ // 0x6a4 @0xd
0x697…6ac at000e = ╱53╱S╱ // 0x6a5 @0xe
0x697…6ac at000f = ╱ef╱ $ ╱ // 0x6a6 @0xf
0x697…6ac at0010 = ╱f0╱ := ╱ // 0x6a7 @0x10
0x697…6ac at0011 = ╱22╱"╱ // 0x6a8 @0x11
0x697…6ac at0012 = ╱6a╱j╱ // 0x6a9 @0x12
0x697…6ac at0013 = ╱22╱"╱ // 0x6aa @0x13
0x697…6ac at0014 = EOL // 0x6ab @0x14
0x697…6ac }
0x6ac…6bf 9cad 00950 UNTIL S $ = "j" OR S $ = "n"
0x6ac…6bf LineComal80 {
0x6ac…6bf ptr = 0x9cad // 0x6ac @0x0
0x6ac…6bf lno = 0x03b6 // 0x6ae @0x2
0x6ac…6bf at0004 = ╱98╱ UNTIL ╱ // 0x6b0 @0x4
0x6ac…6bf at0005 = ╱53╱S╱ // 0x6b1 @0x5
0x6ac…6bf at0006 = ╱ef╱ $ ╱ // 0x6b2 @0x6
0x6ac…6bf at0007 = ╱df╱ = ╱ // 0x6b3 @0x7
0x6ac…6bf at0008 = ╱22╱"╱ // 0x6b4 @0x8
0x6ac…6bf at0009 = ╱6a╱j╱ // 0x6b5 @0x9
0x6ac…6bf at000a = ╱22╱"╱ // 0x6b6 @0xa
0x6ac…6bf at000b = ╱d8╱ OR ╱ // 0x6b7 @0xb
0x6ac…6bf at000c = ╱53╱S╱ // 0x6b8 @0xc
0x6ac…6bf at000d = ╱ef╱ $ ╱ // 0x6b9 @0xd
0x6ac…6bf at000e = ╱df╱ = ╱ // 0x6ba @0xe
0x6ac…6bf at000f = ╱22╱"╱ // 0x6bb @0xf
0x6ac…6bf at0010 = ╱6e╱n╱ // 0x6bc @0x10
0x6ac…6bf at0011 = ╱22╱"╱ // 0x6bd @0x11
0x6ac…6bf at0012 = EOL // 0x6be @0x12
0x6ac…6bf }
0x6bf…6c9 9cb7 00960 ENDPROC SVAR
0x6bf…6c9 LineComal80 {
0x6bf…6c9 ptr = 0x9cb7 // 0x6bf @0x0
0x6bf…6c9 lno = 0x03c0 // 0x6c1 @0x2
0x6bf…6c9 at0004 = ╱9f╱ ENDPROC ╱ // 0x6c3 @0x4
0x6bf…6c9 at0005 = ╱53╱S╱ // 0x6c4 @0x5
0x6bf…6c9 at0006 = ╱56╱V╱ // 0x6c5 @0x6
0x6bf…6c9 at0007 = ╱41╱A╱ // 0x6c6 @0x7
0x6bf…6c9 at0008 = ╱52╱R╱ // 0x6c7 @0x8
0x6bf…6c9 at0009 = EOL // 0x6c8 @0x9
0x6bf…6c9 }
0x6c9…6d6 9cc4 00970 PROC RETURN
0x6c9…6d6 LineComal80 {
0x6c9…6d6 ptr = 0x9cc4 // 0x6c9 @0x0
0x6c9…6d6 lno = 0x03ca // 0x6cb @0x2
0x6c9…6d6 at0004 = ╱9e00╱ PROC ╱ // 0x6cd @0x4
0x6c9…6d6 at0006 = ╱52╱R╱ // 0x6cf @0x6
0x6c9…6d6 at0007 = ╱45╱E╱ // 0x6d0 @0x7
0x6c9…6d6 at0008 = ╱54╱T╱ // 0x6d1 @0x8
0x6c9…6d6 at0009 = ╱55╱U╱ // 0x6d2 @0x9
0x6c9…6d6 at000a = ╱52╱R╱ // 0x6d3 @0xa
0x6c9…6d6 at000b = ╱4e╱N╱ // 0x6d4 @0xb
0x6c9…6d6 at000c = EOL // 0x6d5 @0xc
0x6c9…6d6 }
0x6d6…6e2 9cd0 00980 LET S $ := "-"
0x6d6…6e2 LineComal80 {
0x6d6…6e2 ptr = 0x9cd0 // 0x6d6 @0x0
0x6d6…6e2 lno = 0x03d4 // 0x6d8 @0x2
0x6d6…6e2 at0004 = ╱86╱ LET ╱ // 0x6da @0x4
0x6d6…6e2 at0005 = ╱53╱S╱ // 0x6db @0x5
0x6d6…6e2 at0006 = ╱ef╱ $ ╱ // 0x6dc @0x6
0x6d6…6e2 at0007 = ╱f0╱ := ╱ // 0x6dd @0x7
0x6d6…6e2 at0008 = ╱22╱"╱ // 0x6de @0x8
0x6d6…6e2 at0009 = ╱2d╱-╱ // 0x6df @0x9
0x6d6…6e2 at000a = ╱22╱"╱ // 0x6e0 @0xa
0x6d6…6e2 at000b = EOL // 0x6e1 @0xb
0x6d6…6e2 }
0x6e2…6e8 9cd6 00990 PRINT
0x6e2…6e8 LineComal80 {
0x6e2…6e8 ptr = 0x9cd6 // 0x6e2 @0x0
0x6e2…6e8 lno = 0x03de // 0x6e4 @0x2
0x6e2…6e8 at0004 = ╱92╱ PRINT ╱ // 0x6e6 @0x4
0x6e2…6e8 at0005 = EOL // 0x6e7 @0x5
0x6e2…6e8 }
0x6e8…6f7 9ce5 01000 PRINT TAB ( 65 ) ;
0x6e8…6f7 LineComal80 {
0x6e8…6f7 ptr = 0x9ce5 // 0x6e8 @0x0
0x6e8…6f7 lno = 0x03e8 // 0x6ea @0x2
0x6e8…6f7 at0004 = ╱92╱ PRINT ╱ // 0x6ec @0x4
0x6e8…6f7 at0005 = ╱d2╱ TAB ╱ // 0x6ed @0x5
0x6e8…6f7 at0006 = ╱ed╱ ( ╱ // 0x6ee @0x6
0x6e8…6f7 at0007 = ╱36╱6╱ // 0x6ef @0x7
0x6e8…6f7 at0008 = ╱35╱5╱ // 0x6f0 @0x8
0x6e8…6f7 at0009 = ╱f24100╱ // 0x6f1 @0x9
0x6e8…6f7 at000c = ╱ee╱ ) ╱ // 0x6f4 @0xc
0x6e8…6f7 at000d = ╱ea╱ ; ╱ // 0x6f5 @0xd
0x6e8…6f7 at000e = EOL // 0x6f6 @0xe
0x6e8…6f7 }
0x6f7…70e 9cfc 01010 EDIT "TRYK…-RETURN" : S $
0x6f7…70e LineComal80 {
0x6f7…70e ptr = 0x9cfc // 0x6f7 @0x0
0x6f7…70e lno = 0x03f2 // 0x6f9 @0x2
0x6f7…70e at0004 = ╱b1╱ EDIT ╱ // 0x6fb @0x4
0x6f7…70e at0005 = ╱22╱"╱ // 0x6fc @0x5
0x6f7…70e at0006 = ╱54╱T╱ // 0x6fd @0x6
0x6f7…70e at0007 = ╱52╱R╱ // 0x6fe @0x7
0x6f7…70e at0008 = ╱59╱Y╱ // 0x6ff @0x8
0x6f7…70e at0009 = ╱4b╱K╱ // 0x700 @0x9
0x6f7…70e at000a = ╱20╱…╱ // 0x701 @0xa
0x6f7…70e at000b = ╱2d╱-╱ // 0x702 @0xb
0x6f7…70e at000c = ╱52╱R╱ // 0x703 @0xc
0x6f7…70e at000d = ╱45╱E╱ // 0x704 @0xd
0x6f7…70e at000e = ╱54╱T╱ // 0x705 @0xe
0x6f7…70e at000f = ╱55╱U╱ // 0x706 @0xf
0x6f7…70e at0010 = ╱52╱R╱ // 0x707 @0x10
0x6f7…70e at0011 = ╱4e╱N╱ // 0x708 @0x11
0x6f7…70e at0012 = ╱22╱"╱ // 0x709 @0x12
0x6f7…70e at0013 = ╱f1╱ : ╱ // 0x70a @0x13
0x6f7…70e at0014 = ╱53╱S╱ // 0x70b @0x14
0x6f7…70e at0015 = ╱ef╱ $ ╱ // 0x70c @0x15
0x6f7…70e at0016 = EOL // 0x70d @0x16
0x6f7…70e }
0x70e…71a 0000 01020 ENDPROC RETURN
0x70e…71a LineComal80 {
0x70e…71a ptr = 0x0000 // 0x70e @0x0
0x70e…71a lno = 0x03fc // 0x710 @0x2
0x70e…71a at0004 = ╱9f╱ ENDPROC ╱ // 0x712 @0x4
0x70e…71a at0005 = ╱52╱R╱ // 0x713 @0x5
0x70e…71a at0006 = ╱45╱E╱ // 0x714 @0x6
0x70e…71a at0007 = ╱54╱T╱ // 0x715 @0x7
0x70e…71a at0008 = ╱55╱U╱ // 0x716 @0x8
0x70e…71a at0009 = ╱52╱R╱ // 0x717 @0x9
0x70e…71a at000a = ╱4e╱N╱ // 0x718 @0xa
0x70e…71a at000b = EOL // 0x719 @0xb
0x70e…71a }
0x71a…74b 9650 00130 PRINT "EASY-SKAT…1985" ; TAB ( 65 ) ; "SERIE#…85.1.101"
0x71a…74b LineComal80 {
0x71a…74b ptr = 0x9650 // 0x71a @0x0
0x71a…74b lno = 0x0082 // 0x71c @0x2
0x71a…74b at0004 = ╱92╱ PRINT ╱ // 0x71e @0x4
0x71a…74b at0005 = ╱22╱"╱ // 0x71f @0x5
0x71a…74b at0006 = ╱45╱E╱ // 0x720 @0x6
0x71a…74b at0007 = ╱41╱A╱ // 0x721 @0x7
0x71a…74b at0008 = ╱53╱S╱ // 0x722 @0x8
0x71a…74b at0009 = ╱59╱Y╱ // 0x723 @0x9
0x71a…74b at000a = ╱2d╱-╱ // 0x724 @0xa
0x71a…74b at000b = ╱53╱S╱ // 0x725 @0xb
0x71a…74b at000c = ╱4b╱K╱ // 0x726 @0xc
0x71a…74b at000d = ╱41╱A╱ // 0x727 @0xd
0x71a…74b at000e = ╱54╱T╱ // 0x728 @0xe
0x71a…74b at000f = ╱20╱…╱ // 0x729 @0xf
0x71a…74b at0010 = ╱31╱1╱ // 0x72a @0x10
0x71a…74b at0011 = ╱39╱9╱ // 0x72b @0x11
0x71a…74b at0012 = ╱38╱8╱ // 0x72c @0x12
0x71a…74b at0013 = ╱35╱5╱ // 0x72d @0x13
0x71a…74b at0014 = ╱22╱"╱ // 0x72e @0x14
0x71a…74b at0015 = ╱ea╱ ; ╱ // 0x72f @0x15
0x71a…74b at0016 = ╱d2╱ TAB ╱ // 0x730 @0x16
0x71a…74b at0017 = ╱ed╱ ( ╱ // 0x731 @0x17
0x71a…74b at0018 = ╱36╱6╱ // 0x732 @0x18
0x71a…74b at0019 = ╱35╱5╱ // 0x733 @0x19
0x71a…74b at001a = ╱f24100╱ // 0x734 @0x1a
0x71a…74b at001d = ╱ee╱ ) ╱ // 0x737 @0x1d
0x71a…74b at001e = ╱ea╱ ; ╱ // 0x738 @0x1e
0x71a…74b at001f = ╱22╱"╱ // 0x739 @0x1f
0x71a…74b at0020 = ╱53╱S╱ // 0x73a @0x20
0x71a…74b at0021 = ╱45╱E╱ // 0x73b @0x21
0x71a…74b at0022 = ╱52╱R╱ // 0x73c @0x22
0x71a…74b at0023 = ╱49╱I╱ // 0x73d @0x23
0x71a…74b at0024 = ╱45╱E╱ // 0x73e @0x24
0x71a…74b at0025 = ╱23╱#╱ // 0x73f @0x25
0x71a…74b at0026 = ╱20╱…╱ // 0x740 @0x26
0x71a…74b at0027 = ╱38╱8╱ // 0x741 @0x27
0x71a…74b at0028 = ╱35╱5╱ // 0x742 @0x28
0x71a…74b at0029 = ╱2e╱.╱ // 0x743 @0x29
0x71a…74b at002a = ╱31╱1╱ // 0x744 @0x2a
0x71a…74b at002b = ╱2e╱.╱ // 0x745 @0x2b
0x71a…74b at002c = ╱31╱1╱ // 0x746 @0x2c
0x71a…74b at002d = ╱30╱0╱ // 0x747 @0x2d
0x71a…74b at002e = ╱31╱1╱ // 0x748 @0x2e
0x71a…74b at002f = ╱22╱"╱ // 0x749 @0x2f
0x71a…74b at0030 = EOL // 0x74a @0x30
0x71a…74b }
0x74b…77c 9650 00130 PRINT "EASY-SKAT…1985" ; TAB ( 65 ) ; "SERIE#…85.1.102"
0x74b…77c LineComal80 {
0x74b…77c ptr = 0x9650 // 0x74b @0x0
0x74b…77c lno = 0x0082 // 0x74d @0x2
0x74b…77c at0004 = ╱92╱ PRINT ╱ // 0x74f @0x4
0x74b…77c at0005 = ╱22╱"╱ // 0x750 @0x5
0x74b…77c at0006 = ╱45╱E╱ // 0x751 @0x6
0x74b…77c at0007 = ╱41╱A╱ // 0x752 @0x7
0x74b…77c at0008 = ╱53╱S╱ // 0x753 @0x8
0x74b…77c at0009 = ╱59╱Y╱ // 0x754 @0x9
0x74b…77c at000a = ╱2d╱-╱ // 0x755 @0xa
0x74b…77c at000b = ╱53╱S╱ // 0x756 @0xb
0x74b…77c at000c = ╱4b╱K╱ // 0x757 @0xc
0x74b…77c at000d = ╱41╱A╱ // 0x758 @0xd
0x74b…77c at000e = ╱54╱T╱ // 0x759 @0xe
0x74b…77c at000f = ╱20╱…╱ // 0x75a @0xf
0x74b…77c at0010 = ╱31╱1╱ // 0x75b @0x10
0x74b…77c at0011 = ╱39╱9╱ // 0x75c @0x11
0x74b…77c at0012 = ╱38╱8╱ // 0x75d @0x12
0x74b…77c at0013 = ╱35╱5╱ // 0x75e @0x13
0x74b…77c at0014 = ╱22╱"╱ // 0x75f @0x14
0x74b…77c at0015 = ╱ea╱ ; ╱ // 0x760 @0x15
0x74b…77c at0016 = ╱d2╱ TAB ╱ // 0x761 @0x16
0x74b…77c at0017 = ╱ed╱ ( ╱ // 0x762 @0x17
0x74b…77c at0018 = ╱36╱6╱ // 0x763 @0x18
0x74b…77c at0019 = ╱35╱5╱ // 0x764 @0x19
0x74b…77c at001a = ╱f24100╱ // 0x765 @0x1a
0x74b…77c at001d = ╱ee╱ ) ╱ // 0x768 @0x1d
0x74b…77c at001e = ╱ea╱ ; ╱ // 0x769 @0x1e
0x74b…77c at001f = ╱22╱"╱ // 0x76a @0x1f
0x74b…77c at0020 = ╱53╱S╱ // 0x76b @0x20
0x74b…77c at0021 = ╱45╱E╱ // 0x76c @0x21
0x74b…77c at0022 = ╱52╱R╱ // 0x76d @0x22
0x74b…77c at0023 = ╱49╱I╱ // 0x76e @0x23
0x74b…77c at0024 = ╱45╱E╱ // 0x76f @0x24
0x74b…77c at0025 = ╱23╱#╱ // 0x770 @0x25
0x74b…77c at0026 = ╱20╱…╱ // 0x771 @0x26
0x74b…77c at0027 = ╱38╱8╱ // 0x772 @0x27
0x74b…77c at0028 = ╱35╱5╱ // 0x773 @0x28
0x74b…77c at0029 = ╱2e╱.╱ // 0x774 @0x29
0x74b…77c at002a = ╱31╱1╱ // 0x775 @0x2a
0x74b…77c at002b = ╱2e╱.╱ // 0x776 @0x2b
0x74b…77c at002c = ╱31╱1╱ // 0x777 @0x2c
0x74b…77c at002d = ╱30╱0╱ // 0x778 @0x2d
0x74b…77c at002e = ╱32╱2╱ // 0x779 @0x2e
0x74b…77c at002f = ╱22╱"╱ // 0x77a @0x2f
0x74b…77c at0030 = EOL // 0x77b @0x30
0x74b…77c }
0x77c…782 (25,) 95ee 38382 ╱00╱ ╱00╱
0x77c…782 LineComal80 {
0x77c…782 ptr = 0x95ee // 0x77c @0x0
0x77c…782 lno = 0x95ee // 0x77e @0x2
0x77c…782 at0004 = ╱00╱ // 0x780 @0x4
0x77c…782 at0005 = ╱00╱ // 0x781 @0x5
0x77c…782 }