|
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: 1451 (0x5ab)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »START.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »START.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »START.B«
0100 DIM TEK$(25),SVAR1$(1),SVAR2$(1),A$(8),B$(17),N$(6),T(9),T1(9),T2(9) 0110 DIM DAT$(8),T3(9),C$(8),C1$(8) 0120 A$="P641220:";B$=A$+"SYSTEM1" 0140 REPEAT 0145 FEJL1=0 0150 OPEN B$,R 0160 IF STATUS(B$)<>0 THEN 0170 CLEAR 0180 CURSOR 11,11 0190 PRINT "Pladen ";A$(1:7);" er ikke monteret." 0200 CURSOR 11,13 0210 INPUT "Tast RETURN når dette er gjort.",TEK$ 0220 FEJL1=1 0250 ENDIF 0260 UNTIL FEJL1=0 0270 CLEAR 0280 CLOSE B$ 0290 EXEC FEJL(1,2,B$) 0300 B$=A$+"SYSTEM2" 0310 OPEN B$,W 0320 EXEC FEJL(1,3,B$) 0330 GET B$,2:T(1),T(2),T(3),T(4),T(5),T(6),T(7),T(8),T(9) 0340 EXEC FEJL(1,4,B$) 0350 CURSOR 21,11 0360 PRINT "Godmorgen. Håber at vi må få en god dag sammen." 0370 CURSOR 21,13 0380 PRINT "Indtast dato som ÅÅMMDD, hvor ÅÅ er året, MM er" 0390 REPEAT 0400 CURSOR 21,15 0410 INPUT "måneden og DD er dagen:",DAT$ 0420 P,TEST2=0 0430 FOR I=1 TO 6 0440 P1=INT(ORD(DAT$(I))-48) 0450 IF P1=>0 AND P1<=9 THEN 0460 P=P*10+P1 0470 ELSE 0480 TEST2=1 0490 ENDIF 0500 NEXT I 0510 IF TEST2=0 THEN I=(P DIV 100) MOD 100 0520 UNTIL TEST2=0 AND I<13 AND P MOD 100<32 AND P DIV 10000>78 0530 T(7)=P 0540 PUT B$,2:T(1),T(2),T(3),T(4),T(5),T(6),T(7),T(8),T(9) 0550 EXEC FEJL(1,8,B$) 0560 CLOSE B$ 0570 EXEC FEJL(1,10,B$) 0580 CHAIN "P641210:OPSTART" 0590 PROC FEJL(NR1,NR2,NR3) 0600 IF STATUS(NR3$)<>0 THEN 0610 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0620 STOP 0630 ENDIF 0640 ENDPROC
0x000…073 (0,) 8dca 0100 DIM TEK$(25),SVAR1$(1),SVAR2$(1),A$(8),B$(17),N$(6),T(9),T1(9),T2(9)
0x000…073 LineComalBin {
0x000…073 ptr = 0x8dca // 0x0 @0x0
0x000…073 lno = 0x0064 // 0x2 @0x2
0x000…073 at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x000…073 at0005 = ╱54╱T╱ // 0x5 @0x5
0x000…073 at0006 = ╱45╱E╱ // 0x6 @0x6
0x000…073 at0007 = ╱4b╱K╱ // 0x7 @0x7
0x000…073 at0008 = ╱ef╱$╱ // 0x8 @0x8
0x000…073 at0009 = ╱ed╱(╱ // 0x9 @0x9
0x000…073 at000a = ╱32╱2╱ // 0xa @0xa
0x000…073 at000b = ╱35╱5╱ // 0xb @0xb
0x000…073 at000c = ╱fe0000c805╱ // 0xc @0xc
0x000…073 at0011 = ╱ee╱)╱ // 0x11 @0x11
0x000…073 at0012 = ╱ec╱,╱ // 0x12 @0x12
0x000…073 at0013 = ╱53╱S╱ // 0x13 @0x13
0x000…073 at0014 = ╱56╱V╱ // 0x14 @0x14
0x000…073 at0015 = ╱41╱A╱ // 0x15 @0x15
0x000…073 at0016 = ╱52╱R╱ // 0x16 @0x16
0x000…073 at0017 = ╱31╱1╱ // 0x17 @0x17
0x000…073 at0018 = ╱ef╱$╱ // 0x18 @0x18
0x000…073 at0019 = ╱ed╱(╱ // 0x19 @0x19
0x000…073 at001a = ╱31╱1╱ // 0x1a @0x1a
0x000…073 at001b = ╱fe00008001╱ // 0x1b @0x1b
0x000…073 at0020 = ╱ee╱)╱ // 0x20 @0x20
0x000…073 at0021 = ╱ec╱,╱ // 0x21 @0x21
0x000…073 at0022 = ╱53╱S╱ // 0x22 @0x22
0x000…073 at0023 = ╱56╱V╱ // 0x23 @0x23
0x000…073 at0024 = ╱41╱A╱ // 0x24 @0x24
0x000…073 at0025 = ╱52╱R╱ // 0x25 @0x25
0x000…073 at0026 = ╱32╱2╱ // 0x26 @0x26
0x000…073 at0027 = ╱ef╱$╱ // 0x27 @0x27
0x000…073 at0028 = ╱ed╱(╱ // 0x28 @0x28
0x000…073 at0029 = ╱31╱1╱ // 0x29 @0x29
0x000…073 at002a = ╱fe00008001╱ // 0x2a @0x2a
0x000…073 at002f = ╱ee╱)╱ // 0x2f @0x2f
0x000…073 at0030 = ╱ec╱,╱ // 0x30 @0x30
0x000…073 at0031 = ╱41╱A╱ // 0x31 @0x31
0x000…073 at0032 = ╱ef╱$╱ // 0x32 @0x32
0x000…073 at0033 = ╱ed╱(╱ // 0x33 @0x33
0x000…073 at0034 = ╱38╱8╱ // 0x34 @0x34
0x000…073 at0035 = ╱fe00008004╱ // 0x35 @0x35
0x000…073 at003a = ╱ee╱)╱ // 0x3a @0x3a
0x000…073 at003b = ╱ec╱,╱ // 0x3b @0x3b
0x000…073 at003c = ╱42╱B╱ // 0x3c @0x3c
0x000…073 at003d = ╱ef╱$╱ // 0x3d @0x3d
0x000…073 at003e = ╱ed╱(╱ // 0x3e @0x3e
0x000…073 at003f = ╱31╱1╱ // 0x3f @0x3f
0x000…073 at0040 = ╱37╱7╱ // 0x40 @0x40
0x000…073 at0041 = ╱fe00008805╱ // 0x41 @0x41
0x000…073 at0046 = ╱ee╱)╱ // 0x46 @0x46
0x000…073 at0047 = ╱ec╱,╱ // 0x47 @0x47
0x000…073 at0048 = ╱4e╱N╱ // 0x48 @0x48
0x000…073 at0049 = ╱ef╱$╱ // 0x49 @0x49
0x000…073 at004a = ╱ed╱(╱ // 0x4a @0x4a
0x000…073 at004b = ╱36╱6╱ // 0x4b @0x4b
0x000…073 at004c = ╱fe0000c003╱ // 0x4c @0x4c
0x000…073 at0051 = ╱ee╱)╱ // 0x51 @0x51
0x000…073 at0052 = ╱ec╱,╱ // 0x52 @0x52
0x000…073 at0053 = ╱54╱T╱ // 0x53 @0x53
0x000…073 at0054 = ╱ed╱(╱ // 0x54 @0x54
0x000…073 at0055 = ╱39╱9╱ // 0x55 @0x55
0x000…073 at0056 = ╱fe00009004╱ // 0x56 @0x56
0x000…073 at005b = ╱ee╱)╱ // 0x5b @0x5b
0x000…073 at005c = ╱ec╱,╱ // 0x5c @0x5c
0x000…073 at005d = ╱54╱T╱ // 0x5d @0x5d
0x000…073 at005e = ╱31╱1╱ // 0x5e @0x5e
0x000…073 at005f = ╱ed╱(╱ // 0x5f @0x5f
0x000…073 at0060 = ╱39╱9╱ // 0x60 @0x60
0x000…073 at0061 = ╱fe00009004╱ // 0x61 @0x61
0x000…073 at0066 = ╱ee╱)╱ // 0x66 @0x66
0x000…073 at0067 = ╱ec╱,╱ // 0x67 @0x67
0x000…073 at0068 = ╱54╱T╱ // 0x68 @0x68
0x000…073 at0069 = ╱32╱2╱ // 0x69 @0x69
0x000…073 at006a = ╱ed╱(╱ // 0x6a @0x6a
0x000…073 at006b = ╱39╱9╱ // 0x6b @0x6b
0x000…073 at006c = ╱fe00009004╱ // 0x6c @0x6c
0x000…073 at0071 = ╱ee╱)╱ // 0x71 @0x71
0x000…073 at0072 = EOL // 0x72 @0x72
0x000…073 }
0x073…0a7 8dfe 0110 DIM DAT$(8),T3(9),C$(8),C1$(8)
0x073…0a7 LineComalBin {
0x073…0a7 ptr = 0x8dfe // 0x73 @0x0
0x073…0a7 lno = 0x006e // 0x75 @0x2
0x073…0a7 at0004 = ╱87╱ DIM ╱ // 0x77 @0x4
0x073…0a7 at0005 = ╱44╱D╱ // 0x78 @0x5
0x073…0a7 at0006 = ╱41╱A╱ // 0x79 @0x6
0x073…0a7 at0007 = ╱54╱T╱ // 0x7a @0x7
0x073…0a7 at0008 = ╱ef╱$╱ // 0x7b @0x8
0x073…0a7 at0009 = ╱ed╱(╱ // 0x7c @0x9
0x073…0a7 at000a = ╱38╱8╱ // 0x7d @0xa
0x073…0a7 at000b = ╱fe00008004╱ // 0x7e @0xb
0x073…0a7 at0010 = ╱ee╱)╱ // 0x83 @0x10
0x073…0a7 at0011 = ╱ec╱,╱ // 0x84 @0x11
0x073…0a7 at0012 = ╱54╱T╱ // 0x85 @0x12
0x073…0a7 at0013 = ╱33╱3╱ // 0x86 @0x13
0x073…0a7 at0014 = ╱ed╱(╱ // 0x87 @0x14
0x073…0a7 at0015 = ╱39╱9╱ // 0x88 @0x15
0x073…0a7 at0016 = ╱fe00009004╱ // 0x89 @0x16
0x073…0a7 at001b = ╱ee╱)╱ // 0x8e @0x1b
0x073…0a7 at001c = ╱ec╱,╱ // 0x8f @0x1c
0x073…0a7 at001d = ╱43╱C╱ // 0x90 @0x1d
0x073…0a7 at001e = ╱ef╱$╱ // 0x91 @0x1e
0x073…0a7 at001f = ╱ed╱(╱ // 0x92 @0x1f
0x073…0a7 at0020 = ╱38╱8╱ // 0x93 @0x20
0x073…0a7 at0021 = ╱fe00008004╱ // 0x94 @0x21
0x073…0a7 at0026 = ╱ee╱)╱ // 0x99 @0x26
0x073…0a7 at0027 = ╱ec╱,╱ // 0x9a @0x27
0x073…0a7 at0028 = ╱43╱C╱ // 0x9b @0x28
0x073…0a7 at0029 = ╱31╱1╱ // 0x9c @0x29
0x073…0a7 at002a = ╱ef╱$╱ // 0x9d @0x2a
0x073…0a7 at002b = ╱ed╱(╱ // 0x9e @0x2b
0x073…0a7 at002c = ╱38╱8╱ // 0x9f @0x2c
0x073…0a7 at002d = ╱fe00008004╱ // 0xa0 @0x2d
0x073…0a7 at0032 = ╱ee╱)╱ // 0xa5 @0x32
0x073…0a7 at0033 = EOL // 0xa6 @0x33
0x073…0a7 }
0x0a7…0c9 8e20 0120 A$="P641220:";B$=A$+"SYSTEM1"
0x0a7…0c9 LineComalBin {
0x0a7…0c9 ptr = 0x8e20 // 0xa7 @0x0
0x0a7…0c9 lno = 0x0078 // 0xa9 @0x2
0x0a7…0c9 at0004 = ╱41╱A╱ // 0xab @0x4
0x0a7…0c9 at0005 = ╱ef╱$╱ // 0xac @0x5
0x0a7…0c9 at0006 = ╱dc╱=╱ // 0xad @0x6
0x0a7…0c9 at0007 = ╱22╱"╱ // 0xae @0x7
0x0a7…0c9 at0008 = ╱50╱P╱ // 0xaf @0x8
0x0a7…0c9 at0009 = ╱36╱6╱ // 0xb0 @0x9
0x0a7…0c9 at000a = ╱34╱4╱ // 0xb1 @0xa
0x0a7…0c9 at000b = ╱31╱1╱ // 0xb2 @0xb
0x0a7…0c9 at000c = ╱32╱2╱ // 0xb3 @0xc
0x0a7…0c9 at000d = ╱32╱2╱ // 0xb4 @0xd
0x0a7…0c9 at000e = ╱30╱0╱ // 0xb5 @0xe
0x0a7…0c9 at000f = ╱3a╱:╱ // 0xb6 @0xf
0x0a7…0c9 at0010 = ╱22╱"╱ // 0xb7 @0x10
0x0a7…0c9 at0011 = ╱eb╱;╱ // 0xb8 @0x11
0x0a7…0c9 at0012 = ╱42╱B╱ // 0xb9 @0x12
0x0a7…0c9 at0013 = ╱ef╱$╱ // 0xba @0x13
0x0a7…0c9 at0014 = ╱dc╱=╱ // 0xbb @0x14
0x0a7…0c9 at0015 = ╱41╱A╱ // 0xbc @0x15
0x0a7…0c9 at0016 = ╱ef╱$╱ // 0xbd @0x16
0x0a7…0c9 at0017 = ╱f1╱+╱ // 0xbe @0x17
0x0a7…0c9 at0018 = ╱22╱"╱ // 0xbf @0x18
0x0a7…0c9 at0019 = ╱53╱S╱ // 0xc0 @0x19
0x0a7…0c9 at001a = ╱59╱Y╱ // 0xc1 @0x1a
0x0a7…0c9 at001b = ╱53╱S╱ // 0xc2 @0x1b
0x0a7…0c9 at001c = ╱54╱T╱ // 0xc3 @0x1c
0x0a7…0c9 at001d = ╱45╱E╱ // 0xc4 @0x1d
0x0a7…0c9 at001e = ╱4d╱M╱ // 0xc5 @0x1e
0x0a7…0c9 at001f = ╱31╱1╱ // 0xc6 @0x1f
0x0a7…0c9 at0020 = ╱22╱"╱ // 0xc7 @0x20
0x0a7…0c9 at0021 = EOL // 0xc8 @0x21
0x0a7…0c9 }
0x0c9…0cf 8e26 0140 REPEAT
0x0c9…0cf LineComalBin {
0x0c9…0cf ptr = 0x8e26 // 0xc9 @0x0
0x0c9…0cf lno = 0x008c // 0xcb @0x2
0x0c9…0cf at0004 = ╱97╱ REPEAT ╱ // 0xcd @0x4
0x0c9…0cf at0005 = EOL // 0xce @0x5
0x0c9…0cf }
0x0cf…0e0 8e37 0145 FEJL1=0
0x0cf…0e0 LineComalBin {
0x0cf…0e0 ptr = 0x8e37 // 0xcf @0x0
0x0cf…0e0 lno = 0x0091 // 0xd1 @0x2
0x0cf…0e0 at0004 = ╱46╱F╱ // 0xd3 @0x4
0x0cf…0e0 at0005 = ╱45╱E╱ // 0xd4 @0x5
0x0cf…0e0 at0006 = ╱4a╱J╱ // 0xd5 @0x6
0x0cf…0e0 at0007 = ╱4c╱L╱ // 0xd6 @0x7
0x0cf…0e0 at0008 = ╱31╱1╱ // 0xd7 @0x8
0x0cf…0e0 at0009 = ╱dc╱=╱ // 0xd8 @0x9
0x0cf…0e0 at000a = ╱30╱0╱ // 0xd9 @0xa
0x0cf…0e0 at000b = ╱fe00000000╱ // 0xda @0xb
0x0cf…0e0 at0010 = EOL // 0xdf @0x10
0x0cf…0e0 }
0x0e0…0ea 8e41 0150 OPEN B$,R
0x0e0…0ea LineComalBin {
0x0e0…0ea ptr = 0x8e41 // 0xe0 @0x0
0x0e0…0ea lno = 0x0096 // 0xe2 @0x2
0x0e0…0ea at0004 = ╱a7╱ OPEN ╱ // 0xe4 @0x4
0x0e0…0ea at0005 = ╱42╱B╱ // 0xe5 @0x5
0x0e0…0ea at0006 = ╱ef╱$╱ // 0xe6 @0x6
0x0e0…0ea at0007 = ╱ec╱,╱ // 0xe7 @0x7
0x0e0…0ea at0008 = ╱52╱R╱ // 0xe8 @0x8
0x0e0…0ea at0009 = EOL // 0xe9 @0x9
0x0e0…0ea }
0x0ea…0fd 8e54 0160 IF STATUS(B$)<>0 THEN
0x0ea…0fd LineComalBin {
0x0ea…0fd ptr = 0x8e54 // 0xea @0x0
0x0ea…0fd lno = 0x00a0 // 0xec @0x2
0x0ea…0fd at0004 = ╱9c╱ IF ╱ // 0xee @0x4
0x0ea…0fd at0005 = ╱ce╱STATUS╱ // 0xef @0x5
0x0ea…0fd at0006 = ╱ed╱(╱ // 0xf0 @0x6
0x0ea…0fd at0007 = ╱42╱B╱ // 0xf1 @0x7
0x0ea…0fd at0008 = ╱ef╱$╱ // 0xf2 @0x8
0x0ea…0fd at0009 = ╱ee╱)╱ // 0xf3 @0x9
0x0ea…0fd at000a = ╱e1╱<>╱ // 0xf4 @0xa
0x0ea…0fd at000b = ╱30╱0╱ // 0xf5 @0xb
0x0ea…0fd at000c = ╱fe00000000╱ // 0xf6 @0xc
0x0ea…0fd at0011 = ╱b6╱ THEN ╱ // 0xfb @0x11
0x0ea…0fd at0012 = EOL // 0xfc @0x12
0x0ea…0fd }
0x0fd…103 8e5a 0170 CLEAR
0x0fd…103 LineComalBin {
0x0fd…103 ptr = 0x8e5a // 0xfd @0x0
0x0fd…103 lno = 0x00aa // 0xff @0x2
0x0fd…103 at0004 = ╱a0╱ CLEAR ╱ // 0x101 @0x4
0x0fd…103 at0005 = EOL // 0x102 @0x5
0x0fd…103 }
0x103…118 8e6f 0180 CURSOR 11,11
0x103…118 LineComalBin {
0x103…118 ptr = 0x8e6f // 0x103 @0x0
0x103…118 lno = 0x00b4 // 0x105 @0x2
0x103…118 at0004 = ╱a1╱ CURSOR ╱ // 0x107 @0x4
0x103…118 at0005 = ╱31╱1╱ // 0x108 @0x5
0x103…118 at0006 = ╱31╱1╱ // 0x109 @0x6
0x103…118 at0007 = ╱fe0000b004╱ // 0x10a @0x7
0x103…118 at000c = ╱ec╱,╱ // 0x10f @0xc
0x103…118 at000d = ╱31╱1╱ // 0x110 @0xd
0x103…118 at000e = ╱31╱1╱ // 0x111 @0xe
0x103…118 at000f = ╱fe0000b004╱ // 0x112 @0xf
0x103…118 at0014 = EOL // 0x117 @0x14
0x103…118 }
0x118…14e 8ea5 0190 PRINT "Pladen ";A$(1:7);" er ikke monteret."
0x118…14e LineComalBin {
0x118…14e ptr = 0x8ea5 // 0x118 @0x0
0x118…14e lno = 0x00be // 0x11a @0x2
0x118…14e at0004 = ╱92╱ PRINT ╱ // 0x11c @0x4
0x118…14e at0005 = ╱22╱"╱ // 0x11d @0x5
0x118…14e at0006 = ╱50╱P╱ // 0x11e @0x6
0x118…14e at0007 = ╱6c╱l╱ // 0x11f @0x7
0x118…14e at0008 = ╱61╱a╱ // 0x120 @0x8
0x118…14e at0009 = ╱64╱d╱ // 0x121 @0x9
0x118…14e at000a = ╱65╱e╱ // 0x122 @0xa
0x118…14e at000b = ╱6e╱n╱ // 0x123 @0xb
0x118…14e at000c = ╱20╱…╱ // 0x124 @0xc
0x118…14e at000d = ╱22╱"╱ // 0x125 @0xd
0x118…14e at000e = ╱eb╱;╱ // 0x126 @0xe
0x118…14e at000f = ╱41╱A╱ // 0x127 @0xf
0x118…14e at0010 = ╱ef╱$╱ // 0x128 @0x10
0x118…14e at0011 = ╱ed╱(╱ // 0x129 @0x11
0x118…14e at0012 = ╱31╱1╱ // 0x12a @0x12
0x118…14e at0013 = ╱fe00008001╱ // 0x12b @0x13
0x118…14e at0018 = ╱f0╱:╱ // 0x130 @0x18
0x118…14e at0019 = ╱37╱7╱ // 0x131 @0x19
0x118…14e at001a = ╱fe0000e003╱ // 0x132 @0x1a
0x118…14e at001f = ╱ee╱)╱ // 0x137 @0x1f
0x118…14e at0020 = ╱eb╱;╱ // 0x138 @0x20
0x118…14e at0021 = ╱22╱"╱ // 0x139 @0x21
0x118…14e at0022 = ╱20╱…╱ // 0x13a @0x22
0x118…14e at0023 = ╱65╱e╱ // 0x13b @0x23
0x118…14e at0024 = ╱72╱r╱ // 0x13c @0x24
0x118…14e at0025 = ╱20╱…╱ // 0x13d @0x25
0x118…14e at0026 = ╱69╱i╱ // 0x13e @0x26
0x118…14e at0027 = ╱6b╱k╱ // 0x13f @0x27
0x118…14e at0028 = ╱6b╱k╱ // 0x140 @0x28
0x118…14e at0029 = ╱65╱e╱ // 0x141 @0x29
0x118…14e at002a = ╱20╱…╱ // 0x142 @0x2a
0x118…14e at002b = ╱6d╱m╱ // 0x143 @0x2b
0x118…14e at002c = ╱6f╱o╱ // 0x144 @0x2c
0x118…14e at002d = ╱6e╱n╱ // 0x145 @0x2d
0x118…14e at002e = ╱74╱t╱ // 0x146 @0x2e
0x118…14e at002f = ╱65╱e╱ // 0x147 @0x2f
0x118…14e at0030 = ╱72╱r╱ // 0x148 @0x30
0x118…14e at0031 = ╱65╱e╱ // 0x149 @0x31
0x118…14e at0032 = ╱74╱t╱ // 0x14a @0x32
0x118…14e at0033 = ╱2e╱.╱ // 0x14b @0x33
0x118…14e at0034 = ╱22╱"╱ // 0x14c @0x34
0x118…14e at0035 = EOL // 0x14d @0x35
0x118…14e }
0x14e…163 8eba 0200 CURSOR 11,13
0x14e…163 LineComalBin {
0x14e…163 ptr = 0x8eba // 0x14e @0x0
0x14e…163 lno = 0x00c8 // 0x150 @0x2
0x14e…163 at0004 = ╱a1╱ CURSOR ╱ // 0x152 @0x4
0x14e…163 at0005 = ╱31╱1╱ // 0x153 @0x5
0x14e…163 at0006 = ╱31╱1╱ // 0x154 @0x6
0x14e…163 at0007 = ╱fe0000b004╱ // 0x155 @0x7
0x14e…163 at000c = ╱ec╱,╱ // 0x15a @0xc
0x14e…163 at000d = ╱31╱1╱ // 0x15b @0xd
0x14e…163 at000e = ╱33╱3╱ // 0x15c @0xe
0x14e…163 at000f = ╱fe0000d004╱ // 0x15d @0xf
0x14e…163 at0014 = EOL // 0x162 @0x14
0x14e…163 }
0x163…18f 8ee6 0210 INPUT "Tast RETURN når dette er gjort.",TEK$
0x163…18f LineComalBin {
0x163…18f ptr = 0x8ee6 // 0x163 @0x0
0x163…18f lno = 0x00d2 // 0x165 @0x2
0x163…18f at0004 = ╱91╱ INPUT ╱ // 0x167 @0x4
0x163…18f at0005 = ╱22╱"╱ // 0x168 @0x5
0x163…18f at0006 = ╱54╱T╱ // 0x169 @0x6
0x163…18f at0007 = ╱61╱a╱ // 0x16a @0x7
0x163…18f at0008 = ╱73╱s╱ // 0x16b @0x8
0x163…18f at0009 = ╱74╱t╱ // 0x16c @0x9
0x163…18f at000a = ╱20╱…╱ // 0x16d @0xa
0x163…18f at000b = ╱52╱R╱ // 0x16e @0xb
0x163…18f at000c = ╱45╱E╱ // 0x16f @0xc
0x163…18f at000d = ╱54╱T╱ // 0x170 @0xd
0x163…18f at000e = ╱55╱U╱ // 0x171 @0xe
0x163…18f at000f = ╱52╱R╱ // 0x172 @0xf
0x163…18f at0010 = ╱4e╱N╱ // 0x173 @0x10
0x163…18f at0011 = ╱20╱…╱ // 0x174 @0x11
0x163…18f at0012 = ╱6e╱n╱ // 0x175 @0x12
0x163…18f at0013 = ╱7d╱å╱ // 0x176 @0x13
0x163…18f at0014 = ╱72╱r╱ // 0x177 @0x14
0x163…18f at0015 = ╱20╱…╱ // 0x178 @0x15
0x163…18f at0016 = ╱64╱d╱ // 0x179 @0x16
0x163…18f at0017 = ╱65╱e╱ // 0x17a @0x17
0x163…18f at0018 = ╱74╱t╱ // 0x17b @0x18
0x163…18f at0019 = ╱74╱t╱ // 0x17c @0x19
0x163…18f at001a = ╱65╱e╱ // 0x17d @0x1a
0x163…18f at001b = ╱20╱…╱ // 0x17e @0x1b
0x163…18f at001c = ╱65╱e╱ // 0x17f @0x1c
0x163…18f at001d = ╱72╱r╱ // 0x180 @0x1d
0x163…18f at001e = ╱20╱…╱ // 0x181 @0x1e
0x163…18f at001f = ╱67╱g╱ // 0x182 @0x1f
0x163…18f at0020 = ╱6a╱j╱ // 0x183 @0x20
0x163…18f at0021 = ╱6f╱o╱ // 0x184 @0x21
0x163…18f at0022 = ╱72╱r╱ // 0x185 @0x22
0x163…18f at0023 = ╱74╱t╱ // 0x186 @0x23
0x163…18f at0024 = ╱2e╱.╱ // 0x187 @0x24
0x163…18f at0025 = ╱22╱"╱ // 0x188 @0x25
0x163…18f at0026 = ╱ec╱,╱ // 0x189 @0x26
0x163…18f at0027 = ╱54╱T╱ // 0x18a @0x27
0x163…18f at0028 = ╱45╱E╱ // 0x18b @0x28
0x163…18f at0029 = ╱4b╱K╱ // 0x18c @0x29
0x163…18f at002a = ╱ef╱$╱ // 0x18d @0x2a
0x163…18f at002b = EOL // 0x18e @0x2b
0x163…18f }
0x18f…1a0 8ef7 0220 FEJL1=1
0x18f…1a0 LineComalBin {
0x18f…1a0 ptr = 0x8ef7 // 0x18f @0x0
0x18f…1a0 lno = 0x00dc // 0x191 @0x2
0x18f…1a0 at0004 = ╱46╱F╱ // 0x193 @0x4
0x18f…1a0 at0005 = ╱45╱E╱ // 0x194 @0x5
0x18f…1a0 at0006 = ╱4a╱J╱ // 0x195 @0x6
0x18f…1a0 at0007 = ╱4c╱L╱ // 0x196 @0x7
0x18f…1a0 at0008 = ╱31╱1╱ // 0x197 @0x8
0x18f…1a0 at0009 = ╱dc╱=╱ // 0x198 @0x9
0x18f…1a0 at000a = ╱31╱1╱ // 0x199 @0xa
0x18f…1a0 at000b = ╱fe00008001╱ // 0x19a @0xb
0x18f…1a0 at0010 = EOL // 0x19f @0x10
0x18f…1a0 }
0x1a0…1a6 8efd 0250 ENDIF
0x1a0…1a6 LineComalBin {
0x1a0…1a6 ptr = 0x8efd // 0x1a0 @0x0
0x1a0…1a6 lno = 0x00fa // 0x1a2 @0x2
0x1a0…1a6 at0004 = ╱9b╱ ENDIF ╱ // 0x1a4 @0x4
0x1a0…1a6 at0005 = EOL // 0x1a5 @0x5
0x1a0…1a6 }
0x1a6…1b8 8f0f 0260 UNTIL FEJL1=0
0x1a6…1b8 LineComalBin {
0x1a6…1b8 ptr = 0x8f0f // 0x1a6 @0x0
0x1a6…1b8 lno = 0x0104 // 0x1a8 @0x2
0x1a6…1b8 at0004 = ╱98╱ UNTIL ╱ // 0x1aa @0x4
0x1a6…1b8 at0005 = ╱46╱F╱ // 0x1ab @0x5
0x1a6…1b8 at0006 = ╱45╱E╱ // 0x1ac @0x6
0x1a6…1b8 at0007 = ╱4a╱J╱ // 0x1ad @0x7
0x1a6…1b8 at0008 = ╱4c╱L╱ // 0x1ae @0x8
0x1a6…1b8 at0009 = ╱31╱1╱ // 0x1af @0x9
0x1a6…1b8 at000a = ╱dc╱=╱ // 0x1b0 @0xa
0x1a6…1b8 at000b = ╱30╱0╱ // 0x1b1 @0xb
0x1a6…1b8 at000c = ╱fe00000000╱ // 0x1b2 @0xc
0x1a6…1b8 at0011 = EOL // 0x1b7 @0x11
0x1a6…1b8 }
0x1b8…1be 8f15 0270 CLEAR
0x1b8…1be LineComalBin {
0x1b8…1be ptr = 0x8f15 // 0x1b8 @0x0
0x1b8…1be lno = 0x010e // 0x1ba @0x2
0x1b8…1be at0004 = ╱a0╱ CLEAR ╱ // 0x1bc @0x4
0x1b8…1be at0005 = EOL // 0x1bd @0x5
0x1b8…1be }
0x1be…1c6 8f1d 0280 CLOSE B$
0x1be…1c6 LineComalBin {
0x1be…1c6 ptr = 0x8f1d // 0x1be @0x0
0x1be…1c6 lno = 0x0118 // 0x1c0 @0x2
0x1be…1c6 at0004 = ╱a8╱ CLOSE ╱ // 0x1c2 @0x4
0x1be…1c6 at0005 = ╱42╱B╱ // 0x1c3 @0x5
0x1be…1c6 at0006 = ╱ef╱$╱ // 0x1c4 @0x6
0x1be…1c6 at0007 = EOL // 0x1c5 @0x7
0x1be…1c6 }
0x1c6…1e2 8f39 0290 EXEC FEJL(1,2,B$)
0x1c6…1e2 LineComalBin {
0x1c6…1e2 ptr = 0x8f39 // 0x1c6 @0x0
0x1c6…1e2 lno = 0x0122 // 0x1c8 @0x2
0x1c6…1e2 at0004 = ╱9d╱ EXEC ╱ // 0x1ca @0x4
0x1c6…1e2 at0005 = ╱46╱F╱ // 0x1cb @0x5
0x1c6…1e2 at0006 = ╱45╱E╱ // 0x1cc @0x6
0x1c6…1e2 at0007 = ╱4a╱J╱ // 0x1cd @0x7
0x1c6…1e2 at0008 = ╱4c╱L╱ // 0x1ce @0x8
0x1c6…1e2 at0009 = ╱ed╱(╱ // 0x1cf @0x9
0x1c6…1e2 at000a = ╱31╱1╱ // 0x1d0 @0xa
0x1c6…1e2 at000b = ╱fe00008001╱ // 0x1d1 @0xb
0x1c6…1e2 at0010 = ╱ec╱,╱ // 0x1d6 @0x10
0x1c6…1e2 at0011 = ╱32╱2╱ // 0x1d7 @0x11
0x1c6…1e2 at0012 = ╱fe00008002╱ // 0x1d8 @0x12
0x1c6…1e2 at0017 = ╱ec╱,╱ // 0x1dd @0x17
0x1c6…1e2 at0018 = ╱42╱B╱ // 0x1de @0x18
0x1c6…1e2 at0019 = ╱ef╱$╱ // 0x1df @0x19
0x1c6…1e2 at001a = ╱ee╱)╱ // 0x1e0 @0x1a
0x1c6…1e2 at001b = EOL // 0x1e1 @0x1b
0x1c6…1e2 }
0x1e2…1f6 8f4d 0300 B$=A$+"SYSTEM2"
0x1e2…1f6 LineComalBin {
0x1e2…1f6 ptr = 0x8f4d // 0x1e2 @0x0
0x1e2…1f6 lno = 0x012c // 0x1e4 @0x2
0x1e2…1f6 at0004 = ╱42╱B╱ // 0x1e6 @0x4
0x1e2…1f6 at0005 = ╱ef╱$╱ // 0x1e7 @0x5
0x1e2…1f6 at0006 = ╱dc╱=╱ // 0x1e8 @0x6
0x1e2…1f6 at0007 = ╱41╱A╱ // 0x1e9 @0x7
0x1e2…1f6 at0008 = ╱ef╱$╱ // 0x1ea @0x8
0x1e2…1f6 at0009 = ╱f1╱+╱ // 0x1eb @0x9
0x1e2…1f6 at000a = ╱22╱"╱ // 0x1ec @0xa
0x1e2…1f6 at000b = ╱53╱S╱ // 0x1ed @0xb
0x1e2…1f6 at000c = ╱59╱Y╱ // 0x1ee @0xc
0x1e2…1f6 at000d = ╱53╱S╱ // 0x1ef @0xd
0x1e2…1f6 at000e = ╱54╱T╱ // 0x1f0 @0xe
0x1e2…1f6 at000f = ╱45╱E╱ // 0x1f1 @0xf
0x1e2…1f6 at0010 = ╱4d╱M╱ // 0x1f2 @0x10
0x1e2…1f6 at0011 = ╱32╱2╱ // 0x1f3 @0x11
0x1e2…1f6 at0012 = ╱22╱"╱ // 0x1f4 @0x12
0x1e2…1f6 at0013 = EOL // 0x1f5 @0x13
0x1e2…1f6 }
0x1f6…200 8f57 0310 OPEN B$,W
0x1f6…200 LineComalBin {
0x1f6…200 ptr = 0x8f57 // 0x1f6 @0x0
0x1f6…200 lno = 0x0136 // 0x1f8 @0x2
0x1f6…200 at0004 = ╱a7╱ OPEN ╱ // 0x1fa @0x4
0x1f6…200 at0005 = ╱42╱B╱ // 0x1fb @0x5
0x1f6…200 at0006 = ╱ef╱$╱ // 0x1fc @0x6
0x1f6…200 at0007 = ╱ec╱,╱ // 0x1fd @0x7
0x1f6…200 at0008 = ╱57╱W╱ // 0x1fe @0x8
0x1f6…200 at0009 = EOL // 0x1ff @0x9
0x1f6…200 }
0x200…21c 8f73 0320 EXEC FEJL(1,3,B$)
0x200…21c LineComalBin {
0x200…21c ptr = 0x8f73 // 0x200 @0x0
0x200…21c lno = 0x0140 // 0x202 @0x2
0x200…21c at0004 = ╱9d╱ EXEC ╱ // 0x204 @0x4
0x200…21c at0005 = ╱46╱F╱ // 0x205 @0x5
0x200…21c at0006 = ╱45╱E╱ // 0x206 @0x6
0x200…21c at0007 = ╱4a╱J╱ // 0x207 @0x7
0x200…21c at0008 = ╱4c╱L╱ // 0x208 @0x8
0x200…21c at0009 = ╱ed╱(╱ // 0x209 @0x9
0x200…21c at000a = ╱31╱1╱ // 0x20a @0xa
0x200…21c at000b = ╱fe00008001╱ // 0x20b @0xb
0x200…21c at0010 = ╱ec╱,╱ // 0x210 @0x10
0x200…21c at0011 = ╱33╱3╱ // 0x211 @0x11
0x200…21c at0012 = ╱fe0000c002╱ // 0x212 @0x12
0x200…21c at0017 = ╱ec╱,╱ // 0x217 @0x17
0x200…21c at0018 = ╱42╱B╱ // 0x218 @0x18
0x200…21c at0019 = ╱ef╱$╱ // 0x219 @0x19
0x200…21c at001a = ╱ee╱)╱ // 0x21a @0x1a
0x200…21c at001b = EOL // 0x21b @0x1b
0x200…21c }
0x21c…285 8fdc 0330 GET B$,2:T(1),T(2),T(3),T(4),T(5),T(6),T(7),T(8),T(9)
0x21c…285 LineComalBin {
0x21c…285 ptr = 0x8fdc // 0x21c @0x0
0x21c…285 lno = 0x014a // 0x21e @0x2
0x21c…285 at0004 = ╱a9╱ GET ╱ // 0x220 @0x4
0x21c…285 at0005 = ╱42╱B╱ // 0x221 @0x5
0x21c…285 at0006 = ╱ef╱$╱ // 0x222 @0x6
0x21c…285 at0007 = ╱ec╱,╱ // 0x223 @0x7
0x21c…285 at0008 = ╱32╱2╱ // 0x224 @0x8
0x21c…285 at0009 = ╱fe00008002╱ // 0x225 @0x9
0x21c…285 at000e = ╱f0╱:╱ // 0x22a @0xe
0x21c…285 at000f = ╱54╱T╱ // 0x22b @0xf
0x21c…285 at0010 = ╱ed╱(╱ // 0x22c @0x10
0x21c…285 at0011 = ╱31╱1╱ // 0x22d @0x11
0x21c…285 at0012 = ╱fe00008001╱ // 0x22e @0x12
0x21c…285 at0017 = ╱ee╱)╱ // 0x233 @0x17
0x21c…285 at0018 = ╱ec╱,╱ // 0x234 @0x18
0x21c…285 at0019 = ╱54╱T╱ // 0x235 @0x19
0x21c…285 at001a = ╱ed╱(╱ // 0x236 @0x1a
0x21c…285 at001b = ╱32╱2╱ // 0x237 @0x1b
0x21c…285 at001c = ╱fe00008002╱ // 0x238 @0x1c
0x21c…285 at0021 = ╱ee╱)╱ // 0x23d @0x21
0x21c…285 at0022 = ╱ec╱,╱ // 0x23e @0x22
0x21c…285 at0023 = ╱54╱T╱ // 0x23f @0x23
0x21c…285 at0024 = ╱ed╱(╱ // 0x240 @0x24
0x21c…285 at0025 = ╱33╱3╱ // 0x241 @0x25
0x21c…285 at0026 = ╱fe0000c002╱ // 0x242 @0x26
0x21c…285 at002b = ╱ee╱)╱ // 0x247 @0x2b
0x21c…285 at002c = ╱ec╱,╱ // 0x248 @0x2c
0x21c…285 at002d = ╱54╱T╱ // 0x249 @0x2d
0x21c…285 at002e = ╱ed╱(╱ // 0x24a @0x2e
0x21c…285 at002f = ╱34╱4╱ // 0x24b @0x2f
0x21c…285 at0030 = ╱fe00008003╱ // 0x24c @0x30
0x21c…285 at0035 = ╱ee╱)╱ // 0x251 @0x35
0x21c…285 at0036 = ╱ec╱,╱ // 0x252 @0x36
0x21c…285 at0037 = ╱54╱T╱ // 0x253 @0x37
0x21c…285 at0038 = ╱ed╱(╱ // 0x254 @0x38
0x21c…285 at0039 = ╱35╱5╱ // 0x255 @0x39
0x21c…285 at003a = ╱fe0000a003╱ // 0x256 @0x3a
0x21c…285 at003f = ╱ee╱)╱ // 0x25b @0x3f
0x21c…285 at0040 = ╱ec╱,╱ // 0x25c @0x40
0x21c…285 at0041 = ╱54╱T╱ // 0x25d @0x41
0x21c…285 at0042 = ╱ed╱(╱ // 0x25e @0x42
0x21c…285 at0043 = ╱36╱6╱ // 0x25f @0x43
0x21c…285 at0044 = ╱fe0000c003╱ // 0x260 @0x44
0x21c…285 at0049 = ╱ee╱)╱ // 0x265 @0x49
0x21c…285 at004a = ╱ec╱,╱ // 0x266 @0x4a
0x21c…285 at004b = ╱54╱T╱ // 0x267 @0x4b
0x21c…285 at004c = ╱ed╱(╱ // 0x268 @0x4c
0x21c…285 at004d = ╱37╱7╱ // 0x269 @0x4d
0x21c…285 at004e = ╱fe0000e003╱ // 0x26a @0x4e
0x21c…285 at0053 = ╱ee╱)╱ // 0x26f @0x53
0x21c…285 at0054 = ╱ec╱,╱ // 0x270 @0x54
0x21c…285 at0055 = ╱54╱T╱ // 0x271 @0x55
0x21c…285 at0056 = ╱ed╱(╱ // 0x272 @0x56
0x21c…285 at0057 = ╱38╱8╱ // 0x273 @0x57
0x21c…285 at0058 = ╱fe00008004╱ // 0x274 @0x58
0x21c…285 at005d = ╱ee╱)╱ // 0x279 @0x5d
0x21c…285 at005e = ╱ec╱,╱ // 0x27a @0x5e
0x21c…285 at005f = ╱54╱T╱ // 0x27b @0x5f
0x21c…285 at0060 = ╱ed╱(╱ // 0x27c @0x60
0x21c…285 at0061 = ╱39╱9╱ // 0x27d @0x61
0x21c…285 at0062 = ╱fe00009004╱ // 0x27e @0x62
0x21c…285 at0067 = ╱ee╱)╱ // 0x283 @0x67
0x21c…285 at0068 = EOL // 0x284 @0x68
0x21c…285 }
0x285…2a1 8ff8 0340 EXEC FEJL(1,4,B$)
0x285…2a1 LineComalBin {
0x285…2a1 ptr = 0x8ff8 // 0x285 @0x0
0x285…2a1 lno = 0x0154 // 0x287 @0x2
0x285…2a1 at0004 = ╱9d╱ EXEC ╱ // 0x289 @0x4
0x285…2a1 at0005 = ╱46╱F╱ // 0x28a @0x5
0x285…2a1 at0006 = ╱45╱E╱ // 0x28b @0x6
0x285…2a1 at0007 = ╱4a╱J╱ // 0x28c @0x7
0x285…2a1 at0008 = ╱4c╱L╱ // 0x28d @0x8
0x285…2a1 at0009 = ╱ed╱(╱ // 0x28e @0x9
0x285…2a1 at000a = ╱31╱1╱ // 0x28f @0xa
0x285…2a1 at000b = ╱fe00008001╱ // 0x290 @0xb
0x285…2a1 at0010 = ╱ec╱,╱ // 0x295 @0x10
0x285…2a1 at0011 = ╱34╱4╱ // 0x296 @0x11
0x285…2a1 at0012 = ╱fe00008003╱ // 0x297 @0x12
0x285…2a1 at0017 = ╱ec╱,╱ // 0x29c @0x17
0x285…2a1 at0018 = ╱42╱B╱ // 0x29d @0x18
0x285…2a1 at0019 = ╱ef╱$╱ // 0x29e @0x19
0x285…2a1 at001a = ╱ee╱)╱ // 0x29f @0x1a
0x285…2a1 at001b = EOL // 0x2a0 @0x1b
0x285…2a1 }
0x2a1…2b6 900d 0350 CURSOR 21,11
0x2a1…2b6 LineComalBin {
0x2a1…2b6 ptr = 0x900d // 0x2a1 @0x0
0x2a1…2b6 lno = 0x015e // 0x2a3 @0x2
0x2a1…2b6 at0004 = ╱a1╱ CURSOR ╱ // 0x2a5 @0x4
0x2a1…2b6 at0005 = ╱32╱2╱ // 0x2a6 @0x5
0x2a1…2b6 at0006 = ╱31╱1╱ // 0x2a7 @0x6
0x2a1…2b6 at0007 = ╱fe0000a805╱ // 0x2a8 @0x7
0x2a1…2b6 at000c = ╱ec╱,╱ // 0x2ad @0xc
0x2a1…2b6 at000d = ╱31╱1╱ // 0x2ae @0xd
0x2a1…2b6 at000e = ╱31╱1╱ // 0x2af @0xe
0x2a1…2b6 at000f = ╱fe0000b004╱ // 0x2b0 @0xf
0x2a1…2b6 at0014 = EOL // 0x2b5 @0x14
0x2a1…2b6 }
0x2b6…2ed 9044 0360 PRINT "Godmorgen. Håber at vi må få en god dag sammen."
0x2b6…2ed LineComalBin {
0x2b6…2ed ptr = 0x9044 // 0x2b6 @0x0
0x2b6…2ed lno = 0x0168 // 0x2b8 @0x2
0x2b6…2ed at0004 = ╱92╱ PRINT ╱ // 0x2ba @0x4
0x2b6…2ed at0005 = ╱22╱"╱ // 0x2bb @0x5
0x2b6…2ed at0006 = ╱47╱G╱ // 0x2bc @0x6
0x2b6…2ed at0007 = ╱6f╱o╱ // 0x2bd @0x7
0x2b6…2ed at0008 = ╱64╱d╱ // 0x2be @0x8
0x2b6…2ed at0009 = ╱6d╱m╱ // 0x2bf @0x9
0x2b6…2ed at000a = ╱6f╱o╱ // 0x2c0 @0xa
0x2b6…2ed at000b = ╱72╱r╱ // 0x2c1 @0xb
0x2b6…2ed at000c = ╱67╱g╱ // 0x2c2 @0xc
0x2b6…2ed at000d = ╱65╱e╱ // 0x2c3 @0xd
0x2b6…2ed at000e = ╱6e╱n╱ // 0x2c4 @0xe
0x2b6…2ed at000f = ╱2e╱.╱ // 0x2c5 @0xf
0x2b6…2ed at0010 = ╱20╱…╱ // 0x2c6 @0x10
0x2b6…2ed at0011 = ╱48╱H╱ // 0x2c7 @0x11
0x2b6…2ed at0012 = ╱7d╱å╱ // 0x2c8 @0x12
0x2b6…2ed at0013 = ╱62╱b╱ // 0x2c9 @0x13
0x2b6…2ed at0014 = ╱65╱e╱ // 0x2ca @0x14
0x2b6…2ed at0015 = ╱72╱r╱ // 0x2cb @0x15
0x2b6…2ed at0016 = ╱20╱…╱ // 0x2cc @0x16
0x2b6…2ed at0017 = ╱61╱a╱ // 0x2cd @0x17
0x2b6…2ed at0018 = ╱74╱t╱ // 0x2ce @0x18
0x2b6…2ed at0019 = ╱20╱…╱ // 0x2cf @0x19
0x2b6…2ed at001a = ╱76╱v╱ // 0x2d0 @0x1a
0x2b6…2ed at001b = ╱69╱i╱ // 0x2d1 @0x1b
0x2b6…2ed at001c = ╱20╱…╱ // 0x2d2 @0x1c
0x2b6…2ed at001d = ╱6d╱m╱ // 0x2d3 @0x1d
0x2b6…2ed at001e = ╱7d╱å╱ // 0x2d4 @0x1e
0x2b6…2ed at001f = ╱20╱…╱ // 0x2d5 @0x1f
0x2b6…2ed at0020 = ╱66╱f╱ // 0x2d6 @0x20
0x2b6…2ed at0021 = ╱7d╱å╱ // 0x2d7 @0x21
0x2b6…2ed at0022 = ╱20╱…╱ // 0x2d8 @0x22
0x2b6…2ed at0023 = ╱65╱e╱ // 0x2d9 @0x23
0x2b6…2ed at0024 = ╱6e╱n╱ // 0x2da @0x24
0x2b6…2ed at0025 = ╱20╱…╱ // 0x2db @0x25
0x2b6…2ed at0026 = ╱67╱g╱ // 0x2dc @0x26
0x2b6…2ed at0027 = ╱6f╱o╱ // 0x2dd @0x27
0x2b6…2ed at0028 = ╱64╱d╱ // 0x2de @0x28
0x2b6…2ed at0029 = ╱20╱…╱ // 0x2df @0x29
0x2b6…2ed at002a = ╱64╱d╱ // 0x2e0 @0x2a
0x2b6…2ed at002b = ╱61╱a╱ // 0x2e1 @0x2b
0x2b6…2ed at002c = ╱67╱g╱ // 0x2e2 @0x2c
0x2b6…2ed at002d = ╱20╱…╱ // 0x2e3 @0x2d
0x2b6…2ed at002e = ╱73╱s╱ // 0x2e4 @0x2e
0x2b6…2ed at002f = ╱61╱a╱ // 0x2e5 @0x2f
0x2b6…2ed at0030 = ╱6d╱m╱ // 0x2e6 @0x30
0x2b6…2ed at0031 = ╱6d╱m╱ // 0x2e7 @0x31
0x2b6…2ed at0032 = ╱65╱e╱ // 0x2e8 @0x32
0x2b6…2ed at0033 = ╱6e╱n╱ // 0x2e9 @0x33
0x2b6…2ed at0034 = ╱2e╱.╱ // 0x2ea @0x34
0x2b6…2ed at0035 = ╱22╱"╱ // 0x2eb @0x35
0x2b6…2ed at0036 = EOL // 0x2ec @0x36
0x2b6…2ed }
0x2ed…302 9059 0370 CURSOR 21,13
0x2ed…302 LineComalBin {
0x2ed…302 ptr = 0x9059 // 0x2ed @0x0
0x2ed…302 lno = 0x0172 // 0x2ef @0x2
0x2ed…302 at0004 = ╱a1╱ CURSOR ╱ // 0x2f1 @0x4
0x2ed…302 at0005 = ╱32╱2╱ // 0x2f2 @0x5
0x2ed…302 at0006 = ╱31╱1╱ // 0x2f3 @0x6
0x2ed…302 at0007 = ╱fe0000a805╱ // 0x2f4 @0x7
0x2ed…302 at000c = ╱ec╱,╱ // 0x2f9 @0xc
0x2ed…302 at000d = ╱31╱1╱ // 0x2fa @0xd
0x2ed…302 at000e = ╱33╱3╱ // 0x2fb @0xe
0x2ed…302 at000f = ╱fe0000d004╱ // 0x2fc @0xf
0x2ed…302 at0014 = EOL // 0x301 @0x14
0x2ed…302 }
0x302…339 (10,) 9090 0380 PRINT "Indtast dato som ÅÅMMDD, hvor ÅÅ er året, MM er"
0x302…339 LineComalBin {
0x302…339 ptr = 0x9090 // 0x302 @0x0
0x302…339 lno = 0x017c // 0x304 @0x2
0x302…339 at0004 = ╱92╱ PRINT ╱ // 0x306 @0x4
0x302…339 at0005 = ╱22╱"╱ // 0x307 @0x5
0x302…339 at0006 = ╱49╱I╱ // 0x308 @0x6
0x302…339 at0007 = ╱6e╱n╱ // 0x309 @0x7
0x302…339 at0008 = ╱64╱d╱ // 0x30a @0x8
0x302…339 at0009 = ╱74╱t╱ // 0x30b @0x9
0x302…339 at000a = ╱61╱a╱ // 0x30c @0xa
0x302…339 at000b = ╱73╱s╱ // 0x30d @0xb
0x302…339 at000c = ╱74╱t╱ // 0x30e @0xc
0x302…339 at000d = ╱20╱…╱ // 0x30f @0xd
0x302…339 at000e = ╱64╱d╱ // 0x310 @0xe
0x302…339 at000f = ╱61╱a╱ // 0x311 @0xf
0x302…339 at0010 = ╱74╱t╱ // 0x312 @0x10
0x302…339 at0011 = ╱6f╱o╱ // 0x313 @0x11
0x302…339 at0012 = ╱20╱…╱ // 0x314 @0x12
0x302…339 at0013 = ╱73╱s╱ // 0x315 @0x13
0x302…339 at0014 = ╱6f╱o╱ // 0x316 @0x14
0x302…339 at0015 = ╱6d╱m╱ // 0x317 @0x15
0x302…339 at0016 = ╱20╱…╱ // 0x318 @0x16
0x302…339 at0017 = ╱5d╱Å╱ // 0x319 @0x17
0x302…339 at0018 = ╱5d╱Å╱ // 0x31a @0x18
0x302…339 at0019 = ╱4d╱M╱ // 0x31b @0x19
0x302…339 at001a = ╱4d╱M╱ // 0x31c @0x1a
0x302…339 at001b = ╱44╱D╱ // 0x31d @0x1b
0x302…339 at001c = ╱44╱D╱ // 0x31e @0x1c
0x302…339 at001d = ╱2c╱,╱ // 0x31f @0x1d
0x302…339 at001e = ╱20╱…╱ // 0x320 @0x1e
0x302…339 at001f = ╱68╱h╱ // 0x321 @0x1f
0x302…339 at0020 = ╱76╱v╱ // 0x322 @0x20
0x302…339 at0021 = ╱6f╱o╱ // 0x323 @0x21
0x302…339 at0022 = ╱72╱r╱ // 0x324 @0x22
0x302…339 at0023 = ╱20╱…╱ // 0x325 @0x23
0x302…339 at0024 = ╱5d╱Å╱ // 0x326 @0x24
0x302…339 at0025 = ╱5d╱Å╱ // 0x327 @0x25
0x302…339 at0026 = ╱20╱…╱ // 0x328 @0x26
0x302…339 at0027 = ╱65╱e╱ // 0x329 @0x27
0x302…339 at0028 = ╱72╱r╱ // 0x32a @0x28
0x302…339 at0029 = ╱20╱…╱ // 0x32b @0x29
0x302…339 at002a = ╱7d╱å╱ // 0x32c @0x2a
0x302…339 at002b = ╱72╱r╱ // 0x32d @0x2b
0x302…339 at002c = ╱65╱e╱ // 0x32e @0x2c
0x302…339 at002d = ╱74╱t╱ // 0x32f @0x2d
0x302…339 at002e = ╱2c╱,╱ // 0x330 @0x2e
0x302…339 at002f = ╱20╱…╱ // 0x331 @0x2f
0x302…339 at0030 = ╱4d╱M╱ // 0x332 @0x30
0x302…339 at0031 = ╱4d╱M╱ // 0x333 @0x31
0x302…339 at0032 = ╱20╱…╱ // 0x334 @0x32
0x302…339 at0033 = ╱65╱e╱ // 0x335 @0x33
0x302…339 at0034 = ╱72╱r╱ // 0x336 @0x34
0x302…339 at0035 = ╱22╱"╱ // 0x337 @0x35
0x302…339 at0036 = EOL // 0x338 @0x36
0x302…339 }
0x339…33f 9096 0390 REPEAT
0x339…33f LineComalBin {
0x339…33f ptr = 0x9096 // 0x339 @0x0
0x339…33f lno = 0x0186 // 0x33b @0x2
0x339…33f at0004 = ╱97╱ REPEAT ╱ // 0x33d @0x4
0x339…33f at0005 = EOL // 0x33e @0x5
0x339…33f }
0x33f…354 90ab 0400 CURSOR 21,15
0x33f…354 LineComalBin {
0x33f…354 ptr = 0x90ab // 0x33f @0x0
0x33f…354 lno = 0x0190 // 0x341 @0x2
0x33f…354 at0004 = ╱a1╱ CURSOR ╱ // 0x343 @0x4
0x33f…354 at0005 = ╱32╱2╱ // 0x344 @0x5
0x33f…354 at0006 = ╱31╱1╱ // 0x345 @0x6
0x33f…354 at0007 = ╱fe0000a805╱ // 0x346 @0x7
0x33f…354 at000c = ╱ec╱,╱ // 0x34b @0xc
0x33f…354 at000d = ╱31╱1╱ // 0x34c @0xd
0x33f…354 at000e = ╱35╱5╱ // 0x34d @0xe
0x33f…354 at000f = ╱fe0000f004╱ // 0x34e @0xf
0x33f…354 at0014 = EOL // 0x353 @0x14
0x33f…354 }
0x354…378 90cf 0410 INPUT "måneden og DD er dagen:",DAT$
0x354…378 LineComalBin {
0x354…378 ptr = 0x90cf // 0x354 @0x0
0x354…378 lno = 0x019a // 0x356 @0x2
0x354…378 at0004 = ╱91╱ INPUT ╱ // 0x358 @0x4
0x354…378 at0005 = ╱22╱"╱ // 0x359 @0x5
0x354…378 at0006 = ╱6d╱m╱ // 0x35a @0x6
0x354…378 at0007 = ╱7d╱å╱ // 0x35b @0x7
0x354…378 at0008 = ╱6e╱n╱ // 0x35c @0x8
0x354…378 at0009 = ╱65╱e╱ // 0x35d @0x9
0x354…378 at000a = ╱64╱d╱ // 0x35e @0xa
0x354…378 at000b = ╱65╱e╱ // 0x35f @0xb
0x354…378 at000c = ╱6e╱n╱ // 0x360 @0xc
0x354…378 at000d = ╱20╱…╱ // 0x361 @0xd
0x354…378 at000e = ╱6f╱o╱ // 0x362 @0xe
0x354…378 at000f = ╱67╱g╱ // 0x363 @0xf
0x354…378 at0010 = ╱20╱…╱ // 0x364 @0x10
0x354…378 at0011 = ╱44╱D╱ // 0x365 @0x11
0x354…378 at0012 = ╱44╱D╱ // 0x366 @0x12
0x354…378 at0013 = ╱20╱…╱ // 0x367 @0x13
0x354…378 at0014 = ╱65╱e╱ // 0x368 @0x14
0x354…378 at0015 = ╱72╱r╱ // 0x369 @0x15
0x354…378 at0016 = ╱20╱…╱ // 0x36a @0x16
0x354…378 at0017 = ╱64╱d╱ // 0x36b @0x17
0x354…378 at0018 = ╱61╱a╱ // 0x36c @0x18
0x354…378 at0019 = ╱67╱g╱ // 0x36d @0x19
0x354…378 at001a = ╱65╱e╱ // 0x36e @0x1a
0x354…378 at001b = ╱6e╱n╱ // 0x36f @0x1b
0x354…378 at001c = ╱3a╱:╱ // 0x370 @0x1c
0x354…378 at001d = ╱22╱"╱ // 0x371 @0x1d
0x354…378 at001e = ╱ec╱,╱ // 0x372 @0x1e
0x354…378 at001f = ╱44╱D╱ // 0x373 @0x1f
0x354…378 at0020 = ╱41╱A╱ // 0x374 @0x20
0x354…378 at0021 = ╱54╱T╱ // 0x375 @0x21
0x354…378 at0022 = ╱ef╱$╱ // 0x376 @0x22
0x354…378 at0023 = EOL // 0x377 @0x23
0x354…378 }
0x378…38b 90e2 0420 P,TEST2=0
0x378…38b LineComalBin {
0x378…38b ptr = 0x90e2 // 0x378 @0x0
0x378…38b lno = 0x01a4 // 0x37a @0x2
0x378…38b at0004 = ╱50╱P╱ // 0x37c @0x4
0x378…38b at0005 = ╱ec╱,╱ // 0x37d @0x5
0x378…38b at0006 = ╱54╱T╱ // 0x37e @0x6
0x378…38b at0007 = ╱45╱E╱ // 0x37f @0x7
0x378…38b at0008 = ╱53╱S╱ // 0x380 @0x8
0x378…38b at0009 = ╱54╱T╱ // 0x381 @0x9
0x378…38b at000a = ╱32╱2╱ // 0x382 @0xa
0x378…38b at000b = ╱dc╱=╱ // 0x383 @0xb
0x378…38b at000c = ╱30╱0╱ // 0x384 @0xc
0x378…38b at000d = ╱fe00000000╱ // 0x385 @0xd
0x378…38b at0012 = EOL // 0x38a @0x12
0x378…38b }
0x38b…3a0 90f7 0430 FOR I=1 TO 6
0x38b…3a0 LineComalBin {
0x38b…3a0 ptr = 0x90f7 // 0x38b @0x0
0x38b…3a0 lno = 0x01ae // 0x38d @0x2
0x38b…3a0 at0004 = ╱83╱ FOR ╱ // 0x38f @0x4
0x38b…3a0 at0005 = ╱49╱I╱ // 0x390 @0x5
0x38b…3a0 at0006 = ╱dc╱=╱ // 0x391 @0x6
0x38b…3a0 at0007 = ╱31╱1╱ // 0x392 @0x7
0x38b…3a0 at0008 = ╱fe00008001╱ // 0x393 @0x8
0x38b…3a0 at000d = ╱b7╱ TO ╱ // 0x398 @0xd
0x38b…3a0 at000e = ╱36╱6╱ // 0x399 @0xe
0x38b…3a0 at000f = ╱fe0000c003╱ // 0x39a @0xf
0x38b…3a0 at0014 = EOL // 0x39f @0x14
0x38b…3a0 }
0x3a0…3bd 9114 0440 P1=INT(ORD(DAT$(I))-48)
0x3a0…3bd LineComalBin {
0x3a0…3bd ptr = 0x9114 // 0x3a0 @0x0
0x3a0…3bd lno = 0x01b8 // 0x3a2 @0x2
0x3a0…3bd at0004 = ╱50╱P╱ // 0x3a4 @0x4
0x3a0…3bd at0005 = ╱31╱1╱ // 0x3a5 @0x5
0x3a0…3bd at0006 = ╱dc╱=╱ // 0x3a6 @0x6
0x3a0…3bd at0007 = ╱c6╱INT╱ // 0x3a7 @0x7
0x3a0…3bd at0008 = ╱ed╱(╱ // 0x3a8 @0x8
0x3a0…3bd at0009 = ╱cd╱ORD╱ // 0x3a9 @0x9
0x3a0…3bd at000a = ╱ed╱(╱ // 0x3aa @0xa
0x3a0…3bd at000b = ╱44╱D╱ // 0x3ab @0xb
0x3a0…3bd at000c = ╱41╱A╱ // 0x3ac @0xc
0x3a0…3bd at000d = ╱54╱T╱ // 0x3ad @0xd
0x3a0…3bd at000e = ╱ef╱$╱ // 0x3ae @0xe
0x3a0…3bd at000f = ╱ed╱(╱ // 0x3af @0xf
0x3a0…3bd at0010 = ╱49╱I╱ // 0x3b0 @0x10
0x3a0…3bd at0011 = ╱ee╱)╱ // 0x3b1 @0x11
0x3a0…3bd at0012 = ╱ee╱)╱ // 0x3b2 @0x12
0x3a0…3bd at0013 = ╱e3╱-╱ // 0x3b3 @0x13
0x3a0…3bd at0014 = ╱34╱4╱ // 0x3b4 @0x14
0x3a0…3bd at0015 = ╱38╱8╱ // 0x3b5 @0x15
0x3a0…3bd at0016 = ╱fe0000c006╱ // 0x3b6 @0x16
0x3a0…3bd at001b = ╱ee╱)╱ // 0x3bb @0x1b
0x3a0…3bd at001c = EOL // 0x3bc @0x1c
0x3a0…3bd }
0x3bd…3d7 912e 0450 IF P1=>0 AND P1<=9 THEN
0x3bd…3d7 LineComalBin {
0x3bd…3d7 ptr = 0x912e // 0x3bd @0x0
0x3bd…3d7 lno = 0x01c2 // 0x3bf @0x2
0x3bd…3d7 at0004 = ╱9c╱ IF ╱ // 0x3c1 @0x4
0x3bd…3d7 at0005 = ╱50╱P╱ // 0x3c2 @0x5
0x3bd…3d7 at0006 = ╱31╱1╱ // 0x3c3 @0x6
0x3bd…3d7 at0007 = ╱e0╱=>╱ // 0x3c4 @0x7
0x3bd…3d7 at0008 = ╱30╱0╱ // 0x3c5 @0x8
0x3bd…3d7 at0009 = ╱fe00000000╱ // 0x3c6 @0x9
0x3bd…3d7 at000e = ╱da╱ AND ╱ // 0x3cb @0xe
0x3bd…3d7 at000f = ╱50╱P╱ // 0x3cc @0xf
0x3bd…3d7 at0010 = ╱31╱1╱ // 0x3cd @0x10
0x3bd…3d7 at0011 = ╱df╱<=╱ // 0x3ce @0x11
0x3bd…3d7 at0012 = ╱39╱9╱ // 0x3cf @0x12
0x3bd…3d7 at0013 = ╱fe00009004╱ // 0x3d0 @0x13
0x3bd…3d7 at0018 = ╱b6╱ THEN ╱ // 0x3d5 @0x18
0x3bd…3d7 at0019 = EOL // 0x3d6 @0x19
0x3bd…3d7 }
0x3d7…3ea 9141 0460 P=P*10+P1
0x3d7…3ea LineComalBin {
0x3d7…3ea ptr = 0x9141 // 0x3d7 @0x0
0x3d7…3ea lno = 0x01cc // 0x3d9 @0x2
0x3d7…3ea at0004 = ╱50╱P╱ // 0x3db @0x4
0x3d7…3ea at0005 = ╱dc╱=╱ // 0x3dc @0x5
0x3d7…3ea at0006 = ╱50╱P╱ // 0x3dd @0x6
0x3d7…3ea at0007 = ╱e4╱*╱ // 0x3de @0x7
0x3d7…3ea at0008 = ╱31╱1╱ // 0x3df @0x8
0x3d7…3ea at0009 = ╱30╱0╱ // 0x3e0 @0x9
0x3d7…3ea at000a = ╱fe0000a004╱ // 0x3e1 @0xa
0x3d7…3ea at000f = ╱e2╱+╱ // 0x3e6 @0xf
0x3d7…3ea at0010 = ╱50╱P╱ // 0x3e7 @0x10
0x3d7…3ea at0011 = ╱31╱1╱ // 0x3e8 @0x11
0x3d7…3ea at0012 = EOL // 0x3e9 @0x12
0x3d7…3ea }
0x3ea…3f0 9147 0470 ELSE
0x3ea…3f0 LineComalBin {
0x3ea…3f0 ptr = 0x9147 // 0x3ea @0x0
0x3ea…3f0 lno = 0x01d6 // 0x3ec @0x2
0x3ea…3f0 at0004 = ╱9a╱ ELSE ╱ // 0x3ee @0x4
0x3ea…3f0 at0005 = EOL // 0x3ef @0x5
0x3ea…3f0 }
0x3f0…401 9158 0480 TEST2=1
0x3f0…401 LineComalBin {
0x3f0…401 ptr = 0x9158 // 0x3f0 @0x0
0x3f0…401 lno = 0x01e0 // 0x3f2 @0x2
0x3f0…401 at0004 = ╱54╱T╱ // 0x3f4 @0x4
0x3f0…401 at0005 = ╱45╱E╱ // 0x3f5 @0x5
0x3f0…401 at0006 = ╱53╱S╱ // 0x3f6 @0x6
0x3f0…401 at0007 = ╱54╱T╱ // 0x3f7 @0x7
0x3f0…401 at0008 = ╱32╱2╱ // 0x3f8 @0x8
0x3f0…401 at0009 = ╱dc╱=╱ // 0x3f9 @0x9
0x3f0…401 at000a = ╱31╱1╱ // 0x3fa @0xa
0x3f0…401 at000b = ╱fe00008001╱ // 0x3fb @0xb
0x3f0…401 at0010 = EOL // 0x400 @0x10
0x3f0…401 }
0x401…407 915e 0490 ENDIF
0x401…407 LineComalBin {
0x401…407 ptr = 0x915e // 0x401 @0x0
0x401…407 lno = 0x01ea // 0x403 @0x2
0x401…407 at0004 = ╱9b╱ ENDIF ╱ // 0x405 @0x4
0x401…407 at0005 = EOL // 0x406 @0x5
0x401…407 }
0x407…40e 9165 0500 NEXT I
0x407…40e LineComalBin {
0x407…40e ptr = 0x9165 // 0x407 @0x0
0x407…40e lno = 0x01f4 // 0x409 @0x2
0x407…40e at0004 = ╱84╱ NEXT ╱ // 0x40b @0x4
0x407…40e at0005 = ╱49╱I╱ // 0x40c @0x5
0x407…40e at0006 = EOL // 0x40d @0x6
0x407…40e }
0x40e…438 918f 0510 IF TEST2=0 THEN I=(P DIV 100) MOD 100
0x40e…438 LineComalBin {
0x40e…438 ptr = 0x918f // 0x40e @0x0
0x40e…438 lno = 0x01fe // 0x410 @0x2
0x40e…438 at0004 = ╱82╱ IF ╱ // 0x412 @0x4
0x40e…438 at0005 = ╱54╱T╱ // 0x413 @0x5
0x40e…438 at0006 = ╱45╱E╱ // 0x414 @0x6
0x40e…438 at0007 = ╱53╱S╱ // 0x415 @0x7
0x40e…438 at0008 = ╱54╱T╱ // 0x416 @0x8
0x40e…438 at0009 = ╱32╱2╱ // 0x417 @0x9
0x40e…438 at000a = ╱dc╱=╱ // 0x418 @0xa
0x40e…438 at000b = ╱30╱0╱ // 0x419 @0xb
0x40e…438 at000c = ╱fe00000000╱ // 0x41a @0xc
0x40e…438 at0011 = ╱b6╱ THEN ╱ // 0x41f @0x11
0x40e…438 at0012 = ╱49╱I╱ // 0x420 @0x12
0x40e…438 at0013 = ╱dc╱=╱ // 0x421 @0x13
0x40e…438 at0014 = ╱ed╱(╱ // 0x422 @0x14
0x40e…438 at0015 = ╱50╱P╱ // 0x423 @0x15
0x40e…438 at0016 = ╱e7╱ DIV ╱ // 0x424 @0x16
0x40e…438 at0017 = ╱31╱1╱ // 0x425 @0x17
0x40e…438 at0018 = ╱30╱0╱ // 0x426 @0x18
0x40e…438 at0019 = ╱30╱0╱ // 0x427 @0x19
0x40e…438 at001a = ╱fe0000c807╱ // 0x428 @0x1a
0x40e…438 at001f = ╱ee╱)╱ // 0x42d @0x1f
0x40e…438 at0020 = ╱e8╱ MOD ╱ // 0x42e @0x20
0x40e…438 at0021 = ╱31╱1╱ // 0x42f @0x21
0x40e…438 at0022 = ╱30╱0╱ // 0x430 @0x22
0x40e…438 at0023 = ╱30╱0╱ // 0x431 @0x23
0x40e…438 at0024 = ╱fe0000c807╱ // 0x432 @0x24
0x40e…438 at0029 = EOL // 0x437 @0x29
0x40e…438 }
0x438…47c 91d3 0520 UNTIL TEST2=0 AND I<13 AND P MOD 100<32 AND P DIV 10000>78
0x438…47c LineComalBin {
0x438…47c ptr = 0x91d3 // 0x438 @0x0
0x438…47c lno = 0x0208 // 0x43a @0x2
0x438…47c at0004 = ╱98╱ UNTIL ╱ // 0x43c @0x4
0x438…47c at0005 = ╱54╱T╱ // 0x43d @0x5
0x438…47c at0006 = ╱45╱E╱ // 0x43e @0x6
0x438…47c at0007 = ╱53╱S╱ // 0x43f @0x7
0x438…47c at0008 = ╱54╱T╱ // 0x440 @0x8
0x438…47c at0009 = ╱32╱2╱ // 0x441 @0x9
0x438…47c at000a = ╱dc╱=╱ // 0x442 @0xa
0x438…47c at000b = ╱30╱0╱ // 0x443 @0xb
0x438…47c at000c = ╱fe00000000╱ // 0x444 @0xc
0x438…47c at0011 = ╱da╱ AND ╱ // 0x449 @0x11
0x438…47c at0012 = ╱49╱I╱ // 0x44a @0x12
0x438…47c at0013 = ╱dd╱<╱ // 0x44b @0x13
0x438…47c at0014 = ╱31╱1╱ // 0x44c @0x14
0x438…47c at0015 = ╱33╱3╱ // 0x44d @0x15
0x438…47c at0016 = ╱fe0000d004╱ // 0x44e @0x16
0x438…47c at001b = ╱da╱ AND ╱ // 0x453 @0x1b
0x438…47c at001c = ╱50╱P╱ // 0x454 @0x1c
0x438…47c at001d = ╱e8╱ MOD ╱ // 0x455 @0x1d
0x438…47c at001e = ╱31╱1╱ // 0x456 @0x1e
0x438…47c at001f = ╱30╱0╱ // 0x457 @0x1f
0x438…47c at0020 = ╱30╱0╱ // 0x458 @0x20
0x438…47c at0021 = ╱fe0000c807╱ // 0x459 @0x21
0x438…47c at0026 = ╱dd╱<╱ // 0x45e @0x26
0x438…47c at0027 = ╱33╱3╱ // 0x45f @0x27
0x438…47c at0028 = ╱32╱2╱ // 0x460 @0x28
0x438…47c at0029 = ╱fe00008006╱ // 0x461 @0x29
0x438…47c at002e = ╱da╱ AND ╱ // 0x466 @0x2e
0x438…47c at002f = ╱50╱P╱ // 0x467 @0x2f
0x438…47c at0030 = ╱e7╱ DIV ╱ // 0x468 @0x30
0x438…47c at0031 = ╱31╱1╱ // 0x469 @0x31
0x438…47c at0032 = ╱30╱0╱ // 0x46a @0x32
0x438…47c at0033 = ╱30╱0╱ // 0x46b @0x33
0x438…47c at0034 = ╱30╱0╱ // 0x46c @0x34
0x438…47c at0035 = ╱30╱0╱ // 0x46d @0x35
0x438…47c at0036 = ╱fe00409c0e╱ // 0x46e @0x36
0x438…47c at003b = ╱de╱>╱ // 0x473 @0x3b
0x438…47c at003c = ╱37╱7╱ // 0x474 @0x3c
0x438…47c at003d = ╱38╱8╱ // 0x475 @0x3d
0x438…47c at003e = ╱fe00009c07╱ // 0x476 @0x3e
0x438…47c at0043 = EOL // 0x47b @0x43
0x438…47c }
0x47c…48c 91e3 0530 T(7)=P
0x47c…48c LineComalBin {
0x47c…48c ptr = 0x91e3 // 0x47c @0x0
0x47c…48c lno = 0x0212 // 0x47e @0x2
0x47c…48c at0004 = ╱54╱T╱ // 0x480 @0x4
0x47c…48c at0005 = ╱ed╱(╱ // 0x481 @0x5
0x47c…48c at0006 = ╱37╱7╱ // 0x482 @0x6
0x47c…48c at0007 = ╱fe0000e003╱ // 0x483 @0x7
0x47c…48c at000c = ╱ee╱)╱ // 0x488 @0xc
0x47c…48c at000d = ╱dc╱=╱ // 0x489 @0xd
0x47c…48c at000e = ╱50╱P╱ // 0x48a @0xe
0x47c…48c at000f = EOL // 0x48b @0xf
0x47c…48c }
0x48c…4f5 924c 0540 PUT B$,2:T(1),T(2),T(3),T(4),T(5),T(6),T(7),T(8),T(9)
0x48c…4f5 LineComalBin {
0x48c…4f5 ptr = 0x924c // 0x48c @0x0
0x48c…4f5 lno = 0x021c // 0x48e @0x2
0x48c…4f5 at0004 = ╱aa╱ PUT ╱ // 0x490 @0x4
0x48c…4f5 at0005 = ╱42╱B╱ // 0x491 @0x5
0x48c…4f5 at0006 = ╱ef╱$╱ // 0x492 @0x6
0x48c…4f5 at0007 = ╱ec╱,╱ // 0x493 @0x7
0x48c…4f5 at0008 = ╱32╱2╱ // 0x494 @0x8
0x48c…4f5 at0009 = ╱fe00008002╱ // 0x495 @0x9
0x48c…4f5 at000e = ╱f0╱:╱ // 0x49a @0xe
0x48c…4f5 at000f = ╱54╱T╱ // 0x49b @0xf
0x48c…4f5 at0010 = ╱ed╱(╱ // 0x49c @0x10
0x48c…4f5 at0011 = ╱31╱1╱ // 0x49d @0x11
0x48c…4f5 at0012 = ╱fe00008001╱ // 0x49e @0x12
0x48c…4f5 at0017 = ╱ee╱)╱ // 0x4a3 @0x17
0x48c…4f5 at0018 = ╱ec╱,╱ // 0x4a4 @0x18
0x48c…4f5 at0019 = ╱54╱T╱ // 0x4a5 @0x19
0x48c…4f5 at001a = ╱ed╱(╱ // 0x4a6 @0x1a
0x48c…4f5 at001b = ╱32╱2╱ // 0x4a7 @0x1b
0x48c…4f5 at001c = ╱fe00008002╱ // 0x4a8 @0x1c
0x48c…4f5 at0021 = ╱ee╱)╱ // 0x4ad @0x21
0x48c…4f5 at0022 = ╱ec╱,╱ // 0x4ae @0x22
0x48c…4f5 at0023 = ╱54╱T╱ // 0x4af @0x23
0x48c…4f5 at0024 = ╱ed╱(╱ // 0x4b0 @0x24
0x48c…4f5 at0025 = ╱33╱3╱ // 0x4b1 @0x25
0x48c…4f5 at0026 = ╱fe0000c002╱ // 0x4b2 @0x26
0x48c…4f5 at002b = ╱ee╱)╱ // 0x4b7 @0x2b
0x48c…4f5 at002c = ╱ec╱,╱ // 0x4b8 @0x2c
0x48c…4f5 at002d = ╱54╱T╱ // 0x4b9 @0x2d
0x48c…4f5 at002e = ╱ed╱(╱ // 0x4ba @0x2e
0x48c…4f5 at002f = ╱34╱4╱ // 0x4bb @0x2f
0x48c…4f5 at0030 = ╱fe00008003╱ // 0x4bc @0x30
0x48c…4f5 at0035 = ╱ee╱)╱ // 0x4c1 @0x35
0x48c…4f5 at0036 = ╱ec╱,╱ // 0x4c2 @0x36
0x48c…4f5 at0037 = ╱54╱T╱ // 0x4c3 @0x37
0x48c…4f5 at0038 = ╱ed╱(╱ // 0x4c4 @0x38
0x48c…4f5 at0039 = ╱35╱5╱ // 0x4c5 @0x39
0x48c…4f5 at003a = ╱fe0000a003╱ // 0x4c6 @0x3a
0x48c…4f5 at003f = ╱ee╱)╱ // 0x4cb @0x3f
0x48c…4f5 at0040 = ╱ec╱,╱ // 0x4cc @0x40
0x48c…4f5 at0041 = ╱54╱T╱ // 0x4cd @0x41
0x48c…4f5 at0042 = ╱ed╱(╱ // 0x4ce @0x42
0x48c…4f5 at0043 = ╱36╱6╱ // 0x4cf @0x43
0x48c…4f5 at0044 = ╱fe0000c003╱ // 0x4d0 @0x44
0x48c…4f5 at0049 = ╱ee╱)╱ // 0x4d5 @0x49
0x48c…4f5 at004a = ╱ec╱,╱ // 0x4d6 @0x4a
0x48c…4f5 at004b = ╱54╱T╱ // 0x4d7 @0x4b
0x48c…4f5 at004c = ╱ed╱(╱ // 0x4d8 @0x4c
0x48c…4f5 at004d = ╱37╱7╱ // 0x4d9 @0x4d
0x48c…4f5 at004e = ╱fe0000e003╱ // 0x4da @0x4e
0x48c…4f5 at0053 = ╱ee╱)╱ // 0x4df @0x53
0x48c…4f5 at0054 = ╱ec╱,╱ // 0x4e0 @0x54
0x48c…4f5 at0055 = ╱54╱T╱ // 0x4e1 @0x55
0x48c…4f5 at0056 = ╱ed╱(╱ // 0x4e2 @0x56
0x48c…4f5 at0057 = ╱38╱8╱ // 0x4e3 @0x57
0x48c…4f5 at0058 = ╱fe00008004╱ // 0x4e4 @0x58
0x48c…4f5 at005d = ╱ee╱)╱ // 0x4e9 @0x5d
0x48c…4f5 at005e = ╱ec╱,╱ // 0x4ea @0x5e
0x48c…4f5 at005f = ╱54╱T╱ // 0x4eb @0x5f
0x48c…4f5 at0060 = ╱ed╱(╱ // 0x4ec @0x60
0x48c…4f5 at0061 = ╱39╱9╱ // 0x4ed @0x61
0x48c…4f5 at0062 = ╱fe00009004╱ // 0x4ee @0x62
0x48c…4f5 at0067 = ╱ee╱)╱ // 0x4f3 @0x67
0x48c…4f5 at0068 = EOL // 0x4f4 @0x68
0x48c…4f5 }
0x4f5…511 9268 0550 EXEC FEJL(1,8,B$)
0x4f5…511 LineComalBin {
0x4f5…511 ptr = 0x9268 // 0x4f5 @0x0
0x4f5…511 lno = 0x0226 // 0x4f7 @0x2
0x4f5…511 at0004 = ╱9d╱ EXEC ╱ // 0x4f9 @0x4
0x4f5…511 at0005 = ╱46╱F╱ // 0x4fa @0x5
0x4f5…511 at0006 = ╱45╱E╱ // 0x4fb @0x6
0x4f5…511 at0007 = ╱4a╱J╱ // 0x4fc @0x7
0x4f5…511 at0008 = ╱4c╱L╱ // 0x4fd @0x8
0x4f5…511 at0009 = ╱ed╱(╱ // 0x4fe @0x9
0x4f5…511 at000a = ╱31╱1╱ // 0x4ff @0xa
0x4f5…511 at000b = ╱fe00008001╱ // 0x500 @0xb
0x4f5…511 at0010 = ╱ec╱,╱ // 0x505 @0x10
0x4f5…511 at0011 = ╱38╱8╱ // 0x506 @0x11
0x4f5…511 at0012 = ╱fe00008004╱ // 0x507 @0x12
0x4f5…511 at0017 = ╱ec╱,╱ // 0x50c @0x17
0x4f5…511 at0018 = ╱42╱B╱ // 0x50d @0x18
0x4f5…511 at0019 = ╱ef╱$╱ // 0x50e @0x19
0x4f5…511 at001a = ╱ee╱)╱ // 0x50f @0x1a
0x4f5…511 at001b = EOL // 0x510 @0x1b
0x4f5…511 }
0x511…519 9270 0560 CLOSE B$
0x511…519 LineComalBin {
0x511…519 ptr = 0x9270 // 0x511 @0x0
0x511…519 lno = 0x0230 // 0x513 @0x2
0x511…519 at0004 = ╱a8╱ CLOSE ╱ // 0x515 @0x4
0x511…519 at0005 = ╱42╱B╱ // 0x516 @0x5
0x511…519 at0006 = ╱ef╱$╱ // 0x517 @0x6
0x511…519 at0007 = EOL // 0x518 @0x7
0x511…519 }
0x519…536 928d 0570 EXEC FEJL(1,10,B$)
0x519…536 LineComalBin {
0x519…536 ptr = 0x928d // 0x519 @0x0
0x519…536 lno = 0x023a // 0x51b @0x2
0x519…536 at0004 = ╱9d╱ EXEC ╱ // 0x51d @0x4
0x519…536 at0005 = ╱46╱F╱ // 0x51e @0x5
0x519…536 at0006 = ╱45╱E╱ // 0x51f @0x6
0x519…536 at0007 = ╱4a╱J╱ // 0x520 @0x7
0x519…536 at0008 = ╱4c╱L╱ // 0x521 @0x8
0x519…536 at0009 = ╱ed╱(╱ // 0x522 @0x9
0x519…536 at000a = ╱31╱1╱ // 0x523 @0xa
0x519…536 at000b = ╱fe00008001╱ // 0x524 @0xb
0x519…536 at0010 = ╱ec╱,╱ // 0x529 @0x10
0x519…536 at0011 = ╱31╱1╱ // 0x52a @0x11
0x519…536 at0012 = ╱30╱0╱ // 0x52b @0x12
0x519…536 at0013 = ╱fe0000a004╱ // 0x52c @0x13
0x519…536 at0018 = ╱ec╱,╱ // 0x531 @0x18
0x519…536 at0019 = ╱42╱B╱ // 0x532 @0x19
0x519…536 at001a = ╱ef╱$╱ // 0x533 @0x1a
0x519…536 at001b = ╱ee╱)╱ // 0x534 @0x1b
0x519…536 at001c = EOL // 0x535 @0x1c
0x519…536 }
0x536…54d 92a4 0580 CHAIN "P641210:OPSTART"
0x536…54d LineComalBin {
0x536…54d ptr = 0x92a4 // 0x536 @0x0
0x536…54d lno = 0x0244 // 0x538 @0x2
0x536…54d at0004 = ╱ac╱ CHAIN ╱ // 0x53a @0x4
0x536…54d at0005 = ╱22╱"╱ // 0x53b @0x5
0x536…54d at0006 = ╱50╱P╱ // 0x53c @0x6
0x536…54d at0007 = ╱36╱6╱ // 0x53d @0x7
0x536…54d at0008 = ╱34╱4╱ // 0x53e @0x8
0x536…54d at0009 = ╱31╱1╱ // 0x53f @0x9
0x536…54d at000a = ╱32╱2╱ // 0x540 @0xa
0x536…54d at000b = ╱31╱1╱ // 0x541 @0xb
0x536…54d at000c = ╱30╱0╱ // 0x542 @0xc
0x536…54d at000d = ╱3a╱:╱ // 0x543 @0xd
0x536…54d at000e = ╱4f╱O╱ // 0x544 @0xe
0x536…54d at000f = ╱50╱P╱ // 0x545 @0xf
0x536…54d at0010 = ╱53╱S╱ // 0x546 @0x10
0x536…54d at0011 = ╱54╱T╱ // 0x547 @0x11
0x536…54d at0012 = ╱41╱A╱ // 0x548 @0x12
0x536…54d at0013 = ╱52╱R╱ // 0x549 @0x13
0x536…54d at0014 = ╱54╱T╱ // 0x54a @0x14
0x536…54d at0015 = ╱22╱"╱ // 0x54b @0x15
0x536…54d at0016 = EOL // 0x54c @0x16
0x536…54d }
0x54d…564 92bb 0590 PROC FEJL(NR1,NR2,NR3)
0x54d…564 LineComalBin {
0x54d…564 ptr = 0x92bb // 0x54d @0x0
0x54d…564 lno = 0x024e // 0x54f @0x2
0x54d…564 at0004 = ╱9e╱ PROC ╱ // 0x551 @0x4
0x54d…564 at0005 = ╱46╱F╱ // 0x552 @0x5
0x54d…564 at0006 = ╱45╱E╱ // 0x553 @0x6
0x54d…564 at0007 = ╱4a╱J╱ // 0x554 @0x7
0x54d…564 at0008 = ╱4c╱L╱ // 0x555 @0x8
0x54d…564 at0009 = ╱ed╱(╱ // 0x556 @0x9
0x54d…564 at000a = ╱4e╱N╱ // 0x557 @0xa
0x54d…564 at000b = ╱52╱R╱ // 0x558 @0xb
0x54d…564 at000c = ╱31╱1╱ // 0x559 @0xc
0x54d…564 at000d = ╱ec╱,╱ // 0x55a @0xd
0x54d…564 at000e = ╱4e╱N╱ // 0x55b @0xe
0x54d…564 at000f = ╱52╱R╱ // 0x55c @0xf
0x54d…564 at0010 = ╱32╱2╱ // 0x55d @0x10
0x54d…564 at0011 = ╱ec╱,╱ // 0x55e @0x11
0x54d…564 at0012 = ╱4e╱N╱ // 0x55f @0x12
0x54d…564 at0013 = ╱52╱R╱ // 0x560 @0x13
0x54d…564 at0014 = ╱33╱3╱ // 0x561 @0x14
0x54d…564 at0015 = ╱ee╱)╱ // 0x562 @0x15
0x54d…564 at0016 = EOL // 0x563 @0x16
0x54d…564 }
0x564…579 92d0 0600 IF STATUS(NR3$)<>0 THEN
0x564…579 LineComalBin {
0x564…579 ptr = 0x92d0 // 0x564 @0x0
0x564…579 lno = 0x0258 // 0x566 @0x2
0x564…579 at0004 = ╱9c╱ IF ╱ // 0x568 @0x4
0x564…579 at0005 = ╱ce╱STATUS╱ // 0x569 @0x5
0x564…579 at0006 = ╱ed╱(╱ // 0x56a @0x6
0x564…579 at0007 = ╱4e╱N╱ // 0x56b @0x7
0x564…579 at0008 = ╱52╱R╱ // 0x56c @0x8
0x564…579 at0009 = ╱33╱3╱ // 0x56d @0x9
0x564…579 at000a = ╱ef╱$╱ // 0x56e @0xa
0x564…579 at000b = ╱ee╱)╱ // 0x56f @0xb
0x564…579 at000c = ╱e1╱<>╱ // 0x570 @0xc
0x564…579 at000d = ╱30╱0╱ // 0x571 @0xd
0x564…579 at000e = ╱fe00000000╱ // 0x572 @0xe
0x564…579 at0013 = ╱b6╱ THEN ╱ // 0x577 @0x13
0x564…579 at0014 = EOL // 0x578 @0x14
0x564…579 }
0x579…593 92ea 0610 PRINT STATUS(NR3$),NR1,NR2,NR3$
0x579…593 LineComalBin {
0x579…593 ptr = 0x92ea // 0x579 @0x0
0x579…593 lno = 0x0262 // 0x57b @0x2
0x579…593 at0004 = ╱92╱ PRINT ╱ // 0x57d @0x4
0x579…593 at0005 = ╱ce╱STATUS╱ // 0x57e @0x5
0x579…593 at0006 = ╱ed╱(╱ // 0x57f @0x6
0x579…593 at0007 = ╱4e╱N╱ // 0x580 @0x7
0x579…593 at0008 = ╱52╱R╱ // 0x581 @0x8
0x579…593 at0009 = ╱33╱3╱ // 0x582 @0x9
0x579…593 at000a = ╱ef╱$╱ // 0x583 @0xa
0x579…593 at000b = ╱ee╱)╱ // 0x584 @0xb
0x579…593 at000c = ╱ec╱,╱ // 0x585 @0xc
0x579…593 at000d = ╱4e╱N╱ // 0x586 @0xd
0x579…593 at000e = ╱52╱R╱ // 0x587 @0xe
0x579…593 at000f = ╱31╱1╱ // 0x588 @0xf
0x579…593 at0010 = ╱ec╱,╱ // 0x589 @0x10
0x579…593 at0011 = ╱4e╱N╱ // 0x58a @0x11
0x579…593 at0012 = ╱52╱R╱ // 0x58b @0x12
0x579…593 at0013 = ╱32╱2╱ // 0x58c @0x13
0x579…593 at0014 = ╱ec╱,╱ // 0x58d @0x14
0x579…593 at0015 = ╱4e╱N╱ // 0x58e @0x15
0x579…593 at0016 = ╱52╱R╱ // 0x58f @0x16
0x579…593 at0017 = ╱33╱3╱ // 0x590 @0x17
0x579…593 at0018 = ╱ef╱$╱ // 0x591 @0x18
0x579…593 at0019 = EOL // 0x592 @0x19
0x579…593 }
0x593…599 92f0 0620 STOP
0x593…599 LineComalBin {
0x593…599 ptr = 0x92f0 // 0x593 @0x0
0x593…599 lno = 0x026c // 0x595 @0x2
0x593…599 at0004 = ╱8d╱ STOP ╱ // 0x597 @0x4
0x593…599 at0005 = EOL // 0x598 @0x5
0x593…599 }
0x599…59f 92f6 0630 ENDIF
0x599…59f LineComalBin {
0x599…59f ptr = 0x92f6 // 0x599 @0x0
0x599…59f lno = 0x0276 // 0x59b @0x2
0x599…59f at0004 = ╱9b╱ ENDIF ╱ // 0x59d @0x4
0x599…59f at0005 = EOL // 0x59e @0x5
0x599…59f }
0x59f…5a5 0000 0640 ENDPROC
0x59f…5a5 LineComalBin {
0x59f…5a5 ptr = 0x0000 // 0x59f @0x0
0x59f…5a5 lno = 0x0280 // 0x5a1 @0x2
0x59f…5a5 at0004 = ╱9f╱ ENDPROC ╱ // 0x5a3 @0x4
0x59f…5a5 at0005 = EOL // 0x5a4 @0x5
0x59f…5a5 }
0x5a5…5ab (19,) 57 8d 57 8d 10 00 ┆W W ┆