|
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: 1922 (0x782)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cd
Names: »SKAT.B«
└─⟦fe8d363bb⟧ Bits:30004640 EASY-Skat 1985 (MIKADOS)
└─⟦this⟧ »SKAT.B«
0100 DIM A$(23) OF 30,S$ OF 80
0110 LET PR := 0
0120 CLEAR
0130 PRINT "EASY-SKAT 1985" ; TAB(65) ; "SERIE# 86.1.101"
0140 PRINT "VERSION 6.1 JANUAR 1986"
0150 PRINT "COPYRIGHT (C) H.S.MØLLER 1986"
0160 PRINT
0170 PRINT "ALLE BELØB OG BEREGNINGER VEDRØRER INDKOMSTÅRET 1985."
0180 PRINT
0190 OPEN "DDE:SKATINDL",R
0200 REPEAT
0210 GET "DDE:SKATINDL" : S$
0220 IF ╱cd╱ ("DDE:SKATINDL") = 0 THEN PRINT S$
0230 UNTIL ╱cd╱ ("DDE:SKATINDL") = 19
0240 PRINT
0250 EXEC RETURN
0260 CLEAR
0270 PRINT "Indatering af beløb sker i en oversigt, der indeholder følgende"
0280 PRINT "indkomster og fradrag."
0290 PRINT
0300 PRINT
0310 OPEN "dde:skatart",R
0320 FOR X := 1 TO 3 DO
0330 GET "dde:skatart" : A$(X)
0340 LET A$(X) := A$(X,4 : 25)
0350 NEXT X
0360 FOR X := 1 TO 2 DO
0370 PRINT TAB(10) ; A$(X) ;
0380 IF < 12 THEN
0390 PRINT TAB(45) ; A$(X + 12)
0400 ELSE
0410 PRINT
0420 ENDIF
0430 NEXT X
0440 PRINT
0450 PRINT "Det er nu muligt at få forklaring til de enkelte indkomster og " ;
0460 PRINT "fradrag"
0470 PRINT "Ønskes der forklaringer? (j/n)" ;
0480 EXEC SVAR
0490 REPEAT
0500 IF $ = "j" THEN
0510 PRINT "Ønskes forklaringerne udskrevet på printer? (j/n)" ;
0520 EXEC SVAR
0530 IF $ = "j" THEN
0540 LET PR := 1
0550 ELSE
0560 LET PR := 0
0570 ENDIF
0580 CLEAR
0590 IF PR = 1 THEN OUTPUT "P"
0600 OPEN "dde:skatfork",R
0610 REPEAT
0620 GET "dde:skatfork" : S$
0630 IF (S$) < 6 THEN
0640 PRINT S$
0650 ELSE
0660 IF PR = 1 AND S$( ╱cb╱ (S$) - 5 : 6) >< "return" THEN PRINT S$
0670 IF PR = 1 AND S$( ╱cb╱ (S$) - 5 : 6) = "return" THEN PRINT
0680 IF PR = 0 AND S$( ╱cb╱ (S$) - 5 : 6) >< "return" THEN PRINT S$
0690 IF R = 0 AND S$( ╱cb╱ (S$) - 5 : 6) = "return" THEN
0700 PRINT
0710 EXEC RETURN
0720 IF PR = 0 THEN CLEAR
0730 ENDIF
0740 ENDIF
0750 UNTIL ╱cd╱ ("dde:skatfork") = 19
0760 CLOSE
0770 IF R = 0 THEN
0780 PRINT "Ønskes forklaringerne gentaget? (j/n)" ;
0790 EXEC SVAR
0800 ELSE
0810 OUTPUT "T"
0820 ENDIF
0830 ENDIF
0840 UNTIL PR = 1 OR S$ = "n"
0850 PRINT "*** VENT *** BEREGNINGSPROGRAMMET INDLÆSES ***"
0860 CHAIN "DDE:SKAT85"
0870 PROC SVAR
0880 REPEAT
0890 INPUT S$
0900 IF $ = "q" OR S$ = "Q" THEN
0910 PRINT "Programmet kan kun afsluttes fra hovedprogrammet." ; CHR$ (7)
0920 ENDIF
0930 IF S$ = "N" THEN LET S$ := "n"
0940 IF S$ = "J" THEN LET S$ := "j"
0950 UNTIL S$ = "j" OR S$ = "n"
0960 ENDPROC SVAR
0970 PROC RETURN
0980 LET S$ := "-"
0990 PRINT
1000 PRINT TAB(65) ;
1010 EDIT "TRYK -RETURN" : S$
1020 ENDPROC RETURN
0x000…01e (0,) 960c 0100 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 0110 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 0120 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 0130 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 0140 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 0150 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 0160 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 0170 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 0180 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 0190 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 0200 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 0210 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 0220 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 0230 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 0240 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 0250 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 0260 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 0270 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 0280 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 0290 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 0300 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 0310 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 0320 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 0330 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 0340 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 0350 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 0360 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 0370 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 0380 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 0390 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 0400 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 0410 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 0420 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 0430 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 0440 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 0450 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 0460 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 0470 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 0480 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 0490 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 0500 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 0510 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 0520 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 0530 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 0540 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 0550 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 0560 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 0570 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 0580 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 0590 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 0600 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 0610 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 0620 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 0630 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 0640 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 0650 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 0660 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 0670 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 0680 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 0690 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 0700 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 0710 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 0720 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 0730 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 0740 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 0750 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 0760 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 0770 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 0780 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 0790 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 0800 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 0810 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 0820 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 0830 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 0840 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 0850 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 0860 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 0870 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 0880 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 0890 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 0900 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 0910 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 0920 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 0930 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 0940 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 0950 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 0960 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 0970 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 0980 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 0990 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 1000 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 1010 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 1020 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…720 50 96 82 00 92 22 ┆P "┆
0x720…738 45 41 53 59 2d 53 4b 41 54 20 31 39 38 35 22 ea d2 ed 36 35 f2 41 00 ee ┆EASY-SKAT 1985" 65 A ┆
0x738…758 (24,) ea 22 53 45 52 49 45 23 20 38 35 2e 31 2e 31 30 31 22 ff 50 96 82 00 92 22 45 41 53 59 2d 53 4b ┆ "SERIE# 85.1.101" P "EASY-SK┆
0x758…778 41 54 20 31 39 38 35 22 ea d2 ed 36 35 f2 41 00 ee ea 22 53 45 52 49 45 23 20 38 35 2e 31 2e 31 ┆AT 1985" 65 A "SERIE# 85.1.1┆
0x778…77c 30 32 22 ff ┆02" ┆
0x77c…782 (25,) ee 95 ee 95 00 00 ┆ ┆