|
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: 6208 (0x1840)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »SYSVEDL.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »SYSVEDL.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »SYSVEDL.B«
0100 REM SYSVEDL 0110 DIM MOMS$(12),LAND$(10,12),CB$(30),OP1$(12),OP2$(12) 0120 DIM RES$(14),TAL$(14),BLANK$(25),K1$(17),K2$(17),N$(6),D$(2),F$(17) 0130 DIM B$(2),A$(1),T1(9),TFIL$(18,10),AD$(5,7),AE$(5,29),AB$(5,30) 0140 ART=0 0150 PROC CALC(ART1,B1,B2,ES) 0160 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=ART1 0170 CALL "P641210:REGN" 0180 ES$=RES$ 0190 IF FLAG THEN STOP 0200 ENDPROC 0210 PROC FEJL(NR1,NR2,NR3) 0220 IF STATUS(NR3$)<>0 THEN 0230 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0240 STOP 0250 ENDIF 0260 ENDPROC 0270 PROC START(G) 0280 CLEAR 0290 CURSOR 20,1 0300 PRINT "Systemvedligeholdelse ";G$ 0310 CURSOR 15,9 0320 PRINT "0: Færdig" 0330 CURSOR 15,11 0340 PRINT "1: Oprettelse" 0350 CURSOR 15,13 0360 PRINT "2: Ændring" 0370 REPEAT 0380 CURSOR 18,15 0390 INPUT "Vælg type (0-2): ",B$ 0400 UNTIL B$=>"0" AND B$<"3" 0410 C=ORD(B$)-48 0420 IF C=2 THEN C=3 0430 CLEAR 0440 CURSOR 20,1 0450 PRINT "Systemvedligeholdelse ";G$ 0460 ENDPROC 0470 PROC INDTASTNING(CNR) 0480 REPEAT 0490 CASE CNR OF 0500 STOP 0510 WHEN 1 0520 IF C<>3 THEN 0530 REPEAT 0540 CURSOR 3,23 0550 PRINT " 1 Momsprocent :";BLANK$(1:20) 0560 CURSOR 28,23 0570 INPUT TAL$ 0580 TAL$=TAL$+"+" 0590 EXEC CALC(5,TAL$,TAL$,TAL$) 0600 UNTIL FLAG=0 0610 MOMS$=TAL$(3:12) 0620 ENDIF 0630 CURSOR 4,5 0640 PRINT "1 Momsprocent :";MOMS$(1:11) 0650 WHEN 2 0660 CB$="Fakturanummer :" 0670 WHEN 3 0680 CB$="Kreditnotanummer :" 0690 WHEN 4 0700 CB$="Fakturajournalside :" 0710 WHEN 5 0720 CB$="Kasserapportside :" 0730 WHEN 6 0740 CB$="Posteringsarkside :" 0750 WHEN 7 0760 CB$="Bogholderijournalside:" 0770 WHEN 8 0780 CB$="Dato (ÅÅmmdd) :" 0790 WHEN 9 0800 CB$="Bilagsnummer :" 0810 ENDCASE 0820 IF CNR<>1 THEN EXEC INDTAST(CB$,CNR) 0830 IF C=2 THEN 0840 CNR=10 0850 ELSE 0860 CNR=CNR+1 0870 ENDIF 0880 UNTIL CNR=10 0890 ENDPROC 0900 PROC INDTAST(CA,H) 0910 IF C<>3 THEN 0920 REPEAT 0930 REPEAT 0940 CURSOR 3,23 0950 PRINT H;" ";CA$;BLANK$(1:20) 0960 CURSOR 28,23 0970 INPUT TAL$ 0980 L=LEN(TAL$) 0990 UNTIL L>0 AND L<7 1000 P=0;TEST=0 1010 FOR J=1 TO L 1020 P1=INT(ORD(TAL$(J))-48) 1030 IF P1=>0 AND P1<10 THEN 1040 P=P*10+P1 1050 ELSE 1060 TEST=1 1070 ENDIF 1080 NEXT J 1090 UNTIL TEST=0 1100 T1(H-1)=P 1110 ENDIF 1120 CURSOR 3,H*2+3 1130 PRINT H;" ";CA$;T1(H-1) 1140 ENDPROC 1150 PROC FEKST(M,AR,AC,XPOS,LÆ,AF) 1160 IF C<>3 THEN 1170 REPEAT 1180 CURSOR 3,23 1190 PRINT M;AC$;BLANK$;BLANK$(1:10);AF$ 1200 CURSOR XPOS,23 1210 INPUT CB$ 1220 L=LEN(CB$) 1230 UNTIL L>0 AND L<=LÆ 1240 AR$(M)=CB$ 1250 ENDIF 1260 CURSOR 3,M*2+1 1270 PRINT M;AC$;":";AR$(M);BLANK$ 1280 ENDPROC 1290 K1$="P641220:SYSTEM1" 1300 OPEN K1$,R 1310 EXEC FEJL(1,1,K1$) 1320 GET K1$,10:N$ 1330 EXEC FEJL(1,2,K1$) 1340 GET K1$,36:K2$ 1350 EXEC FEJL(1,3,K1$) 1360 CLOSE K1$ 1370 EXEC FEJL(1,4,K1$) 1380 K2$=N$+K2$ 1390 OPEN K2$,R 1400 EXEC FEJL(1,5,K2$) 1410 GET K2$,1:MOMS$ 1420 EXEC FEJL(1,6,K2$) 1430 GET K2$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 1440 EXEC FEJL(1,7,K2$) 1450 FOR I=1 TO 3 1460 J=(I-1)*3+1 1470 GET K2$,I+2:LAND$(J),LAND$(J+1),LAND$(J+2) 1480 EXEC FEJL(1,8,K2$) 1490 NEXT I 1500 FOR I=1 TO 3 1510 J=(I-1)*3+1 1520 GET K2$,I+5:TFIL$(J),TFIL$(J+1),TFIL$(J+2) 1530 EXEC FEJL(1,9,K2$) 1540 NEXT I 1550 GET K2$,18:AB$(1) 1560 EXEC FEJL(2,10,K2$) 1570 GET K2$,19:AB$(2) 1580 EXEC FEJL(2,11,K2$) 1590 GET K2$,20:AB$(5),AB$(4),AB$(3) 1600 EXEC FEJL(2,12,K2$) 1610 CLOSE K2$ 1620 EXEC FEJL(1,10,K2$) 1630 AD$(1)="Navn" 1640 AD$(2)="Gade" 1650 AD$(3)="Postnr" 1660 AD$(4)="By" 1670 AD$(5)="Diverse" 1680 AE$(1)="(max 30 tegn)" 1690 AE$(2)="(max 30 tegn)" 1700 AE$(3)="(max 4 tegn)" 1710 AE$(4)="(max 20 tegn)" 1720 AE$(5)="(listeoverskrift max 10 tegn)" 1730 BLANK$=" " 1740 REPEAT 1750 CLEAR 1760 CURSOR 20,1 1770 PRINT "Systemvedligeholdelse";BLANK$ 1780 CURSOR 15,7 1790 PRINT "0: Færdig" 1800 CURSOR 15,9 1810 PRINT "1: Diverse" 1820 CURSOR 15,11 1830 PRINT "2: Landenavne" 1840 CURSOR 15,13 1850 PRINT "3: Bogholderitekster" 1860 CURSOR 15,15 1870 PRINT "4: Firmaoplysninger" 1880 REPEAT 1890 CURSOR 18,17 1900 INPUT "Vælg type (0-4) :",D$ 1910 UNTIL D$=>"0" AND D$<"5" 1920 IF D$<>"0" THEN 1930 REPEAT 1940 CASE D$ OF 1950 STOP 1960 WHEN "1" 1970 F$="Diverse" 1980 WHEN "2" 1990 F$="Landenavne" 2000 WHEN "3" 2010 F$="Bogholderitekster" 2020 WHEN "4" 2030 F$="Firmaoplysninger" 2040 ENDCASE 2050 EXEC START(F$) 2060 IF C=0 THEN EXIT 2070 CASE D$ OF 2080 STOP 2090 WHEN "1" 2100 EXEC INDTASTNING(1) 2110 WHEN "2" 2120 FOR J=1 TO 9 2130 EXEC FEKST(J,LAND$,BLANK$(1),5,12,BLANK$(1)) 2140 NEXT J 2150 WHEN "3" 2160 FOR J=1 TO 9 2170 EXEC FEKST(J,TFIL$,BLANK$(1),5,12,BLANK$(1)) 2180 NEXT J 2190 WHEN "4" 2200 FOR J=1 TO 5 2210 J1=30-(J=3)*26-(J=4)*10-(J=5)*20 2220 EXEC FEKST(J,AB$,AD$(J),13,J1,AE$(J)) 2230 NEXT J 2240 ENDCASE 2250 C=2 2260 REPEAT 2270 REPEAT 2280 CURSOR 3,23 2290 PRINT "Hvilket felt ønskes ændret , 0 for færdig";BLANK$ 2300 CURSOR 45,23 2310 INPUT A$ 2320 K=ORD(A$)-48 2330 UNTIL K>-1 AND K<10 2340 IF K=0 THEN EXIT 2350 CASE D$ OF 2360 STOP 2370 WHEN "1" 2380 EXEC INDTASTNING(K) 2390 WHEN "2" 2400 EXEC FEKST(K,LAND$,BLANK$(1),5,12,BLANK$(1)) 2410 WHEN "3" 2420 EXEC FEKST(K,TFIL$,BLANK$(1),5,12,BLANK$(1)) 2430 WHEN "4" 2440 IF K<6 THEN 2450 J1=30-(K=3)*26-(K=4)*10-(K=5)*20 2460 EXEC FEKST(K,AB$,AD$(K),13,J1,AE$(K)) 2470 ENDIF 2480 ENDCASE 2490 UNTIL K=0 2500 UNTIL C=0 2510 ENDIF 2520 UNTIL D$="0" 2530 OPEN K2$,W 2540 EXEC FEJL(2,1,K2$) 2550 PUT K2$,1:MOMS$ 2560 EXEC FEJL(2,2,K2$) 2570 PUT K2$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 2580 EXEC FEJL(2,3,K2$) 2590 FOR I=1 TO 3 2600 J=(I-1)*3+1 2610 PUT K2$,I+2:LAND$(J),LAND$(J+1),LAND$(J+2) 2620 EXEC FEJL(2,4,K2$) 2630 NEXT I 2640 FOR I=1 TO 3 2650 J=(I-1)*3+1 2660 PUT K2$,I+5:TFIL$(J),TFIL$(J+1),TFIL$(J+2) 2670 EXEC FEJL(2,5,K2$) 2680 NEXT I 2690 PUT K2$,18:AB$(1) 2700 EXEC FEJL(2,15,K2$) 2710 PUT K2$,19:AB$(2) 2720 EXEC FEJL(2,16,K2$) 2730 PUT K2$,20:AB$(5,1:10),AB$(4,1:20),AB$(3,1:4) 2740 EXEC FEJL(2,17,K2$) 2750 CLOSE K2$ 2760 EXEC FEJL(2,6,K2$) 2770 CHAIN "P641210:OPSTART"
0x0000…000d (0,) 8d64 0100 REM SYSVEDL
0x0000…000d LineComalBin {
0x0000…000d ptr = 0x8d64 // 0x0 @0x0
0x0000…000d lno = 0x0064 // 0x2 @0x2
0x0000…000d at0004 = ╱89╱ REM ╱ // 0x4 @0x4
0x0000…000d at0005 = ╱53╱S╱ // 0x5 @0x5
0x0000…000d at0006 = ╱59╱Y╱ // 0x6 @0x6
0x0000…000d at0007 = ╱53╱S╱ // 0x7 @0x7
0x0000…000d at0008 = ╱56╱V╱ // 0x8 @0x8
0x0000…000d at0009 = ╱45╱E╱ // 0x9 @0x9
0x0000…000d at000a = ╱44╱D╱ // 0xa @0xa
0x0000…000d at000b = ╱4c╱L╱ // 0xb @0xb
0x0000…000d at000c = EOL // 0xc @0xc
0x0000…000d }
0x000d…0061 8db8 0110 DIM MOMS$(12),LAND$(10,12),CB$(30),OP1$(12),OP2$(12)
0x000d…0061 LineComalBin {
0x000d…0061 ptr = 0x8db8 // 0xd @0x0
0x000d…0061 lno = 0x006e // 0xf @0x2
0x000d…0061 at0004 = ╱87╱ DIM ╱ // 0x11 @0x4
0x000d…0061 at0005 = ╱4d╱M╱ // 0x12 @0x5
0x000d…0061 at0006 = ╱4f╱O╱ // 0x13 @0x6
0x000d…0061 at0007 = ╱4d╱M╱ // 0x14 @0x7
0x000d…0061 at0008 = ╱53╱S╱ // 0x15 @0x8
0x000d…0061 at0009 = ╱ef╱$╱ // 0x16 @0x9
0x000d…0061 at000a = ╱ed╱(╱ // 0x17 @0xa
0x000d…0061 at000b = ╱31╱1╱ // 0x18 @0xb
0x000d…0061 at000c = ╱32╱2╱ // 0x19 @0xc
0x000d…0061 at000d = ╱fe0000c004╱ // 0x1a @0xd
0x000d…0061 at0012 = ╱ee╱)╱ // 0x1f @0x12
0x000d…0061 at0013 = ╱ec╱,╱ // 0x20 @0x13
0x000d…0061 at0014 = ╱4c╱L╱ // 0x21 @0x14
0x000d…0061 at0015 = ╱41╱A╱ // 0x22 @0x15
0x000d…0061 at0016 = ╱4e╱N╱ // 0x23 @0x16
0x000d…0061 at0017 = ╱44╱D╱ // 0x24 @0x17
0x000d…0061 at0018 = ╱ef╱$╱ // 0x25 @0x18
0x000d…0061 at0019 = ╱ed╱(╱ // 0x26 @0x19
0x000d…0061 at001a = ╱31╱1╱ // 0x27 @0x1a
0x000d…0061 at001b = ╱30╱0╱ // 0x28 @0x1b
0x000d…0061 at001c = ╱fe0000a004╱ // 0x29 @0x1c
0x000d…0061 at0021 = ╱ec╱,╱ // 0x2e @0x21
0x000d…0061 at0022 = ╱31╱1╱ // 0x2f @0x22
0x000d…0061 at0023 = ╱32╱2╱ // 0x30 @0x23
0x000d…0061 at0024 = ╱fe0000c004╱ // 0x31 @0x24
0x000d…0061 at0029 = ╱ee╱)╱ // 0x36 @0x29
0x000d…0061 at002a = ╱ec╱,╱ // 0x37 @0x2a
0x000d…0061 at002b = ╱43╱C╱ // 0x38 @0x2b
0x000d…0061 at002c = ╱42╱B╱ // 0x39 @0x2c
0x000d…0061 at002d = ╱ef╱$╱ // 0x3a @0x2d
0x000d…0061 at002e = ╱ed╱(╱ // 0x3b @0x2e
0x000d…0061 at002f = ╱33╱3╱ // 0x3c @0x2f
0x000d…0061 at0030 = ╱30╱0╱ // 0x3d @0x30
0x000d…0061 at0031 = ╱fe0000f005╱ // 0x3e @0x31
0x000d…0061 at0036 = ╱ee╱)╱ // 0x43 @0x36
0x000d…0061 at0037 = ╱ec╱,╱ // 0x44 @0x37
0x000d…0061 at0038 = ╱4f╱O╱ // 0x45 @0x38
0x000d…0061 at0039 = ╱50╱P╱ // 0x46 @0x39
0x000d…0061 at003a = ╱31╱1╱ // 0x47 @0x3a
0x000d…0061 at003b = ╱ef╱$╱ // 0x48 @0x3b
0x000d…0061 at003c = ╱ed╱(╱ // 0x49 @0x3c
0x000d…0061 at003d = ╱31╱1╱ // 0x4a @0x3d
0x000d…0061 at003e = ╱32╱2╱ // 0x4b @0x3e
0x000d…0061 at003f = ╱fe0000c004╱ // 0x4c @0x3f
0x000d…0061 at0044 = ╱ee╱)╱ // 0x51 @0x44
0x000d…0061 at0045 = ╱ec╱,╱ // 0x52 @0x45
0x000d…0061 at0046 = ╱4f╱O╱ // 0x53 @0x46
0x000d…0061 at0047 = ╱50╱P╱ // 0x54 @0x47
0x000d…0061 at0048 = ╱32╱2╱ // 0x55 @0x48
0x000d…0061 at0049 = ╱ef╱$╱ // 0x56 @0x49
0x000d…0061 at004a = ╱ed╱(╱ // 0x57 @0x4a
0x000d…0061 at004b = ╱31╱1╱ // 0x58 @0x4b
0x000d…0061 at004c = ╱32╱2╱ // 0x59 @0x4c
0x000d…0061 at004d = ╱fe0000c004╱ // 0x5a @0x4d
0x000d…0061 at0052 = ╱ee╱)╱ // 0x5f @0x52
0x000d…0061 at0053 = EOL // 0x60 @0x53
0x000d…0061 }
0x0061…00ce 8e25 0120 DIM RES$(14),TAL$(14),BLANK$(25),K1$(17),K2$(17),N$(6),D$(2),F$(17)
0x0061…00ce LineComalBin {
0x0061…00ce ptr = 0x8e25 // 0x61 @0x0
0x0061…00ce lno = 0x0078 // 0x63 @0x2
0x0061…00ce at0004 = ╱87╱ DIM ╱ // 0x65 @0x4
0x0061…00ce at0005 = ╱52╱R╱ // 0x66 @0x5
0x0061…00ce at0006 = ╱45╱E╱ // 0x67 @0x6
0x0061…00ce at0007 = ╱53╱S╱ // 0x68 @0x7
0x0061…00ce at0008 = ╱ef╱$╱ // 0x69 @0x8
0x0061…00ce at0009 = ╱ed╱(╱ // 0x6a @0x9
0x0061…00ce at000a = ╱31╱1╱ // 0x6b @0xa
0x0061…00ce at000b = ╱34╱4╱ // 0x6c @0xb
0x0061…00ce at000c = ╱fe0000e004╱ // 0x6d @0xc
0x0061…00ce at0011 = ╱ee╱)╱ // 0x72 @0x11
0x0061…00ce at0012 = ╱ec╱,╱ // 0x73 @0x12
0x0061…00ce at0013 = ╱54╱T╱ // 0x74 @0x13
0x0061…00ce at0014 = ╱41╱A╱ // 0x75 @0x14
0x0061…00ce at0015 = ╱4c╱L╱ // 0x76 @0x15
0x0061…00ce at0016 = ╱ef╱$╱ // 0x77 @0x16
0x0061…00ce at0017 = ╱ed╱(╱ // 0x78 @0x17
0x0061…00ce at0018 = ╱31╱1╱ // 0x79 @0x18
0x0061…00ce at0019 = ╱34╱4╱ // 0x7a @0x19
0x0061…00ce at001a = ╱fe0000e004╱ // 0x7b @0x1a
0x0061…00ce at001f = ╱ee╱)╱ // 0x80 @0x1f
0x0061…00ce at0020 = ╱ec╱,╱ // 0x81 @0x20
0x0061…00ce at0021 = ╱42╱B╱ // 0x82 @0x21
0x0061…00ce at0022 = ╱4c╱L╱ // 0x83 @0x22
0x0061…00ce at0023 = ╱41╱A╱ // 0x84 @0x23
0x0061…00ce at0024 = ╱4e╱N╱ // 0x85 @0x24
0x0061…00ce at0025 = ╱4b╱K╱ // 0x86 @0x25
0x0061…00ce at0026 = ╱ef╱$╱ // 0x87 @0x26
0x0061…00ce at0027 = ╱ed╱(╱ // 0x88 @0x27
0x0061…00ce at0028 = ╱32╱2╱ // 0x89 @0x28
0x0061…00ce at0029 = ╱35╱5╱ // 0x8a @0x29
0x0061…00ce at002a = ╱fe0000c805╱ // 0x8b @0x2a
0x0061…00ce at002f = ╱ee╱)╱ // 0x90 @0x2f
0x0061…00ce at0030 = ╱ec╱,╱ // 0x91 @0x30
0x0061…00ce at0031 = ╱4b╱K╱ // 0x92 @0x31
0x0061…00ce at0032 = ╱31╱1╱ // 0x93 @0x32
0x0061…00ce at0033 = ╱ef╱$╱ // 0x94 @0x33
0x0061…00ce at0034 = ╱ed╱(╱ // 0x95 @0x34
0x0061…00ce at0035 = ╱31╱1╱ // 0x96 @0x35
0x0061…00ce at0036 = ╱37╱7╱ // 0x97 @0x36
0x0061…00ce at0037 = ╱fe00008805╱ // 0x98 @0x37
0x0061…00ce at003c = ╱ee╱)╱ // 0x9d @0x3c
0x0061…00ce at003d = ╱ec╱,╱ // 0x9e @0x3d
0x0061…00ce at003e = ╱4b╱K╱ // 0x9f @0x3e
0x0061…00ce at003f = ╱32╱2╱ // 0xa0 @0x3f
0x0061…00ce at0040 = ╱ef╱$╱ // 0xa1 @0x40
0x0061…00ce at0041 = ╱ed╱(╱ // 0xa2 @0x41
0x0061…00ce at0042 = ╱31╱1╱ // 0xa3 @0x42
0x0061…00ce at0043 = ╱37╱7╱ // 0xa4 @0x43
0x0061…00ce at0044 = ╱fe00008805╱ // 0xa5 @0x44
0x0061…00ce at0049 = ╱ee╱)╱ // 0xaa @0x49
0x0061…00ce at004a = ╱ec╱,╱ // 0xab @0x4a
0x0061…00ce at004b = ╱4e╱N╱ // 0xac @0x4b
0x0061…00ce at004c = ╱ef╱$╱ // 0xad @0x4c
0x0061…00ce at004d = ╱ed╱(╱ // 0xae @0x4d
0x0061…00ce at004e = ╱36╱6╱ // 0xaf @0x4e
0x0061…00ce at004f = ╱fe0000c003╱ // 0xb0 @0x4f
0x0061…00ce at0054 = ╱ee╱)╱ // 0xb5 @0x54
0x0061…00ce at0055 = ╱ec╱,╱ // 0xb6 @0x55
0x0061…00ce at0056 = ╱44╱D╱ // 0xb7 @0x56
0x0061…00ce at0057 = ╱ef╱$╱ // 0xb8 @0x57
0x0061…00ce at0058 = ╱ed╱(╱ // 0xb9 @0x58
0x0061…00ce at0059 = ╱32╱2╱ // 0xba @0x59
0x0061…00ce at005a = ╱fe00008002╱ // 0xbb @0x5a
0x0061…00ce at005f = ╱ee╱)╱ // 0xc0 @0x5f
0x0061…00ce at0060 = ╱ec╱,╱ // 0xc1 @0x60
0x0061…00ce at0061 = ╱46╱F╱ // 0xc2 @0x61
0x0061…00ce at0062 = ╱ef╱$╱ // 0xc3 @0x62
0x0061…00ce at0063 = ╱ed╱(╱ // 0xc4 @0x63
0x0061…00ce at0064 = ╱31╱1╱ // 0xc5 @0x64
0x0061…00ce at0065 = ╱37╱7╱ // 0xc6 @0x65
0x0061…00ce at0066 = ╱fe00008805╱ // 0xc7 @0x66
0x0061…00ce at006b = ╱ee╱)╱ // 0xcc @0x6b
0x0061…00ce at006c = EOL // 0xcd @0x6c
0x0061…00ce }
0x00ce…0146 8e9d 0130 DIM B$(2),A$(1),T1(9),TFIL$(18,10),AD$(5,7),AE$(5,29),AB$(5,30)
0x00ce…0146 LineComalBin {
0x00ce…0146 ptr = 0x8e9d // 0xce @0x0
0x00ce…0146 lno = 0x0082 // 0xd0 @0x2
0x00ce…0146 at0004 = ╱87╱ DIM ╱ // 0xd2 @0x4
0x00ce…0146 at0005 = ╱42╱B╱ // 0xd3 @0x5
0x00ce…0146 at0006 = ╱ef╱$╱ // 0xd4 @0x6
0x00ce…0146 at0007 = ╱ed╱(╱ // 0xd5 @0x7
0x00ce…0146 at0008 = ╱32╱2╱ // 0xd6 @0x8
0x00ce…0146 at0009 = ╱fe00008002╱ // 0xd7 @0x9
0x00ce…0146 at000e = ╱ee╱)╱ // 0xdc @0xe
0x00ce…0146 at000f = ╱ec╱,╱ // 0xdd @0xf
0x00ce…0146 at0010 = ╱41╱A╱ // 0xde @0x10
0x00ce…0146 at0011 = ╱ef╱$╱ // 0xdf @0x11
0x00ce…0146 at0012 = ╱ed╱(╱ // 0xe0 @0x12
0x00ce…0146 at0013 = ╱31╱1╱ // 0xe1 @0x13
0x00ce…0146 at0014 = ╱fe00008001╱ // 0xe2 @0x14
0x00ce…0146 at0019 = ╱ee╱)╱ // 0xe7 @0x19
0x00ce…0146 at001a = ╱ec╱,╱ // 0xe8 @0x1a
0x00ce…0146 at001b = ╱54╱T╱ // 0xe9 @0x1b
0x00ce…0146 at001c = ╱31╱1╱ // 0xea @0x1c
0x00ce…0146 at001d = ╱ed╱(╱ // 0xeb @0x1d
0x00ce…0146 at001e = ╱39╱9╱ // 0xec @0x1e
0x00ce…0146 at001f = ╱fe00009004╱ // 0xed @0x1f
0x00ce…0146 at0024 = ╱ee╱)╱ // 0xf2 @0x24
0x00ce…0146 at0025 = ╱ec╱,╱ // 0xf3 @0x25
0x00ce…0146 at0026 = ╱54╱T╱ // 0xf4 @0x26
0x00ce…0146 at0027 = ╱46╱F╱ // 0xf5 @0x27
0x00ce…0146 at0028 = ╱49╱I╱ // 0xf6 @0x28
0x00ce…0146 at0029 = ╱4c╱L╱ // 0xf7 @0x29
0x00ce…0146 at002a = ╱ef╱$╱ // 0xf8 @0x2a
0x00ce…0146 at002b = ╱ed╱(╱ // 0xf9 @0x2b
0x00ce…0146 at002c = ╱31╱1╱ // 0xfa @0x2c
0x00ce…0146 at002d = ╱38╱8╱ // 0xfb @0x2d
0x00ce…0146 at002e = ╱fe00009005╱ // 0xfc @0x2e
0x00ce…0146 at0033 = ╱ec╱,╱ // 0x101 @0x33
0x00ce…0146 at0034 = ╱31╱1╱ // 0x102 @0x34
0x00ce…0146 at0035 = ╱30╱0╱ // 0x103 @0x35
0x00ce…0146 at0036 = ╱fe0000a004╱ // 0x104 @0x36
0x00ce…0146 at003b = ╱ee╱)╱ // 0x109 @0x3b
0x00ce…0146 at003c = ╱ec╱,╱ // 0x10a @0x3c
0x00ce…0146 at003d = ╱41╱A╱ // 0x10b @0x3d
0x00ce…0146 at003e = ╱44╱D╱ // 0x10c @0x3e
0x00ce…0146 at003f = ╱ef╱$╱ // 0x10d @0x3f
0x00ce…0146 at0040 = ╱ed╱(╱ // 0x10e @0x40
0x00ce…0146 at0041 = ╱35╱5╱ // 0x10f @0x41
0x00ce…0146 at0042 = ╱fe0000a003╱ // 0x110 @0x42
0x00ce…0146 at0047 = ╱ec╱,╱ // 0x115 @0x47
0x00ce…0146 at0048 = ╱37╱7╱ // 0x116 @0x48
0x00ce…0146 at0049 = ╱fe0000e003╱ // 0x117 @0x49
0x00ce…0146 at004e = ╱ee╱)╱ // 0x11c @0x4e
0x00ce…0146 at004f = ╱ec╱,╱ // 0x11d @0x4f
0x00ce…0146 at0050 = ╱41╱A╱ // 0x11e @0x50
0x00ce…0146 at0051 = ╱45╱E╱ // 0x11f @0x51
0x00ce…0146 at0052 = ╱ef╱$╱ // 0x120 @0x52
0x00ce…0146 at0053 = ╱ed╱(╱ // 0x121 @0x53
0x00ce…0146 at0054 = ╱35╱5╱ // 0x122 @0x54
0x00ce…0146 at0055 = ╱fe0000a003╱ // 0x123 @0x55
0x00ce…0146 at005a = ╱ec╱,╱ // 0x128 @0x5a
0x00ce…0146 at005b = ╱32╱2╱ // 0x129 @0x5b
0x00ce…0146 at005c = ╱39╱9╱ // 0x12a @0x5c
0x00ce…0146 at005d = ╱fe0000e805╱ // 0x12b @0x5d
0x00ce…0146 at0062 = ╱ee╱)╱ // 0x130 @0x62
0x00ce…0146 at0063 = ╱ec╱,╱ // 0x131 @0x63
0x00ce…0146 at0064 = ╱41╱A╱ // 0x132 @0x64
0x00ce…0146 at0065 = ╱42╱B╱ // 0x133 @0x65
0x00ce…0146 at0066 = ╱ef╱$╱ // 0x134 @0x66
0x00ce…0146 at0067 = ╱ed╱(╱ // 0x135 @0x67
0x00ce…0146 at0068 = ╱35╱5╱ // 0x136 @0x68
0x00ce…0146 at0069 = ╱fe0000a003╱ // 0x137 @0x69
0x00ce…0146 at006e = ╱ec╱,╱ // 0x13c @0x6e
0x00ce…0146 at006f = ╱33╱3╱ // 0x13d @0x6f
0x00ce…0146 at0070 = ╱30╱0╱ // 0x13e @0x70
0x00ce…0146 at0071 = ╱fe0000f005╱ // 0x13f @0x71
0x00ce…0146 at0076 = ╱ee╱)╱ // 0x144 @0x76
0x00ce…0146 at0077 = EOL // 0x145 @0x77
0x00ce…0146 }
0x0146…0155 8eac 0140 ART=0
0x0146…0155 LineComalBin {
0x0146…0155 ptr = 0x8eac // 0x146 @0x0
0x0146…0155 lno = 0x008c // 0x148 @0x2
0x0146…0155 at0004 = ╱41╱A╱ // 0x14a @0x4
0x0146…0155 at0005 = ╱52╱R╱ // 0x14b @0x5
0x0146…0155 at0006 = ╱54╱T╱ // 0x14c @0x6
0x0146…0155 at0007 = ╱dc╱=╱ // 0x14d @0x7
0x0146…0155 at0008 = ╱30╱0╱ // 0x14e @0x8
0x0146…0155 at0009 = ╱fe00000000╱ // 0x14f @0x9
0x0146…0155 at000e = EOL // 0x154 @0xe
0x0146…0155 }
0x0155…016e 8ec5 0150 PROC CALC(ART1,B1,B2,ES)
0x0155…016e LineComalBin {
0x0155…016e ptr = 0x8ec5 // 0x155 @0x0
0x0155…016e lno = 0x0096 // 0x157 @0x2
0x0155…016e at0004 = ╱9e╱ PROC ╱ // 0x159 @0x4
0x0155…016e at0005 = ╱43╱C╱ // 0x15a @0x5
0x0155…016e at0006 = ╱41╱A╱ // 0x15b @0x6
0x0155…016e at0007 = ╱4c╱L╱ // 0x15c @0x7
0x0155…016e at0008 = ╱43╱C╱ // 0x15d @0x8
0x0155…016e at0009 = ╱ed╱(╱ // 0x15e @0x9
0x0155…016e at000a = ╱41╱A╱ // 0x15f @0xa
0x0155…016e at000b = ╱52╱R╱ // 0x160 @0xb
0x0155…016e at000c = ╱54╱T╱ // 0x161 @0xc
0x0155…016e at000d = ╱31╱1╱ // 0x162 @0xd
0x0155…016e at000e = ╱ec╱,╱ // 0x163 @0xe
0x0155…016e at000f = ╱42╱B╱ // 0x164 @0xf
0x0155…016e at0010 = ╱31╱1╱ // 0x165 @0x10
0x0155…016e at0011 = ╱ec╱,╱ // 0x166 @0x11
0x0155…016e at0012 = ╱42╱B╱ // 0x167 @0x12
0x0155…016e at0013 = ╱32╱2╱ // 0x168 @0x13
0x0155…016e at0014 = ╱ec╱,╱ // 0x169 @0x14
0x0155…016e at0015 = ╱45╱E╱ // 0x16a @0x15
0x0155…016e at0016 = ╱53╱S╱ // 0x16b @0x16
0x0155…016e at0017 = ╱ee╱)╱ // 0x16c @0x17
0x0155…016e at0018 = EOL // 0x16d @0x18
0x0155…016e }
0x016e…01ac 8f03 0160 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=ART1
0x016e…01ac LineComalBin {
0x016e…01ac ptr = 0x8f03 // 0x16e @0x0
0x016e…01ac lno = 0x00a0 // 0x170 @0x2
0x016e…01ac at0004 = ╱4f╱O╱ // 0x172 @0x4
0x016e…01ac at0005 = ╱50╱P╱ // 0x173 @0x5
0x016e…01ac at0006 = ╱31╱1╱ // 0x174 @0x6
0x016e…01ac at0007 = ╱ef╱$╱ // 0x175 @0x7
0x016e…01ac at0008 = ╱dc╱=╱ // 0x176 @0x8
0x016e…01ac at0009 = ╱42╱B╱ // 0x177 @0x9
0x016e…01ac at000a = ╱31╱1╱ // 0x178 @0xa
0x016e…01ac at000b = ╱ef╱$╱ // 0x179 @0xb
0x016e…01ac at000c = ╱eb╱;╱ // 0x17a @0xc
0x016e…01ac at000d = ╱4f╱O╱ // 0x17b @0xd
0x016e…01ac at000e = ╱50╱P╱ // 0x17c @0xe
0x016e…01ac at000f = ╱32╱2╱ // 0x17d @0xf
0x016e…01ac at0010 = ╱ef╱$╱ // 0x17e @0x10
0x016e…01ac at0011 = ╱dc╱=╱ // 0x17f @0x11
0x016e…01ac at0012 = ╱42╱B╱ // 0x180 @0x12
0x016e…01ac at0013 = ╱32╱2╱ // 0x181 @0x13
0x016e…01ac at0014 = ╱ef╱$╱ // 0x182 @0x14
0x016e…01ac at0015 = ╱eb╱;╱ // 0x183 @0x15
0x016e…01ac at0016 = ╱52╱R╱ // 0x184 @0x16
0x016e…01ac at0017 = ╱45╱E╱ // 0x185 @0x17
0x016e…01ac at0018 = ╱53╱S╱ // 0x186 @0x18
0x016e…01ac at0019 = ╱ef╱$╱ // 0x187 @0x19
0x016e…01ac at001a = ╱dc╱=╱ // 0x188 @0x1a
0x016e…01ac at001b = ╱45╱E╱ // 0x189 @0x1b
0x016e…01ac at001c = ╱53╱S╱ // 0x18a @0x1c
0x016e…01ac at001d = ╱ef╱$╱ // 0x18b @0x1d
0x016e…01ac at001e = ╱eb╱;╱ // 0x18c @0x1e
0x016e…01ac at001f = ╱53╱S╱ // 0x18d @0x1f
0x016e…01ac at0020 = ╱49╱I╱ // 0x18e @0x20
0x016e…01ac at0021 = ╱dc╱=╱ // 0x18f @0x21
0x016e…01ac at0022 = ╱30╱0╱ // 0x190 @0x22
0x016e…01ac at0023 = ╱fe00000000╱ // 0x191 @0x23
0x016e…01ac at0028 = ╱eb╱;╱ // 0x196 @0x28
0x016e…01ac at0029 = ╱46╱F╱ // 0x197 @0x29
0x016e…01ac at002a = ╱4c╱L╱ // 0x198 @0x2a
0x016e…01ac at002b = ╱41╱A╱ // 0x199 @0x2b
0x016e…01ac at002c = ╱47╱G╱ // 0x19a @0x2c
0x016e…01ac at002d = ╱dc╱=╱ // 0x19b @0x2d
0x016e…01ac at002e = ╱30╱0╱ // 0x19c @0x2e
0x016e…01ac at002f = ╱fe00000000╱ // 0x19d @0x2f
0x016e…01ac at0034 = ╱eb╱;╱ // 0x1a2 @0x34
0x016e…01ac at0035 = ╱41╱A╱ // 0x1a3 @0x35
0x016e…01ac at0036 = ╱52╱R╱ // 0x1a4 @0x36
0x016e…01ac at0037 = ╱54╱T╱ // 0x1a5 @0x37
0x016e…01ac at0038 = ╱dc╱=╱ // 0x1a6 @0x38
0x016e…01ac at0039 = ╱41╱A╱ // 0x1a7 @0x39
0x016e…01ac at003a = ╱52╱R╱ // 0x1a8 @0x3a
0x016e…01ac at003b = ╱54╱T╱ // 0x1a9 @0x3b
0x016e…01ac at003c = ╱31╱1╱ // 0x1aa @0x3c
0x016e…01ac at003d = EOL // 0x1ab @0x3d
0x016e…01ac }
0x01ac…01c2 8f19 0170 CALL "P641210:REGN"
0x01ac…01c2 LineComalBin {
0x01ac…01c2 ptr = 0x8f19 // 0x1ac @0x0
0x01ac…01c2 lno = 0x00aa // 0x1ae @0x2
0x01ac…01c2 at0004 = ╱ad06ee╱ CALL ╱ // 0x1b0 @0x4
0x01ac…01c2 at0007 = ╱22╱"╱ // 0x1b3 @0x7
0x01ac…01c2 at0008 = ╱50╱P╱ // 0x1b4 @0x8
0x01ac…01c2 at0009 = ╱36╱6╱ // 0x1b5 @0x9
0x01ac…01c2 at000a = ╱34╱4╱ // 0x1b6 @0xa
0x01ac…01c2 at000b = ╱31╱1╱ // 0x1b7 @0xb
0x01ac…01c2 at000c = ╱32╱2╱ // 0x1b8 @0xc
0x01ac…01c2 at000d = ╱31╱1╱ // 0x1b9 @0xd
0x01ac…01c2 at000e = ╱30╱0╱ // 0x1ba @0xe
0x01ac…01c2 at000f = ╱3a╱:╱ // 0x1bb @0xf
0x01ac…01c2 at0010 = ╱52╱R╱ // 0x1bc @0x10
0x01ac…01c2 at0011 = ╱45╱E╱ // 0x1bd @0x11
0x01ac…01c2 at0012 = ╱47╱G╱ // 0x1be @0x12
0x01ac…01c2 at0013 = ╱4e╱N╱ // 0x1bf @0x13
0x01ac…01c2 at0014 = ╱22╱"╱ // 0x1c0 @0x14
0x01ac…01c2 at0015 = EOL // 0x1c1 @0x15
0x01ac…01c2 }
0x01c2…01cf 8f26 0180 ES$=RES$
0x01c2…01cf LineComalBin {
0x01c2…01cf ptr = 0x8f26 // 0x1c2 @0x0
0x01c2…01cf lno = 0x00b4 // 0x1c4 @0x2
0x01c2…01cf at0004 = ╱45╱E╱ // 0x1c6 @0x4
0x01c2…01cf at0005 = ╱53╱S╱ // 0x1c7 @0x5
0x01c2…01cf at0006 = ╱ef╱$╱ // 0x1c8 @0x6
0x01c2…01cf at0007 = ╱dc╱=╱ // 0x1c9 @0x7
0x01c2…01cf at0008 = ╱52╱R╱ // 0x1ca @0x8
0x01c2…01cf at0009 = ╱45╱E╱ // 0x1cb @0x9
0x01c2…01cf at000a = ╱53╱S╱ // 0x1cc @0xa
0x01c2…01cf at000b = ╱ef╱$╱ // 0x1cd @0xb
0x01c2…01cf at000c = EOL // 0x1ce @0xc
0x01c2…01cf }
0x01cf…01db 8f32 0190 IF FLAG THEN STOP
0x01cf…01db LineComalBin {
0x01cf…01db ptr = 0x8f32 // 0x1cf @0x0
0x01cf…01db lno = 0x00be // 0x1d1 @0x2
0x01cf…01db at0004 = ╱82╱ IF ╱ // 0x1d3 @0x4
0x01cf…01db at0005 = ╱46╱F╱ // 0x1d4 @0x5
0x01cf…01db at0006 = ╱4c╱L╱ // 0x1d5 @0x6
0x01cf…01db at0007 = ╱41╱A╱ // 0x1d6 @0x7
0x01cf…01db at0008 = ╱47╱G╱ // 0x1d7 @0x8
0x01cf…01db at0009 = ╱b6╱ THEN ╱ // 0x1d8 @0x9
0x01cf…01db at000a = ╱8d╱ STOP ╱ // 0x1d9 @0xa
0x01cf…01db at000b = EOL // 0x1da @0xb
0x01cf…01db }
0x01db…01e1 8f38 0200 ENDPROC
0x01db…01e1 LineComalBin {
0x01db…01e1 ptr = 0x8f38 // 0x1db @0x0
0x01db…01e1 lno = 0x00c8 // 0x1dd @0x2
0x01db…01e1 at0004 = ╱9f╱ ENDPROC ╱ // 0x1df @0x4
0x01db…01e1 at0005 = EOL // 0x1e0 @0x5
0x01db…01e1 }
0x01e1…01f8 8f4f 0210 PROC FEJL(NR1,NR2,NR3)
0x01e1…01f8 LineComalBin {
0x01e1…01f8 ptr = 0x8f4f // 0x1e1 @0x0
0x01e1…01f8 lno = 0x00d2 // 0x1e3 @0x2
0x01e1…01f8 at0004 = ╱9e╱ PROC ╱ // 0x1e5 @0x4
0x01e1…01f8 at0005 = ╱46╱F╱ // 0x1e6 @0x5
0x01e1…01f8 at0006 = ╱45╱E╱ // 0x1e7 @0x6
0x01e1…01f8 at0007 = ╱4a╱J╱ // 0x1e8 @0x7
0x01e1…01f8 at0008 = ╱4c╱L╱ // 0x1e9 @0x8
0x01e1…01f8 at0009 = ╱ed╱(╱ // 0x1ea @0x9
0x01e1…01f8 at000a = ╱4e╱N╱ // 0x1eb @0xa
0x01e1…01f8 at000b = ╱52╱R╱ // 0x1ec @0xb
0x01e1…01f8 at000c = ╱31╱1╱ // 0x1ed @0xc
0x01e1…01f8 at000d = ╱ec╱,╱ // 0x1ee @0xd
0x01e1…01f8 at000e = ╱4e╱N╱ // 0x1ef @0xe
0x01e1…01f8 at000f = ╱52╱R╱ // 0x1f0 @0xf
0x01e1…01f8 at0010 = ╱32╱2╱ // 0x1f1 @0x10
0x01e1…01f8 at0011 = ╱ec╱,╱ // 0x1f2 @0x11
0x01e1…01f8 at0012 = ╱4e╱N╱ // 0x1f3 @0x12
0x01e1…01f8 at0013 = ╱52╱R╱ // 0x1f4 @0x13
0x01e1…01f8 at0014 = ╱33╱3╱ // 0x1f5 @0x14
0x01e1…01f8 at0015 = ╱ee╱)╱ // 0x1f6 @0x15
0x01e1…01f8 at0016 = EOL // 0x1f7 @0x16
0x01e1…01f8 }
0x01f8…020d 8f64 0220 IF STATUS(NR3$)<>0 THEN
0x01f8…020d LineComalBin {
0x01f8…020d ptr = 0x8f64 // 0x1f8 @0x0
0x01f8…020d lno = 0x00dc // 0x1fa @0x2
0x01f8…020d at0004 = ╱9c╱ IF ╱ // 0x1fc @0x4
0x01f8…020d at0005 = ╱ce╱STATUS╱ // 0x1fd @0x5
0x01f8…020d at0006 = ╱ed╱(╱ // 0x1fe @0x6
0x01f8…020d at0007 = ╱4e╱N╱ // 0x1ff @0x7
0x01f8…020d at0008 = ╱52╱R╱ // 0x200 @0x8
0x01f8…020d at0009 = ╱33╱3╱ // 0x201 @0x9
0x01f8…020d at000a = ╱ef╱$╱ // 0x202 @0xa
0x01f8…020d at000b = ╱ee╱)╱ // 0x203 @0xb
0x01f8…020d at000c = ╱e1╱<>╱ // 0x204 @0xc
0x01f8…020d at000d = ╱30╱0╱ // 0x205 @0xd
0x01f8…020d at000e = ╱fe00000000╱ // 0x206 @0xe
0x01f8…020d at0013 = ╱b6╱ THEN ╱ // 0x20b @0x13
0x01f8…020d at0014 = EOL // 0x20c @0x14
0x01f8…020d }
0x020d…0227 8f7e 0230 PRINT STATUS(NR3$),NR1,NR2,NR3$
0x020d…0227 LineComalBin {
0x020d…0227 ptr = 0x8f7e // 0x20d @0x0
0x020d…0227 lno = 0x00e6 // 0x20f @0x2
0x020d…0227 at0004 = ╱92╱ PRINT ╱ // 0x211 @0x4
0x020d…0227 at0005 = ╱ce╱STATUS╱ // 0x212 @0x5
0x020d…0227 at0006 = ╱ed╱(╱ // 0x213 @0x6
0x020d…0227 at0007 = ╱4e╱N╱ // 0x214 @0x7
0x020d…0227 at0008 = ╱52╱R╱ // 0x215 @0x8
0x020d…0227 at0009 = ╱33╱3╱ // 0x216 @0x9
0x020d…0227 at000a = ╱ef╱$╱ // 0x217 @0xa
0x020d…0227 at000b = ╱ee╱)╱ // 0x218 @0xb
0x020d…0227 at000c = ╱ec╱,╱ // 0x219 @0xc
0x020d…0227 at000d = ╱4e╱N╱ // 0x21a @0xd
0x020d…0227 at000e = ╱52╱R╱ // 0x21b @0xe
0x020d…0227 at000f = ╱31╱1╱ // 0x21c @0xf
0x020d…0227 at0010 = ╱ec╱,╱ // 0x21d @0x10
0x020d…0227 at0011 = ╱4e╱N╱ // 0x21e @0x11
0x020d…0227 at0012 = ╱52╱R╱ // 0x21f @0x12
0x020d…0227 at0013 = ╱32╱2╱ // 0x220 @0x13
0x020d…0227 at0014 = ╱ec╱,╱ // 0x221 @0x14
0x020d…0227 at0015 = ╱4e╱N╱ // 0x222 @0x15
0x020d…0227 at0016 = ╱52╱R╱ // 0x223 @0x16
0x020d…0227 at0017 = ╱33╱3╱ // 0x224 @0x17
0x020d…0227 at0018 = ╱ef╱$╱ // 0x225 @0x18
0x020d…0227 at0019 = EOL // 0x226 @0x19
0x020d…0227 }
0x0227…022d 8f84 0240 STOP
0x0227…022d LineComalBin {
0x0227…022d ptr = 0x8f84 // 0x227 @0x0
0x0227…022d lno = 0x00f0 // 0x229 @0x2
0x0227…022d at0004 = ╱8d╱ STOP ╱ // 0x22b @0x4
0x0227…022d at0005 = EOL // 0x22c @0x5
0x0227…022d }
0x022d…0233 8f8a 0250 ENDIF
0x022d…0233 LineComalBin {
0x022d…0233 ptr = 0x8f8a // 0x22d @0x0
0x022d…0233 lno = 0x00fa // 0x22f @0x2
0x022d…0233 at0004 = ╱9b╱ ENDIF ╱ // 0x231 @0x4
0x022d…0233 at0005 = EOL // 0x232 @0x5
0x022d…0233 }
0x0233…0239 8f90 0260 ENDPROC
0x0233…0239 LineComalBin {
0x0233…0239 ptr = 0x8f90 // 0x233 @0x0
0x0233…0239 lno = 0x0104 // 0x235 @0x2
0x0233…0239 at0004 = ╱9f╱ ENDPROC ╱ // 0x237 @0x4
0x0233…0239 at0005 = EOL // 0x238 @0x5
0x0233…0239 }
0x0239…0247 8f9e 0270 PROC START(G)
0x0239…0247 LineComalBin {
0x0239…0247 ptr = 0x8f9e // 0x239 @0x0
0x0239…0247 lno = 0x010e // 0x23b @0x2
0x0239…0247 at0004 = ╱9e╱ PROC ╱ // 0x23d @0x4
0x0239…0247 at0005 = ╱53╱S╱ // 0x23e @0x5
0x0239…0247 at0006 = ╱54╱T╱ // 0x23f @0x6
0x0239…0247 at0007 = ╱41╱A╱ // 0x240 @0x7
0x0239…0247 at0008 = ╱52╱R╱ // 0x241 @0x8
0x0239…0247 at0009 = ╱54╱T╱ // 0x242 @0x9
0x0239…0247 at000a = ╱ed╱(╱ // 0x243 @0xa
0x0239…0247 at000b = ╱47╱G╱ // 0x244 @0xb
0x0239…0247 at000c = ╱ee╱)╱ // 0x245 @0xc
0x0239…0247 at000d = EOL // 0x246 @0xd
0x0239…0247 }
0x0247…024d 8fa4 0280 CLEAR
0x0247…024d LineComalBin {
0x0247…024d ptr = 0x8fa4 // 0x247 @0x0
0x0247…024d lno = 0x0118 // 0x249 @0x2
0x0247…024d at0004 = ╱a0╱ CLEAR ╱ // 0x24b @0x4
0x0247…024d at0005 = EOL // 0x24c @0x5
0x0247…024d }
0x024d…0261 8fb8 0290 CURSOR 20,1
0x024d…0261 LineComalBin {
0x024d…0261 ptr = 0x8fb8 // 0x24d @0x0
0x024d…0261 lno = 0x0122 // 0x24f @0x2
0x024d…0261 at0004 = ╱a1╱ CURSOR ╱ // 0x251 @0x4
0x024d…0261 at0005 = ╱32╱2╱ // 0x252 @0x5
0x024d…0261 at0006 = ╱30╱0╱ // 0x253 @0x6
0x024d…0261 at0007 = ╱fe0000a005╱ // 0x254 @0x7
0x024d…0261 at000c = ╱ec╱,╱ // 0x259 @0xc
0x024d…0261 at000d = ╱31╱1╱ // 0x25a @0xd
0x024d…0261 at000e = ╱fe00008001╱ // 0x25b @0xe
0x024d…0261 at0013 = EOL // 0x260 @0x13
0x024d…0261 }
0x0261…0283 8fda 0300 PRINT "Systemvedligeholdelse ";G$
0x0261…0283 LineComalBin {
0x0261…0283 ptr = 0x8fda // 0x261 @0x0
0x0261…0283 lno = 0x012c // 0x263 @0x2
0x0261…0283 at0004 = ╱92╱ PRINT ╱ // 0x265 @0x4
0x0261…0283 at0005 = ╱22╱"╱ // 0x266 @0x5
0x0261…0283 at0006 = ╱53╱S╱ // 0x267 @0x6
0x0261…0283 at0007 = ╱79╱y╱ // 0x268 @0x7
0x0261…0283 at0008 = ╱73╱s╱ // 0x269 @0x8
0x0261…0283 at0009 = ╱74╱t╱ // 0x26a @0x9
0x0261…0283 at000a = ╱65╱e╱ // 0x26b @0xa
0x0261…0283 at000b = ╱6d╱m╱ // 0x26c @0xb
0x0261…0283 at000c = ╱76╱v╱ // 0x26d @0xc
0x0261…0283 at000d = ╱65╱e╱ // 0x26e @0xd
0x0261…0283 at000e = ╱64╱d╱ // 0x26f @0xe
0x0261…0283 at000f = ╱6c╱l╱ // 0x270 @0xf
0x0261…0283 at0010 = ╱69╱i╱ // 0x271 @0x10
0x0261…0283 at0011 = ╱67╱g╱ // 0x272 @0x11
0x0261…0283 at0012 = ╱65╱e╱ // 0x273 @0x12
0x0261…0283 at0013 = ╱68╱h╱ // 0x274 @0x13
0x0261…0283 at0014 = ╱6f╱o╱ // 0x275 @0x14
0x0261…0283 at0015 = ╱6c╱l╱ // 0x276 @0x15
0x0261…0283 at0016 = ╱64╱d╱ // 0x277 @0x16
0x0261…0283 at0017 = ╱65╱e╱ // 0x278 @0x17
0x0261…0283 at0018 = ╱6c╱l╱ // 0x279 @0x18
0x0261…0283 at0019 = ╱73╱s╱ // 0x27a @0x19
0x0261…0283 at001a = ╱65╱e╱ // 0x27b @0x1a
0x0261…0283 at001b = ╱20╱…╱ // 0x27c @0x1b
0x0261…0283 at001c = ╱20╱…╱ // 0x27d @0x1c
0x0261…0283 at001d = ╱22╱"╱ // 0x27e @0x1d
0x0261…0283 at001e = ╱eb╱;╱ // 0x27f @0x1e
0x0261…0283 at001f = ╱47╱G╱ // 0x280 @0x1f
0x0261…0283 at0020 = ╱ef╱$╱ // 0x281 @0x20
0x0261…0283 at0021 = EOL // 0x282 @0x21
0x0261…0283 }
0x0283…0297 8fee 0310 CURSOR 15,9
0x0283…0297 LineComalBin {
0x0283…0297 ptr = 0x8fee // 0x283 @0x0
0x0283…0297 lno = 0x0136 // 0x285 @0x2
0x0283…0297 at0004 = ╱a1╱ CURSOR ╱ // 0x287 @0x4
0x0283…0297 at0005 = ╱31╱1╱ // 0x288 @0x5
0x0283…0297 at0006 = ╱35╱5╱ // 0x289 @0x6
0x0283…0297 at0007 = ╱fe0000f004╱ // 0x28a @0x7
0x0283…0297 at000c = ╱ec╱,╱ // 0x28f @0xc
0x0283…0297 at000d = ╱39╱9╱ // 0x290 @0xd
0x0283…0297 at000e = ╱fe00009004╱ // 0x291 @0xe
0x0283…0297 at0013 = EOL // 0x296 @0x13
0x0283…0297 }
0x0297…02a8 8fff 0320 PRINT "0: Færdig"
0x0297…02a8 LineComalBin {
0x0297…02a8 ptr = 0x8fff // 0x297 @0x0
0x0297…02a8 lno = 0x0140 // 0x299 @0x2
0x0297…02a8 at0004 = ╱92╱ PRINT ╱ // 0x29b @0x4
0x0297…02a8 at0005 = ╱22╱"╱ // 0x29c @0x5
0x0297…02a8 at0006 = ╱30╱0╱ // 0x29d @0x6
0x0297…02a8 at0007 = ╱3a╱:╱ // 0x29e @0x7
0x0297…02a8 at0008 = ╱20╱…╱ // 0x29f @0x8
0x0297…02a8 at0009 = ╱46╱F╱ // 0x2a0 @0x9
0x0297…02a8 at000a = ╱7b╱æ╱ // 0x2a1 @0xa
0x0297…02a8 at000b = ╱72╱r╱ // 0x2a2 @0xb
0x0297…02a8 at000c = ╱64╱d╱ // 0x2a3 @0xc
0x0297…02a8 at000d = ╱69╱i╱ // 0x2a4 @0xd
0x0297…02a8 at000e = ╱67╱g╱ // 0x2a5 @0xe
0x0297…02a8 at000f = ╱22╱"╱ // 0x2a6 @0xf
0x0297…02a8 at0010 = EOL // 0x2a7 @0x10
0x0297…02a8 }
0x02a8…02bd 9014 0330 CURSOR 15,11
0x02a8…02bd LineComalBin {
0x02a8…02bd ptr = 0x9014 // 0x2a8 @0x0
0x02a8…02bd lno = 0x014a // 0x2aa @0x2
0x02a8…02bd at0004 = ╱a1╱ CURSOR ╱ // 0x2ac @0x4
0x02a8…02bd at0005 = ╱31╱1╱ // 0x2ad @0x5
0x02a8…02bd at0006 = ╱35╱5╱ // 0x2ae @0x6
0x02a8…02bd at0007 = ╱fe0000f004╱ // 0x2af @0x7
0x02a8…02bd at000c = ╱ec╱,╱ // 0x2b4 @0xc
0x02a8…02bd at000d = ╱31╱1╱ // 0x2b5 @0xd
0x02a8…02bd at000e = ╱31╱1╱ // 0x2b6 @0xe
0x02a8…02bd at000f = ╱fe0000b004╱ // 0x2b7 @0xf
0x02a8…02bd at0014 = EOL // 0x2bc @0x14
0x02a8…02bd }
0x02bd…02d2 9029 0340 PRINT "1: Oprettelse"
0x02bd…02d2 LineComalBin {
0x02bd…02d2 ptr = 0x9029 // 0x2bd @0x0
0x02bd…02d2 lno = 0x0154 // 0x2bf @0x2
0x02bd…02d2 at0004 = ╱92╱ PRINT ╱ // 0x2c1 @0x4
0x02bd…02d2 at0005 = ╱22╱"╱ // 0x2c2 @0x5
0x02bd…02d2 at0006 = ╱31╱1╱ // 0x2c3 @0x6
0x02bd…02d2 at0007 = ╱3a╱:╱ // 0x2c4 @0x7
0x02bd…02d2 at0008 = ╱20╱…╱ // 0x2c5 @0x8
0x02bd…02d2 at0009 = ╱4f╱O╱ // 0x2c6 @0x9
0x02bd…02d2 at000a = ╱70╱p╱ // 0x2c7 @0xa
0x02bd…02d2 at000b = ╱72╱r╱ // 0x2c8 @0xb
0x02bd…02d2 at000c = ╱65╱e╱ // 0x2c9 @0xc
0x02bd…02d2 at000d = ╱74╱t╱ // 0x2ca @0xd
0x02bd…02d2 at000e = ╱74╱t╱ // 0x2cb @0xe
0x02bd…02d2 at000f = ╱65╱e╱ // 0x2cc @0xf
0x02bd…02d2 at0010 = ╱6c╱l╱ // 0x2cd @0x10
0x02bd…02d2 at0011 = ╱73╱s╱ // 0x2ce @0x11
0x02bd…02d2 at0012 = ╱65╱e╱ // 0x2cf @0x12
0x02bd…02d2 at0013 = ╱22╱"╱ // 0x2d0 @0x13
0x02bd…02d2 at0014 = EOL // 0x2d1 @0x14
0x02bd…02d2 }
0x02d2…02e7 903e 0350 CURSOR 15,13
0x02d2…02e7 LineComalBin {
0x02d2…02e7 ptr = 0x903e // 0x2d2 @0x0
0x02d2…02e7 lno = 0x015e // 0x2d4 @0x2
0x02d2…02e7 at0004 = ╱a1╱ CURSOR ╱ // 0x2d6 @0x4
0x02d2…02e7 at0005 = ╱31╱1╱ // 0x2d7 @0x5
0x02d2…02e7 at0006 = ╱35╱5╱ // 0x2d8 @0x6
0x02d2…02e7 at0007 = ╱fe0000f004╱ // 0x2d9 @0x7
0x02d2…02e7 at000c = ╱ec╱,╱ // 0x2de @0xc
0x02d2…02e7 at000d = ╱31╱1╱ // 0x2df @0xd
0x02d2…02e7 at000e = ╱33╱3╱ // 0x2e0 @0xe
0x02d2…02e7 at000f = ╱fe0000d004╱ // 0x2e1 @0xf
0x02d2…02e7 at0014 = EOL // 0x2e6 @0x14
0x02d2…02e7 }
0x02e7…02f9 9050 0360 PRINT "2: Ændring"
0x02e7…02f9 LineComalBin {
0x02e7…02f9 ptr = 0x9050 // 0x2e7 @0x0
0x02e7…02f9 lno = 0x0168 // 0x2e9 @0x2
0x02e7…02f9 at0004 = ╱92╱ PRINT ╱ // 0x2eb @0x4
0x02e7…02f9 at0005 = ╱22╱"╱ // 0x2ec @0x5
0x02e7…02f9 at0006 = ╱32╱2╱ // 0x2ed @0x6
0x02e7…02f9 at0007 = ╱3a╱:╱ // 0x2ee @0x7
0x02e7…02f9 at0008 = ╱20╱…╱ // 0x2ef @0x8
0x02e7…02f9 at0009 = ╱5b╱Æ╱ // 0x2f0 @0x9
0x02e7…02f9 at000a = ╱6e╱n╱ // 0x2f1 @0xa
0x02e7…02f9 at000b = ╱64╱d╱ // 0x2f2 @0xb
0x02e7…02f9 at000c = ╱72╱r╱ // 0x2f3 @0xc
0x02e7…02f9 at000d = ╱69╱i╱ // 0x2f4 @0xd
0x02e7…02f9 at000e = ╱6e╱n╱ // 0x2f5 @0xe
0x02e7…02f9 at000f = ╱67╱g╱ // 0x2f6 @0xf
0x02e7…02f9 at0010 = ╱22╱"╱ // 0x2f7 @0x10
0x02e7…02f9 at0011 = EOL // 0x2f8 @0x11
0x02e7…02f9 }
0x02f9…02ff 9056 0370 REPEAT
0x02f9…02ff LineComalBin {
0x02f9…02ff ptr = 0x9056 // 0x2f9 @0x0
0x02f9…02ff lno = 0x0172 // 0x2fb @0x2
0x02f9…02ff at0004 = ╱97╱ REPEAT ╱ // 0x2fd @0x4
0x02f9…02ff at0005 = EOL // 0x2fe @0x5
0x02f9…02ff }
0x02ff…0314 906b 0380 CURSOR 18,15
0x02ff…0314 LineComalBin {
0x02ff…0314 ptr = 0x906b // 0x2ff @0x0
0x02ff…0314 lno = 0x017c // 0x301 @0x2
0x02ff…0314 at0004 = ╱a1╱ CURSOR ╱ // 0x303 @0x4
0x02ff…0314 at0005 = ╱31╱1╱ // 0x304 @0x5
0x02ff…0314 at0006 = ╱38╱8╱ // 0x305 @0x6
0x02ff…0314 at0007 = ╱fe00009005╱ // 0x306 @0x7
0x02ff…0314 at000c = ╱ec╱,╱ // 0x30b @0xc
0x02ff…0314 at000d = ╱31╱1╱ // 0x30c @0xd
0x02ff…0314 at000e = ╱35╱5╱ // 0x30d @0xe
0x02ff…0314 at000f = ╱fe0000f004╱ // 0x30e @0xf
0x02ff…0314 at0014 = EOL // 0x313 @0x14
0x02ff…0314 }
0x0314…0330 9087 0390 INPUT "Vælg type (0-2): ",B$
0x0314…0330 LineComalBin {
0x0314…0330 ptr = 0x9087 // 0x314 @0x0
0x0314…0330 lno = 0x0186 // 0x316 @0x2
0x0314…0330 at0004 = ╱91╱ INPUT ╱ // 0x318 @0x4
0x0314…0330 at0005 = ╱22╱"╱ // 0x319 @0x5
0x0314…0330 at0006 = ╱56╱V╱ // 0x31a @0x6
0x0314…0330 at0007 = ╱7b╱æ╱ // 0x31b @0x7
0x0314…0330 at0008 = ╱6c╱l╱ // 0x31c @0x8
0x0314…0330 at0009 = ╱67╱g╱ // 0x31d @0x9
0x0314…0330 at000a = ╱20╱…╱ // 0x31e @0xa
0x0314…0330 at000b = ╱74╱t╱ // 0x31f @0xb
0x0314…0330 at000c = ╱79╱y╱ // 0x320 @0xc
0x0314…0330 at000d = ╱70╱p╱ // 0x321 @0xd
0x0314…0330 at000e = ╱65╱e╱ // 0x322 @0xe
0x0314…0330 at000f = ╱20╱…╱ // 0x323 @0xf
0x0314…0330 at0010 = ╱28╱(╱ // 0x324 @0x10
0x0314…0330 at0011 = ╱30╱0╱ // 0x325 @0x11
0x0314…0330 at0012 = ╱2d╱-╱ // 0x326 @0x12
0x0314…0330 at0013 = ╱32╱2╱ // 0x327 @0x13
0x0314…0330 at0014 = ╱29╱)╱ // 0x328 @0x14
0x0314…0330 at0015 = ╱3a╱:╱ // 0x329 @0x15
0x0314…0330 at0016 = ╱20╱…╱ // 0x32a @0x16
0x0314…0330 at0017 = ╱22╱"╱ // 0x32b @0x17
0x0314…0330 at0018 = ╱ec╱,╱ // 0x32c @0x18
0x0314…0330 at0019 = ╱42╱B╱ // 0x32d @0x19
0x0314…0330 at001a = ╱ef╱$╱ // 0x32e @0x1a
0x0314…0330 at001b = EOL // 0x32f @0x1b
0x0314…0330 }
0x0330…0343 909a 0400 UNTIL B$=>"0" AND B$<"3"
0x0330…0343 LineComalBin {
0x0330…0343 ptr = 0x909a // 0x330 @0x0
0x0330…0343 lno = 0x0190 // 0x332 @0x2
0x0330…0343 at0004 = ╱98╱ UNTIL ╱ // 0x334 @0x4
0x0330…0343 at0005 = ╱42╱B╱ // 0x335 @0x5
0x0330…0343 at0006 = ╱ef╱$╱ // 0x336 @0x6
0x0330…0343 at0007 = ╱e0╱=>╱ // 0x337 @0x7
0x0330…0343 at0008 = ╱22╱"╱ // 0x338 @0x8
0x0330…0343 at0009 = ╱30╱0╱ // 0x339 @0x9
0x0330…0343 at000a = ╱22╱"╱ // 0x33a @0xa
0x0330…0343 at000b = ╱da╱ AND ╱ // 0x33b @0xb
0x0330…0343 at000c = ╱42╱B╱ // 0x33c @0xc
0x0330…0343 at000d = ╱ef╱$╱ // 0x33d @0xd
0x0330…0343 at000e = ╱dd╱<╱ // 0x33e @0xe
0x0330…0343 at000f = ╱22╱"╱ // 0x33f @0xf
0x0330…0343 at0010 = ╱33╱3╱ // 0x340 @0x10
0x0330…0343 at0011 = ╱22╱"╱ // 0x341 @0x11
0x0330…0343 at0012 = EOL // 0x342 @0x12
0x0330…0343 }
0x0343…0357 90ae 0410 C=ORD(B$)-48
0x0343…0357 LineComalBin {
0x0343…0357 ptr = 0x90ae // 0x343 @0x0
0x0343…0357 lno = 0x019a // 0x345 @0x2
0x0343…0357 at0004 = ╱43╱C╱ // 0x347 @0x4
0x0343…0357 at0005 = ╱dc╱=╱ // 0x348 @0x5
0x0343…0357 at0006 = ╱cd╱ORD╱ // 0x349 @0x6
0x0343…0357 at0007 = ╱ed╱(╱ // 0x34a @0x7
0x0343…0357 at0008 = ╱42╱B╱ // 0x34b @0x8
0x0343…0357 at0009 = ╱ef╱$╱ // 0x34c @0x9
0x0343…0357 at000a = ╱ee╱)╱ // 0x34d @0xa
0x0343…0357 at000b = ╱e3╱-╱ // 0x34e @0xb
0x0343…0357 at000c = ╱34╱4╱ // 0x34f @0xc
0x0343…0357 at000d = ╱38╱8╱ // 0x350 @0xd
0x0343…0357 at000e = ╱fe0000c006╱ // 0x351 @0xe
0x0343…0357 at0013 = EOL // 0x356 @0x13
0x0343…0357 }
0x0357…036e 90c5 0420 IF C=2 THEN C=3
0x0357…036e LineComalBin {
0x0357…036e ptr = 0x90c5 // 0x357 @0x0
0x0357…036e lno = 0x01a4 // 0x359 @0x2
0x0357…036e at0004 = ╱82╱ IF ╱ // 0x35b @0x4
0x0357…036e at0005 = ╱43╱C╱ // 0x35c @0x5
0x0357…036e at0006 = ╱dc╱=╱ // 0x35d @0x6
0x0357…036e at0007 = ╱32╱2╱ // 0x35e @0x7
0x0357…036e at0008 = ╱fe00008002╱ // 0x35f @0x8
0x0357…036e at000d = ╱b6╱ THEN ╱ // 0x364 @0xd
0x0357…036e at000e = ╱43╱C╱ // 0x365 @0xe
0x0357…036e at000f = ╱dc╱=╱ // 0x366 @0xf
0x0357…036e at0010 = ╱33╱3╱ // 0x367 @0x10
0x0357…036e at0011 = ╱fe0000c002╱ // 0x368 @0x11
0x0357…036e at0016 = EOL // 0x36d @0x16
0x0357…036e }
0x036e…0374 90cb 0430 CLEAR
0x036e…0374 LineComalBin {
0x036e…0374 ptr = 0x90cb // 0x36e @0x0
0x036e…0374 lno = 0x01ae // 0x370 @0x2
0x036e…0374 at0004 = ╱a0╱ CLEAR ╱ // 0x372 @0x4
0x036e…0374 at0005 = EOL // 0x373 @0x5
0x036e…0374 }
0x0374…0388 90df 0440 CURSOR 20,1
0x0374…0388 LineComalBin {
0x0374…0388 ptr = 0x90df // 0x374 @0x0
0x0374…0388 lno = 0x01b8 // 0x376 @0x2
0x0374…0388 at0004 = ╱a1╱ CURSOR ╱ // 0x378 @0x4
0x0374…0388 at0005 = ╱32╱2╱ // 0x379 @0x5
0x0374…0388 at0006 = ╱30╱0╱ // 0x37a @0x6
0x0374…0388 at0007 = ╱fe0000a005╱ // 0x37b @0x7
0x0374…0388 at000c = ╱ec╱,╱ // 0x380 @0xc
0x0374…0388 at000d = ╱31╱1╱ // 0x381 @0xd
0x0374…0388 at000e = ╱fe00008001╱ // 0x382 @0xe
0x0374…0388 at0013 = EOL // 0x387 @0x13
0x0374…0388 }
0x0388…03aa 9101 0450 PRINT "Systemvedligeholdelse ";G$
0x0388…03aa LineComalBin {
0x0388…03aa ptr = 0x9101 // 0x388 @0x0
0x0388…03aa lno = 0x01c2 // 0x38a @0x2
0x0388…03aa at0004 = ╱92╱ PRINT ╱ // 0x38c @0x4
0x0388…03aa at0005 = ╱22╱"╱ // 0x38d @0x5
0x0388…03aa at0006 = ╱53╱S╱ // 0x38e @0x6
0x0388…03aa at0007 = ╱79╱y╱ // 0x38f @0x7
0x0388…03aa at0008 = ╱73╱s╱ // 0x390 @0x8
0x0388…03aa at0009 = ╱74╱t╱ // 0x391 @0x9
0x0388…03aa at000a = ╱65╱e╱ // 0x392 @0xa
0x0388…03aa at000b = ╱6d╱m╱ // 0x393 @0xb
0x0388…03aa at000c = ╱76╱v╱ // 0x394 @0xc
0x0388…03aa at000d = ╱65╱e╱ // 0x395 @0xd
0x0388…03aa at000e = ╱64╱d╱ // 0x396 @0xe
0x0388…03aa at000f = ╱6c╱l╱ // 0x397 @0xf
0x0388…03aa at0010 = ╱69╱i╱ // 0x398 @0x10
0x0388…03aa at0011 = ╱67╱g╱ // 0x399 @0x11
0x0388…03aa at0012 = ╱65╱e╱ // 0x39a @0x12
0x0388…03aa at0013 = ╱68╱h╱ // 0x39b @0x13
0x0388…03aa at0014 = ╱6f╱o╱ // 0x39c @0x14
0x0388…03aa at0015 = ╱6c╱l╱ // 0x39d @0x15
0x0388…03aa at0016 = ╱64╱d╱ // 0x39e @0x16
0x0388…03aa at0017 = ╱65╱e╱ // 0x39f @0x17
0x0388…03aa at0018 = ╱6c╱l╱ // 0x3a0 @0x18
0x0388…03aa at0019 = ╱73╱s╱ // 0x3a1 @0x19
0x0388…03aa at001a = ╱65╱e╱ // 0x3a2 @0x1a
0x0388…03aa at001b = ╱20╱…╱ // 0x3a3 @0x1b
0x0388…03aa at001c = ╱20╱…╱ // 0x3a4 @0x1c
0x0388…03aa at001d = ╱22╱"╱ // 0x3a5 @0x1d
0x0388…03aa at001e = ╱eb╱;╱ // 0x3a6 @0x1e
0x0388…03aa at001f = ╱47╱G╱ // 0x3a7 @0x1f
0x0388…03aa at0020 = ╱ef╱$╱ // 0x3a8 @0x20
0x0388…03aa at0021 = EOL // 0x3a9 @0x21
0x0388…03aa }
0x03aa…03b0 9107 0460 ENDPROC
0x03aa…03b0 LineComalBin {
0x03aa…03b0 ptr = 0x9107 // 0x3aa @0x0
0x03aa…03b0 lno = 0x01cc // 0x3ac @0x2
0x03aa…03b0 at0004 = ╱9f╱ ENDPROC ╱ // 0x3ae @0x4
0x03aa…03b0 at0005 = EOL // 0x3af @0x5
0x03aa…03b0 }
0x03b0…03c6 911d 0470 PROC INDTASTNING(CNR)
0x03b0…03c6 LineComalBin {
0x03b0…03c6 ptr = 0x911d // 0x3b0 @0x0
0x03b0…03c6 lno = 0x01d6 // 0x3b2 @0x2
0x03b0…03c6 at0004 = ╱9e╱ PROC ╱ // 0x3b4 @0x4
0x03b0…03c6 at0005 = ╱49╱I╱ // 0x3b5 @0x5
0x03b0…03c6 at0006 = ╱4e╱N╱ // 0x3b6 @0x6
0x03b0…03c6 at0007 = ╱44╱D╱ // 0x3b7 @0x7
0x03b0…03c6 at0008 = ╱54╱T╱ // 0x3b8 @0x8
0x03b0…03c6 at0009 = ╱41╱A╱ // 0x3b9 @0x9
0x03b0…03c6 at000a = ╱53╱S╱ // 0x3ba @0xa
0x03b0…03c6 at000b = ╱54╱T╱ // 0x3bb @0xb
0x03b0…03c6 at000c = ╱4e╱N╱ // 0x3bc @0xc
0x03b0…03c6 at000d = ╱49╱I╱ // 0x3bd @0xd
0x03b0…03c6 at000e = ╱4e╱N╱ // 0x3be @0xe
0x03b0…03c6 at000f = ╱47╱G╱ // 0x3bf @0xf
0x03b0…03c6 at0010 = ╱ed╱(╱ // 0x3c0 @0x10
0x03b0…03c6 at0011 = ╱43╱C╱ // 0x3c1 @0x11
0x03b0…03c6 at0012 = ╱4e╱N╱ // 0x3c2 @0x12
0x03b0…03c6 at0013 = ╱52╱R╱ // 0x3c3 @0x13
0x03b0…03c6 at0014 = ╱ee╱)╱ // 0x3c4 @0x14
0x03b0…03c6 at0015 = EOL // 0x3c5 @0x15
0x03b0…03c6 }
0x03c6…03cc 9123 0480 REPEAT
0x03c6…03cc LineComalBin {
0x03c6…03cc ptr = 0x9123 // 0x3c6 @0x0
0x03c6…03cc lno = 0x01e0 // 0x3c8 @0x2
0x03c6…03cc at0004 = ╱97╱ REPEAT ╱ // 0x3ca @0x4
0x03c6…03cc at0005 = EOL // 0x3cb @0x5
0x03c6…03cc }
0x03cc…03d7 912e 0490 CASE CNR OF
0x03cc…03d7 LineComalBin {
0x03cc…03d7 ptr = 0x912e // 0x3cc @0x0
0x03cc…03d7 lno = 0x01ea // 0x3ce @0x2
0x03cc…03d7 at0004 = ╱a201╱ CASE ╱ // 0x3d0 @0x4
0x03cc…03d7 at0006 = ╱43╱C╱ // 0x3d2 @0x6
0x03cc…03d7 at0007 = ╱4e╱N╱ // 0x3d3 @0x7
0x03cc…03d7 at0008 = ╱52╱R╱ // 0x3d4 @0x8
0x03cc…03d7 at0009 = ╱ba╱ OF ╱ // 0x3d5 @0x9
0x03cc…03d7 at000a = EOL // 0x3d6 @0xa
0x03cc…03d7 }
0x03d7…03dd 9134 0500 STOP
0x03d7…03dd LineComalBin {
0x03d7…03dd ptr = 0x9134 // 0x3d7 @0x0
0x03d7…03dd lno = 0x01f4 // 0x3d9 @0x2
0x03d7…03dd at0004 = ╱8d╱ STOP ╱ // 0x3db @0x4
0x03d7…03dd at0005 = EOL // 0x3dc @0x5
0x03d7…03dd }
0x03dd…03ea 9141 0510 WHEN 1
0x03dd…03ea LineComalBin {
0x03dd…03ea ptr = 0x9141 // 0x3dd @0x0
0x03dd…03ea lno = 0x01fe // 0x3df @0x2
0x03dd…03ea at0004 = ╱a301╱ WHEN ╱ // 0x3e1 @0x4
0x03dd…03ea at0006 = ╱31╱1╱ // 0x3e3 @0x6
0x03dd…03ea at0007 = ╱fe00008001╱ // 0x3e4 @0x7
0x03dd…03ea at000c = EOL // 0x3e9 @0xc
0x03dd…03ea }
0x03ea…03f9 9150 0520 IF C<>3 THEN
0x03ea…03f9 LineComalBin {
0x03ea…03f9 ptr = 0x9150 // 0x3ea @0x0
0x03ea…03f9 lno = 0x0208 // 0x3ec @0x2
0x03ea…03f9 at0004 = ╱9c╱ IF ╱ // 0x3ee @0x4
0x03ea…03f9 at0005 = ╱43╱C╱ // 0x3ef @0x5
0x03ea…03f9 at0006 = ╱e1╱<>╱ // 0x3f0 @0x6
0x03ea…03f9 at0007 = ╱33╱3╱ // 0x3f1 @0x7
0x03ea…03f9 at0008 = ╱fe0000c002╱ // 0x3f2 @0x8
0x03ea…03f9 at000d = ╱b6╱ THEN ╱ // 0x3f7 @0xd
0x03ea…03f9 at000e = EOL // 0x3f8 @0xe
0x03ea…03f9 }
0x03f9…03ff 9156 0530 REPEAT
0x03f9…03ff LineComalBin {
0x03f9…03ff ptr = 0x9156 // 0x3f9 @0x0
0x03f9…03ff lno = 0x0212 // 0x3fb @0x2
0x03f9…03ff at0004 = ╱97╱ REPEAT ╱ // 0x3fd @0x4
0x03f9…03ff at0005 = EOL // 0x3fe @0x5
0x03f9…03ff }
0x03ff…0413 916a 0540 CURSOR 3,23
0x03ff…0413 LineComalBin {
0x03ff…0413 ptr = 0x916a // 0x3ff @0x0
0x03ff…0413 lno = 0x021c // 0x401 @0x2
0x03ff…0413 at0004 = ╱a1╱ CURSOR ╱ // 0x403 @0x4
0x03ff…0413 at0005 = ╱33╱3╱ // 0x404 @0x5
0x03ff…0413 at0006 = ╱fe0000c002╱ // 0x405 @0x6
0x03ff…0413 at000b = ╱ec╱,╱ // 0x40a @0xb
0x03ff…0413 at000c = ╱32╱2╱ // 0x40b @0xc
0x03ff…0413 at000d = ╱33╱3╱ // 0x40c @0xd
0x03ff…0413 at000e = ╱fe0000b805╱ // 0x40d @0xe
0x03ff…0413 at0013 = EOL // 0x412 @0x13
0x03ff…0413 }
0x0413…044c 91a3 0550 PRINT " 1 Momsprocent :";BLANK$(1:20)
0x0413…044c LineComalBin {
0x0413…044c ptr = 0x91a3 // 0x413 @0x0
0x0413…044c lno = 0x0226 // 0x415 @0x2
0x0413…044c at0004 = ╱92╱ PRINT ╱ // 0x417 @0x4
0x0413…044c at0005 = ╱22╱"╱ // 0x418 @0x5
0x0413…044c at0006 = ╱20╱…╱ // 0x419 @0x6
0x0413…044c at0007 = ╱31╱1╱ // 0x41a @0x7
0x0413…044c at0008 = ╱20╱…╱ // 0x41b @0x8
0x0413…044c at0009 = ╱20╱…╱ // 0x41c @0x9
0x0413…044c at000a = ╱4d╱M╱ // 0x41d @0xa
0x0413…044c at000b = ╱6f╱o╱ // 0x41e @0xb
0x0413…044c at000c = ╱6d╱m╱ // 0x41f @0xc
0x0413…044c at000d = ╱73╱s╱ // 0x420 @0xd
0x0413…044c at000e = ╱70╱p╱ // 0x421 @0xe
0x0413…044c at000f = ╱72╱r╱ // 0x422 @0xf
0x0413…044c at0010 = ╱6f╱o╱ // 0x423 @0x10
0x0413…044c at0011 = ╱63╱c╱ // 0x424 @0x11
0x0413…044c at0012 = ╱65╱e╱ // 0x425 @0x12
0x0413…044c at0013 = ╱6e╱n╱ // 0x426 @0x13
0x0413…044c at0014 = ╱74╱t╱ // 0x427 @0x14
0x0413…044c at0015 = ╱20╱…╱ // 0x428 @0x15
0x0413…044c at0016 = ╱20╱…╱ // 0x429 @0x16
0x0413…044c at0017 = ╱20╱…╱ // 0x42a @0x17
0x0413…044c at0018 = ╱20╱…╱ // 0x42b @0x18
0x0413…044c at0019 = ╱20╱…╱ // 0x42c @0x19
0x0413…044c at001a = ╱20╱…╱ // 0x42d @0x1a
0x0413…044c at001b = ╱20╱…╱ // 0x42e @0x1b
0x0413…044c at001c = ╱20╱…╱ // 0x42f @0x1c
0x0413…044c at001d = ╱20╱…╱ // 0x430 @0x1d
0x0413…044c at001e = ╱20╱…╱ // 0x431 @0x1e
0x0413…044c at001f = ╱3a╱:╱ // 0x432 @0x1f
0x0413…044c at0020 = ╱22╱"╱ // 0x433 @0x20
0x0413…044c at0021 = ╱eb╱;╱ // 0x434 @0x21
0x0413…044c at0022 = ╱42╱B╱ // 0x435 @0x22
0x0413…044c at0023 = ╱4c╱L╱ // 0x436 @0x23
0x0413…044c at0024 = ╱41╱A╱ // 0x437 @0x24
0x0413…044c at0025 = ╱4e╱N╱ // 0x438 @0x25
0x0413…044c at0026 = ╱4b╱K╱ // 0x439 @0x26
0x0413…044c at0027 = ╱ef╱$╱ // 0x43a @0x27
0x0413…044c at0028 = ╱ed╱(╱ // 0x43b @0x28
0x0413…044c at0029 = ╱31╱1╱ // 0x43c @0x29
0x0413…044c at002a = ╱fe00008001╱ // 0x43d @0x2a
0x0413…044c at002f = ╱f0╱:╱ // 0x442 @0x2f
0x0413…044c at0030 = ╱32╱2╱ // 0x443 @0x30
0x0413…044c at0031 = ╱30╱0╱ // 0x444 @0x31
0x0413…044c at0032 = ╱fe0000a005╱ // 0x445 @0x32
0x0413…044c at0037 = ╱ee╱)╱ // 0x44a @0x37
0x0413…044c at0038 = EOL // 0x44b @0x38
0x0413…044c }
0x044c…0461 91b8 0560 CURSOR 28,23
0x044c…0461 LineComalBin {
0x044c…0461 ptr = 0x91b8 // 0x44c @0x0
0x044c…0461 lno = 0x0230 // 0x44e @0x2
0x044c…0461 at0004 = ╱a1╱ CURSOR ╱ // 0x450 @0x4
0x044c…0461 at0005 = ╱32╱2╱ // 0x451 @0x5
0x044c…0461 at0006 = ╱38╱8╱ // 0x452 @0x6
0x044c…0461 at0007 = ╱fe0000e005╱ // 0x453 @0x7
0x044c…0461 at000c = ╱ec╱,╱ // 0x458 @0xc
0x044c…0461 at000d = ╱32╱2╱ // 0x459 @0xd
0x044c…0461 at000e = ╱33╱3╱ // 0x45a @0xe
0x044c…0461 at000f = ╱fe0000b805╱ // 0x45b @0xf
0x044c…0461 at0014 = EOL // 0x460 @0x14
0x044c…0461 }
0x0461…046b 91c2 0570 INPUT TAL$
0x0461…046b LineComalBin {
0x0461…046b ptr = 0x91c2 // 0x461 @0x0
0x0461…046b lno = 0x023a // 0x463 @0x2
0x0461…046b at0004 = ╱91╱ INPUT ╱ // 0x465 @0x4
0x0461…046b at0005 = ╱54╱T╱ // 0x466 @0x5
0x0461…046b at0006 = ╱41╱A╱ // 0x467 @0x6
0x0461…046b at0007 = ╱4c╱L╱ // 0x468 @0x7
0x0461…046b at0008 = ╱ef╱$╱ // 0x469 @0x8
0x0461…046b at0009 = EOL // 0x46a @0x9
0x0461…046b }
0x046b…047d 91d4 0580 TAL$=TAL$+"+"
0x046b…047d LineComalBin {
0x046b…047d ptr = 0x91d4 // 0x46b @0x0
0x046b…047d lno = 0x0244 // 0x46d @0x2
0x046b…047d at0004 = ╱54╱T╱ // 0x46f @0x4
0x046b…047d at0005 = ╱41╱A╱ // 0x470 @0x5
0x046b…047d at0006 = ╱4c╱L╱ // 0x471 @0x6
0x046b…047d at0007 = ╱ef╱$╱ // 0x472 @0x7
0x046b…047d at0008 = ╱dc╱=╱ // 0x473 @0x8
0x046b…047d at0009 = ╱54╱T╱ // 0x474 @0x9
0x046b…047d at000a = ╱41╱A╱ // 0x475 @0xa
0x046b…047d at000b = ╱4c╱L╱ // 0x476 @0xb
0x046b…047d at000c = ╱ef╱$╱ // 0x477 @0xc
0x046b…047d at000d = ╱f1╱+╱ // 0x478 @0xd
0x046b…047d at000e = ╱22╱"╱ // 0x479 @0xe
0x046b…047d at000f = ╱2b╱+╱ // 0x47a @0xf
0x046b…047d at0010 = ╱22╱"╱ // 0x47b @0x10
0x046b…047d at0011 = EOL // 0x47c @0x11
0x046b…047d }
0x047d…049e 91f5 0590 EXEC CALC(5,TAL$,TAL$,TAL$)
0x047d…049e LineComalBin {
0x047d…049e ptr = 0x91f5 // 0x47d @0x0
0x047d…049e lno = 0x024e // 0x47f @0x2
0x047d…049e at0004 = ╱9d╱ EXEC ╱ // 0x481 @0x4
0x047d…049e at0005 = ╱43╱C╱ // 0x482 @0x5
0x047d…049e at0006 = ╱41╱A╱ // 0x483 @0x6
0x047d…049e at0007 = ╱4c╱L╱ // 0x484 @0x7
0x047d…049e at0008 = ╱43╱C╱ // 0x485 @0x8
0x047d…049e at0009 = ╱ed╱(╱ // 0x486 @0x9
0x047d…049e at000a = ╱35╱5╱ // 0x487 @0xa
0x047d…049e at000b = ╱fe0000a003╱ // 0x488 @0xb
0x047d…049e at0010 = ╱ec╱,╱ // 0x48d @0x10
0x047d…049e at0011 = ╱54╱T╱ // 0x48e @0x11
0x047d…049e at0012 = ╱41╱A╱ // 0x48f @0x12
0x047d…049e at0013 = ╱4c╱L╱ // 0x490 @0x13
0x047d…049e at0014 = ╱ef╱$╱ // 0x491 @0x14
0x047d…049e at0015 = ╱ec╱,╱ // 0x492 @0x15
0x047d…049e at0016 = ╱54╱T╱ // 0x493 @0x16
0x047d…049e at0017 = ╱41╱A╱ // 0x494 @0x17
0x047d…049e at0018 = ╱4c╱L╱ // 0x495 @0x18
0x047d…049e at0019 = ╱ef╱$╱ // 0x496 @0x19
0x047d…049e at001a = ╱ec╱,╱ // 0x497 @0x1a
0x047d…049e at001b = ╱54╱T╱ // 0x498 @0x1b
0x047d…049e at001c = ╱41╱A╱ // 0x499 @0x1c
0x047d…049e at001d = ╱4c╱L╱ // 0x49a @0x1d
0x047d…049e at001e = ╱ef╱$╱ // 0x49b @0x1e
0x047d…049e at001f = ╱ee╱)╱ // 0x49c @0x1f
0x047d…049e at0020 = EOL // 0x49d @0x20
0x047d…049e }
0x049e…04af 9206 0600 UNTIL FLAG=0
0x049e…04af LineComalBin {
0x049e…04af ptr = 0x9206 // 0x49e @0x0
0x049e…04af lno = 0x0258 // 0x4a0 @0x2
0x049e…04af at0004 = ╱98╱ UNTIL ╱ // 0x4a2 @0x4
0x049e…04af at0005 = ╱46╱F╱ // 0x4a3 @0x5
0x049e…04af at0006 = ╱4c╱L╱ // 0x4a4 @0x6
0x049e…04af at0007 = ╱41╱A╱ // 0x4a5 @0x7
0x049e…04af at0008 = ╱47╱G╱ // 0x4a6 @0x8
0x049e…04af at0009 = ╱dc╱=╱ // 0x4a7 @0x9
0x049e…04af at000a = ╱30╱0╱ // 0x4a8 @0xa
0x049e…04af at000b = ╱fe00000000╱ // 0x4a9 @0xb
0x049e…04af at0010 = EOL // 0x4ae @0x10
0x049e…04af }
0x04af…04ce 9225 0610 MOMS$=TAL$(3:12)
0x04af…04ce LineComalBin {
0x04af…04ce ptr = 0x9225 // 0x4af @0x0
0x04af…04ce lno = 0x0262 // 0x4b1 @0x2
0x04af…04ce at0004 = ╱4d╱M╱ // 0x4b3 @0x4
0x04af…04ce at0005 = ╱4f╱O╱ // 0x4b4 @0x5
0x04af…04ce at0006 = ╱4d╱M╱ // 0x4b5 @0x6
0x04af…04ce at0007 = ╱53╱S╱ // 0x4b6 @0x7
0x04af…04ce at0008 = ╱ef╱$╱ // 0x4b7 @0x8
0x04af…04ce at0009 = ╱dc╱=╱ // 0x4b8 @0x9
0x04af…04ce at000a = ╱54╱T╱ // 0x4b9 @0xa
0x04af…04ce at000b = ╱41╱A╱ // 0x4ba @0xb
0x04af…04ce at000c = ╱4c╱L╱ // 0x4bb @0xc
0x04af…04ce at000d = ╱ef╱$╱ // 0x4bc @0xd
0x04af…04ce at000e = ╱ed╱(╱ // 0x4bd @0xe
0x04af…04ce at000f = ╱33╱3╱ // 0x4be @0xf
0x04af…04ce at0010 = ╱fe0000c002╱ // 0x4bf @0x10
0x04af…04ce at0015 = ╱f0╱:╱ // 0x4c4 @0x15
0x04af…04ce at0016 = ╱31╱1╱ // 0x4c5 @0x16
0x04af…04ce at0017 = ╱32╱2╱ // 0x4c6 @0x17
0x04af…04ce at0018 = ╱fe0000c004╱ // 0x4c7 @0x18
0x04af…04ce at001d = ╱ee╱)╱ // 0x4cc @0x1d
0x04af…04ce at001e = EOL // 0x4cd @0x1e
0x04af…04ce }
0x04ce…04d4 922b 0620 ENDIF
0x04ce…04d4 LineComalBin {
0x04ce…04d4 ptr = 0x922b // 0x4ce @0x0
0x04ce…04d4 lno = 0x026c // 0x4d0 @0x2
0x04ce…04d4 at0004 = ╱9b╱ ENDIF ╱ // 0x4d2 @0x4
0x04ce…04d4 at0005 = EOL // 0x4d3 @0x5
0x04ce…04d4 }
0x04d4…04e7 923e 0630 CURSOR 4,5
0x04d4…04e7 LineComalBin {
0x04d4…04e7 ptr = 0x923e // 0x4d4 @0x0
0x04d4…04e7 lno = 0x0276 // 0x4d6 @0x2
0x04d4…04e7 at0004 = ╱a1╱ CURSOR ╱ // 0x4d8 @0x4
0x04d4…04e7 at0005 = ╱34╱4╱ // 0x4d9 @0x5
0x04d4…04e7 at0006 = ╱fe00008003╱ // 0x4da @0x6
0x04d4…04e7 at000b = ╱ec╱,╱ // 0x4df @0xb
0x04d4…04e7 at000c = ╱35╱5╱ // 0x4e0 @0xc
0x04d4…04e7 at000d = ╱fe0000a003╱ // 0x4e1 @0xd
0x04d4…04e7 at0012 = EOL // 0x4e6 @0x12
0x04d4…04e7 }
0x04e7…051e 9275 0640 PRINT "1 Momsprocent :";MOMS$(1:11)
0x04e7…051e LineComalBin {
0x04e7…051e ptr = 0x9275 // 0x4e7 @0x0
0x04e7…051e lno = 0x0280 // 0x4e9 @0x2
0x04e7…051e at0004 = ╱92╱ PRINT ╱ // 0x4eb @0x4
0x04e7…051e at0005 = ╱22╱"╱ // 0x4ec @0x5
0x04e7…051e at0006 = ╱31╱1╱ // 0x4ed @0x6
0x04e7…051e at0007 = ╱20╱…╱ // 0x4ee @0x7
0x04e7…051e at0008 = ╱20╱…╱ // 0x4ef @0x8
0x04e7…051e at0009 = ╱4d╱M╱ // 0x4f0 @0x9
0x04e7…051e at000a = ╱6f╱o╱ // 0x4f1 @0xa
0x04e7…051e at000b = ╱6d╱m╱ // 0x4f2 @0xb
0x04e7…051e at000c = ╱73╱s╱ // 0x4f3 @0xc
0x04e7…051e at000d = ╱70╱p╱ // 0x4f4 @0xd
0x04e7…051e at000e = ╱72╱r╱ // 0x4f5 @0xe
0x04e7…051e at000f = ╱6f╱o╱ // 0x4f6 @0xf
0x04e7…051e at0010 = ╱63╱c╱ // 0x4f7 @0x10
0x04e7…051e at0011 = ╱65╱e╱ // 0x4f8 @0x11
0x04e7…051e at0012 = ╱6e╱n╱ // 0x4f9 @0x12
0x04e7…051e at0013 = ╱74╱t╱ // 0x4fa @0x13
0x04e7…051e at0014 = ╱20╱…╱ // 0x4fb @0x14
0x04e7…051e at0015 = ╱20╱…╱ // 0x4fc @0x15
0x04e7…051e at0016 = ╱20╱…╱ // 0x4fd @0x16
0x04e7…051e at0017 = ╱20╱…╱ // 0x4fe @0x17
0x04e7…051e at0018 = ╱20╱…╱ // 0x4ff @0x18
0x04e7…051e at0019 = ╱20╱…╱ // 0x500 @0x19
0x04e7…051e at001a = ╱20╱…╱ // 0x501 @0x1a
0x04e7…051e at001b = ╱20╱…╱ // 0x502 @0x1b
0x04e7…051e at001c = ╱20╱…╱ // 0x503 @0x1c
0x04e7…051e at001d = ╱20╱…╱ // 0x504 @0x1d
0x04e7…051e at001e = ╱3a╱:╱ // 0x505 @0x1e
0x04e7…051e at001f = ╱22╱"╱ // 0x506 @0x1f
0x04e7…051e at0020 = ╱eb╱;╱ // 0x507 @0x20
0x04e7…051e at0021 = ╱4d╱M╱ // 0x508 @0x21
0x04e7…051e at0022 = ╱4f╱O╱ // 0x509 @0x22
0x04e7…051e at0023 = ╱4d╱M╱ // 0x50a @0x23
0x04e7…051e at0024 = ╱53╱S╱ // 0x50b @0x24
0x04e7…051e at0025 = ╱ef╱$╱ // 0x50c @0x25
0x04e7…051e at0026 = ╱ed╱(╱ // 0x50d @0x26
0x04e7…051e at0027 = ╱31╱1╱ // 0x50e @0x27
0x04e7…051e at0028 = ╱fe00008001╱ // 0x50f @0x28
0x04e7…051e at002d = ╱f0╱:╱ // 0x514 @0x2d
0x04e7…051e at002e = ╱31╱1╱ // 0x515 @0x2e
0x04e7…051e at002f = ╱31╱1╱ // 0x516 @0x2f
0x04e7…051e at0030 = ╱fe0000b004╱ // 0x517 @0x30
0x04e7…051e at0035 = ╱ee╱)╱ // 0x51c @0x35
0x04e7…051e at0036 = EOL // 0x51d @0x36
0x04e7…051e }
0x051e…052b 9282 0650 WHEN 2
0x051e…052b LineComalBin {
0x051e…052b ptr = 0x9282 // 0x51e @0x0
0x051e…052b lno = 0x028a // 0x520 @0x2
0x051e…052b at0004 = ╱a301╱ WHEN ╱ // 0x522 @0x4
0x051e…052b at0006 = ╱32╱2╱ // 0x524 @0x6
0x051e…052b at0007 = ╱fe00008002╱ // 0x525 @0x7
0x051e…052b at000c = EOL // 0x52a @0xc
0x051e…052b }
0x052b…054c 92a3 0660 CB$="Fakturanummer :"
0x052b…054c LineComalBin {
0x052b…054c ptr = 0x92a3 // 0x52b @0x0
0x052b…054c lno = 0x0294 // 0x52d @0x2
0x052b…054c at0004 = ╱43╱C╱ // 0x52f @0x4
0x052b…054c at0005 = ╱42╱B╱ // 0x530 @0x5
0x052b…054c at0006 = ╱ef╱$╱ // 0x531 @0x6
0x052b…054c at0007 = ╱dc╱=╱ // 0x532 @0x7
0x052b…054c at0008 = ╱22╱"╱ // 0x533 @0x8
0x052b…054c at0009 = ╱46╱F╱ // 0x534 @0x9
0x052b…054c at000a = ╱61╱a╱ // 0x535 @0xa
0x052b…054c at000b = ╱6b╱k╱ // 0x536 @0xb
0x052b…054c at000c = ╱74╱t╱ // 0x537 @0xc
0x052b…054c at000d = ╱75╱u╱ // 0x538 @0xd
0x052b…054c at000e = ╱72╱r╱ // 0x539 @0xe
0x052b…054c at000f = ╱61╱a╱ // 0x53a @0xf
0x052b…054c at0010 = ╱6e╱n╱ // 0x53b @0x10
0x052b…054c at0011 = ╱75╱u╱ // 0x53c @0x11
0x052b…054c at0012 = ╱6d╱m╱ // 0x53d @0x12
0x052b…054c at0013 = ╱6d╱m╱ // 0x53e @0x13
0x052b…054c at0014 = ╱65╱e╱ // 0x53f @0x14
0x052b…054c at0015 = ╱72╱r╱ // 0x540 @0x15
0x052b…054c at0016 = ╱20╱…╱ // 0x541 @0x16
0x052b…054c at0017 = ╱20╱…╱ // 0x542 @0x17
0x052b…054c at0018 = ╱20╱…╱ // 0x543 @0x18
0x052b…054c at0019 = ╱20╱…╱ // 0x544 @0x19
0x052b…054c at001a = ╱20╱…╱ // 0x545 @0x1a
0x052b…054c at001b = ╱20╱…╱ // 0x546 @0x1b
0x052b…054c at001c = ╱20╱…╱ // 0x547 @0x1c
0x052b…054c at001d = ╱20╱…╱ // 0x548 @0x1d
0x052b…054c at001e = ╱3a╱:╱ // 0x549 @0x1e
0x052b…054c at001f = ╱22╱"╱ // 0x54a @0x1f
0x052b…054c at0020 = EOL // 0x54b @0x20
0x052b…054c }
0x054c…0559 92b0 0670 WHEN 3
0x054c…0559 LineComalBin {
0x054c…0559 ptr = 0x92b0 // 0x54c @0x0
0x054c…0559 lno = 0x029e // 0x54e @0x2
0x054c…0559 at0004 = ╱a301╱ WHEN ╱ // 0x550 @0x4
0x054c…0559 at0006 = ╱33╱3╱ // 0x552 @0x6
0x054c…0559 at0007 = ╱fe0000c002╱ // 0x553 @0x7
0x054c…0559 at000c = EOL // 0x558 @0xc
0x054c…0559 }
0x0559…057a 92d1 0680 CB$="Kreditnotanummer :"
0x0559…057a LineComalBin {
0x0559…057a ptr = 0x92d1 // 0x559 @0x0
0x0559…057a lno = 0x02a8 // 0x55b @0x2
0x0559…057a at0004 = ╱43╱C╱ // 0x55d @0x4
0x0559…057a at0005 = ╱42╱B╱ // 0x55e @0x5
0x0559…057a at0006 = ╱ef╱$╱ // 0x55f @0x6
0x0559…057a at0007 = ╱dc╱=╱ // 0x560 @0x7
0x0559…057a at0008 = ╱22╱"╱ // 0x561 @0x8
0x0559…057a at0009 = ╱4b╱K╱ // 0x562 @0x9
0x0559…057a at000a = ╱72╱r╱ // 0x563 @0xa
0x0559…057a at000b = ╱65╱e╱ // 0x564 @0xb
0x0559…057a at000c = ╱64╱d╱ // 0x565 @0xc
0x0559…057a at000d = ╱69╱i╱ // 0x566 @0xd
0x0559…057a at000e = ╱74╱t╱ // 0x567 @0xe
0x0559…057a at000f = ╱6e╱n╱ // 0x568 @0xf
0x0559…057a at0010 = ╱6f╱o╱ // 0x569 @0x10
0x0559…057a at0011 = ╱74╱t╱ // 0x56a @0x11
0x0559…057a at0012 = ╱61╱a╱ // 0x56b @0x12
0x0559…057a at0013 = ╱6e╱n╱ // 0x56c @0x13
0x0559…057a at0014 = ╱75╱u╱ // 0x56d @0x14
0x0559…057a at0015 = ╱6d╱m╱ // 0x56e @0x15
0x0559…057a at0016 = ╱6d╱m╱ // 0x56f @0x16
0x0559…057a at0017 = ╱65╱e╱ // 0x570 @0x17
0x0559…057a at0018 = ╱72╱r╱ // 0x571 @0x18
0x0559…057a at0019 = ╱20╱…╱ // 0x572 @0x19
0x0559…057a at001a = ╱20╱…╱ // 0x573 @0x1a
0x0559…057a at001b = ╱20╱…╱ // 0x574 @0x1b
0x0559…057a at001c = ╱20╱…╱ // 0x575 @0x1c
0x0559…057a at001d = ╱20╱…╱ // 0x576 @0x1d
0x0559…057a at001e = ╱3a╱:╱ // 0x577 @0x1e
0x0559…057a at001f = ╱22╱"╱ // 0x578 @0x1f
0x0559…057a at0020 = EOL // 0x579 @0x20
0x0559…057a }
0x057a…0587 92de 0690 WHEN 4
0x057a…0587 LineComalBin {
0x057a…0587 ptr = 0x92de // 0x57a @0x0
0x057a…0587 lno = 0x02b2 // 0x57c @0x2
0x057a…0587 at0004 = ╱a301╱ WHEN ╱ // 0x57e @0x4
0x057a…0587 at0006 = ╱34╱4╱ // 0x580 @0x6
0x057a…0587 at0007 = ╱fe00008003╱ // 0x581 @0x7
0x057a…0587 at000c = EOL // 0x586 @0xc
0x057a…0587 }
0x0587…05a8 92ff 0700 CB$="Fakturajournalside :"
0x0587…05a8 LineComalBin {
0x0587…05a8 ptr = 0x92ff // 0x587 @0x0
0x0587…05a8 lno = 0x02bc // 0x589 @0x2
0x0587…05a8 at0004 = ╱43╱C╱ // 0x58b @0x4
0x0587…05a8 at0005 = ╱42╱B╱ // 0x58c @0x5
0x0587…05a8 at0006 = ╱ef╱$╱ // 0x58d @0x6
0x0587…05a8 at0007 = ╱dc╱=╱ // 0x58e @0x7
0x0587…05a8 at0008 = ╱22╱"╱ // 0x58f @0x8
0x0587…05a8 at0009 = ╱46╱F╱ // 0x590 @0x9
0x0587…05a8 at000a = ╱61╱a╱ // 0x591 @0xa
0x0587…05a8 at000b = ╱6b╱k╱ // 0x592 @0xb
0x0587…05a8 at000c = ╱74╱t╱ // 0x593 @0xc
0x0587…05a8 at000d = ╱75╱u╱ // 0x594 @0xd
0x0587…05a8 at000e = ╱72╱r╱ // 0x595 @0xe
0x0587…05a8 at000f = ╱61╱a╱ // 0x596 @0xf
0x0587…05a8 at0010 = ╱6a╱j╱ // 0x597 @0x10
0x0587…05a8 at0011 = ╱6f╱o╱ // 0x598 @0x11
0x0587…05a8 at0012 = ╱75╱u╱ // 0x599 @0x12
0x0587…05a8 at0013 = ╱72╱r╱ // 0x59a @0x13
0x0587…05a8 at0014 = ╱6e╱n╱ // 0x59b @0x14
0x0587…05a8 at0015 = ╱61╱a╱ // 0x59c @0x15
0x0587…05a8 at0016 = ╱6c╱l╱ // 0x59d @0x16
0x0587…05a8 at0017 = ╱73╱s╱ // 0x59e @0x17
0x0587…05a8 at0018 = ╱69╱i╱ // 0x59f @0x18
0x0587…05a8 at0019 = ╱64╱d╱ // 0x5a0 @0x19
0x0587…05a8 at001a = ╱65╱e╱ // 0x5a1 @0x1a
0x0587…05a8 at001b = ╱20╱…╱ // 0x5a2 @0x1b
0x0587…05a8 at001c = ╱20╱…╱ // 0x5a3 @0x1c
0x0587…05a8 at001d = ╱20╱…╱ // 0x5a4 @0x1d
0x0587…05a8 at001e = ╱3a╱:╱ // 0x5a5 @0x1e
0x0587…05a8 at001f = ╱22╱"╱ // 0x5a6 @0x1f
0x0587…05a8 at0020 = EOL // 0x5a7 @0x20
0x0587…05a8 }
0x05a8…05b5 930c 0710 WHEN 5
0x05a8…05b5 LineComalBin {
0x05a8…05b5 ptr = 0x930c // 0x5a8 @0x0
0x05a8…05b5 lno = 0x02c6 // 0x5aa @0x2
0x05a8…05b5 at0004 = ╱a301╱ WHEN ╱ // 0x5ac @0x4
0x05a8…05b5 at0006 = ╱35╱5╱ // 0x5ae @0x6
0x05a8…05b5 at0007 = ╱fe0000a003╱ // 0x5af @0x7
0x05a8…05b5 at000c = EOL // 0x5b4 @0xc
0x05a8…05b5 }
0x05b5…05d6 932d 0720 CB$="Kasserapportside :"
0x05b5…05d6 LineComalBin {
0x05b5…05d6 ptr = 0x932d // 0x5b5 @0x0
0x05b5…05d6 lno = 0x02d0 // 0x5b7 @0x2
0x05b5…05d6 at0004 = ╱43╱C╱ // 0x5b9 @0x4
0x05b5…05d6 at0005 = ╱42╱B╱ // 0x5ba @0x5
0x05b5…05d6 at0006 = ╱ef╱$╱ // 0x5bb @0x6
0x05b5…05d6 at0007 = ╱dc╱=╱ // 0x5bc @0x7
0x05b5…05d6 at0008 = ╱22╱"╱ // 0x5bd @0x8
0x05b5…05d6 at0009 = ╱4b╱K╱ // 0x5be @0x9
0x05b5…05d6 at000a = ╱61╱a╱ // 0x5bf @0xa
0x05b5…05d6 at000b = ╱73╱s╱ // 0x5c0 @0xb
0x05b5…05d6 at000c = ╱73╱s╱ // 0x5c1 @0xc
0x05b5…05d6 at000d = ╱65╱e╱ // 0x5c2 @0xd
0x05b5…05d6 at000e = ╱72╱r╱ // 0x5c3 @0xe
0x05b5…05d6 at000f = ╱61╱a╱ // 0x5c4 @0xf
0x05b5…05d6 at0010 = ╱70╱p╱ // 0x5c5 @0x10
0x05b5…05d6 at0011 = ╱70╱p╱ // 0x5c6 @0x11
0x05b5…05d6 at0012 = ╱6f╱o╱ // 0x5c7 @0x12
0x05b5…05d6 at0013 = ╱72╱r╱ // 0x5c8 @0x13
0x05b5…05d6 at0014 = ╱74╱t╱ // 0x5c9 @0x14
0x05b5…05d6 at0015 = ╱73╱s╱ // 0x5ca @0x15
0x05b5…05d6 at0016 = ╱69╱i╱ // 0x5cb @0x16
0x05b5…05d6 at0017 = ╱64╱d╱ // 0x5cc @0x17
0x05b5…05d6 at0018 = ╱65╱e╱ // 0x5cd @0x18
0x05b5…05d6 at0019 = ╱20╱…╱ // 0x5ce @0x19
0x05b5…05d6 at001a = ╱20╱…╱ // 0x5cf @0x1a
0x05b5…05d6 at001b = ╱20╱…╱ // 0x5d0 @0x1b
0x05b5…05d6 at001c = ╱20╱…╱ // 0x5d1 @0x1c
0x05b5…05d6 at001d = ╱20╱…╱ // 0x5d2 @0x1d
0x05b5…05d6 at001e = ╱3a╱:╱ // 0x5d3 @0x1e
0x05b5…05d6 at001f = ╱22╱"╱ // 0x5d4 @0x1f
0x05b5…05d6 at0020 = EOL // 0x5d5 @0x20
0x05b5…05d6 }
0x05d6…05e3 933a 0730 WHEN 6
0x05d6…05e3 LineComalBin {
0x05d6…05e3 ptr = 0x933a // 0x5d6 @0x0
0x05d6…05e3 lno = 0x02da // 0x5d8 @0x2
0x05d6…05e3 at0004 = ╱a301╱ WHEN ╱ // 0x5da @0x4
0x05d6…05e3 at0006 = ╱36╱6╱ // 0x5dc @0x6
0x05d6…05e3 at0007 = ╱fe0000c003╱ // 0x5dd @0x7
0x05d6…05e3 at000c = EOL // 0x5e2 @0xc
0x05d6…05e3 }
0x05e3…0604 935b 0740 CB$="Posteringsarkside :"
0x05e3…0604 LineComalBin {
0x05e3…0604 ptr = 0x935b // 0x5e3 @0x0
0x05e3…0604 lno = 0x02e4 // 0x5e5 @0x2
0x05e3…0604 at0004 = ╱43╱C╱ // 0x5e7 @0x4
0x05e3…0604 at0005 = ╱42╱B╱ // 0x5e8 @0x5
0x05e3…0604 at0006 = ╱ef╱$╱ // 0x5e9 @0x6
0x05e3…0604 at0007 = ╱dc╱=╱ // 0x5ea @0x7
0x05e3…0604 at0008 = ╱22╱"╱ // 0x5eb @0x8
0x05e3…0604 at0009 = ╱50╱P╱ // 0x5ec @0x9
0x05e3…0604 at000a = ╱6f╱o╱ // 0x5ed @0xa
0x05e3…0604 at000b = ╱73╱s╱ // 0x5ee @0xb
0x05e3…0604 at000c = ╱74╱t╱ // 0x5ef @0xc
0x05e3…0604 at000d = ╱65╱e╱ // 0x5f0 @0xd
0x05e3…0604 at000e = ╱72╱r╱ // 0x5f1 @0xe
0x05e3…0604 at000f = ╱69╱i╱ // 0x5f2 @0xf
0x05e3…0604 at0010 = ╱6e╱n╱ // 0x5f3 @0x10
0x05e3…0604 at0011 = ╱67╱g╱ // 0x5f4 @0x11
0x05e3…0604 at0012 = ╱73╱s╱ // 0x5f5 @0x12
0x05e3…0604 at0013 = ╱61╱a╱ // 0x5f6 @0x13
0x05e3…0604 at0014 = ╱72╱r╱ // 0x5f7 @0x14
0x05e3…0604 at0015 = ╱6b╱k╱ // 0x5f8 @0x15
0x05e3…0604 at0016 = ╱73╱s╱ // 0x5f9 @0x16
0x05e3…0604 at0017 = ╱69╱i╱ // 0x5fa @0x17
0x05e3…0604 at0018 = ╱64╱d╱ // 0x5fb @0x18
0x05e3…0604 at0019 = ╱65╱e╱ // 0x5fc @0x19
0x05e3…0604 at001a = ╱20╱…╱ // 0x5fd @0x1a
0x05e3…0604 at001b = ╱20╱…╱ // 0x5fe @0x1b
0x05e3…0604 at001c = ╱20╱…╱ // 0x5ff @0x1c
0x05e3…0604 at001d = ╱20╱…╱ // 0x600 @0x1d
0x05e3…0604 at001e = ╱3a╱:╱ // 0x601 @0x1e
0x05e3…0604 at001f = ╱22╱"╱ // 0x602 @0x1f
0x05e3…0604 at0020 = EOL // 0x603 @0x20
0x05e3…0604 }
0x0604…0611 (20,) 9368 0750 WHEN 7
0x0604…0611 LineComalBin {
0x0604…0611 ptr = 0x9368 // 0x604 @0x0
0x0604…0611 lno = 0x02ee // 0x606 @0x2
0x0604…0611 at0004 = ╱a301╱ WHEN ╱ // 0x608 @0x4
0x0604…0611 at0006 = ╱37╱7╱ // 0x60a @0x6
0x0604…0611 at0007 = ╱fe0000e003╱ // 0x60b @0x7
0x0604…0611 at000c = EOL // 0x610 @0xc
0x0604…0611 }
0x0611…0632 9389 0760 CB$="Bogholderijournalside:"
0x0611…0632 LineComalBin {
0x0611…0632 ptr = 0x9389 // 0x611 @0x0
0x0611…0632 lno = 0x02f8 // 0x613 @0x2
0x0611…0632 at0004 = ╱43╱C╱ // 0x615 @0x4
0x0611…0632 at0005 = ╱42╱B╱ // 0x616 @0x5
0x0611…0632 at0006 = ╱ef╱$╱ // 0x617 @0x6
0x0611…0632 at0007 = ╱dc╱=╱ // 0x618 @0x7
0x0611…0632 at0008 = ╱22╱"╱ // 0x619 @0x8
0x0611…0632 at0009 = ╱42╱B╱ // 0x61a @0x9
0x0611…0632 at000a = ╱6f╱o╱ // 0x61b @0xa
0x0611…0632 at000b = ╱67╱g╱ // 0x61c @0xb
0x0611…0632 at000c = ╱68╱h╱ // 0x61d @0xc
0x0611…0632 at000d = ╱6f╱o╱ // 0x61e @0xd
0x0611…0632 at000e = ╱6c╱l╱ // 0x61f @0xe
0x0611…0632 at000f = ╱64╱d╱ // 0x620 @0xf
0x0611…0632 at0010 = ╱65╱e╱ // 0x621 @0x10
0x0611…0632 at0011 = ╱72╱r╱ // 0x622 @0x11
0x0611…0632 at0012 = ╱69╱i╱ // 0x623 @0x12
0x0611…0632 at0013 = ╱6a╱j╱ // 0x624 @0x13
0x0611…0632 at0014 = ╱6f╱o╱ // 0x625 @0x14
0x0611…0632 at0015 = ╱75╱u╱ // 0x626 @0x15
0x0611…0632 at0016 = ╱72╱r╱ // 0x627 @0x16
0x0611…0632 at0017 = ╱6e╱n╱ // 0x628 @0x17
0x0611…0632 at0018 = ╱61╱a╱ // 0x629 @0x18
0x0611…0632 at0019 = ╱6c╱l╱ // 0x62a @0x19
0x0611…0632 at001a = ╱73╱s╱ // 0x62b @0x1a
0x0611…0632 at001b = ╱69╱i╱ // 0x62c @0x1b
0x0611…0632 at001c = ╱64╱d╱ // 0x62d @0x1c
0x0611…0632 at001d = ╱65╱e╱ // 0x62e @0x1d
0x0611…0632 at001e = ╱3a╱:╱ // 0x62f @0x1e
0x0611…0632 at001f = ╱22╱"╱ // 0x630 @0x1f
0x0611…0632 at0020 = EOL // 0x631 @0x20
0x0611…0632 }
0x0632…063f 9396 0770 WHEN 8
0x0632…063f LineComalBin {
0x0632…063f ptr = 0x9396 // 0x632 @0x0
0x0632…063f lno = 0x0302 // 0x634 @0x2
0x0632…063f at0004 = ╱a301╱ WHEN ╱ // 0x636 @0x4
0x0632…063f at0006 = ╱38╱8╱ // 0x638 @0x6
0x0632…063f at0007 = ╱fe00008004╱ // 0x639 @0x7
0x0632…063f at000c = EOL // 0x63e @0xc
0x0632…063f }
0x063f…0660 93b7 0780 CB$="Dato (ÅÅmmdd) :"
0x063f…0660 LineComalBin {
0x063f…0660 ptr = 0x93b7 // 0x63f @0x0
0x063f…0660 lno = 0x030c // 0x641 @0x2
0x063f…0660 at0004 = ╱43╱C╱ // 0x643 @0x4
0x063f…0660 at0005 = ╱42╱B╱ // 0x644 @0x5
0x063f…0660 at0006 = ╱ef╱$╱ // 0x645 @0x6
0x063f…0660 at0007 = ╱dc╱=╱ // 0x646 @0x7
0x063f…0660 at0008 = ╱22╱"╱ // 0x647 @0x8
0x063f…0660 at0009 = ╱44╱D╱ // 0x648 @0x9
0x063f…0660 at000a = ╱61╱a╱ // 0x649 @0xa
0x063f…0660 at000b = ╱74╱t╱ // 0x64a @0xb
0x063f…0660 at000c = ╱6f╱o╱ // 0x64b @0xc
0x063f…0660 at000d = ╱20╱…╱ // 0x64c @0xd
0x063f…0660 at000e = ╱28╱(╱ // 0x64d @0xe
0x063f…0660 at000f = ╱5d╱Å╱ // 0x64e @0xf
0x063f…0660 at0010 = ╱5d╱Å╱ // 0x64f @0x10
0x063f…0660 at0011 = ╱6d╱m╱ // 0x650 @0x11
0x063f…0660 at0012 = ╱6d╱m╱ // 0x651 @0x12
0x063f…0660 at0013 = ╱64╱d╱ // 0x652 @0x13
0x063f…0660 at0014 = ╱64╱d╱ // 0x653 @0x14
0x063f…0660 at0015 = ╱29╱)╱ // 0x654 @0x15
0x063f…0660 at0016 = ╱20╱…╱ // 0x655 @0x16
0x063f…0660 at0017 = ╱20╱…╱ // 0x656 @0x17
0x063f…0660 at0018 = ╱20╱…╱ // 0x657 @0x18
0x063f…0660 at0019 = ╱20╱…╱ // 0x658 @0x19
0x063f…0660 at001a = ╱20╱…╱ // 0x659 @0x1a
0x063f…0660 at001b = ╱20╱…╱ // 0x65a @0x1b
0x063f…0660 at001c = ╱20╱…╱ // 0x65b @0x1c
0x063f…0660 at001d = ╱20╱…╱ // 0x65c @0x1d
0x063f…0660 at001e = ╱3a╱:╱ // 0x65d @0x1e
0x063f…0660 at001f = ╱22╱"╱ // 0x65e @0x1f
0x063f…0660 at0020 = EOL // 0x65f @0x20
0x063f…0660 }
0x0660…066d 93c4 0790 WHEN 9
0x0660…066d LineComalBin {
0x0660…066d ptr = 0x93c4 // 0x660 @0x0
0x0660…066d lno = 0x0316 // 0x662 @0x2
0x0660…066d at0004 = ╱a301╱ WHEN ╱ // 0x664 @0x4
0x0660…066d at0006 = ╱39╱9╱ // 0x666 @0x6
0x0660…066d at0007 = ╱fe00009004╱ // 0x667 @0x7
0x0660…066d at000c = EOL // 0x66c @0xc
0x0660…066d }
0x066d…068e 93e5 0800 CB$="Bilagsnummer :"
0x066d…068e LineComalBin {
0x066d…068e ptr = 0x93e5 // 0x66d @0x0
0x066d…068e lno = 0x0320 // 0x66f @0x2
0x066d…068e at0004 = ╱43╱C╱ // 0x671 @0x4
0x066d…068e at0005 = ╱42╱B╱ // 0x672 @0x5
0x066d…068e at0006 = ╱ef╱$╱ // 0x673 @0x6
0x066d…068e at0007 = ╱dc╱=╱ // 0x674 @0x7
0x066d…068e at0008 = ╱22╱"╱ // 0x675 @0x8
0x066d…068e at0009 = ╱42╱B╱ // 0x676 @0x9
0x066d…068e at000a = ╱69╱i╱ // 0x677 @0xa
0x066d…068e at000b = ╱6c╱l╱ // 0x678 @0xb
0x066d…068e at000c = ╱61╱a╱ // 0x679 @0xc
0x066d…068e at000d = ╱67╱g╱ // 0x67a @0xd
0x066d…068e at000e = ╱73╱s╱ // 0x67b @0xe
0x066d…068e at000f = ╱6e╱n╱ // 0x67c @0xf
0x066d…068e at0010 = ╱75╱u╱ // 0x67d @0x10
0x066d…068e at0011 = ╱6d╱m╱ // 0x67e @0x11
0x066d…068e at0012 = ╱6d╱m╱ // 0x67f @0x12
0x066d…068e at0013 = ╱65╱e╱ // 0x680 @0x13
0x066d…068e at0014 = ╱72╱r╱ // 0x681 @0x14
0x066d…068e at0015 = ╱20╱…╱ // 0x682 @0x15
0x066d…068e at0016 = ╱20╱…╱ // 0x683 @0x16
0x066d…068e at0017 = ╱20╱…╱ // 0x684 @0x17
0x066d…068e at0018 = ╱20╱…╱ // 0x685 @0x18
0x066d…068e at0019 = ╱20╱…╱ // 0x686 @0x19
0x066d…068e at001a = ╱20╱…╱ // 0x687 @0x1a
0x066d…068e at001b = ╱20╱…╱ // 0x688 @0x1b
0x066d…068e at001c = ╱20╱…╱ // 0x689 @0x1c
0x066d…068e at001d = ╱20╱…╱ // 0x68a @0x1d
0x066d…068e at001e = ╱3a╱:╱ // 0x68b @0x1e
0x066d…068e at001f = ╱22╱"╱ // 0x68c @0x1f
0x066d…068e at0020 = EOL // 0x68d @0x20
0x066d…068e }
0x068e…0694 93eb 0810 ENDCASE
0x068e…0694 LineComalBin {
0x068e…0694 ptr = 0x93eb // 0x68e @0x0
0x068e…0694 lno = 0x032a // 0x690 @0x2
0x068e…0694 at0004 = ╱a4╱ ENDCASE ╱ // 0x692 @0x4
0x068e…0694 at0005 = EOL // 0x693 @0x5
0x068e…0694 }
0x0694…06b6 940d 0820 IF CNR<>1 THEN EXEC INDTAST(CB$,CNR)
0x0694…06b6 LineComalBin {
0x0694…06b6 ptr = 0x940d // 0x694 @0x0
0x0694…06b6 lno = 0x0334 // 0x696 @0x2
0x0694…06b6 at0004 = ╱82╱ IF ╱ // 0x698 @0x4
0x0694…06b6 at0005 = ╱43╱C╱ // 0x699 @0x5
0x0694…06b6 at0006 = ╱4e╱N╱ // 0x69a @0x6
0x0694…06b6 at0007 = ╱52╱R╱ // 0x69b @0x7
0x0694…06b6 at0008 = ╱e1╱<>╱ // 0x69c @0x8
0x0694…06b6 at0009 = ╱31╱1╱ // 0x69d @0x9
0x0694…06b6 at000a = ╱fe00008001╱ // 0x69e @0xa
0x0694…06b6 at000f = ╱b6╱ THEN ╱ // 0x6a3 @0xf
0x0694…06b6 at0010 = ╱9d╱ EXEC ╱ // 0x6a4 @0x10
0x0694…06b6 at0011 = ╱49╱I╱ // 0x6a5 @0x11
0x0694…06b6 at0012 = ╱4e╱N╱ // 0x6a6 @0x12
0x0694…06b6 at0013 = ╱44╱D╱ // 0x6a7 @0x13
0x0694…06b6 at0014 = ╱54╱T╱ // 0x6a8 @0x14
0x0694…06b6 at0015 = ╱41╱A╱ // 0x6a9 @0x15
0x0694…06b6 at0016 = ╱53╱S╱ // 0x6aa @0x16
0x0694…06b6 at0017 = ╱54╱T╱ // 0x6ab @0x17
0x0694…06b6 at0018 = ╱ed╱(╱ // 0x6ac @0x18
0x0694…06b6 at0019 = ╱43╱C╱ // 0x6ad @0x19
0x0694…06b6 at001a = ╱42╱B╱ // 0x6ae @0x1a
0x0694…06b6 at001b = ╱ef╱$╱ // 0x6af @0x1b
0x0694…06b6 at001c = ╱ec╱,╱ // 0x6b0 @0x1c
0x0694…06b6 at001d = ╱43╱C╱ // 0x6b1 @0x1d
0x0694…06b6 at001e = ╱4e╱N╱ // 0x6b2 @0x1e
0x0694…06b6 at001f = ╱52╱R╱ // 0x6b3 @0x1f
0x0694…06b6 at0020 = ╱ee╱)╱ // 0x6b4 @0x20
0x0694…06b6 at0021 = EOL // 0x6b5 @0x21
0x0694…06b6 }
0x06b6…06c5 941c 0830 IF C=2 THEN
0x06b6…06c5 LineComalBin {
0x06b6…06c5 ptr = 0x941c // 0x6b6 @0x0
0x06b6…06c5 lno = 0x033e // 0x6b8 @0x2
0x06b6…06c5 at0004 = ╱9c╱ IF ╱ // 0x6ba @0x4
0x06b6…06c5 at0005 = ╱43╱C╱ // 0x6bb @0x5
0x06b6…06c5 at0006 = ╱dc╱=╱ // 0x6bc @0x6
0x06b6…06c5 at0007 = ╱32╱2╱ // 0x6bd @0x7
0x06b6…06c5 at0008 = ╱fe00008002╱ // 0x6be @0x8
0x06b6…06c5 at000d = ╱b6╱ THEN ╱ // 0x6c3 @0xd
0x06b6…06c5 at000e = EOL // 0x6c4 @0xe
0x06b6…06c5 }
0x06c5…06d5 942c 0840 CNR=10
0x06c5…06d5 LineComalBin {
0x06c5…06d5 ptr = 0x942c // 0x6c5 @0x0
0x06c5…06d5 lno = 0x0348 // 0x6c7 @0x2
0x06c5…06d5 at0004 = ╱43╱C╱ // 0x6c9 @0x4
0x06c5…06d5 at0005 = ╱4e╱N╱ // 0x6ca @0x5
0x06c5…06d5 at0006 = ╱52╱R╱ // 0x6cb @0x6
0x06c5…06d5 at0007 = ╱dc╱=╱ // 0x6cc @0x7
0x06c5…06d5 at0008 = ╱31╱1╱ // 0x6cd @0x8
0x06c5…06d5 at0009 = ╱30╱0╱ // 0x6ce @0x9
0x06c5…06d5 at000a = ╱fe0000a004╱ // 0x6cf @0xa
0x06c5…06d5 at000f = EOL // 0x6d4 @0xf
0x06c5…06d5 }
0x06d5…06db 9432 0850 ELSE
0x06d5…06db LineComalBin {
0x06d5…06db ptr = 0x9432 // 0x6d5 @0x0
0x06d5…06db lno = 0x0352 // 0x6d7 @0x2
0x06d5…06db at0004 = ╱9a╱ ELSE ╱ // 0x6d9 @0x4
0x06d5…06db at0005 = EOL // 0x6da @0x5
0x06d5…06db }
0x06db…06ee 9445 0860 CNR=CNR+1
0x06db…06ee LineComalBin {
0x06db…06ee ptr = 0x9445 // 0x6db @0x0
0x06db…06ee lno = 0x035c // 0x6dd @0x2
0x06db…06ee at0004 = ╱43╱C╱ // 0x6df @0x4
0x06db…06ee at0005 = ╱4e╱N╱ // 0x6e0 @0x5
0x06db…06ee at0006 = ╱52╱R╱ // 0x6e1 @0x6
0x06db…06ee at0007 = ╱dc╱=╱ // 0x6e2 @0x7
0x06db…06ee at0008 = ╱43╱C╱ // 0x6e3 @0x8
0x06db…06ee at0009 = ╱4e╱N╱ // 0x6e4 @0x9
0x06db…06ee at000a = ╱52╱R╱ // 0x6e5 @0xa
0x06db…06ee at000b = ╱e2╱+╱ // 0x6e6 @0xb
0x06db…06ee at000c = ╱31╱1╱ // 0x6e7 @0xc
0x06db…06ee at000d = ╱fe00008001╱ // 0x6e8 @0xd
0x06db…06ee at0012 = EOL // 0x6ed @0x12
0x06db…06ee }
0x06ee…06f4 944b 0870 ENDIF
0x06ee…06f4 LineComalBin {
0x06ee…06f4 ptr = 0x944b // 0x6ee @0x0
0x06ee…06f4 lno = 0x0366 // 0x6f0 @0x2
0x06ee…06f4 at0004 = ╱9b╱ ENDIF ╱ // 0x6f2 @0x4
0x06ee…06f4 at0005 = EOL // 0x6f3 @0x5
0x06ee…06f4 }
0x06f4…0705 945c 0880 UNTIL CNR=10
0x06f4…0705 LineComalBin {
0x06f4…0705 ptr = 0x945c // 0x6f4 @0x0
0x06f4…0705 lno = 0x0370 // 0x6f6 @0x2
0x06f4…0705 at0004 = ╱98╱ UNTIL ╱ // 0x6f8 @0x4
0x06f4…0705 at0005 = ╱43╱C╱ // 0x6f9 @0x5
0x06f4…0705 at0006 = ╱4e╱N╱ // 0x6fa @0x6
0x06f4…0705 at0007 = ╱52╱R╱ // 0x6fb @0x7
0x06f4…0705 at0008 = ╱dc╱=╱ // 0x6fc @0x8
0x06f4…0705 at0009 = ╱31╱1╱ // 0x6fd @0x9
0x06f4…0705 at000a = ╱30╱0╱ // 0x6fe @0xa
0x06f4…0705 at000b = ╱fe0000a004╱ // 0x6ff @0xb
0x06f4…0705 at0010 = EOL // 0x704 @0x10
0x06f4…0705 }
0x0705…070b 9462 0890 ENDPROC
0x0705…070b LineComalBin {
0x0705…070b ptr = 0x9462 // 0x705 @0x0
0x0705…070b lno = 0x037a // 0x707 @0x2
0x0705…070b at0004 = ╱9f╱ ENDPROC ╱ // 0x709 @0x4
0x0705…070b at0005 = EOL // 0x70a @0x5
0x0705…070b }
0x070b…071e 9475 0900 PROC INDTAST(CA,H)
0x070b…071e LineComalBin {
0x070b…071e ptr = 0x9475 // 0x70b @0x0
0x070b…071e lno = 0x0384 // 0x70d @0x2
0x070b…071e at0004 = ╱9e╱ PROC ╱ // 0x70f @0x4
0x070b…071e at0005 = ╱49╱I╱ // 0x710 @0x5
0x070b…071e at0006 = ╱4e╱N╱ // 0x711 @0x6
0x070b…071e at0007 = ╱44╱D╱ // 0x712 @0x7
0x070b…071e at0008 = ╱54╱T╱ // 0x713 @0x8
0x070b…071e at0009 = ╱41╱A╱ // 0x714 @0x9
0x070b…071e at000a = ╱53╱S╱ // 0x715 @0xa
0x070b…071e at000b = ╱54╱T╱ // 0x716 @0xb
0x070b…071e at000c = ╱ed╱(╱ // 0x717 @0xc
0x070b…071e at000d = ╱43╱C╱ // 0x718 @0xd
0x070b…071e at000e = ╱41╱A╱ // 0x719 @0xe
0x070b…071e at000f = ╱ec╱,╱ // 0x71a @0xf
0x070b…071e at0010 = ╱48╱H╱ // 0x71b @0x10
0x070b…071e at0011 = ╱ee╱)╱ // 0x71c @0x11
0x070b…071e at0012 = EOL // 0x71d @0x12
0x070b…071e }
0x071e…072d 9484 0910 IF C<>3 THEN
0x071e…072d LineComalBin {
0x071e…072d ptr = 0x9484 // 0x71e @0x0
0x071e…072d lno = 0x038e // 0x720 @0x2
0x071e…072d at0004 = ╱9c╱ IF ╱ // 0x722 @0x4
0x071e…072d at0005 = ╱43╱C╱ // 0x723 @0x5
0x071e…072d at0006 = ╱e1╱<>╱ // 0x724 @0x6
0x071e…072d at0007 = ╱33╱3╱ // 0x725 @0x7
0x071e…072d at0008 = ╱fe0000c002╱ // 0x726 @0x8
0x071e…072d at000d = ╱b6╱ THEN ╱ // 0x72b @0xd
0x071e…072d at000e = EOL // 0x72c @0xe
0x071e…072d }
0x072d…0733 948a 0920 REPEAT
0x072d…0733 LineComalBin {
0x072d…0733 ptr = 0x948a // 0x72d @0x0
0x072d…0733 lno = 0x0398 // 0x72f @0x2
0x072d…0733 at0004 = ╱97╱ REPEAT ╱ // 0x731 @0x4
0x072d…0733 at0005 = EOL // 0x732 @0x5
0x072d…0733 }
0x0733…0739 9490 0930 REPEAT
0x0733…0739 LineComalBin {
0x0733…0739 ptr = 0x9490 // 0x733 @0x0
0x0733…0739 lno = 0x03a2 // 0x735 @0x2
0x0733…0739 at0004 = ╱97╱ REPEAT ╱ // 0x737 @0x4
0x0733…0739 at0005 = EOL // 0x738 @0x5
0x0733…0739 }
0x0739…074d 94a4 0940 CURSOR 3,23
0x0739…074d LineComalBin {
0x0739…074d ptr = 0x94a4 // 0x739 @0x0
0x0739…074d lno = 0x03ac // 0x73b @0x2
0x0739…074d at0004 = ╱a1╱ CURSOR ╱ // 0x73d @0x4
0x0739…074d at0005 = ╱33╱3╱ // 0x73e @0x5
0x0739…074d at0006 = ╱fe0000c002╱ // 0x73f @0x6
0x0739…074d at000b = ╱ec╱,╱ // 0x744 @0xb
0x0739…074d at000c = ╱32╱2╱ // 0x745 @0xc
0x0739…074d at000d = ╱33╱3╱ // 0x746 @0xd
0x0739…074d at000e = ╱fe0000b805╱ // 0x747 @0xe
0x0739…074d at0013 = EOL // 0x74c @0x13
0x0739…074d }
0x074d…0773 94ca 0950 PRINT H;" ";CA$;BLANK$(1:20)
0x074d…0773 LineComalBin {
0x074d…0773 ptr = 0x94ca // 0x74d @0x0
0x074d…0773 lno = 0x03b6 // 0x74f @0x2
0x074d…0773 at0004 = ╱92╱ PRINT ╱ // 0x751 @0x4
0x074d…0773 at0005 = ╱48╱H╱ // 0x752 @0x5
0x074d…0773 at0006 = ╱eb╱;╱ // 0x753 @0x6
0x074d…0773 at0007 = ╱22╱"╱ // 0x754 @0x7
0x074d…0773 at0008 = ╱20╱…╱ // 0x755 @0x8
0x074d…0773 at0009 = ╱22╱"╱ // 0x756 @0x9
0x074d…0773 at000a = ╱eb╱;╱ // 0x757 @0xa
0x074d…0773 at000b = ╱43╱C╱ // 0x758 @0xb
0x074d…0773 at000c = ╱41╱A╱ // 0x759 @0xc
0x074d…0773 at000d = ╱ef╱$╱ // 0x75a @0xd
0x074d…0773 at000e = ╱eb╱;╱ // 0x75b @0xe
0x074d…0773 at000f = ╱42╱B╱ // 0x75c @0xf
0x074d…0773 at0010 = ╱4c╱L╱ // 0x75d @0x10
0x074d…0773 at0011 = ╱41╱A╱ // 0x75e @0x11
0x074d…0773 at0012 = ╱4e╱N╱ // 0x75f @0x12
0x074d…0773 at0013 = ╱4b╱K╱ // 0x760 @0x13
0x074d…0773 at0014 = ╱ef╱$╱ // 0x761 @0x14
0x074d…0773 at0015 = ╱ed╱(╱ // 0x762 @0x15
0x074d…0773 at0016 = ╱31╱1╱ // 0x763 @0x16
0x074d…0773 at0017 = ╱fe00008001╱ // 0x764 @0x17
0x074d…0773 at001c = ╱f0╱:╱ // 0x769 @0x1c
0x074d…0773 at001d = ╱32╱2╱ // 0x76a @0x1d
0x074d…0773 at001e = ╱30╱0╱ // 0x76b @0x1e
0x074d…0773 at001f = ╱fe0000a005╱ // 0x76c @0x1f
0x074d…0773 at0024 = ╱ee╱)╱ // 0x771 @0x24
0x074d…0773 at0025 = EOL // 0x772 @0x25
0x074d…0773 }
0x0773…0788 94df 0960 CURSOR 28,23
0x0773…0788 LineComalBin {
0x0773…0788 ptr = 0x94df // 0x773 @0x0
0x0773…0788 lno = 0x03c0 // 0x775 @0x2
0x0773…0788 at0004 = ╱a1╱ CURSOR ╱ // 0x777 @0x4
0x0773…0788 at0005 = ╱32╱2╱ // 0x778 @0x5
0x0773…0788 at0006 = ╱38╱8╱ // 0x779 @0x6
0x0773…0788 at0007 = ╱fe0000e005╱ // 0x77a @0x7
0x0773…0788 at000c = ╱ec╱,╱ // 0x77f @0xc
0x0773…0788 at000d = ╱32╱2╱ // 0x780 @0xd
0x0773…0788 at000e = ╱33╱3╱ // 0x781 @0xe
0x0773…0788 at000f = ╱fe0000b805╱ // 0x782 @0xf
0x0773…0788 at0014 = EOL // 0x787 @0x14
0x0773…0788 }
0x0788…0792 94e9 0970 INPUT TAL$
0x0788…0792 LineComalBin {
0x0788…0792 ptr = 0x94e9 // 0x788 @0x0
0x0788…0792 lno = 0x03ca // 0x78a @0x2
0x0788…0792 at0004 = ╱91╱ INPUT ╱ // 0x78c @0x4
0x0788…0792 at0005 = ╱54╱T╱ // 0x78d @0x5
0x0788…0792 at0006 = ╱41╱A╱ // 0x78e @0x6
0x0788…0792 at0007 = ╱4c╱L╱ // 0x78f @0x7
0x0788…0792 at0008 = ╱ef╱$╱ // 0x790 @0x8
0x0788…0792 at0009 = EOL // 0x791 @0x9
0x0788…0792 }
0x0792…07a0 94f7 0980 L=LEN(TAL$)
0x0792…07a0 LineComalBin {
0x0792…07a0 ptr = 0x94f7 // 0x792 @0x0
0x0792…07a0 lno = 0x03d4 // 0x794 @0x2
0x0792…07a0 at0004 = ╱4c╱L╱ // 0x796 @0x4
0x0792…07a0 at0005 = ╱dc╱=╱ // 0x797 @0x5
0x0792…07a0 at0006 = ╱cc╱LEN╱ // 0x798 @0x6
0x0792…07a0 at0007 = ╱ed╱(╱ // 0x799 @0x7
0x0792…07a0 at0008 = ╱54╱T╱ // 0x79a @0x8
0x0792…07a0 at0009 = ╱41╱A╱ // 0x79b @0x9
0x0792…07a0 at000a = ╱4c╱L╱ // 0x79c @0xa
0x0792…07a0 at000b = ╱ef╱$╱ // 0x79d @0xb
0x0792…07a0 at000c = ╱ee╱)╱ // 0x79e @0xc
0x0792…07a0 at000d = EOL // 0x79f @0xd
0x0792…07a0 }
0x07a0…07b7 950e 0990 UNTIL L>0 AND L<7
0x07a0…07b7 LineComalBin {
0x07a0…07b7 ptr = 0x950e // 0x7a0 @0x0
0x07a0…07b7 lno = 0x03de // 0x7a2 @0x2
0x07a0…07b7 at0004 = ╱98╱ UNTIL ╱ // 0x7a4 @0x4
0x07a0…07b7 at0005 = ╱4c╱L╱ // 0x7a5 @0x5
0x07a0…07b7 at0006 = ╱de╱>╱ // 0x7a6 @0x6
0x07a0…07b7 at0007 = ╱30╱0╱ // 0x7a7 @0x7
0x07a0…07b7 at0008 = ╱fe00000000╱ // 0x7a8 @0x8
0x07a0…07b7 at000d = ╱da╱ AND ╱ // 0x7ad @0xd
0x07a0…07b7 at000e = ╱4c╱L╱ // 0x7ae @0xe
0x07a0…07b7 at000f = ╱dd╱<╱ // 0x7af @0xf
0x07a0…07b7 at0010 = ╱37╱7╱ // 0x7b0 @0x10
0x07a0…07b7 at0011 = ╱fe0000e003╱ // 0x7b1 @0x11
0x07a0…07b7 at0016 = EOL // 0x7b6 @0x16
0x07a0…07b7 }
0x07b7…07d0 9527 1000 P=0;TEST=0
0x07b7…07d0 LineComalBin {
0x07b7…07d0 ptr = 0x9527 // 0x7b7 @0x0
0x07b7…07d0 lno = 0x03e8 // 0x7b9 @0x2
0x07b7…07d0 at0004 = ╱50╱P╱ // 0x7bb @0x4
0x07b7…07d0 at0005 = ╱dc╱=╱ // 0x7bc @0x5
0x07b7…07d0 at0006 = ╱30╱0╱ // 0x7bd @0x6
0x07b7…07d0 at0007 = ╱fe00000000╱ // 0x7be @0x7
0x07b7…07d0 at000c = ╱eb╱;╱ // 0x7c3 @0xc
0x07b7…07d0 at000d = ╱54╱T╱ // 0x7c4 @0xd
0x07b7…07d0 at000e = ╱45╱E╱ // 0x7c5 @0xe
0x07b7…07d0 at000f = ╱53╱S╱ // 0x7c6 @0xf
0x07b7…07d0 at0010 = ╱54╱T╱ // 0x7c7 @0x10
0x07b7…07d0 at0011 = ╱dc╱=╱ // 0x7c8 @0x11
0x07b7…07d0 at0012 = ╱30╱0╱ // 0x7c9 @0x12
0x07b7…07d0 at0013 = ╱fe00000000╱ // 0x7ca @0x13
0x07b7…07d0 at0018 = EOL // 0x7cf @0x18
0x07b7…07d0 }
0x07d0…07e0 9537 1010 FOR J=1 TO L
0x07d0…07e0 LineComalBin {
0x07d0…07e0 ptr = 0x9537 // 0x7d0 @0x0
0x07d0…07e0 lno = 0x03f2 // 0x7d2 @0x2
0x07d0…07e0 at0004 = ╱83╱ FOR ╱ // 0x7d4 @0x4
0x07d0…07e0 at0005 = ╱4a╱J╱ // 0x7d5 @0x5
0x07d0…07e0 at0006 = ╱dc╱=╱ // 0x7d6 @0x6
0x07d0…07e0 at0007 = ╱31╱1╱ // 0x7d7 @0x7
0x07d0…07e0 at0008 = ╱fe00008001╱ // 0x7d8 @0x8
0x07d0…07e0 at000d = ╱b7╱ TO ╱ // 0x7dd @0xd
0x07d0…07e0 at000e = ╱4c╱L╱ // 0x7de @0xe
0x07d0…07e0 at000f = EOL // 0x7df @0xf
0x07d0…07e0 }
0x07e0…07fd 9554 1020 P1=INT(ORD(TAL$(J))-48)
0x07e0…07fd LineComalBin {
0x07e0…07fd ptr = 0x9554 // 0x7e0 @0x0
0x07e0…07fd lno = 0x03fc // 0x7e2 @0x2
0x07e0…07fd at0004 = ╱50╱P╱ // 0x7e4 @0x4
0x07e0…07fd at0005 = ╱31╱1╱ // 0x7e5 @0x5
0x07e0…07fd at0006 = ╱dc╱=╱ // 0x7e6 @0x6
0x07e0…07fd at0007 = ╱c6╱INT╱ // 0x7e7 @0x7
0x07e0…07fd at0008 = ╱ed╱(╱ // 0x7e8 @0x8
0x07e0…07fd at0009 = ╱cd╱ORD╱ // 0x7e9 @0x9
0x07e0…07fd at000a = ╱ed╱(╱ // 0x7ea @0xa
0x07e0…07fd at000b = ╱54╱T╱ // 0x7eb @0xb
0x07e0…07fd at000c = ╱41╱A╱ // 0x7ec @0xc
0x07e0…07fd at000d = ╱4c╱L╱ // 0x7ed @0xd
0x07e0…07fd at000e = ╱ef╱$╱ // 0x7ee @0xe
0x07e0…07fd at000f = ╱ed╱(╱ // 0x7ef @0xf
0x07e0…07fd at0010 = ╱4a╱J╱ // 0x7f0 @0x10
0x07e0…07fd at0011 = ╱ee╱)╱ // 0x7f1 @0x11
0x07e0…07fd at0012 = ╱ee╱)╱ // 0x7f2 @0x12
0x07e0…07fd at0013 = ╱e3╱-╱ // 0x7f3 @0x13
0x07e0…07fd at0014 = ╱34╱4╱ // 0x7f4 @0x14
0x07e0…07fd at0015 = ╱38╱8╱ // 0x7f5 @0x15
0x07e0…07fd at0016 = ╱fe0000c006╱ // 0x7f6 @0x16
0x07e0…07fd at001b = ╱ee╱)╱ // 0x7fb @0x1b
0x07e0…07fd at001c = EOL // 0x7fc @0x1c
0x07e0…07fd }
0x07fd…0818 956f 1030 IF P1=>0 AND P1<10 THEN
0x07fd…0818 LineComalBin {
0x07fd…0818 ptr = 0x956f // 0x7fd @0x0
0x07fd…0818 lno = 0x0406 // 0x7ff @0x2
0x07fd…0818 at0004 = ╱9c╱ IF ╱ // 0x801 @0x4
0x07fd…0818 at0005 = ╱50╱P╱ // 0x802 @0x5
0x07fd…0818 at0006 = ╱31╱1╱ // 0x803 @0x6
0x07fd…0818 at0007 = ╱e0╱=>╱ // 0x804 @0x7
0x07fd…0818 at0008 = ╱30╱0╱ // 0x805 @0x8
0x07fd…0818 at0009 = ╱fe00000000╱ // 0x806 @0x9
0x07fd…0818 at000e = ╱da╱ AND ╱ // 0x80b @0xe
0x07fd…0818 at000f = ╱50╱P╱ // 0x80c @0xf
0x07fd…0818 at0010 = ╱31╱1╱ // 0x80d @0x10
0x07fd…0818 at0011 = ╱dd╱<╱ // 0x80e @0x11
0x07fd…0818 at0012 = ╱31╱1╱ // 0x80f @0x12
0x07fd…0818 at0013 = ╱30╱0╱ // 0x810 @0x13
0x07fd…0818 at0014 = ╱fe0000a004╱ // 0x811 @0x14
0x07fd…0818 at0019 = ╱b6╱ THEN ╱ // 0x816 @0x19
0x07fd…0818 at001a = EOL // 0x817 @0x1a
0x07fd…0818 }
0x0818…082b 9582 1040 P=P*10+P1
0x0818…082b LineComalBin {
0x0818…082b ptr = 0x9582 // 0x818 @0x0
0x0818…082b lno = 0x0410 // 0x81a @0x2
0x0818…082b at0004 = ╱50╱P╱ // 0x81c @0x4
0x0818…082b at0005 = ╱dc╱=╱ // 0x81d @0x5
0x0818…082b at0006 = ╱50╱P╱ // 0x81e @0x6
0x0818…082b at0007 = ╱e4╱*╱ // 0x81f @0x7
0x0818…082b at0008 = ╱31╱1╱ // 0x820 @0x8
0x0818…082b at0009 = ╱30╱0╱ // 0x821 @0x9
0x0818…082b at000a = ╱fe0000a004╱ // 0x822 @0xa
0x0818…082b at000f = ╱e2╱+╱ // 0x827 @0xf
0x0818…082b at0010 = ╱50╱P╱ // 0x828 @0x10
0x0818…082b at0011 = ╱31╱1╱ // 0x829 @0x11
0x0818…082b at0012 = EOL // 0x82a @0x12
0x0818…082b }
0x082b…0831 9588 1050 ELSE
0x082b…0831 LineComalBin {
0x082b…0831 ptr = 0x9588 // 0x82b @0x0
0x082b…0831 lno = 0x041a // 0x82d @0x2
0x082b…0831 at0004 = ╱9a╱ ELSE ╱ // 0x82f @0x4
0x082b…0831 at0005 = EOL // 0x830 @0x5
0x082b…0831 }
0x0831…0841 9598 1060 TEST=1
0x0831…0841 LineComalBin {
0x0831…0841 ptr = 0x9598 // 0x831 @0x0
0x0831…0841 lno = 0x0424 // 0x833 @0x2
0x0831…0841 at0004 = ╱54╱T╱ // 0x835 @0x4
0x0831…0841 at0005 = ╱45╱E╱ // 0x836 @0x5
0x0831…0841 at0006 = ╱53╱S╱ // 0x837 @0x6
0x0831…0841 at0007 = ╱54╱T╱ // 0x838 @0x7
0x0831…0841 at0008 = ╱dc╱=╱ // 0x839 @0x8
0x0831…0841 at0009 = ╱31╱1╱ // 0x83a @0x9
0x0831…0841 at000a = ╱fe00008001╱ // 0x83b @0xa
0x0831…0841 at000f = EOL // 0x840 @0xf
0x0831…0841 }
0x0841…0847 959e 1070 ENDIF
0x0841…0847 LineComalBin {
0x0841…0847 ptr = 0x959e // 0x841 @0x0
0x0841…0847 lno = 0x042e // 0x843 @0x2
0x0841…0847 at0004 = ╱9b╱ ENDIF ╱ // 0x845 @0x4
0x0841…0847 at0005 = EOL // 0x846 @0x5
0x0841…0847 }
0x0847…084e 95a5 1080 NEXT J
0x0847…084e LineComalBin {
0x0847…084e ptr = 0x95a5 // 0x847 @0x0
0x0847…084e lno = 0x0438 // 0x849 @0x2
0x0847…084e at0004 = ╱84╱ NEXT ╱ // 0x84b @0x4
0x0847…084e at0005 = ╱4a╱J╱ // 0x84c @0x5
0x0847…084e at0006 = EOL // 0x84d @0x6
0x0847…084e }
0x084e…085f 95b6 1090 UNTIL TEST=0
0x084e…085f LineComalBin {
0x084e…085f ptr = 0x95b6 // 0x84e @0x0
0x084e…085f lno = 0x0442 // 0x850 @0x2
0x084e…085f at0004 = ╱98╱ UNTIL ╱ // 0x852 @0x4
0x084e…085f at0005 = ╱54╱T╱ // 0x853 @0x5
0x084e…085f at0006 = ╱45╱E╱ // 0x854 @0x6
0x084e…085f at0007 = ╱53╱S╱ // 0x855 @0x7
0x084e…085f at0008 = ╱54╱T╱ // 0x856 @0x8
0x084e…085f at0009 = ╱dc╱=╱ // 0x857 @0x9
0x084e…085f at000a = ╱30╱0╱ // 0x858 @0xa
0x084e…085f at000b = ╱fe00000000╱ // 0x859 @0xb
0x084e…085f at0010 = EOL // 0x85e @0x10
0x084e…085f }
0x085f…0872 95c9 1100 T1(H-1)=P
0x085f…0872 LineComalBin {
0x085f…0872 ptr = 0x95c9 // 0x85f @0x0
0x085f…0872 lno = 0x044c // 0x861 @0x2
0x085f…0872 at0004 = ╱54╱T╱ // 0x863 @0x4
0x085f…0872 at0005 = ╱31╱1╱ // 0x864 @0x5
0x085f…0872 at0006 = ╱ed╱(╱ // 0x865 @0x6
0x085f…0872 at0007 = ╱48╱H╱ // 0x866 @0x7
0x085f…0872 at0008 = ╱e3╱-╱ // 0x867 @0x8
0x085f…0872 at0009 = ╱31╱1╱ // 0x868 @0x9
0x085f…0872 at000a = ╱fe00008001╱ // 0x869 @0xa
0x085f…0872 at000f = ╱ee╱)╱ // 0x86e @0xf
0x085f…0872 at0010 = ╱dc╱=╱ // 0x86f @0x10
0x085f…0872 at0011 = ╱50╱P╱ // 0x870 @0x11
0x085f…0872 at0012 = EOL // 0x871 @0x12
0x085f…0872 }
0x0872…0878 95cf 1110 ENDIF
0x0872…0878 LineComalBin {
0x0872…0878 ptr = 0x95cf // 0x872 @0x0
0x0872…0878 lno = 0x0456 // 0x874 @0x2
0x0872…0878 at0004 = ╱9b╱ ENDIF ╱ // 0x876 @0x4
0x0872…0878 at0005 = EOL // 0x877 @0x5
0x0872…0878 }
0x0878…0894 95eb 1120 CURSOR 3,H*2+3
0x0878…0894 LineComalBin {
0x0878…0894 ptr = 0x95eb // 0x878 @0x0
0x0878…0894 lno = 0x0460 // 0x87a @0x2
0x0878…0894 at0004 = ╱a1╱ CURSOR ╱ // 0x87c @0x4
0x0878…0894 at0005 = ╱33╱3╱ // 0x87d @0x5
0x0878…0894 at0006 = ╱fe0000c002╱ // 0x87e @0x6
0x0878…0894 at000b = ╱ec╱,╱ // 0x883 @0xb
0x0878…0894 at000c = ╱48╱H╱ // 0x884 @0xc
0x0878…0894 at000d = ╱e4╱*╱ // 0x885 @0xd
0x0878…0894 at000e = ╱32╱2╱ // 0x886 @0xe
0x0878…0894 at000f = ╱fe00008002╱ // 0x887 @0xf
0x0878…0894 at0014 = ╱e2╱+╱ // 0x88c @0x14
0x0878…0894 at0015 = ╱33╱3╱ // 0x88d @0x15
0x0878…0894 at0016 = ╱fe0000c002╱ // 0x88e @0x16
0x0878…0894 at001b = EOL // 0x893 @0x1b
0x0878…0894 }
0x0894…08b0 9607 1130 PRINT H;" ";CA$;T1(H-1)
0x0894…08b0 LineComalBin {
0x0894…08b0 ptr = 0x9607 // 0x894 @0x0
0x0894…08b0 lno = 0x046a // 0x896 @0x2
0x0894…08b0 at0004 = ╱92╱ PRINT ╱ // 0x898 @0x4
0x0894…08b0 at0005 = ╱48╱H╱ // 0x899 @0x5
0x0894…08b0 at0006 = ╱eb╱;╱ // 0x89a @0x6
0x0894…08b0 at0007 = ╱22╱"╱ // 0x89b @0x7
0x0894…08b0 at0008 = ╱20╱…╱ // 0x89c @0x8
0x0894…08b0 at0009 = ╱22╱"╱ // 0x89d @0x9
0x0894…08b0 at000a = ╱eb╱;╱ // 0x89e @0xa
0x0894…08b0 at000b = ╱43╱C╱ // 0x89f @0xb
0x0894…08b0 at000c = ╱41╱A╱ // 0x8a0 @0xc
0x0894…08b0 at000d = ╱ef╱$╱ // 0x8a1 @0xd
0x0894…08b0 at000e = ╱eb╱;╱ // 0x8a2 @0xe
0x0894…08b0 at000f = ╱54╱T╱ // 0x8a3 @0xf
0x0894…08b0 at0010 = ╱31╱1╱ // 0x8a4 @0x10
0x0894…08b0 at0011 = ╱ed╱(╱ // 0x8a5 @0x11
0x0894…08b0 at0012 = ╱48╱H╱ // 0x8a6 @0x12
0x0894…08b0 at0013 = ╱e3╱-╱ // 0x8a7 @0x13
0x0894…08b0 at0014 = ╱31╱1╱ // 0x8a8 @0x14
0x0894…08b0 at0015 = ╱fe00008001╱ // 0x8a9 @0x15
0x0894…08b0 at001a = ╱ee╱)╱ // 0x8ae @0x1a
0x0894…08b0 at001b = EOL // 0x8af @0x1b
0x0894…08b0 }
0x08b0…08b6 960d 1140 ENDPROC
0x08b0…08b6 LineComalBin {
0x08b0…08b6 ptr = 0x960d // 0x8b0 @0x0
0x08b0…08b6 lno = 0x0474 // 0x8b2 @0x2
0x08b0…08b6 at0004 = ╱9f╱ ENDPROC ╱ // 0x8b4 @0x4
0x08b0…08b6 at0005 = EOL // 0x8b5 @0x5
0x08b0…08b6 }
0x08b6…08d5 962c 1150 PROC FEKST(M,AR,AC,XPOS,LÆ,AF)
0x08b6…08d5 LineComalBin {
0x08b6…08d5 ptr = 0x962c // 0x8b6 @0x0
0x08b6…08d5 lno = 0x047e // 0x8b8 @0x2
0x08b6…08d5 at0004 = ╱9e╱ PROC ╱ // 0x8ba @0x4
0x08b6…08d5 at0005 = ╱46╱F╱ // 0x8bb @0x5
0x08b6…08d5 at0006 = ╱45╱E╱ // 0x8bc @0x6
0x08b6…08d5 at0007 = ╱4b╱K╱ // 0x8bd @0x7
0x08b6…08d5 at0008 = ╱53╱S╱ // 0x8be @0x8
0x08b6…08d5 at0009 = ╱54╱T╱ // 0x8bf @0x9
0x08b6…08d5 at000a = ╱ed╱(╱ // 0x8c0 @0xa
0x08b6…08d5 at000b = ╱4d╱M╱ // 0x8c1 @0xb
0x08b6…08d5 at000c = ╱ec╱,╱ // 0x8c2 @0xc
0x08b6…08d5 at000d = ╱41╱A╱ // 0x8c3 @0xd
0x08b6…08d5 at000e = ╱52╱R╱ // 0x8c4 @0xe
0x08b6…08d5 at000f = ╱ec╱,╱ // 0x8c5 @0xf
0x08b6…08d5 at0010 = ╱41╱A╱ // 0x8c6 @0x10
0x08b6…08d5 at0011 = ╱43╱C╱ // 0x8c7 @0x11
0x08b6…08d5 at0012 = ╱ec╱,╱ // 0x8c8 @0x12
0x08b6…08d5 at0013 = ╱58╱X╱ // 0x8c9 @0x13
0x08b6…08d5 at0014 = ╱50╱P╱ // 0x8ca @0x14
0x08b6…08d5 at0015 = ╱4f╱O╱ // 0x8cb @0x15
0x08b6…08d5 at0016 = ╱53╱S╱ // 0x8cc @0x16
0x08b6…08d5 at0017 = ╱ec╱,╱ // 0x8cd @0x17
0x08b6…08d5 at0018 = ╱4c╱L╱ // 0x8ce @0x18
0x08b6…08d5 at0019 = ╱5b╱Æ╱ // 0x8cf @0x19
0x08b6…08d5 at001a = ╱ec╱,╱ // 0x8d0 @0x1a
0x08b6…08d5 at001b = ╱41╱A╱ // 0x8d1 @0x1b
0x08b6…08d5 at001c = ╱46╱F╱ // 0x8d2 @0x1c
0x08b6…08d5 at001d = ╱ee╱)╱ // 0x8d3 @0x1d
0x08b6…08d5 at001e = EOL // 0x8d4 @0x1e
0x08b6…08d5 }
0x08d5…08e4 963b 1160 IF C<>3 THEN
0x08d5…08e4 LineComalBin {
0x08d5…08e4 ptr = 0x963b // 0x8d5 @0x0
0x08d5…08e4 lno = 0x0488 // 0x8d7 @0x2
0x08d5…08e4 at0004 = ╱9c╱ IF ╱ // 0x8d9 @0x4
0x08d5…08e4 at0005 = ╱43╱C╱ // 0x8da @0x5
0x08d5…08e4 at0006 = ╱e1╱<>╱ // 0x8db @0x6
0x08d5…08e4 at0007 = ╱33╱3╱ // 0x8dc @0x7
0x08d5…08e4 at0008 = ╱fe0000c002╱ // 0x8dd @0x8
0x08d5…08e4 at000d = ╱b6╱ THEN ╱ // 0x8e2 @0xd
0x08d5…08e4 at000e = EOL // 0x8e3 @0xe
0x08d5…08e4 }
0x08e4…08ea 9641 1170 REPEAT
0x08e4…08ea LineComalBin {
0x08e4…08ea ptr = 0x9641 // 0x8e4 @0x0
0x08e4…08ea lno = 0x0492 // 0x8e6 @0x2
0x08e4…08ea at0004 = ╱97╱ REPEAT ╱ // 0x8e8 @0x4
0x08e4…08ea at0005 = EOL // 0x8e9 @0x5
0x08e4…08ea }
0x08ea…08fe 9655 1180 CURSOR 3,23
0x08ea…08fe LineComalBin {
0x08ea…08fe ptr = 0x9655 // 0x8ea @0x0
0x08ea…08fe lno = 0x049c // 0x8ec @0x2
0x08ea…08fe at0004 = ╱a1╱ CURSOR ╱ // 0x8ee @0x4
0x08ea…08fe at0005 = ╱33╱3╱ // 0x8ef @0x5
0x08ea…08fe at0006 = ╱fe0000c002╱ // 0x8f0 @0x6
0x08ea…08fe at000b = ╱ec╱,╱ // 0x8f5 @0xb
0x08ea…08fe at000c = ╱32╱2╱ // 0x8f6 @0xc
0x08ea…08fe at000d = ╱33╱3╱ // 0x8f7 @0xd
0x08ea…08fe at000e = ╱fe0000b805╱ // 0x8f8 @0xe
0x08ea…08fe at0013 = EOL // 0x8fd @0x13
0x08ea…08fe }
0x08fe…092b 9682 1190 PRINT M;AC$;BLANK$;BLANK$(1:10);AF$
0x08fe…092b LineComalBin {
0x08fe…092b ptr = 0x9682 // 0x8fe @0x0
0x08fe…092b lno = 0x04a6 // 0x900 @0x2
0x08fe…092b at0004 = ╱92╱ PRINT ╱ // 0x902 @0x4
0x08fe…092b at0005 = ╱4d╱M╱ // 0x903 @0x5
0x08fe…092b at0006 = ╱eb╱;╱ // 0x904 @0x6
0x08fe…092b at0007 = ╱41╱A╱ // 0x905 @0x7
0x08fe…092b at0008 = ╱43╱C╱ // 0x906 @0x8
0x08fe…092b at0009 = ╱ef╱$╱ // 0x907 @0x9
0x08fe…092b at000a = ╱eb╱;╱ // 0x908 @0xa
0x08fe…092b at000b = ╱42╱B╱ // 0x909 @0xb
0x08fe…092b at000c = ╱4c╱L╱ // 0x90a @0xc
0x08fe…092b at000d = ╱41╱A╱ // 0x90b @0xd
0x08fe…092b at000e = ╱4e╱N╱ // 0x90c @0xe
0x08fe…092b at000f = ╱4b╱K╱ // 0x90d @0xf
0x08fe…092b at0010 = ╱ef╱$╱ // 0x90e @0x10
0x08fe…092b at0011 = ╱eb╱;╱ // 0x90f @0x11
0x08fe…092b at0012 = ╱42╱B╱ // 0x910 @0x12
0x08fe…092b at0013 = ╱4c╱L╱ // 0x911 @0x13
0x08fe…092b at0014 = ╱41╱A╱ // 0x912 @0x14
0x08fe…092b at0015 = ╱4e╱N╱ // 0x913 @0x15
0x08fe…092b at0016 = ╱4b╱K╱ // 0x914 @0x16
0x08fe…092b at0017 = ╱ef╱$╱ // 0x915 @0x17
0x08fe…092b at0018 = ╱ed╱(╱ // 0x916 @0x18
0x08fe…092b at0019 = ╱31╱1╱ // 0x917 @0x19
0x08fe…092b at001a = ╱fe00008001╱ // 0x918 @0x1a
0x08fe…092b at001f = ╱f0╱:╱ // 0x91d @0x1f
0x08fe…092b at0020 = ╱31╱1╱ // 0x91e @0x20
0x08fe…092b at0021 = ╱30╱0╱ // 0x91f @0x21
0x08fe…092b at0022 = ╱fe0000a004╱ // 0x920 @0x22
0x08fe…092b at0027 = ╱ee╱)╱ // 0x925 @0x27
0x08fe…092b at0028 = ╱eb╱;╱ // 0x926 @0x28
0x08fe…092b at0029 = ╱41╱A╱ // 0x927 @0x29
0x08fe…092b at002a = ╱46╱F╱ // 0x928 @0x2a
0x08fe…092b at002b = ╱ef╱$╱ // 0x929 @0x2b
0x08fe…092b at002c = EOL // 0x92a @0x2c
0x08fe…092b }
0x092b…093d 9694 1200 CURSOR XPOS,23
0x092b…093d LineComalBin {
0x092b…093d ptr = 0x9694 // 0x92b @0x0
0x092b…093d lno = 0x04b0 // 0x92d @0x2
0x092b…093d at0004 = ╱a1╱ CURSOR ╱ // 0x92f @0x4
0x092b…093d at0005 = ╱58╱X╱ // 0x930 @0x5
0x092b…093d at0006 = ╱50╱P╱ // 0x931 @0x6
0x092b…093d at0007 = ╱4f╱O╱ // 0x932 @0x7
0x092b…093d at0008 = ╱53╱S╱ // 0x933 @0x8
0x092b…093d at0009 = ╱ec╱,╱ // 0x934 @0x9
0x092b…093d at000a = ╱32╱2╱ // 0x935 @0xa
0x092b…093d at000b = ╱33╱3╱ // 0x936 @0xb
0x092b…093d at000c = ╱fe0000b805╱ // 0x937 @0xc
0x092b…093d at0011 = EOL // 0x93c @0x11
0x092b…093d }
0x093d…0946 969d 1210 INPUT CB$
0x093d…0946 LineComalBin {
0x093d…0946 ptr = 0x969d // 0x93d @0x0
0x093d…0946 lno = 0x04ba // 0x93f @0x2
0x093d…0946 at0004 = ╱91╱ INPUT ╱ // 0x941 @0x4
0x093d…0946 at0005 = ╱43╱C╱ // 0x942 @0x5
0x093d…0946 at0006 = ╱42╱B╱ // 0x943 @0x6
0x093d…0946 at0007 = ╱ef╱$╱ // 0x944 @0x7
0x093d…0946 at0008 = EOL // 0x945 @0x8
0x093d…0946 }
0x0946…0953 96aa 1220 L=LEN(CB$)
0x0946…0953 LineComalBin {
0x0946…0953 ptr = 0x96aa // 0x946 @0x0
0x0946…0953 lno = 0x04c4 // 0x948 @0x2
0x0946…0953 at0004 = ╱4c╱L╱ // 0x94a @0x4
0x0946…0953 at0005 = ╱dc╱=╱ // 0x94b @0x5
0x0946…0953 at0006 = ╱cc╱LEN╱ // 0x94c @0x6
0x0946…0953 at0007 = ╱ed╱(╱ // 0x94d @0x7
0x0946…0953 at0008 = ╱43╱C╱ // 0x94e @0x8
0x0946…0953 at0009 = ╱42╱B╱ // 0x94f @0x9
0x0946…0953 at000a = ╱ef╱$╱ // 0x950 @0xa
0x0946…0953 at000b = ╱ee╱)╱ // 0x951 @0xb
0x0946…0953 at000c = EOL // 0x952 @0xc
0x0946…0953 }
0x0953…0966 (31,) 96bd 1230 UNTIL L>0 AND L<=LÆ
0x0953…0966 LineComalBin {
0x0953…0966 ptr = 0x96bd // 0x953 @0x0
0x0953…0966 lno = 0x04ce // 0x955 @0x2
0x0953…0966 at0004 = ╱98╱ UNTIL ╱ // 0x957 @0x4
0x0953…0966 at0005 = ╱4c╱L╱ // 0x958 @0x5
0x0953…0966 at0006 = ╱de╱>╱ // 0x959 @0x6
0x0953…0966 at0007 = ╱30╱0╱ // 0x95a @0x7
0x0953…0966 at0008 = ╱fe00000000╱ // 0x95b @0x8
0x0953…0966 at000d = ╱da╱ AND ╱ // 0x960 @0xd
0x0953…0966 at000e = ╱4c╱L╱ // 0x961 @0xe
0x0953…0966 at000f = ╱df╱<=╱ // 0x962 @0xf
0x0953…0966 at0010 = ╱4c╱L╱ // 0x963 @0x10
0x0953…0966 at0011 = ╱5b╱Æ╱ // 0x964 @0x11
0x0953…0966 at0012 = EOL // 0x965 @0x12
0x0953…0966 }
0x0966…0975 96cc 1240 AR$(M)=CB$
0x0966…0975 LineComalBin {
0x0966…0975 ptr = 0x96cc // 0x966 @0x0
0x0966…0975 lno = 0x04d8 // 0x968 @0x2
0x0966…0975 at0004 = ╱41╱A╱ // 0x96a @0x4
0x0966…0975 at0005 = ╱52╱R╱ // 0x96b @0x5
0x0966…0975 at0006 = ╱ef╱$╱ // 0x96c @0x6
0x0966…0975 at0007 = ╱ed╱(╱ // 0x96d @0x7
0x0966…0975 at0008 = ╱4d╱M╱ // 0x96e @0x8
0x0966…0975 at0009 = ╱ee╱)╱ // 0x96f @0x9
0x0966…0975 at000a = ╱dc╱=╱ // 0x970 @0xa
0x0966…0975 at000b = ╱43╱C╱ // 0x971 @0xb
0x0966…0975 at000c = ╱42╱B╱ // 0x972 @0xc
0x0966…0975 at000d = ╱ef╱$╱ // 0x973 @0xd
0x0966…0975 at000e = EOL // 0x974 @0xe
0x0966…0975 }
0x0975…097b 96d2 1250 ENDIF
0x0975…097b LineComalBin {
0x0975…097b ptr = 0x96d2 // 0x975 @0x0
0x0975…097b lno = 0x04e2 // 0x977 @0x2
0x0975…097b at0004 = ╱9b╱ ENDIF ╱ // 0x979 @0x4
0x0975…097b at0005 = EOL // 0x97a @0x5
0x0975…097b }
0x097b…0997 96ee 1260 CURSOR 3,M*2+1
0x097b…0997 LineComalBin {
0x097b…0997 ptr = 0x96ee // 0x97b @0x0
0x097b…0997 lno = 0x04ec // 0x97d @0x2
0x097b…0997 at0004 = ╱a1╱ CURSOR ╱ // 0x97f @0x4
0x097b…0997 at0005 = ╱33╱3╱ // 0x980 @0x5
0x097b…0997 at0006 = ╱fe0000c002╱ // 0x981 @0x6
0x097b…0997 at000b = ╱ec╱,╱ // 0x986 @0xb
0x097b…0997 at000c = ╱4d╱M╱ // 0x987 @0xc
0x097b…0997 at000d = ╱e4╱*╱ // 0x988 @0xd
0x097b…0997 at000e = ╱32╱2╱ // 0x989 @0xe
0x097b…0997 at000f = ╱fe00008002╱ // 0x98a @0xf
0x097b…0997 at0014 = ╱e2╱+╱ // 0x98f @0x14
0x097b…0997 at0015 = ╱31╱1╱ // 0x990 @0x15
0x097b…0997 at0016 = ╱fe00008001╱ // 0x991 @0x16
0x097b…0997 at001b = EOL // 0x996 @0x1b
0x097b…0997 }
0x0997…09b4 970b 1270 PRINT M;AC$;":";AR$(M);BLANK$
0x0997…09b4 LineComalBin {
0x0997…09b4 ptr = 0x970b // 0x997 @0x0
0x0997…09b4 lno = 0x04f6 // 0x999 @0x2
0x0997…09b4 at0004 = ╱92╱ PRINT ╱ // 0x99b @0x4
0x0997…09b4 at0005 = ╱4d╱M╱ // 0x99c @0x5
0x0997…09b4 at0006 = ╱eb╱;╱ // 0x99d @0x6
0x0997…09b4 at0007 = ╱41╱A╱ // 0x99e @0x7
0x0997…09b4 at0008 = ╱43╱C╱ // 0x99f @0x8
0x0997…09b4 at0009 = ╱ef╱$╱ // 0x9a0 @0x9
0x0997…09b4 at000a = ╱eb╱;╱ // 0x9a1 @0xa
0x0997…09b4 at000b = ╱22╱"╱ // 0x9a2 @0xb
0x0997…09b4 at000c = ╱3a╱:╱ // 0x9a3 @0xc
0x0997…09b4 at000d = ╱22╱"╱ // 0x9a4 @0xd
0x0997…09b4 at000e = ╱eb╱;╱ // 0x9a5 @0xe
0x0997…09b4 at000f = ╱41╱A╱ // 0x9a6 @0xf
0x0997…09b4 at0010 = ╱52╱R╱ // 0x9a7 @0x10
0x0997…09b4 at0011 = ╱ef╱$╱ // 0x9a8 @0x11
0x0997…09b4 at0012 = ╱ed╱(╱ // 0x9a9 @0x12
0x0997…09b4 at0013 = ╱4d╱M╱ // 0x9aa @0x13
0x0997…09b4 at0014 = ╱ee╱)╱ // 0x9ab @0x14
0x0997…09b4 at0015 = ╱eb╱;╱ // 0x9ac @0x15
0x0997…09b4 at0016 = ╱42╱B╱ // 0x9ad @0x16
0x0997…09b4 at0017 = ╱4c╱L╱ // 0x9ae @0x17
0x0997…09b4 at0018 = ╱41╱A╱ // 0x9af @0x18
0x0997…09b4 at0019 = ╱4e╱N╱ // 0x9b0 @0x19
0x0997…09b4 at001a = ╱4b╱K╱ // 0x9b1 @0x1a
0x0997…09b4 at001b = ╱ef╱$╱ // 0x9b2 @0x1b
0x0997…09b4 at001c = EOL // 0x9b3 @0x1c
0x0997…09b4 }
0x09b4…09ba 9711 1280 ENDPROC
0x09b4…09ba LineComalBin {
0x09b4…09ba ptr = 0x9711 // 0x9b4 @0x0
0x09b4…09ba lno = 0x0500 // 0x9b6 @0x2
0x09b4…09ba at0004 = ╱9f╱ ENDPROC ╱ // 0x9b8 @0x4
0x09b4…09ba at0005 = EOL // 0x9b9 @0x5
0x09b4…09ba }
0x09ba…09d4 972b 1290 K1$="P641220:SYSTEM1"
0x09ba…09d4 LineComalBin {
0x09ba…09d4 ptr = 0x972b // 0x9ba @0x0
0x09ba…09d4 lno = 0x050a // 0x9bc @0x2
0x09ba…09d4 at0004 = ╱4b╱K╱ // 0x9be @0x4
0x09ba…09d4 at0005 = ╱31╱1╱ // 0x9bf @0x5
0x09ba…09d4 at0006 = ╱ef╱$╱ // 0x9c0 @0x6
0x09ba…09d4 at0007 = ╱dc╱=╱ // 0x9c1 @0x7
0x09ba…09d4 at0008 = ╱22╱"╱ // 0x9c2 @0x8
0x09ba…09d4 at0009 = ╱50╱P╱ // 0x9c3 @0x9
0x09ba…09d4 at000a = ╱36╱6╱ // 0x9c4 @0xa
0x09ba…09d4 at000b = ╱34╱4╱ // 0x9c5 @0xb
0x09ba…09d4 at000c = ╱31╱1╱ // 0x9c6 @0xc
0x09ba…09d4 at000d = ╱32╱2╱ // 0x9c7 @0xd
0x09ba…09d4 at000e = ╱32╱2╱ // 0x9c8 @0xe
0x09ba…09d4 at000f = ╱30╱0╱ // 0x9c9 @0xf
0x09ba…09d4 at0010 = ╱3a╱:╱ // 0x9ca @0x10
0x09ba…09d4 at0011 = ╱53╱S╱ // 0x9cb @0x11
0x09ba…09d4 at0012 = ╱59╱Y╱ // 0x9cc @0x12
0x09ba…09d4 at0013 = ╱53╱S╱ // 0x9cd @0x13
0x09ba…09d4 at0014 = ╱54╱T╱ // 0x9ce @0x14
0x09ba…09d4 at0015 = ╱45╱E╱ // 0x9cf @0x15
0x09ba…09d4 at0016 = ╱4d╱M╱ // 0x9d0 @0x16
0x09ba…09d4 at0017 = ╱31╱1╱ // 0x9d1 @0x17
0x09ba…09d4 at0018 = ╱22╱"╱ // 0x9d2 @0x18
0x09ba…09d4 at0019 = EOL // 0x9d3 @0x19
0x09ba…09d4 }
0x09d4…09df 9736 1300 OPEN K1$,R
0x09d4…09df LineComalBin {
0x09d4…09df ptr = 0x9736 // 0x9d4 @0x0
0x09d4…09df lno = 0x0514 // 0x9d6 @0x2
0x09d4…09df at0004 = ╱a7╱ OPEN ╱ // 0x9d8 @0x4
0x09d4…09df at0005 = ╱4b╱K╱ // 0x9d9 @0x5
0x09d4…09df at0006 = ╱31╱1╱ // 0x9da @0x6
0x09d4…09df at0007 = ╱ef╱$╱ // 0x9db @0x7
0x09d4…09df at0008 = ╱ec╱,╱ // 0x9dc @0x8
0x09d4…09df at0009 = ╱52╱R╱ // 0x9dd @0x9
0x09d4…09df at000a = EOL // 0x9de @0xa
0x09d4…09df }
0x09df…09fc 9753 1310 EXEC FEJL(1,1,K1$)
0x09df…09fc LineComalBin {
0x09df…09fc ptr = 0x9753 // 0x9df @0x0
0x09df…09fc lno = 0x051e // 0x9e1 @0x2
0x09df…09fc at0004 = ╱9d╱ EXEC ╱ // 0x9e3 @0x4
0x09df…09fc at0005 = ╱46╱F╱ // 0x9e4 @0x5
0x09df…09fc at0006 = ╱45╱E╱ // 0x9e5 @0x6
0x09df…09fc at0007 = ╱4a╱J╱ // 0x9e6 @0x7
0x09df…09fc at0008 = ╱4c╱L╱ // 0x9e7 @0x8
0x09df…09fc at0009 = ╱ed╱(╱ // 0x9e8 @0x9
0x09df…09fc at000a = ╱31╱1╱ // 0x9e9 @0xa
0x09df…09fc at000b = ╱fe00008001╱ // 0x9ea @0xb
0x09df…09fc at0010 = ╱ec╱,╱ // 0x9ef @0x10
0x09df…09fc at0011 = ╱31╱1╱ // 0x9f0 @0x11
0x09df…09fc at0012 = ╱fe00008001╱ // 0x9f1 @0x12
0x09df…09fc at0017 = ╱ec╱,╱ // 0x9f6 @0x17
0x09df…09fc at0018 = ╱4b╱K╱ // 0x9f7 @0x18
0x09df…09fc at0019 = ╱31╱1╱ // 0x9f8 @0x19
0x09df…09fc at001a = ╱ef╱$╱ // 0x9f9 @0x1a
0x09df…09fc at001b = ╱ee╱)╱ // 0x9fa @0x1b
0x09df…09fc at001c = EOL // 0x9fb @0x1c
0x09df…09fc }
0x09fc…0a10 9767 1320 GET K1$,10:N$
0x09fc…0a10 LineComalBin {
0x09fc…0a10 ptr = 0x9767 // 0x9fc @0x0
0x09fc…0a10 lno = 0x0528 // 0x9fe @0x2
0x09fc…0a10 at0004 = ╱a9╱ GET ╱ // 0xa00 @0x4
0x09fc…0a10 at0005 = ╱4b╱K╱ // 0xa01 @0x5
0x09fc…0a10 at0006 = ╱31╱1╱ // 0xa02 @0x6
0x09fc…0a10 at0007 = ╱ef╱$╱ // 0xa03 @0x7
0x09fc…0a10 at0008 = ╱ec╱,╱ // 0xa04 @0x8
0x09fc…0a10 at0009 = ╱31╱1╱ // 0xa05 @0x9
0x09fc…0a10 at000a = ╱30╱0╱ // 0xa06 @0xa
0x09fc…0a10 at000b = ╱fe0000a004╱ // 0xa07 @0xb
0x09fc…0a10 at0010 = ╱f0╱:╱ // 0xa0c @0x10
0x09fc…0a10 at0011 = ╱4e╱N╱ // 0xa0d @0x11
0x09fc…0a10 at0012 = ╱ef╱$╱ // 0xa0e @0x12
0x09fc…0a10 at0013 = EOL // 0xa0f @0x13
0x09fc…0a10 }
0x0a10…0a2d 9784 1330 EXEC FEJL(1,2,K1$)
0x0a10…0a2d LineComalBin {
0x0a10…0a2d ptr = 0x9784 // 0xa10 @0x0
0x0a10…0a2d lno = 0x0532 // 0xa12 @0x2
0x0a10…0a2d at0004 = ╱9d╱ EXEC ╱ // 0xa14 @0x4
0x0a10…0a2d at0005 = ╱46╱F╱ // 0xa15 @0x5
0x0a10…0a2d at0006 = ╱45╱E╱ // 0xa16 @0x6
0x0a10…0a2d at0007 = ╱4a╱J╱ // 0xa17 @0x7
0x0a10…0a2d at0008 = ╱4c╱L╱ // 0xa18 @0x8
0x0a10…0a2d at0009 = ╱ed╱(╱ // 0xa19 @0x9
0x0a10…0a2d at000a = ╱31╱1╱ // 0xa1a @0xa
0x0a10…0a2d at000b = ╱fe00008001╱ // 0xa1b @0xb
0x0a10…0a2d at0010 = ╱ec╱,╱ // 0xa20 @0x10
0x0a10…0a2d at0011 = ╱32╱2╱ // 0xa21 @0x11
0x0a10…0a2d at0012 = ╱fe00008002╱ // 0xa22 @0x12
0x0a10…0a2d at0017 = ╱ec╱,╱ // 0xa27 @0x17
0x0a10…0a2d at0018 = ╱4b╱K╱ // 0xa28 @0x18
0x0a10…0a2d at0019 = ╱31╱1╱ // 0xa29 @0x19
0x0a10…0a2d at001a = ╱ef╱$╱ // 0xa2a @0x1a
0x0a10…0a2d at001b = ╱ee╱)╱ // 0xa2b @0x1b
0x0a10…0a2d at001c = EOL // 0xa2c @0x1c
0x0a10…0a2d }
0x0a2d…0a42 9799 1340 GET K1$,36:K2$
0x0a2d…0a42 LineComalBin {
0x0a2d…0a42 ptr = 0x9799 // 0xa2d @0x0
0x0a2d…0a42 lno = 0x053c // 0xa2f @0x2
0x0a2d…0a42 at0004 = ╱a9╱ GET ╱ // 0xa31 @0x4
0x0a2d…0a42 at0005 = ╱4b╱K╱ // 0xa32 @0x5
0x0a2d…0a42 at0006 = ╱31╱1╱ // 0xa33 @0x6
0x0a2d…0a42 at0007 = ╱ef╱$╱ // 0xa34 @0x7
0x0a2d…0a42 at0008 = ╱ec╱,╱ // 0xa35 @0x8
0x0a2d…0a42 at0009 = ╱33╱3╱ // 0xa36 @0x9
0x0a2d…0a42 at000a = ╱36╱6╱ // 0xa37 @0xa
0x0a2d…0a42 at000b = ╱fe00009006╱ // 0xa38 @0xb
0x0a2d…0a42 at0010 = ╱f0╱:╱ // 0xa3d @0x10
0x0a2d…0a42 at0011 = ╱4b╱K╱ // 0xa3e @0x11
0x0a2d…0a42 at0012 = ╱32╱2╱ // 0xa3f @0x12
0x0a2d…0a42 at0013 = ╱ef╱$╱ // 0xa40 @0x13
0x0a2d…0a42 at0014 = EOL // 0xa41 @0x14
0x0a2d…0a42 }
0x0a42…0a5f 97b6 1350 EXEC FEJL(1,3,K1$)
0x0a42…0a5f LineComalBin {
0x0a42…0a5f ptr = 0x97b6 // 0xa42 @0x0
0x0a42…0a5f lno = 0x0546 // 0xa44 @0x2
0x0a42…0a5f at0004 = ╱9d╱ EXEC ╱ // 0xa46 @0x4
0x0a42…0a5f at0005 = ╱46╱F╱ // 0xa47 @0x5
0x0a42…0a5f at0006 = ╱45╱E╱ // 0xa48 @0x6
0x0a42…0a5f at0007 = ╱4a╱J╱ // 0xa49 @0x7
0x0a42…0a5f at0008 = ╱4c╱L╱ // 0xa4a @0x8
0x0a42…0a5f at0009 = ╱ed╱(╱ // 0xa4b @0x9
0x0a42…0a5f at000a = ╱31╱1╱ // 0xa4c @0xa
0x0a42…0a5f at000b = ╱fe00008001╱ // 0xa4d @0xb
0x0a42…0a5f at0010 = ╱ec╱,╱ // 0xa52 @0x10
0x0a42…0a5f at0011 = ╱33╱3╱ // 0xa53 @0x11
0x0a42…0a5f at0012 = ╱fe0000c002╱ // 0xa54 @0x12
0x0a42…0a5f at0017 = ╱ec╱,╱ // 0xa59 @0x17
0x0a42…0a5f at0018 = ╱4b╱K╱ // 0xa5a @0x18
0x0a42…0a5f at0019 = ╱31╱1╱ // 0xa5b @0x19
0x0a42…0a5f at001a = ╱ef╱$╱ // 0xa5c @0x1a
0x0a42…0a5f at001b = ╱ee╱)╱ // 0xa5d @0x1b
0x0a42…0a5f at001c = EOL // 0xa5e @0x1c
0x0a42…0a5f }
0x0a5f…0a68 97bf 1360 CLOSE K1$
0x0a5f…0a68 LineComalBin {
0x0a5f…0a68 ptr = 0x97bf // 0xa5f @0x0
0x0a5f…0a68 lno = 0x0550 // 0xa61 @0x2
0x0a5f…0a68 at0004 = ╱a8╱ CLOSE ╱ // 0xa63 @0x4
0x0a5f…0a68 at0005 = ╱4b╱K╱ // 0xa64 @0x5
0x0a5f…0a68 at0006 = ╱31╱1╱ // 0xa65 @0x6
0x0a5f…0a68 at0007 = ╱ef╱$╱ // 0xa66 @0x7
0x0a5f…0a68 at0008 = EOL // 0xa67 @0x8
0x0a5f…0a68 }
0x0a68…0a85 97dc 1370 EXEC FEJL(1,4,K1$)
0x0a68…0a85 LineComalBin {
0x0a68…0a85 ptr = 0x97dc // 0xa68 @0x0
0x0a68…0a85 lno = 0x055a // 0xa6a @0x2
0x0a68…0a85 at0004 = ╱9d╱ EXEC ╱ // 0xa6c @0x4
0x0a68…0a85 at0005 = ╱46╱F╱ // 0xa6d @0x5
0x0a68…0a85 at0006 = ╱45╱E╱ // 0xa6e @0x6
0x0a68…0a85 at0007 = ╱4a╱J╱ // 0xa6f @0x7
0x0a68…0a85 at0008 = ╱4c╱L╱ // 0xa70 @0x8
0x0a68…0a85 at0009 = ╱ed╱(╱ // 0xa71 @0x9
0x0a68…0a85 at000a = ╱31╱1╱ // 0xa72 @0xa
0x0a68…0a85 at000b = ╱fe00008001╱ // 0xa73 @0xb
0x0a68…0a85 at0010 = ╱ec╱,╱ // 0xa78 @0x10
0x0a68…0a85 at0011 = ╱34╱4╱ // 0xa79 @0x11
0x0a68…0a85 at0012 = ╱fe00008003╱ // 0xa7a @0x12
0x0a68…0a85 at0017 = ╱ec╱,╱ // 0xa7f @0x17
0x0a68…0a85 at0018 = ╱4b╱K╱ // 0xa80 @0x18
0x0a68…0a85 at0019 = ╱31╱1╱ // 0xa81 @0x19
0x0a68…0a85 at001a = ╱ef╱$╱ // 0xa82 @0x1a
0x0a68…0a85 at001b = ╱ee╱)╱ // 0xa83 @0x1b
0x0a68…0a85 at001c = EOL // 0xa84 @0x1c
0x0a68…0a85 }
0x0a85…0a94 97eb 1380 K2$=N$+K2$
0x0a85…0a94 LineComalBin {
0x0a85…0a94 ptr = 0x97eb // 0xa85 @0x0
0x0a85…0a94 lno = 0x0564 // 0xa87 @0x2
0x0a85…0a94 at0004 = ╱4b╱K╱ // 0xa89 @0x4
0x0a85…0a94 at0005 = ╱32╱2╱ // 0xa8a @0x5
0x0a85…0a94 at0006 = ╱ef╱$╱ // 0xa8b @0x6
0x0a85…0a94 at0007 = ╱dc╱=╱ // 0xa8c @0x7
0x0a85…0a94 at0008 = ╱4e╱N╱ // 0xa8d @0x8
0x0a85…0a94 at0009 = ╱ef╱$╱ // 0xa8e @0x9
0x0a85…0a94 at000a = ╱f1╱+╱ // 0xa8f @0xa
0x0a85…0a94 at000b = ╱4b╱K╱ // 0xa90 @0xb
0x0a85…0a94 at000c = ╱32╱2╱ // 0xa91 @0xc
0x0a85…0a94 at000d = ╱ef╱$╱ // 0xa92 @0xd
0x0a85…0a94 at000e = EOL // 0xa93 @0xe
0x0a85…0a94 }
0x0a94…0a9f 97f6 1390 OPEN K2$,R
0x0a94…0a9f LineComalBin {
0x0a94…0a9f ptr = 0x97f6 // 0xa94 @0x0
0x0a94…0a9f lno = 0x056e // 0xa96 @0x2
0x0a94…0a9f at0004 = ╱a7╱ OPEN ╱ // 0xa98 @0x4
0x0a94…0a9f at0005 = ╱4b╱K╱ // 0xa99 @0x5
0x0a94…0a9f at0006 = ╱32╱2╱ // 0xa9a @0x6
0x0a94…0a9f at0007 = ╱ef╱$╱ // 0xa9b @0x7
0x0a94…0a9f at0008 = ╱ec╱,╱ // 0xa9c @0x8
0x0a94…0a9f at0009 = ╱52╱R╱ // 0xa9d @0x9
0x0a94…0a9f at000a = EOL // 0xa9e @0xa
0x0a94…0a9f }
0x0a9f…0abc 9813 1400 EXEC FEJL(1,5,K2$)
0x0a9f…0abc LineComalBin {
0x0a9f…0abc ptr = 0x9813 // 0xa9f @0x0
0x0a9f…0abc lno = 0x0578 // 0xaa1 @0x2
0x0a9f…0abc at0004 = ╱9d╱ EXEC ╱ // 0xaa3 @0x4
0x0a9f…0abc at0005 = ╱46╱F╱ // 0xaa4 @0x5
0x0a9f…0abc at0006 = ╱45╱E╱ // 0xaa5 @0x6
0x0a9f…0abc at0007 = ╱4a╱J╱ // 0xaa6 @0x7
0x0a9f…0abc at0008 = ╱4c╱L╱ // 0xaa7 @0x8
0x0a9f…0abc at0009 = ╱ed╱(╱ // 0xaa8 @0x9
0x0a9f…0abc at000a = ╱31╱1╱ // 0xaa9 @0xa
0x0a9f…0abc at000b = ╱fe00008001╱ // 0xaaa @0xb
0x0a9f…0abc at0010 = ╱ec╱,╱ // 0xaaf @0x10
0x0a9f…0abc at0011 = ╱35╱5╱ // 0xab0 @0x11
0x0a9f…0abc at0012 = ╱fe0000a003╱ // 0xab1 @0x12
0x0a9f…0abc at0017 = ╱ec╱,╱ // 0xab6 @0x17
0x0a9f…0abc at0018 = ╱4b╱K╱ // 0xab7 @0x18
0x0a9f…0abc at0019 = ╱32╱2╱ // 0xab8 @0x19
0x0a9f…0abc at001a = ╱ef╱$╱ // 0xab9 @0x1a
0x0a9f…0abc at001b = ╱ee╱)╱ // 0xaba @0x1b
0x0a9f…0abc at001c = EOL // 0xabb @0x1c
0x0a9f…0abc }
0x0abc…0ad2 9829 1410 GET K2$,1:MOMS$
0x0abc…0ad2 LineComalBin {
0x0abc…0ad2 ptr = 0x9829 // 0xabc @0x0
0x0abc…0ad2 lno = 0x0582 // 0xabe @0x2
0x0abc…0ad2 at0004 = ╱a9╱ GET ╱ // 0xac0 @0x4
0x0abc…0ad2 at0005 = ╱4b╱K╱ // 0xac1 @0x5
0x0abc…0ad2 at0006 = ╱32╱2╱ // 0xac2 @0x6
0x0abc…0ad2 at0007 = ╱ef╱$╱ // 0xac3 @0x7
0x0abc…0ad2 at0008 = ╱ec╱,╱ // 0xac4 @0x8
0x0abc…0ad2 at0009 = ╱31╱1╱ // 0xac5 @0x9
0x0abc…0ad2 at000a = ╱fe00008001╱ // 0xac6 @0xa
0x0abc…0ad2 at000f = ╱f0╱:╱ // 0xacb @0xf
0x0abc…0ad2 at0010 = ╱4d╱M╱ // 0xacc @0x10
0x0abc…0ad2 at0011 = ╱4f╱O╱ // 0xacd @0x11
0x0abc…0ad2 at0012 = ╱4d╱M╱ // 0xace @0x12
0x0abc…0ad2 at0013 = ╱53╱S╱ // 0xacf @0x13
0x0abc…0ad2 at0014 = ╱ef╱$╱ // 0xad0 @0x14
0x0abc…0ad2 at0015 = EOL // 0xad1 @0x15
0x0abc…0ad2 }
0x0ad2…0aef 9846 1420 EXEC FEJL(1,6,K2$)
0x0ad2…0aef LineComalBin {
0x0ad2…0aef ptr = 0x9846 // 0xad2 @0x0
0x0ad2…0aef lno = 0x058c // 0xad4 @0x2
0x0ad2…0aef at0004 = ╱9d╱ EXEC ╱ // 0xad6 @0x4
0x0ad2…0aef at0005 = ╱46╱F╱ // 0xad7 @0x5
0x0ad2…0aef at0006 = ╱45╱E╱ // 0xad8 @0x6
0x0ad2…0aef at0007 = ╱4a╱J╱ // 0xad9 @0x7
0x0ad2…0aef at0008 = ╱4c╱L╱ // 0xada @0x8
0x0ad2…0aef at0009 = ╱ed╱(╱ // 0xadb @0x9
0x0ad2…0aef at000a = ╱31╱1╱ // 0xadc @0xa
0x0ad2…0aef at000b = ╱fe00008001╱ // 0xadd @0xb
0x0ad2…0aef at0010 = ╱ec╱,╱ // 0xae2 @0x10
0x0ad2…0aef at0011 = ╱36╱6╱ // 0xae3 @0x11
0x0ad2…0aef at0012 = ╱fe0000c003╱ // 0xae4 @0x12
0x0ad2…0aef at0017 = ╱ec╱,╱ // 0xae9 @0x17
0x0ad2…0aef at0018 = ╱4b╱K╱ // 0xaea @0x18
0x0ad2…0aef at0019 = ╱32╱2╱ // 0xaeb @0x19
0x0ad2…0aef at001a = ╱ef╱$╱ // 0xaec @0x1a
0x0ad2…0aef at001b = ╱ee╱)╱ // 0xaed @0x1b
0x0ad2…0aef at001c = EOL // 0xaee @0x1c
0x0ad2…0aef }
0x0aef…0b62 98b9 1430 GET K2$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)
0x0aef…0b62 LineComalBin {
0x0aef…0b62 ptr = 0x98b9 // 0xaef @0x0
0x0aef…0b62 lno = 0x0596 // 0xaf1 @0x2
0x0aef…0b62 at0004 = ╱a9╱ GET ╱ // 0xaf3 @0x4
0x0aef…0b62 at0005 = ╱4b╱K╱ // 0xaf4 @0x5
0x0aef…0b62 at0006 = ╱32╱2╱ // 0xaf5 @0x6
0x0aef…0b62 at0007 = ╱ef╱$╱ // 0xaf6 @0x7
0x0aef…0b62 at0008 = ╱ec╱,╱ // 0xaf7 @0x8
0x0aef…0b62 at0009 = ╱32╱2╱ // 0xaf8 @0x9
0x0aef…0b62 at000a = ╱fe00008002╱ // 0xaf9 @0xa
0x0aef…0b62 at000f = ╱f0╱:╱ // 0xafe @0xf
0x0aef…0b62 at0010 = ╱54╱T╱ // 0xaff @0x10
0x0aef…0b62 at0011 = ╱31╱1╱ // 0xb00 @0x11
0x0aef…0b62 at0012 = ╱ed╱(╱ // 0xb01 @0x12
0x0aef…0b62 at0013 = ╱31╱1╱ // 0xb02 @0x13
0x0aef…0b62 at0014 = ╱fe00008001╱ // 0xb03 @0x14
0x0aef…0b62 at0019 = ╱ee╱)╱ // 0xb08 @0x19
0x0aef…0b62 at001a = ╱ec╱,╱ // 0xb09 @0x1a
0x0aef…0b62 at001b = ╱54╱T╱ // 0xb0a @0x1b
0x0aef…0b62 at001c = ╱31╱1╱ // 0xb0b @0x1c
0x0aef…0b62 at001d = ╱ed╱(╱ // 0xb0c @0x1d
0x0aef…0b62 at001e = ╱32╱2╱ // 0xb0d @0x1e
0x0aef…0b62 at001f = ╱fe00008002╱ // 0xb0e @0x1f
0x0aef…0b62 at0024 = ╱ee╱)╱ // 0xb13 @0x24
0x0aef…0b62 at0025 = ╱ec╱,╱ // 0xb14 @0x25
0x0aef…0b62 at0026 = ╱54╱T╱ // 0xb15 @0x26
0x0aef…0b62 at0027 = ╱31╱1╱ // 0xb16 @0x27
0x0aef…0b62 at0028 = ╱ed╱(╱ // 0xb17 @0x28
0x0aef…0b62 at0029 = ╱33╱3╱ // 0xb18 @0x29
0x0aef…0b62 at002a = ╱fe0000c002╱ // 0xb19 @0x2a
0x0aef…0b62 at002f = ╱ee╱)╱ // 0xb1e @0x2f
0x0aef…0b62 at0030 = ╱ec╱,╱ // 0xb1f @0x30
0x0aef…0b62 at0031 = ╱54╱T╱ // 0xb20 @0x31
0x0aef…0b62 at0032 = ╱31╱1╱ // 0xb21 @0x32
0x0aef…0b62 at0033 = ╱ed╱(╱ // 0xb22 @0x33
0x0aef…0b62 at0034 = ╱34╱4╱ // 0xb23 @0x34
0x0aef…0b62 at0035 = ╱fe00008003╱ // 0xb24 @0x35
0x0aef…0b62 at003a = ╱ee╱)╱ // 0xb29 @0x3a
0x0aef…0b62 at003b = ╱ec╱,╱ // 0xb2a @0x3b
0x0aef…0b62 at003c = ╱54╱T╱ // 0xb2b @0x3c
0x0aef…0b62 at003d = ╱31╱1╱ // 0xb2c @0x3d
0x0aef…0b62 at003e = ╱ed╱(╱ // 0xb2d @0x3e
0x0aef…0b62 at003f = ╱35╱5╱ // 0xb2e @0x3f
0x0aef…0b62 at0040 = ╱fe0000a003╱ // 0xb2f @0x40
0x0aef…0b62 at0045 = ╱ee╱)╱ // 0xb34 @0x45
0x0aef…0b62 at0046 = ╱ec╱,╱ // 0xb35 @0x46
0x0aef…0b62 at0047 = ╱54╱T╱ // 0xb36 @0x47
0x0aef…0b62 at0048 = ╱31╱1╱ // 0xb37 @0x48
0x0aef…0b62 at0049 = ╱ed╱(╱ // 0xb38 @0x49
0x0aef…0b62 at004a = ╱36╱6╱ // 0xb39 @0x4a
0x0aef…0b62 at004b = ╱fe0000c003╱ // 0xb3a @0x4b
0x0aef…0b62 at0050 = ╱ee╱)╱ // 0xb3f @0x50
0x0aef…0b62 at0051 = ╱ec╱,╱ // 0xb40 @0x51
0x0aef…0b62 at0052 = ╱54╱T╱ // 0xb41 @0x52
0x0aef…0b62 at0053 = ╱31╱1╱ // 0xb42 @0x53
0x0aef…0b62 at0054 = ╱ed╱(╱ // 0xb43 @0x54
0x0aef…0b62 at0055 = ╱37╱7╱ // 0xb44 @0x55
0x0aef…0b62 at0056 = ╱fe0000e003╱ // 0xb45 @0x56
0x0aef…0b62 at005b = ╱ee╱)╱ // 0xb4a @0x5b
0x0aef…0b62 at005c = ╱ec╱,╱ // 0xb4b @0x5c
0x0aef…0b62 at005d = ╱54╱T╱ // 0xb4c @0x5d
0x0aef…0b62 at005e = ╱31╱1╱ // 0xb4d @0x5e
0x0aef…0b62 at005f = ╱ed╱(╱ // 0xb4e @0x5f
0x0aef…0b62 at0060 = ╱38╱8╱ // 0xb4f @0x60
0x0aef…0b62 at0061 = ╱fe00008004╱ // 0xb50 @0x61
0x0aef…0b62 at0066 = ╱ee╱)╱ // 0xb55 @0x66
0x0aef…0b62 at0067 = ╱ec╱,╱ // 0xb56 @0x67
0x0aef…0b62 at0068 = ╱54╱T╱ // 0xb57 @0x68
0x0aef…0b62 at0069 = ╱31╱1╱ // 0xb58 @0x69
0x0aef…0b62 at006a = ╱ed╱(╱ // 0xb59 @0x6a
0x0aef…0b62 at006b = ╱39╱9╱ // 0xb5a @0x6b
0x0aef…0b62 at006c = ╱fe00009004╱ // 0xb5b @0x6c
0x0aef…0b62 at0071 = ╱ee╱)╱ // 0xb60 @0x71
0x0aef…0b62 at0072 = EOL // 0xb61 @0x72
0x0aef…0b62 }
0x0b62…0b7f 98d6 1440 EXEC FEJL(1,7,K2$)
0x0b62…0b7f LineComalBin {
0x0b62…0b7f ptr = 0x98d6 // 0xb62 @0x0
0x0b62…0b7f lno = 0x05a0 // 0xb64 @0x2
0x0b62…0b7f at0004 = ╱9d╱ EXEC ╱ // 0xb66 @0x4
0x0b62…0b7f at0005 = ╱46╱F╱ // 0xb67 @0x5
0x0b62…0b7f at0006 = ╱45╱E╱ // 0xb68 @0x6
0x0b62…0b7f at0007 = ╱4a╱J╱ // 0xb69 @0x7
0x0b62…0b7f at0008 = ╱4c╱L╱ // 0xb6a @0x8
0x0b62…0b7f at0009 = ╱ed╱(╱ // 0xb6b @0x9
0x0b62…0b7f at000a = ╱31╱1╱ // 0xb6c @0xa
0x0b62…0b7f at000b = ╱fe00008001╱ // 0xb6d @0xb
0x0b62…0b7f at0010 = ╱ec╱,╱ // 0xb72 @0x10
0x0b62…0b7f at0011 = ╱37╱7╱ // 0xb73 @0x11
0x0b62…0b7f at0012 = ╱fe0000e003╱ // 0xb74 @0x12
0x0b62…0b7f at0017 = ╱ec╱,╱ // 0xb79 @0x17
0x0b62…0b7f at0018 = ╱4b╱K╱ // 0xb7a @0x18
0x0b62…0b7f at0019 = ╱32╱2╱ // 0xb7b @0x19
0x0b62…0b7f at001a = ╱ef╱$╱ // 0xb7c @0x1a
0x0b62…0b7f at001b = ╱ee╱)╱ // 0xb7d @0x1b
0x0b62…0b7f at001c = EOL // 0xb7e @0x1c
0x0b62…0b7f }
0x0b7f…0b94 98eb 1450 FOR I=1 TO 3
0x0b7f…0b94 LineComalBin {
0x0b7f…0b94 ptr = 0x98eb // 0xb7f @0x0
0x0b7f…0b94 lno = 0x05aa // 0xb81 @0x2
0x0b7f…0b94 at0004 = ╱83╱ FOR ╱ // 0xb83 @0x4
0x0b7f…0b94 at0005 = ╱49╱I╱ // 0xb84 @0x5
0x0b7f…0b94 at0006 = ╱dc╱=╱ // 0xb85 @0x6
0x0b7f…0b94 at0007 = ╱31╱1╱ // 0xb86 @0x7
0x0b7f…0b94 at0008 = ╱fe00008001╱ // 0xb87 @0x8
0x0b7f…0b94 at000d = ╱b7╱ TO ╱ // 0xb8c @0xd
0x0b7f…0b94 at000e = ╱33╱3╱ // 0xb8d @0xe
0x0b7f…0b94 at000f = ╱fe0000c002╱ // 0xb8e @0xf
0x0b7f…0b94 at0014 = EOL // 0xb93 @0x14
0x0b7f…0b94 }
0x0b94…0bb3 990a 1460 J=(I-1)*3+1
0x0b94…0bb3 LineComalBin {
0x0b94…0bb3 ptr = 0x990a // 0xb94 @0x0
0x0b94…0bb3 lno = 0x05b4 // 0xb96 @0x2
0x0b94…0bb3 at0004 = ╱4a╱J╱ // 0xb98 @0x4
0x0b94…0bb3 at0005 = ╱dc╱=╱ // 0xb99 @0x5
0x0b94…0bb3 at0006 = ╱ed╱(╱ // 0xb9a @0x6
0x0b94…0bb3 at0007 = ╱49╱I╱ // 0xb9b @0x7
0x0b94…0bb3 at0008 = ╱e3╱-╱ // 0xb9c @0x8
0x0b94…0bb3 at0009 = ╱31╱1╱ // 0xb9d @0x9
0x0b94…0bb3 at000a = ╱fe00008001╱ // 0xb9e @0xa
0x0b94…0bb3 at000f = ╱ee╱)╱ // 0xba3 @0xf
0x0b94…0bb3 at0010 = ╱e4╱*╱ // 0xba4 @0x10
0x0b94…0bb3 at0011 = ╱33╱3╱ // 0xba5 @0x11
0x0b94…0bb3 at0012 = ╱fe0000c002╱ // 0xba6 @0x12
0x0b94…0bb3 at0017 = ╱e2╱+╱ // 0xbab @0x17
0x0b94…0bb3 at0018 = ╱31╱1╱ // 0xbac @0x18
0x0b94…0bb3 at0019 = ╱fe00008001╱ // 0xbad @0x19
0x0b94…0bb3 at001e = EOL // 0xbb2 @0x1e
0x0b94…0bb3 }
0x0bb3…0bee 9945 1470 GET K2$,I+2:LAND$(J),LAND$(J+1),LAND$(J+2)
0x0bb3…0bee LineComalBin {
0x0bb3…0bee ptr = 0x9945 // 0xbb3 @0x0
0x0bb3…0bee lno = 0x05be // 0xbb5 @0x2
0x0bb3…0bee at0004 = ╱a9╱ GET ╱ // 0xbb7 @0x4
0x0bb3…0bee at0005 = ╱4b╱K╱ // 0xbb8 @0x5
0x0bb3…0bee at0006 = ╱32╱2╱ // 0xbb9 @0x6
0x0bb3…0bee at0007 = ╱ef╱$╱ // 0xbba @0x7
0x0bb3…0bee at0008 = ╱ec╱,╱ // 0xbbb @0x8
0x0bb3…0bee at0009 = ╱49╱I╱ // 0xbbc @0x9
0x0bb3…0bee at000a = ╱e2╱+╱ // 0xbbd @0xa
0x0bb3…0bee at000b = ╱32╱2╱ // 0xbbe @0xb
0x0bb3…0bee at000c = ╱fe00008002╱ // 0xbbf @0xc
0x0bb3…0bee at0011 = ╱f0╱:╱ // 0xbc4 @0x11
0x0bb3…0bee at0012 = ╱4c╱L╱ // 0xbc5 @0x12
0x0bb3…0bee at0013 = ╱41╱A╱ // 0xbc6 @0x13
0x0bb3…0bee at0014 = ╱4e╱N╱ // 0xbc7 @0x14
0x0bb3…0bee at0015 = ╱44╱D╱ // 0xbc8 @0x15
0x0bb3…0bee at0016 = ╱ef╱$╱ // 0xbc9 @0x16
0x0bb3…0bee at0017 = ╱ed╱(╱ // 0xbca @0x17
0x0bb3…0bee at0018 = ╱4a╱J╱ // 0xbcb @0x18
0x0bb3…0bee at0019 = ╱ee╱)╱ // 0xbcc @0x19
0x0bb3…0bee at001a = ╱ec╱,╱ // 0xbcd @0x1a
0x0bb3…0bee at001b = ╱4c╱L╱ // 0xbce @0x1b
0x0bb3…0bee at001c = ╱41╱A╱ // 0xbcf @0x1c
0x0bb3…0bee at001d = ╱4e╱N╱ // 0xbd0 @0x1d
0x0bb3…0bee at001e = ╱44╱D╱ // 0xbd1 @0x1e
0x0bb3…0bee at001f = ╱ef╱$╱ // 0xbd2 @0x1f
0x0bb3…0bee at0020 = ╱ed╱(╱ // 0xbd3 @0x20
0x0bb3…0bee at0021 = ╱4a╱J╱ // 0xbd4 @0x21
0x0bb3…0bee at0022 = ╱e2╱+╱ // 0xbd5 @0x22
0x0bb3…0bee at0023 = ╱31╱1╱ // 0xbd6 @0x23
0x0bb3…0bee at0024 = ╱fe00008001╱ // 0xbd7 @0x24
0x0bb3…0bee at0029 = ╱ee╱)╱ // 0xbdc @0x29
0x0bb3…0bee at002a = ╱ec╱,╱ // 0xbdd @0x2a
0x0bb3…0bee at002b = ╱4c╱L╱ // 0xbde @0x2b
0x0bb3…0bee at002c = ╱41╱A╱ // 0xbdf @0x2c
0x0bb3…0bee at002d = ╱4e╱N╱ // 0xbe0 @0x2d
0x0bb3…0bee at002e = ╱44╱D╱ // 0xbe1 @0x2e
0x0bb3…0bee at002f = ╱ef╱$╱ // 0xbe2 @0x2f
0x0bb3…0bee at0030 = ╱ed╱(╱ // 0xbe3 @0x30
0x0bb3…0bee at0031 = ╱4a╱J╱ // 0xbe4 @0x31
0x0bb3…0bee at0032 = ╱e2╱+╱ // 0xbe5 @0x32
0x0bb3…0bee at0033 = ╱32╱2╱ // 0xbe6 @0x33
0x0bb3…0bee at0034 = ╱fe00008002╱ // 0xbe7 @0x34
0x0bb3…0bee at0039 = ╱ee╱)╱ // 0xbec @0x39
0x0bb3…0bee at003a = EOL // 0xbed @0x3a
0x0bb3…0bee }
0x0bee…0c0b 9962 1480 EXEC FEJL(1,8,K2$)
0x0bee…0c0b LineComalBin {
0x0bee…0c0b ptr = 0x9962 // 0xbee @0x0
0x0bee…0c0b lno = 0x05c8 // 0xbf0 @0x2
0x0bee…0c0b at0004 = ╱9d╱ EXEC ╱ // 0xbf2 @0x4
0x0bee…0c0b at0005 = ╱46╱F╱ // 0xbf3 @0x5
0x0bee…0c0b at0006 = ╱45╱E╱ // 0xbf4 @0x6
0x0bee…0c0b at0007 = ╱4a╱J╱ // 0xbf5 @0x7
0x0bee…0c0b at0008 = ╱4c╱L╱ // 0xbf6 @0x8
0x0bee…0c0b at0009 = ╱ed╱(╱ // 0xbf7 @0x9
0x0bee…0c0b at000a = ╱31╱1╱ // 0xbf8 @0xa
0x0bee…0c0b at000b = ╱fe00008001╱ // 0xbf9 @0xb
0x0bee…0c0b at0010 = ╱ec╱,╱ // 0xbfe @0x10
0x0bee…0c0b at0011 = ╱38╱8╱ // 0xbff @0x11
0x0bee…0c0b at0012 = ╱fe00008004╱ // 0xc00 @0x12
0x0bee…0c0b at0017 = ╱ec╱,╱ // 0xc05 @0x17
0x0bee…0c0b at0018 = ╱4b╱K╱ // 0xc06 @0x18
0x0bee…0c0b at0019 = ╱32╱2╱ // 0xc07 @0x19
0x0bee…0c0b at001a = ╱ef╱$╱ // 0xc08 @0x1a
0x0bee…0c0b at001b = ╱ee╱)╱ // 0xc09 @0x1b
0x0bee…0c0b at001c = EOL // 0xc0a @0x1c
0x0bee…0c0b }
0x0c0b…0c12 9969 1490 NEXT I
0x0c0b…0c12 LineComalBin {
0x0c0b…0c12 ptr = 0x9969 // 0xc0b @0x0
0x0c0b…0c12 lno = 0x05d2 // 0xc0d @0x2
0x0c0b…0c12 at0004 = ╱84╱ NEXT ╱ // 0xc0f @0x4
0x0c0b…0c12 at0005 = ╱49╱I╱ // 0xc10 @0x5
0x0c0b…0c12 at0006 = EOL // 0xc11 @0x6
0x0c0b…0c12 }
0x0c12…0c27 997e 1500 FOR I=1 TO 3
0x0c12…0c27 LineComalBin {
0x0c12…0c27 ptr = 0x997e // 0xc12 @0x0
0x0c12…0c27 lno = 0x05dc // 0xc14 @0x2
0x0c12…0c27 at0004 = ╱83╱ FOR ╱ // 0xc16 @0x4
0x0c12…0c27 at0005 = ╱49╱I╱ // 0xc17 @0x5
0x0c12…0c27 at0006 = ╱dc╱=╱ // 0xc18 @0x6
0x0c12…0c27 at0007 = ╱31╱1╱ // 0xc19 @0x7
0x0c12…0c27 at0008 = ╱fe00008001╱ // 0xc1a @0x8
0x0c12…0c27 at000d = ╱b7╱ TO ╱ // 0xc1f @0xd
0x0c12…0c27 at000e = ╱33╱3╱ // 0xc20 @0xe
0x0c12…0c27 at000f = ╱fe0000c002╱ // 0xc21 @0xf
0x0c12…0c27 at0014 = EOL // 0xc26 @0x14
0x0c12…0c27 }
0x0c27…0c46 999d 1510 J=(I-1)*3+1
0x0c27…0c46 LineComalBin {
0x0c27…0c46 ptr = 0x999d // 0xc27 @0x0
0x0c27…0c46 lno = 0x05e6 // 0xc29 @0x2
0x0c27…0c46 at0004 = ╱4a╱J╱ // 0xc2b @0x4
0x0c27…0c46 at0005 = ╱dc╱=╱ // 0xc2c @0x5
0x0c27…0c46 at0006 = ╱ed╱(╱ // 0xc2d @0x6
0x0c27…0c46 at0007 = ╱49╱I╱ // 0xc2e @0x7
0x0c27…0c46 at0008 = ╱e3╱-╱ // 0xc2f @0x8
0x0c27…0c46 at0009 = ╱31╱1╱ // 0xc30 @0x9
0x0c27…0c46 at000a = ╱fe00008001╱ // 0xc31 @0xa
0x0c27…0c46 at000f = ╱ee╱)╱ // 0xc36 @0xf
0x0c27…0c46 at0010 = ╱e4╱*╱ // 0xc37 @0x10
0x0c27…0c46 at0011 = ╱33╱3╱ // 0xc38 @0x11
0x0c27…0c46 at0012 = ╱fe0000c002╱ // 0xc39 @0x12
0x0c27…0c46 at0017 = ╱e2╱+╱ // 0xc3e @0x17
0x0c27…0c46 at0018 = ╱31╱1╱ // 0xc3f @0x18
0x0c27…0c46 at0019 = ╱fe00008001╱ // 0xc40 @0x19
0x0c27…0c46 at001e = EOL // 0xc45 @0x1e
0x0c27…0c46 }
0x0c46…0c81 99d8 1520 GET K2$,I+5:TFIL$(J),TFIL$(J+1),TFIL$(J+2)
0x0c46…0c81 LineComalBin {
0x0c46…0c81 ptr = 0x99d8 // 0xc46 @0x0
0x0c46…0c81 lno = 0x05f0 // 0xc48 @0x2
0x0c46…0c81 at0004 = ╱a9╱ GET ╱ // 0xc4a @0x4
0x0c46…0c81 at0005 = ╱4b╱K╱ // 0xc4b @0x5
0x0c46…0c81 at0006 = ╱32╱2╱ // 0xc4c @0x6
0x0c46…0c81 at0007 = ╱ef╱$╱ // 0xc4d @0x7
0x0c46…0c81 at0008 = ╱ec╱,╱ // 0xc4e @0x8
0x0c46…0c81 at0009 = ╱49╱I╱ // 0xc4f @0x9
0x0c46…0c81 at000a = ╱e2╱+╱ // 0xc50 @0xa
0x0c46…0c81 at000b = ╱35╱5╱ // 0xc51 @0xb
0x0c46…0c81 at000c = ╱fe0000a003╱ // 0xc52 @0xc
0x0c46…0c81 at0011 = ╱f0╱:╱ // 0xc57 @0x11
0x0c46…0c81 at0012 = ╱54╱T╱ // 0xc58 @0x12
0x0c46…0c81 at0013 = ╱46╱F╱ // 0xc59 @0x13
0x0c46…0c81 at0014 = ╱49╱I╱ // 0xc5a @0x14
0x0c46…0c81 at0015 = ╱4c╱L╱ // 0xc5b @0x15
0x0c46…0c81 at0016 = ╱ef╱$╱ // 0xc5c @0x16
0x0c46…0c81 at0017 = ╱ed╱(╱ // 0xc5d @0x17
0x0c46…0c81 at0018 = ╱4a╱J╱ // 0xc5e @0x18
0x0c46…0c81 at0019 = ╱ee╱)╱ // 0xc5f @0x19
0x0c46…0c81 at001a = ╱ec╱,╱ // 0xc60 @0x1a
0x0c46…0c81 at001b = ╱54╱T╱ // 0xc61 @0x1b
0x0c46…0c81 at001c = ╱46╱F╱ // 0xc62 @0x1c
0x0c46…0c81 at001d = ╱49╱I╱ // 0xc63 @0x1d
0x0c46…0c81 at001e = ╱4c╱L╱ // 0xc64 @0x1e
0x0c46…0c81 at001f = ╱ef╱$╱ // 0xc65 @0x1f
0x0c46…0c81 at0020 = ╱ed╱(╱ // 0xc66 @0x20
0x0c46…0c81 at0021 = ╱4a╱J╱ // 0xc67 @0x21
0x0c46…0c81 at0022 = ╱e2╱+╱ // 0xc68 @0x22
0x0c46…0c81 at0023 = ╱31╱1╱ // 0xc69 @0x23
0x0c46…0c81 at0024 = ╱fe00008001╱ // 0xc6a @0x24
0x0c46…0c81 at0029 = ╱ee╱)╱ // 0xc6f @0x29
0x0c46…0c81 at002a = ╱ec╱,╱ // 0xc70 @0x2a
0x0c46…0c81 at002b = ╱54╱T╱ // 0xc71 @0x2b
0x0c46…0c81 at002c = ╱46╱F╱ // 0xc72 @0x2c
0x0c46…0c81 at002d = ╱49╱I╱ // 0xc73 @0x2d
0x0c46…0c81 at002e = ╱4c╱L╱ // 0xc74 @0x2e
0x0c46…0c81 at002f = ╱ef╱$╱ // 0xc75 @0x2f
0x0c46…0c81 at0030 = ╱ed╱(╱ // 0xc76 @0x30
0x0c46…0c81 at0031 = ╱4a╱J╱ // 0xc77 @0x31
0x0c46…0c81 at0032 = ╱e2╱+╱ // 0xc78 @0x32
0x0c46…0c81 at0033 = ╱32╱2╱ // 0xc79 @0x33
0x0c46…0c81 at0034 = ╱fe00008002╱ // 0xc7a @0x34
0x0c46…0c81 at0039 = ╱ee╱)╱ // 0xc7f @0x39
0x0c46…0c81 at003a = EOL // 0xc80 @0x3a
0x0c46…0c81 }
0x0c81…0c9e 99f5 1530 EXEC FEJL(1,9,K2$)
0x0c81…0c9e LineComalBin {
0x0c81…0c9e ptr = 0x99f5 // 0xc81 @0x0
0x0c81…0c9e lno = 0x05fa // 0xc83 @0x2
0x0c81…0c9e at0004 = ╱9d╱ EXEC ╱ // 0xc85 @0x4
0x0c81…0c9e at0005 = ╱46╱F╱ // 0xc86 @0x5
0x0c81…0c9e at0006 = ╱45╱E╱ // 0xc87 @0x6
0x0c81…0c9e at0007 = ╱4a╱J╱ // 0xc88 @0x7
0x0c81…0c9e at0008 = ╱4c╱L╱ // 0xc89 @0x8
0x0c81…0c9e at0009 = ╱ed╱(╱ // 0xc8a @0x9
0x0c81…0c9e at000a = ╱31╱1╱ // 0xc8b @0xa
0x0c81…0c9e at000b = ╱fe00008001╱ // 0xc8c @0xb
0x0c81…0c9e at0010 = ╱ec╱,╱ // 0xc91 @0x10
0x0c81…0c9e at0011 = ╱39╱9╱ // 0xc92 @0x11
0x0c81…0c9e at0012 = ╱fe00009004╱ // 0xc93 @0x12
0x0c81…0c9e at0017 = ╱ec╱,╱ // 0xc98 @0x17
0x0c81…0c9e at0018 = ╱4b╱K╱ // 0xc99 @0x18
0x0c81…0c9e at0019 = ╱32╱2╱ // 0xc9a @0x19
0x0c81…0c9e at001a = ╱ef╱$╱ // 0xc9b @0x1a
0x0c81…0c9e at001b = ╱ee╱)╱ // 0xc9c @0x1b
0x0c81…0c9e at001c = EOL // 0xc9d @0x1c
0x0c81…0c9e }
0x0c9e…0ca5 99fc 1540 NEXT I
0x0c9e…0ca5 LineComalBin {
0x0c9e…0ca5 ptr = 0x99fc // 0xc9e @0x0
0x0c9e…0ca5 lno = 0x0604 // 0xca0 @0x2
0x0c9e…0ca5 at0004 = ╱84╱ NEXT ╱ // 0xca2 @0x4
0x0c9e…0ca5 at0005 = ╱49╱I╱ // 0xca3 @0x5
0x0c9e…0ca5 at0006 = EOL // 0xca4 @0x6
0x0c9e…0ca5 }
0x0ca5…0cc2 9a19 1550 GET K2$,18:AB$(1)
0x0ca5…0cc2 LineComalBin {
0x0ca5…0cc2 ptr = 0x9a19 // 0xca5 @0x0
0x0ca5…0cc2 lno = 0x060e // 0xca7 @0x2
0x0ca5…0cc2 at0004 = ╱a9╱ GET ╱ // 0xca9 @0x4
0x0ca5…0cc2 at0005 = ╱4b╱K╱ // 0xcaa @0x5
0x0ca5…0cc2 at0006 = ╱32╱2╱ // 0xcab @0x6
0x0ca5…0cc2 at0007 = ╱ef╱$╱ // 0xcac @0x7
0x0ca5…0cc2 at0008 = ╱ec╱,╱ // 0xcad @0x8
0x0ca5…0cc2 at0009 = ╱31╱1╱ // 0xcae @0x9
0x0ca5…0cc2 at000a = ╱38╱8╱ // 0xcaf @0xa
0x0ca5…0cc2 at000b = ╱fe00009005╱ // 0xcb0 @0xb
0x0ca5…0cc2 at0010 = ╱f0╱:╱ // 0xcb5 @0x10
0x0ca5…0cc2 at0011 = ╱41╱A╱ // 0xcb6 @0x11
0x0ca5…0cc2 at0012 = ╱42╱B╱ // 0xcb7 @0x12
0x0ca5…0cc2 at0013 = ╱ef╱$╱ // 0xcb8 @0x13
0x0ca5…0cc2 at0014 = ╱ed╱(╱ // 0xcb9 @0x14
0x0ca5…0cc2 at0015 = ╱31╱1╱ // 0xcba @0x15
0x0ca5…0cc2 at0016 = ╱fe00008001╱ // 0xcbb @0x16
0x0ca5…0cc2 at001b = ╱ee╱)╱ // 0xcc0 @0x1b
0x0ca5…0cc2 at001c = EOL // 0xcc1 @0x1c
0x0ca5…0cc2 }
0x0cc2…0ce0 9a37 1560 EXEC FEJL(2,10,K2$)
0x0cc2…0ce0 LineComalBin {
0x0cc2…0ce0 ptr = 0x9a37 // 0xcc2 @0x0
0x0cc2…0ce0 lno = 0x0618 // 0xcc4 @0x2
0x0cc2…0ce0 at0004 = ╱9d╱ EXEC ╱ // 0xcc6 @0x4
0x0cc2…0ce0 at0005 = ╱46╱F╱ // 0xcc7 @0x5
0x0cc2…0ce0 at0006 = ╱45╱E╱ // 0xcc8 @0x6
0x0cc2…0ce0 at0007 = ╱4a╱J╱ // 0xcc9 @0x7
0x0cc2…0ce0 at0008 = ╱4c╱L╱ // 0xcca @0x8
0x0cc2…0ce0 at0009 = ╱ed╱(╱ // 0xccb @0x9
0x0cc2…0ce0 at000a = ╱32╱2╱ // 0xccc @0xa
0x0cc2…0ce0 at000b = ╱fe00008002╱ // 0xccd @0xb
0x0cc2…0ce0 at0010 = ╱ec╱,╱ // 0xcd2 @0x10
0x0cc2…0ce0 at0011 = ╱31╱1╱ // 0xcd3 @0x11
0x0cc2…0ce0 at0012 = ╱30╱0╱ // 0xcd4 @0x12
0x0cc2…0ce0 at0013 = ╱fe0000a004╱ // 0xcd5 @0x13
0x0cc2…0ce0 at0018 = ╱ec╱,╱ // 0xcda @0x18
0x0cc2…0ce0 at0019 = ╱4b╱K╱ // 0xcdb @0x19
0x0cc2…0ce0 at001a = ╱32╱2╱ // 0xcdc @0x1a
0x0cc2…0ce0 at001b = ╱ef╱$╱ // 0xcdd @0x1b
0x0cc2…0ce0 at001c = ╱ee╱)╱ // 0xcde @0x1c
0x0cc2…0ce0 at001d = EOL // 0xcdf @0x1d
0x0cc2…0ce0 }
0x0ce0…0cfd 9a54 1570 GET K2$,19:AB$(2)
0x0ce0…0cfd LineComalBin {
0x0ce0…0cfd ptr = 0x9a54 // 0xce0 @0x0
0x0ce0…0cfd lno = 0x0622 // 0xce2 @0x2
0x0ce0…0cfd at0004 = ╱a9╱ GET ╱ // 0xce4 @0x4
0x0ce0…0cfd at0005 = ╱4b╱K╱ // 0xce5 @0x5
0x0ce0…0cfd at0006 = ╱32╱2╱ // 0xce6 @0x6
0x0ce0…0cfd at0007 = ╱ef╱$╱ // 0xce7 @0x7
0x0ce0…0cfd at0008 = ╱ec╱,╱ // 0xce8 @0x8
0x0ce0…0cfd at0009 = ╱31╱1╱ // 0xce9 @0x9
0x0ce0…0cfd at000a = ╱39╱9╱ // 0xcea @0xa
0x0ce0…0cfd at000b = ╱fe00009805╱ // 0xceb @0xb
0x0ce0…0cfd at0010 = ╱f0╱:╱ // 0xcf0 @0x10
0x0ce0…0cfd at0011 = ╱41╱A╱ // 0xcf1 @0x11
0x0ce0…0cfd at0012 = ╱42╱B╱ // 0xcf2 @0x12
0x0ce0…0cfd at0013 = ╱ef╱$╱ // 0xcf3 @0x13
0x0ce0…0cfd at0014 = ╱ed╱(╱ // 0xcf4 @0x14
0x0ce0…0cfd at0015 = ╱32╱2╱ // 0xcf5 @0x15
0x0ce0…0cfd at0016 = ╱fe00008002╱ // 0xcf6 @0x16
0x0ce0…0cfd at001b = ╱ee╱)╱ // 0xcfb @0x1b
0x0ce0…0cfd at001c = EOL // 0xcfc @0x1c
0x0ce0…0cfd }
0x0cfd…0d1b 9a72 1580 EXEC FEJL(2,11,K2$)
0x0cfd…0d1b LineComalBin {
0x0cfd…0d1b ptr = 0x9a72 // 0xcfd @0x0
0x0cfd…0d1b lno = 0x062c // 0xcff @0x2
0x0cfd…0d1b at0004 = ╱9d╱ EXEC ╱ // 0xd01 @0x4
0x0cfd…0d1b at0005 = ╱46╱F╱ // 0xd02 @0x5
0x0cfd…0d1b at0006 = ╱45╱E╱ // 0xd03 @0x6
0x0cfd…0d1b at0007 = ╱4a╱J╱ // 0xd04 @0x7
0x0cfd…0d1b at0008 = ╱4c╱L╱ // 0xd05 @0x8
0x0cfd…0d1b at0009 = ╱ed╱(╱ // 0xd06 @0x9
0x0cfd…0d1b at000a = ╱32╱2╱ // 0xd07 @0xa
0x0cfd…0d1b at000b = ╱fe00008002╱ // 0xd08 @0xb
0x0cfd…0d1b at0010 = ╱ec╱,╱ // 0xd0d @0x10
0x0cfd…0d1b at0011 = ╱31╱1╱ // 0xd0e @0x11
0x0cfd…0d1b at0012 = ╱31╱1╱ // 0xd0f @0x12
0x0cfd…0d1b at0013 = ╱fe0000b004╱ // 0xd10 @0x13
0x0cfd…0d1b at0018 = ╱ec╱,╱ // 0xd15 @0x18
0x0cfd…0d1b at0019 = ╱4b╱K╱ // 0xd16 @0x19
0x0cfd…0d1b at001a = ╱32╱2╱ // 0xd17 @0x1a
0x0cfd…0d1b at001b = ╱ef╱$╱ // 0xd18 @0x1b
0x0cfd…0d1b at001c = ╱ee╱)╱ // 0xd19 @0x1c
0x0cfd…0d1b at001d = EOL // 0xd1a @0x1d
0x0cfd…0d1b }
0x0d1b…0d50 9aa7 1590 GET K2$,20:AB$(5),AB$(4),AB$(3)
0x0d1b…0d50 LineComalBin {
0x0d1b…0d50 ptr = 0x9aa7 // 0xd1b @0x0
0x0d1b…0d50 lno = 0x0636 // 0xd1d @0x2
0x0d1b…0d50 at0004 = ╱a9╱ GET ╱ // 0xd1f @0x4
0x0d1b…0d50 at0005 = ╱4b╱K╱ // 0xd20 @0x5
0x0d1b…0d50 at0006 = ╱32╱2╱ // 0xd21 @0x6
0x0d1b…0d50 at0007 = ╱ef╱$╱ // 0xd22 @0x7
0x0d1b…0d50 at0008 = ╱ec╱,╱ // 0xd23 @0x8
0x0d1b…0d50 at0009 = ╱32╱2╱ // 0xd24 @0x9
0x0d1b…0d50 at000a = ╱30╱0╱ // 0xd25 @0xa
0x0d1b…0d50 at000b = ╱fe0000a005╱ // 0xd26 @0xb
0x0d1b…0d50 at0010 = ╱f0╱:╱ // 0xd2b @0x10
0x0d1b…0d50 at0011 = ╱41╱A╱ // 0xd2c @0x11
0x0d1b…0d50 at0012 = ╱42╱B╱ // 0xd2d @0x12
0x0d1b…0d50 at0013 = ╱ef╱$╱ // 0xd2e @0x13
0x0d1b…0d50 at0014 = ╱ed╱(╱ // 0xd2f @0x14
0x0d1b…0d50 at0015 = ╱35╱5╱ // 0xd30 @0x15
0x0d1b…0d50 at0016 = ╱fe0000a003╱ // 0xd31 @0x16
0x0d1b…0d50 at001b = ╱ee╱)╱ // 0xd36 @0x1b
0x0d1b…0d50 at001c = ╱ec╱,╱ // 0xd37 @0x1c
0x0d1b…0d50 at001d = ╱41╱A╱ // 0xd38 @0x1d
0x0d1b…0d50 at001e = ╱42╱B╱ // 0xd39 @0x1e
0x0d1b…0d50 at001f = ╱ef╱$╱ // 0xd3a @0x1f
0x0d1b…0d50 at0020 = ╱ed╱(╱ // 0xd3b @0x20
0x0d1b…0d50 at0021 = ╱34╱4╱ // 0xd3c @0x21
0x0d1b…0d50 at0022 = ╱fe00008003╱ // 0xd3d @0x22
0x0d1b…0d50 at0027 = ╱ee╱)╱ // 0xd42 @0x27
0x0d1b…0d50 at0028 = ╱ec╱,╱ // 0xd43 @0x28
0x0d1b…0d50 at0029 = ╱41╱A╱ // 0xd44 @0x29
0x0d1b…0d50 at002a = ╱42╱B╱ // 0xd45 @0x2a
0x0d1b…0d50 at002b = ╱ef╱$╱ // 0xd46 @0x2b
0x0d1b…0d50 at002c = ╱ed╱(╱ // 0xd47 @0x2c
0x0d1b…0d50 at002d = ╱33╱3╱ // 0xd48 @0x2d
0x0d1b…0d50 at002e = ╱fe0000c002╱ // 0xd49 @0x2e
0x0d1b…0d50 at0033 = ╱ee╱)╱ // 0xd4e @0x33
0x0d1b…0d50 at0034 = EOL // 0xd4f @0x34
0x0d1b…0d50 }
0x0d50…0d6e 9ac5 1600 EXEC FEJL(2,12,K2$)
0x0d50…0d6e LineComalBin {
0x0d50…0d6e ptr = 0x9ac5 // 0xd50 @0x0
0x0d50…0d6e lno = 0x0640 // 0xd52 @0x2
0x0d50…0d6e at0004 = ╱9d╱ EXEC ╱ // 0xd54 @0x4
0x0d50…0d6e at0005 = ╱46╱F╱ // 0xd55 @0x5
0x0d50…0d6e at0006 = ╱45╱E╱ // 0xd56 @0x6
0x0d50…0d6e at0007 = ╱4a╱J╱ // 0xd57 @0x7
0x0d50…0d6e at0008 = ╱4c╱L╱ // 0xd58 @0x8
0x0d50…0d6e at0009 = ╱ed╱(╱ // 0xd59 @0x9
0x0d50…0d6e at000a = ╱32╱2╱ // 0xd5a @0xa
0x0d50…0d6e at000b = ╱fe00008002╱ // 0xd5b @0xb
0x0d50…0d6e at0010 = ╱ec╱,╱ // 0xd60 @0x10
0x0d50…0d6e at0011 = ╱31╱1╱ // 0xd61 @0x11
0x0d50…0d6e at0012 = ╱32╱2╱ // 0xd62 @0x12
0x0d50…0d6e at0013 = ╱fe0000c004╱ // 0xd63 @0x13
0x0d50…0d6e at0018 = ╱ec╱,╱ // 0xd68 @0x18
0x0d50…0d6e at0019 = ╱4b╱K╱ // 0xd69 @0x19
0x0d50…0d6e at001a = ╱32╱2╱ // 0xd6a @0x1a
0x0d50…0d6e at001b = ╱ef╱$╱ // 0xd6b @0x1b
0x0d50…0d6e at001c = ╱ee╱)╱ // 0xd6c @0x1c
0x0d50…0d6e at001d = EOL // 0xd6d @0x1d
0x0d50…0d6e }
0x0d6e…0d77 9ace 1610 CLOSE K2$
0x0d6e…0d77 LineComalBin {
0x0d6e…0d77 ptr = 0x9ace // 0xd6e @0x0
0x0d6e…0d77 lno = 0x064a // 0xd70 @0x2
0x0d6e…0d77 at0004 = ╱a8╱ CLOSE ╱ // 0xd72 @0x4
0x0d6e…0d77 at0005 = ╱4b╱K╱ // 0xd73 @0x5
0x0d6e…0d77 at0006 = ╱32╱2╱ // 0xd74 @0x6
0x0d6e…0d77 at0007 = ╱ef╱$╱ // 0xd75 @0x7
0x0d6e…0d77 at0008 = EOL // 0xd76 @0x8
0x0d6e…0d77 }
0x0d77…0d95 9aec 1620 EXEC FEJL(1,10,K2$)
0x0d77…0d95 LineComalBin {
0x0d77…0d95 ptr = 0x9aec // 0xd77 @0x0
0x0d77…0d95 lno = 0x0654 // 0xd79 @0x2
0x0d77…0d95 at0004 = ╱9d╱ EXEC ╱ // 0xd7b @0x4
0x0d77…0d95 at0005 = ╱46╱F╱ // 0xd7c @0x5
0x0d77…0d95 at0006 = ╱45╱E╱ // 0xd7d @0x6
0x0d77…0d95 at0007 = ╱4a╱J╱ // 0xd7e @0x7
0x0d77…0d95 at0008 = ╱4c╱L╱ // 0xd7f @0x8
0x0d77…0d95 at0009 = ╱ed╱(╱ // 0xd80 @0x9
0x0d77…0d95 at000a = ╱31╱1╱ // 0xd81 @0xa
0x0d77…0d95 at000b = ╱fe00008001╱ // 0xd82 @0xb
0x0d77…0d95 at0010 = ╱ec╱,╱ // 0xd87 @0x10
0x0d77…0d95 at0011 = ╱31╱1╱ // 0xd88 @0x11
0x0d77…0d95 at0012 = ╱30╱0╱ // 0xd89 @0x12
0x0d77…0d95 at0013 = ╱fe0000a004╱ // 0xd8a @0x13
0x0d77…0d95 at0018 = ╱ec╱,╱ // 0xd8f @0x18
0x0d77…0d95 at0019 = ╱4b╱K╱ // 0xd90 @0x19
0x0d77…0d95 at001a = ╱32╱2╱ // 0xd91 @0x1a
0x0d77…0d95 at001b = ╱ef╱$╱ // 0xd92 @0x1b
0x0d77…0d95 at001c = ╱ee╱)╱ // 0xd93 @0x1c
0x0d77…0d95 at001d = EOL // 0xd94 @0x1d
0x0d77…0d95 }
0x0d95…0dac 9b03 1630 AD$(1)="Navn"
0x0d95…0dac LineComalBin {
0x0d95…0dac ptr = 0x9b03 // 0xd95 @0x0
0x0d95…0dac lno = 0x065e // 0xd97 @0x2
0x0d95…0dac at0004 = ╱41╱A╱ // 0xd99 @0x4
0x0d95…0dac at0005 = ╱44╱D╱ // 0xd9a @0x5
0x0d95…0dac at0006 = ╱ef╱$╱ // 0xd9b @0x6
0x0d95…0dac at0007 = ╱ed╱(╱ // 0xd9c @0x7
0x0d95…0dac at0008 = ╱31╱1╱ // 0xd9d @0x8
0x0d95…0dac at0009 = ╱fe00008001╱ // 0xd9e @0x9
0x0d95…0dac at000e = ╱ee╱)╱ // 0xda3 @0xe
0x0d95…0dac at000f = ╱dc╱=╱ // 0xda4 @0xf
0x0d95…0dac at0010 = ╱22╱"╱ // 0xda5 @0x10
0x0d95…0dac at0011 = ╱4e╱N╱ // 0xda6 @0x11
0x0d95…0dac at0012 = ╱61╱a╱ // 0xda7 @0x12
0x0d95…0dac at0013 = ╱76╱v╱ // 0xda8 @0x13
0x0d95…0dac at0014 = ╱6e╱n╱ // 0xda9 @0x14
0x0d95…0dac at0015 = ╱22╱"╱ // 0xdaa @0x15
0x0d95…0dac at0016 = EOL // 0xdab @0x16
0x0d95…0dac }
0x0dac…0dc3 9b1a 1640 AD$(2)="Gade"
0x0dac…0dc3 LineComalBin {
0x0dac…0dc3 ptr = 0x9b1a // 0xdac @0x0
0x0dac…0dc3 lno = 0x0668 // 0xdae @0x2
0x0dac…0dc3 at0004 = ╱41╱A╱ // 0xdb0 @0x4
0x0dac…0dc3 at0005 = ╱44╱D╱ // 0xdb1 @0x5
0x0dac…0dc3 at0006 = ╱ef╱$╱ // 0xdb2 @0x6
0x0dac…0dc3 at0007 = ╱ed╱(╱ // 0xdb3 @0x7
0x0dac…0dc3 at0008 = ╱32╱2╱ // 0xdb4 @0x8
0x0dac…0dc3 at0009 = ╱fe00008002╱ // 0xdb5 @0x9
0x0dac…0dc3 at000e = ╱ee╱)╱ // 0xdba @0xe
0x0dac…0dc3 at000f = ╱dc╱=╱ // 0xdbb @0xf
0x0dac…0dc3 at0010 = ╱22╱"╱ // 0xdbc @0x10
0x0dac…0dc3 at0011 = ╱47╱G╱ // 0xdbd @0x11
0x0dac…0dc3 at0012 = ╱61╱a╱ // 0xdbe @0x12
0x0dac…0dc3 at0013 = ╱64╱d╱ // 0xdbf @0x13
0x0dac…0dc3 at0014 = ╱65╱e╱ // 0xdc0 @0x14
0x0dac…0dc3 at0015 = ╱22╱"╱ // 0xdc1 @0x15
0x0dac…0dc3 at0016 = EOL // 0xdc2 @0x16
0x0dac…0dc3 }
0x0dc3…0ddc 9b33 1650 AD$(3)="Postnr"
0x0dc3…0ddc LineComalBin {
0x0dc3…0ddc ptr = 0x9b33 // 0xdc3 @0x0
0x0dc3…0ddc lno = 0x0672 // 0xdc5 @0x2
0x0dc3…0ddc at0004 = ╱41╱A╱ // 0xdc7 @0x4
0x0dc3…0ddc at0005 = ╱44╱D╱ // 0xdc8 @0x5
0x0dc3…0ddc at0006 = ╱ef╱$╱ // 0xdc9 @0x6
0x0dc3…0ddc at0007 = ╱ed╱(╱ // 0xdca @0x7
0x0dc3…0ddc at0008 = ╱33╱3╱ // 0xdcb @0x8
0x0dc3…0ddc at0009 = ╱fe0000c002╱ // 0xdcc @0x9
0x0dc3…0ddc at000e = ╱ee╱)╱ // 0xdd1 @0xe
0x0dc3…0ddc at000f = ╱dc╱=╱ // 0xdd2 @0xf
0x0dc3…0ddc at0010 = ╱22╱"╱ // 0xdd3 @0x10
0x0dc3…0ddc at0011 = ╱50╱P╱ // 0xdd4 @0x11
0x0dc3…0ddc at0012 = ╱6f╱o╱ // 0xdd5 @0x12
0x0dc3…0ddc at0013 = ╱73╱s╱ // 0xdd6 @0x13
0x0dc3…0ddc at0014 = ╱74╱t╱ // 0xdd7 @0x14
0x0dc3…0ddc at0015 = ╱6e╱n╱ // 0xdd8 @0x15
0x0dc3…0ddc at0016 = ╱72╱r╱ // 0xdd9 @0x16
0x0dc3…0ddc at0017 = ╱22╱"╱ // 0xdda @0x17
0x0dc3…0ddc at0018 = EOL // 0xddb @0x18
0x0dc3…0ddc }
0x0ddc…0df1 9b48 1660 AD$(4)="By"
0x0ddc…0df1 LineComalBin {
0x0ddc…0df1 ptr = 0x9b48 // 0xddc @0x0
0x0ddc…0df1 lno = 0x067c // 0xdde @0x2
0x0ddc…0df1 at0004 = ╱41╱A╱ // 0xde0 @0x4
0x0ddc…0df1 at0005 = ╱44╱D╱ // 0xde1 @0x5
0x0ddc…0df1 at0006 = ╱ef╱$╱ // 0xde2 @0x6
0x0ddc…0df1 at0007 = ╱ed╱(╱ // 0xde3 @0x7
0x0ddc…0df1 at0008 = ╱34╱4╱ // 0xde4 @0x8
0x0ddc…0df1 at0009 = ╱fe00008003╱ // 0xde5 @0x9
0x0ddc…0df1 at000e = ╱ee╱)╱ // 0xdea @0xe
0x0ddc…0df1 at000f = ╱dc╱=╱ // 0xdeb @0xf
0x0ddc…0df1 at0010 = ╱22╱"╱ // 0xdec @0x10
0x0ddc…0df1 at0011 = ╱42╱B╱ // 0xded @0x11
0x0ddc…0df1 at0012 = ╱79╱y╱ // 0xdee @0x12
0x0ddc…0df1 at0013 = ╱22╱"╱ // 0xdef @0x13
0x0ddc…0df1 at0014 = EOL // 0xdf0 @0x14
0x0ddc…0df1 }
0x0df1…0e0b 9b62 1670 AD$(5)="Diverse"
0x0df1…0e0b LineComalBin {
0x0df1…0e0b ptr = 0x9b62 // 0xdf1 @0x0
0x0df1…0e0b lno = 0x0686 // 0xdf3 @0x2
0x0df1…0e0b at0004 = ╱41╱A╱ // 0xdf5 @0x4
0x0df1…0e0b at0005 = ╱44╱D╱ // 0xdf6 @0x5
0x0df1…0e0b at0006 = ╱ef╱$╱ // 0xdf7 @0x6
0x0df1…0e0b at0007 = ╱ed╱(╱ // 0xdf8 @0x7
0x0df1…0e0b at0008 = ╱35╱5╱ // 0xdf9 @0x8
0x0df1…0e0b at0009 = ╱fe0000a003╱ // 0xdfa @0x9
0x0df1…0e0b at000e = ╱ee╱)╱ // 0xdff @0xe
0x0df1…0e0b at000f = ╱dc╱=╱ // 0xe00 @0xf
0x0df1…0e0b at0010 = ╱22╱"╱ // 0xe01 @0x10
0x0df1…0e0b at0011 = ╱44╱D╱ // 0xe02 @0x11
0x0df1…0e0b at0012 = ╱69╱i╱ // 0xe03 @0x12
0x0df1…0e0b at0013 = ╱76╱v╱ // 0xe04 @0x13
0x0df1…0e0b at0014 = ╱65╱e╱ // 0xe05 @0x14
0x0df1…0e0b at0015 = ╱72╱r╱ // 0xe06 @0x15
0x0df1…0e0b at0016 = ╱73╱s╱ // 0xe07 @0x16
0x0df1…0e0b at0017 = ╱65╱e╱ // 0xe08 @0x17
0x0df1…0e0b at0018 = ╱22╱"╱ // 0xe09 @0x18
0x0df1…0e0b at0019 = EOL // 0xe0a @0x19
0x0df1…0e0b }
0x0e0b…0e2b 9b82 1680 AE$(1)="(max 30 tegn)"
0x0e0b…0e2b LineComalBin {
0x0e0b…0e2b ptr = 0x9b82 // 0xe0b @0x0
0x0e0b…0e2b lno = 0x0690 // 0xe0d @0x2
0x0e0b…0e2b at0004 = ╱41╱A╱ // 0xe0f @0x4
0x0e0b…0e2b at0005 = ╱45╱E╱ // 0xe10 @0x5
0x0e0b…0e2b at0006 = ╱ef╱$╱ // 0xe11 @0x6
0x0e0b…0e2b at0007 = ╱ed╱(╱ // 0xe12 @0x7
0x0e0b…0e2b at0008 = ╱31╱1╱ // 0xe13 @0x8
0x0e0b…0e2b at0009 = ╱fe00008001╱ // 0xe14 @0x9
0x0e0b…0e2b at000e = ╱ee╱)╱ // 0xe19 @0xe
0x0e0b…0e2b at000f = ╱dc╱=╱ // 0xe1a @0xf
0x0e0b…0e2b at0010 = ╱22╱"╱ // 0xe1b @0x10
0x0e0b…0e2b at0011 = ╱28╱(╱ // 0xe1c @0x11
0x0e0b…0e2b at0012 = ╱6d╱m╱ // 0xe1d @0x12
0x0e0b…0e2b at0013 = ╱61╱a╱ // 0xe1e @0x13
0x0e0b…0e2b at0014 = ╱78╱x╱ // 0xe1f @0x14
0x0e0b…0e2b at0015 = ╱20╱…╱ // 0xe20 @0x15
0x0e0b…0e2b at0016 = ╱33╱3╱ // 0xe21 @0x16
0x0e0b…0e2b at0017 = ╱30╱0╱ // 0xe22 @0x17
0x0e0b…0e2b at0018 = ╱20╱…╱ // 0xe23 @0x18
0x0e0b…0e2b at0019 = ╱74╱t╱ // 0xe24 @0x19
0x0e0b…0e2b at001a = ╱65╱e╱ // 0xe25 @0x1a
0x0e0b…0e2b at001b = ╱67╱g╱ // 0xe26 @0x1b
0x0e0b…0e2b at001c = ╱6e╱n╱ // 0xe27 @0x1c
0x0e0b…0e2b at001d = ╱29╱)╱ // 0xe28 @0x1d
0x0e0b…0e2b at001e = ╱22╱"╱ // 0xe29 @0x1e
0x0e0b…0e2b at001f = EOL // 0xe2a @0x1f
0x0e0b…0e2b }
0x0e2b…0e4b 9ba2 1690 AE$(2)="(max 30 tegn)"
0x0e2b…0e4b LineComalBin {
0x0e2b…0e4b ptr = 0x9ba2 // 0xe2b @0x0
0x0e2b…0e4b lno = 0x069a // 0xe2d @0x2
0x0e2b…0e4b at0004 = ╱41╱A╱ // 0xe2f @0x4
0x0e2b…0e4b at0005 = ╱45╱E╱ // 0xe30 @0x5
0x0e2b…0e4b at0006 = ╱ef╱$╱ // 0xe31 @0x6
0x0e2b…0e4b at0007 = ╱ed╱(╱ // 0xe32 @0x7
0x0e2b…0e4b at0008 = ╱32╱2╱ // 0xe33 @0x8
0x0e2b…0e4b at0009 = ╱fe00008002╱ // 0xe34 @0x9
0x0e2b…0e4b at000e = ╱ee╱)╱ // 0xe39 @0xe
0x0e2b…0e4b at000f = ╱dc╱=╱ // 0xe3a @0xf
0x0e2b…0e4b at0010 = ╱22╱"╱ // 0xe3b @0x10
0x0e2b…0e4b at0011 = ╱28╱(╱ // 0xe3c @0x11
0x0e2b…0e4b at0012 = ╱6d╱m╱ // 0xe3d @0x12
0x0e2b…0e4b at0013 = ╱61╱a╱ // 0xe3e @0x13
0x0e2b…0e4b at0014 = ╱78╱x╱ // 0xe3f @0x14
0x0e2b…0e4b at0015 = ╱20╱…╱ // 0xe40 @0x15
0x0e2b…0e4b at0016 = ╱33╱3╱ // 0xe41 @0x16
0x0e2b…0e4b at0017 = ╱30╱0╱ // 0xe42 @0x17
0x0e2b…0e4b at0018 = ╱20╱…╱ // 0xe43 @0x18
0x0e2b…0e4b at0019 = ╱74╱t╱ // 0xe44 @0x19
0x0e2b…0e4b at001a = ╱65╱e╱ // 0xe45 @0x1a
0x0e2b…0e4b at001b = ╱67╱g╱ // 0xe46 @0x1b
0x0e2b…0e4b at001c = ╱6e╱n╱ // 0xe47 @0x1c
0x0e2b…0e4b at001d = ╱29╱)╱ // 0xe48 @0x1d
0x0e2b…0e4b at001e = ╱22╱"╱ // 0xe49 @0x1e
0x0e2b…0e4b at001f = EOL // 0xe4a @0x1f
0x0e2b…0e4b }
0x0e4b…0e6a 9bc1 1700 AE$(3)="(max 4 tegn)"
0x0e4b…0e6a LineComalBin {
0x0e4b…0e6a ptr = 0x9bc1 // 0xe4b @0x0
0x0e4b…0e6a lno = 0x06a4 // 0xe4d @0x2
0x0e4b…0e6a at0004 = ╱41╱A╱ // 0xe4f @0x4
0x0e4b…0e6a at0005 = ╱45╱E╱ // 0xe50 @0x5
0x0e4b…0e6a at0006 = ╱ef╱$╱ // 0xe51 @0x6
0x0e4b…0e6a at0007 = ╱ed╱(╱ // 0xe52 @0x7
0x0e4b…0e6a at0008 = ╱33╱3╱ // 0xe53 @0x8
0x0e4b…0e6a at0009 = ╱fe0000c002╱ // 0xe54 @0x9
0x0e4b…0e6a at000e = ╱ee╱)╱ // 0xe59 @0xe
0x0e4b…0e6a at000f = ╱dc╱=╱ // 0xe5a @0xf
0x0e4b…0e6a at0010 = ╱22╱"╱ // 0xe5b @0x10
0x0e4b…0e6a at0011 = ╱28╱(╱ // 0xe5c @0x11
0x0e4b…0e6a at0012 = ╱6d╱m╱ // 0xe5d @0x12
0x0e4b…0e6a at0013 = ╱61╱a╱ // 0xe5e @0x13
0x0e4b…0e6a at0014 = ╱78╱x╱ // 0xe5f @0x14
0x0e4b…0e6a at0015 = ╱20╱…╱ // 0xe60 @0x15
0x0e4b…0e6a at0016 = ╱34╱4╱ // 0xe61 @0x16
0x0e4b…0e6a at0017 = ╱20╱…╱ // 0xe62 @0x17
0x0e4b…0e6a at0018 = ╱74╱t╱ // 0xe63 @0x18
0x0e4b…0e6a at0019 = ╱65╱e╱ // 0xe64 @0x19
0x0e4b…0e6a at001a = ╱67╱g╱ // 0xe65 @0x1a
0x0e4b…0e6a at001b = ╱6e╱n╱ // 0xe66 @0x1b
0x0e4b…0e6a at001c = ╱29╱)╱ // 0xe67 @0x1c
0x0e4b…0e6a at001d = ╱22╱"╱ // 0xe68 @0x1d
0x0e4b…0e6a at001e = EOL // 0xe69 @0x1e
0x0e4b…0e6a }
0x0e6a…0e8a 9be1 1710 AE$(4)="(max 20 tegn)"
0x0e6a…0e8a LineComalBin {
0x0e6a…0e8a ptr = 0x9be1 // 0xe6a @0x0
0x0e6a…0e8a lno = 0x06ae // 0xe6c @0x2
0x0e6a…0e8a at0004 = ╱41╱A╱ // 0xe6e @0x4
0x0e6a…0e8a at0005 = ╱45╱E╱ // 0xe6f @0x5
0x0e6a…0e8a at0006 = ╱ef╱$╱ // 0xe70 @0x6
0x0e6a…0e8a at0007 = ╱ed╱(╱ // 0xe71 @0x7
0x0e6a…0e8a at0008 = ╱34╱4╱ // 0xe72 @0x8
0x0e6a…0e8a at0009 = ╱fe00008003╱ // 0xe73 @0x9
0x0e6a…0e8a at000e = ╱ee╱)╱ // 0xe78 @0xe
0x0e6a…0e8a at000f = ╱dc╱=╱ // 0xe79 @0xf
0x0e6a…0e8a at0010 = ╱22╱"╱ // 0xe7a @0x10
0x0e6a…0e8a at0011 = ╱28╱(╱ // 0xe7b @0x11
0x0e6a…0e8a at0012 = ╱6d╱m╱ // 0xe7c @0x12
0x0e6a…0e8a at0013 = ╱61╱a╱ // 0xe7d @0x13
0x0e6a…0e8a at0014 = ╱78╱x╱ // 0xe7e @0x14
0x0e6a…0e8a at0015 = ╱20╱…╱ // 0xe7f @0x15
0x0e6a…0e8a at0016 = ╱32╱2╱ // 0xe80 @0x16
0x0e6a…0e8a at0017 = ╱30╱0╱ // 0xe81 @0x17
0x0e6a…0e8a at0018 = ╱20╱…╱ // 0xe82 @0x18
0x0e6a…0e8a at0019 = ╱74╱t╱ // 0xe83 @0x19
0x0e6a…0e8a at001a = ╱65╱e╱ // 0xe84 @0x1a
0x0e6a…0e8a at001b = ╱67╱g╱ // 0xe85 @0x1b
0x0e6a…0e8a at001c = ╱6e╱n╱ // 0xe86 @0x1c
0x0e6a…0e8a at001d = ╱29╱)╱ // 0xe87 @0x1d
0x0e6a…0e8a at001e = ╱22╱"╱ // 0xe88 @0x1e
0x0e6a…0e8a at001f = EOL // 0xe89 @0x1f
0x0e6a…0e8a }
0x0e8a…0eba 9c11 1720 AE$(5)="(listeoverskrift max 10 tegn)"
0x0e8a…0eba LineComalBin {
0x0e8a…0eba ptr = 0x9c11 // 0xe8a @0x0
0x0e8a…0eba lno = 0x06b8 // 0xe8c @0x2
0x0e8a…0eba at0004 = ╱41╱A╱ // 0xe8e @0x4
0x0e8a…0eba at0005 = ╱45╱E╱ // 0xe8f @0x5
0x0e8a…0eba at0006 = ╱ef╱$╱ // 0xe90 @0x6
0x0e8a…0eba at0007 = ╱ed╱(╱ // 0xe91 @0x7
0x0e8a…0eba at0008 = ╱35╱5╱ // 0xe92 @0x8
0x0e8a…0eba at0009 = ╱fe0000a003╱ // 0xe93 @0x9
0x0e8a…0eba at000e = ╱ee╱)╱ // 0xe98 @0xe
0x0e8a…0eba at000f = ╱dc╱=╱ // 0xe99 @0xf
0x0e8a…0eba at0010 = ╱22╱"╱ // 0xe9a @0x10
0x0e8a…0eba at0011 = ╱28╱(╱ // 0xe9b @0x11
0x0e8a…0eba at0012 = ╱6c╱l╱ // 0xe9c @0x12
0x0e8a…0eba at0013 = ╱69╱i╱ // 0xe9d @0x13
0x0e8a…0eba at0014 = ╱73╱s╱ // 0xe9e @0x14
0x0e8a…0eba at0015 = ╱74╱t╱ // 0xe9f @0x15
0x0e8a…0eba at0016 = ╱65╱e╱ // 0xea0 @0x16
0x0e8a…0eba at0017 = ╱6f╱o╱ // 0xea1 @0x17
0x0e8a…0eba at0018 = ╱76╱v╱ // 0xea2 @0x18
0x0e8a…0eba at0019 = ╱65╱e╱ // 0xea3 @0x19
0x0e8a…0eba at001a = ╱72╱r╱ // 0xea4 @0x1a
0x0e8a…0eba at001b = ╱73╱s╱ // 0xea5 @0x1b
0x0e8a…0eba at001c = ╱6b╱k╱ // 0xea6 @0x1c
0x0e8a…0eba at001d = ╱72╱r╱ // 0xea7 @0x1d
0x0e8a…0eba at001e = ╱69╱i╱ // 0xea8 @0x1e
0x0e8a…0eba at001f = ╱66╱f╱ // 0xea9 @0x1f
0x0e8a…0eba at0020 = ╱74╱t╱ // 0xeaa @0x20
0x0e8a…0eba at0021 = ╱20╱…╱ // 0xeab @0x21
0x0e8a…0eba at0022 = ╱6d╱m╱ // 0xeac @0x22
0x0e8a…0eba at0023 = ╱61╱a╱ // 0xead @0x23
0x0e8a…0eba at0024 = ╱78╱x╱ // 0xeae @0x24
0x0e8a…0eba at0025 = ╱20╱…╱ // 0xeaf @0x25
0x0e8a…0eba at0026 = ╱31╱1╱ // 0xeb0 @0x26
0x0e8a…0eba at0027 = ╱30╱0╱ // 0xeb1 @0x27
0x0e8a…0eba at0028 = ╱20╱…╱ // 0xeb2 @0x28
0x0e8a…0eba at0029 = ╱74╱t╱ // 0xeb3 @0x29
0x0e8a…0eba at002a = ╱65╱e╱ // 0xeb4 @0x2a
0x0e8a…0eba at002b = ╱67╱g╱ // 0xeb5 @0x2b
0x0e8a…0eba at002c = ╱6e╱n╱ // 0xeb6 @0x2c
0x0e8a…0eba at002d = ╱29╱)╱ // 0xeb7 @0x2d
0x0e8a…0eba at002e = ╱22╱"╱ // 0xeb8 @0x2e
0x0e8a…0eba at002f = EOL // 0xeb9 @0x2f
0x0e8a…0eba }
0x0eba…0ee0 9c37 1730 BLANK$=" "
0x0eba…0ee0 LineComalBin {
0x0eba…0ee0 ptr = 0x9c37 // 0xeba @0x0
0x0eba…0ee0 lno = 0x06c2 // 0xebc @0x2
0x0eba…0ee0 at0004 = ╱42╱B╱ // 0xebe @0x4
0x0eba…0ee0 at0005 = ╱4c╱L╱ // 0xebf @0x5
0x0eba…0ee0 at0006 = ╱41╱A╱ // 0xec0 @0x6
0x0eba…0ee0 at0007 = ╱4e╱N╱ // 0xec1 @0x7
0x0eba…0ee0 at0008 = ╱4b╱K╱ // 0xec2 @0x8
0x0eba…0ee0 at0009 = ╱ef╱$╱ // 0xec3 @0x9
0x0eba…0ee0 at000a = ╱dc╱=╱ // 0xec4 @0xa
0x0eba…0ee0 at000b = ╱22╱"╱ // 0xec5 @0xb
0x0eba…0ee0 at000c = ╱20╱…╱ // 0xec6 @0xc
0x0eba…0ee0 at000d = ╱20╱…╱ // 0xec7 @0xd
0x0eba…0ee0 at000e = ╱20╱…╱ // 0xec8 @0xe
0x0eba…0ee0 at000f = ╱20╱…╱ // 0xec9 @0xf
0x0eba…0ee0 at0010 = ╱20╱…╱ // 0xeca @0x10
0x0eba…0ee0 at0011 = ╱20╱…╱ // 0xecb @0x11
0x0eba…0ee0 at0012 = ╱20╱…╱ // 0xecc @0x12
0x0eba…0ee0 at0013 = ╱20╱…╱ // 0xecd @0x13
0x0eba…0ee0 at0014 = ╱20╱…╱ // 0xece @0x14
0x0eba…0ee0 at0015 = ╱20╱…╱ // 0xecf @0x15
0x0eba…0ee0 at0016 = ╱20╱…╱ // 0xed0 @0x16
0x0eba…0ee0 at0017 = ╱20╱…╱ // 0xed1 @0x17
0x0eba…0ee0 at0018 = ╱20╱…╱ // 0xed2 @0x18
0x0eba…0ee0 at0019 = ╱20╱…╱ // 0xed3 @0x19
0x0eba…0ee0 at001a = ╱20╱…╱ // 0xed4 @0x1a
0x0eba…0ee0 at001b = ╱20╱…╱ // 0xed5 @0x1b
0x0eba…0ee0 at001c = ╱20╱…╱ // 0xed6 @0x1c
0x0eba…0ee0 at001d = ╱20╱…╱ // 0xed7 @0x1d
0x0eba…0ee0 at001e = ╱20╱…╱ // 0xed8 @0x1e
0x0eba…0ee0 at001f = ╱20╱…╱ // 0xed9 @0x1f
0x0eba…0ee0 at0020 = ╱20╱…╱ // 0xeda @0x20
0x0eba…0ee0 at0021 = ╱20╱…╱ // 0xedb @0x21
0x0eba…0ee0 at0022 = ╱20╱…╱ // 0xedc @0x22
0x0eba…0ee0 at0023 = ╱20╱…╱ // 0xedd @0x23
0x0eba…0ee0 at0024 = ╱22╱"╱ // 0xede @0x24
0x0eba…0ee0 at0025 = EOL // 0xedf @0x25
0x0eba…0ee0 }
0x0ee0…0ee6 9c3d 1740 REPEAT
0x0ee0…0ee6 LineComalBin {
0x0ee0…0ee6 ptr = 0x9c3d // 0xee0 @0x0
0x0ee0…0ee6 lno = 0x06cc // 0xee2 @0x2
0x0ee0…0ee6 at0004 = ╱97╱ REPEAT ╱ // 0xee4 @0x4
0x0ee0…0ee6 at0005 = EOL // 0xee5 @0x5
0x0ee0…0ee6 }
0x0ee6…0eec 9c43 1750 CLEAR
0x0ee6…0eec LineComalBin {
0x0ee6…0eec ptr = 0x9c43 // 0xee6 @0x0
0x0ee6…0eec lno = 0x06d6 // 0xee8 @0x2
0x0ee6…0eec at0004 = ╱a0╱ CLEAR ╱ // 0xeea @0x4
0x0ee6…0eec at0005 = EOL // 0xeeb @0x5
0x0ee6…0eec }
0x0eec…0f00 9c57 1760 CURSOR 20,1
0x0eec…0f00 LineComalBin {
0x0eec…0f00 ptr = 0x9c57 // 0xeec @0x0
0x0eec…0f00 lno = 0x06e0 // 0xeee @0x2
0x0eec…0f00 at0004 = ╱a1╱ CURSOR ╱ // 0xef0 @0x4
0x0eec…0f00 at0005 = ╱32╱2╱ // 0xef1 @0x5
0x0eec…0f00 at0006 = ╱30╱0╱ // 0xef2 @0x6
0x0eec…0f00 at0007 = ╱fe0000a005╱ // 0xef3 @0x7
0x0eec…0f00 at000c = ╱ec╱,╱ // 0xef8 @0xc
0x0eec…0f00 at000d = ╱31╱1╱ // 0xef9 @0xd
0x0eec…0f00 at000e = ╱fe00008001╱ // 0xefa @0xe
0x0eec…0f00 at0013 = EOL // 0xeff @0x13
0x0eec…0f00 }
0x0f00…0f24 9c7b 1770 PRINT "Systemvedligeholdelse";BLANK$
0x0f00…0f24 LineComalBin {
0x0f00…0f24 ptr = 0x9c7b // 0xf00 @0x0
0x0f00…0f24 lno = 0x06ea // 0xf02 @0x2
0x0f00…0f24 at0004 = ╱92╱ PRINT ╱ // 0xf04 @0x4
0x0f00…0f24 at0005 = ╱22╱"╱ // 0xf05 @0x5
0x0f00…0f24 at0006 = ╱53╱S╱ // 0xf06 @0x6
0x0f00…0f24 at0007 = ╱79╱y╱ // 0xf07 @0x7
0x0f00…0f24 at0008 = ╱73╱s╱ // 0xf08 @0x8
0x0f00…0f24 at0009 = ╱74╱t╱ // 0xf09 @0x9
0x0f00…0f24 at000a = ╱65╱e╱ // 0xf0a @0xa
0x0f00…0f24 at000b = ╱6d╱m╱ // 0xf0b @0xb
0x0f00…0f24 at000c = ╱76╱v╱ // 0xf0c @0xc
0x0f00…0f24 at000d = ╱65╱e╱ // 0xf0d @0xd
0x0f00…0f24 at000e = ╱64╱d╱ // 0xf0e @0xe
0x0f00…0f24 at000f = ╱6c╱l╱ // 0xf0f @0xf
0x0f00…0f24 at0010 = ╱69╱i╱ // 0xf10 @0x10
0x0f00…0f24 at0011 = ╱67╱g╱ // 0xf11 @0x11
0x0f00…0f24 at0012 = ╱65╱e╱ // 0xf12 @0x12
0x0f00…0f24 at0013 = ╱68╱h╱ // 0xf13 @0x13
0x0f00…0f24 at0014 = ╱6f╱o╱ // 0xf14 @0x14
0x0f00…0f24 at0015 = ╱6c╱l╱ // 0xf15 @0x15
0x0f00…0f24 at0016 = ╱64╱d╱ // 0xf16 @0x16
0x0f00…0f24 at0017 = ╱65╱e╱ // 0xf17 @0x17
0x0f00…0f24 at0018 = ╱6c╱l╱ // 0xf18 @0x18
0x0f00…0f24 at0019 = ╱73╱s╱ // 0xf19 @0x19
0x0f00…0f24 at001a = ╱65╱e╱ // 0xf1a @0x1a
0x0f00…0f24 at001b = ╱22╱"╱ // 0xf1b @0x1b
0x0f00…0f24 at001c = ╱eb╱;╱ // 0xf1c @0x1c
0x0f00…0f24 at001d = ╱42╱B╱ // 0xf1d @0x1d
0x0f00…0f24 at001e = ╱4c╱L╱ // 0xf1e @0x1e
0x0f00…0f24 at001f = ╱41╱A╱ // 0xf1f @0x1f
0x0f00…0f24 at0020 = ╱4e╱N╱ // 0xf20 @0x20
0x0f00…0f24 at0021 = ╱4b╱K╱ // 0xf21 @0x21
0x0f00…0f24 at0022 = ╱ef╱$╱ // 0xf22 @0x22
0x0f00…0f24 at0023 = EOL // 0xf23 @0x23
0x0f00…0f24 }
0x0f24…0f38 9c8f 1780 CURSOR 15,7
0x0f24…0f38 LineComalBin {
0x0f24…0f38 ptr = 0x9c8f // 0xf24 @0x0
0x0f24…0f38 lno = 0x06f4 // 0xf26 @0x2
0x0f24…0f38 at0004 = ╱a1╱ CURSOR ╱ // 0xf28 @0x4
0x0f24…0f38 at0005 = ╱31╱1╱ // 0xf29 @0x5
0x0f24…0f38 at0006 = ╱35╱5╱ // 0xf2a @0x6
0x0f24…0f38 at0007 = ╱fe0000f004╱ // 0xf2b @0x7
0x0f24…0f38 at000c = ╱ec╱,╱ // 0xf30 @0xc
0x0f24…0f38 at000d = ╱37╱7╱ // 0xf31 @0xd
0x0f24…0f38 at000e = ╱fe0000e003╱ // 0xf32 @0xe
0x0f24…0f38 at0013 = EOL // 0xf37 @0x13
0x0f24…0f38 }
0x0f38…0f49 9ca0 1790 PRINT "0: Færdig"
0x0f38…0f49 LineComalBin {
0x0f38…0f49 ptr = 0x9ca0 // 0xf38 @0x0
0x0f38…0f49 lno = 0x06fe // 0xf3a @0x2
0x0f38…0f49 at0004 = ╱92╱ PRINT ╱ // 0xf3c @0x4
0x0f38…0f49 at0005 = ╱22╱"╱ // 0xf3d @0x5
0x0f38…0f49 at0006 = ╱30╱0╱ // 0xf3e @0x6
0x0f38…0f49 at0007 = ╱3a╱:╱ // 0xf3f @0x7
0x0f38…0f49 at0008 = ╱20╱…╱ // 0xf40 @0x8
0x0f38…0f49 at0009 = ╱46╱F╱ // 0xf41 @0x9
0x0f38…0f49 at000a = ╱7b╱æ╱ // 0xf42 @0xa
0x0f38…0f49 at000b = ╱72╱r╱ // 0xf43 @0xb
0x0f38…0f49 at000c = ╱64╱d╱ // 0xf44 @0xc
0x0f38…0f49 at000d = ╱69╱i╱ // 0xf45 @0xd
0x0f38…0f49 at000e = ╱67╱g╱ // 0xf46 @0xe
0x0f38…0f49 at000f = ╱22╱"╱ // 0xf47 @0xf
0x0f38…0f49 at0010 = EOL // 0xf48 @0x10
0x0f38…0f49 }
0x0f49…0f5d 9cb4 1800 CURSOR 15,9
0x0f49…0f5d LineComalBin {
0x0f49…0f5d ptr = 0x9cb4 // 0xf49 @0x0
0x0f49…0f5d lno = 0x0708 // 0xf4b @0x2
0x0f49…0f5d at0004 = ╱a1╱ CURSOR ╱ // 0xf4d @0x4
0x0f49…0f5d at0005 = ╱31╱1╱ // 0xf4e @0x5
0x0f49…0f5d at0006 = ╱35╱5╱ // 0xf4f @0x6
0x0f49…0f5d at0007 = ╱fe0000f004╱ // 0xf50 @0x7
0x0f49…0f5d at000c = ╱ec╱,╱ // 0xf55 @0xc
0x0f49…0f5d at000d = ╱39╱9╱ // 0xf56 @0xd
0x0f49…0f5d at000e = ╱fe00009004╱ // 0xf57 @0xe
0x0f49…0f5d at0013 = EOL // 0xf5c @0x13
0x0f49…0f5d }
0x0f5d…0f6f 9cc6 1810 PRINT "1: Diverse"
0x0f5d…0f6f LineComalBin {
0x0f5d…0f6f ptr = 0x9cc6 // 0xf5d @0x0
0x0f5d…0f6f lno = 0x0712 // 0xf5f @0x2
0x0f5d…0f6f at0004 = ╱92╱ PRINT ╱ // 0xf61 @0x4
0x0f5d…0f6f at0005 = ╱22╱"╱ // 0xf62 @0x5
0x0f5d…0f6f at0006 = ╱31╱1╱ // 0xf63 @0x6
0x0f5d…0f6f at0007 = ╱3a╱:╱ // 0xf64 @0x7
0x0f5d…0f6f at0008 = ╱20╱…╱ // 0xf65 @0x8
0x0f5d…0f6f at0009 = ╱44╱D╱ // 0xf66 @0x9
0x0f5d…0f6f at000a = ╱69╱i╱ // 0xf67 @0xa
0x0f5d…0f6f at000b = ╱76╱v╱ // 0xf68 @0xb
0x0f5d…0f6f at000c = ╱65╱e╱ // 0xf69 @0xc
0x0f5d…0f6f at000d = ╱72╱r╱ // 0xf6a @0xd
0x0f5d…0f6f at000e = ╱73╱s╱ // 0xf6b @0xe
0x0f5d…0f6f at000f = ╱65╱e╱ // 0xf6c @0xf
0x0f5d…0f6f at0010 = ╱22╱"╱ // 0xf6d @0x10
0x0f5d…0f6f at0011 = EOL // 0xf6e @0x11
0x0f5d…0f6f }
0x0f6f…0f84 9cdb 1820 CURSOR 15,11
0x0f6f…0f84 LineComalBin {
0x0f6f…0f84 ptr = 0x9cdb // 0xf6f @0x0
0x0f6f…0f84 lno = 0x071c // 0xf71 @0x2
0x0f6f…0f84 at0004 = ╱a1╱ CURSOR ╱ // 0xf73 @0x4
0x0f6f…0f84 at0005 = ╱31╱1╱ // 0xf74 @0x5
0x0f6f…0f84 at0006 = ╱35╱5╱ // 0xf75 @0x6
0x0f6f…0f84 at0007 = ╱fe0000f004╱ // 0xf76 @0x7
0x0f6f…0f84 at000c = ╱ec╱,╱ // 0xf7b @0xc
0x0f6f…0f84 at000d = ╱31╱1╱ // 0xf7c @0xd
0x0f6f…0f84 at000e = ╱31╱1╱ // 0xf7d @0xe
0x0f6f…0f84 at000f = ╱fe0000b004╱ // 0xf7e @0xf
0x0f6f…0f84 at0014 = EOL // 0xf83 @0x14
0x0f6f…0f84 }
0x0f84…0f99 9cf0 1830 PRINT "2: Landenavne"
0x0f84…0f99 LineComalBin {
0x0f84…0f99 ptr = 0x9cf0 // 0xf84 @0x0
0x0f84…0f99 lno = 0x0726 // 0xf86 @0x2
0x0f84…0f99 at0004 = ╱92╱ PRINT ╱ // 0xf88 @0x4
0x0f84…0f99 at0005 = ╱22╱"╱ // 0xf89 @0x5
0x0f84…0f99 at0006 = ╱32╱2╱ // 0xf8a @0x6
0x0f84…0f99 at0007 = ╱3a╱:╱ // 0xf8b @0x7
0x0f84…0f99 at0008 = ╱20╱…╱ // 0xf8c @0x8
0x0f84…0f99 at0009 = ╱4c╱L╱ // 0xf8d @0x9
0x0f84…0f99 at000a = ╱61╱a╱ // 0xf8e @0xa
0x0f84…0f99 at000b = ╱6e╱n╱ // 0xf8f @0xb
0x0f84…0f99 at000c = ╱64╱d╱ // 0xf90 @0xc
0x0f84…0f99 at000d = ╱65╱e╱ // 0xf91 @0xd
0x0f84…0f99 at000e = ╱6e╱n╱ // 0xf92 @0xe
0x0f84…0f99 at000f = ╱61╱a╱ // 0xf93 @0xf
0x0f84…0f99 at0010 = ╱76╱v╱ // 0xf94 @0x10
0x0f84…0f99 at0011 = ╱6e╱n╱ // 0xf95 @0x11
0x0f84…0f99 at0012 = ╱65╱e╱ // 0xf96 @0x12
0x0f84…0f99 at0013 = ╱22╱"╱ // 0xf97 @0x13
0x0f84…0f99 at0014 = EOL // 0xf98 @0x14
0x0f84…0f99 }
0x0f99…0fae 9d05 1840 CURSOR 15,13
0x0f99…0fae LineComalBin {
0x0f99…0fae ptr = 0x9d05 // 0xf99 @0x0
0x0f99…0fae lno = 0x0730 // 0xf9b @0x2
0x0f99…0fae at0004 = ╱a1╱ CURSOR ╱ // 0xf9d @0x4
0x0f99…0fae at0005 = ╱31╱1╱ // 0xf9e @0x5
0x0f99…0fae at0006 = ╱35╱5╱ // 0xf9f @0x6
0x0f99…0fae at0007 = ╱fe0000f004╱ // 0xfa0 @0x7
0x0f99…0fae at000c = ╱ec╱,╱ // 0xfa5 @0xc
0x0f99…0fae at000d = ╱31╱1╱ // 0xfa6 @0xd
0x0f99…0fae at000e = ╱33╱3╱ // 0xfa7 @0xe
0x0f99…0fae at000f = ╱fe0000d004╱ // 0xfa8 @0xf
0x0f99…0fae at0014 = EOL // 0xfad @0x14
0x0f99…0fae }
0x0fae…0fca 9d21 1850 PRINT "3: Bogholderitekster"
0x0fae…0fca LineComalBin {
0x0fae…0fca ptr = 0x9d21 // 0xfae @0x0
0x0fae…0fca lno = 0x073a // 0xfb0 @0x2
0x0fae…0fca at0004 = ╱92╱ PRINT ╱ // 0xfb2 @0x4
0x0fae…0fca at0005 = ╱22╱"╱ // 0xfb3 @0x5
0x0fae…0fca at0006 = ╱33╱3╱ // 0xfb4 @0x6
0x0fae…0fca at0007 = ╱3a╱:╱ // 0xfb5 @0x7
0x0fae…0fca at0008 = ╱20╱…╱ // 0xfb6 @0x8
0x0fae…0fca at0009 = ╱42╱B╱ // 0xfb7 @0x9
0x0fae…0fca at000a = ╱6f╱o╱ // 0xfb8 @0xa
0x0fae…0fca at000b = ╱67╱g╱ // 0xfb9 @0xb
0x0fae…0fca at000c = ╱68╱h╱ // 0xfba @0xc
0x0fae…0fca at000d = ╱6f╱o╱ // 0xfbb @0xd
0x0fae…0fca at000e = ╱6c╱l╱ // 0xfbc @0xe
0x0fae…0fca at000f = ╱64╱d╱ // 0xfbd @0xf
0x0fae…0fca at0010 = ╱65╱e╱ // 0xfbe @0x10
0x0fae…0fca at0011 = ╱72╱r╱ // 0xfbf @0x11
0x0fae…0fca at0012 = ╱69╱i╱ // 0xfc0 @0x12
0x0fae…0fca at0013 = ╱74╱t╱ // 0xfc1 @0x13
0x0fae…0fca at0014 = ╱65╱e╱ // 0xfc2 @0x14
0x0fae…0fca at0015 = ╱6b╱k╱ // 0xfc3 @0x15
0x0fae…0fca at0016 = ╱73╱s╱ // 0xfc4 @0x16
0x0fae…0fca at0017 = ╱74╱t╱ // 0xfc5 @0x17
0x0fae…0fca at0018 = ╱65╱e╱ // 0xfc6 @0x18
0x0fae…0fca at0019 = ╱72╱r╱ // 0xfc7 @0x19
0x0fae…0fca at001a = ╱22╱"╱ // 0xfc8 @0x1a
0x0fae…0fca at001b = EOL // 0xfc9 @0x1b
0x0fae…0fca }
0x0fca…0fdf 9d36 1860 CURSOR 15,15
0x0fca…0fdf LineComalBin {
0x0fca…0fdf ptr = 0x9d36 // 0xfca @0x0
0x0fca…0fdf lno = 0x0744 // 0xfcc @0x2
0x0fca…0fdf at0004 = ╱a1╱ CURSOR ╱ // 0xfce @0x4
0x0fca…0fdf at0005 = ╱31╱1╱ // 0xfcf @0x5
0x0fca…0fdf at0006 = ╱35╱5╱ // 0xfd0 @0x6
0x0fca…0fdf at0007 = ╱fe0000f004╱ // 0xfd1 @0x7
0x0fca…0fdf at000c = ╱ec╱,╱ // 0xfd6 @0xc
0x0fca…0fdf at000d = ╱31╱1╱ // 0xfd7 @0xd
0x0fca…0fdf at000e = ╱35╱5╱ // 0xfd8 @0xe
0x0fca…0fdf at000f = ╱fe0000f004╱ // 0xfd9 @0xf
0x0fca…0fdf at0014 = EOL // 0xfde @0x14
0x0fca…0fdf }
0x0fdf…0ffa 9d51 1870 PRINT "4: Firmaoplysninger"
0x0fdf…0ffa LineComalBin {
0x0fdf…0ffa ptr = 0x9d51 // 0xfdf @0x0
0x0fdf…0ffa lno = 0x074e // 0xfe1 @0x2
0x0fdf…0ffa at0004 = ╱92╱ PRINT ╱ // 0xfe3 @0x4
0x0fdf…0ffa at0005 = ╱22╱"╱ // 0xfe4 @0x5
0x0fdf…0ffa at0006 = ╱34╱4╱ // 0xfe5 @0x6
0x0fdf…0ffa at0007 = ╱3a╱:╱ // 0xfe6 @0x7
0x0fdf…0ffa at0008 = ╱20╱…╱ // 0xfe7 @0x8
0x0fdf…0ffa at0009 = ╱46╱F╱ // 0xfe8 @0x9
0x0fdf…0ffa at000a = ╱69╱i╱ // 0xfe9 @0xa
0x0fdf…0ffa at000b = ╱72╱r╱ // 0xfea @0xb
0x0fdf…0ffa at000c = ╱6d╱m╱ // 0xfeb @0xc
0x0fdf…0ffa at000d = ╱61╱a╱ // 0xfec @0xd
0x0fdf…0ffa at000e = ╱6f╱o╱ // 0xfed @0xe
0x0fdf…0ffa at000f = ╱70╱p╱ // 0xfee @0xf
0x0fdf…0ffa at0010 = ╱6c╱l╱ // 0xfef @0x10
0x0fdf…0ffa at0011 = ╱79╱y╱ // 0xff0 @0x11
0x0fdf…0ffa at0012 = ╱73╱s╱ // 0xff1 @0x12
0x0fdf…0ffa at0013 = ╱6e╱n╱ // 0xff2 @0x13
0x0fdf…0ffa at0014 = ╱69╱i╱ // 0xff3 @0x14
0x0fdf…0ffa at0015 = ╱6e╱n╱ // 0xff4 @0x15
0x0fdf…0ffa at0016 = ╱67╱g╱ // 0xff5 @0x16
0x0fdf…0ffa at0017 = ╱65╱e╱ // 0xff6 @0x17
0x0fdf…0ffa at0018 = ╱72╱r╱ // 0xff7 @0x18
0x0fdf…0ffa at0019 = ╱22╱"╱ // 0xff8 @0x19
0x0fdf…0ffa at001a = EOL // 0xff9 @0x1a
0x0fdf…0ffa }
0x0ffa…1000 9d57 1880 REPEAT
0x0ffa…1000 LineComalBin {
0x0ffa…1000 ptr = 0x9d57 // 0xffa @0x0
0x0ffa…1000 lno = 0x0758 // 0xffc @0x2
0x0ffa…1000 at0004 = ╱97╱ REPEAT ╱ // 0xffe @0x4
0x0ffa…1000 at0005 = EOL // 0xfff @0x5
0x0ffa…1000 }
0x1000…1015 9d6c 1890 CURSOR 18,17
0x1000…1015 LineComalBin {
0x1000…1015 ptr = 0x9d6c // 0x1000 @0x0
0x1000…1015 lno = 0x0762 // 0x1002 @0x2
0x1000…1015 at0004 = ╱a1╱ CURSOR ╱ // 0x1004 @0x4
0x1000…1015 at0005 = ╱31╱1╱ // 0x1005 @0x5
0x1000…1015 at0006 = ╱38╱8╱ // 0x1006 @0x6
0x1000…1015 at0007 = ╱fe00009005╱ // 0x1007 @0x7
0x1000…1015 at000c = ╱ec╱,╱ // 0x100c @0xc
0x1000…1015 at000d = ╱31╱1╱ // 0x100d @0xd
0x1000…1015 at000e = ╱37╱7╱ // 0x100e @0xe
0x1000…1015 at000f = ╱fe00008805╱ // 0x100f @0xf
0x1000…1015 at0014 = EOL // 0x1014 @0x14
0x1000…1015 }
0x1015…1031 9d88 1900 INPUT "Vælg type (0-4) :",D$
0x1015…1031 LineComalBin {
0x1015…1031 ptr = 0x9d88 // 0x1015 @0x0
0x1015…1031 lno = 0x076c // 0x1017 @0x2
0x1015…1031 at0004 = ╱91╱ INPUT ╱ // 0x1019 @0x4
0x1015…1031 at0005 = ╱22╱"╱ // 0x101a @0x5
0x1015…1031 at0006 = ╱56╱V╱ // 0x101b @0x6
0x1015…1031 at0007 = ╱7b╱æ╱ // 0x101c @0x7
0x1015…1031 at0008 = ╱6c╱l╱ // 0x101d @0x8
0x1015…1031 at0009 = ╱67╱g╱ // 0x101e @0x9
0x1015…1031 at000a = ╱20╱…╱ // 0x101f @0xa
0x1015…1031 at000b = ╱74╱t╱ // 0x1020 @0xb
0x1015…1031 at000c = ╱79╱y╱ // 0x1021 @0xc
0x1015…1031 at000d = ╱70╱p╱ // 0x1022 @0xd
0x1015…1031 at000e = ╱65╱e╱ // 0x1023 @0xe
0x1015…1031 at000f = ╱20╱…╱ // 0x1024 @0xf
0x1015…1031 at0010 = ╱28╱(╱ // 0x1025 @0x10
0x1015…1031 at0011 = ╱30╱0╱ // 0x1026 @0x11
0x1015…1031 at0012 = ╱2d╱-╱ // 0x1027 @0x12
0x1015…1031 at0013 = ╱34╱4╱ // 0x1028 @0x13
0x1015…1031 at0014 = ╱29╱)╱ // 0x1029 @0x14
0x1015…1031 at0015 = ╱20╱…╱ // 0x102a @0x15
0x1015…1031 at0016 = ╱3a╱:╱ // 0x102b @0x16
0x1015…1031 at0017 = ╱22╱"╱ // 0x102c @0x17
0x1015…1031 at0018 = ╱ec╱,╱ // 0x102d @0x18
0x1015…1031 at0019 = ╱44╱D╱ // 0x102e @0x19
0x1015…1031 at001a = ╱ef╱$╱ // 0x102f @0x1a
0x1015…1031 at001b = EOL // 0x1030 @0x1b
0x1015…1031 }
0x1031…1044 9d9b 1910 UNTIL D$=>"0" AND D$<"5"
0x1031…1044 LineComalBin {
0x1031…1044 ptr = 0x9d9b // 0x1031 @0x0
0x1031…1044 lno = 0x0776 // 0x1033 @0x2
0x1031…1044 at0004 = ╱98╱ UNTIL ╱ // 0x1035 @0x4
0x1031…1044 at0005 = ╱44╱D╱ // 0x1036 @0x5
0x1031…1044 at0006 = ╱ef╱$╱ // 0x1037 @0x6
0x1031…1044 at0007 = ╱e0╱=>╱ // 0x1038 @0x7
0x1031…1044 at0008 = ╱22╱"╱ // 0x1039 @0x8
0x1031…1044 at0009 = ╱30╱0╱ // 0x103a @0x9
0x1031…1044 at000a = ╱22╱"╱ // 0x103b @0xa
0x1031…1044 at000b = ╱da╱ AND ╱ // 0x103c @0xb
0x1031…1044 at000c = ╱44╱D╱ // 0x103d @0xc
0x1031…1044 at000d = ╱ef╱$╱ // 0x103e @0xd
0x1031…1044 at000e = ╱dd╱<╱ // 0x103f @0xe
0x1031…1044 at000f = ╱22╱"╱ // 0x1040 @0xf
0x1031…1044 at0010 = ╱35╱5╱ // 0x1041 @0x10
0x1031…1044 at0011 = ╱22╱"╱ // 0x1042 @0x11
0x1031…1044 at0012 = EOL // 0x1043 @0x12
0x1031…1044 }
0x1044…1051 9da8 1920 IF D$<>"0" THEN
0x1044…1051 LineComalBin {
0x1044…1051 ptr = 0x9da8 // 0x1044 @0x0
0x1044…1051 lno = 0x0780 // 0x1046 @0x2
0x1044…1051 at0004 = ╱9c╱ IF ╱ // 0x1048 @0x4
0x1044…1051 at0005 = ╱44╱D╱ // 0x1049 @0x5
0x1044…1051 at0006 = ╱ef╱$╱ // 0x104a @0x6
0x1044…1051 at0007 = ╱e1╱<>╱ // 0x104b @0x7
0x1044…1051 at0008 = ╱22╱"╱ // 0x104c @0x8
0x1044…1051 at0009 = ╱30╱0╱ // 0x104d @0x9
0x1044…1051 at000a = ╱22╱"╱ // 0x104e @0xa
0x1044…1051 at000b = ╱b6╱ THEN ╱ // 0x104f @0xb
0x1044…1051 at000c = EOL // 0x1050 @0xc
0x1044…1051 }
0x1051…1057 9dae 1930 REPEAT
0x1051…1057 LineComalBin {
0x1051…1057 ptr = 0x9dae // 0x1051 @0x0
0x1051…1057 lno = 0x078a // 0x1053 @0x2
0x1051…1057 at0004 = ╱97╱ REPEAT ╱ // 0x1055 @0x4
0x1051…1057 at0005 = EOL // 0x1056 @0x5
0x1051…1057 }
0x1057…1061 9db8 1940 CASE D$ OF
0x1057…1061 LineComalBin {
0x1057…1061 ptr = 0x9db8 // 0x1057 @0x0
0x1057…1061 lno = 0x0794 // 0x1059 @0x2
0x1057…1061 at0004 = ╱a200╱ CASE ╱ // 0x105b @0x4
0x1057…1061 at0006 = ╱44╱D╱ // 0x105d @0x6
0x1057…1061 at0007 = ╱ef╱$╱ // 0x105e @0x7
0x1057…1061 at0008 = ╱ba╱ OF ╱ // 0x105f @0x8
0x1057…1061 at0009 = EOL // 0x1060 @0x9
0x1057…1061 }
0x1061…1067 9dbe 1950 STOP
0x1061…1067 LineComalBin {
0x1061…1067 ptr = 0x9dbe // 0x1061 @0x0
0x1061…1067 lno = 0x079e // 0x1063 @0x2
0x1061…1067 at0004 = ╱8d╱ STOP ╱ // 0x1065 @0x4
0x1061…1067 at0005 = EOL // 0x1066 @0x5
0x1061…1067 }
0x1067…1071 9dc8 1960 WHEN "1"
0x1067…1071 LineComalBin {
0x1067…1071 ptr = 0x9dc8 // 0x1067 @0x0
0x1067…1071 lno = 0x07a8 // 0x1069 @0x2
0x1067…1071 at0004 = ╱a300╱ WHEN ╱ // 0x106b @0x4
0x1067…1071 at0006 = ╱22╱"╱ // 0x106d @0x6
0x1067…1071 at0007 = ╱31╱1╱ // 0x106e @0x7
0x1067…1071 at0008 = ╱22╱"╱ // 0x106f @0x8
0x1067…1071 at0009 = EOL // 0x1070 @0x9
0x1067…1071 }
0x1071…1082 9dd9 1970 F$="Diverse"
0x1071…1082 LineComalBin {
0x1071…1082 ptr = 0x9dd9 // 0x1071 @0x0
0x1071…1082 lno = 0x07b2 // 0x1073 @0x2
0x1071…1082 at0004 = ╱46╱F╱ // 0x1075 @0x4
0x1071…1082 at0005 = ╱ef╱$╱ // 0x1076 @0x5
0x1071…1082 at0006 = ╱dc╱=╱ // 0x1077 @0x6
0x1071…1082 at0007 = ╱22╱"╱ // 0x1078 @0x7
0x1071…1082 at0008 = ╱44╱D╱ // 0x1079 @0x8
0x1071…1082 at0009 = ╱69╱i╱ // 0x107a @0x9
0x1071…1082 at000a = ╱76╱v╱ // 0x107b @0xa
0x1071…1082 at000b = ╱65╱e╱ // 0x107c @0xb
0x1071…1082 at000c = ╱72╱r╱ // 0x107d @0xc
0x1071…1082 at000d = ╱73╱s╱ // 0x107e @0xd
0x1071…1082 at000e = ╱65╱e╱ // 0x107f @0xe
0x1071…1082 at000f = ╱22╱"╱ // 0x1080 @0xf
0x1071…1082 at0010 = EOL // 0x1081 @0x10
0x1071…1082 }
0x1082…108c 9de3 1980 WHEN "2"
0x1082…108c LineComalBin {
0x1082…108c ptr = 0x9de3 // 0x1082 @0x0
0x1082…108c lno = 0x07bc // 0x1084 @0x2
0x1082…108c at0004 = ╱a300╱ WHEN ╱ // 0x1086 @0x4
0x1082…108c at0006 = ╱22╱"╱ // 0x1088 @0x6
0x1082…108c at0007 = ╱32╱2╱ // 0x1089 @0x7
0x1082…108c at0008 = ╱22╱"╱ // 0x108a @0x8
0x1082…108c at0009 = EOL // 0x108b @0x9
0x1082…108c }
0x108c…10a0 9df7 1990 F$="Landenavne"
0x108c…10a0 LineComalBin {
0x108c…10a0 ptr = 0x9df7 // 0x108c @0x0
0x108c…10a0 lno = 0x07c6 // 0x108e @0x2
0x108c…10a0 at0004 = ╱46╱F╱ // 0x1090 @0x4
0x108c…10a0 at0005 = ╱ef╱$╱ // 0x1091 @0x5
0x108c…10a0 at0006 = ╱dc╱=╱ // 0x1092 @0x6
0x108c…10a0 at0007 = ╱22╱"╱ // 0x1093 @0x7
0x108c…10a0 at0008 = ╱4c╱L╱ // 0x1094 @0x8
0x108c…10a0 at0009 = ╱61╱a╱ // 0x1095 @0x9
0x108c…10a0 at000a = ╱6e╱n╱ // 0x1096 @0xa
0x108c…10a0 at000b = ╱64╱d╱ // 0x1097 @0xb
0x108c…10a0 at000c = ╱65╱e╱ // 0x1098 @0xc
0x108c…10a0 at000d = ╱6e╱n╱ // 0x1099 @0xd
0x108c…10a0 at000e = ╱61╱a╱ // 0x109a @0xe
0x108c…10a0 at000f = ╱76╱v╱ // 0x109b @0xf
0x108c…10a0 at0010 = ╱6e╱n╱ // 0x109c @0x10
0x108c…10a0 at0011 = ╱65╱e╱ // 0x109d @0x11
0x108c…10a0 at0012 = ╱22╱"╱ // 0x109e @0x12
0x108c…10a0 at0013 = EOL // 0x109f @0x13
0x108c…10a0 }
0x10a0…10aa 9e01 2000 WHEN "3"
0x10a0…10aa LineComalBin {
0x10a0…10aa ptr = 0x9e01 // 0x10a0 @0x0
0x10a0…10aa lno = 0x07d0 // 0x10a2 @0x2
0x10a0…10aa at0004 = ╱a300╱ WHEN ╱ // 0x10a4 @0x4
0x10a0…10aa at0006 = ╱22╱"╱ // 0x10a6 @0x6
0x10a0…10aa at0007 = ╱33╱3╱ // 0x10a7 @0x7
0x10a0…10aa at0008 = ╱22╱"╱ // 0x10a8 @0x8
0x10a0…10aa at0009 = EOL // 0x10a9 @0x9
0x10a0…10aa }
0x10aa…10c5 9e1c 2010 F$="Bogholderitekster"
0x10aa…10c5 LineComalBin {
0x10aa…10c5 ptr = 0x9e1c // 0x10aa @0x0
0x10aa…10c5 lno = 0x07da // 0x10ac @0x2
0x10aa…10c5 at0004 = ╱46╱F╱ // 0x10ae @0x4
0x10aa…10c5 at0005 = ╱ef╱$╱ // 0x10af @0x5
0x10aa…10c5 at0006 = ╱dc╱=╱ // 0x10b0 @0x6
0x10aa…10c5 at0007 = ╱22╱"╱ // 0x10b1 @0x7
0x10aa…10c5 at0008 = ╱42╱B╱ // 0x10b2 @0x8
0x10aa…10c5 at0009 = ╱6f╱o╱ // 0x10b3 @0x9
0x10aa…10c5 at000a = ╱67╱g╱ // 0x10b4 @0xa
0x10aa…10c5 at000b = ╱68╱h╱ // 0x10b5 @0xb
0x10aa…10c5 at000c = ╱6f╱o╱ // 0x10b6 @0xc
0x10aa…10c5 at000d = ╱6c╱l╱ // 0x10b7 @0xd
0x10aa…10c5 at000e = ╱64╱d╱ // 0x10b8 @0xe
0x10aa…10c5 at000f = ╱65╱e╱ // 0x10b9 @0xf
0x10aa…10c5 at0010 = ╱72╱r╱ // 0x10ba @0x10
0x10aa…10c5 at0011 = ╱69╱i╱ // 0x10bb @0x11
0x10aa…10c5 at0012 = ╱74╱t╱ // 0x10bc @0x12
0x10aa…10c5 at0013 = ╱65╱e╱ // 0x10bd @0x13
0x10aa…10c5 at0014 = ╱6b╱k╱ // 0x10be @0x14
0x10aa…10c5 at0015 = ╱73╱s╱ // 0x10bf @0x15
0x10aa…10c5 at0016 = ╱74╱t╱ // 0x10c0 @0x16
0x10aa…10c5 at0017 = ╱65╱e╱ // 0x10c1 @0x17
0x10aa…10c5 at0018 = ╱72╱r╱ // 0x10c2 @0x18
0x10aa…10c5 at0019 = ╱22╱"╱ // 0x10c3 @0x19
0x10aa…10c5 at001a = EOL // 0x10c4 @0x1a
0x10aa…10c5 }
0x10c5…10cf 9e26 2020 WHEN "4"
0x10c5…10cf LineComalBin {
0x10c5…10cf ptr = 0x9e26 // 0x10c5 @0x0
0x10c5…10cf lno = 0x07e4 // 0x10c7 @0x2
0x10c5…10cf at0004 = ╱a300╱ WHEN ╱ // 0x10c9 @0x4
0x10c5…10cf at0006 = ╱22╱"╱ // 0x10cb @0x6
0x10c5…10cf at0007 = ╱34╱4╱ // 0x10cc @0x7
0x10c5…10cf at0008 = ╱22╱"╱ // 0x10cd @0x8
0x10c5…10cf at0009 = EOL // 0x10ce @0x9
0x10c5…10cf }
0x10cf…10e9 9e40 2030 F$="Firmaoplysninger"
0x10cf…10e9 LineComalBin {
0x10cf…10e9 ptr = 0x9e40 // 0x10cf @0x0
0x10cf…10e9 lno = 0x07ee // 0x10d1 @0x2
0x10cf…10e9 at0004 = ╱46╱F╱ // 0x10d3 @0x4
0x10cf…10e9 at0005 = ╱ef╱$╱ // 0x10d4 @0x5
0x10cf…10e9 at0006 = ╱dc╱=╱ // 0x10d5 @0x6
0x10cf…10e9 at0007 = ╱22╱"╱ // 0x10d6 @0x7
0x10cf…10e9 at0008 = ╱46╱F╱ // 0x10d7 @0x8
0x10cf…10e9 at0009 = ╱69╱i╱ // 0x10d8 @0x9
0x10cf…10e9 at000a = ╱72╱r╱ // 0x10d9 @0xa
0x10cf…10e9 at000b = ╱6d╱m╱ // 0x10da @0xb
0x10cf…10e9 at000c = ╱61╱a╱ // 0x10db @0xc
0x10cf…10e9 at000d = ╱6f╱o╱ // 0x10dc @0xd
0x10cf…10e9 at000e = ╱70╱p╱ // 0x10dd @0xe
0x10cf…10e9 at000f = ╱6c╱l╱ // 0x10de @0xf
0x10cf…10e9 at0010 = ╱79╱y╱ // 0x10df @0x10
0x10cf…10e9 at0011 = ╱73╱s╱ // 0x10e0 @0x11
0x10cf…10e9 at0012 = ╱6e╱n╱ // 0x10e1 @0x12
0x10cf…10e9 at0013 = ╱69╱i╱ // 0x10e2 @0x13
0x10cf…10e9 at0014 = ╱6e╱n╱ // 0x10e3 @0x14
0x10cf…10e9 at0015 = ╱67╱g╱ // 0x10e4 @0x15
0x10cf…10e9 at0016 = ╱65╱e╱ // 0x10e5 @0x16
0x10cf…10e9 at0017 = ╱72╱r╱ // 0x10e6 @0x17
0x10cf…10e9 at0018 = ╱22╱"╱ // 0x10e7 @0x18
0x10cf…10e9 at0019 = EOL // 0x10e8 @0x19
0x10cf…10e9 }
0x10e9…10ef 9e46 2040 ENDCASE
0x10e9…10ef LineComalBin {
0x10e9…10ef ptr = 0x9e46 // 0x10e9 @0x0
0x10e9…10ef lno = 0x07f8 // 0x10eb @0x2
0x10e9…10ef at0004 = ╱a4╱ ENDCASE ╱ // 0x10ed @0x4
0x10e9…10ef at0005 = EOL // 0x10ee @0x5
0x10e9…10ef }
0x10ef…10fe 9e55 2050 EXEC START(F$)
0x10ef…10fe LineComalBin {
0x10ef…10fe ptr = 0x9e55 // 0x10ef @0x0
0x10ef…10fe lno = 0x0802 // 0x10f1 @0x2
0x10ef…10fe at0004 = ╱9d╱ EXEC ╱ // 0x10f3 @0x4
0x10ef…10fe at0005 = ╱53╱S╱ // 0x10f4 @0x5
0x10ef…10fe at0006 = ╱54╱T╱ // 0x10f5 @0x6
0x10ef…10fe at0007 = ╱41╱A╱ // 0x10f6 @0x7
0x10ef…10fe at0008 = ╱52╱R╱ // 0x10f7 @0x8
0x10ef…10fe at0009 = ╱54╱T╱ // 0x10f8 @0x9
0x10ef…10fe at000a = ╱ed╱(╱ // 0x10f9 @0xa
0x10ef…10fe at000b = ╱46╱F╱ // 0x10fa @0xb
0x10ef…10fe at000c = ╱ef╱$╱ // 0x10fb @0xc
0x10ef…10fe at000d = ╱ee╱)╱ // 0x10fc @0xd
0x10ef…10fe at000e = EOL // 0x10fd @0xe
0x10ef…10fe }
0x10fe…110e 9e65 2060 IF C=0 THEN EXIT
0x10fe…110e LineComalBin {
0x10fe…110e ptr = 0x9e65 // 0x10fe @0x0
0x10fe…110e lno = 0x080c // 0x1100 @0x2
0x10fe…110e at0004 = ╱82╱ IF ╱ // 0x1102 @0x4
0x10fe…110e at0005 = ╱43╱C╱ // 0x1103 @0x5
0x10fe…110e at0006 = ╱dc╱=╱ // 0x1104 @0x6
0x10fe…110e at0007 = ╱30╱0╱ // 0x1105 @0x7
0x10fe…110e at0008 = ╱fe00000000╱ // 0x1106 @0x8
0x10fe…110e at000d = ╱b6╱ THEN ╱ // 0x110b @0xd
0x10fe…110e at000e = ╱99╱ EXIT ╱ // 0x110c @0xe
0x10fe…110e at000f = EOL // 0x110d @0xf
0x10fe…110e }
0x110e…1118 9e6f 2070 CASE D$ OF
0x110e…1118 LineComalBin {
0x110e…1118 ptr = 0x9e6f // 0x110e @0x0
0x110e…1118 lno = 0x0816 // 0x1110 @0x2
0x110e…1118 at0004 = ╱a200╱ CASE ╱ // 0x1112 @0x4
0x110e…1118 at0006 = ╱44╱D╱ // 0x1114 @0x6
0x110e…1118 at0007 = ╱ef╱$╱ // 0x1115 @0x7
0x110e…1118 at0008 = ╱ba╱ OF ╱ // 0x1116 @0x8
0x110e…1118 at0009 = EOL // 0x1117 @0x9
0x110e…1118 }
0x1118…111e 9e75 2080 STOP
0x1118…111e LineComalBin {
0x1118…111e ptr = 0x9e75 // 0x1118 @0x0
0x1118…111e lno = 0x0820 // 0x111a @0x2
0x1118…111e at0004 = ╱8d╱ STOP ╱ // 0x111c @0x4
0x1118…111e at0005 = EOL // 0x111d @0x5
0x1118…111e }
0x111e…1128 9e7f 2090 WHEN "1"
0x111e…1128 LineComalBin {
0x111e…1128 ptr = 0x9e7f // 0x111e @0x0
0x111e…1128 lno = 0x082a // 0x1120 @0x2
0x111e…1128 at0004 = ╱a300╱ WHEN ╱ // 0x1122 @0x4
0x111e…1128 at0006 = ╱22╱"╱ // 0x1124 @0x6
0x111e…1128 at0007 = ╱31╱1╱ // 0x1125 @0x7
0x111e…1128 at0008 = ╱22╱"╱ // 0x1126 @0x8
0x111e…1128 at0009 = EOL // 0x1127 @0x9
0x111e…1128 }
0x1128…1141 9e98 2100 EXEC INDTASTNING(1)
0x1128…1141 LineComalBin {
0x1128…1141 ptr = 0x9e98 // 0x1128 @0x0
0x1128…1141 lno = 0x0834 // 0x112a @0x2
0x1128…1141 at0004 = ╱9d╱ EXEC ╱ // 0x112c @0x4
0x1128…1141 at0005 = ╱49╱I╱ // 0x112d @0x5
0x1128…1141 at0006 = ╱4e╱N╱ // 0x112e @0x6
0x1128…1141 at0007 = ╱44╱D╱ // 0x112f @0x7
0x1128…1141 at0008 = ╱54╱T╱ // 0x1130 @0x8
0x1128…1141 at0009 = ╱41╱A╱ // 0x1131 @0x9
0x1128…1141 at000a = ╱53╱S╱ // 0x1132 @0xa
0x1128…1141 at000b = ╱54╱T╱ // 0x1133 @0xb
0x1128…1141 at000c = ╱4e╱N╱ // 0x1134 @0xc
0x1128…1141 at000d = ╱49╱I╱ // 0x1135 @0xd
0x1128…1141 at000e = ╱4e╱N╱ // 0x1136 @0xe
0x1128…1141 at000f = ╱47╱G╱ // 0x1137 @0xf
0x1128…1141 at0010 = ╱ed╱(╱ // 0x1138 @0x10
0x1128…1141 at0011 = ╱31╱1╱ // 0x1139 @0x11
0x1128…1141 at0012 = ╱fe00008001╱ // 0x113a @0x12
0x1128…1141 at0017 = ╱ee╱)╱ // 0x113f @0x17
0x1128…1141 at0018 = EOL // 0x1140 @0x18
0x1128…1141 }
0x1141…114b 9ea2 2110 WHEN "2"
0x1141…114b LineComalBin {
0x1141…114b ptr = 0x9ea2 // 0x1141 @0x0
0x1141…114b lno = 0x083e // 0x1143 @0x2
0x1141…114b at0004 = ╱a300╱ WHEN ╱ // 0x1145 @0x4
0x1141…114b at0006 = ╱22╱"╱ // 0x1147 @0x6
0x1141…114b at0007 = ╱32╱2╱ // 0x1148 @0x7
0x1141…114b at0008 = ╱22╱"╱ // 0x1149 @0x8
0x1141…114b at0009 = EOL // 0x114a @0x9
0x1141…114b }
0x114b…1160 9eb7 2120 FOR J=1 TO 9
0x114b…1160 LineComalBin {
0x114b…1160 ptr = 0x9eb7 // 0x114b @0x0
0x114b…1160 lno = 0x0848 // 0x114d @0x2
0x114b…1160 at0004 = ╱83╱ FOR ╱ // 0x114f @0x4
0x114b…1160 at0005 = ╱4a╱J╱ // 0x1150 @0x5
0x114b…1160 at0006 = ╱dc╱=╱ // 0x1151 @0x6
0x114b…1160 at0007 = ╱31╱1╱ // 0x1152 @0x7
0x114b…1160 at0008 = ╱fe00008001╱ // 0x1153 @0x8
0x114b…1160 at000d = ╱b7╱ TO ╱ // 0x1158 @0xd
0x114b…1160 at000e = ╱39╱9╱ // 0x1159 @0xe
0x114b…1160 at000f = ╱fe00009004╱ // 0x115a @0xf
0x114b…1160 at0014 = EOL // 0x115f @0x14
0x114b…1160 }
0x1160…11a1 9ef8 2130 EXEC FEKST(J,LAND$,BLANK$(1),5,12,BLANK$(1))
0x1160…11a1 LineComalBin {
0x1160…11a1 ptr = 0x9ef8 // 0x1160 @0x0
0x1160…11a1 lno = 0x0852 // 0x1162 @0x2
0x1160…11a1 at0004 = ╱9d╱ EXEC ╱ // 0x1164 @0x4
0x1160…11a1 at0005 = ╱46╱F╱ // 0x1165 @0x5
0x1160…11a1 at0006 = ╱45╱E╱ // 0x1166 @0x6
0x1160…11a1 at0007 = ╱4b╱K╱ // 0x1167 @0x7
0x1160…11a1 at0008 = ╱53╱S╱ // 0x1168 @0x8
0x1160…11a1 at0009 = ╱54╱T╱ // 0x1169 @0x9
0x1160…11a1 at000a = ╱ed╱(╱ // 0x116a @0xa
0x1160…11a1 at000b = ╱4a╱J╱ // 0x116b @0xb
0x1160…11a1 at000c = ╱ec╱,╱ // 0x116c @0xc
0x1160…11a1 at000d = ╱4c╱L╱ // 0x116d @0xd
0x1160…11a1 at000e = ╱41╱A╱ // 0x116e @0xe
0x1160…11a1 at000f = ╱4e╱N╱ // 0x116f @0xf
0x1160…11a1 at0010 = ╱44╱D╱ // 0x1170 @0x10
0x1160…11a1 at0011 = ╱ef╱$╱ // 0x1171 @0x11
0x1160…11a1 at0012 = ╱ec╱,╱ // 0x1172 @0x12
0x1160…11a1 at0013 = ╱42╱B╱ // 0x1173 @0x13
0x1160…11a1 at0014 = ╱4c╱L╱ // 0x1174 @0x14
0x1160…11a1 at0015 = ╱41╱A╱ // 0x1175 @0x15
0x1160…11a1 at0016 = ╱4e╱N╱ // 0x1176 @0x16
0x1160…11a1 at0017 = ╱4b╱K╱ // 0x1177 @0x17
0x1160…11a1 at0018 = ╱ef╱$╱ // 0x1178 @0x18
0x1160…11a1 at0019 = ╱ed╱(╱ // 0x1179 @0x19
0x1160…11a1 at001a = ╱31╱1╱ // 0x117a @0x1a
0x1160…11a1 at001b = ╱fe00008001╱ // 0x117b @0x1b
0x1160…11a1 at0020 = ╱ee╱)╱ // 0x1180 @0x20
0x1160…11a1 at0021 = ╱ec╱,╱ // 0x1181 @0x21
0x1160…11a1 at0022 = ╱35╱5╱ // 0x1182 @0x22
0x1160…11a1 at0023 = ╱fe0000a003╱ // 0x1183 @0x23
0x1160…11a1 at0028 = ╱ec╱,╱ // 0x1188 @0x28
0x1160…11a1 at0029 = ╱31╱1╱ // 0x1189 @0x29
0x1160…11a1 at002a = ╱32╱2╱ // 0x118a @0x2a
0x1160…11a1 at002b = ╱fe0000c004╱ // 0x118b @0x2b
0x1160…11a1 at0030 = ╱ec╱,╱ // 0x1190 @0x30
0x1160…11a1 at0031 = ╱42╱B╱ // 0x1191 @0x31
0x1160…11a1 at0032 = ╱4c╱L╱ // 0x1192 @0x32
0x1160…11a1 at0033 = ╱41╱A╱ // 0x1193 @0x33
0x1160…11a1 at0034 = ╱4e╱N╱ // 0x1194 @0x34
0x1160…11a1 at0035 = ╱4b╱K╱ // 0x1195 @0x35
0x1160…11a1 at0036 = ╱ef╱$╱ // 0x1196 @0x36
0x1160…11a1 at0037 = ╱ed╱(╱ // 0x1197 @0x37
0x1160…11a1 at0038 = ╱31╱1╱ // 0x1198 @0x38
0x1160…11a1 at0039 = ╱fe00008001╱ // 0x1199 @0x39
0x1160…11a1 at003e = ╱ee╱)╱ // 0x119e @0x3e
0x1160…11a1 at003f = ╱ee╱)╱ // 0x119f @0x3f
0x1160…11a1 at0040 = EOL // 0x11a0 @0x40
0x1160…11a1 }
0x11a1…11a8 9eff 2140 NEXT J
0x11a1…11a8 LineComalBin {
0x11a1…11a8 ptr = 0x9eff // 0x11a1 @0x0
0x11a1…11a8 lno = 0x085c // 0x11a3 @0x2
0x11a1…11a8 at0004 = ╱84╱ NEXT ╱ // 0x11a5 @0x4
0x11a1…11a8 at0005 = ╱4a╱J╱ // 0x11a6 @0x5
0x11a1…11a8 at0006 = EOL // 0x11a7 @0x6
0x11a1…11a8 }
0x11a8…11b2 9f09 2150 WHEN "3"
0x11a8…11b2 LineComalBin {
0x11a8…11b2 ptr = 0x9f09 // 0x11a8 @0x0
0x11a8…11b2 lno = 0x0866 // 0x11aa @0x2
0x11a8…11b2 at0004 = ╱a300╱ WHEN ╱ // 0x11ac @0x4
0x11a8…11b2 at0006 = ╱22╱"╱ // 0x11ae @0x6
0x11a8…11b2 at0007 = ╱33╱3╱ // 0x11af @0x7
0x11a8…11b2 at0008 = ╱22╱"╱ // 0x11b0 @0x8
0x11a8…11b2 at0009 = EOL // 0x11b1 @0x9
0x11a8…11b2 }
0x11b2…11c7 9f1e 2160 FOR J=1 TO 9
0x11b2…11c7 LineComalBin {
0x11b2…11c7 ptr = 0x9f1e // 0x11b2 @0x0
0x11b2…11c7 lno = 0x0870 // 0x11b4 @0x2
0x11b2…11c7 at0004 = ╱83╱ FOR ╱ // 0x11b6 @0x4
0x11b2…11c7 at0005 = ╱4a╱J╱ // 0x11b7 @0x5
0x11b2…11c7 at0006 = ╱dc╱=╱ // 0x11b8 @0x6
0x11b2…11c7 at0007 = ╱31╱1╱ // 0x11b9 @0x7
0x11b2…11c7 at0008 = ╱fe00008001╱ // 0x11ba @0x8
0x11b2…11c7 at000d = ╱b7╱ TO ╱ // 0x11bf @0xd
0x11b2…11c7 at000e = ╱39╱9╱ // 0x11c0 @0xe
0x11b2…11c7 at000f = ╱fe00009004╱ // 0x11c1 @0xf
0x11b2…11c7 at0014 = EOL // 0x11c6 @0x14
0x11b2…11c7 }
0x11c7…1208 9f5f 2170 EXEC FEKST(J,TFIL$,BLANK$(1),5,12,BLANK$(1))
0x11c7…1208 LineComalBin {
0x11c7…1208 ptr = 0x9f5f // 0x11c7 @0x0
0x11c7…1208 lno = 0x087a // 0x11c9 @0x2
0x11c7…1208 at0004 = ╱9d╱ EXEC ╱ // 0x11cb @0x4
0x11c7…1208 at0005 = ╱46╱F╱ // 0x11cc @0x5
0x11c7…1208 at0006 = ╱45╱E╱ // 0x11cd @0x6
0x11c7…1208 at0007 = ╱4b╱K╱ // 0x11ce @0x7
0x11c7…1208 at0008 = ╱53╱S╱ // 0x11cf @0x8
0x11c7…1208 at0009 = ╱54╱T╱ // 0x11d0 @0x9
0x11c7…1208 at000a = ╱ed╱(╱ // 0x11d1 @0xa
0x11c7…1208 at000b = ╱4a╱J╱ // 0x11d2 @0xb
0x11c7…1208 at000c = ╱ec╱,╱ // 0x11d3 @0xc
0x11c7…1208 at000d = ╱54╱T╱ // 0x11d4 @0xd
0x11c7…1208 at000e = ╱46╱F╱ // 0x11d5 @0xe
0x11c7…1208 at000f = ╱49╱I╱ // 0x11d6 @0xf
0x11c7…1208 at0010 = ╱4c╱L╱ // 0x11d7 @0x10
0x11c7…1208 at0011 = ╱ef╱$╱ // 0x11d8 @0x11
0x11c7…1208 at0012 = ╱ec╱,╱ // 0x11d9 @0x12
0x11c7…1208 at0013 = ╱42╱B╱ // 0x11da @0x13
0x11c7…1208 at0014 = ╱4c╱L╱ // 0x11db @0x14
0x11c7…1208 at0015 = ╱41╱A╱ // 0x11dc @0x15
0x11c7…1208 at0016 = ╱4e╱N╱ // 0x11dd @0x16
0x11c7…1208 at0017 = ╱4b╱K╱ // 0x11de @0x17
0x11c7…1208 at0018 = ╱ef╱$╱ // 0x11df @0x18
0x11c7…1208 at0019 = ╱ed╱(╱ // 0x11e0 @0x19
0x11c7…1208 at001a = ╱31╱1╱ // 0x11e1 @0x1a
0x11c7…1208 at001b = ╱fe00008001╱ // 0x11e2 @0x1b
0x11c7…1208 at0020 = ╱ee╱)╱ // 0x11e7 @0x20
0x11c7…1208 at0021 = ╱ec╱,╱ // 0x11e8 @0x21
0x11c7…1208 at0022 = ╱35╱5╱ // 0x11e9 @0x22
0x11c7…1208 at0023 = ╱fe0000a003╱ // 0x11ea @0x23
0x11c7…1208 at0028 = ╱ec╱,╱ // 0x11ef @0x28
0x11c7…1208 at0029 = ╱31╱1╱ // 0x11f0 @0x29
0x11c7…1208 at002a = ╱32╱2╱ // 0x11f1 @0x2a
0x11c7…1208 at002b = ╱fe0000c004╱ // 0x11f2 @0x2b
0x11c7…1208 at0030 = ╱ec╱,╱ // 0x11f7 @0x30
0x11c7…1208 at0031 = ╱42╱B╱ // 0x11f8 @0x31
0x11c7…1208 at0032 = ╱4c╱L╱ // 0x11f9 @0x32
0x11c7…1208 at0033 = ╱41╱A╱ // 0x11fa @0x33
0x11c7…1208 at0034 = ╱4e╱N╱ // 0x11fb @0x34
0x11c7…1208 at0035 = ╱4b╱K╱ // 0x11fc @0x35
0x11c7…1208 at0036 = ╱ef╱$╱ // 0x11fd @0x36
0x11c7…1208 at0037 = ╱ed╱(╱ // 0x11fe @0x37
0x11c7…1208 at0038 = ╱31╱1╱ // 0x11ff @0x38
0x11c7…1208 at0039 = ╱fe00008001╱ // 0x1200 @0x39
0x11c7…1208 at003e = ╱ee╱)╱ // 0x1205 @0x3e
0x11c7…1208 at003f = ╱ee╱)╱ // 0x1206 @0x3f
0x11c7…1208 at0040 = EOL // 0x1207 @0x40
0x11c7…1208 }
0x1208…120f 9f66 2180 NEXT J
0x1208…120f LineComalBin {
0x1208…120f ptr = 0x9f66 // 0x1208 @0x0
0x1208…120f lno = 0x0884 // 0x120a @0x2
0x1208…120f at0004 = ╱84╱ NEXT ╱ // 0x120c @0x4
0x1208…120f at0005 = ╱4a╱J╱ // 0x120d @0x5
0x1208…120f at0006 = EOL // 0x120e @0x6
0x1208…120f }
0x120f…1219 9f70 2190 WHEN "4"
0x120f…1219 LineComalBin {
0x120f…1219 ptr = 0x9f70 // 0x120f @0x0
0x120f…1219 lno = 0x088e // 0x1211 @0x2
0x120f…1219 at0004 = ╱a300╱ WHEN ╱ // 0x1213 @0x4
0x120f…1219 at0006 = ╱22╱"╱ // 0x1215 @0x6
0x120f…1219 at0007 = ╱34╱4╱ // 0x1216 @0x7
0x120f…1219 at0008 = ╱22╱"╱ // 0x1217 @0x8
0x120f…1219 at0009 = EOL // 0x1218 @0x9
0x120f…1219 }
0x1219…122e 9f85 2200 FOR J=1 TO 5
0x1219…122e LineComalBin {
0x1219…122e ptr = 0x9f85 // 0x1219 @0x0
0x1219…122e lno = 0x0898 // 0x121b @0x2
0x1219…122e at0004 = ╱83╱ FOR ╱ // 0x121d @0x4
0x1219…122e at0005 = ╱4a╱J╱ // 0x121e @0x5
0x1219…122e at0006 = ╱dc╱=╱ // 0x121f @0x6
0x1219…122e at0007 = ╱31╱1╱ // 0x1220 @0x7
0x1219…122e at0008 = ╱fe00008001╱ // 0x1221 @0x8
0x1219…122e at000d = ╱b7╱ TO ╱ // 0x1226 @0xd
0x1219…122e at000e = ╱35╱5╱ // 0x1227 @0xe
0x1219…122e at000f = ╱fe0000a003╱ // 0x1228 @0xf
0x1219…122e at0014 = EOL // 0x122d @0x14
0x1219…122e }
0x122e…1276 9fcd 2210 J1=30-(J=3)*26-(J=4)*10-(J=5)*20
0x122e…1276 LineComalBin {
0x122e…1276 ptr = 0x9fcd // 0x122e @0x0
0x122e…1276 lno = 0x08a2 // 0x1230 @0x2
0x122e…1276 at0004 = ╱4a╱J╱ // 0x1232 @0x4
0x122e…1276 at0005 = ╱31╱1╱ // 0x1233 @0x5
0x122e…1276 at0006 = ╱dc╱=╱ // 0x1234 @0x6
0x122e…1276 at0007 = ╱33╱3╱ // 0x1235 @0x7
0x122e…1276 at0008 = ╱30╱0╱ // 0x1236 @0x8
0x122e…1276 at0009 = ╱fe0000f005╱ // 0x1237 @0x9
0x122e…1276 at000e = ╱e3╱-╱ // 0x123c @0xe
0x122e…1276 at000f = ╱ed╱(╱ // 0x123d @0xf
0x122e…1276 at0010 = ╱4a╱J╱ // 0x123e @0x10
0x122e…1276 at0011 = ╱dc╱=╱ // 0x123f @0x11
0x122e…1276 at0012 = ╱33╱3╱ // 0x1240 @0x12
0x122e…1276 at0013 = ╱fe0000c002╱ // 0x1241 @0x13
0x122e…1276 at0018 = ╱ee╱)╱ // 0x1246 @0x18
0x122e…1276 at0019 = ╱e4╱*╱ // 0x1247 @0x19
0x122e…1276 at001a = ╱32╱2╱ // 0x1248 @0x1a
0x122e…1276 at001b = ╱36╱6╱ // 0x1249 @0x1b
0x122e…1276 at001c = ╱fe0000d005╱ // 0x124a @0x1c
0x122e…1276 at0021 = ╱e3╱-╱ // 0x124f @0x21
0x122e…1276 at0022 = ╱ed╱(╱ // 0x1250 @0x22
0x122e…1276 at0023 = ╱4a╱J╱ // 0x1251 @0x23
0x122e…1276 at0024 = ╱dc╱=╱ // 0x1252 @0x24
0x122e…1276 at0025 = ╱34╱4╱ // 0x1253 @0x25
0x122e…1276 at0026 = ╱fe00008003╱ // 0x1254 @0x26
0x122e…1276 at002b = ╱ee╱)╱ // 0x1259 @0x2b
0x122e…1276 at002c = ╱e4╱*╱ // 0x125a @0x2c
0x122e…1276 at002d = ╱31╱1╱ // 0x125b @0x2d
0x122e…1276 at002e = ╱30╱0╱ // 0x125c @0x2e
0x122e…1276 at002f = ╱fe0000a004╱ // 0x125d @0x2f
0x122e…1276 at0034 = ╱e3╱-╱ // 0x1262 @0x34
0x122e…1276 at0035 = ╱ed╱(╱ // 0x1263 @0x35
0x122e…1276 at0036 = ╱4a╱J╱ // 0x1264 @0x36
0x122e…1276 at0037 = ╱dc╱=╱ // 0x1265 @0x37
0x122e…1276 at0038 = ╱35╱5╱ // 0x1266 @0x38
0x122e…1276 at0039 = ╱fe0000a003╱ // 0x1267 @0x39
0x122e…1276 at003e = ╱ee╱)╱ // 0x126c @0x3e
0x122e…1276 at003f = ╱e4╱*╱ // 0x126d @0x3f
0x122e…1276 at0040 = ╱32╱2╱ // 0x126e @0x40
0x122e…1276 at0041 = ╱30╱0╱ // 0x126f @0x41
0x122e…1276 at0042 = ╱fe0000a005╱ // 0x1270 @0x42
0x122e…1276 at0047 = EOL // 0x1275 @0x47
0x122e…1276 }
0x1276…12a1 9ff8 2220 EXEC FEKST(J,AB$,AD$(J),13,J1,AE$(J))
0x1276…12a1 LineComalBin {
0x1276…12a1 ptr = 0x9ff8 // 0x1276 @0x0
0x1276…12a1 lno = 0x08ac // 0x1278 @0x2
0x1276…12a1 at0004 = ╱9d╱ EXEC ╱ // 0x127a @0x4
0x1276…12a1 at0005 = ╱46╱F╱ // 0x127b @0x5
0x1276…12a1 at0006 = ╱45╱E╱ // 0x127c @0x6
0x1276…12a1 at0007 = ╱4b╱K╱ // 0x127d @0x7
0x1276…12a1 at0008 = ╱53╱S╱ // 0x127e @0x8
0x1276…12a1 at0009 = ╱54╱T╱ // 0x127f @0x9
0x1276…12a1 at000a = ╱ed╱(╱ // 0x1280 @0xa
0x1276…12a1 at000b = ╱4a╱J╱ // 0x1281 @0xb
0x1276…12a1 at000c = ╱ec╱,╱ // 0x1282 @0xc
0x1276…12a1 at000d = ╱41╱A╱ // 0x1283 @0xd
0x1276…12a1 at000e = ╱42╱B╱ // 0x1284 @0xe
0x1276…12a1 at000f = ╱ef╱$╱ // 0x1285 @0xf
0x1276…12a1 at0010 = ╱ec╱,╱ // 0x1286 @0x10
0x1276…12a1 at0011 = ╱41╱A╱ // 0x1287 @0x11
0x1276…12a1 at0012 = ╱44╱D╱ // 0x1288 @0x12
0x1276…12a1 at0013 = ╱ef╱$╱ // 0x1289 @0x13
0x1276…12a1 at0014 = ╱ed╱(╱ // 0x128a @0x14
0x1276…12a1 at0015 = ╱4a╱J╱ // 0x128b @0x15
0x1276…12a1 at0016 = ╱ee╱)╱ // 0x128c @0x16
0x1276…12a1 at0017 = ╱ec╱,╱ // 0x128d @0x17
0x1276…12a1 at0018 = ╱31╱1╱ // 0x128e @0x18
0x1276…12a1 at0019 = ╱33╱3╱ // 0x128f @0x19
0x1276…12a1 at001a = ╱fe0000d004╱ // 0x1290 @0x1a
0x1276…12a1 at001f = ╱ec╱,╱ // 0x1295 @0x1f
0x1276…12a1 at0020 = ╱4a╱J╱ // 0x1296 @0x20
0x1276…12a1 at0021 = ╱31╱1╱ // 0x1297 @0x21
0x1276…12a1 at0022 = ╱ec╱,╱ // 0x1298 @0x22
0x1276…12a1 at0023 = ╱41╱A╱ // 0x1299 @0x23
0x1276…12a1 at0024 = ╱45╱E╱ // 0x129a @0x24
0x1276…12a1 at0025 = ╱ef╱$╱ // 0x129b @0x25
0x1276…12a1 at0026 = ╱ed╱(╱ // 0x129c @0x26
0x1276…12a1 at0027 = ╱4a╱J╱ // 0x129d @0x27
0x1276…12a1 at0028 = ╱ee╱)╱ // 0x129e @0x28
0x1276…12a1 at0029 = ╱ee╱)╱ // 0x129f @0x29
0x1276…12a1 at002a = EOL // 0x12a0 @0x2a
0x1276…12a1 }
0x12a1…12a8 9fff 2230 NEXT J
0x12a1…12a8 LineComalBin {
0x12a1…12a8 ptr = 0x9fff // 0x12a1 @0x0
0x12a1…12a8 lno = 0x08b6 // 0x12a3 @0x2
0x12a1…12a8 at0004 = ╱84╱ NEXT ╱ // 0x12a5 @0x4
0x12a1…12a8 at0005 = ╱4a╱J╱ // 0x12a6 @0x5
0x12a1…12a8 at0006 = EOL // 0x12a7 @0x6
0x12a1…12a8 }
0x12a8…12ae a005 2240 ENDCASE
0x12a8…12ae LineComalBin {
0x12a8…12ae ptr = 0xa005 // 0x12a8 @0x0
0x12a8…12ae lno = 0x08c0 // 0x12aa @0x2
0x12a8…12ae at0004 = ╱a4╱ ENDCASE ╱ // 0x12ac @0x4
0x12a8…12ae at0005 = EOL // 0x12ad @0x5
0x12a8…12ae }
0x12ae…12bb a012 2250 C=2
0x12ae…12bb LineComalBin {
0x12ae…12bb ptr = 0xa012 // 0x12ae @0x0
0x12ae…12bb lno = 0x08ca // 0x12b0 @0x2
0x12ae…12bb at0004 = ╱43╱C╱ // 0x12b2 @0x4
0x12ae…12bb at0005 = ╱dc╱=╱ // 0x12b3 @0x5
0x12ae…12bb at0006 = ╱32╱2╱ // 0x12b4 @0x6
0x12ae…12bb at0007 = ╱fe00008002╱ // 0x12b5 @0x7
0x12ae…12bb at000c = EOL // 0x12ba @0xc
0x12ae…12bb }
0x12bb…12c1 a018 2260 REPEAT
0x12bb…12c1 LineComalBin {
0x12bb…12c1 ptr = 0xa018 // 0x12bb @0x0
0x12bb…12c1 lno = 0x08d4 // 0x12bd @0x2
0x12bb…12c1 at0004 = ╱97╱ REPEAT ╱ // 0x12bf @0x4
0x12bb…12c1 at0005 = EOL // 0x12c0 @0x5
0x12bb…12c1 }
0x12c1…12c7 a01e 2270 REPEAT
0x12c1…12c7 LineComalBin {
0x12c1…12c7 ptr = 0xa01e // 0x12c1 @0x0
0x12c1…12c7 lno = 0x08de // 0x12c3 @0x2
0x12c1…12c7 at0004 = ╱97╱ REPEAT ╱ // 0x12c5 @0x4
0x12c1…12c7 at0005 = EOL // 0x12c6 @0x5
0x12c1…12c7 }
0x12c7…12db a032 2280 CURSOR 3,23
0x12c7…12db LineComalBin {
0x12c7…12db ptr = 0xa032 // 0x12c7 @0x0
0x12c7…12db lno = 0x08e8 // 0x12c9 @0x2
0x12c7…12db at0004 = ╱a1╱ CURSOR ╱ // 0x12cb @0x4
0x12c7…12db at0005 = ╱33╱3╱ // 0x12cc @0x5
0x12c7…12db at0006 = ╱fe0000c002╱ // 0x12cd @0x6
0x12c7…12db at000b = ╱ec╱,╱ // 0x12d2 @0xb
0x12c7…12db at000c = ╱32╱2╱ // 0x12d3 @0xc
0x12c7…12db at000d = ╱33╱3╱ // 0x12d4 @0xd
0x12c7…12db at000e = ╱fe0000b805╱ // 0x12d5 @0xe
0x12c7…12db at0013 = EOL // 0x12da @0x13
0x12c7…12db }
0x12db…1313 a06a 2290 PRINT "Hvilket felt ønskes ændret , 0 for færdig";BLANK$
0x12db…1313 LineComalBin {
0x12db…1313 ptr = 0xa06a // 0x12db @0x0
0x12db…1313 lno = 0x08f2 // 0x12dd @0x2
0x12db…1313 at0004 = ╱92╱ PRINT ╱ // 0x12df @0x4
0x12db…1313 at0005 = ╱22╱"╱ // 0x12e0 @0x5
0x12db…1313 at0006 = ╱48╱H╱ // 0x12e1 @0x6
0x12db…1313 at0007 = ╱76╱v╱ // 0x12e2 @0x7
0x12db…1313 at0008 = ╱69╱i╱ // 0x12e3 @0x8
0x12db…1313 at0009 = ╱6c╱l╱ // 0x12e4 @0x9
0x12db…1313 at000a = ╱6b╱k╱ // 0x12e5 @0xa
0x12db…1313 at000b = ╱65╱e╱ // 0x12e6 @0xb
0x12db…1313 at000c = ╱74╱t╱ // 0x12e7 @0xc
0x12db…1313 at000d = ╱20╱…╱ // 0x12e8 @0xd
0x12db…1313 at000e = ╱66╱f╱ // 0x12e9 @0xe
0x12db…1313 at000f = ╱65╱e╱ // 0x12ea @0xf
0x12db…1313 at0010 = ╱6c╱l╱ // 0x12eb @0x10
0x12db…1313 at0011 = ╱74╱t╱ // 0x12ec @0x11
0x12db…1313 at0012 = ╱20╱…╱ // 0x12ed @0x12
0x12db…1313 at0013 = ╱7c╱ø╱ // 0x12ee @0x13
0x12db…1313 at0014 = ╱6e╱n╱ // 0x12ef @0x14
0x12db…1313 at0015 = ╱73╱s╱ // 0x12f0 @0x15
0x12db…1313 at0016 = ╱6b╱k╱ // 0x12f1 @0x16
0x12db…1313 at0017 = ╱65╱e╱ // 0x12f2 @0x17
0x12db…1313 at0018 = ╱73╱s╱ // 0x12f3 @0x18
0x12db…1313 at0019 = ╱20╱…╱ // 0x12f4 @0x19
0x12db…1313 at001a = ╱7b╱æ╱ // 0x12f5 @0x1a
0x12db…1313 at001b = ╱6e╱n╱ // 0x12f6 @0x1b
0x12db…1313 at001c = ╱64╱d╱ // 0x12f7 @0x1c
0x12db…1313 at001d = ╱72╱r╱ // 0x12f8 @0x1d
0x12db…1313 at001e = ╱65╱e╱ // 0x12f9 @0x1e
0x12db…1313 at001f = ╱74╱t╱ // 0x12fa @0x1f
0x12db…1313 at0020 = ╱20╱…╱ // 0x12fb @0x20
0x12db…1313 at0021 = ╱2c╱,╱ // 0x12fc @0x21
0x12db…1313 at0022 = ╱20╱…╱ // 0x12fd @0x22
0x12db…1313 at0023 = ╱30╱0╱ // 0x12fe @0x23
0x12db…1313 at0024 = ╱20╱…╱ // 0x12ff @0x24
0x12db…1313 at0025 = ╱66╱f╱ // 0x1300 @0x25
0x12db…1313 at0026 = ╱6f╱o╱ // 0x1301 @0x26
0x12db…1313 at0027 = ╱72╱r╱ // 0x1302 @0x27
0x12db…1313 at0028 = ╱20╱…╱ // 0x1303 @0x28
0x12db…1313 at0029 = ╱66╱f╱ // 0x1304 @0x29
0x12db…1313 at002a = ╱7b╱æ╱ // 0x1305 @0x2a
0x12db…1313 at002b = ╱72╱r╱ // 0x1306 @0x2b
0x12db…1313 at002c = ╱64╱d╱ // 0x1307 @0x2c
0x12db…1313 at002d = ╱69╱i╱ // 0x1308 @0x2d
0x12db…1313 at002e = ╱67╱g╱ // 0x1309 @0x2e
0x12db…1313 at002f = ╱22╱"╱ // 0x130a @0x2f
0x12db…1313 at0030 = ╱eb╱;╱ // 0x130b @0x30
0x12db…1313 at0031 = ╱42╱B╱ // 0x130c @0x31
0x12db…1313 at0032 = ╱4c╱L╱ // 0x130d @0x32
0x12db…1313 at0033 = ╱41╱A╱ // 0x130e @0x33
0x12db…1313 at0034 = ╱4e╱N╱ // 0x130f @0x34
0x12db…1313 at0035 = ╱4b╱K╱ // 0x1310 @0x35
0x12db…1313 at0036 = ╱ef╱$╱ // 0x1311 @0x36
0x12db…1313 at0037 = EOL // 0x1312 @0x37
0x12db…1313 }
0x1313…1328 a07f 2300 CURSOR 45,23
0x1313…1328 LineComalBin {
0x1313…1328 ptr = 0xa07f // 0x1313 @0x0
0x1313…1328 lno = 0x08fc // 0x1315 @0x2
0x1313…1328 at0004 = ╱a1╱ CURSOR ╱ // 0x1317 @0x4
0x1313…1328 at0005 = ╱34╱4╱ // 0x1318 @0x5
0x1313…1328 at0006 = ╱35╱5╱ // 0x1319 @0x6
0x1313…1328 at0007 = ╱fe0000b406╱ // 0x131a @0x7
0x1313…1328 at000c = ╱ec╱,╱ // 0x131f @0xc
0x1313…1328 at000d = ╱32╱2╱ // 0x1320 @0xd
0x1313…1328 at000e = ╱33╱3╱ // 0x1321 @0xe
0x1313…1328 at000f = ╱fe0000b805╱ // 0x1322 @0xf
0x1313…1328 at0014 = EOL // 0x1327 @0x14
0x1313…1328 }
0x1328…1330 a087 2310 INPUT A$
0x1328…1330 LineComalBin {
0x1328…1330 ptr = 0xa087 // 0x1328 @0x0
0x1328…1330 lno = 0x0906 // 0x132a @0x2
0x1328…1330 at0004 = ╱91╱ INPUT ╱ // 0x132c @0x4
0x1328…1330 at0005 = ╱41╱A╱ // 0x132d @0x5
0x1328…1330 at0006 = ╱ef╱$╱ // 0x132e @0x6
0x1328…1330 at0007 = EOL // 0x132f @0x7
0x1328…1330 }
0x1330…1344 a09b 2320 K=ORD(A$)-48
0x1330…1344 LineComalBin {
0x1330…1344 ptr = 0xa09b // 0x1330 @0x0
0x1330…1344 lno = 0x0910 // 0x1332 @0x2
0x1330…1344 at0004 = ╱4b╱K╱ // 0x1334 @0x4
0x1330…1344 at0005 = ╱dc╱=╱ // 0x1335 @0x5
0x1330…1344 at0006 = ╱cd╱ORD╱ // 0x1336 @0x6
0x1330…1344 at0007 = ╱ed╱(╱ // 0x1337 @0x7
0x1330…1344 at0008 = ╱41╱A╱ // 0x1338 @0x8
0x1330…1344 at0009 = ╱ef╱$╱ // 0x1339 @0x9
0x1330…1344 at000a = ╱ee╱)╱ // 0x133a @0xa
0x1330…1344 at000b = ╱e3╱-╱ // 0x133b @0xb
0x1330…1344 at000c = ╱34╱4╱ // 0x133c @0xc
0x1330…1344 at000d = ╱38╱8╱ // 0x133d @0xd
0x1330…1344 at000e = ╱fe0000c006╱ // 0x133e @0xe
0x1330…1344 at0013 = EOL // 0x1343 @0x13
0x1330…1344 }
0x1344…135d a0b4 2330 UNTIL K>-1 AND K<10
0x1344…135d LineComalBin {
0x1344…135d ptr = 0xa0b4 // 0x1344 @0x0
0x1344…135d lno = 0x091a // 0x1346 @0x2
0x1344…135d at0004 = ╱98╱ UNTIL ╱ // 0x1348 @0x4
0x1344…135d at0005 = ╱4b╱K╱ // 0x1349 @0x5
0x1344…135d at0006 = ╱de╱>╱ // 0x134a @0x6
0x1344…135d at0007 = ╱e9╱-╱ // 0x134b @0x7
0x1344…135d at0008 = ╱31╱1╱ // 0x134c @0x8
0x1344…135d at0009 = ╱fe00008001╱ // 0x134d @0x9
0x1344…135d at000e = ╱da╱ AND ╱ // 0x1352 @0xe
0x1344…135d at000f = ╱4b╱K╱ // 0x1353 @0xf
0x1344…135d at0010 = ╱dd╱<╱ // 0x1354 @0x10
0x1344…135d at0011 = ╱31╱1╱ // 0x1355 @0x11
0x1344…135d at0012 = ╱30╱0╱ // 0x1356 @0x12
0x1344…135d at0013 = ╱fe0000a004╱ // 0x1357 @0x13
0x1344…135d at0018 = EOL // 0x135c @0x18
0x1344…135d }
0x135d…136d a0c4 2340 IF K=0 THEN EXIT
0x135d…136d LineComalBin {
0x135d…136d ptr = 0xa0c4 // 0x135d @0x0
0x135d…136d lno = 0x0924 // 0x135f @0x2
0x135d…136d at0004 = ╱82╱ IF ╱ // 0x1361 @0x4
0x135d…136d at0005 = ╱4b╱K╱ // 0x1362 @0x5
0x135d…136d at0006 = ╱dc╱=╱ // 0x1363 @0x6
0x135d…136d at0007 = ╱30╱0╱ // 0x1364 @0x7
0x135d…136d at0008 = ╱fe00000000╱ // 0x1365 @0x8
0x135d…136d at000d = ╱b6╱ THEN ╱ // 0x136a @0xd
0x135d…136d at000e = ╱99╱ EXIT ╱ // 0x136b @0xe
0x135d…136d at000f = EOL // 0x136c @0xf
0x135d…136d }
0x136d…1377 a0ce 2350 CASE D$ OF
0x136d…1377 LineComalBin {
0x136d…1377 ptr = 0xa0ce // 0x136d @0x0
0x136d…1377 lno = 0x092e // 0x136f @0x2
0x136d…1377 at0004 = ╱a200╱ CASE ╱ // 0x1371 @0x4
0x136d…1377 at0006 = ╱44╱D╱ // 0x1373 @0x6
0x136d…1377 at0007 = ╱ef╱$╱ // 0x1374 @0x7
0x136d…1377 at0008 = ╱ba╱ OF ╱ // 0x1375 @0x8
0x136d…1377 at0009 = EOL // 0x1376 @0x9
0x136d…1377 }
0x1377…137d a0d4 2360 STOP
0x1377…137d LineComalBin {
0x1377…137d ptr = 0xa0d4 // 0x1377 @0x0
0x1377…137d lno = 0x0938 // 0x1379 @0x2
0x1377…137d at0004 = ╱8d╱ STOP ╱ // 0x137b @0x4
0x1377…137d at0005 = EOL // 0x137c @0x5
0x1377…137d }
0x137d…1387 a0de 2370 WHEN "1"
0x137d…1387 LineComalBin {
0x137d…1387 ptr = 0xa0de // 0x137d @0x0
0x137d…1387 lno = 0x0942 // 0x137f @0x2
0x137d…1387 at0004 = ╱a300╱ WHEN ╱ // 0x1381 @0x4
0x137d…1387 at0006 = ╱22╱"╱ // 0x1383 @0x6
0x137d…1387 at0007 = ╱31╱1╱ // 0x1384 @0x7
0x137d…1387 at0008 = ╱22╱"╱ // 0x1385 @0x8
0x137d…1387 at0009 = EOL // 0x1386 @0x9
0x137d…1387 }
0x1387…139b a0f2 2380 EXEC INDTASTNING(K)
0x1387…139b LineComalBin {
0x1387…139b ptr = 0xa0f2 // 0x1387 @0x0
0x1387…139b lno = 0x094c // 0x1389 @0x2
0x1387…139b at0004 = ╱9d╱ EXEC ╱ // 0x138b @0x4
0x1387…139b at0005 = ╱49╱I╱ // 0x138c @0x5
0x1387…139b at0006 = ╱4e╱N╱ // 0x138d @0x6
0x1387…139b at0007 = ╱44╱D╱ // 0x138e @0x7
0x1387…139b at0008 = ╱54╱T╱ // 0x138f @0x8
0x1387…139b at0009 = ╱41╱A╱ // 0x1390 @0x9
0x1387…139b at000a = ╱53╱S╱ // 0x1391 @0xa
0x1387…139b at000b = ╱54╱T╱ // 0x1392 @0xb
0x1387…139b at000c = ╱4e╱N╱ // 0x1393 @0xc
0x1387…139b at000d = ╱49╱I╱ // 0x1394 @0xd
0x1387…139b at000e = ╱4e╱N╱ // 0x1395 @0xe
0x1387…139b at000f = ╱47╱G╱ // 0x1396 @0xf
0x1387…139b at0010 = ╱ed╱(╱ // 0x1397 @0x10
0x1387…139b at0011 = ╱4b╱K╱ // 0x1398 @0x11
0x1387…139b at0012 = ╱ee╱)╱ // 0x1399 @0x12
0x1387…139b at0013 = EOL // 0x139a @0x13
0x1387…139b }
0x139b…13a5 a0fc 2390 WHEN "2"
0x139b…13a5 LineComalBin {
0x139b…13a5 ptr = 0xa0fc // 0x139b @0x0
0x139b…13a5 lno = 0x0956 // 0x139d @0x2
0x139b…13a5 at0004 = ╱a300╱ WHEN ╱ // 0x139f @0x4
0x139b…13a5 at0006 = ╱22╱"╱ // 0x13a1 @0x6
0x139b…13a5 at0007 = ╱32╱2╱ // 0x13a2 @0x7
0x139b…13a5 at0008 = ╱22╱"╱ // 0x13a3 @0x8
0x139b…13a5 at0009 = EOL // 0x13a4 @0x9
0x139b…13a5 }
0x13a5…13e6 a13d 2400 EXEC FEKST(K,LAND$,BLANK$(1),5,12,BLANK$(1))
0x13a5…13e6 LineComalBin {
0x13a5…13e6 ptr = 0xa13d // 0x13a5 @0x0
0x13a5…13e6 lno = 0x0960 // 0x13a7 @0x2
0x13a5…13e6 at0004 = ╱9d╱ EXEC ╱ // 0x13a9 @0x4
0x13a5…13e6 at0005 = ╱46╱F╱ // 0x13aa @0x5
0x13a5…13e6 at0006 = ╱45╱E╱ // 0x13ab @0x6
0x13a5…13e6 at0007 = ╱4b╱K╱ // 0x13ac @0x7
0x13a5…13e6 at0008 = ╱53╱S╱ // 0x13ad @0x8
0x13a5…13e6 at0009 = ╱54╱T╱ // 0x13ae @0x9
0x13a5…13e6 at000a = ╱ed╱(╱ // 0x13af @0xa
0x13a5…13e6 at000b = ╱4b╱K╱ // 0x13b0 @0xb
0x13a5…13e6 at000c = ╱ec╱,╱ // 0x13b1 @0xc
0x13a5…13e6 at000d = ╱4c╱L╱ // 0x13b2 @0xd
0x13a5…13e6 at000e = ╱41╱A╱ // 0x13b3 @0xe
0x13a5…13e6 at000f = ╱4e╱N╱ // 0x13b4 @0xf
0x13a5…13e6 at0010 = ╱44╱D╱ // 0x13b5 @0x10
0x13a5…13e6 at0011 = ╱ef╱$╱ // 0x13b6 @0x11
0x13a5…13e6 at0012 = ╱ec╱,╱ // 0x13b7 @0x12
0x13a5…13e6 at0013 = ╱42╱B╱ // 0x13b8 @0x13
0x13a5…13e6 at0014 = ╱4c╱L╱ // 0x13b9 @0x14
0x13a5…13e6 at0015 = ╱41╱A╱ // 0x13ba @0x15
0x13a5…13e6 at0016 = ╱4e╱N╱ // 0x13bb @0x16
0x13a5…13e6 at0017 = ╱4b╱K╱ // 0x13bc @0x17
0x13a5…13e6 at0018 = ╱ef╱$╱ // 0x13bd @0x18
0x13a5…13e6 at0019 = ╱ed╱(╱ // 0x13be @0x19
0x13a5…13e6 at001a = ╱31╱1╱ // 0x13bf @0x1a
0x13a5…13e6 at001b = ╱fe00008001╱ // 0x13c0 @0x1b
0x13a5…13e6 at0020 = ╱ee╱)╱ // 0x13c5 @0x20
0x13a5…13e6 at0021 = ╱ec╱,╱ // 0x13c6 @0x21
0x13a5…13e6 at0022 = ╱35╱5╱ // 0x13c7 @0x22
0x13a5…13e6 at0023 = ╱fe0000a003╱ // 0x13c8 @0x23
0x13a5…13e6 at0028 = ╱ec╱,╱ // 0x13cd @0x28
0x13a5…13e6 at0029 = ╱31╱1╱ // 0x13ce @0x29
0x13a5…13e6 at002a = ╱32╱2╱ // 0x13cf @0x2a
0x13a5…13e6 at002b = ╱fe0000c004╱ // 0x13d0 @0x2b
0x13a5…13e6 at0030 = ╱ec╱,╱ // 0x13d5 @0x30
0x13a5…13e6 at0031 = ╱42╱B╱ // 0x13d6 @0x31
0x13a5…13e6 at0032 = ╱4c╱L╱ // 0x13d7 @0x32
0x13a5…13e6 at0033 = ╱41╱A╱ // 0x13d8 @0x33
0x13a5…13e6 at0034 = ╱4e╱N╱ // 0x13d9 @0x34
0x13a5…13e6 at0035 = ╱4b╱K╱ // 0x13da @0x35
0x13a5…13e6 at0036 = ╱ef╱$╱ // 0x13db @0x36
0x13a5…13e6 at0037 = ╱ed╱(╱ // 0x13dc @0x37
0x13a5…13e6 at0038 = ╱31╱1╱ // 0x13dd @0x38
0x13a5…13e6 at0039 = ╱fe00008001╱ // 0x13de @0x39
0x13a5…13e6 at003e = ╱ee╱)╱ // 0x13e3 @0x3e
0x13a5…13e6 at003f = ╱ee╱)╱ // 0x13e4 @0x3f
0x13a5…13e6 at0040 = EOL // 0x13e5 @0x40
0x13a5…13e6 }
0x13e6…13f0 a147 2410 WHEN "3"
0x13e6…13f0 LineComalBin {
0x13e6…13f0 ptr = 0xa147 // 0x13e6 @0x0
0x13e6…13f0 lno = 0x096a // 0x13e8 @0x2
0x13e6…13f0 at0004 = ╱a300╱ WHEN ╱ // 0x13ea @0x4
0x13e6…13f0 at0006 = ╱22╱"╱ // 0x13ec @0x6
0x13e6…13f0 at0007 = ╱33╱3╱ // 0x13ed @0x7
0x13e6…13f0 at0008 = ╱22╱"╱ // 0x13ee @0x8
0x13e6…13f0 at0009 = EOL // 0x13ef @0x9
0x13e6…13f0 }
0x13f0…1431 a188 2420 EXEC FEKST(K,TFIL$,BLANK$(1),5,12,BLANK$(1))
0x13f0…1431 LineComalBin {
0x13f0…1431 ptr = 0xa188 // 0x13f0 @0x0
0x13f0…1431 lno = 0x0974 // 0x13f2 @0x2
0x13f0…1431 at0004 = ╱9d╱ EXEC ╱ // 0x13f4 @0x4
0x13f0…1431 at0005 = ╱46╱F╱ // 0x13f5 @0x5
0x13f0…1431 at0006 = ╱45╱E╱ // 0x13f6 @0x6
0x13f0…1431 at0007 = ╱4b╱K╱ // 0x13f7 @0x7
0x13f0…1431 at0008 = ╱53╱S╱ // 0x13f8 @0x8
0x13f0…1431 at0009 = ╱54╱T╱ // 0x13f9 @0x9
0x13f0…1431 at000a = ╱ed╱(╱ // 0x13fa @0xa
0x13f0…1431 at000b = ╱4b╱K╱ // 0x13fb @0xb
0x13f0…1431 at000c = ╱ec╱,╱ // 0x13fc @0xc
0x13f0…1431 at000d = ╱54╱T╱ // 0x13fd @0xd
0x13f0…1431 at000e = ╱46╱F╱ // 0x13fe @0xe
0x13f0…1431 at000f = ╱49╱I╱ // 0x13ff @0xf
0x13f0…1431 at0010 = ╱4c╱L╱ // 0x1400 @0x10
0x13f0…1431 at0011 = ╱ef╱$╱ // 0x1401 @0x11
0x13f0…1431 at0012 = ╱ec╱,╱ // 0x1402 @0x12
0x13f0…1431 at0013 = ╱42╱B╱ // 0x1403 @0x13
0x13f0…1431 at0014 = ╱4c╱L╱ // 0x1404 @0x14
0x13f0…1431 at0015 = ╱41╱A╱ // 0x1405 @0x15
0x13f0…1431 at0016 = ╱4e╱N╱ // 0x1406 @0x16
0x13f0…1431 at0017 = ╱4b╱K╱ // 0x1407 @0x17
0x13f0…1431 at0018 = ╱ef╱$╱ // 0x1408 @0x18
0x13f0…1431 at0019 = ╱ed╱(╱ // 0x1409 @0x19
0x13f0…1431 at001a = ╱31╱1╱ // 0x140a @0x1a
0x13f0…1431 at001b = ╱fe00008001╱ // 0x140b @0x1b
0x13f0…1431 at0020 = ╱ee╱)╱ // 0x1410 @0x20
0x13f0…1431 at0021 = ╱ec╱,╱ // 0x1411 @0x21
0x13f0…1431 at0022 = ╱35╱5╱ // 0x1412 @0x22
0x13f0…1431 at0023 = ╱fe0000a003╱ // 0x1413 @0x23
0x13f0…1431 at0028 = ╱ec╱,╱ // 0x1418 @0x28
0x13f0…1431 at0029 = ╱31╱1╱ // 0x1419 @0x29
0x13f0…1431 at002a = ╱32╱2╱ // 0x141a @0x2a
0x13f0…1431 at002b = ╱fe0000c004╱ // 0x141b @0x2b
0x13f0…1431 at0030 = ╱ec╱,╱ // 0x1420 @0x30
0x13f0…1431 at0031 = ╱42╱B╱ // 0x1421 @0x31
0x13f0…1431 at0032 = ╱4c╱L╱ // 0x1422 @0x32
0x13f0…1431 at0033 = ╱41╱A╱ // 0x1423 @0x33
0x13f0…1431 at0034 = ╱4e╱N╱ // 0x1424 @0x34
0x13f0…1431 at0035 = ╱4b╱K╱ // 0x1425 @0x35
0x13f0…1431 at0036 = ╱ef╱$╱ // 0x1426 @0x36
0x13f0…1431 at0037 = ╱ed╱(╱ // 0x1427 @0x37
0x13f0…1431 at0038 = ╱31╱1╱ // 0x1428 @0x38
0x13f0…1431 at0039 = ╱fe00008001╱ // 0x1429 @0x39
0x13f0…1431 at003e = ╱ee╱)╱ // 0x142e @0x3e
0x13f0…1431 at003f = ╱ee╱)╱ // 0x142f @0x3f
0x13f0…1431 at0040 = EOL // 0x1430 @0x40
0x13f0…1431 }
0x1431…143b a192 2430 WHEN "4"
0x1431…143b LineComalBin {
0x1431…143b ptr = 0xa192 // 0x1431 @0x0
0x1431…143b lno = 0x097e // 0x1433 @0x2
0x1431…143b at0004 = ╱a300╱ WHEN ╱ // 0x1435 @0x4
0x1431…143b at0006 = ╱22╱"╱ // 0x1437 @0x6
0x1431…143b at0007 = ╱34╱4╱ // 0x1438 @0x7
0x1431…143b at0008 = ╱22╱"╱ // 0x1439 @0x8
0x1431…143b at0009 = EOL // 0x143a @0x9
0x1431…143b }
0x143b…144a a1a1 2440 IF K<6 THEN
0x143b…144a LineComalBin {
0x143b…144a ptr = 0xa1a1 // 0x143b @0x0
0x143b…144a lno = 0x0988 // 0x143d @0x2
0x143b…144a at0004 = ╱9c╱ IF ╱ // 0x143f @0x4
0x143b…144a at0005 = ╱4b╱K╱ // 0x1440 @0x5
0x143b…144a at0006 = ╱dd╱<╱ // 0x1441 @0x6
0x143b…144a at0007 = ╱36╱6╱ // 0x1442 @0x7
0x143b…144a at0008 = ╱fe0000c003╱ // 0x1443 @0x8
0x143b…144a at000d = ╱b6╱ THEN ╱ // 0x1448 @0xd
0x143b…144a at000e = EOL // 0x1449 @0xe
0x143b…144a }
0x144a…1492 a1e9 2450 J1=30-(K=3)*26-(K=4)*10-(K=5)*20
0x144a…1492 LineComalBin {
0x144a…1492 ptr = 0xa1e9 // 0x144a @0x0
0x144a…1492 lno = 0x0992 // 0x144c @0x2
0x144a…1492 at0004 = ╱4a╱J╱ // 0x144e @0x4
0x144a…1492 at0005 = ╱31╱1╱ // 0x144f @0x5
0x144a…1492 at0006 = ╱dc╱=╱ // 0x1450 @0x6
0x144a…1492 at0007 = ╱33╱3╱ // 0x1451 @0x7
0x144a…1492 at0008 = ╱30╱0╱ // 0x1452 @0x8
0x144a…1492 at0009 = ╱fe0000f005╱ // 0x1453 @0x9
0x144a…1492 at000e = ╱e3╱-╱ // 0x1458 @0xe
0x144a…1492 at000f = ╱ed╱(╱ // 0x1459 @0xf
0x144a…1492 at0010 = ╱4b╱K╱ // 0x145a @0x10
0x144a…1492 at0011 = ╱dc╱=╱ // 0x145b @0x11
0x144a…1492 at0012 = ╱33╱3╱ // 0x145c @0x12
0x144a…1492 at0013 = ╱fe0000c002╱ // 0x145d @0x13
0x144a…1492 at0018 = ╱ee╱)╱ // 0x1462 @0x18
0x144a…1492 at0019 = ╱e4╱*╱ // 0x1463 @0x19
0x144a…1492 at001a = ╱32╱2╱ // 0x1464 @0x1a
0x144a…1492 at001b = ╱36╱6╱ // 0x1465 @0x1b
0x144a…1492 at001c = ╱fe0000d005╱ // 0x1466 @0x1c
0x144a…1492 at0021 = ╱e3╱-╱ // 0x146b @0x21
0x144a…1492 at0022 = ╱ed╱(╱ // 0x146c @0x22
0x144a…1492 at0023 = ╱4b╱K╱ // 0x146d @0x23
0x144a…1492 at0024 = ╱dc╱=╱ // 0x146e @0x24
0x144a…1492 at0025 = ╱34╱4╱ // 0x146f @0x25
0x144a…1492 at0026 = ╱fe00008003╱ // 0x1470 @0x26
0x144a…1492 at002b = ╱ee╱)╱ // 0x1475 @0x2b
0x144a…1492 at002c = ╱e4╱*╱ // 0x1476 @0x2c
0x144a…1492 at002d = ╱31╱1╱ // 0x1477 @0x2d
0x144a…1492 at002e = ╱30╱0╱ // 0x1478 @0x2e
0x144a…1492 at002f = ╱fe0000a004╱ // 0x1479 @0x2f
0x144a…1492 at0034 = ╱e3╱-╱ // 0x147e @0x34
0x144a…1492 at0035 = ╱ed╱(╱ // 0x147f @0x35
0x144a…1492 at0036 = ╱4b╱K╱ // 0x1480 @0x36
0x144a…1492 at0037 = ╱dc╱=╱ // 0x1481 @0x37
0x144a…1492 at0038 = ╱35╱5╱ // 0x1482 @0x38
0x144a…1492 at0039 = ╱fe0000a003╱ // 0x1483 @0x39
0x144a…1492 at003e = ╱ee╱)╱ // 0x1488 @0x3e
0x144a…1492 at003f = ╱e4╱*╱ // 0x1489 @0x3f
0x144a…1492 at0040 = ╱32╱2╱ // 0x148a @0x40
0x144a…1492 at0041 = ╱30╱0╱ // 0x148b @0x41
0x144a…1492 at0042 = ╱fe0000a005╱ // 0x148c @0x42
0x144a…1492 at0047 = EOL // 0x1491 @0x47
0x144a…1492 }
0x1492…14bd a214 2460 EXEC FEKST(K,AB$,AD$(K),13,J1,AE$(K))
0x1492…14bd LineComalBin {
0x1492…14bd ptr = 0xa214 // 0x1492 @0x0
0x1492…14bd lno = 0x099c // 0x1494 @0x2
0x1492…14bd at0004 = ╱9d╱ EXEC ╱ // 0x1496 @0x4
0x1492…14bd at0005 = ╱46╱F╱ // 0x1497 @0x5
0x1492…14bd at0006 = ╱45╱E╱ // 0x1498 @0x6
0x1492…14bd at0007 = ╱4b╱K╱ // 0x1499 @0x7
0x1492…14bd at0008 = ╱53╱S╱ // 0x149a @0x8
0x1492…14bd at0009 = ╱54╱T╱ // 0x149b @0x9
0x1492…14bd at000a = ╱ed╱(╱ // 0x149c @0xa
0x1492…14bd at000b = ╱4b╱K╱ // 0x149d @0xb
0x1492…14bd at000c = ╱ec╱,╱ // 0x149e @0xc
0x1492…14bd at000d = ╱41╱A╱ // 0x149f @0xd
0x1492…14bd at000e = ╱42╱B╱ // 0x14a0 @0xe
0x1492…14bd at000f = ╱ef╱$╱ // 0x14a1 @0xf
0x1492…14bd at0010 = ╱ec╱,╱ // 0x14a2 @0x10
0x1492…14bd at0011 = ╱41╱A╱ // 0x14a3 @0x11
0x1492…14bd at0012 = ╱44╱D╱ // 0x14a4 @0x12
0x1492…14bd at0013 = ╱ef╱$╱ // 0x14a5 @0x13
0x1492…14bd at0014 = ╱ed╱(╱ // 0x14a6 @0x14
0x1492…14bd at0015 = ╱4b╱K╱ // 0x14a7 @0x15
0x1492…14bd at0016 = ╱ee╱)╱ // 0x14a8 @0x16
0x1492…14bd at0017 = ╱ec╱,╱ // 0x14a9 @0x17
0x1492…14bd at0018 = ╱31╱1╱ // 0x14aa @0x18
0x1492…14bd at0019 = ╱33╱3╱ // 0x14ab @0x19
0x1492…14bd at001a = ╱fe0000d004╱ // 0x14ac @0x1a
0x1492…14bd at001f = ╱ec╱,╱ // 0x14b1 @0x1f
0x1492…14bd at0020 = ╱4a╱J╱ // 0x14b2 @0x20
0x1492…14bd at0021 = ╱31╱1╱ // 0x14b3 @0x21
0x1492…14bd at0022 = ╱ec╱,╱ // 0x14b4 @0x22
0x1492…14bd at0023 = ╱41╱A╱ // 0x14b5 @0x23
0x1492…14bd at0024 = ╱45╱E╱ // 0x14b6 @0x24
0x1492…14bd at0025 = ╱ef╱$╱ // 0x14b7 @0x25
0x1492…14bd at0026 = ╱ed╱(╱ // 0x14b8 @0x26
0x1492…14bd at0027 = ╱4b╱K╱ // 0x14b9 @0x27
0x1492…14bd at0028 = ╱ee╱)╱ // 0x14ba @0x28
0x1492…14bd at0029 = ╱ee╱)╱ // 0x14bb @0x29
0x1492…14bd at002a = EOL // 0x14bc @0x2a
0x1492…14bd }
0x14bd…14c3 a21a 2470 ENDIF
0x14bd…14c3 LineComalBin {
0x14bd…14c3 ptr = 0xa21a // 0x14bd @0x0
0x14bd…14c3 lno = 0x09a6 // 0x14bf @0x2
0x14bd…14c3 at0004 = ╱9b╱ ENDIF ╱ // 0x14c1 @0x4
0x14bd…14c3 at0005 = EOL // 0x14c2 @0x5
0x14bd…14c3 }
0x14c3…14c9 a220 2480 ENDCASE
0x14c3…14c9 LineComalBin {
0x14c3…14c9 ptr = 0xa220 // 0x14c3 @0x0
0x14c3…14c9 lno = 0x09b0 // 0x14c5 @0x2
0x14c3…14c9 at0004 = ╱a4╱ ENDCASE ╱ // 0x14c7 @0x4
0x14c3…14c9 at0005 = EOL // 0x14c8 @0x5
0x14c3…14c9 }
0x14c9…14d7 a22e 2490 UNTIL K=0
0x14c9…14d7 LineComalBin {
0x14c9…14d7 ptr = 0xa22e // 0x14c9 @0x0
0x14c9…14d7 lno = 0x09ba // 0x14cb @0x2
0x14c9…14d7 at0004 = ╱98╱ UNTIL ╱ // 0x14cd @0x4
0x14c9…14d7 at0005 = ╱4b╱K╱ // 0x14ce @0x5
0x14c9…14d7 at0006 = ╱dc╱=╱ // 0x14cf @0x6
0x14c9…14d7 at0007 = ╱30╱0╱ // 0x14d0 @0x7
0x14c9…14d7 at0008 = ╱fe00000000╱ // 0x14d1 @0x8
0x14c9…14d7 at000d = EOL // 0x14d6 @0xd
0x14c9…14d7 }
0x14d7…14e5 a23c 2500 UNTIL C=0
0x14d7…14e5 LineComalBin {
0x14d7…14e5 ptr = 0xa23c // 0x14d7 @0x0
0x14d7…14e5 lno = 0x09c4 // 0x14d9 @0x2
0x14d7…14e5 at0004 = ╱98╱ UNTIL ╱ // 0x14db @0x4
0x14d7…14e5 at0005 = ╱43╱C╱ // 0x14dc @0x5
0x14d7…14e5 at0006 = ╱dc╱=╱ // 0x14dd @0x6
0x14d7…14e5 at0007 = ╱30╱0╱ // 0x14de @0x7
0x14d7…14e5 at0008 = ╱fe00000000╱ // 0x14df @0x8
0x14d7…14e5 at000d = EOL // 0x14e4 @0xd
0x14d7…14e5 }
0x14e5…14eb a242 2510 ENDIF
0x14e5…14eb LineComalBin {
0x14e5…14eb ptr = 0xa242 // 0x14e5 @0x0
0x14e5…14eb lno = 0x09ce // 0x14e7 @0x2
0x14e5…14eb at0004 = ╱9b╱ ENDIF ╱ // 0x14e9 @0x4
0x14e5…14eb at0005 = EOL // 0x14ea @0x5
0x14e5…14eb }
0x14eb…14f7 a24e 2520 UNTIL D$="0"
0x14eb…14f7 LineComalBin {
0x14eb…14f7 ptr = 0xa24e // 0x14eb @0x0
0x14eb…14f7 lno = 0x09d8 // 0x14ed @0x2
0x14eb…14f7 at0004 = ╱98╱ UNTIL ╱ // 0x14ef @0x4
0x14eb…14f7 at0005 = ╱44╱D╱ // 0x14f0 @0x5
0x14eb…14f7 at0006 = ╱ef╱$╱ // 0x14f1 @0x6
0x14eb…14f7 at0007 = ╱dc╱=╱ // 0x14f2 @0x7
0x14eb…14f7 at0008 = ╱22╱"╱ // 0x14f3 @0x8
0x14eb…14f7 at0009 = ╱30╱0╱ // 0x14f4 @0x9
0x14eb…14f7 at000a = ╱22╱"╱ // 0x14f5 @0xa
0x14eb…14f7 at000b = EOL // 0x14f6 @0xb
0x14eb…14f7 }
0x14f7…1502 a259 2530 OPEN K2$,W
0x14f7…1502 LineComalBin {
0x14f7…1502 ptr = 0xa259 // 0x14f7 @0x0
0x14f7…1502 lno = 0x09e2 // 0x14f9 @0x2
0x14f7…1502 at0004 = ╱a7╱ OPEN ╱ // 0x14fb @0x4
0x14f7…1502 at0005 = ╱4b╱K╱ // 0x14fc @0x5
0x14f7…1502 at0006 = ╱32╱2╱ // 0x14fd @0x6
0x14f7…1502 at0007 = ╱ef╱$╱ // 0x14fe @0x7
0x14f7…1502 at0008 = ╱ec╱,╱ // 0x14ff @0x8
0x14f7…1502 at0009 = ╱57╱W╱ // 0x1500 @0x9
0x14f7…1502 at000a = EOL // 0x1501 @0xa
0x14f7…1502 }
0x1502…151f a276 2540 EXEC FEJL(2,1,K2$)
0x1502…151f LineComalBin {
0x1502…151f ptr = 0xa276 // 0x1502 @0x0
0x1502…151f lno = 0x09ec // 0x1504 @0x2
0x1502…151f at0004 = ╱9d╱ EXEC ╱ // 0x1506 @0x4
0x1502…151f at0005 = ╱46╱F╱ // 0x1507 @0x5
0x1502…151f at0006 = ╱45╱E╱ // 0x1508 @0x6
0x1502…151f at0007 = ╱4a╱J╱ // 0x1509 @0x7
0x1502…151f at0008 = ╱4c╱L╱ // 0x150a @0x8
0x1502…151f at0009 = ╱ed╱(╱ // 0x150b @0x9
0x1502…151f at000a = ╱32╱2╱ // 0x150c @0xa
0x1502…151f at000b = ╱fe00008002╱ // 0x150d @0xb
0x1502…151f at0010 = ╱ec╱,╱ // 0x1512 @0x10
0x1502…151f at0011 = ╱31╱1╱ // 0x1513 @0x11
0x1502…151f at0012 = ╱fe00008001╱ // 0x1514 @0x12
0x1502…151f at0017 = ╱ec╱,╱ // 0x1519 @0x17
0x1502…151f at0018 = ╱4b╱K╱ // 0x151a @0x18
0x1502…151f at0019 = ╱32╱2╱ // 0x151b @0x19
0x1502…151f at001a = ╱ef╱$╱ // 0x151c @0x1a
0x1502…151f at001b = ╱ee╱)╱ // 0x151d @0x1b
0x1502…151f at001c = EOL // 0x151e @0x1c
0x1502…151f }
0x151f…1535 a28c 2550 PUT K2$,1:MOMS$
0x151f…1535 LineComalBin {
0x151f…1535 ptr = 0xa28c // 0x151f @0x0
0x151f…1535 lno = 0x09f6 // 0x1521 @0x2
0x151f…1535 at0004 = ╱aa╱ PUT ╱ // 0x1523 @0x4
0x151f…1535 at0005 = ╱4b╱K╱ // 0x1524 @0x5
0x151f…1535 at0006 = ╱32╱2╱ // 0x1525 @0x6
0x151f…1535 at0007 = ╱ef╱$╱ // 0x1526 @0x7
0x151f…1535 at0008 = ╱ec╱,╱ // 0x1527 @0x8
0x151f…1535 at0009 = ╱31╱1╱ // 0x1528 @0x9
0x151f…1535 at000a = ╱fe00008001╱ // 0x1529 @0xa
0x151f…1535 at000f = ╱f0╱:╱ // 0x152e @0xf
0x151f…1535 at0010 = ╱4d╱M╱ // 0x152f @0x10
0x151f…1535 at0011 = ╱4f╱O╱ // 0x1530 @0x11
0x151f…1535 at0012 = ╱4d╱M╱ // 0x1531 @0x12
0x151f…1535 at0013 = ╱53╱S╱ // 0x1532 @0x13
0x151f…1535 at0014 = ╱ef╱$╱ // 0x1533 @0x14
0x151f…1535 at0015 = EOL // 0x1534 @0x15
0x151f…1535 }
0x1535…1552 a2a9 2560 EXEC FEJL(2,2,K2$)
0x1535…1552 LineComalBin {
0x1535…1552 ptr = 0xa2a9 // 0x1535 @0x0
0x1535…1552 lno = 0x0a00 // 0x1537 @0x2
0x1535…1552 at0004 = ╱9d╱ EXEC ╱ // 0x1539 @0x4
0x1535…1552 at0005 = ╱46╱F╱ // 0x153a @0x5
0x1535…1552 at0006 = ╱45╱E╱ // 0x153b @0x6
0x1535…1552 at0007 = ╱4a╱J╱ // 0x153c @0x7
0x1535…1552 at0008 = ╱4c╱L╱ // 0x153d @0x8
0x1535…1552 at0009 = ╱ed╱(╱ // 0x153e @0x9
0x1535…1552 at000a = ╱32╱2╱ // 0x153f @0xa
0x1535…1552 at000b = ╱fe00008002╱ // 0x1540 @0xb
0x1535…1552 at0010 = ╱ec╱,╱ // 0x1545 @0x10
0x1535…1552 at0011 = ╱32╱2╱ // 0x1546 @0x11
0x1535…1552 at0012 = ╱fe00008002╱ // 0x1547 @0x12
0x1535…1552 at0017 = ╱ec╱,╱ // 0x154c @0x17
0x1535…1552 at0018 = ╱4b╱K╱ // 0x154d @0x18
0x1535…1552 at0019 = ╱32╱2╱ // 0x154e @0x19
0x1535…1552 at001a = ╱ef╱$╱ // 0x154f @0x1a
0x1535…1552 at001b = ╱ee╱)╱ // 0x1550 @0x1b
0x1535…1552 at001c = EOL // 0x1551 @0x1c
0x1535…1552 }
0x1552…15c5 a31c 2570 PUT K2$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)
0x1552…15c5 LineComalBin {
0x1552…15c5 ptr = 0xa31c // 0x1552 @0x0
0x1552…15c5 lno = 0x0a0a // 0x1554 @0x2
0x1552…15c5 at0004 = ╱aa╱ PUT ╱ // 0x1556 @0x4
0x1552…15c5 at0005 = ╱4b╱K╱ // 0x1557 @0x5
0x1552…15c5 at0006 = ╱32╱2╱ // 0x1558 @0x6
0x1552…15c5 at0007 = ╱ef╱$╱ // 0x1559 @0x7
0x1552…15c5 at0008 = ╱ec╱,╱ // 0x155a @0x8
0x1552…15c5 at0009 = ╱32╱2╱ // 0x155b @0x9
0x1552…15c5 at000a = ╱fe00008002╱ // 0x155c @0xa
0x1552…15c5 at000f = ╱f0╱:╱ // 0x1561 @0xf
0x1552…15c5 at0010 = ╱54╱T╱ // 0x1562 @0x10
0x1552…15c5 at0011 = ╱31╱1╱ // 0x1563 @0x11
0x1552…15c5 at0012 = ╱ed╱(╱ // 0x1564 @0x12
0x1552…15c5 at0013 = ╱31╱1╱ // 0x1565 @0x13
0x1552…15c5 at0014 = ╱fe00008001╱ // 0x1566 @0x14
0x1552…15c5 at0019 = ╱ee╱)╱ // 0x156b @0x19
0x1552…15c5 at001a = ╱ec╱,╱ // 0x156c @0x1a
0x1552…15c5 at001b = ╱54╱T╱ // 0x156d @0x1b
0x1552…15c5 at001c = ╱31╱1╱ // 0x156e @0x1c
0x1552…15c5 at001d = ╱ed╱(╱ // 0x156f @0x1d
0x1552…15c5 at001e = ╱32╱2╱ // 0x1570 @0x1e
0x1552…15c5 at001f = ╱fe00008002╱ // 0x1571 @0x1f
0x1552…15c5 at0024 = ╱ee╱)╱ // 0x1576 @0x24
0x1552…15c5 at0025 = ╱ec╱,╱ // 0x1577 @0x25
0x1552…15c5 at0026 = ╱54╱T╱ // 0x1578 @0x26
0x1552…15c5 at0027 = ╱31╱1╱ // 0x1579 @0x27
0x1552…15c5 at0028 = ╱ed╱(╱ // 0x157a @0x28
0x1552…15c5 at0029 = ╱33╱3╱ // 0x157b @0x29
0x1552…15c5 at002a = ╱fe0000c002╱ // 0x157c @0x2a
0x1552…15c5 at002f = ╱ee╱)╱ // 0x1581 @0x2f
0x1552…15c5 at0030 = ╱ec╱,╱ // 0x1582 @0x30
0x1552…15c5 at0031 = ╱54╱T╱ // 0x1583 @0x31
0x1552…15c5 at0032 = ╱31╱1╱ // 0x1584 @0x32
0x1552…15c5 at0033 = ╱ed╱(╱ // 0x1585 @0x33
0x1552…15c5 at0034 = ╱34╱4╱ // 0x1586 @0x34
0x1552…15c5 at0035 = ╱fe00008003╱ // 0x1587 @0x35
0x1552…15c5 at003a = ╱ee╱)╱ // 0x158c @0x3a
0x1552…15c5 at003b = ╱ec╱,╱ // 0x158d @0x3b
0x1552…15c5 at003c = ╱54╱T╱ // 0x158e @0x3c
0x1552…15c5 at003d = ╱31╱1╱ // 0x158f @0x3d
0x1552…15c5 at003e = ╱ed╱(╱ // 0x1590 @0x3e
0x1552…15c5 at003f = ╱35╱5╱ // 0x1591 @0x3f
0x1552…15c5 at0040 = ╱fe0000a003╱ // 0x1592 @0x40
0x1552…15c5 at0045 = ╱ee╱)╱ // 0x1597 @0x45
0x1552…15c5 at0046 = ╱ec╱,╱ // 0x1598 @0x46
0x1552…15c5 at0047 = ╱54╱T╱ // 0x1599 @0x47
0x1552…15c5 at0048 = ╱31╱1╱ // 0x159a @0x48
0x1552…15c5 at0049 = ╱ed╱(╱ // 0x159b @0x49
0x1552…15c5 at004a = ╱36╱6╱ // 0x159c @0x4a
0x1552…15c5 at004b = ╱fe0000c003╱ // 0x159d @0x4b
0x1552…15c5 at0050 = ╱ee╱)╱ // 0x15a2 @0x50
0x1552…15c5 at0051 = ╱ec╱,╱ // 0x15a3 @0x51
0x1552…15c5 at0052 = ╱54╱T╱ // 0x15a4 @0x52
0x1552…15c5 at0053 = ╱31╱1╱ // 0x15a5 @0x53
0x1552…15c5 at0054 = ╱ed╱(╱ // 0x15a6 @0x54
0x1552…15c5 at0055 = ╱37╱7╱ // 0x15a7 @0x55
0x1552…15c5 at0056 = ╱fe0000e003╱ // 0x15a8 @0x56
0x1552…15c5 at005b = ╱ee╱)╱ // 0x15ad @0x5b
0x1552…15c5 at005c = ╱ec╱,╱ // 0x15ae @0x5c
0x1552…15c5 at005d = ╱54╱T╱ // 0x15af @0x5d
0x1552…15c5 at005e = ╱31╱1╱ // 0x15b0 @0x5e
0x1552…15c5 at005f = ╱ed╱(╱ // 0x15b1 @0x5f
0x1552…15c5 at0060 = ╱38╱8╱ // 0x15b2 @0x60
0x1552…15c5 at0061 = ╱fe00008004╱ // 0x15b3 @0x61
0x1552…15c5 at0066 = ╱ee╱)╱ // 0x15b8 @0x66
0x1552…15c5 at0067 = ╱ec╱,╱ // 0x15b9 @0x67
0x1552…15c5 at0068 = ╱54╱T╱ // 0x15ba @0x68
0x1552…15c5 at0069 = ╱31╱1╱ // 0x15bb @0x69
0x1552…15c5 at006a = ╱ed╱(╱ // 0x15bc @0x6a
0x1552…15c5 at006b = ╱39╱9╱ // 0x15bd @0x6b
0x1552…15c5 at006c = ╱fe00009004╱ // 0x15be @0x6c
0x1552…15c5 at0071 = ╱ee╱)╱ // 0x15c3 @0x71
0x1552…15c5 at0072 = EOL // 0x15c4 @0x72
0x1552…15c5 }
0x15c5…15e2 a339 2580 EXEC FEJL(2,3,K2$)
0x15c5…15e2 LineComalBin {
0x15c5…15e2 ptr = 0xa339 // 0x15c5 @0x0
0x15c5…15e2 lno = 0x0a14 // 0x15c7 @0x2
0x15c5…15e2 at0004 = ╱9d╱ EXEC ╱ // 0x15c9 @0x4
0x15c5…15e2 at0005 = ╱46╱F╱ // 0x15ca @0x5
0x15c5…15e2 at0006 = ╱45╱E╱ // 0x15cb @0x6
0x15c5…15e2 at0007 = ╱4a╱J╱ // 0x15cc @0x7
0x15c5…15e2 at0008 = ╱4c╱L╱ // 0x15cd @0x8
0x15c5…15e2 at0009 = ╱ed╱(╱ // 0x15ce @0x9
0x15c5…15e2 at000a = ╱32╱2╱ // 0x15cf @0xa
0x15c5…15e2 at000b = ╱fe00008002╱ // 0x15d0 @0xb
0x15c5…15e2 at0010 = ╱ec╱,╱ // 0x15d5 @0x10
0x15c5…15e2 at0011 = ╱33╱3╱ // 0x15d6 @0x11
0x15c5…15e2 at0012 = ╱fe0000c002╱ // 0x15d7 @0x12
0x15c5…15e2 at0017 = ╱ec╱,╱ // 0x15dc @0x17
0x15c5…15e2 at0018 = ╱4b╱K╱ // 0x15dd @0x18
0x15c5…15e2 at0019 = ╱32╱2╱ // 0x15de @0x19
0x15c5…15e2 at001a = ╱ef╱$╱ // 0x15df @0x1a
0x15c5…15e2 at001b = ╱ee╱)╱ // 0x15e0 @0x1b
0x15c5…15e2 at001c = EOL // 0x15e1 @0x1c
0x15c5…15e2 }
0x15e2…15f7 a34e 2590 FOR I=1 TO 3
0x15e2…15f7 LineComalBin {
0x15e2…15f7 ptr = 0xa34e // 0x15e2 @0x0
0x15e2…15f7 lno = 0x0a1e // 0x15e4 @0x2
0x15e2…15f7 at0004 = ╱83╱ FOR ╱ // 0x15e6 @0x4
0x15e2…15f7 at0005 = ╱49╱I╱ // 0x15e7 @0x5
0x15e2…15f7 at0006 = ╱dc╱=╱ // 0x15e8 @0x6
0x15e2…15f7 at0007 = ╱31╱1╱ // 0x15e9 @0x7
0x15e2…15f7 at0008 = ╱fe00008001╱ // 0x15ea @0x8
0x15e2…15f7 at000d = ╱b7╱ TO ╱ // 0x15ef @0xd
0x15e2…15f7 at000e = ╱33╱3╱ // 0x15f0 @0xe
0x15e2…15f7 at000f = ╱fe0000c002╱ // 0x15f1 @0xf
0x15e2…15f7 at0014 = EOL // 0x15f6 @0x14
0x15e2…15f7 }
0x15f7…1616 a36d 2600 J=(I-1)*3+1
0x15f7…1616 LineComalBin {
0x15f7…1616 ptr = 0xa36d // 0x15f7 @0x0
0x15f7…1616 lno = 0x0a28 // 0x15f9 @0x2
0x15f7…1616 at0004 = ╱4a╱J╱ // 0x15fb @0x4
0x15f7…1616 at0005 = ╱dc╱=╱ // 0x15fc @0x5
0x15f7…1616 at0006 = ╱ed╱(╱ // 0x15fd @0x6
0x15f7…1616 at0007 = ╱49╱I╱ // 0x15fe @0x7
0x15f7…1616 at0008 = ╱e3╱-╱ // 0x15ff @0x8
0x15f7…1616 at0009 = ╱31╱1╱ // 0x1600 @0x9
0x15f7…1616 at000a = ╱fe00008001╱ // 0x1601 @0xa
0x15f7…1616 at000f = ╱ee╱)╱ // 0x1606 @0xf
0x15f7…1616 at0010 = ╱e4╱*╱ // 0x1607 @0x10
0x15f7…1616 at0011 = ╱33╱3╱ // 0x1608 @0x11
0x15f7…1616 at0012 = ╱fe0000c002╱ // 0x1609 @0x12
0x15f7…1616 at0017 = ╱e2╱+╱ // 0x160e @0x17
0x15f7…1616 at0018 = ╱31╱1╱ // 0x160f @0x18
0x15f7…1616 at0019 = ╱fe00008001╱ // 0x1610 @0x19
0x15f7…1616 at001e = EOL // 0x1615 @0x1e
0x15f7…1616 }
0x1616…1651 a3a8 2610 PUT K2$,I+2:LAND$(J),LAND$(J+1),LAND$(J+2)
0x1616…1651 LineComalBin {
0x1616…1651 ptr = 0xa3a8 // 0x1616 @0x0
0x1616…1651 lno = 0x0a32 // 0x1618 @0x2
0x1616…1651 at0004 = ╱aa╱ PUT ╱ // 0x161a @0x4
0x1616…1651 at0005 = ╱4b╱K╱ // 0x161b @0x5
0x1616…1651 at0006 = ╱32╱2╱ // 0x161c @0x6
0x1616…1651 at0007 = ╱ef╱$╱ // 0x161d @0x7
0x1616…1651 at0008 = ╱ec╱,╱ // 0x161e @0x8
0x1616…1651 at0009 = ╱49╱I╱ // 0x161f @0x9
0x1616…1651 at000a = ╱e2╱+╱ // 0x1620 @0xa
0x1616…1651 at000b = ╱32╱2╱ // 0x1621 @0xb
0x1616…1651 at000c = ╱fe00008002╱ // 0x1622 @0xc
0x1616…1651 at0011 = ╱f0╱:╱ // 0x1627 @0x11
0x1616…1651 at0012 = ╱4c╱L╱ // 0x1628 @0x12
0x1616…1651 at0013 = ╱41╱A╱ // 0x1629 @0x13
0x1616…1651 at0014 = ╱4e╱N╱ // 0x162a @0x14
0x1616…1651 at0015 = ╱44╱D╱ // 0x162b @0x15
0x1616…1651 at0016 = ╱ef╱$╱ // 0x162c @0x16
0x1616…1651 at0017 = ╱ed╱(╱ // 0x162d @0x17
0x1616…1651 at0018 = ╱4a╱J╱ // 0x162e @0x18
0x1616…1651 at0019 = ╱ee╱)╱ // 0x162f @0x19
0x1616…1651 at001a = ╱ec╱,╱ // 0x1630 @0x1a
0x1616…1651 at001b = ╱4c╱L╱ // 0x1631 @0x1b
0x1616…1651 at001c = ╱41╱A╱ // 0x1632 @0x1c
0x1616…1651 at001d = ╱4e╱N╱ // 0x1633 @0x1d
0x1616…1651 at001e = ╱44╱D╱ // 0x1634 @0x1e
0x1616…1651 at001f = ╱ef╱$╱ // 0x1635 @0x1f
0x1616…1651 at0020 = ╱ed╱(╱ // 0x1636 @0x20
0x1616…1651 at0021 = ╱4a╱J╱ // 0x1637 @0x21
0x1616…1651 at0022 = ╱e2╱+╱ // 0x1638 @0x22
0x1616…1651 at0023 = ╱31╱1╱ // 0x1639 @0x23
0x1616…1651 at0024 = ╱fe00008001╱ // 0x163a @0x24
0x1616…1651 at0029 = ╱ee╱)╱ // 0x163f @0x29
0x1616…1651 at002a = ╱ec╱,╱ // 0x1640 @0x2a
0x1616…1651 at002b = ╱4c╱L╱ // 0x1641 @0x2b
0x1616…1651 at002c = ╱41╱A╱ // 0x1642 @0x2c
0x1616…1651 at002d = ╱4e╱N╱ // 0x1643 @0x2d
0x1616…1651 at002e = ╱44╱D╱ // 0x1644 @0x2e
0x1616…1651 at002f = ╱ef╱$╱ // 0x1645 @0x2f
0x1616…1651 at0030 = ╱ed╱(╱ // 0x1646 @0x30
0x1616…1651 at0031 = ╱4a╱J╱ // 0x1647 @0x31
0x1616…1651 at0032 = ╱e2╱+╱ // 0x1648 @0x32
0x1616…1651 at0033 = ╱32╱2╱ // 0x1649 @0x33
0x1616…1651 at0034 = ╱fe00008002╱ // 0x164a @0x34
0x1616…1651 at0039 = ╱ee╱)╱ // 0x164f @0x39
0x1616…1651 at003a = EOL // 0x1650 @0x3a
0x1616…1651 }
0x1651…166e a3c5 2620 EXEC FEJL(2,4,K2$)
0x1651…166e LineComalBin {
0x1651…166e ptr = 0xa3c5 // 0x1651 @0x0
0x1651…166e lno = 0x0a3c // 0x1653 @0x2
0x1651…166e at0004 = ╱9d╱ EXEC ╱ // 0x1655 @0x4
0x1651…166e at0005 = ╱46╱F╱ // 0x1656 @0x5
0x1651…166e at0006 = ╱45╱E╱ // 0x1657 @0x6
0x1651…166e at0007 = ╱4a╱J╱ // 0x1658 @0x7
0x1651…166e at0008 = ╱4c╱L╱ // 0x1659 @0x8
0x1651…166e at0009 = ╱ed╱(╱ // 0x165a @0x9
0x1651…166e at000a = ╱32╱2╱ // 0x165b @0xa
0x1651…166e at000b = ╱fe00008002╱ // 0x165c @0xb
0x1651…166e at0010 = ╱ec╱,╱ // 0x1661 @0x10
0x1651…166e at0011 = ╱34╱4╱ // 0x1662 @0x11
0x1651…166e at0012 = ╱fe00008003╱ // 0x1663 @0x12
0x1651…166e at0017 = ╱ec╱,╱ // 0x1668 @0x17
0x1651…166e at0018 = ╱4b╱K╱ // 0x1669 @0x18
0x1651…166e at0019 = ╱32╱2╱ // 0x166a @0x19
0x1651…166e at001a = ╱ef╱$╱ // 0x166b @0x1a
0x1651…166e at001b = ╱ee╱)╱ // 0x166c @0x1b
0x1651…166e at001c = EOL // 0x166d @0x1c
0x1651…166e }
0x166e…1675 a3cc 2630 NEXT I
0x166e…1675 LineComalBin {
0x166e…1675 ptr = 0xa3cc // 0x166e @0x0
0x166e…1675 lno = 0x0a46 // 0x1670 @0x2
0x166e…1675 at0004 = ╱84╱ NEXT ╱ // 0x1672 @0x4
0x166e…1675 at0005 = ╱49╱I╱ // 0x1673 @0x5
0x166e…1675 at0006 = EOL // 0x1674 @0x6
0x166e…1675 }
0x1675…168a a3e1 2640 FOR I=1 TO 3
0x1675…168a LineComalBin {
0x1675…168a ptr = 0xa3e1 // 0x1675 @0x0
0x1675…168a lno = 0x0a50 // 0x1677 @0x2
0x1675…168a at0004 = ╱83╱ FOR ╱ // 0x1679 @0x4
0x1675…168a at0005 = ╱49╱I╱ // 0x167a @0x5
0x1675…168a at0006 = ╱dc╱=╱ // 0x167b @0x6
0x1675…168a at0007 = ╱31╱1╱ // 0x167c @0x7
0x1675…168a at0008 = ╱fe00008001╱ // 0x167d @0x8
0x1675…168a at000d = ╱b7╱ TO ╱ // 0x1682 @0xd
0x1675…168a at000e = ╱33╱3╱ // 0x1683 @0xe
0x1675…168a at000f = ╱fe0000c002╱ // 0x1684 @0xf
0x1675…168a at0014 = EOL // 0x1689 @0x14
0x1675…168a }
0x168a…16a9 a400 2650 J=(I-1)*3+1
0x168a…16a9 LineComalBin {
0x168a…16a9 ptr = 0xa400 // 0x168a @0x0
0x168a…16a9 lno = 0x0a5a // 0x168c @0x2
0x168a…16a9 at0004 = ╱4a╱J╱ // 0x168e @0x4
0x168a…16a9 at0005 = ╱dc╱=╱ // 0x168f @0x5
0x168a…16a9 at0006 = ╱ed╱(╱ // 0x1690 @0x6
0x168a…16a9 at0007 = ╱49╱I╱ // 0x1691 @0x7
0x168a…16a9 at0008 = ╱e3╱-╱ // 0x1692 @0x8
0x168a…16a9 at0009 = ╱31╱1╱ // 0x1693 @0x9
0x168a…16a9 at000a = ╱fe00008001╱ // 0x1694 @0xa
0x168a…16a9 at000f = ╱ee╱)╱ // 0x1699 @0xf
0x168a…16a9 at0010 = ╱e4╱*╱ // 0x169a @0x10
0x168a…16a9 at0011 = ╱33╱3╱ // 0x169b @0x11
0x168a…16a9 at0012 = ╱fe0000c002╱ // 0x169c @0x12
0x168a…16a9 at0017 = ╱e2╱+╱ // 0x16a1 @0x17
0x168a…16a9 at0018 = ╱31╱1╱ // 0x16a2 @0x18
0x168a…16a9 at0019 = ╱fe00008001╱ // 0x16a3 @0x19
0x168a…16a9 at001e = EOL // 0x16a8 @0x1e
0x168a…16a9 }
0x16a9…16e4 a43b 2660 PUT K2$,I+5:TFIL$(J),TFIL$(J+1),TFIL$(J+2)
0x16a9…16e4 LineComalBin {
0x16a9…16e4 ptr = 0xa43b // 0x16a9 @0x0
0x16a9…16e4 lno = 0x0a64 // 0x16ab @0x2
0x16a9…16e4 at0004 = ╱aa╱ PUT ╱ // 0x16ad @0x4
0x16a9…16e4 at0005 = ╱4b╱K╱ // 0x16ae @0x5
0x16a9…16e4 at0006 = ╱32╱2╱ // 0x16af @0x6
0x16a9…16e4 at0007 = ╱ef╱$╱ // 0x16b0 @0x7
0x16a9…16e4 at0008 = ╱ec╱,╱ // 0x16b1 @0x8
0x16a9…16e4 at0009 = ╱49╱I╱ // 0x16b2 @0x9
0x16a9…16e4 at000a = ╱e2╱+╱ // 0x16b3 @0xa
0x16a9…16e4 at000b = ╱35╱5╱ // 0x16b4 @0xb
0x16a9…16e4 at000c = ╱fe0000a003╱ // 0x16b5 @0xc
0x16a9…16e4 at0011 = ╱f0╱:╱ // 0x16ba @0x11
0x16a9…16e4 at0012 = ╱54╱T╱ // 0x16bb @0x12
0x16a9…16e4 at0013 = ╱46╱F╱ // 0x16bc @0x13
0x16a9…16e4 at0014 = ╱49╱I╱ // 0x16bd @0x14
0x16a9…16e4 at0015 = ╱4c╱L╱ // 0x16be @0x15
0x16a9…16e4 at0016 = ╱ef╱$╱ // 0x16bf @0x16
0x16a9…16e4 at0017 = ╱ed╱(╱ // 0x16c0 @0x17
0x16a9…16e4 at0018 = ╱4a╱J╱ // 0x16c1 @0x18
0x16a9…16e4 at0019 = ╱ee╱)╱ // 0x16c2 @0x19
0x16a9…16e4 at001a = ╱ec╱,╱ // 0x16c3 @0x1a
0x16a9…16e4 at001b = ╱54╱T╱ // 0x16c4 @0x1b
0x16a9…16e4 at001c = ╱46╱F╱ // 0x16c5 @0x1c
0x16a9…16e4 at001d = ╱49╱I╱ // 0x16c6 @0x1d
0x16a9…16e4 at001e = ╱4c╱L╱ // 0x16c7 @0x1e
0x16a9…16e4 at001f = ╱ef╱$╱ // 0x16c8 @0x1f
0x16a9…16e4 at0020 = ╱ed╱(╱ // 0x16c9 @0x20
0x16a9…16e4 at0021 = ╱4a╱J╱ // 0x16ca @0x21
0x16a9…16e4 at0022 = ╱e2╱+╱ // 0x16cb @0x22
0x16a9…16e4 at0023 = ╱31╱1╱ // 0x16cc @0x23
0x16a9…16e4 at0024 = ╱fe00008001╱ // 0x16cd @0x24
0x16a9…16e4 at0029 = ╱ee╱)╱ // 0x16d2 @0x29
0x16a9…16e4 at002a = ╱ec╱,╱ // 0x16d3 @0x2a
0x16a9…16e4 at002b = ╱54╱T╱ // 0x16d4 @0x2b
0x16a9…16e4 at002c = ╱46╱F╱ // 0x16d5 @0x2c
0x16a9…16e4 at002d = ╱49╱I╱ // 0x16d6 @0x2d
0x16a9…16e4 at002e = ╱4c╱L╱ // 0x16d7 @0x2e
0x16a9…16e4 at002f = ╱ef╱$╱ // 0x16d8 @0x2f
0x16a9…16e4 at0030 = ╱ed╱(╱ // 0x16d9 @0x30
0x16a9…16e4 at0031 = ╱4a╱J╱ // 0x16da @0x31
0x16a9…16e4 at0032 = ╱e2╱+╱ // 0x16db @0x32
0x16a9…16e4 at0033 = ╱32╱2╱ // 0x16dc @0x33
0x16a9…16e4 at0034 = ╱fe00008002╱ // 0x16dd @0x34
0x16a9…16e4 at0039 = ╱ee╱)╱ // 0x16e2 @0x39
0x16a9…16e4 at003a = EOL // 0x16e3 @0x3a
0x16a9…16e4 }
0x16e4…1701 a458 2670 EXEC FEJL(2,5,K2$)
0x16e4…1701 LineComalBin {
0x16e4…1701 ptr = 0xa458 // 0x16e4 @0x0
0x16e4…1701 lno = 0x0a6e // 0x16e6 @0x2
0x16e4…1701 at0004 = ╱9d╱ EXEC ╱ // 0x16e8 @0x4
0x16e4…1701 at0005 = ╱46╱F╱ // 0x16e9 @0x5
0x16e4…1701 at0006 = ╱45╱E╱ // 0x16ea @0x6
0x16e4…1701 at0007 = ╱4a╱J╱ // 0x16eb @0x7
0x16e4…1701 at0008 = ╱4c╱L╱ // 0x16ec @0x8
0x16e4…1701 at0009 = ╱ed╱(╱ // 0x16ed @0x9
0x16e4…1701 at000a = ╱32╱2╱ // 0x16ee @0xa
0x16e4…1701 at000b = ╱fe00008002╱ // 0x16ef @0xb
0x16e4…1701 at0010 = ╱ec╱,╱ // 0x16f4 @0x10
0x16e4…1701 at0011 = ╱35╱5╱ // 0x16f5 @0x11
0x16e4…1701 at0012 = ╱fe0000a003╱ // 0x16f6 @0x12
0x16e4…1701 at0017 = ╱ec╱,╱ // 0x16fb @0x17
0x16e4…1701 at0018 = ╱4b╱K╱ // 0x16fc @0x18
0x16e4…1701 at0019 = ╱32╱2╱ // 0x16fd @0x19
0x16e4…1701 at001a = ╱ef╱$╱ // 0x16fe @0x1a
0x16e4…1701 at001b = ╱ee╱)╱ // 0x16ff @0x1b
0x16e4…1701 at001c = EOL // 0x1700 @0x1c
0x16e4…1701 }
0x1701…1708 a45f 2680 NEXT I
0x1701…1708 LineComalBin {
0x1701…1708 ptr = 0xa45f // 0x1701 @0x0
0x1701…1708 lno = 0x0a78 // 0x1703 @0x2
0x1701…1708 at0004 = ╱84╱ NEXT ╱ // 0x1705 @0x4
0x1701…1708 at0005 = ╱49╱I╱ // 0x1706 @0x5
0x1701…1708 at0006 = EOL // 0x1707 @0x6
0x1701…1708 }
0x1708…1725 a47c 2690 PUT K2$,18:AB$(1)
0x1708…1725 LineComalBin {
0x1708…1725 ptr = 0xa47c // 0x1708 @0x0
0x1708…1725 lno = 0x0a82 // 0x170a @0x2
0x1708…1725 at0004 = ╱aa╱ PUT ╱ // 0x170c @0x4
0x1708…1725 at0005 = ╱4b╱K╱ // 0x170d @0x5
0x1708…1725 at0006 = ╱32╱2╱ // 0x170e @0x6
0x1708…1725 at0007 = ╱ef╱$╱ // 0x170f @0x7
0x1708…1725 at0008 = ╱ec╱,╱ // 0x1710 @0x8
0x1708…1725 at0009 = ╱31╱1╱ // 0x1711 @0x9
0x1708…1725 at000a = ╱38╱8╱ // 0x1712 @0xa
0x1708…1725 at000b = ╱fe00009005╱ // 0x1713 @0xb
0x1708…1725 at0010 = ╱f0╱:╱ // 0x1718 @0x10
0x1708…1725 at0011 = ╱41╱A╱ // 0x1719 @0x11
0x1708…1725 at0012 = ╱42╱B╱ // 0x171a @0x12
0x1708…1725 at0013 = ╱ef╱$╱ // 0x171b @0x13
0x1708…1725 at0014 = ╱ed╱(╱ // 0x171c @0x14
0x1708…1725 at0015 = ╱31╱1╱ // 0x171d @0x15
0x1708…1725 at0016 = ╱fe00008001╱ // 0x171e @0x16
0x1708…1725 at001b = ╱ee╱)╱ // 0x1723 @0x1b
0x1708…1725 at001c = EOL // 0x1724 @0x1c
0x1708…1725 }
0x1725…1743 a49a 2700 EXEC FEJL(2,15,K2$)
0x1725…1743 LineComalBin {
0x1725…1743 ptr = 0xa49a // 0x1725 @0x0
0x1725…1743 lno = 0x0a8c // 0x1727 @0x2
0x1725…1743 at0004 = ╱9d╱ EXEC ╱ // 0x1729 @0x4
0x1725…1743 at0005 = ╱46╱F╱ // 0x172a @0x5
0x1725…1743 at0006 = ╱45╱E╱ // 0x172b @0x6
0x1725…1743 at0007 = ╱4a╱J╱ // 0x172c @0x7
0x1725…1743 at0008 = ╱4c╱L╱ // 0x172d @0x8
0x1725…1743 at0009 = ╱ed╱(╱ // 0x172e @0x9
0x1725…1743 at000a = ╱32╱2╱ // 0x172f @0xa
0x1725…1743 at000b = ╱fe00008002╱ // 0x1730 @0xb
0x1725…1743 at0010 = ╱ec╱,╱ // 0x1735 @0x10
0x1725…1743 at0011 = ╱31╱1╱ // 0x1736 @0x11
0x1725…1743 at0012 = ╱35╱5╱ // 0x1737 @0x12
0x1725…1743 at0013 = ╱fe0000f004╱ // 0x1738 @0x13
0x1725…1743 at0018 = ╱ec╱,╱ // 0x173d @0x18
0x1725…1743 at0019 = ╱4b╱K╱ // 0x173e @0x19
0x1725…1743 at001a = ╱32╱2╱ // 0x173f @0x1a
0x1725…1743 at001b = ╱ef╱$╱ // 0x1740 @0x1b
0x1725…1743 at001c = ╱ee╱)╱ // 0x1741 @0x1c
0x1725…1743 at001d = EOL // 0x1742 @0x1d
0x1725…1743 }
0x1743…1760 a4b7 2710 PUT K2$,19:AB$(2)
0x1743…1760 LineComalBin {
0x1743…1760 ptr = 0xa4b7 // 0x1743 @0x0
0x1743…1760 lno = 0x0a96 // 0x1745 @0x2
0x1743…1760 at0004 = ╱aa╱ PUT ╱ // 0x1747 @0x4
0x1743…1760 at0005 = ╱4b╱K╱ // 0x1748 @0x5
0x1743…1760 at0006 = ╱32╱2╱ // 0x1749 @0x6
0x1743…1760 at0007 = ╱ef╱$╱ // 0x174a @0x7
0x1743…1760 at0008 = ╱ec╱,╱ // 0x174b @0x8
0x1743…1760 at0009 = ╱31╱1╱ // 0x174c @0x9
0x1743…1760 at000a = ╱39╱9╱ // 0x174d @0xa
0x1743…1760 at000b = ╱fe00009805╱ // 0x174e @0xb
0x1743…1760 at0010 = ╱f0╱:╱ // 0x1753 @0x10
0x1743…1760 at0011 = ╱41╱A╱ // 0x1754 @0x11
0x1743…1760 at0012 = ╱42╱B╱ // 0x1755 @0x12
0x1743…1760 at0013 = ╱ef╱$╱ // 0x1756 @0x13
0x1743…1760 at0014 = ╱ed╱(╱ // 0x1757 @0x14
0x1743…1760 at0015 = ╱32╱2╱ // 0x1758 @0x15
0x1743…1760 at0016 = ╱fe00008002╱ // 0x1759 @0x16
0x1743…1760 at001b = ╱ee╱)╱ // 0x175e @0x1b
0x1743…1760 at001c = EOL // 0x175f @0x1c
0x1743…1760 }
0x1760…177e a4d5 2720 EXEC FEJL(2,16,K2$)
0x1760…177e LineComalBin {
0x1760…177e ptr = 0xa4d5 // 0x1760 @0x0
0x1760…177e lno = 0x0aa0 // 0x1762 @0x2
0x1760…177e at0004 = ╱9d╱ EXEC ╱ // 0x1764 @0x4
0x1760…177e at0005 = ╱46╱F╱ // 0x1765 @0x5
0x1760…177e at0006 = ╱45╱E╱ // 0x1766 @0x6
0x1760…177e at0007 = ╱4a╱J╱ // 0x1767 @0x7
0x1760…177e at0008 = ╱4c╱L╱ // 0x1768 @0x8
0x1760…177e at0009 = ╱ed╱(╱ // 0x1769 @0x9
0x1760…177e at000a = ╱32╱2╱ // 0x176a @0xa
0x1760…177e at000b = ╱fe00008002╱ // 0x176b @0xb
0x1760…177e at0010 = ╱ec╱,╱ // 0x1770 @0x10
0x1760…177e at0011 = ╱31╱1╱ // 0x1771 @0x11
0x1760…177e at0012 = ╱36╱6╱ // 0x1772 @0x12
0x1760…177e at0013 = ╱fe00008005╱ // 0x1773 @0x13
0x1760…177e at0018 = ╱ec╱,╱ // 0x1778 @0x18
0x1760…177e at0019 = ╱4b╱K╱ // 0x1779 @0x19
0x1760…177e at001a = ╱32╱2╱ // 0x177a @0x1a
0x1760…177e at001b = ╱ef╱$╱ // 0x177b @0x1b
0x1760…177e at001c = ╱ee╱)╱ // 0x177c @0x1c
0x1760…177e at001d = EOL // 0x177d @0x1d
0x1760…177e }
0x177e…17df a536 2730 PUT K2$,20:AB$(5,1:10),AB$(4,1:20),AB$(3,1:4)
0x177e…17df LineComalBin {
0x177e…17df ptr = 0xa536 // 0x177e @0x0
0x177e…17df lno = 0x0aaa // 0x1780 @0x2
0x177e…17df at0004 = ╱aa╱ PUT ╱ // 0x1782 @0x4
0x177e…17df at0005 = ╱4b╱K╱ // 0x1783 @0x5
0x177e…17df at0006 = ╱32╱2╱ // 0x1784 @0x6
0x177e…17df at0007 = ╱ef╱$╱ // 0x1785 @0x7
0x177e…17df at0008 = ╱ec╱,╱ // 0x1786 @0x8
0x177e…17df at0009 = ╱32╱2╱ // 0x1787 @0x9
0x177e…17df at000a = ╱30╱0╱ // 0x1788 @0xa
0x177e…17df at000b = ╱fe0000a005╱ // 0x1789 @0xb
0x177e…17df at0010 = ╱f0╱:╱ // 0x178e @0x10
0x177e…17df at0011 = ╱41╱A╱ // 0x178f @0x11
0x177e…17df at0012 = ╱42╱B╱ // 0x1790 @0x12
0x177e…17df at0013 = ╱ef╱$╱ // 0x1791 @0x13
0x177e…17df at0014 = ╱ed╱(╱ // 0x1792 @0x14
0x177e…17df at0015 = ╱35╱5╱ // 0x1793 @0x15
0x177e…17df at0016 = ╱fe0000a003╱ // 0x1794 @0x16
0x177e…17df at001b = ╱ec╱,╱ // 0x1799 @0x1b
0x177e…17df at001c = ╱31╱1╱ // 0x179a @0x1c
0x177e…17df at001d = ╱fe00008001╱ // 0x179b @0x1d
0x177e…17df at0022 = ╱f0╱:╱ // 0x17a0 @0x22
0x177e…17df at0023 = ╱31╱1╱ // 0x17a1 @0x23
0x177e…17df at0024 = ╱30╱0╱ // 0x17a2 @0x24
0x177e…17df at0025 = ╱fe0000a004╱ // 0x17a3 @0x25
0x177e…17df at002a = ╱ee╱)╱ // 0x17a8 @0x2a
0x177e…17df at002b = ╱ec╱,╱ // 0x17a9 @0x2b
0x177e…17df at002c = ╱41╱A╱ // 0x17aa @0x2c
0x177e…17df at002d = ╱42╱B╱ // 0x17ab @0x2d
0x177e…17df at002e = ╱ef╱$╱ // 0x17ac @0x2e
0x177e…17df at002f = ╱ed╱(╱ // 0x17ad @0x2f
0x177e…17df at0030 = ╱34╱4╱ // 0x17ae @0x30
0x177e…17df at0031 = ╱fe00008003╱ // 0x17af @0x31
0x177e…17df at0036 = ╱ec╱,╱ // 0x17b4 @0x36
0x177e…17df at0037 = ╱31╱1╱ // 0x17b5 @0x37
0x177e…17df at0038 = ╱fe00008001╱ // 0x17b6 @0x38
0x177e…17df at003d = ╱f0╱:╱ // 0x17bb @0x3d
0x177e…17df at003e = ╱32╱2╱ // 0x17bc @0x3e
0x177e…17df at003f = ╱30╱0╱ // 0x17bd @0x3f
0x177e…17df at0040 = ╱fe0000a005╱ // 0x17be @0x40
0x177e…17df at0045 = ╱ee╱)╱ // 0x17c3 @0x45
0x177e…17df at0046 = ╱ec╱,╱ // 0x17c4 @0x46
0x177e…17df at0047 = ╱41╱A╱ // 0x17c5 @0x47
0x177e…17df at0048 = ╱42╱B╱ // 0x17c6 @0x48
0x177e…17df at0049 = ╱ef╱$╱ // 0x17c7 @0x49
0x177e…17df at004a = ╱ed╱(╱ // 0x17c8 @0x4a
0x177e…17df at004b = ╱33╱3╱ // 0x17c9 @0x4b
0x177e…17df at004c = ╱fe0000c002╱ // 0x17ca @0x4c
0x177e…17df at0051 = ╱ec╱,╱ // 0x17cf @0x51
0x177e…17df at0052 = ╱31╱1╱ // 0x17d0 @0x52
0x177e…17df at0053 = ╱fe00008001╱ // 0x17d1 @0x53
0x177e…17df at0058 = ╱f0╱:╱ // 0x17d6 @0x58
0x177e…17df at0059 = ╱34╱4╱ // 0x17d7 @0x59
0x177e…17df at005a = ╱fe00008003╱ // 0x17d8 @0x5a
0x177e…17df at005f = ╱ee╱)╱ // 0x17dd @0x5f
0x177e…17df at0060 = EOL // 0x17de @0x60
0x177e…17df }
0x17df…17fd a554 2740 EXEC FEJL(2,17,K2$)
0x17df…17fd LineComalBin {
0x17df…17fd ptr = 0xa554 // 0x17df @0x0
0x17df…17fd lno = 0x0ab4 // 0x17e1 @0x2
0x17df…17fd at0004 = ╱9d╱ EXEC ╱ // 0x17e3 @0x4
0x17df…17fd at0005 = ╱46╱F╱ // 0x17e4 @0x5
0x17df…17fd at0006 = ╱45╱E╱ // 0x17e5 @0x6
0x17df…17fd at0007 = ╱4a╱J╱ // 0x17e6 @0x7
0x17df…17fd at0008 = ╱4c╱L╱ // 0x17e7 @0x8
0x17df…17fd at0009 = ╱ed╱(╱ // 0x17e8 @0x9
0x17df…17fd at000a = ╱32╱2╱ // 0x17e9 @0xa
0x17df…17fd at000b = ╱fe00008002╱ // 0x17ea @0xb
0x17df…17fd at0010 = ╱ec╱,╱ // 0x17ef @0x10
0x17df…17fd at0011 = ╱31╱1╱ // 0x17f0 @0x11
0x17df…17fd at0012 = ╱37╱7╱ // 0x17f1 @0x12
0x17df…17fd at0013 = ╱fe00008805╱ // 0x17f2 @0x13
0x17df…17fd at0018 = ╱ec╱,╱ // 0x17f7 @0x18
0x17df…17fd at0019 = ╱4b╱K╱ // 0x17f8 @0x19
0x17df…17fd at001a = ╱32╱2╱ // 0x17f9 @0x1a
0x17df…17fd at001b = ╱ef╱$╱ // 0x17fa @0x1b
0x17df…17fd at001c = ╱ee╱)╱ // 0x17fb @0x1c
0x17df…17fd at001d = EOL // 0x17fc @0x1d
0x17df…17fd }
0x17fd…1806 a55d 2750 CLOSE K2$
0x17fd…1806 LineComalBin {
0x17fd…1806 ptr = 0xa55d // 0x17fd @0x0
0x17fd…1806 lno = 0x0abe // 0x17ff @0x2
0x17fd…1806 at0004 = ╱a8╱ CLOSE ╱ // 0x1801 @0x4
0x17fd…1806 at0005 = ╱4b╱K╱ // 0x1802 @0x5
0x17fd…1806 at0006 = ╱32╱2╱ // 0x1803 @0x6
0x17fd…1806 at0007 = ╱ef╱$╱ // 0x1804 @0x7
0x17fd…1806 at0008 = EOL // 0x1805 @0x8
0x17fd…1806 }
0x1806…1823 a57a 2760 EXEC FEJL(2,6,K2$)
0x1806…1823 LineComalBin {
0x1806…1823 ptr = 0xa57a // 0x1806 @0x0
0x1806…1823 lno = 0x0ac8 // 0x1808 @0x2
0x1806…1823 at0004 = ╱9d╱ EXEC ╱ // 0x180a @0x4
0x1806…1823 at0005 = ╱46╱F╱ // 0x180b @0x5
0x1806…1823 at0006 = ╱45╱E╱ // 0x180c @0x6
0x1806…1823 at0007 = ╱4a╱J╱ // 0x180d @0x7
0x1806…1823 at0008 = ╱4c╱L╱ // 0x180e @0x8
0x1806…1823 at0009 = ╱ed╱(╱ // 0x180f @0x9
0x1806…1823 at000a = ╱32╱2╱ // 0x1810 @0xa
0x1806…1823 at000b = ╱fe00008002╱ // 0x1811 @0xb
0x1806…1823 at0010 = ╱ec╱,╱ // 0x1816 @0x10
0x1806…1823 at0011 = ╱36╱6╱ // 0x1817 @0x11
0x1806…1823 at0012 = ╱fe0000c003╱ // 0x1818 @0x12
0x1806…1823 at0017 = ╱ec╱,╱ // 0x181d @0x17
0x1806…1823 at0018 = ╱4b╱K╱ // 0x181e @0x18
0x1806…1823 at0019 = ╱32╱2╱ // 0x181f @0x19
0x1806…1823 at001a = ╱ef╱$╱ // 0x1820 @0x1a
0x1806…1823 at001b = ╱ee╱)╱ // 0x1821 @0x1b
0x1806…1823 at001c = EOL // 0x1822 @0x1c
0x1806…1823 }
0x1823…183a 0000 2770 CHAIN "P641210:OPSTART"
0x1823…183a LineComalBin {
0x1823…183a ptr = 0x0000 // 0x1823 @0x0
0x1823…183a lno = 0x0ad2 // 0x1825 @0x2
0x1823…183a at0004 = ╱ac╱ CHAIN ╱ // 0x1827 @0x4
0x1823…183a at0005 = ╱22╱"╱ // 0x1828 @0x5
0x1823…183a at0006 = ╱50╱P╱ // 0x1829 @0x6
0x1823…183a at0007 = ╱36╱6╱ // 0x182a @0x7
0x1823…183a at0008 = ╱34╱4╱ // 0x182b @0x8
0x1823…183a at0009 = ╱31╱1╱ // 0x182c @0x9
0x1823…183a at000a = ╱32╱2╱ // 0x182d @0xa
0x1823…183a at000b = ╱31╱1╱ // 0x182e @0xb
0x1823…183a at000c = ╱30╱0╱ // 0x182f @0xc
0x1823…183a at000d = ╱3a╱:╱ // 0x1830 @0xd
0x1823…183a at000e = ╱4f╱O╱ // 0x1831 @0xe
0x1823…183a at000f = ╱50╱P╱ // 0x1832 @0xf
0x1823…183a at0010 = ╱53╱S╱ // 0x1833 @0x10
0x1823…183a at0011 = ╱54╱T╱ // 0x1834 @0x11
0x1823…183a at0012 = ╱41╱A╱ // 0x1835 @0x12
0x1823…183a at0013 = ╱52╱R╱ // 0x1836 @0x13
0x1823…183a at0014 = ╱54╱T╱ // 0x1837 @0x14
0x1823…183a at0015 = ╱22╱"╱ // 0x1838 @0x15
0x1823…183a at0016 = EOL // 0x1839 @0x16
0x1823…183a }
0x183a…1840 (81,) 57 8d 57 8d 10 00 ┆W W ┆