|
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: 9670 (0x25c6)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »DEBLIST.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »DEBLIST.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »DEBLIST.B«
0090 REM DEBLIST 0100 DIM K1$(17),N$(6),K2$(17),K3$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(2) 0110 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(2),DEBGADE$(25) 0120 DIM BLANK$(77),A$(1),TAL4$(14),TAH$(12),T1(9),DEBTLF$(9),DEBBY$(20) 0130 DIM RES$(14),ÅRKØB$(12),MDNKØB$(12),DSALDI$(12),LK$(3),KG$(3),KTN$(6) 0140 DIM PNR$(6),TY$(1),OP1$(12),OP2$(12),TA$(12),TB$(14),TÅRKØB$(12),DV$(10) 0150 DIM SUM$(12),SUM1$(12),SUM2$(12),SUM3$(12),SUM4$(12),SUM5$(12),SUM6$(12) 0160 DIM TAL1$(14),TAL2$(14),TAL3$(14),KS$(5),DAT$(8),STREG$(78),K4$(17) 0170 DIM K5$(17),LAND$(9,12) 0175 TALLET=0 0180 PROC CALC(ART,B1,B2,ES) 0190 OP1$=B1$ 0200 OP2$=B2$ 0210 RES$=ES$ 0220 SI=0 0230 FLAG=0 0240 CALL "P641210:REGN" 0250 ES$=RES$ 0260 IF FLAG THEN STOP 0270 ENDPROC 0280 PROC FEJL(NR1,NR2,NR3) 0290 IF STATUS(NR3$)<>0 THEN 0300 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0310 STOP 0320 ENDIF 0330 ENDPROC 0340 PROC INDTAB(T,MANTAL,L10) 0350 J=MANTAL DIV 32+1 0360 FOR I=J TO MANTAL DIV 4+J-1 0370 H=(I-J)*4+1;H1=H+1;H2=H+2;H3=H+3 0380 GET L10$,I:T(H,1),T(H,2),T(H1,1),T(H1,2),T(H2,1),T(H2,2),T(H3,1),T(H3,2) 0390 EXEC FEJL(1,1,L10$) 0400 NEXT I 0410 ENDPROC 0420 PROC HENTDPOST 0430 S=DTAB(DPIL3,2) 0440 GET K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 0450 EXEC FEJL(8,2,K3$) 0460 GET K3$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DPOSTNR,DEBLK$ 0470 EXEC FEJL(8,3,K3$) 0480 GET K3$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE 0490 EXEC FEJL(8,4,K3$) 0500 GET K3$,S+3:DEBBY$,ÅRKØB$,MDNKØB$ 0510 EXEC FEJL(8,5,K3$) 0520 ENDPROC 0530 PROC TUD(BLB,UBLB,TEGN,STØR) 0540 EXEC CALC(5,BLB$,TAH$,UBLB$) 0550 IF TEGN=0 THEN 0560 UBLB$=UBLB$(1:13) 0570 ELSE 0580 IF TEGN=1 AND UBLB$(LEN(UBLB$))="+" THEN 0590 UBLB$(LEN(UBLB$))=" " 0600 ENDIF 0610 ENDIF 0620 IF STØR=1 THEN UBLB$=UBLB$(4:LEN(UBLB$)-3) 0630 ENDPROC 0640 PROC HOVED(GR) 0650 LINIE=LINIE+1 0660 IF LINIE MOD (13*(1+2*(TYPE=2)))=1 THEN 0670 IF LINIE<>1 THEN PRINT CHR(10);CHR(10) 0680 IF LINIE<>1 AND TYPE=2 THEN PRINT " " 0690 SIDENR=SIDENR+1 0700 PRINT TAB(64);DV$;" " 0710 PRINT CHR(14);" Debitor"+KS$+"liste";CHR(15);TAB(25); 0720 IF GR>0 THEN 0730 PRINT USING "Gruppe:###":GR; 0740 ENDIF 0750 PRINT TAB(37);"Dato: ";DAT$; 0760 PRINT USING " Side:###":SIDENR 0770 PRINT " " 0780 IF TYPE=2 THEN 0790 PRINT " KONTO NAVN";TAB(37);"POSTNR BY";TAB(67);"TLF" 0800 PRINT STREG$ 0810 ELSE 0820 PRINT " KONTO TLF";TAB(28);"SALDO IALT";TAB(44);"0-30 DAGE"; 0830 PRINT TAB(56);"60-90 DAGE MÅNEDENS KØB" 0840 PRINT " NAVN";TAB(43);"30-60 DAGE ÆLDRE ÅRETS KØB" 0850 PRINT STREG$ 0860 ENDIF 0870 ENDIF 0880 ENDPROC 0890 PROC BUND 0900 FOR LINIE=LINIE+1 TO 13*(1+2*(TYPE=2))*SIDENR 0910 IF TYPE=1 THEN 0920 PRINT CHR(10);CHR(10) 0930 ELSE 0940 PRINT " " 0950 ENDIF 0960 NEXT LINIE 0970 IF TYPE=1 THEN 0980 EXEC TUD(SUM$,TAL1$,1,0) 0990 EXEC TUD(SUM1$,TAL2$,1,0) 1000 EXEC TUD(SUM3$,TAL3$,1,0) 1010 EXEC TUD(SUM5$,TAL4$,1,0) 1020 PRINT TAB(10);CHR(14);"Total";CHR(15);TAB(21);TAL1$,TAB(35);TAL2$; 1030 PRINT TAB(49);TAL3$;TAB(63);TAL4$ 1040 EXEC TUD(SUM2$,TAL1$,1,0) 1050 EXEC TUD(SUM4$,TAL2$,1,0) 1060 EXEC TUD(SUM6$,TAL3$,1,0) 1070 PRINT TAB(38);TAL1$;TAB(52);TAL2$;TAB(66);TAL3$ 1090 ELSE 1100 PRINT CHR(10);CHR(10);CHR(10) 1120 ENDIF 1130 ENDPROC 1140 PROC UDSKRIV 1150 CASE TYPE OF 1160 WHEN 1 1170 EXEC CALC(0,DSALDO1$,DSALDO2$,DSALDI$) 1180 EXEC CALC(0,DSALDI$,DSALDO3$,DSALDI$) 1190 EXEC CALC(0,DSALDI$,DSALDO4$,DSALDI$) 1200 EXEC CALC(0,SUM$,DSALDI$,SUM$) 1210 EXEC CALC(0,SUM1$,DSALDO1$,SUM1$) 1220 EXEC CALC(0,SUM2$,DSALDO2$,SUM2$) 1230 EXEC CALC(0,SUM3$,DSALDO3$,SUM3$) 1240 EXEC CALC(0,SUM4$,DSALDO4$,SUM4$) 1250 EXEC CALC(0,SUM5$,MDNKØB$,SUM5$) 1260 TÅRKØB$=ÅRKØB$ 1270 EXEC CALC(0,SUM6$,TÅRKØB$,SUM6$) 1280 EXEC TUD(DSALDI$,TAL1$,1,0) 1290 EXEC TUD(DSALDO1$,TAL2$,1,0) 1300 EXEC TUD(DSALDO3$,TAL3$,1,0) 1310 EXEC TUD(MDNKØB$,TAL4$,1,0) 1320 PRINT USING "###### ":DEBNR; 1330 PRINT DEBTLF$; 1340 PRINT TAB(24);TAL1$;TAB(38);TAL2$;TAB(52);TAL3$;TAB(65);TAL4$ 1350 EXEC TUD(DSALDO2$,TAL1$,1,0) 1360 EXEC TUD(DSALDO4$,TAL2$,1,0) 1370 EXEC TUD(TÅRKØB$,TAL3$,1,0) 1380 PRINT " ";DEBNAVN$;TAB(38);TAL1$;TAB(52);TAL2$;TAB(65);TAL3$ 1390 PRINT " " 1400 WHEN 2 1410 PRINT USING "###### ":DEBNR; 1420 PRINT DEBNAVN$;TAB(34); 1430 PRINT USING "####### ":DPOSTNR; 1440 PRINT DEBBY$;TAB(67);DEBTLF$ 1450 WHEN 3 1451 J=0 1452 REPEAT 1460 FOR I=1 TO 4 1470 PRINT " " 1480 NEXT I 1490 PRINT USING "###### ":DEBNR; 1500 PRINT DEBNAVN$;" " 1510 PRINT " " 1520 PRINT TAB(10);DEBGADE$;" " 1530 PRINT " " 1540 PRINT TAB(7); 1550 PRINT USING "######## ":DPOSTNR; 1560 PRINT DEBBY$;" " 1570 IF DEBLK$>"0" AND DEBLK$<="9" THEN 1580 PRINT " " 1590 PRINT TAB(9);LAND$(ORD(DEBLK$)-48) 1600 ELSE 1610 PRINT CHR(10);CHR(10) 1620 ENDIF 1630 PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10) 1635 J=J+1 1636 UNTIL J=TALLET 1640 ENDCASE 1650 ENDPROC 1660 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3) 1670 PIL1=MANT1 DIV 2;PIL3=PIL1;CEKS=1 1680 REPEAT 1690 IF NØGL1=TAB1(PIL3,1) OR PIL1=1 THEN EXIT 1700 PIL1=(PIL1+1) DIV 2;PIL3=PIL3+PIL1*(1-2*(NØGL1<TAB1(PIL3,1))) 1710 IF PIL3<1 THEN PIL3=1 1720 IF PIL3>MANT1 THEN PIL3=MANT1 1730 UNTIL PIL1=0 1740 IF NØGL1=TAB1(PIL3,1) THEN CEKS=0 1750 ENDPROC 1760 PROC NRTEST(NUM) 1770 P=0;TEST2=0;KTAL=0;L=LEN(NUM$) 1780 CASE L OF 1790 FOR J=1 TO L 1800 P1=INT(ORD(NUM$(J))-48) 1810 IF P1=>0 AND P1<=9 THEN 1820 P=P*10+P1 1830 ELSE 1840 TEST2=1 1850 ENDIF 1860 NEXT J 1870 KTAL=P DIV 10000 1880 WHEN 0 1890 P=-1 1900 WHEN 1 1910 CASE NUM$ OF 1920 P=INT(ORD(NUM$)-48) 1930 WHEN "j","J" 1940 P=-7 1950 WHEN "n","N" 1960 P=-8 1970 ENDCASE 1980 ENDCASE 1990 ENDPROC 2000 K1$="P641220:SYSTEM1" 2010 OPEN K1$,R 2020 EXEC FEJL(9,1,K1$) 2030 GET K1$,1:MFANTAL,MDANTAL 2040 EXEC FEJL(9,2,K1$) 2050 GET K1$,4:MKPOST,MFAK,MVGR,MKGR 2060 EXEC FEJL(9,3,K1$) 2070 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 2080 EXEC FEJL(9,4,K1$) 2090 GET K1$,10:N$ 2100 EXEC FEJL(9,5,K1$) 2110 GET K1$,12:K2$ 2120 EXEC FEJL(9,6,K1$) 2130 GET K1$,16:K3$ 2140 EXEC FEJL(9,7,K1$) 2150 GET K1$,35:K4$ 2160 EXEC FEJL(9,8,K1$) 2170 GET K1$,36:K5$ 2180 EXEC FEJL(9,9,K1$) 2190 CLOSE K1$ 2200 EXEC FEJL(9,10,K1$) 2210 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$ 2220 OPEN K5$,R 2230 EXEC FEJL(9,11,K5$) 2240 GET K5$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 2250 EXEC FEJL(9,12,K5$) 2260 FOR I=1 TO 3 2270 H=(I-1)*3+1 2280 GET K5$,I+2:LAND$(H),LAND$(H+1),LAND$(H+2) 2290 EXEC FEJL(9,13,K5$) 2300 NEXT I 2310 GET K5$,14:AFIN,ADEB 2320 EXEC FEJL(9,14,K5$) 2330 GET K5$,20:DV$ 2340 EXEC FEJL(9,21,K5$) 2350 CLOSE K5$ 2360 EXEC FEJL(9,22,K5$) 2370 DIM DTAB(MDANTAL,2),KARRAY(MKGR) 2380 OPEN K4$,R 2390 EXEC FEJL(9,15,K4$) 2400 FOR I=1 TO MKGR DIV 5 2410 J=(I-1)*5+1 2420 GET K4$,I:KARRAY(J),KARRAY(J+1),KARRAY(J+2),KARRAY(J+3),KARRAY(J+4) 2430 EXEC FEJL(9,16,K4$) 2440 NEXT I 2450 CLOSE K4$ 2460 EXEC FEJL(9,12,K4$) 2470 OPEN K2$,R 2480 EXEC FEJL(9,18,K2$) 2490 OPEN K3$,R 2500 EXEC FEJL(9,19,K3$) 2510 EXEC INDTAB(DTAB,MDANTAL,K2$) 2520 DA=T1(7) 2530 DAT$=" " 2540 FOR J=8 TO 1 STEP -1 2550 IF J MOD 3=0 THEN 2560 DAT$(J)="." 2570 ELSE 2580 DAT$(J)=CHR(DA MOD 10+48) 2590 DA=DA DIV 10 2600 ENDIF 2610 NEXT J 2620 STREG$="---------------------------------------";STREG$=STREG$+STREG$ 2630 REPEAT 2640 SUM$="0+";SUM1$="0+";SUM2$="0+";SUM3$="0+";SUM4$="0+";SUM5$="0+" 2650 SUM6$="0+";LINIE=0;SIDENR=0 2660 OUTPUT T 2670 CLEAR 2680 CURSOR 20,1 2690 PRINT "Debitorudskrifter" 2700 CURSOR 11,6 2710 PRINT "0: Færdig" 2720 CURSOR 11,8 2730 PRINT "1: Saldoliste" 2740 CURSOR 11,10 2750 PRINT "2: Kontoliste" 2760 CURSOR 11,12 2770 PRINT "3: Labels" 2780 REPEAT 2790 CURSOR 13,14 2800 INPUT "Vælg type :",A$ 2810 EXEC NRTEST(A$) 2820 UNTIL P>-1 AND P<4 2830 TYPE=P 2840 IF TYPE=0 THEN EXIT 2850 REPEAT 2860 CURSOR 13,17 2870 PRINT "Ordnet efter : (1: Gruppe , 2: Nr)" 2880 CURSOR 26,17 2890 INPUT A$ 2900 EXEC NRTEST(A$) 2910 UNTIL P=1 OR P=2 2920 ORDEN=P 2930 REPEAT 2940 REPEAT 2950 CURSOR 13,19 2960 IF ORDEN=1 THEN 2970 PRINT "Fra gruppenr : (0: Alle)" 2980 ELSE 2990 PRINT "Fra kontonr : (0: Alle)" 3000 ENDIF 3010 CURSOR 26,19 3020 INPUT KTN$ 3030 EXEC NRTEST(KTN$) 3040 UNTIL P=0 OR (P>0 AND P<=MKGR AND ORDEN=1) OR (KTAL=DTAL AND ORDEN=2) 3050 IF ORDEN=1 THEN 3060 IF P=0 THEN 3070 FRA=1;TIL=MKGR 3080 ELSE 3090 FRA=P 3100 ENDIF 3110 ELSE 3120 IF P=0 THEN 3130 FRA=1;TIL=ADEB 3140 ELSE 3150 IF DTAB(ADEB,1)<P THEN 3160 FRA=0 3170 ELSE 3180 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3) 3190 IF CEKS=0 THEN 3200 FRA=DPIL3 3210 ELSE 3220 FRA=DPIL3+1 3230 ENDIF 3240 ENDIF 3250 ENDIF 3260 ENDIF 3270 UNTIL FRA<>0 3280 IF P>0 THEN 3290 REPEAT 3300 REPEAT 3310 CURSOR 13,21 3320 IF ORDEN=1 THEN 3330 INPUT "Til gruppenr :",KTN$ 3340 ELSE 3350 INPUT "Til kontonr :",KTN$ 3360 ENDIF 3370 EXEC NRTEST(KTN$) 3380 UNTIL (P>0 AND P<=MKGR AND ORDEN=1) OR (KTAL=DTAL AND ORDEN=2) 3390 IF ORDEN=1 THEN 3400 TIL=P 3410 ELSE 3420 IF DTAB(ADEB,1)<P THEN 3430 TIL=ADEB 3440 ELSE 3450 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3) 3460 TIL=DPIL3 3470 ENDIF 3480 ENDIF 3490 UNTIL FRA<=TIL 3500 ENDIF 3501 IF TYPE=3 THEN 3502 CURSOR 13,23 3503 INPUT "Hvor mange labels ønskes af hver, (1-99) ",TALLET 3504 ENDIF 3510 CLEAR 3520 REPEAT 3530 CURSOR 18,13 3540 INPUT "Monter lister til udskrift og tast RETURN",A$ 3550 UNTIL ORD(A$)=255 3560 IF TYPE=1 THEN KS$="saldo" 3570 IF TYPE=2 THEN KS$="konto" 3580 OUTPUT P 3590 IF ORDEN=1 THEN 3600 FOR H=FRA TO TIL 3610 SUM1$="0+";SUM2$="0+";SUM3$="0+";SUM4$="0+";SUM5$="0+";SUM6$="0+" 3620 SUM$="0+";LINIE=0;SIDENR=0 3630 HKUNDE=KARRAY(H) 3640 REPEAT 3650 IF HKUNDE=0 THEN EXIT 3660 IF TYPE<>3 THEN 3670 EXEC HOVED(H) 3680 ENDIF 3690 EXEC FINDPOST(DTAB,MDANTAL,HKUNDE,DPIL3) 3700 EXEC HENTDPOST 3710 EXEC UDSKRIV 3720 UNTIL HKUNDE=0 3730 IF TYPE<>3 AND KARRAY(H)<>0 THEN 3740 EXEC BUND 3750 ENDIF 3760 NEXT H 3770 ELSE 3780 FOR DPIL3=FRA TO TIL 3790 IF TYPE<>3 THEN 3800 EXEC HOVED(0) 3810 ENDIF 3820 EXEC HENTDPOST 3830 EXEC UDSKRIV 3840 NEXT DPIL3 3850 IF TYPE<>3 THEN 3860 EXEC BUND 3870 ENDIF 3880 ENDIF 3890 UNTIL TYPE=0 3900 CHAIN "P641210:OPSTART"
0x0000…000d (0,) b2e6 0090 REM DEBLIST
0x0000…000d LineComalBin {
0x0000…000d ptr = 0xb2e6 // 0x0 @0x0
0x0000…000d lno = 0x005a // 0x2 @0x2
0x0000…000d at0004 = ╱89╱ REM ╱ // 0x4 @0x4
0x0000…000d at0005 = ╱44╱D╱ // 0x5 @0x5
0x0000…000d at0006 = ╱45╱E╱ // 0x6 @0x6
0x0000…000d at0007 = ╱42╱B╱ // 0x7 @0x7
0x0000…000d at0008 = ╱4c╱L╱ // 0x8 @0x8
0x0000…000d at0009 = ╱49╱I╱ // 0x9 @0x9
0x0000…000d at000a = ╱53╱S╱ // 0xa @0xa
0x0000…000d at000b = ╱54╱T╱ // 0xb @0xb
0x0000…000d at000c = EOL // 0xc @0xc
0x0000…000d }
0x000d…0078 8dcf 0100 DIM K1$(17),N$(6),K2$(17),K3$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(2)
0x000d…0078 LineComalBin {
0x000d…0078 ptr = 0x8dcf // 0xd @0x0
0x000d…0078 lno = 0x0064 // 0xf @0x2
0x000d…0078 at0004 = ╱87╱ DIM ╱ // 0x11 @0x4
0x000d…0078 at0005 = ╱4b╱K╱ // 0x12 @0x5
0x000d…0078 at0006 = ╱31╱1╱ // 0x13 @0x6
0x000d…0078 at0007 = ╱ef╱$╱ // 0x14 @0x7
0x000d…0078 at0008 = ╱ed╱(╱ // 0x15 @0x8
0x000d…0078 at0009 = ╱31╱1╱ // 0x16 @0x9
0x000d…0078 at000a = ╱37╱7╱ // 0x17 @0xa
0x000d…0078 at000b = ╱fe00008805╱ // 0x18 @0xb
0x000d…0078 at0010 = ╱ee╱)╱ // 0x1d @0x10
0x000d…0078 at0011 = ╱ec╱,╱ // 0x1e @0x11
0x000d…0078 at0012 = ╱4e╱N╱ // 0x1f @0x12
0x000d…0078 at0013 = ╱ef╱$╱ // 0x20 @0x13
0x000d…0078 at0014 = ╱ed╱(╱ // 0x21 @0x14
0x000d…0078 at0015 = ╱36╱6╱ // 0x22 @0x15
0x000d…0078 at0016 = ╱fe0000c003╱ // 0x23 @0x16
0x000d…0078 at001b = ╱ee╱)╱ // 0x28 @0x1b
0x000d…0078 at001c = ╱ec╱,╱ // 0x29 @0x1c
0x000d…0078 at001d = ╱4b╱K╱ // 0x2a @0x1d
0x000d…0078 at001e = ╱32╱2╱ // 0x2b @0x1e
0x000d…0078 at001f = ╱ef╱$╱ // 0x2c @0x1f
0x000d…0078 at0020 = ╱ed╱(╱ // 0x2d @0x20
0x000d…0078 at0021 = ╱31╱1╱ // 0x2e @0x21
0x000d…0078 at0022 = ╱37╱7╱ // 0x2f @0x22
0x000d…0078 at0023 = ╱fe00008805╱ // 0x30 @0x23
0x000d…0078 at0028 = ╱ee╱)╱ // 0x35 @0x28
0x000d…0078 at0029 = ╱ec╱,╱ // 0x36 @0x29
0x000d…0078 at002a = ╱4b╱K╱ // 0x37 @0x2a
0x000d…0078 at002b = ╱33╱3╱ // 0x38 @0x2b
0x000d…0078 at002c = ╱ef╱$╱ // 0x39 @0x2c
0x000d…0078 at002d = ╱ed╱(╱ // 0x3a @0x2d
0x000d…0078 at002e = ╱31╱1╱ // 0x3b @0x2e
0x000d…0078 at002f = ╱37╱7╱ // 0x3c @0x2f
0x000d…0078 at0030 = ╱fe00008805╱ // 0x3d @0x30
0x000d…0078 at0035 = ╱ee╱)╱ // 0x42 @0x35
0x000d…0078 at0036 = ╱ec╱,╱ // 0x43 @0x36
0x000d…0078 at0037 = ╱44╱D╱ // 0x44 @0x37
0x000d…0078 at0038 = ╱45╱E╱ // 0x45 @0x38
0x000d…0078 at0039 = ╱42╱B╱ // 0x46 @0x39
0x000d…0078 at003a = ╱4e╱N╱ // 0x47 @0x3a
0x000d…0078 at003b = ╱41╱A╱ // 0x48 @0x3b
0x000d…0078 at003c = ╱56╱V╱ // 0x49 @0x3c
0x000d…0078 at003d = ╱4e╱N╱ // 0x4a @0x3d
0x000d…0078 at003e = ╱ef╱$╱ // 0x4b @0x3e
0x000d…0078 at003f = ╱ed╱(╱ // 0x4c @0x3f
0x000d…0078 at0040 = ╱32╱2╱ // 0x4d @0x40
0x000d…0078 at0041 = ╱35╱5╱ // 0x4e @0x41
0x000d…0078 at0042 = ╱fe0000c805╱ // 0x4f @0x42
0x000d…0078 at0047 = ╱ee╱)╱ // 0x54 @0x47
0x000d…0078 at0048 = ╱ec╱,╱ // 0x55 @0x48
0x000d…0078 at0049 = ╱44╱D╱ // 0x56 @0x49
0x000d…0078 at004a = ╱53╱S╱ // 0x57 @0x4a
0x000d…0078 at004b = ╱41╱A╱ // 0x58 @0x4b
0x000d…0078 at004c = ╱4c╱L╱ // 0x59 @0x4c
0x000d…0078 at004d = ╱44╱D╱ // 0x5a @0x4d
0x000d…0078 at004e = ╱4f╱O╱ // 0x5b @0x4e
0x000d…0078 at004f = ╱31╱1╱ // 0x5c @0x4f
0x000d…0078 at0050 = ╱ef╱$╱ // 0x5d @0x50
0x000d…0078 at0051 = ╱ed╱(╱ // 0x5e @0x51
0x000d…0078 at0052 = ╱31╱1╱ // 0x5f @0x52
0x000d…0078 at0053 = ╱32╱2╱ // 0x60 @0x53
0x000d…0078 at0054 = ╱fe0000c004╱ // 0x61 @0x54
0x000d…0078 at0059 = ╱ee╱)╱ // 0x66 @0x59
0x000d…0078 at005a = ╱ec╱,╱ // 0x67 @0x5a
0x000d…0078 at005b = ╱44╱D╱ // 0x68 @0x5b
0x000d…0078 at005c = ╱45╱E╱ // 0x69 @0x5c
0x000d…0078 at005d = ╱42╱B╱ // 0x6a @0x5d
0x000d…0078 at005e = ╱4b╱K╱ // 0x6b @0x5e
0x000d…0078 at005f = ╱47╱G╱ // 0x6c @0x5f
0x000d…0078 at0060 = ╱52╱R╱ // 0x6d @0x60
0x000d…0078 at0061 = ╱ef╱$╱ // 0x6e @0x61
0x000d…0078 at0062 = ╱ed╱(╱ // 0x6f @0x62
0x000d…0078 at0063 = ╱32╱2╱ // 0x70 @0x63
0x000d…0078 at0064 = ╱fe00008002╱ // 0x71 @0x64
0x000d…0078 at0069 = ╱ee╱)╱ // 0x76 @0x69
0x000d…0078 at006a = EOL // 0x77 @0x6a
0x000d…0078 }
0x0078…00d4 8e2b 0110 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(2),DEBGADE$(25)
0x0078…00d4 LineComalBin {
0x0078…00d4 ptr = 0x8e2b // 0x78 @0x0
0x0078…00d4 lno = 0x006e // 0x7a @0x2
0x0078…00d4 at0004 = ╱87╱ DIM ╱ // 0x7c @0x4
0x0078…00d4 at0005 = ╱44╱D╱ // 0x7d @0x5
0x0078…00d4 at0006 = ╱53╱S╱ // 0x7e @0x6
0x0078…00d4 at0007 = ╱41╱A╱ // 0x7f @0x7
0x0078…00d4 at0008 = ╱4c╱L╱ // 0x80 @0x8
0x0078…00d4 at0009 = ╱44╱D╱ // 0x81 @0x9
0x0078…00d4 at000a = ╱4f╱O╱ // 0x82 @0xa
0x0078…00d4 at000b = ╱32╱2╱ // 0x83 @0xb
0x0078…00d4 at000c = ╱ef╱$╱ // 0x84 @0xc
0x0078…00d4 at000d = ╱ed╱(╱ // 0x85 @0xd
0x0078…00d4 at000e = ╱31╱1╱ // 0x86 @0xe
0x0078…00d4 at000f = ╱32╱2╱ // 0x87 @0xf
0x0078…00d4 at0010 = ╱fe0000c004╱ // 0x88 @0x10
0x0078…00d4 at0015 = ╱ee╱)╱ // 0x8d @0x15
0x0078…00d4 at0016 = ╱ec╱,╱ // 0x8e @0x16
0x0078…00d4 at0017 = ╱44╱D╱ // 0x8f @0x17
0x0078…00d4 at0018 = ╱53╱S╱ // 0x90 @0x18
0x0078…00d4 at0019 = ╱41╱A╱ // 0x91 @0x19
0x0078…00d4 at001a = ╱4c╱L╱ // 0x92 @0x1a
0x0078…00d4 at001b = ╱44╱D╱ // 0x93 @0x1b
0x0078…00d4 at001c = ╱4f╱O╱ // 0x94 @0x1c
0x0078…00d4 at001d = ╱33╱3╱ // 0x95 @0x1d
0x0078…00d4 at001e = ╱ef╱$╱ // 0x96 @0x1e
0x0078…00d4 at001f = ╱ed╱(╱ // 0x97 @0x1f
0x0078…00d4 at0020 = ╱31╱1╱ // 0x98 @0x20
0x0078…00d4 at0021 = ╱32╱2╱ // 0x99 @0x21
0x0078…00d4 at0022 = ╱fe0000c004╱ // 0x9a @0x22
0x0078…00d4 at0027 = ╱ee╱)╱ // 0x9f @0x27
0x0078…00d4 at0028 = ╱ec╱,╱ // 0xa0 @0x28
0x0078…00d4 at0029 = ╱44╱D╱ // 0xa1 @0x29
0x0078…00d4 at002a = ╱53╱S╱ // 0xa2 @0x2a
0x0078…00d4 at002b = ╱41╱A╱ // 0xa3 @0x2b
0x0078…00d4 at002c = ╱4c╱L╱ // 0xa4 @0x2c
0x0078…00d4 at002d = ╱44╱D╱ // 0xa5 @0x2d
0x0078…00d4 at002e = ╱4f╱O╱ // 0xa6 @0x2e
0x0078…00d4 at002f = ╱34╱4╱ // 0xa7 @0x2f
0x0078…00d4 at0030 = ╱ef╱$╱ // 0xa8 @0x30
0x0078…00d4 at0031 = ╱ed╱(╱ // 0xa9 @0x31
0x0078…00d4 at0032 = ╱31╱1╱ // 0xaa @0x32
0x0078…00d4 at0033 = ╱32╱2╱ // 0xab @0x33
0x0078…00d4 at0034 = ╱fe0000c004╱ // 0xac @0x34
0x0078…00d4 at0039 = ╱ee╱)╱ // 0xb1 @0x39
0x0078…00d4 at003a = ╱ec╱,╱ // 0xb2 @0x3a
0x0078…00d4 at003b = ╱44╱D╱ // 0xb3 @0x3b
0x0078…00d4 at003c = ╱45╱E╱ // 0xb4 @0x3c
0x0078…00d4 at003d = ╱42╱B╱ // 0xb5 @0x3d
0x0078…00d4 at003e = ╱4c╱L╱ // 0xb6 @0x3e
0x0078…00d4 at003f = ╱4b╱K╱ // 0xb7 @0x3f
0x0078…00d4 at0040 = ╱ef╱$╱ // 0xb8 @0x40
0x0078…00d4 at0041 = ╱ed╱(╱ // 0xb9 @0x41
0x0078…00d4 at0042 = ╱32╱2╱ // 0xba @0x42
0x0078…00d4 at0043 = ╱fe00008002╱ // 0xbb @0x43
0x0078…00d4 at0048 = ╱ee╱)╱ // 0xc0 @0x48
0x0078…00d4 at0049 = ╱ec╱,╱ // 0xc1 @0x49
0x0078…00d4 at004a = ╱44╱D╱ // 0xc2 @0x4a
0x0078…00d4 at004b = ╱45╱E╱ // 0xc3 @0x4b
0x0078…00d4 at004c = ╱42╱B╱ // 0xc4 @0x4c
0x0078…00d4 at004d = ╱47╱G╱ // 0xc5 @0x4d
0x0078…00d4 at004e = ╱41╱A╱ // 0xc6 @0x4e
0x0078…00d4 at004f = ╱44╱D╱ // 0xc7 @0x4f
0x0078…00d4 at0050 = ╱45╱E╱ // 0xc8 @0x50
0x0078…00d4 at0051 = ╱ef╱$╱ // 0xc9 @0x51
0x0078…00d4 at0052 = ╱ed╱(╱ // 0xca @0x52
0x0078…00d4 at0053 = ╱32╱2╱ // 0xcb @0x53
0x0078…00d4 at0054 = ╱35╱5╱ // 0xcc @0x54
0x0078…00d4 at0055 = ╱fe0000c805╱ // 0xcd @0x55
0x0078…00d4 at005a = ╱ee╱)╱ // 0xd2 @0x5a
0x0078…00d4 at005b = EOL // 0xd3 @0x5b
0x0078…00d4 }
0x00d4…013c 8e93 0120 DIM BLANK$(77),A$(1),TAL4$(14),TAH$(12),T1(9),DEBTLF$(9),DEBBY$(20)
0x00d4…013c LineComalBin {
0x00d4…013c ptr = 0x8e93 // 0xd4 @0x0
0x00d4…013c lno = 0x0078 // 0xd6 @0x2
0x00d4…013c at0004 = ╱87╱ DIM ╱ // 0xd8 @0x4
0x00d4…013c at0005 = ╱42╱B╱ // 0xd9 @0x5
0x00d4…013c at0006 = ╱4c╱L╱ // 0xda @0x6
0x00d4…013c at0007 = ╱41╱A╱ // 0xdb @0x7
0x00d4…013c at0008 = ╱4e╱N╱ // 0xdc @0x8
0x00d4…013c at0009 = ╱4b╱K╱ // 0xdd @0x9
0x00d4…013c at000a = ╱ef╱$╱ // 0xde @0xa
0x00d4…013c at000b = ╱ed╱(╱ // 0xdf @0xb
0x00d4…013c at000c = ╱37╱7╱ // 0xe0 @0xc
0x00d4…013c at000d = ╱37╱7╱ // 0xe1 @0xd
0x00d4…013c at000e = ╱fe00009a07╱ // 0xe2 @0xe
0x00d4…013c at0013 = ╱ee╱)╱ // 0xe7 @0x13
0x00d4…013c at0014 = ╱ec╱,╱ // 0xe8 @0x14
0x00d4…013c at0015 = ╱41╱A╱ // 0xe9 @0x15
0x00d4…013c at0016 = ╱ef╱$╱ // 0xea @0x16
0x00d4…013c at0017 = ╱ed╱(╱ // 0xeb @0x17
0x00d4…013c at0018 = ╱31╱1╱ // 0xec @0x18
0x00d4…013c at0019 = ╱fe00008001╱ // 0xed @0x19
0x00d4…013c at001e = ╱ee╱)╱ // 0xf2 @0x1e
0x00d4…013c at001f = ╱ec╱,╱ // 0xf3 @0x1f
0x00d4…013c at0020 = ╱54╱T╱ // 0xf4 @0x20
0x00d4…013c at0021 = ╱41╱A╱ // 0xf5 @0x21
0x00d4…013c at0022 = ╱4c╱L╱ // 0xf6 @0x22
0x00d4…013c at0023 = ╱34╱4╱ // 0xf7 @0x23
0x00d4…013c at0024 = ╱ef╱$╱ // 0xf8 @0x24
0x00d4…013c at0025 = ╱ed╱(╱ // 0xf9 @0x25
0x00d4…013c at0026 = ╱31╱1╱ // 0xfa @0x26
0x00d4…013c at0027 = ╱34╱4╱ // 0xfb @0x27
0x00d4…013c at0028 = ╱fe0000e004╱ // 0xfc @0x28
0x00d4…013c at002d = ╱ee╱)╱ // 0x101 @0x2d
0x00d4…013c at002e = ╱ec╱,╱ // 0x102 @0x2e
0x00d4…013c at002f = ╱54╱T╱ // 0x103 @0x2f
0x00d4…013c at0030 = ╱41╱A╱ // 0x104 @0x30
0x00d4…013c at0031 = ╱48╱H╱ // 0x105 @0x31
0x00d4…013c at0032 = ╱ef╱$╱ // 0x106 @0x32
0x00d4…013c at0033 = ╱ed╱(╱ // 0x107 @0x33
0x00d4…013c at0034 = ╱31╱1╱ // 0x108 @0x34
0x00d4…013c at0035 = ╱32╱2╱ // 0x109 @0x35
0x00d4…013c at0036 = ╱fe0000c004╱ // 0x10a @0x36
0x00d4…013c at003b = ╱ee╱)╱ // 0x10f @0x3b
0x00d4…013c at003c = ╱ec╱,╱ // 0x110 @0x3c
0x00d4…013c at003d = ╱54╱T╱ // 0x111 @0x3d
0x00d4…013c at003e = ╱31╱1╱ // 0x112 @0x3e
0x00d4…013c at003f = ╱ed╱(╱ // 0x113 @0x3f
0x00d4…013c at0040 = ╱39╱9╱ // 0x114 @0x40
0x00d4…013c at0041 = ╱fe00009004╱ // 0x115 @0x41
0x00d4…013c at0046 = ╱ee╱)╱ // 0x11a @0x46
0x00d4…013c at0047 = ╱ec╱,╱ // 0x11b @0x47
0x00d4…013c at0048 = ╱44╱D╱ // 0x11c @0x48
0x00d4…013c at0049 = ╱45╱E╱ // 0x11d @0x49
0x00d4…013c at004a = ╱42╱B╱ // 0x11e @0x4a
0x00d4…013c at004b = ╱54╱T╱ // 0x11f @0x4b
0x00d4…013c at004c = ╱4c╱L╱ // 0x120 @0x4c
0x00d4…013c at004d = ╱46╱F╱ // 0x121 @0x4d
0x00d4…013c at004e = ╱ef╱$╱ // 0x122 @0x4e
0x00d4…013c at004f = ╱ed╱(╱ // 0x123 @0x4f
0x00d4…013c at0050 = ╱39╱9╱ // 0x124 @0x50
0x00d4…013c at0051 = ╱fe00009004╱ // 0x125 @0x51
0x00d4…013c at0056 = ╱ee╱)╱ // 0x12a @0x56
0x00d4…013c at0057 = ╱ec╱,╱ // 0x12b @0x57
0x00d4…013c at0058 = ╱44╱D╱ // 0x12c @0x58
0x00d4…013c at0059 = ╱45╱E╱ // 0x12d @0x59
0x00d4…013c at005a = ╱42╱B╱ // 0x12e @0x5a
0x00d4…013c at005b = ╱42╱B╱ // 0x12f @0x5b
0x00d4…013c at005c = ╱59╱Y╱ // 0x130 @0x5c
0x00d4…013c at005d = ╱ef╱$╱ // 0x131 @0x5d
0x00d4…013c at005e = ╱ed╱(╱ // 0x132 @0x5e
0x00d4…013c at005f = ╱32╱2╱ // 0x133 @0x5f
0x00d4…013c at0060 = ╱30╱0╱ // 0x134 @0x60
0x00d4…013c at0061 = ╱fe0000a005╱ // 0x135 @0x61
0x00d4…013c at0066 = ╱ee╱)╱ // 0x13a @0x66
0x00d4…013c at0067 = EOL // 0x13b @0x67
0x00d4…013c }
0x013c…01a6 8efd 0130 DIM RES$(14),ÅRKØB$(12),MDNKØB$(12),DSALDI$(12),LK$(3),KG$(3),KTN$(6)
0x013c…01a6 LineComalBin {
0x013c…01a6 ptr = 0x8efd // 0x13c @0x0
0x013c…01a6 lno = 0x0082 // 0x13e @0x2
0x013c…01a6 at0004 = ╱87╱ DIM ╱ // 0x140 @0x4
0x013c…01a6 at0005 = ╱52╱R╱ // 0x141 @0x5
0x013c…01a6 at0006 = ╱45╱E╱ // 0x142 @0x6
0x013c…01a6 at0007 = ╱53╱S╱ // 0x143 @0x7
0x013c…01a6 at0008 = ╱ef╱$╱ // 0x144 @0x8
0x013c…01a6 at0009 = ╱ed╱(╱ // 0x145 @0x9
0x013c…01a6 at000a = ╱31╱1╱ // 0x146 @0xa
0x013c…01a6 at000b = ╱34╱4╱ // 0x147 @0xb
0x013c…01a6 at000c = ╱fe0000e004╱ // 0x148 @0xc
0x013c…01a6 at0011 = ╱ee╱)╱ // 0x14d @0x11
0x013c…01a6 at0012 = ╱ec╱,╱ // 0x14e @0x12
0x013c…01a6 at0013 = ╱5d╱Å╱ // 0x14f @0x13
0x013c…01a6 at0014 = ╱52╱R╱ // 0x150 @0x14
0x013c…01a6 at0015 = ╱4b╱K╱ // 0x151 @0x15
0x013c…01a6 at0016 = ╱5c╱Ø╱ // 0x152 @0x16
0x013c…01a6 at0017 = ╱42╱B╱ // 0x153 @0x17
0x013c…01a6 at0018 = ╱ef╱$╱ // 0x154 @0x18
0x013c…01a6 at0019 = ╱ed╱(╱ // 0x155 @0x19
0x013c…01a6 at001a = ╱31╱1╱ // 0x156 @0x1a
0x013c…01a6 at001b = ╱32╱2╱ // 0x157 @0x1b
0x013c…01a6 at001c = ╱fe0000c004╱ // 0x158 @0x1c
0x013c…01a6 at0021 = ╱ee╱)╱ // 0x15d @0x21
0x013c…01a6 at0022 = ╱ec╱,╱ // 0x15e @0x22
0x013c…01a6 at0023 = ╱4d╱M╱ // 0x15f @0x23
0x013c…01a6 at0024 = ╱44╱D╱ // 0x160 @0x24
0x013c…01a6 at0025 = ╱4e╱N╱ // 0x161 @0x25
0x013c…01a6 at0026 = ╱4b╱K╱ // 0x162 @0x26
0x013c…01a6 at0027 = ╱5c╱Ø╱ // 0x163 @0x27
0x013c…01a6 at0028 = ╱42╱B╱ // 0x164 @0x28
0x013c…01a6 at0029 = ╱ef╱$╱ // 0x165 @0x29
0x013c…01a6 at002a = ╱ed╱(╱ // 0x166 @0x2a
0x013c…01a6 at002b = ╱31╱1╱ // 0x167 @0x2b
0x013c…01a6 at002c = ╱32╱2╱ // 0x168 @0x2c
0x013c…01a6 at002d = ╱fe0000c004╱ // 0x169 @0x2d
0x013c…01a6 at0032 = ╱ee╱)╱ // 0x16e @0x32
0x013c…01a6 at0033 = ╱ec╱,╱ // 0x16f @0x33
0x013c…01a6 at0034 = ╱44╱D╱ // 0x170 @0x34
0x013c…01a6 at0035 = ╱53╱S╱ // 0x171 @0x35
0x013c…01a6 at0036 = ╱41╱A╱ // 0x172 @0x36
0x013c…01a6 at0037 = ╱4c╱L╱ // 0x173 @0x37
0x013c…01a6 at0038 = ╱44╱D╱ // 0x174 @0x38
0x013c…01a6 at0039 = ╱49╱I╱ // 0x175 @0x39
0x013c…01a6 at003a = ╱ef╱$╱ // 0x176 @0x3a
0x013c…01a6 at003b = ╱ed╱(╱ // 0x177 @0x3b
0x013c…01a6 at003c = ╱31╱1╱ // 0x178 @0x3c
0x013c…01a6 at003d = ╱32╱2╱ // 0x179 @0x3d
0x013c…01a6 at003e = ╱fe0000c004╱ // 0x17a @0x3e
0x013c…01a6 at0043 = ╱ee╱)╱ // 0x17f @0x43
0x013c…01a6 at0044 = ╱ec╱,╱ // 0x180 @0x44
0x013c…01a6 at0045 = ╱4c╱L╱ // 0x181 @0x45
0x013c…01a6 at0046 = ╱4b╱K╱ // 0x182 @0x46
0x013c…01a6 at0047 = ╱ef╱$╱ // 0x183 @0x47
0x013c…01a6 at0048 = ╱ed╱(╱ // 0x184 @0x48
0x013c…01a6 at0049 = ╱33╱3╱ // 0x185 @0x49
0x013c…01a6 at004a = ╱fe0000c002╱ // 0x186 @0x4a
0x013c…01a6 at004f = ╱ee╱)╱ // 0x18b @0x4f
0x013c…01a6 at0050 = ╱ec╱,╱ // 0x18c @0x50
0x013c…01a6 at0051 = ╱4b╱K╱ // 0x18d @0x51
0x013c…01a6 at0052 = ╱47╱G╱ // 0x18e @0x52
0x013c…01a6 at0053 = ╱ef╱$╱ // 0x18f @0x53
0x013c…01a6 at0054 = ╱ed╱(╱ // 0x190 @0x54
0x013c…01a6 at0055 = ╱33╱3╱ // 0x191 @0x55
0x013c…01a6 at0056 = ╱fe0000c002╱ // 0x192 @0x56
0x013c…01a6 at005b = ╱ee╱)╱ // 0x197 @0x5b
0x013c…01a6 at005c = ╱ec╱,╱ // 0x198 @0x5c
0x013c…01a6 at005d = ╱4b╱K╱ // 0x199 @0x5d
0x013c…01a6 at005e = ╱54╱T╱ // 0x19a @0x5e
0x013c…01a6 at005f = ╱4e╱N╱ // 0x19b @0x5f
0x013c…01a6 at0060 = ╱ef╱$╱ // 0x19c @0x60
0x013c…01a6 at0061 = ╱ed╱(╱ // 0x19d @0x61
0x013c…01a6 at0062 = ╱36╱6╱ // 0x19e @0x62
0x013c…01a6 at0063 = ╱fe0000c003╱ // 0x19f @0x63
0x013c…01a6 at0068 = ╱ee╱)╱ // 0x1a4 @0x68
0x013c…01a6 at0069 = EOL // 0x1a5 @0x69
0x013c…01a6 }
0x01a6…0218 8f6f 0140 DIM PNR$(6),TY$(1),OP1$(12),OP2$(12),TA$(12),TB$(14),TÅRKØB$(12),DV$(10)
0x01a6…0218 LineComalBin {
0x01a6…0218 ptr = 0x8f6f // 0x1a6 @0x0
0x01a6…0218 lno = 0x008c // 0x1a8 @0x2
0x01a6…0218 at0004 = ╱87╱ DIM ╱ // 0x1aa @0x4
0x01a6…0218 at0005 = ╱50╱P╱ // 0x1ab @0x5
0x01a6…0218 at0006 = ╱4e╱N╱ // 0x1ac @0x6
0x01a6…0218 at0007 = ╱52╱R╱ // 0x1ad @0x7
0x01a6…0218 at0008 = ╱ef╱$╱ // 0x1ae @0x8
0x01a6…0218 at0009 = ╱ed╱(╱ // 0x1af @0x9
0x01a6…0218 at000a = ╱36╱6╱ // 0x1b0 @0xa
0x01a6…0218 at000b = ╱fe0000c003╱ // 0x1b1 @0xb
0x01a6…0218 at0010 = ╱ee╱)╱ // 0x1b6 @0x10
0x01a6…0218 at0011 = ╱ec╱,╱ // 0x1b7 @0x11
0x01a6…0218 at0012 = ╱54╱T╱ // 0x1b8 @0x12
0x01a6…0218 at0013 = ╱59╱Y╱ // 0x1b9 @0x13
0x01a6…0218 at0014 = ╱ef╱$╱ // 0x1ba @0x14
0x01a6…0218 at0015 = ╱ed╱(╱ // 0x1bb @0x15
0x01a6…0218 at0016 = ╱31╱1╱ // 0x1bc @0x16
0x01a6…0218 at0017 = ╱fe00008001╱ // 0x1bd @0x17
0x01a6…0218 at001c = ╱ee╱)╱ // 0x1c2 @0x1c
0x01a6…0218 at001d = ╱ec╱,╱ // 0x1c3 @0x1d
0x01a6…0218 at001e = ╱4f╱O╱ // 0x1c4 @0x1e
0x01a6…0218 at001f = ╱50╱P╱ // 0x1c5 @0x1f
0x01a6…0218 at0020 = ╱31╱1╱ // 0x1c6 @0x20
0x01a6…0218 at0021 = ╱ef╱$╱ // 0x1c7 @0x21
0x01a6…0218 at0022 = ╱ed╱(╱ // 0x1c8 @0x22
0x01a6…0218 at0023 = ╱31╱1╱ // 0x1c9 @0x23
0x01a6…0218 at0024 = ╱32╱2╱ // 0x1ca @0x24
0x01a6…0218 at0025 = ╱fe0000c004╱ // 0x1cb @0x25
0x01a6…0218 at002a = ╱ee╱)╱ // 0x1d0 @0x2a
0x01a6…0218 at002b = ╱ec╱,╱ // 0x1d1 @0x2b
0x01a6…0218 at002c = ╱4f╱O╱ // 0x1d2 @0x2c
0x01a6…0218 at002d = ╱50╱P╱ // 0x1d3 @0x2d
0x01a6…0218 at002e = ╱32╱2╱ // 0x1d4 @0x2e
0x01a6…0218 at002f = ╱ef╱$╱ // 0x1d5 @0x2f
0x01a6…0218 at0030 = ╱ed╱(╱ // 0x1d6 @0x30
0x01a6…0218 at0031 = ╱31╱1╱ // 0x1d7 @0x31
0x01a6…0218 at0032 = ╱32╱2╱ // 0x1d8 @0x32
0x01a6…0218 at0033 = ╱fe0000c004╱ // 0x1d9 @0x33
0x01a6…0218 at0038 = ╱ee╱)╱ // 0x1de @0x38
0x01a6…0218 at0039 = ╱ec╱,╱ // 0x1df @0x39
0x01a6…0218 at003a = ╱54╱T╱ // 0x1e0 @0x3a
0x01a6…0218 at003b = ╱41╱A╱ // 0x1e1 @0x3b
0x01a6…0218 at003c = ╱ef╱$╱ // 0x1e2 @0x3c
0x01a6…0218 at003d = ╱ed╱(╱ // 0x1e3 @0x3d
0x01a6…0218 at003e = ╱31╱1╱ // 0x1e4 @0x3e
0x01a6…0218 at003f = ╱32╱2╱ // 0x1e5 @0x3f
0x01a6…0218 at0040 = ╱fe0000c004╱ // 0x1e6 @0x40
0x01a6…0218 at0045 = ╱ee╱)╱ // 0x1eb @0x45
0x01a6…0218 at0046 = ╱ec╱,╱ // 0x1ec @0x46
0x01a6…0218 at0047 = ╱54╱T╱ // 0x1ed @0x47
0x01a6…0218 at0048 = ╱42╱B╱ // 0x1ee @0x48
0x01a6…0218 at0049 = ╱ef╱$╱ // 0x1ef @0x49
0x01a6…0218 at004a = ╱ed╱(╱ // 0x1f0 @0x4a
0x01a6…0218 at004b = ╱31╱1╱ // 0x1f1 @0x4b
0x01a6…0218 at004c = ╱34╱4╱ // 0x1f2 @0x4c
0x01a6…0218 at004d = ╱fe0000e004╱ // 0x1f3 @0x4d
0x01a6…0218 at0052 = ╱ee╱)╱ // 0x1f8 @0x52
0x01a6…0218 at0053 = ╱ec╱,╱ // 0x1f9 @0x53
0x01a6…0218 at0054 = ╱54╱T╱ // 0x1fa @0x54
0x01a6…0218 at0055 = ╱5d╱Å╱ // 0x1fb @0x55
0x01a6…0218 at0056 = ╱52╱R╱ // 0x1fc @0x56
0x01a6…0218 at0057 = ╱4b╱K╱ // 0x1fd @0x57
0x01a6…0218 at0058 = ╱5c╱Ø╱ // 0x1fe @0x58
0x01a6…0218 at0059 = ╱42╱B╱ // 0x1ff @0x59
0x01a6…0218 at005a = ╱ef╱$╱ // 0x200 @0x5a
0x01a6…0218 at005b = ╱ed╱(╱ // 0x201 @0x5b
0x01a6…0218 at005c = ╱31╱1╱ // 0x202 @0x5c
0x01a6…0218 at005d = ╱32╱2╱ // 0x203 @0x5d
0x01a6…0218 at005e = ╱fe0000c004╱ // 0x204 @0x5e
0x01a6…0218 at0063 = ╱ee╱)╱ // 0x209 @0x63
0x01a6…0218 at0064 = ╱ec╱,╱ // 0x20a @0x64
0x01a6…0218 at0065 = ╱44╱D╱ // 0x20b @0x65
0x01a6…0218 at0066 = ╱56╱V╱ // 0x20c @0x66
0x01a6…0218 at0067 = ╱ef╱$╱ // 0x20d @0x67
0x01a6…0218 at0068 = ╱ed╱(╱ // 0x20e @0x68
0x01a6…0218 at0069 = ╱31╱1╱ // 0x20f @0x69
0x01a6…0218 at006a = ╱30╱0╱ // 0x210 @0x6a
0x01a6…0218 at006b = ╱fe0000a004╱ // 0x211 @0x6b
0x01a6…0218 at0070 = ╱ee╱)╱ // 0x216 @0x70
0x01a6…0218 at0071 = EOL // 0x217 @0x71
0x01a6…0218 }
0x0218…0285 8fdc 0150 DIM SUM$(12),SUM1$(12),SUM2$(12),SUM3$(12),SUM4$(12),SUM5$(12),SUM6$(12)
0x0218…0285 LineComalBin {
0x0218…0285 ptr = 0x8fdc // 0x218 @0x0
0x0218…0285 lno = 0x0096 // 0x21a @0x2
0x0218…0285 at0004 = ╱87╱ DIM ╱ // 0x21c @0x4
0x0218…0285 at0005 = ╱53╱S╱ // 0x21d @0x5
0x0218…0285 at0006 = ╱55╱U╱ // 0x21e @0x6
0x0218…0285 at0007 = ╱4d╱M╱ // 0x21f @0x7
0x0218…0285 at0008 = ╱ef╱$╱ // 0x220 @0x8
0x0218…0285 at0009 = ╱ed╱(╱ // 0x221 @0x9
0x0218…0285 at000a = ╱31╱1╱ // 0x222 @0xa
0x0218…0285 at000b = ╱32╱2╱ // 0x223 @0xb
0x0218…0285 at000c = ╱fe0000c004╱ // 0x224 @0xc
0x0218…0285 at0011 = ╱ee╱)╱ // 0x229 @0x11
0x0218…0285 at0012 = ╱ec╱,╱ // 0x22a @0x12
0x0218…0285 at0013 = ╱53╱S╱ // 0x22b @0x13
0x0218…0285 at0014 = ╱55╱U╱ // 0x22c @0x14
0x0218…0285 at0015 = ╱4d╱M╱ // 0x22d @0x15
0x0218…0285 at0016 = ╱31╱1╱ // 0x22e @0x16
0x0218…0285 at0017 = ╱ef╱$╱ // 0x22f @0x17
0x0218…0285 at0018 = ╱ed╱(╱ // 0x230 @0x18
0x0218…0285 at0019 = ╱31╱1╱ // 0x231 @0x19
0x0218…0285 at001a = ╱32╱2╱ // 0x232 @0x1a
0x0218…0285 at001b = ╱fe0000c004╱ // 0x233 @0x1b
0x0218…0285 at0020 = ╱ee╱)╱ // 0x238 @0x20
0x0218…0285 at0021 = ╱ec╱,╱ // 0x239 @0x21
0x0218…0285 at0022 = ╱53╱S╱ // 0x23a @0x22
0x0218…0285 at0023 = ╱55╱U╱ // 0x23b @0x23
0x0218…0285 at0024 = ╱4d╱M╱ // 0x23c @0x24
0x0218…0285 at0025 = ╱32╱2╱ // 0x23d @0x25
0x0218…0285 at0026 = ╱ef╱$╱ // 0x23e @0x26
0x0218…0285 at0027 = ╱ed╱(╱ // 0x23f @0x27
0x0218…0285 at0028 = ╱31╱1╱ // 0x240 @0x28
0x0218…0285 at0029 = ╱32╱2╱ // 0x241 @0x29
0x0218…0285 at002a = ╱fe0000c004╱ // 0x242 @0x2a
0x0218…0285 at002f = ╱ee╱)╱ // 0x247 @0x2f
0x0218…0285 at0030 = ╱ec╱,╱ // 0x248 @0x30
0x0218…0285 at0031 = ╱53╱S╱ // 0x249 @0x31
0x0218…0285 at0032 = ╱55╱U╱ // 0x24a @0x32
0x0218…0285 at0033 = ╱4d╱M╱ // 0x24b @0x33
0x0218…0285 at0034 = ╱33╱3╱ // 0x24c @0x34
0x0218…0285 at0035 = ╱ef╱$╱ // 0x24d @0x35
0x0218…0285 at0036 = ╱ed╱(╱ // 0x24e @0x36
0x0218…0285 at0037 = ╱31╱1╱ // 0x24f @0x37
0x0218…0285 at0038 = ╱32╱2╱ // 0x250 @0x38
0x0218…0285 at0039 = ╱fe0000c004╱ // 0x251 @0x39
0x0218…0285 at003e = ╱ee╱)╱ // 0x256 @0x3e
0x0218…0285 at003f = ╱ec╱,╱ // 0x257 @0x3f
0x0218…0285 at0040 = ╱53╱S╱ // 0x258 @0x40
0x0218…0285 at0041 = ╱55╱U╱ // 0x259 @0x41
0x0218…0285 at0042 = ╱4d╱M╱ // 0x25a @0x42
0x0218…0285 at0043 = ╱34╱4╱ // 0x25b @0x43
0x0218…0285 at0044 = ╱ef╱$╱ // 0x25c @0x44
0x0218…0285 at0045 = ╱ed╱(╱ // 0x25d @0x45
0x0218…0285 at0046 = ╱31╱1╱ // 0x25e @0x46
0x0218…0285 at0047 = ╱32╱2╱ // 0x25f @0x47
0x0218…0285 at0048 = ╱fe0000c004╱ // 0x260 @0x48
0x0218…0285 at004d = ╱ee╱)╱ // 0x265 @0x4d
0x0218…0285 at004e = ╱ec╱,╱ // 0x266 @0x4e
0x0218…0285 at004f = ╱53╱S╱ // 0x267 @0x4f
0x0218…0285 at0050 = ╱55╱U╱ // 0x268 @0x50
0x0218…0285 at0051 = ╱4d╱M╱ // 0x269 @0x51
0x0218…0285 at0052 = ╱35╱5╱ // 0x26a @0x52
0x0218…0285 at0053 = ╱ef╱$╱ // 0x26b @0x53
0x0218…0285 at0054 = ╱ed╱(╱ // 0x26c @0x54
0x0218…0285 at0055 = ╱31╱1╱ // 0x26d @0x55
0x0218…0285 at0056 = ╱32╱2╱ // 0x26e @0x56
0x0218…0285 at0057 = ╱fe0000c004╱ // 0x26f @0x57
0x0218…0285 at005c = ╱ee╱)╱ // 0x274 @0x5c
0x0218…0285 at005d = ╱ec╱,╱ // 0x275 @0x5d
0x0218…0285 at005e = ╱53╱S╱ // 0x276 @0x5e
0x0218…0285 at005f = ╱55╱U╱ // 0x277 @0x5f
0x0218…0285 at0060 = ╱4d╱M╱ // 0x278 @0x60
0x0218…0285 at0061 = ╱36╱6╱ // 0x279 @0x61
0x0218…0285 at0062 = ╱ef╱$╱ // 0x27a @0x62
0x0218…0285 at0063 = ╱ed╱(╱ // 0x27b @0x63
0x0218…0285 at0064 = ╱31╱1╱ // 0x27c @0x64
0x0218…0285 at0065 = ╱32╱2╱ // 0x27d @0x65
0x0218…0285 at0066 = ╱fe0000c004╱ // 0x27e @0x66
0x0218…0285 at006b = ╱ee╱)╱ // 0x283 @0x6b
0x0218…0285 at006c = EOL // 0x284 @0x6c
0x0218…0285 }
0x0285…02ed 9044 0160 DIM TAL1$(14),TAL2$(14),TAL3$(14),KS$(5),DAT$(8),STREG$(78),K4$(17)
0x0285…02ed LineComalBin {
0x0285…02ed ptr = 0x9044 // 0x285 @0x0
0x0285…02ed lno = 0x00a0 // 0x287 @0x2
0x0285…02ed at0004 = ╱87╱ DIM ╱ // 0x289 @0x4
0x0285…02ed at0005 = ╱54╱T╱ // 0x28a @0x5
0x0285…02ed at0006 = ╱41╱A╱ // 0x28b @0x6
0x0285…02ed at0007 = ╱4c╱L╱ // 0x28c @0x7
0x0285…02ed at0008 = ╱31╱1╱ // 0x28d @0x8
0x0285…02ed at0009 = ╱ef╱$╱ // 0x28e @0x9
0x0285…02ed at000a = ╱ed╱(╱ // 0x28f @0xa
0x0285…02ed at000b = ╱31╱1╱ // 0x290 @0xb
0x0285…02ed at000c = ╱34╱4╱ // 0x291 @0xc
0x0285…02ed at000d = ╱fe0000e004╱ // 0x292 @0xd
0x0285…02ed at0012 = ╱ee╱)╱ // 0x297 @0x12
0x0285…02ed at0013 = ╱ec╱,╱ // 0x298 @0x13
0x0285…02ed at0014 = ╱54╱T╱ // 0x299 @0x14
0x0285…02ed at0015 = ╱41╱A╱ // 0x29a @0x15
0x0285…02ed at0016 = ╱4c╱L╱ // 0x29b @0x16
0x0285…02ed at0017 = ╱32╱2╱ // 0x29c @0x17
0x0285…02ed at0018 = ╱ef╱$╱ // 0x29d @0x18
0x0285…02ed at0019 = ╱ed╱(╱ // 0x29e @0x19
0x0285…02ed at001a = ╱31╱1╱ // 0x29f @0x1a
0x0285…02ed at001b = ╱34╱4╱ // 0x2a0 @0x1b
0x0285…02ed at001c = ╱fe0000e004╱ // 0x2a1 @0x1c
0x0285…02ed at0021 = ╱ee╱)╱ // 0x2a6 @0x21
0x0285…02ed at0022 = ╱ec╱,╱ // 0x2a7 @0x22
0x0285…02ed at0023 = ╱54╱T╱ // 0x2a8 @0x23
0x0285…02ed at0024 = ╱41╱A╱ // 0x2a9 @0x24
0x0285…02ed at0025 = ╱4c╱L╱ // 0x2aa @0x25
0x0285…02ed at0026 = ╱33╱3╱ // 0x2ab @0x26
0x0285…02ed at0027 = ╱ef╱$╱ // 0x2ac @0x27
0x0285…02ed at0028 = ╱ed╱(╱ // 0x2ad @0x28
0x0285…02ed at0029 = ╱31╱1╱ // 0x2ae @0x29
0x0285…02ed at002a = ╱34╱4╱ // 0x2af @0x2a
0x0285…02ed at002b = ╱fe0000e004╱ // 0x2b0 @0x2b
0x0285…02ed at0030 = ╱ee╱)╱ // 0x2b5 @0x30
0x0285…02ed at0031 = ╱ec╱,╱ // 0x2b6 @0x31
0x0285…02ed at0032 = ╱4b╱K╱ // 0x2b7 @0x32
0x0285…02ed at0033 = ╱53╱S╱ // 0x2b8 @0x33
0x0285…02ed at0034 = ╱ef╱$╱ // 0x2b9 @0x34
0x0285…02ed at0035 = ╱ed╱(╱ // 0x2ba @0x35
0x0285…02ed at0036 = ╱35╱5╱ // 0x2bb @0x36
0x0285…02ed at0037 = ╱fe0000a003╱ // 0x2bc @0x37
0x0285…02ed at003c = ╱ee╱)╱ // 0x2c1 @0x3c
0x0285…02ed at003d = ╱ec╱,╱ // 0x2c2 @0x3d
0x0285…02ed at003e = ╱44╱D╱ // 0x2c3 @0x3e
0x0285…02ed at003f = ╱41╱A╱ // 0x2c4 @0x3f
0x0285…02ed at0040 = ╱54╱T╱ // 0x2c5 @0x40
0x0285…02ed at0041 = ╱ef╱$╱ // 0x2c6 @0x41
0x0285…02ed at0042 = ╱ed╱(╱ // 0x2c7 @0x42
0x0285…02ed at0043 = ╱38╱8╱ // 0x2c8 @0x43
0x0285…02ed at0044 = ╱fe00008004╱ // 0x2c9 @0x44
0x0285…02ed at0049 = ╱ee╱)╱ // 0x2ce @0x49
0x0285…02ed at004a = ╱ec╱,╱ // 0x2cf @0x4a
0x0285…02ed at004b = ╱53╱S╱ // 0x2d0 @0x4b
0x0285…02ed at004c = ╱54╱T╱ // 0x2d1 @0x4c
0x0285…02ed at004d = ╱52╱R╱ // 0x2d2 @0x4d
0x0285…02ed at004e = ╱45╱E╱ // 0x2d3 @0x4e
0x0285…02ed at004f = ╱47╱G╱ // 0x2d4 @0x4f
0x0285…02ed at0050 = ╱ef╱$╱ // 0x2d5 @0x50
0x0285…02ed at0051 = ╱ed╱(╱ // 0x2d6 @0x51
0x0285…02ed at0052 = ╱37╱7╱ // 0x2d7 @0x52
0x0285…02ed at0053 = ╱38╱8╱ // 0x2d8 @0x53
0x0285…02ed at0054 = ╱fe00009c07╱ // 0x2d9 @0x54
0x0285…02ed at0059 = ╱ee╱)╱ // 0x2de @0x59
0x0285…02ed at005a = ╱ec╱,╱ // 0x2df @0x5a
0x0285…02ed at005b = ╱4b╱K╱ // 0x2e0 @0x5b
0x0285…02ed at005c = ╱34╱4╱ // 0x2e1 @0x5c
0x0285…02ed at005d = ╱ef╱$╱ // 0x2e2 @0x5d
0x0285…02ed at005e = ╱ed╱(╱ // 0x2e3 @0x5e
0x0285…02ed at005f = ╱31╱1╱ // 0x2e4 @0x5f
0x0285…02ed at0060 = ╱37╱7╱ // 0x2e5 @0x60
0x0285…02ed at0061 = ╱fe00008805╱ // 0x2e6 @0x61
0x0285…02ed at0066 = ╱ee╱)╱ // 0x2eb @0x66
0x0285…02ed at0067 = EOL // 0x2ec @0x67
0x0285…02ed }
0x02ed…0315 906c 0170 DIM K5$(17),LAND$(9,12)
0x02ed…0315 LineComalBin {
0x02ed…0315 ptr = 0x906c // 0x2ed @0x0
0x02ed…0315 lno = 0x00aa // 0x2ef @0x2
0x02ed…0315 at0004 = ╱87╱ DIM ╱ // 0x2f1 @0x4
0x02ed…0315 at0005 = ╱4b╱K╱ // 0x2f2 @0x5
0x02ed…0315 at0006 = ╱35╱5╱ // 0x2f3 @0x6
0x02ed…0315 at0007 = ╱ef╱$╱ // 0x2f4 @0x7
0x02ed…0315 at0008 = ╱ed╱(╱ // 0x2f5 @0x8
0x02ed…0315 at0009 = ╱31╱1╱ // 0x2f6 @0x9
0x02ed…0315 at000a = ╱37╱7╱ // 0x2f7 @0xa
0x02ed…0315 at000b = ╱fe00008805╱ // 0x2f8 @0xb
0x02ed…0315 at0010 = ╱ee╱)╱ // 0x2fd @0x10
0x02ed…0315 at0011 = ╱ec╱,╱ // 0x2fe @0x11
0x02ed…0315 at0012 = ╱4c╱L╱ // 0x2ff @0x12
0x02ed…0315 at0013 = ╱41╱A╱ // 0x300 @0x13
0x02ed…0315 at0014 = ╱4e╱N╱ // 0x301 @0x14
0x02ed…0315 at0015 = ╱44╱D╱ // 0x302 @0x15
0x02ed…0315 at0016 = ╱ef╱$╱ // 0x303 @0x16
0x02ed…0315 at0017 = ╱ed╱(╱ // 0x304 @0x17
0x02ed…0315 at0018 = ╱39╱9╱ // 0x305 @0x18
0x02ed…0315 at0019 = ╱fe00009004╱ // 0x306 @0x19
0x02ed…0315 at001e = ╱ec╱,╱ // 0x30b @0x1e
0x02ed…0315 at001f = ╱31╱1╱ // 0x30c @0x1f
0x02ed…0315 at0020 = ╱32╱2╱ // 0x30d @0x20
0x02ed…0315 at0021 = ╱fe0000c004╱ // 0x30e @0x21
0x02ed…0315 at0026 = ╱ee╱)╱ // 0x313 @0x26
0x02ed…0315 at0027 = EOL // 0x314 @0x27
0x02ed…0315 }
0x0315…0327 907e 0175 TALLET=0
0x0315…0327 LineComalBin {
0x0315…0327 ptr = 0x907e // 0x315 @0x0
0x0315…0327 lno = 0x00af // 0x317 @0x2
0x0315…0327 at0004 = ╱54╱T╱ // 0x319 @0x4
0x0315…0327 at0005 = ╱41╱A╱ // 0x31a @0x5
0x0315…0327 at0006 = ╱4c╱L╱ // 0x31b @0x6
0x0315…0327 at0007 = ╱4c╱L╱ // 0x31c @0x7
0x0315…0327 at0008 = ╱45╱E╱ // 0x31d @0x8
0x0315…0327 at0009 = ╱54╱T╱ // 0x31e @0x9
0x0315…0327 at000a = ╱dc╱=╱ // 0x31f @0xa
0x0315…0327 at000b = ╱30╱0╱ // 0x320 @0xb
0x0315…0327 at000c = ╱fe00000000╱ // 0x321 @0xc
0x0315…0327 at0011 = EOL // 0x326 @0x11
0x0315…0327 }
0x0327…033f 9096 0180 PROC CALC(ART,B1,B2,ES)
0x0327…033f LineComalBin {
0x0327…033f ptr = 0x9096 // 0x327 @0x0
0x0327…033f lno = 0x00b4 // 0x329 @0x2
0x0327…033f at0004 = ╱9e╱ PROC ╱ // 0x32b @0x4
0x0327…033f at0005 = ╱43╱C╱ // 0x32c @0x5
0x0327…033f at0006 = ╱41╱A╱ // 0x32d @0x6
0x0327…033f at0007 = ╱4c╱L╱ // 0x32e @0x7
0x0327…033f at0008 = ╱43╱C╱ // 0x32f @0x8
0x0327…033f at0009 = ╱ed╱(╱ // 0x330 @0x9
0x0327…033f at000a = ╱41╱A╱ // 0x331 @0xa
0x0327…033f at000b = ╱52╱R╱ // 0x332 @0xb
0x0327…033f at000c = ╱54╱T╱ // 0x333 @0xc
0x0327…033f at000d = ╱ec╱,╱ // 0x334 @0xd
0x0327…033f at000e = ╱42╱B╱ // 0x335 @0xe
0x0327…033f at000f = ╱31╱1╱ // 0x336 @0xf
0x0327…033f at0010 = ╱ec╱,╱ // 0x337 @0x10
0x0327…033f at0011 = ╱42╱B╱ // 0x338 @0x11
0x0327…033f at0012 = ╱32╱2╱ // 0x339 @0x12
0x0327…033f at0013 = ╱ec╱,╱ // 0x33a @0x13
0x0327…033f at0014 = ╱45╱E╱ // 0x33b @0x14
0x0327…033f at0015 = ╱53╱S╱ // 0x33c @0x15
0x0327…033f at0016 = ╱ee╱)╱ // 0x33d @0x16
0x0327…033f at0017 = EOL // 0x33e @0x17
0x0327…033f }
0x033f…034c 90a3 0190 OP1$=B1$
0x033f…034c LineComalBin {
0x033f…034c ptr = 0x90a3 // 0x33f @0x0
0x033f…034c lno = 0x00be // 0x341 @0x2
0x033f…034c at0004 = ╱4f╱O╱ // 0x343 @0x4
0x033f…034c at0005 = ╱50╱P╱ // 0x344 @0x5
0x033f…034c at0006 = ╱31╱1╱ // 0x345 @0x6
0x033f…034c at0007 = ╱ef╱$╱ // 0x346 @0x7
0x033f…034c at0008 = ╱dc╱=╱ // 0x347 @0x8
0x033f…034c at0009 = ╱42╱B╱ // 0x348 @0x9
0x033f…034c at000a = ╱31╱1╱ // 0x349 @0xa
0x033f…034c at000b = ╱ef╱$╱ // 0x34a @0xb
0x033f…034c at000c = EOL // 0x34b @0xc
0x033f…034c }
0x034c…0359 90b0 0200 OP2$=B2$
0x034c…0359 LineComalBin {
0x034c…0359 ptr = 0x90b0 // 0x34c @0x0
0x034c…0359 lno = 0x00c8 // 0x34e @0x2
0x034c…0359 at0004 = ╱4f╱O╱ // 0x350 @0x4
0x034c…0359 at0005 = ╱50╱P╱ // 0x351 @0x5
0x034c…0359 at0006 = ╱32╱2╱ // 0x352 @0x6
0x034c…0359 at0007 = ╱ef╱$╱ // 0x353 @0x7
0x034c…0359 at0008 = ╱dc╱=╱ // 0x354 @0x8
0x034c…0359 at0009 = ╱42╱B╱ // 0x355 @0x9
0x034c…0359 at000a = ╱32╱2╱ // 0x356 @0xa
0x034c…0359 at000b = ╱ef╱$╱ // 0x357 @0xb
0x034c…0359 at000c = EOL // 0x358 @0xc
0x034c…0359 }
0x0359…0366 90bd 0210 RES$=ES$
0x0359…0366 LineComalBin {
0x0359…0366 ptr = 0x90bd // 0x359 @0x0
0x0359…0366 lno = 0x00d2 // 0x35b @0x2
0x0359…0366 at0004 = ╱52╱R╱ // 0x35d @0x4
0x0359…0366 at0005 = ╱45╱E╱ // 0x35e @0x5
0x0359…0366 at0006 = ╱53╱S╱ // 0x35f @0x6
0x0359…0366 at0007 = ╱ef╱$╱ // 0x360 @0x7
0x0359…0366 at0008 = ╱dc╱=╱ // 0x361 @0x8
0x0359…0366 at0009 = ╱45╱E╱ // 0x362 @0x9
0x0359…0366 at000a = ╱53╱S╱ // 0x363 @0xa
0x0359…0366 at000b = ╱ef╱$╱ // 0x364 @0xb
0x0359…0366 at000c = EOL // 0x365 @0xc
0x0359…0366 }
0x0366…0374 90cb 0220 SI=0
0x0366…0374 LineComalBin {
0x0366…0374 ptr = 0x90cb // 0x366 @0x0
0x0366…0374 lno = 0x00dc // 0x368 @0x2
0x0366…0374 at0004 = ╱53╱S╱ // 0x36a @0x4
0x0366…0374 at0005 = ╱49╱I╱ // 0x36b @0x5
0x0366…0374 at0006 = ╱dc╱=╱ // 0x36c @0x6
0x0366…0374 at0007 = ╱30╱0╱ // 0x36d @0x7
0x0366…0374 at0008 = ╱fe00000000╱ // 0x36e @0x8
0x0366…0374 at000d = EOL // 0x373 @0xd
0x0366…0374 }
0x0374…0384 90db 0230 FLAG=0
0x0374…0384 LineComalBin {
0x0374…0384 ptr = 0x90db // 0x374 @0x0
0x0374…0384 lno = 0x00e6 // 0x376 @0x2
0x0374…0384 at0004 = ╱46╱F╱ // 0x378 @0x4
0x0374…0384 at0005 = ╱4c╱L╱ // 0x379 @0x5
0x0374…0384 at0006 = ╱41╱A╱ // 0x37a @0x6
0x0374…0384 at0007 = ╱47╱G╱ // 0x37b @0x7
0x0374…0384 at0008 = ╱dc╱=╱ // 0x37c @0x8
0x0374…0384 at0009 = ╱30╱0╱ // 0x37d @0x9
0x0374…0384 at000a = ╱fe00000000╱ // 0x37e @0xa
0x0374…0384 at000f = EOL // 0x383 @0xf
0x0374…0384 }
0x0384…039a 90f1 0240 CALL "P641210:REGN"
0x0384…039a LineComalBin {
0x0384…039a ptr = 0x90f1 // 0x384 @0x0
0x0384…039a lno = 0x00f0 // 0x386 @0x2
0x0384…039a at0004 = ╱ad9d46╱ CALL ╱ // 0x388 @0x4
0x0384…039a at0007 = ╱22╱"╱ // 0x38b @0x7
0x0384…039a at0008 = ╱50╱P╱ // 0x38c @0x8
0x0384…039a at0009 = ╱36╱6╱ // 0x38d @0x9
0x0384…039a at000a = ╱34╱4╱ // 0x38e @0xa
0x0384…039a at000b = ╱31╱1╱ // 0x38f @0xb
0x0384…039a at000c = ╱32╱2╱ // 0x390 @0xc
0x0384…039a at000d = ╱31╱1╱ // 0x391 @0xd
0x0384…039a at000e = ╱30╱0╱ // 0x392 @0xe
0x0384…039a at000f = ╱3a╱:╱ // 0x393 @0xf
0x0384…039a at0010 = ╱52╱R╱ // 0x394 @0x10
0x0384…039a at0011 = ╱45╱E╱ // 0x395 @0x11
0x0384…039a at0012 = ╱47╱G╱ // 0x396 @0x12
0x0384…039a at0013 = ╱4e╱N╱ // 0x397 @0x13
0x0384…039a at0014 = ╱22╱"╱ // 0x398 @0x14
0x0384…039a at0015 = EOL // 0x399 @0x15
0x0384…039a }
0x039a…03a7 90fe 0250 ES$=RES$
0x039a…03a7 LineComalBin {
0x039a…03a7 ptr = 0x90fe // 0x39a @0x0
0x039a…03a7 lno = 0x00fa // 0x39c @0x2
0x039a…03a7 at0004 = ╱45╱E╱ // 0x39e @0x4
0x039a…03a7 at0005 = ╱53╱S╱ // 0x39f @0x5
0x039a…03a7 at0006 = ╱ef╱$╱ // 0x3a0 @0x6
0x039a…03a7 at0007 = ╱dc╱=╱ // 0x3a1 @0x7
0x039a…03a7 at0008 = ╱52╱R╱ // 0x3a2 @0x8
0x039a…03a7 at0009 = ╱45╱E╱ // 0x3a3 @0x9
0x039a…03a7 at000a = ╱53╱S╱ // 0x3a4 @0xa
0x039a…03a7 at000b = ╱ef╱$╱ // 0x3a5 @0xb
0x039a…03a7 at000c = EOL // 0x3a6 @0xc
0x039a…03a7 }
0x03a7…03b3 910a 0260 IF FLAG THEN STOP
0x03a7…03b3 LineComalBin {
0x03a7…03b3 ptr = 0x910a // 0x3a7 @0x0
0x03a7…03b3 lno = 0x0104 // 0x3a9 @0x2
0x03a7…03b3 at0004 = ╱82╱ IF ╱ // 0x3ab @0x4
0x03a7…03b3 at0005 = ╱46╱F╱ // 0x3ac @0x5
0x03a7…03b3 at0006 = ╱4c╱L╱ // 0x3ad @0x6
0x03a7…03b3 at0007 = ╱41╱A╱ // 0x3ae @0x7
0x03a7…03b3 at0008 = ╱47╱G╱ // 0x3af @0x8
0x03a7…03b3 at0009 = ╱b6╱ THEN ╱ // 0x3b0 @0x9
0x03a7…03b3 at000a = ╱8d╱ STOP ╱ // 0x3b1 @0xa
0x03a7…03b3 at000b = EOL // 0x3b2 @0xb
0x03a7…03b3 }
0x03b3…03b9 9110 0270 ENDPROC
0x03b3…03b9 LineComalBin {
0x03b3…03b9 ptr = 0x9110 // 0x3b3 @0x0
0x03b3…03b9 lno = 0x010e // 0x3b5 @0x2
0x03b3…03b9 at0004 = ╱9f╱ ENDPROC ╱ // 0x3b7 @0x4
0x03b3…03b9 at0005 = EOL // 0x3b8 @0x5
0x03b3…03b9 }
0x03b9…03d0 9127 0280 PROC FEJL(NR1,NR2,NR3)
0x03b9…03d0 LineComalBin {
0x03b9…03d0 ptr = 0x9127 // 0x3b9 @0x0
0x03b9…03d0 lno = 0x0118 // 0x3bb @0x2
0x03b9…03d0 at0004 = ╱9e╱ PROC ╱ // 0x3bd @0x4
0x03b9…03d0 at0005 = ╱46╱F╱ // 0x3be @0x5
0x03b9…03d0 at0006 = ╱45╱E╱ // 0x3bf @0x6
0x03b9…03d0 at0007 = ╱4a╱J╱ // 0x3c0 @0x7
0x03b9…03d0 at0008 = ╱4c╱L╱ // 0x3c1 @0x8
0x03b9…03d0 at0009 = ╱ed╱(╱ // 0x3c2 @0x9
0x03b9…03d0 at000a = ╱4e╱N╱ // 0x3c3 @0xa
0x03b9…03d0 at000b = ╱52╱R╱ // 0x3c4 @0xb
0x03b9…03d0 at000c = ╱31╱1╱ // 0x3c5 @0xc
0x03b9…03d0 at000d = ╱ec╱,╱ // 0x3c6 @0xd
0x03b9…03d0 at000e = ╱4e╱N╱ // 0x3c7 @0xe
0x03b9…03d0 at000f = ╱52╱R╱ // 0x3c8 @0xf
0x03b9…03d0 at0010 = ╱32╱2╱ // 0x3c9 @0x10
0x03b9…03d0 at0011 = ╱ec╱,╱ // 0x3ca @0x11
0x03b9…03d0 at0012 = ╱4e╱N╱ // 0x3cb @0x12
0x03b9…03d0 at0013 = ╱52╱R╱ // 0x3cc @0x13
0x03b9…03d0 at0014 = ╱33╱3╱ // 0x3cd @0x14
0x03b9…03d0 at0015 = ╱ee╱)╱ // 0x3ce @0x15
0x03b9…03d0 at0016 = EOL // 0x3cf @0x16
0x03b9…03d0 }
0x03d0…03e5 913c 0290 IF STATUS(NR3$)<>0 THEN
0x03d0…03e5 LineComalBin {
0x03d0…03e5 ptr = 0x913c // 0x3d0 @0x0
0x03d0…03e5 lno = 0x0122 // 0x3d2 @0x2
0x03d0…03e5 at0004 = ╱9c╱ IF ╱ // 0x3d4 @0x4
0x03d0…03e5 at0005 = ╱ce╱STATUS╱ // 0x3d5 @0x5
0x03d0…03e5 at0006 = ╱ed╱(╱ // 0x3d6 @0x6
0x03d0…03e5 at0007 = ╱4e╱N╱ // 0x3d7 @0x7
0x03d0…03e5 at0008 = ╱52╱R╱ // 0x3d8 @0x8
0x03d0…03e5 at0009 = ╱33╱3╱ // 0x3d9 @0x9
0x03d0…03e5 at000a = ╱ef╱$╱ // 0x3da @0xa
0x03d0…03e5 at000b = ╱ee╱)╱ // 0x3db @0xb
0x03d0…03e5 at000c = ╱e1╱<>╱ // 0x3dc @0xc
0x03d0…03e5 at000d = ╱30╱0╱ // 0x3dd @0xd
0x03d0…03e5 at000e = ╱fe00000000╱ // 0x3de @0xe
0x03d0…03e5 at0013 = ╱b6╱ THEN ╱ // 0x3e3 @0x13
0x03d0…03e5 at0014 = EOL // 0x3e4 @0x14
0x03d0…03e5 }
0x03e5…03ff 9156 0300 PRINT STATUS(NR3$),NR1,NR2,NR3$
0x03e5…03ff LineComalBin {
0x03e5…03ff ptr = 0x9156 // 0x3e5 @0x0
0x03e5…03ff lno = 0x012c // 0x3e7 @0x2
0x03e5…03ff at0004 = ╱92╱ PRINT ╱ // 0x3e9 @0x4
0x03e5…03ff at0005 = ╱ce╱STATUS╱ // 0x3ea @0x5
0x03e5…03ff at0006 = ╱ed╱(╱ // 0x3eb @0x6
0x03e5…03ff at0007 = ╱4e╱N╱ // 0x3ec @0x7
0x03e5…03ff at0008 = ╱52╱R╱ // 0x3ed @0x8
0x03e5…03ff at0009 = ╱33╱3╱ // 0x3ee @0x9
0x03e5…03ff at000a = ╱ef╱$╱ // 0x3ef @0xa
0x03e5…03ff at000b = ╱ee╱)╱ // 0x3f0 @0xb
0x03e5…03ff at000c = ╱ec╱,╱ // 0x3f1 @0xc
0x03e5…03ff at000d = ╱4e╱N╱ // 0x3f2 @0xd
0x03e5…03ff at000e = ╱52╱R╱ // 0x3f3 @0xe
0x03e5…03ff at000f = ╱31╱1╱ // 0x3f4 @0xf
0x03e5…03ff at0010 = ╱ec╱,╱ // 0x3f5 @0x10
0x03e5…03ff at0011 = ╱4e╱N╱ // 0x3f6 @0x11
0x03e5…03ff at0012 = ╱52╱R╱ // 0x3f7 @0x12
0x03e5…03ff at0013 = ╱32╱2╱ // 0x3f8 @0x13
0x03e5…03ff at0014 = ╱ec╱,╱ // 0x3f9 @0x14
0x03e5…03ff at0015 = ╱4e╱N╱ // 0x3fa @0x15
0x03e5…03ff at0016 = ╱52╱R╱ // 0x3fb @0x16
0x03e5…03ff at0017 = ╱33╱3╱ // 0x3fc @0x17
0x03e5…03ff at0018 = ╱ef╱$╱ // 0x3fd @0x18
0x03e5…03ff at0019 = EOL // 0x3fe @0x19
0x03e5…03ff }
0x03ff…0405 915c 0310 STOP
0x03ff…0405 LineComalBin {
0x03ff…0405 ptr = 0x915c // 0x3ff @0x0
0x03ff…0405 lno = 0x0136 // 0x401 @0x2
0x03ff…0405 at0004 = ╱8d╱ STOP ╱ // 0x403 @0x4
0x03ff…0405 at0005 = EOL // 0x404 @0x5
0x03ff…0405 }
0x0405…040b 9162 0320 ENDIF
0x0405…040b LineComalBin {
0x0405…040b ptr = 0x9162 // 0x405 @0x0
0x0405…040b lno = 0x0140 // 0x407 @0x2
0x0405…040b at0004 = ╱9b╱ ENDIF ╱ // 0x409 @0x4
0x0405…040b at0005 = EOL // 0x40a @0x5
0x0405…040b }
0x040b…0411 9168 0330 ENDPROC
0x040b…0411 LineComalBin {
0x040b…0411 ptr = 0x9168 // 0x40b @0x0
0x040b…0411 lno = 0x014a // 0x40d @0x2
0x040b…0411 at0004 = ╱9f╱ ENDPROC ╱ // 0x40f @0x4
0x040b…0411 at0005 = EOL // 0x410 @0x5
0x040b…0411 }
0x0411…042b 9182 0340 PROC INDTAB(T,MANTAL,L10)
0x0411…042b LineComalBin {
0x0411…042b ptr = 0x9182 // 0x411 @0x0
0x0411…042b lno = 0x0154 // 0x413 @0x2
0x0411…042b at0004 = ╱9e╱ PROC ╱ // 0x415 @0x4
0x0411…042b at0005 = ╱49╱I╱ // 0x416 @0x5
0x0411…042b at0006 = ╱4e╱N╱ // 0x417 @0x6
0x0411…042b at0007 = ╱44╱D╱ // 0x418 @0x7
0x0411…042b at0008 = ╱54╱T╱ // 0x419 @0x8
0x0411…042b at0009 = ╱41╱A╱ // 0x41a @0x9
0x0411…042b at000a = ╱42╱B╱ // 0x41b @0xa
0x0411…042b at000b = ╱ed╱(╱ // 0x41c @0xb
0x0411…042b at000c = ╱54╱T╱ // 0x41d @0xc
0x0411…042b at000d = ╱ec╱,╱ // 0x41e @0xd
0x0411…042b at000e = ╱4d╱M╱ // 0x41f @0xe
0x0411…042b at000f = ╱41╱A╱ // 0x420 @0xf
0x0411…042b at0010 = ╱4e╱N╱ // 0x421 @0x10
0x0411…042b at0011 = ╱54╱T╱ // 0x422 @0x11
0x0411…042b at0012 = ╱41╱A╱ // 0x423 @0x12
0x0411…042b at0013 = ╱4c╱L╱ // 0x424 @0x13
0x0411…042b at0014 = ╱ec╱,╱ // 0x425 @0x14
0x0411…042b at0015 = ╱4c╱L╱ // 0x426 @0x15
0x0411…042b at0016 = ╱31╱1╱ // 0x427 @0x16
0x0411…042b at0017 = ╱30╱0╱ // 0x428 @0x17
0x0411…042b at0018 = ╱ee╱)╱ // 0x429 @0x18
0x0411…042b at0019 = EOL // 0x42a @0x19
0x0411…042b }
0x042b…0447 919e 0350 J=MANTAL DIV 32+1
0x042b…0447 LineComalBin {
0x042b…0447 ptr = 0x919e // 0x42b @0x0
0x042b…0447 lno = 0x015e // 0x42d @0x2
0x042b…0447 at0004 = ╱4a╱J╱ // 0x42f @0x4
0x042b…0447 at0005 = ╱dc╱=╱ // 0x430 @0x5
0x042b…0447 at0006 = ╱4d╱M╱ // 0x431 @0x6
0x042b…0447 at0007 = ╱41╱A╱ // 0x432 @0x7
0x042b…0447 at0008 = ╱4e╱N╱ // 0x433 @0x8
0x042b…0447 at0009 = ╱54╱T╱ // 0x434 @0x9
0x042b…0447 at000a = ╱41╱A╱ // 0x435 @0xa
0x042b…0447 at000b = ╱4c╱L╱ // 0x436 @0xb
0x042b…0447 at000c = ╱e7╱ DIV ╱ // 0x437 @0xc
0x042b…0447 at000d = ╱33╱3╱ // 0x438 @0xd
0x042b…0447 at000e = ╱32╱2╱ // 0x439 @0xe
0x042b…0447 at000f = ╱fe00008006╱ // 0x43a @0xf
0x042b…0447 at0014 = ╱e2╱+╱ // 0x43f @0x14
0x042b…0447 at0015 = ╱31╱1╱ // 0x440 @0x15
0x042b…0447 at0016 = ╱fe00008001╱ // 0x441 @0x16
0x042b…0447 at001b = EOL // 0x446 @0x1b
0x042b…0447 }
0x0447…0467 91be 0360 FOR I=J TO MANTAL DIV 4+J-1
0x0447…0467 LineComalBin {
0x0447…0467 ptr = 0x91be // 0x447 @0x0
0x0447…0467 lno = 0x0168 // 0x449 @0x2
0x0447…0467 at0004 = ╱83╱ FOR ╱ // 0x44b @0x4
0x0447…0467 at0005 = ╱49╱I╱ // 0x44c @0x5
0x0447…0467 at0006 = ╱dc╱=╱ // 0x44d @0x6
0x0447…0467 at0007 = ╱4a╱J╱ // 0x44e @0x7
0x0447…0467 at0008 = ╱b7╱ TO ╱ // 0x44f @0x8
0x0447…0467 at0009 = ╱4d╱M╱ // 0x450 @0x9
0x0447…0467 at000a = ╱41╱A╱ // 0x451 @0xa
0x0447…0467 at000b = ╱4e╱N╱ // 0x452 @0xb
0x0447…0467 at000c = ╱54╱T╱ // 0x453 @0xc
0x0447…0467 at000d = ╱41╱A╱ // 0x454 @0xd
0x0447…0467 at000e = ╱4c╱L╱ // 0x455 @0xe
0x0447…0467 at000f = ╱e7╱ DIV ╱ // 0x456 @0xf
0x0447…0467 at0010 = ╱34╱4╱ // 0x457 @0x10
0x0447…0467 at0011 = ╱fe00008003╱ // 0x458 @0x11
0x0447…0467 at0016 = ╱e2╱+╱ // 0x45d @0x16
0x0447…0467 at0017 = ╱4a╱J╱ // 0x45e @0x17
0x0447…0467 at0018 = ╱e3╱-╱ // 0x45f @0x18
0x0447…0467 at0019 = ╱31╱1╱ // 0x460 @0x19
0x0447…0467 at001a = ╱fe00008001╱ // 0x461 @0x1a
0x0447…0467 at001f = EOL // 0x466 @0x1f
0x0447…0467 }
0x0467…04a5 91fc 0370 H=(I-J)*4+1;H1=H+1;H2=H+2;H3=H+3
0x0467…04a5 LineComalBin {
0x0467…04a5 ptr = 0x91fc // 0x467 @0x0
0x0467…04a5 lno = 0x0172 // 0x469 @0x2
0x0467…04a5 at0004 = ╱48╱H╱ // 0x46b @0x4
0x0467…04a5 at0005 = ╱dc╱=╱ // 0x46c @0x5
0x0467…04a5 at0006 = ╱ed╱(╱ // 0x46d @0x6
0x0467…04a5 at0007 = ╱49╱I╱ // 0x46e @0x7
0x0467…04a5 at0008 = ╱e3╱-╱ // 0x46f @0x8
0x0467…04a5 at0009 = ╱4a╱J╱ // 0x470 @0x9
0x0467…04a5 at000a = ╱ee╱)╱ // 0x471 @0xa
0x0467…04a5 at000b = ╱e4╱*╱ // 0x472 @0xb
0x0467…04a5 at000c = ╱34╱4╱ // 0x473 @0xc
0x0467…04a5 at000d = ╱fe00008003╱ // 0x474 @0xd
0x0467…04a5 at0012 = ╱e2╱+╱ // 0x479 @0x12
0x0467…04a5 at0013 = ╱31╱1╱ // 0x47a @0x13
0x0467…04a5 at0014 = ╱fe00008001╱ // 0x47b @0x14
0x0467…04a5 at0019 = ╱eb╱;╱ // 0x480 @0x19
0x0467…04a5 at001a = ╱48╱H╱ // 0x481 @0x1a
0x0467…04a5 at001b = ╱31╱1╱ // 0x482 @0x1b
0x0467…04a5 at001c = ╱dc╱=╱ // 0x483 @0x1c
0x0467…04a5 at001d = ╱48╱H╱ // 0x484 @0x1d
0x0467…04a5 at001e = ╱e2╱+╱ // 0x485 @0x1e
0x0467…04a5 at001f = ╱31╱1╱ // 0x486 @0x1f
0x0467…04a5 at0020 = ╱fe00008001╱ // 0x487 @0x20
0x0467…04a5 at0025 = ╱eb╱;╱ // 0x48c @0x25
0x0467…04a5 at0026 = ╱48╱H╱ // 0x48d @0x26
0x0467…04a5 at0027 = ╱32╱2╱ // 0x48e @0x27
0x0467…04a5 at0028 = ╱dc╱=╱ // 0x48f @0x28
0x0467…04a5 at0029 = ╱48╱H╱ // 0x490 @0x29
0x0467…04a5 at002a = ╱e2╱+╱ // 0x491 @0x2a
0x0467…04a5 at002b = ╱32╱2╱ // 0x492 @0x2b
0x0467…04a5 at002c = ╱fe00008002╱ // 0x493 @0x2c
0x0467…04a5 at0031 = ╱eb╱;╱ // 0x498 @0x31
0x0467…04a5 at0032 = ╱48╱H╱ // 0x499 @0x32
0x0467…04a5 at0033 = ╱33╱3╱ // 0x49a @0x33
0x0467…04a5 at0034 = ╱dc╱=╱ // 0x49b @0x34
0x0467…04a5 at0035 = ╱48╱H╱ // 0x49c @0x35
0x0467…04a5 at0036 = ╱e2╱+╱ // 0x49d @0x36
0x0467…04a5 at0037 = ╱33╱3╱ // 0x49e @0x37
0x0467…04a5 at0038 = ╱fe0000c002╱ // 0x49f @0x38
0x0467…04a5 at003d = EOL // 0x4a4 @0x3d
0x0467…04a5 }
0x04a5…0517 926e 0380 GET L10$,I:T(H,1),T(H,2),T(H1,1),T(H1,2),T(H2,1),T(H2,2),T(H3,1),T(H3,2)
0x04a5…0517 LineComalBin {
0x04a5…0517 ptr = 0x926e // 0x4a5 @0x0
0x04a5…0517 lno = 0x017c // 0x4a7 @0x2
0x04a5…0517 at0004 = ╱a9╱ GET ╱ // 0x4a9 @0x4
0x04a5…0517 at0005 = ╱4c╱L╱ // 0x4aa @0x5
0x04a5…0517 at0006 = ╱31╱1╱ // 0x4ab @0x6
0x04a5…0517 at0007 = ╱30╱0╱ // 0x4ac @0x7
0x04a5…0517 at0008 = ╱ef╱$╱ // 0x4ad @0x8
0x04a5…0517 at0009 = ╱ec╱,╱ // 0x4ae @0x9
0x04a5…0517 at000a = ╱49╱I╱ // 0x4af @0xa
0x04a5…0517 at000b = ╱f0╱:╱ // 0x4b0 @0xb
0x04a5…0517 at000c = ╱54╱T╱ // 0x4b1 @0xc
0x04a5…0517 at000d = ╱ed╱(╱ // 0x4b2 @0xd
0x04a5…0517 at000e = ╱48╱H╱ // 0x4b3 @0xe
0x04a5…0517 at000f = ╱ec╱,╱ // 0x4b4 @0xf
0x04a5…0517 at0010 = ╱31╱1╱ // 0x4b5 @0x10
0x04a5…0517 at0011 = ╱fe00008001╱ // 0x4b6 @0x11
0x04a5…0517 at0016 = ╱ee╱)╱ // 0x4bb @0x16
0x04a5…0517 at0017 = ╱ec╱,╱ // 0x4bc @0x17
0x04a5…0517 at0018 = ╱54╱T╱ // 0x4bd @0x18
0x04a5…0517 at0019 = ╱ed╱(╱ // 0x4be @0x19
0x04a5…0517 at001a = ╱48╱H╱ // 0x4bf @0x1a
0x04a5…0517 at001b = ╱ec╱,╱ // 0x4c0 @0x1b
0x04a5…0517 at001c = ╱32╱2╱ // 0x4c1 @0x1c
0x04a5…0517 at001d = ╱fe00008002╱ // 0x4c2 @0x1d
0x04a5…0517 at0022 = ╱ee╱)╱ // 0x4c7 @0x22
0x04a5…0517 at0023 = ╱ec╱,╱ // 0x4c8 @0x23
0x04a5…0517 at0024 = ╱54╱T╱ // 0x4c9 @0x24
0x04a5…0517 at0025 = ╱ed╱(╱ // 0x4ca @0x25
0x04a5…0517 at0026 = ╱48╱H╱ // 0x4cb @0x26
0x04a5…0517 at0027 = ╱31╱1╱ // 0x4cc @0x27
0x04a5…0517 at0028 = ╱ec╱,╱ // 0x4cd @0x28
0x04a5…0517 at0029 = ╱31╱1╱ // 0x4ce @0x29
0x04a5…0517 at002a = ╱fe00008001╱ // 0x4cf @0x2a
0x04a5…0517 at002f = ╱ee╱)╱ // 0x4d4 @0x2f
0x04a5…0517 at0030 = ╱ec╱,╱ // 0x4d5 @0x30
0x04a5…0517 at0031 = ╱54╱T╱ // 0x4d6 @0x31
0x04a5…0517 at0032 = ╱ed╱(╱ // 0x4d7 @0x32
0x04a5…0517 at0033 = ╱48╱H╱ // 0x4d8 @0x33
0x04a5…0517 at0034 = ╱31╱1╱ // 0x4d9 @0x34
0x04a5…0517 at0035 = ╱ec╱,╱ // 0x4da @0x35
0x04a5…0517 at0036 = ╱32╱2╱ // 0x4db @0x36
0x04a5…0517 at0037 = ╱fe00008002╱ // 0x4dc @0x37
0x04a5…0517 at003c = ╱ee╱)╱ // 0x4e1 @0x3c
0x04a5…0517 at003d = ╱ec╱,╱ // 0x4e2 @0x3d
0x04a5…0517 at003e = ╱54╱T╱ // 0x4e3 @0x3e
0x04a5…0517 at003f = ╱ed╱(╱ // 0x4e4 @0x3f
0x04a5…0517 at0040 = ╱48╱H╱ // 0x4e5 @0x40
0x04a5…0517 at0041 = ╱32╱2╱ // 0x4e6 @0x41
0x04a5…0517 at0042 = ╱ec╱,╱ // 0x4e7 @0x42
0x04a5…0517 at0043 = ╱31╱1╱ // 0x4e8 @0x43
0x04a5…0517 at0044 = ╱fe00008001╱ // 0x4e9 @0x44
0x04a5…0517 at0049 = ╱ee╱)╱ // 0x4ee @0x49
0x04a5…0517 at004a = ╱ec╱,╱ // 0x4ef @0x4a
0x04a5…0517 at004b = ╱54╱T╱ // 0x4f0 @0x4b
0x04a5…0517 at004c = ╱ed╱(╱ // 0x4f1 @0x4c
0x04a5…0517 at004d = ╱48╱H╱ // 0x4f2 @0x4d
0x04a5…0517 at004e = ╱32╱2╱ // 0x4f3 @0x4e
0x04a5…0517 at004f = ╱ec╱,╱ // 0x4f4 @0x4f
0x04a5…0517 at0050 = ╱32╱2╱ // 0x4f5 @0x50
0x04a5…0517 at0051 = ╱fe00008002╱ // 0x4f6 @0x51
0x04a5…0517 at0056 = ╱ee╱)╱ // 0x4fb @0x56
0x04a5…0517 at0057 = ╱ec╱,╱ // 0x4fc @0x57
0x04a5…0517 at0058 = ╱54╱T╱ // 0x4fd @0x58
0x04a5…0517 at0059 = ╱ed╱(╱ // 0x4fe @0x59
0x04a5…0517 at005a = ╱48╱H╱ // 0x4ff @0x5a
0x04a5…0517 at005b = ╱33╱3╱ // 0x500 @0x5b
0x04a5…0517 at005c = ╱ec╱,╱ // 0x501 @0x5c
0x04a5…0517 at005d = ╱31╱1╱ // 0x502 @0x5d
0x04a5…0517 at005e = ╱fe00008001╱ // 0x503 @0x5e
0x04a5…0517 at0063 = ╱ee╱)╱ // 0x508 @0x63
0x04a5…0517 at0064 = ╱ec╱,╱ // 0x509 @0x64
0x04a5…0517 at0065 = ╱54╱T╱ // 0x50a @0x65
0x04a5…0517 at0066 = ╱ed╱(╱ // 0x50b @0x66
0x04a5…0517 at0067 = ╱48╱H╱ // 0x50c @0x67
0x04a5…0517 at0068 = ╱33╱3╱ // 0x50d @0x68
0x04a5…0517 at0069 = ╱ec╱,╱ // 0x50e @0x69
0x04a5…0517 at006a = ╱32╱2╱ // 0x50f @0x6a
0x04a5…0517 at006b = ╱fe00008002╱ // 0x510 @0x6b
0x04a5…0517 at0070 = ╱ee╱)╱ // 0x515 @0x70
0x04a5…0517 at0071 = EOL // 0x516 @0x71
0x04a5…0517 }
0x0517…0535 928c 0390 EXEC FEJL(1,1,L10$)
0x0517…0535 LineComalBin {
0x0517…0535 ptr = 0x928c // 0x517 @0x0
0x0517…0535 lno = 0x0186 // 0x519 @0x2
0x0517…0535 at0004 = ╱9d╱ EXEC ╱ // 0x51b @0x4
0x0517…0535 at0005 = ╱46╱F╱ // 0x51c @0x5
0x0517…0535 at0006 = ╱45╱E╱ // 0x51d @0x6
0x0517…0535 at0007 = ╱4a╱J╱ // 0x51e @0x7
0x0517…0535 at0008 = ╱4c╱L╱ // 0x51f @0x8
0x0517…0535 at0009 = ╱ed╱(╱ // 0x520 @0x9
0x0517…0535 at000a = ╱31╱1╱ // 0x521 @0xa
0x0517…0535 at000b = ╱fe00008001╱ // 0x522 @0xb
0x0517…0535 at0010 = ╱ec╱,╱ // 0x527 @0x10
0x0517…0535 at0011 = ╱31╱1╱ // 0x528 @0x11
0x0517…0535 at0012 = ╱fe00008001╱ // 0x529 @0x12
0x0517…0535 at0017 = ╱ec╱,╱ // 0x52e @0x17
0x0517…0535 at0018 = ╱4c╱L╱ // 0x52f @0x18
0x0517…0535 at0019 = ╱31╱1╱ // 0x530 @0x19
0x0517…0535 at001a = ╱30╱0╱ // 0x531 @0x1a
0x0517…0535 at001b = ╱ef╱$╱ // 0x532 @0x1b
0x0517…0535 at001c = ╱ee╱)╱ // 0x533 @0x1c
0x0517…0535 at001d = EOL // 0x534 @0x1d
0x0517…0535 }
0x0535…053c 9293 0400 NEXT I
0x0535…053c LineComalBin {
0x0535…053c ptr = 0x9293 // 0x535 @0x0
0x0535…053c lno = 0x0190 // 0x537 @0x2
0x0535…053c at0004 = ╱84╱ NEXT ╱ // 0x539 @0x4
0x0535…053c at0005 = ╱49╱I╱ // 0x53a @0x5
0x0535…053c at0006 = EOL // 0x53b @0x6
0x0535…053c }
0x053c…0542 9299 0410 ENDPROC
0x053c…0542 LineComalBin {
0x053c…0542 ptr = 0x9299 // 0x53c @0x0
0x053c…0542 lno = 0x019a // 0x53e @0x2
0x053c…0542 at0004 = ╱9f╱ ENDPROC ╱ // 0x540 @0x4
0x053c…0542 at0005 = EOL // 0x541 @0x5
0x053c…0542 }
0x0542…0551 92a8 0420 PROC HENTDPOST
0x0542…0551 LineComalBin {
0x0542…0551 ptr = 0x92a8 // 0x542 @0x0
0x0542…0551 lno = 0x01a4 // 0x544 @0x2
0x0542…0551 at0004 = ╱9e╱ PROC ╱ // 0x546 @0x4
0x0542…0551 at0005 = ╱48╱H╱ // 0x547 @0x5
0x0542…0551 at0006 = ╱45╱E╱ // 0x548 @0x6
0x0542…0551 at0007 = ╱4e╱N╱ // 0x549 @0x7
0x0542…0551 at0008 = ╱54╱T╱ // 0x54a @0x8
0x0542…0551 at0009 = ╱44╱D╱ // 0x54b @0x9
0x0542…0551 at000a = ╱50╱P╱ // 0x54c @0xa
0x0542…0551 at000b = ╱4f╱O╱ // 0x54d @0xb
0x0542…0551 at000c = ╱53╱S╱ // 0x54e @0xc
0x0542…0551 at000d = ╱54╱T╱ // 0x54f @0xd
0x0542…0551 at000e = EOL // 0x550 @0xe
0x0542…0551 }
0x0551…056a 92c1 0430 S=DTAB(DPIL3,2)
0x0551…056a LineComalBin {
0x0551…056a ptr = 0x92c1 // 0x551 @0x0
0x0551…056a lno = 0x01ae // 0x553 @0x2
0x0551…056a at0004 = ╱53╱S╱ // 0x555 @0x4
0x0551…056a at0005 = ╱dc╱=╱ // 0x556 @0x5
0x0551…056a at0006 = ╱44╱D╱ // 0x557 @0x6
0x0551…056a at0007 = ╱54╱T╱ // 0x558 @0x7
0x0551…056a at0008 = ╱41╱A╱ // 0x559 @0x8
0x0551…056a at0009 = ╱42╱B╱ // 0x55a @0x9
0x0551…056a at000a = ╱ed╱(╱ // 0x55b @0xa
0x0551…056a at000b = ╱44╱D╱ // 0x55c @0xb
0x0551…056a at000c = ╱50╱P╱ // 0x55d @0xc
0x0551…056a at000d = ╱49╱I╱ // 0x55e @0xd
0x0551…056a at000e = ╱4c╱L╱ // 0x55f @0xe
0x0551…056a at000f = ╱33╱3╱ // 0x560 @0xf
0x0551…056a at0010 = ╱ec╱,╱ // 0x561 @0x10
0x0551…056a at0011 = ╱32╱2╱ // 0x562 @0x11
0x0551…056a at0012 = ╱fe00008002╱ // 0x563 @0x12
0x0551…056a at0017 = ╱ee╱)╱ // 0x568 @0x17
0x0551…056a at0018 = EOL // 0x569 @0x18
0x0551…056a }
0x056a…0595 (18,) 92ec 0440 GET K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$
0x056a…0595 LineComalBin {
0x056a…0595 ptr = 0x92ec // 0x56a @0x0
0x056a…0595 lno = 0x01b8 // 0x56c @0x2
0x056a…0595 at0004 = ╱a9╱ GET ╱ // 0x56e @0x4
0x056a…0595 at0005 = ╱4b╱K╱ // 0x56f @0x5
0x056a…0595 at0006 = ╱33╱3╱ // 0x570 @0x6
0x056a…0595 at0007 = ╱ef╱$╱ // 0x571 @0x7
0x056a…0595 at0008 = ╱ec╱,╱ // 0x572 @0x8
0x056a…0595 at0009 = ╱53╱S╱ // 0x573 @0x9
0x056a…0595 at000a = ╱f0╱:╱ // 0x574 @0xa
0x056a…0595 at000b = ╱44╱D╱ // 0x575 @0xb
0x056a…0595 at000c = ╱45╱E╱ // 0x576 @0xc
0x056a…0595 at000d = ╱42╱B╱ // 0x577 @0xd
0x056a…0595 at000e = ╱4e╱N╱ // 0x578 @0xe
0x056a…0595 at000f = ╱52╱R╱ // 0x579 @0xf
0x056a…0595 at0010 = ╱ec╱,╱ // 0x57a @0x10
0x056a…0595 at0011 = ╱44╱D╱ // 0x57b @0x11
0x056a…0595 at0012 = ╱45╱E╱ // 0x57c @0x12
0x056a…0595 at0013 = ╱42╱B╱ // 0x57d @0x13
0x056a…0595 at0014 = ╱4e╱N╱ // 0x57e @0x14
0x056a…0595 at0015 = ╱41╱A╱ // 0x57f @0x15
0x056a…0595 at0016 = ╱56╱V╱ // 0x580 @0x16
0x056a…0595 at0017 = ╱4e╱N╱ // 0x581 @0x17
0x056a…0595 at0018 = ╱ef╱$╱ // 0x582 @0x18
0x056a…0595 at0019 = ╱ec╱,╱ // 0x583 @0x19
0x056a…0595 at001a = ╱44╱D╱ // 0x584 @0x1a
0x056a…0595 at001b = ╱53╱S╱ // 0x585 @0x1b
0x056a…0595 at001c = ╱41╱A╱ // 0x586 @0x1c
0x056a…0595 at001d = ╱4c╱L╱ // 0x587 @0x1d
0x056a…0595 at001e = ╱44╱D╱ // 0x588 @0x1e
0x056a…0595 at001f = ╱4f╱O╱ // 0x589 @0x1f
0x056a…0595 at0020 = ╱31╱1╱ // 0x58a @0x20
0x056a…0595 at0021 = ╱ef╱$╱ // 0x58b @0x21
0x056a…0595 at0022 = ╱ec╱,╱ // 0x58c @0x22
0x056a…0595 at0023 = ╱44╱D╱ // 0x58d @0x23
0x056a…0595 at0024 = ╱45╱E╱ // 0x58e @0x24
0x056a…0595 at0025 = ╱42╱B╱ // 0x58f @0x25
0x056a…0595 at0026 = ╱4b╱K╱ // 0x590 @0x26
0x056a…0595 at0027 = ╱47╱G╱ // 0x591 @0x27
0x056a…0595 at0028 = ╱52╱R╱ // 0x592 @0x28
0x056a…0595 at0029 = ╱ef╱$╱ // 0x593 @0x29
0x056a…0595 at002a = EOL // 0x594 @0x2a
0x056a…0595 }
0x0595…05b2 9309 0450 EXEC FEJL(8,2,K3$)
0x0595…05b2 LineComalBin {
0x0595…05b2 ptr = 0x9309 // 0x595 @0x0
0x0595…05b2 lno = 0x01c2 // 0x597 @0x2
0x0595…05b2 at0004 = ╱9d╱ EXEC ╱ // 0x599 @0x4
0x0595…05b2 at0005 = ╱46╱F╱ // 0x59a @0x5
0x0595…05b2 at0006 = ╱45╱E╱ // 0x59b @0x6
0x0595…05b2 at0007 = ╱4a╱J╱ // 0x59c @0x7
0x0595…05b2 at0008 = ╱4c╱L╱ // 0x59d @0x8
0x0595…05b2 at0009 = ╱ed╱(╱ // 0x59e @0x9
0x0595…05b2 at000a = ╱38╱8╱ // 0x59f @0xa
0x0595…05b2 at000b = ╱fe00008004╱ // 0x5a0 @0xb
0x0595…05b2 at0010 = ╱ec╱,╱ // 0x5a5 @0x10
0x0595…05b2 at0011 = ╱32╱2╱ // 0x5a6 @0x11
0x0595…05b2 at0012 = ╱fe00008002╱ // 0x5a7 @0x12
0x0595…05b2 at0017 = ╱ec╱,╱ // 0x5ac @0x17
0x0595…05b2 at0018 = ╱4b╱K╱ // 0x5ad @0x18
0x0595…05b2 at0019 = ╱33╱3╱ // 0x5ae @0x19
0x0595…05b2 at001a = ╱ef╱$╱ // 0x5af @0x1a
0x0595…05b2 at001b = ╱ee╱)╱ // 0x5b0 @0x1b
0x0595…05b2 at001c = EOL // 0x5b1 @0x1c
0x0595…05b2 }
0x05b2…05ee 9345 0460 GET K3$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DPOSTNR,DEBLK$
0x05b2…05ee LineComalBin {
0x05b2…05ee ptr = 0x9345 // 0x5b2 @0x0
0x05b2…05ee lno = 0x01cc // 0x5b4 @0x2
0x05b2…05ee at0004 = ╱a9╱ GET ╱ // 0x5b6 @0x4
0x05b2…05ee at0005 = ╱4b╱K╱ // 0x5b7 @0x5
0x05b2…05ee at0006 = ╱33╱3╱ // 0x5b8 @0x6
0x05b2…05ee at0007 = ╱ef╱$╱ // 0x5b9 @0x7
0x05b2…05ee at0008 = ╱ec╱,╱ // 0x5ba @0x8
0x05b2…05ee at0009 = ╱53╱S╱ // 0x5bb @0x9
0x05b2…05ee at000a = ╱e2╱+╱ // 0x5bc @0xa
0x05b2…05ee at000b = ╱31╱1╱ // 0x5bd @0xb
0x05b2…05ee at000c = ╱fe00008001╱ // 0x5be @0xc
0x05b2…05ee at0011 = ╱f0╱:╱ // 0x5c3 @0x11
0x05b2…05ee at0012 = ╱44╱D╱ // 0x5c4 @0x12
0x05b2…05ee at0013 = ╱53╱S╱ // 0x5c5 @0x13
0x05b2…05ee at0014 = ╱41╱A╱ // 0x5c6 @0x14
0x05b2…05ee at0015 = ╱4c╱L╱ // 0x5c7 @0x15
0x05b2…05ee at0016 = ╱44╱D╱ // 0x5c8 @0x16
0x05b2…05ee at0017 = ╱4f╱O╱ // 0x5c9 @0x17
0x05b2…05ee at0018 = ╱32╱2╱ // 0x5ca @0x18
0x05b2…05ee at0019 = ╱ef╱$╱ // 0x5cb @0x19
0x05b2…05ee at001a = ╱ec╱,╱ // 0x5cc @0x1a
0x05b2…05ee at001b = ╱44╱D╱ // 0x5cd @0x1b
0x05b2…05ee at001c = ╱53╱S╱ // 0x5ce @0x1c
0x05b2…05ee at001d = ╱41╱A╱ // 0x5cf @0x1d
0x05b2…05ee at001e = ╱4c╱L╱ // 0x5d0 @0x1e
0x05b2…05ee at001f = ╱44╱D╱ // 0x5d1 @0x1f
0x05b2…05ee at0020 = ╱4f╱O╱ // 0x5d2 @0x20
0x05b2…05ee at0021 = ╱33╱3╱ // 0x5d3 @0x21
0x05b2…05ee at0022 = ╱ef╱$╱ // 0x5d4 @0x22
0x05b2…05ee at0023 = ╱ec╱,╱ // 0x5d5 @0x23
0x05b2…05ee at0024 = ╱44╱D╱ // 0x5d6 @0x24
0x05b2…05ee at0025 = ╱53╱S╱ // 0x5d7 @0x25
0x05b2…05ee at0026 = ╱41╱A╱ // 0x5d8 @0x26
0x05b2…05ee at0027 = ╱4c╱L╱ // 0x5d9 @0x27
0x05b2…05ee at0028 = ╱44╱D╱ // 0x5da @0x28
0x05b2…05ee at0029 = ╱4f╱O╱ // 0x5db @0x29
0x05b2…05ee at002a = ╱34╱4╱ // 0x5dc @0x2a
0x05b2…05ee at002b = ╱ef╱$╱ // 0x5dd @0x2b
0x05b2…05ee at002c = ╱ec╱,╱ // 0x5de @0x2c
0x05b2…05ee at002d = ╱44╱D╱ // 0x5df @0x2d
0x05b2…05ee at002e = ╱50╱P╱ // 0x5e0 @0x2e
0x05b2…05ee at002f = ╱4f╱O╱ // 0x5e1 @0x2f
0x05b2…05ee at0030 = ╱53╱S╱ // 0x5e2 @0x30
0x05b2…05ee at0031 = ╱54╱T╱ // 0x5e3 @0x31
0x05b2…05ee at0032 = ╱4e╱N╱ // 0x5e4 @0x32
0x05b2…05ee at0033 = ╱52╱R╱ // 0x5e5 @0x33
0x05b2…05ee at0034 = ╱ec╱,╱ // 0x5e6 @0x34
0x05b2…05ee at0035 = ╱44╱D╱ // 0x5e7 @0x35
0x05b2…05ee at0036 = ╱45╱E╱ // 0x5e8 @0x36
0x05b2…05ee at0037 = ╱42╱B╱ // 0x5e9 @0x37
0x05b2…05ee at0038 = ╱4c╱L╱ // 0x5ea @0x38
0x05b2…05ee at0039 = ╱4b╱K╱ // 0x5eb @0x39
0x05b2…05ee at003a = ╱ef╱$╱ // 0x5ec @0x3a
0x05b2…05ee at003b = EOL // 0x5ed @0x3b
0x05b2…05ee }
0x05ee…060b 9362 0470 EXEC FEJL(8,3,K3$)
0x05ee…060b LineComalBin {
0x05ee…060b ptr = 0x9362 // 0x5ee @0x0
0x05ee…060b lno = 0x01d6 // 0x5f0 @0x2
0x05ee…060b at0004 = ╱9d╱ EXEC ╱ // 0x5f2 @0x4
0x05ee…060b at0005 = ╱46╱F╱ // 0x5f3 @0x5
0x05ee…060b at0006 = ╱45╱E╱ // 0x5f4 @0x6
0x05ee…060b at0007 = ╱4a╱J╱ // 0x5f5 @0x7
0x05ee…060b at0008 = ╱4c╱L╱ // 0x5f6 @0x8
0x05ee…060b at0009 = ╱ed╱(╱ // 0x5f7 @0x9
0x05ee…060b at000a = ╱38╱8╱ // 0x5f8 @0xa
0x05ee…060b at000b = ╱fe00008004╱ // 0x5f9 @0xb
0x05ee…060b at0010 = ╱ec╱,╱ // 0x5fe @0x10
0x05ee…060b at0011 = ╱33╱3╱ // 0x5ff @0x11
0x05ee…060b at0012 = ╱fe0000c002╱ // 0x600 @0x12
0x05ee…060b at0017 = ╱ec╱,╱ // 0x605 @0x17
0x05ee…060b at0018 = ╱4b╱K╱ // 0x606 @0x18
0x05ee…060b at0019 = ╱33╱3╱ // 0x607 @0x19
0x05ee…060b at001a = ╱ef╱$╱ // 0x608 @0x1a
0x05ee…060b at001b = ╱ee╱)╱ // 0x609 @0x1b
0x05ee…060b at001c = EOL // 0x60a @0x1c
0x05ee…060b }
0x060b…063b 9392 0480 GET K3$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE
0x060b…063b LineComalBin {
0x060b…063b ptr = 0x9392 // 0x60b @0x0
0x060b…063b lno = 0x01e0 // 0x60d @0x2
0x060b…063b at0004 = ╱a9╱ GET ╱ // 0x60f @0x4
0x060b…063b at0005 = ╱4b╱K╱ // 0x610 @0x5
0x060b…063b at0006 = ╱33╱3╱ // 0x611 @0x6
0x060b…063b at0007 = ╱ef╱$╱ // 0x612 @0x7
0x060b…063b at0008 = ╱ec╱,╱ // 0x613 @0x8
0x060b…063b at0009 = ╱53╱S╱ // 0x614 @0x9
0x060b…063b at000a = ╱e2╱+╱ // 0x615 @0xa
0x060b…063b at000b = ╱32╱2╱ // 0x616 @0xb
0x060b…063b at000c = ╱fe00008002╱ // 0x617 @0xc
0x060b…063b at0011 = ╱f0╱:╱ // 0x61c @0x11
0x060b…063b at0012 = ╱44╱D╱ // 0x61d @0x12
0x060b…063b at0013 = ╱45╱E╱ // 0x61e @0x13
0x060b…063b at0014 = ╱42╱B╱ // 0x61f @0x14
0x060b…063b at0015 = ╱47╱G╱ // 0x620 @0x15
0x060b…063b at0016 = ╱41╱A╱ // 0x621 @0x16
0x060b…063b at0017 = ╱44╱D╱ // 0x622 @0x17
0x060b…063b at0018 = ╱45╱E╱ // 0x623 @0x18
0x060b…063b at0019 = ╱ef╱$╱ // 0x624 @0x19
0x060b…063b at001a = ╱ec╱,╱ // 0x625 @0x1a
0x060b…063b at001b = ╱44╱D╱ // 0x626 @0x1b
0x060b…063b at001c = ╱45╱E╱ // 0x627 @0x1c
0x060b…063b at001d = ╱42╱B╱ // 0x628 @0x1d
0x060b…063b at001e = ╱54╱T╱ // 0x629 @0x1e
0x060b…063b at001f = ╱4c╱L╱ // 0x62a @0x1f
0x060b…063b at0020 = ╱46╱F╱ // 0x62b @0x20
0x060b…063b at0021 = ╱ef╱$╱ // 0x62c @0x21
0x060b…063b at0022 = ╱ec╱,╱ // 0x62d @0x22
0x060b…063b at0023 = ╱48╱H╱ // 0x62e @0x23
0x060b…063b at0024 = ╱50╱P╱ // 0x62f @0x24
0x060b…063b at0025 = ╱4f╱O╱ // 0x630 @0x25
0x060b…063b at0026 = ╱53╱S╱ // 0x631 @0x26
0x060b…063b at0027 = ╱54╱T╱ // 0x632 @0x27
0x060b…063b at0028 = ╱ec╱,╱ // 0x633 @0x28
0x060b…063b at0029 = ╱48╱H╱ // 0x634 @0x29
0x060b…063b at002a = ╱4b╱K╱ // 0x635 @0x2a
0x060b…063b at002b = ╱55╱U╱ // 0x636 @0x2b
0x060b…063b at002c = ╱4e╱N╱ // 0x637 @0x2c
0x060b…063b at002d = ╱44╱D╱ // 0x638 @0x2d
0x060b…063b at002e = ╱45╱E╱ // 0x639 @0x2e
0x060b…063b at002f = EOL // 0x63a @0x2f
0x060b…063b }
0x063b…0658 93af 0490 EXEC FEJL(8,4,K3$)
0x063b…0658 LineComalBin {
0x063b…0658 ptr = 0x93af // 0x63b @0x0
0x063b…0658 lno = 0x01ea // 0x63d @0x2
0x063b…0658 at0004 = ╱9d╱ EXEC ╱ // 0x63f @0x4
0x063b…0658 at0005 = ╱46╱F╱ // 0x640 @0x5
0x063b…0658 at0006 = ╱45╱E╱ // 0x641 @0x6
0x063b…0658 at0007 = ╱4a╱J╱ // 0x642 @0x7
0x063b…0658 at0008 = ╱4c╱L╱ // 0x643 @0x8
0x063b…0658 at0009 = ╱ed╱(╱ // 0x644 @0x9
0x063b…0658 at000a = ╱38╱8╱ // 0x645 @0xa
0x063b…0658 at000b = ╱fe00008004╱ // 0x646 @0xb
0x063b…0658 at0010 = ╱ec╱,╱ // 0x64b @0x10
0x063b…0658 at0011 = ╱34╱4╱ // 0x64c @0x11
0x063b…0658 at0012 = ╱fe00008003╱ // 0x64d @0x12
0x063b…0658 at0017 = ╱ec╱,╱ // 0x652 @0x17
0x063b…0658 at0018 = ╱4b╱K╱ // 0x653 @0x18
0x063b…0658 at0019 = ╱33╱3╱ // 0x654 @0x19
0x063b…0658 at001a = ╱ef╱$╱ // 0x655 @0x1a
0x063b…0658 at001b = ╱ee╱)╱ // 0x656 @0x1b
0x063b…0658 at001c = EOL // 0x657 @0x1c
0x063b…0658 }
0x0658…0680 93d7 0500 GET K3$,S+3:DEBBY$,ÅRKØB$,MDNKØB$
0x0658…0680 LineComalBin {
0x0658…0680 ptr = 0x93d7 // 0x658 @0x0
0x0658…0680 lno = 0x01f4 // 0x65a @0x2
0x0658…0680 at0004 = ╱a9╱ GET ╱ // 0x65c @0x4
0x0658…0680 at0005 = ╱4b╱K╱ // 0x65d @0x5
0x0658…0680 at0006 = ╱33╱3╱ // 0x65e @0x6
0x0658…0680 at0007 = ╱ef╱$╱ // 0x65f @0x7
0x0658…0680 at0008 = ╱ec╱,╱ // 0x660 @0x8
0x0658…0680 at0009 = ╱53╱S╱ // 0x661 @0x9
0x0658…0680 at000a = ╱e2╱+╱ // 0x662 @0xa
0x0658…0680 at000b = ╱33╱3╱ // 0x663 @0xb
0x0658…0680 at000c = ╱fe0000c002╱ // 0x664 @0xc
0x0658…0680 at0011 = ╱f0╱:╱ // 0x669 @0x11
0x0658…0680 at0012 = ╱44╱D╱ // 0x66a @0x12
0x0658…0680 at0013 = ╱45╱E╱ // 0x66b @0x13
0x0658…0680 at0014 = ╱42╱B╱ // 0x66c @0x14
0x0658…0680 at0015 = ╱42╱B╱ // 0x66d @0x15
0x0658…0680 at0016 = ╱59╱Y╱ // 0x66e @0x16
0x0658…0680 at0017 = ╱ef╱$╱ // 0x66f @0x17
0x0658…0680 at0018 = ╱ec╱,╱ // 0x670 @0x18
0x0658…0680 at0019 = ╱5d╱Å╱ // 0x671 @0x19
0x0658…0680 at001a = ╱52╱R╱ // 0x672 @0x1a
0x0658…0680 at001b = ╱4b╱K╱ // 0x673 @0x1b
0x0658…0680 at001c = ╱5c╱Ø╱ // 0x674 @0x1c
0x0658…0680 at001d = ╱42╱B╱ // 0x675 @0x1d
0x0658…0680 at001e = ╱ef╱$╱ // 0x676 @0x1e
0x0658…0680 at001f = ╱ec╱,╱ // 0x677 @0x1f
0x0658…0680 at0020 = ╱4d╱M╱ // 0x678 @0x20
0x0658…0680 at0021 = ╱44╱D╱ // 0x679 @0x21
0x0658…0680 at0022 = ╱4e╱N╱ // 0x67a @0x22
0x0658…0680 at0023 = ╱4b╱K╱ // 0x67b @0x23
0x0658…0680 at0024 = ╱5c╱Ø╱ // 0x67c @0x24
0x0658…0680 at0025 = ╱42╱B╱ // 0x67d @0x25
0x0658…0680 at0026 = ╱ef╱$╱ // 0x67e @0x26
0x0658…0680 at0027 = EOL // 0x67f @0x27
0x0658…0680 }
0x0680…069d 93f4 0510 EXEC FEJL(8,5,K3$)
0x0680…069d LineComalBin {
0x0680…069d ptr = 0x93f4 // 0x680 @0x0
0x0680…069d lno = 0x01fe // 0x682 @0x2
0x0680…069d at0004 = ╱9d╱ EXEC ╱ // 0x684 @0x4
0x0680…069d at0005 = ╱46╱F╱ // 0x685 @0x5
0x0680…069d at0006 = ╱45╱E╱ // 0x686 @0x6
0x0680…069d at0007 = ╱4a╱J╱ // 0x687 @0x7
0x0680…069d at0008 = ╱4c╱L╱ // 0x688 @0x8
0x0680…069d at0009 = ╱ed╱(╱ // 0x689 @0x9
0x0680…069d at000a = ╱38╱8╱ // 0x68a @0xa
0x0680…069d at000b = ╱fe00008004╱ // 0x68b @0xb
0x0680…069d at0010 = ╱ec╱,╱ // 0x690 @0x10
0x0680…069d at0011 = ╱35╱5╱ // 0x691 @0x11
0x0680…069d at0012 = ╱fe0000a003╱ // 0x692 @0x12
0x0680…069d at0017 = ╱ec╱,╱ // 0x697 @0x17
0x0680…069d at0018 = ╱4b╱K╱ // 0x698 @0x18
0x0680…069d at0019 = ╱33╱3╱ // 0x699 @0x19
0x0680…069d at001a = ╱ef╱$╱ // 0x69a @0x1a
0x0680…069d at001b = ╱ee╱)╱ // 0x69b @0x1b
0x0680…069d at001c = EOL // 0x69c @0x1c
0x0680…069d }
0x069d…06a3 93fa 0520 ENDPROC
0x069d…06a3 LineComalBin {
0x069d…06a3 ptr = 0x93fa // 0x69d @0x0
0x069d…06a3 lno = 0x0208 // 0x69f @0x2
0x069d…06a3 at0004 = ╱9f╱ ENDPROC ╱ // 0x6a1 @0x4
0x069d…06a3 at0005 = EOL // 0x6a2 @0x5
0x069d…06a3 }
0x06a3…06c0 9417 0530 PROC TUD(BLB,UBLB,TEGN,STØR)
0x06a3…06c0 LineComalBin {
0x06a3…06c0 ptr = 0x9417 // 0x6a3 @0x0
0x06a3…06c0 lno = 0x0212 // 0x6a5 @0x2
0x06a3…06c0 at0004 = ╱9e╱ PROC ╱ // 0x6a7 @0x4
0x06a3…06c0 at0005 = ╱54╱T╱ // 0x6a8 @0x5
0x06a3…06c0 at0006 = ╱55╱U╱ // 0x6a9 @0x6
0x06a3…06c0 at0007 = ╱44╱D╱ // 0x6aa @0x7
0x06a3…06c0 at0008 = ╱ed╱(╱ // 0x6ab @0x8
0x06a3…06c0 at0009 = ╱42╱B╱ // 0x6ac @0x9
0x06a3…06c0 at000a = ╱4c╱L╱ // 0x6ad @0xa
0x06a3…06c0 at000b = ╱42╱B╱ // 0x6ae @0xb
0x06a3…06c0 at000c = ╱ec╱,╱ // 0x6af @0xc
0x06a3…06c0 at000d = ╱55╱U╱ // 0x6b0 @0xd
0x06a3…06c0 at000e = ╱42╱B╱ // 0x6b1 @0xe
0x06a3…06c0 at000f = ╱4c╱L╱ // 0x6b2 @0xf
0x06a3…06c0 at0010 = ╱42╱B╱ // 0x6b3 @0x10
0x06a3…06c0 at0011 = ╱ec╱,╱ // 0x6b4 @0x11
0x06a3…06c0 at0012 = ╱54╱T╱ // 0x6b5 @0x12
0x06a3…06c0 at0013 = ╱45╱E╱ // 0x6b6 @0x13
0x06a3…06c0 at0014 = ╱47╱G╱ // 0x6b7 @0x14
0x06a3…06c0 at0015 = ╱4e╱N╱ // 0x6b8 @0x15
0x06a3…06c0 at0016 = ╱ec╱,╱ // 0x6b9 @0x16
0x06a3…06c0 at0017 = ╱53╱S╱ // 0x6ba @0x17
0x06a3…06c0 at0018 = ╱54╱T╱ // 0x6bb @0x18
0x06a3…06c0 at0019 = ╱5c╱Ø╱ // 0x6bc @0x19
0x06a3…06c0 at001a = ╱52╱R╱ // 0x6bd @0x1a
0x06a3…06c0 at001b = ╱ee╱)╱ // 0x6be @0x1b
0x06a3…06c0 at001c = EOL // 0x6bf @0x1c
0x06a3…06c0 }
0x06c0…06e2 9439 0540 EXEC CALC(5,BLB$,TAH$,UBLB$)
0x06c0…06e2 LineComalBin {
0x06c0…06e2 ptr = 0x9439 // 0x6c0 @0x0
0x06c0…06e2 lno = 0x021c // 0x6c2 @0x2
0x06c0…06e2 at0004 = ╱9d╱ EXEC ╱ // 0x6c4 @0x4
0x06c0…06e2 at0005 = ╱43╱C╱ // 0x6c5 @0x5
0x06c0…06e2 at0006 = ╱41╱A╱ // 0x6c6 @0x6
0x06c0…06e2 at0007 = ╱4c╱L╱ // 0x6c7 @0x7
0x06c0…06e2 at0008 = ╱43╱C╱ // 0x6c8 @0x8
0x06c0…06e2 at0009 = ╱ed╱(╱ // 0x6c9 @0x9
0x06c0…06e2 at000a = ╱35╱5╱ // 0x6ca @0xa
0x06c0…06e2 at000b = ╱fe0000a003╱ // 0x6cb @0xb
0x06c0…06e2 at0010 = ╱ec╱,╱ // 0x6d0 @0x10
0x06c0…06e2 at0011 = ╱42╱B╱ // 0x6d1 @0x11
0x06c0…06e2 at0012 = ╱4c╱L╱ // 0x6d2 @0x12
0x06c0…06e2 at0013 = ╱42╱B╱ // 0x6d3 @0x13
0x06c0…06e2 at0014 = ╱ef╱$╱ // 0x6d4 @0x14
0x06c0…06e2 at0015 = ╱ec╱,╱ // 0x6d5 @0x15
0x06c0…06e2 at0016 = ╱54╱T╱ // 0x6d6 @0x16
0x06c0…06e2 at0017 = ╱41╱A╱ // 0x6d7 @0x17
0x06c0…06e2 at0018 = ╱48╱H╱ // 0x6d8 @0x18
0x06c0…06e2 at0019 = ╱ef╱$╱ // 0x6d9 @0x19
0x06c0…06e2 at001a = ╱ec╱,╱ // 0x6da @0x1a
0x06c0…06e2 at001b = ╱55╱U╱ // 0x6db @0x1b
0x06c0…06e2 at001c = ╱42╱B╱ // 0x6dc @0x1c
0x06c0…06e2 at001d = ╱4c╱L╱ // 0x6dd @0x1d
0x06c0…06e2 at001e = ╱42╱B╱ // 0x6de @0x1e
0x06c0…06e2 at001f = ╱ef╱$╱ // 0x6df @0x1f
0x06c0…06e2 at0020 = ╱ee╱)╱ // 0x6e0 @0x20
0x06c0…06e2 at0021 = EOL // 0x6e1 @0x21
0x06c0…06e2 }
0x06e2…06f4 944b 0550 IF TEGN=0 THEN
0x06e2…06f4 LineComalBin {
0x06e2…06f4 ptr = 0x944b // 0x6e2 @0x0
0x06e2…06f4 lno = 0x0226 // 0x6e4 @0x2
0x06e2…06f4 at0004 = ╱9c╱ IF ╱ // 0x6e6 @0x4
0x06e2…06f4 at0005 = ╱54╱T╱ // 0x6e7 @0x5
0x06e2…06f4 at0006 = ╱45╱E╱ // 0x6e8 @0x6
0x06e2…06f4 at0007 = ╱47╱G╱ // 0x6e9 @0x7
0x06e2…06f4 at0008 = ╱4e╱N╱ // 0x6ea @0x8
0x06e2…06f4 at0009 = ╱dc╱=╱ // 0x6eb @0x9
0x06e2…06f4 at000a = ╱30╱0╱ // 0x6ec @0xa
0x06e2…06f4 at000b = ╱fe00000000╱ // 0x6ed @0xb
0x06e2…06f4 at0010 = ╱b6╱ THEN ╱ // 0x6f2 @0x10
0x06e2…06f4 at0011 = EOL // 0x6f3 @0x11
0x06e2…06f4 }
0x06f4…0714 946b 0560 UBLB$=UBLB$(1:13)
0x06f4…0714 LineComalBin {
0x06f4…0714 ptr = 0x946b // 0x6f4 @0x0
0x06f4…0714 lno = 0x0230 // 0x6f6 @0x2
0x06f4…0714 at0004 = ╱55╱U╱ // 0x6f8 @0x4
0x06f4…0714 at0005 = ╱42╱B╱ // 0x6f9 @0x5
0x06f4…0714 at0006 = ╱4c╱L╱ // 0x6fa @0x6
0x06f4…0714 at0007 = ╱42╱B╱ // 0x6fb @0x7
0x06f4…0714 at0008 = ╱ef╱$╱ // 0x6fc @0x8
0x06f4…0714 at0009 = ╱dc╱=╱ // 0x6fd @0x9
0x06f4…0714 at000a = ╱55╱U╱ // 0x6fe @0xa
0x06f4…0714 at000b = ╱42╱B╱ // 0x6ff @0xb
0x06f4…0714 at000c = ╱4c╱L╱ // 0x700 @0xc
0x06f4…0714 at000d = ╱42╱B╱ // 0x701 @0xd
0x06f4…0714 at000e = ╱ef╱$╱ // 0x702 @0xe
0x06f4…0714 at000f = ╱ed╱(╱ // 0x703 @0xf
0x06f4…0714 at0010 = ╱31╱1╱ // 0x704 @0x10
0x06f4…0714 at0011 = ╱fe00008001╱ // 0x705 @0x11
0x06f4…0714 at0016 = ╱f0╱:╱ // 0x70a @0x16
0x06f4…0714 at0017 = ╱31╱1╱ // 0x70b @0x17
0x06f4…0714 at0018 = ╱33╱3╱ // 0x70c @0x18
0x06f4…0714 at0019 = ╱fe0000d004╱ // 0x70d @0x19
0x06f4…0714 at001e = ╱ee╱)╱ // 0x712 @0x1e
0x06f4…0714 at001f = EOL // 0x713 @0x1f
0x06f4…0714 }
0x0714…071a 9471 0570 ELSE
0x0714…071a LineComalBin {
0x0714…071a ptr = 0x9471 // 0x714 @0x0
0x0714…071a lno = 0x023a // 0x716 @0x2
0x0714…071a at0004 = ╱9a╱ ELSE ╱ // 0x718 @0x4
0x0714…071a at0005 = EOL // 0x719 @0x5
0x0714…071a }
0x071a…0740 9497 0580 IF TEGN=1 AND UBLB$(LEN(UBLB$))="+" THEN
0x071a…0740 LineComalBin {
0x071a…0740 ptr = 0x9497 // 0x71a @0x0
0x071a…0740 lno = 0x0244 // 0x71c @0x2
0x071a…0740 at0004 = ╱9c╱ IF ╱ // 0x71e @0x4
0x071a…0740 at0005 = ╱54╱T╱ // 0x71f @0x5
0x071a…0740 at0006 = ╱45╱E╱ // 0x720 @0x6
0x071a…0740 at0007 = ╱47╱G╱ // 0x721 @0x7
0x071a…0740 at0008 = ╱4e╱N╱ // 0x722 @0x8
0x071a…0740 at0009 = ╱dc╱=╱ // 0x723 @0x9
0x071a…0740 at000a = ╱31╱1╱ // 0x724 @0xa
0x071a…0740 at000b = ╱fe00008001╱ // 0x725 @0xb
0x071a…0740 at0010 = ╱da╱ AND ╱ // 0x72a @0x10
0x071a…0740 at0011 = ╱55╱U╱ // 0x72b @0x11
0x071a…0740 at0012 = ╱42╱B╱ // 0x72c @0x12
0x071a…0740 at0013 = ╱4c╱L╱ // 0x72d @0x13
0x071a…0740 at0014 = ╱42╱B╱ // 0x72e @0x14
0x071a…0740 at0015 = ╱ef╱$╱ // 0x72f @0x15
0x071a…0740 at0016 = ╱ed╱(╱ // 0x730 @0x16
0x071a…0740 at0017 = ╱cc╱LEN╱ // 0x731 @0x17
0x071a…0740 at0018 = ╱ed╱(╱ // 0x732 @0x18
0x071a…0740 at0019 = ╱55╱U╱ // 0x733 @0x19
0x071a…0740 at001a = ╱42╱B╱ // 0x734 @0x1a
0x071a…0740 at001b = ╱4c╱L╱ // 0x735 @0x1b
0x071a…0740 at001c = ╱42╱B╱ // 0x736 @0x1c
0x071a…0740 at001d = ╱ef╱$╱ // 0x737 @0x1d
0x071a…0740 at001e = ╱ee╱)╱ // 0x738 @0x1e
0x071a…0740 at001f = ╱ee╱)╱ // 0x739 @0x1f
0x071a…0740 at0020 = ╱dc╱=╱ // 0x73a @0x20
0x071a…0740 at0021 = ╱22╱"╱ // 0x73b @0x21
0x071a…0740 at0022 = ╱2b╱+╱ // 0x73c @0x22
0x071a…0740 at0023 = ╱22╱"╱ // 0x73d @0x23
0x071a…0740 at0024 = ╱b6╱ THEN ╱ // 0x73e @0x24
0x071a…0740 at0025 = EOL // 0x73f @0x25
0x071a…0740 }
0x0740…0758 94af 0590 UBLB$(LEN(UBLB$))=" "
0x0740…0758 LineComalBin {
0x0740…0758 ptr = 0x94af // 0x740 @0x0
0x0740…0758 lno = 0x024e // 0x742 @0x2
0x0740…0758 at0004 = ╱55╱U╱ // 0x744 @0x4
0x0740…0758 at0005 = ╱42╱B╱ // 0x745 @0x5
0x0740…0758 at0006 = ╱4c╱L╱ // 0x746 @0x6
0x0740…0758 at0007 = ╱42╱B╱ // 0x747 @0x7
0x0740…0758 at0008 = ╱ef╱$╱ // 0x748 @0x8
0x0740…0758 at0009 = ╱ed╱(╱ // 0x749 @0x9
0x0740…0758 at000a = ╱cc╱LEN╱ // 0x74a @0xa
0x0740…0758 at000b = ╱ed╱(╱ // 0x74b @0xb
0x0740…0758 at000c = ╱55╱U╱ // 0x74c @0xc
0x0740…0758 at000d = ╱42╱B╱ // 0x74d @0xd
0x0740…0758 at000e = ╱4c╱L╱ // 0x74e @0xe
0x0740…0758 at000f = ╱42╱B╱ // 0x74f @0xf
0x0740…0758 at0010 = ╱ef╱$╱ // 0x750 @0x10
0x0740…0758 at0011 = ╱ee╱)╱ // 0x751 @0x11
0x0740…0758 at0012 = ╱ee╱)╱ // 0x752 @0x12
0x0740…0758 at0013 = ╱dc╱=╱ // 0x753 @0x13
0x0740…0758 at0014 = ╱22╱"╱ // 0x754 @0x14
0x0740…0758 at0015 = ╱20╱…╱ // 0x755 @0x15
0x0740…0758 at0016 = ╱22╱"╱ // 0x756 @0x16
0x0740…0758 at0017 = EOL // 0x757 @0x17
0x0740…0758 }
0x0758…075e 94b5 0600 ENDIF
0x0758…075e LineComalBin {
0x0758…075e ptr = 0x94b5 // 0x758 @0x0
0x0758…075e lno = 0x0258 // 0x75a @0x2
0x0758…075e at0004 = ╱9b╱ ENDIF ╱ // 0x75c @0x4
0x0758…075e at0005 = EOL // 0x75d @0x5
0x0758…075e }
0x075e…0764 94bb 0610 ENDIF
0x075e…0764 LineComalBin {
0x075e…0764 ptr = 0x94bb // 0x75e @0x0
0x075e…0764 lno = 0x0262 // 0x760 @0x2
0x075e…0764 at0004 = ╱9b╱ ENDIF ╱ // 0x762 @0x4
0x075e…0764 at0005 = EOL // 0x763 @0x5
0x075e…0764 }
0x0764…0799 94f0 0620 IF STØR=1 THEN UBLB$=UBLB$(4:LEN(UBLB$)-3)
0x0764…0799 LineComalBin {
0x0764…0799 ptr = 0x94f0 // 0x764 @0x0
0x0764…0799 lno = 0x026c // 0x766 @0x2
0x0764…0799 at0004 = ╱82╱ IF ╱ // 0x768 @0x4
0x0764…0799 at0005 = ╱53╱S╱ // 0x769 @0x5
0x0764…0799 at0006 = ╱54╱T╱ // 0x76a @0x6
0x0764…0799 at0007 = ╱5c╱Ø╱ // 0x76b @0x7
0x0764…0799 at0008 = ╱52╱R╱ // 0x76c @0x8
0x0764…0799 at0009 = ╱dc╱=╱ // 0x76d @0x9
0x0764…0799 at000a = ╱31╱1╱ // 0x76e @0xa
0x0764…0799 at000b = ╱fe00008001╱ // 0x76f @0xb
0x0764…0799 at0010 = ╱b6╱ THEN ╱ // 0x774 @0x10
0x0764…0799 at0011 = ╱55╱U╱ // 0x775 @0x11
0x0764…0799 at0012 = ╱42╱B╱ // 0x776 @0x12
0x0764…0799 at0013 = ╱4c╱L╱ // 0x777 @0x13
0x0764…0799 at0014 = ╱42╱B╱ // 0x778 @0x14
0x0764…0799 at0015 = ╱ef╱$╱ // 0x779 @0x15
0x0764…0799 at0016 = ╱dc╱=╱ // 0x77a @0x16
0x0764…0799 at0017 = ╱55╱U╱ // 0x77b @0x17
0x0764…0799 at0018 = ╱42╱B╱ // 0x77c @0x18
0x0764…0799 at0019 = ╱4c╱L╱ // 0x77d @0x19
0x0764…0799 at001a = ╱42╱B╱ // 0x77e @0x1a
0x0764…0799 at001b = ╱ef╱$╱ // 0x77f @0x1b
0x0764…0799 at001c = ╱ed╱(╱ // 0x780 @0x1c
0x0764…0799 at001d = ╱34╱4╱ // 0x781 @0x1d
0x0764…0799 at001e = ╱fe00008003╱ // 0x782 @0x1e
0x0764…0799 at0023 = ╱f0╱:╱ // 0x787 @0x23
0x0764…0799 at0024 = ╱cc╱LEN╱ // 0x788 @0x24
0x0764…0799 at0025 = ╱ed╱(╱ // 0x789 @0x25
0x0764…0799 at0026 = ╱55╱U╱ // 0x78a @0x26
0x0764…0799 at0027 = ╱42╱B╱ // 0x78b @0x27
0x0764…0799 at0028 = ╱4c╱L╱ // 0x78c @0x28
0x0764…0799 at0029 = ╱42╱B╱ // 0x78d @0x29
0x0764…0799 at002a = ╱ef╱$╱ // 0x78e @0x2a
0x0764…0799 at002b = ╱ee╱)╱ // 0x78f @0x2b
0x0764…0799 at002c = ╱e3╱-╱ // 0x790 @0x2c
0x0764…0799 at002d = ╱33╱3╱ // 0x791 @0x2d
0x0764…0799 at002e = ╱fe0000c002╱ // 0x792 @0x2e
0x0764…0799 at0033 = ╱ee╱)╱ // 0x797 @0x33
0x0764…0799 at0034 = EOL // 0x798 @0x34
0x0764…0799 }
0x0799…079f 94f6 0630 ENDPROC
0x0799…079f LineComalBin {
0x0799…079f ptr = 0x94f6 // 0x799 @0x0
0x0799…079f lno = 0x0276 // 0x79b @0x2
0x0799…079f at0004 = ╱9f╱ ENDPROC ╱ // 0x79d @0x4
0x0799…079f at0005 = EOL // 0x79e @0x5
0x0799…079f }
0x079f…07ae 9505 0640 PROC HOVED(GR)
0x079f…07ae LineComalBin {
0x079f…07ae ptr = 0x9505 // 0x79f @0x0
0x079f…07ae lno = 0x0280 // 0x7a1 @0x2
0x079f…07ae at0004 = ╱9e╱ PROC ╱ // 0x7a3 @0x4
0x079f…07ae at0005 = ╱48╱H╱ // 0x7a4 @0x5
0x079f…07ae at0006 = ╱4f╱O╱ // 0x7a5 @0x6
0x079f…07ae at0007 = ╱56╱V╱ // 0x7a6 @0x7
0x079f…07ae at0008 = ╱45╱E╱ // 0x7a7 @0x8
0x079f…07ae at0009 = ╱44╱D╱ // 0x7a8 @0x9
0x079f…07ae at000a = ╱ed╱(╱ // 0x7a9 @0xa
0x079f…07ae at000b = ╱47╱G╱ // 0x7aa @0xb
0x079f…07ae at000c = ╱52╱R╱ // 0x7ab @0xc
0x079f…07ae at000d = ╱ee╱)╱ // 0x7ac @0xd
0x079f…07ae at000e = EOL // 0x7ad @0xe
0x079f…07ae }
0x07ae…07c5 951c 0650 LINIE=LINIE+1
0x07ae…07c5 LineComalBin {
0x07ae…07c5 ptr = 0x951c // 0x7ae @0x0
0x07ae…07c5 lno = 0x028a // 0x7b0 @0x2
0x07ae…07c5 at0004 = ╱4c╱L╱ // 0x7b2 @0x4
0x07ae…07c5 at0005 = ╱49╱I╱ // 0x7b3 @0x5
0x07ae…07c5 at0006 = ╱4e╱N╱ // 0x7b4 @0x6
0x07ae…07c5 at0007 = ╱49╱I╱ // 0x7b5 @0x7
0x07ae…07c5 at0008 = ╱45╱E╱ // 0x7b6 @0x8
0x07ae…07c5 at0009 = ╱dc╱=╱ // 0x7b7 @0x9
0x07ae…07c5 at000a = ╱4c╱L╱ // 0x7b8 @0xa
0x07ae…07c5 at000b = ╱49╱I╱ // 0x7b9 @0xb
0x07ae…07c5 at000c = ╱4e╱N╱ // 0x7ba @0xc
0x07ae…07c5 at000d = ╱49╱I╱ // 0x7bb @0xd
0x07ae…07c5 at000e = ╱45╱E╱ // 0x7bc @0xe
0x07ae…07c5 at000f = ╱e2╱+╱ // 0x7bd @0xf
0x07ae…07c5 at0010 = ╱31╱1╱ // 0x7be @0x10
0x07ae…07c5 at0011 = ╱fe00008001╱ // 0x7bf @0x11
0x07ae…07c5 at0016 = EOL // 0x7c4 @0x16
0x07ae…07c5 }
0x07c5…0800 9557 0660 IF LINIE MOD (13*(1+2*(TYPE=2)))=1 THEN
0x07c5…0800 LineComalBin {
0x07c5…0800 ptr = 0x9557 // 0x7c5 @0x0
0x07c5…0800 lno = 0x0294 // 0x7c7 @0x2
0x07c5…0800 at0004 = ╱9c╱ IF ╱ // 0x7c9 @0x4
0x07c5…0800 at0005 = ╱4c╱L╱ // 0x7ca @0x5
0x07c5…0800 at0006 = ╱49╱I╱ // 0x7cb @0x6
0x07c5…0800 at0007 = ╱4e╱N╱ // 0x7cc @0x7
0x07c5…0800 at0008 = ╱49╱I╱ // 0x7cd @0x8
0x07c5…0800 at0009 = ╱45╱E╱ // 0x7ce @0x9
0x07c5…0800 at000a = ╱e8╱ MOD ╱ // 0x7cf @0xa
0x07c5…0800 at000b = ╱ed╱(╱ // 0x7d0 @0xb
0x07c5…0800 at000c = ╱31╱1╱ // 0x7d1 @0xc
0x07c5…0800 at000d = ╱33╱3╱ // 0x7d2 @0xd
0x07c5…0800 at000e = ╱fe0000d004╱ // 0x7d3 @0xe
0x07c5…0800 at0013 = ╱e4╱*╱ // 0x7d8 @0x13
0x07c5…0800 at0014 = ╱ed╱(╱ // 0x7d9 @0x14
0x07c5…0800 at0015 = ╱31╱1╱ // 0x7da @0x15
0x07c5…0800 at0016 = ╱fe00008001╱ // 0x7db @0x16
0x07c5…0800 at001b = ╱e2╱+╱ // 0x7e0 @0x1b
0x07c5…0800 at001c = ╱32╱2╱ // 0x7e1 @0x1c
0x07c5…0800 at001d = ╱fe00008002╱ // 0x7e2 @0x1d
0x07c5…0800 at0022 = ╱e4╱*╱ // 0x7e7 @0x22
0x07c5…0800 at0023 = ╱ed╱(╱ // 0x7e8 @0x23
0x07c5…0800 at0024 = ╱54╱T╱ // 0x7e9 @0x24
0x07c5…0800 at0025 = ╱59╱Y╱ // 0x7ea @0x25
0x07c5…0800 at0026 = ╱50╱P╱ // 0x7eb @0x26
0x07c5…0800 at0027 = ╱45╱E╱ // 0x7ec @0x27
0x07c5…0800 at0028 = ╱dc╱=╱ // 0x7ed @0x28
0x07c5…0800 at0029 = ╱32╱2╱ // 0x7ee @0x29
0x07c5…0800 at002a = ╱fe00008002╱ // 0x7ef @0x2a
0x07c5…0800 at002f = ╱ee╱)╱ // 0x7f4 @0x2f
0x07c5…0800 at0030 = ╱ee╱)╱ // 0x7f5 @0x30
0x07c5…0800 at0031 = ╱ee╱)╱ // 0x7f6 @0x31
0x07c5…0800 at0032 = ╱dc╱=╱ // 0x7f7 @0x32
0x07c5…0800 at0033 = ╱31╱1╱ // 0x7f8 @0x33
0x07c5…0800 at0034 = ╱fe00008001╱ // 0x7f9 @0x34
0x07c5…0800 at0039 = ╱b6╱ THEN ╱ // 0x7fe @0x39
0x07c5…0800 at003a = EOL // 0x7ff @0x3a
0x07c5…0800 }
0x0800…0829 9580 0670 IF LINIE<>1 THEN PRINT CHR(10);CHR(10)
0x0800…0829 LineComalBin {
0x0800…0829 ptr = 0x9580 // 0x800 @0x0
0x0800…0829 lno = 0x029e // 0x802 @0x2
0x0800…0829 at0004 = ╱82╱ IF ╱ // 0x804 @0x4
0x0800…0829 at0005 = ╱4c╱L╱ // 0x805 @0x5
0x0800…0829 at0006 = ╱49╱I╱ // 0x806 @0x6
0x0800…0829 at0007 = ╱4e╱N╱ // 0x807 @0x7
0x0800…0829 at0008 = ╱49╱I╱ // 0x808 @0x8
0x0800…0829 at0009 = ╱45╱E╱ // 0x809 @0x9
0x0800…0829 at000a = ╱e1╱<>╱ // 0x80a @0xa
0x0800…0829 at000b = ╱31╱1╱ // 0x80b @0xb
0x0800…0829 at000c = ╱fe00008001╱ // 0x80c @0xc
0x0800…0829 at0011 = ╱b6╱ THEN ╱ // 0x811 @0x11
0x0800…0829 at0012 = ╱92╱ PRINT ╱ // 0x812 @0x12
0x0800…0829 at0013 = ╱cf╱CHR╱ // 0x813 @0x13
0x0800…0829 at0014 = ╱ed╱(╱ // 0x814 @0x14
0x0800…0829 at0015 = ╱31╱1╱ // 0x815 @0x15
0x0800…0829 at0016 = ╱30╱0╱ // 0x816 @0x16
0x0800…0829 at0017 = ╱fe0000a004╱ // 0x817 @0x17
0x0800…0829 at001c = ╱ee╱)╱ // 0x81c @0x1c
0x0800…0829 at001d = ╱eb╱;╱ // 0x81d @0x1d
0x0800…0829 at001e = ╱cf╱CHR╱ // 0x81e @0x1e
0x0800…0829 at001f = ╱ed╱(╱ // 0x81f @0x1f
0x0800…0829 at0020 = ╱31╱1╱ // 0x820 @0x20
0x0800…0829 at0021 = ╱30╱0╱ // 0x821 @0x21
0x0800…0829 at0022 = ╱fe0000a004╱ // 0x822 @0x22
0x0800…0829 at0027 = ╱ee╱)╱ // 0x827 @0x27
0x0800…0829 at0028 = EOL // 0x828 @0x28
0x0800…0829 }
0x0829…084c 95a3 0680 IF LINIE<>1 AND TYPE=2 THEN PRINT " "
0x0829…084c LineComalBin {
0x0829…084c ptr = 0x95a3 // 0x829 @0x0
0x0829…084c lno = 0x02a8 // 0x82b @0x2
0x0829…084c at0004 = ╱82╱ IF ╱ // 0x82d @0x4
0x0829…084c at0005 = ╱4c╱L╱ // 0x82e @0x5
0x0829…084c at0006 = ╱49╱I╱ // 0x82f @0x6
0x0829…084c at0007 = ╱4e╱N╱ // 0x830 @0x7
0x0829…084c at0008 = ╱49╱I╱ // 0x831 @0x8
0x0829…084c at0009 = ╱45╱E╱ // 0x832 @0x9
0x0829…084c at000a = ╱e1╱<>╱ // 0x833 @0xa
0x0829…084c at000b = ╱31╱1╱ // 0x834 @0xb
0x0829…084c at000c = ╱fe00008001╱ // 0x835 @0xc
0x0829…084c at0011 = ╱da╱ AND ╱ // 0x83a @0x11
0x0829…084c at0012 = ╱54╱T╱ // 0x83b @0x12
0x0829…084c at0013 = ╱59╱Y╱ // 0x83c @0x13
0x0829…084c at0014 = ╱50╱P╱ // 0x83d @0x14
0x0829…084c at0015 = ╱45╱E╱ // 0x83e @0x15
0x0829…084c at0016 = ╱dc╱=╱ // 0x83f @0x16
0x0829…084c at0017 = ╱32╱2╱ // 0x840 @0x17
0x0829…084c at0018 = ╱fe00008002╱ // 0x841 @0x18
0x0829…084c at001d = ╱b6╱ THEN ╱ // 0x846 @0x1d
0x0829…084c at001e = ╱92╱ PRINT ╱ // 0x847 @0x1e
0x0829…084c at001f = ╱22╱"╱ // 0x848 @0x1f
0x0829…084c at0020 = ╱20╱…╱ // 0x849 @0x20
0x0829…084c at0021 = ╱22╱"╱ // 0x84a @0x21
0x0829…084c at0022 = EOL // 0x84b @0x22
0x0829…084c }
0x084c…0865 95bc 0690 SIDENR=SIDENR+1
0x084c…0865 LineComalBin {
0x084c…0865 ptr = 0x95bc // 0x84c @0x0
0x084c…0865 lno = 0x02b2 // 0x84e @0x2
0x084c…0865 at0004 = ╱53╱S╱ // 0x850 @0x4
0x084c…0865 at0005 = ╱49╱I╱ // 0x851 @0x5
0x084c…0865 at0006 = ╱44╱D╱ // 0x852 @0x6
0x084c…0865 at0007 = ╱45╱E╱ // 0x853 @0x7
0x084c…0865 at0008 = ╱4e╱N╱ // 0x854 @0x8
0x084c…0865 at0009 = ╱52╱R╱ // 0x855 @0x9
0x084c…0865 at000a = ╱dc╱=╱ // 0x856 @0xa
0x084c…0865 at000b = ╱53╱S╱ // 0x857 @0xb
0x084c…0865 at000c = ╱49╱I╱ // 0x858 @0xc
0x084c…0865 at000d = ╱44╱D╱ // 0x859 @0xd
0x084c…0865 at000e = ╱45╱E╱ // 0x85a @0xe
0x084c…0865 at000f = ╱4e╱N╱ // 0x85b @0xf
0x084c…0865 at0010 = ╱52╱R╱ // 0x85c @0x10
0x084c…0865 at0011 = ╱e2╱+╱ // 0x85d @0x11
0x084c…0865 at0012 = ╱31╱1╱ // 0x85e @0x12
0x084c…0865 at0013 = ╱fe00008001╱ // 0x85f @0x13
0x084c…0865 at0018 = EOL // 0x864 @0x18
0x084c…0865 }
0x0865…087d 95d4 0700 PRINT TAB(64);DV$;" "
0x0865…087d LineComalBin {
0x0865…087d ptr = 0x95d4 // 0x865 @0x0
0x0865…087d lno = 0x02bc // 0x867 @0x2
0x0865…087d at0004 = ╱92╱ PRINT ╱ // 0x869 @0x4
0x0865…087d at0005 = ╱d2╱TAB╱ // 0x86a @0x5
0x0865…087d at0006 = ╱ed╱(╱ // 0x86b @0x6
0x0865…087d at0007 = ╱36╱6╱ // 0x86c @0x7
0x0865…087d at0008 = ╱34╱4╱ // 0x86d @0x8
0x0865…087d at0009 = ╱fe00008007╱ // 0x86e @0x9
0x0865…087d at000e = ╱ee╱)╱ // 0x873 @0xe
0x0865…087d at000f = ╱eb╱;╱ // 0x874 @0xf
0x0865…087d at0010 = ╱44╱D╱ // 0x875 @0x10
0x0865…087d at0011 = ╱56╱V╱ // 0x876 @0x11
0x0865…087d at0012 = ╱ef╱$╱ // 0x877 @0x12
0x0865…087d at0013 = ╱eb╱;╱ // 0x878 @0x13
0x0865…087d at0014 = ╱22╱"╱ // 0x879 @0x14
0x0865…087d at0015 = ╱20╱…╱ // 0x87a @0x15
0x0865…087d at0016 = ╱22╱"╱ // 0x87b @0x16
0x0865…087d at0017 = EOL // 0x87c @0x17
0x0865…087d }
0x087d…08be 9615 0710 PRINT CHR(14);" Debitor"+KS$+"liste";CHR(15);TAB(25);
0x087d…08be LineComalBin {
0x087d…08be ptr = 0x9615 // 0x87d @0x0
0x087d…08be lno = 0x02c6 // 0x87f @0x2
0x087d…08be at0004 = ╱92╱ PRINT ╱ // 0x881 @0x4
0x087d…08be at0005 = ╱cf╱CHR╱ // 0x882 @0x5
0x087d…08be at0006 = ╱ed╱(╱ // 0x883 @0x6
0x087d…08be at0007 = ╱31╱1╱ // 0x884 @0x7
0x087d…08be at0008 = ╱34╱4╱ // 0x885 @0x8
0x087d…08be at0009 = ╱fe0000e004╱ // 0x886 @0x9
0x087d…08be at000e = ╱ee╱)╱ // 0x88b @0xe
0x087d…08be at000f = ╱eb╱;╱ // 0x88c @0xf
0x087d…08be at0010 = ╱22╱"╱ // 0x88d @0x10
0x087d…08be at0011 = ╱20╱…╱ // 0x88e @0x11
0x087d…08be at0012 = ╱20╱…╱ // 0x88f @0x12
0x087d…08be at0013 = ╱20╱…╱ // 0x890 @0x13
0x087d…08be at0014 = ╱20╱…╱ // 0x891 @0x14
0x087d…08be at0015 = ╱44╱D╱ // 0x892 @0x15
0x087d…08be at0016 = ╱65╱e╱ // 0x893 @0x16
0x087d…08be at0017 = ╱62╱b╱ // 0x894 @0x17
0x087d…08be at0018 = ╱69╱i╱ // 0x895 @0x18
0x087d…08be at0019 = ╱74╱t╱ // 0x896 @0x19
0x087d…08be at001a = ╱6f╱o╱ // 0x897 @0x1a
0x087d…08be at001b = ╱72╱r╱ // 0x898 @0x1b
0x087d…08be at001c = ╱22╱"╱ // 0x899 @0x1c
0x087d…08be at001d = ╱f1╱+╱ // 0x89a @0x1d
0x087d…08be at001e = ╱4b╱K╱ // 0x89b @0x1e
0x087d…08be at001f = ╱53╱S╱ // 0x89c @0x1f
0x087d…08be at0020 = ╱ef╱$╱ // 0x89d @0x20
0x087d…08be at0021 = ╱f1╱+╱ // 0x89e @0x21
0x087d…08be at0022 = ╱22╱"╱ // 0x89f @0x22
0x087d…08be at0023 = ╱6c╱l╱ // 0x8a0 @0x23
0x087d…08be at0024 = ╱69╱i╱ // 0x8a1 @0x24
0x087d…08be at0025 = ╱73╱s╱ // 0x8a2 @0x25
0x087d…08be at0026 = ╱74╱t╱ // 0x8a3 @0x26
0x087d…08be at0027 = ╱65╱e╱ // 0x8a4 @0x27
0x087d…08be at0028 = ╱22╱"╱ // 0x8a5 @0x28
0x087d…08be at0029 = ╱eb╱;╱ // 0x8a6 @0x29
0x087d…08be at002a = ╱cf╱CHR╱ // 0x8a7 @0x2a
0x087d…08be at002b = ╱ed╱(╱ // 0x8a8 @0x2b
0x087d…08be at002c = ╱31╱1╱ // 0x8a9 @0x2c
0x087d…08be at002d = ╱35╱5╱ // 0x8aa @0x2d
0x087d…08be at002e = ╱fe0000f004╱ // 0x8ab @0x2e
0x087d…08be at0033 = ╱ee╱)╱ // 0x8b0 @0x33
0x087d…08be at0034 = ╱eb╱;╱ // 0x8b1 @0x34
0x087d…08be at0035 = ╱d2╱TAB╱ // 0x8b2 @0x35
0x087d…08be at0036 = ╱ed╱(╱ // 0x8b3 @0x36
0x087d…08be at0037 = ╱32╱2╱ // 0x8b4 @0x37
0x087d…08be at0038 = ╱35╱5╱ // 0x8b5 @0x38
0x087d…08be at0039 = ╱fe0000c805╱ // 0x8b6 @0x39
0x087d…08be at003e = ╱ee╱)╱ // 0x8bb @0x3e
0x087d…08be at003f = ╱eb╱;╱ // 0x8bc @0x3f
0x087d…08be at0040 = EOL // 0x8bd @0x40
0x087d…08be }
0x08be…08ce 9625 0720 IF GR>0 THEN
0x08be…08ce LineComalBin {
0x08be…08ce ptr = 0x9625 // 0x8be @0x0
0x08be…08ce lno = 0x02d0 // 0x8c0 @0x2
0x08be…08ce at0004 = ╱9c╱ IF ╱ // 0x8c2 @0x4
0x08be…08ce at0005 = ╱47╱G╱ // 0x8c3 @0x5
0x08be…08ce at0006 = ╱52╱R╱ // 0x8c4 @0x6
0x08be…08ce at0007 = ╱de╱>╱ // 0x8c5 @0x7
0x08be…08ce at0008 = ╱30╱0╱ // 0x8c6 @0x8
0x08be…08ce at0009 = ╱fe00000000╱ // 0x8c7 @0x9
0x08be…08ce at000e = ╱b6╱ THEN ╱ // 0x8cc @0xe
0x08be…08ce at000f = EOL // 0x8cd @0xf
0x08be…08ce }
0x08ce…08e5 963c 0730 PRINT USING "Gruppe:###":GR;
0x08ce…08e5 LineComalBin {
0x08ce…08e5 ptr = 0x963c // 0x8ce @0x0
0x08ce…08e5 lno = 0x02da // 0x8d0 @0x2
0x08ce…08e5 at0004 = ╱92╱ PRINT ╱ // 0x8d2 @0x4
0x08ce…08e5 at0005 = ╱b9╱ USING ╱ // 0x8d3 @0x5
0x08ce…08e5 at0006 = ╱22╱"╱ // 0x8d4 @0x6
0x08ce…08e5 at0007 = ╱47╱G╱ // 0x8d5 @0x7
0x08ce…08e5 at0008 = ╱72╱r╱ // 0x8d6 @0x8
0x08ce…08e5 at0009 = ╱75╱u╱ // 0x8d7 @0x9
0x08ce…08e5 at000a = ╱70╱p╱ // 0x8d8 @0xa
0x08ce…08e5 at000b = ╱70╱p╱ // 0x8d9 @0xb
0x08ce…08e5 at000c = ╱65╱e╱ // 0x8da @0xc
0x08ce…08e5 at000d = ╱3a╱:╱ // 0x8db @0xd
0x08ce…08e5 at000e = ╱23╱#╱ // 0x8dc @0xe
0x08ce…08e5 at000f = ╱23╱#╱ // 0x8dd @0xf
0x08ce…08e5 at0010 = ╱23╱#╱ // 0x8de @0x10
0x08ce…08e5 at0011 = ╱22╱"╱ // 0x8df @0x11
0x08ce…08e5 at0012 = ╱f0╱:╱ // 0x8e0 @0x12
0x08ce…08e5 at0013 = ╱47╱G╱ // 0x8e1 @0x13
0x08ce…08e5 at0014 = ╱52╱R╱ // 0x8e2 @0x14
0x08ce…08e5 at0015 = ╱eb╱;╱ // 0x8e3 @0x15
0x08ce…08e5 at0016 = EOL // 0x8e4 @0x16
0x08ce…08e5 }
0x08e5…08eb 9642 0740 ENDIF
0x08e5…08eb LineComalBin {
0x08e5…08eb ptr = 0x9642 // 0x8e5 @0x0
0x08e5…08eb lno = 0x02e4 // 0x8e7 @0x2
0x08e5…08eb at0004 = ╱9b╱ ENDIF ╱ // 0x8e9 @0x4
0x08e5…08eb at0005 = EOL // 0x8ea @0x5
0x08e5…08eb }
0x08eb…090a 9661 0750 PRINT TAB(37);"Dato: ";DAT$;
0x08eb…090a LineComalBin {
0x08eb…090a ptr = 0x9661 // 0x8eb @0x0
0x08eb…090a lno = 0x02ee // 0x8ed @0x2
0x08eb…090a at0004 = ╱92╱ PRINT ╱ // 0x8ef @0x4
0x08eb…090a at0005 = ╱d2╱TAB╱ // 0x8f0 @0x5
0x08eb…090a at0006 = ╱ed╱(╱ // 0x8f1 @0x6
0x08eb…090a at0007 = ╱33╱3╱ // 0x8f2 @0x7
0x08eb…090a at0008 = ╱37╱7╱ // 0x8f3 @0x8
0x08eb…090a at0009 = ╱fe00009406╱ // 0x8f4 @0x9
0x08eb…090a at000e = ╱ee╱)╱ // 0x8f9 @0xe
0x08eb…090a at000f = ╱eb╱;╱ // 0x8fa @0xf
0x08eb…090a at0010 = ╱22╱"╱ // 0x8fb @0x10
0x08eb…090a at0011 = ╱44╱D╱ // 0x8fc @0x11
0x08eb…090a at0012 = ╱61╱a╱ // 0x8fd @0x12
0x08eb…090a at0013 = ╱74╱t╱ // 0x8fe @0x13
0x08eb…090a at0014 = ╱6f╱o╱ // 0x8ff @0x14
0x08eb…090a at0015 = ╱3a╱:╱ // 0x900 @0x15
0x08eb…090a at0016 = ╱20╱…╱ // 0x901 @0x16
0x08eb…090a at0017 = ╱22╱"╱ // 0x902 @0x17
0x08eb…090a at0018 = ╱eb╱;╱ // 0x903 @0x18
0x08eb…090a at0019 = ╱44╱D╱ // 0x904 @0x19
0x08eb…090a at001a = ╱41╱A╱ // 0x905 @0x1a
0x08eb…090a at001b = ╱54╱T╱ // 0x906 @0x1b
0x08eb…090a at001c = ╱ef╱$╱ // 0x907 @0x1c
0x08eb…090a at001d = ╱eb╱;╱ // 0x908 @0x1d
0x08eb…090a at001e = EOL // 0x909 @0x1e
0x08eb…090a }
0x090a…0923 967a 0760 PRINT USING " Side:###":SIDENR
0x090a…0923 LineComalBin {
0x090a…0923 ptr = 0x967a // 0x90a @0x0
0x090a…0923 lno = 0x02f8 // 0x90c @0x2
0x090a…0923 at0004 = ╱92╱ PRINT ╱ // 0x90e @0x4
0x090a…0923 at0005 = ╱b9╱ USING ╱ // 0x90f @0x5
0x090a…0923 at0006 = ╱22╱"╱ // 0x910 @0x6
0x090a…0923 at0007 = ╱20╱…╱ // 0x911 @0x7
0x090a…0923 at0008 = ╱53╱S╱ // 0x912 @0x8
0x090a…0923 at0009 = ╱69╱i╱ // 0x913 @0x9
0x090a…0923 at000a = ╱64╱d╱ // 0x914 @0xa
0x090a…0923 at000b = ╱65╱e╱ // 0x915 @0xb
0x090a…0923 at000c = ╱3a╱:╱ // 0x916 @0xc
0x090a…0923 at000d = ╱23╱#╱ // 0x917 @0xd
0x090a…0923 at000e = ╱23╱#╱ // 0x918 @0xe
0x090a…0923 at000f = ╱23╱#╱ // 0x919 @0xf
0x090a…0923 at0010 = ╱22╱"╱ // 0x91a @0x10
0x090a…0923 at0011 = ╱f0╱:╱ // 0x91b @0x11
0x090a…0923 at0012 = ╱53╱S╱ // 0x91c @0x12
0x090a…0923 at0013 = ╱49╱I╱ // 0x91d @0x13
0x090a…0923 at0014 = ╱44╱D╱ // 0x91e @0x14
0x090a…0923 at0015 = ╱45╱E╱ // 0x91f @0x15
0x090a…0923 at0016 = ╱4e╱N╱ // 0x920 @0x16
0x090a…0923 at0017 = ╱52╱R╱ // 0x921 @0x17
0x090a…0923 at0018 = EOL // 0x922 @0x18
0x090a…0923 }
0x0923…092c 9683 0770 PRINT " "
0x0923…092c LineComalBin {
0x0923…092c ptr = 0x9683 // 0x923 @0x0
0x0923…092c lno = 0x0302 // 0x925 @0x2
0x0923…092c at0004 = ╱92╱ PRINT ╱ // 0x927 @0x4
0x0923…092c at0005 = ╱22╱"╱ // 0x928 @0x5
0x0923…092c at0006 = ╱20╱…╱ // 0x929 @0x6
0x0923…092c at0007 = ╱22╱"╱ // 0x92a @0x7
0x0923…092c at0008 = EOL // 0x92b @0x8
0x0923…092c }
0x092c…093e 9695 0780 IF TYPE=2 THEN
0x092c…093e LineComalBin {
0x092c…093e ptr = 0x9695 // 0x92c @0x0
0x092c…093e lno = 0x030c // 0x92e @0x2
0x092c…093e at0004 = ╱9c╱ IF ╱ // 0x930 @0x4
0x092c…093e at0005 = ╱54╱T╱ // 0x931 @0x5
0x092c…093e at0006 = ╱59╱Y╱ // 0x932 @0x6
0x092c…093e at0007 = ╱50╱P╱ // 0x933 @0x7
0x092c…093e at0008 = ╱45╱E╱ // 0x934 @0x8
0x092c…093e at0009 = ╱dc╱=╱ // 0x935 @0x9
0x092c…093e at000a = ╱32╱2╱ // 0x936 @0xa
0x092c…093e at000b = ╱fe00008002╱ // 0x937 @0xb
0x092c…093e at0010 = ╱b6╱ THEN ╱ // 0x93c @0x10
0x092c…093e at0011 = EOL // 0x93d @0x11
0x092c…093e }
0x093e…097b 96d2 0790 PRINT " KONTO NAVN";TAB(37);"POSTNR BY";TAB(67);"TLF"
0x093e…097b LineComalBin {
0x093e…097b ptr = 0x96d2 // 0x93e @0x0
0x093e…097b lno = 0x0316 // 0x940 @0x2
0x093e…097b at0004 = ╱92╱ PRINT ╱ // 0x942 @0x4
0x093e…097b at0005 = ╱22╱"╱ // 0x943 @0x5
0x093e…097b at0006 = ╱20╱…╱ // 0x944 @0x6
0x093e…097b at0007 = ╱4b╱K╱ // 0x945 @0x7
0x093e…097b at0008 = ╱4f╱O╱ // 0x946 @0x8
0x093e…097b at0009 = ╱4e╱N╱ // 0x947 @0x9
0x093e…097b at000a = ╱54╱T╱ // 0x948 @0xa
0x093e…097b at000b = ╱4f╱O╱ // 0x949 @0xb
0x093e…097b at000c = ╱20╱…╱ // 0x94a @0xc
0x093e…097b at000d = ╱20╱…╱ // 0x94b @0xd
0x093e…097b at000e = ╱4e╱N╱ // 0x94c @0xe
0x093e…097b at000f = ╱41╱A╱ // 0x94d @0xf
0x093e…097b at0010 = ╱56╱V╱ // 0x94e @0x10
0x093e…097b at0011 = ╱4e╱N╱ // 0x94f @0x11
0x093e…097b at0012 = ╱22╱"╱ // 0x950 @0x12
0x093e…097b at0013 = ╱eb╱;╱ // 0x951 @0x13
0x093e…097b at0014 = ╱d2╱TAB╱ // 0x952 @0x14
0x093e…097b at0015 = ╱ed╱(╱ // 0x953 @0x15
0x093e…097b at0016 = ╱33╱3╱ // 0x954 @0x16
0x093e…097b at0017 = ╱37╱7╱ // 0x955 @0x17
0x093e…097b at0018 = ╱fe00009406╱ // 0x956 @0x18
0x093e…097b at001d = ╱ee╱)╱ // 0x95b @0x1d
0x093e…097b at001e = ╱eb╱;╱ // 0x95c @0x1e
0x093e…097b at001f = ╱22╱"╱ // 0x95d @0x1f
0x093e…097b at0020 = ╱50╱P╱ // 0x95e @0x20
0x093e…097b at0021 = ╱4f╱O╱ // 0x95f @0x21
0x093e…097b at0022 = ╱53╱S╱ // 0x960 @0x22
0x093e…097b at0023 = ╱54╱T╱ // 0x961 @0x23
0x093e…097b at0024 = ╱4e╱N╱ // 0x962 @0x24
0x093e…097b at0025 = ╱52╱R╱ // 0x963 @0x25
0x093e…097b at0026 = ╱20╱…╱ // 0x964 @0x26
0x093e…097b at0027 = ╱20╱…╱ // 0x965 @0x27
0x093e…097b at0028 = ╱42╱B╱ // 0x966 @0x28
0x093e…097b at0029 = ╱59╱Y╱ // 0x967 @0x29
0x093e…097b at002a = ╱22╱"╱ // 0x968 @0x2a
0x093e…097b at002b = ╱eb╱;╱ // 0x969 @0x2b
0x093e…097b at002c = ╱d2╱TAB╱ // 0x96a @0x2c
0x093e…097b at002d = ╱ed╱(╱ // 0x96b @0x2d
0x093e…097b at002e = ╱36╱6╱ // 0x96c @0x2e
0x093e…097b at002f = ╱37╱7╱ // 0x96d @0x2f
0x093e…097b at0030 = ╱fe00008607╱ // 0x96e @0x30
0x093e…097b at0035 = ╱ee╱)╱ // 0x973 @0x35
0x093e…097b at0036 = ╱eb╱;╱ // 0x974 @0x36
0x093e…097b at0037 = ╱22╱"╱ // 0x975 @0x37
0x093e…097b at0038 = ╱54╱T╱ // 0x976 @0x38
0x093e…097b at0039 = ╱4c╱L╱ // 0x977 @0x39
0x093e…097b at003a = ╱46╱F╱ // 0x978 @0x3a
0x093e…097b at003b = ╱22╱"╱ // 0x979 @0x3b
0x093e…097b at003c = EOL // 0x97a @0x3c
0x093e…097b }
0x097b…0987 96de 0800 PRINT STREG$
0x097b…0987 LineComalBin {
0x097b…0987 ptr = 0x96de // 0x97b @0x0
0x097b…0987 lno = 0x0320 // 0x97d @0x2
0x097b…0987 at0004 = ╱92╱ PRINT ╱ // 0x97f @0x4
0x097b…0987 at0005 = ╱53╱S╱ // 0x980 @0x5
0x097b…0987 at0006 = ╱54╱T╱ // 0x981 @0x6
0x097b…0987 at0007 = ╱52╱R╱ // 0x982 @0x7
0x097b…0987 at0008 = ╱45╱E╱ // 0x983 @0x8
0x097b…0987 at0009 = ╱47╱G╱ // 0x984 @0x9
0x097b…0987 at000a = ╱ef╱$╱ // 0x985 @0xa
0x097b…0987 at000b = EOL // 0x986 @0xb
0x097b…0987 }
0x0987…098d 96e4 0810 ELSE
0x0987…098d LineComalBin {
0x0987…098d ptr = 0x96e4 // 0x987 @0x0
0x0987…098d lno = 0x032a // 0x989 @0x2
0x0987…098d at0004 = ╱9a╱ ELSE ╱ // 0x98b @0x4
0x0987…098d at0005 = EOL // 0x98c @0x5
0x0987…098d }
0x098d…09d1 9728 0820 PRINT " KONTO TLF";TAB(28);"SALDO IALT";TAB(44);"0-30 DAGE";
0x098d…09d1 LineComalBin {
0x098d…09d1 ptr = 0x9728 // 0x98d @0x0
0x098d…09d1 lno = 0x0334 // 0x98f @0x2
0x098d…09d1 at0004 = ╱92╱ PRINT ╱ // 0x991 @0x4
0x098d…09d1 at0005 = ╱22╱"╱ // 0x992 @0x5
0x098d…09d1 at0006 = ╱20╱…╱ // 0x993 @0x6
0x098d…09d1 at0007 = ╱4b╱K╱ // 0x994 @0x7
0x098d…09d1 at0008 = ╱4f╱O╱ // 0x995 @0x8
0x098d…09d1 at0009 = ╱4e╱N╱ // 0x996 @0x9
0x098d…09d1 at000a = ╱54╱T╱ // 0x997 @0xa
0x098d…09d1 at000b = ╱4f╱O╱ // 0x998 @0xb
0x098d…09d1 at000c = ╱20╱…╱ // 0x999 @0xc
0x098d…09d1 at000d = ╱20╱…╱ // 0x99a @0xd
0x098d…09d1 at000e = ╱20╱…╱ // 0x99b @0xe
0x098d…09d1 at000f = ╱54╱T╱ // 0x99c @0xf
0x098d…09d1 at0010 = ╱4c╱L╱ // 0x99d @0x10
0x098d…09d1 at0011 = ╱46╱F╱ // 0x99e @0x11
0x098d…09d1 at0012 = ╱22╱"╱ // 0x99f @0x12
0x098d…09d1 at0013 = ╱eb╱;╱ // 0x9a0 @0x13
0x098d…09d1 at0014 = ╱d2╱TAB╱ // 0x9a1 @0x14
0x098d…09d1 at0015 = ╱ed╱(╱ // 0x9a2 @0x15
0x098d…09d1 at0016 = ╱32╱2╱ // 0x9a3 @0x16
0x098d…09d1 at0017 = ╱38╱8╱ // 0x9a4 @0x17
0x098d…09d1 at0018 = ╱fe0000e005╱ // 0x9a5 @0x18
0x098d…09d1 at001d = ╱ee╱)╱ // 0x9aa @0x1d
0x098d…09d1 at001e = ╱eb╱;╱ // 0x9ab @0x1e
0x098d…09d1 at001f = ╱22╱"╱ // 0x9ac @0x1f
0x098d…09d1 at0020 = ╱53╱S╱ // 0x9ad @0x20
0x098d…09d1 at0021 = ╱41╱A╱ // 0x9ae @0x21
0x098d…09d1 at0022 = ╱4c╱L╱ // 0x9af @0x22
0x098d…09d1 at0023 = ╱44╱D╱ // 0x9b0 @0x23
0x098d…09d1 at0024 = ╱4f╱O╱ // 0x9b1 @0x24
0x098d…09d1 at0025 = ╱20╱…╱ // 0x9b2 @0x25
0x098d…09d1 at0026 = ╱49╱I╱ // 0x9b3 @0x26
0x098d…09d1 at0027 = ╱41╱A╱ // 0x9b4 @0x27
0x098d…09d1 at0028 = ╱4c╱L╱ // 0x9b5 @0x28
0x098d…09d1 at0029 = ╱54╱T╱ // 0x9b6 @0x29
0x098d…09d1 at002a = ╱22╱"╱ // 0x9b7 @0x2a
0x098d…09d1 at002b = ╱eb╱;╱ // 0x9b8 @0x2b
0x098d…09d1 at002c = ╱d2╱TAB╱ // 0x9b9 @0x2c
0x098d…09d1 at002d = ╱ed╱(╱ // 0x9ba @0x2d
0x098d…09d1 at002e = ╱34╱4╱ // 0x9bb @0x2e
0x098d…09d1 at002f = ╱34╱4╱ // 0x9bc @0x2f
0x098d…09d1 at0030 = ╱fe0000b006╱ // 0x9bd @0x30
0x098d…09d1 at0035 = ╱ee╱)╱ // 0x9c2 @0x35
0x098d…09d1 at0036 = ╱eb╱;╱ // 0x9c3 @0x36
0x098d…09d1 at0037 = ╱22╱"╱ // 0x9c4 @0x37
0x098d…09d1 at0038 = ╱30╱0╱ // 0x9c5 @0x38
0x098d…09d1 at0039 = ╱2d╱-╱ // 0x9c6 @0x39
0x098d…09d1 at003a = ╱33╱3╱ // 0x9c7 @0x3a
0x098d…09d1 at003b = ╱30╱0╱ // 0x9c8 @0x3b
0x098d…09d1 at003c = ╱20╱…╱ // 0x9c9 @0x3c
0x098d…09d1 at003d = ╱44╱D╱ // 0x9ca @0x3d
0x098d…09d1 at003e = ╱41╱A╱ // 0x9cb @0x3e
0x098d…09d1 at003f = ╱47╱G╱ // 0x9cc @0x3f
0x098d…09d1 at0040 = ╱45╱E╱ // 0x9cd @0x40
0x098d…09d1 at0041 = ╱22╱"╱ // 0x9ce @0x41
0x098d…09d1 at0042 = ╱eb╱;╱ // 0x9cf @0x42
0x098d…09d1 at0043 = EOL // 0x9d0 @0x43
0x098d…09d1 }
0x09d1…09fb 9752 0830 PRINT TAB(56);"60-90 DAGE MÅNEDENS KØB"
0x09d1…09fb LineComalBin {
0x09d1…09fb ptr = 0x9752 // 0x9d1 @0x0
0x09d1…09fb lno = 0x033e // 0x9d3 @0x2
0x09d1…09fb at0004 = ╱92╱ PRINT ╱ // 0x9d5 @0x4
0x09d1…09fb at0005 = ╱d2╱TAB╱ // 0x9d6 @0x5
0x09d1…09fb at0006 = ╱ed╱(╱ // 0x9d7 @0x6
0x09d1…09fb at0007 = ╱35╱5╱ // 0x9d8 @0x7
0x09d1…09fb at0008 = ╱36╱6╱ // 0x9d9 @0x8
0x09d1…09fb at0009 = ╱fe0000e006╱ // 0x9da @0x9
0x09d1…09fb at000e = ╱ee╱)╱ // 0x9df @0xe
0x09d1…09fb at000f = ╱eb╱;╱ // 0x9e0 @0xf
0x09d1…09fb at0010 = ╱22╱"╱ // 0x9e1 @0x10
0x09d1…09fb at0011 = ╱36╱6╱ // 0x9e2 @0x11
0x09d1…09fb at0012 = ╱30╱0╱ // 0x9e3 @0x12
0x09d1…09fb at0013 = ╱2d╱-╱ // 0x9e4 @0x13
0x09d1…09fb at0014 = ╱39╱9╱ // 0x9e5 @0x14
0x09d1…09fb at0015 = ╱30╱0╱ // 0x9e6 @0x15
0x09d1…09fb at0016 = ╱20╱…╱ // 0x9e7 @0x16
0x09d1…09fb at0017 = ╱44╱D╱ // 0x9e8 @0x17
0x09d1…09fb at0018 = ╱41╱A╱ // 0x9e9 @0x18
0x09d1…09fb at0019 = ╱47╱G╱ // 0x9ea @0x19
0x09d1…09fb at001a = ╱45╱E╱ // 0x9eb @0x1a
0x09d1…09fb at001b = ╱20╱…╱ // 0x9ec @0x1b
0x09d1…09fb at001c = ╱4d╱M╱ // 0x9ed @0x1c
0x09d1…09fb at001d = ╱5d╱Å╱ // 0x9ee @0x1d
0x09d1…09fb at001e = ╱4e╱N╱ // 0x9ef @0x1e
0x09d1…09fb at001f = ╱45╱E╱ // 0x9f0 @0x1f
0x09d1…09fb at0020 = ╱44╱D╱ // 0x9f1 @0x20
0x09d1…09fb at0021 = ╱45╱E╱ // 0x9f2 @0x21
0x09d1…09fb at0022 = ╱4e╱N╱ // 0x9f3 @0x22
0x09d1…09fb at0023 = ╱53╱S╱ // 0x9f4 @0x23
0x09d1…09fb at0024 = ╱20╱…╱ // 0x9f5 @0x24
0x09d1…09fb at0025 = ╱4b╱K╱ // 0x9f6 @0x25
0x09d1…09fb at0026 = ╱5c╱Ø╱ // 0x9f7 @0x26
0x09d1…09fb at0027 = ╱42╱B╱ // 0x9f8 @0x27
0x09d1…09fb at0028 = ╱22╱"╱ // 0x9f9 @0x28
0x09d1…09fb at0029 = EOL // 0x9fa @0x29
0x09d1…09fb }
0x09fb…0a38 978f 0840 PRINT " NAVN";TAB(43);"30-60 DAGE ÆLDRE ÅRETS KØB"
0x09fb…0a38 LineComalBin {
0x09fb…0a38 ptr = 0x978f // 0x9fb @0x0
0x09fb…0a38 lno = 0x0348 // 0x9fd @0x2
0x09fb…0a38 at0004 = ╱92╱ PRINT ╱ // 0x9ff @0x4
0x09fb…0a38 at0005 = ╱22╱"╱ // 0xa00 @0x5
0x09fb…0a38 at0006 = ╱20╱…╱ // 0xa01 @0x6
0x09fb…0a38 at0007 = ╱4e╱N╱ // 0xa02 @0x7
0x09fb…0a38 at0008 = ╱41╱A╱ // 0xa03 @0x8
0x09fb…0a38 at0009 = ╱56╱V╱ // 0xa04 @0x9
0x09fb…0a38 at000a = ╱4e╱N╱ // 0xa05 @0xa
0x09fb…0a38 at000b = ╱22╱"╱ // 0xa06 @0xb
0x09fb…0a38 at000c = ╱eb╱;╱ // 0xa07 @0xc
0x09fb…0a38 at000d = ╱d2╱TAB╱ // 0xa08 @0xd
0x09fb…0a38 at000e = ╱ed╱(╱ // 0xa09 @0xe
0x09fb…0a38 at000f = ╱34╱4╱ // 0xa0a @0xf
0x09fb…0a38 at0010 = ╱33╱3╱ // 0xa0b @0x10
0x09fb…0a38 at0011 = ╱fe0000ac06╱ // 0xa0c @0x11
0x09fb…0a38 at0016 = ╱ee╱)╱ // 0xa11 @0x16
0x09fb…0a38 at0017 = ╱eb╱;╱ // 0xa12 @0x17
0x09fb…0a38 at0018 = ╱22╱"╱ // 0xa13 @0x18
0x09fb…0a38 at0019 = ╱33╱3╱ // 0xa14 @0x19
0x09fb…0a38 at001a = ╱30╱0╱ // 0xa15 @0x1a
0x09fb…0a38 at001b = ╱2d╱-╱ // 0xa16 @0x1b
0x09fb…0a38 at001c = ╱36╱6╱ // 0xa17 @0x1c
0x09fb…0a38 at001d = ╱30╱0╱ // 0xa18 @0x1d
0x09fb…0a38 at001e = ╱20╱…╱ // 0xa19 @0x1e
0x09fb…0a38 at001f = ╱44╱D╱ // 0xa1a @0x1f
0x09fb…0a38 at0020 = ╱41╱A╱ // 0xa1b @0x20
0x09fb…0a38 at0021 = ╱47╱G╱ // 0xa1c @0x21
0x09fb…0a38 at0022 = ╱45╱E╱ // 0xa1d @0x22
0x09fb…0a38 at0023 = ╱20╱…╱ // 0xa1e @0x23
0x09fb…0a38 at0024 = ╱20╱…╱ // 0xa1f @0x24
0x09fb…0a38 at0025 = ╱20╱…╱ // 0xa20 @0x25
0x09fb…0a38 at0026 = ╱20╱…╱ // 0xa21 @0x26
0x09fb…0a38 at0027 = ╱5b╱Æ╱ // 0xa22 @0x27
0x09fb…0a38 at0028 = ╱4c╱L╱ // 0xa23 @0x28
0x09fb…0a38 at0029 = ╱44╱D╱ // 0xa24 @0x29
0x09fb…0a38 at002a = ╱52╱R╱ // 0xa25 @0x2a
0x09fb…0a38 at002b = ╱45╱E╱ // 0xa26 @0x2b
0x09fb…0a38 at002c = ╱20╱…╱ // 0xa27 @0x2c
0x09fb…0a38 at002d = ╱20╱…╱ // 0xa28 @0x2d
0x09fb…0a38 at002e = ╱20╱…╱ // 0xa29 @0x2e
0x09fb…0a38 at002f = ╱20╱…╱ // 0xa2a @0x2f
0x09fb…0a38 at0030 = ╱20╱…╱ // 0xa2b @0x30
0x09fb…0a38 at0031 = ╱20╱…╱ // 0xa2c @0x31
0x09fb…0a38 at0032 = ╱5d╱Å╱ // 0xa2d @0x32
0x09fb…0a38 at0033 = ╱52╱R╱ // 0xa2e @0x33
0x09fb…0a38 at0034 = ╱45╱E╱ // 0xa2f @0x34
0x09fb…0a38 at0035 = ╱54╱T╱ // 0xa30 @0x35
0x09fb…0a38 at0036 = ╱53╱S╱ // 0xa31 @0x36
0x09fb…0a38 at0037 = ╱20╱…╱ // 0xa32 @0x37
0x09fb…0a38 at0038 = ╱4b╱K╱ // 0xa33 @0x38
0x09fb…0a38 at0039 = ╱5c╱Ø╱ // 0xa34 @0x39
0x09fb…0a38 at003a = ╱42╱B╱ // 0xa35 @0x3a
0x09fb…0a38 at003b = ╱22╱"╱ // 0xa36 @0x3b
0x09fb…0a38 at003c = EOL // 0xa37 @0x3c
0x09fb…0a38 }
0x0a38…0a44 979b 0850 PRINT STREG$
0x0a38…0a44 LineComalBin {
0x0a38…0a44 ptr = 0x979b // 0xa38 @0x0
0x0a38…0a44 lno = 0x0352 // 0xa3a @0x2
0x0a38…0a44 at0004 = ╱92╱ PRINT ╱ // 0xa3c @0x4
0x0a38…0a44 at0005 = ╱53╱S╱ // 0xa3d @0x5
0x0a38…0a44 at0006 = ╱54╱T╱ // 0xa3e @0x6
0x0a38…0a44 at0007 = ╱52╱R╱ // 0xa3f @0x7
0x0a38…0a44 at0008 = ╱45╱E╱ // 0xa40 @0x8
0x0a38…0a44 at0009 = ╱47╱G╱ // 0xa41 @0x9
0x0a38…0a44 at000a = ╱ef╱$╱ // 0xa42 @0xa
0x0a38…0a44 at000b = EOL // 0xa43 @0xb
0x0a38…0a44 }
0x0a44…0a4a 97a1 0860 ENDIF
0x0a44…0a4a LineComalBin {
0x0a44…0a4a ptr = 0x97a1 // 0xa44 @0x0
0x0a44…0a4a lno = 0x035c // 0xa46 @0x2
0x0a44…0a4a at0004 = ╱9b╱ ENDIF ╱ // 0xa48 @0x4
0x0a44…0a4a at0005 = EOL // 0xa49 @0x5
0x0a44…0a4a }
0x0a4a…0a50 97a7 0870 ENDIF
0x0a4a…0a50 LineComalBin {
0x0a4a…0a50 ptr = 0x97a7 // 0xa4a @0x0
0x0a4a…0a50 lno = 0x0366 // 0xa4c @0x2
0x0a4a…0a50 at0004 = ╱9b╱ ENDIF ╱ // 0xa4e @0x4
0x0a4a…0a50 at0005 = EOL // 0xa4f @0x5
0x0a4a…0a50 }
0x0a50…0a56 97ad 0880 ENDPROC
0x0a50…0a56 LineComalBin {
0x0a50…0a56 ptr = 0x97ad // 0xa50 @0x0
0x0a50…0a56 lno = 0x0370 // 0xa52 @0x2
0x0a50…0a56 at0004 = ╱9f╱ ENDPROC ╱ // 0xa54 @0x4
0x0a50…0a56 at0005 = EOL // 0xa55 @0x5
0x0a50…0a56 }
0x0a56…0a60 97b7 0890 PROC BUND
0x0a56…0a60 LineComalBin {
0x0a56…0a60 ptr = 0x97b7 // 0xa56 @0x0
0x0a56…0a60 lno = 0x037a // 0xa58 @0x2
0x0a56…0a60 at0004 = ╱9e╱ PROC ╱ // 0xa5a @0x4
0x0a56…0a60 at0005 = ╱42╱B╱ // 0xa5b @0x5
0x0a56…0a60 at0006 = ╱55╱U╱ // 0xa5c @0x6
0x0a56…0a60 at0007 = ╱4e╱N╱ // 0xa5d @0x7
0x0a56…0a60 at0008 = ╱44╱D╱ // 0xa5e @0x8
0x0a56…0a60 at0009 = EOL // 0xa5f @0x9
0x0a56…0a60 }
0x0a60…0aa5 97fc 0900 FOR LINIE=LINIE+1 TO 13*(1+2*(TYPE=2))*SIDENR
0x0a60…0aa5 LineComalBin {
0x0a60…0aa5 ptr = 0x97fc // 0xa60 @0x0
0x0a60…0aa5 lno = 0x0384 // 0xa62 @0x2
0x0a60…0aa5 at0004 = ╱83╱ FOR ╱ // 0xa64 @0x4
0x0a60…0aa5 at0005 = ╱4c╱L╱ // 0xa65 @0x5
0x0a60…0aa5 at0006 = ╱49╱I╱ // 0xa66 @0x6
0x0a60…0aa5 at0007 = ╱4e╱N╱ // 0xa67 @0x7
0x0a60…0aa5 at0008 = ╱49╱I╱ // 0xa68 @0x8
0x0a60…0aa5 at0009 = ╱45╱E╱ // 0xa69 @0x9
0x0a60…0aa5 at000a = ╱dc╱=╱ // 0xa6a @0xa
0x0a60…0aa5 at000b = ╱4c╱L╱ // 0xa6b @0xb
0x0a60…0aa5 at000c = ╱49╱I╱ // 0xa6c @0xc
0x0a60…0aa5 at000d = ╱4e╱N╱ // 0xa6d @0xd
0x0a60…0aa5 at000e = ╱49╱I╱ // 0xa6e @0xe
0x0a60…0aa5 at000f = ╱45╱E╱ // 0xa6f @0xf
0x0a60…0aa5 at0010 = ╱e2╱+╱ // 0xa70 @0x10
0x0a60…0aa5 at0011 = ╱31╱1╱ // 0xa71 @0x11
0x0a60…0aa5 at0012 = ╱fe00008001╱ // 0xa72 @0x12
0x0a60…0aa5 at0017 = ╱b7╱ TO ╱ // 0xa77 @0x17
0x0a60…0aa5 at0018 = ╱31╱1╱ // 0xa78 @0x18
0x0a60…0aa5 at0019 = ╱33╱3╱ // 0xa79 @0x19
0x0a60…0aa5 at001a = ╱fe0000d004╱ // 0xa7a @0x1a
0x0a60…0aa5 at001f = ╱e4╱*╱ // 0xa7f @0x1f
0x0a60…0aa5 at0020 = ╱ed╱(╱ // 0xa80 @0x20
0x0a60…0aa5 at0021 = ╱31╱1╱ // 0xa81 @0x21
0x0a60…0aa5 at0022 = ╱fe00008001╱ // 0xa82 @0x22
0x0a60…0aa5 at0027 = ╱e2╱+╱ // 0xa87 @0x27
0x0a60…0aa5 at0028 = ╱32╱2╱ // 0xa88 @0x28
0x0a60…0aa5 at0029 = ╱fe00008002╱ // 0xa89 @0x29
0x0a60…0aa5 at002e = ╱e4╱*╱ // 0xa8e @0x2e
0x0a60…0aa5 at002f = ╱ed╱(╱ // 0xa8f @0x2f
0x0a60…0aa5 at0030 = ╱54╱T╱ // 0xa90 @0x30
0x0a60…0aa5 at0031 = ╱59╱Y╱ // 0xa91 @0x31
0x0a60…0aa5 at0032 = ╱50╱P╱ // 0xa92 @0x32
0x0a60…0aa5 at0033 = ╱45╱E╱ // 0xa93 @0x33
0x0a60…0aa5 at0034 = ╱dc╱=╱ // 0xa94 @0x34
0x0a60…0aa5 at0035 = ╱32╱2╱ // 0xa95 @0x35
0x0a60…0aa5 at0036 = ╱fe00008002╱ // 0xa96 @0x36
0x0a60…0aa5 at003b = ╱ee╱)╱ // 0xa9b @0x3b
0x0a60…0aa5 at003c = ╱ee╱)╱ // 0xa9c @0x3c
0x0a60…0aa5 at003d = ╱e4╱*╱ // 0xa9d @0x3d
0x0a60…0aa5 at003e = ╱53╱S╱ // 0xa9e @0x3e
0x0a60…0aa5 at003f = ╱49╱I╱ // 0xa9f @0x3f
0x0a60…0aa5 at0040 = ╱44╱D╱ // 0xaa0 @0x40
0x0a60…0aa5 at0041 = ╱45╱E╱ // 0xaa1 @0x41
0x0a60…0aa5 at0042 = ╱4e╱N╱ // 0xaa2 @0x42
0x0a60…0aa5 at0043 = ╱52╱R╱ // 0xaa3 @0x43
0x0a60…0aa5 at0044 = EOL // 0xaa4 @0x44
0x0a60…0aa5 }
0x0aa5…0ab7 980e 0910 IF TYPE=1 THEN
0x0aa5…0ab7 LineComalBin {
0x0aa5…0ab7 ptr = 0x980e // 0xaa5 @0x0
0x0aa5…0ab7 lno = 0x038e // 0xaa7 @0x2
0x0aa5…0ab7 at0004 = ╱9c╱ IF ╱ // 0xaa9 @0x4
0x0aa5…0ab7 at0005 = ╱54╱T╱ // 0xaaa @0x5
0x0aa5…0ab7 at0006 = ╱59╱Y╱ // 0xaab @0x6
0x0aa5…0ab7 at0007 = ╱50╱P╱ // 0xaac @0x7
0x0aa5…0ab7 at0008 = ╱45╱E╱ // 0xaad @0x8
0x0aa5…0ab7 at0009 = ╱dc╱=╱ // 0xaae @0x9
0x0aa5…0ab7 at000a = ╱31╱1╱ // 0xaaf @0xa
0x0aa5…0ab7 at000b = ╱fe00008001╱ // 0xab0 @0xb
0x0aa5…0ab7 at0010 = ╱b6╱ THEN ╱ // 0xab5 @0x10
0x0aa5…0ab7 at0011 = EOL // 0xab6 @0x11
0x0aa5…0ab7 }
0x0ab7…0ad2 9829 0920 PRINT CHR(10);CHR(10)
0x0ab7…0ad2 LineComalBin {
0x0ab7…0ad2 ptr = 0x9829 // 0xab7 @0x0
0x0ab7…0ad2 lno = 0x0398 // 0xab9 @0x2
0x0ab7…0ad2 at0004 = ╱92╱ PRINT ╱ // 0xabb @0x4
0x0ab7…0ad2 at0005 = ╱cf╱CHR╱ // 0xabc @0x5
0x0ab7…0ad2 at0006 = ╱ed╱(╱ // 0xabd @0x6
0x0ab7…0ad2 at0007 = ╱31╱1╱ // 0xabe @0x7
0x0ab7…0ad2 at0008 = ╱30╱0╱ // 0xabf @0x8
0x0ab7…0ad2 at0009 = ╱fe0000a004╱ // 0xac0 @0x9
0x0ab7…0ad2 at000e = ╱ee╱)╱ // 0xac5 @0xe
0x0ab7…0ad2 at000f = ╱eb╱;╱ // 0xac6 @0xf
0x0ab7…0ad2 at0010 = ╱cf╱CHR╱ // 0xac7 @0x10
0x0ab7…0ad2 at0011 = ╱ed╱(╱ // 0xac8 @0x11
0x0ab7…0ad2 at0012 = ╱31╱1╱ // 0xac9 @0x12
0x0ab7…0ad2 at0013 = ╱30╱0╱ // 0xaca @0x13
0x0ab7…0ad2 at0014 = ╱fe0000a004╱ // 0xacb @0x14
0x0ab7…0ad2 at0019 = ╱ee╱)╱ // 0xad0 @0x19
0x0ab7…0ad2 at001a = EOL // 0xad1 @0x1a
0x0ab7…0ad2 }
0x0ad2…0ad8 982f 0930 ELSE
0x0ad2…0ad8 LineComalBin {
0x0ad2…0ad8 ptr = 0x982f // 0xad2 @0x0
0x0ad2…0ad8 lno = 0x03a2 // 0xad4 @0x2
0x0ad2…0ad8 at0004 = ╱9a╱ ELSE ╱ // 0xad6 @0x4
0x0ad2…0ad8 at0005 = EOL // 0xad7 @0x5
0x0ad2…0ad8 }
0x0ad8…0ae1 9838 0940 PRINT " "
0x0ad8…0ae1 LineComalBin {
0x0ad8…0ae1 ptr = 0x9838 // 0xad8 @0x0
0x0ad8…0ae1 lno = 0x03ac // 0xada @0x2
0x0ad8…0ae1 at0004 = ╱92╱ PRINT ╱ // 0xadc @0x4
0x0ad8…0ae1 at0005 = ╱22╱"╱ // 0xadd @0x5
0x0ad8…0ae1 at0006 = ╱20╱…╱ // 0xade @0x6
0x0ad8…0ae1 at0007 = ╱22╱"╱ // 0xadf @0x7
0x0ad8…0ae1 at0008 = EOL // 0xae0 @0x8
0x0ad8…0ae1 }
0x0ae1…0ae7 983e 0950 ENDIF
0x0ae1…0ae7 LineComalBin {
0x0ae1…0ae7 ptr = 0x983e // 0xae1 @0x0
0x0ae1…0ae7 lno = 0x03b6 // 0xae3 @0x2
0x0ae1…0ae7 at0004 = ╱9b╱ ENDIF ╱ // 0xae5 @0x4
0x0ae1…0ae7 at0005 = EOL // 0xae6 @0x5
0x0ae1…0ae7 }
0x0ae7…0af2 9849 0960 NEXT LINIE
0x0ae7…0af2 LineComalBin {
0x0ae7…0af2 ptr = 0x9849 // 0xae7 @0x0
0x0ae7…0af2 lno = 0x03c0 // 0xae9 @0x2
0x0ae7…0af2 at0004 = ╱84╱ NEXT ╱ // 0xaeb @0x4
0x0ae7…0af2 at0005 = ╱4c╱L╱ // 0xaec @0x5
0x0ae7…0af2 at0006 = ╱49╱I╱ // 0xaed @0x6
0x0ae7…0af2 at0007 = ╱4e╱N╱ // 0xaee @0x7
0x0ae7…0af2 at0008 = ╱49╱I╱ // 0xaef @0x8
0x0ae7…0af2 at0009 = ╱45╱E╱ // 0xaf0 @0x9
0x0ae7…0af2 at000a = EOL // 0xaf1 @0xa
0x0ae7…0af2 }
0x0af2…0b04 985b 0970 IF TYPE=1 THEN
0x0af2…0b04 LineComalBin {
0x0af2…0b04 ptr = 0x985b // 0xaf2 @0x0
0x0af2…0b04 lno = 0x03ca // 0xaf4 @0x2
0x0af2…0b04 at0004 = ╱9c╱ IF ╱ // 0xaf6 @0x4
0x0af2…0b04 at0005 = ╱54╱T╱ // 0xaf7 @0x5
0x0af2…0b04 at0006 = ╱59╱Y╱ // 0xaf8 @0x6
0x0af2…0b04 at0007 = ╱50╱P╱ // 0xaf9 @0x7
0x0af2…0b04 at0008 = ╱45╱E╱ // 0xafa @0x8
0x0af2…0b04 at0009 = ╱dc╱=╱ // 0xafb @0x9
0x0af2…0b04 at000a = ╱31╱1╱ // 0xafc @0xa
0x0af2…0b04 at000b = ╱fe00008001╱ // 0xafd @0xb
0x0af2…0b04 at0010 = ╱b6╱ THEN ╱ // 0xb02 @0x10
0x0af2…0b04 at0011 = EOL // 0xb03 @0x11
0x0af2…0b04 }
0x0b04…0b27 987e 0980 EXEC TUD(SUM$,TAL1$,1,0)
0x0b04…0b27 LineComalBin {
0x0b04…0b27 ptr = 0x987e // 0xb04 @0x0
0x0b04…0b27 lno = 0x03d4 // 0xb06 @0x2
0x0b04…0b27 at0004 = ╱9d╱ EXEC ╱ // 0xb08 @0x4
0x0b04…0b27 at0005 = ╱54╱T╱ // 0xb09 @0x5
0x0b04…0b27 at0006 = ╱55╱U╱ // 0xb0a @0x6
0x0b04…0b27 at0007 = ╱44╱D╱ // 0xb0b @0x7
0x0b04…0b27 at0008 = ╱ed╱(╱ // 0xb0c @0x8
0x0b04…0b27 at0009 = ╱53╱S╱ // 0xb0d @0x9
0x0b04…0b27 at000a = ╱55╱U╱ // 0xb0e @0xa
0x0b04…0b27 at000b = ╱4d╱M╱ // 0xb0f @0xb
0x0b04…0b27 at000c = ╱ef╱$╱ // 0xb10 @0xc
0x0b04…0b27 at000d = ╱ec╱,╱ // 0xb11 @0xd
0x0b04…0b27 at000e = ╱54╱T╱ // 0xb12 @0xe
0x0b04…0b27 at000f = ╱41╱A╱ // 0xb13 @0xf
0x0b04…0b27 at0010 = ╱4c╱L╱ // 0xb14 @0x10
0x0b04…0b27 at0011 = ╱31╱1╱ // 0xb15 @0x11
0x0b04…0b27 at0012 = ╱ef╱$╱ // 0xb16 @0x12
0x0b04…0b27 at0013 = ╱ec╱,╱ // 0xb17 @0x13
0x0b04…0b27 at0014 = ╱31╱1╱ // 0xb18 @0x14
0x0b04…0b27 at0015 = ╱fe00008001╱ // 0xb19 @0x15
0x0b04…0b27 at001a = ╱ec╱,╱ // 0xb1e @0x1a
0x0b04…0b27 at001b = ╱30╱0╱ // 0xb1f @0x1b
0x0b04…0b27 at001c = ╱fe00000000╱ // 0xb20 @0x1c
0x0b04…0b27 at0021 = ╱ee╱)╱ // 0xb25 @0x21
0x0b04…0b27 at0022 = EOL // 0xb26 @0x22
0x0b04…0b27 }
0x0b27…0b4b 98a2 0990 EXEC TUD(SUM1$,TAL2$,1,0)
0x0b27…0b4b LineComalBin {
0x0b27…0b4b ptr = 0x98a2 // 0xb27 @0x0
0x0b27…0b4b lno = 0x03de // 0xb29 @0x2
0x0b27…0b4b at0004 = ╱9d╱ EXEC ╱ // 0xb2b @0x4
0x0b27…0b4b at0005 = ╱54╱T╱ // 0xb2c @0x5
0x0b27…0b4b at0006 = ╱55╱U╱ // 0xb2d @0x6
0x0b27…0b4b at0007 = ╱44╱D╱ // 0xb2e @0x7
0x0b27…0b4b at0008 = ╱ed╱(╱ // 0xb2f @0x8
0x0b27…0b4b at0009 = ╱53╱S╱ // 0xb30 @0x9
0x0b27…0b4b at000a = ╱55╱U╱ // 0xb31 @0xa
0x0b27…0b4b at000b = ╱4d╱M╱ // 0xb32 @0xb
0x0b27…0b4b at000c = ╱31╱1╱ // 0xb33 @0xc
0x0b27…0b4b at000d = ╱ef╱$╱ // 0xb34 @0xd
0x0b27…0b4b at000e = ╱ec╱,╱ // 0xb35 @0xe
0x0b27…0b4b at000f = ╱54╱T╱ // 0xb36 @0xf
0x0b27…0b4b at0010 = ╱41╱A╱ // 0xb37 @0x10
0x0b27…0b4b at0011 = ╱4c╱L╱ // 0xb38 @0x11
0x0b27…0b4b at0012 = ╱32╱2╱ // 0xb39 @0x12
0x0b27…0b4b at0013 = ╱ef╱$╱ // 0xb3a @0x13
0x0b27…0b4b at0014 = ╱ec╱,╱ // 0xb3b @0x14
0x0b27…0b4b at0015 = ╱31╱1╱ // 0xb3c @0x15
0x0b27…0b4b at0016 = ╱fe00008001╱ // 0xb3d @0x16
0x0b27…0b4b at001b = ╱ec╱,╱ // 0xb42 @0x1b
0x0b27…0b4b at001c = ╱30╱0╱ // 0xb43 @0x1c
0x0b27…0b4b at001d = ╱fe00000000╱ // 0xb44 @0x1d
0x0b27…0b4b at0022 = ╱ee╱)╱ // 0xb49 @0x22
0x0b27…0b4b at0023 = EOL // 0xb4a @0x23
0x0b27…0b4b }
0x0b4b…0b6f 98c6 1000 EXEC TUD(SUM3$,TAL3$,1,0)
0x0b4b…0b6f LineComalBin {
0x0b4b…0b6f ptr = 0x98c6 // 0xb4b @0x0
0x0b4b…0b6f lno = 0x03e8 // 0xb4d @0x2
0x0b4b…0b6f at0004 = ╱9d╱ EXEC ╱ // 0xb4f @0x4
0x0b4b…0b6f at0005 = ╱54╱T╱ // 0xb50 @0x5
0x0b4b…0b6f at0006 = ╱55╱U╱ // 0xb51 @0x6
0x0b4b…0b6f at0007 = ╱44╱D╱ // 0xb52 @0x7
0x0b4b…0b6f at0008 = ╱ed╱(╱ // 0xb53 @0x8
0x0b4b…0b6f at0009 = ╱53╱S╱ // 0xb54 @0x9
0x0b4b…0b6f at000a = ╱55╱U╱ // 0xb55 @0xa
0x0b4b…0b6f at000b = ╱4d╱M╱ // 0xb56 @0xb
0x0b4b…0b6f at000c = ╱33╱3╱ // 0xb57 @0xc
0x0b4b…0b6f at000d = ╱ef╱$╱ // 0xb58 @0xd
0x0b4b…0b6f at000e = ╱ec╱,╱ // 0xb59 @0xe
0x0b4b…0b6f at000f = ╱54╱T╱ // 0xb5a @0xf
0x0b4b…0b6f at0010 = ╱41╱A╱ // 0xb5b @0x10
0x0b4b…0b6f at0011 = ╱4c╱L╱ // 0xb5c @0x11
0x0b4b…0b6f at0012 = ╱33╱3╱ // 0xb5d @0x12
0x0b4b…0b6f at0013 = ╱ef╱$╱ // 0xb5e @0x13
0x0b4b…0b6f at0014 = ╱ec╱,╱ // 0xb5f @0x14
0x0b4b…0b6f at0015 = ╱31╱1╱ // 0xb60 @0x15
0x0b4b…0b6f at0016 = ╱fe00008001╱ // 0xb61 @0x16
0x0b4b…0b6f at001b = ╱ec╱,╱ // 0xb66 @0x1b
0x0b4b…0b6f at001c = ╱30╱0╱ // 0xb67 @0x1c
0x0b4b…0b6f at001d = ╱fe00000000╱ // 0xb68 @0x1d
0x0b4b…0b6f at0022 = ╱ee╱)╱ // 0xb6d @0x22
0x0b4b…0b6f at0023 = EOL // 0xb6e @0x23
0x0b4b…0b6f }
0x0b6f…0b93 98ea 1010 EXEC TUD(SUM5$,TAL4$,1,0)
0x0b6f…0b93 LineComalBin {
0x0b6f…0b93 ptr = 0x98ea // 0xb6f @0x0
0x0b6f…0b93 lno = 0x03f2 // 0xb71 @0x2
0x0b6f…0b93 at0004 = ╱9d╱ EXEC ╱ // 0xb73 @0x4
0x0b6f…0b93 at0005 = ╱54╱T╱ // 0xb74 @0x5
0x0b6f…0b93 at0006 = ╱55╱U╱ // 0xb75 @0x6
0x0b6f…0b93 at0007 = ╱44╱D╱ // 0xb76 @0x7
0x0b6f…0b93 at0008 = ╱ed╱(╱ // 0xb77 @0x8
0x0b6f…0b93 at0009 = ╱53╱S╱ // 0xb78 @0x9
0x0b6f…0b93 at000a = ╱55╱U╱ // 0xb79 @0xa
0x0b6f…0b93 at000b = ╱4d╱M╱ // 0xb7a @0xb
0x0b6f…0b93 at000c = ╱35╱5╱ // 0xb7b @0xc
0x0b6f…0b93 at000d = ╱ef╱$╱ // 0xb7c @0xd
0x0b6f…0b93 at000e = ╱ec╱,╱ // 0xb7d @0xe
0x0b6f…0b93 at000f = ╱54╱T╱ // 0xb7e @0xf
0x0b6f…0b93 at0010 = ╱41╱A╱ // 0xb7f @0x10
0x0b6f…0b93 at0011 = ╱4c╱L╱ // 0xb80 @0x11
0x0b6f…0b93 at0012 = ╱34╱4╱ // 0xb81 @0x12
0x0b6f…0b93 at0013 = ╱ef╱$╱ // 0xb82 @0x13
0x0b6f…0b93 at0014 = ╱ec╱,╱ // 0xb83 @0x14
0x0b6f…0b93 at0015 = ╱31╱1╱ // 0xb84 @0x15
0x0b6f…0b93 at0016 = ╱fe00008001╱ // 0xb85 @0x16
0x0b6f…0b93 at001b = ╱ec╱,╱ // 0xb8a @0x1b
0x0b6f…0b93 at001c = ╱30╱0╱ // 0xb8b @0x1c
0x0b6f…0b93 at001d = ╱fe00000000╱ // 0xb8c @0x1d
0x0b6f…0b93 at0022 = ╱ee╱)╱ // 0xb91 @0x22
0x0b6f…0b93 at0023 = EOL // 0xb92 @0x23
0x0b6f…0b93 }
0x0b93…0be4 993b 1020 PRINT TAB(10);CHR(14);"Total";CHR(15);TAB(21);TAL1$,TAB(35);TAL2$;
0x0b93…0be4 LineComalBin {
0x0b93…0be4 ptr = 0x993b // 0xb93 @0x0
0x0b93…0be4 lno = 0x03fc // 0xb95 @0x2
0x0b93…0be4 at0004 = ╱92╱ PRINT ╱ // 0xb97 @0x4
0x0b93…0be4 at0005 = ╱d2╱TAB╱ // 0xb98 @0x5
0x0b93…0be4 at0006 = ╱ed╱(╱ // 0xb99 @0x6
0x0b93…0be4 at0007 = ╱31╱1╱ // 0xb9a @0x7
0x0b93…0be4 at0008 = ╱30╱0╱ // 0xb9b @0x8
0x0b93…0be4 at0009 = ╱fe0000a004╱ // 0xb9c @0x9
0x0b93…0be4 at000e = ╱ee╱)╱ // 0xba1 @0xe
0x0b93…0be4 at000f = ╱eb╱;╱ // 0xba2 @0xf
0x0b93…0be4 at0010 = ╱cf╱CHR╱ // 0xba3 @0x10
0x0b93…0be4 at0011 = ╱ed╱(╱ // 0xba4 @0x11
0x0b93…0be4 at0012 = ╱31╱1╱ // 0xba5 @0x12
0x0b93…0be4 at0013 = ╱34╱4╱ // 0xba6 @0x13
0x0b93…0be4 at0014 = ╱fe0000e004╱ // 0xba7 @0x14
0x0b93…0be4 at0019 = ╱ee╱)╱ // 0xbac @0x19
0x0b93…0be4 at001a = ╱eb╱;╱ // 0xbad @0x1a
0x0b93…0be4 at001b = ╱22╱"╱ // 0xbae @0x1b
0x0b93…0be4 at001c = ╱54╱T╱ // 0xbaf @0x1c
0x0b93…0be4 at001d = ╱6f╱o╱ // 0xbb0 @0x1d
0x0b93…0be4 at001e = ╱74╱t╱ // 0xbb1 @0x1e
0x0b93…0be4 at001f = ╱61╱a╱ // 0xbb2 @0x1f
0x0b93…0be4 at0020 = ╱6c╱l╱ // 0xbb3 @0x20
0x0b93…0be4 at0021 = ╱22╱"╱ // 0xbb4 @0x21
0x0b93…0be4 at0022 = ╱eb╱;╱ // 0xbb5 @0x22
0x0b93…0be4 at0023 = ╱cf╱CHR╱ // 0xbb6 @0x23
0x0b93…0be4 at0024 = ╱ed╱(╱ // 0xbb7 @0x24
0x0b93…0be4 at0025 = ╱31╱1╱ // 0xbb8 @0x25
0x0b93…0be4 at0026 = ╱35╱5╱ // 0xbb9 @0x26
0x0b93…0be4 at0027 = ╱fe0000f004╱ // 0xbba @0x27
0x0b93…0be4 at002c = ╱ee╱)╱ // 0xbbf @0x2c
0x0b93…0be4 at002d = ╱eb╱;╱ // 0xbc0 @0x2d
0x0b93…0be4 at002e = ╱d2╱TAB╱ // 0xbc1 @0x2e
0x0b93…0be4 at002f = ╱ed╱(╱ // 0xbc2 @0x2f
0x0b93…0be4 at0030 = ╱32╱2╱ // 0xbc3 @0x30
0x0b93…0be4 at0031 = ╱31╱1╱ // 0xbc4 @0x31
0x0b93…0be4 at0032 = ╱fe0000a805╱ // 0xbc5 @0x32
0x0b93…0be4 at0037 = ╱ee╱)╱ // 0xbca @0x37
0x0b93…0be4 at0038 = ╱eb╱;╱ // 0xbcb @0x38
0x0b93…0be4 at0039 = ╱54╱T╱ // 0xbcc @0x39
0x0b93…0be4 at003a = ╱41╱A╱ // 0xbcd @0x3a
0x0b93…0be4 at003b = ╱4c╱L╱ // 0xbce @0x3b
0x0b93…0be4 at003c = ╱31╱1╱ // 0xbcf @0x3c
0x0b93…0be4 at003d = ╱ef╱$╱ // 0xbd0 @0x3d
0x0b93…0be4 at003e = ╱ec╱,╱ // 0xbd1 @0x3e
0x0b93…0be4 at003f = ╱d2╱TAB╱ // 0xbd2 @0x3f
0x0b93…0be4 at0040 = ╱ed╱(╱ // 0xbd3 @0x40
0x0b93…0be4 at0041 = ╱33╱3╱ // 0xbd4 @0x41
0x0b93…0be4 at0042 = ╱35╱5╱ // 0xbd5 @0x42
0x0b93…0be4 at0043 = ╱fe00008c06╱ // 0xbd6 @0x43
0x0b93…0be4 at0048 = ╱ee╱)╱ // 0xbdb @0x48
0x0b93…0be4 at0049 = ╱eb╱;╱ // 0xbdc @0x49
0x0b93…0be4 at004a = ╱54╱T╱ // 0xbdd @0x4a
0x0b93…0be4 at004b = ╱41╱A╱ // 0xbde @0x4b
0x0b93…0be4 at004c = ╱4c╱L╱ // 0xbdf @0x4c
0x0b93…0be4 at004d = ╱32╱2╱ // 0xbe0 @0x4d
0x0b93…0be4 at004e = ╱ef╱$╱ // 0xbe1 @0x4e
0x0b93…0be4 at004f = ╱eb╱;╱ // 0xbe2 @0x4f
0x0b93…0be4 at0050 = EOL // 0xbe3 @0x50
0x0b93…0be4 }
0x0be4…0c0b 9962 1030 PRINT TAB(49);TAL3$;TAB(63);TAL4$
0x0be4…0c0b LineComalBin {
0x0be4…0c0b ptr = 0x9962 // 0xbe4 @0x0
0x0be4…0c0b lno = 0x0406 // 0xbe6 @0x2
0x0be4…0c0b at0004 = ╱92╱ PRINT ╱ // 0xbe8 @0x4
0x0be4…0c0b at0005 = ╱d2╱TAB╱ // 0xbe9 @0x5
0x0be4…0c0b at0006 = ╱ed╱(╱ // 0xbea @0x6
0x0be4…0c0b at0007 = ╱34╱4╱ // 0xbeb @0x7
0x0be4…0c0b at0008 = ╱39╱9╱ // 0xbec @0x8
0x0be4…0c0b at0009 = ╱fe0000c406╱ // 0xbed @0x9
0x0be4…0c0b at000e = ╱ee╱)╱ // 0xbf2 @0xe
0x0be4…0c0b at000f = ╱eb╱;╱ // 0xbf3 @0xf
0x0be4…0c0b at0010 = ╱54╱T╱ // 0xbf4 @0x10
0x0be4…0c0b at0011 = ╱41╱A╱ // 0xbf5 @0x11
0x0be4…0c0b at0012 = ╱4c╱L╱ // 0xbf6 @0x12
0x0be4…0c0b at0013 = ╱33╱3╱ // 0xbf7 @0x13
0x0be4…0c0b at0014 = ╱ef╱$╱ // 0xbf8 @0x14
0x0be4…0c0b at0015 = ╱eb╱;╱ // 0xbf9 @0x15
0x0be4…0c0b at0016 = ╱d2╱TAB╱ // 0xbfa @0x16
0x0be4…0c0b at0017 = ╱ed╱(╱ // 0xbfb @0x17
0x0be4…0c0b at0018 = ╱36╱6╱ // 0xbfc @0x18
0x0be4…0c0b at0019 = ╱33╱3╱ // 0xbfd @0x19
0x0be4…0c0b at001a = ╱fe0000fc06╱ // 0xbfe @0x1a
0x0be4…0c0b at001f = ╱ee╱)╱ // 0xc03 @0x1f
0x0be4…0c0b at0020 = ╱eb╱;╱ // 0xc04 @0x20
0x0be4…0c0b at0021 = ╱54╱T╱ // 0xc05 @0x21
0x0be4…0c0b at0022 = ╱41╱A╱ // 0xc06 @0x22
0x0be4…0c0b at0023 = ╱4c╱L╱ // 0xc07 @0x23
0x0be4…0c0b at0024 = ╱34╱4╱ // 0xc08 @0x24
0x0be4…0c0b at0025 = ╱ef╱$╱ // 0xc09 @0x25
0x0be4…0c0b at0026 = EOL // 0xc0a @0x26
0x0be4…0c0b }
0x0c0b…0c2f 9986 1040 EXEC TUD(SUM2$,TAL1$,1,0)
0x0c0b…0c2f LineComalBin {
0x0c0b…0c2f ptr = 0x9986 // 0xc0b @0x0
0x0c0b…0c2f lno = 0x0410 // 0xc0d @0x2
0x0c0b…0c2f at0004 = ╱9d╱ EXEC ╱ // 0xc0f @0x4
0x0c0b…0c2f at0005 = ╱54╱T╱ // 0xc10 @0x5
0x0c0b…0c2f at0006 = ╱55╱U╱ // 0xc11 @0x6
0x0c0b…0c2f at0007 = ╱44╱D╱ // 0xc12 @0x7
0x0c0b…0c2f at0008 = ╱ed╱(╱ // 0xc13 @0x8
0x0c0b…0c2f at0009 = ╱53╱S╱ // 0xc14 @0x9
0x0c0b…0c2f at000a = ╱55╱U╱ // 0xc15 @0xa
0x0c0b…0c2f at000b = ╱4d╱M╱ // 0xc16 @0xb
0x0c0b…0c2f at000c = ╱32╱2╱ // 0xc17 @0xc
0x0c0b…0c2f at000d = ╱ef╱$╱ // 0xc18 @0xd
0x0c0b…0c2f at000e = ╱ec╱,╱ // 0xc19 @0xe
0x0c0b…0c2f at000f = ╱54╱T╱ // 0xc1a @0xf
0x0c0b…0c2f at0010 = ╱41╱A╱ // 0xc1b @0x10
0x0c0b…0c2f at0011 = ╱4c╱L╱ // 0xc1c @0x11
0x0c0b…0c2f at0012 = ╱31╱1╱ // 0xc1d @0x12
0x0c0b…0c2f at0013 = ╱ef╱$╱ // 0xc1e @0x13
0x0c0b…0c2f at0014 = ╱ec╱,╱ // 0xc1f @0x14
0x0c0b…0c2f at0015 = ╱31╱1╱ // 0xc20 @0x15
0x0c0b…0c2f at0016 = ╱fe00008001╱ // 0xc21 @0x16
0x0c0b…0c2f at001b = ╱ec╱,╱ // 0xc26 @0x1b
0x0c0b…0c2f at001c = ╱30╱0╱ // 0xc27 @0x1c
0x0c0b…0c2f at001d = ╱fe00000000╱ // 0xc28 @0x1d
0x0c0b…0c2f at0022 = ╱ee╱)╱ // 0xc2d @0x22
0x0c0b…0c2f at0023 = EOL // 0xc2e @0x23
0x0c0b…0c2f }
0x0c2f…0c53 99aa 1050 EXEC TUD(SUM4$,TAL2$,1,0)
0x0c2f…0c53 LineComalBin {
0x0c2f…0c53 ptr = 0x99aa // 0xc2f @0x0
0x0c2f…0c53 lno = 0x041a // 0xc31 @0x2
0x0c2f…0c53 at0004 = ╱9d╱ EXEC ╱ // 0xc33 @0x4
0x0c2f…0c53 at0005 = ╱54╱T╱ // 0xc34 @0x5
0x0c2f…0c53 at0006 = ╱55╱U╱ // 0xc35 @0x6
0x0c2f…0c53 at0007 = ╱44╱D╱ // 0xc36 @0x7
0x0c2f…0c53 at0008 = ╱ed╱(╱ // 0xc37 @0x8
0x0c2f…0c53 at0009 = ╱53╱S╱ // 0xc38 @0x9
0x0c2f…0c53 at000a = ╱55╱U╱ // 0xc39 @0xa
0x0c2f…0c53 at000b = ╱4d╱M╱ // 0xc3a @0xb
0x0c2f…0c53 at000c = ╱34╱4╱ // 0xc3b @0xc
0x0c2f…0c53 at000d = ╱ef╱$╱ // 0xc3c @0xd
0x0c2f…0c53 at000e = ╱ec╱,╱ // 0xc3d @0xe
0x0c2f…0c53 at000f = ╱54╱T╱ // 0xc3e @0xf
0x0c2f…0c53 at0010 = ╱41╱A╱ // 0xc3f @0x10
0x0c2f…0c53 at0011 = ╱4c╱L╱ // 0xc40 @0x11
0x0c2f…0c53 at0012 = ╱32╱2╱ // 0xc41 @0x12
0x0c2f…0c53 at0013 = ╱ef╱$╱ // 0xc42 @0x13
0x0c2f…0c53 at0014 = ╱ec╱,╱ // 0xc43 @0x14
0x0c2f…0c53 at0015 = ╱31╱1╱ // 0xc44 @0x15
0x0c2f…0c53 at0016 = ╱fe00008001╱ // 0xc45 @0x16
0x0c2f…0c53 at001b = ╱ec╱,╱ // 0xc4a @0x1b
0x0c2f…0c53 at001c = ╱30╱0╱ // 0xc4b @0x1c
0x0c2f…0c53 at001d = ╱fe00000000╱ // 0xc4c @0x1d
0x0c2f…0c53 at0022 = ╱ee╱)╱ // 0xc51 @0x22
0x0c2f…0c53 at0023 = EOL // 0xc52 @0x23
0x0c2f…0c53 }
0x0c53…0c77 99ce 1060 EXEC TUD(SUM6$,TAL3$,1,0)
0x0c53…0c77 LineComalBin {
0x0c53…0c77 ptr = 0x99ce // 0xc53 @0x0
0x0c53…0c77 lno = 0x0424 // 0xc55 @0x2
0x0c53…0c77 at0004 = ╱9d╱ EXEC ╱ // 0xc57 @0x4
0x0c53…0c77 at0005 = ╱54╱T╱ // 0xc58 @0x5
0x0c53…0c77 at0006 = ╱55╱U╱ // 0xc59 @0x6
0x0c53…0c77 at0007 = ╱44╱D╱ // 0xc5a @0x7
0x0c53…0c77 at0008 = ╱ed╱(╱ // 0xc5b @0x8
0x0c53…0c77 at0009 = ╱53╱S╱ // 0xc5c @0x9
0x0c53…0c77 at000a = ╱55╱U╱ // 0xc5d @0xa
0x0c53…0c77 at000b = ╱4d╱M╱ // 0xc5e @0xb
0x0c53…0c77 at000c = ╱36╱6╱ // 0xc5f @0xc
0x0c53…0c77 at000d = ╱ef╱$╱ // 0xc60 @0xd
0x0c53…0c77 at000e = ╱ec╱,╱ // 0xc61 @0xe
0x0c53…0c77 at000f = ╱54╱T╱ // 0xc62 @0xf
0x0c53…0c77 at0010 = ╱41╱A╱ // 0xc63 @0x10
0x0c53…0c77 at0011 = ╱4c╱L╱ // 0xc64 @0x11
0x0c53…0c77 at0012 = ╱33╱3╱ // 0xc65 @0x12
0x0c53…0c77 at0013 = ╱ef╱$╱ // 0xc66 @0x13
0x0c53…0c77 at0014 = ╱ec╱,╱ // 0xc67 @0x14
0x0c53…0c77 at0015 = ╱31╱1╱ // 0xc68 @0x15
0x0c53…0c77 at0016 = ╱fe00008001╱ // 0xc69 @0x16
0x0c53…0c77 at001b = ╱ec╱,╱ // 0xc6e @0x1b
0x0c53…0c77 at001c = ╱30╱0╱ // 0xc6f @0x1c
0x0c53…0c77 at001d = ╱fe00000000╱ // 0xc70 @0x1d
0x0c53…0c77 at0022 = ╱ee╱)╱ // 0xc75 @0x22
0x0c53…0c77 at0023 = EOL // 0xc76 @0x23
0x0c53…0c77 }
0x0c77…0caf 9a06 1070 PRINT TAB(38);TAL1$;TAB(52);TAL2$;TAB(66);TAL3$
0x0c77…0caf LineComalBin {
0x0c77…0caf ptr = 0x9a06 // 0xc77 @0x0
0x0c77…0caf lno = 0x042e // 0xc79 @0x2
0x0c77…0caf at0004 = ╱92╱ PRINT ╱ // 0xc7b @0x4
0x0c77…0caf at0005 = ╱d2╱TAB╱ // 0xc7c @0x5
0x0c77…0caf at0006 = ╱ed╱(╱ // 0xc7d @0x6
0x0c77…0caf at0007 = ╱33╱3╱ // 0xc7e @0x7
0x0c77…0caf at0008 = ╱38╱8╱ // 0xc7f @0x8
0x0c77…0caf at0009 = ╱fe00009806╱ // 0xc80 @0x9
0x0c77…0caf at000e = ╱ee╱)╱ // 0xc85 @0xe
0x0c77…0caf at000f = ╱eb╱;╱ // 0xc86 @0xf
0x0c77…0caf at0010 = ╱54╱T╱ // 0xc87 @0x10
0x0c77…0caf at0011 = ╱41╱A╱ // 0xc88 @0x11
0x0c77…0caf at0012 = ╱4c╱L╱ // 0xc89 @0x12
0x0c77…0caf at0013 = ╱31╱1╱ // 0xc8a @0x13
0x0c77…0caf at0014 = ╱ef╱$╱ // 0xc8b @0x14
0x0c77…0caf at0015 = ╱eb╱;╱ // 0xc8c @0x15
0x0c77…0caf at0016 = ╱d2╱TAB╱ // 0xc8d @0x16
0x0c77…0caf at0017 = ╱ed╱(╱ // 0xc8e @0x17
0x0c77…0caf at0018 = ╱35╱5╱ // 0xc8f @0x18
0x0c77…0caf at0019 = ╱32╱2╱ // 0xc90 @0x19
0x0c77…0caf at001a = ╱fe0000d006╱ // 0xc91 @0x1a
0x0c77…0caf at001f = ╱ee╱)╱ // 0xc96 @0x1f
0x0c77…0caf at0020 = ╱eb╱;╱ // 0xc97 @0x20
0x0c77…0caf at0021 = ╱54╱T╱ // 0xc98 @0x21
0x0c77…0caf at0022 = ╱41╱A╱ // 0xc99 @0x22
0x0c77…0caf at0023 = ╱4c╱L╱ // 0xc9a @0x23
0x0c77…0caf at0024 = ╱32╱2╱ // 0xc9b @0x24
0x0c77…0caf at0025 = ╱ef╱$╱ // 0xc9c @0x25
0x0c77…0caf at0026 = ╱eb╱;╱ // 0xc9d @0x26
0x0c77…0caf at0027 = ╱d2╱TAB╱ // 0xc9e @0x27
0x0c77…0caf at0028 = ╱ed╱(╱ // 0xc9f @0x28
0x0c77…0caf at0029 = ╱36╱6╱ // 0xca0 @0x29
0x0c77…0caf at002a = ╱36╱6╱ // 0xca1 @0x2a
0x0c77…0caf at002b = ╱fe00008407╱ // 0xca2 @0x2b
0x0c77…0caf at0030 = ╱ee╱)╱ // 0xca7 @0x30
0x0c77…0caf at0031 = ╱eb╱;╱ // 0xca8 @0x31
0x0c77…0caf at0032 = ╱54╱T╱ // 0xca9 @0x32
0x0c77…0caf at0033 = ╱41╱A╱ // 0xcaa @0x33
0x0c77…0caf at0034 = ╱4c╱L╱ // 0xcab @0x34
0x0c77…0caf at0035 = ╱33╱3╱ // 0xcac @0x35
0x0c77…0caf at0036 = ╱ef╱$╱ // 0xcad @0x36
0x0c77…0caf at0037 = EOL // 0xcae @0x37
0x0c77…0caf }
0x0caf…0cb5 9a0c 1090 ELSE
0x0caf…0cb5 LineComalBin {
0x0caf…0cb5 ptr = 0x9a0c // 0xcaf @0x0
0x0caf…0cb5 lno = 0x0442 // 0xcb1 @0x2
0x0caf…0cb5 at0004 = ╱9a╱ ELSE ╱ // 0xcb3 @0x4
0x0caf…0cb5 at0005 = EOL // 0xcb4 @0x5
0x0caf…0cb5 }
0x0cb5…0cdb 9a32 1100 PRINT CHR(10);CHR(10);CHR(10)
0x0cb5…0cdb LineComalBin {
0x0cb5…0cdb ptr = 0x9a32 // 0xcb5 @0x0
0x0cb5…0cdb lno = 0x044c // 0xcb7 @0x2
0x0cb5…0cdb at0004 = ╱92╱ PRINT ╱ // 0xcb9 @0x4
0x0cb5…0cdb at0005 = ╱cf╱CHR╱ // 0xcba @0x5
0x0cb5…0cdb at0006 = ╱ed╱(╱ // 0xcbb @0x6
0x0cb5…0cdb at0007 = ╱31╱1╱ // 0xcbc @0x7
0x0cb5…0cdb at0008 = ╱30╱0╱ // 0xcbd @0x8
0x0cb5…0cdb at0009 = ╱fe0000a004╱ // 0xcbe @0x9
0x0cb5…0cdb at000e = ╱ee╱)╱ // 0xcc3 @0xe
0x0cb5…0cdb at000f = ╱eb╱;╱ // 0xcc4 @0xf
0x0cb5…0cdb at0010 = ╱cf╱CHR╱ // 0xcc5 @0x10
0x0cb5…0cdb at0011 = ╱ed╱(╱ // 0xcc6 @0x11
0x0cb5…0cdb at0012 = ╱31╱1╱ // 0xcc7 @0x12
0x0cb5…0cdb at0013 = ╱30╱0╱ // 0xcc8 @0x13
0x0cb5…0cdb at0014 = ╱fe0000a004╱ // 0xcc9 @0x14
0x0cb5…0cdb at0019 = ╱ee╱)╱ // 0xcce @0x19
0x0cb5…0cdb at001a = ╱eb╱;╱ // 0xccf @0x1a
0x0cb5…0cdb at001b = ╱cf╱CHR╱ // 0xcd0 @0x1b
0x0cb5…0cdb at001c = ╱ed╱(╱ // 0xcd1 @0x1c
0x0cb5…0cdb at001d = ╱31╱1╱ // 0xcd2 @0x1d
0x0cb5…0cdb at001e = ╱30╱0╱ // 0xcd3 @0x1e
0x0cb5…0cdb at001f = ╱fe0000a004╱ // 0xcd4 @0x1f
0x0cb5…0cdb at0024 = ╱ee╱)╱ // 0xcd9 @0x24
0x0cb5…0cdb at0025 = EOL // 0xcda @0x25
0x0cb5…0cdb }
0x0cdb…0ce1 9a38 1120 ENDIF
0x0cdb…0ce1 LineComalBin {
0x0cdb…0ce1 ptr = 0x9a38 // 0xcdb @0x0
0x0cdb…0ce1 lno = 0x0460 // 0xcdd @0x2
0x0cdb…0ce1 at0004 = ╱9b╱ ENDIF ╱ // 0xcdf @0x4
0x0cdb…0ce1 at0005 = EOL // 0xce0 @0x5
0x0cdb…0ce1 }
0x0ce1…0ce7 9a3e 1130 ENDPROC
0x0ce1…0ce7 LineComalBin {
0x0ce1…0ce7 ptr = 0x9a3e // 0xce1 @0x0
0x0ce1…0ce7 lno = 0x046a // 0xce3 @0x2
0x0ce1…0ce7 at0004 = ╱9f╱ ENDPROC ╱ // 0xce5 @0x4
0x0ce1…0ce7 at0005 = EOL // 0xce6 @0x5
0x0ce1…0ce7 }
0x0ce7…0cf4 9a4b 1140 PROC UDSKRIV
0x0ce7…0cf4 LineComalBin {
0x0ce7…0cf4 ptr = 0x9a4b // 0xce7 @0x0
0x0ce7…0cf4 lno = 0x0474 // 0xce9 @0x2
0x0ce7…0cf4 at0004 = ╱9e╱ PROC ╱ // 0xceb @0x4
0x0ce7…0cf4 at0005 = ╱55╱U╱ // 0xcec @0x5
0x0ce7…0cf4 at0006 = ╱44╱D╱ // 0xced @0x6
0x0ce7…0cf4 at0007 = ╱53╱S╱ // 0xcee @0x7
0x0ce7…0cf4 at0008 = ╱4b╱K╱ // 0xcef @0x8
0x0ce7…0cf4 at0009 = ╱52╱R╱ // 0xcf0 @0x9
0x0ce7…0cf4 at000a = ╱49╱I╱ // 0xcf1 @0xa
0x0ce7…0cf4 at000b = ╱56╱V╱ // 0xcf2 @0xb
0x0ce7…0cf4 at000c = EOL // 0xcf3 @0xc
0x0ce7…0cf4 }
0x0cf4…0d00 9a57 1150 CASE TYPE OF
0x0cf4…0d00 LineComalBin {
0x0cf4…0d00 ptr = 0x9a57 // 0xcf4 @0x0
0x0cf4…0d00 lno = 0x047e // 0xcf6 @0x2
0x0cf4…0d00 at0004 = ╱a201╱ CASE ╱ // 0xcf8 @0x4
0x0cf4…0d00 at0006 = ╱54╱T╱ // 0xcfa @0x6
0x0cf4…0d00 at0007 = ╱59╱Y╱ // 0xcfb @0x7
0x0cf4…0d00 at0008 = ╱50╱P╱ // 0xcfc @0x8
0x0cf4…0d00 at0009 = ╱45╱E╱ // 0xcfd @0x9
0x0cf4…0d00 at000a = ╱ba╱ OF ╱ // 0xcfe @0xa
0x0cf4…0d00 at000b = EOL // 0xcff @0xb
0x0cf4…0d00 }
0x0d00…0d0d 9a64 1160 WHEN 1
0x0d00…0d0d LineComalBin {
0x0d00…0d0d ptr = 0x9a64 // 0xd00 @0x0
0x0d00…0d0d lno = 0x0488 // 0xd02 @0x2
0x0d00…0d0d at0004 = ╱a301╱ WHEN ╱ // 0xd04 @0x4
0x0d00…0d0d at0006 = ╱31╱1╱ // 0xd06 @0x6
0x0d00…0d0d at0007 = ╱fe00008001╱ // 0xd07 @0x7
0x0d00…0d0d at000c = EOL // 0xd0c @0xc
0x0d00…0d0d }
0x0d0d…0d39 9a90 1170 EXEC CALC(0,DSALDO1$,DSALDO2$,DSALDI$)
0x0d0d…0d39 LineComalBin {
0x0d0d…0d39 ptr = 0x9a90 // 0xd0d @0x0
0x0d0d…0d39 lno = 0x0492 // 0xd0f @0x2
0x0d0d…0d39 at0004 = ╱9d╱ EXEC ╱ // 0xd11 @0x4
0x0d0d…0d39 at0005 = ╱43╱C╱ // 0xd12 @0x5
0x0d0d…0d39 at0006 = ╱41╱A╱ // 0xd13 @0x6
0x0d0d…0d39 at0007 = ╱4c╱L╱ // 0xd14 @0x7
0x0d0d…0d39 at0008 = ╱43╱C╱ // 0xd15 @0x8
0x0d0d…0d39 at0009 = ╱ed╱(╱ // 0xd16 @0x9
0x0d0d…0d39 at000a = ╱30╱0╱ // 0xd17 @0xa
0x0d0d…0d39 at000b = ╱fe00000000╱ // 0xd18 @0xb
0x0d0d…0d39 at0010 = ╱ec╱,╱ // 0xd1d @0x10
0x0d0d…0d39 at0011 = ╱44╱D╱ // 0xd1e @0x11
0x0d0d…0d39 at0012 = ╱53╱S╱ // 0xd1f @0x12
0x0d0d…0d39 at0013 = ╱41╱A╱ // 0xd20 @0x13
0x0d0d…0d39 at0014 = ╱4c╱L╱ // 0xd21 @0x14
0x0d0d…0d39 at0015 = ╱44╱D╱ // 0xd22 @0x15
0x0d0d…0d39 at0016 = ╱4f╱O╱ // 0xd23 @0x16
0x0d0d…0d39 at0017 = ╱31╱1╱ // 0xd24 @0x17
0x0d0d…0d39 at0018 = ╱ef╱$╱ // 0xd25 @0x18
0x0d0d…0d39 at0019 = ╱ec╱,╱ // 0xd26 @0x19
0x0d0d…0d39 at001a = ╱44╱D╱ // 0xd27 @0x1a
0x0d0d…0d39 at001b = ╱53╱S╱ // 0xd28 @0x1b
0x0d0d…0d39 at001c = ╱41╱A╱ // 0xd29 @0x1c
0x0d0d…0d39 at001d = ╱4c╱L╱ // 0xd2a @0x1d
0x0d0d…0d39 at001e = ╱44╱D╱ // 0xd2b @0x1e
0x0d0d…0d39 at001f = ╱4f╱O╱ // 0xd2c @0x1f
0x0d0d…0d39 at0020 = ╱32╱2╱ // 0xd2d @0x20
0x0d0d…0d39 at0021 = ╱ef╱$╱ // 0xd2e @0x21
0x0d0d…0d39 at0022 = ╱ec╱,╱ // 0xd2f @0x22
0x0d0d…0d39 at0023 = ╱44╱D╱ // 0xd30 @0x23
0x0d0d…0d39 at0024 = ╱53╱S╱ // 0xd31 @0x24
0x0d0d…0d39 at0025 = ╱41╱A╱ // 0xd32 @0x25
0x0d0d…0d39 at0026 = ╱4c╱L╱ // 0xd33 @0x26
0x0d0d…0d39 at0027 = ╱44╱D╱ // 0xd34 @0x27
0x0d0d…0d39 at0028 = ╱49╱I╱ // 0xd35 @0x28
0x0d0d…0d39 at0029 = ╱ef╱$╱ // 0xd36 @0x29
0x0d0d…0d39 at002a = ╱ee╱)╱ // 0xd37 @0x2a
0x0d0d…0d39 at002b = EOL // 0xd38 @0x2b
0x0d0d…0d39 }
0x0d39…0d64 9abb 1180 EXEC CALC(0,DSALDI$,DSALDO3$,DSALDI$)
0x0d39…0d64 LineComalBin {
0x0d39…0d64 ptr = 0x9abb // 0xd39 @0x0
0x0d39…0d64 lno = 0x049c // 0xd3b @0x2
0x0d39…0d64 at0004 = ╱9d╱ EXEC ╱ // 0xd3d @0x4
0x0d39…0d64 at0005 = ╱43╱C╱ // 0xd3e @0x5
0x0d39…0d64 at0006 = ╱41╱A╱ // 0xd3f @0x6
0x0d39…0d64 at0007 = ╱4c╱L╱ // 0xd40 @0x7
0x0d39…0d64 at0008 = ╱43╱C╱ // 0xd41 @0x8
0x0d39…0d64 at0009 = ╱ed╱(╱ // 0xd42 @0x9
0x0d39…0d64 at000a = ╱30╱0╱ // 0xd43 @0xa
0x0d39…0d64 at000b = ╱fe00000000╱ // 0xd44 @0xb
0x0d39…0d64 at0010 = ╱ec╱,╱ // 0xd49 @0x10
0x0d39…0d64 at0011 = ╱44╱D╱ // 0xd4a @0x11
0x0d39…0d64 at0012 = ╱53╱S╱ // 0xd4b @0x12
0x0d39…0d64 at0013 = ╱41╱A╱ // 0xd4c @0x13
0x0d39…0d64 at0014 = ╱4c╱L╱ // 0xd4d @0x14
0x0d39…0d64 at0015 = ╱44╱D╱ // 0xd4e @0x15
0x0d39…0d64 at0016 = ╱49╱I╱ // 0xd4f @0x16
0x0d39…0d64 at0017 = ╱ef╱$╱ // 0xd50 @0x17
0x0d39…0d64 at0018 = ╱ec╱,╱ // 0xd51 @0x18
0x0d39…0d64 at0019 = ╱44╱D╱ // 0xd52 @0x19
0x0d39…0d64 at001a = ╱53╱S╱ // 0xd53 @0x1a
0x0d39…0d64 at001b = ╱41╱A╱ // 0xd54 @0x1b
0x0d39…0d64 at001c = ╱4c╱L╱ // 0xd55 @0x1c
0x0d39…0d64 at001d = ╱44╱D╱ // 0xd56 @0x1d
0x0d39…0d64 at001e = ╱4f╱O╱ // 0xd57 @0x1e
0x0d39…0d64 at001f = ╱33╱3╱ // 0xd58 @0x1f
0x0d39…0d64 at0020 = ╱ef╱$╱ // 0xd59 @0x20
0x0d39…0d64 at0021 = ╱ec╱,╱ // 0xd5a @0x21
0x0d39…0d64 at0022 = ╱44╱D╱ // 0xd5b @0x22
0x0d39…0d64 at0023 = ╱53╱S╱ // 0xd5c @0x23
0x0d39…0d64 at0024 = ╱41╱A╱ // 0xd5d @0x24
0x0d39…0d64 at0025 = ╱4c╱L╱ // 0xd5e @0x25
0x0d39…0d64 at0026 = ╱44╱D╱ // 0xd5f @0x26
0x0d39…0d64 at0027 = ╱49╱I╱ // 0xd60 @0x27
0x0d39…0d64 at0028 = ╱ef╱$╱ // 0xd61 @0x28
0x0d39…0d64 at0029 = ╱ee╱)╱ // 0xd62 @0x29
0x0d39…0d64 at002a = EOL // 0xd63 @0x2a
0x0d39…0d64 }
0x0d64…0d8f 9ae6 1190 EXEC CALC(0,DSALDI$,DSALDO4$,DSALDI$)
0x0d64…0d8f LineComalBin {
0x0d64…0d8f ptr = 0x9ae6 // 0xd64 @0x0
0x0d64…0d8f lno = 0x04a6 // 0xd66 @0x2
0x0d64…0d8f at0004 = ╱9d╱ EXEC ╱ // 0xd68 @0x4
0x0d64…0d8f at0005 = ╱43╱C╱ // 0xd69 @0x5
0x0d64…0d8f at0006 = ╱41╱A╱ // 0xd6a @0x6
0x0d64…0d8f at0007 = ╱4c╱L╱ // 0xd6b @0x7
0x0d64…0d8f at0008 = ╱43╱C╱ // 0xd6c @0x8
0x0d64…0d8f at0009 = ╱ed╱(╱ // 0xd6d @0x9
0x0d64…0d8f at000a = ╱30╱0╱ // 0xd6e @0xa
0x0d64…0d8f at000b = ╱fe00000000╱ // 0xd6f @0xb
0x0d64…0d8f at0010 = ╱ec╱,╱ // 0xd74 @0x10
0x0d64…0d8f at0011 = ╱44╱D╱ // 0xd75 @0x11
0x0d64…0d8f at0012 = ╱53╱S╱ // 0xd76 @0x12
0x0d64…0d8f at0013 = ╱41╱A╱ // 0xd77 @0x13
0x0d64…0d8f at0014 = ╱4c╱L╱ // 0xd78 @0x14
0x0d64…0d8f at0015 = ╱44╱D╱ // 0xd79 @0x15
0x0d64…0d8f at0016 = ╱49╱I╱ // 0xd7a @0x16
0x0d64…0d8f at0017 = ╱ef╱$╱ // 0xd7b @0x17
0x0d64…0d8f at0018 = ╱ec╱,╱ // 0xd7c @0x18
0x0d64…0d8f at0019 = ╱44╱D╱ // 0xd7d @0x19
0x0d64…0d8f at001a = ╱53╱S╱ // 0xd7e @0x1a
0x0d64…0d8f at001b = ╱41╱A╱ // 0xd7f @0x1b
0x0d64…0d8f at001c = ╱4c╱L╱ // 0xd80 @0x1c
0x0d64…0d8f at001d = ╱44╱D╱ // 0xd81 @0x1d
0x0d64…0d8f at001e = ╱4f╱O╱ // 0xd82 @0x1e
0x0d64…0d8f at001f = ╱34╱4╱ // 0xd83 @0x1f
0x0d64…0d8f at0020 = ╱ef╱$╱ // 0xd84 @0x20
0x0d64…0d8f at0021 = ╱ec╱,╱ // 0xd85 @0x21
0x0d64…0d8f at0022 = ╱44╱D╱ // 0xd86 @0x22
0x0d64…0d8f at0023 = ╱53╱S╱ // 0xd87 @0x23
0x0d64…0d8f at0024 = ╱41╱A╱ // 0xd88 @0x24
0x0d64…0d8f at0025 = ╱4c╱L╱ // 0xd89 @0x25
0x0d64…0d8f at0026 = ╱44╱D╱ // 0xd8a @0x26
0x0d64…0d8f at0027 = ╱49╱I╱ // 0xd8b @0x27
0x0d64…0d8f at0028 = ╱ef╱$╱ // 0xd8c @0x28
0x0d64…0d8f at0029 = ╱ee╱)╱ // 0xd8d @0x29
0x0d64…0d8f at002a = EOL // 0xd8e @0x2a
0x0d64…0d8f }
0x0d8f…0db3 9b0a 1200 EXEC CALC(0,SUM$,DSALDI$,SUM$)
0x0d8f…0db3 LineComalBin {
0x0d8f…0db3 ptr = 0x9b0a // 0xd8f @0x0
0x0d8f…0db3 lno = 0x04b0 // 0xd91 @0x2
0x0d8f…0db3 at0004 = ╱9d╱ EXEC ╱ // 0xd93 @0x4
0x0d8f…0db3 at0005 = ╱43╱C╱ // 0xd94 @0x5
0x0d8f…0db3 at0006 = ╱41╱A╱ // 0xd95 @0x6
0x0d8f…0db3 at0007 = ╱4c╱L╱ // 0xd96 @0x7
0x0d8f…0db3 at0008 = ╱43╱C╱ // 0xd97 @0x8
0x0d8f…0db3 at0009 = ╱ed╱(╱ // 0xd98 @0x9
0x0d8f…0db3 at000a = ╱30╱0╱ // 0xd99 @0xa
0x0d8f…0db3 at000b = ╱fe00000000╱ // 0xd9a @0xb
0x0d8f…0db3 at0010 = ╱ec╱,╱ // 0xd9f @0x10
0x0d8f…0db3 at0011 = ╱53╱S╱ // 0xda0 @0x11
0x0d8f…0db3 at0012 = ╱55╱U╱ // 0xda1 @0x12
0x0d8f…0db3 at0013 = ╱4d╱M╱ // 0xda2 @0x13
0x0d8f…0db3 at0014 = ╱ef╱$╱ // 0xda3 @0x14
0x0d8f…0db3 at0015 = ╱ec╱,╱ // 0xda4 @0x15
0x0d8f…0db3 at0016 = ╱44╱D╱ // 0xda5 @0x16
0x0d8f…0db3 at0017 = ╱53╱S╱ // 0xda6 @0x17
0x0d8f…0db3 at0018 = ╱41╱A╱ // 0xda7 @0x18
0x0d8f…0db3 at0019 = ╱4c╱L╱ // 0xda8 @0x19
0x0d8f…0db3 at001a = ╱44╱D╱ // 0xda9 @0x1a
0x0d8f…0db3 at001b = ╱49╱I╱ // 0xdaa @0x1b
0x0d8f…0db3 at001c = ╱ef╱$╱ // 0xdab @0x1c
0x0d8f…0db3 at001d = ╱ec╱,╱ // 0xdac @0x1d
0x0d8f…0db3 at001e = ╱53╱S╱ // 0xdad @0x1e
0x0d8f…0db3 at001f = ╱55╱U╱ // 0xdae @0x1f
0x0d8f…0db3 at0020 = ╱4d╱M╱ // 0xdaf @0x20
0x0d8f…0db3 at0021 = ╱ef╱$╱ // 0xdb0 @0x21
0x0d8f…0db3 at0022 = ╱ee╱)╱ // 0xdb1 @0x22
0x0d8f…0db3 at0023 = EOL // 0xdb2 @0x23
0x0d8f…0db3 }
0x0db3…0dda 9b31 1210 EXEC CALC(0,SUM1$,DSALDO1$,SUM1$)
0x0db3…0dda LineComalBin {
0x0db3…0dda ptr = 0x9b31 // 0xdb3 @0x0
0x0db3…0dda lno = 0x04ba // 0xdb5 @0x2
0x0db3…0dda at0004 = ╱9d╱ EXEC ╱ // 0xdb7 @0x4
0x0db3…0dda at0005 = ╱43╱C╱ // 0xdb8 @0x5
0x0db3…0dda at0006 = ╱41╱A╱ // 0xdb9 @0x6
0x0db3…0dda at0007 = ╱4c╱L╱ // 0xdba @0x7
0x0db3…0dda at0008 = ╱43╱C╱ // 0xdbb @0x8
0x0db3…0dda at0009 = ╱ed╱(╱ // 0xdbc @0x9
0x0db3…0dda at000a = ╱30╱0╱ // 0xdbd @0xa
0x0db3…0dda at000b = ╱fe00000000╱ // 0xdbe @0xb
0x0db3…0dda at0010 = ╱ec╱,╱ // 0xdc3 @0x10
0x0db3…0dda at0011 = ╱53╱S╱ // 0xdc4 @0x11
0x0db3…0dda at0012 = ╱55╱U╱ // 0xdc5 @0x12
0x0db3…0dda at0013 = ╱4d╱M╱ // 0xdc6 @0x13
0x0db3…0dda at0014 = ╱31╱1╱ // 0xdc7 @0x14
0x0db3…0dda at0015 = ╱ef╱$╱ // 0xdc8 @0x15
0x0db3…0dda at0016 = ╱ec╱,╱ // 0xdc9 @0x16
0x0db3…0dda at0017 = ╱44╱D╱ // 0xdca @0x17
0x0db3…0dda at0018 = ╱53╱S╱ // 0xdcb @0x18
0x0db3…0dda at0019 = ╱41╱A╱ // 0xdcc @0x19
0x0db3…0dda at001a = ╱4c╱L╱ // 0xdcd @0x1a
0x0db3…0dda at001b = ╱44╱D╱ // 0xdce @0x1b
0x0db3…0dda at001c = ╱4f╱O╱ // 0xdcf @0x1c
0x0db3…0dda at001d = ╱31╱1╱ // 0xdd0 @0x1d
0x0db3…0dda at001e = ╱ef╱$╱ // 0xdd1 @0x1e
0x0db3…0dda at001f = ╱ec╱,╱ // 0xdd2 @0x1f
0x0db3…0dda at0020 = ╱53╱S╱ // 0xdd3 @0x20
0x0db3…0dda at0021 = ╱55╱U╱ // 0xdd4 @0x21
0x0db3…0dda at0022 = ╱4d╱M╱ // 0xdd5 @0x22
0x0db3…0dda at0023 = ╱31╱1╱ // 0xdd6 @0x23
0x0db3…0dda at0024 = ╱ef╱$╱ // 0xdd7 @0x24
0x0db3…0dda at0025 = ╱ee╱)╱ // 0xdd8 @0x25
0x0db3…0dda at0026 = EOL // 0xdd9 @0x26
0x0db3…0dda }
0x0dda…0e01 9b58 1220 EXEC CALC(0,SUM2$,DSALDO2$,SUM2$)
0x0dda…0e01 LineComalBin {
0x0dda…0e01 ptr = 0x9b58 // 0xdda @0x0
0x0dda…0e01 lno = 0x04c4 // 0xddc @0x2
0x0dda…0e01 at0004 = ╱9d╱ EXEC ╱ // 0xdde @0x4
0x0dda…0e01 at0005 = ╱43╱C╱ // 0xddf @0x5
0x0dda…0e01 at0006 = ╱41╱A╱ // 0xde0 @0x6
0x0dda…0e01 at0007 = ╱4c╱L╱ // 0xde1 @0x7
0x0dda…0e01 at0008 = ╱43╱C╱ // 0xde2 @0x8
0x0dda…0e01 at0009 = ╱ed╱(╱ // 0xde3 @0x9
0x0dda…0e01 at000a = ╱30╱0╱ // 0xde4 @0xa
0x0dda…0e01 at000b = ╱fe00000000╱ // 0xde5 @0xb
0x0dda…0e01 at0010 = ╱ec╱,╱ // 0xdea @0x10
0x0dda…0e01 at0011 = ╱53╱S╱ // 0xdeb @0x11
0x0dda…0e01 at0012 = ╱55╱U╱ // 0xdec @0x12
0x0dda…0e01 at0013 = ╱4d╱M╱ // 0xded @0x13
0x0dda…0e01 at0014 = ╱32╱2╱ // 0xdee @0x14
0x0dda…0e01 at0015 = ╱ef╱$╱ // 0xdef @0x15
0x0dda…0e01 at0016 = ╱ec╱,╱ // 0xdf0 @0x16
0x0dda…0e01 at0017 = ╱44╱D╱ // 0xdf1 @0x17
0x0dda…0e01 at0018 = ╱53╱S╱ // 0xdf2 @0x18
0x0dda…0e01 at0019 = ╱41╱A╱ // 0xdf3 @0x19
0x0dda…0e01 at001a = ╱4c╱L╱ // 0xdf4 @0x1a
0x0dda…0e01 at001b = ╱44╱D╱ // 0xdf5 @0x1b
0x0dda…0e01 at001c = ╱4f╱O╱ // 0xdf6 @0x1c
0x0dda…0e01 at001d = ╱32╱2╱ // 0xdf7 @0x1d
0x0dda…0e01 at001e = ╱ef╱$╱ // 0xdf8 @0x1e
0x0dda…0e01 at001f = ╱ec╱,╱ // 0xdf9 @0x1f
0x0dda…0e01 at0020 = ╱53╱S╱ // 0xdfa @0x20
0x0dda…0e01 at0021 = ╱55╱U╱ // 0xdfb @0x21
0x0dda…0e01 at0022 = ╱4d╱M╱ // 0xdfc @0x22
0x0dda…0e01 at0023 = ╱32╱2╱ // 0xdfd @0x23
0x0dda…0e01 at0024 = ╱ef╱$╱ // 0xdfe @0x24
0x0dda…0e01 at0025 = ╱ee╱)╱ // 0xdff @0x25
0x0dda…0e01 at0026 = EOL // 0xe00 @0x26
0x0dda…0e01 }
0x0e01…0e28 9b7f 1230 EXEC CALC(0,SUM3$,DSALDO3$,SUM3$)
0x0e01…0e28 LineComalBin {
0x0e01…0e28 ptr = 0x9b7f // 0xe01 @0x0
0x0e01…0e28 lno = 0x04ce // 0xe03 @0x2
0x0e01…0e28 at0004 = ╱9d╱ EXEC ╱ // 0xe05 @0x4
0x0e01…0e28 at0005 = ╱43╱C╱ // 0xe06 @0x5
0x0e01…0e28 at0006 = ╱41╱A╱ // 0xe07 @0x6
0x0e01…0e28 at0007 = ╱4c╱L╱ // 0xe08 @0x7
0x0e01…0e28 at0008 = ╱43╱C╱ // 0xe09 @0x8
0x0e01…0e28 at0009 = ╱ed╱(╱ // 0xe0a @0x9
0x0e01…0e28 at000a = ╱30╱0╱ // 0xe0b @0xa
0x0e01…0e28 at000b = ╱fe00000000╱ // 0xe0c @0xb
0x0e01…0e28 at0010 = ╱ec╱,╱ // 0xe11 @0x10
0x0e01…0e28 at0011 = ╱53╱S╱ // 0xe12 @0x11
0x0e01…0e28 at0012 = ╱55╱U╱ // 0xe13 @0x12
0x0e01…0e28 at0013 = ╱4d╱M╱ // 0xe14 @0x13
0x0e01…0e28 at0014 = ╱33╱3╱ // 0xe15 @0x14
0x0e01…0e28 at0015 = ╱ef╱$╱ // 0xe16 @0x15
0x0e01…0e28 at0016 = ╱ec╱,╱ // 0xe17 @0x16
0x0e01…0e28 at0017 = ╱44╱D╱ // 0xe18 @0x17
0x0e01…0e28 at0018 = ╱53╱S╱ // 0xe19 @0x18
0x0e01…0e28 at0019 = ╱41╱A╱ // 0xe1a @0x19
0x0e01…0e28 at001a = ╱4c╱L╱ // 0xe1b @0x1a
0x0e01…0e28 at001b = ╱44╱D╱ // 0xe1c @0x1b
0x0e01…0e28 at001c = ╱4f╱O╱ // 0xe1d @0x1c
0x0e01…0e28 at001d = ╱33╱3╱ // 0xe1e @0x1d
0x0e01…0e28 at001e = ╱ef╱$╱ // 0xe1f @0x1e
0x0e01…0e28 at001f = ╱ec╱,╱ // 0xe20 @0x1f
0x0e01…0e28 at0020 = ╱53╱S╱ // 0xe21 @0x20
0x0e01…0e28 at0021 = ╱55╱U╱ // 0xe22 @0x21
0x0e01…0e28 at0022 = ╱4d╱M╱ // 0xe23 @0x22
0x0e01…0e28 at0023 = ╱33╱3╱ // 0xe24 @0x23
0x0e01…0e28 at0024 = ╱ef╱$╱ // 0xe25 @0x24
0x0e01…0e28 at0025 = ╱ee╱)╱ // 0xe26 @0x25
0x0e01…0e28 at0026 = EOL // 0xe27 @0x26
0x0e01…0e28 }
0x0e28…0e4f 9ba6 1240 EXEC CALC(0,SUM4$,DSALDO4$,SUM4$)
0x0e28…0e4f LineComalBin {
0x0e28…0e4f ptr = 0x9ba6 // 0xe28 @0x0
0x0e28…0e4f lno = 0x04d8 // 0xe2a @0x2
0x0e28…0e4f at0004 = ╱9d╱ EXEC ╱ // 0xe2c @0x4
0x0e28…0e4f at0005 = ╱43╱C╱ // 0xe2d @0x5
0x0e28…0e4f at0006 = ╱41╱A╱ // 0xe2e @0x6
0x0e28…0e4f at0007 = ╱4c╱L╱ // 0xe2f @0x7
0x0e28…0e4f at0008 = ╱43╱C╱ // 0xe30 @0x8
0x0e28…0e4f at0009 = ╱ed╱(╱ // 0xe31 @0x9
0x0e28…0e4f at000a = ╱30╱0╱ // 0xe32 @0xa
0x0e28…0e4f at000b = ╱fe00000000╱ // 0xe33 @0xb
0x0e28…0e4f at0010 = ╱ec╱,╱ // 0xe38 @0x10
0x0e28…0e4f at0011 = ╱53╱S╱ // 0xe39 @0x11
0x0e28…0e4f at0012 = ╱55╱U╱ // 0xe3a @0x12
0x0e28…0e4f at0013 = ╱4d╱M╱ // 0xe3b @0x13
0x0e28…0e4f at0014 = ╱34╱4╱ // 0xe3c @0x14
0x0e28…0e4f at0015 = ╱ef╱$╱ // 0xe3d @0x15
0x0e28…0e4f at0016 = ╱ec╱,╱ // 0xe3e @0x16
0x0e28…0e4f at0017 = ╱44╱D╱ // 0xe3f @0x17
0x0e28…0e4f at0018 = ╱53╱S╱ // 0xe40 @0x18
0x0e28…0e4f at0019 = ╱41╱A╱ // 0xe41 @0x19
0x0e28…0e4f at001a = ╱4c╱L╱ // 0xe42 @0x1a
0x0e28…0e4f at001b = ╱44╱D╱ // 0xe43 @0x1b
0x0e28…0e4f at001c = ╱4f╱O╱ // 0xe44 @0x1c
0x0e28…0e4f at001d = ╱34╱4╱ // 0xe45 @0x1d
0x0e28…0e4f at001e = ╱ef╱$╱ // 0xe46 @0x1e
0x0e28…0e4f at001f = ╱ec╱,╱ // 0xe47 @0x1f
0x0e28…0e4f at0020 = ╱53╱S╱ // 0xe48 @0x20
0x0e28…0e4f at0021 = ╱55╱U╱ // 0xe49 @0x21
0x0e28…0e4f at0022 = ╱4d╱M╱ // 0xe4a @0x22
0x0e28…0e4f at0023 = ╱34╱4╱ // 0xe4b @0x23
0x0e28…0e4f at0024 = ╱ef╱$╱ // 0xe4c @0x24
0x0e28…0e4f at0025 = ╱ee╱)╱ // 0xe4d @0x25
0x0e28…0e4f at0026 = EOL // 0xe4e @0x26
0x0e28…0e4f }
0x0e4f…0e75 9bcc 1250 EXEC CALC(0,SUM5$,MDNKØB$,SUM5$)
0x0e4f…0e75 LineComalBin {
0x0e4f…0e75 ptr = 0x9bcc // 0xe4f @0x0
0x0e4f…0e75 lno = 0x04e2 // 0xe51 @0x2
0x0e4f…0e75 at0004 = ╱9d╱ EXEC ╱ // 0xe53 @0x4
0x0e4f…0e75 at0005 = ╱43╱C╱ // 0xe54 @0x5
0x0e4f…0e75 at0006 = ╱41╱A╱ // 0xe55 @0x6
0x0e4f…0e75 at0007 = ╱4c╱L╱ // 0xe56 @0x7
0x0e4f…0e75 at0008 = ╱43╱C╱ // 0xe57 @0x8
0x0e4f…0e75 at0009 = ╱ed╱(╱ // 0xe58 @0x9
0x0e4f…0e75 at000a = ╱30╱0╱ // 0xe59 @0xa
0x0e4f…0e75 at000b = ╱fe00000000╱ // 0xe5a @0xb
0x0e4f…0e75 at0010 = ╱ec╱,╱ // 0xe5f @0x10
0x0e4f…0e75 at0011 = ╱53╱S╱ // 0xe60 @0x11
0x0e4f…0e75 at0012 = ╱55╱U╱ // 0xe61 @0x12
0x0e4f…0e75 at0013 = ╱4d╱M╱ // 0xe62 @0x13
0x0e4f…0e75 at0014 = ╱35╱5╱ // 0xe63 @0x14
0x0e4f…0e75 at0015 = ╱ef╱$╱ // 0xe64 @0x15
0x0e4f…0e75 at0016 = ╱ec╱,╱ // 0xe65 @0x16
0x0e4f…0e75 at0017 = ╱4d╱M╱ // 0xe66 @0x17
0x0e4f…0e75 at0018 = ╱44╱D╱ // 0xe67 @0x18
0x0e4f…0e75 at0019 = ╱4e╱N╱ // 0xe68 @0x19
0x0e4f…0e75 at001a = ╱4b╱K╱ // 0xe69 @0x1a
0x0e4f…0e75 at001b = ╱5c╱Ø╱ // 0xe6a @0x1b
0x0e4f…0e75 at001c = ╱42╱B╱ // 0xe6b @0x1c
0x0e4f…0e75 at001d = ╱ef╱$╱ // 0xe6c @0x1d
0x0e4f…0e75 at001e = ╱ec╱,╱ // 0xe6d @0x1e
0x0e4f…0e75 at001f = ╱53╱S╱ // 0xe6e @0x1f
0x0e4f…0e75 at0020 = ╱55╱U╱ // 0xe6f @0x20
0x0e4f…0e75 at0021 = ╱4d╱M╱ // 0xe70 @0x21
0x0e4f…0e75 at0022 = ╱35╱5╱ // 0xe71 @0x22
0x0e4f…0e75 at0023 = ╱ef╱$╱ // 0xe72 @0x23
0x0e4f…0e75 at0024 = ╱ee╱)╱ // 0xe73 @0x24
0x0e4f…0e75 at0025 = EOL // 0xe74 @0x25
0x0e4f…0e75 }
0x0e75…0e88 9bdf 1260 TÅRKØB$=ÅRKØB$
0x0e75…0e88 LineComalBin {
0x0e75…0e88 ptr = 0x9bdf // 0xe75 @0x0
0x0e75…0e88 lno = 0x04ec // 0xe77 @0x2
0x0e75…0e88 at0004 = ╱54╱T╱ // 0xe79 @0x4
0x0e75…0e88 at0005 = ╱5d╱Å╱ // 0xe7a @0x5
0x0e75…0e88 at0006 = ╱52╱R╱ // 0xe7b @0x6
0x0e75…0e88 at0007 = ╱4b╱K╱ // 0xe7c @0x7
0x0e75…0e88 at0008 = ╱5c╱Ø╱ // 0xe7d @0x8
0x0e75…0e88 at0009 = ╱42╱B╱ // 0xe7e @0x9
0x0e75…0e88 at000a = ╱ef╱$╱ // 0xe7f @0xa
0x0e75…0e88 at000b = ╱dc╱=╱ // 0xe80 @0xb
0x0e75…0e88 at000c = ╱5d╱Å╱ // 0xe81 @0xc
0x0e75…0e88 at000d = ╱52╱R╱ // 0xe82 @0xd
0x0e75…0e88 at000e = ╱4b╱K╱ // 0xe83 @0xe
0x0e75…0e88 at000f = ╱5c╱Ø╱ // 0xe84 @0xf
0x0e75…0e88 at0010 = ╱42╱B╱ // 0xe85 @0x10
0x0e75…0e88 at0011 = ╱ef╱$╱ // 0xe86 @0x11
0x0e75…0e88 at0012 = EOL // 0xe87 @0x12
0x0e75…0e88 }
0x0e88…0eae 9c05 1270 EXEC CALC(0,SUM6$,TÅRKØB$,SUM6$)
0x0e88…0eae LineComalBin {
0x0e88…0eae ptr = 0x9c05 // 0xe88 @0x0
0x0e88…0eae lno = 0x04f6 // 0xe8a @0x2
0x0e88…0eae at0004 = ╱9d╱ EXEC ╱ // 0xe8c @0x4
0x0e88…0eae at0005 = ╱43╱C╱ // 0xe8d @0x5
0x0e88…0eae at0006 = ╱41╱A╱ // 0xe8e @0x6
0x0e88…0eae at0007 = ╱4c╱L╱ // 0xe8f @0x7
0x0e88…0eae at0008 = ╱43╱C╱ // 0xe90 @0x8
0x0e88…0eae at0009 = ╱ed╱(╱ // 0xe91 @0x9
0x0e88…0eae at000a = ╱30╱0╱ // 0xe92 @0xa
0x0e88…0eae at000b = ╱fe00000000╱ // 0xe93 @0xb
0x0e88…0eae at0010 = ╱ec╱,╱ // 0xe98 @0x10
0x0e88…0eae at0011 = ╱53╱S╱ // 0xe99 @0x11
0x0e88…0eae at0012 = ╱55╱U╱ // 0xe9a @0x12
0x0e88…0eae at0013 = ╱4d╱M╱ // 0xe9b @0x13
0x0e88…0eae at0014 = ╱36╱6╱ // 0xe9c @0x14
0x0e88…0eae at0015 = ╱ef╱$╱ // 0xe9d @0x15
0x0e88…0eae at0016 = ╱ec╱,╱ // 0xe9e @0x16
0x0e88…0eae at0017 = ╱54╱T╱ // 0xe9f @0x17
0x0e88…0eae at0018 = ╱5d╱Å╱ // 0xea0 @0x18
0x0e88…0eae at0019 = ╱52╱R╱ // 0xea1 @0x19
0x0e88…0eae at001a = ╱4b╱K╱ // 0xea2 @0x1a
0x0e88…0eae at001b = ╱5c╱Ø╱ // 0xea3 @0x1b
0x0e88…0eae at001c = ╱42╱B╱ // 0xea4 @0x1c
0x0e88…0eae at001d = ╱ef╱$╱ // 0xea5 @0x1d
0x0e88…0eae at001e = ╱ec╱,╱ // 0xea6 @0x1e
0x0e88…0eae at001f = ╱53╱S╱ // 0xea7 @0x1f
0x0e88…0eae at0020 = ╱55╱U╱ // 0xea8 @0x20
0x0e88…0eae at0021 = ╱4d╱M╱ // 0xea9 @0x21
0x0e88…0eae at0022 = ╱36╱6╱ // 0xeaa @0x22
0x0e88…0eae at0023 = ╱ef╱$╱ // 0xeab @0x23
0x0e88…0eae at0024 = ╱ee╱)╱ // 0xeac @0x24
0x0e88…0eae at0025 = EOL // 0xead @0x25
0x0e88…0eae }
0x0eae…0ed4 9c2b 1280 EXEC TUD(DSALDI$,TAL1$,1,0)
0x0eae…0ed4 LineComalBin {
0x0eae…0ed4 ptr = 0x9c2b // 0xeae @0x0
0x0eae…0ed4 lno = 0x0500 // 0xeb0 @0x2
0x0eae…0ed4 at0004 = ╱9d╱ EXEC ╱ // 0xeb2 @0x4
0x0eae…0ed4 at0005 = ╱54╱T╱ // 0xeb3 @0x5
0x0eae…0ed4 at0006 = ╱55╱U╱ // 0xeb4 @0x6
0x0eae…0ed4 at0007 = ╱44╱D╱ // 0xeb5 @0x7
0x0eae…0ed4 at0008 = ╱ed╱(╱ // 0xeb6 @0x8
0x0eae…0ed4 at0009 = ╱44╱D╱ // 0xeb7 @0x9
0x0eae…0ed4 at000a = ╱53╱S╱ // 0xeb8 @0xa
0x0eae…0ed4 at000b = ╱41╱A╱ // 0xeb9 @0xb
0x0eae…0ed4 at000c = ╱4c╱L╱ // 0xeba @0xc
0x0eae…0ed4 at000d = ╱44╱D╱ // 0xebb @0xd
0x0eae…0ed4 at000e = ╱49╱I╱ // 0xebc @0xe
0x0eae…0ed4 at000f = ╱ef╱$╱ // 0xebd @0xf
0x0eae…0ed4 at0010 = ╱ec╱,╱ // 0xebe @0x10
0x0eae…0ed4 at0011 = ╱54╱T╱ // 0xebf @0x11
0x0eae…0ed4 at0012 = ╱41╱A╱ // 0xec0 @0x12
0x0eae…0ed4 at0013 = ╱4c╱L╱ // 0xec1 @0x13
0x0eae…0ed4 at0014 = ╱31╱1╱ // 0xec2 @0x14
0x0eae…0ed4 at0015 = ╱ef╱$╱ // 0xec3 @0x15
0x0eae…0ed4 at0016 = ╱ec╱,╱ // 0xec4 @0x16
0x0eae…0ed4 at0017 = ╱31╱1╱ // 0xec5 @0x17
0x0eae…0ed4 at0018 = ╱fe00008001╱ // 0xec6 @0x18
0x0eae…0ed4 at001d = ╱ec╱,╱ // 0xecb @0x1d
0x0eae…0ed4 at001e = ╱30╱0╱ // 0xecc @0x1e
0x0eae…0ed4 at001f = ╱fe00000000╱ // 0xecd @0x1f
0x0eae…0ed4 at0024 = ╱ee╱)╱ // 0xed2 @0x24
0x0eae…0ed4 at0025 = EOL // 0xed3 @0x25
0x0eae…0ed4 }
0x0ed4…0efb 9c52 1290 EXEC TUD(DSALDO1$,TAL2$,1,0)
0x0ed4…0efb LineComalBin {
0x0ed4…0efb ptr = 0x9c52 // 0xed4 @0x0
0x0ed4…0efb lno = 0x050a // 0xed6 @0x2
0x0ed4…0efb at0004 = ╱9d╱ EXEC ╱ // 0xed8 @0x4
0x0ed4…0efb at0005 = ╱54╱T╱ // 0xed9 @0x5
0x0ed4…0efb at0006 = ╱55╱U╱ // 0xeda @0x6
0x0ed4…0efb at0007 = ╱44╱D╱ // 0xedb @0x7
0x0ed4…0efb at0008 = ╱ed╱(╱ // 0xedc @0x8
0x0ed4…0efb at0009 = ╱44╱D╱ // 0xedd @0x9
0x0ed4…0efb at000a = ╱53╱S╱ // 0xede @0xa
0x0ed4…0efb at000b = ╱41╱A╱ // 0xedf @0xb
0x0ed4…0efb at000c = ╱4c╱L╱ // 0xee0 @0xc
0x0ed4…0efb at000d = ╱44╱D╱ // 0xee1 @0xd
0x0ed4…0efb at000e = ╱4f╱O╱ // 0xee2 @0xe
0x0ed4…0efb at000f = ╱31╱1╱ // 0xee3 @0xf
0x0ed4…0efb at0010 = ╱ef╱$╱ // 0xee4 @0x10
0x0ed4…0efb at0011 = ╱ec╱,╱ // 0xee5 @0x11
0x0ed4…0efb at0012 = ╱54╱T╱ // 0xee6 @0x12
0x0ed4…0efb at0013 = ╱41╱A╱ // 0xee7 @0x13
0x0ed4…0efb at0014 = ╱4c╱L╱ // 0xee8 @0x14
0x0ed4…0efb at0015 = ╱32╱2╱ // 0xee9 @0x15
0x0ed4…0efb at0016 = ╱ef╱$╱ // 0xeea @0x16
0x0ed4…0efb at0017 = ╱ec╱,╱ // 0xeeb @0x17
0x0ed4…0efb at0018 = ╱31╱1╱ // 0xeec @0x18
0x0ed4…0efb at0019 = ╱fe00008001╱ // 0xeed @0x19
0x0ed4…0efb at001e = ╱ec╱,╱ // 0xef2 @0x1e
0x0ed4…0efb at001f = ╱30╱0╱ // 0xef3 @0x1f
0x0ed4…0efb at0020 = ╱fe00000000╱ // 0xef4 @0x20
0x0ed4…0efb at0025 = ╱ee╱)╱ // 0xef9 @0x25
0x0ed4…0efb at0026 = EOL // 0xefa @0x26
0x0ed4…0efb }
0x0efb…0f22 9c79 1300 EXEC TUD(DSALDO3$,TAL3$,1,0)
0x0efb…0f22 LineComalBin {
0x0efb…0f22 ptr = 0x9c79 // 0xefb @0x0
0x0efb…0f22 lno = 0x0514 // 0xefd @0x2
0x0efb…0f22 at0004 = ╱9d╱ EXEC ╱ // 0xeff @0x4
0x0efb…0f22 at0005 = ╱54╱T╱ // 0xf00 @0x5
0x0efb…0f22 at0006 = ╱55╱U╱ // 0xf01 @0x6
0x0efb…0f22 at0007 = ╱44╱D╱ // 0xf02 @0x7
0x0efb…0f22 at0008 = ╱ed╱(╱ // 0xf03 @0x8
0x0efb…0f22 at0009 = ╱44╱D╱ // 0xf04 @0x9
0x0efb…0f22 at000a = ╱53╱S╱ // 0xf05 @0xa
0x0efb…0f22 at000b = ╱41╱A╱ // 0xf06 @0xb
0x0efb…0f22 at000c = ╱4c╱L╱ // 0xf07 @0xc
0x0efb…0f22 at000d = ╱44╱D╱ // 0xf08 @0xd
0x0efb…0f22 at000e = ╱4f╱O╱ // 0xf09 @0xe
0x0efb…0f22 at000f = ╱33╱3╱ // 0xf0a @0xf
0x0efb…0f22 at0010 = ╱ef╱$╱ // 0xf0b @0x10
0x0efb…0f22 at0011 = ╱ec╱,╱ // 0xf0c @0x11
0x0efb…0f22 at0012 = ╱54╱T╱ // 0xf0d @0x12
0x0efb…0f22 at0013 = ╱41╱A╱ // 0xf0e @0x13
0x0efb…0f22 at0014 = ╱4c╱L╱ // 0xf0f @0x14
0x0efb…0f22 at0015 = ╱33╱3╱ // 0xf10 @0x15
0x0efb…0f22 at0016 = ╱ef╱$╱ // 0xf11 @0x16
0x0efb…0f22 at0017 = ╱ec╱,╱ // 0xf12 @0x17
0x0efb…0f22 at0018 = ╱31╱1╱ // 0xf13 @0x18
0x0efb…0f22 at0019 = ╱fe00008001╱ // 0xf14 @0x19
0x0efb…0f22 at001e = ╱ec╱,╱ // 0xf19 @0x1e
0x0efb…0f22 at001f = ╱30╱0╱ // 0xf1a @0x1f
0x0efb…0f22 at0020 = ╱fe00000000╱ // 0xf1b @0x20
0x0efb…0f22 at0025 = ╱ee╱)╱ // 0xf20 @0x25
0x0efb…0f22 at0026 = EOL // 0xf21 @0x26
0x0efb…0f22 }
0x0f22…0f48 9c9f 1310 EXEC TUD(MDNKØB$,TAL4$,1,0)
0x0f22…0f48 LineComalBin {
0x0f22…0f48 ptr = 0x9c9f // 0xf22 @0x0
0x0f22…0f48 lno = 0x051e // 0xf24 @0x2
0x0f22…0f48 at0004 = ╱9d╱ EXEC ╱ // 0xf26 @0x4
0x0f22…0f48 at0005 = ╱54╱T╱ // 0xf27 @0x5
0x0f22…0f48 at0006 = ╱55╱U╱ // 0xf28 @0x6
0x0f22…0f48 at0007 = ╱44╱D╱ // 0xf29 @0x7
0x0f22…0f48 at0008 = ╱ed╱(╱ // 0xf2a @0x8
0x0f22…0f48 at0009 = ╱4d╱M╱ // 0xf2b @0x9
0x0f22…0f48 at000a = ╱44╱D╱ // 0xf2c @0xa
0x0f22…0f48 at000b = ╱4e╱N╱ // 0xf2d @0xb
0x0f22…0f48 at000c = ╱4b╱K╱ // 0xf2e @0xc
0x0f22…0f48 at000d = ╱5c╱Ø╱ // 0xf2f @0xd
0x0f22…0f48 at000e = ╱42╱B╱ // 0xf30 @0xe
0x0f22…0f48 at000f = ╱ef╱$╱ // 0xf31 @0xf
0x0f22…0f48 at0010 = ╱ec╱,╱ // 0xf32 @0x10
0x0f22…0f48 at0011 = ╱54╱T╱ // 0xf33 @0x11
0x0f22…0f48 at0012 = ╱41╱A╱ // 0xf34 @0x12
0x0f22…0f48 at0013 = ╱4c╱L╱ // 0xf35 @0x13
0x0f22…0f48 at0014 = ╱34╱4╱ // 0xf36 @0x14
0x0f22…0f48 at0015 = ╱ef╱$╱ // 0xf37 @0x15
0x0f22…0f48 at0016 = ╱ec╱,╱ // 0xf38 @0x16
0x0f22…0f48 at0017 = ╱31╱1╱ // 0xf39 @0x17
0x0f22…0f48 at0018 = ╱fe00008001╱ // 0xf3a @0x18
0x0f22…0f48 at001d = ╱ec╱,╱ // 0xf3f @0x1d
0x0f22…0f48 at001e = ╱30╱0╱ // 0xf40 @0x1e
0x0f22…0f48 at001f = ╱fe00000000╱ // 0xf41 @0x1f
0x0f22…0f48 at0024 = ╱ee╱)╱ // 0xf46 @0x24
0x0f22…0f48 at0025 = EOL // 0xf47 @0x25
0x0f22…0f48 }
0x0f48…0f61 9cb8 1320 PRINT USING "###### ":DEBNR;
0x0f48…0f61 LineComalBin {
0x0f48…0f61 ptr = 0x9cb8 // 0xf48 @0x0
0x0f48…0f61 lno = 0x0528 // 0xf4a @0x2
0x0f48…0f61 at0004 = ╱92╱ PRINT ╱ // 0xf4c @0x4
0x0f48…0f61 at0005 = ╱b9╱ USING ╱ // 0xf4d @0x5
0x0f48…0f61 at0006 = ╱22╱"╱ // 0xf4e @0x6
0x0f48…0f61 at0007 = ╱23╱#╱ // 0xf4f @0x7
0x0f48…0f61 at0008 = ╱23╱#╱ // 0xf50 @0x8
0x0f48…0f61 at0009 = ╱23╱#╱ // 0xf51 @0x9
0x0f48…0f61 at000a = ╱23╱#╱ // 0xf52 @0xa
0x0f48…0f61 at000b = ╱23╱#╱ // 0xf53 @0xb
0x0f48…0f61 at000c = ╱23╱#╱ // 0xf54 @0xc
0x0f48…0f61 at000d = ╱20╱…╱ // 0xf55 @0xd
0x0f48…0f61 at000e = ╱20╱…╱ // 0xf56 @0xe
0x0f48…0f61 at000f = ╱20╱…╱ // 0xf57 @0xf
0x0f48…0f61 at0010 = ╱22╱"╱ // 0xf58 @0x10
0x0f48…0f61 at0011 = ╱f0╱:╱ // 0xf59 @0x11
0x0f48…0f61 at0012 = ╱44╱D╱ // 0xf5a @0x12
0x0f48…0f61 at0013 = ╱45╱E╱ // 0xf5b @0x13
0x0f48…0f61 at0014 = ╱42╱B╱ // 0xf5c @0x14
0x0f48…0f61 at0015 = ╱4e╱N╱ // 0xf5d @0x15
0x0f48…0f61 at0016 = ╱52╱R╱ // 0xf5e @0x16
0x0f48…0f61 at0017 = ╱eb╱;╱ // 0xf5f @0x17
0x0f48…0f61 at0018 = EOL // 0xf60 @0x18
0x0f48…0f61 }
0x0f61…0f6f 9cc6 1330 PRINT DEBTLF$;
0x0f61…0f6f LineComalBin {
0x0f61…0f6f ptr = 0x9cc6 // 0xf61 @0x0
0x0f61…0f6f lno = 0x0532 // 0xf63 @0x2
0x0f61…0f6f at0004 = ╱92╱ PRINT ╱ // 0xf65 @0x4
0x0f61…0f6f at0005 = ╱44╱D╱ // 0xf66 @0x5
0x0f61…0f6f at0006 = ╱45╱E╱ // 0xf67 @0x6
0x0f61…0f6f at0007 = ╱42╱B╱ // 0xf68 @0x7
0x0f61…0f6f at0008 = ╱54╱T╱ // 0xf69 @0x8
0x0f61…0f6f at0009 = ╱4c╱L╱ // 0xf6a @0x9
0x0f61…0f6f at000a = ╱46╱F╱ // 0xf6b @0xa
0x0f61…0f6f at000b = ╱ef╱$╱ // 0xf6c @0xb
0x0f61…0f6f at000c = ╱eb╱;╱ // 0xf6d @0xc
0x0f61…0f6f at000d = EOL // 0xf6e @0xd
0x0f61…0f6f }
0x0f6f…0fb8 9d0f 1340 PRINT TAB(24);TAL1$;TAB(38);TAL2$;TAB(52);TAL3$;TAB(65);TAL4$
0x0f6f…0fb8 LineComalBin {
0x0f6f…0fb8 ptr = 0x9d0f // 0xf6f @0x0
0x0f6f…0fb8 lno = 0x053c // 0xf71 @0x2
0x0f6f…0fb8 at0004 = ╱92╱ PRINT ╱ // 0xf73 @0x4
0x0f6f…0fb8 at0005 = ╱d2╱TAB╱ // 0xf74 @0x5
0x0f6f…0fb8 at0006 = ╱ed╱(╱ // 0xf75 @0x6
0x0f6f…0fb8 at0007 = ╱32╱2╱ // 0xf76 @0x7
0x0f6f…0fb8 at0008 = ╱34╱4╱ // 0xf77 @0x8
0x0f6f…0fb8 at0009 = ╱fe0000c005╱ // 0xf78 @0x9
0x0f6f…0fb8 at000e = ╱ee╱)╱ // 0xf7d @0xe
0x0f6f…0fb8 at000f = ╱eb╱;╱ // 0xf7e @0xf
0x0f6f…0fb8 at0010 = ╱54╱T╱ // 0xf7f @0x10
0x0f6f…0fb8 at0011 = ╱41╱A╱ // 0xf80 @0x11
0x0f6f…0fb8 at0012 = ╱4c╱L╱ // 0xf81 @0x12
0x0f6f…0fb8 at0013 = ╱31╱1╱ // 0xf82 @0x13
0x0f6f…0fb8 at0014 = ╱ef╱$╱ // 0xf83 @0x14
0x0f6f…0fb8 at0015 = ╱eb╱;╱ // 0xf84 @0x15
0x0f6f…0fb8 at0016 = ╱d2╱TAB╱ // 0xf85 @0x16
0x0f6f…0fb8 at0017 = ╱ed╱(╱ // 0xf86 @0x17
0x0f6f…0fb8 at0018 = ╱33╱3╱ // 0xf87 @0x18
0x0f6f…0fb8 at0019 = ╱38╱8╱ // 0xf88 @0x19
0x0f6f…0fb8 at001a = ╱fe00009806╱ // 0xf89 @0x1a
0x0f6f…0fb8 at001f = ╱ee╱)╱ // 0xf8e @0x1f
0x0f6f…0fb8 at0020 = ╱eb╱;╱ // 0xf8f @0x20
0x0f6f…0fb8 at0021 = ╱54╱T╱ // 0xf90 @0x21
0x0f6f…0fb8 at0022 = ╱41╱A╱ // 0xf91 @0x22
0x0f6f…0fb8 at0023 = ╱4c╱L╱ // 0xf92 @0x23
0x0f6f…0fb8 at0024 = ╱32╱2╱ // 0xf93 @0x24
0x0f6f…0fb8 at0025 = ╱ef╱$╱ // 0xf94 @0x25
0x0f6f…0fb8 at0026 = ╱eb╱;╱ // 0xf95 @0x26
0x0f6f…0fb8 at0027 = ╱d2╱TAB╱ // 0xf96 @0x27
0x0f6f…0fb8 at0028 = ╱ed╱(╱ // 0xf97 @0x28
0x0f6f…0fb8 at0029 = ╱35╱5╱ // 0xf98 @0x29
0x0f6f…0fb8 at002a = ╱32╱2╱ // 0xf99 @0x2a
0x0f6f…0fb8 at002b = ╱fe0000d006╱ // 0xf9a @0x2b
0x0f6f…0fb8 at0030 = ╱ee╱)╱ // 0xf9f @0x30
0x0f6f…0fb8 at0031 = ╱eb╱;╱ // 0xfa0 @0x31
0x0f6f…0fb8 at0032 = ╱54╱T╱ // 0xfa1 @0x32
0x0f6f…0fb8 at0033 = ╱41╱A╱ // 0xfa2 @0x33
0x0f6f…0fb8 at0034 = ╱4c╱L╱ // 0xfa3 @0x34
0x0f6f…0fb8 at0035 = ╱33╱3╱ // 0xfa4 @0x35
0x0f6f…0fb8 at0036 = ╱ef╱$╱ // 0xfa5 @0x36
0x0f6f…0fb8 at0037 = ╱eb╱;╱ // 0xfa6 @0x37
0x0f6f…0fb8 at0038 = ╱d2╱TAB╱ // 0xfa7 @0x38
0x0f6f…0fb8 at0039 = ╱ed╱(╱ // 0xfa8 @0x39
0x0f6f…0fb8 at003a = ╱36╱6╱ // 0xfa9 @0x3a
0x0f6f…0fb8 at003b = ╱35╱5╱ // 0xfaa @0x3b
0x0f6f…0fb8 at003c = ╱fe00008207╱ // 0xfab @0x3c
0x0f6f…0fb8 at0041 = ╱ee╱)╱ // 0xfb0 @0x41
0x0f6f…0fb8 at0042 = ╱eb╱;╱ // 0xfb1 @0x42
0x0f6f…0fb8 at0043 = ╱54╱T╱ // 0xfb2 @0x43
0x0f6f…0fb8 at0044 = ╱41╱A╱ // 0xfb3 @0x44
0x0f6f…0fb8 at0045 = ╱4c╱L╱ // 0xfb4 @0x45
0x0f6f…0fb8 at0046 = ╱34╱4╱ // 0xfb5 @0x46
0x0f6f…0fb8 at0047 = ╱ef╱$╱ // 0xfb6 @0x47
0x0f6f…0fb8 at0048 = EOL // 0xfb7 @0x48
0x0f6f…0fb8 }
0x0fb8…0fdf 9d36 1350 EXEC TUD(DSALDO2$,TAL1$,1,0)
0x0fb8…0fdf LineComalBin {
0x0fb8…0fdf ptr = 0x9d36 // 0xfb8 @0x0
0x0fb8…0fdf lno = 0x0546 // 0xfba @0x2
0x0fb8…0fdf at0004 = ╱9d╱ EXEC ╱ // 0xfbc @0x4
0x0fb8…0fdf at0005 = ╱54╱T╱ // 0xfbd @0x5
0x0fb8…0fdf at0006 = ╱55╱U╱ // 0xfbe @0x6
0x0fb8…0fdf at0007 = ╱44╱D╱ // 0xfbf @0x7
0x0fb8…0fdf at0008 = ╱ed╱(╱ // 0xfc0 @0x8
0x0fb8…0fdf at0009 = ╱44╱D╱ // 0xfc1 @0x9
0x0fb8…0fdf at000a = ╱53╱S╱ // 0xfc2 @0xa
0x0fb8…0fdf at000b = ╱41╱A╱ // 0xfc3 @0xb
0x0fb8…0fdf at000c = ╱4c╱L╱ // 0xfc4 @0xc
0x0fb8…0fdf at000d = ╱44╱D╱ // 0xfc5 @0xd
0x0fb8…0fdf at000e = ╱4f╱O╱ // 0xfc6 @0xe
0x0fb8…0fdf at000f = ╱32╱2╱ // 0xfc7 @0xf
0x0fb8…0fdf at0010 = ╱ef╱$╱ // 0xfc8 @0x10
0x0fb8…0fdf at0011 = ╱ec╱,╱ // 0xfc9 @0x11
0x0fb8…0fdf at0012 = ╱54╱T╱ // 0xfca @0x12
0x0fb8…0fdf at0013 = ╱41╱A╱ // 0xfcb @0x13
0x0fb8…0fdf at0014 = ╱4c╱L╱ // 0xfcc @0x14
0x0fb8…0fdf at0015 = ╱31╱1╱ // 0xfcd @0x15
0x0fb8…0fdf at0016 = ╱ef╱$╱ // 0xfce @0x16
0x0fb8…0fdf at0017 = ╱ec╱,╱ // 0xfcf @0x17
0x0fb8…0fdf at0018 = ╱31╱1╱ // 0xfd0 @0x18
0x0fb8…0fdf at0019 = ╱fe00008001╱ // 0xfd1 @0x19
0x0fb8…0fdf at001e = ╱ec╱,╱ // 0xfd6 @0x1e
0x0fb8…0fdf at001f = ╱30╱0╱ // 0xfd7 @0x1f
0x0fb8…0fdf at0020 = ╱fe00000000╱ // 0xfd8 @0x20
0x0fb8…0fdf at0025 = ╱ee╱)╱ // 0xfdd @0x25
0x0fb8…0fdf at0026 = EOL // 0xfde @0x26
0x0fb8…0fdf }
0x0fdf…1006 9d5d 1360 EXEC TUD(DSALDO4$,TAL2$,1,0)
0x0fdf…1006 LineComalBin {
0x0fdf…1006 ptr = 0x9d5d // 0xfdf @0x0
0x0fdf…1006 lno = 0x0550 // 0xfe1 @0x2
0x0fdf…1006 at0004 = ╱9d╱ EXEC ╱ // 0xfe3 @0x4
0x0fdf…1006 at0005 = ╱54╱T╱ // 0xfe4 @0x5
0x0fdf…1006 at0006 = ╱55╱U╱ // 0xfe5 @0x6
0x0fdf…1006 at0007 = ╱44╱D╱ // 0xfe6 @0x7
0x0fdf…1006 at0008 = ╱ed╱(╱ // 0xfe7 @0x8
0x0fdf…1006 at0009 = ╱44╱D╱ // 0xfe8 @0x9
0x0fdf…1006 at000a = ╱53╱S╱ // 0xfe9 @0xa
0x0fdf…1006 at000b = ╱41╱A╱ // 0xfea @0xb
0x0fdf…1006 at000c = ╱4c╱L╱ // 0xfeb @0xc
0x0fdf…1006 at000d = ╱44╱D╱ // 0xfec @0xd
0x0fdf…1006 at000e = ╱4f╱O╱ // 0xfed @0xe
0x0fdf…1006 at000f = ╱34╱4╱ // 0xfee @0xf
0x0fdf…1006 at0010 = ╱ef╱$╱ // 0xfef @0x10
0x0fdf…1006 at0011 = ╱ec╱,╱ // 0xff0 @0x11
0x0fdf…1006 at0012 = ╱54╱T╱ // 0xff1 @0x12
0x0fdf…1006 at0013 = ╱41╱A╱ // 0xff2 @0x13
0x0fdf…1006 at0014 = ╱4c╱L╱ // 0xff3 @0x14
0x0fdf…1006 at0015 = ╱32╱2╱ // 0xff4 @0x15
0x0fdf…1006 at0016 = ╱ef╱$╱ // 0xff5 @0x16
0x0fdf…1006 at0017 = ╱ec╱,╱ // 0xff6 @0x17
0x0fdf…1006 at0018 = ╱31╱1╱ // 0xff7 @0x18
0x0fdf…1006 at0019 = ╱fe00008001╱ // 0xff8 @0x19
0x0fdf…1006 at001e = ╱ec╱,╱ // 0xffd @0x1e
0x0fdf…1006 at001f = ╱30╱0╱ // 0xffe @0x1f
0x0fdf…1006 at0020 = ╱fe00000000╱ // 0xfff @0x20
0x0fdf…1006 at0025 = ╱ee╱)╱ // 0x1004 @0x25
0x0fdf…1006 at0026 = EOL // 0x1005 @0x26
0x0fdf…1006 }
0x1006…102c 9d83 1370 EXEC TUD(TÅRKØB$,TAL3$,1,0)
0x1006…102c LineComalBin {
0x1006…102c ptr = 0x9d83 // 0x1006 @0x0
0x1006…102c lno = 0x055a // 0x1008 @0x2
0x1006…102c at0004 = ╱9d╱ EXEC ╱ // 0x100a @0x4
0x1006…102c at0005 = ╱54╱T╱ // 0x100b @0x5
0x1006…102c at0006 = ╱55╱U╱ // 0x100c @0x6
0x1006…102c at0007 = ╱44╱D╱ // 0x100d @0x7
0x1006…102c at0008 = ╱ed╱(╱ // 0x100e @0x8
0x1006…102c at0009 = ╱54╱T╱ // 0x100f @0x9
0x1006…102c at000a = ╱5d╱Å╱ // 0x1010 @0xa
0x1006…102c at000b = ╱52╱R╱ // 0x1011 @0xb
0x1006…102c at000c = ╱4b╱K╱ // 0x1012 @0xc
0x1006…102c at000d = ╱5c╱Ø╱ // 0x1013 @0xd
0x1006…102c at000e = ╱42╱B╱ // 0x1014 @0xe
0x1006…102c at000f = ╱ef╱$╱ // 0x1015 @0xf
0x1006…102c at0010 = ╱ec╱,╱ // 0x1016 @0x10
0x1006…102c at0011 = ╱54╱T╱ // 0x1017 @0x11
0x1006…102c at0012 = ╱41╱A╱ // 0x1018 @0x12
0x1006…102c at0013 = ╱4c╱L╱ // 0x1019 @0x13
0x1006…102c at0014 = ╱33╱3╱ // 0x101a @0x14
0x1006…102c at0015 = ╱ef╱$╱ // 0x101b @0x15
0x1006…102c at0016 = ╱ec╱,╱ // 0x101c @0x16
0x1006…102c at0017 = ╱31╱1╱ // 0x101d @0x17
0x1006…102c at0018 = ╱fe00008001╱ // 0x101e @0x18
0x1006…102c at001d = ╱ec╱,╱ // 0x1023 @0x1d
0x1006…102c at001e = ╱30╱0╱ // 0x1024 @0x1e
0x1006…102c at001f = ╱fe00000000╱ // 0x1025 @0x1f
0x1006…102c at0024 = ╱ee╱)╱ // 0x102a @0x24
0x1006…102c at0025 = EOL // 0x102b @0x25
0x1006…102c }
0x102c…1071 9dc8 1380 PRINT " ";DEBNAVN$;TAB(38);TAL1$;TAB(52);TAL2$;TAB(65);TAL3$
0x102c…1071 LineComalBin {
0x102c…1071 ptr = 0x9dc8 // 0x102c @0x0
0x102c…1071 lno = 0x0564 // 0x102e @0x2
0x102c…1071 at0004 = ╱92╱ PRINT ╱ // 0x1030 @0x4
0x102c…1071 at0005 = ╱22╱"╱ // 0x1031 @0x5
0x102c…1071 at0006 = ╱20╱…╱ // 0x1032 @0x6
0x102c…1071 at0007 = ╱22╱"╱ // 0x1033 @0x7
0x102c…1071 at0008 = ╱eb╱;╱ // 0x1034 @0x8
0x102c…1071 at0009 = ╱44╱D╱ // 0x1035 @0x9
0x102c…1071 at000a = ╱45╱E╱ // 0x1036 @0xa
0x102c…1071 at000b = ╱42╱B╱ // 0x1037 @0xb
0x102c…1071 at000c = ╱4e╱N╱ // 0x1038 @0xc
0x102c…1071 at000d = ╱41╱A╱ // 0x1039 @0xd
0x102c…1071 at000e = ╱56╱V╱ // 0x103a @0xe
0x102c…1071 at000f = ╱4e╱N╱ // 0x103b @0xf
0x102c…1071 at0010 = ╱ef╱$╱ // 0x103c @0x10
0x102c…1071 at0011 = ╱eb╱;╱ // 0x103d @0x11
0x102c…1071 at0012 = ╱d2╱TAB╱ // 0x103e @0x12
0x102c…1071 at0013 = ╱ed╱(╱ // 0x103f @0x13
0x102c…1071 at0014 = ╱33╱3╱ // 0x1040 @0x14
0x102c…1071 at0015 = ╱38╱8╱ // 0x1041 @0x15
0x102c…1071 at0016 = ╱fe00009806╱ // 0x1042 @0x16
0x102c…1071 at001b = ╱ee╱)╱ // 0x1047 @0x1b
0x102c…1071 at001c = ╱eb╱;╱ // 0x1048 @0x1c
0x102c…1071 at001d = ╱54╱T╱ // 0x1049 @0x1d
0x102c…1071 at001e = ╱41╱A╱ // 0x104a @0x1e
0x102c…1071 at001f = ╱4c╱L╱ // 0x104b @0x1f
0x102c…1071 at0020 = ╱31╱1╱ // 0x104c @0x20
0x102c…1071 at0021 = ╱ef╱$╱ // 0x104d @0x21
0x102c…1071 at0022 = ╱eb╱;╱ // 0x104e @0x22
0x102c…1071 at0023 = ╱d2╱TAB╱ // 0x104f @0x23
0x102c…1071 at0024 = ╱ed╱(╱ // 0x1050 @0x24
0x102c…1071 at0025 = ╱35╱5╱ // 0x1051 @0x25
0x102c…1071 at0026 = ╱32╱2╱ // 0x1052 @0x26
0x102c…1071 at0027 = ╱fe0000d006╱ // 0x1053 @0x27
0x102c…1071 at002c = ╱ee╱)╱ // 0x1058 @0x2c
0x102c…1071 at002d = ╱eb╱;╱ // 0x1059 @0x2d
0x102c…1071 at002e = ╱54╱T╱ // 0x105a @0x2e
0x102c…1071 at002f = ╱41╱A╱ // 0x105b @0x2f
0x102c…1071 at0030 = ╱4c╱L╱ // 0x105c @0x30
0x102c…1071 at0031 = ╱32╱2╱ // 0x105d @0x31
0x102c…1071 at0032 = ╱ef╱$╱ // 0x105e @0x32
0x102c…1071 at0033 = ╱eb╱;╱ // 0x105f @0x33
0x102c…1071 at0034 = ╱d2╱TAB╱ // 0x1060 @0x34
0x102c…1071 at0035 = ╱ed╱(╱ // 0x1061 @0x35
0x102c…1071 at0036 = ╱36╱6╱ // 0x1062 @0x36
0x102c…1071 at0037 = ╱35╱5╱ // 0x1063 @0x37
0x102c…1071 at0038 = ╱fe00008207╱ // 0x1064 @0x38
0x102c…1071 at003d = ╱ee╱)╱ // 0x1069 @0x3d
0x102c…1071 at003e = ╱eb╱;╱ // 0x106a @0x3e
0x102c…1071 at003f = ╱54╱T╱ // 0x106b @0x3f
0x102c…1071 at0040 = ╱41╱A╱ // 0x106c @0x40
0x102c…1071 at0041 = ╱4c╱L╱ // 0x106d @0x41
0x102c…1071 at0042 = ╱33╱3╱ // 0x106e @0x42
0x102c…1071 at0043 = ╱ef╱$╱ // 0x106f @0x43
0x102c…1071 at0044 = EOL // 0x1070 @0x44
0x102c…1071 }
0x1071…107a 9dd1 1390 PRINT " "
0x1071…107a LineComalBin {
0x1071…107a ptr = 0x9dd1 // 0x1071 @0x0
0x1071…107a lno = 0x056e // 0x1073 @0x2
0x1071…107a at0004 = ╱92╱ PRINT ╱ // 0x1075 @0x4
0x1071…107a at0005 = ╱22╱"╱ // 0x1076 @0x5
0x1071…107a at0006 = ╱20╱…╱ // 0x1077 @0x6
0x1071…107a at0007 = ╱22╱"╱ // 0x1078 @0x7
0x1071…107a at0008 = EOL // 0x1079 @0x8
0x1071…107a }
0x107a…1087 9dde 1400 WHEN 2
0x107a…1087 LineComalBin {
0x107a…1087 ptr = 0x9dde // 0x107a @0x0
0x107a…1087 lno = 0x0578 // 0x107c @0x2
0x107a…1087 at0004 = ╱a301╱ WHEN ╱ // 0x107e @0x4
0x107a…1087 at0006 = ╱32╱2╱ // 0x1080 @0x6
0x107a…1087 at0007 = ╱fe00008002╱ // 0x1081 @0x7
0x107a…1087 at000c = EOL // 0x1086 @0xc
0x107a…1087 }
0x1087…109f 9df6 1410 PRINT USING "###### ":DEBNR;
0x1087…109f LineComalBin {
0x1087…109f ptr = 0x9df6 // 0x1087 @0x0
0x1087…109f lno = 0x0582 // 0x1089 @0x2
0x1087…109f at0004 = ╱92╱ PRINT ╱ // 0x108b @0x4
0x1087…109f at0005 = ╱b9╱ USING ╱ // 0x108c @0x5
0x1087…109f at0006 = ╱22╱"╱ // 0x108d @0x6
0x1087…109f at0007 = ╱23╱#╱ // 0x108e @0x7
0x1087…109f at0008 = ╱23╱#╱ // 0x108f @0x8
0x1087…109f at0009 = ╱23╱#╱ // 0x1090 @0x9
0x1087…109f at000a = ╱23╱#╱ // 0x1091 @0xa
0x1087…109f at000b = ╱23╱#╱ // 0x1092 @0xb
0x1087…109f at000c = ╱23╱#╱ // 0x1093 @0xc
0x1087…109f at000d = ╱20╱…╱ // 0x1094 @0xd
0x1087…109f at000e = ╱20╱…╱ // 0x1095 @0xe
0x1087…109f at000f = ╱22╱"╱ // 0x1096 @0xf
0x1087…109f at0010 = ╱f0╱:╱ // 0x1097 @0x10
0x1087…109f at0011 = ╱44╱D╱ // 0x1098 @0x11
0x1087…109f at0012 = ╱45╱E╱ // 0x1099 @0x12
0x1087…109f at0013 = ╱42╱B╱ // 0x109a @0x13
0x1087…109f at0014 = ╱4e╱N╱ // 0x109b @0x14
0x1087…109f at0015 = ╱52╱R╱ // 0x109c @0x15
0x1087…109f at0016 = ╱eb╱;╱ // 0x109d @0x16
0x1087…109f at0017 = EOL // 0x109e @0x17
0x1087…109f }
0x109f…10b9 9e10 1420 PRINT DEBNAVN$;TAB(34);
0x109f…10b9 LineComalBin {
0x109f…10b9 ptr = 0x9e10 // 0x109f @0x0
0x109f…10b9 lno = 0x058c // 0x10a1 @0x2
0x109f…10b9 at0004 = ╱92╱ PRINT ╱ // 0x10a3 @0x4
0x109f…10b9 at0005 = ╱44╱D╱ // 0x10a4 @0x5
0x109f…10b9 at0006 = ╱45╱E╱ // 0x10a5 @0x6
0x109f…10b9 at0007 = ╱42╱B╱ // 0x10a6 @0x7
0x109f…10b9 at0008 = ╱4e╱N╱ // 0x10a7 @0x8
0x109f…10b9 at0009 = ╱41╱A╱ // 0x10a8 @0x9
0x109f…10b9 at000a = ╱56╱V╱ // 0x10a9 @0xa
0x109f…10b9 at000b = ╱4e╱N╱ // 0x10aa @0xb
0x109f…10b9 at000c = ╱ef╱$╱ // 0x10ab @0xc
0x109f…10b9 at000d = ╱eb╱;╱ // 0x10ac @0xd
0x109f…10b9 at000e = ╱d2╱TAB╱ // 0x10ad @0xe
0x109f…10b9 at000f = ╱ed╱(╱ // 0x10ae @0xf
0x109f…10b9 at0010 = ╱33╱3╱ // 0x10af @0x10
0x109f…10b9 at0011 = ╱34╱4╱ // 0x10b0 @0x11
0x109f…10b9 at0012 = ╱fe00008806╱ // 0x10b1 @0x12
0x109f…10b9 at0017 = ╱ee╱)╱ // 0x10b6 @0x17
0x109f…10b9 at0018 = ╱eb╱;╱ // 0x10b7 @0x18
0x109f…10b9 at0019 = EOL // 0x10b8 @0x19
0x109f…10b9 }
0x10b9…10d6 9e2d 1430 PRINT USING "####### ":DPOSTNR;
0x10b9…10d6 LineComalBin {
0x10b9…10d6 ptr = 0x9e2d // 0x10b9 @0x0
0x10b9…10d6 lno = 0x0596 // 0x10bb @0x2
0x10b9…10d6 at0004 = ╱92╱ PRINT ╱ // 0x10bd @0x4
0x10b9…10d6 at0005 = ╱b9╱ USING ╱ // 0x10be @0x5
0x10b9…10d6 at0006 = ╱22╱"╱ // 0x10bf @0x6
0x10b9…10d6 at0007 = ╱23╱#╱ // 0x10c0 @0x7
0x10b9…10d6 at0008 = ╱23╱#╱ // 0x10c1 @0x8
0x10b9…10d6 at0009 = ╱23╱#╱ // 0x10c2 @0x9
0x10b9…10d6 at000a = ╱23╱#╱ // 0x10c3 @0xa
0x10b9…10d6 at000b = ╱23╱#╱ // 0x10c4 @0xb
0x10b9…10d6 at000c = ╱23╱#╱ // 0x10c5 @0xc
0x10b9…10d6 at000d = ╱23╱#╱ // 0x10c6 @0xd
0x10b9…10d6 at000e = ╱20╱…╱ // 0x10c7 @0xe
0x10b9…10d6 at000f = ╱20╱…╱ // 0x10c8 @0xf
0x10b9…10d6 at0010 = ╱20╱…╱ // 0x10c9 @0x10
0x10b9…10d6 at0011 = ╱20╱…╱ // 0x10ca @0x11
0x10b9…10d6 at0012 = ╱22╱"╱ // 0x10cb @0x12
0x10b9…10d6 at0013 = ╱f0╱:╱ // 0x10cc @0x13
0x10b9…10d6 at0014 = ╱44╱D╱ // 0x10cd @0x14
0x10b9…10d6 at0015 = ╱50╱P╱ // 0x10ce @0x15
0x10b9…10d6 at0016 = ╱4f╱O╱ // 0x10cf @0x16
0x10b9…10d6 at0017 = ╱53╱S╱ // 0x10d0 @0x17
0x10b9…10d6 at0018 = ╱54╱T╱ // 0x10d1 @0x18
0x10b9…10d6 at0019 = ╱4e╱N╱ // 0x10d2 @0x19
0x10b9…10d6 at001a = ╱52╱R╱ // 0x10d3 @0x1a
0x10b9…10d6 at001b = ╱eb╱;╱ // 0x10d4 @0x1b
0x10b9…10d6 at001c = EOL // 0x10d5 @0x1c
0x10b9…10d6 }
0x10d6…10f5 9e4c 1440 PRINT DEBBY$;TAB(67);DEBTLF$
0x10d6…10f5 LineComalBin {
0x10d6…10f5 ptr = 0x9e4c // 0x10d6 @0x0
0x10d6…10f5 lno = 0x05a0 // 0x10d8 @0x2
0x10d6…10f5 at0004 = ╱92╱ PRINT ╱ // 0x10da @0x4
0x10d6…10f5 at0005 = ╱44╱D╱ // 0x10db @0x5
0x10d6…10f5 at0006 = ╱45╱E╱ // 0x10dc @0x6
0x10d6…10f5 at0007 = ╱42╱B╱ // 0x10dd @0x7
0x10d6…10f5 at0008 = ╱42╱B╱ // 0x10de @0x8
0x10d6…10f5 at0009 = ╱59╱Y╱ // 0x10df @0x9
0x10d6…10f5 at000a = ╱ef╱$╱ // 0x10e0 @0xa
0x10d6…10f5 at000b = ╱eb╱;╱ // 0x10e1 @0xb
0x10d6…10f5 at000c = ╱d2╱TAB╱ // 0x10e2 @0xc
0x10d6…10f5 at000d = ╱ed╱(╱ // 0x10e3 @0xd
0x10d6…10f5 at000e = ╱36╱6╱ // 0x10e4 @0xe
0x10d6…10f5 at000f = ╱37╱7╱ // 0x10e5 @0xf
0x10d6…10f5 at0010 = ╱fe00008607╱ // 0x10e6 @0x10
0x10d6…10f5 at0015 = ╱ee╱)╱ // 0x10eb @0x15
0x10d6…10f5 at0016 = ╱eb╱;╱ // 0x10ec @0x16
0x10d6…10f5 at0017 = ╱44╱D╱ // 0x10ed @0x17
0x10d6…10f5 at0018 = ╱45╱E╱ // 0x10ee @0x18
0x10d6…10f5 at0019 = ╱42╱B╱ // 0x10ef @0x19
0x10d6…10f5 at001a = ╱54╱T╱ // 0x10f0 @0x1a
0x10d6…10f5 at001b = ╱4c╱L╱ // 0x10f1 @0x1b
0x10d6…10f5 at001c = ╱46╱F╱ // 0x10f2 @0x1c
0x10d6…10f5 at001d = ╱ef╱$╱ // 0x10f3 @0x1d
0x10d6…10f5 at001e = EOL // 0x10f4 @0x1e
0x10d6…10f5 }
0x10f5…1102 9e59 1450 WHEN 3
0x10f5…1102 LineComalBin {
0x10f5…1102 ptr = 0x9e59 // 0x10f5 @0x0
0x10f5…1102 lno = 0x05aa // 0x10f7 @0x2
0x10f5…1102 at0004 = ╱a301╱ WHEN ╱ // 0x10f9 @0x4
0x10f5…1102 at0006 = ╱33╱3╱ // 0x10fb @0x6
0x10f5…1102 at0007 = ╱fe0000c002╱ // 0x10fc @0x7
0x10f5…1102 at000c = EOL // 0x1101 @0xc
0x10f5…1102 }
0x1102…110f 9e66 1451 J=0
0x1102…110f LineComalBin {
0x1102…110f ptr = 0x9e66 // 0x1102 @0x0
0x1102…110f lno = 0x05ab // 0x1104 @0x2
0x1102…110f at0004 = ╱4a╱J╱ // 0x1106 @0x4
0x1102…110f at0005 = ╱dc╱=╱ // 0x1107 @0x5
0x1102…110f at0006 = ╱30╱0╱ // 0x1108 @0x6
0x1102…110f at0007 = ╱fe00000000╱ // 0x1109 @0x7
0x1102…110f at000c = EOL // 0x110e @0xc
0x1102…110f }
0x110f…1115 9e6c 1452 REPEAT
0x110f…1115 LineComalBin {
0x110f…1115 ptr = 0x9e6c // 0x110f @0x0
0x110f…1115 lno = 0x05ac // 0x1111 @0x2
0x110f…1115 at0004 = ╱97╱ REPEAT ╱ // 0x1113 @0x4
0x110f…1115 at0005 = EOL // 0x1114 @0x5
0x110f…1115 }
0x1115…112a 9e81 1460 FOR I=1 TO 4
0x1115…112a LineComalBin {
0x1115…112a ptr = 0x9e81 // 0x1115 @0x0
0x1115…112a lno = 0x05b4 // 0x1117 @0x2
0x1115…112a at0004 = ╱83╱ FOR ╱ // 0x1119 @0x4
0x1115…112a at0005 = ╱49╱I╱ // 0x111a @0x5
0x1115…112a at0006 = ╱dc╱=╱ // 0x111b @0x6
0x1115…112a at0007 = ╱31╱1╱ // 0x111c @0x7
0x1115…112a at0008 = ╱fe00008001╱ // 0x111d @0x8
0x1115…112a at000d = ╱b7╱ TO ╱ // 0x1122 @0xd
0x1115…112a at000e = ╱34╱4╱ // 0x1123 @0xe
0x1115…112a at000f = ╱fe00008003╱ // 0x1124 @0xf
0x1115…112a at0014 = EOL // 0x1129 @0x14
0x1115…112a }
0x112a…1133 9e8a 1470 PRINT " "
0x112a…1133 LineComalBin {
0x112a…1133 ptr = 0x9e8a // 0x112a @0x0
0x112a…1133 lno = 0x05be // 0x112c @0x2
0x112a…1133 at0004 = ╱92╱ PRINT ╱ // 0x112e @0x4
0x112a…1133 at0005 = ╱22╱"╱ // 0x112f @0x5
0x112a…1133 at0006 = ╱20╱…╱ // 0x1130 @0x6
0x112a…1133 at0007 = ╱22╱"╱ // 0x1131 @0x7
0x112a…1133 at0008 = EOL // 0x1132 @0x8
0x112a…1133 }
0x1133…113a 9e91 1480 NEXT I
0x1133…113a LineComalBin {
0x1133…113a ptr = 0x9e91 // 0x1133 @0x0
0x1133…113a lno = 0x05c8 // 0x1135 @0x2
0x1133…113a at0004 = ╱84╱ NEXT ╱ // 0x1137 @0x4
0x1133…113a at0005 = ╱49╱I╱ // 0x1138 @0x5
0x1133…113a at0006 = EOL // 0x1139 @0x6
0x1133…113a }
0x113a…1153 9eaa 1490 PRINT USING "###### ":DEBNR;
0x113a…1153 LineComalBin {
0x113a…1153 ptr = 0x9eaa // 0x113a @0x0
0x113a…1153 lno = 0x05d2 // 0x113c @0x2
0x113a…1153 at0004 = ╱92╱ PRINT ╱ // 0x113e @0x4
0x113a…1153 at0005 = ╱b9╱ USING ╱ // 0x113f @0x5
0x113a…1153 at0006 = ╱22╱"╱ // 0x1140 @0x6
0x113a…1153 at0007 = ╱23╱#╱ // 0x1141 @0x7
0x113a…1153 at0008 = ╱23╱#╱ // 0x1142 @0x8
0x113a…1153 at0009 = ╱23╱#╱ // 0x1143 @0x9
0x113a…1153 at000a = ╱23╱#╱ // 0x1144 @0xa
0x113a…1153 at000b = ╱23╱#╱ // 0x1145 @0xb
0x113a…1153 at000c = ╱23╱#╱ // 0x1146 @0xc
0x113a…1153 at000d = ╱20╱…╱ // 0x1147 @0xd
0x113a…1153 at000e = ╱20╱…╱ // 0x1148 @0xe
0x113a…1153 at000f = ╱20╱…╱ // 0x1149 @0xf
0x113a…1153 at0010 = ╱22╱"╱ // 0x114a @0x10
0x113a…1153 at0011 = ╱f0╱:╱ // 0x114b @0x11
0x113a…1153 at0012 = ╱44╱D╱ // 0x114c @0x12
0x113a…1153 at0013 = ╱45╱E╱ // 0x114d @0x13
0x113a…1153 at0014 = ╱42╱B╱ // 0x114e @0x14
0x113a…1153 at0015 = ╱4e╱N╱ // 0x114f @0x15
0x113a…1153 at0016 = ╱52╱R╱ // 0x1150 @0x16
0x113a…1153 at0017 = ╱eb╱;╱ // 0x1151 @0x17
0x113a…1153 at0018 = EOL // 0x1152 @0x18
0x113a…1153 }
0x1153…1165 9ebc 1500 PRINT DEBNAVN$;" "
0x1153…1165 LineComalBin {
0x1153…1165 ptr = 0x9ebc // 0x1153 @0x0
0x1153…1165 lno = 0x05dc // 0x1155 @0x2
0x1153…1165 at0004 = ╱92╱ PRINT ╱ // 0x1157 @0x4
0x1153…1165 at0005 = ╱44╱D╱ // 0x1158 @0x5
0x1153…1165 at0006 = ╱45╱E╱ // 0x1159 @0x6
0x1153…1165 at0007 = ╱42╱B╱ // 0x115a @0x7
0x1153…1165 at0008 = ╱4e╱N╱ // 0x115b @0x8
0x1153…1165 at0009 = ╱41╱A╱ // 0x115c @0x9
0x1153…1165 at000a = ╱56╱V╱ // 0x115d @0xa
0x1153…1165 at000b = ╱4e╱N╱ // 0x115e @0xb
0x1153…1165 at000c = ╱ef╱$╱ // 0x115f @0xc
0x1153…1165 at000d = ╱eb╱;╱ // 0x1160 @0xd
0x1153…1165 at000e = ╱22╱"╱ // 0x1161 @0xe
0x1153…1165 at000f = ╱20╱…╱ // 0x1162 @0xf
0x1153…1165 at0010 = ╱22╱"╱ // 0x1163 @0x10
0x1153…1165 at0011 = EOL // 0x1164 @0x11
0x1153…1165 }
0x1165…116e 9ec5 1510 PRINT " "
0x1165…116e LineComalBin {
0x1165…116e ptr = 0x9ec5 // 0x1165 @0x0
0x1165…116e lno = 0x05e6 // 0x1167 @0x2
0x1165…116e at0004 = ╱92╱ PRINT ╱ // 0x1169 @0x4
0x1165…116e at0005 = ╱22╱"╱ // 0x116a @0x5
0x1165…116e at0006 = ╱20╱…╱ // 0x116b @0x6
0x1165…116e at0007 = ╱22╱"╱ // 0x116c @0x7
0x1165…116e at0008 = EOL // 0x116d @0x8
0x1165…116e }
0x116e…118b 9ee2 1520 PRINT TAB(10);DEBGADE$;" "
0x116e…118b LineComalBin {
0x116e…118b ptr = 0x9ee2 // 0x116e @0x0
0x116e…118b lno = 0x05f0 // 0x1170 @0x2
0x116e…118b at0004 = ╱92╱ PRINT ╱ // 0x1172 @0x4
0x116e…118b at0005 = ╱d2╱TAB╱ // 0x1173 @0x5
0x116e…118b at0006 = ╱ed╱(╱ // 0x1174 @0x6
0x116e…118b at0007 = ╱31╱1╱ // 0x1175 @0x7
0x116e…118b at0008 = ╱30╱0╱ // 0x1176 @0x8
0x116e…118b at0009 = ╱fe0000a004╱ // 0x1177 @0x9
0x116e…118b at000e = ╱ee╱)╱ // 0x117c @0xe
0x116e…118b at000f = ╱eb╱;╱ // 0x117d @0xf
0x116e…118b at0010 = ╱44╱D╱ // 0x117e @0x10
0x116e…118b at0011 = ╱45╱E╱ // 0x117f @0x11
0x116e…118b at0012 = ╱42╱B╱ // 0x1180 @0x12
0x116e…118b at0013 = ╱47╱G╱ // 0x1181 @0x13
0x116e…118b at0014 = ╱41╱A╱ // 0x1182 @0x14
0x116e…118b at0015 = ╱44╱D╱ // 0x1183 @0x15
0x116e…118b at0016 = ╱45╱E╱ // 0x1184 @0x16
0x116e…118b at0017 = ╱ef╱$╱ // 0x1185 @0x17
0x116e…118b at0018 = ╱eb╱;╱ // 0x1186 @0x18
0x116e…118b at0019 = ╱22╱"╱ // 0x1187 @0x19
0x116e…118b at001a = ╱20╱…╱ // 0x1188 @0x1a
0x116e…118b at001b = ╱22╱"╱ // 0x1189 @0x1b
0x116e…118b at001c = EOL // 0x118a @0x1c
0x116e…118b }
0x118b…1194 9eeb 1530 PRINT " "
0x118b…1194 LineComalBin {
0x118b…1194 ptr = 0x9eeb // 0x118b @0x0
0x118b…1194 lno = 0x05fa // 0x118d @0x2
0x118b…1194 at0004 = ╱92╱ PRINT ╱ // 0x118f @0x4
0x118b…1194 at0005 = ╱22╱"╱ // 0x1190 @0x5
0x118b…1194 at0006 = ╱20╱…╱ // 0x1191 @0x6
0x118b…1194 at0007 = ╱22╱"╱ // 0x1192 @0x7
0x118b…1194 at0008 = EOL // 0x1193 @0x8
0x118b…1194 }
0x1194…11a4 9efb 1540 PRINT TAB(7);
0x1194…11a4 LineComalBin {
0x1194…11a4 ptr = 0x9efb // 0x1194 @0x0
0x1194…11a4 lno = 0x0604 // 0x1196 @0x2
0x1194…11a4 at0004 = ╱92╱ PRINT ╱ // 0x1198 @0x4
0x1194…11a4 at0005 = ╱d2╱TAB╱ // 0x1199 @0x5
0x1194…11a4 at0006 = ╱ed╱(╱ // 0x119a @0x6
0x1194…11a4 at0007 = ╱37╱7╱ // 0x119b @0x7
0x1194…11a4 at0008 = ╱fe0000e003╱ // 0x119c @0x8
0x1194…11a4 at000d = ╱ee╱)╱ // 0x11a1 @0xd
0x1194…11a4 at000e = ╱eb╱;╱ // 0x11a2 @0xe
0x1194…11a4 at000f = EOL // 0x11a3 @0xf
0x1194…11a4 }
0x11a4…11c0 9f17 1550 PRINT USING "######## ":DPOSTNR;
0x11a4…11c0 LineComalBin {
0x11a4…11c0 ptr = 0x9f17 // 0x11a4 @0x0
0x11a4…11c0 lno = 0x060e // 0x11a6 @0x2
0x11a4…11c0 at0004 = ╱92╱ PRINT ╱ // 0x11a8 @0x4
0x11a4…11c0 at0005 = ╱b9╱ USING ╱ // 0x11a9 @0x5
0x11a4…11c0 at0006 = ╱22╱"╱ // 0x11aa @0x6
0x11a4…11c0 at0007 = ╱23╱#╱ // 0x11ab @0x7
0x11a4…11c0 at0008 = ╱23╱#╱ // 0x11ac @0x8
0x11a4…11c0 at0009 = ╱23╱#╱ // 0x11ad @0x9
0x11a4…11c0 at000a = ╱23╱#╱ // 0x11ae @0xa
0x11a4…11c0 at000b = ╱23╱#╱ // 0x11af @0xb
0x11a4…11c0 at000c = ╱23╱#╱ // 0x11b0 @0xc
0x11a4…11c0 at000d = ╱23╱#╱ // 0x11b1 @0xd
0x11a4…11c0 at000e = ╱23╱#╱ // 0x11b2 @0xe
0x11a4…11c0 at000f = ╱20╱…╱ // 0x11b3 @0xf
0x11a4…11c0 at0010 = ╱20╱…╱ // 0x11b4 @0x10
0x11a4…11c0 at0011 = ╱22╱"╱ // 0x11b5 @0x11
0x11a4…11c0 at0012 = ╱f0╱:╱ // 0x11b6 @0x12
0x11a4…11c0 at0013 = ╱44╱D╱ // 0x11b7 @0x13
0x11a4…11c0 at0014 = ╱50╱P╱ // 0x11b8 @0x14
0x11a4…11c0 at0015 = ╱4f╱O╱ // 0x11b9 @0x15
0x11a4…11c0 at0016 = ╱53╱S╱ // 0x11ba @0x16
0x11a4…11c0 at0017 = ╱54╱T╱ // 0x11bb @0x17
0x11a4…11c0 at0018 = ╱4e╱N╱ // 0x11bc @0x18
0x11a4…11c0 at0019 = ╱52╱R╱ // 0x11bd @0x19
0x11a4…11c0 at001a = ╱eb╱;╱ // 0x11be @0x1a
0x11a4…11c0 at001b = EOL // 0x11bf @0x1b
0x11a4…11c0 }
0x11c0…11d0 9f27 1560 PRINT DEBBY$;" "
0x11c0…11d0 LineComalBin {
0x11c0…11d0 ptr = 0x9f27 // 0x11c0 @0x0
0x11c0…11d0 lno = 0x0618 // 0x11c2 @0x2
0x11c0…11d0 at0004 = ╱92╱ PRINT ╱ // 0x11c4 @0x4
0x11c0…11d0 at0005 = ╱44╱D╱ // 0x11c5 @0x5
0x11c0…11d0 at0006 = ╱45╱E╱ // 0x11c6 @0x6
0x11c0…11d0 at0007 = ╱42╱B╱ // 0x11c7 @0x7
0x11c0…11d0 at0008 = ╱42╱B╱ // 0x11c8 @0x8
0x11c0…11d0 at0009 = ╱59╱Y╱ // 0x11c9 @0x9
0x11c0…11d0 at000a = ╱ef╱$╱ // 0x11ca @0xa
0x11c0…11d0 at000b = ╱eb╱;╱ // 0x11cb @0xb
0x11c0…11d0 at000c = ╱22╱"╱ // 0x11cc @0xc
0x11c0…11d0 at000d = ╱20╱…╱ // 0x11cd @0xd
0x11c0…11d0 at000e = ╱22╱"╱ // 0x11ce @0xe
0x11c0…11d0 at000f = EOL // 0x11cf @0xf
0x11c0…11d0 }
0x11d0…11ec 9f43 1570 IF DEBLK$>"0" AND DEBLK$<="9" THEN
0x11d0…11ec LineComalBin {
0x11d0…11ec ptr = 0x9f43 // 0x11d0 @0x0
0x11d0…11ec lno = 0x0622 // 0x11d2 @0x2
0x11d0…11ec at0004 = ╱9c╱ IF ╱ // 0x11d4 @0x4
0x11d0…11ec at0005 = ╱44╱D╱ // 0x11d5 @0x5
0x11d0…11ec at0006 = ╱45╱E╱ // 0x11d6 @0x6
0x11d0…11ec at0007 = ╱42╱B╱ // 0x11d7 @0x7
0x11d0…11ec at0008 = ╱4c╱L╱ // 0x11d8 @0x8
0x11d0…11ec at0009 = ╱4b╱K╱ // 0x11d9 @0x9
0x11d0…11ec at000a = ╱ef╱$╱ // 0x11da @0xa
0x11d0…11ec at000b = ╱de╱>╱ // 0x11db @0xb
0x11d0…11ec at000c = ╱22╱"╱ // 0x11dc @0xc
0x11d0…11ec at000d = ╱30╱0╱ // 0x11dd @0xd
0x11d0…11ec at000e = ╱22╱"╱ // 0x11de @0xe
0x11d0…11ec at000f = ╱da╱ AND ╱ // 0x11df @0xf
0x11d0…11ec at0010 = ╱44╱D╱ // 0x11e0 @0x10
0x11d0…11ec at0011 = ╱45╱E╱ // 0x11e1 @0x11
0x11d0…11ec at0012 = ╱42╱B╱ // 0x11e2 @0x12
0x11d0…11ec at0013 = ╱4c╱L╱ // 0x11e3 @0x13
0x11d0…11ec at0014 = ╱4b╱K╱ // 0x11e4 @0x14
0x11d0…11ec at0015 = ╱ef╱$╱ // 0x11e5 @0x15
0x11d0…11ec at0016 = ╱df╱<=╱ // 0x11e6 @0x16
0x11d0…11ec at0017 = ╱22╱"╱ // 0x11e7 @0x17
0x11d0…11ec at0018 = ╱39╱9╱ // 0x11e8 @0x18
0x11d0…11ec at0019 = ╱22╱"╱ // 0x11e9 @0x19
0x11d0…11ec at001a = ╱b6╱ THEN ╱ // 0x11ea @0x1a
0x11d0…11ec at001b = EOL // 0x11eb @0x1b
0x11d0…11ec }
0x11ec…11f5 9f4c 1580 PRINT " "
0x11ec…11f5 LineComalBin {
0x11ec…11f5 ptr = 0x9f4c // 0x11ec @0x0
0x11ec…11f5 lno = 0x062c // 0x11ee @0x2
0x11ec…11f5 at0004 = ╱92╱ PRINT ╱ // 0x11f0 @0x4
0x11ec…11f5 at0005 = ╱22╱"╱ // 0x11f1 @0x5
0x11ec…11f5 at0006 = ╱20╱…╱ // 0x11f2 @0x6
0x11ec…11f5 at0007 = ╱22╱"╱ // 0x11f3 @0x7
0x11ec…11f5 at0008 = EOL // 0x11f4 @0x8
0x11ec…11f5 }
0x11f5…121d 9f74 1590 PRINT TAB(9);LAND$(ORD(DEBLK$)-48)
0x11f5…121d LineComalBin {
0x11f5…121d ptr = 0x9f74 // 0x11f5 @0x0
0x11f5…121d lno = 0x0636 // 0x11f7 @0x2
0x11f5…121d at0004 = ╱92╱ PRINT ╱ // 0x11f9 @0x4
0x11f5…121d at0005 = ╱d2╱TAB╱ // 0x11fa @0x5
0x11f5…121d at0006 = ╱ed╱(╱ // 0x11fb @0x6
0x11f5…121d at0007 = ╱39╱9╱ // 0x11fc @0x7
0x11f5…121d at0008 = ╱fe00009004╱ // 0x11fd @0x8
0x11f5…121d at000d = ╱ee╱)╱ // 0x1202 @0xd
0x11f5…121d at000e = ╱eb╱;╱ // 0x1203 @0xe
0x11f5…121d at000f = ╱4c╱L╱ // 0x1204 @0xf
0x11f5…121d at0010 = ╱41╱A╱ // 0x1205 @0x10
0x11f5…121d at0011 = ╱4e╱N╱ // 0x1206 @0x11
0x11f5…121d at0012 = ╱44╱D╱ // 0x1207 @0x12
0x11f5…121d at0013 = ╱ef╱$╱ // 0x1208 @0x13
0x11f5…121d at0014 = ╱ed╱(╱ // 0x1209 @0x14
0x11f5…121d at0015 = ╱cd╱ORD╱ // 0x120a @0x15
0x11f5…121d at0016 = ╱ed╱(╱ // 0x120b @0x16
0x11f5…121d at0017 = ╱44╱D╱ // 0x120c @0x17
0x11f5…121d at0018 = ╱45╱E╱ // 0x120d @0x18
0x11f5…121d at0019 = ╱42╱B╱ // 0x120e @0x19
0x11f5…121d at001a = ╱4c╱L╱ // 0x120f @0x1a
0x11f5…121d at001b = ╱4b╱K╱ // 0x1210 @0x1b
0x11f5…121d at001c = ╱ef╱$╱ // 0x1211 @0x1c
0x11f5…121d at001d = ╱ee╱)╱ // 0x1212 @0x1d
0x11f5…121d at001e = ╱e3╱-╱ // 0x1213 @0x1e
0x11f5…121d at001f = ╱34╱4╱ // 0x1214 @0x1f
0x11f5…121d at0020 = ╱38╱8╱ // 0x1215 @0x20
0x11f5…121d at0021 = ╱fe0000c006╱ // 0x1216 @0x21
0x11f5…121d at0026 = ╱ee╱)╱ // 0x121b @0x26
0x11f5…121d at0027 = EOL // 0x121c @0x27
0x11f5…121d }
0x121d…1223 9f7a 1600 ELSE
0x121d…1223 LineComalBin {
0x121d…1223 ptr = 0x9f7a // 0x121d @0x0
0x121d…1223 lno = 0x0640 // 0x121f @0x2
0x121d…1223 at0004 = ╱9a╱ ELSE ╱ // 0x1221 @0x4
0x121d…1223 at0005 = EOL // 0x1222 @0x5
0x121d…1223 }
0x1223…123e 9f95 1610 PRINT CHR(10);CHR(10)
0x1223…123e LineComalBin {
0x1223…123e ptr = 0x9f95 // 0x1223 @0x0
0x1223…123e lno = 0x064a // 0x1225 @0x2
0x1223…123e at0004 = ╱92╱ PRINT ╱ // 0x1227 @0x4
0x1223…123e at0005 = ╱cf╱CHR╱ // 0x1228 @0x5
0x1223…123e at0006 = ╱ed╱(╱ // 0x1229 @0x6
0x1223…123e at0007 = ╱31╱1╱ // 0x122a @0x7
0x1223…123e at0008 = ╱30╱0╱ // 0x122b @0x8
0x1223…123e at0009 = ╱fe0000a004╱ // 0x122c @0x9
0x1223…123e at000e = ╱ee╱)╱ // 0x1231 @0xe
0x1223…123e at000f = ╱eb╱;╱ // 0x1232 @0xf
0x1223…123e at0010 = ╱cf╱CHR╱ // 0x1233 @0x10
0x1223…123e at0011 = ╱ed╱(╱ // 0x1234 @0x11
0x1223…123e at0012 = ╱31╱1╱ // 0x1235 @0x12
0x1223…123e at0013 = ╱30╱0╱ // 0x1236 @0x13
0x1223…123e at0014 = ╱fe0000a004╱ // 0x1237 @0x14
0x1223…123e at0019 = ╱ee╱)╱ // 0x123c @0x19
0x1223…123e at001a = EOL // 0x123d @0x1a
0x1223…123e }
0x123e…1244 9f9b 1620 ENDIF
0x123e…1244 LineComalBin {
0x123e…1244 ptr = 0x9f9b // 0x123e @0x0
0x123e…1244 lno = 0x0654 // 0x1240 @0x2
0x123e…1244 at0004 = ╱9b╱ ENDIF ╱ // 0x1242 @0x4
0x123e…1244 at0005 = EOL // 0x1243 @0x5
0x123e…1244 }
0x1244…1280 9fd7 1630 PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10)
0x1244…1280 LineComalBin {
0x1244…1280 ptr = 0x9fd7 // 0x1244 @0x0
0x1244…1280 lno = 0x065e // 0x1246 @0x2
0x1244…1280 at0004 = ╱92╱ PRINT ╱ // 0x1248 @0x4
0x1244…1280 at0005 = ╱cf╱CHR╱ // 0x1249 @0x5
0x1244…1280 at0006 = ╱ed╱(╱ // 0x124a @0x6
0x1244…1280 at0007 = ╱31╱1╱ // 0x124b @0x7
0x1244…1280 at0008 = ╱30╱0╱ // 0x124c @0x8
0x1244…1280 at0009 = ╱fe0000a004╱ // 0x124d @0x9
0x1244…1280 at000e = ╱ee╱)╱ // 0x1252 @0xe
0x1244…1280 at000f = ╱eb╱;╱ // 0x1253 @0xf
0x1244…1280 at0010 = ╱cf╱CHR╱ // 0x1254 @0x10
0x1244…1280 at0011 = ╱ed╱(╱ // 0x1255 @0x11
0x1244…1280 at0012 = ╱31╱1╱ // 0x1256 @0x12
0x1244…1280 at0013 = ╱30╱0╱ // 0x1257 @0x13
0x1244…1280 at0014 = ╱fe0000a004╱ // 0x1258 @0x14
0x1244…1280 at0019 = ╱ee╱)╱ // 0x125d @0x19
0x1244…1280 at001a = ╱eb╱;╱ // 0x125e @0x1a
0x1244…1280 at001b = ╱cf╱CHR╱ // 0x125f @0x1b
0x1244…1280 at001c = ╱ed╱(╱ // 0x1260 @0x1c
0x1244…1280 at001d = ╱31╱1╱ // 0x1261 @0x1d
0x1244…1280 at001e = ╱30╱0╱ // 0x1262 @0x1e
0x1244…1280 at001f = ╱fe0000a004╱ // 0x1263 @0x1f
0x1244…1280 at0024 = ╱ee╱)╱ // 0x1268 @0x24
0x1244…1280 at0025 = ╱eb╱;╱ // 0x1269 @0x25
0x1244…1280 at0026 = ╱cf╱CHR╱ // 0x126a @0x26
0x1244…1280 at0027 = ╱ed╱(╱ // 0x126b @0x27
0x1244…1280 at0028 = ╱31╱1╱ // 0x126c @0x28
0x1244…1280 at0029 = ╱30╱0╱ // 0x126d @0x29
0x1244…1280 at002a = ╱fe0000a004╱ // 0x126e @0x2a
0x1244…1280 at002f = ╱ee╱)╱ // 0x1273 @0x2f
0x1244…1280 at0030 = ╱eb╱;╱ // 0x1274 @0x30
0x1244…1280 at0031 = ╱cf╱CHR╱ // 0x1275 @0x31
0x1244…1280 at0032 = ╱ed╱(╱ // 0x1276 @0x32
0x1244…1280 at0033 = ╱31╱1╱ // 0x1277 @0x33
0x1244…1280 at0034 = ╱30╱0╱ // 0x1278 @0x34
0x1244…1280 at0035 = ╱fe0000a004╱ // 0x1279 @0x35
0x1244…1280 at003a = ╱ee╱)╱ // 0x127e @0x3a
0x1244…1280 at003b = EOL // 0x127f @0x3b
0x1244…1280 }
0x1280…128f 9fe6 1635 J=J+1
0x1280…128f LineComalBin {
0x1280…128f ptr = 0x9fe6 // 0x1280 @0x0
0x1280…128f lno = 0x0663 // 0x1282 @0x2
0x1280…128f at0004 = ╱4a╱J╱ // 0x1284 @0x4
0x1280…128f at0005 = ╱dc╱=╱ // 0x1285 @0x5
0x1280…128f at0006 = ╱4a╱J╱ // 0x1286 @0x6
0x1280…128f at0007 = ╱e2╱+╱ // 0x1287 @0x7
0x1280…128f at0008 = ╱31╱1╱ // 0x1288 @0x8
0x1280…128f at0009 = ╱fe00008001╱ // 0x1289 @0x9
0x1280…128f at000e = EOL // 0x128e @0xe
0x1280…128f }
0x128f…129d 9ff4 1636 UNTIL J=TALLET
0x128f…129d LineComalBin {
0x128f…129d ptr = 0x9ff4 // 0x128f @0x0
0x128f…129d lno = 0x0664 // 0x1291 @0x2
0x128f…129d at0004 = ╱98╱ UNTIL ╱ // 0x1293 @0x4
0x128f…129d at0005 = ╱4a╱J╱ // 0x1294 @0x5
0x128f…129d at0006 = ╱dc╱=╱ // 0x1295 @0x6
0x128f…129d at0007 = ╱54╱T╱ // 0x1296 @0x7
0x128f…129d at0008 = ╱41╱A╱ // 0x1297 @0x8
0x128f…129d at0009 = ╱4c╱L╱ // 0x1298 @0x9
0x128f…129d at000a = ╱4c╱L╱ // 0x1299 @0xa
0x128f…129d at000b = ╱45╱E╱ // 0x129a @0xb
0x128f…129d at000c = ╱54╱T╱ // 0x129b @0xc
0x128f…129d at000d = EOL // 0x129c @0xd
0x128f…129d }
0x129d…12a3 9ffa 1640 ENDCASE
0x129d…12a3 LineComalBin {
0x129d…12a3 ptr = 0x9ffa // 0x129d @0x0
0x129d…12a3 lno = 0x0668 // 0x129f @0x2
0x129d…12a3 at0004 = ╱a4╱ ENDCASE ╱ // 0x12a1 @0x4
0x129d…12a3 at0005 = EOL // 0x12a2 @0x5
0x129d…12a3 }
0x12a3…12a9 a000 1650 ENDPROC
0x12a3…12a9 LineComalBin {
0x12a3…12a9 ptr = 0xa000 // 0x12a3 @0x0
0x12a3…12a9 lno = 0x0672 // 0x12a5 @0x2
0x12a3…12a9 at0004 = ╱9f╱ ENDPROC ╱ // 0x12a7 @0x4
0x12a3…12a9 at0005 = EOL // 0x12a8 @0x5
0x12a3…12a9 }
0x12a9…12ce a025 1660 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3)
0x12a9…12ce LineComalBin {
0x12a9…12ce ptr = 0xa025 // 0x12a9 @0x0
0x12a9…12ce lno = 0x067c // 0x12ab @0x2
0x12a9…12ce at0004 = ╱9e╱ PROC ╱ // 0x12ad @0x4
0x12a9…12ce at0005 = ╱46╱F╱ // 0x12ae @0x5
0x12a9…12ce at0006 = ╱49╱I╱ // 0x12af @0x6
0x12a9…12ce at0007 = ╱4e╱N╱ // 0x12b0 @0x7
0x12a9…12ce at0008 = ╱44╱D╱ // 0x12b1 @0x8
0x12a9…12ce at0009 = ╱50╱P╱ // 0x12b2 @0x9
0x12a9…12ce at000a = ╱4f╱O╱ // 0x12b3 @0xa
0x12a9…12ce at000b = ╱53╱S╱ // 0x12b4 @0xb
0x12a9…12ce at000c = ╱54╱T╱ // 0x12b5 @0xc
0x12a9…12ce at000d = ╱ed╱(╱ // 0x12b6 @0xd
0x12a9…12ce at000e = ╱54╱T╱ // 0x12b7 @0xe
0x12a9…12ce at000f = ╱41╱A╱ // 0x12b8 @0xf
0x12a9…12ce at0010 = ╱42╱B╱ // 0x12b9 @0x10
0x12a9…12ce at0011 = ╱31╱1╱ // 0x12ba @0x11
0x12a9…12ce at0012 = ╱ec╱,╱ // 0x12bb @0x12
0x12a9…12ce at0013 = ╱4d╱M╱ // 0x12bc @0x13
0x12a9…12ce at0014 = ╱41╱A╱ // 0x12bd @0x14
0x12a9…12ce at0015 = ╱4e╱N╱ // 0x12be @0x15
0x12a9…12ce at0016 = ╱54╱T╱ // 0x12bf @0x16
0x12a9…12ce at0017 = ╱31╱1╱ // 0x12c0 @0x17
0x12a9…12ce at0018 = ╱ec╱,╱ // 0x12c1 @0x18
0x12a9…12ce at0019 = ╱4e╱N╱ // 0x12c2 @0x19
0x12a9…12ce at001a = ╱5c╱Ø╱ // 0x12c3 @0x1a
0x12a9…12ce at001b = ╱47╱G╱ // 0x12c4 @0x1b
0x12a9…12ce at001c = ╱4c╱L╱ // 0x12c5 @0x1c
0x12a9…12ce at001d = ╱31╱1╱ // 0x12c6 @0x1d
0x12a9…12ce at001e = ╱ec╱,╱ // 0x12c7 @0x1e
0x12a9…12ce at001f = ╱50╱P╱ // 0x12c8 @0x1f
0x12a9…12ce at0020 = ╱49╱I╱ // 0x12c9 @0x20
0x12a9…12ce at0021 = ╱4c╱L╱ // 0x12ca @0x21
0x12a9…12ce at0022 = ╱33╱3╱ // 0x12cb @0x22
0x12a9…12ce at0023 = ╱ee╱)╱ // 0x12cc @0x23
0x12a9…12ce at0024 = EOL // 0x12cd @0x24
0x12a9…12ce }
0x12ce…12fa a051 1670 PIL1=MANT1 DIV 2;PIL3=PIL1;CEKS=1
0x12ce…12fa LineComalBin {
0x12ce…12fa ptr = 0xa051 // 0x12ce @0x0
0x12ce…12fa lno = 0x0686 // 0x12d0 @0x2
0x12ce…12fa at0004 = ╱50╱P╱ // 0x12d2 @0x4
0x12ce…12fa at0005 = ╱49╱I╱ // 0x12d3 @0x5
0x12ce…12fa at0006 = ╱4c╱L╱ // 0x12d4 @0x6
0x12ce…12fa at0007 = ╱31╱1╱ // 0x12d5 @0x7
0x12ce…12fa at0008 = ╱dc╱=╱ // 0x12d6 @0x8
0x12ce…12fa at0009 = ╱4d╱M╱ // 0x12d7 @0x9
0x12ce…12fa at000a = ╱41╱A╱ // 0x12d8 @0xa
0x12ce…12fa at000b = ╱4e╱N╱ // 0x12d9 @0xb
0x12ce…12fa at000c = ╱54╱T╱ // 0x12da @0xc
0x12ce…12fa at000d = ╱31╱1╱ // 0x12db @0xd
0x12ce…12fa at000e = ╱e7╱ DIV ╱ // 0x12dc @0xe
0x12ce…12fa at000f = ╱32╱2╱ // 0x12dd @0xf
0x12ce…12fa at0010 = ╱fe00008002╱ // 0x12de @0x10
0x12ce…12fa at0015 = ╱eb╱;╱ // 0x12e3 @0x15
0x12ce…12fa at0016 = ╱50╱P╱ // 0x12e4 @0x16
0x12ce…12fa at0017 = ╱49╱I╱ // 0x12e5 @0x17
0x12ce…12fa at0018 = ╱4c╱L╱ // 0x12e6 @0x18
0x12ce…12fa at0019 = ╱33╱3╱ // 0x12e7 @0x19
0x12ce…12fa at001a = ╱dc╱=╱ // 0x12e8 @0x1a
0x12ce…12fa at001b = ╱50╱P╱ // 0x12e9 @0x1b
0x12ce…12fa at001c = ╱49╱I╱ // 0x12ea @0x1c
0x12ce…12fa at001d = ╱4c╱L╱ // 0x12eb @0x1d
0x12ce…12fa at001e = ╱31╱1╱ // 0x12ec @0x1e
0x12ce…12fa at001f = ╱eb╱;╱ // 0x12ed @0x1f
0x12ce…12fa at0020 = ╱43╱C╱ // 0x12ee @0x20
0x12ce…12fa at0021 = ╱45╱E╱ // 0x12ef @0x21
0x12ce…12fa at0022 = ╱4b╱K╱ // 0x12f0 @0x22
0x12ce…12fa at0023 = ╱53╱S╱ // 0x12f1 @0x23
0x12ce…12fa at0024 = ╱dc╱=╱ // 0x12f2 @0x24
0x12ce…12fa at0025 = ╱31╱1╱ // 0x12f3 @0x25
0x12ce…12fa at0026 = ╱fe00008001╱ // 0x12f4 @0x26
0x12ce…12fa at002b = EOL // 0x12f9 @0x2b
0x12ce…12fa }
0x12fa…1300 a057 1680 REPEAT
0x12fa…1300 LineComalBin {
0x12fa…1300 ptr = 0xa057 // 0x12fa @0x0
0x12fa…1300 lno = 0x0690 // 0x12fc @0x2
0x12fa…1300 at0004 = ╱97╱ REPEAT ╱ // 0x12fe @0x4
0x12fa…1300 at0005 = EOL // 0x12ff @0x5
0x12fa…1300 }
0x1300…132b a082 1690 IF NØGL1=TAB1(PIL3,1) OR PIL1=1 THEN EXIT
0x1300…132b LineComalBin {
0x1300…132b ptr = 0xa082 // 0x1300 @0x0
0x1300…132b lno = 0x069a // 0x1302 @0x2
0x1300…132b at0004 = ╱82╱ IF ╱ // 0x1304 @0x4
0x1300…132b at0005 = ╱4e╱N╱ // 0x1305 @0x5
0x1300…132b at0006 = ╱5c╱Ø╱ // 0x1306 @0x6
0x1300…132b at0007 = ╱47╱G╱ // 0x1307 @0x7
0x1300…132b at0008 = ╱4c╱L╱ // 0x1308 @0x8
0x1300…132b at0009 = ╱31╱1╱ // 0x1309 @0x9
0x1300…132b at000a = ╱dc╱=╱ // 0x130a @0xa
0x1300…132b at000b = ╱54╱T╱ // 0x130b @0xb
0x1300…132b at000c = ╱41╱A╱ // 0x130c @0xc
0x1300…132b at000d = ╱42╱B╱ // 0x130d @0xd
0x1300…132b at000e = ╱31╱1╱ // 0x130e @0xe
0x1300…132b at000f = ╱ed╱(╱ // 0x130f @0xf
0x1300…132b at0010 = ╱50╱P╱ // 0x1310 @0x10
0x1300…132b at0011 = ╱49╱I╱ // 0x1311 @0x11
0x1300…132b at0012 = ╱4c╱L╱ // 0x1312 @0x12
0x1300…132b at0013 = ╱33╱3╱ // 0x1313 @0x13
0x1300…132b at0014 = ╱ec╱,╱ // 0x1314 @0x14
0x1300…132b at0015 = ╱31╱1╱ // 0x1315 @0x15
0x1300…132b at0016 = ╱fe00008001╱ // 0x1316 @0x16
0x1300…132b at001b = ╱ee╱)╱ // 0x131b @0x1b
0x1300…132b at001c = ╱db╱ OR ╱ // 0x131c @0x1c
0x1300…132b at001d = ╱50╱P╱ // 0x131d @0x1d
0x1300…132b at001e = ╱49╱I╱ // 0x131e @0x1e
0x1300…132b at001f = ╱4c╱L╱ // 0x131f @0x1f
0x1300…132b at0020 = ╱31╱1╱ // 0x1320 @0x20
0x1300…132b at0021 = ╱dc╱=╱ // 0x1321 @0x21
0x1300…132b at0022 = ╱31╱1╱ // 0x1322 @0x22
0x1300…132b at0023 = ╱fe00008001╱ // 0x1323 @0x23
0x1300…132b at0028 = ╱b6╱ THEN ╱ // 0x1328 @0x28
0x1300…132b at0029 = ╱99╱ EXIT ╱ // 0x1329 @0x29
0x1300…132b at002a = EOL // 0x132a @0x2a
0x1300…132b }
0x132b…1382 a0d9 1700 PIL1=(PIL1+1) DIV 2;PIL3=PIL3+PIL1*(1-2*(NØGL1<TAB1(PIL3,1)))
0x132b…1382 LineComalBin {
0x132b…1382 ptr = 0xa0d9 // 0x132b @0x0
0x132b…1382 lno = 0x06a4 // 0x132d @0x2
0x132b…1382 at0004 = ╱50╱P╱ // 0x132f @0x4
0x132b…1382 at0005 = ╱49╱I╱ // 0x1330 @0x5
0x132b…1382 at0006 = ╱4c╱L╱ // 0x1331 @0x6
0x132b…1382 at0007 = ╱31╱1╱ // 0x1332 @0x7
0x132b…1382 at0008 = ╱dc╱=╱ // 0x1333 @0x8
0x132b…1382 at0009 = ╱ed╱(╱ // 0x1334 @0x9
0x132b…1382 at000a = ╱50╱P╱ // 0x1335 @0xa
0x132b…1382 at000b = ╱49╱I╱ // 0x1336 @0xb
0x132b…1382 at000c = ╱4c╱L╱ // 0x1337 @0xc
0x132b…1382 at000d = ╱31╱1╱ // 0x1338 @0xd
0x132b…1382 at000e = ╱e2╱+╱ // 0x1339 @0xe
0x132b…1382 at000f = ╱31╱1╱ // 0x133a @0xf
0x132b…1382 at0010 = ╱fe00008001╱ // 0x133b @0x10
0x132b…1382 at0015 = ╱ee╱)╱ // 0x1340 @0x15
0x132b…1382 at0016 = ╱e7╱ DIV ╱ // 0x1341 @0x16
0x132b…1382 at0017 = ╱32╱2╱ // 0x1342 @0x17
0x132b…1382 at0018 = ╱fe00008002╱ // 0x1343 @0x18
0x132b…1382 at001d = ╱eb╱;╱ // 0x1348 @0x1d
0x132b…1382 at001e = ╱50╱P╱ // 0x1349 @0x1e
0x132b…1382 at001f = ╱49╱I╱ // 0x134a @0x1f
0x132b…1382 at0020 = ╱4c╱L╱ // 0x134b @0x20
0x132b…1382 at0021 = ╱33╱3╱ // 0x134c @0x21
0x132b…1382 at0022 = ╱dc╱=╱ // 0x134d @0x22
0x132b…1382 at0023 = ╱50╱P╱ // 0x134e @0x23
0x132b…1382 at0024 = ╱49╱I╱ // 0x134f @0x24
0x132b…1382 at0025 = ╱4c╱L╱ // 0x1350 @0x25
0x132b…1382 at0026 = ╱33╱3╱ // 0x1351 @0x26
0x132b…1382 at0027 = ╱e2╱+╱ // 0x1352 @0x27
0x132b…1382 at0028 = ╱50╱P╱ // 0x1353 @0x28
0x132b…1382 at0029 = ╱49╱I╱ // 0x1354 @0x29
0x132b…1382 at002a = ╱4c╱L╱ // 0x1355 @0x2a
0x132b…1382 at002b = ╱31╱1╱ // 0x1356 @0x2b
0x132b…1382 at002c = ╱e4╱*╱ // 0x1357 @0x2c
0x132b…1382 at002d = ╱ed╱(╱ // 0x1358 @0x2d
0x132b…1382 at002e = ╱31╱1╱ // 0x1359 @0x2e
0x132b…1382 at002f = ╱fe00008001╱ // 0x135a @0x2f
0x132b…1382 at0034 = ╱e3╱-╱ // 0x135f @0x34
0x132b…1382 at0035 = ╱32╱2╱ // 0x1360 @0x35
0x132b…1382 at0036 = ╱fe00008002╱ // 0x1361 @0x36
0x132b…1382 at003b = ╱e4╱*╱ // 0x1366 @0x3b
0x132b…1382 at003c = ╱ed╱(╱ // 0x1367 @0x3c
0x132b…1382 at003d = ╱4e╱N╱ // 0x1368 @0x3d
0x132b…1382 at003e = ╱5c╱Ø╱ // 0x1369 @0x3e
0x132b…1382 at003f = ╱47╱G╱ // 0x136a @0x3f
0x132b…1382 at0040 = ╱4c╱L╱ // 0x136b @0x40
0x132b…1382 at0041 = ╱31╱1╱ // 0x136c @0x41
0x132b…1382 at0042 = ╱dd╱<╱ // 0x136d @0x42
0x132b…1382 at0043 = ╱54╱T╱ // 0x136e @0x43
0x132b…1382 at0044 = ╱41╱A╱ // 0x136f @0x44
0x132b…1382 at0045 = ╱42╱B╱ // 0x1370 @0x45
0x132b…1382 at0046 = ╱31╱1╱ // 0x1371 @0x46
0x132b…1382 at0047 = ╱ed╱(╱ // 0x1372 @0x47
0x132b…1382 at0048 = ╱50╱P╱ // 0x1373 @0x48
0x132b…1382 at0049 = ╱49╱I╱ // 0x1374 @0x49
0x132b…1382 at004a = ╱4c╱L╱ // 0x1375 @0x4a
0x132b…1382 at004b = ╱33╱3╱ // 0x1376 @0x4b
0x132b…1382 at004c = ╱ec╱,╱ // 0x1377 @0x4c
0x132b…1382 at004d = ╱31╱1╱ // 0x1378 @0x4d
0x132b…1382 at004e = ╱fe00008001╱ // 0x1379 @0x4e
0x132b…1382 at0053 = ╱ee╱)╱ // 0x137e @0x53
0x132b…1382 at0054 = ╱ee╱)╱ // 0x137f @0x54
0x132b…1382 at0055 = ╱ee╱)╱ // 0x1380 @0x55
0x132b…1382 at0056 = EOL // 0x1381 @0x56
0x132b…1382 }
0x1382…139f a0f6 1710 IF PIL3<1 THEN PIL3=1
0x1382…139f LineComalBin {
0x1382…139f ptr = 0xa0f6 // 0x1382 @0x0
0x1382…139f lno = 0x06ae // 0x1384 @0x2
0x1382…139f at0004 = ╱82╱ IF ╱ // 0x1386 @0x4
0x1382…139f at0005 = ╱50╱P╱ // 0x1387 @0x5
0x1382…139f at0006 = ╱49╱I╱ // 0x1388 @0x6
0x1382…139f at0007 = ╱4c╱L╱ // 0x1389 @0x7
0x1382…139f at0008 = ╱33╱3╱ // 0x138a @0x8
0x1382…139f at0009 = ╱dd╱<╱ // 0x138b @0x9
0x1382…139f at000a = ╱31╱1╱ // 0x138c @0xa
0x1382…139f at000b = ╱fe00008001╱ // 0x138d @0xb
0x1382…139f at0010 = ╱b6╱ THEN ╱ // 0x1392 @0x10
0x1382…139f at0011 = ╱50╱P╱ // 0x1393 @0x11
0x1382…139f at0012 = ╱49╱I╱ // 0x1394 @0x12
0x1382…139f at0013 = ╱4c╱L╱ // 0x1395 @0x13
0x1382…139f at0014 = ╱33╱3╱ // 0x1396 @0x14
0x1382…139f at0015 = ╱dc╱=╱ // 0x1397 @0x15
0x1382…139f at0016 = ╱31╱1╱ // 0x1398 @0x16
0x1382…139f at0017 = ╱fe00008001╱ // 0x1399 @0x17
0x1382…139f at001c = EOL // 0x139e @0x1c
0x1382…139f }
0x139f…13ba a111 1720 IF PIL3>MANT1 THEN PIL3=MANT1
0x139f…13ba LineComalBin {
0x139f…13ba ptr = 0xa111 // 0x139f @0x0
0x139f…13ba lno = 0x06b8 // 0x13a1 @0x2
0x139f…13ba at0004 = ╱82╱ IF ╱ // 0x13a3 @0x4
0x139f…13ba at0005 = ╱50╱P╱ // 0x13a4 @0x5
0x139f…13ba at0006 = ╱49╱I╱ // 0x13a5 @0x6
0x139f…13ba at0007 = ╱4c╱L╱ // 0x13a6 @0x7
0x139f…13ba at0008 = ╱33╱3╱ // 0x13a7 @0x8
0x139f…13ba at0009 = ╱de╱>╱ // 0x13a8 @0x9
0x139f…13ba at000a = ╱4d╱M╱ // 0x13a9 @0xa
0x139f…13ba at000b = ╱41╱A╱ // 0x13aa @0xb
0x139f…13ba at000c = ╱4e╱N╱ // 0x13ab @0xc
0x139f…13ba at000d = ╱54╱T╱ // 0x13ac @0xd
0x139f…13ba at000e = ╱31╱1╱ // 0x13ad @0xe
0x139f…13ba at000f = ╱b6╱ THEN ╱ // 0x13ae @0xf
0x139f…13ba at0010 = ╱50╱P╱ // 0x13af @0x10
0x139f…13ba at0011 = ╱49╱I╱ // 0x13b0 @0x11
0x139f…13ba at0012 = ╱4c╱L╱ // 0x13b1 @0x12
0x139f…13ba at0013 = ╱33╱3╱ // 0x13b2 @0x13
0x139f…13ba at0014 = ╱dc╱=╱ // 0x13b3 @0x14
0x139f…13ba at0015 = ╱4d╱M╱ // 0x13b4 @0x15
0x139f…13ba at0016 = ╱41╱A╱ // 0x13b5 @0x16
0x139f…13ba at0017 = ╱4e╱N╱ // 0x13b6 @0x17
0x139f…13ba at0018 = ╱54╱T╱ // 0x13b7 @0x18
0x139f…13ba at0019 = ╱31╱1╱ // 0x13b8 @0x19
0x139f…13ba at001a = EOL // 0x13b9 @0x1a
0x139f…13ba }
0x13ba…13cb a122 1730 UNTIL PIL1=0
0x13ba…13cb LineComalBin {
0x13ba…13cb ptr = 0xa122 // 0x13ba @0x0
0x13ba…13cb lno = 0x06c2 // 0x13bc @0x2
0x13ba…13cb at0004 = ╱98╱ UNTIL ╱ // 0x13be @0x4
0x13ba…13cb at0005 = ╱50╱P╱ // 0x13bf @0x5
0x13ba…13cb at0006 = ╱49╱I╱ // 0x13c0 @0x6
0x13ba…13cb at0007 = ╱4c╱L╱ // 0x13c1 @0x7
0x13ba…13cb at0008 = ╱31╱1╱ // 0x13c2 @0x8
0x13ba…13cb at0009 = ╱dc╱=╱ // 0x13c3 @0x9
0x13ba…13cb at000a = ╱30╱0╱ // 0x13c4 @0xa
0x13ba…13cb at000b = ╱fe00000000╱ // 0x13c5 @0xb
0x13ba…13cb at0010 = EOL // 0x13ca @0x10
0x13ba…13cb }
0x13cb…13f4 a14b 1740 IF NØGL1=TAB1(PIL3,1) THEN CEKS=0
0x13cb…13f4 LineComalBin {
0x13cb…13f4 ptr = 0xa14b // 0x13cb @0x0
0x13cb…13f4 lno = 0x06cc // 0x13cd @0x2
0x13cb…13f4 at0004 = ╱82╱ IF ╱ // 0x13cf @0x4
0x13cb…13f4 at0005 = ╱4e╱N╱ // 0x13d0 @0x5
0x13cb…13f4 at0006 = ╱5c╱Ø╱ // 0x13d1 @0x6
0x13cb…13f4 at0007 = ╱47╱G╱ // 0x13d2 @0x7
0x13cb…13f4 at0008 = ╱4c╱L╱ // 0x13d3 @0x8
0x13cb…13f4 at0009 = ╱31╱1╱ // 0x13d4 @0x9
0x13cb…13f4 at000a = ╱dc╱=╱ // 0x13d5 @0xa
0x13cb…13f4 at000b = ╱54╱T╱ // 0x13d6 @0xb
0x13cb…13f4 at000c = ╱41╱A╱ // 0x13d7 @0xc
0x13cb…13f4 at000d = ╱42╱B╱ // 0x13d8 @0xd
0x13cb…13f4 at000e = ╱31╱1╱ // 0x13d9 @0xe
0x13cb…13f4 at000f = ╱ed╱(╱ // 0x13da @0xf
0x13cb…13f4 at0010 = ╱50╱P╱ // 0x13db @0x10
0x13cb…13f4 at0011 = ╱49╱I╱ // 0x13dc @0x11
0x13cb…13f4 at0012 = ╱4c╱L╱ // 0x13dd @0x12
0x13cb…13f4 at0013 = ╱33╱3╱ // 0x13de @0x13
0x13cb…13f4 at0014 = ╱ec╱,╱ // 0x13df @0x14
0x13cb…13f4 at0015 = ╱31╱1╱ // 0x13e0 @0x15
0x13cb…13f4 at0016 = ╱fe00008001╱ // 0x13e1 @0x16
0x13cb…13f4 at001b = ╱ee╱)╱ // 0x13e6 @0x1b
0x13cb…13f4 at001c = ╱b6╱ THEN ╱ // 0x13e7 @0x1c
0x13cb…13f4 at001d = ╱43╱C╱ // 0x13e8 @0x1d
0x13cb…13f4 at001e = ╱45╱E╱ // 0x13e9 @0x1e
0x13cb…13f4 at001f = ╱4b╱K╱ // 0x13ea @0x1f
0x13cb…13f4 at0020 = ╱53╱S╱ // 0x13eb @0x20
0x13cb…13f4 at0021 = ╱dc╱=╱ // 0x13ec @0x21
0x13cb…13f4 at0022 = ╱30╱0╱ // 0x13ed @0x22
0x13cb…13f4 at0023 = ╱fe00000000╱ // 0x13ee @0x23
0x13cb…13f4 at0028 = EOL // 0x13f3 @0x28
0x13cb…13f4 }
0x13f4…13fa a151 1750 ENDPROC
0x13f4…13fa LineComalBin {
0x13f4…13fa ptr = 0xa151 // 0x13f4 @0x0
0x13f4…13fa lno = 0x06d6 // 0x13f6 @0x2
0x13f4…13fa at0004 = ╱9f╱ ENDPROC ╱ // 0x13f8 @0x4
0x13f4…13fa at0005 = EOL // 0x13f9 @0x5
0x13f4…13fa }
0x13fa…140b a162 1760 PROC NRTEST(NUM)
0x13fa…140b LineComalBin {
0x13fa…140b ptr = 0xa162 // 0x13fa @0x0
0x13fa…140b lno = 0x06e0 // 0x13fc @0x2
0x13fa…140b at0004 = ╱9e╱ PROC ╱ // 0x13fe @0x4
0x13fa…140b at0005 = ╱4e╱N╱ // 0x13ff @0x5
0x13fa…140b at0006 = ╱52╱R╱ // 0x1400 @0x6
0x13fa…140b at0007 = ╱54╱T╱ // 0x1401 @0x7
0x13fa…140b at0008 = ╱45╱E╱ // 0x1402 @0x8
0x13fa…140b at0009 = ╱53╱S╱ // 0x1403 @0x9
0x13fa…140b at000a = ╱54╱T╱ // 0x1404 @0xa
0x13fa…140b at000b = ╱ed╱(╱ // 0x1405 @0xb
0x13fa…140b at000c = ╱4e╱N╱ // 0x1406 @0xc
0x13fa…140b at000d = ╱55╱U╱ // 0x1407 @0xd
0x13fa…140b at000e = ╱4d╱M╱ // 0x1408 @0xe
0x13fa…140b at000f = ╱ee╱)╱ // 0x1409 @0xf
0x13fa…140b at0010 = EOL // 0x140a @0x10
0x13fa…140b }
0x140b…143b a192 1770 P=0;TEST2=0;KTAL=0;L=LEN(NUM$)
0x140b…143b LineComalBin {
0x140b…143b ptr = 0xa192 // 0x140b @0x0
0x140b…143b lno = 0x06ea // 0x140d @0x2
0x140b…143b at0004 = ╱50╱P╱ // 0x140f @0x4
0x140b…143b at0005 = ╱dc╱=╱ // 0x1410 @0x5
0x140b…143b at0006 = ╱30╱0╱ // 0x1411 @0x6
0x140b…143b at0007 = ╱fe00000000╱ // 0x1412 @0x7
0x140b…143b at000c = ╱eb╱;╱ // 0x1417 @0xc
0x140b…143b at000d = ╱54╱T╱ // 0x1418 @0xd
0x140b…143b at000e = ╱45╱E╱ // 0x1419 @0xe
0x140b…143b at000f = ╱53╱S╱ // 0x141a @0xf
0x140b…143b at0010 = ╱54╱T╱ // 0x141b @0x10
0x140b…143b at0011 = ╱32╱2╱ // 0x141c @0x11
0x140b…143b at0012 = ╱dc╱=╱ // 0x141d @0x12
0x140b…143b at0013 = ╱30╱0╱ // 0x141e @0x13
0x140b…143b at0014 = ╱fe00000000╱ // 0x141f @0x14
0x140b…143b at0019 = ╱eb╱;╱ // 0x1424 @0x19
0x140b…143b at001a = ╱4b╱K╱ // 0x1425 @0x1a
0x140b…143b at001b = ╱54╱T╱ // 0x1426 @0x1b
0x140b…143b at001c = ╱41╱A╱ // 0x1427 @0x1c
0x140b…143b at001d = ╱4c╱L╱ // 0x1428 @0x1d
0x140b…143b at001e = ╱dc╱=╱ // 0x1429 @0x1e
0x140b…143b at001f = ╱30╱0╱ // 0x142a @0x1f
0x140b…143b at0020 = ╱fe00000000╱ // 0x142b @0x20
0x140b…143b at0025 = ╱eb╱;╱ // 0x1430 @0x25
0x140b…143b at0026 = ╱4c╱L╱ // 0x1431 @0x26
0x140b…143b at0027 = ╱dc╱=╱ // 0x1432 @0x27
0x140b…143b at0028 = ╱cc╱LEN╱ // 0x1433 @0x28
0x140b…143b at0029 = ╱ed╱(╱ // 0x1434 @0x29
0x140b…143b at002a = ╱4e╱N╱ // 0x1435 @0x2a
0x140b…143b at002b = ╱55╱U╱ // 0x1436 @0x2b
0x140b…143b at002c = ╱4d╱M╱ // 0x1437 @0x2c
0x140b…143b at002d = ╱ef╱$╱ // 0x1438 @0x2d
0x140b…143b at002e = ╱ee╱)╱ // 0x1439 @0x2e
0x140b…143b at002f = EOL // 0x143a @0x2f
0x140b…143b }
0x143b…1444 a19b 1780 CASE L OF
0x143b…1444 LineComalBin {
0x143b…1444 ptr = 0xa19b // 0x143b @0x0
0x143b…1444 lno = 0x06f4 // 0x143d @0x2
0x143b…1444 at0004 = ╱a201╱ CASE ╱ // 0x143f @0x4
0x143b…1444 at0006 = ╱4c╱L╱ // 0x1441 @0x6
0x143b…1444 at0007 = ╱ba╱ OF ╱ // 0x1442 @0x7
0x143b…1444 at0008 = EOL // 0x1443 @0x8
0x143b…1444 }
0x1444…1454 a1ab 1790 FOR J=1 TO L
0x1444…1454 LineComalBin {
0x1444…1454 ptr = 0xa1ab // 0x1444 @0x0
0x1444…1454 lno = 0x06fe // 0x1446 @0x2
0x1444…1454 at0004 = ╱83╱ FOR ╱ // 0x1448 @0x4
0x1444…1454 at0005 = ╱4a╱J╱ // 0x1449 @0x5
0x1444…1454 at0006 = ╱dc╱=╱ // 0x144a @0x6
0x1444…1454 at0007 = ╱31╱1╱ // 0x144b @0x7
0x1444…1454 at0008 = ╱fe00008001╱ // 0x144c @0x8
0x1444…1454 at000d = ╱b7╱ TO ╱ // 0x1451 @0xd
0x1444…1454 at000e = ╱4c╱L╱ // 0x1452 @0xe
0x1444…1454 at000f = EOL // 0x1453 @0xf
0x1444…1454 }
0x1454…1471 a1c8 1800 P1=INT(ORD(NUM$(J))-48)
0x1454…1471 LineComalBin {
0x1454…1471 ptr = 0xa1c8 // 0x1454 @0x0
0x1454…1471 lno = 0x0708 // 0x1456 @0x2
0x1454…1471 at0004 = ╱50╱P╱ // 0x1458 @0x4
0x1454…1471 at0005 = ╱31╱1╱ // 0x1459 @0x5
0x1454…1471 at0006 = ╱dc╱=╱ // 0x145a @0x6
0x1454…1471 at0007 = ╱c6╱INT╱ // 0x145b @0x7
0x1454…1471 at0008 = ╱ed╱(╱ // 0x145c @0x8
0x1454…1471 at0009 = ╱cd╱ORD╱ // 0x145d @0x9
0x1454…1471 at000a = ╱ed╱(╱ // 0x145e @0xa
0x1454…1471 at000b = ╱4e╱N╱ // 0x145f @0xb
0x1454…1471 at000c = ╱55╱U╱ // 0x1460 @0xc
0x1454…1471 at000d = ╱4d╱M╱ // 0x1461 @0xd
0x1454…1471 at000e = ╱ef╱$╱ // 0x1462 @0xe
0x1454…1471 at000f = ╱ed╱(╱ // 0x1463 @0xf
0x1454…1471 at0010 = ╱4a╱J╱ // 0x1464 @0x10
0x1454…1471 at0011 = ╱ee╱)╱ // 0x1465 @0x11
0x1454…1471 at0012 = ╱ee╱)╱ // 0x1466 @0x12
0x1454…1471 at0013 = ╱e3╱-╱ // 0x1467 @0x13
0x1454…1471 at0014 = ╱34╱4╱ // 0x1468 @0x14
0x1454…1471 at0015 = ╱38╱8╱ // 0x1469 @0x15
0x1454…1471 at0016 = ╱fe0000c006╱ // 0x146a @0x16
0x1454…1471 at001b = ╱ee╱)╱ // 0x146f @0x1b
0x1454…1471 at001c = EOL // 0x1470 @0x1c
0x1454…1471 }
0x1471…148b a1e2 1810 IF P1=>0 AND P1<=9 THEN
0x1471…148b LineComalBin {
0x1471…148b ptr = 0xa1e2 // 0x1471 @0x0
0x1471…148b lno = 0x0712 // 0x1473 @0x2
0x1471…148b at0004 = ╱9c╱ IF ╱ // 0x1475 @0x4
0x1471…148b at0005 = ╱50╱P╱ // 0x1476 @0x5
0x1471…148b at0006 = ╱31╱1╱ // 0x1477 @0x6
0x1471…148b at0007 = ╱e0╱=>╱ // 0x1478 @0x7
0x1471…148b at0008 = ╱30╱0╱ // 0x1479 @0x8
0x1471…148b at0009 = ╱fe00000000╱ // 0x147a @0x9
0x1471…148b at000e = ╱da╱ AND ╱ // 0x147f @0xe
0x1471…148b at000f = ╱50╱P╱ // 0x1480 @0xf
0x1471…148b at0010 = ╱31╱1╱ // 0x1481 @0x10
0x1471…148b at0011 = ╱df╱<=╱ // 0x1482 @0x11
0x1471…148b at0012 = ╱39╱9╱ // 0x1483 @0x12
0x1471…148b at0013 = ╱fe00009004╱ // 0x1484 @0x13
0x1471…148b at0018 = ╱b6╱ THEN ╱ // 0x1489 @0x18
0x1471…148b at0019 = EOL // 0x148a @0x19
0x1471…148b }
0x148b…149e a1f5 1820 P=P*10+P1
0x148b…149e LineComalBin {
0x148b…149e ptr = 0xa1f5 // 0x148b @0x0
0x148b…149e lno = 0x071c // 0x148d @0x2
0x148b…149e at0004 = ╱50╱P╱ // 0x148f @0x4
0x148b…149e at0005 = ╱dc╱=╱ // 0x1490 @0x5
0x148b…149e at0006 = ╱50╱P╱ // 0x1491 @0x6
0x148b…149e at0007 = ╱e4╱*╱ // 0x1492 @0x7
0x148b…149e at0008 = ╱31╱1╱ // 0x1493 @0x8
0x148b…149e at0009 = ╱30╱0╱ // 0x1494 @0x9
0x148b…149e at000a = ╱fe0000a004╱ // 0x1495 @0xa
0x148b…149e at000f = ╱e2╱+╱ // 0x149a @0xf
0x148b…149e at0010 = ╱50╱P╱ // 0x149b @0x10
0x148b…149e at0011 = ╱31╱1╱ // 0x149c @0x11
0x148b…149e at0012 = EOL // 0x149d @0x12
0x148b…149e }
0x149e…14a4 a1fb 1830 ELSE
0x149e…14a4 LineComalBin {
0x149e…14a4 ptr = 0xa1fb // 0x149e @0x0
0x149e…14a4 lno = 0x0726 // 0x14a0 @0x2
0x149e…14a4 at0004 = ╱9a╱ ELSE ╱ // 0x14a2 @0x4
0x149e…14a4 at0005 = EOL // 0x14a3 @0x5
0x149e…14a4 }
0x14a4…14b5 a20c 1840 TEST2=1
0x14a4…14b5 LineComalBin {
0x14a4…14b5 ptr = 0xa20c // 0x14a4 @0x0
0x14a4…14b5 lno = 0x0730 // 0x14a6 @0x2
0x14a4…14b5 at0004 = ╱54╱T╱ // 0x14a8 @0x4
0x14a4…14b5 at0005 = ╱45╱E╱ // 0x14a9 @0x5
0x14a4…14b5 at0006 = ╱53╱S╱ // 0x14aa @0x6
0x14a4…14b5 at0007 = ╱54╱T╱ // 0x14ab @0x7
0x14a4…14b5 at0008 = ╱32╱2╱ // 0x14ac @0x8
0x14a4…14b5 at0009 = ╱dc╱=╱ // 0x14ad @0x9
0x14a4…14b5 at000a = ╱31╱1╱ // 0x14ae @0xa
0x14a4…14b5 at000b = ╱fe00008001╱ // 0x14af @0xb
0x14a4…14b5 at0010 = EOL // 0x14b4 @0x10
0x14a4…14b5 }
0x14b5…14bb a212 1850 ENDIF
0x14b5…14bb LineComalBin {
0x14b5…14bb ptr = 0xa212 // 0x14b5 @0x0
0x14b5…14bb lno = 0x073a // 0x14b7 @0x2
0x14b5…14bb at0004 = ╱9b╱ ENDIF ╱ // 0x14b9 @0x4
0x14b5…14bb at0005 = EOL // 0x14ba @0x5
0x14b5…14bb }
0x14bb…14c2 a219 1860 NEXT J
0x14bb…14c2 LineComalBin {
0x14bb…14c2 ptr = 0xa219 // 0x14bb @0x0
0x14bb…14c2 lno = 0x0744 // 0x14bd @0x2
0x14bb…14c2 at0004 = ╱84╱ NEXT ╱ // 0x14bf @0x4
0x14bb…14c2 at0005 = ╱4a╱J╱ // 0x14c0 @0x5
0x14bb…14c2 at0006 = EOL // 0x14c1 @0x6
0x14bb…14c2 }
0x14c2…14d8 a22f 1870 KTAL=P DIV 10000
0x14c2…14d8 LineComalBin {
0x14c2…14d8 ptr = 0xa22f // 0x14c2 @0x0
0x14c2…14d8 lno = 0x074e // 0x14c4 @0x2
0x14c2…14d8 at0004 = ╱4b╱K╱ // 0x14c6 @0x4
0x14c2…14d8 at0005 = ╱54╱T╱ // 0x14c7 @0x5
0x14c2…14d8 at0006 = ╱41╱A╱ // 0x14c8 @0x6
0x14c2…14d8 at0007 = ╱4c╱L╱ // 0x14c9 @0x7
0x14c2…14d8 at0008 = ╱dc╱=╱ // 0x14ca @0x8
0x14c2…14d8 at0009 = ╱50╱P╱ // 0x14cb @0x9
0x14c2…14d8 at000a = ╱e7╱ DIV ╱ // 0x14cc @0xa
0x14c2…14d8 at000b = ╱31╱1╱ // 0x14cd @0xb
0x14c2…14d8 at000c = ╱30╱0╱ // 0x14ce @0xc
0x14c2…14d8 at000d = ╱30╱0╱ // 0x14cf @0xd
0x14c2…14d8 at000e = ╱30╱0╱ // 0x14d0 @0xe
0x14c2…14d8 at000f = ╱30╱0╱ // 0x14d1 @0xf
0x14c2…14d8 at0010 = ╱fe00409c0e╱ // 0x14d2 @0x10
0x14c2…14d8 at0015 = EOL // 0x14d7 @0x15
0x14c2…14d8 }
0x14d8…14e5 a23c 1880 WHEN 0
0x14d8…14e5 LineComalBin {
0x14d8…14e5 ptr = 0xa23c // 0x14d8 @0x0
0x14d8…14e5 lno = 0x0758 // 0x14da @0x2
0x14d8…14e5 at0004 = ╱a301╱ WHEN ╱ // 0x14dc @0x4
0x14d8…14e5 at0006 = ╱30╱0╱ // 0x14de @0x6
0x14d8…14e5 at0007 = ╱fe00000000╱ // 0x14df @0x7
0x14d8…14e5 at000c = EOL // 0x14e4 @0xc
0x14d8…14e5 }
0x14e5…14f3 a24a 1890 P=-1
0x14e5…14f3 LineComalBin {
0x14e5…14f3 ptr = 0xa24a // 0x14e5 @0x0
0x14e5…14f3 lno = 0x0762 // 0x14e7 @0x2
0x14e5…14f3 at0004 = ╱50╱P╱ // 0x14e9 @0x4
0x14e5…14f3 at0005 = ╱dc╱=╱ // 0x14ea @0x5
0x14e5…14f3 at0006 = ╱e9╱-╱ // 0x14eb @0x6
0x14e5…14f3 at0007 = ╱31╱1╱ // 0x14ec @0x7
0x14e5…14f3 at0008 = ╱fe00008001╱ // 0x14ed @0x8
0x14e5…14f3 at000d = EOL // 0x14f2 @0xd
0x14e5…14f3 }
0x14f3…1500 a257 1900 WHEN 1
0x14f3…1500 LineComalBin {
0x14f3…1500 ptr = 0xa257 // 0x14f3 @0x0
0x14f3…1500 lno = 0x076c // 0x14f5 @0x2
0x14f3…1500 at0004 = ╱a301╱ WHEN ╱ // 0x14f7 @0x4
0x14f3…1500 at0006 = ╱31╱1╱ // 0x14f9 @0x6
0x14f3…1500 at0007 = ╱fe00008001╱ // 0x14fa @0x7
0x14f3…1500 at000c = EOL // 0x14ff @0xc
0x14f3…1500 }
0x1500…150c a263 1910 CASE NUM$ OF
0x1500…150c LineComalBin {
0x1500…150c ptr = 0xa263 // 0x1500 @0x0
0x1500…150c lno = 0x0776 // 0x1502 @0x2
0x1500…150c at0004 = ╱a200╱ CASE ╱ // 0x1504 @0x4
0x1500…150c at0006 = ╱4e╱N╱ // 0x1506 @0x6
0x1500…150c at0007 = ╱55╱U╱ // 0x1507 @0x7
0x1500…150c at0008 = ╱4d╱M╱ // 0x1508 @0x8
0x1500…150c at0009 = ╱ef╱$╱ // 0x1509 @0x9
0x1500…150c at000a = ╱ba╱ OF ╱ // 0x150a @0xa
0x1500…150c at000b = EOL // 0x150b @0xb
0x1500…150c }
0x150c…1525 a27c 1920 P=INT(ORD(NUM$)-48)
0x150c…1525 LineComalBin {
0x150c…1525 ptr = 0xa27c // 0x150c @0x0
0x150c…1525 lno = 0x0780 // 0x150e @0x2
0x150c…1525 at0004 = ╱50╱P╱ // 0x1510 @0x4
0x150c…1525 at0005 = ╱dc╱=╱ // 0x1511 @0x5
0x150c…1525 at0006 = ╱c6╱INT╱ // 0x1512 @0x6
0x150c…1525 at0007 = ╱ed╱(╱ // 0x1513 @0x7
0x150c…1525 at0008 = ╱cd╱ORD╱ // 0x1514 @0x8
0x150c…1525 at0009 = ╱ed╱(╱ // 0x1515 @0x9
0x150c…1525 at000a = ╱4e╱N╱ // 0x1516 @0xa
0x150c…1525 at000b = ╱55╱U╱ // 0x1517 @0xb
0x150c…1525 at000c = ╱4d╱M╱ // 0x1518 @0xc
0x150c…1525 at000d = ╱ef╱$╱ // 0x1519 @0xd
0x150c…1525 at000e = ╱ee╱)╱ // 0x151a @0xe
0x150c…1525 at000f = ╱e3╱-╱ // 0x151b @0xf
0x150c…1525 at0010 = ╱34╱4╱ // 0x151c @0x10
0x150c…1525 at0011 = ╱38╱8╱ // 0x151d @0x11
0x150c…1525 at0012 = ╱fe0000c006╱ // 0x151e @0x12
0x150c…1525 at0017 = ╱ee╱)╱ // 0x1523 @0x17
0x150c…1525 at0018 = EOL // 0x1524 @0x18
0x150c…1525 }
0x1525…1533 a28a 1930 WHEN "j","J"
0x1525…1533 LineComalBin {
0x1525…1533 ptr = 0xa28a // 0x1525 @0x0
0x1525…1533 lno = 0x078a // 0x1527 @0x2
0x1525…1533 at0004 = ╱a300╱ WHEN ╱ // 0x1529 @0x4
0x1525…1533 at0006 = ╱22╱"╱ // 0x152b @0x6
0x1525…1533 at0007 = ╱6a╱j╱ // 0x152c @0x7
0x1525…1533 at0008 = ╱22╱"╱ // 0x152d @0x8
0x1525…1533 at0009 = ╱ec╱,╱ // 0x152e @0x9
0x1525…1533 at000a = ╱22╱"╱ // 0x152f @0xa
0x1525…1533 at000b = ╱4a╱J╱ // 0x1530 @0xb
0x1525…1533 at000c = ╱22╱"╱ // 0x1531 @0xc
0x1525…1533 at000d = EOL // 0x1532 @0xd
0x1525…1533 }
0x1533…1541 a298 1940 P=-7
0x1533…1541 LineComalBin {
0x1533…1541 ptr = 0xa298 // 0x1533 @0x0
0x1533…1541 lno = 0x0794 // 0x1535 @0x2
0x1533…1541 at0004 = ╱50╱P╱ // 0x1537 @0x4
0x1533…1541 at0005 = ╱dc╱=╱ // 0x1538 @0x5
0x1533…1541 at0006 = ╱e9╱-╱ // 0x1539 @0x6
0x1533…1541 at0007 = ╱37╱7╱ // 0x153a @0x7
0x1533…1541 at0008 = ╱fe0000e003╱ // 0x153b @0x8
0x1533…1541 at000d = EOL // 0x1540 @0xd
0x1533…1541 }
0x1541…154f a2a6 1950 WHEN "n","N"
0x1541…154f LineComalBin {
0x1541…154f ptr = 0xa2a6 // 0x1541 @0x0
0x1541…154f lno = 0x079e // 0x1543 @0x2
0x1541…154f at0004 = ╱a300╱ WHEN ╱ // 0x1545 @0x4
0x1541…154f at0006 = ╱22╱"╱ // 0x1547 @0x6
0x1541…154f at0007 = ╱6e╱n╱ // 0x1548 @0x7
0x1541…154f at0008 = ╱22╱"╱ // 0x1549 @0x8
0x1541…154f at0009 = ╱ec╱,╱ // 0x154a @0x9
0x1541…154f at000a = ╱22╱"╱ // 0x154b @0xa
0x1541…154f at000b = ╱4e╱N╱ // 0x154c @0xb
0x1541…154f at000c = ╱22╱"╱ // 0x154d @0xc
0x1541…154f at000d = EOL // 0x154e @0xd
0x1541…154f }
0x154f…155d a2b4 1960 P=-8
0x154f…155d LineComalBin {
0x154f…155d ptr = 0xa2b4 // 0x154f @0x0
0x154f…155d lno = 0x07a8 // 0x1551 @0x2
0x154f…155d at0004 = ╱50╱P╱ // 0x1553 @0x4
0x154f…155d at0005 = ╱dc╱=╱ // 0x1554 @0x5
0x154f…155d at0006 = ╱e9╱-╱ // 0x1555 @0x6
0x154f…155d at0007 = ╱38╱8╱ // 0x1556 @0x7
0x154f…155d at0008 = ╱fe00008004╱ // 0x1557 @0x8
0x154f…155d at000d = EOL // 0x155c @0xd
0x154f…155d }
0x155d…1563 a2ba 1970 ENDCASE
0x155d…1563 LineComalBin {
0x155d…1563 ptr = 0xa2ba // 0x155d @0x0
0x155d…1563 lno = 0x07b2 // 0x155f @0x2
0x155d…1563 at0004 = ╱a4╱ ENDCASE ╱ // 0x1561 @0x4
0x155d…1563 at0005 = EOL // 0x1562 @0x5
0x155d…1563 }
0x1563…1569 a2c0 1980 ENDCASE
0x1563…1569 LineComalBin {
0x1563…1569 ptr = 0xa2c0 // 0x1563 @0x0
0x1563…1569 lno = 0x07bc // 0x1565 @0x2
0x1563…1569 at0004 = ╱a4╱ ENDCASE ╱ // 0x1567 @0x4
0x1563…1569 at0005 = EOL // 0x1568 @0x5
0x1563…1569 }
0x1569…156f a2c6 1990 ENDPROC
0x1569…156f LineComalBin {
0x1569…156f ptr = 0xa2c6 // 0x1569 @0x0
0x1569…156f lno = 0x07c6 // 0x156b @0x2
0x1569…156f at0004 = ╱9f╱ ENDPROC ╱ // 0x156d @0x4
0x1569…156f at0005 = EOL // 0x156e @0x5
0x1569…156f }
0x156f…1589 a2e0 2000 K1$="P641220:SYSTEM1"
0x156f…1589 LineComalBin {
0x156f…1589 ptr = 0xa2e0 // 0x156f @0x0
0x156f…1589 lno = 0x07d0 // 0x1571 @0x2
0x156f…1589 at0004 = ╱4b╱K╱ // 0x1573 @0x4
0x156f…1589 at0005 = ╱31╱1╱ // 0x1574 @0x5
0x156f…1589 at0006 = ╱ef╱$╱ // 0x1575 @0x6
0x156f…1589 at0007 = ╱dc╱=╱ // 0x1576 @0x7
0x156f…1589 at0008 = ╱22╱"╱ // 0x1577 @0x8
0x156f…1589 at0009 = ╱50╱P╱ // 0x1578 @0x9
0x156f…1589 at000a = ╱36╱6╱ // 0x1579 @0xa
0x156f…1589 at000b = ╱34╱4╱ // 0x157a @0xb
0x156f…1589 at000c = ╱31╱1╱ // 0x157b @0xc
0x156f…1589 at000d = ╱32╱2╱ // 0x157c @0xd
0x156f…1589 at000e = ╱32╱2╱ // 0x157d @0xe
0x156f…1589 at000f = ╱30╱0╱ // 0x157e @0xf
0x156f…1589 at0010 = ╱3a╱:╱ // 0x157f @0x10
0x156f…1589 at0011 = ╱53╱S╱ // 0x1580 @0x11
0x156f…1589 at0012 = ╱59╱Y╱ // 0x1581 @0x12
0x156f…1589 at0013 = ╱53╱S╱ // 0x1582 @0x13
0x156f…1589 at0014 = ╱54╱T╱ // 0x1583 @0x14
0x156f…1589 at0015 = ╱45╱E╱ // 0x1584 @0x15
0x156f…1589 at0016 = ╱4d╱M╱ // 0x1585 @0x16
0x156f…1589 at0017 = ╱31╱1╱ // 0x1586 @0x17
0x156f…1589 at0018 = ╱22╱"╱ // 0x1587 @0x18
0x156f…1589 at0019 = EOL // 0x1588 @0x19
0x156f…1589 }
0x1589…1594 a2eb 2010 OPEN K1$,R
0x1589…1594 LineComalBin {
0x1589…1594 ptr = 0xa2eb // 0x1589 @0x0
0x1589…1594 lno = 0x07da // 0x158b @0x2
0x1589…1594 at0004 = ╱a7╱ OPEN ╱ // 0x158d @0x4
0x1589…1594 at0005 = ╱4b╱K╱ // 0x158e @0x5
0x1589…1594 at0006 = ╱31╱1╱ // 0x158f @0x6
0x1589…1594 at0007 = ╱ef╱$╱ // 0x1590 @0x7
0x1589…1594 at0008 = ╱ec╱,╱ // 0x1591 @0x8
0x1589…1594 at0009 = ╱52╱R╱ // 0x1592 @0x9
0x1589…1594 at000a = EOL // 0x1593 @0xa
0x1589…1594 }
0x1594…15b1 a308 2020 EXEC FEJL(9,1,K1$)
0x1594…15b1 LineComalBin {
0x1594…15b1 ptr = 0xa308 // 0x1594 @0x0
0x1594…15b1 lno = 0x07e4 // 0x1596 @0x2
0x1594…15b1 at0004 = ╱9d╱ EXEC ╱ // 0x1598 @0x4
0x1594…15b1 at0005 = ╱46╱F╱ // 0x1599 @0x5
0x1594…15b1 at0006 = ╱45╱E╱ // 0x159a @0x6
0x1594…15b1 at0007 = ╱4a╱J╱ // 0x159b @0x7
0x1594…15b1 at0008 = ╱4c╱L╱ // 0x159c @0x8
0x1594…15b1 at0009 = ╱ed╱(╱ // 0x159d @0x9
0x1594…15b1 at000a = ╱39╱9╱ // 0x159e @0xa
0x1594…15b1 at000b = ╱fe00009004╱ // 0x159f @0xb
0x1594…15b1 at0010 = ╱ec╱,╱ // 0x15a4 @0x10
0x1594…15b1 at0011 = ╱31╱1╱ // 0x15a5 @0x11
0x1594…15b1 at0012 = ╱fe00008001╱ // 0x15a6 @0x12
0x1594…15b1 at0017 = ╱ec╱,╱ // 0x15ab @0x17
0x1594…15b1 at0018 = ╱4b╱K╱ // 0x15ac @0x18
0x1594…15b1 at0019 = ╱31╱1╱ // 0x15ad @0x19
0x1594…15b1 at001a = ╱ef╱$╱ // 0x15ae @0x1a
0x1594…15b1 at001b = ╱ee╱)╱ // 0x15af @0x1b
0x1594…15b1 at001c = EOL // 0x15b0 @0x1c
0x1594…15b1 }
0x15b1…15d1 a328 2030 GET K1$,1:MFANTAL,MDANTAL
0x15b1…15d1 LineComalBin {
0x15b1…15d1 ptr = 0xa328 // 0x15b1 @0x0
0x15b1…15d1 lno = 0x07ee // 0x15b3 @0x2
0x15b1…15d1 at0004 = ╱a9╱ GET ╱ // 0x15b5 @0x4
0x15b1…15d1 at0005 = ╱4b╱K╱ // 0x15b6 @0x5
0x15b1…15d1 at0006 = ╱31╱1╱ // 0x15b7 @0x6
0x15b1…15d1 at0007 = ╱ef╱$╱ // 0x15b8 @0x7
0x15b1…15d1 at0008 = ╱ec╱,╱ // 0x15b9 @0x8
0x15b1…15d1 at0009 = ╱31╱1╱ // 0x15ba @0x9
0x15b1…15d1 at000a = ╱fe00008001╱ // 0x15bb @0xa
0x15b1…15d1 at000f = ╱f0╱:╱ // 0x15c0 @0xf
0x15b1…15d1 at0010 = ╱4d╱M╱ // 0x15c1 @0x10
0x15b1…15d1 at0011 = ╱46╱F╱ // 0x15c2 @0x11
0x15b1…15d1 at0012 = ╱41╱A╱ // 0x15c3 @0x12
0x15b1…15d1 at0013 = ╱4e╱N╱ // 0x15c4 @0x13
0x15b1…15d1 at0014 = ╱54╱T╱ // 0x15c5 @0x14
0x15b1…15d1 at0015 = ╱41╱A╱ // 0x15c6 @0x15
0x15b1…15d1 at0016 = ╱4c╱L╱ // 0x15c7 @0x16
0x15b1…15d1 at0017 = ╱ec╱,╱ // 0x15c8 @0x17
0x15b1…15d1 at0018 = ╱4d╱M╱ // 0x15c9 @0x18
0x15b1…15d1 at0019 = ╱44╱D╱ // 0x15ca @0x19
0x15b1…15d1 at001a = ╱41╱A╱ // 0x15cb @0x1a
0x15b1…15d1 at001b = ╱4e╱N╱ // 0x15cc @0x1b
0x15b1…15d1 at001c = ╱54╱T╱ // 0x15cd @0x1c
0x15b1…15d1 at001d = ╱41╱A╱ // 0x15ce @0x1d
0x15b1…15d1 at001e = ╱4c╱L╱ // 0x15cf @0x1e
0x15b1…15d1 at001f = EOL // 0x15d0 @0x1f
0x15b1…15d1 }
0x15d1…15ee a345 2040 EXEC FEJL(9,2,K1$)
0x15d1…15ee LineComalBin {
0x15d1…15ee ptr = 0xa345 // 0x15d1 @0x0
0x15d1…15ee lno = 0x07f8 // 0x15d3 @0x2
0x15d1…15ee at0004 = ╱9d╱ EXEC ╱ // 0x15d5 @0x4
0x15d1…15ee at0005 = ╱46╱F╱ // 0x15d6 @0x5
0x15d1…15ee at0006 = ╱45╱E╱ // 0x15d7 @0x6
0x15d1…15ee at0007 = ╱4a╱J╱ // 0x15d8 @0x7
0x15d1…15ee at0008 = ╱4c╱L╱ // 0x15d9 @0x8
0x15d1…15ee at0009 = ╱ed╱(╱ // 0x15da @0x9
0x15d1…15ee at000a = ╱39╱9╱ // 0x15db @0xa
0x15d1…15ee at000b = ╱fe00009004╱ // 0x15dc @0xb
0x15d1…15ee at0010 = ╱ec╱,╱ // 0x15e1 @0x10
0x15d1…15ee at0011 = ╱32╱2╱ // 0x15e2 @0x11
0x15d1…15ee at0012 = ╱fe00008002╱ // 0x15e3 @0x12
0x15d1…15ee at0017 = ╱ec╱,╱ // 0x15e8 @0x17
0x15d1…15ee at0018 = ╱4b╱K╱ // 0x15e9 @0x18
0x15d1…15ee at0019 = ╱31╱1╱ // 0x15ea @0x19
0x15d1…15ee at001a = ╱ef╱$╱ // 0x15eb @0x1a
0x15d1…15ee at001b = ╱ee╱)╱ // 0x15ec @0x1b
0x15d1…15ee at001c = EOL // 0x15ed @0x1c
0x15d1…15ee }
0x15ee…1614 a36b 2050 GET K1$,4:MKPOST,MFAK,MVGR,MKGR
0x15ee…1614 LineComalBin {
0x15ee…1614 ptr = 0xa36b // 0x15ee @0x0
0x15ee…1614 lno = 0x0802 // 0x15f0 @0x2
0x15ee…1614 at0004 = ╱a9╱ GET ╱ // 0x15f2 @0x4
0x15ee…1614 at0005 = ╱4b╱K╱ // 0x15f3 @0x5
0x15ee…1614 at0006 = ╱31╱1╱ // 0x15f4 @0x6
0x15ee…1614 at0007 = ╱ef╱$╱ // 0x15f5 @0x7
0x15ee…1614 at0008 = ╱ec╱,╱ // 0x15f6 @0x8
0x15ee…1614 at0009 = ╱34╱4╱ // 0x15f7 @0x9
0x15ee…1614 at000a = ╱fe00008003╱ // 0x15f8 @0xa
0x15ee…1614 at000f = ╱f0╱:╱ // 0x15fd @0xf
0x15ee…1614 at0010 = ╱4d╱M╱ // 0x15fe @0x10
0x15ee…1614 at0011 = ╱4b╱K╱ // 0x15ff @0x11
0x15ee…1614 at0012 = ╱50╱P╱ // 0x1600 @0x12
0x15ee…1614 at0013 = ╱4f╱O╱ // 0x1601 @0x13
0x15ee…1614 at0014 = ╱53╱S╱ // 0x1602 @0x14
0x15ee…1614 at0015 = ╱54╱T╱ // 0x1603 @0x15
0x15ee…1614 at0016 = ╱ec╱,╱ // 0x1604 @0x16
0x15ee…1614 at0017 = ╱4d╱M╱ // 0x1605 @0x17
0x15ee…1614 at0018 = ╱46╱F╱ // 0x1606 @0x18
0x15ee…1614 at0019 = ╱41╱A╱ // 0x1607 @0x19
0x15ee…1614 at001a = ╱4b╱K╱ // 0x1608 @0x1a
0x15ee…1614 at001b = ╱ec╱,╱ // 0x1609 @0x1b
0x15ee…1614 at001c = ╱4d╱M╱ // 0x160a @0x1c
0x15ee…1614 at001d = ╱56╱V╱ // 0x160b @0x1d
0x15ee…1614 at001e = ╱47╱G╱ // 0x160c @0x1e
0x15ee…1614 at001f = ╱52╱R╱ // 0x160d @0x1f
0x15ee…1614 at0020 = ╱ec╱,╱ // 0x160e @0x20
0x15ee…1614 at0021 = ╱4d╱M╱ // 0x160f @0x21
0x15ee…1614 at0022 = ╱4b╱K╱ // 0x1610 @0x22
0x15ee…1614 at0023 = ╱47╱G╱ // 0x1611 @0x23
0x15ee…1614 at0024 = ╱52╱R╱ // 0x1612 @0x24
0x15ee…1614 at0025 = EOL // 0x1613 @0x25
0x15ee…1614 }
0x1614…1631 a388 2060 EXEC FEJL(9,3,K1$)
0x1614…1631 LineComalBin {
0x1614…1631 ptr = 0xa388 // 0x1614 @0x0
0x1614…1631 lno = 0x080c // 0x1616 @0x2
0x1614…1631 at0004 = ╱9d╱ EXEC ╱ // 0x1618 @0x4
0x1614…1631 at0005 = ╱46╱F╱ // 0x1619 @0x5
0x1614…1631 at0006 = ╱45╱E╱ // 0x161a @0x6
0x1614…1631 at0007 = ╱4a╱J╱ // 0x161b @0x7
0x1614…1631 at0008 = ╱4c╱L╱ // 0x161c @0x8
0x1614…1631 at0009 = ╱ed╱(╱ // 0x161d @0x9
0x1614…1631 at000a = ╱39╱9╱ // 0x161e @0xa
0x1614…1631 at000b = ╱fe00009004╱ // 0x161f @0xb
0x1614…1631 at0010 = ╱ec╱,╱ // 0x1624 @0x10
0x1614…1631 at0011 = ╱33╱3╱ // 0x1625 @0x11
0x1614…1631 at0012 = ╱fe0000c002╱ // 0x1626 @0x12
0x1614…1631 at0017 = ╱ec╱,╱ // 0x162b @0x17
0x1614…1631 at0018 = ╱4b╱K╱ // 0x162c @0x18
0x1614…1631 at0019 = ╱31╱1╱ // 0x162d @0x19
0x1614…1631 at001a = ╱ef╱$╱ // 0x162e @0x1a
0x1614…1631 at001b = ╱ee╱)╱ // 0x162f @0x1b
0x1614…1631 at001c = EOL // 0x1630 @0x1c
0x1614…1631 }
0x1631…1659 a3b0 2070 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL
0x1631…1659 LineComalBin {
0x1631…1659 ptr = 0xa3b0 // 0x1631 @0x0
0x1631…1659 lno = 0x0816 // 0x1633 @0x2
0x1631…1659 at0004 = ╱a9╱ GET ╱ // 0x1635 @0x4
0x1631…1659 at0005 = ╱4b╱K╱ // 0x1636 @0x5
0x1631…1659 at0006 = ╱31╱1╱ // 0x1637 @0x6
0x1631…1659 at0007 = ╱ef╱$╱ // 0x1638 @0x7
0x1631…1659 at0008 = ╱ec╱,╱ // 0x1639 @0x8
0x1631…1659 at0009 = ╱38╱8╱ // 0x163a @0x9
0x1631…1659 at000a = ╱fe00008004╱ // 0x163b @0xa
0x1631…1659 at000f = ╱f0╱:╱ // 0x1640 @0xf
0x1631…1659 at0010 = ╱44╱D╱ // 0x1641 @0x10
0x1631…1659 at0011 = ╱49╱I╱ // 0x1642 @0x11
0x1631…1659 at0012 = ╱56╱V╱ // 0x1643 @0x12
0x1631…1659 at0013 = ╱4e╱N╱ // 0x1644 @0x13
0x1631…1659 at0014 = ╱52╱R╱ // 0x1645 @0x14
0x1631…1659 at0015 = ╱ec╱,╱ // 0x1646 @0x15
0x1631…1659 at0016 = ╱44╱D╱ // 0x1647 @0x16
0x1631…1659 at0017 = ╱49╱I╱ // 0x1648 @0x17
0x1631…1659 at0018 = ╱56╱V╱ // 0x1649 @0x18
0x1631…1659 at0019 = ╱44╱D╱ // 0x164a @0x19
0x1631…1659 at001a = ╱4e╱N╱ // 0x164b @0x1a
0x1631…1659 at001b = ╱52╱R╱ // 0x164c @0x1b
0x1631…1659 at001c = ╱ec╱,╱ // 0x164d @0x1c
0x1631…1659 at001d = ╱44╱D╱ // 0x164e @0x1d
0x1631…1659 at001e = ╱49╱I╱ // 0x164f @0x1e
0x1631…1659 at001f = ╱46╱F╱ // 0x1650 @0x1f
0x1631…1659 at0020 = ╱4e╱N╱ // 0x1651 @0x20
0x1631…1659 at0021 = ╱52╱R╱ // 0x1652 @0x21
0x1631…1659 at0022 = ╱ec╱,╱ // 0x1653 @0x22
0x1631…1659 at0023 = ╱44╱D╱ // 0x1654 @0x23
0x1631…1659 at0024 = ╱54╱T╱ // 0x1655 @0x24
0x1631…1659 at0025 = ╱41╱A╱ // 0x1656 @0x25
0x1631…1659 at0026 = ╱4c╱L╱ // 0x1657 @0x26
0x1631…1659 at0027 = EOL // 0x1658 @0x27
0x1631…1659 }
0x1659…1676 a3cd 2080 EXEC FEJL(9,4,K1$)
0x1659…1676 LineComalBin {
0x1659…1676 ptr = 0xa3cd // 0x1659 @0x0
0x1659…1676 lno = 0x0820 // 0x165b @0x2
0x1659…1676 at0004 = ╱9d╱ EXEC ╱ // 0x165d @0x4
0x1659…1676 at0005 = ╱46╱F╱ // 0x165e @0x5
0x1659…1676 at0006 = ╱45╱E╱ // 0x165f @0x6
0x1659…1676 at0007 = ╱4a╱J╱ // 0x1660 @0x7
0x1659…1676 at0008 = ╱4c╱L╱ // 0x1661 @0x8
0x1659…1676 at0009 = ╱ed╱(╱ // 0x1662 @0x9
0x1659…1676 at000a = ╱39╱9╱ // 0x1663 @0xa
0x1659…1676 at000b = ╱fe00009004╱ // 0x1664 @0xb
0x1659…1676 at0010 = ╱ec╱,╱ // 0x1669 @0x10
0x1659…1676 at0011 = ╱34╱4╱ // 0x166a @0x11
0x1659…1676 at0012 = ╱fe00008003╱ // 0x166b @0x12
0x1659…1676 at0017 = ╱ec╱,╱ // 0x1670 @0x17
0x1659…1676 at0018 = ╱4b╱K╱ // 0x1671 @0x18
0x1659…1676 at0019 = ╱31╱1╱ // 0x1672 @0x19
0x1659…1676 at001a = ╱ef╱$╱ // 0x1673 @0x1a
0x1659…1676 at001b = ╱ee╱)╱ // 0x1674 @0x1b
0x1659…1676 at001c = EOL // 0x1675 @0x1c
0x1659…1676 }
0x1676…168a a3e1 2090 GET K1$,10:N$
0x1676…168a LineComalBin {
0x1676…168a ptr = 0xa3e1 // 0x1676 @0x0
0x1676…168a lno = 0x082a // 0x1678 @0x2
0x1676…168a at0004 = ╱a9╱ GET ╱ // 0x167a @0x4
0x1676…168a at0005 = ╱4b╱K╱ // 0x167b @0x5
0x1676…168a at0006 = ╱31╱1╱ // 0x167c @0x6
0x1676…168a at0007 = ╱ef╱$╱ // 0x167d @0x7
0x1676…168a at0008 = ╱ec╱,╱ // 0x167e @0x8
0x1676…168a at0009 = ╱31╱1╱ // 0x167f @0x9
0x1676…168a at000a = ╱30╱0╱ // 0x1680 @0xa
0x1676…168a at000b = ╱fe0000a004╱ // 0x1681 @0xb
0x1676…168a at0010 = ╱f0╱:╱ // 0x1686 @0x10
0x1676…168a at0011 = ╱4e╱N╱ // 0x1687 @0x11
0x1676…168a at0012 = ╱ef╱$╱ // 0x1688 @0x12
0x1676…168a at0013 = EOL // 0x1689 @0x13
0x1676…168a }
0x168a…16a7 a3fe 2100 EXEC FEJL(9,5,K1$)
0x168a…16a7 LineComalBin {
0x168a…16a7 ptr = 0xa3fe // 0x168a @0x0
0x168a…16a7 lno = 0x0834 // 0x168c @0x2
0x168a…16a7 at0004 = ╱9d╱ EXEC ╱ // 0x168e @0x4
0x168a…16a7 at0005 = ╱46╱F╱ // 0x168f @0x5
0x168a…16a7 at0006 = ╱45╱E╱ // 0x1690 @0x6
0x168a…16a7 at0007 = ╱4a╱J╱ // 0x1691 @0x7
0x168a…16a7 at0008 = ╱4c╱L╱ // 0x1692 @0x8
0x168a…16a7 at0009 = ╱ed╱(╱ // 0x1693 @0x9
0x168a…16a7 at000a = ╱39╱9╱ // 0x1694 @0xa
0x168a…16a7 at000b = ╱fe00009004╱ // 0x1695 @0xb
0x168a…16a7 at0010 = ╱ec╱,╱ // 0x169a @0x10
0x168a…16a7 at0011 = ╱35╱5╱ // 0x169b @0x11
0x168a…16a7 at0012 = ╱fe0000a003╱ // 0x169c @0x12
0x168a…16a7 at0017 = ╱ec╱,╱ // 0x16a1 @0x17
0x168a…16a7 at0018 = ╱4b╱K╱ // 0x16a2 @0x18
0x168a…16a7 at0019 = ╱31╱1╱ // 0x16a3 @0x19
0x168a…16a7 at001a = ╱ef╱$╱ // 0x16a4 @0x1a
0x168a…16a7 at001b = ╱ee╱)╱ // 0x16a5 @0x1b
0x168a…16a7 at001c = EOL // 0x16a6 @0x1c
0x168a…16a7 }
0x16a7…16bc a413 2110 GET K1$,12:K2$
0x16a7…16bc LineComalBin {
0x16a7…16bc ptr = 0xa413 // 0x16a7 @0x0
0x16a7…16bc lno = 0x083e // 0x16a9 @0x2
0x16a7…16bc at0004 = ╱a9╱ GET ╱ // 0x16ab @0x4
0x16a7…16bc at0005 = ╱4b╱K╱ // 0x16ac @0x5
0x16a7…16bc at0006 = ╱31╱1╱ // 0x16ad @0x6
0x16a7…16bc at0007 = ╱ef╱$╱ // 0x16ae @0x7
0x16a7…16bc at0008 = ╱ec╱,╱ // 0x16af @0x8
0x16a7…16bc at0009 = ╱31╱1╱ // 0x16b0 @0x9
0x16a7…16bc at000a = ╱32╱2╱ // 0x16b1 @0xa
0x16a7…16bc at000b = ╱fe0000c004╱ // 0x16b2 @0xb
0x16a7…16bc at0010 = ╱f0╱:╱ // 0x16b7 @0x10
0x16a7…16bc at0011 = ╱4b╱K╱ // 0x16b8 @0x11
0x16a7…16bc at0012 = ╱32╱2╱ // 0x16b9 @0x12
0x16a7…16bc at0013 = ╱ef╱$╱ // 0x16ba @0x13
0x16a7…16bc at0014 = EOL // 0x16bb @0x14
0x16a7…16bc }
0x16bc…16d9 a430 2120 EXEC FEJL(9,6,K1$)
0x16bc…16d9 LineComalBin {
0x16bc…16d9 ptr = 0xa430 // 0x16bc @0x0
0x16bc…16d9 lno = 0x0848 // 0x16be @0x2
0x16bc…16d9 at0004 = ╱9d╱ EXEC ╱ // 0x16c0 @0x4
0x16bc…16d9 at0005 = ╱46╱F╱ // 0x16c1 @0x5
0x16bc…16d9 at0006 = ╱45╱E╱ // 0x16c2 @0x6
0x16bc…16d9 at0007 = ╱4a╱J╱ // 0x16c3 @0x7
0x16bc…16d9 at0008 = ╱4c╱L╱ // 0x16c4 @0x8
0x16bc…16d9 at0009 = ╱ed╱(╱ // 0x16c5 @0x9
0x16bc…16d9 at000a = ╱39╱9╱ // 0x16c6 @0xa
0x16bc…16d9 at000b = ╱fe00009004╱ // 0x16c7 @0xb
0x16bc…16d9 at0010 = ╱ec╱,╱ // 0x16cc @0x10
0x16bc…16d9 at0011 = ╱36╱6╱ // 0x16cd @0x11
0x16bc…16d9 at0012 = ╱fe0000c003╱ // 0x16ce @0x12
0x16bc…16d9 at0017 = ╱ec╱,╱ // 0x16d3 @0x17
0x16bc…16d9 at0018 = ╱4b╱K╱ // 0x16d4 @0x18
0x16bc…16d9 at0019 = ╱31╱1╱ // 0x16d5 @0x19
0x16bc…16d9 at001a = ╱ef╱$╱ // 0x16d6 @0x1a
0x16bc…16d9 at001b = ╱ee╱)╱ // 0x16d7 @0x1b
0x16bc…16d9 at001c = EOL // 0x16d8 @0x1c
0x16bc…16d9 }
0x16d9…16ee a445 2130 GET K1$,16:K3$
0x16d9…16ee LineComalBin {
0x16d9…16ee ptr = 0xa445 // 0x16d9 @0x0
0x16d9…16ee lno = 0x0852 // 0x16db @0x2
0x16d9…16ee at0004 = ╱a9╱ GET ╱ // 0x16dd @0x4
0x16d9…16ee at0005 = ╱4b╱K╱ // 0x16de @0x5
0x16d9…16ee at0006 = ╱31╱1╱ // 0x16df @0x6
0x16d9…16ee at0007 = ╱ef╱$╱ // 0x16e0 @0x7
0x16d9…16ee at0008 = ╱ec╱,╱ // 0x16e1 @0x8
0x16d9…16ee at0009 = ╱31╱1╱ // 0x16e2 @0x9
0x16d9…16ee at000a = ╱36╱6╱ // 0x16e3 @0xa
0x16d9…16ee at000b = ╱fe00008005╱ // 0x16e4 @0xb
0x16d9…16ee at0010 = ╱f0╱:╱ // 0x16e9 @0x10
0x16d9…16ee at0011 = ╱4b╱K╱ // 0x16ea @0x11
0x16d9…16ee at0012 = ╱33╱3╱ // 0x16eb @0x12
0x16d9…16ee at0013 = ╱ef╱$╱ // 0x16ec @0x13
0x16d9…16ee at0014 = EOL // 0x16ed @0x14
0x16d9…16ee }
0x16ee…170b a462 2140 EXEC FEJL(9,7,K1$)
0x16ee…170b LineComalBin {
0x16ee…170b ptr = 0xa462 // 0x16ee @0x0
0x16ee…170b lno = 0x085c // 0x16f0 @0x2
0x16ee…170b at0004 = ╱9d╱ EXEC ╱ // 0x16f2 @0x4
0x16ee…170b at0005 = ╱46╱F╱ // 0x16f3 @0x5
0x16ee…170b at0006 = ╱45╱E╱ // 0x16f4 @0x6
0x16ee…170b at0007 = ╱4a╱J╱ // 0x16f5 @0x7
0x16ee…170b at0008 = ╱4c╱L╱ // 0x16f6 @0x8
0x16ee…170b at0009 = ╱ed╱(╱ // 0x16f7 @0x9
0x16ee…170b at000a = ╱39╱9╱ // 0x16f8 @0xa
0x16ee…170b at000b = ╱fe00009004╱ // 0x16f9 @0xb
0x16ee…170b at0010 = ╱ec╱,╱ // 0x16fe @0x10
0x16ee…170b at0011 = ╱37╱7╱ // 0x16ff @0x11
0x16ee…170b at0012 = ╱fe0000e003╱ // 0x1700 @0x12
0x16ee…170b at0017 = ╱ec╱,╱ // 0x1705 @0x17
0x16ee…170b at0018 = ╱4b╱K╱ // 0x1706 @0x18
0x16ee…170b at0019 = ╱31╱1╱ // 0x1707 @0x19
0x16ee…170b at001a = ╱ef╱$╱ // 0x1708 @0x1a
0x16ee…170b at001b = ╱ee╱)╱ // 0x1709 @0x1b
0x16ee…170b at001c = EOL // 0x170a @0x1c
0x16ee…170b }
0x170b…1720 a477 2150 GET K1$,35:K4$
0x170b…1720 LineComalBin {
0x170b…1720 ptr = 0xa477 // 0x170b @0x0
0x170b…1720 lno = 0x0866 // 0x170d @0x2
0x170b…1720 at0004 = ╱a9╱ GET ╱ // 0x170f @0x4
0x170b…1720 at0005 = ╱4b╱K╱ // 0x1710 @0x5
0x170b…1720 at0006 = ╱31╱1╱ // 0x1711 @0x6
0x170b…1720 at0007 = ╱ef╱$╱ // 0x1712 @0x7
0x170b…1720 at0008 = ╱ec╱,╱ // 0x1713 @0x8
0x170b…1720 at0009 = ╱33╱3╱ // 0x1714 @0x9
0x170b…1720 at000a = ╱35╱5╱ // 0x1715 @0xa
0x170b…1720 at000b = ╱fe00008c06╱ // 0x1716 @0xb
0x170b…1720 at0010 = ╱f0╱:╱ // 0x171b @0x10
0x170b…1720 at0011 = ╱4b╱K╱ // 0x171c @0x11
0x170b…1720 at0012 = ╱34╱4╱ // 0x171d @0x12
0x170b…1720 at0013 = ╱ef╱$╱ // 0x171e @0x13
0x170b…1720 at0014 = EOL // 0x171f @0x14
0x170b…1720 }
0x1720…173d a494 2160 EXEC FEJL(9,8,K1$)
0x1720…173d LineComalBin {
0x1720…173d ptr = 0xa494 // 0x1720 @0x0
0x1720…173d lno = 0x0870 // 0x1722 @0x2
0x1720…173d at0004 = ╱9d╱ EXEC ╱ // 0x1724 @0x4
0x1720…173d at0005 = ╱46╱F╱ // 0x1725 @0x5
0x1720…173d at0006 = ╱45╱E╱ // 0x1726 @0x6
0x1720…173d at0007 = ╱4a╱J╱ // 0x1727 @0x7
0x1720…173d at0008 = ╱4c╱L╱ // 0x1728 @0x8
0x1720…173d at0009 = ╱ed╱(╱ // 0x1729 @0x9
0x1720…173d at000a = ╱39╱9╱ // 0x172a @0xa
0x1720…173d at000b = ╱fe00009004╱ // 0x172b @0xb
0x1720…173d at0010 = ╱ec╱,╱ // 0x1730 @0x10
0x1720…173d at0011 = ╱38╱8╱ // 0x1731 @0x11
0x1720…173d at0012 = ╱fe00008004╱ // 0x1732 @0x12
0x1720…173d at0017 = ╱ec╱,╱ // 0x1737 @0x17
0x1720…173d at0018 = ╱4b╱K╱ // 0x1738 @0x18
0x1720…173d at0019 = ╱31╱1╱ // 0x1739 @0x19
0x1720…173d at001a = ╱ef╱$╱ // 0x173a @0x1a
0x1720…173d at001b = ╱ee╱)╱ // 0x173b @0x1b
0x1720…173d at001c = EOL // 0x173c @0x1c
0x1720…173d }
0x173d…1752 a4a9 2170 GET K1$,36:K5$
0x173d…1752 LineComalBin {
0x173d…1752 ptr = 0xa4a9 // 0x173d @0x0
0x173d…1752 lno = 0x087a // 0x173f @0x2
0x173d…1752 at0004 = ╱a9╱ GET ╱ // 0x1741 @0x4
0x173d…1752 at0005 = ╱4b╱K╱ // 0x1742 @0x5
0x173d…1752 at0006 = ╱31╱1╱ // 0x1743 @0x6
0x173d…1752 at0007 = ╱ef╱$╱ // 0x1744 @0x7
0x173d…1752 at0008 = ╱ec╱,╱ // 0x1745 @0x8
0x173d…1752 at0009 = ╱33╱3╱ // 0x1746 @0x9
0x173d…1752 at000a = ╱36╱6╱ // 0x1747 @0xa
0x173d…1752 at000b = ╱fe00009006╱ // 0x1748 @0xb
0x173d…1752 at0010 = ╱f0╱:╱ // 0x174d @0x10
0x173d…1752 at0011 = ╱4b╱K╱ // 0x174e @0x11
0x173d…1752 at0012 = ╱35╱5╱ // 0x174f @0x12
0x173d…1752 at0013 = ╱ef╱$╱ // 0x1750 @0x13
0x173d…1752 at0014 = EOL // 0x1751 @0x14
0x173d…1752 }
0x1752…176f a4c6 2180 EXEC FEJL(9,9,K1$)
0x1752…176f LineComalBin {
0x1752…176f ptr = 0xa4c6 // 0x1752 @0x0
0x1752…176f lno = 0x0884 // 0x1754 @0x2
0x1752…176f at0004 = ╱9d╱ EXEC ╱ // 0x1756 @0x4
0x1752…176f at0005 = ╱46╱F╱ // 0x1757 @0x5
0x1752…176f at0006 = ╱45╱E╱ // 0x1758 @0x6
0x1752…176f at0007 = ╱4a╱J╱ // 0x1759 @0x7
0x1752…176f at0008 = ╱4c╱L╱ // 0x175a @0x8
0x1752…176f at0009 = ╱ed╱(╱ // 0x175b @0x9
0x1752…176f at000a = ╱39╱9╱ // 0x175c @0xa
0x1752…176f at000b = ╱fe00009004╱ // 0x175d @0xb
0x1752…176f at0010 = ╱ec╱,╱ // 0x1762 @0x10
0x1752…176f at0011 = ╱39╱9╱ // 0x1763 @0x11
0x1752…176f at0012 = ╱fe00009004╱ // 0x1764 @0x12
0x1752…176f at0017 = ╱ec╱,╱ // 0x1769 @0x17
0x1752…176f at0018 = ╱4b╱K╱ // 0x176a @0x18
0x1752…176f at0019 = ╱31╱1╱ // 0x176b @0x19
0x1752…176f at001a = ╱ef╱$╱ // 0x176c @0x1a
0x1752…176f at001b = ╱ee╱)╱ // 0x176d @0x1b
0x1752…176f at001c = EOL // 0x176e @0x1c
0x1752…176f }
0x176f…1778 a4cf 2190 CLOSE K1$
0x176f…1778 LineComalBin {
0x176f…1778 ptr = 0xa4cf // 0x176f @0x0
0x176f…1778 lno = 0x088e // 0x1771 @0x2
0x176f…1778 at0004 = ╱a8╱ CLOSE ╱ // 0x1773 @0x4
0x176f…1778 at0005 = ╱4b╱K╱ // 0x1774 @0x5
0x176f…1778 at0006 = ╱31╱1╱ // 0x1775 @0x6
0x176f…1778 at0007 = ╱ef╱$╱ // 0x1776 @0x7
0x176f…1778 at0008 = EOL // 0x1777 @0x8
0x176f…1778 }
0x1778…1796 a4ed 2200 EXEC FEJL(9,10,K1$)
0x1778…1796 LineComalBin {
0x1778…1796 ptr = 0xa4ed // 0x1778 @0x0
0x1778…1796 lno = 0x0898 // 0x177a @0x2
0x1778…1796 at0004 = ╱9d╱ EXEC ╱ // 0x177c @0x4
0x1778…1796 at0005 = ╱46╱F╱ // 0x177d @0x5
0x1778…1796 at0006 = ╱45╱E╱ // 0x177e @0x6
0x1778…1796 at0007 = ╱4a╱J╱ // 0x177f @0x7
0x1778…1796 at0008 = ╱4c╱L╱ // 0x1780 @0x8
0x1778…1796 at0009 = ╱ed╱(╱ // 0x1781 @0x9
0x1778…1796 at000a = ╱39╱9╱ // 0x1782 @0xa
0x1778…1796 at000b = ╱fe00009004╱ // 0x1783 @0xb
0x1778…1796 at0010 = ╱ec╱,╱ // 0x1788 @0x10
0x1778…1796 at0011 = ╱31╱1╱ // 0x1789 @0x11
0x1778…1796 at0012 = ╱30╱0╱ // 0x178a @0x12
0x1778…1796 at0013 = ╱fe0000a004╱ // 0x178b @0x13
0x1778…1796 at0018 = ╱ec╱,╱ // 0x1790 @0x18
0x1778…1796 at0019 = ╱4b╱K╱ // 0x1791 @0x19
0x1778…1796 at001a = ╱31╱1╱ // 0x1792 @0x1a
0x1778…1796 at001b = ╱ef╱$╱ // 0x1793 @0x1b
0x1778…1796 at001c = ╱ee╱)╱ // 0x1794 @0x1c
0x1778…1796 at001d = EOL // 0x1795 @0x1d
0x1778…1796 }
0x1796…17c6 a51d 2210 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$
0x1796…17c6 LineComalBin {
0x1796…17c6 ptr = 0xa51d // 0x1796 @0x0
0x1796…17c6 lno = 0x08a2 // 0x1798 @0x2
0x1796…17c6 at0004 = ╱4b╱K╱ // 0x179a @0x4
0x1796…17c6 at0005 = ╱32╱2╱ // 0x179b @0x5
0x1796…17c6 at0006 = ╱ef╱$╱ // 0x179c @0x6
0x1796…17c6 at0007 = ╱dc╱=╱ // 0x179d @0x7
0x1796…17c6 at0008 = ╱4e╱N╱ // 0x179e @0x8
0x1796…17c6 at0009 = ╱ef╱$╱ // 0x179f @0x9
0x1796…17c6 at000a = ╱f1╱+╱ // 0x17a0 @0xa
0x1796…17c6 at000b = ╱4b╱K╱ // 0x17a1 @0xb
0x1796…17c6 at000c = ╱32╱2╱ // 0x17a2 @0xc
0x1796…17c6 at000d = ╱ef╱$╱ // 0x17a3 @0xd
0x1796…17c6 at000e = ╱eb╱;╱ // 0x17a4 @0xe
0x1796…17c6 at000f = ╱4b╱K╱ // 0x17a5 @0xf
0x1796…17c6 at0010 = ╱33╱3╱ // 0x17a6 @0x10
0x1796…17c6 at0011 = ╱ef╱$╱ // 0x17a7 @0x11
0x1796…17c6 at0012 = ╱dc╱=╱ // 0x17a8 @0x12
0x1796…17c6 at0013 = ╱4e╱N╱ // 0x17a9 @0x13
0x1796…17c6 at0014 = ╱ef╱$╱ // 0x17aa @0x14
0x1796…17c6 at0015 = ╱f1╱+╱ // 0x17ab @0x15
0x1796…17c6 at0016 = ╱4b╱K╱ // 0x17ac @0x16
0x1796…17c6 at0017 = ╱33╱3╱ // 0x17ad @0x17
0x1796…17c6 at0018 = ╱ef╱$╱ // 0x17ae @0x18
0x1796…17c6 at0019 = ╱eb╱;╱ // 0x17af @0x19
0x1796…17c6 at001a = ╱4b╱K╱ // 0x17b0 @0x1a
0x1796…17c6 at001b = ╱34╱4╱ // 0x17b1 @0x1b
0x1796…17c6 at001c = ╱ef╱$╱ // 0x17b2 @0x1c
0x1796…17c6 at001d = ╱dc╱=╱ // 0x17b3 @0x1d
0x1796…17c6 at001e = ╱4e╱N╱ // 0x17b4 @0x1e
0x1796…17c6 at001f = ╱ef╱$╱ // 0x17b5 @0x1f
0x1796…17c6 at0020 = ╱f1╱+╱ // 0x17b6 @0x20
0x1796…17c6 at0021 = ╱4b╱K╱ // 0x17b7 @0x21
0x1796…17c6 at0022 = ╱34╱4╱ // 0x17b8 @0x22
0x1796…17c6 at0023 = ╱ef╱$╱ // 0x17b9 @0x23
0x1796…17c6 at0024 = ╱eb╱;╱ // 0x17ba @0x24
0x1796…17c6 at0025 = ╱4b╱K╱ // 0x17bb @0x25
0x1796…17c6 at0026 = ╱35╱5╱ // 0x17bc @0x26
0x1796…17c6 at0027 = ╱ef╱$╱ // 0x17bd @0x27
0x1796…17c6 at0028 = ╱dc╱=╱ // 0x17be @0x28
0x1796…17c6 at0029 = ╱4e╱N╱ // 0x17bf @0x29
0x1796…17c6 at002a = ╱ef╱$╱ // 0x17c0 @0x2a
0x1796…17c6 at002b = ╱f1╱+╱ // 0x17c1 @0x2b
0x1796…17c6 at002c = ╱4b╱K╱ // 0x17c2 @0x2c
0x1796…17c6 at002d = ╱35╱5╱ // 0x17c3 @0x2d
0x1796…17c6 at002e = ╱ef╱$╱ // 0x17c4 @0x2e
0x1796…17c6 at002f = EOL // 0x17c5 @0x2f
0x1796…17c6 }
0x17c6…17d1 a528 2220 OPEN K5$,R
0x17c6…17d1 LineComalBin {
0x17c6…17d1 ptr = 0xa528 // 0x17c6 @0x0
0x17c6…17d1 lno = 0x08ac // 0x17c8 @0x2
0x17c6…17d1 at0004 = ╱a7╱ OPEN ╱ // 0x17ca @0x4
0x17c6…17d1 at0005 = ╱4b╱K╱ // 0x17cb @0x5
0x17c6…17d1 at0006 = ╱35╱5╱ // 0x17cc @0x6
0x17c6…17d1 at0007 = ╱ef╱$╱ // 0x17cd @0x7
0x17c6…17d1 at0008 = ╱ec╱,╱ // 0x17ce @0x8
0x17c6…17d1 at0009 = ╱52╱R╱ // 0x17cf @0x9
0x17c6…17d1 at000a = EOL // 0x17d0 @0xa
0x17c6…17d1 }
0x17d1…17ef a546 2230 EXEC FEJL(9,11,K5$)
0x17d1…17ef LineComalBin {
0x17d1…17ef ptr = 0xa546 // 0x17d1 @0x0
0x17d1…17ef lno = 0x08b6 // 0x17d3 @0x2
0x17d1…17ef at0004 = ╱9d╱ EXEC ╱ // 0x17d5 @0x4
0x17d1…17ef at0005 = ╱46╱F╱ // 0x17d6 @0x5
0x17d1…17ef at0006 = ╱45╱E╱ // 0x17d7 @0x6
0x17d1…17ef at0007 = ╱4a╱J╱ // 0x17d8 @0x7
0x17d1…17ef at0008 = ╱4c╱L╱ // 0x17d9 @0x8
0x17d1…17ef at0009 = ╱ed╱(╱ // 0x17da @0x9
0x17d1…17ef at000a = ╱39╱9╱ // 0x17db @0xa
0x17d1…17ef at000b = ╱fe00009004╱ // 0x17dc @0xb
0x17d1…17ef at0010 = ╱ec╱,╱ // 0x17e1 @0x10
0x17d1…17ef at0011 = ╱31╱1╱ // 0x17e2 @0x11
0x17d1…17ef at0012 = ╱31╱1╱ // 0x17e3 @0x12
0x17d1…17ef at0013 = ╱fe0000b004╱ // 0x17e4 @0x13
0x17d1…17ef at0018 = ╱ec╱,╱ // 0x17e9 @0x18
0x17d1…17ef at0019 = ╱4b╱K╱ // 0x17ea @0x19
0x17d1…17ef at001a = ╱35╱5╱ // 0x17eb @0x1a
0x17d1…17ef at001b = ╱ef╱$╱ // 0x17ec @0x1b
0x17d1…17ef at001c = ╱ee╱)╱ // 0x17ed @0x1c
0x17d1…17ef at001d = EOL // 0x17ee @0x1d
0x17d1…17ef }
0x17ef…1862 a5b9 2240 GET K5$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)
0x17ef…1862 LineComalBin {
0x17ef…1862 ptr = 0xa5b9 // 0x17ef @0x0
0x17ef…1862 lno = 0x08c0 // 0x17f1 @0x2
0x17ef…1862 at0004 = ╱a9╱ GET ╱ // 0x17f3 @0x4
0x17ef…1862 at0005 = ╱4b╱K╱ // 0x17f4 @0x5
0x17ef…1862 at0006 = ╱35╱5╱ // 0x17f5 @0x6
0x17ef…1862 at0007 = ╱ef╱$╱ // 0x17f6 @0x7
0x17ef…1862 at0008 = ╱ec╱,╱ // 0x17f7 @0x8
0x17ef…1862 at0009 = ╱32╱2╱ // 0x17f8 @0x9
0x17ef…1862 at000a = ╱fe00008002╱ // 0x17f9 @0xa
0x17ef…1862 at000f = ╱f0╱:╱ // 0x17fe @0xf
0x17ef…1862 at0010 = ╱54╱T╱ // 0x17ff @0x10
0x17ef…1862 at0011 = ╱31╱1╱ // 0x1800 @0x11
0x17ef…1862 at0012 = ╱ed╱(╱ // 0x1801 @0x12
0x17ef…1862 at0013 = ╱31╱1╱ // 0x1802 @0x13
0x17ef…1862 at0014 = ╱fe00008001╱ // 0x1803 @0x14
0x17ef…1862 at0019 = ╱ee╱)╱ // 0x1808 @0x19
0x17ef…1862 at001a = ╱ec╱,╱ // 0x1809 @0x1a
0x17ef…1862 at001b = ╱54╱T╱ // 0x180a @0x1b
0x17ef…1862 at001c = ╱31╱1╱ // 0x180b @0x1c
0x17ef…1862 at001d = ╱ed╱(╱ // 0x180c @0x1d
0x17ef…1862 at001e = ╱32╱2╱ // 0x180d @0x1e
0x17ef…1862 at001f = ╱fe00008002╱ // 0x180e @0x1f
0x17ef…1862 at0024 = ╱ee╱)╱ // 0x1813 @0x24
0x17ef…1862 at0025 = ╱ec╱,╱ // 0x1814 @0x25
0x17ef…1862 at0026 = ╱54╱T╱ // 0x1815 @0x26
0x17ef…1862 at0027 = ╱31╱1╱ // 0x1816 @0x27
0x17ef…1862 at0028 = ╱ed╱(╱ // 0x1817 @0x28
0x17ef…1862 at0029 = ╱33╱3╱ // 0x1818 @0x29
0x17ef…1862 at002a = ╱fe0000c002╱ // 0x1819 @0x2a
0x17ef…1862 at002f = ╱ee╱)╱ // 0x181e @0x2f
0x17ef…1862 at0030 = ╱ec╱,╱ // 0x181f @0x30
0x17ef…1862 at0031 = ╱54╱T╱ // 0x1820 @0x31
0x17ef…1862 at0032 = ╱31╱1╱ // 0x1821 @0x32
0x17ef…1862 at0033 = ╱ed╱(╱ // 0x1822 @0x33
0x17ef…1862 at0034 = ╱34╱4╱ // 0x1823 @0x34
0x17ef…1862 at0035 = ╱fe00008003╱ // 0x1824 @0x35
0x17ef…1862 at003a = ╱ee╱)╱ // 0x1829 @0x3a
0x17ef…1862 at003b = ╱ec╱,╱ // 0x182a @0x3b
0x17ef…1862 at003c = ╱54╱T╱ // 0x182b @0x3c
0x17ef…1862 at003d = ╱31╱1╱ // 0x182c @0x3d
0x17ef…1862 at003e = ╱ed╱(╱ // 0x182d @0x3e
0x17ef…1862 at003f = ╱35╱5╱ // 0x182e @0x3f
0x17ef…1862 at0040 = ╱fe0000a003╱ // 0x182f @0x40
0x17ef…1862 at0045 = ╱ee╱)╱ // 0x1834 @0x45
0x17ef…1862 at0046 = ╱ec╱,╱ // 0x1835 @0x46
0x17ef…1862 at0047 = ╱54╱T╱ // 0x1836 @0x47
0x17ef…1862 at0048 = ╱31╱1╱ // 0x1837 @0x48
0x17ef…1862 at0049 = ╱ed╱(╱ // 0x1838 @0x49
0x17ef…1862 at004a = ╱36╱6╱ // 0x1839 @0x4a
0x17ef…1862 at004b = ╱fe0000c003╱ // 0x183a @0x4b
0x17ef…1862 at0050 = ╱ee╱)╱ // 0x183f @0x50
0x17ef…1862 at0051 = ╱ec╱,╱ // 0x1840 @0x51
0x17ef…1862 at0052 = ╱54╱T╱ // 0x1841 @0x52
0x17ef…1862 at0053 = ╱31╱1╱ // 0x1842 @0x53
0x17ef…1862 at0054 = ╱ed╱(╱ // 0x1843 @0x54
0x17ef…1862 at0055 = ╱37╱7╱ // 0x1844 @0x55
0x17ef…1862 at0056 = ╱fe0000e003╱ // 0x1845 @0x56
0x17ef…1862 at005b = ╱ee╱)╱ // 0x184a @0x5b
0x17ef…1862 at005c = ╱ec╱,╱ // 0x184b @0x5c
0x17ef…1862 at005d = ╱54╱T╱ // 0x184c @0x5d
0x17ef…1862 at005e = ╱31╱1╱ // 0x184d @0x5e
0x17ef…1862 at005f = ╱ed╱(╱ // 0x184e @0x5f
0x17ef…1862 at0060 = ╱38╱8╱ // 0x184f @0x60
0x17ef…1862 at0061 = ╱fe00008004╱ // 0x1850 @0x61
0x17ef…1862 at0066 = ╱ee╱)╱ // 0x1855 @0x66
0x17ef…1862 at0067 = ╱ec╱,╱ // 0x1856 @0x67
0x17ef…1862 at0068 = ╱54╱T╱ // 0x1857 @0x68
0x17ef…1862 at0069 = ╱31╱1╱ // 0x1858 @0x69
0x17ef…1862 at006a = ╱ed╱(╱ // 0x1859 @0x6a
0x17ef…1862 at006b = ╱39╱9╱ // 0x185a @0x6b
0x17ef…1862 at006c = ╱fe00009004╱ // 0x185b @0x6c
0x17ef…1862 at0071 = ╱ee╱)╱ // 0x1860 @0x71
0x17ef…1862 at0072 = EOL // 0x1861 @0x72
0x17ef…1862 }
0x1862…1880 a5d7 2250 EXEC FEJL(9,12,K5$)
0x1862…1880 LineComalBin {
0x1862…1880 ptr = 0xa5d7 // 0x1862 @0x0
0x1862…1880 lno = 0x08ca // 0x1864 @0x2
0x1862…1880 at0004 = ╱9d╱ EXEC ╱ // 0x1866 @0x4
0x1862…1880 at0005 = ╱46╱F╱ // 0x1867 @0x5
0x1862…1880 at0006 = ╱45╱E╱ // 0x1868 @0x6
0x1862…1880 at0007 = ╱4a╱J╱ // 0x1869 @0x7
0x1862…1880 at0008 = ╱4c╱L╱ // 0x186a @0x8
0x1862…1880 at0009 = ╱ed╱(╱ // 0x186b @0x9
0x1862…1880 at000a = ╱39╱9╱ // 0x186c @0xa
0x1862…1880 at000b = ╱fe00009004╱ // 0x186d @0xb
0x1862…1880 at0010 = ╱ec╱,╱ // 0x1872 @0x10
0x1862…1880 at0011 = ╱31╱1╱ // 0x1873 @0x11
0x1862…1880 at0012 = ╱32╱2╱ // 0x1874 @0x12
0x1862…1880 at0013 = ╱fe0000c004╱ // 0x1875 @0x13
0x1862…1880 at0018 = ╱ec╱,╱ // 0x187a @0x18
0x1862…1880 at0019 = ╱4b╱K╱ // 0x187b @0x19
0x1862…1880 at001a = ╱35╱5╱ // 0x187c @0x1a
0x1862…1880 at001b = ╱ef╱$╱ // 0x187d @0x1b
0x1862…1880 at001c = ╱ee╱)╱ // 0x187e @0x1c
0x1862…1880 at001d = EOL // 0x187f @0x1d
0x1862…1880 }
0x1880…1895 a5ec 2260 FOR I=1 TO 3
0x1880…1895 LineComalBin {
0x1880…1895 ptr = 0xa5ec // 0x1880 @0x0
0x1880…1895 lno = 0x08d4 // 0x1882 @0x2
0x1880…1895 at0004 = ╱83╱ FOR ╱ // 0x1884 @0x4
0x1880…1895 at0005 = ╱49╱I╱ // 0x1885 @0x5
0x1880…1895 at0006 = ╱dc╱=╱ // 0x1886 @0x6
0x1880…1895 at0007 = ╱31╱1╱ // 0x1887 @0x7
0x1880…1895 at0008 = ╱fe00008001╱ // 0x1888 @0x8
0x1880…1895 at000d = ╱b7╱ TO ╱ // 0x188d @0xd
0x1880…1895 at000e = ╱33╱3╱ // 0x188e @0xe
0x1880…1895 at000f = ╱fe0000c002╱ // 0x188f @0xf
0x1880…1895 at0014 = EOL // 0x1894 @0x14
0x1880…1895 }
0x1895…18b4 a60b 2270 H=(I-1)*3+1
0x1895…18b4 LineComalBin {
0x1895…18b4 ptr = 0xa60b // 0x1895 @0x0
0x1895…18b4 lno = 0x08de // 0x1897 @0x2
0x1895…18b4 at0004 = ╱48╱H╱ // 0x1899 @0x4
0x1895…18b4 at0005 = ╱dc╱=╱ // 0x189a @0x5
0x1895…18b4 at0006 = ╱ed╱(╱ // 0x189b @0x6
0x1895…18b4 at0007 = ╱49╱I╱ // 0x189c @0x7
0x1895…18b4 at0008 = ╱e3╱-╱ // 0x189d @0x8
0x1895…18b4 at0009 = ╱31╱1╱ // 0x189e @0x9
0x1895…18b4 at000a = ╱fe00008001╱ // 0x189f @0xa
0x1895…18b4 at000f = ╱ee╱)╱ // 0x18a4 @0xf
0x1895…18b4 at0010 = ╱e4╱*╱ // 0x18a5 @0x10
0x1895…18b4 at0011 = ╱33╱3╱ // 0x18a6 @0x11
0x1895…18b4 at0012 = ╱fe0000c002╱ // 0x18a7 @0x12
0x1895…18b4 at0017 = ╱e2╱+╱ // 0x18ac @0x17
0x1895…18b4 at0018 = ╱31╱1╱ // 0x18ad @0x18
0x1895…18b4 at0019 = ╱fe00008001╱ // 0x18ae @0x19
0x1895…18b4 at001e = EOL // 0x18b3 @0x1e
0x1895…18b4 }
0x18b4…18ef a646 2280 GET K5$,I+2:LAND$(H),LAND$(H+1),LAND$(H+2)
0x18b4…18ef LineComalBin {
0x18b4…18ef ptr = 0xa646 // 0x18b4 @0x0
0x18b4…18ef lno = 0x08e8 // 0x18b6 @0x2
0x18b4…18ef at0004 = ╱a9╱ GET ╱ // 0x18b8 @0x4
0x18b4…18ef at0005 = ╱4b╱K╱ // 0x18b9 @0x5
0x18b4…18ef at0006 = ╱35╱5╱ // 0x18ba @0x6
0x18b4…18ef at0007 = ╱ef╱$╱ // 0x18bb @0x7
0x18b4…18ef at0008 = ╱ec╱,╱ // 0x18bc @0x8
0x18b4…18ef at0009 = ╱49╱I╱ // 0x18bd @0x9
0x18b4…18ef at000a = ╱e2╱+╱ // 0x18be @0xa
0x18b4…18ef at000b = ╱32╱2╱ // 0x18bf @0xb
0x18b4…18ef at000c = ╱fe00008002╱ // 0x18c0 @0xc
0x18b4…18ef at0011 = ╱f0╱:╱ // 0x18c5 @0x11
0x18b4…18ef at0012 = ╱4c╱L╱ // 0x18c6 @0x12
0x18b4…18ef at0013 = ╱41╱A╱ // 0x18c7 @0x13
0x18b4…18ef at0014 = ╱4e╱N╱ // 0x18c8 @0x14
0x18b4…18ef at0015 = ╱44╱D╱ // 0x18c9 @0x15
0x18b4…18ef at0016 = ╱ef╱$╱ // 0x18ca @0x16
0x18b4…18ef at0017 = ╱ed╱(╱ // 0x18cb @0x17
0x18b4…18ef at0018 = ╱48╱H╱ // 0x18cc @0x18
0x18b4…18ef at0019 = ╱ee╱)╱ // 0x18cd @0x19
0x18b4…18ef at001a = ╱ec╱,╱ // 0x18ce @0x1a
0x18b4…18ef at001b = ╱4c╱L╱ // 0x18cf @0x1b
0x18b4…18ef at001c = ╱41╱A╱ // 0x18d0 @0x1c
0x18b4…18ef at001d = ╱4e╱N╱ // 0x18d1 @0x1d
0x18b4…18ef at001e = ╱44╱D╱ // 0x18d2 @0x1e
0x18b4…18ef at001f = ╱ef╱$╱ // 0x18d3 @0x1f
0x18b4…18ef at0020 = ╱ed╱(╱ // 0x18d4 @0x20
0x18b4…18ef at0021 = ╱48╱H╱ // 0x18d5 @0x21
0x18b4…18ef at0022 = ╱e2╱+╱ // 0x18d6 @0x22
0x18b4…18ef at0023 = ╱31╱1╱ // 0x18d7 @0x23
0x18b4…18ef at0024 = ╱fe00008001╱ // 0x18d8 @0x24
0x18b4…18ef at0029 = ╱ee╱)╱ // 0x18dd @0x29
0x18b4…18ef at002a = ╱ec╱,╱ // 0x18de @0x2a
0x18b4…18ef at002b = ╱4c╱L╱ // 0x18df @0x2b
0x18b4…18ef at002c = ╱41╱A╱ // 0x18e0 @0x2c
0x18b4…18ef at002d = ╱4e╱N╱ // 0x18e1 @0x2d
0x18b4…18ef at002e = ╱44╱D╱ // 0x18e2 @0x2e
0x18b4…18ef at002f = ╱ef╱$╱ // 0x18e3 @0x2f
0x18b4…18ef at0030 = ╱ed╱(╱ // 0x18e4 @0x30
0x18b4…18ef at0031 = ╱48╱H╱ // 0x18e5 @0x31
0x18b4…18ef at0032 = ╱e2╱+╱ // 0x18e6 @0x32
0x18b4…18ef at0033 = ╱32╱2╱ // 0x18e7 @0x33
0x18b4…18ef at0034 = ╱fe00008002╱ // 0x18e8 @0x34
0x18b4…18ef at0039 = ╱ee╱)╱ // 0x18ed @0x39
0x18b4…18ef at003a = EOL // 0x18ee @0x3a
0x18b4…18ef }
0x18ef…190d a664 2290 EXEC FEJL(9,13,K5$)
0x18ef…190d LineComalBin {
0x18ef…190d ptr = 0xa664 // 0x18ef @0x0
0x18ef…190d lno = 0x08f2 // 0x18f1 @0x2
0x18ef…190d at0004 = ╱9d╱ EXEC ╱ // 0x18f3 @0x4
0x18ef…190d at0005 = ╱46╱F╱ // 0x18f4 @0x5
0x18ef…190d at0006 = ╱45╱E╱ // 0x18f5 @0x6
0x18ef…190d at0007 = ╱4a╱J╱ // 0x18f6 @0x7
0x18ef…190d at0008 = ╱4c╱L╱ // 0x18f7 @0x8
0x18ef…190d at0009 = ╱ed╱(╱ // 0x18f8 @0x9
0x18ef…190d at000a = ╱39╱9╱ // 0x18f9 @0xa
0x18ef…190d at000b = ╱fe00009004╱ // 0x18fa @0xb
0x18ef…190d at0010 = ╱ec╱,╱ // 0x18ff @0x10
0x18ef…190d at0011 = ╱31╱1╱ // 0x1900 @0x11
0x18ef…190d at0012 = ╱33╱3╱ // 0x1901 @0x12
0x18ef…190d at0013 = ╱fe0000d004╱ // 0x1902 @0x13
0x18ef…190d at0018 = ╱ec╱,╱ // 0x1907 @0x18
0x18ef…190d at0019 = ╱4b╱K╱ // 0x1908 @0x19
0x18ef…190d at001a = ╱35╱5╱ // 0x1909 @0x1a
0x18ef…190d at001b = ╱ef╱$╱ // 0x190a @0x1b
0x18ef…190d at001c = ╱ee╱)╱ // 0x190b @0x1c
0x18ef…190d at001d = EOL // 0x190c @0x1d
0x18ef…190d }
0x190d…1914 a66b 2300 NEXT I
0x190d…1914 LineComalBin {
0x190d…1914 ptr = 0xa66b // 0x190d @0x0
0x190d…1914 lno = 0x08fc // 0x190f @0x2
0x190d…1914 at0004 = ╱84╱ NEXT ╱ // 0x1911 @0x4
0x190d…1914 at0005 = ╱49╱I╱ // 0x1912 @0x5
0x190d…1914 at0006 = EOL // 0x1913 @0x6
0x190d…1914 }
0x1914…192f a686 2310 GET K5$,14:AFIN,ADEB
0x1914…192f LineComalBin {
0x1914…192f ptr = 0xa686 // 0x1914 @0x0
0x1914…192f lno = 0x0906 // 0x1916 @0x2
0x1914…192f at0004 = ╱a9╱ GET ╱ // 0x1918 @0x4
0x1914…192f at0005 = ╱4b╱K╱ // 0x1919 @0x5
0x1914…192f at0006 = ╱35╱5╱ // 0x191a @0x6
0x1914…192f at0007 = ╱ef╱$╱ // 0x191b @0x7
0x1914…192f at0008 = ╱ec╱,╱ // 0x191c @0x8
0x1914…192f at0009 = ╱31╱1╱ // 0x191d @0x9
0x1914…192f at000a = ╱34╱4╱ // 0x191e @0xa
0x1914…192f at000b = ╱fe0000e004╱ // 0x191f @0xb
0x1914…192f at0010 = ╱f0╱:╱ // 0x1924 @0x10
0x1914…192f at0011 = ╱41╱A╱ // 0x1925 @0x11
0x1914…192f at0012 = ╱46╱F╱ // 0x1926 @0x12
0x1914…192f at0013 = ╱49╱I╱ // 0x1927 @0x13
0x1914…192f at0014 = ╱4e╱N╱ // 0x1928 @0x14
0x1914…192f at0015 = ╱ec╱,╱ // 0x1929 @0x15
0x1914…192f at0016 = ╱41╱A╱ // 0x192a @0x16
0x1914…192f at0017 = ╱44╱D╱ // 0x192b @0x17
0x1914…192f at0018 = ╱45╱E╱ // 0x192c @0x18
0x1914…192f at0019 = ╱42╱B╱ // 0x192d @0x19
0x1914…192f at001a = EOL // 0x192e @0x1a
0x1914…192f }
0x192f…194d a6a4 2320 EXEC FEJL(9,14,K5$)
0x192f…194d LineComalBin {
0x192f…194d ptr = 0xa6a4 // 0x192f @0x0
0x192f…194d lno = 0x0910 // 0x1931 @0x2
0x192f…194d at0004 = ╱9d╱ EXEC ╱ // 0x1933 @0x4
0x192f…194d at0005 = ╱46╱F╱ // 0x1934 @0x5
0x192f…194d at0006 = ╱45╱E╱ // 0x1935 @0x6
0x192f…194d at0007 = ╱4a╱J╱ // 0x1936 @0x7
0x192f…194d at0008 = ╱4c╱L╱ // 0x1937 @0x8
0x192f…194d at0009 = ╱ed╱(╱ // 0x1938 @0x9
0x192f…194d at000a = ╱39╱9╱ // 0x1939 @0xa
0x192f…194d at000b = ╱fe00009004╱ // 0x193a @0xb
0x192f…194d at0010 = ╱ec╱,╱ // 0x193f @0x10
0x192f…194d at0011 = ╱31╱1╱ // 0x1940 @0x11
0x192f…194d at0012 = ╱34╱4╱ // 0x1941 @0x12
0x192f…194d at0013 = ╱fe0000e004╱ // 0x1942 @0x13
0x192f…194d at0018 = ╱ec╱,╱ // 0x1947 @0x18
0x192f…194d at0019 = ╱4b╱K╱ // 0x1948 @0x19
0x192f…194d at001a = ╱35╱5╱ // 0x1949 @0x1a
0x192f…194d at001b = ╱ef╱$╱ // 0x194a @0x1b
0x192f…194d at001c = ╱ee╱)╱ // 0x194b @0x1c
0x192f…194d at001d = EOL // 0x194c @0x1d
0x192f…194d }
0x194d…1962 a6b9 2330 GET K5$,20:DV$
0x194d…1962 LineComalBin {
0x194d…1962 ptr = 0xa6b9 // 0x194d @0x0
0x194d…1962 lno = 0x091a // 0x194f @0x2
0x194d…1962 at0004 = ╱a9╱ GET ╱ // 0x1951 @0x4
0x194d…1962 at0005 = ╱4b╱K╱ // 0x1952 @0x5
0x194d…1962 at0006 = ╱35╱5╱ // 0x1953 @0x6
0x194d…1962 at0007 = ╱ef╱$╱ // 0x1954 @0x7
0x194d…1962 at0008 = ╱ec╱,╱ // 0x1955 @0x8
0x194d…1962 at0009 = ╱32╱2╱ // 0x1956 @0x9
0x194d…1962 at000a = ╱30╱0╱ // 0x1957 @0xa
0x194d…1962 at000b = ╱fe0000a005╱ // 0x1958 @0xb
0x194d…1962 at0010 = ╱f0╱:╱ // 0x195d @0x10
0x194d…1962 at0011 = ╱44╱D╱ // 0x195e @0x11
0x194d…1962 at0012 = ╱56╱V╱ // 0x195f @0x12
0x194d…1962 at0013 = ╱ef╱$╱ // 0x1960 @0x13
0x194d…1962 at0014 = EOL // 0x1961 @0x14
0x194d…1962 }
0x1962…1980 a6d7 2340 EXEC FEJL(9,21,K5$)
0x1962…1980 LineComalBin {
0x1962…1980 ptr = 0xa6d7 // 0x1962 @0x0
0x1962…1980 lno = 0x0924 // 0x1964 @0x2
0x1962…1980 at0004 = ╱9d╱ EXEC ╱ // 0x1966 @0x4
0x1962…1980 at0005 = ╱46╱F╱ // 0x1967 @0x5
0x1962…1980 at0006 = ╱45╱E╱ // 0x1968 @0x6
0x1962…1980 at0007 = ╱4a╱J╱ // 0x1969 @0x7
0x1962…1980 at0008 = ╱4c╱L╱ // 0x196a @0x8
0x1962…1980 at0009 = ╱ed╱(╱ // 0x196b @0x9
0x1962…1980 at000a = ╱39╱9╱ // 0x196c @0xa
0x1962…1980 at000b = ╱fe00009004╱ // 0x196d @0xb
0x1962…1980 at0010 = ╱ec╱,╱ // 0x1972 @0x10
0x1962…1980 at0011 = ╱32╱2╱ // 0x1973 @0x11
0x1962…1980 at0012 = ╱31╱1╱ // 0x1974 @0x12
0x1962…1980 at0013 = ╱fe0000a805╱ // 0x1975 @0x13
0x1962…1980 at0018 = ╱ec╱,╱ // 0x197a @0x18
0x1962…1980 at0019 = ╱4b╱K╱ // 0x197b @0x19
0x1962…1980 at001a = ╱35╱5╱ // 0x197c @0x1a
0x1962…1980 at001b = ╱ef╱$╱ // 0x197d @0x1b
0x1962…1980 at001c = ╱ee╱)╱ // 0x197e @0x1c
0x1962…1980 at001d = EOL // 0x197f @0x1d
0x1962…1980 }
0x1980…1989 a6e0 2350 CLOSE K5$
0x1980…1989 LineComalBin {
0x1980…1989 ptr = 0xa6e0 // 0x1980 @0x0
0x1980…1989 lno = 0x092e // 0x1982 @0x2
0x1980…1989 at0004 = ╱a8╱ CLOSE ╱ // 0x1984 @0x4
0x1980…1989 at0005 = ╱4b╱K╱ // 0x1985 @0x5
0x1980…1989 at0006 = ╱35╱5╱ // 0x1986 @0x6
0x1980…1989 at0007 = ╱ef╱$╱ // 0x1987 @0x7
0x1980…1989 at0008 = EOL // 0x1988 @0x8
0x1980…1989 }
0x1989…19a7 a6fe 2360 EXEC FEJL(9,22,K5$)
0x1989…19a7 LineComalBin {
0x1989…19a7 ptr = 0xa6fe // 0x1989 @0x0
0x1989…19a7 lno = 0x0938 // 0x198b @0x2
0x1989…19a7 at0004 = ╱9d╱ EXEC ╱ // 0x198d @0x4
0x1989…19a7 at0005 = ╱46╱F╱ // 0x198e @0x5
0x1989…19a7 at0006 = ╱45╱E╱ // 0x198f @0x6
0x1989…19a7 at0007 = ╱4a╱J╱ // 0x1990 @0x7
0x1989…19a7 at0008 = ╱4c╱L╱ // 0x1991 @0x8
0x1989…19a7 at0009 = ╱ed╱(╱ // 0x1992 @0x9
0x1989…19a7 at000a = ╱39╱9╱ // 0x1993 @0xa
0x1989…19a7 at000b = ╱fe00009004╱ // 0x1994 @0xb
0x1989…19a7 at0010 = ╱ec╱,╱ // 0x1999 @0x10
0x1989…19a7 at0011 = ╱32╱2╱ // 0x199a @0x11
0x1989…19a7 at0012 = ╱32╱2╱ // 0x199b @0x12
0x1989…19a7 at0013 = ╱fe0000b005╱ // 0x199c @0x13
0x1989…19a7 at0018 = ╱ec╱,╱ // 0x19a1 @0x18
0x1989…19a7 at0019 = ╱4b╱K╱ // 0x19a2 @0x19
0x1989…19a7 at001a = ╱35╱5╱ // 0x19a3 @0x1a
0x1989…19a7 at001b = ╱ef╱$╱ // 0x19a4 @0x1b
0x1989…19a7 at001c = ╱ee╱)╱ // 0x19a5 @0x1c
0x1989…19a7 at001d = EOL // 0x19a6 @0x1d
0x1989…19a7 }
0x19a7…19ce a725 2370 DIM DTAB(MDANTAL,2),KARRAY(MKGR)
0x19a7…19ce LineComalBin {
0x19a7…19ce ptr = 0xa725 // 0x19a7 @0x0
0x19a7…19ce lno = 0x0942 // 0x19a9 @0x2
0x19a7…19ce at0004 = ╱87╱ DIM ╱ // 0x19ab @0x4
0x19a7…19ce at0005 = ╱44╱D╱ // 0x19ac @0x5
0x19a7…19ce at0006 = ╱54╱T╱ // 0x19ad @0x6
0x19a7…19ce at0007 = ╱41╱A╱ // 0x19ae @0x7
0x19a7…19ce at0008 = ╱42╱B╱ // 0x19af @0x8
0x19a7…19ce at0009 = ╱ed╱(╱ // 0x19b0 @0x9
0x19a7…19ce at000a = ╱4d╱M╱ // 0x19b1 @0xa
0x19a7…19ce at000b = ╱44╱D╱ // 0x19b2 @0xb
0x19a7…19ce at000c = ╱41╱A╱ // 0x19b3 @0xc
0x19a7…19ce at000d = ╱4e╱N╱ // 0x19b4 @0xd
0x19a7…19ce at000e = ╱54╱T╱ // 0x19b5 @0xe
0x19a7…19ce at000f = ╱41╱A╱ // 0x19b6 @0xf
0x19a7…19ce at0010 = ╱4c╱L╱ // 0x19b7 @0x10
0x19a7…19ce at0011 = ╱ec╱,╱ // 0x19b8 @0x11
0x19a7…19ce at0012 = ╱32╱2╱ // 0x19b9 @0x12
0x19a7…19ce at0013 = ╱fe00008002╱ // 0x19ba @0x13
0x19a7…19ce at0018 = ╱ee╱)╱ // 0x19bf @0x18
0x19a7…19ce at0019 = ╱ec╱,╱ // 0x19c0 @0x19
0x19a7…19ce at001a = ╱4b╱K╱ // 0x19c1 @0x1a
0x19a7…19ce at001b = ╱41╱A╱ // 0x19c2 @0x1b
0x19a7…19ce at001c = ╱52╱R╱ // 0x19c3 @0x1c
0x19a7…19ce at001d = ╱52╱R╱ // 0x19c4 @0x1d
0x19a7…19ce at001e = ╱41╱A╱ // 0x19c5 @0x1e
0x19a7…19ce at001f = ╱59╱Y╱ // 0x19c6 @0x1f
0x19a7…19ce at0020 = ╱ed╱(╱ // 0x19c7 @0x20
0x19a7…19ce at0021 = ╱4d╱M╱ // 0x19c8 @0x21
0x19a7…19ce at0022 = ╱4b╱K╱ // 0x19c9 @0x22
0x19a7…19ce at0023 = ╱47╱G╱ // 0x19ca @0x23
0x19a7…19ce at0024 = ╱52╱R╱ // 0x19cb @0x24
0x19a7…19ce at0025 = ╱ee╱)╱ // 0x19cc @0x25
0x19a7…19ce at0026 = EOL // 0x19cd @0x26
0x19a7…19ce }
0x19ce…19d9 a730 2380 OPEN K4$,R
0x19ce…19d9 LineComalBin {
0x19ce…19d9 ptr = 0xa730 // 0x19ce @0x0
0x19ce…19d9 lno = 0x094c // 0x19d0 @0x2
0x19ce…19d9 at0004 = ╱a7╱ OPEN ╱ // 0x19d2 @0x4
0x19ce…19d9 at0005 = ╱4b╱K╱ // 0x19d3 @0x5
0x19ce…19d9 at0006 = ╱34╱4╱ // 0x19d4 @0x6
0x19ce…19d9 at0007 = ╱ef╱$╱ // 0x19d5 @0x7
0x19ce…19d9 at0008 = ╱ec╱,╱ // 0x19d6 @0x8
0x19ce…19d9 at0009 = ╱52╱R╱ // 0x19d7 @0x9
0x19ce…19d9 at000a = EOL // 0x19d8 @0xa
0x19ce…19d9 }
0x19d9…19f7 a74e 2390 EXEC FEJL(9,15,K4$)
0x19d9…19f7 LineComalBin {
0x19d9…19f7 ptr = 0xa74e // 0x19d9 @0x0
0x19d9…19f7 lno = 0x0956 // 0x19db @0x2
0x19d9…19f7 at0004 = ╱9d╱ EXEC ╱ // 0x19dd @0x4
0x19d9…19f7 at0005 = ╱46╱F╱ // 0x19de @0x5
0x19d9…19f7 at0006 = ╱45╱E╱ // 0x19df @0x6
0x19d9…19f7 at0007 = ╱4a╱J╱ // 0x19e0 @0x7
0x19d9…19f7 at0008 = ╱4c╱L╱ // 0x19e1 @0x8
0x19d9…19f7 at0009 = ╱ed╱(╱ // 0x19e2 @0x9
0x19d9…19f7 at000a = ╱39╱9╱ // 0x19e3 @0xa
0x19d9…19f7 at000b = ╱fe00009004╱ // 0x19e4 @0xb
0x19d9…19f7 at0010 = ╱ec╱,╱ // 0x19e9 @0x10
0x19d9…19f7 at0011 = ╱31╱1╱ // 0x19ea @0x11
0x19d9…19f7 at0012 = ╱35╱5╱ // 0x19eb @0x12
0x19d9…19f7 at0013 = ╱fe0000f004╱ // 0x19ec @0x13
0x19d9…19f7 at0018 = ╱ec╱,╱ // 0x19f1 @0x18
0x19d9…19f7 at0019 = ╱4b╱K╱ // 0x19f2 @0x19
0x19d9…19f7 at001a = ╱34╱4╱ // 0x19f3 @0x1a
0x19d9…19f7 at001b = ╱ef╱$╱ // 0x19f4 @0x1b
0x19d9…19f7 at001c = ╱ee╱)╱ // 0x19f5 @0x1c
0x19d9…19f7 at001d = EOL // 0x19f6 @0x1d
0x19d9…19f7 }
0x19f7…1a11 a768 2400 FOR I=1 TO MKGR DIV 5
0x19f7…1a11 LineComalBin {
0x19f7…1a11 ptr = 0xa768 // 0x19f7 @0x0
0x19f7…1a11 lno = 0x0960 // 0x19f9 @0x2
0x19f7…1a11 at0004 = ╱83╱ FOR ╱ // 0x19fb @0x4
0x19f7…1a11 at0005 = ╱49╱I╱ // 0x19fc @0x5
0x19f7…1a11 at0006 = ╱dc╱=╱ // 0x19fd @0x6
0x19f7…1a11 at0007 = ╱31╱1╱ // 0x19fe @0x7
0x19f7…1a11 at0008 = ╱fe00008001╱ // 0x19ff @0x8
0x19f7…1a11 at000d = ╱b7╱ TO ╱ // 0x1a04 @0xd
0x19f7…1a11 at000e = ╱4d╱M╱ // 0x1a05 @0xe
0x19f7…1a11 at000f = ╱4b╱K╱ // 0x1a06 @0xf
0x19f7…1a11 at0010 = ╱47╱G╱ // 0x1a07 @0x10
0x19f7…1a11 at0011 = ╱52╱R╱ // 0x1a08 @0x11
0x19f7…1a11 at0012 = ╱e7╱ DIV ╱ // 0x1a09 @0x12
0x19f7…1a11 at0013 = ╱35╱5╱ // 0x1a0a @0x13
0x19f7…1a11 at0014 = ╱fe0000a003╱ // 0x1a0b @0x14
0x19f7…1a11 at0019 = EOL // 0x1a10 @0x19
0x19f7…1a11 }
0x1a11…1a30 a787 2410 J=(I-1)*5+1
0x1a11…1a30 LineComalBin {
0x1a11…1a30 ptr = 0xa787 // 0x1a11 @0x0
0x1a11…1a30 lno = 0x096a // 0x1a13 @0x2
0x1a11…1a30 at0004 = ╱4a╱J╱ // 0x1a15 @0x4
0x1a11…1a30 at0005 = ╱dc╱=╱ // 0x1a16 @0x5
0x1a11…1a30 at0006 = ╱ed╱(╱ // 0x1a17 @0x6
0x1a11…1a30 at0007 = ╱49╱I╱ // 0x1a18 @0x7
0x1a11…1a30 at0008 = ╱e3╱-╱ // 0x1a19 @0x8
0x1a11…1a30 at0009 = ╱31╱1╱ // 0x1a1a @0x9
0x1a11…1a30 at000a = ╱fe00008001╱ // 0x1a1b @0xa
0x1a11…1a30 at000f = ╱ee╱)╱ // 0x1a20 @0xf
0x1a11…1a30 at0010 = ╱e4╱*╱ // 0x1a21 @0x10
0x1a11…1a30 at0011 = ╱35╱5╱ // 0x1a22 @0x11
0x1a11…1a30 at0012 = ╱fe0000a003╱ // 0x1a23 @0x12
0x1a11…1a30 at0017 = ╱e2╱+╱ // 0x1a28 @0x17
0x1a11…1a30 at0018 = ╱31╱1╱ // 0x1a29 @0x18
0x1a11…1a30 at0019 = ╱fe00008001╱ // 0x1a2a @0x19
0x1a11…1a30 at001e = EOL // 0x1a2f @0x1e
0x1a11…1a30 }
0x1a30…1a89 a7e0 2420 GET K4$,I:KARRAY(J),KARRAY(J+1),KARRAY(J+2),KARRAY(J+3),KARRAY(J+4)
0x1a30…1a89 LineComalBin {
0x1a30…1a89 ptr = 0xa7e0 // 0x1a30 @0x0
0x1a30…1a89 lno = 0x0974 // 0x1a32 @0x2
0x1a30…1a89 at0004 = ╱a9╱ GET ╱ // 0x1a34 @0x4
0x1a30…1a89 at0005 = ╱4b╱K╱ // 0x1a35 @0x5
0x1a30…1a89 at0006 = ╱34╱4╱ // 0x1a36 @0x6
0x1a30…1a89 at0007 = ╱ef╱$╱ // 0x1a37 @0x7
0x1a30…1a89 at0008 = ╱ec╱,╱ // 0x1a38 @0x8
0x1a30…1a89 at0009 = ╱49╱I╱ // 0x1a39 @0x9
0x1a30…1a89 at000a = ╱f0╱:╱ // 0x1a3a @0xa
0x1a30…1a89 at000b = ╱4b╱K╱ // 0x1a3b @0xb
0x1a30…1a89 at000c = ╱41╱A╱ // 0x1a3c @0xc
0x1a30…1a89 at000d = ╱52╱R╱ // 0x1a3d @0xd
0x1a30…1a89 at000e = ╱52╱R╱ // 0x1a3e @0xe
0x1a30…1a89 at000f = ╱41╱A╱ // 0x1a3f @0xf
0x1a30…1a89 at0010 = ╱59╱Y╱ // 0x1a40 @0x10
0x1a30…1a89 at0011 = ╱ed╱(╱ // 0x1a41 @0x11
0x1a30…1a89 at0012 = ╱4a╱J╱ // 0x1a42 @0x12
0x1a30…1a89 at0013 = ╱ee╱)╱ // 0x1a43 @0x13
0x1a30…1a89 at0014 = ╱ec╱,╱ // 0x1a44 @0x14
0x1a30…1a89 at0015 = ╱4b╱K╱ // 0x1a45 @0x15
0x1a30…1a89 at0016 = ╱41╱A╱ // 0x1a46 @0x16
0x1a30…1a89 at0017 = ╱52╱R╱ // 0x1a47 @0x17
0x1a30…1a89 at0018 = ╱52╱R╱ // 0x1a48 @0x18
0x1a30…1a89 at0019 = ╱41╱A╱ // 0x1a49 @0x19
0x1a30…1a89 at001a = ╱59╱Y╱ // 0x1a4a @0x1a
0x1a30…1a89 at001b = ╱ed╱(╱ // 0x1a4b @0x1b
0x1a30…1a89 at001c = ╱4a╱J╱ // 0x1a4c @0x1c
0x1a30…1a89 at001d = ╱e2╱+╱ // 0x1a4d @0x1d
0x1a30…1a89 at001e = ╱31╱1╱ // 0x1a4e @0x1e
0x1a30…1a89 at001f = ╱fe00008001╱ // 0x1a4f @0x1f
0x1a30…1a89 at0024 = ╱ee╱)╱ // 0x1a54 @0x24
0x1a30…1a89 at0025 = ╱ec╱,╱ // 0x1a55 @0x25
0x1a30…1a89 at0026 = ╱4b╱K╱ // 0x1a56 @0x26
0x1a30…1a89 at0027 = ╱41╱A╱ // 0x1a57 @0x27
0x1a30…1a89 at0028 = ╱52╱R╱ // 0x1a58 @0x28
0x1a30…1a89 at0029 = ╱52╱R╱ // 0x1a59 @0x29
0x1a30…1a89 at002a = ╱41╱A╱ // 0x1a5a @0x2a
0x1a30…1a89 at002b = ╱59╱Y╱ // 0x1a5b @0x2b
0x1a30…1a89 at002c = ╱ed╱(╱ // 0x1a5c @0x2c
0x1a30…1a89 at002d = ╱4a╱J╱ // 0x1a5d @0x2d
0x1a30…1a89 at002e = ╱e2╱+╱ // 0x1a5e @0x2e
0x1a30…1a89 at002f = ╱32╱2╱ // 0x1a5f @0x2f
0x1a30…1a89 at0030 = ╱fe00008002╱ // 0x1a60 @0x30
0x1a30…1a89 at0035 = ╱ee╱)╱ // 0x1a65 @0x35
0x1a30…1a89 at0036 = ╱ec╱,╱ // 0x1a66 @0x36
0x1a30…1a89 at0037 = ╱4b╱K╱ // 0x1a67 @0x37
0x1a30…1a89 at0038 = ╱41╱A╱ // 0x1a68 @0x38
0x1a30…1a89 at0039 = ╱52╱R╱ // 0x1a69 @0x39
0x1a30…1a89 at003a = ╱52╱R╱ // 0x1a6a @0x3a
0x1a30…1a89 at003b = ╱41╱A╱ // 0x1a6b @0x3b
0x1a30…1a89 at003c = ╱59╱Y╱ // 0x1a6c @0x3c
0x1a30…1a89 at003d = ╱ed╱(╱ // 0x1a6d @0x3d
0x1a30…1a89 at003e = ╱4a╱J╱ // 0x1a6e @0x3e
0x1a30…1a89 at003f = ╱e2╱+╱ // 0x1a6f @0x3f
0x1a30…1a89 at0040 = ╱33╱3╱ // 0x1a70 @0x40
0x1a30…1a89 at0041 = ╱fe0000c002╱ // 0x1a71 @0x41
0x1a30…1a89 at0046 = ╱ee╱)╱ // 0x1a76 @0x46
0x1a30…1a89 at0047 = ╱ec╱,╱ // 0x1a77 @0x47
0x1a30…1a89 at0048 = ╱4b╱K╱ // 0x1a78 @0x48
0x1a30…1a89 at0049 = ╱41╱A╱ // 0x1a79 @0x49
0x1a30…1a89 at004a = ╱52╱R╱ // 0x1a7a @0x4a
0x1a30…1a89 at004b = ╱52╱R╱ // 0x1a7b @0x4b
0x1a30…1a89 at004c = ╱41╱A╱ // 0x1a7c @0x4c
0x1a30…1a89 at004d = ╱59╱Y╱ // 0x1a7d @0x4d
0x1a30…1a89 at004e = ╱ed╱(╱ // 0x1a7e @0x4e
0x1a30…1a89 at004f = ╱4a╱J╱ // 0x1a7f @0x4f
0x1a30…1a89 at0050 = ╱e2╱+╱ // 0x1a80 @0x50
0x1a30…1a89 at0051 = ╱34╱4╱ // 0x1a81 @0x51
0x1a30…1a89 at0052 = ╱fe00008003╱ // 0x1a82 @0x52
0x1a30…1a89 at0057 = ╱ee╱)╱ // 0x1a87 @0x57
0x1a30…1a89 at0058 = EOL // 0x1a88 @0x58
0x1a30…1a89 }
0x1a89…1aa7 a7fe 2430 EXEC FEJL(9,16,K4$)
0x1a89…1aa7 LineComalBin {
0x1a89…1aa7 ptr = 0xa7fe // 0x1a89 @0x0
0x1a89…1aa7 lno = 0x097e // 0x1a8b @0x2
0x1a89…1aa7 at0004 = ╱9d╱ EXEC ╱ // 0x1a8d @0x4
0x1a89…1aa7 at0005 = ╱46╱F╱ // 0x1a8e @0x5
0x1a89…1aa7 at0006 = ╱45╱E╱ // 0x1a8f @0x6
0x1a89…1aa7 at0007 = ╱4a╱J╱ // 0x1a90 @0x7
0x1a89…1aa7 at0008 = ╱4c╱L╱ // 0x1a91 @0x8
0x1a89…1aa7 at0009 = ╱ed╱(╱ // 0x1a92 @0x9
0x1a89…1aa7 at000a = ╱39╱9╱ // 0x1a93 @0xa
0x1a89…1aa7 at000b = ╱fe00009004╱ // 0x1a94 @0xb
0x1a89…1aa7 at0010 = ╱ec╱,╱ // 0x1a99 @0x10
0x1a89…1aa7 at0011 = ╱31╱1╱ // 0x1a9a @0x11
0x1a89…1aa7 at0012 = ╱36╱6╱ // 0x1a9b @0x12
0x1a89…1aa7 at0013 = ╱fe00008005╱ // 0x1a9c @0x13
0x1a89…1aa7 at0018 = ╱ec╱,╱ // 0x1aa1 @0x18
0x1a89…1aa7 at0019 = ╱4b╱K╱ // 0x1aa2 @0x19
0x1a89…1aa7 at001a = ╱34╱4╱ // 0x1aa3 @0x1a
0x1a89…1aa7 at001b = ╱ef╱$╱ // 0x1aa4 @0x1b
0x1a89…1aa7 at001c = ╱ee╱)╱ // 0x1aa5 @0x1c
0x1a89…1aa7 at001d = EOL // 0x1aa6 @0x1d
0x1a89…1aa7 }
0x1aa7…1aae a805 2440 NEXT I
0x1aa7…1aae LineComalBin {
0x1aa7…1aae ptr = 0xa805 // 0x1aa7 @0x0
0x1aa7…1aae lno = 0x0988 // 0x1aa9 @0x2
0x1aa7…1aae at0004 = ╱84╱ NEXT ╱ // 0x1aab @0x4
0x1aa7…1aae at0005 = ╱49╱I╱ // 0x1aac @0x5
0x1aa7…1aae at0006 = EOL // 0x1aad @0x6
0x1aa7…1aae }
0x1aae…1ab7 a80e 2450 CLOSE K4$
0x1aae…1ab7 LineComalBin {
0x1aae…1ab7 ptr = 0xa80e // 0x1aae @0x0
0x1aae…1ab7 lno = 0x0992 // 0x1ab0 @0x2
0x1aae…1ab7 at0004 = ╱a8╱ CLOSE ╱ // 0x1ab2 @0x4
0x1aae…1ab7 at0005 = ╱4b╱K╱ // 0x1ab3 @0x5
0x1aae…1ab7 at0006 = ╱34╱4╱ // 0x1ab4 @0x6
0x1aae…1ab7 at0007 = ╱ef╱$╱ // 0x1ab5 @0x7
0x1aae…1ab7 at0008 = EOL // 0x1ab6 @0x8
0x1aae…1ab7 }
0x1ab7…1ad5 a82c 2460 EXEC FEJL(9,12,K4$)
0x1ab7…1ad5 LineComalBin {
0x1ab7…1ad5 ptr = 0xa82c // 0x1ab7 @0x0
0x1ab7…1ad5 lno = 0x099c // 0x1ab9 @0x2
0x1ab7…1ad5 at0004 = ╱9d╱ EXEC ╱ // 0x1abb @0x4
0x1ab7…1ad5 at0005 = ╱46╱F╱ // 0x1abc @0x5
0x1ab7…1ad5 at0006 = ╱45╱E╱ // 0x1abd @0x6
0x1ab7…1ad5 at0007 = ╱4a╱J╱ // 0x1abe @0x7
0x1ab7…1ad5 at0008 = ╱4c╱L╱ // 0x1abf @0x8
0x1ab7…1ad5 at0009 = ╱ed╱(╱ // 0x1ac0 @0x9
0x1ab7…1ad5 at000a = ╱39╱9╱ // 0x1ac1 @0xa
0x1ab7…1ad5 at000b = ╱fe00009004╱ // 0x1ac2 @0xb
0x1ab7…1ad5 at0010 = ╱ec╱,╱ // 0x1ac7 @0x10
0x1ab7…1ad5 at0011 = ╱31╱1╱ // 0x1ac8 @0x11
0x1ab7…1ad5 at0012 = ╱32╱2╱ // 0x1ac9 @0x12
0x1ab7…1ad5 at0013 = ╱fe0000c004╱ // 0x1aca @0x13
0x1ab7…1ad5 at0018 = ╱ec╱,╱ // 0x1acf @0x18
0x1ab7…1ad5 at0019 = ╱4b╱K╱ // 0x1ad0 @0x19
0x1ab7…1ad5 at001a = ╱34╱4╱ // 0x1ad1 @0x1a
0x1ab7…1ad5 at001b = ╱ef╱$╱ // 0x1ad2 @0x1b
0x1ab7…1ad5 at001c = ╱ee╱)╱ // 0x1ad3 @0x1c
0x1ab7…1ad5 at001d = EOL // 0x1ad4 @0x1d
0x1ab7…1ad5 }
0x1ad5…1ae0 a837 2470 OPEN K2$,R
0x1ad5…1ae0 LineComalBin {
0x1ad5…1ae0 ptr = 0xa837 // 0x1ad5 @0x0
0x1ad5…1ae0 lno = 0x09a6 // 0x1ad7 @0x2
0x1ad5…1ae0 at0004 = ╱a7╱ OPEN ╱ // 0x1ad9 @0x4
0x1ad5…1ae0 at0005 = ╱4b╱K╱ // 0x1ada @0x5
0x1ad5…1ae0 at0006 = ╱32╱2╱ // 0x1adb @0x6
0x1ad5…1ae0 at0007 = ╱ef╱$╱ // 0x1adc @0x7
0x1ad5…1ae0 at0008 = ╱ec╱,╱ // 0x1add @0x8
0x1ad5…1ae0 at0009 = ╱52╱R╱ // 0x1ade @0x9
0x1ad5…1ae0 at000a = EOL // 0x1adf @0xa
0x1ad5…1ae0 }
0x1ae0…1afe a855 2480 EXEC FEJL(9,18,K2$)
0x1ae0…1afe LineComalBin {
0x1ae0…1afe ptr = 0xa855 // 0x1ae0 @0x0
0x1ae0…1afe lno = 0x09b0 // 0x1ae2 @0x2
0x1ae0…1afe at0004 = ╱9d╱ EXEC ╱ // 0x1ae4 @0x4
0x1ae0…1afe at0005 = ╱46╱F╱ // 0x1ae5 @0x5
0x1ae0…1afe at0006 = ╱45╱E╱ // 0x1ae6 @0x6
0x1ae0…1afe at0007 = ╱4a╱J╱ // 0x1ae7 @0x7
0x1ae0…1afe at0008 = ╱4c╱L╱ // 0x1ae8 @0x8
0x1ae0…1afe at0009 = ╱ed╱(╱ // 0x1ae9 @0x9
0x1ae0…1afe at000a = ╱39╱9╱ // 0x1aea @0xa
0x1ae0…1afe at000b = ╱fe00009004╱ // 0x1aeb @0xb
0x1ae0…1afe at0010 = ╱ec╱,╱ // 0x1af0 @0x10
0x1ae0…1afe at0011 = ╱31╱1╱ // 0x1af1 @0x11
0x1ae0…1afe at0012 = ╱38╱8╱ // 0x1af2 @0x12
0x1ae0…1afe at0013 = ╱fe00009005╱ // 0x1af3 @0x13
0x1ae0…1afe at0018 = ╱ec╱,╱ // 0x1af8 @0x18
0x1ae0…1afe at0019 = ╱4b╱K╱ // 0x1af9 @0x19
0x1ae0…1afe at001a = ╱32╱2╱ // 0x1afa @0x1a
0x1ae0…1afe at001b = ╱ef╱$╱ // 0x1afb @0x1b
0x1ae0…1afe at001c = ╱ee╱)╱ // 0x1afc @0x1c
0x1ae0…1afe at001d = EOL // 0x1afd @0x1d
0x1ae0…1afe }
0x1afe…1b09 a860 2490 OPEN K3$,R
0x1afe…1b09 LineComalBin {
0x1afe…1b09 ptr = 0xa860 // 0x1afe @0x0
0x1afe…1b09 lno = 0x09ba // 0x1b00 @0x2
0x1afe…1b09 at0004 = ╱a7╱ OPEN ╱ // 0x1b02 @0x4
0x1afe…1b09 at0005 = ╱4b╱K╱ // 0x1b03 @0x5
0x1afe…1b09 at0006 = ╱33╱3╱ // 0x1b04 @0x6
0x1afe…1b09 at0007 = ╱ef╱$╱ // 0x1b05 @0x7
0x1afe…1b09 at0008 = ╱ec╱,╱ // 0x1b06 @0x8
0x1afe…1b09 at0009 = ╱52╱R╱ // 0x1b07 @0x9
0x1afe…1b09 at000a = EOL // 0x1b08 @0xa
0x1afe…1b09 }
0x1b09…1b27 a87e 2500 EXEC FEJL(9,19,K3$)
0x1b09…1b27 LineComalBin {
0x1b09…1b27 ptr = 0xa87e // 0x1b09 @0x0
0x1b09…1b27 lno = 0x09c4 // 0x1b0b @0x2
0x1b09…1b27 at0004 = ╱9d╱ EXEC ╱ // 0x1b0d @0x4
0x1b09…1b27 at0005 = ╱46╱F╱ // 0x1b0e @0x5
0x1b09…1b27 at0006 = ╱45╱E╱ // 0x1b0f @0x6
0x1b09…1b27 at0007 = ╱4a╱J╱ // 0x1b10 @0x7
0x1b09…1b27 at0008 = ╱4c╱L╱ // 0x1b11 @0x8
0x1b09…1b27 at0009 = ╱ed╱(╱ // 0x1b12 @0x9
0x1b09…1b27 at000a = ╱39╱9╱ // 0x1b13 @0xa
0x1b09…1b27 at000b = ╱fe00009004╱ // 0x1b14 @0xb
0x1b09…1b27 at0010 = ╱ec╱,╱ // 0x1b19 @0x10
0x1b09…1b27 at0011 = ╱31╱1╱ // 0x1b1a @0x11
0x1b09…1b27 at0012 = ╱39╱9╱ // 0x1b1b @0x12
0x1b09…1b27 at0013 = ╱fe00009805╱ // 0x1b1c @0x13
0x1b09…1b27 at0018 = ╱ec╱,╱ // 0x1b21 @0x18
0x1b09…1b27 at0019 = ╱4b╱K╱ // 0x1b22 @0x19
0x1b09…1b27 at001a = ╱33╱3╱ // 0x1b23 @0x1a
0x1b09…1b27 at001b = ╱ef╱$╱ // 0x1b24 @0x1b
0x1b09…1b27 at001c = ╱ee╱)╱ // 0x1b25 @0x1c
0x1b09…1b27 at001d = EOL // 0x1b26 @0x1d
0x1b09…1b27 }
0x1b27…1b45 a89c 2510 EXEC INDTAB(DTAB,MDANTAL,K2$)
0x1b27…1b45 LineComalBin {
0x1b27…1b45 ptr = 0xa89c // 0x1b27 @0x0
0x1b27…1b45 lno = 0x09ce // 0x1b29 @0x2
0x1b27…1b45 at0004 = ╱9d╱ EXEC ╱ // 0x1b2b @0x4
0x1b27…1b45 at0005 = ╱49╱I╱ // 0x1b2c @0x5
0x1b27…1b45 at0006 = ╱4e╱N╱ // 0x1b2d @0x6
0x1b27…1b45 at0007 = ╱44╱D╱ // 0x1b2e @0x7
0x1b27…1b45 at0008 = ╱54╱T╱ // 0x1b2f @0x8
0x1b27…1b45 at0009 = ╱41╱A╱ // 0x1b30 @0x9
0x1b27…1b45 at000a = ╱42╱B╱ // 0x1b31 @0xa
0x1b27…1b45 at000b = ╱ed╱(╱ // 0x1b32 @0xb
0x1b27…1b45 at000c = ╱44╱D╱ // 0x1b33 @0xc
0x1b27…1b45 at000d = ╱54╱T╱ // 0x1b34 @0xd
0x1b27…1b45 at000e = ╱41╱A╱ // 0x1b35 @0xe
0x1b27…1b45 at000f = ╱42╱B╱ // 0x1b36 @0xf
0x1b27…1b45 at0010 = ╱ec╱,╱ // 0x1b37 @0x10
0x1b27…1b45 at0011 = ╱4d╱M╱ // 0x1b38 @0x11
0x1b27…1b45 at0012 = ╱44╱D╱ // 0x1b39 @0x12
0x1b27…1b45 at0013 = ╱41╱A╱ // 0x1b3a @0x13
0x1b27…1b45 at0014 = ╱4e╱N╱ // 0x1b3b @0x14
0x1b27…1b45 at0015 = ╱54╱T╱ // 0x1b3c @0x15
0x1b27…1b45 at0016 = ╱41╱A╱ // 0x1b3d @0x16
0x1b27…1b45 at0017 = ╱4c╱L╱ // 0x1b3e @0x17
0x1b27…1b45 at0018 = ╱ec╱,╱ // 0x1b3f @0x18
0x1b27…1b45 at0019 = ╱4b╱K╱ // 0x1b40 @0x19
0x1b27…1b45 at001a = ╱32╱2╱ // 0x1b41 @0x1a
0x1b27…1b45 at001b = ╱ef╱$╱ // 0x1b42 @0x1b
0x1b27…1b45 at001c = ╱ee╱)╱ // 0x1b43 @0x1c
0x1b27…1b45 at001d = EOL // 0x1b44 @0x1d
0x1b27…1b45 }
0x1b45…1b57 a8ae 2520 DA=T1(7)
0x1b45…1b57 LineComalBin {
0x1b45…1b57 ptr = 0xa8ae // 0x1b45 @0x0
0x1b45…1b57 lno = 0x09d8 // 0x1b47 @0x2
0x1b45…1b57 at0004 = ╱44╱D╱ // 0x1b49 @0x4
0x1b45…1b57 at0005 = ╱41╱A╱ // 0x1b4a @0x5
0x1b45…1b57 at0006 = ╱dc╱=╱ // 0x1b4b @0x6
0x1b45…1b57 at0007 = ╱54╱T╱ // 0x1b4c @0x7
0x1b45…1b57 at0008 = ╱31╱1╱ // 0x1b4d @0x8
0x1b45…1b57 at0009 = ╱ed╱(╱ // 0x1b4e @0x9
0x1b45…1b57 at000a = ╱37╱7╱ // 0x1b4f @0xa
0x1b45…1b57 at000b = ╱fe0000e003╱ // 0x1b50 @0xb
0x1b45…1b57 at0010 = ╱ee╱)╱ // 0x1b55 @0x10
0x1b45…1b57 at0011 = EOL // 0x1b56 @0x11
0x1b45…1b57 }
0x1b57…1b6b a8c2 2530 DAT$=" "
0x1b57…1b6b LineComalBin {
0x1b57…1b6b ptr = 0xa8c2 // 0x1b57 @0x0
0x1b57…1b6b lno = 0x09e2 // 0x1b59 @0x2
0x1b57…1b6b at0004 = ╱44╱D╱ // 0x1b5b @0x4
0x1b57…1b6b at0005 = ╱41╱A╱ // 0x1b5c @0x5
0x1b57…1b6b at0006 = ╱54╱T╱ // 0x1b5d @0x6
0x1b57…1b6b at0007 = ╱ef╱$╱ // 0x1b5e @0x7
0x1b57…1b6b at0008 = ╱dc╱=╱ // 0x1b5f @0x8
0x1b57…1b6b at0009 = ╱22╱"╱ // 0x1b60 @0x9
0x1b57…1b6b at000a = ╱20╱…╱ // 0x1b61 @0xa
0x1b57…1b6b at000b = ╱20╱…╱ // 0x1b62 @0xb
0x1b57…1b6b at000c = ╱20╱…╱ // 0x1b63 @0xc
0x1b57…1b6b at000d = ╱20╱…╱ // 0x1b64 @0xd
0x1b57…1b6b at000e = ╱20╱…╱ // 0x1b65 @0xe
0x1b57…1b6b at000f = ╱20╱…╱ // 0x1b66 @0xf
0x1b57…1b6b at0010 = ╱20╱…╱ // 0x1b67 @0x10
0x1b57…1b6b at0011 = ╱20╱…╱ // 0x1b68 @0x11
0x1b57…1b6b at0012 = ╱22╱"╱ // 0x1b69 @0x12
0x1b57…1b6b at0013 = EOL // 0x1b6a @0x13
0x1b57…1b6b }
0x1b6b…1b88 a8df 2540 FOR J=8 TO 1 STEP -1
0x1b6b…1b88 LineComalBin {
0x1b6b…1b88 ptr = 0xa8df // 0x1b6b @0x0
0x1b6b…1b88 lno = 0x09ec // 0x1b6d @0x2
0x1b6b…1b88 at0004 = ╱83╱ FOR ╱ // 0x1b6f @0x4
0x1b6b…1b88 at0005 = ╱4a╱J╱ // 0x1b70 @0x5
0x1b6b…1b88 at0006 = ╱dc╱=╱ // 0x1b71 @0x6
0x1b6b…1b88 at0007 = ╱38╱8╱ // 0x1b72 @0x7
0x1b6b…1b88 at0008 = ╱fe00008004╱ // 0x1b73 @0x8
0x1b6b…1b88 at000d = ╱b7╱ TO ╱ // 0x1b78 @0xd
0x1b6b…1b88 at000e = ╱31╱1╱ // 0x1b79 @0xe
0x1b6b…1b88 at000f = ╱fe00008001╱ // 0x1b7a @0xf
0x1b6b…1b88 at0014 = ╱b8╱ STEP ╱ // 0x1b7f @0x14
0x1b6b…1b88 at0015 = ╱e9╱-╱ // 0x1b80 @0x15
0x1b6b…1b88 at0016 = ╱31╱1╱ // 0x1b81 @0x16
0x1b6b…1b88 at0017 = ╱fe00008001╱ // 0x1b82 @0x17
0x1b6b…1b88 at001c = EOL // 0x1b87 @0x1c
0x1b6b…1b88 }
0x1b88…1b9e a8f5 2550 IF J MOD 3=0 THEN
0x1b88…1b9e LineComalBin {
0x1b88…1b9e ptr = 0xa8f5 // 0x1b88 @0x0
0x1b88…1b9e lno = 0x09f6 // 0x1b8a @0x2
0x1b88…1b9e at0004 = ╱9c╱ IF ╱ // 0x1b8c @0x4
0x1b88…1b9e at0005 = ╱4a╱J╱ // 0x1b8d @0x5
0x1b88…1b9e at0006 = ╱e8╱ MOD ╱ // 0x1b8e @0x6
0x1b88…1b9e at0007 = ╱33╱3╱ // 0x1b8f @0x7
0x1b88…1b9e at0008 = ╱fe0000c002╱ // 0x1b90 @0x8
0x1b88…1b9e at000d = ╱dc╱=╱ // 0x1b95 @0xd
0x1b88…1b9e at000e = ╱30╱0╱ // 0x1b96 @0xe
0x1b88…1b9e at000f = ╱fe00000000╱ // 0x1b97 @0xf
0x1b88…1b9e at0014 = ╱b6╱ THEN ╱ // 0x1b9c @0x14
0x1b88…1b9e at0015 = EOL // 0x1b9d @0x15
0x1b88…1b9e }
0x1b9e…1bae a905 2560 DAT$(J)="."
0x1b9e…1bae LineComalBin {
0x1b9e…1bae ptr = 0xa905 // 0x1b9e @0x0
0x1b9e…1bae lno = 0x0a00 // 0x1ba0 @0x2
0x1b9e…1bae at0004 = ╱44╱D╱ // 0x1ba2 @0x4
0x1b9e…1bae at0005 = ╱41╱A╱ // 0x1ba3 @0x5
0x1b9e…1bae at0006 = ╱54╱T╱ // 0x1ba4 @0x6
0x1b9e…1bae at0007 = ╱ef╱$╱ // 0x1ba5 @0x7
0x1b9e…1bae at0008 = ╱ed╱(╱ // 0x1ba6 @0x8
0x1b9e…1bae at0009 = ╱4a╱J╱ // 0x1ba7 @0x9
0x1b9e…1bae at000a = ╱ee╱)╱ // 0x1ba8 @0xa
0x1b9e…1bae at000b = ╱dc╱=╱ // 0x1ba9 @0xb
0x1b9e…1bae at000c = ╱22╱"╱ // 0x1baa @0xc
0x1b9e…1bae at000d = ╱2e╱.╱ // 0x1bab @0xd
0x1b9e…1bae at000e = ╱22╱"╱ // 0x1bac @0xe
0x1b9e…1bae at000f = EOL // 0x1bad @0xf
0x1b9e…1bae }
0x1bae…1bb4 a90b 2570 ELSE
0x1bae…1bb4 LineComalBin {
0x1bae…1bb4 ptr = 0xa90b // 0x1bae @0x0
0x1bae…1bb4 lno = 0x0a0a // 0x1bb0 @0x2
0x1bae…1bb4 at0004 = ╱9a╱ ELSE ╱ // 0x1bb2 @0x4
0x1bae…1bb4 at0005 = EOL // 0x1bb3 @0x5
0x1bae…1bb4 }
0x1bb4…1bd6 a92d 2580 DAT$(J)=CHR(DA MOD 10+48)
0x1bb4…1bd6 LineComalBin {
0x1bb4…1bd6 ptr = 0xa92d // 0x1bb4 @0x0
0x1bb4…1bd6 lno = 0x0a14 // 0x1bb6 @0x2
0x1bb4…1bd6 at0004 = ╱44╱D╱ // 0x1bb8 @0x4
0x1bb4…1bd6 at0005 = ╱41╱A╱ // 0x1bb9 @0x5
0x1bb4…1bd6 at0006 = ╱54╱T╱ // 0x1bba @0x6
0x1bb4…1bd6 at0007 = ╱ef╱$╱ // 0x1bbb @0x7
0x1bb4…1bd6 at0008 = ╱ed╱(╱ // 0x1bbc @0x8
0x1bb4…1bd6 at0009 = ╱4a╱J╱ // 0x1bbd @0x9
0x1bb4…1bd6 at000a = ╱ee╱)╱ // 0x1bbe @0xa
0x1bb4…1bd6 at000b = ╱dc╱=╱ // 0x1bbf @0xb
0x1bb4…1bd6 at000c = ╱cf╱CHR╱ // 0x1bc0 @0xc
0x1bb4…1bd6 at000d = ╱ed╱(╱ // 0x1bc1 @0xd
0x1bb4…1bd6 at000e = ╱44╱D╱ // 0x1bc2 @0xe
0x1bb4…1bd6 at000f = ╱41╱A╱ // 0x1bc3 @0xf
0x1bb4…1bd6 at0010 = ╱e8╱ MOD ╱ // 0x1bc4 @0x10
0x1bb4…1bd6 at0011 = ╱31╱1╱ // 0x1bc5 @0x11
0x1bb4…1bd6 at0012 = ╱30╱0╱ // 0x1bc6 @0x12
0x1bb4…1bd6 at0013 = ╱fe0000a004╱ // 0x1bc7 @0x13
0x1bb4…1bd6 at0018 = ╱e2╱+╱ // 0x1bcc @0x18
0x1bb4…1bd6 at0019 = ╱34╱4╱ // 0x1bcd @0x19
0x1bb4…1bd6 at001a = ╱38╱8╱ // 0x1bce @0x1a
0x1bb4…1bd6 at001b = ╱fe0000c006╱ // 0x1bcf @0x1b
0x1bb4…1bd6 at0020 = ╱ee╱)╱ // 0x1bd4 @0x20
0x1bb4…1bd6 at0021 = EOL // 0x1bd5 @0x21
0x1bb4…1bd6 }
0x1bd6…1be8 a93f 2590 DA=DA DIV 10
0x1bd6…1be8 LineComalBin {
0x1bd6…1be8 ptr = 0xa93f // 0x1bd6 @0x0
0x1bd6…1be8 lno = 0x0a1e // 0x1bd8 @0x2
0x1bd6…1be8 at0004 = ╱44╱D╱ // 0x1bda @0x4
0x1bd6…1be8 at0005 = ╱41╱A╱ // 0x1bdb @0x5
0x1bd6…1be8 at0006 = ╱dc╱=╱ // 0x1bdc @0x6
0x1bd6…1be8 at0007 = ╱44╱D╱ // 0x1bdd @0x7
0x1bd6…1be8 at0008 = ╱41╱A╱ // 0x1bde @0x8
0x1bd6…1be8 at0009 = ╱e7╱ DIV ╱ // 0x1bdf @0x9
0x1bd6…1be8 at000a = ╱31╱1╱ // 0x1be0 @0xa
0x1bd6…1be8 at000b = ╱30╱0╱ // 0x1be1 @0xb
0x1bd6…1be8 at000c = ╱fe0000a004╱ // 0x1be2 @0xc
0x1bd6…1be8 at0011 = EOL // 0x1be7 @0x11
0x1bd6…1be8 }
0x1be8…1bee a945 2600 ENDIF
0x1be8…1bee LineComalBin {
0x1be8…1bee ptr = 0xa945 // 0x1be8 @0x0
0x1be8…1bee lno = 0x0a28 // 0x1bea @0x2
0x1be8…1bee at0004 = ╱9b╱ ENDIF ╱ // 0x1bec @0x4
0x1be8…1bee at0005 = EOL // 0x1bed @0x5
0x1be8…1bee }
0x1bee…1bf5 a94c 2610 NEXT J
0x1bee…1bf5 LineComalBin {
0x1bee…1bf5 ptr = 0xa94c // 0x1bee @0x0
0x1bee…1bf5 lno = 0x0a32 // 0x1bf0 @0x2
0x1bee…1bf5 at0004 = ╱84╱ NEXT ╱ // 0x1bf2 @0x4
0x1bee…1bf5 at0005 = ╱4a╱J╱ // 0x1bf3 @0x5
0x1bee…1bf5 at0006 = EOL // 0x1bf4 @0x6
0x1bee…1bf5 }
0x1bf5…1c3f a996 2620 STREG$="---------------------------------------";STREG$=STREG$+STREG$
0x1bf5…1c3f LineComalBin {
0x1bf5…1c3f ptr = 0xa996 // 0x1bf5 @0x0
0x1bf5…1c3f lno = 0x0a3c // 0x1bf7 @0x2
0x1bf5…1c3f at0004 = ╱53╱S╱ // 0x1bf9 @0x4
0x1bf5…1c3f at0005 = ╱54╱T╱ // 0x1bfa @0x5
0x1bf5…1c3f at0006 = ╱52╱R╱ // 0x1bfb @0x6
0x1bf5…1c3f at0007 = ╱45╱E╱ // 0x1bfc @0x7
0x1bf5…1c3f at0008 = ╱47╱G╱ // 0x1bfd @0x8
0x1bf5…1c3f at0009 = ╱ef╱$╱ // 0x1bfe @0x9
0x1bf5…1c3f at000a = ╱dc╱=╱ // 0x1bff @0xa
0x1bf5…1c3f at000b = ╱22╱"╱ // 0x1c00 @0xb
0x1bf5…1c3f at000c = ╱2d╱-╱ // 0x1c01 @0xc
0x1bf5…1c3f at000d = ╱2d╱-╱ // 0x1c02 @0xd
0x1bf5…1c3f at000e = ╱2d╱-╱ // 0x1c03 @0xe
0x1bf5…1c3f at000f = ╱2d╱-╱ // 0x1c04 @0xf
0x1bf5…1c3f at0010 = ╱2d╱-╱ // 0x1c05 @0x10
0x1bf5…1c3f at0011 = ╱2d╱-╱ // 0x1c06 @0x11
0x1bf5…1c3f at0012 = ╱2d╱-╱ // 0x1c07 @0x12
0x1bf5…1c3f at0013 = ╱2d╱-╱ // 0x1c08 @0x13
0x1bf5…1c3f at0014 = ╱2d╱-╱ // 0x1c09 @0x14
0x1bf5…1c3f at0015 = ╱2d╱-╱ // 0x1c0a @0x15
0x1bf5…1c3f at0016 = ╱2d╱-╱ // 0x1c0b @0x16
0x1bf5…1c3f at0017 = ╱2d╱-╱ // 0x1c0c @0x17
0x1bf5…1c3f at0018 = ╱2d╱-╱ // 0x1c0d @0x18
0x1bf5…1c3f at0019 = ╱2d╱-╱ // 0x1c0e @0x19
0x1bf5…1c3f at001a = ╱2d╱-╱ // 0x1c0f @0x1a
0x1bf5…1c3f at001b = ╱2d╱-╱ // 0x1c10 @0x1b
0x1bf5…1c3f at001c = ╱2d╱-╱ // 0x1c11 @0x1c
0x1bf5…1c3f at001d = ╱2d╱-╱ // 0x1c12 @0x1d
0x1bf5…1c3f at001e = ╱2d╱-╱ // 0x1c13 @0x1e
0x1bf5…1c3f at001f = ╱2d╱-╱ // 0x1c14 @0x1f
0x1bf5…1c3f at0020 = ╱2d╱-╱ // 0x1c15 @0x20
0x1bf5…1c3f at0021 = ╱2d╱-╱ // 0x1c16 @0x21
0x1bf5…1c3f at0022 = ╱2d╱-╱ // 0x1c17 @0x22
0x1bf5…1c3f at0023 = ╱2d╱-╱ // 0x1c18 @0x23
0x1bf5…1c3f at0024 = ╱2d╱-╱ // 0x1c19 @0x24
0x1bf5…1c3f at0025 = ╱2d╱-╱ // 0x1c1a @0x25
0x1bf5…1c3f at0026 = ╱2d╱-╱ // 0x1c1b @0x26
0x1bf5…1c3f at0027 = ╱2d╱-╱ // 0x1c1c @0x27
0x1bf5…1c3f at0028 = ╱2d╱-╱ // 0x1c1d @0x28
0x1bf5…1c3f at0029 = ╱2d╱-╱ // 0x1c1e @0x29
0x1bf5…1c3f at002a = ╱2d╱-╱ // 0x1c1f @0x2a
0x1bf5…1c3f at002b = ╱2d╱-╱ // 0x1c20 @0x2b
0x1bf5…1c3f at002c = ╱2d╱-╱ // 0x1c21 @0x2c
0x1bf5…1c3f at002d = ╱2d╱-╱ // 0x1c22 @0x2d
0x1bf5…1c3f at002e = ╱2d╱-╱ // 0x1c23 @0x2e
0x1bf5…1c3f at002f = ╱2d╱-╱ // 0x1c24 @0x2f
0x1bf5…1c3f at0030 = ╱2d╱-╱ // 0x1c25 @0x30
0x1bf5…1c3f at0031 = ╱2d╱-╱ // 0x1c26 @0x31
0x1bf5…1c3f at0032 = ╱2d╱-╱ // 0x1c27 @0x32
0x1bf5…1c3f at0033 = ╱22╱"╱ // 0x1c28 @0x33
0x1bf5…1c3f at0034 = ╱eb╱;╱ // 0x1c29 @0x34
0x1bf5…1c3f at0035 = ╱53╱S╱ // 0x1c2a @0x35
0x1bf5…1c3f at0036 = ╱54╱T╱ // 0x1c2b @0x36
0x1bf5…1c3f at0037 = ╱52╱R╱ // 0x1c2c @0x37
0x1bf5…1c3f at0038 = ╱45╱E╱ // 0x1c2d @0x38
0x1bf5…1c3f at0039 = ╱47╱G╱ // 0x1c2e @0x39
0x1bf5…1c3f at003a = ╱ef╱$╱ // 0x1c2f @0x3a
0x1bf5…1c3f at003b = ╱dc╱=╱ // 0x1c30 @0x3b
0x1bf5…1c3f at003c = ╱53╱S╱ // 0x1c31 @0x3c
0x1bf5…1c3f at003d = ╱54╱T╱ // 0x1c32 @0x3d
0x1bf5…1c3f at003e = ╱52╱R╱ // 0x1c33 @0x3e
0x1bf5…1c3f at003f = ╱45╱E╱ // 0x1c34 @0x3f
0x1bf5…1c3f at0040 = ╱47╱G╱ // 0x1c35 @0x40
0x1bf5…1c3f at0041 = ╱ef╱$╱ // 0x1c36 @0x41
0x1bf5…1c3f at0042 = ╱f1╱+╱ // 0x1c37 @0x42
0x1bf5…1c3f at0043 = ╱53╱S╱ // 0x1c38 @0x43
0x1bf5…1c3f at0044 = ╱54╱T╱ // 0x1c39 @0x44
0x1bf5…1c3f at0045 = ╱52╱R╱ // 0x1c3a @0x45
0x1bf5…1c3f at0046 = ╱45╱E╱ // 0x1c3b @0x46
0x1bf5…1c3f at0047 = ╱47╱G╱ // 0x1c3c @0x47
0x1bf5…1c3f at0048 = ╱ef╱$╱ // 0x1c3d @0x48
0x1bf5…1c3f at0049 = EOL // 0x1c3e @0x49
0x1bf5…1c3f }
0x1c3f…1c45 a99c 2630 REPEAT
0x1c3f…1c45 LineComalBin {
0x1c3f…1c45 ptr = 0xa99c // 0x1c3f @0x0
0x1c3f…1c45 lno = 0x0a46 // 0x1c41 @0x2
0x1c3f…1c45 at0004 = ╱97╱ REPEAT ╱ // 0x1c43 @0x4
0x1c3f…1c45 at0005 = EOL // 0x1c44 @0x5
0x1c3f…1c45 }
0x1c45…1c8a a9e1 2640 SUM$="0+";SUM1$="0+";SUM2$="0+";SUM3$="0+";SUM4$="0+";SUM5$="0+"
0x1c45…1c8a LineComalBin {
0x1c45…1c8a ptr = 0xa9e1 // 0x1c45 @0x0
0x1c45…1c8a lno = 0x0a50 // 0x1c47 @0x2
0x1c45…1c8a at0004 = ╱53╱S╱ // 0x1c49 @0x4
0x1c45…1c8a at0005 = ╱55╱U╱ // 0x1c4a @0x5
0x1c45…1c8a at0006 = ╱4d╱M╱ // 0x1c4b @0x6
0x1c45…1c8a at0007 = ╱ef╱$╱ // 0x1c4c @0x7
0x1c45…1c8a at0008 = ╱dc╱=╱ // 0x1c4d @0x8
0x1c45…1c8a at0009 = ╱22╱"╱ // 0x1c4e @0x9
0x1c45…1c8a at000a = ╱30╱0╱ // 0x1c4f @0xa
0x1c45…1c8a at000b = ╱2b╱+╱ // 0x1c50 @0xb
0x1c45…1c8a at000c = ╱22╱"╱ // 0x1c51 @0xc
0x1c45…1c8a at000d = ╱eb╱;╱ // 0x1c52 @0xd
0x1c45…1c8a at000e = ╱53╱S╱ // 0x1c53 @0xe
0x1c45…1c8a at000f = ╱55╱U╱ // 0x1c54 @0xf
0x1c45…1c8a at0010 = ╱4d╱M╱ // 0x1c55 @0x10
0x1c45…1c8a at0011 = ╱31╱1╱ // 0x1c56 @0x11
0x1c45…1c8a at0012 = ╱ef╱$╱ // 0x1c57 @0x12
0x1c45…1c8a at0013 = ╱dc╱=╱ // 0x1c58 @0x13
0x1c45…1c8a at0014 = ╱22╱"╱ // 0x1c59 @0x14
0x1c45…1c8a at0015 = ╱30╱0╱ // 0x1c5a @0x15
0x1c45…1c8a at0016 = ╱2b╱+╱ // 0x1c5b @0x16
0x1c45…1c8a at0017 = ╱22╱"╱ // 0x1c5c @0x17
0x1c45…1c8a at0018 = ╱eb╱;╱ // 0x1c5d @0x18
0x1c45…1c8a at0019 = ╱53╱S╱ // 0x1c5e @0x19
0x1c45…1c8a at001a = ╱55╱U╱ // 0x1c5f @0x1a
0x1c45…1c8a at001b = ╱4d╱M╱ // 0x1c60 @0x1b
0x1c45…1c8a at001c = ╱32╱2╱ // 0x1c61 @0x1c
0x1c45…1c8a at001d = ╱ef╱$╱ // 0x1c62 @0x1d
0x1c45…1c8a at001e = ╱dc╱=╱ // 0x1c63 @0x1e
0x1c45…1c8a at001f = ╱22╱"╱ // 0x1c64 @0x1f
0x1c45…1c8a at0020 = ╱30╱0╱ // 0x1c65 @0x20
0x1c45…1c8a at0021 = ╱2b╱+╱ // 0x1c66 @0x21
0x1c45…1c8a at0022 = ╱22╱"╱ // 0x1c67 @0x22
0x1c45…1c8a at0023 = ╱eb╱;╱ // 0x1c68 @0x23
0x1c45…1c8a at0024 = ╱53╱S╱ // 0x1c69 @0x24
0x1c45…1c8a at0025 = ╱55╱U╱ // 0x1c6a @0x25
0x1c45…1c8a at0026 = ╱4d╱M╱ // 0x1c6b @0x26
0x1c45…1c8a at0027 = ╱33╱3╱ // 0x1c6c @0x27
0x1c45…1c8a at0028 = ╱ef╱$╱ // 0x1c6d @0x28
0x1c45…1c8a at0029 = ╱dc╱=╱ // 0x1c6e @0x29
0x1c45…1c8a at002a = ╱22╱"╱ // 0x1c6f @0x2a
0x1c45…1c8a at002b = ╱30╱0╱ // 0x1c70 @0x2b
0x1c45…1c8a at002c = ╱2b╱+╱ // 0x1c71 @0x2c
0x1c45…1c8a at002d = ╱22╱"╱ // 0x1c72 @0x2d
0x1c45…1c8a at002e = ╱eb╱;╱ // 0x1c73 @0x2e
0x1c45…1c8a at002f = ╱53╱S╱ // 0x1c74 @0x2f
0x1c45…1c8a at0030 = ╱55╱U╱ // 0x1c75 @0x30
0x1c45…1c8a at0031 = ╱4d╱M╱ // 0x1c76 @0x31
0x1c45…1c8a at0032 = ╱34╱4╱ // 0x1c77 @0x32
0x1c45…1c8a at0033 = ╱ef╱$╱ // 0x1c78 @0x33
0x1c45…1c8a at0034 = ╱dc╱=╱ // 0x1c79 @0x34
0x1c45…1c8a at0035 = ╱22╱"╱ // 0x1c7a @0x35
0x1c45…1c8a at0036 = ╱30╱0╱ // 0x1c7b @0x36
0x1c45…1c8a at0037 = ╱2b╱+╱ // 0x1c7c @0x37
0x1c45…1c8a at0038 = ╱22╱"╱ // 0x1c7d @0x38
0x1c45…1c8a at0039 = ╱eb╱;╱ // 0x1c7e @0x39
0x1c45…1c8a at003a = ╱53╱S╱ // 0x1c7f @0x3a
0x1c45…1c8a at003b = ╱55╱U╱ // 0x1c80 @0x3b
0x1c45…1c8a at003c = ╱4d╱M╱ // 0x1c81 @0x3c
0x1c45…1c8a at003d = ╱35╱5╱ // 0x1c82 @0x3d
0x1c45…1c8a at003e = ╱ef╱$╱ // 0x1c83 @0x3e
0x1c45…1c8a at003f = ╱dc╱=╱ // 0x1c84 @0x3f
0x1c45…1c8a at0040 = ╱22╱"╱ // 0x1c85 @0x40
0x1c45…1c8a at0041 = ╱30╱0╱ // 0x1c86 @0x41
0x1c45…1c8a at0042 = ╱2b╱+╱ // 0x1c87 @0x42
0x1c45…1c8a at0043 = ╱22╱"╱ // 0x1c88 @0x43
0x1c45…1c8a at0044 = EOL // 0x1c89 @0x44
0x1c45…1c8a }
0x1c8a…1cb4 aa0b 2650 SUM6$="0+";LINIE=0;SIDENR=0
0x1c8a…1cb4 LineComalBin {
0x1c8a…1cb4 ptr = 0xaa0b // 0x1c8a @0x0
0x1c8a…1cb4 lno = 0x0a5a // 0x1c8c @0x2
0x1c8a…1cb4 at0004 = ╱53╱S╱ // 0x1c8e @0x4
0x1c8a…1cb4 at0005 = ╱55╱U╱ // 0x1c8f @0x5
0x1c8a…1cb4 at0006 = ╱4d╱M╱ // 0x1c90 @0x6
0x1c8a…1cb4 at0007 = ╱36╱6╱ // 0x1c91 @0x7
0x1c8a…1cb4 at0008 = ╱ef╱$╱ // 0x1c92 @0x8
0x1c8a…1cb4 at0009 = ╱dc╱=╱ // 0x1c93 @0x9
0x1c8a…1cb4 at000a = ╱22╱"╱ // 0x1c94 @0xa
0x1c8a…1cb4 at000b = ╱30╱0╱ // 0x1c95 @0xb
0x1c8a…1cb4 at000c = ╱2b╱+╱ // 0x1c96 @0xc
0x1c8a…1cb4 at000d = ╱22╱"╱ // 0x1c97 @0xd
0x1c8a…1cb4 at000e = ╱eb╱;╱ // 0x1c98 @0xe
0x1c8a…1cb4 at000f = ╱4c╱L╱ // 0x1c99 @0xf
0x1c8a…1cb4 at0010 = ╱49╱I╱ // 0x1c9a @0x10
0x1c8a…1cb4 at0011 = ╱4e╱N╱ // 0x1c9b @0x11
0x1c8a…1cb4 at0012 = ╱49╱I╱ // 0x1c9c @0x12
0x1c8a…1cb4 at0013 = ╱45╱E╱ // 0x1c9d @0x13
0x1c8a…1cb4 at0014 = ╱dc╱=╱ // 0x1c9e @0x14
0x1c8a…1cb4 at0015 = ╱30╱0╱ // 0x1c9f @0x15
0x1c8a…1cb4 at0016 = ╱fe00000000╱ // 0x1ca0 @0x16
0x1c8a…1cb4 at001b = ╱eb╱;╱ // 0x1ca5 @0x1b
0x1c8a…1cb4 at001c = ╱53╱S╱ // 0x1ca6 @0x1c
0x1c8a…1cb4 at001d = ╱49╱I╱ // 0x1ca7 @0x1d
0x1c8a…1cb4 at001e = ╱44╱D╱ // 0x1ca8 @0x1e
0x1c8a…1cb4 at001f = ╱45╱E╱ // 0x1ca9 @0x1f
0x1c8a…1cb4 at0020 = ╱4e╱N╱ // 0x1caa @0x20
0x1c8a…1cb4 at0021 = ╱52╱R╱ // 0x1cab @0x21
0x1c8a…1cb4 at0022 = ╱dc╱=╱ // 0x1cac @0x22
0x1c8a…1cb4 at0023 = ╱30╱0╱ // 0x1cad @0x23
0x1c8a…1cb4 at0024 = ╱fe00000000╱ // 0x1cae @0x24
0x1c8a…1cb4 at0029 = EOL // 0x1cb3 @0x29
0x1c8a…1cb4 }
0x1cb4…1cbb aa12 2660 OUTPUT T
0x1cb4…1cbb LineComalBin {
0x1cb4…1cbb ptr = 0xaa12 // 0x1cb4 @0x0
0x1cb4…1cbb lno = 0x0a64 // 0x1cb6 @0x2
0x1cb4…1cbb at0004 = ╱a5╱ OUTPUT ╱ // 0x1cb8 @0x4
0x1cb4…1cbb at0005 = ╱54╱T╱ // 0x1cb9 @0x5
0x1cb4…1cbb at0006 = EOL // 0x1cba @0x6
0x1cb4…1cbb }
0x1cbb…1cc1 aa18 2670 CLEAR
0x1cbb…1cc1 LineComalBin {
0x1cbb…1cc1 ptr = 0xaa18 // 0x1cbb @0x0
0x1cbb…1cc1 lno = 0x0a6e // 0x1cbd @0x2
0x1cbb…1cc1 at0004 = ╱a0╱ CLEAR ╱ // 0x1cbf @0x4
0x1cbb…1cc1 at0005 = EOL // 0x1cc0 @0x5
0x1cbb…1cc1 }
0x1cc1…1cd5 aa2c 2680 CURSOR 20,1
0x1cc1…1cd5 LineComalBin {
0x1cc1…1cd5 ptr = 0xaa2c // 0x1cc1 @0x0
0x1cc1…1cd5 lno = 0x0a78 // 0x1cc3 @0x2
0x1cc1…1cd5 at0004 = ╱a1╱ CURSOR ╱ // 0x1cc5 @0x4
0x1cc1…1cd5 at0005 = ╱32╱2╱ // 0x1cc6 @0x5
0x1cc1…1cd5 at0006 = ╱30╱0╱ // 0x1cc7 @0x6
0x1cc1…1cd5 at0007 = ╱fe0000a005╱ // 0x1cc8 @0x7
0x1cc1…1cd5 at000c = ╱ec╱,╱ // 0x1ccd @0xc
0x1cc1…1cd5 at000d = ╱31╱1╱ // 0x1cce @0xd
0x1cc1…1cd5 at000e = ╱fe00008001╱ // 0x1ccf @0xe
0x1cc1…1cd5 at0013 = EOL // 0x1cd4 @0x13
0x1cc1…1cd5 }
0x1cd5…1cee aa45 2690 PRINT "Debitorudskrifter"
0x1cd5…1cee LineComalBin {
0x1cd5…1cee ptr = 0xaa45 // 0x1cd5 @0x0
0x1cd5…1cee lno = 0x0a82 // 0x1cd7 @0x2
0x1cd5…1cee at0004 = ╱92╱ PRINT ╱ // 0x1cd9 @0x4
0x1cd5…1cee at0005 = ╱22╱"╱ // 0x1cda @0x5
0x1cd5…1cee at0006 = ╱44╱D╱ // 0x1cdb @0x6
0x1cd5…1cee at0007 = ╱65╱e╱ // 0x1cdc @0x7
0x1cd5…1cee at0008 = ╱62╱b╱ // 0x1cdd @0x8
0x1cd5…1cee at0009 = ╱69╱i╱ // 0x1cde @0x9
0x1cd5…1cee at000a = ╱74╱t╱ // 0x1cdf @0xa
0x1cd5…1cee at000b = ╱6f╱o╱ // 0x1ce0 @0xb
0x1cd5…1cee at000c = ╱72╱r╱ // 0x1ce1 @0xc
0x1cd5…1cee at000d = ╱75╱u╱ // 0x1ce2 @0xd
0x1cd5…1cee at000e = ╱64╱d╱ // 0x1ce3 @0xe
0x1cd5…1cee at000f = ╱73╱s╱ // 0x1ce4 @0xf
0x1cd5…1cee at0010 = ╱6b╱k╱ // 0x1ce5 @0x10
0x1cd5…1cee at0011 = ╱72╱r╱ // 0x1ce6 @0x11
0x1cd5…1cee at0012 = ╱69╱i╱ // 0x1ce7 @0x12
0x1cd5…1cee at0013 = ╱66╱f╱ // 0x1ce8 @0x13
0x1cd5…1cee at0014 = ╱74╱t╱ // 0x1ce9 @0x14
0x1cd5…1cee at0015 = ╱65╱e╱ // 0x1cea @0x15
0x1cd5…1cee at0016 = ╱72╱r╱ // 0x1ceb @0x16
0x1cd5…1cee at0017 = ╱22╱"╱ // 0x1cec @0x17
0x1cd5…1cee at0018 = EOL // 0x1ced @0x18
0x1cd5…1cee }
0x1cee…1d02 aa59 2700 CURSOR 11,6
0x1cee…1d02 LineComalBin {
0x1cee…1d02 ptr = 0xaa59 // 0x1cee @0x0
0x1cee…1d02 lno = 0x0a8c // 0x1cf0 @0x2
0x1cee…1d02 at0004 = ╱a1╱ CURSOR ╱ // 0x1cf2 @0x4
0x1cee…1d02 at0005 = ╱31╱1╱ // 0x1cf3 @0x5
0x1cee…1d02 at0006 = ╱31╱1╱ // 0x1cf4 @0x6
0x1cee…1d02 at0007 = ╱fe0000b004╱ // 0x1cf5 @0x7
0x1cee…1d02 at000c = ╱ec╱,╱ // 0x1cfa @0xc
0x1cee…1d02 at000d = ╱36╱6╱ // 0x1cfb @0xd
0x1cee…1d02 at000e = ╱fe0000c003╱ // 0x1cfc @0xe
0x1cee…1d02 at0013 = EOL // 0x1d01 @0x13
0x1cee…1d02 }
0x1d02…1d13 aa6a 2710 PRINT "0: Færdig"
0x1d02…1d13 LineComalBin {
0x1d02…1d13 ptr = 0xaa6a // 0x1d02 @0x0
0x1d02…1d13 lno = 0x0a96 // 0x1d04 @0x2
0x1d02…1d13 at0004 = ╱92╱ PRINT ╱ // 0x1d06 @0x4
0x1d02…1d13 at0005 = ╱22╱"╱ // 0x1d07 @0x5
0x1d02…1d13 at0006 = ╱30╱0╱ // 0x1d08 @0x6
0x1d02…1d13 at0007 = ╱3a╱:╱ // 0x1d09 @0x7
0x1d02…1d13 at0008 = ╱20╱…╱ // 0x1d0a @0x8
0x1d02…1d13 at0009 = ╱46╱F╱ // 0x1d0b @0x9
0x1d02…1d13 at000a = ╱7b╱æ╱ // 0x1d0c @0xa
0x1d02…1d13 at000b = ╱72╱r╱ // 0x1d0d @0xb
0x1d02…1d13 at000c = ╱64╱d╱ // 0x1d0e @0xc
0x1d02…1d13 at000d = ╱69╱i╱ // 0x1d0f @0xd
0x1d02…1d13 at000e = ╱67╱g╱ // 0x1d10 @0xe
0x1d02…1d13 at000f = ╱22╱"╱ // 0x1d11 @0xf
0x1d02…1d13 at0010 = EOL // 0x1d12 @0x10
0x1d02…1d13 }
0x1d13…1d27 aa7e 2720 CURSOR 11,8
0x1d13…1d27 LineComalBin {
0x1d13…1d27 ptr = 0xaa7e // 0x1d13 @0x0
0x1d13…1d27 lno = 0x0aa0 // 0x1d15 @0x2
0x1d13…1d27 at0004 = ╱a1╱ CURSOR ╱ // 0x1d17 @0x4
0x1d13…1d27 at0005 = ╱31╱1╱ // 0x1d18 @0x5
0x1d13…1d27 at0006 = ╱31╱1╱ // 0x1d19 @0x6
0x1d13…1d27 at0007 = ╱fe0000b004╱ // 0x1d1a @0x7
0x1d13…1d27 at000c = ╱ec╱,╱ // 0x1d1f @0xc
0x1d13…1d27 at000d = ╱38╱8╱ // 0x1d20 @0xd
0x1d13…1d27 at000e = ╱fe00008004╱ // 0x1d21 @0xe
0x1d13…1d27 at0013 = EOL // 0x1d26 @0x13
0x1d13…1d27 }
0x1d27…1d3c aa93 2730 PRINT "1: Saldoliste"
0x1d27…1d3c LineComalBin {
0x1d27…1d3c ptr = 0xaa93 // 0x1d27 @0x0
0x1d27…1d3c lno = 0x0aaa // 0x1d29 @0x2
0x1d27…1d3c at0004 = ╱92╱ PRINT ╱ // 0x1d2b @0x4
0x1d27…1d3c at0005 = ╱22╱"╱ // 0x1d2c @0x5
0x1d27…1d3c at0006 = ╱31╱1╱ // 0x1d2d @0x6
0x1d27…1d3c at0007 = ╱3a╱:╱ // 0x1d2e @0x7
0x1d27…1d3c at0008 = ╱20╱…╱ // 0x1d2f @0x8
0x1d27…1d3c at0009 = ╱53╱S╱ // 0x1d30 @0x9
0x1d27…1d3c at000a = ╱61╱a╱ // 0x1d31 @0xa
0x1d27…1d3c at000b = ╱6c╱l╱ // 0x1d32 @0xb
0x1d27…1d3c at000c = ╱64╱d╱ // 0x1d33 @0xc
0x1d27…1d3c at000d = ╱6f╱o╱ // 0x1d34 @0xd
0x1d27…1d3c at000e = ╱6c╱l╱ // 0x1d35 @0xe
0x1d27…1d3c at000f = ╱69╱i╱ // 0x1d36 @0xf
0x1d27…1d3c at0010 = ╱73╱s╱ // 0x1d37 @0x10
0x1d27…1d3c at0011 = ╱74╱t╱ // 0x1d38 @0x11
0x1d27…1d3c at0012 = ╱65╱e╱ // 0x1d39 @0x12
0x1d27…1d3c at0013 = ╱22╱"╱ // 0x1d3a @0x13
0x1d27…1d3c at0014 = EOL // 0x1d3b @0x14
0x1d27…1d3c }
0x1d3c…1d51 aaa8 2740 CURSOR 11,10
0x1d3c…1d51 LineComalBin {
0x1d3c…1d51 ptr = 0xaaa8 // 0x1d3c @0x0
0x1d3c…1d51 lno = 0x0ab4 // 0x1d3e @0x2
0x1d3c…1d51 at0004 = ╱a1╱ CURSOR ╱ // 0x1d40 @0x4
0x1d3c…1d51 at0005 = ╱31╱1╱ // 0x1d41 @0x5
0x1d3c…1d51 at0006 = ╱31╱1╱ // 0x1d42 @0x6
0x1d3c…1d51 at0007 = ╱fe0000b004╱ // 0x1d43 @0x7
0x1d3c…1d51 at000c = ╱ec╱,╱ // 0x1d48 @0xc
0x1d3c…1d51 at000d = ╱31╱1╱ // 0x1d49 @0xd
0x1d3c…1d51 at000e = ╱30╱0╱ // 0x1d4a @0xe
0x1d3c…1d51 at000f = ╱fe0000a004╱ // 0x1d4b @0xf
0x1d3c…1d51 at0014 = EOL // 0x1d50 @0x14
0x1d3c…1d51 }
0x1d51…1d66 aabd 2750 PRINT "2: Kontoliste"
0x1d51…1d66 LineComalBin {
0x1d51…1d66 ptr = 0xaabd // 0x1d51 @0x0
0x1d51…1d66 lno = 0x0abe // 0x1d53 @0x2
0x1d51…1d66 at0004 = ╱92╱ PRINT ╱ // 0x1d55 @0x4
0x1d51…1d66 at0005 = ╱22╱"╱ // 0x1d56 @0x5
0x1d51…1d66 at0006 = ╱32╱2╱ // 0x1d57 @0x6
0x1d51…1d66 at0007 = ╱3a╱:╱ // 0x1d58 @0x7
0x1d51…1d66 at0008 = ╱20╱…╱ // 0x1d59 @0x8
0x1d51…1d66 at0009 = ╱4b╱K╱ // 0x1d5a @0x9
0x1d51…1d66 at000a = ╱6f╱o╱ // 0x1d5b @0xa
0x1d51…1d66 at000b = ╱6e╱n╱ // 0x1d5c @0xb
0x1d51…1d66 at000c = ╱74╱t╱ // 0x1d5d @0xc
0x1d51…1d66 at000d = ╱6f╱o╱ // 0x1d5e @0xd
0x1d51…1d66 at000e = ╱6c╱l╱ // 0x1d5f @0xe
0x1d51…1d66 at000f = ╱69╱i╱ // 0x1d60 @0xf
0x1d51…1d66 at0010 = ╱73╱s╱ // 0x1d61 @0x10
0x1d51…1d66 at0011 = ╱74╱t╱ // 0x1d62 @0x11
0x1d51…1d66 at0012 = ╱65╱e╱ // 0x1d63 @0x12
0x1d51…1d66 at0013 = ╱22╱"╱ // 0x1d64 @0x13
0x1d51…1d66 at0014 = EOL // 0x1d65 @0x14
0x1d51…1d66 }
0x1d66…1d7b aad2 2760 CURSOR 11,12
0x1d66…1d7b LineComalBin {
0x1d66…1d7b ptr = 0xaad2 // 0x1d66 @0x0
0x1d66…1d7b lno = 0x0ac8 // 0x1d68 @0x2
0x1d66…1d7b at0004 = ╱a1╱ CURSOR ╱ // 0x1d6a @0x4
0x1d66…1d7b at0005 = ╱31╱1╱ // 0x1d6b @0x5
0x1d66…1d7b at0006 = ╱31╱1╱ // 0x1d6c @0x6
0x1d66…1d7b at0007 = ╱fe0000b004╱ // 0x1d6d @0x7
0x1d66…1d7b at000c = ╱ec╱,╱ // 0x1d72 @0xc
0x1d66…1d7b at000d = ╱31╱1╱ // 0x1d73 @0xd
0x1d66…1d7b at000e = ╱32╱2╱ // 0x1d74 @0xe
0x1d66…1d7b at000f = ╱fe0000c004╱ // 0x1d75 @0xf
0x1d66…1d7b at0014 = EOL // 0x1d7a @0x14
0x1d66…1d7b }
0x1d7b…1d8c aae3 2770 PRINT "3: Labels"
0x1d7b…1d8c LineComalBin {
0x1d7b…1d8c ptr = 0xaae3 // 0x1d7b @0x0
0x1d7b…1d8c lno = 0x0ad2 // 0x1d7d @0x2
0x1d7b…1d8c at0004 = ╱92╱ PRINT ╱ // 0x1d7f @0x4
0x1d7b…1d8c at0005 = ╱22╱"╱ // 0x1d80 @0x5
0x1d7b…1d8c at0006 = ╱33╱3╱ // 0x1d81 @0x6
0x1d7b…1d8c at0007 = ╱3a╱:╱ // 0x1d82 @0x7
0x1d7b…1d8c at0008 = ╱20╱…╱ // 0x1d83 @0x8
0x1d7b…1d8c at0009 = ╱4c╱L╱ // 0x1d84 @0x9
0x1d7b…1d8c at000a = ╱61╱a╱ // 0x1d85 @0xa
0x1d7b…1d8c at000b = ╱62╱b╱ // 0x1d86 @0xb
0x1d7b…1d8c at000c = ╱65╱e╱ // 0x1d87 @0xc
0x1d7b…1d8c at000d = ╱6c╱l╱ // 0x1d88 @0xd
0x1d7b…1d8c at000e = ╱73╱s╱ // 0x1d89 @0xe
0x1d7b…1d8c at000f = ╱22╱"╱ // 0x1d8a @0xf
0x1d7b…1d8c at0010 = EOL // 0x1d8b @0x10
0x1d7b…1d8c }
0x1d8c…1d92 aae9 2780 REPEAT
0x1d8c…1d92 LineComalBin {
0x1d8c…1d92 ptr = 0xaae9 // 0x1d8c @0x0
0x1d8c…1d92 lno = 0x0adc // 0x1d8e @0x2
0x1d8c…1d92 at0004 = ╱97╱ REPEAT ╱ // 0x1d90 @0x4
0x1d8c…1d92 at0005 = EOL // 0x1d91 @0x5
0x1d8c…1d92 }
0x1d92…1da7 aafe 2790 CURSOR 13,14
0x1d92…1da7 LineComalBin {
0x1d92…1da7 ptr = 0xaafe // 0x1d92 @0x0
0x1d92…1da7 lno = 0x0ae6 // 0x1d94 @0x2
0x1d92…1da7 at0004 = ╱a1╱ CURSOR ╱ // 0x1d96 @0x4
0x1d92…1da7 at0005 = ╱31╱1╱ // 0x1d97 @0x5
0x1d92…1da7 at0006 = ╱33╱3╱ // 0x1d98 @0x6
0x1d92…1da7 at0007 = ╱fe0000d004╱ // 0x1d99 @0x7
0x1d92…1da7 at000c = ╱ec╱,╱ // 0x1d9e @0xc
0x1d92…1da7 at000d = ╱31╱1╱ // 0x1d9f @0xd
0x1d92…1da7 at000e = ╱34╱4╱ // 0x1da0 @0xe
0x1d92…1da7 at000f = ╱fe0000e004╱ // 0x1da1 @0xf
0x1d92…1da7 at0014 = EOL // 0x1da6 @0x14
0x1d92…1da7 }
0x1da7…1dbd ab14 2800 INPUT "Vælg type :",A$
0x1da7…1dbd LineComalBin {
0x1da7…1dbd ptr = 0xab14 // 0x1da7 @0x0
0x1da7…1dbd lno = 0x0af0 // 0x1da9 @0x2
0x1da7…1dbd at0004 = ╱91╱ INPUT ╱ // 0x1dab @0x4
0x1da7…1dbd at0005 = ╱22╱"╱ // 0x1dac @0x5
0x1da7…1dbd at0006 = ╱56╱V╱ // 0x1dad @0x6
0x1da7…1dbd at0007 = ╱7b╱æ╱ // 0x1dae @0x7
0x1da7…1dbd at0008 = ╱6c╱l╱ // 0x1daf @0x8
0x1da7…1dbd at0009 = ╱67╱g╱ // 0x1db0 @0x9
0x1da7…1dbd at000a = ╱20╱…╱ // 0x1db1 @0xa
0x1da7…1dbd at000b = ╱74╱t╱ // 0x1db2 @0xb
0x1da7…1dbd at000c = ╱79╱y╱ // 0x1db3 @0xc
0x1da7…1dbd at000d = ╱70╱p╱ // 0x1db4 @0xd
0x1da7…1dbd at000e = ╱65╱e╱ // 0x1db5 @0xe
0x1da7…1dbd at000f = ╱20╱…╱ // 0x1db6 @0xf
0x1da7…1dbd at0010 = ╱3a╱:╱ // 0x1db7 @0x10
0x1da7…1dbd at0011 = ╱22╱"╱ // 0x1db8 @0x11
0x1da7…1dbd at0012 = ╱ec╱,╱ // 0x1db9 @0x12
0x1da7…1dbd at0013 = ╱41╱A╱ // 0x1dba @0x13
0x1da7…1dbd at0014 = ╱ef╱$╱ // 0x1dbb @0x14
0x1da7…1dbd at0015 = EOL // 0x1dbc @0x15
0x1da7…1dbd }
0x1dbd…1dcd ab24 2810 EXEC NRTEST(A$)
0x1dbd…1dcd LineComalBin {
0x1dbd…1dcd ptr = 0xab24 // 0x1dbd @0x0
0x1dbd…1dcd lno = 0x0afa // 0x1dbf @0x2
0x1dbd…1dcd at0004 = ╱9d╱ EXEC ╱ // 0x1dc1 @0x4
0x1dbd…1dcd at0005 = ╱4e╱N╱ // 0x1dc2 @0x5
0x1dbd…1dcd at0006 = ╱52╱R╱ // 0x1dc3 @0x6
0x1dbd…1dcd at0007 = ╱54╱T╱ // 0x1dc4 @0x7
0x1dbd…1dcd at0008 = ╱45╱E╱ // 0x1dc5 @0x8
0x1dbd…1dcd at0009 = ╱53╱S╱ // 0x1dc6 @0x9
0x1dbd…1dcd at000a = ╱54╱T╱ // 0x1dc7 @0xa
0x1dbd…1dcd at000b = ╱ed╱(╱ // 0x1dc8 @0xb
0x1dbd…1dcd at000c = ╱41╱A╱ // 0x1dc9 @0xc
0x1dbd…1dcd at000d = ╱ef╱$╱ // 0x1dca @0xd
0x1dbd…1dcd at000e = ╱ee╱)╱ // 0x1dcb @0xe
0x1dbd…1dcd at000f = EOL // 0x1dcc @0xf
0x1dbd…1dcd }
0x1dcd…1de5 ab3c 2820 UNTIL P>-1 AND P<4
0x1dcd…1de5 LineComalBin {
0x1dcd…1de5 ptr = 0xab3c // 0x1dcd @0x0
0x1dcd…1de5 lno = 0x0b04 // 0x1dcf @0x2
0x1dcd…1de5 at0004 = ╱98╱ UNTIL ╱ // 0x1dd1 @0x4
0x1dcd…1de5 at0005 = ╱50╱P╱ // 0x1dd2 @0x5
0x1dcd…1de5 at0006 = ╱de╱>╱ // 0x1dd3 @0x6
0x1dcd…1de5 at0007 = ╱e9╱-╱ // 0x1dd4 @0x7
0x1dcd…1de5 at0008 = ╱31╱1╱ // 0x1dd5 @0x8
0x1dcd…1de5 at0009 = ╱fe00008001╱ // 0x1dd6 @0x9
0x1dcd…1de5 at000e = ╱da╱ AND ╱ // 0x1ddb @0xe
0x1dcd…1de5 at000f = ╱50╱P╱ // 0x1ddc @0xf
0x1dcd…1de5 at0010 = ╱dd╱<╱ // 0x1ddd @0x10
0x1dcd…1de5 at0011 = ╱34╱4╱ // 0x1dde @0x11
0x1dcd…1de5 at0012 = ╱fe00008003╱ // 0x1ddf @0x12
0x1dcd…1de5 at0017 = EOL // 0x1de4 @0x17
0x1dcd…1de5 }
0x1de5…1df0 ab47 2830 TYPE=P
0x1de5…1df0 LineComalBin {
0x1de5…1df0 ptr = 0xab47 // 0x1de5 @0x0
0x1de5…1df0 lno = 0x0b0e // 0x1de7 @0x2
0x1de5…1df0 at0004 = ╱54╱T╱ // 0x1de9 @0x4
0x1de5…1df0 at0005 = ╱59╱Y╱ // 0x1dea @0x5
0x1de5…1df0 at0006 = ╱50╱P╱ // 0x1deb @0x6
0x1de5…1df0 at0007 = ╱45╱E╱ // 0x1dec @0x7
0x1de5…1df0 at0008 = ╱dc╱=╱ // 0x1ded @0x8
0x1de5…1df0 at0009 = ╱50╱P╱ // 0x1dee @0x9
0x1de5…1df0 at000a = EOL // 0x1def @0xa
0x1de5…1df0 }
0x1df0…1e03 ab5a 2840 IF TYPE=0 THEN EXIT
0x1df0…1e03 LineComalBin {
0x1df0…1e03 ptr = 0xab5a // 0x1df0 @0x0
0x1df0…1e03 lno = 0x0b18 // 0x1df2 @0x2
0x1df0…1e03 at0004 = ╱82╱ IF ╱ // 0x1df4 @0x4
0x1df0…1e03 at0005 = ╱54╱T╱ // 0x1df5 @0x5
0x1df0…1e03 at0006 = ╱59╱Y╱ // 0x1df6 @0x6
0x1df0…1e03 at0007 = ╱50╱P╱ // 0x1df7 @0x7
0x1df0…1e03 at0008 = ╱45╱E╱ // 0x1df8 @0x8
0x1df0…1e03 at0009 = ╱dc╱=╱ // 0x1df9 @0x9
0x1df0…1e03 at000a = ╱30╱0╱ // 0x1dfa @0xa
0x1df0…1e03 at000b = ╱fe00000000╱ // 0x1dfb @0xb
0x1df0…1e03 at0010 = ╱b6╱ THEN ╱ // 0x1e00 @0x10
0x1df0…1e03 at0011 = ╱99╱ EXIT ╱ // 0x1e01 @0x11
0x1df0…1e03 at0012 = EOL // 0x1e02 @0x12
0x1df0…1e03 }
0x1e03…1e09 ab60 2850 REPEAT
0x1e03…1e09 LineComalBin {
0x1e03…1e09 ptr = 0xab60 // 0x1e03 @0x0
0x1e03…1e09 lno = 0x0b22 // 0x1e05 @0x2
0x1e03…1e09 at0004 = ╱97╱ REPEAT ╱ // 0x1e07 @0x4
0x1e03…1e09 at0005 = EOL // 0x1e08 @0x5
0x1e03…1e09 }
0x1e09…1e1e ab75 2860 CURSOR 13,17
0x1e09…1e1e LineComalBin {
0x1e09…1e1e ptr = 0xab75 // 0x1e09 @0x0
0x1e09…1e1e lno = 0x0b2c // 0x1e0b @0x2
0x1e09…1e1e at0004 = ╱a1╱ CURSOR ╱ // 0x1e0d @0x4
0x1e09…1e1e at0005 = ╱31╱1╱ // 0x1e0e @0x5
0x1e09…1e1e at0006 = ╱33╱3╱ // 0x1e0f @0x6
0x1e09…1e1e at0007 = ╱fe0000d004╱ // 0x1e10 @0x7
0x1e09…1e1e at000c = ╱ec╱,╱ // 0x1e15 @0xc
0x1e09…1e1e at000d = ╱31╱1╱ // 0x1e16 @0xd
0x1e09…1e1e at000e = ╱37╱7╱ // 0x1e17 @0xe
0x1e09…1e1e at000f = ╱fe00008805╱ // 0x1e18 @0xf
0x1e09…1e1e at0014 = EOL // 0x1e1d @0x14
0x1e09…1e1e }
0x1e1e…1e4d aba4 2870 PRINT "Ordnet efter : (1: Gruppe , 2: Nr)"
0x1e1e…1e4d LineComalBin {
0x1e1e…1e4d ptr = 0xaba4 // 0x1e1e @0x0
0x1e1e…1e4d lno = 0x0b36 // 0x1e20 @0x2
0x1e1e…1e4d at0004 = ╱92╱ PRINT ╱ // 0x1e22 @0x4
0x1e1e…1e4d at0005 = ╱22╱"╱ // 0x1e23 @0x5
0x1e1e…1e4d at0006 = ╱4f╱O╱ // 0x1e24 @0x6
0x1e1e…1e4d at0007 = ╱72╱r╱ // 0x1e25 @0x7
0x1e1e…1e4d at0008 = ╱64╱d╱ // 0x1e26 @0x8
0x1e1e…1e4d at0009 = ╱6e╱n╱ // 0x1e27 @0x9
0x1e1e…1e4d at000a = ╱65╱e╱ // 0x1e28 @0xa
0x1e1e…1e4d at000b = ╱74╱t╱ // 0x1e29 @0xb
0x1e1e…1e4d at000c = ╱20╱…╱ // 0x1e2a @0xc
0x1e1e…1e4d at000d = ╱65╱e╱ // 0x1e2b @0xd
0x1e1e…1e4d at000e = ╱66╱f╱ // 0x1e2c @0xe
0x1e1e…1e4d at000f = ╱74╱t╱ // 0x1e2d @0xf
0x1e1e…1e4d at0010 = ╱65╱e╱ // 0x1e2e @0x10
0x1e1e…1e4d at0011 = ╱72╱r╱ // 0x1e2f @0x11
0x1e1e…1e4d at0012 = ╱20╱…╱ // 0x1e30 @0x12
0x1e1e…1e4d at0013 = ╱3a╱:╱ // 0x1e31 @0x13
0x1e1e…1e4d at0014 = ╱20╱…╱ // 0x1e32 @0x14
0x1e1e…1e4d at0015 = ╱20╱…╱ // 0x1e33 @0x15
0x1e1e…1e4d at0016 = ╱20╱…╱ // 0x1e34 @0x16
0x1e1e…1e4d at0017 = ╱20╱…╱ // 0x1e35 @0x17
0x1e1e…1e4d at0018 = ╱20╱…╱ // 0x1e36 @0x18
0x1e1e…1e4d at0019 = ╱20╱…╱ // 0x1e37 @0x19
0x1e1e…1e4d at001a = ╱28╱(╱ // 0x1e38 @0x1a
0x1e1e…1e4d at001b = ╱31╱1╱ // 0x1e39 @0x1b
0x1e1e…1e4d at001c = ╱3a╱:╱ // 0x1e3a @0x1c
0x1e1e…1e4d at001d = ╱20╱…╱ // 0x1e3b @0x1d
0x1e1e…1e4d at001e = ╱47╱G╱ // 0x1e3c @0x1e
0x1e1e…1e4d at001f = ╱72╱r╱ // 0x1e3d @0x1f
0x1e1e…1e4d at0020 = ╱75╱u╱ // 0x1e3e @0x20
0x1e1e…1e4d at0021 = ╱70╱p╱ // 0x1e3f @0x21
0x1e1e…1e4d at0022 = ╱70╱p╱ // 0x1e40 @0x22
0x1e1e…1e4d at0023 = ╱65╱e╱ // 0x1e41 @0x23
0x1e1e…1e4d at0024 = ╱20╱…╱ // 0x1e42 @0x24
0x1e1e…1e4d at0025 = ╱2c╱,╱ // 0x1e43 @0x25
0x1e1e…1e4d at0026 = ╱20╱…╱ // 0x1e44 @0x26
0x1e1e…1e4d at0027 = ╱32╱2╱ // 0x1e45 @0x27
0x1e1e…1e4d at0028 = ╱3a╱:╱ // 0x1e46 @0x28
0x1e1e…1e4d at0029 = ╱20╱…╱ // 0x1e47 @0x29
0x1e1e…1e4d at002a = ╱4e╱N╱ // 0x1e48 @0x2a
0x1e1e…1e4d at002b = ╱72╱r╱ // 0x1e49 @0x2b
0x1e1e…1e4d at002c = ╱29╱)╱ // 0x1e4a @0x2c
0x1e1e…1e4d at002d = ╱22╱"╱ // 0x1e4b @0x2d
0x1e1e…1e4d at002e = EOL // 0x1e4c @0x2e
0x1e1e…1e4d }
0x1e4d…1e62 abb9 2880 CURSOR 26,17
0x1e4d…1e62 LineComalBin {
0x1e4d…1e62 ptr = 0xabb9 // 0x1e4d @0x0
0x1e4d…1e62 lno = 0x0b40 // 0x1e4f @0x2
0x1e4d…1e62 at0004 = ╱a1╱ CURSOR ╱ // 0x1e51 @0x4
0x1e4d…1e62 at0005 = ╱32╱2╱ // 0x1e52 @0x5
0x1e4d…1e62 at0006 = ╱36╱6╱ // 0x1e53 @0x6
0x1e4d…1e62 at0007 = ╱fe0000d005╱ // 0x1e54 @0x7
0x1e4d…1e62 at000c = ╱ec╱,╱ // 0x1e59 @0xc
0x1e4d…1e62 at000d = ╱31╱1╱ // 0x1e5a @0xd
0x1e4d…1e62 at000e = ╱37╱7╱ // 0x1e5b @0xe
0x1e4d…1e62 at000f = ╱fe00008805╱ // 0x1e5c @0xf
0x1e4d…1e62 at0014 = EOL // 0x1e61 @0x14
0x1e4d…1e62 }
0x1e62…1e6a abc1 2890 INPUT A$
0x1e62…1e6a LineComalBin {
0x1e62…1e6a ptr = 0xabc1 // 0x1e62 @0x0
0x1e62…1e6a lno = 0x0b4a // 0x1e64 @0x2
0x1e62…1e6a at0004 = ╱91╱ INPUT ╱ // 0x1e66 @0x4
0x1e62…1e6a at0005 = ╱41╱A╱ // 0x1e67 @0x5
0x1e62…1e6a at0006 = ╱ef╱$╱ // 0x1e68 @0x6
0x1e62…1e6a at0007 = EOL // 0x1e69 @0x7
0x1e62…1e6a }
0x1e6a…1e7a abd1 2900 EXEC NRTEST(A$)
0x1e6a…1e7a LineComalBin {
0x1e6a…1e7a ptr = 0xabd1 // 0x1e6a @0x0
0x1e6a…1e7a lno = 0x0b54 // 0x1e6c @0x2
0x1e6a…1e7a at0004 = ╱9d╱ EXEC ╱ // 0x1e6e @0x4
0x1e6a…1e7a at0005 = ╱4e╱N╱ // 0x1e6f @0x5
0x1e6a…1e7a at0006 = ╱52╱R╱ // 0x1e70 @0x6
0x1e6a…1e7a at0007 = ╱54╱T╱ // 0x1e71 @0x7
0x1e6a…1e7a at0008 = ╱45╱E╱ // 0x1e72 @0x8
0x1e6a…1e7a at0009 = ╱53╱S╱ // 0x1e73 @0x9
0x1e6a…1e7a at000a = ╱54╱T╱ // 0x1e74 @0xa
0x1e6a…1e7a at000b = ╱ed╱(╱ // 0x1e75 @0xb
0x1e6a…1e7a at000c = ╱41╱A╱ // 0x1e76 @0xc
0x1e6a…1e7a at000d = ╱ef╱$╱ // 0x1e77 @0xd
0x1e6a…1e7a at000e = ╱ee╱)╱ // 0x1e78 @0xe
0x1e6a…1e7a at000f = EOL // 0x1e79 @0xf
0x1e6a…1e7a }
0x1e7a…1e91 abe8 2910 UNTIL P=1 OR P=2
0x1e7a…1e91 LineComalBin {
0x1e7a…1e91 ptr = 0xabe8 // 0x1e7a @0x0
0x1e7a…1e91 lno = 0x0b5e // 0x1e7c @0x2
0x1e7a…1e91 at0004 = ╱98╱ UNTIL ╱ // 0x1e7e @0x4
0x1e7a…1e91 at0005 = ╱50╱P╱ // 0x1e7f @0x5
0x1e7a…1e91 at0006 = ╱dc╱=╱ // 0x1e80 @0x6
0x1e7a…1e91 at0007 = ╱31╱1╱ // 0x1e81 @0x7
0x1e7a…1e91 at0008 = ╱fe00008001╱ // 0x1e82 @0x8
0x1e7a…1e91 at000d = ╱db╱ OR ╱ // 0x1e87 @0xd
0x1e7a…1e91 at000e = ╱50╱P╱ // 0x1e88 @0xe
0x1e7a…1e91 at000f = ╱dc╱=╱ // 0x1e89 @0xf
0x1e7a…1e91 at0010 = ╱32╱2╱ // 0x1e8a @0x10
0x1e7a…1e91 at0011 = ╱fe00008002╱ // 0x1e8b @0x11
0x1e7a…1e91 at0016 = EOL // 0x1e90 @0x16
0x1e7a…1e91 }
0x1e91…1e9d abf4 2920 ORDEN=P
0x1e91…1e9d LineComalBin {
0x1e91…1e9d ptr = 0xabf4 // 0x1e91 @0x0
0x1e91…1e9d lno = 0x0b68 // 0x1e93 @0x2
0x1e91…1e9d at0004 = ╱4f╱O╱ // 0x1e95 @0x4
0x1e91…1e9d at0005 = ╱52╱R╱ // 0x1e96 @0x5
0x1e91…1e9d at0006 = ╱44╱D╱ // 0x1e97 @0x6
0x1e91…1e9d at0007 = ╱45╱E╱ // 0x1e98 @0x7
0x1e91…1e9d at0008 = ╱4e╱N╱ // 0x1e99 @0x8
0x1e91…1e9d at0009 = ╱dc╱=╱ // 0x1e9a @0x9
0x1e91…1e9d at000a = ╱50╱P╱ // 0x1e9b @0xa
0x1e91…1e9d at000b = EOL // 0x1e9c @0xb
0x1e91…1e9d }
0x1e9d…1ea3 abfa 2930 REPEAT
0x1e9d…1ea3 LineComalBin {
0x1e9d…1ea3 ptr = 0xabfa // 0x1e9d @0x0
0x1e9d…1ea3 lno = 0x0b72 // 0x1e9f @0x2
0x1e9d…1ea3 at0004 = ╱97╱ REPEAT ╱ // 0x1ea1 @0x4
0x1e9d…1ea3 at0005 = EOL // 0x1ea2 @0x5
0x1e9d…1ea3 }
0x1ea3…1ea9 ac00 2940 REPEAT
0x1ea3…1ea9 LineComalBin {
0x1ea3…1ea9 ptr = 0xac00 // 0x1ea3 @0x0
0x1ea3…1ea9 lno = 0x0b7c // 0x1ea5 @0x2
0x1ea3…1ea9 at0004 = ╱97╱ REPEAT ╱ // 0x1ea7 @0x4
0x1ea3…1ea9 at0005 = EOL // 0x1ea8 @0x5
0x1ea3…1ea9 }
0x1ea9…1ebe ac15 2950 CURSOR 13,19
0x1ea9…1ebe LineComalBin {
0x1ea9…1ebe ptr = 0xac15 // 0x1ea9 @0x0
0x1ea9…1ebe lno = 0x0b86 // 0x1eab @0x2
0x1ea9…1ebe at0004 = ╱a1╱ CURSOR ╱ // 0x1ead @0x4
0x1ea9…1ebe at0005 = ╱31╱1╱ // 0x1eae @0x5
0x1ea9…1ebe at0006 = ╱33╱3╱ // 0x1eaf @0x6
0x1ea9…1ebe at0007 = ╱fe0000d004╱ // 0x1eb0 @0x7
0x1ea9…1ebe at000c = ╱ec╱,╱ // 0x1eb5 @0xc
0x1ea9…1ebe at000d = ╱31╱1╱ // 0x1eb6 @0xd
0x1ea9…1ebe at000e = ╱39╱9╱ // 0x1eb7 @0xe
0x1ea9…1ebe at000f = ╱fe00009805╱ // 0x1eb8 @0xf
0x1ea9…1ebe at0014 = EOL // 0x1ebd @0x14
0x1ea9…1ebe }
0x1ebe…1ed1 ac28 2960 IF ORDEN=1 THEN
0x1ebe…1ed1 LineComalBin {
0x1ebe…1ed1 ptr = 0xac28 // 0x1ebe @0x0
0x1ebe…1ed1 lno = 0x0b90 // 0x1ec0 @0x2
0x1ebe…1ed1 at0004 = ╱9c╱ IF ╱ // 0x1ec2 @0x4
0x1ebe…1ed1 at0005 = ╱4f╱O╱ // 0x1ec3 @0x5
0x1ebe…1ed1 at0006 = ╱52╱R╱ // 0x1ec4 @0x6
0x1ebe…1ed1 at0007 = ╱44╱D╱ // 0x1ec5 @0x7
0x1ebe…1ed1 at0008 = ╱45╱E╱ // 0x1ec6 @0x8
0x1ebe…1ed1 at0009 = ╱4e╱N╱ // 0x1ec7 @0x9
0x1ebe…1ed1 at000a = ╱dc╱=╱ // 0x1ec8 @0xa
0x1ebe…1ed1 at000b = ╱31╱1╱ // 0x1ec9 @0xb
0x1ebe…1ed1 at000c = ╱fe00008001╱ // 0x1eca @0xc
0x1ebe…1ed1 at0011 = ╱b6╱ THEN ╱ // 0x1ecf @0x11
0x1ebe…1ed1 at0012 = EOL // 0x1ed0 @0x12
0x1ebe…1ed1 }
0x1ed1…1ef6 ac4d 2970 PRINT "Fra gruppenr : (0: Alle)"
0x1ed1…1ef6 LineComalBin {
0x1ed1…1ef6 ptr = 0xac4d // 0x1ed1 @0x0
0x1ed1…1ef6 lno = 0x0b9a // 0x1ed3 @0x2
0x1ed1…1ef6 at0004 = ╱92╱ PRINT ╱ // 0x1ed5 @0x4
0x1ed1…1ef6 at0005 = ╱22╱"╱ // 0x1ed6 @0x5
0x1ed1…1ef6 at0006 = ╱46╱F╱ // 0x1ed7 @0x6
0x1ed1…1ef6 at0007 = ╱72╱r╱ // 0x1ed8 @0x7
0x1ed1…1ef6 at0008 = ╱61╱a╱ // 0x1ed9 @0x8
0x1ed1…1ef6 at0009 = ╱20╱…╱ // 0x1eda @0x9
0x1ed1…1ef6 at000a = ╱67╱g╱ // 0x1edb @0xa
0x1ed1…1ef6 at000b = ╱72╱r╱ // 0x1edc @0xb
0x1ed1…1ef6 at000c = ╱75╱u╱ // 0x1edd @0xc
0x1ed1…1ef6 at000d = ╱70╱p╱ // 0x1ede @0xd
0x1ed1…1ef6 at000e = ╱70╱p╱ // 0x1edf @0xe
0x1ed1…1ef6 at000f = ╱65╱e╱ // 0x1ee0 @0xf
0x1ed1…1ef6 at0010 = ╱6e╱n╱ // 0x1ee1 @0x10
0x1ed1…1ef6 at0011 = ╱72╱r╱ // 0x1ee2 @0x11
0x1ed1…1ef6 at0012 = ╱20╱…╱ // 0x1ee3 @0x12
0x1ed1…1ef6 at0013 = ╱3a╱:╱ // 0x1ee4 @0x13
0x1ed1…1ef6 at0014 = ╱20╱…╱ // 0x1ee5 @0x14
0x1ed1…1ef6 at0015 = ╱20╱…╱ // 0x1ee6 @0x15
0x1ed1…1ef6 at0016 = ╱20╱…╱ // 0x1ee7 @0x16
0x1ed1…1ef6 at0017 = ╱20╱…╱ // 0x1ee8 @0x17
0x1ed1…1ef6 at0018 = ╱20╱…╱ // 0x1ee9 @0x18
0x1ed1…1ef6 at0019 = ╱20╱…╱ // 0x1eea @0x19
0x1ed1…1ef6 at001a = ╱28╱(╱ // 0x1eeb @0x1a
0x1ed1…1ef6 at001b = ╱30╱0╱ // 0x1eec @0x1b
0x1ed1…1ef6 at001c = ╱3a╱:╱ // 0x1eed @0x1c
0x1ed1…1ef6 at001d = ╱20╱…╱ // 0x1eee @0x1d
0x1ed1…1ef6 at001e = ╱41╱A╱ // 0x1eef @0x1e
0x1ed1…1ef6 at001f = ╱6c╱l╱ // 0x1ef0 @0x1f
0x1ed1…1ef6 at0020 = ╱6c╱l╱ // 0x1ef1 @0x20
0x1ed1…1ef6 at0021 = ╱65╱e╱ // 0x1ef2 @0x21
0x1ed1…1ef6 at0022 = ╱29╱)╱ // 0x1ef3 @0x22
0x1ed1…1ef6 at0023 = ╱22╱"╱ // 0x1ef4 @0x23
0x1ed1…1ef6 at0024 = EOL // 0x1ef5 @0x24
0x1ed1…1ef6 }
0x1ef6…1efc ac53 2980 ELSE
0x1ef6…1efc LineComalBin {
0x1ef6…1efc ptr = 0xac53 // 0x1ef6 @0x0
0x1ef6…1efc lno = 0x0ba4 // 0x1ef8 @0x2
0x1ef6…1efc at0004 = ╱9a╱ ELSE ╱ // 0x1efa @0x4
0x1ef6…1efc at0005 = EOL // 0x1efb @0x5
0x1ef6…1efc }
0x1efc…1f21 ac78 2990 PRINT "Fra kontonr : (0: Alle)"
0x1efc…1f21 LineComalBin {
0x1efc…1f21 ptr = 0xac78 // 0x1efc @0x0
0x1efc…1f21 lno = 0x0bae // 0x1efe @0x2
0x1efc…1f21 at0004 = ╱92╱ PRINT ╱ // 0x1f00 @0x4
0x1efc…1f21 at0005 = ╱22╱"╱ // 0x1f01 @0x5
0x1efc…1f21 at0006 = ╱46╱F╱ // 0x1f02 @0x6
0x1efc…1f21 at0007 = ╱72╱r╱ // 0x1f03 @0x7
0x1efc…1f21 at0008 = ╱61╱a╱ // 0x1f04 @0x8
0x1efc…1f21 at0009 = ╱20╱…╱ // 0x1f05 @0x9
0x1efc…1f21 at000a = ╱6b╱k╱ // 0x1f06 @0xa
0x1efc…1f21 at000b = ╱6f╱o╱ // 0x1f07 @0xb
0x1efc…1f21 at000c = ╱6e╱n╱ // 0x1f08 @0xc
0x1efc…1f21 at000d = ╱74╱t╱ // 0x1f09 @0xd
0x1efc…1f21 at000e = ╱6f╱o╱ // 0x1f0a @0xe
0x1efc…1f21 at000f = ╱6e╱n╱ // 0x1f0b @0xf
0x1efc…1f21 at0010 = ╱72╱r╱ // 0x1f0c @0x10
0x1efc…1f21 at0011 = ╱20╱…╱ // 0x1f0d @0x11
0x1efc…1f21 at0012 = ╱20╱…╱ // 0x1f0e @0x12
0x1efc…1f21 at0013 = ╱3a╱:╱ // 0x1f0f @0x13
0x1efc…1f21 at0014 = ╱20╱…╱ // 0x1f10 @0x14
0x1efc…1f21 at0015 = ╱20╱…╱ // 0x1f11 @0x15
0x1efc…1f21 at0016 = ╱20╱…╱ // 0x1f12 @0x16
0x1efc…1f21 at0017 = ╱20╱…╱ // 0x1f13 @0x17
0x1efc…1f21 at0018 = ╱20╱…╱ // 0x1f14 @0x18
0x1efc…1f21 at0019 = ╱20╱…╱ // 0x1f15 @0x19
0x1efc…1f21 at001a = ╱28╱(╱ // 0x1f16 @0x1a
0x1efc…1f21 at001b = ╱30╱0╱ // 0x1f17 @0x1b
0x1efc…1f21 at001c = ╱3a╱:╱ // 0x1f18 @0x1c
0x1efc…1f21 at001d = ╱20╱…╱ // 0x1f19 @0x1d
0x1efc…1f21 at001e = ╱41╱A╱ // 0x1f1a @0x1e
0x1efc…1f21 at001f = ╱6c╱l╱ // 0x1f1b @0x1f
0x1efc…1f21 at0020 = ╱6c╱l╱ // 0x1f1c @0x20
0x1efc…1f21 at0021 = ╱65╱e╱ // 0x1f1d @0x21
0x1efc…1f21 at0022 = ╱29╱)╱ // 0x1f1e @0x22
0x1efc…1f21 at0023 = ╱22╱"╱ // 0x1f1f @0x23
0x1efc…1f21 at0024 = EOL // 0x1f20 @0x24
0x1efc…1f21 }
0x1f21…1f27 ac7e 3000 ENDIF
0x1f21…1f27 LineComalBin {
0x1f21…1f27 ptr = 0xac7e // 0x1f21 @0x0
0x1f21…1f27 lno = 0x0bb8 // 0x1f23 @0x2
0x1f21…1f27 at0004 = ╱9b╱ ENDIF ╱ // 0x1f25 @0x4
0x1f21…1f27 at0005 = EOL // 0x1f26 @0x5
0x1f21…1f27 }
0x1f27…1f3c ac93 3010 CURSOR 26,19
0x1f27…1f3c LineComalBin {
0x1f27…1f3c ptr = 0xac93 // 0x1f27 @0x0
0x1f27…1f3c lno = 0x0bc2 // 0x1f29 @0x2
0x1f27…1f3c at0004 = ╱a1╱ CURSOR ╱ // 0x1f2b @0x4
0x1f27…1f3c at0005 = ╱32╱2╱ // 0x1f2c @0x5
0x1f27…1f3c at0006 = ╱36╱6╱ // 0x1f2d @0x6
0x1f27…1f3c at0007 = ╱fe0000d005╱ // 0x1f2e @0x7
0x1f27…1f3c at000c = ╱ec╱,╱ // 0x1f33 @0xc
0x1f27…1f3c at000d = ╱31╱1╱ // 0x1f34 @0xd
0x1f27…1f3c at000e = ╱39╱9╱ // 0x1f35 @0xe
0x1f27…1f3c at000f = ╱fe00009805╱ // 0x1f36 @0xf
0x1f27…1f3c at0014 = EOL // 0x1f3b @0x14
0x1f27…1f3c }
0x1f3c…1f46 ac9d 3020 INPUT KTN$
0x1f3c…1f46 LineComalBin {
0x1f3c…1f46 ptr = 0xac9d // 0x1f3c @0x0
0x1f3c…1f46 lno = 0x0bcc // 0x1f3e @0x2
0x1f3c…1f46 at0004 = ╱91╱ INPUT ╱ // 0x1f40 @0x4
0x1f3c…1f46 at0005 = ╱4b╱K╱ // 0x1f41 @0x5
0x1f3c…1f46 at0006 = ╱54╱T╱ // 0x1f42 @0x6
0x1f3c…1f46 at0007 = ╱4e╱N╱ // 0x1f43 @0x7
0x1f3c…1f46 at0008 = ╱ef╱$╱ // 0x1f44 @0x8
0x1f3c…1f46 at0009 = EOL // 0x1f45 @0x9
0x1f3c…1f46 }
0x1f46…1f58 acaf 3030 EXEC NRTEST(KTN$)
0x1f46…1f58 LineComalBin {
0x1f46…1f58 ptr = 0xacaf // 0x1f46 @0x0
0x1f46…1f58 lno = 0x0bd6 // 0x1f48 @0x2
0x1f46…1f58 at0004 = ╱9d╱ EXEC ╱ // 0x1f4a @0x4
0x1f46…1f58 at0005 = ╱4e╱N╱ // 0x1f4b @0x5
0x1f46…1f58 at0006 = ╱52╱R╱ // 0x1f4c @0x6
0x1f46…1f58 at0007 = ╱54╱T╱ // 0x1f4d @0x7
0x1f46…1f58 at0008 = ╱45╱E╱ // 0x1f4e @0x8
0x1f46…1f58 at0009 = ╱53╱S╱ // 0x1f4f @0x9
0x1f46…1f58 at000a = ╱54╱T╱ // 0x1f50 @0xa
0x1f46…1f58 at000b = ╱ed╱(╱ // 0x1f51 @0xb
0x1f46…1f58 at000c = ╱4b╱K╱ // 0x1f52 @0xc
0x1f46…1f58 at000d = ╱54╱T╱ // 0x1f53 @0xd
0x1f46…1f58 at000e = ╱4e╱N╱ // 0x1f54 @0xe
0x1f46…1f58 at000f = ╱ef╱$╱ // 0x1f55 @0xf
0x1f46…1f58 at0010 = ╱ee╱)╱ // 0x1f56 @0x10
0x1f46…1f58 at0011 = EOL // 0x1f57 @0x11
0x1f46…1f58 }
0x1f58…1f9e acf5 3040 UNTIL P=0 OR (P>0 AND P<=MKGR AND ORDEN=1) OR (KTAL=DTAL AND ORDEN=2)
0x1f58…1f9e LineComalBin {
0x1f58…1f9e ptr = 0xacf5 // 0x1f58 @0x0
0x1f58…1f9e lno = 0x0be0 // 0x1f5a @0x2
0x1f58…1f9e at0004 = ╱98╱ UNTIL ╱ // 0x1f5c @0x4
0x1f58…1f9e at0005 = ╱50╱P╱ // 0x1f5d @0x5
0x1f58…1f9e at0006 = ╱dc╱=╱ // 0x1f5e @0x6
0x1f58…1f9e at0007 = ╱30╱0╱ // 0x1f5f @0x7
0x1f58…1f9e at0008 = ╱fe00000000╱ // 0x1f60 @0x8
0x1f58…1f9e at000d = ╱db╱ OR ╱ // 0x1f65 @0xd
0x1f58…1f9e at000e = ╱ed╱(╱ // 0x1f66 @0xe
0x1f58…1f9e at000f = ╱50╱P╱ // 0x1f67 @0xf
0x1f58…1f9e at0010 = ╱de╱>╱ // 0x1f68 @0x10
0x1f58…1f9e at0011 = ╱30╱0╱ // 0x1f69 @0x11
0x1f58…1f9e at0012 = ╱fe00000000╱ // 0x1f6a @0x12
0x1f58…1f9e at0017 = ╱da╱ AND ╱ // 0x1f6f @0x17
0x1f58…1f9e at0018 = ╱50╱P╱ // 0x1f70 @0x18
0x1f58…1f9e at0019 = ╱df╱<=╱ // 0x1f71 @0x19
0x1f58…1f9e at001a = ╱4d╱M╱ // 0x1f72 @0x1a
0x1f58…1f9e at001b = ╱4b╱K╱ // 0x1f73 @0x1b
0x1f58…1f9e at001c = ╱47╱G╱ // 0x1f74 @0x1c
0x1f58…1f9e at001d = ╱52╱R╱ // 0x1f75 @0x1d
0x1f58…1f9e at001e = ╱da╱ AND ╱ // 0x1f76 @0x1e
0x1f58…1f9e at001f = ╱4f╱O╱ // 0x1f77 @0x1f
0x1f58…1f9e at0020 = ╱52╱R╱ // 0x1f78 @0x20
0x1f58…1f9e at0021 = ╱44╱D╱ // 0x1f79 @0x21
0x1f58…1f9e at0022 = ╱45╱E╱ // 0x1f7a @0x22
0x1f58…1f9e at0023 = ╱4e╱N╱ // 0x1f7b @0x23
0x1f58…1f9e at0024 = ╱dc╱=╱ // 0x1f7c @0x24
0x1f58…1f9e at0025 = ╱31╱1╱ // 0x1f7d @0x25
0x1f58…1f9e at0026 = ╱fe00008001╱ // 0x1f7e @0x26
0x1f58…1f9e at002b = ╱ee╱)╱ // 0x1f83 @0x2b
0x1f58…1f9e at002c = ╱db╱ OR ╱ // 0x1f84 @0x2c
0x1f58…1f9e at002d = ╱ed╱(╱ // 0x1f85 @0x2d
0x1f58…1f9e at002e = ╱4b╱K╱ // 0x1f86 @0x2e
0x1f58…1f9e at002f = ╱54╱T╱ // 0x1f87 @0x2f
0x1f58…1f9e at0030 = ╱41╱A╱ // 0x1f88 @0x30
0x1f58…1f9e at0031 = ╱4c╱L╱ // 0x1f89 @0x31
0x1f58…1f9e at0032 = ╱dc╱=╱ // 0x1f8a @0x32
0x1f58…1f9e at0033 = ╱44╱D╱ // 0x1f8b @0x33
0x1f58…1f9e at0034 = ╱54╱T╱ // 0x1f8c @0x34
0x1f58…1f9e at0035 = ╱41╱A╱ // 0x1f8d @0x35
0x1f58…1f9e at0036 = ╱4c╱L╱ // 0x1f8e @0x36
0x1f58…1f9e at0037 = ╱da╱ AND ╱ // 0x1f8f @0x37
0x1f58…1f9e at0038 = ╱4f╱O╱ // 0x1f90 @0x38
0x1f58…1f9e at0039 = ╱52╱R╱ // 0x1f91 @0x39
0x1f58…1f9e at003a = ╱44╱D╱ // 0x1f92 @0x3a
0x1f58…1f9e at003b = ╱45╱E╱ // 0x1f93 @0x3b
0x1f58…1f9e at003c = ╱4e╱N╱ // 0x1f94 @0x3c
0x1f58…1f9e at003d = ╱dc╱=╱ // 0x1f95 @0x3d
0x1f58…1f9e at003e = ╱32╱2╱ // 0x1f96 @0x3e
0x1f58…1f9e at003f = ╱fe00008002╱ // 0x1f97 @0x3f
0x1f58…1f9e at0044 = ╱ee╱)╱ // 0x1f9c @0x44
0x1f58…1f9e at0045 = EOL // 0x1f9d @0x45
0x1f58…1f9e }
0x1f9e…1fb1 ad08 3050 IF ORDEN=1 THEN
0x1f9e…1fb1 LineComalBin {
0x1f9e…1fb1 ptr = 0xad08 // 0x1f9e @0x0
0x1f9e…1fb1 lno = 0x0bea // 0x1fa0 @0x2
0x1f9e…1fb1 at0004 = ╱9c╱ IF ╱ // 0x1fa2 @0x4
0x1f9e…1fb1 at0005 = ╱4f╱O╱ // 0x1fa3 @0x5
0x1f9e…1fb1 at0006 = ╱52╱R╱ // 0x1fa4 @0x6
0x1f9e…1fb1 at0007 = ╱44╱D╱ // 0x1fa5 @0x7
0x1f9e…1fb1 at0008 = ╱45╱E╱ // 0x1fa6 @0x8
0x1f9e…1fb1 at0009 = ╱4e╱N╱ // 0x1fa7 @0x9
0x1f9e…1fb1 at000a = ╱dc╱=╱ // 0x1fa8 @0xa
0x1f9e…1fb1 at000b = ╱31╱1╱ // 0x1fa9 @0xb
0x1f9e…1fb1 at000c = ╱fe00008001╱ // 0x1faa @0xc
0x1f9e…1fb1 at0011 = ╱b6╱ THEN ╱ // 0x1faf @0x11
0x1f9e…1fb1 at0012 = EOL // 0x1fb0 @0x12
0x1f9e…1fb1 }
0x1fb1…1fc0 ad17 3060 IF P=0 THEN
0x1fb1…1fc0 LineComalBin {
0x1fb1…1fc0 ptr = 0xad17 // 0x1fb1 @0x0
0x1fb1…1fc0 lno = 0x0bf4 // 0x1fb3 @0x2
0x1fb1…1fc0 at0004 = ╱9c╱ IF ╱ // 0x1fb5 @0x4
0x1fb1…1fc0 at0005 = ╱50╱P╱ // 0x1fb6 @0x5
0x1fb1…1fc0 at0006 = ╱dc╱=╱ // 0x1fb7 @0x6
0x1fb1…1fc0 at0007 = ╱30╱0╱ // 0x1fb8 @0x7
0x1fb1…1fc0 at0008 = ╱fe00000000╱ // 0x1fb9 @0x8
0x1fb1…1fc0 at000d = ╱b6╱ THEN ╱ // 0x1fbe @0xd
0x1fb1…1fc0 at000e = EOL // 0x1fbf @0xe
0x1fb1…1fc0 }
0x1fc0…1fd8 ad2f 3070 FRA=1;TIL=MKGR
0x1fc0…1fd8 LineComalBin {
0x1fc0…1fd8 ptr = 0xad2f // 0x1fc0 @0x0
0x1fc0…1fd8 lno = 0x0bfe // 0x1fc2 @0x2
0x1fc0…1fd8 at0004 = ╱46╱F╱ // 0x1fc4 @0x4
0x1fc0…1fd8 at0005 = ╱52╱R╱ // 0x1fc5 @0x5
0x1fc0…1fd8 at0006 = ╱41╱A╱ // 0x1fc6 @0x6
0x1fc0…1fd8 at0007 = ╱dc╱=╱ // 0x1fc7 @0x7
0x1fc0…1fd8 at0008 = ╱31╱1╱ // 0x1fc8 @0x8
0x1fc0…1fd8 at0009 = ╱fe00008001╱ // 0x1fc9 @0x9
0x1fc0…1fd8 at000e = ╱eb╱;╱ // 0x1fce @0xe
0x1fc0…1fd8 at000f = ╱54╱T╱ // 0x1fcf @0xf
0x1fc0…1fd8 at0010 = ╱49╱I╱ // 0x1fd0 @0x10
0x1fc0…1fd8 at0011 = ╱4c╱L╱ // 0x1fd1 @0x11
0x1fc0…1fd8 at0012 = ╱dc╱=╱ // 0x1fd2 @0x12
0x1fc0…1fd8 at0013 = ╱4d╱M╱ // 0x1fd3 @0x13
0x1fc0…1fd8 at0014 = ╱4b╱K╱ // 0x1fd4 @0x14
0x1fc0…1fd8 at0015 = ╱47╱G╱ // 0x1fd5 @0x15
0x1fc0…1fd8 at0016 = ╱52╱R╱ // 0x1fd6 @0x16
0x1fc0…1fd8 at0017 = EOL // 0x1fd7 @0x17
0x1fc0…1fd8 }
0x1fd8…1fde ad35 3080 ELSE
0x1fd8…1fde LineComalBin {
0x1fd8…1fde ptr = 0xad35 // 0x1fd8 @0x0
0x1fd8…1fde lno = 0x0c08 // 0x1fda @0x2
0x1fd8…1fde at0004 = ╱9a╱ ELSE ╱ // 0x1fdc @0x4
0x1fd8…1fde at0005 = EOL // 0x1fdd @0x5
0x1fd8…1fde }
0x1fde…1fe8 ad3f 3090 FRA=P
0x1fde…1fe8 LineComalBin {
0x1fde…1fe8 ptr = 0xad3f // 0x1fde @0x0
0x1fde…1fe8 lno = 0x0c12 // 0x1fe0 @0x2
0x1fde…1fe8 at0004 = ╱46╱F╱ // 0x1fe2 @0x4
0x1fde…1fe8 at0005 = ╱52╱R╱ // 0x1fe3 @0x5
0x1fde…1fe8 at0006 = ╱41╱A╱ // 0x1fe4 @0x6
0x1fde…1fe8 at0007 = ╱dc╱=╱ // 0x1fe5 @0x7
0x1fde…1fe8 at0008 = ╱50╱P╱ // 0x1fe6 @0x8
0x1fde…1fe8 at0009 = EOL // 0x1fe7 @0x9
0x1fde…1fe8 }
0x1fe8…1fee ad45 3100 ENDIF
0x1fe8…1fee LineComalBin {
0x1fe8…1fee ptr = 0xad45 // 0x1fe8 @0x0
0x1fe8…1fee lno = 0x0c1c // 0x1fea @0x2
0x1fe8…1fee at0004 = ╱9b╱ ENDIF ╱ // 0x1fec @0x4
0x1fe8…1fee at0005 = EOL // 0x1fed @0x5
0x1fe8…1fee }
0x1fee…1ff4 ad4b 3110 ELSE
0x1fee…1ff4 LineComalBin {
0x1fee…1ff4 ptr = 0xad4b // 0x1fee @0x0
0x1fee…1ff4 lno = 0x0c26 // 0x1ff0 @0x2
0x1fee…1ff4 at0004 = ╱9a╱ ELSE ╱ // 0x1ff2 @0x4
0x1fee…1ff4 at0005 = EOL // 0x1ff3 @0x5
0x1fee…1ff4 }
0x1ff4…2003 ad5a 3120 IF P=0 THEN
0x1ff4…2003 LineComalBin {
0x1ff4…2003 ptr = 0xad5a // 0x1ff4 @0x0
0x1ff4…2003 lno = 0x0c30 // 0x1ff6 @0x2
0x1ff4…2003 at0004 = ╱9c╱ IF ╱ // 0x1ff8 @0x4
0x1ff4…2003 at0005 = ╱50╱P╱ // 0x1ff9 @0x5
0x1ff4…2003 at0006 = ╱dc╱=╱ // 0x1ffa @0x6
0x1ff4…2003 at0007 = ╱30╱0╱ // 0x1ffb @0x7
0x1ff4…2003 at0008 = ╱fe00000000╱ // 0x1ffc @0x8
0x1ff4…2003 at000d = ╱b6╱ THEN ╱ // 0x2001 @0xd
0x1ff4…2003 at000e = EOL // 0x2002 @0xe
0x1ff4…2003 }
0x2003…201b ad72 3130 FRA=1;TIL=ADEB
0x2003…201b LineComalBin {
0x2003…201b ptr = 0xad72 // 0x2003 @0x0
0x2003…201b lno = 0x0c3a // 0x2005 @0x2
0x2003…201b at0004 = ╱46╱F╱ // 0x2007 @0x4
0x2003…201b at0005 = ╱52╱R╱ // 0x2008 @0x5
0x2003…201b at0006 = ╱41╱A╱ // 0x2009 @0x6
0x2003…201b at0007 = ╱dc╱=╱ // 0x200a @0x7
0x2003…201b at0008 = ╱31╱1╱ // 0x200b @0x8
0x2003…201b at0009 = ╱fe00008001╱ // 0x200c @0x9
0x2003…201b at000e = ╱eb╱;╱ // 0x2011 @0xe
0x2003…201b at000f = ╱54╱T╱ // 0x2012 @0xf
0x2003…201b at0010 = ╱49╱I╱ // 0x2013 @0x10
0x2003…201b at0011 = ╱4c╱L╱ // 0x2014 @0x11
0x2003…201b at0012 = ╱dc╱=╱ // 0x2015 @0x12
0x2003…201b at0013 = ╱41╱A╱ // 0x2016 @0x13
0x2003…201b at0014 = ╱44╱D╱ // 0x2017 @0x14
0x2003…201b at0015 = ╱45╱E╱ // 0x2018 @0x15
0x2003…201b at0016 = ╱42╱B╱ // 0x2019 @0x16
0x2003…201b at0017 = EOL // 0x201a @0x17
0x2003…201b }
0x201b…2021 ad78 3140 ELSE
0x201b…2021 LineComalBin {
0x201b…2021 ptr = 0xad78 // 0x201b @0x0
0x201b…2021 lno = 0x0c44 // 0x201d @0x2
0x201b…2021 at0004 = ╱9a╱ ELSE ╱ // 0x201f @0x4
0x201b…2021 at0005 = EOL // 0x2020 @0x5
0x201b…2021 }
0x2021…203b ad92 3150 IF DTAB(ADEB,1)<P THEN
0x2021…203b LineComalBin {
0x2021…203b ptr = 0xad92 // 0x2021 @0x0
0x2021…203b lno = 0x0c4e // 0x2023 @0x2
0x2021…203b at0004 = ╱9c╱ IF ╱ // 0x2025 @0x4
0x2021…203b at0005 = ╱44╱D╱ // 0x2026 @0x5
0x2021…203b at0006 = ╱54╱T╱ // 0x2027 @0x6
0x2021…203b at0007 = ╱41╱A╱ // 0x2028 @0x7
0x2021…203b at0008 = ╱42╱B╱ // 0x2029 @0x8
0x2021…203b at0009 = ╱ed╱(╱ // 0x202a @0x9
0x2021…203b at000a = ╱41╱A╱ // 0x202b @0xa
0x2021…203b at000b = ╱44╱D╱ // 0x202c @0xb
0x2021…203b at000c = ╱45╱E╱ // 0x202d @0xc
0x2021…203b at000d = ╱42╱B╱ // 0x202e @0xd
0x2021…203b at000e = ╱ec╱,╱ // 0x202f @0xe
0x2021…203b at000f = ╱31╱1╱ // 0x2030 @0xf
0x2021…203b at0010 = ╱fe00008001╱ // 0x2031 @0x10
0x2021…203b at0015 = ╱ee╱)╱ // 0x2036 @0x15
0x2021…203b at0016 = ╱dd╱<╱ // 0x2037 @0x16
0x2021…203b at0017 = ╱50╱P╱ // 0x2038 @0x17
0x2021…203b at0018 = ╱b6╱ THEN ╱ // 0x2039 @0x18
0x2021…203b at0019 = EOL // 0x203a @0x19
0x2021…203b }
0x203b…204a ada1 3160 FRA=0
0x203b…204a LineComalBin {
0x203b…204a ptr = 0xada1 // 0x203b @0x0
0x203b…204a lno = 0x0c58 // 0x203d @0x2
0x203b…204a at0004 = ╱46╱F╱ // 0x203f @0x4
0x203b…204a at0005 = ╱52╱R╱ // 0x2040 @0x5
0x203b…204a at0006 = ╱41╱A╱ // 0x2041 @0x6
0x203b…204a at0007 = ╱dc╱=╱ // 0x2042 @0x7
0x203b…204a at0008 = ╱30╱0╱ // 0x2043 @0x8
0x203b…204a at0009 = ╱fe00000000╱ // 0x2044 @0x9
0x203b…204a at000e = EOL // 0x2049 @0xe
0x203b…204a }
0x204a…2050 ada7 3170 ELSE
0x204a…2050 LineComalBin {
0x204a…2050 ptr = 0xada7 // 0x204a @0x0
0x204a…2050 lno = 0x0c62 // 0x204c @0x2
0x204a…2050 at0004 = ╱9a╱ ELSE ╱ // 0x204e @0x4
0x204a…2050 at0005 = EOL // 0x204f @0x5
0x204a…2050 }
0x2050…2074 adcb 3180 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3)
0x2050…2074 LineComalBin {
0x2050…2074 ptr = 0xadcb // 0x2050 @0x0
0x2050…2074 lno = 0x0c6c // 0x2052 @0x2
0x2050…2074 at0004 = ╱9d╱ EXEC ╱ // 0x2054 @0x4
0x2050…2074 at0005 = ╱46╱F╱ // 0x2055 @0x5
0x2050…2074 at0006 = ╱49╱I╱ // 0x2056 @0x6
0x2050…2074 at0007 = ╱4e╱N╱ // 0x2057 @0x7
0x2050…2074 at0008 = ╱44╱D╱ // 0x2058 @0x8
0x2050…2074 at0009 = ╱50╱P╱ // 0x2059 @0x9
0x2050…2074 at000a = ╱4f╱O╱ // 0x205a @0xa
0x2050…2074 at000b = ╱53╱S╱ // 0x205b @0xb
0x2050…2074 at000c = ╱54╱T╱ // 0x205c @0xc
0x2050…2074 at000d = ╱ed╱(╱ // 0x205d @0xd
0x2050…2074 at000e = ╱44╱D╱ // 0x205e @0xe
0x2050…2074 at000f = ╱54╱T╱ // 0x205f @0xf
0x2050…2074 at0010 = ╱41╱A╱ // 0x2060 @0x10
0x2050…2074 at0011 = ╱42╱B╱ // 0x2061 @0x11
0x2050…2074 at0012 = ╱ec╱,╱ // 0x2062 @0x12
0x2050…2074 at0013 = ╱4d╱M╱ // 0x2063 @0x13
0x2050…2074 at0014 = ╱44╱D╱ // 0x2064 @0x14
0x2050…2074 at0015 = ╱41╱A╱ // 0x2065 @0x15
0x2050…2074 at0016 = ╱4e╱N╱ // 0x2066 @0x16
0x2050…2074 at0017 = ╱54╱T╱ // 0x2067 @0x17
0x2050…2074 at0018 = ╱41╱A╱ // 0x2068 @0x18
0x2050…2074 at0019 = ╱4c╱L╱ // 0x2069 @0x19
0x2050…2074 at001a = ╱ec╱,╱ // 0x206a @0x1a
0x2050…2074 at001b = ╱50╱P╱ // 0x206b @0x1b
0x2050…2074 at001c = ╱ec╱,╱ // 0x206c @0x1c
0x2050…2074 at001d = ╱44╱D╱ // 0x206d @0x1d
0x2050…2074 at001e = ╱50╱P╱ // 0x206e @0x1e
0x2050…2074 at001f = ╱49╱I╱ // 0x206f @0x1f
0x2050…2074 at0020 = ╱4c╱L╱ // 0x2070 @0x20
0x2050…2074 at0021 = ╱33╱3╱ // 0x2071 @0x21
0x2050…2074 at0022 = ╱ee╱)╱ // 0x2072 @0x22
0x2050…2074 at0023 = EOL // 0x2073 @0x23
0x2050…2074 }
0x2074…2086 addd 3190 IF CEKS=0 THEN
0x2074…2086 LineComalBin {
0x2074…2086 ptr = 0xaddd // 0x2074 @0x0
0x2074…2086 lno = 0x0c76 // 0x2076 @0x2
0x2074…2086 at0004 = ╱9c╱ IF ╱ // 0x2078 @0x4
0x2074…2086 at0005 = ╱43╱C╱ // 0x2079 @0x5
0x2074…2086 at0006 = ╱45╱E╱ // 0x207a @0x6
0x2074…2086 at0007 = ╱4b╱K╱ // 0x207b @0x7
0x2074…2086 at0008 = ╱53╱S╱ // 0x207c @0x8
0x2074…2086 at0009 = ╱dc╱=╱ // 0x207d @0x9
0x2074…2086 at000a = ╱30╱0╱ // 0x207e @0xa
0x2074…2086 at000b = ╱fe00000000╱ // 0x207f @0xb
0x2074…2086 at0010 = ╱b6╱ THEN ╱ // 0x2084 @0x10
0x2074…2086 at0011 = EOL // 0x2085 @0x11
0x2074…2086 }
0x2086…2094 adeb 3200 FRA=DPIL3
0x2086…2094 LineComalBin {
0x2086…2094 ptr = 0xadeb // 0x2086 @0x0
0x2086…2094 lno = 0x0c80 // 0x2088 @0x2
0x2086…2094 at0004 = ╱46╱F╱ // 0x208a @0x4
0x2086…2094 at0005 = ╱52╱R╱ // 0x208b @0x5
0x2086…2094 at0006 = ╱41╱A╱ // 0x208c @0x6
0x2086…2094 at0007 = ╱dc╱=╱ // 0x208d @0x7
0x2086…2094 at0008 = ╱44╱D╱ // 0x208e @0x8
0x2086…2094 at0009 = ╱50╱P╱ // 0x208f @0x9
0x2086…2094 at000a = ╱49╱I╱ // 0x2090 @0xa
0x2086…2094 at000b = ╱4c╱L╱ // 0x2091 @0xb
0x2086…2094 at000c = ╱33╱3╱ // 0x2092 @0xc
0x2086…2094 at000d = EOL // 0x2093 @0xd
0x2086…2094 }
0x2094…209a adf1 3210 ELSE
0x2094…209a LineComalBin {
0x2094…209a ptr = 0xadf1 // 0x2094 @0x0
0x2094…209a lno = 0x0c8a // 0x2096 @0x2
0x2094…209a at0004 = ╱9a╱ ELSE ╱ // 0x2098 @0x4
0x2094…209a at0005 = EOL // 0x2099 @0x5
0x2094…209a }
0x209a…20af ae06 3220 FRA=DPIL3+1
0x209a…20af LineComalBin {
0x209a…20af ptr = 0xae06 // 0x209a @0x0
0x209a…20af lno = 0x0c94 // 0x209c @0x2
0x209a…20af at0004 = ╱46╱F╱ // 0x209e @0x4
0x209a…20af at0005 = ╱52╱R╱ // 0x209f @0x5
0x209a…20af at0006 = ╱41╱A╱ // 0x20a0 @0x6
0x209a…20af at0007 = ╱dc╱=╱ // 0x20a1 @0x7
0x209a…20af at0008 = ╱44╱D╱ // 0x20a2 @0x8
0x209a…20af at0009 = ╱50╱P╱ // 0x20a3 @0x9
0x209a…20af at000a = ╱49╱I╱ // 0x20a4 @0xa
0x209a…20af at000b = ╱4c╱L╱ // 0x20a5 @0xb
0x209a…20af at000c = ╱33╱3╱ // 0x20a6 @0xc
0x209a…20af at000d = ╱e2╱+╱ // 0x20a7 @0xd
0x209a…20af at000e = ╱31╱1╱ // 0x20a8 @0xe
0x209a…20af at000f = ╱fe00008001╱ // 0x20a9 @0xf
0x209a…20af at0014 = EOL // 0x20ae @0x14
0x209a…20af }
0x20af…20b5 ae0c 3230 ENDIF
0x20af…20b5 LineComalBin {
0x20af…20b5 ptr = 0xae0c // 0x20af @0x0
0x20af…20b5 lno = 0x0c9e // 0x20b1 @0x2
0x20af…20b5 at0004 = ╱9b╱ ENDIF ╱ // 0x20b3 @0x4
0x20af…20b5 at0005 = EOL // 0x20b4 @0x5
0x20af…20b5 }
0x20b5…20bb ae12 3240 ENDIF
0x20b5…20bb LineComalBin {
0x20b5…20bb ptr = 0xae12 // 0x20b5 @0x0
0x20b5…20bb lno = 0x0ca8 // 0x20b7 @0x2
0x20b5…20bb at0004 = ╱9b╱ ENDIF ╱ // 0x20b9 @0x4
0x20b5…20bb at0005 = EOL // 0x20ba @0x5
0x20b5…20bb }
0x20bb…20c1 ae18 3250 ENDIF
0x20bb…20c1 LineComalBin {
0x20bb…20c1 ptr = 0xae18 // 0x20bb @0x0
0x20bb…20c1 lno = 0x0cb2 // 0x20bd @0x2
0x20bb…20c1 at0004 = ╱9b╱ ENDIF ╱ // 0x20bf @0x4
0x20bb…20c1 at0005 = EOL // 0x20c0 @0x5
0x20bb…20c1 }
0x20c1…20c7 ae1e 3260 ENDIF
0x20c1…20c7 LineComalBin {
0x20c1…20c7 ptr = 0xae1e // 0x20c1 @0x0
0x20c1…20c7 lno = 0x0cbc // 0x20c3 @0x2
0x20c1…20c7 at0004 = ╱9b╱ ENDIF ╱ // 0x20c5 @0x4
0x20c1…20c7 at0005 = EOL // 0x20c6 @0x5
0x20c1…20c7 }
0x20c7…20d7 ae2e 3270 UNTIL FRA<>0
0x20c7…20d7 LineComalBin {
0x20c7…20d7 ptr = 0xae2e // 0x20c7 @0x0
0x20c7…20d7 lno = 0x0cc6 // 0x20c9 @0x2
0x20c7…20d7 at0004 = ╱98╱ UNTIL ╱ // 0x20cb @0x4
0x20c7…20d7 at0005 = ╱46╱F╱ // 0x20cc @0x5
0x20c7…20d7 at0006 = ╱52╱R╱ // 0x20cd @0x6
0x20c7…20d7 at0007 = ╱41╱A╱ // 0x20ce @0x7
0x20c7…20d7 at0008 = ╱e1╱<>╱ // 0x20cf @0x8
0x20c7…20d7 at0009 = ╱30╱0╱ // 0x20d0 @0x9
0x20c7…20d7 at000a = ╱fe00000000╱ // 0x20d1 @0xa
0x20c7…20d7 at000f = EOL // 0x20d6 @0xf
0x20c7…20d7 }
0x20d7…20e6 ae3d 3280 IF P>0 THEN
0x20d7…20e6 LineComalBin {
0x20d7…20e6 ptr = 0xae3d // 0x20d7 @0x0
0x20d7…20e6 lno = 0x0cd0 // 0x20d9 @0x2
0x20d7…20e6 at0004 = ╱9c╱ IF ╱ // 0x20db @0x4
0x20d7…20e6 at0005 = ╱50╱P╱ // 0x20dc @0x5
0x20d7…20e6 at0006 = ╱de╱>╱ // 0x20dd @0x6
0x20d7…20e6 at0007 = ╱30╱0╱ // 0x20de @0x7
0x20d7…20e6 at0008 = ╱fe00000000╱ // 0x20df @0x8
0x20d7…20e6 at000d = ╱b6╱ THEN ╱ // 0x20e4 @0xd
0x20d7…20e6 at000e = EOL // 0x20e5 @0xe
0x20d7…20e6 }
0x20e6…20ec ae43 3290 REPEAT
0x20e6…20ec LineComalBin {
0x20e6…20ec ptr = 0xae43 // 0x20e6 @0x0
0x20e6…20ec lno = 0x0cda // 0x20e8 @0x2
0x20e6…20ec at0004 = ╱97╱ REPEAT ╱ // 0x20ea @0x4
0x20e6…20ec at0005 = EOL // 0x20eb @0x5
0x20e6…20ec }
0x20ec…20f2 ae49 3300 REPEAT
0x20ec…20f2 LineComalBin {
0x20ec…20f2 ptr = 0xae49 // 0x20ec @0x0
0x20ec…20f2 lno = 0x0ce4 // 0x20ee @0x2
0x20ec…20f2 at0004 = ╱97╱ REPEAT ╱ // 0x20f0 @0x4
0x20ec…20f2 at0005 = EOL // 0x20f1 @0x5
0x20ec…20f2 }
0x20f2…2107 ae5e 3310 CURSOR 13,21
0x20f2…2107 LineComalBin {
0x20f2…2107 ptr = 0xae5e // 0x20f2 @0x0
0x20f2…2107 lno = 0x0cee // 0x20f4 @0x2
0x20f2…2107 at0004 = ╱a1╱ CURSOR ╱ // 0x20f6 @0x4
0x20f2…2107 at0005 = ╱31╱1╱ // 0x20f7 @0x5
0x20f2…2107 at0006 = ╱33╱3╱ // 0x20f8 @0x6
0x20f2…2107 at0007 = ╱fe0000d004╱ // 0x20f9 @0x7
0x20f2…2107 at000c = ╱ec╱,╱ // 0x20fe @0xc
0x20f2…2107 at000d = ╱32╱2╱ // 0x20ff @0xd
0x20f2…2107 at000e = ╱31╱1╱ // 0x2100 @0xe
0x20f2…2107 at000f = ╱fe0000a805╱ // 0x2101 @0xf
0x20f2…2107 at0014 = EOL // 0x2106 @0x14
0x20f2…2107 }
0x2107…211a ae71 3320 IF ORDEN=1 THEN
0x2107…211a LineComalBin {
0x2107…211a ptr = 0xae71 // 0x2107 @0x0
0x2107…211a lno = 0x0cf8 // 0x2109 @0x2
0x2107…211a at0004 = ╱9c╱ IF ╱ // 0x210b @0x4
0x2107…211a at0005 = ╱4f╱O╱ // 0x210c @0x5
0x2107…211a at0006 = ╱52╱R╱ // 0x210d @0x6
0x2107…211a at0007 = ╱44╱D╱ // 0x210e @0x7
0x2107…211a at0008 = ╱45╱E╱ // 0x210f @0x8
0x2107…211a at0009 = ╱4e╱N╱ // 0x2110 @0x9
0x2107…211a at000a = ╱dc╱=╱ // 0x2111 @0xa
0x2107…211a at000b = ╱31╱1╱ // 0x2112 @0xb
0x2107…211a at000c = ╱fe00008001╱ // 0x2113 @0xc
0x2107…211a at0011 = ╱b6╱ THEN ╱ // 0x2118 @0x11
0x2107…211a at0012 = EOL // 0x2119 @0x12
0x2107…211a }
0x211a…2135 ae8c 3330 INPUT "Til gruppenr :",KTN$
0x211a…2135 LineComalBin {
0x211a…2135 ptr = 0xae8c // 0x211a @0x0
0x211a…2135 lno = 0x0d02 // 0x211c @0x2
0x211a…2135 at0004 = ╱91╱ INPUT ╱ // 0x211e @0x4
0x211a…2135 at0005 = ╱22╱"╱ // 0x211f @0x5
0x211a…2135 at0006 = ╱54╱T╱ // 0x2120 @0x6
0x211a…2135 at0007 = ╱69╱i╱ // 0x2121 @0x7
0x211a…2135 at0008 = ╱6c╱l╱ // 0x2122 @0x8
0x211a…2135 at0009 = ╱20╱…╱ // 0x2123 @0x9
0x211a…2135 at000a = ╱67╱g╱ // 0x2124 @0xa
0x211a…2135 at000b = ╱72╱r╱ // 0x2125 @0xb
0x211a…2135 at000c = ╱75╱u╱ // 0x2126 @0xc
0x211a…2135 at000d = ╱70╱p╱ // 0x2127 @0xd
0x211a…2135 at000e = ╱70╱p╱ // 0x2128 @0xe
0x211a…2135 at000f = ╱65╱e╱ // 0x2129 @0xf
0x211a…2135 at0010 = ╱6e╱n╱ // 0x212a @0x10
0x211a…2135 at0011 = ╱72╱r╱ // 0x212b @0x11
0x211a…2135 at0012 = ╱20╱…╱ // 0x212c @0x12
0x211a…2135 at0013 = ╱3a╱:╱ // 0x212d @0x13
0x211a…2135 at0014 = ╱22╱"╱ // 0x212e @0x14
0x211a…2135 at0015 = ╱ec╱,╱ // 0x212f @0x15
0x211a…2135 at0016 = ╱4b╱K╱ // 0x2130 @0x16
0x211a…2135 at0017 = ╱54╱T╱ // 0x2131 @0x17
0x211a…2135 at0018 = ╱4e╱N╱ // 0x2132 @0x18
0x211a…2135 at0019 = ╱ef╱$╱ // 0x2133 @0x19
0x211a…2135 at001a = EOL // 0x2134 @0x1a
0x211a…2135 }
0x2135…213b ae92 3340 ELSE
0x2135…213b LineComalBin {
0x2135…213b ptr = 0xae92 // 0x2135 @0x0
0x2135…213b lno = 0x0d0c // 0x2137 @0x2
0x2135…213b at0004 = ╱9a╱ ELSE ╱ // 0x2139 @0x4
0x2135…213b at0005 = EOL // 0x213a @0x5
0x2135…213b }
0x213b…2156 aead 3350 INPUT "Til kontonr :",KTN$
0x213b…2156 LineComalBin {
0x213b…2156 ptr = 0xaead // 0x213b @0x0
0x213b…2156 lno = 0x0d16 // 0x213d @0x2
0x213b…2156 at0004 = ╱91╱ INPUT ╱ // 0x213f @0x4
0x213b…2156 at0005 = ╱22╱"╱ // 0x2140 @0x5
0x213b…2156 at0006 = ╱54╱T╱ // 0x2141 @0x6
0x213b…2156 at0007 = ╱69╱i╱ // 0x2142 @0x7
0x213b…2156 at0008 = ╱6c╱l╱ // 0x2143 @0x8
0x213b…2156 at0009 = ╱20╱…╱ // 0x2144 @0x9
0x213b…2156 at000a = ╱6b╱k╱ // 0x2145 @0xa
0x213b…2156 at000b = ╱6f╱o╱ // 0x2146 @0xb
0x213b…2156 at000c = ╱6e╱n╱ // 0x2147 @0xc
0x213b…2156 at000d = ╱74╱t╱ // 0x2148 @0xd
0x213b…2156 at000e = ╱6f╱o╱ // 0x2149 @0xe
0x213b…2156 at000f = ╱6e╱n╱ // 0x214a @0xf
0x213b…2156 at0010 = ╱72╱r╱ // 0x214b @0x10
0x213b…2156 at0011 = ╱20╱…╱ // 0x214c @0x11
0x213b…2156 at0012 = ╱20╱…╱ // 0x214d @0x12
0x213b…2156 at0013 = ╱3a╱:╱ // 0x214e @0x13
0x213b…2156 at0014 = ╱22╱"╱ // 0x214f @0x14
0x213b…2156 at0015 = ╱ec╱,╱ // 0x2150 @0x15
0x213b…2156 at0016 = ╱4b╱K╱ // 0x2151 @0x16
0x213b…2156 at0017 = ╱54╱T╱ // 0x2152 @0x17
0x213b…2156 at0018 = ╱4e╱N╱ // 0x2153 @0x18
0x213b…2156 at0019 = ╱ef╱$╱ // 0x2154 @0x19
0x213b…2156 at001a = EOL // 0x2155 @0x1a
0x213b…2156 }
0x2156…215c aeb3 3360 ENDIF
0x2156…215c LineComalBin {
0x2156…215c ptr = 0xaeb3 // 0x2156 @0x0
0x2156…215c lno = 0x0d20 // 0x2158 @0x2
0x2156…215c at0004 = ╱9b╱ ENDIF ╱ // 0x215a @0x4
0x2156…215c at0005 = EOL // 0x215b @0x5
0x2156…215c }
0x215c…216e aec5 3370 EXEC NRTEST(KTN$)
0x215c…216e LineComalBin {
0x215c…216e ptr = 0xaec5 // 0x215c @0x0
0x215c…216e lno = 0x0d2a // 0x215e @0x2
0x215c…216e at0004 = ╱9d╱ EXEC ╱ // 0x2160 @0x4
0x215c…216e at0005 = ╱4e╱N╱ // 0x2161 @0x5
0x215c…216e at0006 = ╱52╱R╱ // 0x2162 @0x6
0x215c…216e at0007 = ╱54╱T╱ // 0x2163 @0x7
0x215c…216e at0008 = ╱45╱E╱ // 0x2164 @0x8
0x215c…216e at0009 = ╱53╱S╱ // 0x2165 @0x9
0x215c…216e at000a = ╱54╱T╱ // 0x2166 @0xa
0x215c…216e at000b = ╱ed╱(╱ // 0x2167 @0xb
0x215c…216e at000c = ╱4b╱K╱ // 0x2168 @0xc
0x215c…216e at000d = ╱54╱T╱ // 0x2169 @0xd
0x215c…216e at000e = ╱4e╱N╱ // 0x216a @0xe
0x215c…216e at000f = ╱ef╱$╱ // 0x216b @0xf
0x215c…216e at0010 = ╱ee╱)╱ // 0x216c @0x10
0x215c…216e at0011 = EOL // 0x216d @0x11
0x215c…216e }
0x216e…21ab af02 3380 UNTIL (P>0 AND P<=MKGR AND ORDEN=1) OR (KTAL=DTAL AND ORDEN=2)
0x216e…21ab LineComalBin {
0x216e…21ab ptr = 0xaf02 // 0x216e @0x0
0x216e…21ab lno = 0x0d34 // 0x2170 @0x2
0x216e…21ab at0004 = ╱98╱ UNTIL ╱ // 0x2172 @0x4
0x216e…21ab at0005 = ╱ed╱(╱ // 0x2173 @0x5
0x216e…21ab at0006 = ╱50╱P╱ // 0x2174 @0x6
0x216e…21ab at0007 = ╱de╱>╱ // 0x2175 @0x7
0x216e…21ab at0008 = ╱30╱0╱ // 0x2176 @0x8
0x216e…21ab at0009 = ╱fe00000000╱ // 0x2177 @0x9
0x216e…21ab at000e = ╱da╱ AND ╱ // 0x217c @0xe
0x216e…21ab at000f = ╱50╱P╱ // 0x217d @0xf
0x216e…21ab at0010 = ╱df╱<=╱ // 0x217e @0x10
0x216e…21ab at0011 = ╱4d╱M╱ // 0x217f @0x11
0x216e…21ab at0012 = ╱4b╱K╱ // 0x2180 @0x12
0x216e…21ab at0013 = ╱47╱G╱ // 0x2181 @0x13
0x216e…21ab at0014 = ╱52╱R╱ // 0x2182 @0x14
0x216e…21ab at0015 = ╱da╱ AND ╱ // 0x2183 @0x15
0x216e…21ab at0016 = ╱4f╱O╱ // 0x2184 @0x16
0x216e…21ab at0017 = ╱52╱R╱ // 0x2185 @0x17
0x216e…21ab at0018 = ╱44╱D╱ // 0x2186 @0x18
0x216e…21ab at0019 = ╱45╱E╱ // 0x2187 @0x19
0x216e…21ab at001a = ╱4e╱N╱ // 0x2188 @0x1a
0x216e…21ab at001b = ╱dc╱=╱ // 0x2189 @0x1b
0x216e…21ab at001c = ╱31╱1╱ // 0x218a @0x1c
0x216e…21ab at001d = ╱fe00008001╱ // 0x218b @0x1d
0x216e…21ab at0022 = ╱ee╱)╱ // 0x2190 @0x22
0x216e…21ab at0023 = ╱db╱ OR ╱ // 0x2191 @0x23
0x216e…21ab at0024 = ╱ed╱(╱ // 0x2192 @0x24
0x216e…21ab at0025 = ╱4b╱K╱ // 0x2193 @0x25
0x216e…21ab at0026 = ╱54╱T╱ // 0x2194 @0x26
0x216e…21ab at0027 = ╱41╱A╱ // 0x2195 @0x27
0x216e…21ab at0028 = ╱4c╱L╱ // 0x2196 @0x28
0x216e…21ab at0029 = ╱dc╱=╱ // 0x2197 @0x29
0x216e…21ab at002a = ╱44╱D╱ // 0x2198 @0x2a
0x216e…21ab at002b = ╱54╱T╱ // 0x2199 @0x2b
0x216e…21ab at002c = ╱41╱A╱ // 0x219a @0x2c
0x216e…21ab at002d = ╱4c╱L╱ // 0x219b @0x2d
0x216e…21ab at002e = ╱da╱ AND ╱ // 0x219c @0x2e
0x216e…21ab at002f = ╱4f╱O╱ // 0x219d @0x2f
0x216e…21ab at0030 = ╱52╱R╱ // 0x219e @0x30
0x216e…21ab at0031 = ╱44╱D╱ // 0x219f @0x31
0x216e…21ab at0032 = ╱45╱E╱ // 0x21a0 @0x32
0x216e…21ab at0033 = ╱4e╱N╱ // 0x21a1 @0x33
0x216e…21ab at0034 = ╱dc╱=╱ // 0x21a2 @0x34
0x216e…21ab at0035 = ╱32╱2╱ // 0x21a3 @0x35
0x216e…21ab at0036 = ╱fe00008002╱ // 0x21a4 @0x36
0x216e…21ab at003b = ╱ee╱)╱ // 0x21a9 @0x3b
0x216e…21ab at003c = EOL // 0x21aa @0x3c
0x216e…21ab }
0x21ab…21be af15 3390 IF ORDEN=1 THEN
0x21ab…21be LineComalBin {
0x21ab…21be ptr = 0xaf15 // 0x21ab @0x0
0x21ab…21be lno = 0x0d3e // 0x21ad @0x2
0x21ab…21be at0004 = ╱9c╱ IF ╱ // 0x21af @0x4
0x21ab…21be at0005 = ╱4f╱O╱ // 0x21b0 @0x5
0x21ab…21be at0006 = ╱52╱R╱ // 0x21b1 @0x6
0x21ab…21be at0007 = ╱44╱D╱ // 0x21b2 @0x7
0x21ab…21be at0008 = ╱45╱E╱ // 0x21b3 @0x8
0x21ab…21be at0009 = ╱4e╱N╱ // 0x21b4 @0x9
0x21ab…21be at000a = ╱dc╱=╱ // 0x21b5 @0xa
0x21ab…21be at000b = ╱31╱1╱ // 0x21b6 @0xb
0x21ab…21be at000c = ╱fe00008001╱ // 0x21b7 @0xc
0x21ab…21be at0011 = ╱b6╱ THEN ╱ // 0x21bc @0x11
0x21ab…21be at0012 = EOL // 0x21bd @0x12
0x21ab…21be }
0x21be…21c8 af1f 3400 TIL=P
0x21be…21c8 LineComalBin {
0x21be…21c8 ptr = 0xaf1f // 0x21be @0x0
0x21be…21c8 lno = 0x0d48 // 0x21c0 @0x2
0x21be…21c8 at0004 = ╱54╱T╱ // 0x21c2 @0x4
0x21be…21c8 at0005 = ╱49╱I╱ // 0x21c3 @0x5
0x21be…21c8 at0006 = ╱4c╱L╱ // 0x21c4 @0x6
0x21be…21c8 at0007 = ╱dc╱=╱ // 0x21c5 @0x7
0x21be…21c8 at0008 = ╱50╱P╱ // 0x21c6 @0x8
0x21be…21c8 at0009 = EOL // 0x21c7 @0x9
0x21be…21c8 }
0x21c8…21ce af25 3410 ELSE
0x21c8…21ce LineComalBin {
0x21c8…21ce ptr = 0xaf25 // 0x21c8 @0x0
0x21c8…21ce lno = 0x0d52 // 0x21ca @0x2
0x21c8…21ce at0004 = ╱9a╱ ELSE ╱ // 0x21cc @0x4
0x21c8…21ce at0005 = EOL // 0x21cd @0x5
0x21c8…21ce }
0x21ce…21e8 af3f 3420 IF DTAB(ADEB,1)<P THEN
0x21ce…21e8 LineComalBin {
0x21ce…21e8 ptr = 0xaf3f // 0x21ce @0x0
0x21ce…21e8 lno = 0x0d5c // 0x21d0 @0x2
0x21ce…21e8 at0004 = ╱9c╱ IF ╱ // 0x21d2 @0x4
0x21ce…21e8 at0005 = ╱44╱D╱ // 0x21d3 @0x5
0x21ce…21e8 at0006 = ╱54╱T╱ // 0x21d4 @0x6
0x21ce…21e8 at0007 = ╱41╱A╱ // 0x21d5 @0x7
0x21ce…21e8 at0008 = ╱42╱B╱ // 0x21d6 @0x8
0x21ce…21e8 at0009 = ╱ed╱(╱ // 0x21d7 @0x9
0x21ce…21e8 at000a = ╱41╱A╱ // 0x21d8 @0xa
0x21ce…21e8 at000b = ╱44╱D╱ // 0x21d9 @0xb
0x21ce…21e8 at000c = ╱45╱E╱ // 0x21da @0xc
0x21ce…21e8 at000d = ╱42╱B╱ // 0x21db @0xd
0x21ce…21e8 at000e = ╱ec╱,╱ // 0x21dc @0xe
0x21ce…21e8 at000f = ╱31╱1╱ // 0x21dd @0xf
0x21ce…21e8 at0010 = ╱fe00008001╱ // 0x21de @0x10
0x21ce…21e8 at0015 = ╱ee╱)╱ // 0x21e3 @0x15
0x21ce…21e8 at0016 = ╱dd╱<╱ // 0x21e4 @0x16
0x21ce…21e8 at0017 = ╱50╱P╱ // 0x21e5 @0x17
0x21ce…21e8 at0018 = ╱b6╱ THEN ╱ // 0x21e6 @0x18
0x21ce…21e8 at0019 = EOL // 0x21e7 @0x19
0x21ce…21e8 }
0x21e8…21f5 af4c 3430 TIL=ADEB
0x21e8…21f5 LineComalBin {
0x21e8…21f5 ptr = 0xaf4c // 0x21e8 @0x0
0x21e8…21f5 lno = 0x0d66 // 0x21ea @0x2
0x21e8…21f5 at0004 = ╱54╱T╱ // 0x21ec @0x4
0x21e8…21f5 at0005 = ╱49╱I╱ // 0x21ed @0x5
0x21e8…21f5 at0006 = ╱4c╱L╱ // 0x21ee @0x6
0x21e8…21f5 at0007 = ╱dc╱=╱ // 0x21ef @0x7
0x21e8…21f5 at0008 = ╱41╱A╱ // 0x21f0 @0x8
0x21e8…21f5 at0009 = ╱44╱D╱ // 0x21f1 @0x9
0x21e8…21f5 at000a = ╱45╱E╱ // 0x21f2 @0xa
0x21e8…21f5 at000b = ╱42╱B╱ // 0x21f3 @0xb
0x21e8…21f5 at000c = EOL // 0x21f4 @0xc
0x21e8…21f5 }
0x21f5…21fb af52 3440 ELSE
0x21f5…21fb LineComalBin {
0x21f5…21fb ptr = 0xaf52 // 0x21f5 @0x0
0x21f5…21fb lno = 0x0d70 // 0x21f7 @0x2
0x21f5…21fb at0004 = ╱9a╱ ELSE ╱ // 0x21f9 @0x4
0x21f5…21fb at0005 = EOL // 0x21fa @0x5
0x21f5…21fb }
0x21fb…221f af76 3450 EXEC FINDPOST(DTAB,MDANTAL,P,DPIL3)
0x21fb…221f LineComalBin {
0x21fb…221f ptr = 0xaf76 // 0x21fb @0x0
0x21fb…221f lno = 0x0d7a // 0x21fd @0x2
0x21fb…221f at0004 = ╱9d╱ EXEC ╱ // 0x21ff @0x4
0x21fb…221f at0005 = ╱46╱F╱ // 0x2200 @0x5
0x21fb…221f at0006 = ╱49╱I╱ // 0x2201 @0x6
0x21fb…221f at0007 = ╱4e╱N╱ // 0x2202 @0x7
0x21fb…221f at0008 = ╱44╱D╱ // 0x2203 @0x8
0x21fb…221f at0009 = ╱50╱P╱ // 0x2204 @0x9
0x21fb…221f at000a = ╱4f╱O╱ // 0x2205 @0xa
0x21fb…221f at000b = ╱53╱S╱ // 0x2206 @0xb
0x21fb…221f at000c = ╱54╱T╱ // 0x2207 @0xc
0x21fb…221f at000d = ╱ed╱(╱ // 0x2208 @0xd
0x21fb…221f at000e = ╱44╱D╱ // 0x2209 @0xe
0x21fb…221f at000f = ╱54╱T╱ // 0x220a @0xf
0x21fb…221f at0010 = ╱41╱A╱ // 0x220b @0x10
0x21fb…221f at0011 = ╱42╱B╱ // 0x220c @0x11
0x21fb…221f at0012 = ╱ec╱,╱ // 0x220d @0x12
0x21fb…221f at0013 = ╱4d╱M╱ // 0x220e @0x13
0x21fb…221f at0014 = ╱44╱D╱ // 0x220f @0x14
0x21fb…221f at0015 = ╱41╱A╱ // 0x2210 @0x15
0x21fb…221f at0016 = ╱4e╱N╱ // 0x2211 @0x16
0x21fb…221f at0017 = ╱54╱T╱ // 0x2212 @0x17
0x21fb…221f at0018 = ╱41╱A╱ // 0x2213 @0x18
0x21fb…221f at0019 = ╱4c╱L╱ // 0x2214 @0x19
0x21fb…221f at001a = ╱ec╱,╱ // 0x2215 @0x1a
0x21fb…221f at001b = ╱50╱P╱ // 0x2216 @0x1b
0x21fb…221f at001c = ╱ec╱,╱ // 0x2217 @0x1c
0x21fb…221f at001d = ╱44╱D╱ // 0x2218 @0x1d
0x21fb…221f at001e = ╱50╱P╱ // 0x2219 @0x1e
0x21fb…221f at001f = ╱49╱I╱ // 0x221a @0x1f
0x21fb…221f at0020 = ╱4c╱L╱ // 0x221b @0x20
0x21fb…221f at0021 = ╱33╱3╱ // 0x221c @0x21
0x21fb…221f at0022 = ╱ee╱)╱ // 0x221d @0x22
0x21fb…221f at0023 = EOL // 0x221e @0x23
0x21fb…221f }
0x221f…222d af84 3460 TIL=DPIL3
0x221f…222d LineComalBin {
0x221f…222d ptr = 0xaf84 // 0x221f @0x0
0x221f…222d lno = 0x0d84 // 0x2221 @0x2
0x221f…222d at0004 = ╱54╱T╱ // 0x2223 @0x4
0x221f…222d at0005 = ╱49╱I╱ // 0x2224 @0x5
0x221f…222d at0006 = ╱4c╱L╱ // 0x2225 @0x6
0x221f…222d at0007 = ╱dc╱=╱ // 0x2226 @0x7
0x221f…222d at0008 = ╱44╱D╱ // 0x2227 @0x8
0x221f…222d at0009 = ╱50╱P╱ // 0x2228 @0x9
0x221f…222d at000a = ╱49╱I╱ // 0x2229 @0xa
0x221f…222d at000b = ╱4c╱L╱ // 0x222a @0xb
0x221f…222d at000c = ╱33╱3╱ // 0x222b @0xc
0x221f…222d at000d = EOL // 0x222c @0xd
0x221f…222d }
0x222d…2233 af8a 3470 ENDIF
0x222d…2233 LineComalBin {
0x222d…2233 ptr = 0xaf8a // 0x222d @0x0
0x222d…2233 lno = 0x0d8e // 0x222f @0x2
0x222d…2233 at0004 = ╱9b╱ ENDIF ╱ // 0x2231 @0x4
0x222d…2233 at0005 = EOL // 0x2232 @0x5
0x222d…2233 }
0x2233…2239 af90 3480 ENDIF
0x2233…2239 LineComalBin {
0x2233…2239 ptr = 0xaf90 // 0x2233 @0x0
0x2233…2239 lno = 0x0d98 // 0x2235 @0x2
0x2233…2239 at0004 = ╱9b╱ ENDIF ╱ // 0x2237 @0x4
0x2233…2239 at0005 = EOL // 0x2238 @0x5
0x2233…2239 }
0x2239…2246 af9d 3490 UNTIL FRA<=TIL
0x2239…2246 LineComalBin {
0x2239…2246 ptr = 0xaf9d // 0x2239 @0x0
0x2239…2246 lno = 0x0da2 // 0x223b @0x2
0x2239…2246 at0004 = ╱98╱ UNTIL ╱ // 0x223d @0x4
0x2239…2246 at0005 = ╱46╱F╱ // 0x223e @0x5
0x2239…2246 at0006 = ╱52╱R╱ // 0x223f @0x6
0x2239…2246 at0007 = ╱41╱A╱ // 0x2240 @0x7
0x2239…2246 at0008 = ╱df╱<=╱ // 0x2241 @0x8
0x2239…2246 at0009 = ╱54╱T╱ // 0x2242 @0x9
0x2239…2246 at000a = ╱49╱I╱ // 0x2243 @0xa
0x2239…2246 at000b = ╱4c╱L╱ // 0x2244 @0xb
0x2239…2246 at000c = EOL // 0x2245 @0xc
0x2239…2246 }
0x2246…224c afa3 3500 ENDIF
0x2246…224c LineComalBin {
0x2246…224c ptr = 0xafa3 // 0x2246 @0x0
0x2246…224c lno = 0x0dac // 0x2248 @0x2
0x2246…224c at0004 = ╱9b╱ ENDIF ╱ // 0x224a @0x4
0x2246…224c at0005 = EOL // 0x224b @0x5
0x2246…224c }
0x224c…225e afb5 3501 IF TYPE=3 THEN
0x224c…225e LineComalBin {
0x224c…225e ptr = 0xafb5 // 0x224c @0x0
0x224c…225e lno = 0x0dad // 0x224e @0x2
0x224c…225e at0004 = ╱9c╱ IF ╱ // 0x2250 @0x4
0x224c…225e at0005 = ╱54╱T╱ // 0x2251 @0x5
0x224c…225e at0006 = ╱59╱Y╱ // 0x2252 @0x6
0x224c…225e at0007 = ╱50╱P╱ // 0x2253 @0x7
0x224c…225e at0008 = ╱45╱E╱ // 0x2254 @0x8
0x224c…225e at0009 = ╱dc╱=╱ // 0x2255 @0x9
0x224c…225e at000a = ╱33╱3╱ // 0x2256 @0xa
0x224c…225e at000b = ╱fe0000c002╱ // 0x2257 @0xb
0x224c…225e at0010 = ╱b6╱ THEN ╱ // 0x225c @0x10
0x224c…225e at0011 = EOL // 0x225d @0x11
0x224c…225e }
0x225e…2273 afca 3502 CURSOR 13,23
0x225e…2273 LineComalBin {
0x225e…2273 ptr = 0xafca // 0x225e @0x0
0x225e…2273 lno = 0x0dae // 0x2260 @0x2
0x225e…2273 at0004 = ╱a1╱ CURSOR ╱ // 0x2262 @0x4
0x225e…2273 at0005 = ╱31╱1╱ // 0x2263 @0x5
0x225e…2273 at0006 = ╱33╱3╱ // 0x2264 @0x6
0x225e…2273 at0007 = ╱fe0000d004╱ // 0x2265 @0x7
0x225e…2273 at000c = ╱ec╱,╱ // 0x226a @0xc
0x225e…2273 at000d = ╱32╱2╱ // 0x226b @0xd
0x225e…2273 at000e = ╱33╱3╱ // 0x226c @0xe
0x225e…2273 at000f = ╱fe0000b805╱ // 0x226d @0xf
0x225e…2273 at0014 = EOL // 0x2272 @0x14
0x225e…2273 }
0x2273…22ab b002 3503 INPUT "Hvor mange labels ønskes af hver, (1-99) ",TALLET
0x2273…22ab LineComalBin {
0x2273…22ab ptr = 0xb002 // 0x2273 @0x0
0x2273…22ab lno = 0x0daf // 0x2275 @0x2
0x2273…22ab at0004 = ╱91╱ INPUT ╱ // 0x2277 @0x4
0x2273…22ab at0005 = ╱22╱"╱ // 0x2278 @0x5
0x2273…22ab at0006 = ╱48╱H╱ // 0x2279 @0x6
0x2273…22ab at0007 = ╱76╱v╱ // 0x227a @0x7
0x2273…22ab at0008 = ╱6f╱o╱ // 0x227b @0x8
0x2273…22ab at0009 = ╱72╱r╱ // 0x227c @0x9
0x2273…22ab at000a = ╱20╱…╱ // 0x227d @0xa
0x2273…22ab at000b = ╱6d╱m╱ // 0x227e @0xb
0x2273…22ab at000c = ╱61╱a╱ // 0x227f @0xc
0x2273…22ab at000d = ╱6e╱n╱ // 0x2280 @0xd
0x2273…22ab at000e = ╱67╱g╱ // 0x2281 @0xe
0x2273…22ab at000f = ╱65╱e╱ // 0x2282 @0xf
0x2273…22ab at0010 = ╱20╱…╱ // 0x2283 @0x10
0x2273…22ab at0011 = ╱6c╱l╱ // 0x2284 @0x11
0x2273…22ab at0012 = ╱61╱a╱ // 0x2285 @0x12
0x2273…22ab at0013 = ╱62╱b╱ // 0x2286 @0x13
0x2273…22ab at0014 = ╱65╱e╱ // 0x2287 @0x14
0x2273…22ab at0015 = ╱6c╱l╱ // 0x2288 @0x15
0x2273…22ab at0016 = ╱73╱s╱ // 0x2289 @0x16
0x2273…22ab at0017 = ╱20╱…╱ // 0x228a @0x17
0x2273…22ab at0018 = ╱7c╱ø╱ // 0x228b @0x18
0x2273…22ab at0019 = ╱6e╱n╱ // 0x228c @0x19
0x2273…22ab at001a = ╱73╱s╱ // 0x228d @0x1a
0x2273…22ab at001b = ╱6b╱k╱ // 0x228e @0x1b
0x2273…22ab at001c = ╱65╱e╱ // 0x228f @0x1c
0x2273…22ab at001d = ╱73╱s╱ // 0x2290 @0x1d
0x2273…22ab at001e = ╱20╱…╱ // 0x2291 @0x1e
0x2273…22ab at001f = ╱61╱a╱ // 0x2292 @0x1f
0x2273…22ab at0020 = ╱66╱f╱ // 0x2293 @0x20
0x2273…22ab at0021 = ╱20╱…╱ // 0x2294 @0x21
0x2273…22ab at0022 = ╱68╱h╱ // 0x2295 @0x22
0x2273…22ab at0023 = ╱76╱v╱ // 0x2296 @0x23
0x2273…22ab at0024 = ╱65╱e╱ // 0x2297 @0x24
0x2273…22ab at0025 = ╱72╱r╱ // 0x2298 @0x25
0x2273…22ab at0026 = ╱2c╱,╱ // 0x2299 @0x26
0x2273…22ab at0027 = ╱20╱…╱ // 0x229a @0x27
0x2273…22ab at0028 = ╱28╱(╱ // 0x229b @0x28
0x2273…22ab at0029 = ╱31╱1╱ // 0x229c @0x29
0x2273…22ab at002a = ╱2d╱-╱ // 0x229d @0x2a
0x2273…22ab at002b = ╱39╱9╱ // 0x229e @0x2b
0x2273…22ab at002c = ╱39╱9╱ // 0x229f @0x2c
0x2273…22ab at002d = ╱29╱)╱ // 0x22a0 @0x2d
0x2273…22ab at002e = ╱20╱…╱ // 0x22a1 @0x2e
0x2273…22ab at002f = ╱22╱"╱ // 0x22a2 @0x2f
0x2273…22ab at0030 = ╱ec╱,╱ // 0x22a3 @0x30
0x2273…22ab at0031 = ╱54╱T╱ // 0x22a4 @0x31
0x2273…22ab at0032 = ╱41╱A╱ // 0x22a5 @0x32
0x2273…22ab at0033 = ╱4c╱L╱ // 0x22a6 @0x33
0x2273…22ab at0034 = ╱4c╱L╱ // 0x22a7 @0x34
0x2273…22ab at0035 = ╱45╱E╱ // 0x22a8 @0x35
0x2273…22ab at0036 = ╱54╱T╱ // 0x22a9 @0x36
0x2273…22ab at0037 = EOL // 0x22aa @0x37
0x2273…22ab }
0x22ab…22b1 b008 3504 ENDIF
0x22ab…22b1 LineComalBin {
0x22ab…22b1 ptr = 0xb008 // 0x22ab @0x0
0x22ab…22b1 lno = 0x0db0 // 0x22ad @0x2
0x22ab…22b1 at0004 = ╱9b╱ ENDIF ╱ // 0x22af @0x4
0x22ab…22b1 at0005 = EOL // 0x22b0 @0x5
0x22ab…22b1 }
0x22b1…22b7 b00e 3510 CLEAR
0x22b1…22b7 LineComalBin {
0x22b1…22b7 ptr = 0xb00e // 0x22b1 @0x0
0x22b1…22b7 lno = 0x0db6 // 0x22b3 @0x2
0x22b1…22b7 at0004 = ╱a0╱ CLEAR ╱ // 0x22b5 @0x4
0x22b1…22b7 at0005 = EOL // 0x22b6 @0x5
0x22b1…22b7 }
0x22b7…22bd b014 3520 REPEAT
0x22b7…22bd LineComalBin {
0x22b7…22bd ptr = 0xb014 // 0x22b7 @0x0
0x22b7…22bd lno = 0x0dc0 // 0x22b9 @0x2
0x22b7…22bd at0004 = ╱97╱ REPEAT ╱ // 0x22bb @0x4
0x22b7…22bd at0005 = EOL // 0x22bc @0x5
0x22b7…22bd }
0x22bd…22d2 b029 3530 CURSOR 18,13
0x22bd…22d2 LineComalBin {
0x22bd…22d2 ptr = 0xb029 // 0x22bd @0x0
0x22bd…22d2 lno = 0x0dca // 0x22bf @0x2
0x22bd…22d2 at0004 = ╱a1╱ CURSOR ╱ // 0x22c1 @0x4
0x22bd…22d2 at0005 = ╱31╱1╱ // 0x22c2 @0x5
0x22bd…22d2 at0006 = ╱38╱8╱ // 0x22c3 @0x6
0x22bd…22d2 at0007 = ╱fe00009005╱ // 0x22c4 @0x7
0x22bd…22d2 at000c = ╱ec╱,╱ // 0x22c9 @0xc
0x22bd…22d2 at000d = ╱31╱1╱ // 0x22ca @0xd
0x22bd…22d2 at000e = ╱33╱3╱ // 0x22cb @0xe
0x22bd…22d2 at000f = ╱fe0000d004╱ // 0x22cc @0xf
0x22bd…22d2 at0014 = EOL // 0x22d1 @0x14
0x22bd…22d2 }
0x22d2…2306 b05d 3540 INPUT "Monter lister til udskrift og tast RETURN",A$
0x22d2…2306 LineComalBin {
0x22d2…2306 ptr = 0xb05d // 0x22d2 @0x0
0x22d2…2306 lno = 0x0dd4 // 0x22d4 @0x2
0x22d2…2306 at0004 = ╱91╱ INPUT ╱ // 0x22d6 @0x4
0x22d2…2306 at0005 = ╱22╱"╱ // 0x22d7 @0x5
0x22d2…2306 at0006 = ╱4d╱M╱ // 0x22d8 @0x6
0x22d2…2306 at0007 = ╱6f╱o╱ // 0x22d9 @0x7
0x22d2…2306 at0008 = ╱6e╱n╱ // 0x22da @0x8
0x22d2…2306 at0009 = ╱74╱t╱ // 0x22db @0x9
0x22d2…2306 at000a = ╱65╱e╱ // 0x22dc @0xa
0x22d2…2306 at000b = ╱72╱r╱ // 0x22dd @0xb
0x22d2…2306 at000c = ╱20╱…╱ // 0x22de @0xc
0x22d2…2306 at000d = ╱6c╱l╱ // 0x22df @0xd
0x22d2…2306 at000e = ╱69╱i╱ // 0x22e0 @0xe
0x22d2…2306 at000f = ╱73╱s╱ // 0x22e1 @0xf
0x22d2…2306 at0010 = ╱74╱t╱ // 0x22e2 @0x10
0x22d2…2306 at0011 = ╱65╱e╱ // 0x22e3 @0x11
0x22d2…2306 at0012 = ╱72╱r╱ // 0x22e4 @0x12
0x22d2…2306 at0013 = ╱20╱…╱ // 0x22e5 @0x13
0x22d2…2306 at0014 = ╱74╱t╱ // 0x22e6 @0x14
0x22d2…2306 at0015 = ╱69╱i╱ // 0x22e7 @0x15
0x22d2…2306 at0016 = ╱6c╱l╱ // 0x22e8 @0x16
0x22d2…2306 at0017 = ╱20╱…╱ // 0x22e9 @0x17
0x22d2…2306 at0018 = ╱75╱u╱ // 0x22ea @0x18
0x22d2…2306 at0019 = ╱64╱d╱ // 0x22eb @0x19
0x22d2…2306 at001a = ╱73╱s╱ // 0x22ec @0x1a
0x22d2…2306 at001b = ╱6b╱k╱ // 0x22ed @0x1b
0x22d2…2306 at001c = ╱72╱r╱ // 0x22ee @0x1c
0x22d2…2306 at001d = ╱69╱i╱ // 0x22ef @0x1d
0x22d2…2306 at001e = ╱66╱f╱ // 0x22f0 @0x1e
0x22d2…2306 at001f = ╱74╱t╱ // 0x22f1 @0x1f
0x22d2…2306 at0020 = ╱20╱…╱ // 0x22f2 @0x20
0x22d2…2306 at0021 = ╱6f╱o╱ // 0x22f3 @0x21
0x22d2…2306 at0022 = ╱67╱g╱ // 0x22f4 @0x22
0x22d2…2306 at0023 = ╱20╱…╱ // 0x22f5 @0x23
0x22d2…2306 at0024 = ╱74╱t╱ // 0x22f6 @0x24
0x22d2…2306 at0025 = ╱61╱a╱ // 0x22f7 @0x25
0x22d2…2306 at0026 = ╱73╱s╱ // 0x22f8 @0x26
0x22d2…2306 at0027 = ╱74╱t╱ // 0x22f9 @0x27
0x22d2…2306 at0028 = ╱20╱…╱ // 0x22fa @0x28
0x22d2…2306 at0029 = ╱52╱R╱ // 0x22fb @0x29
0x22d2…2306 at002a = ╱45╱E╱ // 0x22fc @0x2a
0x22d2…2306 at002b = ╱54╱T╱ // 0x22fd @0x2b
0x22d2…2306 at002c = ╱55╱U╱ // 0x22fe @0x2c
0x22d2…2306 at002d = ╱52╱R╱ // 0x22ff @0x2d
0x22d2…2306 at002e = ╱4e╱N╱ // 0x2300 @0x2e
0x22d2…2306 at002f = ╱22╱"╱ // 0x2301 @0x2f
0x22d2…2306 at0030 = ╱ec╱,╱ // 0x2302 @0x30
0x22d2…2306 at0031 = ╱41╱A╱ // 0x2303 @0x31
0x22d2…2306 at0032 = ╱ef╱$╱ // 0x2304 @0x32
0x22d2…2306 at0033 = EOL // 0x2305 @0x33
0x22d2…2306 }
0x2306…231a b071 3550 UNTIL ORD(A$)=255
0x2306…231a LineComalBin {
0x2306…231a ptr = 0xb071 // 0x2306 @0x0
0x2306…231a lno = 0x0dde // 0x2308 @0x2
0x2306…231a at0004 = ╱98╱ UNTIL ╱ // 0x230a @0x4
0x2306…231a at0005 = ╱cd╱ORD╱ // 0x230b @0x5
0x2306…231a at0006 = ╱ed╱(╱ // 0x230c @0x6
0x2306…231a at0007 = ╱41╱A╱ // 0x230d @0x7
0x2306…231a at0008 = ╱ef╱$╱ // 0x230e @0x8
0x2306…231a at0009 = ╱ee╱)╱ // 0x230f @0x9
0x2306…231a at000a = ╱dc╱=╱ // 0x2310 @0xa
0x2306…231a at000b = ╱32╱2╱ // 0x2311 @0xb
0x2306…231a at000c = ╱35╱5╱ // 0x2312 @0xc
0x2306…231a at000d = ╱35╱5╱ // 0x2313 @0xd
0x2306…231a at000e = ╱fe0000ff08╱ // 0x2314 @0xe
0x2306…231a at0013 = EOL // 0x2319 @0x13
0x2306…231a }
0x231a…2337 b08e 3560 IF TYPE=1 THEN KS$="saldo"
0x231a…2337 LineComalBin {
0x231a…2337 ptr = 0xb08e // 0x231a @0x0
0x231a…2337 lno = 0x0de8 // 0x231c @0x2
0x231a…2337 at0004 = ╱82╱ IF ╱ // 0x231e @0x4
0x231a…2337 at0005 = ╱54╱T╱ // 0x231f @0x5
0x231a…2337 at0006 = ╱59╱Y╱ // 0x2320 @0x6
0x231a…2337 at0007 = ╱50╱P╱ // 0x2321 @0x7
0x231a…2337 at0008 = ╱45╱E╱ // 0x2322 @0x8
0x231a…2337 at0009 = ╱dc╱=╱ // 0x2323 @0x9
0x231a…2337 at000a = ╱31╱1╱ // 0x2324 @0xa
0x231a…2337 at000b = ╱fe00008001╱ // 0x2325 @0xb
0x231a…2337 at0010 = ╱b6╱ THEN ╱ // 0x232a @0x10
0x231a…2337 at0011 = ╱4b╱K╱ // 0x232b @0x11
0x231a…2337 at0012 = ╱53╱S╱ // 0x232c @0x12
0x231a…2337 at0013 = ╱ef╱$╱ // 0x232d @0x13
0x231a…2337 at0014 = ╱dc╱=╱ // 0x232e @0x14
0x231a…2337 at0015 = ╱22╱"╱ // 0x232f @0x15
0x231a…2337 at0016 = ╱73╱s╱ // 0x2330 @0x16
0x231a…2337 at0017 = ╱61╱a╱ // 0x2331 @0x17
0x231a…2337 at0018 = ╱6c╱l╱ // 0x2332 @0x18
0x231a…2337 at0019 = ╱64╱d╱ // 0x2333 @0x19
0x231a…2337 at001a = ╱6f╱o╱ // 0x2334 @0x1a
0x231a…2337 at001b = ╱22╱"╱ // 0x2335 @0x1b
0x231a…2337 at001c = EOL // 0x2336 @0x1c
0x231a…2337 }
0x2337…2354 b0ab 3570 IF TYPE=2 THEN KS$="konto"
0x2337…2354 LineComalBin {
0x2337…2354 ptr = 0xb0ab // 0x2337 @0x0
0x2337…2354 lno = 0x0df2 // 0x2339 @0x2
0x2337…2354 at0004 = ╱82╱ IF ╱ // 0x233b @0x4
0x2337…2354 at0005 = ╱54╱T╱ // 0x233c @0x5
0x2337…2354 at0006 = ╱59╱Y╱ // 0x233d @0x6
0x2337…2354 at0007 = ╱50╱P╱ // 0x233e @0x7
0x2337…2354 at0008 = ╱45╱E╱ // 0x233f @0x8
0x2337…2354 at0009 = ╱dc╱=╱ // 0x2340 @0x9
0x2337…2354 at000a = ╱32╱2╱ // 0x2341 @0xa
0x2337…2354 at000b = ╱fe00008002╱ // 0x2342 @0xb
0x2337…2354 at0010 = ╱b6╱ THEN ╱ // 0x2347 @0x10
0x2337…2354 at0011 = ╱4b╱K╱ // 0x2348 @0x11
0x2337…2354 at0012 = ╱53╱S╱ // 0x2349 @0x12
0x2337…2354 at0013 = ╱ef╱$╱ // 0x234a @0x13
0x2337…2354 at0014 = ╱dc╱=╱ // 0x234b @0x14
0x2337…2354 at0015 = ╱22╱"╱ // 0x234c @0x15
0x2337…2354 at0016 = ╱6b╱k╱ // 0x234d @0x16
0x2337…2354 at0017 = ╱6f╱o╱ // 0x234e @0x17
0x2337…2354 at0018 = ╱6e╱n╱ // 0x234f @0x18
0x2337…2354 at0019 = ╱74╱t╱ // 0x2350 @0x19
0x2337…2354 at001a = ╱6f╱o╱ // 0x2351 @0x1a
0x2337…2354 at001b = ╱22╱"╱ // 0x2352 @0x1b
0x2337…2354 at001c = EOL // 0x2353 @0x1c
0x2337…2354 }
0x2354…235b b0b2 3580 OUTPUT P
0x2354…235b LineComalBin {
0x2354…235b ptr = 0xb0b2 // 0x2354 @0x0
0x2354…235b lno = 0x0dfc // 0x2356 @0x2
0x2354…235b at0004 = ╱a5╱ OUTPUT ╱ // 0x2358 @0x4
0x2354…235b at0005 = ╱50╱P╱ // 0x2359 @0x5
0x2354…235b at0006 = EOL // 0x235a @0x6
0x2354…235b }
0x235b…236e b0c5 3590 IF ORDEN=1 THEN
0x235b…236e LineComalBin {
0x235b…236e ptr = 0xb0c5 // 0x235b @0x0
0x235b…236e lno = 0x0e06 // 0x235d @0x2
0x235b…236e at0004 = ╱9c╱ IF ╱ // 0x235f @0x4
0x235b…236e at0005 = ╱4f╱O╱ // 0x2360 @0x5
0x235b…236e at0006 = ╱52╱R╱ // 0x2361 @0x6
0x235b…236e at0007 = ╱44╱D╱ // 0x2362 @0x7
0x235b…236e at0008 = ╱45╱E╱ // 0x2363 @0x8
0x235b…236e at0009 = ╱4e╱N╱ // 0x2364 @0x9
0x235b…236e at000a = ╱dc╱=╱ // 0x2365 @0xa
0x235b…236e at000b = ╱31╱1╱ // 0x2366 @0xb
0x235b…236e at000c = ╱fe00008001╱ // 0x2367 @0xc
0x235b…236e at0011 = ╱b6╱ THEN ╱ // 0x236c @0x11
0x235b…236e at0012 = EOL // 0x236d @0x12
0x235b…236e }
0x236e…237d b0d4 3600 FOR H=FRA TO TIL
0x236e…237d LineComalBin {
0x236e…237d ptr = 0xb0d4 // 0x236e @0x0
0x236e…237d lno = 0x0e10 // 0x2370 @0x2
0x236e…237d at0004 = ╱83╱ FOR ╱ // 0x2372 @0x4
0x236e…237d at0005 = ╱48╱H╱ // 0x2373 @0x5
0x236e…237d at0006 = ╱dc╱=╱ // 0x2374 @0x6
0x236e…237d at0007 = ╱46╱F╱ // 0x2375 @0x7
0x236e…237d at0008 = ╱52╱R╱ // 0x2376 @0x8
0x236e…237d at0009 = ╱41╱A╱ // 0x2377 @0x9
0x236e…237d at000a = ╱b7╱ TO ╱ // 0x2378 @0xa
0x236e…237d at000b = ╱54╱T╱ // 0x2379 @0xb
0x236e…237d at000c = ╱49╱I╱ // 0x237a @0xc
0x236e…237d at000d = ╱4c╱L╱ // 0x237b @0xd
0x236e…237d at000e = EOL // 0x237c @0xe
0x236e…237d }
0x237d…23c3 b11a 3610 SUM1$="0+";SUM2$="0+";SUM3$="0+";SUM4$="0+";SUM5$="0+";SUM6$="0+"
0x237d…23c3 LineComalBin {
0x237d…23c3 ptr = 0xb11a // 0x237d @0x0
0x237d…23c3 lno = 0x0e1a // 0x237f @0x2
0x237d…23c3 at0004 = ╱53╱S╱ // 0x2381 @0x4
0x237d…23c3 at0005 = ╱55╱U╱ // 0x2382 @0x5
0x237d…23c3 at0006 = ╱4d╱M╱ // 0x2383 @0x6
0x237d…23c3 at0007 = ╱31╱1╱ // 0x2384 @0x7
0x237d…23c3 at0008 = ╱ef╱$╱ // 0x2385 @0x8
0x237d…23c3 at0009 = ╱dc╱=╱ // 0x2386 @0x9
0x237d…23c3 at000a = ╱22╱"╱ // 0x2387 @0xa
0x237d…23c3 at000b = ╱30╱0╱ // 0x2388 @0xb
0x237d…23c3 at000c = ╱2b╱+╱ // 0x2389 @0xc
0x237d…23c3 at000d = ╱22╱"╱ // 0x238a @0xd
0x237d…23c3 at000e = ╱eb╱;╱ // 0x238b @0xe
0x237d…23c3 at000f = ╱53╱S╱ // 0x238c @0xf
0x237d…23c3 at0010 = ╱55╱U╱ // 0x238d @0x10
0x237d…23c3 at0011 = ╱4d╱M╱ // 0x238e @0x11
0x237d…23c3 at0012 = ╱32╱2╱ // 0x238f @0x12
0x237d…23c3 at0013 = ╱ef╱$╱ // 0x2390 @0x13
0x237d…23c3 at0014 = ╱dc╱=╱ // 0x2391 @0x14
0x237d…23c3 at0015 = ╱22╱"╱ // 0x2392 @0x15
0x237d…23c3 at0016 = ╱30╱0╱ // 0x2393 @0x16
0x237d…23c3 at0017 = ╱2b╱+╱ // 0x2394 @0x17
0x237d…23c3 at0018 = ╱22╱"╱ // 0x2395 @0x18
0x237d…23c3 at0019 = ╱eb╱;╱ // 0x2396 @0x19
0x237d…23c3 at001a = ╱53╱S╱ // 0x2397 @0x1a
0x237d…23c3 at001b = ╱55╱U╱ // 0x2398 @0x1b
0x237d…23c3 at001c = ╱4d╱M╱ // 0x2399 @0x1c
0x237d…23c3 at001d = ╱33╱3╱ // 0x239a @0x1d
0x237d…23c3 at001e = ╱ef╱$╱ // 0x239b @0x1e
0x237d…23c3 at001f = ╱dc╱=╱ // 0x239c @0x1f
0x237d…23c3 at0020 = ╱22╱"╱ // 0x239d @0x20
0x237d…23c3 at0021 = ╱30╱0╱ // 0x239e @0x21
0x237d…23c3 at0022 = ╱2b╱+╱ // 0x239f @0x22
0x237d…23c3 at0023 = ╱22╱"╱ // 0x23a0 @0x23
0x237d…23c3 at0024 = ╱eb╱;╱ // 0x23a1 @0x24
0x237d…23c3 at0025 = ╱53╱S╱ // 0x23a2 @0x25
0x237d…23c3 at0026 = ╱55╱U╱ // 0x23a3 @0x26
0x237d…23c3 at0027 = ╱4d╱M╱ // 0x23a4 @0x27
0x237d…23c3 at0028 = ╱34╱4╱ // 0x23a5 @0x28
0x237d…23c3 at0029 = ╱ef╱$╱ // 0x23a6 @0x29
0x237d…23c3 at002a = ╱dc╱=╱ // 0x23a7 @0x2a
0x237d…23c3 at002b = ╱22╱"╱ // 0x23a8 @0x2b
0x237d…23c3 at002c = ╱30╱0╱ // 0x23a9 @0x2c
0x237d…23c3 at002d = ╱2b╱+╱ // 0x23aa @0x2d
0x237d…23c3 at002e = ╱22╱"╱ // 0x23ab @0x2e
0x237d…23c3 at002f = ╱eb╱;╱ // 0x23ac @0x2f
0x237d…23c3 at0030 = ╱53╱S╱ // 0x23ad @0x30
0x237d…23c3 at0031 = ╱55╱U╱ // 0x23ae @0x31
0x237d…23c3 at0032 = ╱4d╱M╱ // 0x23af @0x32
0x237d…23c3 at0033 = ╱35╱5╱ // 0x23b0 @0x33
0x237d…23c3 at0034 = ╱ef╱$╱ // 0x23b1 @0x34
0x237d…23c3 at0035 = ╱dc╱=╱ // 0x23b2 @0x35
0x237d…23c3 at0036 = ╱22╱"╱ // 0x23b3 @0x36
0x237d…23c3 at0037 = ╱30╱0╱ // 0x23b4 @0x37
0x237d…23c3 at0038 = ╱2b╱+╱ // 0x23b5 @0x38
0x237d…23c3 at0039 = ╱22╱"╱ // 0x23b6 @0x39
0x237d…23c3 at003a = ╱eb╱;╱ // 0x23b7 @0x3a
0x237d…23c3 at003b = ╱53╱S╱ // 0x23b8 @0x3b
0x237d…23c3 at003c = ╱55╱U╱ // 0x23b9 @0x3c
0x237d…23c3 at003d = ╱4d╱M╱ // 0x23ba @0x3d
0x237d…23c3 at003e = ╱36╱6╱ // 0x23bb @0x3e
0x237d…23c3 at003f = ╱ef╱$╱ // 0x23bc @0x3f
0x237d…23c3 at0040 = ╱dc╱=╱ // 0x23bd @0x40
0x237d…23c3 at0041 = ╱22╱"╱ // 0x23be @0x41
0x237d…23c3 at0042 = ╱30╱0╱ // 0x23bf @0x42
0x237d…23c3 at0043 = ╱2b╱+╱ // 0x23c0 @0x43
0x237d…23c3 at0044 = ╱22╱"╱ // 0x23c1 @0x44
0x237d…23c3 at0045 = EOL // 0x23c2 @0x45
0x237d…23c3 }
0x23c3…23ec b143 3620 SUM$="0+";LINIE=0;SIDENR=0
0x23c3…23ec LineComalBin {
0x23c3…23ec ptr = 0xb143 // 0x23c3 @0x0
0x23c3…23ec lno = 0x0e24 // 0x23c5 @0x2
0x23c3…23ec at0004 = ╱53╱S╱ // 0x23c7 @0x4
0x23c3…23ec at0005 = ╱55╱U╱ // 0x23c8 @0x5
0x23c3…23ec at0006 = ╱4d╱M╱ // 0x23c9 @0x6
0x23c3…23ec at0007 = ╱ef╱$╱ // 0x23ca @0x7
0x23c3…23ec at0008 = ╱dc╱=╱ // 0x23cb @0x8
0x23c3…23ec at0009 = ╱22╱"╱ // 0x23cc @0x9
0x23c3…23ec at000a = ╱30╱0╱ // 0x23cd @0xa
0x23c3…23ec at000b = ╱2b╱+╱ // 0x23ce @0xb
0x23c3…23ec at000c = ╱22╱"╱ // 0x23cf @0xc
0x23c3…23ec at000d = ╱eb╱;╱ // 0x23d0 @0xd
0x23c3…23ec at000e = ╱4c╱L╱ // 0x23d1 @0xe
0x23c3…23ec at000f = ╱49╱I╱ // 0x23d2 @0xf
0x23c3…23ec at0010 = ╱4e╱N╱ // 0x23d3 @0x10
0x23c3…23ec at0011 = ╱49╱I╱ // 0x23d4 @0x11
0x23c3…23ec at0012 = ╱45╱E╱ // 0x23d5 @0x12
0x23c3…23ec at0013 = ╱dc╱=╱ // 0x23d6 @0x13
0x23c3…23ec at0014 = ╱30╱0╱ // 0x23d7 @0x14
0x23c3…23ec at0015 = ╱fe00000000╱ // 0x23d8 @0x15
0x23c3…23ec at001a = ╱eb╱;╱ // 0x23dd @0x1a
0x23c3…23ec at001b = ╱53╱S╱ // 0x23de @0x1b
0x23c3…23ec at001c = ╱49╱I╱ // 0x23df @0x1c
0x23c3…23ec at001d = ╱44╱D╱ // 0x23e0 @0x1d
0x23c3…23ec at001e = ╱45╱E╱ // 0x23e1 @0x1e
0x23c3…23ec at001f = ╱4e╱N╱ // 0x23e2 @0x1f
0x23c3…23ec at0020 = ╱52╱R╱ // 0x23e3 @0x20
0x23c3…23ec at0021 = ╱dc╱=╱ // 0x23e4 @0x21
0x23c3…23ec at0022 = ╱30╱0╱ // 0x23e5 @0x22
0x23c3…23ec at0023 = ╱fe00000000╱ // 0x23e6 @0x23
0x23c3…23ec at0028 = EOL // 0x23eb @0x28
0x23c3…23ec }
0x23ec…2401 b158 3630 HKUNDE=KARRAY(H)
0x23ec…2401 LineComalBin {
0x23ec…2401 ptr = 0xb158 // 0x23ec @0x0
0x23ec…2401 lno = 0x0e2e // 0x23ee @0x2
0x23ec…2401 at0004 = ╱48╱H╱ // 0x23f0 @0x4
0x23ec…2401 at0005 = ╱4b╱K╱ // 0x23f1 @0x5
0x23ec…2401 at0006 = ╱55╱U╱ // 0x23f2 @0x6
0x23ec…2401 at0007 = ╱4e╱N╱ // 0x23f3 @0x7
0x23ec…2401 at0008 = ╱44╱D╱ // 0x23f4 @0x8
0x23ec…2401 at0009 = ╱45╱E╱ // 0x23f5 @0x9
0x23ec…2401 at000a = ╱dc╱=╱ // 0x23f6 @0xa
0x23ec…2401 at000b = ╱4b╱K╱ // 0x23f7 @0xb
0x23ec…2401 at000c = ╱41╱A╱ // 0x23f8 @0xc
0x23ec…2401 at000d = ╱52╱R╱ // 0x23f9 @0xd
0x23ec…2401 at000e = ╱52╱R╱ // 0x23fa @0xe
0x23ec…2401 at000f = ╱41╱A╱ // 0x23fb @0xf
0x23ec…2401 at0010 = ╱59╱Y╱ // 0x23fc @0x10
0x23ec…2401 at0011 = ╱ed╱(╱ // 0x23fd @0x11
0x23ec…2401 at0012 = ╱48╱H╱ // 0x23fe @0x12
0x23ec…2401 at0013 = ╱ee╱)╱ // 0x23ff @0x13
0x23ec…2401 at0014 = EOL // 0x2400 @0x14
0x23ec…2401 }
0x2401…2407 b15e 3640 REPEAT
0x2401…2407 LineComalBin {
0x2401…2407 ptr = 0xb15e // 0x2401 @0x0
0x2401…2407 lno = 0x0e38 // 0x2403 @0x2
0x2401…2407 at0004 = ╱97╱ REPEAT ╱ // 0x2405 @0x4
0x2401…2407 at0005 = EOL // 0x2406 @0x5
0x2401…2407 }
0x2407…241c b173 3650 IF HKUNDE=0 THEN EXIT
0x2407…241c LineComalBin {
0x2407…241c ptr = 0xb173 // 0x2407 @0x0
0x2407…241c lno = 0x0e42 // 0x2409 @0x2
0x2407…241c at0004 = ╱82╱ IF ╱ // 0x240b @0x4
0x2407…241c at0005 = ╱48╱H╱ // 0x240c @0x5
0x2407…241c at0006 = ╱4b╱K╱ // 0x240d @0x6
0x2407…241c at0007 = ╱55╱U╱ // 0x240e @0x7
0x2407…241c at0008 = ╱4e╱N╱ // 0x240f @0x8
0x2407…241c at0009 = ╱44╱D╱ // 0x2410 @0x9
0x2407…241c at000a = ╱45╱E╱ // 0x2411 @0xa
0x2407…241c at000b = ╱dc╱=╱ // 0x2412 @0xb
0x2407…241c at000c = ╱30╱0╱ // 0x2413 @0xc
0x2407…241c at000d = ╱fe00000000╱ // 0x2414 @0xd
0x2407…241c at0012 = ╱b6╱ THEN ╱ // 0x2419 @0x12
0x2407…241c at0013 = ╱99╱ EXIT ╱ // 0x241a @0x13
0x2407…241c at0014 = EOL // 0x241b @0x14
0x2407…241c }
0x241c…242e b185 3660 IF TYPE<>3 THEN
0x241c…242e LineComalBin {
0x241c…242e ptr = 0xb185 // 0x241c @0x0
0x241c…242e lno = 0x0e4c // 0x241e @0x2
0x241c…242e at0004 = ╱9c╱ IF ╱ // 0x2420 @0x4
0x241c…242e at0005 = ╱54╱T╱ // 0x2421 @0x5
0x241c…242e at0006 = ╱59╱Y╱ // 0x2422 @0x6
0x241c…242e at0007 = ╱50╱P╱ // 0x2423 @0x7
0x241c…242e at0008 = ╱45╱E╱ // 0x2424 @0x8
0x241c…242e at0009 = ╱e1╱<>╱ // 0x2425 @0x9
0x241c…242e at000a = ╱33╱3╱ // 0x2426 @0xa
0x241c…242e at000b = ╱fe0000c002╱ // 0x2427 @0xb
0x241c…242e at0010 = ╱b6╱ THEN ╱ // 0x242c @0x10
0x241c…242e at0011 = EOL // 0x242d @0x11
0x241c…242e }
0x242e…243c b193 3670 EXEC HOVED(H)
0x242e…243c LineComalBin {
0x242e…243c ptr = 0xb193 // 0x242e @0x0
0x242e…243c lno = 0x0e56 // 0x2430 @0x2
0x242e…243c at0004 = ╱9d╱ EXEC ╱ // 0x2432 @0x4
0x242e…243c at0005 = ╱48╱H╱ // 0x2433 @0x5
0x242e…243c at0006 = ╱4f╱O╱ // 0x2434 @0x6
0x242e…243c at0007 = ╱56╱V╱ // 0x2435 @0x7
0x242e…243c at0008 = ╱45╱E╱ // 0x2436 @0x8
0x242e…243c at0009 = ╱44╱D╱ // 0x2437 @0x9
0x242e…243c at000a = ╱ed╱(╱ // 0x2438 @0xa
0x242e…243c at000b = ╱48╱H╱ // 0x2439 @0xb
0x242e…243c at000c = ╱ee╱)╱ // 0x243a @0xc
0x242e…243c at000d = EOL // 0x243b @0xd
0x242e…243c }
0x243c…2442 b199 3680 ENDIF
0x243c…2442 LineComalBin {
0x243c…2442 ptr = 0xb199 // 0x243c @0x0
0x243c…2442 lno = 0x0e60 // 0x243e @0x2
0x243c…2442 at0004 = ╱9b╱ ENDIF ╱ // 0x2440 @0x4
0x243c…2442 at0005 = EOL // 0x2441 @0x5
0x243c…2442 }
0x2442…246b b1c2 3690 EXEC FINDPOST(DTAB,MDANTAL,HKUNDE,DPIL3)
0x2442…246b LineComalBin {
0x2442…246b ptr = 0xb1c2 // 0x2442 @0x0
0x2442…246b lno = 0x0e6a // 0x2444 @0x2
0x2442…246b at0004 = ╱9d╱ EXEC ╱ // 0x2446 @0x4
0x2442…246b at0005 = ╱46╱F╱ // 0x2447 @0x5
0x2442…246b at0006 = ╱49╱I╱ // 0x2448 @0x6
0x2442…246b at0007 = ╱4e╱N╱ // 0x2449 @0x7
0x2442…246b at0008 = ╱44╱D╱ // 0x244a @0x8
0x2442…246b at0009 = ╱50╱P╱ // 0x244b @0x9
0x2442…246b at000a = ╱4f╱O╱ // 0x244c @0xa
0x2442…246b at000b = ╱53╱S╱ // 0x244d @0xb
0x2442…246b at000c = ╱54╱T╱ // 0x244e @0xc
0x2442…246b at000d = ╱ed╱(╱ // 0x244f @0xd
0x2442…246b at000e = ╱44╱D╱ // 0x2450 @0xe
0x2442…246b at000f = ╱54╱T╱ // 0x2451 @0xf
0x2442…246b at0010 = ╱41╱A╱ // 0x2452 @0x10
0x2442…246b at0011 = ╱42╱B╱ // 0x2453 @0x11
0x2442…246b at0012 = ╱ec╱,╱ // 0x2454 @0x12
0x2442…246b at0013 = ╱4d╱M╱ // 0x2455 @0x13
0x2442…246b at0014 = ╱44╱D╱ // 0x2456 @0x14
0x2442…246b at0015 = ╱41╱A╱ // 0x2457 @0x15
0x2442…246b at0016 = ╱4e╱N╱ // 0x2458 @0x16
0x2442…246b at0017 = ╱54╱T╱ // 0x2459 @0x17
0x2442…246b at0018 = ╱41╱A╱ // 0x245a @0x18
0x2442…246b at0019 = ╱4c╱L╱ // 0x245b @0x19
0x2442…246b at001a = ╱ec╱,╱ // 0x245c @0x1a
0x2442…246b at001b = ╱48╱H╱ // 0x245d @0x1b
0x2442…246b at001c = ╱4b╱K╱ // 0x245e @0x1c
0x2442…246b at001d = ╱55╱U╱ // 0x245f @0x1d
0x2442…246b at001e = ╱4e╱N╱ // 0x2460 @0x1e
0x2442…246b at001f = ╱44╱D╱ // 0x2461 @0x1f
0x2442…246b at0020 = ╱45╱E╱ // 0x2462 @0x20
0x2442…246b at0021 = ╱ec╱,╱ // 0x2463 @0x21
0x2442…246b at0022 = ╱44╱D╱ // 0x2464 @0x22
0x2442…246b at0023 = ╱50╱P╱ // 0x2465 @0x23
0x2442…246b at0024 = ╱49╱I╱ // 0x2466 @0x24
0x2442…246b at0025 = ╱4c╱L╱ // 0x2467 @0x25
0x2442…246b at0026 = ╱33╱3╱ // 0x2468 @0x26
0x2442…246b at0027 = ╱ee╱)╱ // 0x2469 @0x27
0x2442…246b at0028 = EOL // 0x246a @0x28
0x2442…246b }
0x246b…247a b1d1 3700 EXEC HENTDPOST
0x246b…247a LineComalBin {
0x246b…247a ptr = 0xb1d1 // 0x246b @0x0
0x246b…247a lno = 0x0e74 // 0x246d @0x2
0x246b…247a at0004 = ╱9d╱ EXEC ╱ // 0x246f @0x4
0x246b…247a at0005 = ╱48╱H╱ // 0x2470 @0x5
0x246b…247a at0006 = ╱45╱E╱ // 0x2471 @0x6
0x246b…247a at0007 = ╱4e╱N╱ // 0x2472 @0x7
0x246b…247a at0008 = ╱54╱T╱ // 0x2473 @0x8
0x246b…247a at0009 = ╱44╱D╱ // 0x2474 @0x9
0x246b…247a at000a = ╱50╱P╱ // 0x2475 @0xa
0x246b…247a at000b = ╱4f╱O╱ // 0x2476 @0xb
0x246b…247a at000c = ╱53╱S╱ // 0x2477 @0xc
0x246b…247a at000d = ╱54╱T╱ // 0x2478 @0xd
0x246b…247a at000e = EOL // 0x2479 @0xe
0x246b…247a }
0x247a…2487 b1de 3710 EXEC UDSKRIV
0x247a…2487 LineComalBin {
0x247a…2487 ptr = 0xb1de // 0x247a @0x0
0x247a…2487 lno = 0x0e7e // 0x247c @0x2
0x247a…2487 at0004 = ╱9d╱ EXEC ╱ // 0x247e @0x4
0x247a…2487 at0005 = ╱55╱U╱ // 0x247f @0x5
0x247a…2487 at0006 = ╱44╱D╱ // 0x2480 @0x6
0x247a…2487 at0007 = ╱53╱S╱ // 0x2481 @0x7
0x247a…2487 at0008 = ╱4b╱K╱ // 0x2482 @0x8
0x247a…2487 at0009 = ╱52╱R╱ // 0x2483 @0x9
0x247a…2487 at000a = ╱49╱I╱ // 0x2484 @0xa
0x247a…2487 at000b = ╱56╱V╱ // 0x2485 @0xb
0x247a…2487 at000c = EOL // 0x2486 @0xc
0x247a…2487 }
0x2487…249a b1f1 3720 UNTIL HKUNDE=0
0x2487…249a LineComalBin {
0x2487…249a ptr = 0xb1f1 // 0x2487 @0x0
0x2487…249a lno = 0x0e88 // 0x2489 @0x2
0x2487…249a at0004 = ╱98╱ UNTIL ╱ // 0x248b @0x4
0x2487…249a at0005 = ╱48╱H╱ // 0x248c @0x5
0x2487…249a at0006 = ╱4b╱K╱ // 0x248d @0x6
0x2487…249a at0007 = ╱55╱U╱ // 0x248e @0x7
0x2487…249a at0008 = ╱4e╱N╱ // 0x248f @0x8
0x2487…249a at0009 = ╱44╱D╱ // 0x2490 @0x9
0x2487…249a at000a = ╱45╱E╱ // 0x2491 @0xa
0x2487…249a at000b = ╱dc╱=╱ // 0x2492 @0xb
0x2487…249a at000c = ╱30╱0╱ // 0x2493 @0xc
0x2487…249a at000d = ╱fe00000000╱ // 0x2494 @0xd
0x2487…249a at0012 = EOL // 0x2499 @0x12
0x2487…249a }
0x249a…24bd b214 3730 IF TYPE<>3 AND KARRAY(H)<>0 THEN
0x249a…24bd LineComalBin {
0x249a…24bd ptr = 0xb214 // 0x249a @0x0
0x249a…24bd lno = 0x0e92 // 0x249c @0x2
0x249a…24bd at0004 = ╱9c╱ IF ╱ // 0x249e @0x4
0x249a…24bd at0005 = ╱54╱T╱ // 0x249f @0x5
0x249a…24bd at0006 = ╱59╱Y╱ // 0x24a0 @0x6
0x249a…24bd at0007 = ╱50╱P╱ // 0x24a1 @0x7
0x249a…24bd at0008 = ╱45╱E╱ // 0x24a2 @0x8
0x249a…24bd at0009 = ╱e1╱<>╱ // 0x24a3 @0x9
0x249a…24bd at000a = ╱33╱3╱ // 0x24a4 @0xa
0x249a…24bd at000b = ╱fe0000c002╱ // 0x24a5 @0xb
0x249a…24bd at0010 = ╱da╱ AND ╱ // 0x24aa @0x10
0x249a…24bd at0011 = ╱4b╱K╱ // 0x24ab @0x11
0x249a…24bd at0012 = ╱41╱A╱ // 0x24ac @0x12
0x249a…24bd at0013 = ╱52╱R╱ // 0x24ad @0x13
0x249a…24bd at0014 = ╱52╱R╱ // 0x24ae @0x14
0x249a…24bd at0015 = ╱41╱A╱ // 0x24af @0x15
0x249a…24bd at0016 = ╱59╱Y╱ // 0x24b0 @0x16
0x249a…24bd at0017 = ╱ed╱(╱ // 0x24b1 @0x17
0x249a…24bd at0018 = ╱48╱H╱ // 0x24b2 @0x18
0x249a…24bd at0019 = ╱ee╱)╱ // 0x24b3 @0x19
0x249a…24bd at001a = ╱e1╱<>╱ // 0x24b4 @0x1a
0x249a…24bd at001b = ╱30╱0╱ // 0x24b5 @0x1b
0x249a…24bd at001c = ╱fe00000000╱ // 0x24b6 @0x1c
0x249a…24bd at0021 = ╱b6╱ THEN ╱ // 0x24bb @0x21
0x249a…24bd at0022 = EOL // 0x24bc @0x22
0x249a…24bd }
0x24bd…24c7 b21e 3740 EXEC BUND
0x24bd…24c7 LineComalBin {
0x24bd…24c7 ptr = 0xb21e // 0x24bd @0x0
0x24bd…24c7 lno = 0x0e9c // 0x24bf @0x2
0x24bd…24c7 at0004 = ╱9d╱ EXEC ╱ // 0x24c1 @0x4
0x24bd…24c7 at0005 = ╱42╱B╱ // 0x24c2 @0x5
0x24bd…24c7 at0006 = ╱55╱U╱ // 0x24c3 @0x6
0x24bd…24c7 at0007 = ╱4e╱N╱ // 0x24c4 @0x7
0x24bd…24c7 at0008 = ╱44╱D╱ // 0x24c5 @0x8
0x24bd…24c7 at0009 = EOL // 0x24c6 @0x9
0x24bd…24c7 }
0x24c7…24cd b224 3750 ENDIF
0x24c7…24cd LineComalBin {
0x24c7…24cd ptr = 0xb224 // 0x24c7 @0x0
0x24c7…24cd lno = 0x0ea6 // 0x24c9 @0x2
0x24c7…24cd at0004 = ╱9b╱ ENDIF ╱ // 0x24cb @0x4
0x24c7…24cd at0005 = EOL // 0x24cc @0x5
0x24c7…24cd }
0x24cd…24d4 b22b 3760 NEXT H
0x24cd…24d4 LineComalBin {
0x24cd…24d4 ptr = 0xb22b // 0x24cd @0x0
0x24cd…24d4 lno = 0x0eb0 // 0x24cf @0x2
0x24cd…24d4 at0004 = ╱84╱ NEXT ╱ // 0x24d1 @0x4
0x24cd…24d4 at0005 = ╱48╱H╱ // 0x24d2 @0x5
0x24cd…24d4 at0006 = EOL // 0x24d3 @0x6
0x24cd…24d4 }
0x24d4…24da b231 3770 ELSE
0x24d4…24da LineComalBin {
0x24d4…24da ptr = 0xb231 // 0x24d4 @0x0
0x24d4…24da lno = 0x0eba // 0x24d6 @0x2
0x24d4…24da at0004 = ╱9a╱ ELSE ╱ // 0x24d8 @0x4
0x24d4…24da at0005 = EOL // 0x24d9 @0x5
0x24d4…24da }
0x24da…24ed b244 3780 FOR DPIL3=FRA TO TIL
0x24da…24ed LineComalBin {
0x24da…24ed ptr = 0xb244 // 0x24da @0x0
0x24da…24ed lno = 0x0ec4 // 0x24dc @0x2
0x24da…24ed at0004 = ╱83╱ FOR ╱ // 0x24de @0x4
0x24da…24ed at0005 = ╱44╱D╱ // 0x24df @0x5
0x24da…24ed at0006 = ╱50╱P╱ // 0x24e0 @0x6
0x24da…24ed at0007 = ╱49╱I╱ // 0x24e1 @0x7
0x24da…24ed at0008 = ╱4c╱L╱ // 0x24e2 @0x8
0x24da…24ed at0009 = ╱33╱3╱ // 0x24e3 @0x9
0x24da…24ed at000a = ╱dc╱=╱ // 0x24e4 @0xa
0x24da…24ed at000b = ╱46╱F╱ // 0x24e5 @0xb
0x24da…24ed at000c = ╱52╱R╱ // 0x24e6 @0xc
0x24da…24ed at000d = ╱41╱A╱ // 0x24e7 @0xd
0x24da…24ed at000e = ╱b7╱ TO ╱ // 0x24e8 @0xe
0x24da…24ed at000f = ╱54╱T╱ // 0x24e9 @0xf
0x24da…24ed at0010 = ╱49╱I╱ // 0x24ea @0x10
0x24da…24ed at0011 = ╱4c╱L╱ // 0x24eb @0x11
0x24da…24ed at0012 = EOL // 0x24ec @0x12
0x24da…24ed }
0x24ed…24ff b256 3790 IF TYPE<>3 THEN
0x24ed…24ff LineComalBin {
0x24ed…24ff ptr = 0xb256 // 0x24ed @0x0
0x24ed…24ff lno = 0x0ece // 0x24ef @0x2
0x24ed…24ff at0004 = ╱9c╱ IF ╱ // 0x24f1 @0x4
0x24ed…24ff at0005 = ╱54╱T╱ // 0x24f2 @0x5
0x24ed…24ff at0006 = ╱59╱Y╱ // 0x24f3 @0x6
0x24ed…24ff at0007 = ╱50╱P╱ // 0x24f4 @0x7
0x24ed…24ff at0008 = ╱45╱E╱ // 0x24f5 @0x8
0x24ed…24ff at0009 = ╱e1╱<>╱ // 0x24f6 @0x9
0x24ed…24ff at000a = ╱33╱3╱ // 0x24f7 @0xa
0x24ed…24ff at000b = ╱fe0000c002╱ // 0x24f8 @0xb
0x24ed…24ff at0010 = ╱b6╱ THEN ╱ // 0x24fd @0x10
0x24ed…24ff at0011 = EOL // 0x24fe @0x11
0x24ed…24ff }
0x24ff…2512 (123,) b269 3800 EXEC HOVED(0)
0x24ff…2512 LineComalBin {
0x24ff…2512 ptr = 0xb269 // 0x24ff @0x0
0x24ff…2512 lno = 0x0ed8 // 0x2501 @0x2
0x24ff…2512 at0004 = ╱9d╱ EXEC ╱ // 0x2503 @0x4
0x24ff…2512 at0005 = ╱48╱H╱ // 0x2504 @0x5
0x24ff…2512 at0006 = ╱4f╱O╱ // 0x2505 @0x6
0x24ff…2512 at0007 = ╱56╱V╱ // 0x2506 @0x7
0x24ff…2512 at0008 = ╱45╱E╱ // 0x2507 @0x8
0x24ff…2512 at0009 = ╱44╱D╱ // 0x2508 @0x9
0x24ff…2512 at000a = ╱ed╱(╱ // 0x2509 @0xa
0x24ff…2512 at000b = ╱30╱0╱ // 0x250a @0xb
0x24ff…2512 at000c = ╱fe00000000╱ // 0x250b @0xc
0x24ff…2512 at0011 = ╱ee╱)╱ // 0x2510 @0x11
0x24ff…2512 at0012 = EOL // 0x2511 @0x12
0x24ff…2512 }
0x2512…2518 b26f 3810 ENDIF
0x2512…2518 LineComalBin {
0x2512…2518 ptr = 0xb26f // 0x2512 @0x0
0x2512…2518 lno = 0x0ee2 // 0x2514 @0x2
0x2512…2518 at0004 = ╱9b╱ ENDIF ╱ // 0x2516 @0x4
0x2512…2518 at0005 = EOL // 0x2517 @0x5
0x2512…2518 }
0x2518…2527 b27e 3820 EXEC HENTDPOST
0x2518…2527 LineComalBin {
0x2518…2527 ptr = 0xb27e // 0x2518 @0x0
0x2518…2527 lno = 0x0eec // 0x251a @0x2
0x2518…2527 at0004 = ╱9d╱ EXEC ╱ // 0x251c @0x4
0x2518…2527 at0005 = ╱48╱H╱ // 0x251d @0x5
0x2518…2527 at0006 = ╱45╱E╱ // 0x251e @0x6
0x2518…2527 at0007 = ╱4e╱N╱ // 0x251f @0x7
0x2518…2527 at0008 = ╱54╱T╱ // 0x2520 @0x8
0x2518…2527 at0009 = ╱44╱D╱ // 0x2521 @0x9
0x2518…2527 at000a = ╱50╱P╱ // 0x2522 @0xa
0x2518…2527 at000b = ╱4f╱O╱ // 0x2523 @0xb
0x2518…2527 at000c = ╱53╱S╱ // 0x2524 @0xc
0x2518…2527 at000d = ╱54╱T╱ // 0x2525 @0xd
0x2518…2527 at000e = EOL // 0x2526 @0xe
0x2518…2527 }
0x2527…2534 b28b 3830 EXEC UDSKRIV
0x2527…2534 LineComalBin {
0x2527…2534 ptr = 0xb28b // 0x2527 @0x0
0x2527…2534 lno = 0x0ef6 // 0x2529 @0x2
0x2527…2534 at0004 = ╱9d╱ EXEC ╱ // 0x252b @0x4
0x2527…2534 at0005 = ╱55╱U╱ // 0x252c @0x5
0x2527…2534 at0006 = ╱44╱D╱ // 0x252d @0x6
0x2527…2534 at0007 = ╱53╱S╱ // 0x252e @0x7
0x2527…2534 at0008 = ╱4b╱K╱ // 0x252f @0x8
0x2527…2534 at0009 = ╱52╱R╱ // 0x2530 @0x9
0x2527…2534 at000a = ╱49╱I╱ // 0x2531 @0xa
0x2527…2534 at000b = ╱56╱V╱ // 0x2532 @0xb
0x2527…2534 at000c = EOL // 0x2533 @0xc
0x2527…2534 }
0x2534…253f b296 3840 NEXT DPIL3
0x2534…253f LineComalBin {
0x2534…253f ptr = 0xb296 // 0x2534 @0x0
0x2534…253f lno = 0x0f00 // 0x2536 @0x2
0x2534…253f at0004 = ╱84╱ NEXT ╱ // 0x2538 @0x4
0x2534…253f at0005 = ╱44╱D╱ // 0x2539 @0x5
0x2534…253f at0006 = ╱50╱P╱ // 0x253a @0x6
0x2534…253f at0007 = ╱49╱I╱ // 0x253b @0x7
0x2534…253f at0008 = ╱4c╱L╱ // 0x253c @0x8
0x2534…253f at0009 = ╱33╱3╱ // 0x253d @0x9
0x2534…253f at000a = EOL // 0x253e @0xa
0x2534…253f }
0x253f…2551 b2a8 3850 IF TYPE<>3 THEN
0x253f…2551 LineComalBin {
0x253f…2551 ptr = 0xb2a8 // 0x253f @0x0
0x253f…2551 lno = 0x0f0a // 0x2541 @0x2
0x253f…2551 at0004 = ╱9c╱ IF ╱ // 0x2543 @0x4
0x253f…2551 at0005 = ╱54╱T╱ // 0x2544 @0x5
0x253f…2551 at0006 = ╱59╱Y╱ // 0x2545 @0x6
0x253f…2551 at0007 = ╱50╱P╱ // 0x2546 @0x7
0x253f…2551 at0008 = ╱45╱E╱ // 0x2547 @0x8
0x253f…2551 at0009 = ╱e1╱<>╱ // 0x2548 @0x9
0x253f…2551 at000a = ╱33╱3╱ // 0x2549 @0xa
0x253f…2551 at000b = ╱fe0000c002╱ // 0x254a @0xb
0x253f…2551 at0010 = ╱b6╱ THEN ╱ // 0x254f @0x10
0x253f…2551 at0011 = EOL // 0x2550 @0x11
0x253f…2551 }
0x2551…255b b2b2 3860 EXEC BUND
0x2551…255b LineComalBin {
0x2551…255b ptr = 0xb2b2 // 0x2551 @0x0
0x2551…255b lno = 0x0f14 // 0x2553 @0x2
0x2551…255b at0004 = ╱9d╱ EXEC ╱ // 0x2555 @0x4
0x2551…255b at0005 = ╱42╱B╱ // 0x2556 @0x5
0x2551…255b at0006 = ╱55╱U╱ // 0x2557 @0x6
0x2551…255b at0007 = ╱4e╱N╱ // 0x2558 @0x7
0x2551…255b at0008 = ╱44╱D╱ // 0x2559 @0x8
0x2551…255b at0009 = EOL // 0x255a @0x9
0x2551…255b }
0x255b…2561 b2b8 3870 ENDIF
0x255b…2561 LineComalBin {
0x255b…2561 ptr = 0xb2b8 // 0x255b @0x0
0x255b…2561 lno = 0x0f1e // 0x255d @0x2
0x255b…2561 at0004 = ╱9b╱ ENDIF ╱ // 0x255f @0x4
0x255b…2561 at0005 = EOL // 0x2560 @0x5
0x255b…2561 }
0x2561…2567 b2be 3880 ENDIF
0x2561…2567 LineComalBin {
0x2561…2567 ptr = 0xb2be // 0x2561 @0x0
0x2561…2567 lno = 0x0f28 // 0x2563 @0x2
0x2561…2567 at0004 = ╱9b╱ ENDIF ╱ // 0x2565 @0x4
0x2561…2567 at0005 = EOL // 0x2566 @0x5
0x2561…2567 }
0x2567…2578 b2cf 3890 UNTIL TYPE=0
0x2567…2578 LineComalBin {
0x2567…2578 ptr = 0xb2cf // 0x2567 @0x0
0x2567…2578 lno = 0x0f32 // 0x2569 @0x2
0x2567…2578 at0004 = ╱98╱ UNTIL ╱ // 0x256b @0x4
0x2567…2578 at0005 = ╱54╱T╱ // 0x256c @0x5
0x2567…2578 at0006 = ╱59╱Y╱ // 0x256d @0x6
0x2567…2578 at0007 = ╱50╱P╱ // 0x256e @0x7
0x2567…2578 at0008 = ╱45╱E╱ // 0x256f @0x8
0x2567…2578 at0009 = ╱dc╱=╱ // 0x2570 @0x9
0x2567…2578 at000a = ╱30╱0╱ // 0x2571 @0xa
0x2567…2578 at000b = ╱fe00000000╱ // 0x2572 @0xb
0x2567…2578 at0010 = EOL // 0x2577 @0x10
0x2567…2578 }
0x2578…258f 0000 3900 CHAIN "P641210:OPSTART"
0x2578…258f LineComalBin {
0x2578…258f ptr = 0x0000 // 0x2578 @0x0
0x2578…258f lno = 0x0f3c // 0x257a @0x2
0x2578…258f at0004 = ╱ac╱ CHAIN ╱ // 0x257c @0x4
0x2578…258f at0005 = ╱22╱"╱ // 0x257d @0x5
0x2578…258f at0006 = ╱50╱P╱ // 0x257e @0x6
0x2578…258f at0007 = ╱36╱6╱ // 0x257f @0x7
0x2578…258f at0008 = ╱34╱4╱ // 0x2580 @0x8
0x2578…258f at0009 = ╱31╱1╱ // 0x2581 @0x9
0x2578…258f at000a = ╱32╱2╱ // 0x2582 @0xa
0x2578…258f at000b = ╱31╱1╱ // 0x2583 @0xb
0x2578…258f at000c = ╱30╱0╱ // 0x2584 @0xc
0x2578…258f at000d = ╱3a╱:╱ // 0x2585 @0xd
0x2578…258f at000e = ╱4f╱O╱ // 0x2586 @0xe
0x2578…258f at000f = ╱50╱P╱ // 0x2587 @0xf
0x2578…258f at0010 = ╱53╱S╱ // 0x2588 @0x10
0x2578…258f at0011 = ╱54╱T╱ // 0x2589 @0x11
0x2578…258f at0012 = ╱41╱A╱ // 0x258a @0x12
0x2578…258f at0013 = ╱52╱R╱ // 0x258b @0x13
0x2578…258f at0014 = ╱54╱T╱ // 0x258c @0x14
0x2578…258f at0015 = ╱22╱"╱ // 0x258d @0x15
0x2578…258f at0016 = EOL // 0x258e @0x16
0x2578…258f }
0x258f…2599 64 8d 5f 00 42 dc 30 fe 00 00 ┆d _ B 0 ┆
0x2599…25b9 (125,) 00 00 eb 45 dc 31 fe 00 00 80 01 eb 47 dc 32 fe 00 00 80 02 eb 56 dc 33 fe 00 00 c0 02 eb 57 dc ┆ E 1 G 2 V 3 W ┆
0x25b9…25c0 39 fe 00 00 90 04 ff ┆9 ┆
0x25c0…25c6 (126,) 57 8d 57 8d 10 00 ┆W W ┆